Digital PDFs

AH-F937B-MC

August 1981

305 pages

Original

17MB

view download

OCR Version

20MB

view download

Document:	CZRMRB0 RM02-03-05 RM05-3-2 DU POR TST1 AUG 1981 bw
Order Number:	AH-F937B-MC
Revision:	000
Pages:	305
Original Filename:	CZRMRB0__RM02-03-05__RM05-3-2_DU_POR_TST1__AH-F937B-MC__AUG_1981_bw.pdf

OCR Text

RHOR/03/05

72 DU-POR
RBO
CIRM
"33

7511

AH-F937B-MC_

Coiciciro so-a: @m@fl@@

v usa
E OF 2 raoe
FICH1

RI02/03/05 RM0°7

3/2 DU POR
CZRMRBO.

TST

AH-F937B-MC_

%t
e GIEMIHEL

FI
2C
OF 2
H
eE
v use

JRMRB0O RM{S/3/2 DU POR

TST

MACRO v04.00

&-APR-81

18:06:25 PAGE

.REM

Omfwmdoomwombw

a2
R
] N AN N WGNAN AN W AN N NN N N RO N PONIN)
2 Do b d b bt
md ol
S W2 OO0 ~
N =OV00 NN
NN OO0

WY . o

SEQ 000°

IDENTIFICATION
PRODUCT CODE:

AC-F9368-MC

PRODUCT NAME
:

CZRMRBO

PRODUCT DATE:

APRIL

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR :

MIKE

THE

INFORMATION

THE

SOF TWARE

THIS

RM05/3/2 DUAL PORT

TEST,

1981

LEAVITT

DOCUMENT

SUBJECT

TO CHANGE

WITHOUT

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.

LICENSE

TERMS OF

AND

DESCRIBED

MAY

THIS DOCUMENT

ONLY BE USED OR COPIED

SUCH LICENSE.

DIGITAL EQUIPMENT

((C)

FURNISHED UNDER A

CORPORATION ASSUMES NO RESPONSIBILITY FOR

USE
OR
RELIABILITY OF
SUPPLIED BY DIGITAL.
COPYRIGHT

[N ACCORDANCE WITH THE

ITS

1980,1981

SOFTWARE

EQUIPMENT THAT

DICITAL EQUIPMENT CORPCORATION

THE

IS NOT

JRMRBO RMOS5/3/2 DU POR

MACRO v04.00

4-APR-8B1

18:06:¢5 PAGE

CONTENTS
1.

ABSTRACT

REQUIREMENTS

n
AN AN WWIRIANAN
NN PO PO NP PNONONINON)
0 — e b b b
e
NOWNH WA 200N
NS
N—=OV W=
N NS WA

—=O 000

O NS NNy »

2.1
2.2
2.3

EQUIPMENT
PREREQUISITE PROGRAMS
OTHER PROGRAMS

LOADING PROCEDURES

STARTING PROCEDURES

4.1
4.2

STARTING ADDRESSES
OPERATOR ACTION

OPERATING PROCEDURES

>.1
5.2
5.3
5.6

‘'SOFTWARE' SWITCH REGISTER
OPERATIONAL SWITCH SETTINGS
TEST SELECTION
DUAL PORT TEST CABLE (ONNECTION

ERRORS

MISCELLANEOUS

7.1

7.2
7.3
7.4

7.5
7.6
8.

RESTRICTIONS

LIMITATIONS
EXECUTION TIME

REQUIRED TESTS

DISK SURFACE USAGE
LOOP ON ERROR OPTION

TEST DESCRIPTIONS

vuv

ZRMRBO RMO5/3/72 DU POR

TST

MACRO v04.00

4&-APR-81

18:06:¢5 PAGE

THE RMO5/3/2 DUAL PORT LOGIC

BOTH PORTS OF

TEST PERFORMS A SERIES OF

THE RM05/3/2 DUAL PORT LOGIC

THE DRIVE ARE

CABLED

TO THE

SAME MASSBUS BY

A SPECIAL ADAPTER CABLE.
THIS ARRANGEMENT ALLOWS THE DUAL
PORT LOGIC TO BE TESTED FROM ONE PDP-11, RHM11 OR RK70.

) d

NE WAL 2OV
NOWVNBE WSO OVB N
2OV
NOWVB AW

THAT

IS FUNCTIONING PROPERLY.
ONLY THE CONTROL LOGIC IS TESTED
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE
IS NOT TESTED BY THIS PROGRAM,

THIS PROGRAM

LOGIC

MANUAL

TEST.

IS THE

THE

FIRST PART OF

SECOND PART OF

INTERVENTION TESTS.

THE

THE DUAL

PORT OPTION

TEST PERFORMS

REQUIREMENTS

2.1

EQUIPMENT
PDP-11

PIAAIWAVIUIANES
35 08 B8 I B 05 25 5 35 W AN N N N N AW NI O N RO N N AU NS n non) b ad ed e d

ABSTRAC(CT

TESTS WHICH VERIFY

NS W N=OVO NPV EIWNN = O 000

N —

SEQ 0003

PROCESSOR

20K MEMORY

KWil=L OR KWI11-P CLOCK
TERMINAL
RH11 OR RH70
1 -~ DISK DRIVE (RMOS, RMO3 OR RM02)

2.2

RM DUAL PORT

TEST

PREREQUISITE

PROGRAMS

CABLE

(P/N:

RM05/3/2 DISKLESS TEST, PART 1

7010507-02)

§ 2

RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 & 3
THE PREL IMINARY PROGRAMS MUST BE PUN TWICE:
EACH PORT (A & B).

2.3

ONCE FROM

OTHER PROGRAMS
A.

THE OPERATION OF THE 'PORT SELECT'' SWITCH IS TESTED
B8Y THE SECOND PART OF THE DUAL PORT LOGIC TEST.

DYNAMIC OPERATION OF
TESTED BY

THE DUAL PORT OPTION IS

THE RMOS5/3/2 PERFORMANCE

EXERCISER PROGRAM.

LOADING PROCEDURES
THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA
USING THE ASSOCIATED °'XXDP' LOADER.
THE PROGRAM MAY NOT

JRMRBO RM0S5/3/2 DU POR TST

MACRO v04.00

4-APR-81

E
18:06:¢5 PAGE

1
3-1
SEQ 0004

58
SS
60
61
62

IN AN

'XXDP'

(HAIN,

STARTING PROCEDURES

INCLUDED

6.1

67
68
69

STARTING ADDRESSES
A.

THE NORMAL

200 (8).

;gsingCT

STARTING ADDRESS OF

THE PROGRAM IS LOCATION

STARTING AT THIS ADDRESS ALLOWS THE OPERATOR
(OR RESELECT)

THE ADDRESS OF

THE DRIVE

TO BE

72
73
74
75

76
77
78
79

4.2

80
81
82
83
84
85
86
87

THE RESTART ADDRESS IS LOCATION 204
USE THE CURRENT DRIVE ADDRESS.

THE PROGRAM CAN BE STARTED AT LOCATION 210
ADDRESS OF THE RH11 OR RH70 TO BE (HANGED.

THE PROGRAM WILL
(8)

TO ALLOW THF

OPERATOR ACTION
CONNECT

THE DUAL PORT

(SEE SECTION S5.4)

LOAD THE PROGRAM INTC MEMORY IN THE PROCESSOR CONTROLL
ING
THE MASSBUS USED FOR TESTING.
SWITCH THE 'PORT SELECT' SWITCH ON THE DRIVE TO BE
TESTED TO THE 'A/B' POSITION.
CYCLE THE DRIVE UP.
LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8))
INTO THE SWITCH REGISTER (OR THE ‘SOFTWARE' SWITCH REGISTER,
REFER TO SECTION 5.2).
PRESS START.
ENTER THE DRIVE NUMBER.

88
89
90
N
92
93
95
96
97
98

OPERATING PROCEDURES

aoaTMmm

TEST CABLE BETWEEN BUS A

€ BUS B ON THE DRIVE BEING TESTED.

(8).

ENTER THE NUMBER OF THE TEST TO BE RUN.
OR '0' WILL RUN ALL TESTS.)
THE PROGRAM MAY BE STOPPED AT
FROM LOCATION 204.

('CARRIAGE RETURN’

ANY TIME AND RESTARTED

100
5.1

'SOF TWARE'
IF

SWITCH REGISTER

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

THE PROGRAM WILL DETERMINE

NOT PRESENT AND WILL USE A

'SOFTWARE'

THAT

THE HARDWARE

'SOFTWARE'

SWITCH REGISTER

SWITCH REGISTER.

THE

SWITCH REGISTER IS LOCATED AT LOCATION i76 (8).

THE

SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM
IS AT A HIGHER PRIORITY PROCESSING AN RMBO INTERRUPT.
THE
'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

'SWR - NNNNNN

NEW ='

JRMRBO RMQS5/3/2 DU POR TST 1

MACRO V04.00

4-APR-81

Fol

18.06:25 PAGE

3-2

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT'
‘CONTROL U' FUNCTIONS MAY BE USED TO CORRE(T TYPING FRRORS
DURING SWITCH ENTRY.

W= OV
NN

OPERATIONAL

SWITCH SETTINGS

THE

—

——d

—

bwm—oom\pOwfi WN = OV

5.2

WITH ALL SWITCHES SET TO ZERQ, THE
ALL ERRORS AND CONTINUE TESTING.

TYPE

SWITCH SETTINGS ARE:

SW<15>=1
SW<14>=1
SW<13>=1
SW<11>=1
SW<10>=1
SW<09>=1
5.3

PROGRAM WILL

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEQUTS
INHIBIT TEST ITERATIONS
RING TTY BELL ON ERROR
LOOP ON ERROR

TEST SELECTION

INDIVIDUAL

TESTS ARE SELECTED

TEST NUMBER:'

ENTERED.

MESSAGE.

IN RESPONSE

ANY VALID

TO THE

'ENTER

TEST NUMBER (AN BE

EACH _ENTRY MUST BE TERMINATED BY A CARRIAGE

RETURN (CR).
THE LOOP ON TEST SWITCH, SW<14>, MUST BE
TO ALLOW CONTINUOUS EXECUTION OF THE SELECTED TEST.

SET

TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A '0' FOLLOWED
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF.
THE
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE.

THE 'RUBOUT KEY' (RO) CAN BE USED TO DELETE THE LAST
CHARACTER ENTERED.
SUCCESSIVELY STRIKING THE RO KEY

)

23GHIZ \I\%WN—" OO
AN

oOrONONOr L UGV
IV VIV

152

WILL DELEFE

CHARACTERS UNTIL

d ol cd cnd

BEEN DELETED.

THE FREVIOUS CHARACTEi3 HAVE

CHARACTERS DELETED BY THE RO KEY WILL BE

TYPED AND WILL BE

SEPARATED BY

ENTERED BY THE OPERATOR.

'\'

FROM THE CHARACTERS

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A

—d

—A..aa:_a
——d —d —
b o B o
-

AND

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS5, THE 'SOF TWARE' SWiI(CH
REGISTER MAY BF USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES.
ALL SWiTCH REGISTER REFERENCES WILL BE TO THE 'SOF TWARE® REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

S S

S -

BN BN BN BN B NN N N N AN N N N NN N RO N PONIOPNONININ)
— e

*CONTROL U'

5.4

TEST CABLE

TO TEST

CONNECTION

THE RM05/3/2 DUAL PORT OPTION WITH THIS PROGRAM,

A SPECIAL

TEST

CABLE MUST BE USED.

(THE

TEST CABLE

P/N: 7010507-02).
THE TEST CABLE CONNECTS MASSBUS A & MASSBUS
B TOGETHER AT THE DRIVE BEING TESTED AND [S CONSTRUCTED SO
THAT BIT O OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED.

WITH THE DRIVE CABLE CONNECTED TO THE RM05/3/2 UNDER TEST,
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS:
EACH PORT

JHMRBO RMO5/3/72 DU POR TST

MACRO v04.00

4-APR-81

.1
G
18:06:25 PAGE 3-3
SEQ 0006

172

THE DRIVE WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS.

173
174
175

THE ADDRESS OF
ADDRESS PLUG.

177

PORTS.

176

EACH PORT WItL DEPEND UPON THE DRIVE'S

THE PROGRAM WILL

178

(ONE

TYPEOUT

PORT WILL

OTHER PORT WILL HAVE

179

180
181
182
133
184
185
186
187

IAS 202202l

THE APFPARENT ADDRESSES OF BOTH

HAVE

THE ADDRESS OF

THE

DRIVE;

THE ADDRESS DEVELOPED BY THE

tdd

THE

CABLE).

222222222

* ANY OTHER DRIVE ON THE MASSBUS WHIZH HAS AN ALCDRESS

IN CONFLICT WITH EITHER OF

POWERED DOWN.

AR RN AN

RN AN

THE

AR A AR

TEST ADDRESSES MUST BE

AN AN AN RNANRAANANNARANR AN

THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WiLL
DEPEND ON WHICH PROCESSOR, RH11/RH70 1S TO TEST YHE DRIVE.
IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT A,
CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J3 OF THE
RM05/3/2 BACK PANEL,THEN CONNECT THE TEST CABLE (P/N: 7010507-02)
FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT 'B'' AT J6.

188

189
190
191
192

193

WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENT]ON
BITS FOR PORTS A & B ARE ASSERTED IN THE SAME BIT POSITION
WHEN 'RMAS' (ATTENTION SUMMARY REGISTER) IS READ.
THE ATTENTION
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE
THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE
INCLUSIVE 'OR' OF THE PORT A £ PORT B ATTENTION BITS.
BECAUSE

194
195
196

197

198
199

200
201
202
205

THIS,

THE

PROGRAM LOOKS AT ONLY

THE

ATTENTION BIT

'RMDS' (DRIVE STATUS REGISTER) TO DETERMINE
Or THE SELECTED PORTS'S ATTENTION BIT.

THE STATE

ERRORS

[AS 1AV 1,101,871,871,
§1ASLASIANTAS
1S TAN1,0 1,8 1,81, 81
OALNLNONOND
N N =D ed b ek ed e D =k )
NO
NS WN - OV NN
WA =

WHEN THE PROGRAM ENCOUNTERS AN ERRGR,

2’8

THE

ERROR ROUTINE

CALLED AND IF SW<13> S NOT SET, THE ERROR MESSAGE PERTAINING
TO THE ERROR WILL BE TYPED.
EACH ERROR TYPEQOUT WILL CONTAIN
THE

FOLLOWING:

AN ERROR MESSAGE

B.
C.

A DATA HEADER LINE
A DATA LINE CONTAINING:

THE

TEST NUMBER

THE PC

CONTENTS OF

MISCELLANEOUS

7.1

(PROGRAM (COUNTER VALUE) WHERE THE ERROR

CALL WAS MADE

RESTRICTIONS

THE APPROPIATE REGISTERS

(ZRMRBO RMOS/3/¢ Cu POR

1ST

MACRO v04.C0

4-APR-81

H
1
18:06:25 PAGE 3-¢

SEQ 0007
TO RUN THIS PROGRAM,

THE

SYSTEM MUST HAVE

EITHER A KW11-P

OR A KW11l-L CLOCK.
ADDITIONALLY, THE DRIVE UNDER TEST
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED.
7.2

LIMITATIONS
THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER
PORT, DOES NOT TEST THE DYNAMIC OFERATION OF THE DUAL
PORT OPTION, AND DOES NOT TEST THE UNLOAD (OMMAND

OR THE OPERATION OF THE PORT SELECT SWITCH ON THE DRIVE.
(REFER TO PARAGRAPH 2.2 § 2.3)

7.3

EXECUTION TIME

PASS 1 OF THE PROGRAM TAKES ABOUT 25 SECONDS.
SUBSEQUENT PASSES TAKE 2 MINUTES 25 SECONDS.
7.4

REQUIRED

PASS 2 AND

TESTS

IF THE PROGRAM IS BEING EXECJTED IN SINGLE TEST MOCE, THE
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER
TESTS ARE

7.5

RUN:

TEST 2 AND

EQZERngg

TEST

THE

THESE

TESTS DETERMINE AND STORE

TIMEOUT NON-SHOT

VALUE MEASURED

FOR

THROUGH

DISK SURFACE USAGE
THIS DIAGNOSTIC DOES NOT USE

THE DISK

SURFACE.

HOWEYVER,

THE

gS#VE MUST BE CYCLED UP AND BE ON LINE FOR THE CIAGNOSTIC TO BE

7.6

264
265

269
270
271
272
273
274
275
276
277
278
279

280
281
282
283
285

LOOP ON ERROR OPTION

IF SW<09> IS SET,

THE PROGRAM WILL LOOP ON A FAJLING TEST

UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING.
BECAUSE THE PROGRAM MUST RESET THE RM0S/3/2 TO A KNOWN STATE
BEFORE LOOPING ON TnE ERROR, THE TEST FOR SW<09> IS PERFORMED
ATSTSETE?QEgF THE TEST - NOT AT THE POINT WHERE THE ERROR
WA

TEST DESCRIPTIONS

8.1

METHOD USED TO VERIFY THAT THE DRIVE

IN NEUTRAL

THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH
BOTH PORTS.
THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS

('ATA'

'Vv')

AND VERIFIES THAT CORRECT STATUS IS READ

'DPR',

'DRY'.)

THROUGH BOTH PORTS.

(THE

CORRECT STATUS

'MOL‘,

'PGM',

IF NFITHER PORT SEES ALL ZERQS FROM

RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE
AND THAT ANY BIT DESCREPANCY BETWEEN PORTS

IS IN NEUTRAL
INDICATES A

L ZRMRBO RMOS5/3/¢c DU POR TST

MACRO v04.00

4-APR-B1

I
18:06:¢5 PAGE

1
3-5
SEQ 0008

286
287

288
289
290
291
292

293
294
295
296
297
298
299
300
301
302
303
304
305

FAILURE

THE

PATH FOR

THAT BIT.

ADDITIONALLY, THE PORT REQUEST FLOPS (RQA, ROB) OF THE
MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO If
THE DRIVE IS IN NEUTRAL.

8.2

METHOD USED TO VERIFY THAT

THE DRIVE HAS BEEN SEIZED

THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SHIZED BY
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH
THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS
SEEN.
WHEN RMDS IS READ THROUGH THE OPPOSITE PORT,

ZERQS SHOULD BE SEEN.

IF BOTH CONDITIONS EXIST,

CORRECT STATUS THROUGH THE SEIZING PORT AND 2EROS

THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT
HAS BEEN SEIZED BY THE SPECIFIED PORT.

5.3

(I.E.,

THE

THROUGH
DRIVE

METHOD USED TO VERIFY PORT REQUESTS
THE PORT REQUEST FLOPS
TESTED TO DETERMINE IF

.
.
.

IN THE MAINTENANCE
:

A DRIVE IS IN NEUTRAL,I.E., RQA AND ROB ARE ZERO;
A DRIVE IS SEIZED, I.E., RQA OR ROB IS ONE;
A PORT REQUEST IS SET WHILE THE DRIVE IS SEIZED 1O THE

ALTERNATE PORT,

[.E.,

RQA AND RQB ARE ONE.

VERIFY

—d el

)

TEST

—d

LRt wwuwwwwww
[S3Ve]o
LT o RV, FAYVI] V]

NEUTRAL ACCESS
THAT

THE DRIVE

SELECT DRIVE,

THE

TEST
1S ACCESSIBLE

VERIFY

THAT

THE

TO BOTH PORTS
DRIVE

1S PRESENT,

THAT

THE

DRIVE IS A DUAL PORT RM0S/3/2, THAT THE DRIVE IS ONLINE (RMDS HAS
'MOL', 'PGM*', °'DPR', g °'DRY' BITS SET), AND THE THE DRIVE SERIAL
NUMBER READ THROUGH BOTH PORTS IS THE SAME.
TEST

IS REPEATED THROUGH BOTH PORTS.

TEST 2

PORT

'A'

SEIZE/TIMEOUT

TEST

VERIFY

THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND
IT CAN BE RELEASED BY THE ONF SECOND TIMER.

THAT

WRITE 0°'S INTO RMDA THROUGH PORT
HAS BEEN SEIZED.

READ EACH DRIVE

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEQUT ONE SHOT AND SAVE THE
VALUE FOR LATER USE.
VERIFY THAT TIMEOUT RETURNED THE DRIVE 10
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHCT IS > 500 MS.

°A';

VERIFY THAT

EXCEPT RMCS1,

THE DRIVE

THROUGH PORT

VERIFY THAT 0'S ARE READ FROM EACH REGISTER.

'B°;-

CZRMRBO RMO5/3/2 DU POR TST

MACRC V04.00

4~APR-81

gfiB

TEST 3

345

VERIFY THAT THE DRIVE

gzg

PORT

1
J
18:06:25 PAGE 3-6

‘'B'

SEIZE/TIMEQUT TEST
CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT

IT CAN BE RELEASED BY THE ONE SECOND TiMER.

348

WRITE 0'S

351

READ EACH DRIVE REGISTER, EXCEPT RM(S1,

354
355
356
%gg

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE
VALUE FOR LATER USE.
VERIFY THAT TIMEOUT RETURNED THE DRIVE T0O
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >S500 MS.

%ég

%g%

INTO RMDA THROUGH PORT

HAS BEEN SEIZED.

'B';

VERIFY THAT THE DRIVE

THROUGH PORT

VERIFY THAT 0'S ARE READ FROM EACH REGISTER.

‘A’;

459
%g?

TEST &

%2%

TEST

THE OPERATION OF

THE RELEASE COMMAND, DRIVE SEIZED

%gg

SEIZE THE DRIVE

THROUGH PORT

%gg

SET VOLUME VALID AND CLEAR ANY ERROR

368
369
370
371
372
%;3

ISSUE A RELEASE COMMAND THROUGH PORT'A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE
DRIVE.

TEST 5

PORT

'A'

'B'

SEIZE/RELEASE

TEST

'A' BY WRITING 0'S

INTO RMDS.

TEST

g;g

TEST

THE OPERATION OF

%;g

SEIZE THE DRIVE

ggg

SET vOLUME VALID AND CLEAR ANY ERROR

381
382
383
384
385
%gg

ISSUE A RELEASE COMMAND THROUGH PORT ‘B°'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATEL BY THE
DRIVE.

TEST 6

PORT

THE RELEASE COMMAND,

THROUGH PORT

DRIVE

SEIZED

'B' BY WRITING 0°'S INTG RMDS.

"A' NEUTRAL/RELEASE TEST

%gg

TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL

393
ggg

TEST 7

%89

TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL

390
ggg

398

399

ISSUE A RELEASE COMMAND THROUGHM PORT 'A' WITH THE DRIVE
NEUTRAL.; VERIFY THAT THE DRIVE REMAINS [N NEUTRAL.
PORT

'B' NEUTRAL/RELEASE TEST

ISSUE A RELEASE COMMAND THROUGH PORT

'B' WITH THE DRIVE

NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL.

CZRMRBO RM0S5/3/2 DU POR

TST

MACRO v04.00

4-APR-81

K
1
18:06:25 PAGE 3-7
SEQ 0010

412
613
414
415
416
417
418
419
420
(21
422
423
424
425
426
427
428
425
430
43
432
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456

INTERFERENCE

TEST

VERIFY THAT A COMMAND ISSUED BY ONE PORT
IS SEIZED BY THE OTHER PORT,

IS NOT RECOGNIZED

SEIZE

ISSUE A RELEASE
VERIFY THAT

RELEASE THE DRIVE
TO PORT ‘'A',

RELEASE THE DRIVE THROUGH PORT 'A’'.
VERIFY
TO NEUTRAL AND THAT NEITHER ATTENTION BIT

TEST

PORT

THE DRIVE

'B'

THE

THROUGH PORT

'B'

BY WRITING 0'S

COMMAND THROUGH PORT
DRIVE

RELEASE

IS STILL

THROUGH PORT

'B'.

INTERFERENCE

VERIFY

ISSUE A RELEASE

VERIFY THAT

RELEASE THE DRIVE
TO PORT 'R°'.

RELEASE THE DRIVE THROUGH PORT 'B'.
VERIFY
TO NEUTRAL AND THAT NEITHER ATTENTION BIT

TEST

12 PORT

'A'

A’

THAT

1HE

THAT THE
IS SET.

DRIVE

SWITCHED

DRIVE RETURNED

'A'.

THE DRIVE

INTO RMDS.

'B‘.

IS STILL SEIZED BY PORT

THROUGH PORT

'B’.

BY WRITING 0'S

COMMAND THROUGH PORT

THE DRIVE

INTO RMDS.

IS NOT RECOGNIZED IF

SEIZE

THROUGH PORT

THE DRIVE

TEST

THE DRIVE

‘A’.

SEIZED BY PORT

VERIFY THAT A COMMAND ISSUED BY ONE PORT
IS SEIZED BY THE OTHER PORT,

433

434

RELEASE

411

‘A"

@©®

405
406
407
408
409
410

TEST 10 PORT

402
403
404

400
401

VERIFY

‘A'.

THAT

THE DRIVE SWITCHED

THAT THE DRIVE RETURNED
IS SET.

RELEASE W/ERRORS TEST

VERIFY THAT A RELEASE COMMAND PERFORMS NG ACTION IF
BITS ARE SET IN THE DRIVE.

SEIZE

THE DRIVE

WRITE

1'S

THROUGH PORT

INTO RMER1

'A'

THROUGH FORT

ISSUED WHEN ERROR

BY WRITING 0'S
'A‘.

ISSUE A RELEASE COMMAND THROUGH PORT

'A'.

VERIFY THAT THE

BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED
THAT RMER1 HAS NOT BEEN CLEARED.
BY

ISSUING A DRIVE

INTO RMDS.

CLEAR COMMAND

‘GO’

TO NEUTRAL,

THROUGH PORT

AND

CLEAR RMER1

‘A,

ISSUE A RELEASE COMMAND THROUGH PORT 'A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

CZRMRBC RMOS5/3/2 DU POR TST

MACRO Vv04.00

.1
L
18:06:25 PAGE 3-8

4-APR-81

StQ 0011
457
458
459
460
461

462
463

464

465
466
467
468
469
470
471
472
473
474

475
476
477
478
479

TEST

13 PORT

VERIFY

'B'

RELEASE W/ERRORS

TEST

THAT A RELEASE COMMAND PERFORMS NO ACTION
BITS ARE SET IN THE DRIVE.

SEIZE

THE DRIVE

WRITE

1'S

THROUGH PORT

INTO RMER1

°'B'

THROUGH PORT

ISSUED WHEN ERROR

BY WRITING 0'S

INTO RMDS.

'B’',

ISSUE A RELEASE COMMAND THROUGH PORT °‘B‘'.
VERIFY THAT THE 'GO*
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND
THAT RMER1 HAS NOT BEEN CLEARED.
D.

CLEAR RMER1

ISSUE A RELEASE COMMAND THROUGH PORT 'B',
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

TEST

14 PORT

'A'

ISSUING A DRIVE

CLEAR COMMAND THROUGH PORT

SEIZE AND CLEAR TEST

VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE
PORT

°'B°’.

TO RELEASE

THE

DRIVE.

THE SEIZING

SEIZE THE DRIVE BY WRITING O'S INTO RMDS
VERIFY THAT THE DRIVE HAS BEEN SEIZED.

ISSUE A DRIVE CLEAR THROUGH PORT
DOES NOT RETURN TO NEUTRAL.

ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY
THE DRIVE DOES NOT RETURN TO NEUTRAL.

RELEASE THE DRIVE THROUGH PORT 'A',
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

TEST 15 PORT

'B®

‘A’

THROUGH PORT

AND VERIFY THAT

'A’.
THE DRIVE
THAT

SEIZE AND CLEAR TEST

VERIFY THAT A MASSBUS CLEAR OR DRIVE
PORT TO RELEASE THE DRIVE.

CLEAR WILL NOT CAUSE

THE

SEIZING

SEIZE

ISSUE A DRIVE CLEAR THROUGH PORT
DOES NOT RETURN TO NEUTRAL.

ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT
THE DRIVE DOES NOT RETURN TO NEUTRAL.

RELEASE THE DRIVE THROUGH PORT °'B'.
VERIFY THAT THE LRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT s SET.

TEST

THE DRIVE BY WRITING 0'S

VERIFY THAT

16 SEIZE

'A'

INTO RMDS

THE DRIVE HAS BEEN SEIZED.

BY RM(CS1

TEST

'B'

THROUGH PCRT

AND VERIFY

THAT

°'B'.

THE DRIVE

(ZRMRBO RM05/3/2 DU POR TST

MACRO V04.00

4-APR-B1

M1
18:06:25 PAGE 3-9
SEQ 001

514
2}2
517

gqg

520

gg;

523

VERIFY THAT READING THE CONTROL REGISTER
IF THE DRIVE 1S IN NEUTRAL.
A.

READ

THE

CONTROL REGISTER

DRIVE

(RM(CS?')

(RMCS1)

SEIZES THE DRIVE

THROUGH PORT

'A‘:

VERIFY

SEIZED.

ISSUE A RELEASE COMMAND THROUGH PORT

'A‘;

VERIFY THAT THE DRIVE

RETURNED TO NEUTRAL ANC THAT NEITHER ATTENTICON BIT

17 SEIZE

'B’'

THAT

ggg

TEST

RM(S1

526
ggg

VERIFY THAT READING THE CONTROL REGISTER
[f THE DRIVE IS IN NEUTRAL.

IS SET.

TEST

SEIZES THE DRIVE

529
g%?

READ THE CONTROL REGISTER
THC DRIVE IS SEIZED.

532
ggz

ISSUE A RELEASE COMMAND THROUGH PORT °B°; VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

535

ggg

538

228

(RMCS1)

(RM(S1)

VERIFY THAT

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET
REQUEST'

Tr4E DRIVE

SEIZE THE DRIVE THROUGH PORT
THE DRIVE HAS BEEN SEIZED.

224

REggTTHE

°'PORT

IS SEIZFD.

547
gzg

'B‘';

TEST 20 PORT 'A' INHIBIT SEIZE BY RMCS1 TEST

541
gz%

546

THROUGH PORT

‘B’

BY READING RMCS1.

CONTROL REGISTER FROM PORT

'A'.

VERIFY

VERIFY THAT

THAT

°'DVA'

IS NOT

ISSUE A RELEASE COMMAND THROUGH PORT °'B'.
VERIFY THAT [HE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

550
gg}

TEST 21

553
ggé

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET
REQUEST® IF THE ORIVE IS SEIZED.

PORT

'B*

INHIBIT SEIZE BY RMCS1

TEST

'A' BY READING RMCS1.

'PORT

556
225

SEIZE THE DRIVE THROUGH PORT
THE DRIVE HAS BEEN SEIZED.

VERIFY THAT

559
2210

READ THE CONTROL REGISTER FROM PORT 'B'.
SET.

562
222

ISSUE A RELEASE COMMAND THROUGH PORT ‘'A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

VERIFY THAT

°'DVA'

IS NOT

565
ggg

TEST 22 SEIZE BY RMAS TEST

568
569
570

TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER
(RMAS) SEIZES THE DRIVE.
VERIFY THAT REQUEST IS SET FOR THE OTHER
PORT.

(ZRMRBO RM05/3/2 DU POR TST

MACRO v04.00

4-APR-81

N
1
18:06:25 PAGE 3-10

SEQ 0013

571
572
2;2
575
576
g;g
579

gg?

582

ggz

WRITE THE APFROPRIATE DRIVE BIT
IS SEIZED.

INTO RMAS;

ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE
DRIVE SWITCHES TO THE OPPOSITE PORT.
ISSUE A RELEASE THROUGH THE
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL.

TEST 23 INHIBIT SEIiZE BY RMAS TEST

VERIFY THAT THE DRIVE

1S NOT SEIZED WHEN A

THE DRIVE'S ATTENTION BIT.

585
ggg

ggg

VERIFY THAT

'ZERO'

THE DKIVE

IS WRITTEN INTO

SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE
BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER.
VERIFY THAT THE DRIVE

IS STILL

IN NEUTRAL.

590
gg%

TEST 24 SET PORT

593
ggg

VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE
DRIVE IS SEIZED BY THE OTHER PORT.

‘A’

REQUEST

TEST

ggg

SEIZE THE DRIVE THROUGH PORT

598
283

WRITE Q'S INTO RMDS FROM PORT
SEIZED BY PORT 'B°'.

601
602

ISSUE A RELEASE COMMAND FROM PORT ‘B' AND VERIFY THAT THE DRIVE
SWITCHED TO PORT 'A'.
VERIFY THAT THE ATTENTION BIT IS SET FOR

282

605
289

PORT

'A'

AND

'B' BY WRITING 0°'S INTO RMDS.

'A';

]S NOT SET FOR PORT

'B'.

ISSUE A RELEASE COMMAND THROUGH PORT ‘'A° AND VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

608
g?g

TEST 25 SET PORT

611

VERIFY THAT WRITING A DRIVE REGISTER SETS

2}%

VERIFY THAT THE DRIVE IS STILL

'B'

REQUEST TEST

DRIVE IS SEIZED BY THE OTHER FORT.

2}2

SEIZE

616
g;g

WRITE 0'S INTO RMDS FROM PORT
SEIZED BY PORT 'A°’.

619
620
25;

ISSUE A RELEASE COMMAND FROM PORT 'A' AND VERIFY THAT THE DRIVE
SWITCHED TO PORT 'B'.
VERIFY THAT THE ATTENTION BIT IS SET FOR
PORT 'B' AND IS NOT SET FOR PORT 'A'.

623
ggg

ISSUE A RELEASE COMMAND THROUGH PORT 'B' AND VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

626
627

THE DRIVE THROUGH PORT

‘'A'

'PORT REQUEST' WHEN THE

BY WRITING 0'S INTO RMDS.

'B'.

VERIFY THAT THE DRIVE

TEST 26 TEST RESET ATTENTION 'A' BY DRIVE CLEAR

IS STILL

(ZRMRBO RM0S5/3/2 DU POR TST

MACRO Vv04.00

4-APR-B1

B ¢
18:06:25 PAGE 3-11

SEQ 0014
628
629
gg?
gg%

VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY
SEIZING PORT.

THE ATTENTION BIT OF

THE

ssgggAcu PORT

222

SEIZE

g;g

ISSUE A DRIVE CLEAR COMMAND.

639
640

RELEASE THE DRIVE THROUGH PORT 'A'.
VERIFY THAT THE ATTENTION
BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT

634

641

642
643

‘B'

'S ATTENTION BIT.

THE DRIVE

IS STILL

THROUGH PORT

VERIFY

THAT BOTH ATTENTION BITS

‘A’ BY WRITING 0'S INTO RMDS.

SET.

22%

TEST

6466

VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE

gzg

ggg

651

27 TEST RESET ATTENTION

'B°'

BY DRIVE

SE1ZING PORT.

SEgEEACH PORT'S ATTENTION BIT.

)

VERIFY THAT BOTH ATTEN".ON BITS

ggg

SEIZE THE DRIVE THROUGH PORT

222

ISSUE A DRIVE CLEAR COMMAND.

ggg

RELEASE THE DRIVE THROUGH PORT 'B°.

658
659
660
661
22%

TEST 30 RESET ATTENTION

664

VERIFY THAT THE

222

(LEAR

°'B' BY WRITING G'S INTO RMDS.

VERIFY THAT THE ATTENTION

BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT
"A' IS STILL SET.
‘A’ BY GO TEST

'GO BIT CLEARS ONLY THE ATTENTION BIT OF

SEIZING PORT,

667
223

SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH
ATTENTION BITS ARE SET.

670
671
672
g;z

SEIZE THE DRIVE THROUGH PORT
INTO RMDS.

ISSUE A NOP COMMAND.

675
676
g;g

D. RELEASE THE FRIVE THROUGH PORT 'A'. VERIFY THAT THE
ATTENTION BIT FOR PORT 'A' 1S RESET, AND THE
ATTENTION BIT FOR PORT °*B* 1S STIL SET.

THE

'A' BY WRITING 0'S

679
gg?

TEST 31

682
683

VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE
SEIZING PORT.

RESET ATTENTION 'B' BY GO TEST

TJRMRBO KMO5/3/2 DU POR TST

MACRO v04.00

&-APR-B1

18:06:25 PAGE

3-12
SEQ 0015

685
686
687
688
689

690
691
692
693
694
595
696
697
698
699
700
701

702
703
7204
705

706
707

708
709
710
711
712
713
714
715
716
717
719
719
720
721
722

723
724
725
726
727
728

729

/30
721
73c¢
733
734
735
736
737
738
739
740

741

SET EACH PORT'S ATTENTION BIT,
ATTENTION BITS ARE SET.

SEIZE THE DRIVE
INTO RMDS.

ISSUE A NOP COMMAND.

RELEASE THE FRIVE THROUGH PORT 'B'. VERIFY THAT
ATTENTION 3IT FOR PORT °B' [S RESET, AND THE
ATTENTION BIT FOR PORT 'A' IS STIL SET.

THROUGH PORT

TEST 32 TEST RESET ATTENTION

‘A'

AND VERIFY

THAT BCTH

'B' BY WRITING 0'S

'B'

BY MASSBUS

THE

INIT

VERIFY THAT MASSBUS CLEAR
RESETS BOTH PORT'S ATTENTION BITS WHEN THE
DRIVE IS IN NEUTRAL.
A.

SET

VERIFY THAT

lsggge? MASSBUS

THE ATTENTION BITS FOR BOTH PORTS.

THE DRIVE

INIT.

TEST 33 RESET ATTENTION 'A'

IN NEUTRAL.

VERIFY THAT BOTH ATTENTION BITS HAVE

'B' BY RMAS

VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE

APPROPRIATE BIT

IN THE

ATTENTION SUMMARY REGISTER.

SET

VERIFY THE DRIVE

WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY
THAT BOTH ATTENTION BITS ARE RESET AS ScEN BY RMAS.

THE ATTENTION BITS FOR BOTH PORTS.

TEST 34 PORT

°'A’

IS IN NEUTRAL.

ALTERNATE ATTENTION PATH TEST

VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL.
A.

SET

SEJZE

READ

TEST

FOR

THE DRIVE

THAT

THROUGH PORT

‘A°’.

‘B®' BY WRITING 0'S

THE ATTENTION REGISTER & VERIFY THAT

35 PORT

VERIFY

THE ATTENTION BIT FOR PORT

THE

‘B’

DRIVE

INTO RMDS.

THE ATTENTION BIT

IS SET.

ALTERNATE

THE ALTERNATE

ATTENTION PATH TEST
ATTENTION REGISTER READ PATH

SET THE ATTENTION BIT FOR PORT

'B'.

IS OPERATIONAL.

(ZRMRBO RM05/3/2 DU POR

TST

MACRO v04.00

&4~-APR-B1

18:06:25 PAGE

3-13

SEQ 001¢
76?2
743
744

745
72466

747
748
747
750

751
752

753
754
755
756
757
758
759
760

761
762
763
764
765
766
767

768
769

770
771
772
775
774
775
776

SEIZE

READ

FOR

THE DRIVE
THE

THE

THROUGH PORT

‘A’ BY WRITING 0°'S

ATTENTION REGISTER & VERIFY
DRIVE

TEST 36 SET ATTENTION

'A' B8Y COMMMAND TEST

TEST

THE

THE OPERATION OF
COMMAND.

THAT

SET.

INTO RMDS.

THE ATTENTION BIT

PORT A AND PORT & ATTENTON BITS AFTER A

ISSUE

WAIT FOR THE OFFSET COMMAND TO COMPLETE (°DRY' TO BECOME
'1')._
VERIFY THAT THE ATTENTION BIT FOR PORT *A’ IS SET AND

A OFFSET

THAT

(OMMAND

THROUGH PORT

THE ATTENTION BIT FOR PORT

'A".

'B'

IS NOT SET.

RELEASE THE DRIVE THROUGH PORT 'A',
VERIFY
TO NEUTRAL AND THAT NEITHER ATTENTION BIT

THAT THE DRIVE RETURNED
IS SET.
’,

TEST 37 SET ATTENTION

'B' BY COMMMAND TEST

TEST

THE

THE OPERATION OF
COMMAND.

PORT A AND PORT B ATTENTION BITS AFTER A

ISSUE

WAIT FOR THE RECALIBRATE

A RECALIBRATE

'1').

THAT

VERIFY THAT

COMMAND

THROUGH PORT

'B°'.

COMMAND TO COMPLETE

('DRY'

THE ATTENTION BIT FOR PORT

'A’

‘B'

IS NOT SET.

TO BECOME

IS SET AND

RELEASE THE DRIVE THROUGH PORT 'B'.
VERIFY THAT TYE DRIVE RETURNED
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

777

778
779
780
781
782
783
784
785
786

787

788
789

790
791
792
793
794
795
79%
797
798

TEST 40 PORT

"A®

SET VOLUME VALID

TEST

VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST.
A.

WITH PORT

°'A"

SELECTED,

RESET AND SET "UNIT READY''

STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE
IS SEIZED AND THAT ''VOLUME VALID'' IS RESET AND

ATTENTION IS SET.

ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A.
YgRgE; THAT ATTENTION IS RESET AND THAT VOLUME VALID

RELEASE

ISSUE A DRIVE CLEAR AND A READ IN PRESET
PORT 'B' THEN RELEASE PORT 'B'.

THE DRIVE

FROM PORT

'A'

AND SELECT

THE DRIVE

FOR

OORT 'B', VERIFY THAT ATTENTION IS STIL SET AND THAT
VOLUME VALID IS STIL RESET.
COMMAND

CZRMRBO RM(C5/3/2 DU POR

TST

MACRO v04.00

4-APR-B1

18:06:¢5 PAGE

3-14
StQ@ 001

799
800
801
802

803
804

805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822

823
824
825
826
827
828
829
830
831
832
833

834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852

853
854
855

TEST

PORT

'B*'

SET

VOLUME

VALID

VERIFY THAT VOLUME VALID CAN BE
A.

WITH PORT

'B'

SELECTED,

TEST

SET FOR THE PORT UNDER TEST.

RESET AND SET

"UNIT READY'’

STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE
IS SEJZED AND THAT "VOLUME VALID'' IS RESET AND

ATTENTION IS SET.

ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A.
YERéE;

THAT ATTENTION

IS RESET AND

THAT

VOLUME

vALID

RELEASE THt DRIVE FROM PORT 'B°' AND SELECT THE DRIVE FOR
PORT ‘'A', VERIFY THAT ATTENTION IS STIL SET AND THAT
VOLUME VALID IS STIL RESET.

ISSUE A DRIVE CLEAR AND A READ [N PRESET
PORT 'A' THEN RELEASE PORT ‘A°’.

TEST 42 TEST PORT
VERIFY

THAT PORT

'A’

COMMANL

TIMEOUT DOES NOT RESET DRIVE

TIMEOUT

DOES NOT

INITIALIZE

THE DRIVE.

SEIZE

WRITE 1°S INTO RMER1

WAIT FOR THE DRIVE TO TIMEQOUT.
VERIFY THAT THE DRIVE RETURNED TO
NEUTRAL. THAT ATTENTION IS SET FOR PORT *A' AND NOT SET FOR
FORT 'B"; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER.

TEST

THE

DRIVE

43 TEST PORT

VERIFY

THAT PORT

°'B'

THROUGH PORT

‘A’

THROUGH PORT

BY WRITING 0'S

‘A’

INTO RMDS.

TO FORCE AN ATTENTION.

TIMEOUT DOES NOT RESET DRIVE

TIMEOUT DOES NOT

INITIALIZE

THE DRIVE.

SEIZE

THE

WRITE

1°'S INTO RMER1

WAIT FOR THE DRIVE TO TIMEQUT.
VERIFY THAT THE DRIVE RETURNED TO
NEUTRAL; THAT ATTENTION IS SET FOR PORT °‘B' AND IS NOT SET FOR
PORT 'A'; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER.

TEST

44 PORT

VERIFY

THAT

SEIZE

WAIT

'A'

DRIVE

'B*'

THROUGH PORT

RETRIGGER BY DEMAND

THE PORT
THE

TH%OUGH PORT

DRIVE

BY WRITING 0°S

INTG RMDS.

'B’.

TEST

TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND.
THROUGH PORT

'A'

BY WRITING 0'S

500 MS AND READ RMDS THROUGH PORT

'A'.

INTO RMDS.

CZRMRBO RMOS/3/2 DU POR

TST

MACRO v04.00

4-APR-B1

F
18:06:¢5 PAGE

2
3-15

SEQ 00158

356
857
858
859
860
561
862
863
864
865
866
8u7
868

R«

872
873
874
875
876
877
878
879
830
881
882
883
884

835
886
88/
888
&89
890

891
892
893
894
895
8%6
897
898
899
900
901
902

903
904
905
906
907
908
909

VERIFY THAT

VEgqulgHgngHE DRIVE RETURNED

TEST 45 PORT

VERIFY THAT

THE

TiMEQUT OCCURS WITHIN + OR = 25% OF

(THE MEASUREMENT

'B'

[S MADE

FROM STEP

'BR'.)

TO NEUTRAL AND

RETRIGGER BY DEMAND TEST

THE PORT

TIMEOUI

ONE-SHOT CAN BE RETRIGGERED BY MASSRUS DEMAND.

SEIZE

WAIT

VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR ~ 25% OF
TIME.
(THE MEASUREMENT ]S MADE FROM STEP 'B'.)

VERIFY

THE

DRIVE

THROUGH PORT

'B'

BY WRJTING 0°'S

500 MS AND WRITE 0'B INTC RMDS THROUGH PORT

BIT

TEST 46 PORT

THE SPECIFIED

THAT NEITHER ATTENT]ON

THAT

THE

'A'

TIMEOUT/RELEASE

DRIVE

IS SET.

RETURNED

TO NEUTRAL

AND

INTO RMDS.

‘A'.
THE

SPECIFIED

THAT NEJTHER ATTENTION

TEST

VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES.
A.

SEIZE

SET PORT REQUEST BY WRITING 0°'S INTO RMDS FROM PORT

ISSUE A RELEASE COMMAND FROM PORT °*B°',
VERIFY THAT THE DRIVE
HAS SWITCHED TO THE OTHER PORT AND THAT THE °'ATA' BIT DIp NOT

THE DRIVE

SET FOR PORT

THROUGH PORT

'B'.

°'B'

BY WRITING 0'S

INTO RMDS.

'A‘.

REGISTERS WILL NOT BE CHECKED THROUGH PORT

WAIT THE TIMEQUT
BEEN RELEASED.

RELEASE THE DRIVE THROUGH PORT °A’.
VERIFY THAT THE DRIVE
RETURNED TO NEULTRAL AND THAT NEITHER ATTENTION BIT IS SET.

TEST 47 PORT

°*B'

INTERVAL

¢ 25X%.

TIMEOUT/RELEASE

"A°.

VERIFY THAT THE DRIVE HAS

TEST

VERIFY THAT THE TIMEQUT ONE-SHOT S TRIGGERED WHEN THE DRIVE
SWITCHES PORTS AND SEIZING PORT PERFORMS NC REGISTER ACCESSES.
A.

SEIZE

SET PORT REQUEST BY WRITING 0'S

ISSUE A RELEASE COMMAND FROM PORT 'A'.,
VERIFY THAT THE DR]VE
HAS SWITCHED TO THE DTHER PORT AND THAT THE 'ATA' BIT DID NOT
SET FOR PORT 'A'.
REGISTERS WILL NOT BE CHECKED THROUGH PORY

910

911
912

TIME.

THE DRIVE

WAIT THE TIMEQUT
BEEN RELEASED.

THROUGH PORT

iNTERVAL

‘'A*

+ 25%.

BY WRITING 0'S

INIQ RMDS.

INTO RMDS FROM PORT

VERIFY

THAT

'B'.

THE DRIVE HAS

'B°‘.

CZRMRBO RMO5/3/2 DU POR TST

MACRO v04.00

&4-APR-81

G 2
18:06:25 PAGE 3-16
SEQ VUG

913
914
g}g

TEST

g%g

VERIFY THAT

50 PORT

‘A

SEIZE

THERE

ACCESS

TEST

[S NO INTERACTJON BETWEEN PORTS.

g;g

SEIZE

THE DRIVE

gs;

WRITE

1'S

923
ggfi

READ RMER1, RMERZ THROUGH PORT 'B',
VERIFY THAT PORT
'B' SEES 0'S FROM EACH OF THESE REGISTERS.

ggg

CLEAR RMER1, RMERZ THROUGH PORT

928 °

WRITE 1'S INTO RMER1, RMERZ THROUGH PORT °'B'.

g%g

931
932

ggz

PORT

THROUGH PORT

'A'

BY WRITING 0'S

INTO RMERT, RMERZ2 THROUGH PORT

'A'

SEES 0'S FROM EACH OF

THESE REGISTERS.

32}

VERIFY THAT

PORT

'B®

THERE

SEIZE ACCESS TEST
IS NO INTERACTION BETWEEN PORTS.

SEIZE

gzg

WRITE 1'S INTO RMER1, RMER? THROUGH PORT

947

READ RMER1, RMERZ2 THROUGH PORT

gzg

IS NOT SET.

ISSUE A RELEASE COMMAND THROUGH PORT °‘B'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BJIT IS SET.

TEST 5%

VERIFY THAT

RELEASE ThE DRIVE THROUGH PORT 'A'.
VERIFY THAT THE DRIVE HAS
SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT °'B°'

938
gzg

323

‘A’

°‘A',

SET AND THE ATTENTION BIT FOR PORT ‘'A*'

935
g%g

INTO RMDS.

'A'

THE DRIVE

THROUGH PORT

SEES 0'S FROM EACH OF

'B' BY WRITING 0°'S INTO RMDS.

°‘A'.

°'B'.

VERIF:

THAT PORT

THESE REGISTERS.

32?

CLEAR RMER1, RMERZ2 THROUGH PORT

952
322

WRITE 1'S INTO RMER1, RMER2 THROUGH PORT ‘*A°'.
VERIFY THAT
PORT °*B‘ SEES 0'S FROM EACH OF THESE REGISTERS.

955
956

RELEASE THE DRIVE THROUGH PORT 'B".
VERIFY THAT THE DRIVE HAS
SWITCHED TO PORT 'A' AND THAT THE ATTENTION BIT FOR FORT 'A' IS

959
gg?

gg;

962

963

'B°.

SET AND THE ATTENTION BIT FOR PORT

'B*'

IS NOT SET.

ISSUE A RELEASE COMMAND THROUGH PORT °A'.
VERIFY THAT THE DR]Iv®
RETURNED TO NEUTRAL AND THAT NE]FHER ATTENTION BIT IS SET.

TZRMRE0 RMQS/3/2 DU POR TST

MATRO v04.00

4<-APR-81

H
2
18:06:¢5 PAGE ¢

SEQ 002
\

J*LAST REVISION C4~-APR-81

597

598

LTITLE

(ZRMRBO RMOS5/3/2 DU POR

TST

:*COPYRIGHT (() 1981
;*DIGITAL EQUIPMENT COR®ORAT]ON
;*COLORADO SPGS., (O. 80919

| 4

; *PROGRAM BY MIKE LEAVITT

I*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(
s *PACKAGE

(MAINDEC-11-DZQAC~-(C5),

18-MAR-81

. %

599

.SBTTL

OPERATIONAL

SWITCH SETTINGS

15
(

INHIRIT

0
BASIC

LOOP ON ERROR

DEF INITIONS

;*INITIAL ADDRESS OF

STACK

ERROR
SCOPE

000011
000012
000015
000200
177776
177776
177774
177772
177570
177570

= 1100

= EMT
= 0T

THE

STACK POINTER =xx+

;:;CODE

177776

; sPROCESSOR STATUS WORD

=
=
=
=

177774
177772
177570
177570

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

=12
= 15
= 200

STKLMT
PIRG
DSWR
pDISP

000000
00001
000002
000003
000004
000005
000006
000007
000006
000007

. *GENERAL
RO
=
R1
=
R2
=
R3
=

PURPOSE
X0
X1

RS
R6
R7
SP
FC

%5
%6
27
%6
%7

000000
000040

ORO
PR1

1700 #««

;cBASIC DEFINITION OF ERROR CALL
;;BASIC DEFINITION OF SCOPE CALL

;*MISCELLANEQUS DEF INITIONS

LF
(R
CRLF

ITERATIONS

BELL ON ERROR

104000

000004

INHIBIT ERROR TYPEOUTS

.SBTTL

091100

HALT ON ERROR
LOOP ON TEST

600
€01

USE

SWITCH

S.v.0,a,0

. n

%2
%3
%4

J*PRIORITY LEVEL

=0
= 40

FOR HORIZONTAL

TAB

;s CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN
::;CODE FOR CARRIAGE RETURN~LINE FEED

: JGENERAL REGISTER
; JGENERAL REGISTER

; sGENERAL REGISTER

s ;GENERAL REGISTER
; ;GENERAL REGISTER
:JGENERAL REGISTER
;3STACK POINTER
; ;PROGRAM COUNTER
DEFINITIONS

:PRIORITY LEVEL O
JoPRIORITY LEVEL 1

000100
000140
000200
000240
000300
000340
100000

(40000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000029

000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
100000
040000

020000

010000

004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
600001
001000
000400
000200
000100
000040

TST

MACRO v04.00

4-APR-81

[

18:06:¢5 PAGE

SEQ 002°

PR?2

= 100

PR3
PR&
PRS
PR6
PR7

=
=
=
=

J*''SWITCH
SW15
=
Sw14
=
SW13
=
SW12
~

Sw1l1

;.PRIORITY LFVEL

J:PRIORITY
J+PRIORITY
;iPRIORITY
J:PRIORITY
;:PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

= 4000

Sw10
SW0?
Sw08
Sw07
Sw06
SWQS
SW04

Sw03

140
200
240
300
340

= 2000
= 1000
= 400

Sw02
Sw01
Sw00
SW9=SW09
SW8=SW08
Sw7=5w07
SW6=SW06
SW5=SW05S
SW4=Sw06
SW3=SwW03
SW2=5w02
SW1=SW01

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

SWO=SW00

:*DATA BIT DEFINITIONS

8I1T1S
BIT14
8IT13
BIT12

BIT11
BIT1I0
8ITG9
B8IT08
BITO7
BITG6
BITOS
BIT04

=
=
=
=

=
=
=
=
=
=
=
=

100000
40000
20000
10000

4000
2000
1000
400
200
100
40
20

81103
= 10
BITQ2
=4
BITOI
=2
BITO0
=1
BIT19=BIT09
BIT8=B1T08

B8117=B]107
BIT6=B]T0(
BIT5=BIT05

(BIT00 TO BIT1S)

~NON
W S Wit

fZRMRBO RMOS5/3/2 DU POR
BASIC DEFINITIONS

635
636
637

639

noii

olelolelel
O =PI

g Bmcn
P

DODODODD

O —=2NILI

WY NI

—y =t —y

1]
T I

"R$SEQY$D AND JLLEGAL

;. EMULATOR TRAP (EMT)

::"'TRAP'' TRAP

1
TR
1 O
T
T
T I

PSEL
MCPE
TRE

Al7

100000

RDY
Al16

#«SCOPFee

»«ERRORw+

;:TTY KEYBOARD VECTOR
J2TTY PRINTER VECTOR

; ;PROGRAM INTERRUPT REQUEST VECTOR

;CONTROL AND STATUS REGISTER 1
000100
000200
000400
001000
002000
020000
040000

TRAP

; :BREAKPGINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (I0T)

;:POWER FAIL

T O

ny
O

T I

T O

;;TRACE

INSTRUCTIONS

RH/RM REGISTERS

100

200

400
1000

2000
20000

40000
100000

(RM(S1)
; INTERRUPT ENABLE (BIT #6)
LREADY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT (BIT #8)
sHIGH ORDER BUS ADDRESS BIT (BIT #9)
sPORT SELECT (BIT #10)
:MASSBUSS PARITY ERROR (BIT #13)
s TRANSFER ERROR (BIT #14)
;SPECIAL CONDITION (BIT #15)

100000

(LR
IR
OR
MDPE

MXF
PGE

NEM
NED

UPE
WCE

DLT

T I
(T I

PAT

BA]

2O O

uo
1
u3

000002
000004
000010
000020
000049
000100
000200
000400
001000
002000
004000
010000
020000
040000

000001

;CONTROL AND STATUS REGISTER 2 (RM(S2)

¥ I

627
628
629
630
631
632
633

.SBTTL

616

617
618
619
620
621
622
623
624
625
626

TRAFVEC
TKVEC
TPVEC
PIRQVEC

615

EMTVEC

614

PWRVE
C

613

BPTVEC
I0TVEC

610
611
612

RESVEC
TBITVEC
TRTVEC

602
603
604
60¢S
606
607
608
609

000020
000024
000030
000034
000060
000064
000240

; *BASIC ”CPU” TRAP VE(CTOR ADDRESSES
ERRVEC
;:TIME QUT AND OTHER ERRORS

000014
000014
000014

J
@2
18:06:25 PAGE &=¢

000004
000010

000020
000010
000004
000002
000001

4-APR~81

SEQ 002
— oy
—

DEF INITIONS

MACRO v04.00
DOD®DODO

BASIC

[

(ZRMRBO RMOS/3/2 DU PQR TST

40
100

200

400
1000

2000
4000

10000

20000
40000
1000CC

JUNIT SELECT (BIT #0)
JUNIT SELECT (BiT #1)
SJUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT #3)
;MASSBUS PARITY TEST (BIT #4)
sCLEAR (BIT #5)
;INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
MASS BUS PARITY ERROR

;UNIBUS PARITY ERROR (BIT #13)
;WRITE

RM REGISTERS

CHECK ERROR

;DATA LATE

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

(31T #8)

;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
sNON EXISTENT MEMORY (BIT #11)
NON EXISTENT DRIVE (BIT #12)
(BIT #14)

(BIT #15)

CZRMRBO RMQ5/3/2 DU POR

KM REGISTERS

640
641
642
643
644
645
646
647
648
649
650
651
652

653
654
655
656
657
658
659
660
661
662
663

664
665
666
667
668

669
670
671
672
673

674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696

TST

MACLD V04.00

&-APR-B!

18:06:25 PAGE

4-3

;CONTROL AND STATUS REGISTER #1.,
000001
000002
000004
000010
000020
000040
004000

GO
FO
F1
F2
F3
Fé
DVA

=1
=2
= 4
=10
= 20
= 40
= 4000

;GO BIT (BIT #0)
JFUNCTION CODE BIT #41
JFUNCTION CODE BIT #2
JFUNCTION CODE BIT 43
;FUNCTION CODE BIT #4
JFUNCTION CODE BiT #5
;DEVICE AVAILABLE (BIT #11)

;CONTROL STATUS REGISTER #2
000040

CLR

100000

oM
Vv
DRY
DPR
PGM
LBT

=
=
=
=
=
=

MOL

= 10000

WRL

;CONTROLLER CLEAR
(RMDS)

BITO0
100
200
400
1000
2000

(#01)
;OFFSET MODE
;VOLUME VALID (BIT 46)
;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
;PROGRAMABLE (BIT #9)
sLAST SECTOR TRANSFERRED (BIT #10)

= 4000

JWRITE LOCK

(BIT #17)

;MEDIUM ON-LINE

(BIT #12)

PIP

= 20000

;POSITIONING OPERATION IN PROGRESS

ATA

= 100000

SATTENTION ACTIVE

ERR

= 40000

;ERROR REGISTER #01
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

(RM(CS2)

= BIT5

;DRIVE STATUS REGISTER
000001
000100
000200
000400
001000
002000
004000
010000
©20000
040000

(#00)

ILF
ILR

RMR
PAR

FER
WCF
ECH
HCE
HCRC
AOE

IAE

WLE
DTE
orl
UNS
DCK

=1
=2

= 4
=10

=
=
=
=
=
=

20
40
100
200
400
1000

=
=
=
=
=

4000
10000
20000
40000
100000

= 2000

;COMPOSITE ERROR (BIT #14)

(RMER1)

(BIT #15)

(#02)
sILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)

JREGISTER MODIFICATION REFUSED
;PARITY ERROR (BIT #3)

DMD
MUR

ROB

ROA

JINVALID ADDRESS ERROR (BIT #10)
SWRITE LOCK ERROR (BIT #11)
;DRIVE TIMING ERROR (BIT #12)
sOPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)
sDATA CHECK ERROR (BIT 15)

=1
= BIT09

¢DIAGINOSTIC MODE (BIT #0)
JMAINTENANCE UNIT READY

= BIT1S

;PORT A REQUEST FLOP

= BIT14

;PORT B REQUEST

JATTENTION SUMMARY PSEUDO-REGISTER

000001

ATO

(BIT #2)

<FORMAT ERROR (BIT #4)
SWRITE CLOCK FAIL (BIT #5)
JECC HARD ERROR (BIT #6)
JHEADER COMPARE ERROR (BIT #7)
+HEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)

SMAINTAINABILITY REGISTER (RMMR1) (#03)

000001
001000
040000
100000

(BIT #13)

(RMAS)

;DEVICE O

FLOP

(#404)

(BIT #40)

CZRMRBG RMOS5/3/2 DU POR TST

RM REGISTERS

697
698
699

700

70
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724

725
726
727

728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749

750
751
752
753

MACRO v04.00

4-APR-B1

'8:06:25 PAGE

4=4

SEC 0024

000002
000004
000010
000020
000040
000100
000200

AT
AT?

AT3

AT4
ATS
AT6

AT?7

-2
= 4

LDEVICE 1
JDEVICE 2

(BIT #1)
(BIT #2)

=10

;DEVICE 3 (BIT #3)

= 200

;DEVICE 7 (BIT #7)

~ 20
= 40
= 100

JDEVICE 4 (BIT #4)
JDEVICE 5 (BIT #5)
JDEVICE 6 (BIT #6)

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

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

;DRIVE

TYPE REGISTER (RMDT)

D100
D101
D102
D703
DT04
DT05
DT06
D107
DT08
DRQ
MOH

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

TAP
NBA

002000

SCO
SC1
SC2
SC3
SC4

= 40000
= 100000

=
=
=
=
=

;TAPE DRIVE (BIT #14)
;NOT BLOCK ADDRESSEC (BIT #15)

102000

,04000
010000
020000
100000

DPE

bv(C

LBC
LSC
IvC
OPE
SK1

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

2000

sSECTOR COUNT FIELD 4

1000

sSECTOR COUNT FIELD 3 (BIT #9)
(RMER2)

OFD
HCI
ECI
FMT16

(BIT #10)

(#10)

=10

:DATA PARITY ERROR

=
=
=
=
=

;LOSS OF BIT CLOCK (BIT #10)
;LOSS OF SYSTEM CLOCK (BIT #11)
¢ INVALID COMMAND (BIT #12)
;OPERATOR ERROR
(BIT #13)
;SEEK INCOMPLETE (BIT #14)

= 200

=
=
=
=

;DEVICE CHECK

2000
4000
10000
20007
100000

;OFFSET REGISTER (RMOF)
000200
002000
004000
010000

(#07)

100
200
400

RM ERROR REGISTER #2

000010
000200

(#06)
;DRIVE TYPE NUMBER BIT 1
;DRIVE TYPE NUMBER BIT 2
;DRIVE TYPE NUMBER BIT 3
;DRIVE TYPE NUMBER BIT 4
;DRIVE TYPE NUMBER BIT 5
;DRIVE TYPE NUMBER BIT 6
;DRIVE TYPE NUMBER BIT 7
;DRIVE TYPE NUMBER BIT 8
;DRIVE TYPE NUMBER BIT 9
;DRIVE REQUEST REQUIRED (BIT #11)
sMOVING HEAD (BIT #13)

sLOOK=AHEAD REGISTER (RMLA)

000100
000200
000400
001000

(#05)

200
2000
4000
10000

(BIT #3)

(BIT #7)

(#11)
;OFFSET FORWARD (BIT #5)
;HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHKIBIT (BIT #'1)
;FORMAT BIT (BIT #12

;DESIRED CYLINDER ADDRESS (RMDC) (#12)
; (EACH BIT IS CALLED BY BIT NUMBER)
;SERIAL NUMBER REGISTER (RMSN) (414)
;(EACH IS CALLED BY BIT NUMBER)

CZRMRBO RMOS/3/2 DU POR TST
RM REGISTERS
754
755

MACRO v04.00

&-APR-81

;ECC POSITION REGISTER

(RMEC1)

SEQ 0029

(#16)

;29

s (EACH BIT

758

sECC PATTERN REGISTER

(RMEC2)

;g}

.SBTTL

DEFINITIONS OF

THE RH/RM ADDRESS INDEXES

RMCST
RMw(
RMBA
RMDA

=0
=2
=4
= 6

;28

763
764
705
766

;(EACH BIT

000000
000002
000004
000006

767

000010

RMCS2

769

000014

RMERT

768

770
771
772
773
774
775
776
777
778
779
780

781
782

18:06:25 PAGE 4=-5

000012

000016
000020
000022
000024
000026
000030
000032
000034
000040
000042
000044

000046

RMDS

RMAS
RMLA
RMDR
RMMR1
RMDT
RMSN
RMOF
RMD(C
RMMR2
RMER?
RMECT

RMECc

(#17)

1S CALLED BY BIT NUMBER)

=10

= 12

CALLED BY BIT NUMBER)

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
;WORD CUOUNT REGISTER (NOT A DRIVE REG)
JUNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG.
:CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)

;DRIVE

STATUS REGISTER (DRIVE REG 01)

;ERROR REGISTER #1

(DRIVE REG.

02)

=16
= 20
- 22
= 24
= 26
= 30
= 32
= 34
= 40
= 42
- 44

SATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04)
:LOOK AHEAD REGISTER (DRIVE REG. 07)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)
;MAINTAINABILITY REGISTER (DRIVE REG. 03)
;DRIVE TYPE REGISTER (DRIVE REG. 06)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)
sMAINTENANCE REGISTER #2 (DRIVE REG. 14)
;ERROR REGISTER #2 (DRIVE REG. 15)
’
JECC POSITION REGISTER (DRIVE REG. 16)

= 46

;ECC PATTERN REGISTER

(DRIVE REG.

17)

CZRMRBO RM(05/3/2 DU POR TST
CATCHER

MACRO v04.00
.SBTTL

000000

000174
000176

N
2
18:06:25 PAGE S

&-APR-81

SEQ 0026

TRAP CAT(CHER

.=0
;wALL UNUSED LOCATIONS FROM & = 776 (ONTAIN A "', +2, HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

:*LOCATION194CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000

DISPREG:'.UORD

000000

SWREG:

.SBTTL
(%P 21V ], ¥}

TRAP

WORD

;:SOFTWARE DISPLAY REGISTER
;:SOF TWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000200

000137

002240

JMP

a#START

;. JUMP TO STARTING ADDRESS OF

000204

000137

002246

JMP

a#START

;START AND (CHANGE THE RH/RM ADDRESS

SBTTL

ACT11

PROGRAM

HOOKS

":ttttttt*ttltt"t'*tttttifiitttttttittttttttttt*tfi*ttttttttttttttt

000046

000052

000210
000046
066110
000052
020000
000210

JHOOKS REQUIRED BY ACT11
SSZF6>C=.

;SAVE PC

iEggAD

;o1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP

"WORD

.=$SVPC

20000

$:2)SET LOC.S2 TO 20000
;s RESTORE PC

(ZRMRBO RMOS5/3/2 DU POR
TAGS

MACRO v04.00

4-APR-B1

18:06:¢5 PAGE 6

3
SEQ 002

.SBTTL

COMMON TAGS

* .t'tt!"""'.."tlt"ttlt't.fitt.'tt'l.."i"t"it"'t"'Q'..tt

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

377

000

$REGO:
$TMPO:
$TMP1:
$TMP2:
$TMP3:
$TMPS:

-WORD
.WORD
. WORD
.WORD
.WORD
6UORD

$TIMES:
$ESCAPE :0
$BELL:
.AS
$QUES:
.AS
$CRLF:
$LF:
""tlt'

COMMON STORAGE

;:START OF

. 2CONTAINS
.. CONTAINS
. ;CONTAINS
;:CONTAINS
; 2CONTAINS

LOCATIONS

COMMON TAGS

PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS

;;CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
;. CONTAINS ITEM CONTROL BYTE
;s CONTAINS MAX. FRRORS PER TEST
:;CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °*GOOD’ DATA
;:CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS *GOOD' DATA
;. CONTAINS °'BAD' DATA
; sRESERVED~-NOT TO BE USED
:;AUTOMATIC MODE INDICATOR
;2 INTERRUPT MODE INDICATOR

:
OO=MNO

001162
001164
01166
201170
001172
001174
001176
001200
001202
001206
001207
001210

.WORD
.BYTE
BYTE
.WORD
.WORD
. WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: BYTE
.WORD
.WORD
SWR:
DISPLAY: - WORD
$TKS:
177560
177562
$TKB:
$TPS:
177564
$TP8:
177566
SNULL:
.BYTE
$FILLS: .BYTE
SFILLC: .BYTE
$TPFLG: .BYTE
$REGAD: -WORD

;;ADDRESS OF SWITCH REGISTER
; sADDRESS OF DISPLAY REGISTER

DDISP

ssTTY KBD STATUS
2:TTY KBD BUFFER

;2 TTY PRINTER STATUS REG. ADDRES3

;:TTY PRINTER BUFFER RFG. ADDRESS

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

;o 'TERMINAL AVAILABLE'' FLAG (BIT<07>-0=YES)

;s CONTAINS THE ADDRESS FROM

JJWHICH

; +USER DEF INED
:sUSER DEF INED
JsUSER DEF INED

<207><377><377>
/?/
<15>
<12>

AR AR AN AN

(SREGO) WAS OBTAINED

;;CONTAINS ((SREGAD)+0)
:;USER DEF INED
:sUSER DEF INED

s :MAX.

000000

VARIOUS

.=1100

— i

(=}

d d
b e cd
b o)

POPNINIA) = —d —d -t

d ek
—

001160

CONTAINS

IN THE PROGRAM,

QOOOO0O0

$SCMTAG:
$PASS:
STSTNM:
$ERFLG:
$ICNT:
SLPADR:
$SLPERR:
$ERTTL:
$ITEMB:
SERMAX:
$ERRPC:
$GDADR:
.
$BDADR
$GDDAT:
$8DDAT:

TABLE

[ X}

XRNSEHroRRIC8S

001100

(@]

b oD

828258888388

d ek

;*USED

[=lelelelelelolololol dolelolelelele]o]

:*THIS

g
e by

{ OMMON

TST

RN RN

NUMBER OF

ITERATIONS

;ESCAPE ON ERROR ADLRESS

..CODE FOR BELL
2 ;QUESTION MARK
;2 CARRIAGE RETURN
;s INE FEED

R AR RN AR RN R RARN AN

RN R

R RSN

C(ZRMRBO RMO5/3/2 DU POR
JSER DEFINED TAGS

001212
001214
001216
001220
001222
001226
001226
001230
001232
001234
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
007262
001264
001266
001270
001272
001274
001276
001300
001302

001304
001306

TST

MACRO v04.00

4=-APR-81

18:06:25 PAGE

3
SEQ 000F

172540
172542
000104
177546
€0C100
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

176700
000254

)

.SBTTL

USER DEFINED

$LKCSR.
SLKCSB:
SLPVEC:
$LKS:
SLLVEC:
PORTA:
PORTB:
PORTC:
RQSTA:
RQST8:
ASR1:
PTNSBR:
SEIZPT:
OPPRT:
TSTNUM:
CKERR:
NOSEIZ:
RELERR:
TIME:
WATCH:
TIMEA:
TIMEAP:
TIMEAM:
TIMEB:
TIMEBP:
TIMEBM:
TIMES:
KYBCTL:
CHGADR:

.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
,WORD
_WORD
_WORD
.WORD
.WORD
.WORD
.WORD
(WORD
.WORD
.WORD
.WORD
.WORD
WORD
_WORD
.WORD
.WORD
.WORD

.SBTTL

RH/RM UNIBUS AND VECTOR ADDRESSES

$RMADR:
SRMVE(:

.WORD
.WORD

TAGS

172540
172542
104
177546
100
O
0
0
O
O
0
0
0
0
O
0
)
0
O
O
O
0
0
O
0
O
O
O
O

176700
254

;ADDR OF KW11-P STATUS REGISTER
JADDR OF KW11=P COUNTER BUFFER
;ADDR OF KW11-P VECTOR
;ADDR OF KW11=L STATUS REGISTER
;ADDR OF KW11-L VECTOR
;ADDRESS OF PORT A
;ADDRESS OF PORT B
;ADDRESS OF DIFFERENT DRIVE
JREQUEST BIT FOR PORT A
JREQUEST BIT FOR PORT B
JATA=A OR ATA-B = 1
;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS
;CONTAINS THE ADDRESS OF THE SEIZING PORT
;CONTAINS THE ADDRESS OF THE 'OPPOSITE® PORT
;NUMBER OF THE CURRENT TEST
;IF <1, A REGISTER MISCOMPARISON OCCURRED
;IF <1, THE PORT IN °SEIZPT' DID NOT SEIZE THE DRIVE
;1F =1, THE PORT IN "SEIZPT® DID NOT RELEASE THE DRIVE
SELAPSED TIME COUNTER
;WATCH DOG TIMER LOCATION
;THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A
;PORT A TIMEOUT VALUE + 252
;PORT A TIMEOUT VALUE - 25%
sTHE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B
;PORT A TIMEOUT VALUE + 252
;PORT B TIME VALUE - 25%
;STORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST
sSINGLE TEST INDICATOR
s CHANGE THE RH/RM ADDRESS INDICATOR

;RH/RM UNIBUS ADDRESS
s INTERRUPT VECTOR ADDRESS

(IRMRB) RMCS/3/2 Du 20R

FRRCR PCINTER

TAR
€

TST

MACRO v04.00

4~-APR-81

D
3
18:06:2S PAGE 8
SEQ@ 002¢%

.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFCRMATION FOR EACH ERROR THAT (AN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND N

;*LOCATION SITEM3. THIS NUMBER INDICATES WHICH ITEM [N THE TABLE IS PERTINENT.
;*NOTE:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().
;*NOTEZ2:
EACH ITEM [N THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
o®
it
.*

EM
DH
DT

001310

5 C01312
6 001314
g 001316

;ERROR

12 001322
13 001324

}g 001326

EM1

;WRONG DRIVE

072745

EM?2

;DRIVE NOT ON LINE

101516

DF1

077341
101230
101516

19 001332

20 001334
S; 001336

DH1
DT
DF 1

077341
101230

DH1
DT

072767

EM3

077412

DH3

101244
101516

D13
DF1

{73051
(077461
101312
101531

077604
101260
101523

gg
40 001362
41 001364
42 00136

EM4
DH4
D17
DF7

:DRIVE NOT SEIZED 8Y PORT

EMS5

JWRCONG STATUS SEEN BY THE SEIZING PORT

EM6

JREGISTER CONTENTS WERE SEEN BY OPPOSITE PORTYT - DRIVE WAS SEJZED

°N’

;ERROR §

3é 001350 073102

39 001360

;SERIAL NUMBERS NOT THE SAME

JERROR 4

39
33 001352
34 001354
%2 001356

TYPE

JERROR 3

25 001340
26 001342
27 001344
Sg 001346

DATA FORMAT

;ERRCR 2

}?
18 001330

TO THE

072724

18
11 001320

;;POINTS

$ERRTR:

%
& 001310

;sPOINTS TO THE ERROR MESSAGE
;;POINTS TO THE DATA HEADER
;sPOINTS TO THE DATA

DH5
DTS
DES

JERROR 6
073150

100054
101332
101523

DH13
D713
DFS

IRMRBO RMOS5/3/2 DU POR
ERROR PUINTER TABLE

TST

MACRO v04.00

4~APR-B1

18:06:25 PAGE 8-1
SEQ 0030

:ERROR

46 001370
47 001372

48 001374

gg 001376

073250

EM?

101312

D17

077660

101531

2}
53
56
55
29

001400
001402
001404
001406

73331
077604
101260
101523

62 C01414
22 001416

073361
100003

1071230
101516

EMI0
DHS
DTS
DFS

JREGISTER CONTENTS INCORRECT

EM11
DH11

;CONTROL BUS PARITY ERROR WHILE READING REGISTER

DTl
DF1

;ERROR 12

67 0016420
68 001422
69 001426

;? 001426

073445
100550
101420

101544

EM12
DH36
DT37

;CRIVE NOT SEIZED BY DRIVE CLEAR COMMAND

DF 3¢

;ERROR 13

76 001430
75 001432
76 0014346

;g 001436

0735°S
190054
101332

101523

EM13
DH13
pT13

;'VOLUME

VALID® BIT NOT

SET BY READiN PRESET

DFS

;ERROR 14

001440
001442
0014446
001446

073602
100054
101332
101523

EM14
DH13
pT13
DFS

;"VOLUME VALID®

SET ON THE OPPOSITE PORT

;ERROR 15§

88 001450
89 001452
90 001454
g} 001456

073645
077660
101312
101531

95
%%
97
gg

DF7

JERROR 11

60 001410
61 601412

81
82
83
gg

JREGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT

DH?

;ERROR 10

4 - ——=S0

EMIS
DH7
4

;THE ATIN BIT WRONG AFTER TIMEQUT - REQUEST NOT SET

DF7

;ERROR 16

001460
001462
001464
01466

073724
077660
101312
101531

EM16
DH?7
84
DF7

JATTN BIT WRONG AFTER RELEASE - REQUEST WAS SET

«{RMRB) RM(5/3/2 DU POR
ERROR POINTER TABLE

100

10
102 001479

103 091472

104

0014674

105 001476
106
108

—
O N SN
000

— ad

e —d ot

b d
)t
-k

b —d .y

b __p

001500
0 001502
001504
001506

120
123
126
125
126

TST

MACRO v04,00

4-APR-81

F
18:06:¢5 PAGF

3
8-¢

:ERROR 17

073777
077660
101312

EM17
DH?
D17
DF?7

101591

JATIN BIT WRONG AFTER RELEASE

- REGJEST NOT

SET

:ERROR 20
074056
100550
101420
101544

EM20
DH36
D137
DF 36

sDRIVE NO1

SEIZED WHEN ATTIN BIT FOR PORT (LEARED

:ERROR 21

001510
001512
001514
01516

074136

Em21
DH36
D137
DF 36

100550
101420
1071564

+DRIVE SEIZED WHEN ZERO WRITTEN IN ATIN BIT FOR PORT

:ERROR 22

001520
001522
001524
001526

074211

EM22
DH22
D122
31
DF

100174

“01350

101540

sDRIVE NOT

[N NEUTRAL AFTER TIMEOUT, REQUEST NOT SET

:ERROR 23

;.-._.‘-d.._;_n..a—o_.

SVRIFRNRIK W

13C 001530

1461
147

———

——

————

143
144
145
166
147
148
149

001532
001534
001536

074276

EM23
DH23
D123

100272
101362

101516

074344

100272
101362
101516

CLEARED

THE

DRIVE'S ERROR BIT

1
DF
;ERROR

001540
001542
0C1544
001546

sTIMEOUT

24
EM24
DH23
pres

SRELEASE (OMMAND RELEASED DRIVE WITH ERRORS SET

1
DF
SERROR 25

001550
001552
001554
001556

074423

100550
101410
101544

EM25
DH36
D136
DF 36

;TIMEOUT ONE-SHOT DID NOT RETRIGGER

JERROR 26

074466

100174
101350
107540

EM26
DH22
D122
31
Df

;DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET

" /RMRBO RMOS/372 Du POR

FRROR PGINTER

TABLE

157

;gg

160 001570
161 001572
162 001574

}gz 001576

168 001602

169 001604

};? 001606

074553
077660
1013312

10153

1;; 001616
)

}gg 001626

190 001634

;g} 001636

196 001642

197 001644

}gg 001646

074726
100451
103376

101540

W]TH REQUEST

SET

DH36

sDRIVE

SEIZED BY RELEASE

]SSUED WHEN DRIVE

IN NEUTRAL

DF 36

EM31
DH31
DT31

°
;DRIVE NOT

SEIZED BY PORT AFTER RELEASE W]ITH REOQUEST

SET

DF 31

.ERROR 3?2
075003
077604
101260

101523

EM32
DHS

JATTN BIT WRONG AFTER RECAL JBRATE

(OMMAMD

DTS

DFS

;ERROR 33
075054
100550

Em33
DH36

101544

DF 36

101410

sDRIVE

RETURNS

TO NEUTRAL

IfF

DRIVE

;DRIVE

RETURNS

TO NEUTRAL

MASSBUS

CLEAR GIVEN WHILE

DRIVE

SEIZED

D136

JERROR 34
07515¢

1060550

101410

101544

EM34

DH36

INIT GIVEN WwHILE

DRIVE

SEIZED

DT36

DF 36

:ERROR 35

075261
100550
101420
101544

EM3S
DH36
D137
DF 36

:DRIVE DID NOT RETURN TO NEUTRAL BY TRIGGERING TIMEOQUT ONE

;ERROR 36

509 001660 075340
g}g 001666

JREGISTER WRONG AFTER RELEASE

;ERROR 31

{8;

210 001662
211 001664

8-3

DF?7

D136

58?

202 001650
203 001652
204 001654
205 001656
206

EM27
DH?
Dr?7

101410

101544

182
195 001640

18:06:¢5 PAGE

SEQ 003,

EM30

100550

}gg
188 001630
189 001632

4-APR-81

074631

}gg
181 001620
182 001622
183 001624

MAIRD v04.00

;ERROR 30

;g
174 001610
175 001612
176 CO1614

:FRROR 27

122
167 001600

TST

100550
101410

101544

EM36

DH36
D136
DF 36

JTIMEQUT HAS NOT OCCURRED WITHIN 2 SECONDS

SHOT

MACRC v04.00

4-APR-81

18:06:¢5 PAGE

B~¢

$€0 0037
;ERROR 37

001670
001672
001674
001676

EmM37

075412
100550

sDRIVE

1S NON=EXISTENT

101420
101544

:ERROR

001700
001702
001704
001706

075460

SATTENTION FOR PORT NOT RESET BY MASSBUS (LEAR

077341

101362
101516

;ERROR

235
236
237 01720
238 001722
239 001724
001726

075535

:TIMEQUT

100272
101362
107516

CLEARED ATTENTION BIT

001710
231 001712
232 001714
233 C01716
234

240
261
242
243
244
245
246
247
248
249

'ST

-3

NN
BN
n APV
A

[@2Ves
- RNTe SV N WN—=O V00 ~NOWn
i~

“IRMRBC RMDS/3/72 DU POR
ERROR POINTER TABLE

;ERROR
075577

;DRIVE NOT IN NEUTRAL OR SEIZED

100577
101430
101547

. ERROR
001730
001732
001734
001736

250
251 001740
252 001742
253 001744
254 001746
255
256
257
258 001/50
259 001752
260 001754
261 001756

075665

100577
101430
101547

:DRIVE

IN NEUTRAL AFTER ATTENTION BIT WRITTEN

sWRITE

ATTENTION BIT DID NOT

;ERROR
075742
100616
101376
101540

SET PORT REQUEST

:FRROR

076017
077341

JPORT SELECT SWITCH ON DRIVE NOT IN ‘A/B’

101230

101516

:ERROR

263
001760
001762
001764
001766

076071

sCAN'T ACCESS DRIVE THROUGH EITHER PORT

100714
101436
101540

:ERROR

JRMRBO RMOS5/3/2 DU POR
FRKOR POINTER TABLE

272 C01770

273 001772
276 001776
275 001776
276
S;g
279 002000
280 002002
281 002004
sg% 002006

326
327

DH23
D123
DF1

EMSO
DH13
pT13
DFS

076310
077604
191260
101523

8-5

;ATTN BIT

FOR SEIZING PORT NOT (LEARED BY DRIVE

CLEAR

JATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE (LEAR (OMMAND

002030
002032
002034
002036

EM51
DHS
DTS
DFS

JATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE

[N NEUTRAL

SERROR 52

EMS2
DH13
DT13
DFS

JATIN BIT SET AFTER TIMEOUT,

°‘ERR'

SET, NO REQUEST

SERROR 53

076472
100272
101230
101516

EM53
DH23
DT1
DF1

JCAN'T READ ATTN BIT FROM OPPOSITE PORT

;ERROR 54

302040
002042
002044
002046

076553
100174
101450
101540

EMS54
DH2?2
DT54
DF 31

JRELEASE (OMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT

;ERROR 55
002050
002052
002054
002056

076646
101011
101462
101551

g;g

325

' EMG7

076226
100054
101332
101523

%}%

321
322
323
324

18:06:¢5 PAGE

;ERROR 50

;82

3164
315
316
%}g

4-APR-81

SEQ 0034

100272
101362
101516

293 002020 076377
294 002022
100054
275 002024
101332
296 002026
101523
297
Sgg
.

307
308
309
g}?

MA{RO v04.00

;ERROR 51

286 GU2010
287 002012
288 002014
289 002016
290
Sgl

076140

ggg

300
301
30¢
303
304

TST

EMSS
DH55
DT55
DF 55

;TIMEQUT ONE-SHOT IS LESS THAN 500 MS

JERROR 56
002060
002062
002064
002066

076713
101067
101474
101555

EM56
DH56
DT56
DF 56

JERROR

JRH/RM DIDN'T RESPOND TO ADDRESSING

(ZRMRBO RMOS/3/2 DU POR TST
ERROR POINTER TABLE

328
329 002070
330 002072
33 002074
332 002076
333
334
335
336 002100
337 002102
338 002104
339 002106
340
341
342
345
344
345
346
347
348
349
350 002120
351 002122
352 002124
353 002126
354
355
356
357 002130
358 002132
359 002134
360 002136
361
262
363
364 202140
365 002142
366 002144
367 002146
368
369
370
b4 002150
372 002152
373 002154
374 002156
375

MACRO v04.00

EM57
DH57
DT57

101076

101500

101523

;PORT REQUEST FLOPS WRONG

DF5
. ERROR

077017

60
EM6O
DH5
DTS
DF5

077604
101260
101523

;ERROR

077063
100272
101362

;ERROR
077115

. ERROR
077163

DH36
D136
DF 36
:ERROR

077225
077660
101312

JATTENTION RESET BY GO WHEN NOT

;DRIVE SEIZED BY UNIT READY (HANGE

EMOS
DH?

JATTENTION NOT

SET BY UNIT READY CHANGE

01?7
DF7

101531

;ERROR

SEIZED

EME3

100550
101410
101544

JATTENTION NOT RESET BY GO

62
EM62
DH13
DT13
DF5S

100054
101332
101523

JATTENTION BITS NOT RESET BY RMAS

61
EM61
DH23
D123
DF1

101516

101523

18:06:¢5 PAGE 8-6

SEQ 0035

076756

077274
077604
101260

4-APR-81

EM6S
DHS
DTS
DF5

;VV NOT RESET BY UNIT READY

MACRO v04.00

&-APR-8'

K
3
18:06:25 PAGE 9
SEQ 0036

sTHIS ROUTINE HANDLES UNEXPECTED

002160
00216¢

002164
002166
002172
002232
002232
002234
002236

011600
005740
022626
104407

000417

BAD1IMO:

MoV
TST

tmp

002174
;:65%:
64%:

010046
104402

000240

TYPE
BR

LASCIZ

MOV
TYPOC
NOP

b
b

005037
000403

001302

C02246

012737

177777

19 002254

000240
005227
001375
000005

002240
002244

002256
002262
002264

001302

000000

.SBTTL

START OF

START:

CLR
BR

;SAVE PC WHERE THE TIME OUT OCCURED
JADJUST PC =2
JRESTORE STACK POINTER

648

;cGET OVER THE ASCIZ

,65%

<CRLF>/UNEXPECTED BUS

RO,-(SP)

002306
002314
002322
002330
002336
002344
002352
02360
002364
002370
002376
002404

001100

022706
001374
012706

001140

012737
012737
012737
012737
012737
012737

066364
000340
066746
000340
072304
000340
065746
001176
001200
000001
002376
002404

013737
005037
005037

112737
012737
012737

002412
002416
002624
002432
002440
002446

013746
012737
012737
012737
022777
001012

002450
002452

000403
012716

177570

177777

002460

P(C=/

;SETUP FOR TYPING OUT PC
JPUT 'HALT(0)' INSTRUCTION HERE
;TO STOP ON UNEXPECTED TIMEOUT.

YOU WISH

PROGRAM

START1: MOV

#-1,CHGADR

;SET

STARTZ: NOP
INC
BNE

#0
.~4

sTTY LOOP, WAIT FGR INCREMENT
;OF WORD

START2

INITIALIZE

‘CHANGE RH/RM ADDRESS®

;GO TO THE START
THE

'CHANGE

RH/RM ADDRESS®

INDICATOR

;CLEAR THE WORLD

THE COMMON TAGS

.. CLEAR THE COMMON TAGS (SCMTAG) AREA
#SCMTAG,REO
MOV
c+FIRST LOCATION TO BE CLEARED
(R6) +
(LR
;:CLEAR MEMORY LOCATION

001100

000004
002452
177570

TIMEOUT,

;CLEAR THE

RESET

012706

005026

;. TYPE ASCIZ STRING

CHGADR

.SBTTL

002266
002272
002274
002300
002302

TIMEOUTS

(SP) ,RO
=(RO)
(SP)+,(SP)+

CONO NS WSOV
N

NN NPy —

CZRMRBO RMCS5/3/2 DJ POR TST
ERROR POINTER TABLE

P
BNE
MOV

#SWR,R6

. .DONE?

#STACK ,SP

;:SETUP THE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOovB
MOV
MOV

#SSCOPE ,a#IOTVEC ;10T VECTOR FOR SCOPE ROUTINE
#3460, 10TVEC+2 ;;LEVEL 7
#SERROR,FEMTVEC ;:EMT VECTOR FOR ERROR ROUTINE

.~6

soINITIALIZE A FEW VECTORS

::LOOP BACK IF NO

STACK POINTER

#3460, QPEMTVEC+2 ;:LEVEL 7

NSTRAP ,3#TRAPVEC ::TRAP VECTOR FOR TRAP CALLS
#340 SN TRAPVEC+2:LEVEL 7

SENDCT,SEOPCT
$TIMES
$ESCAPE

#1,SERMAX
#.,SLPADR
#.,SLPERR

2 s SETUP END-OF ~PROGRAM COUNTER
;o INITIALIZE NUMBER OF ITERATIONS

;:CLEAR THE ESCAPE ON ERROR ADDRESS

;sALLOW ONE ERROR PER TEST
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
;s SETUP THE ERROR LOOP ADDRESS

;.SIZE FOR A HARDWARE SWITCH REGISTER.

IF NOT FOUND OR IT IS

;;ECUAL TO A '*~1"’, SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV
MOV
MoV

000004
001140
001142

MoV

176472

(MP
BNE

64%:

BKR
MoV

@¥ERRVEC,~(SP)
N66S AMERRVEC

#DSWR, SWR
#DDISP,DISPLAY
#=1,3SWR

66%

65%
#65%, (SP)

;;SAVE ERROR VECTOR
;. SET UP ERROR VECTOR

;:SETUP FOR A HARDWARE SWICH REGISTER
; ;AND A HARDWARE DISPLAY REGISTER
;2 TRY TO REFERENCE HARDWARE SWR

; sBRANCH IF NO TIMEOUT TRAP QCCURRED
¢;AND
THE HARDWARE SWR IS NOT - -1
2 BRANCH IF NO TIMEQUT
2;SET UP FOR TRAP RETURN

L
1
S

P4 RMRBO RMOS5/3/2 DU POR TST
N ITIALIZE THE COMMON TAGS

002456
002460
002466
002474

25
26 002500
7 002506

28
29

MACRO v04.00

000002
012737
012737
012037

00176
000174
000004

001140
001142

012737
C12737

002160
000300

000004
600006

005227
001037
022737
001433
104401

000430

002620
002624
002626
002634
002636
002640
002642
002650

005737
001006
023727
001005
106406
000403
112737

31 002650

004737

002710
002716
002722
002730
002734
002740
002744
002750

004737
104401
104412
012637
023727
101403
104401
000762
013737
005237
042737
013746
042716
052637
104401
013746

002754

104403

32 002654
35 002660
34 002664

40
41
62
43
44
45
46
47

66%:

002540

002666
002672
002700
002702
002706

002756
002757

48 002760
49 002764

002770
002772
002773
50 002774

001
000

104401

013746

104401

000176

001134

070610
003246
072372
001224
001224

001224
001226
000016
001224
177771
001226
072444
001224

TYPE PROGRAM NAME
OF

BNE
(MP
BEQ

67%
ASENDAD , a6 2
67%

BR
LASCIZ

67%
;.GET OVER THE ASCIZ
<CRLF>®(CZRMRBO -~ RM05/3/2 DUAL PORT LOGIC TEST, PT 1@<CRLF>

INC

,68%

FIRST PASS

;:FIRSY

TIME?

; ;BRANCH IF NO
. sACT=112
J;BRANCH IF YES

;. TYPE ASCIZ STRING

SWITCH REGISTER
;:ARE WE RUNNING UNDER XXDP/A(CT?

698

g;SHR

208

:;GET SOFT-SWR SETTINGS

SWR,#SWREG
708

s sBRANCH [IF YES

::;SOFTWARE SWITCH REG SELECTED?
;:BRANCH [F NO

MOVR

#1,8AUTOB

:;SET AUTO-MODE

1%:

JSR
JSR

PC.STKINT
PC ., CHANGE

JSETUP THE TTY KEYBOARD
;CHECK/CHANGE THE RH/RM ADDRESS

TYPE

RDOCT
MOV
0 o

2%:

LENTERA

8LOS

(SP)+ ,PORTA
PORTA 47
23

BR
MOV

18
PORTA PORTB

INC

BIC
MOV
8IC
8IS

TYPE

MOV

ADRERR

PORTB

;TRY AGAIN
;GENERATE THE PORT 8 ADDRESS
J INCREMENT

THE ADDRESS

SSET BITS 1

8 2 IN PORT B ADDRESS

;"PORT A ADDRESS

(SP)+ _PORTB

PORTA,~(SP)

PORTB,-(5P)

TYPE

;BR ]F NOT

;TYPE ADDRESS ERROR MESSAGE

JPORTAIS

MOV

BYTE
LBYTE

JENTER DRIVE ADDRESS

<GET THE ADDRESS
;STORE THE ADDRESS
;SEE IF ADDRESS TOO LARGE

JLEAVE BIT O
;PUT PORT A ADDRESS ON THE STACK
;SAVE BITS 1 & 2

1
0

TYPE

INDICATOR

#16,PORTB
PORTA,~-(SP)
#C6,(SP)

.BYTE
BYTE

TYPOS

001207

PROGRAM

B8NE

TYPOS

072473
001226

THE

GET VALUE FOR SOFTWARE
TST
W62

TYPE

001226

gg;:

000007

001226

#SWREG, SWR
;.POINT TO SOF TWARE SWR
#D]SPREG,DISPLAY
(SP)+ ,Q#ERRVEC
;;RESTORE ERROR VECTOR

THE NAME

CMP
BNE

072421

104403

001
000

.SBTTL

0000¢2

0000C1

RTI

MOV
MOV
MOV

TYPE

éégSS:

001140

9-1

JSETUP “'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC
:SETUP FOR UNEXPECTED TIMEOUT
MOV
#PR6,ERRVEC+2
JLEVEL 6

000042

002620

35
36
37
38
39

65%:

;:TYPE

1727777

066110

18:06:25 PAGE

SEQ 0037

LSETTL

002514
00252C
002522
002530
002532
002536

4-APR-81

,PORTBIS

1
0

LSCRLF

;s SAVE PORTA FOR TYPEOUT
. sTYPE PORT A ADDRESS
;.60 TYPE--OCTAL ASCII
J;TYPE 1 DIGIT(S)

s+ SUPPRESS LEADING ZEROS

;'PORT B ADDRESS

;:SAVE PORTB FOR TYPEQUT
;s TYPE PORT B ADDRESS

2:G0 TYPE--OCTAL ASCII

JsTYPE 1 DIGIT(S)
22 SUPPRESS LEACING ZEROS
JANOTHER

(R-LF

“IRMRBO RMO5/3/2 DU POR
VALUE

003000
003006
003014
003022
003026
003034
003040
003044
003050

59 003054
60 003060

ol 003064
52 003070
63 003072

64
65
66

013757
062737
042737
013701
116137

005037
005037
005037
005037
004737
000137
104401

000000
000776

177770

00123C
001230
001230

101672

001236

001224
000006

001224
001262
001264
001270
001272
066130
003074
072522

4-APR-B1

SEQ 0038
MOV

PORTA,PORTC

ADD

#6,PORTC

MOV
MOVB
CLR
(LR
CLR
CLR
<SR
JMP
TYPE
HALT

PORTA,R1
ATABIT(R1),ASR?
TIMEA
TIMEAP
TIMER
TIMERP
PC,CKCLK
EXEC
LNOCLOCK

BIC

3s:

M
3
18:06:25 PAGE 9-¢

B8R

#~(7,PORTC

;GENERATE ADDRESS OF DRIVE NOT TESTED
; COMPLEMENT SOME BITS
;SAVE ONLY LOWER BITS
;USE PORT A ADDRESS AS INDEYX
;GET ATTENTION BIT FOR DRIVE
;CLEAR TIMEOQUT ONE-SHOT VALUE LOCATION
;CLEAR TIMEOUT ONE~SHOT VALUE LOCAT]ION
;CLEAR TIMEOUT ONE~SHOT VALUE LOCATION
;CLEAR TIMEOUT ONE-SHOT VALLZ LOCATION
;SETUP CLOCK
;CLOCK HAS BEEN STARTED
sJNO CLOCK ON SYSTEM

;FATAL ERROR

;INTERLOCK THE HALT

JROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR

003146

79 003154
80 003162
81 003166
82 003170
83 003172
84 003174
85 003200
86 003204
87 003206
88 003212
89 003214
90 003216
91 003220
92 003226
93 003232
94 003240
95 003244
96
97
98
99 003246
100 003252

101 003254
102 003260

103 003264
104 003270
105 003272
106 003276

112737

012737
012737

104401
104412
012601

001002
000137
020137
003403
104401

000763
005301
006301
016137
005237
012737
000177
000000

003154
072560

003130
003134
003140

070610
001300
001100
000001
003146

74 003124

0G1207
001304
001100
066130

73 003122

104401

013700
012706
004737
000240
004737
005037
005037

EXEC:

177776

-— ) 2
QoW

70 003106
71 003112
72 003116

000005
005037

008

67 003074
o8 003076
69 003102

75
76
77
78

SOf TWARE

51
5¢
53
5¢
55
58

FOR

[

GET

TSTM 1
MACRO Vv04.00
SWITCH REGISTER

1%:

003374
101702

2s:

072600

101556

$RMADR
, RO
#STACK
. SP
PC.CKCLK

MOV

¥..SLPERR

003244

001104
4%

LSCRLF

CLR
MOVE
MOV

PC,STKINT
KYBCTL
$PASS
#1, SERMAX
#. ,SLPADR

TYPE

LTESTNO

RDOCT
MOV

BNE
JMP
P
BLE

(SP) +.R1
2%
TST1
R1,MAXTN
3s

B8R

TYPE

3s:

001300
000001
000000

RESET
CLR
TYPE
MOV
MOV
JSR
NOP
JSR
CLR

_BADNO

DEC
ASL
MOV
INC
MOV

R1
R1
TSTADR(R1)
,4$
KYBCTL
#1_$ICNT

.WORD

JMP

;CLEAR EVERYTHING
:Eth? THE PROCESSOR STATUS WORD
;RH/RM ADDRESS FOR INDEXING

;LOAD STACK POINTER

;START THE CLOCK

JRETURN [F NO CLOCK
JINITIALIZE THE KEYBOARD
;CLEAR SINGLE TEST INDICATOR
sCLEAR THE PASS COUNT
sSET ERROR MAX TO 1
JINITIAL SETTING FOR LOOP ADDRESS
JINITIAL SETTING FOR LOOP ON ERROR ADDRESS
;ASK FOR TEST NUMBER
;GET THE NUMBER
;PUT ENTRY INTO R1
;B8R _IF NOT Z2ERO
;ENTER 2ERO - PERFORM ALL TESTS
;SEE IF NUMBER GREATER THAN MAXIMUM
;BR IF LESS OR EQUAL
;BAD ENTRY

:TRY AGAIN

sDECREMENT ENTRY
sSHIFT IT LEFY
JGET THE TEST ADDRESS
sSET SINGLE TEST INDICATOR
JPRESET ITERATION COUNT
;G0 TO THE SELECTED TEST
;TEST ADDRESS GOES HERE

; CHANGE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM
005737
001421
005037
104401

013746
104402
104401
104401

001302

:
CHANGE

001302
072640
001304

1%:

001207
072675

CHGADR

(LR
TYPE
MOV
TYPOC
TYPE

CHGADR
LADDRIS
$RMADR
. - (SP)

BEQ

TYPE

,$CRLF
NTRH

s CHANGE THE ADDRESS ?
;B8R _IF NOT
;CLEAR THE INDICATOR

;TYPE OUT WHAT THE PRESEN)

ADDRESS

;PUT _THE ADDRESS ON THE STACK
:E;PEFTHE ACTUAL ADDRESS
;ASK FOR NEW ADDRESS

C(ZRMRBO RMO5/3/2 DU POR TST 1
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER
107 003302
108 003304

0 003310
1 003314

2 003316

b
ek

003324
003330
003334
003336

003336

7 003340

8 003344

9 003346
0 003354

ed
—

el =2

3
4
5
6

104412

005716
001402
011637
005726
012737
013700
005760
000404
104056

062706
000745
012737
000207

4-APR-81

SEQ 0039
RDOCT
TST

001304

003336

001304
000002

000004

3%:
4%:

000004

000006

000004

S%:

N
3
18:06:25 PAGF 9-3

BEQ

MOV
TST
MOV
MOV
TST
BR

EMT

(SP)

i 3

(SP) ,SRMADR
(SP)+

#LeS, N4

$RMADR ,RO
?gNC(RO)

;O OR 'CR' ENTERED ?
;BR IF EJTHER ENTERED (NO ADDRESS C(HANGE)
sNEW RH/RM ADDRESS
;CORRECT THE STACK POINTER
;LOAD TRAP ADDRESS
sGET RH/RM ADDRESS
JRESPONDS AT THAT ADDRESS ?
;BR IF YES

ADD

#4 ,SP

JRESET

Mov
RTS

JRETURN

1%
#6, M4

THE STACK POINTER

;GET ADDRESS AGAIN
JRESTORE THE VECTOR

(ZRMRBO RMOS/3/2 DU POR
TESTS

013700
012746
012746
000002

TST

MACRO v04.00

4-APR-B1

&
B
18:06:25 PAGE 10

SEQ 0040

001304
000240
003374

LSBTT.

TESTS

TST1AA:

MOV
MOV

MOV
RT]

648

$RMADR, RO
#PRS,~(SP)

;oRESTORE RO AFTER END OF
;;PUT NEW PS ON STA(CK

#648 ,~-(SP)

;sPUT NEW PC ON

PASS

STA(CK

:;POP NEW PC AND PS

* .'tttt'Qt‘tt"'.lt.."'"'tt.'t"t't't't'tt't.t.tflt.'t"'tt

't..

'TEST

NEUTRAL ACCESS TEST

'VERIFY

THAT

THE DRIVE

. W

i
e
e

e
I

IS ACCESSIBLE

TO BOTH PORTS

SELECT DRIVE, VERIFY THAT THE DRIVE 1S PRESENT, THAT THE
DRIVE IS A DUAL PORT RMOS, RMO3 OR RMO2 AND THAT THE DRIVE
IS ONLINE (RMDS HAS 'MOL'. ‘PGM', 'DPR', € 'DRY' BITS SET),

AND THE THE
THE SAME,

DRIVE

SERIAL NUMBER READ

THROUGH BOTH PORTS

s %

i«

003374
003374
003400
003402
003404
003410
003416
003424
00343c
003432
003440
003444

21
22 003452
23
24
25
33 003460
003466
003474
003500
003504
003512
003520
003524
003530
003536
003544
003552
093554
003562

003570
003576
0n3600

THE TEST IS REPEATED THROUGH BOTHM PORTS.

:'"!'tt't'.Q.Q'.tl"'.'!'t".ttl.t.'.t..'tt.t..Q.t'tt'tt'tt"tQ'
005737
001406

001300

000137
012737
012737

003074

100002

TST1:

KYBCTL

;PERFORMING ONLY SINGLE

IMP
MOV
MOV
MOV

EXEC
#-1,KYBCTL
#TEST1,$LPADR
NTEST1.SLPERR

*RETURN € GET NEXT TEST NUMBER
*SET SINGLE TEST INDICATOR
:SETUF SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

mMOVB

#1.$TSTMM

BEQ
8P

177777

012737

003432
003432

001300
001106
001110

112737
012706
012737

000001
001100
000001

001102

012760

000640

000010

001176

18$:
2s:
resTy
T

MOV
MOV
MOV

28
18

#STACK ,SP
#1,$TIMES
#CLR,RMCS2(R0)

*BR [F NOT
*BR IF JUST ENTERED TEST

TEST

:MOVE #1 TO TEST NUMBER

*LOAD THE STACK POINTER
1;D0 1 ITERATION
;INITIALIZE THE MASSBUS

SVERIFY THAT DRIVE IS PRESENT THROUGH PORTS A £ 8B
113760
033737
005760
005037
016037
012737
060037
005037
013737
042737
023737

001414
013737
042737
053737

001224
001224
000012
001250
000010
000010
001122
001124
001126
167777
001124

001164
001164
001164

001126
010000
001174

001174
001174
001124

005137

001250

104037

000010
001240

Move
MOV
TST
CLR

MOV
MOV
ADD
CLR
MoV
BIC
(MP
BEQ
MOV
BIC
?#?

PORTA ,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS (RO)
;SEE IF DRIVE (PORT A) PRESENT
CKERR
;CLEAR THE 'CHECK ERROR® INDICATOR
RMCS2(RO) ,$BDDAT
;GET CONTENTS OF RM(SZ2
N#RM(CS2,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
sWHAT REGISTER SHOULD BE
$8DDAT,$TMPO
;MOVE REGISTER CONTENTS TO °*$TMPQ*
#*CNED,$TMPQ
;SAVE SPECIFIED BITS
$GDDAT,$TMPO
:COMPARE THE BITS
643
sBR IF OK
$BDDAT ,$ TMP4
.COPY °'BAD DATA'®
#NED , $TMP4
;CLEAR THE MASKED BITS
gIMP4.SGDDAT
;'OR' WITH GOOD DATA FOR TYPEOQUT

(oM

CKERR

;SET

THE REGISTER COMPARE

ERROR

INDICATOR

SHHR

JRMRBO RMOS/3/2 DU POR TST
.
NEUTRAL ACCESS TEST

003604
003606
00361¢
003614
003622
003630
003636
003642
003646
003654
003662
003666
063672
003700
003706
003714
003716
003724
003732
003740
00374¢
003746
003750
003754
003756

000240
005737
001403
012760
113760

013737
0057690
005037
016037

012737

060037
005037
013737
042737
023737
001414
013737
042737
053737
104037

005137
000240
005737
001403
012760

MACRO v04.00

64%:

CKERR

MOV
move
MoV

#CLR,RMCS2(R0O)
;ISSUE MASSBUS INIT TO CLFAR 'NED'
PORIB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

TSTY

CiR
MOV
MOV
ADD

167777

001124

001126
010000
001174

001174
001174
001124

001250

66%:

001250

000010

113760

013737
005037

016037
012737
060037
012737
022737
001413
022737
001407
023737
001403
104001
005137
000240
113760
013737

005037

016037

012737
060037
012737
022737
001413
022737
001407
023737
007403

001224
001224
001250
000026
000026
001122
024027
024024

RMDS (RO)

001124
001126

024025

001126

001124

001126

001250

001226
001226
001250
000026
000026
001122
024027
024024

001124
001126

024025

001126

001124

001126

000010
001240

001126
001122

;SEE IF DRIVE

(PORT B) PRESENT

(KERR
:CLEAR THE 'CHECK ERROR’ INDICATOR
RMCS2(R0O) ,$8DDAT
;GET CONTENTS OF RM(S2
N#RMCS2,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS

ggg

CKERR

;SET

TST
BEQ

CKERK
410
#CLR,RMCS2(R0O)

;WAS °NED® SET ?
:BR IF NOT
;ISSUE MASSBUS INIT TO CLEAR

MOV
CLR
MOV
MOV
ADD

688%:

SET

$GDDAT
$BDDAT ,$TMPC
#~(NED,$TMPO
$GDDAT,$TMPO
663

Movae

001126
001122

'NED'

;BR IF NOT

CLR
MOV
BIC
CMP
BEQ
MoV
BIC
EA§

Mov

000010
001240

JWAS

.+10

$BDDAT,STMF/
#NED , $TMP4
;;MPé,SGDDAT

;CONFIRM THAT DRIVE

003764
003772
004000
004004
004012
004020
004024
004032
004040
004042
004050
004052

&
10-1

NOP
TS”

BEQ

000010
000010
001240

001164
001164
001164

000040

C
18:06:25 PAGE

SEQ 0041

601250
000040
001226
001226
000012
001250
000010
000010
001122
001124
001126

4-APR-B1

;WHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTS TO 'STMPO’
;SAVE SPECIFIED BITS
;COMPARE THE BITS
BR IF 0K
:COPY 'BAD DATA'
;CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT

THE REGISTER COMPARE ERROR INDICATOR

°NED’

IS AN RMOS5, RMO3 OR RMO2 AND [S DUAL PORTED

PORTA RM(CS2(R0O)

;SELECT PORT A

PORTA_PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR® INDICATOR
RMDT(RO) ,$BDDAT
:GET CONTENTS OF RMDT
#RMDT,SBDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS

MoV
e
BEQ
MP
BEQ
cMP
gg?

#024027 ,8GDDAT
#026024 ,38DDAT
683
#024025,$BDDAT
68$
$GDDAT ,$BDDAT
?85

;WHAT REGISTER SHOULD BE
;DUAL PORT RMO3 ?
SYES !
;DUAL PORT RMOZ ?
JYES !!
;IS THE REGISTER 0K ?
:BR IF OK

ggg

CKERR

sSET

MOVB
MoV
CLR
MOV

PORTB,RMCS2(R0)
;SELECT PORT &
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDT (RO) ,$8DDAT
;GFT CONTENTS OF RMDT

MOV

ADD

#RMDT ,$8DADR

RO, SBDADR

MOV
CMP
BEQ
(MP
BEQ

#024027 ,8GDDAT
#024024 ,$BDDAT
70%
#024025,88DDAT
0s

BEQ

70%

(MP

GDDAT ,$BDDAT

THE REGISTER COMPARE ERROR INDICATOR

;FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS

;WHAT REGISTER_SHOULD BE
;DUAL PORT RMO3 ?
JYES !
;DUAL PORT RMO2 2
JYES !,

;IS THE REGISTER Ok

JBR IF

ERROR MESSAGE

<RMREBC RMOS5/3/2 DU POR TST
-3
NEUTRAL ACCESS TEST

‘Q

004170
004172
004176

104001

005137
000240

MACRO v04.00

4-APR-81

D
18:06:25 PAGE

4
10-2

SEQ 004¢

001250

70%:

EMT
oM
NOP

,SET THE REGISTER COMPARE ERROR INDICATOR

(KERR

JVERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL

4“8 004200

004206
004214
004220
004226
004234
004240
004246
004254
004262
004270
004272
004300
(04306
004314
004316
004322
004324
004330
004336
004 344
004350
004356
004364
004372
004400
004602
004410
004416
004424

FEENELR

&»

o
o

RERERRs

004526

113760

013737
005037

016037

012737
060037

012737

013737
042737
023737
001414
013737
042737
053737
104045

005137
000240
005037
016037
012737
060037
012737
013737
042737
023737

001414

001224
001224
001250
000012
000012
001122
001000
001126
176777
001124

001126
001000
0C117¢4

001174
001174
001124

001250
001250
000012
000012
001122
010600
001126
167177

001124

001126
010600
001174

005137
000240
113760
013737
005037
016037
012737
060037
012737
013737
042737

001250

001174
001174
001124

042737
053737

001126
001000
001174

001174
001174
001124

000010
001240

001250
000012

74%:

001126
001122

001250

8IC
cMP
8EQ
MOV
8IC
BIS
EMT
oM
NOP
]
MOV
CLR
MOV

MOV
ADD

MOV
MoV
BIC
MP
BEQ
MOV

76%:

001126

BIC
BIS
EMT
coM
NOP
CLR
MOV
MOV
ADD
MOV
MOV

001124
001164
001164
001164

023737

104045

Mov

001126
001122

001124
001164
001164
001164

005137
000240
005037
016037

CMP
BEQ

72%:

001226
001226
001250
000012
000012
001122
001000
001126
176777
001124

001414
013737

MOvB
MOV
CLR
MOV
MOV
ADD
MOV
MOV
BIC

001126
001122

001124
001164
001164
001164

013737
042737
053737
104002

000010
001240

BIC
BIS
EMT
(oM

NOP
CLR
MOV

PORTA,RMCS2(RO)
PORTA_PTNBR

CKERR

;SELECT PORT A

;MOVE

PORT ADDRESS

;CLEAR THE

TO LOCATION FOR

'CHECK ERROR®

RMDS (RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF

RO, $BDADR

#PGM,SGDDAT

$3DDAT,$TMPQ

;ADD RH/RM BASE ADDRESS

TYPEQUT

INDICATOR

ERROR MESSAGE

;WHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO 'STHPO'

#-CPGM_STMPQ

;SAVE

$GDDAT , $TMPO
72%
SBDDAT, $TMP4

SPECIFIED BITS

;COMPARE THE BITS
:BR IF 0K
;COPY 'BAD DATA’

#PGM, $TMP4

;CLEAR

2;MP4.SGDDA7

THE MASKED BITS

;'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
;CLEAR THE ‘CHECK ERROR®
RMDS (RO) ,$8DDAT
. GET CONTENTS OF RMDS

#RMDS ,$BDADR

;FORM REGISTER ADDRESS OF

RO,$8DADR

;ADD RH/RM BASE ADDRESS

INDICATOR
ERROR MESSAGE

#MO
! DPR!DRY
L, $GDDAT

sWHAT REGISTER SHOULD BE
sMOVE REGISTER CONTENTS 10 °*STMPO"’
sSAVE SPECIFIED BITS

$SBDDAT,$TMPO

#~C10600, $TMPO
$GDDAT, $TMPO
743

:COMPARE

:BR IF 0K

$BDDAT,S$TMP4

THE BITS

;COPY °*BAD DATA'

#10600,$TMP4
gTMPk,SGDDAT

;CLEAR THE MASKED BITS
Z'OR* WITH GOOD DATA FOR TYPEOUT

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

PORTB,RMCS2(RO)

PORTB,PTNBR

;SELECT PORT B

;MOVE PORT ADDRESS

TO LOCATION FOR TYPEOUT

CKERR
sCLEAR THE °'CHECK ERROR®
RMDS (RO) ,$8DDAT
;GET CONTENTS OF RMDS

A#RMDS ,$BDADR

RO, $BDADR
#PGM,$GDDAT

$8DPDAT,$TMPO

#“CPGM,STMPQ

$GDDAT,$TMPO

;FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS
WHAT REGISTER SHOULD BE

INDICATOR

ERROR MESSAGE

;MOVE REGISTER CONTENTS TO 'STMPQ®

;SAVE

SPECIFIED BITS

;COMPARE THE BITS

763
$BDDAT ,$TMP4
A#PGM, $TMP4
2;MP4,$GDDAY

:BR IF OK
;COPY °'BAD DATA'
;CLEAR THE MASKED BITS
:*OR* WITH GOOD DATA FOR TYPEOUT

CKERR

;SET

(KERR
RMDS (RO) , $8DDAT

sCLEAR THE

THE REGISTER COMPARE ERROR INDICATOR
"CHECK ERROR'

JGET CONTENTS OF

RMDS

INDICATOR

_I~MRB.

RM05/3/2 DY POR TST
NEUTRAL ACCESS TEST

0046572
004600
004604
004612
004620
004626
004634
004636
004644
0046652
004660
004662
004666

012737

060037
012737
013737
042737
023737
001414
013737
042737
053737
104002

005137
000240

016037
113760

016037
023737
001406
104003

032777
001001

4-APR-8'

£E
18:V6:25 PAGE

4
10-3
SEQ 0043

000012

001122

MOV

010600
001126

001724
001164

MOV
MOV~

(91122

167177

ADD

001164

001124

001164

001126
C10600
001174

001174
001174
00124

001250

50
51

53 004676
56 004704
55 004712
56 004720
57 004726
58 004730
59 004732
004740
6i 004742
62 004744
63
81
82

MACRO v04.00

000030
001226
0C0030
001124

—Q0001Q.
001124
000010
001126
001126

100000

174200

BIC

;FORM REGISTER ADDRESS COF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

#MOL!DPR.DRY,$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT $TMPO
;MOVE REGISTER CONTENTS 10 ‘STMPO*

CMP
BEQ
MOV
BIC
BIS

#%(10600,$TMP0

SGDDAT,$TMPO ~
78S
SBDDAT,$TMP4
#10600,8TMP4
$TPL.3GODAT

:SAVE SPECIFIED BITS

COM

(KERR

;SET THE REGISTER COMPARE ERROR INDICATOR

78%:

NOP

:VERIFY

THAT DRIVE

:COMPARE THE BITS
:BRIF OK
:COPY 'BAD DATA'
;(LEAR THE MASKED BITS
:'OR" WITH GOOD DATA FOR TYPEOUT

SERIAL NUMBER SEEN THROUGH BOTH PORTS

THE

SAME

MQUR._PORTA
RM(S2(R0) ;SELECL PORI A
MOV~
RMSN(RO),SGDDAT ;STORE THE PORT A SERIAL NUMBER
MOVB
PORTB,RM(S2(R0) :SELECT POR] B
MOV
RMSN(RO) $BDDAT :STORE THE PORT B SERIAL NUMBER
CMP
SGDDAT,$BDDAT
:ARE THEY THE SAME 2
BEQ
18
:BR IF THEY ARE
BIT

BNE

000000
000004

#RMDS,$BDADR

RO, $BDADR

HAL T
SCOPE

18:

#SW1S,aswR

:MALT ON ERROR

:BROIF

SET - PROGRAM HAS ALREADY HALTED

SHALT, POSSIBLE
:LOOP " ?

CABLE

CONNECTION PROBLEM

::t'.tt'tttl‘tttt.'i!l"t".ttttlttl'ttQttt."'.t'ttttt"'t

t'i"tt'

;*TEST 2

PORT

bt4

'A'

SEIZE/TIMEOUT TEST

i*VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT
:
1T CAN BE RELEASED BY THE ONE SECOND TIMER.

WRITE 0'S INTO RMDA THROUGH PORT ‘A’ VERIFY THAT THE DRIVE

:*
i

READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT
VERIFY THAT 0'S ARE READ FROM EACH REGISTER.

:*
it
i

WAIT FOR THE PORT TIMEQUT TO RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE
VALUE FOR LATER USE.
VERIFY THAT TIMEOUT RETURNED THE DRIVE

i
.

004746
004746
004752
004754
004756
004762

004770
004776
005004
005004

HAS BEEN SEIZED.

NEUTRAL.

ALSO VERIFY

THAT

THE DURATION OF

THE ONE

'B':

SHOT

:"ttttlttlttttt!tt.l’.tt't'ttt'fit"ttttt.t‘ltttt"'tttt'."'l'ttQt

T872:

00573~
001406

001300

000137
012737
012737
012737

003074

005004
005004

001106
001110

28:
MOV
. =~ MOV

112737

000002

001102

MOVB

100002

177777

TST
BEQ

kYB(TL
28

JMP

EXEC

BPL
001300

1$:

MOV

4=1,KYBCTL

:PERFORMING ONLY SINGLE
:BR IF NOT

TEST

:BR_IF JUST ENTERED TEST

:RETURN & GET NEXT TEST NUMBER
:SET

SINGLE

TEST

INDICATOR

RTEST2,SLPADR
ATEST2,$LPERR

;SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

#2,STSTAM

;MOVE #2 TO TEST NUMBER

IS > 500 Ms.

JRMRBO RMOS5/3/2 DL POR TST 1
e
PORT °*A" SEIZE/TIMEOUT

005012

a3 005016
151

005024

005032
005036
05042

012706

001100

MA{RO V04.00
TEST

18:06:25 PAGE

SEQ 0044

MOV

#STACK,SP

005146

001176

MOV

#2.

012737

000240

177776

MOV

#<5%32.> ,4PS

;SET PRIORITY

TIME
#2C00. ,WATCH

;CLEAR THE ELAPSED TIME COUNTER
JSET WATCH TO 2000, MS

(C05037
005037
005037

005037
012737

113760
013737
005060
113760
013737
013737
016037
010037
062737
(005037

023737

005154
005156
882}22

001403
104004
000137

005164
005172
005200
005206
005214

113760
013737
016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240

005222
005230
005234
005242
005250
005c56
05260
005262

;LOAD THE STACK POINTER

(00002

001262
001264
001266

CLR
CLR
CLR

001256
003720

THE

001224
001226
000006
001226
001226
001226
000012
001122
000012
001124

001124

000010
001242
00001V
001240
001244
001126

001122
001126

(006312

001226
001224
000012
020001
011600

001124
001166
001126
001166
001124

000010
001240
001126
001126
001124

001166
001164
001144
001164

65%:

ITERATIONS

TO 5

THROUGH PORT A
PORTA _RMCS2(R0) ,;SELECT PORT A
PORTA,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDA (RO)
;WRITE RMDA
PORTB,RMCS2(R0)
SELECT PORT B
PORTB.PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPENUT
PORTB,0PPRT
;'OPPOSITE® PORT ADDRESS
RMDS
(RO) ,$8DDAT :SEE IF DRIVE SEIZED BY PORT A
RO, $BDADR
:RH/RM BASE ADDRESS
#RMDS , $BDADR
JGENERATE BAD REGISTER ADDRESS
$GDDAT
;REGISTER SHOULD BE ZERO

BEQ
EMT
JMP

648
4
5%

MOVB
MOV
MOV
BIC
MOV

PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
RMDS(RO) ,$80DAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#0M:P 1P, $8DDAT
:CLEAR DONT (CARE BITS
#MOL ! PGM!DPR'DRY ,$GDDAT ~ ;EXPECTED STATUS

MOV
(oM
MOV
8I(
cMP
BEQ
EMT
NOP

$GDDAT ,$BDDAT

$GDDAT ,$TMP1
S$TMP1
$BDDAT ,$TMPO
$TMP1,STMPO
$GDDAT ,$ TMPO
65%
5

;IS THE REGISTER ZERO

JBRIF

IT IS

;BYPASS REST OF

THE SUBTEST

;USE GOOD DATA AS A MASK
;COMPLEMENT THE EXPECTED STATUS
sSAVE THE ACTUAL STATUS
:CLEAR UNWANTED BITS
JARE THE EXPECTED STATUS BITS SET
;BR |F THEY ARE

JREAD THE DRIVE REGISTERS THROUGH PORT B AND STORE
005c64
005272
005300
005304
005310
005314
005320

005324
005330
0053364
£35340

113760
013737
016046
016046
016046
016046
016046

016046
016046
016046
(016046

001226
001226
000046
000044
000030
000034
000032

000042
000020
000026
000606

0000610
001240

IN CASE LOOPING

;CLEAR TIMEOUT VALUE FOR PORT A
;(CLEAR UPPER TIMEOUT TOLERANCE
;CLEAR LOWER TIMEOUT TOLERANCE

MovB
MoV
CLR
MOVB
MOV
Mov
MoV
MOV
ADD
CLR
cMP

;:D0 2.

TIMER

CLR
MOV

001260

STIMES

TIMEA
TIMEAP
TIMEAM

;SEIZE THE DRIVE
005060
005066
005074
005100
05106
005114
005122
005130
005134
005142

10-4

012737

;START

005046
005052

&4~APR-8!

MOVR
MOV
MOV
MOV
MoV
MoV
MOV

MOV
MOV
MoV
MOV

PORTB RM(S2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS
RMEC2(RO) ,-(SP) ;STORE REGISTER
RMEC1(RO) ,-(SP) ;STORE REGISTER
RMSN(RQ) ,-(SP)
;STORE REGISTER
RMDC
(RQ) ,=(SP)
;STORE REGISTER
RMOF
(RO) ,~(SP)
;STORE REGISTER

THEM ON THE STA(K

TO LOCATION FOR TYPEOUT
RMEC2., PURT B, FOR (HECK
RMEC1, PORT B, FOR (HE(K
RMSN, PORT B, FOR (HECK
RMDC, PORT B, FOR (HE(K
RMOF,
PORT B, FOR (HE(K

RMER2(RO),~(SP) :STORE REGISTER RMERS, PORT B, FOR (HECK
RMLA(RQ),=(SP)
;STORE REGISTER RMLA, PORT B, FOR (MECK
RMDT(RQ),-(SP)
:STORE REGISTER RMDT, POR] B. FOR (ME(K
RMDA(RQ) ,~(SP)

;STORE REGISTER RMDA, PORT B, FOR (ME'x

ZQNRBO RMCS/ 372 Du POR TST 1
PORT "A' SEIZE/TIMEOUT

C05344
005350

016046
016046

000024
(00014

MACRO v04.00
TEST

&-APR-81

SEQ 0045

MOV
MOV

JWAIT

005354
005360
005362
005366
005370
005372
005376
0054046
005412
005416
005420
005626

005760
001006

005737
001372
104036
000137
012737
013737
004537
001262
012637
012637

000012

1%:

177776
001262

TST
BNE

?2%:

001264
001266

005442

023727
10300
104055

012737

001256

000764

THE

MP
BHIS

0006240

177776

THAT

3%:

MOV

DRIVE

005037
032737
060037
012737
113760
016037

005516
0055264
005532
005540

013737
042737
113760
016037

005554
005562

013737
042737

005576
005600
005604
005606
005610
005614
005622
005630

001006
005737
001037
104046
000137
013737
013737
113760

005510

05546

00557C

005636
005642
005644
005652

042737

(01254
000012
001122
011600
001224
000012

s CHECK WATCH
;BR [F NOT ZERO

;BYPASS TIMEOUT TIME (HECK
;SET PRIORITY TO 7 TO STOP CLOCK
;SAVE THE ELAPSED TIME FOR PORT A
;CALCULATE THE TOLERANCE
;TIMEOUT VALUE FOR PORT A
;+25% TOLERANCE
:=25% TOLERANCE
[S AT LEAST 500 MS

;WAS MEASURED TIME AT LEAST 500 MS?
JBRIF IT
WAS
TO NEUTRAL AFTER PORT A TIMED OUT

;RESTORE PRIORITY 70 S

IS STILL IN NEUTRAL

001124
000010
001170

CLR
MOV
ADD
MOV
MOVB
MOV

001170
100100
001226
000012

001164
001164
000010
001172

MOV
BIC
MOVB
MCV

$TMP2,$TMPO
#ATA!VV,$TMPO
PORTA,RMCS2(R0)
RMDS (RO) ,$TMF3

;COPY 1T INTO *$TMPQ*
:CLEAR PORT DEPENDENT BITS FROM THE (OPY
:SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FRCM PORT B.

001172
100100

(01166
001166

MOV
BI(

STMP3,STMP1
NATAIUV,$TMP1

:COPY IT INTQ *STMP1’
:CLEAR PORT DEPENDENT BITS FROM THE COPY

005774
001170
001226
001226

001126
001240
000010

BNE
TST
BNE
EMT
JMP
MOV
MOV
MOvVB

66%
$TMPO
683
46
70$
$1MP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0O)

001226
001172

(01240
001126

024001

042737

024001

023737

001164

005737
001414
013737
013737

RETURNED

H<5%32.>,aMPS

;VERIFY THAT THE DRIVE
005450
005454
005462
005466
005474
005502

;WAIT FOR THE DRIVE TO TIMEOUT
;BR_WHEN TIMEOUT OCCURS

TIMEOUT ONE=-SHOT

55
THE

;STORE REGISTER RMMR1, PORT B, FOR (HE(K
;STORE REGISTER RMER1, PORT B, FOR CMECK

TIMEOQUT

TIME ,#500.
3s

EMT

;VERIFY

RMDS (RO)
2%
WATCH
1%
36
43
H<7232.>,Q#PS
TIME,TIMEA
RS, TOLER
TIMLA
(SP)+,TIMEAP
(S8)+,TIMEAM

TST
BNE
EMT
JMP
Mov
MOV
JSR
JWORD
MOV
MOV

;VERIFY THAT

005430
005636
00544C

RMMR®
(RQ) ,~(SP)
RMER1(R0),~(SP)

FOR PORT A

001260
005776
000340
001256
066324

&
G
18:06:25 PAGE 10-5

001122

001170

BIC

001172

BIC

001166

(MP

001164

66$%:

TST
BEQ
MoV
MOV

RELERR
;CLEAR THE 'RELEASE ERROR ° INDICATOR
#RMDS , $8DADR
<FORM THE ADDRESS OfF RMDS FOR TYPEOQUT
RO, $BDADR
;ADD THE 1/0 BASE ADDRESS
#MOL ! PGMIDPR!DRY,$GDDAT
;COMPARISON CONSTANT
PORTA ,RM(S2(RO) SELECT PORT A,
RMDS(RJ) ,$TMP2
;GET THE DRIVE STATUS REGISTER FROM PORT A.

#P1P ! WRL |OM, STMPZ

;CLEAR DONT CARES

#P1P!WRL IOM, $TMPS

sCLEAR DONT CARES

$STMPO, S TMP1

$TMPO
67%
PORTA ,PTNBR
$TMP3, $BDDAT

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR [F NOT
JREGISTERS ARE
:BR IF NOT

THE SAME: ARE THEY ZERO ?

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B,

;SEE IF STATUS EQ O FROM PORT A,
;BR IF Z2ERO
;SEIZING PORT [F TEST SHOWS DRIVE NOT
:'BAD DATA' FOR ERROR TYPE QUT

IN NEUTRAL

J-Mils

QMOS/3/2 DY POR TST 1
PORT 'A' SEIZE/TIMEOQUT

005660
005666
205€72

005674
005702
005704
005712
005720
005726
005734
005736
005740
005746
005754
005762
005770
005772
005774

113760

005737
001004
012737
104022

013737
013737
042737
023737

001401
104007

013737
013737
042737
023737
001601

MACRO v04.00
TEST

0012¢+
001166

000010

1777277

001254

67%:

001170
001226

001126
001240
001126

68%:

100100

001124
001172
001226

100100

001124

104007

000240

69%:

70%:

H
18:06:25 PAGE

4
10-6

SEQ 0046
MOVB
TST

001126

001126
001240
001126
001126

&-APR-81

BNE

MOV
EMT
MOV

MOV

PORTA ,RM(S2 (RO)

$TMPI

688

#-1 ,RELERR

$TMP2, $BDDAT

PORTA ,PTNBR
#ATA!VV $BODAT

BIC
CMP
BEQ
EMT

$GDDAT,$BDDAT
993

MOV
BIC

PORTB ,PTNBR
#ATA!VV, $BDDAT

MOV

(MP
8EQ
EMT
NOP

$TMP3 $BDDAT

$GDDAT, $BDDAT
;OS

JSELECT PORT A,
JSEE [F STATUS EQ ZERO fROM PORT R,
;BR IF NOT
JSET 'RELEASE

006154
006156
006160
006164
006172
006176

013737
010037
062737
012637
001401

001226
001122
000914
001126

010037
062737
012637

001122
000024
001126

104006

001407
104006

010037
062737
012637
001401

001122
000006
001126

010037
062737
012637
001401

001122
000026
001126

104006

1046006
010037
062737
012637
001401
104006
010037
062737
012637
01401
1046006
010037

062737
012637
001401

001122
000020
00112¢
001122
000042
001126

001122
007932
001126

001240
001122

4%:

MOV

MoV
ADD
MOV

BEQ
EMT

001122

MOV
ADD

MoV
BEQ
EMT
MOV

ADD
MoV

BEQ
EMT
MOV
ADD
MOV
BEQ
EMT
MOV
ADD
MOV

8EQ
EMT

001122

MoV
ADD
MOV

BEQ
EMT

001122

MOV

ADD
MOV
BEQ

PORTB,PTNBR

RO, SBDADR

#RMER1,$BDADR
(SP)+,$BDDAT

6
RO, $BDADR

#RMMR1, SBDADR

(Sz)*.$BDDAT
. *

6
RO, $8DADR

#RM
, $8DADR
DA

(SP)+,$BDDAT
.t
6

INDICATOR

;LOOK FOR BIT FAILURES WHEN RMDS READ
;CHANGE PORT NUMBER
JDON'T CHECK ATTN BIT OR vv BIT
JALL BITS OK ?

:BR

OK FROM PORT A,

;CHECK RMDS FOR BIT FAILURES ~ FROM PORT 8.
; CHANGE PORT NUMBER
JDON'T (HECK ATTN BIT OR vv BIT

;SEE

IF READ On FROM PORT B.

;BR IF 0K

sCHECK THE REGISTERS STORED THROUGH PORT B.
;THE REGISTERS ARE STORED ON THE STACK.
005776
006004
00€010
006016
006022
006024
006026
006032
006040
006044
006046
006050
006054
006062
006066
006070
006072
006076
006104
C06110
006112
006114
006120
006126
006132
006134
006136
006142
006150

ERROKR'

;CHANGE

ALL

REGISTERS SHOULD BE

°*PORT NUMBER®'

TO THE OPPOSITF PORT

;BASE ADDRESS FOR REGISTER RMER1
sADDRESS OF RMER1 FOR TYPEOUT
;CHECK THE STORED CONTENTS OF RMERIT
: CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMMRI1
;ADDRESS OF

RMMR1

FOR

TYFPEOUT

sCHECK THE STORED CONTENTS OF RMMR1
;CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMDA
;ADDRESS OF RMDA FOR TYPEOUT
sCHECK THE STORED CONTENTS OF RMDA
s CONTENTS ZERO ?

RO, $BDADR

;BASE ADDRESS FOR REGISTER RMDT

s CONTENTS ZERO ?

#RM
, SBDADR
DT
(S?)*,SBDDAT

6
RO, $8DADR

#RM
, SBDADR
LA

(SP)+,$BDDAT
. +h
6
RO, $BDADR

#RME
, $BDADR
RZ
(55)4,$BDDAT
<.t

6
RO, $8DADR

#RMOF
, $BDADR
(SE)O,SBDDAT
4

ZERO.

;ADDRESS OF RMDT FOR TYPEOUT

sCHECK THE STORED CONTENTS OF RMDTY

;BASE ADDRESS FOR REGISTER RMLA

;ADDRESS OF RMLA FOR TYPEQUT
sCHECK THE STORED CONTENTS OF RMLA
s CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMER?2
;ADDRESS UF RMERZ FOR TYPEOUT
sCHECK THE STORED CONTENTS OF RMER?
s CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMOF
;ADDRESS OF RMOF FOR TYPEOUT
JCHECK THE STORED CONTENTS OF RMOF
s CONTENTS ZERQ ?

J=MREy RM05/3/2 DU POR

PORT

152

*A'

006200
006202
006206
006214
006220
006222
006224
006230
006236
006262
006244
006246
006252
006260
006264
006266
006270
006274
006302
C06306
006310
006312

TST

SEIZE/TIMEOUT

104006

MACRO v04.00
TEST

010037
062737
012637
01401

01122
000034
001126

001122

010037
062737
012637
001401

001122
000030
001126

001122

010037
062737
012637
001401

001122
000044
001126

010037
062737
012637

001122
000046
001126

104006

001401
104006
000004

&-APR-81

4
10-7

1
18:06:25 PAGE

SEQ 0047
EMT
MOV

ADD

MOV

:CONTENTS ZERO 2

BEQ

.+4

: CONTENTS ZERO ?

MOV

RO, $8DADR

MOV
BEQ
EMT
MOV

(SP)+,$BDDAT
.+
6
RO, $8DADR

;BASE ADDRESS FOR REGISTER RME(1
;ADDRESS OF RMEC1 FCR TYPEQUT
;CHECK THE STORED CONTENTS OF RMEC1

MOV
BEQ
EMT
SCOPE

(SP)+,$BDDAT
+4
6

ADD

(SP)+.$BDDAT

+4
6
RO, $BDADR
#PMSN
. SBDADR

EMT

001122

;BASE ADDRESS FOR REGISTER RMD(
sADDRESS OF RMDC FOR TYPEQUT
JCHECK THE STORED CONTENTS OF RMD(

H#RMDC
, SBDADR

BEQ
EMT
MOV
ADD

MOV

001122

6
RO, $BDADR

;BASE ADDRESS FOR REGISTER RMSN
;ADDRESS OF RMSN FOR TYPEOQUT
JCHECK THE STOKED CONTFNTS OF RMSN

(SP)+,$BDDAT

#RMEC
1, $BDADR

:CONTENTS ZERO 2

#RME
(2, $8DADR

;BASE ADDRESS FOR REGISIER RME(?2
;ADDRESS OF RMEC2 FOR TYPEOUT
JCHECK THE STORED CONTENTS OF RME(?

:CONTENTS ZERO ?

;LOOP ?

170
171

.' .'t"l'tfi'i.'fi'.l'."t"'tfi'lt.."..'fi..t..Q.fifl"t"t*t'ttt'

ttt

-rssr

VERIFY

:*
T

PORT

THAT

THE

'B'

DRIVE

SEIZE/TIMEOUT

CAN BE

TEST

SEIZED BY WRITING A REMOTE REGISTER AND

IT CAN BE RELEASED BY THE ONE SECOND TIMER.

THAT

WRITE 0'S INTO RMDA
HAS BEEN SEIZED.

:*
I

READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT
VERIFY THAT 0'S ARE READ FROM EACH REGISTER.

:*
i
P
i

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE
VALUE FOR LATER USE.
VERIFY THAT TIMEOUT RETURNED THE DRIVE TO
NEUTRAL
. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS.

THROUGH PORT

‘B°;

VERIFY

THAT

THE DRIVE

- &

006314
006314

"ttt*ttttttfitttttfi*t""t"ttttli'.'it!!tlttt*ti'ttttt"t'tttatil

1813

005737
001406
100002
000137

001300

012737
012737

006352
006352

177777

001300
001106
001110

112737

001102

006364

012706
012737

000003
001100
000002

006372
006400

012737
005037

000240
001270

177776

006320
006322
006324
006330
006336
006344
006352
006352

'A°;

012737

003074

001176

1$:
28:

TEST3:

TST

BEQ
BPL
JMP

KYBCTL

sPERFORMING ONLY SINGLE TEST °

BR IF NOT

MOV
MOV
MOV

28
18
EXEC

#-1,KYBCTL
#TEST3, SLPADR
#TEST3,SLPERR

:BR IF JUST ENTERED TEST
SJRETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MOV

#3,S$TSTNM

;MOVE #3 TO TEST NUMBER

MOV

#2. STIMES

sLOAD THE STACK POINTER
::D0 2. ITERATIONS

#<5+32.> ,34PS
TIMER

;SET PRIORITY TO 5 IN CASE LOOPING
sCLEAR TIMEOUT VALUE FOR PORT B

MOV

MOV
CLR

#STACK,SP

TZRMRBU RMOS/3/2 DU POR TST
PORT

°'8'

006406
00£410

SEIZE/TIMEQUT

005037
005037

MACRO v04.00

TEST

4-APR-81

J
18:06:25 PAGE

4
10-8

SEQ 0048

001272
001274

(LR
CLR

TIMEBP
TIMEBM

;CLEAR UPFER
;CLEAR LOWER

TIMEOUT
TIMEOUT

TOLERANCE
TOLERANCE

~NO

rnow

006414
006420

W
NN

:START THE TIMER
(ofe)
—O

001256
00372%

TIME
#2000. ,WAT(H

CLR

001260

MOV

;SEIZE THE DRIVE
006426
006434
006442
006446
0045654
006462
006470
006476
006502
006510
006514
006522
006524
006526
006532
006532
006540
006546
006554
006562

006570

006576
005602
006610
006616
006624
006526
006630

113760

013737

005060
113760

013737
013737
016037

010037
062737
005037

023737
001403
104004

001226
001226
000006
001224
001224
001224
000012
001122
000012
001124
001124

000137

07660

113760

001226
001226
000012
020001
011600
001124
001166
001126
N01166
001124

013737
016037
042737
012737

013737
005137
013737

043737
023737
001401
104005
000240

000010
001242

MOVB

MoV

CLR
MNve

000010
001240
001244
001126

MOV
MOV
MOV
MOV
ADD

001122

001126

000010
001240
00112¢
001126
001124
001166

:
648

001164
001164
001164
65%:
JREAD

C06632
006649
006646
006652
006656
006662
006666
006672
006676
006702
006706

006712

006716

113760

013737
016046
016046
016046
016046
016046
016046
016046
016046
016046
016046
016046

001224
001224
000046
000044
000030
000034
000032
000042
000020
000026
000006
000024
000014

000010
001240

CLR
CMP
BEQ
EMT
JMP

MOvB
MOV
MOV
BIC
MOV
MOV
oM
MoV
BIC
cMP
BEQ
EMT
NOP
THE

DRIVE

MOvB

MOV

MOV
MoV
MoV
MOV
MoV
Mov
MOV
MOV

MOV

MOV
Mov

;WAIT

FOR PORT B

;CLEAR THE ELAPSED "IME
;SET WATCH TO 2000, MS

(OUNTER

THROUGH PORT B
PORTB,RMCS2(R0) ;SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS

RMDA(RQO)

JWRITE RMDA

RMDS (RO) ,$8DDAT
RO, SBDADR

;SEE IF DRIVE SEIZED BY PORT 8
:RH/RM BASE ADDRESS

PORTA ,RMCS2(R0O)
,SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PORTA,OPPRT
;'OPPOSITE® PORT ADDRESS
#RMDS , $BDADR
$GDDAT

;GENERATE BAD REGISTER ADDRESS
JREGISTER SHOULD BE ZERO

$GDDAT ,$BDDAT
245

;IS THE REGISTER ZERO
JBRIF IT IS

;BYPASS REST OF

THE SUBTEST

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (RO) ,$8DDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#OM'PIP,$BDDAT
;CLEAR DONT CARE BITS
#HOL!PGH!DPR!DRY,SGDDAT

$GDDAT,$TMP1
S$TMP1
$8DDAT ,$TMPO
$TMP1, $TMPO

$GDDAT , $TMPO

EXPECTED STATUS

;USE GOOD DATA AS A MASK
;COMPLEMENT THE EXPECTED STATUS
:SAVE THE ACTUAL STATUS
;CLEAR UNWANTED BITS

255

JARE

THE EXPECTED STATUS BITS SET

;BR IF THEY ARE

REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK
PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA.PINBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

RMEC2(RO),-(SP) :STORE REGISTER RMEC2. PORT A, FOR CHECK
RMEC1(RO) ,-(SP) ;STORE REGISTER RMEC1, PORT A, FOR CHE(CK
RMSN(RO) ,=(SP)" :STORE REGISTER RMSN, PORT A, FOR (HECK
RMDC(RQ) ,~(SP)

RMOF
(RO) ,~(SP)

;STORE REGISTER RMDC, PORT A,

;STORE REGISTER RMOf,

FOR CHECK

PORT A FOR CHECK

RMER2
(RO) ,-(SP) ;STORE REGISTER RMER2, PORT A, FOR CHECK
RMLA(RQ) ,~(SP)
RMDT(RO) ,-(SP)
RMDA(RO) ,-(SP)
RMMR1(R0Q) ,~(SP)
RMER1(R0O) ,~(SP)
TO TIMEOUT

;STORE
:STORE
;STORE
;STORE
;STORE

RMLA, PORT A, FOR CHECK
RMDT. PORT A. FOR CHECK
RMDA, PORT A, FOR CHE(CK
RMMR1, PORT A, FOR CHE(K
RMER1, PORT A, FOR CHECK

ZRMRBO RMOS/3/2 DU POR TST 1
T3
PORT 'B’ SEIZE/TIMEOUT

006722
006726
006730
006734
006736
006740

006744

006752
006760
006764
006766
006772

005760
001006
005737
001372
104036

000137
012737
013737
004537
001270
012637
012637

MACRO v04.00

TEST

000012

1%:

001256
066324

TST
BNE
TST
BNE

4
10-9

¢$:

;WAIT

WATCH

sCHECK WATCH

MoV

TIME,TIMEB

.WORD
MoV
MOV

FOR

THE

DRIVE

TO TIMEOUT

;BR WHEN TIMEOUT OCCURS

JMP

MOV
JSR

001272
001274

RMDS (R0O)

1%
36
43

EMT

177776
001270

K
18:06:25 PAGE

SEQ

001260

007344
000340

4-APR-81

;BR IF NOT ZERO

H<7%32,>,dHPS
R5,TOLER

TIMEB
(SP)+, TIMEBP
(SP)+,TIMEBM

;BYPASS TIMEOUT TIME CHECK

;SET PRIORITY TO 7 TO STOP CLOCK
;SAVE THE ELAPSED TIME FOR PORT B
sCALCULATE THE TOLFRANC(E
;TIMEOUT VALUE FOR PORT B

;+25% TOLERANCE
;=25% TOLERANCE

JVERIFY THAT THE TIMEOUT ONE~SHOT IS AT LEAST 500 MS
006776
007004
007006

023727
103001
104055

001256

000764

CMP
BHIS
EMT

1IME,4#500.
3$
55

;WAS MEASURED TIME AT LEAST 500 MS?

JBRIF IT

WAS

JVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT
007010

012737

000240

177776

3%:

MOV

H<5%32.> ,a4PS

;VERIFY THAT THE DRIVE
007016
007022
007030
07034
007042
007050
007056
007064
007072
007100
007106
007114
007122
007130
007136

007144
007146
007152
007154
007156
007162
007170
007176
007204
007210
007212
007220
007226

007234

007240
007242
007250

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037
042737
013737
042737
023737
001006
005737
001037
104046
000137

013737
013737

113760
005737
001414

013737
013737
113760

005737
001004

012737
104022

001254
000012
001122
011600
001224
000012
024001
001170
102100
001226
000012
024001
001172
100700
001164

CLR
MOV
ADD
MOV

001122
1124

00010
001170
001170
001164
001164
000010
00117¢
001172
001166
001166
001166

007342
001170
001226
001226
001164

MOV

$TMP2, STMPO

BIC

BIC
movse

001224
001172
001224
001166

001240
001126
000010

177777

001254

MOV

STMP3, STMP1

;CLEAR DONT CARES
;COPY IT INTO 'STMPO’
:CLEAR PORT DEPENDENT BITS FROM THE COPY
:SELECT PORT B.

;:GET THE DR]IVE STATUS REGISTER FROM PORT B.

#PIP!WRL iOM,$TMPS

BIC

#ATATVY, STMP1

BNE

66$

cmp

<CLEAR DONT CARES
;COPY IT INTO *‘STMPY'
;CLEAR PORT DEPENDENT BITS FROM THE COPY

$TMPO, $TMP1

:ég }?ENS}ATUS REGISTER THE SAME FROM B0OTH PORTS °

$TMPO

;REGISTERS ARE THE SAME:

ARE

THEY ZERO ?

BNE

68s

MOV
MovB
TST

;BYPASS THE REST OF THE CHECKS
sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTB,PTNBR
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB ,RMCS2(R(0) ;SELECT PORT B.
$TMPQ
;SEE IF STATUS EQ G FROM PORT A.
673
:BR IF ZERO
PORTA,PTNBR
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

EMT
JMP
MOV

BEQ

MoV
MOV

MOVR

67%:

#ATATVV,STMPO

PORTB,RMCS2(R0)

RMDS (RO) . $TMP3

BIC

6€$%:

#PIP!WRL IOM,STMP?

MOV

TST

001126
001240
000010

IN NEUTRAL

RELERR
;CLEAR THE °RELEASE ERROR ' INDICATOR
ARMDS
, $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEQUT
RO, SBDADR
;ADD THE I[/0 BASE ADDRESS
#MOL | PGM'DPR
! DRY , SGDDAT
; COMPARISON CONSTANT
PORTA,RMCS2(R0) :SELECT PORT A.
RMDS (RO) , $TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A,

MovB

001164

IS STILL

JRESTORE PRIORITY 10 5

TST
BNE
MOV
EMT

46
70%
$TMP2, $BDDAT

$TMP3, $BDDAT
PORTA,RMCS2(RO)
$TMP1
68$
#-1,RELERR

;BR IF NOT

;'BAD DATA® FOR ERROR TYPE OUT
JSELECT PORT A,

;SEE

IF STATUS EQ ZERO FROM PORT B.

JBR_IF NOT
JSET 'RELEASE ERROR'

IND!CATOR

00LS

MNPy

——

RMRBO ]MOS5/3/2 DU PUR TST
PCRT

*B*'

007252
007260
007266
007274
007302
007304
007306
007314
007322
007330
007336
007340
007342

SEIZE/TIMEOUT

013737
013737
042737
023737
001401
104007
013737
013737
042737
023737
001401
104007
000240

MACRO v04.00

TEST

4-APR-B1

L
18:06:¢5 PAGE

4
10-10
St@ 0UsS0

001170
(012264
100100
001124

001126
001240
001126
001126

68$:

001172
001226
100100
001126

001126
001240
001126
001126

69%:

70%:

MOV
MOV
BIC
(MP
BEQ
EMT
MOV
MOV
BI(C
CMP
BEQ
EMT
NOP

$TMP2, SBDDAT
PORTA,PTNBR
RATA.VV,$BDDAT
$GDDAT,$BDDAT
698
7
$TMP3, $BDDAT
PORTB,PTNBR
#ATA!VV,$BDDAT
$GUDAT,$8DCAT
708
7

;LOOK FOR BIT FAILURCS WHEN RMDS READ
; CHANGE PORT NUMBER
;DON'T CHECK ATTN BIT OR vv BIT
;ALL BJITS OK ?
;BR IF OK FROM PORT A.

JCHECK RMDS FOR BIT FAILURES = fROM PORT B,
; CHANGE PORT NUMBER
;DON'T CHECK ATTN BIT NR vv BIT
;SEE IF READ OK FROM PORT B.
;BR IF OK

sCHECK THE REGISTERS STORED THROUGH PORT A.
sTHE REGISTERS ARE STORED ON THE STACK.
007344
007352
C07356
007364
007370
007372
007374
007400
0076406
007412
007414
007416
007422

007430

007434
007436
007440
007444
007452
007456
007460
007462
007466
007476
07500
207502
007504
007510
007516
007522
007524
007526
007532
007540
007544
007546

007550
007554
007562
007566

013737
010037
062737
012637
001401
104006
01C037
062737
012637
0016407
104006
010037
062737

012637

001401
104006
010037
062737
012637
001401
104006
010037
062737
012637
001401
104006
010037
062737
012637
001401
104006
010037
062737
012637
001401
104006

010037
062737
012637
001401

001224
001122
000014
001126
001122
000026
001126
CO1122
000006

001126

001240
001122

001122

001122
000026
001126

001122

001122
000020
001126

001122

(000042

001126

001122

001122
000032
001126

001122

001122
000034
001126

001122

4$:

ALL REGISTERS SHOULD BE ZERO.

MOV
MOV
ADD
MoV
BEQ
EMT
MOV
ADD
MOV
BEQ
EMT
MOV
ADD

PORTA ,PTNBR
RO, $BDADR
A#RMER1 ,$BDADR
(SP)+,$BDDAT
.+
6
RO, $BDADR
#RMMR1 ,$BDADR
(SP)+,$BDDAT
Lt
6
RO, $BDADR
#RMDA , $BDADR

;CHANGE ‘PORT NUMBER' TO THE OPPUSITE PORT
;BASE ADDRESS FOR ‘REGISTER RMER1
;ADDRESS OF RMER1 FOR TYPEOUT
sCHECK THE STORED CONTENTS OF RMER1
;CONTENTS ZERO ?

8EQ
EMT
MOV
ADD
MoV
8EQ
EMT
MoV
ADD
MOV
BEQ
EMT
MOV
ADD
MOV
8EQ
EMT
MOV
ADD
MOV
BEQ
EMT

R
6
RO, $BDADR
#RMDT ,$BDADR
(SP) +,$BDDAT
.+4
6
RO, $BDADR
#RMLA, $BDADR
(SP)+,$BDDAT
.44
6
RO, $BDADR
WRMER2,$8DADR
(SP) + ,$BDDAT
.+
6
RO, $BDADR
#RMOF , $B8DADR
(SP) +,$BDDAT
.44
6

(SP)+,$BDDAT

JCHECK THE STORED CONTENTS OF RMDA

MOV

MOV
ADD
MoV
BEQ

RO, SBDADR
#RMDC , $BDADR
(SP)+,$BDDAT
.th

;BASE ADDRESS FOR REGISTER RMMR1
;ADDRESS OF RMMR1 FOR TYPEOUT
sCHECK THE STORED CONTENTS OF RMMR1
; CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMDA
;ADDRESS OF RMDA FOR TYPEOUT
s CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMDT
;ADDRESS OF RMDT FOR TYPEOQUT
sCHECK THE STORED CONTENTS OF RMDT
s CONTENTS ZERQD ?
;BASE ADDRESS FOR REGISTER RMLA
;ADDRESS OF RMLA FOR TYPEOQU!
sCHECK THE STORED CONTENTS OF RMLA
s CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMERZ2
;ADDRESS OF RMER2 FOR TYPEQUI

sCHECK THE STORED CONTENTS OF RMER2
s CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMOF
;ADDRESS OF RMOF FOR TYPEOQUT
;CHECK THE STORED CONTENTS OF RMOF
s CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMDC
;ADDRESS OF RMDC FOR TYPEQUT
sCHECK THE STORED CONTENTS OF RMDC
s CONTENTS Z2ERO ?

Z RMRBO RMOS/3/2 DU POR TST 1
PORT 'B8' SEIZE/TIMEOQUT
12

174

007570
007572
007576
007604
007610
007612
007614
007620
007626
007632
007634
G07636
007642
007650
007654
007656
007669

104006

MACRO v04.00

TEST

001122
000030
001126

001122

010037
062737
012637
001401

001122
000044
001126

001122

010037
062737
012637
001401

001122
000046
001126

104006

SEaQ 0051

EMT

010037
062727
012637
001401
104006

4
M
18:06:25 PAGE 10-11

&-APR-81

6
RO, $BDADR

MOV
ADD
MOV

BEQ
EMT

MOV
ADD
MOV
BEQ

EMT

104006
000004

RO, $8DADR

;BASE ADDRESS FOR REGISTER RMEC1

RO, SBDADR

;BASE ADDRESS FOR REGISTER RME(C?2

RMSN

;ADDRESS OF RMEC1 FOR TYPEOUT
;CHECK THE STORED CONTFNTS OF RMEC1
;CONTENTS ZERO ?

ARMECZ,$8BDADR
(SP) + ,$BDDAT
6*4

BEQ
EMT

5%:

sADDRESS OF RMSN FOR TYPEOUT
;CHECK THE STORED CONTENTS OF
;CONTENTS ZERO ?

#RMECT,$BDADR
(SP)+,$BDDAT
604

MOV
ADD
MOV

G0112¢2

;BASE ADDRESS FOR REGISTER RMSN

#RMSN, $BDADR
(SP)+,$BDDAT
é“

;ADDRESS OF RMEC2 FOR TYPEOUT
;CHECK THE STORED CONTENTS OF RMt(2
;CONTENTS ZERO ?

SCOPE

;LOOP ?

188
189

::'!Q'tttt"ttt"i.tt"""t"l.t.".fittttl'tt!l"'tt"t.t.ttt't'

J*TEST 4

PORT

‘'A'

SEIZE/RELEASE

*TEST

THE OPERATION OF

THE RELEASE

‘e

COMMAND,

SET VOLUME VALID AND CLEAR ANY ERROR

ISSUE A RELEASE COMMAND THROUGH PORT'A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE

THE

DRIVE

THROUGH PORT

007720
007726
007732

005737
001406

001300

000137
012737
012737
012737

003074

112737
012706
012737

000004
001100
000012

100002

177777

007720
007720

AALEA

TST4:

001300
001106
001110

001102

'A‘'

BY WRITING 0°'S

INTO AMDS.

DR]VE.

007662
007662
007666
007670
007672
007676
007704
007712
C07720

SEIZED

SEIZE

DRIVE

TEST

1%:

2s:
TESTS:

001176

ARl

IST
8EQ
8PL
JMP

MOV

MOV
MOVB
MOV
MOV

)il

222122223

22222322222

KYBCTL

;PERFORMING ONLY SINGLE

1%
EXEC

;BR IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER

#-1,KYBCTL
NTEST4,SLPADR
#TEST4 ,SLPERR

#5,8TSTANM

:BR IF NOT

TEST ?

sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

;MOVE #4 TO TEST NUMBER

#STACK,SP
#10.,8TIMES

;LOAD THE STACK POINTER
:;D0 0. ITERATIONS

TIME

sCLEAR THE ELAPSED TIME

;START THE TIMER
007740
007744

005037
012737

001256

003720

CLR
MOV

007260

#2000. ,WAT(CH

;SET WATCH TO 2000. MS

;SEIZE THE DRIVE AND SET VOLUME VALID
;SEIZE
007752

113760

001224

000010

THE DRIVE THROUGH PORT A
MOvVB

PORTA,RMCS2(R0O)

.SELECT PORT A

COUNTER

rZRMRBO RMOS/3/¢ DU POR TST
PORT

'A'

007760
007766
007772
010000
010006
010012
010020
010026
010032
010040

SEIZE/RELEASE

013737

005060
013737
012760
005037
016037
012737
060037
012737
013737
042737

023737

001414
013737
042737
053737
104013

005137
000240
012760

001224
000012
001226
000021
001250
000012
000012
00112
000100
001126

MACRO v04.00

TEST

001242

001126
000100
001174

001174
001174
001124

001250
0G0040

(LR
MOV

(0]

CLR

001126
001122

001124

177677

MOV

001244
000000

001124
001164
001164
001164

000010

4-APR-81

MOV
MOV
ADD
MOV
MOV

BI(
CMP
BEQ

MOV
BIC
BIS

66%:

EMT
COM

NOP
MoV

&
N
18:06:25 PAGE 10-12
PORTA,CEIZPT

;STORE

RMDS (R0O)

SEIZING PORT'S ADDRESS

JWRITF RMDS

PORTB,0PPRT
#21,RMCS1(RO)
CKERR

;'OPPOSITE' PORT ADDRESS

;SET VOLUME VALID
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS
(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE

RO, $BDADR

#VV,SGDDAT

$8DDAT, $TMPO

:ADD RH/RM BASE ADDRESS

;WHAT REGISTER SHOULD BE

#*CVV,8TMPO

$GDDAT , $TMPO
66$
$BDDAT , $TMP4

;MOVE REGISTER CONTENTS TO ‘'$TMPO’

;SAVE

AVV,$TMPL

?gMP4,SGDDAT
CKERR

SPECIFJED BITS

;COMPARE THE BITS
;BR IF 0K
;COPY 'BAD DATA'

;CLEAR THE MASKED BITS

;'OR' WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR

#CLR ,RMCS2(R0)

;CLEAR DRIVE

JRELEASE THE DRIVE FROM PORT A
010124
010132
010140

113760

013737
012760

001224
001224
000013

000010
001240
000000

MOVB
MOV
MOV

PORTA ,RMCS2(R0)
;SELECT PORT A
POR'A,PTNBR
;MOV E PORT ADDRESS TO LOCATION FOR
#13,RMCS1(RO)
s ISSUE RELEASE THROUGH PORT A

s VERIFY THAT THE DRIVE
010146
010152
010160
010164
010172
010200
010206
010214
010222
010230
010236
010244
C10252
010260
010266
010274

010276
010302
010304
010306
010312
010320
010326
010334
010340
010342
010350
010356

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760

016037
042737
013737
042737
023737
001006
005737
001037
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760

001254
000012
001122
011600
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100
001164

CLR
MOV

001122
001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

001164
010472
001170
001226
001226
001164

001126
001240
000010

001224
001172
001224

001240
001126
000010

68%:

ADD
MOV
movs
MOV
BIC
MOV
8lC
mMovse
MoV
BIC
MOV
BIC
v
BNE
TST
BNE
EMT
JMP
MOV

MoV
MOVB
TST

BEQ

MoV
MOV
MOvB

IS STILL

RELERR
ARMDS
, SBDADR

RO, SBDADR

#MGL | PGM! DPR ! DRY

TYPEOUT

IN NEUTRAL

sCLEAR THE 'RELEASE ERROR * INDICATOR
;FORM THE ADDRESS OF FMDS FOR TYPEOUT
;ADD THE I1/0 BASE ADD <ESS

$GDDAT
; COMPARISON CONSTANT
sSELECT PORT A.
:GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIPWRL TOM, STMP?
;CLEAR DONT CARES
S$TMP2, $TMPO
;COPY IT INTO 'STMPO'
#ATATVV, STMPO
:CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2 (RQ) sSELECT PORT B.
RMDS (RO) . $TMP3
;GET THE DRIVE STATUS REGISTER FROM PORT B.
#PIPIWRL
OM, $TMP3
;CLEAR DONT CARES
PORTA,RMCS2 (R0)
RMDS (RO) . STMP2

$STMP3, S TMP1

#ATA!VV.STMP1

. COPY IT INTO 'STMPT?

;CLEAR PORT DEPENDENT BITS FROM THE

COPY

$TMPO, $TMP1
68%
$TMPO
ng

;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

72%
$TMP2,$BDDAT

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

PORTB,RM(CS2(R0O)
$TMPO
69%
PORTA,PTNBR

;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A,
:BR IF ZEROQ
JSEIZING PORT IF TEST SHOWS DRIVE NOT

PORTA,RM(S2(R0)

JSELECT PORT A.

PORTB,PTNBR

$TMP3,$BDDAT

JSEIZING PORT

TEST

SHOWS DRIVE

; 'BAD DATA' FOR ERROR TYPE QUT

NOT

[N NEUTRAL

IN NFUTRAL

CZRMRBO RMOS5/3/2 DU POR

PORT

‘A’

010364
010370
010372
010400
010402
010410
010416
010424
010432
010434
010436
010444
010452
010460
010466
010470
010472
010474
010500
616502
010506
010514
010522
010526
010534
010542
010546
010552
010560
010566
010574
010576
010604
010612
010620
010622
010626
010630
010636
010644
010650
10656
010664
010670
010674
010702
010710
010716
010720
010726

010734
010742
010744
010750
010752

TST

SEIZE/RELEASE

MACRO Vv04.00
TEST

005737
001004
012737

001166
177777

001254

69%:

013737
013737
042737

001170
001224

001126
001240
001126
001126

70%:

104022

023737
001401
104007

013737
013737

042737
023737
001401

100100

001124
001172

001226
100100

001124

001126
001240
601126
001126

71%:

005737
001402
000137
113760

013737
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
1046017

005137
000240

113760
013737
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
106017
005137
000240
000137

72%:

001254
010756
001224
001224
001250
000012
000012
001122
001124
001126
077777
001124
001126

100000

001174

001126
100000

001174

001250
011010

MOV
MOV

B8IC
CMP
BEQ
£EM7
MOV

8lC
CMP
BEQ
EMT
NOP
TST

001126
001122

MOV
ADD

CLR

001164
001164

MOV
BIC
(mpP

001174
001174
001124

MOV

001164

001250
001226
001226
001250
000012
000012
001122
001124
001126
077777
001124

TST
BNE
MOV
EMT

BEQ
JMP
MOVB
MOV
CLR
MOv

000010
001240

BEQ

73%:

BIC
BIS
EMT
com
NOP
MOVR
MOV

(LR
MOV

001126
001122

MOV
ADD
CLR
MOV
BIC
(MP

001164
001164
001164

BEQ
MOV
BIC
B8!S
EMT

001174
001174
001124
75%:

18:06:25 PAGE

10-13

SEQ 0053

MOV

104007

000240

4-APR-B1

oM
NOP
JMP

$TMPT
70%

;SEE IF STATUS EQ ZERC FROM PORT B.
;BR IF NOT
;SET "RELEASE ERROR® INDJCATOR

#-1,RELERR

$TMP2
, SBDDAT

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER

PORTA _PTNBR
#AT
UV, A.
$BDDAT

sDON'T CHECK ATTIN BIT OR vv BIT
;ALL BITS OK ?

S$GDDAT, $BDDAT
;15

;BR

$TMP3 SBDDAT

sCHECK RMDS FOR BIT FAILURES - FROM PORT B.

PORTB,PTNBR

[F OK FROM PORT A,

s (HANGE PORT NUMBER
JDON'T CHECK ATTN BIT OR Vv BIT

#ATA'VV,$BDDAT

$GDDAT ,$BDDAT
;23

;SEE IF READ OK FROM PORT B.
;BR IF 0K

RELERR

;DID DRIVE

.+6
1%

RETURN ~0 NEUTRAL

:BR IF [N NEUTRAL
:GN WAIT FOR DRIVE TO TIMEOUT

PORTA ,RMCS2(R0O>
;SELFCT PORT A
PORTA _PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
CKERR
;CLEAR THE °*CHECK ERROR' INDICATOR
RMDS (RQ) ,$8DDAT
;GET CONTENTS OF RMDS

#RMDS _$BDADR

;FCRM REGISTER ADDRFSS OF

#*CATA,$TMPO

;SAVE

RO,$8DADR
$GDDAT
$BDDAT,$TMPO

SGDDAT,$TMPQ
73%

ERROR MESSAGE

;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTC TO °*S$TMPQ’
SPECIFIED BITS

; COMPARE THE BITS
JBR IF 0K

$ADDAT, $TMP4L

;COPY ‘BAD DATA'®

?;MPL.SGDDAT

;'OR' WITH GOOD CATA FOR TYPEOUT

(KERR

;SET

#ATA, S TMPL

;CLEAR THE MASKED BITS

THE REGISTER COMPARE ERROR INDICATOR

PORTB ,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION fFOR TYPEOUT
(KERR
JCLEAR THE °*CHECK ERROR' INDICATOR

RMDS(RO) ,$8BDDAT

;GET CONTENTS OF RMDS

ARMDS ,$BDADR
RO, $8DADR
$GDDAT

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS
;JWHAT REGISTER SHOULD BE

#~CATA,$TMPQ

.SAVE SPECIFIED BITS

$BDDAT ,$TMPO

S$GDDAT ,$TMPO

sMOVE REGISTER CONTENTS TO '$TMPC®

. COMPARE THE BITS

75%

;BR IF OK

#ATA,$TMP,
#;MP4,$GDDAT

;JCLEAR THE MASKED BITS
;'OR* WITH GOOD DATA FOR TYPEQUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

;GO CHECK FOR LOOP ON ERROR

$BDDAT ., $TMPS

;COPY 'BAD DATA'

;If RELEASE COMMAND DIDMN'T RELEASE THF DRIVE, WAIT FOR THE PORT TIMEGUT

ZRMRBO RMOS/3/2 DU POR TST 1
SEIZE/RELEASE
pORT

MACRO v04.00
TESY

000010
001240

1%:

PORTB,PTNBR

RMDS (RO)

'TEST

THE

005737
001406
100002
000137
012737
012737
012737
112737

012706
012737

001300
003074
177777
011050
11050

000005
001100
000012

001300
001106
001110

001102

001176

;LOOP ?
RN A AN R NN N NARRARNCANNANNANANTA
AR
NSRANN
PN

‘B'

TH € DRIVE

THE RELEASE

TEST

COMMAND,

DRIVE

SEIZED

SEIZE

OPERA TION OF

SEIZE/RELEASE

SET VOLUME VALID AND CLEAR ANY ERROR

TYPEOUT

DR!VE

ISSUE A RELEASE COMMAND THROUGH PORT °‘B°'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE

2
»

1O RELEASE

;BR _WHEN DRIVE RELEASED

PORT

TO LCCATION FOR

JCHECK THE WAT(H
;BR IF NOT ZERO

THROUGH PORT

'B’' BY WRITING 0'S INTO RMDS.

DRIVE.

222223222222
] AR

—4v Qe 8 8,8, 8, 0,08, 0,

*TEST

PORT ADDRESS

;WAIT FOR TIMEOUT

SCOPE

;SELECT PORT B

;MOVE

WATCH
1%

CERNRANNRNRAR
N FANEN

TS:

1$:

2s:

TESTS:

TST

NN AR AN

KYBCTL

;PERFORMING ONLY SINGLE TEST

18
EXEC

;BR IF JUST ENTERED TEST
JRETURN £ GET NEXT TEST MUMBER

8EQ
8PL
JMP
MOV

MOV

MOVR
MOV
MOV

:BR IF NOT

#=-1,KYBCTL

;SET SINGLE TEST INDICATOR

#5,8TSTNM

JMOVE #5 TO TEST NUMBER

#TESTS,SLPADR
NTESTS,SLPERR

MOV

ANANRNAN A AR AN NN NN P RAAN GRS RE TS Y

;SETUP SCOPE LOOP ADDRESS
;SETUP ERRCR LOOP ADDRESS

NSTACK,SP
#10.,3TIMES

;LOAD THE STACK POINTER
::DO 10. ITERATIONS

TIME
#2000. ,WATCH

;CLEAR THE ELAPSED TIME
;SET WATCH TO 2000. mS

:START THE TIMER
011070
011074

005037
012737

001256
003720

001260

(LR
MOV

COUNTER

;SEIZE THE DRIVE AND SET VOLUME VALID

b
b

b —md w—d
ol el
—d

e wmd wod ek ccd

;SEiZE THE DRIVE THROUGH PORT B
[elelelolelele]

240
26l

PORTB,RM(S2(R0O)

B8NE
TST
BNE
EMT

2%:

011012
011012
011016
011020
011022
011026
011034
011042
011050
311050
011056
011062

10-14

DRIVE

THE

MOVB
MOV
TST

001260

226
238
230

18:06:25 PAGE

SEQ (05«

:TO RELEASE

001226
001226
0006012

4-APR-B1

113760

013737
005060
013737
012760
005037
016037

001226
001226
000012

001224
000021
001250
000012

000010
001242

MOvB

001244
000000

MoV
MoV
CLR
Mov

001126

MOV

CLR

PORTB,RMCS2(RO) ;SELECT PORT B
PORTB,SE1ZPT
;STORF SEIZING PORT'S ADDRESS
RMDS (RO)
JWRITE RMDS

PORTA,OPPRT

#21 ,RMCS1{RO)
CKERR
RMDS (R0) ,$BDDAT

;'OPPOSITE'

PORT ADDRESS

sSET VOLUME VALID
;CLEAR THE 'CHECK ERROR" INDICATOR
;GET CONTENTS OF RMDS

JRMRBO RMOS5/3/2 DU POR TST 1
TS
PORT °'B' SEIZE/RELEASE

0111506
011156
011162
011170
011176
0112046
011212
C11216
011222
011230
011236
011240
011244
011246

0127%7
060037
012737
013737
042737
023737
001414
013737
042737
053737
104013
005137
000240
012760

000012
(001122
000100
001126
177677
001124
001126
000100
001174

MACRO v04.00
TEST

MOV
ADD
Mov
MOV
BIC
(MP
BEQ
MOV
BIC
BIS
EMT
oM
NOP
MOV

001124
001164
001764
001164
001174
001174
001124

000010

669%:
JRELEASE

011254
011262
11270

113760
013737
012760

001226
001226
000013

000010
001240
000000

18:06:25 PAGE

10~15
SEQ 0055

001122

001250
000040

&-APR-81

#RMDS ,$BDADR
;FORM REGISTER ADDRESS CF ERROR MESSAGE
RO, $BNDADR
;ADD RH/RM BASE ADDRESS
#VV,SGDDAT
;WHAT REGISTER SHOULD BE
$BDDAT,$TMPO
;MOVE REGISTER CONTENTS TO *$TMPQ’
#*(VV,$TMPO
;SAVE SPECIFIED BITS
$GDDAT,$TMPO
;COMPARE THE BITS
663
;BR IF 0K
$BDDAT ,$TMP4
;COPY 'BAD DATA’
#VV,$TMPS
;CLEAR THE MASKED BITS
$TMP4 , SGDDA!
;'OR' WITH GOOD CATA FOR TYPEOUT
13
CKERR
;SET THE REGISTER COMPARE ERROR INDI(ATOR
#CLR,RM(SZ2(RO)

;CLEAR DRIVE

THE DRIVE FROM PORT B
MOovRe
MOV
MOV

PORTB,RMCS2(R0O)
SELECT PORT 3
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCS1(RO)
;ISSUE RELEASE THROUGH POR! B

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL
011276
011302
011310
011314
011322
01133G

005037
012737
060037
012737
113760
016037

001254
000012
001122
011600
001224
000012

001124
000010
001170

011344
011352
011360
011366
011374
011402
011410
0116416
011424
011426
011432
C11434
011436
011642
011450
011456
011464
011470
011472
011500
011506
011514
011520

013737
042737
113760
016037
042737
013737
042737
023737
001006
005737
001037
104046
000137
013737
013737
115760
005737
001414
013737
013737
113760
005737
001004

001170
100100
001226
000012
024001
001172
100100
001164

001164
001164
000010
001172
001172
001166
001166
001166

011336

011522
011530
011532
011540

042737

012737
104022
013737
013737

024001

001122

001170

001224

001126
001240
000010

68$:

001240

001172

(001126

177777

001254

69%:

001170
001224

001126
001240

70%:

001224
001166

RELERR
;CLEAR THE 'RELEASE ERROR ° INDICATOR
#RMDS , SBDADR
SFORM THE ADDRESS OF RMD5 FOR TYPEOUT
RO, $8DADR
;ADD THE 1/0 BASE ADDRESS
#MOL !PGM!DPR!DRY ,SGDDAT
; COMPARISON CONSTANT
PORTA ,RMCS2(R0) ;SELECT PORT A,
RMDS(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.

MOV
8iC
Movs
MOV
BIC
MOV
BIC
P
BNE
TST
BNE
EMY
JMP
MOV
MOV
MOVB
TST
BEQ
MOV
MOV
movs
TST
BNE

STMP2,$TMPO
sCOPY IT INTO °‘STMPO’
NATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE (OPY
PORTB,RMCS2(R0) SELECT PORT B.
RMDS (RO) ,$TMP3
;GET THE DRIVE STATUS REGISTER FROM PORT B.
#PIP!WRL !OM,$TMPZ
;CLEAR DONT CARES
STMP3,STMP1
;COPY IT INTO 'STMPT’
FATA!IVV,$TMPT
;(LEAR PORT DEPENDENT BITS FROM THE (OPY
$TMPO,$TMPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
683
;BR IF NOT
$TMPO
JREGISTERS ARE [HE SAME: ARE THEY ZERO ?
708
:BR IF NOT
46
72%
;BYPASS THE REST OF THE CHECKS
$TMP2,SBDDAT
sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTB,PTNBR
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEJTRAL
PORTB ,RMCS2(RO) ;SELECT PORT B.
$TMPO
sSEE IF STATUS EQ O +ROM FORT A.
698
;BR IF Z2ERO
PORTA,PTNBR
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
$TMP3, $BDDAT
;'BAD DATA' FOR ERROR TYPE OUT
PORTA ,RMCS2(R0O) ;SELECT PORT A.
$TMP1
;SEE IF STATUS EQ ZERO FROM PORT B.
703
sBR _IF NOT

BIC

001164
011622
V01170
001226
001226
001164

CLR
MOV
ADD
MOV
MOVB
MOV

000010

MOV
EMT
MoV
Mov

#PIP!WRL | OM,$TMP?

#-1,RELERR
22
$TMF2,$BODAT
PORTA,PTNBR

JSET

;CLEAR DONT CARES

'RELEASE ERROR'

INDICATOR

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER

“JRMRBO RMO5/3/2 DU POR TST

PORY

°'B'

SEIZE/RELEASE

011546
011554
011562
011564
011566
011576

042737
023737
001401
*040C7
013737
013737

011610
011616
011620
011622
011626
011630
017632
011636
011644
Q11632

023737
0014601
104007
000240
005737
001402
000137
113760
013737

011602

011656

011664
11672
011676

011702
011710

011716
011724
011726

011734

011742
011750
011752
011756
011760
011766
011774
012000

012006
012014
012020

012024
012032
012040
12046
012050
012056
012064
012072
012074
012100
012102

042737

016037

012737
060037
005037

013737
042737
023737
001414
013737

042737

053737
104017
005137
000240
113760
013737
005037
016037

012737
060037
005037

013737
042737
023737
001414
013737
042737
053737
104017
005137
000240
000137

MACRO v04.00

TEST

100100
(01126

001126
001126

001172
001226

001126
001240

100100

001124

012106
001226
001226

000012

000012
0C1122
001124

001126
077777
001124

001126

100000

001174

18:06:25 PAGE

10-16
SEQ 0056

71%:

001126

8IC
cMP
BEQ
EMT
MoV
MOV

8I(

0071126

72%:

001254

4-APR-81

000010
001240

(MP
BEQ
EMT
NOP
TST
BEQ
JMP
MOvVR
Mov
CLR

NATA.VV,$BDDAT
$GDDAT,$BDDAT
71
7
$TMP3,$BDDAT
PORTB,PTNBR

;DON'T (HECK ATTN BIT DR vv BIT
;ALL BITS 0K 2
;BR IF OK FROM PORT A.
;CHECK RMDS FOR BIT FAILURES - FRUM PORT 8.
s CHANGE PORT NUMBER

N#ATA!VV,8BDDAT

:DON'T

$GDDAT,$BDDAT
72%
7

RELERR
;DID DRIVE RETURN TO NEUTRAL ?
. +6
;BR IF IN NEUTRAL
1%
;GO WAIT FOR DRIVE TO TIMEOUT
PORTB,RMC32(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR

Q01

MoV

RMDS
(RO) ,$8DDAT

001164
001164
001164

MOV
BI(
CMP
BEQ
MOV

$8DDAT ,$TMPY
#*CATA $TMPO
$GDDAT , $TMPO
73%
$BDDAT,$TMP4

001122

MOV
ADD
CLR

001174

001176

BIC

001124

001250

001224
001224
001250
000012
000012
001122
001124
001126
077777
001126

001164
001164
001164

001126
100000
001174

001174
001174
001124

000010
001240

73%:

001126
001122

001250

MOV
ADD
CLR

75%:

(12140

BIS
EMT
(oM
NOP
MovB
MOV
CLR
MOV

MOV
8lC
cMP
BEQ
MOV
BIC
BIS
EMT
oM
NOP
JMP

#RMDS ,$BDADR
RO,$BDADR
$GDDAT

HATA, $TMPS

$TMP4 , SGDDAT
17
CKERR
.

;GET CONTENTS OF RMDS

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RM/RM BASE ADDRESS
sWHAT REGISTER SHOULD BE
.

:MOVE REGISTER CONTENTS TO
.SAVE SPECIFIED B]TS
;COMPARE THE BITS
;BR IF OK
;COPY 'BAD DATA'

113760
013737
005760

001224
001224
000012

000010
001240

1%:

MOVB
MOV
TST

'$TMPO°

;CLEAR THE MASKED BITS

;'OR' WITH GOOD DATA FCR TYPEQUT

sSET THE REGISTER COMPARE ERROR INDICATOR

PORTA ,RM(S2(R0O)
;SELECT PORT A
PORTA ,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
CKERR
sCLEAR THE °‘CHECK ERROR' INDICATOR
RMDS(RQO) ,$8BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
JWHAT REGISTER SHOULD BE
$BDDAT , $TMPO
;MOVE REGISTER CONTENTS TO 'S$TMPG®
¥~CATA STMPQ
;SAVE SPECIFIED BITS
$GDDAT ,$TMPO
s COMPARE THE BITS
75%
;BRIF OK
$BDDAT,$TMP4
;COPY °'BAD DATA’
NHATA, $TMP4
;CLEAR THE MASKED BITS
$TMPL, SGDDAT
;'OR' WITH GOOD DATA FOR TYPEOUT
17
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR

;GO CHECK FOR LOOP ON ERROR

;IF RELEASE COMMAND DIDN'T RELEASE
;TO RELEASE THE DRIVE
012106
012106
012114
012122

(HECK ATIN BIT OR vv BIT

;SEE |F READ OK FROM PORT 8.
;BR IF Ok

THE DRIVE, WAIT FOR THE PORT ~IMEQUT

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS (RO)
JWAIT FOR TIMEQUT TO RELEASE DRIVE

Maley

RMRBO RMOS/3/2 DU POR
pORT

!B'

TST 1
SEIZE/RELEASE

001004
005737
001364

MACRC v04.00
TEST

BNE

106036

EM®
SCUPE

28:

¢55
256

18:06:¢5 PAGE

10-17

SEQ 0057

001¢60

000004

246

4-APR-81

‘:BR WHEN DRIVE RELEASED

‘BR IF NOT 2ERO

WATCH

“CHECK

THE

WATCH

;LOOP ?

.'".QItI!.'.t't'.'.'."""t"..'.t"."'.'.tttt"t.t"'t'..'t"

TeeST 6

PORT

]

$=TEST OPERATION OF

'A' NEUTRAL/RELEASE
RELEASE

- %

i*
v

COMMAND,

TEST

DRIVE

IN NEUTRAL

ISSUE A RELEASE COMMAND THROUGH PORT 'A° WITH THE DRIVE
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL.

:'.'""t"Q'tl’l.'....""""'.Q"Q....".I'!..’Q.ttt'."tQ"t"tt

005737

001606
100002
000137
012737
012737

012737
112737

012706
012737
113760

1516

001300
003074

177777

012200
012200

KYBCTL

;PERFORMING ONLY SINGLF

18:

IMP
MOV

EXEC
#-1.KYBCTL

SRETURN & GET NEXT TEST NUMBER
SSET SINGLE TEST INDICATOR

TESTe

MOV

#TEST6.SLPERR

:SETUP ERROR LOOP ADDRESS

MOVB

#6,$TSTAM

BEQ
BPL

001300
001106
001110

2%:

MOV

#10.,8TIMES

000010

MOVB

PORTA,RMCS2(RG)

001262

012242

012760

000013

000000

001240

MOV
MOV

104046

001164

061122
001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

SLOAD

MOV

(LR
MOV
ADD
MOV
MOVR
MOV

BIC

MOV

STACK POINTER

ITERATIONS

:SELECT PORT A

:;MOVE PORT ADDRESS TO LOCATION FOR TYOEOUT
= ;ADDR OF PORT WHICH WILL ISSUE RELEASE

#13,RMCST1(RO)

THE DRIVE

THE

2:D0 10.

;ISSUE A RELEASE COMMAND
;VERIFY THAT

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100
007164

#STACK,SP

PORTA,PTNBR
PORTA,SEIZPT

IS STILL

RELERR
#RMDS,$BDADR

;ISSUE A RELEASE COMMAND
IN NEUTRAL

;CLEAR THE 'RELEASE ERROR ' INDICATOR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT

RO, $BDADR
SADD THE 1/0 BASE ADDRESS
#MOL ' PGM'DPR 'DRY 1VV,$GDDAT
:COMPARISON CONSTANT
PORTA RMCS2(RO) :SELECT PORT A.
RMDS
(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM POKT A.

#P1P!WRL 1OM, $TMP?

:CLEAR DONT CARES

STMP2,$TMPO

;COPY IT INTO '$TMPO'

MOVB

PORTB,RMCS2(RO)

:SELECT PORT B.

BIC

#PIP!'WRLIOM, $TMPS

(MP
BNE
ST
BNE
EMT

$TMPO, $TMP1
64
$TMPO
66$
46

BIC

MGV

MOV
BIC

;MOVE #6 TO TEST NUMBER

MOV

TEST

:SETUP SCOPE LOOP ADDRESS

001176

001224
001224
001224

005737
001045

HTEST6,$LPADR

001102

013737
013737

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037
042737
013737
042737
023737
001006

‘BR IF NOT
:BR IF JUST ENTERED TEST

000006
001100
000012

012220
012226
012234

012250
012254
012262
£12266
012274
012302
012310
012316
012324
012332
012340
012346
012354
012362
012370
012376
012400
012404
612406

2
18

NATATVY,STMPO

RMDS(RO) ,$TMF3

$TMP3, STMPY
#ATATVV,$TMP1

:CLEAR PORT DEPENDENT BITS FROM THE

:GET

COPY

THE DRIVE STATUS REGISTER FI0M PORT B.

;CLEAR DONT CARES

SCOPY IT INTO '$TMPI®
:(CLEAR PORT DEPENDENT BITS FROM THE COPY

“IS THE STATUS REGISTER THE SAME FROM BOTH PORTS
‘BR [F NOT
*REGISTERS ARE THE SAME: ARE THEY ZERQ °
‘BR |F NOT

_<HMRBO RMOS5/3%3/2 DU POR TST 1
MACRO v04.00
PORT "A' NEUTRAL/RELEASE TEST

012410
012614
012422
012430
012436
012642
012646
012452
012660
012466
012672
0126474

000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737

012510
012516
012520
012526
012534
012542
G12550
012552
012556
012562
012570
012576
012604
012606
012610
012612

012760
104030
013737
013737
042737
023737
001401
104007
013737
013737
042737
023737
001401
104007
000240
000004

012502

269
278

012760

012610
(01170
001226
001226
001164

001226
007172
001224
001166
177777

001126
001240
000010

JMP
MOV
MOV
MOvVR
TST
BEQ
MOV
MOV
mMova
TST
BNE
VoV

001240
001126
000010
001254

65%:

000000

001170
001224
100000
001124

001126
001240
001126
001126

66%:

001172
001226
100000
001724

001126
001240
001126
(01126

67%:

MOV

000000

MOv
EMT
MOV
MOV
81C
(MP
BEQ
EMT
MOV
MOV
BIC
(Mp
BEQ
EMT
NOP
SCOPE

68%:

279

G
5
18:06:25 PAGE 10-18
SEQ UL5Ss

64%:

000011

000013

4-APR-81

AR AR AN

SvTEST

68%
$TMP2, $BDDAT
PORTB,PTNBR
PORTR RMCS2(R0)
$TMPL
653
PORTA,PTNBR
$TMP3, $BDDAT
PORTA ,RMCS2(R0O)
$TP1
66%
#-1,RELERR

;BYPASS THE REST OF THE CHE(CKS
.SET UP POSSIBLE BAD DATA FOK ERROR MESSAGE
;SEIZING PORT [F TEST SHOWS DRIVE NCT [N NEUTRA|
;SELECT PORT 8.
;SEE IF STATUS EQ O FROM PORT A.
:BR If ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
:'BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A,
;SEE I+ STATUS EQ ZERO FROM PORT 8.
;BR_IF NOT
;SET 'RELEASE ERROR® INDICATOR

#13,RMCS1(RO)
30
$TMP2, $BDDAT
PORTA,PTNSR
HATA, SBDDAT
$GDDAT,$BDDAT
67%
7
$TMP3, $BDDAT
PORTB,PTN8R
#ATA, $BDDAT
$GDDAT,$BDDAT
68%
7

;RELEASE THE DRIVE

#11,RMCS1(RO)

;LOOK FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
;ALL BITS OK ?
;BR IF OK FROM PORT A.
;CHECK RMDS FOR BIT FAJLURES - FROM PORT B.
; CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.
:BR IF OK
;LO0P ?

A AR AR

;CLEAR THE DRIVE

PORT

T NI R RN AP R AR AN RANANAAANNANNNNNN R AR N

'B'

NEUTRAL/RELEASE

TR R RO RN

TEST

;*TEST OPERATION OF RELEASE (OMMAND, DRIVE
3

012614
012614
012620
012622
0126246

ISSUE A RELEASE

NEUTRAL;

COMMAND

IN NEUTRAL

THROUGH PORT

'B'

WITH THE DRIVE

VERIFY THAT THE DRIVE REMAINS [N NEUTRAL.

;"'ttt'tlthttttttttt"t'ttttttttttttttttttttfitttt't"tttttt'tttt
005737
007406
100002

000137

1517:

001300
003074

18%:
2%:
1EST?

TST
BEQ
BPL
JMP
MOV
MOV
MOV

#-1,KYBCTL
WTEST7 ,SLPADR
#TEST7,SLPERR

sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

A7,8TSTNM
#STACK,SP
#10. ,$TIMES

:MOVE #7 TO TEST NUMBER
;LOAD THE STACK PGINTER
::D0 10. ITERATIONS

PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PORTB,SEIZPT
;ADDR OF PORT WHICH wlLL ISSUE RELEASE

012630
012636
8}%223

012737
012737
012737

177777
012652
012652

001300
001106
001110

012652
012660
012664

112737
012706
012737

000007
001100
000012

001102
001176

MOV
MOV
MOV

012672
012700
012706

113760
013737
013737

001226
001226
001226

000010
001240
001242

MOvB
MoV
MOV

KYBCTL
2
18

EXEC

;PERFORMING ONLY SINGLE TEST
:BR IF NOT
JBR_IF JUST ENTERED TEST
JRETURN & GET NEXT

TEST NUMBER

’QMDBS RMOS5/3/2 DU POR

PORT

'B'

012774

TST

NEUTRAL/RELEASE

012760

(CCO013

CRO v04.00

YESY

000000

&4-APR-81

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037

013026
013034
C13042
013050
013052
013056
013060
013062
013066
0130764
C13102
013110
013114
013116
013124
013132
013140
013144
013146
013154
013162
013170
013172
013200
C13206
013214
013222
013224
013226
013234
013242
013250
013256
013260
013262
013264

013737 001172
042737
100100
023737 0C1164
001006
005737 001164
001045
104046
000137 013262
013737 001170
013737 001226
113760 001226
005737 001164
001414
013737 001224
013737 001172
113760 001224
005737
001166
001012
012727
177777
(012760
000011
012760 000013
104030
013737 001170
013737 001224
042737
100000
023737 001124
001401
104007
013737 001172
013737 001226
042737
100000
023737 001124
001401
104007
(00240
000004

[
——
i

——

013020

282
301
302

042737

0C1254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012

024001

o ISSUE

_
001122

A RELEASE

MOV

(LR
MOV
ADD
MOV
MOVR
MOv
8IC
MOV
BIC
MOVRB
MOv

001124
000010
001370
001170
001164
001164
000010
001172

001172

BIC

001166
001166
001166

001126
001240
000010

10-19

SEQ 0059

SVERIFY THAT

012722
912726
012734
012740
012746
012754
012762
012770
012776
013004
013012

18:06:25 PAGE

64%:

001240
001126
000010
001254
000000
000000

65%:

001126
001240
001126
001126

66%:

001126
001240
001126
001126

67%:

68%:

MOV
BIC
CMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVR
TST
BEQ
MOV
MOV
MOYR
TST
BNE
MOV
MOV
MOV
EMT
MOV
MOV
BIC
(MP
BEQ
EMT
MOV
MOV
BIC
(MP
BEQ
EMT
NOP
SCOPE

COMMAND

#i3,RMCST(RO)

THE DRIVE

[S STILL

JISSUE A RELEASE (OMMAND
IN NEUTRAL

RELERR
sCLEAR THE °RELEASE ERROR ' INDI(ATOR
#RMDS , $BDADK
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $8DADR
;ADD THE [/0 BASE ADDRESS
#MOL !PGM!DPR!DRY!vV,SGDDAT
;(OMPARISON CONSTANT
PORTA ,RM(CS2(R0O) ;SELECT PORT A.
RMDS(RO) ,$TMP2
-GET THE DRIVE STATUS REGISTER FRCM PORT A.
#PIP'URL'OM STMPZ
;CLEAR DONT CARES
$TMP2,$TMPO
. COPY IT INTO '$TMPO’
#ATA!VV.STMPO
;CLEAR PORT DEPENDENT BITS F<OM THE (OPY
PORTB,RMCS2(R0O) ;SELECT PORT B.
RMDS(RO) $TMP3
-GET THE DRIVE STATUS REGISTER FROM PORT 8.

APIP, URL'OM STMP3

$TMP3 ,$TMP1
#ATA!VV.STMP1
S$TMPO,S$TMPY
648
$TMPO
663
46
68%
$TMP2, $BDDAT
PORTB,PTNBR
PORTB ,RMCS2(R0)
$TMPO
65%
PORTA,P NBR
$TMP3 SBDDAT
PORTA,RMCS2(R0)
$TMP]
663
#-1,RELERR
#11,RMCST(RO)
#13,RMCST(RO)
30
$TMP2, $BDDAT
PORTA,PTNBR
#ATA,SBDDAT
$GDDAT,$8DDAT
67%
/
$TMP3, S8DDAT
PORTB ,PTNBR
#ATA,SBDDAT
$GDDAT ,$BDDAT
68%
7

;CLEAR DONT CARES

. COPY IT INTO *‘STMP1®
;(LEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS °
:BR If NOT
JREGISTERS ARE THE SAME: ARE THEY ZERQ ?
;BR ]JF NOT

;BYPASS THE KEST OF THE (HECKS
JSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEJZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
JSEIZING PORT [F TEST SHOWS DRIVE NOT IN NEUTRAL
; "BAD DATA' FOR ERROR TYPE QUT
;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PGCRT B.
:BR IF NOT
JSET "RELEASE ERROR® INDICATOR
;CLEAR THE DRIVE
JRELEASE THE DRIVE
;LOOK FOR BIT FAILURES WHEN RMDS READ
;s CHANGE PORT NUMBER
;DON'T CHECK THE ATIN BIT
;ALL BITS OK ?
;BR IF OK FROM PCGRT A.
JCHECK RMDS FOR BIT FAILURES - FROM PORT B.
;CHANGE PORT NUMBER
:DON'T CHECK THE ATTN BIT
;SEE IF READ Ok FROM PORT B.
;BR IF OK

;LOCP ?

4 t't"tttt.'ltttt.tt"tt'l'tt""t!'t"t.!Q'ttQQQI'.!Q.!"".QQ'

LeTEST

PORT

'A*

RELEASE

INTERFERENCE

TEST

“IZRTMMRBO RMOS5/3/2 DU POR TST 1
MACRQ v04.00
1145
PORT 'A' RELEASE INTERFERENCE TEST

4-APR-81

18:06:¢5 PAGE

10-20

SEQ 0060

I*VERIFY THAT A COMMAND [SSUED BY ONE PORT IS NOT RECOGMNIZED [F THE DRIVE
ot

5:
5:
5:
55

IS SEIZED BY

A.
B.
C.
D.

SEIZE THE DRIVE THROUGH PORT 'B’' BY WRITING C'S INTO RMDS.
ISSUE A RELEASE COMMAND THROUGH PORT ‘A",
VERIFY THAT THE DRIVE iS STILL SEIZED By PORT 'BR’.
RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE SWIT(HED

RELEASE THE DRIVE THROUGH PORT 'A’.
VERIFY THAT THE DRIVE RETURNED
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

TO PORT

.
MALARS

303

013266
013266
013272
013274
013276
013302
013310
013316
013324
013324
013332
013336

005737
001406
100002
000137
012737
012737
12737

013324
013324

112737
012706
012737

000010
001100
000012

177277

ARl

‘A",

AR AR

TST10:

001300

003074

THE OTHER PORT,

~sT

BEQ

8PL

001300
001106
001110

1%:

2%:

MOV

EST10 MOV

" MOVB

001102

MOV
MOV

001176

327

JMP
MOV

KYBCTL

JPERFORMING ONLY SINGLE

133

JBR IF JUST ENTERED TEST

EXEC
#-1_KYBCTL

:BR IF NOT

TEST

JRETURN £ GET NEXT TEST NUMBER
JSET SINGLE TEST INDICATOR

#TEST10,8LPADR

;SETUP SCOPE LOOP ADDRESS

#10,$TSTAM

:MOVE #10 TO TEST NUMBER

#TEST10.SLPERR :SETUP ERROR LOOP ADDRESS

#STACK, SP
#10. . STIMES

*LOAD THE STACK POINTER
*:D0 10. ITERATIONS

:CLEAR ATTENTION BITS FOR BOTH PORTS
013344
013352
013356
013364
013372
013400
013404
013412

113760
005060
012760
012760
113760
005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

00010
000000
000000
000010

013454
013462
013470
013474
013502
013506
013514
013516

113760

013737
005060

113760
013737
013737
016037
010037
062737

005037
023737
001403
104004

001226

001226
000012
001224
001224
001224
000012
001122

000000
000000

000012
001124
001124

000010
001242

000010
001240
001244
001126
001122
001126

PORTA ,RMCS2(RO)
RMDS (RO)
#11 ,RMCST1(RO)

;SELECT PORT #A
sSEIZE THE DRIVE
;1SSUE DRIVE CLEAR

MOVS
CLR
MOV
MOY

PORTB,RMCS2(R0O)
RMDS (RO)
#11,RMCST1(RO)
#13,RMCST(RO)

;SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

MOV

;SEIZE
013420
013426
013434
013440
013446

MOvB
(LR
MOV

THE DRIVE

#13 RMCS1(RO)

;RELEASE THE DRIVE

°'B°

THROUGH PORT 8

MOvB
MoV

PORTB,RMCS2(R0O) ;SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS

Mov
MOV
MoV
MOV

PORTA_PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR
PORTA,OPPRT
;'OPPOSITE' PORT ADDRESS
RMDS (RO) ,$8DDAT SEE IF DRIVE SEIZED BY PORT B
RO, $BDADR
;RH/RM BASE ADDRESS

CMP
?&?

$GDDAT ,$8DDAT
243

CLR
MOVB

ADD
(LR

RMDS (RO)
PORTA,RMCS2(R0O)

SWRITE RMDS
;SELECT PORT A

#RMDS , $8DADR
$GDDAT

;GENERATE BAD REGISTER ADDRESS
¢REGISTER SHOULD BE ZERO

;IS THE REGISTER ZERO
JBRIF IT IS

TYPEQUT

.JRMRBO RMOS5/3/2 DU POR TST 1
MACRO v04.00
o
PORT 'A' RELEASE INTERFERENCE TEST

8}%252

000137

014530

013524
013532
0°3540
013546
013554
013562
013570
013576
013602
013610
013616
013620
013622

113760
013737
016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240

001226
001226
000012
020001
011700
001124
001160
001126
001166
001126

113760
013737
012760

001224
061224
000013

005037
016037
012737
060037
005037
023737
001403
104010
005137
016037
012737
060037
032737
001404
104011
012760
000240
005737
001402
000137

001250
000012
000012
001122
001124
001124

65%:

MOVR
MOV
MOV
BIC
MoV
MoV
CoM
MOV
BiC
(Me
BEQ
EMT
NOP

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS
(RO) ,$BDDAT
;SEE IF SEIZING PORT SEES CORRF(CT STATUS
H#OM. P1P, $BDDAT
;CLEAR DONT CARE BITS
AMOL . PGM.DPR.DRY!VV,$GDDAT
EXPECTED STATUS
$GDDAT,$TMP1
;USE GOOD DATA AS A MASK
$TMPY
;COMPLEMENT THE EXPECTFD STATUS
$8DDAT ,$TMPO
;SAVE THE ACTUAL STATUS
$TMP1,$TMP)
;CLEAR UNWANTED BITS
$GDDAT, $TMPO
JARE THE EXPECTED STATUS BITS SET ?
65%
;BR [F THEY ARE
5

001164
001164
001164

000070
001240
000000

TO EXECUTE A RELEASE

MOVB
MOV
MOV

001126
001122
001126

001126

040000

000000

001126
001122

001250
014530

66%-

67%:

;BYPASS REST OF

SEG wur”

000010
001240
001126
001126
001124
001166

001250
000000
000000
001122
020000

10-21

JMP

JVERIFY THAT

013646
013652
013660
013666
013672
013676
013704
013706
013710
013714
013722
013730
013734
013742
013744
013746
013754
013756
013762
013764

18:06:25 PAGE

:TRY

013624
013632
013640

4-APR-B1

CLR
MOV
MoV
ADD
CLR
cMP
BEQ
EMTY
com
MoV
MOV
ADD
BIT
BEQ
EMT
MOV
NOP
TST
8EQ
JMP

THE SUBTEST

COMMAND THROUGH PORT A

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEDUT
#13,RMCST1(RO)
;ISSUE A RELEASE COMMAND THROUGH PORT A
THE DRIVE

IS STILL

SEIZED BY PORT B

CKERR
;CLEAR THE °'CHECK ERROR' INDICATOR
RMDS (RO) ,$8DDAT
;GET CONTENTS OF RMDS
WRMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $SBDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
JWHAT REGISTER SHOULD BE
$GDDAT ,$8DDAT
;1S THE REGISTER OK ?
60%
;BR IF OK
10
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR
RMCS1(RO) ,$8DDAT
;GET THE CONTENTS OF RH(CS1
W#RM(S1,88BDADR
;FORM ADDRESS OF REGISTER
RO, $BDADR
;ADDRESS BASE
#M(PE , $SBDDAT
;IS *MCPE' SET ?
67%
;BR IF NOT
1
#TRE ,RM(S1(RO)
;(LEAR ‘M(CPE’

CKERR
.*6
1%

;WAS RMDS NON ZERO ?
;CONTENTS OF RMDS SEEN BY PORT A
;DRIVE IN NEUTRAL, BYPASS REST OF

TEST

SRELEASE THE DRIVE FROM PORTY B

013770
013776
014004

113760
013737
012760

001226
001226
000013

00001C
001240
000000

MOvB
mMov
Mov

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#13 RMCS1(RO)
;ISSUE RELEASE THROUGH PORT B

sVERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B
014012
014016
014024
014032

005037
012737
012737
060037

001254
111760
000012
001122

001124
001122

CLR
MoV
MoV
ADD

RELERR
;CLEAR °'RELEASE ERROR' INDICATOR
#ATA!MOL .PGM.DPR!DRY!VV,SGDDAT
;COMPARISON CONSTANT
#RMDS ,$BDADR
;REGISTER ADDRESS INCREMENT
RO, $8DADR
JREGISTER BASE ADDRESS FOR TYPEQUT

¢ Z R MRBO RMO5/3/2 DU POR

PORT

'A’

014036

113760

013737
016037

AFNNFNS

N~
o s

113760

T10

TST 1
MACRO Vv04.00
RELEASE INTERFERENCE TEST

001224
001224
000012
001226
001226
000012

013737
016037
001404
005737

001164

023737

001164
001224
001124

001401
104031
013737
013737

001401

000010
001240
001164
000010
001240
001126

001126
001240
001126

104027
000240

4-APR-81

69%:

10-22
SEQ 7t

MOVB
MOV
MOV
MovR
MOV
MOV
BEQ
TST
BEQ

68%:

18:06:25 PAGE

EMT

MOV
MOV

CMP
BEQ
EMT

PORTA,RMCSZ2(R0O)
SELE(T PORT A
PORTA,PTNBR
.MOVE PORT ADDRESS

TO LOCATION FOR

TYPEOUT

RMDS (RO),$TMP)

;READ STATUS REGISTER FROM PORT A

68%
$TMPO
%?S

;BR IF STATUS FROM PORT B ZERO
;IS STATUS FROM PORT A ZERO ?
;BR IF ZERO

$TMPO, $BDDAT

;CHECK STATUS FROM PORT A

$GDDAT ,$8DDAT
Sgs

;COMPARE WITH CONSTANT
;BR IF OK

PORTB,RMCS2(RO)
,;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS(R0O) ,$BDDAT
;DRIVE STATUS FROM PORT B

PORTA,PTNBR

;CHANGE PORT ADDRESS FOR

TYPEOQUT

NOP

;RELEASE THE DRIVE FROM PORT A
14144
014152
014160

113760

013737
012760

001224
001224
000013

000010
001240

MOVB

MOV
MoV

000000

JVERIFY THAT THE

014166
014172
014200
014204
014212
014220
014226
014234
014242
014250
014256
014264
014272
014300
014306
014314
14316
014322
014324
014326
014332
014340
014346
014354

014360
014362
014370
014376
014404
014410
014412
014420

005037
012737
060037
012737
113760

016037
042737
013737
042737

113760
016037
042737
013737
042737
023737
001006
005737
001045
104046
000137

013737
013737
113760

005737
001414
013737
013737
113760
005737
001012
012737
012760

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100
001164

CLR
MOV

001122

ADD

001124
000010

001170
001170
001164

001164
000010
001172
001172
001166
001166
001166

001164
014526
001170
001226
001226
001164

001126
001240
000010

001224
001172
001224
001166

001240
001126
000010

177777

001254
000600

000011

70%:

MOV
Move
MOV
BIC
MOV
BIC
Move
MOV
8IC
MOV
BIC
P
BNE
TST
BNE
EMT
JMP
MOV

#13 ,RMCS1(RO)
DRIVE

;SELECT PORT A

;MOVE

IS STILL

PORT ADDRESS

s ISSUE RELEASE

TO LOCATION FOR

THROUGH PORT A

TYPEOUT

IN NEUTRAL

RELERR
sCLEAR THE °‘RELEASE ERROR ' INDICATOR
#RMDS ,$BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $BDADR
:ADD THE 1/0 BASE ADDRESS
MMOL 'PGM!DPR
'DRY VY, $GDDAT
; COMPARISON CONSTANT
PORTA,RMCS2(R0) :SELECT PORT A.

RMDS(RO) ,$TMP2

:GET THE DRIVE STATUS REGISTER FROM PORT A.

#ATA'VV, STMPO

:CLEAR PORT DEPENDENT BITS FROM THE COPY

#PIP!WRL iOM,$TMP?
;CLEAR DONT CARES
STMP2, $TMPO
:COPY IT INTO '$TMPO’
PORTB ,RMCS2(RO)
RMDS(RO),$TMP3

:SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

#PIP!WRL 10M,$TMPS
STMP3,STMPY

HATA!VV,$TMP]

;CLEAR DONT CARES

;COPY IT INTO '$STMPYT®

. CLEAR PORT DEPENDENT BITS FROM THE

COPY

$TMPO, $TMPI
70%
$TMPO

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERQ ?

74%

;BYPASS THE REST OF

MOV
MOVB
TST

PORTR,PTNBR

JSEIZING PORT

TEST

MOV
MoV
MOVB
TST

PORTA ,PTNSR

;SEIZING PORT

TEST SHOWS DRIVE

BEQ

71%:

PORTA ,RMCS2(R0)

PORTA,PTNBR

BNE

MoV
MOV

$TMP2 ., $8DDAT

:BR IF NOT

THE CHECKS

JSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
SHOWS DRIVE NOT

PORTB,RMCS2(R0)
$TMPO
71%

;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
;BR IF ZERO

$TMP3, $BODAT
PORTA ,RMCS2(RO)

: 'BAD DATA' FOR ERROR TYPE QUT
;SELECT PORT A,

$TMP1

72%

#~1,RELERR

#11,RMCS1(RO)

sSEE

JSET

'RELEASE

NOT

STATUS EQ ZERO FROM PORT B.

sBR _IF NOT

ERROR'

;CLEAR THE DRIVE

INDICATOR

IN NEUTRAL

[N NEUTRAL

CZR MRBO RMOS5/3/2 DU POR TST

110

PORT

'A'

014426
014634
014436
014646
014452

328
3,7

014460
014466
014470
016472
014500
014506
014514
014522
014526
014526
014530

RELEASE

012760
104026
013737
013737
042737
023737
001401
104007
013737
013737
062737
023737
001401
104007
600240
000004

1
MACRO V04.00
INTERFERENCE TEST

000013

000000

001170
001224
100000

001126
001240
001126

001124

001126

001172
001226
100000
001124

001126
001240
001126
001126

18:06:25 PAGE

MOV
EMT
MOV
MOV
BIC
CMP
BEQ
EMT
MOV
MOV
BIC
CMP
BEQ
EMT
NOP
SCOPE

72%:

73%:

74%:
18

348

4-APR-81

10-23

#13,RMCST(RO)
26
$TMP?2, $8DDAT
PORTA . PTNBR
#ATA, $BDDAT
$GDDAT,$BDDAT
73$
7
$TMP3,$BDDAT
PORTB.PTNBR
HATA, $BDDAT
$GDDAT,$BDDAT
748
7

SEQ 00¢¢

:RELEASE

THE DRIVE

;LOOK FOR BIT FAILURES WHEN RMDS READ
*CHANGE PORT NUMBER
*DON'T CHECK THE ATTN B]T
:ALL BITS OK ?
‘BR IF OK FROM POR! A.

;CHECK RMDS FOR BIT FATLURES - FROM PORT B.
*CHANGE PORT NUMBER
*DON'T CHECK THE ATTN BIT
-SEE IF READ OK FROM PORT B.
BR IF OK

:LOOP ?

:."*tt"'t‘.t""'.‘fi'"""fit*.fi*.fifi."lfi.“fi.*'t".fi""'t"'t..'

TRTEST 11
.

PORT

I*VERIFY

ie
. %

'B' RELEASE INTERFERENCE TEST

THAT A COMMAND

ISSUED BY ONE PORT

IS SEIZED BY THE OTHER PORT.

THE DRIVE

SEIZE THE DRIVE

ISSUE A RELEASE COMMAND THRCUGH PORT 'B*.

VERIFY THAT THE DRIVE

RELEASE THE DRIVE THROUGH PORT

RELEASE THE DRIVE THROUGH PORT °'B'.
VERIFY THAT THE DRIVE RETURNED
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

. %

- %

T0 PORT

THROUGH PORT

IS NOT RECOGNIZED

'B°.

'A’ BY WRITING 0°'S INTO RMDS.

IS STILL SEIZED BY PORT

°A'.

‘A’.

VERIFY THAT THE DRIVE SWITCHED

‘e
ie
.

014532
014532
014536
014540
C14542
014546
014554
8}2295

PAGE '

NN
NN
—

005737
001406
100002
000137
012737
012737
012737

18111

001300
003074
177777
014570
014570

01457HDR1CZRMRBSEQ

— OV

:‘"tt'fifit*fit.'..tQit'.fi"t"iii.tt"t"t.tt.‘tttttttt‘tfittt't't'tt

001300
001106
001110

1%:
28§:
ST

ST
BEO
8PL
IMP
MOV
MOV
MOV

00010000
.REM

KYBCTL
28
18
EXEC
#=1,KYBCTL
NTEST11,8LPADR
#TEST11.SLPERR

810728
-

:PERFORMING ONLY SINGLE TEST ?
‘BR IF NOT
:BR IF JUST ENTERED TEST
*RETURN & GET NEXT TEST NUMBER
“SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

PDP10 411

CZRMRBO RMO5/3/2 DU POR TST 1

MACR

SEQ CULCY

e el d o —

Rloo . RoNTe SV I LFVIT W

IDENTIFICATION

LaVE R

PRCDUCT

(ODE:

AC~F9368-M(

PRODUCT NAME:

CZRMRBO

PRODUCT

APRIL

DATE:

RM05/3/2 DUAL

PORT

TEST,

(X DIAGNOSTIC GROUP

AUTHOR:

MIKE

LEAVITT

THE INFORMATION IN
THIS
DOCUMENT IS SUBJECT TO CHANGE
NOTICE AND SHOULD
NOT BE CONSTRUED AS A COMMITMENT
BY

CORPORATION.

DiGITAL

NO RESPONSIBILITY FOR ANY ERRORS

THE

SOF TWARE DESCRIBED

1081

MAINTAINER:

EQUIPMENT

ITHOUT

DIGITAL

(CORPORATION ASSUMES

THAT MAY APPEAR IN THIS MANUAL.

THIS DOCUMENT

LICENSE
AND
MAY
ONLY BE USED OR COPIED
TERMS OF SUCH LICENSE.

FURNISHED UNDER A

IN ACCORDANCE WITH THE

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

(C)

1980,1981

DIGITAL EQUIPMENT CORPORATION

CZRMRBU RMQS/3/2 DU POR

TST

MACRO v04.00

4-APR-81

N
S
18:06:¢5 PAGE 2
CONTENTS

ABSTRA(T

REQUIREMENTS
2.1
2.2
2.3

LOADING PROCEDURES

STARTING PROCEDURES

4.1

4.2

2O 000N

STARTING ADDRESSES

OPERATOR ACTION

OPERATING PROCEDURES
5.1
5.2

5.3
5.4

'SOFTWARE' SWITCH REGISTER
OPERATIONAL SWITCH SETTINGS

TEST SELECTION
DUAL PORT TEST CABLE CONNECTION

ERRORS

MISCELLANEOUS

7.1
7.2
7.3
7.4

WA
NV

EQUIPMENT
PREREQUISITE PROGRAMS
OTHER PROGRAMS

NS W

N AN N WNANIN AN NN N RO RN PO N RO NN

— OV

== b b oo ok b d i b

NOANS W= OV

NS NN

SEQ 000,

7.5
7.6
8.

RESTRICTIONS
LIMITATIONS
EXECUTION TIME
REQUIRED TESTS

DISK SURFACE USAGE
LOOP ON ERROR OPTION

TEST DESCRIPTIONS

C(ZRMRBO RM05/3/2 DU POR TST

MA(RO v04.00

4-APR-B1

1B:06:¢5 PAGE

O OV®WNO N WA~ OO0 NN

R —

SEQ 0003

ABSTRACT
THE RMO5/3/2 DUAL PORT LOGIC TEST PERFORMS A SERIES OF
TESTS WHICH VERIFY THAT THE RMO5/3/2 DUAL PORT LOGIC

IS FUNCTIONING PROPERLY.

THIS PROGRAM;

IS NOT

TESTED BY

ONLY THE

DATA HANDLING

THIS PROGRAM.

CONTROL LOGIC

IN THE DUAL PORT MODE

TESTED

BOTH PORTS OF THE DRIVE ARE CABIED TO THE SAME MASSBUS BY
A SPECIAL ADAPTER CABLE.
THI®
PRANGEMENT AL' OWS THE DUAL

PORT

LOGIC

TO BE

THIS PROGRAM

TESTED

THE

FROM ONE

FIRST Pax:

THC

RH11

OR PH70.

HE DUAL PORT 0OPTMION

TEST PERFORMS

LOGIC TEST. THE SECOND PART OF
MANUAL INTERVENTION TESTS,

-NP=-11,

[, B

REQUIREMENTS

2.1

EQUIPMENT
PDP-11

PROCESSOR

20K MEMORY

KW11-L OR KW11-P (LOCK

TERMINAL
RH11 OR RH70
1 - DISK DRIVE (RMO5, RMO3 OR RMO?2)
RM DUAL PORT TEST CABLE (P/N: 7010507-02)

2.2

PREREQUISITE PROGRAMS

RMO5/3/2 CISKLESS TEST, PART 1 8 2

RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 & 3
THE PREL JMINARY PROGRAMS MUST BE RUN TWICF:

EACH PORT

(A £ B).

ONCE

FROM

OTHER PROGRAMS
A.

THE OPERATION OF THE 'PORT SELECT'' SWITCH IS TESTED
B8Y THE SECOND PART OF THE DUAL PORT LOGIC TEST.

DYNAMI(C OPERATION OF THE DUAL PORT OPTION IS
TESTED BY THE RMOS/3/2 PERFORMANCE EXERCISER PROGRAM.

LOADING PROCEDURES
THE PROGRAM MAY BE LOADED BY

THE ABSOLUTE PAPER

TAPt

LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA
USING THE ASSOCIATED °'XXDP' LOADER.
THE PROGRAM MAY NQT

(ZRMRBO RMOS5/3/72 DU POR TST

MA{RO v04.00

&-APR-B1

¢
18:06:25 PAGE

6
3-1

SEQ 0004
ég

INCLUDED

IN AN ‘'XXDP'

(HAIN.

2(1)
g%

STARTING PROCEDURES

STARTING ADDRESSES

TO SELECT

;10

TESTED.

75
;9

THE NORMAL STARTING ADDRESS OF

200 (8).

6.2

80
81
82
83

THE PRGGRAM S LOCATION

STARTING AT THIS ADDRESS ALLOWS THE OPERATOR
(Ok RESELECT)

, THE RESTART ADDRESS

THE ADDRESS OF THE DRIVE

IS LOCATION 204

USE THE CURRENT DRIVE ADDRESS.

(8).

TO BE

THE PROGRAM WILL

THE PROGRAM (AN BE STARTED AT LOCATION 210
ADDRESS OF THE RH11 OR RH70 TO BE CHANGED.

(8)

TO ALLOW THE

OPERATOR ACTION

CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A
€ BUS B ON THE DRIVE BEING TESTED.
(SEE SECTION 5.4)
LOAD THE PROGRAM INTC MEMORY IN THE PROCESSOR CONTROLL
ING
THE MASSBUS USED FOR TESTING.

LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8))

E.
F.

REFER TO SECTION 5.2).
PRESS START,
ENTER THE DRIVE NUMBER.

OR ‘0" WILL RUN ALL TESTS.)
THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED

88
89y
90
91

92
93
O

95
96
97

SWITCH THE °‘PORT SELECT' SWITCH ON THE DRIVE TO BE
TESTED TO THE

‘A/B' POSITION.

C(YCLE THE DRIVE UP,

INTO THE SWITCH REGISTER (OR THE

ENTER THE NUMBER OF

FROM LOCATION

THE

TEST

°'SOFTWARE'

TO BE RUN.

SWITCH REGISTER,

('CARRIAGE RETURN'

204.

OPERATING PROCEDURES

100
;8}

5.1

'SOF TWARE'

SWITCH REGISTER

103

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

105

NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER.

104

d eh

— ed ed e b

o
RONZS38S

d ek —d

106

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISIER IS
THE

‘SOFTWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).

THE

SETTINGS OF THE °SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A °CONTROL G'.
THE PROGRAM WILi
RECOGNIZE THE °"CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM
IS AT A HIGHER PRIORITY PROCESSING AN RMB(G INTERRUPT.
THE

'SOF TWARE® SWITCH VALUES ARE ENTERED A5 AN OCTAL NUMBER IN RFSPONSE

THE PROMPT

FROM THE

'SWR = NNNNNN

SWITCH ENTRY ROUTINE:

NEW ='

C(RMRBO RMO5/3/2 DU POR TST 1

MA(CRO Vv04.00

4=-APR-81

D
6
18:06:25 PAGE 3~2
SEC

11§

116
117

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED.. °‘RUBOUT'
"CONTROL U*' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS

118
?;3

DURING SWITCH ENTRY.

121

ON PROCESSORS WITH HARDWARE

122
123
}gg

SWITCH REGISTERS,

THE

'SOF TWARE'

5.2

128

OPERATIONAL SWITCH SETTINGS

WITH ALL SWITCHES SET TO ZERO,

}58

ALL

ERRORS AND CONTINUE

};}

THE

SWITCH SETTINGS ARE:

133

SW<15>=1

134

SwW<14>=1

137

SwW<10>=1

135
136

LOOP ON TEST

INHIBIT ERROR TYPEOUTS
INHIBIT TEST ITERATIONS

RING TTY BELL ON ERROR

SW<09>=1

}2?

5.3

THE PROGRAM WILL TYPE

TESTING.

HALT ON ERROR

SW<13>=1
SW<11>=1

}gg

LOOP ON ERROR

TEST SELECTION

142
143
144

145
}29

INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE 'ENTER
TEST NUMBER:' MESSAGE.
ANY VALID TEST NUMBER CAN BE
ENTERED.
EACH ENTRY MUST BE TERMINATED BY A CARRIAGE
RETURN (CR).
THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET
TO ALLOW CONTINUOUS EXECUTION OF THE SELECTED TEST.

148
149
329

TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A '0' FOLLOWED
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF.
THE
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE.

152

THE 'RUBOUT KEY' (RO) CAN BE USED TO DELETE THE LAST

153
154
155
156

CHARACTER ENTERED,
SUCCESSIVELY STRIKING THE RO KEY
WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE
BEEN DELETED.
CHARACTERS DELETED BY THE RO KEY WILL BE
TYPED AND WILL BE SEPARATED BY *\' FROM THE CHARACTERS

;gg
329
}gg
164

SWITCH

REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S IN THE SWITCHES.
ALL SWITCH REGISTER REFERENCES WILL BE TO THE *SOF TWARE' REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

;gg

159

ENTERED BY THE OPERATOR.

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A
"CONTROL U'

5.4

TEST CABLE CONNECTION
TO TEST THE RM05/3/2 DUAL PORT OPTION WITH THIS PROGRAM,

65
166
167
}gg

A SPECIAL TEST CABLE MUST BE USED.
(THE TEST CABLE IS
P/N: 7010507-02).
THE TEST CABLE CONNECTS MASSBUS A & MASSBUS
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO
THAT BIT O OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED.

170

WITH THE DRIVE CABLE CONNECTED TO THE RMOS5/3/2 UNDER TEST,
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS:
EACH PORT

171

AND

Zuut

(ZRMRBO RMOS5/3/2 DU POR

TST

MACRO v04.00

4-APR-B1

E
18:0€:25 PAGE

6
3-3
SEQ VO
#

THE DRIVE WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS.

THE ADDRESS OF
ADDRESS PLUG.

EACH PORT WILL

DEPEND UPON THE DRIVE'S

THE PROGRAM WILL TYPEQUT THE APPARENT ADDRESSES OF BOTH
PORTS.
(ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE

OTHER PORT WILL HAVE

SBBIRIRAUX=S

D —b

179

THE ADDRESS DEVELOPED BY THE CABLE).

b ard

LA A
Rl
Rl
N
S
R

* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS

* POWERED DOWN.

IN CONFLICT WITH EITHER OF
AR

TEST ADDRESSES MUST BE

szt

LAAARARR

THE

CABLE

CONNECTION TO THE

—d wd ol

THE

DRIVE

TO BE

TESTED BY

02220200}

DRIVE UNDER TEST WILL

DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST
THE

THE DRIVE.

PROCESSOR ON PORT A,

CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J3 OF

RMO5/3/2 BACK PANEL,THEN CONNECT THE TEST CABLE

191

FROM J2 TO J7 OF

—

TEST

193

THE BACK PANEL AND TEKRMINATE

FERIC2SE CRER

WHEN THE DUAL PORT

TEST CABLE

IS CONNECTED,

THE

(P/N:

7010507-02)

THE PORT 'B'’ AT J6.

THE ATTENTION

—

BITS FOR PORTS A § B ARE ASSEPTED IN THE SAME BIT POSITION
WHEN 'RMAS' (ATTENTION SUMMARY REGISTER) IS READ.
THE ATTENTION
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE
THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE

198

NI
AYN —

INCLUSIVE

'OR' OF THE PORT A € PORT B ATTENTION BITS.

BECAUSE

OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN
'RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE
OF THE SELECTED PORTS'S ATTENTION BIT.

WHEN THE PROGRAM ENCOUNTERS AN ERRGR,

CALLED AND JF

SW<13> IS NOTM SET,

TO THE ERROR WILL BE
THE FOLLOWING:

8.
C.

EACH ERROR TYPEQUT WILL

A DATA HEADER LINE
A DATA LINE CONTAINING:
1.
THE TEST NUMBER

THE PC

(PROGRAM COUNTER VALUE) WHERE THE ERROR

CALL WAS MADE

CONTENTS OF

MISCELLANEOUS
RESTRICTIONS

CONTAIN

AN ERROR MESSAGE

7.1

TYPED.

THE ERROR ROUTINE

THE ERROR MESSAGE PERTAINING

THL APPROPIATE REGISTERS

CZRMRBO RM(O5/3/2 DU POR

TST

MACRO v04.00

4-APR-81

18:06:¢5 PAGE

3-~4

nonorON Ny NN
N

ok
aF ¥ >3 'y
TM~ " whu=odel

VT, VT.NY.NY. VTN
SRRP oI SLVL
gWWwwwwm
VB
W —=O
Y

SEQ 000/

249
250
251
252
253
256
255
256
257
258

TO RUN

MUST HAVE

7.2

273
274
275
276
277
278
279
280
281
282
283

285

THE

SYSTEM MUST HAVE

ADDITIONALLY,

DUAL PORT

TEST

CA3LE

EITHER A KW11-P

THE DRIVE UNDER TEST
CONNECTED.

LIMITATIONS
THIS PROGRAM DOES NOT

TEST DATA

TRANSFERS

THROUGH EITHER

PORT, DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL
PORT OPTION, AND DOES NOT TEST THE UNLOAD COMMAND

OR THE OPERATION OF
(REFER

7.3

THE PORI SELECT SWITCH ON THE DRIVE.

TO PARAGRAPH 2.2 § 2.3)

EXECUTION TIME
PASS

THE

PROGRAM

TAKES ABOUT

SECONDS.

SUBSEQUENT PASSES TAKE 2 MINUTES 25 SECONDS.

7.4

REQUIRED

PASS 2 AND

TESTS

IF THE PROGRAM S BEING EXECUTED [N SINGLE TEST MODE, THE
OPERATOR MUST (ALL AND RUN THE fOLLOWING TESTS BEFORE OTHER
TESTS ARE

7.5

RUN:

TEST 2 AND

%:ESRngg

TEST 3.

THE

THESE

VALUE MEASURED

THROUGH

DISK SURFACE USAGE

gS#VE MUST BE
7.6

TESTS DETERMINE AND STORE FOR

TIMEOUT NON-SHOT

THIS DIAGNOSTIC DOES NCT USE

259
26V

261
262
263
264
265
266
267
268
269
270
271
272

THIS PROGRAM,

OR A KWll=L CLOCK.

THE DISK SURFACE.

HOWEVER,

C(YCLED UP AND BE ON LINE FOR THE DIAGNOSTIC

THE

TO BE

LOOP ON ERROR OPT]ION

IF SW<09> IS SET, THE PROGRAM WiLL LOOP ON A FAILING TEST

UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING.
BECAUSE THE PROGRAM MUST RESET THE RM0S/3/2 TO A KNOWN STATE
BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED
G;Sngrs??EgF

8.1

THE

TEST - NOT AT

THE POINT WHERE

METHOD USED TO VERIFY THAT THE DRIVE

THE ERROR

IS IN NEUTRAL

THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH

BOTH PORTS.
THE PROGRAM MASKS OQUT THE PORT DEPENDENT BITS
('ATA' & 'VV') AND VERJFJES THAT CORRECT STATUS [S READ
THROUGH BOTH PORTS.

(THE

CORRECT

STATUS

°'MOL‘',

'PGM',

'DPR*, & 'DRY'.)
IF NEITHER PORT SEES ALL ZEROS FROM
RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL
AND

THAT ANY BIT DESCREPANCY BETWEEN PORTS

INDICATES A

* JRMRBC RM(S5/3/72 DU POR TST

MACRO v04.0C

G
6
18:06:¢5 PAGE 3-5

4-APR-B1

<en

286

FAILURE

287
288
289

290
291

292
293
296
295

2%6
297
298
299
300
301
302

WP
N WA -

THE

PATH FOR

THAT

BJIT.

ADDITIONALLY, THE PORT REQUEST FLOPS (ROA, ROB) OF THE
MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO [F
THE DRIVE IS IN NEUTRAL.

8.2

METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEI/ED
THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SFIZFD BY
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH

THE

SEIZING PORT AND VERIFING

SEEN.

WHEN RMDS

IS READ

ZEROS SHOULD BE SEEN.

THAT

CORRECT STATUS

IF BOTH CONDITIONS EXIST,

CORRECT STATUS THROUGH THE

SEIZING PORT AND ZEROS

THE OPPOSITE PORT), THE PROGRAM CCNCLUDES
HAS BEEN SEIZED BY THE SPECIFIED PORT.

8.3

THROUGH THE OPPOSITE PORT,

THAT

(I.E.,

THROUGH

THE DR]VE

METHOD USED TO VERIFY PORT REQUESTS
THE PORT REQUEST FLOPS IN THE MAINTENANCE REGISTER ARE
TESTED TO DETERMINE [F :
. A DRIVE IS IN NEUTRAL,I.E., RQA AND RQB ARE ZERO;
. ADRIVE IS SEIZED, I.E., RQA OR RQB IS ONE:
. A PORT REQUEST IS SET WHILE THE LRIVE IS SEIZED TO THE
ALTERNATE PORT, I.E.. ROA AND RQB ARE ONE.

e wd
d —d

VERIFY
A.

WN NN NN

TEST

—

N N

d ad

303

NEUTRAL

ACCESS

THAT THE DRIVE
SELECT DRIVE,

DRIVE

'MOL',

TEST

IS ACCESSIBLE

VERIFY

THAT

TO BOTH PORTS

THE DRIVE

IS A DUAL PORT RMOS/3/2,

'PGM',

THE

TEST

TEST 2

PORT

VERIFY

THAT

IS REPEATED

‘A"
THE

THAT

THE

[S ONLiNE

(RMDS HAS

IS THE

SAME.

THROUGH BOTH PORTS.

SEIZE/TIMEOUT
DRIVE

THE DRIVE

°‘DPR', & °'DRY' BITS SET), AND THE THE DRIVE SERIAL

NUMBER READ THROUGH BOTH PORTS
B.

IS PRESENT,

THAT

CAN BE

TEST

SEIZED BY WRITING A REMOTE REGISTER AND

IT CAN BE RELEASED BY THE ONE SECOND TIMER.

THAT

WRITE 0°'S INTO RMDA THROUGH PORT
HAS BEEN SEIZED.

READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT
VERIFY THAT 0°'S ARE READ FROM EACH REGISTER.

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEQUT ONE SHOT AND SAVE THE
VALUE FOR LATER JSE.
VERIFY THAT TIMEOUT RETURNED THE DRIVE 10
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHCT IS > 500 TMS,

°‘A‘;

VERIFY THAT

THE DRIVE

'B';

JRMRBO RMOS5/3/2 DU POR TST

MA{RO v04.00

4~APR-81

18:06:¢5 PAGE

3-6

SEQ 0009
34,3
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373

TEST

375

TEST

THE

377

SEIZE

SET VOLUME

ISSUE A RELEASE COMMAND THROUGH PORT

TEST

PORT

VERIFY THAT

'B'

SEIZE/TIMECUT

THE DRIVE

TEST

CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT

IT CAN BE RELEASED BY THE ONE SECOND TIMER.

374

376

378
379
380

381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
367
398
399

WRITE 0'S

READ EACH DRIVE REGISTER, EXCEPT RM(S1, THROUGH PORT
VERIFY THAT 0'S ARE READ FROM EACH REGISTER.

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE
VALUE FOR LATER USE.
VERIFY THAT TIMEOUT RETURNED THE DRIVE T0
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >S500 MS.

INTO RMDA THROUGH PORT

HAS BEEN SEIZED.

TEST

PORT

‘'A'

TEST

THE OPERATION OF

VERIFY

THAT

THE

DRIVE

'A';

TEST

THE RELEASE COMMAND,

DRIVE SEIZED

SEIZE

SET VOLUME

ISSUE A RELEASE COMMAND THROUGH PORT'A'.
VERIFY THAT THE DRIVE
SEIUQNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE
VE.

PORT

THE DRIVE

'B®

PORT

BY WRITING 0°'S

INTO RMDS.

THE

TEST

RELEASE

COMMAND,

THROUGH PORT

'B'

DRIVE

SEIZED

BY WRITING 0°'S

INTO RMDS.

VALID AND CLEAR ANY ERROR

NEUTRAL/RELEASE
RELEASE

'B'.

VERIFY THAT

AND THAT NO ERRORS ARE

PORT

'B'

TEST

COMMAND,

ISSUE

NEUTRAL/RELEASE
RELEASE

A RELEASE

NEUTRAL;

DRIVE

IN NEUTRAL

THAT

DRIVE

IN NEUTRAL

THROUGH PORT 'B'

THE

TEST

COMMAND,

COMMAND

VERIFY

THE DRIVE

INDICATED BY THE

ISSUE A RELEASE COMMAND THROUGH PORT 'A' WITH THE DRIVE
NEUTRAL: VERIFY THAT THE DRIVE REMAINS IN NEUTRAL.

TEST OPERATION OF
A,

SEIZE/RELEASE

THE DRIVE

'A'

VALID AND CLEAR ANY ERROR

OPERATION OF

TEST OPERATION OF

TEST

THROUGH PORT

gs}URNED TO NEUTRAL,
VE.

TEST 6

SE]ZE/RELEASE

*B';

DRiVE

REMAINS

WITH THE

DRIVE

IN NEUTRAL.

"ZRMRB) RMO5/3/2 DU POR TST

MA(CRO v04.00

I
18:06:¢5 PAGE

&~APR-81

6
3-7
0
SeEQ 00°

«00
M
28%

TEST

404

VERIFY

282

10 PORT

'A*

THAT A

RELEASE

COMMAND

INTERFERENCE

TEST

[SSUED RY ONE

PORT

THROUGH PORT

'B'

1S SEIZED BY THE OTHER PORT.

IS NOT RECOGNIZED

THE

DRIVE

28;

SE]ZE

2?8

ISSUE A RELEASE COMMAND THROUGH PORT

2}5

VERIFY

413

RELEASE

THE DRIVE

THROUGH PORT

'B*'.

VERIFY

THAT

THE

DRIVE

SWITCHED

RELEASE

THE

THROUGH PORT

'A’.

VERIFY

THAT

THE DR]VE

RETURNED

21?
1
416

2;;

419

THE

DRIVE

THAT

TO PORT

THE

DRIVE

'A'.

DRIVE

IS STILL

BY WRITING 0'S

INTO RMDS.

‘'A‘.

SFEIZED B8Y PORT

TO NEUTRAL AND THAT NEJTHER ATTENTION BIT

°'B*.

IS SET.

TEST 11 PORT 'B' RELEASE INTERFERENCE TEST

25?

422

VERIFY THAT A COMMAND [SSUED 8Y ONE PORT [S NOT RECOGNIZED [F

252

IS SEIZED BY THE OTHER PORT.

THE DRIVE

2%2

SEIZE

255

ISSUE A RELEASE COMMAND THROUGH PORT

2%8

VERIFY THAT THE DRIVE

43
2%%

RELEASE THE CRIVE
T0 PORT 'B'.

RELEASE THE DRIVE THROUGH PORT 'B°.
VERIFY THAT THE DRIVE RETURNED
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

434
2%2

437
4%3
4

440
42;

TEST 12 PORT
VERIFY

THE DRIVE

THROUGH PORT

'A’ BY WRITING 0°'S INTO RMDS.
'B’.

IS STILL SEIZED BY PORT

THROUGH PORT

‘*A'.

'A°’.

VERIFY THAT THE DRIVE

SWITCHED

'A' RELEASE W/ERRORS TEST

THAT A RELEASE COMMAND PERFORMS NO ACTION IF
BITS ARE SET IN THE DRIVE.

]ISSUED WHEN ERROR

222

SEIZE

222

WRITE 1'S INTO RMER1

447

...JE A RELEASE COMMAND THROUGH PORT ‘A'.

L%}

(LEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PQRT

453
zgg

ISSUE A RELEASE COMMAND THROUGH PORT ‘A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

448
Zgg
A

456

THE DRIVE THROUGH PORT

'A®' BY WRITING ('S INTO RMDS.

THROUGH PORT

‘A°'.

VERIFY THAT THE 'GC®

=.T HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND
~AT RMER1 HAS NOT BEEN CLEARED.

‘A’

(ZRMRBO R]MCS5/3/2 DU POR

TST

MACRO V04.00

4-APR-81

18:06:25 PAGE

3-8
SEQ 001"

agg

TEST

459

13 PORT

VERIFY

22?

'B'

RELEASE W/ERRORS

THAT A RELEASE
BITS

ARE

SET

TEST

COMMAND PERFORMS NO ACTION IF

THE

DRIVE.

ISSUED WHEN ERROR

zg%

SEIZE

THE DRIVE

zgg

WRITE

1'S

466
467
223

ISSUE A RELEASE COMMAND THROUGH PORT 'B'.
VERIFY THAT THE 'GG°
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND
THAT RMER1 HAS NOT BEEN CLEARED.

2;?

CLEAR RMER1 BY

472
2;2

ISSUE A RELEASE COMMAND THROUGH PORT °'B'.,
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

475
2;9

TEST

478

VERIFY

2;8

14 PORT

'A'

THROUGH PORT

INTO RMER1

'R' BY WRITING 0'S

THROUGH PORT

'B’.

[SSUING A DRIVE CLEAR COMMAND THROUGH PORT

SEIZE

AND CLEAR

TO RELEASE

THE

°'B'.

TEST

THAT A MASSBUS (LEAR OR DRIVE
PORT

INTO RMDS.

DRIVE.

CLEAR WILL NOT CAUSE

THE

SEIZING

481
2§§

SEIZE THE DRIVE BY WRITING 0'S INTO RMDS THROUGH PORT
VERIFY THAT THE DRIVE HAS BEEN SEIZED.

484
zgg

ISSUE A DRIVE CLEAR THROUGH PORT
DOES NOT RETURN TO NEUTRAL.

487
233

ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT
THE DRIVE DOES NOT RETURN TO NEUTRAL.

490
23}

RELEASE THE DRIVE THROUGH PORT ‘A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

493
28?

TEST

15 PORT

'B'

SEIZE

‘A’

AND VERIFY THAT

‘'A°’.
THE DRIVE

AND CLEAR TEST

496
23;

VERIFY

499

SEIZE

502

ISSUE A DRIVE CLEAR THROUGH PORT

ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT

289

282

505

ggg

508
509

g}%

TEST

THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAIISE
PORT TO RELEASE THE DRIVE.

THE DRIVE BY WRITING 0'S

INTO RMDS THROUGH PORT

VERIFY THAT THE DRIVE HAS BEEN SEIZED.

DOES NOT RETURN TO NEUTRAL.

THE

'B'

AND VERIFY THAT

SEIZING

'B'.

THE DRIVE

THE DRIVE DOES NOT RETURN TO NEUTRAL.

RELEASE THE DRIVE THROUGH PORT 'B'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

16 SEIZE

'A' BY RMCS1

TEST

"ZRMRBO RMOS5/3/2 DU POR TST

MACRO v04.00

4-APR-81

K
6
18:06:25 PAGE 3-9
SEQ OU",

514

g]g

VERIFY

THAT READING

THE DRIVE

THE

CONTROL REGISTER

(RMCS1)

IS IN NEUTRAL.

§17
2;3

READ THE CONTROL REGISTER
THE DRIVE IS SEIZED.

520

ISSUE A RELEASE COMMAND THROUGH PORT

ggg

5§23

(RMCS1)

THROUGH PORT

'A*;

'A':

17 SEIZE

'B'

BY RMCS1

DRIVE

VERIFY

THAT

VERIFY THAT THE DRIVE

TEST

526

YERIFY THAT READING THE CONTROL REGISTER (RMCS1)

THE

RETURNED TO NEUTRAL AND THAT NEJTHER ATTENTION BIT

25?

ggg

SEIZES

IS SET.

TEST

THE DRIVE IS IN NEUTRAL.

SEIZES THE DRIVE

529

READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'B': VERIFY THAT

532
ggz

ISSUE A RELEASE COMMAND THROUGH PORT 'B’; VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

gg?

5§35

239
538
223
541

gz;

THE DRIVE

IS SEIZED.

TEST 20 PORT ‘A' INHIBIT SEIZE BY RMCS1 TEST

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET
REQUEST' IF THE DRIVE IS SEIZED.
A.

SEIZE

THE DRIVE

THROUGH PORT

‘B’ BY READING RMCS1.

‘PORT

VERIFY THAI

THE DRIVE HAS BEEN SEIZED.

224

nggrrne CONTROL REGISTER FROM PORT °'A*

547
gzg

ISSUE A RELEASE COMMAND THROUGH PORT 'B'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

b)
546

VERIFY THAT ‘DVA' IS NOT

550
gg}

TEST 21 PORT

553
ggg

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET
REQUEST' IF THE DRIVE IS SEIZED.

'B'

INHIBIT SEIZE BY RMCS?

TEST

556
ggg

SEIZE THE DRIVE THROUGH PORT
THE DRIVE HAS BEEN SEIZED.

ggg

Regg THE CONTROL REGISTER FROM PORT

ISSUE A RELEASE COMMAND THROUGH PORT °'A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION RIT IS SET.

561

562
ggz

565

'A' BY READING RM(CS1.

'PORT

°'R'.

TEST 22 SEIZE BY RMAS TEST

568

TEST THAT WRITING THE APPROPRIATE DRIVE BIT

570

VERIFY THAT °DVA'

IS NOT

)

ggg

569

VERIFY THAT

(RMAS) SEIZES THE DRIVE.

PORT.

INTO THE ATTENTION REGISTER

VERIFY THAT ‘REQUEST IS SET FOR THE OTHER

CZRMRBO RMQS/3/2 DU POR

TST

MACRO Vv04.00

4-APR-81

L
18:06:25 PAGE

6
3-10

SEQ 0073
571
572
573
574
575
570
577
578
579
580
581
582
583
584
585

586
587
588
589
590

591
592
553
594
595
596
597
598
599
600
601
602
603

604
605
606
607
608
609
610
611
612
613

WRITE

ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE
DRIVE SWITCHES TO THE OPPOSITE PORT,
[SSUE A RELEASE THROUGH THE
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL.

APPROPRIATE

DRIVE BIT

TEST 23 INHKIBIT SEiZE BY RMAS

INTO RMAS;

A.
8.

VERIFY

"HAT

THE DRIVE

TEST

VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A
THE DRIVE'S ATTENTION BIT.

°'ZERO'

1S WRITTEN INTO

SELECT A DRIVE NOT BEING TESTED A/wd WRITE ALL BITS, EXCEPT THE
BIT OF THE DRIVE BEING TESTED, 'NTO THE ATTENTION REGISTER.
VERIFY THAT

TEST 24 SET PORT

THE DRIVE

‘'A'

IS STILL

i*. NEUTRAL.

REQUEST TEST

VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST'
DRIVE IS SEIZED BY THE OTHER PORT.

WHEN THE

SEIZE

WRITE 0'S INTO RMDS FROM PORT
SEIZED 8Y PORT ‘B’.

ISSUE A RELEASE COMMAND FROM PORT °'B' AND VERIFY THAT THE DRIVE
SWITCHED TO PORT ‘'A'.
VERIFY THAT THE ATTENTION BIT IS SET FOR
PORT 'A' AND IS NOT SET FOR PORT 'B°.

ISSUE A RELEASE CCMMAND THROUGH PORT ‘A’ AND VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

THE DRIVE

TEST 25 SET PORT

'B'

THROUGH PORT

REQUEST

°'B'

BY WRITING 0°'S

'A';

DRIVE

SEIZE

VERIFY THAT THE DRIVE IS STILL

1S SEIZED BY THE OTHER PORT.

THE DRIVE

INTO RMDS.

TEST

VERIFY THAT WRITING A DRIVE REGISTER SETS

614

615

THE

IS SEIZED.

THROUGH PORT

‘A’

°'PORT REQUEST'

BY WRITING 0'S

WHEN THE

INTO RMDS.

616

618
619

WRITE 0°'S INTO RMDS FROM PORT
SEIZED BY PORT ‘A°.

ISSUE A RELEASE COMMAND FROM PORT °*A' AND VERIFY THAT THE DRIVE
SWITCHED TO PORT 'B'.
VERIFY THAT THE ATTENTION BIT IS SET FOR
PORT 'B' AND IS NOT SET FOR PORT ‘A‘.

ISSUE A RELEASE COMMAND THROUGH PORT 'B' AND VERIFY “HAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

617

620
621
622
623
626
625
626
627

TEST 26 TEST RESET ATTENTION

'A'

°'B';

BY DRIVE

VERIFY THAT THE DRIVE

CLEAR

IS STILL

(ZRMRBO RM0S5/3/2

DU POR

TST

MACRO v04.00

4-APR-81

18:06:25

M
6
PAGE 3~11

SEQ 0014
628
629
630

631

632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
652
663
664
665
666
667
668
669
670
671
672
673
674
675
676

VERIFY

THAT A DRIVE CLEAR COMMAND CLEARS ONLY
SEIZING PORT,

THE ATTENTION BIT OF

THE

ngsgACH PORT

SEIZE

ISSUE A DRIVE

RELEASE THE DRIVE THROUGH PORT 'A'.
VERIFY THAT THE ATTENTION
BIT FOR PORT 'A' HAS BEEN (LEARED AND THE ATTENTION BIT FOR PORT
'‘B* IS STILL SET.

'S ATTENTION BIT.

THE DRIVE

THROUGH PORT

VERIFY

THAT BOTH ATTENTION BITS

'A' BY WRITING 0'S

INTO RMDS.

CLEAR COMMAND,

TEST 27 TEST RESET ATTENTION

'B'

BY DRIVF

CLEAR

VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE AYTENTION BIT OF
SEIZING PCRT.
A.

SE£E$ACH PORT'S ATTENTION BIT.

SEIZE THE DRIVE

ISSUE A DRIVE CLEAR COMMAND.

RELEASE

THROUGH PORT

THE DRIVE

THE

VERIFY THAT BOTH ATTENTION BITS

'B' BY WRITING 0°'S INTO RMDS.

THROUGH PORT

°*B°'.

VERIFY THAT

THE ATTENTION

BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT
*A' IS STILL SET.
TEST 30 RESET ATTENTION

VERIFY THAT

THE

‘A*
BY GO TEST

'GO BIT CLEARS ONLY THE ATTENTION BIT OF

SEIZING PORT.

SET EACH PORT'S ATTENTION BIT,
ATTENTION BITS ARE SET.

SEIZE THE DRIVE
INTO RMDS.

ISSUE A NOP COMMAND.

RELEASE

THROUGH PORT

THE FRIVE

TEST 31 RESET ATTENTION
VERIFY

AND VERIFY THAT BOTH

'A* BY WRITING 0'S

THROUGH PORT

ATTENTION BIT FOR PORT
ATTENTION BIT FOR PORT

THE

‘'A'
'B*'

‘A’ .V ERIFY THAT
IS RESE T, AND THE
IS STIL SET.

THE

'B' BY GO TEST

THAT THE ‘GO BIT CLEARS ONLY
SEIZING PORT,

THE ATTENTION BIT OF

THE

(ZRMRBO RMOS5/3/2 DU POR TST

MACRO Vv04.00

4-APR-81

N
6
18:06:25 PAGE $-12

SEQ 0075

685
686
687
688
689
690
69N
69¢2
693
694
695
696
697
698
699

700
701
702
703
704
705
706
707
708
709
710
1
712
713

714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741

SET EACH PORT'S ATTENTION BIT,
ATTENTION BITS ARE SET.

SEIZE THE DRIVE
INTO RMDS.

ISSUE A NOP COMMAND.

RELEASE THE FRIVE THROUGH PORT 'B'., VERIFY THAT
ATTENTION 31T FOR PORT °'B' IS RESET, AND THE
ATTENTION BIT FOR PORT 'A' IS STIL SET.

TEST

THROUGH PORT

32 TEST RESET ATTENTION

'A’'

AND VERIFY

'B'

THAT BCTH

BY WRITING 0°'S

°'B'

BY MASSBUS

THE

INIT

VERIFY THAT MASSBUS CLEAR
RESETS BOTH PORT'S ATTENTION BITS WHEN THE
DRIVE 1S IN NEUTRAL.
A.

SET

VERIFY THAT THE DRIVE

Isgggf? MASSBUS

VERIFY THAT BOTH ATTENTION BITS HAVE

THE ATTENTION BITS FOR BOTH PORTS.

INIT.

TEST 33 RESET ATTENTION 'A*

IN NEUTRAL.

£ °'B' BY RMAS

VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE
APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER.
A.

SET

VERIFY THE DRIVE

WRITE

THE ATTENTION BITS FOR BOTH PORTS.

IS IN NEUTRAL.

THE DRIVE'S ATTENTION BIT

IN RMAS.

VERIFY

THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS.

TEST 34 PORT

°'A'

ALTERNATE ATTENTION RATH TEST

VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL.
A.

SET

SEIZE

READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT

TEST

THE DRIVE

FOR THE DRIVE

35 PORT

VERIFY
A.

THE ATTENTION BIT FOR PORT

THAT
SET

'B'

THROUGH PORT

'A'.

'B' BY WRITING 0'S

IS SET.

ALTERNATE ATTENTION PATH TEST

THE ALTERNATE ATTENTION REGISTER READ PATH

THE

INTO RMDS.

ATTENTION BIT

FOR PORT

'R'.

IS OPERAT]IONAL.

TIRMRBO wkM05/3/2 DU POR

TST

MACRO V04.00

&-APR-81

18:06:25 PAGE

3-13
SEQ J3C

762

743
7464

7646

749

750
751
752
753
754
755
756
757
758

759

THE DRIVE

THROUGH PORT

*A' BY WRITING 0°'S INTO RMDS.

READ THE ATTENTION REGISTER € VERIFY
FOR THE DRJVE [S SET.

745

747
748

SEIZE

TEST

36 SET ATTENTION

'A’

TEST

THE

PORT

OPERATION OF

COMMAND.

(OMMMAND

THAT

THE

ATTENTION BIT

TEST

A AND PORT

B ATTENTION RITS

AFTLR

ISSUE A OFFSET

WAIT FOR THE OFFSET COMMAND TO COMPLETE (°'DRY' TO BECOME
‘1').
VERIFY THAT THE ATTENTION BIT FOR PORT *A’ IS SET AND
THAT THE ATTENTION BIT FOR PORT 'B’' IS NOT SET.

RELEASE

COMMAND

THE DRIVE

70 NEUTRAL

AND

THROUGH PORT

'A°’.

'A'.

VERIFY THAT

THAT NEITHER ATTENTION BIT

THME DRiVvE RETURNED

SET.

TEST 37 SET ATTENTION

'B’

BY (OMMMAND TEST

TEST

THE

PORT A AND PORT B ATTENTION BITS AFTER A

THE OPERATION OF

COMMAND
.

ISSUE A RECALIBRATE

WAIT FOR

"1°)._

THAT

RELEASE

COMMAND

THE RECALIBRATE

VERIFY

THROUGH PORT

(OMMAND

‘B',

TO COMPLETE

THE ATTENTION BIT FOR PORT

THE DRIVE

'A®

('DRY’

THAT THE ATTENTION BIT FOR PORT

THROUGH PORT

‘A’

°*B°.

'B'

IS NOT SET.

TO BECOME

IS SET AND

VERIFY THAT THE DRIVE RETURN'D

TO NEUTRAL AND THAT NEITHER ATTENTION BIT

TEST 40 PORT

IS SET.

SET VOLUME VALID TEST

VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST.

“A.

787

797

798

WITH PORT 'A' SELECTED, RESET AND SET "UNIT READY"'

STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE
IS SEIZED AND THAT '‘'VOLUME VALID'® IS RESET AND
ATTENTION IS SET.

ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A.
\‘/§R§£¥ THAT ATTENTION IS RESET AND THAT VOLUME VALID

RELEASE

ISSUE A DRIVE

789

791
792
793
794
795

THE DRIVE

FROM PORT

°A‘'

AND SELECT

THE DRIVE

FOR

PORT 'B', VERIFY THAT ATTENTION IS STIL SET AND THAT
VOLUME VALID IS STIL RESET.

PORT

'B'

CLEAR AND A READ

THEN RELEASE

PORT

[N PRESET

'B'.

(OMMAND TO

CZRMRB) RM05/3/72 DU POR

MACRO v04.00

4-APR-81

18:06:25 PAGE

3-14

SE¢ 001/
799
TEST

VERIFY
A.

PORT

'B*'

SET

VOLUME

vALID

THAT VOLUME VALID CAMN BE
WITH PORT

'B*'

SELECTED,

TEST

SET FOR THE PORT UNDER TEST.

RESET AND SET "UNIT READY'’

STATUS USING DIAGNOSTIC MODE.

VERIFY THAT THE DRIVE

IS SEIZED AND THAT ''VOLUME VALID'' IS RESET AND
ATTENTION IS SET.

[ISSUE A DRIVE CLEAR COMMAND AND A READ [N PRESET
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A.
YSRéE; THAT ATTENTION IS RESET AND THAT VOLUME VALID

RELEASE
PORT

THE DRIVE

'A',

FROM PORT

°'B’'

AND SELECT THE DRIVE FOR

VERIFY THAT ATTENTION IS S$TI.

VOLUME VALID IS STIL RESET.

SET AND THAT

ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND
PORT 'A' THEN RELEASE PORT 'A°.

TEST 42 TEST PORT
VERIFY THAT PORT

'A'

TIMEOUT DOES NOT RESET DRIVE

TIMEOUT DOES NOT

INITIALIZE

THE DRIVE.

SEIZE

THE DRIVE

WRITE

1°'S INTO RMER1

WAIT FOR THE DRIVE TO TIMEOUT.
VERIFY THAT THE DRIVE RETURNED TO
NEUTRAL,; THAT ATTENTION IS SET FOR PORT 'A' AND NOT SET FOR
PORT 'B'; AND THAT BOTH PORTS SEE 1°'S IN THE ERROR REGISTER.

TEST 43 TEST PORT
VERIFY THAT PORT

'B'

THROUGH PORT

'A'

BY WRITING 0°'S

THROUGH PORT

'A'

INTO RMDS.

TO FORCE AN ATTENTION.

TIMEOUT DOES NOT RESET DRIVE

TIMEOUT DOES NOT

INITIALIZE

THE DRIVE.

SEIZE

THE DRIVE

WRITE

1°'S

WAIT FOR THE DRIVE TO TIMEOUT.
VERIFY THAT THE DRIVE RETURNED 70
NEUTRAL; THAT ATTENTION IS SET FOR PORT °'B' AND IS NOT SET FOR

PORT

TEST 44 PORT

VERIFY

THAT

SEIZE

WAIT

INTO RMER1

'A';
'A'

'B'

THROUGH PORT

BY WRITING 0'S INTO RMDS.

°'B'.

AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER.

RETRIGGER BY DEMAND TEST

THE PORT
THE

THROUGH PORT

DRIVE

TIMEOUT ONE~SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND.
THROUGH PORT

‘'A'

BY WRITING 0°'S

50C MS AND READ RMDS THROUGH PORT

'A‘.

INTO RMDS.

CZRMRBO RMO5/3/2 DU POR TST

MACRD Vv04.00

4-APR-81

7
D
18:06:25 PAGE 3-15

SEQ 001§
856
ggg

VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 25% OF
TIME.
(THE MEASUREMENT ]S MADE FROM STEP ‘B'.)

859
860
861
862
ggz

VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION
BIT IS SET.

TEST 45 PORT

ggz

VERIFY THAT

'B'

THE SPECIFIED

RETRIGGER BY DEMAND TEST

THE PORT

TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS LEMAND.

gzg

SEIZE

ggg

WAIT SO0 MS

871

VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR ~ 25% OF

874
875

VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION
BIT IS SET.

.g;%

876

THE DRIVE

TIME.

THROUGH PORT

'B' BY WRITING 0'S INTO RMDS.

ASD WRITE 0'B INTO RMDS THROUGH PORT

‘A'.

(THE MEASUREMENT IS MADE FROM STEP 'B‘.)

THE SPECIFIED

877

g;g

TEST

880
gg;

VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES.

46 PORT

'A'

TIMEOUT/RELEASE

TEST

ggz

SEIZE

ggg

SET PORT REQUEST BY WRITING 0'S INTO RMDS FROM PORT

88/
888

ISSUE A RELEASE COMMAND FROM PORT 'B'.
VERIFY THAT THE DRIVE
HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA' BIT DID NOT

ggg

THE DRIVE THROLGH PORT

SET FOR PORT

‘B'.

'B*' BY WRITING 0°'S INTO RMDS.
°'A°'.

PEGISTERS WILL NOT BE CHECKED THROUGH PORT

891
ggg

WAIT THE TIMEQUT
BEEN RELEASED.

894
ggg

RELEASE THE DRIVE THROUGH PORT ‘A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

INTERVAL

+ 25%.

VERIFY THAT THE

DRIVE HAS

897
ggg

TEST 47 PORT

900

VERIFY THAT THE TIMEOUT ONE=-SHOT IS TRIGGERED WHEN THE DRIVE

38}

'B'

TIMEOUT/RELEASE

TEST

SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES.

382

SEIZE THE DRIVE THROUGH PORT

382

SET PORT REQUEST BY WRITING 0'S INTO RMDS FROM PORT

907
908

ISSUE A RELEASE COMMAND FROM PORT ‘A'.
VERIFY THAT THE DRIVE
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA* BIT DID NOT

911

8?8

912

‘A’.

SET FOR PORT 'A'.

‘A’ BY WRITING 0'S INTO RMDS.

REGISTERS WILL NOT BE CHECKED THROUGH PORT °'BR'.

WAIT THE TIMEQUT INTERVAL + 25%.
BEEN RELEASED.

‘B'.

VERIFY THAT THE DRIVE HAS

CZRMRBO RMO-

S ¢ DU POR

TST

MACRO v04.00

4(~APK=-81

18:06:25 PAGE

3-16

SEQ 0019
913
914

915

916
917
918
919

920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
G644
x5
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962

963

TEST SO PORT

‘*A'

VERIFY THAT

THERE

SEJZE ACCESS TEST
IS NO INTERACTION BETWEEN PORTS.

SEIZE

THE DRIVE

WRITE

1°'S INTO RMERT, RMERZ THROUGH PORT

READ RMER1,

'B'

THROUGH PORT

RMERZ

'A' BY WRITING 0°'S

THROUGH PORT

SEES 0'S FROM EACH OF

'B',

INTO RMDS.

‘A’.

VERIFY THAT PORT

THESE REGISTERS.

CLEAR RMER1, RMERZ THROUGH PORT

'A:.

WRITE 1'S INTO RMER1, RMERZ2 THROUGH PORT °'R’',
VERIFY THAT
PORT 'A' SEES 0'S FROM EACH OF THESE REGISTERS.
RELEASE

THE

DRIVE

THROUGH PORT

'A’.,

VERIFY

THAT

THE DRIVE HAS

SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT
SET AND THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET.

ISSUE A RELEASE COMMAND THROUGH PORT °‘B',
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEJITHER ATTENTION BIT |S SET.

TEST 51 PORT

'B'

VERIFY THAT THERE
A,

‘B'

SEJZE ACCESS

IS NO INTERACTION BETWEEN PORTS.

SEIZE THE DRIVE
WRITE

THROUGH PORT

°*B' BY WRITING 0°'S INTO RMDS.

1°S INTO RMER1, RMER2 THROUGH PURT

READ RMER1,

'A'

TEST

RMERZ2 THROUGH PORT

SEES 0'S FROM EACH OF

‘A°,

‘B°.

VERIFY THAT PORT

THESE REGISTERS.

CLEAR RMER1, RMERZ THROUGH PORT

'B°.

WRITE 1°S INTO RMER1, RMER2 fHROUGH PORT 'A'.
VERIFY
PORT 'B’ SEES 0'S FROM FACH OF THESE REGISTERS.
RELEASE

THE DRIVE

THROUGH PORT

°'B'.

VERIFY THAT

THAT

THE DRIVE HAS

SWITCHED TO PORT 'A' AND THAT THE ATTENTION BIT FOR PORT
SET AND THE ATTENTION BIT FOR PORT 'B' IS NOT SET.

ISSUE A RELEASE COMMAND THROUGH PORT
RETURNED

TO NEUTRAL

AND

'A'.

VERIFY THAT

THAT NEITHER ATTENTION BIT

'A'

THE DRIVE
SET.

CZRMRBO RMO5/3/2 DU POR

TST

MA(CRO v04.00

4-5PR~BI

18:06:25 PAGE

SEQ 0020

;*LAST REVISION 04~APR-81

597
598

LTITLE

CZRMRBO RMO5/3/2 DU POR TST

;*DIGITAL EQUIPMENT (ORPORATION
*(OLORADO SPGS., CO. 80919
) 4

*PROGRAM BY MIKE

LEAVITT

;*THIS PROGRAM WAS ASSEMBLED USING THE FDP=11
*PACKAGE (MAINDEC-11-DZQAC-(C5), 18-MAR-81

MAINDEC

SYSMAC

SBTTL

OPERATIONAL

SWITCH

SWITCH SETTINGS
USE

599

HALT ON ERROR

LOOP ON TEST

10
9

INHIBIT JTERATIONS
BELL ON ERROR
LOOP ON ERROR

INHIBIT ERROR TYPEOUTS

601

...

SBTTL

001100

104000

000004
000011
000012
000015
000200
177776
177776
177774

BASIC DEFINITIONS

;*INITIAL ADDRESS OF

STACK
ERROR
SCOPE

= 1100
= EMT

= ]OT

THE STACK PCINTER *=x 1100 =w=
;:BASIC DEFINITION OF
;:BASIC DEFINITION OF

s *MISCELLANEQUS DEF INITIONS

LF
(R
CRLF

STKLMT

1772772
177570
177570

PIRQ

000000
€00001
000002
000003
000004
000005
000006
000007
000006
000007

RO
R1
R2
R3
R4
RS
R6
R7
SP
P(

0009000
000040

PRO
PR1

DSWR
DDISP

=12
=15
= 200
=

177776

= 177774

177772

= 177570
= 177570

;:CODE

FOR HORIZONTAL

J*PRIORITY

X0
X
X2
%3
%4
25
%6
X7
X6
%7

LEVEL

=0
- 40

TAB

;:CODE FOR LINE FEED
;. CODE FOR CARRIAGE RETURN
;:CODE FOR CARRIAGE RETURN-LINE FEED
s ;PROCESSOR STATUS WORD

;:STACK LIMIT REGISTER

;. PROGRAM INTERRUPT REQUEST REGISTER

; HARDWARE SWITCH REGISTER
; sHARDWARE DISPLAY REGISTER

. *GENERAL PURPOSE REGISTER DEFINITIONS
=
=
=
=
=
=
=

ERROR CALL
SCOPE CALL

. ;GENERAL REGISTER
; ;GENERAL REGISTER
. ;GENERAL REGISTER
: :GENERAL REGISTER
;s GENERAL REGISTER
; JGENERAL REGISTER
;s GENERAL REGISTER
:;GENERAL REGISTER
J;STACK POINTER
; ;PROGRAM COUNTER

DEFINITIONS

::PRIORITY LEVEL
J:PRIOCRITY LEVEL

O
1

(ZRMRBO RM0OS/3/2 DU POR
BASIC DEFINITIONS

000100

TST

MACRO v04.00

PR?

PR3
PR4
PRS
PR6
PR?

100000
40000
020000
10000
004000
002000
001000
000400
(00200
000100
000040
000020
000010

SW15
Sw1é
Sw13
SW12
Swi1
Sw10
SWC9
Sw08
Swo7
SW06
SW05
SW04
Sw03

=
=
=
=

100

140
200
240
300
340

:sPRIORITY LEVFL 2

;.PRIORITY
;PRIORITY
;;PRIORITY
;.PRIORITY
;:PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

Sw0?2

= 100000
= 40000

= 20000
= 10000

= 4000

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

SWO1
SW00
SW9=SW09
Sw8=SW08
SW7=SWw07
SW6=5W06
SW5=SW05
SWé=SwW04
Sw3=Sw03
SW2=5w02
SW1=SWw01
SW0=SW00

100000
040000

BIT1S
BIT14

010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
600001
001000
000400
000200

8IT12
= 10000
BITI1
= 4000
BIT1I0
= 2000
BIT09
= 1000
BITO8
= 400
BITO7
= 200
BITO6
= 100
BITOS
= 40
BITO4
= 20
BITO3
=10
BITO2
=4
BITO1T
=2
BITQO
=1
BIT9=R]T109
BIT8=BIT08
BIT7=BIT07

000100
000040

s*' 'SWITCH REGISTER'' SWITCH DEFINIT]ONS

000002
000001
01000
000400
000200
000100
000040
200020
00001C
000004
200002
000001

020000

18:06:¢5 PAGE 4-1
SEQ (0.
-

000140
200200
000240
000300
000340

000004

4~APR-81

:*DATA BIT DEFINITIONS (BITOO TO BIT1S)

BIT13

= 100000
= 40000

= 20000

BIT6=BIT06
BIT5=B]T05

3
4
5
6
7

CZRMRBO RMOS5/3/2 DU POR
BASIC DEFINITIONS

610
611
612

613
614
615
616
617
618
619
620

621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638

639

MACRO v04.00

4-APR-8!

H
7
18:06:¢5 PAGE 4=/

SEQ 002¢

000020
000010
000004
000002
000001

BIT4-BITO4
B8]73-BIT03
BIT2=B]T02
BIT1=BITO1
8170=BI1700

000004
£00010

ERRVEC
RFSVEC

;. TIME OUT AND OTHER ERRORS
::fi$§§gY$D AND [LLEGAL INSTRUCTIONS

IOTVEC

;. TRACE TRAP
; :BREAKPOINT TRAP (RPT)
;o INPUT/0UTPUT TRAP (I0T) »#SCOPExx
;;POWER FAIL
; cEMULATOR TRAP (EMT) =«ERROR**

(L N014

602
603
604
605
606
607
608
609

TST

000014
000020
000024
000030
000034
000060
000064
000240

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES

= 4
=10
TBITVEC = 14
TRTVEC
= 14
BPTVEC
= 14
PWRVEC

EMTVEC

100000

= 30

TRAPVEC = 34
TKVEC
= 60
TPVEC

= 64

PIRQVEC = 240

.SBTTL

000100
000200
000400
063000
002000
020000
040000

= 20

= 24

::"'TRAP'' TRAP

;. TTY KEYBOARD VECTOR
;2TTY PRINTER VECTOR
; ;PROGRAM

INTERRUPT

REQUEST

VECTOR

RH/RM REGISTERS

;CONTROL AND STATUS REGISTER 1

(RM(CS1)

1E
RDY
A16
Al7

s INTERRUPT ENABLE (BIT #6)
JREADY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT (BIT #8)

PSEL
MCPE
TRE

=
=
=
=

100
200
400
1000

= 2000
= 20000
= 40000

= 100000

sHIGH ORDER BUS ADDRESS BIT

;PORT SELECT (BIT #410)

(BIT #9)

sMASSBUSS PARITY ERROR (BIT #13)

;TRANSFER ERROR (BIT #14)
;SPECIAL CONDITION (BIT #15)

;CONTRCL AND STATUS REGISTER 2 (RM(CS2)
000001

000002
000004
000010
000020
000040
000100
000200
000400
001000
002000

004000
010000
020000
040000
100000

uo
ul
u3
BA]

PAT

CLR
IR
OR
MDPE
MXF
PGE
NEM
NED
JPE
WCE
DLT

=1
=2
= 4
= 10

= 20

=
=
=
=
=
=
=
=
=

40
100
200
400
1000
2000
4000
10000
20000
40000
100000

JUNIT SELECT
SJUNIT SELECT
JUNIT SELECT
;BUS ADDRESS

sMASSBUS PARITY TEST

RM REGISTERS

(BIT #4)

;CLEAR (BIT #5)
s INPUT READY (BIT #6)
;OUTRLT READY (BIT #7)

;MASS BUS PARITY ERROR (BIT #8)

JMISSED TRANSFER ERROR (BIT 49)
;PROGRAM ERROR (BIT #10)
:NON EXISTENT MEMORY (BiT #11)
;NON EXISTENT DRIVE (BIT #12)
JUNJBUS PARITY ERROR (BIT #13)
;JWRITE CHECK ERROR (BIT #14)

;DATA LATE

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

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

(BIT #15)

-{RMRBO RMOS5/3/2 DU POR

REGISTERS

640
641
642
043
644

645

646

647
648
649
650
651
652
653
654
€55
656
657
658
659
660
661
662
663
664

665
666
667

668
669
~70

671
672

673
674

675
676
677
678
579
680
681
682

683
684
685
686
687
688
689
690
691
692

693
694
695
696

TST

MACRO Vv04.00

4-APR-81

18:06:25 PAGE 4-3
SEU UU73

sCONTROL AND STATUS REGISTER #1.
000001
000002
000004
000010
000020
000040
004000

GO
F0

F1
F2

F3
Fé
DVA

=1
= 2

;GO BIT (BIT #0)
;FUNCTION CODE BIT #1

=4
= 10

;FUNCTION CODE BIT #2
FUNCTION CODE BIT 43

= 20
= 40
= 4000

FUNCTION CODE BIT #4
JFUNCTION CODE BIT #5
;DEVICE AVAILABLE (BIT #11)

sCONTROL STATUS REGISTER #2
000040

CLR

= BITS

(RM(S2)

;CONTRCLLER CLEAR

;DRIVE STATUS REGISTER (RMDS)
000001
000100
000200
000400
001000
002000
004000
€10000
020000
040000
100000

(#01)

oM
%%
DRY

= BITO0
= 100
= 200

;OFFSET MODE
;VOLUME VALID (BIT #6)
:DRIVE READY (BIT #7)

LBT
WRL

= 2000
= 4000

sLAST SECTOR TRANSFERRED
SWRITE LOCK (BIT #11)

DPR
PGM

MOL

PIP
ERR
ATA

= 400
= 1000
=

;DRIVE PRESENT (BIT #8)
;PROGRAMABLE (BIT #9)

10000

sMEDIUM ON-LINE

= 20000
= 40000
= 100000

JERROR REGISTER #01

0GGOO
000002
000004
000019
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

(#00)

(BIT #10)

(BIT #12)

;POSITIONING OPERATION IN PROGRESS
;COMPOSITE ERROR (BIT #14)
JATTENTION ACTIVE (BIT #15)

(RMER1)

(#02)

ILF
ILR

=1
=2

sILLEGAL FUNCTION (BIT #0)
;JLLEGAL REGISTER (BIT #1)

PAR
FER
WCF
ECH
HCE
HCRC
AOE
IAE
WLE
DTE
OP]
UNS
DCK

=10
= 20
= 40
= 100
= 200
= 400
= 1000
= 2000
= 4000
= 10000
= 20000
= 40000
= 100000

;PARITY ERROR (BIT #3)
;FORMAT ERROR (BIT #4)
;WRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
sHEADER COMPARE ERROR (BIT #7)
sHEADER CRC ERROR (BIT #8)
sADDRESS OVERFLOW ERROR (BIT #9)
; INVALID ADDRESS ERROR (BIT #10)
;WRITE LOCK ERROR (BIT #11)
;DRIVE TIXING ERROR (BIT #12)
JOPERATIOn INCOMPLETE (BIT #13)
sDRIVE UNSAFE (BIT #14)
;DATA (HECK ERROR (BIT 15)

RMR

= 4

JREGISTER MODIFICATION REFUSED

;MAINTAINABILITY REGISTER (RMMR1) (#03)
000001
001000
640000
100000

000001

DMD
MUR
RQB
ROA

=
- BITO09
= BIT14
= BIT15

;DIAGINOSTIC MODE (BI1T 40,
sMAINTENANCE UNIT READY
;PORT B REQUEST FLOP
;PORT A REQUEST fFLOP

JATTENTION SUMMARY PSEUDO-REGISTER (RMAS)

(404)

ATO

(BIT

(BIT #13)

;DEVICE O

#0)

(BIT #2)

(ZRMRBO RM0OS/3/2 DU POR

RM REGISTERS

697
698
699
700

701
702
703
704

713
714
715

716

717
718
719
720
721
722

723
724
725

726

727

728
729
730
731
732
733
7%
735
736
737
738
735
740
741
742
743
764
745
766
747
748
769

750

751
752
753

MACRO v04.00

4-APR-81

18:06:25 PAGE 4~4

SEQ 0024
000002
000004
000010
000020
000040
000700
000200

705
706

707
708
709
710
71
712

TST

AT1
A72
AT3
AT4
ATS
ATé

AT?7

-2
= 4
=10
= 20
= 40
=100

JDEVICE
;DEVICE
;DEVICE
;DEVICE
JDEVICE
;DEVICE

= 200

1
2
3
4
5
6

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

;DEVICE 7 (BIT #7)

;DESIRED SECTOR/TRA(CK ADDRESS REGISTER (RMDA)

; (FACH BIT

CALLZD BY BIT NUMBER)

;DRIVE TYPE REGISTER (RMDT)
000001
000002
000004
000010

000020
000040
000100
000200
000400
004000

020000
040000
100000

;DRIVE
;DRIVE

DT03
DT04
DTO5
DT06

=10
= 20
= 40
= 100

;DRIVE TYPE NUMBER BIT 4
;DRIVE TYPE NUMBER BIT 5
;DRIVE TYPE NUMBER BIT 6
;DRIVE TYPE NUMBER BIT 7

D708
DRQ
MOH
TAP
NBA

=
=
=
=
=

;DRIVE TYPE NUMBER BIT 9
;DRIVE REQUEST REQUIRED (BIT #11)
;MOVING HEAD (BIT #13)
:TAPE DRIVE (BIT #14)
;NOT BLOCK ADDRESSED (BIT #15)

DTOZ

D107

SCO
SC1
SC2
sc3
SC4

= 200

=
=
=
=
=

DPE
DVC
LBC
LSC
Ive
OPE
SK1

OfFD

HCI
ECI
FMT16

TYPE NUMBER BIT 1
TYPE NUMBER BIT 2

;DRIVE TYPE NUMBER BIT 3

;DRIVE TYPE NUMBER BIT 8

400
4000
20000
40000
100000

(#07)

100
200
400
1000
2000

;SECTOR
SSECTOR
;SECTOR
sSECTOR
;SECTOR
(RMER2)

COUNT
COUNT
COUNT
COUNT
COUNT

FIELD
FIELD
FIELD
FIELD
FIELD

O
1
2
3
4

(BIT
(BIT
(BIT
(BIT
(BIT

(¥10)

=10
= 200
= 2000
= 4000
= 10000
= 20000
= 100000

;OFFSET REGISTER (RMOF)
000200
002000
004000
010000

(406)

= 1
=2

RM ERROR REGISTER #2

000010
000200
002000
004000
010000
020000
100000

(#05)

DT00
D101

;LOOK=-AHEAD REGISTER (RMLA)
000100
000200
000400
001000
002000

#1)
#2)
#3)
#4)
#5)
46)

#6)
#7)
#8)
#9)
#10)

;DATA PARITY ERROR
(BIT #3)
¢DEVICE CHECK
(BIT #7)
;LOSS OF BIT CLOCK (BIT #10)
;LOSS OF SYSTEM CLOCK (BIT #11)
SINVALID COMMAND (BIT #12)
;OPERATOR ERROR
(BIT #13)
sSEEK INCOMPLETE (BIT #14)

(#11)

= 200

= 2000
= 4000
= 10000

;DESIRED CYLINDER ADDRESS (RMDC)

;OFFSET FORWARD (BIT #5)

JHEADER COMPARE INHIB:iT (BIT #10)
SERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #12

(#12)

;(EACH BIT IS CALLED BY BIT NUMBER)

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

(ZRMRBO RMOS5/3/2
RM REGISTERS

TST

MACRO

v04.00

4-APR-81

18:06:25

4-5
SEQ 002

;ECC POSITION REGISTER

;29

PAGE

(RMEC1)

(#16)

J(EACH BIT IS CALLED BY BIT NUMBER)

758

;Zg

;ECC PATTERN REGISTER

(RMEC2)

;(FACH BIT IS CALLEC BY BIT NUMBER)

;6}

.SBTTL

DEFINITIONS OF

THE RH/RM ADDRESS INDEXES

RMCST
RMWC

=0
=2
=4
=6
=10
= 12
= 14
= 16
= 20
= 22

763
764

765
766

767
768
769
770
771
772

773
774

775
776

777
778
779

780
;g;

000000
000002

000004
000006

000010
000012
000014
000016
000020
000022

000024
000026

000030
000032

000034
00040
000042

C00044
000046

RM3A
RMDA

RMCS2
RMDS
RMERT
RMAS
RMLA
RMDB
RMMR1T
RMDT

RMSN
RMOF

RMDC
RMMR?
RMER2
RMECT
RMEC2

= 24
= 26

= 30
= 32
= 34
= 40
= 42

= 44
= 46

(#17)

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
;WORD COUNT REGISTER (NOT A DRIVE REG)
;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 01)
JERROR REGISTER #1 (DRIVE REG. 02)
JATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04)
;LOOK AHEAD RESGISTER (DRIVE REG. 07)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)
JMAINTAINABILITY REGISTER (DRIVE REG.
;URIVE TYPE REGISTER (DRIVE REG. 06)

;SERIAL NUMBER REGISTER (DRIVE REG.
;CFFSET REGISTER (DRIVE REG. 11)

03)

10)

;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.
;MAINTENANCE REGISTER #2 (DRIVE REG. 14)
;ERROR REGISTER #2 (DRIVE REG. 15)

JECC POSITION REGISTER (DRIVE REG.
;ECC PATTERN REGISTER (DRIVE REG.

16)
17)

12)

754
755

DU POR

f ZJRMRBO RMOS/3/2 DU POR
(AT(HER

MACRO Vv04.CO

18:06:25 PAGE

7
SFQ 00¢2¢

000000

000174
000176

4-APR-81

.SBTT.

TRAP CAT(CHER

;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ** .42, HALT"'
:*SEUUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

'LOCATION10 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

SREG: LWORD 0
.SBTTL

D4R V1,V

TRAP

TST

}1SOF TWARE SuiTCH REGISTER

STARTING ADDRESS(ES)

000200

000137

002240

JMP

QFSTART

;;JUMP TO STARTING ADDRESS OF PROGRAM

000204

000137

002246

JMP

@#START1

;START AND CHANGE THE RH/RM ADDRESS

.SBTTL
SRR A AR

000046
000052

000210
000046
066110
000052
020000
000210

ACT11

HOOKS

R AR N A AT

A AN AR RN RN AN AN AN ANARRNAA A IR AN NIV RAN SR RARNANRANRA AR

HOOKS REQUIRED BY ACT1

SSZZC—

;SAVE PC

SE?gAD

::13SET LOC.46
'TO ADDRFSS OF SENDAD IN .SEOP

.WORD
20000
.=$SVPC

;;2)SET LOC.52 TO 20000
;2 RESTORE PC

CZRMRBO RM05/3/2 DU POR TSf
TAGS

MACRO v04.00

4-APR-B1

18:06:25 PAGE 6
SEQ 002/

.SBTTL
SRR

COMMON TAGS

AR AN RN NN AR AR A RN R

RN NN RN AR R RN A AN AR R R AN RN RANN SR

AN RNANAN R I

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCAT IONS

:
SNULL

177560
177562
177564
177566
.BYTE

SFILLS:
$FILLC:
$STPELG: -BYTE
$REGAD: -WORD

$REGO:
$TMPO:
:
$TMPY
$TMP2:
$TMP3$TMPG:

$TIMES:

377
001210

000

377

. WORD

.WORD
. WORD
. WORD
. WORD
6UORD

$ESCAPE :0
$BELL:
LASCIZ
$QUES:
LASCIl
$CRLF:
LASCI!
LASCIZ
$LF:
N

RN AR A AR

s ;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR

d
d
) d i

$TKS:

$TKB:
$TPS:
$TPB:

;START OF CCMMON TAGS
;s CONTAINS PASS COUNT
;s CONTAINS THE TEST NUMBER
2 ;CONTAINS ERROR FLAG
;. CONTAINS SUBTEST ITERATION COUNT
; ;CONTAINS SCOPE LOOP ADDRESS
. ;CONTAINS SCOPE RETURN FOR ERRORS
. sCONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
. sCONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °*GOOD' DATA
;;CONTAINS ADDRESS OF 'BAD' DATA
;. CONTAINS ‘GOOD' DATA
;;CONTAINS °'BAD' DATA
; sRESERVED~~NOT TO BE USED

DDISP

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

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

;:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS

b e

.WORD
‘BYTE
-BYTE
-WORD
-WORD
- WORD
- WORD
'BYTE
-BYTE
-WORD
-WORD
-WORD
-WORD
-WORD
-WORD
-WORD
$SAUTOB: .BYTE
$INTAG: ‘BYTE
-WORD
SWR:
-WORD
DISPLAY: . WORD

d d

.=1100
OOO0O0O0O0OOO0O—=LOOC
OO0

$CMTAG:
$PASS:
STSTNM:
$ERFLG:
$ICNT:
$LPADR:
SLPERR:
$ERTTL:
SITEMB:
SERMAX:
:
$ERRP(
$GDADR:
$8DADR:
S$GDDAT:
$8DDAT:

OO—=MNO

APRERRREZ3FL3RRERES

001100

D e

8388883383383383

J*USED IN THE PROGRAM,

;o INSERT FILL CHARS. AFTER A ‘LINE FEED'*
2V TERMINAL AVAILABLE'' FLAG (BIT<07>=0-YES)
;JWHICH

(SREGO) WAS OBTAINED

;s CONTAINS ((SREGAD)+0)
+ sUSER DEF INED
. cUSER DEF INED
:sUSER CEF INED
2 JUSER DEF INED
;JUSER DEF INED

<207><377><377>
12/
<15>
<12>
A AN

;s CONTAINS # OF FILLER CHARACTERS REQUIRED

. :CONTAINS THE ADDRESS FROM

OCOOOOC

COMMON

JsMAX. NUMBER OF ]TERATIONS
JESCAPE ON ERROR ADDRESS

..CODE FOR BELL
J:0UCSTION MARK

AN R RN AT AR AN AR AN

& C]AGE RETURN

1~c FEED

AR AR

NARN RN RN

I AN RN RN

RN AN R

001302

001304
001306

1725642
000104
177546
000100
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
00000
000000
000000
000000
000000
000000
000000

176700
000254

MACRO v04.00

4-APR-81

18:06:25 PAGE

7
SEQ 002¢

LSBTTL

USER DEFINED TAGS

$LKCSR:
$LKCSB:
SLPVEC:
$LKS:

WORD

172540
177546

CHGADR:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
- WORD
. WORD
. WORD
.WORD
.WORD
<WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.SBTTL

RH/RM UNIBUS AND VECTOR ADDRESSES

$RMADR:
SRMVEC(:

WORD

SLLVEC:

PORTA:
PORTB:
PORT(:
RRSTA:
RQSTR:

ASR?:

PTNBR:

SEIZPT:
OPPRT:
TSTNUM:
CKERR:
NOSEIZ:
RELERR:

TIME:
WATCH:
TIMEA:
TIMEAP:
TIMEAM:
TIMEB:
TIMEBP:
TIMEBM:
TIMES:
KYBCTL:

WORD
.WORD

.WORD

172542
104
o
o

172540

TST

vleloleloleloleoleolelolololololelelelololelolols] —

CZRMRBO RMO5/3/2 DU POR
USER DEFINED TAGS

176700

254

;ADDR OF
;ADDR OF
;ADDR OF
;ADDR OF
;ADDR OF
sADDRESS
;ADDRESS
sADDRESS
JREQUEST
JREQUEST

KW11~P STATUS REGISTER
KW11=-P COUNTER BUFFER
KW11-P VECTOR
KW11-L STATUS REGISTER
KW11~L VECTOR
OF PORT A
OF PORT B
OF DIFFERENT DRIVE
BIT FOR PORT A
BIT FOR PORT B

;ATA=A OR ATA-B = 1

;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS
;CONTAINS THE ADDRESS OF THE SEIZING PORT
;CONTAINS THE ADDRESS OF THE °OFPOSITE' PORT
;NUMBER OF THE CURRENT TEST
;1F <1, A REGISIER MISCOMPARISON OCCURRED
;1F =1, THE PORT IN °SEIZPT' DID NOT SEIZE THE DRIVE
;IF =1, THE PORT IN 'SEIZPT*® DID NOT RELEASE THE DRIVE
;ELAPSED TIME COUNTER

;WATCH DOG TIMER LOCATION

;THE TIMEOUT ONE~SHOT VALUE MEASURED THROUGH PORT A

;PORT A TIMEOUT VALUE

+ 25%

;PORT A TIMEOUT VALUE - 25%
;THE TIMEOQUT ONE-~SHOT VALUE MEASURED THROUGH PORT B
SPORT A TIMEOUT VALUE + 25%

;PORT B TIME VALUE - 25%

;STORAGE FOR TIMEQUT ONE-SHOT RETRIGGER TEST

sSINGLE
s CHANGE

TEST INDICATOR
THE RH/RM ADDRESS INDICATOR

JRH/RM UNIBUS ADDRESS

; INTERRUPT VECTOR ADDRESS

CZRMRBC RMO5/3/2 DU POR TST

ERROR POINTER

TABLE

MACRO v04.00

&4-APR-81

8
8
18:06:¢5 PAGE 8
SEQ 002%

.SBTTL

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

J*NOTEY:

J«NOTE?2:

M
ot
001310

cERROR

S C01312

6 001314
g 001316

DT
DF

s sPOINTS TO THE DATA
;:POINTS TO THE DATA FORMAT

072724

EMI

077341

DH1

101230
121576

;WRONG DRIVE

TYPE

DTI
DF1

JERROR 2

11 001320
12 001322

072745
077341

EMe
DH1

}é 0013¢6

101516

DF1

13 0013264

101230

;DRIVE NOT ON LINE

;ERROR 3

18 001330
19 001332

20 001334
S; 001336

072767
077412

101244
101516

EM3
DH3

;SERIAL NUMBERS NOT

EM4
DH4
DY?
DF7

;DRIVE NOT SEIZED BY PORT 'N'

EMS
DHS
DTS
DFS

JWRONG STATUS SEEN BY THE SEIZING PORT

EM6
DH13
D113
DF§

JREGISTER (ONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZFD

THE SAME

D13
DF1

:ERROR &

25 001340
26 001342
27 001344
Sg 001346

073051
077461
101312
10151

32
33
34
%2

;:POINTS TO THE ERROR MESSAGE

;:POINTS TO THE DATA HEADER

$ERRTR:

4 Q01310

IS PERTINEMT,

(SERRPC).

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

]

THIS NUMBER INDICATES WHICH ITEM IN THE TABLE

SITEMB IS O THE ONLY PERTINENT DATA IS

;ERROR §

001350
001352
001354
001356

073102
0/7604
101260
101523

39 001360
40 001362
41 001364
42 001366

‘

JERROR 6

073150
100054
101332
101523

CIRMRB) RMOS5/3/2 DU POR
ERRCR POINTER TABLE
63

TST

MACRD v04.00

4-APR-81

18:06:25 PAGE

8-1

Sto 0030

JERROR 7

46 001370
47 001372
48 001374
49 001376

073250
077660
101312

101531

EmM?
DH?7

;REGISTER CONTENTS INCORRECT AFTER RELEASE/T TMMEQUT

D17
DF?7

JERROR 10
53
34
55
56

001400
001402
001404
001406

073331
077604

101260

101523

EMI0
DH5
DTS
DFS

JREGISTER CONTENTS INCORRECT

SERROR 11

60
61
62
63

001410
001412
C01414
001476

073361

100003
101230
101516

EM11
DH11
DT
DF1

:CONTROL BUS PARITY ERRNOR WHILE READING REGISTER

;ERROR 12
67 001420
68 001422
69 001424
70 001426

073645

100550
101420
1015644

EM12
DH36
D737
DF 36

;DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND

JERROR 13
76 001430

75 001432

76 001434
77 001436

073515

100054
101332
101523

EM13
DH13

;'VOLUME VALID' BIT NOT SET BY READIN PRESET

DT13
DF5
JERROR 14

81 001440

82 001442
83 001444
84 001446

073602
100054
1017232
101523

EM14
DH13
DT13
DFS

;'VOLUME VALID' SET ON THE OPPOSITE PORT

SERROR 15
88 001450
89 001452
90 001454
91 001456
92
93
9%
95 001460
9% 001462
97 001464
98 001466
99

073645
077660
101312
101531

EM1S
DH?
D17
DF?7

;sTHE ATTN BIT WRONG AFTER

TIMEQUT ~ REQUEST NOT

JERROR 16
073724
077660
101312
101531

EM16
DH?7
D17
DF7

JATTN BIT WRONG AFTER RELEASE

- REQUEST WAS SET

SET

«ZRMRBO RMO5/3/2 DJ POR TST
ERROR POINTER TABLE

;89 '
073777
077660

}82 001476

101531

101312

}8§

}}g 001506

074056
100550
101420

1015644

}}g

18:06:25 PAGE 8-2
SEQ 0031

EM17
DH?

;ATTN BIT WRONG AFTER RELEASE =~ RFQUEST NOT SET

D17

DF7

FM20
DH36
D137

;DUIVE NOT

SEIZED WHEN ATTIN BIT FOR PORT

CLEARED

DF 36
:ERROR 21

116 001510
117 001512

074136
100550

}53 C01516

101544

118 001514

101420

}S;

EM21
DH36

;DRIVE

SEIZED WHEN 2ERO WRITTEN IN ATTN BIT FOR PORT

DT37

DF36

;ERROR 22

123 001520

124 001522
125 0015246

}59 001526

074211

100174
101350

101540

;gg

EM2?2

DH2?2
DT22

;DRIVE NOT IN NEUTRAL AFTER TIMECUT, REQUEST NOT SET

DF31

:ERROR 23
001530
001532
001534
001536

074276
100272
101362
101516

}%2
137 001540

138 001542
139 0015446

(074344

100272
101362

140 001546
141
142

101516

145 001550
146 001552
147 001554
148 001556
149
150

074423
100550
101410
101544

; TIMEOUT CLEARED THE DRIVE'S ERROR BIT

153 001560
154 001562

074466
100174

156 001566

101540

EM24

DH23
D123

JRELFASE

COMMAND RELEASED DRIVE WITH ERRORS SET

DF1

;ERROR 25

};}

155 001564

EMZ3
DH23
0723
DF1

;ERROR 24

}22

—

4~APR-81

;ERROR 20

109 001500
110 001502
111 001504

130
131
132
}gz

MACRO V04.00

:ERROR 17

102 001470
103 001472
104 001476

EM2S
DH36
D136
DF 36

:TIMEOUT ONE-SHOT DID NOT RETRIGGER

;ERROR 26

101350

EM26
DH2?2

D122
DF 31

;DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET

“ZRMRBO RMO5/3/2 DU POR TST

ERROR POINTER

TABLE

157

{gg

MACRO v04.00

4-APR-81

18:06:25 PAGE 8-3
>EQ 003¢

*ERROR 27

160 001570
161 001572
182 001574

}gz 001576

9074553
077660
101312

10153

;gg

EM27
DH7
DT?

JREGISTER WRONG AFTER RELEASE

WITH REQUEST

SET

DF7

JERROR 30

167 Q01600
168 001602
169 001604

};? 001606

074631
100550
101410

101544

};%

EM30
DH36
D136

sDRIVE

SEIZED BY RELEASE

[SSUED WHEN DRIVE

[N NEUTRAL

DF36

JERROR 31

1764 001610
175 001612
176 C01614

};g 001616

074726
100451
101376

101540

};8
181
182
183
}gé

EM31
DH31
DT31

;DRIVE NOT SEIZED BY PCRT AFTFR RELEASE wlITH REQUEST SET

DF 31

:ERROR 32
001620
001622
001624
001626

075003
077604
101260
101523

}gg
188 001630

189 001632

075054

100550

101410
101544

195 001640
196 001642
197 001644
}33 001646

075156
100550
101410
101544

209 001660
210 001662
211 001664
g}% 001666

COMMAND

.
.

EM33
DH36

;DRIVE

RETURNS TO NEUTRAL

IF DRIVE

CLEAR GIVEN WHILE DRIVE

D136
DF36

EM34
DH36
D136

SEIZED

:ERROR 34

58?
203 001652
204 001654
205 001656
206
582

JATTN Bl WRONG AFTER RECALIBRATE

JERROR 33

190 001634
191 001636
192
;gz

202 001650

EM32
DHS
DTS
DFS

;DRIVE RETURNS TO NEUTRAL

[F MASSBUS INIT GIVEN

ILE DRIVE SEIZED
!

DF 36

:ERROR 35

075261

100550
101420
101544

EM35

DH36
Dr3z
DF 36

sDRIVE DID NOT RETURN TO NEUTRAL BY TRIGGERING TI“EOUT ONE SHOT

;ERROR 36
075340
100550
101410
101544

EM36
DH36
DT36
DF 36

s TIMEQUT HAS NOT OCCURRED WITHIN 2 SECONDS

7 RMRBO RMOS/3/2 DU POR

ERROR POINTER TABLE

TST

MACRO

217 001672
218 001676
S;g 001676

075412

EM37

100550
101420
101544

DH36
D137
DF 36

SS;

8
8-4

:DRIVE IS NON-EXISTENT

:ERROR 40

223
224
225
226
227

001700
001702
001704
001706

075460
077341
101362
101516

230
231
232
233
234

001710
001712
001714
CL1716

075535
100272
101362
101516

Sgg

]

;

EM4O
DH1
D123
DF1

JATENTION FOR PORT NOT RESET BY MASSBUS CLEAR

EM4I
DH23
DT23
DF1

;TIMEOUT CLEARED ATTENTION BIT

;ERROR 41

‘

:ERROR 42

237 001720
238 001722
239 001724
52? 001726

075577
100577
101430
101547

Sz%

EM42
DH4?2
D~ .2
DF &

;DRIVE NOT IN NEUTRAL OR SEIZED

:ERROR 43

001730
001732
001734
001736

075665
100577
101430
101547

Sgg

251 001740
252 001742
253 001744

522 001746

258 001750

259 001752
260 001754
2671 001756
26¢
ggz

075742
100616
101376
101540

:DRIVE

IN NEUTRAL AFTER ATTENTION BIT WRITTEN

EM44
DHGL4
DT

SWRITE ATTENTION BIT DID NOT SET PORT REQUEST

DF 31

;ERROR 45

076017
077341
101230
101516

EM4LS
DH1
DT1
DF1

.
~

;PORT SELECT SWITCH ON DRIVE NOT IN ‘A/R’

;ERROR 46

265 001760

076071

ggg 001766

101540

266 001762
267 001764

EM43
DHL2
DT42
DF&42
:ERROR 44

229

270

F
18:06:25 PAGE

:ERROR 37

216 001670

244
245
266
247
248

&-APR-81

SE0 LU3Y

S;é

Sgg

v04.00

100714
101436

EM4L6

DH46
DT46
DF 31

:ERROR 47

sCAN'T ACCESS DRIVE THROUGH EITHER PORT

}

271
272 001770
273 001772
274 001774
275 001776
276
277

278

291
292
293 002020
294 002022
295 002024
296 002026
297
298

002030
002032
002034
002036

18:06:¢5 PAGE

8-5

076140

EM47
DH23
D123

100272
101302
101516

JATIN BIT

FOR SEIZING PORT NGT

JATTN BIT

FOR OPPOSITE

(LEARED BY DRIVE

CLEAR

DF1

;ERROR 50
076226
100054

EMSQ
DH13
D113
OF5

101332
101523

PORT

CLEARED BY DRIVE

(LEAR (OMMAND

JERROR 51
076310
077604

EMS1
DHS

101260
101523

JATTN BIT NOT

CLEARED BY MASSBUS

INIT,

DRIVE

IN NEUTRAL

DTS
DFS

;ERROR 52
076377

EMS2

100054
101332
101523

DH13
D113

JATTN BIT

SET AFTER

TIMEOUT,

"ERR’

SET, NO REQUEST

DF5

;ERROR 53
076472

EMS3

100272
101230
107516

DH23
DT
DF1

sCAN'T READ ATTN BIT FROM OPPOSITE PORT

b —d

002040
002042
002044
002046

b —d cd
—t

076553

EM54
DH2?2
D154

100174
101450
101540

sRELEASE COMMAND RECOGNIZED WHEN I5SUFD BY NON-SEIZING PCRT

DF 31

;ERROR 55
002050
002052
0C2054
002056

076646

EMS5
DH55
DT55
DF 55

101011
101462
101551

s TIMEQUT ONE-SHOT IS LESS THAN 500 MS

.ERROR 56

002060
002062
0020€4

324 002066
325
320
327

076713

EMS6
DH56
DT56
DF 56

101067
101474
101555

JERROR

;RH/RM DIDN'T RESPOND

—

TO ADDRESSING

4-APR-81

JERROR 54

NWNIN
N NN

279 02000
280 002002
281 002004
282 062006
283
284
285
286 002010
287 002012
288 002014
289 002016
290

TABLE

MACRNO v04.00

ERROR POINTER

/RMRBO RM0S/3/2 DU POR TST

JRMRBO RMOS5/3/2 DU POR

ERROR POINTER

328
329 002070
330 002072
331 002074
332 002076
333
334
335
336 002100
337 002102
338 002104
339 002106
340
341
342
343
344
345
346
347
348
349
350
351
352
353 002126

354

355
356
357 002130
358 002132
359 002134
360 002136
361
362
363
364 202140
365 002142
366 002144
367 002146
363
369
370
371 002150
372 002152
373 002154
374 002156
375

TABLE

TST

MACRO v04.00

EMS7
DH57
D157
DFS

101076
101500
101523

:ERROR

077017
077604

;PCRT REQUEST FLOPS WRONG

EM6O
DH5

101260
101523

JATTENTION BITS NOT RESET BY RMAS

DTS
DF5
;ERROR

077063

EM6!
DH23
DT23
DF1

100272
101362

101516

;ERROR
077115
101332
101523

SATTENTION NOT RESET BY GO

EM62
DH13
DT13

100054

SJATTENTION RESET BY GO WHEN NOT SEIZED

DF5

. ERROR
077163
100550

63
EMG3
DH36
D136
DF 36

101410
101544

;ERROR

077225
077660
101312
101531

sDRIVE SEIZED BY UNIT READY CHANGE

EM64
DH7
D17
DF7
;ERROR

101260
101523

18:06:5 PAGE 8-6
SEQ 003

076756

077274
077604

4-APR-81

SATTENTION NOT SET BY UNIT READY CHANGE

EM65
DHS
DTS
DF5

;VV NOT RESET BY UNIT READY

(/RMRBO RMOS5/3/2 DU PGR TST

POPNOPNININ) = s —

—
vt
=
0O NN
WNI OOV~

[0 RV, IF SN W] G RN

FRRCR POINTER

TARLE

MACRO v04.00

4-APR-81

sTHIS ROUTINE

002160

002162
002164
002166
002172
002232
002232
002234
002236

011600
005740
022626
104401

000417

BADTMO:

001302

02246

012737

177777

002254
002256
002262
002264

000240
005227
001375
000005

002412
002416
002424

012737
012737

002432
002440
002446

013746
012737
012737
012737
022777
001012

002450
002452

000403
012716

,658

:;TYPE ASCIZ STRING

;SETUP FOR TYPING OUT PC

(SP)+,(SP)+

001140

'HALT(0)'

INSTRUCTION HERE
TIMEOUT.

YOU WISH

(LR

START1: MOV
NOP
INC
BNE

CHGADR

;CLEAR

#-1,CHGADR

sSET THE

#0
.4

;TTY LOOP,
;OF WORD

START?2

INITIALIZE

THE

°‘'(HANGE

;GO TO THE START

RH/RM ADDRESS'

'CHANGE RH/RM ADDRESS'

INDICATOR

WAIT FOR INCREMENT

;CLEAR THE WORLD

THE COMMON TAGS

CMP
BNE

#SWR ,R6
. :DONE?
.~6
;:LO0P BACK IF NO
MOV
#STACK ,SP
;. SETUP THE STACK POINTER
soINITIALIZE A FEW VECTORS
MOV
#$SCOPE ,a#10TVEC ;10T VECTOR FOR SCOPE ROUTIME

001100

066364
000340
066746
000340
072304
000340
065746
01176
001200
000001
002376
002404

002460

;PUT

;TO STOP ON UNEXPECTED

;;CLEAR THE COMMON TAGS ($CMTAG) AREA
MoV
N#SCMTAG,R6
;oFIRST LOCATION TO BE CLEARED
(LR
(R6) +
. cCLEAR MEMORY LOCATION

001100

177570
177777

*RESTORE STACK POINTER

START OF PROGRAM

RESET

000004
002452
177570

OUT OCCURED

TYPE

RO, =(SP)

.SBTTL

112737

TIME

?egoc

STARTZ2:

000000

THE

START:

001302

;SAVE P( WHERE
YADJUST PC =2

-(RO}

NOP

005037
000403

012737
012737
012737
012737
012737
012737
013737
005037
005037

(SP) ,RO

TIMEOUTS

é4$
“:GET OVER THE ASCIZ
<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

.SBTTL

002306
002314
002322
002330
002336
002344
002352
02360
002364
002370
002376
002404

HANDLES UNEXPECTED

BR
LASCIZ

000240

002240
002244

éigss:

104402

012706
005026
022706
001374
012706

CMP

002174

10046

002266
002272
002274
002300
002302

MOV

18:06:¢5 PAGE

MOV
MOov
MoV

MOV
MOV
MOV
(LR
CLR
MovB
MOV
MOV

#340,a#I0TVEC+2 ;:LEVEL 7
N#SERROR ,a#EMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
#340, GNEMTVEC+? ; LEVEL 7

N#STRAP
Q¥ TRAPVEC ;.TRAP VECTOR FOR TRAP CALLS
#340, ¥ TRAPVEC+2;LEVEL 7
SENDCT ,$EOPCT
;;SETUP END-OF -PROGRAM COUNTER
$1IMES
;s INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;;CLEAR THE ESCAPE ON FRROR ADDRESS
#1,SERMAX
;.ALLOW ONE ERROR PER TEST
#.,SLPADR
s INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR
;;SETUP THE ERROR LOOP ADDRESS

;.S1ZE FOR A HARDWARE SWITCH REGISTER.

IF NOT FOUND Ok IT IS

;;EQUAL TO A "=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
Mov

000004
001140
001142
176472

~(SP)

;;SAVE ERROR VECTOR

#64S ,I¥ERRVEC

(MP
BNE

#~1,3SWR
66%

;. TRY TG REFERENCE HARDWARE SWR
2:BRANCH IF NO TIMEOUT TRA® OCCURRED

659
#65%, (SP)

;JBRANCH IF NO TIMEOUT
2. SET UP FOR TRAP RETURN

MOV
MOV

64%:

WERRVEC

MOV

BR
Mov

#DSWR, SWR
#DDISP,DISPLAY

;. SET UP ERROR VECTOR

;.SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

;;AND

THE HARDWARE SWR S NOT

</RMRBO RM(05/3/2 DU POR TST
INITIALIZE THE (OMMON TAGS

002456
002460
002466
002474

012737
012737
012637

000176
000174
000004

002500
27 002506

012737
012737

002160
000300

28
29

000002

MACRO v04.00

005227
001037

022737
001433
104401

000430

66%:

000004
000006

MOV
MoV

002540

;. 68%:

30
31 002650
32 002654
35 002660
34 002664
35 002666
36 002672
37 002700
38 002702
39 002706
40 00271C
41 002716
42 002722
43 002730
44 002734
45 002740
46 002744
47 002750

002754
002756
002757
48 002760
49 002764

002770
002772
002773
50 002774

.SBTTL

000042
001140

000176

112737

000001

001134

004737
004737
104401
104412
012637
023727
101403
104401
000762
013737
005237
042737
013746
042716
052637
104401
013746

070610

104406

000403

003246
072372
001224

001224

104403
001

000

104401

013746

104401

1%:

000007

001226
001226

2%:

CMP
BEQ
TYPE
BR
LASCIZ

072473
001226

JSR
JSR
TYPE
RDOCT
MoV
CMP
BLOS
TYPE
BR
MOV
INC
BIC
MOV
BIC
BIS
TYPE

MoV

BYTE
.BYTE

TYPE
Mov

TYPOS

001207

(SP) + ,@#ERRVEC

::RESTORE\FRROR VECTOR

A#BADTMO,ERRVEC
#PR6 ,ERRVEC+?

67%

HSEND
, d#42
AD
678

,68%

67%

JSETUP FOR UNGXPECTED TIMEOUT

JLEVEL 6

[F FIRST PASS
::FIRST TIME?

;:BRANCH IF NO

JoALT=112

;:BRANCH IF YES

;:TYPE

ASCIZ

STRING

;:GET OVER THE ASCIZ

<CRLF>aCZRMRBO -~ RM0S5/3/2 DUAL PORT LOGIC

TEST,

GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
W62
:;ARE WE RUNNING UNDER XXDP/A(CT?
BNE
693
;sBRANCH IF YES
CMP
SWR,#SWREG
;. SOFTWARE SWITCH REG SELECTED?
708
BNE
J;BRANCH IF NO
GTSWR
;:GET SOFT-SWR SETTINGS
70%
BR
#1,8AUTOB
MOVB
;. SET AUTO~MODE INDJCATOR

TYPOS

104403

001
000

69%:
70%:

072421
001224
001226
000016
001224
177771
001226
072444
001224

TO SOF TWARE SWR

#SWREG,
SWR
;;POINT
#DISPREG,DISPLAY

TYPE PROGRAM NAME
THE NAME OF THE PROGRAM
-1
INC

BNE

000042

67%:
005737
001006
023727
001005

Mov
MOV
MOV

;SETUP "'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

;. TYPE

002620
002620
002624
002626
002634
002636
002640
002642
002650

9-~1

RT]

177777

066110

18:06:25 PAGE

Sew 003/

.SBTTL

002514
002520
002522
002530
002532
002536

4-APR-8'

BYTE
.BYTE

TYPE

PC,$TKINT
PC, CHANGE

ENTERA

(SP)+ ,PORTA
PORTA %7

2$
LADRERR

1s
PORTA,PORTB
PORTB
#16,PORTB
PORTA,={SP)

;SETUP THE

TTY KEYBOARD

$CHECK/CHANGE THE RH/RM ADDRFSS
:ENTER DRIVE ADDRESS
:GET THE ADDRESS
:STORE THE ADDRCSS
:SEE IF ADDRESS TOO LARGE
:BR IF NOT
:TYPE ADDRESS ERROR MESSAGE
:TRY AGAIN

*GENERATE THE PORT B ADDRESS
; INCREMENT THE ADDRESS
:LEAVE BIT 0

:PUT PORT A ADDRESS ON THE STACK
- --—<SAVE BITS 1 & 2
(SP)+ ,PORTB
w3t
IS 1 & 2 IN PORT B ADDRESS
;'PORT
A ADDRESS IS °*
LPORTAIS
PORTA,=-(SP)
;:SAVE PORTA FOR TYPEQUT

#~C6, (SP)

,PORTBIS
PORTB,~(SP)
1

0
.$CRLF

::TYPE PORY A ADDRESS
;160 TYPE--OCTAL ASCII
J:TYPE

DIGIT(TM)

;. SUPPRESS LEADING ZEROS

;'PORT B ADDRESS IS '

;;SAVE PORTB FOR TYPEOUT

;:TYPE PORT B ADDRESS

;.60 TYPE--QCTAL ASCII

s;TYPE

DIGIT(S)

; s SUPPRESS LEADING ZEROS
;ANOTHER CR=-LF

1a<(CRLF>

CZRMRBO RM0O5/3/2 DU POR TST 1
MA(CRO v04.00
GET VALUE FOR SOf TWARE SWITCH REGISTER

104401
000000
000776

#6,PORTC

MOV
MOVB

PORTA,R1
ATARIT(R1),ASR

TYPE

JNOCLOCK

CLR
CLR
CLR
CLR
JSR
JMP

3s:

PORTA,PORT(

ADD

BIC

001234

K
8
18:06:25 PAGE 9~-¢

SEQ 0V3E
MoV

HALT

#*(7,PORTC

TIMEA
T IMEAP
1IMEB
TIMEBRP
PC,CKCLK
EXEC
3

;GENERATE ADDRESS OF DRIVE NOT TESTED
. COMPLEMENT SOME BJTS
;SAVE ONLY LOWER BITS
;USE PORT A ADDRESS AS INDEX
;GET ATTENTION BIT FOR DRIVE
;CLEAR TIMEQUT ONE-SHOT VALUE LOCATION
;CLEAR TIMEQUT ONE-SHOT VALUE LOCATION
;CLEAR TIMEQUT ONE-SHOT VALUE LOCATION
;CLEAR TIMEOUT ONE~SHOT VALUE LOCATION
;SETUP CLOCK
;CLOCK HAS BEEN STARTED
:NO CLOCK ON SYSTEM

;FATAL

ERROR

;INTERLOCK THE HALT

JROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR

012706
004737
000240
004737
005037
005037
112737
012737
012737
104401
104412

012601
001002
000°
0201.)/
003403
104401
000763
005301
006301
016137
005237
012737
000177
000000

EXEC:

177776

001207

001304
001100
066130
070610
001300
001100
000001
003146
003154

104401
104401

JSR
CLR
CLR
MOVB

PC,S$TKINT
KYBCTL
$PASS
#1,SERMAX

MoV
BNE
JMP
cMP
BLE

(SP)+ ,R1
23
TST1
R1,MAXTN
3s

B8R

MOV

NOP

1%:

003374
101702

2%:

072600

MOV
MoV
TYPE
RDOCT

TYPE

3s:

003244
001104

4%:
; CHANGE

005737
001421
005037
104401
013746
104402

JSR

PS
,S$CRLF
SRMADR,
RO
#STACK,SP
PC.CKCLK

MOV

072560

101556
001300
000001
000000

RESET
CLR
TYPE

000005
005037
104401
013700

67 003074
68 003076
459 603102
70 003106
71 003112
72 003116
73 003122
74 003124
75 003130
76 003134
77 003140
78 003146
79 003154
80 003162
81 003166
82 003170
83 003172
84 003174
85 003200
86 003204
8?7 003206
88 003212
89 003214
90 003216
91 003220
92 003226
93 003232
9% 003240
95 003244
96
97
98
99 003246
100 003252
101 003254
102 003260
103 003264
104 003270
105 003272
106 003276

005037
005037
005037
005037
004737
000137

001230
001230
001230

—

116137

001224
000006
177770
001224
101672
001262
001264
001270
001272
066130
003074
072522

—

003014

003022
003026
003034
603040
003044
003050
59 003054
60 003060
ol 003064
62 003070
63 003072
64
65

013737
C62737
042737
013701

el=le)

003000
003006

[olela)

51
52
53
56
53
58

4=-APR-81

.BADNO

DEC

MOV

#1,81CNT

.WORD

ASL
MOV
INC

JMP

R1
TSTADR(R1)
,48
KYBCTL

24$

:EEEC? THE PROCESSOR STATUS WORD
;RH/RM ADDRESS FOR

;LOAD STACK POINTER
;START THE (CLOCK
SRETURN IF NO CLOCK

INDEXING

sINITIALIZE THE KEYBOARD
;CLEAR SINGLE TEST INDICATOR
;CLEAR THE PASS COUNT

sSET ERROR MAX T0 1
JINITIAL SETTING FOR LOOP ADDRESS
;INITIAL SETTING FOR LOOP ON ERROR ADDRESS
;ASK FOR TEST NUMBER
sGET THE NUMBER

sPUT ENTRY INTO R1
;B8R _IF NOT ZERO
sENTER ZERO - PERFORM ALL TESTS
;SEE IF NUMBER GREATER THAN MAXIMUM
;BR IF LESS OR EQUAL
;BAD ENTRY

:TRY AGAIN

;DECREMENT ENTRY
sSHIFT IT LEFT
;GET THE TEST ADDRESS
sSET SINGLE TEST INDICATOR
¢PRESET ITERATION COUNT
;GO TO THE SELECTEC TEST
;TEST ADDRESS GOES HERE

THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM

001302

CHANGE: TST

001302
072640
001304

1%:

001207
072675

#. SLPADR
#.,8LPERR
.TESTNO

;CLEAR EVERYTHING

B8EQ

CLR
TYPE
MOV
TYPOC
TYPE
TYPE

CHGADR

3¢

CHGADR
JADDRI]S
$RMADR,~(SP)
:
LSCRLF
JNTRH

; CHANGE THE ADDRESS ?
;BR IF NOT
sCLEAR THE INDICATOR
;TYPE QUT WHAT THE PRESENT ADDRESS IS
;PUT THE ADDRESS ON THE STACK
:I;PEFTHE ACTUAL ADDRESS
;ASK FOR NEW ADDRESS

C(ZRMKBO RMOS/3/2 DU POR TST 1
MACRO V04.00
GET VALUE FOR SOFTWARE SWITCH REGISTER

107 003302
108 003304

09 003306
0 003310
1

003314

2 003316
3 003324

4 003330

(01402
011637

001304

012737

003336

005726

013700

005760
000404

104056

001304

000004

9 003346
0 003354

012737
000207

000006

000745

2%:

3$:

000004

S$:

18:06:25 PAGE 9-3
SEQ0 0039

RDOCT
TST
BEQ
MOV
TST
MOV
MoV

TST

4%:

062706

8 003344

000004

000002

7 003340

[a 0 S

3 —d —d

5 003334
6 003336
003336

104472
005716

4-APR-81

EMT

(SP)

;0 OR

'CR'

JBR IF EITHER ENTERED (NO AUDRESS CHANGE)
sNEW RH/RM ADDRESS

#6S, N

;LOAD TRAP ADDRESS

RMWC (RO)

sRESPONDS AT THAT ADDRESS ?

(SP) +

$RMADR, RO

;CORRECT THE STACK POIMTER

;GET RH/RM ADDRESS

JBR [F

YES
THE

ADD

#4,SP

JRESET

MOV
RTS

#6, 44
PC

JRESTORE
JRETURN

ENTERED ?

23
(SP) , $RMADR

STACK FOINTER

;GET ADDRESS AGAIN

THE VECTOR

(ZRMRBO RMO5/3/2 DU POR ST
TESTS

MACRO Vv04.00

SEQ C04(

.SBTTL

17 003356

18 003362
003366
003372
g 003374

013700

012746
012746
00000

M
8
18:06:25 PAGE 10

&-APR-81

001304

TESTS

TST1AA:

000240
003374

MOV

648
:

SRMADR , RO

MOV
MOV
RTI

;;RESTORE RO AFTER END OF

#PRS = (SP)
#64S . ~(SP)

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

PASS

::ittti‘ttttttfifil*l'.'l"t""'tttttttfi'ttttttfittttit*tttQttttttttt

SRTEST

NEUTRAL ACCESS TEST

. %

:*VERIFY

THAT

THE DRIVE

IS ACCESSIBLE

TO BOTH PORTS

SELECT DRIVE,

DRIVE
AND

THE

DRIVE

IS PRESENT,

THAT

THE

IS A DUAL PURT RMO5, RMO3 OR RMO2 AND THAT THE DRIVE

IS ONLINE

VERIFY THAT

THE

(RMDS HAS

'MOL',

'PGM',

'DPR',

'DRY' BITS 3ET),

THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS IS

“HE SAME.

:*
* %

003374

THE TEST IS REPEATED THROUGH BOTH PORTS.

:'"t\'*ttit'tl’t.tt'fi**.tt*ittfifififikfitt.fittl't*ttfit'titttittttttttt*t

1871:

003374
003400
003402
003404
003410
003416
003424

005737
001406
100002
000137
012737
012737
012737

003432

001110

003432
003440
,, 003444

112737
012706
012737

000001
001100
000001

001102

22 003452

012760

000040

001300
003074
177777

003432

TST
BEQ
8PL
JMP
MOV
Y

KYBCTL
28
1$
EXEC
#-T,KYBCTL
ATEST1,SLPADR
MTEST1,SLPERR

:PERFORMING ONLY SiNGLE TEST ?
:BR IF NOT
:BR_IF JUST ENTERED TEST
:RETURN § GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

001176

MOVB
MOV
MOV

#1,STSTAM
#STACK,SP
M1, STIMES

:MOVE #1 TO TEST NUMBER
:LOAD THE STACK POINTER
::D0 1 ITERATION

000010

MOV

#CLR,RMCS2(RO) ; INITIALIZE THE MASSBUS

001300

001106

18:

28:

resr.

MOV

VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B

33 003460
003466
003474
003500
003504
003512
003520
003524
003530
003536
003544
003552
003554
003562
003570
003576

003600

113760
013737
005760
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104037

005137

001224
00122«
000012
001250
000010
000010
001122
001124
001126
167777
001124

001164
001164

001126
010000
001174

001174
001174
001124

001250

000010
001240
001126
001122
001164

MOVB
MOV
TST
CLR
MOV
MOV
ADD
CLR
MOV
BIC
CMP
BEQ
MOV
BI(
BIS
EMT

com

PORTA,RMCS2(R0)
;SELECT PORT A
PORTA,.PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (RO)
:SEE IF DRIVE (PORT A) PRESENT
CKERR
$CLEAR THE 'CHECK ERROR' INDICATOR
RMCS2(RO) $BDDAT
;GET CONTENTS OF RMCS2
#RMCS2 ,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
:ADD RH/RM BASE ADDRESS
$GDDAT
:WHAT REGISTER SHOULD BE
$8DDAT,S$TMPO
:MOVE REGISTER CONTENTS TO 'STMPO"
¥~CNED.$TMPO
;SAVE SPECIFIED BITS
SGDDAT.$TMPO ~ ;COMPARE THE BITS
64$
:BR IF OK
$BDDAT,$TMP4
:(OPY 'BAD DATA'
ANED , $TMPS
:CLEAR THE MASKED BITS
$TMPL,$GDDAT
:'OR' WITH GOOD DATA FOR TYPEOQUT
37

CKERR

JSET THE REGISTERF COMPARE ERROR INDICATOR

CZRWRBO RMOS5/3/2 DU POR
NEUTRAL

ACCESS

003604
003606
003612
003614
003622
003630
003636
003642
003646
003654
003662
003666
003672
003700
003706
003714
003716
003724
J03732
$03740
003742
003746
003750
003754
003756

000240
005737
001403
012760
113760
013737
005760
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104037

005137
000240
005737
001403
012760

TST

TEST

MACRO v04.00

N
8
18:06:25 PAGE 10-1

SEQ 0061

NOP

664%:

001250

BEQ

000010

000040
001226
001226
000012
001250
000010
000010
001122
001124
001126
167777
001124

001164
001164
001164

001126
010000
001174

001174
001174
001124

000010
001240

ST
CLR

RMDS (RO)
CKERR

ADD
CLR
MOV
BIC
CMP
BEQ

001250

'NED'

SET

‘BRIF NOT

- ISSUE MASSBUS INIT TO CLEAR *NED

PORTB,RMCS2(R0) ' :SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
;SEE IF DRIVE (PORT B) PRESENT
:CLEAR THE 'CHECK ERROR' INDICATOR

RMCS2
(RO) ,$BDDAT
;GET CONTENTS OF RMCS2
#RMCS2,$BDADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE

RO, $8DADR
$GDDAT
$BDDAT,$TMPO
#~CNED.STMPO
$GDDAT.STMPO
66%

MOV
BIC
Efi?

$BDDAT,$TMP4
#NED , $ TMP4
§;MP4,$GDDAT

ggg

CKERR

BEQ
MOV

000010

;WAS

.+10

#CLR,RMCS2(RO)

MOV
MOV

CKERR

MOV

MOVB
MOV

001126
001122

001250

000040

&-APR-81

;ADD RH/RM BASE ADDRESS
*WHAT REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO
;SAVE SPECIFIED BITS
~ ;COMPARE THE BITS
‘BR IF OK

.+10
#CLR,RMCS2(RO)

'$TMPO’

-COPY 'BAD DATA'
*CLEAR THE MASKED BITS
$'OR' WITH GOOD DATA FOR TYPEOUT
:SET THE REGISTER COMPARE ERROR

;WAS

'NED'

INDICATOR

SET ?

‘BR IF NOT
:I1SSUE MASSBUS INIT TO CLEAR

'NED'

:CONF IRM THAT DRIVE IS AN RMOS, RMO3 OR RMO2 AND IS DUAL PORTED
003764

113760

013737

005037
016037

012737
060037
012737
022737
001413
022737
001407
023737

001403
104001
005137
000240
113760
013737

005037
016037

012737
060037
012737

022737
001413
022737
001407
023737
001403

001224
001224
001250

000026
000026
001122
024027
024024

000010
001240

MOVB
MOV

PORTA,RMCS2(RO)
:SELECT PORT A
PORTA.PTNBR
:;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

001126
001122

MOV
MOV
ADD

RMDT (RO) ,$8DDAT ~ :GET CONTENTS OF RMDT
#RMDT ,$8DADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS

CLR

001124

MoV

001126

024025

001126

001124

001126

001250

CKERR

#024027.$GDDAT

:CLEAR THE

°'CHECK ERROR'

INDICATOR

:WHAT REGISTER SHOULD BE

CTMP
BEQ
cTMP
BEQ
TM
ggg

#0046024. $BDDAT
68%
#024025,$BDDAT
68$
$GDDAT,$BDDAT
?83

-DUAL PORT RMO3 ?
TYES !
:DUAL PORT RMO2 ?
‘YES !
:1S THE REGISTER OK ?
‘BR IF OK

figg

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

MOVB
MOV

PORTB,RMCS2(R0)
:SELECT PORT B
PORTB,PTNBR
:MOVE PORT ADDRESS TO LOCATION FCR TYPEOUT

001226
001226
001250
000026
000026
001122
024027
024024

001126
001122

CLR
MOV
MOV

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDT (RO) ,$BDDAT ~ :GET CONTENTS OF RMDT
ARMDT ,$BDADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE

001124
001126

MOV
CMP

#024027,$GDDAT
#024024
. $BDDAT

024025

001126

001124

001126

CMP
BEQ
CMP
BEQ

000010
001240

ADD

BEOQ

RO, $BDADR

70$

#0240¢5,$BDDAT
70$
$GDDAT,$BDDAT
708

sADD RH/RM BASE ADDRESS

-WHAT REGISTER SHOU!D BE
:DUAL PORT RMO3 ?

TYES !

-DUAL PORT RMO2 2
‘YES !
+1S THE REGISTER OK 2
;BR [F OK

4 RMRBO RMO5/3/2 DU POR TST
A
NEUTRAL ACCESS TEST

004170
006172
004176

104001

005137
000240

MACRO v04.0C

0046206
004214
004220
004226
046234
004240
004246
0046254
004262
004270
004272
004 300
104 306
004314
0046316
C06322
004 324
004330
004336
004344
004350
004356
004364

001250

004372

0046400
004402

004410

004416

004424
004426
0046432

004434

0046442
004450
C04454
004462
004470
004474
004502
004510
004516
004524
004526
004534
004542
004550
004552

004556

004560
004564

113760

016037

104002

113760
013737
005037
016037
012737
060037

012737
013737
04237
023737
001414
013737
042737
053737
104045

0C5137
000240
005037
016037

MOVB

MOV

CLR
MOV
MOV
ADD
MOV
MOV
BIC

001174
001174
001124

053737

005137
000240

THROUGH BOTH PORTS

001124
001164
001164
001164

0462737

005137
000240
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737

JVERIFY

001126
001122

012737
060037
012737
013737
042737
023737
001414
013737
104045

70%:

EMT
‘oM
NOP

000010
001240

013737
005037

001250

001250
000012
000012
001122
010600
001126
167177

72%:

001126
001122

001124

001124
001164
001164
001164

001126
010600
001174

001174
001174
001124

001250
001226
001226
001250
000012
000012
001122
001000
001126
176777
001124
001126
001000
001174

000010
001240

74%:

001126
001122

001174
001174
001124
76%:

001126

CMP
BEQ
MOV
BIC
BIS
EMT
coM
NOP
(LR
MOV
MOV
ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC
BIS
EMT
com
NOP
MOVS
MOV
CLR
MOV

MOV
ADD
MCV

001124
001164
001164
001164

001250

001250
000012

18:06:25 PAGE

10-2

SEQ 004c¢

&2
48 004200

4-APR-8'

MOV
BIC
CMP
BEQ
MOV
BIC
BIS
EMT
CoM
NOP
(LR

MOV

(KERR

;SET THE REGISTER COMPARE ERROR INDICATOR
THAT

THE

DRIVE

IS ON LINE

AND

IN NEUTRAL

PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CKERR
JCLEAR THE 'CHECK ERROR®
RMDS (RQ) ,$8DDAT
;GET CONTENTS OF RMDS

#RMDS ,$BDADR

;FORM REGISTER ADDRESS OF

RO, $BDADR

#PGM,SGDDAT

$RDDAT,$TMPQ

;ADD RH/RM BASE ADDRESS

;WHAT

REGJSTER

INDICATOR

ERROR MESSAGE

SHOULD BE

JMOVE REGISTER CONTENTS TO °*$TMPO’

#“CPGM,$TMP(O

;SAVE

SGDDAT,S$TMPO

SPECIFIED BITS

; COMPARE THE BITS

72%
$8DDAT,$TMP4

JBR IF OK
;COPY 'BAD DATA'

#PGM, $TMP4

;CLEAR THE MASKED BITS

;'OR'

WITH GOOL DATA FOR TYPEOUT

CKERR

;SET

THE REGISTER COMPARE ERROR

2§MP4.SGDDAT

CKERR
;CLEAR THE °'CHECK ERROR'
RMDS
(RO) ,$BDDAT
:GET CONTENTS OF RMDS

NRMDS ,$BDADR

;FORM REGISTER ADDRESS OF

RO, $BDADR

;ADD RH/RM BASE ADDRESS

#MOL !DPR!DRY ,$GDDAT

$S8DDAT , $TMPO

[NDICATOR

INDICATOR
ERROR MESSAGE

;WHAT REGISTER SHOULD BE

MOVE REGISTER CONTENTS TQO "S$STMPO'

#2C10600,8TMP0
SGDDAT,$TMPO
743

$3DDAT, S TMPS
#106G0,$TMP4
31MP4,$GDDAT

;SAVE SPECIFIED BiTS
;COMPARE THE BITS
:BR IF 0K
;COPY 'BAD [LATA®
;JCLEAR Ti{E MASKED BITS
;"OR' WITH GOOD DATA FOR TYPEZ.T

CKERR

sSET THE REGISTER CUMPARE ERROR INDICATOR

PORTB ,RM(S2(RO)
PORTB,PTNBR

;SELECT PORT B

;MOVE PORT ADDRESS

TO LOCATION FOR TYPEOUT

CKERR
;CLEAR THE 'CHECK ERROR®'
RMDS(RO) ,$8DDAT
;GET CONTENTS OF RMDS

ARMDS ,$BDADR

RO, $BDADR

#PGM, SGDDAT

SBDDAT ,$TMPO

#°CPGM,STMPQ

$GDDAT ,$TMPO
76%
$BDDAT ,$TMP4

;FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS

INDICATOR

ERROR MESSAGE

;WHAT REGISTER SHOULD BE

;MOVE KREGISTER CONTENTS TO '$TMPQ’

:SAVE

SPECIFIED BITS

;COMPARE THE BITS
JBR IF OK
;COPY 'BAD DATA®

#PGM, $ TMP4
zgnPé,SGDDAY

;CLEAR THE MASKED BITS
;'OR' WITH GNOD DATA FOR TYPEOUT

CKERR

JSET

(KERR
RMDS (RO) , $8DDAT

;CLEAR THE

THE REGISTER COMPARE ERROR

'CHECK ERROR'

JGET CONTENTS OF

RMDS

INDICATOR

_~MRBO RMO5/3/2 DU POR

NEUTRAL

ACCESS

012737
060037
012737
013737
042737
023737
001414

013737
042737
053737
104002

005137
000240

50
51
52
53
54
55
56
57
58
59

113760

016037
113760
016037
023737
001406
104003
032777
001001
000000
000004

61
62
63
81
82

TST
TEST

000012
001122
010000
001126

MACRO v04.00

001122

001124

001124
001164
001164
001164

001126
010600
001174

001174
001174
001124

167177

100000

18:06:25 PAGE

#RMDS ,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
:ADD RH/RM BASE ACDRESS
#MOL 'DPR ' DRY,$GDDAT
:WHAT REGISTER SHOULD BE
SBDDAT,$TMPO "
:MOVE REGISTER CONTENTS TO °‘$TMPO°

CMP
BEQ
MOV
8IC

$SGDDAT,STMPO
788
SBDDAT,$TMP4
#10600,$TMP4

8IC

@A§

#~C10600,8$TMPO

*'OR*

(KERR

;SET THE REGISTER COMPARE ERROR IND]CATOR

oM
NOP

JVERIFY

THAT DRIVE

TYPEOUT

SERIAL NUMBER SEEN THROUGH BOTH PORTS

THE

PORTA,RMCS2(R0O)
RMSN(RO) ,$GDDAT
PORTB ,RMCS2(R0)
RMSN(RO) ,$BDDAT

;SELECT PORT A
;STORE THE PORT A SERIAL NUMBER
;SELECT PORT B
;STORE THE PORT B SERIAL NUMBER

BEQ

;BR ]IF

EMT
8IT
BNE

HALT
SCOPE

1%:

WITH GOOD DATA FOR

MOVB
MOV
MOVB
MOV

MpP

174200

:SAVE SPECIFIED BITS

:COMPARE THE BITS
‘BR IF OK
- COPY 'BAD DATA'
:CLEAR THE MASKED BITS

3TflP4,SGDDAT

78%:

000010
001124
000010
001126
001126

10-3

MOV
ADD
MOV
MOV

001250

001224
000030
001226
000030
001124

&-APR-81

$GDDAT ,$BDDAT

SAME

JARE THEY THE SAME ?

3
#SW15,35WR
1%

THEY ARE

JHALT ON ERROR ?
:BR |F SET - PROGRAM HAS ALREADY HALTED
JHALT, POSSIBLE
JLOOP ?

CABLE

CONNECTION PROBLEM

.'*'.'*""'.""Q""".""....'*‘.'....tfifi"'t"fifi*ttfittfi‘t'..

tTFST 2

PORT

*VERIFV THAT

'A'

SEIZE/TIMEOUT TEST

THE DRIVE CAN BE

SEIZED BY WRITING A REMOTE

THAT

IT CAN BE RELEASED BY THE ONE SECOND TIMER.

001300
001106
001110

112737

000002

001102

THE DRIVE

%
%

%
%
B

READ EACH DRIVE REGISTER,

EXCEPT RMCS1,

THROUGH PORT

'B°;

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEQUT ONE SHOT AND SAVE THE
VALUE FOR LATER USE.
VERIFY THAT TIMEOUT RETURNED THE DRIVE TO
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS.

AR AR RN

A AN AR AR R

RN RN AN AR

AR A AR R

AR AR AR AR R AR AR

AR AN RN

003074
177777
005004
005004

VERIFY THAT

[

000137
012737
012737
012737

100002

001300

'A':

—%e s NN, . e,

. .

004762
004770
004776
005004
005004

005737
001406

004746
004746
004752
004754
004756

WRITE 0°S INTC RMDA THROUGH PORT

HAS BEEN SEIZED.

VERIFY THAT 0'S ARE READ FROM EACH REGISTER.

PETEY

TST

BEQ
8PL
1%:

2%:
TESTZ:

KYBCTL

sPERFORMING ONLY SINGLE

TEST

23
1%

:BR IF NOT
;BR _IF JUST ENTERED TEST

Moy
MoV
Mov

#-1,KYBCTL
#TEST2,SLPADR
W#TEST2,SLPERR

sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MOvB

#2,8TSTNM

JMOVE #2 TO TEST NUMBER

JMP

EXEC

sRETURN © GET NEXT

TEST NUMBER

(ZRMRBO RMO5/3/2 vU POR TST 1
T
PORT °*A* SEIiZE/TIMEOUT

005012
83 005016
151

005024

005032
005036
005042

MA(RO V04.00
TEST

&~APR-81

18:06:25 PAGE

10-4
SEQ 0044

012706
012737

001100
000002

001176

MOV
MOV

#STACK,SP
#2.,STIMES

;LOAD THE STACK POINTER
;:D0O 2. ITERATIONS

012737

000240

177776

MOV

#<5%32
> ,0PS

;SET PRIORITY

TIME
#2000. ,WATCH

;CLEAR THE ELAPSED TIME COUNTER
;SET WATCH TO 2000. M5

005037
005037
005037

001262
001264
001266

CLR
CLR
CLR

TIMEA
TIMEAP
TIMEAM

TO 5

IN CASE

LOOPING

:CLEAR TIMEQUT VALUE FOR PORT A
;(LEAR UPPER TIMEOUT TOLERANCE
;(CLEAR LOWER TIMEOUT TOLERANCE

;START THE TIMER
005046
005052

005037
012737

001256
003720

CLR
MOV

001260

;SEIZE THE DRIVE THROUGH PORT A
005060
005066
005074
005100
G05106
005114
005122

113760
013737
005060
113760
013737
013737
016037

005130
005134
005142
005146
005154
005156
882}22

010037
062737
005037
023737
001403
104004
000137

005164
005172

113760
013737
016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240

005200
005206
005214
005222
005230
005234
005242
005250
005256
05260
005262

001224
001224
000006
001226
001226
001226
000012

001122
000012
001124
001124

000010
001242
000010
001240
001244
001126

000012
020001
071600
001124
001166
001126
001166
001126

PORTA ,RMCS2(R0) ;SELECT PORT A
PORTA,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDA(RO)
;WRITE RMDA
PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PORTB,0PPRT
;'OPPOSITE' PORT ADDRESS
RMDS (RO) ,$8DDAT ;SEE IfF DRIVE SEIZED BY PORT A

MOV
ADD
CLR
cMP
BEQ
EMT
JMP

RO,$BDADR
A#RMDS , $8DADR
$GDDAT
$GDDAT,$BODAT
648
4
5%

000010
001240

MOVB
MOV

PORTA RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

001166

MOV
COM
MOV
8IC
P
BEQ
EMT
NOP

001122
001126

006312

001224
001224

MOVB
MoV
CLR
move
MOV
MOV
MOV

001126
001126
001124

MOV
BIC
MOV

001164
001164
001164
65%:

;RH/RM BASE ADDRESS
;GENERATE BAD REGISTER ADDRESS
SJREGISTER SHOULD BE ZERO
;IS THE REGISTER ZERO
JBR IF IT IS
;BYPASS REST OF

THE SUBTEST

RADS(RO) ,$BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#0M'!P1P,$BDDAT
;CLEAR DONT CARE BITS
#MOL ! PGM!DPR!DRY,SGDDAT
EXPECTED STATUS
$GDDAT ,$TMP1
;USE GOOD DATA AS A MASK
$TMP1
:COMPLEMENT THE EXPECTED STATUS
$8DDAT,$TMPO
;SAVE THE ACTUAL STATUS
$TMP1,$TMPO
;CLEAR UNWANTED BITS
$GDDAT, $TMPO
;ARE THE EXPECTED STATUS BITS SET 2
65%
;BR IF THEY ARE
5
)

cREAD THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK
005264
005c72

113760
013737

005326

016046

005300
005304
005310
005314
005320
005330
005334

C05340

001226
001226

016046
016046
016046
016046
016046

000046
000044
000030
000034
000032

016046
016046

000020
000026

016046

000010
001240

MOvB
MoV

PORTB,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

MOV
MoV
MOV
MOV
MOV

RMEC2(RQ) ,~(SP) ;STORE REGISTER
RMECT(RO) ,~(SP) ;STORE REGISTER
RMSN(RQO) ,~(SP)
;STORE REGISTER
RMDC(RQ),-(SP)
;STORE REGISTER
RMOF (RO) ,~(SP)
;STORE REGISTER

MoV
MoV

RMLA(RQ) ,-(SP)
RMDT(RQ) ,-(SP)

000042

MoV

00000¢

mov

RMEC2, PORT B, FOR (HE(K
RMEC1, PORT B, FOR CHECK
RMSN, PORY B, FOR CHE(K
RMDC, PORT B, FOR CHECK
RMOF,
PORT B, FOR CHE(K

RMER2(RO) ,~(SP) :STORE REGISTER RMER2, PORT B, FOR CHECK
RMDA(RQ) ,~(SP)

;STORE REGISTER RMLA, PORT B, FOR CHE(K
;STORE REGISTER RMDT, PORT B, FOR (HECK

;STORE REGISTER RMDA, PORT B, FOR (HE(K

'ZRMRBO RMOS/3/2 DU POR "ST 1
T2
SEIZE/TIMEOUT
PORT

*A°

005344
005350

016046
016046

MACRO
TEST

v04.00

005760
001006
005737
001372
104036

000137
012737
013737
004537
001262
012637

000024
(00014

MoV
MOV

012637

006012

1%:

001260

005776
000340
001256
066324

E
18:06:25 PAGE

FOR PORT

001262

2%:

;STORE REGISTER RMMR1_, PORT &,
;STORE REGISTER RMER1, PORT B.

;WAIT FOR

TST

WATCH

;CHECK WATCH

Emr

BNE

FOR CHECK
FOR CHECK

TIMEOUT

RMDS (RO)

2%
1%

THE DRIVE

TU TimMEOUT

;BR WHEN TIMEOUT OCCURS

;BR IF NOT ZERO

JMP
MoV

2
#<7%32.>,a4PS

;BYPASS TIMEOUT TIME CHE(K
;SET PRIORITY TO 7 70 STOP (LOCK

JSR

RS, TOLER

:CALCULATE THE TOLERANCE

MOV

.WORD
MOV
MoV

001264
001266

RMMR1(RO) ,~(SP)
RMER1(RO) ,~(SP)

TST

BNE
177776

9
10-5
SEQ 0045

;WAIT

005354
005360
005362
005366
005370
035372
005376
005404
005412
005416
005420
005424

4-APR-B1

TIME,TIMEA

TIMEA
(SP)+,TIMEAP
(SP)+,TIMEAM

;SAVE

THE

ELAPSED

TIME

FOR PORT A

; TIMEOUT VALUE FOR PORT A
. +25% TOLERANCE
;=25% TOLERANCE

JVERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 MS
005430
005436
005440

023727
103001
104055

001256

000764

cMP
gfi{s

TIME ,#500.
gg

;WAS MEASURED TIME AT LEAST 500 MS?
;BR IF IT
WAS

JVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT
005442

012737

000240

177776

3%:

MOV

#<5%32.>,3#PS

;RESTORE PRIORITY TO S

JVERIFY THAT THE DRIVE IS STILL IN NEUTRAL
205450
005454
005462
005466
005474
005502
005510
005516
005524
005532
005540
05546
005554
005562
005570
005576
005600
005604
005606
005610
005614
005622
005630

005636
005642
005644
005652

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760

016037
042737
013737
042737
023737
001006
005737
001037
104046

000137
013737
013737
113760
005757
001414
013737
013737

001254
000012
001122
011600
001224
000012
024001
001170
100100
001225
000012
024001
001172
100100

001164

001122

001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

CLR
MOV
ADD
MoV
MOVB
MoV
BIC
MOV
8IC

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEQUT
RO, $BDADR
;ADD THE 1/0 BASE ADDRESS
#MOL ! PGM!DPR!DRY,SGDDAT
:COMPARISON CONSTANT
PORTA ,RMCS2(R0) ;SELECT PORT A.
RMDS(RO) ,$TMP2
,GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP!WRL IOM, STMP?
;CLEAR DONT CARES
$TMP2 ,$TMPO
;COPY 1T INTO 'STMPO’
NATAIVV,STMPO
:CLEAR PORT DEPENDENT BITS FROM THE COPY

BIC

#PIP!WRL
| OM, $TMPS

MovB
MOV

PORTB,RM(S2(R0)
RMDS(RO),$TMP3

:SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

$TMP3 ,$TMP]
#ATAIVV,$TMP1
$TMPO, $TMPY
663

:COPY IT INTO 'STMP1'
1CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
;BR IF NOT

BNE
EMT
JMp
MOV

683
46
708
$TMP2,$BDDAT

;BR IF NOT

MOvB
T37
BEQ

PORTB,RMCS2(R0O)
$TMPO
67%

MoV
BIC
CMP
BNE

201164

TST

005774
001170
001226
001226
001164

001126
001240
000070

001224
001172

001240
001126

6€$:

MoV

MoV
MoV

$TMPO

PORTB,PTNBR

PORTA,PTNBR
$TMP3, $BDDAT

:CLEAR DONT CARES

JREGISTERS ARE

THE

SAME:

AFF<

THEY ZERQ ?

;BYPASS THE REST OF THE CHECKS
;SET _UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PURT 8.
;SEE IF STATUS EQ O FROM PORT A,
;BR IF ZERO
JSEIZING PORT IF TEST SHOWS DRIVE NGT IN NEUTRAL
. 'BAD DATA*® FOR ERROR TYPE 0QUT

. ~MRB0 RMOS/3/2 DU POR

PORT

‘A*

005660

TST

SEIZE/TIMEOUT

v04.00

TEST

00566€

005737

C01166

001224

000010

005674
005702

012737
106022

177777

001254

67%:

€8%:

005672

133760

MACRO

001004

005704

013737

001170

001126

005720
005726
005734
005736
0057640
0057646
005754

042737
023737
001401
104007
73737
(13737
042737

100100
001124

00112¢
001126

001172
001226
100100

001126
001240
001126

005770
005772
065774

001401
104007
000240

005712

005762

013737

023737

001224

0011264

001240

4=AFR-8i

MOVB

69%:

001126

10~6

PORTA,RMCS2(RO)

;SELECT PORT A,

:SEE IF STATUS EQ ZERO FKOM PORT B,

MOV
EMT

#-1,RELERR
22

:SET

MOV

PORTA,PTNBR

BNE

MOV

68%

'RELEASE ERROR'

006134
006136
006142
006150
006154
006156
006160
006164
006172
006176

013737
010037
062737
012637
001401
104006
010037
062737
012637
001407
104006
010037
062737
012637
001401
104006
010037
062737
012637
001401
104006
010037
062737
012637
001401

104006
010037
062737
012637
001601
104006
010037
062737
012637
001401

001226
001122
000074
001126

001240
001122

001122
000024
001126

001122

001122
000006
001126

001122

001122
000026
001126

001122

001122
000020
001126

001122

001122
000042
001126

0013122

001122
000032
001126

001122

4$:

INDICATOR

$TMPZ ,$8DDAT

;LOOK FOR BIT FAILURLS WHEN RMDS READ

BIC
CMP
BEQ
EMT
MOV
MOV
BIC

#ATA.VV,$BDDAT
$GDDAT,$BDDAT
693
7
$TMP3, $BDDAT
PORTB, PTNR
KATA.VV,$BDDAT

:DON'T CHECK ATIN BIT OR vv 8IT
;ALL BITS OK ?
:BR IF OK FROM PORT A,

BEQ
EMT
NOP

70%
7

$GDDAT,$BDDAT

MOV
MOV
ADD
MOV
BEQ
EMT
MOV
ADD
MOV
BEQ
EMT
MOV
ADD
MOV
BEQ
EMT
MOV
ADD
MOV
BEQ
EMT
MOV
ADD
MOV
BEQ

EMT
MOV
ADD
MOV
BEQ
EMT
Mov
ADD
Mov
BEQ

PORTB,PTNBR
RO, $BDADR
W#RMER1,$BDADR
(SP)+ ,$BDDAT
. +h
6
RO, SBDADR
#RMMR1,$8BDADR
(SP) + ,$BDDAT
.+
6
RO, SBDADR
#RMDA , $BDADR
(SP) +,$BDDAT
.t
6
RO, $8DADR
#RMDT , $BDADR
(SP)+,$BDDAT
. *4
6
RO, $BDADR
#RMLA , $8DADR
(SP)+,$BDDAT
.+

6
RO, $BDADR
#RMERZ ,$BDADR
(SP)+,$BDDAT
R
6
RO, $BDADR
#RMOF , $8DADR
(SP)+,$BDDAT
.+l

;BR IF NOT

:CHANGE PORT NUMBEK

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
:CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR Vv BIT

;SEE IF READ OK FROM PORT B.
:BR IF OK

JCHECK THE RECISTERS STORED THROUGH PORT B.
;THE REGISTERS ARE STORED ON THE STA(CK.
005776
006004
006010
006016
006022
306024
006026
006032
006040
006044
006046
006050
006054
006062
006066
006070
006372
006076
C06104
C06110
006112
006114
006120
006126
006132

$TMP1

CMP

708:

18:C6:25 PAGE

ALL REGISTERS SHOULD BE ZERO.

;CHANGE 'PORT NUMBER' TO THE OPPOSITE PURT
sBASE ADDRESS FOR REGISTER RMER1
;ADDRESS OF RMER1 FOR TYPEQUT
sCHECK THE STORED CONTENTS OF RMER1
;CONTENTS ZERO ?
sBASE ADDRESS FOR REGISTER RMMR1
;ADDRESS OF RMMR1 FOR TYPEOUT
JCHECK THE STORED CONTENTS OF RMMR1
; CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMDA
;ADDRESS OF RMDA FOR TYPEOUT
sCHECK THE STORED CONTENTS OF RMDA
:CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMDT
JADDRESS OF RMDT FOR TYPEOUT
JULHECK THE STORED CONTENTS OF RMDT
; CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMLA
;ADDRESS OF RMLA FOR TYPEQUT
sCHECK THE STORED CONTENTS OF RMLA
s CONTENTS ZERO ?

+BASE ADDRESS FOR REGISTER RMERZ
;ADDRESS OF RMER2 FOR TYPEOULT
;CHECK THE STORED CONTENTS OF RMER?
;CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMOF
;ADDRESS OF RMOF FOR TYPEOQUT
sCHECK THE STORED CONTENTS OF RMOF
s CONTENTS ZERO ?

’

SEQ 0046

JHMRRBY RMOS5/3/2 DU POR TST 1
PORT
‘A’
’ [4
SEIZE/TIMEQUT

006200
006202
006206
006214
006220
006222
006224
006230
006236
(0624¢
006244
006246
006252
006260
006264
06266
006270
006274
006302
06306
006310
006312

MACRO v04.00
TEST

104006
010037
062737
012637
001401

601122
(00034
001126

001122

10037
062737
012637

001122
000030
001126

001122

001122
000044
001126

001122

104006

001401
104006
010037

062737
012637
001407
104006

010037
062737
012637
001401
104006
000004

001122
000046
0011256

4-APR-81

18:06:25 PAGE

10-7
SEQ 004

6
RO, SBDADR

EMT
MOV

;BASE ADDRESS FOR REGISTER RMD(

ADD
MoV
?5?

#RMDC , $BDADR
(SP)+ ,$BDDAT
6‘4

JADDRESS OF RMDC FOR TYPEQUT
JCHECK THE STORED CONTENTS OF
sCONTENTS ZERO ?

MOV

RO, $BDADR

;BASE ADDRESS FOR REGISTER RMSA

ADD
MOV
?g?

MOV
ADD
MOV

KMD(

#RMSN , $8DADR
(SP) +,$BDDAT
644

;ADDRESS OF RMSN FOR TYPEOUT
;CHECK THE STORED CONTFNTS OF
JCONTENTS ZERQO ?

RO, $BDADR
HRMECT,8BDADR
(SP) + ,$8DDAT

;BASE ADDRESS FOR REGISTER RMEC1
;ADDRESS OF RMECT FOR TYPEOQUT
;CHECK THE STORED CONTENTS OF RME(1

RMSN

?fi?

6+4

;CONTENTS [rRO

RO, $BDADR
#RME(C2,$BDADR
(SP) +,$BDDAT
.t
6

;BASE ADDRESS FOR REGISTER RME(2
;ADDRESS OF RMEC2 FOR TYPEOUT
;CHECK THE STORED CONTENTS OF RME(?
;CONTENTS ZERC ?

5%:

MOV
ADD
MOV
BEQ
EMT
SCOPE

N LA

ARl

001122

S*TEST 3

;LOOP 2

PORT *'B' SEIZE/TIMEOUT TEST

. %

2228223822222

WRITE 0°'S INTO RMDA THROUGH PORT

READ EACH DRIVE REGISTER,

.
aw

LR B

NE BN NE N

BRI

)

;*VERIFY THAT THE DRIVE CAN BE SETZED BY WRITING A REMOTE REGISTER AND THAT
Ml4
IT CAN BE RELEASED BY THE ONE SEZOND TIMER.
'B':

HAS BEEN SEIZED.

VERIFY THAT

EXCEPT RM(S1,

THE DRIVE

THROUGH PORT

VERIFY THAT 0'S ARE READ FROM EACH REGISTER.

'A‘;

WAIT FOR THE PORT TIMEOUT 7O RELEASE THE DRIVE.
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE
VALUE FOR LATER USE.
VERIFY THAT TIMEOUT RETURNED TKE DRIVE TO
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT [S >S00 MS.

o AR AR

—

006314
6314
006320
006322

005737
001406

001300
003074

100002

TST73:

006324
006330
006336
006344
006352
006352
006360
006364

000137
012737
012737
012737

006352
006352

112737
012706
012737

000003
001100
000002

001102

006372
006400

012737
005037

000240
001270

177776

177777

001300
001106
001110

001176

1%:
g ¥
TEST3:

TST

BEQ
8PL
JMP
Mov

R R

AN T

AR RN AR A AN RN RN AR N A RRARRARN

AR RN

KYB(TL

sPERFORMING ONLY SINGLE

#-1,KYBCTL

sSET SINGLE

2%
1$
EXEC

TEST

INDICATOR

#TEST3,SLPADR
HTEST3,$LPERR

;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MOvB

#3,8TSTNM

;MOVE #3 TO TEST NUMBER

MOV

42,

;.D0 2.

MoV

#<5%32.>,Q4PS

(LR

#STACK,SP

$TIMES

TIMEB

;BR IF NOT
:BR_IF JUST ENTERED TEST
;RETURN & GET NEXT TEST NUMBER

MOV
MOV
Mov

JLOAD

THE

STACK POINTER

ITERATIONS

;SET PRIORITY TO 5
;CLEAR TIMEQUT

IN CASE LOOPING

VALUE FOR PCRT B

—4t
¢

N~y

RMRBO RMOS5/3/2 DU POR

PORT

'B*'

006404
006410

TST

MACRO v04.00

SEIZE/TIMEOUT TEST

005037
005037

001272
(01274
;START

006414
006420

005037
012737

006426
006434
006442
006446
006454
006462
006470
006476
006502
G06510
006514
006522
006524
8822%8

113760
013737
005060
113760
013737
013737
016037
010037
062737
0065037
023737
001403
104004
000137

006532
006540
006546
006554
006562

113760
013737
016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240

006570
006576
006602
006610
006616
006624
006626
006630

001256
003720

001226
001226
000006
001224
001224
001224
000012
(01122
000012
0C1124
001124

001226
001226
000012
020001
011600

001124
001166
001126
001166
001124

18:06:¢5

CLR
CLR

TIMEBP
TIMEBM

THE

006716

113760
013737
016046
016046
016046
016046
016046
016046
016046
016046
016046
016046

016046

000014

;CLEAR UPPER TIMEOUT TOLERANCE
;CLEAR LOWER TIMEOUT TOLELRANCE

TIME
#2000. ,WATCH

;CLEAR THE t APSED TIME
;SET WATCH 'O 2000, MS

COUNTER

645

MOvB
MOV
CLR
MOvB
MOV
MOV
MOV
Mov
ADD
CLR
CMP
BEQ
EMT
JMP

PORTB,RMCS2(R0O) ,SELE(T PORT B
PORTB,SEIZPT
STORE SEIZING PORT'S ADDRESS
RMDA (RO)
JWRITE RMDA
PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA ,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PORTA,OPPRT
;'OPPOSITE® PORT ADDRESS
RMDS
(RO) ,$8DDAT ;SEE IF DRIVE SEIZED BY PORT 8
RO, $S8DADR
;RH/RM BASE ADDRESS
#RMDS , $BDADR
;GENERATE BAD REGISTER ADDRESS
$GDDAT
JREGISTER SHOULD BE ZERO
$GDDAT,$BDDAT
;1S THE REGISTER ZERO
64%
;BRIF IT IS
4
5%
:BYPASS REST OF THE SUBTEST

MOVB
MOov
MOV
8IC
MOV

PORTB,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS (RO) ,$BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
HOM!P]P, $BDDAT
sCLEAR DONT CARE BITS
AMOL !PGM.DPR!DRY,$GDDAT
EXPECTED STATUS

000010
001242
000010
001240
001244
001126

001122
001126

000010
001240
001126
001126
001124

001166

001164
001164
001164

000010
001240

SEQ 0048

THE DRIVE THROUGH FORT B

65%:

001224
001224
000046
000044
000030
000034
000032
(00042
000020
000026
000006
(000024

10-8

;SEIZE

MoV
COM
MOV
81C
(MP
BEQ
EMT
NOP

;READ THE

C06632
006640
006646
006652
006656
006662
006666
006672
006676
006702
006706
006712

PAGE

TIMER

CLR
MOV

001260

007660

4-APR-81

$GDDAT,$TMP1
$TMP]
.
$BDDAT,$TMPO
$TMP1,$TMPO
$GDDAT,$TMPO
65%
5

;USE GOOD DATA AS A MASK
sCOMPLEMENT THE EXPECTED STATUS
JSAVE THE ACTUAL STATUS
;CLEAR UNWANTED BITS
sARE THE EXPECTED STATUS BITS SET ?
;BR IF THEY ARE

DRIVE REGISTERS THROUGH PORT A AND STORE

MOVB
MOV
MOV
MoV
MoV
MOV
MoV
MOV
MOV
MoV
MOV
Mov
MOV

THEM ON THE

STACK

PORTA _RMCS2(R0O)
;SELECT PORT A
PORTA_PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMEC2(RO) ,~(SP) ;STORE REGISTER RMEC2, PORT A, FOR CHECK
RMECT(RO) ,-(SP) ;STORE REGISTER RMECT, PORT A, FOR CHECK
RMSN(RQ),-(SP)
;STORE REGISTER RMSN, PORT A, FOR (HECK
RMDC
(RO) ,~(SP)
;STORE REGISTER RMDC, PORT A, FOR CHE(K
RMOF
(RO) ,~(SP)
;STORE REGISTER RMOF, PORT A, FOR CHECK
RMERZ
(RO) ,~(SP) ;STORE REGISTER RMERZ2, PORT A, FOR CHECK
RMLA(RQ) ,~(SP)
;STORE REGISTER RM A, PORT A, FOR (HE(K
RMDT(RQ) ,-(SP)
;STORE REGISTER RMDT, PORT A, FOR CHECK
RMDA(RQ) ,~(SP)
;STORc REGISTER RMDA, PORT A, FOR CHECK
RMMR1(RQ),-(SP) ;STORE REGISTER RMMR1, PORT A, FOR CHECK
RMER1(RO),-(SP) ;STORE REGISTER RMER1, PORT A, FOR (HECK

;WAIT FOR PGRT B TO TIMEOUT

'£RMQBO

RMOS/3/2

DU POR

PORT

SEIZE/TIMEOUT

*'B'

000722

006726
006730
006734
006736
006740
006744
006752
006760
006764
006766
006772

005760

001006
005737
001372
104036
000137
012737
013737
004537
001270
012637
012637

TST

MACRO

TEST

023727
103001
104055

&-APR-81

C00012

1$:

177776
001270

28%:

sVERIFY

THAT

001272
001274

001256

BNE
TST
BNE
FMT
JMP
MOV
MOV
JSR
LWORD
MOv
MOV

001260
007344
000340
001256
066324

18:06:¢5

PAGE

10-9

SEQ 004y

006776
0C7004
007G06

v04.00

000764

cMP
BHIS
EMT

RMDS (RO)

2%
WATCH
13
36
(s
H<7*32.>,94PS
TIME, TIMEB
R5,TOLER
.
TIMEB
(SP)+,TIMEBP
(SP)+,TIMEBM
THE

JWAIT

THE DRIVE

TC TIMEOUT

;BYPASS TIMEQUT TIME (HECK
;SET PRIORITY TO 7 TO STOP (LOCK
:SAVE THE ELAPSED TIME FOR PORT B
;CALCULATE THE TOLERANCE
;TIMEOUT VALUE FOR PORT B
;+25% TOLERANCE
;=25% TOLERANCE

TIMEOUT ONE-SHOT

TIME,#500.
3%
55

FOR

;BR WHEN TIMEOUT OCCURS
;CHECK WATCH
;BR IF NOT ZERO

IS AT LEAST

500 MsS

;WAS MEASURED TIME AT LEAST
JBRIF IT
WAS

500 MS?

JVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED ouT
07010

012737

000240

177776

3$:

Mov

W<5%32.> ,a#PS

;VERIFY THAT THE DRIVE
007016
007022
07030
007034
007042

007050

007056
007064
007072
007100
007106

007114

007122
007130
007136
007144
07146
007152
007154
007156
007162
007170
007176
007204
007210
007212
007220
007226

007234
007240
007242
007250

005037
012737
060037
012737
113760

016037

042737
013737
042737
11376C
016037

042737

013737
042737
023737
001006
005737
001037
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760

005737
001004
012737
104022

001254
000012
007122
011600
001224

000012

024001
001170
100100
001226
000012

024001

001172
100100
007164

001122
001124
000010

001170

001170
001164
001164
000010
001172

001172

001164
007342
001170
001226
001226
001164

001126
001240
000010

001224
001172
001224
001766

001240
001126
000010

177777

001254

66%:

67%:

IS STILL IN NEUTRAL

CLR
MOV
ADD
MoV
MovB
MOV
8IC
MOV
BIC
MOVB
MOV

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS , SBDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $BDADR
sADD THE i/0 BASE ADDRESS
#MOL !PGMDPR!DRY ,$GDDAT
;COMPARISON CONSTANT
PORTA ,RMCS2(R0) ;SELECT PORT A,
RMDS(RO) ,8TMP2
;GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP!WRL !0OM, $TMP?2
;CLEAR DONT CARES
$TMP2 ,$TMPO
sCOPY IT INTO 'STMPO*
#ATAIVV, STMPQ
;CLEAR PORT DEPENDENT BITS FROM THE COFY
PORTB,RMCS2(RQ) ;SELECT PORT B.
RMDS
(RO} $TMP3
- GET THE DRIVE STATUS REGISTER FROM PORT B.

MOV
8IC
cMP
BNE
T5T
BNE
EMT
JMP
MOV
MOV
mMovs
TST
BEQ
MOV
MOV
MOvVB

$TMP3,$TMPY
#ATA!VV,$TMP1
$TMPO,$TMP1
66$
$TMPO
68s
46
70%
$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0OJ
$TMPO
67%
PORTA ,PTNBR
$TMP3 $BDDAT
PORTA,RMCS2(RO)

BIC

001166
001166
001166

;RESTORE PRIORITY TO S

TST
BNE
MoV
EMT

#PIPWRL !OM,STMPS

$TMP1
68%
#-1,RELERR
22

sCLEAR DONT CARES

;COPY IT INTO °*$TMP1’
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS °
;BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A,
;BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NGOT IN NEUTRAL
; 'BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A,

;SEE IF STATUS EQ ZERQO FROM PORT B.
JBR IF NOT
;SET 'RELEASE ERROR® INDICATCR

’ZRMRBO RMOS/3/2 DU POR TST 1
PORT 'B’ SEIZE/TIMEOUT

007252
007260
007266
007274
007302
007304
007306
007314
007322
007330
007336
007340
007342

013737
013737
042737
023737

001401

104007

013737
013737
042737
023737
001401

MACRO v04.00

TEST

001126
001240
001126
001126

68$:

001172
001226

001126
001240
001126
001126

69%:

100100

001124

104007
000240

J
18:06:¢5 PAGE

9
10-10
SEQ 0050

001170
001224
100100

001124

&=-APR-B1

70%:

MOV
MOV
BIC

CMP
8EQ
EMT

MOV
MOV
BIC
CMP

BEQ
EMT

$TMP2,$BDDAT

PORTA,PTNBR
#ATA!VV, $BDDAT

$GDDAT
, $BDDAT
993
$TMP3, $BDDAT

PORTB,PTNBR
#ATA.VV,$BDDAT

$GODAT, $BDDAT
;OS

sLOOK FOR BIT FAJLURES WHEN RMDS READ
s CHANGE PORT NUMBER

;DON'T CHECK ATTN BIT OR VvV BIT
JALL BITS OK ?
;BR IF OK FROM PORT A,

;CHECK RMDS FOR BIT FAILURES =~ FROM PORT B.
;CHANGE PORT NUMBER
JDON'T

CHECK ATTN BIT OR vy BIT

JBR IF

COK

;SEE IF READ OK FROM PORT B.

NOP

.CHECK THE REGISTERS STORED THROUGH PORT A.
;THE REGISTERS ARE STORED ON THE STACK.
007344
007352
007356
007364
007370

007372
007374
007400
007406
007412
007414
007415
007422
007430
007434
007436
007440
007444
007452

007456
007460
007462
007466
007474
€07500
007502
007504
007510
007516
007522
007524
007526
u07532
007540
007544
007546
007550
007554
007562
007566

013737
010037
062737
012637
001401

001224
001122
0C0C14
001126

010037
062737
012637
001401

001122
000024
001126

010037
062737
012637
001401

001122
000006
001126

104006

001240
001122

001122

001122
000026
001126

001122

010037
062737
012637
001401

001122
000020
001126

001122

010037
062737
012637
001401
1046006
010037
062737
012637
001401
104006
010037
062737

001122
000042
001126

001122

001122
000032
001126

001122

001122
000034
001126

001122

104006

012637
001401

MOV
MOV
ADD
MoV

PORTA,PTNBR

RO, $BDADR

#RMER1 ,$8DADR
(SP) +,$BDDAT

BEQ
EMT
MOV

.+4
6
RO, $BDADR

EMT

.+
6
RO,$BDADR

ADD
MOV
BEQ
MOV
ADD
MOV
BEQ

EMT

010037
062737
012637
001401
104006

48%:

#RMMR1
, $BDADR
(SP)
+ ,$BDDAT

#RM
, $BDADR
DA

(Sz)+.SBDDAT
<t

RO, $BDADR

MoV
ADD
MOV

#RM
, $BDADR
DT

ADD

#RM
, SBDADR
LA

BEQ
EMT
MOV
MOV
BEQ
EMT
MOV

ADD

MOV
8EQ
EMT
MOV

ADD
MoV

BEQ
EMT
MOV
ADD
MoV

BEQ

(SP)+,SBDDAT

o*‘
6
RO, S8DADR

(SP)+,$BDDAT
0’4

;CHANGE

ALL

REGISTERS SHOULD BE

°‘PORT NUMBER'

TO THE OPPOSITE PORT

;BASE ADDRESS FOR REGISTER RMER1
;ADDRESS OF RMER1 FOK TYPEQOUT

;CHECK THE STORED CONTENTS OF RMER1
;CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMMR1
;ADDRESS OF RMMR1 FOR TYPEOUT
;CHECK THE STORED CONTENTS OF RMMR1
;CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMDA
;ADDRESS OF RMDA FOR TYPEOUT
sCRECK THE STORED CONTENTS OF RMDA
;CONTENTS ZERO ?

;BASE ADDRESS FOR REGISTER RMDT
;ADDRESS OF RMDT FOR TYPEOUT
sCHECK THE STORED CONTENTS OF RMDT
s CONTENTS ZERO ?
;BASE ADDRESS FOR REGISTER RMLA
;ADDRESS OF RMLA FOR TYPEOUT

;CHECK THE STORED CONTENTS OF RMLA
; CONTENTS ZERO ?

RO, $BDADR
N#RMER?
, $8DADR
(SP) +,$BDDAT

;BASE ADDRESS FOR REGISTER RMERZ2
;ADDRESS OF RMERZ FOR TYPEOUT
J(HECK THE STORED CONTENTS OF RMER?
2 CONTENTS ZERO ?

RO, $8DADR
#RMOF
, $BDADR
(SP)
+ ,$BDDAT

sBASE ADDRESS FOR REGISTER RMOF
sADDRESS OF RMOF FOR TYPEOUT
JCHECK THE STORED CONTENTS OF RMOF
s CONTENTS ZERO ?

R
6

L4
6
RO, $BDADR

#RMDC, $BDADR

(SP)+,$BDDAT
. +4

ZERO.

sBASE ADDRESS FOR REGISTER RMDC
cADDRESS OF RMDC FOR TYPEOUT
;CHECK THE STORED CONTENTS OF RMDC
;CONTENTS ZERO ?

C 4 RMRBO RM0S5/3/2 DU POR TST 1
T3
PORT 'B' SEIZE/TIMEQUT

007570
007572
007576
007604
007610
007612
0072614
007620
007626
007632
007634
007636
007642

174

007650
007654
007656
007660

104006

MACRO v04.00

TEST

010037
062737
012637
001401

001122
000030
001126

001122

010037
062737
012637

001122
000044
001126

001122

010037
062737
012637
001401

001122
000046
001126

001122

104006

001401
104006

104006

000004

4-APR-81

18:06:c5 PAGE

10-11

SEQ 0051
EMT
MOV
ADD
MOV
?g?

6
RO, $BDADR
#RMSN, $BDADR
(SP)+,$BDDAT
6*4

;BASE ADDRESS FOR REGISTER RMSN
;ADDRESS OF RMSN FOR TYPEOUT
sCHECK THE STORED CONTENTS OF RMSN
;CONTENTS ZERO ?

MOV
ADD
MoV
E5$

RO, $BDADR
ARMEC1,$BDADR
(SP) +,$BDDAT
é+4

;BASE ADDRESS FOR REGISTER RME(C1
;ADDRESS OF RMEC1 FOR TYPEOUT
sCHECK THE STORED CONTFNTS OF RMEC1
s CONTENTS ZERC ?

Mov
ADD

RO, $BDADR
ARMEC2 ,$BDADR

;BASE ADDRESS FOR REGISTER RME(2
;ADDRESS OF RMEC2 FOR TYPEOQUT

8EQ
EMT
SCOPE

. th
6

;CONTENTS ZERO ?

MOV

5%:

(SP)+,$BDDAT

;CHECK

THE STORED CONTENTS OF

RME(C?

;LOOP ?

188

189

AR R AN

TRTEST 4

AN AR AR RN R A A A

AN A AN

A A A AR TR A AN RRAN RN AN A AN AR A AR RANNANAANARNA

PORT 'A* SEIZE/RELEASE TEST

* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0'S INTO RMDS.

LA IR BB2 NB N4

SXTEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED
B.

SET VOLUME VALID AND CLEAR ANY ERROR

ISSUE A RELEASE COMMAND THROUGH PORT'A'.

VERIFY THAT

THE DRIVE

SEIS?NED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE

’

007662
007662
007666
007670
C07672
007676
007704
007712
£07720
007720
007726
007732

005737
001406

TST4:

001300

100002
000137
012737
012737
012737

177777
007720
007720

001300
001106
001110

112737
012706
012737

000004
001100
000012

001102

003074

IRE

2%:
TEST4:

001176

005037
012737

001256
003720

001260

A AR

AN AR AR AR AN R AN R AR AR AR A AN AR SRR AN RN RN

TST

KYBCTL

MOV

#-1,KYBCTL

MOV

#TESTSL ,SLPERR

BEQ
BPL
JMP
MOV

mMovs

THE

;PERFORMING ONLY SINGLE TEST

;BR IF NOT
:BR _IF JUST ENTERED TEST
SRETURN & GET NEXT TEST NUMBER

WTEST4,$LPADR

;SETUP SCOPE LOOP ADDRESS

#STACK,SP
#10.,STIMES

sSET SINGLE TEST INDICATOR
;SETUP ERROR LOOP ADDRESS

;MOVE #4 TO TEST NUMBER

;LOAD THE STACK POINTER
;:D0 10. ITERATIONS

TIMER

(LR

MoV

TIME

#2000. ,WATCH

sCLEAR THE ELAPSED TIME COUNTER

;SET WATCH TO 2000. MS

;SEIZE THE DRIVE AND SET VOLUME VALID
;SEIZE THE DRIVE THROUGH PORT A
007752

113760

001224

000010

23
1$
EXEC

#4,STSTNM

MOV
MoV
;START

007740
007744

AR A RN

MOvVB

PORTA,RMCS2(R0)

;SELECT PORT A

’ZRMRBO RMO5/3/2 DU POR TST 1
PORT °*A' SEIZE/RELEASE

007760
007766
207772
010000
010006
010012
010020

010026

010032
010040
010046
010054
010062
010064
010072
010100
010106
010110
010114
10316

013737
005060
013737
012760
005037
016037
012737

060037

012737
013737
042737
023737

001414
013737
042737
053737
104013
005°37
000240
012760

001224
000012
001226
000021
001250
000012
000012

001122

MACRO V04.00
TEST

001242

001244
000000
001126
001122

000100
001126
177677
001126

001124
001164
001164
001164

001126
000100
001174

001174
001174
001124

001250
000040

000010

4&-APR-81

66%:

10-12

SEQ 0052

MOV
CLR
MOV
MOov
CLR
Mov
MOV

PORTA,SEIZPT
;STORE SEI7ING PORT'S ADDRESS
RMuS (RO)
JWRITE RMDS
PORT8,0PPRT
;'OPPOSITE' PORT ADDRESS
#21,RMCS1(RO)
;SET VOLUME VALID
CKERR
;CLEAR THZ 'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE

MOV
MOV
BIC
CMP
BEQ
MoV
BIC
BIS
EMT
oM
NOP
Mov

#VV,8GDDAT
;WHAT REGISTER SHOULD BE
$8DDAT ,$TMPO
;MOVE REGISTER CONTENTS TO '$TMPO’
#*CVV,$TMPO
;SAVE SPECIFIED BITS
$GDDAT ,$TMPQ
;COMPARE THE BITS
663
;BR IF OK
$BDDAT ,$TMP4
;COPY 'BAD DATA'
AVV,$TMPS
;CLEAR THE MASKED BITS
$TMP4, $GDDAT
;'OR' WITH GOOD DATA FOR TYPEOUT
13
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR

ADD

18:06:25 PAG E

RO,$8DADR

;ADD RH/RM BASE ADDRESS

#CLR,RMCS2(RO)

‘

;CLEAR DRIVE

JRELEASE THE DRIVE FROM PORT A
010124
010132
010140

113760
013737
012760

001224
001224
000013

000010
001240
000000

move
MOV
Mov

PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCS1(RO)
;ISSUE RELEASE THROUGH PORT A

;VERIFY THAT THE DRIVE IS STILL

010146 005037 001254

010152
010160
010164
010172
010200

012737
060037
012737
113760
016037

000012
001122
011600
001224
000012

010214
010222
010230
010236

013737
042737
113760
016037

C10252

010266
010274
010276
010302
010304
010306
010312
010320
010326
010334
010340
010342
010350
010356

01026

CLR

010260

sCLEAR THE 'PELEASE ERROR ° INDICATOR

001124
000010
001170

001170
100100
001226
000012

001164
001164
000010
001172

MOV
BIC
]
MOV

013737

001172

001166

MOV

#PIP!WRL! $TMP3
;CLEAR DONT CARES
$TMP3 STMPI
;COPY IT INTO 'STMP1°

023737
001006
005737
001037
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760

001164

001166

cMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOvB
TST
BEQ
mMov
MoV
MOovB

$TMPO, $TMP1
68%
$TMPO
70%
46
728
$TMP2, $BDDAF
PORTB,PTNBR
PORTB,RMCS2{(RO)
$TMPO
69%
PORTA,PTNB
$TMP3, $BDDAT
PORTA ,RMCS2(RO)

024001

001170

BIC

010244 042737 024001 001172

RELERR

MOV
ADD
MOV
mMovBe
MOV

042737

001122

IN NEUTRAL

(42737

100100

BIC

001166

BIC

001164

010472
001170
001226
001226
001164

001224
001172
001224

001126
001240

000019

001240
001126
000010

68%:

#RMDS , SBDADR
sFORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, SBDADR
;ADD THE I1/0 BASE ADDRESS
#MOL !PGM!DPR!DRY,SGDDAT
; COMPARISON CONSTANT
PORTA RMCS2(RQ) ;SELECT PORT A.
RMDS(RO) , 8T
;GET THE DRIVE STATUS REGISTER FROM PORT A,

#P1P!WRL{OM, $TMP2

$TMP2, ST
NATA!VV, ST
PORTB.RHCSZ(RO)
RMDS(RQ) , ST,

FATAIVV,

STMP1

sCLEAR DONT CARES

;COPY 1T INTO *STMPO’
:CLEAR PORT DEPENDENT BITS FROM THE COPY
;SELECT PORT B.
SGET THE DRIVE STATUS REGISTER FROM PORT B.
:CLEAR PORT DEPENDENT BITS FROM THE COP(

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS °
¢BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
JBR IF NOT
;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERQ
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
; 'BAD DATA' FOR ERROR TYPE QuT
;SELECT PORT A.

(ZRMRBO RMOS/3/2 DU POR TST 1
T4
PORT ‘A’ SEIZE/RELEASE

010364
010370
010372
010400
010402
010410
010416
010424
010432
010434
010436
010444
010452
010460
010466
010470
010472
010474
010500
610502
010506
010514
010522
010526
010534
010542
010546
010552
010560

010566
010574

010576
010604
010612
010620
010622
010626
010630
010636
010644
010650
10656
010664

010670
010674
010702
010710
010716
010720
010726

010734
010742
(10744
010750
010752

MACRO v04.00

TEST

4-APR-81

SEQ 0053

005737
001004
012737

001166
177777

001254

69%:

MOV

013737
013737
042737
023737
007401
104007
013737
013737
042737
023737
001401

001170
001224

001126
001240
001126
001126

70%:

MOV
Mov
BI(
CMP
8EQ

104022

104007
000240
005737
001402
000137
113760
013737
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104017

005137
000240

113760
013737
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104017

005137
000240
000137

100100
001124

001172
001226
100100
001124

TST

001126
001240
001126
001126

010756
001224
001224
001250
000012
000012
001122
001124
001126

000010
001240

001164
001164
001164

001126
100000
001174

001174
001174
001124

001250

001226
001226
001250
000012
000012
001122
001124
001126
077777
001124

001164
001164
001164

001126
100000
001174

001174
001174
001124

011010

000010
001240

BNE

EMY

EMTY

MOV
MOV
BI(C
CMP

8EQ
EMT
NOP
TST
BEQ
JMP

Movse
MOV

001126
001122

077777
001124

001250

71%:

72%:

001254

M9
.
18:06:25 PAGE 10-13

73%:

001126
001122

CLR
MOV
MOV
ADD
CLR
MOV
B8IC
MP
BEQ
MOV
BIC
8IS
EMT
oM
NOP
Mov8
MoV
CLR
MOV
MOV
ADD
CLR

75%:

MOV
8IC
CMP
BEQ
MOV
BIC
BIS
EMT
coM
NOP
JMP

$TMPY
70%

;SEE IF STATUS EQ ZERC FROM PORT B.
:BR IF NOT
;SET 'RELEASE ERROR' INDICATOR

#-1,RELERR

$TMP?2, $BDDAT

sLOJK FOR BIT FAJLURES WHEN RMDS READ
s CHANGE PORT NUMBER
;DON'T CHECK ATTN BIT OR vv BIT
JALL BITS OK ?

POKTA ,PTNBR
#ATA.VV, $8DDAT

$GDDAT,$8DDAT
;15

JBR

IF OK FRUM PORT A,

$TMP3, $BDDAT

;CHECK RMDS FOR BIT FAILURES =~ FROM PORT B.
; CHANGE PORT NUMRER

$GDDAT,$BCDA"

;SEE

PORTE ,PTNBR
HATA!VV, $BDDAT

JDON'T CHECK ATTN BIT OR vV BIT

;23

IF READ OK FROM PORT B.

;BR IF OK

RELERR

.+6
18
PORTA,RMCS2(R0O)

;DID DRIVE RETURN TO NEUTRAL

;BR IF IN NEUTRAL
;G0 WAIT FOR DRIVE TO TIMEOUT
;SELECT PORT A

PORTA,PTNBR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

#RMDS ,$BDADR

;FORM REGISTER ADDRESS OF ERROR MESSAGE

CKERR
;CLEAR THE ‘'CHECK ERROR'
RMDS
(RO) ,$BDDAT
;GET CONTENTS OF RMDS

RO,$8DADR
$GDDAT

$BDDAT ,$TMP(Q

#*CATA,.$TMPO

$GDDAT,$TMPO
73%
$BDDAT ,$TMP4

:ADD RH/RM BASE ADDRESS
JWHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO 'S$TMPO’

;SAVE SPECIFIED BITS

;COMPARE THE BITS
;BR IF 0K
;COPY °‘BAD DATA'

#ATA, STMPS
?;MP4,SGDDAT

JCLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

PORTB,RM(S2(R0O)
PORTB,PTNBR

INDICATOR

,SELECT PORT B

;MOVE

PORT ADDRESS

TO LOCATION FOR

CKERR
;CLEAR THE 'CHECK ERROR'
RMDS(RQ) ,$BDDAT
;GET CONTENTS OF RMDS

TYPEQUT

INDICATOR

MRMDS ,$BDADR
RO,$8DADR

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

$BDDAT,$TMPO

<MOVE REGISTER CONTENTS TO 'STMPQ’

S$GDDAT

#°CATA,STMP()

$GDDAT ,S$TMPC

JWHAT REGISTER SHOULD BE

;SAVE SPECIFIED BITS

;COMPARE THE BITS

75%

:BR [F OK

H#ATA, $TMPL

;CLEAR THE MASKED BITS

$SBDDAT, $TMP4

;COPY 'BAD DATA®

?;MP4,$GDDAT

;'0OR*

WITH GOOD DATA FOR TYPEOUT

CKERR

JSET THE REGISTER COMPARE ERROR INDICATOR

.GO CHECK FOR LOOP ON ERROR

;IF RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMFOUT

CZRMRBO RMOS/3/2 DU POR TST 1

PORT

'A'

SE12C/RELEASE

MACRO Vv04.00

TEST

SEQ 0054
;TO RELEASE

—

3888
o

d
b

d eed e
—

—

elolele]

210756
010756
010764
010772
010776

224
238
239

113760

013737
005760
001004
005737
001364
104036
000004

001226
001226
000012

000010
001240

N
9
18:06:25 PAGE 10-14

4-APR-81

1%:

THE

"0VB
MOV
TST

PORTB,RMCS2(RO)

IST

WATCH
1%

PORTB,PTNBR

RMDS (RO)

BNE
EMT
SCOPE

2%:

;SELECT PORT B

;MOVE

PORT ADDRESS

TO LOCATION FOR

TYPEOUT

;WAIT FOR TIMEOUT TO RELEASE DRIVE

BNE

001260

DRIVE

;BR _WHEN DRIVE RELEASED

sCHECK THE WATCH
;BR IF NOT ZERO

;LOOP ?

':ttfitttt*t***tfifi*.*fifiittitt*fi*t.*tttt*ttfit*tttttfittwtttttttttitt

LxTEST S

PORT

'B'

SEIZE/RELEASE

TEST

s*TEST THE OPERATION OF
*

‘e

SEIZE

SET VOLUME VALID AND CLEAR ANY ERROR

;t
:t

"*
.'t

THE DRIVE THROUGH PORT

001300

000137
012737
012737
012737

003074
177777
011050
011050

112737

000005
001100
000012

100002

012706
012737

240
241

TSTS:

001300

001106
001110

001102

001176

18:

2%:

TESTS:

'B'

BY WRITING 0'S

ISSUE A RELEASE COMMAND THROUGH PORT"B'.

RETURNED TO NEUTRAL,

DRIVE.

XA AR AR AR AT AR A AN R AR

005737
001406

THE RELEASE COMMAND, DRIVE SEIZED

TST

AND

THAT NO ERRORS ARE

INTO RMDS.

VERIFY THAT THE DRIVE
INDICATED BY THE

AR A AN AR A AR AR R AARNNRAARNAANRRRAANAAARRRRANACERN

KYBCTL

;PERFORMING ONLY SINGLE

3
1%

;BR IF NOT
;BR IF JUST ENTERED TEST

TEST ?

BEQ
8PL
JMP
MOV
MOV
MOV

EXEC
#-1_KYBCTL
NHTESTS5,.SLPADR
HATESTS,SLPERR

JRETURN € GET NEXT TEST NUMBER
JSET SINGLE TEST INDICATOR
0
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MOvVB
MOV
MOV

#5,8TSTNM
#STACK,SP
#10. ,$TIMES

;MOVE #5 TO TEST NUMBER
;LOAD THE STACK POINTER
;:DO 10. ITERATIONS

TIME
#2000. ,WATCH

;CLEAR THE ELAPSED TIME COUNTER
;SET WATCH TO 2000. MS

;START THE TIMER
005037
012737

001256
003720

001260

CLR
MoV

;SEIZE THE DRIVE AND SET VOLUME VALID

D
b
b
—t

B NANN
== O
nNONONONOMN

D
d

ok —d

b
b

b
D
b

D
—d

—d

leleolelelelels)

;SEIZE THE DRIVE THROUGH PORT B
113760

013737
005060
013737
012760
005037
016037

001226
001226
000012
001224
000021
001250
000912

000010
001242

001244
000000

001126

MOVB
MOV
CLR

Mov
MoV
CLR
Mov

PORTB,RMCS2(RO)

;SELECT PORT B

RMDS (RO)
PORTA,OPPRT
#21,RMCS1(RO)
CKERR
RMDS (RO) ,$BDDAT

JWRITE RMDS
;'OPPOSITE' PORT ADDRESS
;SET VOLUME VALID
;CLEAR THE °'CHECK ERROR' INDICATOR
;GET CONTENTS OF RMDS

PORTB,SEIZPT

;STORE

SEIZING PORT'S ADDRESS

IRMRBO RMOS,

3/2

DU POR TST

MACRO v04.00

PURT 'B* SEIZE/RELEASE TEST
011150

011156

011162
011170
011176
011206
011212
011214
011222
011230
011236
0112640
011264
0%'12646

012737

060037

012737
013737
042737
023737
001414
013737
042737
053737
104013
005137
000240
012760

000012

(C01122

001122

000100
001126
177677
001124

001124
00'164
001164
001164

001126
000100
001174

001174
001174
001124

001250
000040

«=-APR-81

000010

MOV
ADD

MOV
MOV
BIC
(MP
BEQ
MOV
BI(
8IS
EMT
(oM
NOP
MoV

€6$:
SRELEASE

011256
011262
11270

113760
013737
012760

001226
001226
0C0013

000010
001240
000000

011276
011302
011310
011314
011322
011330
011336

005037
012737
060037
012737
113760
016037
042737

011344
011352
011360
011366

013737
042737
113760
016037

011402
011610
011416
011424
011426
011432

013737
042737
023737
001006
005737
001037

011436
011442
011450
011656
011464
011470

000137
013737
013737
113760
005737
001414

011500
011506
011514
211520
011522
011530
011532
011540

013737
113760
005737
001004
012737
104022
013737
013737

011374

C11434

011472

042737

104046

013737

001254
000012
001122
011600
001224
000012
024001

001170
100100
001226
000012

024001

001172
100100
001164

001122

001124
000010
001170
001170
001164
001164
000010
001172

001166
001166
001166

001126
001240
000010

001224

001240

68%:

001126
000010

177777

001254

69%:

001170
001224

001126
001240

70S$:

;ADD RH/RM BASE

ADDRESS

ERROR MESSAGE

#VV ,SGDDAT
;WHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
JMOVE REGISTER CONTENTS TO *STMPQ°’
#°CVV,$TMPO
;SAVE SPECFIED BITS
$GDDAT,$TMPQ
. (OMPARE THE BITS
663
;BR IF OK
$BDDAT, $TMP4
;COPY 'BAD DATA'
VY, S$TMPS
;CLEAR THE MASKED BITS
$7VP4 ,SGDDAT
;'OR' WITH GOOD DATA FOR TYPEOUT
13
CKERR
;SET THE REGISTER COMPARE ERKROR INDJCATOR
#CLR,RMCS2(RO)

;CLEAR DRIVE

PORTB RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPrOUT
#13,RMCL1(RO)
;ISSUC RELEASE THROUGH PORT 8
THE DRIVE

IS STILL

IN NEUTRAL

RELERR
;CLEAR THE °‘RELEASE ERROR ' INDICATOR
#RMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $8DADR
;ADD THE 1/0 BASE ADDKESS
#MOL !PGM!DPR!DRY ,$GDDAT
; COMPARISON CONSTANT
PORTA ,RMCS2(RO) .SELECT PORT A,
RMDS(RC) ,$TMP2
. GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP WRL I OM, STMP?
;CLEAR DONT CARES

BIC

#PIP!WRL | OM,STMPS

EMT

JMP
MOV
MOV
MoV
TST
BEQ
MoV

001172
001224
001166

;FORM REGISTER ADDRESS CF

CLR
MOV
ADD
MOV
MOvVB
MOV
8IC

MOV
BI(
P
BNE
TST
BNE

001164
011622
001170
001226
001226
001164

THAT

MCv
8Ic
MOVS
MOV

001172

#RMDS ,$BDADR

RO, SBDADR

SEQ 0055

THE DRIVE ROM PORT B
MOVB
MOv
MOV

SVERIFY

8 10
18:06:¢S PAGE 10-15

MOV
MOVB
TST
BNE
MOV
EMT
MoV
MoV

$TMP2,$TMPO
NATA!VV,STMPO
PORTB,RMCS2(R0O)
RMDS
(RO) ,$TMP3

;COPY 1T INTO °*STMPO’
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;SELECT PORT B.
“GET THE DRIVE STATUS REGISTER FROM PORT B.

$TMP3, $TMPY
NATAIVV $TMPT
$TMPO, STMPY
688
$TMP0
708

;COPY IT INTO 'STMPY’
[ CLEAR PORT DEPENDENT BITS FROM THE (OPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS °
;BR IF NOY
JREGISTERS ARE THE SAME: ARE THEY ZERO °
sBR 1F NOT

:CLEAR DONT (CARES

72%
$TMP2,SBDDAT
PORTB ,PTNBR
PORTB,RMCS2(R0O)
$TMPO
69%

;BYPASS THE REST OF THE (HECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
;BR IF ZERO

$TMP3 . $BDDAT
PORTA ,RMCS2(R0O)
$TMPY
708
#-1,RELERR
22
$TMP2, $BDDAT
PORTA,PTNBR

;'BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A,
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR IF NOT
;SET 'RELEASE ERROR' INDJCATCR

PORTA ,PTNBR

;SEIZING PORT

TEST SHOWS DRIVE NOT

;LOOK FOR BIT FAILURES WHEN RMDS RLCAD
s CHANGE PORT NUMBER

[N NEUTRAL

"JRMRBC RMO5/3/2 DU POR TST 1
TS
PORT '8° SEIZE/RELEASE
011566

011556
G11562
011564
011566
011576
011602
011610
011616
011620
011622
011624
011630

011632
011636
011644
011652

042737

023737
001401
104007
013737
013737
042737
023737
001401
104007
000240
C05737
001402

000137
11376C
013737
005037

011656
011664
611672
011676
011702
011710

016037
€12737
060037
005037
0137327
042737

011724
011726
011734
011742
011750
011752
011756
011760
211766
011774
012000
012066
012014
912020
012024
012032
012040
C12046
012050
012056
012064
012072
012074
012100
012102

001414
013737
042737
053737
104017
005137
000240
113760
013727
005057
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104017
005137
000240
000137

011716

023737

100100

MA(RO v04.00
TEST
001126

(01126

001126

001172
001226
100100
001124

001126
001240
001126
001126

012106
001226
001226
001250

000012
000012
001122
001124
001126
077777

001126

001126
100000
001174

71%:

001126
001122

001164
001164

001164

001250
001224
001224
001250
000012
000012
001722
001124
001126
077777
001124

001164
001164
001164

001126
100000
001176

001174
001174
001124

000010
001240

73%:

001126
001122

001250

75%:

012140

MP
8tQ
EMT
MOV
MOV
BIC
TMMP
BEQ
EMT
NOP
IST
BEQ

$GDDAT ,$BDDAT
71
7
$TMP3, SBDDAT
PORTB,PTNBR
#ATA
. VV,$BDDAT
SGDDAT,$BDDAT
72%
7

RELERR
. +6

;DON'T

001224
001224
000072

000030
001240

1%:

vv BIT

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
s CHANGE PORT NUMBER
;DON'T (HECK ATTN BIT OR vv BIT
;SEE [F READ OK FROM PORT 8.
JBR IF 0K
;DID DRIVE RETURN TO NEUTRAL
;BR IF IN NEUTRAL

18
;GO WAIT FOR DRIVE TO TIMEOUT
PGRTB,RM(S2(R0O)
;SELECT PORT 8
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE ‘CHECK ERROR' INDICATOR

BEQ
MGV
BIC
BIS
EMT
oM
NOP
MOvB
MOV
CLR
MOV
MOV
ADD
CLR
MOV
8IC
cMp
BEQ
MOV
8I(C
BIS
EMT
oM
NOP
JMP

73$
$BDDAT,$TMP4
NATA,STMPS
$1MP4 , $GDDAT
17
(KERR

$GDDAT,$TMPO

;COMPARE THE BITS

:BR IF 0K
~COPY °*BAD DATA'
sCLEAR THE MASKED BITS
;'OR’ WITH GOOD DATA FOR TYPEQUT

;SET THE REGISTER COMPARE ERROR INDICATOR

PORTA RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
(KERR
JCLEAR THE °‘CHECK ERROR® INDICATOR
RMDS(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS
, $BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
:ADD RH/RM BASE ADDRESS
$GDDAT
SWHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO '$STMPO®
#“CATA $TMPO
SAVE SPECIFIED BITS
$GDDAT ,$TMPO
;COMPARE THE BITS
75%
JBR IF 0K
$BDDAT,$TMP4
;COPY 'BAD DATA’
#ATA,$TMPS
;CLEAR THE MASKED BITS
$TMP4 , SGDDAT
;'OR' WITH GOOD DATA FOR TYPEQUT
17
(KERR
;SET THE REGISTER COMPARE ERROR INDICATOR

;60 CHECK FOR LOOP ON ERROR

;JF RELEASE COMMAND DIDN'T RELEASE

113760
013737
005760

RMDS(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDATY
sWHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
;MOVE REGISTER CONTENTS TO *‘S$TMPO°’
#*CATA, $TMPO
;SAVE SPECIFIED BITS

;TO RELEASE

012106
012106
012114
012122

CHECK ATIN BIT

ALL BITS 0K ?
;BR IF OK FROM PORT A.

MOV
MOV
ADD
CLR
MOV
BI(C

CMP

001174
001174
001124

1C
10-16

MATA!VV, $BDDAT

JMP
MOvB
MOV
CLR

000010
001240

c
18:06:25 PAGE

Sty 005
BIC

72%:

001254

4-AFR-81

MOVR
MoV
TST

THE

THE DRIVE, WAIT FOR THE PORT TIMEOUT

DRIVE

PORTA ,RMCSZ2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS (R()
JWAIT FOR TIMEOUT TQ RELEASE DRiVE

1
1
1
1

001004

005737

001364
&

OQOCCO

—J—J—I—C_J

AN ToV1,1,
87, ¥

/RMRBO RMO5/3/2 DU POR TST 1
TS
PORT ‘B’ SEIZE/RELEASE

246

MACRO v04.00

TEST

4-APR-B1

BNE

(01260

TST

BNE
EMT
SCOPE

104036

000004

255
256

D 10

18:06:¢5 PAGE

10-17

:BR WHEN DRIVE RELEASED

WAT(H
1s

JCHECK THE WAT(H
;BR IF NOT ZERO

JLOOP ?
I

':'fi.tttt'tltt.Qi...'""".t.t""tt"'.l"'tt't"t't't"'tt'.

YATEST 6

PORT

'A'

NEUTRAL/RELEASE

TEST

:+TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL
[

ISSUE A RELEASE COMMAND THROUGH PORT ‘A WITH THF DRIVE
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL.

012142
012142
012146
612150
012152
012156
012164
012172
012200
012200
012206
012212

'.'I...il'lt"t'tt.'."t'tt.".ttfl'i"tt'fi.t'ttt"ttt.tttt"'ttt't

005737
001406

100002
000137

1876

001300

TST

BEQ
8PL
JMP
MOV
MOV

012737
012737

00307¢
177777
012200
012200

112737
012706
012737

000006
001100
000012

001102

001176

MOVB
MOV
MOV

113760

001224

001224
001224

000010
001240
001242

MOVB
MOV
Mov

000013

000000

012737

257
2€8 012220
012226
012234

013737
013737

012242

012760

001300

001106
001110

18:

28:
TEST6:

MOV

KYBCTL

#=1,KYBCTL
#TESTE,SLPADR
NTEST6,SLPERR

JPERFORMING ONLY SINGLE TEST °?
;BR IF NOT
;BR IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

#6,3TSTNM
#STACK,SP

;MOVE #6 TO TEST NUMBER
;LOAD THE STACK POINTER

1%
EXEC

#10.,STIMES

;:D0 10. ITERATIONS

PORTA ,RMCS2(R0)
PORTA PTNBR
PORTA,SE1ZPT

;ISSUE A RELEASE COMMAND
MOV

SSELECT PORT A

;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

#13,RMCS1(RO)

;ADDR OF PORT WHICH WILL ISSUE RELEASE

;ISSUE A RELEASE COMMAND

JVERIFY THAT THE DRIVE IS STILL IN NEUTRAL
012250
012254
012262
C12266
012274
012302
012310
012316
012324
012332
012340
012346
012354
012362
012370
012376
012400
012404
012406

005037

012737
060037
012737
112760
016037
042737

013737
042737
113760
016037
042737
013737
042737
023737
003006
005737
001045
104046

001254

000012
001122
011700
001224
000012
024001

001170
100100

001226
000012
024001
001172
100100
001164

001164

001122

001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

CLR
MOV
ADD
MOV
MOvB
MOv
BIC
MOV
BIC
MOVB
MOV
BIC
MOV

8I(
(MP
BNE
T57

BNE
EMT

RELERR
#RMDS
, SBDADR

RO, SBDADR

;CLEAR THE 'RELEASE ERROR ' INDICATOR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
;ADD THE 1/0 BASE ADDRESS

#MOL ' PGM!DPR!DRY!VV,SGDDAT

PORTA ,RMCS2(RO)
RMD
(RQ) ,$TMP2
S

:COMPARISON CONSTANT

;SELECT PORT A.
;GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP'WRLIOM, $TMP?
sCLEAR DONT CARES
$TMP2,$TMPO
sCOPY IT INTO ‘STMPO’
NATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) ;SELECT PORT B.
RMDS
(RO) ,$TMP3
:GET THE DRIVE STATUS REGISTER FROM PORT B.
#PIP'WRL IOM,$TMPS
sCLEAR DONT CARES
$TMP3,$TMPY
;COPY IT INTO '$STMPT'
NATA!VV,$TMP1
;CLEAR PORT DEPENDENT BITS FROM THE COPY
$TMP0,$TMPT
;ég }?ENS;ATUS REGISTER THE SAME FROM BOTH PORITS °?
643
$TMPO
JREGISTERS ARE THE SAME: ARE THEY ZERQ ?
66%
JBR IF NOT

{RMRBO RMOS/3/¢ DU POR TST 1
MACRO v04.00
T6
PORT 'A' NEUTRAL/RELEASE TEST

012410
012414
012422
012430
012436
012442
012444
012452
012460
012466
012472
012474

212502
012510
012516

012520
012526

012534

012542
12550
012552

269
278
279

012554
012562
012570
012570
012604
012606
012610
012612

000137
013737
013737
113760

005737
001414
013737
013737

113769
005737
001012
012737
012760
012760
104030

013737
013737
042737
023737
001401
104007
013737
013737
042737

023737
001401

012610
001170
001226
001226
001164

001126
001240
000010
001240
001126
000010

177777

001254
000000
000000

65%:

668%:

001124

001126
001240
001126
001126

001172
001226
100000
001124

001126
001240
001126
001126

67%:

001170
001224

100000

JMP

MOV
MOV
MOVRB
TST

10-18

MOv

MOV
81C
CMP
BEQ
EmMY
NOP
SCOPE

THE

(HECKS

PORTA,PTNBR

;SEIZING PORT IF

$TMP3, $BDDAT

8IC
(MP
BEOQ
EMT

THE REST OF

PORTB ,RM(S2(R0)
$TMPO

PORTB,PTNBR

MOV
mMov8
TST
BNE
MOV
MOV
MOV
MOV
MOV

;BYPASS

;SET UP POSSIBLE BAD DATA FOR ERROR ME SSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
;SELECT PORT 8.
;SEE IF STATUS EQ O FROM PORT A,

65%

EMT

68%:

68$
$TMP2 $BDDAT

8t0

MOV

104007

000240
000004

4
18:06:25 PAGE

SEQ 0058

648

001224
001172
001224
001166

000011
000013

&-APR-81

PORTA,RM(SZ2(RC®

663

#-1,RELERR
#11,RMCS1(RO)

§63,RHCS1(RO)
$TMP2,$BDDAT

;BR IF

ZERO

TEST SHOWS DRIVE NOT IN NEUTRAL

;'BAD DATA' FOR ERROR TYPE QUT

;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
:BR_IF NOT

;SET 'RELEASE ERROR®
;CLEAR THC DRIVE
JRELEASE THE DRIVE

INDICATOR

$GDDAT ,$8DDAT
973

;LOOK FOR BIT FAJLURES wHEN RMDS READ
; CHANGE PORT NUMBER
;DON'T (HECK THE ATTIN B]7
JALL BITS OK ?
;BR IF OK FROM PORT A,

$TMP3, SBDDAT

;CHECK RMDS FOR BIT FAILURES ~ FROM PORT B.

$GDDAT,$BDDAT
983

sDON'T CHECK THE ATIN B]T
;SEE IF PEAD OK FROM PORT B.
:BR IF OK

S0RTA,PTNBR
#ATA,SBDDAT

PORTB,PTNBR
#ATA,SBDDAT

; CHANGE PORT NUMBER

;L00P ?

';tt"..t..t'tfl't'ti.t."..'l.'t"..l!.i..tt.'tt't'...'tt'tttt

'.'

SeTEST 7

PORT

'B"'

NEUTRAL/REL_EASE

TEST

- %

;-resr OPERATION OF RELEASC COMMAND, DRIVE IN NEUTRAL
*

*
*

|SSUE A RELEASE COMMAND THROUGH PORT 'B' WITH THE DRIVE
NEUTRAL: VERIFY THAT THE DRIVE REMAINS IN NEUTRAL.

012614
012614
012620
012622
012624
012630
012636
012644

005737
001406
100002
000137
012737
012737
012737
112737

12706

280
281

TST17:

001300
003074
177777
012652
012652

001300
001106
001110

000007
001100
000012

001102

001226
001226
001226

000610
001240
001242

001176

1%:

2s:

TEST7:

SRl

TST

KYBCTL

MOV

#-1,KYBCTL

I 223222222222

MOV
MOV

#TEST7,$LPADR
#TEST7 ,SLPERR

;PERFORMING ONLY SINGLE TEST ?
;BR IF NOT
;BR _IF JUST ENTERED TEST
SJRETURN £ GET NEXT TEST NUMBER
sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MOvVR

#7,3TSTANM

;MOVE #7 TO TEST NUMBER

MOV

#10. ,$TIMES

;:D0 10. ITERATIONS

BEQ
BPL
JMP

MOV

MOVB
MOV
MOV

23
18
EXEC

#STACK ,SP

;LOAD THE STACK POINTER

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPLQUT
PORTB,SEIZPT
;ADDR OF PORT WHICH WILL ISSUE RELEASE

;GVRBQ KMOS5/3/2 DU POR TST 1
MACRO v04.00
v
PORT °*R' NEUTRAL/RELEASE TEST

012714

005037
012737
060037
012737
113760
016037

001254
000012
001122
011700
001224
000012

012770
012776
C13006
013012

013737
042737
113760
016037

001170
100100
001226
000012

013026
013034
C13042
013050
013052
013056
013060

013737
042737
023737
001006
005737
001045
104046

001172
100100
0C1164

013020

042737

024001

024061

000000

IN NEUTRAL

STILL

001164
001164
000010
001172

MOV
BIC
MOVB
MOV

$TMP2, $TMPO
#ATA'VV,$TMPO
PORTB,RMCS2(RO)
RMDS
(RO) ,$TMP3

;COPY IT INTO *$TMPO°
:(CLEAR PORT DEPENDENT BITS FROM THE COPY
-SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

STMP3, $TMPT
NATA!VV,$TMPY
S$STMPO,STMPI
648
$TMPO
663
46

:COPY 1T INTO '$TMP1®
;CLEAR PORT DEPENDENT 8BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
‘BR IF NOT
;REGISTERS ARE THE SAME: ARE THEY ZERQ ?
‘BR IF NOT

$TMP2 ,$8DDAT
PORTB,PTNBR

:SET UP POSSIBLE BAD DATA FOR ERROR MESSASGE
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

001170

BIC

001172

BIC

001146
001166
001166

MOV
BIC
CMP
BNE
ST
BNE
rMT

001226
001164

000010

001224
001172
001224
001166

001240
001126
000010

177777
000011
000013

001254
000000
000000

65%:

001170
001224
100000
001124

001126
001240
001126
001126

66%:

001172
001226
100000
001124

001126
001240
001126
001126

67%:

104007
(00240
000004

DRIVE

001124
000010
001170

113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104030
013737
013737
042737
023737
001401
104007
013737
(13737
042737
023737

1001401

THE

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS , $BDADK
JFORM THE ADDRLSS OF RMDS FOR TYPEOULT
RO, SBDADR
*ADD THE 1/0 BASE ADDRESS
#MOL 'PGM!DPR!DRY!VV,S$GDDAT
;COMPARISON CONSTANT
PORTA,RMCS2(R0) :SELECT PORT A.
RMDS(R0O) ,$TMP2
-GET THE DRIVE STATUS REGISTER FROM PORT A.

013102
013110
013114
012116
013126
013132
013140
013144
013146
013154
013162
013170
013172
013200
C13206
013214
013222
013226
013226
013236
013242
013250

013256

THAT

CLR
MOV
ADD
MOV
MOVB
MOV

001122

013262

013260
013262
013264

SEQ 0059

JVERIFY

001164

001170
001226

10
'0-19

;ISSUE A RELEASE COMMAND

000137

013737
013737

F
18:06:¢5S PAGE

;ISSUE A RELEASE (OMMAND
MOV
#13,RMCST(RO)

013062

013066
013074

302

G00013

012722
012726
01273
0127640
0127646
012754

012762

282
201

012760

4-APR-8!

007126
001240

64%:

;CLEAR DONT CARES

#PIP'WRLIOM,$TMPS

:CLEAR DONT CARES

mMP

688

MOVB
ST
BEQ
MOV
MOV
MOVB
IST
BNE
MOV
MOV
MOV
EMT
MOV
MOV
BIC
TM
BEQ
EMT
MOV
MOV
BIC
(TM

PORTB.RMCS2(RO)
$TMPO
65%
PORTA,PTNBR
$TMP3_SBDDAT
PORTA.RMCS2(R0O)
s$TMPY
663
#-1.RELERR
#11.RMCST1(RO)
#13.RMCST(RO)
30
$TMP2,$80DAT
PORTA.PTNBR
#ATA, $8DDAT
$GDDAT,$BDDAT
67%
7
$TMP3, $BDDAT
PORTB.PTNBR
#ATA, $BDDAT
$GDDAT,$8DDAT

MOV
MOV

8EQ

€8%:

#PIP!WRL OM,$TMP2

EMT
NOP
SCOPE

68$
7

;BYPASS THE REST OF THE CHECKS

:SELECT PORT B.
:SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
:SEIZING PORT IF TEST SHOWS DRIVE NOT
:°'BAD DATA' FOR ERROR TYPE OUT
:SELECT PORT A,
JSEE IF STATUS EQ ZERO FROM PORT B.
*BR IF NOT
*SET 'RELEASE ERROR' INDICATOR
:CLEAR THE DRIVE
:RELEASE THE DRIVE

;LOOK FOR BIT FAILURES WHEN RMDS READ
:CHANGE PORT NUMBER
*DON'T CHECK THE ATIN BIT
-ALL BITS OK ?
‘BR IF OK FROM PORT A.
;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
:CHANGE PORT NUMBER
‘DON'T CHECK THE ATTN BIT
“SEE IF READ OK FROM PORT B.

:BR IF OK
;LOOP ?

':.".t't"'t't'lttl"t"'t!."t.t't.t.'lt't.l't.t!!'tttt"'t.'t'

TeTEST 10

IN NEUTRAL

PORT ‘A' RELEASE INTERFERENCE TEST

CAMRBO RMGS/3/72
vy

pOR'

'Al

DU PCR

1ST

RELEASE

MACRO v04.00
INTERFERENCZE TEST

10-20

THAT A COMMAND [SSUED BY ONE PORT
IS SEIZED BY THE OTHER PORT.

P
®
o

VERIFY

RELEASE
TO PORT

THE DRIVE
‘A’,

THROUGH PORT

'B’,

VERIFY

€.

RELEASE

THE DRIVE

THROUGH PORT

'A’,

VERIFY THAT THE DRIVE RETURNED

THE DRIVE

THROUGH PORT

N
I

THAT

'B' BY WRITING 0°S INTO RMDS.

COMMAND THROUGH PORT

THE DRIVE

IS STILL

THE DRIVE

ISSUE A RELEASE

'A°’,

SEIZED BY PORT

'R,

THAT

THE DRIVE

SWIT(MED

LRI

LR B

IS NOT RECOGNIZED IF

SEIZE

18:06:¢5 PAGE

StEQ 006v

;'VERIFY
T

G 10

4-APR-B1

TO NEUTRAL AND

THAT NEITHER ATTENTION BIT

IS SET.

. tt't'Q'..t."'tt..'""'Q'QQt'.""i'.t.'t"tt.ttt

013266
013266
013272

013274

303

013276
013302
013310
013316
013324
013324
013332
0°3336

t.'t'tQt'tt'.

005737
001406

001300

000137
012737
012737
012737

003074

100002

112737

012706
012737

177777

013324
013324

000010
00110V
000012

TST10:

001300
001106
001110

1%:

2%:

TEST10

MOv

MOV
MOV
MOv

001176

KYBCTL

{PERFORMING ONLY SINGLE

23
1%
EXEC

TESTI

;BR IF NOT
JBR IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBEP

#=1,KYBCTL

#TEST10,8LPADR
#TESTI0,S8LPERR

MOVB

001102

327

BEQ
8PL
JMP

210,8TSTAM

JSET

SINGLE

TEST

INDICATOR

;SETUP SCOPE LOOP ADDRESS

;SETUP ERROR LOOP ADDRESS

JMOVE #1710 TO TEST NUMBER

#STACK,SP
#10. ,3TIMES

;LOAD THE STACK POINTER

;:D0 10.

ITERATIONS

;CLEAR A, .ENTION BITS FOR BOTH PORTS
013344
013352

013356
013364
013372
073400
013404
013412

113760
005060
012760
012760
113760

005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

MOvVB
CLR

000010
000000
000000
000010

MOV

000000
000000

013420
013426
013434

113760

013737
005060
113760

013737
013737
016037
010037
062737
005037
023737
001403
104004

001226
001226
000012
001224

001224
001224
000012
001122

000012

001124
001124

000010
001242

000010
001240
001244
001126
001122

001126

;SELECT PORT #A
JSEIZE THE DRIVE

#13,RMCSI1(RO)

;RELEASE THE DRIVE

MOV

#11,RMCST(RO)

MOVB

PORTB,RM(S2(R0O)

MOV
MOV

#11_,RMCSI(RO)
#13,RMCS1(R0O)

(LR

:SEI1ZE

PORTA RMCS2(R0)
RMDS (RO)

THE

DRIVE

MOVR
MOV

RMDS (RO)

;ISSUE DRIVE

CLEAR

:SELECT PORT #8

JSEIZE THE DRIVE THROUGH PORT

;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

THROUGH PORT B
PORTB,RM(S2(R0) SELECT PORT B
PORTB,SEI1ZPT
;STORE SEIZING PORT'S ADDRESS

CLR
MOVB

RMDS (RQ)
PORTA ,RMCS2(RO)

MOV
MOV

RMDS
(RO) ,$BDDAT sSEE IF DRIVE SEIZED BY PORT B
RO, SBDADR
sRH/RM BASE ADDRESS

CLP

$GDDAT

MOV
MOV

ADD

(Mp
BEQ
EMT

°RB°

PORTA,PTNBR
PORTA ,OPPRT

#RMDS
, $8DADR

$GDDAT
648
4

$BDDAT

SWRITE RMDS
;SELECT PORT A
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT

;'OPPOSITE' PORT ADDRESS

;GENERATE BAD REGISTER ADDRESS

JREGISTER SHOULD BE

ZERC

;IS THE REGISTER ZERO

JBRIF

“IRMRBO RMOS/3/C Dy POR TST 1
MATCRO v04,00
e
PORT A’ RELEASE INTERFERENCE TEST

013520

000137

014530

013524
013532
013540
013546
013554
013562
013570
013574
613602
013610

113760
013737
016037
042737
012737
013737
005137
013737
043737
023737

001226
001226
000012
020001
011700
001124
001166
001126
001166
001124

013616

013620
013622

001401

000010
001240
001126
001126
001124
001166
001164
001164
001164

104005
000240

113760
013737
012766

JMp

MOVB
MOV
MOV
BIC
MOV
MOV
oM
MOV
BIC
CMP

PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
DS(RO),$BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#0M'P 1P, $BDDAT
;CLEAR DONT CARE BITS
#MOL . PGM,DPR . DRY ! VV,$GDDAT
:EXPECTED STATUS
SGDDAT,$TMP1
;USE GOOD DATA'AS A MASK
$TMP1
:COMPLEMENT THE EXPECTED STATUS
SBODAT,$TMPO
:SAVE THE ACTUAI STATUS
$TMPT, $TMPO
:CLEAR UNWANTED BITS
$GDDAT,$TMPO
:ARE THE EXPECTED STATUS BITS SET 2
)

BEQ

]
658:

001224
001224
000013

MOVB
MOV
MOV

(05037
016037

012737
060037
005037
023737

001403
104010
005137
016037
012737

060037
032737
001404
104011
012760
000240
005737
001402
000137

001250
000012
000012
001122
001124
001124
001250
000000
000000

001122
020000
040000

001126
001122
001126

001126
001122

66$:

001126

000000

67%:

001250
014530

;RELEASE

013770
013776
014004

113760
013737
012760

001226
001226
000013

000010
001240

CLR
MOV
MOV
ADD
CLR
(P
BEQ
EMT
coM
MOV
MOV
ADD
BIT
BEC
EMT
MOV
NOP
TST
BEQ
JMP

000C00

A RELEASE

MOV

THE DRIVE

005037
012737
012737
060037

001254
111700
000012
001122

001124
001122

CLR
MLV
MOV
ADD

THEY ARE

THROUGH PORT

i
'

IS STILL

SEIZED BY PORT B

CKERR
;CLEAR THE *CHECK ERROR' INDICATOR
RMDS (RQ) ,$BDDAT " ;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS NF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
:WHAT REGISTER SHOULD BE
$GDDAT,$BDDAT
IS THE REGISTER OK ?
663
‘BR IF OK
10
CKERR
;SET_THE REGISTER COMPARE ERROR INDICATOR
RMCS1(RO) ,$BDDAT
;GET THE CONTENTS OF RHCS?
NRMCS1,$B0ADR
;FORM ADDRESS OF REGISTER
RO, $BDADR
:ADDRESS BASE
NMCPE,SBDODAT
:IS 'MCPE' SET ?
67
:BR IF NOT
11
#TRE ,RMCS1(RO)
;CLEAR *MCPE’

CKERR
.+6
is

:WAS RMDS NON ZERO ?
:CONTENTS OF RMDS SEEN BY PORT A
:DRIVE IN NEUTRAL., BYPASS REST OF

TEST

FROM PORT B

PORTB,RMCS2(RO)
;SELECT PORT B
PORTR,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

#13,RMCST(RO)"

;VERIFY THAT DRIVE

014012
014016
0164026
014032

COMMAND

SEQ 0061

THE SUBTEST

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#13,RMCST(RO)"
;I5SUE A RELEASE COMMAND THROUGH PORT A

THE DRIVE

MOVB
MOV

BR IF

TO EXECUTE

000010
001240
000000

;BYPASS REST OF

65%

EMT
NOP

:VERIFY THAT

013646
013652
013660
013666
013672
013676
013704
013706
013710
013714
013722
013730
013734
012742
013744
013746
013754
013756
013762
013764

H 10
18:06:25 PAGE 10-21

:TRY

013624
C13632
013640

4-APR-81

;[SSUE RELEASE THROUGH PORT B

IS SEIZED BY PORT A WHEN RELEASED BY PORT B

RELERR
;CLEAR 'RELEASE ERRCR' INDICATOR
#ATA!MOL
!PGM. DPRIDRY 'VV,$SGDDAT
; COMPARISON CONSTANT
#RMDS ,$BDADR
;REGISTER ADDRESS INCREMENT
RO, $8DADR
JREGISTER BASE ADDRESS FOR TYYPEQUT

- JRMRBO RMO5/3/2 DU PCR TST 1
MA(RO v04.00
T
PORT ‘A’ RELEASE INTERFERENCE (EST

014036
0140446

113760
013737

001224
(01224

000010
001240

016060
016066
016074
014702
0164104
014110
014112
0164114
014122
014130
014136
014140
014142

113760
013737
016037
001404
005737
001407
104031
013737
013737
023737
001401
104027
000240

001226
001226
000012

000010
001240
001126

014052

016037

000012

001164

001126
001240
001126

68%:

69%:

110

18:06:25 PAGE

10-22

Sfu

MOvB
MOV

PORTA ,RM(S2(RO)
,SELECT PORT A
PORTA,PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

movB
MOV
MOV
8EQ
TST
BEQ
EMT
MOV
MoV
(MP
BEQ
EMT
NOP

PORTB,RM(S2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (RO) ,$BDDAT
;DRIVE STATUS FROM PORT B
68%
;BR IF STATUS FROM PORT B ZERO
$TMPO
;1S STATUS FROM PORT A ZERO ?
68%
JBR If ZERO
31
$TMPO, $BDDAT
JCHECK STATUS®FROM PORT A
PORTA,PTNBR
; CHANGE PORT ADDRESS FOR TYPEOUT
$GDDAT,$BDDAT
;COMPARE WITH CONSTANT
69%
;BR IF OK
27

MOV

001164
001164
001224
001124

4-APR-81

RMDS
(R0) ,$TMP)

:READ STATUS REGISTER FROM PORT A

JRELEASE THE DRIVE FROM PORT A
CG1414%
014152
014160

113760
013737
012760

0C1224
001224
000013

000010
001240
000000

MovB
MOV
MOV

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCST(R0O)
;ISSUE RELEASE THROUGH PORT A

JVERIFY THAT THE DRIVE IS STILL IN NEUTRAL
014166
014172
014200
014204
014212

005037
012737
060037
012737
113760

001254
000012
001122
011700
001224

)
001122

014220
014226
014234
014242
014250
014256

016037
042737
013737
042737
113760
016037

000012
024001
001170
100100
001226
000012

001124
000010
001170
001170
001164
001164
000010
001172

014272
014300
014306
014314
214316
014322
014324
014326
014332
014340
(14346
014356

013737
042737
023737
001006
005737
001045
1046046
000137
013737
013737
113760
005737

001172
100100
001164

001166
001166
001166

014264

014360
014362
014370
014376
014404

014410
014412
014420

042737

001414
013737
013737
113760
005737
001012
012737
012760

024001

001172

001126
001240
000010

001224
001172
001224
001166

001240
Q01126
000010

177777
000011

001254
000000

RMDS
(RO) ,$TMP2
;GET THE DRIVE STATUS REGISTER FROM PORT A.
#P1P!WRL !OM,$TMP?
;CLEAR DONT CARES
$TMP2,$TMPO
;COPY IT INTO °STMPQ®
#ATA!VV,$TMPQ
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB ,RMCS2(R0O) ;SELECT PORT 8.
RMDS(RO) ,$TMP3
-GET THE DRIVE STATUS REGISTER FROM PORT B.

MOV
BIC
(MP
BNE
TST
BNE
EMT
JMP
MOV
Mov
MOVB
TST

$TMP3, $TMP1
NATA!VV,$TMP1
$TMPO,$TMPY
70%
$TMPO
72%
46
74%
$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RM(S2(RO)
$TMPO

BNE
Mov
Mov

72%
#-1,RELERR
#11,RMCS1(RO)

BIC

001164
014526
001170
001226
001226
001164

(LR
MoV
ADD
MOV
MovB
MOV
BIC
MOV
BIC
MOv8
MOV

70$%:

BEQ
MOV
MOV
MOvVB
TST
71%:

RELERR
;CLEAR THE "RELEASE ERROR ' INDICATOR
#RMDS , SBDADR
;FORM THE ADDRESS OF RMDS fOR T/rPEQUT
RO, SBDADR
sADD THE 1/0 BASE ADDRESS
#MOL !PGM!DPR!DRY!VV,SGDDAT
;COMPARISON CONSTANT
PORTA,RMCS2(R0) ;SELECT PORT A,

#P1P!WRL 10M, $TMPS

718
PORTA ,PTNBR
$TMP3,$BDDAT
PORTA ,RMLS2(RO)
$TMP1

;CLEAR DONT CARES

;COPY IT INTO ‘S$STMPY
:CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
:BR IF NOT
SREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

;BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.

;BR IF ZERO
;SEIZING PORT IF TEST SHCWS DRIVE NOT IN NEUTRAL
; 'BAD DATA® FOR ERROR TYPE QUT
;SELECT PORT A,
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR _IF NOT
;SET 'RELEASE ERROR'
;CLEAR THE DRIVE

INDJ(CAIOR

(Z R MRBO RMOS5/3/2 DU POR TST °
MACRO v04.00
TC
PORT *A* RELEASE INTERFERENCE TEST

014426
014434
014436

014444
014452
014460
014466
074470
014472

014500

328
347
348

016506
014514
014522
014524
014526
014530

012760

000013

000000

013737
013737
042737
023737
001401

001170
001224

72%:

001124

001126
001240
001126
001126

001172
001226
100000
001124

001126
001240
001126
001126

738:

106026

104007

013737
013737
042737
023737

001401
104007
000240
000004

100000

4-4APR-B1

10
10-23
SEQ DOE?

MOV
EMT

g;?,RMCS1(R0)

MOV

PORTA - PTNBR

MOV

$TMP2,$BDDAT

JRELEASE

THE DRIVE

:LOOK FOR BIT FAILURES WHEN RMDS READ

*CRANGE

PORT

NUMBER

BIC
CMP
?59

#ATA, $BDDAT
$GDDAT,$BDDAT
;33

“DON'T CHECK THE ATIN BIT
-ALL BITS OK 2
‘BR IF OK FROM PORT A.

MOV
MOV
BIC
(MP

$TMP3_$BDDAT
POXTH . PTNBR
#ATA, $BDDAT
$GDDAT,$BDDAT

;CHECK RMDS FOR BIT FATLURES - FROM PORT B.
*CHANGE PORT NUMBER
*DON'T CHECK THE ATIN BIT
-SEF IF READ OK FROM PORT 8.

BEQ
EMT

74%:
18

J
18:06:25 PAGE

NOP
SCOPE

748
7

‘BR IF OK

;LOOP ?

".'..'."It'!t"'l't...""'"'*'fl.t.“'fit""fififi*"fifi*'t't".fi't't'

TRTEST 11

PORT

'B' RELEASE INTERFERENCE TEST

PxVERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE
e

IS SEIZED BY THE OTHER PORT.

. %

‘*

SEIZE THE DRIVE THROUGH FORT

ISSUE A RELEASE COMMAND THROUGH PORT 'B’.

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A’.

RELEASE THE DRIVE THROUGH PORT
T0 PORT ‘B’.

RELEASE THE DRIVE THROUGH PORT ‘B’.
VERIFY THAT THE DRIVE RETURNED
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

t 2

;:
. %

'A' BY WRITING 0'S INTO RMDS.

°A’.

VERIFY THAT

THE DRIVE

[

14532
014532
014536
014540
14542
014546
014554
014562

'.'tt't't.l"l’tt.tt.tt"i""ttfifit..fi.‘tti*titttt.tttt.ttt.tt'tti‘t

005737
001406
100002
000137
012737

14570
14570
}4576

003074
177777

014570
014570

000011
001100
000012

349
350

15T11:

001300

001300
001106
001110
001102
001176

1%:

2%:
TEST11

TS7T
BEQ
8PL

KYBCTL
2%

;PERFORMING ONLY SINGLE TEST ?
;BR IF NOT

MOV
MOV

18
.
EXEC
#-1,KYBCTL

#TEST11,SLPADR
#TEST11,SLPERR

:BR _IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER
sSET SINGLE TEST INDICATOR

MovB
Mov
Mov

#11,8TSTNM
#STACK,SP
#10. ,STIMES

JMOVE #11 TO TEST NUMBER
;LOAD THE STACK POINTER
;:DO 10. ITERATIONS

JMP
MOV

;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

;CLEAR ATTENTION BITS FOR BOTH PORTS
113760
005060
012760
012760

001224
000012
000011
000013

000010

mMovB

000000
000000

MOV

(LR

MoV

PORTA,RMCS2(R0)

;SELECT PORT #A

RMDS (R0)

JSEIZE

#13,RMCST1(RO)

;RELEASE THE DRIVE

#11,RMCST1(RO)

THE DRIVE

;ISSUE DRIVE

CLEAR

SWITCHED

CZRMRBO RM(S/3/2 DU POR TST

POR'

*B'

014636
016644
014650
014656

RELEASE

113760
005060
012760
012760

MACRO v04.00

INTERFERENCE

001226
(00012
000011
000013

TEST

000010

4~APR-B1

SEQ 0064

mMovs
CLR
MOV
Mov

000000
000000

K 10
18:06€:25 PAGE 10~24

PORTB,RM(S2(RO)
RMDS (RO)
#11,RMCS1(RO)
#13,RMCS1(RO)

;SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT
,ISSUE DRIVE C.EAR
;RELEASE THE DRIVE

'B’

;SEIZE THE DRIVE THROUGH PORT A
014664
014672
015700
014704
014712
014720

113760
013737
005060
113760
013737
013737

001224
001224
000012
001226
001226
001226

014734
014740
014746
014752
014760
G14762
8}2;98

(010037
062737
005037
023737
001403
104004
000137

001122
00001
001124
001124

014770
014776
015004
015012
015020
015026
015034
015040
015046
015054
015062
015
015066

113760
013737
016037
042737

014726

016037

012737

013737
005137

013737

043737
023737
001401
104005
000240

000012

000010
001242

PORTA,RMCS2(R0O) ;SELECT PORT A
PORTA,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
;WRITE RMDS
PORTB,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PORTB,OPPRT
;'OPPUSITE' PORT ADDRESS

64s

MOV
ADD
CLR
CMP
BEQ
EMT
JMP

RO, SBDADR
#RMDS $BDADR
$GDDAT
$GDDAT ,$8DDAT
648
4
13

65%:

Movs
MoV
MoV
BIC
MOV
MOV
CoM
MOV
BIC
cMP
BEQ
EMT
NOP

PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO-LOCATION FOR TYPEQUT
RMDS (RQ) ,$8DDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#0OM!P1P, $BDDAT
;CLEAR DONT CARE BITS
#MOL ! PGM!DP!VV
R!DRY
SGDDAT
EXPECTED STATUS
$GDDAT,$TMP1
;USE GOOD DATA AS A MASK
$TMP1
;COMPLEMENT THE EXPECTED STATUS
$BDDAT,$TMPO
;SAVE THE ACTUAL STATUS
$TMP1,$TMPO
;CLEAR UNWANTED BITS
$GDDAT ,$TMPO
;ARE THE EXPECTED STATUS BITS SET ?
65%
;BR IF THEY ARE
5

(00010
001240
001244
001126

MoV

001122
001126

015774
001224
0012246
000012
020001
011700
001126
001166
001126
001166
001126

MOVB
MoV
CLR
MOVB
MoV
MoV

000010
001240
001126
001126
001124
001166
001164

001164
001164

TRY

015070
015076
015106

113760
013737
012760

001226
001226
0C0013

000010
001240
000000

RMDS(RO) ,$BDDAT

TO EXECUTE A RELEASE

MOVB
MOV
MoV

015116
015126
015132
015136
015142
015150
015152
015154
015160
015166
015174

015200

005037

016037
012737
060037
005037
023737
001403
104010
005137
016037
012737
060037

032737

001250

000012
000012
001122
001124
001124

001250

001126

000000
000000

001126
001122

020000

001126

001122

(LR

001126
001122

66$:

MOV
MOV
ADD
CLR
MP
BEQ
EMT
(oM
MOV
MOV
ADD

BIT

IF DRIVE SEIZED BY PORT A

sRH/RM BASE ADDRESS
;GENERATE BAD REGISTER ADDRESS
JREGISTER SHOULD BE ZERO
;]S THE REGISTER ZERO
sBRIF IT IS

. sBYPASS REST OF

COMMAND

THROUGH PORT

THE SUBTEST

PORTB ,RMCS2(R0O)
SELECT PORT B
PORTB,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#13_RMCS1(R0O)
;ISSUE A RELEASE COMMAND THROUGH PORT B

JVERIFY THAT THE DRIVE
015112

;SEE

IS STILL SEIZED BY PORT.A

CKERR

sCLEAR THE

'CHECK ERROR'

#MCPE , $BDDAT

;1S

SET ?

INDICATOR

RMDS(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
sWHAT REGISTER SHOULD BE
$GDDAT,$BDDAT
;IS THE REGISTER OK ?
66%
;BR IF 0K
10
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR
RMCS1(RO) ,$BDDAT
;GET THE CONTENTS OF RHCS1
#RMCS1,$8BDADR
;FORM ADDRESS OF REGISTER
RO, $BDADR
;ADDRESS BASE
.
'MCPE'

¥4 RMRBG RM0S5/3/2 DU POR TST 1
MACRO v04.00
T 1
PORT 'B' RELEASE INTERFERENCE TEST

015206
015210
015212
015220
015222
015226
015230

4-APR-81

001404
10401

012760
000240
005737
001402
000137

040000

000000

001250

ng
N
TST

BEQ
JMP

015774

10-25

SEQ 0065

BEQ
EMT

67%:

L 10

18:06:¢5 PAGE

67%
X

;BR IF NOT

#TRE ,RMCS1(RO)

;CLEAR

CKERR

;WAS RMDS NON ZERO

. +6
1%

'M(CPE’
?

;CONTENTS OF RMDS SEEN BY PORT B
;DRIVE IN NEUTRAL, BYPASS REST OF

TEST

JRELEASE THE DRIVE FROM PORT A
015234
015242
015250

113760

013737
012760

001226
001224
000013

000010
001240
000009

MOVB
MOV

MoV
JVERIFY

015256
015262
015270
015276
015302
015310
015316

015324
015332

015340
015346
015350
015354
015356

015360
015366
015374
015402

015404
0154C

005037
012737
012737
060037
113760
013737
016037
113760
013737
016037
001404
005737
001401
104031

013737
013737
023737

001401
104027
000240

007254

111700

000012
061122
001226
001226
000012
001224
001224
000012

MoV

MoV
ADD
MOVB
MOV
MOV
MOVB
MOV
MOV

000010
001240
001164
000010
001240
001126

BEQ

001164

001164
007226
001124

TST

001126
001240
001126

:
688

BEQ
EMT
MOV

69%:

cMP
BEQ
EMT
NOP

SJRELEASE
015410
015416
C15424

113760

013737
612760

001226
001226
000013

000010
001240
000000

015432
015436
015444

005037
012737
060037
012737
113760
016037
042737

013737
042737
113760
016037
0462737

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012
024001

Mov

001122
001124
000010
001170
001170
001164
001164
000010
001172
001172

;ISSUE RELEASE THROUGH PORT A

SEIZED BY PORT B3 WHEN RELEASED BY PORT A

RELERR

;CLEAR

°'RELEASE ERROR’

#ATA!MOL !PGM!DPRIDRY!VV,SGDDAT

INDJCATOR

;(OMPARISON CONSTANT

#RMDS ,$8DADR
;REGISTER ADDRESS INCREMENT
RO, $BDADR
;REGISTER BASE ADDRESS FOR TYPEOUT
PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADPRESS TO LOCATION FOR TYPFOUT
RMDS
(RO) ,$TMPQ
;READ STATUS REGISTER FROM PORT B
PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS (RO) ,$8DDAT
;DRIVE STATUS FROM PORT A
68%
;BR IF STATUS FROM PORT A ZERO
$TMPO
;1S STATUS FROM PORT B ZERO ?
68$
:BR IF ZERN
31
$TMPO, SBDDAT
;CHECK STATUS FROM PORT B
PORTB,PTNBR
: CHANGE PORT ADDRESS FOR TYPEOUT
$GDDAT,$BDDAT
;COMPARE WITH CONSTANT

698
27

;BR TF 0K

THE DRIVE FROM PORT B
Movs
MoV

MOV

;VERIFY THAT

#13,RMCS1(RO)

THAT DRIVE

CLR

001124
001122

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CLR
MOV
ADD
MOV

PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

#13,RMCST1(R0O)
THE DRIVE

IS STILL

;1SSUE RELEASE THROUGH PORT B

IN NEUTRAL

MOVB
MOV

RELERR
:CLEAR THE °'RELEASE ERROR ' INDICATOR
#RMDS ,$BDADR
:FORM THE ADDRESS OF RMDS FOR TYPEOQUT
RO, $8DADR
*ADD THE 1/0 BASE ADDRESS
#MOL 'PGM!DPR!DRY!VV,$GDDAT
; COMPARISON CONSTANT
PORTA,RMCS2(R0) :SELECT PORT A.
RMDS(RO) ,8TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.

MOV
BIC
MOVB
MOV

$TMP2, $TMPO
#ATATVV, STMPO
PORTB,RMCS2(R0O)
RMDS(RO),$TMP3

BIC

BI(C

#PIP'WRL iOM,$TMP2

;CLEAR DONT CARES

#PIP!WRL1OM, $TMPS

:CLEAR DONT CARES

;COPY IT INTO 'STMPO’
:CLEAR PORT DEPENDENT BITS FROM THE COPY
:SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

)

RELEASE

INTERFERENCE

001172
100100
001164

TEST

MOV
8IC
CmMp
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVB
TST
BEQ
MOV
MOV
MOVB
TST
BNE
MOV
MOV
MOV
EMT
MOV
MOV
8]C
(MpP
BEQ
EMT
MOV
MoV
8I(
CMP
BEQ
EMT
NOP
SCOPE

001164

015772
001170
001226
001226
001164

001126

€21240
000010

70%:

001224
001172
001224

001240
001126
000010

177777
000011

71%:

000013

001254
000000

000000

001170
001224
100000
001124

001126
001240
001126
001126

72%:

001172
001226
100000
001124

001126
001240
001126
001126

73$:

M 10

18:06:25 PAGE

10-26

74%:
1%:
e

tTFST

$TMP3 STMPI
NATA . VV,ETMPI
$TMPO,$TMPI
708
$TMPO
72%
46
748
$TMP?2,$BDDAT
PORTB,PTNBR
PORTB,RM(CS2(R0)
$TMPO
71
PORTA ,PTNBR
$TMP3, SBDDAT
PORTA ,RMCS2(R0O)
STMP1
72%
#-1,RELERR
#11 _ RMCS1(RO)
#13 ,RMCS1(RO)
26
$TMP2,SBDDAT
PORTA ,PTNBR
#ATA,$BDDAT
$GDDAT, $8DDAT
73%
7
$TMP3 SBDDAT
PORTB ,PTNBR
#ATA,SBDDAT
$GDDAT, $BDDAT
76%
7

sCOPY T INTO "$TMPY!
;CLEAR PORT DEPENDENT BITS FROM THE (OPY
;]S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
;BR IF NOT
sREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A,
:BR ]F ZERO
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
-‘BAD DATA' FOR ERROR TYPF 0QUT
;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
BR IF NOT
;SET 'RELEASE ERROR' INDICATOR
;CLEAR THE DRIVE
‘RELEASE THE DRIVE

;LOOK FOR BIT FAJLURES WHEN RMDS READ
; CHANGE PORT NUMBER
JDON'T (HECK THE ATTN BIT
JALL BITS 0K ?
;JBR IF OK FROM PORT A.

;CHECK RMDS FOR BiTl FAJLURES ~ FROM PORT R.
;CHANGE PORT NUMBER
;DON'T CHECK THE ATIN BIT
;SEE [F READ OK FROM PORT B.
;BR IF OK
;LOOP 2

PORT

'A'

il 2222223222223

RELEASE W/ERRORS

TEST

SEIZE THE DRIVE

WRITE 1'S INTC RMER1

IR BN B

THROUGH PORT

'A'

ISSUED WHEN ERROR

BY WRITING 0'S

INTO RMDS.

THROUGH PORT ‘'A°’.

ISSUE A RELEASE COMMAND THROUGH PORT °'A‘.
VERIFY THAT THE 'GO’
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND
THAT RMER1 HAS NOT BEEN CLEARED.

YRR

-.t.t.n.\.-

'VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF
BITS ARE SET IN THE DRIVE.

CLEAR RMER1 BY

ISSUING A DRIVE CLEA"

COMMAND THROUGH PORT

‘A°'.

ISSUE A RELEASE COMMAND THROUGH PORT 'A'.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT [S SET.

001166

&4-APR-B1

SEQ 0066

001166
001166
001166

015536 013737
015544
042737
015552 023737
015560 001006
015562
005737
015566 001045
015570
104046
015572
000137
015576 013737
015604
013737
015612
113760
015620
005737
015624
001414
015626 013737
015634
013737
015642 113760
015650
005737
015654
001012
015656
012737
C15664
012760
015672 012760
015700
104026
015702
013737
015710 013737
015716 042737
015724
023737
015732 001401
015734
104007
015736 013737
015744 013737
015752
042737
015760
023737
015766 001401
015770
104007
015772
000240
015774
000004

MACRO v04.00

WL I

372

°*B'

LR I

PORT

TST

LIS

g{?MRBO RM05/3/2 DU POR

(ZR MRBO RMOS5/3/2 DU POR TST

PORT

"A'

RELEASE

MACRO v04.00

W/ERRORS

TEST

&-APR-81

N 10

18:06:25 PAGE

10-27
£0 006/

"".l't.""""‘.‘.t"'."'.'....t..'-t'fl't'tt'tt'ttt'tt..t'tf LR

015776
015776
016002
016004
016006
016012
016020
g}gggg

005737
001406
100002
000137
012737
012737
012737

003074
177777
016034
016034

016034
016042
55 016046

112737
012706
012737

000012
001100
000012

1§112:

001300

001300
001106
001110

18%:
28%:
resr12:

001102
001176

ST
BEQ
BPL
JMP
MOV
MOV
MOV

KYBCTL
.
23
18
EXEC
#-1,K¥8CTL
#TEST12,8LPADR
#TEST12,SLPERR

;PERFORMING ONLY SING_E TEST °
:BR IF NOT
:BR_IF JUST ENTERED TEST
;RETURN & GET NEXT TEST NUMACTR
:SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRFSS

MOVB
MOV
MOV

#12,$TSTAM
#STACK , SP
#10.,8TIMES

;MOVE #12 TO TEST NUMBER
:LDAD THE STACK POINTER
::D0 10. ITERATIONS

407

:CLEAR ATTENTION BITS FOR BOTH PORTS
016054
016062
016066
016074
016102
016110
016114
016122

113760
005060
012760
012760
113760
005060
012760
012760

001224
000012
000017
000013
001226
000012
000017
000013

000010

MOVB
(LR
MOV
MOV
MOVB
CLR
MOV
MOV

000000
000000
000010
000000
000000

PORTA,RMCS2(RO)
RMDS (R0O)
#11,RMCS1(RO)
#13,RMCS1(RO)
PORTB,RMCS2(R0)
RMDS (R0O)
#11,RMCS1(RO)
#13,RMCS1(RO)

;SELECT PORT #A
;SEIZE THE DRJVE
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
:SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT
:ISSUE DRIVE (LEAR
:RELEASE THE DRIVE

‘B’

:SEIZE THE DRIVE THROUGH PORT A
016130
016136

016144

016150

113760
013737

005060

013737

001224
001224

000010
001242

Movs
MOV

001226

001244

MOV

000012

CLR

PORTA ,RMCS2(RO) ;SELECT PORT A
PORTA,SEIZPT ~ ;STORE SEIZING PORT'S ADDRESS

RMDS (RO)

PORTB,OPPRT

:FORCE AN ERROR
016156
016164

012760
012760

016176
016204
016212
16216
016224

016037
012737
060037
012737
013737

016172

016232
016240

016246
016250
016256
016264
016272
016274
016300
016302
016306
016310
016314
016322

005037

042737
023737

001414
013737
042737
053737
104025
005137
000240
005737
001002
000137
012760
113760

177777
000013
001250
000000
000000
001122
004012
001126

001126
001122

173765
001124

001164
001164

001126
004012
001174

001174
001174
001124

000014
000000

001124
001164

001250

016350
000040
001224

000010
000010

MOV
MOV
CLR
MOV
MOV
ADD
MOV
MOV

#-1,RMER1(RO)
;SET ERROR BITS
#13,RMCST(RO)
;ISSUE A RELEASE COMMAND
CKERR
sCLEAR THE 'CHECK ERROR' INDICATOR
RMCS1(R0O) ,$BDDAT
.GET CONTENTS OF RM(CS1
ARMCS1,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#4012 ,8GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
:MOVE REGISTER CONTENTS TO '$TMPQ’

BEQ
MOV
BIC
BIS
EMT
coM
NGP
TST
BNE
JMP
Mov
MOvVB

66$
SBDDAT,$TMP4
#4012,$TMPS
$TMP4,$GDDAT
25
CKERR

81C
cmP

66$:

001250

JWRITE RMDS

:"OPPOSITE® PORT ADDRESS

#~C4012,STMPO
$GDDAT, $TMPO

CKERR
.46
i$
#CLR,RMCS2(R0O)
PORTA,RMCS2(R0)

;SAVE SPECIFIED BITS
;COMPARE THE BITS

:BR IF OK
:COPY 'BAD DATA'
:CLEAR THE MASKED BITS
.
;'OR' WITH GOOD DATA FOR TYPEQUT

;SET THE REGISTER COMPARE ERROR INDICATOR
;:DID 'GO* BIT RESET ?
:BR_IF NOT
:'G0' BIT RESET
;INIT THE RH/RM
;SELECT PORT A

'{RMRBO RMOS5/3/2 DU POR TST 1
MACRO v04.00
¢
PORT °'A' RELEASE W/ERRORS TEST

016330
016336
016364

013737
012760
000137

001224
(G0Q0O'3
017114

&-APR-81

001240
000000

016350
016350
016356
016364
016370
016376
016404
016410
016416
016422
016424
016426
016432
C16634
016442
016450
016454
0158462
0164?0
016474
016502
016510
016512
016514
016520

113760
013737
005037
016037
012737
060037
005037
023737
001403
104024
005137
000240
113760
013737
005037
016037
012737
060037
012737
023737
001403
1046010
(005137
000240

001226
001226
001250
000012
000012
001122
001124
001124

000010
001240

001224

177777
001124

(LR
(MP
BEQ
EMT
com

001126

000010

68%:

NOP
MOV

001240

001126
001122

001124
001126

001250

‘

708:

PORTA _PTNBR
;MOVE PORT ADDRESS 10 LOCATION FOR TYPEQUT
#13,RMCS1(RO)
JRELEASE THE DRIVE THROUGH PORT A
2%
;BYPASS THE REST OF THE TEST

THAT DRIVE

MOVB
MOV
CLR
MOV
MOV
ADD

001126
001122

001250
001224
001250
000014
000014
001122

1%:

10-28

SEQ 0068

MOV
MOV
JMP
sVERIFY

8 1

18:06:25 PAGE

MOV
CLR
MOV
MOV
ADD

IS STILL

SEIZED BY PORT A

PORTB,RMCS2(RO)
:SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCAIION FOR TYPEOUT
CKZRR
;CLEAR THE °*CHECK ERRGR' INDICATOR
RMDS
(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS NF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
$GDDAT ,$8DDAT
68$
24
CKERR

JWHAT REGISTFR SHOULD BE
:IS THE REGISTER OK 2
‘BR IF OK

JSET THE REGISTER COMPARL ERROR INDICATOR

PORTA,RMCS2(RU)

:SELE(T PORT A

PORTA.PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
JCLEAR THE °*'CHECK ERROR' INDICATOR
RMERT(RO) ,$8DDAT
;GET CONTENTS OF RMER1
#RMER1 ,$8DADR
FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,SBDADR
JADD RH/RM BASE ADDRESS

mov
cTMP

#177777 .$GDDAT
$GDDAT ,$8DDAT

BEQ
EMT
com
NOP

708
10
CKERR

-WHAT REGISTER SHOULD BE
IS THE REGISTER OK 2
‘BR If OK

;SEY THE REGISTER COMPARE ERROR INDICATOR

;CLEAR THE ERRORS THROUGCH PORT A
016522

012760

000011

000000

MOV

#11,RMCS1(RO)

;ISSUE A DRIVE CLEAR

JRELEASE THE DRIVE FROM PORT A
016530
016536
016544

113760
013737
012760

001224
001224
002013

000010
001240
000000

MOVB
MOV
MOV

PORTA.RMCS2(RO)
:SELECT PORT A
PORTA.PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCST1(ROY
; ISSUE RELEASE THROUGH PORT A

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL
016552

005037

001254

RELERR

;CLEAR THE

'RELEASE ERROR *

012737
060037
012737
113760
016037

000012
001122
011700
001224
200012

001124
000010
001170

MOV
ADD
MOV
MOVB
MOV

016620
016626

013737
042737

001170
100100

001164
001164

MOV
BIC

STMP2, $TMPO
#ATA'VV
. STMPO

016650
016656

042737
013737

001172
001166

BIC
MOv

APIP ! WRL.OM,$TMPS
:CLEAR DONT CARES
$TMP3,$TMPY
;CO‘Y IT INTO '$STMPT®

016612

016634
016642

042737

113760
016037

024001

001226
000012

024001
001172

001122

CLR

016556
016564
016570
016576
016606

001170

000010
001172

8IC

MOVB
MOV

INDICATOR

#RMDS,$8DADR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, SBDADR
SADD THE 1/0 BASE ADDRESS
#MOL ' PGM'DPR'DRY
' VV,$GDDAT
; COMPARISON CONSTANT
PORTA,RMCS2(R0O) :SELECT PORT A.
RMDS
(RO) ,$TMP2
:GET THE DRIVE STATUS REGISFER FROM PORT A

#P1P WRL TOM,$TMP2

;CLEAR DONT CARES

;COPY IT INTO 'STMPO'
:CLEAR PORT DEPENDENT BITS FROM THE COPY

PORTS3,RMCS2(R0) :SELECT PORT B.
RMDS (RO),$TMP3
:GET THE DRIVE STATUS REGISTER FROM PORT 8.

JRMRBO RMO5/3/2 DU POR TST 1
MACRO v04.00
Ti¢
PORT °'A' RELEASE W/ERRORS TEST

001126

001240
000010

72%:

001254
000000
000000

73%.

013737
013737
042737
023737
001401

01170
001224

74%:

001124

001126
001240
001126
001126

013737
013737
0462737
023737
001401

001172
001226
100000

001126
001240
001126

75%:

$TMP2 $BDDAT

76$:
2%:

THE CHECKS

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
JALL BITS OK ?
;BR IF OK FROM PORT A.

PORTA ,PTNBR
#ATA SBDDAT

$GDDAT ,$BDDAT
753
7
$TMP3, SBDDAT
PORT8,PTNBR

sCHECK RMDS FOR BIT FAILURES ~ FROM PORT B.
s CHANGE PORT NUMBER

JDON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.

NATA,SBDDAT

BIC
cMP
BEQ
EMT
NOP
SCOPE

001126

$GDDAT, $BDDAT
;65

;BR [F OK

;LOOP ?

. ;tttttttt'ttttttfitnttttttttttttttttttfitttttttttttttttntttttt.ttt

SeTEST 13

PORT

'B’ RELEASE W/ERRORS TcST

BN 3

BITS ARE SET

SEIZE

IN THE DRIVE.

THE DRIVE

THROUGH PORT

ISSUED wHEN ERROR

'B' BY WRITING 0'S

INTO RMDS.

O
AT

NF B

;*VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF

AR SR S

000240
000004

001124

104007

100000

mMovB
TST
BNE
MOV
MoV
MOV
EMT
MOV
MOV
8IC
cMp
BEQ
EMT
MOV
MOV

BN IR Bk BN BN B

104026

;sBYPASS THE REST OF

THEY ZERC ?

;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGF
PORT8B,PTNBR
JSEIZING PORT If TEST SHOWS DRIVE NOT [N NEUTRAL
PORTB,RMCS2(R0O) JSELECT PORT B.
$TMPO
:SEE IF STATUS EQ O FROM PORT A.
73%
:BR If ZERO
PORTA ,PTNBR
JSEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
$TMP3
, $BDDAT
;"BAD DATA' FOR ERROR TYPE QUT
PORTA,RM(
(R0O)
S2 JSELECT PORT A.
$TMP
;SEE IF STATUS EQ ZERO FROM PORT B.
764%
;BR JF NOT
#=1,RELERR
:SET 'RELEASE ERROR' INDICATOR
#11,RMCS1(RO)
;CLEAR THE DRIVE
ggS.RMCS1(RO)
JRELEASE THE DRIVE

MoV
MoV

177777
000011
000013

JREGISTERS ARE THE SAME: ARE
JBR IF MNOT

$TMP2, $BDDAT

BtQ

001240
001126
000010

:CLEAR PORT DEPENDENT BITS FROM THE (COPY
.!g }?ENS;ATUS REGJSTER THE SAME FROM BOTH PORTS ?

74%
46
76%

MoV
MOV
MOvVB
TST

~WRITE 1'S INTO RMER1

THROUGH PORT

'B°.

ISSUE A RELEASE COMMAND THROUGH PORT ‘B'.
VERIFY THAT THE °GO*
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND
THAT RMER1

©O
L]

001166

NATA. VV,$TMPI

,
S TMPT
$TMPO
72%
$TMPO

BNE
EMT
JMP

m
L]

005737
001012
012737
012760
012760

SEQ 0069

TS’

104046

113760

(|
18:06:25 PAGE '0-29

BIC
(MP
BNE

428
429

001166
001166

001164

000137
013737
013737
113760
005737
001414
013737
013737

104007

408

100100

01164

017100

062737
023737
001006
005737
001045

LN B

016664
016672
016700
016702
016706
016710
016712
016716
016724
016732
016740
016744
016746
016754
016762
016770
016774
016776
017004
617012
017020
017022
017030
017036
017044
017052
017054
017056
017064
017072

&-APR-81

HAS NOT BEEN CLEARED.

CLEAR RMER1 BY

ISSUING A DRIVE CLEAR (OMMAND THROUGH PORT

ISSUE A RELEASE COMMAND THROUGH PORT

RETURNED

TO NEUTRAL AND

'B'.

°'B°.

VERIFY THAT THE DRIVE

THAT NEITHER ATTENTION BIT

ScT.

""!tttfi.'lt't'l’i"t.ttt""!t'.'i'tt"til‘l'tt'Q.'Q't.“l".t"'..

TR MRBO RMOS/3/2 DU POR TST

PORT

‘b’

1
MACRO v(04.00
RELEASE W/ERRORS TEST

01711¢
017116
C17122
017124
017126
017132
17140
8};}?2

v05737
001406
19000¢
000137
012737
012737
012737

003074
177777
017154
0171546

017154
017162
430 017166

112737
012706
012737

000013
001100
000012

TST13:

001300

001300
001106
001110

1%:
2%:
TESTI3

001102

001176

4=~APR-81

18:06:25 PAGE

10-30
SEQ 0070

TST
BEQ
8PL
JMP
MO
MOv
mMov

KYBCTL
2%
1%
EXEC
#-1,KYBCTL
NTEST13,8LPADR
W#TEST13,8LPERR

;PERFORMING ONLY SINGLE TEST ?
;BR JF NOT
:BR _IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER
JSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MOvVB
MOV
MOV

#15,8TSTNM
#STACK,SP
#10.,8TIMES

;MOVE #13 TO TEST NUMBER
;LOAD THE STACK POINTER
;:D0 10. ITERATIONS

431

;CLEAR ATTENTION B'TS FOR BOTH PORTS
017174
017202
017206
(17214
017222
017230
017234
017242

113760
005060
012760
012760
113760
005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

000010

Mova
CLR
MOV
MOV
MOVB
CLR
MOV
MOV

000000
000000
000010

000000
000000

PORTA RMCS2(R0O)
RMDS (RO)
#11 ,RMCS1(RO)
#13 RMCS1(RO)
PORTB,RMCS2(R0)
RMDS (RO)
#11,RMCS1(RO)
#13,RMCS1(RO)

;SELECT PORT #A
;SEIZE THE DRIVE
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SELECT PORT #8
;SE1ZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

‘B’

:SEIZE THE DRIVE THROUGH PORT B
017250
017256
017264
017270

113760
013737
005060
013737

001226
001226
000012
001224

000010
001242

MOVB
MOV
(LR
MOV

001244

PORTB,RM(32(R0) ;SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
;WRITE RMDS
PORTA,OPPRT
;'OPPOSITE' PORT ADDRESS

:FORCE AN ERROR
017276
017304
017312
017316
017324
017332
017336
C17344

012760
012760
005037
016037
01273
060037
012737
013737

017360
017366
017370
017376
0176404
017412
017414
017420
0176422
017426

023737
001414
013737
042737
053737
104025
005137
000240
005737
001002

017352

017430
017434

017442
017450

042737

000i37
012760
113760
013737

177777
000013

001250
000000
000000
001122
004012
001126

173765

000014
000000

001126
001122
001124
001164

(001164

001124

001164

001126
004012
001176

001174
001174
001124

001250

001226
001226

000010
000010
001240

#-1 RMERT(RQ)
#13 RMCS1(R0O)

;SET ERROR BITS
;ISSUE A RELEASE COMMAND

CLR
MOV
MOV
ADD
MOV
MOV

CKERR
;CLEAR THE ‘CHECK ERROR' INDICATOR
RMCS1(RO) ,$BDDAT
;GET CONTENTS Of RM(CS1
W#RM(S1,8BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#4012 ,8GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
cMOVE REGISTER CONTFNTS TO '$TMPO’

cMP
BEQ
MOV
BIC
BIS
EMY
oM
NOP
TST
BNE

$GDDAT,$TMPO
66%
$BDDAT ,$TMP4
#4012 ,8TMP4
$TMP4L , SGDDAT
25
(KERR

BIC

66%:

001250

017470
000040

MoV
MOV

JMP
MOV
MovB
Mov

#~C4012,8TMPO

:SAVE SPECIFIED BITS

;COMPARE THE BITS
;BR IF 0K
;COPY 'BAD DATA’
;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

;SET THE RECISTER COMPARE ERROR INDICATOR

CKERR
;DID 'GO' BIT RESET ?
.+6
;BR IF NOT
1$
;'GO*' BIT RESET
#CLR,RMCS2(RO)
INIT THE RH/RM
PORTB,RMCS2(R0O)
SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

C Z R MRBO RMO5/3/2 DU POR TST 1
MACRO v04.00
T 3
PORT °'B' RELEASE W/ERRORS TEST
;

017456
017464

012760
000137

000013
(20234

4-APR-81

000000

017470
017470
017476
017504
017510
017516
017524
017530
017534
017542
017544
017546
017552
017554
G17562
017570
017574

017602
017610

017614
017622
017630
017632
017634
017640

113760

013737
005037

016037

012737
060037

005037

023737
0014032

104024
005137
000240
113760

013737

005037
016037

001224

001224
001250
000012
000012

001122
001124
001124

200010
001240

JMP

001126
001122

012737
060037
612737
023737
001403 104010
005137 001250
000240

MOVR
Mov
CLR
MOV
MOV
ADD

000010
001240

001126
001122

001126

$GDDAT
$GDDAT,$BDDAT

com
NOP
MOVB
MOV
CLR
MOV

CKERR

;BYPASS THE RESTM OF THE TESI

;WHAT REGISTER SHOULD BE
;IS THE REGISTER 0K ?

JBR IF OK

;SET

THE REGISTER COMPARE ERROR INDJCATOR

PORTB.RMCS2(RO)
:SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE °'CHECK ERROR' INDICATOR
RMER1(R
, $BDDAT
0O)
;GET CONTENTS OF RMERT
#RMER1,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS

MOV

#177777 .$GDDAT

:WwHAT REGISTER SHOULD BE

COM

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

cTMP
gg?
70%:

;RELEASF THE DRIVE THROUGH PORT B

PORTA ,RMCS2(RO)
;SELECT PORT A
PORTA ,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE '(CHECK ERROR® INDICATOR
RMDS (RO) ,$8DDAT
;GET CONTENTS OF RMLS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS

68$%

MOV
ADD

001124

BEQ
EMT

68%:

412 RMCS1(RO)

THAT DRIVE 1! STILL SEIZED BY PORT B

CLR
cMp

001126

001250
001226
001226
001250
000014
C00014
001122
177777
001124

1%:

10-31

SEQ 0071

MOV
JVERIFY

E N

18:06:25 PAGE

NOP

SGDDAT,$BDDAT
qgs

IS THE REGISTER OK ?
;BR IF 0K

:CLEAR THE ERRORS THROUGH PORT B
017642

012760

000011

000000

Mov
sRELEASE

017650
017656
017664

113760

013737
012760

001226
001226
000013

000010
001240
000000

THE

MOVB
MoV
MoV

;VERIFY THAT
017672
017676
017704
017710
0172716
017724
017732
017740
017746
017754
017762
017770
017776
020004

005037

012737

060037
012737
113760
016037
042737

013737
042737
113760
016037
042737
013737
042737

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100

001122
001124
000019
001170
001170
001164

001164
000010
001172
001172
001166
001166

#11,RMCS1(RO)
DRIVE

;ISSUE A DRIVE

(LEAR

FROM PORT B

PORTB ,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCS1(RO)
s ISSUE RELEASE THROUGH PORT B
THE DRIVE

IS STILL

IN NEUTRAL

CLR
MOV
ADD
MOV
MOVB
MOV

RELERR
;CLEAR HE 'RELEASE ERROR ' INDICATOR
#RMDS ,$BDADR
-FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $BDADR
*ADD THE 1/0 BASE ADDRESS
#MOL 1 PGM'DPR!DRYVV,$GDDAT
;COMPARISON CONSTANT
PORTA,RMCS2(R0) :SELECT PORT A.
RMDS
(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.

MOV
BIC
MOVB
MOV

STMP2,STMPO
#ATATVV,STMPO
PORTB,RMCS2(RQ)
RMDS
(RO) ,$TMP3

;COPY IT INTO 'STMPO'
:CLEAR PORT DEPENDENT BITS FROM THE COPY
-SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

MOV
BIC

$TMP3, $TMP]
HATA VV.8TMP1

SCOPY [T INTO '$TMP1®
-CLEAR PORT DEPENDENT BITS FROM THE

BIC

#PIP'WRLIOM, STMP?

;CLEAR DONT CARES

#PIP!WRL (OM,$TMPS

; CLEAR DONT CARES

COPY

JRMREOG RMOS/3/2
s
PORT *B'

020012
020020
020022
020026
020030
020032
020036
020044
020052
020060
020064
020066
020074
020102
020110

02373
601006
005737
001045
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737

G20116
020124
020132
020140
020142

001164

001166

001164

020232
001170
001226
001226
001164

001126

001240
000010

72%:

001224
001172
001224
001166

001240
001126
00001C

012737
012760
012760
104026
013737

177777
000011
000013

001256
000000
000000

73%:

001126

74%:

620156
020164
020172
020174
020176
020204
020212
020220

042737
023737
001401
104007
013737
013737
042737
023737

100000
001124

001126
001126

001172
001226
100000
001124

001126
001240
001126
001126

020230
020232
020234

104007
000240
000004

020114

020150

020226

432

DU POR ST 1
MACRO V04.00
RELEASE W/ERRORS TEST

001012

013737

€01401

01170

001224

001240

451

18:06:25

11
10-32

(mp
BNE
TST
BNE
EMT
JMP
MoV
MOV
MOVB
TST
BEQ
MOV
MOV
MOVB
TST

$TMPO, $TMP
72%
$ TMPQ
743
46
763
$TMP2,$BDDAT
PORTB.PTNBR
PORTB.RMCS2(RO)
$TWP0
738
PORTA,PTNBR
$TMP3 $BDDAT
PORTA,RMCS2(RO)
$TMP1

MOV
MOV
MOV
EMT
MOV

#~1,RELERR
#11.RMCST(RO)
#13.RMCS1(RO)
26
STMP2 $BDDAT

:SET 'RELEASE ERROR'
:CLEAR THE DRIVE
:RELEASE THE DRIVE

BIC
CMP
BEQ
EMT
MOV
MOV
BIC
I

#ATA, $BDDAT
$GDDAT,$BDDAT
758
7
$TMP3,$BDDAT
PORTA,PTNBR
#ATA, $BDDAT
$GDDAT,$8DDAT

:DON'T CHECK THE ATTN BIT
:ALL BITS OK ?
:BR IF OK FROM PORT A.

EMT
NOP
SCOPE

MOV

75%:

F
PAGE

SEQ 0072

BNE

BEOQ
768:
2%:

1.52

4-APR=8'

748

PORTA,PTNSR

76$

;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
*BR IF NOT
REGISTERS ARE THE SAME: ARE THEY ZEROQ ?
‘BR IF NOT
;:BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
:SEIZING PORT IF TEST 5SHOWS DRIVE NOT IN NEUTRAL
:SELECT PORT B.
:SEE_IF STATUS EQ O FROM PORT A.
:BR IF ZERO
:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
:'BAD DATA' FOR ERROR TYPE OQUT
:SELECT PORT A.
:SEE IF STATUS EQ ZERO FROM PORT B.

:BR_IF NOT

;LOOK FOR BIT FAILURES WHEN RMDS READ

: CHANGE PORT NUMBER

:CHECK RMDS FOR BIT FAILURES - FROM PORT B.
:CHANGE PORT NUMBER
:DON'T CHECK THE ATTN BI7
;SEE IF READ OK FROM PORT B.

:BR IF OK

:LOOP ?

N tit.'t"i"t.*fi.t.'."‘t.fi'."".‘t"fl".‘t't'.l'tlt‘fitttitfitt!'

nrssr

PORT

‘A’

SEIZE AND CLEAR TEST

{WVERIFY THAT A MASSBUS CLEAR OR DRIVE

PORT TO RELEASE THE DRIVE.

:*
i

ISSUE A CRIVE CLEAR THROUGH PORT 'A® AND VERIFY THAT THE DRIVE
DOES NOT RETURN TO NEUTRAL.

001300

SEIZING

SEJZE THE DRIVE BY WRITING 0°'S INTO RMDS THROUGH PORT
VERIFY THAT THE DRIVE HAS BEEN SEIZED.

)
005737

THE

020236
020236

CLEAR WILL NOT CAUSE

i
i

. %

—— ————

INDI{ATOR

‘A".

[ISSUE A MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE

DOES NOT RETURN TO NEUTRAL.

RELEASE

RETURNED

THE DRIVE THROUGH PORT
TO NEUTRAL

AND

THAT

'A'.

VERIFY THAT THE DRIVE

NEITHER ATTENTION BIT

SET.

;;QQ't't'tltt"'fltl.tt't’lt'tltt'fit'ttii'tt't.."""t"t‘.""l"
18114
1ST
KYBCTL
;PERFORMING ONLY SINGLE TEST ?

JRMRBC RMOS5/372 DU HOR TST 1
MACRO v(C4.00
16
SEIZE AND CLEAR TEST
pORT

IAI

020242
020244
020246
020252
020260
020266
020274
020274
020302
653

020306

4-APR-B1

001406
100002

6 N
18:06:¢5 PAGE 10-33
2%
1%
EXEC

BEQ

000137
012737
012737
012737

020274
020274

11273%7
012706
012737

000014
001100
000012

003074

1727777

001300
001106
001110
001102

1%:

2%:

TEST14:

001176

B8PL
JMP
MOV

MOV
MoV

MOVB
MOV
MOV

:BR [F NOT
;BR IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER

#-1,KYBCTL
NTEST14 ,SLPADR
#TEST14,SLPERR

sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

#14 ,$TSTNM

;MOVE #14

#STACK,SP

;LOAD

#10. ,$TIMES

TO TEST NUMBER

THE

::D0 10.

STACK

POINTER

ITERATIONS

433

;SEIZE
020314
020322
020330
020334
020342
020350
0<0356
020364
020370
020376
020402
020410
020412
020414
020420
020420
020426
020434
020442
020450
020456
020464
020470
020476
020504
020512
020514
020516

113760

013737
005060
113760

013737
013737
016037
010037
062737
005037
023737
001403
104004

001224
001224
000012
001226
001226
0C1226
000012
001122
000012
001124
001124

000137

021634

113760

001224
001224
€00012
020001
011700
001124
001166
001126
001166
001124

013737

016037
042737
012737
013737
005137
013737
043737
023737
001401

000010
001242

MOVB
MOV
CLR
MOVB
MOV

006010
001240
001244
001126

MOV
MOV
MOV
ADD

001122
001126

000010

64%:

001240

001164
001164
001164

104005

65%:

THROUGH PORT A
PORTA ,RMCS2(R0O)

;SELECT PORT A

RMDS (RO)
PORTB,RMCS2(R0)

JWRITE RMDS
;SELECT PORT 8

PORTA,SEIZPT

;STORE

PORTB,PTNBR
PORTB,0PPRT

SEIZING PORT'S ADDRESS

:MOVE PORT ADDRESS TO LOCATION FOR
;'OPPOSITE' PORT ADDRESS

RMDS (RO) ,$8DDAT ;SFE

TYPEOUT

IF DRIVE SEIZED 8Y PCRT A

RO, $SBDADR

;RH/RM BASE ADDRESS

CLR
CMP
BEQ
EMT
JMP

$GDDAT
$GDDAT,$BDDAT
245

JREGISTER SHOULD BE ZERO
;1S THE REGISTER ZERO
;BR IF IT IS

;BYPASS REST OF

MOVR

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,FTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

MOv
MoV
BIC
MOV
MOV
(oM
MOV

001126
001126
001124
001166

000240

THE DRIVE

BIC
MP
BEQ
EMTY
NOP

#RMDS , $BDADR

:GENERATE BAD REGISTER ADDRESS

RMDS(RO) ,$BDDAT
#OM!PIP ,$8DDAT

;SEE

ifF

SEIZING PORT SEES CORRECT STATUS
;CLEAR DONT CARE BITS

#MOL ! PGM!DPR!DRY!VV,$GDDAT

$GDDAT ,$TMP1

THE SUBTEST

;EXPECTED STATUS

;USE GOOD DATA AS A MASK

S$TMPY

;COMPLEMENT THE EXPECTED STATUS

$BDDAT ,$TMPO
$TMP1,$TMPO

sSAVE THE ACTUAL STATUS
sCLEAR UNWANTED BITS

$GDDAT, $TMPO
gSS

JARE THE EXPECTED STATUS BITS SET ?
;JBR [F THEY ARE

;DRIVE (LEAR THROUGH PORT A FIRST
020520

012760

000011

000000

MoV

#11,RMCS1(RO)

’

;ISSUE DRIVE

CLEAR THROUGH PORT A

;VERIFY THAT DRIVE STILL SEIZED BY PORT A
020526
020534
020542
020546
020554
020562
020566
020572

113760

013737
005037
016037
012737
060037
005037
012737

001226
001226
001250
000012
000012

001122
001124
001126

000010
001240

MOV

PORTB,PTNBR

001126
001122

MoV
MOV

A#RMDS ,$BDADR

001164

MoV

mMovB

CLR

ADD
CLR

PORTB,RMCS2(R0O)

;SELECT PORT B

;MOVE PORT ADDRESS TC LOCATION FOR TYPEQUT

CKERR
;CLEAR THE 'CHECK ERROR'
RMDS (RO) ,$8DDAT
;GET CONTENTS OF RMDS
RO, $BDADR
$GDDAT
$BDDAT, $TMPO

;FORM REGISTER ADDRESS OF

INDiCATOR

ERROR MESSAGE

;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTS TO '$TMPO°

JRMRBO RM(OS/3/2 DU POR TST 1
MACRO VO4.00
T4
PORT 'A' SEIZE AND (LEAR TEST

020600
020606
020614
020616
020624
020632
020640
020642
020646
020650
020656
020664
020670
020676
020704
020710
020716
020724
020732
620740
020742
020750
020756
020764
020766
020772

042737
023737

001414
013737

100C00

001164
001164

001126

00117¢
001174
001124

001124

042737
053737

077777
001174

005137
000240

001250

104033

113760

013737
005037
016037
012737
060037
012737

013737
042737
023737
001414
013737
042737
053737
104033
005137
000240

077777
001174

RC77777,8TMPO
$GDDAT,$TMPQ

BIC
BIS
EMT
COM
NOP
Mov8
MoV
CLR
MOV
Mov

BIC
(MP
BEQ

001124

G01126

BIC
(MP
BEQ

ADD
MOV
MOV

100000

001174
001174
001124

001250

MOV

68%:

H 11
18:06:25 PAGE 10-34

Ed Gurs

MOV

66%:

001224
001224
001250
000012
000C12
001122
011700
001126

4-APR-81

8IC
BIS
EMT
com
NOP

66$
$BDDAT, $TMP4

77777 ,8TMP4
g;MPé.SGDDAT

;SAVE SPECIFIED BITS
;COMPARE THE BITS
;BR IF 0K
;COPY 'BAD DATA'
;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER (OMPARE ERROR [NDICATOR

POXTA,RMCS2(R0)
;SELECT PORT A
PCTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPFOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) , $BUDAT
:GET CONTENTS OF RMDS

#RMDS ,$8DADR

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS
AMOL .PGM.DPR!DRY.VV,$GDDAT
;WHAT REGISTER SHOULD BE

RO, $BDADR

$BDDAT , $TMPO

#AC77777.8TMPO

$GDDAT, $TMPO
68$
$8DDAT, $TMP4
N77777.8TMPS
§§MP¢.$GDDA7

sMOVE REGISTER CONTENTS TO *'$TMPO’
;SAVE SPECIFIED BITS
;COMPARE THE BITS

;BR IF OK

;COPY 'BAD DATA'
;CLEAR THE MASKED BITS
:'OR" WITH GOOD DATA FOR TYPEQUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOK

sNOW ISSUE MASSBUS INIT
020774

012760

000040

000010

MoV

#CLR,RMCS2(R0)

s ISSUE MASSBUS INIT

;CONFIRM THAT DRIVE STILL SEIZED BY PORT A
021002
021010
021016
021022
021030
021036
021042

113760

013737
005037
016037
012737
060037
005037

013737
042737
023737
001414
013737
042737
053737

104034
005137
000240
113760
013737
005037
016037
012737
060037
012737

001226
001226
001250
000012
000012
001122
001124
001126
10C000
001124

001164
001164
001164

001126
077777
001174

001174
001174
001124

000010
001240

CLR
MoV
MOV

001126
001122

001250

001224
001224
001250
000012
006012
001122
011700

MOvVB
MoV

000010
001240

001126
001122
001124

ADD

70%:

CLR
MOV
BIC
P
BEQ
MOV
BIC
8IS
EMT
coM
NOP
MOvB
MoV
CLR
MoV
MoV

ADD
Mov

PORTB ,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
sCLEAR THE °'CHECK ERROR® INDICATOR
RMDS (RQ) ,$8DDAT
:GET CONTENTS OF RMDS
ARMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS
$SGDDAT
sWHAT REGISTER SHOULD BE

$BDDAT, $TMPO

BAC77777.8TMPO

;MOVE REGISTER CONTENTS TO '$TMPQ’
:SAVE SPECIFIED BITS

$GDDAT, $TMPO
70$
$8DDAT
, $TMP4
#77777.$TMP4
$TMPS
, SGDDAT

s COMPARE THE BITS
;BR IF OK
;COPY 'BAD DATA'
sCLEAR THE MASKED BIT'S
;'OR' WITH GOOD DATA FOR TYPEOQUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

PORTA ,RMCS2 (RO)
PORTA,PTNBR
CKERR

;SELECT PORY A

;MOVE PORT ADDRESS

RMDS (RO) ,$BDDAT

TO LOCATION FOR

;CLEAR THE 'CHECK ERROR'
;GET CONTENTS OF RMDS

TYPEOUT

INDICATOR

#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
AMOL PGM DPR.DRY.VV,$GDDAT
;WHAT REGISTER SHOULD BE

CZR MRBO RMO5/3/2 DU POR TST 1
MATRO V04.00
T4
PORT 'A’ SEIZE AND (LEAR TEST

021172
021200
021206
021214
021216
021224
021232
021240
021242
021246

01373/
0462737
023737

001414
013737,

001126
100000

001124

053737

001126
Q77777
001174

005737

001250

042737
104034

000240

4-APR-81

11376C

013737
012760

001224
001224
000013

001164
001164
001°64

MOV

BIC

CMP
BEQ

001174
001174

MOV

8IC

001124

?#§

coM
com

728

000010
001240
000000

021276
021304
021310
021316
021324
021332
021340
021346
021354
021362
021370
021376
021404
021412
021420
021422
021426
021430
021432
021436
021444
€21452
021460
021464
021466
021474
021502
02151¢C
021514
021516
021524
021532
021540
021542
021550
021556
021564

005037
012737
0690037
012737
113760
016037
042737
013737
042737
113760
016037
042737
013737
042737
023737
001006
005737
001045
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760

005737

001012
012737
012760
012760
104026
013737

013737
042737
023737

001254
000012

$BDDAT, $TMPO

$GDDAT, $TMPO
72$
$BDDAT, $TMP4

#77777.$TMPS
§£MP4.SGDDAT

CKERR

001122
011700
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100
001164

MOV

CLR

001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

021632
001170
001226
001226
001164

001126
001240
000010

001224
001172
001224
001166

001240
001126
000010

177777
000011

001254
000000
000000

001170
001224

001126
001240
001126
001126

000013

100000
001124

:COMPARE THE BITS
:BR IF OK
:COPY

'BAD DATA'

:CLEAR THE MASKED BITS
;'OR'

WITH GOOD DATA FOR

TYPEOUT

;SET

THE REGISTER COMPARE

ERROR
ERROR

INDiCATOR
iCAT

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

#13,RMCS1(RO) TM

IS STILL

;ISSUE RELEASE THROUGH PORT A

IN NEUTRAL

RELERR

;CLEAR THE

PORTA,RMCS2(R0)

:SELECT PORT A.

'RELEASE ERROR

INDICATOR

RMDS
(RO) ,$TMP2
:GET
#PIP'WRL'OM, STMP2

$TMP2, $TMPO
HATA'VV,$TMPO
PORTB,RMCS2(R0Q)

RMDS
(RO) ,$TMP3

#ATA!VV,$TMPT
$TMPO, STMP1
74$
$TMPO
768
46
788

MOV

PORTB.,PTNBR

MOV

THE

DRIVE STATUS REGISTER FROM PORT A.
;CLEAR DONT CARES
;COPY IT INTO 'S$TMPO’
:CLEAR PORT DEPENDENT BITS FROM THE COPY
:SELECT PORT B.

-GET THE DRIVE STATUS REGISTER FROM PORT B.

#PIP'WRLIOM, STMPS
:CLEAR DONT CARES
S$TMP3, $TMP1
;COPY IT INTO 'STMP1®

BIC
cMP
BNE
18T
BNE
EMT
JMP

:(CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PQORTS ?
:BR IF NOT
.
;REGISTERS ARE THE SAME: ARE THEY ZERO ?
:BR If NOT

;BYPASS THE REST OF

THE CHECKS

$TMP?2, SBDDAT

;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

PORTB,RMCS2(R0O)
$TMPO

:SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.

MOV

PORTA,PTNBR

:SE1ZING PORT

MOVB

PORTA,RMCS2(R0)

BME
MOV
MOV

763
#-1,RELERR
#11,RMCST1(RQ)

MOVR
TST

BEQ

MOV
TST

76$:

'$TMPO’

MOV
BIC

BIC
MOV

75%:

ARMDS , SBDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, S8DADR
;ADD THE [/0 BASE ADDRESS
#MOL ' PGM'DPR'DRY'VV,SGDDAT
;:COMPARISON CONSTANT

MOV
BIC
MOVB
MOV

74%:

MOV
ADD
MOV

MOVB

001164

;MOVE

-SAVE SPECIFIED BITS

THE DRIVE FROM PORT A
MOVB
MOV

001122

10-35

#AC77777,$TMPO

;VERIFY THAT THE DRIVE
021272

SEQ 0075

;RELEASE
021250
021256
021264

18:06:25 PAGE

Mg¥

fiov

Jvov

BIC
CMP

75%

$TMP3, $SBDDAT

$TMP1

ggs.nncs1(no>

$TMP2, SBDDAT

PORTA.PTNBR

#ATA, $BDDAT
$GDDAT,$BDDAT

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

:BR IF ZERO

TEST SHOWS DRIVE NOT

*'BAD DATA' FOR ERROR TYPE OUT
:SELECT PORT A.

:SEE

STATUS EQ ZERO FROM PORT B.

:BR IF NOT
:SET 'RELEASE ERROR'
;CLEAR THE DRIVE

INDICATOR

:RELEASE THE DRIVE

;LOOK FOR BIT FAILURES WHEN RMDS READ

:CHANGE PORT NUMBER

*DON'T CHECK THE ATTN BIT
-ALL BITS OK 2

[N NEUTRAL

JRMRBO RM0S5/3/2 DU POR

Ty,

PORT

'A'

021572
021574
021576

021604
021612
021620
021626
021620

021632

484

021634

SEIZE

001401
104007
013737
013737
042737
023737
001401

TST

AND

CLEAR

001172
001226

10000C
001124

MACRO v04.00

4-APR-81

TEST

001126
001240
001126
001126

104007

000240
000004

1
10-~36
SEQ 0076

BEQ
EMT

77%:

MOV
MoV

BIC
CMP
BEQ
EMT
NOP
SCOPE

78%:
1%:

503
504

J
18:06:25 PAGE
;75

;JBR

$TMP3, $BDDAT

JCHECK RMDS FOR BIT FAJLURES = FROM PGRT B.

H#ATA,$BDDAT
$GDDAT ,8BDDAT

sDON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.

PORTB,PTNBR

OK FROM PORT A,

s CHANGE

78%
7

;BR

PORT NUMBER

JLOOP ?

;:.Qt"t.ttt."Qfltkti'fii'i'!t'ttttfi'fittttfitfitt"tfl'tttitt.fltt'tt'

J=TEST

PORT

'B'

SEIZE

AND

CLEAR

TEST

;*VERIFY THAT A MASSBUS CLEAR OR DRIVE
PORT

CLEAR WILL NOT CAUSE THE SEIZING

ISSUE A DRIVE CLEAR THROUGH PORT
DOES NOT RETURN TO NEUTRAL.

2N B
2R B

THE DRIVE.

SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT
VERIFY THAT THE DRIVE HAS BEEN SEIZED.

°B°.

°'B°' AND VERIFY THAT THE DRIVE

ISSUE A MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE
DOES NOT RETURN TO NEUTRAL,

0,08,
0R

TO RELEASE

%,
..,

505
506

021636
021636
0c1642
021644
021646
021652
021660
021666
021674
021674
21702
021706

005737
001406

001300

000137

003074
177777
021674
021674

100002

012737
012737
012737
112737

012706
012737

000015
001100
000012

RELEASE THE DRIVE THROUGH PORT °'B’.
VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

MRS

EAALA

7ST15:

001300
001106
001110

001102

18:

2%:
TEST15:

001176

;SEIZE
021714
021722
021730
021734
021742
021750
021756
021764
021770
021776

113760

013737
005060
113760
013737
013737
016037
010037
062737
005037

001224
001226
000012
001224
001224
001224
000012
001122
000012
001124

000010
001242
000010
001240
001244
001126
001122

SRRl

1ST

s a2
22222220+

KYBCTL

;PERFORMING ONLY SINGLE

18
EXEC

JBR IF JUST ENTERED TEST
SRETURN £ GET NEXT TEST NUMBER

8EQ
B8PL

pid 3

MOV
MOV

NTEST15,8LPADR
WTEST15,8LPERR

MovB
MOV
MOV

#15,8TSTNM

JMp
MOV

:BR [F NOT

#-1,KYBCTL

sSET SINGLE

TEST

INDICATOR

;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS
;MOVE #15 TO TEST NUMBER

#STACK,SP

;sLOAD

#10. ,STIMES

THME

;:D0O 10.

STACK POINTER

ITERATIONS

THE DRIVE THROUGH PORT B
MOvB
Mov
CLR

MOvB

MOV
MOV
MoV
MoV
ADD

(IR

PORTB,RMCS2(R0O)

;SELECT PORT B

RMDS (RO)
PORTA,RMCS2(R0)

JWRITE RMDS
;SELECT PORT A

PORTB,SEIZPT

PORTA,PTNBR

STORE SEIZING PORT'S ADDRESS

;MOVE PORI. ADDRESS TUTUCATION-FOR-T¥REQUT

PORTA,OPPRT
. 'OPPOSITE' PORT ADDRESS
RMDS(RO) ,$8DDAT ;SEE IF DRIVE SEIZED BY PORT B

RO, $8DADR
- #RMDS , $BDADR
$GDDAT

;RH/RM BASE ADDRESS
:GENERATE BAD REGISTER ADLRESS
JREGISTER SHOULD BE ZERO

...

€l R MRBO RMOS/3/2 DU POR

M 5

PORT

"B’

022002

SEIZE

TST

AND

:MACRO V04.0C

CLEAR

TEST

001124, 001126

022012
85%853

104004
000137

023234

022020
022026
022034
022062
022050
022056
022064
022070
022076
022104
022112
022114
022116

113760
013737
016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240

001403

(MpP

001226
Q01226
000012
020001
011700
001124
001166
001126
001166
001124

K 11

18:06:¢5 PAGE

10-37
SEQ 0077

023737

022010

4-APR-81

BEG
648

EMT
JMP

658:

MOVB
MOV
MOV
BIC
MOV
MOV
oM
MOV
BIC
CMP
BEQ
EMT
NOP

000010
001240
001126
001126
001124
001166
001164
001764
001164

$GDDAT, $BDDAT

043
A
1%

;1S THE REGISTFR ZERD

PBROIF IT IS

;BYPASS REST OF

THE SUBTEST

PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATiON FOR TYPEOUT
RMDS (RO) , $BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#OM PP, $BDDAT
. CLEAR DONT CARE BITS
#MOL ! PGM.DPR.DRY !VV,$GDDAT
;EXPECTED STATUS
$GDDAT,$TMP1
;USE GOOD DATA AS A MASK
$TMP1
; COMPLEMENT THE EXPECTED STATUS
$BDDAT,$TMPO
:SAVE THE ACTUAL STATUS
$TMP1, $TMPO
:CLEAR UNWANTED BITS
$GDDAT , $TMPO
JARE THE EXPECTED STATUS BITS SET ?
65%
:BR Il THEY ARE
S

;DRIVE (LEAR THROUGH PORT B FIRST
022120

012760

000011

000000

MOV

#11,RMCS1(RO)

;ISSUE DRIVE CLEAR THROUGH PORT B

VERIFY THAT DRIVE STiLL SEIZED BY PORT B

022126
022134
022142
022146
023154
022162
022166
022172
022200
022206
22214
022216

113760
013737
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737

022224
022232
022240
022242
022246
022250
022256
022264
022270
022276
022304
022310
022316

042737
053737
104033
005137
000240
113760
013737
005037
016037
012737
060037
012737
013737

022332
022340
022342
022350
022356
022364

023737
0C1414
013737
042737
053737
104033

022326

042737

001224
001226
001250
000012
000012
001122
001124
001126
100000
001124

000010
001240

001164
001164
001164

001126
077777
001174

001174
001174
001124

001126
001102

001250

001226
001226
001250
000012
000012
001122
011700
001126

001124
001164

001124

001164

001126
077777
001174

001174
001174
001124

100000

MOVB
MOV
CLR
MOV
MOV
ADD
CLR
MOV
BIC
M
BEQ
MOV

000010
001240

001126
001122

001164

668:

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR T/PEOUT
CKERR
:CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$8DDAT
~;GET CONTENTS OF RMDS
ARMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
:ADD RH/RM BASE ADDRESS
$GDDAT
:WHAT REGISTER SHOULD BE
$BDDAT,$TMPO
:MOVE REGISTER CONTENTS TG '$TMPQ’
#AC77777,8TMPO
:SAVE SPECIFIED BITS
SGDDAT,$TMPO ~ :COMPARE THE BITS
663
:BR IF OK
SSDDAT,$TMP4
;COPY 'BAD DATA'

BIC
BIS
EMT
coM
NOP
MOVB
MOV
CLR
MOV
MOV
ADD
MOV
MOV

PORTB,RMCS2(RO)
;SELECT PORT 8
PORTB.PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
:CLEAR THE *CHECK ERROR' INDICATOR
RMDS (ROY, $BDDAT " ;GET CONTENTS OF RMDS
#RMDS $SBDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#MOL 'PGM!DPR'DRY'VV,$GDDAT
_:WHAT REGISTER SHOULD BE
SBDDAT, $TMPO
;MOVE REGISTER CONTENTS TO *SIMPQ"

CMP
BEQ
MOV
BIC
8IS
EMT

$GDDAT,$TMPO ~
68%
$BDDAT,$TMP4
#77777,8TMP4
$TMP4 ,$GDDAT
33

BIC

#77777,$TMP4
$TMP4L $GDDAT
33
CKERR

#AC77777,$TMPO

:CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT

:SET THE REGISTER COMPARE ERROR INDICATOR

:SAVE SPECIFIED BITS

;COMPARE THE BITS
:BR IF OK
;COPY 'BAD DATA'
:CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT

CZRMRBO RMOS/3/2 DU POR TST 1
MACRO v04.00
IBI
715
SEIZE AND CLEAR TEST
PORY

022366
022372

005137
000240

001250

68%:

4-~APR-B1

L N
18:06:25 PAGE 10-38
SEQ 0078

coM

NOP

CKERR

;NOW ISSUE MASSBUS

022374

012760

000040

000010

MOV

;SET

THE REGISTER COMPARE ERROR INDICATOR

INiT

#CLR,RMCS2(RO)

;ISSUE MASSBUS

INIT

;CONTIRM THAT DRIVE STILL SEIZED BY PORT B
022402
022410
022416

022422
+ 022430
022436
022442
022446
022454
022462
(622470

022472

022500

022506

022514
022516
022522
022524
022532
022540
022544
022552
022560
022564
022572
022600
022606
022614
022616
022624
022632
022640
029642
022646

113760

001224
001224
001250
000012
000012
001122
001124
001126

013737
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737

001126
077777
001174

005137

001250

104034

000240
113760

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104034
005137
000240

100000

001124

000010
001240

MOVB

MOV
CLR

001126
001122

MOV

001174
001174
001124

001226
001226
001250
000012
000012
001122
011700
001126
100000
0011724

001124
001164
001164
001164

001126
077777
001174

001174
001174
001124

#AC77777,8TMPO

BEQ

70$

SAVE SPECIFIED BITS
:COMPARE

‘BR IF 0K

$BDDAT.$TMP4

THE BITS

:COPY

'BAD DATA'

:(CLEAR THE MASKED BITS
$'OR'

WITH GOOD DATA FOR TYPEOUT

ggg

CKERR

:SET

THE REGISTER COMPARE ERROR

MOVB

PORTB,RMCS2(RO)

CLR
MOV
MOV
ADD
MOV
MOV

BiC

CMP
BEQ

ngw,scoom

PORTB.PTNBR

;SELECT PORT B

:MOVE PORT ADDRESS

‘

INDICATOR

TO LOCATION FOR TYPEOUT

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) , $BDDAT
~;GET CONTENTS OF RMDS
#RMDS ,$BDADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#MOL 'PGM'DPR
VY,
!DRY
$SGDDAT
;WHAT REGISTER SHOULD BE
$BDDAT,$TMPO
:MOVE REGISTER CONTENTS TO ‘STMPO®

NAC77777.8TMPO

:SAVE SPECIFIED BITS

SGDDAT.$TMP0
72%

;COMPARE THE BITS
‘BR IF OK

BIC
g&;

N77777.$TMPL
gZMP4,SGDDAT

:CLEAR THE MASKED BITS
;'OR* WITH GOOD DATA FOP TYPEOUT

CoM
NOP

CKERR

MOV

728:

$GDDAT,S$TMPO

ERROR MESSAGE

;ADD RH/RM BASE ADDRESS
‘WHAT REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO ‘$TMPO*

#77777.8TMP4

MOV

001126
001122

;FORM REGISTER ADDRESS OF

RO, $8DADR
$GODAT
$8DDAT,$TMPO

BIC

gr{fi,

000010
001240

001250

BIC

MOV

208

RMDS (RO) ,$SBDDAT " ;GET CONTENTS OF RMDS

#RMDS ,$BDADR

cMP

:SELECT PORT A

:MCVE PORT ADDRESS TO LOCATION FOR TYPEOUT
;CLEAR THE 'CHECK ERROR' INDICATOR

MOV

ADD
CLR
MOV

001164
001164
001164

PORTA,RMCS2(RO)

PORTA,PTNBR
CKERR

SBDDAT,STMP4

-COPY

'BAD DATA®

;SET THE REGISTER CCMPARE ERROR INDICATOR

:RELEASE THE DRIVE FROM PORT B
022650

022656

022664

113760

013737
012760

001226
001226
000013

000010

001240
000000

MOVB

PORTB,RMCS2(R0)

MOV

#13,RMCST(R0O) "

MOV

PORTB.PTNBR

SVERIFY THAT THE DRIVE
022672
022676
022704
022710
022716

005037
012737
060037
012737
113760

001254
000012
001122
011700
001224

;SELECT PORT B

:MOVE PORT ADDRESS

TO LOCATION FOR

;ISSUE RELEASE THROUGH PORT B

IS STILL IN NEUTRAL

001122

(LR
MOV

RELERR
#RMDS ,$BDADR

001124
000010

MOV
MOVR

#MOL 'PGM'DPR.DRY
. VV,$GDDAT
: COMPARISON CONSTANT
PORTA,RMCS2(RO) :SELECT PORT A.

ADD

TYPEOUT

RO, $BDADR

;CLEAR THE 'RELEASE ERROR ' INDICATOR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT

*ADD THE

1/0 BASE ADDRESS

JRMRBO RMO5/3/2 DU POR TST 1
MACRO v04.00
1%
PCRT ‘B’ SEIZE AND CLEAR TES”

001170
001170
001164
00" "64
000010
001172
001172
001166
001166
001166

001126
001240
000010

M 11
18:06:25 PAGE 10-39

SEQ 0079
MOV

BIC

MOV
BIC
MOVB
MGV

:REGISTERS ARE

$TMP2,$8DDAT
PORTB.PTNBR

:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

MOV
MOV

75%

001126
001240
001126
001126

778:

001126
001126

78%:

THE CHECKS

TEST SHOWS DRIVE NOT

; 'BAD DATA® FOR ERROR TYPE OUT
;SELECT PORT A.
IF

IN NEUTRAL

STATUS EQ ZERO FROM PORT B.

;BR IF NOT
;SET 'RELEASE ERROR'
:CLEAR THE DRIVE
*RELEASE THE DRIVE

INDICATOR

$TMP2,$8DDAT

;LOOK FOR BIT FAILUKES WHEN RMDS READ

MOV
MOV

$TMP3,$BDDAT
PORTB.PTNBR

:CHECK RMDS FOR BIT , AILURES - FROM PORT B.
*CHANGE PORT NUMBER

$GDDAT,$BDDAT

-SEE IF READ OK FROM PORT B.

BIC

#ATA, $8DDAT

BEQ
EMT

78%
7

A AR

SATEST 16
¢

THEY ZERO ?

PORTA.PTNBR
NATA, $8DDAT
SGDDAT,S8DDAT
;7:

SCOPE

ARE

MOV
8IC
CMP
?fi?

NOP

18%:

;SEE

76%
#-1,RELERR
#11.RMCS1(RO)
ggs.nncs1(no>

cMP

:BR IF ZERO

$TMPI

BNE
MOV
MOV
?g¥

SAME:

:SELECT PORT B.
:SEE IF STATUS EO O FROM PORT A.
:SEIZING PORT

$TMP3,SBDDAT
PORTA ,RMCS2(R0)

THE

:BYPASS THE REST OF

OORTA,PTNBR

MOV
MOovB

MOV

;CLEAR DONT CARES

‘BR IF NOT

PORTB.RMCS2(R0O)
$TMPO

IST

768:

:COPY IT INTO 'STMP1°
:CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOIH PORTS 2
‘BR IF NOI

768
46
78$

BEQ

001126
001240

STMP3, STMP1
#ATA.VV,$TMP1
$TMPO, $TMP
748

STATUS REGISTER FROM PORT A.

$ TMPO

MOV

75%:

;COPY IT INTO '$TMPO’
:(LEAR PORT DEPENDENT BITS FROM THE COPY
;SELECT PORT B,
- GETM THE DRIVE STATUS REGISTER FROM PORT 8.

DRIVE

;CLEAR DONT CARES

MOVB
ST

001254
000000
000000

$TMP2, $TMPO
RATA'VV $TMPO
PORTB,RMCS2(RQ)
RMDS(RQ) ,$TMP3

THE

#PIP WRL.OM,$TMP3

BNE
EMT
JMP

001240
001126
000010

-GET

BI(

MOV
Bl
CMP
BNE

748:

RMDS(RQ) ,$TMP2

#PIP WRL IOM,$TMP2

*CHANGE PORT NUMBER
*DON'T CHECK THE ATTN BIT
:ALL BITS OK ?
‘BR IF OK FROM PORT A.

*DON'T CHECK THE ATIN BIT
JBR IF OK

;LO0OP ?
AN

A AN TN AN RN AN AR AR RAR AN AN N AR AR RN RN RN AR

SEIZE ‘A’ BY RMCS1 TEST

AR RN RN

;*VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE
;*IF THE DRIVE IS IN NEUTRAL,
A.

READ THE CONTROL REGISTER
THE DRIVE IS SEIZED.

ISSUE A RELEASE COMMAND THROUGH PORT °'A'; VERIFY THAT THE
DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

(RMCS1)

THROUGH PORT

‘'A';

VERIFY THAT

»
%

507
519
520

022724
016037
700012
022732 042737 024001
022740 013737 001170
100100
022746
042737
113760
022754
001226
022762
016037 000012
022770 042737 024001
022776 013737 001172
100100
023004
042737
023012 023737- 001164
023020
001006
023022 005737 01164
023026 001045
023030
104046
023032 000137 023232
023036 013737 001170
023044
013737 001226
023052
113760 001226
023060
005737 001164
623064
001414
023066
013737 001224
023074
013737 001172
023102
11376C
001224
023110
005737 001166
023114
001012
023116 012737
177777
023124
012760 000011
023132 012760 000013
023140 104026
023142 013737 001170
023150 013737 001224
023156 042737
100000
023164
023737 001124
023172 001401
023174
104007
023176 013737 001172
023204
013737 001226
023212 042737 100000
023220 023737 001124
023226 001401
023230
104007
023232 000240
023234
000004

4-APR-81

[

SRR A AR RN A RN NN AN A RN AR AN A

AR AN

NARNRAR AN

R R A RN A NN RRAN RN R RN

CZRMRBO RMOS/3/2 DU POR TST 1
MACRO v04.00
T1e
SEIZE 'A' BY RM"S1 TEST

521

023236
023236
023242
023244
023246
023252
023260
023266
023274
023274
023302
023306

005737
001406

001300

000137
012737
012737
012737

003074
177777
023274
023274

112737
012706
012737

000016
001100
000012

100002

4-APR-81

TST16:

001300
001106
001110
001102

1%:

2%:
TEST16:

001176

N1
18:06:25 PAGE 10-40
SEQ 0080

TST
8EQ
B8PL
JMP
MOV
MOV

KYBCTL
2%
1$
EXEC
#-1,KYBCTL
NTEST16,8LPADR

MOVB
MOV
MOV

#STACK,SP

MOV

sPERFORMING ONLY SINGLE TEST °
;BR IF NOT
sBR _IF JUST ENTERED TEST
SRETURN R GET NEXT TEST NUMBER
sSET SINGLE TEST INDJCATOR
;SETUP SCOPE LOOP ADDRESS

WTEST16,8LPERR

;SETUP ERROR LOOP ADDRESS

#15,8TSTNM

;MOVE #16 TO TEST NUMBER

sLOAD

#10.,8TIMES

THE

;:D0 10.

STACK POINTER

ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS

023314
023322
023326
023334
023342
023350
023354
023362

113760

005060
012760
012760
113760
005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

000010

MOvR
CLR
MOV
MoV
Mmovs
CLR
MOV
Mov

000000
000000
000010

000000
000000

PORTA ,RMCS2(R0O)
RMDS (RQ)
#11,RMCS1(RO)

;SELECT PORT 4A
;SEIZE THE DRIVE
;1SSUE DRIVE CLEAR

PORTB,RMCS2(R0)
RMDS (RO)
#11 RMCS1(RO)
#13,RMCS1(RO)

;SELECT PORT 48
;SEIZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

#13,RMCS1(R0O)

JRELEASE THE DRIVE

‘B’

;SEIZE THE DRIVE THROUGH PORT A
023370
023376
023404
023410
023416
023424
023432
023440
023444
023452
023456
023464
023466
023470
023474
023474
023502
023510
023516
023524
023532
023540
023544
023552
023560
023566

023570
023572

113760

013737
005760

113760
013737

013737
016037
010037
062737
005037
023737

001403
104004
000137
113760

013737
016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240

001224
001224
000000
001226
001226
001226
000012
001122
000012
001124
001124

000010
001242
000010
001240
001244
001126
001122
001126

024160

001224
001224
000012
020001
011700
001124
001166
001126
001166
001124

000010
001240
001126
001126
001124
001166

64%:

001164
001164
001164
65%:
SRELEASE

MOVB
Mov
TSET
MOVB
MoV
MOV
MOV
MoV
ADD
CLR
mp
8EQ
EMT
JMP

MovB
MOV
MOV
BIC
MOV
MOV
(oM
MOV
8IC
CMP
BEQ
EMT

PORTA ,RMCS2(R0O) ,;SELECT PORT A
PORTA,SEIZPT
STORE SEIZING PORT'S ADDRESS

RMCS1(RO)
PORTB,RMCS2(R0O)

sREAD RHCS1
;SELECT PORT B

RO, $8DADR

;RH/RM BASE ADDRESS

PORTB,PTNBR
PORTB,0PPRT

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
;'OPPOSITE' PORT ADDRESS
RMDS (RO) ,$8DDAT ;SEE IF DRIVE SEIZED BY PORT A

#RMDS , $BDADR
$GDDAT

$GDDAT,$BDDAT
245

;GENERATE BAD REGISTER ADDRESS
SREGISTER SHOULD BE ZERO
;IS THE REGISTER ZERO
JBR IF IT IS

;BYPASS REST OF

PORTA ,RMCS2(R0O)

;SELECT PORT A

RMDS (RQ) ,$8DDAT

;SEE

PORTA,PTNBR

:MOVE

PORT ADDRESS

THE SUBTEST
TO LOCATION FOR

TYPEQUT

SEIZING PORT SEES CORRECT STATUS

#OM!P1P,$BDDAT
;CLEAR DONT CARE BITS
A#MOL !PGM!DPR!DRY!VV,$GDDAT
EXPECTED STATUS

$GDDAT,$TMP1
$TMP]
$8DDAT, $TMPO
$TMP1,$TMPO
$GDDAT, $TMPO
gSS

NOP

THE DRIVE FROM PORT A

;USE GOOD DATA AS A MASK
; COMPLEMENT THE EXPECTED STATUS
;SAVE THE ACTUAL STATUS
sCLEAR UNWANTED BITS
SJARE THE EXPECTED STATUS BITS SET ?
;BR IF THEY ARE

ZRMRR0 RM0S5/3/2 DU POR TST '

SEIZE

023576
023602
023610

*A* @y RMCST

113760
013737
012760

TEST

(01224
001224
000013

MACRO v0«.00

023650
023656
023664
023672

023700
023706

023714

005037
012737
060037
012737
113760

016037
042737
013737
042737

113760
016037

042737

C23722
023730
023736
023744
0237646

013737
042737
023737
001006
005737

023754
023756
023762

104046
000137
013737

023776
0240046
026010
024012
024020
024026
024034
024040
024042
024050
024056
024064
024066
024076
024102
024110
024116
024120
024122

113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
042737
023737
001401
104007
013737

024136
024144
024152
024154
024156
5, 024160

042737
023737
001401
104007
000240
000004

023752

023770

0264130

001045

013737

001254
000012
001122
011700
001224

SEQ 0081

000010
001240
000000

MOVB
MOV
MOV

000012
024001
001170
100100
001226
000012
061172
100100
001164

001166
001166
001166

oV
BIC
MOV
BI(

MOVB
MOV

001172

BIC

MOV
BIC
CMP
BNE
TST

001164
024156
001170

001226

BNE
001126

001240

66%:

001226
001164

000010

001226
001172
001224
001166

001240
001126
000010

177777
000011
000013

001254
000000
000000

678:

001170
001226
100000
001124

001126
001240
001126
001126

68%:

001172

001126

106000
001124

001726
001126

001226

THAT

CLR
MOV
ADD
MOV
MOVB

001122
0G1124
000010
001170
001170
001164
001164
000010
001172

024001

4~APR-81 18:06:25 PAGE 10~41

:VERIFY

023616
023622
023630
023634
023642

8 1

001240

EMT
JMP
MOV

MOV

PORTA,RMCS2(R0)
;SELE(T PORT A
PORTA,PTNBR
:MOVE OORT ADDRESS TO LOCATION FOR TYPEQUT
#13,RMCS1(RO)"
;ISSUE RELEASE THROUGH PORT A
THE

DRIVE

1S STILL

RELERR
:CLEAR THE 'RELEASE ERROR * INDICATOR
#RMDS ,$BDADR
:FNRM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $BDADR
:ADD THE 1/0 BASE ADDRESS
#MOL 'PGM!DPR
vV,
!DRY
$GDDAT
:COMPARISON CONSTANT
PORTA,RMCS2(R0) :SELECT PORT A.

RMDS(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.
#P1P ! WRL (OM,$TMP?
;CLEAR DONT CARES
$TMP2, $TMPO
:COPY IT INTO '$TMPQ’
NATA'VV,$TMPO
:(LEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) -SELECT PORT B.
RMDS(RO) ,$TMP3
:GET THE DRIVE STATUS REGISTER FROM PORT B.

#PIP!WRL!OM, $TMPS

:CLEAR DONT CARES

STMP3, STMP1
NATA VV,$TMP1
$TMP0, STMP1
668
$TMPO

:COPY IT INTO *'$TMP1'
:(LEAR PORT DEPENDENT BITS FROM THE COPY
1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR IF NOT
:REGISTERS ARE THE SAYE: ARE THEY ZEROC >

46
708
$TMP2 SBODAT

:BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

68%

PORTB.PTNSBR

69%:

MOVB
TST
BEQ
MOV
MOV
MOVB
ST
BNE
MOV
MOV
MOV
EMT
MOV
MOV
BIC
cMP
BEQ
EMT
MOV

PORTB.RM(S2(RO)
$TMPO
678
PORTA, PTNBR
$TMP3.SBDDAT
PORTA.RMCS2(R0)
$TMP1
688
#-1,RELERR
#11.RMCS1(RO)
#13.RMCST1(RO)
25
$TMP2 $BDDAT
PORTA, PTNBR
#ATA, $BDDAT
$GDDAT,$BDDAT
698
7
$TMP3,SBDDAT

708:
Y

BI(
(MP
BEQ
EMT
NOP
SCOPE

#ATA, $BDDAT
$GDDAT ,$BDDAT
708
7

MOV

IN NEUTRAL

PORTB., PTNBR

:BR IF NOT

:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

:SELECT PORT B.
:SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
:SEIZING PORT IF TEST SHOWS DRIVE NOT N NEUTRAL
:*BAD DATA' FOR ERROR TYPE OUT
-SELECT PORT A.
:SEE IF STATUS EQ ZERO FROV PORT B.
:BR IF NOT
:SET 'RELEASE ERROR' INDICATOR
:CLEAR THE DRIVE
:RELEASE THE DRIVE
:LOOK FOR BIT FAILURFS WHEN RMDS READ
: CHANGE PORT NUMBER
DON"T CHECK THE ATTN EiT
:ALL BITS OK ?
:BR IF OK FROM PORT A.

:CHECK RMDS FOR BIT FAILURES - FROM PORT B.

:CHANGE PORT NUMBER

:DON'T CHECK THE ATTN BIT
:SEE IF READ Ok FROM PORT B.
:BR IF OK

:LOOP ?

JHWRBO RMOS5/3/2 DU POR TST

SEIZE

°'B* Br RMCST

TEST

WACRO V04.00

)LS

«~APR-81

€12
18:06:25 PAGE 10~42

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

TRTEST 17

SEIZE 'B' BY RMCS1 TEST

READ THE CONTROL REGISTER
THE DRIVE IS SEIZED.

ISSUE A RELEASE COMMAND
RETURNED TO NEUTRAL AND

LAE BN

BN B

3N )

;*VERIFY THAT READING THE CONTROL REGISTER
s*IF THE DRIVE IS IN NEUTRAL.
(RMCS1)

(RM(CS1)

SEIZES THE

THROUGH PORT

'B';

DRIVE

VERIFY

THAT

THROUGH PORT °'B'; VERIFY THAT THE DRIVE
THAT NEJTHER ATTENTION BIT IS SET.

>e IAAAAAARES

024162

024162
026166
024170
0264172
02617¢
024206
852558

005737
001406
100002
000137
012737
012737
012737

003074
177777
024220
024220

0264220
024226
546 024232

112737
012706
012737

000017
001100
000012

SRS

Y222 2222232211

TS117:

001300

001300
001106
001110

1%:
28%:
TEST17

001102

001176

TST
BEQ
BPL
JMP
MOV
MOV
MOV

KYBCTL
2%
13
EXEC
#-1,KYBCTL
W#TEST17,SLPADR
NTEST17,$LPERR

sPERFORMING ONLY SINGLE TEST ?
;BR IF NOT
;BR_IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER
sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MovB
Mov
MoV

#17,8TSTNM
#STACK,SP
#10. ,STIMES

;MOVE #17 TO TEST NUMBER
;LOAD THE STACK POINTER
;:DO 10. ITERATIONS

547

sCLEAR ATTENTION BITS FOR BOTH PORTS
024240
024246
024252
024260
024266
024274
024300
024306

113760
005060
012760
012760
113760
005060
012760
012760

007224
000012
000011
000013
001226
000012
000011
000013

000010

MovB
cLe
MOv
MOV

000000
0C0000
000010

Move
CLR
MoV
MOV

000000
000000

PORTA ,RMCS2(RO)
RMDS (RO)
#11 RMCS1(RO)>
#13,RMCS1(RO)
PORTB RMCS2(RO)
RMDS (RO)
#11_RMCS1(RO)
#13,RMCS1(RO)

;SELECT PORT #A
;SEIZE THE DRIVF
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

:SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

°'B*

;SEIZE THE DRIVE THROUGH PORT B

024314

024322
024330
024334
024342
0324350

024356
024364
024370
024376
024402
024410
C24412
852213
é

024420
024426
024434

113760

013737
005760
113760
013737
013737

016037
010037
062737
005037
923737
001403
104004
000137

113760
013737
016037

001226

001226
000009
001224
001224
001226

000012
001122
000012
001124
001124

000010
001242

001226
001226
000012

001122
001126

648

000010
001240
001126

PORTB ,RMCS2(R0O)

:SELECT PORT B

MoV
MOV
ADD
CLR
(MP
BEQ
EMT
JMP

RMDS(RO) ,$BDDAT
RO, $8DADR
#RMDS , $BDADR
$GDDAT
$GDDAT,$BDDAT
648
4
18

;SEE IF DRIVE SEIZED BY POPT B
sRH/RM BASE ADDRESS
s GENERATE BAL REGISTER ADDRESS
;REGISTER SHOULD BE ZERO
;IS THE REGISTER ZERO
BRIF IT IS

MOVB
MOV
MoV

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS (RO) ,$BDDAT
;SEE IF SEIZING PGRT SEES (ORRECTM STATUS

MOV
TST
MOvB
MOV
MOv

000010
001240
001244
001126

025104

MOvB

PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMCST(RO)
;READ RHCS1
PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
.MOVE PORT ADDRESS 7O LOCATION FOR TYPEQUT
PORTA,OPPRT
:'OPPOSITE' PORT ADDRESS

;BYPASS REST OF

THE SUBTEST

ZRMRBV kMO5/3/2 DU POR TST 1
MACRU v04.00
SEIZE '8 BY RMCST TEST
026442
026450
026456
026464
0264470

024476

024504
0264512
026514
026516

042737
012737
013737
005137
013737

043737

023737
001401
104005
000240

020001
(11700
001126
001166
001126

001166

001124

4-APR-81

SEQ 0083

001126
001124
001166

BIC
MOV
MOV
coM

001164

MOV

001164

BIC

001166

CMP
BEQ
EMT
NOP

65%:
;RELEASE

026520
024526
02645364

113760
013737
01276G

001226
001226
000013

000010
001240
000000

D 12
18:06:25 PAGE 10-43

THE

MOVB
MOV
MOV

#OM.PIP,$BDDAT
:CLEAR DONT CARE BITS
#MOL 'PGM!DPR
'DRY ' vV, SGDDAT
;EXPECTED STATUS
$SGDDAT,$TMP1
;USE GOOD DATA AS A MASK
$TMPI
; COMPLEMENT THE EXPECTED STATUS
$8DDAT ,$TMP(
JSAVE THE ACTUAL STATUS
$TMP1,$TMPO

$SGDDAT,STMPO
65$
5
DRIVE

005037
012737
060037
012737
113760
016637
042737
013737
042737
113760
016037

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012

001170
001170
001164
001164
000010
001172

024646
024654
024662
024670
024672
024676
024700
024702
024706
024714
C24722
024730

013737
042737
023737
001006
005737
001045
104046
000137
013737
013737
113760
005737

001172
100100
001164

001166
001166
001166

024640

042737

024734
024736
024746
024752
024760
024764
024766
024774
025002
025010
025012
025020

001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737

025034

023737

025026

062737

024001

CLR
MOV
ADD
MOV
MOVB
MOV
BIC
MOV
BIC
MOVB
MOV

001122
001124
000010

001172

BIC

001164
025102
001170
001226
001226
001164

001126
001240
000010

66%:

PORTB,RMCS2(R0)
:SELECT PORT B
PORTB,PTNBR
,MOVE PORT ADDRESS TO LOCATION FOR TYPEOU!
#13,RMCS1(RO) " ;ISSUE RELEASE THROUGH PORT B

001240
001126
000010

177777
000011
000013

001254
000000
000000

67%:

00117C
001224

001126
001240

68%:

001124

001726

001126

IS STILL

IN NEUTRAL

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS ,$BDADR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $BDADR
:ADD THE 1/0 BASE ADDRESS
#MOL ' PGM'DPR'
1 VV,$GDDAT
DRY
; COMPARISON CONSTANT
PORTA,RMCS2(R0) -SELECT PORT A.
RMDS(R0) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP WAL IOM,$TMPD
;CLEAR DONT CARES
$TMP2, $TMPO
;COPY IT INTO '$TMPO’
lATA!VV $TMPO
:CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,.RMCS2(RO) :SELECT PORT B.
RMDS(R0) ,$TMF3
:GET THE DRIVE STATUS REGISTER FROM PORT B.

#P1PWRL TOM, $TMPS

;CLEAR DONT CARES

STMP3, $TMP1
#ATA!VV,STMP1
$TMPO . $TMP1
663
$TMPO
68$
46
708
$TMP2,$BDDAT
FORTB, PTNBR
PORTB.RMCS2(R0O)
$TMPO

SCOPY IT INTO '$TMP1®
:CLEAR PORT DEPENDENT BITS FROM THE COPY
*1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
*BR IF NOT
;REGISTERS ARE THE SAME: ARE THEY ¢ERO ?
‘BR IF NOT

#ATA, $BDDAT

:DON'T CHECK THE ATTN BIT

MOV
EMT
MOV
MOV

;BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
:SEIZING PORT IF TEST SHOWS DRIVF NOT IN NEUTRAL
-SELECT PORT B.
:SEE IF STATUS EQ O FROM PORT A.
678
*BR IF ZERO
PORTA,PTNBR
*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEJTRAL
$TMP3,SBDDAT
- 'BAD DATA' FOR ERROR TYPE OUT
PORTA.RMCS2(R0O) -SELECT PORT A.
$TMP1
SSEE IF STATUS EQ ZERO FROM PORT B.
68%
*BR IF NOT
#-1,RELERR
*SET 'RELEASE ERROR' INDICATOR
#11.RMCS1(RO)
:CLEAR THE DRIVE
#13,RMCS1(RO)
;RELEASE THE DRIVE
26
$TMP2,$BDDAT
;LOOK FOR BIT FAILURES WHEN RMDS READ
PORTA.PTNBR
*CHANGE PORT NUMBER

(MP

S$GDDAT,$BDDAT

BEQ
MOV
MOV
MOVB
ST

001224
001172
001224
001166

100000

MOV
BIC
CMP
BNE
ST
BNE
EMT
JMP
MOV
MOV
MOVB
TST

:ARE THE EXPECTED STATUS BITS SET ?
‘BR IF THEY ARE

FROM PORT B

;VERIFY THAT THE DRIVE
024542
024546
024556
024560
024566
024574
024602
024610
024616
024624
024632

:CLEAR UNWANTED BITS

BNE
MOV
MOV

BIC

:ALL BITS OK ?

(IR MRBO RMOS/3/2 DU POR TST 1
MACRO v04.00
7
SEIZE *B* BY RM(S1 TEST

548
504

025042
025044
025046
025054
025062
025070
025076
025100
025102
025104

013737
013737

042737
023737
001401

001172
001226

160000

0C1124

001126
091240
001126
001126

BtQ
EMT
MOV

69%:

JBR IF OK FROM PORT A,

;CHECK RMDS FOR BI1

PORTB,PTNBR

8I1C

#ATA,$BDDAT

BeaQ

708

CMP

; (HANGE

JSEE IF READ OK FROM PORT B.
JBR IF 0K

I'4

NOP
SCOPE

FAILURES ~ fROM PORT B.

PORT NUMBER

JDON'T CHECK THE ATIN BT

$SGDDAT,$8DDAT

EMT

70%:
18:

565

10-44

69%
7
$TMP3, $BDDAT

MOV

104007

000240
000004

18:06:¢5 PAGE

SEQ 0084

001401

104007

E 12

4-APR-81

JLODP 2

. 'tt"..'.'l""'fifi'*"""fiiQ'.tfi.tfi'.tfi'tt'fi't.fi'fitt.'tl

"'tt!

'TEST 20

PORT

‘A’

INHIBIT SEIZE BY RM(S1

TEST

THE DRIVE

IS SEIZED.

REQUEST'

SEIZE THE DRIVE THROUGH PORT
THE DRIVE HAS BEEN SEIZED.

Sevits 0.,

R 2 B 22R NJ

E'VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET 'PORT

gE?D THE

ISSUE A RELEASE COMMAND THROUGH PORT °'B'.
VERIFf THAT TKE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

'B'

BY READING RMCS1.

‘'A’.

VERIFY THA]

'DVA’

THAT

IS NOT

CONTROL REGISTER FROM PORT

VERIFY

566
583

025106
025106
025112
025114
025116
025122
025130
025136
025144
025144
025152
025156

005737
001406

001300

000137
012737
012737
012737

003074
177777
025144
025144

11¢73%7

000020
001100
000012

100002

012706
012737

AAL RS

TST?O

AR sttt
20 22222222228
z

TST

KYBCTL

;PERFORMING ONLY SINGLE

1%:

JMP
MoV

EXEC
#-1,KYBCTL

;RETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR

TEST20

MOV

N#TEST20,SLPERR

;SETUP ERROR LOOP ADDRESS

MOvBe

#20,8TSTNM

BEQ
8PL

001300
001106
001110

2%:

001102

MOV

MOV
Mov

001176

2%
1$

:BR IF NOT
sBR IF JUST ENTERED TEST

WTEST20,8LPADR

TEST

;SETUP SCOPE LOOP ADDRESS

sMOVE #20 TO TEST NUMBER

#STACK,SP
#10. ,STIMES

;LOAD THE STACK POINTER
;:DO 10. ITERATIONS

sCLEAR ATTENTION BITS FOR BOTH PORTS

025164
025172
025176
025204
025212
025220
025224
025232

113760
005060

012760
012760
113760
005060
012760

C12760

001224
000012
000011
000013
001226

000012
000011
0006013

0c0010

MOovB

000000
000000
000010

(LR
MOV
MOV
MOVR

000000
000000

MOV
MoV

(LR

;SEIZE
025240

025246

113760

013737

001226
001226

000070
001242

PORTA ,RMCS2(R0)

RMDS (RO)
#11 ,RMCST1(RO)
#13,RMCS1(RO)
PORTB _RMCS2(R0O)

RMDS (RO)

#11,RMCST(RO)
#13_RMCS1(RO)

;SELECT PORT #A

;SEIZE THE DRIVE
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SELECT PORT #8

;SEIZE THE DRIVE THRCUGH PORT

;ISSUE DRIVE (LEAR
:RELEASE THE DRIVE

THE DRIVE THROUGH PORT B
MOVB
MoV

PORTB,RMCS2(RO)

PORTB,SEIZPT

M
;SELECT PORT B

;STORE

SEIZING PORT'S

ADDRESS

‘B'

gRMRBO RMQOS/3/2 DU POR

PORT

*A'

INWIBIT

025256
025260
025266
025276
025302
025310
025314
025322
025326
025334
025336
025340

005760
113760
013737
013737
016037
010037
062737
005037
023737
001403
104004
000137

025364
025352
025360
025366
025376
025402
25410
025414
625422
025430
025436
025440
025442
025444

113760
013737
016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240
113760
013737

025452

TST

MACRO

v04.00

SEIZE BY RMCST

000000
(01224
001224
(01224
000012
001122
000012
001124
001124

001122
001126
,
o

001226
001226
000012
020001
011700
001124
001166
001126
001166
001124

001164
061164
001164

001224

000010

00001C
001240
001126
001126
001124
001166

658:

001240

005037
016037
012737
060037
005037
013737

001250
000000
000000
001122
001124
001126

001164

025524
025532
025534
025542
025550
025556

023737
001414
013737
042737
053737
104010

001124

001164

001126
004077
001174

001174
001174
001124

025516

042737

025560 *005137
025564
000240

173700

001164

MOVB
MOV
MOV
BIC
MOV
oV
COM
MOV
BIC
CMP
BEQ
EMT
NOP
MOVB
MOV

PORTB,RMCS2(R0)
;SELECT PORT B
PORTA.PTNBR
;MOVE PORT ADDRCSS TO LOCATION FOR TYPEQUT
RMDS (R0) ,$BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#OM'P1P, $BDDAT
;CLEAR DONT CARE BITS
#MOL 'PGM.DPR
! DRY YV, $GDDAT
;EXPECTED STATUS
$GDDAT,$TMP1
;USE GOOD DATA'AS A MASK
$TMP1
;COMPLEMENT THE EXPECTED STATUS
$BDDAT,$TMPO
:SAVE THE ACTUAL STATUS
$TMPT, $TMPO
:CLEAR UNWANTED BITS
$GDDAT,$TMPO
:ARE THE EXPECTED STATUS BITS SET ?
658
:BR IF THEY ARE
5

112760
013737
012760

001226
001226
000013

PORTA,RMCS2(R0)

PORTA,PTNBR

THROUGH PORT A =

:SELECT PORT A

:?OVE PORT ADDRESS TO LOCATIGN FOR TYPEQUT
TRY TO SET PORT REQUEST

CKERR
;CLEAR THE "CHECK ERROR' INDICATOR
RMCS1(RO),$BDDAT
;GET CONTENTS OF RMCSI
#RMCS1,$BDADR- ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
;ADD RH/RM BASE ADDRESS
$GODAT
*
WHAT REGISTER SHOULE BE
$BDDAT $TMPO *
:MOVE REGISTER CONTENTS TO '$TMPO’

BIC

#2C4077,$TMPO

;SAVE SPECIFIED BITS

66$:

(oM
NOP

(KERR

;SET

;DRIVE

SHOULD RETURN TO NEUTRAL

CMP
BEQ
MOV
BiC
813
EMT

JRELEASE

025566
025574
025602

12
10-45

RM(CS1(RO)
;READ RH(S1
PORTA,RMCS2(R0) ' ;SELECT PORT A
PORTA,PTNBR
MOVE PORT ADDRESS TO LCCATION FOR TYPEQUT
PORTA ,OPPRT
:*OPPOSITE’ PCRT ADDRESS
RMDS(R0) ,$8DDAT :SEE IF DRIVE SEIZED BY PORT 8
RO, $BDADR
:RH/RM BASE ADDRESS
#RMDS ,$BDADR
:GENERATE BAD REGISTER ADDRESS
$GDDAT
REGISTER SHOULD BE ZERO
$GDDAT,$BDDAT
;1S THE REGISTER ZERO
643
BRIF IT IS
4
1$
;BYPASS REST OF THE SUBTEST

CLR
MOV
MOV
ADD
CLR
MOV

001126
001122

001250

F
PAGE

TST
MOVB
MOV
MOV
MOV
MOV
ADD
CLR
(MP
BEQ
EMT
JMP

;READ RMCS1

25460
025464
025472
025500
025504
025510

18:06:¢5

EQ 0085

000010
(001240
001244
001126

026152

001224

TEST

4-APR-B1

000010
901240
000000

THE

MOVB
MOV
Mov
JVERIFY

THAT

$GDDAT,$TMPO.
663
$BDDAT,$TMP4 +
#5077
. $TMP4 s
$TMP4.SGDDAT
10

DRIVE

“:COMPARE THE BITS
.BR IF OK
1COPY 'BAD DATA'
1(LEAR THE MASKED BITS
:'OR' wiTh GOOD DATA FOR TYPECUT
THE REGISTER COMPARE ERROR iNDICATOR

FROM PORT B

PORTB,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR _.MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#13,RMCS1(RO)
;ISSUE RELEASE THROUGH PORT B
THE DRIVE

IS STILL

IN NEUTRAL

“JRMRBC RMOS/3/2 DU POR TST )
MACRO V04.00
" 20
PORT *A* [NWIBIT SEIZE BY RMCS1 TEST

025610
025614

001254
(00012

001122

012737
113760
016037

011700
003224
000012

01124
00001C
001170

025656
025664
025672
025700

013737
042737
113760
016037

001170
100100
001226
000012

025716
025722
025730
025736
025740
025744
025746
C25750
025754
025762
025770
025776
026002
026004
026012
026020
026026
026032
026034
026042
026050
026056
026060
026066
026076
026102
026110
026112
026114
026122
026130
026136
026144
026146
026150
026152

013737
042737
023737
001006
008737
001045
104046
000137
013737
013737
113760
005737
0031414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
042737
023737
001401
104007
013737
013737
042737
023737
007401
106007
000240
000004

001172
100100
001164

025622

025626
025634
025642

025650

025706

584
600

601

005037
012737

060037

042737

001122

024001

SEQ 0086

CLR
MOV

ADD

MOV
MOVB
MOV

001170

BIC

RELERR
#RMDS ,$BDADR

RO, $SBDADR

;CLEAR THE "RELEASE ERROR ' [NDICATOR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT

:ADD THE [/0 BASE ADDRESS

#MOL . PGM.DPR'DRY.VV,SGDDAT
: COMPARISON CONSTANT
PORTA ,RMCS2(R0) ;SELECT PORT A.
RMDS (RO),$TMP2
:GET THE DRIVE STAIUS REGISTER FROM PORT A.

#PIP. WRL.OM,$TMP?

;CLEAR DONT CARES

#PIP !WRL .OM,$TMP3

. ;CLEAR DONT CARES

001164
001164
000010
001172

MOV
BIC
MOVB
MOV

$TMP2, $TMPO
AATA! YV ,$TMPO
PORTB.RMCS2(RO)
RMDS (RO),$TMP3

;COPY IT INTO '$TMPO’
;CLEAR PORT DEFENDENT BITS FROM THE COPY
:SELECT FORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

001166
001166
001166

MOV
BIC
CMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVB
TST
8EQ
MOV
MOV
MOVB
ST
BNE
MOV
MOV
MOV
EMT
MOV
MOV
BI(
CMP
BEG
EMT
MOV
MOV
BIC
cmP
BEQ
EMT
NOP
SCOPE

$TMP3, $TMP
#ATA.VV,STMP1
$TMPO, $TMPT
68%
$TMPO
708
46
72%
$TMP2, $8DDAT
PORTR,PTNBR
PORTB.RMCS2(R0)
$TMPO
698
PORTA ,PTNBR
$TMP3, $8DDAT
PORTA.RM(S2(R0O)
$TMP1
708
#-1,KELERR
#11.RMCS1(RO)
#13,RMCS1(RO)
26
$TMP2,$80DAT
PORTA.PTNBR
#ATA,$8DDAT
$GDDAT,SBDDAT
71$
7
$TMP3, SBDDAT
PORTB,PTNBR
#ATA, $BDDAT
SGDDAT ,$8DDAT
72%
7

:COPY IT INTO 'STMPT®
:CLLAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS °
‘BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
‘BR IF NOT

001172

BIC

001164
026150
001170
001226
001226
001164

&<-APR-8B1

G 12
1B:06:¢5 PAG E 10- 46

001126
001240
000010

68$:

001224
001172
007224
001166

001240
001126
000010

177777
000011
000013

001254
000000
000000

69%:

001170
001224
100000
001124

001126
001240
001126
001126

70$:

001172
001226
100000
001124

001126
001240
001126
001126

71%:

72%:
1%:

;BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
-SELECT PORT B.
:SEE IF STATUS EQ O FROM PORT A.
*BR IF ZERO
;SEIZING PORT [F TEST SHOWS DRIVE NOT IN NEUTRAL
$'BAD DATA' FOR ERROR TYPF OUT
-SELECT PORT A,
*SEE IF STATUS EQ 2ERG FROM PORT 8.
‘BR IF NOT
*SET 'RELEASE ERROR® INDICATOR
:CLEAR TRE DRIVE
:RELEASE THE DRIVE
;LOOK FOR BIT FAILURES WHEN RMDS READ
:CHANGE PORT NUMBER
:DON'T CHECK THE ATIN BIT
-ALL BITS OK ?
‘BR IF OK FROM PORT A.
.
:CHECK RMDS FOR BIT FAILURES - FROM PORT B.
:CHANGE PORT NUMBER
*DON'T CHECK THE ATIN BIT
:SEE IF READ OK FROM PORT B.
‘BR IF OK

;LOOP 2

""tttt't!ttttttttttttt"'i.titt!ttt"tt"t'.‘ttttttt'tht't"'ttt’

LATEST 21
¥

PORT 'B'

INHIBIT SEIZE BY RMCS1 TEST

:*VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET 'PORT
I
REQUEST® IF THE DRIVE IS SEIZED.
M

SEIZE THE DRIVE THROUGH PORT 'A' BY READING RMCS1.

VERIFY THAT

THE

DRIVE

oo}

gg?b

THE

H 12
18:06:¢5 PAGE 10-47

4-APR-81

ISSUE A RELEASt COMMAND
RETURNED TO NEUTRAL AND

HAS BEEN SEIZED.

'B',

VERIFY

THAT

'DVA'

[S NOT

CONTROL REGISTER FROM PORT

THROUGH PORT ‘'A',
VERIFY THAT THE DRIVE
THAT NEITHER ATTENTION BIT IS SET.

Pest.v,u,
0, 8,

(ZRHRBO RMOS5/3/2 DU POR TST 1
MACRO v04.00
T2
PORT °8' INHIBIT SEIZE BY RM(S1 TEST

N '.ltt!'.t"!tl.tt'.t't'.'.'tttfi"'tfit'fit'tt't.ttttfit't'ttf

itt't'

005737
001406

001300

000137
012737
012737
012737

003074
177777
026212
026212

112737

000021
061100
000012

100002

012706
012737

TSre1:

TST

BEQ
BPL

001300
001106
001110

1$:

2%:

TEST21

001102

JMP

MOV

MOvR

MOov

001176

MOV

KYBCTL

sPERFORMING ONLY STNGLE

2%
1%

EXEC

#-1

JBR IF NOT
;BR IF JUST ENTERED TEST

TEST

;RETURN & GET NEXT TEST NUMBER

KYBCTL

ATEST21,8LPADR

#TEST21,8LPERR

#21,$TSTNM

;SET

SINGLE

INDICATOR

;SETUP ERROR LOOP ADDRESS

;MOVE #21

#STACK,SP

TEST

;SETUP SCOPE LOOP ADDRESS
TO TEST NUMBER

;LOAD THE STACK POINTER

#10.,$TIMES

;:D0 10.

ITERATIONS

:CLEAR ATTENTION BITS FOR BOTH PORTS
113760
005060
12760
012760
113760
005060
012760
012760

001224
000012
000011

000013
001226
000012
000011
000013

000010

MovB
CLR
MOV
MOV
MOVB
CLR

000000
000000
00001C
000000
000000

MOV
MOV
;SEIZE

026306
026314
026322
026326
026334
26342
026350
026356
026362
026370
026374
026402
026404
026406
0264612
026412
026420
026426
026434
026442
026450

113760
013737
005760
113760
013737
013737
016037
010037
062737

005037
023737
001403
104004

001224
001224
000000
001226
001226
001226
000012
001122
000012
001124
001124

000137

027220

113760

001224
001224
00001¢
020001
011700
001124

013737
016037
042737
012737
013737

000010
001242

mMove

001122
001126

000010

001240
001126
001126
001124
001166

64%:

#11,RMCST(RO)
#13,RMCS1(RO)

;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

‘B’

THE DRIVE THROUGH PORT A
MOvB
Mov
TST

000010
001240
001244
001126

PORTA,RMCS2(RO) ;SELECT PORT WA
RMDS (RO)
;SEIZE THr DRIVE
#11,RMCST1(RO)
;ISSUE DRIVE CLEAR
#13,RMCST1(RO) ;REI EASE THE DRIVE
PORTB,RM(S2(R0O) ;SELECT PORT #8
RMDS (RO)
;SEIZE THE DRIVE THROUGH PORT

PORTA,RMCS2(R0) ;SELECT PORT A
PORTA,SEIZPT
;STORE SEIZING PORT'S ADDRESS

RMCS1(RO)

PORTB,RMCSZ(RO)

JREAD RHCS1

;SELECT PORT B

MOV
MOV
Mov
MoV
ADD
CLR
CMP
?g?

PORTB,PINBR
;MOVF PORT ADDRESS TO LOCATION FOR TYREQUT
PORTB,0PPRT
;'OPPOSITE' PORT ADDRESS
RMDS (RO) ,$BDDAT ;SEE IF DRIVE SEIZED BY PORT A
RO, $8DADR
;RH/RM BASE ADDRESS
#RMDS , $BDADR
sGENERATE BAD REGISTER ADDRESS
$GDDAT
JREGISTER SHOULD BE ZERO
$GDDAT,$BDDAT
;IS THE REGISTER ZERO
24$
sBRIF IT IS

JMP

MOVR

PORTA,RM(CS2(R0O)

;SELECT PORT A

MOV
BiC

RMDS
(RQ) ,$BDDAT
#OM!PIP,$BDDAT

:SEE

MOV

MOV
MOV

PGRTA,PTNBR

;BYPASS REST OF
;MOVE PORT ADDRESS

THE

SUBTEST

7O LOCATION FOR TYPEQUT

SEIZING PORT SEES CORRECT STATUC
.CLEAR DONT CARE BITS

#MOL .PGM . DPR DRY'vV,SGDDAT
EXPECTED STATIS
$GDDAT,$TMPT
. USE GOOD DATA AS A MASK

026232
026240
026244
026252
026260
026266
026272
02630C

602
€03

026156
026154
026160
026162
026164
026170
026176
026204
026212
026212
(26220
026224

JRMRBO RMOS5/3/2 DU POR TST 1
MACRO Vv04.00
13
PORT "B' INWIBIT SEIZE BY RMCS1 TEST

02645
026462
026470
026476
026504
026506
026510
026512
026520

005137
013737
043737
023737
007401
104005
000240
113760
013737

001166
(01126
001166
001124

001226
001226

4-APR-81

001164
001164
001164

000010
001240

458:

005037
016937
012737
060037
005037
013737

001250
000000
000000
001122
0071124
001126

oM
MOV
BIC
(MP
BEQ
EMT
NOP
MOVS
MOV

26572
026600
026602
026610
026616
026624
026626
026632

023737
001414
013737
042737
053737
104010
005137
000240

0C1124

026564

042737

001164

173700

001164

001126
004077
001174

001174
001174
001124
668:

(MP
BEQ
MOV
BIC
BIS
EMT
COM
NOP

; COMPLEMENT THE EXPECTED STATUS
:SAVE THE ACTUAL STATUS
:CLEAR UNWANTED BITS
ARE THE EXPECTED STATUS BITS SET 2
:BRIF THEY ARE

PORTB,RMCS2(RO)
;SELECT PORT B
PORTB.PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

THROUGH PORT B = TRY TO SET PORT REQUEST
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMCS1(RO),$BDDAT’
;GET CONTENTS OF RMCS1
WRMCST,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,S$BDADR
:ADD RH/RM BASE ADDRESS
$GDDAT
:WHAT REGISTER SHOULD BE
S$BDDAT,S$TMPO
:MOVE REGISTER CONTENTS TO '$TMPO’

BIC

001164

001250

$TMPY
SBDDAT,STMPQ
$TMPT,$TMPO
SGDDAT,$TMPO
658
S

(LR
MOV
MOV
ADD
CLR
MOV

001126
001122

12
10-48
SEQ 0088

:READ RMCS1
026526
026532
026540
026546
026552
026556

[
18:06:¢5 PAGE

#%C4077,8TMPO

SGDDAT,§TMPO
668
SBDDAT,$TMP4
#4077,8TMP4
$TMP4_SGDDAT
10
"KERR

;SAVE SPECIFIED BITS

"(COMPARE THE BITS
:BR IF OK
:COPY 'RAD DATA'
ICLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR

;DRIVE SHOULD RETURN TO NEUTRAL

SRELEASE THE DRIVE FROM PORT A
026636
026642
026650

113760
013737
012760

001224
001224
000013

000010
001240
000000

MovB
MOV
MOV
JVERIFY

026656
026662
026670
026674
026702
026710
026716
026724
026732
026740
026746

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012

013737
042737

001172
100700

026754

042737

026776
027004
027006

023737
001006
005737

027014

104046

026762
026770

027012

001045

001124
9000010
001170
001170
001164
001164
000010
001172

CLR
MOV
ADD
MOV
MOVB
MOV
81(
MOV
BIC
MovB
MOV

001166
001166

MoV
BIC

001122

024001

001172

001164

001166

001164

THAT

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13_RMCS1(R0O)
;ISSUE RELEASE THROUGH PORT A
THE DRIVE

IS STILL

IN NEUTRAL

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
A#RMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $BDADR
;ADD THE 1/0 BASE ADDRESS
AMOL 'PGM!DPR!DRY!VV,SGDDAT
;COMPARISON CONSTANT
PORTA ,RMCS2(R0Q) :SELECT PORT A,
RMDS(RO) ,$TMP2
. GET THE DRIVE STATUS REGISTER FROM PORT A,
A#PIP WRL !OM, $TMP?
;CLEAR DONT CARES
$TMP2, $TMPO
;COPY IT INTO 'S$TMPO’
#ATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE (OPY
PORTB,RMCS2(R0) ;SELECT PORT B.
RMDS(RQ) ,$TMP3
-GET THE DRIVE STATUS REGISTER FROM PORT B.

BIC

#PIP!WRL'OM,$TMP3S

(MP
BNE
TST
BNE
EMT

$TMPO, $TMP1
68%
$TMPO
70%
46

$TMP3,$TMP1
#ATA!VV,$TMP1

;CLEAR DONT CARES

;COPY IT INTO '$TMP1'*
;CLEAR PORT DEPENDENT BITS FROM THE (COPY

;1S THE STATUS REGISTER THE SAME FROM BOTH PURTS ?
;BR IF NOT
;REGISTERS ARE THE SAME: ARE THEY ZERG °

JBR IF NOT

IR MRBO RMO5/3/2 DU POR TST 1
MACRO v04.00
21
PORT *B' INHIBIT SEIZE BY RMCS1 TEST

027016
027022
027030
027036
027044
027050
027052
027060
027066

027074

604
619
620

027100
027102
027110
027116
027124
027126
027134
027142
027150
G27156
027160
027162
027170
027176
027204
027212
027214
027216
027220

0C0137
013737
013737
113760

005737

001414
013737
013737
113760
005737
001012
012737
012760
012760
104026

013737
013737
042737
023737
001401
104007

013737
013737
42737
023737
001401

027216
001170
001226
001226
001164

001126
001240
000010

177777
000011
000013

001254
000000
000000

69%:

001170
001224

70%:

001124

001126
001240
001126
001126

001172
001226
100000
001124

001126
001240
001126
001126

71%:

000240
000004

$TMPO
69%

PORTA,PTNBR

$TMP3, $BDDAT
PORTA,PMCS2(R0O)
$TMPY
708
#-1,RELERR
#11,RMCST(RD)

BNE

MoV
MoV
MoV

5;3.RMCS1(RO)

EMT

$TMP2, $BDDAT

MOV
MOV

PORTA,PTNBR

HATA,$BDDAT

BIC
CMP
BEQ
EMT
MoV
MOV
8IC
CMP
BEQ
EMT
NOP
SCOPE

72%:
1%:

$GDDAT, $BDDAT
;15

$TMP3, $BDDAT

PORTB,PTNBR
HATA,$BDDAT
$GDDAT
, $8DDAT

;ZS

;BYPASS THE REST OF

THE

(HECKS

;SET UP POSSIBLE BAD DATA FOR ERROR ME SSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT !N NEUTRAL
;SELECT PORT 8.
;SEE IF STATUS EQ O FROM PORT A.
:BR [F 2ERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
;'BAD DATA' FOR ERROR TYPE OUT
JSELECT PORT A,

;SEE IF STATUS EQ ZERO FROM PORT B.

:BR_IF NCT

;SET 'RELEASE ERROR'
;CLEAR THE DRIVE
JRELEASE THE CRIVE

INDICATOR

sLOOK FOR BIT FAILURES WHEN QMDS READ

; CHANGE PORT NUMBER

;DON'T CHECK THE ATTN BIT
JALL BITS OK ?
;BR IF OK FROM PORT A.
sCHECK RMDS FOR BIT FAILURES - FROM PORT B.
; CHANGE PORT NUMBER

;DON'T CHECK THE ATIN BIT

;SEE IF READ OK FROM PORT B.

;BR IF OK
.LO0P ?

NRE R A AN AR AR RN A AT AT AN R

S*TEST 22
.

10-49

PORTB,PTNER
PORTB,RM(S2(RO)

MOV
MoV
MOVR
TST

72%
$TMP2, $BDDAT

JMP

MoV
MOV
mMovB
TST

8EQ

001240
001126
000010

104007

18:06:¢5 PAGE

SEQ CO8%

68%:

001224
001172
001224
001166

100000

4=-APR-81

A AR KRR NN A RAR RN R AARNA

A ARNR AN NA NIRRT RSN

SEIZE BY RMAS TEST

;*TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER
P

(RMAS)

SEIZES THE DRIVE.

PORT.

VERIFY THAT REQUEST

IS SET FOR THE OTHER

o*
b

i
::

001300

000137
012737

003074
177777

001300

012737

027260

001110

112737

000022

001102

100002

027244~ 012737027260 001106

027252
027260
027260
027266

012706

001100

18%:
287 7

INTO RMAS:

VERIFY THAT

ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT;

THE

VERIFY

DR.VE

THAT

THE

DRIVE SWITCHES TO THE OPPOSITE PORT.
ISSUE A RELEASE THROUGH THE
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL.
R AN

TST22:

005737
001406

THE APPROPRIATE DRIVE BIT

1S SEIZED.

SRR

027222
027222
027226
027230
027232
. 02723

WRITE

A A

1ST

BEQ
BPL
JMP

AN AA R AN R AR AR AR RNRAAANRARRNNNRAARRRRAARRANNCNRRARRN

KYBCTL

2%
1%
EXEC

MOV
#-1,KYBCTL
TMOV T CWIESTZ22,SLPADR
Mov
ATEST22,SLPERR

TEST22:

MovB
Mov

#22,5TSTNM

#STACK,SP

sFERFORMING ONLY SINGLE TEST ?
;BR IF NOT

;BR_IF JUST ENTERED TEST

JRETURN & GET NEXT TEST NUMBER

sSET SINGLE TEST INDICATOR
;SETUP~ SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

JMOVE #22 TO TEST NUMBER
sLOAD THE STACK POINTER

CZRMRBO RMO5/3/2 DU POR TS1
¢
SEIZE BY RMAS TEST

6
675

027272

012737

000012

MA(CRO V04.00

4-APR-81

K 12

18:06:25 PAGE

10-50
SEQ 0090

001176

MOV

#10. ,$TIMES

::D0 10.

ITERATIONS

sCLEAR ATTENTION BITS FOR BOTH PORTS
027300
027306
027312
027320
027326
027334
027340
027346

113760
005060
012760
012760
113760
005060
032760
012760

001224
(20012
000011
000013
001226
000012
000011
000013

000010

MovB
CLR
MOV
MoV
MOovB
CLR
MoV
MoV

000000
000000
000010
000000
000000

PORTA ,RMCS2(RO)
RMDS (R0O)
#11,RMCST1(RO)
#13,RMCS1(RO)
PORTB,RMCS2(RO)
RMDS (RO)
#11,RMCS1(RO)
A13,RMCS1(RO)

;SELECT PORT #A
;SEIZE THE DRIVE
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

'B’

;SELECT DRIVE OTHER THAN THAT BEING TESTED
027354
027362

113760
013737

001230
001224

000010
001242

MoVB
MOV

PORTC,RMCS2(R0O)
PORTA,SEIZPT

;SELECT DRIVE NOT BEING TESTED
;'SEIZED' PORT ADDRESS

SWRITE THF DRIVE'S ATTENTION BIT
027370
027376
027404

013760
113760
013737

001236
001224
001224

000016
000010
001240

MOV
MOVB
MoV

ASR1,RMAS(RO)
;WRITE THE ATTENTION BIT OF THE DRIVE BEING TESTED
PORTA ,RMCS2(R0O)
:SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS O LOCATION FOR TYPEOUT

SVERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE
027412
027416
027420

027426
027434
027440
027442
85;228

927450

027456
027464
027470
027472
27476
327500

005760
001014
113760
013737
005760
001021
104042
000137

031274

113760

001226

013737
005760
001002
000137
106043
000137

000012

001226
001226
000012

001226
000012

TST
BNE
movB

000010
001240

000010

001240

‘

030374
031274

005037
016037
012737
060037

001250
000012
000012
Q01122

001126
001122

027536

013737

001126

001164

027530

027544

027552
027560
027562

042737

023737
001414
013737

011700

106077

2%:

001124

001164

0011264

001164

001126

001174

;SEE THE REGISTER THROUGH PORT A ?
;BR IF YES
;SELECT PORT B
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
;SEE REGISTER THROUGH PORT B ?
;BR IF YES

MOV
TST
BNE
EMY
JMP

PORTB,PTNBR
RMDS (RO)
2%
42
4

MovB

PORTB,RMCS2(R0O)

MoV
TST
BNE
JMP
EMT
JMP

;PORT B HAS

027504
027504
027510
027516
027524

RMDS (RO)
13
PORTB ,RMCS2(R0O)

PORTB,PTNBR
RMDS (RO)
.+6
33
43
43
THE

DRIVE.

;BYPASS REST OF

TEST

;SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEQOUT
;REGISTER SHOULD BE ZERO THROUGH PORT B
;BR IF STATUS REG IS NOT ZERO
sSTATUS REG IS5 ZERO

VERIFY

;BYPASS REST OF
THAT

TEST

PORT A HAS PORT REQUEST

SET

CLR
MoV
Mov
ADD

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
;ADD RH/RM BASE ADDRESS

MOV

$BDDAT, $TMPO

sMOVE REGISTER CONTENTS TQ '$TMPO’

$GDDAT ,$TMPO
64%
$BDDAT, $TMP4

. COMPARE THE BITS
;BR IF 0K
.COPY 'BAD DATA'

MoV

BIC

(MP
BEQ
MOV

#MOL !PGM!DPR!DRY!VV,SGDDAT

#~(71700,$TMPO

;WHAT REGISTER SHOULD BE

:SAVE SPECIFIED BITS

rZQMRBO RMOS5/3/2 DU POR TST
T2e
SEIZE BY RMAS TEST

027570
027576
027604
027606
027612
027€14
027622

042737

053737
104010

005137
000240
013737
013737

MACRO v04.00

4-APR-81

BIC

001250

001226

001226
000013

#71700,8TMP4

?A?

001242
001244

648

JRELEASE

027630
027636
027644

10-51
SEQ 0091

071700
001174

001226
001224

L 12

18:06:25 PAGE

000010
001240
000000

sCLEAR THE MASKED BITS

féMPG,SGDDAT

:'OR"

WITH GOOD DATA FOR

TYPEOQUT

THE

ERROR

ggg

(KERR

;SET

MOV
MOV

PORTB,SE1ZPT
PORTA,OPPRT

sADDRESS FOR ERROR MESSAGE
;SAME AS ABOVE

THE

DRIVE

INDICATOR

FROM PORT B

MOvVB

PORTB,RMCS2(R0O)

MoV

#13,RMCS1(RO)

MOV

PORTB,PTNBR

;SELECT PORT B

;MOVE

PORT ADDRESS

s ISSUE RELEASE

TO LOCATION FUR

THROUGH PORT B

TYPEOUT

JVERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B
027652
027656
027664
G27672
027676
027704
027712
027720
027726
027734
027742
027744
027750
027752
027754
027762
027770
027776
030000
€30002

005037
012737
012737
060037
113760
013737
016037
113760
013737
016037
001404
005737
001401
104044
013737
013737
023737
001401

001254
111700
000012
001122
001224
001224
000012
001226
001226
000012

CLR

001124
001122
000010
0012490
001164
000010
001240
001126

001126
001240
001126

104027

000240

66%:

67%:

:CLEAR

'RELEASE ERROR®'

HATA!MOL !PGM!DPR!DRY!VV,8GDDAT
#RMDS ,$8DADR
;REGISTER ADDRESS

INDICATOR

:COMPARISON CONSTANT
INCREMENT

ADD
MOVB
MOV
MoV
MOVB
MoV
MOV

RO, $BDADR
JREGISTER BASE ADDRESS FOR TYPEOUT
PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCAT;ON FOR TYPEQUT
RMDS (RO) , $TMPQ
;READ STATUS REGISTER FROM PORT A
PORTB,RMCS2(RO)
“;SELECT PORT B

TST
BEQ

$TMPO
66%

;1S STATUS FROM PORT A ZERD ?
;BR [F ZERO

MOV
MOV

$TMPO, $BDDAT
PORTA ,PTNBR

;CHECK STATUS FROM FORT A
s CHANGE PORT ADDRESS FOR TYPEOUT

PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYFEQUT
RMDS (RO) , SBDDAT
;DRIVE STATUS FROM PORT B

BEQ

001164

001164
001224
001124

RELERR

MOV
MOV

663

EMT

:BR IF STATUS FROM PORT B ZERO

CMP
BEQ
EM7

$GDDAT,$BDDAT
67%

NCP

;(OMPARE WITH CONSTANT
JBR IF 0K

sRELEASE THE DRIVE FROM POR! A
030004
030012
30020

113760

013737
012760

001224
001224
000013

000010
001240
000000

MOvB
MOV

MoV

;VERIFY THAT

030026
030032
030040
030044
030052
030060
030066
030074
030102
030110
030116
030124

005037
012737
060037
012737
113760

016037

042737
013737
042737

113760
016037
042737

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012
024001

001122

001124
000019
001170
001170
001164
001164
000010
001172
001172

PORTA,RM(S2(RO)
;SELECT PORT A
PORTA PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CLR

#13,RMCS1(RO)
THE

CRIVE

IS STILL

RELERR

MOV

#RMDS , SBDADR

MOVB

PORTA,RMCS2(R0)

ADD
MOV
MOV

s ISSUE RELEASE

;CLEAR THE
;FORM THE

RMDS
(RO) ,$TMP?

:SELECT PORT A.
:GET THE DRIVE

MOV8

PORTB,RMCS2(RQ)

BIC

'RELEASE ERROR

ADDRESS OF

INDICATOR

RMDS FOR

TYPEQUT

RO, $8DADR
:ADD THE 1/0 BASE ADDRESS
#MO! 'PGM'DPR'DRY
! VV,$GDDAT
;COMPARISON CONSTANT

#PIP'WRLIOM, $TMP2

MOV

IN NEUTRAL

BIC

MOV
8IC

THROUGH PORT A

STATUS REGISTER FROM PORT A.

;CLEAR DONT CARES

$TMP2, STMPO
#ATA'VV,STMPC

;COPY IT INTO *$TMPO*
:CLEAR PORT DEPENDENT BITS FROM THE COPY

RMDS(RO) ,$TMP3

:GET

-SELECT PORT B.

#PIP!WRL.OM,$TMPS

THE DRIVE STATUS REGISTER FROM PORT 8.

;CLEAR DONT CARES

«JRMRBO RMO5/3/2 DU POR TST
122
SEIZE BY RMAS TEST

030132
030140
030146
030154
030156

013737
042737
(23737
007006
005737

030164
030166
030172
030200
030206
030214
030220
030222
030230
030236
030244
030250
030252
630260
030266
030274
030276
030304
030312
030320
030326
030330

104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
042737
023737
001401
104007

050162

030332
030340

030346
030354
030362
030364
030366
030370

001045

013737
013737

042737
023737
001401
104007
000240
000137

MACRO v04.00

001172
100100
001164

00116€
001166
001166

001164
030366
001170
001226
001226
001164

030374

113760
013737

030414
030422
030430
030434

030450

030410

001126
001249
000010

177777
000011
000013

001254
000000
000000

69%:

001170
001224
100600
001124

001126
001240
001126
001126

70$:

001172
001226

001126
001240

71%:

030456
030464
030466
030474
030502
030510
030512
030516

000012
000012
001122
011700

001126
001122

042737

106077

001164

023737
001414
013737
042737
053737
104010
005137
000240

3s:

708

$TMP3, SBDDAT
PORTB,PTNBR
#ATA, SBDDAT
SGDDAT,$BDDAT
728
7

001164

001126
071700
001174

001174
001174
001124
73$:

‘BR IF NOT

;BYPASS THE REST OF THE (HECKS
;SET UP POSSIBLE BAD DATA FOR E£RROR MESSAGE
;SEIZING PORT 1F TEST SHOWS DRIVE NOT [N NEUTRAL
-SELECT PORT B.
:SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
:'BAD DATA' FOR ERROR TYPE OUT
:SELECT PORT A.
:SEE IF STATUS EQ ZERO FROM PORT B.
:BR IF NOT
:SET 'RELEASE ERROR' INDICATOR
:CLEAR THE DRIVE
;RELEASE THE DRIVE

:LOOK FOR BIT FAILURES WHEN RMDS READ
*CHANGE PORT NUMBER
:DON'T CHECK THE ATTN BIT
-ALL BITS OK ?
:BR IF OK FROM PORT A.

:CHECK RMDS FOR BIT FAILURES - FROM PORT B.
:CHANGE PORT NUMBER
:DON'T CHECK THE ATTIN BIT
:SEE IF READ OK FROM PORT B.
:BR IF OK

VERIFY THAT PORT B HAS PORT REQUEST SET

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

MOV
MOV
ADD
MOV

RMDS
(RO) ,$8DDAT
~;GET CONTENTS OF RMDS
.
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
:ADD RH/RM BASE ADDRESS
#MOL 'PGM'DPR
! VV,$GDDAT
!DRY
:WHAT REGISTER SHOULD BE

BIC

#~C71700,$TMPO

MOV

JCOPY IT INTO 'STMFI!
sCLEAR PORT DEPENDENT BITS FROM THE (COPY
;1S THE STATUS REGISTER THE SAMF FROM BOTH PORTS 2
‘BR IF NOT
SREGISTERS ARE THE SAME: ARE THEY ZERO

MOVB
MOV

CLR

001124
(01164

001124

001250

46
72
$TMP2 ,$BCDAT
PORTB,PTNBR
PORTB.RMCS2(R0O)
$TMPO
69%
PORTA ,PTNBR
$TMP3, SBDDAT
PORTA.RMCS2(RO)
$TMP)
70$
#-1,RELERR
#11.RMCS1(R0O)
#13,RMCS1(R0O)
26
€£7MP2,$BDDAT
PORTA,PTNBR
#ATA, $BDDAT
$GDDAT,$8DDAT
718
7

. THE DRIVE IS SEIZED BY PORT A,

016037
012737
060037
012737

001126

EMT
JMP
MOV
MOV
MOVB
ST
BEQ
MOV
MOV
MOVB
TST
BNE
MOV
MOV
MOV
EMT
MOV
MOV
BIC
TM
BEQ
EMT

BIC
CMP
BEQ
EMT
NOP
JMP

72%:

031274

001250

$TMP3, S TMPI
#ATA VvV ,$TMPI
$TMPO,STMPI
688
$TMPO

MOV
MOV

001126
001126

000010
001240

030442 - 013737

¢8%:

001240
001126
000010

001224
001224

005037

10-52

MOV
BIC
CMP
BNE
ST

BNE

001224
001172
001224
00°166

100000
001124

M 12

18:06:25 PAGE

SEQ 009

i
030374
030402

4-APR-B1

cMP
8EQ
MOV
BIC
BIS
EMT
CoM
MOP

CKERR

;CLEAR THE

$8DDAT,S$TMPO

;MOVE REGISTER CONTENTS TO ‘$TMPQ®

$GDDAT,$TMPO
738
$BDDAT, $TMP4
#71700.$TMP4
$TMPS , $GDDAT
10
CKERR

:COMPARE THE BITS
‘BR IF OK
:COPY 'BAD DATA®
*CLEAR THE MASKED BITS
$'OR' WITH GOOD DATA FOR TYPEQUT

'CHECK ERROR®

INDICATOR

:SAVE SPECIFIED BITS

:SET THE REGISTLR COMPARE ERROR INDICATOR

C 4 R MRBO RMO5/3/2 DU POR TST
T 2P
SEIZE BY RMAS TEST

030520
030526

013737
013737

001226
(01226

RY.

MACRO V04.00 4-APR-81 18:06:25 PAGE 10-53
001242
001244

Mov
MOV

PORTA,SE1ZPT
PCRTB,0PPRT

SEQ 0093

-ADDRESS FOR ERROR MESSAGE
;SAME AS ABOVE

,” ;RELEASE THE DRIVE FROM PORT A
030534
030542
030550

030556
030562
030570
030576
030602
030610
030616
030624
030632
030640
030646
030650
030654
030656
030660
030666
030674
030702
030704
030706

113760

013737
012760

005037
012737
012737
060037
113760

013737
016037
113760
013737
016037
001404
005737
001401

104044
013737
013737
023737
001401
104027
000240

001224
001224
000013

001254
111700
000012
001122
001226
001226
000012
001224
001224
000012

000010
001240
0009000

MovB
MOV
MOV

:VERIFY THAT DRIVE

001184
00112

MOV
MoV
ADD
MovB
mMov
MOV
MOVB
MOV
MoV
BEQ

000010
001240

CLR

001164
000010

001240
001126

001164
001164
001226
001124

PORTA ,RMCSZ(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCST1(RO)
;ISSUE RELEASE THROUGH PORT A

001126
001240
001126

75%:

76%:

IS SEIZED BY PORT B WHEN RELEASED BY PORT A

RELERR

;CLEAR

'RELEASE ERROR'

INDICATOR

TST
?g?

$TMPO
Zzs

;IS STATUS FROM PORT B ZERO ?
;BR IF ZERO

MoV
MOV
(MP
BEQ
EMT
NOP

$TMPO, $BDDAT
PORTB,PTNBR
$GDDAT ,$BDDAT
76%
27

;CHECK STATUS FROM PORT B
; CHANGE PORT ADDRESS FOR TYPEOU~
;COMPARE WITH CONSTANT
;BR IF OK

#ATAIMOL !PGM!DPR!DRY!VV,SGDDAT
:COMPARISON CONSTANT
#RMDS ,$8DADR
;REGISTER ADDRESS INCREMENT
RO, $8DADR
sREGISTER BASE ADDRESS FOR TYPEQUT
PORTB,RMCS2(RO)
,SELECT PORT 8
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS
(RO) ,$TMPO
;READ STATUS REGISTER FROM PORT B
PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA ,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (RO) ,$8DDAT
;DRIVE STATUS FROM PORT A
75%
;BR IF STATUS FROM PORT A ZERO

;RELEASE THE DRIVE FROM PORT B
030710
030716
030724

113760

013737
012760

001226
001226
000013

000010
001240
000000

MOvVB
MoV
Mov

PORTB,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCS1(R0)
;ISSUE RELEASE THROUGH PORT B

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL
030732
€30736
030744

030750
030756
030764
030772
031000

031006
031014
031022
031030

031036

031044
031052

031060
031062

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037
042737
013737
042737
023737
001006
005737

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100
001164
001164

001124
000010
001170
001170
001164
0011€4
000010
001172

CLR
MoV
ADD
MOV
Mov8
MOV
BIC
%
8IC
MOVB
MoV

001166
001166

MOV
BIC

001122

001172

001166

BIC

CMP
BNE
TST

RELERR
#RMDS , $BDADR
RO,$8BDADR

;CLEAR THE 'RELEASE ERROR ' INDICATOR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
;ADD THE 1/0 BASE ADDRESS

TM #MOL !PGM!DPR!DRY!VV,$GDDAT
;COMPARISON CONSTANT.
PORTA ,RMCS2(R0) ;SELECT PORT A.
RMDS(RQO) ,$TMP2
-GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP!WRL !OM,$TMP2
;CLEAR DONT CARES
$TMP2,$TMPO
;COPY IT INTO °'$TMPO*
HATA!VV $TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) ;SELECT PORT B.
RMDS(RO) ,$TMP3
-GET THE DRIVE STATUS REGISTER FROM PORT B.

#PIP!WRL {OM,STMP3
$TMP3, $TMP1
HATA!VV, $TMP1
$TMPO, $TMP1
77%
$TMPO

s CLEAR DONT CARES

;COPY IT INTO '$TMP1'
;CLEAR PORT DEPENDENT BITS FROM THE COPY

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
JBR IF NOT
JREGISTERS ARE

THE

SAME:

ARE

THEY ZERO ?

“ IRMRB( RMOS/3/72 DU POR TST
vl
SEIZE BY RMAS TEST

MACRO v04.00

4-APR-81

106046

\.IH.IMI!J\KNNN—'
rSrONSOSON

Dl
h
b
b et
e
D e

000137
013737
013737

001126
001240
000010

113760

005737
001414

013737
113760

005737
001012
012737
012760
012760

013737
013737
042737
023737
001401
104007

013737
13737
042737
023737
001401

001254
000900

031274

78%:

000000

001170
001224

10000

001124

001172
001226

100000

001124

76$%:

001126
001240
001126
001126

80%:

000240
000004

PORTA ,RM(CS2(R0)
$TMP
798
#-1,RELERR
#11_RMCS1(RQ)

EMT
Mov

$TMP2, $BDDAT

PORTB ,RM(S2(RO)

$TMPO
78%

PORTA,PTNBR

$TMP3,$BDDAT

ggS.RMCS1(R0)

PORTA ,PTNBR
#ATA, $BDDAT

Mov
MOV
BIC
CMP
BEQ

AR AR AN A

LaTEST 23

; 'BAD DATA' FOR ERROR TYPE OUT
JSELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
:BR _IF NOT
;SET 'RELEASE ERROR'
;CLEAR THE DRJIVE
JRELEASE THE DRIVE

INDICATOR

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER

;DON'T CHECK THE ATTN BIT

$TMP3 $BDDAT

JCHECK RMDS FOR BIT FAILURES - FROM PORT B.
; CHANGE PORT NUMBER
;DON'T CHECK THE ATIN BIT
;SEE IF READ OK FROM PORT B.
:BR IF 0K

$GDDAT ,$8DDAT
915

;LOOP 2
A

AR AR AN A AN AR AN AN A AR

RN AN AN AN

R RN AR AN AR A AN AR

NR SN

INHIBIT SEIZE BY RMAS TEST

:*VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A 'ZERO' IS WRITTEN INTO
THE DRIVE'S ATTENTION BIT.

SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE
BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER.

VERIFY THAT THE DRIVE

IS STILL IN NEUTRAL.

AR AN

031276
031276
031302
031304
031306
031312
031320
031326
031334
031334
031342
031346

75123:

001300
]

003074

177777

031334
031334

000023
001100
000012

RN A A AN AR AR R

TST

KYBCTL

BPL
JMP

1%
EXEC

BEQ

001300
001106
001110
001102
001176

18:

2s:
TESTZ23:

‘

JALL BITS 0K ?
:BR IF OK FROM PORT A,

PORTB,PTNBR
#ATA, $BDDAT

EMT
NOP
SCOPE

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
;BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

$GDDAT ,$8DDAT

;05

BEQ
EMT

4%:

;BR IF NOT

PORT8B,PTNBR

MOV
BIC
cme

81%:

689

79%
46
81%
$TMP2,$BDDAT

BNE
EMTY
JMP
MOV
MOV
Mov8
TST
8EQ
MOV
MoV
mMevs
TST
BNE
MOV
MOV

MOV

001126
001240
001126
001126

104007

676

77%:

001240
001126
000010

013737

196026

10-54
SEQ 0094

001045

031104

8 13

18:06:25 PAGE

AN AR

#-1,KYBCTL
#TEST23,$LPADR

#TEST23,$LPERR

#23,8TSTNM
#STACK,SP

#10.,8$TIMES

A AR NRRR RN A NN AN

RN AN NAAA RN AR AR

;PERFORMING ONLY SINGLE TEST ?
;BR IF NOT
sBR IF JUST ENTERED TEST

JRETURN & GET NEXT TEST NUMBER
JSET SINGLE TEST INDJCATCR
;JSETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

;MOVE #23 TO TEST NUMBER

;LOAD THE STACK POINTER

;:D0 10.

ITERATIONS

"ZRMRBO RMQ5/3/2 DU POR TST 1
MACRO v04.00
123
INHIBIT SEIZE BY RMAS TEST
690
705

4~APR-81

18:06:¢5 PAGE

10-55

sCLEAR ATTENTION BITS FOR BOTH PORTS
031354
031362
031366
031374
0316402
031410
031414
031422
031430

113760
005060
012760
012760
113760
005060
012760
012760
113760

001224
000012
000011
000013
001226
000C12
000011
000013
001230

000010

MOV
CLR
MoV
MOV
MOvVR
CLR
MOV
Mov
MOVB

000000
000000
000010
000000
000000
060010

PORTA,RMCS2(RO)
RMDS (RO)
#11,RMCST1(RO)
#13 RMCST1(RO)
PORTB ,RMCS2(R0O)
RMDS (RO)
#11 RMCS1(RO)
#13,RMCS1(RO)
PORTC,RMCS2(R0O)

;SELECT PORT #A
:SEIZE THE DRIVE
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT 'B'
;ISSUE DRIVE CLEAR
:RELEASE THE DRIVE
;SELECT DRIVE NOT BEING TESTED

;WRITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST
031436
031444
031450

013737
005137
013760

001236
001164
001164

001164

MoV
COM
MOV

000016
sVERIFY

031456
031462
031470
031474
031502
031510

005037
012737
060037
012737
113760
016037

001254
000012
001122
011700
001224
000012

031524
031532
031540
031546

013737
042737
113760
016037

031562
031570
031576
031604
031606
031612
031614
031616
031622

013737
737
023737
001006
005737
001045
104046
00013/
013737

031516

031554

031630
031636
031644
031650
031652
031660
031666
031674
031700
031702
031710
031716
031724
031726

042737

013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104021
013737

THAT

ASR1,$TMPO
$TMPO
$TMPO RMAS (RO}
THE DRIVE

IS STILL

;STORE ATTN BIT FOR PORT A
;COMPLEMENT IT
;WRITE THE ATTN REGISTER
IN NEUTRAL

001124
000010
001170

CLR
MOV
ADD
MOV
movBe
MOV

RELERR
;CLEAR THE 'RELEASE ERROR ° INDICATOR
#RMDS ,$BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEQUT
RO, $BDADR
sADD THE 1/0 BASE ADDRESS
#MOL !PGM!DPR!DRY!VV,
SGDDAT
:COMPARISON CONSTANT
PORTA,RMCS2(R0) ;SELECT PORT A.
RMDS(RO) ,$TMP2
. GET THE DRIVE STATUS REGISTER FROM PORT A.

001170
100100
001226
000012

001164
001164
000010
001172

MOV
BIC
MOvVB
MOV

$TMP2,$TMPO
HJATA!VV $STMPO
PORTB,RM(CS2(R0)
RMDS
(RO) ,$TMP3

;COPY IT INTO ‘STMPO*
;CLEAR PORT DEPENDENT BITS FROM THE (OPY
;SELECT PORT B.
GET THE DRIVE STATUS REGISTER FROM PORT B.

001172
1001CO0
001164

001166
001166
001166

MoV
8IC
cMP
BNE
TST
BNE
EMT
JMP
MOV

STMP3, STMPY
N#ATA!VV, S$TMP1
$STMPO, $TMPT
648
$TMPO
668
46
688
$TMP2, SBDDAT

;COPY IT INTO °*STMPY’
;(LEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORIS °
;BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
:BR IF NOT

024001

001122

001170

8IC

001172

8IC

001164
032016
001170

001226
001226
001164

001126

001240
000010

64S$:

001226
001172
001224
001166

001240
001126
0C0010

177777
000011
000013

001254
000000
000000

65$:

001170

001126

66%:

MoV
MovB
TST
BEQ
MoV
MOV
move
TST
BNE
MOV
MOV
MOV
EMT
MOV

#P1P ! WRL {OM,STMP2

;CLEAR DONT CARES

APIP L WRL ! OM, STMPS

;CLEAR DONT CARES

PORTB, PTNBR
PORTB,RMCS2(R0O)
$TMPO
65%
PORTA ,PTNBR
$TMP3, SBDDAT
PORTA RMCS2(RO)
$TMP1
663
#-1,RELERR
#11 RMCS1(RO)
#13_RMCS1(RO)
21
$TMP2,$BDDAT

;BYPASS THE REST OF THE CHE(CKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
:BR IF ZEROC
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
; 'BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A.
sSEE IF STATUS EQ ZERD FROM PORT B.
;BR _IF NOT
;SET 'RELEASE ERROR' INDICATOR
;CLEAR THE DRIVE
;RELEASE THE DRIVE
;LOOK FOR BIT FAILURES WHEN RMDS READ

SEQ 009>

“RMRBO RMOS/3/2 Du POR TST 1
T23
INHIBILTY SEIZE BY RMAS

031734

031742
231750
031756
031760

031762

706

031770
031776
032004
032012
032014
032016
032020

13737
042737
023737
001401
104007

013737
013737
042737
02373~
00107

001224

100000

00112¢

001172
001226
100000

001124

MACRO v06.00
TEST

4-APR-81

104007

000240
000004

MOV

PORTA,PTNBR

8l1(

67%:

s CHANGE PORT NUMBER

{Mp
?g?

#ATA, SBDDAT

$GDDAT,$BDDAT
975

JDON'T CHECK THE ATIN B!T

MOV
MOV

$TMP3 $BDDAT
PORTB,PTNBR

;CHECK RMDS FOR BIT FAILURES = FROM PORI
s CHANGE PORT NUMBER

$GDDAT,$BDDAT

JSEE IF READ OK FROM PORT B.

BIC

#ATA ,SBDDAT

BEQ

683%

CTMMP

EMT
NOP

68%:

725
726

10-56
SEQ 00%¢

001240
001126
001126
001126
001240
001126
001126

D 13

18:06:25 PAGE

SCOPE

;ALL BITS 0K ?
;BR IF OK FROM PORT A,

:DON'T

CHECK

THE ATTIN BIT

;BR IF OK
JLO0P ?

:.‘tt'.tttttt*ltl'ttttl’t"i"ti'l"tttttt*'*'tfi*ttt.t'ttt't'i

fi"*"t

:*TEST 24

SET PORT

'A' REQUEST TEST

E*VERIFY THAT WRITING A DRIVE REGISTER SETS °'PORT REQUEST' WHEN THE

000137
012737
012737
012737

003074

112737

000024
001100
000012

100002

012706
012737

177777

032060
032060

THE DRIVE THROUGH PORT

ISSUE & RELEASE COMMAND THROUGH PORT 'A' AND VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

AR AR

TST24

001102
001176

18:

2$:

TEST24

A A AR

RN A AR

‘A‘';

VERIFY THAT THE DRIVE

TR RN R RN R A RN RN R AN AR AN A NN RN R AN N AARNAN AT AR

TST

KYBCTL

;PERFORMING ONLY SINGLE

JMP
MOV

EXEC
#-1,KYBCTL

SRETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR

MOV

HTEST24,SLPERR

;SETUP ERROR LOOP ADDRESS

MovB

#24 ,STSTNM

BEQ
BPL

001300
001106
001110

°'B' BY WRITING 0°'S INTO RMDS.

(e}

BN AN B

R
T
T

001300

SEIZE

ISSUE A RELEASE COMMAND FROM PORT 'B' AND VERIFY THAT THE DRIVE
SWITCHED TO PORT °'A°'.
VERIFY THAT THE ATTENTION BIT IS SET FOR
PORT 'A® AND IS NOT SET FOR PORT °'B’.

727
756

005737
001406

IS SEIZED BY THE OTHER PORT.

WRITE 0°'S INTO RMDS FROM PORT
SEIZED BY PORT 'B'.

LI
PR

SRR

032022
032022
032026
032030
032032
032036
032044
C32052
032060
032060
032066
032072

DRIVE

SR 2R I

Mov

MOV
MoV

3 3
13

WTEST24 ,$LPADR

#STACK,SP
#10. ,$TIMES

;BRI NOT
;BR _IF JUST ENTERED TEST

TEST

;SETUP SCOPE LOOP ADDRESS
;MOVE #246 TO TEST NUMBER

;LOAD THE STACK POINTER
;:DO 10. ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS

032100
032106
032112
032120
032126
032134
032140

113760
005060
012760
012760
113760
005060

012760

001224
000012
000011
000013
001226
000012
000011

000010
000000
000000
000010
000000

MOVB
CLR

PORTA,RMCS2(R0O)
RMDS (RO)

;SELECT PORT #A
;SEIZE THE DRIVE

MOV
MOV

#11 ,RMCST(RO)
#13,RMCS1(RO)

;ISSUE DRIVE (LEAR
;RELEASE THE DRIVE

CLR
Mov

RMDS (RO)
#11,RMCST1(RO)

;SEIZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR

mMovs

PORTB,RMCS2(R0)

;SELECT PORT #8

'B'

IS STILL

’SRMRBO RMOS/3/2 DU POR TST 1
MACRO v04.00
SET PORT ‘A’ REQUEST TEST

C32146

012760

000013

E 13

4-APR-B1

18:06:25 PAGE

MOV

#13,RMCST(RO)

000000

10-57

JRELEASE

THE DRIVE

JSEIZE THE DRIVE THROUGH PORT B
032154
032162
032170
032174
032202
032210

113760

013737
005060
0137%7
113760

013737

001226
001226
000012
001224
001224
001224

000010
001242

MovR
MOV

PORTB,RMCSZ(RO) ;SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS

001244
000010
001240

MOV

PORTA,OPPRT

MOV

PORTA,PTNBR

(LR

MovAa

RMDS (RO)

;WRITE RMDS

PORTA ,RMCS2(RO)

;'OPPOSITE®

PORT ADDRESS

;SELECT PORT A

;MOVE

PORT ADDRESS

TO LOCATION FOR

TYPEOUT

:SET PORT REQUEST
032216

£3222¢2
032230
030236

005060

113760

013737
012760

000012

001226
001226

000013

(LR

032432
032436
032442
032450
02245¢
032464
032466

005037
012737
012737
060037
113760

013737
016037
113760
013737
016037
001404
005737
001401
104031
013737
013737
023737
001401
104027
000240
113760

013737
005037
016037
012737
060037
005037
013737
042737
023737
0014514
013737

001254

111700

000012
001122
001224
001224

000012
001226
001226
000012

THROUGH PORT B.

JRELEASE

THE DRIVE FROM PORT 8

mMovRe

000010
001240
000G00

MOV

001124
001122

000010
001240
001164
000010
001240
001126

001164
001164
001224
001124

001126
001240
001126

001226
001226
001250
000012
000012
001122
001124
001126
077777
001124

000010
001240

001126

66%:

67%:

DRIVE SHOULD SWITCH TO PORT A.

PORTB,RMCS2(R0)

;SELECT PORT B

#13,RMCST(RO)

s ISSUE RELEASE THROUGH PORT B

PORTB,PTNBR

THAT DRIVF

;MOVE

PORT

ADDRESS

TO LOCATION FOR

TYPEOUT

1S SEIZED BY PORT A WHEN RELEASED BY PORT B

(LR
MOV
MOV
ADD
MOVB
MOV
MOV
MOVB
MOV
MOV
BEQ
1ST

RELERR
:CLEAR 'RELEASE ERROR®' INDICATOR
#ATA!MOL :PGM!DPR!DRY 'VV,$GDDAT
;COMPARISON CONSTANT
#RMDS ,$BDADR
;REGISTER ADDRESS INCREMENT
RO, $8DADR
;REGISTER BASE ADDRESS FOR TYPEOUT
PORTA,RM(S2(RO)
;SELECT PORT A
PORTA,PTNBR
MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RHDS(RO) ‘TMPO
;READ STATUS REGISTER FROM PORT A
PORTB,RMCS2 (RO)
;SELECT PORT B
PORTB,PTNBR
MOVE PORT ADDRESS TO LOCATION FUR TYPEOUT
RMDS(RO) $BDDAT
;DRIVE STATUS FROM PORT B
663
BR IF STATUS FROM PORT B ZERO
$TMPO
:IS STATUS FROM PORT A ZERO ?

MOV

PORTA,PTNBR

BEQ
EMT
MOV

tMP
BEQ
EMT
NOP
MOVR

001164
001164
001164

MOV
CLR
MOV
MOV
ADD
(LR
MOV
BIC
CMP

001174

MOV

001126
001122

;SET PORT REQUEST FOR PORT A

JRELFASE

SVERIFY

032244
032250
032256
032264
032270
032276
032304
032312
032320
032326
032334
032336
032342
032344
032346
032354
£32362
032370
032372
032374
032376
032404
032412
032416
032424

RMDS (RO)

BEQ

663
31
$TMPQ, SBDDAT

;BR [F ZERO

$GDDAT ,$BCDAT
678
27

;COMPARE WITH CONSTANT
;BR IF OK

;CHECK STATUS FROM PORT A

;s CHANGE PORT ADDRESS FOR TYPEOUT

PORTB,RMCS2(R0O)
SELECT PORT B
PORTB_PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS
(RO) ,$8DDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS O ERRQOR MESSAGE
RO, $8DADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BF
$8DDAT ,$TMPO
cMOVE REGISTER CONTENTS TQO ‘'$TMPO"
#“CATA,$TMPO
.SAVE SPECIFIED BITS
$GDDAT,$TMPQ
. COMPARE THE BITS
68%
JBR IF OK
SBDDAT, $TMP4

;COPY

'BAD DATA®

“ZRMRBO RM05/3/2 DL POR TST 1
MACRO v04.00
T26
SET PORT ‘A* REQUEST TEST

032474
032502
032510
032512
032516
032520
032526
032534
032540
032546
032554
032560
03256€
032574
032602
032610
032612
032620
032626
632634
032636
0326 2

042737
053737
104016

005137
000249
113760

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104016

005137
000240

100000

001174

001174
001124

001250

001224
001224
001250
000012
000012
001122
100000
001126
077777
001124
001126
100000

001174

4-APR-B1

000010
001240

#ATA, STMPG

.CLEAR THE MASKED BITS

ggg

CKERR

:SET

MOVB

001124
001164
001164
001164
001174
001174
001124

001250

6IC

MOV

001126
001122

70%:

13
10-5

SEQ 0095

gfilfl?

F
18:06:25 PAGE

?gMP”JGDDAT

J'OR' WITH GOULD DATA FOR TYPEOUT

PORTA,RMCS2(RO)

PORTA,PINBR

THE REGISTER COMPARE

ERROR

INDI(ATOR

:SELECT PORT A

;MOVE

PORT ADDRESS

TO LOCATION FOR

TYPEOUT

(LR
MOV
MOV
ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC
Ea;

CKERR
:CLEAR THE °'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT
~;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SROADR
;ADD RH/RM BASE ADDRESS
#ATA,$GDDAT
:WHAT REGISTER SHOULD BE
$BDDAT,$TMPO ~ ;MOVE REGISTER CONTENTS TO '$TMPO’
#~CATA.$TMPO
:SAVE SPECIFIED BITS
$SGDDAT,STMPO ~ ; COMPARE THE BITS
70s
‘BR IF OK
$BDDAT, $TMPS
SCOPY 'BAD DATA'
RATA, STMPL
*CLEAR THE MASKED BITS
?gMP4,$GDDAT
S'OR' WITH GOOD DATA FOR TYPEOUT

COM
NOP

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

;RELEASE THE DRIVE FROM PORT A
032644
032652
03266C

113760
013737

012760

001224
001224
000013

000610
001240
000000

MGVB
MOV

MOV

;VERIFY

032666
032672
032700
032704
032712
032720
032726
032734
032742
032750
32756
032764
032772
033000
033006
033014
033016
0633022
033094
033026

033032
033040
033046
033054
033060
33062

005037
012737
060037
012737
113760

016037
042737
013737
042737
113760

016037
042737
013737
042737
023737
001006
005737
001045
104046

000137
013737
013737
113760

005737
001414
013737

001254
000012
001122
011700
001224
000012
024001
001170
100100

001226
000012
024001
001172
100100
001164

THAT

CLR
MOV
ADD
MOV
MOVB
MOV
BIC

001122
001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

MOV

001126
001240
000010

001224

001240

IS STILL

THROUGH PORT A

TYPEOUT

IN NEUTRAL

RELERR
;CLEAR THE 'RELEASE ERROR ' INDiCATOR
#RMDS ,$BDADR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, SBDADR
:ADD THE 1/0 BASE ADDRESS
#MOL 'PGM'DPR!DRY1VV,SGDDAT
:COMPARTSON CONSTANT
PORTA,RMCS2(R0O) :SELECT PORT A.
RMDS
(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP'WRL iOM,$TMP?
:CLEAR DONT CARES

STMP2,STMPO

;COPY IT INTO 'S$TMPO’

:CLEAR PORT DEPENDENT BITS FROM THE COPY
:SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

MOV

$TMP3, $TMP1

SCOPY IT INTO *$TMP1’

$TMP0O, $TMP1

$IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 2

BIC

cMP

BNE

72%:

THE DRIVE

:ISSUE RELEASE

WATA'VV,$TMPO
PORTB,RMCS2(RO)
RMDS(RO) ,$TMP3

033212
001170
001226
001226
001164

#13,RMCS1(RO) "

BIC
MOVB
MOV

BIC

001164

PORTA,RMCS2(R0O)
:SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION rOR

BNE
EMT
JMP
MOV

#PIPIWRL IOM,STMPS
#ATATVV,$TMP1

728

$TMPO

748
46
76%
$TMP2 , $BDDAT

MOV
MOV
TST

PORTR,PTNBR
PORTB.RMCS2(RO)
$TMPQ

MOV

PORTA,P INBR

BEQ

73%

:CLEAR DONT CARES

:CLEAR PORT DEPENDENT BITS FROM THE

COPY

‘BR IF NOT

‘REGISTERS ARE

‘BR IF NOT

THE

;BYPASS THE REST OF

SAME:

ARE

THEY ZERQ °

THE CHECKS

PSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRA.
:SELECT PORT B.
1SEE IF STATUS EQ O FROM PORT A.

‘BR IF

ZERO

*SEIZING PORT

TEST

SHOWS DRIVE

NOT

N A¢

Lo MRBL
S

RMOS/3/¢
SET PORT

033070
033076
033104
033110
033112
033120
033126
033134
033136
033144
033152
033160
033162
033164
033172
033200
033206
033210
033212

g, C35214

DU PCR TST 1
MACRO
'A* REQUEST TEST

013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
023737
001401
104007
013737
13737
023737
001401
104007
000240
000004

v04.0C

G 13

'8:06:¢5 PAGE

10-59

SEQ 0099

001172
(01224
001166

001126
000010

177777
000011
000013

001254
000000
000000

73%:

001170
001224
001124

001126
001240
001126

74%:

001172
001226
001124

001126
001240
001126

75%:

MOV
MOYB
TST
BNE
MOV
MOV
MOV
EMT
MoV
MOV
CMP
BEQ
EMT
MOV
MOV
cMP
BEQ
EMT
NOP

76$:
18:

777

4-APR-Bi1

$TMP3_ $BDDAT
PORTA.RMCS2(KO)
$TMP1
743
#-1,RELERR
#11.RMCS1(RO)
#13,RMCS1(RO)
26
$TMP2 $BDDAT
PORTA, PTNBR
$GDDAT,$RDDAT
753
7
$TMP3,$BDDAT
PORTB, PTABR
$GDDAT,$BDDAT
76$
7

SCOPE

:'BAD DATA' FOR ERROR TYPE QUT
.SELECT PORT A,
:SEE IF STATJUS EQ ZERO FROM PORT B,
BR IF NOT
:SET 'RELEASE ERROR' INDICATOR
:CLEAR THE DRIVE
:RELEASE THE DRIVE

;LOCK FOR BIT FAILURES WHEN RMDS READ
:CHANGE PORT NUMBER
:ALL BITS OK ?
:BR IF OK FROM PORT A.
;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
:CHANGE PORT NUMBER
:SEE |F READ OK FROM PORT 8.
:BR IF OK
:LOOP ?

:"t'fltt"'ttt'.'t't'""t't.Q.ttttttttfi.'.tfit'fi"tttttt.ttt'!tttt

TTEST 25

SET PORT

'B'

REQUEST

TEST

> W

;*VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST® WHEN THE
i

DRIVE

IS SEIZED BY THE OTHER PORT.

SEIZE

THE DRIVE THROUGH PORT

‘A’ BY WRITING 0'S INTO RMDS.

:*
i

WRITE 0'S INTO RMDS FROM PORT
SEIZED BY PORT 'A°.

:*
i
i

ISSUE A RELEASE COMMAND FROM PORT 'A' AND VERIFY ThAT THE DRIVE
SWITCHED TO PORT 'B*.
VERIFY THAT THE ATTENTION BIT IS SET FOR
PORT 'B' AND IS NOT SET FOR PORT ‘A‘.

;*
i

ISSUE A RELEASE COMMAND THROUGH PORT 'B' AND VERIFY THAT THE DRIVE
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION B8IT IS SET.

- %

. &

33216

933216

033222
133224
033226
033232
03324C
ggggég

033256
033262

8 033266

'B‘; VERIFY THAT THE DRIVE IS STILL

;"'t..'t't"fitt**t't'fii""fi*tt‘tl.""t'fiflt“.tfii'i!!'t‘l"'ttitt
005737

TS125:

001300

001406
100002
000137
012737
012737
012737

003074
177777
033254
033254

112737
012706
012737

000025
001100
(00012

001300
001106
007110

001102
001176

1$:
28:
resras,

1ST

KYBCTL

;PERFORMING ONLY SINGLE

TEST 2

BEQ
BPL
IMP
MOV
MOV
"V

2$
1$
EXEC
#-1,KYBCTL
#TEST25,SLPADR
HTEST25,$LPERR

BR IF NOT
:BR_IF JUST ENTERED TEST
:RETURN & GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

MOVB
MOV

#25,$TSTNM
#STACK, SP

:MOVE #25 TO TEST NUMBER
:LOAD THE STACK POINTER

MOV

#10. ,$TIMES

::D0 10,

779

;CLEAR ATTENTION BITS FOR BOTH PORTS

ITERATIONS

"MRB\V

RMOS/3/2

SET

PORT

033¢74

033302
033306
033314
033322
023330
033334
033342

Du POR

'B*

TST

REQUEST

113760

005060
012760
012760
113760
005060
012760
012760

MACRQO

TEST

001224

(CQ0012
000011
000013
001225
000012
000011
0060013

v04.00

°13760
013737
005060
013737
113760
013737

001224
001224
000012
001226
001226
001226

H 13

18:06:¢5 PAGE

10-60

SEQ@ 0100

000010

MOVR

PORTA ,RMCS2(R0O)

CLR
MoV
MOV
MOovB
(LR
Mov
MoV

000000
000Nv0
000010
000000
00C000
;SEIZE

033350
033256
0353564
033370
033376
0336404

4-APR-8)1

RMDS (RO)
#11,RMCST1(RO)
#13 .RMCS1(RO)
PORTB,RMCS2(R0)
RMDS (RO)
#11,RMCS1(RO)
#13,RMCST1(RO)

THE DRIVE

000010
001242

MOvB
MOv
CLR
MOv
MOVB
MoV

001244
000010
001240

;SFLECT PORT #A

.SEIZE THE DRIVE
;ISSUE DRIVE (LEAR
;RELEASE THE DRIVE
;SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

‘'R’

TA4ROUGH PORT A

PORTA ,RMCS2(RO) ;SELECT PORT A
PORTA,SEIZPT
;STORE SEIZING PORT'S ADDRFSS
RMDS (RO.
JWRITE RMDS
PORTB,0PPRT
;'OPPOSITE' PORT ADDRESS
PORTB,RMCS2(R0O)
;SELECT PORT 8
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPE(W,T

;SET PORT REQUEST
033412

033416

0334264
033432

00506C

113760

013737
012760

000012

001224

0012246
000013

CLR

RMDS (RO)

JRELEASE

THROUGH PORT

JRELEASE

THE

000010

MOvB

001240
000000

MOV
Mov

DRIVE

:SET PORT REQUEST FOR PGRT B
DRIVE

SHOULD

SWITCH

TO PORT B.

FROM PORT A

PORTA ,RMCS2(R0)

;SELECT PORT A

PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR
#13,RMCS1(R0O)
;ISSUE RELEASE THROUGH PORT A

TYPEQUT

SVERIFY THAT DRIVE IS SEIZED B8Y PORT B WHEN RELEASED BY PORT A
033440
033444
033452
033460
033464
033472
033500
033506
033514
C33522
023530
033532
033536
033540

033542
033550
033556
033564
033566
033570

005037
012757
012737
060037
113760
013737
016037
113760
013737
016037
001404
005737
001401
104031
013737
013737
023737
001401
104027
000240

033600

013737

033572

033506
033612
033620

001254
111700
000012
001122
001226
001226
000012
001224
001226
G00012

001124
001122

000010
001240
001164
000010
001240
001126

001164

001164
001226
001124

001126
001240
001126

113760

001224

000010

005637
016037

001250
000012

012737

001224

000012

001240

001126
001122

66%:

678

CLR
MoV
MOV
ADD
MOVB
MOV
MoV
MOvi
MOV
MoV
BEQ
TST
BEQ
EMT

RELERR
sCLEAR 'RELEASE ERROR' INDICATOR
H#ATA!MOL !PGM!DPR!DRY!VV ,SGDDAT
;COMPARISON CONSTANT
#RMDS ,$BDADR
;REGISTER ADDRESS INCREMENT
RO, $BDADR
JREGISTER BASE ADDRESS FOR TYPEOUT
PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (R0) ,$TMP)
;READ STATUS REGISTER FROM PORT B
PORTA,RMCS2(R0) " ;SELECT PORT A
PORTA,PTNBR
:MOVE PORT ADDRESS TO LOCAIION FOR TYPEQUT
RMDS (RO) ,$BDDAT
;DRIVE STATUS FROM PCRT A
6
;BR IF STATUS FROM PORT A ZERO
$TMPO
;1S STATUS FROM PORT B ZERO °
66%
;BR IF ZERO
31
$TMPO, $BDDAT
;CHECK STATUS FROM PORT B
PORTB,PINBR
; CHANGE PORT ADDRESS FOR TYPEOUT
$GDDAT ,$BDDAT
;COMPARE WITH CONSTANT
67%
;BR IF 0K
27

MOVB

PORTA ,RMCS2(R0O)

CLR
Moy
mov

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS(RQ) ,$8DDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE

MOV
MoV
(MP
BEQ
EMT
NOP

MoV

PORTA,PTNBR

;SELECT PORT A

;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

'J:“Pfl”
<

RMO5/3/2 DU POR
SET

PORT

033626
033632
033636
033644
033652
033660
033662
033670
033676
033704
033706
033712
033714
033722
033730
03373¢
033742
033750
033754
C33762
033770
033776
034004
034006
034014
034022
034030

034032
034036

*B'

TST

REQUEST

060037
005037
013737
042737
023737
001414
013737
042737
053737
104016
005137
000240
113760
013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104016

005137
000240

MACRO v04.00

113760
013737
012760

034122

034130
034136
034144
034152

034160

034166
034174
034202
034210
034212
034216
034220

005037
012737
060037
012737
113760
016037

001122
(01124
001126
077777
001126

001126
100000

001174

001764
001164
001164

001174
001174
001124

001250
001226
001226
001250
000012

000012

000010
001240
001126

001122

001122
100000
0G1126
077777
001124

001124
001164
001164
001164

001126
100000
001174

001174
001174
001124

001250

.
708:

001226
001226
000013

000010
001240
000000

001254
000012
001122
011700
001226
000012

001124
000010
001170

013737
042737
113760
016037

001170
100100
001226
000012

001164
001164
000010
001172

013737
042737
023737
001006
005737
001045
104046

001172
100100
001164

001166
001166
001166

042737

024001

001164

10-61
SEQ 010

ADD
(LR
MOV
BIC ~
(Mp
BEQ
MOV
BIC
BIS
EMT
(oM
NGP
MOVB
MoV
(LR
MOV
MOV
ADD
MOV
MOV
BIC
(MP
BEQ
MOV
8IC
BIS ~
EMT
oM
NOP

001122

RO, $8DADR
$GBDAT
SBDDAT.$TMPQ
H"CATAISIMPO
$GDDAT,$TMPQ
68S
SBDDAT,STMPG
#ATA,STMPG
$TMPL.SGDDAT
16
(KERR

JADD RH/RM BASE ADDRESS
:WHAT REGISTER SHOULD BE
MOVE REGISTER CONTENTS 10 *$TMPO®
SAVE SPECIFIED BITS
. COMPARE THE BITS
:BRIF OK
:COPY 'RAD DATA'
:CLEAR THE MASKED BITS
:‘OR* WITH GOOD DATA FOR TYPEOUT
.SET THE REGISTER COMPARE ERFOR INDICATOR

PORTB,RMCS2(RO)
SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR® INDICATOR
RMDS(RO) SBDDAT
";GET CONTENTS CF RMDS

ARMDS,S$BDADR

:FORM REGISTER ADDRESS OF ERROR MFSSAGE

RO,$BDADR
;ADD RH/RM BASE ADDRESS
WATA,SGDDAT
WHAT REGISTER SHOULD BE
$BDDAT,STMPO " .MOVE REGISTER CONTENTS T0 'STMPO"
A"CATAISTMPO
;SAVE SPECI+IED BITS
SGDDAT.STMPO ' COMPARE THE BITS
708
:BR IF OK
SBDDAT.STMPG
:(OPY ‘BAD DATA'
N#ATA,$TMP4
;CLEAR THE MASKED BITS
STMPL,SGDDAT
:'OR* WITH GOOD DATA FOR TYPEOUT
16
(KERR
sSET THE REGISTER COMPARE ERROR INDICATOR

THE DRIVE FROM PORT B
MOVB
MOV
MOV

JVERIFY

034062
034066
034074
034100
034106
034114

8:06:¢5 PAGE

TEST

;RELEASE
034040
034046
034054

4-APR-81

THAT

PORTB,RMCS2(RO)
;SELECT PORT 8
PORTB.PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
WT3.RMCST(RO)TM
:ISSUE RELEASE THROUGH PORT B
THE DRIVE

(LR
MOV
ADD
MOV
MOVB

MOV

IS STILL

IN NEUTRAL

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
WRMDS SBDADR
(FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, SBDADR
:ADD THE 1/0 BASE ADDRESS
AMOL 'PGM!DPK!DRY’VV,SGDDAT
:COMPARISON CONSTANT
PORTA RMCS2(RO) :SELECT PORT A.
RMDS(RO),$TMP2
GET THE DRIVE STATUS REGISTER FROM PORT A.

001170

BIC

APIP!WRLIOM, STMP}

:CLEAR DONT CARES

001172

BIC

APIP!WRLIOM,STMPS

:CLEAR DONT CARES

MOV
BIC ~
MOVB
MOV

M
BJ%.
(M
BjE
8T
BYE
AT
4

STMP2 STMPO'
WATAIVV.$TMPO
PORTB,RMCS2(RQ)
RMDSCRO),$TMP3"

COPY 1T INTO 'STMPO’
ICLEAR PORT DEPENDENT BITS FROM THE (OPY
:SELECT PORT B.
:GET THE DRIVE STA/US REGISTER FKOM PORT B.

$TMP3,STMP1 "
#ATA!VV,$TMPT
$TMPO,STMPT
728
$TMPO
74%
46

COPY IT INTO 'STMPI'
;CLEAR PORT DEPENDENT BITS FROM THE COPY
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR_IF NOT
:REGISTERS ARE THE SAME: ARE THEY ZERG
(BR IF NOT

J 13

MACRO V04.00 4-3PR-81 18:06:25 PAGE 10-62

JRMRBC RMCS/3/72 DU POR TST 1
SET PORT °'B' REQUEST TEST

-5¢

000137
013737
013737
113760

005737
001414
013737
013737

113760
005737
001012

012737
012760
012760
104026

013737
013737
025737
001401

034406
001170
001226
001226
001164
001224
001172
001224
001166

001240
001126
000010

177777

000011
000013

001254
000000
000000

73%:

001129
001224
001124

001240
001126

001126

74%:

104007

013737
013737
023737
001401

001126
001240
001126

104007

000240
000004

IMP

72%:

001126
001240
000010

76$

ROV

$TMP2,$BDDAT

mov
~ovR
ST
REQ

PORTB,PTNBR
PORTB ,RMCS2(R0)
$TMPO
’3$

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT 8.
:5eE IF STATUS EQ O FROM PORT A,
:BR IF ZERO

MOV
MOV

$TMP2, $BDDAT
PORTA,PTNRR

sLOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER

MOV
MOV

$TMP3 , $BDDAT
PORTB,PTNBR

JCHECK RMDS FOR BIT FAILJURES = FROM PORT B.
; CHANGE PORT NUMBER

EMTY

74%

$GDDAT,$8DDAT
;SS

$GDDAT ,$8DDAT
76$

NOP
2 SCOPE

CHE(CKS

#-1,RELERR
#11,RMCS1(RO)
gg3,RMCS1(R0)

R R A NN N R

;*TEST 26

:SEIZING PORT IF TEST SHOWS DRIVE NOT
;'BAD DATA' FOR ERROR TYPE OuT
;SELECT PORT A,
;SEE IF STATUS EQ ZERO FROM PORT B.

;BR [F NOT

;SET 'RELEASE ERROR'
JCLEAR THE DRIVE
JRELEASE THE DRIVE

INDICATOR

;ALL BITS OK ?
;BR IF OK FROM PORT A.

;SEE IF READ OK FROM PORT B.
:BR [F OK

AN R T N A A E A TN AN AN RN NN N R AN T NN RN NN

RA NS NRARANRER AR

TEST RESET ATTENTION 'A’' BY DRIVE CLEAR

- %

J*VERIFY THAT A DRIVE CLEAR COMMAND (LEARS ONLY THE ATTENTION B!T OF
)
SEJZING PORT,

;‘

gE; EACH PORT 'S ATTENTION BIT.

SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITINC 0'S INTO RMDS.

ISSUE A DRIVE CLEAR (OMMAND.

1R 1

- %

[N NEUTRAL

,LOOP ?

{
S

THE

MOV
MOV
?g¥

CMP
BEQ
76%:
1%:

THE REST OF

UP POSSIBLE BAD DATA FQR ERROR ME SSAGE

PORTA,PTNBR
$TMP3, $BDDAT
PORTA ,RMCS2(RO)
$TMPY

BNE

75%:

;BYPASS

JSET

MOV
MOV
MovB
TST

(MP
’?Fq?

THF

VERIFY THAT BOTH ATTENTION BiTS

TR YRY]

- %

034412
034412
034416
034420
034422
034426
034434
034442

034450

005737
001406

001300

000137
012737
012737
012737

003074

177777

034450
034450

RELEASE

THROUGH PORT

‘A’.

VERIFY THAT

THE

ATTENTION

»*
*

15126

AN AT AR R I

TST

BEQ
BPL

001300
001106
001110

THE DRIVE

BIT FOR PORT ‘A’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT
'‘B' IS STILL SET.

783
802
803

0346222
034226
0346234
034242
034250
034254
034256
034264
034272
034300
034304
034306
034314
034322
34330
034332
034340
034346
034354
C34356
034360
034366
034374
034402
034404
034406
034410

2s:
TESTZ26:

MP
MoV

MoV
MOV

AN AN AR R R

AN R AR A AN RA AR

KYBCTL

A R RN R RN RN RRRAR RS RAE RN RN

;PERFORMING ONLY SINGLE

TEST

2%
1$

;BR IF NOT
;BR IF JUST ENTERED TEST

ATEST26,$LPADR

;SETUP SCOPE LOOP ADDRESS

EXEC
#-1,KYBCTL

HTEST26,$LPERR

JRETURN & GET NEXT TEST NUMBER
JSET SINGLE TEST INDICATOR
;SETUP ERROR LOOP ADDRESS

J{FMRBU RMOS5/3/2

DU POR

TST

TEST RESET ATTENTION

034450
034456
804 034462

112737
012706
012737

MA(CRO

v04.00

'A* BY DRIVE

000026
(01100
000012

(LEAR

001102

18:06:25

K 13

PAGE

10-63

<£@ 0103

MOvVB
MOV
MOV

00176

837

&-APR-81

#25,$TSTNM
#STACK,SP
#10.,8TIMES

;MOVE #26 TO TEST NUMBER
;LOAD THE STACK POINTER
;:D0 10. ITERAT]ONS

:SET ATTENTION BITS FOR BOTH PORTS
034470
034476
034502
034504
034512
034516
034524
034530
034532
034540
034544
034552
034556

113760
005760
001775
012760
005060
013760
005760
001775
012760
005C60
113760
005760
001775

001224
000012

G00010

177777
000014
001226
000012

000C14

177777
000014
001224
000012

000010

66$:

64%:

000014

000010

65%:

MovR
IST
BEQ
MoV
CLR
MOV
TST
BEQ
MoV
CLR
MOovB
~ST
BEQ

PORTA RMCS2(RO)
RMDS (RO)
663
#-1,RMERT1(RO)
RMER1 (RO)
PORTB,RMCS2(R0O)
RMDS (R0)
648
#-1,RMERT(RO)
RMER1 (RO)
PORTA,RM(S2(R0)
RMDS (RO)
65%

;SELECT PORT 64$
;MAKE SURE DRIVE

AVAII ABLE

;FORCE ERRORS
;CLEAR THE ERRORS
;SELECT THE OTHER PORT
;WAIT FOR DRIVE TO TIMEOUT
;BR IF DRIVE HASN'T TIMED OUT
;FORCE ERRORS ON PURT 65%
;CLEAR THE ERRORS
;SELECT PORT ‘'64$'' AGAIN
;WAIT FOR DRIVE TO [IMEOUT
MBR IF DRIVE HASN'T TIMED OUuT

i
1}

;CONFIRM THAT BOTH ATTENTION BITS ARE SET
034560
034566
034574
034600
034606
034614
034620

113760
013737
005037
016037
012737
060037
012737

034634
034642
034650
034652
034€60
034666
034674
034676
034702
034704
C34710
034712
034716
034724
034732
034736
034744
034752
034756

042737
023737
001414
013737
042737
053737
104010
005137
000240
005737
001402
000137
113760
013737
005037
016037
012737
060037
012737

034626

034764
034772
035000
035006
035010
035016
035024

013737

013737
042737
023737
001414
013737
042737
053737

001224
001224
001250
000012
000012
001122
100000

001124

077777
001124

001164
001164

001126

001126
100000
001174

000010
001240

001126
001122

001164

67%:

001250

036104
001226
001226
001250
000012
000012
001122
100000
001126
077777
001124

001124
001164
001164
001164

001126
100000
001174

001174
001174
001124

000010
001249
001126
001122

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE ‘CHECK ERROR’ INDICATOR
RMDS (RO) ,$8DDAT
;GET CONTENTS OF RMDS
WRMDS,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
WATA,S$GDDAT
;WHAT REGISTER SHOULD BE

8IC
P
BEQ
MoV
BI(
BIS
EMT
oM
NOP
TST
BEQ
JMP
MOVB
MOV
CLR
MOV
MOV
ADD
MoV

#*CATA,$TMPO
$GDDAT ,$TMPO
673
$BDDAT ,$TMP4
#ATA,$TMPS
$TMPL , SGDDAT
10
CKERR

MOV

001174
001174
001124

001250

movBe
MOV
CLR
MOV
MOV
ADD
MOV

MOV
BIC
CMP
BEQ
Mov
BIC
RIS

$BDDAT , $TMPO

;MOVE REGISTER CONTENTS TO ‘'$TMPQ’

. SAVE SPECIFIED BITS
:COMPARE THE BITS
:BR IF OK
. COPY 'BAD DATA’
;CLEAR THE MASKED BITS
:*OR* WITH GOOD DATA FOR TYPEOUT

;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
;WAS ATTN BIT FOR PORT A SET ?
.
.+6
:BR IF 1T WAS
'
1%
;BYPASS REST OF TEST IF NOT
'
PORTB,RMCS2(RO)
;SELECT PORT B
PORTB.PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEdUT
CKERR
sCLEAR THE 'CHECK ERROR' INDICATOR
RMDS(RO) ,$8DCAT
.GET CONTENTS OF RMDS
W#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $SBDADR
;ADD RH/RM BASE ADDRESS
#ATA,SGDDAT
;WHAT REGISTER SHOULD BE
$BDDAT,$TMPO
;MOVE REGISTER CONTENTS TO '$TMPQ*
N*CATA,$TMPO
;SAVE SPECIFIED BITS
$GLCDAT,$TMPO
;COMPARE THE BITS
69%
:BR IF OK
SBDDAT, $TMP4
;COPY 'BAD DATA'
H#ATA, $TMP4
sCLEAR THE MASKED BITS
$TMPS, $GDDAT
$TOR' WITH GOOD DATA FOR TYPEQUT

rZRMRBO RMOS5/3/2 DU POR

126

TEST

RESET

035032
035034
035040
035042
035046
035050

TST

ATTENTION

10400

005137
000240
005737
001402
000137

1
°A°

MACRO v04.00
BY

DRIVE

001250

(LEAR

¥
I

001250

036104

035136
035142
035150
035152
035154
035160
035160
035166
035174
035202
035210
035216

035224
035230
035236
035244
035252
035254
035256

113760

013737
005060
113760

013737
013737
016037
010037
062737
005037
023737
001403
1046004

001224
001224
000012
001226
001226
001226
000012
001122
000012
001124
0C1124

000137

036104

113760

001224
001224
000012
020001
011700
001124
001166
001126
001166
001124

013737
016037
042737
012737
013737
005137
013737
0463737
023737
001401
104005
000240

18:06:¢5 PAGE

000010
u01242
000010
001240
001244
001126
001122

001126

000010
001240
001126
001126
001124
001166

71%:

EMT
(oM
NOP
18T
8tN

10
CKERR

CKERR
. +6
18

THE DRIVE
MOVB
MoV
CLR
MOVR
MOV
MOV
MOV
MOV
ADD
(LR
CMP
BEQ
EMT
JMP
MOVR
MOV
MoV
BIC
MOV

MOV
coM
MOV
81C
cMp
BEO

001764
001164
001164
72%:

10-64

SEQ 0104

JME

;SEIZE

035054
035062
035070
035074
035102
035110
035116
035124
035130

4-APR-81

;SET

THE REGISTER COMPARE

;WAS

ATTN BIT

ERROR

FOR PORT 8 SET

:BR IF 17 WAS
;BYPASS REST OF

TEST

INDICATOR

If NOT

THROUGH PORT A
PORTA ,RMCS2(R0) ;SELECT PORT A
PORTA,SEIZPT
;STORE SEIZING PORT'S ADDRFSS
RMDS (RO)
JWRITE RMDS
PORTB,RM(CS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR
PORTB,0PPRT
;'OPPOSITE' PORT ADDRESS
RMDS
(RO) ,$BDDAT ;SEE IF DRIVE SEIZED BY PORT A
RO, SBDADR
;RH/RM BASE ADDRESS
#RMDS , $BDADR
;GENERATE BAD REGISTER ADDRESS

$GDDAT
$GDDAT, $BDDAT
ZIS
xfi?fifi'i-

JREGISTER SHOULD BE ZERO
;1S THE REGISTER ZERO
:BR IF IT IS

;BYPASS REST OF THE SUBTEST

sepd

TYPEOUT

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA ,PTNBR
:MOVE PORT ADDRESS TO LOCATIOM FOR

TYPEQUT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#OM!PIP,$BDDAT
. CLEAR DONT CARE BITS
#MOL !PGM!DPR!DRY!V
$GDDAT
V,
JEXPECTED STATUS
$CUDAT, $TMPY
;USE GOOD DATA AS A MASK
$TMP1
;COMPLEMENT THE EXPECTED STATUS
RMDS (RO) , $8DDAT

SBDPAT,$TMPO
$TMP1,8TMPO

$GDDAT, $TMPO

EMT
NOP

;SAVE

THE ACTUAL STATUS

;CLEAR UNWANTED BITS
;ARE THE EXPECTED STATUS BITS SET ?
;BR If THEY ARE

;ISSUE DRIVE CLEAR COMMAND TO PORT A
035260

012760

000011

000000

MOV

#11 ,RMCS1(RO)

;DO A DRIVE CLEAR COMMAND

JVERIFY THAT ATTENTION BIT FOR PORT A CLEARED

035266
035272
035300
035306
035312
035316
035324
035332
035340
035342
035350
035356
035364

005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104047

001250
000012
000012
001122
001124
001126
077777
001124

001126

106600

001174

001126
001122

CLR
MOV
MoV
ADD
CLR

001164
001164

MOV
BIC
cMp

001174
001174
001124

MoV

001164

8EQ

8I(
BIS
EMT

CKERR
;CLEAR THE °'CHECK ERROR'
RIDS(RO) ,$8DDAT
,GET CONTENTS OF RMDS

#RMDS ,$8DADR

RO, $BDADR
$GDDAT
$BDDAT, $TMPO
#~CATA,$TMPO
$GDDAT,$TMPO
73%
$BDDAT,$TMP4
#ATA, $TMP4

z}MP4,SGDDA'

;FORM REGISTER ADDRESS OF

INDICATOR
ERROF MESSAGE

;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTS TG '$TMPO’
;SAVE SPECIFIED BITS
. COMPARE THE BITS
JBR IF OK
;COPY °‘BAD DATA'
sCLEAR

;'OR"

THE MASKED BITS

WITH GOOD DATA FOR TYPEQUT

(ZRMRBO RMO5/3/2 DU POR

124,

TST

MA(RO v04.00

&-APR-81

TEST RESET ATTENTION 'A* BY DRIVE (LEAR

035366
035372

005137
000240

001250

SEQ 0105
(oM
NOP

73%:
sRELEASE

035374
035402
035410

113760
013737
012760

001224
001224
000013

000010
001240
000000

0356416
035622
035430
035434
035442
035450
035456
035464
035472

005037
012737
060037
012737
113760
016037
042737
013737
0427537

001254
000012
001122
011700
001224
000012
024001
001170
100100

035506

016037

000012

001172

035522
035530
035536
035544
035546
035552
035554
035556
035562
035570
035576
035604
035610
035612
035620
035626
035634
035640
035642
035650
035656
035664
035666
035674

013737
042737
023737
001006
005737
001045
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737

001172
100100
001164

001166
001166
001166

035710
035716
035720
035722
035730
035736
035744
035752
035754

023737
001401
104007
013737
013737
042737
023737
001401
104007

035500

035514

035702

113780

042737

001226

024001

001122
001124
000010
001170
001170
001164
001164

001226
001226
0011564
:
001224
001172
001224
001166

001240
001126
000010

177777
000011
000013

001254
000000
000000

76%:

001170
001224

001126
001240

77%:

001124

001126

100000

001172
001226
100000
001126

001126

001126
001240
001126
001126

PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13 RMCST(RO)
;ISSUE RELEASE THROUGH PORT A
IS STILL

IN NEUTRAL

RMDS(RO) ,$TMP3

-GET THE DRIVE STATUS REGISTER FROM PORT B.

$TMP3,STMP1
NATA!VV, $TMP1
$STMPO,$TMP1
75%
$TMPO
778
46
798
$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0)
$TMPO
76%
PORTA,PTNBR
$TMP3,$BDDAT
PORTA ,RMCS2(R0)
S$TMP1
778
#-1_RELERR
#11 ,RMCS1(RO)
#13,RMCS1(RO)
26
$TMP2, SBDDAT
PORTA ,PTNBR

;COPY IT INTO '$TMPT’
[ CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BTH PORTS ?
;BR IF NOT
JREGISTERS ARE THE SAME. ARE THEY ZERO ?
;BR IF NOT

MOV
BIC
cMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
Mov8e
TST
BEQ
MOV
MOV
MOVB
IST
BNE
MOV
MOV
MOV
EMT
MoV
MOV

BIC

78$%:

FROM PORT A

MOV

BIC

001240
000010

THE REGISIER COMPARE ERROR IMDICATOR

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEQUT
RO,$BDADR
;ADD THE 1/0 BASE ADDRESS
#MOL . PGM!DPR!DR,$GDDAT
Y!VV
;COMPARISON CONSTANT
PORTA ,RMCS2(R0O) ;SELECT PORT A.
RMDS (RO) ,$TMP2
,GET THE DRIVE STATUS REGISTER FROM PORT A.
A#PIP!WRL !0M,$TMP?
;CLEAR DONT CARES
$TMP2 ,$TMPO
;COPY IT INTO '$TMPO’
WATA!VV, $TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY

001172

75%:

DRIVE

;SET

CLR
MOV
ADD
MOV
MOvVB
MOV
BIC
MOV
8IC

MOVB

001126

CKERR

THAT THE DRIVE

000010

001164
035756
001170

THE

MovB
MOV
Mov
JVERIFY

*M 13
18:06:25 PAGE 10-65

MP
BEQ
EMT
MoV
MOV
BI(
(MP
BEQ
EMT

PORTB ,RMCS2(R0O) ;SELECT PORT B.

#PIP!WRL!OM,$TMPS

#ATA, $BDDAT

$GDDAT ,$8DDAT
78%
7
$TMP3,$BDDAT
PORTB,PTNBR
HATA, $BDDAT
$GDDAT,$BDDAT
79%
4

;CLEAR DONT CARES

:BYPASS THE REST OF THE CHECKS
;SET _UP POSSIBLE BAD DATA FOR ERROR MESSAGE

sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
sSEIZING PORT !F TEST SHOWS DRIVE NOT IN NEUTRAL
;'BAD DATA' FOR ERROR TYPE CUT
;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
:BR _IF NOT
;SET 'RELEASE ERROR' INDICATOR
;CLEAR THE DRIVE
;RELEASE*
THE DRIVE
sLOOK FOR BiT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER

;DON'T CHECK THE ATTN BIT

;ALL BITS OK ?
;BR IF OK FROM PORT A.

sCHECK RMDS FOR BIT FAILURES - FROM PORT B.
; CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.
JBR IF 0K

(ZRMRBO RMO5/3/2 DU POR

126

TST

~ MACRO V04.00

4-APR-81

TEST RESET ATTENTION 'A' BY DRIVE CLEAR

035756

000240

798:

N 13

18:06:25 PAGE

10-66

SEQ 0106

NOP

;CHECK ATTENTION BIT ON THE OPPOSITE PORT

838
856

035760
035766
035774
036000
036006
036014
036020
036026
036034
036042
036050
036052
036060
036066
036074
£36076
036102
036104

113760
013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104050
005137
000240
000004

001226
001226
001250
000012
000012
001122
100000
001126
077777
001124

001124
001164
001164
001164

001126
100000
001174

001174
001174
001124

000010
001240

MOVB
MOV
CLR
MOV
MOV
ADD
MOV
MOV
8IC
CMP
BEQ
MOV
BIC
BIS
EMT
oM
NOP
SCOPE

001126
001122

0C1250

80%:
1%:

857

AN AN

PORTB,RM(CS?2(R0O)
;SELECT PORT B
PORTB,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
(KERR
sCLEAR THE '(HECK ERROR' INDICATOR
RMDS
(RQ) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,$BDADR
:ADD RH/RM BASE ADDRESS
NATA,$GDDAT
;WHAT REGISTER SHOULD BE
$8DDAT,$TMPO
sMOVE REGISTER CONTENTS TO 'STMPO’
#~CATA,$TMPQ
;SAVE SPECIFIED BITS
$GDDAT,$TMPO
;COMPARE THE BITS
80%
;BR IF OK
$BDDAT, $TMPS
;COPY 'BAD DATA’
HATA , $TMP4
;CLEAR THE MASKED BITS
$TMPS , $GDDAT
;'OR' WITH GOOD DATA FOR TYPEOUT
50
CKERR
;sSET THE REGISTER COMPARE ERROR INDICATOR

JLOOP ?
NN R AR AR

AN A AR AR A RA RN AR ARAR AN RA AN AN ARNNNAARRN

TEST RESET ATTENTION 'B' BY DRIVE CLEAR

:*TEST 27

(PORT B)

SEIZE

ISSUE A DRIVE CLEAR COMMAND.

RELEASE THE DRIVE THRCUGH PORT 'B'.
VERIFY THAT THE ATTENTION
BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT
‘A’ IS STILL SET.

VERIFY

THAT BOTH ATTENTION BITS

IR IR B

gg; EACH PORT'S ATTENTION BIT.

v,
Se

005737
001406
100002
000137
012737
012737
012737

001300

036144
036152
858 036156

112737
012706
012737

000027
001100
000012

003074
177777
036144
036144

TST27

001300
001106
001110

001102
001176

THE

LR B

e
B N,

CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF

THE DRIVE

THROUGH PORT

'B' BY WRITING 0'S

INTO RMDS.

ttt*tttttttt**tttfi*tt**ttttttl’k**i*fittttt*ttti*tttttttttittttit

036106
036106
036112
036114
036116
036122
036130
8%2}22

859

20 2R B

‘o..‘u'o!nlo!.!

'*VERIFY THAT A DRIVE
SEIZING PORT.

1%:
2%:
TEST27

TST
BEQ
8PL
JMP
MoV
Mov
MOV

KYBCTL
2%
1%
EXEC
#-1,KYBCTL
#TEST27,$L
PADR
#TEST27 ,8LPERR

;PERFORMING ONLY SINGLE TEST ?
;BR IF NOT
;BR_IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MovB
Mov
Mov

#27 ,$TSTNM
#STACK,SP
#10. ,8TIMES

JMOVE #27 TO TEST NUMBER
;LOAD THE STACK POINTER
;:D0 10. ITERATIONS

:SET ATTENTION RITS FOR BOTH PORTS

(gRMRBG RM0S5/3/2 DU PCR
TEST

RESET

036164
036172
036176
036200
0362066
036212
036220
036224
036226
036234
036240
036246
036252

TST

ATTENTION

113760
005760

001775
012760
005060
013760
005760
001775

012760

005060
113760

005760
001775

‘B'

MACRO v04.00
BY

DRIVE

001224
000012

00uv010

177777
000014
001226
000012

000014

177777

000014
001224
200012

000010

CLEAR

66%:

64%:

000014

000010

8
18:06:25 PAGE 10-67

4-APR-8'

€0 0107
PORTA,RM(S2(R0)

move
TST
8EQ
MOV
CLR
MOV
TST

RMDS (RO)
663

65%:

JMAKE

#-1,RMERT (RO)

;FORCE

RMER1 (RO)

PORTB,RM(SZ2(R0)

RMDS (RO)
648

B8EC

#-" _RMER1(R0O)

MOV

RMER1 (RO)
PORTA RM(CS2(R0)
RMDS (RO)

CLR
MOVB
TST

65%

BEQ

sSELECT PORT 643
SURE DRI /E

AVAILABLFE

ERRORS

;CLEAR THE ERRORS

;SELECT THE OTHER PORT

JWAIT FOR DRIVE TO TIMEOUT
;BR IF DRIVE HASN'T TIMED OuT
;FORCE ERRORS ON PORT 65$%

;CLEAR THE ERRORS

:SELECT PORT ''643'" AGAIN
JWAIT FOR DRIVE TO TIMEOUT
;BR IF DRIVE HASN'T TIMED OUT

;CONF IRM THAT BOTH ATTENTION BITS ARE SET
036254
036262
036270
036274
036302
036310
036314
036322
036330
036336
036344
036346
035354
036362
036370
036372
036376
036400
036404
036406
036412
036420
036426
036432
C36440
036446
036452
036460
036466
036474
036502

036504
036512
036520
036526
036530
036534
036536
036542
C24544

113760
013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010
005137
000240
005757
001402
000137
113760
013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737

0462737
053737
104010

005137
000240
005737
001402
000137

001226
001226
0C1250
000012
000012
001122
100000

001126
077777
001124

001126
100000

001174

000010
001240

001126
001122

MOVB
MOV
CLR
MOV
MOV

001124
001164
001164
001164

MOV
MoV
BIC
(MP

037600
001224
001224
001250
000012
000012
001122
100000

001126
077777
001124

001126

100000

001174

001250

037600

RO,$8DADR

001124
001164
001164
001164

N#ATA,$TMPS

?5MP4.$GDDAT

001174
001174
001124

69%:

1ST

BEQ
JMP

:'OR' WITH GOOD DATA FOR TYPEQUT

CKERR

NOP
IST

BEQ
MOV
BIC
BIS
EMT
oM
NOP

;SAVE SPECIFIED BITS
;COMPARE THE BITS
:BR IF OK
;COPY °'BAD DATA’
;CLEAR THE MASKED BITS

$GDDAT ,$TMPO
67%
$BDDAT ,$TMP4

MOV
BIC
BIS
EMY
coM

ADD
MOV
MOV
8IC
{mp

:MOVE REGISTER CONTENTS TO °*STMPO’*

#*CATA,$TMPQ

CKERR

. +6
1%

JMP
MOVB
MOV
CLR
MOV
MOV

001126
001122

JWHAT REGISTER SHOULD BE

$BDDAT,3TMPQ

BEQ

000910
001240

:GET CONTENTS OF RMDS
;FORM REGISTER ADDRESS OF ERROR MESSAGE
:ADD RH/RM BASE ADDRESS

#ATA, SGDDAY

BEQ

67%:

001250

RMDS (RQ) ,$BDDAT

#RM
, SBDADR
DS

ADD

001174
001174
001124

001250

PORTB,RM(CS2(RO)
;SELECT PORT B
PORT8B,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
sCLEAR THE °CHECK ERROR' INDICATOR

sSET THE REGISTER COMPARE ERROR INDICATOR
.

PORTA ,RM(CS2(R0)

;WAS ATTN BIT FOR PORT B SET ?
;BR IF IT WAS
;BYPASS REST OF TEST IF NOT
;SELECT PORT A

PORTA,PTNBR

.MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

#RMDS
, $BDADR

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

CKERR
sCLEAR THE °‘CHECK ERROR®
RMDS (RO) ,$8DDAT
sGET CONTENTS OF RMDS

RO, SBDADR

#ATA, SGDDAT

$8DDAT,$TMPO

#~CATA,STMPO

$GDDAT,$TMPO

698

$BDDAT ,$TMP4

INDICATOR

;WHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO °*STMPQ’
;SAVE SPECIFIED BITS
;COMPARE THE BITS
:BR_IF 0K

N#ATA, $TMPS

;COPY 'BAD DATA'
;CLEAR THE MASKED BITS

CKERR

;SET THE REGISTER (OMPARE ERROR

?5MP4,SGDDAT

(KERR

:'OR' WITH GOOD DATA FOR TYPEOUT

;WAS ATIN BIT

FOR PORT A SET

sBR JF IT WAS
;BYPASS REST OF

TEST IF NOT

INUICATOR

<HMRB. RM05/3/2 DU POR TST 1
MACRO v04.00
4~APR-81
TEST RESET ATTENTION °'B* BY DRIVE (LEAR

;SEIZE

036550
036556
036564

036570
036576
036604
036€12
036620
036624
036632
036636

036644
036646
036650
036654
036654
(36662
036670
036676

036704
036712
036720
036724
036732
036740
036746
036750
036752

113760

013737
005060
113760

013737
013737
016037
010037
062737
005037
023737
001403
104004

001226
001226
000012
001224
001224
001224
00012
001122
000012
001124
001124

000137

037600

113760

001226
001226
000012
020001
011700
001124
001166
001126
001166
001124

013737
016037
042737
012737
013737
005137
015737
043737
023737
001401

000010

000010
001240
001244
001126

MOV
MCV
MOV
“ov

001122
0C1°26

000010
001240
061126
001126
001124
001166

71%:

MovB
MOV

MoV

001164
001164
001164

104005

000240

ADD
(LR
{mp
BEQ
EMT
JMP

72%:

8IC
MoV
MOV
(oM
MOV
8IC
cMwP
BEQ
EMT
NOP

10-68

SEQ 0108

THE DRIVE
MovB
MOV
CLR
MOvVB

001242

C 14

18:06:25 PAGF

THROUGH PORT 8
PORTB ,RMCS2(R0O) ;SFLECT PORT B
|
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRE
S5
RMDS (RO)
JWRITE RMDS
PORTA ,RMCS2(R0O)
;SELECY PORT A
PORTA ,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR
PORTA,OPPRT
;'OPPOSITE® PORT ADDRESS

TYPEOUT

RMD
(RO) ,$BDDAT
S ;SEE IF DRIVE SEIZED BY PORT B
RO, $BDADR
;RH/RM BASE ADDRESS
A#RMDS , $BDADR
;GENERATE BAD REGISTER ADDRESS
$GDDAT
JRECISTER SHOULD BE ZERO
$GDDAT,$8DDAT
;IS THE REGISTER ZERO
Z1S
;BRIF T IS
[}

;BYPASS REST OF

THE SUBTEST

PORTB ,RMCS2(R0)
,;SELECT PORT B
PORTB,PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPrOUT
RMDS (RO) ,$8DDAT
;SEE IF SEIZING PORT SEES (ORRECT STATUS

#0M!P]P,$SBDDAT

;CLEAR DONT CARE 8ITS

#MOL !PGM!DPR!D
!VV $GDDAT
RY

$GDDAT,$TMP1
$TMP]
$BDDAT,$TMPO
$TMP1,$TMPO
$GDDAT, $TMPO

;23

EXPECTED STATUS

;USE GOOD DATA AS A MASK
sCOMPLEMENT THE EXPECTED STATUS
sSAVE THE ACTUAL STATUS
sCLEAR UNWANTED BITS
SARE THE EXPECTED STATUS BITS SET

;BR IF THEY ARE

< ISSUE DRIVE CLEAR COMMAND TO PORT B
036754

012760

0G0011

00C000

MOV

#11,RMCS1(RO)

;DO A DRIVE

CLEAR COMMAND

SVERIFY THAT ATTENTION BIT FiXk PORT B CLEARED
036762
036766
036774
37002
037006
637012
037020
037026

037034
037036
037044
037052
037060
037062
037066

005037
016037

012737
050037
005037
013737
042737
023737

001414

001250
000012
000012
001122
001124
001126
077777
001124

013737
042737
053737

001126

005137
000240

001250

104047

100000

001174

CLR
Mov
MOV
ADD
CLR
MOV
BIC
cMp
BEQ
MOV
BIC
BIS

001126
001122

001164
001164
001164
001174
001174
001124

EMT

73%:

(oM
NOP

CXERR
RMDS (RO) ,$BDDAT

#RMDS ,$8DADR

RO, SBDADR
$GDDAT
$BDDAT ,$TMPC
H#*CATA $TMPO
$GDDAT,$TMPO

738
$BDDAT,$TMP4

sCLEAR THE °‘CHECK ERROR'
;GET CONTENTS OF RMDS

;FORM REGISTER ADDRESS OF

113760

061226

000010

MOVR

ERROR MESSAGE

;ADD RH/RM BASE ADDPESS
JWHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTS TO
;SAVE SPECIFIED BJTS
:COMPARE THE BITS

#ATA, S TMP4

;CLEAR THE MASKED BITS

CKERR

;SET

z;HP4,SGDDAT

PORTB,RM{S2(R0)

'$TMFQ°

;BR IF 0K
;COPY ‘BAD DATA'

;*OR' WITH GOOD DATA FOR TYPEQUT
THE REGISTER COMPARE ERROR

JRELEASE THE DRIVE FROM PORT B

037070

INDICATOR

;SELECT PORT B

INDICATOR

L»«MQBO RMQOS/3/2 Du POR TST 1
MACRO v04.00
4-APR-B1
TEST RESET ATTENTION °'8' BY DRIVE CLEAR

037076
037104

013737
012760

001226
000013

001240
000000

MOV
MOV

D1
18:06:25 PAGE 10 69
PORTB,PTNBR

JVERIFY THAT THE DRIVE
005037
012737
060037
012737
113760

016037
042737
013737
04272
113760

016037
042737
013737
042737
023737
001006
005737
001045
104046
000137
013737
013737
113760

005737
001414
013737
013737
113760

005737
001012
012757
012760
012760
104026

013737
013737
042737
023737
001401
104007

013737
013737
042737
023737
001401
037452

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100
001164

001164
037452
001170
001226
001226
001164

001224
001172
001224
001166

CLR

001122

MOV
ADD
MOV
MovB
Mov

001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166

BIC
MOV
BIC
MovB
MOV
B8IC
MOV
BIC
CMP
BNE

001166

TST

0C1126
001240
000010

75%:

001240

001126
000010
76%:

000013

001254
000000
000000

001170
001224
100000
001124

001126
001240
001126
001126

77%:

001172

001126
001240
001126
001126

78%:

177777
000011

001226
100000

001124

104007

000240

79%:

BNE
EMT
JMP
MOV
MoV
MovB
TST
BEQ
MOV
MOV
mMovBs
TST

BNE

MOV

MoV
MOV
EMT
MoV
MOV
81C
CMP
BEQ
EMT
MoV
MOV
BIC
MP
8EQ
EMT
NOP

;MOVE

#13,RMCS1(RO)
IS

PORT

ADDRESS

s ISSUE RELEASF

STILL

RELERR

113760

013737

001224
001224

000010
001240

MovB
Mov

'RELEASE ERROR '

INDICATOR

;FORM THE ADDRESS OF RMDS FOR TYPEQOUT
RO, $BDADR
:ADD THE ]/0 BASE ADDRESS
lMCL'PGH'DPR'DRY'VV $GDDAT
;COMPARISON CONSTANT
PORTA,RMCS2(R) ) ;SELECT PORT
A

RMDS (RO) , $TMP

:GET THE DRIVE STATUS REGISTER FROM PORT A,
;CLEAR DONT CARES
;COPY IT INTO '$TMPO’

#PIP!WRLOM,STMP2
$TMP2,$TMPO

#ATA! YV, STMPO

PORTB,RMCS2 (RO )
RMDS (RO) , $TMP3

:CLEAR PORT DEPENDENT BITS FROM THE (OPY

;SELECT PORT B.
(GET THE DRIVE STATUS REGISTER FROM PCRT B.
#PIP'WRL IOM,$TMPS
;CLEAR DONT CARES
STMP3,STMPI
;COPY IT INTO *$TMP1°

NATAIVY, STMP

$TMPO,STMPY
75%
$TMPO
77%
46
79%
$TMP2,$BDDAT
PORTB,PTNBR
PORTB ,RMCS2(R0O)
$TMPO
763
PORTA,PTNBR

$TMP3, $BDDAT

PORTA,RMCS2(R0O)

$TMPY
77%

:CLEAR PORT DEPENDENT BITS FROM HE COPY
:ég }?ENS;ATUS REGISTER THE SAME FROM BOTH PORTS °
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT
;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

sSEIZING PORT IF TEST SHOWS DRIVE NUT [N NEUTRAL

;SELECT PORT B.

;SEE IF STATUS EQ O FROM PORT A.

;BR IF

ZERO

sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;'BAD DATA' FOR ERROR TYPE OUT

;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.

:BR_IF NOT
;SET 'RELEASE ERROR'
;CLEAR THE DRIVE

#-1,RELERR
#11,RMCST(RO)

523.RHC51(R0)

INDICATOR

:RELEASE THE DRIVE

$TMP2, $BDDAT

PORTA,PTNBR

;LOOK FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER

$GDDAT
, $BDDAT
;83

sALL BITS OK ?
;BR IF OK FROM PORT A.

$TMP3, $BDDAT
PORTB,PTNBR

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
; CHANGE PORT NUMBER

$GDDAT, $BDDAT
;95

JBR IF 0K

JDON'T CHECK THE ATTN BIT

HATA, $BDDAT

;DON'T CHECK THE ATTIN BIT
;SEE IF READ Ok FROM PORT B.

#ATA,SBDDAT

;CHECK ATTENTION BIT ON THE OPPOSITE PORT

037454
037462

TYPEOUT

IN NEUTRAL

;CLEAR THE

#RM
, $BDADR
DS

TO LOCATION FOR

THROUGH PORT 8

PORTA,RMCS2(R0O)

PORTA,PTNBR

(PORT A)

;SELECT PORT A

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

LCAMRB. RMOS/3/2 DU POR
.

TEST

REStT

037470
037474
037502
037510
037514
037522
037530

860
879

037536
037544
037546
037554
037562
037570
037572
037576
037600

TST

ATTENTION

005037
016037
012737
060037
012737
013737

042737

023737
001414
013737
042737
053737
104050
005137
000240
000004

1
°*B*

001250
C00012
000012
001122
100000
001126

077777

MACRO v04.00
By

DRIVE

CLEAR

001126
001164

001164

001126
100000
001176

001174
001174
001124

001250

BIC

80$:
1%

880

E 14

18:06:25 PAGE

10-70
SEQ 0110

CLR
MOV
MOV
ADD
MOV
MOV

001126
001122

001124

4-APR-81

CMP
BEQ
MOV
BIC
8IS
EMT
COM
NOP
SCOPE

CKERR
;CLEAR THE 'CHECK ERRCR' INDICATOR
RMDS (RO) ,$BDDAT
*;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR ME SSAGE
RO, SBDADR
JADD RH/RM BASE ADDRESS
NATA,SGDDAT
:WHAT REGISTER SHOULD BE
$BDDAT,$TMPO *
;MOVE REGISTER CONTENTS TO *$TMPO’

#ACATA STMPO

$GDDAT.STMPO
808
$BODAT,$TMPG
#ATA, $TMPL
$TMPL,SGDDAT
50
CKERR

:SAVE SPECIFIED BITS

° : COMPARE THE BITS
‘BR IF OK
-COPY °‘BAD DATA'
“CLEAR THE MASKED BITS
- *OR* WITH GOOD DATA FOR TYPEOUT
;SET

THE REGISTER COMPARE ERROR INDICATOR

;LOOP ?

.':".l!tRt.‘.Q“."'l’""'.tfifl.""'.'..t"."'."t.'t..'."..'t'

TRTEST 30

RESET ATTENTION ‘A* BY GO TEST

‘v VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE
e

i* A

ATTENTION BITS ARE SET.

‘* B.
e

SEIZE THE DRIVE THROUGH PORT
INTO RMDS.

‘% C.

ISSUE A NOP COMMAND.

i+ D.

e
e

037640
81

037646

037652

SET EACH PORT'S ATTENTION BIT. AND VERIFY THAT BOTH

e
-«

037602
037602
037606
037610
037612
037616
037626
8};228

SEIZING PORT.

'A' BY WRITING 0°'S

RELEASE THE FRIVE THROUGH PORT 'A'. VERIFY THAT THE

ATTENTION BIT FOR PORT
ATTENTION BIT FOR PORT

‘A’
‘B’

1S RESET. AND
IS STIL SET.

THE

;“tttifitl‘tt*.'.tttii."""'t'.ti""t..fit"'ttttt"t.t..'ttttit.t
15730:

005737
001406
100002
000137
012737
012737
012737

003074
177777
037640
037640

001300
001106
001110

112737

000030

001102

012737

000012

001176

012706

001360

001100

1$:
2$:
resr30,

ST
BEQ
BPL
JMP
MOV
MOV
MOV

KYBCTL
28
1
EXEC
#-1,KYBCTL
#TEST30,$LPADR
#TEST30.8LPERR

;PERFORMING ONLY SINGLE TEST 2
*BR IF NOT
‘BR IF JUST ENTERED TESi
*RETURN & GET NEXT TEST NUMBER
*SET SINGLE TEST INDICATOR
-SETUP SCOPE LOOP ADDRESS
-SETUP ERROR LOOP ADDRESS

" MOVB

#30,$TSTAM

:MOVE #30 TO TEST NUMBER

MOV

#10. . STIMES

MOV

#STACK , SP

*LOAD THE STACK POINTER

1:D0 10.

ITERATIONS

et
e
e

914

;SET ATTENTION BITS FOR BOTH PORTS
037660
037666
037672

0376764

113760
005760
001775

012760

001224
000012

000C10

177777

000014

66%:

MOVE
T1ST
BEQ

MoV

PORTA,RMCS2(RO)
RMDS (RO)
66$

4-1,RMERY (R0O)

;SELECT PORT 64$
‘MAKE SURE DRIVE
;FORCE ERRORS

AVAILABLE

( /RMRBO RMQ5/3/2 DU POR
RESET

ATTENTION

037702
037706
037714
037720
037722
037730
037734
037742
037746

005060
013769
005760
001775
012760
005060
113760

005760
001775

TST
"A'

MACRO v04.00
BY GO TEST
1

000014
(01226
000012

0006010

177777

000014

000014
001226
000012

000010

4-APR-81

65%:

14
10-71

SEC 0111

CLR

64%:

1B:06:¢5 PAGE

MOV
TST

BEQ
MOV
CLR

MovB
TST

BEQ

RMER1 (RO)
PORTB,RMCS2(R0)

RMDS (RO)

€48

;C_EAR THE ERRORS

;SELECT

THE OTHER PORT

;WAIT FOR DRIVE TO TIMEOUT

;BR IF DRIVE HASN'T TIMED OULT
:FORCE ERRORS ON PORT 65%

#-1,RMER1(RO)

RMER1 (RO)

;CLEAR THE ERRORS

PORTA,RMCS2(R0O)

;SELECT PORT ''64$'‘ AGAIN

65%

;BR IF DRIVE HASN'T

RMDS (R0O)

;WAIT FOR DRIVE TO TIMEOUT

TIMED QuUT

. CONFIRM THAT BUTH ATTENTION BITS ARE <77
337750
037756
037764
037770
037776
040004
040010
G40016
040024
040032
040040
0460042
040050
040056
0460064
040066
040072

040074

040100
040102
040106
0460114
040122
040126
040134
040142
040146
040154
040162
040170
040176
040200
040206
040214
040222
0460224
040230

040232
040236
040240

113760

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010

005137
000240
005737
001402
000137
113760
013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010

005137
000240
005737
001402
000137

001224
001224
001250
000012
000012
001122
100000
0C1126
077777
001124

001126
100000

001174

000010
001240

MOV
MOV
ADD
MOV
MOV

001124
001164
001164
001164

BIC
CMP
BEQ

001174
001174
001124

MOV

67%:

001250

100000

CLR

001126
001122

001250

041274
001226
001226
001250
000012
000012
001122

MOVB
MOV

000010
001240

MoV

CLR
MOV
MOV

00112¢
001122

001126
077777
001124

001124
001164
001164
001164

001126
100000
001174

001174
001174
001124

001250

ADD
MOV
MOV

8I1C
tMp
BEQ

MOv
BIC

BIS
EMT

69%:

001250
041274

—

(=X

001224
001224

COM
NOP
TST

BEQ

JMP

;SEIZE

060244
040252

BIC
BIS
EMT
COM
NOP
TST
BEQ
JMP
MOVB

000070
001242

THE DRIVE
MOVB
MOV

PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS

CKERR

RMDS(RO) ,$8BDDAT

#RMDS ,$BDADR

RO, $BDADR

#ATA ,SGDDAT

$8DDAT ,$TMPO

#*CATA,$TMPQ

$GDDAT,$TMPO

cCLEAR THE

TO LOCATION FOR

°'CHECK ERROR'

:GET CCONTENTS OF RMDS

;FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS

ERROR MESSAGE

:WHAT REGISTER SHOULD BE

sMOVE REGISTER CONTENTS TO

:SAVE

TYPEOUT

INDICATOR

SPECIFIED BITS

°'STMPG*

;COMPARE THE BITS

67%
$8DDAT,$TMPS
RATA,$TMPS4

;BR [F 0K
;COPY 'BAD DATA'
;CLEAR THE MASKED BITS

(KERR

JSET THE REGISTER COMPARE ERROR INDICATOR

CKERR
.+6
1%

;WAS ATTENTION SET FOR A??
JYES!!
;NO - BYPASS REST OF TEST

?6MP4,SGDDAT

;'0OR'

WITH GOOD DATA FOR TYPEQUT

PORTB,RMCS2(R0O)
SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO (OCATION FOR

CKERR
JCLEAR THE °'(HECK ERROR'
RMDS (RO) ,$8BDDAT
;GET CONTENTS OF RMDS

#RMDS ,$BDADR

RO, SBDADR

AATA,SGDDAT

$BDDAT ,$TMPO

#*CATA,$TMPQ
$GDDAT ,$TMPO

69%
$RDDAT ,$TMP4

FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS

TYPEJUT

INDICATOR

ERROR MESSAGE

;WHAT REGISTER SHOULD BE

:MOVE REGISTER CONTENTS TO '$"MP(C’

;SAVE SPECIFIED BITS
;COMPARE THE BITS

JBR IF OK
;COPY 'BAD DATA!

RATA STMPS
?6MP4.SGDDAT

;CLEAR THE MASKED BITS
J'OR' WITH GOOD DATA FOR

TYPEOQUT

CKERR

JSET

ERROR

CKERR
.+6
1%

;WAS ATTENTION SET FOR B??
JYES!!
JNO - BYPASS REST OF TEST

THE REGISTER (OMPARE

THROUGH PORT A
PORTA,RMCS2(RO) ;SELECT PORT A
PORTA,SEI1ZPT
;sSTORE SEIZING PORT'S ADDRESS

INDICATOR

ZR*RBu RMO5/73/2 Du POR TST
RESET ATTENTION

040260

060264
040272
040300
060306
040314
040320
040326
040332
040340
040342
040344
040350
040350
040356
040364
040372
040400
0460406
0460414
040420
0460426
040434
040442
0460444
040446

005060
113760

013737
013737
016037
010037
062737
005037
023737
n01403
104004

MACRO v04.00
‘*A* By GO TESTY

000012
001226
001226
001226
000012
001122

000012

001124
001124

000137

047274

113760

001224
001224
000012
020001
011700
001124
061166
001126
001166
001124

013737
016037
042737
012737
013737
005137
013737
043737
023737
001401

4&-APR-81

007240

RMDS (RO)
JWRITE RMDS
PORTB ,RM(S2 (RO)
:SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR
PORTH,0PPRT
;'OPPOSITE' PORT ADDRESS

MOV

007244
001126

Oov
MOV

RMDS(RO)
, $BDDAT ;SEE

RO, $8BDADR

MOV
ADD

001122

71%:

CMP
BEQ
EMT
JMP

;BR

;BYPASS REST OF

$GDDAT, $TMP1
$TMP1
$3DDAT,$TMPO

MOV

72%:

;GENERATE BAD REGISTER ADDRESS
JREGISTER SHOULD BE ZERC
;1S THE REGISTER ZERO
IF

THE SUBTEST

PORTA ,RMCS2 (R0O)
SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS (RO) , SBDDAT
JSEE IF SEIZING PORT SEES CORRECT STATUS
#OM!P P, $BDDAT
;CLEAR DONT CARE BITS
#MOLfPGM!DPR!DRY!VV,SGDDAT
JEXPECTED STATULS

BIC
MOV

104005

IF DRIVE SEIZED BY PORT A

$GDDAT
$GDDAT ,$BDDAT
71%

MovB
MOV
MOV

001164
001164
001164

TYPEQH
T

;RH/RM BASE ADDRESS

#RM
, $BDADR
DS

(LR

001126

000240

St¢

(LR
MOVB

000010

000010
001240
001126
301126
001124
001166

G 14
18:06:25 PAGE 10-7?2

MoV
BIC
mp
8EQ
EMT
NOF

$TMPY ,STMP)
$GDDA
, $TMPO
T

gZS

;USE GOOD DATA AS A MASK
;COMPLEMENT THE EXPECTED STATUS
;SAVE THE ACTUAL STATUS
;CLEAR UNWANTED BITS
JARE THE EXPECTED STATUS BITS SET ?
JBR

THEY ARE

;ISSUE NOP COMMAND TO PORT A
040450

012760

000001

000000

#1,RMCS1(RO)

MOV

JVERIFY THAT ATTENTION FOR PORT A (LEARED

040470

040476
040502
040506
040514
040522
40530
040532
040540
040546
0460554
0460556
040562

005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104061

005137
000240

001250
000012
000012
001122
001124
001126
077777
001124

001164
001164
001164

001126

001174

100000

001174

CLR

001126
001122

001224
001224
060013

RO, $BDADR
$GDDAT
$BDDAT, $TMPO

#~CATA,$TMPO

$GDDAT, $TMPO
738
$BDDAT, $TMP4

MOV
BIC

73%:

SRELEASE

0460564
040572
040600

#RMDS
, SBDADR

CLR
MOV
BI(
CMP
BEQ

001174
001124

001250

CKERR
RMDS (RO) , $BDDAT

MoV
MOV
ADD

000010
001240
00000C

HATA
, STMPS
2{MP4.$GDDAT

BIS
EMT
Com

;WHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO ‘$TMPQ’
;SAVE SPECIFIED BITS
s COMPARE THE BITS
;BR IF 0K
;COPY ‘BAD DATA'

CKERR

NOP

:CLEAR THE MASKED BITS

;'OR' WITH GOOD DATA FOR TYPEQUT
;SET THE RFGISTER COMPARE ERROR INDI(ATCR

THE DRIVE FROM PORT A
PORTA,RMCS2
(R0)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQL"
#13,RMCST(RO)
s ISSUE RELEASE THROUGH PORT A

MovR
MOV
MOV

JVERIFY

;CLEAR THE 'CHECK ERROR' INDICATOR
;GET CONTENTS OF RMDS
:FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

THAT

THE

DRIVE

IS STILL

IN NEUTRAL

040456
0460462

:"MQB\

* 2

RMOS5/3/2 DU POR
RESET ATTENTION

0460606
040612
040620
060624

005037
012737
060037
012737

0460640
040646
040654
040662
040670
040676

016037
042737
013737
042737

0460632

0497C4
040712
040720

040726
040734

040736
0460742
040744

040746
040752
040760
040766
040774
041000
041002
041010
041016
0461024
041030
061032
041040

113760

016037
042737
013737
042737
023737
001006
005737
0071045

104046
000137

013737
013737
113760

005737
001414
013737
013737

113760
005737
001012
012737
012760
012760
104026
013737
013737
042737
023737
001601
104007

013737
013737
042737
023737

001401
104007
000240

T1ST
MACRO v04.0U
‘A’ BY GO TEST

001254
(00012
0013122
011700
001224
000012
024001
001170
100100

001226
000012
024001
001172

100100
001164

CLR
MUy
ADD
MOV
MOvB

001122
001124
000010
001170
001170
001164
001164
000010
001172
001172
001166

MOV

ul1224
001172
001224

0061166

177777
000011

000013
001170
001224

001126
001240
000010

75%:

000010

001254
000000
000000

768%:

77%:

001124

001126
001240
001126
001126

001172
001226
100000
001124

001126
001240
001126
001126

78%:

100000

RELERR
JCLEAR THE 'RELEASE ERROR ' [NDj(ATOR
#RMDS
, $BDADR
;FORM THE ADDRESS Of RMDS FOR TYPEOUT
RO, $8DADR
sADD THE [/0 BASE ADDRESS
#MOL !PGM.DPR!DRY.VV,$GDDAT
;(OMPARISON (CHSTANT
PORTA ,RMCS2(RQ) ;SELECT PORT A.

RMDS(RQ) ,$TMP2

. GET

#ATA!VV,$TMPO

8IC
MOV
BIC
CMP
BNE
TST
BNE
EMT
JMP

#PIP'WRL .OM,$TMPS

MOV
MOV
MOVB
TST

BNE

Mov
MoV
MOV
EMT
MoV
MOV

BI(
cMp
BEQ
EMT
MOV
MOV
BIC
cMp

8EQ
79%:

10-73

8IC
MOvVB

BEQ
MOV
MOV
MOVB
TST

001240
001126

#PIP WRL.OM,$TMP?

MOV

001166
001166

18:06:¢5 PAGE

BIC

MOV

001164

061146
001170
001226
001226
001164

4-APR-B1

EMT
NOP

$TMP2,$TMPO

PORTB,RMCS2(RQ)

RMDS(RO) ,$TMP3

THE DRIVE

STATUS REG]>TER FROM PORT

;CLEAR DONT (ARE>
sCOPY IT INTO ‘STMPO’
;CLEAR PORT DEPENDENT BITS FROM THE (OPY

;SELECT PORT B.

GET THE DRIVE STATUS REGISTER FROM PORT B,

.CLEAR DONT CARES
;COPY ]JT INTO '$STMPT’
;CLEAR PORT DEPENDENT BITS FROM THE (OPY
:ég }?ENS}ATUS REGISTER THE SAME FROM BOTH PORTS ?

$TMP3, $TMPT

#ATA.VV,STMP1

$TMPO,$TMPY

75%
$TMPO
77%
46
79%
$TMP?2 ,SBDDAT

JREGISTERS ARE

JBR IF NOT

PORTB,PTNBR

PORTB,RMCS2(R0O)

$TMPO

THE

SAME:

ARE

THEY ZERO ?

;BYPASS THE REST OF THE CHE(CKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT If TEST SHOWS DRIVE NOT [N NEUTRAL
;SELECT PORT 8.

PORTA ,PTNBR

;SEE IF STATUS EQ O FROM PORT A,
:BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT

PORTA ,RMCS2(RC)

;SELECT PORT A.

76%

$TMP3, $BDDAT

$TMP1
77%

;'BAD DATA' FOR ERRO TYPE OUT
JSEE IF

STATUS EQ ZERQO FROM PORT B.

JBR IF NOT
cSET 'RELEASE ERROR'

#-1,RELERR
#11 _RMCS1(RO)

sCLEAR THE DRIVE

£é3.RMCS1(RO)

[N NEUTRAL

INDICATOR

JRELEASE THE DRIVE

$TMP2
, $BDDAT

;LOOK FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER

PORTA,PTNBR
#ATA $BDDAT

, $8DDAT
$GDDAT

;83

;DON'T CHECK THE ATIN BIT
;ALL BITS OK ?
;BR IF OK FROM PORT A.

$TMP3
, $BDDAT

sCHECK RMDS FOR BIT FAILURES -~ FROM PORT B.

$GDDAT
, $8DDAT
;93

DON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.
JBR IF OK
’

PORTB,PTNBR
#ATA, SBDDAT

;CHANGE PORT NUMBER

SVERIFY THAT ATTENTION FOR PORT B IS STIL SET
041150
041156
041164
041170
0461176
041204
041210

113760

013737
005037
016037
012737
060037
012737

001226
001226
001250
000012
000012
001122
100000

000010
001240

MovB

001126
001122

MoV
mMov
ADD
MOV

001124

MOV
CLR

PORTB,RMCS2(RO)

;SELECT PORT B

CKERR
RMDS
(RO) ,$BDDAT

,GET CONTENTS OF

PORTB,PTNBR

#FMDS
, SBDADR
RO, $BDADR
#AFA, SGDDAT

sMOVE PORT ADDRESS TO LOCATION FOR TYPEOL~
;CLEAR THE *CHECK ERROR®' INDICATCR
RMDS

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

;WHAT REGISTER SHOULD BE

.JRMRB0O IM(5/372 DU POR
T30
RESET ATTENTION

061216
0461224
261232
061240
0412462
041250
041256
041264
041266

915
934

0461272
0461274

013737
042737
023737
001414
013737
042737
053737
104062

005137
000240
000004

TST 1
MACRO v04.00
*A' BY GO TEST

001126
0777727
001124

001164
001164
001164

001126

001174
001174
001124

100000

001174

001250

80S$:
18

935

4&-APR-B1

I
18:06:25 PAGE

14
10-74
SEQ 0114

MOV
BIC
CMP
BEQ
MOV
BIC
81

$BODAT ,$TMP)
#ACATA.$TMPO
SGDDAT $TMPQ
808
SBDDAT,STMP4
#ATA S TMP4
25MP4.SGDDAT

CKERR

NQOP

sMOVE REGISTER CONTENTS 10 *'$STMPO*
;SAVE SPECIFIED BITS
; COMPARE THE BITS
‘BR IF OK
:COPY °'BAD DATA'
:CLEAR THE MASKED BITS
:'OR* WITH GOOD DATA FOR TYPEQOUT
;SET

SCOPE

THE REGISTER COMPARE ERROR IND;CATOR

:"'...Q.."'..‘ttltt..""'.tt'fi"'fi't'.".t'.'.".'..'.".'

t'...

TNTEST

RESET ATTENTION

‘B'

BY GO TEST

- %

i VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF
i
SEIZING PORT.

THE

:* A,
i

SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH
ATTENTION BITS ARE SET.

i* B.

SEIZE THE DRIVE THROUGH PORT ‘B’ BY WRITING 0'S

I+ (.

ISSUE A NOP COMMAND.

i D.
i

RELEASE THE FRIVE THROUGH PORT ‘B'. VERIFY THAT
ATTENTION BIT FOR PORT 'B' IS RESET, AMD THE

i
. %

INTO RMDS.

ATTENTION BIT

FOR PORT

'A'

. %

IS STIL

THE

SET.

:""Q"..'t'.i.tt.‘fi't"."'ttt.Qfi'.t'..‘fl".ti.t'tt't’t.‘t't'.Q'Q'

041276
0461276
041302
0461304
041306
047312
041320
041326
041334
041334
0461342
041346

15131:

001300
003074
177777
041334
041334

000031
001100
000012

TST

BEQ
BPL
001300
001106
001110

18:
2%
resrar,

JMP

MOV
MOV
MOV

KYBCTL

;PERFORMING ONLY SINGLE

:BR IF NOT
:BR_IF JUST ENTERED TEST

#-1,KYBCTL
#TEST31,SLPADR
#TEST31,SLPERR

ISET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

EXEC

IRETURN & GET NEXT

" MOVB

#31_STSTAM

;MOVE #31 TO TEST NUMBER

001176

MOV

#10. . STIMES

::00 10.

#STACK , SP

:LOAD THE STACK POINTER
ITERATIONS

;SET ATTENTION BITS FOR BOTH PORTS
061354
041362

041366
041370
041376
0414602
041410
041414
041416

113760
005760
001775
012760
005060
013760
005760
001775
12760

001224
000012

000010

177777

000014

000014
001226
000012

000010

1777277

000014

66%:

648

TEST NUMBER

001102

MOV

TEST

2$
1

MOVB
égg

PORTA,RMCS2(R0)
zzgS(RO)

;SELECT PORT 64$
;MAKE SURE DRIVE

MOV
CLR
MoV
TST
BEQ
MOV

#-1 ,RMER1(RO)
RMER1 (RO)
PORTB,RMCS2(RO)
RMDS (RO)
64%
#-1,RMER1 (RO)

;FORCE ERRORS
;CLEAR THE ERRORS
;SELECT THE OTHER PORT
JWAIT FOR DRIVE YO TIMEQUT
;BR IF DRIVE HASN'T TIMED OQUT
:FORCE ERRORS ON PORT 65%

AVAILABLE

\ZRNRBO RMOS5/3/2 DU POR

TST

MACRO v04.00
RESET ATTENTION °B* 8Y GO TEST

041424
041430
061436
041442

005060
113760

005760
001775

000014
(01224
000012

000010

&4-APR-B1

14
10-75

SEQ 0115
CLR

65%:

J
18:06:25 PAGE

MOVR

TST

BEQ

RMER1 (RO)

PORTA ,RMC52(R0)

RMDS (RO)

;CLEAR THE ERRORS

;SELECT

;WAIT

65%

PORT

''64$'' AGAIN

FOR DRIVE

TO TIMEOUT

JBR IF DRIVE HASN'T TIMED OuT

;CONF IRM THAT BOTH ATTENTION BITS ARE SEY
0461444

061452
0461460
041464
061472
0461500
061504
041512
0461520
041526
0461534
0461536
061544
061552
041560
041562
041566
041570
041574
041576
041602
061610
041616
041622
041630
041636
0461642
041650
041656
041664
0461672
041674
041702
041710
Ce1716
041720
0461724
041726
041732
041734

113760

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010

005137
000240
005737
001402
000137
113760

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010

005137

001226
001226
001250
000012
‘000012
001122
100000

000010
001240

Movs
MOV

CLR
MOV

001126
001122

MOV
ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC
BI1S

001124
001164

001126
077777
001124

001164
001164

001126
1C0000
001174

001174
001174
001124

001250

67%:

001250
042770
001224
001224
001250
000012
000012
001122
100000
001126
077777
001124

001164
001164
001164

001126
100000
001174

001174
001174
001124

(LR

001126
001122

001124

69%:

001250

042770

TST

BEQ
JMP
MOVB
MOV

000010
001240

001250

EMT
coM
NOP

Mov
MOV
ADD
MOV
MOV
8IC
CwP
BEQ
MOV
8IC
BIS
EMT
oM
NOP
TST
BEQ
JMP

PORTB,RMCS2(RO)
PORTB,PTNBR

;SELECT PORT B

;MOVE

PORT

ADDRESS

TO LOCATION FOR

CKIRR
RMES (RQ) ,$BDDAT

;CLEAR THE 'CHECK ERROR'
;GET CONTENTS OF RMDS

RO, SBDADR

;ADD RH/RM BASE AZDRESS

ARMDS ,$BDADR
#ATA ,$GDDAT

$8DDAT, $TMPQ

#~CATA $TMPO

$GDDAT, $TMPO
67%
$3DDAT, $TMP4

;FORM REGISTER ADDRESS OF

ERROR MESSAGE

;WHAT REGISTER SHOULD BE

:MOVE REGISTER CONTENTS TO

SAVE

SPECIFIED BITS

'$TMPO°’

. COMPARE THE BITS
;BR IF OK
;COPY 'BAD DATA’

HATA ,$TMP4
?6MP4,SGDDAT

;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR

CKERR

;SET

CKERR

TYPEOUT

THE REGISTER COMPARE ERROR INDICATOR

;WAS ATTENTION SET FOR B??

.46

JYES!!

1%
;NO - BYPASS REST OF TEST
PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR

CKERR
sCLEAR THE 'CHECK ERROR®
RMDS (RO} ,$8DDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR

RO, $BDADR

#ATA,SGDDAT

$BDDAT,$TMPO

#*CATA $TMPO

SGDLAT,$TMPO
69%
$BDDAT,$TMP4

TYPEOUT

INDICATOR

;FORM REGISTER ADDRESS OF

-ADD RH/RM BASE ADDRESS

TYPEQUT

INDICATOR

ERROR MESSAGE

;WHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO °*$TMPQ’

.SAVE SPECIFIED BITS

;COMPARE THE BJTS
:BR IF 0K
;COPY °*BAD DATA'

NATA,$TMPS

SCLEAR THE MASKED BITS

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

?6HP4.SGDDAT

:'OR'

CKERR

WITH GOOD DATA FOR TYPEOUT

SWAS ATTENTION SET FOR A2?

.*6

JYES!!

;NO ~ BYPASS REST OF

TEST

;SEIZE THE DRIVE THROUGH PORT B
041740
041746
0461754
041760
041766
041774
042002

001226
001226
000012
001224
001224
001224
000012

000010
001242

000070
001240
001244
001126

Mov8s

MOV
CLR
MOVB
Mov

MoV
MoV

PORTB ,RMCS2(R0) ;SELECT PORT B
PORTB,SEIZPT
;STORI. SEIZING PORT'S ADDRESS
RMDS (RO)
;WRITE RMDS
PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR

;MOVE

PORTA, OPPRT
RMDS (RO) ,$BDDAT

PORT ADDRESS TO LOCATION FOR

;'OPPOSITE' PORT ADDRESS
;SEE iF DRIVE SEIZED BY PORT B

TYPEQLT

JnMRBy RMOS/3/2 DU POR

TST

MACRO v04.00
RESET ATTENTION '8' BY GO TEST

042010
0642014

042022
042026
042034
042036
042040C
042044
062044
042052
042060
062066
042074
042102
042110
042114
042122
042130
042136
042140
0462142

010037
062737
005037
023737
001403

001122
600012
001124
001124

000137

042770

113760
013737

001226
001226
000012
020001
011700
001124
001166
001126
001166
001124

104004

016037
042737
012737
013737
005137
013737
043737
023737
001401
104005
000240

RO, $BDADR

sRH/RM BASE ADDRESS

$GDDAT
$GDDAT ,$8DDAT
ZIS

JREGISTER SHOULD BE ZERO
;IS THE REGISTER ZERO
JBRJF IT ]S

JMP

;BYPASS REST OF

MOVB
MOV

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATiON FOR TYPEOUT
RMD
(RO) ,$BDDAT
S
;SEE IF SEIZING PORT SEES CORRECT STATyS

CLR
cmp
BEQ
EMT

001126

7i%:

MOV

8IC

MOV
MOV

001164
001164
001164
72%:

K 14
18:06:25 PAGE 10-76

SEQ 0116
MOV
ADD

001122

000010
001240
001126
001126
001124
001166

4-APR-B1

COM
MOV
BIC
CMP
BEQ
EMT
NOP

#RMDS , $BDADR

;GENERATE BAD REGISTER ADDRESS

THE

SUBTEST

#OM!P]P,$BDDAT
;CLEAR DONT CARE BITS
#MOL ! PGM!DPR!DRY!VV,$GDDAT
EXPECTED STATUS

$GDDAT,$TMP1
$TMP1
$BDDAT, $TMPO
$TMP1,$TMPO
$GDDAT, $TMPQ
72%
5

;USE GOOD DATA AS A MASK
;COMPLEMENT THE EXPFCTED STATUS
;SAVE THE ACTUAL STATUS
;CLEAR UNWANTED BITS
JARE THE EXPECTED STATUS BITS SET
;BR IF THEY ARE

s ISSUE NCP COMMAND TO PORT B
042144

012760

000001

000000

Mov

#1,RMCS1(RO)

;VERIFY THAT ATTENTION FOR PORT B CLEARED
042152
042156

042164
042172
042176
042202
042210
042216
042224
042226
042234
0462242
042250
042252
042256

005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104061

005137
000240

001250
000012

000012
001122
001124
001126

077777

001124

001126
100000
001174

CLR
MOV
MOV
ADD
CLR
MOV
81C
cMP
BEQ
MOV
8IC

001126

001122
001164
001164
001164
001174
001174
001124

001250

73%:

BIS
EMT
coM
NOP

CKERR
;CLEAR THE °(HECK ERROR' INDICATOR
RMDS (RQ) ,$8DDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
SGDDAT
;WHAT REGISTER SHOULD BE
$BDDAT, $TMPO
:MOVE REGISTER CONTENTS TO '$TMPQ*

#“CATA,$TMPQ

;SAVE SPECIFIED BITS

$GDDAT ,$TMPO
738
"$BDDAT, $TMPS
z{MP4,SGDDAT

;COMPARE THE BITS
;BR IF 0K
;COPY °'BAD DATA’
;CLEAR THE MASKED BITS
;'OR" WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

N#ATA, STMP4

JRELEASE THE DRIVE FROM PORT 8
042260
042266
062274

113760
013737
012760

001226
001226
000013

000010
001240

000000

MOVB

PORTB,RMCS2(R0)

MOV

#13,RMCST(RO)”

MOV

PORTB.PTNBR

sVERIFY THAT THE DRIVE IS STILL

042302
042306
042314
042320
042326

005037
012737
060037
012737
11376C

001254
000012
001122
01700
001224

001122

001124
000010

(LR
MOV
ADD

MOV
MOvB

RELERR

#RMDS , SBDADR

:SELECT PORT 8

:MOVE PORT ADDRESS

: ISSUE RELEASE

TO LOCATION FOR TYPEQUT

THROUGH PORT B

IN NEUTRAL

;CLEAR THE 'RELEASE ERROR ' INDICATOR

;FORM THE ADDRESS OF

RMDS FOR

TYPEQU’

RO, $8DADR
;ADD THE 1/0 BASE ADDRESS
AMOL !PGM!DPR!DRY!VV,$GDDAT
;COMPAR]SON CONSTANT
PORTA ,RMCS2(R0O) ;SELECT PORT A.

( IRMRBO RMOS/3/2 DU POR TST

Y'S‘

MACRO V0«.00
RESET ATTENTION 'B° BY GO TEST

042334
042342
04235C
042356
042364
042372
042400
042406
042414
042422
04243C
042432
042436
042440
042442
042446

042454
042462
042470
042474
042476
042504
042512
062520
042524
042526
042534
042542
042550
042552
042560
0425€6
042574
042602
042604
042606
042614
042622
042630
042636
042640
042642

016037
042737
013737
042737
113760

016037
042737
013737
042737
023737

001006
005737

001045

104046

000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
042737
023737
001401
104007
013737
013737
042737
023737
001401
104007
000240

000012
024001
001170
100100

001226
000012
024001
001172
100100

001164

001170
001170
001164
001164
000010
001172
001172
001166
001166

001126
001240
000010
001240
001126
000010

177777
000011
000013

001254
000000
000000

76%:

001170
001224
100000
001124

001126
001240
001126
001126

77%:

001172
001226
100000
001124

001126
001240
001126
007126

78%:

79%:

$TMP2,$TMPO

;COPY

PORTB,RMCS2(RQ)
RMD
(RO) ,$TMP3
S

;SELECT PORT B.
. GET THE DRIVE STATUS REGISTER FROM PORT B,

BIC

N#ATA!VV,$TMPO

8I1C
(MP
BNE
TST
BNE
EMT

001224
001172
001224
001166

:GET

#PIP'WRLIOM,$TMP2

MOovB
MOV
81C
MOV

75%:

RMD
(RO) ,$TMP2
S

BIC

MOV

001166

L 14
18:06:25 PAGE 10-77
SEQ 0117

MOV

001164
042642
001170
001226
001226
001164

&-APR-81

JMP
MOV
MOV
MovB
TST
BEQ
MoV
MOV
MOVB
TST
BNE
Mov
MOV
MOV

EMT
MOV
MOV
BIC
(MP
BEQ
EMT

MOY
MOV
BIC

(MP
BEQ
EMT

THE DRIVE
IT

STATUS REGISTER FROM PORT A,

;CLEAR DONT CARES
INTO

'$TMPO’

;CLEAR PORT DEPENDENT BITS FROM THE (OPY

#P1P'WRL .OM,$TMP3
$TMP3, $TMP1

;CLEAR DONT CARES
;COPY IT INTO '$TMPT’

$TMPO,$TMPY
75%

;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
;BR IF NOT

ZZS

;BR IF NOT

79%

;BYPASS THE REST OF

#ATAIVV,$TMPI

;CLEAR _PORT DEPENDENT BITS FROM THE

$TMPO

;REGISTERS ARE

THE

SAME:

ARE

(OPY

THEY ZERO °

THE CHECKS

PORTB ,RMCS2(RO) ;SELECT PORT B.

DRIVE

NOT

$TMPO
76$
PORTA ,PTNBR

;SEE IF STATUS EQ O FROM PORT A.
;BR IF ZERO
/SEIZING PORT IF TEST SHOWS DRIVE NOT

PORTA ,RMCS2(R0O)
$TMPT
778

;SELECT PORT A,
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR_IF NOT

$TMP3, $BDDAT

;'BAD DATA' FOR ERROR TYPE QUT

#-1,RELERR
#11,RMCS1(ROS

;SET 'RELEASE ERROR'
;CLEAR THE DRIVE

$TMP2, $BDDAT
PORTA,PTNBR

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER

gg3.RMCS1(RO)

IN MEUTRA

IN NEUTRAL

INDICATOR

JRELEASE THE DRIVE

#ATA,SBDDAT

;DON'T CHECK THE ATIN BIT

;83

;BR IF OK FROM PORT A,

$TMP3 , $BDDAT

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.

HATA, SBDDAT

;DON'T CHECK

$GDDAT $8DDAT

PORTB,PTNBR

$GDDAT ,$BDDAT
;9$

:ALL BITS 0K ?

; CHANGE

PORT NUMBER

THE ATIN BIT

;SEE IF READ OK FROM PORT B.
:8R IF OK

NOP

JVERIFY THAT ATTENTION FOR PORT A 1S STIL SET
042644
042652
042660
042664
042672
042700
042704
042712
042720
042726
042734
042736

113760
013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737

001224
001224
001250
000012
000012
001122
100000
001126
077777

000010
001240
001126
001122

001124

001124
001164
001164
001164

001126

001174

MOVB

MOV
CLR

MOV
MoV
ADD
MoV
MoV

BIC
CMP
BEQ
MoV

PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA ,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
CKERR
;CLEAR THE °CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT
:GET CONTENTS OF RMDS

W#RMDS ,$8DADR

RO, $BDADR

HATA ,$GDDAT

$8DDAT,$TMPQ

#*CATA,$TMPQ

$GDDAT,$TMPO
80%
$BDDAT , $TMP4

;FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS

;WHAT REGISTER SHOULD BE

ERROR MESSAGE

;MOVE REGISTER CONTENTS TO '$TMPQO’

;SAVE

SPECIFIED BITS

;COMPARE THE BITS
JBR IF 0K
;COPY 'BAD DATA'

(ZRMRBO RMOS/3/2 DU POR TST 1
TM
RESET ATTENTION '8* BY

938
952
953

042737
053737
104062

005137
000240

10000

&-APR-81

[=]

042744
042752
042760
042762
042766
042770

v04.00

8I1C

0C117¢4
001250

80%:

000004

1%:

M 14
18:06:25 PAGE 10-78

#ATA,S$TMP4

SEQ 0118

;CLEAR THE MASKED BITS

g#?

zSMP4,$GDDAT

:'OR'

coM
NOP

CKERR

;SET THE REGISTER (OMPARE ERROR INDICATOR

WITH GOOD DATA FOR TYFENT

SCOPE

.‘.'".tt"‘fl'tt'..'ifit""'...‘..".‘.‘"'t'i.'.""t"..'.'.

....'

;+«TEST 32

TEST RESET ATTENTION 'A*

;*VERIFY

¥
*

THAT MASSBUS CLEAR

DRIVE
SET

&
*

IS IN NEUTRAL.

°'R' BY MASSBUS INIT

RESETS BOTH PORT'S ATTENTION BITS WHEN

THE

THE ATTENTION BITS FOR BOTH PORTS.

VERIFY

THAT

THE DRIVE

IN NEUTRAL”

égggg A MASSBUS

INIT.

VERIFY

*
.

042772
042772
042776
043000
043002
043006
043014
043022
043030

043030
043036
954
989

043042

THAT BOTH ATTENTION BITS HAVE

"'l'tt'tti‘tfi*ll't't'tttittfitfi‘ttifilfittttktfi*'t"t.fitt.tt't'tt'fl't

005737
01406
100002
000137
012737
012737
012737

003074
177777
043030
043030

112737
012706
012737

000032
001100
000012

75132:

001300

TST

KYBCTL

B8PL
JMP

1%
EXEC

;BR _IF JUST ENTERED TEST
JRETURN € GET NEXT TEST NUMBER

#TEST32 ,$LPADR

;SETUP SCOPE LOOP ADDRESS

BEQ

001300
001106
001110

18:

2$:

TEST32

001102
001176

;PERFORMING ONLY SINGLE

:BR If NOT

TEST

MOV

#-1,KYBCTL

MOV

HTEST32,$LPERR

;SETUP ERROR LOOP ADDRESS

MOVB
MoV

#32,8TSTNM
N#STACK,SP

;MOVE #32 TO TEST NUMBER
;LOAD THE STACK POINTER

MOV

MoV

#10. ,STIMES

;SET SINGLE

;:D0 10.

TEST

INDJCATOR

ITERATIONS

;SET ATTENTION BITS FOR BOTH PORTS
043050
043056

043062
043064
043072
043076
043104
043110
043112
043120
043124
043132
043136

113760
005760
001775
012760
005060
013760
005760

001775
012760
005060
113760

005760
001775

001224
000012

000010

177777

000014

0" 014
oL 226
000012

177777
000014
001224
000012

0006010

66%:

64%:

000014
000010

65%:

MOVB
ggg

PORTA,RMCS2(R0)
gzgS(RO)

;SELECT PORT 64$
sMAKE SURE DRIVE

MoV
CLR
MOV

#-1,RMER1(RO)
RMER1 (RQ)
PORTB ,RMCS2(R0)

;FORCE ERRORS
;CLEAR THE ERRORS
;SELECT THE OTHER PORT

BEQ
MoV
CLR
MOVB

643
#-1,RMERT(RO)
RMER1 (RO)
PORTA,RMCS2(RO)

TST

TST
BEQ

RMDS (R0O)

RMDS (RO)
65%

AVAILABLE

;WAIT FOR DRIVE TO TIMEOUT

;BR IF DRIVE HASN'T TIMED CuT
;FORCE ERRORS ON PORT 65%
;CLEAR THE ERRORS
;SELECT PORT ''648'' AGAIN

SWAIT FOR DRIVE TO TIMEQUT
;BR IF DRIVE HASN'T TIMED OUT

;CONFIRM THAT BOTH ATTENTION BITS ARE SET

043140
043146
043154

113760

013737
005037

001224
001224
001250

000010
0071240

MovB

PORTA,RMCS2(RO)

CLR

(KERR

MOV

PORTA,PTNBR

;SELECT PORT A

;MOVE

PORT ADDRESS

;CLEAR THE

TO LOCATION FOR

‘'CHECK ERROR'

TYPFQUT

IND]CATOR

C%gMRBO RMO5/3/2 DU POR TST 1
MACRO v04.00
4-APR-81
TEST RESET ATTENTION 'A' & 'B' BY MASSBUS INIT

043160
043166
0463174
043200
043206
043214
043222
043230
043232
043240
043246
043254
043256
043262
063264
043270
043272
043276
043304
043312
043316
043324
043332
043336
043344
043352
043360
043366
043370
043376
043404
043412
043414
043420
043422
043426
043430

016037
012737
060037

012737
013737
042737
023737

001414
013737
042737
053737
104010

005137
000240
005737
001402
000137
113760

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010

005137
000240
005737
001402
000137

000012
000012
001122
100000
001126
077777
001124

001126

100000

001174

001126
001122

CMpP
BEQ

001174
001174
001124

MOV

67%:

001250

001126
100000
001174

ADD
MoV
MOV
BIC

001124
001164
001164
001164

001250

044246
001226
001226
001250
000012
000012
001122
100000
001126
077777
001124

MOV
MOV

BIC
BIS
EMT
com
NOP
TST
BEQ
JMP

000010
001240

mMovB
MOV

001126
001122

MoV
MOV
ADD
MoV
MOV
BIC

CLR

001124
001164
001164
001164

001174
001174
001124

001250

69%:

001250
044246

CMP
BEQ
MOV
8IC
BIS
EMT
com
NOP
TST
BEQ
JMP

N 14
18:06:25 PAGE 10-79

SEQ 0117
RMDS(RO) ,$8DDAT
,;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF

RO, $BDADR

#ATA ,SGDDAT

$8DDAT ,$TMPO

043540
043546
043554
043562
043564

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037
042737
013737
042737

023737

001006
005737

001254
000012
001122
111700
001224
000012
024001
001170
100100
001226
000012
024001

001172
100100

001164

001122
001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

CLR

MOV
ADD
MOV
Movs
Mov

BIC

MOV
BIC

MOvVB

MOV

Bi(
MOV
BIC
(MP
BNE
TST

ERROR MESSAGE

;WHAT REGISTER SHOULD Bf

sMOVE REGISTER CONTENTS TO '$TMPO’

#*CATA,S$TMPQ

:SAVE

$GDDAT,$TMPO
$7%
$BDDAT ,$TMP4

SPECIFIED BITS

;COMPARE THE BITS
;BR If OK
.COPY 'BAD DATA'

RATA,STMP4

sCLEAR

?6MP4,SGDDAT

;'OR"

THE MASKED BJTS

WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
.6
18
PORTB ,RMCS2(R0O)

;WAS ATTN BIT FOR PORT A SET ?
;BR IF IT WAS
;BYPASS REST OF TEST [F NOT
;SELECT PORT B

PORTB,PTNBR
CKERR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
;CLEAR THE °'CHECK ERROR' INDICATOR

RMDS (RO) ,$8DDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,$BDADR
.ADD RH/RM BASE ADDRESS
#ATA, SGDDAT
;WHAT REGISTER SHOULD BE

$BDDAT,$TMPO

#~CATA, $TMPQ

$GDDAT,$TMPO

;MOVE REGISTER CONTENTS TO °'$TMPO’

SAVE

SPECIFIED BITS

. COMPARE THE BITS

69%

;BR IF 0K

RATA, $TMPS

;CLEAR THE MASKED BITS

$BDDAT ,$TMP4

. COPY

‘'BAD DATA'

?6MP4,SGDDAY

;'OR*

WITH GOOD DATA FOR TYPEOUT

CKERR

;SET

THE REGISTER COMPARE ERROR INDICATOR

CKERR

;WAS ATTN BIT FOR PORT B SET ?

.46
1%

:VERIFY THAT THE DRIVE

043434
043440
043446
043452
043460
043466
043474
043502
043510
043516
043524
043532

;ADD RH/RM BASE ADDRESS

;BR IF IT WAS
;BYPASS REST OF
IS

STILL

RELERR
#RMDS , $BDADR

‘RO, $BDADR
#111700, SGDDAT
PORTA,RMCS?2 (R0)
RMDS (RO) , $TMP2

TEST IF NOT

IN NEUTRAL

;CLEAR THE 'RELEASE ERROR ' INDICATOR
;FORM THE ADDRESS OF RMDS FOR TYPEOQUT

;ADD THE ]/0 BASE ADDRESS

s COMPARSJON CONSTANT
sSELECT PORT A.

;GET THE DRIVE STATUS REGISTER FROM PORT A.
:CLEAR DONT CARES
:COPY IT INTO '$TMPO'

#PIPIWRL {OM,$TMP2
$TMP2,$TMPO

HATA!VV, $TMPO
PORTB,RMCS2 (RQ)

:CLEAR PORT DEPENDENT BITS FROM THE COPY

;SELECT PORT B.
¢GET THE DRIVE STATUS REGISTER FROM PORT B.
#PIP'WRL 1OM.$TMP3
sCLEAR DONT CARES
$TMP3, $TMP1
:COPY IT INTO '$TMP1'
HATATVV,$TMP1
:CLEAR PORT DEPENDENT BITS FROM THE COPY
$TMPO,$TMP1
:ég }?ENS;ATUS REGISTER THE SAME FROM BOTH PORTS ?
718
$TMPO
;REGISTERS ARE THE SAME: ARE THEY ZERO ?

RMDS (RO) , $TMP3

SHMRBO RMO5/3/2 DL POR TST '
MAIRC v04.00
4-APR=-8°
T
TEST RESET ATTENTION ‘a® £ °B° BY MASSBUS IN]T

043570
063572
63576
043600
063606
043614
0463622
063626
043630
043636
063646
063652
0643656
063660
043666
3676
043702
043706
043712
(63720
043726
043730
043732
043740
043746
043754
043756
043760
0463762
043766
043770

001045
106046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
023737
001401
104007
013737
013737
(C23737
001401
104007
000240
005737
001402
000137

043760
001170
001226
001226
001164

001126
001240
000010

71%:

001226
001172
00'224
001166

001240
001126
000010

177777
000011
000013

001254
000000
000000

72%:

001170
001224
0C1124

001126
001240
001126

73$:

001172
001226
001124

001126
001240
001126

74$:

75$:

001254

044246
s 1SSUE

043774

012760

030040

000010

BNE
EMT
MP
MOV
MOV
MOv8
1ST7
8EQ
MOV
MOV
MOV
TST
BNE
MOV
MOV
MOV
EMT
mcv
MOV
M
BEQ
EMT
MOV
MOV
MP
BEQ
EMT
NOP
TST
BEQ
JMP

8 15

1B:06:¢5 PAGE

10-80

738
46
758
$TMP2 ,SBDDAT
PORT8 ,PTNBR
PORTB ,RM(S2(R0O)
$TMPO
723
PORTA ,PTNBR
$TWP3 ,SBDDAT
PORTA ,RMCS2(R0O)
s$TMPY
738
#-1,RELERR
#11,RM(S1(RO)
#13,RMCST(RO)
26
$TMP2 SBODAT
PORTA ,PTNBR
S$GDDAT,$BDDAT
74$
7
$TMP3 SBDDAT
PORTB,PTNBR
$GDDAT ,$BDDAT
75%
7
RELERR
.*6
1%

SEQ 0120

;BR [+ NOT
JBYPASS THE REST OF THE (HECKS
sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
;SELECT PORT B.
JSEE IF STATUS EQ O FROM PORT A,
:BR IF ZERO
JSEIZING PORT [F TEST SHGWS DRIVE NOT IN NEUTRAL
:'BAD DATA® FOP ERROR TYPE QUT
;SELECT PORT A,
;SEE IF STATUS EQ ZERO FROM PORT 8.
JBR IF NOT
;SET 'RELEASE ERROR' INDICATOR
;CLEAR THE DR]JVE
;RELEASE THE DRIVE
LOOK FOR BIT FAJLURES WHEN RMDS READ
s CHANGE PORT NUMBER
ALL BJTS OK ?
:BR IF OK FROM PORT A,
sCHECK RMDS FOR BIT FAJLURES - FROM PORT B.
s CHANGE PORT NUMBER
;SEE IF READ OK FROM PORT B.
;BR IF 0K
JWAS DRIVE IN NEUTRAL ?
JBR IF IT WAS
;BYPASS RESET OF TEST

THE MASSBUS INIT
MoV

#CLR,RMCS2(R0O)

;ISSUE A MASSBUS INIT

sCHECK THE ATTENTION BITS OF BOTH PORTS
044002

044010
044016
C44022
044030
044C36
044042
044066
0440564
044062
044070
044072
044100
044106
044114
044116
046122
066124
044132

113760

013737
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104051
005137
000240
113760
013737

001224

000010

001226
001250
000012
000012
001122
001124
001126
077777
001124

001164
001164
001164

001126
100000
001174

001174
001174
001124

001126
001122

001250

001226
001226

MOVB

001240

000010
001240

76$:

MOV
CLR
MoV
MOV
ADD
CLR
MOV
BIC
cMP
8EQ
mMov
B8IC
8IS
EMT
oM
NOP
MovB
mMov

PORTA RMCS2(R0O)

;SELECT PORT A

PORTA _PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
CKERR
;CLEAR THE ‘CHECK ERRCR' INDICATOR
RMCS (RO) ,$8DDAT
. GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
;ADD RH/RM BASE ADDRESS
$GDDAT
JWHAT REGISTER SHOULD BE
$8DDAT, $TMPQ
;MOVE REGISTER CONTENTS TO '$TMPQ’
WN~CATA $TMPO
;SAVE SPECIFIED BITS
$GDDAT,$TMPO
. COMPARE THE BITS
76$
:BR IF OK
$BDDAT,$TMP4
;COPY °‘BAD DATA’
#ATA,$TMPS
;CLEAR THE MASKED BITS
$TMP4 , SGDDAT
;'OR' WITH GOOD DATA FOR TYPEQUT
51
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR

PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

)

MRBU RMO5/3/2 DU POR

IST

TEST RESET ATTENTION

046140
046144

993
1007

044152
044160
044164
0464170
044176
044204
044212
044214
044222
044230
064236
044240
044244
044246

005037
016037
012737
060037
005037
013737
062737
023737
001414

MACRO v04.00
4-APR-81
°*A° £ 'B' BY MASSBUS INIT

001250

C15

18:06:25 PAGE

SE0 021

CLR
MOV
MOV

CKERR
sCLEAR THE °'CHECK ERRCR® INDICATOR
RMDS (RO) ,$BDDAT
.GET CONTENTS OF RMDS
#RMDS
, SBDADR
;FORM REGISTER ADDRESS OF ERROR ME SSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE

ADD

CLR
MOV
BIC
(mP
8tQ
MOV
BIC
8IS
EMT
oM
NOP

001164
001164
001164

013737
042737
053737

001174
001174
001124

104051

005137

000240
000004

78%:
1%

1008

10-81

SB8DDAT,$TMPO

#-CATA,$TMPO

$GDDAT,$TMPO
/8%
$BODAT,$TMP4

.MOVE REGISTER CONTENTS TO ‘S$STMPQ’
;SAVE SPECIFIED BITS
;COMPARE THE BITS
sBR IF OK

. COPY °*BAD DATA'
;CLEAR THE MASKED BITS

#ATA,$TMPL

g{MP4.SGDDAT

;'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

LSET THE REGISTER COMPARE ERPOR INDICATOR
;LOOP 2

SCOPE

AL LR

SAA RS

;*TEST 33

RESET ATTENTION

. %

'A'

2222222222

'B’' BY RMAS

:*VERIFY THAT BOTH ATTENTION BIS CAN BE RESET BY WRITING THE
;*APPROPRIATE BIT
b1

IN THE ATTENTION SUMMARY REGISTER.

.“

SET

VERIFY THE DRIVE

WRITE

THE ATTENTION BITS FCR BOTH PORTS.

'.
e MR

044250
044254

064256
044260
044264

1009
1053

044272
044300
0464306
044306
044314
044320

005737
001406
100002
000137
012737
012737
012737
112737

012706
012737

003074
177777

044306
044306

000033
001100
000002

A N

TST33:

001300

TST

BEQ
8PL

001300
001106
001110
001102

18:

2$:

TEST33:

001176

THE DRIVE'S ATTENTION BJT

IN RMAS.

THAT BOTH ATTENTION BITS ARE RESET AS

044250

[S IN NEUTRAL.

JMpP
MOV

AN R AN AN AR RN RN RN

KYBCTL

28
1%
EXEC

VERIFY

SEEN BY RMAS.

AR AR AN A RN A NRA R AT A AN R AR IR A INNNRARE NS

JPERFORMING ONLY SINGLE

:BR IF NOT
;BR IF JUST ENTERED TEST

TEST

SRETURN £ GET NEXT TEST NUMBER

MOV

#-1,KYBCTL
WTEST33,$LPADR
A#TEST33,8LPERR

;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

MOVB
MOV
MOV

#STACK,SP

#33 STSTNM

;MOVE #33 TO TEST NUMBER

#2.

;:DO 2. ITERATIONS

MOV

STIMES

;JSET SINGLE TEST INDICATOR

;LOAD _THE STACK POINTER

sSET ATTENTION BITS FOR BOTH PORTS
044326
044334
044340
0464342
044350

044354
044362
044366
044370

113760

005760
001775
012760
005060
013760
005760
001775
012760

001224
000012

000010

177777

000014

000014
001226
000012

177777

000010

000014

663 :

64%:

MOVB
TST
BEQ
MOV
(LR
MOV
TST
BEQ
MoV

PORTA_RM(CS2(R0)
RMDS (RO)
66%

;SELECT PORT 64$
:MAKE SURE DRIVE

RMER1 (RO)
PORTB,RM(S2(RO)
RMDS (R0O)
648

;CLEAR THE ERRORS
;SELECT THE OTHER PORT

#-1,RMER1 (RO)

#-1,RMERT (RO)

AVAILABLE

;FORCE ERRORS

JWAIT FOR DRIVE

TIMEOUT

sBR IF DRIVE HASN'T TIMED OUT
;FORCE

ERRORS ON PORT 65%

’R“RBO RMOS/3/2 DU POR

TST

1
£

MACRO v04.00

RESET

ATTENTION

0446376
0464402
0444170

0C5060
113760
005760
001775

000014
001224
000012

044416
044424
044432

113760

001224
001224
001250
000012
000012
001122
100000
001126
077777
001124

001124
001164
001164
001164

001126
100C00
0C1174

001174
001174
001124

044414

044436

044444
044452
044456
044464
044472
044500
044506
044510
044516
0464524

044532
044534
044540

044542

0464546
044550
044554
044562
044570
044574
044602
064610
044614
044622
044630
044636
044644
044646
044654
044662
044670
044672
044676
044700
044704
044706

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010

005137
000240
005737
001402
000137
113760

013737
005037
016037

012737

060037
012737
013737
042737
023737
001414
013737
042737
053737
104010
005137
000240
005737
00140c
000137

'A°

'B'

BY RMAS

000010

000010
001240

65%:

SEQ 0122

(LR
MOVB

TST
BEQ

MOV

CLR
MOV

MOV

001250
045372
001226
001276
001250
000012
000012
001122

D15
18:06:25 PAGE 10-82

RMERT (RO)
PORTA ,RM(CS2(R0O)
RMDS (RO)
653

000010C
001240

PORTA,PTNBR

005037
012737
060037
012737
113760
016037
062737
013737

;MOVE

PORT ADDRESS

TO LOCATION FOR

CKERR
;CLEAR THE 'CHECK ZRROR'
RMDS (RO) ,$BDDAT
~;GET CONTENTS OF RMDS

#RMDS ,$BDADR

;FORM REGISTER ADDRESS OF

TYPEOUT

INDICATOR

ERROR MESSAGE

ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC
?&?

RO, $8DADR
;ADD RH/RM BASE ADDRESS
#ATA,SGDDAT
:WHAT REGISTER SHOULD BE
$BDDAT,$TMFO ~ :MOVE REGISTER CONTENTS TO ‘$TMPO’
#-CATA $TMPO
:SAVE SPECIFIED BITS
SGDDAT.STMPO ~ :(OMPARE THE BITS
67
‘BR IF OK
SBDDAT,$TMP4
- COPY °‘BAD DATA'
#ATA, $TMPL
:(LEAR THE MASKED BITS
?BMP4,$GDDAT
;'OR* WITH GOOD DATA FOR TYPEOUT

ggg

CKERR

TST
BEQ
JMP
MOVB
MOV
CLR

CKERR
;WAS ATA SET FOR A??
.+6
SYES - CONTINUE
is
*BYPASS REST OF TEST
PORTEB,RMCS2(R0O)
~:SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR

;SET

THE REGISTER .COMPARF ERROR

INDICATOR

001126
001122

MOV

RMDS (RO) ,$8DDAT

~:GET CONTENTS OF RMDS

100000

:ADD RH/RM BASE ADDRESS

001126
100000
001174

001174
001174
001124

MOV
MOV
BIC
cvp
BEQ
MOV
BIC
?fl?

RO, $S8DADR

001126
077777
001124

001124
001164
001164
001164

ADD

#ATA_$GODAT
;WHAT REGISTER SHOULD BE
$SBDDAT,STMPO = :MOVE REGISTER CONTENTS TO 'STMPO'
#~CATA.STMPQ
:SAVE SPECIFIED BITS
SGDDAT,STMPO ~ ;COMPARE THE BITS
698
BR IF OK
SBDDAT,$TMP4
:COPY 'BAD DATA'
#ATA, $TMPS
*CLEAR THE MASKED BITS
?BMP4.SGDDAT
:*OR' WITH GOOD DATA FOR TYPEOUT

58?

CKERR

;SET

TST
BEQ
JMP

CKERR
.+6
is

;WAS ATA SET FOR B??
*YES - CONTINUE
‘BYPASS REST OF TEST

001250

MOV

001250

045372

#RMDS ,$BDADR

;VERIFY THAT THE DRIVE

044712
064716
044726
044730
044736
044744
044752
044760

;CLFAR THE ERRORS
;SELECT PORT ‘648"’ AGAIN
JWAIT FOR DRIVF TO TIMEQUT
:BR IF DRIVE HASN'T TIMED OUT ,

:CONFIRM THAT BOTH ATTENTION BITS ARE SET
MOVR
PORTA ,RM(CS2(R0O)
;SELECT PORT A

001126
001122

001250

4-APR-B1

001254
000012
001122
111700
001224

000012
024001
001170

001122

001124
000010
001170
001170
001164

;FORM REGISTER ADDRESS OF ERROR MESSAGE

IS STILL

THE REGISTER COMPARE ERROR

INDICATOR

IN NEUTRAL

CLR
MOV
ADD

RELERR
#RMDS,$BDADR
RO, SBDADR

;CLEAR THE 'RELEASE ERROR ' INDICATOR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT
*ADD THE 1/0 BASE ADDRESS

MOVB
MOV

PORTA,RMCS2(R0O)
RMDS (RO),$TMP2

-SELECT PORT A.
:GET THE DRIVE STATUS REGISTER FROM PGRT A.

MOV

$TMP2, $TMPO

SCOPY'IT INTO "$TMPO®

MOV

BIC

#111700,$GDDAT

: COMPARSION CONSTANT

APIP'WRL 1OM, $TMP2

;

:CLEAR DONT CARES

§~MQBC RMOS/3/2 DU _POR

RESET ATTENTION

046766
0447764
045002

045010

045016
045024
045032
265040
045042
045046
045050
045052
045056
045064
045072
045100
045104
045106
045114
045122
045130
045134
0465136
045144
045152
045160
045162
045170
045176
045204

045206
045210
0645216
045224
045232
045234

045236
045240
045244
045246

042737
113760
016037

042737

013727
042737
023737
001006
005737
001045
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
023737
001401

104007
013737
013737
023737
001401
10400/

000240
005737
001402
(00137

IST

'A*

100100
001226
000012

024001

001172
100100
001164

MACRO V04.00

°'B' BY RMAS

001164
000010
001172

001172

BI(C

001166
001166
001166

001126
001240
000010

71%:

001224
001172
0Ci224
001166

001240
001126
000010

177777
000011
000013

001254
000000
000000

72%:

001170
001224
001126

001126
001240
001126

73%:

001172
001226
0C1124

001126
001240
001126

74%:

75%:

001254
045372

SWRITE

045252

013760

001236

000016

045260
045266
045274
045276
045302
045310
045316

016037
023737
001414
010037
062737
013737
043737

000016
001236

001126
001126

001122
000016
001126
001236

001122
001124
001124

045324

045326

104060

E 15

18:06:25 PAGE

10-83

oG 70

BIC
movB
MoV

001164
045236
001170
001226
001226
001164

4-APR-81

MOV
BIC
(MP
BNE
TST
BNE
EMT
JMP
MoV,
MOV
MovB
TST
BEQ
MoV
MOV
MOVB
TST
BNE
MOV
MOV
Moy
EMT
MOV
MOV
P
BEQ

ctMT
MOV
MoV
cme
BEQ
EMT

NOP
1ST
8EQ
JMP

WATA!VV,$TMPO
PORTB,RMCS2(RQ)
RMDS (RO) ,$TMP3

;CLEAR PORT DEPENDENT RITS FROM THE (OPY
:SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORTM B,

#PIP!WRLOM,$TMPS

;CLEAR DONT CARES

$TMP3,$TMP1
;COPY 1T INTQ *STMPT'
NATATVV,STMP1
:(CLEAR PORT DEPENDENT BITS FROM THE (OPY
$TMPO,$TMPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
71%
;BR IF NOT
$1MP0
;REGISTERS ARE THE SAMF: ARF THEY ZERO °
733
;BR IF NOT
46
75%
;BYPASS THE REST OF THE (HECKS
$TMP2, SBDDAT
;SET UP POSSIBLE BAD DATA FOx ERROR MESSAGE
PORTB,PTNBR
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB ,RMCS2(R0) ;SELECT PORT B.
$TMPO
;SEE IF STATUS EQ O FROM PORT A.
72%
:BR IF ZERO
PORTA ,PTNBR
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
$TMP3,$BDDAT
1'BAD DATA' FOR ERROR TYPE OUT
PORTA,RMCS2(R0O) ;SELECT PORT A.
$TMP1
;SEE IF STATUS EQ ZERO FROM PORT B.
73%
:BR_IF NOT
#-1,RELERR
;SET 'RELEASE ERROR' INDICATOR
#11 ,RMCST(RO)
;CLEAR THE DRIVE
#13.RMCS1(RO) :RE{ EASE THE DRIVE
26
$TMP2 , $BDDAT
;LOOK FOR BIT FAILURES WHFN RMDS READ
PORTA ,PTNBR
; CHANGE PORT NUMBER
$GDDAT ,$8DDAT
;ALL BITS Ok ?
743
;BR IF OK FROM PORT A.

7
$TMP3 , SBDDAT

PORTB,PTNBR
$GDDAT ,$BDDAT
75%
7

RELERR
.+6
13

sCHELK RMDS FOR BIT FAILURES ~ FROM PORT B.
;CHANGE PORT NUMBER
;SEE IF READ Ok FROM PORT 8.
;BR IF OK
sWAS DRIVE IN NEUTRAL??
JYES!!
;BYPASS REST OF TEST

THE ATTENTION BIT

MOV

ASR1,RMAS (RO)

;VERIFY THAT BOTH ATTENTIONS ARE RESET BY READING RMAS
MOV
BIT
BEQ
MoV
ADD
MOV
BIC
EMT

2%:

;WAIT

FOR

THE

RMAS (RO) ,$8DDAT
ASR1,$BDDAT
2%
RO, $SBDADR
#RMAS
, $BDADR
$BDDAT, $GDDAT
ASR1,$GDDAT
60

DRIVES

TO RELEASE BY

sGET ATTENTION SUMMARY
21S THE ATTENTION RESET 2?7
SYES !
sSETUP REGISTER ADDRESS
sSETUP EXPECTED DATA
JRESET THIS DRIVES BIT

TIMEOUT

JRMREL

R¥0S/3/2 DU POR

RESFT

045326
045334
065342

0465346

1054
1007

045350
045356
045364
045370
045372

ATTENTION

113760

013737
005760
001775
113760

013737
005760
001775

TST 1
‘A &

MACRO V04.00
'B' BY RMAS

001224
001224
000012

000010
001240

001226
001226
000012

000010
001240

000004

1068

4-APR-81

18:06:¢5 PAGE

10-84

SEQ 0124

3s:

MOVB
MOV
ééé

PORTA ,RMCS2(R0)
:SELECT PORT A
PORTA PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
§Qos<ao>
;MAKE SURE DEVICE 1S AVAILABLE

48:

MOVR
MOV
ééé

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR 1YPEOU!
ons<no>
:MAKE SURE DEVICE IS AVAILABLE

1$:

SCOPE

.‘:lttttfittt'l't"itl't.i"t'ttt"tt'ttttttfitt'fi"ttfitt"tflt..tt't

J*TEST 34

PORT

i*VERIFY THAT
.

'A' ALTERNATE ATTENT]ON PATH TEST

THE Al TERNATE ATTENTION REGISTER READ PATH [S CPERATIONAL
.

SET

SEIZE

READ THE ATTENTION REGISTER € VERIFY THAT

THE ATTENTION BIT

. %

*®

FOR

FOR PORT

THE DRIVE THROUGH PORT

THE

DRIVE

'A'.

'B' BY WRITING 0°S INTO RMDS.

SET.

THE ATTENTION BIT

. w

“069

045374
045374
045400
045402
045404
045410
045416
045424
045432
045432
045440
0465444

:-"t.ttttfi'tt'.t".tt.t"‘t'lt'.*‘ttt*t.ttttttttt.tttttttt'ttittt'
005737
001406

001300

000137

003074

100002

012737
012737
012737

177777

TST34:

001200

045432
045432

001106
001110

000034

001102

001100
000012

18:

2%:
ST

1ST
BEQ
8PL

KYBCTL
2
18

MOV

#-1.KYBCTL

JMP

MOV
MCV

" MOVS
MOV
MOV

001176

EXEC

;PERFORMING ONLY SINGLE TEST
:BR IF NOT
‘BR IF JUST ENTERED TEST

SRETURN & GET NEXT TEST NUMBER
*SET SINGLE TEST

INDICATOR

#TEST34,SLPADR
#TEST34.SLPERR

.SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

#34.$TSTAM

;MOVE #34 TO TEST NUMBER

#STACK,SP
#10..8TIMES

‘LOAD THE STACK POINTER
$:D0 10. ITERATIONS

1103

;CLEAR ATTENTION BITS FOR BOTH PORTS
113760

005060
012760
012760
113760
005060
012760
012760
113760

012760
005060
113760
005760
001775
012737
060037

001224
000012
000011
000013
001226
000012
000011
000013
001224
177777
000014

000010

MOV
MOVB
MOV
CLR

PORTA,RMCS2(RO) :SELECT PORT #A
RMDS (RO)
*SEIZE THE DRIVE
#11.RMCS1(RO)
:ISSUE DRIVE CLEAR
#13,RMCS1(RO)
:RELEASE THE DRIVE
PORTB,RMCS2(R0) -SELECT PORT #8
RMDS (RO)
*SEIZE THE DRIVE THROUGH PORT °S°
#11,RMCS1(RO)
:ISSUE DRIVE CLEAR
#13.RMCS1(RO)
-RELEASE THE DRIVE
PORTA,RMCS2(RO) ' :SELECT PORT A
#-1,RMERT(R0O)
;SET ERRORS TO FORCE ATIN BIT ON PORT A
RMERT (RO)
‘CLEAR THE ERRORS

TST
BFQ
MOV
ADD

RMDS (RO)
1%
#RMAS ,$8DADR
RO, $BDADK

000000
000000
000010

MOV
MOV
MOVB

000000

MOV

CLR

000000
000019
000014

001226

000010

000016
001122

001122

000012

MOVB
CLR

1$:

MOVB

PORTB,RMCS2(R0)

:SELECT PORT B

;WATT FOR DRIVE TO RETURN TO NEUTRA.
‘BR IF STILL SEIZED BY PORT A
:FORM ADDRESS OF ATIN REG IF ERRCR
*ADD THE ADDRESS BASE

r’RMQBO

RMO0S/3/2

DU POR

PORT

ALTERNATE

'A'

065574

045602
045610
Q45614
045622
045630
045636
065644
045650
045656

013737

013737
005137
012737
113760
013737
013737
(COS5060
016037
013737

045664
045672
045700
045702
045704

043737
023737
001401
104053

045704
045712
045720

113760
013737

012760

TST

MACRO

v04.00

ATTENTION PATH

001236

(001236
001166
045650
001226
001226
001226
000012
000016
001126

001166
001124

&-APR-B1

TEST

MOV

001166

MOV
{OM
MOV
MOVB
MOV
MOV
CLR
MOV
MOV

001110
000010
001240

001242

2%:

3s:
JRELEASE
001226
001226

000013

000010
001240

BIC
(MP
BEQ
EMT

MoV

JVERIFY THAT

045726
045732
045740
045744
045752
045760
045766
045774
0646002

005037
(12737
060037
012737
113760
016037
042737
013737
042737

001254
000012
001122
011700
001224
000012
024001
001170
100100

046016

016037

000012

046032
046040
046046
046054
046056
0466062
046064
0466066
046072
046100
046106
046114
046120
0646122

013737
042737
023737
001006
005737
001045
104046
000137
013737
013737
113760
005737
001414
013737

001172
100100
001164

046010
046024

113760

042737

046130
0646136
046144
046150
046152
046160

013737
113760
005737
001012
012737
012760

V46176

104026

046166

012760

001122
001124

000010
001170
001170
001164
001164

001224

001240

001172
001224
001166

001126
000010

177777
000011
000013

0012546
000000
000000

65%:

#13,RMCST1(RO)
THE DRIVE

IS STILL

s ISSUE RELEASE THROUGH PORT B
IN NEUTRAL

MOV
31
(MP
BNE
TST
B8NE
EMT
JMpP
Mov
MOV
MOVB
TST
B8EQ
MOV

$TMP3,$TMP
#ATA!VV.:TMP1
$TMPO,$TMP]
648
$TMPO
66%
46
68%
$TMP2 ,SEDDAT
PORTB,PTNBR
PORTB ,RMCS2(R0O)
$TMPO
65%
PORTA,PTNBR

:COPY IT INTO '$TMP1*
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
JBR IF NOT
;REGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

BIC

64%:

PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT

-GET THE DRIVE STATUS REGISTER FROM PORT B.

001172

001126
001240
000010

;CLEAR OTHER BITS
JSEE IF ATIN BIT FOR DRJIVE SET
JBR [F SET

RMDS(RO) $TMP3

024001

046266
001170
001226
001226
001164

$TMP1,$TMPO
$GDDAT,$TMPO
3%
53

MOV

MOVR

001164

,GO0OD DATA FOR ERROR “ESSAGE

RELERR
;CLEAR THE ‘'RELEASE ERROR ' INDICATOR
#RMDS , $SBDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $8DADR
;ADD THE 1/0 BASE ADDRESS
#MOL ! PGM!DPR!
! VV,8GDDAT
DRY
;COMPARISON CONSTANT
PORTA ,RNM(CS2(R0) :SELECT PORT A.
RMDS(RQO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.
APIP!WRL !OM,$TMP?
sCLEAR DONT CARES
$TMP2 ,$TMPO
;COPY IT INTO 'STMPO’
#ATA'VV ,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE (OPY

(00010
001166
001166
001166

ASR1,8GDDAT

ASR1,$TMP1
;MAKE DATA (COMPARE MASK
$TMP
;COMPLEMENT T
#2% ,SLPERR
;LOAD LOOF ON ERROR ADDRESS
PORTB,RMCS2(R0O)
;SELECT PORT B
PURTB,PTNBR
MOVE PORT ADDRESS TO LOCATION FOR T/PEOQUT
PORTB,SE[2PT
J'SEIZED' PORT ADDRESS
RMDS (R0O)
JSEIZE THE DRIVE THROUGH PORT B
RMAS (RO) , $BDDAT ;GET THE CONTENTS OF THE ATTENTION REG
$BODAT ,$TMPO
;PUT CONTENTS INTO WORKING LGCATION

(LR
MOV
ADD
MOV
MOVB
MOV
BIC
MOV
BIC

001226

001172

10-85

THE DRIVE FROM PORT B
MOVR
MOV

000000

G 15

PAGE

SEC 0125

001124

061126
001164
001164
001164

18:06:¢5

PORTB, RMCS2 (RO) JSELECT PORT B.

#PIP'URL'OM $TMP3

MOV
MOVR
157
BNE
MOV
MOV

$TMP3,$BDDAT
PORTA ,RMCS2(RO)
$TMP
66%
#-1,RELERR
#11,RMCST(RO)

EmM7

MOV

#13 ,RMCS1(RO)

;CLEAR DONT CARES

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
BR IfF ZERQ
JSEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL

-'BAD DATA' FOR ERROR TYPE 0QuT
;SELECT PORT A.
;SEE IF STATUS EQ ZERQO FROM PORT B.
JBR If NOT
;SET 'RELEASE ERROR' INDICATOR
JCLEAR THE DRIVE
JRELEASE

THE DRIVE

H 15
18:06:25 PAGE 10-86

CRMRBL RMO5/3/2 DU POR TST 1
MACRO v04.G0
&-APR-81
T
PORT *A' ALTERNATE ATTENTION PATH TEST

046176
0646204

013737
013737

001170
(01226

066220
046226
046230
046232
Qe6240
046246

023737
001401
104007
013737
013737
042737

001126

046262
046264
046266
046270

001601
104007
000240
000004

0466212

046254

1104

042737

023737

001126
001240

100000

001126

001172
001226
100000

001126
001240
001126

001124

668%:

MOV
MOV

$TMP2 ,$BDDAT
PORTA,PTNBR

BIC

001126

6&7%:

001126

#ATA,SBDDAT

;DON'T CHECK THE ATTN BT

cmpP
BEC
EMT
MOV
MOV
BIC

$GDDAT ,$8DDAT
67%
7
$TMP3, SBDDAT
PORTB,PTNBR
#ATA,SBDDAT

JALL BITS Ok ?
;BR IF OK FROM PORT A.

BEQ
EMT
NOP
SCOPE

68%
7

;BR IF

CMP

68%:

JLOOK FOR BIT FAJLURES WHEN RMDS READ
; CHANGE PORT NUMBER

$GODAT ,$8DDAT

;JCHECK RMDS FOR BIT FAILURES - FROM PORT B.
;CHANGE PORT NUMBER
;DON'T CHECK THE ATIN RIT

;SEE ]F READ 0K FROM PORT B.
0K

;LOOP 7

177

'118

:"tt't'ttt'tt'fitttt*t"tttt'tfitt.tl't'.t'ttttttt'tttttt"ti'.tttt

+TEST 3§

PORT

'B' ALTERNATE ATTENTION PATH TEST

P*VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH [S OPERATIONAL.
N

SET THE ATTENTION BIT FOR PORT

SEIZE

READ THE ATTENTION REGISTER § VERIFY THAT

046272

046276
046300
046302
046306
046314
046322

046330
046336

11qq 046342

FOR

THE DRIVE THROUGH PORT

THE

DRIVE

‘B’.

'A' BY WRITING 0'S INTO RMDS.
THE ATTENTION BIT

SET.

;:'.l'tt"l’.t't'fifit.t'"t't'ttfi'ltttttt'ttttttt"ttt!'tttt.*ttt't
0057_7

T8735:

001300

001406
100002
000137
012737
012737
012737

003074
177777
046330
046330

112737
012706
012737

000035
001100
000012

001300
001106
001110
001102
001176

1$%:
28:
resras.

TST

KYBCTL

;PERFORMING ONLY SINGLE TEST ?

BEQ
BRL
N
MOV
MOV
MOV

2%
1$
EXEC
#=1,KYBCTL
#TEST35,SLPADR
#TEST35,$LPERR

:BR IF NOT
:BR _IF JUST ENTERED TEST
:RETURN & GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERRGR LOOP ADDRESS

MOVB
MOV
MOY

#35,STSTNM
#STACK, SP
#10.,$TIMES

:MOVE #35 TO TEST NUMBER
:LOAD THE STACK POINTER
:;D0 10. ITERATIONS

1120

:CLEAR ATTENTION BITS FOR BOTH PORTS
046350

113760

001224

000010

MOVB

PORTA, RMCS2(R0)

012760
012760
113760

000011
000013
001226

000000
000000
000010

MOV
MOV
MOVB

#11,RMCS1(RO)
#13,RMCS1(RO)
PORTB,RMCS2(R0O)

:ISSUE DRIVE CLEAR
:RELEASE THE DRIVE
:SELECT PORT #8

012760
012760
113760
012760
005060
113760

000011
000013
001226
177777
000014
001224

000000
000000
000010
000014

MOV
MOV
MO,3
MOV
(LR
MOvB

#11,RMCS1(RO)
#13,RMCS1(R0)
PORTB,RMCS2(R0O)
#-1,RMERT(RO) ~
RMER1(RO)
PORTA,RMCS2(RO)

:ISSUE DRIVE CLEAR
:RELEASE THE DRIVE
';SELECT PORT B
;SET ERRORS TO FORCE ATTN 3IT ON PORT B
:CLEAR THE ERRORS
;SELECT PORT A

046356

005060

046404

005060

066362
0646370
046376

066410
046416
046424
046432
046440
Q46444

000012

000010

CLR

RMDS (RO)

;SELECT PORT #A

:SEIZE THE DRIVE

:SEIZE THE DRIVE THROUGH PORT ‘B’

Jame( wMOS/372 DU POR

PURT

'B'

066452

066456

Q66460
066466
046472

0646500

066506

066512
066520
046526
0646534
046542
046546
046554
0466562
046570
066576
046600

0466602

046602
046610
046616

TST

MACRO vU4.00

ALTERNATE ATTENTION PATH TEST

005760

001775

000012

012737
060037
013737

000016
001122
001236

005137

001166

(13737

012737
113760
013737
013737
005060
016037
013737
043737
023737
001401
104053

001236

046546
001224
001224
001226
000012
000016
001126
001166
001124

&~APR-B1

TS7

8EQ

001122

MOV
ADD
MOV
MOV
(oM
MOV
MOVR
MOV

001124
001166

(01110
000010
001240
0012642

MOV
CLR
MoV

2%:

3%:

MoV
BIC
CMP
BFQ
EMT

;RELEASE
113760
013737
012760

001224
001224
000013

000010
001240
000000

RMDS (RO)

005037

001254

113760

001224

046630
046636
046642

012737
060037
012737

046656
046664
046672
046700
046706

016037
042737
013737
042737
113760

000012
024001
001170
100100
001226

042737

024001

046650

0467146

016037

046730
046736
C467464
046752
046754
046760
046762
046764
046770
0646776
047004
047012
047016
047020
047026
047034
0647042
047046

013737
042737
023737
001006
005737
001045
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
C05737
001012

046722

000012
001122
011700

000012

001172
100100
001164

CLR

MOV
ADD
MOV

001124
000010

MOVB

001170
001170
001164
001164
000010

MOV
8IC
MOV
BIC
MOVB

001172

MOV

001166
001166
001166

MOV
BIC
cMP
BNE
TST
BNE
EMT
JMP
MoV
MoV
MOVB
TST
BEQ
MOV
MOV
MOVB
TST
BNE

001172

BIC

001164

047164
001170
001226
001226
001166

001126
001240
000010

001224
001172
001224

001240
001126
000010

001166

64%:

FOR DRIVE

TO RETURN

;FORM ADDRESS OF ATTN REG
;ADD THE ADDRESS BASE

$TMP]

JCOMPLEMENT

ASR1,$TMP1

TO NEUTRAL

;BR 1F STILL SEIZED BY PORT B8
]F

ERROR

;GOOD DATA FOR ERROR MESSAGE
sMAKE DATA COMPARE MASK
IT

#28 SLPERR
;LOAD LOOP ON ERROR ADDRESS
PORTA ,RMCS2(R0O)
:SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PORTA,SEIZPT
;'SEIZED' PORT ADDRESS
RMDS (RO)
;SEIZE THE DRIVE THROUGH PORT A
RMAS (RO) , $BDDAT ;GET THE CONTENTS OF THE ATTENTION REG
$8DDAT ,$TMPO
JPUT CONTENTS INTO WORKING LOCATION
$TMP1 ,$TMPO
;CLEAR OTHER BITS
$GDDAT ,$TMPO
;SEE [F ATTN BIT FOR DRIVE SET
3%
JBR IF SET
53

THE DRIVE FROM PORT A
MOVB
Mov
MoV

001122

;WAIT

#RMAS
, SBDADR
RO,$8DADR
ASR1,8GDDAT

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
#13,RMCS1(RO)
s ISSUE RELEASE THROUGH PORT A

JVERIFY THAT THE DRIVE
0646624

10-87

SEQ 012/

1%:

001126
001164
001164
001164

115

18:06:¢5 PAGE

1S STILL IN NEUTRAL

RELERR

;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS
, $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEQUT
RO, $8DADR
:ADD THE 1/0 BASE ADDRESS
#MOL ' PGM!DPR!DRY'VV,SGDDAT
; COMPARISON CONSTANT

PORTA ,RMCS2(RO)

.SELECT PORT A.

RMDS(R0O) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP'URL'OH $TMP?
;CLEAR DONT CARES
$TMP2,$TMPO
:COPY IT INTC '$TMPO’
NATATVV,STMPO
:CLEAR PORT DEPENDENT BITS FROM THE copPy
PORTB,RMCS2 (RO) ;SELECT PORT B.
RHDS(RO) $TMP3
¢GET THE DRIVE STATUS REGISTER FROM PORT B.
'PIP'URL'OM $TMPS
;CLEAR DONT CARES
$TMP3,$TMPY
;COPY IT INTO '$TMP1®
#ATA!VV.STHP1
:CLEAR PORT DEPENDENT BITS FROM THE COPY
STMPO, STMPT
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
643
‘BR IF NOT
$TMPO
cREGISTERS ARE THE SAME: ARE THEY ZERO ?
663
SBR IF NOT
46
68%
;BYPASS THE REST OF THE CHE(KS
$TMPZ ,$BDDAT
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTB,PTNBR
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,RM(CSZ2(R0O) ;SELECT PORT B.
$TMPO
;SEE IF STATUS £EQ O FROM PORT A.
65%
;BR IF 2ERO
PORTA,PTNBR
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
$TMP3 $BDDAT
; ‘BAD DATA' FOR ERROR TYPE QUT
PORTA,RMCS2(R0O) ;SELECT PORT A.
$TMP1
JSEE IF STATUS EQ ZERO FROM PORT 8.
66%
JBR JF NOT

'ZRMRBO RM(GS/3/2 DU POR TST
PORT

°‘B'

047050
047056
047064
047072
047074
047102
047110
047116
047124
047126
047130
047136
0467144
067152
047160
047162
0467164
047166

ALTERNATE

012737
012760
012760
1046026
013737

013737
062737
023737

001401

MACRC v04.00

ATTENTION PATH

1772777

00001
000013

001170
001224

100000

001124

TEST

001254
000000
000000

65%:

001126
001240
001126
001126

66%:

001126

67%:

4-APR-B1

042737
023737
001401

001172
001226
100000
001124

001240
001126
001126

MOV
MOV

EMmTY

MOV
MOV

BI(
(MP
BEQ
EMT

MOV
MOV

BIC
CMP
BEQ
EMT
NOP
SCOPE

104007

000240
000004

68%:

10-88

SEQ 0128
MOV

104007

013737
013737

18:06:25 PAGE
#-1,RELERR
#11,RMCST(RO)

;SET 'RELEASE ERROR®
;CLEAR THE DRIVE
JRELEASE THE DRIVE

$TMP2
, $BDDAT

;LOOK FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER
JDON'T CHECK THE ATTN BIT
JALL BITS OK ?
;BR IF OK FROM PORT A.

sgS.RMCS1(RO)
PORTA,PTNBR

NATA,$SBDDAT

$GDDAT
, $8DDAT
975

$TMP3, $BDDAT

INDICATOR

JCHECK RMDS FOR BIT FAILURES = FROM PORT B.
;s CHANGE PORT NUMBER

PORTB,PTNBR
#ATA,$BDDAT

JDON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.
;BR IF OK

$GDDAT ,$BDDAT

98$

;LooP ?

M "t'ttti"t'tt.'t"t""'!'itt'tttt.'t'!tfi"'."t"t.'tt'tt'ttt

OPERATION OF

A AND PORT 8 ATTENTION BITS AFTER A

ISSUE A OFFSET COMMAND THROUGH PORT

'A°’.

UAIY FOR THE OFFSET COMMAND TO COMPLETE ('DRY’ TO BECOME
1.
VERIFY THAT THE ATTENTION BIT FOR PORT 'A' IS SET AND
THAT THE ATTENTION BIT FOR PORT ‘B* IS NOT SET.
RELEASE THE DRIVE THROUGH PORT 'A’.
VERIFY THAT THE DRIVE
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

%
®»
%

%
%

YRR

PORT

THE

°'A' BY COMMMAND TEST

COMMAND.

THE

8,0,

*TEST

SET ATTENTION

-TEST

SRR

1140
1169

047170
047170
047174
047176
47200
047204
047212
047220
047226
047226
0467234
047240

005737
001406

001300

000137
012737
012737
012737

003074

100002

112737

012706
012737

177777

047226
047226
000036
001100
000012

R RN R RN TR AN AR AR

TST36

001300
001106
001110
001102

001176

1%:

2%:

TEST36:

R AR E RN AN N AN

RN AR AR AR AA NN AN RANRRRARN

113760

005060
012760
012760

001224
000012
000011
000013

000010
000000
000000

TST
BEQ
BPL
JMP

KYBCTL

MOV

#TEST36,$LPADR
H#TEST36,SLPERR

JRETURN & GET NEXT TEST NUMBER
JSET SINGLE TEST INDICATOR
sSETUP SCOPE LOOP ADDRESS
JSETUP ERROR LOOP ADDRESS

MOvVB

#36,8TSTNM

:MOVE #36 TO TEST NUMBER

Mov

MOV
MOV

2%
13

EXEC

#-1,KYBCTL

#STACK,SP
#10. ,$TIMES

+PERFORMING ONLY SINGLE TEST ?
:BR IF NOT
;BR IF JUST ENTERED TEST

:LOAD THE STACK POINTER,!

;:D0 10. ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS
047266
047254
047260
047266

AN R

MOovB
CLR

MoV
Mov

PORTA,RMCS2(R0)

RMDS (RO)

#11,RMCS1(RO)
#13,RMCST(RD)

JSELECT PORT #A
;SEIZF THE DRIVE
s ISSUE DRIVE CLEAR
JRELEASE THE DRIVE

RETURNED

(ZRMRBO RMOS/3/2 DU POR

T36

StT ATTENTION

047274
0473C2
047306
047314
047322
047330
047336

11376¢
005060
012760
012760
113760

013737
013737

TST

"A'

MACRO v04.00
(OMMMAND TEST

201226
000012
200011
000013
001224
001224
001224

4-APR-81

000015

000010

Move

047352
¢ 032760
047360 001774

000200

PORTB,RMCSZ2(R0O)

CLR
MOV
MOV
MOVB

000000
000000
000010
001240
001242

RMDS (RO)
#11,RMCST(RD)
#13 RMCS1(RO)
PORTA ,RM(S2(R0O)

MOV
MOV

000000

PORTA,PTNBR
PORTA,SEIZPT

BIT

BEQ

:SEIZE THE DRIVE THROUGH PORT
:ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
:SELECT PORT A

'R’

.MOVE PORT ADDRESS TO LOCATION FOR
;'SEIZED' PORT ADDRESS

#15,RMCS1(RO)

FOR DRIVE

000012

;SELECT PORT #8

TYPEOUT

THROUGH PORT A

MOV
JWAIT

10-89

SEQ 0129

;DO A OFFSET

0467344 ]Ol??bO

K 15

18:06:¢5 PAGE

JISSUE A OFFSET

INSTRULTION THROUGH PORT A

TO FINISH
#DRY ,RMDS (RO)

.
JWAIT

FOR DRIVE

TO FINISH

“BR IF NOT FINISHED

JCONF IRM THAT ATTENTION IS SET FOR PORT A

G47362
047366
047374
047402

047406

047414
047422
047430
067436
047440
0474
0474
0474
04674664
047470

005037
016037
012737
060037
012737
013737
042737
023737
001414
013737

042737
053737
104032

05137
000240

001250
000012
000012
00112
100000

001124
001164
001164
001164

001126
100000
001174

001174
001174

001126
077777
001124

(LR
MOV
MOV
ADD
MOV
MOV
BIC
(MP

001126
001122

001250

113760
013737
012760

001224
001224
000013

€48 :

000010
001240
000000

648

‘BR IF OK

BIC

NATA, STMPS

:CLEAR THE MASKED BITS

com

CKERR

JSET THE REGISTER COMPARE ERROR INDICAIOR

g&?

JRELEASE
047472
047500
047506

BEQ

MOV

001124

NOP

047532
047540
047546
047554
047562
047570
047576
047604
047612
047620
047626

005037
012737
060037
012737
113760

016037
042737
013737
042737
113760

016037
042737
013737
042737

001254
000012
001122
011700
001224
000012
024001
001170
100100

001226
000012
024001
001172
100100

001122

001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166

SBDDAT,$TMP4

ggMPé,sGDDAT

:COPY

°‘BAD DATA'

J'OR®

WITH GOOD DATA FOR TYPEOQUT

THE DRIVE FROM PORT A
MOVB
MOV
MOV

JVERIFY THAT

047514
047520
047526

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT
~;GET CONTENTS OF RMDS
#RMDS ,$SBDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS
NATA,SGDDAT
:WHAT REGISTER SHOULD BE
SBDDAT,S$TMPO ~ ;MOVE REGISTER CONTENTS TO ‘S$TMPO*
#-CATA STMPQO
;SAVE SPECIFIED BITS
$SGDDAT,$TMPO ~ ;COMPARE THE BITS

CLR
MOV
ADD
MOV

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#13.RMCST(RO) TM ;ISSUE RELEASE THROUGH PORT A
THE DRIVE

IS STILL

IN NEUTRAL

MOVB
MOV

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS,$BDADR
:FORM THF ADDRESS OF RMDS FOR TYPEQUT
RO, SBDADR
SADD THE 1/0 BASE ADDRESS
#MOL ' PGM'DPR'DRYVV,$GDDAT
; COMPARISON CONSTANT
PORTA,RMCS2(RQ) :SELECT PORT A.
RMDS
(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.

MOV
BIC
MOVB
MOV

$TMP2, $THPO
#ATA'VV,S$TMPO
PORTB,RMCS2(RQ)
RMDS
(RO) ,$TMP3

;COPY IT INTO 'STMPO'
:CLEAR PORT DEPENDENT BITS FROM THE COPY
-SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

MOV

$TMP3,S$TMP

;COPY IT INTO '‘S$TMPT!

8IC

BIC
BIC

#PIPWRL 1OM,$TMP2

:CLEAR DONT CARES

#PIP'WRL IOM,$TMPE

;CLEAR DONT CARES

#ATA.VV,$TMP

JCLEAR PORT DEPENDENT BITS FROM THE

(OPY

S~MRB0O RMO5/3/2 DU POR TST i
MACRO v04.00
T
SET ATTENT]ON *A' BY (OMMMAND TEST

047634
047642
047644
047650
04765¢
047654
047660
047666
047676
047702
047706
0647710
047716
0647724
047732
047736
0477640
047766
047754
047762
047764
047772
050000
050006

050010
050012
050020
050026
050034
050036
050040
050042
050050

023737
001006
00573/
001045
106046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
023737
001401

104007
013737
013737
023737
001401
104007
000240
113760
013737

001164

001166

001164
050040
N01170
001226
001226
001164

001126
001240
000010

668:

001224
001172
091224
001166

001240
001126
000010

177777
000011
000013

001254
000000
00000C

67%:

001170
001224
001124

001126
001240
001126

68%:

001172
001226
001124

001126
001240
001126

698:

001226
001226

000010
001240

70$:

4-APR-B1

L 15

1B:06:¢5 PAGE

10-90

SEQ 013

(MP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVB
TST
BEQ
MoV
MoV
MOVB
TST
BNE
MOV
MOV
MOV
EMT
MOV
MOV
cMP
BEQ

EMT
MCV
MOV
MP
BEQ
EMT
NOP
MOVB
MOV

$TMPO, $TMF1
66%
$TMPO
68%
46
708
$TMP2,$8DDAT
PORTB,PTNBR
PORTB ,RMCS2(R0O)
$TMPO
673
PORTA,PTNBR
$TMP3 $BDDAT
PORTA ,RMCS2(RO)
$TMPY
68%
#-1,RELERR
#11,RMCST1(RQ)
#13_RMCS1(RO)
26
$TMP2 , $BDDAT
PORTA ,PTNBR
SGDDAT ,$BDDAT
69%
7
$TMP3, $BDDAT
PORTSB,PTNBR
$GDDAT,$BDDAT
708

;1S THE STATUS REGISTER THE SAME FROM BOTH PCORT,
JBR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ”
JBR IF NOT
;BYPASS THE REST Of THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT 8.
;SEE IF STATUS EQ O FROM PORT A.
‘BR IF ZERO
:SEIZING PORT IF TEST SHOWS DRIVE NOT_IN NEUTRAL
:"BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A.
:SEE IF STATUS EQ ZERO FROM PORT B,
;BR IF NOT
;SET 'RELEASE ERROR® INDICATOR
;CLEAR THE DRIVE
;RELEASE THE DRIVE
:LOOK FOR BIT FAJLURES WwHEN RMDS READ
s CHANGE PORT NUMBER
;ALL BITS OK ?
‘BR IF OK FROM PORT A,
;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
;CHANGE PORT NUMBER
;SEE IF REAv OK FROM PORT B.
;BR IF OK

PORTB,RM(S2(RO)
;SEIECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATICN FOR TYPEQUT

;CONFIRM THAT ATTENTION IS NOT SET FOR PORT B
050056
050062
050070
050076
050102
50106
050114
050122
050130

005037
016037
012737
060037
005037
013737
042737
023737
001414

001250
000012
000012
001122
001124
001126
077777
001124

001164
001164
001164

013737
042737

001126
100000

001174
001174

050146
050154

053737
104032

050756
050162

005137
000240

001250

050164

000004

—

i
-

ek
b

—

050132
050140

001174

CLR
MOV
MOV
ADD
CLR
MOV
B1(
MP
EEQ

001126
001122

001124

MOV
BIC

$BDDAT,$TMP4
H#ATA,$TMPS

;COPY °'BAD DATA'
;CLEAR THE MASKED BITS

com
NUP

CKERR

JSET THE REGISTER COMPARE ERROR INDICATOR

BIS
EMT

718:

CKERR
;CLEAR THE "CHECK ERROR' INDICATOR
RMDS(RO) ,$8DDAT
,GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT,$TMPO
+MOVE REGISTER CONTENTS TO 'S$TMPQ’
#-CATA,$TMPO
;SAVE SPECIFIED BITS
$GDDAT,$TMPO
;COMPARE THE BITS
718
;BR IF OK
$TMP4 , $GDDAT
32

SCOPE

;'OR'

WITH GOOD DATA FOR TYPEQUT

;LOOP ?

'ttt.t't.t"l".t't't'tt'l!l'.‘fitlitltt""tl RARARARRRAARETRD OGS

'T‘ST

SET ATTENTION

'B'

COMMMAND

TEST

(ZRMRBO RM0S/3/2 DU POR TST

r3?

MACRO v04.00

&-APR-81

SET ATTENTION 'B' BY (OMMMAND TEST

18:06:¢5 PAGE

10-91

SEQ 0131

;*TEST

THE

OPERATION OF

COMMAND.

THE

PORT

A AND PORT

B ATTENTION BITS

AFTER A

L 3

[

ISSUE

*
.

WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE ('DRY' TO Bf(OME
1),
VERIFY THAT THE ATTENTION BIT FOR PORT "B’ IS SET AND

THAT

L ]

—_—

050166
050166
050172
050174
050176
050202
050210
050216
050224
050224
050232
050236

001300

000137
012737
012737
012737

003074

177777
050224

050224

001300
001106
001110

112737
012706
012737

000037
001100
000012

n01102

100002

AR A AR A AN

1ST37:
§

005737
001406

THE

COMMAND

ATTENTION BIT

THROUGH PORT

FOR PORT

‘A’

‘B'.

IS NOT

SET.

RELEASE THE DRIVE THROUGH PORT °‘B'.,
VERIFY THAT THE DRIVE RE TUKNED
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

A RECALIBRATE

AN AN RN NN IR I N A AN NI NN AN AR R AN

TST

8EQ

B8PL

JMP
MOV

1%:

2s:

MOV

TEST37:

KYBCTL

;PERFORMING ONLY SINGLE

2%
1%

TEST

;BR IF NOT
JBR IF JUST ENTERED TEST

EXEC

JRETURN & GET NEXT

#=-1.KYBCTL

TEST NUMBER

JSET SINGLE TEST INDJCATOR

#T:>T737,8LPADR
%EST37,8LPERR

;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

#37 ,STSTNM

;MOVE #37 TO TEST NUMBER

#STACK,SP
#10.,STIMES

001176

AT AN N ARSI N AN CANA IR TR

;LOAD THE STACK POINTER
2:D0 10. ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS
050244
50252
50256
050264
050272
050300

050304
050312
050320

050326

050334

113760
005060
012760
012760
113760
005060
012760
012760
113760
013737
013737

001224
000012
000011
000013
001226
000012
000011
000013
001226
001226
001226

000010

Movse
CLR
MOV
MOV

000000
000000
000010

MovB

(LR
MOV
MOV
MOVB
MOV
MOV

000000
000000
000010
001240
001242

PORTA,RMCS2(R0O) ;SELECT PORT #A
RMDS (RC)
;SEIZE THE DRIVE

#11,RMCS1(RO)
#13,RMCS1(RO)
PORTB,RMCS2(R0O)
RMDS (RO)
#11_RMCS1(RO)
#13,RMCST1(RO)
PORTB,RMCS2(R0O)

;ISSUE DRIVE CLEAR
RELEASE THE DRIVE
:SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SELECT PORT B

°'B*

PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
PORTB,SE1ZPT
;'SEIZED' PORT ADDRESS

;DO A OFFSET THRUUGH PORT B
050342

012760

000015

000000

MOV
;WAIT

050350
050356

032769
001774

006200

000012

FOR DRIVE

BIT
BEQ

#15,RMCS1(RO)

sISSUE A OFFSET

INSTRUCTION THROUGH PORT B

sWAIT

TO FINISH

TO FINISH
#DRY ,RMDS (RO)

.~6

FOR DRIVE

;BR IF NOT FINISHED

;(CNFIRM THAT ATTENTION [S SET FOR PORT B
050360
050364
050372
050400

005037
016037
012737
060037

001250
000012
000012
001122

CLR
MOV
MOV
ADD

(KERR
RMDS (RO) ,$BDDAT

;CLEAR THE °'CHECK ERROR'
,GET CONTENTS OF RMDS

RO, $BDADR

;ADD RH/RM BASE ADDRESS

#RMDS ,$8DADR

;FORM REGISTER ADDRESS OF

INDICATOR
ERROR MESSAGE

CZRMPQO RMOS/3/2 DU POR TST

137

MACRG v04.00

SET ATTENTION *'B* BY COMMMAND

050404
050412
050420
050426
050434
050436
050444
050452
050460
050462
050466

012737
013737
042737
023737
001414
013737
042737
053737
104032

005137
000240

100000

01126
077777
001124

001124
001164
001164
001164

001126
100000
001174

001174
001174
0C112¢4

001250

TEST

4-APR-81

10-92

SEQ 013¢
mMov

MoV
BIC
(MP
8EQ

MOV

648:

18:06:25 PAGE

BIC
B1S
EMT
COM
NOP

NATA,SGDDAT

$ADDAT,$TMPO

sWHAT

#CATA,S$TMPO

$GDDAT ,$TMPQ
648
$BDDAT,$TMP4

HATA ,STMP4

$TMP4 ,SGDDAT
32
(KZRR

SHOULD BE

:MOVE REGISTER CONTENTS T0 '$TMPO*
sSAVE SPECIFIED BITS
;COMPARE THE BITS
JBR IF OK
;COPY ‘'BAD DATA'
;CLEAR THE MASKED BITS

:'OR' WITH GOOD DATA FOR TYPEOUT

;SET THE REGISTER COMPARE ERROR INDICATOR

;RELEASE THE DRIVE FROM PORT B
050470
050476
050504

113760
013737
012760

001226
001226
000013

000010
001240
000000

MovB
MoV
MOV

PORTB,RMCS2(R0)
PORTB,PTNBR

;SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCS1(RO)
. ISSUE RELEASE THROUGH PORT B

JVERIFY THAT THE DRIVE IS STILL IN NEUTRAL
050512
050516
050524
050530
050536
050544
050552
050560
050566
050574
050602
050610
050616
050624
050632
050640
050642
050646
050650
050652
050656
C50664
050672

050700
050704
050706
050714
050722
050730
050734
050736
050744
050752
050760
050762
050770
050776

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037
062737
013737
042737
023737
001006
005737
001045
10404€
000137

013737
013737
113760

005737
001414
013737
013737
113760

005737
001012
012737
012760
012760
104026

013737
013737
023737

601254
000012
001122
011700
001224
000012
024001
001170
100100

001226
000012
024001
001172
100100
001164

CLR

001122

MOV
ADD
MOV
MovB
MOV

001124
000010
001170
001170
001164
001164

000010
001172
001172
001166
001166

001166

001164

051036
001170
001226
001226
001164

001126
001240
000010

66%:

TST

BEQ
MOV

001224
001172
001224
001166

001240
001126
000010

177777
000011
000013

001254
000000
000060

67%:

001170

001126
001240
001126

68%:

001224
001124

8IC
MOV
BIC
MovB
MOV
8IC
MOV
BIC
cMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVB

MOV

MOvVB
TST
BNE

RELERR
W#RM
, $SBDADR
DS

RO, $BDADR

;CLEAR THE

'RELEASE ERROR *

INDICATOR

;FORM THE ADDRESS OF RMDS FOR TYPEOUT

;ADD THE 1/0 BASE ADDRESS

AMOL !PGM!DPR!DRY.VV,SGDDAT

PORTA ,RMCS2(R0O)
RMDS(RO) ,$TMP2

;COMPARISON CONSTANT

;SELECT PORT A.
;GET THE DRIVE STATUS REGiSTER FROM PORT A.
#P
! WRL
IP
| OM, STMP?
:CLEAR DCONT CARES
$TMP2,$TMPO
:COPY IT INTO '$TMPO’
#AT
UV, A!
STMPO
:CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB ,RMCS2(RQ) ;SELECT PORT B.
RMDS (RO) ,$TMP3
:GET THE DRIVE STATUS REGISTER FROM PORT B.
#PIP!WRL iOM,$TMPS
;CLEAR DONT CARES
STMP3 ,$TMPY
;COPY IT INTO '$TMP1°
NATAIVV, STMP
:CLEAR PORT DEPENDENT BITS FROM THE COPY
$TMPO,$TMPT
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?

663
$TMPO
683
46
708
$TMP2, SBDDAT
PORTB,PTNBR
PORTB ,RMCS2(R0)
$TMPO

67%

PORTA,PTNBR

$TMP3, $BDDAT
PORTA ,RMCS2(RO)
$TMP1
68$

¢BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?

;BR IF NOT

;BYPASS THE REST OF THE (HE(KS
;SET _UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NGT IN NEUTRAI

;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
sSEIZING PORT IF TEST SHOWS DRIVL NOT
:'BAD DATA® FOR ERROR TYPE OUT
;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
:BR_IF NOT
;SET 'RELEASE ERROR' INDICATUR

0V
MoV

#-1,RELERR
#11,RMCS1(RO)

;CLEAR THE DRIVE

M0V
MGV

PORTA,PTNBR

$TMP2, $BDDAT

;LOOK FOR BIT FAILURES WHEN =MD

$GDDAT
, $BDDAT

JALL BITS Ok ?

MOv
EMT
(mp

gg3.RHCS1(RO)

:RELEASE THE DRIVE
s CHANGE

PORT NUMBER

READ

IN NEUTRAL

’QHQBO RMO5/3/2 DY POR 1ST 1
MACRO v04.00
SET ATTENTION B’ BY (OMMMAND TEST

51004
051006
051010
051016

05102«
051032
051034
051036
0510640
051046

001401
104007
013737
013737
023737
001401
104007
000240
113760
013737

001172
001226
001124

001326
001240
001126

001224
001224

000010
001240

4-APR-B!

8 16
B:06:¢5 PAGE 10-93

“t@ 0133

8EQ
EMT
MOV
MOV
(mP
BEC
gEMT
NCP
MOVB
MOV

€9%:

70$:

69%
4
$TMP3, $8DDAT
PORTB,PTINBR
$GDDAT ,$BDDAT
708
7

;BRI 0K FROM PORT A,

;{HECK RMDS FOR BJT FAJLURES » FROM PORT B.
: CHANGE PORT NUMBER
;SEE IF READ OK FROM POR" H.
;BR IF OK

PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQOUT

;CONFIRM THAT ATTENTION IS NOT SET FOR PORT A
051054
051060
051066

005037
016037
012737

051074
* 051100
051104
051112
051120
051126
051130
051136
0511464
051152
051154
051160

060037
005037
013737
042737
023737
001414
013737
042737
(C53737
104032
005137
000240

051162

000004

1193
120¢
1203

1204

001250
000012
000012

001122
001124
001126
077777
001124
001126
100000

0011764

001250

(LR
MOV
MOV
ADD
(LR
MOV
BIC
(MP
BEQ
MOV
BIC
BIS
EMT
oM
NOP

001126
001122
001164
001164
001164

001174
001174
001124
71%:

CKERR
CLEAR THE "CHECK ERROR® INDICATOR
RMDS
(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
JWHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO *$TMPQ*
N“CATA ,$TMPO
.SAVE SPECIEIED BITS
$GDDAT,$TMPO
;COMPARE THE BITS
718
;BR IF 0K
SBDDAT ,$TMP4
;COPY °*BAD DATA’
HATA,STMPS
sCLEAR THE MASKED BJITS
$TMPL , SGDDAT
:'OR' WITH GOOD DATA FOR TYPEQUT
32
CKERR
;SET THE REGISTER (OMPARE ERROR [NDICATOR

SCOPE
AR

;LOOP ?

R A RN N AR AN RN A R T PR A RN

AR R AR R RN R AR RN ER R AANI R RN A A RSN RO S AN T

i
S*VERIFY THAT A CHANGE IN UNIT READY SETS THE ATTENTION
oY

FOR BOTH PORTS.

;*THIS FUNCTION

1S PERFORMED DURING

THE

. ”

SET

VOLUME

VALID

TEST.

1205
1206

:"ttt.tttt.t"ltttttt"'t"tttttItt'tttfitttttttttt!"'t'tt't'tttt

1216

1217

o*
S*VERIFY THAT ATTENTION SETS WHEN THE DRIVE

1215

N AR

AR A R RN

R R

A A AR A AN A A NI AN ANV RN R RN AR R AN RNIN R AN A NN TR Rt n b

'BEING RELEASED.
'THIS

1218
1219
1240

1261

IS PERFORMED DURING

THE

SWITCHES AFTER

''SET PORT REQUEST

TEST''

v &

:"ttttlttt!'tttt'tttttt"ttttttttt.tt'ttttttttt'ttltl't.tfitttttnt
A A T N AR AR

A R R

R R

R AR AR AR R A TN

RN AR AR R AR

E R R RN

R ARSI T ON

'TEST 40
PORT 'A' SET VOLUME VALID TEST
;*VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST.
L]

I A,

WITH PORT *A' SELECTED, RESET AND SET 'UNIT READY'

«=APR-81

C 16

18:06:¢5 PAGE

10-9¢4

SEQ 0134

STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE
iS SEJZED AND THAT 'VOLUME VALID'' IS RESET AND
ATTENTION IS SET.
@

ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET
COMMAND 7O THE DRIVE THAT WAS SEIZED IN STEP A,
VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID

[}

RELEASE THC DRIVE FROM PORT ‘A’ AND SELECT THE DR;VE FOR
PORT 'B'. VERIFY THAT ATTENTION IS STIL SET AND THAT
VOLUME VALID 1S STIL RESET.

N
B

IS SET.

BE SR EF B

TR T

" IRMRBC RMOS/3/72 DU POR TST 1
MACRO v04.00
T40
PORT 'A® SET vOLUME VALID TEST

ISSUE A DRIVE CLEAP AND A READ IN PRESET COMMAND TO

PORT

1242
1284

051154
051104
051170
051172
051174
051200
051206
051214
051222
051222
051230
051234

005737
001406

TST40:

001300

100002
0003137
012737
012737
012737

003074
177777
051222
051222

112737
012706
012737

000040
001100
00C012

NN AN

R AT

TST

BEQ
BPL

001300
001106
001110
001102

001176

JMP

'B'

THEN RFLEASE

PORT

°'B’.

AR AN AR AN RN AT AN R A ARR R AN AR NN AANNANAAARANANNRARNNARPP
IE

KYBCTL

;PERFORMING ONLY SINGLE

2%
13

;BR IF NOT
;BR IF JUST ENTERED TEST

EXEC

TEST

JRETURN & GET NEXT TEST NUMBER

1%:

MOV

#-1,KYBCTL

sSET SINGLE

TEST40

Mov

WMTEST4O,SLPERR

;SETUP ERROR LOOP ADDRESS

#40,STSTANM

;MOVE #40 TO TEST NUMBER

#10. ,STIMES

;:D0 10.

2%:

MOV

MOvB

MOV

MOov

WTEST4Q,SLPADR

TEST

INDICATOR

;SETUP SCOPE LOOP ADDRESS

#STACK,SP

;LOAD THE STACK POINTER

ITERATIONS

;SEIZE PORT A BY WRITING THE MAINTENANCE REGISTER,RMMR1, SET
;AND RESET 'MAINTENANCE UNIT READY'' TO CAUSE VOLUME VALID TO
JRESET AND ATTENTION TO SET.
;SEIZE THE DRIVE THROUGH PORT A
051242
051250

051256
051264
051272
C51300

051306
051312
051320

051326
051332
051340
051346
051354
051362
051364
051372
051409
051406

113760

013737
012760
013737
012760
012760

001224
001224
000001
001226
001001
000000

0059037
016037
012737
060037
012737
013737
042737
023737
001414

001250
000012
000032
001122
100000
001126
07?777
001124

042737

100000
001174

013737

053737
104064

001126

000010
001242
000024
001244
000024
000024

Mov8s

MOV

PORTA ,RMCS2(R0) ;SSLECT PORT A

PORTA,SEIZPT

MOV

#DMD ,RMMR1(RO)

MOV

#0 ,RMMR1 (RO)

MOV
MOV

;STORE SEIZING PORT'S ADDRESS

;WRITE DMD INTO RMMR1

PORTB,0PPRT
; 'OPPOSITE® PORT ADDRESS
#DMD ! MUR ,RMMR1 (R0)
;SET UNIT READY

;VERIFY THAT ATA = 1,vV = 0 FOR PORT A
001126
001122

001124
001164
001164
001164
001174
001174
001124

CLR
MOV
MoV
ADD
MoV
MoV
BIC
CMP
BEQ
MOV
BIC
Bé;
E

SRESET DIAGNOSTIC MODE

CKERR
JCLEAR THE "CHECK ERROR® INDICATOR
RMDS(RQ) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
HATA,$GDDAT
;WHAT REGISTER SHOULD BE
$8DDAT, $TMPO
:MOVE REGISTER CONTENTS TO 'STMPG’
#-CATA,$TMPO
;SAVE SPECIFIED BITS
$GDDAT, $TMPO
;COMPARE THE BITS
663
JBR IF OK
$BDDAT,$TMP4
;COPY 'BAD DATA'
#ATA, $TMP4
;CLEAR THE MASKED BITS
SZMP4,SGDDAT
;'OR' WITH GOOD DATA FOR TYPEQUT
6

rZRMRBO RMO5/3/2 DU POR T1ST 1
MACRO v04.00
PORT *A® SET VOLUME VALID TEST

051410
051414
051416
051422
051430
051436
051442

051446

051454

051462

005137
000240
005037
016037
012737
060037
0C5037

013737

042737

023737

001250
001250
000012
000012
001122
003124
001126
177677
GO1126

001126
001122
001164

051524
051532

012760
012760

00011
000021

051540
051544
051552
051560
051564
051572
051600
051606
051614
051616
051624
051632
051640
951642
051646
051650
051654
051662
51670
051674
051702

005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104013
005137
000240
005037
016037
012737
060037
012737
013737

001250
000012
000012
001122
000100
001126
177677
001124

007124
001164
001164
001164

001126
000100
001174

001174
001174
001124

051710

051716
051724
051726
051734
051742
051750
051752
051756

042737

023737
001414
013737
042737
053737
104010
005137
000240

688:

000000
000000

024007

]
001126
001122

708:

001164

001126
153770
001174

001174
001174
001124

THE REGISTER COMPARE ERROR INDICATOR

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS(RQ),$BDDAT
*;GET CONTENTS OF RMDS
WRMDS,SBOADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, S$BDADR
:ADD RH/RM BASE ADDRESS
SGDDAT
:WHAT REGISTER SHOULD BE

MOV
MOV

001124
001164

001164

;SET

SBDDAT.STMPO

A#*CVV, STMPO

:MOVE REGISTER CONTENTS TO

;SAVE SPECIFIED BITS

SGDDAT.S$TMPO *~

68
SBDDAT.STMP4
AVV,STMPS
$TMP4,SGDDAT
65
CKERR

;COMPARE

‘$IMPO"

THE BITS

:BR IF 0K
:COPY 'BAD DATA'
.CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT

;SET THE REGISTER COMPARE FRROR INDICATOR

;ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT A

001126
001122

001124

001250

BEQ
MOV
BIC
BIS
EMT
COM
NOP

(KERR

#11,RMCS1(RO)
#21.RMCS1(RO)

;VERIFY ATA = 0 AND WV = 1

001250
001250
000012
000012
001122
011700
001126

CMP

001174
001174
001124

001250

(OM
NOP
(LR
MOV
MOV
ADD
(LR

BIC

001164

001414
013737
042737
053737
106065
005137
000240

D 16
1B:06:25 PAGE 10-95
-£@ 0135

MOV~

001164

051470
051472
053500
051506
051514
051516
051522

001126
000100
001174

668:
;

&4-APR-81

(LR
MOV
MOV~
ADD
MOV
MOV~
BIC
(MP
BEQ
MOV
BIC
BIS
EMT
COM
NOP
CLR
MOV
MOV~
ADD
MOV~
MOV

BIC

72%:

CMP
BEQ
MOV
BIC
BIS
EMT
COM
NOP

;DRIVE CLEAR
:READ IN PRESET

FOR PORT A

CKERR
;CLEAR THE *CHECK ERROR' INDICATUR
RMDS(RO) $BDDAT
':GET CONTENTS OF RMDS
#RMDS,$8DADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,SBDADR
;ADD RH/RM BASE ADDRESS
#VV,SGDDAT
WHAT REGISTER SHOULD BE
SBDDAT.STMPO
:MOVE REGISTER CONTENTS TO 'STMPO’
#°CVV,STMPO
:SAVE SPECIFIED BITS
SGDDAT,$TMPO ~ ;COMPARE THE BITS
708
:BR IF OK
SBDDAT,STMP4
:(OPY 'BAD DATA'
#VV.STMPS
:CLEAR THE MASKED BITS
SIMP4,S$GDDAT
:'OR' WITH GOOD DATA FOR TYPEQOUT
13
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
;CLEAR THE °*CHECK ERROR' INDICATOR
RMDS(RQ),$BDDAT " GET CONTENTS OF RMDS
ARMDS SBDADR
FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,S$BDADR

~
~

:ADD RH/RM BASE ADDRESS

AMOL!PGM!DPR!DRY!VV,SGDDAT
;WHAT REGISTER SHOULD BE
SBDDAT $TMPQ
:MOVE REGISTER CONTENTS TO 'STMPO'

#%C153770,$TMPO

$GDDAT,STMPO
728
SBDDAT,STMP4
#153770,$TMP4
$TMP4,SGDDAT
10
CKERR

“;SAVE SPECIFIED BITS

;COMPARE THE BITS
:BR_IF OK
:COPY 'BAD DATA'
:CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEQUT

;SET THE REGISTER COMPARE ERROR INDICATOR

JRELEASE PORT A AND SELECT PORT B
JVERIFY THAT ATA = 1 AND VV = 0 FOR PORT B

(/RMRBO RMOS5/3/2 DU POR TST
140
PORT °'A' SET VOLUME

1
MACRO v04.00
VALID TEST

4-APR-81

18:06:25 PAGE

10-96
SEQ 013¢

;RELEASE THE DRIVE FROM PORT A
051760
051766
051774

001224
001224
000013

000010
001240
000000

MOVB
MOV

MOV
;VERIFY

052002
052006
052014
052020
052026
052034
052042
052050
052056
052064
052072
052100
052106
052114
052122
052130
052132
052136
052140
052142
052146
052154
052162
052170
052174
052176
052204
052212
052220
052224
052226
052234
052236
052244
052252
052260
052266
052270

052272
052300
052306
052314
052322
052324
052326
052330
052336
052344
052350

001254
000012
001122
011600
001224
000012
024001
001170
100100
001226
000012
024001
001172
100100
001164

013737
113760
005737
001004
012737
104022

013737
013737
042737
023737
001401
104007

013737

013737
042737
023737
001401
104007
000240
113760
013737
005037
016037

001224
001172
001224
001166

THAT

001124

000010

001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

BNE

74%:

001240
001126
000010

:SE_ECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

$TMP3, $TMPY
HATAIVV,$TMP1
$TMPO, $TMP

:COPY IT INTO 'STMP1®
:CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?

$TMPO

;REGISTERS ARE

;CLEAR DONT CARES

‘BR IF NOT

THE SAME:

ARE

THEY ZERO ?

MOVB
ST
BEQ
MOV
MOV
MOVB

PORTB.RMCS2(R0) :SELECT PORT B.
$TMPO
:SEE IF STATUS EQ O FROM PORT A.
758
‘BR If ZERO
PORTA,PTNBR
;SEIZING PORT IF TEST SHOWS DRIVE NOT
$TMP3,$BDDAT : 'BAD DATA' FOR ERROR TYPE OUT
PORTA.RMCS2{RO) -SELECT PORT A.

BNE

768

MOV

001170
001224

001126
001240
001126
001126

76%:

MOV

001172

001126
001240
001126
001126

77%;

001126

PORTB,RMCS2(RO)
RMDS(RO) ,$TMP3

743

PORTB,PTNBR

TST

78%:

IN NEUTRAL

768
46
78%
$TMP2,$BDDAT

gg¥

000010
001240

TYPEOUT

THROUGH PORT A

BNE
EMT
JMP
MOV

75%:

001226
001226
001250
000012

IS STILL

#PIP!WRL 'OM, $TMPS

MOV
BIC
cMP
TSt

001126
001240
000010

DRIVE

;ISSUE RELEASE

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS ,$8DADR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $BDADR
:ADD THE 1/0 BASE ADDRESS
#MOL 'PGM.DPR.DRY,SGDDAT
: COMPARISON CONSTANT
PORTA,RMCS2(RO) :SELECT PORT A.
RMD
(RO) ,$TMP2
S
;GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP'WRL IOM,$TMP2
;CLEAR DONT CARES
STMP2, $TMPO
;COPY IT INTO *$TMPO°
#ATAIVV,$TMPO
:CLEAR PORT DEPENDENT BITS FROM THE COPY

BIC

001254

001226
100100
001124

THE

MOVB
MOV

177777

100100
001124

#13,RMCST(RO) "

CLR
MOV
ADD
MOV
MOVB
MOV
BIC
MOV
BIC

001122

001164

052326
001170
001226
001226
001164

PORTA,RMCS2(RO)
:SELECT PORT A
PORTA PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR

MOV
BIC
CMP
?5?

MOV

;SEIZING PORT

TEST SHOWS DRIVE NOT

;SEE

551.RELERR

‘SET

'RELEASE ERROR'

$TMP2,$BDDAT

IN NEUTRAL

STATUS EG ZERO FROM PORT B.

:BR IF NOT

INDICATOR

:LOOK FOR BIT FAILURES WHEN RMDS READ

PORTA.PTNBR
HATA'VYV,SBDDAT
$GDDAT,$8DDAT
;73

:CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR VV BIT
:ALL BITS OK ?
*BR IF OK FROM PORT A.

$TMP3,$BDDAT

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.

PORTB,PTNBR
#ATAIVV $BDDAT
$SGDDAT,$8DDAT

NOP
MOVB

PORTR,RMCS2(R0)

MOV
CLR
MOV

;BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERRCR MESSAGE

$TMP1

MOV
BIC
CMP

BEQ
EMT

‘BR IF NOT

788
7

:CHANGE PORT NUMBER
:DON'T CHECK ATIN BIT OR Vv BIT
:SEE IF READ OK FROM PORT B.

:BR IF OK

;SELECT PORT B

PORTB.PTNBR
:;MOVE PORT ADDRESS TO LOCATION FOR TYPEGLT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS(RO)
, $8DDAT " :GET CONTENTS OF RMDS

r/RMRBO RMOS/3/2 DU POR

140

PORT

°*A*

052356
052364
052370
052376
0526404
052612
052420
052422
052430
052436
052444
052446
052452
052454
052460
052466
052474
052500
052504
052512
052520
052526
052530
052536
052544
052552
052554
052560

052562
052570

052576
052694
052612

SET

TST

VOLUME

012737
060037
012737

013737
042737
023737

001414

013737
042737

053737
104064

005137
000240
005037
016037
012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104065

005137
000240

012760
012760
113760

013737
012760

MACRO v04.00

VALID

000012
001122
20000
001126
077777
001124

001126
100000

001174

TEST

01250
000012
000012
001122
001124
001126

MOV
ADD
MOV
MOV

001124
001164
001164
001164

001250

79%:

001126
001122

177677

001124

001164
001164
001164

001126
000100
001174

001174
001174
001124

001250

81%:

000011
000021

000000
000000

001226
001226
000013

000010
001240
000000

18:06:25 PAGE

B1C
cmMp
BEQ
MOV
BIC
BIS
EMT
coM
NOP
CLR
MOV
MOV
ADD
CLR
MOV
BIC
CMP
BEQ
MoV
BI(C
BIS
EMT
CoM
NOP

#RM
, $BDADR
DS

RO, $BDADR

H#ATA $GDDAT

$BDDAT, $TMPQ

052674

052702
052710
052716

052724
052732
052740
052746

005037
012737
060037
972737
113760
016037
042737
013737
042737
113760
016037
0462737
013737
042737
023737
001006

001254
000012
001122
011600
001224
000012
024001
001170
100100
001226
000012
024001

001172

100100
001164

001122
001124
000010
001170
001170
0011€4
001164
000010

001172
001172
001166
001166
001166

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD Bf

$GDDAT, $TMPO
79%
$8DDAT,$TMP4

;MOVE REGISTER CONTENTS TO '$TMPO'
;SAVE SFeCIFIED BITS
;COMPARE THE BITS
;BR IF 0K
;COPY 'BAD DATA'

$TYP4
, 3GDDAT

;'OR' WITH GOOD DATA FOR TYPEOUT

#*CATA,$TMPQ

HATA ,$TMP4

;CLEAR THE MASKED BITS

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
RMDS (RO) , $BDDAT

;CLEAR THE 'CHECK ERROR*'
;GET CONTENTS OF RMDS

HRM
, $8DADR
DS

RO, $8DADR
$GDDAT
$8DDAT ,$TMPO

INDICATOR

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO '$TMPO’
;SAVE SPECIFIED BITS
$GDDAT,$TMPO
;COMPARE THE BITS

#*CVV,$TMPO

81%
$BDDAT, $TMP4

JBR IF OK

$TMP4
, $GDDAT
65

:'OR’ WITH GOOD PATA FOR TYPEQUT

R#VV,$TMP4

. COPY 'BAD DATA'
;CLEAR THE MASKED BITS

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

;ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT B,
:THEN RELEASE PORT B
MOV
MOV

#11,RMCST1(RO)
#21,RMCS1(RO)

MOVB
MOV

PORTB.RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

;RELEASE THE DRIVE FROM PORT B

MOV

#13 RMCST(RO) TM

;VERIFY THAT THE DRIVE

£52620
052624
052632
052636
052644
052652
052660
052666

16
10-97

SEQ 0137

001122

001174
001174
001124

4-APR-81

IS STILL

;DRIVE CLEAR
:READ IN PRESET

:ISSUE RELEASE THROUGH PORT B
IN NEUTRAL

(LR
MOV

RELERR
#RMDS,$BDADR

MOV
MOVB
MOV
BI(
MOV

#MOL 'PGM'DPR!DRY,SGDDAT
; COMPARISON CONSTANT
PORTA,RMCS2(RO) :SELECT PORT A.
RMDS(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.
APIPWRL IOM,STMP?
;CLEAR DONT CARES
STMP2 , $TMPO
SCOPY IT INTO 'S$TMPO'

MOVB
MOV

PORTB,RMCS2(R0)
RMDS
(RO) ,$TMP3

-SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

$TMP3, STMP1

;COPY IT

ADD

BIC

RO, $SB8DADR

HATATVV,STMPO

;CLEAR THE 'RELEASE ERROR ' INDICATOR
-FORM THE ADDRESS OF RMDS FOR TYPEQUT

‘ADD THE 1/0 BASE ADDRESS

:CLEAR PORT DEPENDENT BITS FROM THE COPY

BIC

#PIP'WRL IOM,STMPS

BIC
CMP
BNE

#ATATVV,STMPT
$TMP(, $TMP1
83%

MOV

;CLEAR DONT CARES
INTO '$TMP1'

:CLEAR PORT DEPENDENT BITS FROM THE COPY
*IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
*BR IF NOT

«ZRMRBO kMO5/3/2 DU POR TST 1
MACRO VC4.00
140
PORT 'A' SET VOLUME VALID TEST

052750
052754
052756
052760
052764
052772
053000
053006
053012
053014
053022
053030
053036
053042
053044
053052
053054
053062
053070
053076
053104
053106
053110
053116
053124
053132

052140
053142
053144

001401
104007
00024C

053146

00000«

001164
053144
001170
001226
001226
001164

001126
001240
000010

001224

001240

001224
CO1166

000010

177777

001254

84%:

001170
001224
100100
001124

001126
001240
001126
001126

85%:

001172
001226
100100
001124

001126
001240
001126
001126

86%:

001172

1307

001126

G 16
18:06:25 PAGE 10-98
SEQ (*3#

TST
BNE
EMT
JMP
MOV
MOV
MOvB
TST
BEQ
MOV
MOV
MOovB
TST
BNE
MOV
EMT
MOV
MOV
BI(
CMP
BEQ
EMT
MOV
MOV
8IC
CMP

83%:

87%:

BEG
EMT
NOP

50%:

SCOPE

A AN

J*TEST 41

$TMPO
85%
46
87%
$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0O)
$TMPO
84%
PORTA,PTNBR
$TMP3,$BDDAT
PORTA ,RMCS2 (RO)
$TMPT
85%
#-1,RELERR
22
$TMP2,$BDDAT
PORTA,PTNBR
HATA.VV, $BDDAT
$GDDAT,$BDDAT
86%
7
$TMP3 $BDDAT
PORTB,PTNBR
HATA!VV, SBDDAT
$GDDAT,$BDDAT

87%
7

JREGISTERS ARE
;BR IF NOT

THE SAME: ARE

THEY ZERO ?

;BYPASS THE REST OF THE CHECKS
.SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
JSEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
;SELECT PORT B,
;SEE [F STATUS EQ O FROM PORT A.
;BR IF ZERO
;SEIZING PORT [F TEST SHOWS DRIVE NOT IN NEUTRAL
; 'BAD DATA' FOR ERROR TYPE OUuT
;SELECT PORT A,
;SEE IF STATUS EQ ZERO FROM PORT 8.
;BR_IF NOT
;SET 'RELEASE ERROR' INDICATOR
;LOOK FOR BIT FAJLURES WHEN RMDS READ
s CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR vv BIT
;ALL BITS OK ?
;BR If OK FROM PORT A.
sCHECK RMDS FOR BIT FAILURES - FROM PORT B.
; CHANGE PORT NUMBER
;DON'T CHECK ATTIN BIT OR vv BIT
;SEE IF READ OK FROM PORT B.

;BR IF OK

AR A AR A A AR R RN RN RN AN R AR A AN A R ANNRRRAAN AR AR AN A AR RA SR AR AL

PORT

'8'

SET

VOLUME

VALID

TEST

J*VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST.
>

»
»

WITH PORT 'B* SELECTED, RESET AND SET "UNIT READY''
STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE
1S SEIZED AND THAT °'VOLUME VALID'' IS RESET AND

ATTENTION 1S SET.
@

X
%
¥
X

THE DRIVF

‘'A'.

FROM PORT

'B'

AND SELECT

THE DRIVE

VERIFY THAT ATTENTION IS STIL SET AND THAT

FOR

VOLUME VALID IS STIL RESET.
<o

A I

CLEAR COMMAND AND A READ IN PRESET

X
X

001300

005737
001406

RELEASE

PORT

R I
T
T
B
T

053150
053150
053154

ISSUE A DRIVE

COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A.
¥§R§£¥ THAT ATTENTION IS RESET AND THAT VOLUME VALID

A A

T E T

. %

*» %

1285
1306

905737
001037
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001004
012737
104022
073737
013737
042737
023737
001401
104007
013737
013737
042737
023737

4-APR-B1

ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO
PORT *A' THEN RELEASE PORT 'A°'.

"'*tt***'*'*fi"fi**fi*.fi***'i'****'.'."‘*"l’*'*t‘***"***'*""iti'i'

ST41:

TST
BEQ

KYBCTL
2%

JPERFORMING ONLY SINGLE TEST ?
:BR IF NOT

F’RMRBO RM05/3/2 DU POR TST
IB.
PORY
6T
SET VOLUME

053156
053160
053164
053172
053200
053206

1308
1309

MACKRO v04.00

VALID TEST

003074

177777

001300
001106
001110

000041
001100
000012

001102

053206
053206

053206
053214
053220

4-APR-81

H 16
18:06:25 PAGE 10-99

SEQ 0139

1%:
2%:
TESTA1

BPL
JMP

1%
EXEC

MOV
MOV
MOV

#~1,KYBCTL
R#TEST4L1,8LPADR
#TEST41,8LPERR

MOVR

JSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

#41,$TSTNM

MOV

001176

;BR IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMRER

#STACK,SP

MoV

#10.,8TIMES

JMOVE #41

TO TEST NUMBER

JLOAD

STACK POINTER

THE

;:D0 10.

ITERATIONS

;SEIZE PORT B BY WRITING THE MAINTENANCE REGISTER,RMMRT. SET
JAND RESET ‘MAINTENANCE UNIT READY'' TO CAUSE VOLUME VALID 10
JRESET AND ATTENTION TO SET.
;SEIZE THE DRIVE
053226
053234
053242
053250
053256
053264

053272

053276
053304
053312

113760

001226
001226
000001
001224
001001
000000

005037
016037
012737
060037

001250
000012
000012
001122
100000
001126
077777
001124

013737
012760
013737
012760
012760

012737
013737

053316
053324
053332
053340
053346
053350
053356
053364
053372
053374
053400
053402
53406
053414
053422
053426
053432
053440
053446
J53454
053456
053464
053472

013737
042737
053737

001126"
000100
001174

053502
053506

005137
000240

001250

053500

042737
023737
001414
013737
042737
053737
104064

005137
000240
005037
016037
012737

060037
005037
013737
042737
023737
001414

104065

001126

100000

001174

000010

177677
001124

MoV
MOV
MOV
MOV
MOV

PORTB,RMCS2(R0)

;SELECT PORT B

PORTB,SEIZPT
:STORE SEIZING PORT'S ADDRESS
#DMD ,RMMR1(RO)
;WRITE DMD INTO RMMR1
PORTA,OPPRT
;'OPPOSITE' PORT ADDRESS
#DMD ! MUR ,RMMR1 (RO)
;SET UNIT READY
#0,RMMR1 (RO)
JRESET DIAGNOSTIC MODE

JVERIFY THAT ATA = 1,vW = 0 FOR PORT B
CLR

CKERR

;CLEAR THE

RO, $BDADR

:ADD RH/RM BASE ADDRESS

‘CHECK ERROR'

INDICATOR

001126
001122

MOV
MOV

RMDS
(RO) ,$8DDAT
;GET CONTENTS OF RMDS
ARMDS ,$BDADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE

001124
001164
001164
001164
001174

MOV
MOV
BIC
CMP
BEQ
MOV

#ATA ,$GDDAT
;WHAT REGISTER SHOULD BE
$8DDAT, $TMPO
sMOVE REGISTER CONTENTS TO "S$TMPO°*
#~CATA,$TMPO
SAVE SPECIFIED BITS
$GDDAT,$TMP)
; COMPARE THE BITS
66%
;BR IF 0K
S$BDDAT, $TMPS
;COPY 'BAD DATA®

001124

g&§

ADD

001174

BIC

HATA, STMPS

zZMPG.SGDDAT

*'OR' WITH GOOD DATA FOR TYPEOUT

figg

CKERR

;JSET

001126

CLR
MOV

CKERR
;CLEAR THE °'CHECK ERROR'
RMDS
(RQ) ,$BDDAT
;GET CONTENTS OF RMDS

001164
007164

ADD
CLR
MOV
BIC

RO, $8DADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$8DDAT , $TMPO
;MOVE REGISTER CONTENTS TO '$TMPQ*
#~CVV,$TMPO
;SAVE SPECIFIED BITS

BEQ
MoV
BIC

68$
$8DDAT, $TMP4
#VV,$TMP4

:BR IF 0K
;COPY 'BAD DATA'
;CLEAR THE MASKED BITS

com

CKERR

;SET

001250

001250
000012
000012
001122
001124
001126

MOVB

001242
000024
001244
000024
000024

THROUGH PORT 8

568

001122

MOV

001164

CMP

003174
001174
001124

?A?

68%:

NOP

HRMDS ,$BDADR

$GDDAT, $TMPO

2§MP4,$GDDAT

;CLEAR THE MASKED BITS
THE

INDICATOR

;FORM REGISTER ADDRESS OF ERROR MESSAGE

; COMPARE THE BITS

;'OR' WITH GOOD DATA FOR TYPEQUT
THE

ERROR

;ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT B

INDICATOR

”ZRMRBO RM0S/3/2 DU POR TST
PORT

°'B'

SET

VOLUME

MACRO V04.00

VALID

TEST

053510
053516

012760
012760

000011
000021

053524
053530
053536
053544
053550
053556
053564
053572
053600
053602
053610
053616
053624
053626
053632
C53634
053640
053646
053654
053660
053666
053674
053702
053710
053712
053720
053726
053734
053736
053742

005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737

001250
000012
000012
001122
000100
001126
177677
001124

001164
001164

001126
000100
00117¢

001174
001174
001124

104013

005137
000240
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104010

005137
000240

001126
001122

001126
024007
001124

001126

15377C

001174

MOV
MOV

:VERIFY ATA
CLR
MOov
MOV
ADD
MOV
MOV
RIC
CMP

001124
001164

BEAQ

70%:

001126
001122
001124
001164
001164
001164

001174
001174
001124

001250

18:06:¢5 PAGE

10-100
SEQ 0140

000000
000000

001250

001250
000012
000012
001122
011700

4-APR-81

72%:

MOV
BIC
BIS
EMT
CoM
NOP
CLR
MOV
MOV
ADD
MOV
MOV
BIC
(MP
BEQ
MOV
BIC
8IS
EMT
oM
NOP

#11,RMCST(RO)
#21 ,RMCS1(RO)

;DRIVE

JREAD

(LEAR

IN PRESET

AND VV = 1 FOR PORT B
CKERR
;CLEAR THE °'CHECK ERROR'
RMDS (RQ) ,$BDDAT
;GET CONTENTS OF RMDS

HRM
, SBDACR
DS

INDICATOR

;FORM REGISTER ADDRESS OF ERROR MESSAGE

RO, SBDADR

;ADD RH/RM BASE ADDRESS

#VV,$GDDAT

;WHAT REGISTER SHOULD BE
SBDDAT, $TMPO
;MOVE REGISTER CONTENTS TO *STMPQ’
#2CVV, $TMPO
;SAVE SPECIFIED BITS
S$GDDAT
$ TMPO
,
;COMPARE THE BITS
708
;BR IF OK
$BDDAT, $TMP4
;COPY 'BAD DATA'
#VV, STMPS
;CLEAR THE MASKED BITS
BIMP4, SGDDAT

;'OR'

CKERR

;SET THE REGISTER COMPARE ERR%~ [NDICATOR

CKERR
RMDS (RO) ,$8DD AT

;CLEAR THE

ARMDS
, $8DADR

WITH GOOD DATA FOR TYPEQUT

'CHECK ERROR®

;GET CONTENTS OF RMDS

INDICATOR

;FORM REGISTER ADDRESS OF ERROR MESSAGE
:ADD RH/RM BASE ADDRESS

RO,$BDADR

#MOL
. PGM!DPR! DRY!VV,$GDDAT

;WHAT REGISTER SHOULLD BE
$8DDAT, $TMPO
;MOVE REGISTER CONTENTS TO "$TMPO®
#*C153770,8TMPO
;SAVE SPECIFIED BITS
$GDDAT ,$TMPO
;COMPARE THE BITS
723
BR IF OK
$BDDAT, $TMP4
;COPY 'BAD DATA'
#153770,%$TMP4
;CLEAR THEt MASKED BITS
?6MP4,$GDDAT
:'OR* WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

JRELEASE PORT B AND SELECT PORT A
SVERIFY THAT ATA = 1 AND VV = 0 FOR PORT A

JRELEASE THE DRIVE FROM PORT B
053744
C53752
053760

113760
013737
012760

001226
001226
000013

000010
001240
000000

005037
012737
060V37
012737
113760

016037
042737
013737
042737
113760
016037

001254
000012
001122
011600
001224
000012
024001
001170
100100
001226
000012

PORTB ,RMCS2(R0O)

MoV

#13,RMCS1(R0)

MOV

;VERIFY

053766
053772
054000
054004
054012
054020
054026
054034
054042
054050
054056

MovBe

PORTB,PTNBR

THAT THE DRIVE

,SELECT PORT B

:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

IS STILL

;ISSUE RELEASE
IN NEUTRAL

CLR

RELERR

;CLEAR THE

ADD

RO,$BDADR

;ADD THE

001122

MOV

001124
000010
001170
001170
001164
001164
000010
001172

MOV

MOVB
Mov
BIC
MoV
8IC
MOVB
Mov

#RMDS , $BDADR

THROUGH PORT B

'RELEASE ERROR

INDICATOR

;FORM THE ADDRESS OF RMDS FOR TYPEOQUT

#MOL ! PGM!DPR!DRY ,$GDDAT

1/0 BASE ADDRESS

;COMPARISON CONSTANT

PORTA ,RMCS2(R0O) ;SELECT PORT A.
RMDS(RQ) ,$TMP2
.GET THE DRIVE STATUS REGISTER FROM PORT A.
HPIP!WRL !OM,$TMP?
. CLEAR DONT CARES
$TMP2,$TMPO
;COPY IT INTO '$TMPO'
H#ATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM [HE COPY
PORTB,RMCS2(RQ) ;SELECT PORT B.
RMDS(RO) ,$TMP3
;GET THE DRIVE STATUS REGISTER FROM PORT B.

’ZRMRBO RM0S5/3/2 DU POR TST 1
MACRO v04.00
PORT 'B' SET VOLUME VALID TEST

054064
054072
054100
054106
054114
054116
054122
054124
054126

054132

054140

054146
054154
054160
054162
054170
054176
054204
054210
054212

054220
054222
054230
054236
054244

054252
054254
054256
054264
054272
054300
054306
054310
054312
054314
054322
054330
054334
054342
054350
054354

(54362

054370
054376
054404
054406

054414
054422
054430
054432
054436
054440
054444
054452
054460
054464
054470

042737
013737
042737
023737

001006
005737
001037
104046

000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001004
012737

104022
013737
013737
042737
023737
001401
104007

013737
013737
042737
023737
001401

104007
000240
113760

013737
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737

042737
053737
106064

005137
000240
005037
016037
012737
060037
005037
013737

024001
001172
100100
001164

001172
001166
001166
001166

74%:

001224
001172
001224
001166

001240
001126
000010

177777

001254

75%:

001170
001224

76%:

001124

001126
001240
001126
001126

001172
001226
100100
001124

001126
001240
001126
001126

77%:

001224
001224
001250
000012
000012
001122
100000
001126
077777
001124

000010
001240

100100

001126

100000
001174

#PIP!WRL .OM,$TMP3

BIC
cMP
BNE

H#ATA!VV,$TMP]

001124
001164
001164
001164
001174
001174
001124
79%:

001126
001122
001164

BNE
EMT
JMP
MOV

MoV
MOVB
TST
BEQ
MOV
MoV
MOVB
TST
BNE
MOV
EMT
MOV
MOV
BIC
CMP
BEQ
EMT
MOV
MoV

BIC
CMP
BEQ
EMT
NOP

MOvVB

MOV
CLR
MOV

001126
001122

001250
001250
000012
000012
001122
001124
001126

78%:

16
10-101

BIC

TST

001126
001240
000010

J
18:06:25 PAGE

SEQ 0141
MOV

001164

054312
001170
001226
001226
001164

4-APR-81

MoV
ADD
MOV
MOV
BIC
tmp
BEQ
MOV
BIC
BIS
EMT
(oM
NOP
CLR
MOV
MoV
ADD
(LR
MoV

; CLEAR DONT CARES
COPY IT INTO '$TMP1'
;CLEAR PORT DEPENDENT BITS FROM THE

$TMP3,$TMPT

(OPY
:ég I?E~8}ATUS REGISTER THE SAME FROM BOTH PORTS ?

$TMPO,$TMP1

74%

$TMPO
76%
46
78%
$TMP2, $BDDAT

JREGISTERS ARE
;BR IF NOT

THE SAME: ARE

;BYPASS THE REST OF

THEY ZERO ?

THF CHECKS

PORTA,PTNBR

;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT 8.
;SEE IF STATUS EQ O FROM FORT A.
:BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

PORTA ,RM(CS2 (RO)

JSELECT PORT A.

PORTB,PTNBR

PORTB,RM(CS2{R0O)
$TMPO

75%

$TMP3,$8DDAT

$TMPT
76$
#~1,RELERR
22
$TMP2, $BDDAT

:'BAD DATA'

FOR ERROR TYPE OUT

:SEE IF STATUS EQ ZERO FROM PORT B.
;BR _IF NOT

;SET 'RELEASE ERROR'

INDICATOR

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER
;DON'T CHECK ATTN BIT OR VvV BIT
JALL BITS OK ?
:BR IF OK FROM PORT A.

PORTA,PTNBR
H#ATA.VV, $BDDAT

$GDDAT
, $8DDAT
;75

$TMP3, $BDDAT

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
; CHANGE PORT NUMBER
;DON'T CHECK ATTN BIT OR vV BIT
;SEE IF READ OK FROM PORT B.
;BR IF OK

PORTB,PTNBR
HATA!VV, $BDDAT

$GDDAT, $8DDAT

;83

PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
sCLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) , $BDDAT
;GET CONTENTS OF RMDS

#RM
, £BDADR
DS

RO,$BDADR

#ATA, $GDDAT

$BDDAT,$TMPO

#*CATA,$TMPO

$GDDAT, $TMPO)
79%

$BDDAT,$TMP4

HATA, $TMP4
$TMPS
, $GDDAT

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

sWHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO '$TMPO*

;SAVE SPECIFIED BITS
;COMPARE THE BITS
;BR_IF OK
:COPY 'BAD DATA'

;CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT

64
CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
RMDS (RQO) , $8DDAT

#RMDS
, $BLADR

RO, $BDADR
$GDDAT
$BDDAT, $TMPO

;CLEAR THE 'CHECK ERROR' INDICATOR
;GET CONTENTS OF RMDS
;FORM REGISTER ADDRESS OF ERROR MESSAGL
;ADD RH/RM BASE ADDRESS
sWHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTS TO '$TMPO’

’ZRMRBO RM0S5/3/2 DU POR TST 1
MACRC V04.00
PORT ‘B’ SET VOLUME VALID TEST

054476
054504
054512
054514
054522
054530

042737
023737
001414
013737
042737
053737

054540
054544

005137
000240

054536

106065

177677

001164
001164

001126

001174
001174
001724

001124
000100

001174

001250

81%:

4-APR-B1

0564562
054570
054576

012760
012760

000011
000021

000000
000000

113760
013737
012760

001224
001224
000013

000010
001240
000000

BIC
CMP
BEQ
MOV
8IC
?A?

#*CVV,8TMPD
:SAVE SPECIFIED BITS
$GDDAT,$TMPO
;COMPARE THE BITS
81%
JBR IF 0K
$BDDAT ,$TMP4
;COPY ‘'BAD DATA'
#VV,8TMPS
;CLEAR THE MASKED BITS
Z;MP4,SGDDAT
;'OR' WITH GOOD DATA FOR TYPEOQUT

COM
NOP

CKERR

s THEN RELEASE

MOV
MOV

054636
054644

054652

054660
054666
054674
054702
054710
054716
054724
054732
054734
054740
054742
054744
054750
054756
054764
054772
054776
055000
055006

055014
055022
055026
055030
055036
055040
055046

055054

005037
012737
060037
012737
113760
014037
042737
013737
042737
113760
016037
042737
013737
042737
023737
001006
005737
001037
1646046
000137
013737
013737
113740

005737
001414
013737
013737
113760

005737
001004
012737
104022

013737
013737
042737

001254
000012
001122
011600
001224
000012
024001

001170
100100

001226
000012
024001
001172
100100
001164

CLEAR AND A READ IN PRESET COMMAND TC PORT A,

#11,RMCST(RO)
#21 ,RMCS1(RO)

JRELEASE THE DRIVE FROM PORT A
MOVB
MOV

MOV

001122
001124
000010
0071170
001170
001164
000010
001172
001172
001166
001166
001166

PORTA,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR

#13 ,RMCS1(RO)

001224

001172
001224
001166

001240
001126
000010

001254

84%:

001170
001224
100100

001126
001240
001126

85%:

IS STILL IN NEUTRAL

$TMP2,$TMPO
#ATA!VV $TMPO

#PIP‘URL'OH $TMP2

;CLEAR DONT CARES

;COPY IT INTO '$TMPO’
;CLEAR PORT DEPENDENT BITS FROM THE COPY

movs
MOV

PORTE, RHCS?(RO)
RMDJ(RO) $TMP3

;SELECT PORT B.
-GET THE DRIVE STATUS REGISTER FROM PORT B.

MOV
BIC
CMP
BNE

$TMP3,STMP1
#ATA!VV,iTMP1
$TMPO,$TMP
83%

:COPY IT INTO '$TMP1’
:CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2
:BR IF NOT

BNE
EMT
JMP
MOV

MOV
MOVB
TST

#PIP'URL‘OH $TMP3

$TMPO

853
46
87%
$TMP2 , $BDDAT

PORTB,PTNBR
PORTB,RMCS2(R0O)
$TMPO

;CLEAR DONT CARES

JREGISTERS ARE THE SAME:

:BR IF NOT

IN NEUTRAL

SSEIZING PORT

IN NEUTRAL

*BR IF ZERO

MOV

$TMP3, $BDDAT

;'"BAD DATA'

MOVB
TST

PORTA,RM(S2(RO)
$TMP1

?g¥

351.RELERR

BNE

MOV

8IC

85%

$TMP2 , $BDDAT

PORTA ,PTNBR

#ATA. VV,$BDDAT

THEY ZERQ ?

;SEIZING PORT IF TEST SHOWS DRIVE NOT
;SELECT PORT B.
SEE IF STATUS EQ O FROM PORT A.

848

PORTA ,PTNBR

ARE

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

BEQ

MOV

177777

TYPEOUT

MOV
BIC

8IC

83%:

:ISSUE RELEASE THROUGH PORT A

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOQUT
RO, $8DADR
;ADD THE 1/0 BASE ADDRESS
AMOL !PGM!DPR!DRY ,SGDDAT
. COMPARISON CONSTANT
PORTA ,RMCS2(R0O) ;SELECT PORT A.
RMDS(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.

TST

00112¢
001240
000010

;DRIVE CLEAR
JREAD IN PRESET

CLR
MOV
ADD
MOV
MOVB
MOV

BIC

001164

001164
055130
001170
001226
001226
001164

;SET THE RCGISTER COMPARE ERROR INDICATOR

PORT A

JVERIFY THAT THE DRIVE
054604
054610
054616
054622
054630

16
10-102
SEQ 0142

sISSUE A DRIVE

054546
054554

K
18:06:25 PAGE

TEST SHOWS DRIVE NOT

FOR ERROR TYPE QuT

;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.

;BR IF NOT

;SET

'RELEASE ERROR'

INDICATOR

;LOOK FOR BIT FAILURES WHEN RMDS READ

; CHANGE

;DON'T

PORT NUMBER

CHECK ATTN BIT OR vv BIT

023737
001407

007124

013737
013737
042737
023737

001172
001226

104007
000240

87%:

055132

000004

50%:

SCOPE

001401

100100

00112¢

001126
001126
001240
001126
001126

18:06:25 PAGE

10-103

SEQ 0143

81{
(MpP
BEQ
EMT
NOP

104007

4-AFR-B1

055062
055070
055072
055074
055102
055110
055116
055126
055126
055130

cMP
BEQ
tEm7

86%:

$GDDAT
, $BDDAT

JAL

;BR [F OK FROM PORT A,

$TMP3 SBDDAT

;CHECK RMDS FOR BIT FAILURES = FROM PORT B,
., CHANGE PORT NUMBER
;DON'T CHECK ATIN BIT OR Vv BI7
sSEE IF READ CK FROM PORT 8.

MOV
MOV

BITS Ok ?

863

PORTB,PTNBR
#ATA!VV, $BDDAT

$GDDAT, $BDDAT
;73

JBR

e "‘.ttttttt'tt"tti't"‘ifittttitfit.t'.tt.tttt"fittttfifit't't
tt't

'TE)T 42

0,
%,
0,
0,
%,
8y

%
%

:'VcRIFY

el R

AN
=

W ININ

IRMRBO RMOS5/3/¢ DU POR TST 1
MACRO v04.00
PORT ‘B’ SET VOLUME VALiD TEST

8.
C.

TEST PORT
THAT PORT

SEIZE

WRITE

THE

1°'S

'A'

1 IMEQUT DOES NOT RESET DRIVE

TIMEQUT DOES NOT

DRIVE

THROUGH PORT

INTO RMER1

INITIALIZE

THE

DRIVE.

‘'A' BY WRITING 0°'S

THROUGH PORT

'A'

INTO RMDS.

TO FORCE AN ATTENTION.

WAIT FOR THE DRIVE TO TIMEOUT.
VERIFY THAT THE DRIVE RETURNED
NEUTRAL
; THAT ATTENTION IS SET FCR PORT 'A' AND NOT SET FOR
PORT 'B%; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER.

055134
055134
055140
055142
055144
055150
055156
055164
055172
055172
055200
055204

005737
001406
100002

TST42:

001300

000137
012737
012737
012737

003074
177777
055172
055172

112737
012706
012737

000042
001100
000002

AEAA

001300
001106
001110

001102

1%:

2%:
TEST42:

AR et

Y2222

2222222223222

TST
BEQ
BPL
JMP
MOV
MOV
MOV

#-1,KYBCTL
NTEST42,SLPADR
WMTEST42,BLPERR

sPERFORMING ONLY SINGLE TEST ?
;BR [F NOT
;BR If JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER
sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
sSETUP ERROR LOOP ADDRESS

MOVB

#62,STSTNM

;MOVE #42 TO TEST NUMBER

MOV

#2.,STIMES

;D0 2.

MOV

001176

KYBCTL

19
EXEC

#STACK,SP

;JLOAD THE STACK POINTER

ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS
055212
055220
055224
055232
055240
055246
055252
055260

113760
005060
012760
012760
113760

005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

000010

MOovB
(LR
MOV
MoV
MOVB
(LR
MOV
MoV

000000
000000
000010
000000
000000

;SEIZE
055266
055274

113760

013737

001224
001224

000010
001242

THE DRIVE
MGVB
Mov

PORTA ,RM(CS2(RO)

RMDS (RO)

#11 ,RMCS1 (RO

#13 _RMCS1(RO)
PORTB,RMCS2(R0)
RMDS (RO)

#11,RMCS1(RO)
#13,RMCS1(R0O)

sSELECT PORT AA

sSEIZE THE DRIVE
s ISSUE DRIVE CLEAR
JRELEASE THE DRIVE

sSELECT PORT 48
;SEIZE THE DRIVE THRGCUGH PORT
s ISSUE DRIVE CLEAR

JRELEASE

THE DRIVE

THROUGH PORT A

;SELECT PORT A
;STCRE SEIZING PORT'S ADDRESS

PORTA,RMCS2
(RO)

PORTA,SE[ZPT

‘R’

TJRMRBO RMO5/3/2 DU POR TST 1
MACRO v04.00
4=-APR-81
TEST PORT °"A' TIMEOUT DOES NOT RESET DRIVE

055302
055306

005060
013737

000012
(01226

012760

1772777

000014

055326
05533
055342

(005037

012737
113760
013737

001256

003720
001226
001226

055366
055374

055402
C55406
055414
055422
055426
055434
055442
055450
055456
0556460
055466
055474
055502
055504
C55510

005760
001004
065737
001372
10403¢

001260

113760
013737

001224
001224

005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737
104023
005137
000240

000012

001250
000012
000012
001122
040000
001126
137777
001124

001124
001164
001164
001164

001126
040000
001174

001174
001174
001124

2%:

FOR DRIVE

SETTING ERRORS.

#-1_,RMER1(RO)

;SET ERROR BITS

TIME

JCLEAR THE ELAPSED TIME (OUNTFR

#2000, ,WATH
;SET WATCH TO
2000. MS
PORTB,RM(S52(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
TO

TIMEOUT

TST
B8NE
-ST
BNE
EMT

RMDS (RO)
3
WATCH
1%
36

MOVB
MOV

PORTA,RMCS2(R0O)
SELECT PORT A
PORTA.PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

ERROR BIT

663 :

CLR
MOV
MOV
ADD
Mov
MoV
8IC
cMP
BEQ
MOV
BIC
BIS
EMT
oM
NOP

JWRITE RMDS
;"OPPOSITE® FORT ADDRESS

TIMER

;THE

001126
001122

001250

THE

MOV
MOVB
MOV

1%:

000010
001240

AN ATTENTION BY

CLR

001260
000010
001240
JWAIT

055350
055354
055356
C55362
055364
055366

RMDS (RO)
PORTB,OPPRT

MOV
;START

055322

SEQ 0144

(LR
MOV

001244
JFORCE

055314

M 16
18:06:25 PAGE 10-104

('ERR')

IN RMDS

;WAIT FOR THE DRIVE TO BE RELEASED
;BR [F DRIVE RELEASED
JWATCH AT ZERO ?
JBR IF NOT

SHOULD STILL BE

SET

‘

CKERR
;CLEAR THE °‘CHECK ERROR' INDICATOR
RMDS (RQ) ,$BDDAT
.GET CONTENTS OF RMDS
NRMDS ,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,$BDADR
;ADD RH/RM BASE ADDRESS
#ERR,$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT ,S$TMPO
sMOVE REGISTER CONTENTS 10 °*STMPO’
#*CERR,STMPQ
SAVE SPECIFIED BITS
SGDDAT ,S$TMPO
;COMPARE THE BITS
66%
;JBR IF OK
SBDDAT ,STMP4
;COPY 'BAD DATA'
#ERR,$TMPS
;CLEAR THE MASKED BITS
$TMP4 , $GDDAT
;'OR* WITH GOOD DATA FOR TYPEOUT
23
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR

;THE ERROR REGISTER SHOULD CONTAIN 1°S

055512

055516
055524
055532

055536

055544
055552
055554
055556
055562

005037

001250

016037
012737
060037

000014
000014
001122

023737
001403
104010
005137
000240

001124

012737

177777

001250

CLR

(01126
(01122

MOV
MOV
ADD -

001124

MOV

001126

68%:

(MP
BEQ
EMT
(oM
NOP

CKERR

sCLEAR THE

‘CHECK ERROR®

INDICATOR

RMER1(RO) ,$8DDAT
;GET CONTENTS OF RMER!
#RMER1,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,$BCADR
;ADD RH/RM BASE ADDRESS

#177777.SGDDAT
$GDDAT,SBDDAT
68$%
10
CKERR

JWHAT REGISTER SHCULD BE

;1S THE REGISTER OK ?
;BR IF OK

;SET THE REGISTER (OMPARE ERROR INDICATOR

:THE ATTENTION BIT FOR PORT A SHOULD STILL BE

SET

ngHRBO RMGS5/3/2 DU POR TST 1
MACRO v04.00
4-APR-81
TEST PURT °'A*' TIMEOUT DOES NOT RESET DRIVE

055564
055570
055576
055604
055610
055616
055626
055632
055640
055642
055650
055656
055664

055666
055672

055674
055700
055706
055712
055720
055726

005037
016037
012737
C60037
012737
013737
042737
023737
001414
013737
042737
053737
104041

005137
000240

005037
012737
060037
012737
113760
016037

(01250
000012
000012
001122
100000
001126
077777
0011264

001124
001164
001164
001164

001126
100000
001174

001174
001174
001124

0061254
000012
001122
051700
001224
000012

70%:

coM
NOP

CKERR

SVERIFY

THAT THE DRIVE
CLR
MOV
ADD

NATA!VV, STMPO
PORTB,RMCS2(R0)
RMDS (R0) , $TMP3

:CLEAR PORT DEPENDENT BITS FROM THE COPY
;SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.

STMP3,STMP1

;COPY IT INTO 'STMP1'

BIC
MOVB
MOV

056000

013737

001172

001166

MOV

056014
056022
056024
056030

023737
001006
005737
001045

001164

001166

P
BNE
TST
BNE

056034
056040
056046
C56054
056062
056066
056070
050076

000137
013737
013737
113760
005737
001414
013737
013737

056006

056032

056104
056112
056116
056120
056126
056134
056142
056144
056152
056160
056166

042737

104046

113760
005737
001012
012737
012760
012760
104026
013737
013737
042737
023737

100100

001170
001764

BIC
MOV

001172

001166

001164
056234
001170
001226
001226
001164

IN NEUTRAL

MOV
mMovs
MOV

001164
000010
001172

024001

IS STILL

001124
000010
001170

100100
001226
000012

042737

;SET THE REGISTER COMPARE ERROR INDICATOR

RELERR
;CLEAR THE 'RELEASE ERROR ' [NDICATOR
#RMDS , $BDADR
.FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO, $8DADR
sADD THE 1/0 BASE ADDRESS
#51700,8GDDAT
; COMPARSION CONSTANT
PNRTA ,RMCS2(R0) ;SELECT PORT A.
RMDS(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A.

001122

042737
013737
042737
113760
016037

055772

SEQ 0145

CKERR
;CLEAR THE ' HECK ERRCR® INDICATOR
RMDS (RO) ,$BDDAT
;GET CONTENTS OF RMDS
WRMDS,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
W#ATA $GDDAT
;WHAT REGISTER SHOULD BE
$8DDAT, $TMPO
;MOVE REGISTER CONTENTS TO *'S$TMPO’
#*CATA,$TMPQ
;SAVE SPECIFIED BITS
$GDDAT,$TMPO
;COMPARE THE BITS
703
;BR IF OK
$8DDAT, $TMP4
;COPY 'BAD DATA'
HATA , $TMP4
;CLEAR THE MASKED BITS
$TMP4 , $GDDAT
;'OR' WITH GOOD DATA FOR TYPEOUT
41

055734
055742
055750
055756
055764

024001
001170

10-105

(LR
MOV
MOv
ADD
MOV
MOV
8IC
cMP
BEQ
MOV
BIC
BIS
EMT

001126
001122

001250

N 16

18:06:25 PAGE

001126
001240
000010

72%:

001224
001172
001224
001166

001240
001126
000010

177777
000011

73%:

000013

001254
000000

000000

001170
001224
100000
001126

001126
001240
001126
001126

74$:

#P1P!WRL iOM, $TMP2
;CLEAR DONT CARES
S$STMP2,S$TMPO
;COPY IT INTO '$TMPO’

BIC

APIP!WRL
| OM, STMPS

81C

NATATVV,$TMPY

EMT

JMP
MOV
MoV
MOvB
TST
BEQ
MOV
MOV

MOVB
TST
BNE
MoV

MOV

MOV
EMT
MOV
MOV

BIC
(mMp

;CLEAR DONT CARES

:CLEAR PORT DEPENDENT BITS FROM THE COPY

$TMPO, $TMP1
72%
$TMPO
743

:1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
sBR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ”
;BR IF NOT

76$
$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0O)
$TMPO
73$
PORTA ,PTNBR
$TMP3, $BDDAT
PORTA _RMCS2(R0O)
$TMP1
74$
#<1,RELERR
#11,RMCST1(RO)
#13,RMCST1(RO)
26
$TMP2,$BDLAT
PORTA ,PTNBR
#ATA, $BDDAT
$GDDAT ,$BDDAT

cBYPASS THE REST OF THE CHECKS
;SET _UP POSSIBLE BAD DATA FOR ERROR MESSAGE
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORY B.
;SEE IF STATUS EQ O FROM PORT A.
;BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT N NEUTRAL
;'BAD DATA® FOR ERROR TYPE OUT

SELECT PORT A,
;SEE IF STATUS EC ZERO FROM PORT B.
:BR _IF NOT
;SET 'RELEASE ERROR' INDICATOR
. CLEAR THE DRJVE

;RELEASE THE DRIVE
;LOOK FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER
DON'T CHECK THE ATIN BIT
;ALL BITS Ox ?

(ZRMRBO RMQS5/3/2 DU POR TST 1

142

TEST PORT 'A*'

056176
056176

007401
104007

013737

001172

001126

0562146

042737

100000

001126

056222
056230
056232
056234

013737

023737
001401
104007
000240

4-APR-81 18:06:25 PAGE 10-106

TIMEOUT DOES NOT RESET DRIVE

056200

056206

MACRO Vv04.00

001226

001124

001240

BEQ
EMT

75%:

;BR [F OK FROM PORT A,

PORTB,PTNBR

;CHANGE PORT NUMBER

$TMP3,$8DDAT

JCHECK RMDS FOR BJT FAILURES = FROM PORT B.

BIC

HATA,$BDDAT

;DON'T CHECK THE ATTIN BT

(MP
8EQ
EMT
NOP

76%:

75%
7

MOV

001126

SEQ 0146

$GDDA 1 ,$BDNAT
76%
7

;SEE IF READ OK FROM PORT B.
;BR IF OK

;THE ATTENTION BIT FOR PORT B SHOULD NOT BE

05623¢
056244
056252
056256
056264
056272
056276
056302
056310
056316
056324
056326
056334
056342
056350
056352
056356

113760
013737
005037

016037

012737
060037
005037
013737
042737
023737
001414
013737
042737
053737
104052
005137
000240

001226
001226
001250
000012
000012
001122
001124
001126
077777
001124

00001C
001240

001126
100000
001174

001174
001174
001124

MOVB
MoV
CLR
MoV
MOV
ADD
(LR
MOV
BIC
(MP
BEQ
MOV
BIC
BIS
EMT

001126
001122
001164
001164
001164

001250

PORTB ,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR 1rPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT ;GET CONTENTS OF RMDS
#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
MOVE KREGISTER CONTENTS TO ‘$TMPO’
#~CATA,$TMPQ ;SAVE SPECIFIED BITS
$GDDAT ,$TMPO
;COMPARE THE BITS
77%
;BR IF OK
$BDDAT, $TMP4
;COPY 'BAD DATA’
#ATA,$TMP4
;CLEAR THE MASKED BITS
$TMP4 , SGDDAT
;'OR* WITH GOOD DATA FOR TYPEOUT
52

CoM
NOP

77%:

SET

(KERR

;SET THE REGISTER COMPARE ERROR IMNDICATOR

;CLEAR ATTENTION BIT FOR PORT A

056360
056366
056372
056400
1382
1396

056406

113760
005060
012760
012760
000004

001224
000012
000011
000013

1397

000010
000000
000000

MOVB
CLR
MOV
MOV

3%:

SCOPE

J*TEST 43

PORTA ,RMCS2(R0O)
;SELECT PORT #A
RMDS (RO)
;SEIZE THE DRIVE
#11,RMCS1{(RO)
;ISSUE DRIVE CLEAR
#13,RMCS1(RO)
;RELEASE THE DRIVE
;Loop ?

AR RN AN

R AR AR AR AR

AR AN E N B R AR AR

RR R EN RN RN O

TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE

$*VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE.
»*

SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS.

WRITE 1'S INTO RMER1 THROUGH PORT 'B'.

. %

;v
i

WAIT FOR THE DRIVE TO TIMEOUT.

VERIFY THAT THE DRIVE RETURNED TO

NEUTRAL; THAT ATTENTION IS SET FOR PORT 'B' AND IS NOT SET FOR
PORT "A*; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER.

056410

056410
056416
056416

:'"*it"ittttttttttttttt"*tttfit'ttl'i'tfil'Q'tt!'lttitkittfittttittttt
005737
001406
100002

001300

78743:

ST
BEQ
BPL

KYBCTL
2§
18

:PERFORMING ONLY SINCLE TEST :
:BR IF NOT
:BR IF JUST ENTERED TEST

( ZRMRBO RMJ5/3/2 DU POR TST 1
MACRO v04.00 4-APR-81
143
TEST PORT °'B' TIMEOUT DOES NOT RESET DRIVE

056420
056424
056432
822222

056446

056454
1308 056460

000137
012737

012737
012737

003074
177777
056446
056446

001300

001106
001110

1%:

2%:
TEST43

112737 000043 001102

012706
012737

001100
000002

1399

JMP
MOV

EXEC
#-1,KYBCTL

NTEST4L3,8LPADR
MTESTL3,8LPERR

JRETURN £ GET NEXT TEST NUMBER
JSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

' MOvB

#e3,STSTNM

JMOVE #43 TO TEST NUMBER

MOV
MOV

001176

18:06:25 PAGE 10-107

#STACK ,SP
#2.,8TIMES

JLOAD THE STACK POINTER
;D0 2. ITERATIONS

:CLEAR ATTENTION BITS FOR BOTH PORTS

056466
056474
056500
0556506
056514
056522
056526
05653

113760
005060
012760
012760
113760
005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
0C0013

000010

MOVB
CLR
Mov
MOV
MovB
CLR
MOV
Mov

000000
000000
000010
000000
000000

PORTA,RM(CS2(R0O)
RMDS (RO)
#11,RMCS1(RO)
#13 ,RMCST(RO)
PORTB,RMCSZ2(RO)
RMDS (RO)
#11,RMCS1(RO)
#13,RMCS1(RO)

,;SELECT PORT #A
;SEIZE THE DRIVE
;ISSUE CRIVE CLEAR
JRELEASE THE DRIVE
;SELECT PORT #8
JSEIZE THE DRIVE THROUGH PORT ‘B’
; ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

:SEIZE THE DRIVE THROUGH PORT B

056542
056550
056556
056562

113760
013737
005060
013737

000010
001242

MOVB
MOV
CLR
MOV

001244

PORTB,RMCS2(R0O) ;SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
JWRITE RMDS
PORTA ,OPPRT
:'OPPOSITE®' PORT ADDRESS

;FORCE AN ATTENTION BY SETTING ERRORS.

056570

012760

177777

000014

MOV

#-1,RMERT(RO)

;SET ERROR BITS

;START THE TIMER
056576
056602
056610
056616

005037
012737
113760
013737

001256
003720
001224
0012246

CLR
MOV
MOVB
MOV

001260
000010
001240

TIME
;CLEAR THE ELAPSED TIME COUNTER
#2000. ,WAT(H
;SET WATCH TO 2000. MS
PORTA ,RMCS2(R0O)
;SELECT PCRT A
PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

JWAIT FOR DRIVE TO TIMEOUT
056624

005760

000012

056632

005737

001260

056642
056650

113760
013737

001226
001226

056630

056636
056640
056642

001004

001372
104036

1%:

000010
001240

2%:

TST

RMDS (RO)

;WAIT FOR THE DRIVE TO BE RELEASED

TST

WAT(CH

:WATCH AT ZERO ?

MOVB
MOV

PORTB,RMCS2(RC)
;SELECT PORT B
PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

BNE

8NE
EMT

1%
36

:BR IF DRIVE RELEASED
:BR IF NOT

:THE ERRGR BIT ('ERR') IN RMDS SHOULD STILL BE SET
056656
056662
056670

005037
016037
012737

001250
000012
000012

001126
001122

CLR
MOV
MOV

CKERR
:CLEAR THE °'CHECK ERROR' INDICATOR
RMDS
(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE

056702

012737

040000

001124

MOV

#ERR,$GDDAT

—

£56676

060037

001122

ADD

RO, $8DADR

;ADD RH/RM BASE ADDRESS

;WHAT REGISTER SHOULD BE

SEQ 0147

MACRO Vv04.00 &4-APR-81
(ZRMRBO RM05/3/2 DU POR TST 1
143
TEST PORT 'B* TIMEOUT DOES NOT RESET DRIVE
056710
056716
056724
056732
056734
056742
056750
056756
056760
056764

013737
042737
023737
001414
013737
042737
053737
104023

005137
000240

001126
137777
001124

001164
001164
001164

001126

001174
001174
001124

040000

001174

001250

MOV

$BDDAT,$TMPQ

BIC
(MP
BEQ

#~CERR,$TMPO

BIC
BIS
EMT
COM
NOP

#ERR,$TMP4
$TMP4
, $GDDAT

MOV

668%:

18:06:25 PAGE 10-108

$GDDAT ,$TMPQ
66%
$BDDAT,$TMP4

CKERR

SEQ 0148

JMOVE REGISTER CONTENTS TO °*$TMPO’

;SAVE SPECIFIED BITS
;COMPARE THE BITS
;BR IF 0K
;COPY 'BAD DATA'
;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

;JSET THE REGISTER COMPARE ERROR INDiCATOR

;THE ERROR REGISTER SHOULD CONTAIN 1'S
056766
056772
057000
0570C6
057012
057020
057026
057030
057032
057036

005037
016037
012737
060037
012737
023737
001403
104010
005137
000240

001250
000014
000014
001122
177777
001124

CLR
MOV
MOV
ADD
MoV

001126
001122
001124
001126

001250

68%:

(MP
BEQ
EMT
CoM

NOP

CKERR
;CLEAR THE ‘'CHECK ERROR' INDICATOR
RMER1(RO) ,$8DDAT
;GET CONTENTS OF RMER1
#RMER1,$BDADR
;FORM REGISTER ADDRESS OF ERROUR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
4177777 ,5GDDAT
;WHAT REGISTER SHOULD BE
$GDDAT ,$8DDAT
;1S THE REGISTER 0K ?
?g$
JBR IF OK
CKERR

;SET THE REGISTER COMPARE ERRCR INDICATOR

;THE ATTENTION BIT FOR PORT B SHCULD STILL BE SET
057040
057044
057052
057060
057064
057072
057100
057106
057114
057116
057124
057132
057140
057142
057146

005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737
053737

001250
000012
000012
001122
100000
001126
077777
001124

005137
000240

001250

104041

001126
100000
001174

CLR
MoV
MOV
ADD
MOV
MOV

001126
001122
001124
001164
001164
001164

001174
001174
001124
70%:

BIC
CMP
BEQ
MOV
BIC
BIS
EMT
coMm
NOP

CKERR
;CLEAR THE °'CHECK ERROR'
RMDS (RO) ,$8DDAT
;GET CONTENTS Or RMDS

INDICATOR

#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
;ADD RH/RM BASE ADDRESS
#ATA ,SGDDAT
;WHAT REGISTER SHOULD BE

$BDDAT ,$TMPO

#~CATA,8TMPO
$GDDAT, $TMPO
70%

$BDDAT,$TMP4

#ATA, STMPL
2¥MP4,$GDDAT

CKERR

;MOVE REGISTER CONTENTS TO ‘$TMPQ’

:SAVE SPECIFIED BITS
;COMPARE THE BITS
;BR IF OK

;COPY °'BAD DATA'

;CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT

JSET THE REGISTER COMPARE ERROR INDICATOR

JVERIFY THAT THE DRIVE IS STILL IN NEUTRAL
057150
057154
057162
057166
057174

057202
057210
057216
057224
057232
057240
057246
057254

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037
042737
013737

001254
000012
001122
051700
001224
000012
024001
001170
100100
001226
000012
024001
001172

001122
001124
000010
001170
001170
001164
001164
000010
001172
001172
001166

CLR
MOV
ADD
MOV
MOvB
Mov
BI(C
MOV
BIC
MOVB
MoV
BIC
Mov

RELERR
#RMDS
, $BDADR
RO, $8DADR

;CLEAR THE °'RELEASE ERROR ' INDICATOR
;FORM THE ADDRESS OF RMDS FOR TYPEGUT
:ADD THE 1/0 BASE ADDRESS
; COMPARSION CONSTANT

#51700,$GDDAT
PORTA ,RMCS2(R0O) ;SELECT PORT A,
RMDS
(RO) ,$TMP?
;GET THE DRIVE STATUS REGISTER FROM PORT A.
APIP!WRL'OM,S$TMP?
;CLEAR DONT CARES
$TMP2,$TMPO
;COPY IT INTO ‘'$TMPO’
HATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE (OPY
PORTB,RMCS2(RQ) ;SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B,
(RO) , $TMP3
RMDS

#PIP'WRL
.OM, $TMPS
$TMP3,$TMP]

;CLEAR DONT CARES
;COPY IT INTO '$TMPY!'

CZRMRBO RM0S/3/2 DU POR TST 1

MACRO V04.00

4-APR-81

TEST PORT °*B® TIMEOUT DOES NOT RESET DRIVE

057262
057270
057276
057300
057304

057306
057310
057314
057322
057330
057336
057342
057344
057352
057360
057366
057372
057374
057402
G57410
057416
057420
057426
057434
057442
057450
057452
057454
057462
057470
057476
057504
057506
057510

042737
023737
001006
005737
001045

104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104026
013737
013737
042737
023737
001401
104007
013737
013737
042737
023737
001401
104007

100100
(01164

001166
001166

0011¢4
057510
001170
001226
001226
001164

001126
001240
000010

001224

001240

177777
000011
000013

001254
000000
000000

73%:
*

001170
001224

001126
001240

74%:

001172
001226
100000
007124

001126
001240
001126
001126

75%:

001172
001224
001166

100000
001124

001126
000010

001126
001126

76%:

000240

113760
013737
005037
016037
012737

001224
001224
001250
000012
000012

057564
057572
057600
057602
057610
057616

042737
023737
001414
013737
042737
053737

077777
001124

001164
001164
001164

001126
100000
001174

001174
001174
001124

057624

057626

057632

060037
005037
013737

104052

005137
000240

001122
001124
001126

001250

NOF

#ATA!VV,$TMP1
$TMPQ, $TMPT
72%
$TMPO
74%
46
763
$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(RO)
$TMPO
73%
PORTA,PTNBR
$TMP3, $BDDAT
PORTA,RMCS2(R0)
$TMPY
74%
#-1,RELERR
#11,RMCST1(RO)
#13,RMCST1(RO)
26
$TMP2, $BDDAT
PORTA ,PTNBR
HATA,$BDDAT
$GDDAT ,$8DDAT
75%
7
$TMP3,SBDDAT
PORTB,PTNBR
#ATA ,$BDDAT
$GDDAT ,$BDDAT
76%
7

. CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
;BR [F NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT
;BYPASS THE REST OF THE CHECKS
JSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A,
;BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
; 'BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR _IF NOT
sSET 'RELEASE ERROR' INDICATOR
;CLEAR THE DRIVE
;RELEASE THE DRIVE
;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER

;DON'T CHECK THE ATTN BIT
;ALL BITS OK ?
;BR IF OK FROM PORT A.

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
s CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.
JBR IF OK

sTHE ATTENTION BIT FOR PORT A SHOULD NOT BE SET

057512
057520
057526
057532
057540

057546
057552
057556

72%:

8IC
CMP
BNE
TST
BNE
EMT
JMP
MOV
MoV
MOVB
TST
BEQ
MOV
MOV
MOovB
TST
BNE
Mov
Mov
MOV
EMT
MOV
MOV
BIC
CMP
BEQ
EMT
MOV
MOV
8I1C
cMP
BEQ
EMT

1B:06:25 PAGE 10-109

000010
001240
001126
001122

MOVB
MOV
CLR
MOV
MOV

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE ‘'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT
;GET CONTENTS OF RMDS
A#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE

BIC
CMP
BEQ
MOV
BIC
BIS

#“CATA,$TMPO
$GDDAT,$TMPO
77%
$BDDAT,$TMP4
HATA , $TMP4
$TMP4 , $GDDAT

ADD
CLR
MOV

EMT

77%:

coM

NOP

RO, 3$BDADR
$GDDAT
$8DDAT, $TMPO

;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTS TO '$TMPO’

;SAVE SPECIFIED BITS
:COMPARE THE BITS
;BR_IF 0K
;COPY ‘'BAD DATA'
;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEQUT

CKERR

;CLEAR ATTENTICN BIT FOR PORT B

;SET THE REGISTER COMPARE ERROR INDICATOR

SEQ 0149

C b4 R MRBO

T4 3

RM05/3/2 DU POR TST 1

MACRO Vv04.00

057634
057642
057646
057654
057662

000010

TEST PORT

°‘B'

113760
005060
012760
012760
000004

4-APR-81 18:06:25 PAGE 10-110

TIMEOUT DOES NOT RESET DRIVE

001226
000012
000011
000013

000000
000000

MOvB
CLR
MOV
mMov
SCOPE

3%:

PORTB,RMCS2(R0) ;SELECT PORT #B
;SEIZE THE DRIVE
RMDS (RO)
#11,RMCS1(RO)
;ISSUE DRIVE CLEAR
#13,RMCST1(RO)
;RELEASE THE DRIVE
;LOOP ?

:'t*tttttttfiti****'t'tttttitttttlt*tttt.t*ttttitttititttttfilttttt

SRTEST 44

PORT 'A' RETRIGGER BY DEMAND TEST

. %

;*VERIFY THAT 14E PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND.
* %

SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING 0'S INTO RMDS.

WAIT 500 MS AND READ RMDS THROUGH PORT 'A'.

VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 25% OF THE SPECIFIED

VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION
BIT IS SET.

. %

TIME.

(THE MEASUREMENT

IS MADE FROM STEP 'B'.)

. %

‘+
i
. %

057664
057664

005737

057700
057706
057714

012737
012737
012737

057670
057672
057676

N OO

[V,

001300

003074

177777
057722
057722

057722 112737 000044

001102

T MOVB

#44,STSTAM

;MOVE #44 TO TEST NUMBER

057734

001176

MOV

#2. $TIMES

::D0 2. ITERATIONS

057730

—

001406
100002
000137

;:tt*ttt*ttttttt**t**iti*i**tttttttttttfit**itt*t**tttttttt'ttttt'
TST44:
TST
KYBCTL
;PERFORMING ONLY SINGLE TEST ?
BEQ
2%
:BR IF NOT
8PL
18
:BR_IF JUST ENTERED TEST
JMP
EXEC
:RETURN & GET NEXT TEST NUMBER
001300 18:
MOV
#-1,KYBCTL
:SET SINGLE TEST INDICATOR
001106 2%:
MOV
#TEST44L SLPADR :SETUP SCOPE LOOP ADDRESS
001110 MOV
#TEST44,SLPERR :SETUP ERROR LOOP ADDRESS

012706

012737

001100

000002

MOV

#STACK, SP

:LOAD_THE STACK POINTER

:CLEAR ATTENTION BITS FOR BOTH PORTS

057742
057750
C57754
057762
057770
057776
060002
060010

113760
005060
012760
012760
113760
005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

000010

MovB
CLR
MoV
MoV
MOvB
CLR

000000
000000
000010
000000
000000

MOV
MoV

PORTA,RMCS2(R0O)
RMDS (RO)
#11,RMCST1(RO)
#13,RMCS1(RO)
PORTB,RMCS2(RO)
RMDS (RO)
#11,RMCS1(RO)
#13 ,RMCS1(RO)

;SELECT PORT #A
;SEIZE THE DRIVE
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT 'B'
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

;SEIZE THE DRIVE THROUGH PORT A

060016
060024
060032
060036

113760
013737
005060

013737

001224
001224
000012
001226

000010
001242

MOvB
MoV
CLR
MOV

001244
;START

THE

TIMER

PORTA,RMCS2(R0) ;SELECT PORT A
PORTA,SEI1ZPT ;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
;WRITE RMDS
PORTB,0PPRT
;"OPPOSITE' PORT ADDRESS

SEQ 0150

CZRMRBO RM0S/3/2 DU POR TST 1

T44

PORT

'A'

060044
060050
060056
060062

MACRO Vv04.00

RETRIGGER BY DEMAND TEST

005037
012737
005737
001375

001256
000764
001260

001260

18:

4&-APR-81 18:06:25 PAGE 10-111
CLR
MoV
TST
BNE

SEQ 0151

TIME
#500. ,WATCH
WATCH
1%

:CLEAR THE ELAPSED TIME COUNTER
JSET WATCH TO TIM. MS

TIME

;CLEAR THE ELAPSED TIME COUNTER

JWATCH EQUAL TO ZERO
;BR IF NOT

;START THE TIMER

060064
060070

005037
012737

001256
003720

CLR

MOV

001260

#2000. ,WATCH

;SET WATCH TO 2000. MmMS

JRETRIGGER THE TIMEOUT ONE~-SHOT
060076
060102
060110
060116
060122
060124
060130
060132
060134

005760
113760
013737
005760
001004
005737
001372

000012
001226
001226
000012

013737

001256

104036

000010
001240

2%:

001260

TST

RMDS (RO)

JRETRIGGER THE ONE-~SHOT

TST

RMDS (R0O)

;WAIT FOR TIMEOUT

TST

WATCH

;WATCH EQUAL

EMT

MOVB
MOV
BNE

BNE
001276

3$:

MOV

PORTB,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
3%

060146
060154

060160
060166
060174
060202
060210
060216
060224
060232
060240
060246
060254
060262
060270
060272
060276
060300
060302
060306
060314
060322
060330
060334
060336
060344
060352
060360
060364
060366
060374
060402

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760

016037
042737
013737
042737
023737
001006
005737
001045
104046
000137

013737
013737

113760
005737
001414

013737
013737
113760
005737
001012
012737
012760
012760

001254
000012
001122
011700

001224
000012

024001
001170
100100
001226
000012
024001
001172
100100
001164

001124
000010
001170
001170
001164
001164
000010
001172
001172
001166
001166
001166

TIME,TIMES

;SAVE THE ELAPSED TIME VALUE

060466
001170
001226
001226
001164

001126
001240
000010

001224
001172
001224
001166

001240
001126
000010

177777
000011
000013

001254

000000
000000

67%:

IN NEUTRAL

MOV
MOVB
MOV

#MOL ! PGM!DPR!DRY!VV
, $GDDAT
;COMPARISON CONSTANT
PORTA ,RMCS2(R0) ;SELECT PORT A.
RMDS(RO) ,$TMP2
.GET THE DRIVE STATUS REGISTER FROM PORT A.

HRMDS , $BDADR
RO, $BDADR

;CLEAR THE

°'RELEASE ERROR '

INDICATOR

;FORM THE ADDRESS OF RMDS FOR TYPEOUT
;ADD THE 1/0 BASE ADDRESS

APIP!WRL'!OM,$TMP?

;CLEAR DONT CARES

#PIP!WRL!OM, STMPS

;CLEAR DONT CARES

MOV
BIC
MOVB
MoV

$TMP2,$TMPO
;COPY IT INTO '$TMPO’
#ATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB_RMCS2(R0) ;SELECT PORT B.
RMDS(RO) ,$TMP3
;GET THE DRIVE STATUS REGISTER FROM PORT 8.

MOV
BIC
(mp
BNE

$TMP3 , $TMP1
HATA!VV ,$TMP1
$TMPO, $TMP1
66%

BIC

66%:

IS STILL

RELERR

BIC

001164

TO ZERO ?

;BR IF NOY

CLR

MOV
ADD

001122

TIMEOUT OCCURRED

JVERIFY THAT THE DRIVE

060142

;BR _IF

;COPY IT INTO '$TMP1®
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
;BR IF NOT

TST
BNE
EMT
JMP

$TMPO
68%
46
70%

JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

MoV
MOVB
TST
BEQ
MoV
MOV
MOVB
TST
BNE
MOV
mMov
MOV

PORTB,PTNBR
PORTB,RMCS2(R0)
$TMPO
67%
PORTA,PTNBR
$TMP3 , $BDDAT
PORTA,RMCS2(R0)
$TMP1
68%
#-1,RELERR
#11,RMCS1(RO)
#13 RMCS1(RO)

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
;BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
:'BAD DATA' FOR ERROR TYPE OQUT
:SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR_IF NOT
;SET 'RELEASE ERROR' ‘INDICATOR
;CLEAR THE DRIVE
;RELEASE THE DRIVE

Mov

$714P2 , $BDDAT

;BYPASS THE REST OF

THE CHECKS

;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

(ZRMRBO RM05/3/2 DU POR TST 1
MACRO V04.00
T44
PORT *A’ RETRIGGER BY DEMAND TEST

060410
060412
060420
060426
060434
060436
060440
060446
060454
060462
060464

060466

104022
013737
013737
023737
001401
104007
013737
013737
023737
001401
104007

(01170
001226
001124

001126
001240
001126

68%:

001172
001226
0011264

001126
001240
001126

69%:

4-APR-81 18:06:25 PAGE 10-112

EMT
MOV
MOV
CMP
BEQ
EMT
MOV
MOV
CMP
BEQ
EMT

NOP

708:

000240

SEQ U152

22
$TMP2,$BDDAT
;LOOK FOR BIT FAILURES WHEN RMDS READ
: CHANGE PORT NUMBER
PORTA,PTNBR
;ALL BITS OK ?
$GDDAT,$BDDAT
69%
:BR IF OK FROM PORT A.
7
$TMP3,$BDDAT
;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
:CHANGE PORT NUMBER
PORTB,PTNBR
$GDDAT,$BDDAT ~ :SEE IF READ OK FROM PORT B.
:BR IF OK
703
7

:CHECK THE TIME FROM RETRIGGER TO TIMEOUT

060470

023737

001276

001264

060500

023737

001276

001266

060476
060506

060510

1454
1470

060510
060512

003004
002001

CMP

104025
000004

1471

;MEASURED TIME GREATER THAN +25% TOLERANCE >

TIMES,TIMEAM

:MEASURED TIME LESS THAN -25% TOLERANCE

BGE

CMP

4%:

TIMES,TIMEAP

BGT

EMT
SCOPE

S*TEST 45
- %

AI AR RN

:BR IF GREATER
:BR IF NOT
;LOOP ?

A A AR KR RA R AN

AR AR AR AR AR AR R AR AR AR

PORT 'B' RETRIGGER BY DEMAND TEST

AR AR

:«VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND.
. %

‘x

SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0'S INTO RMDS.

WAIT 500 MS AND WRITE 0°'B INTO RMDS THROUGH PORT ‘A°.

‘x
i*

VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 25% OF THE SPECIFIED
(THE MEASUREMENT IS MADE FROM STEP 'B'.)
TIME.

. %

- %

P*
%

:'"tttttt*ttl’**it***i*t*****t*tk*tttttttt*tl’tttt*ttttt*ttttttittt*

060514
060514

005737

001300

060522
060524
060530
060536
8282§3

100002
000137
012737
012737
012737

003074
177777
060552
060552

001300
001106
001110

112737 000045

001102

060520

060552

060560
172 060564

VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION

BIT IS SET.

001406

012706
012737

001100
000002

T5745:

TST

KYBCTL

8PL
JMP
MOV
MOV
MOV

1$
EXEC
#-1,KYBCTL
#TEST4S,$LPADR
ATEST45,$LPERR

BEQ

001176

1473

1%:
2$:
resas:

"7 MOVB
MOV
MOV

:PERFORMING ONLY SINGLE TEST ?

:BR IF NOT

445, STSTAM

;MOVE #45 TO TEST NUMBER

#STACK , SP
#2.,8TIMES

:BR_IF JUST ENTERED TEST
:RETURN & GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
:LOAD_THF STACK POINTER
::D0 2. ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS
060572

113760

001224

000010

MOVB

PORTA,RM(S2(R0) SELECT PORT #A

MACRO V04.00
CZRMRBO RM05/3/2 DU POR TST 1
T4S
PORT 'B' RETRIGGER BY DEMAND TEST

060600

060604
060612
060620
060626
060632
060640

005060

012760
012760
113760
005060
012760
012760

000012

000011
000013
001226
000012
000011
000013

CLR

MOV
MOV
mMov8
CLR
MOV
MoV

000000
000000
000010
000000
000000

4-~PR-81 18:06:25 PAGE 10-113

RMDS (R0O)

#11,RMCST1(RO)
#13,RMCS1(RO)
PORTB,RMCS2(R0O)
RMDS (RO)
#11,RMCST1(RO)
#13,RMCS1(RO)

SEQ 0157

;SEIZE THE DRIVE

;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SELECT PORT 48
sSEJZE THE DRIVE THROUGH PORT 'B’
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

;SEIZE THE DRIVE THROUGH PORT B

060646
060654
060662
060666

113760
013737
005060
013737

001226
001226
000012
001224

0005°0
001242

MovB
MOV
CLR
MOV

001244

PORTB,RMCS2(RO) ;SELECT PORT B
PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
JWRITE RMDS
PORTA,OPPRT
;'OPPOSITE' PORT ADDRESS

;START THE TIMER

060674
060700
060706
060712

005037
012737
005737
001375

091256
000764
001260

001260

1%:

CLR
MoV
1ST
BNE

TIME
#500. ,WATCH
WATCH
1%

;CLEAR THE ELAPSED TIME COUNTER
;SET WATCH 10 TIM. MS
;WATCH EQUAL TO ZERO
;BR IF NOT

TIME
#2000. ,WATCH

;CLEAR THE ELAPSED TIME COUNTER
;SET WATCH TO 2000. M5

;START THE TIMER

060714
060720

005037
012737

001256
003720

CLR
MoV

001260

JRETRIGGER THE TIMEOUT ONE-SHOT

060726

060732
060740
060746
060752
060754
060760
060762
060764

005760

113760
013737
005760
001004
005737
001372
104036
013737

000012
001224
001224
000012

000010
001240

TST

2%:

001260
001256

001276

3%:

MovB
MOV
TST
BNE
TST
BNE
EMT
Mov

RMDS (R0O)

JRETRIGGER THE ONE-SHOT

PORTA,RMCS2(R0)
;SELECT PORT A
PORTA ,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (RO)
JWAIT FOR TIMEOUT
3%
;BR _IF TIMEOUT OCCURRED
WATCH
JWATCH EQUAL TO ZERO ?
2%
:BR IF NOT
36
TIME, TIMES
;SAVE THE ELAPSED TIME VALUE

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL

060772
060776
061004
061010
061016
061024
061032
061040
061046
061056
061062

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012

061076
061104
061112

013737
042737
023737

001172
100100
001164

061070 042737 024001
061120

001006

001122

001124
000010
001170
001170
001164
001164
000010
001172

001172

001166
001166
001166

CLR

MOV
BIC
MOVB
MOV

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
HRMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO,$8DADR
;ADD THE 1/0 BASE ADDRESS
A#MOL ! PGM!DPR!DRY
! VV ,SGUDAT ;COMPARISON CONSTANT
PORTA,RMCS2(RQ) ;SELECT PORT A.
RMDS(RO) ,$TMP2 .GET THE DRIVE STATUS REGISTER FROM PORT A.
AP1P!WRL!OM,STMP?
;CLEAR DONT CARES
$TMP2,$TMPO
;COPY IT INTO '$TMPO’
#ATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0Q) .SELECT PORT B.
RMDS(RO) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.

MCvV
BIC
CMP

$TMP3, $TMP1
HATA'VV $TMP1
$TMPO, $TMP1

MoV
ADD
MOV
Movs
MOV
BIC

BIC

BNE

#PIP!WRL iOM,$TMPS
66%

;CLEAR DONT CARES

;COPY IT INTO '$TMP1'
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
;BR [F NOT

4-APR-81!

MACRO V04.00
CZRMRBO RMOS/3/2 DU POR TST 1
T4
PORT 'B' RETRIGGER BY DEMAND TEST
061122
061126
061130
061132
061136
061144
061152
061160
061164
061166
061174
061202
061210
061214
061216
061224
061232
061240
061242
061250
061256
061264
061266
061270
061276
061304
061312
061314
061316

005737
001045

001164

000137
013737
013737

061316
001170
001226
001226
001164

104C_5

113760

005737
001414
013737
013737
113760

005737
001012
012737
012760
012760
104022

013737
013737
023737
00140
104007
013737
013737
023737
001401

001126
001240
000V10

TST
BNE
EMT
JMP
MoV

66%:

MOV
MOVB
TST

BEQ

001224
001172
001224
001166

001240
001126
000010

MOV
MoV
movBe

177777
000011
000013

001254
000000
000000

MoV
MOV
MoV

001170
001224
001124

001126
001240
001126

MoV
MOV

001172
001226
001124

001126
001240
001126

104007

TST
BNE

EMT

CMP
BEQ
EMT
MoV
MOV
cMP
8EQ
EMT
NOP

69%:

70%:

000240

18:06:25 PAGE 10-114

SEQ 0154

JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

$TMPO

68%

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTB,PTNBR
;JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,RMCS2
(RO) JSELECT PORT B.
$TMPO
;SEE IF STATUS EQ O FROM PORT A.
67$
;BR IF ZERO
PORTA,PTNBR
JSEJZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
$TMP3, $BDDAT
;'BAD DATA' FOR ERROR TYPE OUT
PORTA,RMCS2(R0) ;SELECT PORT A.
$TMP1
;SEE IF STATUS EQ ZERO FROM PORT B.
68%
;BR _IF NOT

70%
$TMP2, $BDDAT

-1,RELERR
411 ,RMCS1(RO)

;SET 'RELEASE ERROR' INDiCATOR

$TM>2 ,$BDDAT

;LOOK FOR BIT FAILURES WHEN RMDS READ
;CHANGE PORT NUMBER
JALL BITS OK ?
;BR IF OK FROM PORT A.

g%S.RMCST’RO)
PORTA,PTNBR

$GDDAT, $BDDAT
995
P3
, $BDDAT
$TM
PORTB,PTNBR

$GDDAT, $BDDAT
;OS

;CLEAR THE DRIVE
JRELEASE THE DRIVE

;CHECK RMDS FOR BIT FAILURES -~ FROM PORT B.
; CHANGE PORT NUMBER
;SEE IF READ OK FROM PORT B.
;BR IF OK

;CHFCK THE TIME FROM RETRIGGER TO TIMEOQUT

4%:

cMP
86T
(MP
BGE

ZiMES.TIMEBP

JMEASURED TIME GREATER THAN +25X% TOLERANCE °

TIMES, TIMEBM
.+

JMEASURED TIME LESS THAN -25% TOLERANCE

EMT
SCOPE

PORT 'A'

;BR IF GREATER

:BR IF NOT
;LOOP ?

2223222332222 3 332282222032

firssr 46

22202

2820

TIMEOUT/RELEASE TEST

iRttt

>
@TM
(]

ISSUE A RELEASE CCMMAND FROM PORT 'B'.
VERIFY THAT THE DRIVE
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘'ATA' BIT DID NOT
SET FOR PORT 'B'. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A°.

WAIT THE TIMEOUT INTERVAL + 25X%.

X
%
%

SET PORT REQUEST BY WRITING 0°'S INTO RMDS FROM PORT ‘A'.

SEIZE THE DRIVE THROUGH PORT ‘B’ BY WRITING 0'S INTO RMDS.

*VERIFY THAT THE TIMEOUT ONE~SHOT IS TRIGGERED WHEN THE DRIVE
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES.

001276

001274

001272

1474
1495
1496

061342

104025
000004

001276

N61340

023737
003004
023737
002001

TR "

061320
061326
061330
061336
061340

BEEN RELEASED.

VERIFY THAT THE DRIVE HAS

CZRMRBO RMOS/3/2 DU POR TST 1

TIMEOUT/RELEASE TEST

YRR

‘A’

RELEASE THE DRIVE THROUGH PORT ‘A’.

VERIFY THAT THE DRIVE

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT

IS SET.

PORT

146

4-APR-81 18:06:25 PAGE 10-115

MACRO V04.00

1497
1541

061344
061344
061350
061352
061354
061360
061366
061374
061402
061402
061410
061414

005737
001406

001300

000137
012737
012737
012737

003074
177777
061402
061402

100002

000046
012706 -001100
012737 000002
112737

2228222332223

TST46:

001300
001106
001110

1$:

2%:
TEST46

3223222222222

TST
BEQ
BPL

KYBCTL
2%
1%

MoV

#=1,KYBCTL

JMP

MOV
MoV

001102

MOVB

001176

Mov

MGV

8222220222222

222

2RX2RddRl

JPERFORMING ONLY SINGLE TEST ?
;BR IF NOT
JBR_IF JUST ENTERED TEST

EXcC

JRETURN & GET NEXT TEST NUMBER

HTEST46,8LPADR
ATEST46,8LPERR

;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

;SET SINGLE TEST INDICATOR

#46,STSTNM

JMOVE #46 TO TEST NUMBER

42.,8TIMES

;:D0 2. ITERATIONS

H#STACK,SP

;LOAD THE STACK POINTER

;CLEAR ATTENTION BITS FOR BOTH PORTS
061422
061430
061434
061442
061450
061456
061462
061470

113760
005060

012760
012760
113760
005060

012760
012760

001224
000012
000011
000013
001226
000012
000011

000013

000010
000000
000000
000010
000000
000000

MOVB
CLR
MOV

PORTA ,RMCSZ(RO) ;SELECT PORT #A
RMDS (RO)
;SEIZE THE DRIVE
#11,RMCST(RO)
;ISSUE DRIVE CLEAR

MOVB

PORTB,RMCS2(R0)

MoV

CLR

MOV

#13,RMCST(RO)

;RELEASE THE DRIVE

RMDS (RO)

;SEIZE THE DRIVE THROUGH PORT ‘B’

#11 ,RMCST(RO)

#13,RMCS1(RO)

;SELECT PORT #8

;ISSUE DRIVE CLEAR

;RELEASE THE DRIVE

:SEIZE THE DRIVE THROUGH PORT B
061476
061504
061512
061516
061524
061532

113760

013737
005060
013737
113760
013757

001226
001226
000012
001224
001224
001224

000010
001242

001244
000010
001240

Movs
MoV
CLR
Mov
MovB
MoV

PORTB,RMCS2(R0O) ;SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
;WRITE RMDS
PORTA,OPPRT
;'OPPOSITE' PORT ADDRESS
;SELECT PORT A
PORTA,RMCS2(R0)
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FGR TYPEOUT

;SET REQUEST THROUGH PORT A
061540
061544

061552

005060
113760

013737

000012
001226
001226

000010

001240

CLR
MOVB
MoV

;SET REQUEST FOR PORT A
RMDS (RO)
PORTB,RMCS2(R0)
;SELECT PORT B
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
PORTB,PTNBR

JRELEASE THE DRIVE THROUGH PORT B
061560

012760

000013

000000

MOV

#13,RMCST1(RO)

;RELEASE DRIVE THROUGH PORT B

;WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%)
061566

013737

001264

001260

MoV

TIMEAP ,WATCH

;SET WATCH TO MEASURED TIMEOUT VALUE + 25%

;VERIFY THAT THE DRIVE IS SEIZED BY PORT A
"061574
061600

005037
016037

001250
000012

001126

CLR

MoV

CKERR

RMDS(RO) ,$BDDAT

;CLEAR THE 'CHECK ERROR' INDICATOR
;GET CONTENTS OF RMDS

MACRO V04.00
~JRMRBO RM0S/3/2 DU POR TST 1
146
PORT 'A' TIMEOUT/RELEASE TEST

061606
061614
061620
061624
061632
061634
061636
061642

012737
060037
005037
023737
001403
104031
005137
000240

061644
061650
061652

005737
001402
000137

061656
061662

005737
001375

000012
001122
001124
001124

001122
001126

001250

66%:

001250
062226

4-APR-81 18:06:25 PAGE 10-116

SEQ 0156

MOV
ADD
(LR
MP
BEQ
EMTY
(oM

#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
JWHAT REGISTER SHOULD BE
;IS THE REGISTER OK ?
$GDDAT,$8DDAT
JBR IF OK
66%
3N
;SET THE REGISTER COMPARE ERROR INDICATOR
CKERR

TST
BEQ
JMP

CKERR
.40
1%

NOP

;REGISTER OK ?
;BR IF OK
;BYPASS REST OF TEST IF NOT

;WAIT FOR THE TIMER TO RELEASE THE DRIVE

001260

TST
BNE

WATCH
.4

sWATCH EQUAL ZERO ?
;BR IF NOT

;CONFIRM THAT THE DRIVE HAS TIMED OUT

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL

061664
061670
061676
061702
061710
061716
061724
061732
061740
061746
061754

005037
012737
060037
012737
113760
(016037
042737
013737
042737
113760
016037

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012

001124
000010
001170
001170
001164
001164
000010
001172

001172
100100
001164

001166
001166
001166

061762 042737 024001
061770
061776
062004

062012
062014
062020
062022

062024
062030
062036
062044
062052
062056
062060
062066
062074
062102
062106
062110
062116
062124
062132

062134

062142

013737
042737
023737

001006
005737
001045
104046
000137

013737
013737
113760
005737
001414
013737
013737
113760
005737
001012
012737
012760
012760
104035

013737

001122

001172

001126
001240
000010

68%:

001240
001126
000010

001254
000000
000000

69%:

001170

001126

70%:

001240

BIC

#PIP!WRL iOM,STMP3

MoV
BIC
CMP

177777
000011
000013
001224

;CLEAR THE 'RELEASE ERROR ' INDICATOR
RELERR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
#RMDS , $BDADR
RO, $8DADR
:ADD) THE 1/0 BASE ADDRESS
! VY, SGDDAT ; COMPARISON CONSTANT
#MOL ! PGM!DPR!DRY
PORTA,RMCS2(RQ) ;SELECT PORT A.
RMDS(RO) ,$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A.
#PIP!WRL !OM,$TMP?
;CLEAR DONT CARES
$TMP2,$TMPO
;COPY IT INTO ‘S$TMPO’
;CLEAR PORT DEPENDENT BITS FROM THE COPY
NATA'VV ,$TMPO

MOVB
MOV

00164
062224
001170
001226
001226
001164
}
001c24
001172
001224
001166

CLR
MOV
ADD
MOV
mMovB
MOV
BIC
MOV
BIC

BNE
TST
BNE
EMT
JMP

MOV
Mov
MOVB
TST
BEQ
Mov
MoV
movs
TST
BNE
MoV
MoV
Mov
EMT

MoV

Mov

PORTB,RMCS2(R0) ;SELECT PORT B.
RMDS
(RO) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.

$TMP3,$TMPI
#ATA!VV ,$TMP1
$TMPO,$TMP1
68%
$TMPO
70%
46
72%

$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0)
$TMPO
69%
PORTA,PTNBR
$TMP3, $BDDAT
PORTA,RMCS2(R0O)
$TMP1
70$
#-1,RELERR
#11,RMCS1(RO)
#13,RMCST1(RO)
35

$TMP2, $BDDAT

PORTA,PTNBR

;CLEAR DONT CARES

;COPY IT INTO °‘$TMPY’
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS °
;BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
:BR
IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
:'BAD DATA' FOR ERROR TYPE OUT
SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR _IF NOT
:SET 'RELEASE ERROR’ INDICATOR
;CLEAR THE DRIVE
;RELEASE THE DRIVE

;LOOK FOR BIT FAILURES WHEN RMDS READ
;CHANGE PORT NUMBER

4-APR-81

MACRO Vv04.00
(ZRMRBO RMO5/3/2 DU POR TST 1
TIMEOUT/RELEASE TEST
PORT ‘A’

18:06:25 PAGE 10-117

SEQ 0197

Y
I

ALY

146

062150
062156
062164
062166
062170
062176
062204
062212
062220
062222
062224
062226

042737
023737
001401

100000
001124

001126
001126

012737
013737

001172
001226

001126
001240
001126
001126

104007

042737
023737
001401

100000

001124

104007

000240
000004

71%:

BIC
CMP
BEQ
EMT
MOV

72%:
1%:

BIC
CMP
BEQ
EMT
NOP
SCOPE

MoV

2222222322233

*TEST 47

HATA,$BDDAT

;DON'T CHECK THE ATTN BIT
JALL BITS OK ?
;BR IF OK FROM PORT A.

$TMP3, $BDDAT

;CHECK RMDS FOR BIT FAILURES - FROM PORT 8.
; CHANGE PORT NUMBER
:DON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT 8.
;BR IF OK

$GDDAT, $BDDAT
;1$
PORTB,PTNBR
HATA,$BDDAT

$GDDAT
, $BDDAT

;25

;LOOP 2
332222202228222
R R0 R
Rl
l
sl

PORT

'B'

TIMEOUT/RELEASE TEST

*VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE
,t
SUITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES.
o>

SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0'S INTO RMDS.

SET PORT REQUEST BY WRITING 0'S INTO RMDS FROM PORT ‘B’.

ISSUE A RELEASE COMMAND FROM PORT ‘A'.
VERIFY THAT THE DRIVE
HAS SWITCHED YO THE OTHER PORT AND THAT THE °‘ATA' BIT DID NOT
SET FOR PORT 'A'.
REGISTERS WILL NOT BE CHECKED THROUGH PORT 'B’.

WAIT THE TIMEOUT INTERVAL + 25X%.

Jx
%

o*
:t

:x
:t

BEEN RELEASED.

VERIFY THAT THE DRIVE HAS

2223232323333 2233333222304 222

062230
062230

1562
1563

062234
062236
062240
062244
062252
062260
062266
062266
062274
062300

005737
001406

001300

000137
012737
012737
012737

003074
177777
062266
062266

112737
012706
012737

000047
001100
000002

100002

TST47:

001300
001106
001110

001102

001176

1%:

2%:
TEST47:

TST
BEQ
BPL
JMP

MOV

KYBCTL

2%
1%
EXEC

#-1,KYBCTL

MOV

HTEST47,SLPADR
HTEST4L7 ,$LPERR

MOvVB
MOV
MOV

#47 ,STSTNM
ASTACK,SP
#2. ,8$TIMES

MoV

3322820800022

00ttt tat

sttt

;PERFORMING ONLY SINGLE TEST ?
;BR IF NOT
;BR IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

:MOVE #47 TC TEST NUMBER

;LOAD THE STACK POINTER

;:D0 2. ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS
062306
062314
062320
062326
062334
062342
062346
062354

113760

005060
012760
012760
113760
005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

000010

MOVB

000000
000000
000010

MoV
MoV
MOVB

000000
000000

MOV
MOV

CLR

;SELECT PORT #A
;SEIZE THE DRIVE
;ISSUE DRIVE CLEAR
JRELEASE THE DRIVE
PORTB,RMCS2(R0) ;SELECT PORT #8
RMDS (RO)
:SEIZE THE DRIVE THROUGH PORT 'B’
#11,RMCST(RO)
. ISSUE DRIVE CLEAR
#13,RMCST(RO)
:RELEASE THE DRIVE

PORTA,RMCS2(RO)
RMDS (RO)
#11,RMCST(RO)
#13,RMCS1(RO)

MACRO V04.00
CZRMRBO RM0S5/3/2 DU POR TST 1
147
PORT °‘B' TIMEQUT/RELEASE TEST

4-APR-81 18:06:25 PAGE 10-118

;SEIZE THE DRIVE THROUGH PORT A

062362
062370
062376
062602
062610
0626416

113760
013737
005060
013737
113760
013737

001224
001224
000012
001226
001226
001226

MOVB
MOV
CLR
MOV
MOVB
MOV

000010
001242

001244
000010
001240

PORTA,RMCS2(R0) ;SELECT PORT A
PORTA.SEIZPT ;STORE SEIZING PORT'S ADDRESS
:WRITE RMDS
RMDS (RO)
;'OPPOSITE' PORT ADDRESS
PORTB,0FPRT
PORTB.RMCS2(RO) ' :;SELECT PORT B
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

:SET REQUEST THROUGH PORT B

062424
062430
0624636

005060
113760
013737

000012
001224
001224

CLR
MOVB
MOV

000010
001249

RMDS (RO)
;SET REQUEST FOR PORT B
PORTA,RMCS2(RO) ' ;SELECT PORT A
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

;RELEASE THE DRIVE THROUGH PORT A

062444

012760

000013

MoV

000000“

#13,RMCS1(RO)

;RELEASE DRIVE THROUGH PORT A

;WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%)

062452

013737

001272

001260

MOV

TIMEBP,WATCH

;SET WATCH TO MEASURED TIMEOUT VALUE + 25%

;VERIFY THAT THE DRIVE IS SEIZED BY PORT B

062460
062466
062472
062500
062504

005037
016037
012737
060037
95037

001250
000012
000012
001122
001124

062522

005137

001250

062510
062516
062520

023737
001403
104031

001124

062526
062530
062534

000240
005737
001402

000137

063112

062542
062546

005737
001375

001260

062536

001726
001122
001126

66%:

001250

CLR
MOV
MOV
ADD
CLR
e
BEQ
EMT
COM

:CLEAR THE °‘CHECK ERROR®' INDICATOR
CKERR
RMDS (30) ,$BDDAT ;GET CONTENTS OF RMDS
#RMDS ,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
WHAT REGISTER SHOULD BE
$GODAT
$GDDAT,$BDDAT
IS THE REGISTER OK 2
66$
‘BR IF OK
37
;SET THE REGISTER COMPARE ERROR INDICA10R
CKERR

JMP

CKERR
.+6
1%

NOP
TST
BEQ

;WAIT FOR THE

TST
BNE

TIMER TO RELEASE

WATCH
~4

:REGISTER OK ?
‘BR IF OK
;BYPASS REST OF TEST IF NOT
THE DRIVE

;WATCH [QUAL ZERO ?
‘BR IF NOT

;CONFIRM THAT THE DRIVE HAS TIMED OUT
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL

062550
062556
062562
062566
0625764
062602

062610
062616
062624

005037
012737
060037
012737
113760
016037

042737
013737
042737

001254
000012
001122
011700
001224
000012

024001
001170
100100

001122
001124

000010

001170
001170
001164
001164

CLR
MOV
ADD
MOV
MovB
MOV

BI(
MOV
B1C

;CLEAR THE 'RELEASE ERROR ' INDICATCR
RELERR
THE ADDRESS OF RMDS FOR TYPEOUT
;FORM
#RMDS , SBDADR
1/0 BASE ADDRESS
THE
;ADD
RO, $BDADR
;COMPARISON CONSTANT
!VV,$GDDAT
#MOL ! PGM!DPR!DRY
A.
PORT
;SELECT
PORTA ,RMCS2(R0O)
STATUS REGISTER FROM PORT A.
DRIVE
THE
;GET
RMDS(RO) ,$TMP2

;CLEAR DONT CARES
HPI1P!WRL 'OM,$TMP?
INTO '$TMPQ’
IT
;COPY
$TMP2,$TMPD
DEPENDENT BITS FROM THE COPY
PORT
;CLEAR
O
#ATA!VV,$TMP

SEQ 0158

CZRMRBO RM0S5/3/2 DU POR TST 1
PORT

'B'

TIMEOQUT/RELEASE

113760
016037

001226
000012

000010
001172

MOvB
MOV

PORTB ,RMCS2(R0O) ;SELECT PORT 8.
RMDS(RQ) ,$TMP3
-GET THE DR]IVE STATUS REGISTER FROM PORT B8,

062654
06266
062670
062676
062700
0627046
062706
062710
062714
062722
062730
062736
062742
062744
062752
062760
062766

013737
0462737
023737
001006
005737
001045
104046
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737

001172
1006100
C01164

001166
001166
001166

MOV
8I(
CMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVB
TST
BEQ
Mov
MOV
MOovB
TST

$TMP3 $TMP
HATA!VY,STMP]
$TMPO,$TMP1
68%
$TMPO
708
46
728
$TMP2 ,$BDDAT
PORTB,PTNBR
PORTE ,RMCS2(RO)
$TMPO
6998
PORTA,PTNBR
STMPS,SBDD@T
PORTA ,RMCSZ(R0O)
$STMP1

;COPY IT INTO 'S$TMPT’
JCLEAR PORT DEPENDENT BITS FROM THE (OPY
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ~”
:BR [F NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR [F NOT

#11,RMCST1(RO)
#13,3MCST1(RO)

;CLEAR THE DRIVE
JRELEASE THE DRIVc

001126
001249
000010

001224
001172

001240
001126

177777

001254

69%:

001170
001224
100000
001124

001126
001240
001126
001126

70%:

001172

001126

71%:

BNE
MOV

MOV
MOV

EMT
MoV
MOV
8IC
0, o
BEQ
EMT
MOV
MOV
BIC
M
BEQ
EMT

72%:
1%:

NOP
SCOPE

708
#-1,RELERR

35
$TMP2 ,$8DDAT
PORTA ,PTNBR
NATA ,SBDDAT
SGDDAT ,$BDDAT
718
7
$TMP3 ,$BDDAT
PORTB,PTNBR
#ATA,SEDDAT
SGDDAT, $BDDAT
72%
7

;CLEAR DONT CARES

;BYPASS THE REST OF THE (HECKS
JSET UP POSSIBLE BAD DATA FOR ERROR MESSAGEL
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
JSEE IF STATUS EQ N FROM PORT A,

:BR [F ZERO

JSEIZING PORY ,
TEST SHOWS DRIVE NOT [N NEUTRAL
;'BAD DATA' FOR ERROR TYPE OuT

;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR IF NOT
;SET 'RELEASE ERROR® INDiCATOR

:LO00K FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER
;DON'T CHECK THE ATIN BIT
ALL BITS OK ?
:BR IF OK FROM PORT A.

cCHECK RMDS FOR BIT FAILURES -~ FROM PORT B.
; CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
;SEE [F READ OK FROM PORT B.
;BR IF 0K
.LOOP ?

R A AN AR AR

;*TEST S0

A AR R R A AN AN AN SRR AR A NN RN RN RRE RN AT RN

PORT ‘'A* SEIZE ACCESS TEST

S«VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS.
B

001240
001126
001126

001226
100000
001124

000000
000000

000011
000013

000010

OPIP!URL.OM.STMP3

SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING 0'S INTO RMDS.

WRITE 1'S INTO RMER1, RMERZ THROUGH PORT ‘'A‘.

VERIFY THAT PORT
READ RMER1, RMERZ2 THROUGH PORT 'B'.
'B' SEES 0'S FROM EACH OF THESE REGISTERS.

CLEAR RMER', RMER2 THROUGH PORT ‘A‘.

WRITE 1°'S INTO RMER1, RMERZ THROUGH PORT 'B'.

001224
001166

¢68$%:

000240
000004

063110
001170
001226
001226
001164

1590

063110
063112

104035
013737
013737
042737
023737
001601
104007
013737
013737
042737
023737
001401
104007

001164

063016
063020
063026
063034
063042
063050
063052
063054
063062
063070
063076
063104
063106

012760
012760

BIC

063002
063010

001012
012737

001172

062772
062774

1589

3EQ 015¢

062632
062640

062646 042737 0264001

1564

4-APR-81 18:06:25 PAGE 10-119

TESY

LYK WP

TL?

MACRO Vv04.00

PORT

'A' SEES 0'S FROM EACH OF THESE REGISTERS.

VERIFY THAT

CZRMRBO RMOS/3/2 DU POR TST 1
MACRO v04.00
150
PORT °*A*' SEI2ZE ACCESS TEST

4-APR-B1 18:06:25 PAGE 10-120

SEQ 0160

- %

F.,

M
o

RELEASE

THE DRIVE

THROUGH PORT

'A'.

VERJFY

THAT

THE DRIVE HAS

SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT
SET AND THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET.

°B*

. %

063114
063120
063122

063124
063130
063136
ggg}ég

063152

663160
1591 063164

005737
001406
100002

003074
177777
063152
063152

001300
001106
001110

112737

000050

001102

012706
012737

0G1100
000012

001176

1630

VERIFY THAT TH4E DRIVE
]S SET.

—~

2323233223223 2RRRRRdRRRRRSRRR2d0RdRAR
R0l
ddd R

001300

000137
012737
012737
012737

ISSUE A RELEASE COMMAND THROUGH PORT 'B'.,

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT

063114

PRUTPN SRR

1%:
2%:
TESTSO

TST
BEQ
BPL
JMP
MOV
MOV
mov

KYBCTL
¢$
1$

;PERFORMING ONLY SINGLE TEST ?
;BR IF NOT
JBR _IF JUST ENTERED TEST

MovB

#50,STSTNM

;MOVE #50 TO TEST NUMBER

MoV
MoV

EXEC
#-1,KYBCTL
HTESTS50,8LPADR
#TEST50,8LPERR
#STACK,SP
#10. STIMES

JRETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ALDRESS
;LOAD THE STACK POINTER
;:DO 10. ITERATIONS

;CLEAR ATTENTION BITS FOR BOTH PORTS

063172
063200
063204
063212
063220
063226
063232
063240

113760
005060
012760
012760
113760
005060
012760
012760

001224
000012
000011
000013
001226
000012
000011
000013

000010
000000

000000
000010
000000
000000

MovBe
CLR
MoV
MoV
move
CLR
MoV
MoV

PORTA ,RMCS2(R0O)
RMDS (RO)
#11,RMCST(RO)
#13 RMCS1(RO)
PORTB,RMCS2(R0O)
RMDS (RO)
#11,RMCST(RQ)
#13,RMCST(RO)

;SELECT PORT #A
;SEIZE THE DRIVE
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
:SELECT PORT #8
;SEIZE THE DRIVE THROUGH PORT ‘B’
;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE

;SEIZE THE DRIVE THROUGH PORT A

063246
063254

113760
013737

001224
001224

000010
001242

Mov8s
MoV

PORTA,RMCS2(R0) ;SELECT PORT A
PORTA,SEI1ZPT
;STORE SEIZING PORT'S ADDRESS

063266
063274
63302
063310
063316
063324
063330
063336
063344
063350
063354
063362

013737
012760
012760
113760
013737
004737
113760
013737
005060
005060
013760
113760

001226
177777
177777
001226
001226
064164
001224
001224
000042
000014
001236
001226

001244
000014
000042
000010
001240

MOV
MOV
MOV
MOovB
MOV
JSR
MOVB
MOV
CLR
CLR
MOV
MOvVB

PORTB,OPPRT
;'OPPOSITE' PORT ADDRESS
#-1,RMERT(RO)
;LOAD 1°'S INTO RMER1 THROUGH PORT A
#-1,RMER2(RO)
;LOAD 1°'S INTO RMERZ2 THROUGH PORT A
PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PC,TST508
;CHECK THE REGISTERS THROUGH PORT E
PORTA ,RMCS2(RO)
;SELECT PORT A
PORTA_PTNBR ;MOVE PORT ADDRESS TO LOCATIGN FOR TYPEOUT
RMERZ (RQ)
;CLEAR RMERZ ON PORT A
RMER1(RO)
;CLEAR RMER1 ON PORT A
ASR1,RMAS(RO)
;CLEAR THE ATTENTION BIT FOR PORT A
PORTB,RMCS2(R0O)
;SELECT PORT B

063262

063370
063376
063404
063412
063620
063426

005060

013737
012760
012760
113760
013737
004737

000012

001226
127777
177777
001224
001224
064164

000010
001240

000016
000010
001240
000014
000042
000010
001240

CLR

MOV
MOV
MOV
MOvB
MoV
JSR

RMDS (RO)

sWRITE RMDS

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPFOUT
#-1,RMER1(RO)
;LOAD 1'S INTO RMER1 THROUGH PORT B
#-1_,RMER2(RQ)
;LOAD i'S INTO RMERZ THROUGH PORY B
PORTA,RMCS2(RO)
;SELECT PORT A
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
JCHECK THF REGISTERS THROUGH PORT A
PC,TSTS508B

MACRO Vv04.00
{ZRMRBO RMOS5/3/2 DU POR TST 1
TEST
750
S
PORT ‘A’ SEIZE ACCES

4-APR-B1

D
2
18:06:25 PAGE 10-121

;RELEASE T4E DRIVE FROM PORT A
001224
001224
000013

063432
063440
063446

MOVB

000010
001240
000000

MOV
MOV

PORTA,RMCS2(R0O)

;SELECT PORT A

PORTA,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR
#13 ,RMCS1(RO)
;1SSUE RELEASE THRUUGH PORT A

TYPEOUT

JVERIFY THAT DRIVE IS StI1ZED BY PORT B WHEN RELEASED BY PORT A
063454
063460
063466
063474
063500
063506
063514
063522
063530
063536
G63544
063546
063552
063554
063556
063564
063572
063600
063602
063604

005037

912737
012737
060037
113760

013737
016037
113760

013737
016037

001404
005737
001401
104031
013737
013737
023737
001401
104027

001254

111700
000012

001122
001226
001226
000012
001224
001224
000012

CLR

001124
003122

MOV
MOV
ADD
MovB
MOV
MOV
MovB
MOV
MoV

000010
001240
001164
000010
001240
001126

BEQ

001164

001164
001226
001124

001126
001240
001126

668%:

67%:

000240

TST
BEQ
EMT
MOV
MOV
CMP
BEQ
EMT
NOP

RELERR
;CLEAR 'RELEASE ERROR®' INDICATOR
HATA!MOL
! PGM!DPR !DRY!VV,$GDDAT
;COMPARISON (ONSTANT
#RMDS ,$BDADR
;REGISTER ADDRESS INCREMENT
RO, $BDADR
JREGISTER BASE ADDRESS FOR TYPEOUT

PORTB,RMCS2(RO)

;SELECT PORT 8

RMDS
(RO) ,$TMPO
PORTA,RMCS2(R0)

;READ STATUS REGISTER FROM PORT B
;SELECT PORT A

RMDS (RO) , $8DDAT
663
$TMPO
668
31
$TMPO, $8DDAT

;DRIVE STATUS FROM PORT A
;BR IF STATUS FROM PORT A ZERO
;1S STATUS FROM PORT B ZERO ?
;BR IF ZERO

PORTB,PTNBR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT

PORTA,PTNBR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

PORTB,PTNBR

$GDDAT
, $BDDAT
678

;CHECK STATUS FROM PORT B
;CHANGE PORT ADDRESS FOR TYPEOUT
;COMPARE WITH CONSTANT
;BR IF OK

JRELEASE THE DRIVE FROM PORT B
063606
063614
063622

113760

013737
012760

001226
001226
000013

000010
001240
000000

Mov8
MOV
MOV

PORTR,RMCS2(R0)
PORTB,PTNBR

#13 ,RMCS1(RO)

;SELECT PORT 8

;MO VE PORT ADDRESS TO LOCATION FOR TYPEOUT

s ISSUE RELEASE THROUGH PORT B

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL
063630
063634
063642
063646
063654
063662
063670
063676
063704
063712
063720
063726
063734
063742
063750
063756
063760
063764
063766

005037
012737
060037
012737
113760
016037

042737
013737
042737
113760

016037
042737
013737
0642737
023737
001006
005737
001045
104046

001254
000012
001122
011700
001224
000012
024001
001170

100100

001226
000012
024001
001172

100100

001164

001122
001124
000010
001170
001170
001164
001164
000010
001172
001172
0011566
001166
001166

CLR
MOV
ADD
MOV
MovB
MOV
B8IC
MOV
8IC
MOvVB
MOV
BIC
MOov
BIC
cMP
BNE
TST
BNE
EMT

RELERR

R
S
, SBDAD
#RMD

;CLEAR THE 'RELEASE ERROR ' INDICATOR
‘FORM THE ADDRESS OF RMDS rOR TYPEOUT
*ADD THE 1/0 BASE ADDRESS

RO, $BDADR
! DRY "VV.SGDDAT
#MOL ! PGM!DPR

:COMPARISON CONSTANT

PORTA ,RMCS2(R0) SSELECT PORT A.
GET THE DRIVE STATUS REGISTER FROM PORT A.
RMDS (RO) ,$TMP2
#PIP!WRL
!OM, STMP2

$TMP2,$TMPO
NATA!VV,STMPO

:CLEAR DONT CARES

;COPY IT INTO 'STMPO®

‘CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) *SELECT PORT B.
GET THE DRIVE STATUS REGISTER FROM PORT B.
RMDS(RO) ,$TMP3
#PIP!WRL !OM,$TMP 5

$TMP3 ,$TMP1

;CLEAR DONT CARES

SCOPY IT INTO 'STMPT'
*CLEAR PORT DEPENDENT BITS FROM THE COPY

NATA!VV,$TMP]
$TMPO,$TMPI

;ég }?ENS;ATUS REGISTER THE SAME FROM BOTH PORTS °

$TMPO
70%

'REGISTERS ARE THE SAME: ARE THEY ZERQ °
‘BR IF NOT

688

MACRO v04.00
C29MRB0O ’MOS5/3/2 DU POR TST 1
150
PORT A’ SEIZE ACCESS TEST

063770
063774
064002
064010

064016
064022
064024
064032
064040
064046
064052
064054
064062
064070
064076
064100
064106
064114
064122
064124
064126
064134
064142
064150

064152
064154
064156
1631 064160

000137
013737
013737
113760

005737
001414
013737
013737

064154
001170
001226
001226
001164

001126
001240
000010

177777
000011

69%:

000013

001254
000000
000000

013737
013737
023737
001401

001170
001224
001124

001126
001240
001126

70%:

013737
013737
023737
001401

001172
001226
001124

001126
001240
001126

71%:

005737
001012
012737
012760
012760
104026

104007

000240
000004
000137

JMP

72%
$TMP2, $BDDAT

MoV
MOV
MOVB

TST
BEQ
MOV
MOV
MOvVB
TST

001240
00 126
000010

113760

18:06:25 PAGE

68%:

001224
001172
001224
001166

4«-APR-81

72%:

064406

BNE

MOV
MOV
MoV

EMY

PORTB,PTNBR

PORTB,RM(S2(RO)

$TMPO
69%

PORTA,PTNBR

$TMP3,$BDDAT
PORTA,RM(S2(R0)
$TVP1
708
#-1,RELERR
#11.RMCS1(RO)

523.Rflcs1(RO)

Mov
MOV

$TMP2, $BDDAT

MoV
MoV
cMpP

P3
, $BDDAT
$TM

MP
BEQ
EMT

8EQ
EMT
NOP
SCOPE
JMP

10-122

PORTA,PTNBR

$GDDAT, $BDDAT
;13
PORTB,PTNBR

, $8DDAT
$GDDAT

;23

TST51

;BYPASS THE REST OF

THE (HECKS

;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRA,
;SELECT PORT B.

;SEE IF STATUS EQ O FROM POFT A.

;BR IF ZERO
JSEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
:‘BAD DATA'® FOR ERROR TYPE OUT
JSELECT PORT A,
;SEE ]F STATUS EQ ZERO FROM PORT 8.
JBR _IF NOT

JSET 'RELEASE ERROR'
:CLEAR THE DRIVE
JRELEASE THE DRIVE

INDICATOR

;LOOK FOR BIT FAILJRES WHEN RMDS READ
;CHANGE PORT NUMBER
JALL BITS OK ?
;BR IF OK FROM PORT A.

;CHECK RMDS FOR BIT FAILURES - FROM PORT B,
;CHANGE PORT NUMBER
;SEE IF READ OK FROM PORT B.
:BR IF OK

;LOO0P ?

;GO TO THE NEXT TEST

;CHECK THE REGISTERS ON THE SELECTED PORT
064164
064164
06417C
064176
064204
064210
064214
064222
064224
0646226
064232
064240
064246
064252
064260
064262
064264
064272
064274
064300

064306
064314
064320
064324
064332
064334

005037
016037
012737
060037
005037
023757
001403

001250
000014
000014
001122
001124
001124

005137
016037
012737
060037
032737
001404

001250
000000
000000
001122
020000

012760
000240
005037
016037
012737
060037
005037
023737
001403

040000

104006

104011

104006

001250
000042
000042
001122
001124
001124

1ST508:

001126
001122
001126

001126
001122

646%:

001126

000000
001126
001122
001126

65%:

CLR
MOV
MOV
ADD
CLR
cMP
BEQ

EMT
coM

MOV
MOV
ADD
BIT
BEQ
EMT
MOV
NOP
CLR
MOV
MOV
ADD
CLR
CMP
BEQ
EMT

{KERR
;CLEAR THE °'CHECK ERROR®'
;GET CONTENTS OF RMER1
RMER1(R0O) ,$BDDAT

#RMER1 ,SBDADR

RO, SBDADR
$GDDAT
SGDDAT ,$BDDAT
243

INDICATOR

;FORM REGISTER ADDRESS OF ERROR MESSAGE

;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
;IS THE REGISTER OK ?
:BR IF X

;SET THE REGISTER COMPARE ERROR INDI{ATOR
CKERR
,GET THE CONTENTS OF RH(CS1
RMCS1(RO) ,SBDDAT
#RM(CS1,8BDADR
;FORM ADDRESS OF REGISTER
RO, $BDADR
;ADDRESS BASE
#MCPE ,$BDDAT
;1S 'MCPE® SET ?
?;S
;BR IF NOT
#TRE .RMCS1(RO)

;CLEAR 'MCPE’

;CLEAR THE 'CHECK ERROR' INDICATOR
CKERR
RMER2
(RO) ,$BDDAT ;GET CONTENTS OF RMER?
#RMERZ,$BDADR

RO, $BDADR
$GDDAT
$GDDAT ,$BDDAT
263

;FORM REGISTER ADDRESS OF ERROR MESSAGE

;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
;]S THE REGISTER OK 7
;BR IF OK

MACRO v04.00
IRMRBO RM05/3/2 DU POR TST 1
150
PORT ‘A’ SEIZE ACCESS TEST

*632

064336
0646342
064350
064356
064362
064370
064372
064374
064402
064404

005137
016037
012737
060037
032737
001404

001250
(00000
000000
001122
020000

001126

012760
000260
000207

040000

000000

104011

001126
001122

1657

1658

4-APR-81

668:

SEQ 0167

COM
MOV

CKERR
:SET THE REGISTER COMPARE ERROR INDICATOR
RMCS1(RO),SBDDAT
:GET THE CONTENTS OF RHCS1

BIT
BEQ
EMT
MOV

#M(PE,SBDDAT
678
1
HTRE.RMCS1(RO)

(IS ‘MCPE’ SET ?
:BR IF NOT

;RETURN

MOV
ADD

NOP
RTS

678:

18:06:25 PAGE 10-123

WRMCS1,$BDADR
RO,$BDADR

;FORM ADDRESS OF REGISTER
:ADDRESS BASE

;CLEAR

'MCPE*

.“'.i".t'!'t.t.ltttt.t"'t't'ifit"tfit't'ttt’*t"tttttttttt!'tttt'

SRTEST 51

PORT

'B'

SEIZE ACCESS TEST

S«VERIFY THAT THERE 1S NO iNTERACTION BETWEEN PORTS.
> %

SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS.

WRITE 1'S INTO RMER1, RMER2 THROUGH PORT 'B'.

READ RMERI, RMER2 THROUGH PORT 'A'.

CLEAR RMER1, RMER2 THROUGH PORT

WRITE 1'S INTO RMER1, RMER2 THROUGH PORT 'A’.

e
*
;e

RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE HAS
SWITCHED TO PORT 'A' AND THAT THE ATTENTION BIT FOR PORT ‘A° IS
SET AND THE ATTENTION BIT FOR PORT 'B* IS NOT SET.

. %

e
.t

. W

VERIFY THAT PORT

"A' SEES O°S FROM EACH OF THESE REGISTERS.
'B'.

PORT 'B* SEES 0'S FROM EACH OF THESE REGISTERS.

ISSUE A RELEASE COMMAND THROUGH PORT 'A'.

VERIFY THAT

VERIFY THAT THE DRIVE

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET.

;:ttittt'itttt.tt [ £ 2 X222 2222222222228 222223222222
064406
064406
64412
064414
64416
064422

064430
064436

1659
1660

0644446
064444
064452
064456

1STS1:

005737
001406

001300

000137
012737
012737
012737

003074

177777

001300
001106
001110

112737

000051
001100
000012

001102

100002

012706
012737

064444
064444

BEQ
gL

001176

1$:

28:
esysy,

JWP

MOV

MOV
MOV

T MOVB
MOV
mov

KYBCTL

:PERFORMING ONLY SINGLE TEST ?

EXEC

RETURN € GET NEXT TEST NUMBER

2%
1%

#-1,KYBCTL

WTESTS1,$LPADR
WTESTSUSLPERR

#51,STSTNM

WSTACK,SP
#10.,STIMES

:BR IF NOT
:BR_IF JUST ENTERED TEST

:SET SINGLE TEST INDICATOR

:SETUP SCOPE LOOP ADDRESS
SETUP ERROR LOOP ADDRESS

;MOVE #51 TO TEST NUMBER

:LOAD THE STACK POINTER
:.DO 10. ITERATIONS

:CLEAR ATTENTION BITS FOR BOTH PORTS
064464
064472

064476
064504

113760
005060

012760
012760

001224
000012
000011
000013

000010
000000
000000

MOVB

(LR
MOV
MOV

Rl d ]

PORTA,RMCS2(R0)

RMDS(RO)
A11,RMCS1(RO)
#13.RMCS1(R0)

;SELECT PORT #A

:SEIZE THE DRIVE
:ISSUE DRIVE (LEAR
:RELEASE THE DRIVE

MACRO V04.00
CIRMRBO RM0S5/3/2 DU POR TST 1
51
PORT '8’ SEIZE ACCESS TEST
0646512
064520
064524
064532

113760

005060
012760
012760

001226
000012
000011
000013

4-APR-81
MovB

000070

CLR
MOV
Mov

000000
000000

1B:0€:¢5 PAGE 10-124
PORTB,RMCS2(R0O)

RMDS (RO)
#11,RMCS1(RO)>
#13,RMCS1(RO)

;SELECT PORT #8

sSE1ZE THE DRIVE THROUGH PORT
;ISSUE DRIVE CLEAR
JRELEASE THE DRIVE

SEQ 0164

‘B’

;SEIZE THE DRIVE THROUGH PORT B
064540
064546
064554
064560
064566
064574
064602
064610
064616
064622
064630
064636
064642
064646

064654
064662
064670
064676
064704
064712
064720

113760

013737
005060

013737
012760
012760
113760

013737
004737
113760

013737
005060
0050€90
013760
113760

013737
012760
012760
113760

013737
004737

001226
001226
000012
001224

1777277
177777

001224
001224
065456
001226
001226
000042

000014

001236

001224
001224
177777
177777
001226
001226
065456

060010
001242
001244
000014
000042
000010
001240

MOvVB
Mov
CLR
MOV
MOV
MoV
MovB

PORTB,RMCS2(R0) ;SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
JWRITE RMDS
PORTA,OPPRT
;'OPPOSITE® PORT ADDRESS
#-1,RMER1 (RQ)
JLOAD 1'S INTO RMER1 THROUGH PORT B
#-1,RMER2 (RO)
;LOAD 1'S INTO RMER2 THROUGH PORT B
PORTA,RMCS2(R0O)
;SELECT PORT A

JSR
MOVB

PC,7ST518
;CHECK THE REGISTERS THROUGH PORT A
PORTB,RMCS2(R0)
;SELECT PORT B

MOV

000010
001240

MOV

(LR

CLR

MOV
MOVB
MoV
MOV
MOV
MOVB
MOV
JSR

000016
000010
001240
000014
000042
000010
001240

PORTA,PTNBR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT

PORTB,PTNBR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

RMER2 (RO)

RMER1T (RO)

;CLEAR RMER2 ON PORT B

;CLEAR RMER1 ON PORT B

ASR1,RMAS(RO)
;CLEAR THE ATTENTION BIT FOR POR1 B
PORTA ,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATiON FOR TYPEOUT
#-1,RMER1(RO)
;LOAD 1°'S INTO RMER1 THROUGH PORT A
#-1,RMER2 (RO)
;LOAD 1'S INTO RMERZ THROUGH PORT A
PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
PC.TSTS1B
;CHECK THE REGISTERS THROUGH PORT B

;RELEASE THE DRIVE FROM PORT B
064724
064732
064740

113760

013737
012760

001226
001226

000013

MOvVB

000010
001240
000000

MOV
MoV

PORTB RMCS2(R0O)

;SELECT PORT B

PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#13,RMCST(RO)
;ISSUE RELEASE THROUGH PORT B

:VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B
064746
064752
064760
064766
C64772
065000
065006
065014
065022
065030
065036
065040
065044
065046
065050
065056
065064
065072
065074
065076

005037
012737
012737
060037
113760

013737
016037
113760

013737
016037
001404
005737
001401
104031

013737
013737
023737
001401

104027
000240

001254

111700

000012
001122
001224
001224
000012
001226
001226
000012

CLR
MOV

001124
001122

$TMPO, $BDDAT
PORTA,PTNBR
$GDDAT,$BDDAT
679
27

mMovB
MOV
MoV
MOvB
MoV
MOV
BEQ

000010
001240
001164
000010
007240
001126

001126
001240
001126

MOV
MoV
MP
BEQ
EMT

MoV
ADD

001164
001164
001224
001124

15T
?g?

RELERR
;CLEAR 'RELEASE ERROR' INDICATOR
.COMPARISON CONSTANT
#ATA!MOL !PGM!DPR!DRY!VV,SGDDAT
#RMDS ,$BDADR
;REGISTER ADDRESS INCREMENT
RO, $8DADR
JREGISTER BASE ADDRESS FOR TYPEOUT
PORTA ,RMCS2(R0O)
;SELECT PORT A
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
PORTA,PTNBR
;READ STATUS REGISTER FROM PORT A
RMDS(RO) ,$TMPQ
PORTB,RMCS2(R0)
;SELECT PORT B
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOULT
PORTB,PTNBR
RMDS (RO) ,$8DDAT
.DRIVE STATUS FROM PORT 8
66%
;BR 'F STATUS FROM PORT B ZERO
$TMPO
;1S STATUS FROM PORT A ZERO ?
g?i
;BR IF Z2ERO

668%:

67%:

NOP

;CHECK STATUS FROM PORT A
:CHANGE PORT ADDRESS FOR TYPEQUT
;COMPARE WITH CONSTANT
JBR JF OK

CZRMRBO RM05/3/2 DU POR TST 1
MACRO v04.00
51
PORT °*B* SEIZE ALCESS TEST

&-APR-81 18:06:25 PAGE 10-125

SEQ 0165

JRELEASE THE DRIVF FROM PCRT A

065100
065106
065114

113760

013737
012760

001226

001224
000013

mMovB

000010
001240
000000

MOV
MOV

sVERIFY

065122
065126
065134
065140
065146
065156
065162
065170
065176
065204
065212

005037
012737
060037
012737
113760
016037
042737
013737
042737
113760
016037

001254
000012
001122
011700
001224
000012
024001
001170
100100
001226
000012

065226
065234
065242

013737
042737
023737

001172
100100
001164

065220 042737 024001

065250
065252
065256
065260

001006
005737
001045
104046

065262
065266
065274
065302
065310
065314
065316
065324
065332

000137
013737
013757
113760
005737
001414
013737
013737
113760

065346
065354
65362

012737
012760
012760

065340
065344

065370

005737
001012

104026

065372
065400
065406
065414
065416

013737
013737
023737
001401
104007

065442
065444

001401
104007

065420
065426
065434
065446
065450

'661 065452

013737
013737
023737
000240
000004

000137

001172

065446
001170
001226
001226
001164

001126
001240
000010

68%:

001224
001172
001224
001166

001240
001126
000010

000011
000013

177777

001254
000000
000000

69%:

001170
001224
0011246

001126
001240
001126

70%:

001172
001226
001126

001126
001240
001126

71%:

72%:

065700

MOV
8IC
MP

$TMP3,$TMP1
#ATA!VV,$TMP1
$TMPO, $TMP1

;COPY IT INTO 'STMPT’
;CLEAR PORT DEPENDENT BITS FROM THE (OPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?

72$
$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0)
$TMPO
69%
PORTA ,PTNBR
$TMP3, $BDDAT
PORTA ,RMCS2(R0)
$TMPT
708

;BYPASS THF REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
.SEE IF STATUS EQ O FROM PORT A.
:BR IF 2ERO
;sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;'BAD DATA' FOR ERROR TYPE OUuT
;SELECT PORT A,

BNE
1ST
BNE
EMT

001164

IN NEUTRAL

8IC
MOV
8IC
mMOovB
MOV

BIC

001166
001166
001166

IS STILL

REL_ERR
;CLEAR THE ‘RELEASE ERROR ' INDICATOR
#RMDS , $8DADR
;FORM THE ADDRESS OF RMDS FOR TYPEQUT
RO, $8DADR
;ADD THE 1/0 BASE ADDRESS
A#MOL ! PGM!DPR!DRY
! VV,$GDDAT ;COMPARISON CONSTANT
PORTA ,RMCS2(RQ) ;SELECT PORT A.
RMDS
(RO) ,$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A.
APIP!WRL !OM,$TMP2
:CLEAR DONT CARES
$TMP2 ,$TMPO
;COPY IT INTO '$TMPO’
#ATA!VV, 8TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) ;SELECT PORT B.
RMDS(RO) ,$TMP3 -GET THE DRIVE STATUS REGISTER FROM PORT B.

MOV
ADD
MoV
MOVB
MOV

001124
000010
001170
001170
001164
001164
900010
001172

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13 RMCST1(RO)
;ISSUE RELEASE THROUGH PORT A

THAT THE DRIVE

CLR

001122

;SELECT PORT A

PORTA ,RMCS2(R0O)

JMP
MoV
MOV
Movs
TST
BEQ
MoV
MOV
MovB
TST
BNE

MoV
MCV
MOV
EMT

MOV
MOV
MP
BEQ
EMT

MoV
MOV
MP
BEQ
EMT

NOP
SCOPE

JMP

#PIP!WRL iOM,$TMPS
68%
$TMPO
708
46

#-1_,RELERR
#11,RMCST(RO)
#13,RMC:'(RO)
26

;CLEAR DONT CARES

;BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;B8R IF NOT

;SEE IF STATUS EQ ZERO FROM PORT B.
;BR _IF NOT

;SET ‘RELEASE ERROR® INDICATOR
;CLEAR THE DRIVE
;RELEASE THE DRIVE

$TMP2 , $BDDAT
PORTA ,PTNBR
$GDDAT,$8DDAT
718
7

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER
;ALL BITS OK ?
;BR IF OK FROM PORT A.

72%
7

;BR IF 0K

$TMP3, $BDDAT
PORTB,PTNBR
$GDDAT ,$BDDAT

;CHECK RMDS FOR 81T FAILURES -~ FROM PORT B.
;CHANGE PORT NUMBER
;SEE IF READ OK FROM PORT 8.

TST52

;GO TO THE NEXT TEST

JLOOP ?

g%?HRBO RM0S/3/2 DU POR TST 1
MACRO V04.00
PORT 'B' SEIZE ACCESS TEST

4-APR-81

18:06:25 PAGE 10-126

SEQ 066

sCHECK THE REGISTERS ON THE SELECTED PORT

065456
065456
065462
065470
065476
065502
065506
065514
065516
065520
065524
065532

065540

065544
065552
065554
065556
065564

005037
C16037
012737
060037
005037

023737
001403
104006
005137

016037
012737
060037
032737
001404
104011
012760

000240

001250
000014
000014
001122
001124
001124

001250

TST51R:

001126
001" 2¢
001126

000000
000000
001122
020000

001126
001122

040000

000000

001126

065566
065572
065600
065606
065612
065616
065624

005037
016037
012737
060037
005037
023737
001403

001250
000042
000042
001122
001124
001124

065630
065634
065642

005137
016037
012737

001250
000000
000000

001126
001122

065654
065662
065664
065666

032737
0014604
1040M
012760

020000

001126

040000

000000

065626

065650

065674
1662 065676

104006

060037

000240
000207

001122

64%:

CLR
MOV
MOV
ADD
(LR
(MP
BEQ
EMT
(OM
MOV
MOV
ADD
BIT
BEQ
EMT
MOV

NOP

65%:

001126
001122
001126

(oM
MOV
MOV

CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR
RMCS1(RO) ,SBODAT ;GET THE CONTENTS OF RH(S1
NRMCS1,88BDADR
;FORM ADDRESS OF REGISTER

BIT
BEQ
EMT
MOV

NOP
RTS

RO, $BDADR

;1S 'MCPE® SET ?
:BR IF NOT

sRETURN

AR AN NN AR A AN RN R R RN

1664

;PUT

NEWTEST

065700

000004

KRR

1ST52:

;ADDRESS BASE

#MCPE , SBDDAT
67%
"
#TRE ,RMCS1(RO)

1663

1665

;CLEAR ‘'MCPE’

CKERR
JCLEAR THE °*CHECK ERROR' INDICATOK
RMER2(RQ) ,$8DDAT ;GET CONTENTS OF RMER?
#RMERZ ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
;IS THE REGISTER OK ?
$GDDAT ,$8DDAT
66%
;BR IF OK

ADD

67%:

1
#TRE ,RMCST1(RO)

CLR
MOV
MOV
ADD
(LR
MP
8tQ
EMT

66%:

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMER1(RO) ,$BDDAT ;GET CONTENTS OF RMER1
#RMER1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$GDDAT,$BDDAT
;IS THE REGISTER OK ?
643
;BR IF 0K
6
CKERR
;SET THE REGISTER (OMPARE ERROR INDICATOR
RMCS1(RO) ,$8DDAT ,GET THE CONTENTS OF RH(CS1
W#RM(CS1,$8DADR
,FORM ADDRESS OF REGISTER
RO, $SBDADR
;ADDRESS BASE
#MCPE , $BDDAT
;1S 'MCPE® SET ?
65%
;BR IF NOT

HERE

AR R

;CLEAR 'MCPE'

AR A AN AR A AR A AR R RN

AR AN AR NN AR RN R R PR AN A AR RN AR N RN AN

SCOPE

RN TR RRRE I NS

NI RRRE AR

R AR RN R RN

CZRMRBO RMQS/3/2 DU POR TST 1

END OF

PASS ROUTINE

MACRO v04.00

&=-APR-81

.SBTTL

J
18:06:25 PAGE

¢
11

SEQ D167

END OF PASS ROUTINE

232322222028 FYZ22

220000 RRRRRRERRARRRdRRARRRSRRARRRRRERRRRS
2 AR

"% INCREMENT THE PASS NUMBER (SPASS)

J«TYPE '"END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY':
;*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

;*]F THERES A MONITOR GO TO [T
;*1F THERE ISN'T JUMP TO TST1AA
065702
065702
065706
065710
065714
065720
065724
065730
065736
065740
065742
065744
065746
065750
065752
065756
065776
065776

066002
066004
066010
066012
066016
066062
066062

005737
001402
000137
005037
005037
005237
042737
005327

$EOP:

001300
003074
001102
001176
001100

100000

001100

000001
003066

012737
000001
065740
104401

00407
013746
104405

005737
001433

104401
000421

013746
104405

005037
104401

013700
001405
000005
004710
000240
000240
000240

000137
003356
377

TST

KYBCTL

JMP
(LR
(LR
INC

EXEC
$TSTNM
$TIMES
$PASS

BEQ

BIC

DEC
$EOPCT: .WCGRD

B8GT

MOV
$ENDCT: WORD
SEOPCTY
TYPE

065760

JENTERED TEST VIA KEYBOARD COMMAND ?

.*+6

;BR IF NOT

#100000,%PASS

;;DON'T ALLOW A NEG. NUMBER

(PC)+
1

JRETURN TO KEYBOARD CONTROL
;;ERO THE TEST NUMBER
::2ERO THE NUMBER OF ITERATIOMS
:: INCREMENT THE PASS NUMRBER
;:Lo0P?

$DOAGN

JIYES

,65%

;. TYPE ASC1Z STRING

(PC)+,a(PC)+
1

;;RESTORE COUNTER

B8R

648

001100

MOV

$PASS .~ (SP)

001112

TYPDS
TST

SERTTL

;:GO TYPE--DECIMAL ASCII] WITH SIGN
:;SEE IF ANY ERRORS THIS PASS

TYPE

L67%

;s TYPE ASCIZ STRING

éigss:

JASCIZ

8EQ

066020

:.678%:

669%:

001112

377

000

SRTNAD:
S$ENULL:

::BR IF NO ERRORS TO REPORT

663
::GET OVER THE ASCIZ
/ TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL,-(SP)

RESET
$ENDAD: JSR
NOP
$DOAGN:

$GT42P

; :SAVE S$PASS FCP TYPEOUT
;; TYPE PASS NUMBER

B8R
L.ASCIZ

TYPDS
CLR
$GT42P: TYPE
$GET42: MOV
BEQ

001112
001207
000042

;:GET OVER THE ASCIZ

<12><15>/END PASS #/

SERTTL
SCRLF
an42 RO
$DOAGN

PC,(RO)

.EVEN

;G0 TYPE--DECIMAL ASCII WITH SIGN
;;CLEAR ERROR TOTAL
;. TYPE CARRIAGE RETURN,

;:GET MONITOR ADDRESS
; BRANCH IF NO MONITOR
::CLEAR THE WORLD
::GO TO MONITOR
;s SAVE ROOM

;.FOR
;ACT1T

NOP
NOP

JMP
.WORD
.BYTE

;:SAVE SERTTL FOR TYPEOUT
;s TOTAL NUMBER OF ERRORS

a(PC)~
TSTTAA
-1,-1,0

:JRETURN

;sNULL CHARACTER STRINC

LINE FEED

CZRMRBO RMOS/3/2 DU POR TST 1
(LOCK SUBROUTINES

MA(CRO v0+.00
.SBTTL

012737

066200

10 066152
11 066156
12 066162

012721
012711
012777

066262
000300
177777

14 066176
15 066200
16 066204
17 066212
18 066216
19 066222

000425
062706
012737
005777
013701
012721

005037
005777
013701

000006
113044
001216

13 066170 012777 000135

23 066242
24 066246
25 066252
59 066260

012711
012777
000404
062706
062716
012737
000207

000004

066242
113002
001222
066262
(0G0300

000100
000004
000002
000006

000004

47 066346
48 066350
49 066352
50 066356

51 066362

SEQ 0168

CLOCK SUBROUTINES

113014
000004

112760

000004

MOV

#CKCLKT ,9#ERRVEC

MOV
MOV
MOV

#C.OCK, (R1)+
#300, (R1)
#-1,98LKCSB

CLR
TST
MoV

MOV

BR
(KCLK1: ADD
MOV
TST
MOV
MOV

MOV
MOV
B8R
CKCLK2: ADD
ADD
CKCLK3: MOV
RTS

,SET UP VECTOR FOR CLOCK CHE(K

QN¥ERRVEC+2
aSLKCSR
SLPVEC,R1

;NEW PSW
;CHECK FOR KW11-P
;KW11-P VECTOR ADDRESS

#135,aSLKCSR

JSET CLOCK =~ CNT UP, 16MS, CONT INT

JSET UP KW11~P VECTOR
;PSW - PRI 6
sLOAD COUNTER BUFFER WITH 1°'S

CKCLK3
#4 ,SP
JRESTORE TME STACK POINTER
#CKCLK2,D#ERRVEC ;CHANGE ERROR VECTOR TO CHECK FOR Kw11-L
I$LKS
;LOOK FOR KW11~L
SLLVEC,R1
;KW11-L VECTOR ADDRESS
#CLOCK, (R1)+
;SET UP KW11-L VECTOR

#300, (R1)
#100,3%LKS
CKCLK3
¥4 ,SP
#2,(SP)
#6,a#ERRVEC
PC

;PSW - PRI 6
;SET KW11-L INTERRUPT

JRESTORE THE STACK POINTER
s INCREMENT RETURN, NO CLOCK
JRESTORE THE ERROR VECTOR

JROUTINE TO COUNT CLOCK TICKS

062737
103003
012737
005737
001406
162737
100002
005037
000002

000021

001256

177777
001260

001256

000021

001260

CLOCK:
18:

28:

ADD

8C(
MoV
TST
BEQ

suB
B8PL
CLR
RTI

#17.,TIME
1%
#-1,TIME
WATCH
2%
#17. WATCH
’$
WATCH

;ADD 17 MS TO ELAPSED TIME COUNTER
;BRANCH IF NO OVERFLOW
;OVERFLOW - RESTORE MAXIMUM COUNT
;1S WATCH ALREADY ZERO ?
:BR IF IT IS
;SUBTRACT 17 MS FROM WATCH DOG COUNTER
:BR _IF NOT MINUS
JCLEAR WATCH DOG COUNTER
JRETURN

;ROUTINE TO CALCULATE ¢+ AND - 25X TIME TOLERANCE VALUES

2?
42 066324
43 066320
44 066334
45 066336
46 066342

CKCLK:

113024

30 066262
31 066270
32 066272
33 066300
34 066304
35 066306
36 066314
37 066316
gg 066322

&-APR-B1 18.06:25 PAGE 12

sIF CLOCK IS PRESENT, THE CLOCK WILL BE STARTED

6 066130

20 066226
21 066232
22 066240

;ROUTINE TO CHECK FOR KW11=L OR KW11-P CLOCKS

7 066136
8 066142
9 066146

162706
016616
013546

011666
011666
006216
006216
061666

162666
000205

000004
000004

000004
000006

000004
000004

TOLER:

SWB
MOV
MOV

MOV
MOV
ASR
ASR
ADD

SUB
RTS

#4 ,SP
4(SP), (5P)
a(R5)+,-(SP)
(SP) ,4(SP)
(SP) ,6(SP)

;SETUP STACK
;SAVE STACK
;GET TIME VALUE
;MOVE TIME VALUE
sMOVE VALUE AGAIN

JRETURN WITH TOLERANCES ON THE STACK

(SP)
(SP)
(SP) ,4(SP)
(SP)+,4(SP)

;DIVIDE BY
;DIVIDE BY
sCALCULATE
;CALCULATE

2
2 AGAIN (FOR A TOTAL OF 4)
UPPER LIMIT FOR TIMEQUT
LOWER LIMIT FOR TIMEQUT

CZRMRBO RM05/3/2 DU POR TST 1
SCOPE HANDLER ROUTINE

MACRO v04.00 4-APR-81 18:06:25 PAGE 1%
L

.SBTTL

SEQ 01¢7

SCOPE HANDLER ROUTINE

SR AXZEEIE2222232312222220000220R2RRRRRR
R
22002 222
R 2Rddd AR

;*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>

J*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
s*SW14=1
1
INHIBIT ITERATIONS
;SW11=
s*=CALL

o
104407

$SCOPE:

004737
032777

066720
040000

000137

066702

0014C2

112540

9%:

002004
066434
177060
0000G4

000004

105737
001465

001103

022737
001455
013746
012737
013757
000406
012737
012716
000002
012637

022737
001430
032737
001424

042737

013746
017646
012737
011677
042777
104177
012676
012637

BIT

000004

177777

067270

000004
066504
177766

000004
067270

177777
066520

067270

000004
177777

067270

000001

067270

000001
001140
000000
000176
112344
001000

177766

000000
001140

001140

112336-

PC,STOP

#BIT14 ,2SWR
9%
$OVER

BEQ
JMP

S HOMMNSTART

012637
000517

CKSWR
JSR

$XTSTR: BR

000416

013746
012737
005737
012637
000517
022626

1%:

;s SCOPE=]0T

SCOPE

;o TEST

FOR CHANGE IN SOFT-SWR

;;LOOP ON PRESENT TEST?

;oNO IF SW14=0

;;JUMP OVER SCOPE ROUTINE

CODE FOR THE XOR TESTERANAAN
63
IF RUNNING ON THE ''XOR'® TESTER CHANGE
;o

2:THIS INSTRUCTION TO A 'NOP'' (NOP-240)

MOV
Mov
TST
MOV
BR

SH#ERRVEC ,~(SP)
#58 ,a#ERRVEC

an1727060

;;SAVE THE CONTENTS OF THE ERROR VECTOR
;. SET FOR TIMEOUT
;. TIME OUT ON XOR?
s-RESTORE THE ERROR VECTOR
;:G0 TC THE NEXT TEST

cMp
8EQ
BIT
BEQ
BIC
MoV
MOV
MOV
MOV
BIC
EMT

#-1,CPSAVE

;:SEE IF (PSAVE HAS (PU ERR REG TIMEOUT INDICATION

#81700, CPSAVE
20038
#81700,177766
,
= (SP)
SWR
a(SP),=(5P)

;:SEE IF THE POWER MONITOR BIT IS ON
;sBRANCH TO CONTINUE ROUTINE IF CLEAR
;oCLEAR THE BIT FOUND TO BE SET
2. SAVE SWR ADDRESS
s SAVE SWR VALUE
;.GET SOF TWARE SWR ADDRESS
;:GET CURRENT SWR VALUE
;;DON'T ALLOW LOOP ON ERROR ON THIS ERROR
;.CALL SPECIAL POWER FAIL B!T ERROR CALL
;;RESTORE SWR TO ORIGINAL VALUE
;;RESTORE SWR ADDRESS

(SP)+ ,a#ERRVEC
$SVLAD
+
CMP
(SP)+,(SP)
5%:
;sCLEAR THE STACK AFTER A TIME OUT
(SP)+ ,a#ERRVE(
MoV
;;RESTORE THE ERROR VECTOR
$OVER
BR
;.LO0OP ON THE PRESENT TEST
6% : ARNRAEND OF CODE FOR THE XOR TESTERANAAN
$ERFLG
2%:
TST8
s sHAS AN ERROR OCCURRED?
BEQ
38
;:BR IF NO
#-1,CPSAVE
MP
::SEE IF TIMEOUT WAS PREVIOUSLY RECORDED
BEQ
2003$
::KICK AROUND ROUTINE IF SO
(SP)
.~EC
MOV
ERRV
;:SAVE CONTENTS OF ERROR VECTOR
#2000$
. ERRVEC
MOV
;:SETUP 'TRAP® RETURN ADDRESS
177766,
CPSAVE
MOV
22MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
BR
20018
#-1,CPSAVE
2000%: MOV
:;SET CPU ERROR REGISTER TIMEOUT INDICATOR
#2001%,
(SP)
MOV
;;SETUP RETURN ADDRESS
RTI
(SP)+ ERRVEC
MOV
2001%:
;;RESTORE (ONTENTS OF ERROR VECTOR

2002%:

MOV
Mov

2003s

#176., SWR
(SP) .aSWR

#B1T09,3SWR
177
(SP)+,a(SP)
(SP)+,SWR

: :BRANCH IF SO

(ZRMRBO RMOS/3/2 DU POR TST 1
SCOPE HANDLER ROUTINE
066614
066614

O Qo N

NSO

066620
066624
066632
066634

066664
066672
066676
066702
066710
066714
066716

105037

005037
032777
001011
005737
001406

005237
023737
002012
012737
013737
105237
011637
013777
013716
000002
000005

001103
001176
004000

MACRDO v04.00 4&~APR-81 18:06:25 PAGE 1%-1
M

2003s:

48:

112306

001100

001104
001176
000001
066716
001102
001106
001102
001106

001104
001104
001176
112232

3%:

(LRB
(LR

8I7

8NE
TST
BEQ
INC
(MP
B8GE
1%:
MOV
MOV
$SVLAD: INCB
MOV
$OVER:
MOV
MOV

SMXCNT:

RT1

$ERFLG
STIMES

:gxr11.aswa
$PASS
1%
$ICNT
S$TIMES,$1CNT
$OVER
#1,$1CNT
SMXCNT ,$TIMES
$TSTNM
(SP) ,$LPADR
$TSTNM aDISPLAY

$LPADR, (SP)

§S.

SEQ 0170

;o lERO THE ERROR FLAG
;sCLEAR THE NUMBER OF ITERATJONS TO MAKE
;2INHIBIT ITERATIONS?
;;BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT

ITERATIONS

..INCREMENT ITERATION COUNT
::CHECK THE NUMBER OF ITERATIONS MADE
;:BR JF MORE ITERATION KEQUIRED
JJREINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS
;:SAVE SCOPE LOOP ADDRESS
:;DISPLAY TEST NUMBER
; :FUDGE RETURN ADDRESS
JJFIXES PS
JoMAX, NUMBER OF [TERATIONS

:DROP PRIORITY TO ALLOW CONSOLL INTERRUPT
066779
066720
066724
066730
066732

012746
012746
000002

000140
066732

STOP:

:
648

MOV
MOV
RTI

#PR3 ,~(SP)
#646$,~(SP)

:sPUT NEW PS ON STACK

;.PUT NEW PC ON
STACK
;;POP NEW PC AND PS

JRAISE PRJORITY TO INHIBIT CONSOLE INTERRUPT
066732
066736
066742
066744

10 066744

012746
012746
000002
000207

000240
066744

MOV
MoV
RTI

#PRS5,~(SP)
#65%,-(SP)

;2PUT NEW PS ON STACK

RTS

;RETURN

;:PUT NEW PC ON

STACK

::POP NEW PC AND PS

CZRMRBO RMOS5/3/2 DU POR TST 1

ERROR HANDLER ROUTINE

MA(CRO v04.00

4-APR-81 18:06:25 PAGE 14

.SBTTL

SEQ 0171

ERROR HANDLER ROUTINE

2335222323332

232323232222220R03 222230 R2R2RRt00

220 dRaRRtliisadslld

$*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROK COUNT,

:«SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW15= 1
:*SW13=1
:*SW10=1
:*CALL
bl

ERROR

$ERROR:

CLRB
CKSWR
mMovBe

IBSAVE

;;CLEAR THE ITEM BYTE SAVE LOCATION

STSTNM, TSTNUM
$ERFLG

;2SET THE ERROR FLAG

[

105037
104407
713737
105237
001775
013777

067272

104401

001202
001112
001116
000002
112062
001000

001116
001114
112074

000177

001114

067136
V87144
V67146
067154
667156
067164
067172
067200

022737
001420
032737

067202
067206
067206
067214
06721¢

005237
011637
162737
117737
032777
001960 122737

001454
105737
001047
022737
001445
013746
012737
013737
000406
012737
012716
000002
012637

001414

042737

113737
112737
000402

&He

7%:

W &

—

001102
002000

—

001246
—

032777
001402

001192
001103

nono

066746
066752
066754
066762
066766
066770
066776
067004
067006
067012
067016
067022
067030
067036
067044
067046
067054
067056
067062
067064
067072
067074
067100
067106
067114
067116
06,7124
067130
067132

1%:

000004
067116
177766

177777
067132

067270

000004
067270
067270

000004
067270

000001

067270

000001
001114
000177

177766
067272
001114

105037

067272

032777
001004
004737

020009

067274

1000$:
1001$:

177777

111724

INCB
8EQ
MoV
BIT
8EQ
TYPE
INC
MOV
SUB

MOovB
81T
BNE
tMPB
8EQ
TSTB
BNE
cMP
BEQ
mMov

067272
177777

HALT ON ERROR
TNHIBIT ERROR TYPEOUTS
BELL ON ERROR

1002%:

1003%:
1004%:

MoV
MOV
BR
MOV
MoV
RTI
MOV

(Mp

BEQ
BIT
BEQ
BIC
MOVB

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

;2 TEST FOR CHANGE IN SOFT-SWR

7%
::DON'T LET THE FLAG GO TO ZERO
STSTMM,aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG
;:BELL ON ERROR?
#BIT10,3SWR
1%

LSBELL
SERTTL
(SP) ,$ERRPC

#2,8ERRPC

ASERRPC,SITEMB
#81T09,aSwR
1004%

2INO - SKIP

*:RING BELL
;:COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

#177,81TEMB
1004$

;:STRIP AND SAVE THE ERROR ITEM CODE
:2SEE IF LOOP ON ERROR IS SET
; :BRANCH AROUND ROUTINE IF SO
::SEE IF THIS IS THE POWER FAIL CALL
: :BRANCH AROUND ROUTINE IF IT IS

1003%
#-1,CPSAVE
10043
ERRVE( ,-(SP)

;:BRANCH IF SO
::SEE IF CPSAVE HAS CPU ERR REG TIMEQUT INDICATION
: :BRANCH IF SO
;:SAVE CONTENTS OF ERROR VECTOR

IBSAVE

#10008 ,ERRVEC

177766 CPSAVE
1001:
CPSAVE

;:SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE

;:SETUP '"TRAP' RETURN ADDRESS

;sMOVE (CPU ERROR REGISTER TO CPSAVE FOR TEST

p1061s (SP)

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR
;:SETUP RETURN ADDRESS

(SP)+ ,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

#-1,CPSAVE

1004$
#B1T00,CPSAVE
1004%

#81100,177766

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOQUT INDICATION

s ;BRANCH IF SO

::SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG
..BRANCH IF 0K
;CLEAR THE BIT FOUND SET
MAKE IBSAVE NON-ZERO FOR DUAL ERRCR CALL

Movs
BR

$1TEMB, IBSAVE
#177,$1TEMB
1004%

BRANCH OVER IBSAME CLEARING

CLRB

IBSAVE

;;CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

8IT
BNE
JSR

#B1T13,3SWR

;SKIP TYPEQUT IF SET
:SKIP TYPEOUTS

20%

PC,$ERRTYP

;SET SITEMB TO SPECIAL POWER FAIL POINTER

..GO TO USER ERROR ROUTINE

CZRMRBO RMOS5/3/2 DU POR TST 1

ERROR HANDLER ROUTINE

067222
067226
067226
067232
067234
067240
067242
067244
067246
067246
067254
067256
067260
067260
0672€4
067266
067270
067272

104401

001207

105737
001005
005777

067272

100002

MACRO v04.00

&-APR-81

208:
2s:

111700

104407

022737
001001
000000

066110

105737

067272

001236
000002
000000
00000C

TYPE

.SCRLF

TST8

1BSAVE
38

BNE
TST

BPL
HALT

000000

000042

6%:

:
CPSAVE
VE
IBSA :

18:06:25 PAGE

aSWR

CKSWR

cMP
BNE
HALT
TSTB

#SUNDA
, a¥é?2
D
63

IBSAVE

.WORD

0
0

SFQ 017¢

;. SEE IF IBSAVE IS LOADED
;;BRANCH [F NOT = NO HALT ON PWR MON BIT ERROR
;HALT ON ERROR
;:SKIP [F CONTINUE
;cHALT ON ERROR!
;. TEST FOR CHANGE

BNE

RTI
.WORD

14-1

IN SOF T-SWR

;:ACT=11 AUTO=-ACCEPT?

::eggNCH IF NO

;:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::ggmgg BACK TO CALL ORIGIN/L ERROR

*:LOCATION TO SAVE CPU ERROR REG CONTENTS
T:LOCATION TO SAVE ITEM BYTE

(ZRMRBO RMOS5/3/2 Du POR TST 1

FRROR MESSAGE

TYPEOUT ROUTINE

MACRO v04.00

4-APR-8'

.SBTTL
a2

c
3
1B:06:25 PAGE 15

SEG 0173

ERROR MESSAGE TYPEOUT ROUTINE
8233820322222

2000

RS20

R RARRRRR2RRRRdddlidRd
s

1*THIS ROUTINE USES THE ‘'ITEM CONTROL BYTE'* (SITEMB) TO DETERMINE WHICH

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' (SERRTR),
;*AND REPORTS THE APPROPRIATE

067274
067274
067300
067302
067304
067310

010046
005000
153700
001004

067312

013746

067316
067320
067322
67326
067330
007336
067342
067344
057346
067350
067352
067354

067360

067364
067366
067370
067372
067376
067402
067404
067406
067410
067414
067416
067420
067422
067424
067426
067430
067432

067434
067436
067436
067440
067442
067444

067446
067452

067454

067456

104401

$ERRTYP:

001207
001114

CLR
BISB
BNE

001116

MoV

104402

000456
122700

001006
113737
012700
000406
005300
006300
006300
006300
062700
012037
001404

000177
001102
067472

001310
067370

001207
067406

104401

000000
104401

010146
012001
001415
012000
105720
001003
013146

1%:

067632
:
10008

104401

000000
104401
012037
001404

001207

1001$:

2%:
3%:
A ¥

S%:

6%:

’$:

013146
104405

104401

000764
012601
012600

TYPOC
BR
(MPB
BNE
MOvVB
MoV
BR
DEC
ASL
ASL
ASL
ADD

MOV
BEQ

TYPE
.WORD
TYPE
MOV

8%:

067466
9%:

108:

,SCRLF

R8.-(SP)
R

NS ITEMB,RO
1%

$ERRP(C,~(SP)
108
#177 ,RO
1000$
STSTNM,PFTSTN
#PFECH,RO
10018
RO
RO
RO
RO
#SERRTB
RO
(R0)+,2%

.SCRLF
(RO)+ .48

BEQ

. WORD

TYPE

TYPE
MoV
MoV
BEQ
MoV
TSTB
BNE
MOV

TYPOC

104402

000402

005711
001403

TYPE
MOV

SCRLF

R1,-(SP)
(RO)+,R1
93
(RQ) +,RO
(RO)+
73

a(R1)+,-(SP)

MOV
TYPDS
TST

d(R1)+,-(SP)

TYPE

.118

BEQ

(R1)
93

MOV
MOV

(SP)+ ,R1
(SP)+,R0

INFORMATION CONCERNING THE ERROR.

::'""CARRJAGE RETURN'' & "LINE FEED"'
::SAVE RO
;sPICKUP THE ITEM INDEX

;;1F 1TEM NUMBER IS ZERO, JUST
;. TYPE THE PC OF THE ERROR

. SAVE SERRPC FOR TYPEOUT

;- ERROR ADDRLSS
:.G0 TYPE~-OCTAL ASCII(ALL DIGITS)
;;GET OUT
;:SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
;sBRANCH IF NOT
;;GET TEST NUMBER

;.MOVE POWER FAIL ERROR CALL TABLE TO RO
; ;BRANCH TO CALL ERROR
..ADJUST THE INDEX SO THAT IT Wiltl
WORK FOR THE ERROR TABLE
I

;;FORM TABLE POINTER

;:PICKUP 'ERROR MESSAGE'' POINTER
;:SKIP TYPEOUT IF NO POINTER
,,TYPE THE 'ERROR MESSAGE’’

;" ERROR MESSAGE'' POINTER GOES HERE

:.'TARRIAGE RETURN'' & 'LINE FEED"’
:;PICKUP 'DATA HEADER“ POINTER
::SKIP TYPEOUT IF O
;. TYPE THE 'DATA HEADER"'
;2 DATA HEADER'' PCINTER GOES HERE

;:"'CARRIAGE RETURN'‘ € "LINE FEED"

;. SAVE R1

..PICKUP ‘DATA TABLC'' POINTER
;BR IF NO DATA TO BE TYPED

..PICKUP ‘DATA FORMAT'' POINTER
2:"OCTAL'' OR 'DECIMAL'’
:BR IF DECIMAL

::SAVE a(R1)+ FOR TYPEOUT
;.60 TYPE~--OCTAL ASCII(ALL DIGITS)

:2SAVE a(R1)+ FOR TYPEQUT
;:G0 TYPE--DECIMAL ASCI] WITH SIGN
::,S THERE ANOTHER NUMBER?
:BR IF NO
;;TYPE TWO(2)

;;LOOP

sRESTORE R1

..RESTORE RO

SPACES

CZRMRBO RMOS/3/2 DU POR TST 1
ERROR MESSAGE TYPEQUT ROUTINE

MACRO v04.00

4-APR-81

104401

001207

040

000

N67472
067502
067564

067502

067564

117
105

067616
127
123

PFECH:
PFECHI:

067616
067626
067632

067632
000
000000

001116
000

067270
000

PFECH3:

067460
0674664
067466

000207

120
126

11%:

PFECH2:

PFECHS:
PFTSTN:

D
3
18:06:25 PAGE 15-1
LSCRLF

TYPE
RTS

.WORD

;:"'CARRIJAGE RETURN'' & "L INE FEED"’
;;RETURN

/
/7
2:TWO(2) SPACES
LASCIZ
.EVEN
PFECH] ,PFECH2 ,PFECH3,PFECHG ;;WORDS DEFINING TABLES BFLOWw
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
LASCIZ
7TESTNO
ERR PC
(PUERREG?
LASCIZ
.EVEN
Sr :r) S 6”6“ RRPC, CPSAVE , 0
.WORD
.BYTE

;:CONTAINS TEST NUMBER FOR PF BIT ERROR

SEQ 0174

CZRMRBO RMO5/3/2 DU POR TST 1

TYPE

ROUTINE

MACRO v04.00

4-APR-81

LSBTTL

3
E
18:06:25 PAGE 16

SEQ 0175

TYPE RUOUTINE

(2223222332022

0RRARRRRRRRR

RS SdRRRARRRRRRRRARR2RARRRE2ZS

*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINt FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARA(CTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
'NOTES

"NOTE1:
:*NOTEZ2:
'CAL"

'1) USING A TRAP INSTRUCTION
TYPE
.MESADR
'OR

e
T

JcMESADR IS FIRST ADDRESS OF AN AS{IZ STRING

TYPE

ME SADR

* %

067634
067640
G67642
067644
067646
067650
067654
067656
067660
067662
067664

067670
067672
067676
067700
067704
067706
067710
067712
67714
067720
067722

067726
067732
C67734

067740
067744
067746
067752
067756

105737
100002

000000
000407
010046
017600
112046

001005
005726
012600
062716
000002
122716

001430
122716
001006
005726

001157

$TYPE

000002

1%:

8R
MOV

cd:

MOVB

000002

60%:
3%:

0000M

000200

104401

001207
105037

070122

123726

070004
001156

000755
004737

00135C
013746
105366
002770
004757
105337

000770

5%:
6%:

001154
7%:

000001

TSTB
BPL
HALT

070004
070122

MOV

BNE
TST
MOV
ADD
RTI
cMPS
BEQ
CMPB
BNE
TST
TYPE
$CRLF
(LRB
BR
JSR
cMPB
BNE
MOV
DE(B

BLT

JSR
DECB
BR

S$STPFLG
1$

::1S THERE A TERMINAL?
J:BR JF YES

;s LEAVE
::SAVE RO
;:GET ADDRESS OF ASCJIZ STRING
;:PUSH CHARACTER TO BE TYPED ONTG STA(K
J:BR IF IT ISN'T THE TERMINATOR
;:1F TERMINATOR POP IT OFF THE STACK

RO,~(SP)

a2(SP) ,RO
(RO) +,=(SP)
4%
+
(SP)
(SP)+ RO
#2,(SP)
WHT
, (SP)

:oHALT HERE

NO TERMINAL

;2RESTORE RO

2 sADJUST RETURN PC

2 ;RETURN

;JBRANCH IF <HT>

#CRLF
, (SP)

; ;BRANCH [F NOT <CRLF>

(SP)+

;:POP <CR><LF> EQUIV
J:TYPE A CR AND LF

$CHARCNT
2%

:sCLEAR CHARACTER COUNT
:+GET NEXT CHARACTER
;.60 TYPE THIS CHARA(CTER
2218 IT TIME FOR FILLER CHARS.?
J:1F NO GO GET NEXT CHAR,
;:;GET # OF FILLER CHARS. NEEDED
;sAND THE NULL (HAR.
;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO=-=-GO POP THE NULL OFF OF STA(K
::G0 TYPE A NULL
2:DO NOT COUNT AS A COUNT
;. LO0P

PC,S$TYPEC

$FILLC,(SP)+
2%
SNULL ,~(SP)
1(SP)
6%

PC,STYPEC
$CHARCNT

;HOR]ZONTAL TAR PROCESSOR
067760
067764
067770
067776
070000
070002

112716

004737
132737
001372
005726
000724

000040
070004
000007

8$%:
070122

G$:

MOVB

JSR
BITR
BNE
TSTY
BR

A ,(SP)
PC.STYPEC
#7,$CHARCNT

(SP)+

:;REPLACE TAB WITH SPACE
;sTYPE A SPACE
J;BRANCH [F NOT AT
;:TAB STOP
:;POP SPACE OFF STA(K
:2GET NEXT CHARACTER

CZRMRBO R’MOS5/3/2 DU POR TST 1

TYPE

ROUTINE

070004
070004
070010

070012
070016

070022
070026
070030
070030
070034

070036

070042
070046
070052
070054
070054
070056
070056
070062
570064
070072
070100
070102
070106
070110
070116
070120
070122

070124

105777

117134

017746
042716

111130
177600

100022

122716

000023

105777
100375
117716

111110

001012

042716
122716

001366

MACRO Vv04.00

$TYPE(:

101%:

111104
177600
000021
102%:

005726
105777
100375
116677
122766

001003
105037
000406
122766

001402
105227

000000

000207

10%:

111066

000002
000015

111060
000002

000002

1STR
BPL
MOV

BIC
CMPR
BNE

18:

18:06:¢25 PAGE 16-1

a$TKS
108
as$TKB,-(SP)

#177600, (SP)
HSXOFF
, (SP)

:;CHAR [N KYRD BUFFER?
;:BR IF NOT

;:GET CHAR

;;STRIP EXTRANEOUS BiTS
;:WAS (HAR XOFfF

1028

;;BR IF NOT

TSTB
8PL
MOov8s
BI(
CMPB
BNE

asTKS
107$
a$TKB, (SP)

;:WAIT FOR CHAR

#SXON, (SP)
1018

::GET (HAR
::STRIP 7T
J:WAS IT XON?
J:BR [F NOT

(SP)+

JoFIX STACK

TST8
BPL
MOVB

Q$TPS

J:WAIT UNTIL PRINTER IS READY

2(SP) ,a%1PB

;;LOAD CHAR TO BE TYPED [NTO DATA REG.
::1S CHARACTER A CARRJAGE RETURN?
;;BRANCH IF NO
::EE?;-CLEAR CHARACTER COUNT

CMPB
BNE
CLRB

070122
C00012

4-APR-81

B8R
(MP8

BEG
INCB
$CHARCNT
: ,WORD
$TYPEX: RTS

#177600, (SP)

108

#CR,2(SP)
18

$CHARCNT
STYPEX

NLF ,2(SP)
STYPEX
(PC)+

::1S CHARACTER A LINE FEED?
, sBRANCH [F YES
;s COUNT THE CHARACTER
;s CHARACTER (OUNT STORAGE

SEQ@ 0176

“ZRMRBO RM(0S5/3/2 DU POR TST 1

BINARY

10O OCTAL

(ASCII)

AND TyeE

MACRO v04.00

4-APR-81

.SBTITL

6
3
1B:06:25 PAGE 17

BINARY TO OCTAL

SEQ 0177

(ASCII) AND TYPE

‘:t'.'t..t'.fitt'ltttt""'..t't..fltl'.tttt'ttfltt.tttttfitttt.t'.'t

t*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*0CTAL (ASCII) NUMBER AND TYPE 1T,
;*$TYPOS-~~ENTER HERE

s«CALL:

TC SETUP SUPPRESS ZEROS AND NUMBER OF

)

MOV

,
= (SP)
NUM

i
M

BYTE
.BYTE

N
M

TYPOS

;sNUMBER T0O BE TYPED
;. CALL FOR TYPEOUT
JoN=1
::M=1

“'

MR]

;*$STYPON---=-ENTER HERE

;*$TYPOS OR $TYPOC

TO0 6 FOR NUMBER OF DIGITS TO TYPE
0RO
;:1=TYPE LEADiING ZEROS

::0=SUPPRESS LEADING ZEROS

"fi

s~CALL:

DIGITS TO TYPE

MOV

TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM,
- (SP)

;oNUMBER TO BE TYPED
;2 CALL FOR TYPEOUT

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:

,
- (SP)
NUM

;cNUMBER TO BE TYPED
;:CALL FOR TYPEOUT

$TYPOS: MOV
MOVB
Mov8

a8(SP) ,~(SP)
1(SP) ,$OF ILL
(SP)+ ,SOMODE +1

BR
$TYPOC: MOVB
MOVB

$TYPON
#1,80FILL
#6,SOMODE
+1
#5,80CNT
R3.-(SP)
R4 ,~(SP)
R5,-(SP)
$SOMODE +1,R4

;;P1CKUP THE MODE
;;LOAD ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE
2 ;ADJUST RETURN ADDRESS

o¥
J*

070126
070132
070140
070144

070150
070152
070160
070166
070174
070176
070200
970202

070206
070210
070214
070220
C70224
070230
070232
070234
070236
070240
070242
070244
070246
070250
070254
070256
070262
070264
070266
070270

017646
116637
112637

062716

000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003

0000900
000001
070353

000001
000006
000005

105337
100016

042703
001002
005704
001403
005204

070351
070353
070350

S$TYPON: MOVB
MOV

MoV
MOV
MovB
NEG
ADD
MOVB
MOVB

070353
000006
070352
070351
000012
1%:

006105

TYPOC

ADD

000002

000404
006105

006105
006105
010503
006103

070351

MOV

2%:

MOV
CLR
ROL

BR
ROL
ROL
ROL

070352

177770

MOV
ROL
DE(CB
BPL
BI(
8BNE
TST

4%:

BEQ
INC

2, (SP)

R4
#6,R4
R4, $SOMODE
$OFILL,RG

RS
12(SP)
R3
RS

33
RS
R5

;:SET THE ZERO FILL SWIT(H
;:SET FOR SIX(6) DIGITS

J:SET THE

ITERATION COUNT

;SAVE R3
s :SAVE Ré&
::SAVE R5
2;GET THE NUMBER OF DIGIYS Y10 TYPE

;:SUBTRACT IT FOR MAX. ALLOWED
:;2SAVE 1T FOR USE
;2GET THE ZERO FILL SWIT(H
;:PICKUP THE INPUT NUMBER
. CLEAR THE QUTPUT WORD
;JROTATE MSB INTO '°C*°
. :G0 DO MSB
::FORM THIS

DIGIT

R5,R3
R3
$OMODE
7%
#177770,R3
4%
R4

Ré4

::GET LSB OF THIS DIGHT

S TYPE

THIS DIGIT?

;2:BR IF NO
J:GET RID OF JUNK

;:TEST FOR O
2 JSUPPRESS THIS O?
;sBR IF YES
;;DON'T SUPPRESS ANYMORE 0°S

BINARY

TO OCTAL

(ASCI1)

AND TYPE

070272
070276
070302
070306
070312
070316
070320
070322
070324
070326
070330
070332
070334
070342
070344
070346
070347
070350
070351
(70352

052703
052703

000069
(00040
070346
070346
070350

110337

104401
105337

003347
002402
005204
000744

MACRO v04.00

5%:

7%:

6%:

012605
012604

012603

016666
012616
000002
000
000
000
000
000000

4-APR-B1

000002

000004
8%:
$OCNT:
$OFILL:
:
$OMODE

BIS
BIS

MovB
TYPE

DECB

BGT
BLT
INC
BR
MOV

MOV
MOV
MOV
MoV
RT]

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

18:06:¢5 PAGE 17-1
#'0,R3
#' ,R3
R3,8%
.8%
$OCNT

2%
6%
R4

2%
(S7)+,RS

(SP)+ R4

(SP) +,R3
2(SP) ,4(SP)
(SP)+,(SP)

OOOO0O

"IRMRBU RMQS/3/2 DU POR TST 1

360 0178

;JMAKE THIS DIGIT ASCII
JoMAKE ASCI] IF NOT ALREADY
;;SAVE FOR TYPING
;.GO TYPE THIS DIGIT
;. COUNT BY 1
;;BR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGI T I ?N'l A BLANK
i I
;.G0 DO THE LAST DIG

;;RESTORE
;:RESTORE
;;RESTORE
;.SET THE

RS
R4
R3
STACK FOR RETUPNING

: sRETURN

;:STORAGE FOR ASCII DIGIT

;. TERMINATOR FOR TYPE ROUTINE

;.O0CTAL DIGIT COUNTER
2. ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE

CIRMRBO RMOS5/3/2 DU POR TST 1

MA(RO v04.00

TONVERT BINARY TO DECIMAL AND TYPE ROUTINE

[

4-APR-8! 18:06:¢5 PAGE 18

.SBTTL

SEQ 0179

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

22232232

2022220000 RRRRRR2RRRRRRRRRiRRRRRRRRdRRRRRadRd
AR

;*TH]IS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DJGIT

J*SIGNED DECIMAL (ASCII) NUMBER AND TYPE T, DEPENDING ON WHETHER THE
;*NUMBER ]S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
J*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS Bf
; *REPLACED WITH SPACES.

;*(ALL:

I
iw

070354

070356
070360

070362

010046

010146
010246
010546
012746
016605
100004
005405
112766
005000
(€12703

070422

005002

070424
070430
070432
070434
070436
070440
070442
070444
070446
070450
070452
070454
070456
070464
C70470
070474
370476
070500
070504
070506
070510
070512
070514
070516
070520
070526

070530
070532
070534
070536

112723

016001
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
0126017

NUM, - (SP)

MOV

RO,=-(SP)

MOV

R3,~-(SP)

MOV
MOV

010346

070364
070366
£70372
070376
070400
070402
070410
070412

070416

$TYPDS:

MOV
TYPDS

020200
000020

000055

000001

070570

000040

1%:
2%:

070560

3s:

4%:

5%:

000001
000060
000040

177777

€%
7%:

000010

8%:

177777

177776

9% :

MOV
MOV
MOV
8PL
NEG
MOVB
CLR .
MOV

MOVB
(LR

MOV
SuB
BLT
INC
BR
ADD
TST
BNE
1578
B8M]
ASLB
8C(
MOVB
8IS
8IS
MOVR
TST
(P
BL
B8GT
MOV
B8R
T1STB
BPL
MOVB
C(LRB

MOV
MOV
MOV
MOV

J.PUT THE BINARY NUMBER ON THE STA(CK
;:G0 TO THE ROUTINE

;sPUSH RO ON STA(K

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

::PUSH R1 ON STA(CK
;:PUSH R2 ON STA(K

RS,-(SP)
#20200,~(SP)
20(SP) RS
19
RS
#'=-,1(SP)
RO
#3$DBLK,R3

::PUSH RS ON STACK
22SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
JJMAKE THE BINARY NUMBER POS.
;cMAKE THE ASCI] NUMBER NEG.
;;IERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER

'N ,(Rg)*
R2

$DTBL (RO) ,R1
R1,RS
43
R?
3s
R1,RS
R2
5%
(SP)
73
(SP)
$
1(SP) ,~1(R3)
#'0,R
#' ,R2
R2,(R3)+
(RO)+
RO . #10
29
8s
R5,R2
63
(SP)+
9s
~1(SP),=2(R3)
(R3)

(SP)+,R5
(SP)+ ,R3
(SP)+,R2
(SP)+,R1

;:PUSH R3 ON STA(K

:;SET THE FIRST CHARACTER TO A SLANK
;:CLEAR THE 8(CD NUMBER

;:GET THE CONSTANT
:;FORM THIS B8CD DIGIT
;:BR IF DONE
:; INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT
;JCHECK IF B8CD DIGIT=0
J:FALL THROUGH IF O
;:STILL DOING LEADING 0°S?
;:BR JF YES
;;MSD?
;:BR IF NO
JsYES==SET THE SIGN
J:MAKE THE BCD DIGIT ASCII
;:MAKE IT A SPACE IF NOT ALREADY A DIGIT

J:PUT THIS CHARACT TM IN THE QUTPUT BUFFER
3 JUST INCREMENTING
;sCHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
::G0 TO EXIT
::GET THE LSD
. :GO CHANGE TO ASC]lI]
::WAS THE LSD THE FIRST NON-ZFRQ?
;J:BR IF NO
J:YES~=SET THE SIGN FOR TYPING
J:SET THFE TERMINATOR
:;POP STACK INTO RS
;:POP STACK INTO R3
;:POP STACK INTC R?
;:POP STACK INTO R1

(ZRMRBO RM0S/3/2 DU POR TST 1

TONVERT BINARY

070540
070542
070546
070554
070556
070560
070562
070564
070566
070570

TO DECIMAL

012600
104401

016666
012616

000002
023420
001750
000144

0000172

AND

(70570
600002

MACRO v04.00

TYPE

ROUTINE

000004
$DTRL:

$DRLK:

4-APR-81

J
3
18:06:¢5 PAGE 18-1
(SP)+,RO
$DBLK

MoV
TYPE
MoV
MoV
Ril

5(SP),4(SP)

.BLkKW

10000.
1000.
100.
10.

(SP)+. (SP)

;;POP STACK INTO RO
;oNOW TYPE THE NUMBER
;JADJUST THE STACK
;sRETURN TO USER

SEQ 0180

(ZRMRBO RM05/3/2 DU POR TST 1

TTY

[INPUT ROUTINE

MACRO v04.00

&4~APR-81 18:06:25 PAGE 19

.SBTTL

TTY

SEQ 0181

INPUT ROUTINE

':tt..tl.tfi'.t'fi..tl‘t"'tt'tt'tfitittttfi!t."ttt'titt'tttt'tt'.tQQ

070600
070602
070604
070606

"ENABL

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKOSRT: .BLKB
$TKQEND=.
.EVEN

000000
000000
000000

070607

0
0
0

JoNUMBER OF

JTEMS

;o INPUT POINTER

IN QUEUE

:;0UTPUT POINTER

::TTY KEYBOARD QUEUE

;*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL

INITIALIZE THE TTY KEYBOARD INPUT QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

SxCALL:
i
A

(70610
070614
070622
070630
070636
070644
070650
070656

005037
012737
013737
012737
012737

005777

012777
000207

070600
070606
070602
070660
000200
110276
000100

070602
070604
000060
000062

$TKINT:

JSR
RETURN

PC.STKINT

CLR

$TKCNT
#STKQSRT,STKQIN
$TKQIN, $TKQOUT
#STKSRV
,a# TKVEC

MOV
MOV
MOV
MoV

TST
MOV
RTS

110266

#200,8#TKVEC+2
a$TkB

#100,3%TkS

;;CLEAR COUNT OF ITEMS IN QUEUE
;sMOVE THE STARTING ADDRESS OF THE

;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;2 INITIALIZE THE KEYBOARD VECTOR

:'BR' LEVEL 4

;:CLEAR DONE FLAG
;:ENABLE TTY KEYBOARD INTERRUPT
;:RETURN TO CALLER

;*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 ''CONTROI ~C'' RESTART ADDRESS (START)
070660
070664
070670
070674
070676
070700
070702
070702
070706
070710

070714
070720
070722
070726

070732
070734
070742
070744
07744

070752
070754

117746
042716

021627
001002
005726
000002

$TKSRV: MOVB

110262
177600
000021

30%:

021627
001007
104401
004737
005726
200137
021627
001004
022737
001500

000003

000176

001140

022737
001004

000001

070600

104401

072006
070610
002240
000007

001202

1%:

as$TKB,-(SP)

BIC
P
BNE

#AC177,(SP)

(MP
BNE
TYPE
JSR
TST
JMP
CMP
BNE
CMP
BEQ

(SP) 43

TST
RTI

CMP
BNE

TYPE

(SP) ,#$XON
308
(SP)+

:;PICKUP THE CHARACTER
;ISTRIP THE JUNK
::1S 1T A RANDOM XON?
;sBRANCH [F NO
;:CLEAN RANDOM XON OFF STA(K
; :sRETURN

;218 IT A CONTROL C?
;JBRANCH IF NO

PC,STKINT
+
(SP)
START

;s INIT THE KEYBOARD
;:CLEAN UP STACK
;cCONTROL C RESTART

LSCNTLC

(SP) 47
23

#SWREG, SWR

#1,8TKCNT

3%
LSBELL

;:TYPE A CONTROL-C

(*C)

;218 IT A CONTROL G?
2 :BRANCH IF NO
::1S SOFT-SWR SELECTED?
::GO TO SWR CHANGE
2. 1S THE QUEUE FULL?
2 BRANCH IF NO
;cRING THE TTY BELL

CZRMRBO RMOS5/3/2 DU POR TST 1

TTY

INPUT ROUTINE

070760
170762
070764

070770
070772
070776
071200
071004
071006
071012
071016
071022
071024
071032
071034
071040
071044
071046

071052
C71054
C/1060
071064
071070
071076
071100
071106

005726
000451
021627
001021

005077
005726
105777
100375
117746
042716

022627
001366
012777
000002
005237
021627
062405
021627
003002
042716

112677

005237
023727
001003
012737
000002

MACRD V04.00

000023

4-APR-81
TST
BR
CMP

BNE
CLR

110146

31%:

110140

110134
177600
000021

000100

CMP
BNE

110112

32%:

070600
000140

000175
000040
177516

070602
070602

070607

070606

070602

1ST
TST8
BPL
MOVB
8IC

cMP
BLT
CMP
86T
BIC
mMovs
INC
cMP
BNE
Mov
RTI

5%:
R

MOV
RTI
INC

3XI2223232

L
3
18:06:25 PAGE 19-1
(SP)+

b} 3
(SP) ,#23
328

a$TKS
(SP)+
as$TKS

318
a$TKB, - (SP)

Ac177,(SP)

(SP)+,#21
318

SEQ 018,

:;ELE?N CHARACTER OFF OFf STA(CK
JoEX

;1S 1T A CONTROL=-S?
;¢BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STACK
J;WAIT FOR A CHAR
::L00P UNTIL I1TS THERE

;.GET THE CHARACTER

JiMAKE IT 7-BIT ASC{!
;IS IT A CONTROL-Q?

;;BRANCH IF NO
;;REENABLE TTY KEYBOARD INTERRUPTS
;sRETURN
$TKCNT
::COUNT THIS CHARACTER
(SP)
., #140
;1S 17T UPPER (ASE?
3
:sBRANCH IF YES
(SP),#175
;318 1T A SPECIAL (HAR?
48
;JBRANCH IF YES
#40, (SP)
J:MAKE 1T UPPER CASE
(SP) +,a$TKQIN
;;AND PUT IT IN QUEUE
$TKQIN
;:UPDATE THE POINTER
$TKQIN, #$TKQEND :2G0 OFF THE END?
5%
:sBRANCH [F NO
#$TKQSRT ,$TKQIN :;RESET THE POINTER

#100,387KS

2 :RETURN

223232222322

220d232

82222821020

RR 2

222202

R0RdRttdd

*SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
**ROUTINE IS ENTERED

071110
071116
071120
071124
071126
071132
071136
071142

022737
001124

105777
100121
117746
042716
021627
001300

000176

001140

110020

FROM THE TRAP HANDLER, AND WILL

$*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
#SWREG, SWR
$CKSWR: P
;:1S THE SOFT-SWR SELECTED
158
BNE
J:EXIT [F NOT
1STB
asTKS
;1S A CHAR WAITING?
BPL
MOVB
8IC
(MP
BNE

110014
177600
000007

158

3$TKB, - (SP)

#*C177, (SP)

(SP) 47

J:1F NOT, EXIY
;o YES

J:MAKE IT 7-BIT ASCII
2218 1T A CONTROL-G?
..IF NOT, PUT IT IN THE TTY QUEUE

PIAND EXIT

2222233223233 2233282202332 2320322323022 0f

00223 R200R 2002002000002 2]

*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
071144
071152
071154
071156
071162
071166

123727
001674

071174
071200
071204
071210

104401
104401

005726
004737
005077

112737

013746

104402

001134

000001

070610
107756
000001

001135

072020
072025
000176

;*CONTROL-G BEING TYPED, AND THE SOF TWARE SWIT(H REGISTER BE1.G SELECTED.
cMP8
SAUTOB, ”
;:ARE WE RUNNING IN AUTG-MODE?
BEQ
2%
;sBRANCH IF YES
(SP)+
TST
;. CLEAR CONTROL~-G OFF STACK
PC,$TKINT
JSR
;oFLUSH THE TTY INPUI QUEUE

6%:

AsTKS

#1,8INTAG

;;SET INTERRUPT MODE INDICATOR

TYPE
TYPE
MOV
TYPOC

.SCNTLG
. SMSWR

::ECHO THE CONTROL-G (*G)

MOVB
$GTSWR:

;:DISABLE TTY KEYBOARD INTERRUPTS

CLR

SWREG,~(SP)

;TYPE CURRENT CONTENTS

::SAVE SWREG FOR TYPEQUT
;:GO TYPE--OCTAL ASCITC(ALL DIGITS)

(ZRMRBO RM05/3/2 DU POR ST
TTy INPUT ROUTINE
104401

072036

105777

107716

117746

107712
177600

021627
001015

000003

071212
071216
071220

005046
005046

071226

100375

071230
071234

042716

071222

071240
071244
071266
071252
071256
071264
071266
071274

104401

062706
123727
001003
012777
000137

072006
000006
001135

000100
002240

MACRO v04.U0

'9%:
7$:

000001
107650

000025

062706
000737

106601

072013
000006

20%:

071320
071324
071326
071332
071334

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015

000015

108:

071352
071360
071362
071370
071372
071376
071402
071404
71410
071412
071416
071422
071424
071426
071430
071432
071436
071442
071444
071450

9% :

000100

107554

070004
000060

—

000001

107576

000002
000006
001207
001135

S~
[ X ]

000004

000067

042726
005766
001403
006316
006316
006316

000060
000002

000002
177776

17%:

104401
000720

001206

18%:

005266
056616
000667

FOR NEW SWR

A$TKB, ~(SP)

;.PICK UP (CHAR

CMP
BNE

(SP) 43
9%

;218 1T A CONTROL=-C?
; :BRANCH IF NOT

=(SP)
-(SP)

a$TKS

#AC177,(SP)
LSCNTLC

#6,SP

.
. M1
$INTAG
8s

J:MAKE [T 7-BIT ASCII

;sYES, ECHO CONTROL=C (*()
;;CLEAN UP STACK
;:REENABLE TTY KEYBOARD [HTERRUPTS?

. ;BRANCH IF NO

MoV

#100,381KS
START

JoALLOW TTY KEYBOARD INTERR P73

CMP
BNE
TYPE
ADD
BR

(SP) 425
108

;1S 1T A CONTROL-U?
:;BRANCH IF NOT
;2YES, ECHO CONTROL-U (~U)
;: IGNORE PREVIOUS INPUT
:;LET'S TRY [T AGAIN

JMP

CMP
BNE
187
8EQ
MoV
ADD

TVPE

MOV
RT1
JSR

(MP
BLT
cMP
8GT
8IC
TST
BEQ
ASL

.DSABL

::PROMPT

MOvVB

(MPB
B8NE
15%:
16%: -

SMNEW

SEQ V187

BNE

8%:

18:06:25 PAGE 19-2

;sCLEAR COUNTER
;s THE NEW SWR
;;CHAR THERE?
;:1F NOT TRY AGAIN

TYPE
ADD
CMPB

021627
001005

071346

TYPE
CLR
CLR
TSTB
8PL

BIC

71300
071304
071306
071312
071316

071342

&4-APR-81

ASL
ASL

INC
BIS
B8R

TYPE

B8R
LSB

2 ;CONTROL-C RESTART

;218 IT A <CR>?
::BRANCH [F NO
2(SP) ,aSwR

#6,SP

,SCRLF

M
SINTAG,.
15%
#100,387KS
PC,STYPEC

(SP) ,#60

32YES, IS IT THE FIRST (HAR?
;;BRANCH IF YES
;:SAVE NEW SWR
;:CLEAR UP STA(K
::ECHO <CR> AND <LF>
;:RE-ENABLE TTY KBD INTERRUPTS?
; sBRANCH IF NOT
;;RE-ENABLE TTY KBD INTERRUPTS
;sRETURN
; sECHQ CHAR

::CHAR < 0?

18%
(SP) ,#67
18%

; JBRANCH IF YES

2(SP)
173

2:1S THIS THE FIRST CHAR
:;BRANCH IF YES

#60,(SP)+
(SP)
(SP)
(SP)

2(SP)
., (SP)
-2(SP)
7%
$QUES

208

JsCHAR > 77
:JBRANCH IF YES
;:STRIP-OFF ASCII

;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
3
ROOM FOR NEW ONE.
::
JJKEEP COUNT OF CHAR
2:SET IN NEW (CHAR
J3GET THE NEXT ONE
2:TYPE 2<CRO<LF>
J:SIMULATE CONTROL-U

:"t'tfittil’ttt'!tt’il‘ltt""fit.fi‘i.tfittttiit"‘.i.'!"tit AR RY

(ZRMRBO RM05/3/2 DU POR TST

TTY

INPUT

ROUTINE

MACRO V04.00

4-APR-81 18:06:25 PAGE 19-3

;Av"HIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s*=CALL:
‘- RDCHR

RETURN HERE

B
. %

071452

071454
071462
071466
071470
071474
071476
071476
071502
071504
071510
071516
071522
071530
071532
071540

011646
016666
005066
005046
012746
000002

005737
001775
005337

117766
005237

023727
001003
012737
000002

071476

$RDCHR: MOV
MOV
CLR
CLR
MOV

070600

64%:
1%:

000004
000004

070600
177070
070604
070604
070606

000002

000004

070607
070604

2%:
SR

;sGET A CHARACTER FROM THE QUEUE
;. CHARACTER IS ON THE STACK
;;WITH PARITY BIT STRIPPED OFF

RTI

TST
BEQ
DEC
MOVB
INC
MP
BNE
MOV

RTI

(SP) ,={(SP)
4(SP),2(SP)
4 (3P)
~(SP)
#6468 ,~(SP)

::PUSH DOWN THE PC AND

;s THE PS

;:GET READY FOR A CHARACTER
:;PUT NEW PS ON STACK
;:PUT NEW PC ON STACK
::POP NEW PC AND PS

$TKCNT
;JWAIT ON A CHARACTER
1%
$TKCNT
;;DECREMENT THE COUNTER
T
, 4 (SP)
a$TKQOU
;:GET ONE CHARACTER$TKQOUT
;;UPDATE THE POINTER
$TKQOUT, #STKQEND ;;DID IT GO OFF OF THE END?
; ;BRANCH IF NO
2%
#STKQSRT,$TKQOUT :;RESET THE POINTER
: ;RETURN

3242323222223 812423200

2008

22 228088008280ttt
iRttt sl td S

'{:EE ROUTINE WILL INPUT A STRING FROM THE TTY
(B
1

i
I*

RDL IN

RETURN HERE

. &

071542
071544
071546
071552
071556
071560
071562
071564
071570
071572
071574
071576
071604
071610
071614
071616
071622
071624

071630
071634
071636
071640
071642
071650
071654
071656
071662

010346
005046
012762
022703

101456
104410
112613
122713

001022
005716
001007
112737
104401

012716
005303
020327
103434
111337
104401

000746

$RDLIN: MOV
CLR
1%:
MOV

071776
072006

2%:

RDCHR

10%:

000177

000134
071774
177777

071774

6%:

071776

071774
071774

000025

071774
7%:

#STTYIN+8.
,R3
43

(SP)+,(R3}

(MPB

#177.(R3)

TST
BNE
MOVB
TYPE
MOV
DEC
cMP
BLO

(SP)
6%
#'\,9%

BNE

,9%

;;TERMINATOR WILL BE A BYTE OF ALL 0'S

; :SAVE R3

;sCLEAR THE RUBOUT KEY
::GET ADDRESS
JsBUFFER FULL?
;:BR IF YES
;G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;3218 1T A RUBOUT
::BR IF NO
:21S THIS THE FIRST RUBQUT?
;:BR IF NO
;;TYPE A BACK SLASH

;:SET THE RUBOUT KEY
. +BACKUP BY ONE

#-1,(SP)
R3
R3,ASTTYIN
43
(R3),9%
,9%
2%

BEQ
MOVB

7%
#'\,9%

;:BR IF NO
;s TYPE A BACK SLASH

TYPE

5%:

000134
971774

MOVB

005716

001496
112737
104401
005016
122713
001003

«, o

BLOS

R3,-(SP)
-(SP)
#STTYIN,R3

;2 INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

TST

TYPE
CLR
(MPR
BNE

(SP)

,9%
(SP)
425, (R3)
8%

;:STACK EMPTY?

;:BR IF YES

:;SETUP TO TYPEOUT THE DELETED CHAR.
;:GO TYPE
: ;GO READ ANOTHER (HAR.
: ;RUBQUT KEY SET?

;. CLEAR THF RUBOUT KEY
;. 1S CHARACTER A CTRL U?
;:BR IF NO

SEQ 0184

(ZRMRBO RMOS5/3/2 DU POR TST 1

TTY

INPUT

ROUTINE

MACRO Vv04.00

071666

106401

072013

071672
071676
071700

122713
001011
105013

000022

071716
071720
071722
071726
071732
071736
071740

104401
000712
111337
104401
122723
001305
105063

001206

4$:

071774
071774
000015

071750

005726

071754
C71756
071764
071772
071774

011646
016666
012766
000002
000

071670 000726

TYPE

071752

071775
071776
072006
072013
072020
072025
072036

104401

177777

012603
000004
071776

040

*21S CHARACTER A '"R'"
*:BRANCH IF NO
“:CLEAR THE CHARACTER

TYPE
BR
MOVB
TYPE
C(MPB
BNE
CLRB

, $QUES
is
(R3).9%
,9%
#15,(R3)+
28
~1(R3)

MOV
98 :

103
125
107
012

#22,(R3)
3$
(R3)

000

136
136
136
015

CMPB
BNE
CLRB

TYPE

A
000002
000004

015
015
015
123
116

$STTYIN:
S$CNTLC:
$CNTLU:
S$CNTLG:
SMSWR:
SMNEW:
.EVEN

;:TYPE A CONTROL ‘U

TYPE
TYPE
B8R

001210

18:06:25 PAGE 19-4

LSCNTLU

B8R

8% :

071702 104401 001207
071706 106401 071776
071712 000717

0717244

4-APR-B1

,S$CRLF
$STTYIN
2$

JSLF

(SP)+

(SP)+,R3

MOV
MOV
MOV
RTI
BYTE

(SP) ,~(5P)
4(SP} ,2(SP)
ASTTYIN,&L(SP)

.ASCIZ

BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

1:GO START OVER

CITYPE A *2°
*:CLEAR THE BUFFER AND LOOP
““ECHO THE CHARACTER

::CHECK FOR RETURN
S:LOOP IF NOT RETURN
“:CLEAR RETURN (THE 15)
“:TYPE A LINE FEED

:CLEAN RUBOUT KEY FROM THE STACK

**RESTORE R3

:;ADJUST THE STACK AND PUT ADDRESS OF
i
FIRST ASCI] CHARACTER ON IT

: ;RETURN
*:STORAGE FOR ASCII CHAR. TO TYPE
**TERMINATOR
:RESERVE 8 BYTES FOR TTY INPUT

0
8.
/%C/<15><12>
::CONTROL '‘c*’
/%U/<15><12>
-:CONTROL '\’
/%G/<15><12>
::CONTROL ''G"’
<15><12>/SWR = /
NEW =

JEQ 0185

THE

CZRMRBO KMOS/3/2 DU POP TST 1
READ AN CCTAL NUMBER FROM THE

MACRO v04.00
T7Y

&~APR-B1

.SBTTL

18:06:25 PAGE 20

SEQ 0186

READ AN OCTAL NUMBER FROM THE TTY

'"filt'.t.t".fi.tt'tt*i'."t'ltt'tt.tfi!t'tfi'ttttlt't'fit.ittttt.t'i

$*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
J*(CHANGE IT TO BINARY,

;*THE

INPUT CHARACTERS WILL BE

CHECKED TO INSURED THEY ARE LEGAL

;*0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '"?°' WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED.

;«CALL:

M
M

072050
072052
072060
072062
072064
072066
072070
072072
072076
072100
072102
072104
072106
072112
072114
072120
072122
072124
072126
072130
072132
072134
372136
072142
072144
072146
072150
072154
072160
072162
072164
72166
072170
072172
072174
072176
072200
072204
072206

011646
016666
010046
010146
010246
104411
012600
010037
005001
005002
112046
001420
122716

003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012602
012601
012600
000002
005726
105010

000004

104401

000730
000000

$RDOCT:

1%:

072176

2%:
000060

000067

RDOCT
RETURN HERE

;.READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STA(K
;sHIGH ORDER BITS ARE IN SHIOCT

MOV

4(SP) ,2(SP)

;sPROVIDE SPACE FOR THE
;o INPUT NUMBER

(SP)+ R0

J:PUSH R2 ON STACK
;sREAD AN ASCIZ LINE
;:GET ADDRESS OF 1ST CHARA(TER
J;AND SAVE IT
::CLEAR DATA WORD

MOV

MOV
MOV
(0}

RDL IN

MOV

000012
072206

3%:

4%:

001206

5%:

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

RO,5%
R1
R2
(RO)+,=-(SP)
33
#'0,(SP)
43

ASL
ROL
ASL

R
RZ
R1

ASL
ROL
BIC
ADD

R1
R2
#(7,(5P)
(SP)+
R

ctMP8
BLT

177770

(SP) ,=~(SP)

MOV
CLR
CLR
MOVB
BEQ
CMPB
BGT

ROL

104401

000000

000002

THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

BR
TST
MOV
MOV
MOV
MOV
MOV
RT1
7ST

¥#'7,(SP)
43

23
(SP)+
R1.,12(5P)
R2.SHIOCT
(SP)
+ ,R2
(SP)+ R
(SP)+ RO
(SP)+

CLRB

(RO)

MWORD
TYPE

O
igOUES

TYPE

BR
$HIOCT: .WORD

;:PUSH RO ON STACK
:PUSH R1 ON STACK

;:PICKUP THIS CHARACTER
1F ZERO GET QUT
;.
;:MAKE SURE THIS CHARA(CTER
::1S AN OCTAL DIGIT
i.%2
s

;%8
;:STRIP THE ASCII JUNK
::ADD IN THIS DIGIT
;. LOOP
;2CLEAN TERMINATOR FROM STACK
;2SAVE THE RESULT

;:POP STACK INTO R2
:;POP STACK INTO R1
. .POP STACK INTO RO
: ;RETURN

;;CLEAN PARTIAL FROM STACK

::SET A TERMINATOR
;sTYPE UP THRU THE BAD (HAR.
:;lt?'l

llchi

'IF'.

::TRY AGAIN
::HIGH ORDER BITS GO HERE

(ZRMRBO RM(5/3/2 DU POR TST 1
MACRO v04.00
SAVE AND RESTORE RO-R5 ROUTINES

4-APR-81

.SBTTL
A

&
D
18:06:25 PAGE 21

SEC 0187

SAVE AND RESTORE RO-R5 ROUTINES

2422220822202

1 *SAVE RO-RS

X222

TeCALL:

e
SAVREG
*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
FTOP===(+16)

ie 42===(+18)
‘% +4===RS
J% +6=-~=R4§

;% +8---R3

072210
072210
072212
072214
072216
072220
072222
072224
072230
072234
072240
072244

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646

000002

$SAVREG:

(01"
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
RTI

000022
000022
000022
000022

RO,=(SP)
R1,-(SP)
R2,={SP}

,,PUSH RO
;PUSH R1

R4 ,~(SP)

;;PUSH R4

22(SP) ,~(SP)
22(SP) ,-(SP)

;:SAVE
;. SAVE
;s SAVE
s+ SAVE

R3,~(SP)

R5,=-(SP)

22(SP) ,=(SP)

22(SP) ,-(SP)

::PUSH R2

;;PUSH R3

::PUSH RS

PS
PC
PS
PC

222222

i #+10-=-R?
Jx+12-~-R"
;*+164---R0

OF
OF
OF
Of

STACK
STACK
STACK
STACK
STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

:*RESTORE RO-R5
;*CALL:

072246
072246
072252
072256
072262
072266
072270
072272
072274
072276
072300
072307

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

RESREG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV
RTI

(SP)+ ,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)

(SP)+,22(SP)
(SP)+,RS

(SP)+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+ R0

s sRESTORE PC OF CALL
s sRESTORE PS OF CALL

; ;RESTORE PC OF MAIN FLOW
,.RESTORE PS OF MAIN FLOW

;POP STACK INTO RS

,,POP STACK INTO R4

:2POP STACK INTO R3
;. POP STACK INTO R2
;+POP STACK INTO R1

::POP STACK INTO RO

~JRMRBO RM(S5/3/2 DU POR TST 1

TRAP DECODER

MArRO v04.00
.SBTTL
(B2

4-APR-B1 18:06:25 PAGE 2¢

SEQ 01858

TRAP DECODER

232222 2222202222222

;*THIS ROUTINE WILL

PICKUP THE

RRRRRRRRR

LOWER BYTE OF

XRRR

22D

THE '‘TRAP'' INSTRUCT!ION

J*AND USE [T 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.

072304
072306
072312
072314
072316
072320
072324

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

072340

MOV
MOV
TST
MOVB
ASL
MOV
RTS

RO,-(SP)
{3P) RO
-(RO)
(RO) ,RO
RO
$TRPAD(RO),RO
RO

;:SAVE RO
*:GET TRAP ADDRESS
P:BACKUP BY 2
:2GET RIGHT BYTE OF TRAP
S POSITION FOR INDEXING
. INDEX TO TABLE
22GO TO KOUTINE

::THIS IS USE TO HANDLE THE “'GETPRI‘' MACRO
C72326
072330
072336

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV

(SP) ,~(SP)
4(SP),2(SP)

RTI

.SBTTL
;*THIS

::MOVE THE PC DOWN
LIMOVE THE PSW COWN
SRESTORE

THE PSw

TRAP TABLE
TABLE

CONTAINS THE

STARTING ADLCRESSES OF

S«BY THE '‘TRAP' INSTRUCTION.

THE ROUTINES CALLED

ROUTINE

072340

072326

072344
072346
072350

070152
070126
070166

072342

072352

067634

070354

$TRPAD: .WORD
$STYPE

$TYPOC
$TYPOS
STYPON

$TYPDS

$TRAP?

;s CALL=TYPE

TRAP+1(104401)

::CALL=TYPDS

TRAP+5(104405)

;,;CALL=TYPO(
::CALL=TYPOS
-:-CALL=TYPON

TYIY TYPEOUT ROUTINE

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

TYPE DECIMAL NUMBER (WITH SIGN)

072354

071200

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOF T-SWR SETTING

072356
072360
072362
072364
072366
072370

071110
071452
071542
072050
072210
072246

SCKSWR
SRDCHR
$SRDLIN
$RDOCT
$SAVREG
$SRESREG

::CALL=CKSWR
- :CALL=RDCHR
- :CALL=RDLIN
;:CALL=RDOCT
::CALL=SAVREG
- +CALL=RESREG

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

JRMRBO RM0S/3/2 Du POR TST
TELETYPE MESSAGES
2

3 072372

4 072621

200

SEQ 0189

ENTERA:

,ASCIZ

120
120
116
105

117
117
117
116

PORTAIS: .ASCIZ
PORTBIS: .ASCIZ
NOCLOCK: ,ASCIZ
TESTNO: .ASCIZ

<CRLF>/PORT 'A' ADDRESS IS: /
<CRLF>/PORT ‘'B' ADDRESS IS: /
<CRLF>/NO SYSTEM ‘L' OR 'P' CLOCK/<CRLF><LF>
<LF>/ENTER TEST #: /

105

122

TSTERR:

/ CRRORS/<CRLF>

040

077

11 072640
12 072675

200
012

012
105

040

116

105

9 072600

10 072627

200
200
200
012

1B:06:¢5 PAGE 23

TELETYPE MESSAGES

077

072444
072473
072522
072560

&4~APR-BI1

LSBTTL
040

5
6
7
8

MACRO v04.00

111

ADRERR:

,ASCIZ

111

BADNO:

ASCIZ

122
116

ADDRIS:
NTRHM:

.ASCIZ
LASCIZ

.ASCIZ

<CRLF>/ENTER DRIVE ADDRESS:
/

?INVALID ADDRESS/<(CRLF>

/ ?INVALID TEST NUMBER/<(RLF>

<CRLF><LF>3RH/RM ADDRESS (RM(S1) IS: @
<LF>3ENTER RH/RM ADDRESS: @

"JRMRBO RMQS/3/2 DU POR TST 1

TEST ERROR MESSAGES

MA(CRO V04.00

.SBTTL

3 072724

127

122

117

EMI1:

5 072767

123

105

122

EM3:

4 072745

$ 073051
7 073102
8 073150
9 073250
10 073331

073301

14
15
16
17
18
19

104

104
127
122
122
12¢

122

122
122
105
105
105

103

117

073602
073645
073724
073777
074056
074136

126
101
101
101
104
104

117
124
124
124
122
122

21 074276
22 076344
23 074423
24 074466
25 074553
26 074631
27 074726
28 075003
29 075054
30 075156

124
122
124
104
122
104
104
101
104
104

11
105
m
122
105
122
122
124
122
122

32 075340
33 075412
34 075460
35 075535
36 075577
37 075665
38 075742
39 076017

124
104
101
124
104
104
127
120

111
122
124
11
122
122
122
117

43 076310
44 076377
45 076472
46 076553
47 076646
48 076713
49 076756
50 077017
S1 077063

107 124
103
122
124
122
120
101
101

12 (73445
13 073515

20 G74211

31 075261

40 076071
41 076140
42 076226

52 077115
53 077163
56 077225
55 077274

104
122

104

124

103
101
101

101
104
101
126

111

111
117
107
107
107
116

122
105

111
101

122

111

133

101
124
124
124
110
101
105
m
110
117

124
“24
124
122
124
117

114
124
126
126
111
111

115
114
115
111
107
111
111
126
111
111

115

115
111
124
115
111
111
111
122

116
1264
124

124
105
116
114
115
057
122
126
124

124
111
124
114

4~APR-81

LASCIZ

/WRONG DRIVE TYPE/

JASCIZ

/SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/

.ASCIZ

EMé4:
EMS:
EM6:
EM/7:
EM10:

.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ

EMI2:
EM13:

EM14:
EMIS:
EM16:
EM17:
EM20:
EM21:

EM22:

EM23:
EM24:
EM25:
EM26:
EM27:
EM30:
EM31:
EM32:
EM33:
EM34:

EM35:

.ASCIZ

LASCIZ
.ASCIZ

ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ

LASCIZ

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
JASCIZ

LASCIZ

EM36:
EM37:
EM4LO:
EM61:
EM42:
EM43:
EM44:
EM4S:

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ
LASCIZ

EM51:
EMS2:
EMS3:
EM54:
EMSS:
EM56:
EM57:

LASCIZ
LASCIZ
LASCIZ
LASCJZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

EMbL6:
EM4T7:
EMS0:

EM60:
EM61:
EM62:
EM63:
EM64:
EM65:

SEQ 0190

TEST ERROR MESSAGES

EMZ:

EM11:

18:06:¢5 PAGE 24

LASCIZ
LASCIZ
.ASCIZ

LASCIZ
LASCIZ
LASCIZ
LASCIZ

/DRIVE NOT ON L INE/

/DRIVE NOT SEIZED BY PORT/
/WRONG STATUS SEEN BY THE SEIZING PORT/
/REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED/
/REGISTER CONTENTS WRONG AFTER RFLEASE OR TIMEOUT/
/REGISTER CONTENTS WRONG/
/CONTROL BUS PARITY ERROR READING INDICATED RcGISTER/

/DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND/
/READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/
/VOLUME VALID SET ON THE WRONG PORT/
/ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET/
/ATTN BIT WRONG AFTER RELEASE - REQUEST SET/
/ATTN BIT WRONG AFTER RELEASE - REQUEST NOT SET/
/DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED/
/DRIVE SEIZED WHEN ZERO WRITTEN IN ATIN BT/

/DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/

/TIMEOUT CLEARED THE DRIVE'S ERROR BIT/
/RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET/
/TIMEQUT ONE-SHOT DID NOT RETRIGGER/
/DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/
/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/
/DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN DRIVE [N NEUTRAL/
/DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/
/ATTN BIT WRONG AFTER RECALIBRATE COMMAND/
/DRIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/
/DRIVE RETURNED TO NEUTRAL If MASSBUS INIT GIVEN WHILE DRIVE SEIZED/

/TIMEOUT ONE SHOT FIRED WITHOUT REGISTER ACCESS/

/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/
/DRIVE IS NON-EXISTENT (°NED' BIT SET)/
/ATIN BIT FOR PORT NOT RESET BY MASSBUS CLEAR/
/TIMEOUT CLEARED THE ATTENTION BIT/
/DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATIN BIT WRITTEN/
/DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN/
/WRITE ATTENTION BIT DID NOT SET PORT REQUEST/
QPORT SELECT SWITCH ON DRIVE, NOT IN ‘A/B‘a

/CAN'T ACCESS DRIVE THROUGH EITHER PORT/
/ATIN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT/
/ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR/
/ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/
/THE ATIN BIT SET AFTER TIMEOUT WITH NO REQUEST & °'ERR" SET/
/CAN'T READ THE ATTN BIT FROM THE 'OPPOSITE' PORT/
/RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT/
/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/
@RH/RM DIDN'T RESPOND TO ADDRESSINGa
/PORT REQUEST FLOP(S) WRONG STATE/

/ATTENTION NOT RESET BY WRITING RMAS/
/ATTENTION NOT RESET BY GO/
/ATTENTION RESET BY GO WHEN NOT SFIZED/
/DRIVE SEIZED BY UNIT READY CHANGE/
/ATTENTION NOT SET BY UNIT READY CHANGE/
/VOLUME VALID NOT RESET BY UNIT READY/

DH46:

105
122
105
040

DHSS:
DH56:
DHS57:

- 105

040

Y =
Y
ey e
e
e

#
#

ERR PC
ERR PC

PORT ¥
PORT #
RELSNG
PORT #
PORT ¥

/TEST #
/
/TEST #

ERR PC

/TEST #
/

ERR PC

/TEST #
/TEST #
/TEST #

ERR PC
PORT #
PORT #/
ERR PC
PORT #/
ERR PC/

/TEST #
/
/TEST #
/TEST #
/SRMADR/
/TEST #
/

ERR PC

NG N

ERR PC
ERR PC

N 0

#
#

N S

Y e
Ly
Y

JTEST
/TEST
/
JTEST
/TEST

s TN Bme N B

e N N

040

e NG Ny

DH36:
DH&L2:
DH&44:

PORT #
REG ADR (ONTENTS/
REG ADR PORT A
PORT 8/

e Py N NG

105
105
105
040
105

SEQ 01N

ERR PC
ERR PC

e I

DH31:

18:06:¢25 PAGE 25
/TEST #
/TEST #

NG s g N N

040

LLLLLLLLLLLOLOLOUN

DH26:

105

049

DH23:

DH2?:

DH11:
DH13:

DH7:

(el
lnlinliniainlisininlnislinlinlinliniIalalalalalaleleele
Y

105

DH5:

bbb

040
105
040

DH1:
DH3:
DHG:

&-APR-8!

22ee>Pre>2rBrr>EEEbEEbER
PR

124
040
124
124
040
1264
040
1264
040
124
040
126
040
124
124
124
040
124
040
124
124
044
124
040

MACRO v04.00
[T Ta T
Y
R0 PR Y e R
Y
AP0
NN SO
S NONY
O WO WO WWOWWO
WW

" 24

105

105
040
105
105
040
105
105
040
105

/TEST #
/

ERR PC

ERR P(C
ERR PL
ERR P(

SEIZE

PCRT #
RELSNG
PORT ¥

ERROR/<CR><LF>

PORT #
REG ADR GOOD
REG ADR GOOD
BAD/
ERROR/<CR><LF>
PORT #
REG ADR GOOD
REG ADR CONTENTS/

B8AD/

BAD/

ERROR/<CR><LF>

PORT #
REG ADR CONTENTS/
SEIZE/<CR><LF>
PORT ¥/

SEIZE/<CRO<LF>

PORT #
REG ADR CONTENTS/
RELSNG/<CR><LF>

PORT »/
RELSNG
RQSTNG/<CR><LF>

RELSNG

PORT #
PORT A
RMDS
PORT #

ERROR/<CR><LF>

PORT #/
PORT B/<CRX<LF>
RMDS/
TIMEOUT VALUE (IN MS)/

PORT A
EXPCTD
RECEVD

PORT B/
EXPECTD
RECEVD/

000
000
000
000
000
000
000
000

G
I
O
QST
(U

001246
001246
001c46
001246
001246
001246
001246
001246
001246
001246
001304
001246

U0 (R

001246
001246
001246
001246
001246

.EVEN

QT NIV

100003

126
1264
040

[T WS (R

0773461
077412
077661
077520
077604
077660
077717

[ T
U
S
W
QU QR
T O S
G
i
ocoonorOrOrONONMOMONONONONMONMONOY

—d

b ek

d cmd

NP NN

=CO00 NN

ERROR MESSAGES

FW=
¥ OV
:~uunuu3§n$yxtuuu~namflvnamflvnanflvnwa
NN
WN 2O VONOINEWN OV

"EST

)

(=]

"IRMRBC RMOS/3/72 DU POR TST

00C0
001116

001240
001122
001240
001244
001242
001242
001242
001242
001242
001242
001240
000000
001170
001244
001242

001164
000
000
000
000
000

ooo}

DT1:

DT3:
DTS:

DT6:
DT7:
DT13:
DT22:

D123:
DT31:
DT36:
DT37:
DT42:
DT46:
DT54:
DT55:
DTIS6:

DT57:
DF1:

DFS:
DF7:
DF31:
DF 36:
DF42:
DFSS:
DF 56:

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
. WORD
-WORD
. WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

TSTNUM, SERRP( ,PTNBR, SBDADR, $8DDAT,0
TSTNUM, SERRP( , SBDADR, SGDDAT , $BDDAT, 0
TSTNUM, SERRPC ,PTNBR, $BDADR, $SGDDAT , $BDDAT .0
TSTNUM, SERRP( ,OPPRT ,$BDADR ,$BDDAT , )

TSTNUM,SERRPC,SEIZPT
,PTNBR, $BDADR, SGDDAT ,$BDDAT, 0
TSTNUM, SERRPC, SEIZPT ,PTNBR, $BDADR, $BDDAT ., 0
TSTNUM, SERRP( ,SEIZPT ,PTNBR,0
TSTNUM,SERRP( ,SE1ZPT,$BDADR, $BDDAT 0
TSTNUM, SERRPC, SE1ZPT,0PPRT,0
TSTNUM SERRPC,SEIZPT,0
TSTNUM,SERRP(C,PTNBR,
0
TSTNUM, SERRPC, 0

TSTNUM,
SERRP(C ,$TMP2,$TMP3,0

TSTNUM, SERRPC ,0PPRT ,SEIZPT,0
TSTNUM, SERRPC,SEIZPT,TIME,Q
$RMADR,
0

TSTNUM, SERRPC,$TMPO ,$TMP1,8TMP2 ,$TMPZ, 0

“JRMRB(C RM05/37/2 DU POR TST 1
TEST ERROR MESSAGES
58

MACRO v04.00
LEVEN

&-APR-81

4
I
18:06:¢5 PAGE 25-1

SEQ 019¢

MACRO V04.00

4=-APR-81

CONSTANTS,

SEQ 0193

TABLES, ETC

JATTENTION BIT
ATABIT:

.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

010

020
040
100

200
000052

MAXTN:

.WORD

000200

.END

200

;STARTING ADDRESS Of

; STARTING ADDRESS
;STARTING ADDRESS
:STARTING ADDRESS
:STARTING ADDRESS

TEST
TEST
TEST
TEST
TEST

sSTARTING ADDRESS
;STARTING ADDRESS
;STARTING ADDRESS
:STARTING ADDRESS
;STARTING ADDRESS
;STARTING ADDRESS
:STARTING ADDRESS
;STARTING ADDRESS
;STARTING ADDRESS
:STARTING ADDRESS
:STARTING ADDRESS
;STARTING ADDRESS
;STARTING ADDRESS

TEST
TEST

TEST
TEST
TEST
TEST
TEST
TEST

—
Y ONN NN

;STARTING ADDRESS
;STARTING ADDRESS
:STARTING ADDRESS
;STARTING ADDRESS

1SI3

TEST
TEST
TEST
TEST
TEST
TEST
TEST

n b md d b ek wd ek =
OO
N =0

1ST4
1875

TEST
TEST
TEST
TEST
TEST
;STARTING ADDRESS
; STARTING ADDRESS
TEST
TEST
: STARTING ADDRESS
TEST
;STARTING ADDRESS
TEST
JSTARTING ADDRESS
TEST
:STARTING ADDRESS
TEST
:STARTING ADDRESS
TEST
:STARTING ADDRESS
TEST
JSTARTING ADDRESS
TEST
;STARTING ADDRESS
TEST
:STARTING ADDRESS
:STARTING ADDRESS Of TEST
;STARTING ADDRESS OF TESY
;STARTING ADDRESS OF TEST

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

053150
055134
056410
057664
060514
061344

002
004

;STARTING ADDRESS OF
;STARTING ADDRESS OF

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

044250
045374
046272
047370
050166
051164

001

TST1
TST?

TABLE

:ATTENT]

8l T
8l T
8l T
81 T
8l T
8l T
JATTENTION 8l T
JATTENTION BI T

SATTENTI

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

DRIVE
DRIVE
DRIVE
DRIVE

JMAXIMUM TEST NUMBER

= O

012142
012614
013266
014532
015776
017116
020236
021636
023236
024162
025106
026154
027222
031276
032022
033216
034412
036106
037602

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

TSTADR:

NO WS

25
oo
~

b
—

—_

19,

-— b D

003374
004746
006314
007662
011012

041276
042772

18:06:25 PAGE 26

;TABLE OF TEST STARTING ADDRESSES

1602

.SBTTL

[elolelololblololblolololololols] o

OV
L NIY -

’

CZRMRBO RM05/3/2 DU POR TST
CONSTANTS, TABLES, ETC

“ZRMRBO RM0S5/3/2 DU POR TST 1

MACRO Vv04.00

ADDRIS
ADRERR

000015
000200

SYMBOL TABLE

001900
001236
700000
101672
000001
AT1
= 000002
AT2
= 000004
AT3
= 000010
AT«
= 000020
ATS
= 000040
AT6
= 000100
AT7
= 000200
A16
= 000400
A17
= 001000
BADNO
072600
BADTMO 002160

=
=
DCK
=
DDISP =
DF1
DF 31
DF 36
DF&42
DF5
DF 55
DF 56
OF?7
DH1
DH11
DH13
DH22
DH23
DH26

C(KCLK2 0652642
(KCLK3 066252
(KERR
001250
(KSWR = 104407
CLOCK
066262
(LR
= 000040
(PSAVE 067270

DT13
D122
D123
DT3
D731
DT36
D137

AGE
=
ASR1
ATA
=
ATABIT
ATO
=

07c640
072421

BAI
= 000010
BITO = GOOOO1
BITO0 = 000001
BITO1 = 000002
81702 = 000004
81703 = 000010
BIT04 = 000020
BITO5 = 000040
BIT06 = 000100
81707 = 000200
81708 = 000400
81709 = 001000
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000
81712 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
B8IT2 = 000004
BIT3 = 000010
BIT4 = 000020
8IT5 = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 - 001000
BPTVEC= 000014
CHANGE 003246
(HGADR 001302
(KCLK
066130
CKCLKT 066200

CR
(RLF

100000
177570
101516
101540
101544

101547
101523
101551

101555
101531
077341
100003
100054
100174

100272
100372
077412
100451
100550

D43
DK31
DH36
DH4
077461
DH4?2
100577
DH44
100616
DH46
100714
DH5
077604
DH55
101011
DH56
101067
DH57
101076
DH7
077660
DISPLA 001142
DISPRE 000174
DLT
= 100000
OMD
= 000001
DPE
= 000010
DPR
= 000400
DRQ
= 004000
DRY
= 000200
DSWR = 177570
DTE
= 010000
D700 = 000001
D101 = 000002
D102 = 000004
D103 = 000010
DT04 = 000020
DTOS = 000040
D106 = 000100
D107 = 000200
D708 = 000400
DT1
101230

101332
101350
101362
101244
101376
101410
101420

4-APR-81 1B8:06:¢5 PAGE 26-1

SEQ 0194

D142
DT46
DT5
DT54
DT55
DT56
D157
DT6
D17
DVA
=
pve
=
ECH
=
ECI
=
EMTVEC=
EMI
EM10
EM1]
EM12

101430
101436
101260
101450
101462
101474
101500
101276
101312
004000
000200
000100
004000
000030
072724
073331
073361
073445

EM56
076713
EMS7
076756
EM6
073150
EM60
077017
EM6]
077063
EM6Z
077115
EM63
077163
EM64
077225
EM6S
077274
EM?
073250
ENTERA 072372
ERR
= 040000
ERROR = 104000
ERRVEC= 000004
EXEC
003074
FER
= 000020
FMT16 = 010000
FO
= 000002

OPE
= 020000
oPI
= 020000
OPPRT
001244
OR
= 000200
PAR
= 000010
PAT
= 000020
PFECH
067472
PFECH1 067502
PFECHZ 067564
PFECH3 067616
PFECHG 067626
PFISTN (67632
°GE
= 002000
PGM
= 001000
PIP
= 020000
PIRQ = 177772
PIRQVE= 000240
PORTA
001224

EM5
EMS50
EM51
EMS2
EM53
EM54
EMSS

073102
076226
076310
076377
076472
076553
076646

NEM
= 004000
NOATA = 000001
NOCLOC 072522
NOSEIZ 001252
NTRH
072675
OFD
= 000200
oM
= 000001

RMDS = 000012
RMDT = 000026
RMECT = 000044
RMECZ = 000046
RMER1 = 000014
RMER2 = 000042
RMLA = 000020

EM13
EM14
EM15
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM4
EM4O
EM41
EM42
EM43
EM4S
EM&S
EM4O
EM4L7

073515
073602
073645
073724
073777
072745
074056
074136
074211
074276
074344
074423
074466
074553
072767
074631
074726
075003
075054
075156
075261
075340
075412
073051
075450
075535
075577
075665
075742
076017
076071
076140

F1
= 000004
Fe
= 000010
F3
= 000020
Fé4
= 000040
GO
= 000001
GTSWR = 104406
HCE
= 000200
HCI
= 002000
HCRC = 000400
HT
= 000011
IAE
= 002000
IBSAVE 067272
1€
= 000100
ILF
= 000001
ILR
= 000002
IOTVEC= 000020
IR
= 000100
IVC
= 010000
KYBCTL 001300
LBC
= 002000
LBT
= 002000
LF
= 000072
LSC_
= 004000
MAXTN
101762
MCPE = 020000
MDPE = 0Q04Q0
MOH
= 020000
MOL
= 010000
MUR
= 001000
MXF
= 001000
NBA
= 10000C
NED
= 010000

PORTAI 072444
PORTB
001226
PORTB] 072473
PORTC
001230
PRO
= 000000
PR1
= 000040
PR2
= 000107
PR3
= 000140
PR¢
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSEL = 002000
PSW
= 177776
PTNBR
001240
PWRVEC= 000024
RDCHR = 104410
RDLIN = 104411
RDOCT = 104412
RDY
= 000200
RELERR 001254
RELOK = 000001
RESREG= 104414
RESVEC= 000010
RMAS = 000016
RMBA = 000004
RMCS1 = 000000
RMCS2 = 000010
RMDA = 000006
RMDB = 000022
RMDC = 000034

swil
swi2
swi3
Swi4
Sw1Ss
sw2
Sw3
Sw4
SWS
SWw6
Sw/7
Sw8
Sw9
TAP

= 094000
= 010000
= 020000
= 060000
= 100000

=
=
=
=
=
=
=
=

000004
000010
000020

000040

000100
000200
000400
001000

= 040000

050224
007720
051222
053206
055172

056446
057722
060552
061402
062266
011050
063152
064444
012200

012652
001256
001262
001266
001264
001270
001274
001272

001276
= 000060
066324
000064
000034
040000
000014

=
$CM4
SCNTLC
$CNTLG
$CNTLU
SCRLF
$DBLK
$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
SEOP
SEOPCT
SERFLG
SERMAX
SERROR
S$ERRP(
$ERRTB
SERRTY
SERTTL
SESCAP
$FILLC
SFILLS
$SGDADR
S$GDDAT

15726
1ST27
1873
15730
1ST31
1ST32
1S133
TST34
TST35
TST36
1ST37
1ST4

18740

1ST41
TST42

TST43
TST44
1ST45

TST46
1ST47
TSTS
TST50

157508
1ST51
TST518
18752
1ST6
1877
TYPDS
TYPE
TYPOC
TYPON
TYPOS

UNS
UPE

uo
Ul

hnn

$CM3

SGET42
$GTSWR
$GT42P

$HD
=
SHIOCT
SICNT
$INTAG
$ITEMB
SLF
SLKCSB
$LKCSR
$LKS

000002

SLLVEC

SLPADR

001202
070122

071110
001100
000001
000002
000001

000005
072006
072020
072013
001207
070570
066120
070560
066110
065746
066124
065702
065740
001103
001115
066746
001116
001310
067274
001112
001200
001156
001155
001120

032060
033254
034450
036144
006352
037640
041334
043030
044306
045432
046330
047226

TST16
1ST17
TST2
18120
157121
1ST22
TST23
TST24
15725

001110
003216
072036
072025
066716
001154
000000
SOCNT
070350
$OMODE
070352
SOVER
066702
$PASS
001100
SQUES
001206
$RDCHR
071452
$SRDL IN 071542
$RDOCT
072050
$RDSZ = 000010
SREGAD 001160
$REGO
001162
$RESRE
072246
SRMADR
061304
SRMVEC
001306
SRTNAD 066122
$SAVRE
072210
$SCOPE
066364
$SETUP= 000127
$STUP = 177777
$SVLAD
066672
$SVPC
000210

SLPERR
$LPVEC
SMNEW
$MSWR
SMXCNT
SNULL
SNWTST=

031334

SAUTOB
$8DADR
$BDDAT
$SBELL
$CHARC
$CKSWR
SCMTAG
$CM1
$CM?2

000004
000100
000001
001260
040000
000040
004000
004000
001134
001122
001126

104413
100000
Q00004
000100
000200
000400
001000
(02000
001242
100000
001100
002240
002246
002254
177774
066720
001140
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000

023274

024220
005004
025144
026212
027260

SEQ 0195

SAVREG=
<
=
SCOPE =
sSCO
=
SC1
=
sC2
=
S€3
=
sC&
=
SEIZPT
°Kl
=
STACK =
START
STARTT
STARTZ
STKLMT=
STOP
SWR
SWREG
=
swO
SWO0 =
Sw01
=
sw02 =
sw03 =
w4
=
SWwO5 =
Swié6 =
swO7 =
SwG8 =
swO09 =
SW1
=
W10 =

021674

VVSET
WATCH
wCE
WCF
WLE
WRL

000030
000002
100000
040000
001232
001234
=X000006
=X000007

[

=
=
=
=

013324
014570
016034
01715¢4
020c74

TSTADR
TSTERR
TS TNUM
TST1
TST1AA
TST
TS 1
TS 1
TS 1
TS 1
TST 1

T B

RMSN
RMJC
RQA
RQB
RQSTA
RQASTB
R6
R?

= 000032

= 000004

072560
003432

RMOF

RMR

TBITVE= 000014

{

= 000024

18:06:25 PAGE 26~2

RMMR1T

RMMR? = 000040

&-APR-81

LT T

TABLE

MACRO VO04.00

VIS
NN = O

SYMBOL

—t =4
=4

CIRMRBO RM0OS5/3/2 DU POR TST

166000

000000
001176
001146
070600
970610
070607
070602
070604
070606
001144
070660
001164
001166
001170
001172
001174

000053
001152

001157
001150
072304
072326

000015
072340
001102
071776
070354
067634

SYMBOL TABLE

$TYPOC
STYPON

070004
070124

$TYPEC
$TYPEX

101704
000000
ERRDRS D ETECTED:

$TYPOS 070126
$XOFF = 000023

SEQ 0196

$XON_ = 000021
$XTSTR 066406

$$GET4= 000000
$OFILL
070351

;

.
( 242 PAGES)

61952 WORDS

VIRTUAL MEMORY USED:

4-APR-81 18:06:25 PAGE 26-3

070152
070166

000
001

- msl

MACRO V04.00

CZRMRBO RM05/3/2 DU POR TST 1

vimop
- o

DYNAMIC MEMORY AVAILABLE FOR 70 PAGES
CZRMRB.BIN,CZRMRB/C=CZRMRB.DOC,CZRMRB,SYSMAC/M

N
v

5
<

P
~

.
-

*
¢

v
v

sy
-

]

“

L
¥

way
P

»RN

P
Y
E

’

“;

.
.

»
-

X
N

“

Lot

~
.

“

PR
3

%
.

;

*
R

ros
M

Vaw =T,
- g

.
.

FRS

A
Y PRI

Sy
o=

v afie

.s
-

)

SR
ke WS

eto

*
¥

RPN

«-,

#
3

PRI

PRV

. 4

[

RN
<

&
EUEEI.

Teoy

“

P
-

.
-~

“

‘

i
A

MRS

e’

~r
>
T

o
T

A
s

M «J

roas

“

v
e

s
w

.
e

P
o
M

AT
DN

“,

Loe

‘

)

A
e Tape

=7,

[

PRI

e 4 -2

[

I .

“

PR
PO S
B

EREE

& v
o

“ e

[

a0 L W

€

)
.

PR
<

“

«
-

CZRMRBO RM0OS5/3/2 DU POR TST 1
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )
$$GETL

$OF ILL
$40CAT
$AUTOB

$BDADR

111

17-1
13-1
6-0#

6~0#
10~48*
10-151*
10-151*
10-173«
10-223*
10-241+
10-327+
10-407*
10-483+
10-506*
10-547*
10-603+
10=-705+
10-779+
10-837+

11-14

17-14
14~1
9-29»

10-33~«
10-48+
10-151~
10-173*
10~173*
10-223*
10-268+
10-350*
10-407+
10-483*
10-506*
10-547+
10-675+
10-756*
10-779«
10-859«

17-1»

19-1

10-33«
10-48+*
10~151«
10-173*
10-173+
10-223*
10-268+
10-350«
10-407*
10-483*
10-506%
10-547+
10-675*
10-756*
10~779«
10-859*

10-33+
10-151=
10-151+«
10-173+
10-173+«
10-223*
10-281+
10-350*
10~407+
10~483+
10-506*
10-583+
10-675+
10-756%
10-837~
10-859~

4-APR-81 18:06:25 PAGE S-1

19-1

SEQ 0197

10-33«
10-151~
10-151+
10-173~
10-173«
10-223~
10-281+
10-350+
10-407r
10-483«
10-506*
10-583+
10-675+«
10-756*
10-837+
10-859+

10-40r
10-151~
10-151~
10-173~
10-173~
10-223*
10-327+
10-350+
10-431*
10-483+
10-506%
10-583+
10-675+
10-756%
10-837+
10-859+

10-40+*
10-151+
10-151~
10-173%
10-173*
10-223*
10-327+
10-350%
10-431«
10-483«
10-506*
10-583~
10-675+
10-756*
10-837~
10-859+

10-40+*
10-151+«
10-151+«
10-173%
10-173~
10-241*
10-327+
10-350+
10-431«
10-483+«
10-506*
10-583+
10-675+
10-756*
10-837+
10-859+

10-40+*
10-151+
10-151+
10-173«
10-173%«
10-241+
10-327+
10-350*
10-431+
10-483«
10~506*
10-583+
10-675+
10~756*
10-837~
10-859+

10-48+
10-151«
10-151+«
10-173~
10-173+
10-241%
10-327+
10-350%
10-431+
10-483+«
10-531+«
10-603+
10675+
10-~779«
10-837+
10-859+

10-937+

10-937«

10-937*

10-937«

10-937+«

10-937+

10~989*

10-<B4r
10-=09+

10-<B84r
10-=09*

10-<B4*
10~=09+

10~<B4r
10~=09%

10-=09%
10-=09*

10-=99¢
10-241*
10-a31+
10-a61+

10-=09+
10-=09+
10-=99+
10-241+
10-a31~
10-361*

10-=09*
10~-=81+

10-48+
10-151+
10-151=«
10-173«
10-173+
10-241%
10-327+
10-350*
10-431+
10-483+
10-531+
10-603+
10-675~
10-779%
10-837*«
10-859+

10-48+
10-151«
10-151+«
10~173+
10-173+
10-241%
10-327+
10-407+
10-431+
10-506*
10-531+
10-603»
10-675+
10-779*
10-837+
10-859+

10-48+
10-151»
10-151+«
10-173+
10-173+
10-241%
10-327+
10-407+
10-431+
10-506+
10-531+
10-603+
10-675+
10-779*
10-837+«
10-859+

10-48+
10-151+
10-151«
10-173«
10-223+
10-241«
10-3¢7+
10-407+
10-483~
10-506+
10-547+
10-603+
10-705+
10~779+
10-837+
10-914+

10-989+

10-989~

10-=09+
10-=81+

10-=09+
10-=81+¢

10-914* 10-914* 10-914* 10-914x 10-914* 10-914x 10-914* 10-974* 10-914* 10-914* 10-914* 10-937+ 10-937+ 10-937+

10-937+

10-937*

10-<84*
10~=09+

10-<B4*
10~-=09*
10~=81*
10->53*
10-a30*
%g-§g1*

10-<84*
10-=09*

6-0#
10-40+
10-56
10-151*
10-173
10-173*
10-223
10-241
10-268
10-281+
10-327+
10-350*

10-33
10-48
10-151
10-151*
10-173*
10-173+
10-223*
10-241
10-268+
10-327
10-327*
10-350+
10-407
10-431
10-483
10-483+

10-33
10-48
10-151
10-151*
10-173*
10-173%
10-223%
10-241
10-268+
10-327
10-327*
10-350*
10-407
10-431
10-483
10-483%

10-33
10-48
10-151
10-151x
10-173+«
10-173+
10-223%
10-241
10-268+«
10-327
10-327+
10-350+
10-407
10-431
10-483
10-483«

10-33
10-48
10-151
10-151*
10-173«
10-173*
10-223~
10-241+
10-268+
10-327
10-327«
10-350+
10-407
10-431
10-483
10-483+

10-33+
10-48
10-151*
10~151+«
10-173*
10-173*
10-223+«
10-261x
10-268+
10-327
10-327+«
10-350*
10=-407+
10-431
10-483
10-483%

10-33»
10-48
10-151«
10-151«
10-173«
10-173+
10-223*
10-241x
10-268+
10-327
10-327+
10-350+
10-407x
10-431«
10-483
10-483*

10-40
10-48
10-151*
10-151*
10-173+
10-223
10-223*
10-241x
10-281
10-327
10-350
10-350*
10-607x
10-431+
10-483
10-483%

10-675

10-675*

10-989+
10~;03*
10-.89+

10~=81*
10-=99+
10-330*
;g—ggot

$BDDAT

10-407
10-431
10-431+
10-483%
10-506
10-506*
10-531+
10-547+
10-583+
10-603

10675

10-675+

10-989*
10-;03*
10-;89+

10-506
10-506*
10-531+
10-547+
10-583+
10-603*
10-675+

10-989*
10-;03«
10-;89*

10-989%
10~;20*
10-:89+

10~-=81*
10->53*
10-a30*
10~361+

10-=81+
10->73x
10-a31~
10-361+

10-506
10-506*
10-531*
10-547%
10-583+
10-603*
10-675+«

10-506
10-506%
10-531+
10-547*
10-583*
10-603*
10-675+

10-989%«
10~;20%«
10-:89r

10~=81+
10->73+«
10-a31~
10-a61~

10-506
10-506%
10-531*
10-547*
10-583%
10-603*
10-675*

10-:53+
10-;20%
10-<84*

10-:53+
10-;20*
10-<B4r

10-=99*
10-241+
10-a31+
10-a61+

10-=99+
10-241v
10-a31+
10-a61*

10-506
10-°06%
10-531%
10-547%
10-583%
10-603x
10-675+

10-506
10-506+
10-531+
10-547+
10-583+
10-603«
10-675«

10~:53%
10-.69+
10-<B4r

10-506
10-506*
10-531~
10-583
10-583+«
10-603+
10-675+

10-:53+«
10-;69%
10-<B4+r

10~:53+
10~;69*
10-<84*

10-:53+
10-;69*
10-<84*

10-=99*
10-263+
10-a31+
25-32

10-=99+
10-263+
10-a31+
25-33

10-=99+
10-263+
10-360+
25-34

10-40
10-48
10-151+
10-151+«
10-173+«
10-223
10-223*
10-241*
10~281
10-327+
10-350
10-350~
10-407+
10-421+
10-483
10-483+

10-40
10-48+
10-151*
10-151+
10-173+
10-223
10-223+
10-241+
10-281+
10-327+
10-350
10-350+
10-407*
10~431*
10-483
10-483+

10-40
10-48+
170-151+
10-151+«
10-173«
10-223
10-241
10-241+
10-281«
10-327+
10-350
10-350+
10-407%
10~431x
10-483
10-483+

10-40
1048+
10-151+«
10-173
10-173*
10-223
10-241
10-241+
10-281+
10-327+
10-350
10-350*
10-407+
10-431+
10~483
10~483+«

10-675*

10-675%

10-675+

10-506
10-506+
10-547
10-583
10-583+
10-603+
10-675+

10-506
10-531
10-547
10-583
10-603
10-603*
10-675+

10-506*
10-531
10-547
10-583
10-603
10-603+
10-675+

10-:53+
10-:69+
T10-<B4r

10-:53«
10-:69+
10-<Bbr

10-;03+
10-:89+«
10-<B4w

10-=99+
10-263+
10-a60+
25-35

10-=
10-a30
10-a60
25-36

1040
10-48+
10-151+
10-173
10-173+«
10-223
10-241
10-241+
10-281+
10-327«
10-350
10-350*
10-407+
10-431+
10-483
10-506

10-40+
10-55+
10-131
10-173
10-173
10-223
10-241
10-268
10—281:
10-327
10-350
10-407
10-407%
10-431
10483
10-506

10-506*
10-531
10547
10-583
10-603
10-675

10-506+
10-531
10-547+
10-583
10-603
10-675

10-50614
10-531
10-547
10-583
10-603
10-675

10-705

i0~705+

10-675+ 10-675%

MACRO v04.00
CZRMRBO RM05/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

&-APR-81

6-0

B
5
18-06:25 PAGE S-2

6-0
9-24

13-1«

SEQ 0198

6-0

9-24

14-1

15-1
25-44

6-0

6~-0n

6-0#

6-0x

6-0n

151

15-1

16~-1

16-1

25-34

25-35

25-36

25-37

9-24

16-1

15-1

14=1

14=12

SERRTY

14=1

15-1#

SEQ 0199

4-APR-E1

5
18:06:25 PAGE S~3

SEQ 020C

5OO0NVI0~—«LR-[TaLY]e--a0 Vedt]Ne8leS5te5e4eS(5eR4BePNe4RP8e4ITaRSaP4Dea5oAP4oe&eTeS"8e4PeSete4a0nPta4ndNe5eNe4elTAYa0neoNkeyPNA8ee4eeooT4o»' To0eT8leS4eeR00oe6ye66LIl
1BnO.a\/ Ld

6%=40QQ%A4M%OA4SO55R%OHT4AO%R8MI9NOO49M:fOi.C<OR:¢==R4£%TN

BRo0
EG
AR
d ok
Srpét-$:

MACRO v04.00
CZRMRBO RMOS5/3/2 DU POR TST 1
)
vC1-05
(CREF
TABLE
REFERENCE
CROSS

RES

o& —-~ co AMo

78%
NO§

wmounyDO ®&

(==L
OO0

o -

—eN ®&

«&«

Moo

MO0 SMO 1 o- o- [O=]01!

ON =&«“
O—~

NN ®

a0 «

3®

—

- ST - T SR . Y Y- P

ECITWWSCW”FKKLP on@Ow-ax&l ®A
]
Lo

ONOM

WclwxlSflBflLM%WANBH%UEMHIMNyR%uNyRmflGw $t5LEELbEL4484d05464840484844844440473NVO4MO0OZ%IOM-MIW

-— TeALAl .& ddd

15d

10=790+

10-a58+

13-1

13=1»

SEQ 0207

MACRO V04.00
C(ZRMRBO RM0S/3/2 DU POR TST 1
FROSS REFERENCE TABLE (CREF VC1-05 )

F
5
18:06:¢5 PAGE S-4

[olelelelelalelelale] OMOWNITCON—O OCOO0OPSPyiIM=O~ —er —-r— TR¥-x

—————

SEQ C20¢

161

14-1

YATRTEPGDBO

b-d dbd—bdrb—ddrb—d

4-~APR-B1

R®

—— - ——

10-a58

x»

10-a58#

10-865#4

20-1
$RDCHR
$RDDEC
$RDL IN
SRDOCT

$RDSZ

$REGO
$REGAD
$RESRE

$RMADR
SRMVE
C
$RTNAD

$SAVRE

$SCOPE
$SETUP

$STUP
$SVLAD
$SVP(
$SWR

22-1

19-14

20-1#
19-1
6-0¥
6-0#4
21-1#
7-0#

7-04
11-14

21-1#
9~24

4-783

9-24
13-1
4-783

4-783#4

13-1
5-5

4-5944

9-2¢4

10-429

10-935
10-261
13-1

$SWRMK

14-1

13-1

22-1
22-1

19-1#

22-1

9-70

22-1
13-1#
4-783
9-24

14-1
4-783

13-14
5-5#
4-598

9=-24

10-452
10-953
10-290
13-1
141

ora

20~-1

22-1
22-1

9-103

25-47

9-110»

9-113

10-17

4-783
9-24

4~783
9-24

4-783#

4~7834

4-7834

19-1

19-1
4-783%#

19-1
L=-7834

22-1
4-783
9-24
14~1
4-783

14=1
4-783

14-1

4-783

9-24

4-7834

9-26

9-24

4L-7834

9-24
19-1
4-783#

(-7834
9-29
19-1
4-783#

9-24

4-783x
9-29

9-24
G-29

11-1

4-783»

4-783#

4-7834

9-24

STESTN

151

SEQ 0203

MY5O9r~.w&74O21m«M9T21.G3O'3“9.V00«L43AO-9TN55.4-16]W&”5BON00TRN12W0:OR”1\58:—9049yO38\%)5M0762@9sa80V%]AI1Yn&A20Rv[u32OoAw40Pm523dxB8_.M4A13—NgA24.=NI&—N_R1O%VN..O2*gTN0.KA“Tkx.-0.M..«0o.O0xo030—8o0—%70«—-20g%'~0——3*ex—10R3r1.S4—1O—4e31.OA4S0.1—O4oO.1O.e20d901—O.oI9—S—ao-IR9D4—wod«=[OnxGe-6N—nG1G.«1x.9XL611Ao.0O—56=d.p1(mMI.1O\o—1ae0N96MaC.1-0U9d1YA.N_«N
X
o
[
9.LtoaO3AL.!&1c0rh4S8&2oAéL1‘0-3«P0?k7”Rh.Kx&pL9A78%R%.eRX6E.NwBKP®AS3R*«95T‘LSd82m4:&“8oS29a?T[U0I3R5TV5T10P8S6Y9”39)83t<V7LQ—0“S09.&151200«X3%63/(9—84«*w7x*4e5-91&—4y—425%—164—.&&93r.W—m(%%78&&9e5.%®40M.©—o.Hw%0—o%.u0—1&«od02o1d0O8«0%d025'[L1d02214A2%d11202123T‘AdT1140231r124Ned01124.-eo-O--«U— vn-w'QocOvAePLLNUlMAQRoNl0O[ENa¥
43ST“‘0S838M~-NO<B-LIL-BL«aE7TLv9HPO9aw“Su ..o:-—"——*—*—.—w2&—em2e—eoec) V¥2.1o¥ew1JnKy0e'woYn
4-APR-B!!

l
PAGE
18 :06:25
S =5

[YaOMw L4 w rex

- e - oolLVolO

XOt.0S—A0—OMbP&—roo~91Ph]R)eO—«1d7R3—MfV—.150o0NY[—?n97——:l—4QOAY—OoR0m9.la-—Y1eQ1ay64Ol23b¥]teI:umo7C0oQ3EP]NPaw3M21—X[]OerrE[4O08b—nH-—eE—lmAa5Nd0c%i-eNEYo—Im2(2n—0Ro[[er.cYSlA8d8—30e]i—&%oLo)elamt82'8O—[YeRLP1TAt9w<ldDV0&07g!e—Y«*)A1Rs=o2[3L02-]e0GeN!0]YVlm:8V—04N1S—*eaNt\IlI1%q=2s608NeL¥e11Do!iSVw:l3Rd*e41%?or].la>70004MYL”A(*Oe03o7!)oRn774O3MN13S.YXA5o0.Lot4—Mt%31YYO9oo8—.5O1Oq—W1sL7o0NT4N%_w3620=o.«M31N00t[O9Oo.I.0.NF0q0A01lQN700m7%PNfNSo0AWo~O&ly_P.31ON0-wTI0xeAo.\WF,l0O.5.M7m5eA8ea'N4)VPWeM0M_6W0O7ls]RVI)AWa&8N_.O13l.0weAMN4"NLa0N4083oO3Wl5=%3NN[M00D..OS5O8MO0xo7n505mt0690wM—.xx-1se=2001«mOgts4Mm¥Xx—a6%&5005739~N-4..Sb3**03030%0710SoOwA54g117R73..m6bNy«ee&5|A40.0118Oo0l52L1-167NM'xi5E0be1..\12(0&>%4!l—815_14.iO«84x&r1t0w-_814(MbxO0O1.—.30134O[)01%SN41.L61b1d1e—323F7—g1[r328xm.—42s"1N4:!<—02a_18—5o”0aev1——ns34an32«&l9a[u1—x3NezO&d=-1ol4OYn"1B8—«oROlL.——-:eoV_«)l
[S.OL1o>nl-aNya?HlfdPea<IR]iE1LSmnN2iT1L3AD=.d9CA7%B.n«[R9—o*Ww”s-fuMg7.w3i9*=gm8a[—-9~w]d3&x"mn0To9ef?)a7le£ncL89uu<]“Q9fwg00Mif=r~oO34i:No0O8we=SnM1t¢w0.Xe42]LynhJ.L—wn<rL41Bm.A—=v3w0—1im;oBS=02AhwmwvA.NwTonO3x*5L0m7ewm2EA.0N%WL3A.wW]i30mW(s4S014d051dN0.1i\0——s-0d4* —-30 §T-—b —oIT&MLPPNOEoNIOE
abN.wsSxeTRrdmE2Em9T22—ENSv13So4V=yuE2PQM%S9odEBYA%TBwa&.0sn1Sufhr38.3t4—niwy:13-1UxBans)&1we.—.n-mwa37@n_~._nmdswmh-—m-V_ne3wI0-«5uymeunu0-sd-—8sua%0um%LnV3mw7s[%%oOl«imuYast4m0onM=l)w1a~neou°OmMls4“adao0O7ul3ww0L¢07wiAa5nffmdun1nT0ii6qO]nnm9s1M[L§0hgyu.OmT.!m0wm1”O<mw0mo1&-mw—e¢)m]m3wO=C«®borni%asmw80¢mL0wUam5.2omal"lm—W0)walAm%TmL2lam1[lT8M-ml8mmM3oE3055]cow4AM2m2a2Xw%o4o4noo1wT‘o2s4wER2%t3o4Sm421we3m4w.l—-T4wM0oR=T/M13y“4w1&e——#46%0R.-2&-«.L o2RToOO-Nge@Lgn2wIBeNy39AL2iI«2!
0B2Db$=m0E0BR5L4RAo805Fm03L0RS%EK~—ebLST2FdI0e8rYeE0girIYSE0TwEre3iw—BS¥Ai—3Sy1—eS7L—SndNodIRs—by—d.0Se9a—d%nAP1RTI7&LT23MNBEI%wRNLOBmWT%>LNO-3IB8wdbH4L%rATkmNI]e%TOmTB8N-tmN53S2oINs..mRl%Z&w4O2Rs80S3Id3N4F4-.Y2d4Yi-*1 RL2TP.P5sARd2R
MACRO v0+.00
(ZRMRBO RMOS/3/2 DU POR TS T 1
)
CROSS REFERENCE TABLE (CREF VO 1-05

SEQ 0204

10-583+ 10-583+« 10=-583« 10-583+ 10-603

10-603

10-60%

10-603+ 10=-603¢ 10-603+ 10~603« 10-675

1u=-675 5‘1206862
S

&ODONGOAONDNSFUNMIAOO —M
< "

oo MO

M "

eT—CO0000ODIOOO0O0OO0 0RO+B(UM3O—I¢GWNRM—OIA

2TMOT w

4-APR-81

e T

[
]

18:06:25 PAGE S-6

OO e I R A0 O R Y O O G A

0W5RDA3OM6NAO0IBC
-

N
m
hEY
RSee
20
eceo00
dooooc
dd M
$odddo

. oy OO NAR MO =M

)

%”N%é&”“826584703308&87m

— o o -T o P P T

ee RS )

S e OO o FUNR T O — MY

00 o eV 1 A B UM FUNOIO + oV H A®

- Ty

_._..,..\H2H4578999VIHAMDvONMPNONDORN
o6bi5l4o7l5olp5a5dl4i3lT8o04lo86lT4oWli8el4Ne68lt4eWlo2l4oN8leL40A5%od4o4T8lo74lo5l0e5l4o8ls40lP8o8l4loWlL
5No5SN=dlbhXoO4dPe5OXb4eOO2l1EtOLteDeO6E0t4LlkReAALO8eeN4SLSlte5ONPk400oMRAPOleR54NoNLOl84eAAek4TR058NeeOe44SMTMel08AY=44oe—l45NNOVORIMeLMo0RlO44oeOlA48oeO0Mll03oAPelO45oek4PaRO0d4Blo5L5lNEIl4ad
MACRO v04.00
CZRMRB(O RMOS/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )
5

SEQ 0206

10=-=81»

10-=81+

10-=99

10=--99

10-=99

10~=99¢

10=--99+

10-=99+

10-299¢

10==99+

10-=99+

SEQ 0207

MACRO v04.00
CZRMRBO RM0S5/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF V01-05 )

4-APR-81

18:06:25 PAGE S~/

1‘Y59(BT6A“{iv1OPR—0EOIMANOOGNO

080242031416“%

e—6—84—44—44e44—44r84
$—e
T-——————
Ny
YT-[————
T
Rbt
Leleoleleleleleleele~loPlo—tlo—yl—e]

NV~s=MNAJFNROON CO00000OPLTiy OTDUNMNOMN

SEQ 0208

$1P8B
STPFLG
$TPS
$TRAP

STRAPZ2
$TRP

$TRPAD

$TSTNM

STTYIN

$TYPBN
$TYPDS
STYPE
STYPEC
STYPEX
$TYPOC
$TYPON
$TYPOS
F
$XOF

$SXON

$XTSTR
A16
A17
ADDRIS
ADRERR
AOE
ASR1
ATO
AT

AT2
AT3
AT4

ATS

AT6

AT7
ATA

6-0n

6-0n
6-0#
9-24
22-1

2=
22-1
22-1
22-1
22-1#
22-1

6-0#
10-520+
10~:68+«
11-1»
19-1

16-1
16-1
16-1

22~1%
22-1#
22-1
22-1
22-1
22-1
22-1#
22-1#

10-20+
10-545+
10~;18»

10-82+

19-1

13-1

18-1#
16-14
16-1
16~1
17-14
171

22-1
22-1

22-1
22-1
22-1
22-1

16-1
13-4
46094
4~610#
9-102
9-38
4-6794
7-04
4~-6964

22-1
17=-1#
22-1
16-1
16-1

17-1»
16~1

46974
4-6984
4-699#
4~7004
4 =701#
4 -702#4
4 -703#
4~666¥
10-223

16-1
16-1

[

22-1
22-1
22-1
22-1#

22-1
22-1
22+~1
22=14

22-~1
22-1
22-1
22-1#

22-1
22-1
22~1
22-14

22-1
22-1
22-1
22-1#

22-1
22-1
221
22-1#

10~=29+

10=777+
10=297+

10-348+
10-857+
10=>71+
14-1

10-372+
10-880+
10->96+
15-1

10429+
10-935+
10-261+

10452~
10-953«
10-290+

10-504~
10-:08+
10-a58~

10-:5%

10-,;20

10-;20

10-a30

10-a60

22-1
22-1
22-1
22-1
22-1#
10-565+
10=;39=
13-~1

2¢-1

= 2

OMCNAVIA~IN

16-1
16=-14

10=171+«
10-601~
10~-;87~

10-189+
10-620+
10=-<41»

10-239+
10-689=

10=256+*
10-726+

10=279»

19-1

13=1»

19-1#

14-1

14=1

10-302+
10-803+
10=>17¢
14-1

10-.03

10-,03

13-1

16-1#

19-1

10-705

10-:53

10-=07~

19-1

23-11#
23-44
9~55+

10-151

10-223

10-675

10-:53

10-268

10-281

10-%27

10-327

10-350

10-350 583063?}8

4-APR-81

SEQ 0210

AYwe7TOPoNR9TyLeYTMeT

wCTAvRwUouyLuLlAISRbeAPRoAeeRPABieRTPAeReeAPReAbPyoReAPPAooRsABeNReARmAAeRgNYVTSTRORSURNNP

lololeololololels)

18:06:25 PAGE S-8

ST U ey N IR

o * N —MO ROMNONOINOMOAIAN

MACRO v04.00
(ZRMRBO RMOS5/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

-«

10=241+

10=241¢

10-327

10-327«

10=327+

8
10-350

10-350+

10-350

10-407

10=4C70

10=407+

10~407+

10=407/

SEQ N211

4-APR-81

18:06:25 PAGE S-9

SEQ 0212

—

B3858 ST0CoC

DH1
DH11
DH13
DH22

DH23
DH26
DH3
DH31
DH36
DHé
DH4?2
DH&44
DH&6

DHS
DH55
DH56
DH57
DH7

DISPLA
DISPRE

oLY

DMD
DPE
DPR

DF 56
DF7

NelaV]

DF &2
DF5S
DF 55

8-240
8-35
8-317
8-324
8-28
8-5

8-61
8-40
8-124
8-137
25-15#
8-19
8-175
8-68
8-26
8-238
8-252
3-266

8-33
8-315
8-322
8-330

8-47
6-0¥
5-14
4-633#

4-6895#

473464
4=65M
10-350
10-531
10-756

8-247
8-42
25-564

25=57#
8-49
8-12
25-84
8-75
8-154
8-138

25-2#
25-17#»

8-110

2534
8-245
25-21#
25-23#
8-54
25=25#
25-264
25-27#
8-89
924+
9-24

25-55#
8-56

8-77

8-84

8-184

8-282

8-289

8-224

8-91

8-98
8-259

8-105
25-14

8-163

8-367

25-52#

8-82
8-308
8-231

8-280
25-11a
8-273

8-294

8-351

25-9#

8-301

8-344

25-13#

8-117

8-146

8-168

8-189

8-196

8-287

8-337

8-372

25-5#

8-161

8-365

25-6#4

25-204
8-182

8-96

8-103

9~24+

13-12

14=1»

10~<84

10-<84

10-=09

10~48
10-350
10-547
10-756

10-48
10-350
10-547
10-779

~LAL3oAyl

]

-o

ohe Tary1a0%139 3

]

ITNsgRitits

— ~r

b T5N—e
E——-Ee—LET— eReLOEeRLNIeAEReATNE
—N— B0e=——NeMN{\I\-r—e—eO—&|IKl&eeVNOoWOLRR—rO—Tr—Nr

.0@N2M©lo0n—“iQT0esL)uON“ySIoOWTkONL1€&MOT&oM1oO1IMN1OT“-E1NLM1X|VE=I1]0INN1MOT1DET0I1OON31RToMNO1SU9WV1OnM‘uROTE[1OoOMlNY’Res.)

1001.0.3&5m%—w[ewlowlewle.le$lemle.le.le.lel.al.al%,N

MACRO v04.00
(ZRMRBO RMOS5/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF Vv01-05 )

8-203

8-296

8-332

8-339

8-353

8-210

8-217

8-358

25-19#

8-374

25-51#

10-;69

10-:89

10-<84

10--09

D
10-=09

10-=09

10->$3

10->73

10=-241

10-763

10-a30 55‘1)063%

MACRO v04.00 4-APR-81 18:06:¢5 cAGE S§1O

CZRMRBO KMO5/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

8-274

8-345

25-39#

8-359
25-424

25-41a

D146
DTS
DT54
DT55
D156
D157
DT6
D17
DTE
DVA

DVC
ECH
ECI
EM1

EM10
EM1T
EMIZ

EM3
EM14

EM15

EM16

EM7

EM20
EM21
EM22
EM23
EM24
EM25

8-323
8-331
25-35#
8~27
L~-6824
L-6484
4L-7354
L=-6764
L=7464
8-4

8-53
8-60
8-67
8-74
8-81
8-88
8-95
8-102
8-11
8-109
8-116
8-123
8-130
8-13%37
B-145

8-90

24-34
24=-10#
26-114
24124

24-134

24=14LK
24=-15#
24=-164
24=17#
24-4H
24-18#
24-194
24=20#
24=21#
24-224
24~23#

—d el el

md el

8-197
8-204

8-288

8-338

8-373

25-344

8-97

8-104

8-162

8-366

25-36#

I \NOON&NTO
QO —
Qo &
O SN
—

8-232

8-20
8-176
8-147
8-69
8-239
8-267
8-34
8-309
8-316

D
ek —d
2

8-132

TTTTT

25-37#

1 CoON &0
OV ~NOCoN
Ve R o AV TVHVY]

25-32#4
8-352

8-302
8-295

8-41
8-125

e
d 2 —

£ \OWN NN

WO~

2559%

AN
—
QO WNO G~
D NWWWN

TTTTT

8-260
8-281

D113
D122
D123
DT13
D131
D136
D137
D742

(=714
L=712#
L=-7138
L=7140
L~7154
L=7164
4=717#
4=7184

3 ed
—

8-6

D101

—

D102
LC103
D104
DT0S
D106
D1G7
07108
DT

10=-:69

10~48
10-350
10-547
10-779
10~-,89
10-260
924

OO?OOO
i
[}
[

DSWR
D700

10~-a30
4-6014
4=710#

10-756

10-48
10-359
10-547
10-756
10~,69
10-a30
6-0

—

A GO
S —
GO NUOLNWN
rNwW——

10-a60
2. NV
S —
O 00 ~JOOO
W
OOVOW~N—

10-a860
L{=719#
(=658
10-350
10-531

wmd wad el
b

DRQ
DRY

SEQ 0214

10-281
10~506
10-675
10-937
10->53

10-327
10-506
10-675
10-937
10->73

10-327
10-506
10-675

10-.03
10-241

10-327
10-53%1
10-705
10-;20
10-263

EM26

8-153

24-24n

SEQ 0215

CZRMRBO RM0S/3/2 DU POR TST 1

(ROSS REFERENCE

TABLE

EM2”
EM3
Em30
EM31
EM32
EM33
EM34
EM3S
EM36
EM37

24254
24=5#
24=264
24=274
24-28#
24=29#
24-30#
24314
24~324
24-334

8-160
8-18
8-167
8-174
8-181
8-188
8-195
8-202
8-209

24-404
24=u14
2L=7#
2h=42H
26434
24-44H
24454
24-46H
24=47R
24-48#

24=49#
24-8#
24~50#
24~51»
24=-52#

EM64

L=-6654
4-6014
4-6014
13~-1«
9-60
10-504
10~:08
10-a58
4-6434
L=644n
4-6454
L-646H

9-24+

10- 81

10~=81

10-=81

10-=99

9-24+

9-26
14~1«

9=27*

12-6+

127+

12-16*

12-25+

13-1

13=-1»

13-1+

10-189

10-239

10-256
10-726
10-=29

10-279
10-777
10-=97

10-302
10-803
10->17

10-348
10-857
10->71

10-372
10-880
10->96

10-429
10-935
10-761

10-452
10-953

10-290

22-1
22-1

22~
22~

22-1
22-1

22=?
22-1

23-34

9-24
13-1»
9-674
10-520
10-:68
11-1

13-1+

14-1

10-20
10-~545
10-.18

10-82
10-565
10-.39

9-6
22-1

22-1

10-171
10-601

10-,87

T4=1+

10-620
10-<41

10-689
10-=07

22-1

]
v

—

nonNY
nony
]

9-29

—

22-1
22-1

~Nan

5-1
ce=1

(a6 1,8
[
]

L=64T7H

4=674N
L=7574

]

GNS

9-33

24-~9#
9=24*

—

FER
FMT16

8-46
4-6014

24-534
24=54»
24L~55#

nony

Wh =0

EXEC

EQ 0216

24-37#
24-38#%
24~39#

EMOT
EM62
EM63

ERRVEC

S-11

24-36#

EM6
EM60

ERR
ERROR

)

18:06:25 PAGE

26=-34H
24-35#

EMG7
EMS
EMS50
EM51
EMS2
EMS3
£EM54
EMSS
EMS56
EMS7

ENTERA

v01-05

4-APR-B1

24~64

EM4
EM4LO
EM41
EM42
EML3
EM4S
EMLS
EM4LG

EM6S
Em7
EMTVEC

(CREF

MACRO v04.00

L~642n

SEQ 021+

(ZRMRBO RM0OS/3/¢ DU POR TST 1

(ROSS REFERENCE

T1ABLE

(CREF

MACRO v04.00

v01-05

)

4-APR-81

6
)
18:06:25 PAGE S-12

SEQ 0218

16~-1

14-1

14-14

14-12

14=-1x

14=1»

16-1

23-7

23-8

23-11

23-12

25-3

25-6

25-9

25-11

25-13

25-15

1kdLQ0> NO

P—MNONON=AEYLS NMONAFEe-— P
-OMA=MTAANOOSTMNOOIONNO— M—eO—NMO --M —

14~1

¥& “x*r

®r

—0FUis6|A~cOVMeBNF0ON NTIHsJ(OaoNOilBVN M—-OINOAWITMONON—O bSddd_\7Hbd.bQd[g/.d,1o7V.?:E9XO3N[M5W1739”3
b&3

b
3

¥Xx

25-17

ckliha

SEQ 0219

3'.—

L=74L4n

OfD

4-APR-81

18:06:25 PAGE S-13

SEQ 0220

i[—1eloMelUelNelDolOwsW]ONDeIfO]FN
NN0O
NNWnANONMN
Pt
OONOUM— AN.

MACRO Vv04.00
CZRMRBO RM0S/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

- ———

IA«}o——MMWWNN-QNOOONN

L]PITS —- wo[elel0e)].|1 —e— —iMoUI}NDO —NOWNORO— [elelolelolale] —ioMWtNO —N—nONON [elelelelalels][N —IMN-TONO 00001100

10-483«
10=<84+

PIP

10-506%

10- =09+

10-531+
10-281+

10-547+
10-299+

10-583«
10->53«

10-83?

10-837

10-835

10-837

10-859

10-859 5530623‘19

M4dd<dw.lms}NSOVMNNeMYON[=NNMe=]oSh&0SMNARES0E0S0ER0T0E0RS0A0N0eR0RdTIdN0SdENoR0EddLRdo0mAI0BA0VR0I0T0ZN0CR0Y

7L@omLnuwmSLgsIm1mI7=3R45m5w6m9P7m9%41ws73w9bw)mw1m.M3mB0w1msvmsOP«O.iNmMTTmlTmrsem)m0mux60nmfT1m11
2532

8d8bE508L4d0484854d4d4d04ddsed000408400
MACRO v04.00
CZRMRBC RMOS/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

NHOM&SIPNn.!1w4H 03h028d0d0d5ddeo0d0d0L0d000

18:06:¢5 PAGE S-14

SdbddLEEELbL0S 20048408008d20000S0000000000000

ONSOI—N.OVNMN

&-APR-81
6
SEQ 022¢

M(o8~]

L(-6C18

9=27

SEQ 0223

PR6

(ROSS REFERENCE TABLE

PR?7

4(~601n

MACRO v04.00

(CREF v01-05 )

4-APR-81

8 7
18:06:25 PAGE S-15

SEQ 0224

PS
PSEL

(=601
L(=611#

(=601

9-68+«

1C-151+

10=-151«

10=173x

10-173+

PINBR

7=-0n
10=151*

10-859*
10~937*
10-989*
10-:03«
10-;89«
10~<84*
10-=09*
10-=99+
10=241*
10-a30*
10-260*

10~33«
10-173+
10=-223%
10-268«
10-327+
10-350r
10=431+
10-483+
10-531~
10-583+
10-675+«
10-675«
10~-756*
10-779%
10-837+
10-914*
10~937+
10-:53*
10-:20*
10-:89*
10-<84x
10-=81+
10->53*
10=241*
10-a30+
10-360+*

10=-33«
10=-173+
10=223*
10=-281*
10-327+
10~350%
10=-431+
10-506+
i0-531+
10-583+
10-675*
10-675+
10-756*
10-779+
10-837+
10-914~
10-937+«
10-:53*
10-:20*
10-;89+
10-<B4x
10=-=81
10=->53«
10=241*
10-830+
10-a60+

10-40*
1'0-173*
10=241+
10-281+*
10-327+
10407+
10-431+
10-506+
10-531+
10-583+
10-675«
10=-675«
10-756*
10=779*
10-837+«
10-914*
10-937+
10-:53x«
10-;20%
10-:;89¢
10-<84x
10-=81*
10->53+
10=263*
10-330+«
10-860+

10-40r
10-173»
10-241r
10-281r
10-327~
10-407+
10=431+
10-506+
10-531x
10~583+
10-475+«
10-675
10-756*
10=779%
10-837«
10-914r
10-937+
10~:53«
10-;20*
10-;89*
10-=09%
10-=81r
10=>53%
10=-263*
10-a30+*
10-860*

10-48+
10=-173+
10-261«
10-281r
10-350+
10-407+
10-483+
10-506+
10-531«
10-583»
10=-675*
10-675«
10=756*
10=779«
10-859«
10-914x
10-937+
10-:53*
10=:;20%
10-;89%
10~=09¢
10-=81+
10->53+«
10=?63*
10-830
10-8€0+*

10-48+
10=1732
10-241«
10-281*
10-350+
10-4Q7+
10-483+
10-506*
10-547%
10-583»
10-675+«
10-675«
10-756*
10=779%
10-859
10-914r
10-937+
10=:53«
10-;20%
10~-;89*
10-=09+
10=-=81*
10=>73+«
10=-763+
10-830*
10-360+

10-151+
10=173«
10=241*
10=327«
10-350
10=407
10-483%
10-506%
10=547%
10-603~
10-675%«
10-675«
10-756+*
10=779«
10-859+«
10-914r
10-989+
10-:53«
10-:69%
10-<B84*
10-=09¢
10-=81+«
10=->73*
10-263*
10-830*
25-32

1J=151«
10-173%
10=241*
10-327«
10-350+
10-407+
10-483*
10-506+
10=547*
10-603*
10-675«
10-675+
10-756*
10=779+«
10-859+«
10-914*
10-989¢«
10-:53+«
10-;69*
10-<B4*
10-=09«
10-=99+
10=->73«
10-?63+
10-960*
25-34

10-151*
10=223+
10=241+
10-327+
10-350+
10=407%
10-483+
10-506*
10=-547*
10-603+
10-675+«
10-705¢«
10-756*
10-837+«
10-~-859+
10-914s
10-989+
10-:;03«
10-:69%
10-<B4+
10-=09%
10-=99+
10=->73+«
10-330¢«
10-360+*
25-36

10-1S51¢
10-223+
10~241x
10-327+
10-350+
10=407*
10-483+
10-506*
10-547+
10-603+«
10-675+
10-705+«
10-~756*
10-837+
10-859«
10-914+r
10-989+
10-.03+«
10-:69*
10-<84~
10~=09¢
10~-=99*
10->73+«
10~-a30+«
10-860+*
25-37

10-151~
10-223+
10-268+«
10-327+
10-350*
10=-431«
10-483+
10-506+
10-547+
10-603+
10-675«
10-705¢*
10-779+
10-837~
10-859+
10-937+«
10-989+
10-;03+«
10-:69*
10-<84r
10-=09+
10=-=99%
10=-241+
10-a30+
10-a60+*
25-38

10-151+
10-223+
10-268+
10-327+
10-350«
10-431+r
10-483+
10-506*
10-547+
10-603*
10-675+*
10-705+
10-779*
10-837+«
10-859+
10-937+
10-989+
1C-;03«
10-:69%
10-<B4*
10-=09*
10-=99x
10-241+
10-a30*
10-a360~
25-42

10-151+
10-223+
10-268+
10-327+
10-350+
10-431x«
10-483+
10-531¢
10-583«
10-603+
10-675+«
10-756+
10-779+
10-837+
10-859+
10-937+«
10-989+
10-;03~
10-:69+
10-<84*
10~=0N9+
10-=9G~
10-241~
10-330~
10-a60*

(-6014

9-24

924

9=2¢4»

20-1
9-34
4-608#
7-0#
10-281+
10-506*

22-14
9-81

9-107

22-1»

10-151+«
10-327«
10-531+
10-705+
10-937+
10-:89+

10-151*
10-327*
10-531+
10-705+
10-937+
10-:89%

10-173*
10-327+*
10-547+
10-756*
10~989
10-<84%

10-173x
10-350~
10-547+
10-756+
10-989+
10-<B4*

10-223
10-350+
10-583«
10-756*
10-989+
10-<B4+

10-223*
10-350*
10-583~
10=-779«
10-:53
10-<B4r

10-223+
10-407+
10-603+
10-779+«
10-:53*
10~-=09+

10-241
10-407+
10-603*
10-779+
10-:53+
10-=09*

10-241~
10-431+
10-675+
10-837+
10-:03~«
10-09+

10-241+
10431+
10-675*
10-837+
10-.03+
10-=09+

10-268+
10-483+
10-675+
10-859+
10~.20+
10-=81*

10-268+
10483+
10675+
10-859*
10— 20*
10-=81*

10-281+«
10-506+
10-675
10-914
1C-:6
10-=99%

8-378¢
10-531
10-:53

10-151
10-547
10-;03

10-173
10-58%
10-;20

10-223
10-603
10-:69

10-241
10-675
10-;89

10-244#
10-675
10-<84

10-268
10-705
10-<84

10-281
10-756
10-=09

10-327
10-779
10-=09

10-350
10-837
10-=81

10-407
10-859
10-=99

10-431
10-914
10->53

10483
10-937
10~>73

10-506
10-989
10-?¢1

4=770#

10~-675+

10-705+

10-:53

10-;03

10-;20

10~;20

10-a30r

10-a60+

4=-763#4

10-223+

10-241*

10-241+

10-268+

68+
27+

10-268+
10-327+

10-281+
10-327+

10-281+*
10-350

10-281»
10-350

10-327
10-350+

10-327+
10-350%

10=327«
10=-350«
10=-431r

10-483+
10-531+
10-583+
10~603+
10=-675
10-756*
10=-779*
10-837«

PWRVEC

R7
RDCHR

ROLIN
RDOCT
RDY
RELERR

4-601#

4-6014
19-1

10~675+
10-914+*
10~:69¢
}8:;28'
v

RELOK

RESREG
RESVEC

10-763
22-1#4
4-6014

RMBA

4=765#

RMAS

RMCS1

10-327+
1 0-350+

22-1#

10->53«

10-a30

10-327+
10-350*

10->53«

10-a60

10-327+
10-350+

10->73%

10-327+
10-350+

10->73+

10-327+«
10-350+«

10-241~

10-327*
10-350+

10-241+

10=-223*
10-268+

L~601n

jeolele)

PSW

—

(ZRMRBO RMOS/3/2 DU FOR TST 1

=350+

10-263*

10-407

10-263+

10-407

10-330*

10-407+

10-330+«

10-407+

10-a30+

10-407+

10-360+

10-4C7+

10-60y

10~407+4

10=407+

10=407«

10=607+

10=407+

10-407+

10-431

10-6431

10=4312

10-431+

10-431¢

10-431+

10-431+ E1oalég;'
SEG

10-151
10-33

10-151
10-223

» »»

QAR
‘\O‘o*\l'\)!
»R NN » R 8

b e e
b e

» % »

b 2med

756+
779«

W O NSO

-2\
N OO

+ o0 NONO D00

eed i
e
b e e

L 3

)

0O O\n
OO

L3R

2R BE N

)

0-837«

10=-33»
10-151»
10=223+

10~2412

10-327+
10=-350~
10-407+
10-431~
10-483+
10-506~

10-531=
10-583«
10-603~
10-675+
10-705+
10-756=

10-779+
10~-837«
10-859+
10-914~
10-937«
10-989»
10=:53»
10~-;20*
10-:69*
10-<84+
10-=09=
10=-=81«
10-=99+

10=>73+

10-763+
10~a30+
10-360*

»rO
NON

(V. 1V )

20"\)\”\)\)\
NDONOON
-

» L R

[
TPPOTRITR?

b —b
ek ——d e}
b wed

o
]
S S 0\‘\‘
1] A
@

10~756+«
10=-779%
10-937«
10=-;03«
10-;69%
10=-<84*
10-=81+
10=>53+
10=-241+
10-330*
10~360«

-603

b o wved

N SN
=N

h o

335
32% 3538

e ek md

[+lolelelele]

-350+
407+
431%
483w

10-506+
10=-547+
10-603
10~675~

—d —d wud

2R
»
2
»

O WNVIW
N

a0 QO
—t
H0

b =
D ek
ki —D b —D
e
ek
d
d ad

b d i

B2
R
*
% *

[]

A S \ONNONIWNWN
O =2NONHNO
SO
VNHNNON

D
amd
b e
e wd ed
b md o

OOC')OOO
OOOO?OOOO
B
t
[ ?OO
DNV
As v
W
LrOnD

~>53
=241+
~a30+
-a60+

531*

b e

3353 7 wn
TRl
00 Ll ~ LALN
&
338
WONSHON
»

03'

~1514

o
[]

el el cnd cnd wed ened ol aed wud
b vl el
wud vl mad wd
o

->53%

=914

10=-33+
10-151«
0-223+
%
=241

=350
407*
-4 3%

0=:53+

=506+

10=-260*

~327*

»
-

10~330*

[olelelolelelolalelols
o]

»
»

2R 2
I
LR

N - (N
oA
(N =
purd

~
wn

10=241~

»
M

OOOO?OOOO

1
e NONNONWNWR
S
HN0oooo ey =]
NO
oo &0
T WY PRI
O WWALN NN
N

=D
d
d
D md wd
kb
wd mad
-— -t

olelole]
U]
DV RA

—d el d el b cnd md b b wnd el R
B

e R

527T

T
e e T X
e
T
Y

10-531~
10=5472
10-583+
10-675*
10-675*
10-756+
10-779+
10-837+«
10-859«
10=-914«
10-937+
10-989%
10-:53»
10-,03«
10-,20*
10-;89«
10-<84»
10=-=09*
10-=99+
10~>53»
10=-241x
10-263+«
10-a30+«
10-360+
10-151

10-407~*
10-483~
10=-506=

10~=81+
10=->53+

ffoevesnes

L=-7684

L=777#

10-350*

327%

e e

RMDS

RMD(C

10=-327*

b wad

RMDA
RMDB

10-<84»
10-=09*
10-=99=
10=->53+«
10=247»
10-263+
10-330+
10-960*
L7664
4=7724

10~241*
10-281~

10-a30+

10-;20*
10~-;89+

10-173«

10-859*
10~914«
10-937+
10-:53»
10-;03»

10=-151»

10-756+*
10=-779«
10-837+

10-33

10483+
10-531=
10-547*
10-583~
10~675+
10-675*
10~-705*

10~263+
10-a31«
10-a61*

=914~

10-350+
10=407*
10=-431~

10->73»

10-173»
10=241+
10-268+
10-327+

10=-=09+
10-=99+

10~a61
L=7674
10=52+

10-.89*

RMCSZ2

10~,;20%

10=>73
10=-263+
10~a31

10-756+
10-859+
10=-:53».

0-603+
0-705~
0-779~
0~859+
0-;03+
0-.69'

10-483~
10=547+
10-583«
10-675»
10-705+«
10=-779%
10=914+
10~;03+
10=; 69«
10-<84»

10-531«
10-547«
10-603+
10-675¢
10=756+
10-837«
10-937+
10~:20*
10=-:89+
10-=09+

10-531+
10-583
10~603+
10-675+
10-756+
10-837+
1)-989«
10-;20+
10~-;89«
10-=09+

10-48+

1048+

10~407+«

10~407+

10==99+
10=>73+
10=263+
10-a31
10-361
10-173+
10-223«
10-268+
10-327+
10~350*
10-431+
10483+
10-506*
10-547+

10-583+

10=-=99+«
10~>73+
10=263+
10-a31
10-361
10-173¢
10-223+
10-268+
10-327+
10-350~

10431~
10-483
10~506+
10~54.~

10-583+

10-6(3+
1067
5*
10=705*
10~-756%
10-779*
10-837+

10-603+
10675+
10~705%
10~756%
10~779+%
10~-837+

10-914+

10-914%

10-989+
10-:03*
10~:20%
10~:89*
10-<84*
10-=09+
10~=81+
10->53*
10->73+
10-263*
10-a30*
10-a60*

10~
10~;03+
10~:20«
10~:89%
10-<84
%
10~=09<
10~=81«
10~->S3w
10-741
10~763
10-330%
10-360w

10-859+

10-937+

10-859«

10-937

10-837+

10~-989+
10-;20+
10~;89«
10~=09~
10-=99*

10-675+

10-483
10-531»
10-583+

SEQ 022¢

]

10-S83
10~603+
10=675+
10-756*

10-431»
10~531~
10-583~
10-603+

10=531+

P R

10=431»

18:06: 25 PAGE S-16

4-APR-81

MACRO v04.00
CZRMRBO RMOS/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

10-151
10-223
10-241

10=261

102641

10=241

10=-241

10-261+

10-268

10-281

10-°81

10-281

10-327

10-327 5550635;

4-APR-81

18:06:25 PAGE S-17

SEG 0228

jMMO—NolA__olNNxeo-OlORoMlNM&olXeONMlO—B«oMlMeO— oSOloNI—loNlNeReOoMNAl*oNIleolNeoOlRNAoleSOolIeoOeS NleoNNloOAlReo&MUlIOe&RlNOTEolNNoPSU TlOaTOlSeMeAlHo—TOlE=oTROlOoNTlRMe*«x PMlToSeMlOaO]

_...-...-...-._._w..—w

S U By
RS
S U AN
NS

O R P IT S SR e R nr Y BT ET

ORTVHMIN‘sTIHNACOBIOVAr—Me—0MIMNNAME—IME*RL« .._......_..._..m-...-5760Oa“MOGAN—7M705

S ¢
S N N RN 0000000
NSO0000000
NSV
00&
WAWOOOOOOO0000

WHoIo[lHeIloeHSlAlAoelNlOaColM@keOoBlleFWlkroo—OllevMlo—loeIlolo0OlOXoNlltovOlorleNlorolalVoolMloolNlekaElaedNMloollosGlOlaoefloOolIlnoeNllodFAleNalNlIooIllNooNkNloa0OlloeOOllNoallaeMsSlleeOkMl(sNa]d

MACRO v04.00
CZRMRBO RMOS/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

RMER?
RMLA
RMMR1
RMMR?
RMOF
RMR

RMSN

RMW(
RQA
RQB
RQSTA

RQSTB

SAVREG

SCO
sC1
SC2
SC3
SCé

4~7734
L~778%
L=7764
L=6724
L7754
L=764LH
L=6924
4{~6914
7=0#
7-0#

22-1#

L=614N
L{=726#
4=727#
4-728#
4=7294
4=730#

10-173

10-151

10-173

10-53
9-114

10-55

10-151

10=-<84+

10-<84+

10-173

10-<84*

10-=09+

10- =09+

SCOPE

’

=604

10=-62

10=151

10=173%

10-223

10=261

10-268

10-281

10-327

10-350

10=407

10=-431

10-279
10-777
10-=97

9-29
19~1

10-59
19-1+

13-1

»
»

oo~

b
—
2

VWOoN
VvV OO
E
VIV IRV
1V)
—=NO
W

10-189
10-620
10-<41

it NN
nnow

19-1

10-.39

01
87

19-1

10-82
10-565

10-:68

10-20
10-545
10-;18

9-71

9
6

~
~

10-520

10-=81=
25-45

10-281+
10~756+
10=>53»

O?o

9=24
10~504
10-:08
10-a58
O=Tul
9-174
9-19#

10~<84»
25-40

—

25-39

-268*
=675

10-241+#
10-675+

10=675+
10=-=09+
25-41

10-779
10-=99
o
[

10-223+

10-603~

10-=81

10-173»

10-756

~-=09

10=-151»
10-583+
10~,; 89+

SEQ 0230
10-859
10->73

=705

]

10-675
10-<84

elole] UI?OO ole)

10-603
10-.89

10~583
10-: 65

b wd

10=547
10-;20

)

—d

START

v01-05

Skl
STA(K

(CREF

18:06:25 PAGE S -18

SE1ZPTY

TABLE

4~-APR-81

FROSS REFERENCE

MACRO V04.00

—

CIRMRBO RMOS5/3/2 DU POR TST 1

10-914
10-241

10-937
10-263

10-989
10-a3C

10=-:53%
10-360

10-407+
10-859+
10-263+

10=431»
10-914»
10-330+

10-483+

10-937+
10-860+

10=-506*
10=;03~
25-36

10=531+
10-,;20+

10-302
10-803
10=->17

10-348
10-857
10=->71

10-372
10~880
10=>96

10~-429

13-1

13-1e

13-1«

13-1»

25-37

10-935

10-261

13-5#
4-6014
4~6014
4-601#4
(=604
L4-6014
4-6014
4-6014
4{-6014
L-6014
4-6014

~OJ'\O

ASEInY

kY
r -3

o £~

no L=

-k

191

W
~
no
Al (¥,)

10-520

OOOO?OOO
[
1

10-504

10-20
10-302
10-348
10-372
10-429
10-452

TEST10

9-24

TAP
TBITVE
TEST]

14-1

SWREG

9-24

SWR

cd amd

SWé
SW5
Swé
Sw7
Sw8
SW9

—

10-59

TESTY7

10545

'0=545

10=545#

SEQ 0231

MACRO V04.00

CZRMRBO RMOS/3/2 DU POR TST 1

10-803
10-857
10-171
10-880C
10-935
10-953

10-=07
10-=29

TEST43

10-=97
10->17
10->71
10->96
10~761

TEST44

TEST4S

TEST46

TEST47
TESTS

10-239
10-290
10-a58
10-256
10-279

TESTSO
TESTS
TEST6

TEST?7

23-8#

TESTNO
TIME
TIMEA
TIMEAM
TIMEAP

TIMEB
TIMEBM
TIMEBP

TIMES
TKVE(
TOLER
TPVEC
TRAPVE
TRE
TRTVEC

TST1
7ST10
TST11

1ST12
1ST13
TST14

TST15

TST16

10-689
10-726
10-777
10-803
10-857
10-171
10-880
10-935
10-953
10-:08
10~-:68
10-;18
10-;39
10-.87
10-189
10-<41

4(-6014
10-151
4-601#
4~6014
L-6134
4-6014
9-84
10-302#
10-348#
10=372#
10-429#
10-452#
10-504#
10=520#

10-151
10->73*
9-58+
10-151~
9-58+
9-58«
10-173»
9-58+
10->53
19~1»

10-173

9-24»
10-327
10-20#

26-8
26-8
26-8
26-8
26-8
26-8
26-8

)

SEQ 023¢

10-685#

10=7264
~7774
1 -8034
1 -857#
1
714
1

1
1
1
1
1
1
1

1
1
1
1

o OOOOOOOOOOOOOOOO
]
|
A—A. ! (Y
OOQ—'

10-777

10-689

10-726

v01-05

7
J
18:06:25 PAGE S-19

10-82#
10~565#
10-6012
10-620#

-880#
~9354

-953x4

-:08#
~:68#
;184

-394
-. 874
-189#

~<4 1

~=Q7#
-=20K

=974
10->174
10->71%
10->96#
10-261#
10=-235#
10-2904
10-a58#

10-2564

10=-279#

10-151
el

TESTZS
TEST26
TEST27
TEST3
TEST30
TEST3
TEST32
TEST33
TEST34
TEST3S
TEST36
TEST37
TEST4
TEST40
TEST4!
TEST4Z2

TEST24

10-82
10-565
10-601
10-620

el w—

10-82
10-565
10-601
10-620

(CRE"

b sand cmch vl

TEST2
TEST20
TEST21
TEST22
TEST23

TABLE

ol vl sl

(ROSS REFERENCE

4-APR-81

0->73~

*
*

10-173
25-46

10-151»

12=30+

10-151»

10->53

10-241

10=151»
10=173»
10->73
10=-173+
10->53»

10-a31

10-173+

10-a31

10-263
10->73

10=>73~

10-a61

10-a261

10-223+

10~2641+

10-=81+

10-=99+

10->53

10~>53»

10~->53~

1ST17

10-545#

26-8

SFQ 0c33

MACRO V04.00
CZRMRBO RMOS/3/2 DU POR TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

23-10#
7-0#

25~44
9-6

11-1

25-41

25-42

25-43

9-87
15-1
19-1

9-102
15-1

9-105
16-1
19-1

9-106
17-1
19-1

10-223
10-268

10-223
10~281
10~407

10-223
1G-281
10-407

19-1

(Vo F23]
O
N

—_—

NNy
—
S~
N

—

[e]lele)

NNy —
wids~J
O —\N

el le]

4-6314
L6570
10-223
10-281

——

4~618#
4-6194
4-620#
46844
NN —

25-40

22-1#4
9-47

(AT a3
~N
= A

UNS
UPE

19-1
9-8

25-38

25-34

uo
vl
u3

10-2614

11-1

18-1

TYPOC
TYPON
TYPOS

10-2314

—

TYPDS
TYPE

10->964
10-?2614
10-239#
10=-290#
10~a30
10-a31
10-a60
10-a61
10-256#
10=~-279#
9-91

QOO

TST51B
TSTS52
1ST6
1S17
TSTADR
TSTERR
TSTNUM

10-601#

10-6204
10-689#
10-7264
10=777#
10~-803#
10-857#
10-171a
10-8804
10-935#
10-953#
10-:08#
10-:68#
10~-;18#4
10-; 39#
10~,87#
10-189#
10-<41#
10-=Q7#
10-=29#
10~-=97#
10->174
10=->71#

‘O'O‘OJ\‘O
b e wnd ek P

T1ST47
1ST5
1ST50
TST508
TST51

10-824

b ok

1873
15730
iST31
TST32
TST33
TST34
TST135
1S136
1S137
TST4
1ST40
TST41
15142
TST43
T1ST44
TST45
1ST46

SEQ 0234

10~565#

TST20

18121
75122
15123
TST24
TST2S
1ST26
1S127

L 7
18:06:25 PAGE S-20

10-17#

—

TSTTAA
TST2

4-APR-81

10-407

(<431

10-431

10-483

i0-483

10-483

10-506

10-506 553053%?

MLE

WRL

—OMNO—O

58328—%OMOAN OWM

Nl*iOa =3OWNV

WCE
WCF
]

18:06:25 PAGE S-21

”

10~ =90«

12-35+

=QM e w w wm

AN MO O f =MM
A MONMINO
MOMN

MO O v=M
NO = ONMIANNO

— e eT = =T P =T T P P T P P T T

WW&WW&000000&00%0000&&&0&&&&&&

MeO=nr [elelalele RogaenOM=N ik -— YIeTYA .m[.}l V8O%50941
(XY

LA L LLEL8448444444444404044

O e R Y 1 29T
WOO LY I A BT

Fert

= e = T T o o Fom (= (o Prom o o o P o Y T o o T e [ e P o P P o

=Te—eRSTNNOPFM3AR—7 7564049131101313567493949”303
QM OM= =

)

4-~APR-81

O aAOMWNNO

(CREF VQ1-05

TVMYNUNMUAINN=—

CZRMRBO RMOS/3/2 DU POR TST 1
TABLE

NOOWVO

3100550880044f5l22862200883f8i04705735133503659%089@7&67%5fMlQ5B
A$5585AL54¥58t548A5P4SE84NP6T408S48846D84A584R8486P4S4P8A4804P44R35I464£A8L484LA08T4A54Do

LaesTAhLegLTLRTLYT
S-i2UP-e1oN-4Oee0eM9MOPY7OT9TO1VD.NOeeY-O1O2PMMTPP(NNT-PPSReO=POTR=TPMMDPT=ANONS =TA——PPMMNPY=ATNTBT=TTRTTP ==ITy—M=YI==ePe=1=TRMO=LyO8T=3LOUTPNONLPMeoEONeoTII0OoREMe~M
(ROSS REFERENCE

MACRO V04.00
7

SEQ 0236

10~>53
12-37+

NOVM |
|

“IRMRBO RMQS/3/2 DU POR TST

(ROSS REFERENCE

TABLE

(CREF

22-1

MACRO v04.00

6-0

vO1-05

22-1

)

2241

4-APR-81

18:06:25 PAGE M-

SEQ 0237

6-0

22=1

22-1

10-256
10-726
10-=29

10-279
10-777
10~ =97

10-30¢2
10~-803
10=-17

10-348
10-857
10=>71

10-372
10-880
10->96

10-429
10-935
10-261

10-452
10-953
10-790

22-1

22~1

22-1

22-14

10-504%
10-:08
10-358

4=5914
4=5914
4- 5904
. $SAVE
.$5C0P
.STRAP
.STYPD
.STYPE
.$TYPO
.EQUAT
-HEADE
.SETUP
. SWRHI
.SWRLO

ADDO
ADD1
ADD4
cC

19~
21
13-1
22-1

18-1
16-1
17-1
4-601
4-598
4-783

4-599
4=599#
10-151
10~:53
10-914
10-<84
10-223
10-268
10-33
10-327
10-506
10-859
10-989
10-=09
10-241
10-327
10-:69

10-173

10-937

10--09
10-241
10-281
10-33
10-350
10-506
10-859
10-989
10~= 09

15893) [T4~a.l3s Lo-lk

CLRATA

COMMEN
DD
EE
ENDCOM
ERROR

10-531i
10-756

10-263
10-350
10-.89

10-547
10-779

pe—- F1¢L01t O—M 00000 O—~MN—N—

—N

——

CHECK

0 O ONINO N
oil
)«IVaYe]. o] p

n73%MINYv~- ofl#l1:ommMLLW

cal

4=592#
4-5924
4=591#
4-5924
4=5924
4=-5914
4-5524
4=-590#
4-590#
4-5904
4=-5904
4£=590#
10-84#
10-:104
10-882#
10-<43#
10-191#
10-2584
4-1234
10241
10-506
10-837
10-989
10-<84
10-=99
4~4214
10-:20
4-6014
10-522#
10-728#
4-501#

g—ebdddd ebdddSd 131073%

4-APR-B1

18:06:25 PAGE M-2

SEQ 0238

MTONVDDMON0INA

PN [aoeuSstld DMAGOW+0U—RTMNA~—NON~ROFTOAMOA

10-a19#
10-;414

T
MuL
NEUTRA

NEWTST

MTST

00
POP

PtSH

10-955#
10-805#
S5-74
10-34
10-283#
10-533#
10-784#
10-.054
10-=15#
10-a33#
4-601#
L=275#
10-547
10-.03
10-230
L(=6014
10~520
10-:68

10-365

10->98#
{-553#
10-520
10-:68
10-4.54#
4-6014
4=6014

9-29
10-675
10-705
10-=81
10-407
10->53
10-a30
10-a31
10-,69
10-989
10-837
6-0
10-20
10-302
10-545
10-803
1C-;18
16-=29
10-a58
10-151

10~-583
10-.20
10-260
10-20
10-545
10-:18
10=-241
10-20
10-545
10-.18
10-483
18-1
18-1

9-294

4-601#
10-622#
10-6914
10-=31#
10-374#
10->19#
10=-292#4

13594739491”101

jCIOoMA(lOBoO-0lOoHkIOelo0—I|IoOolOfIIMo0lo~lCkoNaoOlVVleOlo<s« 0«keOlOoWNko0lNoAOdeIl0oNNolPNOlOo0kTNlo0OePA0lOoo0llNM0eOolOl0NOoeN0Ol)

.47.33.“%..0G.OO..MOI0NN..OINCMD..ee~—M=..MOINNm.MMwmOOOmO.NN

PRT Y VTN

—)OT[[RkoBeeMMl0AlO®oN~eCl-( l-—eOe(llOBeoelV~lIoIaloMNeIlI~oeNoIclclToaaeNlVV—leOee~—ld«¢lNM»oeIloMTWIlfoNaNloIAOOTeOlolMNNNTolOeONolOOAloDNIfelPSlOoOeMTLMlIlaRNeODTlOOaNeRAN[o Nl]

MACRO v04.00
CZPMRBO RMOS5/3/2 DU POR TST 1
)
Vv01-05
(CREF
TABLE
REFERENCE
CROSS

10-= 99

10-431
10->73
10-a60
10-a61
10-;89

10-859
10-189
10-429
10-620
10-935
10-<04

10-225#
10-433#
10-6774
10-9394
10-<07#
10->754

10-239
10-452
10-689
10-953
10-<17
10->96

10-247#
10-485#
10-707#»
10-9944
10~-<20@

10~-256
10-504

10-,87
10->17

10-175#4
10-4094
10-6054
10-9164
10~;944
10->55#

10-2704
10-508#
10-758#
10-:55#
10-<864
10-265#

10-275
10-520
10-777
10~:68
10-=07
10-790

10-241
10-675
10-<84

10-268
10-705
10-<84

10-281
10-756
10-=09

10-327
10-779

10-407
10-859

10-431
10-914
10->53

10-483

10-=09

10~-350
10-837
10-=81

10~5G6
10-989
10-241

10-531
10-:53
10263

10-171
10-601
10-.87

10-189
10-620
10-<41

10~239
10-689
10-=07

10-256
10-726
10-=29

10~279
10-777
10-=97

10 -302
16 ~803
10 ->17

10-348
10~-857
10->71

10~372
10-880

10->96

10-429
10-935
10-261

10-452
10-953

10-50¢
10-:08
10-a58

10-171

10-189
10-620

10-239
10-689
10-

10-256
10-726
10- 29

10-279
10-777
10~ =97

10 -302

10-348
10-~-857
10->71

10-372
10-880
10->96

*10-429
10~935
10-261

10-452
10-953

10~504
10~:08
10~a58

10-857
10-:39
10-=97

10-153#
10-3524
10-585#
10-8614
10-:714
10->01#

10-171
10-372
10-601

10-173
10-603
10-:69

10-223
10-675
10~;89

10-82
10-565
10-;39

10644

10-3294
10-549#
10-839#
10=-:22#
10=-= 83#

10-263

10-82
10-565
10~-.39
10~506

20~-1
20-1

10-82
10-348

10-565

10-601
10-:87

21-1
21-1

10-<41

10-880

10->71

10-803
10->17

10-=99

10-243#

10-726
10-:08
10-<41
10-261

10-937
10->73

10-290

RELEAS

4=203#

10-223

10-241

10-327

10-350

10-407

10-431

10-483

10=-506

10-531

10-%47

Eéoc.)ggg

)1.-4)1.“!91(3)“48
SETUP
SK1P
SLASH

—
r
e
r
e
r
—
r
e
t
e
—
_
.
w
.
_
I
1
.
R
.
.
B-R=EZN>>>>0V
4-6014
4-6014
4-6014

TABLE

(CREF

9-24

v01-05

MACKO V04.00
)

4-APR-81

OCuNMONmD 9078Mw7% T er&igysO~ON—W -.=OO0O0OOO eBleloNlelelale]lole VOMN

0Oe—\(oO0000]00OO0OoOOo0NY1[N 1Ptly WnNOMeNINoM—OTMN\O0

8% RRNS3HIRANSER

% NN RSO N B T

23 1 THITEINSATI 7

LT v
PP Y TRIILINRI

]

-R PR

(ROSS REFERENCE

= O N MO OND

HFBONUoMOOFTNONMO L]

A
n
h
&
x
x
s
VIOOVAR- =-TSN-ARRA-NooMMNOMO\ORe|VoCWOOOOCO VV0oPL]]oloN&ellR0SRYal0oeol0le0loYto0Xloe0llRoo0TRlloo0lle0ollo0olle0lale0lol&oloo0lSles0lle0olTto0olleL2RllyPPoo-yol
[-10 * -] NN] OeNeOO| eOANNWtNi BONOONe—0VIT-MI —OUOMMFOTNNOMNOO~NTOMOO0 WVOvr

L NT[o V][WK-NO-NONS-Y 0oe\NReeMlolMeOloNlololanMdlLlM-—rO—-—V—Wc~O—

)TA—M)ex=etopa—lbudA(x2]exLQ-eadneoy2=-RW,]ENNZooeOl]TPmad-hmaWXd&hOsno.alWawgsNl.iolOsomndilNhL-Mt1[7,V0OA]ig40A0Y0fOS—0O2XT—T~leMA7—OONWO5NnOO0?0Ma0Ml3ORIVMa%20NdYtOOON03w2NeRNS2O7oOIS~Of052lOO—MiMo30OlNNO%MNM006SdO0—ROkWI=O5eSt&52IeO3NNo03=21SNoOOM—o5413lNRMO&o5%OlNRfo}08Mla74n0MMOm1l1o76SO3!O—lL15O8MlR8NIWT.vM(oo4V1D0eaaL7OOoN3l4k
(ZRMRB0O RM(Q5/3/2 DU POR TST
E
8
18:06:25 PAGE M-3

SEQ 0240

]

-— MOMN - 3(69%Ye) esitia