Digital PDFs

AH-S074A-MC

June 1980

238 pages

Original

114MB

view download

OCR Version

157MB

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

MACRO v03.01

11-APR-80 15:01:20 PAGE

.1
SEQ 0001

.REM 3

i e

WA= O 000N

s et
s e

= O 000N

IS NN —

CZRMVAO RMO5/3/2 EXT'D DR TST

NN N NI N NININO N NI PO RO NN NU N

IDENTIFICATION

VB WN=O VO N

PRODUCT

CODE:

AC=S072A=-M(

PRODUCT NAME:

CZRMVAQ RM05/3/2 EXT'D DR TST

DATE:

APRIL 1980

MAINTAINER:

CX DIAGNOSTIC

AUTHOR:

MIKE LEAVITT

ENGINEERING

THE INFORMATION
IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 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
CORPORATION ASSUMES
NO RESPONSIBILITY FOR THE USE
g?GI¥EtIAalLIT' OF ITS
SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY

(C)

1980 DIGITAL EQUIPMENT CORPORATION

MACRO v03.01

11-APR=80 15:01:20 PAGE 2

VB NN

2OV

NN N N N N NN N PO NI NN NN ND N =

NOWVES NN —=O VN

et cd e

s b e o e

OO0~

NN —

CZRMVAO RMO5/3/2 EXT'D DR TST

CONTENTS

ABSTRACT
REQUIREMENTS

2.1
2.2
2.3

EQUIPMENT
PRELIMINARY PROGRAMS
MEDIA

LOADING PROCEDURE
STARTING PROCEDURE
4.1
4.2

4.3

STARTING ADDRESSES
OPERATOR ACTION

PROGRAM ACTION
4&.3.1
4.3.2
4.3.3

CONTROL SWITCH SELECTION
RH11 = RH70 ADDRESS SELECTION
DRIVE AND PARAMETER SELECTION

OPERATING PROCEDURE

5.1
5.2

OPERATIONAL SWITCH SETTINGS
CONTROL SWITCH SETTINGS

ERRORS

6.1
6.2

ERROR TYPES
ERROR RECOVERY

RESTRICTIONS
MISCELLANEOUS

8.1
8.2
8.3
8.4

EXECUTION TIME
STACK POINTER
TIMING TEST (TESTS 12 - 15) PRINTOUTS
END OF TEST

PROGRAM DESCRIPTION

10. PROGRAM LISTING

SEQ 0002

MACRO v03.01

.1
D
11-APR-80 15:01:20 PAGE 3

SEQ 0003

—

CZRMVAO RMO5/3/2 EXT'D DR TST

VSN

ABSTRACT

NN = OO0~

THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WiILL VERIFY THAT
THE DISK IS CAPABLE OF PERFORMING SEEKS, THAT THE ACCESS TIMES
ARE WITHIN TOLERANCE, THAT THE TRACK AND SECTOR ADDRESSING

CIRCUITRY OPERATES PROPERLY, AND THAT THE DATA STORAGE AND

REQUIREMENTS

2.1

WN = OOV

WNNIN NN PO NI PO NI NI N NN

EQUIPMENT
PDP=11 PROCESSOR
16K MEMORY
TELETYPE

NO VNS WN = OV

b e

NO WV

e e e et e

RETRIEVAL CAPABILITIES ARE FUNCTIONING.

PROGRAM LOADING DEVICE

KW1l=L OR KW11=P (THE KWw11=P IS REQUIRED FOR THE TIMING TESTS)
1 70 8 DISK DRIVES (ANY COMBINATION OF RMO5'S, RMO3'S OR RM0Z2'S)

2.2

2.3

PRELIMINARY PROGRAMS

RM05/3/2 DISKLESS CONTROLLER TEST, PART 1

& 2

RM05/3/2 FUNCTIONAL CONTROLLER TEST, PART

1, 2 & 3

MEDIA
THE PROGRAM REQUIRES THAT EACH DRIVE

DISK PACK.

MODE,

TO BE

TESTED HAS A FORMATTED

THE PACK MAY BE FORMATTED IN EITHER 16-BIT OR 18-BIT

DEPENDING ON THE

TESTING REQUIREMENTS.

gi%kSNOI TEST A MIXTURE OF

NOTE

THAT

THE PROGRAM

DRIVES WITH BOTH 16 AND 18 BIT MODE

LOADING PROCEDURE
THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER

OR IT MAY BE LOADED FROM THE APPROPRIATE
ASSOCAITED LOADER.
NO WS e -

THE PROGRAM MAY BE

'XXDP' MEDIA USING THE

INCLUDED IN AN ‘'XXDP'

CHAIN.

IF THE PROGRAM 1S BEING RUN ON A PROCESSOR WITH 16K, THE 'XXDP'

LOADER WILL NOT BE PRESERVED.
THE PROGRAM MUST BE RUN ON A SYSTEM
WITH 20K OR MORE TO PRESERVE THE 'XXCP' LOADER.
THE 'ABSOLUTE' LOADER
WILL BE PRESERVED IN A 16K SYSTEM, HOWEVER.

STARTING PROCEDURE

CZRMVAD RM05/3/2 EXT'D DR TST

MACRO v03.01

1
E
11-APR-80 15:01:20 PAGE 3-1
SEQ 0004

59
g?

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

4.1

STARTING ADDRESSES

62
63

200
204

NORMAL STARTING ADDRESS
SELECT OPERATING PARAMETERS

314

COMBINATION OF 204 AND 210

210

67
68

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

?3
;}

TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS.

4.2

OPERATOR ACTION

74
75
76
77
78
79
80
81
82
83

2.
3.
4.
5.
6.
7.

gg
gg

SELECT RH11-RH70 ADDRESSES

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 OF THE STARTING ADDRESSES: INSTEAD
TYPE A 'CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO

COMMAND ENTRY MODE.

4.3

PROGRAM ACTION

88
89
3?

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

92
gz

NOTE1:

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

NOTE2:

THE CARRRIAGE RETURN TYPED BY THE USER 1S INDICATED BY

<.><CR>

100
10°
102
103
}8§
}8?

<CR> AND WILL BE

ECHOED AS A

FEED'.

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>

PERIOD PERIOD

THE

'PERIOD PERICD'

110

THE

START OF

109

RETURN-LINE

PERIOD

108

}}g

'CARRIAGE

THE END OF

<, ><(R>

COMMA
THE

TERMINATOR IS TYPED TO INDICATE

TEST PARAMETER MODIFICATION AND TO SIGNAL
TEST

EXECUTION.

COMMA 1S USED AS A SEPARATOR BETWEEN DRIVE NUMBERS

MACRO v03.01

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

NNOOCO O OO VWIS
IS 8N 0 0S8
000 8
NN N W N NN N N N PO AN N NI PO PO NI RO N = b b s a
= OOVOWNO VNS NN = OV
NO VNS WOV
NOWVES NN = O VN VS NN —=O V00 NOWVES
NN = OV~ I WD

CZRMVAO RMO5/3/2 EXT'D DR TST

il e

AND TEST NUMBERS.
SLASH

</>

D el e

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

DELETE THE PRESENT

D el el

(CTRL) AND THEN STRIKING THE 'V'.

D il

<\>

RUBOUT

D el el el el

il il

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.

4.3.1

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

D el

INPUT STRING AND START A NEW

LINE. TYPED BY DEPRESSING THE ''CONTROL KEY''

D —ld el il

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

D —lh — —h

CONTROL SWITCH SELECTION EXAMPLES:

EXAMPLE #1

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

D -l —ld =l — —D —h -l
D
Dl
) —
il ol
D il — ol el
—

SEQ 0005

EXAMPLE #2
SET Sw<07>=0
C.SWR=000000 / 220.
C.SWR=000000 7 220..
4.3.2

RH1T = RH70 ADDRESS SELECTION
STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RMCS1),
VECTOR ADDRESS, AND PRIORITY LEVEL OF THE RH11-RH70.
IF THE DEFAULT VAULE OF THE BUS ADDRESS DOES NOT RESPCAD

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

THERE

ACTION

IS A MONITOR == RETURN TO THE MONITOR

IF THERE ISN'T A MONITOR =-- ASK FOR NEW ADDRESSES

NNNNNN~N~

CZRMVAOD RMO5/3/2 EXT'D DR TST

MACRO v03.01

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

SEQ 0006

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR

D il

TO CHANGE THE ADDRESS OF
ADDRESS.

D el

THE RH11

OR RH70 AND THE

VECTOR

ADDRESS SELECTION EXAMPLES

EXAMPLE #1

RMCS1=17670C 7/ 177200.

D i

EXAMPLE #2

VOOV OOV

RMCS1=176700 / 176300<CR>
RMVEC=254 / 260<CR>
RMPRIO=5 / 6.

EXAMPLE #3

il il

RMCS1=176700<CR>
RMVEC=254 / 260.

EXAMPLE #&
RH/RM FAILED TO RESPOND TO ADDRESSING

19¢
197
}gg

RMCS1
ERR PC
176300
_XXXXXX
RMCS1=176300 /7 176700.

58?

EXAMPLE #5

202
203
204
%82

RMCS1=176700 /7 1776\67\6300<CR>
RMVEC=254<CR>
RMPRIO=5<CR>
RMCS1=176300.

Sgg

4.3.3

DRIVE AND PARAMETER SELECTION

209

STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC

212
213
g}g

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

g}?

216

217
218
219
220
221
222
%gz

552

55;

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

EACH TEST CONTAINS TWO SETS OF TRACK LIMIT PARAMETERS.

PARAMETERS
LT, VPTY AND UIT'' ARE USED BY RMO3/2 DRIVES AND PARAMETERS ''LT'"',
“FT'TM AND ''IT''' ARE USED BY RMO5 DRIVES. THE PROGRAM DETERMINES WHICH
DRIVE IS BEING TESTED AND SELECTS THE CORRECT SET OF TRACK LIMIT
VALUES.
IF THE PROGRAM IS BEING USED TO TEST A SUBSYSTEM WHICH
CONTAINS BOTH RMO3/2 AND RMO5 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 1S A TABLE OF TERMS USED BY THE PS!.

MACRO v03.01

11-APR=80

ST, ST,NT,STNT NT.NT,NT,87,87 ¥
NN N NN N N N NN

WOONO VNS W —=O
0

CZRMVAQ RMO5/3/2 EXT'D DR TST

H
1
15:01:20 PAGE 3=4

REPEATS (ITERATIONS)

“FC'*
LC"

FIRST CYLINDER ADDRESS
LAST CYLINDER ADDRESS

Tl!

CREMENT TRACK
RST TRACK ADDRESS

LS’

CREMENT CYLINDER

”va'“

240

F RST_TRACK ADDRESS
L ST TRACK_ADDRESS

OOFY.II

SEQ 0007

;

;RMOS PARAMETER

T TRACK ADDRESS
¢ REMENT TRACK

;RMO5 PARAMETER
sRMO5 PARAMETER

RST SECTOR ADDRESS

LAST SECTOR ADDRESS

"PAT''
"WDX'"

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

#'S"

ALL SEEK TESTS (TESTS 0 =_10)

*#'D'*
€'

THE DATA TEST (TEST 20)
THE EXERCISER (TEST 21)

7'
*'A'

TO 16

ALL TIMING TESTS (TESTS 12 = 15)
ALL ADDRESS TESTS (TESTS 16 = 17)

* USED BY THE OPERATOR TO SELECT TEST GROUPS
NOTE:

ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN
(PAT) AND WORDS (WDX) SELECTION.
''PAT'' WILL BE SELECTED BY
A BIT (I1.E. 001000¢8)=PATTERN 9) AND ''WDX'' WILL BE IN OCTAL.

SPECIAL CASES OF
IF

<..>

CONTROL CHARACTERS
IS 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 UNCHANGED.

WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR 210, TESTS 0-10,
12-20 WILL BE RUN USING ALL AVAILABLE, ONLINE DRIVES.
IF THE OPERATOR
WISHES TO SELECT THE DRIVES TO BE TESTED, THE TESTS TO BE PERFORMED,
OR THE PARAMETERS TO BE USED, 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

IS TO TEST

DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO CHANGE
THE PARAMETERS

(INITIAL CYLINDER ADDRESS,

THE USER WOULD TYPE

FINAL CYLINDER ADDRESS,

THE PROGRAM WILL THEN REQUEST TEST NUMBERS.
THE TRANSACTION APPEARS AS FOLLOWS:

DRIVE(S)=3<CR>
TEST=

ETC.).

'3<CR>' WHICH SAYS 'THIS 1S THE END OF DRIVE ENTRY'.

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01 11-APR=80 15:01:20 PAG% 3-5

SEQ 0008

THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS.

IN THE EXAMPLE,

HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7<,> (THE 'COMMA'
SEPARATES ENTRIES), 11<.><CR>('PERIOD' 'CARRIAGE RETURN' =
END OF CHANGES, START TEST EXECUTION.)
IT NOW LOOKS LIKE THIS

DRIVE(S)=3<CR>

TEST=2=7,11.<CR>

IN THE NEXT EXAMPLE, IT 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 AS FOLLOWS:

DRIVE(S)=4<CR>
TEST=
THE OPERATOR NOW ENTERS THE

GIVEN BELOW:

TEST NUMBERS.

THE

TRANSACTION IS

NOTICE THIS SAYS SELECT TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>;
SELECT TESTS &4=-7, CONTINUE<,>; SELECT TEST 10, OPEN</>; SELECT TEST
11, END OF INPUT <.>.
THE PROGRAM SCANS THE TEST NUMBER

PARAMETERS FOR TEST 3 AND TEST
TESTS WILL NOT BE ALTERED.

INPUT AND DETERMINES THAT

10 ARE TO BE CHANGED.

THE

THE OTHER

(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY)

DRIVE(S)=4<(CR>

TEST=1,3/4=7,10/11<CR>
TEST 3

= OV

YO VI

iy —

POPNUININD
=
s e s
s

N N N NN NN N NN NN

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

324

R=X /

;WHERE X

ITERATION

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

TERMINATING THE

ENTRY WITH A <CR> WILL

TO MOVE TO THE NEXT PARAMETER.

LN LN N U
s
SW
N—=O

e NN

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

CAUSE

THE

PROGRAM

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

THE OPERATOR DOES NOT WISH TO CHANGE

'FC', THE fOLLOWING OCCURS:

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

TEST 3
R=1 /7 <(R>

;D0 NOT ALTER THIS LINE BUT CONTINUE

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

1
J
11 -APR=80 15:01:20 PAGE 3-6
FC=0_/ <CR>

LC=822 /

SEQ 0009
;D0 NOT ALTER THIS LINE 3UT CONTINUE

THE PROGRAM RESPONDS WITH THE PREVIOUSLY ASSIGNED PARAMETER FOR LAST

CYLINDER ADDRESS IN THIS CASE USING 822 AS THE EXAMPLE.

THIS IS

WHAT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 WAS

OPENED.
TO CHANGE THE VALUE TO '20', THE NEW VALUE IS TYPED
FOLLOWED BY A 'PERIOD' TERMINATOR (<.><CR>).
THE

TOTAL TRANSACTION AND RESPONSE:

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

THE PROGRAM HAS LOADED TEST 3 WITH ITS
NEW PARAMETERS AND THE
PROGRAM IS WAITING FOR CHANGES TO TEST 1G'S PARAMETERS.

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

LC= 822 / 20.<CR>

R=1

/7 10.<CR>

THE 0PERATO§ TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY

WITH A "PERIOD'

°'CARRIAGE RETURN'.

THE PROGRAM NOW LOADS 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 NUHBERS ARE BEING
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIATELY.
A 'PERIOD
PERIOD' MUST BE TYPED BEFORE THE PROGRAM WILL EXII TEST PARAMETER
CHANGE MODE TO GO TO EXECUTION.
4.3.3.2 DRIVE AND PARAMETER SELECTION EXAMPLES

EXAMPLE #1

CZRMVAD RM05/3/2 EXT'D DR TST
400
401
402
403
404
405

MACRO v03.01

DRIVE=4.<CR>

DRIVE=0<CR>
TEST=1=5.<CR>

:}?

612

¢t G

415
616
417
418
419
420

428
429

432
2;2
435
“
437
438
439
440
441

442
443

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

2%?

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

JSELECT DRIVE #0 AND MAKE ‘CHANGES '','
JRUN TEST 1 THRU S ONLY, USE DEFAULT

sPARAMETERS AND TERMINATE AND EXECUTE.''

sSELECT DRIVE #2 AND MAKE CHANGES '',''
sRUN TEST 1=5 WITH DEFAULT PARAMETERS, OPEN
2RSS 6‘7 AND 10 FOR CHANGES
sLEAVE
'R' AS IS AND MOVE TO NEXT PARAMETER
sSET "FC' CYLINDER ADDRESS TO 10, END CHANGES
;7O TEST 6.

;50 ITERATIONS, MOVE TO NEXT PARAMETER
;DO NOT CHANGE 'FC' CYLINDER ADDRESS BUT CONTINUE
;TEST 10 IS STILL PENDING AND WILL BE

JRETAIN ITS PRESENT PARAMETERS.

EXAMPLE #4

DRIVE=0<CR>
TEST=S,E.<CR>

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

EXAMPLE #5
eecccecccc-DRIVE=1<(CR>
TEST=S/D<CR>
TEST 0

R=10 7 <CR>

FC=0 7 10..<CR>

JRUN ALL SEEK TESTS (OPEN FOR CHANGES) AND
sTHE DATA TEST (WITH DEFAULT PARAMETERS).
sRUN WITH 10 ITERATIONS

sCHANGE FIRST CYLINDER ADDRESS
sAND START EXECUTION
sTESTS 1

222
447
«“w
449
450
22}

sSELECT DRIVE W4, TERMINATE AND
sBEGIN EXECUTION USING PREVIOUSLY ASSIGNED
;PARAMETERS

EXAMPLE #3

621
422
423
424
425

SEQ 0010

EXAMPLE #2

408
409

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

= 10 WILL RETAIN THEIR PREVIOUSLY

sASSIGNED PARAMETERS.
EXAMPLE #6
eesccccce-

DRIVE=1<CR>
YE?E;?/&CR>

;OPEN THE SEEK TESTS

(TESTS 0-10)

623

15271? / 100.<CR>

sCHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST

425

1527130 / 1000.<CR>

;CHANGE

654

456

'R'

TO 1000 ITERATIONS, MOVE TO NEXT TEST

CZRMVAO RMOS5/3/2 EXT'D DR TST

MACRO v03.01

457
458
459
460
461
462
222

465

R=1 / 10<CR>
FC=0 / 50<CR>
LC=822 /7 51.<CR>
TEST 3
R=1.<CR>
TEST &
R=1..<CR>

DRIVE=1<CR>
TEST=D/<CR>

470
471
472
473

TEST 20
.21 / 1000<CR>
FC=0 / 10<CR>
LC=822 / 10<CR>

474

488
489
490
491
492
493
494
495
496
497
498
499
500

501
502
503
504
505

512

513

;USE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION

:SELECT AND OPEN THE DATA TEST

:DO 1000 ITERATION OF TEST PATTERN
:#8 ON CYLINDER 10, TRACK 2, SECTOR &

EXAMPLE #8
DRIVE=1<CR>
TEST=D/<CR>
TEST 20
R=1000 / <CR>
FC=10 / <CR>
LC=10 /7 <CR>
1C=0 / <CR>
FT=¢ / <CR>
LT=2 / <CR>
1T=1 /7 <CR>
FT'=0 / 2<CR>
LT*=18 / 2<CR>
IT'=1 /7 <CR>

;USE THE SAME PARAMETERS AS IN EXAMPLE
:#7, BUT ALSO SPECIFY A DATA PATTERN (PAT #0).

:RMO5 PARAMETER
:RMO5 PARAMETER
:RMO5 PARAMETER

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

28?

:MOVE TO NEXT TEST

FT=0 / 2<CR>
LT=4 /7 2<CR>
1T=1 /7 <CR>
FT'=0 / 2<CR>
;RMOS PARAMETER
LT'=18 / 2<CR>
:RMOS PARAMETER
IT'=1 /7 <CR>
:RMO5 PARAMETER
FS=0 / 4<CR>
LS=22 / &<CR>
PAT=177777 / 400..<CR> :RUN WITH PATTERN #8

485

e PR

'R' TO 10 ITERATIONS, GO TO NEXT PARAMETER
°"FC' TO 50, GO TO NEXT PARAMETER
'LC' TO 51, GO TO THE NEXT TEST

1C=6& / 0<CR>

475
476
477
478
479
480
481
482
232

511

:CHANGE
;CHANGE
;CHANGE

eeenseness

469

SEQ 0011

EXAMPLE #7

467
468

508

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

:<..> START EXECUTION

e U

EXAMPLE #9

DRIVE=0,1,4<CR>

TEST=0-5/<CR>
TEST 0

;TEST DRIVES 0,1, AND & IN SEQUENCE

:CHANGE TEST §

VONOWVS
NN~ OOV NOWVSWN OO0~V

VAWV
WA YA VAW
UYWAY
NNV WYYV
W
W NN W N NN N NN NN NN NN
it b s

CIZRMVAQ RMO5/3/2 EXT'D DR TST

MACRO v03.01

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

.. <CR>

5.1

SEQ 0012

s CHANGE LAST CYLINDER FROM 822 10 1
:START PROGRAM EXECUTION.

OPERATIONAL SWITCH SETTINGS

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

SW<15>=1,..HALT ON ERROR
SW<14>=1,..LO0OP ON TEST

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

SW<10>=1...RING BELL ON ERROR
SW<09>=1...LO0OP 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 THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11/34)

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER

O VWAV
VAL
DO
-YyOWVISH N

VIV IV IV AV IV IV IV IV}

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 RMO5/3/2 INTERRUPT.
THE
'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

"SWR
= NNNNNN

NEW ='

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

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

THE PROGRAM FINDS ALL 16 SWITCHES IN THE

'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
éEOFBEtSSéDREGlSTER AND THE PROCEDURES DESCRIBED ABOVE MUST

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

(W IV IV IV IV LV IV IV IV ]
NNNNNNNN~N

OO ~NO NS NN
—

CZRMVAD RMOS5/3/2 EXT'D DR TST

5.2

.
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 IT

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

580
gg;

STRING MUST CONSIST OF
AND A CARRIAGE RETURN.

TO 6 OCTAL DIGITS,

TwO PERIODS (..),

THE C.SWR SETTINGS ARE:

ggz

585
586
587
588
589
590
591
592

(.SWR<15>=0...WRITE PACK BEFORE TESTING (TEST16)
=1...INHIBIT WRITE PACK BEFORE TESTING (TEST16)
C.SWR<14>=0...NO STALL BETWEEN DRIVE FUNCTIONS
=1...STALL AFTER EVERY DRIVE FUNCTION
C.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 &

593

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

594

=1...00 EXPLICIT SEEKS BEFORE DATA TRANSFERS

595
596
597
598
599
600
601

C.SWR<(7>=0...D0 READ HEADER AND DATA COMMANDS IN TESTS 0-7
=1...00 EXPLICIT SEEK COMMANDS IN TESTS 0-7
C.SWR<06>=0...60 HZ POWER SOURCE
=1...50 HZ POWER SOURCE
C.SWR<05>=0...ALLOW SOFTWARE TIMEOUTS(ENABLE WATCHDOG TIMER)
=1...INHIBIT SOFTWARE TIMEOUTS(DISABLE WATCHDOG TIMER)
C.SWR<00>=0...0PERATE IN 32. SECTOR (16 BIT) MODE

ggg

THE DEFAULT CONDITION OF

ggg

REFER TO 4.3.1

28§

=1...0PERATE

608
609
610
611

614

615
616
617

g%%

(18 BIT) MODE

C.SWR<15:00>=0.

FOR C.SWR SELECTION

ERRORS

THERE ARE ANUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAM.

THE FOLLOWING:

1.
2.

624
ggg
627

SECTOR

WHEN AN ERROR IS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE
IS MADE AND IF SW<13> IS NOT SET, AN ERROR MESSAGE PERTAINING
TO THE ERROR WILL BE TYPED.
EACH ERROR TYPEOUT WILL CONTAIN

g}g

620
621

IN 30.

AN ERROR MESSAGE
A DATA HEADER

A DATA STRING

REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS
THAT CAN OCCUR.
6.1

ERROR TYPES

CZRMVAO RMO5/3/2 EXT'D DR TST

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

SEQ 0014

THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE

(3)

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.
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.
FATAL ERRORS
THIS TYPE OF

ERROR THAT

ERROR WILL BE

THE RESULT OF

ANY KIND

INHIBITS THE PROGRAM FROM TESTING THE DISK.

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

ERROR RECOVERY
FRCTESTM

=7 =OR

WAEN THIS TYPE OF

ERROR OCCURS IT WILL BE REPORTED.

THEN DEPENDING

ON W T4C PROGRAM WAS STARTED IT WILL ASK FOR THE DRiVES AND
ADDRZSSES "OR “ESTING OR RETURN TO MONITIR.

NON-FATAL ERROR
WHEN THIS TYPE OF ERROR OCCURS IT WILL BE
THE PROGRAM WILL CONTINUE IN TEST.

REPORTED AND

FATAL ERROR

WHEN THIS TYPE OF ERROR OCCURS IT WwILL 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>'
IS 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 RMO5/3/2 EXT'D DR TST

MACRO v03.01

¢ 2
11-APR-80 15:01:20 PAGE 3-12

SEQ 0015

685
686
ggg

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.

689
690
691
692
693
694
695
696
697

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.
THE FORMAT OF THE PACK IS NOT ALTERED
BY THE PROGRAM.

698

699

;8?

MISCELLANEOUS

8.1

EXECUTION TIME

702
703
704
;82

;85

THE PROGRAM REQUIRES APPROXIMATELY 15 MINUTES TO MAKE ONE PASS WITH
RM03/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 TEST PARAMETERS.

8.2

;?3

;};

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

STACK POINTER
THE STACK POINTER 1S INITIALLY SET TO 1100.

8.3

TIMING TESTS (TESTS 12-15) PRINTOUTS

,
s

713
714
715
716
717
718

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
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM

;5?

SAME LINE AS THE AVERAGE.

719

TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE

722
723
724

NOTE:

;gg

;g;

THE PROGRAM STALLS FOR 2 MILLISECONDS BETWEEN SEEK ORDERS,
THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES.
THE SEEK TIMES SPECIFIED ARE POSITIONER MOVEMENT TIMES ONLY
AND ARE NOT A MEASUREMENT OF

8.3.1

TIMING TOLERANCES

;gg

;g}

-=TIMES FOR RMOS5/3 DRIVES=--

733
734

60 HZ
MINIMUM=16340 US

737
738
739
740

50 WZ
MINIMUM=16250 US
MAXIMUM=17090 US

%
J

;
|
|
;

735
736

761

TEST 12 == ROTATIONAL SPEED TIMES

MAXIMUM=17000 US
NOMINAL=16670 US

NOMINAL=16670 US

EFFECTIVE SEEK TIME.

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

MACRO v03.01

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

==TIMES FOR RMO2 DRIVES=--

60 HZ
MINIMUM=24500 US
MAXIMUM=25500 US
NOMINAL=25000 US
50 HZ
MINIMUM=24370 US
MAX IMUM=25630 US
NOMINAL=25000 US

2. TEST 13 == ONE CYLINDER SEEK TIMES
MAXIMUM=7000 US
NOMINAL=6000 US

3. TEST 14 == ACCESS TIME MEASUREMENT
MAXIMUM=32000 US
NOMINAL=30000 US
4.

TEST

15 == MAXIMUM SEEK TIMES

MAXIMUM=57000 US
NOMINAL=55000 US

8.3.2.

TIMING TESTS PRINTOUT

EXAMPLES

EXAMPLE #1
ROTATIONAL SPEED TIMES

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

10 SEEKS TIMED

ONE CYLINDER SEEK TIMES
* FORWARD

MIN=5350 US
MAX=6920 US

AVG=5550 US
* REVERSE

MIN=5140 US
MAX=5960 US

AVG=5430 US

821 SEEKS TIMED

822 SEEKS TIMED

ACCESS TIME MEASUREMENTS
* FORWARD

MIN=27770 US
MAX=28640 US
Av(6=28230 EUS
* REVERS

MIN=27990 V)
MAX=28550 Us

128 SEEKS TIMED

SEQ 0016

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80 15:01:20 PAGE 3-14
AVG=28220 US

SEQ 0017

128 SEEKS TIMED

MAXIMUM SEEK TIMES
* FORWARD

MIN=49990 US
MAX=51980 US

AVG=51010 US

128 SEEKS TIMED

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

128 SEEKS TIMED

* REVERSE

NN —

EXAMPLE #2

NO VI

00 Co 0o Co 0o OO 0o Co 0o 0o

810

ROTATIONAL SPEED TIMES
MIN=16670 US
MAX=16690 US
AVG=16680 US
10 SEEKS TIMED

ONE CYLINDER SEEK TIMES

821

* FORWARD

MIN=5470 US
MAX=7940 US
AVG=5830 US
* REVERSE

3 ABOVE THE MAXIMUM OF
821 SEEKS TIMED

7000 US

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

MIN=29730 US
MAX=32620 US

73 ABOVE THE MAXIMUM OF

32000 uS

* REVERSE
MIN=28620
MAX=32230 US
AVG=32800 US

128 ABOVE THE MAXIMUM OF
128 SEEKS TIMED

32000 uS

AvG=30320 US

128 SEEKS TIMED

MAXIMUM SEEK TIMES
* FORWARD

MIN=57510 US
MAX=57240 US
AVG6=5702 0 US

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

8.4

128 ABOVE THE MAXIMUM OF
128 SEEKS TIMED

57000 uS

128 ABOVE THE MAXIMUM OF
128 SEEKS TIMED

57000 uS

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"

RMO5/3/72 EXT'D DR TST

MACRO v03.01

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

SEQ 0018

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 HEADER AND DATA'' COMMAND, AND
THEN CHECK THE INFORMATION FOR VALIDITY.

THUS,

INSURING

THE SEEK 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 ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES
THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL.

gnggggT 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO
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 OF EACH PASS,
sg? eg "END OF TEST'' MESSAGE WILL BE TYPED AFTER TESTING ALL
v

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

9.1

TEST 0 - RECAL/SEEK TEST
THIS TEST WILL CAUSE THE DRIVE

TO EXECUTE A RECALIBRATE

COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER ''LC''.
THE

COMPLETION OF

BOTH COMMANDS,

THE

PARAMETERS USED BY

STATUS

CHECKED TO ENSURE NO ERRORS OCCURRED.

F1
F1*
FS

9.2

TEST

THE

TEST

ARE

INDICATIONS ARE

GIVEN BELOW:

200

822

0
0
0

- SEEK/SEEK TEST

THIS TEST WILL CAUSE

THE DRIVE

TO EXECUTE

A FORWARD SEEK

CYCLE TO ''tC'', "LT', "LS'" FOLLOWED BY A REVERSE SEEK CYCLE T0
FC, VPT', "'FS''.
AT THE COMPLETION OF EACH SEEK, THE PROPER
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.

MACRO v03.01

OO VOV OO OOOVO0

POPININ
= b e
e s e

WN = OV ~NOWVISS
W

CZRMVAQ RMO5/372 EXT'D DR TST

THE

PARAMETERS USED BY

THE

TEST

100

256
0

0
0
0
0
0

LT
F1'
N
FS
LS

SEQ 0019

LC
1C

9.3

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

GIVEN BELOW:

TEST 2 = INCREMENTAL SEEK TEST
THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE

THE

CYLINDER ADDRESS FROM ''FC'' TO "'LC'' BY THE INCREMENT "'IC''.

WHEN THE RESULTANT CYLINDER ADDRESS

(NC)

EXCEEDS

“LC'' REVERSE SEEK CYCLES ARE INITIATED; STARTING

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

UNTIL "'NC'" IS LESS THAN ''FC''. AT THE COMPLETION OF EACH
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION.
THE

PARAMETERS USED BY

R
FC

I1C

TEST

822

ARE

GIVEN BELOW:

1
0

FT°*
9.4

THE

TEST 3 - STEPPING SEEK TEST
THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4,

8,16,32,64,128,256 AND 512.
83?::¥?OLHE PROPER

THE PARAMETERS USED BY

R
FC

FT
Fy”
FS

LC
IC

9.5

AT THE COMPLETION OF EACH SEEK

INDICATORS ARE EXAMINED TO VERIFY PROPER
THE

TEST

ARE GIVEN BELOW:

8
0

512
1

0
0

TEST & = OSCILLATING SEEK TEST

THIS TEST WILL COMMAND SEEK CYCLES FROM '‘FC'' TO ''NC'' AND BACK

TO
"FC''.
"NC" STARTS AT "FC'' AND INCREMENTS BY ''IC'' UP TO CYLINDER
“LC'', THEN 1S DECREMENTED BY ''IC"' BACK TO CYLINDER ''fFC''.
AT THE
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE

CZRMVAOD RMO5/3/2 EXT'D DR TST

MACRO v03.01

H ¢
11-APR-80 15:01:20 PAGE 3-17
SEQ 0020

g;?

EXAMINED TO ENSURE PROPER OPERATION.

3;%

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

974
975
976
977
978
979

R
FC
LC
IC
F1
F1*

gg?
gg%

9.6

1
0
822
|
0
0

TEST 5 = CONVERGING/DIVERGING SEEK TEST

984
985
986
987
988
989
990

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 SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION.
‘“'NC1'' AND ''NC2'' DEFAULT TO

gg%

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

991

"FC'" AND "‘LC'' RESPECTIVELY.

994
995
996
997
998
999

1001

}88%

R
FC
LC
1C
F1
F1*
9.7

1
0
822
1
0

’

TEST 6 = SERVO ADDRESSING LOGIC NOISE GENERATOR TEST

1004
1005
1006
1007
1008
}8?8

IN THIS TEST A SEEK 1S DONE TO CYyL ''NC'' THEN A SEEK T0
NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5.
NOW '‘NC'' 1S 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.

}8}5

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

1013
1014
1015
1016
1017
1018
1019
1020
}855

1023
1024
1025
1026

R
FC
LC
IC
F1
F1*
FS
9.8

1
0
822
1
0
0
0

TEST 7 - RANDOM SEEK TEST

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS 'FC’
'LC'.
AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK.
THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION

D el

il e

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01 11-APR-80 15:01:20 PAG% 3-18

027
853

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

8%?

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:
R
FC
LC
F1
L7
F1°
A

» sS85

9.9

TRACK ADDRESSES ARE INTREMENTED

5000
0
822
0
b
0
18

TEST 10 - SERVO SETTLE DOWN TEST
THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT
THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE.
RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS °'NC1' AND ‘'NC1+IC'
('NC1' STARTS AT VALUE 'FC').
AT THE COMPLETION OF 1000 (10) SEEKS,
'NC1' IS INCREMENTED BY VALUE 'IC' AND THE SEQUENCE 1S REPEATED.

)

D il

032
033
034
035
036
037
038
039
040
041
042
043
044
045
0
82;

THE TEST IS COMPLETED WHEN °'NC1' HAS BEEN INCREMENTED BEYOND 'LC'.

D el e

SEQ 0021

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
MAY NOT BE ADJUSTED CORRECTLY, THAT THE DRIVE 1S MALFUNCTIONING, OR
THAT A PACK WITH MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE.

056
057
058
828

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

82}

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

w
W

)

) el i

D el

i el

D il

049
050
051
052
053
054

R
FC
LC

) —d —d =

- —

063
064
065

WA = OOV

NO WS

N —o

COO0OOO00
N NNNNNNNN ~

—

D el

D il

(elelelelelelele
el lolnl=1

D il

066
067
068

I1C

F1
FT*
9.10

1
0
822

100
0
0

TEST 11 = ALL SEEKS TEST
THIS TEST VERIFIES THAT
TO ALL OTHER CYLINDERS.

THE

DISK DRIVE

CAN SEEK

FROM EACH CYLINDER

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'.
THE SEQUENCE
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED.
THE

FOLLOWING PARAMETERS ARE USED BY

THIS TEST:

FC
LC
1C
FY
FT*
FS

9.1

2 O

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

25.00 MS/REV + OR - 2% IF 60HZ
25.00 MS/REV + OR - 2.5% IF 50HWZ.

9.12

OOO0O—

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:
Nt

d e

£ WL NN LN AN AN AN N NN N NN NNV NINININ) = b e
e b b b et s O O OO OO OO OOY
OOV NO VS W =O OV
JOWVNS LW —=O VNV
NN =0V
NO WV
W
=00

2
D

D e e
e
d e
D
o
e
D e

D b D B

e
D
D e

D e

e
e e
e

RM02:

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

D D ed D D b

D el e
D el

RM05/3:

CYLINDER 'LC', THEN REVERSE SEEK TO CYLINDER "FC'.

THE

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

D N e

0
822
1
0
0
0

TEST 12 = ROTATIONAL SPEED TIMING TEST

TEST USES THE

R
FC

D e
D

) e
D
D el
e

D d D e

D e
)

e o e

)
e

— e o

—

SEQ 0022

THIS TEST WILL START A SEARCH TO CYLINDER °'FC', TRACK 'FT',
SECTOR "FS'. AS SOON AS THE INTERRUPT OCCURS, THE GC BIT IS
SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE IS
REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED AND
CHECKED TO ENSURE IT IS WITHIN TOLERANCE:

B Db Db D

1093
1094
1095
1096
}88;

1084
1085
1086
1087
1088
1089
1090
}835

MACRO v03.01 11-APR-80 15:01:20 PAGg 3219

CZRMVAO RMO5/3/2 EXT'D DR TST

9.13

FOLLOWING PARAMETERS:

1
0

822

TEST 14 - ACCESS TIME MEASUREMENT
THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER

‘'FC'

CYLINDER 'LC', THEN A REVERSEK FROM CYLINDER 'LC' TO
CYLINDER "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 MS.
THE

TEST USES THE FOLLOWING PARAMETERS:

'FC'

THE TEST USES THE FOLLOWING PARAMETERS:
R
FC

9.15

1
0

822

TEST 16 = 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 IS
CLEARED (TO 177400) AND THE DATA 1S READ AND COMPARED.
THEN SECTOR 0
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
REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-31.

9.16

I
L

OO
—

—d

TEST USES THE FOLLOWING PARAMETERS:
|

THE

—

VOO OVOOVOOVEEMMMOOEOOOCD
NN NN NNNNNNOOC OO OO VWVIVIVVWVIVIVWVIWWWNES S
NOWVMS NN =OVRONO WS WN =DV
NO VS WN OOV NO WS WN = O V00N
VI NN = OO 00NN VIS NN —

D i

e
D e

D ol

D e
D

D e
el

D e
e

D e

e
o

D el
D

D e
e

TEST 15 = MAXIMUM SEEK TIMING TEST

54 MS,

D il

D e

e
e
D e

D il
D

255

THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK
TIME.
THIS_SEQUENCE IS REPEATED 128 TIMES (FOR
A TOTAL OF 256 SEEKS).
THE MAXIMUM SEEK TIME MUST BE LESS THAN

D e
)

D e

1
0

CYLINDER 'LC', THEN A REVERSE SEEK FROM CYLINDER 'LC' TO
CYLINDER 'FC'.
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE

D il
il

e
D e

D
)
- —ld

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER

D
D

D e
D
D

D D

e
D e

) D e

9.14

D o

) —ld

R
FC

SEQ 0023

TEST 17 = TRACK ADDRESSING TEST
THIS TEST WILL WRITE DATA IN THE FORM OF

TRACK ADDRESSES

IN CYLINDER ''FC" SECTOR ''fFS'' OF EVERY TRACK WITH EACH TRACK

GETTING ITS OWN TRACK ADDRESS.
A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO INSURE

) e

REWRITTEN AND TRACK 2 THROUGH LAST TRACK IS WRITE CHECKED.

THE TEST USES THE FOLLOWING PARAMETERS:

IS WRITE CHECKED.

THEN TRACK 1

THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING NEXT TO
LAST TARCK AND WRITE CHECKING LAST TRACK.

) el
D

THROUGH LAST TRACK

s -

el
e
e
—

D el

) el

D e

THEN TRACK O IS REWRITTEN AND TRACK 1

D il el -

THE DATA IS VALID.

D e
e
e e

MACRO v03.01 11-APR-80 15:01:20 PAGEK 3320

D el

CZRMVAO RMO5/3/2 EXT'D DR TST

C
S

9.17

TEST 20 - DATA TEST

1
0
0

aA.lalalMal’aMlialalNalSaNlaSlaAlalMalMoaAleMlAl|TMaVAlalN"alaAlaNlalaNlalIaNlalaloalaVlalAl1L|-~Or-<—owQ<.=<wJdJd-o
AMNMNOVIMARNRARNRARARAN|vNIMAMAMNOITOOOOOOANVOO OKw—BT<

Da~OONOOOvlNJ00—naATOlO0M00O0Aaa’Ol0—AnOV0aOrN0lOa00OM0anONONlOOA0aIS00eMlOTOAOTTr0MVlOTO0’00A~OTaNOrO0MTWTNlOOO’00O—AvS—eOO’TN0NNV0SrIO¢’OTIOTAOSDrTOLTOAOOOSNarTAL0WRaOSrOOOA~T00LVrN~aAK|||||1|N0A€A<Ae=€4l0BVOOOOOOMN00LMOOOOA0—00ONNOMO0CI0A00LMNONOOI’aMO000N0N0O—eAUIOMOOOMN0M’00T0AONOOLONRA0M0CaAr0MNNONOOLNOlOIM00NrN—OM0’NOAIMM0N0rNrNOAOMOAmMNMIrNA00LN’MMOOOAOArNNOMM0OMaIeNNOLNAraN0OONMGeATLaNNrMMa|=1|B|1I1||<A-10<-v<Ivw—LUIvv_Owt~wJ—Uiv—0~-WOvMWFNZvXW@—IoOZWrx~VOWoOoMv_uV—W-J~wWVWWXoOOO0O0o>W«FOICO0-EOXO<O0WWOWE0-oWMwDZSOOIOx=WTWwO.BLJEOW<OT—OCWWUETOw-DoXwXXIwY[&aEX—0
NNleeOOlleeOllOoelleOOelloDal0lOeOelle0loOOelleOel0leeOllOeell0=eOlleOO=leellOeO]R|RN=lABOL—AoeLIVOLAlIIOLIAA0RLA~AMASLINA~eINALvILR=L1 w@->-3<-[3-|39a=Ll

NNOeOeOI~~AMA—A—N—MNM—oreAOOT]—N0reRAMONN—MOLNN0ArerM—NNOeNeOI0MMOANOeMN0rONNoAeNOeMNARNOe0NAMNOAeoNONeOMAA0NRAreMONNONAAOeOeMMSAA—AOMNAMOmrAeNONNSrOO—NNMMAreAAAOO—NNerONMM—NNA1(I||1||=|G=ANOO€=<eQ<g4€A—AOI0INOnrO.r—OT—=MNMMWNONOTAN—MINAIrMVMNNOM~TNMAOAN—rSTONWrMTMMNEVON—TNOOTrNNMOMrM—ONoOVNNIM—OROAMMTNN~I0NM0NINVOMINrNeMV—EMNr|NoNMNMSONMIINNOWeNNMMNVlNSMo0OOTTNANMANtTNDA|II11IO|I0T0WQNOO=—€A<lAeVArNCex—-LWTIah(wwOEN-dw.vl3w-owO0eWEoJoCOwMDIO@-UBvE3aXWWaoUwNVZV>oCOE-XUOTVwIXVW&VwYNT0X<W=WW<=-—oVoOVXeE-P—-O>=U-DIX=wOW—"oE=oMN&o-w2”W-u¢xWm9O:IT=O_TDW*»WTQ>oo.NE>ENTX-.OTMwUIrOwS0Tu“-=“.—VwOT=-ev[o=T
MACRO v03.01

TNMIONNNVP—DNMINND—MITPOORO—MITOIOOrM-I “MNeaV[wl|—oxloMaaao AN“O|O=I.D12MIWNONwAOIEXVN1O<NoX|OMOrWMM-O~rMEOCXuONEXONO|wDIMvNm-NwAN—VONoE3NO<TNOCNLON<O =€O|ANUM2<NMIOWNM=TNAwNAN-RA~NAR+uNMARNvATNRAWNwN OANW1VMwC&=cTJw-NxedV— rwOA|a=reoIvx—Orw0Eo I1ITOMN2XMAN-MNCMONoMNOxAMLNAMNAwMORAN—’NAORNMaAN-RNN

=
<
2
a
w
x
Q
.
u
"
O
w
X
a
X
x
a
J€WXIVCuT.—ZwvO_COWrV TXEw-WOLED<Oue.N—Y <Tx1Z<E—I)T3X_V €IWNvOUn«W.

11-APR=80 15:01:20 PAG E 3-21

~ | ONANANARNNANARNRANANARA
OO~ OO0
——dAE L Cwxw OCI OO0

bt el e & QD N 1 OTOO0OO0O0OO0O0OOOOOOOOO O | OVIMARARNNANRAANNANANANAN

< XXxw—wxaw 2< &x<<|2&X-,0

CZRMVAO RMO5/3/2 EXT'D DR TST

&
SEQ 0024

P“4LYl..-N

=- t

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

SEQ 0025

NN
NN NN NN NN NN NN NN
NNNNSNNNSNNNoOooo
OO OO
VNN

CZRMVAO RM05/3/2 EXT'D DR TST

NO VSN
NOWVMS NN = O OO NO VNS NN = OOV

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

|
128
128
D il el i

128

9.18

822

.
-

IT*

LS
PAT

64
0
4
1

0
1

0
177777

TEST 21 = RANDOM ADDRESS AND RANDOM PATTERN TEST
IS 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 T0 20,000.

1)
2)

3)
4)

5)
6)
7)
8)

D i

i i

9)
100

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

GENERATE A RANDOM_ ADDRESS
READ THE SECTOR AT THE ADDRESS
GENERATED IN 3.

DO A SOFTWARE CHECK OF THE DATA READ
DO A WRITE CHECK OF THE DATA WRITTEN
GENERATE A RANDOM_ ADDRRESS
READ THE SECTOR AT THE ADDRESS
GENERATED IN 7.
DO A SOFTWARE CHECK OF THE DATA READ
DO A WRITE CHECK OF THE DATA WRITTEN

D e
D

v
FC
LC
9.19

IN 8
IN 2

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:

2
—

— e

IN &.
IN 2

THE TEST USES THE FOLLOWING PARAMETERS:

il
D i
D i
il e

1
0

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

2
2
2

»
-

295

D e

IC
F1
LT
17

FT1'

128
|
1288
1289
290
291
292
293

uumgumuuu
=3=]
- OV~ 8\03* WN=O

LT’

28
28
28

R
FC

D il i

= OOV~

THE TEST USES THE FOLLOWING PARAMETERS:

R
FC

5000
0

[« (R NTe QW F JVIT N7

D e

il
il

MACRO v03.01 11-APR-80 15:01:20 PAGEN 3223

i
e

e
s

e
—

NN
NN NN

CZRMVAO RMO5/3/2 EXT'D DR TST

10.

PROGRAM LISTING

255

SEQ 0026

CZRMVAO RMO5/3/2 EXT'D DR TST

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

SEQ 0027

;PROGRAM REVISION #001
.TITLE
CZRMVAO RM05/3/2 EXT'D DR TST
s*COPYRIGHT (C) 1980

;*DIGITAL EQUIPMENT CORP.
'HAYNARD MASS. 01754

'PROGRAH BY MIKE LEAVITT
tTHlS PROGRAM WAS ASSEMBLED USING THE PDP-11

:'PACKAGE (MAINDEC-11-DZQAC~C4), 1980.

BTTL

.SBTTL

OPERATIONAL SWITCH SETTINGS
SWITCH

USE

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

VoW

TYPE

TEST NUMBER

BELL ON ERROR
LOOP ON ERROR
OPERATIONAL SWITCH SETTINGS
—

Q-.-...o..l-'-.

S
VWAL VWA

DNV
WA —=O 0

-n-nnnn..--nt-.:m.nonno.n

'SBTTL

SWITCH

USE

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
PRINT ERROR MESSAGE ON LINE PRINTER
READ 'C.SWR' SETTINGS FROM TTY

O—=NWSHI
VO NOOO WS

MAINDEC SYSMAC

INHIBIT TIME REPORTS (TESTS 12-15)

REPORT ONE ERROR PER SECTOR

(TESTS 16 & 17)

INHIBIT WRITES (TEST 20)
INHIBIT WRITE CHECKS (TEST 20)

INHIBIT READ AND SOF TWARE COMPARES (TEST 20)
INHIBIT SOFTWARE COMPARES (TEST 20)
PERFORM READ AFTER WRITE CHECK ERROR (TEST 20)

CONTROL SWITCH SETTINGS

i+
L

i
i
i

i
i
i
i
i
i
i

i
i

SWITCH

STATE

USE

0
1

WRITE PACK BEFORE TESTING (TEST 21)
INHIBIT WRITING PACK BEFORE TESTING (TEST 21)

1
0
1
0
1
0
1
0
1

STALL AFTER EVERY DRIVE FUNCTION
USE SPECIFIC STALL TIME
USE RANDOM STALL
NO INCREMENTING STALL IN TEST &
DO INCREMENTING STALL IN TEST 4
DO IMPLIED SEEKS WITH DATA TRANSFERS
DO EXPLICIT SEEKS BEFORE DATA TRANSFERS
DO “READ HEADER AND DATA'' IN TESTS 0-11
DO EXPLICIT SEEKS IN TESTS 0-11

AP
———

13
12
B

NO STALL BETWEEN DRIVE FUNCTIONS

MACRO v03.01

11-APR-B0

15:01:20 PAGE 4-1
—_O—O—O

SEQ 0028

SeSevevene
.

CIZRMVAO RMO5/3/2 EXT'D DR TST
CONTROL SWITCH SETTINGS

.SBTTL

60 H 4
50 4l

RUN W ATCHDOG TIMER
INH] ] 1T WATCHDOG TIMER
TEST DRIVE(S) IN 32. SECTOR (16 BIT
TEST DRIVE(S) IN 30. SECTOR (18 BIT

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER ##+ 1100 wx«
STACK
= 1100

001100
104000
000004

ERROR
SCOPE

000011

=11

::CODE FOR HORIZONTAL TAB

:gu -

= 177776

: :PROCESSOR STATUS WORD

;sBASIC DEFINITION OF ERROR CALL
::BASIC DEFINITION OF SCOPE CALL

'HISCELLANEOUS DEFINITIONS

LF
CR
CRLF

=12
=15
= 200

::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

STKLMT

= 177774

:sSTACK LIMIT REGISTER

DDISP

= 177570

: sHARDWARE DISPLAY REGISTER

PIRQ
DSWR

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

= EMT
= ]OT

= 177772
= 177570

: :PROGRAM INTERRUPT REQUEST REGISTER
: sHARDWARE SWITCH REGISTER

: *GENERAL PURPOSE REGISTER DEFINITIONS

RO
R1
R2
R3

R4
R5
R6

R7
SP
PC

= %0
= X1
= %2

= 23

: :GENERAL
: ;GENERAL
: :GENERAL
: ;GENERAL

= X7
= %6
= X7

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

= %
= %5
= %6

: GENERAL REGISTER
: ;GENERAL REGISTER
: GENERAL REGISTER

;:*PRIORITY LEVEL DEFINITIONS

000000
000040
000100
000140
000200
000240
000300
000340

PRO

PR3
PR&
PRS
PR6
PR7

=
=
=
=
=

100000

;*"'SWITCH REGISTER' SWITCH DEFINITIONS
SwW15
= 100000

PR1
PR2

140
200
240
300
340

SWi4

= 40000

sw12
Swil
SW10

= 10000
= 4000
= 2000

SwW13

000400

= 40
= 100

SwW09

SWo8

= 20000

= 1000
= 400

;sPRIORITY LEVEL 0

::PRIORITY LEVEL 1
;sPRIORITY LEVEL 2

;sPRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
:sPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

3
&
5
6
7

MODE
MODE

000200

]
]

W
I
I
N
I
COOCOCOOCOOOOO N
O ==MNWH VOO

s
et
e Bt
Be Mot Bt Bt Bt Bt

oo~

TRAPVEC

— ]
— — = —

G
G
R
G
PS S

000034

]
P p—y )

p— —

O=NWSIVONOOOVOO
WO -—
oo
w oo

[+ +]

000004

(BITOO TO BIT15)

uwnhwhnio

= =d OO
=t ed s ed
wvo NOOOVO—=NWSHsW»

0D 0 OO O~

bt b b b W
] )
) -

0D €

s b B0 bt bt bt bt

@ @ D 0D €

]
I
e T
D

000002
000001

0D o Cd G G

|
|
|

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

DATA BIT 8EF681110NS

100000

SW9=5w09
Sw8=Sw08
SW7=Sw07
SW6=5W06
SW5=SwW05
SW4=SW04
Sw3=Sw03
Sw2=Sw02
SW1=5w01
SW0=Sw00

o Cd 0o o M

000001

11-APR-80 15:01:20 PAGE 4=2
—_-POES NS =N
[=lelele
e
oo

. BASIC DEFINITIONS

MACRO v03.01

"'CPU'" TRAP VECTOR ADDRESSES
;sTIME OUT AND OTHER ERRORS
10
;;R$§ESY$D AND ILLEGAL INSTRUCTIONS
WNANNOND
=8 b et e S~
SO
0SS

* CZRMVAO RM0S5/3/2 EXT'D DR TST

;s TRACE TRAP

s sBREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (10T) #«SCOPE*+
;sPOWER FAIL
JsEMULATOR TRAP (EMT) ++ERROR*«

;1 ""TRAP'" TRAP

SEQ 0029

CZRMVAO RMO5/3/2 EXT'D DR TST

BASIC DEFiNITIONS

000060
000064
000240

MACRO v03.01 11-APR-80 15:01:20 PAGE 4:3
TKVEC
= 60
TPVEC
= 64
PIRQVEC = 240

SEQ 0030

;:T1Y KEYBOARD VECTOR
::TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

.SBTTL

sCONTROL AND STATUS REGISTER 1 (RMCS1)

86
87
88
89
90
9
92

000100
000200
000400
001000
002000
020000
040000

RH11/RH70 REGISTERS

1E
RDY
A6

= 100
= 200
= 400

:SC

= 100000

A17
PSEL
MCPE
TRE

=
=
=
=

; INTERRUPT ENABLE (BIT #6)
sREADY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT (BIT #8)
;HIGH ORDER BUS ADDRESS BIT (BIT #9)
sPORT SELECT (BIT #10)
:MASSBUSS PARITY ERROR (BIT #13)
:TRANSFER ERROR (BIT #14)

1000
2000
20000
40000

;SPECIAL CONDITION (BIT #15)

;WORD COUNT REGISTER (RMWC)

;(EACH BIT IS CALLED BY BIT NUMBER)

:BUS ADDRESS REGISTER

(RMBA)

138

s(EACH BIT IS CALLED BY BIT NUMBER)

}85

;CONTROL AND STATUS REGISTER 2 (RM(CS2)

103
104
105

106
107
108

109
110
1M
112

113
114
115
116
117
}}g

000001
000002
000004

000010
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

us1
us2
US4

BAI
:PAT
CLR

IR
OR
MPE
MXF
PGE
NEM
NED
UPE
WCE
DLT

z 1
z 2
z 4

=10
= 20
= 40

=
=
=
=

=
=
=
=
=
=

100
200
400
1000
2000
4000
10000
20000
40000
100000

;UNIT SELECT
;UNIT SELECT
;UNIT SELECT

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

;BUS ADDRESS INCREMENT INMIBIT
:MASSBUS PARITY TEST (BIT #4)
:CLEAR (BIT #5)

; INPUT READY (BIT #6)
;:OUTPUT READY (BIT #7)
:MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BIT #9)
:PROGRAM ERROR (BIT #10)
:NON EXISTENT MEMORY (BIT #11)
;NON EXISTENT DRIVE (BIT #12)
;UNIBUS PARITY ERROR (BIT #13)
;WR]ITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #M15)

120
}55

;DATA BUFFER REGISTER (RMDB)
;(EACH BIT IS CALLED BY BIT NUMBER)

}52

.SBTTL

}gg

;CONTROL AND STATUS 1 REGISTER. (#00)

RM REGISTERS

127

000001

;60 BIT

131

000020

fFé

= 20

;FUNCTION CODE BIT #4

128
129
130
132
}gz

000002
000004
000010

000v40
004000

F1
F2
F3

FS
DVA

s 2
z 4
=10

= 40
= 4000

(BIT #0)

.FUNCHON CODE BIT ¥
;FUNCTION CODE BIT #2
;FUNCTION CODE BIT #3
;FUNCTION CODE BIT #5
‘DEVICE AVAILABLE (BIT #11)

(BIT #3)

CZRMVAO RMO5/3/2 EXT'D DR TST

RM REGISTERS

}gz

MACRO v03.01

sDRIVE STATUS REGISTER (RMDS)

137
138
139
140

000001
000100
000200
000400

oM
vy
DRY
DPF.

142
143

002000
004000

LST
WRL

145

020000

141

144

146

}2;

001000
010000

MOL

= 10000

sMEDIUM ON-LINE

040000

ERR

100000

= 20000

(BIT #12)

;POSITIONING OPERATION IN PROGRESS (BIT #13)

= 40000

;COMPOSITE ERROR

= 100000

(BIT #14)

;ATTENTION ACTIVE (BIT #15)

= 1
z 2

:ILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)

000010
000020
000040
000100
000200
000400
001000
002000
004000

PAR
FER
WCF
ECH
HCE
HCRC
AOE
1AE
WLE

=
=
=
=
=
=
=
=
=

:PARITY ERROR (BIT #3)
;FORMAT ERROR (BIT #4)
:WRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BIT #7)
;HEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)
;INVALID ADDRESS ERROR (BIT #10)
;WRITE LOCK ERROR (BIT #11)

020000
040000
100000

0Pl
UNS
DCK

= 20000
= 40000
= 100000

000004

010000

RMR

DTE

= 4

;REGISTER MODIFICATION REFUSED (BIT #2)

10
20
40
100
200
400
1000
2000
4000

= 10000

;DRIVE TIMING ERROR (BIT #12)

MAINTAINABILITY REGISTER #01
000001
000002

000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000

100000

}g;
189
190
191

ATA

(BIT #9)

;LAST SECTOR TRANSFERRED (BIT #10)
;WRITE LOCK (BIT #11)

ILF
ILR

}gg

180
181
182
183
184
}gz

PIP

= 2000
= 4000

;ERROR REGISTER #01 (RMER1) (#02)

154
155
156
157
158
159
160
161
162

170
171
172
173
174
175
176
177
178
179

:OFFSET MODE
sVOLUME VALID (BIT #6)
;:DRIVE READY (BIT #7)
sDRIVE PRESENT (BIT #8)

sPROGRAMABLE

000001
000002

164
165
}gg

1
100
200
400

(#01)

= 1000

151
152

163

s
=
=
=

SEQ 0031

PGM

}gg

153

y
-3
11-APR=80 15:01:20 PAGE &4=4

DMD
LSIT
H &
wD
EECC
wC
CONT
PHA
PDA
ECRC

PLFS
ESRC
REX
EBL
:R/G
occ

= 1
s 2
2 4
=10
= 20
= 40
= 100
= 200
= 400
= 1000

=
=
=
=
=
=

DMD
MSC
M]

(RMMR1) (#03)

= READ ONLY BITS

:DIAGNOSTIC MODE

2000
4000
10000
20000
40000
100000

:MAINTAINABILITY REGISTER #01
000u01
000002
000004

;OPERATION INCOMPLETE (BIT #13)
:DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 15)

s 1
z 2
= 4

(RMMR1)

(#03)

= WRITE ONLY BITS

;:DIAGNOSTIC MODE BI1T

MwP
DTG
MS
MDF
MSER
MoC
MUR
MRD
MCLK
MSEN
DTO

OBEN
0BCK

000200

ATO
AT1
AT2
AT3

(RMAS)

sDEVICE
sDEVICE
sDEVICE
sDEVICE
sDEVICE
sDEVICE
sDEVICE

AT4

ATS
AT6
AT?7

(#04)

sDEVICE

(BIT #4)

(BIT #5)
(BIT

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

D100
D101
D102
D103
D104
D105
DT06
D107
D108
DRQ

MOH
TAP
NBA

#6)

(BIT #7)

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

;DRIVE TYPE REGISTER (RNDT)

#0)
#1)
#2)
#3)

(BIT
(BIT
(BIT
(BIT

(#05)

(#06)

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

= 20000
= 40000
= 100000

TYPE NUMBER
TYPE NUMBER
TYPE NUMBER
TYPE NUMBER
TYPE NUMBER
TYPE NUMBER
TYPE NUMBER
TYPE NUMBER
TYPE NUMBER
REQUEST REQU

;DRIVE
;DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
;DRIVE

;MOVING HEAD (BIT #
;TAPE DRIVE (BIT #14

sRM MAINTAINABILITY REGISTER #2 (RMMR2)

;RM ERROR REGISTER #02 (RMMR2)

( #10)

(#10)

—O
SN

OO oOO

rerrr

—
e
b

hnale
o B o B o B o]

mmmmim

—

o
S
-4

P -

—_————

00000

alnlalnls

= 1000
= 2000

mmmmm

:SC3
:SC4

= 100
= 200
= 400

sCO
SC1
SC2

D (BIT #11)

:NOT BLOCK ADDRESSED (BIT #15)

:LOOK=AHEAD REGISTER (RMLA) (#07)
000100
000200
000400

OO NN
NN —

000001
000002
000004
000010
000020
000040
000100

PSEUDO-REGISTER

wvurmmumoom

NNV
NN NN NN NN NN N
WWN N NN
NN W WO NN
NNV
= bbssbsss

VWONO VNS WA —=OVONOWVSNWN
2OV NO WV WN—=O

JATTENTION SUMMARY

100000

SEQ 0032

-+ 0D 0D 0000 0o O

000010

e (ad TED e
e b0 b
0 by e bt e
N T
— —4

RM REGISTERS

MACRO V03.01 11-APR=80 15:01:20 PAGE 4=5

NOWVS
NN —-O

CZRMVAD RMO5/3/2 EXT'D DR TST

CZRMVAD RMO5/3/2 EXT'D DR TST
NN
N NN NN N~
VWY
AWNWD Lval
VONO WV WN—=O 0

RM REGISTERS

MACRO v03.01

H
3
11-APR=-80 15:01:20 PAGE 4=6

;OFFSET REGISTER (RMOF)
000200
002000
004000
010000

OFD
HCI
ECI

FMT16

SEQ 0033

(#11)

= 200
= 2000
= 4000

= 10000

;OFFSET DIRECTION (BIT #07)
;HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT

(BIT #12)

sDESIRED CYLINDER ADDRESS (RMDC) (#12)
: (EACH BIT IS CALLED BY BIT NUMBER)

sCURRENT CYLINDER ADDRESS (RMHR) (#13)
; (EACH BIT IS CALLED BY BIT NUMBER)

O ~NO WV —_

NNNNNNN ~

NN
NN

;SERIAL NUMBER REGISTER (RMSN) (#14)
: (EACH IS CALLED BY BIT NUMBER)

020000
040000

:RM ERROR REGISTER #02 (RMER2)

(#15)

OPE
SK1

;OPERATOR PLUG ERROR (BIT #13)
;SEEK INCOMPLETE (BIT #15)

20000
40000

;ECC POSITION REGISTER (RMEC1) (#16)
s (EACH BIT IS CALLED BY BIT NUMBER)

;ECC PATTERN REGISTER (RMEC2) (#17)
; (EACH BIT IS CALLED BY BIT NUMBER)
,'.".'.'..."l."""""""'t"".'.tl.ttt""."t'"!'t't.t""

279

;sOP CODE DEFINITIONS

NOOP

UNLOAD
SEEK

= 101

= 103
= 105

RECAL
= 107
= 11
DRVCLR
RELEASE = 113

OFFSET

= 115

= 131

RTC
READIN
PACK
WRCKD
WRCKHD
WRITE
WRTHD
READ
READHD
GETREG

= 117
= 121
= 123
=
=
=
=
s
=
=

151
153
161
163
1N
173
141

SETFORM = 143
SELDRV = 145

;OTHER EQUATES

177400

SCTRWC

= =256.

;WORD COUNT FOR SECTOR

CZRMVAD RMO5/3/2 EXT'D DR TST

RM REGISTERS

307
308

MACRO v03.01 11-APR-80 15:01:20 PAGE &=7
.SBTTL

000000

000174
000176

DISPREG: .WORD 0
SWREG:

N BT o 2.
[« XV P

NN NN NN NN
-J—‘-.—.—l—‘—io

: 1SOFTWARE DISPLAY REGISTER

::SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000137

004570

JMP

A#STARTI

000204

000137

004612

JMP

BNSTART2

;SELECT OPERATING PARAMETERS

000210

000137

004560

JMP

BNSTART3

;SELECT RH/RM ADDRESSES

000214

000137

004602

JMP

A#STARTS

;COMBINATION OF

.SBTTL
A

Voo~

000052

*HOOKS REQUIRED BY ACT11

.SBTTL

204 AND 210

:SAVE PC

iggng

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

20000

~=$SVPC
.=1100

PROGRAM

sszzc=.

.WORD

000220
001100

:;JUMP TO STARTING ADDRESS OF

ACT11 HOOKS

000046

.WORD

000200

000220

TRAP CATCHER

:'LOCATION19‘CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

—

SEQ 0034

s*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A "', 42 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

.SBTTL

:32)SET LOC.52 TO 20000
*:"RESTORE PC

APT PARAMETER BLOCK

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

sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
IR

001100

8X=,

.=2
200

000024
000044

R R

NN N R RN RN RN RN RN R RN RN RN

: :SAVE CURRENT LOCATION

::SET POWER FAIL TO POINT TO START OF PROGRAM
::FOR APT START UP

.=bé
:;POINT TO APT INDIRECT ADDRESS PNTR.
SAPTHDR ;;POINT TO APT HEADER BLOCK
«=.8X
;;RESET LOCATION COUNTER

001100
001100

RN RS

-0

o000
—

e
et i

B e

80000

OO0
O

e
e

sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
s INTERFACE SPEC.
000000
001234
001604
001604
001604
000u30
001114

$APTHD:
$HIBTS:
SMBADR:
$TSTM:
$PASTM:
SUNITM:
TAB.XY=,

.WORD
.WORD
.WORD
.WORD
.WORD

LWORD

0
SMAIL
900.
900.
900.

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)
::RUN TIM OF LONGEST TEST
s:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QuUICK VERIFY)
;:ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

SETEND-SMAIL/2

::LENGTH MAILBOX-ETABLE (WORDS)

;COMMON TAG STARTING ADDRESS

CZRMVAQ RM05/3/2 EXT'D DR TST

APT PARAPETER BLOCK

520
524

MACRO v03.01

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

SEQ 0035

CZRMVAO RM05/3/2 EXT'D DR TST

COMMON TAGS

MACRO v03.01

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

SEQ 0036

.SBTTL

COMMON TAGS

MAAAA LA

AR A

]

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
:*USED IN THE PROGRAM.
001114
001114

001116
001117

001120
001122
001124
001126
001130
001131
001132
001134
001136

001114

S$CMTAG:

000000
000
000

$STSTNM:
SERFLG:

000000
000000
000000
000000
000
001
000000
000000
000000

$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
$GDADR:
$BDADR:

000000
000000
000000
000000

$GDDAT:
$BDDAT:

.=TAB.XY

MWORD

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

0
0
0
0
0
1
0
0
0

.BYTE
.BYTE

001140
001142
001144
001146
001150
001151
001152
001154
001156
001160
001162
001164
001166
001170
001171
001172
001173
001174

000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000

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

001176
001200
001202
001204
001206
001210
001212
001214
001216
001220
001222
001224
001230
001231
001232

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
207
077
015
012

$SREGO:
.WORD
$REG1:
.WORD
$REG2:
.WORD
$SREG3:
.WORD
$SREG4:
.WORD
$SREGS:
.WORD
$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
.WORD
$TIMES: 0
$ESCAPE:0
SBELL:
.ASCIZ
$QUES:
.ASCI1
$CRLF:
.ASCII
SLF:
LASCIZ

377
000

377

ssSTART OF COMMON TAGS

0
0

;sCONTAINS THE TEST NUMBER
:sCONTAINS ERROR FLAG

0
0
0
0

;sCONTAINS 'GOOD' DATA
:sCONTAINS 'BAD' DATA
s sRESERVED==NOT TO BE USED

0
0
O
DSWR
DDISP

0
2
12
0
0

ssCONTAINS
2 sCONTAINS
;ssCONTAINS
s sCONTAINS
ssCONTAINS
s sCONTAINS
;sCONTAINS
s sCONTAINS
ssCONTAINS

SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOD' DATA
ADDRESS OF 'BAD' DATA

:sAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR
s sADDRESS OF SWITCH REGISTER
s sADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
:sTTY KBD BUFFER
;sTTY PRINTER STATUS REG. ADDRESS
;sTTY PRINTER BUFFER REG. ADDRESS
ssCONTAINS NULL CHARACTER FOR FILLS
ssCONTAINS # OF FILLER CHARACTERS REOUIRED
;s INSERT FILL CHARS. AFTER A "'LINE FEED'
ss"'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
;sCONTAINS THE ADDRESS FROM

;sWHICH (SREGO) WAS OBTAINED
;;CONTAINS ((SREGAD)+0)
:sCONTAINS ((SREGAD)+2)
s sCONTAINS ((SREGAD)+4)
::CONTAINS ((SREGAD)+6)
;sCONTAINS ((SREGAD)+10)
:sCONTAINS ((SREGAD)+12)
::USER DEF INED
:sUSER DEF INED
:sUSER DEF INED
ssMAX. NUMBER OF ITERATIONS
ssESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
77/
s sQUESTION MARK
<15
:sCARRIAGE RETURN
Q12
;.LINE FEED

O
0
0
0
0
0
O
O
O

i 222220222002
RRRRRRRRRRRRR R D)

"SBTTL

APT MAILBOX-ETABLE

CZRMVAO RMOS/3/2 EXT'D DR TST

APT MAILBOX~ETABLE

MACRO v03.01 11-APR-80
A

001234

EVEN

000000
0

AR A

SMAIL:
$SMSGTY:
SFATAL:
$TESTN:
¢

.WORD
+WORD
.WORD
.WORD
.WORD

«WORD

D: .WORD

000000

.WORD

".BYTE

000
000
000000
000000
000000

: 3

80 15:01:20 PAGE 5-1

.BYTE

G: .WORD

.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

0N B
>

MS1:
YP1:

PPN

000
000

.BYTE
.BYTE

AMAMS1
AMTYP1

Se e v

001264
001265

000000

$MADR1:

.WORD

AMADR1

.BYTE
SMTYP?2: .BYTE
$MADR?: «WORD
3 : .BYTE
$SMAMS
SMTYP3: .BYTE
$SMADR3: .WORD
SMAMSS: .BYTE
SMTYP4: .BYTE
$SMADRS: .WORD
$SVECTI: .WORD
SVECT2: .WORD
$BASE:
.WORD
SDEVM:
.WORD
SETEND:
LMEXIT

AMAMS?
AMTYP2
AMADR?
AMAMS
3
AMTYP3
AMADR3
AMAMSS
AMTYP4
AMADRG
AVECT]
AVECT?
ABASE

001270

000
000
000000
000
000
000000
000

000000

$MAMS2:

SEQ 0037
i

SRR

::APT MAILBOX
+sMESSAGE TYPE CODE
ssFATAL ERROR NUMBER
::TEST NUMBER
s sPASS COUNT
+sDEVICE COUNT
++1/0 UNIT NUMBER

s sMESSAGE ADDRESS
s sMESSAGE LENGTH
s sAPT ENVIRONMENT TABLE
s sENVIRONMENT BYTE
s sENVIRONMENT MODE BITS
ssAPT SWITCH REGISTER
s sUSER SWITCHES
;:CPU 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
BIT 1 0=REAL TIME CLOCK
9=FLOATING POINT PRGCESSOR
BIT
BIT
8=MEMORY MANAGEMENT
HIGH ADDRESS,M.S. BYTE
MEM. TYPE,BLKH¥1
EM.TYPE BYTE
==
(HIGH BYTE)

fil

900 NSEC CORE=001

001266

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

p ; .WORD

15:01:

ADEVM

300 NSEC BIPOLAR=002
500 NSEC M0S=003
;sHIGH ADDRESS,BLK#1

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

ssHIGH ADDRESS,M.S. BYTE
s sMEM.TYPE ,BLKAN2
ssMEM.LAST ADDRESS.,BLK#?
ssHIGH ADDRESS,M.S.BYTE

ssMEM.TYPE ,BLK#3
ssMEM.LAST ADDRESS,BLK#3

ssHIGH ADDRESS,M.S.BYTE
s sMEM.TYPE ,BLKNS
ssMEM.LAST ADDRESS.,BLKA4
;s INTERRUPT VECTOR#1,BUS PRIORITYM
;s INTERRUPT VECTORN2BUS PRIORITYA®?
:sBASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP

''TYPE'' ABOVE

- CZRMVAO RMO5/3/2 EXT'D DR TST

. USER DEFINED TAGS

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

.SBTTL

0
0
{
O
0
0
0
176777.3
0,0
0

;CONTROL SWITCHES
;PREVIOUS CONTENTS OF 'C.SWR'
;CONTROL "'C'' FLAG
;GET 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
:fihgcxls;c{gstgo=no CLOCK,+1=KW11=P,

000020
040432
000000
000000
000000
000000

TICKMS:
TICKUS:
BYPASS:
CHKDRV:
DRVMSK:
SVSTAT:

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

16.
16666
0
0
0
0

;16 MILLISECONDS PER CLOCK TICK
;16666 MIRCOSECONDS PER CLOCK TICK

001356
001360
001362
001364
001366
001370
001372

000000
000000
000000
000000
000000
000000
000000

CYL.RD:
TRK.RD:
SEC.RD:
CYL.DS:
SEC.DS:
TRK.D.:
LSTRK:

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

O
0
0
0
0
0
0

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

TIM.UP:

:
1
|
;
|
.

001374
001376
001400
001402
001404
001410
001412
001414
001416
001420

.WORD
WORD
WORD
WORD
.WORD
WORD
.WORD
MWORD
WORD
WORD

0
0
0
0
0,0
0
0
O
O
O

|
|

001426
001430
001432
001434
001436
001442
001444
001446
001450
001452
001454
001456
001460

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

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

0
O
O
0
0.0
0
0
O
=<256.%32.>
10.
10.
5000.
25.

.
|

i
'

000000
000000
000000
000000
000000
000000
176777
000000
000000

001342
001344
001346
001350
001352
001354

USER DEFINED TAGS

C.SWR:
.WORD
SAVCSW: .WORD
CNTRLC: .WORD
BUSADR: .WORD
LPTAVL: .WORD
DRVSEL: .WORD
TSTNMS: .WORD
OPNFLG: .WORD
CLKSTA: .WORD

001314
001316
001320
001322
001324
001326
001330
001334
001340

SEQ 0038

001422

001462

001463

001464
001466

000000

144

000

000v00
000000

000003
000000

000000
TIM.DN:

000000

.WORD

TIM.PT:
WCEFLG:
STALLO:
SVADR:
SEKTMR:
SEKCNT:
DELTA:
TRCKWC:
STALL1:
STALL2:
STALL3:
MXSTAL:

ERR.CT: .BYTE

BASFLG:
XXDP:

.BYTE

.WORD
.WORD

;:DRIVE UNDER TEST
;:DRIVE MASK BIT
:STATUS/ERROR INDICATOR 1S

;SAVED HERE ON AN ERROR
:CYLINDER READ
: TRACK READ
:SECTOR READ
;:CYLINDER DESIRED
:SECTOR DESIRED
;TRACK DESIRED
:CONTAINS THE LAST TRACK OF THE UNIT UNDER
;TEST. RM02/3 = 4., RMOS = 18,

;MINIMUM TIME

;NUMBER OF COUNTS BELOW MIN. LIMIT
:MAXIMUM TIME
:NUMBER OF COUNTS ABOVE MAX. LIMIT

;TOTAL TIME OF ALL SEEKS
;NUMBER OF SEEKS PERFORMED
;MINIMUM TIME
;NUMBER OF COUNTS BELOW MIN. LIMIT
;MAXIMUM TIME
:NUMBER OF COUNTS ABOVE MAX. LIMIT

0,0

;TOTAL TIME OF ALL SEEKS

100.

;NUMBER OF ERRORS ALLOWED IN TESTS 16 = 21

0
0
O

;NUMBER OF SEEKS PERFORMED
;POINTS TO TABLE OF TIMES
;FATAL WRITE 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 &
;BEFORE GOING TO THE NEXT TEST

;RESERVED

:FLAG FOR DETECTING BAD SECTOR
:THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
:THE PROGRAM WAS LOADED.

THE HIGH BYTE

CONTAINS THE

CIZRMVAO RMO5/3/2 EXT'D DR TST

| USER DEFINED TAGS

MACRO v03.01

N 3
11-APR=-80 15:01:20 PAGE 6-1

SEQ 0039

.SBTTL

NNNNNONNNOWVNO
NNNNNOMNNONS
SO~
VIVTWAWIUSR WAUR « O
— et OSSO
D

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

;TTY PRINTER STATUS
;TTY PRINTER BUFFER

;LINE PRINTER STATUS
;LINE PRINTER BUFFER

]
]
]
]
]
)
]
]
] el]
]

]

)

]

]
]
]
]

T T €D CD T T

>t Pt Bk bt Pt Dt bt bt bt bt

D D

]

elelelelelele
e tontatsted 44"l == olelel=]
NOWVMS NN —=OWVMS NN —=OVO~NO VWS WNV—O

OJ‘OJ*OS&NOOJ‘OW
oo

—‘-—.-J—.—I—I-C—Q-D—QN-QM

;KW11=P VECTOR ADDRESS

TIMING LIMITS

sROTATIONAL TEST TABLES FOR RMO5/3 DRIVES
:60HZ TABLE

T7A:

003244
046261
000000
00331
003255

;RH/RM UNIBUS ADDRESS
sVECTOR ADDRESS AND PRIORITY

.WORD
.WORD
.WORD
.WORD

;S0HZ TABLE

178:

.WORD
.WORD
.WORD
.WORD

SOTATE

1634.
1700.

046261

O CO T T T T T

000100
000200

et Pt bt bt bt b

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

e P

;81T TABLE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

BITS:

et et Bt bt

000102

000240
000106

; ADDRESSES AND V
RM.ADR: .WORD
RHVEC:
.WORD
PXV:
.WORD
PKCS:
.WORD
PKB:
.WORD
PKC:
.WORD
LKV:
.WORD
LKS:
.WORD
TPS:
.WORD
TPB:
«WORD
LPS:
«WORD
LPB:
.WORD

0D D CD O G Cd T O

001470
001472

-n-a-.—.—-o—.—.-.go—a

:'XXDP' DEVICE COPE FOR THE RMO5/3/2.

ROTATE

0
1625.

1709.

CIRMVAO RHOS/SIZ EXT'D DR TST

TIMING LIMITS
|

MACRO v03.01

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

SEG 0040

ROT?TIONAL TEST TABLES FOR RMO2 DRIVES

004766

WORD
.MORD
.MORD

001636
001640
001642
001644

046261

;S50HZ TABLE
1781:
.WORD

005003

.WORD

001646
001650
001652
001654

046312
066464
000000
001274

110:

001656

066357
046464
000000
006200

066424
046464
000000
013104

Te:

001674

.WORD

LWORD

ROTATE

0
2450.
2550.

——

046261

i7A1 TABLE
.MORD

001626
001630
001632
001634

Ll =]

(25.00MS (25.00Ms + 2%)

80TATE

2437,

2563.

:SEEK TEST TABLES

JHI LIMIT

(25.00MS + 2.5

+WORD
.WORD
.WORD

ONECYL
REV
0

: FORWARD

.WORD
.WORD

ACCESS
REV

: FORWARD
+REVERSE
sNO LO LIMIT

.WORD

WORD
.WORD

.WORD
.WORD
.WORD

.WORD

700.

0
3200.

MXSEEK
REV
0

5700.

2.3

;LO LIMIT (gS.OOHS -

sREVERSE
sNO LO LIMIT

sHI LIMIT (7MS)

sHI LIMIT (32MS)
s T ORWARD
;REVERSE
sNO LO LIM{ T

sHI LIMIT

(57MS)

sSPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS
;ROTATIONAL MESSAGE AND LO/HI

001676
001700
001702

046662
003142
003244

001704

046662
003131
003255

:60HZ TABLE
SP7A:
.WORD
.WORD
.WORD

:S50HZ TABLE

SP7B:

.WORD
.WORD
.WORD

MSG7XA
1634,

LIMITS FOR RMO5/3 DRIVES

{(16.67MS
} .
(16.67MS

1700.

;L0 LIMIT
PRI LIMIT

MSG7XA
1625.
1709.

;LO LIMIT (16.67MS - 2.
sHI LIMIT (16.67MS + 2.

;ROTATIONA% MESSAGE AND LO/HI LIMITS FOR RMO2 DRIVES

046737
004622
004766

046737
004605
005003

001726
001730

047012
000000

J60HZ T

SP7A1:

.WORD
.WORD
LWORD

MSG7XB
2450.
2550.

:S0HZ TABLE
SP7B1:
.WORD

MSG7XB

.WORD
.WORD

24L37.
2563.

LO LIMIT

;H1 LIMIT

(25.00

;L0 LIMIT (25.0
sHI LIMIT (25.0

;TIM ING TESTS MESSAGES AND LO/HI LIMITS
MSG10X
.WORD
.WORD
«NO LO LIMIT

SP10:

= 2.5%)
+ 2.5%)

CIRMVAO RMO5/3/2 EXT'D DR TST

TIMING LIMITS

001732

001274

001734
001736
001740

047054
000000
006200

001742
001744
001746

047110
000000
013104

001750

002000

MACRO v03.01

¢
C
11-APR-80 15:01:20 PAGE 6-3
.WORD

700.

SP11:

.WORD
.WORD
.WORD

MSG11x

SP12:

.WORD
.WORD
.WORD

MSG12x

SEQ 0041

sHI LIMIT (7MS)

0
3200.

5700.

: STATUS/ERROR MESSAGE POINTER TABLE
MSGB14
.WORD
;OFFLINE OR UNSAFE DRIVE REQUESTED
.WORD
MSGB13
:UNLOAD DRIVE REQUESTED
.WORD
MSGB12
;PERSISTENT UNSAFE
.WORD
MSGB11
sPARITY ERROR OCCURRED

STATBL:

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

MSGB10
MSGBO9
MSGBO8
MSGBO6
MSGBOS
MSGBO4
MSGBO3
MSGBO2
MSGBO1

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
sUNSAFE OCCURRED
sAUTOMATIC RECALIBRATE SEQUENCE OCCURRED
;DRIVE HAS NOT RESPONDED TO PORT REQUEST
;DRIVE HAS BECOME NONEXISTENT

CZRMVAD RMO5/3/2 EXT'D DR TST

ERROR POINTER TABLE

MACRO v03.01

11-APR=80 15:01:20 PAGE 7

.SBTTL

&
SEQ 0042

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
s*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE2:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
i
o
3
i

EM
DH
DT
DF

. 002002

$ERRTB:

;*ERROR

7
8

e
o

11 002002

12 002004
13 002006
}g 002010

i
050613
052170
052622

i
.*

UNEXPECTED ATTENTION OCCURRED

ERR PC
SERRPC

047216
050630
052174
052626

DRIVE
SREG!

RMAS
SREG3

RMDS
RMERI1
RMMR?2
RMER2
RMERRS RMERRS+2 RMERRS+4 RMERRS+6

EM2
DHZ2
DT2
DF2

;*ERROR

29
30
gl

;*
o
o

MASSBUS PARITY ERROR (MCPE=1)
TEST
ERR PC
ADDRESS DATA
$TMPO
SERRPC RD.ADR RD.WRD

33 002022 047254

EM3

050715
052212
052632

DH3
DT3
DF3

:*ERROR

40
41
2%

.
:
I
047311
050752

$REG3

DH1
DT
DF1

44 002032
45 002034

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

EMI

:*ERROR

34 002026
35 002026
gg 002030

THE
THE
THE
THE

$ERRPC

22 002012
23 002014
24 002016
gz 002020

TO
TO
TO
TO

RH/RM INTERRUPT OCCURED (RMAS = 0)
ERR PC
RMAS

047152

19
5?

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

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

BDDATA
RD.WRD

CZRMVAO RMO5/3/2 EXT'D DR TST

ERROR POINTER TABLE

MACRO v03.01

&
E
11-APR-80 15:01:20 PAGE 7-1

&6 002036
2; 002040

DT4
DFé&

;*ERROR

50
51
52
53
54
55 002042

:¥
3

ADDRESS PLUG CHANGE BIT SET
ERR PC
DRIVE
RMAS
RMDS

SERRPC
o
DH2
D12
DF2

052174
052626

;*ERROR
000000
000000
000000
000000

RMERRS

RMER!

RMERRS+2

RMMR?2

RMER2

RMERRS+4 RMERRS+6

7 == NOT USED

000000
000000
000000
000000

l=lelele]

70 002064
71 002066
72 002070

SREG3

& == NOT USED

;*ERROR
69 002062

SREG1

(=lelele]

58 002050
59
60
61
62 002052
63 002054
64 002056
65 002060

SEQ 0043

;*ERROR

i
;e

RH/RM FAILED TO RESPOND TO ADDRESSING

RMCS1
RH.ADR

80 002072
81 002074
82 002076
83 002100

ERR PC
SERRPC

EM10
DH10
DT10
DF10

;*ERROR
it
:®

:®

DRIVE SELECTED IS NOT ONLINE
ERR PC
DRIVE

SREG2

002102

SERRPC

EM1
DH11
D111
DF 1

002110
;*ERROR

:®
:®
:®
:®
2

IMPROPER HEADER DATA
SECTOR
TEST
ERR PC TST PC DRIVE
CYLNDR T RACK
$TMPO
SERRPC SREGO
CHKDRV CYL.DS T RK.DS SEC.DS
BDTRK
GDSCTR BDCYL
BDSCIR
GDTRK
GDCYL
CvL.DS
TRk.DS
SEC.DS CYL.RD
TRK.R D SEC.RD

CZRMVAO RM0O5/3/2 EXT'D DR TST
b-

b bt et et et s 2 O O OO OO o
NO VS NN = OO0~V w

ERROR POINTER TABLE

MACRO v03.01

Hid

11-APR-B0 15:01:20 PAGE

CYLNDR, TRACK, AND SECTOR ARE DECIMAL

o
aalb i
b e
s axld i
il

;*ERROR

) il

002122
0021264
002126
002130

b
B
il

6
0

$GDDAT

000000

b S
b
b

:®

$BDDAT

CYLNDR
CYL.DS

TRACK

TRK.DS

WRDCNT

GDADR

BDADR

SREG4

$GDADR

$BDADR

SECTOR
SEC.DS

DATA COMPARE FAILURE

TEST
$TMPO

ERR PC

SERRPC

GDDAT

$GDDAT

CYLNDR,

owWowm
O =N
O~
—

VWA
S
NN =~

v
j=lelele]

CHKDRY

1
DF14

:®

b e
b @b aud

DRIVE

0
0
DT13A

052334
052672

TST PC
SREGO

BDDAT

$BDDAT

TRACK,

DRIVE

CHKDRV

WRDCNT

SREG4

CYLNDR

CYL.DS

GDADR

SGDADR

TRACK
TRK.DS

BDADR

SECTOR

SEC.DS

$BDADR

SECTOR, AND WRDCNT ARE DECIMAL

EM13
DH12
DT13
DF13

;*ERROR

b aud el

BDDAT

14 == FOLLOWS #13

:®

:*
002152
002154
002156
002160

SREGO

$GDDAT S$BDDAT SREG4
$GDADR $BDADR
CYLNDR, TRACK, SECTOR, AND WRDCNT
ARE DECIMAL

000000

e
i axd el aubd o
b e

GDDAT

;*ERROR

002142
002144
002146
002150

SERRPC

:*ERROR

b cn et

$TMPO

EM13
DH12
DT13
DF13

i @

b wid cxd) @b @D

DATA COMPARE FAILURE
TEST
ERR PC
TST PC

04
05
05
05

D =

WNWRNWURNI W W WWNWNAEN N NN RO N PNONININ =
OOV NO VT WN—=O VN VS NN OV

o
M

VIS S B BB
OVONO VS W =O VO NO WV NN

SEQ 0044

EM12
DH12
DT12
DF12

M
M

anih

7-2

16 == FOLLOWS #15

$GDADR

$BDADR

DISK ERROR IN TIMING TEST
TEST
ERR PC DRIVE
RMCS1

RMDS

SGDDAT

000000
000000
052334
052672

$BDDAT

SREG4

0
0
DT13A
DF14

;*ERROR
i
:*

17
RMER1

RMMR?

CZRMVAQ RMO5/3/2 EXT'D DR TST

ERROR POINTER TABLE

}g?

MACRO v03.01
i

$TMPO

162 002162

047556

EM17

164 002166

052346

DT17

163 002164

}gg 002170

051273

052676

C(HKDRV

169
170
};}

i
..
I

EM20
DH17
D117
DF17

052676

178
179
180

;*ERROR
o

DATA COMPARE FAILURE

182

$STMPO

183
184
}gz
187 002202
188 002204
189 002206

}8? 002210

:*
:*
:*

TEST

047531
051370
052366

052702

SREG!

000000

198 002216

052402

DT21A

000000

CHKDRV

CYLNDR

CYL.DS

TRACK

TRK.DS

$BDDAT

SREG4L

SREG!

052712

DF22

201
202
203
204
205

:*ERROR

58;

:®

.
i
I

047657
051505
052412
052716

DRIVE

22--FOLLOWS #21

196 002212

209 002222
210 002224
211 002226
5}% 002230

TST PC

SREGO

DF21

}gg

206

SERRPC

EM13
DH21
pDT21

;*ERROR

;gg 002220

ERR PC

GDDAT
BODAT
WRDCNT
SECTOR
SREG!
SBDDAT
$REG4
SREG!
CYLINDR, TRACK, WRDCNT, AND SECTOR ARE DECIMAL

}g%

197 002214

RM.REG+12 RM.REG+14 RM.REG'40 RM.REG+42

CLOCK (KW11=P) OVERFLOW IN TIMING TEST
TEST
ERR PC
DRIVE
RMCS1
RMDS
RMER1
RMMR2
RMER?2
$TMPG
SERRPC
CHKDRV
RM.REG
RM.REG+12 RM.REG+14 RM.REG+40 RM.REG+42

047610
051273
052346

181

RM.REG

DF17
;*ERROR

};g 002200

SERRPC

SEQ 0045

DH17

}g;

173 002172
176 002174
175 002176

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

DISK ERROR DURING SEEK
TEST
ERR PC DRIVE
$TMPO
$ERRPC
CHKDRV

RMER1

RMMR?2

CYLNDR
CYL.DS

RMER?2

RMCS!
RMCS2
RMDS
RM.REG RM.REG+10 RM.REG+12

RMDC

RMHR

RM.REG+14 RM.REG+40 RM.REG+42 RM.REG+34 RM_REG*36

EM23
DH23
D123
DF23

%}g

:*ERROR

216

SEEK NOT COMPLETE WITHIN 120 MS

CZRMVAQO RMO5/3/2 EXT'D DR TST

ERROR POINTER TABLE

217
218

:®
.
M

219

%%(1)
222
223
2264
%%2

MACRO v03.01

SEQ 0046

TEST
$TMPO

ERR PC DRIVE
CYLNDR
S$ERRPC
CHKDRV CYL.DS
RMER1
RMMRZ
RMER?

;e
002232
002234
002236
002240

11-APR=80 15:01:20 PAGE 7-4
RMCST1
RM(S2
RMDS
RM.REG RM.REG+10 RM.REG+12
RMDC
RMHR

RM.REG414 RM.REG+40 RM.REG+42 RM.REG+34 RM.REG+36

047706
051505
052412
052716

EM24
DH23
D123
DF23

227

BR
I P T
T e I Y

228

ERRORS

231
232
233
234
235
236
237
238
239
240
261
242
243
244

:*
;*
:*
:*
:*
:*
:*
:*
;*
:*
:*
:*
:*
:*

VARIES DEPENDING ON THE ERROR, IT 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 OPERATION
10) UNSAFE OCCURRED
11) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED

;* ERRORS 4&1-46 WILL HAVE AN EM THAT

%%g

245

246
247 002242
248
249
250
251
252
ggz

255 002242
256 002244
257 002246
ggg 002250

;*ERROR

)
e
.

047746
051637
052442
052726

R T T

DRIVE
CHKDRY

EM41
DH41
DT41
DF41

262
263
Zgg

;e
Hd
o

272
273

RH/RM ERROR (MESSAGE)
TEST
ERR PC TST PC
$TMPO
SERRPC
SREGO

;s*ERROR

271

ITEMGY:

%g?

66 002252
267 002254
268 002256
%98 002260

23-40 NOT USED

RH/RM ERROR (MESSAGE)
TEST
ERR PC TST PC
$TMPO
SERRPC $REGO

047746

EMé

051675
052452
052732

DH&?
DT42
DF &2
;*ERROR

RH/RM ERROR (MESSAGE)

DRIVE
CHKDRY

RMCS1
RM.REG

RMCS?2
RMDS
RM.REG+10 RM,.REG+1?

CZRMVAO RMO5/3/2 EXT'D DR TST

ERROR POINTER TABLE

MACRO v03.01 11-APR-80 15:01:20 PAG% 7=5
4

274
275

34
T

%;g

276

279
280
281
58%

i
002262
002264
002266
002270

TEST
$TMPO

RMER1

TST PC
SREGO

RMMR?2

T
e
e
i
i

RH/RM ERROR (MESSAGE)
TEST
ERR PC
TST PC
$TMPO
SERRPC
SREGO
RMCS1
RMCS2
RM.REG
RM.REG+10

292

RM.REG+14

295 002272
296 002274
297 002276

ggg 002300

i
I

RMER1

gg?

RMER?2

RM.REG+42

EM&1
DH12
DT44
DF &4

s*ERROR 45

302
303
304

i
i*
i*

306

305

RMMR2

RM.REG+40

DRIVE
CYLNDR
TRACK
SECTOR
CHKDRV
CYL.DS
TRK.DS
SEC.DS
RMDS
RMHR
RMDC
RMDA
RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06

CYLNDR,TRACK, AND SECTOR ARE DECIMAL

047746
051057
052514

052746

RH/RM ERROR (MESSAGE)
TEST
ERR PC
TST PC
$TMPO
SERRPC
SREGO

RMCS1

RM.REG

RMCS2

DRIVE
CHKDRV

RMDS

CYLNDR
CYL.DS

RMHR

RMER1

§?3

CYLNDR,TRACK, AND SECTOR ARE DECIMAL

311 002302
312 002304
313 002306

;}g 002310

RM.REG+14

047746
051057
052554

:*ERROR

318
319
320

i*
i
i*

323

i
i*

352

527 002312 047762
328 002314
329 002316
330 002320

051057
052554
052762

RMDA

RMMR?

RM.REG+40

RMER?2

RM.REG+42

RMW(

RM.REG+2

RMBA

RMDB

RM.REG44 RM.REG+22

DF&4S

g%g

324

RMD(C

SECTOR
SEC.DS

EM41
DH12
DT4S

052762

321
322

TRACK
TRK.DS

RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06

307

308

RMCS2
RMDS
RM.REG+10 RM.REG+12

286
287
288
289
290
%gz

RMER?

RMCS!
RM.REG

EM&I
DH&?2
DT43
DF&3
;*ERROR

DRIVE
CHKDRY

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

047746
051675
052470
052736

284
285

ERR PC
SERRPC

SEQ 0047

FATAL WRITE CHECK ERROR (MESSAGE)
TEST
ERR PC TST PC DRIVE
CYLNDR
$TMPO
SERRPC SREGO
CHKDRV
CYL.DS

RMCS1
RM.REG

RMER1

RM.REG+14

TRACK
SECTOR
TRK.DS
SEC.DS
RMCS2
RMDS
RMHR
RMDC
RMDA
RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06

RMMR2

RM_REG+40

RMER2

RM_REG+42

CYLNDR,TRACK, AND SECTOR ARE DECIMAL

EM&6

DH12
DT4S
DF&S

RMW(

RM.REG+2

RMBA

RMDB

RM.REG+4 RM.REG+22

CIRMVAO RMO5/3/2 EXT'D DR TST
ERROR POINTER TABLE

MACRO v03.01

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

&
7-¢

SEQ 0048

TEST PARAMETER POINTERS AND TABLES

-]
[=lelelelelelelele
el

«f se

BPUOWN-A-A4VOOD

O Mot
TM MNe
TM MDD

000000
NCY:
NC2:

002362
002364
002366

003116
003132
003160

PRMPT:

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

.WORD
.WORD

+REPEAT COUNTS FOR ALL TESTS

;FIRST CYLINDER
;LAST CYLINDER
: INCREMENT CYLINDER
sFIRST TRACK
;LAST TRACK
: INCREMENT TRACK
;FIRST SECTOR
;LAST SECTOR

;PATTERN CODE

.0.,0

sFILLER WORDS FOR COMMON TABLE USED BY THE
;"OPNTST' ROUTINE.

0
0

sNEW CYLINDER ADDRESS
sNEW CYLINDER ADDRESS

: TABLE OF PARAME TER POINTERS

—

TMm

: TERMINATOR

O
~NC

0000 ON—

rororornom
NN ND

PRM7
PRM10
PRM11
PRM12
PRM13
PRM14
PRM15
PRM16
PRM17
PRM20
PRM21
PRM22

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

PRMS

PRM6

: TABLE OF PARAME
PRMLMT: .WORD

PRM&

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

PRMO
PRM1
PRM2
PRM3

.WORD
.WORD
.¥ORD
.WORD

THE

;FOLLOWING PARAMETERS ARE TO BE USED

(=1=4

000000
000000

032767

SEQ 0049

:THIS WORD TELLS WHICH OF

— NN — s s S
~ — — 0D 00 OO0

o
o0

bguu\m\n\»
o NT-T.3 5
[=1-

000000

W
owm
oo

Ww
ws “
oo =~

N ~N NN

OO00O00000000

==l=l=l=l=l=lelelel=2

o
o

.WORD

[=3=
o0

T1:

o
o

NN
N NN NN

000000

(=3
Og

.WORD

PRM:

002432

; COMMON STORAGE FOR TEST PARAMETERS

000000

003500
003510
000000

TEST PARAMETER POINTERS AND TABLES

02322

00
000000
000000

e P 0

11-APR-80 15:01:20

«SBTTL

002426
g; 002430
9

MACRO V03.01

nno

PONINUNIN
= b cd b
e d i e

—
CUWN = OVRNO WV
WN=O0VO~NOWNS NN

CZRMVAO RMO5/3/2 EXT'D DR TST

CZRMVAO RM05/3/2 EXT'D DR TST

MACRO v03.01

TEST PARAMETER POINTERS AND TABLES

45
46
47
48
49

002464
002466
002470
002472
002474

(o Lo AV AV IV LW IV LW (W [V [V ]
= OOVONO
WV
N -

50 002476
002500
002502
002504
002506
002510
002512

; TABLE OF

045626
045630
045633
045636
045641

PRMMSG:

045644
045647
045652
045656
045662
045666
045671

000310
000144

66 002636
67 002656

002237
002237

000001
000001

002237
002237
002237

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

001466
000000

DFLT:

.WORD
.WORD

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

.WORD
JWORD

223%7,1,0,822.,1,0,0,0
2237.1.0.822..1.0.0.0

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

2223°1.0.0,0.0
7,1.0.822.

*ROTATIONAL SPEED TIMING TEST (T12)
SONE CYLINDER SEEK TIMING TEST (T13)

000000
000000
000000

JWORD
.WORD
JWORD

667
000237
885537
3
000007

011610
000001
000001
000001
000001

000000
000000
000000

000000
000000

.WORD
.WORD
JWORD
WORD
WORD

667,5000.,0,832.,0,4,0,18.
:RANDOM SEEK TEST (17)
237,1,0,832.,100.,0.0 ~ ;SERVO SETTLE DOWN 1EST (T10)
2237,1,0.822.,1,0.0.0
:ALL SEEKS TEST (T11)

000223
002003
017777
000007

000001
000001
000001
001750

000000
000000
000000
000000

WORD
.WORD
.WORD
.WORD

283:1.0,0.0
*SECTOR ADDRESSING TEST (T16)
200%,1,0,0
:TRACK ADDRESSING TEST (T17)
1777%,1,0.821.,64.,0,4,1.0,18.,1,1,0,177777 :DATA TEST (T20)
7,1000..0.821.
'EXERCISER (T21)

000007
000007

gg 003106

000007

83
84
85
86
87

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

000001
000010
000001

73 003000
74 003010

75 003020
76 003032
77 003042
78 003076

000001
000001

011610

000000
000000

000000

JWORD
WORD

.WORD

2237.1,0.823..1.0,0,0 ° :INCREMENT SEEK (12)
2237.10,0,512.,1,0,06,0 :STEPPING SEEK (T3)
2237.1,0,822..1,0,0,0
:OSCILLATING SEEK (T4)

7.1.0.255.
7.1.0.822.

7.5000.,0,255.

JPARAMETER TABLES

003116
003120
003122
003124
88 003126
33 003130

002225
000310
001466
000000
000000
000000

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

91
92 003132
93 003134

006677
000144

:SEEK/SEEK (T1)
PRM1:
.WORD
6677
.WORD
100.

94 003136
95 003140
96 003142
97 003144
98 003146
99 003150

SEQ 0050

sSTATUS/ERROR INDICATOR MESSAGES POINTER TABLE
sDEFAULT VALUES OF TEST PARAMETERS
002225
006677

68 002676
69 002716
70 oogr
71 002754
72 002770

PARAMETER MESSAGE POINTERS

.WORD
.WORD
.WORD
.WORD
«WORD

«WORC
«WORD
+WORD
«WORD
«WORD
.WORD
«WORD

002514
62 002530

63 002556
64 002576
65 002616

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

000000
000400
000000
000000
000000
000000

WORD
.WORD
WORD
"WORD
WORD
"WORD

O
256.
O
0
O
0

*ACCESS TIME MEASUREMENT TEST (T14)
‘MAXIMUM SEEK TIMING TEST (T15)

:ACCESS TIME ADJUSTMENT TEST (T22)

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01 11-APR=-80 15:01:20 PAGE 8-2

TEST PARAMETER POINTERS AND TABLES

100 003152
101 003154

000000
000000

104
105 003160
106 003162
107 003164
108 003166
109 003170
110 003172
111 003174
}}% 003176

002237
000001
000000
001466
000001
000000
000000

}8% 003156

114

115 003200
116 003202
117 003204
118 003206
119 003210
120 003212
121 003214

}%g 003216

1264

125 003220

126 003222

WORD
.WORD

000000

MWORD

; INCREMENT SEEK
PRM2:
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
LWORD

(12)
2237
1
0
822.
1
0
0

; STEPPING SEEK

(T13)

.WORD

002237
000001
000000
001000
000001
000000
000000

PRM3:

002237

PRM&:

000000

000001

0
0

_WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD

.WORD

2237
1
0
512.
1
0
0

:OSCILLATING SEEK_(T4)
WORD

2237

WORD
.WORD
LWORD

0
B822.
1

.WORD

127 003%56
128 003226
129 003230

000000
001466
000001

134
135
136
137
138

003240
003242
003244
003246

002237
000001
000000
001466

: CONVERGING/DIVERGING SEEK
PRM5:
.WORD
2237
.WORD
1
.WORD
0
.WORD
822.

144
145 003260
146 003262
147 003264
148 003266
149 003270
150 003272
151 003274

002237
000001
000000
001466
000001
000000
000000

: SERVO ADDRESSING LOGIC NOISE GENERATOR (T6)
PRM6:
.WORD
2237
.WORD
1
.WORD
0
.WORD
822.
.WORD
1
.WORD
0
.WORD
0

154
155 003300
156 003302

000667
011610

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

130 003232
131 003234
}gg 003236

139 003250
140 003252
141 003254
}2% 003256

}g% 003276

000000
000000
000000

000001
0000
000000
000000

000000

.WORD
WORD
.WORD

.WORD
.WORD
WORD
.WORD

.WORD

0
0
0

(15)

1
0
0
O

SEQ 0051

- CZRMVAO RMO5/3/2 EXT'D DR TST
MACRO v03.01 11-APR=80 15:01:20 PAGE 8-3
' TEST PARAMETER POINTERS AND TABLES
*

157 003304
158 003306
159 003310
160 003312
161 003314
}gg 003316

000000
001466
000000
000004
000000
000022

MORD
WORD
.MORD
MWORD
MORD
.WORD

164
165 003320

000237

;SERVO SETTLE DOWN TEST
PRM10:
.WORD
237

167 003324
168 003326
169 003330

000000
001466
000144

MWORD
.WORD
.WORD

166 003322

170 003332
};g 003334

173

|
|
|
|

174
175
176
177
178
179

003336
003340
003342
003344
003346
003350

180 003352
}gs
354

183
184 003356
185 003360
186 003362
187 003364
188 003366
}38 003370
191

192
193
196
}gg

000001

WORD

000000
000000

002237
000001
000000
001466
000001
000000

MWORD
WORD

000000

0
822.
0
&
O
18.
(T110)

0
822.
100.

0
O

;ALL SEEKS TEST (T11)

PRM11:

000000
000000
002223
000001

.WORD
LMWORD
MWORD
.WORD
WORD
MWORD

MWORD
WORD

2237
1
O
822.
1
O

0
O

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

(T12)

;:ONE CYLINDER SEEK TIMING TEST

(T13)

(T14)

WORD
MWORD
WORD
WORD

000000
000000
000000

000007
000001
000000
001466

197
198 003402
199 003404

000007
000001

;ACCESS TIME MEASUREMENT TEST
PRM14:
.WORD
7
WORD
1

|
g

203
204 003412
205 003414
206 003416

000007
000001
000000

:MAXIMUM SEEK TIMING TEST (T15)
PRM15:
.WORD
7
WORD
1
WORD
0

209

211 003424
212 003426
213 003430

000223

PRM16:

587 003420

210 003422

000000
000377

001466

000v01
000000
000000

PRM13:

.WORD
WORD
WORD
.WORD

0
0
O
O

003372
003374
003376
003400

200 003406
%8} 003410

SEQ 0052

WORD
.WORD

.WORD

7
1
0
822.

0
255.

822.

:SECTOR ADDRESSING TEST (T16)
.WORD

WORD
WORD
WORD

223

1
0
0

" CZRMVAO RM0S/3/2 EXT'D DR TST

MACRO v03.01

83888

E¥

o or

8888888%8888
83888
L

002003

000000

.WORD

017777

7777

; TRACK ADDRESSING TEST (T17)

PRM17:

.WORD
.WORD

.WORD

000000

.WORD

2003
1

;DATA TEST (720)
PRM20:
.WORD
17777
1
MORD
.WORD
0
.WORD
821.
.WORD
64.
MORD
0
.WORD
&
1
.WORD
.WORD
0
.WORD
18.
1
.WORD
1
.WORD
.WORD
0
PTRN15: .WORD
1

;EXERCISER (T21)7

000007
001750
000000
001465

PRM21:

000007

PRM22:

&H e &5 8N S NN

LRI N1t

vy St et

LA AN N T NT ST ST NT NT NT ST ST ST ST ST V]NN
WIS
PNINIPNVNIMNIF ININININ)
= b s e s e
VOONO WV
NN = OV~

| TEST PARAMETER POINTERS AND TABLES

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

,.WORD

.WORD

1000.

821.

;ACCESS TIME ADJUSTMENT TEST (T22)
,WORD

.WORD
.WORD
.WORD

5000.
0
255.

SEQ 0053

CZRMVAO RMO5/3/2 EXT'D DR TST

DATA PATTERN POINTERS AND TABLES

.'%

MACRO v03.01

5
£
11-APR-80 15:01:20 PAGE 9

SEQ 0054

.SBTTL

DATA PATTERN POINTERS AND TABLES

003520
003522
0035264
003526
0035
003532
003534
003536
003540
003542
003544
003546
003550
003552
003554
’ 003556

003560
003620
003660
00%720
003760
004020
004060
004120
004160
004220
004260
004320
004360
004420
004460
004520

PAT.PT:

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

PATO
PATI
PAT?
PAT3
PAT4
PATS
PATS
PAT?7
PAT8
PATH
PATI10
PAT11
PAT12
PAT13
PAT14
PAT15

;DATA
:DATA
:DATA
:DATA
;DATA
:DATA
;DATA
;DATA
;DATA
;DATA
:DATA
:DATA
:DATA
;DATA
:DATA
;DATA

8 003560
9 003562
10 003564
11 003566
12 G03570
13 003572

066666
066666
066666
066666
066666
066666

PATO:

.WORD
.WORD
WORD
.WORD
.WORD
.WORD

066666
066666
066666
066666
066666
066666

;PATTERN 0

14 003574
15 003576

19 oogggg
17
00
18 003604
19 003606
20 003610

066666
066666
066666
066666
066666
066666

21 003612
22 003614
%2 003616

066666
066666
066666
066666

25 003620
26 003622
27 003626
28 003626
29 003630
30 003632
31 003634
32 003636
33 003640
34 003642
35 003644
36 003646
37 003650
38 003652
39 003654
:? 003656

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

&2 003660
43 003662
&6 003664
45 003666

177776
177774
177770
177760

.WORD
.WORD

WORD
WORD
.WORD
.WORD
.WORD

PATT
PATT
PATT
PATT
PATT
PATT
PATT
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN

066666
066666
066666
066666
0A6666
066666

.WORD
.WORD
.WORD

066666
066666
066666
066666

PAT1:

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

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

;PATTERN 1

PAT2:

.WORD
LWORD
.WORD
.WORD

177776
177774
177770
177760

;PATTERN 2

0
1
2
3
&
5
6
7
8
9
10
11
12
13
14
15

CZRMVAO RMOS /3/2 EX1'D DR TST

DATA PATTERN POINTERS AND TABLES

46 003670
&7 003672
48 003674
49 003676
50 003700
51 003702
Si 003704
53 003706
564 003710
55 003712
56 003714
gg 003716

177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000

59 003720
60 003722
61 003724
6§ 003726
63 003730
64 003732
65 003734
66 003736
67 003740
68 003742
69 003744
70 003746
71 003750

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000

MACRO v03.01

D 5
11-APR=80 15:01:20 PAGE 9-1
.WORD
.WORD
.WORD
.WORD

SEQ 0055

177740
177700
177600
177400

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

177000
176000
174000
170000
160000
140000
100000
000000

PAT3:

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

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000

;PATTERN 3

PAT4:

.WORD
.WORD
.WORD
.WORD

000000
010421
021042
031463

;PATTERN 4

LWORD

177777

S e
76 003760
77 003762
78 003764
79 003766

80 003770
81 003772
82 003774
83 003776
84 004000
85 004002
86 004004
87 004006
88 004010
89 004012
90 004014
31 004016

000000
010421
021042
031463

042104
052525
063146
073567
104210
114631
|§SZS§
13567
146314
156735
167356
177777

9§ 004020 052525

96 004022
95 0064026
006026
97 0064030
98 004032
99 006036
100 006036
101 006040
102 006042

052525
052525
125252
125252
125%52
052525
052525
125252
125252

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

PATS:

042104
052525
063146
073567
104210
114631
125252
135673
146314
156735
167356

.WORD 052525
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

052525
052525
125252
125252
125%52
052525
052525
125252
125252

;PATTERN 5

OONITONIT“oNg
OVOOO~O~

NS DTAIOO0~aaNllWyatN’))NDlaalaTa NaOO lNa DLNbbVaaDAllNLiA IOAAOLRAAM0LLAeA N NIO N o=eee==-

TTT——T—e—e=Te=PT

—28e3——8O3TO3¢—T8v3=8T3TT8¢T8VF—3—W=A8—3TT8TGFe3F—2—3LalT3TNT3T8=TSOe8OPoeN8TPP8eT3TT8T3T8PTWmePeTmTmTmTwTmTmT
0011‘1‘1‘

WIVOGNNOOVUVONVNIOA0N~ArINOO0VVNIV

CZRMVAO RMO5/3/2 EXT'D DR TST

DATA PATTERN POINTERS AND TABLES
MACRO v03.01
11-APR-80 15:01:20 PAGE 9-2

TIVTNSMIVMVIMNM

<
J

SEQ 0056

;PATTERN 6

;PATTERN 7

;PATTERN 8

MLalalalalalalalal222233332222222222222222

3LDLSULIAL65O6V56I5“I5N6L5R0SRNYRAINRFNOANNRNAONSNNNLRNOWOVINMISANISINARIYIL2NL
4388FITIILLILLL$3333343382333334338

1l1l1||1l|1|1l|1Ol|Wln|Ol1lO1NlqO|NlO1V!1'OV1MA!N1AlRcNlAcRlNoANlA!NlMN!AlN.ANlAoNlS.A!NlA.Rl'lcl11‘1‘222222222

O O O O O

—oDOWGg_Tv—~=P
Y SOoosslololololalacdalel

DATA PATTERN POINTERS AND TABLES

CZRMVAO RMO5/3/2 EXT'D DR TST
MACRO v03.01
11-APR =80

15:01:20 PAGE 9-3

f
€
J

SEQ 0057

;PATTERN 9

;PATTERN 10

PATTERN

JPATTERN 12

CIRMVAO RMO5/3/2 EXT'D DR TST

DATA PATTERN POINTERS AND TABLES

217 004372
218 004374
219 004376
220 004400
221 004402
222 004404
223 004406
226 004410
225 004412
226 004414
%%g 004416

175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

229 004420
230 004422
231 004426
232 004426
233 004430
236 004432
235 004434
236 004436
237 004440
238 004442
239 004444
260 004446
241 004450
242 004452
263 004456
523 004456

153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667

266 004460
247 004462
248 004464
249 004466
250 004470
251 004472
252 004474
253 004476
254 004500
255 004502
256 004504
257 004506

263 004520
264 004522
265 004524
266 004526
267 0045
268 004532
269 004534
270 004536
271 004540
272 004542
273 004544

258 004510
259 004512
260 004514
%g} 004516

MACRO v03.01

6 5
11-APR=-80 15:01:20 PAGE 9-4

SEQ 0058

LWORD
LWORD
.WORD
LWORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
WORD

175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

PAT13:

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

153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667

;PATTERN 13

000000
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

PAT14:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

000000
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

;PATTERN 14

177777
000000
000000
000000
000000

PAT15:

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

177777
000000
000000
000000
000000

;PATTERN 15

177777
177777
177777
177777

000000
000000
000000
000000
000000
000000

.WORD
.WORD
.WORD
.WORD

177777
177777
177777
177777

000000
000000
000000
000000
000000
000000

CZRMVAD RMO5/3/72 EXT'D DR TST

DATA PATTERN POINTERS AND TABLES

276 004546
275 004550
276 004552
277 004554
%;g 004556
460

000000
000000
000000
000000
000000

MACRO v03.01

H
S
11-APR-80 15:01:20 PAGE 9=5

.WORD
.WORD
.WORD
.WORD
.WORD

000000
000000
000000
000000
000000

SEQ 0059

CZIRMVAO RM05/3/2 EXT'D DR TST

START OF

PROGRAM

MACRO v03.01

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

.SBTTL

g 004566

3 004560

012737
000402

177777

6 004570
7 0045764
g 004600

005037
005037
000411

001322
001320

10 004602

012737

177777

13 004612
}g 004616

005037
012737

001322
177777

16 004624
17 004626
18 004632
;8 004634

000240
005227
001375
000005

}5 004610

000402

001322

#-1,BUSADR
STRT1A

START1: CLR
STRT1A: (LR
BR

BUSADR
CNTRLC
START

;NO CONTROL ''C"'

001322

START4: MOV

#-1,BUSADR

;SET BUSADR FLAG

001320

START2: (LR
STRT2A: MOV

BUSADR
#-1,CNTRLC

:CLR BUSADR FLAG
;SET CONTROL ''C'' FLAG

¥0
.=b

:iTY LOOP, WAIT FOR INCREMENT
:0F WORD

012706
005026
022706
001374
012706

001100

004656
004664
004672
0047
004706
004714
004722

012737
012737
012737
012737
012737
012737
013737

024646
000340
021532
000340
025174
000340
021200

000020
000022
000030
000032
000034
000036
021172

004736
004744
004750
004754
004762
004770

012737
005037
005037
112737
012737
012737

123456
001220
001222
000001
004762
004770

025650

004776
005002
005010
005016
005026
005032

013746
012737
012737
012737
022777
001012

000004
005036
177570
177570
177777

005034
005036

000403
012716

005044

005044
005052
005060

012737
012737
012637

000176
000174
(00004

005042

00000;

001114
001154

176543

START:

000000

004636
004642
004646
004650
004652

012737

START OF PROGRAM

START3: MOV
BR

004730

SEQ 0060

025646
001131
001122
001124

NOP
INC
BNE
RESET

STRTZA

;GET BUSADR FLAG
: CLR BUSADR FLAG

;CLEAR THE WORLD

.SBTTL
INITIALIZE THE COMMON TAGS
:sCLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
#SCMTAG,R6
:sFIRST LOCATION TO BE CLEARED
CLR
(R6) +
:sCLEAR MEMORY LOCATION
CMP
#SWR ,R6
: :DONE?
BNE
.=6
::LOOP BACK IF NO
MOV
#STACK,SP
::SETUP THE STACK POINTER
;s INITIALIZE A FEW VECTORS
MOV
#$SCOPE ,a#10TVEC ;; 10T VECTOR FOR SCOPE ROUTINE
MOV
#3640,3010TVEC+2 ;;LEVEL 7
MOV
#SERROR,@FEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
#340,9MEMTVEC+2 ;;LEVEL 7
MOV
#STRAP,9#TRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS
MOV
#3640,,9#TRAPVEC+2;LEVEL 7
MOV
SENDCT SEOPCT
;:SETUP END-OF -PROGRAM COUNTER

MOV

#1765645,SHINUM

::PRIME THE RANDOM NUMBER GENERATOR

MOV
#123456,8LONUM ;:BOTH HIGH AND LOW WORDS
CLR
STIMES
ssINITIALIZE NUMBER OF I1TERATIONS
CLR
SESCAPE
:sCLEAR THE ESCAPE ON ERROR ADDRESS
MovBe
#1,SERMAX
:sALLOW ONE ERROR PER TEST
MOV
#..SLPADR
:sINITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,SLPERR
::SETUP THE ERROR LOOP ADDRESS
ssS1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

;;EQUAL TO A "=1"", SETUP FOR A SOF TWARE SWITCH REGISTER.

000004
001154
001156
174122

64%:
001154
001156

658:
66$:

MOV
MOV
MOV
MOV
CMP
BNE

OFERRVEC,-(SP)
#64S ,QFERRVEC
#DSWR, SWR
#ODISP,DISPLAY
#-1,3SWR
66%

BR
MOV

659
#65%, (SP)

MOV
MoV
MOV

#SWREG, SWR
:sPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;;RESTORE ERROR VECTOR

RTI

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
:sSETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
: sBRANCH IF NO TIMEOUT TRAP OCCURRED
:sAND THE HARDWARE SWR IS NOT = =1
: sBRANCH IF NO TIMEOUT

:sSET UP FOR TRAP RETURN

CZRMVAO RMO5/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

J
9
11-APR-80 15:01:20 PAGE 10-1

8
.SBTTL

005106
005112
005114
005122
005124

005227
001054
022737
001450
104401

005130
00513¢
005136
005146
005146
005154
005156
005160
883195

005737
001012
123727
001406
023727
001005
104406
000403
112737

005170

000425

000042

005172

.SBTTL

000042
001254

000001

001154

000176

000001

001150

;?2:

::69%:

- 005244
24 005244
25 005250
26 005252
27
005256
28 005260
gg 005266

688 :
012700
005020
022700
001374
013737
013737

001174

1%:

001224
001516
001520

MOV

$PASS
WAPTSIZE,SENVM
67%

#SSWREG, SWR

TYPE PROGRAM NAME

;:TYPE THE NAME OF

177777
021244

CLR
BITB
BEQ

001164
001166

3
gg

SEQ 0061

::CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
::YES,USE NON-APT SWITCH

::NO,USE APT SWITCH REGISTER

THE PROGRAM IF

FIRST PASS

INC
BNE
CMP
BEQ
TYPE

#-1
68%
#SENDAD,a#42
68$
,69%

::FIRST TIME?
::BRANCH IF NO
::ACT=112
::BRANCH IF YES
::TYPE ASCIZ STRING

TST
BnE
CMPB
BEQ
CMP
BNE
GTSWR
BR
MOVB

ang?
708
SENV,M
708
SWR, #SWREG
71%

;;ARE WE RUNNING UNDER XXDP/ACT?
::BRANCH IF YES
::ARE WE RUNNING UNDER APT?
::BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
;:BRANCH IF NO
::GET SOFT=SWR SETTINGS

68%

::GET OVER THE ASCIZ

MOV
CLR
CMP
BNE
MOV
MOV

#SREGAD , RO
(RO)+
#$BELL,RO
1$
TPS,$TPS
TPB.STPB

;FIRST ADDRESS
;CLEAR VARIABLE STORAGE
:DONE?
*NO-=BRANCH
;SETUP THE STATUS AND BUFFER REG'S
*FOR THE TYPE ROUTINE

GET VALUE FOR SOFTWARE SWITCH REGISTER

_ASCIZ

718
#1,$AUTOB

::SET AUTO-MODE INDICATOR

<CRLF>3CZRMVAO = RM0S5/3/2 EXTENDED DRIVE TESTa<CRLF>

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

3, 0052764
35 005300
36 005306

005037
122737
001160

001466
000016

000041

37 005310 013737 000040

38 005316
39 005324
40 005326
41 005332
42 005336
43 005340

122737
103002
105037
005737
001425
104401

000007

001466

005344

005372

46 005372
45 005374
46 005400
47 005402
48 005403
49 005404

000412

005046
113716
104403
v01
000
104401

001466
000042

2%:

.:738:

728

CO1231

XXDP
#16,a041
4

;CLEAR *XXDP' LOAD DEVICE STORAGE
:LOADED FROM AN RM05/3/2 ?
‘BR IF NOT

CMPB
BHIS
CLRB
ST
BEQ
TYPE

#7,XXDP
2%
XXDP
Y%
3
738

;1S 1T A VALID NUMBER ?
SYES
:NO, DEFAULT TO DRIVE 0
:CHAIN MODE OR ACT11 AUTO ACCEPT ?
‘BR IF NEITHER
::TYPE ASCIZ STRING

MOV

001466

005346

001466

CLR
CMPB
BNE

anG0, xxppP

728

:GET DEVICE INDICATOR AND NUMBER

2:GET OVER THE ASCIZ

.ASCIZ

<CRLF>/NOT TESTING DRIVE /

CLR
MOVB
TYPOS
JBYTE
BYTE
TYPE

-(SP)
XXDP,(SP)
1
0
JOCRLF

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

CZIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01
GEY VALUE FOR SOF TWARE SWITCH REGISTER

50 005410
51
52 005412
53 005416
56 005420
005424
005446

000517

005227
001114
104401
000410
005046
113716
104403
001
000
104401
000431

0055
61 005550
005554

000435

005650
65 005650

004737

K
5
11~APR-B0 15:01:20 PAGE 10-2

104401

177

005426

;GET NUMBER OF DRIVES

INC
BNE

#-1
48

:FéRST TIME THRU HERE ?

TYPE

+:75%:

748
001466

005466
778

b6s.:

005556

;. 78%:

023404

.SBTTL

000042

00125¢4

000001

001154

000176

67 005714
68 005720
69 005722
70
71 005726
72 005732
73 005736
74 005742
75 005750

001150

177777

..TYPE ASCIZ STRING

LASCIZ

<CRLF>/10 TEST DRIVE /

CLR
MOVB
TYPOS

-(SP)
XXDP,(SP)

sCLEAR WORD ON STACK
sGET DRIVE ADDRESS

;g 005754

LASCIZ

7, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

TYPE

JSR

PC,STKINT

LASCIZ

—

» e 828888
MN—.\R—OMNg

Ot
-0
o
& ~
&~ o
o=
»
»
o
f

—

045731
001231

::GET OVER THE ASCIZ

;GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

;TURN ON THE TTY KEYBOARD INTERRUPT
GEY VALUE
:gfl SOF TWARE SWITCH REGISTER
ssARE WE' JNNING UNDER XXDP/ACT?

79s

CMPB

SENV,#1

CMP

SWR, #SWREG

79%

: :BRANCY |

YES

:sARE .E RUNNING UNDER APT?
: :BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
: :BRANCH IF NO
;:GET SOFT-SWR SETTINGS

80$

#1,$AUTOB

::SET AUTO-MODE INDICATOR

INC
BNE
JSR

"1
SRTINT
PC,GETADR

;SEE IF FIRST START

TYPE
JSR
CLR
MOV
JSR
JSR

,SCRLF
PC,LP.AVL
PS
#1,$1CNT
PC.GETSWR
PC.ST.CLK

SETVEC: JSR

PC,RMINIT

80$:

MOVB

MOV

INC
BEQ
ST

1$:

2%:

IT/<CRLF>

,.TYPE ASCIZ STRING

79%:

001120

177776

,78%

ssTYPE ASCIZ STRING

001320

000340

778

BNE

SRTINT:

037026

sTYPE DRIVE ADDRESS

JONLY 1 CHARACTER
sSUPRESS LEADING ZEROS

1
0

BEQ

026156
037104
177777
1777777

:GET OVER THE ASCIZ

BYTE
BYTE
TYPE

BNE

065260

001231
026114
177776

75%
1$

GTSWR

000001

SEQ 0062

BNE

t-i SAVEFG

#-1
1%

CNTRLC

SRTDRV

MOV

#PR7,PS

TYPE

,UNSTAT

CLR

TYPE
MOV

TYPOS

.SCRLF
R4, =(SP)

:BR_IF NOT
;GET OR CHECK THE RH/RM ADDRESS

: CR=LF
:CHECK FOR A LINE PRINTER

;ENSURE THE PRIORITY = 0
sSET ITERATION COUNT TO 1

:G0 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 TYPEOUT
;s TYPE DRIVE NUMBER
::60 TYPE--OCTAL ASCII

MACRO v03.01 11-APR-80 15:01:20 PAGE13 3

CZIRMVAO RMO5/3/2 EXT'D DR TST
| GET VALUE FOR SOF TWARE SWITCH REGISTER

00603
00603
89 006034
90 006C40
91 006044
92 006046
93 006050
96 006054
95 006056
96 006060

002
000

99 006066
}8? 006072

104401
000447

045770

3s:

102 006074
103 006100
104
105 006102
106 006106
107
108 006110
109 006114
110 006116
111 006122
112 006124
113 006130
114 0061;%
115 0061
116 006142
117 006144
118 006150
119 006156
120 006162
121 006164
122 006172
123 006176

104401
000416

045747

48:

104401
000413

046005

5% :

001466

68:

128
129 006212
130 006214
131 006220
132 006222

133
134 006226
135
136 006232
137 006236
138 006240
139 006244
140 006250
141 006254
142 006256
143 006264

046015

DRVSTA(R&)

TSTB

DRVTYP(R&)

001466

036750
066063
000004

7%:

006210

046056
000005

006210

046070

006210
98 :
108 :
118:

000010

001231
177776

TYPE

SRTDRV:

001316
001314
000001

TYPE

NOTRM

NOTPRS

f1s

UNTOFF

*SEE IF OFFLI E on NONEXISTENT

:BR IF NONEXISTENT

:BR IF OFFLINE

:DRIVE NOT AN RMO05/3/2

:CHECK NEXT DRIVE

:DRIVE NOT PRESENT

:CHECK NEXT DRIVE
:DRIVE OFFLINE

*PRINT DRIVE TYPE

NOTSAF

:DRIVE UNSAFE

ST
BEQ

XXDP
7%
XXDP,R4
7%
i%?DEV

:LOADED FROM THIS DEVICE ?
‘BR IF NO
:LOADED FROM THIS DRIVE ?
:BR IF NO
:DRIVE 1S LOAD DEVICE

TYPE

:PRINT DRIVE TYPE

El:s

égLuxsz

,UNTON

:DRIVE ONLINE

MOVB

:TYPE 2 SPACES

MOV
CMPB
BEQ
MOV
CMPB
BEQ
MOV

DRVTYP(R4),RO

#SRMO3, 108
#4,RO
9s
#SRMO2, 108
#5,R0
9%
#SRMOS,10$

;GET DRIVE TYPE

TYPE
.WORD

;TYPE THE DRIVE TYPE MESSAGE
‘MESSAGE ADDRESS HERE

INC

: INCREMENT DRIVE NUMBER/TABLE POINTER

TYPE

,S$CRLF

:CR-LF

CMP
BNE

TST

R&,#8.
2%

CNTRLC

;CONTROL ''C'* START/RESTART?

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

:GET THE PREVIOUS
*SET UP T0 SEE IF

BIT

g21106 (SP)+

JSR

SFINISHED ?
:BR IF NOT

:SET PRIORITY BACK T0 '0°

MOV

:ASSUME ADDRESS OF RMO3 MESSAGE
:1S DEVICE AN RMO3 ?
STYPE IT IF YES
:ADDRESS OF RMO2 MESSAGE
:1S DEVICE AN RM02 ?
:BR IF YES
:ADDRESS OF RMOS MESSAGE

BEQ

MOV
ADD

001316

SPACES

:CHECK DRIVE'S STATUS

CLR

001320

001314
026434

TYPE

g;Pe

8$:

:BR IF UNSAFE
‘BR IF ONLINE

i1s

CMPB

45760
46657

5%
ot

BNE

066036

ivpe &

sTYPE 2 DIGIT(S
suppaes LEAD lNG ZEROS

,BLNKS4

B8PL

TYPE

o
o
o

126 006206
127 006210

TSTB

TYPE

BEQ

e OO-GOS-OO-‘O
©
=ON=ON==O
] & N=NON=NNO

}gg 006200

2
0

BM]
BNE

98 0%

BYTE
BYTE

SEQ 0063

C.SWR,SAVCSW

PC,LODFLY

:NO=--BRANCH

'C.SWR'
'BITO0'

;1S "BITO0' DIFFERENT ?

:BR IF NOT

CONTENTS
IS DIFFERENT

:STORE PRESENT 'C.SWR' VALUE
;RESET PARAMETERS TO THEIR DEFAULT VALUES

LI
CZRMVAO RMO5/3/2 EXT'D DR TST
MACRO v03.01 11-APR-80 15:01:20 PAGE 10-4
GET VALUE FOR SOFTWARE SWITCH REGISTER
|

:
|
|

144 006270
145 006274
146 006276
147 006302
148 006306
}gg 006310

oooegg
004737
005037
005000
012701

151 006314
152 006320
153 006322
154 006326
155 006330
156 006334
157 006336
158 006344
159 006346
}g? 006350

105760
003411
005737
001403
123700
001403
156037
005200
106301
001361

162 006352

005037

163 006356
164 006364
165 006366
166 006372
167 006372

168 006376

004737

005037

175 006422

006201

177 006426

005237

006436
006436
006437
179 006440
180 006442
181 006444
182 006450
}gz 006452

104403
001
000
005701
001404
104401
005200
000763

!
|
|
|
1
|
;
|

|
i
|

185 006454

186 006462
187 006466
188 006470
189 006476
}g? 006500
192 006504
193 006510
194 006512

195
196 006516
197 006522

000001
036740

103011

010046

013737

005737
003006
032737
001402
104401

38:

001466
001466
037054

037030

046075

178 006432

28:

104401

|
|

026434
001326

037030

005000
013701
001004
104401
000137

176 006426

1$:

032737
001002
005137

169 006402
170 006406
17 oosatg
172 006412
};2 006416

034226

000400

001326

001314

4$:
5% :

68:

7%:

021200

8s:

021200

9%:

021200

021172

036000

001330

10$:

001350
000001

CLR

BIT
BNE
COM
TYPE

ASR

004612
001352

:GET PARAMETERS

;SETUP DEFAULT PARAMETERS
:NO DRIVES SELECTED
:DETERMINE THE DRIVES THAT

:ARE AVAILABLE FOR TESTING

SEEKFG

;CLEAR SEEK FLAG

DRIVES

;"DRIVES(S) TO BE TESTED'

RO
DRVSEL ,R1
8$
,NONE
$EOP

:THE DRIVES TO BE TESTED
:ANY DRIVES SELECTED?
:YES==BRANCH
: "NONE*
:JUMP TO END OF PROGRAM

#SW08, C.SWR
7%
SEEKFG

:D0 SEEK BEFORE DATA TRANSFER?
: YES=~BRANCH
:NO

$ENDCT

BCC

MOV

RO,=(SP)

SENDCT

:DETERMINE PASSES TO MAKE AND

TYPOS
.BYTE
BYTE
ST
BEQ
TYPE
INC
BR

1
0
R1
108
,COMMA
RO
8%

MOV

SENDCT,SEOPCT

TST
BGT
BIT
BEQ
TYPE

:REPORT THE DRIVES TO BE TESTED

;GIVE THIS DRIVE A PASS
::SAVE RO FOR TYPEOUT

;160 TYPE--OCTAL ASCII
S:TYPE 1 DIGIT(S)
: :SUPPRESS LEADING ZERCS
:MORE DRIVES?
*NO--BRANCH
A
:FORM DRIVE NUMBER

CLKSTA
RSTRTI
#36000,TSTNMS
RSTRTI
,NOCLOK

:1S KW11=P AVAILABLE ?
‘BR IF YES
:ANY TIMING TESTS TO BE PERFORMED ?
:BR IF NO
STYPE NO KW11=P CLOCK MESSAGE

RSTRT1: TST
BNE
JMP

DRVSEL
1%
START?

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

18:

CHKDRY
#1,DRVMSK

046135

005037
012737

DRVSTA(RO)
;1S DRIVE ON=LINE ?
5%
:BR IF NO
XXDP
:LOADED FROM THIS DEVICE ?
48
: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
RI1
:ANY MORE DRIVES TO CHECK ?
{1
:BR IF YES

INC

046132

001326

TSTB
BLE
13
BEQ
CMPB
BEQ
BISB
INC
ASLB
BNE

CLR
MOV
BNE
TYPE
JMP

046125
021020

005737
001002
000137

PC,GT.PRM
5
PC,LODFLT
DRVSEL
RO
#,R1

CLR

001326

001340

JSR
BR
JSR
CLR
CLR
MOV

CLR
MOV

‘8 RESTART AT BEGINNING
SINIT. THE CHECK DRIVE KEY
:START TO CHECK DESIRED DRIVES

SEQ 0064

' CZRMVAO RMOS/3/2 EXT'D DR TST

MACRO v03.01 11-APR-80 15:01:20 PAGEN 13-5

NN NN O NN NN N NN NN N - O O O gvcuuo
- N
WNNOT
O

001352

001326

MOMOOONOOOOOOOOOOS
N=NO = O NN =N =N =N =N

-‘—‘OO-‘OOg

DRVMSK ,DRVSEL
DRVOK

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

RESTART: MOV
INC
ASLB
BCS
BR

#STACK,SP

sSETUP THE STACK POINTER
;MOVE TO NEXT DRIVE NUMBER
;POSITION THE MASK
;BRANCH IF THE DRIVE NUMBER NEEDS INITIALIZED

CHKDRV,R2
?2VSTA(R2)

;PI1CKUP THE DRIVE NUMBER
;1S DESIRED DRIVE ON=-LINE?
:YES, BRANCH

BNE

DRVOK:

001352

001326

065456

1$:

000001

065457

2%:

046222

3%:

000060
4%:

006772
001231
001462

MOV
1ST8
BGT

EMT
BIC
BR

MOV
MOV
MOV
MOV
JSR
MOV
MovBe

BIT
BEQ
CLRB

Move
JSR
JSR
Move
JSR
TYPE
MOV
TYPOS
.BYTE

.BYTE

066132
046242
000004
045606

TYPE
TYPE
MOV
MOV
CLR
ROL
ROL
ROL
ROL
ROL
ROL
ROL
ROL
ADD
MOV

CHKDRV
DRVMSK
RSTRT1
RSTRT2

11
DRVMSK ,DRVSEL

RESTART

R2,DPB.A
R2.,0PB.B
R2,0PB.C
R2.DTADPB
PC,LDCMD

;LOAD COMMAND INTO DPB.B AND DPB.(
:1F ERROR GO TO END OF PROGRAM
sASSUME 16 BIT FORMAT

» COMMA
.SERIAL

:TYPE "MBA SN# °

5%1T00,C.SUR

216 BIT FORMAT REQUESTED ?
sBR _IF YES
DPB.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
;GO0 CLEAR CONTROLLER
#RECAL ,DPB.A+2
sRECAL=COMMAND
RO,CALL.A
;GO EXECUTE THE COMMAND
,TSTDRV
;"TESTING DRIVE '
R2,-(SP)
:sSAVE R2 FOR TYPEOUT
;60 TYPE=--OCTAL ASCII
2
;s TYPE 2 DIGIT(S)
0
: :SUPPRESS LEADING ZEROS
#4 RO
RM.REG+30,R1

*FOUR DIGITS TO TYPE
:SERIAL NUMBER
: ZERO

sPUT

THE NEXT DIGIT

sINTO R2

sMAKE IT ASCII

sSAVE 1T

.WORD

TYPE
MovBe

;CLEAR DRIVE'S SELECTION BIT
:RETURN
:SET THE DRIVE NUMBER INTO THE DPB'S

#SEOP,CYPASS
#20,0PB.A+1

:TYPE

TYPE

DEC
BGT

001131

SEQ 0065

RSTRT2: BIT

~ NNNNNNNNNNNSN NOCN-—-UON

NNWON

O==00
OO0~
WOV

OO0

$58558 SS g

004037

o
—-O0000—
o
WH WS OON
NEUVIWSONI
N
b b b b b i = O N

FREFENSS FRUERSRNESS 7R

eS8

NNNN

= OO =00 W

b el s s

&
W

OO NNNNNNNNNNNNNNNNNNNNNNYN
WINVNININ)
= =t =
~
NNY
SN0
o

S S e s e R s RO RReas g 8 g

83888

NI NI NI PNINI NI NI NI NI N

ESERF

NN
NN NN NN NN
L
L R 2
Rt
e
W
WA —
2 OOV®NOWNSWNN—-=0OO

N SNV
OO0 OOWS ek
~ NONO
N N INNNVNNVNNNNINNOO
NN

06572

b b b e

e e e e o

OOVONOWVS
NN =O VRN VNS WNN=O

DSOS OSOSHSOSST ST ST STSINT NN NT NI NT NI, NT.NT.N]

201

198
199 006530
200 006536

OO
OWw
=N

| GET VALUE FOR SOF TWARE SWITCH REGISTER

+SCRLF

ERR.CT,SERMAX

:ALL DIGITS TYPED?
:NO == BRANCH

sCR=LF

:SETUF MAX ERROR COUNT

|
i

MACRO v03.01 11-APR=80 15:01:20 PAGE 18-6

GEY VALUE FOR SOFTWARE SWITCH REGISTER

252

. CIRMVAO RMO5/3/2 EXT'D DR TST
|

;

Sea 0066

CZRMVAO RMO5/3/2 EXT'D DR TST

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

GEY VALUE FOR SOF TWARE SWITCH REGISTER
1

SslITITITIIII I

2
2

IR IR

SEQ 0067

IR ERIR LI

LIt LILLLElLLLLezEitle]

;*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED
s*AND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHMERWISE) ARE:
b

: *MNEMONI C

a*lC

8
9
0
i e ed e e

VALUE

VARIABLE

:*R
i*F(
seLC

1
0
822

ITERATIONS (REPEATS)
FIRST CYLINDER ADDRESS
LAST CYLINDER ADDRESS

:*NC OF NCI
.

FCeIC

NEW OR MODIFIED CYLINDER
ADDRRESS

2
3

TT
———

s*NC2

o
M

:*FT1

it e

;LT
il
:*NT

AN LN NN N NN N PO PO NI RO RO NI RO N

8
9
?

INCREMENT VALUE

LC=1C

NEW OR MODIFIED CYLINDER

FIRST TRACK ADDRESS

& OR 18
1
FT+17

ADDRESS

LAST TRACK ADDRESS
INCREMENT VALUE
NEW OR MODIFIED TRACK ADDRESS

- "

;*FS

5
6
7
8
9
0

::////////////////I/I////////////////////////////////////////////

;*LS

.SBTTL

FIRST SECTOR ADDRESS

LAST SECTOR ADDRESS

SEEK TESTS

SHITITTIIIIIII

it iiniiiiiiiiitiiiiiiiiieiiieeeetineiieiiiy

s*THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE
;*IMPLIED SEEKS WILL BE PERFORMED BY '‘READ HEADER AND
;*DATA"' COMMANDS TO TRACK ''FT'' SECTOR "‘FS'' OF THE DESIRED CYLINDER.

2
3

s*THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND
s*TRACK/SECTOR WORDS OF THE HEADER ARE READ.
SSlIITTTITIIII
it n it iiiin ittt it it iiee it ieeieeirey

5
36
43

L
R R R Y

RECAL/SEEK TEST
;*TEST 0
:*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE
:*COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER ''LC'' AT
:*THE COMPLETION OF BOTH COMMANDS STATUS

:*CHECKED TO ENSURE NO ERRORS OCCURRED.

INDICATIONS ARE

;:'..".'....."""'."'..""""'."..""""l"""""".l.

007016
007016
007020
007026
007030

000240
033737
001002
000137

007034
007042

012737
004737

000000
026672

001116

007054
007062
007070

013737
112737
012737

002324
000031
000000

001220
001131
001240

007046
45

012737

7§10:

001526

001330

007204

007166

001124

NOP
BIT
BNE
JMP

BITS+<0+2>, TSTNMS
;DO THIS TEST?
.46
:BR IF YES
sT
*NO==JUMP TO TESTI

MOV
JSR

#0,$TSTNM
PC,LODPRM

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

MOV
MOVB
MOV

RPT,STIMES
#25.,SERMAX
#0,$TESTN

:GET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST
:;SET TEST NUMBER IN APT MAIL BOX

MOV

#TESTO,SLPERR

:SETUP THE LOOP ON ERROR ADDRESS

§6RHVAO RMO5/3/2 EXT'D DR TST
RECAL/SEEK TEST

010000

BIT

:BR IF YES
sTYPE 'TEST'

"MSGTST
$TESTN,=(SP)

E:CDL”Q”J‘C’
NO SN

NYyNNNNONNO
NN
—

001346
001122

NN=N =t
WO
sNOo

[=lelelele]
[=]=T=]

tus: WL
NNNNN~N
LN NN
w
~~

ed
— e e e

NON
NN
NNNNN~N

OO0O——-—

—

N
o ON

o
o

045460

:sSAVE STESTN FOR TYPEOUT
::60 TYPE=-=OCTAL ASCII
ssTYPE 2 DIGIT(S)
s s SUPPRESS LEADING ZEROS

#RECAL ,DPB A+2
FS,0PB.B+10
FT,0PB.B*11

#EXITO,BYPASS
#TESTO,SLPADR

:G0 TO EXITO ON ERROR
:SETUP LOOP ADDRESS

LC,DPB.B*12

TESTO:

RO,CALL.A

SCOPE

AR RN

;*TEST

RN RN AR

RO,CALL.B

R RN

:?ECAL=COHHAND

iLC

sSET UP STACK POINTER
;60 EXECUTE THE COMMAND
;60 EXECUTE THE COMMAND
sCALL SCOPE ROUTINE

FSTACK,SP

EXITO:

SEQ 0068

sINMIBIT TYPING TEST NUMBER 7

FSW12,35WR
+16

orno

‘9‘#‘!::
i D

~e
e

A o~o

NNNNNNNNNNSN
e e
e
e e
e s e i
PN o

000004

£:84

172050

0466253
001240

PR
— —

88888888 888 8888

007076
007104
0071

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

MACRO v03.01

RN RN RN RN AR NN NN AR R RN AN ARARORRNN

RPN

SEEK/SEEK TEST

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

OOF'OO'

OOFSCO.

THE

COMPLETION OF

EACH SEEK,

;*INDICATORS ARE EXAM INED TO ENSURE PROPER OPERATION.
R

AR A

f§T1:
007412

BIT
BNE
JMP

BITS+<1#2>,TSTNM S
;D0 THIS TEST?
.46
:BR IF YES
T1S12
;NO==JUMP TO TESTZ

000001
026672
007374
002324
000031
000001

001116

MOV
JSR
MOV
MOV

#1,8TSTNM
PC,LODPRM
#TEST1,SLPERR
RPT,STIMES

;SET TEST #1 AND CLEAR (SERFLG)
:LOAD THE PARMETERS FOR THE TEST
:SETUP THE LOOP ON ERROR ADDRESS
;GET THE ITERATION COUNT

MOV

#1,8TESTN

:sSET TEST NUMBER IN APT MAIL BOX

010000

171662

MOVB

#25.,8ERMAX

:MAX ERRORS ALLOWED FOR TEST

BIT
BEQ

#SW12,3S5WR
416

sINHIBIT TYPING® TEST NUMBER ?
:BR IF YES

MOV

$TESTN,=(SP)

.BYTE
.BYTE

2
0

::SAVE STESTN FOR TYPEOUT
;.60 TYPE--OCTAL ASCII

ssTYPE 2 DIGIT(S)

CLR

BASFLG

:CEEAR BAD SECTOR ENCOUNTER FOR THE DRIVE

FS,0PB.B+10
LS,DPB.C+10
FT1,0PB.B+11
LT,DPB.C+11
FC,OPB.B+12
LC,DPB.C+12
PEXIT1,BYPASS

;TYPE

'TEST'

;s SUPPRESS LEADING ZEROS
-

MOVB
MOVB
MOVB
MOvVB
MOV
MOV
MOV

MSGTST

H&
-

TYPOS

— NNO
N
oo

e
Ry y

NNNNNNNYN

O L Lt L
i
e N
NNNNNNNO
Lt L Lt Lt it
i

001124
001220
001131
001240

TYPE

W
SN
N
N

5228 o O-‘°°§°
883528

NOP

001330

<>¢>c>-.-.-.-.€;

orn
s~

[

O NNNNNNO
OV
W =0V

AR ARARl
R
R RRR2RR]]

Sttt O =
WO
SN
NNNNNYN
W
NN

001530

THE PROPER

60 TO EXIT!

ON ERROR

CZIRMVAO RMO5/3/2 EXT'D DR TST

SEEK/SEEK TEST

007

012737

007374

012706
004037
004037
000004

001100
027466
027264

MACRO v03.01 11-APR-80 15:01:20 PAGE 1?-2
001122

MOV

JSR
JSR
SCOPE

EXIT1:
MMA

AL A

FTEST1,SLPADR

;SETUP LOOP ADDRESS

#STACK,SP

;SET THE STACK POINTER
;60 EXECUTE THE COMMAND
;G0 EXECUTE THE COMMAND
;CALL SCOPE ROUTINE

RO,CALL.C
RO,CALL.B

J*TEST 2

SEQ 0069

AR A

RR])

INCREMENT/SEEK TEST

:*THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE
:*CYLINDER ADDRESS FROM "FC'' TO "LC" BY THE INCREMENT “'I1C''.
:*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 "NCTM 1S LESS THAN "FC"'. AT THE COMPLETION OF EACH

:*SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED T0
:*ENSURE PROPER OPERATION.
A

WO WS
8N ONNNNNN
NN

o-ooog
So
W
tatan
R

007430
007436

NNNO

007412
007412
007414
007422
007426

1$12:
001532

010000

v v v v
NNNN

-,
=N
oWV
OO

ARl

.46
1$13

:BR IF YES
*NO--JUMP TO TEST3

001116

MOV

#2,8TSTNM

;SET TEST #2 AND CLEAR

001124
001220
001131
001240

MOv
MOv
MOvB
MOV

#TEST2,SLPERR

:SETUP THE LOOP ON ERROR ADDRESS

#25. , SERMAX
#2.$TESTN

:MAX ERRORS ALLOWED FOR TEST
::SET TEST NUMBER IN APT MAIL BOX

171454

BIT

BNE
JMP

JSR

045510
001124

1%:

TESTZ:

INCSK:

RPT,STIMES

(SERFLG)

:LOAD THE PARMETERS FOR THE

TEST

:GET THE ITERATION COUNT

BEQ
TYPE

;INHIBIT TYPING TEST NUMBER ?
‘BR IF YES
STYPE TEST®

.BYTE

2
0

1360 TYPE==OCTAL ASCII
S:TYPE 2 DIGIT(S)
: *SUPPRESS LEADING ZEROS

MOV
MOvVB
MOvB
MOV

#1%,SLPADR
FS,DPB.B+10
F1.0PB.B+11
WEXIT2.BYPASS

;SETUP LOOP ADDRESS
;
FT
GO TO EXIT2 ON ERROR

MOV
MOV

MOV

FC,OPB.B*12
#. SLPERR
#STACK,SP

SFC
:SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER

JSR

RO,CALL.B

;60 EXECUTE THE COMMAND

ADD

CMP
BGE

DECSK:

PC.LODPRM

;DO THIS TEST?

#SW12,aSWR
.+16
MSGTST

MOV
TYPOS

—_~N
— O
O =
o000

NN
NN
WO
oSS

BITS#+<2¢2>, TSTNMS

001122
045506
04550/
001346

888 888 888

&
&

)
(VT
NNNNNYN

NNUNNWNNO

NNNN

(Vv
NN

NNN

ONOW

DWW

OO0 O—==0O
o

SK& §
——

(=]l

»
w

PONL LN

=038 I8 =88

—_— s
At
s ~—3 2

i e e

NOP

BIT

066253
001240

—

001330

007654
000002
026672

MOV
MOV
MOV

$TESTN, = (SP)

1C.DPB.B+12
LC.DPB.B+12
INCSK
LC,DPB.B*12
#. SLPERR
#STACK,SP

::SAVE STESTN FOR TYPEOUT

:MOVE TO NEXT CYLINDER
:0UT OF CYLINDERS?
*NO=--BRANCH

:SETUP THE ERROR LOOP ADDRESS
*LOAD THE STACK POINTER

CIRMVAD RMO5/3/2 EXT'D DR TST

INCREMENT/SEEK TES 1

004037
7

027264
002332
002326

MACRO v03.01

JSR
SuB
CMP
BLE

65510
45510

000004

ExIT2:
MR

11-APR-80 15:01:20 PAGE

AR AR A

RO,CALL.B
1C,DPB.B*+12
FC,OPB.B*+12
DECSK

SCOPE

AR A

11-3

SEQ 0070

;G0 EXECUTE THE COMMAND

;CALL SCOPE ROUTINE
A

STEPPING SEEK TEST
;*TEST 3
;*THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER O, 1, 2, 4,
:*8, 16, 32, 64, 128, 256 AND 512. AT THE COMPLETION OF EACH
;*SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO ENSURE

: *PROPER OPERATION.

;:"'...'."""""""""""'."'.'."'."'.""'t""""l"

NNNNNN

WS
NNNNNSN
W

—

BNE
JMP

01007¢

000003

001116

MOV
MOV

000003

001124
001220
001131
001240

010000

171212

1%:

seave

#3,8TSTNM

;SET TEST #3 AND CLEAR (SERFLG)

MOV

RPT,STIMES

MOV

#3,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ

#SW12,aSWR
.+16

;INHIBIT TYPING TEST NUMBER ?
:BR _IF YES

#TEST3, SLPERR

#25. ,SERMAX

;MAX ERRORS ALLOWED FOR

TYPE
MOv
TYPOS

LMSGTST
$TESTN,-(SP)

BYTE
BYTE

2
0

ssTYPE 2 DIGIT(S)
: s SUPPRESS LEADING ZEROS

MOV
MOVB
MOVB
MOV

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

sSETUP TEST LOOP ADDRESS
:FS
JFT
;GO TO BYPASS ON ERROR

FC,OPB.B+12

:FC

RO,CALL.B

;G0 EXECUTE THE COMMAND

MOV
MOV

¥.,SLPERR
#STACK,SP

MOV

IC.R1

MOV

#.,.SLPERR

JSR

RO,CALL.B

MOV
MOV

ASL

ExIT3:

:BR IF YES
;NO==JUMP TO TEST4

:LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
;GET THE ITERATION COUNT

JSR

1%:

;DO THIS TEST?

)
1574

PC,LODPRM

MOV

001124

BITS+4<3#2>,TSTNMS

JSR

MOovB

066253
001240

NNNN
Wik

000004

NOP

BIT

001330

N - - O =2 N NNONNN
o WWHNO
WO WO WW
O~N-—

S WS =N
OQON
NS
N
OO SO
N

001534

045510
001124

DWW

O—=—=0O

—

000

1S13:

001122
045506
065507
001346

~N
228
°°°°§ RO
oas
o
§o-u

£8£§§¥S§SSS~» &
NS

b —D
B o
B
B
P
il

ONOWNOWVEW

VO
N=O

—_—
W
sk
80
R
e e
el
VAR ESESESESESES

8888888888

N~
N~
~

007760

NwWwN-—

-t
it

130

s2s82 ezeo 8Q

007672

WO W
NNVNO

007654
007654
007656
007664
007666

CMP
BLE

SCOPE

#S ¢ K,SP
R1,0PB.B+12

R1,LC
1%

TEST

;TYPE "TEST'
;;SAVE STESTN FOR TYPEOUT
::60 TYPE--OCTAL ASCII

sSETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER

sCYLINDER 1

JSETUP THE ERROR LOOP ADDRESS
sLOAD THE STACK POINTER
sDESIRED CYLINDER

;60 EXECUTE THE COMMAND
JMOVE TO NEXT CYLINDER

sDONE?
JNO=-=LOOP

sCALL SCOPE ROUTINE

e A2l
R
R
R D)

TRTEST &

OSCILLATING SEEK TEST

CIRMVAO RMO5/3/2 EXT'D DR TSI

CSCILLATING SEEK

TEST

MACRO v03.01

11-APR-80

;*THIS TEST

G
¢
15:01:20 PAGE 11-4

WILL COMMAND SEEK CYCLES FROM “FC'* TO "NC'* AND BACK

;70 TFCT. UNCTM STARTS AT “FCTM AND INCREMENTS BY “'IC'' UP TO CYLINDER
i*"'LC', THEN 1S DECREMENTED BY "'IC"' BACK TO CYLINDER “‘FC''. AT THE
:*COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE
:*EXAMINED TO ENSURE PROPER OPERATION.

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

010074
010074
010076
010104
010106

00
03
00
00

010112
010120
010124

01
00
01

000004
026672
010244

001116

010154
010162
010164
010170
010174
010176
010177

03
001
104
O1
10

010000

170772

010%00
010206
010214
010222

o1§
11
113737
012737

010503
00234
002334
010504

001122
045506
045507
001346

010000

001314

010132
010140
99 010146

160
161
162
170

010230
010232
010240
010242
010244

171 010244
172 010250
173 010254

010262

174 010266
175 010272
176 010276
177 010300
178 010302
179 010306
180 010310
181 010316
182 010322
183 010324
184 0103i6
185 010332
186 010334
187 010340
188 010346
189 010350
190 010354

OV
N
OV

005002
032737
001401
005102
013701
005037
012737

012706
010137
004037
005702
001403
004037

001434
013737
004037
005702
001413
004037
001434
005237
023737
003347
005037
063701

1ST4:

001536

001330

010506

002324
000031
000004

001124

001220
001131
001240

001100
045510
027264

1%:

TEST4:
001124

1%:

030664

002326
027264

001434
002332

MOV
JSR
MOV

#4,8TSTNM
PC,LODPRM
#TEST4L,SLPERR

;SET TEST #4& AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS

BIT
BEQ
TYPE
MOV
TYPOS
.BYTE
.BYTE

#SW12,3SWR
416
MSGIST
$TESTN,=(SP)
2
0

JINHIBIT TYPING TEST NUMBER ?
;BR IF YES
;TYPE 'TEST'
::SAVE STESTN FOR TYPEOUT
::60 TYPE==OCTAL ASCII
ssTYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

MOV
MOVB
MOVB
MOV

#1%,SLPADR
FS,DPB.B+10
FT,0PB.B+11
MPEXIT4,BYPASS

;SETUP LOOP ADDRESS
:F3
JFT
;GO TO EXIT4 ON ERROR

045510

2%:

001434
3%:

RPT,STIMES
#25. ,SERMAX
#4,8TESTN

;GET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
:3SET TEST NUMBER IN APT MAIL BOX

CLR
BIT
BEQ
COM

R
#SW12,C.SWR
TESTS
R2

MOV
CLR
MOV

FC,R1
:SET NC TO FC
STALLO
;START AT ZERO IF STALLS REQUIRED
#.,SLPERR
;SETUP THE ERROR LOOP ADDRESS

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

MOV
MOV
JSR
1ST
BEQ

#STACK,SP
R1,0PB.B+12
RO,CALL.B
R2
2%

LWORD
MOV
JSR
ST
BEQ
JSR
LWORD
INC
CMP
BGT
CLR
ADD

STALLO
:TIME POINTER
FC,OPB.B+12
JFC
RO,CALL.B
;G0 EXECUTE THE COMMAND
He
:STALL?
$
:NO=-=-BRANCH
RO,STALL
:YES==GO TO STALL ROUTINE
STALLO
;:TIME POINTER
STALLO
;UPDATE THE TIME
MXSTAL,STALLO
;TIME T0 BIG?
1%
sNO==-BRANCH
STALLO
;YES==START OVER AT ZERO
1C,R1
:MOVE TO NEXT CYLINDER

JSR

030664
001434
001460

BITS4<4*2>,TSTNMS
:D0 THIS TEST?
.46
;BR IF YES
1875
:NO==JUMP TO TESTS

MOV
MOVB
MOV

046253
001240

002326
001434
01025¢

NOP
BIT
BNE
JMP

RO,STALL

:LOAD THE STACK POINTER
:NC
;G0 EXECUTE THE COMMAND
;STALL?
:NO==BRANCH

:YES=GO TO STALL ROUTINE

SEQ 0071

CIRMVAD RMO5/3/2 EXT'D DR TST

CSCILLATING SEEK TEST

191
192
193
194

010360
010364
010366
010372

020137
003740

195
196
197
198
199

010404
010410
010414
010416
010420

010137
004037
005702
001403
004037

010400

200 010426
201 010426
202 010434
203 010440
204 010442
205 010444
206 010450
207 010452
208 010456
209 010464
210 010466
211 010472
212 010476
213 010502
S}g 010504

013701
012737
012706

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

MACRO v03.01

11-APR-B0 15:01:20 PAGE

002330

002330
010372
001100

(01124

045510
027264

045510

001434

001434
002332
002326

6$:
EXIT4&:

226

227

MOV
JSR
18T
BEQ
JSR

R1,DPB.B+12
RO,CALL.B
R2
5%
RO,STALL

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

58:

030664
001434
001460

LC,R1
¥.,SLPERR

MOv

48:

030664

002330
027264

CMP
BLE
MOV
MOV

R1,LC
1%

#STACK,SP

11=5

SEQ 0072

;LAST CYLINDER COMPLETED?
:NO==BRANCH

;SET NC TO LC
;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
:NC
;GO EXECUTE THE COMMAND
sSTALL?
:NO==BRANCH
sYES==GO TO STALL ROUTINE

STALLO
;TIMe POINTER
LC,DPB.B+12
:LC
RO,CALL.B
;60 EXECUTE THE COMMAND
R2
sSTALL?
6%
:NO==BRANCH
RO,STALL
sYES==GO TO STALL ROUTINE
STALLO
:TIME POINTER
STALLO
;UPDATE STALL TIME
MXSTAL,STALLO
;TIME TOO BIG?
4%
:NO==BRANCH
STALLO ;YES==SET STALL TIME BACK TO ZERO
i1C,R1
sNEXT CYLINDER
R1,FC
sDONE?
4%
:NO==BRANCH
;CALL SCOPE ROUTINE

L
e

;*TEST 5

CONVERGING/DIVERGING SEEK TEST

s*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
s*EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
:*ENSURE PROPER OPERATION. "NC1'' AND ''NC2'' DEFAULT TO
s*"'FC'"

AND "'LC'" RESPECTIVELY.

L Y

010506
010506
010510
010516
010520

000240
033737
001002
000137

010524
010532
010536

012737
004737
012737

000005
026672
010642

001116

002326
000031
000005

001124
001220
001131
001240

010566
010574
010576

032777
001406
104401

010000

170360

010606
010610

104403
002

010544
010552
228 010560

010602

013737
112737
012737

013746

1ST75:

001540

001330

010732

046253

001240

NOP
BIT
BNE
JMP

BITS+<5¢2>,TSTNMS
;D0 THIS TEST?
.46
:BR IF YES
1816
:NO==JUMP TO TESTé6

MOV
JSR
MOV

#5,8TSTNM
PC,LODPRM
#TESTS,SLPERR

;SET TEST #5 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS

BIT
BEQ
TYPE

#SW12,3SWR
416
MSGTST

;INHIBIT TYPING TEST NUMBER ?
:BR IF YES
;TYPE "TEST'

TYPOS
.BYTE

::60 TYPE--OCTAL ASCII
;s TYPE 2 DIGIT(S)

MOv
MOvB
MOV

mov_

RPT,STIMES
#25. ,SERMAX
#5,8TESTN

$TESIN,=(SP)

sGET THE ITERATION COUNT
+MAX ERRORS ALLOWED FOR TEST
:sSET TEST NUMBER IN APT MAIL BOX

:;SAVE STESIN FOR TYPEOUT

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

|94 RMVAO RMO5/3/2 EXT'D DR TST
MACRO v03.01
15
CONVERGING/DIVERGING SEEK TEST

010611

000

229 010612
230 010620
231 010626
235 8}8223

01%737
113737
113737
012737

010620
002342
002334
010730

236 010642
237 010646
238 010652
010660
239 010664
260 010670
261 010676
242 010700
243 0107064
244 010710
245 010714
248 010720
249 010722
250 010726
251 010730
252
261
262

013701
01370;
012737
012706
010137
004037
010237
004037
063701
163702
020137
003003
020237
002356
000004

002326
002330
010652
001100
045510
027264
045510
027264
002332
002332
002330

001122
045506
045507
001346

SEQ 0073

.BYTE

s sSUPPRESS LEADING ZEROS

TESTS

MOV
MOVB
MOvB
MOV

#1%,8LPADR
FS,0PB.B+10
FT,0PB.B+11
PEXITS,BYPASS

sSETUP LOOP ADDRESS
:FS
FT
;GO TO EXITS ON ERROR

FC.R1
LC,R2

1%:

MOV
MOV
MOV
MOV
MOV

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

;START NC1 AT FC
sSTART NC2 AT LC
;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
:NC1

ADD

IC,R1

JNEXT NC1

1%:

001124

JSR
MOV
JSR

002326
EXITS5:
MR

SuB
CMP
BGT
CMP
BGE
SCOPE

AR AR

RO,CALL.B
R2,0PB.B+12
RO,CALL.B
IC,R2
R1,LC
EXITS
R2,FC
1%

;60 EXECUTE THE COMMAND
:NC2
;G0 EXECUTE THE COMMAND
:NEXT NC2
;DONE?
sYES==BRANCH
:NO==BRANCH
sCALL SCOPE ROUTINE

AR ARl
iR
0 222222 R
2R R2 1)

;*TEST 6

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

010732
010732
010734
010742
010744

000240
033737
001002
0137

011222

010750
010756
010762
010770
010776
263 011004

012737
004737
012737
013737
112737
012737

000006
026672
011066
002324
000031
000006

001116

011012
011020
011022
011026
011032
011034
011035

032777
001406
104401
013746
104403
002
000

010000

170134

264 011036
265 011044
266 011052

012737
113737
113737

011044
002342
002334

1ST6:

001542

001330

NOP

BIT

BITS+<6*2> ,TSTNMS
.+6
1817

:BR IF YES
:NO=-=JUMP T0 TEST?7

MOV
JSR
MOV
MOV

#6,5TSTNM
PC,LODPRM
FTEST6,SLPERR
RPT,STIMES

;SET TEST #6 AND CLEAR (SERFLG)

MOV

#6,S$TESTN

s:SET TEST NUMBER IN APT MAIL BOX

BNE
JMP

001124
001220
001131
001240

MovBe

046253
001240

sMAX ERRORS ALLOWED FOR TEST

#SW12,3SWR
. +16

;INHIBIT TYPING TEST NUMBER ?

MOV

$TESTN,=(SP)

::SAVE STESTN FOR TYPEOUT

BYTE
BYTE

2
0

MOV
MOvB
MOvB

#1%,SLPADR
FS,0PB.B+10
FT,0PB.B+11

TYPOS

1$:

:LOAD THE PARMETERS FOR THE TEST
sSETUP THE LOOP ON ERROR ADDRESS
sGET THE ITERATION COUNT

BIT
BEQ

TYPE

001122
045506
045507

#25. ,SERMAX

;D0 THIS TEST?

MSGTST

‘BR IF YES
STYPE 'TEST'

1360 TYPE=-0CTAL ASCII

SSTYPE 2 DIGIT(S)
: *SUPPRESS LEADING ZEROS
:SETUP LOOP ADDRESS
JFS
JFT

CZRMVAO RMO5/3/2 EXT'D DR TST

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

SERVO ADDRESSING LOGIC NOISE GENERATOR

270 8}}822

012737

011220

271 011066
272 011072
273 011076
276 011102
011110
275 011114
278 011116
279 011120
280 011124
281 011130
282 011136
283 011142
284 011150
285 011154
286 011162
287 011166
288 011174
289 011200
290 011206
291 011212
292 011216
ggz 011220

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

002326
002330
000005
011102
001100
045510
027264
000004
027264
000003
027264
000002
027264
000001
027264
000003
027264
002332

001346

TEST6

001124
1$:

045510
045510
045510
045510
045510

EXIT6:

303

So‘.

SEQ 0074

MOV

FEXIT6,BYPASS

;GO TO EXITé6 ON ERROR

MOV
MOV
SuB
MOV
MOV
CMP
BGT
MOV
JSR
ADD
JSR
suB
JSR
ADD
JSR
suB
JSR
ADD
JSR
ADD
BR
SCOPE

FC.R]
LC,R2
#5,R2
¥. SLPERR
FSTACK,SP
R1,R2
EXIT6
R1,0PB.B+12
RO,CALL.B
#4,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,0PB.B+12
RO,CALL.B
IC,R1
%

;P1CKUP "'FC''
:FORM LAST CYLINDER THAT
;1S _AVAILABLE FOR TESTING
:SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
sLAST CYLINDER
: YES==BRANCH
sNC
:GO EXECUTE THE COMMAND
‘NC+4
;60 EXECUTE THE COMMAND
JNC+1
;GO EXECUTE THE COMMAND
iNC+3
;G0 EXECUTE THE COMMAND
iNC+2
;G0 EXECUTE THE COMMAND
iNC+5
;G0 EXECUTE THE COMMAND
;CALL SCOPE ROUTINE

;"."'.tt.'.'l.""'""""""".".'t.'"."....l"'.'."'.tlt

RANDOM SEEK TEST

;*TEST 7

s*THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS 'FC'
s*'LC'. AFTER EACH SEEK, THE POSITION OF THE DRIVE 1S VERIFIED BY
s*READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK.

;*THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION

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

TRACK ADDRESSES ARE INCREMENTED

::..'.""l.."""'""""""'..'l"l'.".'"'."..'."""'..

011222

011224
011232
011234

000240

1817:

033737
001002
000137

001544

011240
011246
011252
011260
011266
305 011274

012737
004737
012737
013737
112737
012737

000007
026672
011362
002326
000031
000007

001116

011302
011310
011312

032777
001406
104401

010000

167644

011322
011324
011325

104403
002
v00

011316

306 011326

013746

113737

001330

011620

001124
001220
001131
001240

046253

001240

(002334

NOP

BIT
BNE
JMP

BITS+<7+2> ,TSTNMS
;00 THIS TEST?
.+6
:BR IF YES
TST10
:NO==JUMP TO TEST10

MOV
JSR
MOV
MOV
MOvB
MOV

#7,8TSTNM
PC,LODPRM
NTEST7,SLPERR
RPT,STIMES
#25. ,SERMAX
#7,8TESTN

sSET TEST #7 AND CLEAR (SERFLG)
:LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
sGET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST
:sSET TEST NUMBER IN APT MAIL BOX

BIT
BEQ
TYPE

#SW12,3SWR
416
MSGTST

:INHIBIT TYPING TEST NUMBER ?
:BR _IF YES
;TYPE "TEST'

TYPOS
.BYTE
.BYTE

2
0

::60 TYPE--OCTAL ASCI!
::TYPE 2 DIGIT(S)
: sSUPPRESS LEADING ZEROS

FT,0PB.B+11

;LOAD STARTING TRACK ADDRESS

MOV

045507

MovB

§TESTN,-(SP)

:sSAVE STESTN FOR TYPEOUT

CZRMVAO RMO5/3/2 EXT'D DR TST
17
RANDOM SEEK TEST
307 011334
308 011342

11%737
013704

313 0113646
8}}%24

012737
012737

315 011366
316 011374
317 011402
318 011406
319 011410
320 011414
321 011416
322 011422
323 011426
3264 011430
325 011434
326 011440
327 011442
328 011450
011450
011456
329 011462
330 011466
0114764
331 011500
332 011506
gSS 011512
34 011514
335 011516
336 011520
337 011526
338 011526
339 011530
3640 011532
341 011536
342 011542
343 011546
344 011550
345 011552
346 011556
347 011560
348 011562
349 011570
011570
350 011574
351 011600
3564 011606
355 011610
356 011616
357
379
380

013737
023737
0014;2
004737
013746
005046
013746
005216
163716
004737
062637
005726
013737

000105
037066
011616
011362

001346
001122

002326
002326

45510
02330

314 01136% 01%709 001100

012737
012706
004C37
012737
012706
113764
016446
006316
006316
000316
105766
001401
105216
105216
112637
013746
005216
122637
103007
103403
105037
000403
112737

004037
105237
123737
101403
113737
000004

MACRO v03.01

K 6

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

045460

TEST7:

MOovB
MOV
MOV

WSEEK,DPB.A+2

;SEEK=COMMAND

WEX1T?,BYPASS

:ERROR TERMINATION ADDRESS

MoV
MOV

#STACK,SP

MOV

LMP
BEQ
JSR

RMADR R4

NTEST7.SLPADR
FC,DPB.B+12

FC,LC

025550
025646

MOV

13
PC,SRAND
SHINUM,=(SP)

002330

MOv

LC,=(SP)

CLR

INC
suB
JSR

002326
025652
045510
045510

045470

011450
001100
027132
011466
001100
045456
000020

001124

ADD
TST
MOV

1$:

000010

000001

045546
002456

THE RH/RM

:SETUP THE LOOP ON TEST ADDRESS
;SETUP THE STACK POINTER

:INITIAL CYLINDER ADDRESS
:CYLINDER LIMITS THE SAME

:FORM THE DIVISOR

:UPPER DIVIDEND

(SP)
FC,(SP)
PC.SDIV

: INCREMENT
:SUBTRACT THE LOWER LIMIT
:DIVIDE

(SP)+

‘DISCARD THE QUOTENT

(SP)+,DPB.B+12

‘BR IF THEY ARE
:CYCYLE THE RANDOM NUMBER GENERATOR
:USE THE HIGH RANDOM NUMBER

:ADD THE REMAINDER TO THE INITIAL CYLINDER

DPB.B+12,DPB.A+12

;COPY NEW CYLINDER ADDRESS

#..SLPERR
#STACK,SP

;:SETUP THE ERROR LOOP ADDRESS
*LOAD THE STACK POINTER

MOV
MOV
MOvB
MOv
ASL
ASL
SWAB
1STB

#..SLPERR
#STACK,SP

:SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER

RMLA(R&) ,=(SP)
(SP)
(SP)
(SP)

:GET THE LOOK AHEAD REGISTER

;ALIGN THE SECTOR ADDRESS
;ALIGN THE SECTOR ADDRESS
sPUT ADDRESS IN LOWER BYTE

:BR IF YES

BEO
INCB
INCB
Move

2%:

-(SP)

:UNIBUS ADDRESS OF

MOV
MOv

JSR

001124

SEQ 0075

RO, CALL.A

:6G0 EXECUTE THE COMMAND

DPB.A,RMCS2(R4) sSELECT THE DRIVE

1(SP)

:IN THE 1ST 20X OF

SECTOR ?

(SP)
(SP)

s INCREMENT THE SECTOR ADDRESS
s INCREMENT THE SECTOR ADDRESS

(SP)

s INCREMENT

:BR IF ADDRESS 1S 2 GREATER
;RESET TO SECTOR ADDRESS 0

(SP)+ ,DTADPB+10 ;LOAD THE DPB
PRMLMT+24,-(SP) ;PUT LAST SECTOR ADDRESS ON THE STACK
1T

045546

(SP)+,DTADPB+10 ;NEW SECTOR ADDRESS T00 LARGE ?
3
:BR IF NOT

045546

DTADPB+10
4%

000001

045546

027264
045507
045507

002336

002334

045507

38:

4$:

JSR
INCB
CMPB
BLOS

EXIT?:
MR

MOvB

SCOPE

#1,DTADPB+10

s CONT INUE
sRESET ADDRESS TO SECTOR 1

RO,CALL.B

:GO EXECUTE THE COMMAND

EXIT?

:BR IF NOT

DPB.B+11
DPB.B+11,LT
FT,0PB.B+11

: INCREMENT THE TRACK ADDRESS
sMAXIMUM ?
sRELOAD STARTING TRACK ADDRESS

sCALL SCOPE ROUTINE

A2 222200000000
R R
2R 0 RRRRRRRRRRRRRRR
R )

;*TEST 10

SERVO _SETTLE DOWN TEST

s*THIS TEST VERI FIES THAT THE SERVO HAS SETTLED DOWN AND THAT
s*THE DRIVE 1S 0 N CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE.
s *RANDOM SEEKS A RE ISSUED BETWEEN CYLINDERS "NC1' AND °*NC1+IC'

MVAO RM05/3/2 EXT'D DR TS 1
SERVO SETTLE DOWN TE ST

MACRO v03.01 11-APR-80 15:01:20 PAGEL 1?-9

SEQ 0076

s*('NC1' STARTS AT VALUE 'FC'). AT THE COMPLETION OF 1000 (10) 3EEKS,
s*'NC1°' 1S INCREMENTED BY VALUE 'IC' AND THE SEQUENCE IS REPEATED.
::THE TEST 1S COMPLETED WHEN °'NC1' HAS BEEN INCREMENTED BEYOND °‘LC'.
:*WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD
;*REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO
:::ggl}a2¥'sez?gRPR°GRAn THEN ISSUES A WRITE HEADER AND DATA COMMAND
;*ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED
;*CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR THAT A PACK WITH

::HARG]NAL SERVO TRACKS IS MOUNTED ON THE DRIVE.

:*THIS TEST IS 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
s*RANGE TO PERMIT THIS TEST TO BE EFFECTIVE.

0020
ooooror
wvLun
wWwrhoNN
oo~ 8:
nNONNOO

8
O—=00
—d
d
—-O=00
O=0O0W

i 2222222222222

001116

MOV

#10,8$TSTNM

sSET TEST #10 AND CLEAR (SERFLG)

000010

001240

010000

167246

JSR
MOV
MOV
MOVB

PC,LODPRM
#TEST10,8LPERR
RP1,$TIMES
#25. ,SERMAX

#10.$TESTN

ssSET TEST NUMBER IN APT MAIL BOX

BIT
BEQ

#SW12,aSWR
416

sINHIBIT TYPING TEST NUMBER ?
:BR IF YES

MOV

$TESTN,=-(SP)

::SAVE STESTN FOR TYPEOUT

BYTE
BYTE

3
0

MOV

#1% ,SLPADR

sSETUP THE LOOP ADDRESS

MOvVB

WSEEK,DPB.A+2

;SEEK=COMMAND

MOV
MOV
MOV

FC,OPB.A+12
FC,DTADPB+12
FC,NCI

;CYLINDER ADDRESS FOR THE SEEK
;CYLINDER ADDRESS FOR THE WRITE
:STARTING CYLINDER

MOV

TYPE
TYPOS

011732

001122

000105

045460
045540
065547
045470

MOVB
MovB

MOV

052776

BITS+<10#2>,TSTNMS
:DO THIS TEST?
.46
:
1F YES
ST
:NO==JUMP TO TEST11

046253
001240

VRN
W
Lo N
N & Wl
NNNNNNNNN
NNUNNNO~N
L U L
i NN
WO OO W
NN,
-y
NNNNNNNNN

i
e e
i e
i

OCOO0O0O0O0

NOP

BIT
BNE
JMP

001124

82283g
et
e

oNONSO OoONSOONINES

LNNO SO

RS ~NO WSS SN NNN--gg

000010

001330

012750

—

N
N

o
NNNNNNYN

WS
NSO

=lelelelelelel=l]

MNONOPOLMNLMNVMNIMNOINININ) = b b b b e e i

NNNNNNNNN

— b D b ed s

D
D
i
i
D
i
e

CO0O00O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0

—

3\10&00'0-‘8 gES 333 &8
£ LN N NN N NN
WO
VO OO0
oo~

001546

o
i
o
o

D o

— e e e e

OCOO0O0O0OD

OCOO0O0O0O0O0

381

AR A

TST10:

— e e e

OO0OO0O0Oo

045544

TEST10:

'"TEST'

::60 TYPE--OCTAL ASCII

:sTYPE 3 DIGIT(S)
: sSUPPRESS LEADING ZEROS

#WRITE ,DTADPB+2 ; COMMAND
FT,DTADPB+11
sTRACK ADDRESS FOR THE WRITE

1C,DELTA

;: CYLINDER INCREMENT VALUE

#-<256.%4.> ,DTADPB+4

CLR

;PATTERN POINTER (WC PATTERN)

CLR

:CLEAR REGISTER

JSR

001346

sTYPE

MOV
MOV

032732

,MSGTST

sLOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
:GET THE ITERATION COUNT
sMAX ERRORS ALLOWED FOR TEST

MOvB
MOV
JSR
MOV

#BUFFER,DTADPB+6

PC,SETBUF
DPB.A,R1
RMADR, R4
PC,CLRQUE
#EXIT10,BYPASS

sWORD COUNT

:BUFFER ADDRESS

:LOAD THE WRITE BUFFER

:LOAD DRIVE ADDRESS
sUNIBUS ADDRESS OF THE RH/RM
;CLEAR THE OPERATION QUEUES
;ERROR EXIT FROM TEST

CZRMVAO RMO5/3/2 EXT'D DR TST

110

SERVO SETTLE DOWN TEST

012052
012060
012064
012072
012076
012100
012102
012106
012112
012114
012120
012126
012132
012140
012146
012154
012160
012166
0121764
012202
012206
012212
012214
012216
012220
012226

012737
01%706
01 7%7
005737
001415
100405
017746
013746
000404
017746
013746
012776
012777
012737
012764
110164
013764
013737
112764
005037
100402
000001
000773
012737
032764

012246
012250
012256
012262
012270
012274
012276

104023
012764
110164
012777
005737
001405
016676

105764

012052
001100
000340
001340

¢39 012310

012316
440 012322
461 012326
462 012332
463 0123364
446 012336
445 012340
446 012346
447 012350
448 012352
449 0123564
450 015360
451 012364
6S§ 012366
433 012372
456 012374
455 012376
456 012402

001124
177776

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

000010

000340
040000

177776
000012

4%:

000000

012737

012310

001124

045546

BMI
MoV
MOV
BR

1%
aPKv,=(SP)

:BR IF NO CLOCK

5%:

CLKSTA

024600

PKV,=(SP)

aLKV,=(SP)
LKV,=(SP)
#TST10B,a(SP)
#OORTI,aRMVEC
#8., SEKTMR
FCLR,RMCS2(R4)
R1,RMCS2(R4)

;SAVE THE 'L' CLOCK VECTOR
sSAVE THE VECTOR ADDRESS
;CHANGE THE VECTOR
;CHANGE THE RM VECTOR
;LOAD THE SEEK TIMER
;INIT THE MASSBUS
;RESELECT THE DRIVE

TST10A:

WSEEK,RMCS1(R&4)
PS
RMDS (R4)

31
#PR7 ,PS
#ERR,RMDS(R4)

#CLR,RMCS2(R4)
R1,RMCS2 (R&)

:BR IF IT HAS
;WAIT FOR THE OPERATION TO COMPLETE
s CONTINUE
:CHANGE PRIORITY TO MAX
;ERROR ?

:BR _IF NOT
:DPB _POINTER

:SAVE THE REGISTERS
;INIT THE MASSBUS
sRESELECT THE DRIVE

sSETUP THE RM VECTOR

2(SP) ,a(sSP)

;RELOAD THE CLOCK VECTOR

CLKSTA
TST10A

¥e,SP

sWHICH CLOCK
:BR 1F NONE

;CORRECT THE STACK POINTER

#.,SLPERR
#STACK,SP

:SETUP THE ERROR LOOP ADDRESS
sLOAD THE STACK POINTER

RMLA(RG) ,-(SP)
(SP)
(SP)
(SP)

;GET THE LOOK AHEAD REGISTER
sALIGN THE SECTOR ADDRESS
;ALIGN THE SECTOR ADDRESS
sPUT _ADDRESS IN LOWER BYTE

:BR IF NOT

#300,1(SP)

2%:

;START THE SEEK
;CLEAR THE PRIORITY
sHAS THE DRIVE FINISHED ?

#1SR,aRMVEC

R1,RMCS2(R4)

000001

s CONTINUE

DPB.A+12,RMDC(R4)
;LOAD THE CYLINDER ADDRESS
DPB.A+12,CYL.DS sCYLINDER ADDRESS FOR ERROR MESSAGE

6%
#DPB.A,R2

6%:

;SEE WHICH CLOCK ON SYSTEM
;BR IF KW11=L CLOCK
sSAVE THE VECTOR
sSAVE THE VECTOR ADDRESS

sg.SVRH70

000002
000004

045546
002456

;SETUP_THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
;SET PRIORITY TO 7

MOV
MoV
MOV
MOV
MovBe
MoV
MOV

000034
001364
000000

062706

000300

#. SLPERR
#STACK,SP
#PR7,PS

MoV
MOV

000000

000010

001100
000010
000020

MOV
MOV
MOV
1ST

BEQ

000040
000010
041740
001340

012706
110164
016446
006316
006316
000316
122766
001001
105216
105216
112637
0137646
005216
122637
101007
103403
105037
000403

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

167370
001476

8}223‘
01%%23 0?;?12
472? 045456
044310

012304
012310

MACRO v03.01

(SP)
(SP)

sSELECT THE DRIVE

:IN THE LAST 20X OR SECTOR ?

s INCREMENT THE SECTOR ADDRESS
s INCREMENT THE SECTOR ADDRESS

(SP)+,DTADPB+10 ;LOAD THE DPB
PRMLMT+24 ,-(SP) ;PUT MAXIMUM SECTOR ADDRESS ON THE STACK
(SP)

s INCREMENT PAST THE MAXIMUM ADDRESS

3%
DTADPB+10

:BR IF ADDRESS IS 2 GREATER THAN MAXIMUM
;RESET TO SECTOR ADDRESS 0

(SP)+ ,DTADPB+10 ;NEW SECTOR ADDRESS TOO LARGE ?
48
:BR IF NOT
4%

: CONTINUE

SEQ 0077

,c% RMVAO RMOS/3/2 EXT'D DR TST

SERVO SETTLE DOWN TEST

458 01%412 012703 042542

MACRO v03.01

457 012404

112737

000001

045546

459 012416

01%764

800111

000000

461 0126430
462 012634
463 0126440
464 012646
465 012452
466 012456
467 012464
468 012466
469 012474

012364
012364
005037
012737
010137
112761
006301
012761
00§ZOI

000004
000006
045554
045536
037052
000001

036730

001750

037032

045540

000000

460 0124§8

470 0126476

01 go«

013764

471 012506
472 012510
473 012514
476 012522
475 012524
476 012530

005037
004037
023727
001026
005037
063737

512

103100
013737

477 812536

12244
012546

012556

023737

163737

012562
012570
012572
012600
012606
012612
012614
012620
012626
012632
012636
012640
012644
012646
012652
012656

023737
101003
013737
ogs;gr
023737
001002
000137
013737
004737
013746
005046
013746
005216
004737
062637
005726

012666

001754

012660

00002

(R3)+,RMWC(R4)

;LOAD THE WORD COUNT

(R3)+,RMBA(RG)
:LOAD THE BUFFER ADDRESS
(R3)+,RMDACRG)
:LOAD THE TRACK/SECTOR ADDR
DTADPB*16
:RESET 'DONE' INDICATOR
#DTADPB, TRNSWT
:LOAD 'TRANSFER' DPB ADDRESS
R1,DTUW
:ADDRESS OF DRIVE TRANSFERING
#1,DRVACT(R1)
:SET DRIVE ACTIVE INDICATOR
R1
:SHIFT DRIVE ADDRESS
#1000., TIMER(R1)
;SETUP THE OPERATION TIMER
R1
;RESTORE R1
PS
RO,DRVCL1
SEKCNT,#1000.
68
SEKCNT
1¢,NC1

:CLEAR THE PRIORITY
:WAIT FOR OPERATION TO COMPLETE
:FINISHED SEEKS ?
:BR IF NOT
:CLEAR THE SEEK COUNT
:ADD THE INCREMENT

EXIT10
LC,DELTA

:BR IF IT HAS
:GET THE NEXT 'ZONE' ADDRESS

001446

002356

CMP

001446

SUB

002332- 001446

002332
001444
002326
012052
002356
025550
025646

001446
002330
045470

6$:

7$:

001446

025652
045470

045550

001442

012710
012714
012720
012722
012730
012734

005337
001016
012702
004737
104024
012764
110164
016676

513 012744
g}g 012746

000002
000004

012052

045456
044310
000040
000010
000002

000010

000000

DTADPB+2,RMCS1(R4)

NiLLC

NC1,DELTA

;START THE OPERATION

*EXCEEDED THE CYLINDER LIMIT ?

:CHECK THE DIFFERENCE

CMP
BHI
MOV
INC
CMP
BNE
JMP
MOV
JSR
MOV
CLR
MOV
INC
JSR
ADD
ST

1C,DELTA
5
1C,DELTA
SEKCNT
FC,LC
%
TEST10
NC1,0PB.A4+12
PC, SRAND
$SHINUM,=(SP)
-(SP)
DELTA,=(SP)
(SP)
PC,$DIV
(SP)+,DPB.A+12
(SP)+

:DIFFERENCE GREATER THAN THE INCREMENT ?
:BR IF IT IS
:USE THE ICREMENT PARAMETER
;COUNT THE NEXT SEEK
‘BEGINNING AND ENDING CYLINDERS THE SAME ?
:BR IF NOT
:BR IF THEY ARE
:RESET THE CYLINDER ADDRESS'
:CYCLE THE RANDOM NUMBER GENERATOR
:USE THE HIGH RANDOM NUMBER
:CLEAR THE UPPER DIVIDEND
:FORM THE DIVISOR
: INCREMENT
:DIVIDE
:ADD THE REMAINDER TO THE INITIAL CYLINDER
DISCARD THE QUOTENT

BEQ

:BR IF 1T WAS

CMP

TST108:

:CLEAR THE DRIVE

MOV
MOV
CLR
MOV
MOV
MOVB
ASL
MOV
ASR

BHIS
MOV

002330

045470

000401

MOV

#DRVCLR,RMCS 1T (R&)

002356

013737

012742

;RESET ADDRESS TO SECTOR 1

MOV

#DTADPB+4,R3

MOV

S$:

:POINTER

SEQ 0078

#1,DTADPB+10

001444
002332

002330

MOV

001750

002356

MOVB

CLR
JSR
CMP
BNE
CLR
ADD

045550

000137

38:

177776
027710
001444

045470

012676
012702
012702
012706

48:

037000

023737

012670

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

DPB.A+12,DTADPB+12

;SAME CYLINDER SELECTED AS LAST TIME ?

MOV

DPB.A+12,DTADPB+12
TEST10

; CONTINUE

;COPY NEW CYLINDER ADDRESS

DEC
BNE
MOV
JSR
EMT
MOV
MOVB
MOV

SEKTMR
1%
#DPB.A,R2
PC,SVRH70
24
#CLR,RMCS2(R4)
R1,RMCS2(R4)
2(SP) ,a{SP)

;DECREMENT THE SEEK TIMER
:CONTINUE IF NOT DONE
:DPB ADDRESS
*SAVE THE REGISTERS

JMP

1$:
RTI
EXIT10: SCOPE

ExIT10

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

:ABORT THE TEST

*RETURN
*CALL SCOPE ROUTINE

’

| CZRMVAO RMOS/3/2 EXT*D DR T S T_
' TI0

‘

SCRVO SETTLE DOWN T 3 ST

MACRO v03.01

526

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

AR AR R

SRTEST 11

ALL SEEKS TEST

SEQ 0079
a

atds)

*THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER

:+T0 ALL OTHER CYLINDERS.
X

s*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.
AL AR A

012750
012750
012752
012760
012762

000240
033737
001002
000137

012766
012776
013000
013006
013014
e 013022

012737
004737
012737
013737
112737
012737

000011
026672
01313¢
002324
000031
000011

001116

013030
013036
013040

032777
001406
104

010000

166116

013050
013052
013053

013044

1sT11:

001550

001330

013214

001124
001220
001131
001240

046253

001240

AR A

i it
atdiidissd])

NOP
BIT
BNE
JMP

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

MOV
JSR
MOV
MOV
MOVB
MOV

#11,8TSTNM
PC,LODPRM
#TEST11,8LPERR
RPT,STIMES
#25.,SERMAX
#11,8TESTN

;SET TEST #11 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

BIT
BEQ
TYPE

#SY12,aSWR
.+16
MSGTST

;INHIBIT TYPING TEST NUMBER ?
:BR IF YES
:TYPE 'TEST'

TYPOS
.BYTE
.BYTE

3
0

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

MOV
MOVB
MOVB
MOVB
MOVB
MOV
MOV
MOV

#1%,SLPADR
FS,DPB.B+10
FS,DPB.C+10
FT.DPB.B+11
FT.DPB.C+11
FC,DPB.B+12
FC,DPB.C+12
#EXIT11,BYPASS

;SETUP THE LOOP ADDRESS
:SECTOR ADDRESS
:SECTOR ADDRESS
:TRACK ADDRESS
:TRACK ADDRESS
:STARTING CYLINDER ADDRESS
:STARTING CYLINDER ADDRESS
;TEST ABORT EXIT

MOV

$TESTN,=(SP)

::SAVE STESTN FOR TYPEOUT

529 013054
530 013062
531 013070
532 013076
533 013106
53, 013112
535 013120
539 8};}%2

012737
113737
113737
113737
113737
013737
013737
012737

013062
002342
002342
002334
00233¢
002326
002326
013212

gzg 8};}23

012706

001100

MOV

#STACK,SP

;SETUP THE STACK POINTER

027466
027264
002332
002330

045530
045530

002326
002332
2330

045530
045510
045510

JSR
JSR
ADD
CMP
BGE
MOV
ADD
CMP
BGE
SCOPE

RO, CALL.C
RO,CALL.B
1C,DPB.C+12
LC,DPB.C+12
1%
FC,DPB.C+12
1C,DPB.B+12
LC.DPB.B+12
1%

;GO EXECUTE THE COMMAND
:G0 EXECUTE THE COMMAND
: INCREMENT THE ENDING CYLINDER ADDRESS
;CHECK IF EXCEEDING MAXIMUM
:BR IF NOT
:RESET ENDING CYLINDER ADDRESS
:INCREMENT THE STARTING ADDRESS
SEXCEEDING MAXIMUM ?
:BR IF NOT
:CALL SCOPE ROUTINE

013140
562 913144
543 013150
564 013156
545 013164
546 013166
567 013174
548 013202
549 013210
ggg 013212

001122
045506
045526
045507
045527
045510
045530
001346

%%:HVAO RHO?/SIZ EXT'D DR TST
ING TEST

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

SEQ 0080

LSBTTL

;*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE ''RM05/3/2

:*THE

TIMING TESTS
TIMING TESTS WILL ENSURE THAT

THOSE FUNCTIONS BE ING

:*ENGINEERING SPECIFICATIONS''.

;*THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK

;-;5323 THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE

:*OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING
o'

SllITIIP TP

0 000t

iineneeeeeeireeeririeieeeiieriiieeireeiieeril

;:Q""'.'"l'"Q'"""""""""'Q"""""0..".'!"""'tt

SRTEST 12

ROTATIONAL SPEED TIMING TEST

i#THIS TEST WILL START A SEARCH TO CYLINDER

*FC',

TRACK

*FT',

:*SECTOR 'FS'.
AS SOON AS THE INTERRUPT OCCURS, THE GO BIT
i#1S SET AGAIN AND THE OPERATION IS TIMED.
THIS PROCEDURE
i#1S REPEATED 10 TIMES THEN THE AVERAGE TIME 1S CALCULATED
:*AND CHECKED TO ENSURE
-

1S WITHIN TOLERANCE:

e
e

RM0S5/3:

.
e

RMOZ2:

16.67 MS/REV + OR = 2% IF 60WZ
16.67 MS/REV + OR - 2.5% IF SOMZ.
25.00 MS/REV + OR - 2% IF 60MZ
25.00 MS/REV + OR - 2.5% IF SOMZ.

":'..'..'.'.""""""'""!"..'.t""t."'lt..t'l'"t".l""

013214
013214
013216
01322¢
013226

000240
033737
001002
000137

013232
013240

012737
004737

000012
026672

001116

X 013266

012737

000012

001240

013246
013252
013260

012737
013737
112737

013276
013302
013306

032777
001406
104401

013314
013319
01331

104403
003
000

013310

31 013320
2 013326
3 013356
013332
0133.0
013344
60 013346

013746

005737
00
;
000137
012737
004037
oooao;
000137

1$112

001552

001330

014136

014136
00232¢
000031

001124
001220
001131

010000

165652

MOV
JSR

001240

C14134

MOV
MOV
MOVB

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

BIT
BEG
TYPE

#SW12,aSWR
.+16
MSGTST

"INHIBIT TYPING TEST NUMBER ?
:BR IF YES
:TYPE 'TEST'

TYPOS
BYTE
BYTE

3
0

1160 TYPE=--OCTAL ASCII
SSTYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS

CLKSTA
s
EXIT12
#.,SLPADR
RO . SRCHOO
2%
EXIT12

;KW11=P CLOCK?
SYES==START TEST
*NO=--JUMP TO EXIT12
:SETUP LOOP ADDRESS
:DO A MASSBUS INIT & RECAL
*RETURN HERE IF NO ERROR
*RETURN MERE IF ERROR

MOV

001340
001122

18:

BITS+<1242>, TSTNMS
:D0 THIS TEST?
.46
:BR IF YES
TsT13
*NO--JUMP TO TEST13
#12,8TSTNM
PC,LODPRM
#TST13,SLPERR
RPT,STIMES
#25.,SERMAX

MOV

046253

014134
013332
031110

NOP
BIT
BNE
JMP

ST
BGT
JMP
MOV
JSR
BR
JMP

#12.$TESTN

$TESTN,-(SP)

:SETUP THE ERROR LOOP ADDRESS
:GET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST

1:SET TEST NUMBER IN APT MAIL BOX

::SAVE STESTN FOR TYPEOUT

0D 7
11-APR-80 15:01:20 PAGE 12-1

013716

101 013720
102 013732

000001

OO0
Ot

WWWNN—=N—=O
OSSO

-‘O°°°8
S 8 80“-‘“0

flg

3s:

wvilenr

oS~

~N — —

FS,=(SP)
FT.1(SP)
SP)+, RMDA (R&)

:LOAD FT/FS

: COUNT uP

wEX1T12,SESCAPE ;;ESCAPE TO EXIT12 ON ERROR

#T781.1P50

CMPB
BEQ

#5,DRVTYP(RO)
8

4$:

#178,R3

MOV

#T7A1,1P60

MOV
MOV
BR

MOV

MOV
MOV

MOV
NOP

(SP)+.RO

PC,STRTMR

MOV
CLR

#DORTI,ARMVEC
aPKB

MOV
WAIT

#SEARCH, (R&)

MOV

910, ,Ri

97§, aPxy

#131,aPKCS

#101,3PKCS
#ERR.RMDS (R&4)
28

SAVREG
MOV

#DTADPB,R2

JSR

PC.CNTCLR

JSR

RESREG

2%:

#T7A1,R3
#5,DRVTYP(RO)
“$
#T7A,1P60
#T7A.R3
#SP7A,TPS60

JSR

BIC
BIT
BEQ

000012

#sP7Af,1PS60

#STACK,SP

MOV

165612

#T78.TPS0
#SP7B,TPSS0
43

MOV

MOV
1$:

#sp781,TPSS0

MOV

TEST12:

165626

DPB.A+10
FC,OPB,A+12
PEXIT12,BYPASS
RO, CALL.A
FC.RMDC (R&)

MOV

MOV
CMPB
BEQ

045536
044310
026072
165556

MOVB
MOV

CLR
MOV
MOV
JSR
MOV
MOV

MOV

014106

165642
023226

;ERROR LOOP ADDRESS
: SEEK=COMMAND
sUSE TRACK 0 & SECTOR 0
sSTARTING CYLINDER
IF ERROR
;60 TO EXIT12
;G0 EXECUTE THE COMMAND

:SETUP PARAMETER TABLE FOR RMOS5/RMO3/RM02
MOV
RO,=(SP)
;SAVE RO
MOVE
DTADPB,RO
;DRIVE ADDRESS
BIT
#SW06,C
. SWR
;CHECK CONTROL SWR FOR 60 HZ.
BEQ
38
:BR IF YES
MOV
#1781,R3
;LOAD 50 WZ. TABLE FOR RMO?2

036750

014114

#.,SLPADR

W#SEEK,DPB.A+2

CLR

W
oS

b
D

PoFI

abad

0191

001616
001616
001704

[V p——

==l

001314

MOV

MOVB

MOV

001222

& &8X8%sg WNNS NNWIVO NINNWIWBWNO

NNNS
NNNN
NNNS NNNNSNN
NN
= NN
NNN—GNNNN—CNWS

N b et

00000 —0O

N = e et O
s
—t

013708
ikt

32 339
R SER

99 013676
100 013700

—e

ii
% 013538

9% 013642
9% 013646
95 013654

9§mu§

80 013566
81 013574
82 013600
85 013606
84 013610
87 013612
88 013612
89 013616
90 013622
91 013656

NNONNNNYN
OOF NN,
NV
N
=
NO — —
= NNNNWO
N NNNNNN—NNWNNNVN
-

72 013520
73 013326
7% 0135
7 013336
76
013544
77 013552
78 013556
79 013566

= O000000O0O0
= s
ccocg N
-t
s

70 013512
71 013514

62 0134t
65 013450
64 013454
65 013462
66 013464
67 013470
68 013476
69 013504

34
06
34

—_Nne

013434
013452
013436
013444

S
H

0 12737
112737

2
2%
g 00
04 5 6
9 /4
434
[4 §023 6
5 7
12737
1
001346
7 027132
i
st
2
000034
013420
s
01335
01

SEQ 0081

-TmTMn

(l R MVAO RMO5/3/2 EXT'D DR _TST
M. C 0 v03.01
n2
ROTATIONAL SPEED TIMING TE )

EMT

CLR

PC,SVRH?0
17

aPKB

*AN RMO2 DRIVE ?
:BRANCH IF

SLOAD S0 HZ. TABLE FOR RM0S5/3

CEXIT

*LOAD 60 HZ. TABLE FOR RM02

*AN RMO2 DRIVE ?

'BRANCH IF SO

“LOAD 60 MZ. TABLE FOR RMO0S/3

‘RESTORE RO

JEXIT

;SETUP STACK

;:TIME

10 SEARCHES

sINITIALIZE THE TIMERS
;SETUP VECTOR IN CASE OF OVERFLOW
;SETUP RM VECTOR
;START COUNTING AT ZERO
sINT.EN., COUNT UP AT 100xHZ
sSTART A SEARCH
;WAIT ON_INTERRUPT

;STOP THE CLOCK
:ERROR?
:NO-=BRANCH
:SAVE RO-RS
:DPB POINTER

sSAVE ALL THE RH/RM REGISTERS
;G0 CLEAR CONTROLLER
;RESTORE RO-RS
;START

THE

COUNT AT

ZERO

?eg?o v03.01 11-APR-80 15:01:20 PAGE 12=2

MVAD RMOS/3/2 EXT'D
ROTATIONAL SPE 3

103
104
105
106
107
108
109

013726
013732
013740
013742
013750
013756
013760

013762
013766
013772
013776

110 014000
111 014002
112 014006

113
114
115
116
117
118
119

014010
014012
014014
014022
014026
014030
014032

014034
014040
014064
014050

120 014052
121 014056
12¢ 014060
123 014066
124 0164072
138 014100

139
140
141
142
143
144

014102
014106
014110
014114
014116
014120
014126
014126
016132
014134

012714
012777
000001
Qegr17
032764
001411
10441

01270
00473
004737
106413

104017
004737
005301

003314
000420
042777
005037
012600
005726
104412

012702
004737
006737
106413

104020
004737
004757
012777
032737
001007

004037
001606
004037
001676
000406

004037
001616
004037
001704
000004

MOV
MOV
WAIT

165542

165532
000012

045536
044310
026072

#101,aPKCS
WERR.RMDS(R4)

JSR
JSR

PC,SVRHPO

RESREG

3%:

165460

7%:

EMT
JSR
DEC
BGT
BR
BIC
CLR

MOv

TST
SAVREG

045536
044310
026072

MOV

JSR
JSR

RESREG

026072
000100

88:

022776
001314

031576

EMT
JSR
JSR

MOV

TP60:

031470

TPS60:

BIT
BNE
JSR
T7A
JSR

SP7A

BR
EXIT.A: JSR
178
TP50:
JSR
TPS50:
SP78
EXIT12: SCOPE

031576
031470

#131,39PKCS

BIC
BIT
BEQ
SAVREG

MOV

031336

FSEARCH, (R4)

#DTADPB,R2
PC.CNTCLR

SEQ 0082

;START A SEARCH

SSTART THE CLOCK

:WAIT ON INTERRUPT
:STOP THE CLOCK
:1S "ERR=1'"?

:NO==BRANCH

:SAVE RO=RS

:DPB POINTER

:SAVE ALL THE RH/RM REGISTERS
:60 CLEAR CONTROLLER

*RESTORE RO=RS

PC, COUNT
R1
1%

:UPDATE THE COUNT
;DONE?
*NO=-=BRANCH

#101,3PKCS
PS
(SP)+,RO

:STOP THE CLOCK
:DROP THE PRIORITY
‘PC OF WAIT#2

(SP)+

#DTADPB,R2

PC,SVRH?0
PC.CNTCLR

PC,CNTCLR
PC.ST.CLK
#ISR,IRMVEC

#5W06, C . SWR
EXIT.A
RO,TYPTIM
RO,SPTYP

EXITI2

RO,TYPTIM
RO,SPTYP

SYES==GO TO THE EXIT

:POP THE

PS FROM THE

:SAVE RO=RS

STACK

:DPB POINTER

:SAVE ALL THE RM/RM REGISTERS
:60 CLEAR CONTROLLER

:RESTORE RO=-RS

;60 CLEAR CONTROLLER
SINITIALIZE THE CLOCK
‘RESTORE RM/RM INT. VECTOR

160 H2?
*NO-BRANCH
STYPE THE TIMING

:TABLE ADDRESS

‘TYPE THE

GEXIT
STYPE

THE

SPEC

TIMING

:TABLE ADDRESS

*CALL SCOPE ROUTINE

153

::'.'.".....""'"""'""".'."'!'..'l."'l""t'l'l'lt"tt'

J*TEST 13

ONE CYLINDER SEEK TIMING TEST

J*THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE
s*CYLINDER BY ONE UNTIL THE !NCREMENT IS GREATER THAN THE

s*CYLINDER 'LC', THEN REVERSE SEEX TO CYLINDER 'FC'. THE
s*TIME TO PERFORM EACH SEEK IS CHEC’ED TO ENSURE 1T DOES NOT
:*EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK.
s*THE TIME MUST BE LESS THAN 10mS.

RN RN RN RN R RN R RN RN RN RN RN R RN RN RN R RRRRRRNRRRRRRRRRRRRRERNREROERRETY

014136
014136
014140
014146
014150

000240
033737
001002
000137

1§113:
001554

014540

001330

NOP

BIT
BNE

JMP

BITS+<13+2>,TSTNMS
)
1ST14

:D0 THIS TEST?

:BR IF YES
sNO==JUMP TO TEST14

CZRMVAO RMOS/3/2 EXT'D DR TST

MACRO v03.01

CNE CYLINDER SEEK TIMING TEST

014156
014162
014166
014176
014202

012737
006737
0157 7
013737
112737

000013
026672
014640
002324
000031

001116

014216
014226
016226

032777
001406
106401

010000

164730

014236
014240

104403
003

. 014210

014232

0146241
156
157
160
161
162
163

0142642
014246
014250
014254
014262
014266
175 014270

012737

013746

000013

001124
001220
001131

001240

014276
014302
014310
014314
°"§f8
014

012737
112737
005037
013737
012737
004037

8}2322

012703

014274
000105
045466
002326
014636
027132

012737

001646

014636

001222

176 014346
177 014352
178 014360
179 014364
180 014366

012706
013737
005237
005005
004737

001100
002326
045550

045550

182 014400
183 014406
184 014412
185 014420
186 014426
187 014432
188 014434
189 014442
190 014450
191 014652

012777
005077
013764
012714
012777
000001
042777
032764
001411
104412

031272
165072
045550
000105
000131

022462

000101
040000

165040
000012

181 014372

014454

192
193
194
195
196

012777

031274

014544

01270;

045536

004737
104413

026072

014460

004737

014472
014474
014500
014502
014504

104017
004737
005705

014464
014470

014636

001011
005237

;SET TEST #13 AND CLEAR (SERFLG)
:LOAD THE PARMETERS FOR THE TEST
:SETUP THE ERROR LOOP ADDRESS
*GET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST

BIT
BEQ
TYPE

#SW12,aSWR
.+16
MSGTST

;INHIBIT TYPING TEST NUMBER ?
‘BR IF YES
STYPE °TEST®

BYTE

1160 TYPE==OCTAL ASCII
SSTYPE 3 DIGIT(S)

18T
BGT
JMP
MOV
JSR
BR

CLKSTA
1%
EXIT13
#.,SLPADR
RO SRCHOO
2%
EXIT13

:KW11=P CLOCK?
SYES==START TEST
INO==JUMP TO EXIT13
:SETUP THE LOOP ADDRESS
:DO A MASSBUS INIT. AND RECAL
:NO ERROR RETURN
:ERROR RETURN=--SCOPE LOOP CALL

TYPOS
BYTE

001340

000137

#13,8TSTNM
PC,LODPRM
#TST14,8LPERR
RPT,STIMES
#25.,SERMAX

MOV

000
014636
014254
031110

MOV
JSR
MOV
MOV
MOVB

MOV

046253

005737
003002
000137
012737
004037
000402

014334

Fo?
11-APR-80 15:01:20 PAGE 12-3

001122

18:

001122
045460

2%:

045470
001346

165076

000034

JMP

165050

2%:

(45550

3%:

: :SUPPRESS LEADING ZEROS

MOV

WEX1T13,8ESCAPE ::ESCAPE TO EXIT13 ON ERROR

MOV
MOV
INC
CLR
JSR

#STACK,SP
FC,OTADPB412
DTADPB+12
RS
PC,STRTMR

MOV
CLR
MOV
MOV
MOV
WAIT
BIC
BIT
BEQ
SAVREG

#DORTI,3RMVEC
:SET RM VECTOR
aPKB
:START THE COUNTER AT ZERO
DTADPB+12,RMDC(R4)
sLOAD DESIRED CYLINDER
#SEEK, (R4)
;START A SEEK
#131,3PKCS
:START THE CLOCK
JWAIT ON INTERRUPT
#101,3PKCS
:STOP THE CLOCK
#ERR,RMDS(R4)
;ANY DISK ERRORS?
28
*NO=--BRANCH
:SAVE RO-RS

JSR

PC,SVRK?O

MOV

JSR
RESREG

031336

::SAVE STESTN FOR TYPEOUT

#.,SLPADR
WSEEK,DPB.A+2
DPB.A+10
FC,DPB.A+12
WEXIT13,BYPASS
RO, CALL.
A

MOV

044310

$TESTN,=(SP)

::SET TEST NUMBER IN APT MAIL BOX

MOV
MOVB
CLR
MOV
MOV
JSR

MOV
18:

P13 $TESTN

EMT
JSR
3]
BNE
INC

#110,R3

07§, aPxv

*ERROR LOOP ADDRESS
:SEEK=COMMAND
TUSE TRACK 0 & SECTOR 0
:STARTING CYLINDER
:GO TO EXIT13 IF ERROR
160 EXECUTE THE COMMAND

:PARAMETER POINTER

;SETUP STACK
:START WITH BEGINNING CYLINDER
:INCREMENT THE BEGINNING CYLINDER
:SET THE UP/DOWN SWITCH T0 UP
SINITIALIZE THE TIMERS

:SETUP INCASE OF OVERFLOW

#DTADPB,R2

:DPB POINTER

PC.CNTCLR

160 CLEAR CONTROLLER
*RESTORE RO-RS

17
PC,COUNT
RS

u$
DTADPB+12

:SAVE ALL THE RH/RM REGISTERS
;COUNT THIS SEEKS TIME
‘UP OR DOWN?

DOWN=--BRANCH
sMOVE TO NEXT CYLINDER

SEQ 0083

WNWVONNIW

333adm g TR SR88282 Em
~

WNWNNNN
ONNNOHfN
YNV
NOON
N NN NN = W N O — N O N NN NN N O
NN
NNNNOWNNNVNOO ONNONNNOWWN

O=00
s
—

&~sO

Mx
DO~

i:g:s;\”\fil‘l‘J‘U‘hahahg-a_.
o~
CNFANONC FO0O
=W
~~

W LV IV ]

v AV ALV Al ALV LV AV LV IV IV IV IV
N~

e
D o
S e
o
D oD o
D e
D e
D
D
o
i o
D
s
s

045550

000101
177776

002326

4%:

164730

026072
02615
061740
031576
031470

DTADPB+12

?;ADP8012.F(

MOV

#DTADPB,R2

RESREG

022246

#-1,R5
1%

MOv
18T

JSR
JSR

8%:

DTADPB+12,LC
1%

#101,3PkCS
PS
(SP)+,RO
(SP)+

SAVREG

045536
044310
026072

12-4

SEQ 0084
CMP
BLT
MOV
BR
DEC
CMP
BGT
BR
BIC
CLR

177777

065550
045550

11-AFR=-80 15:01:20 PAGE

002330

EMT
JSR
JSR

MOV

JSR
110
JSR

SP10
EXIT13: SCOPE

NNV

MACRO v03.01
DR TST
EEK TIMING TEST

N =O

NN
s et it e

ORI

=l=lelelelelelolelelelelelelelelelelelelelelelelete)]

NINININININI NINININ) =

b s

SEIRFRER2882S

Q
=

CZRMVAOD RMDS
3

PC,SVRH70
PC.CNTCLR

PC,CNTCLR
PC,ST.CLK
#1SR,aRMVEC

RO,TYPTIM

RO,SPTYP

;OUT OF CYLINDERS?
:NO==GO DO THE NEXT SEEK
sSET UP/DOWN SWITCH TO DOWN
.60 DO THE NEXT SEEK
sMOVE TO NEXT CYLINDER
;0UT OF CYLINDERS?
:NO==GO DO THE NEXT SEEK
;60 TO THE EXIT
;STOP THE CLOCK

sDROP THE PRIORITY

PC OF WAIT#?
;POP THE PS FROM THE STACK

:SAVE RO=-RS

;DPB POINTER
JSAVE ALL THE RH/RM REGISTERS
;60 CLEAR CONTROLLER

JRESTORE RO=RS

;60 CLEAR CONTROLLER
;INITIALIZE THE CLOCK
;RESTORE

RH/RM INT.

;GO TYPE THE TIMES
;POINTER

VECTOR

;CALL >COPE ROUTINE

:;"I'.'.'.'."""""'""""."'.."'.'..."."..""'".."'

s*TEST 14
ACCESS TIME MEASUREMENT TEST
;*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER

;*CYLINDER 'LC', THEN A REVERSE
s*CYLINDER 'FC°.

'FC'

SEEX FROM CYLINDER 'LC' TO

BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY

;*ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASUREMENT.
;*THIS SEQUENCE

IS REPEATED 128 TIMES

(FOR A TOTAL OF

;*THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MsS.
e

iiii

T§T14:

NNNNNN
Wi
e

ONNNNNN

000014

010000

00508

229

80 ONWN
=l
— e =1=]
§

015400

— )O=O
w
SWs =N
or NEESN
N
WANO
—
SN

001556

000

001330

i iR
iR
R0 ]]

NOP

BIT

BNE
JMP

026672
015400
002324
000031
000014

001116

MOV

001124
001220
001131
001240

MOv
MOV
MovBe
MOV

164226

BIT
BEQ

046253
001240

256 SEEKS).

JSR

TYPE
MOV
TYPOS

.BYTE

;00 THIS TEST?
BITS+<14+2>,1STNMS
- +6
:BR IF YES

TST15

:NO==JUMP TO TEST1S

#14,8TSTNM
PC,LODPRM

914, $TESTN

;SET TEST #14 AND CLEAR (SERFLG)
:LOAD THE PARMETERS FOR THE TEST
sSETUP THE ERROR LOOP ADDRESS
sGET THE ITERATION COUNT
sMAX ERRORS ALLOWED FOR TEST
s+SET TEST NUMBER IN APT MAIL BOX

#SW12,3SWR
+16

:INHIBIT TYPING TEST NUMBER ?
:BR _IF YES

3
0

::TYPE 3 DIGIT(S)

#TST15,SLPERR
RPT,STIMES
#25. , SERMAX

"MSGTST
$TESTN,=(SP)

::60 TYPE--OCTAL ASCII
: s SUPPRESS LEADING ZEROS

—wunwN
NWVWNNOONN
NOO

W
[
TR
- OON)
=

1%:

2%:

TEST14:

SRIPRE

JMP
MOV

JSR
BR
JMP

MOV
MovBe

CLR
MOV
MOV
JSR
MOV
MOv
MOV
MOv

JSR
MOV

1%:

000101
040000

031336

MOV

CLR

MOv
MOV
MOov
WAIT

BIC
BIT
BEQ
SAVREG

MOV

JSR
JSR

RESREG

2%:

EMT
CLR
JSR
CLR

ON-‘NWNWNNNN—.g N—-~N

MOV

VINNO
S NN
NN
~
N NOWWO
= = NN O — =

(=l =1~

-fOnN

SERRENE SaR

—

WAL

W= NO

NNNN
Nflfluog
-

b e e
b b b b e e
NI NI NONINU NI NOIRNININD =
NN

i
D
i

i
e

L LY N

18T

N—-~

D
e e
e O

o
~

d i e el o ch

NWNNNNNNNNNNNNNSN

8382888

-.°§
~ NNWWVNNSNON NS NWTNON
p——

i d
O
d
d
e

Nflflg oNO
S~
ONNVO

NSNS
Ss0O0N gWN—‘—‘

ocog
v IV

WALV
S

b ab
b

b ab ab ab ab ab ab ab ab ab ab ob ab ab

IV IV AV AV IV IV IV IV IV IV IV I O O O O O O O
OCOO0OO0OONNNNNNNNY
Y

b ab ab ab ab

LV LV LV IV AV IV W

e
ah el l S A

b ab ab ab ab ab ab ab

i
o R

wd ab ab

i
i e
b

b i

VS WIo—=09v

Nflflwwwogzsag

rnorororRONN
OO NN~
- OV
~NO

0
7
11-APR=80 15:01:20 PAGE 12-5

BGT

045536
044310
026072

Al S A

b ab ab ab ab ab wb

SLERRIZS

NN LS LNT NT NT NT NT ST N7 N1,¥)
oo VWAV
AN
W
—=O OWONOWVSsWN—=O

[=lelololelelelalelelelelelelelelelelelolalelelelalelalelalelelololololololololelalelalelelelealalalalalalalataTa)

oo
NN NN

MVAO RM05/3/2 EXT'D DR TST
nggao v03.01
CESS
TIME MEASUREMENT

000131

SEQ 0085

CLKSTA
18
EXIT14

:KW11=P CLOCK?
SYES==START TEST
*NO==JUMP TO EXIT14

RO .SRCHOO

:D0 A MASSBUS INIT & RECAL

#.,SLPADR
#SEEK,DPB.A+2

:ERROR LOOP ADDRESS
:SEEK=COMMAND

FC,DPB.A+12
WEX1T14,BYPASS
RO, CALL.A

:STARTING CYLINDER
:GO TO EXIT14 IF ERROR
160 EXECUTE THE COMMAND

#.,SLPADR

2%
EXIT14

DPB.A+10

#111,R3

WEX1T14,8ESCAPE

:SET THE LOOP ADDRESS

:RETURN HERE IF NO ERROR
‘RETURN HERE ON ERROR
:USE TRACK 0 & SECTOR 0

:PARAMETER POINTER

::ESCAPE TO EXIT14 ON ERROR

#STACK,SP

;SETUP STACK

PC,STRTMR

SINIT.

#128. ,R1

#7§,3PKV

#DORTI,3RMVEC

aPKB

LC,RMDC(R&)

W#SEEK,RMCS1(R4)

#131,3PKCS

#101,3PKCS
#ERR_RMDS(R4)

#DTADPB,R2

TREPEAT """FC'="LC'="FC''" 128 TIMES
THE

COUNTERS

:SET UP VECTOR IN CASE OF OVERFLOW
:SETUP RM VECTOR

;START

COUNT AT ZERO

:"MIDDLE"

CYLINDER

;START A SEEK

SSTART THE CLOCK

:WAIT ON INTERRUPT

:STOP CLOCK
:ERR=17

;NO==BRANCH

:SAVE RO-RS

:DPB POINTER

PC,SVRH70

:SAVE ALL THE RH/RM REGISTERS

:RESTORE RO=-RS

:SET UP/DOWN SWITCH TO UP

#SEEK,RMCST1(R4)
#131,3PKCS

;START A SEEK
START THE CLOCK

PC.CNTCLR

PC, COUNT
aPKB
FC,RMDC(R4)

160 CLEAR CONTROLLER

:UPDATE THE COUNT
:START THE COUNT AT ZERD
;BEGINNING CYLINDER

*WA1T ON INTERRUPT

000101
040000

#101,9PKCS
JERR.RMDS(R4)
38

:STOP THE CLOCK
:ERR=1?
*NO=--BRANCH

045536
044310
026072

#DTADPB,R2

:DPB POINTER

177777
031336

PC,SVRH?0
PC.CNTCLR

3s:

*SAVE RO-RS

:SAVE ALL THE RH/RM REGISTERS
160 CLEAR CONTROLLER

*RESTORE RO-RS

#-1,R5

:SET UP/DOWN SWITCH TO DOWN

sYES=<EXIT

PC,COUNT
R
1%

*UPDATE THE COUNT
:DONE?
*NO=--BRANCH

|
CZRMVAO RMO5/3/2 EXT'D DR TS T

_ MACRO v03.01
ACCESS TIME MEASUREMENT TEST

114

282 015304

042777

284 015316
285 015320
286 015322
0153§8

012600
005726
104412
032702

015340
287 015342
288 015344
289 015350
290 015354
291 015362
015366
292 015370
293 015374
ggg 015376

104413
loaogo
004737
004737
012777
004037
001656
004037
001734
000004

000101

283 015312 oogosr 177776
015330
015334

164170

7%:

045536

004737 244310
004737 T4a0722

026072
026156
041740
031576

11-APR-80 15:01:20 PAGE

BIC

#101,3PKCS

MOV
18T
SAVREG
MOV

(SP)+,R0
(SP)+

CLR

JSR
JSR

021506

031470

304
SOS

RESREG
EMT
g$:
JSR
JSR
MOV
JSR
188
JSR
SP11
EXIT14: SCOPE

#DTADPB,R2

PC,SVRHPO
PC,CNTCLR

20
PC,CNTCLR
PC,ST.CLK
#1SR,IRMVEC
RO,TYPTIM
RO,SPTYP

12-6

SEQ 0086

:STOP THE CLOCK

:DROP THE PRIORITY

:PC OF WAIT+2
:POP THE PS FROM THE STACK
:SAVE RO=RS
:DPB POINTER

*SAVE ALL THE RH/RM REGISTERS
;60 CLEAR CONTROLLER
;RESTORE RO=-RS

;60 CLEAR CONTROLLER
;INITIALIZE THE CLOCK
:RESTORE RM/RM INT. VECTOR
:GO TYPE THE TIMES
:POINTER
:CALL SCOPE ROUTINE

::t'..t'tt't.tttt'"t"""tt"'ttttt'tttttttttt't!tttt'ttt't'ttt

s*TEST 15

MAXIMUM SEEK TIMING TEST

;*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER

°*FC'

;*CYLINDER 'LC', THEN A REVERSE SEEK 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 1S REPEATED 128 TIMES (FOR A TOTAL OFf
;%256 SEEKS).
THE MAXIMUM SEEK TIME MUST BE LESS THAN 54 MS.

;."tt'tttttt'tttt""t'tt'lt"'t'tlttttttttt't'tlttt.t"'tt"tttt

015400
015400
015602
015410
015412

000240
033737
001002
000137

015416
015426
015430
015436
015444

012737
004737
012737
013737
112737

000015
026672
016140
002324«
000031

001116

015460
015466
015470

032777
001406
104401

010000

163466

015500
015502
015503

104403
003
000

. 015452

015474

307 015504
308 015510
311 015512
312 015516
313 015524
314 015530
326 015532

012737

013746

005737
00300
000137
012737
004u37?
ooo:.o;
000137

15115:

001560

001330

016140

000015

001124
001220
001131

001240

MOV
JSR
MOV
MOV
MOVB

#15,8TSTNM
PC,LODPRM
#1ST16,8LPERR
RPT,STIMES
#25.,SERMAX

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

BIT
BEQ
TYPE

#SW12,3SWR
416
MSGTST

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

3
0

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

CLKSTA
1%
EXIT1S
#.,SLPADR
RO, SRCHOO
2%
EXIT1S

:KW11=P CLOCK
:YES==START TEST
:NO==JUMP TO EXIT15
:SETUP THE LOOP ADDRESS
:DO A MASSBUS INIT & RECAL
;RETURN HERE IF NO ERROR
:RETURN HERE ON ERROR

MOV

TYPOS
.BYTE
BYTE

001340

(16136

BITS+<15%2>, TSTNMS
:DO THIS TEST?
.46
:BR IF YES
1ST16
:NO==JUMP TO TEST16

MOV

046253

016136
015516
031110

NGOP
BIT
BNE
JMP

001122

18:

18T
BGT
JMP
MOV
JSR
1]
JMP

#15.$TESTN

$TESTN,=(SP)

::SET TEST NUMBER IN APT MAIL BOX

::SAVE STESTN FOR TYPEOUT

——
pRr—y

L=
)

S28R
888 2335
—
-.cg S8258aR822288
SN
=N
NN
S 002
NS
s8N 2\”~\IDN
wWwnasrnoS~
S
o

JSR

TEST15:

163644
021230

000034
000000
163614

-~ -~

1$:

000101
040000

MOV
MOV
JSR
MOV
MOV

CLR

MOV
MOov
MoV
WAIT

2%:

000034
000000
163516

000012

FC,DOPB.A+12

:STARTING CYLINDER

DPB.A+10

WEXIT15,BYPASS
RO, CALL
.A

#STACK,SP

045536
044310
026072

;SETUP STACK

SREPEAT """FC'='LC'="FC''' 128 TIMES

07§ ,aPKy

:SETUP VECTOR IN CASE OF OVERFLOW

PC,STRTMR
#DORTI,RMVEC

SINIT.

THE TIMERS

:SETUP RM VECTOR

aPKB
LC,RMDC (R&)

:START COUNTING FROM ZERO
:MAXIMUM CYLINDER

#131,3PKCS

:START THE CLOCK
*WAIT ON INTERRUPT

#SEEK,RMCST(R4)

:START A SEEK

:STOP THE CLOCK
:ERR=1?
*NO=-=-BRANCH

MOv

#DTADPB,R2

:DPB POINTER

JSR
JSR
RESREG
EMT
CLR
JSR
CLR

PC,SVRH70

:SAVE RO-RS

:SAVE ALL THE RH/RM REGISTERS

PC.CNTCLR
-

160 CLEAR CONTROLLER
*RESTORE RO-RS

;SET THE UP/DOWN SWITCH TO ULP

PC,COUNT
aPKB
FC,RMDC (R&)
#SEEK,RMCS1(R4)

:UP THE COUNT
:START COUNT AT ZERO
:BEGINNING CYLINDER
:START A SEEK

#101,3PKCS
#ERR.RMDS(R4)

:STOP THE CLOCK
:''ERR"'=1?

#DTADPB,R2

:DPB POINTER

#131,aPKCS

PC.CNTCLR

7%:

:GO TO EXITIS
IF ERROR
:60 EXECUTE THE COMMAND

#128. R

PC,SVRH70

163430

*USE TRACK 0 & SECTOR 0

#112,R3
:PARAMETER POINTER
WEXIT15,8ESCAPE ::ESCAPE TO EXITIS ON ERROR

3%:

;:ERROR LOOP ADDRESS

:SEEK=COMMAND

#101,3PKCS
FERR.RMDS(R4)
$

MOV
MOV

163506

#.,SLPADR

#SEEK,DPB.A+2

BIT

BEQ
SAVREG

044310
026072

031336
163542
002326
000105
000131

MoV
MCv

BIC

045536

5
7
7
64

WNO =N O W NN NO WO = = (NINO = NNV
O NNON= NV NWNNNN
-

1 VT, 4 N
ST 2
NOONSNG
=]

2
2
7
7
3

MOV
Move
CLR
MOV
MOV

163604
000012

OO0
—
(==

VIS
oo
VLA

7
1
7

WOWHA NS NOO WO WU"&J

NNNNNN

NN SN

-t

SS§§§8S333&gzeseeg8§NNNNNNNNNN
SREFRSRSER 41333332

D el el el e
D
D i

[=lololelele)
—_—
R
o
NONWNWVVINON SN

= e

cocooconSsONS ofroornoNn

D o
D
)

A WA WA WA WA WA

el e

SEQ 0087

YAV

D e
D el e
D
D el
D e

WVIWAWM AWM AW

D
D
D e
D
D
D
)
D
D el el
D
— e

N
—

333

Lt U U U

WVIWVWAWVAWAL

VNS W

D e

AR
R FRRRRRERR

= SO~
W
o=

VWA WA N

OV~

S W =0V~

ruuuuuuuwuuwuu
W
WO NN

e e e

D e

WA WA
WA WAV
O O O O O VYWNWAWWAWWW

[=lelelelelelelalelelelelalelelelalelelalalalalalalalalalalelelalalelelelelelelolelelolololololelelelelelololaTata)

PAXIMUM

RESFFCEE

CZRMVAO RMO5/3/2 E

115

:START THE CLOCK

:WAIT ON INTERRUPT

*NO=--BRANCH
:SAVE RO-RS

:SAVE ALL THE RM/RM REGISTERS
160 CLEAR CONTROLLER

‘RESTORE RO=RS

#-1,RS
PC,COUNT
R1
1%

:SET THE UP/DOWN SWITCH TO DOWN
*UPDATE THE COUNT
:DONE?
:NO--BRANCH

#101,3PKCS
PS
(SP)+,RO
(SP)+

:STOP THE CLOCK
:DROP THE PRIORITY
‘PC OF WAIT#2
:POP THE PS FROM THE STACK

SYES==EXIT

:SAVE RO-RS

#DTADPB,R2

:DPB POINTER

PC.CNTCLR

160 CLEAR CONTROLLER

PC,SVRH?O

:SAVE ALL THE RH/RM REGISTERS

cZ R MVAD RMO5/3/2 EXT'D DR TST
MACRO v03.01
n5
PAXIMUM SEEK TIMING TEST

016100
364 016102
365 016104
366 016110
367 016114
368 016122
016126
369 016130
370 016134
371 016136
372

104413
104020

004737
004737
012777
004037

8%:
020746

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

JSR

JSR
MOV
JSR
112
JSR

SP12
EXIT15: SCOPE

PC,CNTCLR
PC,ST.CLK
#ISR,SRMVEC

RO,TYPTIM

RO,SPTYP

;RESTORE RO-R5
;G0 CLEAR CONTROLLER
sINITIALIZE THE CLOCK
;RESTORE RH/RM INT. VECTOR
;G0 TYPE THE TIMES
;POINTER
;CALL SCOPE ROUTINE

SEQ 0088

CZRMVAQ RMO5/3/2 EXT'D DR TST
NO VIS WN =

~ ADDRESSING TESTS

MACRO v03.01

11-APR-80 15:01:20 PAGE

.SBTTL

SEQ 0089

ADDRESSING TESTS

SSATITTTITITIIT I
e i ietididiniieiieiieiiiieieieieeieeieiee
:*THE ADDRESSING TE STS ENSURES PROPER OPERATION OF THE TRACK
:*AND SECTOR ADDRES S C IRCUITRY. BOTH ADDRESSING TESTS WILL
;*BE PERFORMED ON C YLl NDER F C.
i iiieiieeieeeeiieri
NN /11 111 / HIHTITIEIITIEN
AL AAA AR A

AR AR

AR A

il etittt
sd])

SECTOR ADDRESSING TEST
;*TEST 16
s*THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK ''FT''.
THE
;*DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR
A WRITE CHECK IS PERFORMED, THE BUFFER 1S
;*BEING WRITTEN,
s*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 1S REWRITTEN AND SECTORS 0 = 31 ARE WRITE CHECKED.
;*THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH
;*REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-31.

001562

001330

BNE
JMP

001116

MOv

000016

001124
001220
001131
001240

MOV
MOV
MOvB
MOv

010000

162726

046253
001240

BIT
BEQ

JSR

TYPE
MOV
TYPOS

&»

W
O-‘Og
W

tadeiea

O—-00

000016

) —-

016562

016560
016260

TEST16:

001100
b

VAN ONO~NW
= O=Or00O

\fl\flUflafld\dLflS{
NNNNNNN

OO0000—=—=000

E;-a-.-.-.-.(’-n—.
—

v
VA

OO0OO0O0O0O0OO0OOVO0O0O0O0O0O00
D B D B e e wmh i ok o) ek el od o} s
ooooocoocococoocococooco

NN
N

NN
3: WN=O Vo~
OO

NOP

BIT

Qs 0
oOoNS
W
==
NSO
O
RS {>grnl~
»

OCOO0O0O0O00
P
I S
e
sooo0rOr
OO0

—

VNS

OOO0O00O0
b ol ok e
OcOrOFOFOFOF

OO0OO0OOC0O
P e e
OCONOMONO

':.'I.Q..."'."""t"'"""".t..'lt'.'...""'"""'."'t'tt

18T16:

045540
001124

;D0 THIS TEST?

.46

:BR IF

#16,8TSTNM
PC,LODPRM

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

RPT,STIMES

sGET THE

#16,$TESTN

ssSET TEST NUMBER IN APT MAIL BOX

#SW12,3SWR
+16

sINHIBIT TYPING TEST NUMBER ?
:BR IF YES
;TYPE 'TEST'

TST17

#TEST16,SLPERR

ERR.CT,SERMAX

TMSGTST
$TESTN,=(SP)

YES

:NO==JUMP TO TEST17

:SETUP THE LOOP ON ERROR ADDRESS
ITERATION COUNT

;MAX ERRORS ALLOWED FOR TEST

::SAVE STESTN FOR TYPEOUT
::60 TYPE--OCTAL ASCII

.BYTE
.BYTE

3
0

MOV
MOV

MEXIT16,BYPASS
#TEST16,8LPADR

;SETUP THE LOOP ADDRESS

MOV

JSR

#STACK,SP
PC,FILBUF

sSET THE STACK POINTER
sFILL THE BUFFER WITH SECTOR ADDRESSES

CLRB

DTADPB+10

:SECTOR

#.,SLPERR

:SETUP THE ERROR LOOP ADDRESS

MOV
MOovB

045540

BITS+<16+2>,TSTNMS

MOV
MOV
MOV
MOV
MOV

JSR

MOV

FC,DTADPB+12
FT,DTADPB+11

::TYPE 3 DIGIT(S)
: sSUPPRESS LEADING ZEROS

s CYLINDER
: TRACK

TRCKWC ,DTADPB+4 ;WORD COUNT
#BUFFER,DTADPB+6
:BUFFER ADDRESS
#STACK,SP

*LOAD THE STACK POINTER

#WURITE ,DTADPB+2 ; COMMAND=WRITE DATA

RO,DRVCAL
sSTART A DATA TRANSFER
#WRCKD,DTADPB+2 ;COMMAND=WRITE CHECK DATA
#. SLPERR
:SETUP THE ERROR LOOP ADDRESS

| %% RMVAO RMOS5/3/2 EXT'D DR TST
f
SECTOR ADDRESSING TEST

016364
39 016370
40 016374

012706
00403
01%737

001100
027270
016376

41
42
43
46
45

ooaog
012737
004037
006037
012700

032314
000171
ogrero
032362
052776

016402

0164
016412
016620
016626
016430

01 709

005001
012737
012706
012737
012737
010037
110137
004037
012737
012706
012737
013737
012737

016436
001100
000161
177400
045544
045546
027670
016500
001100
000151
001450
052776

58 016540

004037

027670

60 016550
61 016552

005201
023701

g‘ 016560

000004

59 016544

6§ 016556

105037

062700

103334

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

001124

001100

46 016436
47 016436
016444
48 016450
49 016456
50 016466
51 016470
52 016474
§3 016500
016506
5¢ 016512
55 016520
56 016526

57 016536

MACRO v03.01

18:

001124
045540
045542
045544

045546

#STACK,SP
RO,DRVCAL
#..SLPERR

:LOAD THE STACK POINTER
:START A DATA TRANSFER
:SETUP THE ERROR LOOP ADDRESS

JSR
MOV
JSR
JSR
MOV

RO, CLRBUF
#READ,DTADPB+2
RO,DRVCAL
RO,CKSCTR
#BUFFER,RO

:CLEAR BUFFER
:COMMAND = READ
:START A DATA TRANSFER
:CHECK THE SECTOR DATA READ
:BUFFER ADDRESS

CLR
MOV
MOV
MOV
MOV
MOV
MOVB
JSR
MOV
MOV
MOV
MOV
MOV

001124
045540
0455642

MOV
JSR
MOV

MOV

045540

ADD

#512..R0

:MOVE TO NEXT SECTOR

EXIT16: SCOPE

R1
:FIRST SECTOR
#.,SLPERR
:SETUP THE ERROR LOOP ADDRESS
#STACK,SP
:LOAD THE STACK POINTER
#WRI1TE ,DTADPB+2 ; COMMAND=WRITE DATA
#SCTRWC,DTADPB+4
:WORD COUNT
RO,DTADPB+6
;BUFFER ADDRESS
R1.DTADPB+10
:SECTOR
RO,DRVCAL
:START A DATA TRANSFER
#..SLPERR
:SETUP THE ERROR LOOP ADDRESS
#STACK,SP
:LOAD THE STACK POINTER
#WRCKD .DTADPB+2 : COMMAND=WRITE CHECK DATA
TRCKWC .DTADPB+4 :WORD COUNT
#BUFFER,DTADPB+6
;BUFFER ADDRESS

:SECTOR

BHIS

:LOAD THE STACK POINTER

DTADPB+10

INC
CMP

002456

#STACK,SP

CLRB

JSR

001000

SEQ 0090

RO,DRVCAL

R1
PRMLMT+24,R1

:START A DATA TRANSFER
;DONE?

:NO=--BRANCH

*CALL SCOPE ROUTINE

::.t.t.."t'.'i""'t't"t"'ttl'tt.ttt.tt'tittt'..'tttlt'ttttttl

TRACK ADDRESSING TEST
S*TEST 17
;*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.
i#A WRITE CHECK 1S 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 1 IS
:*REWRITTEN AND TRACK 2 THROUGH LAST TRACK 1S WRITE CHECKED.
:#THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING NEXT TO LAST
:#TRACK AND WRITE CHECKING LAST TRACK.

:"tt"'..".tt""""'l"""'i"tl..tt"tl'i.!tl.t.t.t"!t"tt'

016600
016606
016612
016620
016626
. 016636

012737
004737
012737
013737
113737
012737

000017
026672
016702
002324
001462
000017

001116

016642

032777

010000

1$117:

001564

NOP
BIT
BNE
JMP

BITS#<17+2>, TSTNMS
;D0 THIS TEST?
.46
:BR IF YES
15120
*NO=-=JUMP TO TEST20

001124
001220
001131
001240

MOV
JSR
MOV
MOV
MOVB
MOV

#17,8TSTNM
PC,LODPRM
#TEST17,8LPERR
RPT,STIMES
ERR.CT,SERMAX
#7.$TESTN

;SET TEST #17 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

162304

BIT

#SW12,3SWR

;INHIBIT TYPING TEST NUMBER ?

001330

017226

000240
033737
001002
000137

016562
016562
016564
016572
0165764

ot IRMVAO RM05/3/2 EXT'D DR_TST
o

017130
121 017134
122 017142
123
126 017146
125 017154
126 017160

017166

.BYTE
.BYTE

3
0

::60 TYPE==OCTAL ASCII
::TYPE 3 DIGIT(S)
s sSUPPRESS LEADING ZEROS

MOV
MoV

#EXIT17,BYPASS
#TEST17,8LPADR

;SETUP THE LOOP ADDRESS

MOV
JSR
MoV
MOV
MovBe
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
sCYLINDER
FS,OTADPB+10
sSECTOR
#SCTRWC ,DTADPB+4
sWORD COUNT

[T3

s
—

— N

[=1=]
oo

NS~
OCONO=0O
OV

#STACK,SP

sLOAD THE STACK POINTER

#.,S5LPERR

001124
1$:

RO,DTADPB+11
RO,DRVCAL

sSETUP THE ERROR LOOP ADDRESS
sTRACK ADDRESS
sSTART A DATA TRANSFER

l2§6.-2..DTAD?B¢6

045544

:BUFFER ADDRESS

;sTRACK=0

:UPDATE BUFFER ADDRESS

045544

017022
001100

001124

#.,5LPERR

000151
045547
027670
001000

045540

065547

O0OOWWWW

052776

OWVOONNNN

(==
oN N
-~y Vi
oo
o~
(=1 =] N

NONNVNON—=

O=
WV~
oS ©0O
o-goooo
oo
OOWO
——

W
NN

NONNNNNN

#BUFFER,DTADPB+6

NNt Yty

OWw OWoO OO
ONONWWOO NN~

045540
045550
045546
045542
065544

::SAVE STESTN FOR TYPEOUT

RO
sUPDATE TRACK NUMBER
LSTRK,RO
;0UT OF TRACKS?
1%
sNO==-BRANCH
:gUFFER.oTADPaob
;BUFFER ADDRESS

WNW—=OWOW

O—=O

TEST17:

$TESTN,=(SP)

001372

#STACK,SP

2%:

001372

#WRCKD ,DTADPB+2 ;COMMAND=WRITE CHECK
RO,DTADPB4+11
:TRACK ADDRESS
RO DRVCAL
:START A DATA TRANSFER

3%:

001000

065544

017122

001124

4%:

:UPDATE TRACK NUMBER

*FIRST TRACK ADDRESS

:0UT OF TRACKS?
“NO--BRANCH

RO,DTADPB+11
;TRACK
RO,R1
*FORM BUFFER ADDRESS
:?UFFER.DTADPB*b
:BUFFER ADDRESS

5%
2%56.'2..DTADPB*6

045540

5%:

#. SLPERR
#STACK,SP
#WR1TE ,DTADPB+2

045544

68%:

#256.+2. ,DTADPB+6

001124

:UPDATE BUFFER ADDRESS

LSTRK,RO
2%

045544

:LOAD THE STACK POINTER

#256.+2. ,DTADPB+6

045544

052776

;sSETUP THE ERROR LOOP ADDRESS

NWw

113 017072
114 017076
115 017100
116 017106
117 017110
118 017112
119 017120
120 017122

OO—-=0000
OO
OOOOOgOOO-‘ S8R88 © bt
— s
2238
8
2ogesesss=
2o
Pe
B
~N
VIRV
&
oo
SN
—.-.—.80 O = s
O
NINVWVINNWWN
SN N
SN NNVVINNWUVIINNG
I ONWNNINOO
NNONNNNSNNSN
NN

104 017034
105 017042
106 017046
107 017052
108 017060
109 017062
110 017066
111 017070
112

OCO—=O

83 016666
016674
016702
84 016702
85 016706
86 016712
87 016720
88 016726
89 016734
90 016742
91 016750
92 016752
016760
93
94 016764
95 016770
96 016774
97 017002
98 017004
99 017010
100 817018
101
01702
102 017022
017030
103

:BR IF YES
:TYPE °*TEST®

MoV
TYPOS

SEQ 0091

416
MSGTST

BEQ
TYPE

016652
016656
016662
016664
016665

O NNN

—

N 7
11-APR-80 15:01:20 PAGE 13-2

&
W

TRACK ADDRESSING TEST

T 17

MACRO v03.01

RO,DRVCAL

DTADPB+1{

¥. SLPERR
#STACK,SP

;SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER
; COMMAND=WRITE DATA

:START A DATA TRANSFER

;UPDATE BUFFER ADDRESS

:MOVE TO NEXT TRACK

:SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

CIRMVAO RMOS/3/2 EXT'D DR TST
1z
TRACK
ADDRESSING TEST
127 017172
128 017200
1¢9 01720¢
130 017212
131 017214
132 017216
133 017222
134 017224
135
155
156

012737
004037
123737
003355
005200
023700
003323
000004

000151
027670
001372

MACRO V03.01 11-APR-80 15:01:204 PAGE 13-3
045540
065547

001372

MOV
JSR

#WURCKD,DTADPB+2 COHHAND=UR!TE CHECK DATA
RO,DRVCAL
:START
A DATA TRANSFER

CMPB

LSTRK,DTADPB+11

BGT
INC
CMP
BGT
EXIT17: SCOPE
HAAAAAA A

SEQ 0092

6%
RO
LSTRK,RO

'YESY 20

OUT OF

TRACKS?

NO==BRANCH
:NEXT TRACK TO WRITE
;0UT OF TRACKS?

+NO==BRANC H
sCALL SCOPE ROUTINE

ity

DATA TEST

'THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS

;*"'FC'' THROUGH ''LC'' BY THE INCREMENT ''IC'' USING THE DATA PATTERNS

%
%
.

(2.
3.
4.
S«
(6.
NN
N

'SPEC]FIED THE FOLLOWING SEQUENCE OCCURS FOR EACM CYLI?DER
(1
T "NT" TO "FT'" THEN REPEAT 2-4 UNTIL
'

WRITE THEN WRITE CHECK '‘FS'' THROUGH ‘‘LS" OF TRACK “'NT*'
READ THEN SOFTWARE COMPARE '‘FS'' THROUGH ''LS'' OF TRACK ‘T
INCREMENT ''NT'' BY "'IT"
REPEAT STEPS 1-4 FOR EACH DATA PATTERN
REPEAT STEPS 1-5 FOR "'FC'' THROUGH ''LC'' ADVANCING BY ''IC"'

'IF A WRITE CHECK ERROR OCCURS THE ERROR 1S REPORTED AND
:*THE TRACK IN ERROR 'S REWRITTEN AND CHECKED. THIS CHECK 1S

:*ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
s*WRITE CHECKS.

THE CHECK FAILS THE ERROR IS REPORTED AS

s*FATAL AND NO READ OCCURS.
;*FS DEFAULTS TO 1 AND
LS DEFAULTS 10 0

;*PAT DEFAULTS TO 177777

(ALL POSSIBLE PATTERNS)

"".".."."'"""'""'."'.'..'."'t.'il."l."""""..t

TSYZO

017226
017226
017230
017236
017240

000240
033737
001002
000137

017244
017252
017256
017264
017272
s 017300

012737
004737
012737
013737
113737
012737

000020
026672
017456
002324
001462
000020

001116

017306
017314
017316
017322
017326
017330
017331

032777
001406
104401
013746
104403
003
000

010000

161640

158
159
160
161 017332
162 017340
163 017342

¥
012737
005000
005004

001526

001332

020006

001124

001240

046253
001240

NOP

BIT

BITS+<20+2-40>,TSTNMS+2 ;DO THIS TEST ?

JMP

TsT21

.46

:BR IF

MOV
JSR
MOV
MOV
MOVB
MOV

#20,8TSTNM
PC,LODPRM
#TEST20,SLPERR
RPT,STIMES
ERR.CT.SERMAX
#20.STESTN

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

BIT
BEQ

#SW12,35WR
+16

;INHIBIT TYPING TEST NUMBER ?
:BR IF YES

MOV

$TESTN,=(SP)

:;SAVE STESTN FOR TYPEOUT

BYTE
BYTE

3
0

BNE

TYPE
TYPOS

,MSGTST

YES

‘NO--JUMP TO TEST21

STYPE

'TEST'

::60 TYPE--QCTAL ASCII

SSTYPE 3 DIGIT(S)
: *SUPPRESS LEADING ZEROS

;SET UP THE TRACK WORD COUNT FOR DATA TRANFER
017332

001122

MOV

#.,SLPADR

;SETUP THE LOOP ADDRESS

CLR

:FORM WORD COUNT

CLR

;CLEAR SWITCH

IN R4

EXT'D DR TST
DATA TEST

csanvno RMOS/3/2

120

164 017344
165 017350

MACRO vO03.01 11-APR-80 15:01:20 PAGEC 15-‘

SEQ 0093

}g? 017354

012701
163701

002004

002344
002342

MOV
SUB

LS,R1
FS.R1

:LOAD LAST SECTOR
:COMPARE WITH FIRST SECTOR

168 017356
169 017362

063701
005201

002456

ADD
INC

PRMLMT +24 ,R1
R1

:ADD MAXIMUM SECTOR ADDRESS TO
:MAKE THE DIFFERENCE POSITIVE

172 017

062704

000400

ADD

180 017406
181 017410
182 017414

005005
013701
163701

002456
002342

184 017424
185 017426
}gg 017430

005301
002374
005405

};? 017364

173 017372
174 017374
175 017376
176 017400
177 017402
};3 01764064

183 017420

BGE

005100

005301
002374
005404
010405
005700
001412

062705

COM

18:

000400

2%:

}gg

SSKIP NEXT IF FS < OR = LS

SSET SWITCH FOR FS > LS

DEC
BGE
NEG
MOV
ST
BEQ

#256. R4

R1
1%
R&
R4 ,RS
RO
{1

;WORDS/SECTOR

CLR
MOV
SUB

RS
PRMLMT+24,R1
FS,R1

:FORM WORD COUNT FOR FS » LS
:MAX SECTOR ADDRESS
:SUBTRACT THE FIRST SECTOR

DEC
BGE
NEG

R1
28
RS

:NO SECTORS MINUS ONE
SINCR. WORD COUNT IF NO.

ADD

#256. RS

:LS = FS SECTORS MINUS ONE
:INCR. WORD COUNT IF NO. SECTORS STILL +
:FORM NEGATIVE WORD COUNT
:COPY NORMAL WORD COUNT INTO SMALL WC
:FS > LS SWITCH SET?
:NO, SKIP NEXT

:WORDS/SECTOR

SECTORS STILL +

:FORM NEGATIVE WORD COUNT FOR THIS CASE

;SET UP FOR DATA TRANSFERS AND PATTERN VARIATIONS

190 017432
191 017440

113737
013737

219 017446
017454
017456
017460
017464
017470

012706
005037
013701
000407

017472

005720

0176476
017500
017502
017506

012737

022700
003004
004037
000536

002342
052776

1200064

045546
045544

001346

001100
001432
002326

38:

TEST20:

18:

000040
032202

MOVB
MOV

FS.OTADPB+10
;SECTOR
#BUFFER,DTADPB+6
:DATA BUFFER

MOV

#EX1T20,BYPASS

MOV
CLR
MOV
BR

#STACK,SP
:LOAD THE STACK POINTER
WCEFLG
:CLEAR THE WRITE CHECK ERROR FLAG
FC,RI
:PICKUP FIRST CYLINDER
28
:SKIP PATTERN SET=UP FIRST TIME THRU

113

CMP
BGT
JSR
BR

(RO)+

#16.+2.,R0
38
RO, INCCYL
EXIT20

:MOVE TO NEXT DATA PATTERN

:0UT OF PATTERNS?
:NO, STAY ON THIS CYLINDER UNTIL DONE
sMOVE TO NEXT CYLINDER
:0UT OF CYLINDERS

:DO NEXT CYLINDER

017510
017512
017520
017522
0175%6
017532

005010
036L37
001764
01370;
010137
110237

017536

020127

001466

017544
017550
259 017552

020237
001515

001372

017542

001003

001526

002334
045550
045547

522 017552 010437 (045542

002346

28:
38:

48:

CLR
BIT
BEQ
MOV
MOV
MOVB

RO
BITS(RO) ,PAT
13
FT,R2
R1.DTADPB+12
R2.DTADPB+11

:START WITH PATTERN 0
:THIS PATTERN SELECTED?
:NO, GO BACK AND GET ONE THAT WAS
:FIRST TRACK
:LOAD THE CYLINDER
:LOAD THE TRACK

(MP

R1,#822.

;CHECK FOR LAST DISK CYLINDER

CMP
BEQ

R2,LSTRK
EXiT20

MOV

R&,DTADPB*4

:LAST DISK TRACK ?
SDON'T TEST LAST TRACK AS 1T HAS BAD
:BLOCK INFORMATION STORED ON 11

BNE
108 :

10§

:SKIP LAST TRACK CHECK IF NOT

:LOAD THE WORD COUNT

CIRMVAD RMO5/3/2 EXT'D DR TST

120

DATA TEST

3 01755

701

002330

225 0\75?4
226 0172 g
227 01757
228 017576
Zig 017602
230
017604
231 017610
232 017612
233 017616
236 017624
235 017626
017634
%g? 017640

702
gog
105
01770;
00310
032703
0014
004737
032777
001012
012737
012706
012737

001372

S - 017563 85;005

MACRO v03.01 11-APR-B0 15:01:20 PAGE0 lg-S

161352

5%:

000030

032732
000020
017626
001100
000161

161330
001124
045540

%i%
240 017646
261 017652
262 017660
243 017662
017670
266 0176764
245 017702
266 017706
247 017712
248 817716
249 017722
250 017726
251 017732
252 017734
017742
253 017746
256 017754
255 017760
256 01776¢
257 017770

258 017774
259 02
260 020002
%g} 0200064
287

288

CMP

LC.RY

;LAST DISK CYLINDER TO TEST ?

CMP
BGE
MOv
MoV
COM
BIT
BEQ
JSR
BIT
BNE
MOV
MOV
MOV

STRK ,R2
»
R5,DTADPB+4
asWR ,R3
R3
#Sw04!SWO3,R3
7%
PC,SETBUF
#SW04 ,aSWR
6%
#. SLPERR
#STACK,SP
#WRITE ,DTADPB+2

;LAST DISK TRACK TO TEST ?
:NO, SKIP NEXT
: SHORT WORD COUNT
;INHIBIT WRITE AND
;WRITE CHECK?

BGT

0465542

SEQ 0094

:NO, SKIP TRACK CHECK

: YES==BRANCH
sMOVE DATA PATTERN INTO THE BUFFER
;INHIBIT WRITE?
;YES, DO NEXT PORTION OF TESTING
:SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
;COMMAND=WRITE DATA

;DO A DATA TRANSFER
004037
032777
001012
012737
01270?
012737
004037
005737
001404
832777
lk;k
032777
001020
012737
012706
012737
004037
032777
001002
004737

004037
000634
000653
000004

027670
000010

161274

017662
001100
000151
027670
001432

001124

000001

161232

000004

161222

017734
001100
000171
027670
000002

001124

033022
032152

68:

045540

78:

8S$:

045540
161166

9s:

JSR
BIT
BNE
MOV
MOV
MOV
JSR
TST
BEQ
RIT
BEQ
BIT
BNE
MOV
MOV
MOV
JSR
BIT
BNE
JSR

JSR
BR
BR

EXIT20: SCOPE

RO,DRVCAL
;START A DATA TRANSFER
#5W03,aSwR
;INHIBIT WRITE CHECK?
7%
: YES=-BRANCH
¥. SLPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
:LOAD THE STACK POINTER
#WRCKD ,DTADPB+2 ;COMMAND=WRITE CHECK DATA
RO,DRVCAL
:START A DATA TRANSFER
WCEFLG ;WRITE (HECK ERROR FLAG SET?
8s
:NO==BRANCH
#SW00,aswR
;PERFORM READ AFTER FATAL "WCE'"?
9$
:NO==BRANCH
#SW02,aSuWR
:INHIBIT READ DATA AND SOF TWARE COMPARE?
9s
: YES==BRANCH
#.,SLPERR
;SETUP THE ERROR LOOP ADCRESS
#STACK,SP
;LOAD THE STACK POINTER
#READ ,DTADPB+2 ; COMMAND=READ
RO,DRVCAL
;START A DATA TRANSFER
#5W01,aSWR
: COMPARE THE DATA?
9%
:NO==BRANCH
PC,DATCHP
;YES==DO IT

RO, INCTRK
13
4%

;MOVE TO NEXT TRACK
:0UT OF TRACKS GO TO NEXT PATTERN
;LOOP
;CALL SCOPE ROUTINE
.

S R
R R
L]

TRTEST 21

RANDOM ADDRESS AND RANDOM PATTERN TEST

;*STARTING AT "'FC'" AND GOING SEQUENTIALLY TO ''LC'' THE DISK
s*PACK 1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS
s*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 1000.
X

iv1)

:*2)

:®

GENERATE A RANDOM SECTOR ADDRESS

WRITE A RANDOM PATTERN AT THE ADDRESS

GENERATED IN 1,

CIRMVAQ RMO5/3/2 EXT'D DR TST

12!

MACRO v03.01 *'-APR-80 15:01:20 PAGE3 1%-6

RANDOM ADDRESS AND RANDOM PATTERN TEST

:*3)
i *6e)

o
:*5)
TM
;*6)
i*7)
:*8)
e
:*9)
:*10)
AR

020006
020006
020010
020016
020020

000240
033737
001002
000137

020026
020032
020036
020044
020052
. 020060

012737
004737
012737
013737
113737
012737

000021
026672
020302
002326
001462
000021

001124
001220
001131
001240

02
020074
02007

032777
001406
106401

010000

161060

020102

020106
020110
020111
290 020112
293 020120
294 020126

s
s
—

W)
= O

NN NN

295 020134
296 020142
297 020150
298 020156
ggg 020166
020172
301 020200
302 020202
303 020206
306 020212
020220
305 020224
020226
306 020230
307 020234
308 020242
309 0202644
020250
020256

013746

104403
003
000

012737
012737
012737

012737
013737
013737
012737
012737
032737
001027
004037
005037
012737
012706
004037
105237
123737
002370
005237
023737
002353

GENERATE A NEW RANDOM SECTOR ADDRESS
READ THE SECTOR AT THE ADDRESS

001332

020624
001116

046253

001240

020112
020622
176543

123456
002326
001450
052776
000161
100000
033340
045546
020212
001100

GENERATED IN 3.
DO A SOFTWARE CHECK OF THE DATA READ
THE ORIGINAL RANDOM PACK DATA.
DO A WRITE CHECK OF THE DATA WRITTEN
GENERATE A NEW RANDOM SECTOR ADDRESS
READ THE SECTOR AT THE ADDRESS
GENERATED IN 7.
DO A SOFTWARE CHECK OF THE DATA READ
DO A WRITE CHECK OF THE DATA WRITTEN

RN AR RN R RN R R R R R R R

1s121:
001530

025650
045550
045542
045544
045540
001314

001124

1$:
28:

027670
045547
001372

045547

0.5550
0.2330

045550

IN & AGAINST
IN 2

IN 8
IN 2

R R PN R RN RN RN R RN RN R RN R R RN NN RN RN

NOP
BIT
BNE
JMP

BITS+<21+2-40>,TSTNMS+2 ;DO THIS TEST ?
.46
:BR IF YES
15122
*NO-=JUMP TO TEST22

MOV
JSR
MOV
MOV
MOvVB
MOV

#21,8TSTNM
PC,LODPRM
#TEST21,8LPERR
RPT,STIMES
ERR.CT ,SERMAX
#21.8TESTN

;SET TEST #21 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 MAIL BOX

BIT
BEQ
TYPE

#SW12,aS5WR
.416
MSGTST

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

TYPOS
.BYTE
.BYTE

3
0

MOV
MOV
MOV

#.,.5LPADR
WEXIT21,BYPASS
#176543,8HINUM

;SETUP THE LOOP ADDRESS

JSR
INCB
CMPB
BGE
INC
CMP
BGE

RO,DRVCAL
DTADPB+11
LSTRK,DTADPB+11
2%
DTADPB+12
LC,DTADPB412
1%

:START A DATA TRANSFER
INEXT TRACK
sTIME FOR NEXT CYLINDER ?
:NO--DO NEXT TRACK ON THIS CYL.
SINCR CYLINDER ADDRESS
:0UT OF CYLINDERS?
sNO==CONTINUE SEQUENT]AL RANDOM WRITE

MOV

001122
001346
025646

SEQ 0095

MOV
MOV
MOV
MOV
MOV
BIT
BNE
JSR
CLR
MOV
MOV

$TESTN,=(SP)

*:SAVE STESTN FOR TYPEOUT

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

;PRIME THE RANDOM NUMBER GENERATOR
#123456, SLONUM
FC,DTADPB+12
;CYLINDER
TRCKWC ,DTADPB+4& ;WORD COUNT FOR 32730 SECTORS (FULL TRACK)
#BUFFER,DTADPB+6
;BUFFER ADDRESS
#WRITE,DTADPB+2 ; COMMMAND
#5W15,C.SWR
:WRITE THE DISK PACK BEFORE TESTING?
38
:NO=--BEGIN TESTING
RO, FILRAN
SFILL DATA BUFFER WITH RANDOM DATA
DTADPB+10
:SECTOR AND TRACK
#.,SLPERR
:SETUP THE ERROR LOOP ADDRESS
#STACK,SP
;LOAD THE STACK POINTER

%5?HVAO RHOB/B/Z EXT'D DR TST

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

RANDOM ADDRESS AND RANDOM PATTERN TEST

314 020260 012737 177400 045542
319
020266 01§7§7 02030% 00115
8%8 56

MOV

#SCTRWC ,DTADPB+4
NTEST21,SLPADR

—

MOV

FSTACK,SP

020302

321 020
322 02031

004037
013737

033614
045546

324 0%03 6
325 0203
326 020340
327 020344
328
329 020350
020356
gg? 020362

012737
012701
010137
004037

000161
052776
045544
033560

045540

MOV
MOV
MOV
JSR

012737
012706
004037

020350
001100
027670

001124

MOV
MOV
JSR

¥., SLPERR
#STACK,SP
RO,DRVCAL

332 020366
333 020372
334 0206400
335 020406
020414
336 020420
337 020426
338 020430
gzg 020432

004037
012737
012737
012737
012706
004037
005737
100402
004037

033614
000171
053776
020406
001100
027670
001464

JSR
MOV
MOV
MOV
MOV
JSR
1ST
BMI]
JSR

RO ,RANADR
;GENERATE A NEW RANDOM ADDRESS
#READ,DTADPB+2
;COMMAND=READ DATA
#BUFFER+512. ,DTADPB+6
;READ BUFFER ADDRESS
¥.,S.PERR
;SETUP THE ERROR LOOP ADDRESS
FSTACK,SP
;LOAD THE STACK FOINTER
RO,DRVCAL
:START A DATA TRANSFER
BASFLG
:1F BAD SECTOR ENCOUNTERED,SKIP NEXT CALL
.*6
;DON'T COMPARE DATA
RO,RANCK
;SOFTWARE CHECK THE DATA

341 020436

Olg?g?

343 020452
344 020460
345
346 020466
020476
gz; 020500

323 020320

013737

045550

001436

001440

045540
045544
001124

033362

JSR
MOV

MOV

FTEST21,SLPERR

;WORD COUNT

012737

320 02030% 012709 001100

001124

38:

SEQ 0096

;SET STACK POINTER

RO,RANADR
sGENERATE A RANDOM ADDRESS
DTADPB+10,SVADR ;SAVE THE TRACK/SECTOR

DTADPB+12, SVADR+2
#WRITE ,DTADPB+2
FBUFFER,R1
R1,DTADPB+6
RO,RANPAT

;SAVE THE CYLINDER

;COMMAND=WRITE DATA
;WRITE BUFFER ADDRESS FOR 'RANPAT''
:INTO THE DATA PARAMETER BLOCK
;GENERATE RANDOM 256 WORD PATTERN
sAND PUT INTO THE WRITE BUFFER
;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
sSTART A DATA TRANSFER

0016436

045546

MOV

SVADR,DTADPB+10 GET ADDRESS OF WHERE THE LAST

012737
012737

000151
052776

045540
045544

MOV
MOV

012737
012706
004037

020466
001100
027670

001124

MOV
MOV
JSR

#WRCKD,DTADPB+2 ;COMMAND=WRITE CHECK DATA
#BUFFER,DTADPB+6
;DATA BUFFER ADDRESS FOR HARDWARE
;CHECK OF THE DATA
#.,SLPERR
;SETUP THE ERROR LOOP ADDRESS
FSTACK,SP
;LOAD THE STACK POINTER
RO,DRVCAL
;START A DATA TRANSFER

349 020504
350 020510
351 020516
352 0205264
020532
353 020536
356 020542
355 020546
;g? 020550

004037
012737
012737
012737
012706
004037
005737
100402
004037

033614
000171
053776
0205264
001100
027670
001464

358 020554

013737

001436

045546

360 020570
361 020576
362 020604
020612
363 020616
ggg 020622

012737
012737
012737
012706
004037
000004

000151
052776
020604
001100
027670

045540
045544
001124

34; 020444

359 020562

372
373

013737

001440

045550

045540
045544
001124

033362

001440

045550

MOV

SVADR+2,DTADPB+12

;WRITE WAS PERFORMED

JSR
MOV
MOV
MOV
MOV

JSR
18T
BM]
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
:LOAD THE STACK POINTER
RO,DRVCAL
;START A DATA TRANSFER
BASFLG
;ENCOUNTER BAD SECTOR ?
. +6
;DON'T COMPARE DATA IF SO
RO, RANCK
;SOFTWARE CHECK THE DATA

MOV

SVADR,DTADPB+10 ;GET DISK ADDRESS OF THE

MOV

MOV
MOV
MOV
MOV
JSR
ExIT21: SCOPE

SVADR+2,DTADPB+12

;LAST WRITE

#WURCKD ,DTADPB+2 ;COMMAND=WRITE CHECK DATA
#BUFFER,DTADPB+6
:DATA BUFFER ADDRESS
¥. SLPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
;LOAD THE STACK POINTER
RO,DRVCAL
;START A DATA TRANSFER
;CALL SCOPE ROUTINE

.'."l'.."'...."'.".""""".'I...'.l...'.'..'l"'ll"'..""'

CZIRMVAO RMO5/3/2 EXT'D DR TST

122

ACCESS TIME ADJUSTMENT

MACRO v03.01 11-APR=80 15:01:20 PAGE6 lg°8

TEST

;*TEST 22

SEQ 0097

ACCESS TIME ADJUSTMENT TEST

:*THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS O & 255 TO ALLOW THE
; *OPERATOR TO ADJUST THE ACCESS TIME ON AN RMO5/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.

020624

000240
033737

001532

020636

000137

021020

020642
020650
020654
020662

012737
004737
012737
013737

000022
026672
020736
002324

001116

- 020676

012737

000022

020704
020712
020714

032777
001406
104401

020724
020726
020727

104403
003
000

020670

020720

378 020730
020736
379 020736
380 020742
381 020750
382 020756
383 020762
384 020766
385 020770
386 020776
387 021004
388 021010
389 021014
021016

001002

112737

013746

AR A

1§122:

020624
020626

020634

000144

010000

012706
013737
112737
004037
004037
001456
013737
112737
004037
004037
001456
000004

001100
002330
000105
027132
030664
002326
000105
027132
030664

AR A

BIT1S+<22+2-40>,TSTNMS+2 :DO THIS TEST ?

JMP

$EOP

.46

:BR IF YES

001124
001220

MOV
JSR
MOV
MOV

#22,8TSTNM
PC,LODPRM
WTEST22,8LPERR
RPT,$TIMES

sSET TEST #22 "ND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
:GET THE ITERATION COUNT

001240

MOV

#22,8TESTN

::SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ
TYPE

#SW12,3SWR
L+16
MSGTST

:INHIBIT TYPING TEST NUMBER ?
:BR IF YES
:TYPE 'TEST®

TYPOS
BYTE
BYTE

3
0

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

#TEST22,8LPADR

;SETUP THE LOOP ADDRESS

#STACK,SP
LC,DPB.A+12
#SEEK,DPB.A+2
RO,CALL.A
RO,STALL
STALL3
FC,OPB.A+12
#SEEK,DPB.A+2
RO,CALL.A
RO,STALL
STALL3

;SETUP THE STACK POINTER
JENDING CYLINDER
; SEEK=COMMAND
;60 EXECUTE THE COMMAND
:STALL
:ADDRESS OF STALL VALUE
;STARTING CYLINDER
;SEEK=COMMAND
;GO EXECUTE THE COMMAND
:STALL
;ADDRESS OF STALL VALUE
:CALL SCOPE ROUTINE

BNE

001131

MOVB

160242

001240

020736

AR A

NOP
BIT

001332

046253

012737

MOV

001122
045470
045460

045470
045460

TEST22:

MOV

MOV
MOV
MOVB
JSR
JSR
.WORD
MOV
MOVB
JSR
JSR
.WORD
EX1T22: SCOPE

#100. , SERMAX

$TESTN,=(SP)

;NO==GO TO THE END OF THE PROGRAM

:MAX ERRORS ALLOWED FOR TEST

::SAVE STESTN FOR TYPEOUT

CIRMVAO RMO5/3/2 EXT'D DR TST
PASS ROUTINE

11-APR=B0

H 8
15:01:20 PAGE 14

SEQ 0098

.SBTTL

END OF PASS ROUTINE

':""""".""""'""""""""."""".".'.""..."C.t

:*INCREMENT THE PASS NUMBER (SPASS)

:«INDICATE END=-OF-PROGRAM AFTER 8. PASSES THRU THE PROGRAM
;*1F THERES A MONITOR GO 1O IT
;*1F THERE ISN'T JUMP TO RESTART

013746
104402
005037
005037
005037
005237
042737
005327
000010
003027
012737
000010
021172
104401
000407

001126

021170
021172
021174
021176
021200
021202
021206
021210

021230
021230
021234
021240
021242
021244
021246
021250
021252
021254
021254
021256
021260

104401
013700
001405
000005
004710
000240
000240
000240

000137
006340
37

;:67%:
668%:

éég9$:

001126
001116
001220
001242
100000

MOv
tzp?s

CHKDRvV,=(SP)
”

CIPE .
BR
LASCIZ

s sSUPPRESS LEADING ZEROS
L69%
JsTYPE ASCIZ STRING
688
::GET OVER THE ASCIZ
/
ERRORS DETECTED=/

mov

SERTTL,=(SP)

001242

18:

TYPOC
CLR

SENDCT:

MOV
.WORD

CLR
CLR
INC
BIC
DEC
SEOPCT: .WORD
BGT

021212

$EOPCT
TYPE

;:65%:
649%:

021260
000042

BR
ASCIZ
TYPE

$GET42: MOV

BEQ

$ENDAD:

$DOAGN:

377

66%
/ ON DRIVE/

021110

000

$SRTINAD:

SENULL:

L67%

sANY DRIVES SELECTED?
sNO==BRANCH
ssTYPE ASCIZ STRING

BR
_ASCIZ

RESET
JSR
NOP
NOP
NOP

JMP
.WORD

.BYTE

LEVEN

SERTTL

$STSTNM
STIMES
$PASS
#100000, $PASS
(PC)+
8.
$DOAGN
(PC)+,3(PC)+
8.

sGET OVER THE ASCIZ

o AT FOR TYPEOUT
LSS,

UTYPE--0OCTAL ASCII

;sTYPE 2 DIGIT(S)

::SAVE SERTTL FOR TYPEOUT
::60 TYPE=-=OCTAL ASCII(ALL DIGITS)
;JERO ERROR TOTAL
::ZERO THE TEST NUMBER
::JERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
:sDON'T ALLOW A NEG. NUMBER
;.L00P?
#3141,
: ;RESTORE COUNTER

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<CRLF>/END OF TEST/

,65%
6 4%

LSENULL

af42 RO

$DOAGN

PC,(RO)

sTYPE NULL CHARACTER
:GET MONITOR ADDRESS
s sBRANCH IF NO MONITOR
;sCLEAR THE WORLD
;:G0 TO MONITOR
s sSAVE ROOM
;:FOR
AT

001350

TYPE

1 )

;sRETURN

013746
104403
002
000
104401
000412

DRVSEL

021072
021072
021076
021100
021101
021102
021106

18T

_ASCIZ

BEQ

021060

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
<CRLF><LF>/END OF PASS/

001326

,65%

649

005737
001434
104401
006405

649%:

TYPE

— T

2:65%:

021044
021044
021050
021052
021056

021134
021134
021140
021142
021146
021152
021156
021182

S$EOP:

021026

104401
000407

-1

021020
021020
021026

— T~

END OF

MACRO v03.01

JiNULL CHARACTER STRING

CZRMVAO RMO5/3/2 EXT'D DR TST

END OF PA5S ROUTINE

MACRO v03.01

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

SEQ 0099

LSBTTL APT COMMUNICATIONS ROUTINE
021264

112737

021272
021300
85‘%?5

112737
000403
112737

021310
021312
021316

010046
010146
105737

021322
021330
021332
021340
021342
021346
0213564
021360
021362

122737
001031
132737
001425
017600
062766
005737
001375
010037

021370
021372
021376
021400
0%1404

001376
163700
006200
010037
12737

021414
021422

017637
062766

021320

021366

001450

105720

021412 300413

021430
021434

013746
004737
00

105737

021472
21500
021504
021510
021514
021520
021522
0215264
021526
021527
021530

001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000
000200
000001
000100

':"'.'."'.""0"""'"""""l.'t"'l"".""'."Qt"t."t'

000001

021530

$ATY1:

000001

021530

zz}vtz

000001

021526

SATY3:

Y(:

021526

000001

001254

000100

001255

000004
000002
001234

000004

001250

1$:

001250
001234

000004
000002

021440
000004

177776
022366

3%:

ls.:

021530

108:

001254

001234
000004
000002
001234
021530
021527
021526

118
001236
000004
128:

$SMFLG:
$LFLG:
$FFLG:

#1,.$FFLG

::T0 REPORT FATAL ERROR

MOVB
BR
MOVB

#1.SMFLG
SATY(C
#1,8FFLG

::T0 TYPE A MESSAGE

MOV
MOV
TSTB

RO,=(SP)
R1,=(SP)
SMFLG

::PUSH RO ON STACK
::PUSH R1 ON STACK
::SHOULD TYPE A MESSAGE?

CMPB
BNE
BITB
BEQ
MOV
ADD
ST
BNE
MOV

WAPTENV,SENV
3%
WAPTSPOOL,SENVM
3
34 (SP) ,RO
#2,4(SP)
$MSGTYPE
1%
RO, $MSGAD

:;OPERATING UNDER APT?
::1F NOT:
BR
;;SHOULD SPOOL MESSAGES?
:;1F NOT:
BR
::GET MESSAGE ADDR.
::BUMP RETURN ADDR.
::SEE IF DONE W/ LAST XMISSION?
S:1F NOT:
WAIT
::PUT ADDR IN MAILBOX

BNE
SUB
ASR
MOV
MOV

2%
$MSGAD ,RO
RO
RO, $MSGLGT
84, SMSGTYPE

MOV
ADD

94(SP) ,4%
#2,4(SP)

BEQ

28:

001252
000004

MOVB

1518

MOV
JSR

(13

(RO)+

::T0 ONLY REPORT FATAL ERROR

::1F NOT:

::FIND END OF MESSAGE

::SUB START OF MESSAGE
;;GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX
::TELL APT TO TAKE MSG.
::PUT MSG ADDR IN JSR LINKAGE
- -BUMP RETURN ADDRESS

.WORD

179776, (sP)
PC,S$TYPE

::PUSH 177776 ON STACK
S:CALL TYPE MACRO

TSTB

$FFLG

::SHOULD REPORT FATAL ERROR?

BEQ
ST
BEQ
ST
BNE
MOV
ADD
INC
CLRB
CLRB
CLRB
MOV
MOV
RTS
.BYTE
.BYTE
gvgs
v

APTS1ZE = 200
APTENV = 001
APTSPOOL= 100

12%
SENV
12%
$MSGTYPE
118
a4(SP) ,$FATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,RO
PC
0
O
0

::1F NOT:
BR
: ;RUNNING UNDER APT?
::1F NOT:
BR
;:FINISHED LAST MESSAGE?
::1F NOT:
WAIT
;:GET ERROR #
: ;BUMP RETURN ADDR.
::TELL APT TO TAKE ERROR
::CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
::POP STACK INTO R1
::POP STACK INTO RO
: :RETURN
::MESSG. FLAG
;:L0G FLAG
::FATAL FLAG

CZRMVAQ RMO5/3/2 EXT'D DR TST
COMMUNICATIONS ROUTINE

000040

11-APR-80 15:01:20 PAGE

14=2

SEQ 0100

APTCSUP = 040

.SBTTL
AR

ERROR HANDLER ROUTINE

AL AL A

:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
s*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:

ceSW15=1
teSW13=1
1eSW10=1
:*SW09=1
seCALL
e

$ERROR:

000400

SR
= NN
S NO NNNONS
S NYNNNNONN

OWU\“’NJ\PNEENPN‘G

NNOONNO

= N
=N S
NE NNESENS

28838882888
8\»0

—=ON
..S;_.
OOOW—0O
.gg;‘;::—nu‘:
—8
8228322
W=
S
=2NONN—=W

OJ*N&NSNOO acg

b e B B el e el e d e

AN NAIINIIINS

021

OO NWHNWNWO
O NN N WWNW
- NNNNNNNNNVININN

001406

[elelelelelelelelelele]
NN
NN

APT

MACRO v03.01

157412

001324

ERROR
CKSWR

7%:

001116
002000

18:

BEQ

000001

001254

001130
021302

021704

22%:

157240

28:

157224

38:

001124
001222

4$:

001222

:1S

THERE A LINE

:NO=-=BRANCH

PRINTER AVAILABLE?

SYES==SETUP STATUS

INCB

SERFLG

::SET THE ERROR FLAG

MOV

$STSTNM,aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

BEQ

LPB,S$TPB
7%

:AND BUFFER REG.'S FOR LINE PRINTER
S:DON'T LET THE FLAG GO TO ZERO

#B1T10.aSWR
1%

::BELL ON ERROR?
PIND - SKIP

INC

$ERTTL

::COUNT THE NUMBER OF ERRORS

SUB

#2,$ERRPC

TYPE

MOV

JSR

TYPE

$BELL

(SP), SERRPC

Q@SERRPC,SITEMB

#BIT13,3SWR
208
PC,TYPERR
,SCRLF

::RING BELL

::GET ADDRESS OF

ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE

::SKIP TYPEOUT IF SET

1:SKIP TYPEOUTS

1360 TO USER ERROR ROUTINE

CMPB

WAPTENV,SENV

;:RUNNING IN APT MODE

MOVEB
JSR

SITEMB,21$
PC,SATY4

::SET ITEM NUMBER AS ERROR NUMBER
: :REPORT FATAL ERROR TO APT

BNE
218:

IN SOFT-SWR

:SEND ERROR MESSAGE TO TTY?
: YES==BRANCH

LPS,$TPS

MOV

BIT
BNE

022000
001231

LPTAVL

;:TEST FOR CHANGE

MOV

MOVB

020000

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

#SW08,aSWR
7%

BIT
BEQ

001224

BIT
BEQ
ST

001522
001524
001117

001000

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

BYTE
BYTE
BR

0
C
22%

BPL

HALT
CKSWR

BIT
BEQ
MOV
3

BEQ
MOV

ISWR

#B1709,aSWR
48
SLPERR, (SP)
$ESCAPE

$ESCAPE,(SP)

1iNO,SKIP APT ERROR REPORT

::APT ERROR LOOP

*:HALT ON ERROR

1:SKIP IF CONTINUE
::HALT ON ERROR'
S:TEST FOR CHANGE

IN SOF T-SWR

::LOOP ON ERROR SWITCH SET?
::BR IF NO
1:FUDGE RETURN FOR LOOPING

::CHECK FOR AN ESCAPE ADDRESS

;sBR 1F NONE

::FUDGE RETURN ADDRESS FOR ESCAPE

CIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

013737
013737
000002

000042
6%:

021244

022737
001001
000000

NN
O>
oo o

s ch
e
i

NNNN ~

—

=0V~

[=lelelele]

021750
021756

o0
(=l

ERROR HANDLER ROUTINE

.SBTTL

CMP
BNE
HALT
MOv
MOV
RTI

#SENDAD ,a#42

TPS,$TPS
TPB,$TPB

SEQ 0101

ssACT=11 AUTO=-ACCEPT?
::egenm 1F NO
sSET STATUS AND BUFFER REG.'S

;FOR TTY
;RETURN FROM ERROR CALL

TYPERR - TYPE ERROR ROUTINE

sTHIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE
;WHICH ERROR 1S TO BE REPORTED, IT THEN OBTAINS, FROM THE "‘ERROR
;TABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION
: CONCERNING THE ERROR.
sCALL
JSR

PC,TYPERR

MovB

$TSTNM,$TMPO

2e go8=0x2:28082s
o D et o e
i (TN D 2
s 80
0000005
NS
2
N
=
NOH
S H ONNOWNWWONW 2°°°8
N&S&N
o
O OO OO WWNWNNNWND
— W
8
o
obugoc
~N
V.1
-NNOON Sooo—‘ONNNNNNONN
PONN
— ~N

OO —=O00
OOO0O
- \NNO
N
O ==C
N
OO—=0OW

NN
BN
o~
N SRSy NS anosRS ~IFRE
NS
w

NN N
- - - il - i il i
e e
O
o

rorRorNNN
— oo
NOON SO0

OO0

oo NN
NN N NN

RETURN

COO0OO00

LNOWVS
2P 2RkNI
bbbuuuuuruuuu-~m---d-—
_—
=00V ~NOW
W= OOV NOWVNSF WN=O VRNV
N—=O 00

VVWALSS
&

K
8
11-APR-80 15:01:20 PAGE 14=3

001116

001212

TYPERR:

000004

SAVREG
sus

MOV
MOV
MOV
MOv
MoV
MOV
MOovB
MOV

001130

DEC

ASLB
ASLB
ASLB

000240
002002
022110

BCC

1$:

001231
000041
001354

2%:

ADD
ADD
MOV

BEQ
TYPE
TYPE
.WORD
suB
BMI
MOV
ASLB

001750

ASL
MOV

022144

TYPE

022172

CLR

BR
.ASCIZ
MOV
ASL

BCC
COM
BNE

¥4 RO

RO, $REGO
R1,$REG]

R2,$REG2
R3,$REG3
R4 ,SREG4
RS, $REGS
$1TEMB,RO
:O.Rl

;SAVE THE TEST NUMBER
:SAVE RO - RS
;FORM TEST PC

:COPY RO-R5 IN SREGO-SREGS

sPICKUP ERROR ITEM NUMBER

sAND COPY IT INTO RI1
+FORM INDEX FOR ERROR TABLE

:1S ERROR > 37?

#ITEMG1-SERRTB,
RO

#SERRTB, RO

(RO)+,2$

;YES==FORM OFFSET
:FORM ADDRESS

,S$CRLF

;GET ERROR MESSAGE (EM) POINTER
:BRANCH IF THERE ISN'T ONE
:""CARRIAGE RETURN - LINE FEED

:"'EM"’ POINTER GOES HERE

#41,R1
7%

SVSTAT,R1

R1
R1
#STATBL,R2

R3
,65%
64%
/

(R2)+,5%
R1
6%
R3
4%

sSPECIAL ERROR ITEM NUMBER?
:NO=-BRANCH
;GET STATUS/ERROR INDICATOR

:STRIP ''DGNE'' BIT (B1T107)
;STRIP "ERROR'' BIT (BIT15)
:1ST ADDRESS ON STATUS MESSAGE POINTERS
;CARRIAGE RETURN-LINE FEED SWITCH
;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

;MESSAGE POINTER
:TYPE

THIS MESSAGE?

:NO=--BRANCH

;YES==TYPE A "'(R" & "LF'7

+NO==BRANCH

0 >

104401
000401

022216

012037

022234

888

o0
OO
=
(=l=] o
o
- S =O
s~
W~ S HBNO S
oo
o
o —

ms
21N

PR =

T'D DR TST
R OUTINE

001231

p—

32
=<

-4

01
01
0
0
0

MACRC vO03.01

4%:

TYPE

066657

;LOOP
:BRANCH IF NOT FINISHED
ssTYPE ASCIZ STRING
:sGET OVER THE ASCIZ

R S R S

(RO)+,8%
9%

;PICK UP DATA HEADER (DH) POINTER
sBRANCH IF NONE
;CARRIAGE RETURN-LINE FEED

0
(RO)+,R1
20%

:'DH'' POINTER GOES HERE

+SCRLF

RS
(RO)+,RO
(RO)+,R2
17%
RS

JOSCRLF

108:

(RO)+,R3
(RO)+,R4

12%
a(R1)+,-(SP)
13%

128:

3(R1)+,=-(SP)

13%:

001231

000207

,BLNKS2

15%:

(RO)+,16%

16%:

0
1ST

17%:

208:
.SBTTL

;sSAVE @(R1)+ FOR TYPEOUT
260 TYPE=--DECIMAL ASCII WITH SIGN
sMORE NUMBERS TO TYPE?
;LOOP

14%:

046657

;PICKUP DATA TABLE (DT) POINTER
:BRANCH IF NONE
sSET INDENT SWITCH
sDATA FORMAT (DF) POINTER
sNUMBER OF DH'S TO TYPE
sBRANCH IF DH NUMBER IS 0
+NO INDENT
sCARRIAGE RETURN-LINE FEED
:NUMBER OF DATA WORDS TO TYPE
sAND HOW TO TYPE THEM
sOCTAL OR DECIMAL?
:DECIMAL~--BRANCH
::SAVE a(R1)+ FOR TYPEOUT
::G0 TYPE=-=OCTAL ASCII(CALL DIGITS)

sNO=-=BRANCH
sTYPE 2 SPACES

046657

001231

:YES

sTYPE 2 SPACES

11$%:

0466657
022342

SEQ 0102

sMESSAGE POINTER GOES HERE
JMORE TO TYPE?
:NO==BRANCH

001231

S
S ~N T

JOCRLF

5%:

001231

11-APR=-80 15:01:20 PAGE 14=4

NN NN
NNNN NN
NN
NN
NN NN NN NN NN NN N NN NNNNVNROVNNNNONON
NN
NN
NN NN NNNNV
o

=l
lelelelelelelelelelelelelelelelelelelelelclelelelslelollloToToTT=] (elelelelelelele BNelelelelelelelelele]

N
N NN
N

GROS8RLRRREN2STEIFZRER

et ek
k)

0000

NNNNNNNNNNOOO

VSN =0V Ng

O O

VW
AV

= OVO~NOWVIS W

' TYPERR -

NN
NN
NININININ
= s e e e

CZRMVAO R

BNE

TYPE
BR
RESREG
RTS

LSCRLF

RS
108

BLNKS2

fos
PC

TYPE ROUTINE

sMORE DH'S?
sNO==BRANCH
sYES==START A NEW LINE
s INDENT?
:NO=-=-BRANCH

sTYPE 2 SPACES
sGET NEXT DH
sAND TYPE

sDH POINTER GOES HERE
sCARRIAGE RETURN-LINE FEED
s INDENT?

sNO=-=-BRANCH
sTYPE 2 SPACES

;LOOP
RESTORE RO - RS

sRETURN

CZRMVAO RMO5/3/2 EXT'D DR TST

TYPE ROUTINE

MACRO v03.01

LN
11-APR-80 15:01:20 PAGE 14=5

MAAAAA AR A

aadd

SEQ 0103
d

ety

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
i:;ggE?QUTlNE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARALTER.
;*NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
:*NOTE3:
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
.

t#CALL:

:*1) USI NG A TRAP INSTRUCTION
-

022366
022372

TYPE
MESADR

$TYPE:

T1STB

61%:
62%:

"
BITB

2%:

MOVB

000002

60%:
3%:

MOV
ADD

000011

4$:

CMPB

000002
000001
000100

022436
021272
000040

000200

—3

022716
022600
001172

5$:
6%:

JSR
CMPB

001170
000001

022600
022716

+MESADR

ss1S THERE A TERMINAL?
:sBR IF YES
ssHALT HERE IF NO TERMINAL
3%
s sLEAVE
RO,=(SP)
:sSAVE RO
@82(SP) RO
ssGET ADDRESS OF ASCIZ STRING
lg:TENV.‘ENV
s sRUNNING IN APT MODE
6
2:NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ;:SPOOL MESSAGE TO APT
629
2sNO,GO CHECK FOR CONSOLE
RO,61%
s:SETUP MESSAGE ADDRESS FOR APT
Sc,iATYS
::SPOOL MESSAGE TO APT
s sMESSAGE ADDRESS
#APTCSUP,SENVM
s sAPT CONSOLE SUPPRESSED
60%
ssYES,SKIP TYPE OUT
(RO)+,=(SP)
s sPUSH CHARACTER TO BE TYPED ONTO STACK
4%
ssBR IF IT ISN'T THE TERMINATOR
(SP)+
ss1F TERMINATOR POP IT OFF THE STACK
(SP)+,RO
ssRESTORE RO
#2,(SP)
:sADJUST RETURN PC
sRETURN
s
#HT, (SP)

;BRANCH IF <HT>

#CRLF, (SP)

;sBRANCH IF NOT <CRLF>

(SP)+

::POP <CR><LF> EQUIV
::TYPE A CR AND LF

SCHARCNT

::CLEAR CHARACTER COUNT
JsGET NEXT CHARACTER
;:6G0 TYPE THIS CHARACTER
231S 1T TIME FOR FILLER CHARS.?

PC,STYPEC

$FILLC,(SP)+

$NULL,~(SP)
7$:

DECB

:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1%

——

-—

Ss 28:8
288-85382858
N J5 N =t N =2 N
NNV
=) = N
L= &~ 838388585
o
ONH NONSN o
]
ONO
= N— o
S
ONNOO
OO
NWVN=—-— oo ~N

001173

O—=O
o000
OWVESNOWM

NO‘NQ? oOoNNO SO

NN
=t b =2

o
N
NN
S
NN

TYPE

*OR
*
.¥

1(SP)

PC,STYPEC
SCHARCNT
- 7%

;21F NO GO GET NEXT CHAR.

ssGET # OF FILLER CHARS. NEEDED
ssAND THE NULL CHAR.
;sDOES A NULL NEED TO BE TYPED?
;:BR IF NO=-=-GO POP THE NULL OFF OF STACK
;260 TYPE A NULL
::D0 NOT COUNT AS A COUNT
;. LO0OP

' CZRMVAO RMOS/3/2 EXT'D DR TST
- TYPE ROUT:NE

MACRO v03.01

11-APR-80 15:01:20 PAGE 14-6

SEQ 0104

;HORIZONTAL TAB PROCESSOR
022554

022560

022564
022572
022576
022576
022600
022600
022604
022606

022612

022616
022622
022624
022624
022630
022632

022636

022642
022646
022650
022650
022652
022652
022656
022660
022666
022674
022676
022702
022704
022712
022714
022716
022720

112716

000040

132737
001372
005726
000724

000007

004737

105777
100022
017746

042716

022600

022716

156330

122716
001366

000021

1018:

177600
102%:

104

105

#7,8CHARCNT
%
(SP)+
2

:sBRANCH IF NOT AT
33
STOP
::POP SPACE OFF STACK
::GET NEXT CHARACTER

BPL
MOV

@$1KS
10%
a$1kB,-(SP)

::CHAR IN KYBD BUFFER?
::BR IF NOT
::GET CHAR

CMPB
BNE

WSXOFF, (SP)
1028

TSTB
BPL
MOVB

a$TKS
101%
@$TKB, (SP)

::WAIT FOR CHAR

CMPB
BNE

#SXON, (SP)
1018

::WAS IT XON?
::BR IF NOT

9177600, (SP)

156300
000002

022716
000002

#177600, (SP)

108:

156306

000012

BITB
BNE
ST
BR

BIC

005726

TSTB
BPL
MOVB
CMPB
BNE
CLRB
BR
1$:
CMPB
BEQ
INCB
$CHARCNT:.WORD
$STYPEX: RTS
.SBTTL
AR

AR A

,(SP)

PC,$TYPEC

BIC

156324

000002
000015

1STB

156350

105777
100375
117716

MOVBE

JSR

177600

000023

105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

$TYPEC:

156354

122716
001012

042716

8s:

:;REPLACE TAB WITH SPACE

::TYPE A SPACE

::STRIP EXTRANEOUS BITS
::WAS CHAR XOFF
:'BR IF NOT

::GET CHAR

SiSTRIP IT

(SP)+

;:FIX STACK

a$TPS
10$
2(SP),asTPB
#CR,2(SP)
1%
SCHARCNT
$TYPEX
#LF,2(SP)
$TYPEX
(PC)+
0
PC

::WAIT UNTIL PRINTER IS READY
::LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
::BRANCH IF NO
$iYES==CLEAR CHARACTER COUNT
D EX]
::1S CHARACTER A LINE FEED?
::BRANCH IF YES
::COUNT THE CHARACTER
::CHARACTER COUNT STORAGE

BINARY TO OCTAL (ASCII) AND TYPE
A

AR ARl ARt
iRttt Rdd)

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE 1IT.
;*$TYPOS=---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:
o
MOV

NUM,=(SP)

s sNUMBER TO BE TYPED

H
M

N
M

::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0R 0

| ]

TYPOS

.BYTE
BYTE

ssCALL FOR TYPEOUT

::1=TYPE LEADING ZEROS

+:0=SUPPRESS LEADING ZEROS

;*STYPON-==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST |
;*$TYPOS OR $TYPOC
s*CALL:
:
" NUM,~=(SP)
A
MOV
: :NUMBER TO BE TYPED

' CZRMVAO RMOS5/3/2 EXT'D DR TST

' BINARY TC OCTAL (ASCII) AND TYPE

9
MACRO v03.01 11-APR-80 15:01:20 PAGE 147
e
M

TYPON

;:CALL FOR TYPEOUT

"f}lf°""‘“"“ HERE FOR TYPEOUT OF A 16 BIT NUMBER
-

v
022722
ozzrgg
022734
022740
022764
0227646
022754
022762
022770
022772
022774
022776
023002

023010
023014
023020
023024
023026

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
1137064
005404

062704

110637
113704
016605
005003
006105

000000
000001
023147
000002
000001
000006
000005

023145

023145
023147
023144

023147

000006

006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703

023112
023114
023116

003347
002402
005204

023122
023126
023126
023130
023136
023140
02314§
0234
023144

012605
012604
012603
016666
012616
000002
v00
000
000

023076
023102
023106

110337
106401
105337

TYPOC

ADD

18:

38:

023146
177770

4$:

000060
000040

58:

023142
023142
023144

7%:

023120 000744

68:
000002

MOV

$TYPOS: MOV
MOVB
MOVB
ADD
BR
S$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVBE
NEG

023146
023145
000012

053032
006108
o%go 882105

023036
023040
0230642
023046
023050
023052
023056
023060
023062
023064
023066
023072

000004
8s:
$OCNT:

MOVBE
MOVB
MOV
CLR
ROL

ROLN

NUM, =(SP)

; sNUMBER TO BE TYPED

::CALL FOR TYPEOUT

3(SP),=(SP)
1(SP),$OFILL
(SP)+,SOMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,SOMODE
+1
#5.SOCNT
R3,=(SP)
R&,=(SP)
RS.=(SP)
SOMODE+1,R&
R4

::PICKUP THE MODE
::;LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS

R&.SOMODE
SOFILL,R&
12(SP) .RS
R3
RS

S*SAVE IT FOR USE
1:GET THE ZERO FILL SWITCH
::PICKUP THE INFUT NUMBER
::CLEAR THE OUTPUT WORD
:*ROTATE MSB INTO ''C""

06, R4

::SET THE
:*SET FOR
$:SET THE
::SAVE R3
::SAVE Ré&
::SAVE RS
::GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

;:SUBTRACT IT FOR MAX. ALLOWED

i PORMUTHIS DIGIT

ROL
MOV
ROL
DECB
BPL
BIC
BNE
15T
5EQ
INC
BIS
BIS

RS
RS,R3
R3
SOMODE
7%
#177770.R3
48
R4
5%
R4
#'0,R3
#
R3

::GET LSB OF THIS DIGIT
S:TYPE THIS DIGIT?
::BR IF NO
1:GET RID OF JUNK
S:TEST FOR 0
: *SUPPRESS THIS 0?
P:BR IF YES
::DON'T SUPPRESS ANYMORE 0'S
:SMAKE THIS DIGIT ASCII
:iMAKE ASCII IF NOT ALREADY

BGT
BLT
INC

2%
68
R4

::BR IF MORE TO DO
1:BR IF DONE
::INSURE LAST DIGIT ISN'T A BLANK

MOVE
TYPE
DECB

B8R

MOV
MOV
MOV
MOV
MOV
RTi
BYTE
BYTE
.BYTE

R3,8%
14
$OCNT

(SP)+,RS
(SP)+.R4
(SP)+.R3
2(SP) .4 (SP)
(SP)+, (SP)
0
0
0

::SAVE FOR TYPING
1360 TYPE THIS DIGIT
::COUNT BY 1

1260 DO THE LAST DIGIT

*:RESTORE
P:RESTORE
::RESTORE
1iSET THE

RS
Ré&
R3
STACK FOR RETURNING

: ;RETURN
$:STORAGE FOR ASCI1 DIGIT
*:TERMINATOR FOR TYPE ROUTINE
:*OCTAL DIGIT COUNTER

SEQ 0105

CZRMVAD RMO5/3/2 EXT'D DR TST

BINARY TC OCTAL (ASCII) AND TYPE

023145
106 023146

MACRO v03.01

000
000000

107

¢ 9
11-APR=80 15:01:20 PAGE 14-8

SOFILL:
SOMOPE:

.BYTE
.WORD

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MAAA AL AL A

O
O

SEQ 0106

s lERO FILL SWITCH
s sNUMBER OF DIGITS TO TYPE

i ad])

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

s *REPLACED WITH SPACES.

s*CALL:
e
e

023150
023150
023152
023156
023156
023160

010046
010146
010246
010346
030546

023166
023172
023176
023176
023204
83;503

016605
100004
005405
112766
005000
01srgg

023216
023220
023224
ozszgs
23230
023232
023234
23236
023240
0232642
023244
232646
023250
023252

005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

023264
023270

ossroi
11 ;2

000040

020027

000010

023162

23260

023272

0232764

02
023302
osssoa

012746

1127

052702

005 go
746
2
010502

$TYPDS:

020200

000001

853364

0040

3s:

48:

000060

177777

1 srzg
1
116063
105013
012605

68:

7%:

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,=(SP)
RS .=(SP)

::PUSH
::PUSH
::PUSH
::PUSH
::PUSH

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) .RS
1%
RS
#°'-,1(SP)
RO
#SDBLK,R3

::GET THE INPUT NUMBER
::BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
::MAKE THE ASCI] NUMBER NEG.
::2ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

CLR
MOV
SUB
BLT
INC
BR
ADD
ST
BNE
1STB
BM]
ASLB
BCC
MOVB

R2
$DTBL (RO) ,R1
R1,RS
X
R2
{1
R1,RS
R2
5%
(SP)
7%
(SP)
6%
1(SP),=1(R3)

::CLEAR THE BCD NUMBER
::GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR IF DONE
::INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
::FALL THROUGH IF 0
::STILL DOING LEADING 0°'S?
::BR IF YES
1:MSD?
::BR IF NO
::YES==SET THE SIGN

8IS
MOVB

" R
R2,(R3)+

SiMAKE 1T A SPACE IF NOT ALREADY A DIGIT
1:PUT THIS CHARACTER IN THE OUTPUT BUFFER

CMP

RO,.#10

B8R

move

8IS

BLT
BGT
MOV

8s:

177777

::PUT THE BINARY NUMBER ON THE
::60 TO THE ROUTINE

0 ssos 000764
023310
023312
023314
023322
023324

18:
28:

023354

000001

NUM, = (SP)

MOV

000020
000055

MOV
TYPDS

177776

TSTB
BPL
MOVB
CLRB
MOV

#20200,-(SP)

#' ,(R%)+

#'0,R2

(RO)+

RO
R1
R2
R3
RS

ON
ON
ON
ON
ON

STACK

STACK
STACK
STACK
STACK
STACK

::SET BLANK SWITCH AND SIGN

1:SET THE FIRST CHARACTER TO A BLANK

:iMAKE THE BCD DIGIT ASCII

::JUST INCREMENT
ING

:sCHECK THE TABLE INDEX

28
8s
RS,R2

::60 DO THE NEXT DIGIT
1360 TO EXIT
S:GET THE LSD

(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS

::WAS THE LSD THE FIRST NON=-ZERQ?
::BR IF NO
::YES==SET THE SIGN FOR TYPING
S:SET THE TERMINATOR
1:POP STACK INTO RS

::60 CHANGE TO ASCII

CZRMVAD RMOS5/3/2 EXT'D DR TST

D 9
MACRO V03601 11-APR=80 15:01:20 PAGE 14-9

CONVERT BiNARY TO DECIMAL AND TYPE ROUTIN

0
0
023332
02
02

01260
81 60
012601
012600
1064401

023350

012616

023352
023354

023356
023360
023362

108 023364

016666

023364

000002

MOV
MOV
MOV
MOV
TYPE

000004

000002
023420
001750
000144
000012

109

MOV

$DTBL:

RTI]
10000

$DBLK:

.BLKW

LSBTTL

1000.
100.
10.

(SP)+,R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
$OBLK

$(SP),4(SP)
(SP)+, (SP)

SEQ 0107

::POP
1:POP
::POP
::POP
::NOW

STACK INTO R3
STACK INTO R2
STACK INTO R1
STACK INTO RO
TYPE THE NUMBER

S:ADJUST THE STACK
:;RETURN TO USER

TTY INPUT ROUTINE

:.'.'.'.'...'..""""""'.""".'."...'.'""l.."'...'""'.

023374
023376
023400
023402

.ENABL

000000
000000
000000

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

023404

0
O
0
2

;#TK INITIALIZE ROUTINE
;*THIS ROUTINE WILL INITIALIZE

::NUMBER OF ITEMS IN QUEUE
S INPUT POINTER
::0UTPUT POINTER
::TTY KEYBOARD QUEUE

THE

TTY KEYBOARD

INPUT

QUEUE

:#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

023404

023410
023416
0234626
023432
023440
023446
023452

005037

012737
013737
012737
012737
005777
012777
000207

023374

023402
023376
023454
000200
155516
000100

023376
023400
000060
000062

s*CALL:
JSR
I
RETURN
e

PC,STKINT

$TKINT: CLR

$TKCNT

MOV
MOV
MOV
MOV
ST
MOV
RTS

155506

#STKQSRT,STKQIN
$TKQIN,$TKQOUT
#STKSRV,#TKVEC
#200,3#TKVEC+2
asTKB
#100,387KS
PC

::CLEAR COUNT OF ITEMS IN QUEUE

::MOVE THE STARTING ADDRESS OF THE
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
::INITIALIZE THE KEYBOARD VECTOR
::'BR" LEVEL &
::CLEAR DONE FLAG
::ENABLE TTY KEYBOARD INTERRUPT
S:RETURN TO CALLER

;*TK SERVICE ROUTINE

:#THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING

:e1T IN THE QUEUE.
:
:#1F THE CHARACTER IS A ''CONTROL=C'' (*C) STKINT IS CALLED AND

:*UPON RETURN EXIT 1S MADE TO THE ''CONTROL=-C'' RESTART ADDRESS (START2)

023454
023460

117746
042719

023470
023472
023476
023502
023504
023510

001007
10«491
004737
°°5’§9
000137
021627

023494 021627

155502
177600

000003

$TKSRV: MOVB
BIC

CMP

024604
023404

004612
(000007

18:

BNE
TYPE
JSR
3
JMP
CMP

@$TKB,-(SP)
#4C17%,(SP)

::PICKUP THE CHARACTER
SiSTRIP THE JUNK

1%
LSCNTLC
PC,STKINT
(SP)+
START?
(SP) ,#7

::BRANCH IF NO
SSTYPE A CONTROL=C (*C)
SSINIT THE KEYBOARD
SiCLEAN UP STACK
::CONTROL C RESTART
2:1S 1T A CONTROL G2

(spP), 0¥

:31S 1T A CONTROL C?

CZRMVAD RMOS/3/2 EXT'D DR TST
TTv

INPUT ROUTINE

£E 9
MACRO v03.01 11-APR-80 15:01:20 PAGE 14=10

023514

0010

BNE

02352¢

001500

BEQ

02;5 6
023526
02353¢
ozgs
023542
023544
023543
023552
023554
023560
023562
023566
023570

022737
001004
1064401
005726
000451
021627
001021
005077
0057;?
105777
100375
117746

000002

023600
023604
023606
023614
023616
023622
ozsogg
023630

022627
001366
012777
ooooo;
005237
021627
002405
021627

000021

02§51o ozzr?? 000176 001154

023574

042716

023374

001224
000023

38:

155400
155372

318:

155366

177600

000100

005237
023727
001003
012737
000002

#SWREG, SWR

:;BRANCH IF NO

::60 TO SWR CHANGE

CMP
BNE
TYPE
1s1
BR
CMP
BNE
CLR
ST
1STB
BPL
MOVB

#2,8TKCNT
{1
LSBELL
(SP)+
5%
(SP),#23
328
asTKs
(SP)+
@$TK$S
318
@$TKkB,=-(SP)

::1S THE QUEUE FULL?
::BRANCH IF NO
:sRING THE TTY BELL
::CLEAN CHARACTER OFF OF STACK
DIEXIT
::1S IT A CONTROL=S?
:;BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STACK
S:WAIT FOR A CHAR
::LOOP UNTIL ITS THERE
;:GET THE CHARACTER

(MP
BNE
MOV
RTI
INC
CMP
BLT
CMP

(SP)+,#21
318
#100,387kS

::1S IT A CONTROL=-Q?
::BRANCH IF NO
::REENABLE TTY KEYBOARD INTERRUPTS
:;RETURN
::COUNT THIS CHARACTER
2215 1T UPPER CASE?
::BRANCH IF YES
2315 IT A SPECIAL CHAR?

BIC
155344

023374
000140

32%:

000175

82363‘
8239?2
40
053323 113579 ?99230

023646
023652
023660
023662
023670

2%:

CMP

48:

023376
023376

023404

023402

023376

S?E
MOVB

INC
CMP
BNE
MOV
RT]

1315 SOFT=SWR SELECTED?

#°C177,(SP)

S:MAKE IT 7-BIT ASCII

$TKCNT
(SP),#140
48
(SP),#175

:20
’ (SP)
(SP)+,a8TKQIN

$TKQIN
$TKQIN,#$TKQEND
5%
#STKQSRT,$TKQIN

“32‘2‘?:‘69353
CASE
;s s
::ANDMAK PUT IT IN QUEUE

::UPDATE THE POINTER
;;GO OFF THE END?
::BRANCH IF NO
::RESET THE POINTER
::RETURN

.':t"..""l"""""'""""'t".'.""i."tlt'lt".t"t!tttt.

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP

023672

023700
023702
023706
023710

023714
023720
023724

022737

001124
105777
100121
117746

0462716
021627
001300

000176

0011564

155252
155246

177600
000007

;*CALL WHEN OPERATING IN TTY

$CKSWR: CMP

#SWREG, SWR

BIC
CMP

#c17t,(SP)
(sP),0?

BNE
TSTB
BPL
MOVB
BNE

15%
@$TkS
15%
a$TKkB,=(SP)
2%

INTERRUPT MODE.

::1S THE SOFT=SWR SELECTED
S:EXIT IF NOT
2315 A CHAR WAITING?
::1F NOT, EXIT
PIYES

SIMAKE IT 7-BIT ASCII
2318 IT A CONTROL=G?

::1F NOT, PUT IT IN THE TTY QUEUE
::AND EXIT

.'".l."".'l""'l"""'t""""'t'l.t't."'."'t"""it'ttl"

023726
02373
023736

,
123727
001674
005726

001150

000001

S*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
S*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
S#CONTROL=G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
6$:
CMPB
SAUTOB,#1
:;ARE WE RUNNING IN AUTO=-MODE?
BEQ
2%
::BRANCH IF YES
ST
(SP)+
::CLEAR CONTROL=G OFF STACK

SEQ 0108

%%:HVAO RMO5/3/2 EXT'D DR TST
INPUT ROUTINE

023750

112737

000001

023756

104401

02461

023766
023772
023776
026
024002
026
024010

013746
104402
104401
005046
005046
105777
100375

000176

MACRO v03.01

0264012

001151

023762 104401 oz«oz?

11-APR=8B0

198 :

155150

7%:

9
14=11

SEQ 0109
L

MOVB

#1,SINTAG

::SET INTERRUPT MODE INDICATOR

TYPE

LSCNTLG

MOV
TYPOC
TYPE
CLR
CLR
TSTB
BPL

SWREG,=(SP)

::TYPE CURRENT CONTENTS

LSMNEW
-(SP)
=(SP)
@$TkS
7%

:;SAVE SWREG FOR TYPEOUT
1260 TYPE==OCTAL ASCIICALL DIGITS)
::PROMPT FOR NEW SWR
S:CLEAR COUNTER
::THE NEW SWR
S:CHAR THERE?
::1F NOT TRY AGAIN

$GTSWR: TYPE

024634

F
15:01:20 PAGE

TSMSWR

;;ECHO THE CONTROL=G (*G)

026016

042716

117746

155144

177600

BIC

MOVB

a$TkB,~(SP)

;sPICK UP CHAR

024022
024026
024030
024034
024040
0240646

021627
001015
104401
062706
123727
001003

000003

CMP
BNE
TYPE
ADD
CMPB
BNE

(SP),#3
9%
JOCNTLC
#6,SP
SINTAG, M
8s

;218 1T A CONTROL=C?
::BRANCH IF NOT
;ssYES, ECHO CONTROL=C (*C)
::CLEAN UP STACK
s sREENABLE TTY KEYBOARD INTERRUPTS?
::BRANCH IF NO

CMP
BNE
TYPE
ADD
BR

(SP),#25
10%
LSCNTLU
#6,5P
19%

;218 1T A CONTROL=-U?
::BRANCH IF NOT
1:YES, ECHO CONTROL=U (*U)
::1GNORE PREVIOUS INPUT
JsLET'S TRY IT AGAIN

CMP
BNE
18T
BEQ

(SP),#15
16%
&(SP)
1%

;318 IT A <CR>?
; sBRANCH IF NO
J2YES, IS IT THE FIRST (HAR?
::BRANCH IF YES

ADD
TYPE

#6,SP
$CRLF

::CLEAR UP STACK
::ECHO <CR> AND <LF>

9264050
024056

024604
000006
001151

000001

012777
000137

000100
004612

024062
024066
024070
024074
0264100

021627
00100
104401
062706
00073

000025

9% :

024611
000006

208:

026102
024106
024110
024114

021627
001022
005766
001403

000015

10%:

024126
024130

062706
104401

000006
001231

026116

0264134

024142
024144
024152
024154
0264160
024164
0241
0264172
024174
024200
0242064
0242
026210
026212

0246214

8%:

000004

016677

000002

123727

001151

001003
012777
2
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316

155102

000100
022600
000060

18:
148 :

15%:
168:

000067
000060
000002

5266 (00002

17%:

MOV
JMP

MOV

CMPB

BNE
MOV
RT]
JSR
CMP
BLT
CMP
BGT
BIC
18T
BEQ
ASL
ASL
ASL

INC

#AC177,(5P)

#100,9%7kS
START?

2(SP) ,aSWR

ilNTAG.ll

15%
#100,387KS

PC,STYPEC
(SP) ,#60
18%
(SP) 067
18%
#60, (SP)+
2(SP)
17%
(SP)
(SP)
(SP)

2(5P)

S:MAKE IT 7-BIT ASCII

ssALLOW TTY KEYBOARD INTERRUPTS
s sCONTROL=C RESTART

::SAVE NEW SWR

;sRE-ENABLE TTY KBD INTERRUPTS?
::BRANCH IF NOT
:RE-ENABLE TTY KBD INTERRUPTS
: :RETURN
::ECHO CHAR
;:CHAR < 0?
::BRANCH IF YES
::CHAR > 7?
:;BRANCH IF YES
::STRIP-OFF ASCII
::1S THIS THE FIRST CHAR
::BRANCH IF YES
;sNO, SHIFT PRESENT
i
CHAR OVER TO MAKE
::
ROOM FOR NEW ONE.

S:KEEP COUNT OF CMAR

94 RMVAOD RMO5/3/2 EXT'D DR TST

INPUT ROUTINE
STopo

026220
2622
242;
2421

[=l=l=]

056616
000667
104401

000720

15:01:20 PAGE

BIS
BR
TYPE
i

=2(SP), (SP)

177776

001230

11-APR-80

18%:
.DSABL

LSB

14=12

7%
$QUES

SEQ 0110

;2SET IN NEW CHAR
;sGET THE NEXT ONE
;sTYPE

208

7<CR><LF>

SIMULATE CONTROL=-U

;:'..""""""""'"l.""'Q.'"...Q""Q""""".l".""'

:*THIS ROUTINE

s*CALL:

.
.

WILL

INPUT

A SINGLE

RDCHR
RETURN HERE

000004
000004

000002

024314
024322

(=3=4
[«
O N = (NN

SR8=88

024260

$RDCHR: MOV
MOV
CLR
(LR

:
648

023374

1%:

023374
177102
023400
023400

023404

023402

023400

000004

MOV
RT]

TST

ZS:

(SP) ,=(SP)
4(SP),2(SP)
4(SP)
-(SP)
#6468 ,-(SP)

ssGET
;sPUT
;sPUT
;sPOP

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

98 TKQOUT ,&(SP)

:;DECREMENT THE COUNTER
::GE! ONE CHARACTER

INC

$TxQOUT

RTI

:sPUSH DOWN THE PC AND

;:THE PS

;:WAIT ON A CHARACTER

1%
$TKCNT

CMP
BNE
MOV

TTY

$TKCNT

BEQ
DEC

MOVE

CHARACTER FROM THE

;sGET A CHARACTER FROM THE QUEUE
: s CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

;UPDATE THE POINTER

31(0001LWSTKQEND.6010 IT GO OFF OF THE END?

#STKQSRT,$TKQOUT Z.neser THE POINTER
ANCH

ETURN

"".'.""""""'"'Q"""."""..'..'Q"l..'t"'.."""'

-THIS ROUTINE WILL
s*CALL:

i
—

N == N
PN S = PONOWVO
W
NS~N
—d
)
b et = \NOO
&
OWLNNO =OWw
— N NN
= YN
N NWWNO O
WO O
& »w

024412

024324

ge-g8gs=csRes
O-‘?N
v
8N°N°&&NN°U‘

——
—a O

1" ¥

MACRO v03.01

RDLIN

]

BLOS

RDCHR

000177

108:

MOvVB
CMPB

BNE

187

000134
024556
177777

024560

024556
024556

A STRING FROM THE

RETURN HERE

SRDLIN: MOV
CLR
1%:
MOV
2%:
CMP

024560
024604

INPUT

024556

#STTYIN+20.,R3
4%

(SP)+,(R3)

n 7 R3)

(SP)

BNE
MOvVB

6%
"\, 9%

MOV
DEC
CMP
BLO
MOvVB

#-1,(5P)
R3
R3 #STTYIN
4%
(R3),9%

TYPE

6%:

R3,-(SP)
-(SP)
#STTYIN,RS

,9%

TTY

;s INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF

ALL 0'S

::SAVE R3

ssCLEAR THE RUBOUT KEY
+sGET ADDRESS
;sBUFFER FULL?
;sBR IF YES
2 :G0 READ ONE CHARACTER FROM THE TTyY
;:GET CHARACTER
::1S 1T A RUBOUT
ssBR IF NO
..ls THIS THE FIRST RUBOUT?
NO
sBR IF

..YYPE A BACK

SLASH

;sSET THE RUBOUT KEY
. sBACKUP BY ONE

::STACK EMPTY?

sBR IF YES
sSETUP TO TYPEOUT THE DELETED CMAR.
;.60 TYPE

MACRO v03.01

H
9
11-APR=-80 15:01:20 PAGE 14-13

000134
024556

;:BR IF NO

024556

000025

ssTYPE A BACK SLASH

024611

$SCNTLU

S22

:31S CHARACTER A '"TMR'"?

#22,(R3)

s sBRANCH IF NO
ssCLEAR THE CHARACTER

(R3)

001231
024560

,SCRLF

ssTYPE A "'CR' B "LF"

;:G0 PICKUP ANOTHER CHACTER

is
(R3),9%
9%
#15,(R3)+

ssCLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

STTYIN

4%:

s TYPE

,$QUES

024556
024556
000015

177777
001232

000004
024560

;s CLEAR THE RUBOUT KEY
ss1S CHARACTER A CTRL V?
;:BR IF NO
;:TYPE A CONTROL 'V
;.60 START OVER

(SP)
#25,(RY)

7%:

001230

000002
000004

——_, OO0
N
s

[« JEAV
IV IV

OO =t
H —=2ONO

STRING

ssTYPE A '

;sCHECK FOR RETURN
;sLOOP IF NOT RETURN

s sSTORAGE FOR ASCII CHAR. TO TYPE
s sTERMINATOR

$TTYIN:

SCNTLU:
SCNTLG:
SMSWR:
SMNEW:
.EVEN
.SBTTL

:sRESERVE 20. BYTES FOR TTY

:sCONTROL ‘'c''

INPUT

;:CONTROL ''U"
:sCONTROL ''G"'

SCOPE HANDLER ROUTINE

A A2l
iR
RRE)

s*THIS ROUTINE CONTROLS (HE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

—_~~

024646
024646
024650
024656

owoO
&~
— -y s
OoONO

s*SW14= 1
;eSW11= 1
;*SW09= 1
s*CALL

OO
—

—O

INPUT

s sRETURN

$CNTLC: .

THE

ssCLEAR RETURN (THE 15)
s.TYPE A LINE FEED
;sCLEAN RUBOUT KEY FROM THE STACK
;sRESTORE R3
;sADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCI] CHARACTER ON IT
33

9%:

024560
024604
024611
024616
024623
024634

SEQ 011

;360 READ ANOTHER CMAR.
:sRUBOUT KEY SET?

5%:

—

8328 O

528383

VYvt
vy g
WNSWNESNSSO
o
ONOW—-O—-00— -

—

L=d=4 S\

Fas ‘\P

S ONO
NOO —=—=0O

-fltd\flUfi‘“Nfi“i—hfltfl-‘(?ohfltflvfl’-‘ <&

(=3=

024416

S83=8
2
g
—flV\flJ‘Nfifl\flE;
SoS

C IRMVAQ RMO5/3/2 EXT'D DR TST
1 TvY INPUT ROUTINE

$SCOPE:

040000

154276

1%:

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

SCOPE

CKSWR

BIT
BNE

::SCOPE=]0T

#BIT14,3SWR
SOVER

FOR CHANGE IN SOFT=-SWR
;s TEST
::LOOP ON PRESENT TEST?
s YES IF SW14=1

CZRMVAO RMO5/3/2 EXT'D DR TST

SCOPE MANDLER ROUTINE

024660

000416

024662

013746

MACRO v03.01

11-APR-B0

lllllSIART

$XTSTR:
000004

000004

N = NN
SIS
NNNNWN R NWVN -~

=
U U U N
NN N
O NNNNNNNNNS NN

NNNOOONNVINNONNVNO
N

OO =

N =2 ) = N = N
COHfN
NS NONSN

O =t
822235228888
W
o
E;—'
(==
o S Oet
WONOO
N = =
NV NN
WY = N
—
P

OO
s

wrno

—_—

001131

001117

001000

154212

001124

001122

001117
001220

3$:

001120
001120
001220
001240

001131

154066

FOR

THE

XOR

FERRVEC, = (SP)

a1 #7060

BR
CMP

$SVLAD
(SP)+,(SP)+

MOV

#58 AFERRVEC

(SP)+,a#ERRVEC

(SP)+.a#ERRVEC

TESTERNNANN

..lF RUNNING ON THE ''XOR'' TESTER CHANGE
:THIS INSTRUCTION TO A ''NOP'' (NOP=240)

::SAVE THE CONTENTS OF THE ERROR VECTOR
;s SET FOR TIMEOUT
::TIME OUT ON XOR?
: sRESTORE THE ERROR VECTOR
::60 TO THE NEXT TEST
::CLEAR THE STACK AFTER A TIME OUuT
..RESTORE THE ERROR VECTOR

BR
7%
LOOP ON THE PRESENT TEST
68:: ANNRNEND OF CODE FOR THE XOR' TESTERI"‘I
2%:
TSTB
SERFLG
..g:slfiu SRROR OCCURRED?
BEQ
3s
CMPB
ssMAX. ERRORS FOR THIS TEST OCCURRED?
SERMAX,SERFLG
BHI
3s
;:BR IF NO
BIT
#B1T09,aSWR
;sLO0P ON ERROR?
BEQ
43
:sBR IF NO
7%:
MOV
SLPERR,SLPADR
2sSET LOOP ADDRESS TO LAST SCOPE
48:

154160

CODE

MOV

5%:

001117

004000

MOV

00004

-—

14- 14

SEQ 0112

000004

025076

15:01:20 PAGE

18:
$SVLAD:

BR
CLRB
CLR
BR
BIT
BNE
INC

CMP
BGE
MOV
MOV

INCB

MOVB
MOV
MOV
CLR

SOVER:

SMXCNT:
.SBTTL

MOVB

MOV
MOV
RTI

$OVER
SERFLG

;s IERO THE ERROR FLAG
;sCLEAR THE NUMBER OF ITERATIONS TO MAKE
ssESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
;:BR IF YES
;s INCREMENT ITERATION COUNT
$TIMES,$I1CNT
ssCHECK THE NUMBER OF ITERATIONS MADE
$OVER
ssBR IF MORE ITERATION REQUIRED
#1,81CNT
ssREINITIALIZE THE ITERATION COUNTER
SMXCNT,STIMES
+sSET NUMBER OF ITERATIONS TO DO
STSTNM
2 sCOUNT TEST NUMBERS
STSTNM,STESTN
ssSET TEST NUMBER IN APT MAILBOX
(SP) ,SLPADR
s sSAVE SCOPE LOOP ADDRESS
(SP) .SLPERR
:sSAVE ERROR LOOP ADDRESS
$ESCAPE
ssCLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
ssONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM,3DISPLAY ;sDISPLAY TEST NUMBER
$LPADR
. (SP)
;sFUDGE RETURN ADDRESS
;sFIXES PS
STIMES
1%
#BIT11,35WR
1%
$1CNT

ssMAX.

NUMBER OF

ITERATIONS

SAVE AND RESTORE RO-R5 ROUTINES

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

'SAVE RO-RS

s*CALL:

SAVREG

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
. .

'YOP---(OIO)

(v 42===(4+18)

§e +4===R5

ML ‘6---R‘
;v 4B8---R3
;*+10--=R?

s*412-==R1
se414--=R0

CZRMVAOD RM05/3/2 EXT'D DR TST

SAVE AND RESTORE RO-RS ROUTINES

025100
025100
025102
025106
025106
025110
025112
0251164
025120
025126
025130
02513¢

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

MACRO v03.01 11-APR=-80 15:01:20 PAGg 14-15
$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

SEQ 0113

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,=(SP)
Ré,=(SP)
RS,=(SP)
22(SP),=(SP)
22(SP).=(SP)
22(SP),=(SP)
22(SP).=(SP)

::PUSH
::PUSH
::PUSH
::PUSH
::PUSH
::PUSH
::SAVE
::SAVE
;:SAVE
::SAVE

RO
R1
R2
R3
R4
RS
PS
PC
PS
PC

ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

(SP)+,22(SP)
(SP)+.22(SP)

;:RESTORE PC OF CALL
::RESTORE PS OF CALL

(SP)+,22(SP)
(SP)+.RS
(SP)+.Ré
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO

::RESTORE PS OF MAIN FLOW
::POP STACK INTO RS
::POP STACK INTO Ré
1:POP STACK INTO R3
::POP STACK INTO R2
2:POP STACK INTO R1
::POP STACK INTO RO

:*RESTORE RO-RS

025136

s*CALL:
L

025136
025142

012666
012666

000022
000022

025152
025156
025160
025162
0251664
025166
025170
- 025172

012666
012605
012604
012603
012602
012601
012600
000002

000022

025146

012666

$RESREG:

000022

RESREG

MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI
.SBTTL

(SP)+.,22(SP)

::RESTORE PC OF MAIN FLOW

TRAP DECODER

.‘.'""".".'."""""""""."..l'.l"'..'.t'l.".'.'i..'."

“*THIS ROUTINE WILL PICKUP THE

LOWER BYTE OF

THE

'‘TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTIN® ADDRESS
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:#GO TO THAT ROUTINE.
025174
025176
025202
025206
025206
025210
025214

010046
016600
005740
111000
006300
016000
000200

000002

$STRAP:

025230

MOV
MOV
ST
MOVB
ASL
MOV
RTS

RO,=(SP)
2($P) RO
-(RO)
(RO),RO
RO
$TRPAD(RO)
,RO
RO

::SAVE RO
1:GET TRAP ADDRESS
:BACKUP BY 2
::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;;INDEX TO TABLE
1360 TO ROUTINE

::THIS 1S USE TO HANDLE THE '‘GETPRI'' MACRO

025216

011646

$TRAP2: MOV

025226

000002

RT]

025220 016666 000004 000002

MOV

.SBTTL

(SP),=(SP)

4(SP3,2(SP)

:;MOVE THE PC DOWN

SiMOVE THE PSW DOWN
::RESTORE THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE "'TRAP'' INSTRUCTION.

CZRMVAD RMO5/3/2 EXT'D DR TST

TRAP TABLE

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

MACRO v03.01

9
14=16

SEQ 0114

ROUTINE

~NO

$TRPAD: .

025254
025256
«SBTTL

$TRAP2

$TYPDS

s+ CALL=TYPE
s s CALL=TYPOC
s sCALL=TYPOS
ssCALL=TYPON
s s CALL=TYPDS

TRAP+ 1010
1 4 401)
TRAP+2(11 0 2402)
TRAP+3(104403)
1
TRAP+4(104404)
1
TRAP+5(104405)

TTY TYPEOUT 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)

$GTSWR

;s CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
$RDCHR
SRDLIN
$SAVREG
SRESREG

s s CALL=CKSWR
s : CALL=RDCHR
s sCALL=ROLIN

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

;:CALL=SAVREG
; ;CALL=RESREG

SAVE RO=-R5 ROUTINE

RESTORE RO-R5 ROUTINE

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

::'t'.'..'.'."""""'t"'""".'"'.l".t"'.'.".".'."'.'.

;*THIS ROUTINE WILL CONVERT A 16=BIT UNSIGNED BINARY NUMBER TO AN

s*UNSIGNED DECIMAL ASCIZ NUMBER.
s*CALL
:.

* @

0
025310

016637
012746
004737
062716
012666
000207
000000

000002
025310
025314
000005
000002

025310

$5B2D:

NUMBER
, - (SP)
PC,a#$SB2D

MOV
MOov

2(SP),1%

JSR

000000

1%:

¢+

CALL

;s SAVE BINARY NUMBER
;:SET POINTER
;s CALL DOUBLE LENGTH CONVERT
ssONLY ALLOW FIVE CHARACTERS
;:PICKUP POINTER

s sRETURN

0.0

.WORD

:::gT BINARY NUMBER ON THE STACK

:;ADDRESS OF THE 1ST ASCIZ (HAR.IS ON THE STACK

#1$,-(SP)
PC,a#$DB2D
#5,(SP)
(SP)+,2(SP)
PC

ADD
Mov
RTS

.SBTTL

DOUBLE LENGTH BINARY TO DECIMAL ASCII
AR A

AR A

ARl

CONVERT ROUTINE

AlARt
RdRdd)

;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
:.ggg}??bE(ASCII) NUMBER.
-

e
N L L
L

j=lelelelelele)

uruNN-Lo0
L VT N NT

VWA

s*CALL

NRORONONNN

O 0o

—

MOv
JSR
RETURN

000012

MOV
JSR
RETURN

SAVREG

000002
025474
000002

025412

THE

SIGN OF

THE BINARY NUMBER MUST BE

MOV
MOV
MOV
MOV
MOV
MOV

#PNTR,

= (SP)

PC,ar$DB2D

:;POINTER TO LOW WORD OF BINARY NUMBER

::THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK

2(SP),R2

::SAVE REGISTERS
:sPICKUP THE DATA POINTER

(R&)+,R1

::PUT ADDRESS OF ASCIZ STRING ON STACK
::PICKUP THE BINARY NUMBER

#SDECVL,
RO
RO,2(SP)

(R2)+.R2

;;GET ADDRESS OF ''SDECVL''

STRING

;:SET UP TO DO 10 CONVERSIONS

CZRMVAO RMOS5/3/2 EXT'D DR TST

MACRO v03.01 11-APR=-80 15:01:20 PAGE 14=17
DOUBLE LENGTH BINARY TO DECIMAL ASCI1 CONVERT ROUTINE

025344
025350
025354
025356
025360
025362
025364
025366
025370
025372
025374
025376
025400

0127064
012705
005003
161401
005602
161502
002402
005203
000772
062401
005502
062402
022525

025406
025410
025412
025414
025416
025420
025422
025424
025426

110320
005327
000000
001357
105020
104413
000207
145000
035632

025432
025434
025436
025440
025442
025446
025446
025450
025452
025454
025456
025460
025462
025464
025466
025470
025472
i 025474

002765
113200
000230
041100
000017
103240
000001
023420
000000
001750
000000
000144
000000
000012
000000
000001
000000

025402

025430

052703

025424
025426

18:
2%:

38:

000060

160400

MOV
MOV
CLR
SUB
SBC
SUB
BLT
INC
BR
ADD
ADC
ADD
CMP

BIS

MOVB
DEC
4$:
WORD
BNE
CLRB
RESREG
RTS
$STNPWR: 145000
35632

FSTNPWR, R&
#STNPWR+2,RS
R3
(R&) ,R1
R2
(RS) ,R2
3
R3
2%
(R4)+,R1
R2
(R4)+,R2
(RS)+. (RS)+

#'0,R$

R3,(R0)+
(PC)+
0
1%
(RO)+
PC

160400

2765
113200
230
041100
17
103240
1
23420
0
1750
0
144
0
12
0
1
0
$DECVL: .BLKB

12°

.SBTTL

:;ADDRESS OF TEN POWER

::CLEAR PARTIAL
*:SUBTRACT TEN POWER
;:BR IF TEN POWER TO LARCE
SSADD 1 TO PARTIAL
:1L00P
::RESTORE SUBTRACTED VALUE
;:MOVE TO NEXT TEN POWER

::CHANGE PARTIAL TO ASCII
SiSAVE IT
: :DONE?

::BR IF NO
: TERMINATOR
**RESTORE REGISTERS
:RETURN
::1.0€09

::1.0E08
::1.0€07

::1.0€06
::1.0E05
::1.0E04
::1.0603
;
::1.0E0z
::1.0E01

::1.0E00
12.

: ;RESERVE STORAGE FOR ASCIZ STRING

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

:.'.'..'."'."""""""l""'."'l".t.'..'."'..lttl"'t'.'lt

S*THIS ROUTINE

IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

:'%E‘E'”G NUMBERS .
;*CAL

i
.
025510
025512
025516
025520

010046
016000
105710
001403

000004

MOV
JSR

$SUPRS: MOV
MOV
1$:
1STB
BEQ

#NUMADR,-(SP)
PC.a#sSUPRS

::FIRST ADDRESS OF ASCIZ STRING

RO,=(SP)
4($P) RO
(RO)
2%

: :SAVE RO
“'PICKUP THE POINTER
S TERMINATEOR?
PiBR IF YES

SEQ 0115

5/3/2 EX1'D DR TST

MACRO v03.01

9
11-APR-80 15:01:20 PAGE 14-18

ICAL ASCIZ STRING SUPPRESS LEADING ZEROS

025522

122720

0255
025532
025536
025540
025542
025544
025546

005300
010037
104401
000000
012600
012616
000207

o
W

025526 0017;3

000060
025540

SEQ 0116

CMPB

#'0,(RO)+

..lS THIS AN ASCII ''0'"
?

RO
RO,3$

3%:

DEC
MOV
TYPE
LWORD
MOV
MOV
R1S

.,BACKUP By 1"
..SAVE FOR TYPING
260 TYPE
..ASCIZ POINTER GOES HERE
sRESTORE RO
::RESTORE THE STACK
s sRETURN

.SBTTL

RANDOM NUMBER GENERATOR ROUTINE

2%:

BEQ

O
(SP)+,RO
(SP)+,(SP)
PC

sBR IF YES

;:.l'."."'!."""""""""Q'i."""".".".Q"""'ll"'.

s*THIS ROUTINE

IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

B
B
H

PC,SRAND

:'g{lt A RANGE OF 0 TO 2(+33)-1.

JSR
RETURN

—

rorno
Vs

025550
025550
025552
025554
025556
025562
0255?3
0255
025574
025576
025600
025602
025606
025610
025614
025620
025622
025626
025632
025636
025640
025642
025644
025646
025650

010046
010146
010246
013700
013701
8&2702
6300
006101
005202
001374
063700
005501
063701
062700
005501
062701
010037
010137
01260
012601
012600
000207
176543
123456

: sSHINUM, SLONUM

$RAND:

025650
025646
1777

025650
025646
001057

047401
025650
025646

MOV
MOV
MOV
MOV
MOV
MOV
1$:
ASL
ROL
INC
BNE
ADD
ADC
ADD
ADD
ADC
ADD
MOV
MOV
MOV
MOV
MOV
RTS
SHINUM: .WORD
SLONUM: .WORD
.SBTTL

ssCALL THE ROUTINE
ssRETURN HERE THE RANDOM
s sNUMBER WILL BE IN

RO,=(SP)
R1,-(
R2,=(5r)
$SLONUM,RO
$SHINUM,R1
#-7,R2
RO
R1
R2
1%
SLONUM,RO
R1
$SHINUM,R1
#1057,R0
R1
#67401,R1
RO,SLONUM
R1,SHINUM
(SP)+,R2
(SP)+,R1
(SP)+,RO
PC
176543
123456

;sPUSH RO ON STACK
::PUSH R1 ON STACK
:sPUSH R2 ON STACK
23SET RO WITH LOW
3SET R1 WITH HIGH
:sSET SHIFT COUNT
ssSHIFT RO LEFT AND
::ROTATE CARRY INTO R1 AND
;sCHECK FOR DONE
2sCONTINUE SHIFT LOOP
;:;ADD NUMBER TO MAKE X 129
: sPROPOGATE CARRY
;sADD NUMBER TO MAKE X 129
ssADD LOW CONSTANT
: sPROPOGATE CARRY
s3ADD HIGH CONSTANT
s :SAVE RO
;sSAVE R
:sPOP STACK INTO R?
ssPOP STACK INTO R
;:POP STACK INTO RO
: sRETURN

INTEGER DIVIDE ROUTINE

.'...'.."""""""""""..ll.'.t'l"tltt.tili""l".tltt

'THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT

INTEGER
'DlVlDEND BY
A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
:'A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER.
s*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER 1S OF THE
:'E:HE SIGN AS THE DIVIDEND.
s*CALL:

MOV

LOW DIVIDEND,=(SP)

ssTHE HIGH DIVIDEND MUST BE < 1/2

CZRMVAQ RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

N9
MACRO v03.01 11-APR=80 15:01:20 PAGE 14-19
;e

MOV

v
e
i
-

V=0
'"v'=1

v
v
e

104400
062716
010046
010146
010246
010346
005046
012746
016601
016600
100005
105366
005400
005401
005600
016602
002407
003011
052766

025744
025746
025752
025754
025756
025760
025762
025764
025766
025770
025772
025774
025776
026000
026002
0260064
026006
026014
026016
026020
026022

000424
005266
000401
005402
000241
000405
006100
010003
060203
103001
010300
006101
005316
001370
005701
100005
052766
005000
010001
005726
005716

025740

012700

REMAINDER
QUOTIENT

TRAP
BIC
MOV
MOV
MOV
MOV
CLR
MOV
MOV
MOV
BPL
DECB
NEG
NEG
SBC
MOV
BLT
BGT
BIS

#17,(SP)
RO,=(SP)
R1,=(SP)
R2,=(SP)
R3.=(SP)
-($P)
#7.,-(SP)
24(SP) ,R1
22(SP) .RO
1%
3(SP)
RO
R1
RO
20(SP) ,R2
2%
38
#3,14(SP)

18:
000014

MOV
2%:
38:
48:
5%:

68:

000002

NO ERROR

TOP
+2

000003

000002

STACK

v
e

000021
000024
000022

177777

;:AS LARGE AS THE DIVISOR

:;QUOTIENT & REMAINDER ARE ON THE STACK

NO ERROR
ERROR OCCURRED
DIVIDE OVERFLOW OCCURRED
ATTEMPTED TO DIVIDE BY ZERO

eeess

000017

000003

IMPLIES
IMPLIES
“C"=0
“C'=1

‘rf

$DIV:

000020

HIGH DIVIDEND,=(SP)

DIVISOR,=(SP)
PC,SD1V

025652
025652
02565¢
025660
025662
025664
025666
025670
025672
025676
025702
025706
025710
025714
025716
025720
025722
025726
025730
025732

MOV
JSR
RE TURN

SEQ 0117

000014
7%:
8%:

BR
INC
BR
NEG
cLe
BR
ROL
MOV
ADD
BCC
MOV
ROL
DEC
BNE
TST
BPL
BIS
CLR
MOV
ST

ST,

ceesesssss

6%
RO
RO,R3
R2,R3
6$
R3,RO
R1
(SP)
5%
R1
8s
#2,14(SP)
RO
RO,R1
(SP)+
(SP)

eeeeseeess

ALL ZEROS
ALL ZEROS

DIVIDE BY ZERO

—seceoeoeccscesesasess

ALL ONES
ALL ONES

;:PUSH OLD PSW AND PC ON STACK
::STRIP AWAY CONDITION CODES
::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
::SAVE A PLACE FOR SIGNS
::SETUP THE ITERATION COUNTER
::PICKUP THE DIVIDEND

::CHECK THE SIGN
P:KEEP TRACK OF THE SIGN
*:AND NEGATE THE ORIGINAL
: :NUMBER
;:P1CKUP THE DIVISOR
::CHECK THE SIGN
::DIVISOR OF 0 IS A NO-NO
1 ‘Y § TM

#-1,R0

7%
2(SP)
4$
R2

OVERFLOW

..ser REMAINDER TO ALL ONES

CEXIT
::KEEP TRACK OF DIVISORS SIGN
.

..NEGATE THE ORIGINAL NUMBER
::CLEAR "¢
::START FORMING QUOTIENT
::POSITION MSB'S
::COPY
::COMPARE DIVIDEND & DIVISOR
::BR IF DIVIDEND > DIVISOR
:SREMAINDER AFTER THIS LOOP
;;QUOTIENT BIT ENTERS WERE
:DONE?
::BR IF NO
: :OVERFLOW?
::BR_IF NO
S3SET '''
IN RETURN STATUS WORD
$:SET REMAINDER TO ALL 2EROS
::COPY REMAINDER INTO QUOTIENT
S:CLEAR COUNTER FROM STACK

: REMAINDER SIGN CORRECTION NEEDED?

CZRMVA0 RMOS5/3/2 EXT'D DR TST
INTEGER DiVIDE ROUTINE

026026

002004

0260
026034
026036
026040
026042
026044
026050
026054
026056
0260
026062
026064
' 026070

105266
005316
005726
001401
005401
010166
01006¢
012603
012602
012601
012600
012666
000002

026026 oogaoo

}gg 026112

000001

9%:
000020
000016

108:

000002

:
013704
012764
013764

000207

037066
000040
001350

000010
000010

CLRB
DEC
18T
BEQ
NEG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

1(SP)
(SP)
(SP)+
108
w1
R1,20(SP)
RO,16(SP)
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO
(SP)+,2(SP)

;:BR IF NO

s :NEGATE REMAINDER

ssCLEAR SIGN
;;BUT DON'T FORGET QUOTIENT
;sQUOTIENT SIGN CORRECTION NEEDED?
;:BR IF NO
s sNEGATE QUOTIENT
ssRETURN QUOTIENT AND
;;REMAINDER TO USER
:;POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO RI
:;POP STACK INTO RO
;3SETUP TO RETURN CONDITION CODES
: ;RETURN

JSR

CNTCLR: MOV
MOV
MOV

RTS

PC,CNTCLR

:CALL TO ROUTINE

RMADR , R4
;GET RMCS1 BASE ADDRESS
#CLR,RMCS2(R4)
;ISSUE MASSBUS CLEAR AND
CHKDRV,RMCS2 (R&)
:SELECT THE DRIVE

:RETURN

;SET "LPTAVL'' TO THE PROPER STATE.
; LPTAVL = 0 IF NO LINE PRINTER AVAILABLE
; LPTAVL = 1 IF LINE PRINTER IS AVAILABLE

:CALL
3

}22

155
156
157
158
159
160
161
162
163
164
165
166
167

141
142

148 026132
|
149 026136
:
150 026142
|
151 026144
i
152 026146
133 026156

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTER,
sAND DRIVERS, THEN SELECTS THE DRIVE.
:CALL:

138
139
140

145 026114
146 026120
147 026126

BGE

NEG

}gg

132

MACRO v03.01 11-APR=80 15:01:20 PAG E 14~ 20

127
128
129

133 026072
134 026076
135 026104

005037
012737
005037

001324
026144
000006

000004

022626
012737
000207

000006

000004

005777
005237
000401

RETURN

JSR

PC,LP.AVL

LP.AVL:

CLR
MOV
CLR

LPTAVL
#1$ ,ERRVEC
ERRVEC+2

153364
001324

1%:
2%:

ST
INC
BR

CMP
MOV
RTS

aLPS
LPTAVL
2%

:START WITH NO PRINTER AVAIABLE
;SETUP THE TIMEOUT VECTOR

;1S THERE A LINE PRINTER?
:YES==SET AVAILABLE SWITCH

(SP)+,(SP)+
:NO==-POP STACK
WERRVEC+2,ERRVEC
;RESTORE TIMEOUT VECTOR
PC
;RETURN

;THIS ROUTINE WILL DETERMINE IF THERE IS A CLOCK ON THE SYSTEM
:AND IF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK
;"'CLKSTA' WILL INDICATE THE CLOCK TYPE
: 0= NO CLOCK
41z KW 1=-P
=1z KW11=L
.
v
:THIS ROUTINE WILL ALSO SETUP ‘‘TICKMS'' (TIME
sPCR CLOCK TICK iIN MILLISECONDS) AND
‘‘TICKUS
(TIME PER CLOCK TICK IN MICROSECONDS) AS
:PER SW00.
;SW00=0 == 60MZ
:SW00=1 == S0MZ
:CALL

SEQ 0118

CZRMVAD RMOS/3/2 € XT'D DR TST
INTEGER DivIDE ROUTINE

MACRO v03.01

168

}93

171 026156
17% 026160
173 026164
176 026166
175 026170
176 026172
177 026173
178 026%0
179 026206
180 026214
181 026220
182 026222
183 0262;8
184 0262
185 026234
186 026%42
187 026246
188 026250
189 026252
190 026254
191 026256
192 026260
193 026266
196 026270

010146
012701
011146
005011
014146
012711
005037
005777
012737
004737
000414
022626
012711
005777
012737
004737
000401
022626
012621
012621
012601
032737
001407
012737

196 026
197 026306
198 026314

Og
012737
012737

201 026324
202 026324
203 026332
0263
205 026342
206 026350

032737
001014
012777
012777
012777

195 osoigs

;33 026322

207 026356
208

12737

000207

012777

2?8 026364

000207

212 026366
213 026374
214 026376
215 026404
216 026412
2}; 026420

032737
001011
012777
012777
012777
000207

%1! 026366

¢ 10
11-APR-80 15:01:20 PAGE 14=21
JSR

RE TURN

PC,ST.CLK

000100

001314

000020

001342

ST.CLK: MOV
MOV
MOV
CLR
MOV
MOV
(LR
1ST
MOV
JSR
BR
1$:
cMP
MOV
TST
MOV
JSR
B
28:
CMP
3s:
MOV
MOV
MOV
BIT
BEQ
MOV

000016
040432

001342
001344

BR
MOV
MOV

5%
#16,T1CKMS
#16666.,T1CKUS

000040

001314

026422
000300
000001

153134
153130
153126

BIT
BNE
MOV
MOV
MOV

#5W05,C.SWR
1%
#SRVCLK ,aPKV
#300,3PKV+2
#1,3PKB

18:

RTS

1%:

BIT
BNE
MOV
MOV
MOV
RTS

#SW05,C.SWR
1%
#SRVCLK,aLKV
#300,9LKV+2
#100,8LKS
PC

000006

026222
001340
153274
000001
026324
026250
153260
177777
026366

067040

000115

001340

001344

MOV

4$:

5$:
ST.PCLK:

153116

000040

001314

026422
000300
000100

153104
153100
153074

RTS

MOV

ST.LCLK:

SEQ 0119

R1,=(SP)
FERRVEC+2,R1
(R1),=(SP)
(R1)
=(R1),=(SP)
”s,(RY)
CLKSTA
aPK(CS
#1,CLKSTA
PC,ST.PCLK
3%
(SP)+,(SP)+
#2%,(R1)
aLKS
#-1,CLKSTA
PC,ST.LCLK
3$
(SP)+,(SP)+
(SP)+,(R1)+
(SP)+,(R1)+
(SP)+,R1
#5W06,C.SWR
4%
#20,71CkMS

#20000.,T1CKUS

9 15,aPxcs

JLEVEL O
;60 TO 18 ON TIMEOUT
;SET CLOCK STATUS TO NO CLOCK
;1S THERE A KW11=-P?
JYES==SET STATUS T0 KWl1=-pP
:START THE KW11-P

;60 TO EXIT
;CLEAN UP THE STACK
:1F TIMEOUT GO TO 2%
;1S THERE A KW11-L?
:YES== SET STATUS TO KWl1=_L
:START THE KW1l=L
JEXIT
:"LEAN UP THE STACK
sRESTORE THE TIMEOUT VECTOR
;RESTORE R
sS0HZ OR 60K2?
;BRANCH IF 60
:SETUP TIME PER

:TICK FOR SOMZ

:SETUP TIME PER
;TICK FOR 60M2

:RETURN

;ALLOW SOF TWARE TIMEOQUTS?
;NO==BRANCH
;SETUP THE KW11=-P VECTOR
sCOUNT ONE TICK

"'INT.EN."",COUNT DOWN'', 'TMODE 1 (REPEAT)',
:"LINE FREQ'', AND 'RUN"'

:RETURN

;ALLOW SOF TWARE TIMEOUTS?
:NO==BRANCH
;SETUP THE KW11=L VECTOR
:START THE KWll-=L
:RETURN

319
026422 013746 001342
220 026426 004737 043324

SRVCLK: MOV
JSR

fzf

:THIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE PROGRAM |S

251 026432
224

000002

RTI

TICKMS,=(SP)

:SAVE R1
;SAVE AND SETUP TIMEOUT VECTOR

PC,RMTMR

;TIME
PER TICK IN MILLISECONDS
sCOUNT THE ELASPED TIME
:RETURN AFTER INTERRUPT

STARTED OR WHEN THE VALUE OF BITO0 IN 'C.SWR'

IS CHANGED.

MACRO v03.01
s CALL

;

PC,LODFLT

MOV
MOV

RO,=(SP)
R1,=(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK

MOV

R3 =(SP)

::PUSH R3

001332

MOV

18:

CMP
BLO

#PRMO . R1
R1,R2

(ROY+, (R1)+

RO,R2
1%

#PATS,RO
#PATO R

:SELECT TESTS 20 & 21

:DEFAULT PARAMETERS POINTER

:TABLE POINTER
:STOP ADDRESS

:MOVE DEFAULT PARAMETERS INTO
*RUN TIME TABLES ** DONE?
*NO=-BRANCH

:PATO DEFAULTS TO PATTERN 8

002456
002460

000035
000035

002456
002460

BR
MOV
MOV

48
#29.,PRMLMT+24
#29. . PRMLMT+26

: CONTINUE
:SET 'FS' LIMIT TO 29.
:SET 'LS' LIMIT TO 29.

002362

MOV

#PRMPT .R1

;ADDRESS OF

BEQ
BIT
BEQ
MOV

8s
#BIT11,3(R1)+
5%

:BR IF YES
1S *LS' SELECTED AS A VARIABLE IN THIS TEST ?
:BR IF NO

MOV

#12..R3

i
—

OO0OO0O0O0
NO=NW

000037
000037
160000

001314

YN N

MOV
MOV

#DFLT,RO

ON STACK

:SELECT TESTS 0-10, 12-17

000001

2%:

MOV

#3,TSTNMS+2

ON STACK

gooo

004160
003560

MOV
MOV

#176777,1STNMS

::PUSH R2

W=WumlINNOO
=N NONWNRINO WO NN = W bt

NN~

MOV

R2,=(SP)

OO0O0O

026632

001330

SEQ 0120

JSR

RETURN

)]}
176777
000003
002514
003116

14=22

MOV
CMP
BLO
BIT
BNE
MOV
MOV

[=l=lol=ta)
O
— s—

O O VWA WVAWVIWAWWAWL
Na)NNNNNNNNNNNN
-‘8 O 00NV N —

0266%8

LODFLT:

uuu-uwmvuogfl
NININN NS N A
=N
) =

O=0000 00000000000
o
2228888
25°888%
ettt
Pttt
g W =t = \N =2 N ND Ng N = O =R = NRINININD

I AIIIIIIIIINSS
SonoREIFNIFENFRNSHRR
VWAL

241 02

D 10

11-APR=80 15:01:20 PAGE

004220

161000

001450
001450

MOV

38:
48:

5$:

004000
177776

000014
000002

68 :
7%:

;16 BIT MODE ?
:BR IF 18 BIT MODE
:SET 'FS' LIMIT TO 31.
-SET 'LS' LIMIT TO 31.

#-<256.+32.>, TRCKWC

:WORD COUNT FOR A 16 BIT TRACK

#-<256.+30.>, TRCKWC

;WORD COUNT FOR AN 18 BIT TRACK

(R1)

MOV

=2(R1),R2
(R2),=(SP)

ASR

(SP)

BCC

ADD
DEC

#2,R2
R3

BNE

CMP
BLOS

(R2) ,PRMLMT+24
5%

002456
002456

MOV

(RO)+,(R1)+
RO,#PAT9
28
#BIT00,C.SWR
38
#31.,PRMLMT+24
#31. PRMLMT+26

(SP)+

MOV

PRMLMT+24,(R2)

MOV
MOV

(SP)+,R3
(SP)+.R2

MOV
MOV
RTS

(SP)+.R1
(SP)+.RO
PC

PARAMETER POINTER TABLE

:END OF PARAMETER POINTER TABLE ?

: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
TAT
LS’ PARAMETER YET ?

‘BR IF NO
SADJUST

THE STACK

1S *LS' TOO LARGE FOR THE MODE SELECTED ?
:BR IF NO
:RESET VALUE FOR MODE USED

: CONT INUE

::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK
2:POP STACK
*RETURN

INTO R1
INTO RO

sTHIS POUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST.

CZRMVAO RMO5/3/2 EXT D DR TST

LODPRM:

(VL IVT- STV

S WO
WO
N

T Ny

Pt NIV v

NNON
NN
NVNWNSNNO

[=lelelelelelelelelelelel-l=l=lol=l=l==]

FTESTNUM, STSTNM ;LOAD THE
PC.LODPRM

TEST NUMBER

MOV
MOV

R1,-(SP)
R2,=(SP)

ON STACK

001116

CLR
Move

002362

MOv

ASL

002322

MOV

001350

MOV
MOV
ASR

002322

1%:

>%:

002350
000007

000007

036750

002444
000003
002322

001372

002322

5%:

27034
27036
27040
27046

002452
000006

6%:

7%:

R&
PRMPT (R4) ,R1
#PRM,R2

BR
CLR
INC

CMP
BEQ
CMP

ASR
BCC
18T
ASR
BCC
187
ASR
BCC
18T
8R

MOV
SuB

CHKDRV,
R4
(R1)+,(R2)+
PRM
(R1)+,(R2)+

(R2)+
R3

#PAT+2,R2

;:PUSH R1

;sPUSH R2 ON STACK
;sPUSH R3 ON STACK
s sPUSH R& ON STACK
sCLEAR R4
sGET THE TEST NUMBER
sSETUP TO ADDRESS WORDS
JGET THE TEST'S PARAMETER TABLE ADDRESS

sPARAMETER EXECUTION TABLE

sR3 1S USED AS A COUNTER

sGET DRIVE ADDRESS
sLOAD PARAMETER SPECIFIER
;1S THIS PARAMETER USED IN THE TEST ?
sBR IF NOT
sLOAD THE VALUE
s CONT INUE
sCLEAR THE UNUSED PARAMETER LOCATION
sCOUNT THE POSITION IN THE OUTPUT TABLE
sFINISHED ?

;BR IF YES
:DOING TRACK PARAMETERS ?
BR IF NO

1%
lz.DRVTVP(RL)
;1S DEVICE AN RMOS ?
6
:1F SO, OVERLAY FT, LT & IT WITH FT', LT
PRMLMT+12, STRK :GET LAST TRACK FOR AN RM03/2
#3,R3
sADJUST COUNTER
PRM

sCOUNT THE PARAMETER

JBR IF FT' IS NOT USED
sMOVE THE INPUT POINTER
PRM
sCOUNT THE PARAMETER
5%
JBR IF LT' NOT USED
(R1)+
sMOVE THE INPUT POINTER
PRM
sCOUNT THE PARAMETER
1%
;BR IF IT' NOT USED
(R1)+
JMOVE THE INPUT POINTER
1%
JKEEP GOING
PRHLST'ZO.LSTR( JGET LAST TRACK FOR AN RMOS
sBACKUP THE OUTPUT POINTER

4%
(R1)+

sKEEP GOING

2sPOP STACK INTO R4

MOV

;sPOP STACK
;:POP STACK
;sPOP STACK

MOv
MOv
MOV
RTS

001372

STSTNM,
R4

BCC

MOV
ADD

27026

R:.-(SP)
R

BNE
CMPB
BEQ

4%:

R3,=(SP)

CLR

MOv

2%:

SEQ 0121

MOV
JSR
RETURN

MOV
MOV

002322

nrororoNN

N=OOV~NO

VS W =00~

Luuuaeuess

333 558

—-00

IEXRERZE

2
2
2
2
26
26
2 6704
26
26
26
26
26
26
288 026732
289 026736
290 026740
291 026742
292 026744

58838228588 82888238228228=2

NNNNNNNNY 33
S
NNNN
SNN—'-‘-‘
SNONO O
~8Lo 3 L V1 V)

VO ~NO WV~

sCALL

OCO0O0O0O0O0O0O0O0O000O

LSS
ST NT,NT ¥
NNNNNN

INTEGER DivIDE ROUT INE

MACRO v03.01 1i-APR-B0 15:01:20 PAGE 14-23

;sRETURN

INTO R3
INTO R2
INTO R1

sTHIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK

COMMAND

:IN}OIDPB.B’Z AND DPB.C+2, DEPENDING ON THE STATE OF "'CONTROL SWITCHW'

TCALL

JSR

PC,LDCMD

& IT*

CIRMVAD RMOS/3/2 EXT\D DR TST
INTEGER DivIDE

325 027066
326 027074
327 027076
328 027104
329 027112
330 027114
331 027122
g;g 027130

ROUTINE

032737
001007
012737
012737
000406
012737
012737
000207

WACRO VO3.01

000200

001314

000173
000173

045500
045520

000105
000105

045500
045520

334

2%:

BIT
BNE
MOV
MOV
BR
MOV
MOV
RTS

#SW07,C.SWR
1%
#READHD ,DPB.B+2
#READHD ,DPB.C+2
2%
#SEEK,DPB.B+2
#SEEK,DPB.C*2
PC

;D0 EXPLICIT SEEKS?
sYES==BRANCH
;NO==SET UP FOR READ MEADER AND
;DATA COMMAND

;SETUP FOR SEEK COMMAND

;THIS ROUTINE WILL CALL THE RMOS DRIVER AND THEN WAIT ON THE FUNCTION

ggz

:22 COMPLETE. IF AN ERROR OCCURS IT IS REPORTED.

337
338

:
:

gzg

341 027132
362 027136
363 0271642
344 027146
345 027146
346 027152
347 027154
348 027156
349 027164
027172
027200
027206
027212
027216
027220
027222
027226
027226
350 027230
351 027232
352 027236
353 027240
354 027246
355 027250
027250
356 027252
357 027256
ggs 027262

LDCMD:

18:

F 10

11-APR-80 15:01:20 PAGE 14=24

CALL

:
005037
004037
045456
000772
005737
001775
100042
012737
013737
11g737
113737
012746
004737
062607
104041
104042
104043
104044
000240
005737
001004
032737
001005
104045
013746

004737
000200

001222
037654
045474
027252
045470
045467
045466
045474
030526

001222
001364
001370
001366

045572
100000

04 474

0466

045620

FILL "'DPB'' WITH COMMAND INFORMAT]ON
JSR
RO,CALL.A

RE TURN

CALL.A: CLR
JSR
DPB.A
BR
1%:
18T
BEQ
BPL
MOV
MOV
MOVB
MOVB
MOV
JSR
ADD
EMT
EMT
EMT
EMT
NOP
TST
BNE
BIT
BNE
2%:
EMT
3%:
MOV
JSR
48:
RTS

SESCAPE ;NO ESCAPE ADDRESS
RO,RMOS
;:CALL RMOS DRIVER
CALL.A
DPB.A+16
1%
43
#3%,SESCAPE
DPB.A+12,CYL.DS
DPB.A+11,TRK.DS
DPB.A+10,SEC.DS
#OPB.A+16,-(SP)
PC,ERINDX
(SP)+,PC
41
42
43
44

;DONE?
:NO==LOOP
:BRANCH IF NO ERROR
:sESCAPE TO 3% ON ERROR
;CYLINDER
;TRACK
;SECTOR
;STATUS/ERROR INDICATOR ADDRESS
:FORM DISPATCH INDEX
:REPORT PROPER ERROR
;NON=-EXIST DRIVE
:PARITY ERROR
;UNSAFE ERROR
;NON-1/0 ERROR
;7O SYNC THE CALLING SEQ OF ERINDX
RM.REG+RMER]
:ANY DRIVE ERROR
2%
:BRANCH IF SO
#BIT15,RM.REG*RMER?
:BAD SPOT ERROR
48
:BRANCH IF SO

45
DPB.A+16,-(SP)
PC,LOP.CK
RO

;STATUS WORD
;SEE IF LOOP, ABORT, OR CONTINUE
:RETURN

360
361
362

;THIS ROUTINE 1S THE SAME AS ''CALL.A'"" EXCEPT FOR THE DPB USED AND IFf
:THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK,
:AND SECTOR) READ 1S CHECKED FOR VALIDITY,

364
365

:
:

363

sCALL

;

ggg
368 027264
369 027270

005037
004037

001222
(37654

FILL DPB
JSR
RO,CALL.B

RE TURN

CALL.B: CLR
JSR

$ESCAPE ;NO ESCAPE ADDRESS
RO,RMOS
:CALL RMOS DRIVER

SEQ 0122

CZRMVAD RMOS/3 /72 EXT'D DR TST
INTEGER DivVIDE ROUTINE

370 027274
N 027%7
37% 027300
373 027304
376 027306
375 027310
376 027316
0273%6
027332
027340
027344
027350
027352
027354
027356
027360
377 027362
378 027364
379 027370
380 027372
381 027400
382 027402
383 027402
384 027410
385 027412
386 027614
387 027420
gaa 057454
89 027426
390 027434
391 027436
392 027442
393 027444
394 027446
395 027454
396 027456
397 027462
ggg 027464

045476
000772
005737
001775
100047
01§737
013737
113737
113737
012746
004737
062607
104041
104042
104043
104044
000240
005737
001404
032737
001412

032737

001025
104045
013746
004737
00041
12372
001004
004037
045506
000407
032737
001403
004037
001452
000200

MACRO v03.01

045514
0276414
045510
045507
045506
045514
030526

1%:
001222
001364
001370
001366

045572
177677

045572

100000

045622

045514
030466
045500

3%:
000173

4%:

001314

5%:

030746
040000

030664
6%:

400
401
402
403

6 10
14=25

11-APR=80 15:01:20 PAGE

DPB.B
BR
18T
BEQ
BPL
MOV
MOV
MOVB
MOVB
MOV
JSR
ADD
EMT
EMT
EMT
EMT
NOP
ST
BEQ
BIT
BEQ

BIT

SEQ 0123

CALL.B
DPB.B+16
1%
6%
#38,SESCAPE
DPB.B+12,CYL.DS
DPB.B+11.TRK.DS
DPB.B+10,SEC.DS
#OPB.B+16,-(SP)
PC,ERINDX
(SP)+,PC
41
42
43
44

;DONE?
sNO==BRANCH
*BRANCH IF NO ERROR
:;ESCAPE TO 3% ON ERROR
;CYLINDER
:TRACK
;SECTOR
:STATUS/ERROR INDICATOR ADDRESS
;FORM DISPATCH INDEX
sREPORT PROPER ERROR
JNON-EXIST DRIVE
;PARITY ERROR
;UNSAFE ERROR
;NON=1/0 ERROR
;70O SYNC THE CALLING SEQ OF ERINDX: RT,
RM.REG+RMER
;DRIVE ERROR ?
2%
‘BR IF NOT
#°C100,RM.REG+RMER]
:SEE 1F ONLY °"HCE' SET
4%
;BR IF lI 1S

#BIT15,RM.REG+RMER?2

BNE
6%
EMT
45
MOV
DPB.B+16,=-(SP)
JSR
PC,LOP.CK
B&
5%
CMPB
DPB.B+2,#READHD
BNE
5%
JSR
RO,VERIFY
DPB.B+10
BR
6%
BIT
#SW14,C.SWR
BEQ
6%
JSR
RO,STALL
.WORD
STALL!
RTS
RO

:BSE ERROR

:BRANCH IF SO

;STATUS WORD
;SEE IF LOOP, ABORT, OR CONTINUE
;CHECK FOR STALL
;DOING IMPLIED SEEKS?
;NO==BRANCH
;YES==G0 CHECK THE DATA
;ERROR DURING VERIFY
JSTALL?
:NO==BRANCH
JYES==CALL STALL ROUTINE
sSTALL TIME POINTER
:RETURN

;THIS ROUTINE IS THE SAME AS ''CALL.B'' EXCEPT FOR THE DPB USED.
s CALL
3
FILL DPB
3
JSR
RO,CALL.C

282

406 027466
407 027472
408 027476
409 027500
410 027502
411 027506
612 027510
413 027512
414 027520

027526
027534
027542

005037
004037
045516
000772
005737
001775
100047
012737
013737

113737
113737
012746

RETURN

001222
037654

CALL.C:

045534

1%:

CLR
JSR
DPB.C
BR
1ST
BEQ
BPL
MOV
MOV

027616
045530

045527
045526
(045534

001222
001364

001370
001366

MOVB
MOVB
MOV

SESCAPE ;NO ESCAPE ADDRESS
RO,RMOS
;CALL RMOS DRIVER
CALL.C
DPB.C+16

1%
4%
#3%,8ESCAPE
DPB.C+12,CYL.DS

;DONE?

sNO==LOOP
;YES==BRANCH IF NO ERROR
:;ESCAPE 10O 3% ON ERROR
;CYLINDER

DPB.C+11,TRK.DS ;TRACK
DPB.C+10,SEC.DS ;SECTOR
#OPB.C+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS

CZRMVAO RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

027546
02755
027554
027556
027560
027562
615 027564

004737
062607
104041
10404
10404
104044
000240

MACRO v03.01

030526

JSR
ADD
EMT
EMT
EMT
EMT
NOP

416 027566
617 027572
418 027574
419 027602
420 027604
421 027604
422 027612
423 027614
426 027616
425 027622
626 027626
427 027630
428 027636
429 027640
430 027644
431 027646

005737
001404
032737
001412

045572

177677

045572

032737
001025
104045
013746
004737
000410
123727
001004
004037
045526
000407

100000

045620

435 027664
2%9 027666

001452
000200

432 027650
33 027656
«36 027660

032737
001403
004037

045534
030466
045520

2%:

3%:
000173

4$:

001314

S%:

030746
040000

W10

11-APR=B0 15:01:20 PAGE 14=26

030664

6%:

PC,ERINDX
(SP)+,PC
41
.
43
[4A

18T
BEQ
BIT
BEQ

SEQ 0124

sFORM DISPATCH INDEX
JREPORT PROPER ERROR
sNON=-EXIST DRIVE
JPARITY ERROR
JUNSAFE ERRCR
:NON=1/0 ERROR
sTO SYNC THE CALLING SEQ OF ERINDX: RT,.

RM.REG+RMER]
sDRIVE ERROR ?
$
;BR IF NOT
#*C100,RM.REG*RMERT
JSEE IF ONLY
4%
sBR IF IT IS

'HCE®'

SET

BIT
#BIT1S5,RM.REG*RMER2
;BSE ERROR ONLY ?
BNE
6%
:BRANCH IF SO
EMT
45
MOV
DPB.C+16,=-(SP)
:STATUS WORD
JSR
PC,LOP.CK
sSEE IF LOOP, ABORT, OR CONTINUE
BR
5%
C(MPB
DPB.C+2,#READHD ;DOING IMPLIED SEEK?
BNE
5%
JNO==EXIT
JSR
RO,VERIFY
:YES==CHECK THE DATA
DPB.C+10
AR
6%
;ERROR DURING VERIFY
BIT
BEQ
JSR

#SW14,C.SWR
6%
RO,STALL
STALL!

.WORD
RTS

;STALL?
:NO==BRANCH
sYES==CALL STALL ROUTINE
;STALL TIME POINTER

438
439
440

sTHIS ROUTINE IS THE SAME AS ''CALL.A'' EXCEPT FOR THE DPB USED AND
sON AN ERROR LOCATION "ERR.CT'' 1S EXAMINED. IF ERR.CT IS EQUAL TO

4463

FILL DPB

RETURN

441
642

JSERFLG EXIT
:CALL

444

222

447 027670
448 027674
449 027700
450 027704
251 027706

005037
005037
004037
045536
000770

001222
001432
037654

453
454
455
456
457

027710
027714
027716
027720
027724

005737
001775
100402
000137

045554

027724
458 027732
027740
0277646

027754

012737
013737
113737
113737

027760
027764
027766

012746

030032
045550
045547
045546

004737
062607
104041

030526

DRVCAL:

DRVCL1:

030446

045554

001222
001364
001370
001366

1%:

IS TO THE NEXT

TEST.

JSR

RO,DRVCAL

CLR
CLR
JSR
DTADPB
BR

$ESCAPE ;NO ESCAPE ADDRESS
WCEFLG
;CLEAR WRITE CHECK ERROR FLAG
RO,RMOS
;sCALL RMOS DRIVER

TST
BEQ
BM]
JMP

DTADPB+16
DRvCL1
1%
14%

MOV
MOV
MOVB

MOVB

#3% ,SESCAPE
;;ESCAPE TO 3% ON ERROR
DTADPB+12,CYL.DS
;CYLINDER
DTADPB+11,TRK.DS
: TRACK
DTADPB+10,SEC.DS
JSECTOR

JSR
ADD
EMT

PC,ERINDX
(SP)+,PC
41

MOV

DRVCAL

lDIlDPBOl&.-(SP)

s DONE
sNO=-LOOP
:BR IF ERRORS
sNO ERRORS

sSTATUS/ERROR INDICATOR ADDRESS

:FORM DISPATCH INDEX
sREPORT PROPER ERROR
sNON=-EXIST DRIVE

CZRMVAOD RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

027770
027772
027776
459 027776
460 030000
461 030004

10404
10404
104044
000240
005737
001011

463 030014

001405

462 03

464 030016

465 030024
466 030030
030030

032737
012737

000137

104045

MACRO v03.01

045572

100000

045620

177777

001464

030446

122737
001170

000020

470 030046
471 030052
472 030060
473 030062
474 030070
475 030072
476 030100
477 030102
478 030110
479 030114
480 030120
481 030122
482 03012¢
483 030130
484 030132

004737
122737
001164
032737
001560
032777
001154
112737
005037
004037
045536
000240
005737
001775
100043

030466
000151

045540

040000

045566

000020

151054

000161
001222
037654

045540

486 030142

013737

t59 030042

¢85 030134

030150
030156
030164
030170
030174
030176
030200
030202
030204
487 030206
488 030210
489 030214
490 030216
491 030224
492 030226
493 030234
494 030240
030240
495 030242

013746

045554
001222

113737
113737
012746
004737
062607
104041
104042
104043
106044
000240
005737
001011
032737
001405
012737
000137

045547
045546
045554
030526

001370
001366

104045
112737

004037

500 030264
501 030266

001775
100410

045536
000240
005737

38:

48:

030422

045550

045572
045620

177777
030446

001464

000151

045540

037654
045554

RM.REG*RMERT
2%

:PARITY ERROR
:UNSAFE ERROR
*NON=1/0 ERROR
210 SYN THE CALLING SEQ OF THE ERINDX:
:ANY DRIVE ERROR ?
‘REPORT THE 1/0 ERROR IF SO

BEQ

;BRANCH IF NOT

148

:OTHERWISE ,DON'T REPORT THE BSE

JMP

5%:

#BIT15,RM.REG+RMERD
#-1,BASFLG

EMT

MOV

DTADPB+16,=(SP)

CMPB
BNE

#20,$TSTNM
1%

JSR
(MPB
BNE
BIT
BEQ
BIT
BNE
MOVB
CLR
JSR
DTADPB
NOP
TST
BEQ
BPL

DTADPB+16
48
6%

MOV

DTADPB+12,CYL.DS

MOV

001364

100000

',
43
44

MOV

045554

012737

496 030250

497 030254
498 030256
499 030260

001116

SEQ 0125

EMT
EMT
EMT
NOP
ST
BNE

BIT

2%:

467 030032
4«68 030040

110

11-APR=80 15:01:20 PAGE 14-27

:BAD SPOT ERROR ?

:SET BAD SECTOR ENCOUNTER FLAG

;TEST 20?
:NO==BRANCH

:STATUS WORD

PC,LOP.CK
:SEE IF LOOP, ABORT, OR CONTINUE
WWRCKD,DTADPB+2 :DOING A WRITE CHECK?
128
*NO=--BRANCH
#BIT14,RM.REG+10
;1S "WCE''=1?
128
:NO-=BRANCH
#SW04 , ASWR
:INHIBIT WRITES?
128
:YES==BRANCH
WWRITE,DTADPB+2 :SETUP FOR A WRITE
SESCAPE :NO ESCAPE ADDRESS
RO, RMOS
:D0 THE WRITE

#118,8ESCAPE

:DONE?
*NO--L0OP
:YES==BRANCH 1F NO ERROR
::ESCAPE

TO 118 ON ERROR

:CYLINDER

MOVB
MOVE
MOV
JSR
ADD
EMT
EMT
EMT
EMT
NOP
ST
BNE
BIT
BEQ
MOV
JMP

DTADPB+11.TRK.DS
L TRACK
DTADPB+10.SEC.DS
:SECTOR
#DTADPB+16,-(SP)
:STATUS/ERROR INDICATOR ADDRESS
PC,ERINDX
:FORM DISPATCH INDEX
(SP)+,PC
‘REPORT PROPER ERROR
41
*NON=EXIST DRIVE
42
‘PARITY ERROR
43
*UNSAFE ERROR
44
*NON-1/0 ERROR
:T0 SYN THE CALLING SEQ OF ERINDX
RM.REG*RMER1
;ANY DRIVE ERROR ?
5%
*BRANCH IF SO
#BIT15,RM.REG+RMER?
:BAD SOPT ERROR
5%
:BRANCH IF NOT
#-1,BASFLG
:SET BAD SECTOR ENCOUNTER FLAG
14%
EXIT

EMT

6%:

MOVE

45
#WRCKD,DTADPB+2 ;:COMMAND=WRITE CHECK DATA

RO,RMOS

DO THE WRITE CHECK

7%:

DTADPB
NOP
B3

DTADPB+16

:DONE?

JSR

BEQ
BM]

14
9%

:NO==L0OP
SYES=-BRANCH IF ERROR

CZRMVAQ RH05/3/£05¥};2 DR TST
INTEGER DiVIDE

502 030270
503 030276
504 030276
505 030300
506 030304
507 030306
508 030310

004037
045536
000240
005737

001775
100057
012737

509 030316

012737

030332
030340
030346
030352
030356
030360
030362
030364
030366
511 030370
512 030372
5§13 030376
514 030400
515 030406
516 030410
517 0306416
518 030420
030420

113737
113737
012746
004737
062607
104041
104042
104043
104044
000240
005737
001010
032737
001404
012737
0C0413

510 03032¢

519 0;0452
520 030426

521 030432
522 030440

523 030442
524 030446
525 0304564
526 030456
527 030462
ggg 030464

013737

104046
01374
00473
123737
101002
013700
032737
001403
004037
001454
000200

MACRO v03.01 11-APR-80 15:01:20 PAGg 14-28

037654
045554
000001

8%:
001432

030422

001222

045547
045546
045554
030526

001370
001366

045550

JSR
DTADPB
NOP
18T

9%:

045572
100000

045620

177777

001464
108:

045554
030466

RO,RMOS

:D0O A 2ND WRITE CHECK

BEQ
BPL
MOV

DTADPB+16
14
14%
#1 ,WCEFLG

;DONE?
*NO=-=LOOP
JYES==BRANCH IF NO ERROR
:SET THE WRITE CHECK ERROR FLAG

MOV

DTADPB+12,CYL.DS

MOV

001364

11%:

001462

001117

12%:

001346
040000

001314

13$%:
148:

030664
158:

SEQ 0126

#11$,SESCAPE

::ESCAPE TO 118 ON ERROR
;CYLINDER

MOVB
MOVB
MOV
JSR
ADD
EMT
EMT
EMT
EMT
NOP
ST
BNE
BIT
BEQ
MOV
BR

DTADPB+11.TRK.DS
S TRACK
DTADPB+10,SEC.DS
JSECTOR
#DTADPB+16,-(SP)
:STATUS/ERROR INDICATM"R ADDRES:
PC,ERINDX
;FORM DISPATCH INDEX
(SP)+,PC
;REPORT PROPER ERROR
4
sNON=-EXIST DRIVE
42
;PARITY ERROR
43
sUNSAFE ERROR
L4
;NON=1/0 ERROR
:S0 SYN THE CALLING SEQ OF ERINDX:
RM.REG*RMER1
;ANY DRIVE ERROR
108
*BRANCH IF SO
#BIT15,RM.REG+RMER?
;BAD SOPT ERROR ?
108
JBRANCH IF NOT
#-1,BASFLG
;SET BAD SECTOR ENCOUNTER FLAG
148
:OTHERWISE EXIT

EMT

46
DTADPB+16,=(SP)
PC,LOP.CK
ERR.CT,SERFLG
148
BYPASS,.RO
#SW14,C.SWR
158
RO,STALL
STALLZ2
RO

MOV
JSR

CMPB
BHI

MOV
BIT
BEQ
JSR
.WORD
RTS

:STATUS WORD
sSEE IF LOOP, ABORT, OR CONTINUE

;GO TO NEXT TEST?
*NO=-BRANCH

JYES==GET EXIT ADDRESS
sSTALL?
*NO--BRANCH
sYES==CALL STALL ROUTINE
JSTALL TIME POINTER

530
gg;

sTHIS SUBROUTINE CHECK FOR LOOP, ABORT, OR CONTINUE SWITCHES AFTER
:E:RORS 41, 42, &3, 44, 45, AND 46.

533
534
ggg

2
3
3

537 030466
538 030474
539 030476
540 030502

032777
001402
000177
005037

542 030514
543
544 030516
545 030522
g:g 030524

001402

001000
150422
001222

150460

541 030506 032766 072006 000002

548

000137
012916
000207

021020

CALL

MOV
JSR
RETURN

LOP.CK: BIT
BEQ
JMP
18:
CLR

BIT

BEQ
2%:

JMP
MOV
RTS

DTA+16,-(SP)
PC,LOP.CK

;STATUS WORD FROM DPB IN USE

#SW9,aSWR
1%
aSLPERR
$ESCAPE

;LOOP ON ERROR
;BR IF NOT
;START AT THE LOOP ADDRESS
*CLEAR ERROR ESCAPE FLAG

;BR IF DRIVE NOT OFFLINE, UNLOADED, OR
JPERSISTENT UNSAFE OR FATAL MASSBUS PARITY
*TERMINATE DRIVE
;ADJUST RETURN ADDRESS

#BIT14'BIT13'BITI2'BIT10'BIT02'BITO01,2(SP)
$EOP
(SP)+,(SP)
PC

;THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH

:CHECK ERROR TYPE

CZRMVAOD RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

K 10
MACRO vC3.01 11-APR=80 15:01:20 PAGE 14-29

549

;70 THE PROPER ERROR CALL.

225

s INDEX

5§50

THE INDEX IS FORMED BY EXAMINING

:THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB.

§53
554

;
;

STATUS/ERROR

0 BIT14'BIT13!B1T08'BITO!
2 BIT11!BIT10!B1702

4& BIT121BIT04

555

;

ggg

:CALLlo BIT06!<BIT09 & COMMAND=1/0>

556

;

§59
560

6 BITOS!BIT03!<BI1T09 & COMMAND=NON=I/0>

;
;

22}

JSR
JSR

RETURN

;ADDRESS OF STATUS/ERROR INDICATOR
:FORM INDEX

;INDEX IS ON THE STACK

563 030526
564 030530
565 030532
566 030536
567 030542
568 030544
569 030546
§70 030550
571 030552

010046
010146
016600
011037
005001
032710
020402
001037
032710

573 030556
574 030560
575 030562
579 ggsea
57
566
578 030570
§79 030572
580 030574
581 030576
582 030600

001033
032710
050020
1027
032710
000050
001023
032710
000100
001017

BNE
BIT
JMORD
BNE
BIT
.WORD
BNE
BIT
.WORD
BNE

4%
: YES==BRANCH
(PC)+, (RO)
:FORM UNSAFE INDEX (4)?
BIT14!BIT12!B1T04
3s
: YES==BRANCH
(PC)+, (RO)
:FORM NON-1/0 ERROR INDEX (6)?
BITO5!BITO3
2%
: YES==BRANCH
(PC)+, (RO)
SFORM 1/0 ERROR INDEX (10)?
BITO06
1%
; YES==BRANCH

0306064
585 030606
586 030610
587 030616
588 030620
589 030624
030626
591 030634
592 030636
593 030640
594 030642
595 030644
596 030646
597 030650
598 030652
599 030656
600 030660
285 030662

001000
001420
122760
003011
005737
001005
032737
001401
005201
005201
005201
005201
005201
006301
010166
012601
012600
000207

.WORD
BEQ
CMPB
BGT
ST
BNE
BIT
BEQ
INC
INC
INC
INC
INC
ASL
MOV
MOV
MOV
RTS

BIT09
5%
:NO==FORM INDEX OF 0
#150,-16(R0)
(YES==1/0?
2%
:NO==BRANCH
RM.REG*RMER1
:ANY DRIVE ERROR ?
1%
:BRANCH IF SO
#B1T15,RM.REG+RMER?
:BSE ERROR
1%
:BRANCH 1F NOT
R1
:SKIP , NOT REPORT BSE ERROR
R1
: INDEX=10---ERROR=45 OR &6
R1
: INDEX=6==-ERROR=44
R1
: INDEX=4===ERROR=43
R1
: INDEX=2-==ERROR=42
R1
s INDEX=0===ERROR=41
R1,6(SP)
:RETURN INDEX TO USER
(SP)+,R1
:RESTORE R1
(SP)+,RO
:RESTORE RO
PC
:RETURN FROM CALL

§72 030554

583 030602

603
604
605

ERINDX: MOV
MOV
MOV
MOV
CLR
BIT
.WORD
BNE
BIT

#OPB+16,-(SP)
PC,ERINDX

000006
001354

006004

.WORD

032710

BIT
000150

177762

045572
100000

000006

045620

1%
28
3s
4$:
5%:
:

RO,=(SP)
:SAVE RO
R1,=(SP)
:SAVE R1
6(SP),RO
:GET STATUS/ERROR INDICATOR POINTER
(RO),SVSTAT
:SAVE THE STATUS/ERROR INDICATOR
R1
:START INDEX AT ZERO
(PC)+, (RO)
:FORM INDEX OF 0?
BIT13!BIT08!BI1TO1
5%
: YES==BRANCH
(PC)+, (RO)
‘FORM PARITY ERROR OR PORT REQUEST INDEX (2)?

BIT11iBIT10!'B1T02

(PC)+, (RO)

:SOF TWARE TIMEOUT?

:THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC
SAMOUNT OF TIME IF BIT13 OF C.SWR = O OR A RANDOM AMOUNT OF TIME
S1F BIT 13 OF C.SWR = 1.

SEQ 0127

CZRMVAO RMOS/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

MACRO v03.01

606
607
608
609

2}?
612 030664 013046

032737
001406
004737

020000

617 030706
618 030712
619 0307164
620 030722
621 030724
622 030730
623 030732
624 030736
625 030740
626 030742
gg; 030744

042716
005046
162766
103407
012716
005700
005366
001374
000765
022626
000200

177700

013716

001314

636 030750
637 030752
638
030760

639 030766
640 030770
641 030776
662 030776
643 031006
646 031012
645 031020

646 031026
647 031030

648 031034
649 031062

650 031044
651 0310646
652 031056
653 031060
654 031064
655 031072
656 03107¢
657 031100
658 0311064
228 031106
661
662

STALL:

025550

025650
000001

TIME POINTER

MOV
BIT
BEQ
JSR

3(RO)+,=(SP)
#5W13,C.SWR
1%
PC,SRAND

BIC
CLR
SUB
BLO
MOV
ST
DEC
BNE
BR
CMP
RTS

#~C77,(SP)
-(SP)
#1,2(SP)
48
#100., (SP)
RO
0(SP)
3
2%
(SP)+,(SP)+
RO

MOV

000002

000144

18:
28:

38:

000000

48:

629
630
631
632
232
635 030746

SEQ 0128

;STALLY CONTAINS SPECIFIED TIME FOR TESTS O = 7, AND STALL2
:CONTAINS THE TIME POR TESTS 16-21.
sCALL
:
JSR
RO, STALL

613 030666
614 030676
615 030676

616 030702

L 10
11-APR-80 15:01:20 PAGE 14-30

SLONUM, (SP)

:WHERE TO FIND THE STALL TIME

;PICKUP STALL TIME
*USE A RANDOM TIME?
:NO=-BRANCH
:YES==FORM RANDOM NUMBER

SAND USE IT FOR THE STALL TIME

:BUT NEVER > 64 MILLISECONDS
*CLEAR TEMP. LOCATION
*MORE STALL REQUIRED?
:NO=-=BRANCH
:STALL FOR ABOUT 1 MILLISECOND
*NOP TO KILL TIME
: COUNT
:LOOP 1f MORE COUNTS NEEDED
:CLEAN OFF THE STACK
CEXIT

:ROUTINE TO SOF TWARE COMPARE HEADER ON IMPLIED SEEKS.
:CALL
;
JSR
RO,VERIFY
;
ADR POINTER
:ADDRESS OF DPB+10 (SECTOR NUMBER)
:
RE TURN
010146

012001
042737
023761

001003
023711
001441
013737
113737
113737
112137

112137
011137

012737
005740

104012
012737
004037
005037
032777
001404
000177
062700
012601
000200

VERIFY: MOV

150000
052776

052776
000002

053000
052776
053001
053000
001366
001370
001364

001356
001360
001362

031046

001222

000107
027132
001222
001000

045460

150024
000002

1%:

150062

38:
4$:

:SAVE R1

1%
BUFFER+2,(R1)
3s
BUFFER,CYL.RD
BUFFER+3,TRK.RD
BUFFER+2.SEC.RD
(R1)+,SEC.DS

*NO=--BRANCH
:YES=-HOW ABOUT TRACK/SECTOR?
:BRANCH IF GOOD
:SAVE THE EXPECTED AND THE
:RECIEVED CYLINDER, TRACK,:
:AND SECTOR

#2% SESCAPE
-(RO)

;;ESCAPE TO 28 ON ERROR
TMAKE IT TEST PC+4

MOV
BIC
CMP

(RO)+ R
#150000,BUFFER
BUFFER,2(R1)

MOVB
MOV

(R1)+.TRK.DS
(R1),€YL.DS

BNE
CMP
BEQ
MOV
MOVB
MOVB
MOVB

MOV
TST
2%:

R1,=-(SP)

EMT
MOV
JSR
CLR
BIT
BEQ
JMP
ADD
MOV
RTS

12
#RECAL,DPB.A+2
RO,CALL.A
$ESCAPE
#SW9,aswR
4
3SLPERR
#2.RO
(SP)+,R1
RO

:GET ADDRESS OF DPB+10
:STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER
:CYLINDER NUMBER OK?

;LOAD RECALIBRATE ORDER CODE
160 EXECUTE THE COMMAND
:CLEAR ERROR ESCAPE FLAG
:LOOP ON ERROR ?
:BR IF NOT
*RETURN TO ERROR LOOP ADDRESS
s INCREMENT RETURN ADDRESS
*RESTORE R1
CEXIT

:THIS ROUTINE WILL PERFORM A "MASSBUS'' INIT. FOLLOWED BY
*A “RECALIBRATE'* ON THE DRIVE UNDER TEST.

CZRMVAO RMO5/3/2 EXT'D DR TST
INTEGER DiVIDE ROUTINE

m10
MACRO v03.01 11-APR-80 15:01:20 PAGE 14-31

663

sNOTE: THIS ROUTINE DESTROYS R1 AND R4
s CALL
H
JSR
RO,SRCHOO
;D0 A MASSBUS INIT. AND RECAL

664
665
666

669 031110

005001

671 031116
672 031124
673 031130
674 031136
675 031142
676 031146
677 031154
678 031160
679 031164

012777
013704
012764
005037
005037
012737
005037
004037
045536

041740
037066
000040
045546
045550
000107
001222
037654

681 031170

005737

045554

670 031112 005037

680 031166 000440

683 031176

001775
100030

;
|
‘

685 031206
0312164
031222
031230
031234
031240
031242
031244
031246
031250
031252
686 031254
687 031256
688 031260
689 031264
23? 031270

013737
113737
113737
012746
004737
2607
104041
104042
104043
104044
104045
005720
000404
005064
005064
000200

682 031174

684 031200

012737

177776

031254

045550
045547
045546
045554
030526

CLR

005744

MOV
MOV
MOV
CLR
CLR
MOV
CLR
JSR
DTADPB

000010
045540

1%:

TST

BEQ

MOV

001364
001370
001366

2%:
000006
000034

BPL

001222

3%:

48:

sRETURN HERE IF NO ERROR

RETURN2

SRCHO0: CLR

gg%
232 031272

RETURN]

MOV
MOVEB
MOVB
MOV
JSR
ADD
EMT
EMT
EMT
EMT
EMT
TST
BR
CLR
CLR
RTS

:RETURN HERE ON ERROR
R1

;INCASE OF ERROR (TYPTIM)

#1SR,aRMVEC
RMADR,R&
#CLR,RMCS2(R4)
DTADPB+10
DTADPB+12
#RECAL ,DTADPB+2
$ESCAPE
RO, RMOS

;SETUP INTERRUPT VECTOR
;PICKUP ADDRESS OF RM(CS!1
:MASSBUS INIT.
sTRACK=0; SECTOR=0
:CYLINDER =0
:COMMAND = RECALIBRATE
:NO ESCAPE ADDRESS
:CALL THE DRIVER
;DPB POINTER

DTADPB+16

#2%,SESCAPE

:QUEVE
IS FULL
;WAIT ON DONE

;TAKE NORMAL EXIT IF NO ERROR
::ESCAPE TO 2$ ON ERROR

DTADPB+12,CYL.DS
;CYLINDER
DTADPB+11,TRK.DS
: TRACK
DTADPB+10,SEC.DS
JSECTOR
#DTADPB+16,=(SP)
JSTATUS/ERROR INDICATOR ADDRESS
PC,ERINDX
:FORM DISPATCH INDEX
(SP)+,PC
;REPORT PROPER ERROR
41
sNON=-EXIST DRIVE
42
;PARITY ERROR
43
JUNSAFE ERROR
L4
;NON=1/0 ERROR
45
:1/0 ERROR
(RO)+
;ADJUST FOR ERROR EXIT
L%
;60 TO (HE EXIT
RMDA(R4)
;TRACK AND SECTOR = 0
RMDC (R4)
SCYLINDER = 0
RO
*RETURN

sTHIS 1S AN RT] WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST
000002

DORTI:

RTI

;RETURN FROM INTERRUPT

ggg

:E:IS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE ''TIMING ROUTI ES

698

;
|
g
,
|
|

701 0312764
702 031276
703 031302
704 031304
705 031310
706 031312

104412
012700
005020
ozoo;r
103774
012710

:
i

708 031324
709 031332

012737
104413

;

sCALL

707 031316

012737

001374

001430
052776

077777

001374

001412

JSR

RETURN

STRTMR: SAVREG
MOV
1%:
CLR
CMP
BLO
MOV

MOV

MOV
RESREG

PC,STRTMR

#TIM.UP,RO
(RO)+
RO,#TIM.PT
1%
#BUFFER, (RO)

:SAVE RO-RS
SSTART AT TIM.UP
JCLEAR THE TIME TABLES
:DONE?
:NO=-=BRANCH
sSETUP POINTER

#CBIT1S, TIM.UP :SET MINIMUM TIME TO MAXIMUM
#*CBIT1S5,TIM.DN ;POSITIVE NUMBER
;RESTORE RO-=RS

SEQ 0129

CZRMVAO RMO5/3/2 EXT'D DR TST
- INTEGER DivIDE ROUTINE

sCALL

IR WO
Y
N NN NI N =

COUNT:

sRETURN

#TP,R3
FLAG,RS

JSR

PC,COUNT

MOV
TST

#TIM.UP,R2
RS
1%
#TIM.DN,R2

;PICKUP THE "'UP'' POINTER

:NO==BRANCH

BEQ

1$:

177776
000004

150100
150072
150064

2%:
3%:

177776
000006

6S:

5%:

150050

061326

001430

150030
000002

147750
001430

748
749
750
751
752

753
754
755
756
757
758 031470
759 031472
760 031500
761 031502
762 031506
763 031512
764 031516
765 031520
766 031522

MOV
MoV

RETURN

NNIRNIRNININ
=

730 031374

731 031376
732 031400
733 031402
734 031406
735 031410
736 031416
37 031424
738 031426
739 031430
740 031432
741 031436
742 031440
7643 031442
744 031450
745 031452
746 031460
747 031466

RTS

SEQ 0130

;:THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND
sMAINTAIN THE MINIMUM AND MAXIMUM TIMES.
sNOTE: THIS ROUTINE DESTROYS R2

NNN

728 031360
729 031366

N 10

11-APR-80 15:01:20 PAGE 14-32

000207

OO —=0ONO
N —=ON =00 —
OOON—-=ONOO
ONN==NOWVWN~N
NNNSNNOWBWN
OWwW~N
W=V =OC OO0
ONOOOO

710 031334
7
72
73
714
715
716
n7
718
719
720
721
722 031336
723 031342
724 031344
725 031346
726 031352
727 031356

MACRC v03.01

MOV

CMP
BGE

APKC, (R2)+

BGE
inC

MOV
CMP

TST
CMP
BLE

MOV

CMP
BLE

(R2)
(R2)+
aPKC, (R2)+
3]
aPKC,=2(R2)
aPKC,6(R3)

INC

(R2)
(R2)+
aPKC,(R2)+
(R2)+
(R2)

BLOS

INC
57
ADD
ADC

CMP

6%:

aPKC,=2(R2)
aPKC,4(R3)

MOV
ADD
RTS

sPARAMETER POINTER

;FLAG=0=COUNT UP

:FLAG==1=COUNT DOWN

sUSE IT?
: YES==BRANCH
;NO==PICKUP ''DOWN'' POINTER
;LESS THAN PREVIOUS LOW?
sYES==SAVE IT
sLESS THAN THE LOW LIMIT?
:NO==BRANCH
sYES==COUNT IT
sADVANCE THE POINTER
:GREATER THAN PREVIOUS HIGH?
:NO=--BRANCH
:YES==SAVE IT
;GREATER THAN THE HIGH LIMIT?
:NO-=BRANCH
s YES==COUNT IT

sADVANCE

sCOUNT THIS READING

#BUFFER+<4r 822.>,TIM.PT

aPKC,aTIM.PT
#2,TIM.PT

THE POINTEFR

sADD THIS COUNT TO THE .TOTAL
;SAVE THIS CUUNT?

:NO=--BRANCH
sYES=-WELL SAVE IT THEN
sADVANCE THE POINTER
sRETURN

sTHIS ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS
s CALL

RO,SPTYP
JSR
TABLE ADDRESS

S TABLE: .WORD
.WORD
.WORD

012002
032777
001035
104401
104401

012246

000100

147454

SPTYP:

ASCIZ MESSAGE POINTER
MIN VALUE
MAX VALUE

(RO)+,R2
#5W06,aSWR
3%

+SCRLF
LOCRLF

001231
001231
031520

:THE TABLE ADDRESS
sALLOW PRINT

JEXIT IF NOT

(R2)+,1%

1%:

(R2)+,-(SP)

:LOAD. MIN VALUE

== U0

NN%OMW‘“
SN mw
OS
SO
O’NON&NOJ‘

CONO VSN0

-~ NNNNNNNNNN
-~ NNNNNNNNO

VIV

/2 EXT'D DR TST
ROUTINE

001410
106401
004737
004737
106401
104401

01124
004737
004737
106401
104401

000200

MACRO v03.01

046500

025260
025510

046522
046506

2%:

025260
025510

046522
001231

B 1

11-APR-80 15:01:20 PAGE 14-33

SEQ 0131

BEQ
TYPE
JSR
JSR

2%
,MSGMIN
PC,$5B2D
PC.SSUPRS

MOV
JSR
JSR

(R2),=(SP)
PC,$$82D
PC.SSUPRS

*MAXMUM VALUE
;
;

RTS

TYPE
TYPE

,MSGOUS
,MSGMAX

,MSGOUS
.SCRLf

:SKIF IF MIN VALUE 1S 0

:CONVERT TO DECIMAL
STYPE IT

0 US
;

;
SCR=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
:THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES.
:NOTE: THIS ROUTINE DESTROYS R2-RS
:
;
:

JSR

TABLE

RO,TYPTINM

RETURN

1
~N

SRR
R o
&
gONObO

D oD e

oocoocoooo

b od e oD
B e

IS
°l-8~0

D md
b el
B

——

b aoih

o
NNy
—

OO0V O0O0O0VO0O0CO0O0O0O0O0OCO0O0O0O0O0O0O00O
L Lt L U U o L L L L U U U A
L U A
N

0o 0o Co Oo o

et
2 - O —a

—

fe]

31343 10

799 031606

005724
001421
104401
016469

004737

004737
106401
010>49
004737
004737

000100
031630

001374
000014
046500

025260
025510
046522
57
177776

025260

825510
046527
025260
025510

18:
2%:

:POINT TO THE PROPER TASLE

MSGADR1

:ADDRESS OF ASCIZ MESSAGE NUMBER 1

MIN.ALLOWED
MAX . ALLOWED

CMINIMUM TIME ALLOWED
*MAXIMUM TIME ALLOWED

MSGADR?2

012002
032777
001160
012237
012205
012203
011202
012704
104401
000000
005764
001542
106401
012446
004737
004737
106401

;60 REPORT THE TIMES

MOV
BIT
BNE
MOV
MOV
MOV
MOV
MOV
TYPE
.WMORD
3]
BEQ
TYPE
MOV
JSR
JSR
TYPE

(RO)+,R2
#5W06 . aSWR
9%
(R2)+,2%
(R2)+.RS
(R2)+.R3
(R2) ,R2
#TIM.UP,RG

ST
BEQ
TYPE
MOV

O
14 (R&)
8s
,MSGMIN
(R&)+,=(SP)
PC,$5820
PC.$SUPRS
,MSGOUS
(R4)+
3%
,BLNKS2
<2(R4),~(SP)

JSR
TYPE
MOV
JSR
JSR

PC.$SUPRS
,MBELOW
R3,=(SP)
PC.$SB2D
PC.$SUPRS

JSR

PC,$582D

*ADDRESS OF ASCIZ MESSAGE NUMBER 2
:PICKUP THE TABLE POINTER
SINHIBIT TIME REPORTS?
:YES=-BRANCH
*ADDRESS OF MESSAGE NUMBER 1
:ADDRESS OF MESSAGE NUMBER 2
‘PICKUP THE LOW LIMIT
SAND THE HIGH LIMIT
‘PARAMETER POINTER
STYPE THE MESSAGE
TASCIZ MESSAGE POINTER GOES HERE
:DID ANY COUNTS OCCUR?
*NO--BRANCH
STMINS
PPUT (R4)+ ON THE STACK
:CHANGE TO DECIMAL ASCIZ
:TYPE WITHOUT LEADING ZEROS
20 us'

*ANY SEEKS BELOW THE LOW LIMIT
*NO--BRANCH
:TYPE 2 SPACES
:PUT =2(R4) ON THE STACK

:CHANGE TC DECIMAL ASCIZ

:TYPE WITHOUT LEADING Z2EROS
S'BELOW THE MINIMUM OF
‘PUT R3 ON THE STACK
:CHANGE TO DECIMAL ASCIZ
*TYPE WITHOUT LEADING ZEROS

MACRO v03.01

Zr~

004737

4737
104401
104401
016446
004737
004737
022737
001407
022737
001403
104401
000402
104401
010537
001404
005005
000631
104401
000200

O
o

104401
104401
0\2469
00473
004737
104401
005724
001421
104401
01646?
00473
004737
104401
010246
004737
004737
104401
104401
012446
012446
012446
004737
006126
100001
005216

=0
nNOO

3%:

(N
11-APR-80 15:01:20 PAGE 14-34
TYPE

TYPE

(RG)+,=(SP)
PC,$5820
PC,SSUPRS

BEQ

«f

JSR
JSR
TYPE
MOV
JSR
JSR

PC,$582D

OO0
SO0

TYPE
MOV

4%:

TYPE

MOV
MOV
MOV

JSR

0252
0255
0465
0466
1777

5%:

001116

000014

001116

066625

046605

031630

066642

ROL
BPL
INC

JSR
JSR
TYPE

TYPE
MOV

2
0255
000012

6%:
7%:

8%:
9%:

.MSGOUS
. ASGMAX

MOV
JSR
JSR

TYPE
187

818 031726
819 0317
820 0317
0317
0;174
821 031746
822 031752
823 031754
824 031756
825 031762
0317
031772
826 031776
827 032002
032004
032010
828 032014
829 032020
830 0320264
831 032026
832 03.030
833 032032
834 032036
835 032040
836 032042
837 032044
032044
8;3050
838
032054
839 032060
840 032064
032070
032074
841 032100
842 032106
843 032110
844 032116
845 032120
846 032126
847 03%156
848 032132
849 032132
850 032136
85! 032140
852 032142
853 032144
854 032150
855
856
857
858
859
860
361
86
863 032152
864 032156

= O NN
= O
OO NNOO

—

MVAD RMOS /3/2 EXT'D DR TST
EGER DivIDE ROUTINE

JSR
JSR
CMP
BEQ
CMP
BEQ
TYPE
BR

TYPE

MOV
BEQ
CLR
BR

TYPE
RTS

MSGOUS

SEQ 0132

D MAX="
sPUT

(R&)+ ON THE STACK

sCHANGE TO DECIMAL ASCIZ

sTYPE WITHOUT LEADING ZEROS

(RG)+

sANY SEEKS ABOVE THE HIGM LIMIT

.BLNKS?2
=2(R4) ,=(SP)

:TYPE s SPACES

PC.SSUPRS

;TYPE WITHOUT LEADING ZEROS

,MABOVE

R2,=-(SP)
PC.$SB2D
PC.SSUPRS

sNO==BRANCH

;PUT =2(R&) ON THE STACK
sCHANGE TO DECIMAL ASCi’

:"'ABOVE THE MAXIMUM OF''
;PUT RZ ON THE STACK

sCHANGE TO DECIMAL ASCIZ

;:TYPE WITHOUT LEADING ZEROS

,M$GOUS
"MSGAVG

:OIAVG='.

(SP)

;1S THE REMAINDER OVER HALF?
:NO=-BRANCH
: YES==ROUND UP

PC,$5B2D
PC,S$SUPRS

sTYPE WITHOUT

=2(R&) ,=(SP)

;TYPE 2 SPACES
;PUT =2(R4) ON THE STACK

(R&)+,=(SP)
(R&)+.=(SP)
(R4)+.=(SP)
PC,$D1V
(SP)+

MSGOUS
.BLNKS2

:FORM THE AVERAGE

;CHANGE TO DECIMAL ASCIZ

LEADING ZEROS

PC,$S82D

sCHANGE TO DECIMAL ASCIZ

llé.t!SINfl

;TEST 12 ?

PC $SUPRS

6
#14,8TSTNM
6%

:TYPE WITHOUT LEADING ZEROS

:BRANCH IF SO

;TEST 14 ?
:BRANCH IF SO

MSGNUM

;TYPE "'SEEKS TIMED''

,MSGSEA

;TYPE "'SEARCH TIME"

R5,2%

sNEXT MESSAGE POINTER
:1F NONE EXIT

9$
RS
1

.MSGNON

:TYPE

;NO MORE THAN 2

JEXIT

sTHIS SUBROUTINE WILL INCREMENT THE TRACK
;NUMBER (R2) BY THE AMOUNT SPECIFIED BY "IT'.
sCALL

:
:
:
020237
001410

002336

RO, INCTRK
JSR
RETURNI
RETURN2

INCTRK: CMP

BEQ

R2,LT

:TRACK NUMBER GREATER THAN LT15
sTRACK NUMBER INCREMENTED
sLAST TRACK COMPLETED?
JYES==EXIT

CZRMVAO RMOS/3 /2 EXT'D DR TST
INTEGER DiVIDE ROUTINE

MACRO v03.01

D1
11-APR-80 15:01:20 PAGE 14-35

865 032160

063702

002340

ADD

867 032170
868 032172

oogao%
013702

002336

BLE
MOV

g;? 032200

000200

866 032164 83022; 002336
869 032176

005720

CMP

1%:

28:

872

873
874
875
876
877

:
020137
001410
063701
020137
003402
013701
005720
000200

002330

002332
002330
002330

;
;
:
113766
005366
100003
013766
000207

045564
000002

000002

002456

000002

901
902
903
904
905
38?

*ADJUST FOR RETURN 2

*RETURN

;CYLINDER NUMBER INCREMENTED

R1,LC
2%
1C,R1
R1,1C
1%
Le. w1
(RO)+
RO

;LAST CYLINDER COMPLETED?
SYES=<=EXIT
:NO==UPDATE CYLINDER
:CYLINDER TO BIG?
JNO==EXIT
sYES==SET CYLINDER TO LAST CYLINDER
:ADJUST FOR RETURN 2
*RETURN

CLR
JSR
RETURN

DECSEC: MOVB
DEC
BPL
MOV
18:
RTS

-(SP)
PC,DECSEC

:CLEAR THE STACK
:SUBROUTINE ENTRY

RM.REG+RMDA,2(SP)
:PUT THE SECTOR ADDPESS 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 IS USED TO FILL THE DATA BUFFER
:WITH ADDRESSES FROM O TO 31 WITH EACH ADDRESS
:BEING STORED IN 256 CONSECUTIVE LOCATIONS
s CALL
:
JSR
PC,FILBUF
:
RETURN

908 032256
909 032260
910 032262

104412
005000
012701

913
032274
914 032276
915 032
916 032302
917 032306
918 032310
353 032312

oossog
00337
005200
023700
103367
104413
000207

921

:NO==EXIT
:YES==SET TRACK TO LAST TRACK

;THIS ROUTINE DECREMENTS THE SECTOR ADDRESS.
; CALL

891
89
gg‘

911 032266
91; 032272

(RO)+

RETURN2

INCCYL: CMP
BEQ
ADD
CMP
BLE
MOV
18:
E3]
28:
RTS

889
890

895 032232
896 032240
897 032244
898 032246
ggg 032254

1%
LT, R2

:NO=-=UPDATE TRACK

:TRACK T0 BI16?

;THIS SUBROUTINE WILL INCREMENT THE CYLINDER
;NUMBER (R1) BY THE AMOUNT SPECIFIED BY 'IC'.
sCALL
;
JSR
RO, INCCYL
;
RE TURN1
:CYLINDER NUMBER GREATER THAN LC15

g;g

880 032202
881 032206
882 032210
883 032214
884 032220
885 032222
886 032226
gg; 032230

RTS

11,82

R2,LT

012702
010021

052776

000400

002456

FILBUF: SAVREG
CLR
MOV

18:
28:

MOV
MOV

DEC
BGT
INC
CMP
BHIS
RESREG
RTS

RO
#BUFFER,R1

#256. RS
RO, (R1)+

R2
2%
RO
PRMLMT+24,R0
1%
PC

:SAVE RO - RS
:FIRST DISK ADDRESS
:START FILLING MERE

:D0 256 WORDS
:STORE

*MORE?
:YES==BRANCH
:NO=-=UPDATE DISK ADDRESS
:DONE?
:NO==BRANCH
:RESTORE RO - RS
*RETURN

:THIS ROUTINE WILL CLEAR THE BUFFER BY

SEQ 0133

CZRMVAQ RMO5/3/2 EXT'D DR TST
INTEGER DivVIDE ROUTINE

92
92
924

9%9 032322
930 oszsge
931 032332
932 032334
933 032336
934 032340
935 032342
936 032344
937 032346
938 032350
939 032352
940 032354
941 032356
32% 032360

SEQ 0134

SSETTING LACH WORD TO '"177400'".
sCALL
3
JSR
RO, CLRBUF

g%g
927 032314
928 03%316

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

104412
012701
01270§
012703
010122
010122
010122
010122
010122
010122
010122
010122
020203
103766
104413
000200

177400
052776
112776

RE TURN

CLRBUF: SAVREG
MOV

1%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
cMP
BLO
RESREG
RTS

:SAVE RO - RS
#177400,R1
JWORD TO FILL BUFFER WITH
#BUFFER,R2
JFIRST ADDRESS OF BUFFER
FPBUFFER+<512.¢32.>,R3
;LAST ADDRESS+2 OF BUFFER
R1,(R2)+
sFILL WORDS 1, 9,...249,...5625
R1,(R2)+
;FILL WORDS 5.10....250....5626
R1,(R2)+
sFILL WORDS
3,11,...251,...5627
R1,(R2)+
;FILL WORDS 4,12,. .25%.
.5628
R1,(R2)+
sFILL WORDS 5,13,...253,...5629
R1,(R2)+
sFILL WORDS 6,14,...254,...5630
R1,(R2)+
sFILL WORDS 7,15,...255....5631
R1,(R2)+
;FILL WORDS B8,16,...256,...5632
R2,.R3
;DONE?
1%
;NO==BRANCH
;RESTORE RO = RS
RO
:RETURN FROM CALL

944

;THIS ROUTINE

823

RETURN

CKSCTR:

SAVREG
]
CLR
MOV
CLR
MOV
MOV

44 ,SP
R1
#BUFFER, (SP)
2(SP)
#16.,R2
(SP) ,R3

:SAVE RO - RS
;RESERVE TEMP. STORAGE AREA
;FIRST SECTOR
;FIRST ADDRESS OF DATA BUFFER
:NO ERRORS
:LOOP COUNT (16%16=256)
:GET 1ST ADDRESS OF THIS SECTORS DATA

CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE

R1,(R3)+
7%
R1,(R3)+
14 )
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%

:WORD 1
;BRANCH 1F
:WORD 2
;BRANCH IF
:WORD 3
:BRANCH 1F
:WORD &
;BRANCH IF
:WORD §
:BRANCH 1F
;WORD 6
:BRANCH IF
:WORD 7
:BRANCH 1F
:WORD 8
;BRANCH 1F
;WORD 9
:BRANCH 1F
:WORD 10
:BRANCH 1F

945
96
947
948

951 032362
952 032364
953 032370
954 032372
955 032376
956 032402
957 032406
958 032410

962 032410
032412
032414
032416
032420
032422
032424
032426
032430
032432
032434
032436
032440
032442
032444
0324646
032450
032452
032454
032456

1S USED TO CHECK THE DATA BUFFER

;FOR ADDRESSES O THROUGH 31 WITH EACH ADDRESS
JBEING STORED IN 256 CONSECUTIE LOCATIONS
:CALL
:
JSR
RO,CKSCTR

104412
162706
005001
012716
005066
012702
011603

020123
001063
020123
001061
020123
001057
020123
001055
020123
001053
020123
001051
020123
001047
020123
001045
020123
001043
020123
001041

000004

052776
000002
000020

1%:

2%:

BAD
BAD

BAD
BAD
BAD
BAD

BAD
BAD

CZRMVAD RMOS5/3/72 EXT'D DR TST
INTEGER DivIDE ROUTINE

032460

020123

032464
032466
032470
032472
0326474
032476
032500
032502
032504
032506
963 032510
964 032512
965 032514
966 032520
967 032522
968 032526
969 032530
970 032534
971 032536

020123
001035
0201%3
001033
020123
001031
020123
001027
020123
001025
005302
001336
062716
005201
023701
103325
005766
001406
123737

973
974
975
976
977
978

013700
062706
104413
000200
010304
161604

MACRO v03.01

0%2662 0010%7

972 032544

979

032546
032552
032556
032560
032562
8;5566

032566

101002

006204
042705
001002
012705
006305
062705
016337
005766
001015
013737

991
992
993
994
995

012737
104021
105166
000404

032634

032642
032650
032652
032656
032660

032660
996 032666
997 032670
998 032676
999 032700

1000 032706
1001 035710
1002 032716

1003 032720
1004 0327§6
}882 032730

201000

3s:

002456

000002
001462

4$:
001117

001346
000004

5¢:
6% :
7%:

113737

012737
104022
032777
001323
032777
001310
123737
101713

032777
001¢72
000115

000040
032410

8%:

177776

001142

045550

001364

032652

001222

000002

045547

001370

000002

032670

001222

001000

146256

000002

146246

001462

001117

000040

146226

108:

11%:

SEQ 0135

:WORD 11

CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE
DEC
BNE
ADD
INC
CMP
BHIS
ST
BEQ
CMPB

R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R2
2%
#512.,(5P)
R1
PRMLMT+24 ,R1
1%
2(SP)
6%
ERR.CT,SERFLG

:WORD 12
:BRANCH IF BAD
;WORD 13
sBRANCH IF BAD
:WORD 14
sBRANCH IF BAD
;WORD 15
;BRANCH IF BAD
:WORD 16
;BRANCH IF BAD
sFINISHED WITH THIS SECTORS DATA?
;NO==BRANCH
:YES==FIRST ADDRESS OF NEXT SECTOR
sMOVE TO NEXT SECTOR
;DONE?
:NO=-=BRANCH
;ERROR OCCUR?
:NO=-=BRANCH
;MAX. ERROR OCCURRED?

MOV
ADD
RESREG
RTS
MOV
SuB

BYPASS,RO
#4,SP

:TAKE ERROR EXIT
;FREE TEMP. AREA
;RESTORE RO = RS
;RETURN FROM CALL
:FORM WORD NUMBER AND
sADDRESS TO CONTINUE FROM

ASR
BIC
BNE
MOV
ASL
ADD
MOV
18T
BNE
MOV

R4
:WORD NUMBER
#*C37,RS
8%
:BRANCH IF NOT A MULTIPLE OF
#40,RS
;SET TO WORD 16
RS
#2% ,RS
:ADDRESS
-2(R3),$BDDAT
:SAVE BAD DATA
2(SP)
:FIRST ERROR?
108
:NO=-=BRANCH
DTADPB+12,CYL.DS
:CYLINDER NUMBER

MOV
EMT
COMB
Hi

#9% ,$ESCAPE
21
2(SP)
1%

:;ESCAPE T0O 9% ON ERROR

#118,8ESCAPE

;:ESCAPE TO 11% ON ERROR

#5W09,3S5WR
5%
#5W01,3SWR
31
ERR.CT,$ERFLG
5%
#SW.3,aSWR
3%
(RS)

;LOOP ON ERROR?
JYES
:STOP DATA COMPARE?
:YES==BRANCH
;MAX. ERRORS?
;YES==-BRANCH
;REPORT ONLY 1ST ERROR PER SECTOR?
;YES==BRANCH

BHI

MOVB

9s:

14-37

R1,(R3)+

MOV

177740

cMP

BNE

010405

980 032570
981 032572
982 032576
983 032600
984 032604
985 032606
86 032612
987 032620
988 032624
989 032626

11-APR-80 15:01:20 PAGE

MOV
EMT
BIT
BNE
BIT

BNE
CMPB
BLOS

BIT
BNE
JMP

RO
R3,R4
(SP) R4

R&,RS

DTADPB+11,TRK.DS

sBRANCH IF BAD

;NO==BRANCH

:TRACK NUMBER

;SET ERROR SWITCH

052776

045542

003520

NNNND — —

MOV

JSR

SETBUF: SAVREG

1%:

s b o b b b b b d s

s B (NN

— D

=t d=l ]l elelelelelelelelelelelelele
To0
QOO O o
e
i i
D el e D il il il i it et
=l b ata A AN LT N T ST NT NT NT 8T N7 NT NTNT NT 8T 8T, YV NP 5
Rl
i
L
L
L
O o
L
L
e T P TV e e B
L
O —=VONNNNNNNNNDNNDNNDNDNDNNO
OO —

SFREFERNSRSKR

SEQ 0136

16 WORDS OF

PC,SETBUF

MOV

#BUFFER,R1

MOV

PAT.PT(Rb).RS

MOV
MOV
MOV
MOV
MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV

INDEX

TO RO

sSAVE RO - RS

‘FIRST ADDRESS
sWORD COUNT

(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+

sMOVE
sMOVE
sMOVE
sMOVE
sMOVE

WORD
WORD
WORD
WORD
WORD

1
2
3
&
S

(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+

sMOVE
sMOVE
sMOVE
sMOVE
sMOVE

WORD
WORD
WORD
WORD
WORD

7 INTO DATA BUFFER
8 INTO DATA BUFFER
9 INTO DATA BUFFER
10 INTO DATA BUFFER
11 INTO DATA BUFFER

(R3)¢+,(R1)+

(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+

ADD

#16.,R2 ;DONE?

RESREG
RTS

BNE

sPATTERN NUMBER

DTADPB+4& ,R2

MOV
MOV
MOV

MOV
MOV

000020

#NX,RO

THE

(R3)+,(R1)+
(R3)+,(R1)+

sPICKUP PATTERN POINTER
INTO
INTO
INTO
INTO
INTO

DATA
DATA
DATA
DATA
DATA

BUFFER
BUFFER
BUFFER
BUFFER
BUFFER

JMOVE WORD 6 INTO DATA BUFFER

sMOVE WORD 12 INTO DATA BUFFER
sMOVE WORD 13 INTO DATA BUFFER
JMOVE WORD 14 INTO DATA BUFFER

sMOVE WORD 15 INTO DATA BUFFER
sMOVE WORD 16 INTO DATA BUFFER
sNO==BRANCH
JRESTORE
sRETURN

RO - RS

sTHIS ROUTINE COMPARES A 16 WORD DATA PATTERN
;€2A1NST THE DATA BUFFER
sCALL
:

:
:
OoONNS

5000000000000 "0
wViiano
&

edoi=l=lelelelelelelelelelelelelelelelelelelele)

W=
OOV NOWVHWNN—=O

NOOSSNOOo NN

o-v

N NN NN

gg\fl\h\fl\fi

NN =N =N =N == N =)
WO ULVIOWO
WO WO WO W
PN
SN0 &~ s
S
=t Pt O = O =N — P

6 N
11-APR-80 15:01:20 PAGE 14-38

;DESIRED PATTERN INTO THE DATA BUFFER.
s CALL

D
-

MACRO v03.01

;THIS ROUTINE WILL MOVE THE

il cld

elelelelelelelelelelolelelelelelele]

ddd-‘—‘-‘_‘—lo

e Yo JV .V A VT NENY - IV, T,

[eleolelelelelelele]

DR TST

052776
045542

003520

DATCMP:

;::

MOV

JSR
RETURN
SAVREG

#NX RO

PC,DATCMP

MOV
MOV

#BUFFER,R1
DTADPB+4 ,R2

MOV

PAT.PT(RO),R3

SuUB
BNE
SuB
BNE
SuB
BNE

(R3)+,(R1)+
4%
(R3)+,(R1)+
43
(R3)+,(R1)+
4%

CLR

SuUB
BNE
SuB
BNE
SUB
BNE
SuB

-(SP)

(R3)+,(R1)+
6%
(R3)+,(R1)+
6%
(R3)+,(R1)¢
4%
(R3)+,(R1)+

;PATTERN NUMBER

INDEX

;SAVE RO - RS

TO RO

sFIRST ADDRESS OF BUFFER
sWORD COUNT
sNO ERROR

sPATTERN POINTER
;CHECK WORD 1
:BRANCH IF DIFFERENT
:CHECK WORD 2
JBRANCH 1F DIFFERENT
sCHECK WORD 3
sBRANCH IF DIFFERENT

JCHECK WORD 4
sBRANCH IF DIFFERENT
sCHECK WORD S
JBRANCH 1F DIFFERENT
sCHECK WORD 6
sBRANCH IF DIFFERENT
;CHECK WORD 7

CZRMVAO RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

033074
03%076
033100
033102
033104
033106
033110
033112
033114
033116
033120
033122
033124
033126
033130
033132
033134
033136
033140

10641 033142
1042 033146

001030
162321
001026
162321
001024
162321
001022
162321
001020
162321
001016
162321
001014
162321
001012
162321
001010
162321
001006

H 1

11-APR-80 15:01:20 PAGE

BNE
SuB
BNE
SuB
BNE
SUB
BNE
SuB
BNE
SuB
BNE
SUB
BNE
SuB
BNE
SuB
BNE
SUB
BNE

X 3
(R3)+,(R1)+
4%
(R3)+,(R1)+
4%
(R3)+,(R1)+
4%
(R3)+,(R1)+
&%
(R3)+,(R1)+
4
(R3)¢+,(R1)+
A3
(R3)+,(R1)+
4
(R3)+,(R1)+
X 3
(R3)+,(R1)+
4%

;BRANCH 1F DIFFERENT
:CHECK WORD 8
:BRANCH IF DIFFERENT
;CHECK WORD 9
:BRANCH IF DIFFERENT
;CHECK WORD 10
:BRANCH IF DIFFERENT
;CHECK WORD 11
:BRANCH IF DIFFERENT
sCHECK WORD 12
:BRANCH IF DIFFERENT
:CHECK WORD 13
:BRANCH IF DIFFERENT
;CHECK WORD 14
;BRANCH IF DIFFERENT
;CHECK WORD 15
:BRANCH IF DIFFERENT
:CHECK WORD 16
:BRANCH IF DIFFERENT

(SP)+

:YES == CLEAN UP STACK
;RESTORE RO - RS

1043 033150
10644 033152
1045 033154
1046 033156
1047 033160
1048 033164
1049 033198
1050 0331
1051 033174
1052 033176

005726
104413
000207
010104
162704
006204
010305
166005
006305
062705

033042

1054 033204
1055 033210

010137
010337

001136
001134

MOV
MOV

R1,$BDADR
R3,$GDADR

012337
005716
001023

001140

MOV
18T
BNE

(R3)+,$GDDAT
(SP)
6%

3
;1ST DATA COMPARE ERROR?
:NO-~BRANCH

MOV
EMT
BIT
BNE
CMPB
]
MOV

#7%,8ESCAPE
14
#SW01,3SWR
3%
ERR.CT,$ERFLG
8%
BYPASS,16(SP)

:;ESCAPE 10 7% ON ERROR

1056 033214

1057 033220
1058 033224
1059 033226

1060 033230
1061 033236
1062 033244
1063 033252
1064 033256
1065 033264
1066 033266
1067 033272
1068 033274
1069 033276
033276
1070 033304
1071 033306
1072 033314
1073 033316
1074 033324
1075 033352
1076 0333
1077 033336

064341

012137

000020

14-39

ADD
BNE
181
RESREG
RTS
MOV
SUB
ASR
MOV
SuB
ASL
ADD

1053 033202

062702
001333

MACRO v03.01

3%:
48

052776

003520

ADD

001142

MOV

013737
113737
113737
016600
012737
104013
016600
105116
000404

045550
045547
045546
000016
033266

012737
104014
032777
001315
123737
101004
013766

033306

001222

000002

145640

001462

001117

001346

000016

000705
000115

001364
001370
001366
001222

000014

5%:
6%:

7%:

8%:

MOV
MOVB
MOVB
MOV
MOV
EMT
MOV
(OMB
BR

BR
JMP

#6. ,R2
1%

PC
R1,R4
#BUFFER,RG
R4
R3,RS
PAT.PT(RO),RS
RS
#2% RS

-(R%).-(R1)

(R1)+,$B0DAT

;DONE ?
:NO-=-BRANCH

;FORM THE WORD NUMBER
:WORD NUMBER
:FORM ADDRESS TO CONTINUE FROM
sADDRESS

:RECONSTRUCT THE BAD WORD

:SAVE THE ERROR INFORMATION
2

DTADPB+12,CYL.DS
;CYLINDER
DTADPB+11,TRK.DS
: TRACK
DTADPB+10,SEC.DS
;SECTOR
16(SP) RO
;GET TEST PC+4
#5% ,SESCAPE
;sESCAPE TO 5% ON ERROR
13
14(SP) RO
:PATTERN NUMBER INDEX
(SP)
:SET THE ERROR SWITCH
7%

3
(RS)

:STOP DATA COMPARE?
JYES==EXIT
;MAX. ERRORS?
:NO==-BRANCH
:YES=--ERROR EXIT
:NO=-=CONTINUE AT NEXT WORD

SEQ 0137

CZRMVAD RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

MACRO v03.01

1078
1079
1080
1081
1082
1083
1084
1085
}83?

I 11
11-APR=80 15:01:20 PAGE 14=40

;THIS ROUTINE WILL FILL THE DATA BUFFER (256+22 WORDS) WITH
:A RANDOM PATTERN. ,THE FIRST TWO WORDS OF EVERY 256 WILL
:BE THE BASE OF THE RANDOM NUMBER GENERATOR FOR THE
INEXT 254 WORDS.
:NOTE: THIS ROUTINE DESTROYS R1 AND R2
s CALL
:
JSR
RO,FILRAN
:
RETURN

1088 033340

012701

052776

FILRAN: MOV

#BUFFER,R1

1090 033350
1091 033354
1092 033356
}832 033360

004037
005302
100374
000200

033560

18:

RO,RANPAT
R2
1%
RO

1089 033344

013702

002456

1095
1096
1097
1098

MOV

JSR
DEC
BPL
RTS

PRMLMT+24,R2

:MAXIMUM NUMBER OF SECTORS

;THIS ROUTINE USES THE FIRST TWO WORDS OF THE
*READ BUFFER TO GENERATED A RANDOM PATTERN.
THEN
:THE READ BUFFER IS COMPARED TO THE PATTERN GENERATED.
:NOTE: THIS ROUTINE DESTROYS R1-Ré

1099

s CALL

”8}

1100

1103
1106
1105
1106
1107

SEQ 0138

033362
033366
osgsrz
033376
033402

;

JSR

RO, RANCK

RANCK:

MOV
MOV
MOV
MOV
MOV

SHINUM,-(SP)
:SAVE THE PRESENT RANDOM NUMBER
$LONUM
. = (SP)
#BUFFER+512.,R2 :READ BUFFER ADDRESS
#BUFFER+1024 . ,R1
:RANDOM PATTERN ADDRESS
R1,R
:COPY IT INTO R3 FOR LATER USE
2(R2)
, SHINUM
RO,RANPAT
(SP)+,SLONUM
(SP)+,SHINUM
-(SP)
(R3)+, (R2)+
43
#3%, SESCAPE

:NO ERRORS
*ARE THESE TWO WORDS DIFFERENT?
*NO=--BRANCH
::ESCAPE TO 3% ON ERROR

R2,$BDADR
R3 $GDADR

:ADDRESS OF BAD DATA
*ADDRESS OF GOOD DATA

RE TURN

013746
013746
012702
012701
010103

025646
025650
053776
054776

1109 033410
1110 033416
1111 033422
1112 033426
1113 033432
1114 033434
1115 033436
1116 033440

016237
004037
012637
012637
005046
162322
001441
012737

000002
033560
025650
025646

033512 -001222

MOV
JSR
MOV
MOV
CLR
SUB
BEQ
MOV

1118 033450
1119 033456

010237
010337

001136
001134

MOV
MOV

012337
010204
162704
ooo;oa
005716
001002
105116
104015

001140

MOV
MOV
SUB
ASR
18T
BNE
CoM8
EMT

1108 033404

1117 033446

1120 033460

1127 033464
1122 033470
1123 033472
1124 033476
1125 033500
1126 033502
1127 033504
1128 033506
1129 033510

011237

064342

012237

033510
1130 033512

104016
032777

1133 033530

101406

1131 033520
1132 033522

001012
123737

025650

MOV

025646

18:

ADD

001142

053776

MOV
_

2%:
001000

145434

001462

001117

38:

EMT

BIT
BNE
CMPB
BLOS

(R2) , SLONUM

-(R%),-(R2)

(R2)+,$BDDAT

(R3)+.$GDDAT
R2,R&
#BUFFER+512.
R4
R&
(SP)
2%
(SP)
15

#5W09, aSWR
5%
ERR.CT,SERFLG
5%

:PRIME THE RANDOM NUMBER GENERATOR

:GENERATE A RANDOM PATTERN
:RESTORE PRESENT RANDOM NUMBER

*RECREATE THE BAD WORD

:BAD DATA

:GOOD DATA
*FORM WORD NUMBER (1

10 256)

:FIRST ERROR
*NO=--BRANCH
SYES==SET ERROR SWITCH

:LOOP ON ERROR?
YES==BRANCH
:MAX. ERRORS OCCURRED?
YES=--BRANCH

i3
Z
MO
OW—=
Nt O =y
NN NSO
COONWOO~N
OONOWNWN~N

OO0
—-000 8 m
O—=O0O0O0ONOW

VIV SN
ONOOC SO

b-dav]

NN
NN NN N NN
VWAL

00000000

15:01:20 PAGE

BIT

#SWO01,aSwR

145414

4%:

5%:
001346

J N

11-APR-80

6%:

BNE
CMP
BHI
TST
BEQ
MOV
RTS

14=41

SEG 0139

;STOP COMPARING?
sYES==BRANCH
sALL DATA BEEN COMPARED?

(SP)+

sERROR OCCUR?

JEXIT

R1,R3
1%

6%
BYPASS,RO

:OF THE PATTERN.
s CALL
MOV

JSR

RETURN

010246
012702

36
033610
033612

000200

025550
025650
025646

: MOv
RANPAT
MOV

1%:
2%:

BR
JSR

MOV
MOv

DEC
BGT

012602
000200

MOv
RTS
sTHIS ROUTINE

sNO=-=BRANCH

sNO==BRANCH
sTAKE ERROR EXIT

TWO WORDS ARE

THE BASE

#ADR,R1
RO,RANPAT

;ADDRESS OF

R2,=(SP)

;SAVE R2

#256.72.
,R2
2%

PC,SRAND
SLONUM, (R1)+
SHINUM, (R1)+
R2
1%
(SP)+ ,R2
RO

THE BUFFER

sGENERATE 256 WORDS
;GENERATE A RANDOM NUMBER
sPUT LOW WORD IN BUFFER
sPUT HIGH WORD IN BUFFER
:
:DONE?
:NO=-=BRANCH

;RESTORE R2

JEXIT

GENERATES RANDOM CYLINDER,

TRACK

AND

SECTOR

:ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10, 11 & DTADPB+12).
sNOTE: THIS ROUTINE DESTROYS R1-R3

025550

—

002456

1$:

2%:

JSR
RETURN

RO,RANADR

JSR

PC,SRAND
SLONUM,R1
SLONUM+1 R2

MOvB
MOvB
MOV
1STB

SHINUM RS

:GENERATE A RANDOM NUMBER
:FORM SECTOR IN R1

;FORM TRACK

IN R2

;FORM CYLINDER IN R3
;ENSURE THE SECTOR IS BETWEEN O AND 31

PRMLMT+24
,R1

s CHECK MAXIMUM SECTOR ADDRESS

2%
3%

SNEINONSIEIT

001

G ORI
N

RANADR:

025646

38283228
83888338 eSSNSE
ool
W%NMWUMJ‘

OSNOO
SO

NN
NN~

=l=lelelelelelnlelelelelelelel=lelelelel=1]

SES
EEE
uuuuuuuuuuuuu¥¥§§§§uuu
23333EEEE SFERSF
RRS¥NS

sCALL

o000
oOoOoN
O O NN

gzgarazggz;NNNNNNNNOOOOOOOOOOMUWMWUWMWM’#”bbbbbbuwug
NOWVSWN—=OOVONOVS
WN—=O VN WS I =0V NO VWS W =000~ e

O
MW

|
O

[

TMM
W

O 0o
o0

-l

el D il el i
i o e e e e

000002

MACRO v03.01

;:THIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM

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

D D el e
D e el i

DR TST

;PATTERN OF WHICH THE FIRST

D il
) el
D D il il D D
D el il D il D
D D ) il D e el
D el el il D ) il
D D el
D il
D el D k) D il il il
D k) D ) D - - D
A
D
)
D
D
ol Sl il il D il il el
i
D -l -l - el
—
—

——

CZRMVA

3%:

001372

;ENSURE THE TRACK IS BETWEEN O AND LAST TRACK

4%:

5%:

002326

6%:

sENSURE THE CYLINDER 1S BETWEEN FC AND i(

)

CZRMVAQ RMOS/3/2 EXT'D DR TST
INTEGER DiVIDE ROUTINE
1191 033706
119% 033710
1193 033712
1194 033714
1195 033716
1196 033720
1197 033722
1198 033724
1199 033726
1200 033730
1201 033734
1202 033736
1203 033740
1204 033742
1205 033744
1206 033750
1207 033752
1208 033754
1209 033756
1210 033760
1211 033764
1212 033770
}%}2 033774

005503
001371
010103
000303
060203
005%03
003364
005403
000762
023703
002003
000241
006003
000772
023703
003403
005203
000303
000764
110137
110237
010337
000200

MACRO v03.01

002330

7%:

002326

8%:

045546
045547
045550

9%:

1215
1216
1217
1218
1219
1220

1223 033776
1224 034004
1225 034006
034012

034034

032777
001430
104401
000410

1226 034034
1227 034040
1228 034044
1229 034050
1230 034052
123' 034054

012703
013704
004037
000771
000240
013737

}ggz 034066

000207

1232 034062

1243
1244

ADC
BNE
MOV
SWAB
ADD
INC
BGT
NEG
BR
CMP
BGE
cLC
ROR
BR
CMP
BLE
INC
SWAB
BR
MOVB
MOVB
MOV
RTS

14&=42

R3
6%
R1,R3
R3
R2,R3
3]
6%
R3
6%
LC,R3
8%

R3
7%
FC,R3
9%
R3
R3
7%
R1,DTADPB+10
R2,DTADPB+11
R3,DTADPB+12
RO

:SAVE SECTOR ADDRESS
:SAVE TRACK ADDRESS
:SAVE CYLINDER ADDRESS
;RETURN

:THIS ROUTINE IS USED TO INPUT THE '‘CONTROL SWITCHES''.
:1F SWR<07>=1 THE PRESENT SETTING WILL BE TYPED AND THE NEW
:SETTING 1S READ AND STORED.
sNOTE: THIS ROUTINE DESTROYS R3 AND R&
s CALL
:
JSR
PC,GETSWR

}%5;

1235
1236
1237
1238
1239
1240
1241
1242

K 11

11-APR-B0 15:01:20 PAGE

010437

000200

145150

034014

001314

GETSWR: BIT
BEQ
TYPE
BR

;(C.SWR)=DESIRED CONTROL SWITCHES

#SW07,aSWR
2%
,65%
648

:READ CONTROL SWITCHES?
:NO--BRANCH
::TYPE ASCIZ STRING
+:GET OVER THE ASCIZ

::658:

.ASCIZ

1%:

MOV
MOV
JSR
BR
NOP
MOV

#MSG.CS,R3
C.SWR,R4
RO, GE TNUM
1%
C.SWR,SAVCSW

:"'CONTROL SWITCHES="'
;PRESENT CONTROL SWITCH SETTINGS
:GET THE NEW SWITCH SETTINGS
: COMMA
:PERIOD
;SAVE PREVIOUS VALUE

RTS

:RETURN FROM CALL

64%:

045702
001314
034070

RETURN

001316

2%:

MOV

<CRLF>/SET SWR<07>=0/

R&4,C.SWR

: DOUBLE PERIOD-SAVE NEW SWITCH SETTING

:THIS ROUTINE WILL TYPE AN ASCI1Z 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 ASCIZ MESSAGE
:
MOV
#NUM, R4
;OCTAL NUMBER
:
JSR
RO,GE TNUM
:
:

RE TURN!
RE TURN2

:INPUT TERMINATED WITH A COMMA
:WITH A PERIOD

SEQ 0140

CZRMVAO RMO5/3/2 EXT'D DR TST
INTEGER DivVIDE ROUTINE

L N
11-APR-80 15:01:20 PAGE 14=43

ETNUM:
$:
$:

R3.,2%

N -y

SEQ 0141

;WITH A DOUBLE PERIOD
sR&=INPUT NUMBER AND
;R2=R6*32 FOR ALL
: THREE RETURNS

R4 ,=(SP)

045725

+SLASH

036340

(SP)+,R1
RO,CK.CHR

sSAVE MESSAGE POINTER

:TYPE THE MESSAGE

sMESSAGE POINTER GOES HERE
::SAVE R4 FOR TYPEOUT

:569 TYPE==OCTAL ASCII(ALL DIGITS)

;READ AN ASCIZ STRING
:ADDRESS OF

FIRST

CHARACTER

;CHECK ONE CHARACTER
: ILLEGAL CHARACTER

CARRIAGE RETURN

3s:

036600

DIGIT 0-9

*DECREMENT THE INPUT POINTER

4%:

RO,CK.NUM

sCHECK THE NUMBER

s ILLEGAL INPUT

;TERMINATED WITH A ''.,"" OR "‘CR"'

;TERMINATED WITH A ''."

7%:

8%:

H e

)

5%:

104402
104401
104411

034076

RETURN3

;TERMINATED WITH A "'.."

;DOUBLE PERIOD
:SINGLE PERIOD
s COMMA-=SAVE INPUT NUMBER
;G0 TO EXIT

;TERMINATOR AFTER A COMMA?

+NO=--LOOP
sYES=<=EXIT

s TERMINATOR AFTER A PERIOD?
sYES==EXIT
:NO--DOUBLE PERIOD?
+NO=--LOOP
s YES==TERMINATOR?
:NO=--LOOP
:DOUBLE PERIOD
sPERIOD
: COMMA--POSITION THE
:NUMBER IN CASE IT
;1S THE PRIORITY LEVEL

9%:

000056

010337
104401
000000
010446

—_——

~
R R R R R R R R R bR eR eR ReR eR eR eR eR eR eR oR oR oAR
R R R RRERR R Ry s
o o o i cd — e il s il i it it e OO O
WA
NN
= bSO NO SR|R8

PONIRINI NI NI NOINI NI NI N =
MNOIPON)
= b

W= 0OV ~
NOWVES

O 0o

S
AR

0000000000000 O0O0O00O0O0O0O0OCOO0O0OO0O0O0O0O0OO0O0O0O0O0OOOOOOO

i
D
s o

NN ~n
VAWV >

il
i
-

N
v

—

Y
S
[
T

NN
NNV NN
NN
©o
0o 0o
OO0
N NNNNNNNNNOO
O
oo
W
—=O
Voo~

NN
VIV

1245
1246

MACRO v03.01

ASR
RTS

JEXIT

sTHIS ROUTINE 1S USED TO CHANGE OR MODIFY
sTHE TEST PARAMETERS.
IT GIVES THE OPERATOR
sTHE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST, WHICH
;TESTS TO RUN_AND HOW MANY TIMES TO
;REPEAT EACH TEST
GT.PRM: SAVREG
GT.PR1: CLR

DRVSEL

;SAVE RO - RS
:NO DRIVE SELECTED

CZRMVAO RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE
1290 034234

034240

104401
000406

MACRO v03.01

034242
::65%:
648:

034256

1291 03‘-%56
1292 034260
1293 034262

m
11-APR=-80 15:01:20 PAGE 14=44

;iGET OVER THE ASCIZ

<CRLF>/DRIVE (§)=/

1295 034304
034304
034310
034314
034316
034320
034322
034324
1296 034326
1297 034334
1298 034336
1299 034340
1300 034344
1301 834350
1302 034352
1303 034360
1304 034362
1305

000007
036414

;READ TTY
:ADDRESS OF ASCIZ STRING
;CHECK ONE CHARACTER

: ILLEGAL CHARACTER

7,R2
RO, CK.DIG

:DIGIT 0-9
;UPPER LIMIT OF INPUT
:CHECK THE DIGIT(S)

:ILLEGAL INPUT
:INPUT TO LARGE

:TERMINATED WITH A "' OR "'CR"
:TERMINATED WITH A ''.*

037054

;TERMINATED WITH A *'.."

ATABIT(R2) ,DRVSEL

001326

037054

034364
034370

001326

4%:

GT.PRZ:
GTTST:

034372

;WAS THE LINE TERMINATED?

TSTNMS

:DESELECT ALL TESTS

,65%

N\fiug

82SnS888858rn8r25

-t
Ot O =
OO0
—
ow
N =t = \NAVA VAN b N = ) =2 NOND»
UN—d
&~
WVINC
= WNNO =S OOO0OONNONO~NO
S
NWNW NN
OO
O —=O —
NNNNNE ==t
N = s
~No~N

/TEST=/

000056

(SP)+,R1
FLLRD
1$
LR
1
2(R1)

000001

000002
001330

1$:

GTTST2:

000123

000777

001330

000124

036000

1%:

001330

iNO=GET THE NEXT DRIVE

TSTNMS+2
GITST]
;YES==SELECT TEST
ATABIT(R2) ,DRVSEL
:SET THE SELECTED DRIVE BITS

64$

000056

:SET THE DRIVE SELECTED BIT

=(R1)

001330
001332

1306 034364

1313 034422
1314 034426
1315 034430
1316 034434
1317 034440
1318 034444
1319 034450
1320 034454
1321 034456
1322 034464
1323 034466
1326 034472
1325 034474
1326 034502

;s TYPE ASCIZ STRING

: CARRIAGE RETURN

1294 034302

034400
1307 034400
1308 034402
1309 034404
1310 034410
1311 034412
1312 034420

/658

b4s

(SP)+,R1
RO, CK.CHR

036340

036%66
034270
034272
034274
034276
034300

TYPE
BR
.ASCIZ

SEQ 0142

GT.PR2

TSTNMS
TSTNMS+2
OPNFLG

OPNFLG#+2

;RESTORE RO = RS
JEXIT

;:TYPE ASCIZ STRING

:iGET OVER THE ASCIZ
;READ AN ASCIZ

:POINTER T0 R1
:DOUBLE PER10D?
:NO==BRANCH

STRING

:"'CR"?

:YES==EXIT

:NO TEST SELECTED

iNO TESTS TO BE OPENED

(R1),#'S
13
FTTT,ISTNMS

;ALL SEEK TESTS?
:NO=~BRANCH
;YES==SELECT TESTS 0-10

(R1),#'T

;ALL TIMING TESTS?

GTTs{3

23
#36000,TSTNMS
GTTST3

:NO=-BRANCH
YES==SELECT TESTS 12-15

VNV WAV
TNV AU
O NS
WNNININ)
— —
OO0 OO O O O O O
~

NIV =O0V~N

(=l=l=l]
33
FRRR R RR R R R R R RERRE!
REER °°°°°°°°°°°§°°°°°°°°°°°°°°°°
FERRERE
22222 Y
SITTI
$ERRO
OS RS NN ROS
ROrRN >rOOSR

=0V~

RW
R RR RR RR

WO ODNO VS W
WV

S S A

WN=O VN

EEERRRRaTTr R
WN = O YOV

Oo
o 0o
NO W

OCOO0O0O0O0O0O0O0O0O0O0O0O0O0O0O0ODOO0O0O

NN NN
N NN
NN g <
>
EIFEF NLINWNNI
WM=OVO~N
DO

TV
D i i
D i
D i
D i e

D e

NN NN NN

i
i e
D D e
e
D D e
D e
s
D
D il i i i
D
D
D
D i il
D i
D
i
i
D
D i e e

— e e e i i et D e
WN
N
b

EXT'D DR TST
OUTINE
121127

001004
835;§Z
121127
001004
052737
ooosgs
121127
001004
052737
000516
004037
000514
010205
005201
004037
000405
005201
006305
006305
006305
0502
020227
003263
010237
o1g;84

0627064

006204
006204
006204
006302

056264

121127

001060
005201
004037
000640
010205
005201
004037
000405
005201
006305
006305
006305
060502
020227
003223
023702
002220
010246
013702
012637

MACRO v03.01

000101

140000

28:

001330

000104
000001

3$:
001332

000105

000002

48:

001332

036264

5%:

036264

&
000022

035010

000017

NI
11-APR-80 15:01:20 PAGE 14=45
CMPB

BNE
g;s

38
g}?gggo,tstuns

(R1),#'A

:ALL ADDRESSING TESTS?

CMPB
BNE
BIS
BR
CMPB
BNE
BIS
BR
JSR
BR
MOV
INC
JSR
BR
INC
ASL
ASL
ASL
ADD

(R1),2'D
4$
#1,TSTNMS+2
GTTST3
(R1),#'E
5¢
#2,TSTNMS+2
GTTST3
RO,CK.OCT
GTTST4
R2,RS
R1
RO,CK.OCT
6%
R1
RS
RS
RS
RS,R2

:DATA TEST?
:NO==BRANCH
SYES==SELECT TEST 20

CMP
BGT
MOV
MOV

R2,#22
GTTSTI
R2,9%
R2.R&

;VALID TEST NUMBER?
:NO--BRANCH
:SAVE THE TEST NUMBER
:CONVERT TEST NUMBER INTO AN INDEX

ASR
ASR
ASR
ASL

R&
R4
R&4
R2

:SHIFT THE BITS

BIC

001526. 001330

f
!
SEQ 0143

M7,Re

:NO==-BRANCH
SYES==SELECT TESTS 16 & 17

;EXERCISER TEST?
:NO==BRANCH

SYES==SELECT TEST 21
;0CTAL DIGIT?

:NO==BRANCH
:YES==SAVE 1T
:MOVE TO NEXT CHARACTER
:0CTAL DIGIT
:NO=-=BRANCH
:MOVE TO NEXT CMARACTER
:SCALE HIGH DIGIT
_
:COMBINE HIGH & LOW DIGITS

:CLEAR UNWANTED BITS
;

BIS

BITS(R2), TSTNMS (R&4)

BNE
INC
JSR
BR
MOV
INC
JSR
BR
INC
ASL
ASL
ASL
ADD

GTTST4
R1
RO,CK.OCT
GTTSTI
R2.RS
R1
RO,CK.OCT
7%
R1
RS
RS
RS
RS,R2

*NO--BRANCH
:YES==MOVE TO NEXT CHARACTER
:0CTAL DIGIT?
:NO=--BRANCH
SYES==SAVE 1T
:MOVE TO NEXT CHARACTER
:0CTAL DIGIT?
:NO--BRANCH
:YES=-MOVE TO NEXT CHARACTER
:SCALE HIGH DIGIT

035010

CMP
BGT
CMP

R2,#22
6TTSTI
9% ,R2

035010
(035010

BGE
MOV
MOV
MOV

6TTST!
R2,=(SP)
9% ,R2
(SP)+,9%

;VALID TEST NUMBER?
:NO=--BRANCH
S1S THE FIRST NUMBER OF THE
:STRING SMALLER THAN THE LAST?
*NO=--BRANCH
:SAVE ENDING TEST NUMBER
:GET STARTING TEST NUMBER
:STORE ENDING TEST NUMBER

000055

036264

CMPB

.
000022

(R1),#'-

;SELECT TEST

;TEST STRING?

;COMBINE HIGH & LOW DIGIT

- AN
et \ N
O =t © =
NON=B YN =2 ONON=O NS =N = O NO N
NN
=
HOWWNO = O W= LN NN O = =N O WWNWN S WWNO = O WON
OO
NWVININN
=t YNNI NNN = S N = NN NN NNN =
NN BZ S

N =2 NV b s \ N

N = OO

2588838382 o3nS SeSsss
s8 238§§83888§8§§33833PP Shass o
"‘g;a:c:fii:‘fii:t::::% P2 P
SO

ocg
3 3433

WA BN

i U U U

5030
5034
5036
5042

N
= N

035026

3388

N N N
U U U U U

035012
035014
035020
035022

UMD
=t D b b b et b b ook d e ekt e b B D b —b ot —b sS2 (OO
KRN S I A IR S S[PFT NST
T N

) el

) D il el el

) D il

)

) el

D el

D e

D ol el e

D el e el

) D el e e > O

s rrrrrerrrrrrrrrrrrrrrrrrrrrrrr
PONIMNVPNONIPNOINININ
b
s s e s
U
U
e
TM
SN =00

) D

407

035002
035006
035010

VWA

D el el

4«03
404
405
406

034754
034756
034760
0347 s
0347
034774
035000

N U L U U

D el e

400
401
402

3&748
3475

VAWAWAWMTA WA WA WA WA MWWV AWMV AT WA B

393
394
395
396
397
398
399

gll:?l.
764

At U At Lt Lt i Ut i L Ut L Lt L Ut L Lt L A L L L Lt U

e
D e el e
D
D
el el el

91
9;

34733

OO0V O0OO0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0OOO0OOCOOO0OO0OOO0OOO0OOOOOOOOOO

388

389
90

—

;
.

D d

" CZRMVAOD RMOS/3/ % E;};b DR TST
- INTEGER DiVIDE

B 12
MACRO v03.01 11-APR-80 15:01:20 PAGE 14=46

035010

ASL

8%:

000037

ASL

MOV

BIC
ASR
ASR
ASR

001526
000002
035010

001330

GTTSTS:

000056

GTTSTS:

001330

034364

000057

034450
001334

1$:

001334

000056

034364
001334

2%:

3%:

4%:

034364
001334
001336

: INECREMENT THE TEST NUMBER

#2,R2

:CORRECT TEST NUMBER

GTIST4
R1

(R1) 0.
611875

SSEE IF FINISHED
:BR IF NOT
: CONT INUE

:STORE TEST NUMBER MERE

:MOVE TO NEXT CHARACTER

:"'PERIOD''?
:YES=-BRANCH
SANY TEST

1$:

:BR IF YES
SANY TEST SELECTED THIS CYCLE
‘BR IF YES

(R1),#'/

:"'OPEN'"?

GTTSTY

(R1).#',

*NO=--BRANCH

:"'COMMA"*?

R1
(R1)

IMOVE TO NEXT
:"'CR'"?

*NO

YES
CHARACTER

:BR IF

OPNFLG
OPNTST

R
(R1),0".
GT1STH
(R1)
1%

:ANY TESTS TO OPEN ?
:BR IF YES
TANY TEST TO OPEN ?
‘B8R IF YE.
*NO-=START AGAIN
SMOVE TO NEXT CHARACTER
:"'PERIOD'"?
:YES=--BRANCH
T
)
:YES=-BRANCH

OPNFLG
OPNTST

:ANY TESTS TO OPEN ?
‘BR IF YES

GTTST2

GTTSTI

OPNTST

1%:

;YES==SET BITS FOR TEST TO OPEN

:BR IF

GTTSTI

'CR'

*NO--GO GET NEXT CHARACTER

SANY TESTS TO OPEN ?
‘BR IF

YES

61.PR2

‘NO-=GO START TESTING

GTTSTI

*NO--GO ASK FOR TEST

R1
(R1)
1%

OPNFLG
OPNTST

OPNFLG#+2

*NO

OPNFLG*2
GTTSTG:

SELECTED THIS CYCLE?

1%
TSTNMS+2
13

OPNTST

GTTSTS:

:SELECT THE TEST

#2,R2

OPNFLG*2

001336
034360

SSHIFT THE TEST NUMBER

Q{TS‘"Z" OPNFLG(R4)

001336

034364

:CLEAR LOWER BITS

R4
R4

TSTNMS

001332

034364

R2.98
13
9s:

000054

#37,R4

;SHIFT ENDING TEST NUMBER
:SHIFT TEST NUMBER
:COPY TEST NUMBER INTO Ré

BITS(R2),TSTNMS (R4)

000002

001526

98
R2
R, R&

SEQ 0144

:MOVE TO NEXT CHARACTER
TUCRTM
:YES=-BRANCH

CANY TESTS TO OPEN ?
‘BR IF YES

CANY TESTS TO OPEN ?

‘

CZRMVAD RMOS /3 /2
INTEGER Divl DE R

DR TST

BNE
JMP

034360

NN NN

W
T

035222

S SLCs s S

034364

S NVVNININNNN
OV OOO0O00O00
R el Vo LY LV [V LV L VLV LV

035222
000022

;BR IF YES

:NO==GO START TESTING

035222

.WORD
BR

OPN.1:

INC
CMP
BGE

OPN.CT
#22,0PN.CT
OPN.2

JMP

GTTST

;MOVE TO THE NEXT TEST
;TEST NUMBER TOO BIG?
:NO-=-0PEN THE NEXT TEST
;RESTORE RO - RS
;YES==GO ASK FOR MORE TESTS

MOV

OPN.CT,RS

;SETUP TO USE THE

#17,R3

;GET INDEX
;CLEAR LOWER TEST BITS
;SHIFT TEST NUMBER

RESREG

OPN.2:

001334

035312

002322
1$:

NONNS

W —

NON
NN NO -

1]
LASCIZ

648
7 TEST /

,65%

::TYPE ASCIZ STRING

MOV

OPN.CT,=(SP)

;sSAVE OPN.CT FOR TYPEOUT

BYTE
BYTE

2
0

MOV

PRMPT(RS)
,RO

MOV
BR

#PRM,R2
2%

BCS
BEQ

2%
OPNPRM

BR
MOV
BR

1%
(RO)+,(R2)+
1%

MOV
ASR

18T

O
v

(3]
R3
R3
BITS(RS) ,OPNFLG(R3)
;OPEN THIS TEST?
OPN.1
:NO=-=-MOVE TO NEXT TEST

TYPE

NOWS

82888 rgg2222
N == O
FRESSSS 82
L2ERIARIGS §_ I~ O=0O0O&H g

ASR
ASR
ASR
BIT
BEQ

TYPOS

——n

RS
OPN.CT,R3

TYPE

001231
002362

2%:

OPNPRM: MOV
CLR
1$:
ASR

BCS

2%:

38:

002432
0466657
002464

035432

;COUNT STORED HERE
;SKIP THE INCREMENT

ASL
MOV

BIC

002322

;SAVE RO - RS
;START WITH TEST 0

OPN.CT:

035222
000017

001526

SAVREG
CLR

(PC)+
0
OPN.2

035222

—

3333x\nuu33
2~80"°
O~

N —2 — —b

OPNTST:

352838 o

NN NN

VAW

NN NN N N N NN NN

AWV

NN NN N NN NN

VAVAWVAWA - WAVIWAWAWVVAWVWAWMWAWVV
AWV
(VT VTV
U L U
%% 1]
WO NN
OO
NNN
SO
N-=0O0 NN

AN
MM N NN N NN

OPNTST
GT.PR2

SEG 0145

sOPEN THE SELECTED TEST FOR CHANGES

SNNNNNMNN NN NN
2~l‘~°
NNNSOU‘UV‘
SN NN
NSO
SFNONO
SO

S &

O0OOO0OO
OOO0OO

0.2.0.3 s

COO0O0O0OO0OOOO
COO0OO0O0O0O0CO0O0O0O0O0O0O0O0O0

b e
B
D
D e
b
b

D o

D el

el e

ed —D

b wh —k —

Sbsbbl‘bl‘bbb&l‘bbb
0o 0o 0o
NNNNYN
SROREI=28 © EIFQRER2BIIIF
A

1473

00000000000

D e

B e

d e

s o

NN RIS .
NNNO
oo

> —

1645 0352 10
1646 0352 12
144

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

LSCRLF

(RO) ,=(SP)

(SP)

(R2)+

PRM, (SP)
R&
(SP)

BEQ

OPNPRM

187

1ST

BM]
TYPE
MOV

(RG)+

PRMLMT (R4)

OPNPAT
LBLNKS?2
,4%
PRMMSG(R4)

;TEST NUMBER AS AN INDEX

::GET OVER THE ASCIZ

2:60 TYPE--OCTAL ASCII
ssTYPE 2 DIGIT(S)

:EEUfgaess LEADING ZEROS
sPICKUP PARAMETER POINTER
;SAVE THE VARIABLE INDICATOR

sFIRST ADDRESS OF

TABLE

sCHECK FOR A VAR]IABLE

;GO MOVE THIS ONE
: DONE
;BUMP THE POINTER

:MOVE THIS VARIABLE INTO THE
: COMMON AREA

;GET THE VARIABLE INDICATOR
s JERO THE INDEX
sCHECK FOR A VARIABLE

;60 GET IT
;0UT OF VARIABLES
;UPDATE THE INDEX

;1S THE MAX. MAGNITUDE NEG?
sYES==THEN IT IS THE PATTERN
;TYPE 2 SPACES
:TYF

THE NAME OF

THIS VARIABLE

CZRMVAQ RMOS/3 /2 EX1 'D DR TS7
INTEGER DivIDE ROUTINE

et et YNO
=

2
-

O =

NO =2 O =N = NO —-ON

NN = NSO

OOJ‘N:-‘-‘U‘
&
VSO
OO0ON s

2z 3 §838§§83§8

2 8

VAW
(=1=1o-uguuu

4%:

TYPE

LWORD

MOV
JSR
JSR

RPT(RL) ,=(SP)
PC,$5820
PC,SSUPRS

TYPE

RDLIN
MOV

RNR O N

—-=000000
O NN NN NN

—_ N
NO — N
—a NN
WA
— NN~
—
NNWNWVWNBWVNWES OOV
&~
WD
—
N N
.
L ol ahd

3340
SEE

PNON)
= s
NN
g22
)
FRUER NO SN 8 oo

ViAW

e L L L L U W
L L L L

~No

ogoo
W
wN

WN—-O
VNV

hY
UOUOSN
OV
ONOWVWSWNN—-O
o

[={=l=l=lelal=]

FERNGRnS FREFNGrvOSRRS

VWA

D 12

11-APR=80 15:01:20 PAGE 14-48

JSR

38
2%

,MSG.EQ

;TYPE ''=

LSLASH

;TYPE Wi }N?UY LEADING ZEROS
:TYPE *

(SP)+,R1

;READ AN ASCIZ STRING

RO,CK.CHR

5%:

6%:

036132
000056

7%:

5%
6%
8s

1ST8

8%:

002432
036414

9%:

DIGIT 0-9

(R1)

;..CR..?

(R1)

;1S THERE A "'CR'" AFTER THE PERIOD?

3%
2%

sNO==STAY ON THIS VARIABLE
;YES==MOVE TO NEXT VARIABLE

BNE
JMP

7%
OPN.N2

1STB

SYES==6G0 CLOSE TwIS TEST

BNE
JMP

3%
OPN. X2

(R1)

;DOUBLE PERIOD?
:NO=--GO0 ASK FOR THIS VARIABLE
;YES==1S A "'(R'" AFTER THE DOUBLE PERIOD?
:NO==ASK FOR THIS VARIABLE AGAIN
sYES==-CLOSE ALL TEST

DEC

;BACK THE POINTER UP BY ONE

CMPB

MOv

JSR

33
38

108:

:CHECK ONE CHARACTER

:ILLEGAL CHARACTER
: CARRIAGE RETURN

.lOIOO

£'..(R1)+

PRMLM
(R4) ,R2
T

RO,CKX.DIG

OPN.N1
X1
OPN.
MOV

;UPPER LIMIT OF

sCHECK THE DIGIT(S)

INPUT

s ILLEGAL INPUT
: INPUT TO LARGE

;TERMINATED WITH A '','" OR "'CR"

108

002324

sPUT RPT(R4) ON THE STACK
s CHANGE TO DECIMAL ASCIZ

BNE
BR

1518

036150

SEQ 0146

R2,RPT(R4)

;TERMINATED WITH A "."
;TERMINATED WITH A """

:SAVE THIS VARIABLE
;MOVE TO NEXT VARIABLE

;OPEN PATTERN FOR CHANGES
=l=lelelelelelelel=ll=l=l=1=]

D
i

D
i
i
i
D
e
P e
e gy
e

VAIWVAWVILUA . VWAV
VAV AWDYLA

i
i

WA WA

D i

VIV

WAWAWA

1200
01

=l=lelel@elelelelele BNelelelelelelelelalaTa) =l=lelelelelelelelelelelalatll

1498 Oiikgg
1499
0354

MACRO v03.01

066657
045674
045700
002324
066660

036340

OPNPAT:

TYPE

.BLNKS2

TYPE
TYPE
MOV
TYPOC
TYPE
ROLIN

+MSG.PAT
,MSG.EQ
RPT(R4) ,-(SP)

JSR
OPNPAT
OPNPRM

RO,CK.CHk

MOV

.BLNKS1

(SP)+,R1

;TYPE 2 SPACES
;TYPE "'PAT"
:YYPE

ll=00

;s SAVE RPT(R4) FOR TYPEOUT
::60 TYPE--OCTAL ASCII(ALL DIGITS)
:TYPE ONE SPACE
:READ ASC1Z STRING
:PICKUP POINTER
:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN

0P PRM
cd

DIGIT 0-9

—

- AN et N et \ N

O £
= 5 PN —
=N
O = b s

838585 Em
w

V.1V
S WO
S NVON
= s YWNO
= NOO
£ NVO
W
NN SONNNN

1ST8
BEQ
CMPB

BNE
1518

2%:
036600

&%
-

533333

o coo o

528

W L

SIS

N N NN NN NN NN NN NN

BEQ
BR

DEC

JSR
OPNPAT
3
OPN.N1
OPN. X1
MOV
ROR

BCC
SAVREG

035730

OPNWDS:
1$:

(R1)

OPN.N2

f.,(R1)e
OPNPAT
(RY)
OPN. X2
OPNPAT
R1
RO,CK.NUM

R2,RPT(R&)
R2
OPNPRM

14=49

SEQ 0147

;"'CR'" AFTER THE PERIOD?
sYES==GO CLOSE THIS TEST
sNO==PER]OD?
:NO==LOOP

"'CR'" AFTER A DOUBLE PERIOD?
;YES==GO START TESTING
sNO==L0OP
sBACKUP THE ASCII POINTER

;CHECK THE NUMBER
sILLEGAL INPUT

STERMINATED WITH A "',"" OR ''CR"'
JTERMINATED WITH A """
sTERMINATED WITH A *'..""

sSAVE THE INPUT NUMBER
:OPEN PATTERN 0?

sNO==START AT BEGINNING OF

sSAVE RO - RS

CLR

RO
#PATO,RG

;START WITH WORD 0

TYPE

,65%
649

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV

BR
LASCIZ
MOV

JSR
JSR
TYPE

MOV
TYPOC
RDLIN

036340

S, BNOONNN
O

WMM°§
— PO N
N =~

NNV NN

g§§§§§§§§§§§§§§§
NONON)= = —2

$ S3gEEesEcsse

3:6 5%:
64%:

VAWV
WDA
~
~

N N NN NN N NN NN NN

~O
o
iy
—
WS

000056

002324

E 12

11-APR-80 15:01:20 PAGE

1%:

003560

NO VS W
= OOV

OO0 O0O0O0O0O0O0O0O0O0O0O0O0O00O

SEIFRFU

<
>

AR AE 2020 ok 2k 2kt 2
L

MACRO v03.01

PARAMETER

;OPEN WORDS IN PATTERN #0 FOR CHANGES
=lelelelelelelelelelelalelelelele
el
===
=l
=Nel

WA
VAUAW

VWA WA VAW

VDA
VA
VAVAAVAUIWAWVWGDA

Zr~

TV
i il s s il it it
>
b
s
s
B o
B e
e
—_——
e
R

—

DR TST

2%:

DEC

036600

5%:

WD/

RO,=(SP)
PC,$582D
PC,$SUPRS

:PUT RO ON THE

(R4) ,=(SP)

::SAVE (R&) FOR TYPEQUT

,MSG.EQ

(SP)+ ,R1
RO,CK.CHR

:TYPE WITHOUT LEADING ZEROS

::60 TYPE==OCTAL ASCII(ALL DIGITS)

:READ ASCIZ STRING
:PICKUP THE POINTER
:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN

:DIGIT 0-9

;BACKUP THE ASCI] POINTER

RO,CK.NUM

:CHECK THE NUMBER
s ILLEGAL INPUT

R2,(R")

1S1B

#6.,R0
1%
OPNWDS
(R1)

18T

STACK

:CHANGE TO DECIMAL ASCIZ

MOV

000020
6%:

(RG)+

sTERMINATED WITH A '',"" OR "'(R"
;TERMINATED WITH A '."
;TERMINATED WITH A "', ."

:SAVE THE INPUT
:MOVE TO NEXT WORD
s INCREMENT THE COUNT
;COUNT TO LARGE?
:NO=--BRANCH

: YES==BRANCH

;"'CR' AFTER THE PERIOD?

TABLE

CZRMVAD RMOS/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

1567 0

1568 0
&
1569 036050
1570 036052
1571 036054
157% 036056
1573 036060
1576 036062
1575 036066
1576 036070
1577 036072
1578 036074
1579 036100
}gg? 036102

001407
122721
001324
105711
001407
000721
010;§£
004737
104413
000420
010224
004737
104413

036104

7%:
8%:

036104

9% :
108:

1585 036110
1586 036112
1587 036116
1588 036120
1589 036122

}gg? 0361264

1592 036126

1593 036132
1594 o§2134
}ggg 036140

000422

012701

005200
022700
002402
012124
000772
010264

005726
004737
000137

1600 036156

005725

003560
000017

002324

osg%oa
035226
002324

004737

036204

020527
002403
104413
000137
036503
001364
000765

000034
034360
001526

}g?g
104412
012700

1615 036220

012103

1616 036222
1617 036226
1618 036230
1619 036232
1620 036234
1621 036236

016501
012002

012704
030402
001403
030403
001404
011011

1622 036240 030403
1623 036242

.} 3
#' ., (R1)
1%
(R1)
10%
1%
R2,(R4)+
PC,CLSWDS
OPN.N2
R2,(R4)+
PC,CLSWDS

OPN.X2

14=50

;YES==GO CLOSE THIS TEST
:NO==PERIOD?
;NO==BRANCH ILLEGAL INPUT STRING
;"'CR' AFTER THE "‘PERIOD=-PER;OD'"?
;YES==GO START TESTING
;NO==L0OP
:SAVE THE INPUT
;CLOSE THE DATA PATTERN
;RESTORE RO - RS
;MOVE TO NEXT TEST
:SAVE THE INPUT
;CLOSE THE DATA PATTERN
;RESTORE RO - RS

:START TESTING

CLSWDS: MOV

#PATO0,R1

;FIRST ADDRESS OF DATA PATTERN

2%:

:RETURN

1$:

INC
CMP
BLT
MOV
BR

RTS

OPN.N1: MOV

OPN.N2:

R2,RPT(R4)

:COUNT THE LAST WORD THAT WAS STORED
;END OF TABLE
JYES==EXIT
:COPY
;LOOP
;SAVE THIS VARIABLE

(SP)+
PC,CLOSE
OPN.1

:CLEAN OFF THE STACK
:CLOSE THIS TEST
;G0 OPEN THE NEXT TEST

OPN.X1: MOV
OPN.X2: TST

R2,RPT(R4)
(SP)+

;SAVE THIS VARIABLE
:CLEAN OFF THE STACK

28:

(RE)+

:UPDATE THE INDEX

1%:

3%:

TST
JSR
JMP

RO
#15..R0
2%
(R1)+,(R4)+
1%

JSR

CMP
BLT
RESREG
JMP
BIT
BNE
e

PC,CLOSE

RS, #16%2
3%
GT.PR2
BITS(RS),R3
1%
2%

:CLOSE THIS TEST

:INDEX TO BIG?
;NO=-=BRANCH
;RESTORE RO - RS
;60 TO EXIT
;1S THIS TEST OPEN FOR CHANGE?
;YES=-GO CLOSE IT
:NO=--MOVE TO NEXT TEST

:CLOSE CURRENT TEST THAT WAS OPEN FOR CHANGES

1611 036204
1612 036206

1613 036212
1614 036216

JSR
RESREG

000207

010264
005726

1601 036160
1602 036164
1603 036166
1604 036170
1605 036174
1606 036200
}gg; 036202

BEQ
(MPB
BNE
1578
BEQ
EE
MOV
JSR
RESREG
B
MOV

;CLOSE PATTERN #0 AND SAVE CHANGED WORDS

1597 036144
1598 036150

1599 036152

11-APR-B0 15:01:20 PAGE

000056

}23%
1584 036104

MACRO v03.01

001401

002322

CLOSE:

002362
000001

1%:

2%:

SAVREG
MOV

MOV
MOV
MOV
MOV
BIT
BEQ
BIT
BEQ
MOV

BIT

BEQ

#PRM,RO

;3AVE RO - RS
:jraon" ADDRESS

(R1)+,R3

:'T0"" INDICATOR

PRMPT (RS) ,R1
(RO)+,R2
R4
R4 ,R2
2%
R4 ,R3
3%
(RO), (R1)

RG4,RS
3%

:'T0"" ADDRESS
:"'FROM'*
INDICATOR
:TEST BIT START A 'RPT
;PARAMETER TO BE MOVED?
:NO=--BRANCH
:A PLACE TO PUT 112
:NO=-BRANCH
E
=R
:YES==MOVE
"‘'FROM'' 10 ''T0

2''T0'" PARAMETER?
:NO==BRANCH

SEQ 0148

CZRMVAO RHOSIS/%OS¥};2 DR TST
INTEGER DiVIDE

1624 036244
1625 036246
1626 036250
1627 036252
1628 036256
1629 036260
}g%? 036262

005721
005720
006304
032704
001763
104413
000207

MACRO v03.01

187
187
ASL
BIT
BEQ
RESREG
RTS

3%:
002000

1632
1633
1634
1635
1636
1637
1638

(R1)+
(RO)+
R4
#BITI10,R4
1%

SEQ 0149

JYES==UPDATE THE POINTER
JUPDATE FROM POINTER
JPOSITION THE TEST BIT
;DONE?
:NO==BRANCH
JRESTORE RO - RS
;RETURN

sTHIS ROUTINE IS USED TO CHECK IF AN
JASCI] CHARACTER IS A DIGIT BETWEEN O AND 7.
s CALL
:
MOV
#ADR,R1
;ADDRESS OF ASCII CHARACTER
:
JSR
RO,CK.OCT
sCHECK THE CHARACTER
3
RETURNI
sCHARACTER IS NOT BETWEEN 0-7
:
RETURNZ
sCHARACTER IS IN R2 AS A

}228

1641
1642
1643
1644
1645
1646
1647

612
11-APR-B0 15:01:20 PAGE 14=51

036264
036270
036272
036276
036300
036302
036306

}g:g 036310

121127
103407
121127
101004
111102
042702
005720

000060

177770

000200

1%:
\

}gg;

CAL

3
121127
103407
121127
10.004

111102
042702
005720
000200

000060

(R1),#'0
1%
(R1), #'7
1%
(R1),R2
¥ C7,R2
(RO)+
RO

;LESS THAN ZERO?
;YES == BRANCH
;GREATER THAN SEVEN?
;YES == BRANCH
sGET THE CHARACTER
;STRIP AWAY THE ASCII
;ADJUST FOR RETURN

:RETURN

1S USED TO CHECK AN ASCII

CHARACTER

:Q:DLDETERHINE IF IT IS A DIGIT BETWEEN O AND 9.
3
3
3

}gg;

CMPB
BLO
CMPB
BHI
MOvVB
BIC
18T
RTS

sTHIS ROUTINE
s

1653
1654
1655
1656

1663 036326
1664 036330
1665 036334
}ggg 036336

C(K.0CT:

000067

1650

1659 036312
1660 036316
1661 036320
1662 0363264

;OCTAL DIGIT

C(K.DEC:

000071

000060
1$:

MOV
#ADR,R1
JSR
RO,CK.DEC
RETURNI
RETURNZ
CMPB
BLO
CMPB
BHI
MOVB
BIC
18T
RTS

(R1),#'0
1%
(R1) ., #'9
1%
(R1) ,R2
#'0,R2
(RO)+
RO

sADDRESS OF ASCII CHARACTER
sCHECK THE CHARACTER
sNOT BETWEEN O AND 9
sBETWEEN 0 AND 9

:R2 = DIGIT

sLESS THAN ZERO?
JYES == BRANCH
sGREATER THAN NINE?
;YES == BRANCH

;GET THE CHARACTER
:STRIP AWAY THt ASCII
:ADJUST FOR RETURN
:RETURN

1668
1669
1670
1671

sTHIS ROUTINE WILL CHECK AN ASCII CHARACTER TO
JDETERMINE WHAT IT IS.
s CALL
:
MOV
#ADR,R1
;ADDRESS OF ASCI1 CHARACTER

1673

RETURN

2
:

RETURN
RETURN

1672

1674
1675

1676
1677

1678

}6;8
()

:
3

JSR

RO,CK.CHR

sCHECK CHARACTER

RETURN
RETURN

ADR2
ADR3

JCARRIAGE RETURN * (R1)=ADR+1
:SLASH * (R1)=ADR+1

RETURN

ADR1

ADR&
ADRS

ADRé6

;UNKNOWN CHARACTER

:COMMA * (R1)=ADR+1
;PERIOD * (R1)=ADR+1

;DIGIT BETWEEN O AND 9.

;R = DIGIT » (R1)=ADR+!

CZRMVAD RMOS5/3/72 EXT'D DR TST
INTEGER DivVIDE ROUTINE

1681
1682
1683
1684
1685
1686

036320
036342
036344
036350
036352
036356

105711
001420
121127
001414
121127
001410

1688 036364
1689 036366
1690 036372
1691 036374
1692 036376
1693 036400
1694 036402
1695 036404
1696 036406
1697 036410
}ggg 036412

001404
004037
000406
005720
005720
005720
005720
005720
005201
011000
000200

1687 036360

121127

MACRO v03.01

(K.CHR:

000057
000054

000056

W12
14~ 52

11-APR-80 15:01:20 PAG E
TSTB
BEQ
CMPB
BEQ
CMPB
BEQ

(R1)
4%
(R1),#'/
3%
(R1),0",
2%

;"'CARRIAGE RETURN'"?
sYES == BRANCH
"'SLASKH'"?
:YES == BRANCH
:"'COMMA'?
JYES == BRANCH

BEQ
JSR
BR
18T
18T
ST
18T
18T
INC
MOV
RTS

1%
RO,CK.DEC
5%
(RO)+
(RO)+
(RO)+
(RO)+
(RO)+
R1
(RO) RO
RO

JYES == BRANCH
J''DIGIT'"?
:NO == BRANCH
:DIGIT BETWEEN 0-9
:PERIOD
: COMMA
;SLASH
sCARRIAGE RETURN
;MOVE POINTER TO NEXT CHARACTER
sUNKNOWN CHARACTER
;RETURN

C(MPB

036312
1%:
2%:
3%:
($:
5%:

(R1) 92",

:"'PERIOD'"?

1700

sTHIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL

1703
1704
1705
1706
1707
1708
1709
};}?

s
:
:
3
3
:
3
:
:

};g;

1712
1713
1714
1715
1716
1717

SEQ 0150

;E:ARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2.

036414
036416
036420
036422
036424
036426

010446
010346
010246
005%0¢2
005003
005004

036434
036436
036440
036442
036444
036446
1719 036450
1720 036452
1721 036454
1722 036456
1723 036460
1724 036462

036564
036564
036564
036564
036564
036450
006303
010346
006303
006303
062603
060203

1718 036430

1725 036464

036470
036472
0364764
036476
036500
036502

004037

036564
036504
036564
036512
036510
036450

036340

MOV
MOV
JSR
RETURN
RETURN
RETURN
RETURN
RETURN

(K.DIG: MOV
MOV
MOV
CLR
CLR
CLR

JSR

1%:

036340

CALL

9%
9%
9%
9%
9%
1%
ASL
MOV
ASL
ASL
ADD
ADD
JSR

i
2%
9%
6%
33
1%

#ADR,R1
#NUM,R2
RO,CK.DIG
ADR1
ADR?2
ADR3
ADR4
ADRS

;ADDRESS OF ASCIZ STRING
sMAX. MAGNITUDE OF INPUT NUMBER
:CHECK DIGITS
:ILLEGAL CHARACTER == R2=?
:INPUT NUMBER TO LARGE == RZ2=?
:"'COMMA'' == R2 = NUMBER
;"PERIOD'' == R2 = NUMBER
:"PERIOD=PERIOD'' == R2 = NUMBER

R4 ,=(SP)
R3,=(SP)
R2,=(SP)
R2
R3
R4

;SAVE R4
:SAVE R3
;SAVE THE MAX.
:START WITH O

RO,CK.CHR

R3
R3,=(SP)
R3
R3
(SP)+,R3
R2.R3
RO,CK.CHR

SIZE ON THE STACK

;CHECK ONE CHARACTER

;ILLEGAL CHARACTER
: CARRIAGE RETURN
3

C et
s
:DIGIT 0-9
;2
;SAVE #2
4
.8
((*B)4(#2)=010,
JUPDATE THE INPUT NUMBER
:CHECK ONE CHARACTER

;ILLEGAL CHARACTER
: CARRIAGE RETURN
i
e
3 3
:DIGIT 0-9

PSS
S RS S SRS AWMWLAWIWIWIUWA
R SRS Sre =N
«o
[V IV IV, IV, IV IV ] VIV AWV
O~
sngg:vnnnnmnvnu—hflh)"CFJ‘fiUC)J‘hJCDiEiE mw

38:

4%:

036340

11-APR-B0

DEC

112

15:01:20 PAGE

14=53

;BACKUP THE CHARACTER POINTER

:CONTINE

18T
JSR
9%
7%

(RG)+
RO,CK.CHR

:""COMMA’* OR '‘CR"
sCHECK ONE CHARACTER
sILLEGAL CHARACTER
sCARRIAGE RETURN

18T

(R4)+

:"'PER]IOD"

5%:

177776

000054

6%
7%:

8%:

011000
000200

:.l/ll

:n‘u

:u.u

6%
TST

1STB
gso

(RG)+

(R1)
;:

:DIG!T 0-9
;"'PERIOD=-PERIOD""

CMPB
BNE
CMP

=2(R1) ,»',
9%
R3,(SP)

JWAS CHARACTER BEFORE
sNO=<=EXIT
JINPUT TO LARGE?

ADD

R4 ,RO

sADJUST RETURN ADDRESS

[E81

TST

MOV

TST
MOV
MOV
MOV
RTS

:"'CR'"M?
sYES==BRANCH

(RO)+

R3,R2

;NUMBER T0 R2

(SP)+
(SP)+,R3
(SP)+ R4
(RO) RO
RO
CHECKS AN ASCIZ

sCLEAN MAX. SIZE OFF
sRESTORE R3
JRESTORE Ré
sGET RETURN ADDRESS
JRETURN
STRING FOR LEGAL

rey
SREZRNSe rvornS
OSSO

STACK

CHARACTERS

MOV

#ADR,R1

sADDRESS OF

3
:
:
2

RETURN
RETURN
RETURN
RETURN

ADR1
ADR?2
ADR3
ADR4

sILLEGAL CHARACTER IN THE INPUT
:"'COMMA'" OR ''CR''==R2=NUMBER
;"'PERIOD''==R2=NUMBER
;"'PERIOD=PERIOD''==R2=NUMBER

R3,-(SP)
R3
RO,CK.OCT
6%

;SAVE R3
sSTART NUMBER AT ZERO
;OCTAL DIGIT?
sNO=-=-BRANCH

6%
R3
6%
R3

sDON'T LET

JSR

CK.NUM: MOV
CLR
JSR
BR
1%:

036264

INC
ASL
BCS
ASL

RO,CK.NUM

R1
R3

BCS
ASL
BCS
ADD

6%
R2,.R3

BR
BR
MOV
CLR
JSR

2%
1%
R3.R2
R3
RO,CK.CHR

JSR

2%:

036340

THE DIGIT A COMMA?

;YES == BRANCH

sAND FORMS AN OCTAL NUMBER IN R2
sCALL:

036264

SEQ 0151

sTHIS ROUTINE

g8B

So&IS \nghmnu-CM00l~u0flaJ~uuv-‘CMocl~u

2%:

9%:

46 036576

WSS
N =

MACRO v03.01

005301

[ - AV
I T
NOO
NS

ERRRRE.

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
P
(o o
e X X Y- IV IV IV AV AV AV AVAV AV V.Y O
NNNNNY
Wi

dd‘ddd‘ddflddddddd‘d—.—.ddd—ld-‘—.-‘-‘d‘d—‘fl-‘ddd-‘-‘-‘d—l—‘

/2 EXT'D DR TST
OUTINE

RO,Cx.0OCT

ASCIZ

STRING

;G0 FORM THE NUMBER

sMOVE TO NEXT CHARACTER
sFOR THE OCTAL NUMBER IN R3

IT GET

TO BIG

;1S THIS AN OCTAL DIGIT?

sNO==FIND QUT WHAT IT IS
JYES==-MAKE 1T PART OF THE NUMBER
sSAVE THE OCTAL NUMBER
sSTART WITH ZERO INDEX
:CHECK ONE CHARACTER
: ILLEGAL CHARACTER

STRING

CZIRMVAO RHOS/S/%O‘E";Y"‘g DR TST
INTEGER DiviDE

ROUTI

036656

036702

036660
036662
036664

036702
036666
036712

J 12

MACRO v03.01 11-APR-80 15:01:20 PAGE 14=54

036656 03671

1776 036666

1777 036670
1778 036676
1779 036676
1780 036700
1781 036702
1782 036706
1783 036706
1784 036710
1785 036712
1786 036714

1787 036716
1795

00572

121127
001002
005201
005723
005723
105711
001001
060300
012603
011000

000200

;CARRIAGE RETURN

5
3
6%

W
5
:Di6IT 0-9

000056

38:

48:
S$:

68:

IST

T
(R3)

:"PER10D""

(MPB
BNE
INC
IST
IST
1518
BNE
ADD
MOV

(RT),#"
5%
Rl
(R3)+
(R3)
(R1)
6%
R3,R0
(SP)+,R3

:"PERI0D-PERI0D""?
ENO=-BRANCH
:YES==ADVANCE THE POINTER
:"PER10D-PERIOD'"
S 'COMMATM
FCR'?
:NO=-BRANCH
:YES==SAVE THE OCTAL NUMBER
:RESTORE R3

RTS

:RETURN

MOV

(RO),RO

:PICKUP EXIT ADDRESS

SEQ 0152

CIRMVAO RMO5/3/2 EXT'D DR TST

MACRO vO03.
ga 11-APR-80 15:01:20 PAG 15

:10=AUG=77

;1980

;MAYNARD, MA 017564
;AUTHOR(S): JIM LACEY/CHUCK HESS/

b i

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

47
48
B

lD FOR RMOS terenennnn

wrreennnser

;COPYRIGHT (C) 1977
;:DIGITAL EQUIPMENT CORP.

; STORAGE SOR RMDS, RHER; RMER2, AND RMMR2 ON AN ERROR '‘2''
MERRS
=
:RMERRS+2 = RMER1
;RMERRS+4 = RMER?2
:RMERRS+6 = RMMR2

wereaverene

10°HAR'7° THE SC, SCS CHANGES

b
WNNONI NI NI NI NI NI NU NN

1980

TYPE ID FOR RM02 w#eensnnens

NEU DRIVE TYPE

036720

37
38
39 036740
42 036741
036742
036743
036744
036745
036746
036747
43

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2)

sNEW DRIVE

036730
2 036731
036732
036733
036734
036735
036736
036737
33
i
35
36

SEQ 0153

.SBTTL

i i

VONOWVNSWNN=O
V0N VNS NN = OO0V
NI NN —

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2)
1

000000

RMERRS:

.WORD

0,0,0,0

;TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)
;DRVACT=0 IF DRIVE

IS IDLE

;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND
;DRVACT<O IF DRIVE 1S ACTIVE WITH AN ERROR RECOVERY OPERATION
000
000
000
000
000
000
G00
000

DRVACT:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

;TABLE OF

0
0
0
0
0
0
0
0

:DRIVE
.DRIVE
;DRIVE
;DRIVE
:DRIVE
:DRIVE
;DRIVE
:DRIVE

DRIVE STATUS

INDICATORS

0
1
2
3
&
5
6
7

(DRVSTA=8 BYTES)

;DRVSTA=0 IF DRIVE 1S OFFLINE OR NONEXSITENT
;DRVSTA>0 IF DRIVE IS ONLINE
:DRVSTA<O IF DRIVE IS UNSAFE

000
000
000
000
000
000
000
000

DRVSTA:

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE

: TABLE OF

0
0
0
0
0
0
0
0

;DRIVE
;DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE

DRIVE TYPES (DRVTYP=8 BYTES)

0
1
2
3
&
5
6
7

;:DRVTYP=0 IF DRIVE 1S NONEXISTENT (DRVSTA=0, ALSO)
:DRVIYP=7 IF DRIVE IS RMQ5 wwwens
;DRVTYP=5 IF DRIVE IS RMO2 swxenn

;DRVTYP=4 IF DRIVE IS RMO3
;DRVTYP==1

IF NOT RMO5/3/2

CZRMVAD RMO5/372 EXT'D DR 157

MACRO v03.01

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2

50
51 036750
5¢ 036751
036752
036753
036754
036755
036756
. 036757

000
000
000
000
000
000
000
000

56
57
gs
60 036760
63 036761
036762
036763
036764
036765
036766
o 036767

1980

11=APR=-80

DRVTYP:

000
000
000
000
000
000
000
000

DPINT:

000
000
000
000
000
000
000
000

0
0
0
0
0
0
0
0

;DRIVE
;DRIVE
sDRIVE
:DRIVE
sDRIVE
sDRIVE
sDRIVE
sDRIVE

0
1
2
3
&
5
6
7

THAT A DUAL PORT REQUEST

IS NOT PENDING FOR THAT DRIVE

DPRQS:

.BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE

;DRIVE
;DRIVE
:DRIVE
;DRIVE
sDRIVE
:DRIVE
;DRIVE
JDRIVE

0
1
2
3
&
5
6
7

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

''DPB'' OF THE 1/0 OPERATION.

000000

80
8!
82
83

TRNSWT:

.WORD

sSEARCH WAIT KEYS (SRCHWT=1 WORD)
;THIS 1S 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.

sEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0.

000000

88
89

SRCHWT:

.WORD

sRM DRIVER ACTIVE FLAG (ACTDRvV=1 BYTE)
sACTDRV=0 IF DRIVER IS INACTIVE

0
1
2
3
&
§
6
7

sDPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

74
75

gg 037004

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE

;DPRQS=0 IF

g? 037002

;DRIVE
;DRIVE
;DRIVE
sDRIVE
sDRIVE
:DRIVE
sDRIVE
sDRIVE

SEQ 0154

sTABLE OF PENDING DUAL PORT REQUESTS

;3 037000

0
0
0
0
0
0
0
0

15-1

sTABLE OF DUAL PORT INITIALIZATION INDICATORS
sDPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE
sDPINT<O IF INITIALIZATION IS IN PROGRESS

69 036770
72 036771
036772
036773
036774
036775
036776
: 036777

.BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE

L 12

15:01:20 PAGE

sACTDRV>0 IF DRIVER IS ACTIVE

v00

ACTDRV:

.BYTE

;SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)

M lg
MACRO VO 3 01 11-APR-80 15:01:20 PAGE 15-2
SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) 1 9 80

109
110
1M
112
113 037016
116 037017

117
118
119
120
121

037020
037021
037022
037023
037024
037025

122
123
124 037026
125
126
127
128
129
130
131
132 037030
133

134
135
136
137 037032
140 037034

037036
037040
037062
037044
037046

000

ACTSTR:

.BYTE

SOF TWARE TIMER ROGUTINE I
SOF TWARE TIMER ROUTINE I

INACTIVE

ACTIVE

sUNLOAD FLAG (ULDFLG=8 BYTES)
;ULDFLG=0 IF NO UNLOAD COMMAND
;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS
;ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE
000
000

ULDFLG:

000
000
000
000
000
000

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0
0
0

0
0
0
0
0

:DRIVE 0
:DRIVE
:DRIVE

;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE

NOWN
S NN —

037013
037014
037015

sACTSTR=0 0 1|
sACTSTR>0 0 1

SEQ 0155

;LOOK AHEAD COUNT (LACNT=8 BYTES)
sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED
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
:DRIVE
;DRIVE
;DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE

0
1
2
3
&
5
6
7

sSAVE REGISTERS FLAG (SAVEFG =1 WORD)
sSAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE
sOPERATION IS COMPLETED AS PER (DPB+14).
;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER
:(DPB+14), AFTER AN ERROR.

000000

SAVEFG:

.WORD

;SEEK FLAG (SEEKFG=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 THE WINDOW
177777

SEEKFG:

.WORD

;TIMEOUT TABLE (TIMER=8 WORDS)
sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
177777
177777

177777
177777
177777
177777
177777

TIMER:

.WORD

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

-1

~1
-1
-1
-1
-1
=1

;DRIVE

:DRIVE
:DRIVE
:DRIVE
;DRI
;DRI
;DRI

OV
W
—O

95
96
97
98 037005
99
100
10}
102
103
104
105 037006
108 037007
037010
037011
037012

CZRMVAO RMO5/3/2 EXT'D DR TST

SINGLE/DUAL PORT RH/RM DRIVER

oooooooaoogagaooowwwwnwwflwwoooooooooo\nmumuumwmmraar»r»br
W =O VBNV
WN O OVRNOWVS NN =O VN
WS W
= OO0
NI NN —

—
Y
A
T

OVSWN =00V~

;DRIVE 7

DTUW:

.WORD

;ATTENTION BITS TABLE (ATABIT=8 BYTES)
:THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES
NN NN N NN N

sATTENTION BIT

00000000

177777

ATABIT:

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

;DRIVE 0

2
&
10
20
40
100
200

;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
&
5
6
7

:FSRM TO RH11/RH70 '‘MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE)

sCALLING IT FATAL (MCPEMX=1 WORD)
000003

WORD

SEQ 0156

- sDATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)
;DTUW<O IF NU DATA TRANSFER UNDERWAY
:DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

MCPEMX:

.WORD

ALLOWED BEFORE

:STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM),
sRMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)).

D
e
L
A

1980

177777

176700
000254

RMADR:
RMVEC:

000004

MXLACT:

001000

;MAXIMUM DELTA DELAY IS 8 SECTORS
MXDLTA: .WORD
8.*64.

000200

MNDLTA:

000005

MXWNDW:

Y
—————
RPN

MACRO_v03.01 11-APR-80 15:01:20 PAGg }g-S

(REV 6.2)

.WORD
.WORD

176700 .
254,5+32.

sMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD)
.WORD

(MXDLTA=1 WORD)

sMINIMUM DELTA DELAY IS 2 SECTORS (MNPLTA=1 WORD)
.WORD

2+64.

sMAXIMUM SEARCH FOR

.WORD

1/0 WINDOW IS 5 SECTORS

(MXWNDW=1

WORD)

sDEFINITIONS OF THE RH/RM ADDRESS INDEXES
000000

RMCS1=0

;CONTROL AND STATUS REGISTER #1

RMBA=4
RMDA=6

sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG.

RMW(C=2

RMCS2=10
RMDS=12
RMER1=14
RMAS=16
RMLA=20

000024

RMDB=22
RMMR1=24

(DRIVE REG. 00)

:WORD COUNT REGISTER (NOT A DRIVE REG)

:CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
:DRIVE STATUS REGISTER (DRIVE REG 01)
;ERROR REGISTER #1 (DRIVE REG. 02)

;ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04)
;LOOK AHEAD REGISTER (DRIVE REG. 07)
;DATA BUFFER REGISTER (NOT A DRIVE REG,)
;MAINTAINABILITY REGISTER (DRIVE REG. 03)

05)

B 13

' CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO_v03.01 11-APR-80 15:01:20 PAGE 15~4
| SINGLE/DUAL PCRT RH/RM DRIVER (REV 6.2) 1980

197
198
199

;:DRIVE TYPE REGISTER (DRIVE REG. 06)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)
;:DUMMY ADDRESS REGISTER (DRIVE REG. 13)
;MAINTENANCE REGISTER #2
;ERROR REGISTER #2 (DRIVE REG. 15)
;ECC POSITION REGISTER (DRIVE REG. 16)
17)
;ECC PATTERN REGISTER (DRIVE REG.

RMDT=26

RMSN=30
RMOF =32

RMDC =34
RMHR=36
RMMR2=40
RMER2=42
RMEC1=44
RMEC2=46

000046

.SBTTL

RH/RM DRIVER INITIALIZATION CODE

;THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE

sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
;7O THE PROPER STATE FOR EACH DRIVE.
sNOTE:

THIS ROUTINE CALLS DRVINT

PCALL

JSR

;

RETURN

PC.RMINIT

177776

'P'

MOV
MOV

177776

2%:

MOV
MOV
CLR
CMP

BLO
MOV

MOV

CMP
BLOS
CLR
CLR
CLR
CLR

PS,=(SP)

#DTUW,R2
#-1,(R1)+

R1,R2

DRVSTA

DRVSTA+2

DRVSTA+4
DRVSTA+6

RMVEC,R3
FISR,(R3)+
RMVEC+2, (R3)
RMADR,
R4

:gLR.RHCSZ(RA)
RO,DRVINT
4%

5%
DRVSTA(R1)
R1

#°C7,R1
3

177770

000007
177776
036760

CLOCK MUST BE STARTED

(R1)+
R1,R2
1%

037316
036740

PC,CLRQUE
#RMERRS
R
#SEEKFG,R2

MOV
MOV
MOV
MOV

000010

l<5-32.>.PS

JSR

1%:

6
200040

THE

RMINIT: SAVREG

25WUWNNNN‘“~—.~U‘N—.N-‘NNON

NNNNNOOOON=NNN=ONNNNNS
W
o
O ==NOWNWNINNONO NONOOWWES —
OO0
OO0OW
e
b R e Ty =t

NO
WO
-N

VAR
== RO VN

—

ON
= —=ON

—_—

53288823888 222228888 —‘°°°—‘°8 OOSOO-‘

W NS NOW
VNN
IN W
WA N= OO
S

Y
- ]

sNOTE:

—

200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221 037104
222 037106
223 037112
%24 037130
25 037126
226 037130
227 037134
228 037136
229 037140
230 037142
231 037146
232 037152
233 037154
234 037156
235 037162
236 037166
237 037172
238 037176
239 037202
240 037206
241 037212
24§ 037216
243 037224
24k 037226
245 037232
246 037234
247 037233
248 037264
249 037244
%SO 037250
51 037252
25§ 037256
253 037262

SEQ 0157

"”.mM

6%:

1578

P$S

DPINT(R1)

;SAVE RO - RS
sSAVE THE PRESENT PROCESSOR STATUS
:CHANGE THE PRIORITY TO0 §
sCLEAR ALL REQUEST QUEUES
sFIRST ADDRESS TO BE

CLEARED

sLAST ADDRESS TO BE CLEARED
sCLEAR
sARE WE DONE?
:BR IF NO
;LAST ADDRESS
JINITIALIZE
;DONE?
;LOOP IF NO
sSET ALL DRIVES TO OFFLINE

sSETUP THE RH/RM VECTOR

sFIRST ADDRESS OF RH/RM
+MASSBUS

INIT

sSTART WITH DRIVE 0

:INIT THE DRIVE
:'DVA* NOT SET OR PARITY ERROR
sNORMAL RETURN
sSET DRIVE STATUS TO OFFLINE
;GO TO NEXT DRIVE
:MASK OUT UNUSED BITS
:BR IF MORE DRIVES _TO GO
;START WITH DRIVE 7
;CLEAR THE PROCESSOR STATUS
;WAITING FOR DRIVE TO SWITCH PORTS ?

CZRMVAQ RMOS/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

254 037

001405

256 0372764
257 037300
258 037302
259 037304
260 037306
261 037312
ggg 037314

105761
001375
005301
100326
012637
104413
000207

MACRO v03.01 11-APR-80 15:01:20 PAGE 13
13-5
BEQ

255 ogr ?3 ooargr 064426
036760

JSR

7%:

1S18
BNE
DEC
BPL
MOV
RESREG
RTS

8s:

177776

264
265
266
267
268

:BR NOT WAITING

DPINT(RY)
7%
R1
6%
(SP)+,PS

sDRIVE SWITCHED PORTS ?
:BR IF NOT
160 TO THE NEXT DRIVE
sCHECK NEXT DRIVE
JRESTORE THE PROCESSOR STATUS
:RESTORE RO = RS
‘BYE-BYE

PC,SET.1E

:SET INTERRUPT

;DRIVE INITILIZATION ROUTINE
:THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
;AN RMOS/3/2. IF IT IS, A "READ=IN PRESET'' IS ISSUED AND FMT16
:1S SET TO A '"1''. THEN HOL, DPR, DRY, AND vV ARE CHECKED TO
:INSURE THEY ARE ALL ON A 1°'. AND DEPENDING ON THEIR STATE,

%gg

:%2VSYA IS SET TO THE PROPER CONDITION.
.

21
272
273
274
275

;
:
H
3
3

278 037316

010546

280 037324

105061

010164

279 037320

sm 8;7;?2
7

283 037340

105061

036740

105061

837008

112764

000111

284 037346
285 03735¢
286 037356
gg; 037362

032764
001403
004737
000520

289 037364
290 037370
531 037376
i 037400
534 037404
0374
295 03741
336 037412

105061
032764
001750
004037
000026
037650
01%605
112761

298 0376426
037426
037432

001431
022705
001426

? 037420

1 037434

; 037442

037446
03745
S 037454
037456

3§7534

308
037470
309 037472
310 037476

022705

112761

022705

001420
022705
001415
115761

35 705

00107
022705
001404

010000

DULP:

000000

000010

000000

043736

00000&¢
020024

036750

024024
000005

020025

036750

024025

000007

020027

024027

036750

CLRB

1%:

RS,=(SP)

DRVSTA(RY)

DRVTYP(RY)

:DRIVE NUMBER TO R1
sUNIBUS ADDRESS OF RM/RM (RM(CS1)
JCALLED BY A JUSR
JERROR OCCURRED (PARITY)
sNORMAL RETURN
:SAVE RS

sSTART DRIVE STATUS AS OFFLINE

sCLEAR THE DRIVE TYPE INDICATOR

CLRB

ULDFLG(RY)

sCLEAR THE UNLOAD FLAG

MOVB

#111,RMCS1(R4)

:DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE)

MOV

044426

036740
004000

MOV
#DRVNUM,R1
MOV
RMADR ,R&
JSR
RO,DRVINT
RETURN1
RETURNZ

DRVINT: MOV

036750
001

CALL

R1,RMCS2(R&)

JSELECT A DRIVE

BIT
BEQ
JSR
BR

#BIT12,RMCS2(R&)
JNONEXISTENT DRIVE?
1%
:NO
PC,SET.IE
;60 SCT "'IE'" WITHOUT A "'TRE"
63
:LEAVE T#1S ROUTINE

CLRB
BIT
BEQ
JSR
RMD T
8%
MOV
MOVB

DRVSTA(RY)
sSET DRIVE STATUS TO OFFLINE
#BIT11,RMCST(RG)
JSEE 'F DRIVE AVAILABLE
DULP
J8R IF DRIVE NOT AVAILABLE
RO,RD.RM
JREAD THE DRIVE TYPE REG.
'
JERROR RETURN ADDRESS
(SP)+ RS
;PUT DRIVE TYPE IN RS
#/ "“RVIYP(R1)
:SET RMO3 INDICATOR

BEQ
CMP
BEQ

2»
#24024 RS
2

CMP

MOVB

CMP

BEQ
CMP
BEQ
MOVB

CMP

BEQ
CMP
BEQ

£t

24,RS

:SINGLE PORT RMO3 ?

#5,DRVIYP(R1)

:SET RMO2 INDICATOR

#20025,RS

28
#24025,RS
2%
#7,DRVIYP(R1)

#20027,RS

2%
#24027,RS
2%

‘BR IF YES
:DUAL PORT RMQ3 ?
‘BR IF YES

:SINGLE PORT RM02 ?

:BR IF SO
:DUAL PORT RMQ?2 ?
:BR IF SO
:SET RMOS INDICATOR

:SINGLE PORT RMQS ?
‘BR IF YES
;DUAL PORT RMQS ?
‘BR IF YES

SEQ 0158

CZRMVAO RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

g}i 037206 000446
11 037500

112761

14 037510

012746

315 037514
316 037520
317 037522
318 0375264
319 0375
320 037534
321 037536
322 037540
323 037544
324 037546
325 037550
326 037552
327 037554
328 037562
329 037566
330 037570
331 037572
332 037574
333 037576
ggg 037604

004037

037650
012746
004037
000032
037650
004037
000012
037650
012605
100015
116164
004037
000014
0./650
006126
100004
112761
000407

336 037606
337 037610
338 837615
339 037616
340 0376264
341 037626
342 037630
343 037632
344 037640
345 037642
346 037650
g:; 037652

005105
042705
001003
112761
005720
000410
006301
012761
006201
112761
012605
000200

177777

MACRO v03.01
036750

000121

2%:

044116
010000
044116
043736

037054

043736

177777

000016

036740
6%

167077

000001

036740

060000

037032

177777

036760

6% :
7%:

8%:

D13

11-APR=B0 15:01:20 PAGE 15-6
MOVB

#-1,DRVTYP(R1)

;SET

MOV

#121,-(5P)

;D0 A "READ=IN PRESET"

#BIT12,-(5P)
RO,WRT.RM

:SET FMT16=1

RO,RD.RM

:READ RMDS

RO,WRT.RM

JEXIT

SEQ 0159

INDICATOR TO 'OTHER'

JSR
RMCS
8s
MOV
JSR
RMOF
8%
JSR
RMDS
B4
MOV
BPL
MOVB
JSR
RMER1
8s
ROL
BPL
MOVB
BR

(SP)+
X3
#-1,DRVSTACRY)
6%

coM
BIC
BNE
MOVB
ST
Pk
ASL
MOV
ASR
MOVB
MOV
RTS

RS
:CHECK MOL, DPR, DRY, AND VvV
#*C<BIT12'BITO8!BIT07'BIT06>,RS
33
:BR IF MOL, DPR, DRY, OR vV IS CLEAR
#1,DRVSTA(RY)
;SET DRIVE STATUS TO ONLINE
(RO)+
;STEP OVER THE ERROR RETURN
8%
JEXIT
R1
;CHANGE INDEX TO ADDRESS WORDS
#60000,TIMER(RY)
;START 2 SEC TIMER
R1
;RESTORE R
#-1,DPINTC(RY)
;SET PCRT INITIALIZE INIDICATOR
(SP)+,RS
:RESTORE RS
RO
JEXIT

(SP)+,RS
sAND SAVE IT IN RS
33
:BR IF ATA=0
ATABIT(R1) ,RMAS(R&)
:CLEAR ATTENTION BIT
RO,RD.RM
:FIND OUT WHY ATA=1
;1S 1T UNSAFE?
:BR IF NOT
;SET UNSAFE INDICATOR
EXIT

ggg

;REQUEST PRE=-PROCESSOR-HANDLES SUBSYSTEM REQUEST

gg;

:CALL

353

155

354,

gg;

359 037654
360 037660
361 037666
ggg 037676
037676

013746
013737
112737
104412
011002

S 037706
366 037706
367 037712

11101
013704
105761

gg& 037700

005062

177776
037072
000001

000016
037066
(36740

177776
037004

JSR

PNTADR

RE TURNZ2

RMOS:

RO,RMOS

RETURN1

:CALL THE RMOS DRIVER

:ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK

:RETURN HERE

IF QUEUE

IS FULL

;RETURN HERE IF REQUEST IS IN QUEUE OR THERE

;15 AN ERROR CONDITION

MOV
MOV
MOVB
SAVREG
MOV

PS,=(SP)
RMVEC+2,PS
#1,ACTDRY

(RO) ,R2

:SAVE THE CALLING STATUS
:DON'T ALLOW ANY RM INTERRUPTS
;SET ""ACTIVE DRIVER' FLAG
;SAVE RO - RS
:PICKUP THE DRIVE PARAMETER BLOCK POINTER

MOvVB
MOV
1518

(R2) ,R1
RMADR ,R&
DRVSTA(RY)

;PICKUP THE DRIVE NUMBER
:UNIBUS ADDRESS OF RM(S!
;CHECK DRIVES STATUS

CLR

16(R2)

SCLEAR THE STATUS/ERROR INDICATOR

CZRMVAO RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

;28 037716
9 037720
gro 037726
71 037726
S?i 037732
37 0%77
376 037740
375 037742
376 037746
377 037750
378 037754
379 037756
380 037762
381 037766
382 037770
383 037776
384 040000
385 040006
386 040012
387 040014
388 060020
389 040022
390 040030
391 040032
392 040036
393 040040
394 040044
95 8:8863
96
b
397 040054
040060
399 040062

003014
105761
0010
105761
00104;
00403
000434
105761
003445
105761
001031
010164
004037
000460
122762
001003
112761
105761
001043
004737
000440
012762
000434
004737
000431
004037
000431
832716
1023
004737
000420
105761

400
040066
401 040070
402 040076

002412
012762
105761

4046 040104
405 040112
406 040114
407 0640122
408 0401264
409 040126

012762
000403
012762
104413
005720
000401

403 040102

410 040130

41 040132
412 040134
613 060140
:}g 040144

001007

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

037006
036760

037316
036740
036770

1%:

000010
045070

000103

000002

177777
036730

037006

040146
120000

000016

3%:

041226

045070

5%:

000100

044426
036740

6%:

140000
036750

000016

100002

000016

110000

000016

104413

005720
105037
012637
000200

2%:

73:
8%:

9%:

108:

037004
177776

BGT
1S18B
BNE
1S18B
BNE
JSR
BR
1S18
BLE
1STB
BNE
MOV
JSR
BR
CMPB
BNE
MOVB
1STB
BNE
JSR
BR
MOV
Br
JSR
BR
JSR
BR
BT
BNE
JSR
BR
1S18

8%
PC,C17
8%
RO,DRVQUE
9%
#B1106, (R&)
8%
PC,SET.IE
8%
DRVSTA(RY)

:PUT REQUEST IN QUEUE
;QUEVE IS FULL
:1E BIT SET ?
JYES
sSET THE INTERRUPT
;RETURN
;SEE IF DRIVE OFFLINE OR UNSAFE

BNE

;BR IF OFFLINE

BLTY
MOV
1STB

MOV
BR
MOV
RESREG
18T
BR

RESREG

ST
CLRB
MOV
RTS

1%
ULDFLG(RY)
3%
DPINT(RY)

5%
RO,DRVINT
6%
DRVSTA(RY)
6%
DPRAS(R1)
5%
R1,RMCS2(R4)
RO ,DRVQUE
5%
#103,2(R2)
2%
#=1,ULDFLG(RT)
DRVACT(RY)
8%
PC,OPT
8%

;BR ]F ONLINE
JUNLOAD COMMAND IN QUEUE?
:BR IF YES
sTRYING TO INIT THE DRIVE
:BR IF YES
;60 INIT. THE DRIVE
:ERROR RETURN
;1S DRIVE STATUS ONLINE?
:BR IF NOT
JOUTSTANDING PORT REQUEST FOR THE DRIVE ?
:BR IF YES
;SELECT THE DRIVE
sPUT THIS REQUEST IN QUEUE
;QUEVE 1S FULL
;1S THIS REQ. FOR AN UNLDAD?
;BR IF NO
;SET THE '"'UNLOAD IN QUEUE'' FLAG
;1S THIS DRIVE ACTIVE?
:BR IF YES
sCALL THE OPTIMIZER

#BIT15!BIT13,16(R2)

;SET THE "'UNLOAD IN QUEUE'' ERROR FLAG
JEXIT
;60 HANDLE THE PARITY ERROR

7%
;BR IF UNSAFE
#BITIS'BIT14,16(R2)
;SET OFFLINE ERROR INDICATOR
DRVTYP(R1)
;SEE IF OFFLINE OR NONEXISTENT
#BIT1S'BITO1,16(R2)
:REPORT DRIVE NONEXISTENT
8%
;60 TO EXIT
#BIT1S'BIT12,16(R2)
sDRIVE IS UNSAFE
JRESTORE RO - RS
(RO)+
;SETUP FOR NORMAL RETURN
10%
JFINISH UP,
THEN EXIT

(RO)+
ACTDRY
(SP)+,PS
RO

sRESTORE Rb - RS

;CORRECT THE RETURN ADDRESS
;CLEAR "'ACTIVE DRIVER'' FLAG
JRETURN "PS"" TO USER LEVEL
:RETURN TO CALLER

:}9

;OPTIMIZER=CALLED FOR A PARTICULAR DRIVE

418
419
45?

s CALL
:
[

622 060146
423 040150

4264 0640154

104412
013746

146137

177776

(37054

OPT:

037002

SEQ 0160

MOV
JSR

#DRVNUM,R1
PC,OPT

:DRIVE NUMBER 10 R
JSETUP A COMMAND

SAVREG
MOV

PS,=(SP)

;SAVE RO - RS
:SAVE PROC. STATUS

BI(B

ATABIT(R1),SRCHWT

:CLEAR LA SEACH FLAG

CZRMVAO RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

425 040162
426 040166

105061
004737

430 040202
631 060210

012764
032764

427 040172
428 040176
6%9 0&0176

00570
00147
010164

63% 060216
060220
434 060226
435 040226

001446
105761
003014
004737

437
438
639
440
441
L62
463

105761
100053
Q12762
000647

036 060232

040240
040244
040246
040254
040256

012762

MACRO v03.01

036770
045144
000010

000111
004000

CLRB
JSR

000016

110000

000016

444
445

47
448 040256

122762

000150

450 0640266
451 0640272

004737
000440

040612

454
455
456
457
458
459

005737
100404
004037
000427
000403
004737

449 060264
0602764
040300

040302
040306
040310
040314
040316
040320

460 06032¢
461 040326
462 040332
463 0640334
464 0640342
465 040344

466 060346
467 0603564

040356
040362
040366
0640370
060374
0460400

2;2 040602

476
477
<78
479
480
481

002403

005737
002012

000423
004737
000420
112761
010103
006303

012763
000402

004737
032714
001002
004737
012637
104413

000002

037052

BIT

041564

040404

040512

A ¥

177777

036770

060000

037032

5%:

041226
000100

6%:
7%:

044426
177776

8%:

000207

:RESET THE PORT REQ FLAG #ees
:GET "'DPB" POINTER OF REQUES!

5%
DRVSTA(RY)

;70 PROT REQUEST ,IF NOT
lS DRIVE ONLlNE’
‘YES
NO--REHOVE REQUEST FROM QUEUE

RM(CST
6%

BEQ
CMPB

#1711, RMCST1(RG) :CLEAR THE DRIVE
#B1T11,RMCST(RG)
:DVA SET ?

IBlTIS BIT14, 16(R2)

#111,-(SP)
RO,WRT.RM

PC,Cl&
8%

CALL THE COMMAND INITIATOR
;BR TO EXIT

#BIT11,(RG)

18T
BGE

DTuwW
4%

ST
BM]
JSR
BR
BR
JSR

BR
JSR
i
MOVB
MOV
ASL

MOV
BR

JSR
BIT
BNE
JSR
MOV
RESREG

SEEKFG
38
RO,LA
8%
4%
PC,CIN

8s
PC,.CI3
8%
#-1,DPRQS(RY)

YES

;DATA TRANSFER UNDERWAY?
;YES==GO START A SEARCH

:D0 IMPLIED SEEKS?
SYES
sNO==-DO LOOK AHEAD
sRETURN HERE ON A PARITY ERROR
;G0 START A SEARCH
;START A DATA TRANSFER

;START A SEARCH
:GO TO THE EXIT
sSET PORT REQUEST INDICATOR
R1,R3
;SET UP TO ADDRESS WORDS
R3
:CONVERT TO WORD INDEX
#60000, TIMER(R3)
;START 10 SEC TIMER
7%
GEXIT
PC,CI7
JPROCESS THE PARITY ERROR
#B1106, (R&)
JSEE IF 'JE' ALREADY SET
8s
:BR_IF SET
T
. 387,18
JSET "'IE'"
WITHOUT A
''TRE
(SP)+,PS
;RESTORE PROC. STATUS
:RESTORE RO - RS
PC

;COMMAND INITIATOR
:
s CALL
2
MOV
#DRVNUM, R
s
MOV
#DPB,R2
JSR

sLOAD COMMAND ONTO THE STACK
;LOAD THE REGISTER

9%
#150,2(R2)

JSR
BR

JSET OFFLINE STATUS/ERROR INDICATOR

JREGISTER INCREMENT
;ERROR RETURN ADDRESS
;DRIVE AVAILABLE ?
:BR IF NOT
;1S _THE REQUEST FOR 1/0?

BLT

RTS

;1S THERE A REQUEST IN QUEUE?
‘NO-=BR TO EXIT
JLOAD THE DRIVE ADDRESS reveeee

DRVSTA(RY)
:18 DRlvE UNSAFE ?
.} 3
BR TO EXIT IF NO!
#BIT1S!BIT1Z, 16(R2)
sSET UNSAFE STATUS/ERROR INDICATOR
8%
;BR T0 Ell!

037030

DPRAS(R1)
PC,GETREQ
L]
7%
R1,RMCS2(R4)

1ST18B
BPL
MOV
BR
MOv
JSR

2%:

SEQ 0161

13
PC,POPQUE

1%:
3
3

15-8

BEQ
1S1B
BGT
JSR

MOV

:
$

L46

468
469
470
471
472
473

MOV
BIT

10%:

140000

036740

187
BEQ
MOV

000000
000000

036740
045166

F13

11-APR-B0 15:01:20 PAGE

PC,C1?

;DRIVE NUMBER
;ADDRESS OF DPB
:C172=

C11,C13,

OR (14

CZTM“VAO RM05/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

MACRO v03.01

613
11-APR-80 15:01:20 PAGE 15-9

SEQ 0162

482

;

:WHERE:

484

:
3

“C12=SEARCH REQUESTED BY DATA XFER

483

232
487 060404
488 040410
489 040414
490 060416
491 0606422
492 040626
493 0406432

004737
010237
010203
013704
010164
062703
062704

495
496
497
498
499

012324
012346
004037
000006
041226

494 060636
060640
0460442
040646
040450
060452

012326

500 0404564
501 060456
502 040462
503 060464
506 0406466
505 0406472
506 040476
507 040500
508 040502

012346
004037
000034
041226
016246
004037
000000
041226
010137

§10 060512
511 040516
§12 060522
513 060526
514 040532
515 060534

013704
010164
016246
004037
000034
041226

509 0405

516 060536

517

137

116203

045166
037000

CIl:

522 040550
523 060556
524 040562
525 040564
526 060566
527 040572

116266
004037
0000
041226
012746
004037

521 040544

528 040576
529 040800

530 060602
531 040610
532 060612
533 040616
§34 060622
535 060626
536 060632
53/ 060634
538 040640

042716

MOV
MOV
JSR
RMDA
17

044116

MOV
JSR
RMDC
17
MOV
JSR
RMCS1
c17
MOV

044116
000002
044116

037052

041170

037066
000010
000012
044116

CI13:

000010

00
041226
156137
000567
013704
010164
ltogos
122703
001007
016246
004037

177740

000011
044116

:
;
is:
000001

000131
044116

037054
037066
000010
000002
000131

000010
(044116

JSR
MOV

MOV

:
010346

:C164=NOT DATA TRANSFER

MOV
MOV
MOV
ADD
ADD

037066
000010
000004
000002

518

519
520 040542

:C11=DATA TRANSFER

JMP

MOV
MOV
MOV
JSR
RMDC
ci7

MOVB

Clé:

;REMOVE REQUEST FROM 'DRIVES WAIT'' QUEUE
:PUT REQ. IN TRANSFER WAIT QUEUE
:DPB ADDRESS TO R3
:RMCS1 ADDRESS
SSELECT DRIVE
:DESIRED WORD COUNT
:RMWC ADDRESS

(R3)+, (R4)+
(R3)+,=(SP)
RO.WRT.RM

:LOAD BUFFER ADDRESS
;LOAD SECTOR AND TRACK
:CALL THE LOAD(WRITE) ROUTINE
:INDEX OF REGISTER TO LOAD
:ERROR RETURN ADDRESS

(RE)+, (RG)+

(R3)+,=(SP)
RO,WRT.RM

*LOAD WORD COUNT

*LOAD CYLINDER ADDRESS

2(R2),=(SP)
RO,WRT.RM

:LOAD ""COMMAND+GO'', "‘A178A16'', AND 'PSEL"’

R1,DTUW

:SET "'DATA TRANSFER UNDERWAY''

RMADR , R4

:RMCS1 ADDRESS
SSELECT DRIVE
:DESIRED CYLINDER ADDRESS

10(R2),R3

:P1CKUP SECTOR ADDRESS

R1,RMCS2 (R4)
12(R2),=(SP)
RO,WRT.RM

SUB

MXWNDW.R3

ADD
MOV

#32.,R3
R3,-(SP)

;COMBINE THE ADJUSTED SECTOR WITH

MOVB
JSR
RMDA
c17
MOV
JSR

11(R2),1(SP)
RO,WRT.RM

:THE DESIRED TRACK
:LOAD DESIRED TRACK & SECTOR

#131,-(SP)
RO,WRT.RNM

:START A SEARCH

BGE

BIC

RMCS?
c17

037002

PC,POPQUE
R2.TRNSWT
R2,R3
RMADR , R4
R1,RMCS2 (R&)
#4 . R3
#2 R4

BISB
BR
MOV
MOV
MOVB
(MPB
BNE
MOV
JSR

#177740, (SP)

*BACKUP BY MAX. SEARCH FOR 1/0 WINDOW

:CHOP OF ALL EXENTED BITS ,IF ANY

‘

5
iz
ATABIT(R1),SRCHWT
:SET
""SEARCH WAIT''
KEY
15
RMADR , R4
:RMCS1 ADDRESS
R1,RMCS2(R&)
:SELECT DRIVE
2(R2),R3
:PICKUP THE REQUESTED COMMAND
#131,R3
:1S IT A SEARCH COMMAND?
1%
:BR IF NO
10(R2),=(SP)
*LOAD DESIRED TRACK & SECTOR
RO,WRT.RM

CZRMVAD RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

539 040644
5640 0460646
541 040650
542 040652

543 040656
544 040660
S 060664
546 040670
547 060672
548 0460674
549 040676
550 040702
551 040704
552 040710

000006
041226
000403
122703

001007
016246
004037
000034
041226
000546
122703
001013
004037
000032

553 040712
554 040714
555 040720
556 040724
557 060726
558 040730
559 040732
560 040736
561 040740
562 040744
563 040746
564 040752
565 0640754
566 040762
567 040766
568 040774
569 040776
570 041002
571 061004
572 041006
573 041010
576 041014

041226
116216
004037
000032
041226
000530
122703
001525
122703
001522
122703
001016
112761
105061
112761
010346
004037
000000
041226
000207
122703
001014

576 041022
S77 041026
578 041026
579 041034
580 041040
581 041042
582 041044
583 041046
584 041052
585 041054
586
587 041060
588 041066
589 041072

000032
041226
116266
004037
000032
041226
000436
122703
001023
016203

591 041100

041226

575 061016

590 041076

004037

116237
116205
004037

000000

000105

1%:

000012
044116

2%:

000115

3%:

043736
000001
044116

000107

000103
000001
036740

000001

036730

037006

044116

000143

5%:

043736

H13
11-APR-80 15:01:20 PAGE 15=10

RMDA
17
B
(MPB

BNE
MOV
JSR
RMDC
c17
R
CMPB
BNE
JSR
RMOF

€17
MOVB
JSR
RMOF
c17
BR
CMPB
BEQ
CMPB
BEQ
CMPB
BNE
MOVB
(LRB
MOVB
MOV
JSR
RMCST
cl17
RTS
(MPB
BNE

PC
#143,R3
6%

:RETURN T0O USER
1S IT A "'SET FORMAT'' COMMAND?
;BR 1F NO

1(R2),1(SP)
RO,WRT.RM

;COMBINE "'FMT16'',"'ECI'', AND ""WCI"'
;LOAD ''FMT16'", "ECI'', AND/OR "'WC1''.

12%
#141,R3
108
6(R2),R3
10(R2),9%
11(R2) RS
RO,RD.RM

;
;1S 1T A "'GET REGISTER'' COMMAND?
:BR IF NO
:POINTS TO 1ST ADDRESS OF WHERE
;10 PUT THE REGISTER(S)
JINIT. THE INDEX FOR THE FIRST REG.
:INDEX OF LAST REG. TO MOVE
:READ RH/RM REGISTER

MOV
(MP

(SP)+,(R3)+
9% RS

:GET THE CONTENTS OF RH/RM REG.
;LAST REG. BEEN READ?

ADD

#,9%

:INCREASE THE

000006

7%:

8%:

MOVB
MOVB
JSR

041076

595 041112

062737

(00002

041076

9%:

041076

;1S 1T AN "OFFSET'' COMMAND?
:BR IF NO
:MERGE THE OFFSET VALUE INTO RMOF
:BUT DON'T CHANGE THE UPPER

:GO START THE COMMAND
1S 1T A "RECALIBRATE'' COMMAND?
:BR IF YES
;1S 1T A RETURN TO CENTER?
:BR IF YES
;1S IT AN "'UNLOAD'' COMMAND?
:BR IF NO
;SET THE DRIVE ACTIVE INDICATOR
:PUT DRIVE STATUS TO OFFLINE
;SET "UNLOAD IN PROGRESS'' FLAG
;START THE "'UNLOAD'' COMMAND

6%:

000010
000011
043736

clé
#115,R3
s
RO,RD.RM

:BR IF NO
;LOAD DESIRED CYLINDER

clé
#107,R3
clé
#117,R3
clé
#103,R3
5%
#1,DRVACT(RY)
DRVSTA(RY)
#1,ULDFLG(RT)
R3,=(SP)
RO,WRT.RM

JSR

000001

b1
12(R2),=(SP)
RO,WRT.RM

;GO LOAD CYLINDER
;1S IT A SEEK COMMAND

;BYTE WHEN LOADING THE
;REGISTER (RMOF)

000141

000001
044116

2%
#105,R3

SEQ 0163

1(R2),(SP)
RO,WRT.RM

RMOF
c17
MOVB
JSR
RMOF
c17
Bk
CMPB
BNE
MOV

012623
023705

001414

000117

392 061102
593 041104

594 061110

MACRO v03.01

RM(CS1
17

BEQ

RO,RD.RM

12%

;READ THE OFFSET REGISTER

INDEX OF REG. TO READ

SGET OUT IF YES

INDEX BY 2

CZRMYAD RMOS5/3/72 EXT'D DR T1S7T

RH/RM DRIVER

INITIALIZATION CODE

596 041120
597 061122
598 041126
599 0611
600 041132
601 04113¢
602 041140
603 041142
604 061146
605 041154
606 041160
607 041162
608 041166
609 041170
610 0641172
611 041200

612 061202
613 041210
6146 041212

615 041214
616 041220
617 061222
618 041224
619 041226
620
621 041234
622
623 041%36
624 041240

625 0641242

626
627 0641250

628 0641254
629 041260
630 041262
631 041264
632 0641270
633 041274
634 041300
635 0641304
636
637 0641310
638 041312
639 061316
640 0641324
641 0641326
642 041330

6463

644 041336
645 041340
646 0641342
647
648 041346
649 0641350
650 041354
651 0641356

652 0641362

000764
122703
001405
010346
004037
000000
o«1z§o
004737
05272;
0057
1
;
00473
000%07
006301
012761
006201

112761
000207
010346
004037
000000
041226
000761
032764

MACRC v03.01

000145

108:
11%:

044116
045166
000200
037026

000016

044310
060000

037032

000001

036730

12%:

13%:
C15:

Clé:

044116

010000

000010

<CI7:
3
1%:
-

012762

104000

000016

2%:

012746
004037
000000
041326
004737
105061
105061
105061
020237

000111
044116

005702
001001
000207

001005
005037
012737
000207
104412
032764

005001
005003
105761
001003
105761
001443
013702

020137

045050
036770
037006
036730
037000

2%:

037000
177777

037052

010000

000010

036730

2
C178:

1%:
Cl18:

3
1%:
3

036770
037000

(37052

22%:

] 13
15-11

11-APR=B0

15:01:20 PAGE

BR
(MPB
BEQ
MOV
JSR
RM(ST
c17
JSR
BIS
187
BPL
JSR
RTS
ASL
MOV
ASR

8%
#145,R3
12%
R3,=(SP)
RO,WRT
RM

MOvVB
RTS
MOV

JSR
RM(S1
c17
B
BIT
BNE
187
BEQ
BNE
RTS

;LOOP==MORE TO READ
;1S IT A "'SELECT DRIVE'' COMMAND?
;BR IF YES
:LOAD THE COMMAND

PC,POPQUE
;REMOVE REQ. FROM QUEUE
#BIT07,16(R2)
JSET THE "'DONE'' BIT
SAVEFG
:SAVE THE RH/RM REGISTERS?
138
;BR IF NO
PC,SVRHT70
sYES==GO SAVE THE REGISTERS
PC
:RETURN TO USER
R1
#60000, TIMER(RY)
:SET A ONE SECOND TIMER
R1
#1,DRVACT(RT)
;SET THE DRIVE ACTIVE
PC
:RETURN TO THE USER
R3,=(SP)
:LOAD THE (OMMAND
RO,WRT.RM
c1s
#BIT12,RMCS2(R4)
;DRIVE NON=-EXISTENT
cl18
;BR IF YES
R2
JANYTHING IN QUEUE ?
c17e
:BR IF NOT
2%
;BR IF QUEUE 1S THERE
PC
;OTHERWISE EXIT

MOV

#BIT1S!'BIT11,16(R2)

JSR
RMCS1
c18
JSR
CLRB
CLRB
CLRB
(MP
CMP
BNE
CLR
MOV
RTS
SAVREG
BIT

RO,WRT.RM

JSR
MOV

BNE

CLR
CLR
TSTB
BEQ
BNE
1S18
BEQ
MOV

(mMP

SEQ 0164

:SET "PARITY'" ERROR INDICATOR

PC,SVRH70
#111,-(SP)

;G0 SAVE THE RH/RM REGISTERS
;DO A "DRIVE CLEAR'

PC,EMPTYQ
DPRQS(R1)
ULDFLG(RY)
DRVACT(R1)
R2,TRNSWT
R1,DTUW
1%
TRNSWT
#-1,DTUW
PC

EMPTY THE QUEUE
;CLEAR THE PORT RFQUEST FLAG
JCLEAR THE UNLOAD ‘N QUEUE FLAG
sDRIVE IS IDLE
:1F THIS DRIVE HAD AN 1/0 REQUEST
:1F THIS DRIVE HAD AN 1/0 REQUEST
:IN PROGRESS CLEAR ALL OF THE FLAGS

#BIT12,RMCS2(R4)

:SAVE RO - RS
;1S "NED' SET ?

R1
R3
DRVACT(R1)
5%
22%
DPRQS(R1)
5%
TRNSWT ,R2

;DRIVE ACTIVE?
sBR IF NO
sBR IF IN ACTIVE
;PORT REQUEST
:BR_IF NOT
;;GET THE ''TRANSFER WAIT''
QUEUE

R1,DTUW

:BR |F YES

;:DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?

CZRMVAQ RMO5/3/2 EXT'D DR TST

RM/RM DRIVER

INITIALIZATION CODE

653 041366
654 0641370
655 0641374
656 041376
657 041400
658 041406
659 041410
660 041416
661 0416420

662

663 0616426

664 041434
665 041440
666 041444
667 041450
668 0641452
669 041460
670 041464
671 041470
672
673 041476
674 041500
675 041506
676 0641510
677 061512
678 0641520
679 061524
680 0415;2
681 041536
682 041540
683 041544
684 041550
685 041554
686 0641560
23; 041562

00140
00473
00570
00141
032764
001404
012762
000403

MACRO v03.01

0465144

2%:

010000

000010

100002

000016

012762

102000

000016

3%:

012763

177777

037032

4s$:

177777
037000
037006
010000

037052

105061
105061
020137
001005
012737
005037
105061
032764
005201
062703
042701
001314
012737
005037
004737
012764
000406
004737
105061
105061
004737
104413
000207

036730
036770
037052

000010

5%:
3

000002
177770
177777
037000
044772

000040

037052

000010

045050
036740
036750
044426

6%:
7%:

689
690
691
692

gg;

2%
:BR IF YES
PC,GETREQ
;GET THE DPB POINTER
R2
;QUEUE ENTRY FOR DRIVE ?
48
‘BR IF NOT
#BIT12,RMCS2(R4)
:'NED' SET ?
38
:BR IF NOT
#BITIS!'BITO01,16(R2)
sSET "DRIVE NON=EXISTENT' INDICATOR
48
: CONTINUE

CLRB
CLRB
CMP
BNE
MOV
CLR
CLRB
BIT
BNE
INC
ADD
BIC
BNE
MOV
CLR
JSR
MOV
BR
JSR
CLRB
CLRB
JSR
RESREG
RTS

DRVACT(RY)
sSET "DRIVE ACTIVE'' TO IDLE
DPRQAS(R1)
;CLEAR PORT REQUEST FLAG
R1.DTUW
;1S THIS DRIVE SETUP FOR A TRANSFER
5%
‘BR IF NOT
#-1,DTUW
JRESET THE INDICATOR
TRNSWT
;CLEAR THE TRANSFER QUEUE
ULDFLG(RY)
;CLEAR UNLOAD FLAG
#BIT12,RMCS2(R4)
:'NED' SET ?
6%
:BR IF YES
R1
;MOVE TO THE NEXT DRIVE
#2,R3
#AC7 R
1%
:BR IF MORE DRIVES
#-1,DTuw
*NO DATA TRANSFERS UNDERWAY
TRNSWT
:CLEAR THE 'TRANSFER WAIT' QUEUE
PC,CLRQUE
JCLEAR ALL OF THE REQUEST QUEUES
#CLR,RMCS2(R4)
;DO A MASSBUS INIT.
7%
* CONT INUE
PC,EMPTYQ
;CLEAR THE DRIVE'S QUEUE
DRVSTA(RY)
JSET DRIVE TO OFFLINE
DRVTYP(R1)
;CLEAR THE DRIVE TYPE INDICATOR
PC,SET.IE
:SET "'1E'" WITHOUT "'TRE"’
:RESTORE RO = RS
PC
*RETURN

MOV

RETURNZ2

LA:

MOV
MOV
JSR
RMDS
43
BIC
CMP
BNE
INCB
CMPB
BGT

013704
010164
004037
000012
041732
042716
022726
001044
105¢61
126137
003033

037066
000010
043736
157577
000200

037016
037016

037074

SEQ 0145

BEQ
JSR
187
BEQ
BIT
BEQ
MOV
BR
MOV
JSR

#BIT1S5!'BIT10,16(R2)

PC,SVRH70

#-1 TIMER(R3)

;LO0OK AHEAD ROUTINE
3
s CALL
:
MOV
#DRVNUM, R
2
MOV
#DPB,R2
3
JSR
RO,LA
3
RETURN1

693
694
695
696

699 041564
700 041570
701 041574
702 041600
703 041602
706 041606
705 041610
706 041614
707 041616
708 041622
709 041630

J 13

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

RETURN3

:SET "'NON=CLEARABLE PARITY' ERROR INDICATOR

;SAVE RH/RM REGISTERS

:STOP THE TIMER

;DRIVE NUMBER
;POINT TO DPB
;60 CHECK THE WINDOW
sERROR RETURN
;START A SEARCH

JSTART A DATA TRANSFER

RMADR R4
R1,RMCS2(R&)
RO,RD.RM

;GET RMCS1'S ADDRESS
:SELECT DRIVE
JREAD DRIVE STATUS

JERROR RETURN ADDRESS
#*C020200,(SP)
:ON CYLINDER ?
#200, (SP)+
‘PIP=0,DRY=1?
{3
*NO
LACNT(RY)
;INCREMENT THE LOOK AHEAD COUNT
LACNT(RY) ,MXLACT
JEXCEED MAX?
2%
:BR IF YES

CZRMVAO RM0S5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

710 041632
711 041636
712 0641640

116203
000303
006203

000010

714 0641644
715 041652
716 0641656
717 041660
718 041662
719 041666
720 0641670
721 041672
722 041674
723 041676
724 041700
725 0641704
726 041710
727 041712
728 041716
729 041720
730 041726
731 041726
732 061730

012737
004037
000020
041732
021664
001402
005726
000415
162603
002002
062703
023703
002406
023703
002003
105061
005720
005720
00 J2

000340
043736

;gg 041736

000200

713 041642

733 041732

006%03

004737

MACRO v03.01

MOVB
SWAB
ASR
177776

0620646
761 042052
762 042056
763 062060
764 062062
765 042064
766 042066

ASR

6$:

000020

7%:
004000
037076

1$:

037100

037016

2%:
3s:

041226

48:

5%:

10(R2) ,R3
R3
R3

;GET DESIRED SECTOR ADDRESS AND
;MULT. BY 64=-ALIGN WITH
:LOOK AHEAD REGISTER

MOV
JSR
RMLA
4%
CMP
BEQ
TST
BR
SuB
BGE
ADD
CMP
BLT
CMP
BGE
CLRB
ST
18T
BR

#340,PS
RO,RD.RM

*PRIORITY LEVEL ''7"
;READ LOOK AHEAD REGISTER

(SP) ,RMLA(R4L)
7%
(SP)+
3
(SP)+,R3
1%
#<32.+64.>,R3
MXDLTA,R3
3%
MNDLTA,R3
3%
LACNT(R1)
(RO)+
(RO)+
5%

;CORRECT LA NUMBER ?
:YES
sNO,CLEAR STACK

RTS

;RETURN

JSR

PC,CI17

;CALCULATE THE DELTA
;MAKE THE DELTA POSITIVE
;CHECK THE DELTA TO SEE
;IF 1T IS WITHIN THE
:WINDOW===1F YES, ZERO
:THE LOOK AHEAD COUNT
:AND TAKE THE 1/0 EXIT
;ADJUST THE RETURN ADDRESS
EXIT

:PROCESS THE ERROR

;INTERRUPT SERVICE ROUTINE
112737
104412
013704
013701
002403
004737
000402
004737
104413
105037
000002

000001

037004

ISR:

037066
037052
042004
042154

1$:
2%:

037004

;g?

752 042004
753 042010
75« 042016
755 042020
756 042026
757 0642030
758 042034
759 0642040

K 13
15:01:20 PAGE 15-13
SEQ 0166

;gg
738 041740
739 041746
740 041750
741 0641754
742 041760
743 041762
744 041766
745 041770
7646 061776
747 041776
;23 042002

11-APR-BC

MOVB
SAVREG
MOV
MOV
BLT
JSR
BR
JSR
RESREG
CLRB
RTI

#1,ACTDRV
RMADR, R&
DTUW,R1
18
PC,TD
2%
PC,SC
ACTDRY

:SET "ACTIVE DRIVER'' FLAG
:SAVE RO - RS
;ADDRESS OF RHSCS1
;GET "'DATA TRANSFER UNDERWAY'' INDICATOR
;:BR IF NO DATA TRANSFER UNDERWAY
:CALL TRANSFER DONE
JEXIT
;CALL SPECIAL CONDITIONS
;RESTORE RO - RS
;CLEAR "ACTIVE DRIVER'' FLAG
;RETURN

:TRANSFER DONE ROUTINE

105061
012737
006301
012761
006201
013702
005037
052762

010164
004037
000000
041226
006126
100417
005737

036730
177777

037052

177777

037032

037000
037000
000200

000016

000010
043736

(37026

TM:

CLRB
MOV
ASL
MOV
ASR
MOV
CLR
BIS

MOV
JSR
RMCST
c17
ROL
BMI
ST

DRVACT(R1)
#-1,DTUW
R1
#-1,TIMER(R1)
RI
TRNSWT ,R2
TRNSWT
#BIT07,16(R2)

R1,RMCS2(R4)
RO,RD.RM
(SP)+
3%
SAVEFG

:SET DRIVE ACTIVE INDICATOR TO IDLE
:NO DATA TRANSFERS UNDERWAY

;CANCEL TIMEOUT
g
;GET "'DPB'' ADDRESS FROM THE
:TRANSFER WAIT QUEUE--CLEAR QUEUE
:SET DONE

:SELECT THE DRIVE
: TRANSFER ERROR(TRE=1)?

:BR IF YES
:SAVE THE RH/RM REGISTERS?

CZRMVAO RMO5/3/2 EXT'D DR TST

RH/RM DRIVER INITIALIZATION CODE

767 042072
062074
772 042100
774 04%100
775 0642104
776 042106
777 062110

;;3 062114

780 042116
781 042122
782 042126
783 042132
786 042136
785 042142
786 042146
787 042152
788
789
806
807
808
809 042154
810 042160
811 042162
812 042166

100002
004737

045144

012714
000414
052762
004737
004737
012714
012714
000400

000113

15-14

SEQ 0167

BPL
JSR

13
PC,SVRH70

N
:BR IF

JSR
181

PC,GETREQ
R2

:GET DPB POINTER
sENTRY FOR DRIVE ?

JSR
BR

PC,OPT
SC

BEQ

040146

100100
045050
044310
040111
000113

L 13

11-APR-80 15:01:20 PAGE

YES--SAVE THE REGISTERS

:BR IF NOT
sCALL OPTIMIZER
:CHECK OTHER DRIVES

: THE RELEASE DRI¥E1§0HHAND 1S FORECD TO ENTER FOR DUAL PORT OPERATION
(R&)
RELEASE THE DRIVE
SC
ea
CHECK FOR OTHER DRIVES

2%:
000016

3s:

BIS

#BIT15!BIT06, 16(R2)

JSR

PC.SVRH70

JSR

MOV
MOV

;SET DATA ERROR FLAG

#0111, (R4)

;EMPTY THE "DRIVE'S WAIT'' QUEUE
:§ggserne RH/RM REGISTERS
A ''DRIVE CLEAR"

*CHECK FOR OTHER DRIVES

PC,EMPTYQ

#113, (R&)

:1SSUE A RELEASE TO THE DRIVE

sSPECIAL CONDITION ROUTINE

g}f 062170

116403
001014
004037
000000
041326

815 042172
816 042174
817 042176
042202
818 042204
819 042210
820 042212
821 042214
822 042216
823 042222
824 042224

106126
100405
004037
104001
004737
000207
005046
110316
012703
005001
030316

825 042226
826 042230
827 042232
828 042234
829 042236
830 042240
831 042242
832 062246
833 042250
834 0422564
835 062260
836 042262
837 062266
838 065272
839 0422764
840 042300
841 042302
842 042306

044310

004737
005702
001403
004737

000417

MACRO v03.01

001005
005201
106303
001373
005726
000207
105761
001402
000137
105761
001402
000137
105761
003023
105761
003«;0
004737
004737

000016

SC:

043736
3

045234
044426

1%:

2%:

RO,RD.RM

18
1%

ROLB
BM]

JSR
EMT
JSR
RTS

CLR

(SP)+

sSET INTERRUPT ENABLE
sRETURN
sPROCESS ALL DRIVES THAT HAVE

INC

SCS:

043166
036770

1%:

043166
036740

2%:

BNE

sC8

ASLB
BNE
TST
RTS

JMP
1STB

BEQ

SC13
DPRQS(R1)
2%

1S1B
BGT

DRVSTA(R1)
5%

1STB
BEQ

JMP

1STB

BLE
JSR
JSR

EXIT,
IF, FAIL TO READ

PC,SET.IE
PC
-(SP)

SCé4:

CLR

;BR IF ANY "ATA' BITS SET
sREAD CONTROL AND STATUS REGISTER

:YES, NO DRIVES TO CHECK
:SAVE THE ADDRESS IN 'SESCAPE'

BIT

MOVB
MOV

;READ "'RMAS''

1%
$O.ES.SAV

$C3:

036760

045144
(44310

RMAS (R4) ,R3

R3, (SP)
#1.R3
R1
R3, (SP)

000001

037006

MOVB
BNE
JSR
RMCS1

5C3

(SP)+
PC

DPINT(R1)
1%

SC13

ULDFLG(R1)
3%
PC,GETREQ

PC,SVRH70

:REPORT

ILLEGAL

INTERRUPT

JAN "'ATA"'=1
;ATA=1?
sMOVE

JYES

TO THE NEXT

DRIVE

:BR_IF MORE TO CHECK?
sCLEAN OFF THE STACK
sRETURN TO USER

sINITIALIZING THE DRIVE ?
:BR IF NOT
:PROCESS THE DRIVE
sPORT REQUEST OUTSTANDING ?
:BR IF NOT

sSTART THE OUTSTANDING COMMAND

sCHECK THE DRIVE STATUS
:BR IF ONLINE
sUNLOAD IN PROGRESS?
:BR_IF NOT
:GET DPB POINTER
:SAVE THE RH/RM REGISTERS

CZRMVAO RMO5/3/2 EXT'D DR TST

RH/RM DRIVER INITIALIZATION CODE

MACRO v03.01

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

SEQ 0168

843 042312

004737

043i1%

JSR

PC,SC12

;SAVE RMDS, RMER1, RMER2, AND RMAR2

845 062316
846 042322
847 042326
848 042332
849

105761
003414
032737
001000

036740

013705

036722

§s:

TSTB
BLE
BIT
BNF
JMP

DRVSTA(R1)
6%
#BIT14,RMERRS
3
SC11

:DID DRIVE COME ONLINE?
:NO
:WAS THERE AN ERROR?
:BR IF ERROR
:NO ERROR

036730

BR
TSTB
BNE
JSR

SCHA
DRVACT(R1)
SCé
PC,SC12

844

850 042334

851 042340
852 042342
853 042346
854 0462350
855
856 042354
857 062360
858 042362
859 042366
860 042370
861 042376
862
863 042400
864 062404
865 042410
866 062612

000504
105761
001033
004737

105761
001323
105761
100412
032737
001013

040000

036760

020000

867 062414
868 062416
042422
869 o«sa &

062426
042432
871 0462434
872 062436
873 042640
874 062446
875 062450
876 062456
877 062460
878 042464
879 042470
880 042472
881 042474
882 062476
883 0462500
884 062502
885 042506

004037
104005
000675
006301
012761
006201
004737
010164
000137
004037
000012
042756
011605
006126
100407
105761
003137

045234

887 042516
888 042520
889 062526
890 062526
891 042530
892 062532

000470
004037
000014
0462756
012605
004737

894 062542
895 042546
896 042550

004u37
000000
042756

393 042533

052762

012746

6 :

036740

000111
044116

886 062510

043116

012746
004037
000000
042756
011605
004037
104002
000701

870 0462426

036720

036724
;

78:

045234

177777

8s$:

037032

SC6:

045144
000010
043006

043736

036730

100210
043736

044310

000111

044116

000016

MOV

TSTB
BNE
TSTB
BMI
BIT
BNE
MOV
MOV
JSR
RMCS1
SC8

MOV
JSR
EMT
BR

:YES == PICKUP RMER1 AND

;G0 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 DRIVES
DRVSTA(R1)
:CHECK ON DRIVE'S STATUS
7%
:BR IF UNSAFE
#BIT13,RMERRS+4 :ADDRESS PLUG CHANGED ?
13
:BR IF YES
#113,=(SP)
:RELEASE COMMAND
#111,-(SP)
:DRIVE CLEAR
RO,WRT.RM
:WRITE THE COMMAND INTO RMCS1
:REGISTER INDEX
:PARITY EXIT ADDRESS

(SP) ,RS
RO,ES.SAV
2
SC4

:PICKUP (RMAS) BEFORE THE ERROR CALL
:SAVE THE ADDRESS IN 'SESCAPE’
:REPORT THE UNEXPECTED ATTENTION
:6G0 CHECK FOR MORE ATA'S

JSR
EMT
BR
ASL
MOV
ASR
JSR
MOV
JMP
JSR
RMDS
SC8
MOV
ROL
BMI
TSTB
BGT

RO,ES.SAV
5
SC4
R1
#-1,TIMER(R1)
R1
PC,GETREQ
R1,RMCS2 (R4)
scil
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
RMER1
SC8
MOV
JSR

SC7
RO,RD.RM

:READ ERROR REGISTER #1

(SP)+,RS
PC,SVRH70

_
sAND SAVE IT IN RS
:SAVE RH/RM REGISTERS

BIS
18:

RMERRS+2,RS

;ALSO DO A DRIVE INIT (DRVINT)

MOV

JSR
RMCS1
SC8

#BIT15:81107!81103,16(R2)

#1i1,-(sP)

RO,WRT.RM

:INFORM USER OF ERROR RECOVER COMPLETION

;1SSUE A DRIVE CLEAR

CIZRMVAO RMO5/3/2 EXT'D DR TST

043736

177777
044310
110000

036740

RS
1%
R2
SC7

;WAS "UNSAFE'* CONDITION =17
‘BR IF YES
:ANYTHING IN QUEUE ?
‘BR IF NOT

JSR
RMDS

RO,RD.RM

:READ DRIVE STATUS REG. W1

MOV
ROL

(SP),RS
(SP)+

:SAVE RMDS IN RS
SVERR''2172

010000

2%
#-1,DRVSTA(R1)

#BIT12.RS
38
#-1,DRVACT(R1)
:}.oavsrn<a1)

:;oooo..txnea<n1>

177777
000001

036730
036740

BIT
BNE
MOVB
:gva

072460

037032

:gx

042230
100220

036730

28:

000016

045166
037006
037006

000016

100406

012746
004037

3$:
SC7:
;

JMP

BIS
CLRB
JSR

H =
NO
W=

NN -y~

OVIWVINWVOSN
—=OO0OHN—~N
WOOOO
NN

o
o

ettt

WOOOO

PC,SVRH70
:SAVE RH/RM REGISTERS
gg%115191112.16<n2)
:INFORM USER OF UNSAFE ERROR

;'MoL' = 1 2
‘BR IF YES
:ACTIVE ERROR RECOVER
*ONL INE
;START 3G SECOND TIMER

SC4

#BIT15'BITO7'BIT04,16(R2)
;INFORM USER OF ERROR
DRVACT(R1)
:DRIVE IS IDLE
PC,EMPTYQ
:DUMP THE QUEUE

18
ULDFLG(RY)

TSTB

DRVSTA(R1)

:1S THE DRIVE UNSAFE

MOVB

;

BM]
MOV

PC . POPQUE
ULDFLG(RT)

ATABIT(R1),RMAS(R&)

;CLEAR ATTENTION BIT

JSR

SC8
JMP
TSTB
BEQ

$C4
DRVACT(R1)
1%

:PARITY EXIT ADDRESS
:CHECK FOR MORE DRIVES
:1S DRIVE IDLE?
S YES

JSR
BR

PC.CI7
2%

:PROCESS THE PARITY ERROR
: CONT INUE

;

JSR

PC,CI17

2%:
SC11:

JMP
TSTB
BLE
CLRB
CLRB
BITB

$C4
*CHECK MORE DRIVES
ULDFLG(R1)
:"UNLOAD IN PROGRESS'"
1%
‘BR IF NO
ULDFLG(R1)
:CLEAR UNLOAD FLAG
DRVACT(R1)
*SET DRIVE IDLE
ATABIT(R1),SRCHwT
:DOING A SEARCH OPERATION FOR
TAN 1/0 COMMAND?

MOV

JSR

RNE
JSR

PC,GETREQ

PC.C178B

2%
PC ,POPQUE

:BR IF IT 1S
*RELEASE COMMAND

2%
#113,=(SP)
#111,-(SP)
RO,WRT.RM

JSR

:BR IF NO==UNSAFE CLEARED
:DRIVE IS UNSAFE

‘REMOVE THE QUEUE
*UNLOAD IN RMOGRESS OR QUEUE?
:BR IF NOT
:CLEAR UNLOAD FLAG

18:

28:
SC8:

OO0

:INFORM USER OF ERROR

JSR
TSTB
BGT
CLRB

RMCS1

037002

gg;T\S!81107!81165.16(R2)

BPL
MOVB
JSR
ggs

000016

SEQ 0169

ROL
BM]
ST
BEQ

gés
1$:

osro

949 043020
92? 043024
9
952 043032
953 043034

N13
11-APR-80 15:01:20 PAGE 15-16

5C8

80
OO —=—=OW
8828==888
R
ONONN—OND?

RO oS RRSINIRESF
N — —

000016

NSNS
NN~

Foaiiade JSNIIS 32

100240

RRR&

&~
w N=O©

SC6A:

3333 FRRRRR RRRRRRR RRRRRRRRRRRRRRRRR RRRRRR
RN VNNV
VNN
NN
N NN

PORIN

ot b

e e

i e

s e o

VWOV OV OVOOVOOVOVOVOVOO

S UWNN=OOVONOWVSWN—=O

$28332232332

RH/RM DRIVER INITIALIZATION CODE

MACRO v03.01

:DRIVE CLEAR COMMAND

‘WRITE THE COMMAND INTO RPCS1
*REGISTER INDEX

:GET DPB POINTER

:PROCESS THE PARITY ERROR

*PROCESS THE UNCORRECTABLE PARITY ERROR

:BR

YES

;REMOVE REQUEST FROM QUEUE

————————

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

000016

954 043040

052762

956
04305
957 043054

1ooog;
0047

959 043066

146137

958 043060

960 °‘§87‘

961 063076
96% 043106

006301

012761
006201

004737
000137
010164
016437
016437
016437
016437
004037
000401
000207

975 043166

006301

976 043170

|
.
|
|
l
;
'

116134

96 043103
964 043112
965 043116
966 063122
967 0643130
968 043136
969 063146
970 043152
971 043156
97§ 043160
973 063162
974 043164

000200

955 82 as oogrg; 037026

977 043176
978 043200
979 043206
980 043212
981 042318
982 043220
983 043224
984 043230
985 043232
043236
987 043240
988 043242
989 043244
990 043250

991 043256

992
993 043262

994 043266

995 043270
996 043276
997 043300
998 043302
999 043310
1000 043312
1001 043314
}88% 043320

064310

037054
03705¢

177777

040146
042230
000010
000012
000014
000042
000040
037316

000016
037002

006201
010164
116164
105761
001424
105061
004037
000240
105761

003014
005702
001426
004737
052762
004737

004737
000414
032764
001006
006301
012761
006201
000402
004737
000137

2%:

036720
036722
036724
036726

177777

037032

000010
037054
036760

000016

18:

036740

000016
;

045166
004000

000000

060000

037032

040146
042230

BPL
JSR

2%
PC,SVRH70

:BR IF NO
:YES==SAVE ALL OF THE RM/RM REG'S

BICB

ATABIT(R1),SRCHWT

MOVB

JSR
JMP
$C12:
MOV
MOV
MOV
MoV
MOV
JSR
BR
RTS

036760
037316

140000
044310

;SET "‘DONE'’ BIT

MOV
ASR

SC13:

2%:

48:
38:

SEQ 0170

#B1T07,16(R2)

ASL

18:

045144

———————————————————

BIS

18T

037032

005726
000674

012761

- CIRMVAD RM0S5/3/2 EXT 'D DR TST

' RM/RM DRIVER INITIALIZATION CODE

ST
BR
ASL

MOV

ASR
MOV
MOVB
TSTB
BEQ
CLRB
JSR
NOP
TSTB

BGT
ST
BEQ
JSR
BIS
JSR
JSR
JSR
BR
BIT
BNE
ASL
MOV
ASR
BR
JSR
JMP

SAVEFG

:SAVE THE REGISTERS?

ATABIT(R1),RMAS(R&)

#-1,TIMER(RY)
R1

;:CLEAR ATTENTION BIT

:CLEAR IMPLIED SEEK SET

;WORD INDEX
:STOP CLOCK
:RESTOPE R1

PC,OPT
:START A REQUEST
SC4
:CHECK FOR MORE DRIVES
R1,RMCS2(R4)
*SELECT DRIVE
RMDS (R4) ,RMERRS :SAVE THE FOUR REGISTERS THAT
RMER1(R4) ,RMERRS+2
;WILL TELL US SOMETHING
RMER2
(R4 ) ,RMERRS+4
RMMR2
(R4 ) , RMERRS+6
RO,DRVINT
;INIT. THE STATE OF THE DRIVE
1%
:TAKE ERROR EXIT
PC
:RETURN
(SP)+
SC8
R1

#-1,TIMER(R1)

:POP PC OFF OF THE STACK
:PROCESS THE PARITY ERROR

:SETUP T0 ADDRESS WORDS

:STOP THE TIMER

R1
;
R1,RMCS2 (R&)
*SELECT THE DRIVE
ATABIT(R1).RMAS(R&)
:CLEAR THE ATTENTION BIT
DPINT(R1)
;INITIALIZING THE DRIVE ?
28
:BR IF NOT
DPINT(R1)
:CLEAR THE INIT INDICATOR
RO,DRVINT
:GO INIT THE DRIVE
:DUMMY PARITY ERROR RETURN
DRVSTA(R1)
:DRIVE ONLINE ?
2%
:BR IF YES == START ORDER
R2
*QUEVE ENTRY FOR THE DRIVE
3s
:BR IF NOT
PC,GETREQ
:GET DPB ADDRESS
#BIT1S!BIT14,16(R2)
;INFORM USER THAT DRIVE OFFLINE

PC,SVRH70
PC.EMPTYQ
PC . POPQUE

:SAVE THE REGISTEKS

:EMPTY THE REQUEST QUEUE
‘REMOVE THE QUEUE

#BIT11,RMCST(RG)
:DVA SET ?
13
:SET THEN CALL OPT
R1
#60000, TIMER(R1)
R1
{3
PC,OPT
;START THE PENDING REQUEST
$Ch
:PROCESS OTHER DRIVES

1004

:RM TIMER ROUTINE

1006

;

MOV

#TIME,=(SP)

;ELASPED TIME

RMTMR:

T1ST
BNE

ACTDRY
4

;CHECK "ACTDRYV & ACTSTR"
:1F NON 2ERO EXIT

1005

s CALL

}88;

1009 063324
1010 043330

005737
001027

037004

JSR

PC,RATMR

IN MILLISECONDS ON THE STACK

SCALL RMOS TIME ROUTINE

cSSSH -

Px
N

037005

037032

nNOoOO
S
O =NO NN
=
N

000002

MOvVB
SAVREG

1%:

037032

0434146

2%:

000010

3%:

037005

A ¥

)
D
)

SCALL:

BGT

RESREG

CLRB
MOV
RTS

$T0
MOV
JSR

ST0:

O0OO0O0O0O0O

RE TURN

32 58

037066
000010
043736

MOV
MOV
MOV
JSR

RMDS

$T05
$T09

MOV

MOV
MOV

SR2838 o
828sa gees
~N
- O~
N = N
R
gsc’~N~N
PUT22
&~
o
8 wouug
NNN=H WO
= NYONO
N
o
~N0 SINZFIR
SLEFR
ONN=—NN

—

-l

064 0‘35;3
065 0435
066 043534
067 043542

187
CMP

sSET "ACISTR"
:SAVE RO - RS
;START WiTH DRIVE 0

;1S THE TIMER RUNNING?
2
.;BR l IF NO
2(SP),TIMER(RS) :COUNT THE INTERVAL
2%
:BR IF NO SOF TWARE TIMEOUT
PC.STO
;CALL SOFTWARE TIMEOUT ROUTINE
R1
;MOVE TO NEXT DRIVE
(R3)+
#8..R1
;0UT OF DRIVES?
1%

;BR

ACTSTR
(SP)+,(SP)
PC

JRESTORE RO - RS

;IERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG

sADJUST THE
JRETURN

STACK

OR GREATER

D il
-l

&
063 043520

1871

BLT
SuB
BGT
JSR
INC

R1
R3
T%HEI(RS)

SEQ 017

INOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6

D
il -l

D -l

057 043476
058 043476
059 043502
060 043506
061 043514

CLR
CLR

P ACTSTR

15-18

;SOFTWAPE TIMEOUT ROUTINE

D el il
D
= — —ld = ——
- —
D —ld =
) - =
D
) —ld

)

$i
OS? 063298

C 14

11-APR-80 15:01:20 PAGE

000001

D el il il

)

D il

il il il

il ol ol

011 04 SS
Olg 04
013 043342
014 043344
015 04
g
01? 06335
017
043354
018 043362
019 04
020 043370
021 043372
022 043374
023 043400
024 043402
025 043404
026 043410
027 043412
028
029
030
o3
032
033
034
035
036
037
038
039 043414
040 043416
041 043420
042 043422
043 0‘3453
044 0434
045 063434
0466 043440
047
048 043442
049 043444
050 043446
051 043450
05; 043454
053 043456

R TST
MACRO v03.01
ATION CODE

8s8382 R 825382888
O MW IS LNV

CIRMVAO RHOS/?I 2
RH/RM DRIVER
n

TSTB

STO1:

BM]

R1,RMCS2(R&)
RO.RD.RM

:SELECT THE DRIVE

R4, =(SP)
RMADR,
R4
.

(SP)+

$102

1STB

DPRAS(R1)

JSR

BIS
JSR
MOV
CLRB
CLRB
CLR
MOV

;SAVE R1

:SAVE R?2
sSAVE R3
;SAVE R4

DPINT(R1)

JMP

1%:

R1,=-(SP)

;DRIVE NUMBER
sCALL

R2.=(SP)
R3.=(SP)

1STB

BNE

BNE
MOV
CMP
BEQ

000016

#DRVYNUM,R1
PC,ST0

$102

$102
TRNSWT,R2
R1,DTUW
1%

$T09

PC,GETREQ

sGET ADDRESS OF ‘‘RM(CS1"

JREAD "DRIVE STATUS REG"

;1S "DRY''=1?
;BR IF YES

JTRYING TO

INTIALIZE

THE

DRIVE

;PICKUP TRANSFER WAIT QUEUE

:TRANSFER UNDERWAY ON THIS DRIVE?

:BR IF YES
s1F NOT DON'T BOTHER DRIVES
:GET DPB ADDRESS

;SET THE ERROR FLAGS
#BiT15'B1709,16¢ R2)
PC,SVRHT0
:SAVE RH/RM REGISTERS
(RG) :'INIT'" THE MASS BUS
#CLR,RMCS2
DRVACT(R1)
;DRIVE 1S IDLE
ULDFLG(R1)
:CLEAR THE UNLOAD FLAG
TRNSWT
:CLEAR DPB ADDRESS
#-1,0TUW
;CLEAR THE TRANSFER DRIVE #

$109

;BR IF YES
sOUTSTANDING PORT REQUEST FOR THE DRIVE ?
:BR IF YES

;:DON'T BOTHER OTHER DRIVES

E L
E AP

—
— 20

S L SRSt
OO
SxRoess
OO~
L3

N
N =
N =

oguuooouB

1097 043706
1098 043714
1099 043720
1100 0437264
1101 043726
1102 043730
1103 043732
1104 043734
1105

MACRO v03.01
)1
CODE

ST102:

000016
037054
036760
036770

ST03:

036760

036770
77777

037032

ST06:

037032

140000

000016

177777
036770
065144

037032

100004

000016

045050
044310

1117 043746
1118 043754
1119 063760
1120 043762
1121 043764
1122 063796
1123 043774
1124 044000

ST107:

STO08:

D 14

15:01:20 PAGE

15-19

SEQ 0172
MOvB
BiTB
BNE

15§18
BNE
1ST8
BNE
BR
1518

BNE
1STB
BEQ
MOV
BR
JSR
BR
CLRB
CLRB

JSR
1ST
BEQ
BIS
BR
MOV
CLRB
JSR
18T
BEQ
MOv
JSR
JSR
MOv

MOv
MOv
MOV
RTS

RMAS (R4)

A1A§11<n{>.ns
$10
DPINT(RY)
$106
DPRAS(R1)

s107
S109
DPINT(R1)

1%
DPRAS(R1)
$109
01 TIMER(R3)

$109

PC,C18

$T09
DPINT(R1)
DRVSTA(RT)
#-1,TIMER(RY)
PC,.GETREQ

;READ ATTENTION REG

;1S ATTENTION FOR THIS DRIVE UP ?

;TRYING TO INTIALIZE THE DRIVE

;270; THE

TIMER

;EX]
;G0 HANDLE THE PARITY ERROR

sCLEAR THE INITIALIZE INDICATOR
sSET UNIT OFFLINE
;STOP THE TIMER
sGET THE DPB ADDRESS
sREQUEST IN QUEUE ?
;BR IF NOT

R2
ST09
#BITIS!BITIS,16¢( R2)

ST08

sFINISH

JINFORM THE USER DRIVE NOT AVAILABLE

*STOP THE TIMER
*CLEAR PORT REQUEST INDICATOR
:GET DPB ADDRESS
‘QUEUE ENTRY FOR DRIVE ?

PC,EMPTYQ

;CLEAR THE QUEUE FOR THE DRIVE

#-1,TIMER(R3)

DPRQS(R1)

PC,.GETREQ

S109
‘BR IF NONE
#BITI5!BIT2,16(R 2)
:INFORM

PC,SVRA/0

(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
PC

;BR_IF YES = DRIVE NOT ONL INE
;OUTSTANDING PORT REQUEST FOR THE DRIVE ?
:BR IF YES = NO RESPONSE TO REQUEST
;OTHER WISE EXIT
;INITIALIZING THE DRIVE ?
;BR _IF INIT PENDING
;PORT REQUEST PENDING ?
:BR IF NOT

USER OF PORT REQUEST ERROR

*SAVE THE REGISTERS

*RESTORE
*RESTORE
:RESTORE
‘RESTORE
*RETURN

Ré4
R3
R2
R1

sROUTINE TO READ A RH/RM REGISTER

1107
1108

1115 043736
1116 043744

11-APR-B0

MOV

ST09:

1106

1109
1110
111
1112
1113
1114

1$:

ST05:

041326

N-N w

o Sk
1096 8:3786

N = WIS NOWVZWWDN

1079 043606

1080 043610
1081 043616
108% 0636%0
1083 043624
1084 0636%3
1085 0436
1086 043636
1087 043644
1088 043650
1089 043652
1090 043654
1091 043662
1092 043664
1093 043672

(==l
(= T
onN NN
N VIO
N OO NNNSNN
=]l

1068 82 564
10?9
550
1070 82 354
1071
SSS
107§ 06356
1073 04 S?‘
1074 043570
1075 043572
107? 063574
1077 043600
1078 043602

==sg=ses 3283888258882880 238382=
— AN et N
2 =
=

CZRMVAOD RMO5/3/ 2
RH/RM DRIVER IN 1

TCALL
.
.
.

k2
.

JSR
INDEX
ERRADR

RO,RD.RM

sAT

037064

044104

037066
043762

063762

043764
037066
000010

000002

MOV
MOV

MOV
ADD

RD.RM1: MOV
RD.ADR: .WORD
RD.WRD: . WORD
MOV

MOV
ADD

THIS ADDRESS

;CONTENTS OF REG. IS ON THE STACK

RETURN

;GO READ A REGISTER
sREG. INDEX FROM BASE
sERROR ADDRESS=-PROCESS ERROR STARTING

MCPEMX,RD.RM2
(SP) ,=(SP)
RMADR,RD .ADR

(RO)+,RD.ADR

8(9()0.(PC)0

RD.WRD,2(SP)
RMADR,

- (SP)

#RMCSS, (SP)

sMAX,

RETRYS ALLOWED

:SAVE RO FOR RETURN

;FORM THE DESIRED ADDRESS
;USING THE BASE AND THE INDEX
;READ THE DESIRED REGISTER OF THE RM DRIVE
;ADDRESS 1S FORMED HERE

+REG. CONTENTS PUT HERE
;RETURN IT TO THE USER
sPUT THE ADDRESS ON THE STA(CK
;FORM THE ADDRESS OF

RM(S?2

CZRMYAD RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

iNITIALIZATION CODE

MACRO v03.01

E 14
11-APR-B0 15:01:20 PAGE 15-20

SEQ 0173

1125 044004

0327

010000

BIT

PBIT12,3(S5P)+

sCHECK THE

1127 0644012
1128 044016
1129 044022
1130 044024
1131 044026
1132 0440
044030
044034
1133 044036
1136 044042

017746
032716
001002
ozzoio
000432

173050
020000

MOV
BIT
BNE
cMP
s

@RMADR,=(SP)
#BIT13,(SP)
1%
(SP)+,(RO)+
RD.RM4

sREAD RM(CS!
:DID MCPE SET?
:BR IF YES
;ADJUST FOR RETURN
(EXIT

004037
104003
005737
100405

045234

JSR
EMT
ST
BM]

RO,ES.SAV
3
DTUW
2%

;SAVE THE ADDRESS IN "SESCAPE'
:REPORT "MCPE'' ERROR
sDATA TRANSFER UNDERWAY?
:NO

11§6 044010 8010%9

1135 044044
1136 044050
1137 044052
1138 044054
1139 044056
1140 044062
1141 044064
1142 044072
1143 064076
1144 044100
1145 044102
1146 044104
1147 064106
1148 044110
1149 044112

}}g? 044114

032716
001402
005726
000415
052716
000316
013737
005237
112637
000000
005327
000003
002324
011000
012616

BNE

18:

037052
040000

040000
037066
044100

044100

000200

BIT
BEQ
18T
BR
2%:
BIS
SWAB
MOV
INC
MOVB
3%:
.MORD
DEC
RD.RM2: .WORD
BGE
RD.RM3: MOV
MOV

RD.RM&: RTS

RD.RM3

#B1114,(SP)
2%
(SP)+
RD.RM3
#BIT14,(SP)
(SP)
RMADR, 3%
3%
(SP)+,a(PC)+
0
(PC)+
3
RD.RM1
(RO) ,RO
(SP)+,(SP)

;ROUTINE TO WRITE A REGISTER

1154
1155
1156
1157
1158
}}gg

:CALL
:
:
3
:
:

1161 044116

013737

1163
11646
1165
1166

012616
012037
001015
122737

1162 044126

044132
044134
044140
064142

1167 044150
1168 044152
1169 044156

1170 044160
1171 044162
117§ 064164

1173 044170
1174 064176
1175 0464202
1176 044204
1177 044206
1178 044210

1179 044214

016637

002411
004037
000000

044300
000316
062719

11§63
063737
012737
000000
000v00
013746

062716

037066

000002

044274

044204

044206
000150

044204

043736

177770
044205
037066

037066

(00010

WRT.RM: MOV

MOV

MOV
MOV
BNE
CMPB

BLT
JSR
RMCS1

WRT.R3
SWAB
BIC

044206

MOvB
18:
ADD
WRT.R1: MOV
WRT.WD: .WORD
WRT.AD: .WORD
MOV

ADD

J'TRE'' = 1 7
;NO
:YES==CLEAN OFF THE STACK AND
;TAKE THE FATAL ERROR EXIT
;CLEAR "MCPE'' BY SENDING A '"1'" 70 "'TRE"'
;POSITION BEFORE WRITING
;FORM ADDRESS OF HIGM BYTE

;WRITE THE WIGH BYTE OF RM(CS!
;ADDRESS STORAGE
;EXCEEDED MAX. RETRYS
:BR IF NO
:FATAL ERROR EXIT

}}2%

MOV
JSR
INDEX
ERRADR
RETURN

'NED' BIT

;BR IF DRIVE NON-EXISTENT

DATA,=(SP)
RO,WRT.RM

;DATA TO BE LOADED ON THE STACK
;CALL THE ROUTINE TO LOAD(WRITE) THE REG.
;INDEX OF THE REGISTER TO BE LOADED
;ADDRESS TO RETURN TO ON AN ERROR
;ERROR FREE RETURN

MCPEMX ,WRT.R2

;MAX RETRYS ALLOWED

(SP)+,(SP)
(RO)+ ,WRT AD
1%
#150,WRT.WD

:ADJUST THE STACK
sGET INDEX OF REGISTER TO BE WRITTEN
:BR IF NOT RMCSI
;1S THE COMMAND FOR DATA TRANSFERS?

2(SP) ,WRT . WD

1%
RO,RD.RM

(SP)
#4C7,(SP)
(SP)+ ,WRT WD+
RMADR,WRT . AD
(PC)+,a(PC)+
O
O
RMADR , = (SP)

#RACSS, (SP)

;SAVE THE WORD TO WRITE

;YES==DON'T GET THE OLD A16 & A17, & PSEL
;NO-==COMBINE A168A17, & PSEL WITH
:THE COMMAND BEFORE SENDING 1T TO
:THE RH/RM

;FORM THE ADDRESS OF THE DISK REG.
JLOAD THE DESIRED REG.
JWORD TO WRITE GIES HERE
sADDRESS IS FORMED HERE
:PUT THE ADDRESS ON THE STACLK

;FORM THE ADDRESS OF RM(S?

CIZRMVAD RMOS5/3/72 EXT ‘D DR TST

RH/RM DRIVER

INITIALIZATION CODE

1180 044220

1181 044226
1\8% 0446226
1183 044232
1184 044

1185 044
1186 066%42
1187 064244
1188 044252
1189 044256
1190 044260
1191 0464262

064266

032732

0010
004037
14
044300

032726
0014;0
016037
004037
000000
044300
0064037

104004

1192 044270

005726

1194
1195
1196
1197
1198

000003
002341
011000
000401
005720

1193 044272

044274
044276
044300
044302
044304

};gg 044306

MACRC v03.01

010000

BIT

BNE
JSR
RMER1
WRT.R3

043736

000010
177776
043736

044256
1$:

045234

005327

WRT.R2:

sCALL

}SOS

128? 044310 104412

1208 044312
1209 044314
1210 044316
1211 044322

005702
001442
013704
111264

1213 044332

001433

}555 044424

°'NED' BIT

sBR IF DRIVE NON-EXISTENT
JCHECK FOR PARITY ERROR ON WRITE

RO,ES.SAV

187

(SP)+

sCLEAR OFF

DEC

(P{)+

3
WRT.R1
(RO) ,RO
WRT.RS
(RO)+

016203
005037
023727

001006
032764
001002
005023
000405
004037
000000
044416
012623
023727
001406
062737
000751
004737
104413

000207

MOV

JSR

SVRH70: SAVREG
037066
000010

000014

JREPORT THE PARITY ON WRITE ERROR
THE STACK

JDECREMENT THE ERROR COUNT

JRETRY COUNTER
;TRY AGAIN IF NOT FINISHED
;TAKE THE "'PARITY ON WRITE'' ERRCR EXIT
JEXIT
;ADJUST FOR ERROR FREE EXIT

000022

000200

000010

043736

2%:
3s:

044370

000046

000002

044370

0461226

4$:

5%:
6%:

;SAVE RO - RS

BEQ

JEXIT IF NO ADDRESS

BNE
BIT
BNE
CLR
i
JSR
.WORD
5%
MOV
CMP
BEQ
ADD
BR
JSR
RESREG

2%
;BR IF NOT
#BITO7 ,RMCS2R&)
:'OR* SET ?
2%
;BR IF SET
(R3)+
;STORE RMDB AS ZEROES
4%
s CONTINUE
RO,RD.RM
JREAD THE SELECTED REGISTER
0
JREGISTER INDEX
JERROR RETURN ADDRESS
(SP)+,(R3)+
;STORE THE REGISTER CONTENTS
3$,.#RMEC2
JREACHED THE END ?
6%
;BR IF YES
#2.,3%
s INCREMENT THE REGISTER INDEX
1%
sCONTINUE READING THE REGISTERS
PC,C17
JPROCESS THE UNCORRECTABLE PARITY ERROR
:RESTORE RO - RS

RTS

3%
3% ,/RMDB

1235

CALL

sSAVE THE DRIVES REG'S

:SELECT DRIVE

14(Ré).RS

:?2UI]NE TO SET THE
.

:DPB POINTER TO R2

R2
6%
RMADR,
R4
(R2) ,RMCS2(R4)

CLR
CMP

1§:

P(,SVRH’O

ST
BEQ
MOV
MOVB

MOV

044370
044370

#DPBNUM,R?

}%i!

sCHECK THE

JROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14

1204

1216 044346
1217 044350
1218
356
1219
044360
1220 044362
1221
4364
1222 044370
1223 044372
1224 044374
1225 044376
1226 044404
1227 0464406
1228 044414
1229 0464416
1230 044422

PBIT12,9(SP)+

WRT.R3
RO,RD.RM

SEQ 0174

;BR IF "PAR=0""
:PICKUP THE INDEX
:READ THE REG.
JREG. INDEX
JRETURN TO THIS ADDRESS ON ERROR
sSAVE THE ADDRESS IN "SESCAPE'

WRT.RS: RTS

1203

1214 044334
1215 044340

15-21

#BIT03,(SP)+
WRT.R4
=2(R0),1%
RO,RD.RM
O

.WORD
BGE
WRT.R3: MOV
BR
WRT.R4: TST

000200

BIT
BEQ
MOV
JSR
LWORD
WRT.R3
JSR

EMT

1585

1212 044326

11-APR=B0 15:01:20 PAGE

MOV

;QUEUE ENTRY FOR THE DRIVE
sBR IF NONE

:GET THE ERROR TABLE POINTER

;COUNTER & POINTER
JREACHED THE BUFFER REGISTER ?

:RETURN

INTERRUPT WITHOUT GETTING A "'TRE'

#DRVNUM, R

;DRIVE NUMBER T0 R1

INITIALIZATION CODE

11-APR-80

SET.IE: MOV

037066
000010

MOV
MOV
MOV

040000
000100
010000

000001

JSR
RETURN

1$:

2%:

;SET "'IE

R4 ,=(SP)
RMADR R4

;sSAVE Ré

(R4),=(SP)

sREAD RM(CS1

R1,RMCS2(R4)

BIT

121112.RHCSZ(R4)

BNE
18T
BR
MOvVB

MOV
RTS

.BYTE

.BYTE
.BYTE

SEQ 0175

PC,SET.IE

#1114, (5P)

;QUEUE COUNT

QCNT:

15-22

BIS
SWAB

MOvB

000010

6 14

15:01:20 PAGE

(SP)
#BIT06, (RG)

sPICKUP ADDRESS OF RM(CS!
JSELECT DRIVE

JSET THE "'TRE'' BIT OF
FOR DATO
:ADJUST

;SET

(SP)+

;1S "NED''=1?
;YES==CLEAR "'TRE"'
;CLEAN OFF THE STACK

(SP)+,1(R4)

;CLEAR ''TRE"'

(SP)+ R4
PC

THE WORD READ

;RESTORE R4

JRETURN TO CALLER

:DRIVE
;DRIVE

;DRIVE

;DRIVE
;DRIVE
sDRIVE
:DRIVE
;DRIVE

NOWVMS
WA —O

RH/RM DRIVER

MACRO v03.01

[elelelelelelele]

CIRMVAD RMO5/3/2 EXT'D DR TST

0464632
044652
044072
064712
0464732
0464752

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

QDRVO
QDRV1

QDRV2
QDRV3
QDRV&

QDRVS

QDRV6

QDRV7

;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
sDRIVE

NOWVMSs
WA —O

oornNoO

ViAW
N = b ed

RRRRRR

4550

~
&»

QINPT:

;QUEUE OUTPUT POINTERS

NNNNNNNNNNO

STEISAREIZS VONOWVESWNN—=0O0 &S

;QUEUE INPUT P OINTERS

044572
044612
044632
044652
064672
044712
044732
044752

QOUTPT:

044572
0464612
0464632
0464652
044072
044712
0464732

QSTART:
QSTOP:

.WORD

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

QDRVO
QDRV1
QDRV?2

QDRV3
QDRV4

QDRVS

QDRV6

QDRV7

;DRIVE 0
;DRIVE 1

sDRIVE 2

;DRIVE
sDRIVE
;DRIVE
sDRIVE
;DRIVE

3
&

QDRVO
QDRV1
QDRV?
QDRV3

;DRIVE 0 START ADDRESS
;DRIVE 0 STOP ADDRESS &
;STOP DR VE 1-=START DRI

QDRVS

VE 4==START DRI

QDRV4

QDRV6

R
R
R
R

VE 2-=START DRI
VE 3--START DRI
VE 5-=START DR]

IVE

START ADDRESS

CZRMVAO RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

1293 044566
}%gg 064570

MACRO v03.01

H 14

11-APR=80 15:01:20 PAGE

044752
044772

.WORD
.WORD

QDRv?7
QTERM

}ggg

sDRIVE REQUEST QUEUES

1298 044572
1299 044612
1300 044632

QDRVO:
QDRV1:
QDRV2:
QDRV3:
QDRV4&:
QDRVS:
QDRV6:
QDRV7:

1301
1302
1303
1304
1305

};8?

044652
044672
044712
044732
044752

044772

QTERM=,

.BLkw
.BLKW
.BLKkW
.BLkWw
.BLkWw
.BLkWw
.BLkW
.BLKW

15-23
;STOP DRIVE 6==START DRIVE
;STOP DRIVE 7

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

1310

s CALL

1313 044772
1314 044776
1215 045000
1316 045002
1317 045004
1318 045006
1319 045010
1320 045014
1321 045020
1322 045022
1323 045024
1324 045026
1325 045032
1326 045036
1327 045040
1328 045042
1329 045044

}g;? 045046

104412
012702
005022
005022
005022
005022
012703
012701
012122
005303

001375

012703

012701
012122
005303

044500

000010
044550

JSR

PC.,CLRQUE

CLRQUE:

SAVREG
MOV
CLR
CLR
CLR
CLR
MOV
MOV
MOV
DEC

FACNT,R2
(R2)+
(R2)+
(R2)+
(R2)+
#8..R3
#QSTART, R
(R1)+,(R2)+
R3

MOV

#8.,R3

1%:

BNE

000010

044550

2%:

001375
104413

MOV
MOV
DEC

BNE
RESREG

000207

RTS

#QSTART,R1
(R1)+,(R2)+
R3
2%

;EMPTY THE QUEUE SPECIFIED BY R!

1334
1335

:CALL
:

1338 045050
1339 045054
1340 045056

105061
006301
016161

}gzg 045066

000207

1341 045064

006201

044500

044510

EMPTYQ:

044530

;ROUTINE

1346

sCALL

1347
1348
1349

:
:
3

:MOVE THE STARTING ADDRESS

;OF THE QUEUE INTO THE
:QUEUE OUTPUT POINTER

MOV

DRVNUM,R1

CLRB
ASL
MOV

QCNT(R1)
;CLEAR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1),Q0UTPT(R1)
;SET OUTPUT QUEUE POINTER=INPUT POINTER

RTS

JSR

ASR

}gzg

:SAVE RO - RS
;JERO THE QUEUE COUNTS
;DRIVES 0 & 1
;DRIVES 2 £ 3
;DRIVES 4 & 5
;DRIVES 6 £ 7
sMOVE THE STARTING
;ADDRESS OF THE QUEUE INTO
;THE QUEUE INPUT POINTER

;RESTORE RO - RS

}ggg

}gg?

10
10
10
10
10
10
10
10

}%83
}i}}

SEQ 0176

PC,EMPTYQ

TO PUT A REQUEST

MOV
MOV
JSR

:DRIVE NUMBER TO R

#DRVNUM,R1
#0PB,R2
RO,DRVQUE

IN QUEUE

;DRIVE NUMBER
:ADDRESS OF PARAMETER BLOCK
;60 PUT REQUEST IN QUEUE

CZRMVAO RM05/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

MACRO v03.01

1350
}ggi

1 14
11-APR-80 15:01:20 PAGE 15-24

:
:

RETURN1
RETURNZ

135; 045070 122761 000010 044500 DRVQUE: CMPB
1354 045076 001421
BEQ
1355 045100
1356 0451064
1357 045106
1358 045112
1359 045120
1360 045126
1361 045130
1362 045136
1363 045140
}ggg 045142

105%61
006301
010271
062761
026161
001003
016161
006201
005720
000200

044500

044510
000002
044510

044510
044552

044550

044510

1%:
2%:

INCB
ASL
MOV
ADD
CMP
BNE
MOV
ASR
187
RTS

#10,QCNT(RY)
2%

SEQ 0177

;RETURN HERE IF QUEUE IS FuULL
;RETURN HERE IF REQUEST IS IN QUEUE

;1S
QUEUE FULL?
;BR IF YES=TAKE RETURNI

QCNT(RY)
: INCREMENT QUEUE COUNT
R1
R2,3QINPT(R1)
;PUT THIS REQUEST IN QUEUE
#2,QINPT(R1)
;UPDATE THE QUEUE PCINTER
QINPT(R1),QSTOP(R1)
:TIME TO RESET THE POINTER
1%
:BR IF NO
QSTART(R1) ,QINPT(R1)
:YES==RESET POINTER
R1
(RO)+
sTAKE RETURN 2
RO
:RETURN TO USER

}ggg

;ROUTINE TO GET THE ''DPB'' ADDRESS OF NEXT REQUEST

1368
1369
1370

s CALL
:
:

}g;g

131

1374
1375
1376
1377
1378
1379

045144
045146
045152
045154
045156
045162

}gg? 045164

005002
105761
001404
006301
017102
006201

GETREQ:

044500

1%:

044530

000207

2%:

MOV
JSR

RE TURN

CLR
1STB
BEQ
ASL
MOV
ASR

RTS

#DRVNUM,R1
PC,GETREQ

;:DRIVE NUMBER TO R!
;G0 GET THE REQUEST

:R2=""DPR'' ADDRESS OF

THE REQUEST

;1S THERE ANY REFQUEST

IN QUEUE?

;R2=0 IF NO REQUEST IN QUELE

R2
QCNT(R1)
2%
R1
3Q0UTPT(R1),R2
R1

:NO

:PICKUP ''DPB'' POINTER FOR THIS DRIVE

;RETURN TO USER

}gg%

;ROUTINE TO "'POP'' THE REQUEST FROM QUEUE

1384
1385
1386
}gg;

:CALL
:
:

1389 045166
1390 045172

1391 045174
1392 045200
1393 045204
1396 045212
1395 04522C
1396 045222
1397 045230
}ggg 045232
1401
1402
1403
1604
1405
1406
1407

45361
4620

0Y7°%%
00557
06<7%°
026't
001042
01616'
00620°
000207

044500

POPQUE:

064530
044530
000002
744530

044530
044552

24550

044530

18:

IN QUEUE

MOV
JSR

#DRVNUM, R
PC,POPQUE

:DRIVE NUMBER 70 R1
;CALL TO REMOVE REQUEST

DECB
ASL

QCNT(R1)
R1

;:DECREMENT QUEUE COUNT

RETURN

MOV
CLR
ADD
(MP
BNE
MOV
ASR
RTS

;R2=ADDRESS OF

DPB REMOVED

3Q0UTPT(R1),R2
;GET THE ''DPB'' POINTER
8Q0UTPT(R1)
;REMOVE DPB ADDRESS FROM THE QUEUE
#2,Q0UTPT(R1)
;UPDATE THE QUEUE POINTER
QOUTPT(R1),QSTOP(R1)
:TIME TO RESET THE POINTER?
1%
:NO--BR TO EXIT
QSTART(R1),Q0UTPT(R1)
;YES=-RESET THE POINTER
R1
PC
:RETURN TO USER

;ROUTINE TO SAVE THE CONTENTS OF 'SESCAPE' WHEN THE DRIVER
:REPORTS AN ERROR DIRECTLY.
3
s CALL
2
JSR
RO,ES.SAV
:
ERROR
N
::THE ERROR CALL
:
RETURN
;THE RETURN [S PAST THE ERROR CALL

CZRMVAOD RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

1408
16409 065234
1410 045240
16411 045264
1412 045250
16413 045252
}2}2 045256

012037
013746
005037
000000
012637
000200

045250
001222
001222

001222

MACRO v03.01

J 14
11-APR-80 15:01:20 PAGE 15-25
SEQ 0178

ES.SAV: MOV
MOv
CLR
1$:
.WORD
MOV
RTS

(RO)+,1%
SESCAPE,=(SP)
SESCAPE
0
(SP)+ SESCAPE
RO

;GET THE ERROR CALL
;SAVE THE ADDRESS IN 'SESCAPE'
;CLEAR THE ESCAPE RETURN
:THE ERROR CALL IS MOVED HERE
;RESTORE THE ESCAPE ADDRESS
;RETURN

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

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

GETADR = GET BUS ADDRESS AND VECTOR ADDRESS

SEQ 0179

.SBTTL

sTHIS ROUTINE IS USED TO ENSURE THE BUS ADDRESS

1T WILL ALSO READ THE ADDRESS FROM THE TTY IF

sOF

GETADR = GET BUS ADDRESS AND VECTOR ADDRESS

THE RH/RM ]S SETUP TO READ THE PROPER VALUE.

6
7

sREQUIRED.
JNOTE: THIS ROUTINE DESTROYS RO=R&

10
};

3
:

JSR
RETURN

PC,.GETADR

001322

GETADR:

001322
001470
045436

1%:

TST
BEQ
CLR
MOV
MOV
MOV
JSR

BUSADR
5%
BUSADR
#RH.ADR,RO
#MRMCS1,R3
(RO) R4
RO,GETNUM

13 045260
14 045264
15 045266
16 045272
17 045276
18 045302
19 045304

s CALL

005737
001427
005037
012700
012703
011004
004037

20 045310
21 045312
22 045314
23 045316
24 045320
25 045324
26 045326
27 045332
%8 045334
9 04533
30 045340
31 045342
32 045344
23 045350
34 045356
35 045362
36 045366
37 045372
38 045376
39 045400
40 045402

000402
000767
000412
010420
012703
011004
004037
000402
000756
000401
010420
010410
013701
012737
005777
010137
012700
012701
012021
012021
000207

43 0456412
&4 045414
45 0456420
46 045422
47 045426
28 045432

104010
005737
001724
005037
005037
000137

&1 0645404
&2 045410

50 045436
51 045446
52

010137
022626

200
200

034070

2%:

u4S5446
034070

000004
045404
134106
000004
001470
037066

000004

3%:
4%:
5%:

6%:

000042
001326
021172

021020
122
122

115
115

MRMCS1:
MRMVEC:

sINPUT FROM TTY REQUESTED?
sNO==BRANCH
sYES==CLEAR THE REQUEST FLAG
:FIRST ADDRESS
J"'RMCS1=""
JPRESENT RMCS1 ADDRESS
sGET NEW RMCS1

BR
BR
BR
MOV
MOV
MOV
JSR
BR
BR
BR
MOV
MOV
MOV
MOV
TST
MOV
MOV
MOV
MOV
MOV
RTS

2%
1%
4%
R4, (RO)+
#MRMVEC,R3
(RO) ,R4
RO,GETNUM
3%
1%
(%
R4, (RO)+
R4, (RO)
ERRVEC,R1
#6$ ,ERRVEC
aRH.ADR
R1,ERRVEC
#RH.ADR,RO
#RMADR ,R1
(RO)+,(R1)+
(RO)+,(R1)+
PC

: COMMA
JPERIOD
;DOUBLE PERIOD
sSAVE NEW RM(CS1
:"'RMVEC="'
JPRESENT RH/RM VECTOR ADDRESS
sGET NEW RMVEC
; COMMA
sPERIOD
;DOUBLE PERIOD
sSAVE NEW RMVEC
;sSAVE INPUT
sSAVE THE ERROR VECTOR
;SETUP FOR TRAP
:CHECK FOR RH/RM
JRESTORE ERROR VECTOR
sFIRST ADDRESS OF NEW PARAMETERS
sFIRST ADDRESS OF WHERE TO PUT THEM
;BUS ADDRESS
;VECTOR ADDRESS
;RETURN

EMT
TST
BEQ
CLR
CLR
JMP

10
ans?2
1%
DRVSEL
$EOPCT
$EOP

;1S THERE A MONITOR?
:NO=-=-GO ASK FOR ADDRESS
sYES==-NO DRIVES SELECTED
sNO PASSES
;G0 TO END OF PROGRAM

MOV
CMP

.ASCIZ
.ASCIZ

R1,ERRVEC
(SP)+,(SP)+

<CRLF>/RMCS1=/
<CRLF>/RMVEC=/

;RESTORE ERROR VECTOR
sCLEAN OFF THE STACK

000

.BYTE

14 045470

000000

045556

.WORD
.WORD

000000

.WORD

}2 045472

RM.REG

17
18
19

000
000
000
000
177776
052776

34 045506

36 045507
37
38 045510
39 045512
40

NN
W

20
21 045474
22
23
24
25
26
27 045476
28 045477
29 045500
30 045501
31 045502
3% 045504

DPB.B:

0
0
0
0
-2

.BYTE
.BYTE
.BYTE
.WORD
.WORD

BUFFER

000

.BYTE

000

.BYTE

000000
045556

.WORD
.WORD

45 045514

000000

.WORD

RM.REG

T REG. INDEX
TRACK ADDRESS OR
REG. INDEX

CYLINDER ADDRESS
ERROR TABLE POINTER

TS TO THE FIRST OF TWENTY
TIONS OF WHERE THE DRIVER
O STORE THE RHM/RM
STERS ON AN ERROR. IF LEFT
REGISTERS ARE NOT SAVED.
STATUSIERROR INDICATOR
=1=>ERROR GCCURRED
5=1

7 =1=>DONE

4 -BIT09

AND BIT06-B1T03

C ATE TYPE OF

0) D R IVE NUMBER

1) 0 OFFSET VALUE OR FMT16, ECI, AND HCI

2) COMMAND
3) PSEL AND A17 AND Al6
4) WORD COUNT

(MUST BE NEG.)

6) BUFFER ADDRESS OR
EGISTER TABLE POINTER
10) SECTOR ADDRESS OR
IRST REG. INDEX
11) TRACK ADDRESS OR
INDEX

12) CYLINDER ADDRESS
14) ERROR TABLE POINTER
OINTS TO THE FIRST OF TWENTY
OCATIONS OF WHERE THE DRIVER
S TO STORE THE RH/RM
EGISTERS ON AN ERROR. IF LEFT
ERO R REGISTERS ARE NOT SAVED.
16) S STATUS/ERROR INDICATOR

.BYTE
.BYTE
.BYTE
.BYTE

.WORD
.WCRD

~no

DPB.C:

N =lelele]

NDICATE
TYPE OF
CA

000
000
000
000
177776
052176

ERROR

§=
1T15=1=>ERROR
OCCURRED
1=
1T07=1=>DONE
‘1T14-BIT09
AND BIT06-B1T03

47
48
49

50
51 045516
52 045517
53 045520
54 045521
§5 045522
36 04552

BUFFER ADDRESS OR
STER TABLE POINTER
SECTOR ADDRESS OR

AST REG.

1
1
0
0
S
B
E
1
)|
)|
1

42
43
&¢,

WORD COUNT (MUST BE NEG.)
) N b

}% 045467

6
E
1
1
1

COMMAND

PSEL AND A17 AND A16

N o] S

.BYTE

UFFER

DRIVE NUMBER
OFFSET VALUE OR FMT16, ECI, AND HCI

000

WOoOOoOOoOODO

}? 045466

.WORD
.WORD

0
1
2
3

) bt =g P

.BYTE
.BYTE
.8YTE

DPB.A:

DPB (DATA PARAMETER BLOCKS)

000
000
000000
052776

000

SEQ 0180

LSBTTL

2
3 045456
& 045457
5 045460
6 045461
7 045462
g 065464

L 14
17

11-APR-80 15:01:20 PAG

s ) et o

DPB (DATA PARAMETER BLOCKS)

MACRO v03.01

CIRMVAO RMO5/3/2 EXT'D DR TST

UFFER

0
1

2
3
4
6
E

ERROR

DR | VE NUMBER
OF F SET VALUE OR FMT16, ECI, AND HCI
o MMAND
PS EL AND A17 AND A16
w0 RD COUNT (MUST BE NEG.)
BU FFER ADDRESS OR
STER TABLE POINTER

11-APR-80 15:01:20 PAG

58 045526

000

BYTE

60 045527
61
62 045530
63 0645532

000

BYTE

000000
045556

WORD
.WORD

0
RM.REG

000000

LWMORD

000
000
000
000
000000
052776

.BYTE
BYTE
BYTE
BYTE
WORD
.WORD

0
0
0
0
O
BUFFER

000

.BYTE

000

BYTE

000000
045556

LMORD
.WORD

0
RM.REG

000000

MORD

DTADPB:

;(0) DRIVE NUMBER
;(1) OFFSET VALUE OR FMT16, ECT, AND HCI
:(2) COMMAND
:(3) PSEL AND A17 AND A16
:(4) WORD COUNT (MUST BE NEG.)
:(6) BUFFER ADDRESS OR
;REGISTER TABLE POINTER
:(10) SECTOR ADDRESS OR
;FIRST REG. INDEX
:(11) TRACK ADDRESS OR
;LAST REG. INDEX
:(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
;POINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE DRIVER
;1S TO STORE THE RH/RM
:REGISTERS ON AN ERROR. IF LEFT
;ZERO REGISTERS ARE NOT SAVED.
;(16) STATUS/ERROR INDICATOR
:BIT15=1=>ERROR OCCURRED
:BIT07=1=>DONE
:BIT14-BIT09 AND BIT06-B1T03

;SAVE RH/RM REGISTERS HERE ON ERROR

10! 045556

000000

105 045566

000000

108 045574
109 045576
110 045600
111 045602
112 045604
113 045606
114 045610

;REGISTERS ON AN ERROR. IF LEFT
;ZERO REGISTERS ARE NOT SAVED.
;(16) STATUS/ERROR INDICATOR
;:BIT15=1=>ERROR OCCURRED

:INDICATE TYPE OF ERROR

183

107 045572

TWENTY

:INDICATE TYPE OF ERROR

106 045570

:POINTS TO THE FIRST OF

:BIT07=1=>DONE
;BIT14=-BIT09 AND BIT06-BITO03

102 045560
103 045562
104 045564

;(10) SECTOR ADDRESS OR
;FIRST REG. INDEX
;(11) TRACK ADDRESS OR
;LAST REG. INDEX
:(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER

;1S TO STORE THE RH/RM

7
72

75 045536
76 045537
77 045540
78 045541
79 045542
80 045544
81
82 045546
83
84 045547
85
86 045550
87 045552
88
89
90
91
92
93 045554
94
95
96

SEQ 0181

;LOCATIONS OF WHERE THE DRIVER

67
68
69 045534
70

MACRO v03.01

—_——

CZRMVAO RMO5/3/2 EXT'D DR TST

DPB (DATA PARAMETER BLOCKS)

000000
000000
000000

000000

000000
000000
000000
000000
000000
000000
000000

RM.REG:

.WORD

WORD

.MORD
WORD
WORD

.WORD

LWORD

WORD
MORD
WORD
WORD
LMORD
WORD
WORD

;RMCS1

(776700) CONTROL & STATUS #1

0
0
0

;RMWC (776702) WORD COUNT
:RMBA (776704) BUS ADDRESS
sRMDA (776706) DESIRED SECTOR/TRACK

;RMDS (776712) DISK STATUS

0
0
O
O
O
O
0

TRMCS2 (776710) CONTROL & STATUS #2
RHER1 (776714) ERROR REG. M

:RMAS (776716) ATTENTION SUMMARY
;RMLA (776720) LOOK AHEAD
:RMDB (776722) DATA BUFFER
SRMMR1 (776724) MAINTAINABILITY
:RMDT (776726) DRIVE TYPE:RMSN (776730) SERIAL NUMBER
CRMOF (776732) OFFSET

- DPB (DATA PARAMETER BLOCKS)
D
d
D
e
B e
—

PO
=
i s

115 045612

45624

MACRO v03.01

000000

.EVEN

N 14
11-APR-80 15:01:20 PAGE 17-2

WORD
.WORD
.WORD
.WORD
.WORD
WORD

0
0
0
0
0
0

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

;RMDC (776734) DESIRED CYLINDER
;RMHR (776736) CURRENT CYLINDER
;RMMR2 (776740) ERROR REG #2
;RMER2 (776742) ERROR REG #3
;RMECY (776744) ECC POSITION
;RMEC2 (776746) ECC PATTERN

SEQ 0182

- CIRRVAQ RMO05/3/2 EXT'D DR TST
- ASCIZ MESSAGES

§ Quse2s

122

000

5 045633
6 045636

114
111

103
103

4 045630
7 045641
8 045644
9 045647
10 045652
11 045656
12 045662
13 045666
14 045671

126

106

114
11
106
114
111
106
114

103

000

126
126
126
126
126
126
123
123

000

15 045674
16 065700

120
075

101
000

103

19 0645725
20 045731
21 045747
22 045760
23 045770
26 048005
25 046015
26 046036
27 046056
28 046063
29 046070
30 046075
31 046125
32 066132
33 046135
3, 066222
35 046242
3 046253

040

200
040
040
040
040
040
040
122
122
122
200
116
05
200
200
115
200

057

15
17
117
116
125
116
11
115
115
115
104
117
040
116
012
102
1

38 046261
39 046312
40 046357

200
200
200

012
012
012

43 046464

200

45
046500
4 046506
47 066514
48 046522
49 066527

200
200
060
040

17 045702

41 046426
42 046450

50 046556
51
046605
52 066625
53 066642
54 046655
55 046656
6 046657
57 066660

200

200
200

040
040
040
040
040
40
040
040

MACRO v03.M1

012
040

B 15
11-APR=80 15:01:20 PAG E 8

SBTTL

ASCIZ MESSAGES

MSG.FC:

.ASCIZ

MSG.FT:

.ASCIZ

MSG.R: .ASCIZ /R/

000
000

MSG.LC: .ASCIZ
MSG.IC: .ASCIZ

000
000
047
047
047
000
000

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

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

1264

/F1/
/LT/
71T/
/FT'/
/LT'/
/IT'/
/FS/
/LS/

117

MSG.CS:

/PAT/
/=/

040

116
106
116
117
116
117
123
060
060
060
122
116
000
117
124
101
105

SLASH:
.ASCIZ
UNSTAT: .ASCIZ
UNTOFF: .ASCIZ
UNTON:
.ASCIZ
NOTPRS: .ASCIZ
NOTSAF: .ASCIZ
NOTRM:
.ASCIZ
LODEV:
.ASCIZ
SRMO2:
.ASCIZ
S$RMO3:- .ASCIZ
SRMOS:
.ASCIZ
DRIVES: .ASCIZ
NONE:
.ASCIZ
COMMA:
.ASCIZ
NOCLOK: .ASCIZ
TSTORV:
.ASCIZ
SERIAL: .ASCIZ
MSGTST: .ASCIZ

@/ @

122
117
101

ROTATE:
ONECYL:
ACCESS:

.ASCIZ
.ASCIZ
.ASCIZ

<CRLF><LF>/ROTATIONAL SPEED TIMES/
<CRLF><LF>/ONE CYLINDER SEEK TIMES/<CRLF>/ * FORWARD/
<CRLF><LF>/ACCESS TIME MEASUREMENT/<CRLF>/ * FORWARD/

REV:

.ASCIZ

<CRLF>/ * REVERSE/

040

052

MXSEEK:
FWD:

115
115
101
040
102

111
101
126
125
105

MSGMIN:
MSGMAX:
MSGAVG:
MSGOUS:
MBELOW:

000

/LC/
/IC/

MSG.PAT:.ASCIZ
MSG.EQ: .ASCIZ

115
052

101
123
123
118

/FC/

102
105
105
117

MASOVE:
MSG:€A:
M5GNUM:
MSGNON:
BLNKS4:
BUNKS3:
BLNKS2:
BLNKST:

.ASCI]
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCII
.ASCII
.ASCIZ

<CRLF>/CONTROL SWITCHES=/

<CRLF>/UNIT STATUS:/
/ OFFLINE/
/ ONLINE/
/ NOT PRESENT/
/ UNSAFE/
@ NOT AN RM05/3/2a
/ IS LOAD DEVICE/
/RMO2/
/RMO3/
/RM05/
<CRLF>/DRIVE(S) TO BE TESTED /
/NONE/
/, /

<CRLF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/
<CRLF><LF>/TESTING DRIVE/
/MBA SN# /
<CRLF>/TEST/

<CRLF><LF>/MAXIMUM SEEK TIMES/
<CRLF>/ * FORWARD/

<CRLF>/MIN=/
<CRLF>/MAX=/
<CRLF>/AVG=/
/0 US/
/ BELOW THE MINIMUM OF

/
/
/
/
/
/
/
/

/
ABOVE THE MAXIMUM OF /
SEARCHES TIMED/
SEEKS TIMED/
NOT TIMED/
/
/
/
/

SEQ 0183

9 gflVAO RMO5/3/2 EXT'D DR TST

RA3o3°

ASCIZ MESSAGES

MACRO v03.01

¢ 1 15

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

I
I
l
4
l

SALLOWABLE R
/ALLOWABLE R

/ALLOWABLE 0
/ALLOWABLE A
/ALLCWABLE M

SEQ 0184

CIRMVAO RMO5/3/2 EXT'D DR TST

ERROR HEADER (EM) MESSAGES

MACRO v03.01

.SBTTL

ERROR HEADER (EM) MESSAGES

105

EM2:

«ASCIZ

106

EMS:

i 047152

122

110

057 EMI:

5 047256
6 047311

115
115

101
101

123
123

& 047216
7 047345

8 047401
9 067447

10
11
12
13
14

047504
0647531
067556
047610
047657

15 047706
16 047746

}; 047762

125
101

122
104

m
104
104
103
104
123
122
106

116
104

110
122

115
101
m
114
11

105
110

101

D 1%
11-APR-80 15:01:20 PAGE 19

057
111

120
126
123
117
123
105
057
126

EM3:
EM&:
EMI0:
EM11:

EM12:
EM13:
EM17:
EM20:
EM23:
EM24:
EM&41:
EM&6:

LASCIZ @RHM/RM INTERRUPT OCCURRED (RMAS = 0)3
+ASCIZ
LASCIZ

.ASCIZ

.ASCIZ
_ASCIZ

ASCIZ
_ASCIZ
_ASCIZ
ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

ASCIZ

/UNEXPECTED ATTENTION OCCURRED/

/MASSBUS PARITY ERROR(MCPE=1)/
/MASSBUS PARITY ERROR(PAR=1)/
/ADDRESS PLUG CHANGE BIT SET/

Q@RW/RM FAILED TO RESPOND TO ADDRESSINGa
/DRIVE SELECTED IS NOT ONLINE/

/IMPROPER HEADER DATA/
/DATA COMPARE FAILURE/
/DISK ERROR IN TIMING TEST/
/CLOCK (KkW11=P) OVERFLOW IN TIMING TEST/
/DISK ERROR DURING SEEK/
/SEEK NOT COMPLETE WITHIN 120 MS/
@RW/RM ERRORQ
/FATAL WRITE CHECK ERROR/

SEQ 0185

104
104

122
122

111
111

MSGBOZ:
MSGBO1:

a —
s B
Bt

MSGBO4:
MSGBO3:

125
126

MSGBOS:

g bt 0

116
125

MSGB1Z:
MSGB11:
MSGB10:
MSGBOY:
MSGBOS:
MSGBOG:

St Bt

125
101

122
122
126
106
106
122

& 050505
2 050555

12§

105
101
101
117
117
122

2 050415
3 050435

122

120
120
106
123
123
105

alalalalalalatata
et Lan] I

105

05010%
050127
050155
050200
050237
050301

106
MSGB14:
114 MSGB13:

NN
NN NN NN N ~

1 050345

5
6
7
8
9
0

106
116

117
125

SEQ 0186

STATUS/ERROR INDICATOR MESSAGES
Lol el el ol ad el el el ad el Tl w w

)

i 050012

& 050054

.SBTTL

BB BBl pd =

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

STATUS/ERROR INDICATOR MESSAGES

MACRO v03.01

) BB

CIRMVAOD RM0O5/3/2 EXT'D DR TST

/OFFLINE OR UNSAFE DRIVE REQUESTED/
/UNLOADED DRIVE REQUESTED/
/PERSISTENT UNSAFE/
/PARITY ERROR OCCURRED/
/FATAL 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
/DRIVE HAS BECOME NON-EXISTENT/

REQUEST/

CIRMVAD RMO5/3/2 EXT'D DR TST

DATA HEACZR (DT) MESSAGES
1

g 050613

& 050630
S 050715

6 050752
7 051021
8 051040
9 051057

10
11
12
13
14
15
16
17
18
19

051146
051225
051273
051370
051446
051505
051572
051637
051675
051762

20 052010
21 052064
22 052112
23
26
25

105

122

105
126

122
105

122
104
126
107
107
126
124

115
122
105
104
104
105
105

126

107
126
122
126
126
122

122
122
122

105

104
105
115
105
105
115

115
115
115

MACRO v03.01

122
123
123
103
111
123
1035
104
123
123
106
123
105
123
123
105
103

105
105

11-APR=80

F
5
15:01:20 PAGE 2 1

LSBTTL

DATA HEADER (DT) MESSAGES

DH1:

LASCIZ

DMW2:
DH3:
DM&:
DM10

oMl
DH12
DMI2A:
DH13A
DH17:
DH21:
DH21A
DH23:
DH23A
DH41:
DH&2:
DH&3A
DM&G4A:

DH&4B:
DH&GSA:

.EVEN

ASCIZ
ASCIZ
LASCIZ
LASCIZ

LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
L.ASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ

.ASCIZ
_ASCIZ

V/ERR PC

/ERR PC
/TEST
/TEST
/RMCST

/DRIVE
/TEST
/CDCYL
/GDDAT
/TEST
/TEST
/GDDAT
/TEST
/RMER1
/TEST
/TEST
/RMERT
/RMCST
/RMER1
/RMER1

SEQ 0187

RMAS/

RMAS
RMDS
RMERT
RMMR2
DRIVE
ADDRESS DATA/
ERR PC
ADDRESS GDDATA
ERR PC
BDDATA/
ERR PC/

ERR PC/
ERR PC
GDTRK
BODAT
ERR PC
ERR PC
BDDAT
ERR PC
RMMR?
ERR PC
ERR PC
RMMR2
RMCS?2
RMMR?
RMMR?

TST PC

GDSCTR
WRDCNT
DRIVE

1ST PC
WRDCNT
DRIVE
RMER?
TST PC
TST PC

RMER2/

DRIVE
BDCYL
GDADR
RMCS1
DRIVE
SECTOR/
CYLNDR
RMDC

DRIVE/
DRIVE

RMDS
RMHR
RMER2/
RMER?
RMW(

RMER2/

CYLNDR
TRACK
SECTOR/
BDSCTR/
BDTRK
BDADR/
RMDS
RMER1
RMMR?2
RMERZ2/
TRACK/
CYLNDR
RMCS1
RMHR/

RM(CS2

RMDS/

RMCS1T

RM(CS2

RMDS/

RMDC
RMBA

RMDA/
RMDB/

CIRMVAQ RMO5/3/2 EXT'D DR TST

DATA TABLE

(DT)

MACRO v03.01

;

G 15

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

.SBTTL

DATA TABLE (DT)

3 052170

001132

001204

DT1:

.WORD

SERRPC,SREG3

5 052212
6 052222
7 0522
8 052254

00121
00121
00121
001470

001132
001132
001132
00113

DT3:
DT4:
DTS:
PT10:

.WORD
.WORD
.WORD
.WORD

$TMPO,SERRPC,RD.ADR,RD.WRD
$TMPQ,SERRPC
,WRT ADR,WRT . WD ,RD.WRD
$TMPO,SERRPC,SREG!,SREGS ,RMERRS ,RMERRS+2 ,RMERRS+6 ,RMERRS +4
RH.ADR,SERRPC

10 052264
11 052302

001§l‘
001

00113
001370

13 052334

001140

00114

001212
001200
001212
045572
001212

00113
00116%
00113
045616
001132

045556

045566

& 052174

00113%

001200

9 052260 001205 00113

12 052316

16 052346
15
16
17
18
19

052366
052402
052412
052430
052442

001212
001212

20 052452
21 052470
22 052506
23 052514

001212
001212
045572
001212

25 052546
26 (052554

045572
001212

26 052532

27 052572

%s 052606

045556
045572

DT;:

00
00

001132

00113

DT13:

.WORD

S$TMPO,$ERRPC,$REGO, CHKDRY,CYL.DS, TRK.DS,SEC.DS

.WORD

SYHPO.‘ERRPC.CNKDRV.RH.REG.RH.REGO1Z.RH.REGO14,RH.RE6040.RH.R56042

00
6
001206
00
0
04
0
001176

DT21:
DT21A:
Dp123:
DT23A:
DT41:

045616
001132

04
00

045616

SREG2,S$ERRPC

DOT13A:

00
6
00
6
045620
00
6

045566

.WORD

001206

001132
001132
065616
001132

045570
0
6

045570

SERRPC,SREG) ,SREG3,RMERRS
,RMERRS+2 ,RMERRS+6 ,RMERRS +4

DT11:

pT12:
DT12A:

.WORD

p117:

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

DT42:
DT43:
DT43A:
DT44:

.WORD
.WORD
.WORD
.WORD

DT44B
DT4S:

.WORD
.WORD

DT44A
DT4SA
DT45B

.WORD
.WORD

.WORD

$TMPO,SERRPC
,SREGO, CHKDRY,CYL.DS,TRK.DS,SEC.DS
CYL.DS,TRK.DS,SEC.DS,CYL.RD,TRK.RD,SEC.RD

$GODAT ,$BDDAT ,SREGS ,$GDADR,
SBDADR

$TMPO,SERRPC,SREGO, CHKDRY,CYL.DS,TRK.DS
$SREG1,$BODAT ,SREGL,SREG!
$TMPO,SERRPC,CHKDRY,CYL.DS,RM.REG,RM.REG*+10,RM.REG+12
RM.REG*+14,RM . REG*40 RM_REG+42,RM _REG+34 ,RM.PEG+ 36
$TMPO,SERRPC.SREGO,CHKDRY

$TMPO,SERRPC ,SREGO, CHKDRY ,RM.REG,RM.REG+10,RM_
REG+12
$TMPO,SERRPC ,SREGO ,CHKDRYV ,RM.REG,RM.REG+10,RM
. REG+12
RM.REG+14,RM.REG+40,RM.REG+42
$TMPO,SERRPC,SREGO,
CHKDRY ,CYL.DS,TRK.DS,SEC.DS

RH.REG.RH.REG’10.RH.REG01é.RH.REG*SO,RH.REG*SA.RH.REG‘OO
RM.REG*14
,RM . REG+40 ,RM . REG+42
$TMPO,SERRPC,$REGO, CHKDRYV,CYL.DS,TRK.DS,SEC.DS

RH.REG.RH.REG*10.RH.REG°lé,RH.REG*Sb.RH.RE6034.RH.REGOOO

RM.REG+14 ,RM REG+40,RM . REG*42 ,RM . REG*2 ,RM_REG+4 ,RM_ REG+22

SEQ 0188

MACRO v03.01

H 15
11=-APR=80 15:01:20 PAGE 23

.SBTTL

DATA FORMAT

DF1:

.WORD

000
000001
007
000

DF2:

000001
04
000

DF3:

052636
052640
052641

000001
005
000

052642
052644
052645

.BYTE
.WORD
.BYTE

1
7

.WORD
.BYTE
.BYTE

5
0

000001
002
000

DF10:

.WORD
.BYTE

052646
052650
052651

000001
002

DF11:

.WORD

052652
052654
052655
052656
052660
052661

000002
007
160

DF12:

052662

000002
007

000

DF13:

160

000000
005
004

DF14:

700

000001
010
000
000002
006
060
051446

—

O
s

VSN

o000

N~ NN§NNN ~

2674

000000
004

2
0
1

.BYTE
.WORD

;2 DH'S TO BE TYPED

160
DHI2A

;WORDS 1=4 ARE OCTAL S5=7 ARE DECIMAL
sADDRESS OF 2ND DH

JALL WORDS ARE OCTAL

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

.WORD
.BYTE
.BYTE

DF21:

.WORD
.BYTE
.BYTE
.WORD

DF22:

.WORD
.BYIE

“D8
0

60
DH21A
4

1ST DH

;6 DATA WORDS FOLLOW THE 2ND DH

7
160
2"13A

DF17:

.BYTE

;7 DATA WORDS FOLLOW THE

004

sNUMBER OF WORDS IN DATA TABLE
sALL 3 NUMBERS ARE OCTAL

.WORD
.BYTE
.BYTE

014

sNUMBER OF DATA HEADERS

2
0

.BYTE
.WORD
.BYTE
.BYTE

051225
005
004

TABLE

DF&:

051146
006

SEQ 0189

000

(DF)

2
0

.WORD
.BYTE
.BYTE

WNAAWAWAWAWNE BN 8 88 58888
N N N NN N N N NN D) PO N RO PO PO NI NI N = b cd b
s e’ i s et
NOWVS
W
—=O VN
WV WN - OVCONOWVES
N =O VN
WV
NN = OO0 N VI W
= O 000

O WIS NN -

CIRMVAQ RMOS/3/ 2 Ex1 'D DR TST
DATA FORPAT (DF ) TABL 3

;WORD

IS DECIMAL

;WORD 3

IS DECIMAL

.WORD
.BYTE
.BYTE
.WORD

.WORD

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

DF&S:

160

.WORD
.WORD
.BYTE
.BYTE
.WORD

000

H43A

HGGLA

DF&4:

or
—

DF&3:

.BYTE

;WORD & IS DECIMAL

.WORD
.BYTE
.BYTE

052010
006
000
052112
006

000200

DH23A
5

DF&2:

160

052776

O~N—

NNNNN

.WORD
.BYTE
.BYTE

052010
006
000
052064
003
000
000003
007

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

DF&1:

000

000003
007

OWOO~NNY

007
000
051762
003

BYTE

VN
= O

NNN
NNNNNN

WVWirRN—=OO0
VSN —=O

SNNNNNNNNYN

VAWV

NNNNN&OO
[«—=O0WVSAN—=O0>
Yo AV IV IV 1V 1 VIWNE
VSN

SNNNNNNNNN

WVIWVIWVAWUAVWAWAWAWAWY.
NN

—OoOo

B8N

000002

NNN

W
W

WYY
NN

WAL

000001
007
000

DF23:

051572
00%
000

OO0O
AWV
NN

000002
007
010

000001
004
000

[eleleleleleleleleelelelelelelelele- BNelelelelele]

[+ -]
0
—

il —lh —lh

-t

=]lelelelele]
O
SIRER288S

014

OO0
WAWY
DO

o
~N

(=l=lel=la]

58 052715
59
6? 052716

»
H

(DF) TABLE

DATA FORPAT

MACRO v03.01 11-APR-80 15:01:20 PAG% 23-1

~NwN O\Ng oo o NW

CIRMVAD RMO5/3/2 EXT'D DR TST

160
DH44LA
6

0
DH4S5A
6

0
LSBTTL
BUFFER:

START OF

.END

200

READ/WRITE BUFFER

SEQ 0170

ATA
= 100000
T

TV TV T

—

nmn

LOB LI LI I

LTI T

—— 4
——

\vlelelelolelelele)

(=l =
bbbl =lelelelelelelelele]
S WO O OO WMWY
AL
WMt OOO ==NININ)
it et O O = et et et O =t
FNNOO
== =OONO O IV
WO N

(=l=1=] OO0 00000000000
LS IVoD o WO WO WINWNINNO
W S &~ &~
oo~ OO — OO
— O—==~ wWOonrn w N OTM 5
N B Wiwru
N
NO~N —_N O » o O == OO0V
s SO~ o ~ ornoO
NN
OO

NOWVSUWN
= b bt 2 s OO0 OO0 O0O0O0O0O0O
VS WNN—=O
VONOWSWN—=O

et TM40 LAt LA LaS T ONT N T.NT N1 N1, N1, NT,.NT,.N1,NT,8]
NN=OO0OO NNNNNOO N~N~NO OO o
PO
NN = O S NN
— = ON N~ oW
(%olB NTe BTV N Te Yo N ST e
N NTe N VT 870 Ne N VT~N NT,N]

AUNIT

elelelelelelelelelelelelelelelelelelelele]
T

AMADR1= 000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 000000
AMANS1= 000000
- AMANS2= 000000
AMAMS 3= 000000
AMAMSS= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000
AMTYP3= 000000

AT?7

000000
000000
000000
000000
000000
000000
000000
000000
000000

ATS

ADDW3 = 000000

A
— ——

ATé

000010

ADDW4 =
ADDWS =
ADDW6 =
ADDW? =
ADDWS =
ADDW9 =
ADEVCT=
ADEVM =
AENV =
AT4

ADDWZ2 = 000000

000000
000000
000000
000000

AT3

ADDW12=
ADDW13=
ADDW14=
ADDW15=
037004
037005
000000
000000
000000
000000
pad
C

SYMBOL TASBLE

MACRO v03.01

ACTDRY
ACTSTR
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
066336

D T T T T CO D O O

ABASE = 000000

Bt bt Bt Bt bt bt Bt Bt et bt 5t Bt Bt Dt Bt Bt Dt Bt Bt Bt bt Bt Bt

ACCESS

CD CD U0 0o o T T T Cd Cd G T 0O G

CZRMVAO RMO5/3/2 EXT'D DR TST
11-APR-80 15:01:20 PAGE 23-2

J 15
SEQ 0191

K 15

CZRMVAO RMO5/3/2 EXT'D DR TST

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

X111 01§212
X1T16

041564

LODEV

046036

SYMBOL TABLE

SEQ 0192

012746

INCTRK

032152

MSGB10

050155

OPNFLG

001334

x1T12
XIT13
X1T16
X1T15

014134
014636
015376
016136

IR
=
ISR
17
ITEMGT

000100
061740
002340
002242

MSGB12
MSGB13
MSGB14
MSGMAX

050105
050054
050012
046506

OPNPRM
OPNTST
OPNWDS
OPN.CT

035370
035216
035714
035222

X1T117
X112
x1720
X1121
x1122
X113

017224
007652
020004
020622
021016
010072

LACNT
037016
LC
002330
LDCMD
027066
LF
= 000012
LKS
001514
LKV
001510

MSGNON
MSGNUM
MSGSEA
MSGTST
MSG.CS
MSG.EQ

046642
046625
046605
046253
045702
045700

OPN.N2
OPN.X1
OPN.X2
OPN.1
OPN.2
OPT

XITS
X116
X117
C
ER
=
ILBUF
ILRAN

010730
011220
011616
002326
000020
032256
033340

LODFLT
LODPRM
LOP.CK
LPB
LPS
LPTAVL
LP.AVL

MSG.FS
MSG.FT
MSG.IC
MSG.IT
MSG.LC
MSG.LS
MSG.LT

S
1

002342
002334

T MmMMmMMmMMmMMmMMmMmMMmMmM
MMM mmmmeT

X1T10

016560

T T T T

X116

010504

J10TVEC= 000020

wD
1

LSTRK
LT

MT16 = 010000

046450
= 000002

= 000004

3
=
4
=
5
=
GETADR

' GETNUM

. GETREG=
GETREQ
GETSWR
(]
=
GTSWR =
GTTST1
GTTST2

000141
045144
033776
000001
104406
034364
034450

MES.FT
MES.IT
MES.LT
Ml
=
MNDLTA
MOC
=
MOH
=

045652
045662
045656
000004
037100
000400
020000

= 002000
= 000400
= 000011

CIC

002332

| 1E
=
' ILF
=
' ILR
=
CINCCYL
L INCSK

002000

000100
000001
000002
032202
007566

MDF

= 000100

MoL
= 010000
MPE
= 000400
MRD
= 002000
MRMCS1
045436
MRMVEC 045446
MS
= 000040
MSC
= 000002
MSEN = 010000
MSER = 000200
MSGAVG 046514
MSGBO1
050555

MSGB02
MSGBO3
MSGBO&
MSGBOS
MSGBO6
MSGBO8
MSGB09

05050%
050435
050415
050345
050301
050237
050200

045630

045666
045641
045636
045647
045633
045671
045644

PRM1S

OPN.N1

PRM21

PRM22
PRM3
PRM4
PRMS
PRM6
PRM7

003510
003200
00322¢C
003240
003260
003300

PACK
=
PAR
=
PAT
PAT.PT
PATO
PAT1
PAT10

000123
000010
002346
003520
003560
003620
004260

PR1
PRZ
PR3
PR4
PRS
PR6
PR7

=
=
=
=
=
=
=

PAT12
PAT13

004360
004420

PSEL
PSW

= 002000
= 177776

047012
047054

PAT14
PAT15

047110

046662
046737
001000
000010

MXF
=
MXLACT
MXSEEK
MXSTAL
MXWNDW
NBA
=
NC1

001000
037074
046424
001460
037102
100000
002356

MXDLTA

037076

036126

= 000200

PAT?2

003660

004160
004220
000400
002000
001000
000200
020000

QDRVS
QDRVE
QDRV7
QINPT
QOUTPT
QSTART
QSTOP

000240
001504
001506
001502
001476
002000
045166
002322
002432
002464

RD.RM
RD.RM1
RD.RM2

004120

=
=
=
=
=

PRM
PRMLMT
PRMMSG

177772

002362
003116
003132
003320
003336
003356
003372

= 000000

000040
000100
000140
000200
000240
000300
000340

= 177776

QCN1T

PATS
PAT9
PDA
PGE
PGM
PHA
PIP

PAT7

003500

PTRN1S
003476
PWRVEC= 000024

QDRVO
QDRV1
QDRV2
QDRV3

PRMPT
PRMO
PRM1
PRM10
PRM11
PRM12
PRM13

000115
000001
046312
020000
020000

003720
003760
004020
004060

occ
=
OFD
=
OFFSET=
0
=
ONECYL
OPE
=
oP]
=

100000

PRO

PAT3
PAT4
PATS
PAT6

PIRQ =
PIRQVE=
PKB
PK(
PKCS
PKV
PLFS =
POPQUE

000200

004320
004460
004520

NC2
002360
NED
=
010000
NEM
= 004000
NOCLOK 046135
NONE
046125
NOOP = 000101
NOTPRS 045770
NOTRM
046015
NOTSAF
046005
0BCK
= 100000
OBEN = 040000

003402

036132
036144
036150
035226
035250
040146

MSG10X
MSG11X

MSG7XA
MSG7XB
MUR
=
MWwP
=

003412

003422
003434
003160
003444

PAT11

045626
046522

PRM1&

PRM16
PRM17
PRM2
PRM20

045674

MSG12X

MABOVE

046500

OPNPAT 035572

MSG.PA

046556

001372
002336

046527
004000
020000
037064

034070

MSG.FC

MSG.R
MSGOUS

MBELOW
MCLK
=
MCPE
=
MCPEMX

" HC1
' HCRC
L HY

002344

MSGMIN

= 000002
= 002000

000010
000020
000040
045260

GTTSTS 035012
GTTIST4L 035014
GTTSTS 035124
GTTST6 035164
GT.PRM 034226
GT.PR1
034230
GT.PR2 034360
" HCE
= 000200

IAE

LSIT
LST

026434
026672
030466
001524
001522
001324
026114

MSGB11 050127

QDRV4

QTERM =
RANADR
RANCK
RANPAT
RDCHR =
ROLIN =
RDY
=
RD.ADR

RD.RM3

RD.RM&

RD.WRD
READ =
READHD=
READIN=
RECAL =

044500

044572
044612
044632
044652

044672

044712
044732
044752
044510
044530
044550
044552

044772
033614
033362
033560
104410
104411
000200
043762
043736
043760
044104

044110

044114

043764
000171
000173
000121
000107

CZRMVAO RM0O5/3/2 EXT'D DR TST

SYMBOL TABLE

RELEAS= 000113
. RESREG= 104413
' RESTAR
006540

MACRO v03.01 11-APR=-80 15:01:20 PAG% 23-4

SEQ 0193

- RESVEC= 000010

sC5
SC6
SCOA
sC7

042242
042636
06%552
042700

STRT2A
ST.CLK
ST.LCL
ST.PCL

004616
026156
026366
026324

TEST7
TICKMS
TICKUS
TIMER

011362
001342
001344
037032

178
1781
ULDFLG
UNLOAD=

J01616
001636
037006
000103

REX
=
RHVEC
RH.ADR
RMADR
RMAS
=
RMBA =
RMCS1 =
RMCS2 =
RMOA
=
RMDB =
RMDC
=
RMDS
=
RMDT
=
. RMEC1 =
. RMEC2
=

010000
001472
001470
037066
000016
000004
000000
000010
000006
000022
000034
000012
000026
000044
000046

SEARCH=
SEC.DS
SEC.RD
SEEK
=
SEEKFG
SEKCNT
SEKTMR
SELDRV=
SERIAL
SETBUF
SETFOR=
SETVEC
SET.IE
SK1
=
SLASH

000131
001366
001242
000105
037030
001444
001442
000145
046242
032732
000143
005760
044426
040000
045725

SVRH70
SVSTAT
SWR
SWREG
SW0
=
sw00
=
sw01
=
sSw02 =
sw03
=
sw0é¢
=
SW05
=
SWw06
=
sSWw07
=
sw08
=
sw09
=

044310
001354
001154
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

TIM.PT
TIM.UP
TKVEC =
TPB
TPS
TPS50
TPS60
TPVEC =
TP50
TP60
TRAPVE=
TRCKWC
TRE
=
TRK.DS
TRK.RD

001430
001374
000060
001520
001516
014132
014114
000064
014124
014106
000034
001450
040000
001370
001360

UNSTAT
UNTOFF
UNTON
UPE
=
uslt
=
us2
=
US4
=
VERIFY
Vv
=
W
=
WCE
=
WCEFLG
WCF
=
WD
=
WLE
=

045731
045747
045760
020000
000001
000002
000004
030746
000100
000040
040000
001432
000040
000010
004000

RMER1 = 000014
RMER2 = 000042
RMHR
= 000036
RMINIT
037104
RMLA = 000020
RMMR1 = 000024
RMMR2 = 000040
. RMOF
= 000032
. RMR
= 000004
. RMSN_
= 000030
RMTMR
043324
RMVEC
037070
RMWC
= 000002
RM.REG 045556
RMO5
037654
ROTATE 046261
RPT
002324
RSTRT1
006504

SP10
SP11
SP12
SP7A
SP7A1
SP78
SP781
SRCHWT
SRCHOO
SRTDRV
SRTINT
SRVCLK
STACK =
STALL
STALLO
STALL1
STALLZ
STALLS

001726
001734
001742
001676
001712
001704
001720
037002
031110
006232
005726
026422
001100
030664
001434
001452
001454
001456

SW10
=
SW11
=
sWwi2
=
swi3
=
SWié
=
SWi5
=
SW
=
SW
=
SWweé
=
SW5
=
swé
=
SW?
=
Sw8
=
sSw9
=
TAB.XY=
TAP
=
TBITVE=
1

002000
004000
010000
020000
041000
100040
000004
000010
000020
000040
000100
000200
000400
001000
001114
040000
000014
042004

TRTVEC=
TSTDRV
TSTNMS
1ST0
TST1
TST1I0
TSTI0A
1ST108
TST11
1ST12
TST13
TST14
TST15
TST16
TST17
1812
15120
15121

000014
046222
001330
007016
007204
011620
012310
012702
012750
013214
014136
014640
015400
016140
016562
007412
017226
020006

WRCKHD=
WRITE =
WRL
=
WRTHD =
WRT.AD
WRT.RM
WRT.R1
WRT.RZ2
WRT.R3
WRT.R4
WRT.R5
WRT.WD
XXDP
$APTHD
SATYC
SATY]
$SATY3
$ATY4

000153
000161
004000
000163
044206
044116
044202
044274
044300
044304
044306
044204
001466
0011C0
021310
021264
021272
021302

' SCOPE = 000004
. SCTRWC= 177400

$T101
S102

063450
043544

TEST16
TEST17

016260
016702

REV

' RMERRS

.
|
.
|

066464

036720

RSTRT2 006530
RTC
= 000117
R6
=2000006
R7
=%000007
SAVCSW 001316
SAVEFG 037026
| SAVREG= 104412
- SC
042154
. SCO
SC1_

= 000100
= 000200

- SC2

= 000400

SC4

042230

sc1
sC12
SC13

. SC3

043006
043116
063166

0462224

SC8

SPTYP

START
START1
STARTZ
STARTS
START4
STATBL
STKLMT=
ST0
ST03
ST05

ST06
$107
ST08
$109

STRTMR
STRT1A

0462756

031470

004624
004570
004612
004560
004602
001750
177774
063414

063574
043620

043626
043664
043714
043724

031274
004574

SVADR

sWw1_

TESTO
TEST1
TEST10
TEST11
TEST12
TEST13
TEST14
TEST15
TEST2
TEST20

TEST21
TEST22
TESTS
TEST4

TESTS

TEST6

001436

= 000002

TIM.DN

TRNSWT

001412

037000

007166
007374
012052
013134
013612
014346
015050
015610

15122
020624
18713
007654
1ST4
010074
TSTS
010506
1ST6
010732
1817
011222
TYPDS = 104405
TYPE = 104401

007546
017454

TYPON = 104404
TYPOS = 104403

010244

112

020302
020736
010010

010642

011066

UNS

WRCKD = 000151

$AUTOB
$BASE
$BDADR
$BDDAT
$BELL
$CHARC
$CKSWR
$CMTAG

TYPERR 022000
TYPOC = 104402

$CM1
$CM2

TYPTIM
110
11

031576
001646
001656

$CNTLC
$CNTLG
SCNTLU

T7A

001606

T7A1

001666

001626

= 040000

$CM3
$CM4

=
=
=
=

001150
001310
001136
001142
001224
022716
023672
001114

000006
000014

000006
000003

024604
024616
024611

$CPUOP

001262

$DBLK

023364

$CRLF

001231

CZIRMVAO RHO%IS/Z EXT'D DR TST

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

SYMBOL TABL

'
|
|
'

$0B2D
SDECVL
S$DEVCT
$DEVM
$DIV
' SDOAGN
$DTBL
SENDAD
SENDCT
SENULL
CSENV
SENVM
' $EOP
' $EOPCT

025314
025474
oo1§aa

| SERMAX
| SERROR

001131
021532

| SERFLG

| SERRPC

' $ERRTB

SFATAL
$FFLG
$FILLC
$FILLS

SMTYP1
SMTYP2
SMTYP3

001265
001271
001275

SRTNAD
$SAVRE
$SB2D

021256
025100
025260

SHINUM
$ICNT
$INTAG
SITEMB
SLF
SLFLG
SLONUM
SLPADR
SLPERR

025646
001120
001151
001130
001232
021527
025650
001122
001124

SMXCNT
$NULL
SNWTST=
$SOCNT
$OMODE
$SOVER
$PASS
$SPASTM
$QUES

025076
001170
000001
023144
023146
025062
001242
001106
001230

$SETUP=
$STUP =
$SUPRS
$SVLAD
$SVPC =
$SWR =
$SWREG
$SWRMK=
$TESTN

000167
177777
025510
025026
000220
167000
001256
000000
001240

001272

SRDCHR

024234

$TkB

$HIBTS

001100

021172

$MADR1

001266

001117

$MADR2

001132

001126
001222
001254
001314

. ABS.

052776
000000

| ERRORS DETECTED:

001276
001302

SMAMS1

001264

$MAMS2
SMAMS3
$MAMSS
$MBADR

001236
021530
001172
001171

001134
001140

$MADR3
$MADRG

SMAIL

002002

' $GDADR
| $GDDAT

$GET42 021234
$GTSWR 023762
$HD
= 000000

001312

025652
021254
023354
021244
021200
021260
001254
001255
021020

SMFLG
SMNEW
$MSGAD
$MSGLG

$MSGTY
SMSWR

001234

001270
001274
001300
001102

021526
024634
001250
001252

001234
024623

000
001

| VIRTUAL MEMORY USED:

54064 WORDS

| DYNAMIC MEMORY AVAILABLE FOR

( 212 PAGES)

69 PAGES

| CZRMVA.BIC,CZRMVA/C=CZRMVA.DOC,
CZRMVA, SYSMAC/M

SEQ 0194

SMTYP4

$SRAND

001301

025550

$SCOPE

$TIMES

001220

00116?
00117
001164
STRAP
025174
$TRAP2 025216
$TRP = 000014
$TRPAD 025230
$TSTM
001104
$TSTNM 001116
STTYIN 02456C
$TYPDS 023150
STYPE
022366
$TYPEC
022600
$TYPEX 022720

023374
023404

STYPON
$TYPOS

024646

001162

SROLIN 024324
$RDSZ = 000024

$TKCNT
$TKINT

$SREGO

001176

$TKQIN

023376

001210
025136
046056
046063

$TMPO
$TMP1
$TMP2
$IN
=

001212
001214
001216
000023

SREGAD

001174

$SREG1
$SREG2
$SREG3
$SREG4

001200
001202
001204
001206

$REGS
SRESRE
$RM02
$SRM03

$RMOS

046070

$TKQEN= 023404
$TKQOU
$TKQSR
$TkS
$TKSRV

$TNPWR

023400
023402
001160
023454

025424

$TPB
$TPFLG
$TPS

$TYPOC

022746

SUNIT

001246

022762
022722

SUNITM

SUSWR
SVECT1
$SVECT2
$XOFF =

$XON
=
$XTSTR
$$GET4=
SOFILL

.$X

001110

001260
001304
001306
000023
000021
024660
000000
023145

= 001100

eF5~NOy3—rv~--M-.—ogo&ORu'B———eo=r<-="@-R\2—NLM(\ao=lSo—|}=Now=—g]k\S[W—S\NyTaLEN—A0dlM0O-nNPOCLOA7q oMTw—~-—e0Na"aallo~l~aaWO—aNbs0eobE~rE-Oo—e_NoO0‘—NPnRox—ando=ROO0olielelooooeB]M-NeT—OvLooNs)ev=l\MoOe@&vx)mr—-ow-0—"0LALLo0=a1Lla0ow-d&—U0o
a.O«0 -aLlsl oNW—*e\=F OTN-—

OWA L
NaT0INDW5OVs MNSON -A—0MN

S— w won
——
—
—
o—
<— = —0 o

v01-05 )

&R
£
=» &

(CREF

MACRO VO3 .01

-o-5<4~iT~e 5~47A")5—]5AO55H4L al'b NwNNWK1B)owvovv-n)i)§
=

VWSNO NWe— eO~
-~
—
O—AV_—ONo O e-—O& —2—5v'b

~O0 T M —ONR

L0TO—RN« NW& -w=o

J
<
X
N
e
—
N
=
=
U
W
e
t
TaN0aN0 NNOy-*—N-M-VII=OT=L'L\L—WOOm&OM&RTNNMm0w)NIAn)eRIMTON(IuVY5r—TNaO—O~5~ yWIRU3eLOnNvTOO~--~O&Ls"vM]\OsNr\JSO—=T©=T—NII"vy—lRw~-WF\OTN&NO-NOWR=0rO~oMTAV0O©vImS~WRo—N—N5~oONo~ I=[ILL] SO-Tee)OVo-5W«——VSWN0OoFvTOo-IB—TvJ T=n IO8T0ooNW—IIrL1O0OTnOwow——II)VOOTTnoo08NO"PIONLTxV0SONTRVnI=V"MwR0WAArN\NONwO8+V£INnVvDOTnnNMA|DN0vnoWCnW'!BMDNVMOL|STIGEVRL«lTNsIoNaUOTN5—-I1VOIlR8IG—INLO0VnO~Y8MOV.oO~N ~N —T|e'" AbL l«OuITNnInt|TIOoOgIO—TIIrOI«—WOT==~TLIe=Row& ~O o—e ~O wIN=I'iP ']B MOt
--5i]l—— -7""—-5 w["tW\o)Ni1v])-~)
“
“
“
‘
”
w
w
s
‘
o
N
t
L
L
v
t
P
P
S
2
o
S
Y
s
o
J
E
S
C
<
r
N
I
O
W
O
<
S
T
~
oo - - - - - T

A"M"NNNPR
RDa LUVAA OUVOUOAR ARW
VOVOLO
CROSS REFERENCE TABLE

CZRMVAO RMO5/3/2 EXT'D DR TST
N 1 15
S11-APR-80 15:01:20 PAGE E S~1
SEQ 0195

~
M
N
o
~
—
N
4
~
B
N
2
0
&
—
~
O
~
e
S
N
a
~
—
N
0
F
o
O
N
—
I
T
N
—
_
—
F
O
—
-gNalT”—alMx]

~-—N ~MN

1'i"

IYN-ONOIVI®N—L ~N-—"O-— cgF—ovt\aOloN—ILoN—)oe—BO0-5Ln—to—~i

-U]\g0aN|OCoo—WNlOFY|—-NMmNoa)NVlN—AOaae—BII=7TONOd=£O—'IeIe~_CNM~WORe-yIIe—NGAOO—oMeUR[N—REeR—=~RMNMONFRT-aaOlR)]L[>»L2RNM~3RR—[NoT-—-NO-—0a|"LO¥13—o~a-NR—'-SY~—]e4—Lalks"LRt&--3o&oNF=NM—OgO—*l"|uV~MO—Ly——gOGOMIIBu0NU—Tko-O-&-g\RNO~UMa3l—--4gnNoL[V[—-MBEoAoNY-ogO—0aO1"1RWl.0yNNa—-a==gONOMlMe—SD—--5-&"N———oo-54—NnBdBeLNUR—X\r)O—]BN[—C-—~VoBx—NNre..Lo~--5-wtei.RlllP~———aX(B7]-NBODRVMMEO—~VNMe~B=MVe-

s).=Y”eT—~MN0[NL—oaO"lgalFeyM)aWl=Y—EV)aBYO[—WNgVNsON—L'lvuvncgoylaN—li=aulwaMlLm£alN“a-d.reaFLONo—)lo"-TAunlaAe-)-MNl)——[AWYOgaVNSOMJ*"lMaNl—NMoMLO—k-0sNNlak—~-.=-=MNt=LRCaoNNy-IFY--1NUN—4OM-WKNAeO\FOM—=lV4VON—mMxPXquT3|Mb-8—.mtM-anr.NemslnMer-\=r0.O=NLM"M.r
3= 313331 S 55&&25 -REBERRII-RARAa
N©NO—.OA-om|ANO\BB0I0~OR—IIIIOYy~WIaIII—N%n£—[[[LI N-ONoNM""|"\ylag—-[o ONNO—M|-W@&IIONnO&OIIM~SN——LL-LLITMON—WsW)|_w—erY—BUt1n~NOLNO—TLoro—1 ——"~L-<-o5MaBi" i" N3l
Na—(p0OW——)Oo—-Wy aB-le—lvel] gO—u0nOgNLunM\ge"u]Rn~0=5—N-—O—~-= ~N
- CROSS REFCRENCE TABLE

CZRMVAD RMO5/3/2 EXT'D DR TST
(CREF

v01-05 )

B 1 16
S~
MACRO v03.0! 11-APR=80 15:01:20 PAGE E $-2

SEQ Ci9s

M[Yw=-O>JDLeA1<I~-o0r2>1ve- WQ9”0.“o2e—w'«1 PBL-R4NeI~WOFTaTTTMOTO~l—TMNS a2"V[EOoW-eNly«—aN [iv1LEI"(BENRAe oRbL~UMTnNeaIl}TNITLB3UP"0N|1L~0MFa=O&—ReFM0TnOl ~OMGN-A*W—VtNIeN—|T=W*-Mr-—eg—"[I1L| -wWeLom NO—-y~VoONM[TMVONnC k=W«L-3R-e— N-~—TIN3MNS N-—03MSNMg

$OCN T

16=105#¢
05

141 05+

14-1 05«

SEQ 0197

NF~-—-O—O7W—0mEO—5a0uI—wOW0—OS3|—0veO—-ov0eO—=0N¥M—OeNOO—MMO1NMANA=e-—3NwWEM4-——=A-NOA\AN—kTTDVAOTBIMCM~—OkN<NMOWoV.INM-OSGa~NWD.taa~-mm—l-(—l@l)t)“N.L—a)l5wlz~—-NsO—~oNml-ob=—mwNF~=-el—~x-—n—~enO-—d-e—
.5o—B1~ZvM'"WO&vsNvmIoomIAoOoL-ANO'IIeNN~IMI(INOIMRM-~Te—LNnOITo=e)LeO=IgNAN=TINITI&IOOTSUISTLTT==INwuIO5iHMIoO%=)0.=IL0IOMUTrSMY=NLU=RsIo~=1'NOINIVI,I=NI~NTNONINTNm"O\II'N®-0O=F1'N31i)‘1NFo510=I)i1ON“B]i3
- -—v_0—NNT o-~I@S<-~YOIeO<-

"oOL©Roi-I5o—-—~~o'bEL'——a|o"W0v)TOSoo“-4E&eNvJ-0o"Ao5o-.BO-==—BEvIuA—-Wo=ESN"OV—3oe4-@=_LOMF——Wg33oVM)—leN0=LONO——@——J—Ee=AoM_ea0_D—V=—WO~eBOA-I_B\Ny=MW€NMM—MWXW=~_IOILNOO0RNX_e—MDoV-I[0—ON—_eVlI_NWOOS—M-NLL—(o8o=Eb-—S4eeI=g—--4o-R))BB=3ON~2—A2o—v=22=ANN88—oNoRO—=oI_isk=tL~NNON0©O-—F\ICTONlraAVaOTl—l~IMS~OFVY=lS0OAARS&5FF—N8NLLBD.eW—OVaa~-5NO-~~-oMTS]nBND00N~0=—[U+wRoMOM=OO£IMNUlO""-0.—NRT-O-L0IIo—-LIYo-O8OeLM0a——SS0SlO—OOOT1a=P¥“L~aaeN-a~Nw-5~=”-W¥NE~iiB0U00——“VSFERa0E—Y“M.Et.8NtP.EL8NFt"lON.AN\t8M.0YteS.~~o<N——LtN0C~.N0~—o~-—ai1YBtNM)Nl.CtNU—OPiTVWNAMeI"R.Cwo[O4-)0L~OoO-~o5oL-3MSB13ii)—A—\82O>-~ee-UU"—«LO—3R-TL1CsL--(W-E a5=—l
" ] i)

KT“OOhe5oae‘~onROO5nae“nE0e0On4ea06On004os®O=6A&O‘g«Ra5e0OC«OR5AogB5gLOag5N‘[—e02In8N02AV4-NOA‘W26V-0O‘]R0T—A_(S==“—I4A_6NS—“AAMN4—ST=1IA3WS‘4NA5I6E5OA1Ev2S-S5=I2E—5-NEr‘G0M2‘2== 62O“2—5N
ooooo<-o<(-B'B’J¥——>o OOO)——-N—N—&A-® L~OSN—OeB—II&IO-V—IIII—~NSANOW-O—)|~OyN&O—-~LLLLLLNs—-eUg-S- —S—N -—-—oUA~—IT—LMOLeNW=CP5e-eUUVLNS—NUUIL0Ly—ILLOT&ON ~Twd<n-O—N'1*[!BNnM—["O—boOOY<=o"iU"l~—LONO--a0O0el—1LaILL0O-ov1-O¥T9EOOORO0odNoO -WMO o—<W—No1BH")U $ii~ Oi oo§0i
(CREF

MACRO v03.01
v01-05 )

D 16
11-APR-B0 15:01:20 PAGE S-3

- LR = -e

w£2&Xv=O31st7Dx1 -v—Te"= [oOa2L"VwXvEJ.N[e-RlaJk]i1YJ~al- ~NFaMo—-AVNTM k=-2l k=L&3I =.-o
-— — —- ——— —

CROSS REFZRENCE TABLE

CIRMVAD RMO5/3/2 EXT'D DR TST
SEQ 0198

STKSRY 14-109

14-109#

E 16
$cQ 0199

STMONSVaOLNOTlaMNalle—OLoY—lovlNNeel—NgMoYO—leMYTwJNOMeTVUiOTMavGNoW=NVewOeT~nVOTN&Veg[O(=AleNVNONo=—eNelNO¢FI-0OeeMNMo—eUlN-Neg=Oego=eTsOeiettFBW
NTOTNTTOSINIONSOMagOlaVlAaMl—olNMoVOlYTOTU\NM(NM)STeN\~NTN(VNLoNWeaeeeolNeoOleNeMele=eovelOeODtF
y—v—v—v—v—v—v—v\)=Ng
NR)D—)D)UNUOMO\(=)(N)eNMeNeMNg o=vVA0T
ooDttt
l}aallLelaleallTallTeNlNaW'ALoNI1[oeVeeelel Ll

L0000

(CREF

—— o O

Oalal’al’al’al’'al’s}K—e
~Ll— OOMODDNOWJVONWNO NNWTNMOANNMTJTIOTNNTMO£
CROSS REFZRENCE TABLE

CIRMVAD RMO5/3/2 EXT'D DR TST
MACRO vO3 .01
v01-05 )

22-5
22-6

EBRN LlOJaoNlOWOnN aOANI7MG0ONCwDED VNAOWMIO NAVAOAVNODN— 0OFNUM—v=GOI0VANOANORVOM eRitLIOBNDR)ANOOV eT— eDTl 0NIFOUNA=—MVIM g—eB=
BA4
=»

11-APR=-B0 15:01:20 PAGE S=&

22=7
22-10

22=12

14-103

14-103+

14-103

TIT "alvalva i

SEQ 0200

22=14

22=15

E=3

22-17

22-19
22-20
22=21
22-23

LSASTA

14-3

6 16

SEQ 0201

CIRMVAD RMO5/3/2 EXT'D DR TIST

CROSS REFZRENCE TABLE

. $X

Ale
A7
ABASE
ACCESS
ACDW1

(CREF

4&-319

6-319»

6-0

5=0
18-40#

4-88#
&-89#
5=0

MACRO v03.01
v01-05 )

W1 6
11-APR-80 15:01:20 PAGE S=5

ACDW?2

ACPUOP
ACTDRYV
ACTSTR

15-738+

ADDWO
ADDW1
ADDW10
ADDW11
ADDW12

ADDW13

ADDW14
ADDW15
ADDW?2
ADDW3

ADDW&

ADDWS

WA UWA

ADDW?7
ADDW8
ADDW9

WV WA NN WA
1

ADEVCT
ADEVM
AENV
AENVM
AFATAL
AMADR1

' AMADR2
AMADR3
AMADR&

AMAMS1

WYYV
1000

i
o

AMAMSS
AMSGAD
AMSGLG
AMSGTY
AMTYP1

W WY
i

AMAMS?2
AMAMS
3

' AMTYP2
- AMTYP3
- AMTYPS

ATO
AT1

4£=208#
&=209#

s
—
—_—

WSS

—

O W

ASWREG

U
1
o

AOE
APASS

APRIOR
APTCSU
APTENV
APTS1Z
' APTSPO

elelelelelelelelelelalelelelelelelelele)

ADDW6

14-103

15=747+

15-:09

SEQ 0202

AT2

4=2108

116
SEQ 0203

o—3w—~-o—n—MMooVl—~¥O5n-—[O-—W—oVAl-a—l[ d~ON——¥alOMn"a—O-lNew--w~li——Los[oe-"—al—N¥al

XTMMo—'NallMaI"O0.)NLOaMVleoa3E—OA—~4-=5E—YN~)o--YNoM3--O(——oJ—08Veal)oOl—RNoNkOA-["—X[a(l"V(aol"~o4aN[lav¥V-aEl—)XVa(l2wNd[-("NeV—aWl¥rV\—a)lMWwOrvw—r—55

awVWVVWMWO5%789Oo
~ —_—_e— —MNO

2> DDODoeteeegge)St otgWgtte18tett
~aNRlmo~2oo--d'''H5=N~——.OUo—MgM—4"UUULL\LNLL5J—JAl 0Oo§'aNoN-wL||)S03S~L—— LLiHN "aUoWOOO——a||l)lv"a—aVl11lVv—oaa|LLl0~lVOw-ow-~w ]" 1H" ——OMIT[oww —~"@1 ii |a)0OLNO—oo AAN
CROSS REFZRENCE TABLE

CIZRMVAQ RMO5/3/2 EXT'D DR TST

%'7

MACRO v03.01
(CREF v01-05 )

15=152#

J 16
11-APR-80 i5:01:20 PAGE S-6

15-327
15-42¢4
15-530

SEQ 0204

15-928

15-950

on &« =

k
=
S
ON0eMoaOae0Dea OITM3I—VTIONVTNOITOV0IT—NIT UMd~F'a=n5eg~OI—ilnV"Nisanln C2[Boe—K4gNwM-a.l«R]I.N¥&MOVn©Ne—WO«o~nONr L9)|iUB—vONATM0yO "I|'~(J[1LVa4<ANElOo-YCODel OMAvoN—e~OQO-N—.~03O P~aAwlvNel@)(YCMdAOaoM]l
=

15-958

15-959

15-979

15-:69

C.SWR

6-0#

10-139

10-142

10-163

10-221

11-170

12-64

K 16

12=126

13=300

14=192

14=202

14-212

14-243 sey;;gg

wo-&— -al0OaON—-*®)L~-SOL-No—~Mv-O—VIR~N—Lo@-—~g]~-o-lN—N—["nO-N—3M-o-—[=o~—h»5<o-<-~e]<——[eC-[Obal—Tawi—Oa\lV=n o~O-N-5—~—OMMN—eOeLO5-M=—alWNOa~-VY)FN]E—FD

-]nAMO—=oVW[0Ne=NTa\MML%JRoVOe~(naxFN¥MIMMAMMACo~~w[v--=L-og&"aN=——N—talOvoMNWom-O-V——OMNWoAB(eVP&EINO-~N—NRN~o-shw]-~-ovARe0N—Od—W[SNMeIS-INOOo-MoT——ToLw|OO-A-O-—N—l~MMovwF=3-—Ne—wRONAOIeCTIN-—-iN~TOrIONeWmOA(~~a-A~IoO—-“NoeINN0—MOM~—NNr)TwM—IaeiOAOHuM-Nm®DNMe—OnNS=eEOeNON-No~M-—TZM—RFNE0eOaw—OlMw~X-W<N0Bn—0ZF-N—O=9R-AeF-~W@<d42<~—ICoT5)[IN8OGsNl“WPeY2TI.LCRa-N@]<-O~OMPNaa>0l1l—YENT=—I5d06VPa5CNTO-eOEV—lea‘o_lTNaL~Av-wli~VE—Ol-—A4eaNNI—v—YllMIiNOE0Ne—a]0PlVE‘—ANT.9=T&8WITM2NO3=JWN0g05T~~cLowT-TN-O\w]INaMN&d—~nlOX—O>N-Me9TeVV=SO—ITVl5=OW~eGoN--5O-<—Nl—N3N—0Oee0~e—dl—-TVIOFL—~MaMON’-l-—e
ABMeOUNWOm—LAMNAmLeMNRL=INWbJNNbTOINNUMbSNRveOYN~O—-oV@vI''iNVOOo—-aLN—wo=OTxcVo©<¥MiOoIa¢M—NU-¥OoUAaRN¢ob9OO(NM0\LU]C8M@~wO.>-gOM—=NUL0IO=INMSeTZWNg2MT=0IMwRNNMN-X--g¥UPI—uE0Trxge&«-g—O0T-a——e=NO_Zxs)MgOTN=g—A0_OON-—DNDMge]UPAN—AO=0OsORNaM—N—0bISJoeBeMTVJFNeedMOIo~—SEi°eU~5XNTL=IP0WHOJWLO=eVTYiUOIMeRLM~T-LIe=WZTAOINDee2NJoNNO)e1U0TOI—U=TsVnNLFTV=—IIOeeXLZITV~@Pa~Y4WROIM!e["BOTNmNVeNMSMATMIFS=BTNNAO-1POoL—LSrlOe010TNvVNlrM«a1Ie0tSATr—NeyiSN—rINe0Mir-R0rSeiONeF—=0sOANONP \NMIRT4Ao«-])0OO—Te=MD=A03OO—=]0MD—dA@CBVe0Me®OdU0ONLG—LN~Te TNO
'ok]3 O@-wo~-=bB'0]—oSN@O"L"L\O0\L)o)~-—A—lNi N~wM-o——bi't bN~ o@N48'L o-o~—LNAiJ] J1JT~M ~i' ~o-~~<w5—=|']?3—N Uo~NVa"""vl'\w-~w]aO5—l ~~©o—HH'1)NN~MNN]LOlLL~e-—=B""aBaN]lly—Oaa.OLUU)ddLL
-~Ooo--.J¥'§N~—yooOw-"UULWL\N3o—vg ~Loo ~oovL— —5e UA]?Nl ~—o¢U 5 Uw~--—~a01i']—l ~[o~~o-—aJ]¥KN¥NN—]La~@wNo—--Ala1""N=vlo—¥\O\—aF]¥—obL]
N—OA®BGW@IeSuTMn~m

MACRO vO3 .01
(CREF v01-05 )

E=d --

CROSS REFERENCE TABLE

CZRMVAO RMO5/3/2 EXT'D DR TST

L1 6
11-APR-80 15:01:20 PAGE S-7
SEQ 0206

=-L

*®

fa—

DF21

7-190

23-49#

SEQ 0207

|
|

————

~-Mo='!
gM~)OB

—ONT e~

J n

["aT o ]

—ONE e~ JF vV n w N

—ONT e 3 NN W N
MO M —e=0uM N o .o ~ —]
— N n "2
g
—ONT
g N
NEO OSSN MRBRO

—aM ~O0O0 & &N M ~N 0

—ONF e — N n w TM

OTNLRTO—()OVN—M N-AFe(|[IOOWWNOOFT MMTN=[[TVM0V "ONOT1i vMw5Oii NOMO["}mNy
&NONNUFOMIMI MIO&BITINN.| MMNOH Wv-v] NG[-~
[
H
0
RN
i—o~] MOMNT1LIOT0=O=NMO A=W

NN~ O MAMONWNWe— O O TM~ O
NN
W
N
"
TN
—
r
J
e
~- NO=N

NAMI I T ITT Jdermerme e e ONOANNNAMI I T T TV D @

@M —xx—o> > >

1675689112‘2001638‘16‘5569012'017313‘511‘57110‘96364637

N NN 0NN NN NN NN NN- —— g g g G g g— g— g T g

SEQ 0208
MACRO v03.01 11-APR-80 15:01:20 PAGE S-8
CZRMVAQ RMO5/3/2 EXT'D DR TST
CROSS REFERENCE TABLE (CREF v01-05 )

DRVCLR

4-285#

11459

SEQ 0209

7TO9C-=O87—TT3-WIN63SONM.UEII33MMM6MM37ONU‘“TMMO68ND9M=05OM—NoM~NGOO-3NR—-—O3OCRAMINONDO~NONVO-yoONoIWwOViNoALnOIn
‘<!
o
A-RNRR
@

LMseOa3—lLO“=alIxslMoeUaxWglBnpeY— OO- v—

DTOO——U1T.NVMOS28TNR3.OSM—#SUVW35SMN40RI3GMO‘0e~N46MR9O—41—RBeeIOoNDoTeOIDeOeoODeTeDOoeIeOIDoOIorDeomDeroDmoeroDsemerDomeNrDeTmeDreeeDeNeDeNes(ADbNeDA==NsDR=Me=NDUICEDOOWoNMC>)WEVMOoinPOa~ya—n
'PG . i

<«O> MNOW—IOFe—=A0OD&~0 oSTwO—NnOUuMnMN ONWON0O SasTlAON—O"UMlaMNMNN8.—O0UMNy—a-=oMnNy80O8015~8167‘OeN9082690 TYVUVY0O90—.G5249O641 STalOAN—OvNMlaMINFT=ONOONk«-&=“s3« 0eiJOVTeo=—vIMWVN
¥

RN— —
P0 ] i P

OnUGD P~ & .

MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

CIRMVAO RMO5/3/2 EXT'D DR TST
1
3
11-APR =80 15:01:20 PAGE S-9

SEQ 0210

DTE

L=1634

SEQ 0211

vd—N"),)MAo[aOylIoeIO=LoM)WNo—MoL=M)MeN—OAMOl—NF0OeaOlINOue—MNoL—nOa=Iov-Ie~IvLN|w-oONAOI—NSOM<n—-—-~—T8&1—«L|3.gMOWO]~oN00lSN—VZO0aywNvSaeRlogWn30lEsrE&MO—AaM0INEA~o-=Not—NASEANAPNASANa~—0RSPPIVNs]Sw~-a6w7egO— oo ooMldv—]r0LNI
U—NWTgO]MVY-iONIMA(Fg\LhBJnMOoOG=M\TT—oeSN=M=OANSMWI—NMOgVONeOoA(oLO—lNra']~IlOMdIVNvmNTOMeoG—0ReOo(Nlr\JaNe—ON[O]——!O=dOL00\aNOo0VI|lNMT~IeIo—a—¢Tel0D0vMTNdoI-~=—O[OMlOi+PaI¥—oUWWdMI\wIO—w~--o~M|N]]F=MBedGIWE0aAdNINoEM—dTOYeNl=v~.eoO-WST(—@--=—QDR8]1ieUMn—DVUNOMVgOoO—-———--—CMGD—E&]]'')B—0~REMNGyE0N0—a—N—JeNeRP1oO|U"|MS_ON=OT———MrUUvN01L1W»CML—ONL~SR-53TIMNe—OTOIVI0rNVT—@-=.&Fn4.oiR—ONMIENWVB—MTCE[O— "NM-oN~YOt0I—aWM)TgFINNOgBUmWNMRgM|wmBgOmoEne/eAOTgrNOEM—neM(gOENnMNw|TvORo-o———MOrii 8U0 3v~eO.rdA—NOA-O~0M=N0OR0N0\0M0ONWN0WOBAV~o0NO-MdO|NMw([oi—oM-wv-wgo ~—-WV—-5V-Vb|&is~]]vUo—a5IN))ONWLNMAwTN®
1
-NL~—5~T-i1]l5— Ln——N<~O]iLAoS o~vwo~——]*-'i]O[
=0oow-——~-]'15N— LOw-wev~a-]b1—l
CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-C5 )

<[IRNVOEVUSYEREVVUAREE]EREE O>—NM«INON
-—

=|W-w-e—nLNOM-~wOltno
=»

1
6
N =APR-80 15:01:20 PAGE S-10
>

SEQ@ 0212

FalaO-¥—l"a) NO0-M—OCnO—MINo.~W—-0O

O-

SEQ 0213

——~—7“—1M29o-68—W‘09—M8>—'763-oL-]—W~O-0NOW-b=Nb=Ob=b=MF=Ooo=QCO02NOwOTAC[Og"OalvwMa)T-O5oD-WO-3-—|ondT|-AllNNo—R-B—O2R!<_O|VeOglveoVl(-=O
4~[LM-M1Lo—-o—-aTO¥A"[Na—}=—lo)5LN(W=la=]L1&—lWOdNa7tOL-[Mowm~3--oI&Yaii]4a——~l)VLMJNa1>L«ilI.E23TOL3WLONV23V—1O=VRR1T3O-~[V[M-L‘-o—d<--MWNaoV§N]¥——o—)a][m%VTY)ON<Y¥[}yIN(2TS=-T]L‘TO7TYV3aI—cOoT1AlaTo-OIl)—VToT«10I-on]l—vO[<onTNeoCV4-:~o~---F5ANiInl1l———vT1yenNTMC2VInoT@:M-LMOTdVRA~g)No-OovIVmL[5vLRC=Pon--—24"2wgOWgiONa(d(—lwTwIaaW-2Iy2AA->—MloVdg\LLVyO]LnaoSSsb-Olo3—lot—IUr[J1«-TIrwZ[aw[5-0WooN2-W.-N~V(3r-W0Va]i———x)[r1Nw8-O-[w}—rF1v-Owu9gm5MN2O~g"]ovOO--~-N-8-Lo=l_1]NtN————[1OFa~LaM—o-o(-Ow--1--edeWd2]Ni=—~~—lV——~lL[2e_—NJ1sMoa2r[—}0E8eo=—0OWN01gMgNO-0]"~0"u4LLMT.w—--—-4aanaOaInggB0lloN0Xoa3ae0NLO1—~o—yO¥R—’—yy][]Vc2NTN‘M1N8M
e N o - w I I3= 3 OI N O 3- = — M

—3MOo0oN~N-e—"'=—wJO\oW&N=nAnOdM)LNlNu-d0OO—NMOy~obOo N—oN -~o -g=B'' ~N==FTNWe-M-OF&Ue~OWoM—ToL0WWol=Ma=-dN~LFRM7FO0—-)®No-o—-~--o—2'i| ][eWTM©S-—o3b‘78-eTBV~WgVTNTIUO8nVUOwONMM=eAAT1UEnUnoOOMT7W—nn[NJME]RU0OTTnARnIN0Oa4i~NAW[T1"]o]}UWPML-IT—WGONMT®—NURJOLMOO-xVV1U(IyNATAAAOMOvWOE'LT[$OOWFNMOMN-gT()L10VeeeeVaeA))liT——r——VLMyameNeleerwT———[—.[—1eeOO—=0TTV0eOLo@MNF—-NAEM1—|[lNVOBx O0VoON-oM--T=+]IL——xONVVIYeMTOINoNOlMyOo=-W]']~—Fm-ONNO&-ooW -LFAe)¥1[—MoN—=OaVB-GM)30o+-OOwx 0R—D=ONUM——AAoo—Og|)"0MpeMoMILIo1NNMN—eL[—[IEkweESEWeTEeMOEW
w~Lo~~--oJ'i'i1NNa———dl '1 oO M~ )---<~ 4owc —~< -- 1'13¢13———[+ oLoL-5<A)a]§'H)~—]5—ego-eA|=)|"_=N[g0-4-—"e0"a1—lesA=SNoU[VUSa-o~v-e.]ii)]—0 Lw2MONoNO—-—-1]ii]']rnamNaWOWwo—~-wM-])'i[]'0m——M Og—Vv1VOLc-N-—g-eN~MNa|"""ol0\O00a\dO~-’LT"O—]L
MACRO v03.01
(CREF v01-05 )

N =APR-80

Vo-AO"v—ey~

— — ~ T - M -0y

CROSS REFERENCE TABLE

CZRMVAO RM0O5/3/2 EXT'D DR TST
1
I
15:01:20 PAGE S=-11

SEQ 0214

11=477

11=512

11-512

11-544

11-548

12- 97

J
12-256

12-323

13-2¢3

13-310

13-380

14-880

14-883

14-885
SEQ 0215

CZRMVAO RM0O5/3/2 EXT'D DR TST

—F—gT T JF =M~O T

CROSS REFERENCE TABLE

MACRO VO3 .01
(CREF vO01-05 )

~F7

=438

11-APR-80 15:01:20 PAGE §+12

14=103

18-34

16=214+

14215+

18-38

18-39

SEQ 0216

18-40

18-41

11-304

11-380

11-527

12-29

13-307

14-300+

14-312+«

14-;82

14=149¢

14'318

14-821

14-828

14-838

18-48#

12=156

12-228

12-305

MSG12x

6-0

18-62#

SEQ 0217

CZRMVAO RMO5/3/2 EXT'D DR TST

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

M
1
N =APR=80 15:01:20 PAGE S-13

SEQ 0218

11-528

12-30

12-155

12-229

12-306

at— — vl) e

18-39#

OPN. x1

14=219

14261

14=297#

SEQ 0219

| CZRMVAOD RM05/3/2 EXT'D DR TST
| CROSS REFERENCE TABLE

MACRO v03.01

(CREF v01-05 )

B8
N -APR-80 15:01:20 PAGE S-14

14->33

15-487

15-603

15-963

15-:01

15-926

15-953

15-9°.

13== 8"9

14=>35

SEQ 0220

14=>42

14=>44

14=>70

PRM13

8-26

8-192#

SEQ 0221

~ CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

N -APR=80

15- 55«

D
2
15:01:20 PAGE S=-15

15-=75

15-=89r

15-589

15-701

14=230

14=1255

SEQ 0222

14-268

14-300

14-312

15-888

15-903

15-:45

03n
04n
05#

14-=07

14=203

15-715

15-761

15-811

15-878

RECAL

4-2848

10-227

11-46

11=46

14=651

E
14f676

SEQ 0223

CIRMVAO RMO5/3/2 EXT'D DR TST

CROSS REFZRENCE TABLE

(CREF

MACRO v03.01

v01-05

)

f
2
11-APR =80 15:01:20 PAGE S-16

SEQ 0224

6-0

18-430

22-8

O O— M

16-36

L
U
O
v
e
=
—
J
O
TW—NAOWAD —MOD~FONON

1
2
2
2

2
2

1
5

15-699

15-7640

15-:43

15=;17

22-4

22=4

22-4

22-7

14-671¢

15=170#

15-238

15-240

11-441

10-138

15=194#

10-142¢

15 716

15-718

15-556

15-576

15-580

12=-123»

12-182+

12-213¢

14=<31»

12-254+

12-290+

12-331»

12=367+

SAVEFG

10-79+«

15-124

15-605

15-766

15-955

SEQ 0225

MACRO v03.01
CZRMVAO RMO5/3/2 EXT'D DR TST
CROSS REFLRENCE TABLE (CREF v01-05 )

11-APR=-B0 15:01:20 PAGE >-17

15-920

15-936

15-945

15-964

SEQ 0226

15-:02

11=550

15-685

15-818

15=<39#

11-307

11-383

12-60

12-366

14=-1710

-68

- SRCHWT

12-175

12-249

12-326

13-381

12=143

13-386

12-217

12-29¢

22-12

22-23

13-346

13-352

13-362

13-379

SEQ 0227

CZRMVAO RMO5/3/2 EXT'D DR TST

- CROSS REFERENCE TABLE

(CREF

MACRO v03.01

v01-05

)

O<»

L33.7

15=:67

5
2
0
4

15=:75

SEQ 0228

14-109

—01e7e“—3—5—7T‘—eese—

NOOV
R—WPS|ONNENMIRTOERNOENGOB

W<<V« NNV
o—NdoEtaoxdathsdsdototot

14-109

N =APR=-80 15:01:20 PAG E s-18

15=:79

.
}

15-:81

15-:83

15-:89

15-=:96

15-;00#

12-340

12-352

12-363

15-607

14=759

10-21+

1021+

14-798

10-22

10-66

11-263

11-305

11-381

11-528

12-30

12-155

11=45

11-68

11-98

11-130

11-159

11-228

11-263

11-305

11-381

11-528

12-30

12=155

K
12-229

12-3C6

13-21

13-78

13-157

13-228

13-233 g 12-241
EQ 0229

WAaQrw Nv

s|mEs|.L3-3b=”m
oM

N-—
-

o—

15-669+
=

15-678+

15-757

164=990%
14-:61»
10

15-758+
15-:55
15-:65

Lt - -

— = = = D=

ewO~—~oeOiP[~N—M0eNLAQe)GIoeSTeONOe0NieGOOgeBeoNNTooOo OVMww~ OT—- —T~e]N¥¥L[-[NLO—GoP——0TeTTee8o]" Foo-eW=e-oM=oe-W0=eo0W=Aeo0g=eA0MGW]8U 0obeW0=e0GWeAML0GeWeAGeWbAe0GeW8eW000e'UePe0eSNWG0eOPT0eDeO€E1M=IBE0II'INIOIWw4—~—T—1SFNw3oo0n4—MTog~-"WS1oNF—oWAOAo—-~MM.O—BL->4eo~¥_N8QSo Yo o-ooo a[ w-<~ —.—" IoJa.—([&[aO[w9[o——-—o~~""1[ia}a02a))) (.o~oO5o-g7~d"=)ON(1Ln"-o0¥A—5=Lo.1l
ow-~.'e— e--o"—-—0— o~o

bo~M0*OL-oOw~E=kLB[lN]=aNoA”Mn&—&d=L(eC2Q”ONONOTNV1Rs=—t&.IIGMyUM3w—N=N-OIEsD0—ANAGvOOII—DLRNN0G“—N&“OIoOwoIe—Nw=sM\TWNw0GoV'FO[ELEMc.tW&cI\Aw-wNOW[.0T4'-TI@—k==-a[E]N]MEM)lVT3ROEVN—‘ONOLV2AT0—ROO=4TnEEVt8IT1R—OA‘Oi7PTw=OsOGTIEVu0‘-o~—E1MeOTwvNV—n%NO=M7OEGL=YMI39O1ANoVGN,=TONIV5oWMGR=M'-Na3OV1-NWo1odHAM==TLNXoMToG=[=«VA2o1-O=LMUM[zo2T~3ME-o—G=2LVd]a—AV3l[|-TMG]72=OToAVG=UL9~MgWMO"NLaNu)lGN=)O13VGaaoW]MAO26'‘WNU.35OM(KN“16IOVRTO‘7WU.Ngo2RTMVvVEOo3w~oU2=-g—ONavuB®N.oW3gWOL<BuowPoNA*nPOTVl—oImaL0~oTT0lNMN%W>T=TmMr%uWTNOmeC*O=x>Rn<wVO4OGC0WMU_O:O--ORNU—NNB3_-M0MOIV—N04WWN--BO_~MO—NNIV—7-W0AI—O0MB_NN04TOEB—I0IM0BNeOCW0OIGo4O%M~N-aw[A7AN"0A20=342A7V0=~aTL0oN—LM]~OXAW’MN@AOMeLOWB0~LoW-~v.W>4ExE~maN[—l%w(—-2>4BAztToowao~vM[>_8-|-}]
[ve]

L
]

1810

11=44#0

SEQ 0231

2
MACRO v03.01 11-APR-80 15:01:20 PAGE $-20
CZRMVAO RMO5/3/2 EXT'D DR TST
CROSS REFERENCE TABLE (CREF v01-05 )

SEQ 0232

—
O
N
A
L
=
M
l
N
O
w
W
r
V
a
N
e
O
M
W
0
y
O
N
O
=0NwioAePbSANMy

Dle e

W&W=w=R k]

- =

—M OOMIITIIIT 3 OoNANun

~ VWO OOV W N OO0~

= = = = = = e e e e e e e e e e ——

D2IOID>>3I3

wCF

4=1564

—

$ 3

—

SEQ 0233

£ 3
MACRO
v03.01
11-APR-B0
15:01:20
PAGE
$-21
TST
DR
EXT'D
RMO5/3/2
- CZRMVAQ
- CROSS REFERENCE TABLE (CREF v01-05 )
i

- WCHKX

| WD

WLE

' WRCKD
|

' WRCKHD
WRITE
WRL

" WRT.AD
WRT.R1
WRT.R2
WRT.R&

WRT.RS

. WRT.RM
WRT.WD
WRTHD
XXDP

15-769
&=1734
L=162#
L4=2920

4=2958

SEQ 0234

15-790

13-37

13-5¢4

13-104

13=127

13-244

13-343

13-360

14=471

14-495

11-38¢

13-35

13-48

13-86

13-121

13-236

13-299

13-324

14=477

15=;74*
15-:95
15=;94#
15-;81
15-,98#
15=:99#

15=;77#

22=6

15-,84

15=;90

15-319

15-864
15-;73¢«

15-501
15-894
15=; 764

15-523

15-527

15-538

15=545

15=555

15-628
15=:66

15497

10-34+

10-37+

10-38

10=-56

10-108

10-110

10-153

10-155

15=,;96#
15-569

15=579

15-600

" CZRMVAO RM0S5/3/2 EXT'D DR TST

3
0
11-APR-80 15:01:20 PAGE M-1

SEQ 0235

wN ~

MACRO v03.01
- CROSS REFERENCE TABLE (CREF v01-05 )

Nv o—

12-226

= 7-

)@ —e

—- - 1i N-—

-— ~N

=»

<WiM

14-759

2
1

333Q-

13-106

IABRT

14-510

14-685
1

MNe=M —-— —N -N

L]+ —Nu b4-~ —- -TM%wQOo

N —ry

14-219

14-741

alL ——

14-<95
14-<59

- M=y

9~442N
9=-452#

CZRMVAQ RMO5/3/2 EXT'D DR TST

- CROSS REFERENCE TABLE

MACRO v03.01

(CREF v01-05 )

3
3
11-APR =80 15:01:20 PAGE M-2

14-375

.Oo=0=OToudLNO8oE~4~.——M-NIOG“O0mVMA=MGTOLMO(—O—%]—TPL

14-348

164-413

14=457

14-485

14-509

14-648

164-684

14-991

11-293

11-356

11=514

11550

12143

12-217

12-294

11-304

11-380

11=527

12-29

12-154

12-228

Ooe—WN o4WPNMEoXo(-Yo—l

>BR-OrXxOwa O -—M3O
3g—EMyNEIFETOn—N—M-eI
-—TOMoON~L—OT~0N ON—MLUM3FO
OONLe—emn[ —OU00M—LINGTO"
L"&

MINITITITON

SEQ 0236

———— 0L00 —NON — AON )FTM—N

-—— ~-N—([~oa2¥Ny]aT~ogl1 -—— B"I N- 4"L 0O—N -— —- 'L HL ohed'a JB-—w~4 —-~N ~N~No(]

SK1P
| SLASH
- STARS

TYPDEC

TYPEND

TYPNAM

| TYPNUM

TYPOCS

4-80#

14-115
4&-80#

4&-80#
9-3864
4&-80#
4<-80#

14-115

164=115

146-115

14-115

Ooo

NOw——nN O NNOw—n NW—
oUnN N M
GO ~J ~ o
LNNal’al w~
-— —
— -

~5O

M M= —

—w~eNOiN—eeNNy—wN57o~F~~~~--ilNNN5—M—
.|
SETUP
|

- SETPRI

| SETTRA

14=115

14-115

14=115#

11-263

11-305

11-381

11-528

12-30

12-155

12-229

14-837

14-840

14-201

14-752

14-47

14-61

164=<25

14-<90

14~ =06

14-81
14-1
10-22