Digital PDFs

AH-S074B-MC

August 1981

229 pages

Original

112MB

view download

OCR Version

148MB

view download

Document:	CZRMVB0 RM02-03-05 RM05-3-2 EXTD DR TST AUG 1981 bw
Order Number:	AH-S074B-MC
Revision:	000
Pages:	229
Original Filename:	CZRMVB0__RM02-03-05__RM05-3-2_EXTD_DR_TST__AH-S074B-MC__AUG_1981_gray.pdf

OCR Text

RN02/03/05 RMOS73EE.RNR,° X TST Pleke"iiar’, ke HTRNNED

RH02/03/0

WS
e tanvge L

Fioee
¢ of e Sriwies HHIAT

CZRMvBO RMOS5/3/2 EXT'D DR TST

MACRO v04.00

4=-APR-81 11:57:12 PAG: 1

1
SEQ 0007

b cud

)

b wd

.REM

IDENTIFICATION

n b cad aud

|
i

O~ NS WOV
NN
N s

PRODUCT CODE:

AC=-S072B-M(C

PRODUCT NAME:

(ZRMVBO

PRODUCT DATE:

APRIL 1981

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR:

MIKE LEAVITT

THE INFORMATION IN

THIS

RM05/3/2 EXTENDED DRIVE TEST

DOCUMENT IS SUBJECT TO CHANGE

WITHCUT

NOTICE AND SHOULD NOT 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 SOF TWARE DESCRIBED

LICENSE

AND

MAY

THIS DOCUMENT

FURNISHED UNDER A

ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF [TS SOFTWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.

| CZRMVBO RMOS/3/2 EXT'D DR TST

;
3

MA(RO v04.00

4-APR-81 11:57:12 PAGE 2

CONTENTS

lS.

ABSTRACT

REQUIREMENTS

2.1

9
;?

2.2
2.3

EQUIPMENT

PRELIMINARY PROGRAMS
MEDIA

LOADING PROCEDURE

}‘;

STARTING PROCEDURE

16
17
18
19

4.1
4.2
4.3

PROGRAM ACTION
4.3.1 CONTROL SWITCH SELECTION

4.3.3
S.

25
59
gg

STARTING ADDRESSES
OPERATOR ACTION

4.3.2

20
gz

OPERATING PROCEDURE
S.1
§.2

OPERATIONAL SWITCH SETTINGS
CONTROL SWITCH SETTINGS

ERRORS

6.1

6.2

ERROR TYPES

ERROR RECOVERY

RESTRICTIONS

MISCELLANEOUS

8.1

EXECUTION TIME

8.3
8.4

TIMING TEST (TESTS 12 = 15) PRINTOUTS
END OF TEST

8.2

39
29

RH11 = RH70 ADDRESS SELECTION

DRIVE AND PARAMETER SELECTION

STACK POINTER

PROGRAM DESCRIPTION

“h

10. PROGRAM LISTING

SEQ 000:

MACRO v04.00

O NN
-2

CZRMVBQ RM05/372 EXT'D DR TST

4=APR=-81

D .1
11:57:12 PAGE 3

SEQ 0002

ABSTRACT

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

OO 00

CIRCUITRY OPERATES PROPERLY,

AND

THAT THE

DATA STORAGE

AND

REQUIREMENTS

2.1

EQUIPMENT
PDP-11 PROCESSOR
12K _MEMORY

OO0 NN

B o

i —

RETRIEVAL CAPABILITIES ARE FUNCTIONING.

20
—

TELETYPE
PROGRAM LOADING DEVICE

KwWwll=L OR KW11=-P (THE KW11-P [S REQUIRED FOR THE TIMING TESTS)
RH11 OR RH70 CONTROLLER

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5°'S, RMO3°S OR RMOZ2°S)

2.2

PREL IMINARY PROGRAMS

RM05/3/2 DISKLESS TEST, PART 1 8 ¢
RM0OS5/3/2 FUNCTIONAL TEST, PART 1, 28 3
2.3

MEDIA

THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HAS A FORMATTED

DISK PACK. THE PACK MAY BE FORMATTED IN EITHER 16-8IT OR 18-BIT
MODE, DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM
A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE
g{%tSWT TEST

LOADING PROCEDURE

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

OR IT MAY BE

LOADED FROM

ASSOCIATED LOADER.

STARTING PROCEDURE
4.1

STARTING ADDRESSES

THE APPROPRIATE

‘'XXDP' MEDIA

USING THE

. CZRMVBO RM0S5/3/2 EXT'D DR TST

MACRO v04.00

4-APR-81 11:57:12 PAGE 3-~1
200

NORMAL STARTING ADDRESS

210
214

SELECT RM11=RH70 ADDRESSES
COMBINATION OF 204 AND 210

SELECT OPERATING PARAME TERS

204

63
b

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

60
2;

TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS,

6.2

OPERATOR ACTION

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.)

3.
4.
5.
6.
7.

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 INMIBIT THIS TYPEOUT, DO NOT
RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES: INSTFAD

LOAD A FORMATTED PACK INTO DRIVE(S) TO BE TESTED

71
72
73
74
75
76
77

TYPE A *CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO

COMMAND ENTRY MODE.

4.3

PROGRAM ACTION

IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE

84,

PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING

87
gg

NOTE1.

NOTE2:

<. ><CR>

CONSTRUCTIONS HAVE BEEN ADOPTED.

PERIOD
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

}85

THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED BY

<CR> AND WILL BE ECHOED AS A °*CARRIAGE RETURN-LINE FEED'.

A STATEMENT TERMINATOR: WHEN TYPED AT THE

97
98

100

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

STRING.
<..><CR>

PERIOD PERIOD

103

THE 'PERIOD PERIOD' TERMINATOR IS TYPED TO INDICATE

}82

THE START OF TEST EXECUTION.

104

}8;

THE END OF TEST PARAMETER MODIF ICATION AND TO SIGNAL

<, ><CR>

109

THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS

m)
;é

114

COMMA

AND TEST NUMBERS.
</>

SLASH

A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST

SEQ 0004

MACRO V04.00

S NN -=2O000 NN

D ad s
e ad e

F o1
4=APR=81 11:57:12 PAGE 3-2
*- =
NUMBER, THE PROGRAM WILL OPEN THAT TEST FOR PARAME

POPIPIPIN)
2 ~3 s
s

‘
. CZRMVBO RM0S/3/2 EXT'D DR TST

MODIF ICATION.

<UD

CONTROL=U

DELETE THE PRESENT INPUT STRING AND START A NEW

LINE. TYPED BY DEPRESSING THE ‘‘CONTROL KEY''
(CTRL) AND THEN STRIKING THE VU,

<\>

125

RUBOUT

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<O7>=1 WILL RESULT IN ENTERING THE "'CONTROL SWITCH
SETTING'' MODE. THUS, ALLOWING THE OPERATOR TO SPECIFY THE
DESIRED STATE OF "'C.SWR'TM".
CONTROL SWITCH SELECTION EXAMPLES:
EXAMPLE #1
SET SW<07>=0
C.SWR=000000 7 400..
EXAMPLE #2

SET Sw<07>=0

C.SWR=000000 / 220.
C.SWR=000000 / 220..
4.3.2

RH11 = RH70 ADDRESS SELECTION

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RM(S1),

VECTOR ADDRESS, AND PRIORITY LEVEL OF THE RH11-RH70.
1F THE DEFAULT VAULE OF THE BUS ADDRESS DOES NOT RESPOND

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

WILL BE TAKEN:

1. IF THERE IS A MONITOR ~- RETURN TO THE MONITOR

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

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR
;goglgg\gGE THE ADDRESS OF THE RH11 OR RHM70 AND THE VECTOR
ADDRESS SELECTION EXAMPLES

SES 0005

MACRO v04.00

172

200
201
202
203

RMCS1=176700 / 177200.

EXAMPLE #2

RMCS1=176700_/ 176300<CR>
RMVE(C=254 / 260<CR>
EXAMPLE #3

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

187

188
189
190
191
192
193
194
195
196
197
198
199

4~APR-81 11:57:12 PAGE 3-3

EXAMPLE #1

173
174
175
176
177
178
179
180
181
182
133
184
185
186

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

EXAMPLE #5

RMCS1=176700 / 1776\67\6300<CR>

RMVE (=254<CR>
RMCS1=176300.
4.3.3

DRIVE AND PARAMETER SELECTION

STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN.
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.

) —
et
)
e

VOO
NS W

2
212

—

LSDSLNTNTNT
NN

CZRMVBO RM05/3/2 EXT'D DR TST

220

EACH TEST CONTAINS TWO SETS OF TRACK LIMIT PARAMETERS. PARAMETERS
LT, 'FT' AND ''IT'' ARE USED BY RMO3/2 DRIVES AND PARAMETERS "LT°'°",

"FT'"" AND "IT''" ARE USED BY RMO5 DRIVES. THE PROGRAM DETERMINES WHICH

DRIVE 1S BEING TESTED AND SELECTS THE CORRECT SET OF TRACK LIMIT
IF THE PROGRAM IS BEING USED TO TEST A SUBSYSTEM WHICH
VALUES.
CONTAINS BOTH RMO3/2 AND RMOS5 DRIVES, THE OPERATOR MUST CHANGE
BOTH SETS OF TRACK LIMITS IF THE TESTS ARE TO BE MODIFIED FOR
ALL DRIVES TESTED.

4.5.5.1 DRIVE AND PARAMETER SELECTION DESCRIPTION

THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI.
‘e
‘¥C°°

e
o |
£ 3 o

o % 7

5 & S

REPEATS (ITERATIONS)
FIRST CYLINDER ADDRESS

LAST CYLINDER ADDRESS
INCREMENT CYL INDER
FIRST TRACK ADDRESS

LAST TRACK ADDRESS
INCREMENT TRACK

SEQ 0004

| CZRMVBO RM0S5/3/2 EXT'D DR TST

MACRO Vv04.00

4L-APR=-81 11:57:12 PAGE 3-~4
"F1'""

"LT'""
“IT'""
.4 W
"

"PAT'"

SEG 00C

FIRST TRACK ADDRESS

LAST TRACK ADDRESS
INCREMENT TRACK
FIRST SECTOR ADDRESS

JRMOS PARAME TER

JRMOS5 PARAMETER
JRMOS PARAMETER

LAST SECTOR ADDRESS

PATTERN (USED FOR DATA TEST)

"WDX''

WORD OF PATTERN O WHERE X IS 1

ALL SEEK TESTS (TESTS 0 - 10)

A"
'
L

ALL ADDRESS TESTS (TESIS 16 = 17)
THE DATA TEST (TEST 20)
THE EXERCISER (TEST 21)

10 16

ALL TIMING TESTS (TESTS 12 = 15)

+ 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 (1.E. 001000(8)=PATTERN 9) AND ‘WDX'’ WILL BE IN OCTAL.

SPECIAL CASES OF CONTROL CHARACTERS

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

ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED.
P

WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR 2¥0, TESTS 0-10,
12.13,15-20 WILL BE RUN USING ALL AVAILABLE, ONLINE DRIVES. IF THE
OPERATOR WISHES TO SELEET 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, FINAL CYLINDER ADDRESS, ETC.).
THE USER WOULD TYPE '3<CR>' WHICH SAYS ‘'THIS IS THE END OF DRIVE ENTRY'.
THE PROGRAM WILL THEN REQUEST TEST NUMBERS.

THE TRANSACTION APPEARS AS FOLLOWS:

DRIVE (S)=3<(CR>
TEST=

IN THE EXAMPLE,
THE OPERATOR MAY NOW ENTER DESIRE DT EST NUMBERS.
HE WANTS TESTS 2 THRU 7 AND TESIP 11 SO HE TYPES 2-7<,> (THE °'COMMA®

SEPARATES ENTRIES), 11<.><(R> (

ERI Ol))'

END OF CHANGES, START TEST EXECU T ION
IT NOW LOOKS LIKE THLS

'CARRIAGE RETURN' -

CZRMVBO RMQS/3/2 EXT'D DR TST
286
287
288
289
290
251
292

293

294

MACRO v04.00

L-APR-8171

11:57:12 PAGE 3=5

SEQ 0008

D IVE (S)=3<(R>
TEST=2-7,11.<(R>

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

THE TRANSACTION WOULD BE AS FOLLOWS:
DRiVE (S)=4<(R>
TEST=

THE OPERATOR NOW ENTERS THE TEST NUMBERS.
GIVEN BELOW:

THE TRANSACTION IS

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

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 INPUT AND DETERMINES THAT ThE
THE OTHER
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED.
TESTS WILL NOT BE ALTERED.

(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY)

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

;WHERE X IS 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 CAUSE THE PROGRAM
TO MOVE TO THE NEXT PARAMETER.

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

;DO NOT ALTER-BUT CONTINUE
JWHERE °'N' IS FIRST CYLINDER ADDRESS

IF THE OPERATOR DOES NOT WISH TO CHANGE 'FC', THE FOLLOWING OCCURS:
DRIVE (S)=4<CR>
TEST=1,3/4=7,10/11.<CR>
TEST 3

R=1 / <CR>
{E=gZé ;CR>

;DO NOT ALTER THIS LINE BUT CONTINUE
;DO NOT ALTER THIS LINE BUT CONTINUE

ASSIGNED PARAMETER FOR LAST
I
THE PROGRAM RESPONDS WITH THE PREVIOUSLY
CYLINDER ADDRESS IN THIS CASE USING 822 AS THE EXAMPLE. THIS IS
AND IS WHY TEST 3 WAS
I
WHAT THE OPERATOR INTENDED TO MODIFY
OPENED. TO CHANGE THE VALUE TO '20', THE NEW VALUE IS TYPED

CZRMVBO RMO5/3/2 EXT'D DR TST
343
344

345
346
347
348
349
350

351
352
353
354
355
356
357
358

MACRO V04.00

4-APR-81 11:57:12 PAGE 3-6
FOLLOWED BY A 'PERIOD'

SE0 0009

TERMINATOR (<.><(R>).

:
THE TOTAL TRANSACTION AND RESPONSE

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

/ <CR>

FC=0 / <CR>

LC= 822 / 20.<CR>

TEST 10
R=1 /

THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW PARAMETERS AND THE
PROGRAM IS WAITING FOR CHANGES TO TEST 10°'S PARAMETERS.
DRIVE (S)=4<(CR>
TEST=1,3/4=7,10/11<CR>
TEST 3
R=1 / <(CR>
FC=0 7/ <CR>

LC= 822 / 20.<CR>

TEST 10
=1 /7 10.<CR>

THE OPERATOR 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 11 RETAINS
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH:
DRIVE(S)=

SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A "PERIOD PERICD®.
THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE

CHANGES. THAT IS TO SAY, AFTER THE ENTRY FOR DRIVE SELECTION, A
<,><CR> WILL CAUSE THE TEST MESSAGE TO BE REPEATED AND FURTHER

CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE

THE PROGRAM, A 'PERIOD PERIOD' MUST BE TYPED.

IF A SINGLE "PERIOD' IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIATELY. A °"PERIOD
PERIOD® MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARNETER
CHANGE MODE TO GO TO EXECUTION.
4£.3.3.2 DRIVE AND PARAMETER SELECTION EXAMPLES

EXAMPLE #1

DRIVE=4.<CR>

JSELECT DRIVE #4, TERMINATE AND
*BEGIN EXECUTION USING PREVIOUSLY ASSIGNED

: PARAME TERS

EXAMPLE #2

t
1
l

CZRMVBO RMO5/3/2 EXT'D DR TST
400
401
402
403
404
405
406
407
408
409
410

DRIVE=2<(R>

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

R=1 SO<CR>
FC=0
/ <CR>

LC=822 / 50..<CR>

SEQ 0010

JSELECT DRIVE #0 AND MAKE CHANGES '',"’

tRUN TEST 1 THRU 5 ONLY, USE DEFAUL

*PARAMETERS AND TERMINATE AND EXECUTE.'’

JSELECT DRIVE #2 AND MAKE CHANGES '’’’

*RUN TEST1=5 WITH DEFAULT PARAMETERS, OPEN
JTEST 6,7 AND 10 FOR CHANGES

:LEAVE ‘R' AS IS AMD MOVE TO NEXT PARAMETER

?gTrég(T?'éCYLINDER ADDRESS TO 10, END CHANGES
;50 ITERATIONS, MOVE TO NEXT PARAMETER
;DO NOT CHANGE 'FC' CYLINDER ADDRESS BUT CONTINUE
sTEST 10 1S STILL PENDING AND WILL BE
;RETAIN ITS PRESENT PARAMETERS.

EXAMPLE #4

423

424
425
426
427

DRIVE=0<CR>

TEST=S ,E.<CR>

sSELECT DRIVE #0 AND MAKE CHANGES

JRUN ALL SEEK TESTS AND THE EXERCISER

EXAMPLE 4‘5

428

429
430
431
432
433
434
435
436
437
438
439

DRIVE=1<CR>

TEST=S/D<CR>

TEST 0O

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

JRUN ALL SEEK TESTS (OPEN FOR CHANGES) AND
:THE DATA TEST (WITH DEFAULT PARAMETERS).
:RUN WITH 10 ITERATIONS
;CHANGE FIRST CYLINDER ADDRESS

:AND START EXECUTION

sTESTS1 - 10 WILL RETAIN THEIR PREVIOUSLY
*ASSIGNED PARAMETERS.
EXAMPLE #6

440
441
442

DRIVE=1<(R>

443
44k
445

TEST=S/<CR>

“TEST 0
R-10 / 100.<CR>
TEST

446

456

EXAMPLE #3

417
418
419
420
421
422

455

4-APR-81 11:57:12 PAGE 3-7

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

411
412
413
414
415
416

447
448
449
450
451
452
453
454

MACRO V04.00

R-100 / 1000.<CR>
TEST 2
R=1 / 10<CR>
C=0 / S50<CR>

LC=822 / 51.<CR>

TEST 3
J
R=1.<CR>

TEST 4
R=1..<CR>

;OPEN THE SEEK TESTS (TESTS 0-10)
; CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST

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

s CHANGE 'R' TO 10 ITERATIONS, GO TO NEXT PARAMETER
s CHANGE 'FC' TO 50, GO TO NEXT PARAMETER
; CHANGE 'LC' TO 51, GO TO THE NEXT TEST

;MOVE TO NEXT TEST

JUSE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION

;

CZRMVBO RM0S5/3/2 EXT'D DR TST

MACRO V04.00

.
4-APR-81 11:57:12 PAGE 3-8

457

458

N
460

461
462
463
4L64
465
466
467
468
469
470

FT'=0 / 2<CR>

2;9

481

4,82
4,83
4,84

485
486

4,87
4,88

L UEELpe

PE R

DRIVE=1<CR>

TEST=D/<CR>
TEST 20
R=1000 / <CR>

497
498

499
500

501

502

503

504

505

506

507

508
509

:RMO5 PARAME TER
*RMO5 PARAMETER

;USE THE SAME PARAMETERS AS IN EXAMPLE

*#7. BUT ALSO SPECIFY A DATA PATTERN (PAT #0).

1C=0 / <CR>
FT=2 / <CR>

493

496

;RMO5 PARAMETER

FC=10 /7 <CR>
LC=10 /7 <CR>

1T'=1 /7 <CR>

495

i#8 ON CYLINDER 10, TRACK 2, SECTOR 4

LT=2 / <CR>
IT=1 /7 <CR>
FT'=0 / 2<CR>

494

;DO 1000 ITERATION OF TEST PATTERN

EXAMPLE #8

489
490
491

492

;SELECT AND OPEN THE DATA TEST

FS=0 / 4<CR>
LS=22 / 4<CR>
PAT=177777 / 400.. <CR> ;RUN WITH PATTERN #8

474
475

SBF
4,80

LT'=18 / 2<CR>
IT'=1 / <CR>

472
473

478

EXAMPLE #7

DRIVE=1<CR>
TEST=D/<CR>
TEST 20
R=1 /7 1000<CR>
FC=0 / 10<CR>
/ 10<CR>
LC=822
1C=64 / 0<CR>
FT=0 / 2<CR>
LT=4 / 2<CR>
I1T=1 /7 <CR>

471

SEQ 0011

LT'=18 / 2<CR>

FS=4 / <CR>

;RMO5 PARAMETER

;RMO5 PARAMETER
;RMO5 PARAMETER

LS=4 / <CR>

PAT=000400 /7 40 1<CR> ;RUN WITH PATTERNS #8 & #0 (0=OPERATOR INPUT)

WD1=165555 / 125252<CR> ;FIRST WORD OF PATTERN 0
WD2=133333 / 52525. .<CR> ;SECOND WORD OF PATTERN 0
:<..> START EXECUTION

EXAMPLE #9
eemeeeee—-

DRIVE=0,1,4<CR>

TEST=0-5/<CR>
TEST 0

;TEST DRIVES 0.1, AND 4 IN SEQUENCE
;CHANGE TEST 5

R=10 / <CR>

FC=0 / <CR>
L(=822 / 1..<CR>

:CHANGE LAST CYLINDER FROM 822 TO 1

:START PROGRAM EXECUTION.

vl sl i il il

e
Tt Nole NTe NV, I 8
bu&w A
oV~

SEQ 001¢

SWITCH SETTINGS

OPERATIONAL SWITCH SETTINGS

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT
AND WILL USE A 'SOFTWARE' SWITCH REGISTER.
THF °'SOFTWARE®' SWITCH
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE °SOF TWARE'
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 IN KEYBOARD ENTRY MODE, OR
IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE 'SOF TWARE'
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE
PROMPT FROM THE SWITCH ENTRY ROUTINE:

'SWR = NNNNNN

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER

IMAGE MUST BE ENTERED.

LEADING ZEROS ARE NOT REQUIRED. 'RUBOUT'

gfi?réfio's‘m% U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE® SWITCH
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°'S IN THE SWITCHES.
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE®' REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.
THE SWITCH SETTINGS ARE:

SW<15>=1

LOOP ON TEST
INHIBIT ERROR TYPEOUTS
TYPE TEST NUMBER
INHIBIT ITERATIONS

SW<09>=1
SW<08>=1
SW<07>=1
SW<06>=1
SW<05>=1
SW<04>=1
SW<03>=1
Sw<02>=1
SwW<01>=1
SW<00>=1

LOOP ON ERROR
PRINT ERROR MESSAGE ON LINE PRINTER
READ 'C.SWR' SETTINGS FROM TTY
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 SOF TWARE COMPARES (TEST 20)
PERFORM READ AFTER WRITE CHECK ERROR (TEST 20)

SW<10>=1

5.2

HALT ON ERROR

SW<14>=1
SW<13>=1
SW<12>=1
SW<11>=1

RING BELL ON ERROR

CONTROL SWITCH SETTINGS

THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD.

TO ENTER THE CONTROL SWITCH SETTING MODE PLACE Si'<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

MACRO V04.00

CZRMVBO RMOS5/3/2 EXT'D DR TST

[

4-APR-81 11:57:12 PAGE 3-9

MACRO V04.00

CZRMVBO RM05/3/2 EXT'D DR TST
571

g;g

4-APR-81 11:57:12 PAGE 3-10

SEQ 0013

STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS (..),

AND A CARRIAGE RETURN.

2;‘5

THE C.SWR SETTINGS ARE:

576
577
578
579
580
581
582
583
584
585
586
587
588

. SUR<15>'O

. SUR<14>'O
=1
C.SWR<13>=)
=1
C.SWR<12>=0
=1
C.SWR<08>=0
=1
C.SWR<07>=0
=1
C.SWR<06>=0

WRITE PACK BEFORE TESTING (TEST16)
INHIBIT WRITE PACK BEFORE TESTING (TEST16)
NO STALL BETWEEN DRIVE FUNCTIONS
STALL AFTER EVERY DRIVE FUNCTION
USE SPECIFIC STALL TIMES
USE RANDOM STALL TIMES
NO INCREMENTING STALLS IN TEST 4
PERFORM INCREMENTING STALLS IN TEST 4
DO IMPLIED SEEKS WITH DATA TRANSFERS
DO EXPLICIT SEEKS BEFORE DATA TRANSFERS
DO READ HEADER AND DATA COMMANDS IN TESTS 0-7
DO EXPLICIT SEEK COMMANDS IN TESTS 0~7
60 HZ POWER SOURCE

590

C.SWR<05>=0

ALLOW SOF TWARE TIMEOUTS(ENABLE WATCHDOG TIMER)

592
ggz

C.SWR<00>=0
=1

OPERATE IN 32. SECTOR (16 BIT) MODE
OPERATE IN 30. SECTOR (18 BIT) MODE

ggg

THE DEFAULT CONDITION OF C.SWR<15:00>=0.

'ggg

REFER TO 4.3.1 FOR C.SWR SELECTION

589

591

599
600
601

602

605
606
607
608
g?g

611
612

2}2
615
2}9

g}g

625
626
627

INHIBIT SOF TWARE TIMEOUTS(DISABLE WATCHDOG TIMER)

ERRORS

THERE ARE A NUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAM.
WHEN AN ERROR IS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE
1S MADE AND IF SW<13> IS NOT SET, AN ERROR MESSAGE PERTAINING
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN
THE FOLLOWING:

1.
2.

AN ERROR MESSAGE
A DATA HEADER

3. A DATA STRING
REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS
THAT CAN OCCUR.

_
6.1

ERROR TYPES

THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS:

620
gg}
ggz

50 HZ POWER SOURCE

6.1.1

DRIVER ERROR

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

CZRMVBO RMOS/3/2 EXT'D DR TST

MACRO v04.00

&=-APR-81 11:57:12 PAGE 3-11

SEQ 0074

INFORMATION TO BE RETURNED TO A ‘TATA PARAMETER BLOCK''
(DPB) AND THOSE THAT CAN.

THE FIRST (LASS WILL SE

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

NON-FATAL ERRORS

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

6.1.3

FATAL ERRORS

THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND

OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISk.
THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM
w.Li ABORT THE TEST AND GO TO THE END OF PROGRAM.

6.2

ERROR RECOVERY

6.2.1

PRETEST ERROR

WHEN THIS TYPE OF ERROR CCCURS IT WILL BE REPORTED.

THEN DEPENDING

ON HOW THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND
ADDRESSES FOR TESTING OR RETURN TO MONITOR.

6.2.2

NON-FATAL ERROR

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND
THE PROGRAM WILL CONTINUE IN TEST.

6.2.3

FATAL ERROR

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED.
THE
PROGRAM WILL ABORT THE TEST AND GO 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>
BIT MODE. THE PROGRAM
WILL BE TESTED IN 18
IS1, ALL OF THE DRIVES

HAS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PACKS OR TESTING
BOTH 16 BIT MODE AND 18 BIT MODE DRIVES ON THE SAME SYSTEM.
ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE.

BEFORE THE PROGRAM IS STARTED, PROPERLY FORMATTED PACKS HJSY 8E MOUNTED

A
ON THE DRIVES WHICH WILL BE TESTED. THE PROGRAM ASSUMES
PROPERLY FORMATTED PACK. THE FORMAT OF THE PACK IS NOT ALTERED
BY THE PROGRAM.

C(ZRMVBO RMOS5/3/2 EXT'D DR TST

MACRO Vv04.00

4-APR-81

R
11:57:12 PAGE 3-12

MISCELLANEOUS

8.1

EXECUTION TIME
THE PROGRAM REQUIRES APPROXIMATELY 26 MINUTES TO MAKE ONE PSS WITH

RMO3/2 DRIVES AND APPROXIMATELY 35 MINUTES 10 A PASS WITH RMOS
DRIVES.
THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 0-10,12,13 &
15-20) AND DEFAULT TEST PARAMETERS.

8.2

STACK POINTER

THE STACK POINTER IS INITIALLY SET TO 1700.
8.3

TIMING TESTS (TESTS 12-15) PRINTOUTS
AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE Of ALL OF THE
SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON
THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM
TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE

SAME LINE AS THE AVERAGE.

8.3.1

TIMING TOLERANCES

TEST 12 == ROTATIONAL SPEED TIMES

-~TIMES FOR RMOS5/3 DRIVES=-~
60 HZ

MINIMUM=16340 US
MAX IMUM=17000 US
NOMINAL=16670 US
50 HZ
MINIMUM=16250 US
MAXIMUM=17090 US

NOMINAL=1667C US
-~TIMES FOR RMO2 DRIVES=-

60 HZ
MINIMUM=24500 US

MAX IMUM=25500 US
NOMINAL=25000 US
50 HZ
MINIMUM=24370 US
MAX IMUM=25630 US
NOMINAL=25G00 US

SEG 0015

CZRMVBO RMOS5/3/2 EXT'D DR TST

MACRO V04.00

'
D .2
4=-APR-81 11:57:12 PAGE 3-13
TEST 13 == ONE CYLINDER SEEK TIMES

7462

743
744
745

MAX IMUM=6000 US

. TEST 14 == AVERAGE SEEK TIMING TEST (NOT DEFAULT)

746

747
748

MAX IMUM=30000 US

749
750
751

#» THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME

=+ ON THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE
«» USED FOR REFERENCE ONLY.

752

753
754
755

TEST 15 == MAXIMUM SEEK TIMES

MAXIMUM=55000 US

756
757
758
759
760

#*» THERE IS

765

766
767
768
769
770
771

772
77%
774

775
776
777
778

779
780
781
782

«x SEEK TIMES ABOVE THE

8.3.2.

EXAMPLE #1
ROTATIONAL SPEED TIMES

MIN=16670 US

MAX=16690 US
AVG=16680 US
ALL

794
795

796
797
798

10 SEARCHES TIMED

E ROTATIONAL SPEED LIMITS FOR RMO5/3

MIN=16250 US
MAX=17090 US

ONE CYU'%ER SEEK TIMES
*

F ORWAR

MIN=5140 US

793

MAXIMUM TIME OF 55.0 MS WILL

TIMING TESTS PRINTOUT EXAMPLES

786

788
789
790
791
792

MAXIMUM REVERSE

** FOR THE REVERSE SEEKS. (SEE SECTION 8.3.2, EX. 2)

783
784

787

GIVEN FOR THE

NOT BE

THE TIMING REPORT
HOWEVER,
=« TYPED
IN THE
TIMING REPORT.
=« WILL STILL
TYPE THE MINIMUM, MAX IMUM AND AVERAGE TIMES

MIN=5350 US
MAX=6920 US
AVG=5550 US

785

NO SPECIFICATION

»» SEEK TIME ON THIS PARVICULAR DRIVE. THEREFORE, ANY REVERSE

761
762
763
764

SEQ 0016

* REVERSE

MAX=5960 US
AVG=5430 US

821 SEEKS TIMED

822 SEEKS TIMED

ALLOWABLE ONE CYLINDER SEEK LIMIT
MAX=6000 US
AVERAGE SEEK TIMES
* FORWARD

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

128 SEEKS TIMED

LA
oo
LR

833

i i

D o

i o

00 00 00 0o 0o 00 0

O oo NOWNDS
W —=O

cZRMyBO RMOS/3/2 EXT'D DR TST

MACRO v04.00

£ ¢
&4=-APR-81 11:57:12 PAGE 3-14
MIN=27990 US

MAX=28550 US

AVG=28220 US

128 SEEKS TIMED

SEQ 0017

ALLOWABLE AVERAGE TIME LIMIT
MAX=30000 US
MAXIMUM SEEK TIMES
* FORWARD

MIN=49990 US
MAX=51980 US
AVG=51010 US
* REVERSE
MIN=48120 US
MAX=50650 US
AVG=49340 US

128 SEEKS TIMED

ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT
MAX=55000 US

EXAMPLE #2
ROTATIONAL SPEED TIMES

MIN=16670 US
=16690 US
AVG=16680 US

ALL

10 SEARCHES TIMED

E ROTATIONAL SPEED LIMITS FOR RM05/3

MIN=16250 US

MAX=17090 US
M‘CYLIWER SEEK TIMES
*

FORWARD

MIN=5470 US
=7940 US
AVG=5830 US

* REVERSE
MIN=5040 US
=5970 US
AVG=5330 US

3 ABOVE THE MAXIMUM OF 6000 US
821 SEEKS TIMED
-

822 SEEKS TIMED

ALLOWABLE ONE CYLINDER SEEK LIMIT
MAX=6000 US
AVERAGE SEEK TIMES
* FORWARD

MIN=29730 US

MAX=32620 US
AVG=29900 US
* REVERSE

MIN=28620

MAX=32230 US
AVG=32800 US

73 ABOVE THE MAXIMUM OF 30000 US
128 SEEKS TIMED

108 ABOVE THE MAXIMUM OF 30000 uS

128 SEEKS TIMED

ALLOWABLE AVERAGE TIME LIMIT

C2RMVBO RM0S5/3/2 EXT'D DR TST

MACRO V04.00

32(7:

MAX=30000 US

858
859

MAXIMUM SEEK TIMES
+ FORWARD

860
861
862
863
804
865
gg(;
863
869
870
871

4-APR-81 11:57:12 PAGE 3~15

MIN=57510 US
MAX=57240 US
AVG=57020 US
* REVERSE
MIN=57050 US
MAX=57550 US
AVG=57210 US

128 ABOVE THE MAXIMUM OF 55000 uUS
128 SEEKS TIMED
128 SEEKS TIMED

ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT
MAX=55000 US

8.4

END OF TEST

874

WITH ALL SWITCHES ON A "0'" AN "END OF PASS'' MESSAGE WILL BE

876
877
g;g

END OF TEST COULD OCCUR ON A DRIVE, IF THE MAXIMUM ERROR LIMIT

TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE “END OF TEST"'

875

TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. ALSO, THE
IN LOCATION "ERMAX® IS EXCEEDED.

880

PROGRAM DESCRIPTION

881

882
883
884

THIS

CONTAINS NINETEEN TESTS NUMBERED 0-22 IN OCTAL.

885
886
887

TESTS 0-7 € 11 WILL READ THE CYLINDER, TRACK, AND SECTOR INFORMATION
FROM THE HEADER, USING A 'READ HEADER AND DATA'' COMMAND, AND

889
890

THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE AVERAGE SEEK
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE

893
gg‘-s

THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL.
AND TEST 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO

THEN CHECK THE INFORMATION FOR VALIDITY. THUS, INSURING

888

THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WILL MEASURE

891
892

TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND
TRACK ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES
SYSTEMS.

896

897
898
899
900
901
902

THE PROGRAM WILL START BY IDENTIFING ITSELF AND DETERMINING ALL
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH
THE LOWEST NUMERICAL 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 EA(M PASS,

903
904
905

AND AN 'END OF TEST'' MESSAGE WILL BE TYPED AFTER TESTING ALL

gg?

DRIVES.

REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS

908
ok

0'2‘0

N —=O

909

OF EACH TEST.

9.1

TEST O = RECAL/RANDOM SEEX TEST

SEQ 0018

CZRMVBO RMQS/3/2 EXT'D DR TST

MACRO V04.00

THIS TEST WILL CAUSE

313
314
915
916
S17
518
918
920

AND THEN

963
964
95
966
967
968
965

THE DRIVE

TO EXECUTE A RECAL IBRATE

SEEK TO A RANDOM CYLINDER BETWEEN “F('"

(OMMAND

AND "1.°".

THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW:
R
FC

200
0

922

932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962

THE
COMPLETION OF BOTH COMMANDS, STATUS INDICATORS ARE (HE(CKED
TO ENSURE THAT NO ERRORS OCCURRED.

921

923
924
925
)
927
928
929
930
931

G 2
&4=APR=-8] 11:57:12 PAGE 3-16

FT°*
FS

9.2

822

TEST 1 = SEEK/SEEK TEST

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK

CYCLE TO '1C'', "L7'", "LS"' FOLLOWED BY A REVERSE SEEK CYCLE TO

YPC', "FT', 'FS''.

AT THE COMPLETION OF EACH SEEK, THE PROPER

INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.
THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW:
R

iFC
LC
IC

5 5

LT’
FS
LS
9.3

100

0
256
0

0
0
0

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 THE TEST ARE GIVEN BELOW:

R
FC

FT
ik
FS

»
-

LC
IC

9.4

1
0

822
1

0
0
0

TEST 3 = STEPPING SEEK TEST

CZRMVBO RMOS5/3/2 EXT'D DR TST

MACRO v04.00

970

4=-APR-81 11:57:12 PAGE 3-17

SEQC

71
972

THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4,
8,16,32.64,128,256 AND 512. AT THE COMPLETION OF EACH SEEK

g;lso

OPERATION.

COMMAND THé PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER

973

g;?
978

THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW:

979

R
FC

931
982
983
84

1C
FT
i
FS

980

985

ggg

G.5

8
0

512

1
0

0
0

TEST & = OSCILLATING SEEK TEST

988
989
990

THIS T.EST WILL COMMAND SEEK CYCLES FROM ‘FC'* TO ‘NC’" AND BACK
TO "FC''. "NC'' STARTS AT “FC'' AND INCREMENTS BY “‘IC’" UP TO CYLINDER
"L.C"', THEN IS DECREMENTED BY ‘‘IC'' BACK TO CYLINDER “¥(C''. AT THE

gglg

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

991
33%

COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE
EXAMINED TO ENSURE PROPER OPERATION.

996
997
998

R
FC
LC

1000

999

I1C

1001
1002
1003

}8815

5i
FS
9.6

1006

0
0

TEST 5 - CONVERGING/DIVERGING SEEK TEST

BY “'IC'" AND 'NC2'' WILL BE DECREMENTED BY “'IC'* UNTIL "WNC1'" 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
"FC'" AND "LC"* RESPECTIVELY.
THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

1013
‘1,8115

1016
1017
1018
1019
1020
1021

1025

822
1

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE

1008
1009
1010
1011
101¢

1026

SEEKS FROM "NC1'' AND ‘NC2'' RESPECTIVELY, -*NC1'" WILL BE INCREMENTED

1007

1024

1
0

R
FC
LC
IC
FT
FT*

9.7

1
0
822
1
0
0

TEST 6 = SERVO ADDRESSING LOGIC NOISE GENERATOR TEST

IN THIS TEST A SEEK IS DONE TO CYL "NC'' THEN A SEEK T0

0020

CZRMVBO RMOS5/3/2 EXT'D DR TST

MACRO v04.00

i 2
4=-APR-81 11:57:12 PAGE 3-18
NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5.
NOW ‘NC'' IS UPDATED
BY
“'IC'* AND THE ABOVE SEQUENCE IS REPEATED UNITL 'LC'* IS
EXCEEDED BY ANY OF THE ABOVE VALUES.
THE INITIAL VALUE OF "NC'*
IS "FCTM, AT THE COMPLETION OF EACH SEEK COMMAND THE

1027
1028
1029

1030

PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.

1031
1032
1033
1034
1035

THE FOLLOWING PARAMETERS ARE USED BY THE
g

822

.
-

0
0
0

1036
1037

1039
1040

F1
'
FS

1038

1041

1042

1043
1064
1045

SEQ 0071

5.8

TEST:

TEST 7 - RANDOM SEEK TEST

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘F(’
'LC".
AFTFR EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY

1046

READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK.
THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION

1047
1048

TRACK ADDRESSES ARE INCREMENTED

1049
1050

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

1052

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

1051

1053
1054
1055
1056

R
FC

5000
0

FT
LT

0
i

1057
1058

4
3 R

9.9

822

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 IS REPEATED.
THE TEST IS 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
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 IS MALFUNCTIONING, OR
THAT A PACK WITH MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE.
THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW

HUNDRED MICRO-SECONDS AFTER SEFK DONE OCCURS. THE NECESSARY TIME
DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE.
THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

“ZRMVBO RM05/3/2 EXT'D DR TST

MACRO v04.00

4 2
4=-APR=-81 11:57:12 PAGE 3-19

1084

1085

1086
1087
1088
1089
1090
1091

1092

FC
LC
I
F1
4

9.10

SEQ 0022

0
822
100
0
0

TEST 11 = ALL SEEKS TEST (NOT DEFAULT)
THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER
TO ALL OTHER CYLINDERS.

1057
1098

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 CYL INDER

b D =

SBR IR RRURYEBRNE R RUNEE Sa e T ran S0 BB IR ARARSS 3

109
1035

d d —d

ADDRESS AND ALL CYLINDERS BETWEEN °'FC' AND ‘LC’'.
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED.

d ad
d c

P o D wed D e d D D e oD e D

D d
wd wd

9.11

FT*
FS

1
0

822
1
0

0
0

TEST 12 ~ ROTATIONAL SPEED TIMING TEST

THIS TEST WILL START A SEARCH TO CYLINDER °FC®, TRACK °FT",
SECTOR 'FS'. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT 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:

D wd md -

D d o

R
FC

LC
IC
FT

RM0S5/3:

o
e
D o v

RMOZ2:

16.67 MS/REV + OR - 2% IF 60HZ
16.67 MS/REV + OR - 2.5% IF 50MZ.

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

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

e e v

R
FC
F1
£
FS

) e
e S
et

THE SEQUENCE

THE FOLLOWING PARAMETERS ARE USED BY THIS TEST:

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

$.12

1
0
0
0
0

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

MACRO V04.00

O 00NN NS (WA = O N0 00 O
IS (NP —
R RAR BB II I ANANIITEIR agoo«ogwmmmw\nmmmmbbbbbbb:\b

T
O

e
e
e e
e e e e

9.13

1
0

R
FC

822

TEST 14 - AVERAGE SEEK TIMING TEST (NOT DEFAULT)
THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER °'FC’ TO

CYLINDER 'LC', THEN A REVERSE FROM CYLINDER °‘LC’ TO
CYLINDER 'FC'. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY
ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK.
THIS SEQUENCE 1S_REPEATED 128 TIMES (FOR A TOTAL OF 256. SEEKS).
MAXIMUM TIME IS 30.0 Ms.

»* THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME ==

«« USED FOR REFERENCE ONLY.

** ON

9.14

DRIVE. THEREFORE, THIS TEST SHOULD BE #+
.

220

TEST 15 - MAXIMUM SEEK TIMING TEST

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER °FC' TO
CYLINDER °'LC', THEN A REVERSE SEEK FROM CYLINDER ‘LC' TO
CYLINDER 'FC'. BOTH SEEKS ARE TIMED, BUT ONLY THE FORWARD SEEKS
ARE CHECKED TO ENSURE 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 (FORWARD) TIME IS 55.0 mMsS.
«« THERE IS

NO SPECIFICATION

GIVEN FOR THE

MAXIMUM REVERSE **

++ SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE *»
«+ SEEK TIMES ABOVE THE MAXIMUM TIME OF 55.0 MS WILL NOT BE =*+
#« TYPED

IN THE

TIMING REPORT.

HOWEVER,

THE TIMING REPORT =+

»+ WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES *+
e
*» FOR THE REVERSE SEEKS. (SEE SECTION 8.3.2, EX. 2)

THE TEST USES THE FOLLOWING PARAMETERS:

8 RN
R RS

———— . ——————
P
—————
p—————— R

T
L

THIS PARTICULAR

THE TEST USES THE FOLLOWING PARAMETERS:

SRS I
i

THE

THE TEST USES THE FOLLOWING PARAMETERS:

U
IR

SEQ 0023

EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLIMDER SELK.

S
O

2
3-20

MAXIMUM TIME IS 6.0 MS.

G
S
Y

T N
Y
S
W
S
N
N
S

11:57:12 PAGE

TIME TO PERFORM EACH SEEK 1S CHECKED TO ENSURE IT DOES NOT

T
e

4&=-APR-81

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

O
S
Y
Y

CZRMVBO RMOS5/372 EXT'D DR TST

R
FL -

LC
9.15

1
0

822

TEST 16 - SECTOR ADDRESSING TEST

THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK 'FTI'. THE
DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR
BEING WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS

| CZRMVBO RM05/3/2 EXT'D DR TST

MACRO Vv04.00

L 2
4-APR-81 11:57:12 PAGE 3-21

SEQ 0024

CLEARED (TO 177400) AND THE DATA IS READ AND COMPARED.

THEN SECTOR

IS REWRITTEN AND SECTORS 0 = 31 ARE WRITE CHE (KED. THEN
SECTOR 1 IS REWRITTEN AND SECTORS O - 31 ARE WRITE CHECKED.

THIS REWRITE AND WRITE CHECK PROCEDURE IS CONT INUED UP THROUGH

REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-31

—=OVRNIVNSWN—=O

——

9.16

TEST 17 = TRACK ADDRESSING TEST

THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES

IN CYLINDER *'FC'* SECTOR 'FS'' OF EVERY TRACK WITH EACH TRACK
GETTING ITS OWN TRACK ADDRESS.

A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO INSURE
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 IS WRITE CHECKED.
THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING NEXT TO
LAST TARCK AND WRITE CHECKING LAST TRACK.

POND) = =

LS TS TANTN TN TS LN LS 1N

b b od d b ok d ek

1209

THE TEST USES THE FOLLOWING PARAMETERS:
"D

ISIASLAS

lelelel4

TEST USES THE FOLLOWING PARAMETERS:
"TmTmD

THE

C
S

9.17

0
0

TEST 20 - DATA TEST

THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON_CYL INDERS
"FC'' THROUGH ‘LC'' BY THE INCREMENT ''IC’'* USING THE DATA PATTERNS
SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER:

> °“1T"
SET 'NT'' TO "¥T'' THEN REPEAT 2=4 UNTIL "NT'"

2.
8

OF TRACK "NT**
WRITE THEN WRITE CHECK 'FS'' THROUGH ‘LS’
OF TRACK “NT"*
05"
THROUGH
'FS'*
COMPARE
READ THEN SOF TWARE

REPEAT STEPS1-5 FOR "FC'* THROUGH "LC'* ADVANCING BY *'IC""

4.
5.

INCREMENT *NT** BY *'IT"'
REPEAT STEPS 1-4 FOR EACH DATA PATTERN

IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND
THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS
ACCOMPL ISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS
FATAL AND NO READ OCCURS.

FS DEFAULTS TO 1 AND LS DEFAULTS TO 0
PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS)
THE POSSIBLE PATTERNS ARE:

*PAT 0

PAT 1

PAT 2

PAT 3

PAT 4

PATS

PAT 6

PAT 7

155555
133333
155555

000001
000003
000007

177776
177774
177770

000000
000000
000000

133331
133331
133331

052525
052525
052525

155535
155535
155555

026455
026455
026455

CZRMVBO RMOS5/3/2 EXT'D DR TST

MACRO V04.00

4~-APR-81 11:57:12 PAGE 3-22

SEQ 0025

1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267

133333
155555
133333
155555
133333
155555
133333
155555
133333

000017
000037
000077
000177
000377
000777
001777
003777
007777

177760
177740
177700
177600
177400
177000
176000
174000
170000

177777
177777
177777
000000
090999
177
177777
099999
1

13%331
133331
133331
1333;1
133% 1
133331
133331
133331
133331

125252
125 SS
125252
052525
052525
125252
125252
05;5;5
125252

155555
155555
155555
155555
155555
155555
155555
155555
155555

151322
151322
151322
026455
026455
151322
151322
0%6455
151322

1269
1270

*PAT 8

PAT §

PAT 10

PAT 11

PAT 12

PAT 13

PAT 14

PAT 15

155555
133333
155555
133333
155555
133333
155555
133333
155555
133333
155555
133333
155555
133333
155555
133333

000001
000002
000004
000010
000020
0
000100
000200
000400
001000
002000
004000
010000
020000
04
1

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

172266
155555
172666
155555
172266
155555
172666
155555
172666
155555
17%666
155555
172666
155555
172666
155555

077777
137777
157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

153333
066667
153333
066667
153333
066667
153333
06%667
153333
066667
153233
066667
153333
066667
153333
066667

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

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

155555
133333
155555
133333

1268

1271
1272
1273

1274
1275
1276
1277
1278

017777
037777
077777
177777

160000
140000
100000
000000

090999
177
009099
1777

133331
133331
1%3331
133331

052525
125252
052525
125252

155555
155555
155555
155555

* WORST CASE PATTERN
THE TEST USES THE FOLLOWING PARAMETERS:

ol
-

SRR
AR R

1293

R
FC

IC
FT
LT

»
-

IT
FT'
i
T’
FS

LS
PAT

9.18

1
0

822

1
0
18
1
1

64
0
4

0
177777

TEST 21 = RANDOM ADDRESS AND RANDOM PATTERN TEST

STARTING AT 'fC'' AND GOING THROUGH 'LC'' THE DISK PACK
1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS
OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR
FOR THAT SECTOR.

026455
151322
026455
151322

MACRO V04.00

00 ~N O\
IS NND — OO 00~ O\ IS NnY

"R'* DEFAULTS TO 20,000.

GENERATE A RANDOM ADDRESS
WRITE A RANDOM PATTERN AT THE ADDRESS

)
)

GENERATE A RANDOM ADDRESS
READ THE SECTOR AT THE ADDRESS

)
)

)
)
)
)

o~NOMWVDYT

d
b i
D
D
b
D
D
D i
i
b e
D i
)

9)
10)

GENERATED IN 1.

GENERATED IN 3,

DO A SOF TWARE CHECK OF THE DATA READ IN 4.
DO A WRITE CHECK OF THE DATA WRITTEN IN 2
GENERATE A RANDOM ADDRRESS
READ THE SECTOR AT THE ADDRESS

GENERATED IN 7.
DO A SOF TWARE CHECK OF THE DATA READ IN 8
DO A WRITE CHECK OF THE DATA WRITTEN IN 2

THE TEST USES THE FOLLOWING PARAMETERS:

D ad

&4~APR-81 11:57:12 PAGE 3-23
HE TEST THEN PERFORMS THE FOLLOWING SEQUENCE 'R'' TIMES

WNWNWWWWWWWN WWWNWWNWNIWWNIN
NN N
MNIRINI A NI A RORI N = = b b b
3

ns3

CZRMVBO RMO5/3/2 EXT'D DR TST

R
FC

9.19

20000
0

822

TEST 22 - SEEK TIME ADJUSTMENT TEST

THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 € 255 TO ALLOW THE
OPERATOR TO ADJUST THE SEEK TIME ON AN RM05/3/2 USING THE
THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS
DDU.
SO THAT THE SEEK TIME INDICATORS ON THE DDU MAY BE OBSERVED.
THE TEST USES THE FOLLOWING PARAMETERS:

R
FC

10.

PROGRAM LISTING

5000
0

255

SEQ 0026

CZRMyBO RMOS/3/¢2 EXT'D DR TST

MACRO v04.00 4-APR-81 11:57:12 PAC\E 4

3
SEQ 0027

;*LAST REVISION 04-APR-81
LTITLE

CZRMVBC RMO5/3/2 EXT'D DR TST

;*COPYRIGHT (C) 1981
;*DIGITAL EQUIPMENT COflPORANW
'COLMADO SPGS., (0. 80919
-PROGRM BY MIKE LEAVITT

:-ms PROGRAM WAS ASSEMBLED

USING THE PDP=11 MAINDEC SYSMAC

* «PACKAGE (MAINDEC=11=DZQAC=C5), 18~MAR-81
-

.SBTTL

OPERATIONAL SWITCH SETTINGS
USE

SWITCH
2
—d
—

B
B
B
N
B
B
B
N
N
N
N
LT B

.SBTTL

PRINT ERROR MESSAGE ON LINE PRINTER

READ "C.SWR' SETTINGS FROM TTY

INHIBIT TIME REPORTS (TESTS 12-15)
REPORT ONE ERROR PER SECTOR (TESTS 16 € 17)
INHIBIT WRITES (TEST 20)
INHIBIT WRITE CHECKS (TEST 20)
INMIBIT READ AND SOF TWARE COMPARES (TEST 20
INHIBIT SOF TWARE COMPARES (TEST 20)
PERFORM READ AFTER WRITE CHECK ERROR (TEST 20)

CONTROL SWITCH SETTINGS

e BT o B

e P Te B e P e P

WRITE PACK BEFORE TESTING (TEST 21)

INMIBIT WRITING PACK BEFORE TESTING (TEST 21)

NO STALL BETWEEN DRIVE FUNCTIONS
STALL AFTER EVERY DRIVE FUNITION
T

NO INCREMENTING STALL IN TEST &
INCREMENTING STALL IN TEST &
IMPLIED SEEKS WITH DATA TRANSFERS
EXPLICIT SEEKS BEFORE DATA TRANSFERS
READ HEADER AND DATA'" IN TESTS 0-11

BASIC DEF INITIONS

ICIT SEEKS IN TESTS 0-11

"""'Erfnig y

USE

S 25888388

STATE
e BT o P

SWITCH

'll...""'l.'.ll’...&

)
P
R
R
R
I
R
P
T
R
R
IR L
O
D

TTL

O -afNWH N N OO
WS

CIRMYB0O RMOS5/3/2 EXT'D DR TST

BASIC DEFINITIONS

MACRO v04.00

c 3
4&-APR-81 11:57:12 PAGE 4=-1

;*INITIAL ?(1)88555 OF

STACK

ERROR
SCOPE

= EMT
= 107

SEQ 0028

THE STACK POINTER #«» 1100 ##«

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

;*MISCELLANEOUS DEFINIT] ONS
s 11
::CODE FOR HORIZONTAL TAB
LF
2 12
;:CODE FOR LINE FEED
= 15
CR
;:CODE FOR CARRIAGE RETURN
CRLF
= 200
;:CODE FOR CARRIAGE RETURN~LINE FEED
PS
= 177776
; ;PROCESSOR STATUS WORD

PSW=PS

STKLMT

PIRQ

DSWR
DDISP

= 177774

= 177772

= 177570
= 177570

;:STACK LIMIT REGISTER
; ;PROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

s *GENERAL PURPOSE REGISTER DEF INITIONS

R7
SP
PC

=
=
=
=
=

X0
%)
X2
3
¥4

=35

* 36

s X7
= 36
= 3§

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

s*PRIORIT YOLEVEL DEF INITIONS

PRO
PR1
PR2
PR3

=
= 40
= 100
= 140

PR7

= 340

S
R

1
5

;:PRIORITY LEVEL
;;PRIORITY LEVEL
;:PRIORITY LEVEL
:;PRIORITY LEVEL
;:PRIORITY LEVEL
::PRIORITY LEVEL
;:PRIORITY LEVEL
;:PRIORITY LEVEL

;" 'SWITCH ?EGISYER" SWITCH DEF INITIONS

SW1s
SWi4

SW13
Sw12
SW11
SW10

Sw09
SW08
Sw07
SW0é
SWO5
SWO4
SW03
Sw02
Sw01
SW00

= 100000
= 40000

=
=
=
=

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

SW9=Sw09

20000
10000
4000
2000

NOWVNSWN—=O

RO
R1
Rz
R3
R4

(ZEMyBO RMOS/3/2 EXT'D DR TST

BASIC DEFINITIONS

000400
000200
000100
000040
000020
000010
000004
000002
000001

D 3
4=-APK=-81 11:57:12 PAGE 4=¢

MACRO v04.00

SEQ 0029

Sw8=Sw08

Sw7=Sw0?7

Swo=Sw06
SW5=SW05
Swé=Sw04
Sw3=Sw03
Swo=Sw02
SW1=SW01
SwW0=Sw00

100000
40000

20000

10000
4000

2000
1000

0
0

T
O
T

I T

—_

200
00
0

B —

400

—

LTI

L L )

: *DATA BIT DEF INITIONS (BITOO TO BIT1S)

BIT8=BIT08
BIT17=BIT07
BIT6=BIT06
BIT5=BIT05
BIT4=BIT04
BIT3=BIT03
BIT2=BIT02
BIT1=BIT01
BITO=BIT00

s*BASIC "CPU' TRAP VECTOR ADDRESSES

ERRVEC =
RESVEC = 10
TBITVEC = 14
TRTVEC

= 14

IOTVEC

= 20

BPTVEC

= 14

PWRVEC

= 24

TKVEC

= 60

.SBTTL

RH REGISTERS

..Tlfi OUT AND OTHER ERRORS
RE_SERVED AND ILLEGAL INSTRUCTIONS
(Y Wt
i TRACE TRAP

;BREAKPOINT TRAP (BPT)

..IM’UTIWTPUT TRAP (I0T) =+SCOPE=+
. :POWER FAIL

EMTVEC = 30
TRAPVEC = 34

.,EMATM TRAP (EMT) =«+*ERROR**
:"'TRAP'’ TRAP

=
TPVEC
PIRQVEC = 240

$TTY PRINTER VECTOR
..PROGRM INTERRUPT REQUEST VECTOR

:TTY KEYBOARD VECTOR

;CONTROL AND STATUS REGISTER 1 (RMCS1T)
000100

= 100

; INTERRUPT ENABLE (BIT #6)

| CZRMVRO RMOS/3/2 EXT'D DR TSF
RH REGISTERS

78
79

80
81

000200
000400
001000
002000
020000
040C00

MACRO v04.00

£ 3
4=-APR-81 11:57:12 PAGE 4=3

RDY
Al6
A7
PSEL

= 200
= 400

TRE

= 40000

= 1000

MCPE

= 2000
= 20000

:SC

= 100000

SEQ 0030

JREADY (BIT #7)
JHIGH ORDER BUS ADDRESS BIT (BIT #8)
sMIGH ORDER BUS ADDRESS BIT (BIT #9)
;PORT SELECT (BIT #10)

JMASSBUSS PARITY ERROR (BIT #1%)

s TRANSFER ERROR (BIT #14)

JSPECIAL CONDITION (BIT #15)

;WORD COUNT REGISTER (RMWC)

; (EACH BIT IS CALLED BY BIT NUMBER)

;BUS ADDRESS REGISTER (RMBA)
s (EACH BIT 1S CALLED BY BIT NUMBER)

;CONTROL AND STATUS REGISTER 2 (RM(CS2)
=1
=2
=4
=10

JUNIT SELECT
JUNIT SELECT
JUNIT SELECT
;BUS ADDRESS

CLR
IR
OR
MPE

= 40
= 100
= 200
= 400

;CLEAR (BIT #5)
; INPUT READY (BIT #6)

:PAT

—'OOWVOM&WN—'O%

e
) —d
d ed
e

b b ed o ok b b ek

e e

e cmd
e

= 20

;JMASSBUS PARITY TEST (BIT #4)

;OUTPUT READY (BIT #7)

MXF
PGE

= 1000
= 2000

:MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BI7T #9)
;PROGRAM ERROR (BIT #10)

WCE

= 40000

;WRITE CHECK ERROR (BIT #14)

NEM
NED
UPE

PIND

(BIT #0)
(BIT #1)
(BIT #2)
INCREMENT INHIBIT (BIT #3)

us1
VA4
uSé
BAI

DLT

= 4000
= 10000
= 20000
= 100000

;NON EXISTENT MEMORY (BIT #11)
JNON EXISTENT DRIVE (BIT #12)
;UNIBUS PARITY ERROR (BIT #13)
;DATA LATE (BIT #15)

;DATA BUFFER REGISTER (RMDB)
;(EACH BIT 1S CALLED BY BIT NUMBER)
.SBTTL

RM REGISTERS

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

= 3

= 10

F5
DVA

= 40
= 4000

F1
F2
Fé

:GO BIT (BIT #0)

e 2
= 4

;FUNCTION CODE BIT M1
;FUNCTION CODE BIT #2

= 20

;FUNCTION CODE BIT #4

;FUNCTION CODE BIT #3

;FUNCTION CODE BIT #5
:DEVICE AVAILABLE (BIT #11)

:DRIVE STATUS REGISTER (RMDS) (#01)
oM
vV

DRY
DPR

PGM

LST
WRL

LA |
= 100

JOFFSET MODE
:VOLUME VALID (BIT #6)

= 200
= 400

:DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)

= 2000
= 4000

LAST SECTOR TRANSFERRED (BIT #10)
JWRITE LOCK (BIT #11)

= 1000

;PROGRAMABLE (BIT #S)

RM REGISTERS

MACRO v04.00
MOL
PIP

135
136

ERR
ATA

137
138

139

4=APR=81 11:57:12 PAGE 4=4
= 10008
= 2

= 400
= 100000

SEQ 0031

JMEDIUM ON=LINE (BIT #12)
;POSITIONING OPERATION [N PROGRESS (BIT #13)
;COMPOSITE ERROR (BIT #14)
JATTENTION ACTIVE (BIT #15)

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

140
141
142

143

144

145
166
147

ILF
ILR
RMR
PAR

=1
=z 2
s &
= 10

sILLEGAL FUNCTION (BIT #0)
sILLEGAL REGISTER (BIT #1)
JREGISTER MODIF ICATION REFUSED (BIT #2)
;PARITY ERROR (BIT #3)

WwCF
ECH
HCE

= 40
= 100
= 200

JWRITE CLOCK FAIL (BIT #5)
JECC HARD ERROR (BIT #6)
JMEADER COMPARE ERROR (BIT #7)

FER

148
149
150

HCRC
AQE

151

1AE
WLE
DTE
oP!
UNS
DCK

152
153
154

155

156

157

158
159

= 20

= 40C
= 1000

= 2000
= 4000
= 10000
= 20000
= 40000
= 100000

JMAINTAINASILITY REGISTER #0717

160
161
162
163

DMD

wD
EECC

= 10
= 20

LSIi
s

164

165

CONT

PHA

z g
s &

;INVALID ADDRESS ERROR (BIT #10)
JWRITE LOCK ERROR (BIT #11)
:DRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #13)
:DRIVE UNSAFE (BI! #14)
;DATA CHECK ERROR (BIT 15)
(RMMR1)(#03) - READ ONLY BITS

:DIAGNOSTIC MODE

= 100

= 200

- 106
- 2000

?gf

= 10000

FR6
occ

JHEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)

= 40

ECRC
BLFS
ESRC

;FORMAT ERROR (BIT #4)

= 4000

<= 40000
100000

SMAINTAINABILITY REGISTER #01 (RMMR!) (#03) - WRITE ONLY BITS
DMD

= 4

DTG

= 20

MDF

= 100

MSC

MWP
MS

MSER

MOC
MUR

MRD
MCLK

= 2

;DIAGNOSTIC MODE BIT

z %0
= 40

= 200

= 400
= 1000

= 2000
= 4000

CZRMVBO RMOS/3/2 EXT'D DR TST

"ZRMYBO RM0S5/3/2 EXT'D DR TST
RMTM REGISTERS

010000
020000
040000
100000

MACRDO v04.00
MSEN

DTO
OBEN
0B(K

G 3
4~-APR=-B1 11:57:12 PAGE 4=5

SEQ 003/

= 10000

= 20000
= 40000
= 100000

JATTENTION SUMMAKY PSEUDO=REGISTER (RMAS) (#04)
000901
000002
000004
000010
000020
000040
000100
000200

ATO
AT1

= 1
=2

AT3

= 10

AT2
AT4

ATS
AT6
A17

;DEVICE 0 (BIT #0)
:DEVICE 1 (BIT #1)

= 4

:DEVICE § (BIT #2)
;DEVICE 3 (BIT #3)

= 20

sDEVICE 4 (BIT #4)

= 40
= 100
= 200

;DEVICE 5 (BIT #5)
JDEVICE 6 (BIT #6)
JDEVICE 7 (BIT #7)

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05)

B
e
o
el vl

;DRIVE TYPE REGISTER (RMDT) (#06)

00 NN
NN —

POTLMNLNLNL
N PO

s (EACH BIT 1S CALLED BY BIT NUMBER)

DT00
DTO!
DT02

D703
D104

DT0S
D106
D107
DT08

DRQ
MOMH

TAP

NBA

;DRIVE TYPE NUMBER BIT 1

=10

;DRIVE TYPE NUMBER BIT 4

=2
=4

;DRIVE TYPE NUMBER BIT 2
;DRIVE TYPE NUMBER BIT 3

;DRIVE TYPE NUMBER BIT 5

= 20

= 40

=
=
=
=

;DRIVE TYPE NUMBER BIT 6

100
200
400
4000

;DRIVE
;DRIVE
;DRIVE
;DRIVE

TYPE NUMBER BIT 7
TYPE NUMBER BIT 8
TYPE NUMBER BIT 9
REQUEST REQUIRED (BIT #11)

:MOVING HEAD (BIT #13)

= 20000

;TAPE DRIVE (BIT #14)

= 40000

:NOT BLOCK ADDRESSED (BIT #15)

= 100000

;LOOK=AHEAD REGISTER (RMLA) (#07)
SCO
SC1
sC2

2SL3
:SC4

= 100
= 200
= 400

;SECTOR COUNT FIELD O (B
sSECTOR COUNT FIELD 1 (B
;SECTOR COUNT FIELD 2 (BIT #8)

= 2000

sSECTOR COUNT FIELD & (B

;SECTOR COUNT FIELD 3 (B

= 1000

;RM MAINTAINABILITY REGISTER #2 (RMMRZ2) (#10)
;RM ERROR REGISTER #02 (RMMR2) (#10)
;OFFSET REGISTER (RMOF)
000200
002000

CFD

010000

FMT16

HCI

ECI

=
=
=
=

200
2000
4000
10000

(#11)
(Tl
(BIT #07)
;OFFSET DIRECTION
JHEADER ( OMPARE INWIBIT (BIT #10
E“
;ERROR CORRECTION
CODE INKIBIT ’87' LARR
T #12)
JFORMAT BIT

;DESIRED CYLINDER ADDRESS (RMD() (#i2)

5/3/2 EXT'D DR
S

137

MACRO v04.00

4=APR=B1 11:57:12 PAGE «=6

s(EACH BIT

SEG

IS CALLED BY BIT NUMBEK)

:CURRENT CYLINDER ADDRESS (RMMR) (#13)
*(EACH BIT IS CALLED BY BIT NUMBER)

;SERIAL NUMBER REGISTER (RMSN) (#14)
s (EACH IS CALLED BY BIT NUMBER)
;RM ERROR REGISTER #02 (RMER2)
020000
100000

OPE
Skl
BSE

= 20000
= 40000
= 100000

(#15)

;OPERATOR PLUG ERROR (BIT #1%)
;SEEK INCOMPLETE (BIT #14)
sBAD SECTOR ERROR (BIT #15)

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

;ECC PATTERN REGISTER (RMEC2) (#17)

;(EACH BIT IS CALLED BY BIT NUMBER)
""Q.'.".""'.....'."".'l...-.....0.....Q".t't"t'..'.'.t.l"

000101
000103
000105
000107
000111
000113
000115
000117
000121

000123
000131
000151
000153
000161
000163
000171
000173
000141

000143
000145

;OP CODE DEF INITIONS

SEEK

101
= 103
= 109

DRVCLR

= 111

NOOP
UNLOAD
RECAL

= 107

RELEASE = 113

OFFSET

= 115

RTC
READIN
PACK

= 117
= 121
= 123

WRITE

= 161

SEARCH
WRCKD
WRCKHD

= 131
= 151
= 153

WRTHD
=
=
READ
READHD =
GETREG =
SETFORM =
SELDRV =

163
17
173
141
143
145

;OTHER EQUATES
177400

SCTRWC

= =256,

sWORD COUNT FOR SECTOR

O 33

CZRMVBO RMQS/3/2 EXT'D DR TST

MACRO v04.00

TRAP CAT(HER

.SBTTL

4-APR-81 11:57:12 PAGE 5

3
SEQ

TRAP CATCHER
=0

000000

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ‘‘,+2,HALT"

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

'LOCANG:I
0 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

.
DISPREG: .uoao
.WORD
SWREG:

000174
000000
000000

.SBTTL

: :SOF TWARE DISPLAY REGISTER
“iSOF TWARE SWITCH REGISTER

0
0

STARTING ADDRESS(ES)

5 000200 000137 004670

JMP

MNSTART1

z 000204

004712

JMP

a#START?

JSELECT OPERATING PARAMETERS

2 000210 000137 004660
; 000214 000137 004702

JMP
JMP

MSTART3
MSTARTS

:SELECT RH/RM ADDRESSES
;COMBINATION OF 204 AND 210

000137

]

;

.SBTTL

::JUMP TO STARTING ADDRESS OF PROGRAM

ACT11 HOOKS

::QIQ'Q'..t..fi.".l..'."'lt..'l..'Q't..."lt.."..'l.'.'.'.".t'

000220
000046
000046 021523
000052 020000
o
000220
11
12

001100

*HOOKS REQUIRED BY ACT11

$SVPC=.
.=46
ssrsuzuo
"WORD 20000
“=$SVPC

.=1100
.SBTTL

;SAVE PC
::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
::2)SET LOC.52 TO 20000
*:"RESTORE PC

APT PARAMETER BLOCK

".'tt.t"'.'...'.'t'.Q'Q.'Q.'..QQ.'.'.....‘Q.t't'tt.t."ttt'.t'.'.

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

001100
000024
000024 000200
000044
000044 001100
001100

":.tl..."Ii"..'."'."‘."'Q'Q‘Q....'t.tit.'....t..t.t'.'.t..t.

.$X=.
::SAVE CURRENT LOCATION
.=26"
;:SET POWER FAIL TO POINT TO START OF PROGRAM
200
*:FOR APT START UP
:-POINT TO APT. INDIRECT ADDRESS PNTR.
_=44
$APTHDR :-POINT TO APT HEADER BLOCK
.=.8X ::RESET LOCATION
COUNTER
't'..!tl.."...tfittt'..t‘ltt.t..t

tt.Qt't".Q’Qt'.Q.'.."."..ttt

SETUP APT OARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
“INTERFACE sPEC.

001100

001100
001102
001104
001106

000000
001234
004064
004064

001110 004064
001112 000030

001114

$APTHD:
$HIBTS:
SMBADR:
$7STM:
$PASTM:

.WORD
.WORD
.WORD
.WORD

SUNITM: .WORD
"WORD

TAB. XY=,

0
SMAIL
2100.
2100.

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
:iADDRESS OF APT MAILBOX (BITS 0-15)
::RUN TIM OF LONGEST TEST
:+RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
2100.
(WORDS)
OX~E
TABLE
SETEND-SMAIL/2 ..LENGTH MA]LB

:COMMON TAG STARTING ADDRESS

COMMON TAGS

MACRO V04.00

&4=APR=-81 11:57:12 PAGE 6

SBTTL

3
SEQ 0035

T AGS
COMMON

2222233330222

222222000

RRRRRRRRRRRR

iRl

L%THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATJONS

**USED IN THE PROGRAM.,

STSTNM:
$ERFLG: .
$ICNT:
$LPADR:
$LPERR:
$SERTTL:
$ITEMB:
SERMAX:
$ERRPC :
$GDADR:

$8DADR:
$GDDAT :
$BDDAT :

$SAUTOB:
$INTAG:

377
012

377

;:CONTAINS "BAD' DATA
; ;RESERVED--NOT TO BE USED

;;AUTOMATIC MODE INDICATOR
:: INTERRUPT MODE INDICATOR

$REGS:
$REGA:
$REGS:
$TMPO:
$TMPT:
$TMP?:
$TIMES: O
$SESCAPE:0
$BELL:
LASCIZ
$QUES:
LASCII
$CRLF:
.ASC1]
$LF:
LASCIZ
2

;sCONTAINS ‘GOOD’ DATA

OO—NO

$REGO:

$REG1:
$REGZ:

;sCONTAINS ADDRESS OF 'GOOD’® DATA
;sCONTAINS ADDRESS OF °'BAD' DATA

SWR:
DISPLAY:
$TKS:
$TKB:
$TPS:
$TPB:
:
$NULL
SFILLS:
$FILLC:
S$TPFLG:
$REGAD:

;sCONTAINS THE TEST NUMBEK
;sCONTAINS ERROR FLAG
;sCONTAINS SUBTEST ITERATION COUNT
:sCONTAINS SCOPE LOOP ADDRESS
; sCONTAINS SCOPE RETURN FOR ERRORS
;.CONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;sCONTAINS MAX. ERRORS PER TEST
JsCONTAINS PC OF LAST ERROR INSTRUCTION

001131

;:START OF COMMON TAGS

+WORD

o0 [slelelelelelelelelollelololslelelele)

=TAB.XY

OOOO0OOOVO

oSO NOS
S

$CMTAG:

WNPOPOPON)
= = s

CZRMVBO RMOS5/37/2 EXT'D DR TST

888833888
o e
b

;:ADDRESS OF SWITCH REGISTER
:;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
;:TTY KBD BUFFER

;2TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS

;2CONTAINS NULL CHARACTER FOR FILLS
2;CONTAINS # OF FILLER CHARACTERS REQUIRED

:2INSERT FILL CHARS. AFTER A "LINE FEED"’
::2"'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
;;CONTAINS THE ADDRESS FROM
J:WHICH (SREGO) WAS OBTAINED
::CONTAINS ((SREGAD)+0)
; :CONTAINS ((SREGAD)+2)
+4)
;:CONTAINS ((SREGAD)

+6)
;;CONTAINS ((SREGAD)
;:CONTAINS ((SREGAD)+10)
;:CONTAINS ((SREGAD)+12)
: sUSER DEF INED
; JUSER DEF INED
: sUSER DEF INED
:2MAX. NUMBER OF ITERATIONS
;JESCAPE ON ERROR ADDRESS
<207><377><377> :2CODE FOR BELL
/?/
::QUESTION MARK
<15>
::CARRIAGE RETURN
<12>
J:LINE FEED

i i
2222222222332 2223223 33233230020000l

TSBTTL

APT MA]LBOX-ETABLE

CZRMVBC RMOS/3/2 EXT'D DR TST
APT MAILBOX-ETABLE

MACRO V04.00
A2

001234
001234
001236
001240
001242
001244
001246
001250
001252
001254
001254
001255
001256
001260
001262

&=-APR-81 11:57:12 PAGE 6~1

SEQ 0036

AR R Rl
l

EVEN
$MAIL:
$MSGTY:

AMSGTY

$FATAL:

$TESTN:
$PASS:
$DEVCT:
SUNIT:
$MSGAD:
$MSGLG:
$ETABLE:
$ENV:
$ENVM:
$SWREG:
$USWR:
$CPUOP: .

AFATAL
ATESTN

APASS
ADEVCT
AUNIT
AMSGAD
AMSGL
G
AENV
AENVM
ASWRE
G
AUSWR
ACPUOP

:;APT MAILBOX
s sMESSAGE TYPE CODE
;sFATAL ERROR NUMBER
s TEST NUMBER

: :PASS COUNT
;sDEVICE COUNT
3170 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH
:sAPT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
: sENVIRONMENT MODE BITS
;sAPT SWITCH REGISTER

..USER SWITCHES

;CPU TYPE ,OPTIONS
BlTs 15=11=CPU TYPE
11/04=01,11/05=02, 11/20=03 11/40=04 ,11/45=05

11/70=06.PDQ=07,3=10

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
:
:

BYTE
JBYTE

AMAMS1
AMTYP1

BIT

8=MEMORY MANAGEMENT

S BYTE
. M.S.
::HIGH ADDRES

::MEM, TYPE,BLK#1
== (HIGH BYTE)
MEM.TYPE BYTE
900 NSEC CORE=001

300 NSEC BIPOLAR=002
S00 NSEC MOS=003
::HIGH ADDRESS,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “‘TYPE'® ABOVE

;;HIGH ADDRESS .M.S. BYTE
.I

|
|

% SMEM. TYPE ,BLKA#2

..HEH LAST ADDRESS.BLK#?2
..HIGH ADDRESS .M.S.BYTE

..HEH LAST ADDRESS.BLKA#3
..HIGH ADDRESS M.S.BYTE
: :MEM. TYPE ,BLK#%
HEH LAST ADDRESS,BLK#4

..INIEWT VECTOR#1,BUS PRIORITY#1

; 2 INTERRUPT VECTORIZBUS PRIOR]ITY#2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
:;DEVICE MAP

4=APR=81

.WORD
.WORD
.WORD

TICKMS:

.WORD

BYPASS:
CHKDRV:
DRVMSK:
SVSTAT:

.WORD
.WORD
.WORD
.WORD

CYL.RD:
TRK.RD:
SEC.RD:
CYL.DS:
SEC.DS:

.WORD
.WORD
.WORD
.WORD
.WORD

LSTRK:

.WORD

TICKUS:

TRK.DS:

TIM.UP:

TIM.DN:

000000
TIM.PT:
WCEFLG:

000000

STALLO:

SVADR:
SEKTMR:
SEKCNT:
DELTA:

.WORD
.WORD

.WORD
.WORD
.WORD

.WORD

020

.WORD

WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

MXSTAL:

.WORD

STALL3: .WORD

BASFLG:
XXDP:

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

STALLT:
STALL2:

ERR.CT:

777,3

.BYTE

.WORD

TRCKWC: .WORD

011610

OO0—=000CO0o0ONO
w
s O
oc

CNTRLC:
BUSADR:
LPTAVL:
DRVSEL:
TSTNMS:
OPNFLG:
CLKSTA:

oo
O
o
o

000003
000000

.WORD

.WORD
.WORD

O00O0 -

C.SWR:

ERMAX:
SAVCSW:

SEQ 0037

USER DEFINED TAGS

OO0O0000O

LSBTTL

L
11:57:12 PAGE 7

—=NVni—— | OO000COOOOOOOOOCOO0O0

USER DEF INED TAGS

MACRO Vv04.00

OO0

CZRMVBO RMOS5/3/2 EXT'D DR TST

;CONTROL SWITCHES

:MAXIMUM NUMBER OF ERRORS ALLOWED PER DRIVE
;PREVIOUS CONTENTS OF

'C.SWR'

sCONTROL ''C*’ FLAG
:GET ADDRESSES FROM THE TTY FLAG (0=NO, -1=YES)
:LPT AVAILABLE STATUS (0=NO,1=YES)

:DRIVES SELECTED FOR TFSTING

:DEFAULT IS RUN TESTS 0-10,12,13 & 15-21
‘MODIFY TEST PARAMETER FLAGS

CLOCK STATUS (0=NO CLOCK,+1=kW11-P,
: -1=KW11=L)

216 MILLISECONDS PER CLOCK TICK

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

;CYLINDER READ
; TRACK READ

;SECTOR READ
sCYLINDER DESIRED

;SECTOR DESIRED
: TRACK DESIRED

*CONTAINS THE LAST TRACK OF THE UNIT UNDER
;TEST. RM02/3 = 4., RMO5 = 18.
sMINIMUM TIME

:NUMBER OF COUNTS BELOW MIN. LIMIT
sMAXIMUM TIME
;NUMBER OF COUNTS ABOVE MAX. LIMIT
;TOTAL TIME OF ALL SEEKS

;NUMBER OF SEEKS PERFORMED
sMINIMUM TIME
sNUMBER OF COUNTS BELOW MIN. LIMIT
sMAXIMUM TIME
:NUMBER OF COUNTS ABOVE MAX. LIMIT

;TOTAL TIME OF ALL SEEKS
:NUMBER OF SEEKS PERFORMED
;POINTS TO TABLE OF TIMES

sFATAL WRITE CHECK ERROR FLAG

;VARJABLE STALL
sSAVE DISK ADDRESS

sSEEK TIMER
:SEEK COUNTER

;TESTING RANGE FOR SERVO SETTLE DOWN TEST
*WORD COUNT FOR A FULL TRACK IN 16 BIT MODE
210 MILLISECONDS STALL

:10 MILLISECONDS STALL
;5 SEC STALL

*MAX. INCREMENTING STALL ALLOWED IN TEST &

:NUMBER OF ERRORS ALLOWED IN TESTS 16 - 21
:BEFORE GOING TO THE NEXT TEST
+RESERVED

:FLAG FOR DETECTING BAD SECTOR

JTHE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH

| CZRMVBQ RM0S/3/2 EXT'D DR TST
|
|

USER DEF INED TAGS

4=-APR-81 11:57:12 PAGE 7-1
"

s THE PROGRAM WAS LOADED.

|
c

ERRCN:

THE NIGH BVIE CONTAINS THE

PS:
TPB:

"WORD

:BIT TABLE
BITS:
.WORD
"WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
JWORD
.WORD
.WORD
JWORD
LWORD
JWORD
JWORD
.WORD

BITO0
BITO1
exrog
BITO
BITO04
BITOS
BIT06
BITO?
BITO8
BITO9
BIT10
BITI
BIT12
BIT13
BIT14
BIT1S

LPS:
LPB:

001612
001614
001616

.SBTTL

.WORD
.WORD

BITO0
BITO1
BIT02
BITO3
BITO04
BITOS
BITO6
BITO7

TIMING LIMITS

;ROTATIONAL TEST TABLES FOR RM05/3 DRIVES
;60HZ TABLE
T7A:

.WORD
.WORD
.WORD
.WORD

:50HZ TABLE
178:

.WORD
.WORD

SOTATE

1700.
ROTATE

047754
000000

;TTY PRINTER STATUS
sTTY PRINTER BUFFER

001630
001632

;LINE PRINTER STATUS
;LINE PRINTER BUFFER

177564
177566

.WORD
.WORD
.WORD
.WwORD
"WORD
"WORD

047754
000009
003142
003244

177514
177516

100,102

.WORD
"WORD

JWORD
.WORD

001620
001622
001624
001626

177546

172544

001570
001572
001574
001576
001600
001602
001604
001606
001610

LKS:

"WORD

000002
000004
000010
000020
000040
000100

LKV

:KW11-P VECTOR ADDRESS
iKW11=P CONTROL AND STATUS REG.
:KW11=P COUNT SET BUFFER
:KWi1=P COUNTER
:KW11=L VECTOR ADDRESS
:KW11=L STATUS REGISTER

nony
e

000001

.WORD

-WORD

;VECTOR ADDRESS AND PRIORITY

(1%

177564
177566
177514
177516

000102

175542

PKC :

104,106
172540

000100
177546

PKB:

"WORD
.WORD

172542
172544

PKV :
PKCS:

sRH/RM UNIBUS ADDRESS

172540

254,240

_~~~

000104

000240
000106

001540
001542
001544
001546
001550
001552
001554
001556
001560
001562
001564

000254

:ADDRESSES AND VECTORS
176700

RH.ADR: .WORD
RHVEC:
.WORD

;TOTAL ERROR COUNT FOR DRIVES 0-7.

001510
001514
001516
001520
001522
001526
001530
001532
001534
001536

176700

001502

.BLkKB

001472

—

;'XXDP' DEVICLE CODE FOR THE RM05/3/2.

e
—0

MACRO V04.00

SEQ 0038

pa—

|
|

CZRMVBO RMO5/3/2 EXT'D DR TST

TIMING LIMITS

001634
001636

MACRO V04.00

4~APR-81 11:57:12 PAGE 7-2

.WORD

003131
003255

.WORD

1625.

1709,

SEQ 0039

JLO LIMIT (16.67MS = 2.5%)

“HI LIMIT (16.67MS + 2.5%)

:ROTATIONAL TEST TABLES FOR RM02 DRIVES

042754

000000
004605

.WORD

LWORD
.WORD
.WORD

;50HZ TABLE

T7B1:

005003

ROTATE

O
2450.
2550.

.WORD

ROTATE

WORD
.WORD

2437.
2563.

WORD

;SEEK TEST TABLES

001660
001662
001664
001666

050005
050152
000000
001130

T10:

001670
001672
001674
001676

050052
050152
000000
005670

ki B

001700
001702
001704
001706

050112
050152
000000
012574

T12:

(25.00MS8 - 2%)
(25.00MS + 2%)

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

.WORD
.WORD
MWMORD

ONECYL
REV
O

; FORWARD
sREVERSE
JNO LO LIMIT

.WORD

AVERGE

; FORWARD

.WORD

3000.

.WORD

.WORD
WORD

;

0
1

600.

sHI LIMIT (6.0MS)

REV
O

;REVERSE
sNO LO LIMIT

.WORD

MXSEEK

2 FORWARD

.WORD

sNO LO LIMIT

.WORD

REV

5500.

HI LIMIT (30.0MS)
;REVERSE

Hl LIMIT (55.0MS)

;SPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS

050350
003142
003244

050350
003131
003255

;ROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO5/3 DRIVES
;60HZ TABLE
MSG7XA
.WORD
SP7A:
O LIMIT (16.67MS - 2%)
1634.
.WORD
I LIMIT (16.67MS + 2%)
1700.
LWORD
;S0HZ TABLE
.WORD
SP78:
.WORD
.WORD

MSG7XA
1625.
1709.

;LO LIMIT (16.67MS - 2.5%)

YHI LIMIT (16.67MS + 2.5%)

;ROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO2 DRIVES

;S0HZ TABLE

SP7B1:

.WORD
.WORD
.WORD

MSG7XB
2450.
2550.
MSG7XB
2437.
2563.

;LO LIMIT (25.00MS - 2%)

JHI LIMIT (25.00MS + 2%)

050425
004605
005003

;60HZ TABLE
SP7A1:
.WORD
.WORD
.WORD

050425
004622
004766

AS [a¥]

001650
001652
001654
001656

T7A1:

sS
wn

001646

047754
000000
004622
004766

001640
001642
001644

:60HZ TABLE

|
!

.WORD
WORD
.WORD

MSG10x
O
600.

.WORD

MSG11X
O
3000.

:NO LO LIMIT
M1 LIMIT (30.0Mms)

.WORD
WORD
.WORD

MS312x
O
5500.

sNO LO LIMIT
:Hl LIMIT (55.0MS)

050500
000000
001130

SP10:

001746

001750
001752

050542

000000
005670

SP11:

001754
001756
001760

050604
000000
012574

SP12:

001762

051536

STATBL: .WORD

001774
001776

051724
051763

002002
002004
002006
002010

052071
052141
(52161
052231

002000

002012

051600
051631
051653
051701
052025

052301

SEQ 0040

sTIMING TESTS MESSAGES AND LO/MI LIMITS

001740
001742
001744

001764
001766
001770
001772

«=APR-81 11:57:12 PAGE 7-3

LWORD
.WORD

NO LO LIMIT
W1 LIMIT (6.0MS)

:STATUS/ERROR MESSAGE POINTER TABLE

MSGB14

;OFFLINE OR UNSAFE DRIVE REQUESTED

MSGB09
MSGB08

;SOF TWARE TIMEOUT ON THIS DRIVE
;SOF TWARE TIMEOUT ON ANGTHER DRIVE
;ERROR OCCURRED DURING 1/0 OPERATION

MSGB13
MSGB12
MSGB11
MSGB10

MACRO v04.00

CZRMVBO RMOS5/3/2 EXT'D DR TST
TIMING LIMITS

383833333358

|
[

MSGBOS
MSGBO4
MSGB03
MSGBO2
MSGRO1

*UNLOAD DRIVE REQUESTED
*PERSISTENT UNSAFE
*PARITY ERROR OCCURRED
SFATAL PARITY ERROR

;ERROR OCCURRED DURING NON-I/0 OPERATION
JUNSAFE OCCURRED
JAUTOMATIC RECALIBRATE SEQUENCE OCCURRED
;DRIVE HAS NOT RESPONDED TO PORT REQUEST
;DRIVE HAS BECOME NONEXISTENT

MACRO v04.00

4-APR-81

.SBTTL

C 4
11:57:12 PAGE 8

SEQ 0041

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS FERTINENT.
s*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP(C).
;«NOTEZ2:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
i
i
M
N

EM
DH
DT
DF

:*ERROR

25 002032

SERRPC

ERR PC

RMAS

SREG3

EMI
DH1
DT1
DF1

;*ERROR

UNEXPECTED ATTENTION OCCURRED

:”

SERRPC

ERR PC

DRIVE
SREG!

RMAS

SREG3

RMDS

RMERRS

RMER1

RMERRS+2

EM2
DHZ
D12
DF2

050732
052354
053720
054352

i
o
;e

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

050770
052441
053736
054356
;*ERROR
»

:
i
051025
052476

;*ERROR

44 002044
45 002046

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

RH CONTROLLER INTERRUPT OCCURED (RMAS=0)

050660
052337
053714
054346

—

22 002024
23 002026

TO THE
TO THE
TO THE
TO THE

002014
002016
002020
002022

;:POINTS
;sPOINTS
;:POINTS
;3POINTS

$ERRTB:

002014

h o

NS
- V0N WVNHWN—=O000

C IRMVBO RMO5/3/2 EXT'D DR TST
E RROR POINTER TABLE

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

BDDATA
RD.WRD

RMMR?

RMERRS+4

RMERZ2

RMERRS+6

CZRMVBO RM05/3/2 EXT'D DR TST
ERROR POINTER TABLE
46 02050
2; 002052

MACRO v04.00

4=-APR-81

11:57:12 PAGE 8-1

SEQ 004¢

DT4

053746
054362

DF4

:*ERROR

ADDRESS PLUG CHANGE BIT SET
b

55 002054

56 002056
57 002060
gg 002062

ERR PC
$ERRPC

053720
054352

:*ERROR

;*ERROR
69 002074

70 002076
71 002100

72 002102

;*ERROR
;t
- %

]

002104
002106
002110
002112

)

DRIVE SELECTED IS NOT ONLINE
DRIVE
$REGZ

ERR PC
SERRP(

EM11
DH11
DT11
DF11

051173
052564
054004
054372

;*ERROR

101
102

7 == NOT USED

EM10
DH10
pT10
DF10

051115
052545
054000
054366

002114
002116
002120
002122

6 == NOT USED

RH CONTROLLER FAILED TO RESPOND TO ADDRESSING
RMCST
ERR PC
RH.ADR
$ERRP(

;*ERROR

91
92
93
94

RMDS
RMERI
RMMR2
RMER2
RMERRS RMERRS+2 RMERRS+4 RMERRS+6

[elelele]

65 €02072

80
81
82
83

RMAS
SREG3

EM5
DH2
D12
DF2

051061

052354

60
61
62 002064
63 002066
64 002070

DRIVE
SREG!

(=lolele]

|
-

IMPROPER HEADER DATA
TEST
ERR PC
TST PC
SERRPC SREGO
$TMPO

GDCYL
CYL.DS

GDTRK
TRk.DS

DRIVE
CHKDRV

GDSCTR
SEC.DS

CYLNDR
(CYL.DS

BDCYL
CYL.RD

TRACK
TRK.DS

BDTRK
TRK.RD

SECTOR
SEC.DS

BDSCIR
SEC.RD

CZRMVBO RMQS/3/2 EXT'D DR TST

MACRO v04.00

FRROR POINTER TABLE
1182

105 002124

106 002126
107 002130

}% 002132

4~AFR-81 11:57:12 PAGE 8-2

SEQ 0043

CYLNDR, TRACK, AND SECTOR ARE DECIMAL

051230

EM1

054376

DF12

052603
054010

DH1
DT12

”?

:*ERROR

112
113

.
i

DATA COMPARE FAILURE
TEST
ERR PC
TST PC

CYLNDR, TRACK, SECTOR, AND WRDCNT

114
115
116

119 002134
120 002136

121 002140

}sg 02142

i
i
i

051255
052603

EM13
DH12

054406

DF13

054042

:*ERROR

14 == FOLLOWS #13

;Sg

SGDDAT

130 002150
g} 002152

000000
000000

S$BDDAT

054060
054416
:*ERROR

135

DATA COMPARE FAILURE

137

$TMPO

136

138

}2?

139

SREG4

SGDADR

$BDADR

TST PC

SREGO

BDDAT

S$BDDAT

DRIVE

CHKDRV

WRDCN7
SREG4

CYLNDR

CYL.DS

GDADR

SGDADR

TRACK

TRK.DS

BDADR

SECTOR

SEC.DS

$BDADR

EM13
DH12
DT13

DF13

}’;8

16 == FOLLOWS #15

$GDDAT

$BDDAT

SREG4

$GDADR

$BDADR

0
DT13A
DF14

;gg

:*ERROR

158

159

SERRPC

$GDDAT

054406

000000
054060
(54416

ARE DECIMAL

CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL

051255
052603
054042

(000000

ERR PC

GDDAT

;*ERROR

151 002164

SEC.DS

TEST

}zg

152 002i66
153 002170
}gg 002172

SECTOR

DT13A
DF 14

sS4

}22 002162

TRACK

0
0

3;3

142 002154
143 002156
144 002160

CYLNDR

pT13

}%’;

128 002144
129 002146

DRIVE

$TMPO
SERRPC SREGO
CHKDRV C(YL.DS TRK.DS
GDDAT
BDDAT
WRDCNT GDADR
BDADR
$GDDAT $BDDAT $REG4
SGDADR $BDADR

DISK ERROR IN TIMING TEST

TEST

ERR PC DRIVE

RMCST
|

RMDS

RMER1

RMMR?

RMER?

CZRMVBO RMQS5/3/2 EXT'D DR TST

ERROR POINTER TABLE

160

161

162
163
164
165

MACRO v04.00

002174
002176
002200
002202

166
167
168
169
170
171
172
173 002204
174 002206
175 002210

176 002212
177

e
i
:*

191
192
193
19
195
196 002224
197 002226

198 002230
199 002232
200
201

054072
054422

;*ERROR
se

%
e
s
;*
;*

ek wwed wd

RM.REG+12 RM.REG+14 RM_REG+40 RM_REG+4?

CYLNDR
ERR PC TST PC DRIVE
TEST
CHKDRY CYL.DS
$ERRPC SREGO
$TMPO
WRDCNT SECTOR
BDDAT
GDDAT
SREG!T
$8DDAT SREG4
SREG!
CYLINDR,

TRACK
TRK.DS

TRACK, WRDCNT, AND SECTOR ARE DECIMAL

EM13
DH21

D121
DF 21

;*ERROR

22--FOLLOWS #21

$SREG!

$RDDAT

$REGS

$REG]

0
0
DT21A
DF22

054126

05443¢

;*ERROR

DISK ERROR DURING SEEK

$TMPO

on
P

b mad weh

RM,REG

DATA COMPARE FAILURE

051255
053114
054112
054426

SIAN
LS LN 1,V 1,8

(MKDRV

EM20
DH17
D117
DF17

051334

182

SERRP(C

SEQ 0044

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

053017

181

EM17
DH17
DT17
DF17

;*ERROR

179
180

189 002220
190 002222

$TMPO

051302
053017
054072
054422

178

183
184
185
186
187 002214
188 002216

4~-APR-81 11:57:12 PAGE 8-3

TEST

ERR PC
$ERRPC

DRIVE

(HKDRY

CYLNDR
C(YL.DS

RM(CS2

RMDS

RMHR
RMDC
RMER?
RMMR?2
RMER1
RM_REG+36
RM.REG+34
REG+42
RM,
RM_REG+40
RM.REG+14

EM23

051403
053231
05413¢C
054442

DH23

D123
DF 23
*ERROR

RM(CS?

RM.REG RM.REG+10 RM_REG+12

SEEK NOT COMPLETE WITHIN 120 MS

268 002270
269 002272
270

271

272
273

&
»

RMER?Z

RM(S1
RM(S2
RMDS
RM,REG RM.REG+10 RM.REG+12

RMD C

RMHR

»e»

Sewa N,

EREREREREREN
B

TR TR TR T

R
B

ERRORS
ERRORS

23-40 NOT USED
41=46 WILL HAVE AN EM THAT

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)
3)

UNLOADED DRIVE REQUESTED
PERSISTENT UNSAFE
PARITY ERROR OCCURRED
FATAL PARITY ERROR

53
6)
7)

SOF TWARE TIMEOUT ON THIS DRIVE
SOF TWARE TIMEOUT ON ANOTHER DRIVE
ERROR OCCURRED DURING 1/C OPERATION
ERROR OCCURRED DURING NON=-I/0 OPERATION

X
A

25223222222202223202202222ttt
d )

10) UNSAFE OCCURRED
IR ) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED

CRRRRARARRAARAAA A ARR

AR AR A RAAANERAAAAARAAAAREAAARA
AR
AR AT

ITEMGT:

248
249

250
251
252
253
254
255 002254
256 002256
257 002260
258 002262
259
260
261
262
263
264
265
266 002264
267 002266

RMMR?2

CYLNDR
(YL.DS

DH23
D123
DF23

054442

235
236
237
238
239
240
241
262
243
244
245
266
247 002254

DRIVE
(HKDRY

SEQ 0045

EM24

051432
053231
054136

233
234

RM.REG+14 RM,REG+40 RM.REG+42 RM.REG+34 RM.REG+36

226
227
228
229
230
231
232

RMER1

ERR PC
$ERRPC

TR T

222 002244
223 002246
224 002250
225 002252

TEST
$TMPO

217
218
219
220
221

Sev.n.w,

ERROR POINTER TABLE

4~APR-81 11:57:12 PAGE 8-4

MACRO v04.00

3¢

CZRMVBO RMOS5/3/2 EXT'D DR TST

;*ERROR
b
b
W

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

$TMPO

SERRPC

SREGC

DRIVE

(HKDRV

EM&T
DH&1
DT41
DF41

051472
053363
054166
054452

;*ERROR
* %

- x

RH/RM ERROR

TEST

$TMPO

(MESSAGE)

ERR PC

SERRPC

TST PC

SREGO

EMé!
DH42
DT42
DF42

051472

053421

054176
054456
;*ERROR

RH/RM ERRQR

(MESSAGE)

DRIVE

CHKDRV

RM(CS!

RM.REG

RM(S2

RMDS

RM.REG+10 RM.REG+12

rZRMVBO RMOS/3/2 EXT'D DR TST

ERROR POINTER TABLE

274
275
276

277

282 002302

283

.
i

TEST
$TMPO

>
H
i
R

RMCS1
RM.REG
RMER1
RM.REG+14

$TMPO

S$ERRPC

SREGO

DRIVE

(HKDRY

CYLNDR

TRACK

(YL.DS

TRK.DS

SECTOR

SEC.DS

RMCS?2
RMDS
RMHR
RMD(
RMDA
RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM_REG+06
RMMR?2
RMER?2
RM.REG+42
RM.REG+40

EM4
DH12
DT44
DF&44

RH/RM ERROR (MESSAGE)

$TMPO

RMER1

CYLNDR,TRACK, AND SECTOR ARE DECIMAL

TEST

TST PC

ERR PC
SERRPC

RMCS1
RM.REG

RM.REG+*14

SREGO

DRIVE

CHKDRY

CYLNDR
(CYL.DS

TRACK

TRK.DS

SECTOR
SEC.DS

RMDA
RMDC
RMHR
RMDS
RMCS?2
RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM_REG+06

RMMR?2

RM._REG+40

RMER?

RM.REG+42

RMWC

RM.REG+2

RMBA

RMDB

RM.REG+4& RM.REG+22

EM4T
DH12
DT45

051472
052603
054300
054506

DF4S

;*ERROR

FATAL WRITE CHECK ERROR (MESSAGE)

S
i
i
o

RM(CS1
RM.REG
RMER1
RM.REG+14

2%
il

051506
052603
054300
054506

RM(S2
RMDS
RM.REG+10 RM.REG+12

CYLNDR,TRACK, AND SECTOR ARE DECIMAL

051472
052603
054240
054472

ot
o

327 002324
328 002326
329 002330
330 002332

RMER?2

RM(S1T
RM,REG

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

RMMR?

DRIVE
(HKDRV

RM.REG+14 RM_REG+40 RM.REG+42

;*ERROR

002314
002316
002320
002322

TST PC
$REGO

i®
*

295 002304
296 002306
297 002310
298 002312

ERR PC
SERRPC

SEQG 0046

EM41
DH42
D143
DF43

11:57:12 PAGE 8-5

RMER1

J*ERROR

285
286
287
288
289
290
291
292
293

&=-APR-81

051472
053421
054214
054462

284

) — ) —
USLSLSLNLSLSN] v ol
NS W —=O
VB
WN -2 O VOO

;

I
t

278
279 002274
280 002276
281 002300

NN
NN N NN NWWWWWWINWNW

MACRO v04.00

TEST
$TMPO

ERR PC
SERRPC

TST PC
SREGO

DRIVE
CHKDRV

CYLNDR
(CYL.DS

DF45S

SECTOR
SEC.DS

RMDA
RMCC
RMHR
RMDS
RMCS?2
RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06
RMDB
RMBA
RMWC
RMER?2
RMMR?2
RM.REG+4& RM.REG+2?2
RM_REG+2
RM.REG+42
RM.REG+40

CYLNDR,TRACK, AND SECTOR ARE DECIMAL
EM46
DH12
DT45

TRACK
TRK.DS

CZRMVBO RMOS/3/2 EXT'D DR TST
MA(RO v04.00
TEST PARAMETER PQINTERS AND TABLES
}

& 002334

5
,
6 002336
7 002340

8 002342
9 002344

10 002346
11 002350

LSBTTL

22
23 002374
26 002376
002400
002402
002404
002406
002410
002412
002414
002416
002420
002422
002424
002426
002430
002432
002434
002436
002440

000000

RPT :

WORD

“FOLLOWING PARAME TERS ARE TO BEf USED
*REPEAT COUNTS FOR ALL TESTS

000000
000000

LC:
IC:

WORD
LWORD

YLAST CYLINDER
* INCREMENT CYL INDER

0
O

* INCREMENT TRACK
“FIRST SECTOR

000000

30 002444
31 002446
32 002450
33 002452
3%, 002454
35 002456
36 002460
37 002462
38 002464
39 002466
40 002470
41 002472

42 002474

FC:

000000
000000

FT:
LT:

IT:

FS:

000000

LS:
PAT:

WORD

WORD
LWORD

LWORD
WORD
LWORD
.WORD

.WORD

0
0

:TABLE OF PARAMETER POINTERS
PRMPT:
.WORD
PRMO
JWORD
PRM1
.WORD
PRM?2
.WORD
PRM3

003236
003256
003276

003316
003336
003354
003374
003410
003420
003430
003440
003452
003462
003516
003526

032767
001466
001466
001466
000004
000004
000004
000022
000022
000022
000037
000037

177777

.WORD

“FIRST TRACK
“LAST TRACK

“WORD
.WORD
.WORD

PRM&
PRMS
PRM6

LWORD

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

“FIRST CYLINDER

0,0,0

003132
003150
003176
003216

NC2:

;THIS WORD TELLS WHICH OF THE

O
0

NCT:

000000

LWORD

000000

SZ! 002442 000000
29

:COMMON STORAGE FOR TEST PARAME TERS

000000

5(1: 002372

TEST PARAMETER POINTERS AND TABLES

LWORD

16 002362

19 002370

SEOQ 0047

PRM:

000000
000000

4&=-APR=-81 11:57:12 PAGE 9

000009

12 002352
12 002354

14 002356
15 002360

PRM?
PRM10
PRM11
PRM12
PRM13
PRM14
PRMI1S
PRM16
PRM17
PRM20
PRM21
PRM22

:TABLE OF PARAMETER UPPER LIMITS

PRMLMT: .WORD
.WORD
.WORD
.WORD
LWORD
LWORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD

"WORD

32767
B822.
822.
822.
4
4
4
18.
18.
18.
31,
31

177777

SLAST SECTOR
“PATTERN CODE

SFILLER WORDS FOR COMMON TASLE USED BY THE
“YOPNTST' ROUTINE.
:NEW CYLINDER ADDRESS

“NEW CYLINDER ADDRESS

: TERMINATOR
SR
e
T
T
e 3 e
36 .00
L3re.
ST
35 % fow
3 5 6
3% 4
1S

SUPAT'

£ 4 RMVBO RMO5/3/2 EXT'D DR

T E ST

TSI

MACRO v04.00

PARAMETER POINTERS AND TABLES
43

45 002476
46 002500

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

47 002502

48 002504
49 002506
50 002510
51 002512
52 002514
53 002516
54 002520
55 002522
56 002524
57
58
59

DFLT:

MSG.F(
MSG.LC
MSG.IC
MSG.FT
MSG.LT
MSG.IT
MES.FT
MES.LT
MES.IT
MSG.FS
MSG.LS

6677.1

2227, 200..0 822..,0,0,0

:;RECAL/RANDOM SEEK (T0)

"WORD
-WORD

2237,
2223

*ROTATIONAL SPEED TIMING TEST (T12)

-WORD

7.1

“AVERAGE SEEK TIMING TEST (T14)

7,5000.,0,255.

:SEEK TIME ADJUSTMENT TEST (722)

6 6é

RECAL/RANDOH SEEK _(T0)

PRMO :

5857

WORD
WORD

; SEEK/SEEK (T1)

0
822.
0
O
O

.WORD
.WORD
WORD

6677
100.
O

.WORD
.WORD
.WORD

0
0
0

.WORD

,0.0

“ONE CYLINDER SEEK TIMING TEST (T13)

MAXIMUM SEEK TIMING TEST (T15)
7 1.0.822.
*SECTOR ADDRESSING TEST (116)
223.1.0,0.0
*TRACK ADDRESSING TEST (T17)
2008%,1,0
17777,1,0.821..64.,0.4,1.0,18.,1,1,0,177777 :DATA TEST (120)
CEXERCISERTM (T21)
7.1000..0.821.

;PARAMETER TABLES

PRM1:

256..0.0.0,0.0,0,0 ;SEEK/SEEK (T1)

-WORD 2237 1 o ézé..1 0,0,0* :INCREMENT SEEK (12)
-WORD
10,0,512.,1,0,0,0 :STEPPING SEEK (T3)
é2..1.0.0, 6 *OSCILLATING SEEK (T4)
1.6
-WORD
-WORD
223 1.0.22.°1.0.0.0
:CONVERGING/DIVERGING SEEK (T5)
:SERVO ADDRESSING LOGIC NOISE (T6)
-WORD 2237 ‘822..1.6.0.0
:RANDOM SEEK TEST (17)
5060 822.,0.4,0,18.
-WORD
-WORD 237 1.0 aéz..
7.0.0 ° :SERVO SETTLE DOWN TEST (T10)
s .o.o.o SALL SEEKS TEST (T11)
i6

.WORD

011610

89 003144
g? 003146

94 003152
95 003154
96 003156
97 003160
98 003162
99 003164

SEQ 0045

"WORD

WORD
JWORD
.WORD
WORD
"WORD

86 003136
87 003140
88 003142

92
93 003150

.WORD

-WORD

002770
003004
003014
003024

83
84 003132
85 003134

;STATUS/ERROR INDICATOR MESSAGES POINTER TABLE
;DEFAULT VALUES OF TEST PARAMETERS

61 002526
62 002544
63 002572
64 002612
65 002632
66 002652
67 002672
68 002712
69 002732
70 002750

75 003034
76 003046
77 003056
78 003112
79 003122
80
81
82

11:57:12 PAGE 9-1

;TABLE OF PARAMETER MESSAGE POINTERS
PRMMSG: .WORD
MSG.R

71
72
73
74

4=-APR-81

256.

122 003232

123 003234
124
125
126 003236
127 003240

.WORD
.WORD
WORD
WORD
LWORD
.WORD

128 003242

OO0O0O
.

~N S~

n—
wrno

~n
n

W
N~

g2
2
3

PRM3:

1
1
1
1

O0O0O—-MO—=N~

; STEPPING SEEK (

.WORD
.WORD
. WORD
.WORD
«WORD
.WORD
.WORD
.WORD

1
1
1

OCOO—=NO—=N—~

; INCREMENT SEEK

PRM2:

W
N
n

002237
000001
000000
001466

1
1
1
1

3852 ole]
wno

d e ed O

003172
3174

. WORD
« WORD
.WCRD
.WORD

000000
000000
000000
000000

1
1
1

b e ed o e

100 003166
101 003170

4=-APR-81 11:57:12 PAGE 9-¢

{

1
|

(2 RMVBO RMOS5/3/2 EXT'D DR TST
PARAMETER POINTERS AND TABLES

TE ST

(=} NVONOWVHWN—=OV00~N

|
|

MACRO V04.00

{
|

O
822.
1
0
O
O

; CONVERGING/DIVERGING SEEK (T5)

PRMS:

141 003270
142 003272
143 003274

144
145
146 003276

147 003300
148 003302
149 003304
150 003306
151 003310
152 003312
153 003314
154

155

156 003316

WORD

2237

.WORD

822.

WORD
LWORD

0
O

.WORD
.WORD

.WORD

;SERVO ADDRESSING %OGIC NOISE GENERATOR (T6)

PRM6 :

.WORD
.WORD
WORD

.WORD
.WORD
.WORD
.WORD
.WORD

; RANDOM SEEK

PRM7:

.WORD

2 237
1
O
822.
1
0
0
0

TEST (T17)
667

SEQ 0049

MACRO V04.00

D sk sl il v

WW
nono
Hro

83
W

e s

D i s

b i s

NANIZDEIFERARZS O 0o

b
o
Vi

TEST PARAMETER POINTERS AND TABLES

L 4

4=APR=-81 11:57:12 PAGE 9=3
. WORD
.WORD

011610
000000
001466
000000
000004
000000
000022
000237
000001
000000
001466
000144

5000.

. WORD

.WORD
.WORD

:SERVO SETTLE

PRM10:

.WORD

003352

;ALL SEEKS TEST

PRM11:

S 003354
6 003356

NNN

sl il voull s

7 003360

180 003366
181 003370
182 003372
183

IMING TEST (T12)

n
N~

184

PRM12:

185 003374
186 003376
187 003400 188 003402

189 003404
190 003406

191
192

193
194
195
196

:ONE CYLINDER SEEK TIMING TEST (T13)

PRM13:

003410
003412
003414
003416

.WORD

~WORD

-WORD

037

';‘

[ CZRMVBO RM0S/3/2 EXT'D DR TST

822.

;AVERAGE SEEK TI?ING TEST (T14)
PRM14:
1

0
220.

000000
000334

000007

;MAXIMUM SEEK TI?ING TEST (T15)

PRM15:

0
822.

001466

000223

;SECTOR ADDRESS]ggBTEST (116)

PRM16:

.WORD
-WORD
, .WORD

‘

SEQ 0050

038

4=-APR-81 11:57:12 PAGE 9-4

MACRO V04.00
MvBO RMOS5/3/2 EXT'D DR TST
T PARAMETER POINTERS AND TABLES

. WORD
.WORD

0
0

: TRACK ADDRESSING TEST (T17)
PRM17:
.WORD
2003
1
.WORD
.WORD

017777
000001
000000
001465
000100

232 003502
233 003504
234 003506
235 003510
236 003512
237 003514
238
239
240 003516
241 003520
242 003522
243 003524
244
245
246 003526

247 003530
248 003532
249 003534

;DATA TEST (T20)

PRM20:

00000

177777

000007
001750
000000
001465
000007
011610
000000
000377

PTRN1S5:

.WORD
LWORD
.WORD

.WORD

821.

.WORD

177777

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

JEXERCISER (T21)
1:

17777
1

.WORD

.WORD
.WORD
.WORD

64
O
4
1
O
18.
1
1
O

1000.
O
821,

:SEEK TIME ADJUSTMENT TEST (T722)

PRM22:

.MWORD

.WORD
.WORD
.WORD

5000.
O

255.

SEQ 0051

SEQ 005¢

DATA PATTERN POINTERS AND TABLES

003576
003636
003676
003736
003776
004036
004076
004136
004176
004236
004276
004336
004376
004436
004476
004536

PAT.PT:

.WORD
.WORD

155555
133333
155555
133333
155555
133333
155555
133333
155555
133333
155555
133333
155555
133333
155555
133333

PATO:

36 003664
37 003666
38 003670
39 003672
2? 003674

000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

42 003676
43 003700
44 003702
45 003704

177776
177774
177770
177760

;DATA PATTER
;DATA PATTE
;DATA PATT E
JDATA PATT E
JDATA PATT E
;DATA PATT E
;DATA PATTE
;DATA PATT
;DATA PATT E
;DATA PATT E
;DATA PATT E

PATO
PAT1
PAT

PAT
PAT4
PATS

PATé
PAT7
PAT8
PAT9

;DATA PATTE

;DATA PATTE
;DATA PATTERN

W
WWIN WY
NWWWBIWW
W WD
BT I W T WD

;DATA PATTERN 14
;DATA PATTERN 15

PAT1:

3i 003652
32 003654
33 003656
34 003660
35 003662

LSBTTL

2
3 003536
6 003540
003542
003544
003546
003550
003552
003554
003556
003560

4-APR-81 11:57:12 PAGE 10

-t

039

MACRO V04.00
CZRMVBO RMO5/3/2 EXT'D DR TST
DATA PATTERN POINTERS AND TABLES

;PATTERN O (WORST CASE)

sPATTERN 1

001777
003777
007777
017777
037777
077777
177777

PATZ:

177776
177774
177770

177760

;PATTERN 2

CZRMVBO RMOS/3/2 EXT'D DR TST

DATA PATTERN POINTERS AND TABLES

46 003706

MACRO v04.00

177740

.WORD

SO 003716
51 003720
52 003722

177000
176000
174000
170000
160000
140000
100000
000000

.WORD
.WORD
.WORD

59 003736
60 003740
61 003742
62 003744
63 003746
64 003750

000000
000000
000000
177777
177777
177777
000000

4«7 003710
48 003712
49 003714

53 0037264
54 003726
55 003730
56 003732
gg 003734

65 003752
66 003754
67 003756
68 003760
69 003762
70 003764
71 003766
72 003770
73 003772
;lg 003776

177700
177600
177400

.WORD
.WORD
.WORD
.WORD
.WORD

170000
160000
142000
100000
000000

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

000000
000000
000000
177777
177777
177777
000000

177777
177777
000000
177777

WORD
.WORD
.WORD
MWORD

177777
177777
000000
177777

177777

.WORD

000000

. WORD

000000

.WORD

000000

177777

76 003776
77 004000

133331
1333317

85 004020

133331

78 004002
79 004004
80 004006
81 004010
82 004012
83 004014
84 004016

177740

.WORD
.WORD
.WORD

PAT3:

177000
176000
174000

177777

000000

.WORD
LWORD

133331
133331

177777

133331
133331
133331
133331
133331
133331
133331

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

133331
133331
133331
133331
133331
133331
133331

86 004022
87 004024
88 004026
89 00403C
90 004032
3} 004034

133331
133331
133331
133331
133331
133331

.WORD
.WORD
.WORD
LWORD
.WORD
LWORD

133331
133331
133331
133331
133331
133331

93 004036
9% 004040
95 004042
96 006044
G7 004046
98 004050
99 004052
100 004054

052525
052525
052525
125252
125252
125252
052525
052525

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

052525
052525
052525
125252
125252
125252
052525
052525

101 004056
102 004060

125252
125252

.WORD

PATS:

.WORD
.WORD

JPATTERN 3

000000

.WORD

.WORD
PAT4:

4-APR-81 11:57:12 PAGE 10-1

:PATTERN 4

13%31

125252
125252

;PATTERN 5

}

DATA PATTERN POINTERS AND TABLES

MACRO V04.00

4=-APR-81

11:57:12 PAGE 10-2

SEQ 0054

NVONonoNNonNNVVOONITVOONeo

CZRMVBO RMOS5/3/2 EXT'D DR TST

—3833338338$33g—3—832g83ge3(e8e83ee3e3e8e3ge5e3ee8eT8e83T333

N(MNVM

PAT6

JPATTERN 6

PAT?7:

sPATTERN 7

PATS

JPATTERN B (WORST CASE)

DATA PATIERN POINTERS ~ND TABLES

MACRO v04.00

000001

JPATTERN 9

177776
177775

JPATTERN 10

nNo

5 004246

PAT10:

172666
155555
172666
155555
172666
155555

PAT11:

077777

e wacd

(o AV PJVILNE
e

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777

b e

PAT12:

167777
173777

WORD

5855 3281558550558858 3388885588548

e JE

[

FRIRR S93838% SRRSO SRR TR RARIBIIIFININIIFEE
33333 S2% ; 2 Bes R R R R s
sEaee enees
FRR8 NN 38 ERRIARY $E% g ® ¥R SRREIFRSERE

—y

4-APR-81 11:57:12 PAGE 10-3

PATO:

CZRMVBO RMOS/3/2 EXT'D Dn TST

.WORD

177773

177767

177757
177737
177677
177377

177377
176777
1725777
173777
167777
157777

sPATTERN 11

;PATTERN 12

SEQ 005°%

227 004434

228

229 004436
230 004440
231 004442
232 004444
233 004446
234 004450
235 004452
236 004454
237 004456
238 004460
239 004462

153333

06666 7
153333
066667
15333;
06666
15333;
06666
153333
066667

PAT13:

JPATTERN 13

;PATTERN 14

153333

246 004476
247 004500
248 004502
249 004504
250 004506
251 004510
252 004512
253 004514
254 004516
255 004520
256 004522
257 004524
258 004526
259 004530
260 004532
261 004534
262
263 004536
264 004540
265 004542
266 004544
267 004546
268 004550
269 004552
270 004554
271 004556
272 004560
273 004562

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

PAT14:

177777

PAT15:

245

~ NNNNN

177776

066667
15333;
06666
153333
066667

244 004474

177775

004464
004466
004470
004472

240
241
242
243

777

\l:‘lfi\l\l\lom
NN
WNINNTMN

i
il

il el

sl o

175777
176777
177377
1772577
177677
177737
177757
177767
177773

il e

217 004410
218 004412
219 004414
220 004416
221 004420
222 004422
223 004424
224 004426
225 004430
226 004432

4=APR=-81 11:57:12 PAGE 10=4
NNNNNNNNN

MACRO v04.00
CZRMVBO RMO5/3/2 EXT'D DR TST
DATA PATTERN PQINTERS AND TABLES

1777277
177777
177777
177777
177777
177777
177777

000000

;PATTERN 15

SEQ 0056

CZRMVBO RMOS/3/2 EXT'D DR TST
MACRO v04.00
DATA PATTERN POINTERS AND TABLES

276 004564
275 004566
276 004570
277 004572
278 004574

000000
000000
000000
000000
000000

4=APR=81 11:57:12 PAGE 10-5

.WORD
.WORD

000000
000000

.WORD

000000

. WORD
.WORD

08 000
000000

SEQ 0057

CZRMVBO RMO5/3/2 EXT'D DR TST

DATA PATTERN POINTERS AND

TABLES

MACRO v04.00

4&=APR=-81

sTHIS ROUTINE

3 004576
& 0064600
5 006602
6 004606

011600
005740
022626
106401

004610 000417

004650
7 004650

BADTMO: MOV
157
CMP
TYPE

004612

::658:

648

.ASCIZ

HANDLES UNEXPECTED

(SP) ,RO
-(RO}
(SP)+,(SP)+
658

64$

8 004652 104402

000240

TYPOC

RO,=(SP)

NOP

}5 004656 000404

B8R

START1

.SBTTL

gwwowm

15 004660

012737

177777

18 004670
19 004674

005037
005037

001324
001322

52 0064702

012737

177777

25 004712

005037

001324

28 004724

000240

5? 004700 000411

52 004710 000402
gg 004716

29 004726

012737

005227

30 004732 001375

g} 004734
33

177777

001324

001322

‘

JPUT "HALT(O0)' INSTRUCTION HERE IF YOU WISH
“T0 STOP ON UNEXPECTED TIMEQUT.

“BRANCH TO START1

STRT1A

#-1,BUSADR

:GET BUSADR FLAG

START1: CLR
STRT1A: (LR

BUSADR
CNTRLC

;CLR BUSADR FLAG
‘NO CONTROL ‘C*

START4: MOV

#-1,BUSADR

STRT2A

:SET BUSADR FLAG

START2: CLR

BUSADR

:CLR BUSADR FLAG

STTY LOOP, WAIT FOR INCREMENT

B8R

STRT2A: MOV

NOP

INC

BNE

RESET

LSBTTL

START

#-1,CNTRLC

*SET CONTROL "'C'* FLAG

*0F WORD

*CLEAR THE WORLD

INITIALIZE THE COMMON TAGS

;;CLEAR THE COMMON TAGS (SCMTAG) AREA

004736
004742
004744
004750
004752

012706
005026
022706
001374
012706

001114

004756

012737

025356

000020

004772

012737

021620

000030

005036
005044
005050
005054

012737
005037
005037
112737
012737
012737

123456
001220
001222
000001
005062
005070

026526

001154
001100

004764 012737 000340 000022

005000 012737 000340 000032
005006 012737 026052 000034
005014 012737 000340 000036
005022 013737 021514 021506
005030 012737 176543 026524

005062
005070

JSETUP FOR TYPING OUT PC

B8R

000005

““GET OVER THE ASCIZ

START3: MOV

START:

000000

;SAVE PC WHERE THE TIME OUT OCCURED
“ADJUST PC =2
“RESTORE STACK POINTER
“iTYPE ASCIZ STRING

START OF PROGRAM

B8R

001324

TIMEOUTS

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

MOV

9 004654
10

010046

B8R

6 .5
11:57:12 PAGE 11

001131
001122
001124

MOV
CLR
cmP
BNE
MOV

#SCMTAG,R6
(R6) +
#SWR,R6
=6
#STACK, SP

MOV

#$SCOPE .a#JOTVEC ::10T VECTOR FOR SCOPE ROUTINE

;:INITIALIZE A FEW VECTORS
MOV
MOV

::FIRST LOCATION TO BE CLEARED
“>CLEAR MEMORY LOCATION
* *DONE?
$:LOOP BACK IF NO
SISETUP THE STACK POINTER

#340,a8I0TVEC+2 ;:LEVEL 7

#SERROR ,@#EMTVEC : ;EMT VECTOR FOR ERROR ROUTINE

MOV
MOV
MOV
MOV
MOV

#340,MEMTVEC+2 ; -LEVEL 7
#STRAP,3#TRAPVEC :;TRAP VECTOR FOR TRAP CALLS
LEVEL 7
#340,a#TRAPVEC+2;:
::SETUP END-OF -PROGRAM COUNTER
ssnogr $EOPCT
2176545, SHINUM ::PRIME THE RANDOM NUMBER GENERATOR

MOV
MOV

#..$LPADR
#. SLPERR

MOV
CLR
(LR
MOVE

#123456.SLONUM
$TIMES
$ESCAPE
#1,SERMAX

- :BOTH HIGH AND LOW WORDS
“YINITIALIZE NUMBER OF ITERATIONS
*:CLEAR THE ESCAPE ON ERROR ADDRESS
*"ALLOW ONE ERROR PER TEST
‘“INITIALIZE THE LOOP ADDRESS FOR SCOPE
“YSETUP THE ERROR LOOP ADDRESS

CZRMVBO RMOS/3/2 EXT'D DR TST
INITIALIZE

THE (OMMON TAGS

005076
005102

005110

005116
005124
005132

013

005136

022 77

177777

012
012

7
7

005134
005136
005142
005144
005152
005160

005222
005226
005230
005236
005240
005244

177570
127570

012737

005227
001034
022737
001430
104401
000425

05344
005346
005350
005352
005360

40 005360

41 005364

42 005366

43 005372
44 005374
45 0056402

46
&7
48
49

005737
001012

123727
001406

023727
001005

000004
001154
001156
1764022

SEQ 0059

MOV
MOV
MOV
MOV
CMP
BNE
BR

AWERRVEC,=(SP) ;;SAVE ERROR VECTOR
#64$ ,aNERRVEC
::SET UP ERROR VECTOR
#DSWR , SWR
““SETUP FOR A HARDWARE SWICH REGISTER
#DDISP,DISPLAY
::AND A HARDWARE DISPLAY REGISTER
#-1,3SWR
*:TRY TO REFERENCE HARDWARE SWR
€68
::BRANCH IF NO TIMEOUT TRAP OC{URRED
“AND THE MARDWARE SWR IS NOT:= =1
65%
" BRANCH IF NO TIMEOUT

648 :

000176
000174

001154 65%:
001156

MOV
MOV

#SWREG, SWR
;:POINT TO SOF TWARE SWR
#D1SPREG,DISPLAY

001242
000200

001255

001256

001154 o

CLR
BEQ
MOV

;:CLEAR PASS COUNT
$PASS
WAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT
678
“IYES,USE NON-APT SWITCH
#$SWREG, SWR
“iNO,USE APT SWITCH REGISTER

004576
000300

000004
000006

177777

021560

66%:

(SP)+,a#ERRVEC

#BADTMO,ERRVEC
#PR6,ERRVEC+2

000001

012700
005020
022700
001374
013737
013737

001174

000001
000176

001530
001532

;?:

1$:

001224

:SETUP FOR UNEXPECTED TIMEOUT
:LEVEL 6

68%
#SENDAD ,a#42

*:BRANCH IF NO
::ACT=11?

TYPE

.69%

S:TYPE ASCIZ STRING

BEQ

.SBTTL

001150

;;RESTORE ERROR VECTOR

BNE
CMP

688

B8R

LASCIZ

001164
001166

*:BRANCH IF YES

688

“:GET OVER THE ASCIZ

<CRLF>QCZRMVBO - RM0S5/3/2 EXTENDED DRIVE TEST@<CRLF>

GET VALUE FOR SOF TWARE SWITCH REGISTER
ST
G2
::ARE WE RUNNING UNDER XXDP/ACT?

BNE
CMPB
BEQ
CMP
BNE

70$
SENV,#1
708
SWR, #SWREG
718

*:BRANCH IF YES
“:ARE WE RUNNING UNDER APT?
*:BRANCH IF YES
*:SOFTWARE SWITCH REG SELECTED?
*:BRANCH IF NO

MOVB

#1,SAUTOB

::SET AUTO-MODE INDICATOR

MOV
LR
(MP
BNE
MOV
MOV

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

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

g;sm

112737

“YSET UP FOR TRAP RE TURN

.SBTTL
TYPE PROGRAM NAME
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
::FIRST TIME?

; 329“

001154

MOV

MOV
MOV

005246

001254

#65$, (SP)

SSETUP "'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

000042

:?\;

BITR

104406

000403

11:57:12 PAGE 11-1

::S1ZE FOR A MARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
“TEQUAL TO A '*=1'', SETUP FOR A SOF TWARE SWITCH REGISTER.

005320
005320
005324
005326
005334
005336

4=APR-81

005144

000004

005164
005170
005176
€05200
005206

34
35 005206
%9 005214

000004

6
7

012

MACRO V04.00

*:GET SOFT-SWR SETTINGS

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:
JPAPER

TAPE

(MANUAL),

ACT11,

XXDP (HAIN OR DUMP

MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER
50 005410
51 005414

52 005622

53 005424
54 005432
55 005440
56 005442
57 005446
58 005452

005037
122737

001160
013737
122737

005506
60 005506
61 005510
62 005514
63 005516
64 005517

005562

005600

005664
77 005664

005670

005764

81 005764

82 05770
83 005774
84 005776

005227
001114
104401

000410
005046

005542
:75%:

?l.s
001470

104401

005602

000

000431
104401

0004 35

778
:

5%$:

005672

;:78%:

004737
005227
001002
004737

024060
177777

105037
105037
105037
1105037
105037
105037
105037
105037

001472
001473
001474
001475
001476
001477
001500
001501
027364
000001
035450

004737
012737
004737

046624
SRTINT:

001120

XXDP
#16,a4461

a#60, XXDP

11-2
JCLEAR

"XXDP'

LOAD DEVICE STORAGE

;LOADED FROM AN RMO5/3/2 ?

:BR_IF NOT
JGET DEVICE INDICATOR MD NUMBE
R

?
XES” A VALID NUMBER

XXDP

JNO, DEFAULT TO DRIVE 0

TYPE

:BR IF NEITHER

LASCIZ

<CRLF>/NOT

(LR
MOVB

-(SP)
XXDP, (SP)

.BYTE
BYTE

;ONLY 1 CHARACTER
:gngESS LEADING ZEROS

;GET NUMBER OF DRIVES

INC
BNE

#-1

;FIRST

748

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

TYPE

3%:

11:57:12 PAGE

#7 ,XXDP

TYPOS

1727777

113716
104403
001

MOV CMPB
BHIS
CLRB
TST
BEQ
BR

001231

66 005524

005562
005564
005570
005572
005573
005574

2%:

001470

65 005520

71
72
73
74
75
76

000007

BNE

001470
001470

005462

005460

68 005526
69 005532
70 005534
005540

000040

(LR
(MPB

000041

0014790
000042

59 005454

001470
000016

4~APR=-81

Fot
[ A

CZRMYBO RM0S/3/2 EXT'D DR TST

YTy,
D

72%

.SCRLF

:CHAIN MUDE OR ACT11 AUTO ACCEPT ?
,,TVPE ASCIZ STRING

;GET OVER THE ASCIZ

TESTING DRIVE
/

;CLEAR WORD ON STACK
;GET DRIVE ADDRESS
;TYPE

THE ADDRESS

TIME

THRU HERE

TYPE

“2ss

JASCIZ

<CRLF>/TO TEST DRIVE /

CLR
MovB
TYPQOS

-(SP)

TYPE

.BYTE

LASCI1Z

/. HALT PROGRAM, REMOVE RRPP PACK AND REPLACE

TYPE

XXDP, (SP)
1

76$

.78%

;NO

:CLEAR WORD ON STACK
;GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS
JONLY 1 CHARACTER
;SUPRESS LEADING ZEROS

;:TYPE ASCIZ STRING
;;GET OVER THE ASCIZ
;;TYPE ASCIZ STRING
::GET OVER THE ASCIZ

JSR
INC
BNE
JSR

PC,STKINT
#-1

SRTINT

:BR_IF NOT

CLRB
CLRB
CLRB
CLRB
CLRB
CLRB
CLRB
CLRB
JSR
MOV
JSR

ERRCN

;CLEAR DRV O ERROR COUNT
sCLEAR DRV 1 ERROR CCUNT
;CLEAR DRV 2 ERROR COUNT
;CLEAR DRV 3 ERROR COUNT
sCLEAR DRV 4 ERROR COUNT
;CLEAR DRV 5 ERROR COUNT
;CLEAR DRV 6 ERROR COUNT
;CLEAR DRV 7 ERROR COUNT
sCHECK FOR A LINE PRINTER
*SET ITERATION COUNT TO 1
;GO CHECK FOR CONTROL SUITCHES

.ASCIZ

IT/<CRLF>

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<(RLF>

PC.GETADR

ERRCN+1
ERRCN+2
ERRCN+3
ERRCN+4
ERRCN+5
ERRCN+6
ERRCN+7

PC,.LP.AVL
#1,81CNT
PC,GETSWR

sTURN ON THE TTY KEYBOARD INTERRUPT

;SEE IF FIRST START

;GET OR CHECK THE RH/RM ADDRESS

004737
004737
012737
004737
005037
005227
001403
005737
001105
005004
104401
104401

010446

027426
040660

177777

027334

040610

MOV

JSR
CLR
INC
BEQ

177776
177777

001322
1%:

047313
001237

2%:

MOV

o0
-b

.BYTE

050343
040532

NERREARIEN

TYPE

TYPOS

TYPE
7STB
BMI

BNE

TSTB

040542

BEQ
BPL

N
80

047377

LSLS]

NNNNNNNNS—;—-—-J-.-—A..._..J_;
»oonwowmwm-aosg

o
~
o
il v
-l

TST
BNE
(LR
TYPE

ool S
il il ok o

N WW

sl
il

145 006316

146

#=1
1%

CNTRLC
SRTDRV
R&4

LUNSTAT
"$CRLF

R4, =(SP)

2
0
,BLNKS4

DRVSTA(R4)
5%
6%
DRVTYP(R4)

TYPE

sSET THE SAVE REGISTERS FLAG
;GO CLEAR MASSBUS CONTROLLER
JENSURE THE PRIORITY = 0
sFIRST TIME THRU HERE ?
;sBR IF NO

;CONTROL 'C' SWITCH SET ?
;CONTINUE IF YES
;DRIVE TABLE POINTER
;TYPE

"UNIT STATUS'

;CR=LF
;sSAVE R4 FOR TYPECUT
2 TYPE DRIVE NUMBER

;:G0 TYPE-~OCTAL ASCII

s TYPE 2 DIGIT(S)

; ;SUPPRESS LEADING ZEROS
JTYPE 4 SPACES
s CHECK DRIVE'S STATUS
;BR IF UNSAFE
;BR IF ONL INE
;SEE IF OFFLINE OR NONEXISTENT
;BK IF NONEXISTENT
;BR IF OF FLINE
;:DRIVE NOT AN RMO5/3/2
s CHECK NEXT DRIVE

NOTPRS
11%

:DRIVE NOT PRESENT
s CHECK NEXT DRIVE

047331

4%:

TYPE
BR

JUNTOFF

:DRIVE OF FL INE
;PRINT DRIVE TYPE

047367

5%:

TYPE
BR

NOT SAF

;DRIVE UNSAFE
;PRINT DRIVE TYPE

001470

6%:

IST
BEQ
CMPB
BNE

XXDP

;LOADED FROM THIS DEVICE ?

BR
TYPE

118
LUNTON

040542
047445
000004

000000

PC,CNTCLR

TYPE
BR

TYPE

7%:

047342
050345

104401

#=1,SAVEFG

JINITIALIZE THE CLOCK°
;CHECK THE DRIVE STATUS

3%:

047420

144 006314

PC,ST.CLK
PC.RMINIT

SEQ 0061

047352

001470

012737

J
3
11:57:12 PAGE 11-3

48
.NOTRM
11%

il ol il i sl sl sl il il sl ol

4-APR-81

SETVEC: JSR
JSR

H SN

RRRRREES 38 8&RESEE

WWNONIN)
— SOOI

96 006070
97 006076
98 006102
006106

FIREC28E

il soill
wnd s

sl aud

gg 006060

ool ool el

MACRO v04.00
CZRMVBO RMOS/3/2 EXT'D DR TST
GET VALUE FOR SOF TWARE SWITCH REGISTER

8%:

006316

047440
000005

006316

047452

006316

TYPE
CLR
MOVB
MOV
(MPB

BEQ

MOV

(MPE
BEQ
MOV
9%:

10%:

TYPE

.WORD

7$
XXDP R4
7%

.LODEV

,BLNKS2

:BR IF NO

“LOADED FROM THIS DRIVE ?
:BR IF NO
;DRIVE IS LOAD DEVICE

;DRIVE ONL INE

;TYPE 2 SPACES

#$RM03,10%
#4,RO
9%
#$RM02,10%
#5,R0
:

;GET DRIVE TYPE
sASSUME ADDRESS OF RMO3 MESSAGE
;1S DEVICE AN RMO3 ?
sTYPE IV IF YES
;ADDRESS OF RMO2 MESSAGE
;1S DEVICE AN RMO2 ?

#$RMOS5,108

*ADDRESS OF RMOS MESSAGE

;TYPE THE DRIVE TYPE MESSAGE
sMESSAGE ADDRESS HERE

,RO
DRVTYP(R4)

;BR IF YES

CZRMVBO RM0OS5/3/2 EXT'D DR TST

MACRO Vv04.00

! GET VALUF FOR SOF TWARE SWITCH REGISTER
f

!
-

147 006320 005204

148 006322 020427 000010

149 006326

150 006330

001300
106401

001231

118:
;

&4=-APR=-81 11:57:12 PAGE 11=4

INC

; INCREMENT DRIVE NUMBER/TABLE POINTER

BNE

‘BR IF NOT

(MP
TYPE

RG ,#8.
L S$CRLF

“FINISHED ?
“CR=LF

SEQ 0067

STATUS

OONO? SINEE
n[ )
»H

e ed —d

d e

i
ssssssesssssssy

GET UNIT

-d e

)50

CZRMVBO RMQS/3/2 EXT'D DR TST

005737
001427
013746
063716
032726
001405
013737
004737
004737
005737
001034
005737
001031
104401

000765
004737
005037
005000
012701
105760

003411
005737
001403

001322

001314
027704
035700
001332

104401

047457
021514

005237

C.SWR, (SP)

“SET UP TO SEE IF

SAVCSW,=(SP)

#RIT00,(SPY+«

BIT
BEQ
1%:

2%:

C.SWR,SAVCSW

MOV
JSR
JSR
TST
BNE
TST
BNE
TYPE
BR
JSR

PC,LODFLT
PC.GT.PRM
TSTAMS
68
TSTAMS+2
6%
ihs.oresr

3%:

001330

4%:
5%:

040612

001314

6%:

7%:

INC
ASLB

004712

021550
:
9%

021514

*NO DRIVES SELECTED

*ARE AVAILABLE FOR TESTING

;1S DRIVE ON-LINE ?
‘BR IF NO
*LOADED FROM THIS DEVICE ?
‘BR IF NO

“ANY MORE DRIVES TO CHECK ?

CLR
BIT
BNE

SEEKFG
#SW08, C . SWR
78
SEEKFG

:CLEAR SEEK FLAG
‘DO SEEK BEFORE DATA TRANSFER?
: YES=-BRANCH
:

TYPE
CLR

,DRIVES

:*DRIVES(S) TO BE TESTED'

DRVSEL ,R1

*ANY DRIVES SELECTED?

,NONE
"$CRLF
62
8%
START?
RO
=2

2 *NONE*
*CR-LF
SANY MONITOR PRESENT 2
:BR IF YES
*RETURN TO *~C' INPUT

$GET42

:RETURN CONTROL TO MONITOR

?5‘

‘REPORT THE DRIVES TO BE TESTED

SENDC1

:GIVE THIS DRIVE A PASS

TYPE
TYPE

8%:

‘C.SWR' VALUE

“RESET PARAMETERS TO THEIR DEFAULT VALUES
“GET PARAMETERS
“ANY TEST SELECTED THIS CYCLE?
‘BR IF YES
“ANY TEST SELECTED THIS CYCLE ?
‘BR IF YES
“TYPE 'NO TESTS SPECIFIED®

MOV
BNE

047510
001231
000042

IS DIFFERENT

XXDP, RO
*LOADED FROM THIS DRIVE ?
5%
:BR IF YES
ATABIT(RG) ,DRVSEL
:YES, SELECT DRIVE FOR TESTING
RO
;TRY NEXT DRIVE

$ENDCT
RO

CLR «

001330

:STORE PRESENT

‘DETERMINE THE DRIVES THAT

BEQ
CMPB
BEQ
BISB

‘BR IF NOT

DRVSTA(RO)
5%
XXDP

TSTB
BLE
TST

'BIT00'

*1S 'BITO0' DIFFERENT ?

:SETUP DEFAULT PARAMETERS

#1,R1

MOV

:GET THE PREVIOUS *C.SWR' CONTENTS

PC,LODFLT

DRVSEL

(LR
CLR

BNE

006201

57 006576

ADD

001470

040612
000400

103011

:CONTROL *‘C** START/RESTART?
JNO==BRANCH

001320

040532

005037
032737
001002
005137

104401
005737
001002
000137
005300
001376
005300
001376
000137

CNTRLC
2%

000001

040636

104401

TST
BEQ

047727

156037
005200
106301
001361

005037
005000
013701
001017

SRTDRV:

MOV

027704
001330

SEQ 0063

GET UNIT STATUS

001334

001470

L .5
11:57:12 PAGE 12

4~-APR-81

.SBTTL

001320
001314
000001

123700

001403

MACRO v04.00

TST
BNE
JMP
DEC
BNE
DEC
BNE
JMP
ASR
BCC
INC

a02

:BR IF YES

“DETERMINE PASSES TO MAKE AND
‘THE DRIVES TO BE TESTED
*YES--BRANCH

‘THESE TWO LOOPS ARE ADDED TO

‘WAIT FOR TTY

»”~

)51

|
|

‘

&2 RMVBO RM0S/3/2
GET UNIT STATUS

EXT'D DR TST

MACRO Vv04.00

58 006602 010046
006604

104403

006607
59 006610
60 006612
61 006615
62 006620

000
005701
001404
104401
005200

006606

001

047515

DOG763

65 006624

104401

001231

67 006636
63 006642
€9 006644
70 006652

005737
003006
032737
001402

001342

108:

o6 006630 013737 021514 021506
104401
000414

MOV

RO,=(SP)

::SAVE RO FOR TYPEOUT

BYTE

:iTYPE 1 DIGIT(S)

TYPOS

63006622

71 006654
72 006660

4=-APR-81 11:57:12 PAGE 12-1

036000
047520

11$:

BYTE
PST
BEQ
TYPE
INC

TYPE

Mov
TST
BGT
BIT
BEQ

001332
12%:

TYPE
BR

0
Rl
113
,CLMA
RO

:160 TYPE=<OCTAL ASCI]
i SUPPRESS LEADING ZEROS
:MORE _DRIVES?
:NO--BRANCH
‘FORM DRIVE NUMBER

,SCALF

:CR-LF

CLKSTA
128
#36000,TSTNMS
128

:1S KW11-P AVAILABLE ?
:BR IF YES
:ANY TIMING TESTS TO BE PERFORMED ?
‘BR_IF NO

SENDCT,SEOPCT

,NOCLOK
RSTRT1

STYPE NO KW11-P CLOCK MESSAGE

05¢2

CZRMVBO RMQ5/3/2 EXT'D DR TST

PROGRAM RESTARTS HERE

MACRO V04.00

.SBTTL

PROGRAM RESTARTS HERE

.ENABL

LSB

S 006662
6 006666
7 006670
8 006674
9 006676
10 006702

005737
001022
005737
001402
000137
104401

021550
047703

13 006712
14 006716

005037
012737

001352
000001

}5 006706

000137

001330

000042

004712

DRVSEL
3%
awe?
1$
$GET42
,NODRVS

;ANY DRIVES SELECTED ?
;BR IF YES
JANY MONITQR
PRESENT ?
;BR_IF NO
JRETURN CONTROL TO MONITOR
;TYPE 'NO DRIVES TO TEST'

RSTRT1: CLR
MOV

CHKDRV
#1,DRVMSK
DRVMSK ,DRVSEL
31
S
CHKDRV
DRVMSK
RSTRT1
2%

;START WITH DRIVE 0 AGAIN

CHKDRV,R2

;PICKUP THE

SEOPCT
RSTART

;ADJUST 'EP" COUNT
sRETURN (

15 006724
16 006732

033737
001006

001354

005237
106337
103762
000766

001352
001354

3%:

22 006750

013702

001352

4%:

17 006734
18 006740
19 006744
g? 006746
23 006754
24 006760
25 006762
26 006764

27 006772
Sg 006776
30 007000
31 007004

105762
003007
104011
043737

005337
000731

001354

021506

004737
005037

027334
177776

35 007024 -010237
36 007030 004737

047076
030336

32 007010
33 007014
34 007020

37 007034
38 007042
39 007050

40 007056
41 007060
42 007064
43 007072

44 007076
45 007104
46 007110
47 007114
48 007120
007122

007124
007125
49 007126
50 007132
51 007136

52 007142

53 007146

54 007150

010237
010237
010237

012737
112737
032737
001402
105037

112737

004037
112737
005037
104401
104401
010246
104403
002
000
104401

104401
012700
013701
005002
006101

2%:

040532
001330

MoV

5%:

DRVSTA(R2)
5%
11
DRVMSK ,DRVSEL

JSR
CLR

PC,CNTCLR
PS

MOV
JSR

R2,DTADPB
PC,LDCMD

MOV
MOV
MOV

001350
047017
001314

047017
000143
030402

047020

6$:

047020

047515

047605
000004
047170

7%:

START2

TSTB
BGT
EMT
BIC

DEC
BR

047016
047036
047056

000107
030402
001231
047625

BIT
BNE
INC
ASLB
BCS
BR

021334
000020
000001

SEQ 0065

RSTART: TST
BNE
TST
BEQ
JMP
1%:
TYPE

JMP

001354
001330

4-APR-81 11:57:12 PAGE 13

;NO-=GET DRIVE ENTRY & RESTART AT BEGINNING
;IS THIS DRIVE SELECTED?
;YES==GO CHECK IF DRIVE IS READY FOR TESTING

sMOVE TO
NEXT DRIVE NUMBER
;DONE TESTING ALL DRIVES ?
:BR IF YES
sNO=-~CHECK| DRIVE SELECT

R2,.DPB.A
R2.DPB.B
R2.DPB.C

MOV
MOVB
BIT

#SEOP ,BYPASS
#20,DPB.A+1
#B1T00,C.SWR

MovB

#SETFORM,DPB.A+2

BEQ
CLRB

6%
DPB.A+1

JSR
RO,CALL.A
MOVB .#RECAL ,DPB.A+2
JSR
+RO,CALL.A
© TYPE
.SCRLF
TYPE
,MSDRIV
R2,-(SP)
MOV
TYPOS
¢
BYIE
BYTE
0
TYPE
. COMMA

TYPE
Mov

.SERIAL
#4 RO

CLR

MoV
ROL

RM.REG+30,R1
R1

DRIVE NUMBER

;1S DESIRED DRIVE ON-LINE?
sYES,
H
sDRIVE SELECTED IS NOT ONLINE
;DESELECT ORIVE FROM TEST
;G0 CLEAR MASSBUS CONTROLLER
;ENSURE THE PRIORITY = 0

;SET THE DRIVE NUMBER INTO THE DPB°S
;LOAD COMMAND INTO DPB.B AND DPB.(
:IF ERROR GO TO END OF PROGRAM

sASSUME 16 BIT FORMAT
216 BIT FORMAT REQUESTED ?
:BR IF YES
;CLEAR THE ‘FMT16' BIT

;SET THE FORMAT BIT PER DPB.A+1

;GO EXECUTE THE COMMAND
;RECAL=COMMAND
;GO EXECUTE THE COMMAND
:CR=LF
;TYPE °'DRIVE '
::SAVE R2 FOR_TYPEOUT
::G0 TYPE--OCTAL ASCII
;s TYPE 2 DIGIT(S)
; : SUPPRESS LEADING ZEROS
STYPE *5 °

sTYPE "MBA SN# '
;FOUR DIGITS TO TYPE
;SERIAL NUMBER
+ZERO
JPUT THE NEXT DIGIT

—

8 ggegases®
2g & NIFRRER I8
8

&SRARLBTHT F

CZRMVBO RMO5/3/2 EXT'D DR TST
PROGRAM RESTARTS HERE

67 007206

006102
006101
006102
006181
006102
006101
00610¢
06270;
01022

000000
104401

005300
003357
104401
113737

MACRO v04.00 4=-APR-81 11:57:12 PAGE 1?-1
8

RZ
R1

000060
8%:

007776
/Y281
001464

WORD

JMAKE

:TYPE

001137

JINTO R2

R2
R1
R2
R1
R
4'0,R2

82.(PC)0

7%
LSCRLF
ERR.CT,SERMAX

SEQ 006€¢

T ASCII

JSAVE IT

JALL DIGITS TYPED?
JNO == BRANCH
sCR=LF
;SETUP MAX ERROR COUNT

CZRMVBU RM05/3/2 EXT'D DR TST

PROGRAM RESTARTS HERE

MACRO v04.00

23111 NPT

¢~-APR-81 11:57:12 PAGE 14

SEQ QU&7

77707 707777777707777777777777777777777777777777

s*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED

;*AND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE:

s *MNEMONI C

- %

]

VALUE

emeamesemamE

202020 mmmess

8
3
10
n
12
13

:*R
s*F(
soLC
s*IC
J*NC OF NC1
s

:®

0
822.
1
FC+IC

J*NC2

VAR]ABLE

0202090909000

eeoeecsasese

ITERATIONS (REPEATS)

FIRST CYLINDER ADDRESS
LAST CYLINDER ADDRESS
INCREMENT VALUE
NEW OR MODIFIED CYLINDER
ADDRRESS

LC=IC

NEW OR MODIFIED CYLINDER

ADDRESS

. %

soFT

FIRST TRACK ADDRESS

5(1)

s*NT

FT+IT

NEW OR MODIFIED TRACK ADDRESS

18
19

sl T
sIT

4 OR 18.
1

. ®

;*FS

s*LS

FIRST SECTOR ADDRESS

31.

LAST SECTOR ADDRESS

23 lIITIIIII I

.SBTTL

231

DAL TILLEIIIIIILL I LI

30
31
32
33
34

LAST TRACK ADDRESS
INCREMENT VALUE

2LP

PP ET

ILIIIIT I

I 771777/ 777777

SEEK TESTS
LILIII AL IIII1711777777777/777777/777//777777

;*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 "F¥S'' OF THE DESIRED CYLINDER.
;*THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND
;*TRACK/SECTOR WORDS OF THE HEADER ARE READ.

43
L4

RARAARA

AT R R

1717771777777 7777777777777/7777

AN R

A AR A AR AR

AR AR AT RA AR AR A

TR TR

RECAL/RANDOM SEEK TEST
;*TEST O
;*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE COMMAND
;*AND THEN SEEK TO A RANDOM CYLINDER BETWEEN “F¥C'' AND "1(C''. AT
;*THE COMPLETION OF BOTH COMMANDS, STATUS INDICATORS ARE CHECKED
;*TO ENSURE THAT NO ERRORS OCCURRED.

007222
007222

007224

007232
007234

007240
007246
007252
007260
007266
007274

000240

033737

001002
000137

012737
004737
012737
013737
112737
012737

TST0:

001540

001332

007464

000000
030142
007372
002336

000031
000000

001116
001124
001220
001131
001240

NOP

AN AN R AR AR

RN AAAAAAAAAAAARREARAAARRAA
AR AR TR

8I1

BITS+<0*2>,TSTNMS
.+6
ST

;BR IF YES
:NO=-=JUMP TO TEST1

MOV
JSR
MOV
Mov
MOvB
MOV

#0,$TSTNM
PC,LODPRM
#TESTO,SLPERR
RPT,STIMES
#25. , SERMAX
#0,$TESTN

;SET TEST #0 AND CLEAR (SERFLG)
sLOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
sGET THE ITERATION COUNT
sMAX ERRORS ALLOWED FOR TEST
2;SET TEST NUMBER IN APT MAIL BOX

BNE
JMP

;DO THIS TEST?

[

'
CZRMVBO RMOS5/3/2 EXT'D DR TST
TO
RECAL /RANDOM SEEK TEST

MACRO v04.00

007302
007310

032777
001406

010000

171644

46 007326
47 007334
48 007342

112737

113737
113737

000107

002354
002346

%;g%.
007372
007376
007402
0076410
007416
007420
007424
007430
007432
007436
007440
007444
007450
88;2.%
007456

012737
012706
004037
013737
023737
001417
004737
013746
005046
013746
005216
163716
004737
062637
005726
004037

007372 001122 .
001106
030402
002340 047050
002340 002342

007312 104401 047617
007316 013746 001240
007322 104403
007324
002
007325
000
047020

047046
047047

000004

026426

026524
002342
002340
026530
047050

030550

EXITO:

78
?9

SEQ 0068

81T
BEQ

#5312, a5WR
+16

:INHIBIT TYPING TEST NUMBER ?
‘BR IF YES

MOVR
MOVB
MOVB

ARECAL,DPB.A+2

;RECAL=COMMAND

MOV
MOV
JSR
MOV
CMP
BEQ
JSR
MOV
CLR
MOV
INC
SuUB
JSR
ADD
ST
JSR

LC.DPB.B+12
#EXITO,BYPASS

#TESTO.SLPADR
#STACK, SP
RO, CALL .A
FC.DPB.B+12
FC.LC
18
PC.,SRAND
SHINUM,=(SP)
=(SP)
LC,=(SP)
(SP)
FC,(SP)
PC.SDIV
(SP)+,DPB.B+12
(SP)+
RO,CALL.B

iLC
:GO TO EXITO ON ERROR

TYPE
MOV
TYPOS
BYTE
BYTE

«9 007350 013737 002342 047050
70 007356 012737 007462 001350

" 007462

D 6
4=-APR-81 11:57:12 PAGE 141

MOV
MOV

SCOPE

MSGTST
$TESTN,=(SP)
2
O
FS,DPB.B+10
FT.DPB.B+11

*TYPE 'TEST'
*:SAVE STESTN FOR TYPEOUT
©:GO TYPE==OCTAL ASCI]
“:TYPE 2 DIGIT(S)
*SUPPRESS LEADING ZEROS
FS
FT

:SETUP LOOP ADDRESS
:SET UP STACK POINTER
:GO EXECUTE THE COMMAND
*INITIAL CYLINDER ADDRESS
SCYLINDER LIMITS THE SAME ?
‘BR IF THEY ARE
*CYCYLE THE RANDOM NUMBER GENERATOR
:USE THE HIGH RANDOM NUMBER
*UPPER DIVIDEND
*FORM THE DIVISOR
* INCREMENT
*SUBTRACT THE LOWER LIMIT
*DIVIDE
:ADD THE REMAINDER TO THE INITIAL CYLINDER
*DISCARD THE QUOTENT
:GO EXECUTE THE COMMAND
“CALL SCOPE ROUTINE

.tt'.l'..t'ttQ.t't"tt."..Qt..t!ltt..t.ttttt"t.ttt'tttttt't'fi

OTEST 1
SEEK/SEEK TEST
S*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK

;*CYCLE TO ‘LC”, “LT", "LS'' FOLLOWED BY A REVERSE SEEK CYCLE TO

SeEC”, "FT', 'FS''.

AT THE COMPLETION OF EACH SEEK, THE PROPER

-momroas ARE EXAMINED TO ENSURE PROPER OPERATION.

007464

000240

007474
007476
007502
007510
007514
007522

001002
000137
012737
004737
012737
0313737

007466

001542

001332

007672
000001
030142
007654
002336
007530 112737 000031
o 007536 012737 000001

001116
001124
001220
001131
001240

007544
007552
007554

033737

032777
001406
104401

010000
047617

2222222222322 233232333323333233323%3333333332333323333323232332322233233

871

171402

NOP

BIT

BITS+<1%2>, rsrms

MOVB

#25.,SERMAX

- BNE
- JMP
MOV
JSR
MOV
MOV

MOV
BIT
BEQ

TYPE

:DO THIS TEST?

+6
TST2
#1,8TSTNM
PC . LODPRM
#TEST1,$LPERR
RPT,$TIMES

CBR IF YES
*NO==-JUMP TO TEST2
sSET TEST #1 AND CLEAR (SERFLG)
*LOAD THE PARMETERS FOR THE TEST
:SETUP THE LOOP ON ERROR ADDRESS
*GET THE ITERATION COUNT

#1,$TESTN

“:SET TEST NUMBER IN APT MAIL BOX

#SW12,aSWR
L+16
JMSGTST

*MAX ERRORS ALLOWED FOR TEST

:INHIBIT TYPING TEST NUMBER ?
‘BR IF YES
sTYPE *TEST®

E{RWSO RM0S/3/2 EXT'D DR TST

SEEK/SEEK TEST

007560

013746

" 007566
- 007567

002
000

-+ 007564

104403

001240

81 007570

005037

83 007602
84 007610

113737
113737

002356
002346

86 007624

013737

002340

92 007640

012737

82 007574

85 007616

37 007632

88;%2

113737
113737

013737
012737

MACRO v04.00

001466

002354

)

004037
204037
000004

BYTE
BYTE

2
O

CLR

BASFLG

#EXIT1,BYPASS

;GO TO EXIT1 ON ERROR

mov

#STACK ,SP

MOV

030766
030550

TSR
JSR
EXIT1:
SCOPE

188

JFS

MOV

;CLEAR BAD SECTOR ENCOUNTER FOR THE DRIVE

FC,D"2.B+12

047070

001122

FS.DPB.B+10

MOV

002342
007654

JiTYPE 2 DIGIT(S)
; :SUPPRESS LEADING ZEROS
;LS
il
LY
JFC

MOvB

001350

;;SAVE STESTN FOR TYPEOUT

;:GO TYPE==OCTAL ASCII

f LS,DPB.(+10
' FT,DPB.B+11

047067

007670

SEQ 0069

MOVB
MOVB

002350

04705C

‘

$TESTN,=(SP)

MOvVB

047066
047047

E 6
11:57:12 PAGE 14=2

MOV

TYPOS

047046

93 007654 012706 C€01100
9% 007660
95 007664
gg 007670

4=APR=81

LT,DPB.C+11

LC,DPB.C+12

#TEST1,SLPADR
RO, CALL.C
RO,CALL.B

;LC

;SETUP LLOOP ADDRESS

;SET _THE STACK POINTER

;GO EXECUTE THE COMMAND
;GO EXECUTE THE COMMAND
;CALL SCOPE ROUTINE

::t"Q"'Q.'Q...'.."""""t....."."t..."'.."....t't't'"t'

INCREMENY/SEEK TEST

s*TEST 2

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

s*CYLINDER ADDRESS FROM ‘¥C''

TO 'LC''

BY THE INCREMENT “’IC"".

s*WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS
;*"LC"" REVERSE SEEK CYCLES ARE INITIATED; STARTING
s*AT THE LAST LEGAL "NC'‘' AND DECREMENTING BY “'IC""

s*UNTIL "NC'' IS LESS THAN "¥C''. AT THE COMPLETION OF EACH

;*SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
;*ENSURE PROPER OPERATION.

007672
007672
007674
007702
007704
007710
007716
007722
007730
007736
i 007744
007752

007760

007762

':tt...t..fi..".....'."'..'.-...'....t'.....tt.'tt..'.'."..QQ..

000240

1512:

033737
001002
000137
012737
004737
012737
013737
112737
012737
032777

001544
010134
000002
030142
010026
002336
000031
000002
010000

104401

047617

001406

001332

BIT
BNE
JMP
MOV
JSR
MOV
MOV

001116
001124
001220
001131
001240
171174

012737 0100064

001122

117 010020

012737 010132

001350

112 0100064
113 010012

113737
113737

002354
002346

047046
0467047

MOV
8IT

BITS+<2+2>, TSTNMS
:DO THIS TEST?
. +6
:BR IF YES
1S3
*NO==JUMP TO TEST3
#2,8TSTNM
;SET TEST #2 AND CLEAR (SERFLG)
PC.LODPRM
“LOAD THE PARMETERS FOR THE TEST
#TEST2,SLPERR :SETUP THE LOOP ON ERROR ADDRESS
RPT,$TIMES
*GET THE ITERATION COUNT
#25.,SERMAX
*MAX ERRORS ALLOWED FOR TEST
#2,$TESTN
2;SET TEST NUMBER IN APT MAIL BOX
#5W12,aSWR
;INHIBIT TYPING TEST NUMBER ?

TYPE

MSGTST

MOVB

BEQ

007766 013746 001240
007772 104403
007774
002
007775
000
111 007776

NOP

1$:

L+16

*BR IF YES

MOV
TYPOS
BYTE
BYTE

$TESTN,=(SP)
2
0

*:SAVE STESTN FOR TYPEOUT
+3G0 TYPE=-=OCTAL ASCII
S:TYPE 2 DIGIT(S)
::SUPPRESS LEADING ZERCS

MoV

#18,$LPADR

:SETUP LOOP ADDRESS

MOV

#EXIT2.BYPASS

:GO TO EXIT2 ON ERROR

MOVE
MCVB

FS,DPB.B+10
FT.DPB.B+11

STYPE °*TEST'

FS
FT

“ZRMvBO RMOS5/3/2 EXT'D DR TST

INCREMENT /SEEK

010026
118 010026

TEST

002340
010034
001100

119 010034

010042
120 010046
121 010046

030550
002344
002342

122 010052
123 010060

124 010066

010104

002342
010076
001100

129 010114

030550
002344

125 010070

126 010076

127 010110
128 010110

002340

MACRO Vv04.00

047050
001124

TESTZ:

047050
047050

MOV

#STACK,SP

“LOAD THE STACK POINTER

RO, CALL.B

JSR

SUB

BLE

SCOPE

SEQ 0070

SFC

JSR

ADD
CMP
BGE
MOV
MOV
MOV

FC,DPB.B+12

CMP

EXIT2:

11:57:12 PAGE 14=3

MOV

047050
047050
047050
001124

&=-APR=81

SLPERR

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

RO, CALL .B

1C.DPB.B+12

“SETUP THE ERROR LOOP ADDRESS

;GO EXECUTE THE COMMAND
“MOVE TO NEXT CYLINDER
“OUT OF CYLINDERS?
*NO-=BRANCH

;SETUP THE ERROR LOOP ADDRESS
“LOAD THE STACK POINTER

;GO EXECUTE THE COMMAND

FC.DPB.B+12

DE (5K

:CALL SCOPE ROUTINE

"."’.'.."'......'""..'.."...fi"...'-.t.'.'..".'..."'0'.

RTEST 3
STEPPING SEEK TEST
:*THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0, 1, 2,

te8, 16, 32, 64, 128, 256 AND 512. AT THE COMPLETION OF EACH
:«SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO ENSURE
: *PROPER OPERATION.

AR ARERRA AR RN AAANAANRIRENARANRAAAAAAAAAAARAAAA
ARSI ATAR AR

010134

010136
010144
010146

142

000240
033737
001002
000137

010152
010160
010164
10172
010200
010206

012737
004737
012737

010214
£10222
010224

032777
001406

013737
112737
012737

104401

010230
010234
010236
010237

013746

143 010240
144 010246

012737

104403
002

150 010270
151 010276

010304

P——

15¢ 010370

001546

113737

NOP

BIT

001332

BNE

JMP

010354
000003
030142
010270
002336
000031
000003

001116

MOV

001124
001220
001131
001240

MoV

010000

170232

001240

010246

012737

010352

013737
012737
012706
004037

002340
010276
001100
030550

001359
047050
001124

1%:

sESTS

S 7576

#3,8TSTNM

MOV

RPT, SHFES

MOV

#3%3,8TESTN

UTEST3 $LPERR

;DO THIS TEST?

;BR IF YES

M)--JUP TO TESTS

:SET TEST #3 AND CLEAR (SERFLG)

;LOAD THE PARMETERS FOR THE TEST

;SETUP THE LOOP ON ERROR ADDRESS

JGET THE ITERATION COUNT

lZS..’ERHAX

;MAX ERRORS ALLOWED FOR TEST

BiT
BEQ

#5W12,3SWR
.*+16

;INHIBIT TYPING TEST NUMBER ?
;BR IF YES

MOV

$TESTN,=-(SP)

;:SAVE STESTN FOR TYPEQUT

.BYTE

2
0

:;SUPPRESS LEADING ZEROS

MOV

#1%,3LPADR

MOVR

FT,DPB.B+11

TYPOS
BYTE

001122
047046
047047

PC,LODPRM

TYPE

047617

BITS+<3+2>, TSTNMS

JSR

MOVB

000

145 010254 ;113737

149 010262
010270

YST3

MOvVB

JMSGTST

FS, DPB B+10

;2SET TEST NUMBER IN APT MAIL BOX

JTYPE °‘TEST®

;+:GO TYPE--OCTAL ASCII
22TYPE 2 DIGIT(S)

;SETUP TEST LOOP ADDRESS
kS

MOV

IEXITS BYPASS

GO TO BYPASS ON ERROR

MOV
MOV

FC,DPB.B+12
#.,3LPERR

JFC
;SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER
;GO EXECUTE THE COMMAND

MOV
JSR

#STACK,SP
RO,CALL.B

STEPPING SEEK TEST

153 010314
154 010320

01032¢

155 010332
156 010336
157 010342
158 010344
159 010350

18? 010352

013701
012737

012706
010137
004037

006301
020137
003770

002344
(10320

001100
047050
030550

MACRO v04.00

4~-APR=-81

001124

1%:

002342

000004

EXIT3:

169

T?O

G 6
11:57:12 PAGE 14=4

MOV
MOV

ICR1
#.,8LPERR

ASL
(MP
BLE

R1
R1,LC
1%

MOV
MOV
JSR

SCOPE

sCYLINDER 1
JSETUP THE ERROR LOOP ADDRESS

#STACK,SP
R1,DPB.B+12
RO, CALL.B
.

JLOAD THE STACK POINTER
sDESIRED CYLINDER
;GO EXECUTE THE COMMAND

R 2222223232322 2332323232322

-TEST 4

JMOVE TO NEXT CYLINDER
;DONE?
;NO==LO0P

JCALL SCOPE ROUTINE

2322233323222 2222222222R222022]

OSCILLATING SEEK TEST

:*THIS TEST WILL COMMAND SEEK CYCLES FROM 'F(’* TO 'NC'’ AND BACK
nTo SO
'NC° STARTS AT "¥C ANp INCREMENTS BY “’IC"* UP TO CYLINDER

;«''LC'', THEN IS DECREMENTED BY ''IC'' BACK TO CYLINDER ‘¥C(C''.

~COMPLET10N OF EVERY SEEK COMMAND THE PROPER INDICATCRS5 ARE
'EXAMXNED TO ENSURE PROPER OPERATION.

AT THE

.-.-'tttt!'Qtnttltt.t'ttiQ't't'ttfitttttttttt.t'tt.tttt.tttttttt'tt'

010354
010354

010356
010364
010366

TST4:

033737
001002
000137

001550

010372

012737

000004

010404
010412
010420
010426

012737
013737
112737
012737

010400

000240

010434

010442
010444

010450

010454
010456
010457
172 010460
173 010466
174 010474

182 010502
010510
010512
010520
010522
010524
183 010524

184 010530
185 010534

010542
186 010546
187 010552
188 010556

185 010560

004737

032777

001406
104401

013746

104403
002
000

012737
113737
113737

012737
005002
032737
001401
005102

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

0071116

MOV

#4,8TSTNM

;SET TEST #4 AND CLEAR (SERFLG)

010524
002336
000031
000004

001124
(01220
001131
001240

MOV
MOV
MOVB
MOV

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

;SETUP THE LOOP ON ERROR ADDRESS
:GET THE ITERATION COUNT
)
;MAX ERRORS ALLOWED FCR TEST
;:SET TEST NUMBER IN APT MAIL BOX

010000

170512

BIT

#SW12,aSuWR

:INHIBIT TYPING TEST NUMBER ?

MOV

S$TESIN,=(SP)

;2SAVE STESTN FOR TYPEOUT

MOV
MOVB
MOVB

#1%,8LPADR
FS.DPB.B+10
FT,DPB.B+11

HEXIT4L ,BYPASS
R2
#SW12,C.SWR
TEST4
R2

60 TO EXIT4 ON ERROR
:CLEAR STALL SWITCH (NO STALL)
*STALL REQUIRED?
:NO=--BRANCH
;YES==SET SWITCH

MOV

FC.R1

JSET NC TO FC

#STACK,SP
R1,DPB.B+12
RO, CALL.B
R2

LOAD THE STACK POINTER
*NC
;GO EXECUTE THE COMMAND
JSTALL?

010766

030142

JSR

BEQ
TYPE

047617

001240

001122
047046
047047

010000

001314

010764

012706
010137
004037
005702

001100
047050
030550

001436
010534

PC.,LODPRM

.*16
JMSGTST

TYPOS .
BYTE * 2
BYTE
0

010466
002354
002346

002340

001403

NOP

BIT
BNE
JMP

013701

005037
(12737

001332

1%:

001350

TEST4:

001124
1¢:

MoV
CLR
BIT
BEQ
coM

:LOAD THE PARMETERS FOR THE TEST

;BR IF YES
:TYPE 'TEST®

;:G0 TYPE--OCTAL ASCII
;:TYPE
2 DIGIT(S)
..SUPPRESS LEADING ZEROS
;SETUP LOOP ADDRESS
FS

CLR
MOV

STALLO ;START AT ZERO IF STALLS REQUIRED
#. ,SLPERR
:SETUP THE ERROR LOOP ADDRESS

BEQ

MOV
MoV
JSR
IST

NO==BRANCH

g '05

RMYBO RM0OS5/3/2 EXT'D DR TST

071

;ERHVBO RMQ5/3/2 EXT'D DR TSI
OSCILLATING SEEK TEST

190 010562

191
162
193
194

010566
010570
010576
010602

205 010645
206 010652
010660
207 010664
208 C10670

217 010724
218 010730
219 010732
220 010736
221 010744
222 010746
223 010752
224 010756
225 010762
226 010764
227
238
239

004037
001436
013737
004037
005702
001413
004037
001436
005237
023737
003347
005037
063701
020137
003740
013701
012737
012706
010137
004037
005702
001403
004037
001436
013737
004037
005702
001413
004037
001436
005237
023737
003347
005037

163701
020137
002340
000004

MACRO v04.00

032326
002340
030550

JSR

047050

2%:

001436

001436
002344
002342

002342
010652
001100
047050
030550

001124

002342
030550

047050

5%:

001436
001462

;GO EXECUTE THE COMMAND

BEG
JSR
.WORD
INC

3%
RO,STALL
STALLO
STALLO ;UPDATE

BGT
CLR

ADD

081436

001436
002344
002340

ExIT4:

MXSTAL,STALLO
1%
STALLO

I1C,R1

JSTALL?

sNO==BRANCH
;YES==GO TO STALL ROUTINE
:TIME POINTER
THE TIME

;TIME TO BIG?

NO==BRANCH
;YES==-START OVER AT ZERO

JMOVE TO NEXT CYLINDER

R1,LC
1%
LC.RY

MOV
MOV
JSR
TST

#STACK,SP
R1,DPB.B+12
RO, CALL.B
R2

;LOAD THE STACK POINTER
sNC
;GO EXECUTE THE COMMAND
sSTALL?

JSR
.WORD

RO,STALL
STALLO

;YES==GO TO STALL ROUTINE
;TIME POINTER

JSR

RO,CALL.B

;GO EXECUTE THE COMMAND

BEQ
JSR
.WORD
INC

63
RO, STALL
STALLO
STALLO ;UPDATE

sNO=-BRANCH
;YES==GO TO STALL ROUTINE
:TIME POINTER
STALL TIME

BGT
CLR
suB
cMP

43
STALLO
1C,R1
R1,FC

MOV

(mMP

6%:

FC.DPB.B+12

(MP
BLE
MOV

032326

;YES=GO TO STALL ROUTINE

RO, CALL.B

BEQ

032326

RO,STALL

JSR

MOV

MOV
4%:

14~5

;TIME POINTER

(MP

3%:

11:57:12 PAGE

STALLO

.WORD

TST

032326
001436
001462

4-APR-81

BGE

SCOPE

JLAST CYLINDER COMPLETED:
sNO==BRANCH
sSET NC TO LC

#.,SLPERR

;SETUP THE ERROR LOOP ADDRESS

sNO=~BRANCH

LC,DPB.B+12

;LC

MXSTAL,STALLO

sSTALL?

;TIME TOO BIG?

: NO=-BRANCH
;YES--SET STALL TIME BACK TO ZERO
sNEXT CYLINDER

;DONE?

s NO--BRANCH

;CALL SCOPE ROUTINE

'"".tttt'tt'tt"..'t""'i"..l."l.l.t.'.'.."tttt.t"."it"t

S*TEST §
CONVERGING/DIVERG
SEEK TEST
;*THIS TEST WILL CAUSE THE DRIVE
TO EXECUTE FORWARD AND REVERSE

;*SEEKS FROM "NC1°° AND 'NC2'' RESPECTIVELY, 'NC1'* WILL BE INCREMENTED
UICT UNTIL "NCT*° IS
;*BY “'IC'" AND "WC2'' WILL BE DECREMENTED .BV
; *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.

“NCT*' AND “NC2'' DEFAULT TO

;*"FC"" AND “LC'" RESPECTIVELY.

il
2222ttt2
222223223
222
3232323232332
222222

010766
010766

010770
010776

011000

000240

TSTS

033737

001552

000137

011212

001002

001332

NOP

BIT
BNE

JMP

;DO THIS TEST?
BITS+<5+2>,TSTNMS
YES
IF
:BR
.46
TST6
sNO==JUMP TO TEST6

SEQ 007¢

CZRMVBC RMOS/3/2 EXT'D DR TST
TS

MACRO v04.00

CONVERGING/DIVERGING SEEK

011004
011012
011016
011024

240

011032
011040
011046

012737
004737
012737
C13737
112737

012737

032777
001406
104401
013746

000005
630142
011122

TEST

001116

&=-APR-B1
MOV

JSR
MOV
MOV

001124
001220

002336
000031
000005

001131
001240

MOVR
MOV

010000

170100

BIT
BEQ

047617
001240

TYPE
MOV
TYPOS

QONNOO
8'\)88\0%

i i e
e o e
b s
— e

260 0
261 0
262 0
263 0

VWV WA
—

0
0
0
0
0

002340
002342
011132
001100
047050
030550
0479050
030550
002344
002344
002342

001122
047046

047047
001350

TESTS:

001124
1%:

002340

EXITS:

bal

253
25
255
256
257

b ald i
e e
d
PNONININY
— = =-

251 0

~
~n

(=]

—_
i
D e v wd
b
e e e
b
i i ol el i wid o

D e e e wd
d
D d d e
i i
d i i

248 0
249 0
250 0

011120
002354
002346
011210

264
273
274

SEQ 0073

#5,8TSTNM
PC,LODPRM
#TESTS,$I.PERR
RPT ,$TIMES
#25.,8ERMAX
#5,8TESTN

JSET TEST #5 AND (LEAR (SERFLG)

#SW12,aSWR

JINHIBIT TYPING TEST NUMBER ?

416

MS5GTST

TESTN,=(SP)

;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON £ERROR ADDRESS
;GET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST

;oSET TEST NUMBER IN APT MAIL BOX
;BR IF YES
;TYPE 'TEST'

::SAVE STESTN FOR TYPEOUT
;:G0 TYPE=--OCTAL ASCI!

;3TYPE 2 DIGIT(S)

BYTE
.BYTE

01107
241
242
243 0
247 0

11:57:12 PAGE 14=6

2 :SUPPRESS LEADING ZEROS

MOV
MOVB
MovB
MOV

;?gTUP LOOP ADDRESS

MOV
MOV
MOV
MOV
MOV
JSR
MOV
JSR
ADD
SuB
cMP

;START NC1 AT FC

“GO TO EXITS ON ERROR
;START NC2 AT LC_

;SETUP THE ERROR LOOP ADDRESS
:h??D THE STACK POINTER
RO,CALL.B
R2,DPB.B+12
RO,CALL.B

BGT
CMP
BGE

S*TEST 6

NC2

;GO EXECUTE THE COMMAND
JNEXT NC1
JNEXT NC2
;DONE?
: YES=-~BRANCH’
sNO=--BRANCH

;CALL SCOPE ROUTINE

SCOPE

e AR R AR

;G0 EXECUTE THE COMMAND

AR A A AR AR A AR A A A A AR A AR AR AR

AN RAARA A AR

AR AR TR

SERVO ADDRESSING LOGIC NOISE GENERATOR

;*IN THIS TEST A SEEK IS DONE TO CYL "NC'' THEN A SEEK TO

;*NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5.

NOW ‘NC'* IS UPDATED

;«BY "'IC'' AND THE ABOVE SEQUENCE IS REPEATED UNITL "1C'" IS

;*EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF "NC'*
;*]S "FC'', AT THE COMPLETION OF EACH SEEK COMMAND THE
;*PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.

—dd
b wd
—hod
o oed d

[eleoleleole BN elelele
e

ke
b b mh
b oo
b b d

:;"..t'.'t*t...'Q'*t'tt't'.t'i'.t.il"'fitl".'tt"ltitt'Qt'tt't'

000240
033737
001002
000137

012737
004737
012737
013737
112737

1ST6:

001554

BIT
BNE
JMP

001116

Mov
JSR
MoV
MOV

011502
000006
030142
011346
00233¢€
000031

NOP

001332

001124
001220
001131

MOvB

;DO THIS TEST?
BITS+<6%2>, TSTNMS
;BR IF YES
.46
;NO--JUMP TO TEST?7
1817
#6,$TSTNM

;SET TEST #6 AND CLEAR (SERFLG)

PC,LODPRM

;LOAD THE PARMETERS FOR THE TEST

#25. ,SERMAX

;MAX ERRORS ALLOWED FOR TEST

#TEST6,$LPERR
RPT,$TIMES

;SETUP THE LOOP ON ERROR ADDRESS
JGET THE ITERATION COUNT

011264

OoONSON

gyuunn WWWWWN

NN — VSO
-a_a_ago

275

283 011346
284 011352
285 011356
286 011362
11370
287 011374
290 011376
291 011400
292 011404
293 011410
294 011416
295 011422
296 011430
297 011434
298 011442
299 011446
300 011454
301 011460
302 011466
303 011472
304 011476
305 911500
306
315
316

11:57:12 PAGE 14~7

SEQ 0074

012737

000006

001240

MOV

#6,8TESTN

;SET TEST NUMBER IN APT MAIL BOX

032777
001406

010000

167654

BIT
BEQ
TYPE
MOV

#SW12,aSWR

JINHIBIT TYPING TEST NUMBER ?
;BR IF YES

104401

013746

104403

047617
001240

TYPOS

113737
113737

012737
013701

013702

162702

012737
012706
020102
003040
010137
004037
062737
004037
162737
004037
062737
004037
162737
004037

MSGTST

$TESTN,=(SP)

011324
002354
002346
011500

002340
002342
000005

011362
001100

047050
030550
000004
030550
000003
030550

001122
047046
047047
001350

$,$LPADR

.DPB.B+10

1%:

‘D

TEST6:

JPICKUP 'FC'’
:FORM LAST CYLINDER THAT
TESTING
;1S AVAILABLE FQR

:LOAD THE STACK POINJER
:LAST CYLINDER ;

i ¥

R1.DPB.B+12
RO,CALL.B
#4,DPB.B+12
RO,CALL.B
#3,DPB.B+12
RO,CALL.B
#2,DPB.B+12
RO,CALL.B
#1,DPB.B+12

047050
047050

047050

RO,CALL.B

047050
ADD

EXIT6G:

ADDRESS

LOOP

:SETUP_THE ERROR

001124

063701
000736
000004

;SETUP LOOP ADDRESS

i
FT

;GO TO EXIT6 ON ERROQ

047050

062737
004037

JTYPE 'TEST’
;:SAVE $TESTN FOR TYPEOUT
;60 TYPE-~OCTAL ASCII

J:TYPE 2 DIGIT(S)
s sSUPPRESS LEADING ZERDS

BYTE
.BYTE

002
000

012737

416

BR
SCOPE

YES=-BRANCH
ZNC

;GO EXECUTE THE COMMAND
INC+4
:gg EXECUTE THE COMMAND
3

:G0 EXECUTE THE COMMAND

:NC+3

;GO EXECUTE THE COMMAND

INC+2

;GO EXECUTE THE COMMAND

JNC+5
;GO EXECUTE THE COMMAND

RO,CALL.B

1C.R1

;CALL SCOPE ROUTINE

';'!t....t..t..Q"'...'.Q"'.t.ttQ'.'.Qi..."fi..ltt.l.t.ttttttitt

SeTEST 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
;*OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED
;*BETWEEN PARAMTERS ‘FT' AND °LT'.

?CHD

—ed
=) D 2

Anosrnon
OO

waoauv
L
L

d ot =

—a 2 oA

WAL
e

AR A AR AR AN AN AR AR AR AR

(elele Nelelelels]

MACRC V04.00 4~-APR=-81
SERVO ADDRESSING LOGIC NOISE GENERATOR

CZRMVBO RMOS5/3/2 EXT'D DR TST

000240
033737
001002
000137

012737
004737
012737

1517:
001556

001332

012100

000007
030142
011642

NOP

001124

AR A AR R AR AR R A ARk

BIT
BNE

;DO THIS TEST?
BITS+<7%2>, TSTNMS
YES
IF
;BR
. +6
;NO==JUMP TO TEST10
1ST10

MOV
JSR
MOv

#7,$TSTNM
PC,LODPRM

JMP

001116

R R AR AR

#TEST7 ,SLPERR

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

sSETUP THE LOOP ON ERROR ADDRESS

g%RMVBO RMOS/3/2 EXT'D DR TST
RANDOM SEEK TEST

i
317

011540
011546
011554

011562
011570
011572
011576
011602
011604
011605

013737
112737

012737
032777
001406
104401

013746
104403

002336
000031
000007

001220
001131
001240

010000

167364

047617
001240

013704

325 011626 012737
011634 012737
011642
326 011642
012706
327 C11646
013737
328 011654 023737
329 011662 001422
330 011664 004737
331 011670 013746
332 011674 005046
333 011676 013746
334 011702 005216
163716
335 011704

336 011710 004737
337 011714 062637
338 011720 005726
339 011722 013737
340 011730
011730 012737
011736 012706
341 011742 004037
342 011746 012737
011754 012706
343 011760 113764
344 011766 016446
345 011772 006316
346 011774 006316
347 011776 000316
348 012000 105766
349 012004 001401
350 012006 105216
351 012010 105216
352 012012 112637
353 012016 013746
354 01202 005216
355 012024 122637
356 012030 103007
357 012032 103403
358 012034 105037
359 012040 000403
360 012042 112737
361 012050

002346
000105
040650
012076
011642
001100
002340
002340

047047
047020

001350
01122

TEST?7:

047050
002342

026426
026524

002342
002340
026530
047050
047050

047030

011730
001100

001124

030402
011746

001100
047016
000020

4=-APR-81

1%:

BIT

#SW12,aSWR
+16
\MSGTST

JINHIBIT TYPING TEST NUMBER ?

047106
002470
047106

000001

047106

3%:

4%:

2
0

MOV
MOV
(MP
BEQ
JSR
MOV
CLR
MOV
INC
sus
JSR
ADD
TST
MOV

#STACK,SP

MOV
MOV

8EQ
INCB
INCB
mMovBs

HEXIT?,BYPASS

#TEST7.$SLPADR

FC.DPB.B+12

FC.LC

1$
PC,$RAND

,
- (SP)
$SHINUM
-(SP)
LC,=(SP)
(SP)
FC,(SP)
PC,$D1V

(SP)+,DPB.B+12
(SP)+

;:SET TEST NUMBER IN APT MAIL BOX
;BR _IF YES
TYPE

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

;SETUP THE STACK POINTER
;INITIAL CYLINDER ADDRESS
sCYLINDER LIMITS THE SAME ?
;BR IF THEY ARE
;CYCYLE THE RANDOM NUMBER GENERATOR
;USE THE HIGH RANDOM NUMBLCR
sUPPER DIVIDEND
;FORM THE DIVISOR
: INCREMENT
;SUBTRACT THE LOWER LIMIT
:DIVIDE
;ADD THE REMAINDER TO THE
;:DISCARD THE QUOTENT

DPB.B+12,DPB.A+12
#..SLPERR

#STACK,SP

RO,CALL.A

#. ,SLPERR
#STACK,SP

"TEST’

;;SAVE STESTN FOR TYPEOUT
;:G0 TYPE=-~OCTAL ASCII
;:TYPE 2 DIGIT(S)
; ;SUPPRESS LEADING ZEROS

INITIAL CYLINDER

;COPY NEW CYLINDER ADDRESS

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
;GO EXECUTE THE COMMAND
;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

DPB.A,RMCS2(R4) sSELECT THE DRIVE
RMLA(R4) ,~(SP)
sGET THE LOOK AHEAD REGISTER
(SP)
sALIGN THE SECTOR ADDRESS
(SP)
(SP)
1(SP)

sALIGN THE SECTOR ADDRESS

;PUT ADDRESS IN LOWER BYTE

}?EvégT 20X OF SECTOR ?
IN

INCREHENT THE SECTOR ADDRESS
s INCREMENT THE SECTOR ADDRESS
(SP)+,DTADPB+10 :LOAD THE DPB

(SP)
(SP)

MOV
INC
CMPB

MT sPUT LAST SECTOR ADDRESS ON THE STACK
+24 ,~(SP)
PRML

BLO
CLRB
BR

3%
DTADPB+10

BHIS

047106

$TESTN,=(SP)

FT,DPB.B+11
#SEEK ,DPB.A+2
RMADR .R4

SWAB
1STB

2%:

#7,8TESTN

MOvB
MOvB
MOV
MOV
MoV

ASL

000001

SEQ 0075

;GET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST

MOV
MOV
MOvVB
MOV
ASL

000010

RPT ,$TIMES
#25.
, SERMAX

JSR

001124

11:57:12 PAGE 14-8

MOV
MOvB
MOV

BEQ
TYPE
MOV
TYPOS
BYTE
.BYTE

002
000

318 011606 113737
112737
319 011614

320 011622

MACRO v04.00

MovB

IT
¢ INCREMENT.
(St . +,DTADPB+10 sNEW SECTOR ADDRESS TOO LARGE ?

(SP)

BR IF NOT

s CONT INUE
:RESET ADDRESS TO SECTOR 1

#1,DTADPB+10

BR IF ADDRESS IS 2 GREATER
RESET TO SECTOR ADDRESS 0

CZRMVBO RMO05/3/2 EXT'D DR TST

RANDOM SEEK TEST

012050
362 012054
363 012060
366 012066
367 012070
368 012076
369
391

MACRO V04.00

030550
047047.
047047

002350

002346

047047

392

SEQ 0076

JSR
INCB
CMPB

RO, CALL.B
DPB.B+11
DPB.B+11,LT

;GO EXECUTE THE COMMAND
s INCREMENT THE TRACK ADDRESS
SMAXIMUM 2

MOVB

FT.DPB.B+11

*RELOAD STARTING TRACK ADDRESS

BLOS
ExI1T7:

4~APR-81 11:57:12 PAGE 14-9

SCOPE

EXIT?

:BR IF NOT

;CALL SCOPE ROUTINE

CRRRRARARNRRERRARARA
AR RAREAAR RN R AARNARANAAAAAARAAAAARAA A AR AR

'TEST 10
SERVO SETTLE DOWN TEST
s*THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT
**THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE.

'RANDOH SEEKS ARE ISSUED BETUEEN 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 IS REPEATED.
'THE TEST IS COMPLETED WHEN °'NC1’ HAS BEEN INCREMENTED BEYOND ‘LC".

'UHEN THE SEEK COMPLETES, THE PROGRAH 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 IS MALFUNCTIONING, OR THAT A PACK WITH
*MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE.
-t

;*THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW
THE NECESSARY
s *HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS.
:*TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED

;*RANGE TO PERMIT THIS TEST TO BE EFFECTIVE.

.' :tt'tit't.t'tt'itfitt"'.'..tfi'..tttl't.ttltt.tttfit.tttttt.t.ttt.

000240

393

394 012204
395 012212
012212
396 012220
397 012226
398 012234

BITS+<10%2>,TSTNMS
.+6
TST11

:BR IF YES
:NO--JUMP TO TEST11

000010
030142
012356
002336
000031
000010

001116

MOV
JSR

#10,8TSTNM
PC, LODPRH

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

MOV
MOVB

RPT,S$TIMES
l?S..SERHAX

;GET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST

010000

166766

BIT
BEQ

#SW12,aSWR
+16

MOV
TYPOS
.BYTE
BYTE

$TESTN,=(SP)

3
0

;INHIBIT TYPING TEST NUMBER ?
BR IF YES
;TYPE 'TEST'
*:SAVE STESTN FOR TYPEOUT
;:G0 TYPE--OCTAL ASCII

MOV

#1%,$LPADR

* MOVS
MOVB

#SEEK ,DPB.A+2 _ ;SEEK=COMMAND
#WRITE ,DTADPB+2 ; COMMAND

012737
004737
012737
013737
112737
012737
032777
001406
104403

BNE
JMP

013254

MOV

001124
001220
001131
001240

MOV

TYPE

047617
001240

003
000

012737

012212

001122

112737
112737
113737

000105
000161
002346
002340

047020
047100
047107
047030

013737

;D0 THIS TEST?

BIT

001560

013746

001332

033737
001002
000137

104401

012203

TST10:

MOVB
MOV

0755710 $LPERR
#10,8TESTN

MSGTST

FT,DTADPB+11
FC.DPB.A+12

;SETUP THE LOOP ON ERROR ADDRESS
:2SET TEST NUMBER IN APT MAIL BOX

;:TYPE 3 DIGIT(S)
; :SUPPRESS LEADING ZEROS

;SETUP THE LOOP ADDRESS

sTRACK ADDRESS FOR THE WRITE
*CYLINDER ADDRESS FOR THE SEEK

VB0 KM05/3/2 EXT'D DR TST
SERVO SETTLE DOWN TEST
399 012242
400 012250

401
402
403
404
405

012256
012264
012272
012300
012302
012310
012316
012324
012326
012332
012334
012340
012344
012350
012356
012356
012364
012370
012376
012402
012404
012406
012412
012416
012420
012424

012430
012436
012444

012452
012460

012464
012472
012500

012506
012512
012516
012520
012522
012524
012532
012540
012542
012546
012552
012554
012562
012566
012574
012600
012602
012610
012614
455 012614
012622

013737
013737
013737
163737
023737
003403
013737
012737
012737
005000
004737
005001

002340
002340
002342
002340
001450

047110
002370
001450
001450
002344

002344

001450
047102
047104

176000

054522

047016
040650
046336
013252

012737
012706
012737
005737
001415

012356
001100
000340
001342

017746
013746
012776
012777
012737
012764
110164

013764

013737
112764

005037

105764
100402
000001

000773
012737
032764
001412
012702
004737
104023
012764
110164

012777
005737
001405
016675
062706
012737
012706

001350
001124

2%:

TEST10:

177776

167076

001510
167076
001522
013206
032734
000010
000040
000010
047030
047030
000105
177776
000012

000340
040000

1%:

000000
026206
001444
000010

2%:
3%:

000034
001366
4%:

177776
000012

5%:

047016
045654
000040
000010

000010

043306
001342

026056

000002
000004

000000

012614
001100

001124

&-APR-81 11:57:12 PAGE 14-10

034404

113701
013704
004737
012737

100405
017746
013746
000404

MACRO V04.00

6%:

TST10A:

MOV
MOV
MOV
suB
CMP
BLE
MOV
MOV
MOV

CLR
JSR
CLR
MOVB
MOV
JSR
MOV
MOV
MOV
MOV
TST
BEQ
BMI
MOV
MOV
BR
MOV
MOV
MOV
MOV
MOV
MOV
MovB
MOV
MOV

MOVB
CLR

TST8

BMI
WAIT
BR
MOV

BIT

BEQ
MOV
JSR
EMT
MOV
MOvB
MoV
TST
BEQ
MOV

SEQ 0077

FC,DTADPB+12
FCNCT

:CYLINDER ADDRESS FOR THE WRITE
*STARTING CYLINDER

FC.DELTA

*CALCULATE DELTA COUNT

LC.DELTA

DELTA, IC

28
IC.DELTA

“GET LAST CYLINDER

*1S CALCULATED COUNT <= *IC’ 7
‘BR IF YES
*CYLINDER INCREMENT VALUE

#-<256.%4.> ,DTADPB+4
;WORD COUNT
#BUFFER,DTADPB+6
‘BUFFER ADDRESS
RO
;PATTERN POINTER (WC PATTERN)
PC, SE TBUF
*LOAD THE WRITE BUFFER
R1
*CLEAR REGISTER
DPB.A,R1
:LOAD DRIVE ADDRESS

RMADR R4

*UNIBUS ADDRESS OF THE RH/RM

#. .SLPERR
#STACK, SP

;SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER

CLKSTA

“SEE WHICH CLOCK ON SYSTEM

PKV,=(SP)

:SAVE THE VECTOR ADDRESS

PC, CLRQUE
WEXIT10,BYPASS

#PR7 ,PS$

3s
1$
aPKV,=(SP)
2%
aLkV,=(SP)
LKV,=(SP)

#TST108,a(SP)

#DORTI,SRMVEC
#8. ,SEKTMR

#CLR,RMCS2(R4)

R1.RMCS2 (R4)

“CLEAR THE OPERATION OUEUES
:ERROR EXIT FROM TEST

*SET PRIORITY TO 7

*BR IF NO CLOCK
*BR IF KW11-L CLOCK
“SAVE THE VECTOR

:CONT INUE
SSAVE THE 'L’ CLOCK VECTOR
“SAVE THE VECTOR ADDRESS

:CHANGE THE VECTOR

:CHANGE THE RM VECTOR
*LOAD THE SEEK TIMER

:INIT THE MASSBUS

RESELECT THE DRIVE

DPB.A+12,RMDC (R4)

:LOAD THE CYLINDER ADDRESS

DPB.A+12,CYL.DS ;CYLINDER ADDRESS FOR ERROR MESSAGE

ogeex.nncs1(n4) *START THE SEEK
;CLEAR THE PRIORITY
P
RMDS (R4)
sHAS THE DRIVE FINISHED ?

#PR7 ,PS

#ERR ,RMDS(R4)

:BR IF IT HAS

sWAIT FOR THE OPERATION TO COMPLETE
: CONT INUE

sCHANGE PRIORITY TO MAX

;ERROR ?

:BR_IF NOT

PC.SVRH70

:SAVE THE REGISTERS

#DPB.A, R2

:DPB_POINTER

;ERROR DURING SEEK

CLKSTA

sWHICH CLOCK

2(SP) ,a(SP)

sRELCAD THE CLOCK VECTOR

#CLR,RMCS2(R4)
R1,RMCS2(R4)
#1SR,aRMVEC

TST10A

ADD

#4,SP

MOV
Mov

#.,SLPERR
#STACK,SP

;INIT THE MASSBUS
sRESELECT THE DRIVE
;SETUP THE RM VECTOR

:BR IF NONE

;CORRECT THE STACK POINTER

;SETUP THE ERROR LOOP ADDRESS
sLOAD THE STACK POINTER

€2 R MvBO RMO5/3/2 EXT'D DR TST
T0
SERVO SETTLE DOWN TEST
456 012626
457 012632
458 012636
459 012640
460 012642
461 012644
462 012652
463 012654
464 012656
465 012660
466 012664
467 012670
468 012672
469 012676
470 012700
471 012702
472 012706
473 012710
474 012716
475 012722
476 012730
477 012734
478 012740
479 012744
480 012750
481 012756
482 012762
483 012770
484 012772
485 013000
486 013002
487 013010
488 013014

110164

000001
2%:

002470

DNWWNIN)
= =

005046
013746
005216
004737
062637
005726

4-APR-81 11:57:12 PAGE 14-11
MOvVB
MOV «
ASL
ASL

047106

&NJ*OO*O

AWV
ASTe
ST POV )

ik
b
b

b ok
b

e
e

b e
e

h e
o

od e

d e

b e
h

WWWWWWWWWWWW

MACRO V04.00

000010
00020

0003C0

489 013020
490 013026
491 013030
492 013034
493 013042
528 013050
013052
013060
13066
013074
013076
013104
[eolelalelelelelelelelele)

R1,RMCS2(R4)
RMLA(R4) ,=(SP)
(SP)
(SP)
(SP)
#300,1(SP)

SEQ 0078

;SELECT THE DRIVE
;GET THE LOOK AHEAD REGISTER
JALIGN THE SECTOR ADDRESS
;ALIGN THE SECTOR ADDRESS
;PUT ADDRESS IN LOWER BYTE

;IN THE LAST 20% OR SECTOR ?

;BR _IF NOT
s INCREMENT THE SECTOR ADDRESS
s INCREMENT THE SECTOR ADDRESS
(SP)+,DTADPB+10 ;LOAD THE DPB
T ;PUT MAXIMUM SECTOR ADDRESS ON THE STA(CK
+24 ,~(SP)
PRMLM
2%
(SP)
(SP)

047106

(SP)
*INCREMENT PAST THE MAXIMUM ADDRESS
(SP)+,DTADPB+10 :NEW SECTOR ADDRESS TOO LARGE ?
43
‘BR IF NOT

047106

DTADPB+10

000001
047102
000111
000002
000004
000006
047114
047076
040634
000001

047106

001750

040614

047100
177776
031224
001446

000000

* CONT INUE
:RESET ADDRESS TO SECTOR 1
:POINTER

(R3)+,RMWC(R4)
(R3)+.RMBA(R4)
(R3)+.RMDA(R4)

DTADPB+16
R1,DTUW

#1.DRVACT(R1)

001750

001450
001450
001450

002344
001446
002340

001450

002342
047030

“RESET TO SECTOR ADDRESS O

#DRVCLR ,RMCS1 (R4

040522

002342
002370
002344

026530
047030

48
#1,DTADPB+10
#DTADPB+4,R3

#DTADPB, TRNSWT

002370
002342

001450

*BR IF ADDRESS IS 2 GREATER THAN MAXIMUM

040572

001446
002344
002370

012356
002370
026426
026524

3%:
4%:

*RESET 'DONE’ INDICATOR
:LOAD °*TRANSFER' DPB ADDRESS
*ADDRESS OF DRIVE TRANSFERING
:SET DRIVE ACTIVE INDICATOR

*SHIFT DRIVE ADDRESS

:RESTORE R1

PS
RO,DRVCL1
SEKCNT,#1000.
6$
SEKCNT

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

#1000. , TIMER(R1)

:SETUP THE OPERATION TIMER

DTADPB+2,RMCS1(R%)

5%:

1C,NC1
NCT.LC
EXIT10
LC,DELTA

NCT,DELTA

1C,DELTA

6%:

7%:

:CLEAR THE DRIVE

:LOAD THE WORD COUNT
:LOAD THE BUFFER ADDRESS
:LOAD THE TRACK/SECTOR ADDK

:START THE OPERATION

:ADD THE INCREMENT
*EXCEEDED THE CYLINDER LIMIT ?
*BR IF IT HAS
“GET THE NEXT °"ZONE® ADDRESS
*CHECK THE DIFFERENCE

*DIFFERENCE GREATER THAN THE INCREMENT ?

*BR IF IT IS

FC.LC

*BEGINNING AND ENDING CYLINDERS THE SAME 2

1C.DELTA
SEKCNT
78
TEST10

NC1.DPB.A+12
PC, SRAND
$HINUM,-(SP)
-(SP)

DELTA,=-(SP)

(SP)
PC,$DIV
(SP)+,DPB.A+12
+
(SP)

*USE THE ICREMENT PARAMETER
*COUNT THE NEXT SEEK
:BR IF NOT
‘BR IF THEY ARE

:RESET THE CYLINDER ADDRESS
“CYCLE THE RANDOM NUMBER GENERATOR
:USE THE HIGH RANDOM NUMBER

sCLEAR THE UPPER DIVIDEND
sFORM THE DIVISOR
s INCREMENT
:DIVIDE
;ADD THE REMAINDER TO THE INITIAL CYLINDER
;DISCARD THE QUOTENT

CZRMVBO RMOS5/3/2 EXT'D DR TST
2

SERVO SETTLE DOWN TEST

MACRO v04.00

013164 023737 047030 047110

013206

013206 005337 001444
013212 061016
013214 012702 047016

TST108:

013224

013226
013234
013240
013246
529 013250
ggg 013252

DPB.A+12, ouonanz

DEC
BNE
MOV

SEKTMR
1s
#DPB.A,R2

;DECREMENT THE SEEK TIMER
SCONTINUE IF NOT DONE
*DPB ADDRESS

STIMEOUT DURING SEEK

MOV
JMP
JSR

104024

EMT

012764 000040 000010
MOV
110164 000010
MOVB
016676 000002 000000
MOV
000401
BR
000002
RTI
000004
exmo SCOPE

gz%

SEQ 0079

(MP

BEQ

013220 004737 045654

4&~APR-81 11:57:12 PAGE 14-12

013172 001754

013174
013737 047030 047110
013202 000137 012356

:SAME CYLINDER SELECTED AS LAST TIME 2

IF 1T WAS

DPB.,
mz ouonao’iz
:COPY NEW CYLINDER ADDRESS
TEST10
CONTINUE
PC,SVRH70

#CLR,RMCS2(R4)
R1,RMCS2(R4)
2(5P) .a(sP)
ExIT10

“SAVE THE REGISTERS

:INIT THE MASSBUS
-RESELECT THE DRIVE
*RESTORE THE (LOCK VECTOR " ADDRE SS
“ABORT THE TEST
*RETURN
“CALL SCOPE ROUTINE

.-:QQ.'..t..Qt.t..t.'."'Q'."Q'...'...t....!.t't"t't.t."..""'

S*TEST 11
ALL SEEKS TEST
‘«THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER
:+T0 ALL OTHER CYLINDERS.

-eecmms WITH CYLINDER "FC*, THE TEST SEEKS TO EACH CYLINDER
S+BETWEEN 'FC' AND ‘LC' FROM CYINDER *FC'.
THE BEGINNING CYLINDER
“«ADDRESS 1S INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW (YL INDER
*«ADDRESS AND ALL CYLINDERS BETWEEN 'FC* AND °‘LC*.
THE SEQUENCE

*«CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED.

013254

:.‘"..tt.Q....I...'..".".Q..Q..'....Q..t".....'tt'...t"t"".

78111

000240

013256 033737 001562 001332

BITS+<11#2>, TSTAMS
.+6
TsT12

:BR IF YES
“NO--JUMP TO TEST12

001116
001126
001220

MOV
JSR
MOV
MOV

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

001240

MOV

#11,8TSTNM
PC,LODPRM
#TEST11,8LPERR
RPT.S$TIMES
#25.,SERMAX
#11.$TESTN

8I7

#SW12,3SWR

;INMIBIT TYPING TEST NUMBER 2

MOVB
MOVB
MOVB
MOVB

FS,DPB.B+10
FS.DPB.C+10
FT.DPB.B+11
FT.DPB.(+11

013264 001002
013266 000137 013520

013272
013300
013304
013312

012737
004737
012737
013737

000011
030142
013440
002336
013320 112737 000031
e 013326 012737 000011

BNE
JMP

001131

013334

032777

010000

165612

546 013366
547 013374
548 013402
549 013410

113737
113737
113737
113737

002354
002354
002346
002346

047046
047066
047047
047067

013342
013344
013350
013354
013356
013357
545 013360

NOP

BIT

001406
104401 047617
013746 001240
104403
003
000
012737 013366 001122

550 01316 013737 002340 047050
551 013424 013737 002340 047070

MOVB

18:

BEQ
TYPE
MOV
TYPOS
BYTE
BYTE
MOV

MOV
MOV

:DO THIS TEST?

“MAX ERRORS ALLOWED FOR TEST

2:SET TEST NUMBER IN APT MAIL BOX

+16
,MSGTST
$TESTN,=(SP)
3
0
#1$,SLPADR

*BR IF YES
STYPE °*TEST®
..SAVE $TESTN FOR TYPEOUT
GO TYPE-~OCTAL ASCII
S:TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZCROS
:SETUP THE LOOP ADDRESS

FC.DPB.B+12
FC.DPB.C+12

*STARTING CYLINDER ADDRESS
*STARTING CYLINDER ADDRESS

:SECTOR ADDRESS
*SECTOR ADDRESS
*TRACK ADDRESS
*TRACK ADDRESS

$1ZRHV80 RMOS5/3/2 EXT'D DR TST

ALL SEEKS TEST

555 013432
013440
ggg 8}3}2’22

MACRO v04.00

012737

013516

012706

001100

MOV
TEST11:
1
MOV

558 013450

004037
004037

030766
030550

JSR
JSR

561 0713470

002365

013444

559 013454
S6C 013462

063737
023737

562 013472
563 013500
So4 013506

013737
063737
023737

566 013516

000004

565 013514

002353

001350

c 7
4=-APR-81 17:57:72 PAGE 14-13

002344
002342

047070
047070

ADD
(MP

002340
002344
002342

047070
047050
047050

MOV
ADD
(MP

BGE

ExIT11: SCOPE

#EXITI1,BYPASS

;TEST ABORT EXIT

#STACK,SP

JSETUP THE STACK POINTER

RO, CALL.C
RO, CALL.B

;GO EXZCUTE THE COMMAND
;GO EXECUTE THE COMMAND

;BR _IF NOT

1C,DPB.(C+12
LC.DPB.C+12
FC.DPB.C+12
1C,DPB.B+12
LC,DPB.B+12
%

s INCREMENT THE ENDING CYL INDER ADDRESS
sCHECK IF EXCEEDING MAXIMUM
JRESET ENDING CYLINDER ADDRESS
; INCREMENT THE STARTING ADDRESS
JEXCEEDING MAXIMUM ?
;BR IF NOT

:CALL SCOPE ROUTINE

SEQ 0080

CZRMVBO RMOS/3/2 EXT'D DR TST
TIMING TESTS
WM .

.SBTTL

D 7
4-APR-81 11:57:12 PAGE 15

SEQ 0081

TIMING TESTS

SIIIIIIILIIILIIIII
00 11010017077777777777177717771717771711777777

00N
= OO0 NN

;*THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BE ING
i*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE ‘RM0S/3/2

:*ENGINEERING SPECIF ICATIONS''.

:«THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK

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

';sggg THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE

LA ] SR
Y

MACRO V04.00

S2IIIIITIIIIIIIIIII0101011110771101707771111710777111711717177717
SRR

AR AN R AR A AR R

AR AR AR AANAAIARAAARARAARARAAAAAAAAI
AR AR AR NN

tTEST 12
ROTATIONAL SPEED TIMING TEST
:*THIS TEST WILL START A SEARCH TO CYLINDER ‘FC', TRACK °FT°,

s*SECTOR 'FS'.
AS SOON AS THE INTERRUPT OCCURS, THE GO BIT
:+1S SET AGAIN AND THE OPERATION IS TIMED.
THIS PROCEDURE
;*1S REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED
*AND CHECKED TO ENSURE IT IS WITHIN TOLERANCE:

i*
;e

RMOS5/3:

- %

i
i

RMO2:

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

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

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

013520
013520
013522

013530
013532

000240
033737
001002
000137

tsr12:
001564

001332

013536
013544
013550
013556
013564
013572

000012
030142
014116
002336
112737 000031
012737 000012

001116

013600
013606
013610
013614
013620
013622
013623

032777
001406
104401
013746
104403
003
000

010000

165346

005737

001342

014440

;D0 THIS TEST?
BITS#<12+2>,TSTAMS
.46
:BR IF YES

TST13

NO--JUMP TO TEST13

MOV
JSR

#12,8TSTAM
°C,LODPRM

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

MOV

RPT,STIMES

:GET THE ITERATION COUNT

MOV

001124
001220
001131
001240

#25.,SERMAX
#12,$TESTN

BIT

#SW12,asWR

Moy

$TESTN,-(SP)

.BYTE
BYTE

3
0

CLKSTA

EXITI2

JSR
BR
JMP

RO, SRCHCO
2%
EXIT12

TYPOS

BGT
001122

1$:

#TEST12,SLPERR

MOVB
MoV
BEQ
TYPE

047617
001240

014440
013636
032552

BIT
BNE

014442

012737
004737
012737
013737

NOP

MOV

.*16
,MSGIST
'

4., SLPADR

:SETUP THE LOOP ON ERROR ADDRESS

:MAX ERRORS ALLOWED FOR TEST
:;SET TEST NUMBER IN APT MAIL BOX
; INHIBIT TYPING TEST NUMBER ?

:BR IF YES
:TYPE 'TEST'

:;SAVE STESIN FOR TYPEOUT
:G0 TYPE=-OCTAL ASCII

:iTYPE 3 DIGIT(S)
: 1SUPPRESS LEADING ZEROS
;KW11-P_CLOCK?

:YES=~START TEST

INO==JUMP TO EXIT12
:SETUP LOOP ADDRESS

;DO A MASSBUS INIT B RECAL
:RETURN HERE IF NO ERROR
:RETURN HERE IF ERROR

MACRO V04.00 4-APR-81 11:57:12 PAGE 15-1

C P4 RMVBO RMQS/3/2 EXT'D DR TST
T 2
ROTATIONAL SPEED TIMING TEST

013656
013664
013672
013676
013704
013712
013716
013724
013730
013736
013742
013750

012737

013656
000105
047026
002340
014440
030402
002340
002354
002346
000006
014440

001122
047020

000034

70 014016

71
72
73
74
75
76

014020
014024
014032
014040
014042
014050

77 014056

78 014062

79 014070
8C 014072
81 014100

82 014104
83 014112
84 014114
87 014116
88 014116
89 014122
90 014126
91 C14132
92 014140
93 014146
9 014152
95 014160
96 014164
97 014166

98 014174
99 014202

100 014204

014206

014212
014216
014222
101 014224
102 014226

001314

001650
001650
001732
000005

014430
014436
040542

001630
001630
001716

014412
014420

001620
001620
001710

014412

000012
032736
014320
032734
165344

000131
000131

165334

000101
040000

165320
000012

38:

FC,DPB,A+12
JSTARTING CYLINDER
#EXIT12,BYPASS ;GO TO EXIT12 IF ERROR
RO, CALL .A
:Gg EXECUTE THE COMMAND
F
FC.RMDC (R4)
S
FS.=(SP)
FT
FT.1(SP)
L OAD FT/FS
(S5)+,RMDA (R4 )
ESCAPE TO EXIT12 ON ERROR
#EX1T12,$ESCAPE
-

’

; COUNT UP

,
C . SWR
#5W06
33

JCHECK CONTROL SWR FOR 60 HZ.
:BR IF YES

CMPB
BEQ

#5,DRVTYP(RO)
48

*AN RMO2 DRIVE ?

MOV
MOV
MOV
BR
MOV
MOV
MOV

48:

18:

;LOAD 50 HZ. TABLE “FOR RMO2

*BRANCH IF SO

MOV

MOV
MOV
JSR
MOV
MOV
CLR
MOV
MOV

#STACK, SP
#10. .Ri
PC.STRTMR
#78,aPKV
#DORT
] , BRMVE
aPKB
#131,aPKCS
#SEARCH, (R&)

;SETUP STACK

BIC
BIT

#101,8PKCS
(R4)
RR
. RMDS
#E

;STCP THE CLOCK
+sERROR?
:NO==-BRANCH

BEQ
MOV
MOV
MOV

NOP

WAIT

BEOQ

SAVREG

MOV

JSR

RESREG

#7781,R3
#1781, TP50.
#SP781,1PS50

#178,R3
#T78.TPS50
#SP78, TPSS0
43
#T7A1,TP60
#SP7A1, TPS60
#T7A1,R3
#5,DRVTYP(RO)
43
#T7A,TP60
#T7A.R3
#SP7A, TPS60
(SP)+.RO

CMPB

047076
045554
027334
165264

s SEEK=COMMAND

BIT
BEQ

MOV
MOV
MOV

165350

024504

JUSE TRACK O & SECTOR 0

#SEEK,DPB.A+2

:SETUP PARAMETER TABLE FOR RMOS/RMO3/RM02
RO,=(SP)
MOV
;SAVE RO
MOVE
DTADPB,RO
;DRIVE ADDRESS

TEST12:

001100

DPB.A+10

CLR

040542

014420

CLR

MOV

014430
014436

001640
001724
001640
000005

;ERROR LOOP ADDRESS

MOV

001222

047076
000100

#.,SLPADR

MOVB

000001

SEQ 008/

MOV

MOV
MOV
JSR
MOV
MOV

047030
001350

62 013752
63 013754
64 013760
65 013766
66 013770
67 C13774
68 014002
69 014010

28:

Savan.

EMT

(LR

#DTADPB,R?2

PC,SVRH?0
PC.CNTCLR

aPKB

*LOAD 50 HZ. TABLE FOR RM05/3

SEXIT

*LOAD 60 HZ. TABLE FOR RMO2
L4

AN RMO2 DRIVE ?
BRANCH IF SO

*LOAD 60 HZ. TABLE FOR RMOS/3

*RESTORE RO

JEXIT

:TIME 10 SEARCHES
JINITIALIZE THE TIMERS
;SETUP VECTOR IN CASE OF OVERFLOW
;SETUP RM VECTOR
:START COUNTING AT ZERO

JINT.EN., COUNT UP AT 100kH2
:START A SEARCH
JWAIT ON INTERRUPT

;SAVE RO-RS5
;DPB POINTER
:SAVE ALL THE RH/RM REGISTERS
;GO CLEAR MASSBUS CONTROLLER

;RESTORE RO-RS

:DISK ERROR OCCURRED
, :START THE COUNT AT ZERO

ZRMVBO RMQS/3/2 EXT'D DR TST

MACRO V04.00

R OTAT IONAL SPEED TIMING TEST

13RO

103 014232
104 014236

105 014244
106 0142646

107 014254

108 014262

109 014264
014266

01274
012777

000001
042777

032764

001411

000137
(000131

165250

000101

165240

040000

4-APR-81 11:57:12 PAGE 15<2
MOV

#SEARCH, (R4)

JSTART A SEARCH

WAIT
BIC

#101,aPKCS

JWAIT ON INTERRUPT
sSTOP THE CLOCK

sNO==BRANCH

MOV

000012

:SAVE RO=RS
:DPB POINTER

PC,CNTCLR

:GO CLEAR MASSBUS CONTROLLER

014276

004737

027334

JSR

110 014304
111 014306
112 014312
113 014314
114 014316
115 014320
116 014326
117 014332

104017
004737
005301
003314
000420
042777
005037
012600

118 C14334
119 014336
014340

014344

014350

014354

000101
177776

004737

027334

JSR

EMT
JSR
JSR

20
PC,CNTCLR
PC,ST.CLK

BNE
JSR

EXIT.A
RO,TYPTIM

104413

001007
004037

033240

139 0144246

140 014430
141 014432
142 014436

;22 014440

7%:

17
PC,COUNT
R1
1$
8s
#101,aPKCS
PS
(5P)+,RO

047076

138 014404
014406

014422

165166

004737 045654

027334
027426

014414
014420

3%:

EMT
JSR
DEC
BGT
BR
BIC
CLR
MOV

TSt
SAVREG
MOV

104020
004737
004737

014412

RESREG

»C., SVRH?O

005726
104412
012702

120 014356
121 014360
122 014364

123 014370
124 014376

JSR

033000

012777
032737
001620

043306
000100

JSR

RESREG
8%:

024254
001374

MOV
BIT
TP60:

T7A

004037
001710

033132

004037

033240

EXIT.A:

004037
001716

033132

JSR
TPS50:
SP7B
EXIT12: SCOPE

000406
001630

TPS60:
TP50:

000004

153
154

;1S '"ERR=1'"

#DTADPB,R?2

047076

SAVREG
MOV

104413

;START THE CLOCK

H#ERR,RMDS(R4)

BEQ

014272 004737 045654

#1371 ,aPKCS

BIT

104412
012702

014302

JSR
SP7A

JSR

178

AR AR AN R AR

(SP) +

SAVE ALL THE RH/RM REGISTERS
:RESTORE RO=-RS5

:DISK ERROR OCCURRED
“UPDATE THE COUNT
;DONE?
s NO==BRANCH
JYES==GO TO THE EXIT
;STOP THE CLOCK
:DROP THE PRIORITY
:PC OF WAIT+?2

#DTADPB,R2

POP THE PS FROM THE STA(K
SAVE RO-RS5
DPB POINTER

PC,CNTCLR

;GO CLEAR MASSBUS CONTROLLER

PC. SVRH70

#1SR,aRMVEC
#SW06,C.SWR

RO,SPTYP

EXIT12

RO,TYPTIM

RO,SPTYP

:SAVE ALL THE RH/RM REGISTERS
;RESTORE RO-R5

;CLOCK OVERFLOWED
;GO0 CLEAR MASSBUS CONTROLIER
JINITIALIZE THE CLOCK

JRESTORE RH/RM INT. VECTOR
;60 HZ?
s NO-BRANCH
;TYPE THE TIMING

s TABLE ADDRESS
;TYPE THE SPEC

SEXIT
;TYPE

THE

TIMING

;TABLE ADDRESS
:
:

;CALL SCOPE ROUTINE
AR AN RN AR RN R AR R R RN AR R R AR

AR AR AR R RAR AR TR TR RRR

S4TEST 13
ONE CYLINDER SEEK TIMING TEST
*«THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE TE

“«CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE
*«CYLINDER 'LC', THEN REVERSE SEEK TO CYLINDER 'FC'. THE

*«TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT

T#EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK.
«MAXIMUM TIME

014442

000240

014452

001002

—

014444
St

014456

75113:

033737

(0071566

000137

015144

001332

1S 6.0 MS.

NOP

BIT

BITS+<1322> ,TSTNMS

JMP

TST14

BNE

.+6

;DO THIS TEST?

:BR IF YES

JNO==JUMP TO TEST14

MACRO v04.00
ONE CYLINDER SEEK TIMING TEST

CZRMVBO RM0S/3/2 EXT'D DR TS!

113

014460
014466

155

014472
014500
014506
014514

VIS
WA
=
mgmmmgw\:ww
000~

]
e
e
e
e
e
e
B

112737

012737

032777

010000

104401

047617
001240

014544
014545

003

014546
014552
014554
14560
014566
014572
014574

014600
014606
014614
014620
014626
014634
014640
074644
014652
014652
014656
014664
014670
014672
014676
014704

014712
014716
14724

186 014730
187 014736
188 014740

[r————

013737

014522
014530
014532
074536
014542

156
157
160
161
162
163
175

012737
004737
012737

189 014746
190 014754
191 014756

014760
014764
014770
014774
192 014776

001406

013746
104403

005737

003002
000137
012737
004037
000402

000137
012737
112737
005037

013737
012737
004037
012703
012737
012706
013737
005237
005005
004737
012777
012777
005077
013764
012714
012777
000001
042777

015142
014560
032552
015142

014600
000105
047026
002340
015142
030402
001660
015142
001100
002340
047110
032736
015050
032734
164600
047110
000105

00131

000101
040000

196 015010

047110

J:SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ

#SW12,3SWR
16

;INHIBIT TYPING TEST NUMBER ?
+BR IF YES

MOV
TYPOS

$TESTN,=(SP)

;;SAVE STESTN FOR TYPEOUT

BYTE
.BYTE

3
0

“:TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS

TST

CLKSTA

:KW11=P (LOCK?

MOV

#.,SLPADR

EXIT13

*NO==JUMP TO EXIT13

MOV
MOV
MOvVB
MOV

164424

TYPE

001122

001122
047020

2%:

047030
001350

001222

TEST13:

RO, SRCHOO

2
EXIT13

#.,SLPADR
#SEEK,DPB.A+2

DPB.A+10

FC,DPB,A+12

::GO TYPE=~OCTAL ASCII

SYES==START TEST

*SETUP THE LOOP ADDRESS

‘DO A MASSBUS INIT. AND RECAL

*NO ERROR RETURN
“ERROR RETURN--SCOPE LOOP CALL
:ERROR LOOP ADDRESS
:SEEK=COMMAND

*USE TRACK O & SECTOR 0
*STARTING CYLINDER

+GO TO EXIT13 IF ERROR

:SETUP STACK

#DORTI,ARMVEC

:START WITH BEGINNING CYI INDER

*INCREMENT THE BEGINNING CYi INDER

*SET THE UP/DOWN SWIiTCH TO UP
“INITIALIZE THE TIMERS
*SETUP INCASE OF OVERFLOW
;SET RM VECTOR

aPKB
*START THE COUNTER AT ZERO
:LOAD DESIRED CYL INDER
DTADPB+12 ,RMDC (R&)

#101,aPKCS
#ERR_RMDS(R4)

#DTADPB,R2

PC,SVRH?0

3%:

"TEST'

#STACK, SP

#131,39PKCS

164546
000012

:TYPE

#EXIT13,8ESCAPE ::ESCAPE TO EXIT13 ON ERROR

#SEEK, (R&)

164556

;MAX ERRORS ALLOWED FOR TEST

*GO EXECUTE THE COMMAND
*PARAMETER POINTER

DTADPB+12

1%:

;SETUP THE LOOP ON ERROR ADDRESS

JGET THE ITERATION COUNT

RO, CALL.A
#110,R3

RS
PC,STRTMR
#7%, aPKy

164604

000034

JSR
BR
JMP
MOV
mMovB
CLR

,MSGTST

FC.DTADPB+12

047110

023740

BGT
JMP

#25. , SERMAX

#EXIT13,BYPASS

047076
045654
027334

033000

#13.$TESTN

001124
001220
001131
001240

JSR

1%:

SEQ 0084

JSET TEST #13 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST

MOV

001342

G 7
11:57:12 PAGE 15-3

#13,8STSTNM
PC ,LODPRM
#TEST13,$LPERR
RPT,$TIMES

001116

000

193 015000
194 015004

195 015006

4=-APR-81

:START A’ SEEK

*START THE CLOCK

*WAIT ON INTERRUPT
*STOP THE CLOCK
:ANY DISK ERRORS?

:NO--BRANCH
*SAVE RO-RS

‘DPB POINTER

“SAVE ALL THE RH/RM REGISTERS

PC.CNTCLR

16O CLEAR MASSBUS CONTROLLER

*DISK ERROR OCCURRED

PC,COUNT
RS
4%

DTADPB+12

*RESTORE RO-RS

*COUNT THIS SEEKS TIME
*UP OR DOWN?
* DOWN==BRANCH

*MOVE TO NEXT CYLINDER

197 015014
198 015022
199 015024

023737
002733

002342

000101

177776

002340
164436

4%:

7%:

—d —

el —

027334
027426
043306
033240

?;ADPB¢12.FC

MOV
TST

(SP)+,R0
(SP)+

CLR

SAVREG

MOV
JSR
JSR
RESREG
EMT
JSR
JSR
MOV

8%:

023524

DTADPB+12

BIC

JSR
T10
JSR
SP10

033132
000004

1%
#-1,RS

g$
#101,9PK(S

047076
045654
027334

DTADPR+12,L(

CMP
BLT
MOV
BR
DEC
CMP
BGT
BR

1777277

047110
047110

—

e —

134
140
142

eiclelolelololelels}

SN —=O
WNRNAWV

POAROMNONONOND

NN
=2 = cd wd

cnd e

PPN

d wed md

200 015030
201 015032
202 015036
203 015044
204 015046
205 015050
206 015056
207 015062
208 015064
209 015066

047110

11:57:12 PAGE 15-4

&4=APR-81

MACRO V04.00
CZRMYBC RMQOS5/3/72 EXT'D DR TST
113
TEST
TIMING
SEEK
ONE CYLINDER

#DTADPB,R2

PC,SVRH?0
PC.CNTCLR

PC,CNTCLR
PC,ST.CLK
#1SR,aRMVEC

RO,TYPTIM

RO,SPTYP

AR AR AR

'TEST 14

JMOVE TO NEXT CYLINDER
;OUT OF CYLINDERS?

:NO=-=GO DO THE NEXT SEEK

;GO TO THE EXIT
:STOP THE CLOCK
;DROP THE PRIORITY

;PC OF WAIT+Z2
;POP THE PS FROM THE STA(K
;SAVE RO=R5

;DPB POINTER
;SAVE ALL THE RH/RM REGISTERS
;GO CLEAR MASSBUS CONTROLLER

JRESTORE RO=R5

JREPORT CLOCK OVERFLOW
;GO CLEAR MASSBUS CONTROLLER
JINITIALIZE THE CLOCK
JRESTORE RH/RM INT. VECTOR
;GO TYPE THE TIMES
;POINTER

:CALL SCOPE ROUTINE

EXIT13: SCOPE

sOUT OF CYLINDERS?
sNO==GO DO THE NEXT SEEK
JSET UP/DOWN SWITCH TO DOWN
;GO DO THE NEXT SEEK

AR AR AR

AT AR AAAAR A A AR AAAAAARAAIAARAAAARA
A AR AR

AVERAGE SEEK TIMING TEST

:*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER 'FC' TO

SEEK FROM CYLINDER ‘LC" TO
:«CYLINDER 'LC®, THEN A REVERSE
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY
s*CYLINDER ‘FC°'.

*«ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK TIME.
;*THIS SEQUENCE IS REPEATED 128! TIMES (FOR A TOTAL OF 256 SEEKS).
q.u hl.h!

'MAXIHUH TIME IS 30.0 Ms.

(sleliNelelaloleleNelolslo
e

- &

———————

000240

033737

001002
000137

012737
004737
012737
013737

112737

012737

032777
001406

THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME
THEREFORE, THIS TEST SHOULD BE
ON
THIS PARTICULAR DRIVE.
USED FOR REFERENCE ONLY.

AR AR

15714

001570

001332

015704
000014

030142
015354
002336
000031
000014
010000

001116

AR AA A AR AR

NOP
BIT
BNE
JMP

MOV

001124 -,
001220
001131
001240

MOV

163722

JSR
MOV
MOV
MOvB

BIT
BEQ

AR AR AR AR

AN AR

A AR A AR

AR AR

AR AR RS

;DO THIS TEST?
BITS+<14#2> , TSTNMS
:BR IF YES
.+6
TST15

sNO-=JUMP TO TEST15

#14,3TSTNM
PC,LODPRM
#TEST14,8LPERR
RPT,$TIMES
#25. SERMAX
#1464 ,$TESTN

;SET TEST #14 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE fEST
;SETUP THE LOOP ON ERROR ADDRESS
sGET THE ITERATION CCUNT
JMAX ERRORS ALLOWED FOR TEST
;.SET TEST NUMBER IN APT MAIL BOX

#SW12,aSWR

JINHIBIT TYPING TEST NUMBER ?

416

:BR IF

YES

MACRO v04.00
CZRMYBO RMQOS5/3/2 EXT'D DR TST
T4
AVERAGE SEEK TIMING TEST
015234
015240
015244
015246
015247
235 015250
236 015254
239 015256
260 015262
241 015270
242 015274
256 015276
015302
015310
015316
015322
015330
015336
C15342
015346
015354
255 015354
256 015360
257 015364
258 015370
259 015376
260 015404
261 015410
262 015416
263 015424
264 015432
265 015434
266 015442
267 015450
268 015452
015454
015460
015464
015470
269 015472
270 015474
271 015476
272 015502
273 015506

274 015514
275 015522
276 015530
277 015532
278 015540
279 015546
280 015550
5552

104401

013746

104403

.
&=-APR-81 11:57:12 PAGE 15-5

047617
001240

000

005737
003002
000137
012737
004037
000402
000137
012737
112737
005037
013737
012737
004037
012703
012737

001342
015702
015262
032552
015702
015302
000105
047026
002340
015702
030402
001670
015702

012706
012701
004737
012777
012777
005077
013764
012764
012777
000001
042777
032764
001411

001100
000200
032736
015610
032734
164106

012702
004737
004737
104413

047076
045654

104412

002342
000105
000131
000101
040000

001122

001122
047020

001222

164112
023246

000034
000000
164062

J:TYPE 3 DIGIT(S)

TST

CLKSTA

:KW11=P CLOCK?

JMP
MOV
JSR
BR
JMP
MOV
MovB

EXIT14

sNO==JUMP TO EXIT14

RO, SRCHOO

;DO A MASSBUS INIT £ RECAL

;YES==START TEST

#.,8LPADR

JSET

2%
EXIT14

#,,8LPADR

#SEEK ,DPB.A+2

DPB.A+10

#STACK, SP

*START COUNT AT ZERO

#101,aPKCS
#ERR_RMDS(R4)

PC,SVRH?0

000101
040000

163754
000012

004737

047076
045654
027334

RESREG

EMT

THE COUNTERS

aPKB

#131,3aPKCS

JSR
CLR
MOV
MOV
MOV
WAIT
BIC
BIT
BEQ
SAVREG
MOV
JSR
JSR

;GO TO EXIT14 IF ERROR
;G0 EXECUTE THE COMMAND
;PARAMETER POINTER
;;ESCAPE TO EXIT14 ON ERROR

“INIT.

#DTADPB,R2

033000

;STARTING CYLINDER

“SET UP VECTOR IN CASE CF OVERFLOW

#SEEK ,RMCST(R4)

2%:

JUSE TRACK O & SECTOR O

#7%, aPKV

LC,RMDC (R&)

RESREG

;SEEK=COMMAND

“REPEAT "“FC'="LC*="FC'"* 128 TIMES

#DORTI,BRMVEC

000012

;ERROR LOOP ADDRESS

:SETUP STACK

PC,STRTMR
1%:

THE LOOP ADDRESS

;RETURN HERE IF NO ERROR
;RETURN HERE ON ERROR

HEXIT14,BYPASS
RO,CALL.A
#T11,R3
HEXIT14,8ESCAPE

TEST14:

;.60 TYPE==OCTAL ASCII

;s SUPPRESS LEADING ZEROS

FC.DPB.A+12

164052

042777
032764

104017

BYTE
BYTE

#128. R

000034
000000
163764

004737
104413

;TYPE 'TEST!
;:SAVE STESTN FOR TYPEOUT

047030
001350

002340
000105
000131

001411
104412
012702

2%:

027334

164010

JMSGTST
$TESTN,=(SP)

BGT

104017

005005
004737
005077
013764
012764
012777
000001

TYPE

MOV
TYPOS

003

SEQ 008«

PC.CNTCLR

17
RS
PC, COUNT

aPKB

:SETUP RM VECTOR

:*MIDDLE® CYLINDER
:START A SEEK

*START THE CLOCK

*WAIT ON INTERRUPT
*STOP CLOCK
:ERR=1?

*NO--BRANCH

:SAVE RO-RS

:DPB POINTER

*SAVE ALL THE RH/RM REGISTERS
26O CLEAR MASSBUS CONTROLLER

*RESTORE RO-RS

:DISK ERROR OCCURRED
“SET UP/DOWN SWITCH TO uP
“UPDATE THE COUNT

*START THE COUNT AT ZERO

FC,RMDC (R&)
#SEEK,RMCS1(R4)
#131,9PKCS

*BEGINNING CYLINDER
:START A SEEK
*START THE CLOCK

#101,aPKCS
#ERR_RMDS(R4)

*STOP THE CLOCK
:ERR=1?

sWAIT ON_INTERRUPT

*NO=-BRANCH

#DTADPB,R2

‘DPB POINTER

PC,SVRH?0

PC.CNTCLR
17

*SAVE RO=-RS

*SAVE ALL THE RH/RM REGISTERS
*GO CLEAR MASSBUS CONTROLLER
;RESTORE RO-R5
;DISK ERROR OCCURRED

MACRO v04.00
CZRMVBO RMO5/3/2 EXT'D DR TST
14
AVERAGE SEEK TIMING TEST
282 015572
283 015576
284 015602
285 015604
286 015606

287 015610
288 015616
289 015622
290 015624
291 015626
015630
015634
015640
015644
292 015646
293 015650
294 015654
295 015660
296 015666
015672
297 015674
298 015700
299 015702
300
317
318

012795
004737
005301
003277
000420
042777
005037
012600
005726
104412
012702
004737
004737
104413
104020

004737
004737
012777
004037

3s:

172777

033000

000101

177776

4=-APR-81

163676

MOV
JSR
DEC
BGT
BR
BIC
CLK
MOV

7%:

SAVREG

047076
045654

027334
027426
043306
033240

:
022764

8$:

JSR
RESREG
EMT
JSR
JSR

PC.CNTCLR

MOV.
JSR
T

001670
004037 033132
001746 000004

EXIT14:
L

JSR
SP11

“UPDATE THE COUNT
*DONE?
*NO==BRANCH

CYES==EXIT
‘STOP THE CLOCK

*DROP THE PRIORITY
“PC OF WAIT+2

(SP)+

#DTADPB,R?2

SEQ 0087

;SET UP/DOWN SWITCH TC DOWN

#-1,R5
PC, COUNT
R1
1$
8$
#101,8PKCS
PS
(SP)+,R0

MOV

- JSR

027334

7
J
11:57:12 PAGE 15-6

‘POP THE PS FROM THE STACK

*SAVE RO-R5

*DPB POINTER

PC,SVRH?0

*SAVE ALL THE RH/RM REGISTERS
"GO CLEAR MASSBUS CONTRO.LER
*RESTORE RO=-RS
*CLOCK OVERFLOWED
:GO CLEAR MASSBUS CONTROLLER
*INITIALIZE THE CLOCK

20
PC,CNTCLR
PC.ST.CLK
#1SR, BRMVE C
RO,TYPTIM

*RESTORE RH/RM INT. VECTOR
“GO TYPE THE TIMES
‘POINTER

RO,SPTYP

SCOPE

:CALL SCOPE ROUTINE

2222223233322 3323132 3322333333333 33333333:332333823223232223222222%33

ATEST 15

MAXIMUM SEEK TIMING TEST

S*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER °FC* TO

“«CYLINDER 'LC', THEN A REVERSE SEEK FROM CYLINDER ‘LC' TO
*«CYLINDER "FC'. BOTH SEEKS ARE TIMED, BUT ONLY THE FORWARD SEEKS

**ARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLERANCE ALLOWED FOR
*«THE MAXIMUM SEEK TIME.
THIS SEQUENCE IS REPEATED 128 TIMES (FOR
:*A TOTAL OF
OF 256. SEEKS). MAXIMUM (FORWARD) TIME IS 55.0 MS.

: "IHERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE
* SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE
* SEEK TIMES ABOVE THE MAXIMUM TIME OF 55.0 MS WILL NOT BE
* TYPED IN THE TIMING REPORT. MHOWEVER, THE TIMING REPORT
* WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES
*

FOR THE REVERSE SEEKS.

’

- %

:..t!.'t"..*'i".Q.i."t'.t"...'.t"'.."....t.‘It.'t"."."'t
015704
015704
015706
015714
015716

319

00240
033737
001002

i8115:
001572

000137

016454

015722
015730
015734
015742
015750

000015
030142

015756

012737
004737
012737
013737
112737
012737

015764
015772

032777
007406

010000

016114

002336
000031
000015

NOP

BIT
BNE

:DO THIS TEST?
BITS+<15¢2>, TSTNMS
+6
:BR IF YES

75716

*NO-~JUMP TO TEST16

001116

MOV

#15,8TSTANM

:SET TEST #15 AND CLEAR (SERFLG)

001124
001220

MOV
MOV

MOVB
MOV

#TEST15,8LPERR
RPT,STIMES

#25.,SERMAX
#15.$TESTN

-SETUP THE LOOP ON ERROR ADDRESS
“GET THE ITERATION COUNT

163162

BIT

#SW12,aSWR

001332

JMP

001131
001240

JSR

BEQ

PC.ODPRM

L+16

;

*LOAD THE PARMETERS FOR THE TEST

*MAX ERRORS ALLOWED FOR TEST
Y:SET TEST NUMBER IN APT MAIL BOX
SINHIBIT TYPING TEST NUMBER ?
;BR IF

YES

CZRMVBO RKMOS5/3/2 EXT'D DR TST
115

MAXIMUM SEEK TIMING TEST

015774

104401

321 016014

003002

MACRO Vv04.00

&=~APR-81 11:57:12 PAGE 15-7

047617

TYPE

MSGTST

SEQ 008&

sTYPE *TEST'

016000 013746 (01240
016004 104403
016006
003
016007
000
320 016010 005737 001342

MOV
TYPOS
BYTE
BYTE
TST

$TESTN,=(SP)
3
0
CLKSTA

“:SAVE STESTN FOR TYPEOUT
;G0 TYPE=-=OCTAL ASCII
SSTYPE 3 DIGIT(S)
*“SUPPRESS LEADING ZEROS
:KW11=P CLOCK

324 016016
325 016022
356 016030
327 016034
339 016036
016042
016050
016056
016062
016070

JMP
MOV
JSR
B8R
JMP
MOV
MOVB
CLR
MOV
MOV

EXIT1S
#.,SLPADR
RO.SRCHOO
28
EXIT1S
#.,SLPADR
ASEEK,DPB.A+2
DPB.A+10
FC,DPB,A+12
#EXIT15,BYPASS

‘NO==JUMP TO EXIT1S
*SETUP THE LOOP ADDRESS
‘DO A MASSBUS INIT & RECAL
SRETURN HERE IF NO ERROR
*RETURN HERE ON ERROR
*ERROR LOOP ADDRESS
:SEEK=COMMAND
“USE TRACK 0 & SECTOR 0
*STARTING CYLINDER
:GO TO EXIT1S IF ERROR

016076

000137
012737
004037
000402
000137
012737
112737
005037
013737
012737
004037

03255

016452
016042
000105
047026
002340
016452
030402

001122 2%:

047020

047030
001350

C16102 012703 001700
812%?2

012737

016452- 001222

34,0 016114

012706

001100

341 016120
3,2 016124

012701
004737

346 016150
347 016156

013764
012764

002342
000105

000034
000000

351 016202
352 016210

032764
001411

040000
|

000012

348 016164 012777 000131
349 016172 000001
350 016174 042777 000101

163322
163312

354 016232
355 016234

104017
005005

357 016242
358 016246
359 016254
350 016262
361 016270
362 016272

005077
013764
012764
012777
000001
042777

104413

032764 040000
001411
104412

016312 012702 047076
016316 004737 045654

016322
016326
366 016330

004737
104413
104017

027334

MOV
MOV

.
|

JSR

RESREG
28:

000034
000000
163224
163214
000012

*GO EXECUTE THE COMMAND

‘PARAMETER POINTER

WSTACK,SP

;SETUP STACK

#7%, aPKV
#DORTI,SRMVEC
aPKB

*SETUP VECTOR IN CASE OF OVERFLOW
:SETUP RM VECTOR
*START COUNTING FROM ZERO

#128.,R1
PC,STRTMR

JSR

i56 016236 004737 033000

363 016300
364 016306
365 016310

MOV
MOV
' CLR

*REPEAT ""FC'="LC'="FC'"* 128 TIMES
YINIT. THE TIMERS

#131,3PKCS
#101,3PKCS

#ERR.RMDS(R4)
P

PC,SVRH?0
PC.CNTCLR

*START THE CLOCK
*WAIT ON INTERRUPT
*STOP THE CLOCK
:ERR=1?
*NO--BRANCH

*SAVE RO-RS
:DPB POINTER

*SAVE ALL THE RH/RM REGISTERS
160, CLEAR MASSBUS CONTROLLER

*RESTORE RO-RS

EMT
CLR

17
RS

CLR
MOV
MOV
MOV
WAIT
BIC

aPKB
*START COUNT AT ZERO
FC,RMDC (R&)
*BEGINNING CYLINDER
#SEEK ,RMCS1(R4) :START A SEEK
#131,3PKCS
*START THE CLOCK
*WAIT ON INTERRUPT
#101,aPKCS
:STOP. THE CLOCK

MOV
JSR

#DTADPB,R2
PC,SVRH?0

JSR

BIT
BEQ
SAVREG

JSR
RESREG
EMT

LC,RMDC(R4)
SMAXIMUM CYLINDER
WSEEK,RMCS1(R4) :START A SEEK

SAVREG
MOV
#DTADPB,R2

027334

163250
002340
000105
000131
000101

MOV
JSR

*YES==START TEST

MEXIT15,$ESCAPE ;ESCAPE TO EXIT15 ON ERROR

BIT
8EQ

016220 004737 045654
016230

MOV .

MOV
WAIT
BIC

353 016212 104412
016214 012702 047076
004737

RO, CALL .A

Mov= #Ti2,R3
MOV

000200
032736

JSR

23,3 016130 012777 016360 163352
34 016136 012777 032734 022506
345 016144 005077 163346
1$:

016224

BGT

016452
016022 001122 18:

PC, COUNT

WERR_RMDS(R4)
3$

PC.CNTCLR
17

*DISK ERROR OCCURRED
*SET THE UP/DOWN SWITCH TO UP

‘UP THE COUNT

: ERR''=1?
*NO=--BRANCH
*SAVE RO-RS

:DPB POINTER
‘SAVE ALL THE RH/RM REGISTERS

‘G0 CLEAR MASSBUS CONTROLLER
‘RESTORE RO=-RS
;DISK ERROR OCCURRED

012709
0047%7
005037
005037
005301
003273
000420
042777
005037
012600
005726

379
380
381
382

104020

016414
016416
016420
016424
G16430

383 016436

016442
384 016444
385 016450
386 016452

104412

000101

177776

012702
004737
004737
104413

047076
045654
027334

004737
004737
012777
004037
001700
004037
001754

027334
027426
043306
033240

000004

3%:

177777

033000
001416
001422

033132

163126

7%:

MOV

JSR
CLR
CLR

DEC
BGT
BR
BIC
CLR
MOV
TST
SAVREG
MOV
JSR

JSR

RESREG

8%:

022214

EMT

JSR
JSR
MOV
JSR
112
JSR

SP12
EXIT15: SCOPE

-l RS
C, COUNT

IM.DN+2

%M DN+6

367 016332
368 016336
369 016342
370 016346
371 016352
372 016354
373 016356
374 016360
375 016366
376 016372
377 016374
378 016376
016400
016404
016410

b £
4=-APR-81 11:57:12 PAGE 15-8
O—=V—<—Tx

MACRO V04.00
VBO RM05/3/2 EXT'D DR TST
MAXIMUM SEEK TIMING TEST

#101,aPKCS
PS

(SRP)+,R0
(SP)+

#DTADPB,R2

PC, SVRH70
PC.CNTCLR

PC,CNTCLR
PC,ST.CLK
#1SR,IRMVEC
RO,TYPTiM

RO,SPTYP

SEQ 0089

JSET THE UP/DNWN SWITCH TO DOWN
JUPDATE THE COUNT
JFORGET ABOUT # OF SEEKS BELOW MINIMUM T IME
;sgzggT ABOUT # OF

SEEKS ABOVE MAXIMUM TIME

;sNO==BRANCH
JYES==EXIT
:STOP THE CLOCK
:DROP THE PRIORITY

:PC OF WAIT+2
;POP THE PS FROM THE STACK
;SAVE RO=RS

;DPB POINTER
JSAVE ALL THE RH/RM REGISTERS
;GO0 CLEAR MASSBUS CONTROLLER

;RESTORE RO=RS
;CLOCK OVERFLOWED
;GO CLEAR MASSBUS CONTROLLER
JINITIALIZE THE CLOCK
JRESTORE RH/RM INT. VECTOR
;GO TYPE THE TIMES
JPOINTER
;CALL SCOPE ROUTINE

’

CZRMVBO RMOS5/3/2 EXT'D DR TST

ADDRESSING TESTS

MACRO v04.00
.SBTTL

NN -

4~-APR-81 11:57:12 PAGE 16

SEQ 0090

ADDRESSING TESTS

n) -

OO0

SalIIILIIIIIII 007000 707077777777777777777777/77777777/77//7/7/7777
s«THE ADDRESSING TESTS ENSURES PROPER OPERATION OF THE TRACK
BOTH ADDRESSING TESTS WILL
:*AND SECTOR ADDRESS CIRCUITRY
:*BE PERFORMED ON CYLINDER FC.
///////////////////////////////////////////////////////////////
tt.titt"..'.t.'l'."t""fi'fi.'.t"'i"Q..t"'tttt't....tt.t"t

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

A WRITE CHECK IS PERFORMED, THE BUFFER IS
:*BEING WRITTEN,
THEN
«CLEARED (TO 177400) AND THE DATA 1S READ AND COMPARED.

:*SECTOR 0 IS REWRITTEN AND SECTORS O = 31 ARE WRITE CHECKED.

s*THEN SECTOR 1 IS REWRITTEN AND SECTORS O -~ 31 ARE WRITE CHECKED.
:#THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH

:*REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-31.
SRR

TST16:

016454
016454
016456
016464
016466

000240
033737
001002

016472
016500
016504
016512
016520
016526

012737- 000016
004737 030142
012737 016574
013737 002336
113737 001464
012737 000016

016534
016542
016544
016550
016554
016556
016557

032777
001406

162412

26 C16560
016566
016574
74
0165
27

012737
012737

017074
016574

012706
004737
013737
113737
105037
013737
12737
012737

001100
033730

000137

104401

013746
104403
003
000

001574

001332

BITS+<16%2>,TSTNMS

JMP

TST17

:NO-=JUMP TO TEST17

001116

Mov

#16,8TSTNM

sSET TEST #16 AND CLEAR (SERFLG)

001124
001220
001131
001240

MOVB
MoV

ERR.CT,SERMAX
#16,$TESTN

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

BNE

JSR
MOV
MoV

BIT
BEQ

TYPE
MOV

047617
001240

TYPQS

001350
001122

047110
047107
047102

047104
001124

047100
012737
012737

NOP

A AR AANAAATAANAARAAAAAANRAAARNAARAANAAAAAAAATAAA
ARSI AN

BIT

017076

010000

047100
001124

S——“—,

.46

PC ,LODPRM
#TEST16,SLPERR
RPT,STIMES

#SW12,3SWR
+16

MSGTST
$TESTN,-(SP)

;DO THIS TEST?

:BR IF YES

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

;INHIBIT TYPING TEST NUMBER ?
:BR IF YES

TYPE “TENE°
:2SAVE STESTN FOR TYPEOUT

::G0 TYPE-~OCTAL ASCII

;:TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS

BYTE
.BYTE

3
0

MoV
MOV

#EXIT16,BYPASS
#TEST16,8LPADR

;SETUP THE LOOP ADDRESS

MoV

#STACK,SP

;SET THE STACK POINTER

MoV
MOVB
CLRB

FC.DTADPB+12
FT.DTADPB+11
DTADPB+10

s CYLINDER
s TRACK
;SECTOR

JSR

Mov

MOV
MOV

MOV
MoV
JSR

MOV
Mov

PC,F ILBUF

;FILL THE BUFFER WITH SECTOR ADDRESSES

TRCKWC ,DTADPB+4 :WGRD COUNT

JBUFFER DTADPB+6’
;BUFFER ADDRESS
L SLPERR
;SETUP THE ERROR LOOP ADDRESS

:LOAD THE STACK POINTER
JSTACK SP
#WRITE ,DTADPB+2; COMMAND=WRITE DATA
:START A DATA TRANSFER
RO, DRVCAL

#URCKD DTADPB+2 ; COMMAND=WRITE CHECK DATA
:SETUP THE ERROR LOOP ADDRESS
. . SLPERR

RMOS5/3/2 EXT'D DR TST

SECTOR ADDRESSING TEST
016700
39 016704

40 016710
41
42
;43
© 44
45
46
47

016716

012706
004037
012737

MACRO V04.00

MOV
JSR
MOV
MOV

001124

016722
016726
016734
016740
016744
016750
016752

047100
047102

48 016764
49 016772

50 017000
51 017004
52 017010
53 017014
017022
£4 017026
55 017034
56 017042
57 017050
58 017054

1%:

047100
047102
047104

#..SLPERR

#STACK, SP

MOV
MOV
MOV
MOV

ADD

INC
cMP
BHIS

EXIT16: SCOPE

R R

SoTEST 17

THE

STACK POINTER

“START A DATA TRANSFER

‘LOAD THE STACK POINTER
“CLEAR BUFFER
:COMMAND = READ

*START A DATA TRANSFER
*CHECK THE SECTOR DATA READ

‘HUFFER ADDRESS
JFIRST SECTOR

“SETUP THE ERROR LOOP ADDRESS

:LOAD THE STACK POINTER

HWRITE ,DTADPB+2 : COMMAND=WRITE DATA

JSR

60 017064
61 017066
62 017072
63 017074

“SETUP THE ERROR LOOP ADDRESS

SLPERR

MOV
MOV
CLRB

59 017060

#BUFFER RO

mMovB
JSR
MOV
MOV
MOV

001124

:LOAD

RO, DRVCAL
RO, CKSCTR

JSR
JSR
MOV
CLR
MOV

SEQ 0091

#STACK , SP

#STACK, SP
RO, CLRBUF
#READ,DTADPB+2

MOV

001124

RO,DRVCAL

JSR

047100

016760

4-APR-81 11:57:12 PAGE 16-1

#SCTRWC ,DTADPB+4
;WORD COUNT
RO,DTADPB+6
;BUFFER ADDRESS
R1.DTADPB+10
RO.DRVCAL

:SECTOR
“START A DATA TRANSFER

#STACK, SP

*LOAD THE STACK POINTER

#..SLPERR

“SETUP THE ERROR LOOP ADDRESS

AWRCKD .DTADPB+2 :COMMAND=WRITE CHECK DATA
TRCKWC .DTADPB+4 :WORD COUNT
#BUFFER ,DTADPB+6
;BUFFER ADDRESS

DTADPB+10

:SECTOR

g;iz..ao

*MOVE TO NEXT SECTOR

RO, DRVCAL

PRMLMT+24,R1
1%

*START A DATA TRANSFER

:DONE?
2NO=--BRANCH

;CALL SCOPE ROUTINE

R AR

TRACK ADDRESSING TEST

AR E IR RAAARRERARAAANRRARRNARRRRRARERAARR
R

s*THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES
;*IN CYLINDER '¥FC'* SECTOR 'FS'' OF EVERY TRACK WITH EACH TRACK
;*GETTING ITS OWN TRACK ADDRESS.
;*A WRITE CHECK 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 IS WRITE CHECKED.
;*THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING NEXT TO LAST
;*TRACK AND WRITE CHECKING LAST TRACK.

e ttt'tt'.t'*t.'tt.tfi't'Q"'t'tfitii't"tttitit"tt't'tttttil't'!tt

017076
017076
017100
017106
017110

7$117:

JMP

;DO THIS TEST?
BITS+<17%2>, TSTNMS
:BR IF YES
.+6
TST20
:NO=-=JUMP TO TESTZ20

001116

MOV

#17 ,8$TSTNM

:SET TEST #17 AND CLEAR (SERFLG)

001124
001220
001131
001240

MOV
MOvB
MOV

RPT,$TIMES

:GET THE ITERATION COUNT

#17 ,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

001576

000137

017542

017134
017142
017150

012737
004737
012737
013737
113737
012737

000017
030142
017216
002336
001464
000017

017156

032777

010000

161770

017122
J17126

001002

NOP

BIT
BNE

033737

017114

000240

001332

JSR
MOV

BIT

PC,LODPRM
#TEST17,8LPERR

ERR.CT, SERMAX

#SW12,aSWR

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

;MAX ERRORS ALLOWED FOR TEST

:INHIBIT TYPING TEST NUMBER ?

CZRMVBO RMOS5/3/72 EXT'D DR TST

11?7

TRACK ADDRESSING TEST

017164

017166
017172

017176

001406

MACRD v04.00

067617

001240

033730

000161
002340
002354

177420

054522

017266
0C1100
047107
031204
001000

1%:

047104

001374
054522

047104

017336
001100

001124

000151
047107
031204
001000

047100

MOV

$TESTN,=(SP)

P:SAVE STESTN FOR TYPEOUT

001374

3%:

054522

047104

001000

047104

A ¥

001124

047100

5%:

047104

6%:

001124

STYPE

*TEST'

1360 TYPE==OCTAL ASCII

:2TYPE 3 DIGIT(S)

*:SUPPRCSS LEADING ZEROS

MOV
MOV

MEXIT17 ,BYPASS
#TEST17.8LPADR

:SETUP THE LOOP ADDRESS

MOV
JSR
MOV
MOV
MOovB
MOV
MOV
(LR
MOV
MOV

#STACK, SP
PC,F ILBUF

;SET THE STACK POINTER
SFILL THE BUFFER WITH TRACK ADDRESS

FC,DTADPB+12

:CYLINDER

MOVB
JSR
ADD
INC
cMP
MOV
CLR
MOV
MOV

2%:

MSGTST

[

8GE

047104

047107

26 017474
017502

:BR IF YES

BYTE

001190

017462
017470

TYPOS

TEST17:

SEG 009/

8EQ

TYPE

017540
017216

17402
17404

B 8
4~-APR-81 11:57:12 PAGE 16~2

MoV
MOvB
JSR
ADD
INC
P
BGE
(LR

MOVB
MOV
MOV
DEC
BLT
ADD
BR
MOV
MOV

MIRITE ,DTADPB+2 :COMMAND=WRITE DATA
FS.DTADPB+10

#SC TRWC ,DTADPB+4

#BUFFER,DTADPR+6

:SECTOR

;WORD COUNT

*BUFFER ADDRESS

s TRACK=C

#STACK , SP

*LOAD THE STACK POINTER

#.,SLPERR

RO.DTADPB+11
RO, DRVCAL

*SETUP THE ERROR LOOP ADDRESS

;TRACK ADDRESS
*START A DATA TRANSFER

#256.+2. ,DTADPB+6

LSTRK,RO

:UPDATE BUFFER ADDRESS

JUPDATE TRACK NUMBER

*0UT OF TRACKS?

3
“NO--BRANCH
qngnnen.orm»c
:BUFFER ADDRESS

#. . SLPERR

#STACK, SP

;SETUP THE ERROR LOOP ADDRESS

SLOAD THE STACK POINTER

#WJRCKD ,DTADPB+2 ; COMMAND=WRITE C(HECK

RO,DTADPB+11
RO . DRVCAL

:TRACK ADDRESS
“START A DATA TRANSFER

SUPDATE TRACK NUMBER

#256.+2. .DTADPB+6

;UPDATE BUFFER ADDRESS

gmx.no

TRACKS?

S0UT OF

*NO--BRANCH
*FIRST TRACK ADDRESS

RO.DTADPB+11
:TRACK
RO.R1
“FORM BUFFER ADDRESS
wrsa.mm‘o
:BUFFER ADDRESS

5%
:gsa. *2..DTADPB+6

#.,SLPERR

#STACK, SP

:SETUP THE ERROR LOOP ADDRESS
‘LOAD THE STACK POINTER

MOV
JSR

#WR]TE ,DTADPB+2 ;COMMAND=WRITE DATA

ADD

#256.+2. ,DTADPB+6

MOV
Mov

#. SLPERR
#STACK,SP

INCB

RO, DRVCAL

DTADPB+11

*START A DATA TRANSFER
:UPDATE BUFFER ADDRESS

;MOVE TO NEXT TRACK

*SETUP THE ERROR LOOP ADDRESS
*LOAD THE STACK POINTER

CIRMVBO RMOS/3/2 EXT
D DR TST
TRACK ADDRESSING TEST

gpflufi#uunu%gnnun)
VNS
WA
- OV 00~

012737
004037

d e

123737

003355
005200
023700
003323

000151
031204
001374

MACRO v04.00

047107

001374

000004

4-APR-81
MOV
JSR

047100

(MPB

BGT
INC
(MpP
BGT
EXIT17: SCOPE

11:57:12 PAGE 16-3

SEQ 0093

MWRCKD ,DTADPRB+2 ; COMMAND=WRITE (HECK DATA
RO,DRVCAL
;START A DATA TRANSFER
LSTRK,DTADPB+11

6%
RO
LSTRK ,RO
3s

CRRRARRRR RN RR RN

RN AR R T AN

;0UT OF TRACKS?

sNO=-BRANCH
JNEXT TRACK TO WRITE
;OUT OF TRACKS?
sNO=~BRANCH
;CALL SCOPE ROUTINE

R RN AR R RO

A NI AN AR A AR AR

A AN T AR AR R s

'TEST 20
DATA TEST
'THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYL INDERS
s« FC'' THROUGH 'LC'' BY THE INCREMENT ‘‘IC’'‘ USING THE DATA PATTERNS

i*SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER:
e (1.
i+ (20

SET_'NT'' TO "FT'' THEN REPEAT 24 UNTIL *NT**
> "iT"
WRITE THEN WRITE CHECK "FS' THROUGH '1S'
OF TRACK ‘NT'’

i (5.

REPEAT STEPS 1-4 FOR EACH DATA PATIERN

i» (30
v (4.
i+ (6.

READ THEN SOF TWARE, COMPARE
INCREMENT *NT'' BY “IT"'

'FS'*

OF TRACK "NT*'
THROUGH *1S'*

REPEAT STEPS 1-5 FOR "FC'' THROUGH 'LC" ADVANCING BY "IC”

'IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND

:*THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS
;*ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
:*WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS
:*FATAL AND NO READ OCCURS.

;*FS DEFAULTS TO 1 AND LS DEFAULTS T0 0
:*PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS)

CRAAARRAAAARRAAAARAAATAREARRAARAAAAAAAAAAAAAAAAAARASAAAARIEAARR
TR

917542
017542
017544
017552
017554

157

000240

001334

033737
001002
000137

001540

017560
017566
017572
017600
017606
C17614

012737
004737
012737
013737

000020
030142
017770
002336
001464
000020

001124
001220
001131
001240

017622
017630
017632
017636
017642
017644
017645

032777
001406

010000

161324

158
159
160
161 017646

162 017654

163 017656

113737

012737

104401

013746
104403
003
000

020322

001116

TSTZO:

BIT
BNE
JMP

BITS+<20+2=40>,TSTNMS+2 ;DO THIS TEST ?
Ts121

.*6

;BR IF YES
JNO=-=JUMP TO TEST21

MOV

#20,8TSTNM

JSET TEST #20 AND CLEAR (SERFLG)

MOV
MOV

#TEST20, SLPERR
RPT,$TIMES

MoV

ERR.CT,SERMAX
#20.STESTN

;SETUP THE LOOP ON ERROR ADDRESS
sGET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
;:SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ

#SW12,aSWR
+16

sINHIBIT TYPING TEST NUMBER ?
:BR IF YES

MOV

$TESTN,=(SP)

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

)

JSR

TYPE

047617
001240

BYTE
BYTE

PC. LODPRH

,MSGTST

;LOAD THE PARMETERS FOR THE TEST

sTYPE "TEST®

::TYPE 3 DIGIT(S)

;s SUPPRESS LEADING ZEROQS

;SET UP THE TRACx WORD COUNT FOR DATA TRANFER
012737
005000
005004,

017646

001122

MOv
(LR
CLR

#.,SLPADR
RO
R4

———

;SETUP THE LOOP ADDRESS

JCLEAR SWITCH

;FORM WORD COUNT IN R4

CZRMVBO RMOS5/3/2 EXT'D DR TST

120

ODATA TEST

164 017660

SR2BIIIFANAN
ISR

) end
= o
e
e

—

b nd e o
ol
v

SEQ 009

LS.R1
FS,R1

;LOAD LAST SECTOR
“COMPARE WITh FIRST SECTOR

063701
005201
005100

002470

ADD
INC

PRMLMT +24 ,R1
R1

;ADD MAX IMUM secron ADDRESS TO
‘MAKE THE DIFFERENCE POSITIVE

062704
005301
002374
005404
010405
005700
001412

000400

ADD
DEC
BGE
NEG

#256. R4
R1
18
R4

:WORDS/SECTOR
:LS = FS SECTORS MINUS ONE
*INCR. WORD COUNT IF NC. SECTORS STILL +
*FORM NEGATIVE WORD COUNT

017672
017676
017700

187
188
189
190 017746

11:57:12 PAGE 164

MOV
SUB

163701
002004

186 017744

4=-APR=-81

002356
002354

013701

165 017664
166 017670

184 017740
185 017742

MACRO v04.00

005005
013701
163701
062705
005301
002374
005405

BGE

COM

1$:

MOV

BEQ
CLR

002470

002354
0C0400

28:

MOV
SuB

ADD
DEC

BGE

NEG

“SKIP NEXT IF FS < OR = LS

R4 RS

“SET SWITCH FOR FS > LS

:COPY NORMAL WORD COUNT INTO SMALL WC
iFS > LS SWITCH SET?

iNO, SKIP NEXT

;FORM WORD COUNT FOR FS > LS

0256. RS

*WORDS/SECTOR

PRMLMT +24 ,R1
FS,R1

*MAX SECTOR ADDRESS
:SUBTRACT THE FIRST SECTOR
:NO SECTORS MINUS ONE

“INCR. WORD COUNT IF NO. SECTORS STILL +

:FORM NEGATIVE WORD COUNT FOR THIS CASE

:SET UP FOR DATA TRANSFERS AND PATTERN VARIATIONS

191 017754
220 017762
017770
017770
017774
020000
020004

113737

002354
054522
020320

012706
005037
013701
000407

001100
001434
002340

020006
020010
020014
020016
020022

005720
022700
003004
004037
000536

012737
012737

047106

047104
001350

3$:

MOVB

FS,DTADPB+10

:SECTOR

MOV

#STACK,SP

:LOAD THE STACK POINTER

MOV
BR

FC,R1
2s

:PICKUP FIRST CYLINDER
:SKIP PATTERN SET=UP FIRST TIME THRU

MOV
i MoV
CLR

1$:

000040

WCEFLG

(RO +

:MOVE TO NEXT DATA PATTERN

:NO, STAY ON THIS CYLINDER UNTIL DONE

ExiT20

:0UT OF CYLINDERS

#16.+2. RO

JSR

RO, INCCYL

:DATA BUFFER

;CLEAR THE WRITE CHECK ERROR FLAG

cMP

BGT

033654

#BUFFER,DTADPB+6
#EX1T20,BYPASS

S0UT OF PATTERNS?

“MOVE TO NEXT CYLINDER

:DO NEXT CYLINDER
020024
020026
020034
02003¢
020042
020046

005000
036037
001764
013702
010137
110237

020052
020056
020060
020064

020127
001003
020237
001515

001466

221 020066
222 020072

010437

047102
002342

023701

001540

002346
047110
047107

002360

2%:
3$:

4$:

001374

CLR

BITS(RO) ,PAT

MOVB

R2,DTADPB+11

BEQ
MOV
MoV

:START WITH PATTERN 0
:THIS PATTERN SELECTED?

18
FT.R2
R1,DTADPB+12

sNO, GO BACK AND GET ONE THAT WAS
SFIRST TRACK
;LOAD THE CYLINDER

CMP
BNE
CMP

R1,4822.
108
R2,LSTRK

sCHECK FOR LAST DISK CYLINDER (DEC144 FILE)
*SKIP LAST TRACK CHECK IF NOT
:LAST DISK TRACK 2

MOV
CMP

R4, DTADPB+4
LC,R1

*LOAD THE WORD COUNT
*LAST DISK CYLINDER TO TEST ?

BEQ

108 :

BIT

EXIT20

:LOAD THE TRACK

:DON'T TEST LAST TRACK AS IT HAS BAD
*BLOCK INFORMATION STORED ON IT

[

,
|

|
;
;

CZRMVBO RMQS/3/2 EXT'D DR TST
DATA TEST

T20

223 020076
224 020100
225 020104

226 020106
227 020112

228 020116
229 020120
230 020124
231 020126

003005
023702
002002

010537
017703
005103

232 020132

|
*

235 020154
236
237
238
239 020162
240 020166
241 020174
242 020176
020204
243 020210
244 020216

245 620222
246 020226

P
ol

234 020142
020150

247 020230

248 020236

249 020240

250 020246

251 020250
020256
252 020262
253 020270
254 020274
255 020302
256 020304
257 020310
258 020314
259 020316
260 020320

261
286
287

047102

000030

012737

SEQ 0095

:NO, SKIP TRACK CHECK
SLAST DISK TRACK TO TEST 2
iNO, SKIP NEXT

MOV
COM
8IT
BEQ

aSWR,R3
R3
4
! SWO3,R3
#SW0
7%

“INHIBIT WRITE AND
“WRITE CHECK?

MOV

aszcx SP

001124

JSR
BIT
BNE
MOV

047100

MOV

161014

E 8
11:57:12 PAGE 16-5
5%
LSTRK ,R2
58

MOV

161036

020142
001100
000161

4-APR-81
BGT
CMP
BGE

001374

034404
000020

233 020140

MACRO v04.00

RS,DTADPB+4

PC,SETBUF
#5404,aSWR
es
SLPERR

*SHORT WORD COUNT

; VES==BRANCH
;MOVE DATA PATTERN INTOD THE BUFFER
YINMIBIT WRITE?
*YES, DO NEXT PORTION OF TESTING
SSETUP THE ERROR LOOP ADDRESS

“LOAD THE STACK POINTER

#WRITE ,DTADPB+2 : (OMMAND=WRITE DATA

:DO A DATA TRANSFER
004037
032777
001012
012737
012706
012737
004037
005737
001404
032777
001424
032777
001020
012737
012706
012737
004037
032777
001002
004737
004037
000634
000653
000004

020176
001100
000151
031204
001434

001124

JSR
BIT
BNE
MOV

047100

MOV

000001

160716

000004

160706

020250
001100
000171
031204
000002

001124

031204
000010

034474

033624

160760

68$:

78:

047100
160652

MOV

RO, DRVCAL
#SW03,ASWR
78
#.,SLPERR
#STACK, SP

;START A DATA TRANSFEP
SINHIBIT WRITE CHECK?
: YES==-BRANCH
*SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER

JSR

RO, DRVCAL

*START A DATA TRANSFER

8%:

WCEFLG

;WRITE CHECK ERROR FLAG SET?

:NO==BRANCH
*PERFORM READ AFTER FATAL "WCE'"
:NO--BRANCH

BEQ
8IT
BEQ

8s
ASW00,aswR
9%

BNE
MOV
MOV

98
#. ,SLPERR
#STACK, SP

: YES=~BRANCH
*SETUP THE ERROR LOOP ADDRESS
SLOAD THE STACK POINTER

RO, DRVCAL
#SW01,35WR
98
PC.DATCMP
RO, INCTRK
18
4$
‘

“START A DATA TRANSFER
:COMPARE THE DATA?
“NO--BRANCH
SYES==DO IT
“MOVE TO NEXT TRACK
*0UT OF TRACKS GO TO NEXT PATTERN
:LOOP
*CALL SCOPE ROUTINE

BIT

MOV

JSR
BIT
BNE
JSR
9%:
JSR
BR
8R
EXIT20: SCOPE
R

#WRCKD.DTADPB+2 :COMMAND=WRITE CHECK DATA

#SW02,3SWR

;INHIBIT READ DATA AND SOF TWARE COMPARE?

#READ,DTADPB+2 :COMMAND=READ

3222232222232223222322232333233
8323333323333 3332323323322222R%220203 0]

-resr 21

RANDOM ADDRESS AND RANDOM PATTERN TEST

;*STARTING AT "FC'' AND GOING SEQUENTIALLY TO 'LC'' THE DISK
;*PACK 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 TO 1000.

;*2)
gy
;*3)

GENERATE A RANDOM SECTOR ADDRESS

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

"gRHVBO RMOS5/372 EXT'D DR TST
MACRO v04.00 4=-APR-81
RANDOM ADDRESS AND RANDOM PATTERN TEST

11:57:12 PAGE 16=6

SEQ 0096

'4)

READ THE SECTOR AT

'S)

DO A SOF TWARE CHECK OF THE DATA READ IN 4 AGAINST

'6)

DO A WRITE CHECK OF THE DATA WRITTEN IN 2

'S)

READ THE SECTOR AT THE ADDRESS
GENERATED IN 7.

i7)

'9)

:*»10)

GENERATED IN 3.

THE ADDRESS

THE CRIGINAL RANDOM PACK DATA,

GENERATE A NEW RANDOM SECTOR ADDRESS

DO A SOF TWARE (HECK OF THE DATA READ IN 8
DO A WRITE CHECK OF

THE DATA WRITTEN IN 2

:."Qttltt..l'Qfi*"."'""""..'.....Q"..'."'t"'.tl't..'tt'tt

020322

020324
020332
020334

000240

1ST21:

033737
001002
000137

001542

020340
020346
020352
020360
020366
288 020374

012737
004737
012737
013737
113737
012737

020402
020410
020412
020416
020422
020424
020425
289 020426

292 020434
293 020442
294 020450

BIT
BNE
JMP

BITS*<21'2-40> TSTNMS+2 ;DO THIS TEST ?
:BR IF YES
TS 722
iNO==JUMP TO TEST22

000021
030142
020616
002336
001464
000021

001116

MOV
JSR
MOV
MOV
MOVS
MOV

#21,8TSTNM
PC,LODPRM
H#TEST21,SLPERR
RPT,$TIMES
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
;MAX ERRORS ALLOWED FOR TEST
;:SET TEST NUMBER IN APT MAIL BOX

032777
001406
104401
013746
104403
003
000

010000

160544

BIT
BEQ
TYPE
MOV
TYPOS
BYIE
BYIE

#SW12,aSWR
.+16
LMSGTST
$TESTN,=(SP)
3
O

JINMIBIT TYPING TEST NUMBER ?
:BR IF YES
sTYPE “TESY®
..SAVE $TESTN FOR TYPEOUT
;GO TYPE--OCTAL ASCII
..TVPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS

012737

020426

MOV

#.,SLPADR

;SETUP THE LOOP ADDRESS

012737
012737
012737

021140

001124
001220
001131
001240

047617
001240

001122

021136
176543
123456

001350
026524
026526

MOV
MOV
MOV

#EXI1T21,BYPASS
#176543,8HINUM
#123456, SLONUM

MOV

TRCKWC ,DTADPB+4 :WORD COUNT FOR 32730 SECTORS (FULL TRACK)

295 020456 013737 002340 047110

296 020464

013737

001452

047102

298 020500
299 020506
300 020514
301 020516
302 020522
303 020526
020534

012737
032737
001027
004037
005037
012737
012706

000161
100000

047100
001314

035012
047106
020526
001100

001124

020540
305 020544
306 020550
307 020556
308 020560
309 020564

004037
105237
123737
(02370
005237
023737
002353

031204
047107
(001374

047107

047110
002342

047110

012737

177400

047102

MoV

297 020472 012737 054522 047104

304 020540

g;? 020572
312

713 020574

NOP

001334

MOV
1%:
2%:

3%:

FC,DTADPB+12

;PRIME THE RANDOM NUMBER GENERATOR

s CYLINDER

#RUFFER, DTADPB+6~

;BUFFER ADDRESS

MOV
8IT
BNE
JSR
CLR
MOV
MoV

#WRITE ,DTADPB+2
#5W15,C.SWR
38
RO, F ILRAN
DTADPB+10
#.,SLPERR
#STACK,SP

; COMMMAND
sWRITE THE DISK PACK BEFORE TESTING?
sNO--BEGIN TESTING
‘fILL DATA BUFFER WITH RANDOM DATA
:SECTOR AND TRACK
;SETUP THE ERROR LOOP ADDRESS
*LOAD THE STACK POINTER

JSR
INCB
(MPB
BGE
INC
CMP
BGE

RO,DRVCAL
DTADPB+11
LSTRK,DTADPB+11
2%
DTADPB+12
LC,DTADPB+12
1%

sSTART A DATA TRANSFER
JNEXT TRACK
;TIME FOR NEXT CYLINDER ?
;NO=--DO NEXT TRACK ON THIS CvL.
s INCR_CYLINDER ADDRESS
10UT OF CYLINDERS?
:NO=-CONTINUE SEQUENTIAL RANDGM WRITE

MOV

#SCTRWC ,DTADPB+4

<WORD COUNT

MACRO V04.00 4=APR-81
RM05/3/2 EXT'D DR TST
RANDOM ADDRESS AND RANDOM PATTERN TEST
020602
020610
020616
020616
020622
020626

012737
012737
012706
004037
013737
013737
012737
012701

020616
020616

001122
001124

001100

TEST21:

G .8
11:57:12 PAGE 16=7

MOV
MOV

#TEST21,$LPADR
#TEST21,SLPERR

MOV

#STACK,SP

MOV
MOV
MOV
MOV
MOV

DTADPB+710,SVADR ;SAVE THE TRACK/SECTOR

JSR

;SET

RO,RANADR

STACK POINITER

;GENERATE A RANDOM ADDRESS

010137
004037

035266
047106
047110
000161
054522
047104
035232

012737
012706
004037

020664
001100
031204

020702- 004037
020706 012737
020714 012737
C20722 012737
020730 012706
020734
004037
020740 005737

035266
000171
055522
020722
001100
031204

004037

035034

013737
013737
012737
012737

001440
001442
000151
054522

047106
047110
047100
047104

MOV
MOV
MoV
MOV

#WRCKD ,DTADPB+2 ; COMMAND=WRITE CHECK DATA
/
#BUFFER ,DTADPB+6
;DATA BUFFER ADDRESS FOR HARDWARE

012737
012706
004037

021002
001100
031204

001124

MOV

#.,SLPERR

004037
012737
012737
012737
012706
004037
005737

035266
000171
055522
021040
0G1100
031204
001466

004037

035034

013737
013737
012737
012737
012737
012706
004037
000004

001440
001442
000151
054522
021120
001100
031204

020634
020642
020650

020654
02C660
020664
020672
020676

00744
020746

339
340 020752
341 020760
342 020766
343 020774
344
345 021002
021010
346 021014
347
348 021020
349 021024
350 021032
351 021040
021046
352 021052
353 21056
354 021062
355
356
357

100402

001440
001442
047100

JSR

001124

047100
047104
001124

JSR

JSR
MOV
MOV
MOV
MOV

JSR
1ST

8M]
JSR
MOV
MOV
MOV
MOV
MOV
MOV
J SR

EX1T21: SCOPE
B

:GENERATE RANDOM 256 WORD PATTERN

RO,RANADR

MOV

047106
047110
047100
047104
001124

RO,RANPAT

JSR
MOV
MOV
MOV
MOV

8MI
JSR

047100
047104
001124

*WRITE BUFFER ADDRESS FOR ‘RANPAT'’

R1,DTADPB+6
#.,SLPERR
#STACK, SP

TST

2222222322232

LATEST 22

;SAVE THE CYLINDER

#BUFFER,R1

MOV
MOV
JSR

JSR

001466

DTADPB+12,SVADR+2

MWRITE ,DTADPB+2 ; COMMAND=WRITE DATA

*INTO THE DATA PARAMETER BLOCK

YAND PUT INTO THE WRITE BUFFER
“SETUP THE ERROR LOOP ADDRESS
“LOAD THE STACK POINTER

RO, DRVCAL

*START A DATA TRANSFER

:GENERATE A NEW RANDOM ADDRESS

#READ,DTADPB+2
: COMMAND=READ DATA
#BUFFER+512. ,DTADFB+6
:READ BUFFER ADDRESS
#..SLPERR
#STACK, SP

:SETUP THE ERROR LOOF ADDRESS
‘LOAD THE STACK POINTER

BASFLG
.+6
RO, RANCK

*DON'T COMPARE DATA

RO, DRVCAL

SSTART A DATA TRANSFER

*IF BAD SECTOR ENCOUNTERED,SKIP NEXT CALL
:SOFTWARE CHECK THE DATA -

SVADR,DTADPB+10 :GET ADDRESS OF WHERE THE LAST

SVADR+2,DTADPB+12

#STACK, SP

;WRITE WAS PERFORMED

;CHECK OF THE DATA

“SETUP THE ERROR LOOF ADDRESS
*LOAD THE STACK POINTER

RO, DRVCAL
RO, RANADR

*START A DATA TRANSFER

#..SLPERR
#STACK, SP
RO, DRVCAL
BASFLG
. +6
RO, RANCK

:SETUP THE ERROR LOOP ADDRESS
*LOAD THE STACK POINTER
“START A DATA TRANSFER
*ENCOUNTER BAD SECTOR 2
DON'T COMPARE DATA IF SO
*SOF TWARE CHECK THE DATA

:GENERATE A NEW RANDOM ADDRESS

#READ,DTADPB+2 : COMMAND=READ
#BUFFER+512. ,DTADPB+6
:DATA BUFFER ADDRESS

SVADR,DTADPB+10 ;GET DISK ADDRESS OF THE

SVADR+2,DTADPR+12

SLAST WRITE

#WRCKD ,DTADPB+2 ;COMMAND=WRITE CHECK DATA
;DATA BUFFER ADDRESS
#BUFFER,DTADPB+6

#.,SLPERR
#STACK,SP
RO,DRVCAL

23:

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
sSTART A DATA TRANSFER

;CALL SCOPE ROUTINE

Al
2222232223222 0222322222222l

SEEK TIME ADJUSTMENT TEST

MACRO Vv04.00
CZRMYB0O RMOS/372 EXT'D DR TST
TEST
T
ADJUSTMEN
TIME
SEEK
e

4=-APR-81

11:57:12 PAGE 16-8

:*THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS O & 255 TO ALLOW THE

:*CPERATOR TO ADJUST THE AVERAGE SEEK TIME ON AN RMOS/3/2 USING THE

THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BE TWEEN SEEKS
:#SO THAT THE AVERAGE SEEK TIME INDICATORS ON THE DDU MAY BE OBSERVED.
:*DDU,

e 2222222222222
Rttt

01140
01140
021142
021150
021152
021156
021164

021170

373

021176
021204
021212

000240
033737
001002
000137

012737
004737
012737
013737
112737

012737

1ST122¢

001544

000022
030142
021252
002336
000144
000022

001116

010000

157726

032777
001406
104401
013746

377 Q21244
021252
378 021252
379 021256
380 021264
381 021272
382 021276
383 021302
384 021304
385 021312
386 021320
387 021324
388 021330
389 021332
390
395

012737

021252

012706
013737
112737
004037
004037
001460
013737
112737
004037
004037
001460
000004

001100
002342
000105
030402
032326

001124
001220
001131
001240

:BR IF YES
:NO==GO TO THE FND OF

MOV
JSR
MOV
MOV
MovB
MOV

#22 ,8TSTNM

RPT,$TIMES

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

#22,$TESTN

;:SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ

#5W12 ,aSWR

TYPE

047030
047020

TEST22:

#TEST22, SLPERR
#100,
, SERMAX
.16

,MSGTST
$TESTN,=(SP)

;MAX ERRORS ALLOWED FOR TEST

sINHIBIT TYPING TEST NUMBER ?
;BR IF YES
sTYPE *TEST'

.BYTE

3
0

MOV

#TEST22,SLPADR

;SETUP THE LOOP ADDRESS

MOV

#STACK,SP

;SETUP THE STACK POINTER
sENDING CYLINDER
; SEEK=COMMAND
;GO EXECUTE THE COMMAND

TYPOS

001122

PC,LODPRM

THE PROGRAM

:;SAVE STESTN FOR TVPEOUT
;:G0 TYPE--OCTAL ASCII
;:TYPE 3 DIGIT(S)
;:SUPPRESS LEADING ZEROS

. MOV

003
000

BITS+<2242-40>,TSTNMS+2 ;D0 THIS TEST ?
+6
$EOP

BNE
JMP

047617
001240

002340
000105
030402
032326

NOP

BIT

021334

021220
021226
021230
021234
021240
021242
021243

104403

001334

MOV
MOVB
JSR
JSR
.WORD
MOV
MOVB
JSR
JSR
.WORD

EXIT22: SCOPE

LC,DPB.A+12

#SEEK ,DPB.A+2

RO, CALL.A

RO,STALL

STALL3

FC,DPB.A+12
#SEEK ,DPB.A+2
RO, CALL.A
RO,STALL

STALL3

s STALL

;ADDRESS OF STALL VALUE
;STARTING CYLINDER
; SEEK=COMMAND
;GO EXECUTE THE COMMAND

sSTALL

;ADDRESS OF STALL VALUE
;CALL SCOPE ROUTINE

(ZRMVBO RMQS/3/2 EXT'D DR TST

END OF

PASS ROUTINE

MACRO Vv04.00 4=-APR=81 11:57:12 PAGE 1;
I

.SBTTL

SEG 0099

END OF PASS ROUTINE

3 SRR AR RARAARAARRRARANAARRARTARRARAANRN A

AN RR RGN

L *INCREMENT THE PA3S NUMBER (SPASS)
1« INDICATE END=OF -PROGRAM AFTER 8. PASSES THRU THE PROGRAM
i«]F THERES A MONITOR GO 10 IT
:«]F THERE ISN'T JUMP TO RTURN
021334
021334
021340

104401
000407

021342

021360
021360
021364

104401
000405

021366

021400
021400
021404
021406
021407

013746
104403
002
000

001352

021414
021416
021422

001420
104401
000412

021410

021450

005737

013746

021454
021456
021462
021466
021472
021476
021504
021506
021510
021512
021514
021516
021520
021524

104402
005037
005037
005037
005237
042737
005327
000010
003027
012737
000010
021506
104401
000407

021544
021544
021550
021554
021556
021560
021562
021564
J21566

104401
013700
001405
000005
004710
000240
000240
000240

021570
021570
021572
021574

000137
021600
377

$EOP:

ézgss

LASCIZ

,67%

001126
1%:

001242

MOV

CHKDRV,=(SP)

;sSAVE (CHKDRV FOR TYPEOUT

BYTE
BYTE

2
O

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

BEQ

MOV

$ERTTL ,-(SP)

TYPOC
(LR

CLR

000

JMP

.WORD

S$ENULL: .BYTE

.EVEN

$ERTTL

::G0 TYPE--OCTAL ASCIICALL DIGITS)
ZERO ERROR TOTAL

S$TIMES
$PASS

::ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER

;ZERO THE TEST NMUMBER

#100000,$PASS
(PC)+
8.
$DOAGN
(PC)+,a(P()+
8.

BR
ASCIZ

$ENDAD: JSR
NOP
» NOP
NOP

.,SAVE S$ERTTL FOR TYPEOQUT

$TSTNM

.WORD
$EOPCT

RESET

$RTNAD:

.,YYPE ASCIZ STRING

68%
:GET OVER THE ASCIZ
/
ERRORS DEIECTED-/

BEQ

$DOAGN:

;BR IF NO

BR
LASCIZ

;.DON'T ALLOW A NEG. NUMBER
2:L00P?

2:YES
;;RESTORE COUNTER

,65%

;:TYPE ASCIZ STRING

LSENULL
a4l RO

sTYPE NULL CHARACTER
;:GET MONITOR ADDRESS

64%
;:GET OVER THE ASCIlZ
<CRLF>/END OF TEST/<CRLF>

TYPE
$GET42: MOV

021574
000042

;ANY ERRORS DETECTED ?

,69%

TYPE

ézgSS:

;:G0 TYPE=--OCTAL ASCII

SERTTL

BIC
DEC
$EOPCT: .WORD
BGT
MOV

021526

:1GET OVER THE ASCIZ

/ ON DRIVE/

L.ASCIZ

(LR
INC

$ENDCT:

;:TYPE ASCIZ STRING

66%

TYPE

éég9s:

:GET OVER THE ASCIZ

TST

021424

,,TVPE ASCIZ STRING

<CRLF><LF>/END OF PASS/

TYPOS

001126

377

,65%

648

TYPE

éé&?i:

001126
001116
001220
001242
100000

TYPE

$DOAGN

::BRANCH IF NO MONITOR
;:CLEAR THE WORLD

PC, (RO)

Q(PC)+
RTURN

=-1,-1,0

;:G0 TO MONITOR
;:SAVE ROOM
::FOR
JJACTN

;
!
{
{

: JRETURN

JsNULL CHARACTER STRING

CZRMVBN RMQS5/3/2 EXT'D DR TST MACRO V04.00 4=-APR=81 11:57:12 PAGE 19-1
- END OF PASS ROUTINE
J

5 021610
6 021614

012706

001100

004737
000137

027426
006662

004737

026060

RTURN:

MOV

#STACK, SP

JRESTORE STA(K

JSR
JMP

PC,ST.CLK
RSTART

JINITIALIZE THE CLOCK
JRETURN TO RESTART

JSR

PC,STKINT

JMAKE SURE KEYBOARD INTERRUPT AND
"

3 021600

4 021604

CZRMVBO RM05/3/2 EXT'D DR TST

ERROR HANDLER ROUTINE

MACRO v04.00

&4~-APR-81

.SBTTL

11:57:12 PAGE 18

SEQ 0101

ERROR HANDLER ROUTINE
2220

Rt iRttt
l

-THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO TYPERR ON ERROR

:*THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE “ARE :

-SU1S
-sw13 1
~Su10 1

HALT ON ERROR

;~swo9=1
*CALL
ERROR
e

021620
021624
021626
021634
021636
021642
021644
021652
021660
021664
021666
021674
021702
021704
021710
021714
021720
021726
021734
021742
021744
021752
021754
021760
021762
021770

021772
21776
022004
022012

022014

022022
022026
022030
022034
022042
022044
022052
022054
022062
022070
022076

105037
104407

032777

000400

005737
001406
013737
013737

001326

001411

105237

001775
13777
032777
001402
104401

005237
011637
162737
117737

032777
001060
122737
001454
105737
001047
022737
007445
013746
012737
013737
000406
012737
012716
000002
012637

022737
001420
032737
001414
042737

113737
112737
000402

$ERROR:

022260
157320

001534
001536
001117

001164
001166

001116
002000

157262
157252

001224
001126
001132
000002
157200
001000
000177

7$:

MOV
MOV
INCB

BEQ

MOV

18:

001132
001130
001130

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

" IBSAVE
#SW08,aSWR
7%
LPTAVL
7$
LPS,$TPS

LPB,$TPB

022256

000004
022014
177766

000004
022256

177777

022256

000004

177777

022256

000001

022256

000001
001130
000177

177766

022260
001130

;1S THERE A LINE PRINTER AVAILABLE?
:NO=--BRANCH

;YES~=SETUP STATUS

:AND BUFFER REG.'S FOR LINE PRINTER

12171o.asun

..BELL ON ERROR?

INC
MOV
SuB
MOovB

$BELL

$ERTTL

..RING BELL

TYPE

BEQ

cMP
BEQ

MOV
MOV

1000%:

MOV

1001%:

RTI
MOV

1002%:

" 2 YES=~BRANCH

$ERFLG
..SET THE ERROR FLAG
7%
sDON'T LET THE FLAG GO TO ZERO
$TSTNM,aD1SPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

(SP)
, SERRPC
#2,SERRPC

cMP
BEQ
BIT
BEQ
BIC
MOvB
MOvB
BR

- SKIP
;NO

;COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

aSERRPC,$1TEMS
aang9.asua

;:STRIP AND SAVE THE ERROR ITEM CODE
:
;;SEE IF LOOP ON ERROR IS SET

l177 SITEMB

..SEE IF THIS IS THE POWER FAIL CALL
;BRANCH AROUND ROUTINE IF IT IS

: ;BRANCH AROUND ROUTINE IF SO

..SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE

TSTB

177777

;:CLEAR THE ITEM BYTE SAVE LOCATION
;. TEST FOR CHANGE IN SOFT-SWR
;SEND ERROR MESSAGE TO TTY?

BIT
BEQ

BIT

157212

022260

022030

CLRB
CKSWR
BIT
BEQ
TST
BEQ

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP
ON ERROR

#-1,CPSAVE

1004$

ERRVEC.- (SP)
#10008
, ERRVE C
177766 CPSAVE
1001%

; ;BRANCH IF SO

::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
; ;BRANCH IF SO
; SAVE CONTENTS OF ERROR VECTOR
;:SETUP 'TRAP' RETURN ADDRESS
:sMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

#-1,CPSAVE

#1001$, (SP)

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR
::SETUP RETURN ADDRESS

(SP)+ ,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

#-1,CPSAVE

;2SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

1004$
#81T00, CPSAVE
1004$

: ;BRANCH IF SO

..SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG
sBRANCH IF OK

#B1T00,177766

..CLEAR THE BIT FOUND SET

1004$

1:SET SITEMB TO SPECIAL POWER FAIL POINTER
: ;BRANCH OVER IBSAVEZ CLEARING

$1TEMB, IBSAVE
#177,$1 TEMB

JMAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

| CZRMVBO RM05/3/2 EXT'D DR TST
ERROR HANDLER ROUTINE

022100

105037

022104
022104 032777
022112 001004
022114 004737
022120 104401
022124
122737
022124
022132 001007
022134 113737
022142 004737
022146
000
022147
000
022150 000777
105737
022152
022156 001005
022160 005777
100002
022164
- 022166 000000
104407
022170
022172
022172 105737
022176 001230
022200 032777
022206 001402
022210 013716
022214 005737
022220 001402
022222 013716
022226
022226 022737
022234 001001
022236 000000
022240
022240 013737
022246 ‘013737
022254 000002
022256 000000
022260 000000

MACRO V04.00 &=-APR=-81 11:57:12 PAGE 13-1
L

022260
020000

157042

022262
001231
000001

001254

001130
026766

022146

20%:

21%:
22%:
2%:

022260
156770

3%:

022260

001000

156746

001124
001222

4%:

001222
021560

000042

001530
001532

001164
001166

5%:

6%:

CLRB

IBSAVE

;;CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT
BNC
JSR

#BI1T13,3SWR
20%

;iSKIP TYPEOUT !F SET
11SKIP TYPEOUTS
;:G0 TO USER ERROR ROUT INE

TYPE

PC, TYPERR

+SCRLF

(MPB
BNE
mMovBe
JSR
BYTE
.BYTE
BR
1STB
BNE
TST
BPL
HALT
CKSWR

géPTENV.SENV

TSTB
BNE
BIT
BEQ
MOV
TST
BEQ
MOV

;gSAVE

$ITEMB,21$

PC,$ATY4

0 0
22%
IBSAVE
i
3%
aSWR

; ;RUNNING IN APT MODE
;sNO,SKIP APT ERROR REPORT
;:SET ITEM NUMBER AS ERROR NUMBER
; ;REPORT FATAL ERROR TO APT

;;APT ERROR LOOP

;;SEE IF IBSAVE IS LOADED

;sBRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
;;HALT ON ERROR
::SKIP IF CONTINUE
;;HALT ON ERROR!
;;TEST FOR CHANGE IN SOF T-SWR

5
$ESCAPE, (SP)

;2SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
2 sBRANCH BACK TO CALL ORIGINAL ERROR
;:LO00P ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
2;CHECK FOR AN ESCAPE ADDRESS
::BR IF NONE
::FUDGE RETURN ADDRESS FOR ESCAPE

cMP
BNE
HALT

#SENDAD
, a#42
63

::eggncu IF NO

MOV

TPS,$TPS

MoV
RTI

: .WORD
CPSAVE
: .WORD
IBSAVE

#B1T09,aSWR
4$
SLPERR, (SP)

sESCAPé

;:ACT=11 AUTO-ACCEPT?

;SET STATUS AND BUFFER REG.'S

TPB,$TPB

;FOR TTY

0
0

;.. OCATION TO SAVE CPU ERROR REG CONTENTS
;s JCATION TO SAVE ITEM BYTE

.ETURN FROM ERROR CALL

SEQ 0102

| CZRMVBO RMOS/3/2 EXT'D DR TST
|
l

TYPERR - TYPE

ERROR ROUTINE

MACRO V04.00

.SBTTL

I
|
|

&4-APR-81 11:57:12 PAGE 19

SEQ 0103

TYPERR = TYPE ERROR ROUTINE

:THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' ($SITEMB) TO DETERMINE
:WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE 'ERROR

ERTEERNING THE ERROR.

{

‘T/BLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION

JSR
RETURN

.‘
:
001116

000004

001212 . TYPERR: MOVB
SAVREG
SUB
MOV
MOV

40 022406
41 022410
42 022414
43 022420
44 022422
45 022424

46 022430
47 022432
48 022436
49 022440
50 022442
51 022446

52 022450
022454

022462
53 022462
54 022466
55 022470
56 022472
57 022474
58 022476

023040

012037
001451
004737
104401
104401
000000
162701
100440

000240
002014
022422

tcatng

sSEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
eamcu IF NOT

013701

001356

012702
005003

001762

106301
006301
104401

000402

012237
006301
103013
005103
001002
104401

MOV

;:recn.no

STESTN,PFTSTN

:GET TEST NUMBER

1%:

MOV

RO,R1

;AND COPY IT INTO R1

BCC

- 1S ERROR > 37?

28:
38:

ADD
ADD
MOV
BEQ

};;E

#1TEM41-SERRTB, RO
:YES=-FORM OFFSET
#SERRTB,RO
:FORM ADDRESS
(RO)+,4$
*GET ERROR MESSAGE (EM) POINTER
9
. :BRANCH IF THERE ISN'T ONE
: INCREMENT ERROR COUNT
PC, INCEC
:"'CARRIAGE RETURN - LINE FEED
.SCRLF

WORD
sus
8MI

O
#41,R1
9%

:"EM'' POINTER GOES HERE
:SPECIAL ERROR ITEM NUMBER?
NO=~BRANCH

ASLB

DEC
ASLB
ASLB
ASLB

JSR

48:

R1
#STATBL ,R2
R3

649

::GET OVER THE ASCIZ

MoV
ASL

(R2)+,7%
RI

COM

ASCIZ

BCC

001231
[

*FORM INDEX FOR ERROR TABLE

ASL
MOV
CLR

TYPE

'255:

RO
RO
RO
RO

‘MOVE POWER FAIL ERROR CALL TABLE TO RO

GET STATUS/ERROR INDICATOR
:STRIP "DONE'" BIT (BITO7)
:STRIP "ERROR'’ BIT (BIT15)
:1ST ADDRESS ON STATUS MESSAGE POINTERS
:CARRIAGE RETURN-LINE FEED SWITCH

MOV

022456

022504

;PICKUP ERROR ITEM NUMBER

ggv

027216
001231

000041

;SAVE THE TEST MNUMBER
“SAVE RO - RS
*FORM TEST PC
:COPY RO-RS IN SREGO-SREGS

MOV
MOV

MOV

NONs.
L
o

20 022326
21 022332
22 022336
23 022340
27 022342
29 022350
30 022354
31 022356
32 022360
33 022362
34 022364
35 022366
36 022370
37 022372
38 022376
39 022402

$TSTNM, $TMPO
#4,R0
RO, SREGO
R1,$REG]
R2.$REG
R3,$REG
R4, SRE G4
RS,$REGS

MOV

18 022316
19 022322

PC,TYPERR

BNE

TYPE

SVSTAT R1

,65%

/7 (/

:.TYPE ASCIZ STRING

JMESSAGE POINTER
TYPE_THIS MESSAGE?

:NO=-BRANCH

+SCRLF

YES==TYPE A 'CRTM &
SYES

'LF'?

CZRMVBO RM0S5/3/2 EXT'D DR TST MACRO V04.00 4-APR-81 11:57:12 PAGE 18-1
N

TYPERR = TYPE ERROR ROUTINE

59 022502

60 022504
61 022506
62 022510

104401

000000
005701
001403

63 022512 104401
64 022516 000761

65 022520
66 022522
022526
022532

012037
001404
104401

71 022546
72 022550
73 022552

000000
012001
001450

80 022572
81 022574
82 022576
83 022600
84 022602
022604
85 022606

112003
112004
006004
103403
013146
104402
000402

74 022554
75 622556
76 022560
77 022562
78 022564
79 022566

86 022610

104401

005005
012000
012002
001441
005105
104401

022610
022612
87 022614
88 022616
89 022620
90 022624
91 022626
92 022630
93 022632
94 022636
95 022640
96 022642
97 022646
98 022652
99 022654
100 022656
101 022662
102 022664
103 022666
104 022672
105 022674

013146
104405
005303
001403
104401
000764
005302
003421
104401
005105
001002
104401
012037
104401
000000
104401
005705
001342
104401
000737
104413

107 022700
108 022710

022710
120

106 022676

109 022772

7%:

050345

000207

124

8$:
::67%:
668:

022546

001231

108:
11$:

001231

128:
13$:

148:

15$:

050345

:
16$:

001231

050345
022654

17$:
18%:

001231
050345

19¢:

208:

022772
117
105

TYPE

.WORD
ST
BEQ

0
R1
8$

;MESSAGE POINTER GOES HERE
*MORE TO TYPE?
*NO==BRANCH

BNE
TYPE
BR
JASCIZ

§s

5$
,67%
66$
/)/

:LOOP

MOV
BEQ
TYPE

(RO)+,108
11$
,S$CALF

;PICK ‘P DATA HEADER (DH) POINTER
*BRANCH IF NONE
*CARRIAGE RETURN-LINE FEED

LWORD

0
(RO)+,R1
208

;'DH’' POINTER GOES HERE
*PICKUP DATA TABLE (DT) POINTER
*BRANCH IF NONE

(RO)+,R3
(.10)+.Ré&
R4
148
a(R1)+,=(SP)

*NUMBER OF DATA WORDS TO TYPE
“AND HOW TO TYPE THEM
*OCTAL OR DECIMAL?
*DEC IMAL--BRANCH
::SAVE @(R1)+ FOR TYPEQUT
13GO TYPE--OCTAL ASCII(ALL DIGITS)

TYPE

001360
104401 022530
000401,

67 022532
68 022536
69 022540
70 022544

023024
127
123

SEQ 0104

TYPE

MOV
BEQ
CLR
MOV
MOV
BEQ
COM
TYPE

MOVB
MOVB
ROR
BCS
MOV
TYPOC
BR

MOV
TYPDS
DEC
BEQ
TYPE
BR
DEC
BLE
TYPE
COM
BNE
TYPE
MOV
TYPE
LWORD
TYPE
ST
BNE
TYPE
BR
RESREG

BLNKS?2

“TYPE 2 SPACES

*BRANCH IF NOT FINISHED
Y;TYPE ASCIZ STRING
P:GET OVER THE ASCIZ

RS
(RO)+,RO
(RO) +.R2
198 .
RS,
,SCRLF

15%

a(R1)+,-(SP)
R3
16%

,BLNKS2

13$
R2
208
,$CRLF
RS
17%

,BLNKS2
(RO)+,18%

0
,$CRLF
RS
12%
,BLNKS2
12%

RTS

.ASCIZ

?TESTNO

*SET INDENT SWITCH
*DATA FORMAT (DF) POINTER
*NUMBER OF DH'S 70 TYPE
*BRANCH IF DH NUMBER 1S 0
*NO INDENT
*CARRIAGE RETURN~-LINE FEED

;:SAVE @(R1)+ FOR TYPEOUT
23GO TYPE--DECIMAL ASCII WITH SIGN
*MORE NUMBERS TO TYPE?
*NO--BRANCH
STYPE 2 SPACES
:LOOP
*MORE DH'S?
*NO--BRANCH
LYES--START A NEW LINE
* INDENT?
*NO~=BRANCH
*TYPE 2 SPACES
*GET NEXT DH
“AND TYPE IT
*DH POINTER GOES HERE
*CARRIAGE RETURN-LINE FEED
* INDENT?
*NO=-=BRANCH
*TYPE 2 SPACES
*LOOP
*RESTORE RO = RS
*RETURN

PFECH: PFECH1,PFECH2,PFECH3,PFECH4 ;WORDS DEFINING TABLES BELOW
PFECH1: .ASCIZ ?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
PFECH2:

ERR PC

CPUERREG?

CZRMVBO RMOS/3/72 EXT'D DR TST

TYPERR - TYPE ERROR ROUTINE

11 02

12 02
13
14

MACRO v04.00

B 9
&-APR-81 11:57:12 PAGE 19-2
EVEN

52 02304.? 001132 022256 PFECH3:. WORD
36

00000
003

PFECHG:

PFTSTN:

.WORD

BYTE
BYTE

.WORD

HFTSTN,SERRPC, CPSAVE,0

INUMBER OF DATA HEADERS

TCONTAINS TEST NUMBER FOR PF BT FRROR

3
0

:
R OF WORDS IN DATA TABLE
“ALL 3 NUMBERS ARE OCTAL

SEC

010°¢

CZRMVBO RMOS5/3/2 EXT'D DR TST

TYPE

ROUTINE

MACRO v04.00

4=-APR-81 11:57:12 PAGE 20

.SBTIL

SEQ 0106

TYPE ROUTINE

.'.'.Q.'.t.Q.Q".'...'.'.""C'..t'....'.i'.'....'.Q."t'.'t.'..'.'

J*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL

S*NOTE1:
TeNOTE:

INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REGUIRED.

-~or£3

$FILLC CONTAINS THE CHARACTER TO FILL AFTER,

FeCALL:
i+1) USING A TRAP INSTRUCTION
e
TYPE
MESADR
.

i
- %

023042

105737

001173

017600
122737

000002
000001

001254

023072
023100
023102

122737
001405
010037

000100

001255

023112
023114

000000
132737

023046
23050
023052
023054
023056
023062

100002
000000
000430
010046

023070 001011

STYPE:

18:

023122
023124
023126
023130
023132
023134

023140
023142
023146
023150

001003
112046
001005
005726
012600
062716 000002
000002
122716
001430
122716

023154 001006
023156 005726
«

000040

001255

61$:
628:

2s:

608:
3s:
48:

000011

000200

023162

001231

023172
023176

023372

004737
123726

023254
001172

105366
002770
004737
105337
000770

::1S THERE A TERMINAL?

MOV
(MPB

@2(SP),RO
WAPTENV,SENV

::GET ADDRESS OF ASCIZ STRING
::RUNNING IN APT MODE

18
38
RO,=(SP)

5%:
68:

000001
023254
023372

78:

::BR IF YES
::HALT MERE IF NO TERMINAL
: ;LEAVE
::SAVE RO

BNE

62%

1ND,GO CHECK FOR APT CONSOLE

JSR

PC.SATY3

::SPOOL MESSAGE TO APT

608
(RO)+,~(SP)
4s
(SP)+
(SP)+,RO
#2,(SP)

::YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK
::RESTORE RO
::ADJUST RETURN PC

#APTSPOOL,SENVM ::SPOOL MESSAGE TO APT
628
:iNO,GO CHECK FOR CONSOLE
RO,61$
::SETUP MESSAGE ADDRESS FOR APT

.WORD
BITB

BNE
MOVB
BNE
TST
MOV
ADD

RT]
CMPB
BEQ
CMPB

O
WAPTCSUP,SENVM

#MT,(SP)
88
ACRLF,($P)

5%
(SP)+

$CRLF

023202 001350
.
023204 013746 001170
023210
023214
023216
023222
023c26

STPFLG

TYPE

105037

023170 000755

TSTB

BPL
HAL T
BR
MOV

BNE
TST

023160 104401

023164

TYPE

ME SADR

BITB
BEQ
MOV

023112

023106 004737 026756

::MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING

: MESSAGE ADDRESS
::APT CONSOLE SUPPRESSED

: :RETURN
:BRANCH IF <HT>

:;BRANCH IF NOT <CRLF>

::POP <CR><LF> EQUIV
PITYPE A CR AND LF

(LRB

SCHARCNT

:;CLEAR CHARACTER COUNT

JSR
(MPB

PC,STYPEC
SFILLC,(SP)+

::IS IT TIME FOR FILLER CHARS.?

BNE
MOV

DECB
BLT
JSR
DECB
BR

2%
SNULL = (SP)
1(SP)
63
PC,S$TYPEC
SCHARCNT
7%

11GET NEXT CHARACTER

::GO TYPE THIS CHARACTER

::1F NO GO GET NEXT CHAR.
:1GET # OF FILLER CHARS. NEEDED
DIAND THE NULL CHAR,

:IDOES A NULL NEED 7O BE TYPED?
:'BR IF NO--GO POP THE NULL OFF OF STACK
1360 TYPE A NULL
DO NOT COUNT AS A COUNT
::LOOP

CZRMVBO RM05/3/2 EXT'D DR TST

TYPE

ROUTINE

MACRO Vv04.00

D 9
4&=-APR-81 11:57:12 PAGE 20-1

JHORIZONTAL

023230 112716
023234 004737
023240 132737
023246 001372
023250 005726
023252 000724
623254
105777
023254
023260 100022
023262 017746
023266 042716
023272 122716
023276 001012
023300
023300 105777
023304 100375
023306 117716
023312 042716
023316 122716
023322 001366
023324
023324 005726
023326
023326 105777
023332 100375
023334 116677
023342 122766
023350 001003
023352 105037
023356 000406
023360 122766
023366 001402
023370 105227
023372 000000
023374 000207

lff‘

8%:

000040

023254
000007

023372

9%:

$TYPEC:

155700

155674
177600

TAS PROCESSOR

MOVR

JSR
BITB
BNE
TST
BR
TSTR
BPL
MOV

101%:

155650

102%:

000002
000015

155624
000002

023372
000012

000002

1$:

;:CHAR IN KYBD BUFFER?
;:BR IF NOT

#177600, (SP)

1STB
BPL
MOVB
(MPB
BNE
CLRB
BR
CMPB

BEQ
INCB

$CHARCNT
: . WORD
$TYPEX: RTS

;:TYPE A SPACE

; ;BRANCH IF NOT AT

;:TAB STOP
;:POP SPACE OFF STACK
;:GET NEXT CHARACTER

;:GET CHAR

;:STRIP EXTRANEOUS BITS
. ;WAS CHAR XOFF
;:BR IF NOT
;;WAIT FOR CHAR

;:GET CHAR

#177600, (SP)

;:STRIP 17

(SP)+

;:FIX STACK

asTPS
108
2(SP) ,as$TPB
ng'Z(SP)

;;WAIT UNTIL PRINTER IS READY

#SXON, (SP)
1018

000021

155632

a$TKS
108
AS$TKB, = (SP)

a$TKS
101$
A$TKB, (SP)

177600

108:

;sREPLACE TAB WITH SPACE

(SP)
, FF
#SXO
102%

000023
155654

' ,(SP)
PC,STYPEC
#7 ,$CHARCNT
9%
(SP)+

$SCHARCNT
STYPEX

#LF ,2(SP)
STYPEX
(PC)+
0

;sWAS IT XON?
;:BR IF NOT

::LOAD CHAR TO BE TYPED INTO DATA REG.
2:1S CHARACTER A CARRIAGE RETURN?
;sBRANCH IF NO
::gi?;-CLEAR CHARACTER COUNT

;;1S CHARACTER A LINE FEED?
'
s ;BRAMNCH IF YES
;:COUNT THE CHARACTER
;sCHARACTER COUNT STORAGE

J !

MACRO v04.00
CZRMVBO RMOS/3/2 EXT'D DR TST
BINARY TO OCTAL (ASCII) AND TYPE

4~-APR-81 11:57:12 PAGE 21

.SBTTL

BINARY TO OCTAL

SEQ 0108

(ASCII) AND TYPE

L
L
R e e

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

s*OCTAL (ASCII) NUMBER AND TYPE IT,

;*$TYPOS===ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:

:®

MOV

NUM,=(SP)

;sNUMSER TO BE TYPED

H
H

.BYTE
.BYTE

N
M

JiN=1 TO &6 FOR NUMBER OF DIGITS TO TYPE
2:M=1 OR 0

TYPOS

;;CALL 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:

MOV

TYPON

NUM, - (SP)

; :NUMBER TO BE TYPED
:sCALL FOR TYPEOUT

> &

:*%;YPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:

o
I
023376
023402
023410
023414
023420
023422
023430
023436
023444
023446
023450
023452
023456
023460
023464
023470
Co3474
023500

023502
023504
023506
023510
023512
023514
023516
023520
023524
023526
023532
023534
023536
023540

017646
116637
112637
062716
112737
112737
112737

010346
010446
010546
113704
005404
062704

110437
113704

016605
005003
006105

006105
006105
006105
010503
006103
105337
100016

042703
001002
005704
001403
005204

000000

023623
000002
000001
000005

023623

023621

023621
023623
023620

NUM, = (SP)

;;NUMBER TO BE TYPED
;2CALL FOR TYPEOUT

$TYPOS: MOV

a(SP) ,=(SP)

;:PICKUP THE MODE

ADD
BR
$TYPO(: MOVB

#2,(SP)
$TYPON
#1,80FILL

:;ADJUST RETURN ADDRESS

MOVB
MOovB

Rsmoo‘ E+1,R4

ADD

#6 R4

;:SUBTRACT IT FOR MAX. ALLOWED

CLR

;sCLEAR THE OUTPUT.UORD P

MOVB
MOVR
MOV

2%:

3%:

177770

4%:

;:L0AD ZERO FILL SWITCH
,;NUMBER OF DIGITS TC TYPE

#6,30MODE +1
#5,80CNT
R3,-(SP)
R4 ,~(SP)
R5,=(SP)

!'NIEJXB

1%:

1(SP) ,SOFILL
(SP)+,SOMODE+1

;2SET THE ZERO FILL SWITCH
;2SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT
;2SAVE R3
::SAVE R4
:2SAVE RS
;:GET THE NUMBER OF DIGITS TO TYPE

MOVB
$TYPON: MOVB
MOV
MOV
MOV

000006
023622
023621
000012

023622

MOV
TYPOC

ROL

R4 , SOMODE
$OFILL RS
12(SP) ,RS
R5

;:SAVE IT FOR USE
;2GET THE ZERO FILL SWIT(CH
;:PICKUP THE INPUT NUMBER
:;ROTATE M_B INTO

;:G0 DO MSB

*°C*'

;:FORM THIS DIGIT

ROL
ROL

RS
R5

ROL

;2GET LSB OF THIS DIGIT

R4
5%
R4

2 3SUPPRESS THIS 0?
J:BR [F YES

MOV
DECB
BPL
BIC
BNE
IST
BEQ
INC

R5,R3
$OMODE
7%
#177770,R3
4%

::TYPE THIS DIGIT?
J:BR IF NO
;3GET RID OF JUNK
:2TEST FOR O

::DON'T SUPPRESS ANYMORE Q'S

MACRO V04.00
CZRMYB0 RMQS/372 EXT'D DR TST
BINARY TQ OCTAL (ASCII) AND TYPE
£52703
052703

110337
104401
105337

000060
(00040
023616
023616
023620

5%:
7%:

BIS

BIS
MOV
DECB

#'0,R3
L

R3,8%

13
$OCNT
2%
6%
Ré&

6%:

000002

MOV

000004
gs:

RTI

BYTE

$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

11:57:12 PAGE 21~1

(52)+,R5
(SP)+ ,Ré
(SP)+,R3
)
.4 (5P)
2(SP
(SP)+,(SP)
(wlelels
e

023542
023546
023552
023556
023562
023566
023570
023572
023574
023576
623600
023602
023604
023612
023614
023616
023617
023620
023621
G23622

4=APR-8!

JsMAKE

THIS DIGIT ASCI!I

JiMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING

;:G0 TYPE THIS DIGIT
;:COUNT BY 1
JiBR IF MORE T0 DO
;iBR IF DONE
; INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIG 17
s ;RESTORE RS
; ;RESTORE R4

;;RESTORE R3
;:SET THE STACK FOR RETURNING
: sRETURN

;sSTORAGE FOR ASCII DIGIT
;;TERMINATOR FOR TYPE RCUTINE
;sO0CTAL DIGIT COUNTER
;:ZERO FILL SWITCH
;;NUMBER OF DIGITS 10 TYPE

CZRMVBO RMOS5/3/2 EXT'D DR TST

MACRO VU4.00

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

&=APR-81

SBTTL
e

11:57:12 PAGE 22

CONVERT BINARY TO DECIMAL
R

AND TYPE ROUTINE

RRRRRRRRR Rttt
ls ]

“*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
J*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED WITH SPACES.

s«CALL:
>

023624
023624
023626
023630
023632
023634
023636
023642
023646
023650
023652
023660
023662
023666
023672
023674
023700
023702
023704
023706
023710
023712
023714
023716
023720
023722
023724
023726
023734
€23740
023744
023746
023750
023754
023756
023760
023762
023764
023766
023770
023776
024000
024002
024004
024006

$TYPDS:

010046
010146
010246
010346

010546
012746
016605
100004

005405

112766

020200
0C0020

000055

005000
12703 024040
112723 000040
005002
016001
024030
160105 {
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663

105013
012605
012603
012602
012601

000001

1%:

2%:
3%:

(%:

;.PUT THE BINARY NUMBER ON THE STACK
;:G0 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MovB

RO,=(SP)
R1.=(SP)
R2.=(SP)

;:PUSH RO ON STACK
;2PUSH R1 ON STACK
;iPUSH R2 ON STACK

RS, =(SP)

;:PUSH RS ON STACK
;2SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT IS POS.

CLR

+ MOV
MOvB

(LR

MOV
SuB
BL1
INC
BR
ADD
TST

R3.=(SP)

;:PUSH R3

#20200,=(SP)
20(SP) ‘RS
1$

#'=,1(5P)
RO
#SDBLK ,R3

'é LR+
R

$DTBL (RO) ,R1

R1,RS
4%

177777

6%:
7%:

177776

:
9%

MovB

CLRB
MOV
MOV

MOV
MOV

:2ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
3
;2GET THE CONSTANT
;:FORM THIS BCD DIGIT

;:BR IF DONE

;: INCREASE THE 8CD DIGIT BY

;:CHECK IF BCD DIGIT=0

1 :MSD?

;:BR IF NO

;2YES=-=SET THE SIGN
;sMAKE THE BCD DIGIT ASCII

;sMAKE IT A SPACE IF NOT ALREADY A DIGIT
;2PUT THIS CHARACTER IN THE OUTPUT BUFFER

::JUST INCREMENTING
;:CHECK THE TABLE INDEX
;260 DO THE NEXT DIGIT
;G0 TO EXIT
;2GET THE LSD
;26D CHANGE TO ASCII

BLT
BGT

8%:

;sMAKE THE BINARY NUMBER POS.
;sMAKE THE ASCII NUMBER NEG.

;2FALL THROUGH IF O
;sSTILL DOING LEADING 0°S?
;:BR IF YES

8M]
ASLB
B8CC
MOVB
BIS
BIS
MOovB
ST
CMP
MOV
BR
1STB
BPL

ON STACK

;:ADD BACK THE CONSTANT

1STB

000010

177777

,
= (SP)
NUM

BNE

5%:

000001
000060
000040

MOV
TYPDS

9
=1(SP) ,=2(R3)
(R3)
(SP)+,RS
(SP)+ ,R3
(SP)+,R?2
(SP)+ ,R1

;sWAS THE LSD THE FIRST NON-ZERQ?

;sBR IF NO
:2YES==SET THE SIGN FOR TYPING

;2SET THE TERMINATOR
::POP STACK INTO RS
:POP STACK INTO R3

1 :POP STACK INTO RS

JJPOP STACK INTO R1

MACRO V04.00
(ZRMYBO RMOS5/3/2 EXT'D DR TST
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
024010
024012
024016
024024
024026

624030
024032
024034
024036
024040

012600
1064401

016666
023420

(240490

000002

4=APR=81

$DRLK:

SEQ 0171

(SP)+,RC

;iPOP STACK

MOV

5(SP),4(SP)

YYADJUST THE STACK

MOV

$DTAL:

MOV

TYPE

000004

11:57:12 PAGE 22=1

RTI

(SP)+. (SP)

10000.
1000.
100.

10.

BLKW

INTO RO

‘NOW TYPE THE NUMBER

$DBLK

::RETURN TO (USER

CZRMVBO RM0S/3/2 EXT'D DR TST

TTY

INPUT

MA(RO v04.00

ROUTINE

4=APR=-81 11:57:12 PAGE 23

.SBTTL

‘

SEQ 017,

TTY INPUT ROUTINE

:.'Qt'i'..'.tttfi.'ttt."t"!..Q.ttt.'l.tt.t't‘."'l".'tt".tt.'.t

024050
024052
024054
026056

.ENABL

00000C
000000
000000

LSB

$TKCNT: WORD
S$TKQIN: .WORD
$TKQOUT: *.WORD
$TKQSRT: .BLKB

024057

$TKQEND=.

0
0
0
1

.EVEN

:*TK

:INUMBER OF ITEMS IN QUEUE
::INPUT POINTER
::0UTPUT POINTER
::7TY KEYBOARD QUEUE

INITIALIZE ROUTINE

*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
:»SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT
P+CALL:

:*
e

264060
026064
024072
024100

024106
024114
024120
024126

005037
012737
013737
012737

012737

005777
012777
000207

024050
024056
024052
024130

024052
024054
000060
000062

000200
155042
000100

JSR

RETURN

$TKINT: CLR
MOV
MOV
MOV

MOV
ST
MOV
RTS

155032

PC,S$TKINT

)

STKCNT
#STKQSRT,$TKQIN
STKQIN,$TKQOUT
WSTKSRV,a#TKVEC

:;CLEAR COUNT OF ITEMS IN QUEUE
::MOVE THE STARTING ADDRESS OF THE
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
::INITIALIZE THE KEYBOARD VECTOR

@$TKB
#100,a$TkS
PC

::CLEAR DONE FLAG
:ENABLE TTY KEYBOARD INTERRUPT
:ZRETURN TO CALLER

#200,a#TKVEC+2

::'BR'' LEVEL 4

:*TK SERVICE ROUTINE
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:+IT IN THE QUEUE.

:=IF THE CHARACTER IS A ''CONTROL=C'' (*C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL~C'' RESTART ADDRESS (SHUT)

024130

117746

155026

§TKSRV: MOVB

@$TKB,-(SP)

;:PICKUP THE CHARACTER

021627

000021

(MP

(SP),#XON

::1S IT A RANDOM XON?

0246134

042716

024144
026146
024150

001002
005726
000002

024140

024152

024152
024156
024160
024164
024170
026172
026176
024202
024204
024212
026214

024214
024222
024224

177600

BIC

308:

021627
061007
104401
004737
005726
000137
021627
001004
022737
001500

000003

000176

001154

022737
001004
104401

000001

024050

025272
024060

025334
000007

001224

18:

BNE
1ST
RTI

#*C177,(SP).
308
(SP)+

(MP
BNE
TYPE
JSR
ST
JMP
(M
BNE
(MP
BEQ

(SP),#3
18
,SCNTLC
PC,STKINT
(SP)+
SHUT
(SP)a7
28
A#SWREG, SWR
68

(MP
BNE
TYPE

#1,8TKCNT
‘s
L $BELL

::STRIP THE JUNK

:BRANCH IF NO
::CLEAN RANDOM XON OFF STACK
: IRETURN
::1S 1T A CONTROL C?
: IBRANCH IF NO
::TYPE A CONTROL=C (*C)
:ZINIT THE KEYBOARD
::CLEAN UP STACK
::CONTROL C RESTART
::IS IT A CONTROL G?
: IBRANCH IF NO
::1S SOFT-SWR SELECTED?
::G0 TO SWR CHANGE

;:1S THE QUEUE FULL?
: BRANCH IF NO
IRING THE TTY BELL

MACRO V04.00

CZRMVBO RMQ5/3/2 EXT'D DR TST

TTY

INPUT

ROUTINE

024230
024232
024234
024240
024242
024246
024250
024254
024256
024262
024266
024272
024274
024302
024304
024310
024314
024316
024322
024324
024330
024334
024340
024346
024350
024356

005726
000451
021627
001021
005077
005726

105777
100375
117746
042716

J 9
11:57:12 PAGE 23-1

4-~APR-81

3%:

000023

(SP) 423
32%

CLR

154712

31%:

154704
154700
177600

154656

000100

32%:

024050

000140

000175
0C0040
177516

4%:

024052
024052

024057

024056

024052

a$TKS

TST
TSTB
BPL
MOvB

(SP)+

a$TKS
319
a$TKB,=(SP)

#2177, (SP)

5%:

;.15 IT A CONTROL=-S?

; :BRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
;sCLEAN CHAR OFF STACK
J;WAIT FOR A (HAR
;:LOOP UNTIL ITS THERE
;;GET _THE CHARACTER

JiMAKE IT 7-BIT ASCII
;218 IT A CONTROL=-Q?
31%
; :BRANCH IF NO
#100,@$TKS
;;REENABLE TTY KEYBOARD !NTERRUPTS
;;RETURN
$TKCNT
;:COUNT THIS CHARACTER
(gP),l140
;.18 IT UPPER CASE?
4
; ;BRANCH IF YES
- (SP) 175
;.18 IT A SPECIAL CHAR?
31
;;BRANCH IF YES
#40, (SP)
;sMAKE IT UPPER CASE
(SP) +,@8TKQIN
J;AND PUT IT IN QUEUE
$TKQIN
;;UPDATE THE POINTER
g;KQIN.fiiTKOEND ;G0 OFF THE END?
; ;BRANCH IF NO
#$TKQSRT,$TKQIN ;;RESET THE POINTER

BIC
CMP
BNE

000021

::E%??N CHARACTER OFF OF STACK

(SP)+

TST

BR
CMP
BNE

SEQ 0113

(SP)+, #21

MOV
RTI
INC

CMP
BLT
CMP
BGT
BIC
MovB
INC
CMP
BNE
MOV
RTI

; ;RETURN

iI.ttt&!t‘**l.é&.tI"""'.'Q't.t"til!t'tttt'.t.t.t'tt.ttt"t'

'SOFTHARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED

024360
024366
02437C
024374
024376
024402
024406
024412

022737
001124
105777
100121
117746

042716
021627
001300

000176

001154

FROM THE TRAP HANDLER, AND WILL

*«SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
SEEQ& UélE”N OPERATING IN TTY INTERRUPT MODE.
#SWREG
SWR
,
231S THE SOFT-SWR SELECTED

Wre\

154564

BPL

154560
177600

MOvB
BIC
cMP
BNE

000007

158
asTKS
15%

a$TKB,-(SP)

#2C177, (SP)

(SP) &7

2:EXIT IF NOT
;1S A CHAR WAITING?
;:1F NOT, EXIT
;:YES
2:MAKE IT 7-BIT ASCII
2:1S IT A CONTROL-G?
;2IF NOT, PUT IT IN THE TTY QUEUE
s3AND EXIT

tttttt'l'ti!t‘tt't'titiQQ..Qt...ttfi'tfi"t'tt..'it.".‘.'t'tlttt

*CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

**ROUTINE OR FROM /THE SOF TWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A

024414
024422
024424
024426
024432
024436

024444
024450
024454
024460

123727

001674
005726
004737
005077
112737
104401
104401

013746
104402

001150
024060
154522
000001

025304
025311
000176

000001

6;C0NTR0L°G BEING TYPED AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
CMPB

$AUTOB
., #

.‘.'ARE WE RUNNING IN AUTO-MODE?

TST

JSR
CLR
MovB

(SP)+

PC,$TKINT
a$TKS
#1,8INTAG

::CLEAR CONTROL-G OFF STACK
s:FLUSH THE TTY INPUT QUEUE
;;DISABLE TTY KEYBOARD INTERRUPTS
;:SET INTERRUPT MODE INDICATOR

TYPE
TYPE

.SCNTLG
. SMSWR

..ECHO THE CONTROL=G (*G)

BEQ

001151
$GTSWR:

MOV

TYPOC

SWREG, = (SP)

sBRANCH IF YES

s TYPE CURRENT CONTENTS

::SAVE SWREG FOR TYPEOUT
;:GO TYPE--QOCTAL ASCIIC(ALL DIGITS)

CZRMVBO RM05/3/2 EXT'D DR TST

TTY

INPUT

ROUTINE

024462
024466

024470
024472
024476
024500
024504

024510

024514
024516
024522
024526
024534
024536
024544

024550
024554
024556
024562
024566

024570
024574
024576
024602
024604
024612
024616
024622
024630
024632
024640
024642
024646
024652
024654
024660
024662
024666
024672
024674
024676
024700
024702
024706
024712
024714
024720

104401

025322

105777
100375

154462

117746

MACRO v04.00

4-APR-81
TYPE

11:57:12 PAGE 23~2
. SMNEW

SEQ

; ;PROMPT FOR NEW SWR

TSTB
BPL

a$TKS
7%

;:CLEAR COUNTER
;s THE NEW SWR
::CHAR THERE?
::1F NOT TRY AGAIN

154456
177600

MOvB

A$TKB, = (SP)

;s:PICK UP CHAR

021627
001015
104401
062706
123727
001003
012777
000137

000003

CMP
BNE

(SP) ,#3
9%

;:1S IT A CONTROL~C?
s :BRANCH IF NOT
::YES, ECHO CONTROL=-C (*C)
;:CLEAN UP STACK
; REENABLE TTY KEYBOARD INTERRUPTS?
; ;BRANCH IF NO
;;ALLOW TTY KEYBOARD INTERRUPTS
;2 CONTROL=C RESTART

021627
001005
104401
062706
000737

000025

9%:

025277
000006

20%:

021627
001022
005766
001403
016677
062706

000015

10%:

005046
005046

042716

104401
123727

001003
012777
000002
004737

021627

002420
021627
003015
042726
005766
001403
006376

006316
006316
005266

056616
000667
104401

000720

025272
000006
001151
000100
025334

19%:

7%:

CLR
CLR

BIC

TYPE
ADD

000001
154414

8%:

CMPB
BNE
MOV
JMP
CMP
BNE

TYPE
ADD
BR

=(SP)
=(SP)

#AC177,(SP)
LSCNTIL.C

#6,SP
$INTAG,#1

#100,98TKS
SHUT

(SP) ,#25
108

LSCNTLU

#6,SP
19%

(SP) .15

001231
001151

000001

000100

154320

;;ECHO CHAR

(SP) ,#60
18%
(SP) ,#67
188

000067

#60, (SP)+

000060
000002

2(SP)
17%

000002
177776

17%:

001230

18%:

.DSABL

(SP)
(SP)
(SP)

2(SP)
=2(SP) ,(SP)
7$
$QUES

LSB

;218 IT A <CR>?

PC,STYPEC

M
$INTAG,

023254
000060

;;LET'S TRY IT AGAIN

15%
#100,387KS

2(SP) ,aSWR
#6,SP
$CRLF

154342

;218 IT A CONTROL-U?
s sBRANCH IF NOT
;:YES, ECHO CONTROL-U (*U)
;; IGNORE PREVIOUS INPUT

; :BRANCH IF NO
s:YES, IS IT THE FIRST CHAR?
: ;BRANCH IF YES
;:SAVE NEW SWR
2:CLEAR UP STACK
::ECHO <CR> AND <LF>
; ;RE~ENABLE LB¥ KBD INTERRUPTS?
; ;BRANCH IF
; sRE-ENABLE TTY KBD INTERRUPTS

000004
000002
000006

1iIMAKE IT 7-81T ASCII

20$

s sRETURN

:;CHAR < 0?
;sBRANCH IF YES
;:CHAR > 7?7
: :BRANCH IF YES
; :STRIP=OFF ASCII
::1S THIS THE FIRST CHAR
: sBRANCH IF YES
;:NO, SHIFT PRESENT

CHAR OVER TO MAKE
b4
ROOM FOR NEW ONE.
-+
;;KEEP COUNT OF CHAR
;+SET IN NEW CHAR
;:GET THE NEXT ONE
:2TYPE

?<CR><LF>

;2SIMULATE CONTROL-U

::!"fi"."tt'tttfitttt"!"'.'it'liltl't‘i!fi'!"..t'.ltilQt"‘tt'

0114

| CZRMVBO RM05/3/2 EXT'D DR TST

MACRO V04.00

TTY INPUT ROUTINE

'
|

i
i

SEQ 0115

,--wf ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

’

4=APR=-81 11:57:12 PAGE 23-3

RDCHR

RETURN HERE

024722 011646

024724 016666 000004 000002

024732
024736

005066
00504

024744

000002

024746
024752
024754
024760

005737
001775
005337
117766

024050

025010

000002

024740 012746

024746

024766
024772
025000
025002

000004
p

$RDCHR: MOV

024746
,

648

1%:

024050
177070

000004

005237 024054
023727 024054 024057
001003
012737 024056 024054

28:

; :PUSH DOWN THE PC AND

4(5P)
-(SP)

“:GET READY FOR A CHARACTER
“:PUT NEW PS ON STACK

4(SP) ,2(SP)

MOV

#64$,=(SP)

RTI

ST
BEQ
DEC
MOVB

iNC
CMP
BNE
MOV
RTI

*:CHARACTER IS ON THE STACK
JiWITH PARITY BIT STRIPPED CFFf

(SP) ,=(SP)

MOV
CLR
CLR

;:GET A CHARACTER FROM THE QUEUE

$TKCNT
1%
$TKCNT
@»T~QOUT,4(SP)

YTHE PS

“:PUT NEW PC ON STACK
“:POP NEW PC AND PS

;:WAIT ON A CHARACTER
: ;:DECREMENT THE COUNTER
:iGET ONE CHARACTER

$TKI0UT
:UPDATE THE POINTER
$TKQOUT ntxoew “:DID IT GO OFF OF THE END?
2$
: :BRANCH IF NO
#STKQSRT,$TKQOUT :;RESET THE POINTER
: RETURN

ttttttttt.titttt.""".ttttttt.ttttttttt'tttttttttttttttttt't'

12{5 ROUTINE WILL INPUT A STRING FROM THE TTY
. &

025012

010346

101456

025032
025034

112613
122713

025030

104410

025040 001022
025042 005716
025044 001007
025046

112737

025074
025100

103434

111337
104401

0251064 000746
025106
025110
025112
025120
025124
025126
025132

005716
001406
112737
104401
005016
122713
001003

28:

108:

:
025244
6$:

MOVB
CMPB

025244

7%:

“:BR IF YES

(SP)+,(R3)
#177.(R3)

+:GET CHARACTER
;IS IT A RUBOUT

.98
#-1, (SP)
R3
R3,#S$TTYIN

ST
BEQ
MOVB
TYPE
CLR
(MPB
BNE

;:TERMINATOR WILL BE A BYTE OF ALL 0°'S

::SAVE R3

TYPE
MOV
DEC
CMP

::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

-(5P)
::CLEAR THE RUBOUT KEY
#STTYIN,R3
*:GET ADDRESS
#STTYIN+20. .R3 :;BUFFER FULL?
5
(SP)
4%

MOVB
TYPE

:2INPUT A STRING FROM THE TTY

R3,=(SP)

BNE
ST
BNE

BLO

5%;

000025

BLOS

MOVB

025244
025244

000134
025244

CLR
MOV
CMP

RDCHR

000177

025054 104401 025244
025060 012716 177777
025064 005303
025066 020327 025246
025072

18:

000134

RETURN HERE

$RDLIN: MOV

025014 005046
025016 012703 025246
025022 022703 025272
025026

RDL IN

#'\.,9%

(R3),9%
.98

(SP)
7$
#'\,9%
,9%
(SP)
#25, (R3)
8%

)

$:GD READ ONE CHARACTER FROM THE TTY
::BR IF NO
::1S THIS THE FIRST RUBOUT?
*BR IF NO
,.rvpe A BACK SLASH

:sSET THE RUBOUT KEY
*BACKUP BY ONE
..smcx EMPTY?
*BR IF YES

S:SETUP TO TYPEOUT THE DELETED CHAR.
1:GO TYPE

1360 READ ANOTHER CHAR.

: iRUBOUT KEY SET?
*BR IF NO
“ITYPE A BACK SLASH

;:CLEAR THE RUBOUT KEY
2+ 1S CHARACTER A CTRL U?
::BR IF NO

| TTY
CZPMVBO
RMQS/3/2 EXT'D DR TST
INPUT ROUTINE
’

025134

104401

025277

025142

122713

000022

025150
025152

105013
104401

025140 000726

025146 001011

MACRO V04.00 4-APR-81 11:57:12 PAGE Zg-é
M

TYPE

$CNTLU

;:TYPE A CONTROL 'V’

CMPB

#22,(R3)

“%1S CHARACTER A ‘*R'"

001231

CLRB
TYPE

(R3)
,S$CALF

001230

48:

3$:

BR
TYPE
B8R

8$:

025156 104401 025246

025162 000717
025164 104401
025170 000712

025172
025176
025202

111337
104401
122723

025244
025244
000015

025210
025214
025220

105063
104401
005726

177777
001232

025206 001305

025222
025224
025226
025234
025242
025244
025245
025246
025272

025277
025304
025311
025322

136
136
015
040

103

125
107
012
040

3 025334 005737 000042
4 025340 001002
5 025342 000137 004712

6 025346

7 025352

005037

000137

001330
021334

BNE

TYPE

$STTYIN

28
,$QUES
is

MOVB
TYPE
C(MPB

(R3),9%
.9%
#15,(R3)+

CLRB
TYPE
ST

=1(R3)
,SLF
(SP)+,

ENE

012603
011646
016666 000004 000002
012766 025246 000004
000002
000
98:
000
s
136

015

MOV
MOV
MOV
MOV
RTI
BYTE
.BYTE

$STTYIN: .BLKB
SCNTLC: .ASCIZ

(SP)+,R3
(SP) ,=(SP)
4(SP) ,2(SP)
#S$TTYIN,&(SP)
0
0
20.
/°C/<15><12>

1:GO START OVER

P :BRANCH IF NO-

““CLEAR THE CHARACTER
YITYPE
A “CRTM & ‘LF"

“STYPE THE INPUT STRING

1360 PICKUP ANOTHER CHACTER
YITYPE A '2°
**CLEAR THE BUFFER AND LOOP
*“ECHO THE CHARACTER
::CHECK FOR RETUSN

*:LOOP IF NOT RETURN

“:CLEAR RETURN (THE 15)
:iTYPE A LINE FEED
*CLEAN RUBOUT KEY FROM THE STACK

**RESTORE R3
:;ADJUST THE STACK AND PUT ADDRESS OF THE
i
FIRST ASCII CHARACTER ON IT
; :RETURN

*:STORAGE FOR ASCII CHAR. TO TYPE
: :TERMINATOR

*“RESERVE 20. BYTES FOR TTY INPUT
::CONTROL '’

015 S$CNTLU: .ASCIZ /*U/<15><12>
::CONTROL ‘U’
015 SCNTLG: .ASCIZ /*G/<15><12>
::CONTROL '’
123 $MSWR:
.ASCIZ <15><12>/SWR = /
116 SMNEW: .ASCIZ / NEW = /
.EVEN

SHUT:
1$:

TST
BNE
JMP
CLR

JMP

ane2
1%
START2
DRVSEL

. - SEOP

:ANY MONITOR PRESENT ?
*BR IF YES
1GO TO 'START2'

*FUDGE NO DRIVES SELECTED

sRETURN CONTROL TO MONITCR

SEQ 0116

CZRMvBO RM0S5/3/2 EXT'D DR TST

SCOPE HANDLER ROUTINE

MACRO V04.00
.SBTTL

&=-APR-81 11:57:12 PAGE 24

SEQ 0117

SCOPE HANDLER ROUTINE

Rt Rttt
sl ]l

-THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS,

IT WILL INCREMENT

:*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:

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

-su14 1

:*SU11=
;*SW09=1
s *CALL

S
025356
025356
025360
025366
025370
025374

025374

025376

025402
025410
025414
025420
025422
025424
025430
025432
025432
025436
025440
025446
025450
025454
025462
025470
025472
025500
025504
025506

025512
025520
025522
025530
025532
025540
025544
025550
025556
025562
025570
025572
025576

104407
032777
001402

000137

:
$SCOPE

040000

153566

025740

9%:

CKSWR
BIT
BEQ
JMP

;MRRRASTART OF

$XTSTR: BR

000416

013746
012737
005737
012637
000531
022626
012637
000474

000004
025422 000004
177060
000004

105737
001502
022737
001455
013746
012737
013737
000406
012737
012716
000002
012637

001117

022737
001430
032737
001424
042737
013746
017646
012737
011677
042777

177777

022256

000001

022256

000001
001154
000000
000176
153372
001000

177766

104177
012676
012637

1%:

000004

177777

022256

000004
025472
177766

000004
022256

177777

022256

025506
000004

000000
001154

001154
153364

;:SCOPE=10T

SCOPE

#BIT14,3SWR
9%
SOVER .

;TEST
FOR CHANGE IN SOF T=SWR
LOOP ON PRESENT TEST?

$iNO IF SW14=0:
..JUHP OVER SCOPE ROUT INE

ngE FOR THE XOR TESTERMAAMA

..IF RUNNING ON THE ‘'XOR’’ TESTER CHANGE
sTHIS INSTRUCTION TO A "NOP'’*

(NOP=240)

Q#ERRVEC,~(SP)
JSS}OOERRVEC

::SAVE THE CONTENTS OF THE ERROR VECTOR
.‘:SET FOR_TIMEOUT

(MP
BEQ
BIT
BEQ
BIC

#=1,CPSAVE

MOV

#176, SHR
(SP) .aSWR

;;SEE IF CPSAVE HAS (CPU ERR REG TIMEOUT INDICATION
: ;BRANCH IF SO
;;SEE IF THE POWER MONITOR BIT IS ON
;sBRANCH TO CONTINUE ROUTINE IF CLEAR
;:CLEAR THE BIT FOUND TO BE SET
;:SAVE SWR ADDRESS
::SAVE SWR VALUE
2:GET SOF TWARE SWR ADDRESS
;+GET CURRENT SWR VALUE
LOOP ON ERROR ON THIS ERROR
:;DON'T ALLOW
;+CALL SPECIAL POWER FAIL BIT ERROR CALL
;;RESTORE SWR TO ORIGINAL VALUE
;;RESTORE SWR ADDRESS

MOV
MOV
;TIME OUT ON XOR?
TST
(SP) + ,@#ERRVEC
MOV
..RESTORE THE ERROR VECTOR
$SVLAD
B8R
;GO _TO THE NEXT TEST
(SP)+,(SP)+
5%:
cMP
::CLEAR THE STACK AFTER A TIME OUT
;gP)*+ONERRVEC
MOV
..RESTORE THE ERROR VECTOR
BR
:LOOP ON THE PRESENT TEST
N
TESTERWAAN
XOR'
6$: ; ARANHEND OF CODE FOR THE
$ERFLG
2%:
TSTB
..HAS AN ERROR OCCURRED?
;sBR_IF NO
38
BEQ
z—l CPSAVE
CMP
..SEE IF TIMEOUT WAS PREVIOUSLY RECORDED
sKICK AROUND ROUTINE IF SO
003$
BEQ
MOV
ERRVEC, - (SP)
::SAVE CONTENTS OF ERROR VECTOR
#2000$
. ERRVEC
MOV
;:SETUP 'TRAP' RETURN ADDRESS
177766 CPSAVE
MOV
:;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
BR
2001$
#-1,CPSAVE
2000%:
MOV
;2SET CPU ERROR REGISTER TIMEOUT INDICATOR
#2001$, (SP)
MOV
;sSETUP RETURN ADDRESS
RTI
(SP)+ ,ERRVEC
2001%:
MoV
;sRESTORE CONTENTS OF ERROR VECTOR

2002%:

MOV
MOV
MOV
BIC
EMT
MoV
Mov

20038

#Bé;OO,CPSAVE
20
#B1T00,177766
,
= (SP)
SWR
a(SP) ,=(SP)

#B1709,aSWR
177
(SP)+,a(SP)
(SP)+.SWR

SCOPE WANDLER ROUT INE

MACRO v04.00

conn

001117

001000

153334

001124

001122

001117
001220
153302

001120
001220

001120

000001

001120
001220

001116

001240

001122
001124
001222
00000
001116
001122

2003%:

7%:
48:

004000

02575‘
001116

4&=-APR-81

38:

18:
$SVLAD:

$OVER:

SMXONT:

P31t
St F L 4

C2RMVBO RMOS/3/2 EXT'D DR TST

B8 10
11:57:12 PAGE 24-1

giRMx.’!RFLG

#31709,a5wR

3]
SLPERR ,$LPADR
SOVER

SERFLG
$TIMES
1%

#BIT11,aSWR
1%

$ICNT
$TIMES,SICNT
$OVER

#1,81CNT
SMXCNT ,STIMES
STSTNM
STSTNM, STESTN
(SP) ,SLPADR
(SP) ,$LPERR
$ESCAPE
#1, SERMAX

..Mxl ezonons FOR THIS TEST OCCURRED?

ON ERROR?
::LOOP
‘BR IF NO

“:SET LOOP ADDRESS TO LAST SCOPE

;;IERO THE ERROR FLAG
JsCLEAR THE NUMBER OF TTERATIONS TO MAKE
2:ESCAPE TO THE NEXT TEST
;2 INHIBIT ITERATIONS?
;:BR IF YES
'-INCREFEM JITERATION COUNT
JCHECK THE NUMBER OF ITERATIONS MADE
“:BR IF MORE ITERATION REQUIRED
R!l ITIALIZE THE ITERATION COUNTER
SET Wl
OF ITERATIONS TO DO

..CO\.N TEST NUMBERS
;:SET TEST au-e IN APT MA]LBOX
:;SAVE SCOPE
LOOP ADDRESS

;;SAVE ERROR Loor ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
22ONLY ALLOW ONE(1) ERROR ON NEXT TEST

, ;:DISPLAY TEST NUMBER
aD I SPLAY
$TSTNM
$LPADR, (5P)
..ruoee RETURN ADDRESS
nxfs PS

2:MAX, NUMBER NOF [TERATIONS

SEQ 0118

CZRMYBO RMOS/3/2 EXT'D DR TST MACRO v04.00 4=-APR-81 11:57:12 PAGE 22
SAVE AND RESTORE RO=R5 ROUTINES
c1

.SBTTL

SAVE AND RESTORE RO-RS ROUTINES

.'.‘.'...IQ....'......'""".'.."'.Q'.'..."'......""...QQ".t.

:*SAVE RO=RS

svCALL:

SAVREG

'UPON RETURN FROM $SAVREG THE STA(K WILL LCOK LIKE:
-TOP---(016)

te +2m==(+18)

e +4===R5
RIRY 71

ta +B===R3

t%e10===R2
ee12-==R]
t2+14===RO

025756

025756
025760

010046
010146

025764

010346

025770
025772
025776
026002
026006

010546
016646
016646
016646
016646

$SAVREG:

025762 010246
025766

026012

RO,=(SP)
R1.-(SP)

MOV

RS.=(SP)

MOV

010446

000002

MOV
MOV
MOV

,wwgmmm
ON STACK

Ré.=(SP)

*IPUSH R4 ON STACK

MOV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+.22(SP)
(SP)+.22(SP)
(SP)+.22(SP)

;;RESTORE
::RESTORE
::RESTORE
::RESTORE

MOV

(SP)+.Ré&

*1POP STACK INTO R

MOV
MoV
MOV

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

MOV
MOV
MOV
MOV
MOV

000022
000022
000022
000022

R2.=(SF)

::PUSH RO ON STACK
*PUSH R1 ON STACK

RTI

RS.=(SP)
22(SP).=(SP)
22(SP).=(S5P)
22(SP).-(SP)
22(SP).-(5P)

:PUSH RS ON STACK
::SAVE PS OF MAIN FLOW
::SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
::SAVE PC OF CALL

:*RESTORE RO-RS
'CALL'

026014

026014
026020
026024
026030

026034

012666
012666
012666
012666

012605

026036 012604
026040

012603

026050

000002

026042
026044
026046

012602
012601
012600

000022
000022
000022
000022

$RESREG:

RESREG

MOV

RTI

(SP)+.RS

(SP)+.R3

PC OF
PS OF
PC OF
PS OF

CALL
CALL
MAIN FLOW
MAIN FLOW

::POP STACK INTO RS

::POP STACK INTO R3
*POP STACK INTO R2
,.POP STACK INTO R1
*POP STACK INTO RO

CZRMVBO RM05/3/2 EXT'D DR TST

MACRO v04.00

&4~APR=81

TRAP DECODER

.SBTTL
S

A2 iR

D1 0

11:57:12 PAGE 2 6

SEQ 0120

TRAP DECODER
AR

AR AR

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

]

THE '‘TRAP'' INSTRUCTION

J*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.

026052

010046

026060

005740

026054

026062
026064

026066

026072

$TRAP:

016600 000002
111000

006300

016000

000200

MOV

RO,=(SP)

; :SAVE RO

=(R0)

1 :BACKUP BY 2

MOV

2(5P) RO

MOVR
026106

$:GET TRAP ADDRESS

(RO) ,RO

ASL

RTS

MOV

+:GET RIGHT BYTE OF TRAP

$TRPAD(RO)
,RO

+:POSITION FOR INDEXING

::INDEX TO TABLE

©:G0 TO ROUTINE

::THIS IS USE TO HANDLE THE ‘‘GETPRI’‘ MACRO
026074

011646

0263104

000002

026076 016666

000004

000002

$TRAP2: MOV

(SP) ,=(SP)

MOV

4(SP) ,2(5P)

RTI

.SBTTL

::MOVE THE PC DOWN

$:MOVE THE PSW DOWN
::RESTORE THE PSw

TRAP TABLE

:*THIS

TABLE

CONTAINS THE

ROUT INE

STARTING ADDRESSES OF

S«BY THE '‘TRAP'' INSTRUCTION.

026106

026074

$TRPAD: .WORD

026122

024450

026124
026126
026130
026132
026134

024360
024722
025012
025756
026014

026110
026112
026114
026116
026120

023042
023422
023376
023436
023624

STYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

STRAP2

THE ROUTINES CALLED

;.CALL=TYPE
;:CALL=TYPOC
;;CALL=TYPOS
::CALL=TYPON
;:CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
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

;:CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
SRDCHR
SRDLIN
$SAVREG
SRESREG

:;CALL=CKSWR
- :CALL=RDCHR
:-CALL=RDLIN
::CALL=SAVREG
::CALL=RESREG

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
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

E 1

| SINGLE
CZRMVBOLENGTH
RMOS/3/2
EXT'D DR TST MACRD v04.00 4=-APR-81 11:57:12 PAGE 29
BINARY T0O DECIMAL ASCIZ ROUTINE
LSBTTL

SEQ 0127

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

RN R AR R RN R AR AP TR R AN NN R N AR A NN AR AN ARPIAARARA

-THIS ROUTINE WwiILL

I*UNSIGNED DECIMAL ASCIZ NUMBER.
eCALL

e
.

026136
026144

016637
012746

026154
026160

062716
012666

026150

026164
026166

000002
026166

004737

026172

000207
000000

0000CO

026166

$SB2D:

18:

MOV
JSR

NUMBER, = (S5P)
PC,a#$5820

..PUY BINARY NUMBER o~ THE STACK
s CALL

MOV
MOV

2(5P) 1%
#1%,-(SP)

; :SAVE BINARY NUMBER
;;SET POINTER

ADD
MOV

#5, (SP)
(SP)+,2(SP)

;ONLY ALLOW FIVE CHARACTERS
;:PICKUP POINTER

RE TURN

JSR

000005
000002

RN AANRRAR

CONVERT A 16=BIT UNSIGNED BINARY NUMBER 10 AN

RTS
.WORD

PC,a#8082D
PC
0,0

,.ADDRESS OF

THE 1ST ASCIZ CHAR.IS ON THE STACK

;;CALL DOUBLE LENGTH CONVERT
; sRETURN

’

F i0
11:57:12 PAGE 2 8

MACRO Vv04.00 4=APR=81
CZRMVBO RM(OS5/3/72 EXT'D DR TST
DOUBLE LENGTH BINARY TO DETIMAL ASCII CONVERT ROUTINE
SBTTL
ALl

SEQ 0120

DOUBLE LENGTH BINARY TO DECIMAL ASCII
A

AR R

CONVERT ROUTINE

AR ARl
Ald
Rl
Rl

S*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
:'ggg}¢?LE<Asc11> NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
b4

s=CALL
i
i

o
.

026172
026174
026200
026204
026210
026212
026214
026222
026226
026232
026234
026236
026240
026242
026244
026246
026250
026252
026254
026256
026260
026264
026266
026270
026272
026274
026276
026300
026302
026304
026306
026310
026312
026314
026316
026320
026322
026324
026326
026320

026332

026334
026336
026340

106412

016602
012700
010066
012201
012202
012737
012704
012705
005003
61401
05602

$DB2D:

000002
026352
000002
0C0012
026302
026304

vtE.

MOV
JSR
RE TURN

#PNTR,=(SP)

PC,an$DB2D

2(SP) ,R2
#$DECVL ,RO
RO,2(SP)

(R2) +.R2

18:
2%:

#10..48
#$TNPWR
,
é
#STNPWR+
RS
2
R3
(R&) ,R1

161502

002402
005203
000772
062401
005502
062402
022525
052703

110320

005327
000000
001357

000230
041100
000017
103240

000001
023420

;:SAVE REGISTERS
;:PICKUP THE DATA POINTER

;:GET ADDRESS OF “'SDECVL'" STRING
:sPUT ADDRESS OF ASCIZ STRING ON STACK
;;PICKUP THE BINARY NUMBER
;:SET UP TO DO 10 CONVERSIONS
; ;ADDRESS OF TEN POWER
:;CLEAR PARTIAL
::SUBTRACT TEN POWER
;:BR IF TEN POWER TO LARGF

;:ADD 1 TO PARTIAL

3%:

(RG)
+ R
R2
(R4)+ ,R2

(RS)+_,

c’O.RS

000060

{RS)+

R3,{(RO)+

4%:

(P()+

0
1%

(RO)+

105020
104413

000207
145000
035632
160400
002765
113200

;.THE FIRST ADDRESS OF ASCIZ

::1S ON THE STACK

(R2) +,R1

026270

;:POINTER T0 LOW WORD OF BINARY NUMSER

$TNPWR:

;:L0O0P
::RESTORE SUBTRACTED VALUE

22MOVE TO NEXT TEN POWER
2 CHANGE PARTIAL TO ASCI!
;:SAVE IT
;;DONE?

2:BR IF NO
;s TERMINATOR
;sRESTORE REGISTERS
; sRETURN

;:1.0E09

;:1.0€08

;:1.0E07
;:1.0E06
42 Y. 0805
;21,0804

001750

:31.0€03

000144
000000

;31,0802

MACRO v04.00 4&=APR=81
~ZRMYBO RMQS/3/2 EXT'D DR TST
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

026342
026344
026346
026350
026352

00002
000000
000001
000000

12
0
$DECVL:

G 10

11:57:12 PAGE 28-1

;1,060

;31,0600

JBLKB

JIRESERVE STORAGE FOR ASCIZ STRING

SEQ

D172°

MACRC v04.00 4=~APR-B1
NUMERICAL ASTIZ STRING SUPPRESS LEADING ZEROS

ZRMUBC RMOS/3/2 EXT'D DR TST

TYPE

JSBTTL
e

TYPE

H1 0
11:57:12 PAGE 2 9

NUMERICAL

ASCIZ

SEC 0124

STRING SUPPRESS LEADING ZEROS

222222R0l
R R

$eTHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
s *LEADING NUMBERS.
s»CALL

026366
026370
026374

026376

026400
026404
026406
026410
026414
G26416
026420
026422
026424

000004
000060
02641¢€

;

MOV
JSR

$SUPRS: MOV
MOv
TSTR
1%:
BEQ

CMPS

2%:
3%:

BEQ
DEC
MOV

TYPE

MOV
MOv
RTS

, = (SP)
ANUMADR
PC,al$SUPRS

RO,=(SP)

4&(SP) ,RO
(RO)

#'0,(RO)+
1%
RO

RO,3$

(SP)+,R0O
(SP)+,(SP)

;:FIRST ADDRESS OF ASCiZ STRING

;:SAVE RO
;iPICKUP THE POINTER
;s TERMINATEOR?
i8R IF YES

215 THIS AN ASCII 'O
?

;:BR IF YES

; ;BACKUP BY ‘1"

;2SAVE FOR TYPING

;:G0 TYPE
;:ASCIZ POINTER GOES HERE
:;RESTORE RC
;JRESTORE THE STACK
; JRETURN

(ZRMVBO RM(OS/3/2 EXT*D DR 187
RANDOM NUMBER GENERATOR R
TINE

MACRD v04.00 4=-APR-81 11:57:12 PAGEb338
.SBTTL
e

SEG

RANDOM NUMBER GENERATOR ROUTINE
2 222

R RNl
d ]

$*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
J*WlTH A RANGE OF O TO 2(+33)=1,
solALL5
.

JSR

RE TURN

PC,$SRAND

;sCALL THE ROUT INE
JJRETURN HERE THE RANDOM
JJNUMBER WILL BE IN
2 s SHINUM, SLONUM

RO,=(SP)
R1,=(SP)
R2,.=(SP)

;;PUSH RO ON STACK

026426
026426

026430
026432
026434

026440
026444
026450
026452
026454
026456
026460
026464
026466
026472
026476
026500
026504
026510
026514
026516
026520
026522
026524
026526

010046
010146
010246
013700
013701
012702
006300
006101
005202

001374
063700
005501
063701
062700

005501
062701
010037
010137
012602
012601
012600
000207
176543
123456

$RAND:

$LONUM,RO
$HINUM,R1

026526
026524
177771

026526

02€524
001057
047401
026526
026524

ASL

#=-7 ,R2
RO
R1
R2
1%

$LONUM,RO
R1

$HINUM,R1

0;057.R0
R

R
847401
RO, SLONUM
R1,$HINUM
(SP)+ R2
(SP)+ R
(SP)+ RO

176543
123456

;:PUSH R1

ON STACK

;:PUSH R2 ON STACK
sSET RO WITH LOW

;:SET R1 WITH HIGH

;2SET SHIFT COUNT

;:SHIFT RO LEFT AND

::ROTATE CARRY INTO R1 AND

;;CHECK FOR DONE
;;CONTINUE SHIFT LOOP

;:ADD NUMBER TO MAKE X 129
: :PROPOGATE CARRY
;;ADD NUMBER TO MAKE X 129
;:ADD LOW CONSTANT
: ;PROPOGATE CARRY
;:ADD HIGH CONSTANT
;2SAVE RO
;:SAVE R1
2:POP STACK INTO R2

;:POP STACK INTO R1

;;POP STACK INTO RO

: ;RETURN

0125

CZRMVBO RMQS5/3/2 EXT'D DR TST
INTEGER DIVIDE ROUTINE

MACRO v04.00

4-APR=-81

LSBTTL
W

J 10

11:57:172 PAG 31

SEQ 0126

INTEGER DIVIDE ROUTINE

AEEEE AT E

2] RARAAAARAANANARARAN
I AAR AR NN RN

i*THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER
A 16=BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
A
":*DIVIDEND BY
J*A 16=8IT TWO'S COMPLEMENT INTE GER QUOTIENT AND A 16-BIT REMAINDER.
t+DIVISION WILL BE PERFORMED SO THAT THE REMAINDER 1S OF THE

:*SAME SIGN AS THE DIVIDEND.

L .
JeCALL

T
I
i

MOV
MOV
MOV

RE TURN

i
i

*¥''=1

STACK

NO ERROR

OVERFLOW

DIVIDE BY ZERC

K%
;e

TOP
*2

REMAINDER
QUOTIENT

ALL ZEROS
ALL ZEROS

ALL ONES
ALL ONES

JSR

'V''=0

026530
026530
026532
026536
026540
026542
026544
026546
02655C
026554
026560
026564
026566
026572
026574
026576
026600
026604
026606
026610
026616

026622
026624
026630
026632
026634
026636.
026640
026642
026644
026646
0266590

104400
042716

010046
010146
010246
010346
005046
012746
016601
016600
100005
105366
005400
005407
005600
016602
002407
003011
052766
012700
000424

005266
000401
005402
000241
000405
006100
010003
060203
103001
010300

$DIV:

000017

000003

1$:

000020

000003

177777

000002

TRAP

SB(

BLT

2%:
3$:

4$:

5%.

:;QUOTIENT & REMAINDER ARE ON THE STACK

IMPLIES NO ERROR

#17,(SP)

MOV

;iTHE HIGH DIVIDEND MUST BE < /2
;:AS LARGE AS THE DIVISOR

JMPLIES ERROR OCCURRED
¢''=0
DIVIDE OVERFLOW OCCURRED

BIC

BGT

000014

PC,$DIV

*'(*'=1

MOV
MOV
MOV
MOV
CLR
MOV
MOV
MOV
BPL
DECR
NEG
NEG

000021
000024
000022

LOW DIVIDEND,=(SP)
HIGH DIVIDEND,=(SP)
DIVISOR,=(SP)

ATTEMPTED TO DIVIDE BY ZERO

RO,=-(SP)
R1,=(SP)
R2,=(SP)
R3,-(5P)
-(SP)
#17,,~(SP)
24(SP) ,R1
22(SP) ,RC
1%
3(SP)
RO
R1

:2PUSH 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
;2SAVE A PLACE FOR
SIGNS
;:SETUP THE ITERATION COUNTER
:;PICKUP THE DIVIDEND
j
:2CHECK THE SIGN
;:KEEP TRACK OF THE SIGN
::AND NEGATE me ORIGINAL
: NUMBER

20(SP) ,R2

::PICKUP THE omsoa

::DIVISOR OF 0 IS A NO-NO

::CHECK THE SIGN

BIS
MOV

#3,14(SP)
#-1,R0

égc

z;sm

*:KEEP TRACK OF DIVISORS SIGN

NEG

..NEGATE“TH.E ORIGINAL NUMBER

H4H

S :START roanmc QUOTIENT

RO,R3
R2,R3

:COPY
*:COMPARE DIVIDEND & DIVISOR

cLe

ROL

MOV
ADD

BCC

MOV

RO
6%

R3,R0

SSET 'V'g "¢
..ser REMAINDER TO ALL ONES
JEXIT

;CLEAR

:;POSITION MSB'S

::BR IF DIVIDEND > DIVISOR

: *REMAINDER AFTER THIS LOOP

CZRMVBO RMOS5/3/2 EXT'D DR TS1
INTEGER DIVIDE ROUTINE

026652
026654
026656

MACRO V04.00

006101
005316
001370
005701

6%:

4=APR=-81

000002

7%:
8%:

000001
9%:

000020
000016

000002

10%:

SEQ 0127

ROL
DEC

R1
(SP)

;JQUOTIENT BIT ENTERS HERE

137

;;OVERFLOW?

BNE
000014

K 10
11:57:12 PAG 3 3 1 -1

BPL
BIS
CLR
MOV
TST
TST

;iBR IF NO

8$
#2,16(SP)
RO
RO,R1
(SP)+

J:BR IF NO

(SP)
+

..NEGATE REMAINDER
;;CLEAR SIGN
;:BUT DON'T FORGET QUOTIENT
..OUOTIENT SIGN CORRECTION NEEDED?

R1,20(SP)
RO,16(SP)

..NEGATE QUOT IENT
;;RETURN QUOTIENT AND
; :REMAINDER TO USER

(SP)+ R

..POP STACK INTO R2
..POP STACK INTO R1

BEQ
NEG

108
R1

MOV
MOV
MOV
MOV
:?Y

;:SET REMAINDER TO ALL ZEROS

(SP)

9%
RO
1(SP)
(SP)

MOV
MOV

JiSET 'V'' IN RETURN STATUS WORD
::COPY REMAINDER INTO QUOTIENT
;sCLEAR COUNTER FROM STACK
..REMAINDER SIGN CORRECTION NEEDED?

BGE
NEG
CLRB
DEC
ST

; sDONE?

(SP) +,R3
(SP)+,R2

(SP)+,R0O
(SP)+,2(SP)

;BR IF NO

:BR IF NO

;:POP STACK INTO R3

;POP STACK INTO RO
..SETUP TO RETURN CONDITION CODES

: RETURN

|
-

CZRMVB) RM0S5/3/2 EXT'D DR TST
APT COMMUNICATIONS ROUTINE

MACRO v04.00

4=APR-81

LSBTTL

11:57:12 PAGE

SEQ 0128

APT COMMUNICATIONS ROUTINE

':Ql.."..t'.l'."'..'.""..'.C.'t'.Q.t.tt."tt"..'.'.t!'t"!Q'

026750
026756
026764
026766
026774
026774
026776
027000
027004
027006
027014
027016
027024
027026
027032
027040
027044
027046
027052
027054
027056
027062
.
027064
027070
027076
027100
027106
027114
027120
027124
027126
105737
027126
027132 001416
027134 005737
027140 001413
027142 005737
027146 001375
027150 017637
C27156 062766
027164 005237
027170 105037
105037
027174
027200 105037
027204 012601
027206 012600
027210 000207
027212
000
000
027213
000
027214
000200
000001
000100
000040

000001
000001

027214
027212

000001

027214

$ATY1:

$ATYSG:
$SATYC:

027212
000001

001254

000100

001255

000004
000002

000004

001234

001250

#1,8FFLG
#1,8MFLG

MOV
MOVB

$ATYS:

B8R
MovB

SATY(
#1,8FFLG

MOV
0}
TSTB

RO,=(SP)
R1,=(SP)
SMFLG

BEDQ

H#APTENV, SENV

000004
000002
177776
023042

3$
a4 (SP) ,RO
#2,4(5P)

?r:scrvps

1%:

RO, SMSGAD

(RO)+

2%:

2%
$MSGAD ,RO

10%:

001254

000004
000002

001234
027214
027213
027212

;21F NOT:

;:1F NOT:

**OPERATING UNDER m?/

118:

;:1F NOT: BR
::GET MESSAGE ADDR.
: :BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?
:21F NOT: WAIT
::PUT ADDR IN MAILBOX
;;FIND END OF MESSAGE

gg.iHSGTVPE

3 (SP) 48

::PUT MSG ADDR IN JSR iLINKAGE

177776,~(SP)

::PUSH 177776 ON STACK

1STB
‘BEQ
TST
BEQ

$FFLG

12%

;2SHOULD REPORT FATAL ERROR?

22IF NOT:
BR
; sRUNNING UNDER APT?
BR
;:IF NOT:

BNE
MOV

118

;sIF NOT:

3s:

5%:

001234

:ISHOULD TYPE A MESSAGE?

;:SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
;sPUT LENGTH IN MAILBOX
;sTELL APT TO TAKE MSG.

#2.4(SP)

gc.srvps

4%:

027214

::PUSH RO ON STACK
;:PUSH R1 ON STACK

RO
RO, SMSGLGT

001234
027124
000004

;:T0 ONLY REPORT FATAL ERROR

#APTSPOOL
, SENVM ; :SHOULD SPOOL MESSAGES?

001250

001252
000004

;:T70 REPORT FATAL ERROR
;.70 TYPE A MESSAGE

001236
000004

TST

CLRB
CLRB
CLRB
MOV

@4 (SP) ,$SFATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
R1
(SP)+

RTS

ADD

12%:

INC

(SP)+,R0

MOV
SMFLG:
$LFLG:
$FFLG:
APTSIZE
APTENV
APTSPOOL
APTCSUP

.BYTE
.BYTE

.EVEN

200
001

100
040
]

0
0
0

- -BUMP RETURN ADDRESS

S:CALL TYPE MACRO

;sFINISHED LAST MESSAGE?

WAIT

;:GET ERROR #

;:BUMP RETURN ADDR.

;:TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;:CLEAR LOG FLAG
2 :CLEAR MESSAGE FLAG
;sPOP STACK INTO R1
;:POP STACK INTO RO
; JRETURN

; sMESSG. FLAG
;:LOG FLAG
s +FATAL

FLAG

COMMUNICATIONS ROUTINE

MACRO .v04.00 4=-APR-B81 11:57:12 PAGE 39
M1

SEQ 0127

sTHIS ROUTINE IS USED TO !NCREMENT THE ERROR COUNT FOR EACH DRIVE BE ING
:TESTED. IF THE TOTAL ERRORS ON ANY DRIVE EXCEEDS THE MAXIMUM ALLOWABLE

S NN
NN = OO 00NN
NN

APT

— -

CZRMVBO RMOS5/3/2 EXT'D DR TST

:ERRORS DESIGNATED IN LOCATION ‘ERMAX', A MESSAGE WILL BE TYPED AND THE
:DRIVE IN ERROR WILL BE DROPPED FROM YHE TEST.
010046

27234
27250
27256

18 027276
19 027302

20 027306
21 0¢7312
22 027320
23 027324
24 027330
25 027332

26
27
28

29
30
31
32

33 027334
34 027340
35 027346
36 027354
37 027362

38
39
40

013700
016000
042700
136037
001432
105260

126037
103424
104401
104401
010046
104403

104401

104401
104401
146037

005337
000137
012600
000207

INCEC:

040650
000010
177770

040636

50 027406
51 027412
52 027414
53 027416
54 027424

RO,=(SP)
RMADR,RO

;SAVE RO
:GET RM BASE ADDRESS

BIC

#*C7 ,RO

JSAVE UNIT SELECT BITS

BEQ

;BR IF NO

MOV

RMCS2(R0) ,RO

BITB

001330

001472
001472- 001316

001231
047625

ERRCN(RO)
s INCREMENT ERROR COUNT
ERRCN(RO) ERMAX ;EXCEEDED ERROR LIMIT ?
1$

:BRIF NO

MOV

RO,=(SP)

..SAVE RO FOR TYPEOUT

.SCRLF
.MSDRIV

18:

:CR=LF
:TYPE *DRIVE’

;GO TYPE--OCTAL ASCII

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

BYTE
BYTE

2
O

BI(B

ATABIT(RO) ,DRVSEL

g?g

;gP)*,RO

TYPE
TYPE
TYPE

001330

;WAS THIS DRIVE SELECTED FOR TEST

INCB
(MPB
BLO

TYPOS

047634
047515
047645
040636
021506
021334

‘GET _CONTENTS OF RMCS2

ATAB]T(RO) DRVSEL

TYPE
TYPE

.DROP
. COMMA
LEXCEED

DEC
JMP

SEOPCT
$EOP

;TYPE
7P
:TYPE

' DROPPED’
°,
°
*EXCEEDED MAXIMUM ERROR LIMIT'

;DESELECT DRIVE FROM TEST

;ADJUST ‘EOP' COUNT
:RETURN TO SEOP
:RESTORE RO

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTER,
;AND DRIVERS, THEN SELECTS THE DRIVE.

sCALL:

013704
012764
042737
013764
000207

040650

000040
177770

001352

000010
001352
000010

JSR

PC,CNTCLR

CNTCLR: MOV
MOV
BIC
MOV

;CALL TO ROUTINE

RMADR, R4
;GET RMCS1 BASE ADDRESS
#CLR,RMCS2(R4)
;ISSUE MASSBUS CLEAR AND
#*C7, CHKDRV
;SAVE UNIT SELECT BITS
CHKDRV ,RMCS2(R4)
;SELECT THE DRIVE

RTS

sRETURN

;SET "LPTAVL'' TO THE PROPER STATE.

:TLPTAVL = O IF NO LINE PRINTER AVAILABLE
ckflAVL = 1

41
42

43
b
45
46 027364
47 027370
48 027376
49 027402

MOV
MOV

JSR

PC.LP.AVL

LP.AVL: CLR
MOV
CLR
ST
'éfi‘

LPTAVL
#1$,ERRVEC
ERRVEC+2
aLPS
E:TAVL

*YES-=SET AVAILABLE SWITCH

(SP)+, (SP)+

:NO=--POP STACK

:RE TURN

:
;
005037
012737
005037
005777

005237

022626
012737
000207

001326
027414
000006
152126
001326

000006

000004

IF LINE PRINTER IS AVAILABLE

18:

2%:

RETURN

CMP

MOV
RTS

#ERRVE C+2,ERRVEC

:START WITH NO PRINTER AVAIABLE
*SETUP THE TIMEOUT VECTOR
;1S THERE A LINE PRINTER?

:RESTORE TIMEOUT VECTOR

CZRMVBO RMOS5/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

MACRO V04.00 4=APR-81 11:57:12 PAGE 3?-1

: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
;s 0= NO CLOCK

57
58
59
60

1+1= KW11=P
i=1= KW11=L
sTHIS ROUTINE WILL ALSO SETUP ''TICKMS'' (TIME

;PER CLOCK TICK IN MILLI SECONDS) AND '‘TICKUS''
s (TIME PER CLOCK Ti CK IN MICROSECONDS) AS

:PER SWO00.

:SW00=0 == 60HZ

:SW00=1 == 50MZ
s CALL

71
72 027426

73 027430
74 027434
75 027436
76 027440
77 027442
78 027446
79 027452

010146

012701

011146
005011

000006

92 027526
93 027530
94 027536
95 027540
96 027546
97 027554
98 027556
99 027564
100 027572

014146
012711 027472
005037 001342
005777 152036
012737 000001
004737 027574
000414
022626
012711 027520
005777 152022
012737 177777
004737 027636
000401
022626
012621
012621
012601
032737 000100
001407
012737 000020
012737 047040
000406
012737 000016
012737 040432
000207

102 027574
103 027574
104 027602
105 027604
106 027612
107 027620
108 027626

032737
001014
012777
012777
012777
012777

110 027634

000207

80 027456
81 027464
82 027470
83 027472
84 027474
85 027500
86 027504
87 027512
88 027516
89 027520
90 027522
91 027524

101

109

111

JSR
RETURN

:
:

000040

001342

ST.CLK: MOV
MOV
MOV
CLR
MOV
MOV
CLR
1ST
MOV
JSR
B8R
1%:
CMP
MOV
TST

001342

38:
0C1314

MOV
JSR
BR
iMP
MOV
MOV
MOV

R1,=(SP)
#ERRVEC+2,R1

(R1) ,=(SP)
(R1)
=-(R1) ,=(SP)
#18, (R1)
CLKSTA
aPK(CS
#1,CLKSTA
PC,ST.PCLK

(SP)+,(SP)+
#2%,(R1)

aLKS

#-1,CLKSTA
PC.ST.LCLK

4%:

58:

MOV

ST.PCLK:

027672
000300
000001
000115
1%:

RIS

;SAVE R1
;SAVE AND SETUP TIMEOUT VECTOR

JLEVEL O

;GO TO 1$ ON_TIMEOUT
sSET CLOCK STATUS TO NO CLOCK
;1S THERE A KW11-P?
;YES==SET STATUS TO KW11-P
;START THE KW11-P
;GO TO EXIT
;CLEAN UP THE STACK

;IF TIMEOUT GO TO 2%

- ;1S THERE A KW11-L?

;YES== SET STATUS TO KW11-L
;START THE KW11-L
SEXIT

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

;CLEAN UP THE STACK
JRESTORE THE TIMEOUT VECTOR

(SP)+,R1

ggoboo..rxcxus

;RESTORE R1
:50HZ OR 60KHZ?
;BRANCH IF 60
;SETUP TIME PER
:TICK FOR 50HZ

#16,TI1CKMS

;SETUP TIME PER

(SP)+,(R1)+

zgwoc.c.sua
#20,T1CKMS

001344
001346

PC,ST.CLK

g}6666..TICKUS

BIT

:inS.C.SUR

MOV
MoV
MoV

#SRVCLK ,aPKV
#300,aPKV+2

MOV

#1,aPKB
#115,3PKCS

RTS

sTICK FOR 60HZ
sRETURN

;ALLOW SOF TWARE TIMEOUTS?
sNO=-BRANCH
;SETUP THE KW11-P VECTOR

;COUNT ONE TICK
;INT.EN.'',COUNT DOWN'', “MODE 1 (REPEAT)',
J"'LINE FREQ'', AND "RUN"'
;?ETURN

SEQ 0130

CZRMVBO RMOS/3/2 EXT'D DR TST

APT COMMUNICATIONS ROUTINE

112 027636
113 027636

032737

000040

114 027644
115 027646
116 027654
117 027662

001011
012777 027672
012777 000300
012777 000100

120 027672

013746

}Sg 027702

000002

”g 027670 000207

MACRO v04.00

001314

151646
151642
151636

001344

B 11

4-APR-81 11:57:12 PAGE 33-2

ST.LCLK:

BIT

#SW05, . SWR

BNE
MOV
MOV
MOV

1$:

1%
#SRVCLK,aLKV
#300,aLKV+2
noo aLks

RTS

SRVCLK. MOV

121 027676 004737 044670

TICKMS,=(SP)

JSR

PC . RMTMR

RTI

SEQ 0137

;ALLOW SOF TWARE TIMEOUTS?

*NO==BRANCH
:SETUP THE KW1l=L VECTOR
;START THE KW11=L

*RETURN

;TIME PER TICK IN MILL
i SECONDS

*COUNT THE ELASPED TIME

*RETURN AFTER INTERRUPT

124

sTHIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE CROGRAM IS

127

;52

‘E‘I‘f’” OR WHEN THE VALUE OF BITCO IN *C.SWR' IS CHANGED.

128

129

130 027704

C277064
027706
027710
027712

131 027714
132 027722
133 027730
134 027734
135 027740
136 0277642
137 027744
138 027746

139 027750

LODFLT:

010046
010146
010246
010346

012737 166777 001332
012737 000003 001334
012700 002526
012701 003132
010102
012021
020002
103775
012700

1%:

004176

140 027754 012701 003576
141 027760 012021
142 027762 020027 0046236
143 027756 103774
000001

2%:

144 027770

032737

001314

148 030014
149 €30022
150 030024
151 030032

012737 160000 001452
000411
012737 000035 002470
012737 000035 002472

154 030052
155 030054

005711
001425

145 027776 001012
146 030000 012737 000037 002470
147 030006 012737 000037 002472

152 030040 012737

161000 001452

153 030046 012701 002374

156 030056
157 030062

032731
001773

161 030076
162 030100

006216
103002

158 030064 016102
159 030070 (11246
160 030072 012703
163 030102
164 030106

062702
005303

3$:

48:
5%

177776

000002

PC,LODFLT

MOV
MOV
MOV
MOV

RO.=(SP)
R1.=(SP)
§L=(5P)
R3.=(SP)

::PUSH RO ON STACK
1:PUSH R1 ON STACK
*:PUSH R2 ON STACK
*:PUSH R3 ON STACK

MoV

lPATB RO

PATO DEFAULTS TO PATTERN 8

BIT

#BIT00,C.SWR

MOV
MOV
MOV
MOV
MOV
MOV
TMMP
BLO

#166777,TSTNMS
#3, TSTNMS+2
#DFLT,.RO
#PRMO _R1
R1,R2
(ROY+, (R1)+
RO R2

MOV
MOV
cTMP
8LO

#PATO.R1
(RO)+.(R1)+
RO,#PATY
2%

BNE
MOV
MOV

004000

000014

JSR

RETURN

68:

% T

38
#31. .PRMLMT+24
#21,
nze

MOV
B8R
MOV
MOV

0‘-<2§6

:SELECT TESTS 0-30.12,13 & 15-17
*SELECT TESTS 20 & <1
*DEFAULT PARAMETERS POINTER
*TABLE POINTER
*STOP ADDRESS
*MOVE DEFAULT PARAMETERS INTO
‘RUN TIME TABLES ++ DONE?
“NO=--BRANCH

;16 BIT MODE ?

:BR IF 18 BIT MODE
:SET 'FS* LIMIT TO 31.
SSET *LS* LIMIT TO 31.

>, TRCKWC
:WORD COUNT FOR A 16 BIT TRACK
> CONT INUE
cn..mmoza SSET "FS* LIMIT TO 29.
#29.
MT+26 :SET 'LS' LIMIT TO 29.

MOV

#-<256.+30.>, TRCKWC

:WORD COUNT FOR AN 18 BIT TRACK

MOV

#PRMPT "| Rl

:ADDRESS OF PARAMETER POINTER raz

BIT
BEQ

#BIT11,8(R1)+
5%

:IS 'LS' SELECTED AS A VARIABLE IN THIS TEST
*BR IF NO

ASR
BCC

(SP)
7%
#2.R2

ST
BEQ

(R1)
gs

MOV
MOV
MOV
ADD
DEC

~2(R1) ,R2
(R2) ,=(SP)
#12..R3
.

“END OF PARAMETER POINTER TABLE
°
.-anx YES

SGET FIRST POSITION IN PARAMETER TABLE
*AND SAVE VARIABLES BITS THAT ARE USED.
‘POSITION OF °‘LS' IN TEST PARAMATER TABLE
“1S THIS PARAMETER A VARIABLE 2
*BR IF NO

SYES, POINT TO NEXT PARAMETER IN TABLE
AT fLS'
PARAMETER YET 2

CZRMVBO RMOS/3/2 EXT'D DR TST

APT COMMUNICATIONS ROUTINE

165 030110
166 030112

167 030114

001372
005726

021237

168 030120
169 030122
170 030126

101754
013712
000751

030130
030132

012603
012602

030136
:;g 030140

012600
000207

171

030130

030134

MACRO\04.00

€1

4=-APR-81 11:57:12 PAGE 33 3

002470

BNE
TST

6%
(SP)+

JBR 1F NO
JADJUST THE STACK

BLOS
MOV
BR

5%
PRMLMT+24,(R2)
5%

:BR IF NO
;RESET VALUE FOR MODE USED
s CONT INUE

MOV
MOV

(SP)+,R3
(SP)+ ,R2

;:POP STACK INTO R3
::POP STACK INTO R2

MOV
RTS

(SP)+,R0
PC

;:POP STACK INTO RO
:RETURN

CMP

002470
8%:

012601

MOV

};lg

(R2) ,PRMLMT+24

(SP)+,R1

:1S *LS’ TOO LARGE FOR THE MODE SELECTED °

;iPOP STACK INTO R1

:(T::IE ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST.
CAL

176

177
178

179
180 C€30142

030142
030144
030146
030150

181 030152
182 030154

:
3

183 030160

005004
113704
006304

186 030172

005003

184 030162
185 030166

187 03014

188 030200

189 030202
190 030206

191 030210
192 030212

JGET THE TEST'S PARAMETER TABLE ADDRESS
;PARAMETER EXECUTION TABLE

002374
002334

MOV
MoV

PRFPT(RI.) R1
#PRM,R2

013704

001352

MOV

CHKDRV, R4

006237
103002

002334

012122

012122
000401

022702
001437
022703
001363
122764
001422
013737

002362

203 030256

006237

002334

206 030266

006237

207 030272
208 030274
209 030276
210 030302
211 030304
212 030306
213 030310

;:PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
;:PUSH R4 ON STACK

016401
012702

195 030220
196 030224
197 030226
198 030232
199 030234
200 030242
201 030244
204 030262
205 030264

R1,=(SP)
R2,=(SP)
R3,-(SP)
R4 ,-(SP)

CLR
MOVB

005022

202 030252

MOV
MOV
MOV
MOV

PC,LODPRM

001116

193 030214

194 030216

#TESTNUM,STSTNM ;LOAD THE TEST NUMBER

JSR
RE TURN

LODPRM:

010146
010246
010346
010446

MOV

005203

062703

103001
005721

103001
005721
006237
103337
005721
000735
013737

ASL

CLR

i$:

2%:

3%:

000007
000007

040542

002456

001374

000003

4%:

002334

58:

001374

6%:

(R1)+,(R2)+

ASR
BCC

PRM
2%

CLR

(R2)+

MOV
BR
INC

CMP
BEQ
cMP
BNE
CMPB
BEQ
MOV
ADD

002334

002464

MoV

R4
STSTM R4

(R1)+,(R2)+
3%

sGET DRIVE ADDRESS

:LOAD PARAMETER SPECIFIER

;IS THIS PARAMETER USED IN THE TEST ?
*BR IF NOT

;LOAD THE VALUE
; CONT INUE

*CLEAR THE UNUSED PARAMETER LOCATION

;COUNT THE POSITION IN THE OUTPUT TABLE

#3,R3

*ADJUST COUNTER

4%
(R1)+

:BR IF FT' IS NOT USED
JMOVE THE INPUT POINTER

PRM

ASR

PRM

BCC
TST
ASR
BCC
TST
BE
MOV

;R3 IS USED AS A COUNTER

#PAT+2,R2
;FINISHED ?
7%
:BR IF YES
k7 .R3
:DOING TRACK PARAMETERS ?
1
*8R IF NO
#7 ,DRVTYP(R4)
;IS DEVICE AN RMOS ?
6%
;IF SO, OVERLAY FT, LT & IT WITH FT*, LT & IT®
PRMLMT+12,LSTRK GET LAST TRACK FOR AN RM03/2

ASR
B(CC
TST

;CLEAR R4
;GET THE TEST NUMBER
:SETUP TO ADDRESS WORDS

*COUNT THE PARAMETER

;COUNT THE PARAMETER

5%
*BR IF LT' NOT USED
(R1)+
*MOVE THE INPUT POINTER
PRM
;COUNT THE PARAMETER
1%
*BR IF IT' NOT USED
(R1)+
MOVE THE INPUT POINTER
1%
*KEEP GOING
PRMLMT+20,L.STRK;GET LAST TRACK FOR AN RMQOS

SEQ 0137

CZRMYBO RM0S/3/2 EXT'D DR TST

APT

MACRO v04.00

COMMUNICATIONS ROUT INE

214 030316 162702 000006

215 030322

000727

030324
030326
030330
030332
g}g 030334

012604
072603
012602
012601
000207

216 030324

7%:

D 11

4&4=-APR=81 11:57:12 PAGE 33=4

sUB

#6,R2

;BACKUP THE OUTPUT POINTER

MOV
MOV
MOV
MOV
RTS

(SP)+,Ré
(SP)+.R3
(SF)+.R2
(SP)+.R1
PC

;:POP STACK INTO Ré
Y:POP STACK INTO R3
“:POP STACK INTO R2
1:POP STACK INTO R1
*RETURN

*KEEP GOING

219

:THIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND

222

:CALL

ggg

; g;a;cg?opa.w AND DPR.C+2, DEPENDING ON THE STATE OF ‘‘CONTROL SWITCH'*

RE TURN

:
’
55‘5
226 030336 032737 000200 001314 LDCMD: BIT
223

227 030344
228 030346
229 030354
230 030362
231 030364
232 030372
533.2 030400

001007
012737
012737
000406
012737
012737
000207

000173
000173
000105
000105

047040
047060
047040 1%:
047060
2%:

JSR

PC,LDCMD

BNE
MOV
MOV
B8R
MOV
MOV

#SW07,C . SWR
;DO EXPLICIT SEEKS?
1%
YES==-BRANCH
#READHD ,DPB.B+Z :NO=-=SET UP FOR READ HEADER AND
AREADHD .DPB.C+2 :DATA COMMAND
28
#SEEK,DPB.B+2 ;SETUP FOR SEEK COMMAND
#SEEK ,DPB.C+2

RTS

235
g;g

;THIS ROUTINE WILL CALL THE RMOS DRIVER AND THEN WAIT ON THE FUNCTION
: ERLEWLETE. IF AN ERROR OCCURS IT IS REPORTED.

238
239
520

:
:
:

242 030402
243 030406
264 030412
245 030414
246 030416
247 030422
248 030424
249 030426
250 030434

030442
030450

005037
004037
047016
000772
005737
001775
100050
012737
013737
113737
113737

001222
041406

CALL.A: CLR
JSR
DPB.A
BR
047034
18:
ST
BEO
B8PL
030522 001222
MOV
047030 001366
MOV
047027
047026

001372
001370

030456 012746 047034
030462 004737 032170
030466

030470
030472
030474
030476
251 030500
252 030502

062607

104041
104042
104043
104044
000240
005737

030520

104045

MOVB
MOVB

MOV
JSR
:

047154

253 030506 001004
254 030510 032737 100000 047202
255 030516 001013
256 030520

FILL "DPB'’ WITH COMMAND INFORMATION
RO, CALL.A
RE TURN
JSR

ADD

EMT
EMT
EMT
EMT
NOP
ST

$ESCAPE
;NO ESCAPE ADDRESS
RO ,RMOS
*CALL RMOS DRIVER
CALL.A
DPB.A+16
:DONE?
1%
*NO-~LO0OP
5%
*BRANCH IF NO ERROR
#3$,SESCAPE
::ESCAPE TO 3% ON ERROR
DPB.A+12,CYL.DS :CYLINDER
"
DPB.A+11.TRK.DS :TRACK
DPB.A+10,SEC.DS :SECTOR

#DPB.A+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS
PC,ERINDX
*FORM DISPATCH INDEX
(SP)+,PC

41
42
43
44

*REPORT PROPER ERROR

BNE
BIT
BNE

RM.REG+RMER1

*NON=-EXIST DRIVE
*PARITY ERROR
*UNSAFE ERROR
*NON-1/0 ERROR
:TO SYNC THE CALLING SEQ OF ERINDX
:ANY DRIVE ERROR ?

2%
“BRANCH IF SO
#RBSE ,RM.REG+RMER?
“:BAD SPOT ERROR
5%
:BRANCH IF SO

EMT

;170 ERROR

SEQ 0133

CZRMVBO RMO5/3/2 EXT'D DR TST

APT COMMUNICATIONS ROUTINE

257 030522

258 030530
259 030532
260 030536
261 030542
52% 030546

032737

001402
004037
013746
004737
000200

040000

MACRO v04.00

047202

3%:

032016

047034
032130

5%:

264

4-APR=81

11:57:12 PAGE 33-5

BIT

#SK 1 ,RM,REG+RMER?

BEQ
JSR
MoV
JSR
RTS

4%:

CE 11

4%
RO, CALL.R
DPB.A+16,=(5P)
PC,LOP.CK
RO

SEQ

:SK] ERROR ?

BR IF NO
;DO RECALIBRATE COMMAND
;STATUS WORD
JSEE IF LOOP, ABORT, OR CONTINUE
sRETURN

;THIS ROUTINE IS THE SAME AS ''CALL.A'' EXCEPT FOR THE DPR USED AND [F

265

266

;THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRA(K,

267

;AND SECTOR) READ iS CHECKED FOR VALIDITY.
2CALL

268
269

:
K
H

g;?
272 030550

005037

274 030560

047036

273 030554

275 030562
276 C30564
277 030570

004037

001222

JSR

DPB.B

047054

012737
013737

030700
047050

001222
001366

030616
030624
030630
030634

113737 047046
012746 047054
004737 (032170
062607.

001370

030642

104043

281 030646
282 030650
283 030654

000240
005737
001404

285 030664

001420

287 030674

001033

279 030574
280 030602

030610

030636
030640
030644

100055

113737

047047

RETURN

CALL.B: CLR

0417406

000772
005737
001775

278 030572

1%:

001372

288 030676

032737
104G45

100000

032737

040000

292 030714

013746

032016
047054

000410
123727

047040

293 030720

294 030724
295 030726
296 030734
297 030736
298 030742
299 030744
300 030746
301 030754
302 030756
303 030762
304 030764

001402
004037

004737
001004

004037
047046
000407
032737
001403
004037
001454
000200

#3% ,SESCAPE
;:ESCAPE TO 3% ON ERROR
DPB.B+12,CYL.DS ;CYLINDER

;BRANCH IF NO ERROR

MOVR
MOV
JSR
ADD

DPS8.B+10,SEC.DS
#DPB.B+16,-(SP)
PC,ERINDX
(SP)+ ,PC

;SECTOR
;STATUS/ERROR INDICATOR ADDRESS
;FORM DISPATCH INDEX
;REPORT PROPER ERROR

sUNSAFE ERROR

NOP
TST
BEQ

RM.REG+RMER1
2%

;TO SYNC THE CALLING SEQ OF ERINDX: RT.
;DRIVE ERROR ?
:BR IF NOT

BEQ

:BR IF IT IS

EMT

289 030700

290 030706
291 030710

MOV
MOV

EMT

047154

;

047202
047202

032130

(000173

2%:
3%:

040000

001314

41
42
&4

JNON-EXIST DRIVE
:PARITY ERROR
JNON=1/0 ERROR

8IT

UBSE.RM.REG'RMERé

;BSE ERROR

EMT

2170 ERROR

BEQ
JSR

43
RO,CALL.R

;BR IF NO
;DO RECALIBRATE COMMAND

BNE

BIT

BR
CMPB

7$:

DPB.B+11,TRK.DS ;TRACK

:SEE IF ONLY °"HCE® SET

5%:

032326

;NO--BRANCH

#MCE ,RM.REG+RMER]

MOV

6%:

(MP

L%:

032410

;CALL RMOS DRIVER
;DONE?

EMT
EMT

104044

JNO ESCAPE ADDRESS

RO,RMO5
CALL.B
DPB.B+16

MOVB

104041
106042

« SESCAPE

B8R
ST
3EQ

BPL

284 030656 022737 000200 047154
286 030666

FILL DPB
JSR
RO,CALL.B

JSR

BNE

#SK] ,RM.REG+RMER2
DPB.B+16,-(SP)

PC,LOP.CK

;BRANCH IF SO

:SKI ERROR ?

;STATUS WORD

. :SEE IF LOOP, ABORT, OR CONTINUE

6%
;CHECK FOR STALL
DPR.B+2 ,#READHD ;DOING IMPLIED SEEKS?

JSR
RO,VERIFY
DPR.B+10
BR
7%
BIT
#SW14,C.SWR
BEQ
7%
JSR
RO,STALL
. WORD
STALL1
RTS
RO

:NO=-BRANCH

JYES==GO CHECK THE DATA
;ERROR DURING VERIFY
JSTALL?
;NO==BRANCH
JYES==CALL STALL ROUTINE
JSTALL TIME POINTER
¢RETURN

013

CZRMVBO RMQS/3/2 EXT'D DR TST

APT

CCMMUNICATICNS ROUTINE

MACRO v04.00

305

306
307
308
309

312 030766
313 030772
314 030776
315 031000

005037
004037
047056
000772

001222
041406

316 031002

005737

047074

318 031010
319 031012
220 031020
031026
031034

100055
012737
013737
113737
113737

031116
047070
047067
047066

317 031066

001775

031042

012746

321 0331064

000240

031046
031052
031054
031056
031060
031062

322 031066
323 031072

004737
062607
104041
104042
104043
104044

005737
001404

047074

325 031102

001420

327 031112

001033

1%:

001222
001366
001372
001370

104045

5%
#3%,8ESCAPE
DPB.C+12,CYL.DS
DPB.C+11,TRK.DS
pDPB.C+10,SEC.DS

JSR
ADD
EMT
EMT
EMT
EMT

PC,ERINDX
(SP)+,PC
41
42
43
44

;FORM DISPATCH INDEX
;REPORT PROPER ERROR
JNON-EXIST DRIVE
;PARITY ERROR
;UNSAFE ERROR
:NON=1/0 ERROR

RM.REG+RMER1
2%

;:DRIVE ERROR ?
;BR IF NOT

;BRANCH IF SO

BIT

338 031160

339 031162
340 031164

341 031172
342 031174

343 031200

344 031202

347
348
349
250
351
352

047060

000407
032737

040000

047066

001403
004037

001454

000200

032130

000173

5%:

032410

#BSE ,RM. REGOWR?

BEQ

:BR IF NO

PC,LOP.CK
6%
DPB.C+2,#READHD
6%
RO,VERIFY

:SEE IF LOOP, ABORT, OR CONTINUE

JSR
BR
CMPB
BNE

68%:

BR
BIT

7%:

RTS

032326

:BSE ERROR ONLY ?

BEQ
JSR

.WORD

:1/0 ERRCR

#5K] ,RM.REG*RMER2

JSR
DPB.C+10

001314

JSEE IF ONLY °"HCE® SET

EMT

JSR
MOV

004737
000410
123727
001004
004037

;TC SYNC THE CALLING SEQ OF ERINDX: RT.

BNE

A ¥

333 031136
334 031142
335 031144
336 031152
337 031154

#DPB.C+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS

IF YES

331 031126
332 031132

032016
047074

;YES==BRANCH iF NO ERROR
2 +ESCAPE TO 3% ON ERROR
;CYLINDER
;TRACK
;SECTOR

BIT

004037
013746

;DONE?

;NO==L00OP

#HCE .RM. REG*RHEM

3%:

001402

cMP

BEQ

329 031116 032737 040000 047202
330 031124

CALL.C

sNO ESCAPE ADDRESS
sCALL RMOS DRIVER

BPL
MOV
MOV
MOVB
MOVB

BEQ

TST
BEQ

$ESCAPE
RO,RMOS

DPR.C+16

NOP

(047154

TST

MOV

032170

326 031104 032737 100000 047202 2%:
328 031114

RE TURN

CALL.C: CLR
JSR
DPB.C
BR

324 031074 022737 (000200 047154

:THIS ROUTINE IS THE SAME AS ''CALL.B'' EXCEPT FOR THE DPB USED.
s CALL
:
FILL DPB
:
JSR
RO, CALL.C

%;g",

4=-APR=-81 11:57:12 PAGE 33-6

RO,CALL.R
DPB.C+16,-(SP)

7%
#SW14,C.SWR
7%
RO,STALL
STALLT
RO

:SKI ERROR ?

;DO RECALIBRATE COMMAND
:STATUS WORD
;DOING IMPLIED SEEK?
JNO=--EXIT

JYES==CHECK THE DATA

;ERROR DURING VERIFY
JSTALL?

;NO=-=-BRANCH
:YES==CALL STALL ROUTINE

JSTALL TIME POINTER

;THIS ROUTINE IS THE SAME AS ''CALL.A'' EXCEPT FOR THE DPB USED AND
ON AN ERROR LOCATION "'ERR.CT'' IS EXAMXNED IF ERR.CT IS EQUAL TO
SERFLG EXIT IS TO THE NEXT TEST.
CALL
3
H

FILL DPB
JER
RO,DRVCAL

CZRMVBO RMOS/3/72 EXT'D DR TST

APT

COMMUNICATIONS ROUT INE

353
354
355 031204
356 031210
357 031214
358 031220
359 031222
360
361 031224
362 031230
363 031232
364 031234
365 031240
031240
366 031246
031254
031262

031270
031274
631300
031302
031304
031306
031310
367 031312
368 031314
369 031320
370 031322
371 031330
372 031332
373 031340

374 031344
031344
375 031346
376 031354
377 031356
378 031362
379 031366
380 031374
381 031376

382 031404
383 031406
384 031414
385 031416
386 031424
387 031430
388 0314 3¢
389 031436
390 031440
397 031444

392 031446
393 (31450
394 031456
031464

031472
031500
031504

MACRO v04.00

4-APR-81

005037
005037
004037
047076
000770

DTADPR
BR

047114

000137

031776

012737
013737

031346
047110
047107
047106
047114
032170

100402

113737
113737

012746
004737
062607
104041
104042
104043
104044
000240

005737
001011
032737
001405
012737
000137
104045
122737

001170
013746
004737
122737
001172
032737
001566
032777
001162
112737
005037
004037

DRvCL1: TST
BEQ
BMI
1
JMP

MOV
MOV
MOvVB
MOvB

001222
001366
001372

001370

RASNRET

100000

047202

177777

001466

000020

001116

047114
032130
000151

047100

040000

047150

000020

147540

000161
001222
041406

047100

031776

047114

031736
047110
047107
047106
047114
032170

o
3%:

$ESCAPE
WCEFLG
RO,RMOS

JNO ESCAPE ADDRESS
sCLEAR WRITE CHECK ERROR fLAG
:CALL RMO5 CRIVER

DRVCAL

DTADPB+16
DRVCL1
19
15%

; DONE
;NO==LO0P
:BR IF ERRORS
JNO ERRORS

#3% ,$ESCAPE
;;ESCAPE TO 3% ON ERROR
DTADPB+12,CYL.DS
;CYLINDER
DTADPB+11,TRK.DS
; TRACK
DTADPB+10,SEC.DS
JSECTOR

#DTADPB+16,=(SP)
;STATUS/ERROR INDiCATOR ADDRESS
PC,ERINDX
:FORM DISPATCH INDEX
(SP)O PC
REPORT PROPER ERROR
I

ke k" A ‘_"NUFEXI'SY_ERT

EMT
EMT
EMT

42
43
44

;PARITY ERROR
JUNSAFE ERROR
NON-I/O ERROR

;TO SYN THE CALLING SEQ OF THE ERINDX:
ANY DRIVE ERROR ?
REPORT THE 1/0 ERROR IF SO

2%
#-1,BASFLG
15%

;BRANCH IF NOT
;SET BAD SECTOR ENCOUNTER FLAG
;OTHERWISE ,DON'T REPORT THE BSE

EMT
CMPB
BNE
MOV

45
#20,8TSTNM
11%
DTADPB+16,-(5P)

;1/0 ERROR
sTEST 20?
sNO=--BRANCH
;STATUS WORD

CMPB
BNE

#WRCKD ,DTADPB+2 DOING A WRITE CHECK?
138
.NO-BRANC

RM.REG+RMER1

BIT

0855.RH.REG*RMER2

BEQ
MOV
JMP

JSR

BIT

BEQ

PC,LOP.CK

#BIT14,RM.REG+10
13%

;BAD SPOT ERROR ?

sSEE IF LOGP, ABCRT, OR CONTINUE

;IS "\WCE''=1?

:NO--BRANCH

BIT

#SW04 ,asSWR

(LR
JSR

$ESCAPE ;NO ESCAPE ADDRESS
RO ,RMO5
;DO THE WRITE

BNE
MOVB

4%:

001222
001366
001372
001370

MOV
JSR
ADD

NOP
TST
BNE

047154

SEC 013%

RE TURN

DRVCAL: CLR
CLR
JSR

005737
001775

G 11
11:57:12 PAGE 33-7

DTADPR
NOP
TST

BEQ

BPL

MOV

MOV
MOVB
MOVB
MOV
JSR

JINHIBIT WRITES?

: YES=-BRANCH
13%
MIRITE ,DTADPB+2 ;SETUP FOR A WRITE

DTADPB+16

sDONE?

;YES~-=-BRANCH IF NO ERROR

#11%,3ESCAPE

:sNO--LOOP

JsESCAPE TO 11% ON ERROR

JCYLINDER
DTACPB+12,CYL.DS
TRACK
;s
DTADPB+11,TRK.DS
DTADPB+10,SEC.DS
sSECTOR
#DTADPB+16,=(SP)
sSTATUS/ERROR INDICATOR ADDRESS
:FORM D]ISPATCH INDEX
PC,ERINDX

CZRMVBC RMQS/3/2 EXT'D DR TST
APT COMMUNICATIONS ROUTINE
031510
031512
031514
031516
031520
395 031522
396 031524
397 031530

104041
104042
104043
104044
000240
005737
001011

399 031540

001405

MACRO v04.00

062607

ADD

EMT
EMT
EMT
EMT
NOP
TST
BNE

047154

398 031532 032737 100000 047202
400 031542
401 031550
402 031554

012737
000137

177777
031776

001466

031554
403 031556
404 031564

104045
112737
004037

000151
041406

047100

406 031572

000240

408 031600
409 031602

001775
100410

405 031570

407 031574

047076

005737

047114

004037

041406

413 031614

005737

047114

416 0316¢4
417 031632
418 031640
031646
031654

012737
012737
013737
113737
113737

000001
031736

410 031604

411 031610
412 031612

414 031620
415 031622

031662
031666
031672
031674

047076
000240

001775
100065

012746
004737
062607
104041

031676
031700
031702
419 031704

104042
104043
104044
000240

421 031712

001010

423 031722

001404

420 031706

047110
047107
047106
047114
032170

7%:

8%:
001434
001222

001366
001372
001370

100000 047202

424 031724
425 031732

012737
000421

177777

031734

104046

428 031744

001402

427 031736 032737 040000 047202

433 031770

434 031772
435 031776

004037
013746
004737
123737

032016
047114
032130
001464 001117

013700
032737

001350
040000

101002

45
;1/0 ERROR
H#WRCKD ,DTADPB+2 ; COMMAND=WRITE CHECK DATA
RO,RMO5
;DO THE WRITE CHECK

NOP

001314

11%:

;BAD SOPT ERROR

sSET BAD SECTOR ENCOUNTER FLAG
JEXIT

iST

DTADPB+16

.
;DONE?

JSR

RO,RMOS5

;DO A 2ND WRITE CHECK

BEQ
BMI

DTADPB
NOP

TST

7%
9%

DTADPB+16

sNO-~LOOP
; YES==BRANCH IF ERROR

;DONE?

BEQ
BPL

8%
158

MoV
JSR

DTADPB+12,CYL.DS
:CYLINDER
DTADPB+11,TRK.DS
: TRACK
DTADPB+10,SEC.DS
;SECTOR
H#DTADPB+16,~(SP)
; STATUS/ERROR INDICATOR ADDRESS
PC,ERINDX
:FORM DISPATCH INDEX

MoV
MOV
MOV
MOVB
MOVB

#1,WCEFLG
#11%, SESCAPE

:NO-~LOOP
;YES=-BRANCH IF NO ERROR

;SET THE WRITE CHECK ERROR FLAG
;;ESCAPE TO 118 ON ERROR

(SP)+ ,PC
41

;REPORT PROPER ERROR
sNON-EXIST DRIVE

TST

RM.REG+RMER1

sANY DRIVE ERROR

BIT

#BSE ,RM. REG+RMER2

BEQ .

108:

;BRANCH IF NOT

EMT
MOV8
JSR

BNE

001466

RM.REG+RMER1

#-1,BASFLG
15%

EMT
EMT
EMT
NOP

sNON=EXIST DRIVE
;PARITY ERROR
JUNSAFE ERROR
sNON=1/0 ERROR
;70 SYN THE CALLING SEQ OF ERINDX
;ANY DRIVE ERROR ?
;BRANCH [F SO

MOV
JMP

ADD
EMT

032737

429 031746
430 031752
431 031756
432 031762

9%:

;REPORT PROPER ERROR

#BSE ,RM . REG+RMER?

DTADPB

047154

426 031734

6%:

(SP)+ ,PC
41
42
43
G

SEQ 0137

BIT

BEQ
5%:

005737

422 031714

H 11

4-APR=B1 11:57:12 PAGE 33-8

42
43
44

108

;PARITY ERROR
;UNSAFE ERROR
;NON-1/0 ERROR
;SO SYN THE CALLING SEQ OF ERINDX:
:BRANCH IF SO

:BAD SOPT ERROR ?

Moy
BR

108

#-1 ,BASFLG
15%

;BRANCH IF NOT

EMT

;REPORT THE FATAL WRITE CHECK ERROR

BEQ

12%

:BR IF NO

15%

sNO==BRANCH

BIT

;SET BAD SECTOR ENCOUNTER FLAG
;OTHERWISE EXIT

#SK 1 ,RM.REG+RMER2

:SKI ERROR ?

13%:

JSR
Mov
JSR
(MPB

RO, CALL.R
:DO RECALIBRATE C(OMMAND
DTADPB+16,=(SP) ;STATUS WORD
PC,LOP.CK
sSEE _IF LOOP, ABORT, OR CONTINUE
ERR.CT,$ERFLG
;GO TO NEXT TEST?

148 :
15%:

MoV
BIT

BYPASS ,RO
#5W14,C.SWR

12%:

BHI

JYES==GET EXIT ADDRESS
sSTALL?

CZRMVBO RMQS/3/2 EXT'D DR TST
APT COMMUNICATIONS ROUTINE

436 032004

437 032006
438 032012
439 032014

440

001403

004037
001456
000200

MACRO v04.00

BEQ

(32326

JSR

16%:

41
442
443

s CALL

:
2

&46

447 032016
468 032022

005037
004037

450 032030

000772

449 032026

451 032032
452 032036
453 032040
454 032042

455 032050

032056
032064
032072

032076
032102

032104
032106
032110
032112
456 032114
457 032116
458 032122

228 032126
461

462
4£6%
464

(047116

001222
041406

005737
001775
100032
(012737

047134

113737
113737
012746

047127
047126
047134

013737

004737
062607
104041
104042

032116
047130

16%

JNO=~BRANCH

STALLZ2
RO

JSTALL TIME POINTER

RO,STALL

SEQ 013%

JYES==CALL STALL ROUTINE

1%:
o
00122¢
001366

032170

047034
032130

2%:

3%:

001000

470 032140
471 032144

000177
005037

146760
001222

473 032156
W74

001402

475 032160

000137

012616
000207

NOP
MOV
JSR

RTS

PC,ERINDX
(SP)+,PC

41
42
43
44

DPB.A+16,-(SP)
PC,LOP.CK

;FORM DISPATCH INDEX
;REPORT PROPER ERROR

JNON-EXIST DRIVE
;PARITY ERROR
JUNSAFE ERROR
JNON=-1/0 ERROR
2TO SYNC THE CALLING SEQ OF ERINDX
:STATUS WORD
;SEE IF LOOP, ABORT, OR CONTINUE

;RETURN

JSR

PC,LOP.CK

LOP.CK: BIT

#5W9,aSWR

;LOOF ON ERROR

JMP
CLR

aSLPERR
$ESCAPE

,START AT THE LOOP ADDRESS
;CLEAR ERROR ESCAPE FLAG

BEQ

:
032777

476 032164
2% 032166

DPR.R+11,TRK.DS ;TRACK
DPB.R+10,SEC.DS ;SECTOR
#DPB.R+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS

DPB.R+12,CYL.DS ;CYLINDER

ERRORS 41, 42, 43, 44, 45, AND 46.
:CALL
s
MOV
DTA+16,-(SP)
;STATUS WORD FROM DPB IN USE
:

032766

MOVB
MOVB
MOV

;THIS SUBROUTINE CHECK FOR LOOP ABORT, OR CONTINUE SWITCHES AFTER

468 032130

472 032150

;DONE?
sNO==L00P
JBRANCH IF NO ERROR
;:ESCAPE TO 2% ON ERROR

EMT

001402

CALL.R
DPB.R+16
1%
3%
#2% ,SESCAPE

EMT

465

469 032136

TST
BEQ
BPL
MOV

JSR
ADD
EMT
EMT

104044

000200

JNO ESCAPE ADDRESS
;CALL RMO5 DRIVER

MOV

001372
001370

RO, CALL .R

$ESCAPE
RO ,RMOS

DPB.R

104043

000240
013746
004737

JSR
RE TURN

(CALL.R: CLR
JSR

22(7:

482
483

.WORD
‘RTS

I 1
11:57:12 PAGE 33-9

sTHIS ROUTINE WILL ISSUE A RECAL IBRATE COMMAND TO THE RMOS DRIVER
JAND WAIT FCR THE FUNCTJON TO COMPLETE.

464
425

479
480
481

4=-APR-81

072006

021334

147016

000002

RETURN
BEQ

1$:

2%:

BIT

JMP

MOV
RTS

:BR IF NOT

#BIT14!BIT13!BITI2!BIT 0 BIT02!'BIT01,2(SP)

$EOP

(SP)+,(SP)
PC

;TERMINATE DRIVE

:ADJUST RETURN ADDRESS

:THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH
TO THE PROPER ERROR CALL.
THE INDEX IS FORMED BY EXAMINING
THE STATUS/ERROR INDICATCOR OF THE APPLICABLE DPB.
; INDEX

STATUS/ERROR

;CHECK ERROR TYPE

;BR IF DRIVE NOT OFFLIM LMOADED OR
;PERSISTENT UNSAFE OR FATAL MASSBUS PARITY

CZRMVBO R’MQS5/3/2 EXT'D DR TST

APT COMMUNICATIONS ROUTINE

MACRO Vv04.00

4 11

4=APR=81 11:57:12 PAGE 33-10

484
485
486
487

3
:
:
3

(90

JSR

23%

RE TURN

0 BIT14!'BRIT13!BIT08!BIT01
2 BIT11!BIT10!BITOC
4 BIT12!BITO4
6 BITOS!BITU3!<BITO9 & COMMAND=NON=~I/0>
:CALLw BITO6!<BIT09 & COMMAND=]/0>

288
(9

010046
010146
016600
011637

499 032206

032710

BIT

501 032212

001037

BNE

005001

000006
001356

|
y

JSR

494 032170
495 032172
496 032174
497 032200
498 032204

ERINDX: MOV
MOV
MOV
MOV

(LR

500 032210 020402

#DPB+16,~(SP)
PC,ERINDX

JADDRESS OF STATUS/ERROR INDICATOR
JFORM INDEX

JINDEX 1S ON THE STACK

RO,=(SP)
R1,=(SP)
6’SP) RO
(RO) SVSTAT

:SAVE RO
;SAVE R1
JGET STATUS/ERROR INDICATOR POINTER
;SAVE THE STATUS/ERROR INDICATOR

(PC)+,(RO)

FORM INDEX OF 07

;START INDEX AT ZERO

.WORD

BIT13iBIT08!BITO}’

032710

BIT

(PC)+,(RO)

504 032220

001033

BNE

506 032224

050020

.WORD

BIT14iBIT12'BIT04

BIT

(RPC)+,(RO)

502 032214

503 032216 006004

505 032222

S07 032226

508 032230

032710

001027

BIT

(PC)+,(RO)

.WORD

BIT(SIBITO3

BIT

(PC)+,(RO)

001023

BNE

512 032240

000100

.WORD

BITO6

BIT
.WORD
BEQ

(PC)+, (RO}
BITO9
5%

BGT

513 032242

001017

517 032252

122760

000150

005737
001005

047154

514 032244
515 032246
516 032250
518 032260

519 032262
520 032266

521 032270

032710
001000
001420
003011

032737

522 032276
523 032300

001401
005201

525 032304

005201

529 032314
530 032320
531 032322

010166
012601
012600

BNE

100000

524 032302 005201

526 032306 005201
527 032310 005201
528 032312 006301
gg% 032324

534
535
536
537
538

£39
540

177762

CMPB

TST
BNE

047202

BIT

1%:

2%:

000006

3:
4%
5%:

000207

FOM PARITY ERROR OR PORT REQUEST INDEX (25?

8IT111BIT10!BIT02

510 032234

032710

; YES==BRANCH

.WORD

8NE

032710

509 032232 000050

511 032236

SEQ 0139

BEG
INC

INC

INC
INC
ASL

MOV
MOV
MOV
RTS

#150,-16(k0)
RH REG+RMER1
1%

; YES=~BRANCH

“FORM UNSAFE INDEX (4)?

; YES==-BRANCH

;FORM NON~-1/0 ERROR INDEX (6)?

; YES==-BRANCH

;FORM 1/0 ERROR INDEX (10)?

; YES=-BRANCH

;SOF TWARE TIMEOUT?
:NO--FORM INDEX OF 0

;YES--1/0?

*NO~--BRANCH

sANY DRIVE ERROR ?
*BRANCH IF SO

#BSE ,RM.REG+RMER2

:BSE ERROR

1%
R1

;BRANCH IF NOT
*SKIP, NOT REPORT BSE ERROR

2 INDEX=6~-~ERROR=44

R1
R1
R1

R1,6(SP)
(SP)+,R1
(SP)+,R0
PC

* INDEX=10~-~ERROR=45 OR 46
* INDEX=4~~~ERROR=43
* INDEX=2-~-~ERROR=42
* INDEX=0=~~ERROR=41

*RETURN INDEX TO USER
*RESTORE R1
:RESTORE RC
;RETURN FROM CALL

:THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC
AMOUNT OF TIHE IF BIT13 OF C.SWR
= 0 OR A RANDOM AMOUNT QF TIME
JIF BIT 13 OF C.SWR = 1.,
STALL1 CONTAINS SPECIFIED TIME FOR TESTS O - 7, AND STALLZ?
“CONTAINS THE TIME FOR TES1S 16=21.
:CALL
3

JSR

RO.STALL

CZRMVBO RMQO5/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

'
MACRO Vv04.00

541

542

543 032326
544 032330
545 032336
546 032340
547 032344
548 032350
549 032354

553 032372
554 032374

555 032400
556 032402
557 032404
558 032406
559
560
561
362
563
564
565
566 032410
567 032412
568 032414

569 032422
570 032430
571 032432
572 032436
573 032440
574 032446
575 032454
576 032462
577 032466
578 032472
579 032476

580 032504
581 032506
582 032510
583 032516
584 032522
585 032526
586 032534
587 032536
588 032542
589 032546
590 032550
591
592
593
59
595
59

597

013046
032737
001406
004737
013716
042716

005046
162766
103407
012716

005700
005366
001374
000765
022626

020000

001314

TIME POINTER

STALL:

MOV
BIT
BEQ
JSR

@(RO)+,=(SP)
#SW13,C.SWR

BIC

#C77,(SP)

SUB
BLO
MOV
ST
DEC
BNE

#1,2(SP)
4$
.
, (SP)
#100
RO
0(SP)
3$

026426
026526

MOV

177700

000001

K 11
4=-APR-81 11:57:12 PAGE 33-11

000002

000144

1$:

28:
3%:

000000

4$:

000200

CLR

B8R

CMP

RTS

1%
PC,$SRAND

$LONUM, (SP)
-(SP)

(SP)+,(SP)+

JWHERE

SEQ 0140
TO FIND THE

STALL

TIME

;PICKUP STALL TIME
JUSE A RANDOM TIME?
sNO=~BRANCH
;YES=~FORM RANDOM NUMBER
JAND USE IT FOR THE STALL TIME
sBUT NEVER > 64 MILLISECONDS
;CLEAR TEMP. LOCATION
JMORE_STALL REQUIRED?
sNO==-BRANCH
JSTALL FOR ABOUT 1 MILLISECOND
;NOP TO KILL TIME
s COUNT
;LOOP IF MORE COUNTS NEEDED
sCLEAM OFF THE STACK
JEXIT

;ROUTINE TO SOF TWARE COMPARE HEADER ON IMPLIED SEEKS
s CALL

:
:
3
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

RO,VERIFY
JSR
ADR POINTER
RETURN

VERIFY: MOV
150000
054522

MOV
BIC

054522
000002

CMP

054524
054522

054525
054524
001370
001372
001366
032510
000107
030402
001222
001000
146362

000002

001360
001362
001364

1$:

001222

047020

28:

146420

3%:

38:

BNE
CMP
BEQ
MOV

MOVB
MOVB
MOVB
MOVB
MOV

;SAVE R1
;GET ADDRESS OF DPB+10
sSTRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER
BUFFER,2(R1)
;CYLINDER NUMBER 0K?
18
;NO--BRANCH
BUFFER+2, (R1)
;YES--HOW ABOUT TRACK/SECTOR?
3
;BRANCH IF GOOD
BUFFER,CYL.RD
2SAVE THE EXPECTED AND THE
BUFFER+3,TRK.RD JRECIEVED CYLINDER, TRACK,
BUFFER+2.SEC.RD JAND SECTOR
(R1)+,SEC.DS
R1,-(SP)

(ROY+,R1
#150000,BUFFER

(R1)+.TRK.DS
(R1),CYL.DS

MOV
TST

#2% , $ESCAPE
-(R0)

JSR
CLR
BIT
BEQ
JMP
ADD

RO, CALL .A
$ESCAPE
#5W9, aSWR
43
aSLPERR
#2 ,R0O

EMT
MoV

MOV
RTS

;ADDRESS OF DPB+10 (SECTOR NUMBER)

12
#RECAL ,DPB.A+2

(SP)+,R1
RO

;;ESCAPE TO 2% ON ERROR

sMAKE IT TEST PC+4
: IMPROPER HEADER DATA
;LOAD RECALIBRATE ORDER CODE
;GO EXECUTE THE COMMAND
:CLEAR ERROR ESCAPE FLAG
;LOOP ON ERROR ?

;BR_IF NOT

sRETURN TO ERROR ‘OOP ADDRESS
s INCREMENT RETURN:ADDRESS
i
:2§§;ORE R1

;THIS ROUTINE WILL PERFORMlA *MASSBUS'' INIT. FOLLOWED BY
;A "RECALIBRATE'' ON THE DRIVE UNDER TEST.
sNOTE: THIS ROUTINE DESTROYS R1 AND Ré
s CALL

;

JSR

RE TURN1

RO, SRCHOO

;DO A MASSBUS INIT. AND RECAL
JRETURN HERE IF NO ERROR

'
'

CZRMVBO RM0S5/3/2 EXT'D DR TST

APT COMMUNICATIONS ROUTINE

MACRO v04.00

233

;

600 032552
601 032554

005007
005037

177776

602 032560
603 032566
604 032572
605 032600

012777
013704
012764
005037

043306
040650
000040
047106

006064

607 032610
608 032616
609 032622
610 032626
611 032630
612 032632

012737
005037
004037
047076
000440
005737

000107
001222
041406

047100

614 032640
615 032642
616 032650
032656
032664
032672

100030
012737
013737
113737
113737
012746

032710

104043

606 032604 005037 047110

613 022636

032676
032702
032704
032706

032712
032714
617 032716
618 032720
619 032722
620 032726
25} 032732

001775

004737
062607
104041
104042

104044
104045
005720
000404
005064
005064
000200

MOV
MOV
MOV
CLR

000010

CLR

1$:
001222
001366
001372
001370

032170

28:

000006
000034

3$:
48:

;RETURN HERE ON ERROR

R1
PS

: INCASE OF ERROR (TYPTIM)

DTADPB+12

*CYLINDER =0

#1SR, BRMVE C
RMADR , R4
#CLR,RMCS2(R4)
DTADPB+10

;SETUP INTERRUPT VECTOR
*PICKUP
ADDRESS OF RMCST
:MASSBUS INIT.
*TRACK=0; SECTOR=0

MOV
CLR
JSR
DTADPB
BR
ST

#RZCAL ,DTADPB+2 :COMMAND = RECAL IBRATE
$ESCAPE
*NO ESCAPE ADDRESS
RO, RMOS
“CALL THE DRIVER
*DPB POINTER
4
*QUEUE 1S FULL
DTADPB+16
‘WAIT ON DONE

BPL
MOV
MOV
MOVB
MOVB
MOV

38
;TAKE NORMAL EXIT IF NO ERROR
#2$ ,$ESCAPE
*;ESCAPE TO 2% ON ERROR
DTADPB+12,CYL.DS
;CYLINDER
DTADPB+11,TRK.DS
*TRACK
DTADPB+10,SEC.DS
*SECTOR
#DTADPB+16,~(SP)
*STATUS/ERROR INDICATOR ADDRESS

EMT

BEQ

JSR
ADD
EMT
EMT

252
252 032734

RE TURN?

SRCHO0: CLR
CLR

047114
032716
047110
047107
047106
047114

L 11
4=-APR-81 11:57:12 PAGE 33-12

EMT
EMT
TST
BR
CLR
CLR
RTS

PC,ERINDX
(SP)+,PC
41
42

:FORM DISPATCH INDEX
*REPORT PROPER ERROR
*NON-EXIST DRIVE
*PARITY ERROR

44
45
(RO)+
4%
RMDA (R&)
RMDC (R&)
RO

“NON-1/0 ERROR
:1/0 ERROR
*ADJUST FOR ERROR EXIT
2GO TO THE EXIT
*TRACK AND SECTOR = 0
*CYLINDER = 0
*RETURN

*UNSAFE ERROR

:THIS 1S AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST
000002

DORTI:

RTI

‘

:RETURN FROM INTERRUPT

25;

‘E:{f ROUTINE WILL INITIALIZE THE TIMERS USED BY THE '‘TIMING ROUTINES

629

;

g;(’)

632 032736
633 032740
634 032744

635 032746
636 032752
637 032754

104412
012700
005020
020027
103774
012710

639 032766

012737

638 032760
640 032774

22} 032776

643
644

054522

012737 077777
104413

000207

STRTMR: SAVREG
MOV
1$:
CLR

001376
001432

077777

JSR

RETURN

001376
001414

PC.STRTMR

:SAVE RO-RS
*START AT TIM.UP
*CLEAR THE TIME TABLES

CMP
BLO
MOV

#TIM.UP,RO
(RO)+
RO,ATIM.PT
1%
#BUFFER,(RO)

MOV

#~CBIT15.TIM.DN :POSITIVE NUMBER

MOV

RESREG
RTS

*DONE?
:NO--BRANCH
:SETUP POINTER

#ACBIT15,TIM.UP *SET MINIMUM TIME TO MAXIMUM
PC

*RESTORE RO-RS
*RETURN

:THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND
;MAINTAIN THE MINIMUM AND MAXIMUM TIMES.

SEC 0141

| CZRMVBO RMO5/3/2 EXT'D DR TST
|

APT

COMMUNICATIONS ROUTINE

MACRO V04.00

THIS ROUTINE DESTROYS R2

:
:

MOV
MOV

#TP,R3
FLAG,RS

JSR

RETURN

PC,COUNT

001376

COUNT:

MOV

#TIM.UP,R2

:PICKUP THE ‘VP'* POINTER

655 033006
656 033010
657 033014

001414
146500

1$:

MOV

#TIM.DN,R2

*NO==PI1CKUP ‘DOWN'‘ POINTER

658 033020
659 033022
660 033030
661 033036
662 033040
663 033042
664 (33044
665 033050

:
;
012702
005705
001402
012702
027722

146472
146464

679
680
681
682
683
684
685
686
687
688

689 033132
690 033134
691 033142
692 033144
693 033150
694 033154
695 333160
696 033162
697 033164
698 033166
699 033170
700 033174
701 033200

177776
000004

146442
146434

177776
000006 48:

5%:

146420

063052
146400

000002

28:
38:

146450

666 033052
667 033060
668 033066
669 033070
670 033072
671 033074
672 033100
673 033102
674 033104
675 033112
676 033114
677 033122
678 033130

11:57:12 PAGE 33-13

:?RZE:

645
646

647
648
649
650
651
652
653 033000
654 033004

4=-APR-81

001432
146310

001432

68:

TST
BEQ

CMP

BGE
MOV
CMP
BGE
INC
ST
CMP
BLE
MOV

CMP

BLE
INC
ST
ADD
ADC
INC
CMP
BLOS
MOV
ADD
RTS

RS
1%

APKC, (R2) +

2%
:
aPKC,=2(R2}
aPKC,4 (R3)
3$
(R2)
(R2) +
aPKC, (R2)+
48
aPKC,~2(R2)
aPKC.6(R3)

:PARAMETER POINTER
*FLAG=0=COUNT UP

*FLAG==1=COUNT DOWN

TUSE 172
* YES==BRANCH

*LESS THAN PREVIOUS LOW?

*NO=-=-BRANCH
SYES==SAVE 1T
“LESS THAN THE LOW LIMIT?
*NO=-~BRANCH
*YES==COUNT IT
*ADVANCE THE POINTER
“GREATER THAN PREVIOUS HIGH?
*NO=~-BRANCH
SYES==SAVE IT

“GREATER THAN THE HIGH LIMIT?

5%
*NO--BRANCH
(R2)
SYES==COUNT IT
(R2)+
*ADVANCE THE POINTER
aPKC, (R2)+
YADD THIS COUNT TO THE TOTAL
(R2)+
(R2)
:COUNT THIS READING
#BUFFER+<4%822.> TIM.PT :SAVE THIS COUNT?
68
INO--BRANCH
aPKC,aTIM.PT
:YES--WELL SAVE IT THEN
#2,TIM.PT
*ADVANCE THE POINTER
PC

*RETURN

:E:{E ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS

;
:

012002
032777
001035
104401
104401
012237
104401
000000
012246
001410
104401

004737
004737

000100

146012

ASCIZ MESSAGE POINTER
MIN VALUE
MAX VALUE

SPTYP:

MOV
BIT
BNE

(RO)+,R2
#SW06 . aSWR
3%

TYPE

.SCRLF

TYPE

MOV

1$:

050166
026136
026366

RO,SPTYP
JSR
TABLE ADDRESS

STABLE: .WORD
"WORD
;
"WORD
:

001231
001231
033162

. TYPE

,SCRLF.

(R2)+,1%

LWORD

BEQ

JSR
JSR

PC,$SB2D
PC . $SUPRS

MOV

TYPE

(R2)+,=(SP)
,MSGMIN

SEQ 0147

:THE TABLE ADDRESS
TALLOW PRINT
YEXIT IF NOT
;

:LOAD MIN VALUE

‘SKIP IF MIN VALUE IS 0
:CONVERT TO DECIMAL
STYPE IT

| CZRMVBO RM0S5/3/2 EXT'D DR TST
.

,
!
'

APT COMMUNICATIONS ROUTINE

702 033204
703 033210
704 033214
705 033216

706 033222

707 033226
708 033232
709 033236
710

104401
104401

011246
004737
004737

104401
104401
000200

MACRO Vv04.00

050210
050174

2%:

026136
026366
050210
001231

4-APR-81 11:57:12 PAGE 33-14

3%:

SEQ 0143

TYPE

MSGOUS

;0 US

MOV
JSR
JSR
TYPE

(R2) ,=(SP)
PC,$S62D0
PC,$SUPRS
.MSGOUS

*MAXMUM VAL UE

TYPE

+MSGMAX

,$CRLF
RO

TYPE
RTS

L CR=LF

;2 THIS ROUTINE IS USED TO TYPE THE MINIMUM,
sMAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS
sIT WILL ALSO CHECK THE TIMES TO ENSURE

sTHEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES.

;NOTE: THIS ROUTINE DESTROYS R2-R5
s CALL

JSR

TABLE
RETURN

TABLE:

727
728 033240
033240

033242
033244
033246
729 033250
730 033252
731 033260
732 033262
733 033266
734 033270

735 033272
736 033274
737 033300
738 033302
739 033304
740 033310
741 033312

742 033316
033320
033324
743 033330
744
745
746
747

033334
033336
033340
033344

033350
033354
748 033360

749 033364

033366

RO,TYPTIM

MSGADR1
MSGADR2

MIN.ALLOWED
MAX .ALLOWED

TYPTIM:

010246

010346
010446
010546
012002
032777
001154
012237
012205
012203
011202
012704
104401
000000

005764
001536
104401
012446
004737
004737
104401

005724
001421
104401

016446
004737
004737
104401
010346
004737

000100

145674

033302

001376
000014

050166

026136
026366
050210
050345
177776
026136
026366
050215
026136

1%:

MOV
MOV
MOV
MOV
MOV
BIT
BNE
MOV
MOV
MOV
MOV
MOV

TYPE

R2.-(SP)
R3,-(SP)
R4 ,-(SP)
R5,~(SP)
(RO) +,R2
., SWR
#SW06
9%
(R2)+,2%
(R2)+,RS
(R2)+,R3
(R2) ,R2

R4
#TIM.UP

.WORD
TST

0
14(R4)

TYPE

.MSGMIN

BEQ

- MOV
JSR

(R4)+,=(SP)
PC,$5B2D

;GO REPORT THE TIMES
;POINT TO THE PROPER TABLE

;ADDRESS QF ASCIZ MESSAGE NUMBER 1
;ADDRESS OF ASCIZ MESSAGE NUMBER 2
sMINIMUM TIME ALLOWED
sMAXIMUM TIME ALLOWED

;:PUSH R2 ON STACK
;;PUSH R3 ON STACK
;:PUSH R4 ON STACK
:2PUSH RS ON STACK
;PICKUP THE TABLE POINTER
;INHIBIT TIME REPORTS?
: YES=-BRANCH
;ADDRESS OF MESSAGE NUMBER 1
;ADDRESS OF MESSAGE NUMBER 2
;PICKUP THE LOW LIMIT
JAND THE HIGH LIMIT
;PARAMETER POINTER

;TYPE THE MESSAGE
sASCIZ MESSAGE POINTER GOES HERE
;DID ANY COUNTS OCCUR?
:NO=-BRANCH
FMINS'

sPUT (R4)+ ON THE STACK
;CHANGE TO DECIMAL ASCIZ

;77PE WITHOUT LEADING ZEROS

JSR
TYPE

PC,$SUPRS
.MSGOUS

BEQ
TYPE
MOV
JSR
JSR

3%
.BLNKS?2
-2(R4) ,~(SP)
PC,$5B2D
PC,$SUPRS

sNO--BRANCH

MOV
JSR

R3.-(SP)
PC,$582D

JPUT R3 ON THE STACK

TST

TYPE

(R4)+

,MBELOW

;OD

Usll

JANY SEEKS BELOW THE LOW LIMIT
sTYPE 2 SPACES

;PUT =2(R4) ON THE STACK
;CHANGE TO DECIMAL ASCIZ

;TYPE WITHOUT LEADING ZEROS

;'BELOW THE MINIMUM OF''

;CHANGE TO DECIMAL ASCIZ

B 1

CZRMVBO RMO5>/3/2 EXT'D DR TST MACRO v04.00 4=-APR-B1 11:57:12 PAGE 3;-15

APT COMMUNICATIONS ROUTINE

033372 004737 ogeseo

750 033376
751 033402

752 033406

104401
104401

012446

050210
050174

JSR
3:

033410 004737 026136

754 033424

104401

005724

755 03

001421

757 033434

016446

758 033450

106401

756 03

1064401

JSR

050210

TYPE

050345

177776

050264

760 033666
761 033472

104401
104401

050210
050202

762 03%726
763 033500
764 033502
765 033506
766 033510
767 033512
768 033514
769 033516
033516
033522

012446
012446
012446
004737 026530
00612€
100001
005216
004737 026136
004737 026366

771 033532

104401

770 033526

104401

c$:

050210

004737
004737
022737
001403
104401

026136
026366
000012 001116
050313

% 033570

104401

050273

68:

779 033574 010537 033302
780 033600 001404
781 033602 005005
782 033604 000635

7%:

776 033566 000402

783 033606
784 033612

033612
033614
033616
033620

7732 033622

104401

012605
012604
012603
012602

050330

8s:
98

000200

;ANY SEEKS ABOVE THE WIGH L IMIT

,BULNKS2

*TYPE 2 SPACES

R2,=(SP)

TYPE
TYPE

,MSGOUS
.MSGAVG

JSR
JSR
TM
BEQ
TYPE

*CHANGE TO DECIMAL ASCIZ

(R&)+

MOV

033542
033546
773 033552
774 033560
775 033562

*TYPE WITHOUT LEADING ZEROS

MSGOUS

PC,$SB2D
PC . $SUPRS

TYPE

77¢ 033536 (16446 177776

PC . $SUPRS

JSR
JSR

TYPE

050345

(R4)+,=-(SP)

PC,$582D

«2(R4) ,~(SP)

MoV
MOV
MOV
JSR
ROL
8PL
INC
JSR
JSR

;TYPE WITHOUT LEADING ZEROS
,
S MAX="
JPUT (R4)+ ON THE STACK

MOV

JSR
JSR

4$:

,MSGOUS
.MSGMAX

TYPE

033456 004737 026136
033462 004737 026366

PC, $SUPRS

BEQ

TYPE

033440 004737 026136
033444 006737 026366

759 033456 010246

MOV

JSR

033414 004737 026366

753 033420

TYPE
TYPE

,MABOVE

PC . $5B2D
PC . $SUPRS
(R&)+,=(SP)
(R4)+.=(SP)
(R&)+.~(SP)
PC,SDIV
(SP)+
5%
(SP)
PC.$582D
PC . $SUPRS
,MSGOUS

*NO=-BRANCH

:PUT =2(R4) ON THE STACK

*CHANGE TO DECIMAL ASCIZ
:TYPE WITHOUT LEADING ZEROS
“ABOVE THE MAXIMUM OF*

‘PUT R2 ON THE STACK

*CHANGE TO DECIMAL ASCIZ
*TYPE WITHOUT LEADING ZERDS
,
S AVG="

“FORM THE AVERAGE
;1S THE REMAINDER OVER HALF?
NO--BRANCH
L YES=-~ROUND UP
;CHANGE TO DECIMAL ASCIZ
‘TYPE WITHOUT LEADING ZEROS

.BLNKS2

;TYPE 2 SPACES -

PC,$SB2D
PC . SSUPRS
#12.8TSTAM
6
MSGNUM

SCHANGE TO DECIMAL ASCIZ
*TYPE WITHOUT LEADING ZEROS
STEST 12 2
“BRANCH IF SO
STYPE ''SEEKS TIMED'

,MSGSEA

STYPE "'SEARCHES TIMED'

Z2(R4),~(SP)

:PUT =2(R4&) ON THE STACK

MOV
BEQ
CLR
BR

RS,2$
9%
RS
1%

;NEXT MESSAGE POINTER
“IF NONE EXIT

MoV
MOV
MOV
MOV

(SP)+,RS
(5P)+ R&
(SP)+.R3
(SP)+ . R2

::POP STACK INTO RS
11POP STACK INTO Ré
*iPOP STACK INTO R3
1IPOP STACK INTO R2

TYPE

RTS

STYPE IT

INO MORE THAN 2

,MSGNON

SEXIT

787

;THIS SUBROUTINE WILL INCREMENT THE TRACK

789

:CALL

788
7%

791

*NUMBER (R2) BY THE AMOUNT SPECIFIED BY *IT".
:

JSR

RE TURN1

RO, INCTRK

;TRACK NUMBER GREATER THAN LT1%

SEQ 0144

CZRMVBO RMQS5/3/2 EXT'D DR TST
APT COMMUNICATIONS ROUTINE

MACRO v04.00 4-APR-81 11:57:12 PAGE 3§°16
1

;g%
794 033626

795 033630
796 033632

3
020237
001410
063702

002350

RE TURNZ
R2,LT

;LAST TRACK COMPLETED?

CMP
MOV
ST

R2.LT
1%
LT,R2
(RO)+

“TRACK 10 BIG?
INO=<=EX]T
“YES==SET TRACK TO LAST TRACK
*ADJUST FOR RETURN 2

002352

BLE

18:

gg; 033652 000200

28:

803

JTRACK NUMBER INCREMENTED

INCTRK: CMP
BEQ
ADD

797 033636 020237 002350
798 033642 003402
799 033644 013702 002350
800 033650 005720

SEQ

RTS

28
I7,R2

SYES==EX]T
‘NO==UPDATE TRACK

“RE TURN

804
805
806

:THIS SUBROUTINE WILL INCREMENT THE CYLINDER
‘NUMBER (R1) BY THE AMOUNT SPECIFIED BY 'IC’.
*CALL

808
ggg

:
:

807

811 C33654

812 033660
813 033662
814 033666
815 033672
816 033674

020137

002342

JSR

RE TURN?
RE TURN2

INCCYL: CMP

001410
063701 002344
020137 002342
003402
013701 002342

817 033700 005720

18:

RO, INCCYL

R1,LC

:LAST CYLINDER COMPLETED?

(RO) +

*ADJUST FOR RETURN 2

BEQ
ADD
CMP
BLE
MOV

28
1C.R1
R1.LC
18
LC,R1

RTS

;CYLINDER NUMBER GREATER THAN LCT5
*CYLINDER NUMBER INCREMENTED
SYES==EXIT
“NO--UPDATE CYLINDER
*CYLINDER TO BIG?
SNO==EXIT
*YES==SET CYLINDER TO LAST CYLINDER

g}g 033702 000200

28:

gzzg

: mf ROUTINE DECREMENTS THE SECTOR ADDRESS.

822
823

:
:

ggg

826 033704

827 033712
828 033716
829 033720
g%) 033726

113766

047146

832
833

ggg

:
104412
005000

841 033734 012701 054522
842 033740 012702 000400
843 033744 010021
005302
003375

DEC
BPL
MOV
RTS

JSR

RE TURN

FILBUF: SAVREG
CLR

1%:
28:

MOV
MOV
MOV

005200

DEC
BGT
INC

103367

BHIS

847 033754 023700 002470
848 033760

18:

:CALL

836

846 033752

DECSEC: MOVB

sCLEAR THE STACK
SUBROUT
INE ENTRY

RM.REG+RMDA,2(SP)

:PUT THE SECTOR ADDRESS ON THE STACK

2(SP)
:DECREMENT THE ADDRESS
1%
*BR IF NOT CORRECTION NEEDED
PRMLMT+24,2(SP) :OVERFLOW OCCURED, FORCE TO MAXIMM ADDRESS
PC
*RETURN

*BEING STORED IN 256 CONSECUTIVE LOCATIONS

835

844 033746
845 033750

RE TURN

~(SP)
PC,DECSEC

;THIS SUBROUTINE IS USED TO FILL THE DATA BUFFER
“WITH ADDRESSES FROM O TO 31 WITH EACH ADDRESS

834

839 033730
840 033732

000002

005366 000002
100003
013766 002470 000002
000207

CLR
JSR

*RETURN

CMP

PC.F ILBUF
RO

:SAVE RO = RS
*FIRST DISK ADDRESS

R2
2$

*MORE?
* YES=-BRANCH

#BUFFER,R1
#256. ,R2
RO, (R1)+
RO

PRMLMT+24,R0
1%

*START FILLING HERE
‘DO 256 WORDS
*STORE

*NO=-=UFDATE DISK ADDRESS

:DONE?

+NO=-=BRAN(H

. CZRMVBO RM0S/3/2 EXT'D DR TST
- APT COMMUNICATIONS ROUTINE
846 033762

MACRO Vv04.00 4-APR-81 11:57:12 PAGE 35-17
D1

104473

gg? 033764

RESREG

000207

RTS

852

SEQ 0146

JRESTORE RO = RS

JRETURN

:THIS ROUTINE WILL CLEAR THE §UFFER BY

853

JSETTING EACH WORD TO '"177400'',

854

:CALL

855

82‘7’
858 033766

859 033770

104412
012701

861 034000

012703

871 034026

103766

8560 033774

012702

862 034004
863 034006
864 034010
865 034012
866 034014
867 034016
868 (034020
869 034022
870 034024

010122
010122
010122
010122
010122
010122
010122
C10122
020203

872 034030
875
876
877

CLRBUF : SAVREG

177400

054522
114522

1%:

gg?
104412
162706

000004

885 034044

012716

054522

887 034054

012702

000020

888 034060
889 034062

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP

#BUFFER,R2
R1,(R2)+
R1,(R2)+
R1.,(R2)+
R1,(R2)+
R1,(R2)+
R1,(R2)+
R1,(R2)+
R1,(R2)+
R2,R3
1%

JWORD TO FILL BUFFER WITH

;FIRST ADPRESS OF BUFFER

;LAST ADDRESS+2 OF BUFFER
JFILL WORDS 1, 9,...249,...5625
JFILL WORDS 2,10,...250,...5626
SFILL WRRDS 3,11, .0:83) 0059027
JFILL WORDS 4,12,...
ios
sI
;FILL WORDS 5,13,...
,e0.9629
JFILL WORDS 6,14,...254,...5630
JFILL WORDS 7,15,...255,...5631
JFILL WORDS 8,15,...256,...5632
;DONE?
;NO--BRANCH

JRESTORE RO -~ RS

JRETURN FROM CALL

:THIS ROUTINE IS USED TO CHECK THE DATA BUFFER
;FOR ADDRESSES 0 THROUGH 31 WITH EACH ADDRESS
;BEING STORED IN 256 CONSECUTIVE LOCATIONS

)

:CALL

886 034050

#BUFFER+<512.%32.>,R3

RTS

878

884 034042

MOV

RESREG

879

882 034034
883 034036

;SAVE RO = RS

#177400,R1

BLO

(000200

RO, CLRBUF

MOV

104413

g;z 034032

JSR

RETURN

005001

005066

011603

893 034062
034064
034066
034070
034072
034074
034076

020123
001063
020123
001061
020123
001057
020123

034102
034104
034106
034110
034112
034114
034116
034120

020123
001053
020123
901051
020123
001047
020123
001045

034100 001055

JSR

RETURN

CKSCTR: SAVREG
SuB

#4 ,SP

;SAVE RO - RS
JRESERVE TEMP. STORAGE AREA

MOV

#BUFFER, (SP)

sFIRST ADDRESS OF DATA BUFFER

MOV

#16..R2

cMP
BNE
CMP
BNE
CMP
BNE
CMP

R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+

JWORD 1
;BRANCH IF BAD
;WORD 2
;BRANCH IF BAD
JWORD 3
;BRANCH [F BAD
sWORD 4

CMP
BNE
CMP
BNE
CMP
BNE
CMP
BNE

R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%

JWORD S
:BRANCH
JWORD 6
;BRANCH
JWORD 7
;BRANCH
;WORD 8
:BRANCH

CLR

000002

1%:
2%:

CLR

MoV

BNE

RO,CKSCTR

2(SP)

(SP) ,R3

;FIRST SECTOR
sNO ERRORS

;LOOP COUNT (16x16=256)

;GET 1ST ADDRESS OF THIS SECTORS DATA

*BRANCH IF BAD
IF BAD
IF BAD
IF BAD

IF BAD

CZRMVBO RMO5/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

034122
034124
034126
034130
034132
034134
034136
034140
034142
034144
034146
034150
034152
034154
034156
034160
89 034162
895 034164
89 034166
897 034172
898 034174
899 034200
900 034202
901 034206
902 034210
903 034216
904 034220
905 034224
906 034230
907 034232
908 034234
909 034236

933 034362

7%
R1,(R3)+
7%
R1,(R3)+
7%
R1,(R3)+
7%

sBRANCH IF
JWORD 11
:BRANCH IF
:WORD 12
sBRANCH_IF
JWORD 13
;BRANCH IF

JWORD 10

7%
R2

#512.,(SP)
R1

3%:

PRMLMT +24 ,R1

002470
4%:

000002
001464

5%:
6%:

8%:

001142

047110
047107
034324

001366
001372
001222

000002

012737
104022
032777

001323
032777
001310

123737

034342

001222

001000

1644604

000002

144574

001464

001117

10%:
11%:

:BRANCH IF BAD
sFINISHED WITH THIS SECTORS DATA?

*NO=--BRANCH

;YES=<FIRST ADDRESS OF NEXT SECTCR
sMOVE TO NEXT SECTOR

;DONE?

;ERROR OCCUR?
NO--BRANCH
ERROR OCCURRED?
M--MANC
:TAKE ERROR EXIT
TEMP.

AREA

:RESTORE RO - RS

sRETURN FROM CALL
:FORM WORD NUMBER AND
;ADDRESS

TO CONTINUE

FROM

;WORD NUMBER

8s .
:lsoO.RS

;BRANCH IF NOT A MULTIPLE OF
;SET TO WORD 16

ADD

#2% R5

;ADDRESS

TST

2(SP)
108

;FIRST ERROR?
+NO=-~-BRANCH

EMT
COMB

#9%,SESCAPE
21
2(SP)

;:ESCAPE TO 9% ON ERROR
;DATA COMPARE FAILURE
;SET ERROR SWITCH

MOV

#11%,$ESCAPE

ASL

MOV
MOvB

9%:

BAD
;WORD 14
;BRANCH IF BAD
JWORD 15
;BRANCH iF BAD
;WORD 16

:FREE

,ng.P’)tgkl.

177740

034062
177776
000002

BAD

#é ,SP

#~(37,R5

000040

BAD

:NO-~BRANCH

RO
R3,R4

7%:

BAD

2(SP)
6%
ERR.CT,SERFLG
68
BYPASS RO

003117

001350
000004

920 034300
921 034306
922 034314

034332
928 034340
929 034342
930 034350
931 034352
932 034360

;WORD 9
sBRANCH IF BAD

R1,(R3)+
7%
R1,(R3)+
7$
R1,(R3)+

001000

SEQ 0147

R1,(R3)+
7%

R1,(R3)+

910 034240
911 034242
912 034244
913 034250
914 034252
915 034256
916 034260
917 034264
918 034272
919 034276

923 034322
924 034324
925 034330
926
927 034332

MACRG v04.00 4-APR-81 11:57:12 PAGEE13%-18

EMT
BIT

BIT
BNE

(MPB

=2(R3) ,$BDDAT

DTADPB+12,CYL.DS
DTADPB+11,TRK.DS

gguO‘?.iSUR
#SW01,aSwR

4%
ERR.CT,$ERFLG

;SAVE BAD DATA

;CYLINDER NUMBER
. TRACK NUMBER

;:ESCAPE TO 11% ON ERROR

;FOLLOWS EMT 21

Lg(s)P ON ERROR?
STOP DATA COMPARE?

VES"BRANLH
:MAX. ERRORS?

CZRMVB) RMOS5/3/2 EXT'D DR TST
APT (OMMUNICATIONS ROUTINE
934 034370
935 034372

936 034400
ggg 034402

1017'3
032777

001272
(00115

(00040

MACRO v04.00 4-APR-81 11:57:12 PAGE 35'19
F1

BLOS
BI!

144554

239

BNE
JMP

5%
#SW05,aSWR

3%
(RS)

JTHIS ROUTINE WILL MOVE

&(})

; YES==BRANCH
JREPORT ONLY 1ST ERROR PER SECTOR?

s YES==BRANCH

THE 16 WORDS OF

:%ESIRED PATTERN INTO THE DATA BUFFER.
s

942
g‘-‘z

:
h

945 034404

104412

946 034406

012701

948 034415

016003

947 034412

951 034422

013702

012321

034424
034426
034430
034432
034434
034436
034440
034442
034444
034446
034450
034452
034454
034456
034460

012321
012327
012321
012321
012321
012321
012321
012321
(012321
012321
012321
012321
012321
012321
012321

253 034466

001353

ggg 034472

000207

952 034462

954 034470

062702

MOV
JSR

SETBUF: SAVREG

054522

047102

003536

1%:

_
000020

CALL

MOV

#BUFFER,R1T

MOV

PAT.PT(R(S),RB

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV

(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+

MOV

ADD

BNE

104413

RESREG

RTS

G57

#NX,RO
PC,SETBUF

DTADPB+4 ,R2

(R3)+,(R1)+

#16.,R2 ;DONE?

SEQ 014

THE

JPATTERN NUMBER INDEX TO RO
;SAVE RO - RS

;FIRST ADDRESS
;WORD COUNT

;PICKUP PATTERN POINTER
JMOVE WORD 1

INTO DATA BUFFER

JMOVE WORD 2 INTO DATA BUFFER
JMOVE WORD 3 INTO DATA BUFFER
JMOVE WORD 4 INTO DATA BUFFER
;MOVE WORD 5 INTO DATA BUFFER
;MOVE WORD 6 INTO DATA BUFFER
;MOVE WORD 7 INTO DATA BUFFER
;MOVE WORD 8 INTO DATA BUFFER
;MOVE WORD 9 INTO DATA BUFFER
;MOVE WORD 10 INTO DATA BUFFER
JMOVE WORD 11 INTO DATA BUFFER
;MOVE WORD 12 INTO DATA BUFFER
;MOVE WORD 13 INTO DATA BUFFER
;MOVE WORD 14 INTO DATA BUFFER
;MOVE WORD 15 INTO DATA BUFFER
;MOVE WORD 16 INTO DATA BUFFER

sNO=--BRANCH

;RETURN

;RESTORE RO - RS

;THIS ROUTINE COMPARES A 16 WORD DATA PATTERN

958
959

;AGAINST
;CALL

960
961
gg%

964 034474

965 034476
966 034502

104412
012701
013702

054522
047102

968 034510

016003

003536

967 034506
969 034514

972 034514

034516

034520
034522

034524
034526

034530
034532

005046

162321

001044

162321
001042

162321

001040
162321
001036

3
z
2

THE DATA BUFFER

MOV
JSR
RETURN

DAT{MP: SAVREG

1$:

#NX,R0
PC,DAT(CMP

;PATTERN NUMBER INDEX TC RO

MoV
MOV

#BUFFER R
DTADPB+4 ,R2

:SAVE RO - RS
;FIRST ADDRESS OF BUFFER
sWORD COUNT

MOV

PAT.PT(RO) ,R3

;PATTERN POINTER

CLR

SUB

BNE

SUB
BNE

SuUB

BNE
SuB
BNE

-(SP)

:NO ERROR

(R3)+,(R1)+

;CHECK WORD 1

(R3)+,(R1)+
4%

:CHECK WORD 2
:BRANCH IF DIFFERENT

(R3)+,(R1)+

4%
(R3)+,(R1)+
4%

;BRANCH IF DIFFERENT

;CHECK WORD 3

;BRANCH [F DIFFERENT
JCHECK WORD 4
:BRANCH [F DIFFERENT

CZRMVBO RMOQS/3/2 EXT'D DR TST
ne
COMMUNICATIONS ROUT INE
e

034534

034536

034540
034542
034544
034546
034550
034552
034554
234556
034560
034562
034564
034566
034570
034572
034574
034576
034600
034602
034604
034606
034610
034612

973 034614

974
975
976
977

034620
034622
034624
034626

978
979 034630

980 034632
981 034636
982 034640
983 034642
984 034646
985 034650
986 034654
987 034656
988 034662
989 034666

990 034672
991 034676
992 034700
993 034702
994 034710

995 034716
996 034724

997 034730
998 034736
999 034740

1000 (34744
1001 034746
1002
1003 034750

034750
1004 034756

MACRG v04.00 &=APR=81 11:57:12 PAGEG 3%-20
1

162321
001034

SUB
BNE

(R3)+,(R1)+
4%

sCHECK WORD 5
‘MRANCH IF DIFFERENT

001032

BNE

‘BRANCH IF DIFFERENT

BNE
SUB
BNE

4$
(R3)+,(R1)+
4$

BNE

BNE
SUR
BNE
SUB
BNE
SUB
BNE
SUB
BNE

4$
(R3)+,(R1)+
4%
(R3)+,(R1)+
48
(R3)+,(R1)+
43
(R3)+, (R1)+
43

BNE
SUB
BNE
ADD

43
(R3)+,(R1)+
43
#16. ,R2

*BRANCH IF DIFFERENT
*CHECK WORD 16
*BRANCH IF DIFFERENT
*DONE 7

ST
RESREG

(SP)+

*YES == CLEAN UP STACK
*RESTORE RO - RS

SUB

162321

SUB

SUB
SUB

001022
162321
001020
162321

001016
162321
001014
162321
001012
162321
001010
162321
001006
062702
001333
005726
104413
000207
010104
162704
006204
010305
166005

006305
062705
064341
010137
010337
012137
012337
005716
001023
013737
113737
113737

016600

012737
104013

SuB

000020
3%:

RTS

48:

054522

034514

000020

012737

034760

001222

6%:

(R3)+,(R1)+

R1,R4

R3,RS
PAT.PT(RO)
,RS

“CHECK WORD 6

“CHECK WORD 7

‘BRANCH IF 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
*CHECK WORD 12
“BRANCH IF DIFFERENT
*CHECK WORD 13
‘BRANCH IF DIFFERENT
*CHECK WORD 14
*BRANCH IF DIFFERENT

:CHECK WORD 15

*NO-=BRANCH

;FORM THE WORD NUMBER
:WORD NUMBER

*FORM ADDRESS TO CONTINUE FROM

ASL
ADD

RS
#2$ RS

;ADDRESS

MOV
MOV
MOV

R1,$BDADR
R3.$GDADR
(R1)+,$BDDAT

“SAVE THE ERROR INFORMATION
:
:

(SP)

*1ST DATA COMPARE ERROR?

-(R%).=(R1)

(R3)+.8GDDAT

*RECONSTRUCT THE BAD WORD
-

*NO~=BRANCH

MCV
MOVB
MOVB
MOV

DTADPB+12,CYL.DS
: CYLINDER
DTADPB+11.TRK.DS
S TRACK
DTADPB+10.SEC.DS
*SECTOR
:GET TEST PC+4
26(SP) ,RO

EMT
MOV
(OM8
BR

13
20(SP) ,RO
(SP)
7%

MOV

5%:

(R3)+,(R1)+

MOV
SUB

BNE

001222

(R3)+, (R1)+

#BUFFER,R4

MOV

001366
001372
001370

(R3)+,(R1)+

SuB

ADD

001136
001134
001142
001140
047110
047107
047106
000026
034740

MOV
ASR

003536

016600
105116
000404

104014

BNE

(R3)+,(R1)+

MOV
EMT

#5%, $ESCAPE

#ZS.SES(APE
1

*;ESCAPE 10 5% ON ERROR

‘DATA COMPARE FAILURE
*PATTERN NUMBER INDEX
‘SET THE ERROR SWITCH
'

::ESCAPE TO 7$ ON ERROR

SFOLLOWS EMT 13

CZRMVBO RMOS/3/2 EXT'D DR TST
APT
COMMUNICATIONS ROUTINE

1005 034760
1006 034766

032777
001315

1008 034776
1005 035000
1610 035006

101004
013766
000705

1007 034770

1813 035010

123737

MACRO v04.00 4=-APR=-81 11:57:12 PAGE 3%-21
H1

000002

144166

001464

001117

001350

000002

000715

7%:

BIT
BNE

#,W01,aSWR
%

:STOP DATA COMPARE?
SYES==EXIT

BHI
MOV
BR

8%
BYPASS,2(SP)
33

*NO==BRANCH
:YES=~ERROR EXIT

C(MPB

8%:

JMP

ERR.CT,$ERFLG

(RS)

1013

sTHIS ROUTINE WILL FILL

1015

‘BE

1018

‘CALL

1014

“A RANDOM PATTERN.

1016
1017

THE BASE OF

THE

}85?

THE DATA BUFFER

FIRST

JSR

RO,F ILRAN

RE TURN

012707

054522

FILRAN: MOV

#BUFFER R

1024 035022

004037

035232

1$:

RO,RANPAT

3855 035032

(256%*32 WORDS) WITH

TWO WORDS OF

EVERY 256 WILL

THE RANDOM NUMBER GENERATOR FOR THE

1022 035012

1025 035026
1026 035030

:NO==CONTINUE AT NEXT WORD

JNEXT 254 WORDS.
INOTE: THIS ROUTINE DESTROYS R1 AND R2

1018

1023 035016

‘MAX. ERRORS?

013702
005302
100374

002470

000200

MOV

JSR

DEC
BPL

RTS

PRMLMT+24,R2

:MAXIMUM NUMBER OF SECTOKS

R2
1%

1029

:THIS ROUTINE USES THE FIRST TWO WORDS OF

. 1030
1031

1032

*NOTE: THIS ROUTINE DESTROYS R1-Ré&
s CALL

1034
}833

1039 035044
1040 035050

013746
013746

012702
012707

1041 035054 010103
1042 035056

1043 035062
1044 035070
1045 035074

1046 035100
1047 035106

1048 035106

011237

016237
004037
012637
012637
005046

026524
026526

0071441

1051 035120

064342

:
:

JSR
RE TURN

RO.RANCK

RANCK:

MOV
MOV

SHINUM,-(SP)
$LONUM.
- (SP)

:SAVE THE PRESENT RANDOM NUMBER

MOV

R1,R3

:COPY IT INTO R3 FOR LATER USE

2(R2)
, SHINUM
RO, RANPAT
(SP)+,$LONUM

:GENERATE A RANDGM PATTERN
-RESTORE PRESENT RANDOM NUMBER

055522
056522

026526

000002
035232
026526

MOV
MOV

MGV

026524

MOV
JSR
MOV

026524

162322

1049 035110

1050 035112

1$:

SUB

MOV
MOV

1055 035136

012337

001140

MOV

1057 035144
1058 035150
1059 035152
1060 035154

162704
006204
005716
001002

055522

SUR
ASR
1ST
BNE

1061 035156

105116

(R3)+,(R2)+

-(R3) ,-(R2)

001136
001134

010204

(SP)+.SHINUM
-(SP)

ADD

010237
010337

1056 035142

(R2) , SLONUM

1052 035122
1053 0351256

001142

#BUFFER+512.
,R2 :READ BUFFER ADDRESS
#BUFFER+1024 . ,R1
:RANDOM PATTERN ADDRESS

BEQ

035164

012237

001222

MOV
CLR

012737

1054 035132

THEN

;THE READ BUFFER IS COMPARED TO THE PATTERN GENERATED.

1033

1037 035034
1038 035040

THE

sREAD BUFFER TO GENERATED A RANDOM PATTERN.

MOV

#3$, $ESCAPE

*PRIME THE RANDOM NUMBER GENERATOR

:NO ERRORS

*ARE THESE TWO WORDS DIFFERENT?
*NO=-BRANCH

*;ESCAPE TO 3% ON ERROR

"RECREATE THE BAD WORD

R2, $BDADR
R3,$GDADR

*ADDRESS OF BAD DATA
*ADDRESS OF GOCD DATA

(R3)+.$GDDAT

:GOOD DATA

(R2)+,$BDDAT

:BAD DATA

MOV

R2.Rb

‘FORM WORD NUMBER (1 TO 256)

(OMB

(SP)

JYES==SET ERROR SwIT(H

#ROFFER+512.
R4
R4
(SP)
:FIRST ERROR
2%
sNO==BRANCH

CZRMVBO RMCS/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

1062 035160

1063 035162

035162

1064 035164
1065 035172
1066 035174

1067 035202

1068
1069
1070
1671
1072
1073
1074
*1075
1076

035204
035212
035214
035216
035220
035222
035224
035230

MACRO V04.00 4=-APR-81 11:57:12 PAGE[13%-22

104075
104016

032777

001000

143762

123737
101406

001464

001117

000002

143742

001012

032777
001002
020103

000200

EMT

3$%:

BIT

48:

101333

005726
001402
013700

5%:

001350

68:

EMT

BNE
(MPB
BLOS
BIT
BNE
(MP
BHI
ST
BEQ
MOV
RTS

:DATA COMPARE

;FOLLOWS EMT 15

5%
ERR.CT,$ERFLG
5%
#SW01,aSWR
5%
R1,R3
1%
(SP)+
6$
BYPASS,RO
RO

: YES=~BRANCH
;MAX. ERRORS OCCURRED?
: YES==BRANCH
;STOP COMPARING?
;s YES==BRANCH
;ALL DATA BEEN COMPARED?
sNO=-=BRANCH
:ERROR OCCUR?
:NO==BRANCH
:TAKE ERROR EXIT
JEXIT

#SW09, ASWR

FA]LURF

:LOOP ON ERROR?

sTHIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM

1077

sPATTERN OF WHICH THE
;OF THE PATTERN.
. CALL

1078
1079

1080

1081
1082
1083
1084
1085 035232
1086 032234
1087 €35240
1088 035242
1089 035246

035252
035256
035260
035262
035264

MOV

RETURN

010246
012702
000402
004737
013721
013721
005302
003370
012602
000200

000200
026425
026526
026524

JSR

FIRST

#ADR,R1

RO,RANPAT

TWO WORDS ARE

THE BASE

;ADDRESS OF

THF BUFFER

RANPAT: MOV

R2.,=(SP)

:SAVE R2

1%:

JSR

PC,$RAND

;GENERATE A RANPCOM NUMBER

MOV

$SHINUM. (R1)+

-PUT HIGH WORD IN BUFFER

SSV

2%:

MOV

DEC
BGT
MOV
RTS

sgée./z..az
SLONUM, (R1)+

R2
1$
(SP)+,R2
RO

*GENERATE 256 WORDS
:PUT LOW WORD IN BUFFER
*DONE?
*NO--BRANCH
*RESTORE R2
JEXIT

;THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND S ECTOR
;ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10,

;NOTE: THIS ROUTINE DESTROYS R1-R3

1099

;CALL

004737
o

113701
113702
013703
105701

002403

WWWW

oo
oSN
O

123701

(elelelelelelelels
o]
NN N AN NN NN N

<
" p—g— Y
R

ed e

ok o

d ok e

d d

:
b

103003

000241
106001
000772
105702
002403
123702

002003

026426
026526
026527
026524

002470

RANADR: JSR

MOVB

MOV

és;a

1%:

2%:

3$:
001374

JSR
RETURN

4$:

RO, RANADR

PC, SRAND

:GENERATE A RANDOM NUMBER

SLONUM+1,R2

“FORM TRACK IN R2

$LONUM,R1

$HINUM,R3
g;

CMPB

PRMLMT+24,R1

RORB

rs;e

:Sag

(MPB
BGE

LSTRK,R2
6%

BHIS
CLC

BR
8l

11 & DTADPB+12).

*FORM SECTOR IN R1

*FORM CYLINDER IN R3

*ENSURE THE SECTOR IS BETWEEN O AND 31

:CHECK MAXIMUM SECTOR ADDRESS

SENSURE THE TRACK IS BETWEEN O AND LAST TRACK

CZRMVBO RMQOS/3/2 EXT'D DR TST

APT

—

QO jelelololele] [eolelelele)

5%:

106002

000772
023703

35360
35362

WA W
v
N
NN

BIRAR WN = O VRNV
g o,CO
W
W=

000241

035374
035376
035400
035402
035406
035410
C35412
035414
035416
035422
035424
035426
035430
035432
035436
035442
035446

003413
000241
006003
005503
001371
010103
000303
060203
005203
003364
005403
0007¢€2
023703
002003
000241
006003
000772
023703
003403
005203
000303
000764
110137
110237

010337
000200

6$:

002340

NITIAZRRAR2S

fFC,R3

7%:

002340

8%:

047106
047107
047110

SENSURE THE CYLINDER 1S BETWEEN FC AND ((

R3
R3
6%
R1,R3
R3
R2,R3

R3
6%
R3

INC
BGT
NEG

BR
CMP
BGE
cLC
ROR

6%
LC.R3
8%

R3
7%
FC.R3
9
R3
R3
7%
R1,DTADPB+10
R2,DTADPB+11
R3.DTADPB-12
RO

BR
CMP
BLE
INC
SWAB
BR

MOVB
MOVB

MOV
RTS

;SAVE SECTOR ADDRESS
*SAVE TRACK ADDRESS

:SAVE CYLINDER ADDRESS
*RETURN

:THIS ROUTINE IS USED TO INPUT THE '‘CONTROL SWITCHES''.
SIF SWR<07>=1 THE PRESENT SETTIi'G WILL BE TYPED AND THE NEW
“SETTING IS READ AND STORED.
;?Rrs: THIS ROUTINE DESTROYS R3 AND Ré4
CALL
;

g
-

vy
o
S
WONINS
NN —=OC

gr;

ADD

002342

SEQ 015¢

B8R

CLC

T
[
[
g
= o
P
— v
T
[
Y
——

CcLC
RORB

ROR
ADC
BNE
MOV
SWAB

- )
d ok b

-_—

e o

SN
W
SN =00

D e o

d e

N AV N N N O

D e e

D s

10 0 PO 0 0

e o

G 0

d o

oo o —

b -

d—‘—ldd—)—.dd—‘dd“—ld-;-—‘—l—‘-‘d_‘—.—fl—‘_d

COMMUNICATIONS ROUTINE

J 1

MACRO Vv04.00 4=-APR-81 11:57:12 PAGE 35-23

:
035450
035456
035460
035464
035506
035506
035512
035516
035522
0355¢4
035526
035534
035540

032777
001430
104401

000410

012703
013704
004037
000771
000240
013737
010437
000207

000200

143476

001314
001314

PC.GETSWR

; (C.SWR)=DESIRED {UNTROL -WITCHES

GETSWR: BIT

#SWO7,aSWR

éigss:

<CRLF>/SET SWR<07>=0/

035466

1$:

047264
001314
035542

JSR

RE TURN

001320
2%:

BEO
TYPE
BR

LASCIZ

MOV
MOV
JSR
BR
NOP
MOV

sWITCHES?

:NO~-- 2RANCH
1:TYPE A>CIZ STRING
. *GET OVER THE ASCIZ

#MSG.CS,R3
C.SWR,R4
RO, GE TNUM
1%

;"'CONTROL SWITCHES="'
SPRESENT CONTROL SWITCH SETTINGS
*GET THE NEW SWITCH SETTINGS
: COMMA
*PERIOD
:SAVE PREVIOUS VALUE

C.SWR,SAVCSW
R4, C.SWR
PC

MOV
RTS

:READ CONTROL

2%
658
64%

: DOUBLE PERIOD=-SAVE NEW SWITCH SETTING
JRETURN FROM CALL

JTHIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN
:}?PEEUATR?8CIZ STRING AND CHANGE THE STRING TO OCTAL
H

00 0000 0V00 0000 NN~
VN
8388 ©0
IR
N
WV WA = OO 00N
NS Nny

1199 035636

1200 035640
035642
035644
035646
035652
035654

eh e
e ood
A v

3
22

1206 035656
1207 035660
208 035662
DAOAD WO

035670
035672
035674
035676

104401
104411

012601
004037
035546
035546
035610
035634
035642
035606
005301

004037
035546
035630
035626
035624
005720
005720
010204
000414

RE TURN3

SEQ 0153

JADDRESS OF ASCIZ MESSAGE
;OCTAL NUMBER
s INPUT TERMINATED WITH A (OMMA
JWITH A PERIOD
;WITH A DOUBLE PERIOD

JR4=INPUT NUMBER AND
sR2=R4*32 FOR ALL
; THREE RETURNS

;SAVE MESSAGE POINTER

0
R4 ,-(SP)

.SLASH

(SP)+,R1

RO,CK.CHR

040132

;TYPE THE MESSAGE
JMESSAGE POINTER GOES HERE

;;SAVE R4 FOR TYPEOUT
:{Gg !YPE--OCTAL ASCII(ALL DIGITS)
JREAD AN ASCIZ STRING
;ADDRESS OF FIRST CHARACTER
;CHECK ONE CHARACTER
s ILLEGAL CHARACTER

;CARRIAGE RETURN

3%:

040372

4%:

5%:
6%:
7%:

8%:

105711
001406
122721

9%:

001343
000411

000056

105711

001333
005720
005720
010402
000302
006202

#ADR ,R3
#NUM,
R4

GE TNUM
RO,
JSR
RETURN1
RE TURNZ

047307

105711

001335

MOV

nNN—O

LN
T
R

}}96 035630
97 035632
11 98 035634

000000
010446
104402

035550

JSR
1%
7%

RO, CK.NUM

TST
IST

+
(RO)
(RO) +

6%
5%

MOV
BR

1STB

BNE
BR
TSTB
BEQ
(mMPB
BNE

TSTB

BNE
b

11 94 035624
11

104401

—d

O 0 00

035619
035614
035616
035620
035622

010337

el sl
il

will il el el ild il S

b ilh il 058 v
) i sl

b oo id wed v

wilbond wid 0

vl wnd il
wh b aibail

MOV

1192 035606
1193 035610

1201
1202
1203
1204
1205

MACRO V04.00 4-APR-81 11:57:12 PAGE 3%-24
JNOTE: THIS ROUTINE DESTROYS R1
s CALL

035542
035546
035550
035552
035554
035556
035562
035564
1 035566
035572
035574
035576
035600
035602
035604

bl
il wnd -

COMMUNICATIONS ROUTINE

At
—d e
)t b )

APT

narnonanonNONON

|
i

CZRMVBO RMOS/3/2 EXT'D DR TST

TST
TST
Mov
SWAB
ASR
ASR
ASR
RTS

*DIGIT 0-9

*DECREMENT THE INPUT POINTER

;CHECK THE NUMBER
s ILLEGAL INPUT
;TERMINATED WITH A *°,"" OR ""(CR"’
;TERMINATED WITH A *'.*’

R2 R4

11$

(R1)
1%
11%
(R1)

10%

#'.,(R1)+

1%
(R1)

1%
(RQ)
+
(RO)
+

R4 ,R2
R2
R2
R2
R2
RO

JTERMINATED WITH A ..
;DOUBLE PERIOD
:SINGLE PERIOD

; COMMA-~SAVE INPUT NUMBER
;GO TO EXIT
;TERMINATOR AFTER A COMMA?
:NO--LOOP

JYES==EXIT

;TERMINATOR AFTER A PERIOD?

sYES==EXIT
;NO--DOUBLE PERIOD?
.NO-~LOOP
JYES=-TERMINATOR?

sNUMBER IN CASE IT
:IS THE PRIORITY LEVEL
JEXIT

:THI5 ROUTINE IS USED TO CHANGE OR MODIFY

CZRMVBO RMQ5/3/2 EXT'D DR TST

APT COMMUNICATIONS ROUTINE

MACRO Vv04.00 4-APR-81 11:57:12 PAGE 35-25
L1

:THE TEST PARAMETERS.

S LAY IAN I ST N T, T,
POPONIN)
— — 3

— o - d b d D

035730

1226 035730
1225 035732
1226 035734

035740

035742
035744

104412
005037
104401
0004C6

104411
012601
004037

035702

éigSS:

040132

IT GIVES THE OPERATOR

001332
001334

036042

104401
000403

036044

1240 036052

1261 036054

035702
035702
035754
005301

;::

000007
040206

040636

1242 036056© 122711
1243 036062 001007
1244 036064
122761
1245 036072 001003
1246 036074
105761
1247 036100 001754
1248 036102 005037
1249 036106 005037
1250 036112 005C37
1251 036116 005037
1252
1253 036122
121127

GT.PR1
%
DEC

MOV
JSR
GT.PR1
GT.PR1
3%
001330

3%:

4%
43

,65%
JiTYPE ASCIZ S
649
;:GET OVER THE
<CRLF>/DRIVE(S)=/

(SP)+ ,R1
RO,CK.CHR

001330

4%:

éigSS:

sl
g
skl

i
:DIGIT 0-9

#7 .R2
RO,CK.DIG

JUPPER LIMIT OF INPUT
;CHECK THE DIGIT(S)
sILLEGAL INPUT
s INPUT TO LARGE
;TERMINATED WITH A *'","" OR '"CR"’

BNE

1STRB

CLR
BR

-(R1)

JWAS THE LINE TERMINATED?

TSTNMS

;DESELECT ALL TESTS

JNO-GET THE NEXT DRIVE

TSTNMS+2
GTTST1

;YES--SELECT TEST

BISB

ATABIT(RZ2) ,DRVSEL

RTS

TYPE

BR
JASCIZ
RDL IN

MoV

000056

;ADDRESS OF ASCIZ STRING
;CHECK ONE CHARACTER
;ILLEGAL CHARACTER
;CARRIAGE RETURN

BISB

GT.PR2: RESREG
GTTST1:

JREAD TTY

;TERMINATED WITH A *"."°
;TERMINATED WITH A *"..""
ATABIT(R2) ,DRVSEL
;SET THE DRIVE SELECTED BIT

CLR

104411

012601

;SAVE RO =~ RS
JNO DRIVE SELE

DRVSEL

GT.PR1
GT.PR1

005037
005037
000405
156237
104413
000207

036052

MOV
JSR
GT.PR1
GT.PR1

035702
035702

012702
004037
035702
035702
036000
036024
036024
156237
105741
001362

TYPE
BR
JASCIZ
RDL IN

035746
035750
035752
1227 035754
1228 035756
035756
035762
035766
025770
035772
035774
035776
1229 036000
1230 036006
1231 036010
1232 036012
1233 036016
1234 036022
1235 036024
1236 036032
1237 036034

1238
1239 036036
036036

GT.PRM: SAVREG
GT.PR1: CLR

~NWwW

035700
2 035702
3 035706
035712
-

N -

9
0

.
|

SEQ 0154

JTHE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST, WHICH
STESTS TO RUN AND HOW MANY TIMES TO REPEAT EACH TEST

oSO
WO

:SET THE SELECTED DRIVE BITS

;RESTORE RO - RS
JEXIT

,65%

648
/TEST=/
;

(SP) +,R1

;sTYPE ASCIZ STRING

;:GET OVER THE ASCIZ
:READ AN ASCIZ STRING

;POINTER TO R1

001332
001334
001336
001340

1%:

CMPB
BNE
CMPB
BNE
TSTB
BEQ
CLR
CLR

#'..(R1)
1%
#'.,1(R1)
1%
2(R1)
GT.PR2
TSTNMS
TSTNMS+2

OPNFLG
OPNFLG#+2

;NO TESTS TO BE OPENED

000123

GTTST2: (MPB

(R1),#'S

JALL SEEK TESTS?

000056

000001

000002

CLR
(LR

;DOUBLE PERIOD?
+NO--BRANCH
et
JY'CR'?
JYES=-=EXIT

:NO TEST SELECTED

|
|

CZRMVBO RMOS5/3/2 EXT'D DR TST
APT COMMUNICATIONS ROUTINE
1254 036126

1255 036130
1256 036136
1257 036140

001004

052737
000552
121127

000777

001004
052737

1261 036156
1262 036162
1263 036164
1264 036172

121127
001004
052737
000534

000101

1267 036202

052737

000001

121127
001004
052737
000516

000105

1265 036174
1266 036200

121127
001004

1268 036210 000525

1269 036212
1270 036216
1271 036220

1272 036226

1273 036230

004037

1274 036234 000514

1275 036236

1276 036240
1277 036242

005201
004037

020227
003263
010237
010204

1292 036302
1293 036304
1294 036306
1295 036310
1296 036312
1297 036320
1298 036324
1299 036326

006204
006204
006204
006302
056264
121127
001060
005201

1300 036330

001332

28:
001332

000104

000002

38:

001334
4$:

001334

040056

5%:

040056

042704

004037

1302 036336
1303 036340
1304 036342

010205
005201
004037

1306 036350
1307 036352
1308 076354

005201
006305
006305

1310 036360
1311 (36362
1314 £36362

060502

1305 036346 000405

6$:

036462

000017

GTTST3

BNE
BIS

001540
000055

001332

040056

:NO=-BRANCH
;YES==SELECT TESTS 12,13 & 15

BIS

#1,TSINMS+2

:YES=~SELECT TEST 20

CMPB
BNE
BIS
BR

(R1),#'E
5$
#2,TSINMS+2
GTTsT3

;EXERCISER TEST?
:NO=-BRAN(H
:YES==SELECT TEST 21

GTTSTé

:NO=-BRANCH

CMPB
BNE

JSR

(R1),#°'D
48

GTTST3

:DATA ‘TEST?
:NO=-BRANCH

RO,CK,OCT

;0CTAL DIGIT?

MOV

R2,RS

:YES==SAVE IT

ASL
ASL
ASL
ADD

R
RO,CK.OCT
Rl

RS
RS
RS
R5,R2

MOVE TO NEXT CHARACTER
:OCTAL DIGIT

:NO==BRANCH

:MOVE TO NEXT CHARACTER

:SCALE HIGH DIGIT

|
;COMBINE HIGH & LOW DIGITS

(MP
BGT
MOV
MOV

R2,422
GTTST1
R2.9%
R2.R4

ASR
ASR
ASR
ASL
BIS
(MPB
BNE
INO

R4
SHIFT THE BITS
R4
R4
R
BITS(R2),TSTNMS(R4)
:SELECT TEST
(R1),4';TEST STRING?
GTTST4
*NO--BRANCH
R
YES=-MOVE 10 NEXT CHARACTER

MOV
INC
JSR

#17,R4

RO,CK.OCT

VALID TEST NUMBER?
:NO--BRANCH
:SAVE THE TEST NUMBER
:CONVERT TEST NUMBER INTO AN INDEX

:CLEAR UNWANTED BITS

:0CTAL DIGIT?

GTTSTi

*NO==BRANCH

*NO=-BRANCH

R2,RS
Rl
RO,CK.OCT

:YES==SAVE IT
MOVE TO NEXT CHARACTER
:0CTAL DIGIT?

INC
ASL
ASL

R1
RS
RS

;YES~=-MOVE TO NEXT CHARACTER
SCALE HIGH DIGIT

ADD

R5.R2

;COMBINE HIGH & LOW DIGIT

R2,422

;VALID TEST NUMBER?

ASL

000022

:ALL TIMING TESTS?

:ALL ADDRESSING TESTS?
NO=-BRANCH
;YES=~SELECT TESTS 16 & 17

JSR

78:

:YES==SELECT TESTS 010

(R1),4'A
38
#140000,TSTNMS
GTTST3

040056

2%
#26000,TSTNMS

:NO==BRANCH

CMPB
BNE
BIS
BR

BIC

006305

020227

#777,1STNMS
GTTsf3
(R1),#'T

INO

000022

BIS
BR
CMPB

INC
JSR

006305
006305
006305
060502

1301 036334 000640

1309 036356

140000

1$:

005201

1280 036252
1281 036254
1282 036256
1283 036260
1284 036262
1287 036262
1288 036266
1289 036270
1290 036274

1291 036276

026000

BNE

001332

010205

1278 036246 000405
1279 036250

000124

1258 036144
1259 036146

1260 036154 000543

MACRO V04.00 4=APR-81 11:57:12 PAGE 35-26

(MP

SEQ 0155

W
~
»

337
338 036464
o

OV~

S AWANN—=OVONC NS W=

036472
036474
036500
036502
036506
036510

036514
036520

036522
036530
036532
036540
5 036542
6 036550

7 036552
8 036560
9 036562
wWR—=O

036370

e S S S SO S
R
(12 SRR Mivivivivivivivivivi

?
f

APT COMMUNICATIONS ROUTINE

—-Ov

CZRMVBO RMO5/3/2 EXT'D DR TST
ddd-fi—.d—l—l—ld-—l—l—ld—)—l—l—l—l—l—l-—l—‘—l—-fl—l-—l—l—l—)—d—l-l—J—I—I—J—I—J—I—-fi—‘—l—‘—l—l—l—-‘—i—l—l—l—d—‘daJ
WW NNWWWWNWN WWWWWNWWN
WWN
n
NN
PNONPNIN)
= b
2

036570
036572
036600
036602
036610
036612
036620
036622
036630
036632
036640
036642

003223
023702
002220
010246
013702
012637
006337
006302
010204
042704
006204
006204
006204
006204
056264
062702
020237
101761
162702
000402
000000

005201
121127
001511
005737
001005
005737
001002
000137

N 1¢

MACRO v04.00 4-APR-81 11:57:12 PAGE 3§°27

036462

036462
036462
036462
8%:

000037

001540
000002
036462

001332

000002
9%:

BGT
CmMP

GTTST1

BGE

GTTST1
R2,=(SP)
9$,R2
(SP)+,9%
9%
R2

MOV
MOV
MOV
ASL
ASL
MOV

BIC
ASR
ASR
ASR
ASR
BIS
ADD
CMP
BLOS
SuB
BR
.WORD

GTTST3: INC

GTTST4: CMPB
BEQ

000056

001332

TST
BNE

001334

TST

BNE

036036

JMP

9% ,R2

R2 R4

#37 R4

SEQ 0156

:NO==BRANCH

“IS THE FIRST NUMBER OF

*NO==BRANCH
*SAVE ENDING TEST NUMBER
“GET STARTING TEST NUMBER
*STORE ENDING TEST NUMBER
“SHIFT ENDING TEST NUMBER
“SHIFT TEST NUMBER
*COPY TEST NUMBER INTO R4

*CLEAR LOWER BITS

“SHIFT THE TEST NUMBER

BITS(R2), TSTNMS (R4)
#2,R2
R2.9%

sSELECT THE TEST

; INECREMENT THE TEST NUMBER
“SEE IF FINISHED

*BR IF NOT

GTTST4
0

+ CONTINUE
*STORE TEST NUMBER HERE

#2,R2

THE

“STRING SMALLER THAN THE LAST?

“CORRECT TEST NUMBER

:MOVE TO NEXT CHARACTER

TSTNMS
1%

SANY TEST SELECTED THIS CYCLE?
*BR IF YES

(R1) 4.
GTTSTS

TSTNMS+2

1%
GTTST1

*"PERIOD'"?
* YES=~-BRANCH

SANY TEST SELECTED THIS CYCLE ?

“BR IF
*NO

YES

:CHECK TO OPEN TESTS FOR PARAMETER CHANGES
121127

001054
126127
001004
052737
000451
126127
001004
052737
000441
126127
001004
052737
000431
126127
001
05273

000421,

126127,
001004

052737
000411
056264

000057

1%:

177777

000123

000777

001336

177777

000724

026000

001336

177777

000101

140000

001336

177777

000104

000001

001340

177777

000105

000002

001340

001540

001336

2%:

3%:

5%:

6%:

CMPB
BNE
CMPB
BNE
BIS
BR
CMPB
BNE
BIS
BR
CMPB
BNE
BIS
BR
CMPB
BNE
BIS
BR
CMPB
BNE
BIS
BR
BIS

(R1) 4"/

2 'OPEN'"?

2%
g;??.OPNFLG

;NO==BRANCH
*YES--OPEN TESTS 0-10

~1(R1)4'T
33

;ALL TIMING TESTS?
sNO=--BRANCH

78
-1(R1),#'S

gieooo,operG
=1(R1) ,#'A
4%

g}4oooo,opanG

<1(R1).#°'D

*NO--BRANCH
*ALL SEEK TESTS?

:YES=-OPEN TESTS 12,13 & 15
;ALL ADDRESSING TESTS?

*NO--BRANCH

*YES=-=OPEN TESTS 16 & 17

:DATA TEST?

5%
gl,OPNFLG+2

:NO=--BRANCH
*YES-=OPEN TEST 20

-1(R1) ,#'E
6% .

;EXERCISER TEST?
*NO=--BRANCH

gg.OPNFLG+2

*YES--OPEN TEST 21

BITS(R2) ,OPNFLG(R4)

:YES==SET BITS FOR TEST TO OPEN

CZRMVBO RMQS5/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

1372 036650
1373
1374 036652
1375 036€56

MACRO v04.00 4-APR-81 11:57:12 PAGEB13%-28
BR

000405
121127
001402
000137
005201

000054

7%:

036036

8%:

105711

001402
000137
005737
001042
005737
001037
000137

005201

121127
001414
105711

1396 036750
1397 036752

1398

1399 036756
1400 036760
1401 036762
1602 036764
14035 036770

1404 036774
1405 036776
1406 037002
1407 037004

1408

1409
1410
1411 037010

1412 037012
1413 037014
1414 037016
1415
1416 037020
1419 037024

1420 037032
1421 037034
1422 037036
1423
1424 037042
1425 037046
1426 037050
1427 037054
1428 037060

,_--_“

1429 037062
1430 037064

001402
000137
005737
001022
005737
001017
000137
005201
105711
001402
000137
005737
001005
005737
001002
000137

036122
001336

9%:

8%
GTTSTS
R1

JMP

GTTST2

1STB
BEQ
ST

OPNFLG

MOVE, TO NEXT CHARACTER
Bfl IF_*CR*
sNO==GO GET NEXT CHARA(CTER

.'ANV TESTS TO OPEN ?
JBR IF YES

R1
(R1) ,4°.
GTTIST6

MVE TO NEXT CHARACTER

1%
GTTSTY

BNE
ST
BNE

OPNTST
OPNFLG#+2
OPNTST

;BR IF YES
;ANY TESTS TO OPEN ?
:BR IF YES

1%:

001340

BFQ
JMP

GTTST6:

1%:

001340

;BR IF YES

;NO==START AGAIN

YES=-BRANCH

JANY TESTS TO OPEN ?

GT.PR2

;NO==GO START TESTING

INC

H'CWE TO NEXT CHARACTER

8EQ
JMP

18
GITST1

TSTB

BNE
ST
BNE

JMP

036032

(R1)

JANY TESTS TO OPEN ?

OPNFLG

TST

JMP

036032

036036
001336

(R1)
9%

2" 'COMMA" 2
i8R 1F vES

GTTSTS: INC
CMPB
BEQ

iSTB

001336

(R1) ,#',

BEQ
JMP
INC

OPNTST
OPNFLG+2
OPNTST
GTTST1

036036

BNE
TST
BNE
JMP

001340

000056

(MPR

SEQ

(R1)

OPNFLG

OPNTST
OPNFLG+2
OPNTST

GT.PR2

: YES=-BRANCH

:NO--GO ASK FOR TEST
;ANY TESTS TO OPEN ?
:BR IF YES

:ANY TESTS TO OPEN ?
:BR IF YES

:NO=-=GO START TESTING

;OPEN THE SELECTED TEST FOR CHANGES
OPNTST: SAVREG

104412

005027
000000
000411

005237
022737
002003
104413
000137

037014
000022

013705
006305
013703
042703
006203
006203
006203

037014

(PC)+
O
OPN.2

OPN.1:

INC
CMP
BGE

OPN.CT
#22,0PN.CT
O0PN.2

sMOVE TO THE NEXT TEST

JMP

GTTST1

;YES=-GO ASK FOR MORE TESTS

MOV

OPN.CT,RS

:SETUP TO USE THE

MOV
BIC

OPN.CT,R3
#17 ,R3

JGET INDEX
;CLEAR LOWER TEST BITS

RESREG

036036

037014
000017

;SAVE RO - RS

CLR
OPN.(CT: LWORD
8R

OPN.2:

ASL

ASR
ASk
ASR

R3
R3
R3

;START WITH TEST O
s COUNT STORED HERE
:SKIP THE INCREMENT
:TEST NUMBER TOO BIG?

:NO--OPEN THE NEXT TEST
;RESTORE RO - R5

;TEST NUMBER AS AN INDEX

JSHIFT TEST NUMBER

CZRMVBO RM)S/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

1431 037066
1432 037074
1433 037076

037102

037114

16434 037114

037120
037122
037123

1435 037124

1436 037130

1437 037134
1438 037136
1439 037142
1440 037144
1441 037146
1442 037150
1443 037152
1444 (037154
1445 037156
1446 037160
1447
1448 037162
1449 037166
1450 037170
1451 037172
1452 037174
1453 037176
1454 037200
1455 037202
1456 037206
1457 037210
1458 037214
1459 037222
1460 037224

1461 037226
1462 037232
037236

037242

1463 037246
1464 037252
1465 037254

1466 037256

037262
037264
037266
037270
037272
037274

1467 037276
1468 037300
1469 037302
1470 037304
1471 037306
1472 037310
1473 037314

036563

001540

104401

037104

001751

000404
013746

104402

002
000

104401

016500
011046
012702
000405
006216
103403
001404
005722
000773
012022
000771

013716
005004
006216

MACRO v04.00

64%:

037014

001231
002374

1%:

2$:

002334
1%:

002444

016437

050345
002476

104401

000000
104401

016446
004737
004737
104401
104411

012601
004037
037202
037176
037334
037276
037304
037332
105711

2%:

047262
002336
026136
026366
047307

105711
001002

000137
122721

3s:

4%:

649

MOV
TYPOS
.BYTE

OPN.CT,=(SP)

;sSAVE OPN.CT FOR TYPEOUT

P
0
,SCRLF

s3TYPE 2 DIGIT(S)
2 :SUPPRESS LEADING ZEROS
s CR=LF

LASCIZ

,65%

1831

JsTYPE ASCIZ STRING

PRMPT (RS) ,RO
(RO) ,=(SP)
S:RM.RZ

6%:
7%:

;2GET OVER THE ASCIZ

;G0 TYPE=-~QOCTAL ASCII

JPICKUP PARAMETES. POINTER
;SAVE THE VARIABLE INDICATOR
;FIRST ADDRESS OF TABLE

(SP)

;CHECK FOR A VARIABLE

(RO)+,(R2)+

JMOVE THIS VARIABLE INTGC THE

PRM, (SP)

;GET THE VARIABLE INDICATOR

3%
OPNPRM

;GO GET IT
;OUT OF VARIABLES

2%
OPNPRM
%22)4
1%

R4
(SP)

§§4)¢

;GO MOVE THIS ONE
s DONE
;BUMP THE POINTER
;COMMON AREA

:ZERO THE INDEX
JCHECK FOR A VARIABLE
JUPDATE THE INDEX

PRMLMT (R4)
OPNPAT

;1S THE MAX. MAGNITUDE NEG?
sYES==THEN IT IS THE PATTERN

PRMMSG(R4) ,48

;TYPE THE NAME OF THIS VARIABLE

0
.MSG.EQ

sTYPE "=

.SLASH

JTYPE * /7 °

(SP)+ ,R1
RO,CK.CHR

;READ AN ASCIZ STRING
sCHECK ONE CHARACTER

RPT(R4) ,~(SP)
PC,$S82D
PC,$SUPRS

5%:

037724
000056

BLNKS2

037224

040132

001340
000735

BITS(RS) ,OPNFLG(R3)
;OPEN THIS TEST?
OPN. 1
JNO==-MOVE TO NEXT TEST

TYPE

002334

c13
11:57:12 PAGE 33-29

BEQ

TYPE

103403

100466
104401

BIT

001336

1:65%:

001772
005724
000773
005764

4-APR=-81

(R1)

2%
;gl)

sTYPE 2 SPACES

;PUT RPT(R4) ON THE STACK
;CHANGE TO DECIMAL ASCIZ
;TYPE WITHOUT LEADING ZEROS

;ILLEGAL CHARACTER
:§¢§BIAGE RETURN

:DIGIT 0-9
JU'CR'TM?

;NO=-=STAY ON THIS VARIABRLE

JYES--MOVE TO N§XT VARIABLE
:&8 THERE A '‘CR'" AFTER THE PERIOD?

JYES==-GO CLOSE THIS TEST
;DOUBLE PERIOD?

SEQ 0158

CZRMVBO RMO5/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

1674 037320
1475 037322
1476 037324
1477 037326
1478
1479 037332
1480 037334

037334
037340
037344
037346
037350
037352
037354

1481 037356
1482 037362
1483

037400

1490
1491
1492
1493

037400
037412
037414
037416

C37364
037370
037374

037404

037422
037424
037426

037430
037432
037434

1494 037436
1495 037440
1496 037442
1497 037446
1498 037450
1499 037452
1500 037454
1501 037456
1502 037460

037460
037464
037466
037470
037472

SEQ

001330

BNE

;NO==GO ASK FOR THIS VARIABLE

000137

BNE
JMP

3%
OPN. X2

;NO=~ASK FOR THIS VARIABLE AGAIN
;YES==CLOSE ALL TEST

105711
001326

TSTB

037742

005301
016402

004037

037202
037202
037356
037720

037736
010264
000705

002444
040206

002336

(R1)

8%:

9%:

PRMLMT (R&) ,R2
RO,(K.DIG

10%:

108
OPN.N1
OPN.X1

MOV
BR

JYES==IS A ''(R'' AFTER THE DOUBLE PERIOD?

JBACK THE POINTER UP BY ONE

;UPPER LIMIT OF INPUT

JCHECK THE DIGIT(S)

s ILLEGAL INPUT

s INPUT TO LARGE

R2.RPT(R&)
2%

;TERMINATED WITH A *","" OR "'(R"’
;TERMINATED WITH A *".""
;TERMINATED WITH A ", .""
;SAVE THIS VARIABLE
JMOVE TO NEXT VARIABLE

;OPEN PATTERN FOR CHANGES

1484

1485
1486
1487
1488
1489

MACRO v04.00 4-APR-81 11:57:12 PAGE 3%-30

104401
104401
104401

016446
104402
104401
104411

012601
004037
037364
037162
037460
037162
037436
037456

050345
047256
047262
002336
050346

001346
105711

TYPE

TYPE
TYPE
MOV
TYPOC
TYPE
RDLIN

MOV
JSR
OPNPAT

040132

105711

001531
122721

OPNPAT:

.BLNKS
(SP)+,R1

RO, (K. CHR

OPN.N2
#. (R1)+
OPNPAT
(R1)
OPN. X2

000056

040372

RPT(R4),=(SP)

(R1)

1%:

001533
000743
005301

JBLNKS2
JMSG.PAT
.MSG.EQ

OPNPAT

2%:
3%:

RO, CK.NUM

002336

R2,RPT (R4)

BCC
SAVREG

OPNPRM

:TYPE 2 SPACES
:TYPE "PAT"
TYPE ="

::SAVE RPT(R4) FOR TYPEQUT

::G0_TYPE==OCTAL ASCII(ALL DIGITS)

:TYPE ONE SPACE

:READ ASCIZ STRING

:PICKUP POINTER

:CHECK ONE CHARACTER

: ILLEGAL CHARACTER
:CARRIAGE RETURN

:DIGIT 0-9

:"CRTM AFTER THE PERIOD?

:YES=~GO CLOSE THIS TEST
:NO=-~LOOP
:CR'* AFTER A DOUBLE PERIOD?
:YES--GO START TESTING

:NO~-PER10D?

:NO=-~L00P

:BACKUP THE ASCII POINTER

:CHECK THE NUMBER

:ILLEGAL INPUT
:TERMINATED WITH A '%.'* OR “CR""

:TERMINATED WITH A *:**
: TERMINATED WITH A **.."
:SAVE THE INPUT NUMBER

:OPEN PATTERN 02

:NO-=START AT BEGINNING OF PARAMETER TABLE

SAVE RO = RS

;OPEN WORDS IN PATTERN #0 FOR CHANGES

003576

OPNWDS:

CLR
MoV

#PATO R4

;START WITH WORD 0O

015

CZRMVB0 RMO5/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

1512 037514

037514
037520
037530

104401

000403

1513 037530

010046

1514 037542
1515 037546

104401
011446
104402
104411

037532
037536

037550

1516 037552

1517 037554

1518 037556

037562
037564
037566
037570
037572
37574

1519 037576

1520 037600

037600
037604
037606
037610
037612

1521 037614
1522 037616
1523 037620
1524 037622
1525 037626
1526 037630
1527 037632
1528 037634
1529 037636
1530 037642
1531 037644
1532 037646
1533 037650
1534 037652
1535 037654
1536 037660
1537 037662
1538 037664
1539 037666
1540 037672

1541 037674

1542

004737
004737

012601
004037
037514
037616
037600
037616
037632
037576
005301

004037
037514
037614
037652
037664
010214
005724
005200

022700
003332
000726

037522

004737
104413

000420
010224
004737
104413

12658

026136
026366
047262

1546 037702
1547 037704
1548 037710
1549 037712
1550 037714

TYPE

MOV
JSR
JSR

RO,~(SP)
PC,$582D
PC,$SUPRS

:PUT RO ON THE STACK

MOV

(R4) ,=(SP)

:iSAVE (R4) FOR TYPEOUT
;760 TYPE==OCTAL ASCII(ALL

JASCITZ

RDL IN

MOV
JSR

040372

1%
5%
3%
5%
6%

2%:
2%:

000020

6%:
000056

037676

9%:

10%:

MSG.EQ

(SP)+ ,R1
RO,CK.CHR

INC
CMP
BGT

BR
TSTB
BEQ

:READ ASCIZ STRING
:PICKUP THE POINTER
:CHECK ONE CHARACTER
:ILLEGAL CHARACTER

DIGITS)

‘DIGIT C=-9

RO, CK.NUM

MOV
TST

:CHANGE TO DECIMAL ASCIZ
TYPE WITHOUT LEADING ZEROS

: CARRIAGE RETURN

JSR

‘BACKUP THE ASCII POINTER

R2,(RG)
(R&)+

RO
#16.,R0
1%
OPNWDS
(R1)
8%

;CHECK THE NUMBER
s ILLEGAL INPUT

:TERMINATED WITH A *"."" OR “'(R""
sTERMINATED WITH A """
:TERMINATED WITH A *"..""

:SAVE THE INPUT
JMOVE TO NEXT WORD
; INCREMENT THE COUNT

;COUNT TO LARGE?
sNO=--BRANCH
: YES~-BRANCH

(MPB

#',,(R1)+

:'CR'* AFTER THE PERIOD?
:YES~=GO CLOSE THIS TEST
;NO--PER;OD?

TSTB

(R1)

J"'CR'" AFTER THE 'PERIOD-PERIOD'TM

BEQ
BR
MOV
JSR

108
1%
R2.,(R&)+
PC,CLSWDS

OPN.N2

JSR
RESREG

PC,CLSWDS

RESREG

MOV

000422

wD/

.BNE

7%:
8%:

P
DEC

1%
4%
7%
4%
5%:

;s TYPE ASCIZ STRING
;iGET OVER THE ASCIZ

TYPE

040132

,65%

SEQ 0160

649

TYPOC

1543

1545 037676

1%:

(A
¥

105711

001407
122721
001324
105711
001407
000721
010224

MACRO Vv04.00 4-APR=-B1 11:57:12 PAGEE13%-31

R2.(R&)+

OPN. X2

;NO=--BRANCH ILLEGAL INPUT STRING

:YES=-GO START TESTING
:NO=--L00P
: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

;CLOSE PATTERN #0 AND SAVE (HANGED WORDS
012701
005200
022700
002402
012124
000772

003576
000017

(1LSWDS: MOV
1%:
INC

CMP

BLT

MOV

#PATO,R1
RO

#15. ,R0
%

(R1)+,(R4)+

;FIRST ADDRESS OF DATA PATTERN
sCOUNT THE LAST WORD THAT WAS STORED
JEND OF TABLE
JYES=<EXIT
: COPY
.LOOP

CZRMYBO
RMOS/3/2 EXT'D DR TST
COMMUNICATIONS ROUTINE

APT

11223 037716 000207
1553 037720

1554 037724
1555 037726

010264

005726
004737

MACRO v04.00 4-APR-81 11:57:12 PAGE 3%-32
F1

28:
002336
0372776

OPN.N1: MOV
OPN.N2:

; ggg 037732 000137 037020
1558 037736
1559 037742
1560 037744

1561 037750

010264
005726

004737

005725

002336
037776

1562 037752 020527 000034
1563 037756
1564 037760

000137 036032

1567 037772

001364

}ggg 037774

036503

001540

TST
JSR

JMP

:RE TURN

R2,RPT(R4)

JSAVE THIS VARIABLE

OPN. 1

*GO OPEN THE NEXT TEST

(SP) +
PC,CLOSE

JCLEAN OFF THE STAC(CK
“CLOSE THIS TEST

OPN.X1: MOV
OPN.X2: TST

R2,RPT(R&)
(SP) +

;SAVE THIS VARIABLE
“CLEAN OFF THE STACK

2%:

(R§) +

SUPDATE THE INDEX

1%:

JSR

CMP

BLT
RESREG
38

000765

}2;&1‘:

JMP

PC,CLOSE

RS,#16%2
33

GT.PR2

BIT

BITS(RS),R3

BNE

“CLOSE

THMIS TEST

*INDEX TO BIG?

*NO=-~BRANCH
*RESTORE RO = RS

:GO TO EXIT

“1S THIS TEST OPEN FOR CHANGE?

SYES=~GO CLOSE IT

‘NO==MOVE TO NEXT TEST

:CLOSE CURRENT TEST THAT WAS OPEN FOR CHANGES

1572 037776

104412

1573 040000
1574 040004
1575 040010
1576 040012

012700 002334
016501 002374
012002
012103

1578 040020
1579 040022
1580 040024

030402
001403
030403

1577 040014

012704

000007

1581 040026 001404
1582 040030 011017
1583 040032
1584
1585
1586
1587

002403
104413

1565 037762

1566 037766

RTS

SEQ 0161

040034
040036
040040
040042

1588 040044

1589 040050
1590 040052

030403
001401
005721
005720
006304

032704

001763

CLOSE:

1%:

2%:
3%

002000

SAVREG

MOV
MOV
MOV
MOV

#PRM, RO
PRMPT (RS) ,R1
(RO) +,R2
(R1)+.R3

BIT
BEQ
8IT

R4 .R2
2
R4 ,R3

MOV

BEQ
MOV
BIT
BEQ
ST
ST
ASL

BIT

BEQ

104413

RESREG

}ggg 040054 000207

RTS

#1,R4

{3
(RO), (R1)
R4 RS
3s
(R1)+
(RO) +
R4

#BIT10,R4
1%

:SAVE RO - RS

*"FROM'* ADDRESS
**'T0"" ADDRESS
“"FROM'‘ INDICATOR
2'TO"" INDICATOR

STEST BIT START A 'RPT"’
*PARAMETER TO BE MOVED?
*NO=--BRANCH
:A PLACE TO PUT IT?

*NO=-BRANCH
SYES--MOVE ‘FROM' TG ''TQ"
2'TO"* PARAMETER?
*NO=--BRANCH
SYES=-UPDATE THE POINTER
“UPDATE FROM POINTER
*POSITION THE TEST BIT

*DONE?

*NO=--BRANCH

*RESTORE RO - RS

*RETURN

1593
}23’;

;THIS ROUTINE IS USED TO CHECK IF AN
‘?fif{’ CHARACTER IS A DIGIT BETWEEN O AND 7.

1596

MOV

1598
1599

:
:

RE TURN1
RE TURN2

(K.OCT:

CMPB
BLO

(R1) ,#'0
1%

BHI

BIC

#°C7.R2

1597

128(1)

1602 040056
1603 040062

121127
103407

1605 040070

101004

1604 040064

1606 040072
1607 040076

121127

111102

042702

000060

000067
177770

JSR

CMPB

MOVR

#ADR,R1

RO,(K.OCT

;ADDRESS OF ASCII CHARACTER
SCHECK THE CHARACTER

*CHARACTER IS NOT BETWEEN 0=7
SCHARACTER IS IN R2 AS A
:OCTAL DIGIT

(R1),4'7

(R1),R2

:LESS THAN ZERO?
*YES == BRANCH

‘GREATER THAN SEVEN?
TYES == BRANCH

SGET THE CHARACTER
‘STRIP AWAY THE

ASCII

JRMVB0 RMOS5/3/2 EXTD DR

COMMUNICATIONS RGUTINE

‘608 040100

1609 0640102
1610

TST

005720
000200

MACRO v04.00

G 13
11:57:12 PAGE 33-33

4-APR=-81

TST

(RO) +

RTS

sTHIS ROUTINE

16.1

IS USED

1613
1614

MOV

1616
1617

4
2

RE TURN1
RE TURNZ

s CALL

1615

1618

1619

1620 040104
16¢1 040110
1622 040112
1623 040716

1626 040120

1625 040122
1626 040126

(K.DEC: CMPB

000071

CMPB
BHI
MOVB
BIC

BLO

000060
1%:

RO,CK.DEC

CHARA(CTER

1631

s CALL

:
<
.
2
:

1633
1624
1635

1636
1637
1638
1639

F
~
;

1640

1641

1642 040132

1643
1644
1645
1646
1647

040134
040136
040142
040144
040150

1649
1650
1651
1652
1653
1654

040156
040160
040164
040166
040170
040172

1648 040152

1655 040174
1656 040176

1657 040200
1658 040202
1659 060204

(K.CHR:

105711

001420

121127
001414
121127

000057

(R1) ,#'9
1%
(R1) ,R2
#'0,R2

;GREATER THAN NINE?
JYES == BRANCH
;GET THE CHARACTER

WILL

121127
001404

000056

001410

004037
0004C6
005720
005720
005720
005720
005720
005201
011000
600200

040104
1%:

2%:

3%:

4%:

5%:

JYES == BRANCH

;STRIP AWAY THE ASCI]
;ADJUST FOR RETURN
JRETURN

CHECK AN ASCII

CHARACTER TO

#ADR ,R1
RO,CK.CHR
ADR1
ADR2
ADR3

;ADDRESS OF ASCII CHARACTER
;CHECK CHARACTER
;UNKNOWN CHARACTER
;CARRIAGE RETURN * (R1)=ADR+1
;SLASH * (R1)=ADR+1

ADRS
ADR6

;PERIOD * (R1)=ADR+1
;DIGIT BETWEEN O AND 9.
;R2 = DIGIT » (R1)=ADR+1

TSTB
BEQ

(R1)
43

;''CARRIAGE RETURN'®?
:YES == BRANCH

BEQ
CMPB
BEQ

2%
(R1) 4",
1%

18T

RO,CK.DEC
5%
(RO)+
(RO)+

:YES == BRANCH
J'PERIOD'?
;YES == BRANCH
IDIGIT'?
:NO == BRANCH
;DIGIT BETWEEN 0-9

(RO)+

. COMMA

RETURN

RETURN
RETURN

CMPB
BEQ
CMPB

000054

;NOT BETWEEN O AND 9
JBETWEEN O AND 9

;LESS THAN ZERG?

(RO +
RO

MOV
JSR
RETURN
RETURN
RETURN

JCHECK THE CHARACTER

(R1),#'0

;DETERMINE WHAT IT IS.

1632

;JADDRESS OF ASCI] (HARACTER

:R2 = DIGIT

iST
RTS

;THIS ROUTINE

1629
1630

1664

TO CHECK AN ASCII]

#ADR,R1

JSR

000060

1627 C40130
1628

1662
1663

JRETURN

JAND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9.

1612

1660
1661

JADJUST FOR RETURN

JSR
BR
TST
TST

IST
TST

INC

MOV
RTS

ADR4

(R1) ,4'/
3%
(R1) &',

(RO) +

(RO) ,RO
RO

;COMMA «

(R1)=AbDR+1

' 'SLASH'"?
;YES == BRANCH
J'COMMATM
2

sPERIOD

:SLASH

;CARRIAGE RETURN

JMOVE POINTER TO NEXT CHARACTER
JUNKNOWN CHARACTER
JRETURN

;THIS ROUTINE (HECKS AN ASC I1 STRING FOR LEGAL
;CHARACTERS AND FORMS A DEC IMAL VALUE BINARY NUMBER IN RZ.
JCALL

MoV

#ADR ,R1

JADDRESS OF

ASCI2 STRING

“JRMUBO RMOS/372 EXT'D DR TST
COMMUNICATIONS ROUTINE

MACRO v04.00

MOv

1665

JSR
RE TURN

1666

1667

RE TURN
RETURN
RE TURN
RE TURN

1668
1668
1670

1671
1672
1673 040206

(K.DIG: MOV
MOV
MOV
(LR
CLR
CLR
JSR
%

1674 040210

1675 040212

1676 040214
1677 060216
1678 040220

1679 040222

1680
1681
1682
1683
1684
1685
1686

040226
040230
040232
040234
040236
040240

040242
040044
040246
040250
040252
040254
040256

040262
040264
040266
040270
040272
040274

040132

1650 040304

1691 040306

040312
040314
C40316
040320
040322
040324

040344
040346
040350
040352
040354
040356

1703 040360

ANUM ,R?
RO,(K.DIG
ADR1
ADR?2
ADR3

13
33-54
JMAX,

SEQ 0167
MAGNITUDE

JCHECK DIGITS,

INPUT

JILLEGAL (HARA(LTER == R2=7?
: INPUT NUMBER TO LARGE == RZ2-7

ADRé&

;'COMMA'" == R2 = NUMBER
;'PERIOD'' == R2 = NUMBER

R4 ,=(SP)

;SAVE R4

R2,=(SP)
R2

JSAVE

ADRS

R3,-(SP)
R3
R4

NUMBE
K

;"PERIOD=PERIOD’" == R2 = NUMBER
;SAVE R3

THE MAX,

;START WITH 0

SIZE ON THE

STA(K

JCHECK ONE CHARACTER
;ILLEGAL (HARACTER
: CARRIAGE RETURN

;(*B)+(22)=210,

;UPDATE THE INPUT NUMBER

sCHECK ONE CHARACTER

040132

:ILLEGAL CHARACTER
: CARRIAGE RETURN
.
2490
&8

2%:

R1
4%

3%:

4%:

040132

1692 040326

1693 040330
169 040332
1695 040334
1696 040336

11:57:12 PAGE

1%:

1687 040276
1688 040300
1689 040302

1697
1698
1699
1700
1701
1702

4=APR=-81

5%:

177776

000054

1ST8B

7%:

8%:
9%:

:*PERIOD"*

RO,CK,CHR

:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
CARRIAGE RETURN

+
(R4)
(R1)

;'PERIOD-PERIOD

=2(R1) 4,
BHI
TST
MOv
TST

:BACKUP THE CHARACTER POINTER
:CONTINE

(RG)+
(RG)+

6%:

:DIGIT 0-9

:locmlo

:DIGIT 0-9

llchl

s YES=-BRAN(CH

sWAS CHARACTER BEFORE THE DIGIT A COMMA?
sNO=<EXIT
s INPUT TO LARGE?
:YES == BRANCH
sADJUST RETURN ADDRESS

JNUMBER TG R2
JCLEAN Max, SIZE OFF OF STA(K

“2RMYB0O RMOS/3/2 EXT'D DR TST

APT

COMMUNICATIONS ROUTINE

1704 040362

1705 040364
1706 040366
1707 040370
1210

012603

MOv
MOV
MOV
RTS

012604
011000
000200

OOV
~NO NS W

sCALL:

Ssv,

0,0, .,

RSt

b
i oudh i
D i e
b

040372
040374
21 040376

1722 040402
1723 040404

1724 040406

1725 040410
1726 040412
1727 040414

1728 040416
1729 040420

1730 040422

1737
1738
1739
1740
1741
1742

040424
040430
040432
040434
040436
040440
040444
040446

040450
040452
040454
040456

040460
040462
040466
040470
040472
060474

1743 040476

1744 040500
1745 040502

1746 040504
1747 040506

1748 040510

(SP)+,R3
(SP)+ R4

(RO) ,RO
RO

JRESTORE R3

JRESTORE Ré
JGET RETURN ADDRESS
sRETURN

sTHIS ROUTINE (HECKS AN A S CIZ STRING FOR LEGAL (HARACTERS
JAND FORMS AN OCTAL NUMBE R IN R2

1712

1731
1732
1733
1734
1735
1736

MACRO Vv04.00 4-APR=-81 11:57:12 PAGE[ 3§°3S

010346
005003
004037
000440
005201
006303
103435
006303
103433
006303
103431
060203
004037
000401
000764
010302
005003
004037
040504
040474
040504
040474
040460
040504
005723

121127

001002
005201
005723

005723
105711

0010017
060300
012603
011000
000200

040056

MOV

JSR
RE TURN
RE TURN
RE TURN
RETURN

CK.NUM: MOV
(LR
JSR
BR
1%:
INC
ASL

BCS
ASL

B(S
ASL

B(S

ADD

040056
2%:

040132

000056

4%:
5%:

JSR
BR
BR
MOV
CLR

#ADR ,R1
RO,
Ck .NUM
ADR1
ADRZ2
ADR3
ADR4

JADDRESS OF ASCIZ STRING
;GO FORM THE NUMBER

R3,-(SP)
R3

;SAVE R3

RO,CK.OCT

6%
R1
R3

6%
R3
6%
R3
6%
R2,R3

RO,(CK.OCT

2$
1%

R3,R2
R3

sJLLEGAL CHARACTER IN THE INPUT STRING
:'COMMA’’ OR '‘(R''==R2=NUMBER
;'PERIOD' '==R2=NUMBER
;" PERIOD=PERIOD =~R2=NUMBE R
;START NUMBER AT ZERO

;OCTAL DIGIT?
;sNO=-=BRANCH

:MOVE TO NEXT CHARACTER
iFOR THE OCTAL NUMBER IN R3
;DON'T LET IT GET 10 BIG

;1S THIS AN OCTAL DIGIT?
sNO==FIND OUT WHAT IT IS
;YES=-MAKE IT PART OF THE NUMBER
;SAVE THE OCTAL NUMBER
;START WITH ZERO INDEX
;CHECK ONE CHARACTER
s ILLEGAL CHARACTER
: CARRIAGE RETURN
PRV

L
IR

(R3)+

:DIGIT 0-9
;" PERIOD""

sNO=--BRANCH
;YES--ADVANCE THE POINTER

. %',
(R1)
5%

(R3)+
(R3)+
(R1)
6%
R3,R0
(SP)+,R3
(RO) ,RO
RO

;" PERIOD=-PERIOD'"?

:'PERIOP-PERIOD“
g;' 'COMMA"'
@
JUCR'
sNO=--BRAN(CH

JYES==SAVE THE OCTAL NUMBER
:RESTORE R3

JPICKUP EXIT ADDRESS

JRETURN

CZRMyBO RMQS/3/2 EXT'D DR TST

SINGLE/DUAL PORT RM/RM DRIVER

MACRO v04.00

(REV 6.5)

;

4-APR-81

1981

.SBTTL

J 13

11:57:12 PAGE

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5)

1981

sNEW DRIVE TYPE ID FOR RMO2 #waxwnwanwn

J10=AUG=77

S
.

:10-MAR-78 THE SC, SC5 CHANGES
*NEW DRIVE TYPE ID FOR RMOS #xssssevss

21980

wxwaxxxnnwn

swwnmnwnnwn

11
12
13

:MAYNARD, MA 01754
;JAUTHOR(S): JIM LACEY/CHUCK HESS
REVISED BY: MIKE LEAVITT 11-APR=-80, 27-MAR-81

;DIGITAL EQUIPMENT CORP.

AR AR AR A AR AR A AR AR AR RN AN RANRAN AR

JRMERRS

= RMDS

;RMERRS+6 = RMMR?

000000

25
26

000000

RMERRS:

.WORD

0,0,0,0

sTABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)
;DRVACT=0 IF DRIVE IS IDLE

sDRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND

;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECCVERY OPERATION

30 040522
33 040523
040524

040525
040526
040527
040530
% 040531

000
000
000

DRVACT:

000
000
000
000
000

35
76
37

.BYTE
YIE
.BYTE

BYTE
BYTE
BYTE
YL
BYTE

0
O
O

O
0
O
8
0

;DRIVE
;DRIVE
sDRIVE
;DRIVE
:DRIVE
;DRIVE
:DRIVE
;DRIVE

0
1
2

3
4
5
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
;DRVSTA=0Q IF DRIVE IS OFFLINE OR NONEXSITENT
;DRVSTA>0 IF DRIVE IS ONLINE

;DRVSTA<O IF DRIVE IS UNSAFE

40 040532
43 040533

000
000

040535

000

040534

040536

040537
040540
“ 040541

48
45

RSO TR

JRMERRS+4 = RMER2

Sz 040512

;RMERRS+2 = RMER]

NAAARAAARAANR AN

:STORAGE FOR RMDS, RMER1. RMERZ2, AND RMMRZ ON AN ERROR '72°'

000

000
000
000

DRVSTA:

.BYTE
BYTE

0
O

;DRIVE 0
;DRIVE 1

BYTE

;DRIVE 3

BYTE
I

BYTE
BYIE
MY

O
0
O

;DRIVE 2
;DRIVE 4

:DRIVE 5
;DRIVE 6
;DRIVE 7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)

;DRVTYP=0 IF DRIVE IS NONEXISTENT

:DRVTYP=7 IF DRIVE IS RMOS #*www«

JDRVIYP=5 IF DRIVE
;DRVTYP=4 [F DRIVE

IS RMO2 w#wwxser
IS RMO3

(DRVSTA=0, ALSO)

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

MACRO v04.00
SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981

4=-APR-81

:DRVTYP==1

50
52 040542

5 040543
040544
040545

040546
040547
040550
C40551

000
000
000
000
000
000
000
000

040561

65
66
67
68
69
70 040562

73 040563

040564
040565
040566
040567
040570
040571

79 040572
80
81
82
83
84
85
86
87 040574
88
89
90

93 040576
G4

BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
0
0
O
0
0
O

[F NOT RM0S5/3/2
sDRIVE
sDRIVE
sDRIVE
:DRIVE
sDRIVE
;DRIVE
JDRIVE
;DRIVE

0O
1
2
3
4
§
6
7

;DPINT<O IF INITIALIZATION IS IN PROGRESS

61 040552
64 040553
040554
040555
040556
040557
040560

9N
92

DRVTYP:

SEQ 0166

;TABLE OF DUAL PORT INITIALIZATION INDICATORS
sDPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE

58
59

.
75
76
77
78

K1 3
11:57:12 PAGE 3 4=1

000
000
000

DPINT:

000
000
000

BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE

0
0
0
0
0
0
0
0

;DRIVE
sDRIVE
;sDRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE

0
1
2
3
4
5
6
7

:TABLE OF PENDING DUAL PORT REQUESTS

;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE
:DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

000

DPRQS:

000
000
000
000

BYIE
BYIE
arie
e
BYTE
BYTE
e

BYTE

0O
O
O
9
0
O
0

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

0
1
2
3
4
5
6

:DRIVE 7

;TRANSFER WAIT FLAG (TRNSWT=1 WORD)

;THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF
OF THE 1/0 OPERATION.
:"DPB'"

000000

TRNSUT

.WORD

;SEARCH WAIT KEYS (SRCHWT=1 WORD)
;THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
*REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

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

000000

SRCHWT:

.WORD

v=1 BYTE)
;RM DRIVER ACTIVE FLAG (ACTDRV=

;ACTDRV=0 IF DRIVER IS INACTIVE

sACTDRV>0 IF DRIVER IS ACTIVE
000

ACTDRV:

BYTE

CZRMVBO RMO5/3/2 EXT'D DR TST

MACRO V04.00
SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981

000

000
000
000
000
000
000
000
000

b
e
e
e

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

sDRIVE

SAVEFG:

.WORD

040612

040632

177777

SEEKFG:

.WORD

-1

;TIMEOUT TABLE (TIMER=8 WORDS)
;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
177777
177777
177777
177777
177777
177777
177777
177777

TIMER:

:DRIVE
sDRIVE
;DRIVE
:DRIVE
:DRIVE
:DRIVE
sDRIVE
:DRIVE

.WORD

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

NOWVSWN—=O

d e
d

ULDFLG:

;SEEK FLAG (SEEKFG=1 WORD)
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW
:FOR A DATA TRANSFER START A SEARCH COMMAND
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD THE WINDOW

‘IR;—I..A—J—D
b —d

;ULDFLG=0Q IF NO UNLOAD COMMAND
JULDFLG>0 IF UNLOAD COMMAND IN PROGRESS
JULDFLG<O iF UNLOAD COMMAND IN WAIT QUEUE

;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)
;DTUW<O IF NO DATA TRANSFER UNDERWAY

b e

WNWWWW

e o
eh ok
d

;UNLOAD FLAG (ULDFLG=8 BYTES)

040610 000000

040620
040622
040624
040626

.BYTE

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)
;SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE
;OPERATION IS COMPLETED AS PER (DPB+14).
;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER
:(DPB+14), AFTER AN ERROR.

127
128
129
130 040614
133 040616

ACTSTR:

NOWVMBWN—=O

040602
040603
040604
040605
040606
040607

SEQ 0167

;SOF TWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE
JACTSTR=Q IF SOF TWARE TIMER RCUTINE I S INA T] VE
JACTSTR>0 IF SOF TWARE TIMER ROUTINE I S ACTIVE

ed ed ek o e e e eed
[AS1aNLST,NT,ST,§] M) =
AWV
N — OVONRIANSBWN—=O

102
103
104
105
106 040600
109 040601

L 13

11:57:12 PAGE 34-2

elololelslelsls

95
%6
97
98
99 040577
100
101

4-APR-81

;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY UN DRIVE N

040634

177777

DTUW:

.WORD

-1

JATTENTION BITS TABLE

(ATABIT=8 BYTES)

;THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES
JATTENTION BIT

CZRMVBO RMQS5/3/2 EXT'D DR TST

MACRO v04.00

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5)
144

145 040636
146 040637

001
002

147 040640

148
149
150
151

ATABIT:

004

040641
040642
040643
040644

010
020
040
100

}g% 040645

1981

154
}ég

.BYTE
.BYTE

1
2

;sDRIVE 0
sDRIVE 1

10
20
40
100

:DRIVE
;DRIVE
:DRIVE
:DRIVE

BYTE

.BYTE

200

.BYTE
BYTE
.BYTE
BYTE

|
)

200

M13

4=-APR=81 11:57:12 PAGE 34-3

sDRIVE 2

3
4
§
6

;DRIVE 7

;NUMBER OF 'MASSBUS CONTROL PARITY ERRORS'' (MCPE)
JCALLING IT FATAL (MCPEMX=1 WORD)

;gg 040646

000003

MCPEMX:

159

.WORD

SEQ 0168

ALLOWED BEFORE

:STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM),

}2?

:RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)).

162 040650

176700

}2; $40652

000254

168
}93 040656

000005

;;}

000240

RMADR:

RMVEC:

.WORD

176700

254,532,

;MAXIMUM SEARCH FOR I/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD)
MXWNDW: .WORD
5

;DEFINITIONS OF THE RH/RM ADDRESS INDEXES

173
174

000000
000002

RMCS1
RMWC

=0
=2

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. O)
;WORD COUNT REGISTER (NOT A DRIVE REG)

176

000006

RMDA

;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5)

175

000004

177
178
179
180
181
182
183

RMBA

000010
000012
000014
000016
000020
000022
000024

RMCS?
RMDS
RMER1
RMAS
RMLA
RMDB
RMMR1

=10
=1
= 14
=18
= 20
= 22
= 24

185
186
187
188

000030
000032
000034
000036

RMSN
RMOF
RMDC
RMHR

=
=
=
=

191

000044

184

000026

189
190

}3;

000040
000042

000046

RMDT

RMMR?2
RMERZ2
RMEC1

RMEC2

= 26

%0
32
56
36

;UNIBUS ADDRESS REGISTER (NCT A DRIVE REG)

= 40
= 42

;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 1)
;ERROR REGISTER #1 (DRIVE REG. 2)
JATTENTION SUMMARY PSEUDC REGISTER (DRIVE REG. 4)
:LOOK AHEAD REGISTER (DRIVE REG. 7)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)
JMAINTAINABILITY REGISTER (DRIVE REG. 3)
;DRIVE TYPE REGISTER (DRIVE REG. 6)

;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)

= 44

;ECC POSITION REGISTER (DRIVE REG.

= 46

;ECC PATTERN REGISTER (DRIVE REG.

;33

.SBTTL

200
201
202
382

;THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE
;AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
:TO THE PROPER STATE FOR EACH DRIVE.
;NOTE: THIS ROUTINE CALLS DRVINT-

205
206
207

s CALL
;

16)

17)

RH/RM Uiki._R INITIALIZATION CODE

JSR

PC,RMINIT

|
|

{

CZRMVBO RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

MACRO V04.00

'
|

4=-APR-81

|
|

N 13
11:57:12 PAGE 34-4

RETURN

INOTE: THE 'P' OR 'L’ CLOCK MUST BE STARTED
104412

221 040716
222 040722
223 040726
224 040730
225 040732
226 040736
227 040742
228 040746
229 040752
230 040756
231 040762
232 040766
233 040772
234 041000
235 041002
236 041006
237 041010
238 041012
239 041016
240 041020
241 041024
242 041026
243 041032
244 041036
245 041042
246 041044
247 041050
248 041054
249 041056
250 041060
251 041062
252 041066
253 041070
254
255
256
257
258
259
260
261
262
263
264

013746
012737
004737
012701
012702
005021
020102
103775
012702
012721
020102
101774

177776
000240

046336

042701
001366
012701
005037

177770

040540
040652
043306
040654
040650
000040

040532

4%:
5%:

105761

045772
040552

100366

012637
104413
000207

000010
3%:

105761

001375
005301

2%:

041072

000007
177776
040552

SAVREG
MOV
MOV

JSR
MOV

1%:

040634
177777

040532
040534
040536

001405
004737

177776

040512
040612

005037
005037
005037
005037
013703
012723
013713
013704
012764
005001
004037
000401
000402
105061
005201

RMINIT:

MOV

CLR
CMP
BLO
MOV

MOV
CMP
BLOS
CLR
CLR
CLR
CLR
MOV
MOV
MOV
MOV
MOV
CLR

JSR

BR
BR
CLRB
INC
BIC

BNE
6%:
s

8%:
177776

MOV
CLR

1STB
BEQ
JSR
TSTB
BNE
DEC

BPL
MOV
RESREG
RTS

PS ,~(SP)

#<5+32.5
pS |

PC, CLRQUE
#RMERRS ,R1
HSEEKFG,R2
(R1)+

R1,R2
1$

#DTUW,R2
#=1,(R1)+

R1.R2

DRVSTA

DRVSTA+2
DRVSTA+4

DRVSTA+6

RMVEC,R3
#ISR, (R3)+
RMVEC+2, (R3)
RMADR R4
gCLR.RMCSZ(R4)
1
:
RO,DRVINT
4%

5%
DRVSTA(R1)
R1
#4C7 R
3%
#7,.R1

DPINT(R1)
8%

PC,SET.IE

DPINT(R1)
.
7%

6%
(SP) +,PS
PC

;SAVE RO = R5

sSAVE THE PRESENT PROCESSOR STATUS
sCHANGE THE PRIORITY TO 5

;CLEAR ALL REQUEST QUEUES
sFIRST ADDRESS TO BE CI.EARED
sLAST ADDRESS TO BE CLEARED
;ARE WE DONE?
;BR _IF NO
;LAST ADDRESS
;INITIALIZE

sLOOP IF NO
;SET ALL DRIVES TO OFFLINE

;SETUP THE RH/RM VECTOR
sFIRST ADDRESS OF RH/RM
sMASSBUS INIT
;START WITH DRIVE 0

sINIT THE DRIVE
;'DVA' NOT SET OR PARITY ERROR
sNORMAL RETURN
;SET DRIVE STATUS TO OFFLINE
;GO TO NEXT DRIVE
;MASK OUT UNUSED BITS
;BR IF MORE DRIVES_TO GC

;START WITH DRIVE 7

;CLEAR THE PROCESSOR STATUS
sWAITING FOR DRIVE TO SWITCH PORTS ?

:BR _NOT WAITING
;SET INTERRUPT
;DRIVE SWITCHED PORTS ?
:BR IF NOT
;GO _TO THE NEXT DRIVE
;CHECK NEXT DRIVE
;RESTORE THE PROCESSOR STATUS
;RESTORE RO - R5
;BYE-BYE

;DRIVE INITILIZATION ROUTINE

:THIS ROUTINE DETERMINES IF_A DRIVE EXIST
ANC IF IT IS
| S ISSUED AND FMT16
PRESET"'
'READ=IN
A
1S,
IT
IF
RM05/3/2.
;AN
AR E CHECKED TO
VV
AND
DRY,
DPR,
MOL,
THEN
""1''.
A
TO
SET
SIS
ON T HEIR STATE,
DEPENDING
AND
1"'.
A
ON
ALL
ARE
THEY
: INSURE

:DRVSTA IS SET TO THE PROPER CONDITION.
s CALL

b
;

MOV
MoV
JSR

R1
#DRVNUM,
, R4
RMADR
RO,DRVINT

;DRIVE NUMBER TO R1
;UNIBUS ADDRESS OF RH/RM (RMCS1)
s CALLED BY A JSR

CZRMVBO RMOS/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

MACRO v04.00

265
266

;
:

26S 041072

010546

271 061100
272 061106

105061
105061

270 041074

105061

(LRB

040542
040600

CLRB
CLRB

273 061110 010164 000010
112764 000111
000000
275 041122 032764 010000 000010

274 061116

001403
004737

045772

280 041140

105061

040532

284 041160
285 0641162

000026
041402 -

S;g 041136 000520

18:

286 041164
287 041166
288 0641174
289 041200
290 041202
291 061206
292 041210
293 041216
29 041222
295 061224
296 041230
297 0641232
298 041240
299 041244
300 0471246

012605
112761
022705
001431
022705
001426
112761
022705
001420
022705
001415
112761
022705
001407
022705

302 041254

112761

301 041252 001404

000004

040542

000005

040542

020024
024024

020025
000007

040542

177777

040542

020027
024027

% 041262 000446
305 041264 012746 000121
306 041270 004037 045462
307 041274
308 041276

000000
041402

310 041304

004037

DRVSTA(RY)

DRVTYP(R1)
ULDFLG(R1)

:SAVE RS

JSTAKT DRIVE STATUS AS OFFL INE

*CLEAR THE DRIVE TYPE INDICATOR
*CLEAR THE UNLOAD FLAG

CLRB

#171,RMCST(R4)
1%
PC,SET.IE

:NO
GO SET *'IE'* WITHOUT A “‘TRE"’

DRVSTA(R1)

:SET DRIVE STATUS TO OFFLINE

SLEAVE THIS ROUTINE

BIT
BEQ
JSR

#BIT11,RMCST(R4)
;SEE IF DRIVE AVAILABLE
48
:BR IF DRIVE NOT AVAILABLE
RO,RD.RM
*READ THE DRIVE TYPE REG.

MOV
MOVB
TMP
BEQ
CMP
BEQ
MOVB
CMP
BEQ
TMP
BEQ
MOVB
cMP
BEQ
MP

(SP)+,RS
#4,DRVTYP(R1)
#20024 ,RS
28
#24024 RS
2
#5,DRVIYP(R1)
#20025 RS
2
#24025,RS
2
#7.DRVIYP(R1)
#20027,RS
28
#24027 RS

;ERROR RETURN ADDRESS

*PUT DRIVE TYPE IN RS
-SET RMO3 INDICATOR
*SINGLE PORT RMO3 2
BR IF YES
‘DUAL PORT RMO3 ?
*BR IF YES
:SET RMO2 INDICATOR
*SINGLE PORT RMO2 2
*BR IF SO
*DUAL PORT RMO2 ?
‘BR IF SO
:SET RMOS INDICATOR
SSINGLE PORT RMOS ?
BR IF YES
*DUAL PORT RMOS 2

BEQ

BR
MOV
JSR

Py
#121,-(SP)
RO, WRT.RM

SEXIT
:DO A 'READ-IN PRESET"’

MOVE

2%:

RS,~(SP)

R1,AMCS2(R4)
:SELECT A DRIVE
:DO A DRIVE CLEAR COMMAND (& SFIZE DRIVE)
#RITI2,RMCS2(R4)
:NONEXISTENT DRIVE?

RMD
T
5%

024025

;ERROR OCCURRED (PARITY)
*NORMAL RE TURN

MOV
MOVE
81T
BEQ
JSR

281 041144 032764 004000 000000
282 041152 001512
283 041154 004037 045302

B 14
11:57:12 PAGE 34-5

RE TURN
RE TURN2

DRVINT: MOV

040532

276 041130
277 061132

4=-APR-B87

RMCS1
5%

#-1,DRVIYP(R1)

*BR IF YES

:SET INDICATOR TO °OTHER®

309 041300 012746 010000

MOV

#BIT12,-(SP)

:SET FMT16=1

311 041310
312 041312
313 041314
314 041320
215 041322

000032
041402
004037

RMOF
5%
JSR

RO,RD.RM

:READ RMDS

318 041330
319 041336
320 041342
321 041344

116164
004037

(SP)+,RS
33

:AND SAVE IT IN RS
‘BR IF ATA=0

000012
041402

316 041324 012605
317 041326 100015

000014
041402

045462

JSR

045302

040636
045302

RMDS
5%

000016

MOV
BPL

MOVB
JSR
RMER
5%

RO,WRT .RM

ATABIT(R1),RMAS(R&)
:CLEAR ATTENTION BIT
RO,RD.RM
SFIND OUT WHY ATA=1

CZRMVBO RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

322 041346

|
|

006126

323 041350
324 041352
325 041360

100004
112761
000407

327 041362

005105

329 041370
330 041372

001003
112761

38 041364

042705

331 041400 005720

332 041402
333 041404

:
177777

MACRO v04.00

ROL

040532

167077
000001

4=APR=-81

040532

012605
000200

48:
58:

C 14

11:57:12 PAGE 34-6

SEQ 0171

BPL
MOVB
BR

3%
#-1,DRVSTA(R1)
43

(5P)+

:1S 1T UNSAFE?

(OM

:CHECK MOL, DPR, DRY, AND WV

BNE
MOVB

48
#1,DRVSTA(R1)

:BR_IF MOL, DPR, DRY, OR VV IS CLEAR
:SET DRIVE STATUS T0°ONLINE

(SP)+,RS
RO

*RESTORE RS
SEXIT

BIC

1ST

MOV
RTS

:BR_IF NOT
:SET UNSAFE INDICATOR
(EXIT

#AC<BIT12!BIT08!BIT07!BIT06>,RS

(RD)+

:STEP OVER THE ERROR. RE TURN

:REQUEST PRE=PROCESSOR=HANDLES SUBSYSTEM REQUEST

%gg

s CALL

339

340
341
342
33

345 041406

346 041412
347 041420

013746

013737
112737

348 041426 104412

177776

040654
000001

177776
040576

JSR __ RO,RMOS

:
:
:

PNTADR
RE TURN1
RE TURN2

RMOS:

MOV

MOV
MOVB

SAVREG

349 041430

011002

351 041436
352 041440
3535 041444
354 041450
355 041452

111201
013704
105761
003014
105761

040600

MOVB
MOV
TSTB
BGT
TSTB

357 041460

105761

040552

1STB

350 041432

005062

356 041456 001036

MOV

000016

(LR

040650
040532

358 041464
359 041466

001042
004037

361 041474
362 041500
363 041502
364 041506
365 041510
366 041514

105761
003445
105761
001031
010164
004037

040532

368 041522
369 041530

122762
001003

000103

000002

371 041540
372 041544
373 041546

105761
001043
004737

040522

177777

040600

375 041554

012762

120000

360 041472 000434

367 041520 000460

370 041532

112761

374 041552 000440
376 041562
377 041564
378 041570

000434
004737
000431

BNE
JSR

041072

040562

18:

000010
046434

BR
28:

041700

042756

000016

TSTB
BLE
TSTB
BNE
MOV
JSR

3$:
4$:

PS,=(SP)

RMVEC+2,PS
#1,ACTDRV
(RO),R2

16(R2)

(R2),RI
RMADR,RG
DRVSTA(RT)
18
ULDFLG(R1)

DPINT(R1)

:SAVE RO - RS

:PICKUP THE DRIVE PARAMETER BLOCK POINTER

:CLEAR THE STATUS/ERROR INDICATOR

:PICKUP THE DRIVE NUMBER
:UNIBUS ADDRESS OF RMCS1
:CHECK DRIVES STATUS
:BR IF ONLINE
UNLOAD COMMAND IN QUEUE?

:BR IF YES

:TRYING TO INIT THE DRIVE

DRVSTA(R1)
6%
DPRQS(R1)
58
R1,RMCS2(R4)
RO.DRVQUE

:IS DRIVE STATUS ONLINE?
:BR_IF NOT
:OUTSTANDING PORT REQUEST FOR THE DRIVE 2
:BR IF YES
:SELECT THE DRIVE
:PUT THIS REQUEST IN QUEUE

DRVACT(RT)
8%
PC,OPT

e
JSk
BR

:DON'T ALLOW ANY RM INTERRUPTS
:SET "ACTIVE DRIVER'* FLAG

:BR IF YES
GO INIT. THE DRIVE

1STB
BNE
JSR

MOV ~

:SAVE_THE CALLING STATUS

58
RO,DRVINT

#103,2(R2)
28

:ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
:RETURN HERE IF QUEUE IS FULL
:RETURN WERE IF REQUEST IS IN OUEUE OR THERE
:1S AN ERROR CONDITION

(MPB
BNE

MOVB

;CALL THE RMOS DRIVER

#-1,ULDFLG(R1)

8s’

:ERROR RETURN

:QUEUE IS FULL

‘1S THIS REQ. FOR AN UNLOAD?
:BR_IF NO,
B

:SET THE "UNLOAD IN QUEUE'*
:1S THIS DRIVE ACTIVE?
:BR IF YES
:CALL THE OPTIMIZER

MBITIS!BITI3,16(R2)
8s
PC,CI7
8%

;SET THE

FLAG

"UNLOAD IN QUEUETM

EXIT
GO HANDLE THE PARITY ERROR

ERROR FLAG

CZRMVBO RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

379 041572

380 041576
381 047600
382 041604
383 041606
384 041612

MACRO v04.00

004037

046434

58:

105761
002412

040532

68:

105761

040542

JSR

SEQ 0177

RO, DRVQUE

:PUT REQUEST IN QUEUE

DRVSTA(R1)
7%

*SEE IF DRIVE OFFLINE OR UNSAFE
‘BR IF UNSAFE

B8R
BIT
BNE
JSR
8R

98
#B1T06, (RG)
8$
PC,SET.IE
8$

387 041622 012762 140000 000016

MOV

#BIT15'81T14,16(R2)

389 041634
390 041636
391 041644
352 041646

BNE
MOV
BR
MOV

8s
‘BR IF OFFLINE
#BIT15'B1T01,16(R2)
;REPORT DRIVE NONEXISTENT
8$
;GO TO EXIT
#BIT15!B1T12,16(R2)
;DRIVE IS UNSAFE

385 041614
386 041620
388 041630

353 041654
294 041656

000431
032714 000100
001023
004737 045772
000420

D 14

4=APR=-81 11:57:12 PAGE 34-7

001007
012762 100002 000016
000403
012762 110000 000016 7%:
104413
005720

8$:

104413

9%:

395 041660 000401
396 041662

397 041664
398 041666

005720
105037

28? 041676

000200

108:

04057¢

399 041672 012637 177776

TSTB

_RESREG
ST

:SEE IF OFFLINE OR NONEXISTENT

(RO)+

;RESTORE RO - RS
:SETUP FOR NORMAL RETURN

108

7ST
CLRB

(RO)+
ACTDRV

RTS

RESREG

:SET OFFLINE ERROR INDICATOR

DRYTYP(R1)

B8R

MOV

2g§

(SP)+,PS

SFINISH UP, THEN EXIT
*RESTORE RO - RS

:CORRECT THE RETURN ADDRESS
:CLEAR "ACTIVE DRIVER'' FLAG

*RETURN ‘PS’* TO USER LEVEL
*RETURN TO CALLER

;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE

404

s CALL

405

289

408 041700

104412

410 041706
411 061714

146137
105061

413 041724

005702

409 041702 013746

177776

040636
040562

OPT:
040574

412 061720 004737 046510
414 041726
415 041730
416 041734

001466
010164
012764

417 041742 032764
418 041750 001442
419 041752

420 041756

105761

003014

423 041772

424 041776

105761

100047

040532

425 042000 012762
426 042006

427 042010
436 042010
437 042016
438 042020
439 042024

000443

122762
002403
004737
000434

040532

042342

440 042026 005737 040634
042032

442 062034
443 042040

002006

005737
100003

040612

JSR

SAVREG

MOV

1$:

000016

000002
.

3$:

PC,OPT

»g,=(SP)

:DRIVE NUMBER TO R1

“SETUP A COMMAND
:SAVE RO - RS

*SAVE PROC. STATUS

ATABIT(R1),SRCHWT
:CLEAR LA SEACH FLAG
DPROS(R1)
;RESET THE PORT REQ FLAG ~#**»

PC.GETREQ

SGET 'DPB"* POINTER OF REQUEST

78
R1.RMCS2(R4)
#111,RMCS1(R4)

*NO--BR TO EXIT
:LOAD THE DRIVE ADDRESS sewssss
:CLEAR THE DRIVE

*1S THERE A REQUEST IN QUEUE?

BIT
BEQ

#B1T11,RMCST(R4)
:DVA SET ?
5§
:T0 PORT REQUEST .IF NOT

BGT

‘YES

DRVSTA(R1)

;IS DRIVE UNSAFE ?

TSTB

DRVSTA(R1)

*1S DRIVE ONLINE?

JSR
MOV

PC , POPQUE
*NO~-REMO.E REQUEST FROM QUEUE
#BIT15'BIT14,16(R2)
:SET OFFLINE STATUS/ERROR INDICATOR

BPL

TSTB

28:

#DRVNUM,R1

BICB
CLRB

BEQ
MOV
MOV

110000 000016
000150

MOV

JSR

000010
000111 000000
004000 000000

421 041760 004737 046532
422 041764 012762 140000

441

TSTB
BLT

YQUEUE IS FULL
“1E BIT SET 7
‘YES
“SET THE INTERRUPT
*RE TURN

:BR TO EXIT IF NOT

MOV

#BIT15'BIT12,16(R2)
3%

:BR TO EXIT

(MPB
BLT
JSR
BR

#150,2(R2)
38
PC,C14
8$

;1S THE REQUEST FOR 1/0?
SYES
*CALL THE COMMAND INITIATOR
‘BR TO EXIT

BGE

TST

ST
BPL

DTUW

SEEKFG
3)

:SET UNSAFE STATUS/ERROR INDICATOR

*DATA TRANSFER UNDERWAY?
:YES==GO START A SEARCH

‘DO IMPLIED SEEKS?
;NO, DO A SEARCH

;

CZRMVBO RMOS5/3/2 EXT'D DR TST

RM/RM DRIVER

444
445
446
447
448
449
450

INITIALIZATION CODE

042042
042046
042050
042054
042056
042064
042066

451 042070

004737
000423
004737
000420
112761
010103
006303

012763

042234
177777

040562

035230

040614

000402
004737 042756
032714 000100
001002
004737 045772
012637 177776

228 042124

000207

JSR
BR
JSR
BR
MOVR
MOV
ASL

48:
5%:

;

MOV

68
7%:

8%:

104413

RTS

464
465
466

:
:
:

467

468

472 042126

473 042132
474 042136
475 042140
476 042144
477 042150
478 042154

MOV
MOV
JSR

#DRVYNUM ,R1
#DPB,R2
PC.CI?
:

2;?

004737

046532

010237 040572
010203
013704 040650
010164 000010
062703
062704

CIl:

000004

ISR

045462

MOV
JSR
RMDC

489 042210 016246 000002

MOV

493 042224

4% 042230

000137 042720

010137

040634

49 042234 013704
497 042240 010164

040650
000010

498 042244
499 042250
500 042254

016246
004037
000034

c17

000012
045462

;

cI3:

#4.R3

*DESIRED WORD COUNT

#2 R4

012346
004037
000034

045462

;REMOVE REQUEST FROM ‘DRIVES WAIT® QUEUE

ADD

485 042176
486 042200
487 042204

004037
000000
042756

PC , POPQUE

R2. TRNSWT
R2.R3
RMADR , R4
R1,RMCS2(R4)

MOV
MOV
MOV
JSR
RMDA

490 042214
491 042220
492 042222

:WHERE:

;CI13=SEARCH REQUESTED BY DATA XFER

MOV
MOV
MOV
MOV

012324
012324
012346
004037 045462
000006
042756

:DRIVE NUMBER
;ADDRESS OF DPB
iC17= C11,C13, OR Cl4
;C14=NOT DATA TRANSFER

ADD

000002

*RESTORE RO - R5

:CI11=DATA TRANSFER

479 0462160
480 042162
481 042164
482 042166
483 042172
484 042174

(5P)+,PS

SEXIT
*PROCESS THE PARITY ERROR
*SEE IF 'IE' ALREADY SET
:BR_IF SET
“SET "'IE'* WITHOUT A "‘TRE"’
“RESTORE PROC. STATUS

INITIATOR

469

PC,SET.IE

RESREG

SEQ 0173

PC,CIN
;START A DATA TRANSFER
8¢
PC,CI3
;START A SEARCH
8$
“GO TO THE EXIT
#-1,DPRQS(R1)
;SET PORT REQUEST INDICATOR
R1,R3
“SET UP TO ADDRESS WORDS
R3
*CONVERT TO WORD INDEX
#15000.,TIMER(R3)
;START 15. SECOND TIMER

7%
PC,CI17
#RIT06, (RG)
8$

;COMMAND
.

s CALL

E 14
11:57:12 PAGE 34-8

B8R
JSR
BIT
BNE
JSR
MOV

461
462

463

[PR—

4=-APR=81

042126

452 042076
453 042100
454 042104
455 042110
456 042112
457 042116
458 042122

MACRO v04.00

(R3)+, (R&)+
(R3)+.(R&)+
(R3)+,~(SP)
RO.WRT.RM
(R3)+,=(5P)
RO,WRT.RM

*PUT REQ. IN TRANSFER WAIT QUEUE
*DPB ADDRESS TO R3
*RMCS1 ADDRESS
-SELECT DRIVE
*RMJC ADDRESS

*LOAD WORD COUNT
*LOAD BUFFER ADDRESS
*LOAD SECTOR AND TRACK
*CALL THE LOAD(WRITE) ROUTINE
*INDEX OF REGISTER TO LOAD
*ERROR RETURN ADDRESS

;LOAD CYLINDER ADDRESS

2(R2) ,=(SP)

;LOAD ''COMMAND+GO'',

MOV

R1,DTUW

;SET

Moy
MOV

RMADR , Ré4
R1,RMCS2(R4)

:RMCS1 ADDRESS
-SELECT DRIVE

JSR
RMCST
17

RO,WRT.RM

clb

MOV
JSR
RMDC

12(R2),=(SP)
RO,WRT .RM

"‘A178A16'", AND 'PSEL

"DATA TRANSFER UNDERWAY

:DESIRED CYLINDER ADDRESS

501 042256
502 042260
503 042064
504 042270
505 042272
506 042276
507 042300

[=]

R RRRRRRR

ro~

521 042356
522 042362
523 042364
524 042370
525 042374
526 042376
527 042400
528 042402
529 042406
530 042410
531 042414
532 042420
533 042422
534 042424

535 042426
536 042432
537 042434
538 042440
539 042442
540 042444
541 042450
542 042454
543 042456
544 042460
545 042462
546 042466
547 042470
548 042474
549 042476
550 042502

r-_.._..-___.._ _..,-,__‘

116203
163703
00200

000040

004037
000006

045462

116266

042756
012746
004037
000000
042756

000011

013704
010164

040650
000010
000002
000131

000006

042756
000403
122703

001007
016246
004037
000034
042756
000546
122703

001013
004037
000032
042756
116216

004037
000032
042756
000530

;COMBINE THE ADJUSTED SECTOR WiTH
;THE DESIRED TRACK
;LOAD DESIRED TRA(CK & SECTOR

MOv
JSR
RMCS1T

#131,-(5P)
RO,WRT.RM

;START A SEARCH

BISB
BR

ATABI: (R1),SRCHWT

MOV
MOV
MOVB
(MPB

1%:

000012
045462

2%:

B8R
CMPB
BNE
MOV

JSR

RMDC

cl7

000115

3%:

045302

122703
001522
122703
001016
112761
105061
112761

000117
000103

000001
040532
000001
045462

040522

040600

JSET "'SEARCH WAIT"' KEY

c15

R4
RMADR,

;RMCS1 ADDRESS

2(R2) ,R3

;PICKUP THE REQUESTED COMMAND

R1,RMCS2(R4)

0131 .R3

10(R2) =(SP)
RO,WRT.RM

sSELECT DRIVE

;1S IT A SEARCH COMMAND?
:BR IF NO
;LOAD DESIRED TRACK & SECTOR

CYLINDER
SEEK (OMMAND

#105,R3

12(R2) ,=(5P)

RO,WRT .RM

;LOAD DESIRED CYLINDER

clé
#115.R3
4“3
RO,RD.RM

MovB
JSR
RMOF

1(R2),(SP)
RO,WRT.RM

;BYTE WHEN LOADING THE
JREGISTER (RMOF)

Clé

GO START THE COMMAND

€17

4%:

#32.,R3

BR
CMPB
BNE
JSR
RMOF

c17

000001
045462

000107

010346
004037
000000
042756

R3,=(SP)
11(R2),1(SP)
RO,WRT.RM

RMDA

000105

SEQ 0174

;PICKUP SECTOR ADDRESS
JBACKUP BY MAX. SEARCH FOR 1/0 WINDOW

BNE
MOV
JSR

000010
045462

122703

001525

Clé:

34=9

10(R2) ,R3
MXWNDW,R3
1%

040574

MOVA
SUB
BGE
ADD
MOV
mMOovB
JSR
RMDA

cl7

045462

040636

004037

000001

1%:

000131

156137

116203
122703
001007
016246

cl7

000010
040656

06270
010346

000567

—

ek el

d o

VONONSHWN—~O

VYA AW

508 042306
509 042312

042756

11:57:12 PAGE

INITIALIZATION CODE

4=APR=81

8R
CMPB
BEQ
(MPB
BEQ
CMPB
BNE
MOvB
CLRB
MOvB
MOV
JSR
RM(S?

#107 ,R3

#1,DRVACT(R1)

DRVSTA(R1)

#1,ULDFLG(RT)
R3,=(SP)
RO,WRT.RM

.’IS I AN “OFFSET"" COMMAND?

'nznsf THE OFFSET VALUE INTO RMOF
'S

RH/RM DRIVER

MACRO Vv04.00

EL:

CZRMVBO RMOS5/3/2 EXT'D DR TST

“BUT DON'T CHANGE THE UPPER

IS IT A "RECALIBRATE'® COMMAND?

BR IF YES
S IT A RETURN TO CENTER?
IF YES
T AN"UNLOAD'" COMMAND?

T THE DRIVE ACTIVE INDICATOR
T DRIVE STATUS TO OFFLINE

T "UNLOAD IN PROGRESSTM FLAG
ART THE ''UNLOADTM* COMMAND

CZRMVBO RMQS5/3/2 EXT'D DR TST

R</RM DRIVER

,
»

INITIALIZATION CODE

|
|

558 042536
559 042540
560 042544
561 042546
562 042552
563 042554
564 062556
565 042564
566 042570
567 042572
568 042574
569 042576
570 042602
371 042604

000207
122703
001014
004037
000032
042756
116266
004037
000032
0462756
000436
122703
001023
016203

573 062610

116237

574 042616
575 042622
576 042626
577 042630
578 062632
579 042634
580 042640
581 042642
582 042650
583 042652
584 042656
585 042660
586 042662
587 042666
588 042670

589 042672
590 062676

004737
052762

592 042710
593 042712
504 042716
595
596 042720
597 042722
598 042730
599 042732
600 042740
601
602 042742
603 042744
604 042750

100002
004737
000207

59% 042706

605 042752

606 042754
607
608 042756
612 042764
616 042766
€17 042770
618 042772
622

623 043000

116205
004037
000000
042756
012623
023705
001414
062737
000764
122703
001405
010346
004037
000000
042756

005737

006301
012761
006201
112761

000207

010346
004037
000000
042756
000761

032764
005702
001001
000207

012762

012746

MACRO v04.00

5%:

000143
045302
000001
045462

4-APR=-81
RTS

(MPB
BNE
JSR
RMO*

cl17

000001

MOVB
JSR
RMOF

cl7

G 14
11:57:12 PAGE 34-10
PC

JRETURN TO USER

JBR IF NO

#143,R3
RO,RD.RM

J1S

IT A "'SET FORMAT'' COMMAND?

JREAD

THE OFFSET REGISTER

1(R2) ,1(5P)
RO,WRT .RM

JCOMBINE "FMT16"',"ECI’', AND "MC]'’
JLOAD "'FMT16'', "ECI’’, AND/OR “H(CI"".

12%
#141,R3
10%

;1S IT A "'GET REGISTER'' COMMAND?
;JBR IF NO
;70 PUT THE REGISTER(S)
JINIT. THE INDEX FOR THE FIRST REG.
JINDEX OF LAST REG. TO MOvVE
JREAD RH/RM REGISTER

0001417

6%:

000006

7%:

BR
(MPB
BNE
MOV

8%:
9%:

MOvB
MOVAa
JSR
RMCS1

10(R2) ,9%
11(R2) ,RS
RO,RD .RM

MOV
CMP
BEQ
ADD
BR
CMPB
BEQ
MOV
JSR
RMCS1

(SP)+,(R3)+
9% RS
12%
#2,9%
8%

JGET THE CONTENTS OF RH/RM REG.
;LAST REG. BEEN READ?
;GET OUT IF YES

12%

:BR IF YES

000010
000011

042626

045302

042626

000002

042626

10%:

000145

11%:

045462
046532
000200
040610

000016

045654

12%:

13%:

023420

040614

000001

040522

CI15:

Cl6:

045462

cl7

€1z

6(R2) ,R3

#145,R?

R3,-(SP)
RO,WRT.RM

JPOINTS TO 1ST ADDRESS OF WHERE

s INDEX OF REG. TO READ

;s INCREASE THE INDEX BY 2
;LOOP=-=MORE TO READ
;IS IT A ""SELECT DRIVE'® COMMAND?

;LOAD THE COMMAND

P( ,POPQUE

JREMOVE REQ. FROM QUEUE

PC,S5VRH70

;YES=-GO SAVE THE REGISTERS

#MIT07,16(R2)
SAVEFG
13%
PC

JSET THE "DONE’' BIT
;SAVE THE RH/RM REGISTERS?
;BR IF NO
JRETURN TO USER

Rr1
:}OOOO.JIHER(RI)

;START 10,

SECOND TIMER

#1.DRVACT(RY)
PC

;SET THE DRIVE ACTIVE
JRETURN TO THE USER

R3,=(SP)
RO,WRT.RM

;LOAD THE COMMAND

cI5
010000

000010

#BIT12,RMCS2(RG)

104G00

000016

;DRIVE NON=EXISTENT ?

JANYTHING IN QUEUE

JOTHERWISE EXIT

°?

JBR IF QUEUE IS THERE

MBITISIBITIT,1€6(R2)
#111,=(SP)

sSET "PARITY'' ERROR INDICATOR

;DO A "DRIVE CLEAR'

~7RMVBO RMOS/3/2 EXT'D DR TS7

%+/RM DRIVER INITIALIZATION CODE

624 043004
625 043010
626 043012
627 043014
628 043020
629 043024
630 L.3030
631 043034
635 043040
636 043042
637 043046
638 C43054
639
640 043056
641 043060
642 043062
643 043064
644 043070
645 043072
646 043076
647 043100
648 043104
649 043110
650 043112
651 043116
652 043120
653 063122
654 043130
655 043132
656 043140
657 043142
661 043150
662 043156
663 043162
664 043166
665 043172
666 043174
667 043202
668 043206
669 043212
673 043220
674 043222

004037
000000

MACRO v04.00

1%:

046414

040562

040600

040522
040572

040634

105761

040522

105761

040562

001003

001443
013702
020137
001402004737
005702
001413
032764
001404
012762
000403
012762
012763
105061
105061

020137
001005
012737
005037
105061

032764
005201
062703
042701
001314
012737
005037
004737
012764
000406
004737

105061
105061

004737

104413
000207

2%:

C18:

104412

005001
005003

1%:

046510

3%:

010000

000010

100002

000016

102000
177777

000016
040614

177777
040572
040600
010000

4%:
5%:

040634
000010

:
6%

000902
177770
177777

040572
046336
000040

046414
040532
040542
045772

(18
JSR
CLRB

PC,EMPTYQ

DPRQS (R1)

ULDFLG(RY)

(LRB
(LRB
(MP
BNE
CLR
MOV

DRVACT(R1)
R2, TRNSWT

TRNSWT

R1
R3
DQVA(T(R1)

TSTR

2
DPRQS(R1)
6%

BNE

TRNSWT ,R2

MOV
CMP
BEQ
JSR
TST

R1,DTUW

PC,GETREQ

R
5%

000010
7%:

8%:

;1F

THIS DRIVE HAD AN [/0 REQUEST

;IN PROGRESS CLEAR ALL OF

THE FLAGS

;SAVE RO - RS
;DRIVE ACTIVE?
.
;BR IF IN ACTIVE
;PORT REQUEST

:BR IF NOT

:GET THE ‘'TRANSFER WAIT'’ QUEUE

;DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?
:BR IF YES

:GET THE DPB POINTER

:QUEUE ENTRY FOR DRIVE

CONT INUE

; lBIT1S!BlT10.16(R2)
#-1,TIMER(R3)

DRVACT(R1)
DPRQS(R1)
R1,DTUW
6%

#-1,DTUM
TRNSWT

MOV
CLR
CLRB
BIT
INC

CLR
JSR
MOV
BR
JSR
CLRB
CLRB
JSR

JCLEAR THE PORT REQUEST FLAG
;CLEAR THE UNLOAD IN QUEUE FLAG
JDRIVE 1S IDLE

:
IF NOT
:BR
#BIT12,RMCS2(R4)
:'NED® SET ?
3
:BR IF NOT
ggIT1S'BITO116(R2)
;SET "DRIVE NON-EXISTENT®

BEQ
BIT
BEQ

ULDFLG(R1)
‘81712 RMCS2(R4)

12 R3
#AC7,R1
1%

ADD
BIC
BNE
MOV

040634

JEMPTY THE GQUEUE

#=1,DTuw

SAVREG
(LR
CLR

MOV
BR
MOV
MOv
CLRB
CLRB
MP
BNE

SEQ 017¢

RTS

iSTR

040634

34=11

RO,WRT ,RM

BEOQ

040572

040522
040562
040634

4=APR-E1
JSR
RM(S?

045467

040572
177777

H 14

11:57:12 PAGE

RESREG
RTS

;SET "NON-CLEARABLE PARITY'® ERROR INDICATOR

;STOP THE

TIMER

;SET "DRIVE ACTIVE'' TO IDLE

;CLEAR PORT REQUEST FLAG
;1S THIS DRIVE SETUP FOR A TRANSFER
:BR IF NOT
sRESET

THE

INDICATOR

;CLEAR THE TRANSFER QUEUE
sCLEAR UNLOAD FLAG

s "NED" SET ?

;MOVE TO THE NEXT DRIVE

#-1,DTUW
TRNSWT
PC,CLRQUE
#CLR,RMCS2(R4)

:BR IF MORE DRIVES
;NO DATA TRANSFERS UNDERWAY
sCLEAR THE 'TRANSFER WAIT' GQUEUE
sCLEAR ALL OF THE REQUEST QUEUES
;DO A MASSBUS INIT.

PC,EMPTYQ

;CLEAR THE DRIVE'S QUEUE

DRVSTA(R1)

DRVTYP(R1)

2 CONT INUE

sSET DRIVE TO OFFLINE

;CLEAR THE DRIVE TYPE

INDICATOR

PC,SET.IE

SSET "'IE"* WITHOUT ‘'TRE'*

*RE TURN

JINTERRUPT SERVI(E ROUTINE

INDICATOR

:RESTORE RO - RS

“JRMUB0O

RMOS/3/2

Rr/BM DRIVER

EXT'D

TST

V04.00

4=APR=B1

I 14
11:57:12

PAGE

34-12

INITIALIZATION CODE

690
691 043306

692 043314
693 043316
694 0463322
695 063326
696 043330
697 043336
698 043340
699 043342
700 043346
;8%

112737

104412
013704
013701
002402
004737
004737
104413
105037
000002

(00001

040576

043350
043520

18:
28:

040576

;

105061
012737
006301
012761
006201

040522
177777

040634

177777

040614

710 043400
711 043404
712 043412
713 043416
714 043422
715 043424
716 043426
717 043430
718 043432
719 043436
720 043440
725 043444
727 043450
728 043452
729 043454

005037
052762
010164
004037
000000
042756
006126
100417
005737
100002
004737
004737
005702
001403
004737

040572
000200
006010
045302

731 043462
752 043466

012714
000207

000113

052762
004737
004737
012714
012714
000207

100100
046414
045654
040111
000113

730 043460

734 043470
735 043476
736 043502
737 043506
738 043512
;28 043516

013702

000207

TD:

JGET "DATA TRANSFER UNDERWAY'' INDICATOR
JBR IF NO DATA TRANSFER UNDERWAY
:CALL TRANSFER DONE
:CALL SPECIAL CONDITIONS
:RESTORE RO - RS
:CLEAR "ACTIVE DRIVER'' FLAG

ACTDRV

*RE TURN

:SET DRIVE ACTIVE INDICATOR TO IDLE
:NO DATA TRANSFERS UNDERWAY

(LR
BIS
MOV
JSR
RMCS1
c17
ROL
gMl
TST
BPL
JSR
JSR
s
BEQ
JSR

TRNSWT
#BIT07,16(R2)
R1,RMCS2(R4)
RO,RD .RM

s TRANSFER WAIT QUEUE--CLEAR QUEUE
:SET DONE
:SELECT THE DRIVE
; TRANSFER ERROR(TRE=1)?

25:

MOV
RTS

#113,(R&)
PC

3$:

BIS
JSR
JSR
MOV
MOV
RTS

#BITIS!BIT06,16(R2)
;SET DATA ERROR FLAG
PC.EMPTYQ
sEMPTY THE ‘DRIVE'S WAIT"' QUEUE
PC,SVRH70
SAVE THE RH/RM REGISTERS
#40111,(R4)
:ISSUE A 'DRIVE CLEAR'
#113,(R4)
:1SSUE A RELEASE TO THE DRIVE
P
sRETURN

000016

1$:

041700

000016

:SAVE RO = RS
:ADDRESS OF RMCST

RMADR,R4
DTUW,R1
1%
PC,ID
PC.5C

DRVACT(RT)
#=1,DTUM
RI
#-1,TIMER(R1)
RI

MOV

045654
046510

JSET ""ACTIVE DRIVER'® FLAG

CLRB
MOV
ASL
MOV
ASR

040610

116403

000016

004037
000000
0430
106126

045302

004037
104001

046600

001014

771 043540

100405

772 043542
043546

SAVRE G
MOV
MOV
BLT
JSR
JSR___
RESREG
CLRB
RT]

#1 ,ACTDRY

RTS

:CANCEL TIMEOUT

TRNSWT,R2

:GET 'DPB'* ADDRESS FROM THE

(SP)+
38
SAVEFG
1%
PC,SVRH70
PC.GETREQ
R
2%
PC,OPT

;15 TRE=1 2
:BR IF YES
sSAVE THE RH/RM REGISTERS?
:BR IF NO
;YES--SAVE THE REGISTERS
:GET DPB POINTER
:ENTRY FOR DRIVE ?
;BR IF NOT
:CALL OPTIMIZER

;RETURN

*RELEASE THE DRIVE
*RETURN

;SPECIAL CONDITION ROUTINE

766 043524

767 043526
768 043532
769 043534
770 043536

MOVR

+TRANSFER DONE ROUTINE

040572

765
765 0643520

[ISk:

040650
040634

704 043350
705 043354
706 043362
707.043364
708 043372

709 (43374

MACZRO

SC:

MOVB

RMAS(R4),R3

;READ 'RMAS''

JSR
RMCS1
c18
ROLB

RO,RD.RM

(SP)+.

JREAD CONTROL AND STATUS REGISTER
o
(1S VIE'=1?

RO,ES.SAV
1

:SAVE THE ADDRESS IN 'SESCAPE"
JREPORT AN ILLEGAL INTERRUPT

BNE

BMI

JSR
EMT

‘BR IF ANY "ATA® BITS SET

*YES, NO DRIVES TO CHECK

CZRMVBO RMOS/3/2 EXT'D DR TST

RH/RM DRIVER

INITiALIZATION CODE

773 043550
774 043554

004737
(C00207

775 043556

005046

777 043562

012703

776 043560

110316

MACRO v04.00

045772

1%:

28:

000001

J 14

4=-APR=-81 11:57:12 PAGE 34-13
JSR
RTS

PC,SET.IE
PC

:SET INTERRUPT
;RETURN

MOVB

R3,(SP)

TAN TATA''=1

CLR

MOV

;;g 043566

005001

780 043570

030316

$C3:

783 063574

005201

5C4:

SEQ 0178

CLR

-(SP)

#1.R3

ENABLE

:PROCESS ALL DRIVES THAT HAVE

BIT

R3, (SP)

sATA=17

INC

;MOVE TO THE NEXT DRIVE

785 043600 001373

BNE

SC3

;BR IF MORE TC CHECK?

;g; 043604

RTS

*RETURN TO USER

TSTB
BEQ

DPINT(R1)
1%

;INITIALIZING THE DRIVE ?
‘BR IF NOT

TSTB
BEQ

DPRQS(R1)
2$

*PORT REQUEST OUTSTANDING ?
‘BR IF NOT

ISTB

DRVSTA(R1)

;g; 043572 001005
784 043576

106303

786 043602

005726

789 043606
790 043612

105761
001402

040552

792 043620
793 043624

105761
001402

040562

795 043632

105761

040532

000207
SC5:
1$:

794 043626 000137 044532

800 043652
801 043656

802

803 043662
804 043666
805 043670

806 043676
810 043700
811 043704
812 043706
813 043712

814 043714
815
816 043720
817 043724
818 043726

003023
105761
003420
004737

004737
004737
105761
003414
032737

046510

045654
064462

040000

044462

105761
001323
105761

040552

820 043734

032737

020000

830 043762
043766
831 043770

004037
104002
000701

046600

004037
104005

046600

832 043772

043772
043776

040512

3$:
48:

JMP

040516

7%:

(SP)+

$C13

SC13

48
ULDFLG(R1)
4
PC,GE TREQ

TSTB
BLE
BIT

DRVSTA(R1)
13
#B1T14 RMERRS

PC . SVRH?0
PC.SC12

BNE
MOV
BR
TSTB
BNE

3$
RMERRS +2,RS
SCHA
DRVACT(R1)
SCé

ISTR
BNE .
TSTB--

DPINT(R1)
SC4
DRVSTA(R1)

PC,SC12

BM]

BNE
MOV
JSR
RMCS1
SC8
MOV

7%
#111,=(SP)
RO, WRT.RM

BIT

5C5

BGT
TSTB
BLE
JSR

JSR

040532

001013
012745 000111
004037 045462
000000
044322
011605

JMP

JSR
JSR

040532

004737

821 043742
825 043744
826 043750
827 043754
828 043756
829 043760

28:

040600

001000
013705 040514
000504
105761
040522
001033

819 043732 100412

ASLB
ST

791 043614 000137 044532

796 043636
797 043640
798 043644
799 043646

BNE

YES

“CLEAN OFF

THE STACK

*PROCESS THE DRIVE

“START THE OUTSTANDING COMMAND
*CHECK THE DRIVE STATUS

‘BR IF ONLINE
*UNLOAD IN PROGRESS?
‘BR IF NOT
*GET DPB POINTER

“SAVE THE RM/RM REGISTERS
:SAVE RMDS, RMER1, RMER2, AND RMMR2

*ALSO DO A DRIVE INIT (DRVINT)
:DID DRIVE COME ONLINE?
:NO
-WAS THERE AN ERROR?

*BR IF ERROR
*YES == PICKUP RMER1 AND
:GO PROCESS THE ERROR
DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY 2
*BR IF EITHER
*SAVE RMDS, RMER1, RMER2, AND RMMR2
*ALSO DO A DRVINT
STRYING TO INIT THE DRIVE ?
*BR IF YES, CHECK ON MORE DRIVES
*CHECK ON DRIVE'S STATUS

*BR IF UNSAFE

#B]T13,RMERRS+4 :ADDRESS PLUG CHANGED ?

JSR
EMT
BR

RO,ES. SAV
2
SC4

(SP) RS

‘BR IF YES
‘DRIVE CLEAR
*WRITE THE COMMAND INTO RMCS!
*REGISTER INDEX
*PARITY EXIT ADDRESS
‘PICKUP (RMAS) BEFORE THE ERROR CALL

JSR
EMT

RO,ES.SAV
5

;SAVE THE ADDRESS IN ‘S$ESCAPE'
JREPORT THE ADDRESS PLUG CMANGE

*SAVE THE ADDRESS IN 'SESCAPE'
‘REPORT THE UNEXPECTED ATTENTION
1GO CHECK FOR MORE ATA'S

CZRMVBO RM05/3/2 EXT'D DR TST

RW/RM DRIVER

INITIALIZATION CODE

ggz 044000

000675

835 044002
836 044006

006}01
012761

177777

838 044014

004737

046510

837 044012

006201

839 044020 010164

K 14

MACRO

/=APR=81 11:57:12 PAGE 34=14

040614

SC6:

004037

842 044034
843 044036

000012
064322

845 044042

006126

844 044040

846 044044

847 044046
848 044052

105761
003137

045302

851 044064
852 044070
853 044072

004037
000014
044322

004037
000000
044322

861 044116

006105

862 044120 100406
863 044122 005702
864 044124 001447
865 044126 052762
866 044134 000443
867 044136

004037

869 044144

044322

879 044204
880 044212
881 044220

112761
112761
006301

868 044142

870 044146
871 044150
872 044152
873 044154
874 044162
875 044166
876 044174
877 044176
878 044202

000012

)

040522

045302

1%:

SC6A:

’

892 044254

105761

045302

1%:

SC7:

R1'RMCS2(R4)

:SELECT DRIVE

JSR

RO,RD.RM

MOV

(SP) ,RS

;AND PUT IT IN RS

BM]

‘BR IF ERROR

JREAD THE RM'S® STATUS REG.

(SP) +

TSTB
BGT

DRVACT(R1)
SC11

B8R

SC7

‘WAS THERE AN ERROR?

cuecx DRIVE'S STATE
IF DRIVE ACTIVE WITH ORDER

mns-enomnbs 16(R2)
RO,RD.RM

(SP)+,RS
#1171, -<sp>

;INFORM USER OF ERROR RECOVER COMPLETION

;READ ERROR REGISTER #1

MOV
JSR
MOV

PC,SVRH70

ROL

;WAS ‘UNSAFE'' CONDITION =1?

JSR

RO,RD.RM

:READ DRIVE STATUS REG. #1

RO,WRT.RM

;AND SAVE IT IN RS
:SAVE RH/RM REGISTERS
“ISSUE A DRIVE CLEAR

1%
“BR IF YES
R2
mvmme IN QUEUE ?
SC7
IF NOT
mns-anor'anbs 16(R2)
:INFORM USER OF ERROR
SC7

MOV
ROL
BPL
MOVEB
JSR
8IS
BR
BIT
BNE

(SP) .RS
:SAVE RMDS IN RS
(SP)+
STERR' =12
2$
*BR IF NO=--UNSAFE CLEARED
#-1,DRVSTA(R1)
:DRIVE IS UNSAFE
PC., SVRH70
*SAVE RH/RM REGISTERS
#BIT15'8I112,16(R2)
:INFORM USER OF UNSAFE ERROR
SC7
#BIT12,RS
ML =12
3$
‘BR IF YES

MOVB
MOVB
ASL

3$:

*RESTORE THE DRIVE ADDRESS

‘PROCESS THE SEARCH

SC8

040522
040532

sci

RMDS

040600

“GET THE DPB POINTER FROM THE OUEUE

8MI
ST
BEQ
8IS
BR

100240 000016

040522
046532

PC,GETREQ

JSR
RMER1
SC8

011605
:
006126
100011
112761
177777 040532
004737 045654
052762 110000 000016
000423
032705 010000
28:
001015

105061
004737

JSR

JSR
RMCS1
SC8

882 044222 012761 035230 040614
883 044230 006201
884 044232 000137 043574
gggw.zse 052762 100220 000016
887 044244
891 044250

JSETUP TO ADDRESS WORDS
:STOP THE TIMER

BIS

045462

177777
000001
;

R1
#=1,TIMER(R1)

ROL

854 044074 012605
855 044076 004737 045654
856 044102 012746 000111

857 044106
858 044112
ggg 044114

ASL
MOV

RMDS
SC8

849 044054 052762 100210 000016
850 044062 000470

;CHECK FOR MORE DRIVES

JMP

011605

100407

SC4

MOV

840 0440264 000137 044352
841 044030

ASR

000010

SEQ 0179

:A.TIVE ERROR RECOVER
:ONLINE

MOV
ASR
JMP
BIS

#-1,DRVACT(R1)
#1,.DRVSTA(R1)
R1

#15000. , TIMER(R1)
;START 15. SECOND TIMER
R1
SC4
#BIT15'BITO7!BIT04, 16(R2)
: INFORM USER OF ERROR

CLRB
JSR

DRVACT(R1)
PC , POPQUE

;DRIVE IS IDLE
‘REMOVE THE QUEUE

TSTB

ULDFLG(RT)

:UNLOAD IN PROGRESS OR QUEUE?

MACRO V04.00
CZRMVBO RMO5/3/2 EXT'D DR TST
RH/RM DRIVER INITIALIZATION CODE

893 044260
894 044262
895 044266
896 044274
897 044300
901 044302
902 044306
903 044312
904 044314
905 044316
906
907 044322
908 044326
909 044330
910 044334
911 044340
912 044342
916 044342
917 044346
918

919 044352

012746

004037
000000
044322

1%:

000111
045462

SC8:

046510
042756
1%:

004737
000137

043000
043574

2%:

105761

040600

SC11:

105061
105061
136137

040600
040522

010164
016437
016437

100002

004737

116164
146137
006301

012761
006201
004737
000137

016437
016437
004037
000401
000207
005726
000674
006301
012761
006201
010164

116164
105761

046532
000200
040610

040574

‘1$:

045654
040636
040636

000016
040574

177777

040614

2%:

041700
043574

000010
000012
000014
000042
000040
041072

040512
040514
040516
040520

sc12:

177777

000010
040636
040552

040614

000016

SC13:

SEQ 018(
R

ULDFLG(R1)

LEAR

ATABIT(R1) ,RMAS (R4)

UNLOAD FLAG

;CLEAR ATTENTION BIT

BMI

;1S THE DRIVE UNSAFE ?
‘BR IF IT IS

JSR

RO,WRT.RM

“WRITE THE COMMAND INTO RPCS1

SC8

#111,=(SP)

‘DRIVE CLEAR COMMAND

‘REGISTER INDEX

“PARITY EXIT ADDRESS

JMP

$C4

TSTB

?2VACT(R1)

lgsonlve IDLE?

PC,GETREQ

“GET DPB POINTER

* CONT INUE

BEQ
JSR
JSR
BR

PC.CI7

:CHECK FOR MORE DRIVES

*PROCESS THE PARITY ERROR

JSR
JMP

FC,C178
$C4

;PROCESS THE UNCORRECTABLE PARITY ERROR
*CHECK MORE DRIVES

TSTB
BLE
CLRB
CLRB
BITB

ULDFLG(R1)

;"UNLOAD IN PROGRESS'"?

ULDFLG(R1)
DRVACT (R1)

*CLEAR UNLOAD FLAG
*SET DRIVE IDLE

BNE

000016

L 14
11:57:12 PAGE 34~15

DRVSTA(R1)
28

TSTH

RMCS1

040522

040636

CLRB
MOovBs
MOV

105761

001405
004737
004737
000402

044462
044466
044474
942 044502

950 N44532
951 044534
952 044542
953 044544
954 044550
955 044556

000016

2%:

001012
004737
052762
005737

949

BGT

043574

044376
044400
044404
044412
044416
044420
044424
044432
044440
044442
044450
044452
044456

945 044522
%6 044524
%7 044526
948 044530

040600
040636
040532

000137

003402

93 044510
%4 044516

—

105061
116164
105761
100406

044356
044360
044364
044370

920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941

003002

4=-APR=-81

JSR
BIS
TST
BPL
JSR
MOVB
BICB
ASL
MOV
ASR
JSR
JMP

:BR IF NO

ATABIT(R1) , SRCHWT

:DOING A SEARCH OPERATION FOR
“AN 1/0 COMMAND?
;BR IF YES

#B1T07,16(R2)

:SET 'DONE’’ BIT

PC ,POPQUE

SAVEFG
2%

PC.SVRH70

:REMOVE REQUEST FROM QUEUE

*SAVE THE REGISTERS?

BR IF NO

*YES=-SAVE ALL OF THE RH/RM REG'S

ATABIT(R1) ,RMAS (R4)
ATABIT(R1) . SRCHWT
R1
#-1.TIMER(RT)
R1
PC,OPT

SC4

:CLEAR ATTENTION BIT

*CLEAR IMPLIED SEEK SET

:WORD INDEX
:STOP CLOCK
*RESTORE R1
“START A REQUEST

*CHECK FOR MORE DRIVES

MoV
MOV
MOV
MOV
MOV
JSR
BR
RTS
TST
BR

R1,RMCS2(R4)
;SELECT DRIVE
RMDS (R4) ,RMERRS ;SAVE THE FOUR REGISTERS THAT
RMER1(R4) ,RMERRS+2
JWILL TELL US SOMETKING
RMER2
(R4) ,RMERRS +4
RMMR?2
(R4 ) ,RMERRS +6
RO,DRVINT
JINIT. THE STATE OF THE DRIVE
1%
PC
(SP)+

:TAKE ERROR EXiT
sRETURN
;POP PC OFF CF THE STACK

ASL
MoV

R1
z;1,TIMER(R1)

;SETUP TO ADDRESS WORDS
:STOP THE TIMER

MOV
MOvVB
TSTB

R1,RMCS2(R4)
;SELECT THE DRIVE
;CLEAR THE ATTENTION BIT
ATABIT(R1) ,RMAS (R4)

ASR

SC8

DPINT(R1)

:PROCESS THE PARITY ERROR

JINITIALIZING THE DRIVE ?

f
|

CZRMVBO RM0S5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

956 044562
957 044564
958 044570
959 044574

960 044576
961 044602
962 044604
963 044606
964 044610
965 044614
966 044622
970 044626

971
972
9735
974

044632
044634
044642
044644

975 044646

976 044654
977 044656
978 (044660
979 044664
980
981
982
983
984
985
986 044670
987 044674

988 044676
989 044704
990 044706
991 044710
992 044712
993 044716
994 044720
995 044726
996 044730
997 044734
_998 044736
999 044740

1000
1001
1002
1003
1004
1005

044744
044746
044750
044754
044756

001424
105061

040552
041072

105761

040532

004037
000240
003014
005702
001426
004737
052762
004737
004737
000414
032764
001006
006301
012761
006201
000402
004737
000137

046510
140000

045654

MACRO V04.00

4=-APR-81

BEQ
(LRB
JSR

NOP
TSTB

TST

*QUEUE ENTRY FOR THE DRIVE

JSR

PC,GETRLQ

JSR

PC, SVEH70

BIS

égR

004000

000000

035230

040614

041700
043574

28:

4%:
3%:

JBR _IF NOT
;CLEAR THE INIT INDICATOR
;GO INIT THE DRIVE

:DUMMY PARITY ERROR RETURN
:DRIVE ONLINE ?

BEQ

046532

2%
DPINT(R1)
RO,DRVINT

SEQ 0181

DRVSTA(R1)

BGT

000016

M 14

11:57:12 PAGE 24~10

:BR_IF YES == START ORDER

JBR _IF NOT

;GET DPB ADDRESS

#BiT15:81714,16(R2)

;INFORM USER THAT DRIVE OFFLINE

§§.POPOUE

THE QUEUE

:SAVE THE REGISTERS
:REMOVE

BIT

#BI711,RMCS1(R4)

:}5000..T1MER(R1)

JSR
JMP

FC,0PT
5C4

;DVA SET ?

;SET THEN CALL OPT
;START 15. SECOND TIMER

;START THE PENDING REQUEST
;PROCESS OTHER DRIVES

:?QLIIHER ROUTINE

:
o
005737
001027
112737
104412

005001
005003
005763
002406
166663
003002
004737
005201
005723
022701
003362
104413
105037
012616
000207

RMTMR:

040576

000001

040577

1%:

040614
000002

044760

040614
2%:

000010

040577

3%:
4%:

MOV
JSR

#TIME,~(SP)
PC ,RMTMR

;ELASPED TIME IN MILLISECONDS ON THE STACK
;CALL RMO5 TIME ROUTINE

TST

ACTDRV

;CHECK "'ACTDRV & ACTSTR'

MOVFR
SAVREG

#1,ACTSTR

:SET “ACTSTR"'
;SAVE RO - RS

BNE

Etg

TST
BLT
SuB
BGT
JSR
INC
TST
cMP
BGT
RESREG
CLRB

TIMER(R3)
2%
2(SP) ,TIMER(R3)
2%
PC,STO
R1
(R3)+
#8. .R1
1%

MOV
RTS

ACTSTR

(SP)+,(SP)
PC

:1F NON ZERO EXIT

:START WITH DRIVE 0

;1S THE TIMER RUNNING?
:BR IF NO

;COUNT THE INTERVAL
:BR IF NO_SOF TWARE TIMECUT

:CALL SOFTWARE TIMEOUT ROUTINE
sMOVE TO NEXT DRIVE

;0UT OF DRIVES?
:BR IF NO
;
;RESTORE RO - RS
sZERO ACTIVE SOF TWARE TIMEOUT ROUTINE FLAG
:ADJUST THE STACK
sRETURN

;SOF TWARE TIMEOUT ROUTINE

*NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER

“CALL:

STO

MoV
JSR

RE TURN

#DRVNUM,R1
PC.STO

;DRIVE NUMBER
s CALL

p
g

'
|
|

CZRMVBO RMQS5/3/2 EXT'D DR TST

RH/RM DRIVER INITIALIZATION CODE

1016 044760

MACRO V04.00

010146

STO:

N 14

4=-APR-81 11:57:12 PAGE 34=17
‘

MOV

R1,=(SP)

:SAVE R1

MOV

R3,=(SP)

:SAVE R3

1017 044762

010246

|
|

1019 044766
1020 044770

010446
013704

040650

MOV
MOV

1022 045000

004037

045302

JSR

1027 045006

045270

|
|

1018 044764
1021 044774

1003 045004

1008 045010
1029 045012
1030 045014

010346

010164

000012

105726
100436

040552

105761

040562

020137

040572
040634

000137

045270

052762

101000

001033

1033 045006
1034 045030

001030
013702

1036 045040

001404

1035 045034

1037 045042

1038 045046

1039 045052

1040 045060
1044 045064
1045 045070
1046 045074
1047 045100

004737

1050 045110

045654
040522
040600
040572
177777

116405

000016

1051 045114
1052 045120
1053 045122

136105
001007
105761

1056 045134
1057 045136

001035
000454

1054 045126
1055 045130

1059 045140
1060 045144
1061 045146

046510

004737
105061
105061
005037
012737

1048 045106 000470

001021
105761

MOV

MOV
RMDS

ST09

105761

1031 045020

1032 045022

000010

ST01:

1$:

040634

STO2:

040552
040562

040552

ST03:

040562

R&,=(SP)
RMADR,R4

R1,RMCS2(R4)
RO,RD.RM

:SAVE Ré
:GET ADDRESS OF ‘RMCS1"*

:SELECT THE DRIVE

:READ 'DRIVE STATUS REG'’
,

;1S "DRY'*=1?
:BR IF YES

STO02

:BR_IF YES

TSTB

DPRAS(R1)

(MP

R1,DTUM

JWP

ST09

JSR

:SAVE R2

(SP)+
STO2

DPINT(R1)

STO2
TRNSWT,R2
18

PC,GETREQ

:TRYING TO INTIALIZE THE DRIVE ?
:OUTSTANDING PORT REQUEST FOR THE DRIVE ?

:BR IF YES
:PICKUP TRANSFER WAIT QUEUE

: TRANSFER_UNDERWAY ON THIS DRIVE?

:BR IF _YES

:1F_NOT DON'T BOTHER DRIVES
:GET DPB ADDRESS

BIS

ABITIS!BIT09,16(R2)

ST09

JSk_
CLRB
CLRB
CLR
MOV

":SET THE ERROR FLAGS

PC,SVRH70
DRVACT(R1)
ULDFLG(R1)
TRNSWT
#=1,DTUM

:SAVE_RH/RM REGISTERS
:DRIVE IS IDLE
:CLEAR THE UNLOAD FLAG
:CLEAR DPB ADDRESS
:CLEAR THE TRANSFER DRIVE #

MOVB

RMAS(R4).RS

:READ ATTENTION REG

BNE
ST

STO06
DPRQS(R1)

:BR_IF YES - DRIVE NOT ONLINE
:OUTSTANDING PORT REQUEST FOR THE DRIVE 2

BITB
BNE
TSTB
BNE
BR

R2.=(SP)

1STB

BNE

BEQ

040636

105761
001003
105761

TSTB
BMI

BNE
MOV

000016

SEQ 018’

ATABIT(RI),RS
ST03
DPINT(R1)
STO7
ST09

:DON'T BOTHER OTHER DRIVES

IS ATTENTION FOR THIS DRIVE UP ?
:YES
:TRYING TO INTIALIZE THE DRIVE ?

:BR IF YES - NO RESPONSE TO REQUEST
:OTHER WISE EXIT

TSTB
BNE
TSTB

DPINT(R1)
18
DPRAS(R1)

:INITIALIZING THE DRIVE ?
:BR_IF_INIT PENDING
:PORT REQUEST PENDING ?

MOV
BR

#-1,TIMER(R3)
ST0%

:STOP THE TIMER
SEXIT

1062 045152

001446

012763
000442

177777

1066 045164
1067 045170

004737
000437

043056

STOS:

JSR
BR

P(,CI8
ST09

;GO HANDLE THE PARITY ERROR

1069 045172

105061

040552

ST06:

CLRB

DPINT(R1)

;CLEAR THE INITIALIZE INDICATOR

1071 045202
1072 045210
1073 045214
1074 045216
1075 045220
1076 045226

012763
004737
005702
001424
052762
000414

177777
046510

040614

140000

000016

MOV
JSR
ST
BEQ
BIS
R

#-1,TIMER(R3)
:STOP THE TIMER
PC,GETREQ
:GET THE DPB ADDRESS
R
:REQUEST IN QUEUE ?
STO09
:BR IF NOT
WBITIS!BIT14,16(R2)
:INFORM THE USER DRIVE NOT AVAILABLE
ST08
:FINISH

1078 045230

012763 177777

040614

MOV

#-1,TIMER(R3)

1063 045154
1064 045162

1070 045176

105061

040532

040614

1$:

ST07:

BEQ

CLRB

STQ9

DRYSTA(R1)

:BR_IF_NOT

:SET UNIT OFFLINE

;STOP THE

TIMER

MACRO v04.00

CZRMVBO RMOS/3/2 EXT'D DR TST

9=/RM DRIVER

B 1D

11:57:12 PAGE

34-18B

INITIALIZATION CODE

1079 045236

1080 045042
1081 045246

1082
1083
1084
1085
1086
1087

4-APR-B1

045250
045252
045060
045064
045270
045272

1088 045274

EERFEFERE

1069 045276
1090 045300

1100

1101 045302
1102 045310

1103 045312
1104 045320
1105 045324

1106 045326
1107 045330
1108 045332
1109 045340
1110 045344
1111 045350
1112 045354
1113 045356
1114 045362
1115 045366
1116 045370
1117 045372
1118 045374

045374
045400

1119 045402
1120 045406
1121 045410
1122 045414
1123 045416

1124 045420
1125 045422
1126 045426
1127 045430
1128 045436
1129 045442
1130 045444
1131 045446

1132 045450
1133 045452

105061

U04737
005702
001407
0127
00473
004737
012604
012603

012602

0460562
046510
100004

046414
045654

CLRB
JSR
18T

000016

STO8:
ST09:

012601
000207

BEQ
MOV
JSR
JSR
MOV
MOV
MOV

MOV
sROUTINE

s CALL

DPRQS (R1)

PC.GETREQ
R2

ST09
#BIT15!B112,16(R
PC,EMPTYQ
PC,SVRH70
(SP)+ R&

(SP)+ ,R3
(SP)+ ,R2
(SP)
+ ,R1

;CLEAR PORT REQUEST INDICATOR
;GET DPB ADDRESS
;QUEUE ENTRY FOR DRIVE ?
i?fl IF NONE

; INFORM USER OF PORT REQUEST ERROR

sCLEAR THE QUEUE FOR THE DRIVE

;SAVE THE REGISTERS
JRESTORE R4

JRESTORE R3

;RESTORE RZ

JRESTORE R1

JRETURN

TO RFAD A RH/RM REGISTER

JSR
X
INDE
ERRADR

RO,RD .RM

;AT THIS ADDRESS

;CONTENTS OF REG. IS ON THE STA(K

RETURN

013737
011646
013737
062037
0i3727
000000
000000
013766
013746
062716
032736
001037
017746
032716
001002
022620
000432

040646

045450

040650
045326

045326

045330
040650
000010
010000
173266
020000

004037

046600

005737
100405
032716
001402
005726

040634

104003

000002

MOV
MOV
MOV
ADD
RD.RM1: MOV
RD.ADR: .WORD
RD.WRD: .WORD
MOV
MOY
ADD
BIT
BNE
MOV

8IT

1%:

2%:

040000

045444

MCPEMX
,RD . RM2
(SP) ,=(SP)
RMADR
,RD . ADR

(RO)+.RD.ADR
(PC)+, (PC)+

0
0

RD.WRD,2(SP)
RMADR , - (SP)

#RMCS2
, (SP)

#MBIT12.a(SP)+
RD.RM3
R
, - (SP)
@RMAD

gg1113,(sp)

(5P)+, (RO) +
RD.RMé

;MAX. RETRYS ALLOWED

;SAVE RO FOR RETURN
;FORM THE DESIRED ADDRESS
JUSING THE BASE AND THE INDEX
JREAD THE DESIRED REGISTER OF
;ADDRESS IS FORMED HERE

;DID MCPE SET?
sBR IF YES
;ADJUST FOR RETURN

JEXIT

gO.ES.SAV

;SAVE THE ADDRESS IN "SESCAPE'

8M]
Bi7
BEQ

DTUW

2%
#BIT14,(SP)

:DATA TRANSFER UNDERWAY?

TST
BR

BIS
SWAB
MoV
INC
MOvB
3%:
.WORD
DEC
RD.RM?2: . WORD
BGE

(SP)+

RD.RM3
#BIT14,(SP)
(SP)

RMACR,
3%
33
65P)¢,3(PC)¢
§PC)*

RD.RM1

THE RM DRIVE

;REG. CONTENTS PUT HERE
JRETURN IT TO THE USER
;PUT THE ADDRESS ON THE STACK
;FORM THE ADDRESS OF RM(CS?2
;CHECK THE "NED' BIT
;BR IF DRIVE NON-EXISTENT
JREAD RMCS1

JSR
EMT
TST

040000

040650
045444

BNE
cMP
BR

;GO READ A REGISTER
JREG. INDEX FROM BASE
;ERROR ADDRESS=-PROCESS ERROR STARTING

;REPORT ‘MCPE'" ERROR

:NO

SCTRE' =17

:NO
;YES==CLEAN OFF THE STACK AND
.
;TAKE THE FATAL ERROR EXIT
;CLEAR "MCPE'" BY SENDING A *"1°" TQ "'TRE’
;POSITION BEFORE WRITING
;FORM ADDRESS OF HIGH BYTE

JWRITE THE HIGH BYTE OF RMCS1
;ADDRESS STORAGE
. sEXCEEDED MAX. RETRYS
:BR IF NO

CZRMVBO RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

MACRO Vv04.00

INITIALIZATION CODE

1134 045454

1135 045456

;}%9 045460

4-APR-81

011000

RD.RM3: MOV

(RO) ,RO

000200

RD.RM4: RTS

012616

MOV

”gg

:ROUTINE

1140

:CALL

1142
1143

:
3

1141

1144

JSR
INDE X

013737

040646

045640

1150 045500

012037

045552

000150

045550

1151 045504
1152 045506

1153 045514
1154 045516

016637
012616
001015
122737

002411
004037

000002

000000
045644
000316

1159 045534
1160 045540

112637
063737

045551
040650

013746

040650

032736

010000

1161 045546
1162 045550
1163 045552

1164 045554

042716

012737
000000
000000

1165 045560 062716
1166 045564

1167 045570
1168 045572

001025
004037

1172 045606
1173 045610

001420
016037

1169 045576
1170 045600
1171 045602
1174 045616
1175 045622

1176 045624

1177 045626

045632

1178 045634

000014
045644
032726

002341
011000

;}gz 045652

BIC

MOVB
ADD

1%:

WRT.R1: MOV
WRT.WD: .WORD
WRT.AD: .WORD

MOV

TO RETURN TO ON AN ERROR

;ERROR FREE RETURN

MCPEMX,WRT.R2

2(SP) ,WRT.WD
(SP)+,(SP)

(RO) +,WRT.AD

1%
#150,WRT.WD
1%
RO,RD.RM

(SP)

;MAX RETRYS ALLOWED

;SAVE THE WORD TO WRITE
:ADJUST THE STACK
sGET

INDEX OF REGISTER

IO BE WRITTEN

;BR IF NOT RMCS1
;1S THE COMMAND FOR DATA TRANSFERS?

;YES=-DON'T GET THE OLD A16 & A17, & PSEL
;NO---COMBINE A168A17, & PSEL WITH

;THE COMMAND BEFORE SENDING IT TO
:THE RH/RM

#*C7,(SP)

(SP)+,WRT.WD+1
RMADR,WRT.AD

:FORM THE ADDRESS OF THE DISK REG.

RMADR, - (SP)

:PUT THE ADDRESS ON THE STACK

(PC)+,a(PC)+
O
O

;LOAD THE DESIRED REG.
:WORD TO WRITE GOES HERE
:ADDRESS IS FORMED HERE

045302

WRT.R3
RO,RD.RM

BEQ
MOV

WRT.R4
-2(R0),1%

:BR IF 'PAR=0""
:PICKUP THE INDEX

JSR

RO,.ES.SAV

;SAVE THE ADDRESS IN *SESCAPE'

TST

(SP)+

:CLEAR OFF THE STACK

RMER
WRT.R3
BIT

000010

177776

045622

JSR
WORD

1%:

000003

WRT.R2:

000401
005720

WRT.R4:

000200

;ADDRESS

BNE
JSR

BIT

005726

1181 045642
1182 045644

1183 045646
1184 045650

BLT
JSR

;CALL THE ROUTINE TC LOAD(WRITE) THE REG.
JINDEX OF THE REGISTER TO BE LOADED

#RMCS2, (SP)

046600

005327

1180 045640

MOV

BNE
CMPB

;DATA TO BE LOADED ON THE STACK

ADD

004037

1179 045636

000010

045302

104004

MOV
MOV

177770

004037
000000

(45644

WRT.RM: MOV

RMCS1
WRT.R3
SWAR
045552

RO,WRT.RM

RETURN

045302

1155 045522
1156 045524
1157 045526

1158 045530

045550

DATA,=(SP)

ERRADR

1147 045462

;FATAL ERROR EXIT

(SP)+, (SP)

TO WRIiTE A REGISTER

MOV

”22

1148 045470
1149 045476

c15

11:57:12 PAGE 34-19

WRT.R3
EMT
DEC

.WORD

BGE
WRT.R3: MOV
BR
TST
WRT.RS: RTS

#BIT12,8(SP)+

#BITO03,(SP)+
RO,RD.RM
O

(PC)+

WRT.R1
(R0O) ,RO
WRT.RS
(RO) +
RO

:FORM THE ADDRESS OF RM(CS2
;CHECK THE

°NED' BIT

:BR IF DRIVE NON-EXISTENT
:CHECK FOR PARITY ERROR ON WRITE

:READ THE REG.
;REG. INDEX

;RETURN TO THIS ADDRESS ON ERROR
:REPORT THE PARITY ON WRITE ERROR
:DECREMENT THE ERROR COUNT
;RETRY COUNTER

:TRY AGAIN IF NOT FINISHED
:TAKE THE "PARITY ON WRITE'' ERROR EXIT
JEXIT
:ADJUST FOR ERROR FREE EXIT

;ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14

1189

sCALL

RH/RM DRIVER

g 3 SRR
R
RR2R22R2RE
3
S3ELEEE

INITIALIZATION CODE

MATRO V04.00

d b 3
e
D
d

045734
045734

000022

000200

000010

1%:

BIT
BNE
CLR
BR

~
n

wi v

TST
BEQ
MOV
MOVB
MOV
BEQ
CLR
CMP
BNE

040650
000010
000014

b o

MOV
JSR

SVRH70: SAVREG

5654
5656

D d b

b b b e
n
d

4-APR-81

H
:

045302

CZRMVBO RMOS/3/2 EXT'D DR TST

1214 045760

2%:
3%:

045734

000046

000002

045734

042756

1215 045762
1226 045766

1256 046045

046046
046047
046050

MOV
CMP
BEQ

4%:

s CALL
:
:
3
010446
013704
010164
011446
052716
000316
112714
032764
001002
005726
020402
112664
012604
000207

040000
000100
010000

000001

MOV
JSR
RETURN

MOovB
BIT
BNE

000010

1%:

2%:
;QUEUE

OCNT:

RMADR, Ré4

(R2) ,RMCS2(R4)
14(R2) ,R3

6$
33

:DPB POINTER TO R2

“SAVE THE DRIVES REG'S
*QUEUE ENTRY FOR THE DRIVE
‘BR IF NONE

;SELECT DRIVE
‘GET THE ERROR TABLE POINTER
YEXIT IF NO ADDRESS
*COUNTER & POINTER

3, #RMDB
REACHED THE BUFFER REGISTER ?
‘BR IF NOT
#B1T07 ,RMCS2(R4)”
:'OR* SET ?
28

BR IF SET

(R3)+
4
RO,RD.RM
0

“STORE RMDB AS ZEROES
* CONT INUE
‘READ THE SELECTED REGISTER
*REGISTER INDEX

(SP)+, (R3)+

*STORE THE REGISTER CONTENTS

3§, ARMEC2

THE

*ERROR RETURN ADDRESS

*REACHED THE END ?

*BR IF YES

*INCREMENT THE REGISTER INDEX
*CONTINUE READING THE REGISTERS
*PROCESS THE UNCORRECTABLE PARITY ERROR

*RESTORE RO - RS
*RETURN

INTERRUPT WITHOUT GETTING A ‘'TRE'

#DRVNUM,R1
PC,SET. IE

:DRIVE NUMBER TO R1
SSET “IE

R4, ~(SP)

:SAVE Ré

R1,RMCS2(R4)

-SELECT DRIVE

RMADR , Ré

(Rb) ,=(SP)

*PICKUP ADDRESS OF RMCS1
:READ_RMCS1

#MBITi4, (SP)
SSET THE ''TRE'' BIT OF THE WORD READ
(SP)
ADJU§Y FOR DATO
#B1T06, (R4)
SSET 'IE"
:
#BIT12.RMCS2(R4) "
;1S *NED''=1?

TST

§§P”

:YES==CLEAR '‘TRE"’

MOVB

(SP)+,1(R&)

:CLEAR ''TRE"’

.BYTE
.BYTE

0
0
0

DRIVE 0
DRIVE 1
omvs 2

.BYTE

DRIVE 4

MOV
RTS

(SP)+.R4
PC

“CLEAN OFF

THE STACK

*RESTORE R4
*RETURN TO CALLER

COUNT

.BYTE

TO SET

SEQ 0185

;SAVE RO = RS

R2
6$

RTS

SET.IE: MOV
MOV
MOV
MoV
BIS
SWAB

040650
000010

PC,SVRH?0

JSR
RESREG

JROUTINE

#DPBNUM,R2

42,38
1%
PC.CI7

ADD

5%:
6%:

1228 045770
1229
1230
1231
1232
1233

1234
1235
1236 045772
1237 045774
1238 046000
1239 046004
1240 046006
1241 046012
1242 046014
1243 046020
1244 046026
1245 046030
1246 046032
1247 046034
1248 046040
1249 046042
1250
1251
1252
1253 046044

JSR
.WORD
5%

D15

11:57:12 PAGE 34-20

DRIVE 3

CZRMVBO RMQS5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

046051
046052
1257 046053

4-APR-81

000
000
000

BYTE
BYTE
BYTE

}Sgg

E 15
11:57:12 PAGE 34-21
O
O
0

SEQ 018¢

;DRIVE §
JDRIVE 6
;DRIVE 7

:QUEUE INPUT POINTERS

1260 046054

046136

046060
046062
046064
046066
046070
s 046072

046176
046216
046236
046256
046276
046316

1263 046056

QINPT:

046156

}ggg

.WORD

QDRVO

;DRIVE 0

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

QDRV?
QDRV3
QDRV4
QDRVS
QDRV6
QDRV7

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

.WORD

QGDRV1

JDRIVE

2
3
4
§
6
7

;QUEUE OUTPUT POINTERS

1267 046074
1270 046076

046136
046156

046104

046236

046100
046102

046256
046276
046316

1272 046114
1273 046116
1274 046120

046136
046156
046176

1275 046122
1276 046124
1277 046126

1278 040130
1279 046132

}ggg 046134

QOUTPT:

046176
046216

046106
046110
iy 046112

.WORD
.WORD

QDRVO
QDRV1

;DRIVE 0
;DRIVE 1

.WORD

QDRV4

;DRIVE 4

.WORD
.WORD
.WORD
.WORD
.WORD

QSTART:
QSTOP:

046216
046236
046256
046276
046316

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

046336

.WORD

}ggg

QDRV2
QDRV3

QDRVS
QDRV6&
QDRV7
QDRVO
QDRV1
QDRV2

QDRV3
QDRV4
QDRVS
QDRV6
QDRV7

QTERM

:DRIVE 2
;DRIVE 3
;DRIVE S
:DRIVE 6
;DRIVE 7
:DRIVE O START ADDRESS
;DRIVE O STOP ADDRESS & DRIVE 1
:STOP DRIVE 1--START DRIVE 2

:STOP DRIVE 2--START DRIVE 3
;STOP DRIVE 3--START DRIVE &
:STOP DRIVE 4--START DRIVE 5

:STOP DRIVE 5--START DRIVE 6
:STOP DRIVE 6--START DRIVE 7

:STOP DRIVE 7

:DRIVE REQUEST QUEUES

1286 046136

}sgg

MACRO v04.00

046156
046176
046216
046236
046256
046276
046316

QDRVO:

QDRV1:
QDRV2:
QDRV3:
ODRV4:
QDRVS:
ODRV6:
QDRV7:
QTERM=,

046336

1533

}S%%

1291

:CALL

104412

1295 046340

012702

1297 046346

005022

1296 046344

.BLKW
.BLkW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

10
10
10
10
10
10
10

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

1294 046336

.BLKW

005022

046044

CLRQUE:

JSR
SAVREG

PC,CLRQUE

MoV

#QCNT ,R2

(LR

(R2)+

(LR

(R2)+

:SAVE RO - RS
;ZERO THE

QUEUE

JDRIVES Q0 & 1

;DRIVES 2 € 3

COUNTS

START ADDRESS

CZRMVBO RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

MACRO Vv04.00

4=-APR=-81

1298 046350

1299 046352

WVIRUMNOND
= AN

000010
046114

1%:

000010
066114

2%:

NN = O

o b

WWN NN NN N NN

*CALL
§
:

3 00O
R
X
S

L
Rt

WYLSLSLSTNL
NN
O LCONOWV
S

b b wd
b nd
il

S NNV =OOV00
NN S W - oV®

DARNN
R RRRRERRR RN

DEC
BNE

SEQ 0187

(R2)+
+
(R2)

;DRIVES 4 & §
:DRIVES 6 & 7

#QSTART ,R1

JADDRESS OF THE QUEUE INTO
;THE QUEUE INPUT POINTER

#8. ,R3

MOVE

(R1)+,(R2)+
R3
1%

THE STARTING

MOV
MOV

#8..R3

JMOVE iHE STARTING ADDRESS

DEC
BNE

(g?)*.(R?)’

;QUEUE OUTPUT POINTER

MOV

#QSTART ,R1

;OF

0
:

THE QUEUE

INTO THE

;RESTORE RO - RS

;EMPTY THE QUEUE SPECIFIED BY R1

NWWININANWN

T B

—y —

1331
1332
1333
1334
1335
1336
1337

MOV

RESREG
RTS

—y

388

1300 046354

CLR
CLR
MOV
MOV

F 15
11:57:12 PAGE 34-22

105061

006301
016161
006201
000207

046044

046054

EMPTYQ:

046074

CALL
:

;
046434
046442
046444
046450
046452
C46456
046464
046472
046474
046502
046504
046506

122761
001421
105261

006301
010271
062761
026161
001003
016161
006201
005720
000200

000010

046044

DRVNUM,R1

CLRB

QCNT(R1)
;CLEAR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1) ,QOUTPT(R1)
;SET OUTPUT QUEUE POINTER=INPUT POINTER
R1

ASL

MOV
ASR
RTS
;ROUTINE

DRVQUE:

046044
046054
046116

046114

046054

PC.EMPTYQ

TO PUT A REQUEST

MOV
MOV

JSR

RE TURN1
RE TURNZ
(MPB

BEQ
INCB
ASL

046054
000002
046054

;DRIVE NUMBER TO R1

MOV
JSR

1%:

MOV
ADD
CMP
BNE
MOV
ASR

2%:

RTS

18T

IN QUEUE

#DRVNUM R
#DPB,R2
RO,DRVQUE

;DRIVE NUMBER
;ADDRESS OF PARAMETER BLOCK
;GO0 PUT REQUEST IN QUEUE
;RETURN HERE IF QUEUE IS FULL

sRETURN HERE IF REQUEST IS IN QUEUE
#10,QCNT(R1)

ggNT(Rl)

;1S QUEUE FULL?

;BR IF YES-TAKE RETURN1
; INCREMENT QUEUE COUNT

R2.aQINPT(R1)
;PUT THIS REQUEST IN QUEUE
#2,QINPT(R1)
;UPDATE THE QUEUE POINTER
QINPT(R1),QSTOP(R1)
:TIME TO RESET THE POINTER
1%
:BR IF NO
g?TART(R1),OINPT(R1)
s YES=-~RESET POINTER

(RO)+
RO

s TAKE RETURN 2
;RETURN TO USER

TO GET THE 'DPB'' ADDRESS OF NEXT REQUEST IN QUEUE
:ROUTINE

LCALL
:

MOy

RETURN

JSR

#DRVNUM ,R1
PC,GETREQ

sDRIVE NUMBER TO R1
;GO GET

THE REQUEST

;R2="DPB'' ADDRESS OF THE REQUEST
;R2=0 IF NO REQUEST IN QUEUE

CZRMVBO RMQS/3/2 EXT'D DR TST

RK/RM DRIVER

INITIALIZATION CODE

1355 046510

005002

1357 046516
1358 046520
1359 046522
1360 046526
1 046530

001404

105761

006301
017102
006201
000207

18:

046074

2%:
JROUTINE
s CALL

:
:
:

1370 046532
1371 046536

1372 046540
1373 046544

1374 046550

1375 046556
1376 046564

1377 046566
1378 046574

137G 046576

4=-APR-B1

GETREQ:

46044

wnho

ELEEE et

1356 046512

MACRO v04.00

105361

006301
017102
005071

062761
026161
001003
016161
006201
000207

046044

(LR

TSTR

BEQ
ASL
MOV
ASR

RTS

046074
046116

046114

046074

MOV
JSR

RETURN

MOV
(LR
ADD

1%:

34-23

R
QCNT(R1)

1391 046604
1392 046610
1393 046614

1394 046616
1395 046622

012037
013746

005037
000000
012637
000200

CMP
BNE
MOV
ASR
RTS

JSR
ERROR
RETURN

+NO

;PICKUP 'DPB'' POINTER FOR THIS DRIVE

;RETURN TO USER

)

#DRVNUM,R1

PC,POPQUE

;DRIVE NUMBER TO R1
sCALL TO REMOVE REQUEST

;R2=ADDRESS OF DPB REMOVED

g%NT(R1)

;DECREMENT QUEUE COUNT

@QOUTPT(R1
,R2
)

;GET THE 'DPB’’ POINTER
;REMOVE DPB ADDRESS FROM THE QUEUE
;UPDATE THE QUEUE POINTER

@QOUTPT(R1)

#2,Q0UTPT(R1)
QOUTPT(R1) ,QSTOP(R1)
1%
:NO~-BR
QSTART(R1) ,QOUTPT(R1)
R1
PC
;RETURN

RO,ES.SAV
N

;TIME TO RESET THE POINTER?
TO EXIT
;YES=-RESET THE POINTER

TO USER

°*SESCAPE' WHEN THE DRIVER

;. THE ERROR CALL
:THE RETURN IS PAST THE ERROR CALL

.WORD

$ESCAPE
0

;GET THE ERROR CALL
sSAVE THE ADDRESS IN °"SESCAPE®
;CLEAR THE ESCAPE RETURN
:THE ERROR CALL IS MOVED HERE

RTS

JRETURN

046614
001222
001222

ES.SAV: MOV
MOV
CLR

001222

MOV

1%:

;1S THERE ANY REQUEST IN QUEUE?

1)
a@QOUTPT(R,R2

;ROUTINE TO SAVE THE CONTENTS OF
;REPORTS AN ERROR DIRECTLY.

s CALL
3
3
3

SEQ 0188

TO 'POP'' THE REQUEST FROM QUEUE

POPQUE: DECB
ASL

046074
046074
000002
046074

G 15

11:57:12 PAGE

(RO)+,18
$ESCAPE ,-(SP,
(SP) +,$ESCAPE

;RESTORE

THE ESCAPE ADDRESS

CZRMyB0O RMQS/372 EXT'D DR TST

MACRO v04.00

L —

:
:
005737
001427
005037
012700
012703
011004
004037
000402
000767
000412
010420
012703
011004
004037

000402
000756
000401
010420
010410
013701

012737
005777
010137
012700
012701
012021
012021
000207

40 046746
41 046750
42 046754
43 046756
44 046760
45 046764
46 046766
47 046772

001724
005037
000137

49 046776
50 047006

200
200

4«8

IS USED TO ENSURE

THE BUS ADDRESS

s CALL

001324

001324
001592
046776

1%:

035542

2%:

0470006
035542

JSR
RE TURN

PC,GETADR

TST

BUSADR

:INPUT FROM TTY REQUESTED?

CLR
MOV

BUSADR
#RH.ADR,RO

JYES~~CLEAR THE REQUEST FLAG
FIRST ADDRESS

BR
MOV

JSR
BR

4%
R4, (RO)+
#MRMVEC ,R3
(RO) R4
RO, GE TNUM
3%

BR
MOV

49
R4, (RO) +

MOV

#63% ,ERRVEC

BEQ

MOV
MOV
JSR
BR
BR
MoV
MOV

B8R
3%:

000004

046750

132554
000004
001502
040650

000004

4%:
5%:

MOV
MOV
TST

MOV

MOV
MOV
MOV

MOV

010137
022626

000004

005737

000042

104010

GETADR:

4% :

001330
021334

122
122

MRM(CS1:
MRMVE(C:

AMRMCS1,R3
(RO) ,R4
RO, GE TNUM
2%
1%

R4, (RO)
ERRVEC ,R1
aRH.ADR

R1,ERRVEC

#RH.ADR,RO
#RMADR ,R1

(RO)+,(R1)+

JNO==BRANCH

J'RMCS1="
PRESENT RMCS1 ADDRESS
.GET NEW RM(CS1
; COMMA
;PERIOD
;DOUBLE PERIOD
SAVE NEW RM(CS1

' RMVEC="’
PRESENT RH/RM VECTOR ADDRESS
JGET NEW RMVEC
;CGH!A

;PERIOD

;DOUBLE PERIOD
;SAVE NEW RMVEC

:SAVE INPUT
2SAVE THE ERROR VECTOR

;SETUP FOR TRAP

;CHECK FOR RH/RM

JRESTORE ERROR VECTOR

sFIRST ADDRESS OF NEW PARAMETERS
;FIRST ADDRESS OF WHERE TO PUT THEM
;BUS ADDRESS

(RO)+,(R1)+

;VECTOR ADDRESS

R1,ERRVE(C
ggp)*.(SP)*

;RESTORE ERROR VECTOR
JCLEAN OFF THE STACK

RTS

1ST

aNe?

.ASCIZ
.ASCIZ

<CRLF>/RM(CS1=/
<CRLF>/RMVE(C=/

MOV
g::
BEQ
CLR
JMP

36 046732
37 046736
38 046742
39 046744

SEC 0189

:0F THE RM/RM 1S SETUP TO READ THE P PER VALUE.
J1T WILL ALSO READ THE ADDRESS FROM THE TTY [f
:REQUIRED.
JNOTE: THIS ROUTINE DESTROYS RO=R4

—

35 046726

H 15

11:57:12 PAG E 35

GETADR = GET BUS ADDRESS AND VECTOR ADDRESS

sTHIS ROUTINE

066624
046630
046632
046636
046642
046646
046650
046654
046656
046660
046662
046664
046670
26 046672
27 046676
28 046700
29 046702
30 046704
31 046706
32 046710
33 046714
34 046722

.SBTTL

—

NN
NM) =t od ecd e
s = e b
WV SN
- OV NN WN—=OD
NN W -

GETADR = GET BUS ADDRESS AND VECTOR ADDRESS

4=APR=-81

1%
DRVSEL
$EOP

+RETURN

;1S THERE A MONITOR?

:NO=-=-GO ASK FOR ADDRESS
;FUDGE NO DRIVES SELECTED
JRETURN TO SEOP

CZRMVBO RMOS/3/2 EXT'D DR TST

DPB

(DATA PARAMETER BLOCKS)

;

3 047016

& 047017
5 067020
6 047021

000

000
000
000

MACRO Vv04.00

4=-APR-81

[ 15
11:57:12 PAGE 36

.SBTTL

DPB (DATA PARAMETER BLOCKS)

DPB.A:

.BYTE

;(0) DRIVE NUMBER

.(4)
WORD COUNT

BYTE
BYTE
BYTE

0
0
0

.WORD

BUFFER

7 047022

000000

9
10 047026
11

000

BYTE

12 047027

000

BYTE

14 047030

000000

.WORD

8 047024

15 047032

WORD

054522

047140

.WORD

RM.REG

22
23

30 047041

000000

LWORD

000

000
000

DPB.B:

000

.BYTE

BYIE

-0

BYTE
BYIE

;(14)

INDEX

CYLINDER ADDRESS

ERROR TABLE POINTER

;POINTS TO THE FIRST OF

TWENTY

THE DRIVER

LEFT

;ZERO REGISTERS ARE NOT SAVED.
.(16) STATUS/ERRM INDICATOR

;BIT15=1=>ERROR OCCURRED
;BIT07=1=>DONE

;(0) DRIVE NUMBER

.WORD
.WORD

=2
BUFFER

:(4) WORD COUNT (MUST BE NEG.)
: (6) BUFFER ADDRESS OR
JREGISTER TABLE POINTER

JYIE

36 047047

000

BYTE

000000
047140

.WORD
.WORD

O
RM.REG

41
42
43

:(3) PSEL AND A17 AND A16
:(10) SECTOR ADDRESS OR
sFIRST REG.

INDEX

:(11) TRACK ADDRESS OR

;LAST REG. INDEX
:(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
sPOINTS TO THE FIRST OF TWENTY

;LOCATIONS OF WHERE THE DRIVER
;IS TO STORE THE RH/RM
JREGISTERS ON AN ERROR. IF LEFT

45 047054
46
47

000000

51 047056

000

53 047060
54 047061

000
000

LWORD

48
gg

S5 047062
56 047064
57

;(12)

;(1) OFFSET VALUE OR FMT16, ECI, AND HCI
:(2) COMMAND

000

52 047057

JLAST REG.

0
0

'54 047046

;(11) TRACK ADDRESS OR

; INDICATE TYPE OF ERROR

177776
054522

37
38 047050
39 047052
40

JREGISTER TABLE POINTER
;(10) SECTOR ADDRESS OR
,FIRST REG. INDEX

:BIT14-BIT09 AND BIT06-B1T03

31 047042
38 047044
35

:; (6) BUFFER ADDRESS OR

JREGISTERS ON AN ERROR.

28 047037
29 047040

(MUST BE NEG.)

;15 TO STORE THE RH/RM

27 047036

;(1) OFFSET VALUE OR FMT16, ECI, AND H(]
;(2) COMMAND
;(3) PSEL AND A17 AND A16

;LOCATIONS OF WHERE

20
21 047034

SEQ 0190

;ZERO REGISTERS ARE NOT SAVED.

;(16) STATUS/ERROR INDICATOR
;BIT15=1=>ERROR OCCURRED
;BITO7=1=>DONE

;BIT14-BIT09 AND BITO6-BITO3
;INDICATE TYPE OF ERROR

000

177776
054522

DPB.C:

BYIE

;(0) DRIVE NUMBER

0
O

:(2) COMMAND
:(3) PSEL AND A17 AND Al16

BYTE

.WORD
.WORD

=2
BUFFER

BYTE
.BYTE

2(1) OFFSET VALUE OR FMT16, ECI, AND HCI
.(4) WORD COUNT (MUST BE NEG.)
:(6) BUFFER ADDRESS OR
JREGISTER TABLE POINTER

CZRMVBO RMOS/3/2 EXT'D DR TST
(DATA PARAMETER BLOCKS)

J
11:57:12 PAGE

BYTE

000000
047140

.WORD
.WORD

0
RM.REG

000000

.WORD

000

60 047067

000

62 047070
63 047072
64

4-APR-81

BYTE

28 047066

36+1

SEQ 0191

10 ) SECTOR ADDRESS CR
IRST REG. INDEX

11) % TRACK ADDRESS OR
;LAST
REG. INDEX

12) CYLINDER ADDRESS
4)

71
72
73
74
75 047076

000

77 C47100
78 047101
79 047102

000
000
000000

81
gg 047106

000

93 047114

DTADPB:

054522

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

000

.BYTE

000000
047140

.WORD
.WORD

000000

.WORD

DRIVE NUMBER

2
; (3)

COMMAND
PSEL AND A17 AND A16

UFFER

[}

000

P
m

84 047107
85
86 047110
87 047112

4=BIT09 AND BIT06-BIT03
CATE TYPE OF ERROR

' lelelolele)

80 047104

5=1=>ERROR OCCURRED
7=1=>DONE

EOOO

76 047077

——t
O A O

67
68
ég 047074

ERROR TABLE POINTER

1 NTS TO THE FIRST OF TWENTY
C ATIONS OF WHERE THE DRIVER
TO STORE THE RH/RM
'
STERS ON AN ERROR. IF LEFT
REGISTERS ARE NOT SAVED.
STATUS/ERROR INDICATOR

€5

OFFSET VALUE OR FMT16, ECT, AND HCI

160) WORD COUNT (MUST BE NEG.)
) BUFFER ADDRESS OR
E GISTER TABLE POINTER
1 0) SECTOR ADDRESS OR
1 RST REG. INDEX
1 1) TRACK ADDRESS OR
LAST REG. INDEX

;(12) CYLINDER ADDRESS

:(14) ERROR TABLE POINTER

sPOINTS TO THE FIRST OF
;LOCATIONS OF WHERE THE
;1S TO STORE THE RH/RM
;REGISTERS ON AN ERROR.
sZERO REGISTERS ARE NOT
;(16)

TWENTY
DRIVER

IF LEFT
SAVED.

STATUS/ERROR INDICATOR

;BIT15=1=>ERROR OCCURRED
;BITO7=1=>DONE
;BIT14-BIT09 AND BIT06-BIT03
: INDICATE TYPE OF ERROR

047116
047117
047120
047121
047122
047124

000
000
107
000
000000
054522

106 047126

J\w'\)-‘ogm\l

99
100
101
102
103
104

DPB

MACRO Vv04.00

DPB.R:

.BYTE

RECAL

BYTE

SYE
.WORD

O
O

.WORD

BUFFER

000

.BYTE

047127

000

JA¥E

047130
047132

000000
047140

.WORD

RM.REG

;(0) DRIVE NUMBER
;(1) OFFSET VALUE OR FMT16, ECI, AND HCI

']
.

'
'
l
'
.
'
0

l
0

l
.

'
D

6) BUFFER ADDRESS OR
EGISTER TABLE POINTER
10) SECTOR ADDRESS OR
IRST REG. INDEX
11) TRACK ADDRESS OR
AST REG. INDEX
)
)

CYLINDER ADDRESS
ERROR TABLE POINTER
NTS TO THE FIRST OF TWENTY
ATIONS OF WHERE THE DRIVER
TO STORE

THE RH/RM

K 15
11:57:12 PAGE 36~2

0647134

000000

WORD

000000

.WORD

:(16) STATUS/ERROR INDICATOR

d el e
B
D d

RM.REG:

000000
000000

.WORD
.WORD
LWORD

0
0
O

JRMCS1 (776700) CONTROL & STATUS #1
Rmc (776702) WORD COUNT
RMBA (776704) BUS ADDRESS

.WORD

YRMCS2 (776710) CONTROL & STATUS #2

LWORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD '

—

hd ad o
o

:BIT15=1=>ERROR OCCURRED
:BIT07=1=>DONE
JBIT14=BIT09 AND BIT06-BIT03
;INDICATE TYPE OF ERROR
JSKIP SECTOR ENABLE INDICATOR (ENASLED =1)

:SAVE RH/RM REGISTEZRS HERE ON ERROR

047176

141

8 047170
139 047172
140 047174
142 047209
143 047202

144 047204
145 047206

146

SEQ 019¢

JREGISTERS ON AN ERROR., IF LEFT
sZERDO REGISTERS ARE NOT SAVED.

wnn

4-APR-81

D e

FORERETE
VO NPWNEH
AN -=O000 N

PONIPONIPOPINIPD
= b s -3 —

—

(DATA PARAMETER BLOCKS)

MACRO v04.00

o o

DPB

CZRMVBO RM0S5/3/2 EXT'D DR TST

LWORD
.WORD
.WORD
.WORD

0
0
O
0
O
0
O
0
O
0
0

0
0
0
0

RMDA (776706) DESIRED SECTOR/TRACK
RMDS (776712) DISK STATUS
*RMER1 (776714) ERROR REG. #1
:RMAS (776716) ATTENTION SUMMARY
JRMLA (776720) LOOK AHEAD
;RMDB (776722) DATA BUFFER
:RMMR1 (776724) MAINTAINABILITY
.RMDT (776726) DRIVE TYPE
JRMSN (776730) SERIAL NUMBER
:RMOF (776732) OFFSET
.Wc (776734) DESIRED CYLINDER
;RMHR (776736) CURRENT CYL INDER
JRMMR2
;RMER2
:RMECT1
;RMEC2

(776740)
(776742)
(776744)
(776746)

ERROR REG #2
ERROR REG #3
ECC POSITION
ECC PATTERN

}
-

CZRMVBO RMOS/3/2 EXT'D DR TST

ASCIZ MESSAGES

MACRO v04.00

;

3 047210

122

000

7 047223
8 047226

106
114

1264
124

114
m
106

124
124
123

& 047212
5 047215
6 047220
9 047231
10 047234

11 047240
12 047244
13 047250

106
114
m

m
106

103
103
103

000
000
000

124
124

000
047

000
000

123
101
000

000
124

103

117

19 047307

040

057

040

20 047313
21 047331
22 047342
23 047352
24 047367
25 047377
26 047420
27 047440
28 047445
29 047452
30 047457
31 047510
32 047515
33 047520
34 047605
35 047617
36 047625
37 047634
38 047645
39 047703
Z? 047727

200

MSG.R:

.ASCIZ

/R/

MSG.FT:
MSG.LT:

.ASCIZ
.ASCIZ

/F1/
/LT/

MSG.FC:
MSG.LC:
MSG.IC:
MTMSG.IT:
MES.FT:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ

/FC/
/LC/
/IC/

/11/
/F7'/

.ASCIZ
.ASCIZ
.ASCIZ

/LT'/
/IT'/
/FS/

MSG.CS:

.ASCIZ

<CRLF>/CONTROL SWITCHES=/

SLASH:

.ASCIZ

@/ a

MSG.LS: .ASCIZ
MSG.PAT:.ASCIZ
MSG.EQ: .ASCIZ

/LS/
/PAT/
/=/

200
116
054
200
115
200
200
040
105
200
200

125
117
117
116
125
116
m
115
115
115
104
117
040
116
102
124
104
104
130
116
116

116
106
116
117
116
117
123
060
060
060
122
116
000
117
101
105
122
122
103
117
117

UNSTAT:
UNTOFF:
UNTON:
NOTPRS:
NOTSAF:
NOTRM:
LODEV:
$RMO2:
SRMO3:
$RMOS5:
DRIVES:
NONE:
COMMA:
NOCLOK:
SERIJAL:
MSGTIST:
MSDRIV:
DROP:
EXCEED:
NODRVS:
NOTEST:

047754
050005
050052
050112
050136

200
200
200
200
200

012
012
012
012
040

122
117
101
115
052

ROTATE:
ONECYL:
AVERGE:
MXSEEK:
FwWD:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ

<CRLF><LF>/ROTATIONAL
-SPEED TIMES/
<CRLF><LF>/ONE CYLINDER SEEK TIMES/<CRLF>/ * FORWARD/
<CRLF><LF>/AVERAGE SEEK TIMES/<CRLF>/ * FORWARD/
<CRLF><LF>/MAXIMUM SEEK TIMES/
<CRLF>/ *» FORWARD/

49 050166

200

115

111

MSGMIN:

.ASCIZ

<CRLF>/MIN=/

52 050210
53 050215

060
040
040
040
040
040

040
102

125
105
102
105
105
117

MSGOUS: .ASCIZ
MBELOW: .ASCIZ

42
43
44
45
46

2; 050152

50 050174
51 050202
54 050244

55 050273
56 050313
57 050330

200
040
040
040
040

ASCIZ MESSAGES

MES.LT:
MES.IT:
MSG.FS:

114
120
075

L 15

11:57:12 PAGE 37

LSBTTL

047
047
000

14 047253
15 047256
16 047262

}g 047264

4=-APR=-81

040
040
122
122
122

200
200
200

040
115
101
101

123
123
116

052
101
126

REV:

MSGMAX:
MSGAVG:
MABOVE:

_ASCIZ <CRLF>/UNIT STATUS:/
.ASCIZ / OFFLINE/
.ASCIZ / ONLINE/
.ASCIZ / NOT PRESENT/
.ASCIZ / UNSAFE/
.ASCIZ @ NOT AN RMO5/3/2a
.ASCIZ / IS LOAD DEVICE/
.ASCIZ /RM02/
.ASCIZ /RMO3/
.ASCIZ /RMO5/
.ASCIZ <CRLF>/DRIVE(S) TO BE TESTED, /
.ASCIZ /NONE/
_ASCIZ /, /
.ASCIZ <CRLF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/
.ASCIZ aMBA S/N: a
.ASCIZ <CRLF>/TEST/
.ASCIZ <CRLF>/DRIVE/
.ASCIZ / DROPPED/
.ASCIZ /EXCEEDED MAXIMUM ERROR LIMIT/<CRLF>
.ASCIZ <CRLF>/NO DRIVES TO TEST/<CRLF>
.ASCIZ
<CRLF>/NO TESTS SPECIFIED/<CRLF>

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

MSGSEA: .AS{IZ
MSGNUM: .ASCIZ
MSGNON: .ASCIZ

<CRLF>/ * REVERSE/

<CRLF>/MAX=/
<CRLF>/AVG=/
/0 US/
/ BELOW THE MINIMUM OF /
/ ABOVE THE MAXIMUM OF /
/ SEARCHES TIMED/
/ SEEKS TIMED/
/ NOT TIMED/

SEQ 0193

CZRMVBO RMQS/3/2 EXT'D DR TST

ASCIZ MESSAGES

58 050343

59 050344
60 050345
61 050346
62 050350
63 050425
64 050500
65 050542
66 050604

MACRO V04.00

040

040
040
040
101
101
101
101
101

000
114
114
114
114
114

114
114
114
114
114

&4<-APR=81

BLNKS&:

,ASCII

MSG11X:
MSG12X:

.ASCIZ
.ASCIZ

BLNKS3:
BLNKSZ2:
BLNKS1:
MSG7XA:
MSG7XB:
MSG10Xx:

,ASCII
.ASCII
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ

11:57:12 PAGE 37~1
7/ /

/ /
7/ /
/ /
QALLOWABLE ROTATIONAL SPEED LIMITS FOR RMOS/33
/ALLOWABLE ROTATIONAL SPEED LIMITS FOR RMOZ/
/ALLOWABLE ONE CYLINDER SEEK Limivr/
/ALLOWABLE AVERAGE SEEK TIME LIMIT/
/ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT/

SEQ 0194

CZRMVBO RMOS/3/2 EXT'D DR TST

| ERROR HEADER (EM) MESSAGES

MACRO V04.C0

;
3 050660
4, 050732

122
125

7 051061

101

9 051173
10 051230
11 051255
12 051302

104
1M
104
104

122
115
101
111

14
15
16
17

104
123
122
106

11
105
110
101

S 050770
6 051025
8 051115

13 051334

051403
051432
051472
051506

110
116

SEQ 0195

ERROR HEADER (EM) MESSAGES

040
105

EMI1:
EM2:

LASCIZ
LASCIZ

/RH CONTROLLER INTERRUPT OCCURRED (RMAS=0)/
/UNEXPECTED ATTENTION OCCURRED/

104

EMS:

.ASCIZ

/ADDRESS PLUG CHANGE BIT SET/

101
101

122

110

040

114

117

103

N 15

11:57:12 PAGE 38

.SBTTL

115
115

104

4-APR-81

123
123

EM3:
EM&4:
EM10:

LASCIZ
LASCIZ

,ASCIZ

111
120
124
123

EM11:
EM12:
EM13:
EM17:

.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ

123
105
057
1264

EM23:
EM24:
EM41:
EM46:

.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ

EM20:

.ASCIZ

/MASSBUS PARITY ERROR(MCPE=1)/
/MASSBUS PARITY ERROR(PAR=1)/

/RH CONTROLLER FAILED TO RESPOND TO ADDRESSING/
/DRIVE SELECTED IS NOT ONLINE/
/IMPROPER HEADER DATA/
/DATA COMPARE FAILURE/
/DISK ERROR IN TIMING TEST/
/CLOCK

(KW11=P)

OVERFLOW IN TIMING TEST/

/DISK ERROR DURING SEEK/
/SEEK NOT COMPLETE WITHIN 120 MS/
@RH/RM ERROR®
.
/FATAL WRITE CHECK ERROR/

(ZRTM/B0 RMOS/3/2 EXT'D DR TST

STATUS/ERROR INDICATOR MESSAGES

MACRO v04.00 4-APR-81 11:57:12 PAGE 38

;

.SBTTL

3 051536

117

5 051631
6 051653
7 051701
8 071724

120
120
106
123

& 051600

9 051763

123

106

MSGB14: .ASCIZ

105
101
101
117

122
1%2
126
106

MSGB12:
MSGB11:
MSGB10Q:
MSGB09:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

12¢

MSGBO6:

.AS(IZ

124
111

MSGBO3:
MSGBOZ2:

116

106

122
116

122
123

105

122

13 052161
14 052231

101
104

125
122
122

15 052301

c—

10%
125

104

114

117

10 052025
11 05207
12 052141

125

STATUS/ERROR INDICATOR MESSAGES

111

MSGB13:

MSGBO8:

MSGBOS:
MSGBO4:

/OFFLINE OR UNSAFE DRIVE REQUESTED/

.ASCIZ

/UNLOADED DRIVE REQUESTED/

.ASCI.

/SOF TWARE TIMEOUT ON ANOTHER DRIVE/

.ASCIZ
.ASCIZ

°ERROR OCCURRED DURING NON=-1/0 OPERATION''
/UNSAFE OCCURRED/

.ASCIZ
.ASCIZ

MSGBO1: .ASCIZ

/PERSISTENT UNSAFE/
/PARITY ERROR OCCURRED/
/FATAL PARITY ERROR/
/SOF TWARE TIMEOUT ON THIS DRIVE/

‘'ERROR OCCURRED DURING /0 OPERATION''

/AUTOMATIC RECALIBRATE SEQUENCE OCC'JRRED/
/DRIVE HAS NOT RESPONDED TO PORT REFQUEST/

/DRIVE HAS BECOME NON-EXISTENT/

b wnid
i wed wd
s wnh e
i
e e
wd el
s
il el could carlh o
o

WL LV, LV B S
IV|
—'—‘-‘—‘OO—‘OOOO?OON—‘OONN
S orownnionanon
[ ARV RV LV, LV

ol e
il
i
st
sl i
il
il ol v

vy Vi

52564

sl sl

124

122
104
124
107
107
124
124
107
124
122
124
124
122
122
122
122

105
105
124

MESSAGES

(D1)

ol i

jeleleolelelololele] jelelolalelelolélelele

W= OO0 NN

PIRIPAIND
b b od e =d e i wnd o =

NN = O

NN -

DATA HEADER

OQOOONNONONINOON —=OMNMNNN
VNN WVIWNWN NN S NN B WW = WWWwWho

MACRO v04.00

CZRMYBO RMOS/3/2 EXT'D DR TST

4-APR-81

C 16

11:57:12 PAGE 40

.SBTTL

DATA HEADER (DT) MESSAGES

DH1:

LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

DH2:

DH3:
DH4:
DH10:
DH11:
DH12:
DH12A:
DH13A:
DH17:
DH21:
DH21A:
DH23:
DH23A:
DH41:
DH&Z2:
DH43A:
DH44A:
DH44RB:

DH45A:
.EVEN

/ERR PC

/ERR PC
/TEST
/TEST
/RMCS1
/DRIVE
/TEST
/GDCYL
/GDDAT
/TEST
/TEST
/GDDAT
/TEST

/RMER1

/TEST
/TEST
/RMER1

/RMCS1
/RMER1

/RMER1

RMAS/
DRIVE
ERR PC

ERR PC
ERR PC/
ERR PC/
ERR PC
GDTRK
BDDAT
ERR PC
ERR PC
BDDAT

ERR PC
RMMR2
ERR PC
ERR PC

RMMR2
RMCS2
RMMR2
RMMR2

SEQ 0197

RMAS
RMDS
RMERT
RMMR?
ADDRESS DATA/
ADDRESS GDDATA
BDDATA/
TST PC

WRDCNT

DRIVE
BDCYL
GDADR

CYLNDR
BDTRK
BDADR/

TST PC
TST PC

RMDC
DRIVE/
DRIVE

RMHR/

GDSCTR
DRIVE
TST PC
WRDCNT
DRIVE
RMER2

RMERZ/

TRACK
SECTOR/
BDSCTR/

RMCST
RMDS
RMERT
RMMR2
DRIVE
CYLNDR
TRACK/
SECTOR/
CYLNDR RMCS1T
RMCS2
RMDS/

RMER2/
RMHR
RMDS
RMER2/
RMER2
RMW(C

RM(ST
RMDC

RMBA

RM(CS2
RMDA/

RMDB/

RMDS/

RMERZ2/

CZRMVBO RMOS5/3/2 EXT'D DR TST

DATA

TABLE

(DT)

MACRO V04.00

;

3 053714

001132

001204

5 053736

001212

001132

4 053720

001132

001200

001204

045552

6 053746

001212

001132

8 054000

001502

001132

7 053760

9 0540064

10 054010
11 054026

12 054042

13
14
15
16

001212

001132

001202

001132

001212

001132

001212
001366

045326
001200

001132
001372

001176
001370

001176

054060
054072
054112
054126

001140
001212
001212
001200

001142
001132
001132
001142

001206
001352
001176
001206

18 054154
19 054166

047154
001212

047200
001132

047202
001176

21 054214

001212

17 054136

20 C54176

22 054232

23
26
25
26

001212

047154

001132

047200

054240
054256
054272
054300

001212
047140
(047154
001212

001132
047150
047200
001132

28 054332

047154

047200

27 054316

047140

047150

001352

4=-APR=-81

.SBTTL

DATA TABLE

DT1:

.WORD

DT3:

.WORD

DT2:

DT4:

DTS5:

DT10:

.WORD

.WOKD

DT11:

.WORD

DT13:

.WORD

DT12:
DT12A:
DT13A:
DT17:
DT21:
DT21A:
DT23:

DT23A:
DT41:

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

.WORD
.WORD

001176

DT42:

.WORD

047202

DT43A:

.WORD

001176

DT43:

.WORD

001176
047152
047202
001176

DT44:
DT44A:
DT44B:
DT45:

.WORD
.WORD
.WORD
.WORD

047202

DT45B:

.WORD

047152

D 16
11:57:12 PAGE 41

DT45A:

.WORD

SEQ 0198

(DT)

SERRPC,SREG3

SERRPC.SREG1,SREG3,RMERRS,RMERRS+2,RMERRS+6,
RMERRS +4

$TMPQ,S$ERRPC.RD.ADR,RD.WRD

$TMPO.SERRPC.WRT.ADR,WRT.WD,RD.WRD

$TMPO.SERRPC.SREG1,SREGS.,RMERRS ,RMERRS+2,RMERRS+6 , RMERRS +4

RH.ADR,SERRP(

SREGZ2,$ERRPC

$TMPO.SERRPC,SREGO,CHKDRY,CYL.DS,TRK.DS,SEC.DS
CYL.DS,TRK.DS,SEC.DS,CYL.RD,TRK.RD,SEC.RD

$TMPO,$ERRPC,SREGO, CHKDRV,CYL.DS, TRK.DS,SEC.DS

$GDDAT,SBDDAT,SREG4,
SGDADR, SBDADR
$TMPO,SERRPC, CHKDRY.RM.REG.RM.REG+12
,RM.REG+14 R .REG+40,RM.REG+42
$TMPO.SERRPC
.SREGO, CHKDRY,CYL .DS, TRK.DS
SREG1.S$BDDAT.SREG4.SREG1
$TMPO.SERRPC.CHKDRV,CYL.DS,RM.REG,RM.REG+10,RM.REG+12
RM.REG+14,RM.REG+40.RM.REG+42.RM.REG+34
,RM.REG+36
$TMPO,SERRPC.SREGO,
CHKDRV

STMPO.SERRPC.SREGO.CHKDRY,RM.REG,RM.REG+10,RM.REG+12
$TMPO.SERRPC.SREGO.CHKDRY

.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
RM.REG,RM.REG+10,RM.REG+1Z,RM.REG+36,RM.REG+34
,RM.REG+(6
RM.REG+14,RM.REG+40,RM.REG+42
$TMPO,SERRPC,SREGO,CHKDRV,CYL.DS,TRK.DS,SEC.DS

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

RM.REG+14,RM.REG+40,RM.REG+42 ,RM.REG+2,RM.REG+4 ,RM.REG+22

CZRMVBO RM05/3/2 EXT'D DR TST

. DATA FORMAT

(DF)

TABLE

3 0564346

000001

g 054351

000

4 054350

4=-APR=81

E 16

11:57:12 PAGE 42

.SBTTL

DATA FORMAT

DF1:

LWORD

BYTE

*ALL 3 NUMBERS ARE OCTAL

DF2:

JWORD

BYTE
BYTE

7
0

11 054356
12 054360
;2 054361

000001
004
000

DF 3:

LWORD
BYTE
BYTE

1
4
0

15 054362
16 054364
}g 054365

000001
005
000

DF&:

LWORD
BYTE
BYTE

1
S
0

19 054366

000001

DF10:

.woRD

55 054371

000

20 054370

002

TABLE

;NUMBER OF DATA HEADERS

000001

007
000

(DF)

BYTE

7 054352

8 054354
18 054355

002

MACRO V04.00

.BYTE
BYTE

*NUMBER OF WORDS

IN DATA TABLE

23 054372

000001

DF11:

.WORD
BYTE
BYTE

2
0

27 054376

000002

DF12:

.WORD

;2 DH'S TO BE TYPED

29 054401
30 054402
31 054404
gg 054405

160
052672
006
000

BYTE
"WORD
BYTE
BYTE

160
DH12A
6
0

*WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL
*ADDRESS OF 2ND DM
*6 DATA WORDS FOLLOW THE 2ND DH
*ALL WORDS ARE OCTAL

3, 054406
35 054410
36 054411
37 054412
38 054414
23 054415

000002
007
160
052751
005
004

DF13:

.WORD
BYTE
BYTE
-WORD
BYTE
BYTE

2
7
160
DH13A
§
&

41 054416
42 054420

000000
005

DF14:

.WORD
BYTE

O
§

45 054422
46 054424
2; 054425

000001
010
000

DF17:

.WORD
BYTE
BYTE

1
D8
0

49 054426

000002

DF21:

.WORD

S6 054436
57 054440

000000
004

DF22:

24 054374
Sg 054375

K28 054400

22 054421

50 054430
51 054431
52 054432
53 054434
gg 054435

002
000

007

004

006
060
053172
004
014

.BYTE

BYTE

BYTE
BYTE
.WORD
BYTE
BYTE

6
60
DH21A
4
14

.WORD
BYTE

O
4

:7 DATA WORDS FOLLOW THE 1ST DH

;WORD 3 IS DECIMAL

:WORD 3 IS DECIMAL

000002

007

DF23:

010
053316
005
000

BYTE

.WORD

72 054456
73 054460

000C0s
007
000

DF42:

.WORD

76
77
78
79

054462
(54464
054465
054466

000002
007
000
053506
003
000

DF43:

.WORD
BYTE

000003
co7

DF&4:

86
87
88
89
90

054472
054474
054475
054476
054500
054501
054502
054504

91 054505
92
93 054506
94 054510
95 054511
96 054512
97 054514
98 054515
99 054516
100 054520
101 054521
102
103
104 054522

105
106

BYTE

160

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

DF4S:

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

.SBTTL

START OF

.END

200

BUFFER:

000200

BYTE
.BYTE

.WORD
.BYTE
.BYTE

053534
006
00¢
053610
003
000

000003
007
160
053534
006
000
053636
006
000

.WORD

JWORD &4

H43A

o
o

054470
054471

DH23A
5
¢

BYTE

DF41:

80
81
82
83
84
85

7
10

.BYTE
. WORD

000001
004
000

74 0564461
75
"e

014

58 054441
59
60 054442
€1 054444
62 054445
63 054446
64 054450
65 054451
66
67
68 054452
09 054454
;? 054455

TABLE

F 16
11:57:12 PAGE 42-1

F
P

(DF)

4-APR=-B1

44B

CATA FORMAT

MACRO v04.00

COTOOND -~ OWROOPZSNW OWZONN ON-— Of—

CZRMVBO RMQOS/3/2 EXT'D DR TST

H44A

H45A

READ/WRITE BUFFER

SEQ 0200

IS DECIMAL

cI3

042234

DDISP
DECSEC
DECSK
DELTA
DFLT
DF1
DF10
DF11

DF12
DF13
DF 14
DF17

DF2

DF21
DF 22
DF23

DF3

4
DF

DF41
DF42
DF43
DF 44
DF45
DH1
DH10

033766

046336

037676
027334
001322
047515
000100
033000
022256
000015
000200
001366
001360
001314
034474
100000
177570
033704
010110

wd ek ek 2 = OO

NWW nne=O
>
>

vlelwivlivlielwlieleliele)

N = w2

=N N=NOWNS
A=
—

DH41
DH42

W NP N N NN NN Who oAU N
~
BN
= 2WO OO
nN
NS S WN—=N—=WNNOO

DH23A
DH3
DH4

DH2
DH21
DH21A
DH23

DH4 3A
DH44A
DH44B
DH45A

DISPLA
DISPRE
DLT
DMD
DORTI
DPB.A
DPB.B
LPB.C
DPB.R
DPINT
DPR
DPRQS
DRIVES
DROP
=
DR
DRVACT
DRVCAL
DRVCLR=

DRVCL1
DRVINT
DRVMSK
DRVQUE
DRVSEL
DRVSTA

DRVTYP
DRY
DSWR
DTADPB
DTE
DTG
DTO
DTUW

EMS

DTO0
DTO1
D102

DTO3

DT04
DTOS
DTO6

000100

ERINDX
ERMAX
ERR
ERRCN
ERROR
ERRVEC

DCK

104407

040132
049104
040206
040372
040056
001342
037776
000040

NN,

CKSCTR
CKSWR
CK.CHR
CK.DEC
CK.DIG
CK.NUM
(K.OCT
CLKSTA
CLOSE
CLR
CLRBUF
CLRQUE
CLSWDS
CNTCLR
CNTRLC
COMMA
CONT
COUNT
CPSAVE
CR
CRLF
CYL.DS
CYL.RD
C.SWR
DATCMP

DH13A
DH17

leolelelololololalelelelele
o]

DH11
DH12
DH12A

SEQ 0201

000002
000004
- 000010

042342
042720
062742
042756
043000
043056
034034

‘

annn

AT3

040577

000020
000040
ATé
000100
AT7
000200
AUNIT
000000
AUSWR
000000
AVECT]
000000
AVECT2= 000000
AVERGE
050052
A6
000400
A17
001000
BADTMO
004576
BAI
000010
BASFLG
001466
BITS
001540
BITO
000001
BITOO
000001
BITO1
000002
BIT02
000004
BITO3
000010
BIT04
000020
000040
BITOS
BIT06
000100
000200
BITO07
BITO8
000400
BITO9
001000
BIT1
000002
BIT10
002000
BIT11
004000
BIT12
010000
BIT13
020000
BIT14
040000
100000
BIT15
BITZ2
000004
000010
BIT3
BIT4
000020
BITS
000040
BIT6
000100
BIT7
000200
BIT8
000400
BIT9
001000
BLNKS1
050346
BLNKS2 050345
BLNKS3 050344
BLNKS4 050343
BPTVEC= 000014
= 100000
BSE
BUFFER
054522
BUSADR
001324
BYPASS
001350
CALL.A
030402
CALL.B
030550
CALL.C
030766
CALL.R
032016
(HKDRV
001352
c11
042126
AT4

ATS

G 16
11:57:12 PAGE 42-2

00 NN

ACTSTR

ADDWO =

000000
000000
000000
ACPUOP= 000000
ACTDRV
040576

ABASE
ACDW!
ACDW2

TABLE

4-APR-81

[

SYMBOL

MACRO Vv04.00

CZRMVBO RMO5/3/2 EXT°'D DR TST

000200
000400
053714
054000
054004
054010
054026
054042
054060
054072
053720
054112
054126
054136
054154
053736
053746
054166
054176
054214
054232
054240
054256
054272
054300
054316054332
053760
004000
020000
000100
004000
001000
000020
046414
000030
050660
051115
051173
051230
051255
051302
050732
051334
051403
051432
050770
0510¢5
051472
051506
051061
032170
001316
040000
001472
104000
000004

=
=
=
=

FS
=
GETADR
GETNUM
GETREG=
GETREQ
GETSWR
GO
=
GTSWR =
GTTST1

GITST2
GTTST3
GTTST4
GTTSTS
GTTST6
GT.PRM
GT.PR1
GT.PR2
HCE
HCl
HCRC
HT

=
=
=
=

002354

000040
046624
035542
000141
046510
035450
000001
104406
036036

036122
036464
036466
036716
036756
035700
035702
036032

000200
002000
000400
000011

002000
046776
047006

MRMCS1
MRMVE
C
MSDRIV
MSEN
MSER
MSGAVG

MSGBO1

000040
000002
047625
010000
000200
050202
052301

MSGNON
MSGNUM
MSGSEA
MSGTST

MSG.CS
MSG.EQ
MSG.FC
MSG.FS
MSG.FT

nauonn

oM
ONECYL
OPE
0PI
OPNFLG
OPNPAT
OPNPRM
OPNTST
OPNWDS
OPN.CT

OPN.N1
OPN.N2
OPN. X1
OPN. X2
1
OPN.
OPN.2
R

OPT

041700
000200
000123
000010

002360
003536
003576
003636
004276
004336

MSG.IC

MSG.IT
MSG.LC
MSG.LS
MSG.LT
MSG.PA
MSG.R
MSGOUS

004376
004436
004476

MSG10X
MSG11X
MSG12X
MSG7XA
MSG7XB

NC1
NC2

NED
NEM
NOCLOK
NODRVS
NONE
NOOP
=
NOTEST
NOTPRS
NOTRM
NOT SAF

040000

PKV
PLFS
POPQUE
PRM
PRMLMT
PRMMSG

PRMPT
PRMO
PRM1
PRM10
PRM11
PRM12

PRM13
PRM14

PRM15

PRM16
PRM17
PRM2
PRM20
PRM21
PRM22
PRM4
PRM5

PRM7
PRO
PR1
PR2

PR3
PR4

PR5

004536
003676

PR6

003776
004036
004076
004136
004176
004236
000400
022700
022710
022772
023024
023034
023040
002009
001000
000200
020000
177772
000240
001516
001520
001514

PSEL
PSW

003736

MUR
MWP
MXF
MXSEEK
MXSTAL
MXWNDW
NBA
=

OBCK
OBEN

100000

000200
000115
000001
050005

037364
037162
037010
037506
037014
037720
037724
037736
037742
037020
037042
nnn

MSGMIN

OFFSET

MSGMAX

0CC
OFD

)

MSGBO9
MSGB10
MSGB11
MSGB12
MSGR13
MSGB14

v unnuniunionbnbnruinnuinuonnonnuon

MSGBOS5
MSGBO6
MSGBO8

OO—==
v
aaanpnrOMN
= =N
NNNO O —= =M
A NWOWNONONNINSONWW
OSSO O = W=D NN =

MSGBO4

lelaeleoleolelelelelelelelalele]

MSGBO3

SEQ 0202

nmnnnn

002346
050136
000002
000004
000010
000020

MSGBO2

H 16
11:57:12 PAGE 4 38 3

X
>

FT
FWD
Fi
F2
F3
F4

4-APR-81

ne)

002340
000020
033730
035012
010000

FC
FER
=
FILBUF
FILRAN
FMT16 =

"nn

EXIT4
EXITS
EXIT6
EXIT?7

—

EXIT3

016452
017074
017540
010132
020320
021136
021332
(10352
010764
011210
011500
012076

002000
022260
002344
000100
000001
000002
033654
027216
010046
033624

INCSK
INCTRK
10TVEC= 000020
= 000100
IR
ISR
043306
I
002352
ITEMAT
002254
002342
030336
000012
001526
001522
047420
027704
030142
032130
001536
001534
001326
027364
002356
000002
002000
001374
002350
050244
050215
004000
020000
040646
000100
047234
047244
047240
000004
000400
020000
010000
000400
%]

EXITIS
EXIT16
EXIT17
ExIT2
EXIT20
EXIT21
EXIT22

014440
015142
015702

—

EXIT12
EXITI3
EXIT14

IAE
=
IBSAVE
IC
IE
ILF
ILR
INCCYL
INCEC

001464
004000
046600
047645
014424
007462
007670
013252
013516

ERR.CT
ESRC
=
£S.SAV
EXCEED
EXIT.A
EXITO
EXIT1
EXIT10
EXIT11

TABLE

(7]

SYMBOL

MACRO v04.00

CZRMVBO RM0S/3/2 EXT'D DR TST

PR7

PTRN15
PWRVEC
QCNT

QDRVO
QDRV1
QDRV2

QDRV3
QDRV4
QDRV5
QDRV6

QDRV7

QINPT
QOUTPT
QSTART
QSTOP
QTERM =
RANADR
RANCK
RANPAT
RDCHR =

000340

177776
002000
177776
003514
000024
046044
046136
046156
046176

046216
046236
046256
046276
046316

046054

046074
046114
046116
046336
035266
035034
035232
104410

!
'
.
.
'
-

|
|

116

CZRMVBO RMOS5/3/2 EXT'D DR TST

SYMBOL

TABLE

MACRO Vv04.00

RDLIN =
RDY
RD.ADR
RD.RM
RD.RM1
RD.RM2
RD.RM3
RD.RM4&

4611
+ 40200
045326
045302
045324
045450
045454
045460

040610
104412
043520
000004
177400
000100
000200
044352

START4
STATBL
STKLMT=
STO
STO1
ST02
ST03
STOS

004702
001762
177774
044760
045014
045110
045140
045164

TEST12
TEST13
TEST14
TEST15
TEST16
TEST17
TEST2
TEST20

014116
014652
015354
016114
016574
017216
010026
017770

1877
TYPDS =
TYPE
=
TYPERR
TYPOC =
TYPON =
TYPOS =
TYPTIM

011502
104405
104401
022262
104402
104404
104403
033240

READ
=
READHD=
READIN=
RECAL =
RELEAS=

0C0171
000173
000121
000107
000113

SC13
$C2
SC3
SC4
SC5

044532
= 000400
043570
043574
043606

ST07
STO8
ST09
STRTMR
STRTIA

045230
045260
045270
032736
004674

TEST22
TEST3
TEST4
TESTS
TEST6

021252
010270
010524
011122
011346

1
T12
T7A
T7A1
178

001670
001700
001620
001640
001630

001504
(01502

SEARCH= 000131
SEC.DS
001370

RD.WRD

RESREG=
RESVEC=
REV
REX
=

RHVEC
RH.ADR

045330

104413
000010
050152
010000

RMADR
RMAS
RMBA
RMCS1
RMCS2
RMDA

=
=
=
=
=

RMDS
RMDT
RMECT

= 000012
= 000026
= 000044

RMDB
RMDC

040650
000016
000004
000000
000010
000006

= 000022
= 000034

RMEC2 = 000046

SAVEFG
SAVREG=
SC
SCOPE =
SCTRWC=
SCO
=
SC1.
=
sC1

SC12

sCé
SC6A
SC?
SC8

SEC.RD
SEEK
=
SEEKFG
SEKCNT
SEFTMR
SELDRV=

SERIAL
SETBUF

044462

044002
044116
044244
044322

001364
000105
040612
001446
001444
000145

047605
(34404

SETFOR= 000143
SETVEC
006060
SET.IE
045772

SHUT

025334

SP78B

001716

047754
002336
006662

'STALL
STALLO
STALLT

032326
001436
001454

RTC
= 000117
RTURN
021600

STALL3
START

4-APR-81

ST06

STRT2A
ST.CLK
ST.LCL
ST.PCL

SVSTAT
SWR
SWREG
SW0
=
SW00
=
Sw01
=

Sw07

= 000200

Sw04
SW05
Swoé6

SW08
SW09
sWw1
SW10
SWi11
Swi12
swi3
SW14

RMR
=
RMSN =
RMTMR
RMVEC
RMWC
=
RM.REG
RMOS

C00004
000030
044670
040652
000002
047140
041406

SP7B1
SRCHWT
SRCHOO
SRTDRV
SRTINT
SRVCLK
STACK =

Sw2
SW3
sSwé
SW5
sSwé
sw7
Sw8

RSTRT1

006712

ROTATE
RPT
RSTART

R6
=%0C2006
R7
=%C00007
SAVCSW 001320

STALLZ

START1
START2
START3

001456

001460
004724

004670
004712
(04660

001356
001154
000176
000001
000001
000002

= 000004
= 000010

SKI
= 040000
SLASH
047307
SPTYP
033132
SP10
001740
SP11
001746
SP12
001754
SP7A
001710
SP7AT
001724
001732
040574
032552
006334
006002
027672
001100

001440
045654

SW02
Sw03

040512
000014
000042
000036
040660
000020
000024
000040

= 000032

045172

004716
027426
027636
027574

SVADR
SVRH70

RMERRS
RMER1 =
RMERZ =
RMHR
=
RMINIT
RMLA =
RMMR1 =
RMMRZ =

RMOF

11:57:12 PAGE 42-4

Sw15

= 000020
= 000040
= 000100

020616

TEST7
TICKMS
TICKUS
TIMER

011642
001344
001346
040614

TIM.DN
TIM.PT

TIM.UP
TKVEC =
TPB
TPS
TPS50
TPS60

001414
001432

001376
000060
001532
001530
014436
014420

TPVEC = 000064
TP50
014430

P60
014412
TRAPVE= 000034
TRCKWC
001452

TRE

= 040000

710

1781
ULDFLG
UNLOAD=
UNS
=
UNSTAT
UNTOFF

UNTON
UPE
=
us1
=
us2
=
Us4
=
VERIFY

= 000010

=
=
=
=
=
=
=

000004
000010
000020
000040
000100
000200
000400

TST10B
TST11
TST12
TST13
TST14
TST1S
TST16

013206
013254
013520
014442
015144
015704
016454

WRT.R2
WRT.R3
WRT.R4
WRT.R5
WRT.WD
XXDP
$APTHD

020322

$ATY4

043350
007372

007654
012356
013440

1ST17
TST2
1ST20

017076
007672
017542

TST22
1ST3

021140
010134

TST21

TST4
TSTS
TST6

010354
010766
011212

047342
020000
000001
000002
000004
032410

WLE
=
WRCKD =
WRCKHD=
WRITE =
WRL
=
WRTHD =
WRT.AD
WRT.RM

012614

047313
047331

WCE
= 040000
WCEFLG 001434
WCF
= 000040

001372
001362
040572
000014
001332
007222
007464
012100

TST10A

001650
040600
000103
040000

= 000100
= 000040

TRK.DS
TRK.RD
TRNSWT
TRTVEC=
TSTNMS
TSTO
TST1
TST10

= 100000

001660

A4
wC

000400
001000
000002
002000
004000
010000
020000
040000

TBITVE= 000014

TEST1
TEST10
TEST11

TEST21

=
=
=
=
=
=
=
=

Sw9
= 001000
TAB.XY= 001114
TAP
= 040000
D
TESTO

SEQ 0203

004000
000151
000153
000161
004000
000163
045552
045462

WRT.R1

045546

SATYC
$ATY1
$ATY3

026774
026750
026756

$AUTOB
$BASE

$8DADR
$BDDAT
$BELL

045640
045644
045650
045652
045550
001470
001100

026766

001150
001310

001136
001142
001224

(M2
$CM3
$CM4
SCNTLC
SCNTLG
SCNTLU

$CPUOP
$CRLF

$DBLK
$0B2D
SDECVL
SDEVCT
$DEVM
$D1V
$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL

. ABS.

021514
021574
001254
001255
021334
021506
001117
001131
021620
001132

$MAMS3

4
$MAMS
$MBADR
$MFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
$MSWR
$MTYP1
$MTYP2

SMTYP3
SMTYP4

001270

054522
000000

ERRORS DETECTVED:
62464 WORDS
( 244 PAGES)
VIRTUAL MEMORY USED:
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
CZRMVB.BIC,CZRMVB/(C=CZRMVB.DOC,CZRMVB,SYSMAC/M

$MXCNT
$NULL
SNWTST=
$OCNT
$OMODE
$OVER
$PASS
$PASTM
$QUES
$RAND
$RDCHR
$RDL IN
$RDSZ =
$REGAD
$REGO
$REG]
$REG?
$REG3

$REG4

$REGS
$RE SRE
$RM02
$RMO3
$RMO5

$RTNAD
$SAVRE

$SB2D
* $SCOPE
$SETUP=
$STUP =
$SUPRS
$SVLAD
$SVPC

NWh S S SO
WVINWVMBE DR
O
onnLVMOSNOON

$CMTAG

loleleleleololeloleoleololele]
NOOOONOOONINNOOO
N
e e A\
=2 2 NN —
N NP NOND NP POND NN — NN
NWVO NN
= W
=00~
OoOH—=n-=n=rrnoorrmnno
s

023372
024360
001114
000006
000014
000006
000003
025272
025304
025277
001262
001231
024040
026172
026352
001244
001312
026530
021570
024030
021560

— e el e N\ )

$CKSWR

J 1

S PNV
= O
S WNN—=W—=PON)
—
OH =S ONSVoN

| $CHARC

MACRO v04.00 4=APR-81 11:57:12 PAGE 43-5
olelel
lolele)

CZRMyBO RMOS/3/2 EXT'D DR TST
SYMBOL TABLE

001216
- 000023
026302

o0 o03[Tl

BMkvT”e-O~——O-MM—L—\\MNoN0emu3S1YN—=D*uiMn6oWNMMNga6oA=O[1=e=04e-A2Y~Xa0lSX3”xmSg«—X¥=[o]ot6R.30oe-ISoMM=~NO—N0woO063r\oS-ty**ns/w—.1RAnR[(”NO|Md“Te-Naao¥¥=]]]6NmgNeA®x[O=4MWMuoNy0e8Narei6OnVy6cmNN3eRMg-1=N*I*m0NLCMR2~3uC&EeNlv2soolv—[)]b6EDKI1OVN3DCo%¥2WEtNMy&I%a---o[ N4—on—O%e-©6-Q0007—|oYw¢ET-pyyy3v0aVr\h4“EATMO“21q®z’MSMaM2T.O1OPVR=MMT--——rMoS—M~neT[0—EE0RO0OVsOA00(O0m©R.YVO0O&TOIOV$0(£LO=RN[e3L0V~a¥y1O—Ao—aO*YT]Moo9WI—-.SwV—3AMOONLov]mDO51NSao33SNO45ATM==—O*AC3iMN®0t0>MEy8=OAD0MbEAH0M=NLN38AVIM5——y=UNRWE'—A-]NR=L—
&-

B=W0U®aEOuSMa\Rk.8©9=M** |K&XLTQ=O-sGR200A9NMRBO3%DR)-JN=BUe|BRS—ENIR-Ei-oWBo—|~=KoO[rcNQMeuaeU-M1r0Dv\aN4OnyaeVOa8V8ROV2AOYbVeBROt2W3Vy8s—%ExMx§N—v-*M$VRAAENASEAoERSoN gM H1
Mw el-— NN—~ - n
"47MP&%MNRNN“=B0-o-—NMMM ogM =N-M%vo]3>-(o 30ox
|

CZRMVBO RMOS5/3/2 EXT'D DR TST
MACRO V04.00
CROSS REFERENCE TABLE (CREF v01-05 )

| $SGET4

4=-APR-81

.
.

«- -&

=
<-

]

K 16
11:57:12 PAGE S=1
SEQ 0205

CZRMVBO RMOS5/3/2 EXT'D DR TST
MACRO V04.00
CROSS REFERENCE TABLE (CREF v01-05 )

' SETABL

|
|

SETEND
$SFATAL
SFFLG
$FILLC
$FILLS

$GDADR
$GDDAT
$GE 142

$GTSWR

$HD
EHIBTS
$HINUM
SICNT
$INTAG
$ITEMB

SLF
$LFLG
$LONUM
$LPADR
$LPERR

33-615+
34=-=94+
604
5=12

6-0#
32-1
6=-0#
6-0#
6~04
6-0#

12-53

23-1#
4-37

5-12#
11-33«
6~0#
6-0#
6-0#
6-0#
22-1#
11-33»
6-0#
15-161%
24-1
6-0#

33-922+
604
32=1»
32-1#4
¢0~1
20=1
33-988+
33-990+
13-9
26~1
4-37

4-APR-81

33=927+

33-997+

33=:03e

32=1+
20-1
20-1
33-:53
33-:55%

32-1+
20~1

321+

$MSGAD
$MSGLG
$MSGTY
$MSWR
SMTYP1

SMTYP2
sMTYP3
SMTYP4
SMXCNT
SNULL
SNWTST

23-1

32-1#4
23-14
e~1
32-1~
32-1
23-1#

6-0#
6-0#4
6-0#
24-1
604

264~1
20-1

45=0

6-0#

1444
14=1414

14-316
15=29#

16=20

14=44
14-141#

14-316
15-294
16-20

33-:50

34-772

SEQ 0296

34-830

34-832

34=;18

34=;77

Y= =81

34~ =91

34- 92+

30-14

30-1+

33-:37

33-:43«

33~ 46~

33-:90

33-.06

14-316

14-392

17-1#

26~1
4-37

32-1
23-1
6-0#
6-0#

L 16
11:57:12 PAGE S=2

32-1%

32-1«

32-1%
32-1

32-1~

v OO

.
.

CZRMVBO RM05/3/2 EXT'D DR TST

MACRO V04.00

(ROSS REFERENCE TABLE (CREF v01-05 )

" SOCNT

SOMODE
$OVER
$PASS
$PASTM
$QUES
$R2A
$RAND
$RDCHR
$RDDEC
$ROLIN
$RDOCT
$RDSZ
$REGO
$REG]
$REG2
$REG3
$REG4
$REGS
$REGAD
$RESRE
SRHEXT
$RMO2
$RMO3
$RMOS
$SRTNAD
$SAVRE
$5B82D
$SCOPE
$SETUP
$STUP

$SUPRS
$SVLAD
$SVPC
$SWR

$SWREG
$SWRMK
$TESTN

16=287#

21-1#
21-1
241
6=08
5=12#
6=0#
26~1

14=70
23-1#
26-1
23-1#

26~1
23-1

6~0#
6~0%
6~04
6-0#
6-0#
6-0#
6-0#
25-1#
34-164
11-139
11-136
11-142

17-1#
25-1#

27-14

11-33
4-298
11-33
17-1
4-298
4-298#
29-1#
24-1
5-9
L=27H
11-33
14-543
17-1
24~1
24-1
6-04
24-1
6-04
14=275
15-319

STKCNT

6-0#
15-233+
6-0#
23-1

STKQEN
$TKQIN
$TKQOU

231
23-1
23-1

$TIMES

$TKB

$TKINT

4-APR-81

M1 6
11:57:12 PAGE S$=3

16=372

16=3724

16=372#

24~1

21-1+

21=1»

17=1

21-1 *
24~ 1 &
17=1

17-1

17=1%

18-1

20=1

20-1

23-1

23=1

14-330
26~1

26=1

14-528

30-1#

33-546

33-:88

33-,03

26~1

26=1

16-287#

21=1+

21=1#
24=1
11=33»

23-1#

19=14*
19-15+
19-16~
19-17%
19-18+
19-19«
11-40

26~1
34-193
37-27#
37-28#
37-29#
26~1
33-700
2414
4-298
11=53"

17=1
4-298
4-298#

33-701
24-1#
5-94
4=37
11-33

21=1+
21=1»

41-10
41-4
41-9
41-3
41-13
41=7

SEQ 0207

23=1

41-12
41-7

23~1

41-23

41-26

41-4
41-16

34-<16

26~1
33-705

33-742

4-298
11-33
18-1
4-298
4~-2984

4-298
11-33
18-1
4-298
4L=-298#

33-706

33-742

33-747

33-749

33-752

33-757

33-759

33-769

33-772

4-298

18-1
4-298

4-298
11-33
18-1
4-298

4~298#%
11=33

4~2984
11-33

11-33
23-1

4-2984

11-38
24-1
4-298%

33-747

33-749

33-772

33->62

11-33

23-1

4-298#
11-33
23~1

4-298#

4-298#
11-33
23-1
4-298#

33-752

33-757

33-759

33-769

L=2984

15-29
18-1
24~1
24-1
11-33

11-81

23=1x

4-298#

42984

33->62
4-298#

33-213
4-298%#
11-38

11-33
11-38

4-298#

4-2984

35-213

|
|

CROSS REFERENCE TABLE

MACRO V04.00
(CREF v01-05 )

4-APR-81

N 16
11:57:12 PAGE S=~4

ORyN o0MA~R2068RP97”03AOOR= NA*RNy

B
R
A
R
K
Y
OYI-TITgTYITYITTYOP ITI0TYPNTONITONOP0TOeV0O0T0OVOTMNMOTMNN
2z %
$TPFLG
$TPS
$TRAF

$TRAPZ2
$TRP

$TRPAD
$TSTM
$TSTNM

$TTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
$USWR
SVECT1

$VE(CT2
F
$XOF

28-1
6=-0#
6-0#
6-0#
11-33

26-1 °
26~1
26~1
26~1
26~1
26~1
5=12#
6-0#
15-318+
24-1
23-1
26-1
22-1#4
20-1#

20-1
20-1

21-1#
21-1
21-14
6-0#
5=12#

28-1
11-45%
20-1

11-44%
26=14
26-1#
26~1
26~1
26~1
26~
26-14

14-44>
16-20*

24~1
é3~1

26=1
26~1
20-1
20-1
26~1
21-1#
26~1

6-0#4

6~04

6=-0#
20=1

20-1

28-1#

20~1
18-1«

18- *
20~ 1
18-1 *

20-1

20=1x

20-1

26~1
26~1
26~1
26=1#

26~1
26~1
26~1
26~14

26~1
26~1
2o+l
26=1#

26~1
261
26~1
26=1#4

26~1
26~1
26~1
26=14

14=79*
16=77*
24=1~

14=109%
16-156%
33-182
23-1

14-141+
16-287+

334373
23-1

14-170+
16-372*

3é-1
20-1#

3%}

18-1*

23-1

26~1
26~1
20-1
20-1#
26-1
26~1

33=773
23-1#

14-239+
17=1»

u’

$TNPWR

$TPB

_ MO

OMoo~r46545“23

£%2 “evs

‘

1
26~1
bl
26-1
26~1
26=1#

26~1
26~1
26~1
26-1#4

26~1
26-1
26~1
26=14

26~1
26-1
26-1
26-1#

26-1
26-1
26-1
26-1#4

14-274*
18-1

14-316~
18-1

14-392+
18-1

14=543+
19-11

24-1

15-29*

T .3 YR ToYYTLYTV TA

T T T T T N T T YT T

O ONM
T T T Y e YT YT eI YT Y
T T T TN e T YT YT T Y
T T T YT T YT

O9N10y93813“’438 eNgWGsoPSOt RAWNLTS N0TNM—0O

LoTlt

SEQ 0208

®* wn SOOITNMN OO T OM—ONWNOON

INN0YQeo0AoTNlN00SNA0oNNNl00OSTNYNl00oT0OoI0lOoNYN0tTTNeodIodTNoIyYNlNoIdTNVoNdToINloNTlNToelNolTLNaNndVN MT—TOIMTNnMNVOMO

CZRMVBO RM0S5/3/2 EXT'D DR TST

26-1
26~1
26~1
26-1#

26~1
26-1
26~1
26-1#

15-154+

15-233«
24-1

241

CZRMVBO RMOS/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF v01-05 )
$XON

20-1

32-1
5-12

32-1
5=12#

6-0

SXTSTR

24~1#

Al6
A17

4=794
(-804

.BASTA
.$X

ABASE
ACDWI1

ACDW2

ACPUOP

ACTDRV

ACTSTR

ADDW1

ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15

ADDWZ2
ADDW3
ADDW&
ADDWS
ADDW6
ADDW?7
ADDW8
ADDW9
ADEVCT
ADEVM
AENV
AENVM

AFATAL

AMADRT
AMADRZ
AMADR3
AMADRG
AMAMST

AMAMS?
AMAMS3
AMAMSS
AMSGAD
AMSGLG
AMSGTY
AMTYP1
AMTYPZ

AMTYP3
AMTYPL

AOE

APASS

6-0

6-0
6-0

34=93#
34-99%#
6-0

34-398*

34=691+

32-1

32-i#

34-:02+

6-0

6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0

6-0
6-0
6-0

60
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0

4-151#
6-0

6-0
20-1

APTSIZ
APTSPO

11-33
20-1

ATO

4=199#

ASWREG

34-988+

23=1

6-0
60
6-0
6~0
6-0
6-0

APRIOR
APTCSU

APTENV

6-0

34-347*

6-0
6-9
6-0
6-0
6-0

6-0
6-0
6-0
6-0
6-0

6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0

6-0
32-1#

18-1

20-1

6-0

32-1#
31

32-1#

4-APR-81 11:57:12 PAGE S=5

34-699*

34-986

SEQ 0209

MACRO V04.00
. CZRMVBO RMOS5/3/2 EXT'D DR TST
- CROSS REFERENCE TABLE (CREF v01-05 )
AT
AT2
AT3
AT4
ATS
AT6
AT7

ATA
ATABIT

SEQ 0210

4=200#
4=2014
4=-202#

4=2034
4=2044
4=205#

33-21

33-<29

33-<35

34=1454

34-318

34=410

34-932

34-954

34-669

34-875

34-877

34-:75
34-618

34-:21
34-655

34-:25
34-657

34-<40
34-734

33-266

15-29

15-154

15-233

16-343
33-885

16-350
33-946

16-360
33-965

34-931

34=515

34-895

34-923

24=1

24~1

33-144

34734
34-865

34~<42
34-885

34-927

34-<03

34-972
34-425

34-608

34-653

34-805
34~422

34-965
34-425

ATESTN

AUNIT
AUSWR
AVECT1

AVECT2

AVERGE
BADTMO
BAI
BASFLG

BITO
8ITO0
BITO1
BIT02

BITO3

BITO4
81705
BIT06
BITO7
BITO8
BITO9
BIT1
BIT10
BIT11
BIT12

BIT13
BIT14
BIT15
BIT?2
BIT3

34~-:39

33-638
34-875

BIT4

BLNKS1
BLNKSZ2

BLNKS3

BLNKS4
BPTVEC

BSE
BUFFER

14-79
16=77

14-109
16-156

14-170
16-287

14-239
16=-372

14-316
33-=30

14-392

33-=71

14-543
33->31

19-89

19-96

33-746

33-756

33->57

33->86

37-604

33-286

33-326

33-571

33-573

33-398
16=100

16-324
33-860

16-333
33-861

16-45

16-56

33-575

o—
W—MN
~NwvIne

BITS

\NC"“JJ

BITS
BITé
BIT7
BIT8
BIT9

WN—WN

I
I
[

&4~APR=-81 11:57:12 PAGE S=6

MY
TR bt
et

ma NOWnESs W

OO [ ]
ot et et g B —

42-1044

14=247%
3
904
524

14-325+

14=454*

14-555+

15-60*

15=175+

33-103

33-113

33-144

33-226

33-2420

33-245
14=254

33-583
14=-292

14-294

41-14

41-15

61-17

4119

34539

34-543

34-557

34-563

WVilNNO

3
9

—

36=104

36=56

W——

~CoOWViON SN0

'\)\JJ\O;
SO =
r

WJ‘WW\:‘WJ‘\I‘O
11
1

NY—PUs
- e

W= =2 N2 N—=NW

»
»

WNi—m s, an——00
i NON00O
SN
OCcoONWWNINONO
WS
v
» O

3 2

N
— = —a

SEQ 0211

33-36

33-187

14=252

34-602#
34-492
34-608#

34=501
34=715

34-510
34-910

34=514

34=526

34-533

33->93

33-?18

33-a42n

33-a79

33-a86

33-a91

33-A36

33-A19#
33-=04

33-a02#

33-A21

33-A31

24-1
14-454
33-272#
14-454

26-14
14-454

15-31

15-156

15-235

15-320

33-78+

33-80+

33-86+

14-528

33-34

33-604

34-233

34-680

34-679
33-245#4
15-100
15-380
11-26*
33-19

34-<944

15-119

15-121

15-191

15-209

15-211

15-268

15-280

15-291

15-293

15-353

15-271
18-1
20-1
11-38
35-50
37-43
33-250~
41-15
41-11

15-283

34-769
33->66

33-a734
33-220
33-=

CNTRLC
COMMA
EONT

34-548
34-488
34-605

—

34-596#4
34-546
34-484
34-588

13-17+
41-23

Y Y -y
Y|

33-312#
33-331

WIN

CALL.C
CALL.R
CHKDRV

[
~NW l‘l*\.h\“b‘@l\—'w
NN =N -

CALL.B

16-26*
12-9
33-435
14-70
14-121
14-300

TP R

CALL.A

11-18+
14=70+

N
He
-

C.SWR

7-0%

BYPASS

33-:39

WWJ\&J‘\WNO

| BUSADR

33-980

MACRO V04.00

l.d—‘o"
oNNOOM o=

(ZRMvBO RMOS5/3/2 EXT'D DR TST

' CROSS REFERENCE TABLE (CREF v01-05 )

-—

&4~APR-81 11:57:12 PAGE S=7

34-:66

15-109
33-33#
11-101
37-324

34=<15

12-3

18-1

18~1

15-356

33-6534
18=-1+

24-1

241

2%~1e

%=1

11-38
37-17
27-44
33-280«
41-17

11-59
37-20
37-44
33-320%
41-23

11-76

17-1
37-38

17-1

20~-1

37-39

20-1
37-40

3339
37-40

33-920+

33-993+

41-10

14=403

14=405%

37-33
37-46
33-394+

37-50
33-578+

11-33
14402+

14-528

14~528+

14-528+

14=528+

37-39
37-51
33-616*

MACRO V04.C0
' CZRMVBO RMOS5/3/2 EXT'D DR TST
' CROSS REFERENCE TABLE (CREF v01-05 )

oP8.C

DPB.R
DPINT
DPR
DPRQS

33-320
33-449
34-614
4=131#
34-704

4L0-3#
L0-7#

8-120
42-30
42-37
8-174
8-56
40-13#
42-52

8-143

8-280

40-18#

11-33»
11-33
41804
15-92
13-38+
14-528

15-339x

33-4,57

14=47*
14-129+
14-251%
14-362+

11-33«

18-1=

15-182
13-41+
14-528
15-339=
33-582*
14-48%
14-130
14-253+
14-363

15-259
13-42%
14-528
15-339«

33-625#

14-49*
14-144*
14=277%
14=367*
33-292
14-87+
33-320

14=70%
14=150*
14291~
14-548*

34-244

34-363

34=411%

33-451

40-9#4

42-96

33-280
14-85%
33-320
33-455
34-247

33-280
14-83+
33-320

8-328

40-12#

40-15#

42-79
42-86
42-89
42-99

8-312

40-4#

8-223
42-63

40-5#
L0-6#
40-17#

8-296

14-46+
14~528+

16-380+

40-8#

15-254*
33-260
13-33=
14-125*
14-243%
14-339
33-280
13-34+

42-93% -

40-19#
40-20#
40-21#
40-22#
6-0#
5-14
4-109#
4-161#
14-454
13-32+
14-454

8-330
33-133

8-256
8-267

42-604

42-114
42-15#
42-68#
4L2=728
L2-764
42-83#

» 0

8-210

40-16#
8-34
8-45

8-225

40-14#

4o=7

8-163
8-23
8-188

42-56#4

42454

N - 00

8-106
40-10#
40-11#

8-176
8-58
L2-494

SEQ 0212

42-348
42414

8-12
8-81
8-92

8-145
8-154

OUII:
TITTY
3
1
W

9-614

42-234
42=274

PRI)

8-94
8-108
8-122
8-131
8-165
8-25
8-190
8-199
8-212
8-36
8-47
8-258
8-269
8-282
8-298
8-314

N
b b

NP WD
W
-

n PONIN)
=
et

-4

DF11

4=-APR-81 11:57:12 PAGE S-8

14-343
15-60=
33-244

14-395+
15-175+
33-246

14-398+
15-175+
33-250

14-411

14-454
15-254+
33-250

15-254~
33-250

14-86*
14=174+
14297+
14564

14=112+

14~186+
14=299+

14-113+
14-192+
14-301+

14-118+
14-207+
14-318»

33-274

14-122+
14-213+
14-327+
33-276

14-123
14-242%
14-337«
33-280

14-560

14-562+

33-229+

33-232+

33-314

33-316

33-228+

33-231+

15-175+
33-250

33-455
34-357

34-816

34-:30

34-:53

34-:59

34=:69»

34=448%

34-645

34-:32

34=:55

34-:61

34=: 79~

146454

MACRO V04.00
)
Vv01-05
(CREF
TABLE
. CROSS REFERENCE
CZRMVBO RMOS5/3/2 EXT'D DR _TST

DRIVES
DROP
DRQ
DRVACT
DRVCAL

DRVCL1

DRVCLR
DRVINT
DRVMSK
DRVQUE
DRVSEL

DRVSTA

DRVTYP
DRY
DSWR
DTOC

12-39
33-18
4-2224
14-482*
34922+
16=36
16-335
14-488
4=2774

34-235

4-APR-81 11:57 :12 PAGE S-9

SEQ 0213

37-30#
37-374

34-304
34=:44x
16-39
1 6-346

33-361#
14=475
34-2694
13-14¢+

34-379
12-19+
12-23
34-385
11-135
6-0

34=662%

34-551f

34630+

16-43
16-352

1652
16-362

16-95

13-15

34-359

34944
13-18+

12-29*
13-23

12-42
34-404

236+
34=228#

34-238+

15-69

15-78

34287

34-292+

33-362

34-=344
34-419

34-423

34-847

34-879+

34-857+

34-907

16=244

16-253

16-304

16-329

34=270

33-<35+
34-330+

3546+
34-353

34=297+

34-684"

34=704*

34-371

33-359

34-873*

11-33

DTO1
D102
DTO3
DTO4

DTOS

D106
D107
D108
DT1

DT10
DT11
DT12
DT12A
D113
DT13A
D117
D12
DT21
DT21A
D123
DT23A
D13
DT&4
DT41

DT42
DT43
DT43A
DT44

DT44A
DT44B

DT4S
DT45A
DT45B
DT5

DTADPB

41-3#
4L1-E#
41-9%
41-10#
8-144

8-153
8-175
8-57

41-154

L1-16#4

8-224

41-124
41-134
41-144
4L1-4n
4L1-174

41-5#
41-64
41-19#
41-20#
41-21#

41-23#4

164-407+

14-465
15=177+
15-378

16=55+

14-468
15-178+
1629+
16=56+

164471~
15-184
16-30
16=57+

34~:70*

DTE
DTG
DTO
DTUW

DVA
EBL
ECH
ECI
ECRC
EECC

EM1

EM10
EM11
EM12
EM13
EM17
EM2
EM20
EM23
EM24
EM3
EM4

ERMAX
ERR
ERR.CT
ERRCN

4-148#%
4=2454
4=-170#
4=-1654
8-11

8-80
8-91
§-105
8-119
8-162
8-22
8-173
8-209
8-222
8-33
8-44

7-0#
4-137#
7-0#
7-0#

EXITO
EXITYT
EXITIO
EXITI1
ExIT12
ExIT13
EXIT14

EXITIS
EXIT16
EXIT17

14-70
14-92
14-454
14-555
15-35
15-160
15-239

15-324
16-26
16-83

33-47%
34-832

34-666*

33-418

33-455

33-4944

33-616

15-189
16-156
11-89+

15-266
16-287
11-89»

15-278

33-432

15-351
33-902

15-363
33-933

11=35%

11-36+

18~-1

18-1+
35~32

18-1+

33-53
34=,;77

16=115+

322
-360*
-394
23607+
33=:44%

16=323*
33-358
33-394
33-610
33-;45%

34=694

16=243*

16-118+
16=252+

16=325%
33-361

16=121+
16-295+

33-403+
33-612
33~ 46%

16=332+
33-366
32-405
33-616
36-75#

34=705+

34-:35

34=:47%

21+

24=1=

%=1+

38-16#

33-53s
34-=904

14-530#
15-60
15-175
15-254
15-339

34=664

37-38#
15-139#
14-70#

14-964
14-528
14-566#
15-60
15-175
15-254
15-339
16-63#
16-134#

11-33+
3348+
34-:18

11-33%

11-33
24-1%
34-830

15-107
16-77
11-89+

34-648

113«

~235%

15-98
16-20
11-89«

Hnsw—=un

33-394

VO IWVN—=NO

33-366

OO WNNND —

34-=19#

WWWOOO
‘
]

34-:84

WWNW—
=
—

34-735
11-33+
33-320

8-311

8-295

8-279

DW=
o WOoW oo
WOO N0 o

38-114

SEQ 0214

Tt
uuwc.rocho

8-187

38-3#
38-8#
38-94
38-10#
8-142
38-12#
38-4#
38-13#
38-14#
38-15#
38-5#
38-6#4
8-266
38-17#
38-7#
34-682
11-33»
33-280
33-13
14-454
13-69
11-86+

W
— —

34-637+

34-440

34=221

3-3 5
3=4 8
3-9 7

34-1394

6-3 6
6-3 9

»*

33-377
33-418
33-520

N0 OWOO

33-366
33-413
33-616

SN
—
o~—0owm oo

33-366
33-411
33-616

16=302+
16=342+

6=9
6=1

wuu?oooi

16=-90+
16=129

33-366
33-407
33-616
L=1544
L-1844
4L-1934
14481+
34-:19
4=1244
L=1744

16-89+
16=127+
16-298+
16341+

16-88+
16-125+
16=297*
16-340+

H=20H000

16-87+
16=124*
16=296*
16=-333*

(CREF v01-05 )

NN
— — 3 —

CROSS REFERENCE TABLE

&=-APR-81 11:57 :12 PAGE S-10
NN
— = — =

' (ZRMVBO RMQS5/3/2 EXT'D DR TST

MACRO V04.00

15-1434

11-89+

33-73

11-89«

11-89+

35-33»

33-:07
33-12+

33-:66
33-13

24-1
35-35»

261
35-41%

CZRMVBO RM0S5/3/2 EXT'D DR TST

16=2604

14-70
14-335
15-254

14-70
14-398
15-273

Wi
QoW

—
—

own NNV
@O

O\J.\l‘

o
b

NS —

0"\‘\

—
e

16=-220

14-1604

—

16=3634

SEQ 0215

—

NN = X X X

"mTTmMTmTTMTMmmm

EXIT

141324
16=220

e V]

EXIT2
L EXIT20
| ExIT21
| EXIT22
| EXIT3
L

MACRO V04.00

CROSS REFERENCE TABLE (CREF v01-05 )

4-APR-81 11:57:12 PAGE S-11

14=224
14=562
16~384

14-248

33-:21

14-261
15-60

14-283
15-175

33-:39

FER
F ILBUF
FILRAN

33-83%#

14-82

14-112

14-242

14=277

14=546

15-60

16-88

16-165

16-182

14-84

14-113

14-243

14-278

14-318

14-397

14-548

14-549

15-60

35-19

35-26

34-725

34-799

34-838

34-964

34~-:38

34=:72

34-:80

34~-=55#

11-6
26~1

11-59
26~1
26~1

11-76

11=-77
26~1

17-1

17-1
26~1

19-52
26-1
33-212

19-66
26-1

26~1

11-38
26~1
26-1

33-<26
33-=97

33-<26
33->07

33-<26
33-265

33-<28

33-<88

B 33==01

33-=15

33-245

14-528

14528

FMT16

FWD

GETADR
GETNUM
GETREG
GETREQ
GETSWR
GNS

GT.PR1
GT.PR2
GT.PRM
GTSWR
GTTST1

GTTST2
GTTST3
GTTST4
GTTSTS
GTTST6

HCE
HCI
HCRC
HT
IAE

IBSAVE
IC

IE
ILF
ILR
INCCYL

3364
33-=35

33-<68
33-=39#4

26~1
26~1

26~1
33-:59

26-1
33-<23

26-1
33-<39

33-=76

33-=85

33-=92

33->02

33->22

18=1+
14-256

18=1+
14-303

14-403

14-405

14-492

26~-1

33->33

33-<72

33-324
20-1

20-1

18-1
14-122
14-563

181
14-129
33-813

33-811#

18-1
14-202

MACRO V04.00
(ZRMVBO RMO5/3/2 EXT'D DR TST
)
v01-05
(CREF
TABLE
CROSS REFERENCE
INCEC
INCSK
INCTRK

IOTVEC

IR
ISR
I7

ITEM4T

LDCMD

LF
LKS

LKV

LGDEV
LODFLT
LODPRM

LOP.CK
LP.AVL
LPB
LPS
LPTAVL
LS
LS517
LST
LSTRK
LT

MABOVE
MBELOW
MCLK
MCPE
MCPEMX
MDF

MES.FT
MES.IT
MES.LT

MOC
MOH
MOL
MPE
MRD

MRMCS1

MRMVEC
MS
MSC
MSDRIV

MSEN

MSER
MSG.CS
MSG.EQ
MSG.FC
MSG.FS

MSG.FT
MSG. i€

19=41
14-120#
16=257
L=714
4=100#
14454
9-12#

8=2474#

9-8#
14-328

33-811

13-36
L=714
7=0#
7-0#

11-130
12=10
14-44
16~20

23-261
11-90
7-0#
7-0#
7-0#

9-14#
4-162#
L-133%
7-0#
S-11#

33-758
33-748

4-191#
4L-824
34-157#
4-186#
9-52
9-54
9-53
L-182#
4L-188#
4=2234#
4-135#
4-102#
4L-190#

33-64
14-124
33-7944
11=33»

15-213

15-295

33-602

34=6914

14=70
14=401
33-816

14-70
14-493

14=12 3
14=52 8

14=158
14=564

17-1

20-1
33-117«

20-1

37-43

37=45

33-814
33-226#4
33-85

14-454

37-26#
12-18
14-79
16-77

33-293
33-46#
18-1

9-49
9-48

14-109
16-156
33-333

16-287
33-378

16-98
14-85
37-544
37-53#

16-109

16-129

34-:01

34-:47

16-164

14-363

33-794

37-10#
37-12#
37-11#

33-16

37-36#

33-214

14-239
33-1804

14-141

33-50«

37-17#
33->88
37-4H
37-134
37-74
37-6#

9-55

33-130#4

14=203
15-197

14-205
15=261

14=213
15-346

14=249
16=222

14=257
16=309

14=284
16=379

14=316

14-392

14~543

15=29

15-154

15-233

15-318

16306

33-201+

33-213«

33-;16

33-115+

33-49
33-46*

33-;60
33->61
9-46

14-454

33-:34

18-1
18-1
14-83

35-49#
35-50#

SEQ 0216

11-33»

15-123
33-796
19-37
14-49
14-333

35-17
35-24
4-185#
4-181#
13=47

4-192#
4L=187#

4=~APR-81 11:57:12 PAGE $=12

37-16#

16-132

33-797

14=274

33-458

33-4684

16=220

16=224

33-799

CZRMVBO RMOS5/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF Vv01-05 )

| MSG.IT
| MSG.LC

MSG.LS
MSG.LT

9-5]

9-47

9-56
_9-50

37-144
37-8#

37-15#
37-34

mMSG10x
mMsG11x
msGlex

7-0
7-0
7-0

37-64#4
37-65#
37-664

33-707

33-743

MSG7XA
MSG7xB
MSGAVG
mMSGBO1
MSGBO2
mMSGBO3
mMSGBO4
MsSGBO5S
mMSGBO6
mMSGBO8
MSGBO9
MsGB10
MSGB11
mMsGB12
MsGB13
MsSGB14

7-0
_7-0
33-761
7-0
7-0
7-0
7-0
7-0
7-0
7-0
7-0
7-0
7-0
7-0
7-0
7-0

7-0
7-0
37-51#
39-154
39-14#
39-13#
39-12#4
39-11#
39-10#
39-9#
39-8#4
39-7#
39-6#
39-5#4
39-4#
39-3#

37-62#
37-634

MSGTST

14-45

14-80

14-110

37-454
14-199
34-503

14-220

14-400*

14-492*

MSGMAX
MSGMIN
MSGNON
MSGNUM
MSGSEA

MUR
MwP
MXF
MXSEEK

33-703
33-699
33-783
33-775
33-777

16-21

4-189#
4-183#
4-103#
7-0

MXSTAL
MXWNDW
NBA

_7-0#
34-169#
4=225#

NC2
NED
NEM
NOCLOK
NODRVS
NCNE
NOOP
NOTEST
NOTPRS
NOTRM
NOTSAF
0B8CK
OBEN
occ
OFD
OFFSET

9-20#
4-106#
4-105#
12-71
13-10
12-44
4=273#
12-16
11-117
11-114
11-123
4-195#4
4=1944
L=1764
4=2434
4=279#

NC1

9-19#

SEQ 0217

37-9#4

33->87
9-45

33-702

37-54

MSG.PA
MSG.R

MSGOUS

4-APR-81 11:57:12 PAGE S=13

33-751
33-741
37-57#
37-56#
37-55#

37-50#
37-49%

16-78

16-157

37-334

27-39#

37-31#

37-404
37-23#
37-25#
37-24#4

33-750

33-753

33-760

33770

37-52#

14-142

14=171

16-373

14=240

37-35#

14=275

14-317

14-493

14-528

16-288

14-393

14-544

15-30

15-155

15-234

15-319

. CZRMVBO RM05/3/2 EXT'D DR TST

CROSS REFERENCE

| ONECYL
i\ OPE
1

2
LT
N1

N2
X1
X2
OPNFLG
OPNPAT

PACK

4=1284

7=0
L=260#

4=155#
33->164

33->14
33->134

PIRQ
PIRQVE
PKB
PKC
PKCS
PKV

33->26

33->34

33-2594
33==53+

33-=57%

33==61+

33->97
33->93
33-=96

32-200
33->93
33->04

33-202
33-205
33->06

34-936

34-978

33-983
33~711

33-245

15-183+
33-660
15-104%
15-362*
15-91%

15-260+
33-664
15-106+*
15-374%
15-181+

33->24
33-2544

41014

33==65+

33==69+

33-=71%

33-=81

33-z83

33-=93

33-=95

33->03

15-275*

15-277+

15-287«

33->114

L=282#

10-6

PIP

SEQ 0218

33-256

33->05
33->56

PAT3

PDA
PFECH
PFECH1
PFECH2
PFECH3
PFECH4
PFTSTN
PGE
PGM
PHA

33->32

33->72
33->80
33->77
7-0#

4-145#
9-15#
10-3#
10-3

PAT4
PATS
PAT6
PAT~
PATS
PAT9

37-434

33->80

PAR
PAT
PAT.PT
PATO
PAT1
PAT10
PAT11
PAT12
PAT13
PAT14
PAT15
PAT2

MACRO V04.00

TABLE (CREF v01-05 )

4-APR-81 11:57:12 PAGE S-14

10-6
10-6
10-6
10-6
10-6
10-6
10-6
10-6

10-6
10-6
10-6
10-6
10-6
10-6

33-139
33-142

L-169#
19-29

19-107
19-107
19-107
19-107
19=27*
4=1044
4-1324
4-168#
4=136#
L=71#
L=714
7-0#
7-0#

7-0#
15-348*
7=-0#

19-1154

15-93«

15-102*

15-94*
15-350+
14-454

15-97%
15-360*

33-657

33-659
14-454

33-107+
33-676

15-205%
33-106+*

15-263*

15-265%

| CZRMVBO RM0S/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF v01-05 )

!
|

PLFS
POPQUE
PRO
PR1
PR2
PR3
PR&
PRS
PR6
PR7
PRM

PRMO
PRM1
PRM10
PRM11
PRM12
PRM13
PRM14

4-171#
34421
4714
4-714
4-714
4714
4714
4714
4714
4=714
o=ttt

9-23

9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-26
9-304
33-829
9454 -

9-23#

4-71
34-214%
4L-81#
4=714
9-237#

34472

11-36
14-454

33-185
9-84#

9-934
9-166#
9-175#
9-185#
9-193#
9-199#4
9-205#
9-211#
9-218#4
9-106#
9-224#
9-240#

4-APR-81 11:57:12 PAGE S=15

SEQ 0219

34-589

34-891

34-926

34-970

34==70%

14-454
33-189+
33-134

33-203+

33-206%

33-209~

33->38

33->48

33-773

14-466

16-168
33-;09

16-181

33-146%
33->80

33-147+

33-150%

33-151+

33-167

33-169

33-201

33-213

33-184
11-98+
34-251*

33-274

14-487«
34-457~

15-116%

15-206+*

15-288+

15-375+

33-601+

34-213

9-2464
9-116#

9-126#
9-136#
9-146#4
9-156#

14-353
33-847
33->58
33-153
4=714

34-243~

33-898

33->55

14=454+
34-3467

14=454+

34-399*

14=454~
34-409

34~=36*

34-=56

34-=70+

34-=40
34-=73%
34-=77

34mz42n
34-z7w

34-=75

34==77x

' CZRMVBO RMO5/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF v01-05 )

RANCK

16-338

16-355

33-:37#

16-326
34=:;03*

33-:24
34=;04%

33-:44
34-;06#

RD.RM1
RD.RM2
RD.RM3
RD.RM&

3-:68
34-;05#
34-:01%
34-;12
34-:17

34=:74
34-;33
34-:32#
34-;24
34-:36#

34=<07

RDCHR

23-1

RANPAT
RD.ADR

RD.RM

RD.WRD

34-583

34-:07#

RDLIN

22—;5‘

READ

4-288#

READIN

4-281#

34313

34-319

33-:854
41-5

34-537

34=561

34=575

34=713

33->64

33->91

33-216

34=767

SEQ 0220
34=841

34-851

34-867

34=:22

34=;014 34-;54

34-;34k

34-:08

41-5

41-6

33-:89

33-<24

33-<40

16-42

16-252

26-14

4-APR-81 11:57:12 PAGE 5-16

16-332

16-349

33-335

4-289#

33-228

33-229

33-295

4=-276#

13-44

13=44

14=46

33-582

33-607

36-101

RESREG 15-100
33-640

15-109
33-849

15-119
33-872

15-191
33-906

15-209
33-954

15-268
33-976

15-280
33-<36

15-291
33->21

15-353
33-736

15-365
33-240

15-378
33-764

19-105
33-290

26-1#
34-252

28-1
34-393

33-326
36-39
41-18
41-24
41-28

33-329
36-63
41-18
41-26
41-28

33-368
36-87
41-18
41-26
41-28

33-370
36-111
41-18
41-2
41-28

34-518

34-693

34-:20

34-;03

READHD

RECAL

RELEAS

4-278#

34458

34-686

34698

34-:01

34-<26

34=-=10

32-;$g

REV

7-0

37-474

7-0#

35-16

35-34

35-36 .

41-8

RM.REG 13-52
33-381
36-1268
21-20
2}-53

33-252
33-396
41-14
41-20
2}-53

33-254
33-398
41-14
41-20
41-95

33-257
33-420
41-14
4121
41-25

33-282
33-422
41-14
41-21
41=27

33-284
33427
&41-14
41=21
41-27

33-286
33-519
41=17
41=22
41=27

33-289
33-521
4117
41-22
41=27

33-322
33-826
41-17
41-22
41=27

33-324
36-15
41-18
41-26
41-27

33-243

33-273

33-313

33-357

33-387

33-404

33-410

33-448

33-609

34-345#

REX

4-1734

RHVEC

7-O#

RH.ADR

RMOS

RMADR

14-3

24-:09

14-412

34-:13

33-7

34=-;27

RMAS

34-180# 34-318* 34-765

RMCS1
RMCS2

14-454%
34-513
14-343%
34-273%

RMBA

RMDA

14=477*

24-953%
14-478%*

34=175#

14-475%
34-556
14-454%
34-275

34=:21*
15-60*

RMDB

34-182#

34-<01

RMDT
RMECT

34-184#
34-191#

34-284

RMER1
RMER?

33-252
33-254

RMINIT
RMLA

11-95
14=344

RMDC
RMDS
RMEC2

34=:10
33-619+

34-:60

gz-sos
-:64

34-1628 34-232
34=:96

34-352

34-475

34-496

34-895* 34-031+ 34-054+ 34-:50
15-262%
34-587

15-274% 15=347%
34604 -34-625

34=:65
33-826

34=;97%
34-1764

15-359% 34=173# 34-274* 34-281
34-714 34-768 34-827 34-858

14=454% 14-454% 14=456% 14528+ 14-528+ 33-8
34-415% 34=476% 34-407% 34=519% 34-608 34-653
34=<03
34-483

34-<38%
34-509

34-<43
34-525

33-34x
34669

33-284
33-086

33-322
33-289

34-212#
14-457

34-1814

RMERRS Z‘}"%” 211.-.;16 13.?-905

34-810

34820

33-368
33-329

33-396
33-370

33-420
33-398

33-519
33-422

34-1794 34-320
33-427 33-521

34-040* 34-9041% 34=942+« 34=943% 41-4

33-282
33-257

33-324
33-306

34- 07 34416+ 34-417 34-491
34-903 34-972 34-:55
33-36% 33-604* 34=-177# 34-233
34-680* 34-712+ 34-839+ 34-939«

15-261% 15=273% 15-346% 15-358+ 33-620% 34-187# 34-487 34-500
15-107 15-189 15-266 15-278 15-351 15-363 34-178# 34-314

34-<11

)

15-184*
15-98

14-454% 15-60%*
%2-43§ 14-456
34-192#

14=486%
34-576
14-454*
34-365%

33-33

41-4

34-532
34-842

34-868

34-940

34-852 = 34-941
34-190# 34-942

34-:69

414

41-4

§1-7

. CZRMVBO RM05/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF v01-05 )
RMMR]

| RMMR2

34-183#

34-189#

34-943

34-311

34-186#

RMSN

34-185#

RMVEC

T4-454v TeiSix 15-92%

33-121

34-986#4

RMW(

14=476%

34-1744

RMR

RMTMR

ROTATE

4=144H

7-0

14-44

14-79

RSTART
RSTRT1

13-5#
12-72

13-28
13-13#

17-6
13-19

RTURN

17-1

RTC

SAVCSW

15-318
4~280#

7-0#

SAVEFG 11-96*
SAVREG 15-100

33-430

16-20

17-34

12-5

16-77

34-;93

sc11
SC12
SC13
SC2
SC3

34-840
34-801
34-791
4=2324
34-7804

34-848
34-814
34-794

34-919#4
34-9394
34-9504

34-781
34-813
34-811

34-789#

SCO
sC1

SC4

SC5
SC6
SC6A

SC7

SC8

SCOPE

SCTRWC
SEARCH

4-230#
4-2314

34,-783%#
34-850

34-828

4=71#

15-386
4-296#
4-283#

34-785

34-817

34-8354
34-861#

34-864

34-843

14-70

16-156

16~287

34-718
15-191

33-882

33-858

34-989
34-7654

37-424

33=:65+

12-9%

34,692
34-697

7-0

14=109

34-117# 34-591
15-109 15-119
33-839

34-562

34-<94

33-945

13-50

37-344

SELDRV

4=292#

34=277

SET.IE

34-246

SETFOK

L=2914 13-42

SETBUF

SETVEC

14-409

11-94#

16-231

16-260
16-313

16-363

16-389

15-299

33418+

33-455+

33-576*

33-616* 33-995+ 41-10

41-1

41-12

15-60

15175
16-385

33-231

15-175

15-185

15-254

15-262

156=175

15-254

15-339

16-380

16-385

34-125#
14-491+
14-528*

34-217
14-528+
:

34-442

34-383

34-456

13=-44

23-1

23-34

SLASH

33-:88

33->63

37-19#4

SK 1

SP10

4=2614
7=04

33-257
15=216

33-289

14-566

15-217

14-395

23-1

15-143

14=395

SHUT

34-979

34-640

14-530

14-319

33-9454

28-1

34-408

14=-368

33-575+

SERIAL

26=1#4

14-305

14-96

15-339

19-1 2
34-348

34-948

7-0#

15-339

15-378
34-212

15-280
33-<21

33758+

34-9074

4=275# 14-319

12-37+
14-489
14=4654*

15-365
33-772

15-268
33964

33-753+

34-904

SEC.RD

15-274

15-353
33-7206

33->81+

34-B69

14=160

34-859

2%-320" 33-280* 33-320* 33-366%

12-34%
7-0#
7-0#4

15-291
33->11

33->62

34-937

14-132

41-%;

SEEKFG
SEKCNT
SEKTMR

15-233

34=917

34-BB7#

41-11

15-154

34-905

SEC.DS

SEEK

33-703+

15-29

14=316

34-876

16-134
16-89
15-103

33->89

14=543

14=239

34-8B66

16-63
16-49
15-95

’

34-231

14=392

14=274

14=170
16=372

34-928
15-209

34-BB4

34-853

15=213% 15-259% 15=295% 15-344s 15-382+ 33-602% 34=1634 34=229

14=141

34-833

34-831

SEQ 0221

34=566

15-123% 15-182%

7-9

9-64

RPT

34-542

34=538

RMOF

N 1

4-APR=81 11:57:12 PAGE S$-17

14=226

33-394*

14-454

14=-263

15-60

16-380

34~685

34-773

34-<364

14-46

14-319

14-395

15=-60

33-329

33-427

15-347

;

15-359

16-385

33-232

| CZRMVBO RMOS/3/2 EXT'D DR TST

(CREF V 01-05 )

&4~APR-B1 11:57:12 PAGE S-18

SEQ 0227

STALL

STALLO
STALL1
STALLZ2
STALL3
START
START1
STARTZ2

START3
STARTS
STATBL
STKLMT

STO

STO1
ST02
ST03
STOS
ST06
ST107
ST08

14-342
16-84
16-351
14-190
7-0#
7-0n
7-0#
7-0#
11-20

5-1
5-3
5-5
5-7

7-0#
4=71#

34-996
34-:30%
34-:29
34-:52

34-:66#
34-:54
34-:56

ST09

34-:76
34-:27

STRT2A
STRTMR

11-23
15-90

SVRH70

14-454

SVSTAT
SWO

7-0#
L=71#
4=71
4=71
4=71

STRT1IA

SVADR

Sw00
SwO1
SW02
Sw03
Sw04
SWO5
SWo6
SWC7
Sw08

11-16

7-04

34-720

4=71
4=71
4=71
4=71
4=71
4=71

14-454
16-92

16-361

14-196
14184+

33-303
33-438

16-383
11-28#
11-11
11=-25#
11-15#
11=-22#
19-50

16-382
14-198~

11-18#
12-48

13-11

23=5

34-:33

34~:504

34-:48

34-:57

34-:62

15-257
16~-322*
15-100

15-342
16-340
15-109

33-6324

33-931

33-343

~ - ~

14-556
16-120
17-3
14217
14-197

14-455
16=-102
16-378
14=211
16=19N1

LAl

24AioNM=Dk

- xR

NMVMNMe-V=NW=M=DNV
. BESFRN I 11 r1r

?oo~OPNPGP(M3w]P1nP3W*R1oR8NMR1yoRRTTWN IT

Uo~MMe~M)==M)=1=F [

1?O5:M75);5N‘~75?A5—m75wn55‘mm65e“1“mKy12t1hr33O:15LnM33L33PO;‘1OL

CROSS REFERENCE TABLE

MACRC v04.00

16=387
14-199

33-302

33-342

33-437

33-5434

J4~:64

34-:67

34=-:74

34-:82

34~:86#

15-119

16-357
15-191

16-358
15-209

15-268

15-280
34~:85

15-291

33-:05

33-:68

14=201+

14-212

14-218

14=219=

14-220

14=222+

15-353

15-365

16-388

34-:16#
34-:31
34-:59%
34-:694
34-:78%

34~-:84m

34-:37

11-19#
11-26#
15-180
16=321*
14-528

34-736

19-47

4=71#
4=714
L=714
L4=714
4-714
L=71#
L=714
4=714
4=714

34-800
33-497+
16-247
16-254
16-249
16-229
16-229

33-103
15-64

33-226
12=35

34-855

16~341

34-874

34-930

34-966

16-240
16-232

33-113

15-124

33-:57
18-1

33-690

33-730

34-:40

34-:93#

15-378

34-592

CZRMVBO RM0S5/3/2 EXT'D DR TST

MACRO Vv04.00

CROSS REFERENCE TABLE (CREF v01-05 )

Sw09

SwW1
SW10

SW11

Sw12
Sw13

SW14

=714

33-929

33-:64

4=718

1445

14-80

14=110

4=714

33-544

33-435

4-71

4=714
4=714

4=714

15-234

1445

14-110
16~157
18-1

14-171
16-232

14-240
16~240

4=1%

14~
16-78
18-1

14-142
16-227

24=1»

15-234
18-1
24=1+

11-38

33-690

33-730

14-275
16-247
24~1
33-931

23-1

15-81

15-138

15-72

15-140

7-0#

TAB.XY
TAP
TBITVE
D

5-13#
4=224#
4-71#
34-696

TESTI0
TEST11

14-392
14-543

TIM.DN
TIm.PT

11-32~«

11-33

5-1#

15-77

TEST7
TICkMS
TICKUS

11=-33+

23-1

33-:64

15-75

TEST3
TEST4
TESTS
TEST6

11=33«

16-78

11-38

33-:05

7-0#

TEST21
TEST22

15-155

24-1

33-935

T7A1

TEST2
TEST20

15-30

14-544
16-288
24=1

15-175
15-254
15-339

TEST17

14544

14-393
16-254

7-0#
7-0n
7-0#

TEST16

14~393

14-317
16-249
24-1

11-33

110
111
112

TEST12
TEST13
TEST14
TEST1S

14=317

33-585

11-33

15-214
15-296
15-383

TESTO
TEST1

14=275

33-468

6-04

1781

14<240

4~71#

SWR

T7A

16-18;

33-340

16-299

15-80

15-71

7-0#

15-66

15-67

14-44
14-79

34-704#
14-70
14-92

14-704
14-924

16-20

15-87#4
15-i75#
15-254#
15-339#
16-26

16-26#

14-109
16-156

14-117#
16-220#

15-29
15-154
15-233
15-318

16-77

16-287
16-372

14-141
14-170
14-239
14-274

14=316
7-0#
7-0#

7-0#
7-0#

6-0

14-454#
14-555#

16-83

16-318
16-377

14-149#4
14-182
14-247#
14-282#

14-325
33-95«
33-96*

15-369+«
33-635

14-528

15-30
16-373
33-:68

16=157

15=155
18-1
33-:57

14-528

16-83#
16-318
16-377#

16-318#

14-182#

14-325#4
33-98+
33-99+
15-370+
33-674

SEQ 0223

14-171

33-300

4=718
4=714
=714
4=71#
4-71#
4=71#
4=718
4=714

SWREG

16-21

14=142

4-71#

Sw15
Sw2
Sw3
Swé
SWS
Swé
Sw7
Sw8

SW9

15-319

4-APR-81 11:57:12 PAGE $=19

33-120

33-639*
33-676%

33-656
33-677+

16-288

16-37

15-319
18-1
24=1*

16-21
12-1
33-383

33-468

33-585

23~1»
33-929

| CZRMVBO RM0S5/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF Vv01-05 )
TIM.UP

7-0#

33-633

TIMER

%2-49#-

;2—1;20

TKVEC
TPS0

L(=714
15-67*

23=1»
15=72*

TPB
TPS
TPSSO
TPS60

7=0%
7-0#
15-68+
15-76*

TRAPVE

4=71#

TP60

15=75+

15-80+

11=45
11-44
15-73»
15-82+«

11-33+

33-653

33-736

-pb1r

34=707%

33-152+

34=597%

SEQ 0224

34-836%

34~B882%

34~934%

34=951+

34~975+

34~992

34~994+

34-:63+

41-10

41-11

23=1*
15-140#

15-1384

18-1
18-1
15-142#
15-138#

11-33«

7-0#

16-32

16=55

16-296

33-148+

7-0#

33-250*

33-280%

33-418+

33-455+

33-577+

33-616+

33-921+

33-99+

TRNSWT

14-480%

33-574+

41-11

41-26

33-366% . 33-394+

7-0#4

41-23

33-320%

34=473%

34-631

34=636%

34=647

34=667*

34~678+

34=709

34=~710*

34~:34

34~-:46+

TST1
TSTI0
ISTI0A
TSTI0B
TST11
TST12

14-44
14-316
14-454
14-454
14-392
14-543

14-79#%
14-392#4
14-4544
14-528#
14-543#
15-29#

1ST3

14-109

14-141#

12-14
15-233

12-69
15-318

14-44
16-20

14-79
16-77

14=109
16-156

14=141
16287

14=170
16372
33-=41

14-239 14-274 14-316 14-392 14-543
33-131+ 33-132+ 33-<32+ 33-<33+ 33-<48B«

33-=43

11-76
12-16
14=45
16=21
19-52
20-1
-1
33-692
33751

11-104
11-77
12-44
12-39
14-110
14-80
16-157
16-78
19-59
19-58
81
&l
a1,
33-695
33-693
33793 376

11-105
12-45_
14=142
16-288
19-63
"
&
33-699
33738

11-107
12-61
14=171
16-373
19-66
23-1
31
33-702
33-760

W
W

“=714

M-

3%=451%

W
W

TPVEC

-2

33-638+

4-APR-81 11:57:12 PAGE $=20

33214

19-84

33-<23

33-<39

33->33
w

33-712

33-:88

33->90

19-114
17-1

33-.85

33->88

33-:59

11-720
11-150
13-68
15-319
19-43
19-103
23-1
33-20
33750

18~1
11-8

11-65
11-146
13-65
15-234
19-42
19-100
23-1
33-19
33-748

33-=30*

33->87

11-59_
11-133
13-50
15-155
18-1
19-98
231
33-18
33746

33-<96*

33-783

11-38
11-132
13-49
15-30
18-1
19-96
23-1
33-16_
33743

33-<71+

33-777

11-6
11-130
13-47
14-544
17-1
19-93
23-1
33-15
33-741

33-<67+

oo
v

26-14

33-<b3x

19-86

33-<59*

oo
N

33-<55%

TYPERR
TyPoC

12-12
15-1564

TYPE.

33-<49*

14-170#
14-239#
142744
14-316#

TYPDS

7-0#
15-29

15-154#
15-233#
15-318#
16-20#
16=-774
14-109#
16-156#
16-287#
16-3724

TSTNMS

14-141
14-170
14-239
14=274

3%=79#

)
-3
1

1ST4
1ST5
1ST6
1S17

15-29
15-154
15-233
15-318
16-20
14-79
1€-77
16-156
16-287

41-15

IST13
TST14
TST15
ISTi6
IST17
1ST12
1ST20
TST21
1ST22

41-12

—

TRK.RD

TRK.DS

TRCkWC

33->35

33->57

11-114
12-65
14-240
17-1 =~
1969
23-1
23-1
33-70%
33-761

33->59

11-117
12-71
14-275
17-1
1970
23-1
31
33-707
33-770

3361

11-120
13-10_
14-317
17-1
19-79
231
%1
33-708
33-771

33->63

11-123
13-46
14-393
17-1
19-89
231
%1
33-737
33-775

3386

11:57:12 PAGE 5=21
4=-APR-81
V04.00
MACRO
TST
DR
EXT'D
RMOS5/3/2
CZRMVBO
. CROSS REFERENCE TABLE (CREF v01-05 )
2

TYPON

TYPTIM

I TYPQS
,

26-1#

11=62
14-544

15-138

11=73
15-30

15-139

ULDFLG 34=~106# 34=272+

UNL OAD

L=274%

UNS
UNSTAT
UNTQFF
UNTON
UPE

L=156#
11-104
11-120
11-132
4=107#

use
usSé

4(-95%
(=964

us1

VERIFY

v
WwC
WCE

WCEFLG

WCF

WOHKX
WD
WLE

11=106
15-155
15-214

34=355

SEQ 0225

12=58
15-234

13=48
15-319

14=45
13-;1

14-90
16=78

14=11
16=15

14=142
16=288

14=171
16=373

14=240
17-1

14=275
26=14

14-317
33-17

34=370%

34~553%

34=629+

34~668+

34=797

34=892

34-894*

34=919

34~921+

34=:45+

34-555

34-565

15-296

15-383

% - 5

37=-204
37=-214
37-22#

L=94n

33-297

33-337

33-566#

7-0#

16=220*

16-245

33-356+

33-476+

34-721
L=-1644
4&-153#

34-741

4-129#%
L=1664
4£-108#

L=1478

L=-284La

16-37

16=-54

16=104

16=127

16=243

16=342

16-359

33-379

33-403

::{TE

2—%%2:

14-39¢

16=35

16-48

16-86

16=121

16=235

16=298

16-323

33-385

WRT.AD

34-:50+

34-;60~

34-:634#

41-6

3%-:56

34-:67

34-;70

34=-;76

34-;82#

WRT.RM 34-306

34-310

34-482

34~4B6

34=~490

34=512

34-52¢

34-531

34-541

41-6

34=;47%

34-508

34-;62#

34=-902

34-499

11-5¢4

11=56*

11=61

11=72

11=126

11=-128

12-25

12=-27

WwRCKD

WRCKHD

T.R1
WRT.R2

WRT.R3

4-285#

34-;61#
34-:47+

34-:81
34-:80#

34-;84m
34-.85#

WRT.RG
WRT.RS

34-:72
34-:83

WRT.WD

34=:48+*

34-:52

34-:59*

XXDP

7=0#

11=-50=

11-53«

WRTHD

14-393
33->34

34-603

4=287#4

34-624

34-826

34-857

34-586

CZRMVBO RM0S5/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF v01-05 )
$$CMRE
$SCMTM
$SESCA
SENEWT

$8SET
$SSETM
$$SKIP
.SACT1
.SAPTB
.$APTH
.SAPTY
.SCATC
.SCMTA
.$082D
.SDIV
.SEOP

.SERRO
- SRAND
. SRODE
-SRDOC
-SREAD
. SSAVE
.$582D
.$SCoP
-$SIZE

-SSUPR
-.STRAP
.S$TYPD

.STYPE
-$TYPO
-EQUAT

-HEADE
.SETUP
- SWRHI
.SWRLO
(KCHR
(kDIG
CKNUM
COMMEN
COMND
DO

DODTA
ENDCOM
ENDPAS
ER.NDX
ERRCAL
ERREND
ERROR

5=-219#

5=219#

L=714
L=714
15-318
26~1
11-33
L=71%
(=324

6-0
6-0

1444

14-79
16=77

16-20

26~1

26-1

5-9
6-0
5=12

6=0#

11-33#4

&4=-APR-81 11:57:12 PAGE M=-1

SEQ 0226

6=0

6-0
6=0

14-239

14=274

14=316

14~392

14-543

15=29

26=1

26~1

26=14

15=154

15-233

32-1
=1

5-219
28-1
311
171

18-1
30-1

23-1

25-1
27-1
241
29-1
26~1

22-1
20-1
21-1

4&=71
437
4-298

4-38
4-39
33-:91
33-<28

4=40

4-41

4=42

4=43

14-94

15-254
14-121
14-300

15-339

14-128
14-302

16~380
14-152
14-3461

16-385
14-156
14-361

14-187
14-557

14-193
14-558

14-208
15-60

16~58

16=106

16-122

16-128

16-239

16-244

16-253

16-304

15-60

15-339
16-39
16-346

14-395
14-70
14-294

33-250
34-772

33-280
34-830

33-320
34-832

33-366
34-:;18

14~528

15-101

33-320
33-418
33-928

14-454
33-250
33-328
33-418
23-998

13-44
13-43
14-252
15-254

16-36
16-335
17-1

18-1

14-46
13-45
14-254

=46

33-A36

14-319
14-70
14-292
16-381
16-43
16-352

33-.93

4=45

33-a91

33-718

33->66

4=44

33-a86

33->93

33-<26
33->80
33-202

33-a79

33-220

33-250
33=-366
33-426
33-:04

16~386
16-52
16-362

33-250
33-366
33-455
33-:62

14-296
33-583

23-394
34=:77
15-269

33-280
33-394
33-616

15-292

33-288
33-39%4
33-616

CZRMVBO RM0S5/3/2 EXT'D DR TST

MACRO V04.00

CROSS REFERENCE TABLE (CREF Vv01-05 )

| ERRTYP 10-393# 18=1
| ESCAPE 4-71# 15-%0

EXIT
GETPR]I
GETSWR

4L-8#

14-70

15175
33-997
14-9%

4=71#
4-71#

31-1
11-38

11-38#

33-922

15-386

33-927
16-63

MORE.S

10-359# 14=118
}g-§g1
}2-%25
10-3264 14-44

MORZTA

S5-15#

LOOP

mMSG

NEWTST
POP
PUSH

REPORT

15-318

16-20
6-0

14-378 14-44
14-307% 14-316

SETPRI

4-71#

SLASH

STARS

33-365
14=368

33-393
14-530

33-417
14=566

33-454
15-143

33-579
15=217

33-615
15299

14=151
16=53
14=109

14=154
16=92
14=141

14=185
16=102
14=170

14=206
16=120
14=239

14=250
16=126
14=274

14=286
16=234
14=316

14=340
16=242
14=392

14=342
16=251

14=454
16-303
15=29

14=455
16-328

16-34
16~334
15-233

16-260

16=156

14=724 1479
14=-3704 14=392

10-296#
16-20

23-1

16-287

16-389

16-372

14=984 14=109
14=532# 14-543

14=274

14-316

14-392

14=543

-1
32-1

33-171
32-1

33-216
33-130

33-784
33-180

33-728

15-209
14=170

15-268
14=239

15-280
14=274

15-291
14=316

15-353
14=392

14=170

14=239

31-1
31-1

32-1
32-1

15-119
14=109

15-191
14=141

14=141

g1
25-1

30-1
30-1

15-109
14-79

15-214
16-77

15-296

16-156

16-287

15-383
16-287

16-372

16~372

26~1

26~-1

26~1

4=718

14-1

14=25

14-29

14=35

15-3

15-11

16~3

16~7

14-79

14-109

14-141

16~156

16-287

4-714
L=714

4~714

11-33

4-270

14-392

14-543

23-1

4&~71#

16-156

11-33

5-9

5-12

5=12

14-170

15-154

6-0

14=-170

14=239

16=372

17-1

15-154

15-233

6~-0

15-233

15-365
14-543

15-378
15-29

15-154¢

15-233

26-1

26~1

26-14

8-227

8-245

14-44

14-79

15-318

16-20

16=-77

14-316

14-392

14-274

18~-1

20-1

21-1

22-1

23-1

15-30

15-155

15234

15-233

24-1

25-1

26~1

27=1

28-1

29-1

11-33#

15-154

14-274

23-1

16-372

14=265#4 14-274
15-301# 15-318

14=239

15-29

16-287

15-154

15-29

14-543

14~2284 14=239
15-219# 15-233

16-372

14=109
16=156

14=162# 14=170
15=1454 15-154

14=543

16-365#

16-287

16=156

16-77

14=134# 14=141
15-29
15134
16=262#

16-1364

22-1
22-1

16-20

16-363

26~1

16-77

SWRSU

33-319
14=305

26~1

SETTRA 26-1

SETUP
SKIP

33-279
14=263

14-79

SAV.R4 10-280# 15-100
SET.TN 10-301# 14-44
15-318

8-14

33-249
14-%26

14-44

4-71#

16-77

SEQ 0227

15-339
33-:50
14-160

16-77

16-20

=718
=714

14=126
}g—§21
14-79

15-254
33-:03
14=132

16=-654

12-;#;

15-318

16-134

4-APR-81 11:57:12 PAGE M=¢

15-318

30-1

31-1

32-1

34-15

TRMTRP

26-1#

4-144

14-45

14-80

14-110

14-142

14=171

14=240

14=275

14-317

14-393

14-544

;w;g?g

12-;?20

33-742

33-747

33-749

33-752

33-757

33-759

33-769

33-772

33->62

33-713

TYPDEC
TYPEND

4-71#
16-396#

19-86
17-1

TYPNUM

4=71#

13-48
15-319

14-45
16-2

14-80
16-78

14=110
16-157

14=142
16-288

14=171
16-373

14~240
17-1

14-275
33-17

14-317
33->3¢4

14-393

14-544

11-70

11-76

11=77

17-1

17=1

17-1

19-52

19-66

33-:5¢

33-<23

TSTTYP
v

TYPNA®

TYPOCS

TYPOCT

TYPTXT

15-319
-

4-71#

16-21

16-78

11-106
15-155

12-58
15-23%&

4=71#

11-6

11-59

9=<99

16~288

16~-373

11-38

&4-71#
15-30

4-71#

16=157

17-1

35->33

19-84

35712

23-1

33-.87

33->89

33-215