Digital PDFs

AH-F940B-MC

August 1981

101 pages

Original

4.7MB

view download

OCR Version

5.2MB

view download

Document:	CZRMSB0 RM02-03-05 RM05-3-2 DU POR TST 2 AUG 1981 bw
Order Number:	AH-F940B-MC
Revision:	000
Pages:	101
Original Filename:	CZRMSB0__RM02-03-05__RM05-3-2_DU_POR_TST_2__AH-F940B-MC__AUG_1981_bw.pdf

OCR Text

TST 2

AH-F940B-MC

e .

B Pehe ' orry e GGG

MACRO v04.00
-REM

4-APR-81

18:08:26 PAGE 1

1
SES 0001

PONONOPON
NN ~ <2 w2 b b b ek ek e

[o SR NVTLNE T w2 o], BNTe RV P YV NE Y o W, T, RNT, SV ¥

NP GTIN

"IRMSBO RMOS5/3/2 DU POR TST 2

IDENTIFICATION

PRODUCT CODE:

AC-F9398-M(

PRODUCT NAME:

CZRMSBO

PRODUCT DATE:

APRIL

MAINTAINER:

(X DIAGNOSTIC GROUP

AUTHOR:

MIKE

RM05/3/72 DUAL PORT TEST,

1981

LEAVITT

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

EQUIPMENT

CORPORATION.

DIGITAL

NO RESPONSIBILITY FOR ANY ERRORS
THE

SOFTWARE DESCRIBED

PT 2

EQUIPMENT

CORPORATION ASSUMES

THAT MAY APPEAR

THIS DOCUMENT

WITHOUT
DIGITAL

IN THIS MANUAL.

FURNISHED UNDER A

LICENSE
AND
MAY
ONLY BE USED OR COPIED IN ACCORDANCE WITH THF
TERMS OF SUCH LICENSE.

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

(C)

1980,1981

DIGITAL EQUIPMENT CORPORATION

JRMOB, MU5/3/2 D PCR TST 2

MACRO v04.00

4-APR-Bi

c
18:08:36 PAGE 2

;

CONTENTS

ABSTRA(CT

REQUIREMENTS

8
9

2.1
2.2

2.3

EQUIPMENT
PREREQUISITE PROGRAMS

OTHER PROGRAMS

LOADING PROCEDURES

STARTING PROCEDURES

4.1

;g
;g

4.2
5.

OPERATING PROCEDURES

5.1

5.4

22
23

STARTING ADDRESSES

OPERATOR ACTION

5.2
5.3

'SOFTWARE'

DUAL PORT TEST CABLE CONNECTION

ERRORS

MISCELLANEOUS

7.1

31
32
33
34
gg
37

7.2
7.3
7.4
7.5
7.6
8.

SWITCH REGISTER

OPERATIONAL SWITCH SETTINGS
TEST SELECTION

RESTRICTIONS

LIMITATIONS
EXECUTION TIME
REQUIRED TESTS
DISK SURFACE USAGE
LOOP ON ERROR OPTION

TEST DESCRIPTIONS

SEQ@ 0002

TLT 2

MATRT v04.C0

D
18:08:36 PAGE

SEQ 0003

THE RM05/3/2 DUAL PORT

LOGIC TEST PERFORMS A SERIES OF

TESTS WHICH VERIFY THAT THE RM05/3/2 DUAL PORT LCGIC
IS FUNCTIONING PROPERLY.
ONLY THE CONTROL LOGIC IS TESTED
8Y THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE

IS NOT TESTED BY THIS PROGRAM.

BOTH PORTS OF

THE DRIVE ARE

CABLED

TO THE

SAME MASSBLS BY

4 SPECIAL ADAPTER CABLE.
THIS ARRANGEMENT ALLOWS THE DUAL
PORT LOGIC TO BE TESTED FROM ONE PLP-11, RH11 OR RH70,

ao
g

THIS PROGRAM IS

THE

OP}{?N LOGIC TEST,
SWITCH.

NNOTONNINUN)
2 4

4(-APR-81

ABSTRACT

Lo VLR VLVl o R el - ENT, RV ¥ NPV ST Y

Ve e YN T SV ¥NPT TN

JHWRE RMCL/30 Ll PCR

SECOND PART OF

THE

RM05/3/2 DUAL

PORT

AND IS USED TO TEST THE 'PORT SELECT"

REQUIREMENTS

EQUIPMENT
PDP-11

PROCESSOR

8K MEMORY

KWwll-L OR KW11-P CLOCK
TERMINAL

RH11 OR RH70
1

- DISK DRIVE

(RMO5,

RMO3 OR RM02)

RM DUAL PORT TEST CABLE

2.2

PREREQUISITE

7010507-02)

PROGRAMS

RMO5/3/2 DISKLESS TEST, PART 1

RM05/3/2 FUNCTIONAL

THE

PRELIMINARY

PORT

2.3

(P/N:

TEST,

PROGRAMS MUST

& 2

PART 1, 2 8 3
BE

RUN

TWICE:

ONCE

FROM EACH

(A & B).

RMO5/3/2 DUAL PORT LOGIC TEST, PART 1

OTHER PROGRAMS
DYNAMIC

OPERATION OF

THE

DUAL

PORT

OPTION

TESTED

BY THE RM05/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

"IRMSBO RM0S/3/2 Du PCR TST 2

MACRO v04.00

4-APR-81 18:08:36 PAGE 3-:
BE

INCLUDED IN AN *XXDP'

(HAIN.

STARTING PROCEDURES

STARTING ADDRESSES
A.

B.
C.
6.2

THE NORMAL

STARTING ADDRESS OF

ég ?gg%gg

(OR RESELECT)

THE PROGRAM

IS LOCATION

200(8).

STARTING AT THIS ADDRESS ALLOWS THE OPERATOR

THE ADDRESS OF

THE DRIVE

THE RESTART ADDRESS IS LOCATION 204(8).

WILL USE

THE

CURRENT DRIVE ADDRESS.

THE PROGRAM

THE PROGRAM CAN BE STARTED AT LOCATION 210(8)
THE RH11 OR RH70 ADDRESS TO BE CHANGED.

TO ALLOW

OPERATOR ACTION
A.
B.

D.
E.
F.
G.
H.

CONNECT

THE DUAL PORT

TEST CABLE BETWEEN BUS A

€ BUS B ON THE DRIVE BEING TESTED,

(SEE SECTION 5.4)

LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLL
ING
THE MASSBUS USED FOR TESTING.

SWITCH THE

'PORT SELECT'

TESTED TO THE

‘'A/B'

SWITCH ON THE DRIVE 10 BE

POSITION.

CYCLE

THE DRIVE UP.

LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8))
INTO THE SWITCH REGISTER (OR THE 'SOFTWARE' SWITCH REGISTER,
SEE SECTION 5.2.)

PRESS START.
ENTER THE DRIVE NUMBER.
ENTER THE NUMBER OF THE TEST TO BE RUN.

OR '0' WILL RUN ALL TESTS.)
THE

PROGRAM MAY BE STOPPED AT ANY

FROM LOCATION 204.

('CARRIAGE RETURN'

TIME AND RESTARTED

OPERATING PROCEDURES

w20 Q00N

—-o-;.;-,-:-.-.n—a_n_aa.-.
B
it bt O [e] (@)
(@]

101

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' SWITCH REGISTER
SETTINGS OF THE °'SOF TWARE'
ROUTINE WHICH IS CALLED BY

THAT

THE HARDWARE

SWITCH REGISTER

RECOGNIZE THE °'CONTROL G' AT ANY TIME EXCEPT WHEN THE PRORRAM
IS AT A HIGHER PRIORITY PROCESSING AN RMBO INTERRUPT.
1Ht
'SOF TWARE®'

THE

‘SOFTWARE' SWITCH REGISTER.
THE
IS LOCATED AT LOCATION 176 (8).
THE
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
TYPING A 'CONTROL G6'.
THE PROGRAM WwiLL

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER [N RESPONSE

PROMPT

FROM THE

'SWR

NNNNNN

SWITCH ENTRY ROUTINE:

NEW -*

MA(CRO v04.00

TIME

SWITCH SETTING ARE

SEQ 0005
ENTERED,

THE

ENTIRE

SWITCH REGISTER

AND

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

5.2

THE

TEST

PROGRAM WILL

TYPE

SWITCH SETTINGS ARE:

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

OPERATIONAL SWITCH SETTINGS
WITH ALL SWITCHES SET TO ZERO, THE
ALL ERRORS AND CONTINUE TESTING.

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

SELECTION

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

CONTINUOUS EXECUTION OF

2OV

TO RUN ALL

TESTS

IN SEQUENCE,

THE

SELECTED

TEST.

ENTER EJTHER A

'0O'

FOLLOWED

BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF.
PROGRAM WwILL THEN EXECUTE ALL TESTS IN SEQUENCE.

THE

THE "RUBQUT KEY' (RO) CAN BE USED TO DELETE THE LAST
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 CHARA(TERS
ENTERED BY THE OPERATOR.

O VO NO NI W
WV
SOONO N
—tt

18:08:36 PAGE 3-2

IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT'
'CONTROL U® FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.

it el e el i ol i D ) T i ) D el D D e el D D o e e D D D) e D o
~E N o o Yo e o No 3o Xo No No JETCICIV
IV IV IV IV TC TV, V0¥ 0 o oW oFSN

4-APR-81

EACH

) B D D D ——h D wd D wd b _l_.—d—l—h_n_g_‘.‘-d_._‘_._‘_. -

oF O e
I TPV IV IV TP TR Y N LN NN NN T e R L I
NN 2O 00 NV
W
2OV
N0
SN =0 NOOB
O N

(ZRMSBO RMOS5/3/2 DU POR TST 2

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY

'CONTROL U'

5.4

TEST

CABLE

TYPING A

CONNECTION

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

A SPECIAL TEST CABLE MUST BE USED.
(THE TEST CABLE IS
P/N: 7010507-02).
THE TEST CABLE CONNECTS MASSBUS A & MASSBJS

B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO
THAT BIT O OF

THE MASSBUS UNIT SELECT LINES

IS COMPLEMENTED.

WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST,
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS:
EACH PGRT

* IRMSBO RM05/3/2 DU POR TST 2

MA(RO v04.00

4-APR-B1

18:08:36 PAGE 3-3

>t @ 0006

OF THE RM05/3/2 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS.
THE ADDRESS OF

EACH PORT WILL DEPEND UPON THE

ADDRESS PLUG.

THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH
PORTS.
(ONE PORT WilLL HAVE THE ADDRESS OF THE DRIVE. THE

(AR NIV VL

OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE
(A2

822

2300880

0ddddsRaRi

CABLE).

iRttt idtalsiliiilsiil
R D

+ ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS

* CONFLICT WITH EITHER OF

* POWERED DOWN.
AR A

W) 2 O\D 00~

D ek

D wd

d ek =D oD

179

THE

AR A A AR AT

TEST

CABLE

THE TEST ADDRESSES MUST BE

AR AR A AR AR AR AN A RARAAAANNRRARN AN RN

CONNECTION TO

THE

DRIVE UNDER

ANRARNNR

TEST WILL

DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST THE 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

RMOS5/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.
WHEN THE DUAL

OV OO0 O
OV
NR N

M—D — el —d — el e

DRIVE'S

PORT

TEST CABLE

IS CONNECTED,

THE ATTENTION

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

INCLUSIVE

'OR® OF

THAT APPEARS FOR THE

DRIVE

THE

THE PORT A & PORT B ATTENTION BITS.

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

BECAUSE

228

WHEN THE PROGRAM ENCOUNTERS AN ERROR,

CALLED AND IF

SW<13> IS NOT SET,

7O THE ERROR WILL BE
THE FOLLOWING:

A.
8.
(.

TYPED.

THE ERROR ROUTINE

THE

EACH ERROR TYPEQUT WILL

TEST NUMBER

THE PC

CONTAIN

(PROGRAM COUNTER VALUE) WHERE THE ERROR

CALL WAS MADE

CONTENTS Of

MISCELLANEOUS
RESTRICTIONS

THE ERROR MESSAGE PERTAINING

AN ERROR MESSAGE
A DATA HEADER LINE
A DATA LINE CONTAINING:

rUrUNY ALY VIS LN LCL VLV VL Cha S LVI,N T,V ¥}
NN N LY NI~
= oD e b b b p
~O WV e o=
O OO NN O

ERRORS

THE APPROPIATE REGISTERS

IRMSBC RM05/3/2 DU POR TST 2

MACRO v04.00

229

230
231

236
237
238
239
52?

SEQ 0007

MUST HAVE THE DUAL PORT TEST CABLE CONNECTED.
7.2

LIMITATIONS

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH E]THER
PORT AND DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL
PORT OPTION.
7.3

242

EXECUTION TIME
THE

522

70 RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KWll-P
OR A KW11-L CLOCK.
ADDITIONALLY, THE RM0S5/3/2 UNDER TEST

ggg
ggg

4-APR-81 18:08:36 PAGE 3-4

PROGRAM

TAKES ABOUT 4 MINUTES PER PASS

OPERATOR INTERVENTION EFFICIENCY).
7.4

247
248

REQUIRED TESTS

IF THE PROGRAM 1S BEING EXECUTED IN SINGLE TEST MOLE, THE
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER

5?8

TESTS ARE RUN:

TEST 2 AND TEST 3.

RESPECTIVELY.

THESE

TESTS SET

TESTS MUST BE

BEFORE TESTS 4 - 10 ARE RUN.

B.
Sgg
Sg?

262
263
264
265

529

7.5

280
%g}

283
284
285

AND

‘VV-B'

LEAST ON(CE

THESE TESTS DETERMINE AND STORE FOR

LATER USE THE TIMEQUT ONE-~SHOT VALUE MEASURED THROUGH
EACH PORT.
THESE TESTS MUST BE PERFORMED AT LEAST ONCE BEFORE

DISK SURFACE USAGE

THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE.
HOWEVER, THE
DRIVE MUST BE CYCLED UP AND ON LINE FOR THE DIAGNOSTIC TO BE

RUN.
7.8

LOOP ON ERROR OPTION

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 RM0S5/3/2 TO A KNOWN STATE
BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> 1S PERFORMED
AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR
WAS DETECTED.

270
271
272
273
274
275

279

TEST 4 AND TEST 5.

'VV-A'

PERFORMED AT

TESTS 6 - 10 ARE RUN.

268
269

276
77
278

(DEPENDING ON

8.1

TEST DESCRIPTIONS

Ll
s

METHOD USED TO VERIFY THAT DRIVE IS IN NEUTRAL
THE PROGRAM DETERMINES THE 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

T IRMSBO RMOS/3/2 DU POR TST 2
286
287
288
289
290
291
292

293

294
295
296
297
298
299
300

MACRO v04.00

4-APR-81
(*ATA®

8.2

THAT

CORRECT STATUS IS READ

CORRECT STATUS

'MOL',

'PGM',

IF NEITHER PORT SEES ALL ZERQOS FROM

THE PROGRAM VERI+IES

THAT

IS [N NEUTRAL
INDICATES A

THE DRIVE HAS BEEN SEIZED BY

CHECKING THE DRIVE STATUS REGISTER
THE

SEIZING PORT AND VERIFING

THAT

(RMDS)

THROUGH

CORRECT STATUS

SEEN.
WHEN RMDS IS READ THROUGH THE OPPQSITE PORT,
ZEROS SHOULD BE SEEN.
IF BOTH CONDITIONS EXIST, (I.E.,
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE

HAS BEEN SEIZED BY

DRIVE

ACCESS

SELECT DRIVE,

DRIVE

TEST 2

THE

TEST

SET

SPECIFIED PORT.

CAN BE ACCESSED THROUGH BOTH PORTS

VERIFY

THAT

THE

DRIVE

IS A DUAL PORT RM05/3/2,
'PGM',

NUMBER READ

THE

TEST

THAT THE DRIVE

'MOL',

W) —
NN
W) = O 00

THE

METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED

A.
A Lng UM UM AN LN R AN NN (N NN
VI
2

(

RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE
AND THAT ANY BIT DISCREPANCY BETWEEN PORTS
FAILURE IN THE PATH FOR THAT BIT.

VERIFY

°'DPR’,

'DRY'

IS PRESENT,

THAT THE DRIVE

BITS SET),

THROUGH BOTH PORTS

THE

THAT

AND THE

SAME.

THE

IS ONLINE

IS REPEATED THROUGH BOTH PORTS,

'VV'

FOR PORT A

ISSUE A DRIVE

CLEAR

COMMAND

ISSUE A READIN PRESET COMMAND THROUGH PORT A.
THAT THE ‘Vv' BIT IS SET FOR PORT A.

ISSUE A RELEASE
DRIVE

RETURNED

SET

'VV'

FOR PORT B

SET VOLUME VALID

TEST 3

THROUGH PORT A.

COMMAND THROUGH PORT A.

THE

TO NEUTRAL

IS SET.

VERIFY THAT

ISSUE A DRIVE

ISSUE A READIN PRESET COMMAND THROUGH PORT B.

ISSUE A RELEASE

THE

'vv'

BIT

THROUGH PORT B.

IS SET FOR PORT B.

COMMAND

VERIFY

THAT NEITHER AT ENTION

THAT

CLEAR COMMAND

AND

THROUGH PORT B.

(RMDS HAS

THE DRIVE

SET VOLUME VALID

BIT
N U AN LA N AN N

£ 0008

AND VERIFIES

*DPR*, & °'DRY'.)

TEST

5 B BN AN NN N NN NN
0
== OO 00 NS
NN —

£ 'Vv*')

THROUGH BOTH PORTS.

301

LN A MU

18:08:36 PAGE 3-5

VERIFY

VERIFY THAT

é?g ?gIgETRETURNED TO NEUTRAL AND THAT NEITHER ATTENTION

SERIAL

FIRMSBO RM(S/3/2 DU POR TST 2

MACRO v04.00

4-APR-81

18:08:36 PACE 3-6

“EQ 0009

%ig

TEST &

MEASURE THE TIMEOUT ONg-SHOT THROUGH PORT A

%25

MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A

349
gg?

WRITE 0'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE
DRIVE HAS BEEN SEIZED.

WAIT

VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS
TO NEUTRAL

%g,

FOR

TIMEOUT

10 OCZUR.

MEASURE

THE

DURATION OF

ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

THE

TIMEOUT

359
356
357
358
%28

TEST S

MEASURE

%g;

MEASURE

THE

763
ggg

WRITE 0'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE
DRIVE HAS BEEN SEIZED.

366
%2;

WAIT FOR TIMEQUT TO OCCUR.
MFASURE THE DURATION OF
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

369
370
371

VERIFY THAT THE
TO NEUTRAL

%;2

TEST 6

%;g

TEST

377
378
ggg

SWITCH TO PORT 'A' POSITION.
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ [HROUGH BOTH
PORTS, ARE CORRECT.

381
38¢
;gz

SWITCH TO PORT °'B' POSITION. VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

385
386
387
388
%gg

RETURN THE °'PORT SELECT'
THE DRIVE STATE.

TEST 7

%g;

TEST THE OPERATION OF

372

TEST

THE

TIMEOUT ONE-SHOT THROUGH PORT B

TIMEOUT ONE-SHOT VALUE

TEST

THE TIMEOUT

TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS

'PORT SELECT'

THE OPERATION OF

THROUGH PORT B

THE

SWITCH,

‘*PORT SELECT®

°'PORT SELECT'

THE

DRIVE

CYCLED UP
SWITCH

SWITCH TO THE

(DRIVE

CYCLED UP).

'A/B' POSITION.

VERIFY

SWITCH LOCKED ON PORT A

'PORT SELECT'

SWITCH (DRIVE CYCLED DOWN).

ggz

CYCLE THE DRIVE DOWN.

395
396
;gg

SWITCH TO PORT 'A' POSITION.
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BCTH
PORTS, ARE CORRE(T.

399

SWITCH THE

'PORT SELECT'

SWIT(H TO A;

CY(LE THE DRIVE UP.

"ZRMSBO RM05/3/2 DU POR TST 2

MACRO v04.00

400
401
402
403

4-APR-81

1
K
18:08:36 PAGE 3-7

SEQ 0010

WHEN THE DRIVE CYCLES UP, VERIFY THAT
THAT °'ATA-A IS SET.

'vv-A IS RESET, AND

IS;ggTAADRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH

404
405

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND
'NED® SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH
PORT B.
ATTEMPT TO SET PORT REQUEST BY WRITING 0'S
INTO RMDS THROUGH PORT B.
ISSUE A RELEASE COMMAND THROUGH PORT A.
DRIVE REMAINS LOCKED ON PORT A.
TEST

10 TEST

°'PORT

SELECT'

TEST

THE OPERATION OF

THE

VERIFY THAT THE

SWITCH LOCKED ON PORT B
'PORT SELECT'

SWITCH

(DRIVE CYCLED DOWN).

CYCLE THE DRIVE DOWN.

SWITCH TO PORT

'B'

NEUTRAL AND THAT
PORTS,

ARE

SWITCH THE

POSITION.

VERIFY THAT THE DRIVE

THE STATUS BITS

CORRECT.

'PORT SELECT'

IS IN

IN RMDS, AS READ THROUGH BOTH

SWITCH TO B.;

CYCLE THE DRIVE UP.

VERIFY THAT

‘'Vv-B IS RESET, AND

WHEN THE DRIVE CYCLES UP,
THAT 'ATA-B IS SET.

IS;gETABDRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH
VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND
'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH
PORT A.
ATTEMPT TO SET PORT REQUEST BY WRITING 0'S
INTO RMDS THROUGH PORT A.
ISSUE A RELEASE COMMAND THROUGH PORT B.
DRIVE REMAINS LOCKED ON PORT B.

CYCLE THE DRIVE DOWN.
A/B;

CYCLE

THE

CHANGE THE

DRIVE UP.

VERIFY THAT THE

'PORT SELFCT'

SWITCH TO

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION
BITS ARE SET, AND THAT BOTH 'Vvv' BITS ARE RESET.

—

MACRO v04.00

&4-APR-E71

18:08:36 PAGE 4

]

SEQ 0011

;*LAST REVISION C4-APR-81

(V. 1V,

(ZRMSBO RM05/3/2 DU PCR TST 2

.TITLE

CZRMSBO RM0OS/3/2 DU POR TST 2

;«DIGITAL EQUIPMENT CORPORATION

;=COLORADO SPGS., (0. 80919
L4

:«PROGRAM BY MIKE LEAVITY
- %

$*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11

:«PACKAGE

(MAINDEC-11-DZQAC~CS),

18-MAR-81

MAINDEC

SYSMA(

- %

.SBTTL

517

TR )

NN
%
%

ERROR
SCOPE

0V0011
000012
000015
000200
177776
177776
177774
177772
177570

000000
000001
000002
000003
000004

177570

000005
000006
000007
000006
000007
000000
000040

USE

HALT ON ERROR

LOOP ON
INHIBIT
INHIBIT
BELL ON
LOOP ON

TEST
ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER *xx 17100 w%»=

STACK

104000

000004

14
13
1
10
9

.SBTTL

001100

SWITCH

TR YR IR ST
—a
—

~O 00

(S2V ]

OPERATIONAL SWITCH SETTINGS

. %

- 1100

= EMT
= 10T

;;BASIC DEFINITION OF
;.BASIC DEFINITION OF

;*MISCELLANEQUS DEF INITIONS
11

LF
(R
CRLF

=12
- 15
= 200

STKLMT
PIRQ
DSWR
DDISP

=
=
=
=

;gw ps

= 177776

177774
177772
177570
177570

;;CODE FOR HORIZONTAL

2 :PROCESSOR STATUS WORD

s STACK LIMIT REGISTER
; sPROGRAM INTERRUPT REQUEST REGISTER
; HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

- %0

;. GENERAL REGISTER

- %3

;s GENERAL REGISTER

-2
= %2

R4
RS
R6
R7

- 4
%5
= %6
- X7

sp
PC

- %6
74

; - GENERAL REGISTER
;s GENERAL REGISTER

;. GENERAL REGISTER
;. GENERAL REGISTER
;;GENERAL REGISTER
. ;GENERAL REGISTER
;. STACK POINTER
; . PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO
PR1

TAB

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

; *GENERAL PURPOSE REGISTER DEF INITIONS

R1
R2

ERROR CALL
SCOPE CALL

;;PRIORITY LEVEL O
;:PRIORITY LEVEL

000100
000140
000200
000240

000300
000340
100000

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

000040

000020
000010
000004
000062
000001
100000

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

000200
000100
000040

4-APR-81

18:08:36 PAGE 4-1

PR2

= 100

;:PRIORITY LEVEL

PRS

= 200

;;PRIORITY LEVEL

PR6
PR7

= 300
= 340

PR3
PRS

- 140

240

;*"'SWITCH
SW1S
~
SW14
=
=
Swi3
SW12
SWi1
=
SW10
=
SW09
=~
SW08
SW07
=
SW06
=

SWO0S

SW04
SW03
Sw02

SWO01

::PRIORITY LEVEL

;sPRIORITY LEVEL

;:PRIORITY LEVEL
s:PRIORITY LEVEL

= 40

= 20
- 10
= 4

= 1
SW00
SW9=SW09
SW8=SW08
SW7=SW07
SW6=SW0s
SW5=SW05
SWé6=SW04
SW3=SWw03
SW2=Sw02
SW1=SW01
SWO=SW00

;*DATA BIT DEFINITIONS (BITO0 TO BIT15)

BIT1S
BIT14
BIT13
BIT1Z2
BIT11
BITI0

8IT09
BITOB

=
=
=
=
=
=

100000
40000
20000
10000
4000
2000

= 1000
= 400

BITO7
= 200
BITO6
= 100
BITOS
- 40
BIT04
20
BIT03
10
BIT02
-~ 4
BITO1
=2
=1
BITO0
BIT9=BIT0
BIT8=BIT08
BIT7=BI707
BIT6-BIT106
BITS5=RIT0S

SEQ 001¢
NN

BASIC DEF INITIONS

MACRO v04.00

( ZJRMSB0O RMOS5/3/2 DU POR TST 2

T ZRMSBO RM05/3/2 DU POR TST 2
BASIC DEF INITIONS

MA(CRO v04.00

SEQ 0013

B8IT4=8B1T04
81713=81703
8112=81102
BIT1=8BIT01
81T0=BI1T00

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060

ERRVEC
= 4
RESVEC
=10
IBITVEC = 14

;:TIME OUT AND OTHER ERRORS
;;RESERVED AND JLLEGAL INSTRUCTIONS
2T BIT

IOTVEC

;; INPUT/0UTPUT TRAP (10T)

000240

;*«BASIC *'CPU'" TRAP VECTOR ADDRESSES

TRIVEC
BPTVEC

= 14
= 14

PWRVEC

= 24

EMIVEC

TRAPVELC
TKVEC
TPVEC
PIRQVEC
.SBTTL

B BN ANANN NN N NN
= O 000NN
iV

1
N
18:08:36 PAGE 4-2

000020
000010
000004
000002
000001

000064

(SIS IV IV IV IV, IV IV IV 1V ]

4-APR-B1

000100
000200
000400
001000
002000
020000
040000
100000

;:TRACE TRAP
: ;BREAKPOINT TRAP

= 20

;;POWER FAIL

= 30
=
=
=
=

;;EMULATOR TRAP (EMT)

34
60
64
240

RH/RM

(BPT)

#xSCOPE=«

«+ERRORw»

::''TRAP'' TRAP
;:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
; :PROGRAM INTERRUPT REQUEST VECTOR
REGISTERS

;CONTROL AND STATUS REGISTER 1

(RMCS1)

IE
RDY
A16
A7

=
=
=
=

s INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT
;HIGH ORDER BUS ADDRESS BIT

MCPE
TRE
SC

= 20000
= 40000
= 100000

PSEC

100
200
400
1000

= 2000

;PORT SELECT (BIT #10)

(BIT #8)
(BIT 49)

;MASSBUSS PARITY ERROR (BIT #13)
;TRANSFER ERROR (BIT #14)
;SPECIAL CONDITION (BIT #15)

;JWORD COUNT REGISTER (RMW(C)
; (EACH BIT IS CALLED BY BIT NUMBER)

;BUS ADDRESS REGISTER (RMBA)
; (EACH BIT IS CALLED BY BIT NUMBER)

;CONTROL AND STATUS REGISTER 2 (RM(S2)
000001
000002
000004
000010
000020
000040
000100
000200

000400
001000
002000
004000
010000
026000
040000

100000

-1

JUNIT SELECT

U3
BAI

= 4
- 10

JUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT

CLR
IR
OR

40
100
- 200

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

PAT

MDPE
MXF
PGE

NEM
NED

UPE

WCE

DLT

-2

= 20

400
1000
2000

4000
10000

20000

40000

100000

JUNIT SELECT

(BIT #0)
(BIT #1)

;MASSBUS PARITY TEST

(BIT 44)

;MASS BUS PARITY ERROR (B]T1 #8)
;M]ISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #410)

;NON EXISTENT MEMORY (BIT #411)
NON EXISTENT DRIVE (BIT #12)

:UNIBUS PARITY ERROR (BIT #13)

JWRITE

CHECK ERROR

;DATA LATE

(BIT #14)

(BIT #15)

(BIT #3)

({ZRMSBO RM05/3/2 DU POR T1ST 2
REGISTERS

558
559
560
561
562

595

596
597
598

RM REGISTERS

000001
000002
000004
000010
000020
000040
004000

GO
FO
f1
F2
F3
Fé
DVA

tnwornunn

;CONTROL AND STATUS 1 REGISTER.

;G0 BIT

SFUNCTION CODE BIT #2

10
20
40

sJFUNCTION CODE BIT 43
JFUNCTION CODF BIT #4
JFUNCTION CODE BIT #5

4000

;DEVICE AVAILABLE

PGM

LBT

WRL
MOL

PIP

1
T A
B
O
E O
F O
A

DRY
DPR

T O

DL64
DE1

GRYV

ERR
ATA

002000
004000
010000
020000
040000
100000

ILF
ILR

sDRIVE

WCF
ECH

HCE
HCRC
AOE

1AE

WLE

DTE
OPl
UNS
DCK

;DRIVE FORWARD 20°'/>EC.

10
20
40
100
200
400
1000

(BIT 41)

INNER GUARD BAND

2000

DMD

(BIT #2)

;LAST SECTOR TRANSFERRED (BIT #10)

JWRITE LOCK (BIT #11)
SMEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS
;COMPOSITE ERROR (BIT #14)
SJATTENTION ACTIVE (BIT #15)

(RMER1)

sILLEGAL

JREGISTER MODIFICATION REFUSED

10
20
40

100

- 200
400
1000
2000
4000
10000
20000

40000
100000

(BIT #13)

(#02)
FUNCTION

(BIT #0)

;ILLEGAL REGISTER (BIT #1)
;PARITY ERROR (BIT #3)
;FORMAT ERROR (BIT #4)
JWRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)

(BIT #2)

;HEADER COMPARE ERROR (BIT #7)
JHEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)
s INVALID ADDRESS ERROR (BIT #410)
WRITE LOCK ERROR (BIT #11)
;DRIVE TIMING ERROR (BIT #12)

;OPERATION INCOMPLETE

(BIT #13)

;DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 15’

SMAINTAINABILITY REGISTER (RMMR1) (#03)
000001

#0)

;GO REVERSE (BIT #3)
;DIFFERENCE LESS THAN 64 (BIT #4)
sDIFFERENCE EQUALS 1 (BIT #5)
;VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT 48)
;PROGRAMABLE (BIT #9)

4000
10000
20000
40000
100000

RMR
PAR
FER

(#01)
DRIVE FORWARD 5°'°/SEC.

;ERROR REGISTER #01
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

(BIT #11)

DIGR

LS L

600002
000004
000010
000020
000040
0C0100
000200
000400
001000
002000
004000
010000
020000
040000
100000

(BIT #0)

sFUNCTION CODE BIT #1

;DRIVE STATUS REGISTER \RMDS)
:DFS
DFF20

(#00)

594

.SBTTL

584
585
586
587
588
589
590
591
592
593

5¢Q 0014

;(EACH BIT IS CALLED BY BI' NUMBER)

582

583

:DATA BUFFER REGISTER (RMDB)

566
567
568
569
£70
571
572
573
574
575
576
577
578
579
580
581

18:08:36 PAGE 4-3

563
564
565

4(-APR-81

RH/RM

MAZRO v04.00

;DIAGINOSTIC MODE (BIT #0)

615
616

SE@ 0015

SATTENTION SUMMARY PSEUDO-REGISTER

000100
000200

(RMAS)

(#04)

T A

sDEVICE O (BIT #0)
sDEVICE 1 (BIT #1)
:DEVICE 2 (BIT #2)

sDEVICE 3 (BIT #3)

000010
000020

ATO
AT1
AT2
AT3
AT4
ATS
AT6
AT7

sDEVICE & (BIT #4)

000001

;DEVICE S (BIT #5)

6520
621
62¢
623
624
625
626
527
628

€
2
18:08:36 PAGE 4-4

:DEVICE 6 (BIT #6)

618
€19

&-APR-81

;DEVICE 7 (BIT #7)

617

MACRO v04.00

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

:DRIVE TYPE REGISTER (RMDT)
000001
000002
000004
000010
000020
000040
000700
000200
000400
004000
020000
040000
100000

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

:DRIVE

NBA

= 100000

sNOT BLOCK ADDRESSED (BIT #15)

MOH
TAP

TYPE NUMBER 8IT
;DRIVE TYPE NUMBER 8IT
;DRIVE TYPE NUMBER 817
;DRIVE TYPE NUMBER BIT
:DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT

;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE REQUEST REQUIRED (BIT #11)
;MOVING HEAD (BIT #13)
;TAPE

- 40000

SCO
SC1
SC2

SC3
SC4

=
=
=
=
=

DPE
Dv(

LB(C
LSC
1vC
OPE
SK1

OFD

HCI
ECI
FMT16

(BIT #14)

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

JSECTOR COUNT FIELD 3 (BIT #9)
;SECTOR COUNT FIELD 4 (BIT #10)
(RMERZ2)

(#10)

(BIT #3
;DATA PARITY ERRCR
(BIT #7)
;DEVICE CHECK

=10
200

;LOSS OF BIT CLOCK (BIT #410)
;LOSS OF SYSTEM CLOCK (BIT #11)
;INVALID COMMAND (BIT #12)
(BIT m13)
;OPERATOR ERROR
(BIT #14)
TE
INCOMPLE
;SEEK

= 2000
= 4000

- 10000
= 20000
= 100000

;OFFSET REGISTER (RMOF)
000200
002000
004000
010000

DRIVE

(#07)

100
200
400
1000
2000

;RM ERROR REGISTER #2

000010
000200
002000
004000
010000
020000
100000

(#06)

D100
D101
D102
D103
D104
DTOS
D106
D107
D108
DRQ

;LOOK-AHEAD REGISTER (RMLA)
000100
000200
000400
001000
002000

(#05)

OO NS
AN

T ZRMSBO RMOS/3/2 Du POR TST 2
RM REGISTERS

(#11)

= 200

- 2000
= 4000
- 10000

;DESIRED CYLINDER ADDRESS (RMD()

JOFFSET FORWARD (BIT #5)

JHEADER COMPARE

INHIBIT

(BIT #'0)

JERROR CORRECTION CODE INHIBIT (BIT #°7,
:FORMAT BIT (BIT #12
(#412)

r ZRMSBO RMCS5/3/2 Du POR TST 2

RM REGISTERS

MACRO v04.00

4-APR-81

D
2
18:08:36 PAGE «-5

SEQ 0016

;(EACH BIT IS CALLED BY BiT NUMBER)

672
673
674

;SERIAL NUMBER REGISTER (RMSN) (#14)
s (EACH IS5 CALLED BY BI1 NUMBER)

675

676
677
673
679

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

;ECC PATTERN REGISTER (RMEC2) (#17)
; (EACH BIT

000000
000002
000004

000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000040
000042
000044
000046

IS CALLED BY BIT NUMBER)

.SBTTL

DEFINITIONS OF

RMCST
RMWC
RMBA
RMDA
RMCS2
RMDS
RMERT

-0
=2
=4
=6
= 10
12
- 14

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
;WORD COUNT REGISTER (NOT A DRIVE REG)
JUNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESJRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG V1)
;ERROR REGISTER #1 (DRIVE REG. 02)

RMLA
RMDB
RMMR1

= 20
= 22
- 24

;LOOK AHEAD REGISTER (DRIVE REG. 07)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)
sMAINTAINABILITY REGISTER (DRIVE REG. 03)

RMSN
RMOF
RMD(
RMMR?

=
=

RMEC]
RMECZ

- 44
- 46

RMAS

RMDTY

RMER2

=16

- 26

30
32
34
40

= 42

THE RH/RM ADDRESS INDEXES

SATTENTION SUMMARY PSEUDO REGISTER

(DRIVE REG.

04)

;DRIVE TYPE REGISTER (DRIVE REG. 06)

;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.
sMAINTENANCE REGISTER #2 (DRIVE REG. 14)

;ERROR REGISTER #2 (DRIVE REG.

15)

;ECC POSITION REGISTER (DRIVE REG.
;ECC PATTERN REGISTER (DRIVE REG.

16)
17)

12)

(IRMSBO RMOS5/3/2 Du POR ST 2

TRAP CATIHER

MALRO v04.00
.SBTTL

4-APR-B1

18:08:36 PAGE S

2
st2 0017

TRAP (AT(HER

.=0
J*ALL UNUSED LOCATIONS FROM & - 776 [ONTAIN A "' +2 HALT''
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
000174

:+LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VE(TORS

000174

DISPREG:'Tlggb 0

000176

SWREG:

AV AR 23V

.SBTTL

.WORD

;:SOF TWARE DISPLAY REGISTER
::SOF TWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000200

000137

0017¢6

JMP

BHSTART

:;JUMP TO STARTING ADDRESS OF

000204

000137

001774

JMP

SHSTARTT

:START AND

.SBTTL

CHANGE

THE

PROGRAM

RH/RM ADDRESS

ACT11 HOOKS

'"t.l’t.ttlttfi*tltt'*it*t"tt‘t.t‘*'.ttttttt.'.."ttt.‘t.tt"'t'tt

000046

00¢052

000210
000046

013366
000052
020000
000210

*HOOKS REQUIRED BY ACT11
sszzc=.

;SAVE PC

iEgng

::1)SET LOC.4€ TO ADDRESS OF SENDAD IN .S$ECP

-WwORD

.=$SVP(

20000

::2)SET LOC.52 TO 20007
;;

RESTORE

P({

{IRMSBO RMOS5/3/2 DU POR 71ST 2

(OMMON TAGS

MACRO v04.00

4-APR-81

.SBTTL

18:08:36 PAGE 6

SEQ 0018

(COMMON TAGS

"'t.t.tttt'.ttfitlt't'tI"'Q'.Q'.Q'Qt.‘.."Q"'Q..‘.'..'Q.Q'.Q.Q"

$*THIS TABLE CONTAINS VARIOUS (OMMON STORAGE LOCATIONS
:*USED IN THE PROGRAM.

CUL0000
000000
000
000
000000
177570
177570
177560
177562
1/7564
177566
000
002
012
000
000000

001162
001164
0C1166
001170
001172
0011724
001176
001200

000000
Q00000
000000
000000
000000
000000
000000
000000

001206
00207

077
0 15

001210

0GO000

$TKS:
$TKB:
$TPS:
$TPR:
$NULL:
SFILLS:
$FILLC:
$TPFLG:

177560
177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE

$REGO:
$TMPO:

.WORD
.WORD

$REGAD:

STMP1:
$TMP2:

$TMP3:

207

377

012

000

377

.WORD

.WORD
.WORD

. WORD

$TMP4:
L WORD
$TIMES: O
$ESCAFE:0
$RELL:
.ASCIZ
$QUES.
.ASCI!
$CRLF:
LASCII
$LF:
.ASCIZ

[elolalolalelolololal leoleleolelololole)

001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160

001202

$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRP(C:
$GDADR:
$8DADR:
$GDDAT:
$BDDAT:

000000

000000
000000
000000

.-1100

.WORD
_BYTE
.BYTE
.WORD
.WORD
.WORD
WORD
.BRYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$AUTOB: .BRYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD

00000C
000
000
000000
000000
00000C
000000
000
001

001120
0C1122
001124
001126

SCMTAG:

;;START OF
;s CONTAINS
;;CONTAINS
;:CONTAINS
;s CONTAINS
;:CONTAINS
;. CONTAINS
;s CONTAINS
;;CONTAINS
;s CONTAINS
;s CONTAINS
. CONTAINS
;- CONTAINS

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOL® DATA
ADDRESS OF 'BAD' DATA
°GOOD' DATA
NS
;:CONTAI
'BAD' DATA
NS
;:CONTAI
; ;RESERVED==NCT TO BE USED

;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR
s sADDRESS OF SWITCH REGISTER
. sADDRESS OF

DISPLAY REGISTER

;;TTY KBD STATUS
;:TTY KBD BUFFER
OO~MNO

001116

001100

QOOOQOQO

001100
001100
091102
001103
001106
001106
001110
001112
001114
001115

<207><377><377>
/?/

<15>
<12>

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

ADDRESS
ADDRESS

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

;" 'TERMINAL AVAILABLE'® FLAG (BIT<07> 0 YES)
:;CONTAINS THE ADDRESS FROM
JoWHICH

(SREGO) WAS OBTAINED

::CONTAINS (($SREGAD)+0)
s JUSER DEF INED
:;USER DEF INED
:;USER DEF INED
; JUSER DEF INED
:JUSER DEF INED
s :MAX. NUMBER OF ITERATIONS
;JESCAPE ON ERROR ADDRESS

::CODE FOR BELL
;;QUESTION MARK

;;CARRIAGE RETURN
JJLINE FEED

‘;""'t'tt'..t"tt'tl"'"i'itttfifi'l.!"t.'ltt't.tl!'t‘.lttt"t"'

220

001270

001272
001274

172540
172542
000104
177546

000100
000200
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000690
000000
000000
000000
000000
000000
000000
000060

176700

000254

VL %0 404.00

4-APR-B1

18:08:36 PAGE 7

2
SEQ €019

.SBTTL

USER DEF INED TAGS

$LKCSR:
$LKCSB:
SLPVEC:
$LKS:
SLLVEC:
FPORTA:

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

.SBTTL

RH/RM UNIBJUS AND VECTOR ADDRESSES

$RMADR:
:
$RMVEC

.WORD
-WORD

PORTRB:
PORTC(:

ASR1:
PTINBR:
SEIZPT:
OPPRT:
TSTNUM:
CKERR:
NOSEIZ:
RELERR:
TIME:
WATCH:
TIMEA:
TIMEAP:
TIMERB:
TIMEBP:

172540
172542
104
177546
100

[eolelololololololololalalolelolalols]
o]

¥ V]

NINIODN)
b b b

[+ X S NT Yo W

d o
oD md
e
d oD
—

NININNININON)

33828838

IRMSBO R%05/3/2 v PCR ST ¢
JSER DEF (NED TAGS

176700
254

;ADDR
;ADDR
;ADDR
;ADDR
;ADDR

OF
OF
OF
OF
OF

KW11-P
kW11-P
KW11-P
KW11-L
KW11-L

STAT!S REGISTER
COUNTER BUFFER
VECTOR
STATUS REGISTER
VE(CTOR

;ADDRESS OF PORT A
;ADDRESS OF PORT B
sADDRESS OF DIFFERENT DRIVE
;ATA-A OR ATA-B =

;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUIS
;CONTAINS THE ADDRESS OF THE SEIZING PORT
;CONTAINS THE ADDRESS OF THE °‘OPPOSITE® PORT
;NUMBER OF THE CURRENT TEST
;IF =1, A REGISTER MISCOMPARISON OZCURRED

;IF =1, THE PORT IN 'SEIZPT' DID NOT SEIZE THE DRIVE
;JIF =1,

THE PORT IN 'SEIZPT'

JELAPSED TIME COUNTER

DID NOT RELEASE

THE DRIVE

;WATCH DOG TIMER LOCATION

;THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A
;PORT A TIMEQUT VALUE
;THE

TIMEOUT ONE=~SHOT

+ 25%

VALUE MEASURED

JPORT B TIMEOUT VALUE + 25%
JSINGLE
s CHANGE

TEST INDICATOR
THE RH/RM ADDRESS

;RH/RM UNIBUS ADDRESS
JINTERRUPT VECTOR ADDRESS

INDICATOR

THROUGH POR(

CIRMSBO RMOS/3/2 D BUR TST 2

ERROR PCINTER TAR
E

MACRD vD6.00

4-APR-B7

.SBTTL

SEQ (020

ERROR POINTER TABLE

;*TH]IS

;*THE

18:08:36 PAGE 8

TABLE

(ONTAINS

THE

INFORMATION FOR EA(H ERROR

INFORMATION IS OBTAINED BY USING THE

THAT

(AN OCCUR.

INDEX NUMBLR FOUND IN

:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT,
:*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP(C).

«NOTEZ2:
e
I

;e
;*
:

001276

5 0C1300
6 001302
g 001304

}g 001314

020501

023244
024614
025034

EM1

:DRIVE

EM2
DHZ2
DT2

;WRONG DRIVE

:PORT SELECT SWITCH ON DRIVE NOT

DH1
DT1
DF 1

020547
(023315
024630

025041

EM3

5} 001324

025034

DF1

023244
024614

DH1
DT

(20642
023315
024630
025041

TYPE

IN *A/R'

EM4
DHZ2
pT2
DF2

:DRIVE NGT ON LINE

EMS

:SERJA. NUMBER READ THRGUGH EACH PORT NOT THE SAME

:TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS

:ERROR 5
020664

02337
(024646
(025047

DHS
DTS
DFS

:ERROR 6

39 001346

020746

EM6

41 001352
&2 001354

024662
(25054

D16
DF6

40 001350

BIT SET)

:ERROR 4

33 001340
34 001342
32 001344

('NED'

:ERROR 3
020570

32 001336

IS NON~EXISTENT

DF2

18 001316

25 001326
26 001330
27 001332
Sg 001334

::POINTS TO THE DATA
::POINTS TO THE DATA FORMAT

DT
DF

;ERROR 2

}9
19 001320
20 001322

::PGINTS TO THE ERROR MESSACE
::POINTS TO THE DATA HEADER

sERROR 1

13
11 001306
12 001310
13 001312

EM
DH

$ERRTR:

§
4 001276

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

023440

DH6

“IRMSBO RMOS/3/2 DL POR TST 2

ERROR POINTER TABLE
43
ag

MAZRC v04.00

4-APR-81

18:08:36 PAGE 8-1

;ERROR 7

46 00135¢

021020

EM7

gg 001364

025057

DF?7

47 001360
48 001362

023467
024672

s TIMEQUT ONE-SHOT IS LESS THAN 500 MS

;ERROR 10

53 001366
S5& 001370
55 001372
59 001376

021065
023244
024614
025034

EM10
DH1
DT1
DF1

SREADIN PRESET DOES NOT SET VOLUME VALID FOR “HE PORT?

:ERROR 11

ég
60
61
62
22

DH7
D17

001376
001400
001402
001404

021153
023244
024614
025034

67 001406
68 001410
69 0014612
;? 001414

EMi1
DH1
DT
DF1
;ERROR 12

021220
023244
024614
025034

Emi2
DH1
DI
DF1

021267

EM13

76 001422

024704

D113

;g 001424

023534

025054

81 001426
82 001430
83 001432
gg 001434

89 001440
90 001442
g; 001444

021354
023611
024714

025063

;DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD (OMMAND

DF6

EMI14
DH14
DT14

ATTENTION BIT SET ON "OPPQSITE PORT' AFTER UNLOAD

DF14

:ERROR 15

021436
023244
024614
025034

gz
95 001446
96
97 001450
98 001452
99 001456

DH13

;ERROR 14

88 001436

JINCORRECT STATUS DURING UNLDAD COMMAND

;ERROR 13

74 001416

75 0014620

;"GO BIT RESET DURING UNLOAD COMMAND

EM15
DH1
DT
DF1

SATTENTION BiT NOT SET ON PORT WHICH ISSUED 'UNLOAD'

JERROR 16
021522

EM16

023534
024704

DH13
pT13

025054

DFé6

:DRIVE NOT [N NEUTRAL AFTER UNLOAD wilH *PORT
JSELECT® SWITCH MOVED FROM *A/B’*

SEQ G021

ZRMSB0 RM05/3/2 DU POR T1ST 2

001466
001470
001472

001474

021041
023730

024732
025071

EM17
DH17
DT17
DF17

SEQ 0022

:DRIVE LOCKED ON PORT

‘A" BY SWIT(H WHILE CYCLED UP

:DRIVE LOCKED ON PORT

'B' BY SWIT(H WHILE CYCLED UP

;ERROR 20

021724
023730
024732
025071

EM20
DH17
D117
DF17
;ERROR 21

001476

022007
023244
024614
025034

EM21
DH1
DT1
DF1

;STATUS

INCORRECT FOR PORT AFTER CYCLE UP

JERROR 22
022060
023244
024614
025034

EM2?
DH1
DT
DF1

JREGISTER

CONTENTS

SEEN WHEN DRIVE

SWITCHED ON

°*OPPOSITE'

;ERROR 23
022156
023244
024614
025034

EM23
DH1
DT1
DF1

J'NED" SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED

;ERROR 24

00153¢
001534

022251
023747
024740
025057

EM24
DH24
D124
DF?7

sDRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/

JERROR 25
001536

001540

147 001542

148 001544
149
158

001546
001550
001552
001554

022331

024052
024752

025073

EM25
DH25
D125

JRH/RM DIDN'T RESPOND TO ADDRESSING

DF 25

JERROR 26
000000
000000
000000
000000

DOOO

001456
001460
001462
001464

B e
kD — ekt =
ek _p
h
b
ab
b
b
n bk
b
B
ot
b
b

4-~APR-81 18:08:36 PAGE 8-2

;ERROR 17

D ek e

b ok

b D ek

s 4 2 ed b b by =
B BN B3N
BN 3 BN
N
R
NN AN N NINLNIND ~n) PUPOPUNOND
NTe wn S WNV2O0V
OB W —=OPONO
N
=0R ole
NN W O

b D

d oD d b

b d

88 EFRAIN2K

ERROR POINTER TABLE

MACRO v04.00

JUNUSED ERROR MESSAGES

PORT

TIRMSBO RMOS/3/2 DU POR TST 2
ERROR POINTFR TABLE

MACRDO v04.00

4-APR-B7

1B:08:36 PAGE 8-3

SEQ 0023

:ERROR 27

001556

000000
000000
000000
000000

0
0
0
0

JUNUSED ERROR MESSAGES

:ERROR 30

022374
024061
024756
025074

EM30
DH30
DT30
DF 30

;DRi1VE NOT SEIZED BY PORT

'N'

;WRONG STATUS

SEIZING PORT

001576
001600
001602
001604

022425
023315
024630
025041

001606
001610
001612
001614

022473
023315
024630
025041

il
D
)
D
D
D e
D e

[0 ]34 To .}

D o
)
e

DH2
D72
DF2

SEEN BY

THE

EM32
DH2

JREGISTER CONTENTS INCORRECT

DT2
DF2
s ERROR 33

001616

001620
001622
001624

022523
023244
024614
025034

EM33
DH1
DT

;CONTROL BUS PARITY ERROR WHILE READING REGISTER

DF?

;ERROR 34
001626
001630

001632
001634

022607
024203
024776
025103

EM34
DH34
DT34
DF 34

;CAN'T ACCESS DRIVE THROUGH EITHER PORT

s ERROR 35

el
) e
)
—

199

tM31

;ERROR 32

) ek ok =D e

D —d

008323828 V0NN
Q00000000000
WA= 00~y
OO0
N NN
NON NI
NNNN
AN —
N

;ERROR 3

022656
024277
025010
025057

EM35
DH35
D135

;DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET

DF7

-ERROR 36

022743
024277
025010
025057

EM36
DH35
D735
DF?7
;ERROR 37

;DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET

“ IRMSBO RMO5/3/2 DU POR 1ST 2

ERROR PNINTER TABLE

333

388

=N
QD NO NN

023030
024374
024756
025074

4-APR-81

EM37
DH37
D30
DF 30

L
2
18:08:36 PAGE 8-4

SREGISTER CONTENTS INCORRE(CT AFTER RELEASE/TIMEOUT

SERROR 40

001666
001670
001672
001674

023111
024516
025022
025057

223
224 001676
225 001700
226 001702
227 001704
228

EMLO
DH40
D140
DF7

:DRIVE NOT SEIZED By PORT AFTER RELEASE WITH REQUEST SET

;ERROR 41

AN IAS 1A LaV 1

V1aV]

209
210 001656

MACRO 104.00

023166
024061
024756
025074

EM41
DH30
DT30
DF 30

JREGISTER WRONG AFTER RELEASE WITH REQUEST SET

SEQ 0024

(ZRMSBO ’M(5/3/2 DU POR T1ST 2

ERROR PGINTER TABLE

MACRDO v04.00

;

4-APR-81 18:08:36 PAGE &

;THIS ROUTINE

3001706

011600

BADTM0O: MOV

5 001712
6 001716

022626
106401

cTMp
TYPE

& 001710

001720

001760

7 001760

8 001762
9 001764
;?

005740

000417

001722

::65%:
¥
YA

010046

104402
000240

14 001766
;2 001772

005037
000403

001270

%g 0C1774

01273/

177777

19 002002

000240

20 002004

005227

S% 002012

0C0005

21 002010

001375

001270

012706
005026
022706
001374
012706

001100

002034
002042
002050
002056
002064
002072

012737
012737
012737
012737
012737
012737

013620
000340
014202
000340
017540
000340

0C2106
002112
002116
002124
002132

005037
005037
112737
012737
012737

0N1176
001200
000001
002124
002132

002140

013737

000004

Q12737
022777
001012

177570
177777

012737
012737

002176
002200

000403
012716

002160
002166
002174

001100

0137246

002144
002152

002200
177570

002206

;SETUP FOR TYPING OUT PC

START:

(LR
BR

IF YOU WISH

CHGADR
START?

;CLEAR THE °‘CHANGE RH/RM ADDRESS'
;GO TO THE START

#-1,CHGADR

;SET THE

sTTY LOOP, WAIT FOR INCREMENT

‘CHANGE RH/RM ADDRESS'

INDICATOR

:OF WORD

;CLEAR THE WORLD

INITIALIZE THE COMMON TAGS

:;CLEAR THE COMMON TAGS ($CMTAG) AREA

001140

013224

;sGET OVER THE ASCIZ

JPUT *HALT(0)' INSTRUCTION HERE
;70 STOP ON UNEXPECTED TIMEOQUT.

START OF PROGRAM

INC

;ADJYUST PC =2

<CRLF>/UNEXPECTED BUS TIMEOUT, P(C=/

SBTTL

.SBTTL

002100

RO, -(SP)

RESET

002014
002020
002022
002026
002030

:RESTORE STA(K POINTER
;s TYPE ASCIZ STRING

MOV

B8NE

(SP)+,(5P)+
.65%

643

START2: NOP

000000

TIMEQUTS

sSAVE PC WHERE THE TIME QUT OCCURED

B8R

START1: MOV

SEQ 0025

(SP) ,RO

-(RO)

TYPGC
NOP

HANDLES UNEXPECTED

TST

_ASCIZ

000020
000022
000030
000032
000034
000036

MOV
#SCMTAG,R6
;sFIRST LOCATION TO BE CLEARED
CLR
(R6)+
;¢ CLEAR MEMORY LOCATION
cMp
#SWR RO
;;DONE?
BNE
)
;:LO0P BACK IF NO
MOV
#STACK , 5P
;:SETUP THE STACK POINTER
JoINITIALIZE A FEW VECTORS
MoV
#SSCOPE ,a#]OTVEC ;. IO0T VECTOR FOR SCOPE ROUTINE
MOV
#3640, aN10TVEC+2 ;;LEVEL 7
MOV
#SERROR ,a#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE

#3640, aNEMTVEC+2 ;;LEVEL 7

MOv

$SENDCT, $EOPCT

MOV
MOV

013216

001115
001106
001110

MOV

#STRAP,a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340, ¥ TRAPVEC+2;LEVEL 7

s SETUP END-OF -PROGRAM COUNTER

CLR
CLR
MOVB
MOV
MOV

$TIMES
$ESCAPE
#1,SERMAX
#..SLPADR
#.,8LPERR

;o INITIALIZE NUMBER OF ITERATIONS
;sCLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
;;SETUP THE ERROR LOOP ADDRESS

Mov

A#ERRVE(C ,-(SP)

;.SAVE ERROR VECTOR

MoV
cmp
BNE

#DDISP,DISPLAY
#-1,aSWR
66%

;:AND A HARDWARE DISPLAY REGISTER
;:TRY TO REFERENCE HARDWARE SWR
;JBRANCH IF NO TIMEQUT TRAP O(CURRED

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
J:EQUAL TO A "=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.

000004
001140

MoV
mMov

001142
176744

64%:

BR
MOV

#6463, INERRVE(
#DSWR, SWR

65%
#65%, (SP)

:2SET UP ERROR VECTOR
;:SETUP FOR A HARDWARE SWI(CH REGISTER

:;AND

THE HARDWARE SWR [S NOT - ~1

;:BRANCH IFf NO TIMEOUT
;:SET UP FOR TRAP RETURN

(ZRMSBO RM0S5/3/2 DU POR TST 2
INITIALIZE

THE COMMON TAGS

MACRO v04.00

002204
002206
002214
002222

000002
012737
012737
012637

000176
000174
000004

001140
001142

26 002226

012737

001706

000004

Sg 002234

012737

000300

66%:

MOV

MOV
.SBTTL

002242
002246

005227
001037

002256
002260

001433
104401

002250

002264
002346

002346
002352
002354
002362
002364
002366

002370

30 002376
31 002376
32 002402
33 002406
34 002412
35 002414
36 002420
37 002426
38 002430
39 002434
40 002436
002644
002450
002456
002462
002466
002472
002476

022737

000430

005737
001006
023727
001005
104406
000403

013366

000042

000042
000176

112737

0000017

001134

004737
004737
104401
104412
012637
023727
101403
104401
000760
013737

016044
002774
017626

005237
042737
013746
042716
052637
104401
013746

104403

4«8 002506
49 002512

104401
013746

002516
002520
2521
50 0025272

104403
001
000
04401

001
000

001224
001224

001226
000016
001224
177771
001226
017700
001224

#PR6 ERRVEC+2

TYPE PROGRAM NAME

SETUP FOR UNEXPECTED TIMEOUT

;LEVEL 6

THE PROGRAM IF

INC
BNE

#-1
67%

BEQ
TYPE

67%
.68%

#SENDAD , a#42

FIRST PASS

s sFIRST TIME?
s sBRANCH IF NO

J:ACT=11?

;;BRANCH IF YES
;. TYPE ASCIZ STRING

.SBTTL

GET VALUE FOR SOFTWARE SWITCH REGISTER

69%:

70%:

000007

001226

#BADTMO,ERRVEC

BR
.ASCIZ

1%:

001226

SEQ 0026

é%gSS:

017655

001226

#SWREG, SWR
:;POINT TO SOF TWARE SWR
#DISPREG,DISPLAY
(SP)+ Q#ERRVEC
; RESTORE ERROR VECTOR

THE NAME OF

cMP

002266

001140

002502

002504
002505

:;TYPE

177777

RTI
MOV
MOV
MoV

18:08:36 PAGE 9-1

;SETUP *‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

000006

41
42
43
44
45
46
47

658:

&-APR-81

2%:

67%
;.GET OVER THE ASCIZ
<CRLF>QLZRMSBO - RM05/3/2 DUAL PORT LOGIC TEST, PT 2a<(RLF>

TST
BNE
(MP
BNE
GTSWR
BR
MOvVB

el
69%
SWR,#SWREG
708

#1,$AUTOB

;s SET AUTO-MODE INDICATOR

JSR
JSR
TYPE
RDOCT
MOV
CMP
BLOS
TYPE
BR
MoV

PC,$TKINT
PC, CHANCE
LENTERA

;SETUP THE TTY KEYBOARD
s CHECK/CHANGE THE RH/RM ADDRESS
;ENTER DRIVE ADDRESS
;GET THE ADDRESS
sSTORE THE ADDRESS
;SEE IF ADDRESS TOO LARGE
;BR IF NOT
;TYPE ADDRESS ERROR MESSAGE
:TRY AGAIN
;GENERATE THE PORT B8 ADDRESS

INC
BIC
MoV
BIC
BIS
TYPE
MoV

TYPOS

BYTE
BYTE

70%

(SP)+ ,PORTA
PORTA,#7
2%
.ADRERR
1%
PORTA,PORTB
PORTB
#16 ,PORTB
PORTA,=(SP)
#~C6,(SP)
(SP)+,PORTB
.PORTAIS
PORTA,~(SP)

1
O

017727
001226

TYPE
MOV

,PORTBIS
PORTB,-(SP)

001207

TYPOS
BYTE
BYTE
TYPE

1
O
SCRLF

;:ARE WE RUNNING UNDER XXDP/ACT?
2 sBRANCH IF YES
;s SOFTWARE SWITCH REG SELECTED?
s ;BRANCH IF NO
;:GET SOFT-SWR SETTINGS

; INCREMENT THE ADDRESS
;LEAVE BIT 0
cPUT PORT A ADDRESS ON THE STACK
;SAVE BITS 1 8 2
;SET BITS 1 & 2 IN PORT B ADDRESS
;'PORT A ADDRESS IS '
;;SAVE PORTA FOR TYPEOUT
;. TYPE PORT A ADDRESS

::G0 TYPE=-OCTAL ASCII

;;TYPE 1 DIGIT(S)
; : SUPPRESS LEADING ZEROS
:'PORT B ADDRESS IS '
;;SAVE PORTB FOR TYPEOUT

;;TYPE PORT B ADDRESS

;:G0 TYPE--OCTAL ASCII
;:TYPE 1 DIGIT(S)
;. SUPPRESS LEADING ZEROS
;ANOTHER CR-LF

JNMSBC RMOS5/3/72 DU POR TST 2

vALUE

51
§52
53
S4&
55

FOR SOF TWARE

002526
002534
002542
002550
002556

58 002562

002566
002572
002576
59 002602
60 002606
61 002612
62 002616
22 002620

013737
062737
042737
013707
116137

005037

005037
005037
005037
004737
000137
104401
000000
000776

MATRO v04.00

SWiT(~ REGISTER

001224
000006
177770
001224
025130
001256
001260
001262
001264
C13406
002622
017756

001230
001230
001230
001232

:ROUTINE

67 002622
68 002624
69 0C2630
70
71
7g
73
764
75

000005
005037
104401

013700
012706
004737
000240
004737
005037

016044
001266

77 002666
78 002674

112737
012737

000001
002674

76 002662

005037

79 002702
80 002710
81 002714
82 002716

012737
104401
104412
012601

84 002722
85 002726
86 002732
87 00¢73
88 002740
89 002742

000137
020137
003403
104401
000763
005301

83 002720

002744
002746
002754
002760
002766
002772

001002

006301
016137
005237
012737
000177
000000

001272
001100
013406

001100

002702
020023

1%:

2%:

020043

3%:
025110
001266
000001
000000

002772
001104

4%:

B 3
18:08:36 PAGE 9-2
PORTA,PORT(
#6 ,PORT(C
#~C7 ,PORT(
PORTA R
ATABIT(R1) ,ASR1
TIMEA
TIMEAP
TIMEB
TIMERP
PC,KCLK
EXEC
LNOCLOCK

TO GET THE

RESET
CLR
TYPE

SEQ 0027

;GENERATE ADDRESS OF DRIVE NOT TESTED
;COMPLEMENT SOME BITS
;SAVE ONLY LOWER BITS
JUSE PORT A ADDRESS AS INDEX
;GET ATTENTION BIT FOR DRIVE
;CLEAR TIMEOQUT ONE-SHOT VALUE LOCATION
JCLEAR TIMEOUT CNE=-SHOT VALUE LOCATION
;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION
;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION
;SETUP CLOCK
;CLOCK HAS SEEN STARTED
:NO CLOCK ON SYSTEM
;FATAL ERROR
;INTERLOCK THE HALT

TEST NUMBER FROM THE OPERATOR

PS
LSCRLF

;CLEAR EVERYTHING
;CLEAR THE PROCESSOR STATU: WORD
;CR=LF

MOV
MOV
JSR
NOP
JSR
CLR

$RMADR RO
#5TACK,SP
PC,CKCLK

PC.STKINT
KYBCTL

:RH/RM ADDRESS FOR INDEXING
:LOAD STACK POINTER
;START THE CLOCK
CRETURN IF NO CLOCK
JINITIALIZE THE KEYBOARD
;CLEAR SINGLE TEST INDICATOR

MOVB
MOV

#1,SERMAX
#.,SLPADR

JSET ERROR MAX T0O 1
JINITIAL SETTING FOR LOOP ADDRFSS

BNE

pd 3

MoV
TYPE
RDOCT
MOV

JMP
CMP
BLE
TYPE
BR
DEC

ASL
Mov
INC
MOV
JMP
.WORD

$PASS

#..8LPERR
LTESTNO

;CLEAR THE PASS COUNT

(SP)+,R1

JINITIAL SEYTING FOR LOOP ON ERROR ADDRESS
;ASK FOR TEST NUMBER
;GET THE NUMBER
;PUT ENTRY INTO R1

ST
R1,MAXTN
3s
,BADNO
1%
R1

;ENTER ZERO -~ PERFORM ALL TESTS
;SEE IF NUMBER GREATER THAN MAXIMUM
;BR IF LESS OR EQUAL
BAD ENTRY
:TRY AGAIN
;DECREMENT ENTRY

R1
TSTADR(R1) .4%
KYBCTL
#1,81CNT
@48
0

;BR ]F NOT ZERO

JSHIFT IT LEFTY
;GET THE TEST ADDRESS
;SET SINGLE TEST INDICATOR
;PRESET ITERATION COUNT
;GO TO THE SELECTED TEST
;TEST ADDRESS GOES HERE

; CHANGE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM

99 002774
100 003000
101 003002

005737
001421
005037

103 003012
1064 003016

013746
104402

106 003024

104401

105 003020

001110

MOV
ADD
BIC
MGV
MOvB
CLR
CLR
(LR
(LR
JSR
JMP
TYPE
HALT
BR

CLR

001115
001106

003122
025140

102 003006

EXEC:

177776
001207

002634
002640
002644
002650
002652
002656

90
91
92
93
94
gg

4-APR-87

001270
001270

1044017

020072

104401

001207

001272

020127

CHANGE:

1$8:

TST
8EQ
(LR

CHGADR
3s
CHGADR

; CHANGE THE ADDRESS ?
;BR IF NOT
;CLEAR THE INDICATOR

MoV
TYPOC

$RMADR, - (SP)

;PUT THE ADDRESS ON THE STACK
;TYPE THE ACTUAL ADDRESS

TYPE

NTRH

TYPE

JADDRIS

L$CRLF

:TYPE QUT WHAT THE PRESENT ADDRESS IS
;CR-LF

;ASK FOR NEW ADDRESS

IRMSBO RM(S5/3/2 Du POR TST ¢

VALUE

FOR SOFTWARE

'07 003030

SWITIW KREGISTER

RDOCT

001402

8tQ

005716

110 003036

011637

001272

012737

003064

111

003042

005726

113 003052

013700

112 003044

114 003056

115 003062

116 003064

003064

117 00306§

118 003077
119 003074

120 003102

4-APR-81

104412

108 003032
109 0030346

MACRC v04.00

005760

000/

1040/

062706

000745
012737

000207

TS7Y

001272

0000046

2%:

3%:

000002
4%:
D000u4

000006

ON0O004

5%:

MOV
TST

c
3
18:08:36 PAGE 9-3

(SP)

;0 OR 'CR' ENTERED ?

(SP) ,$RMADR

;NEW RH/RM ADDRESS

;GET RH/RM ADDRESS

RMW( (RO)

;LOAD

TRAP ADDRESS

<RESPONDS AT

+BR IF YES

ADD

#4,SFP

<RESET

RTS

;RETURN

B8R
MOV

(NO ADDRESS CHANGE)

$RMADR RO

EMT

EITHER ENTERED

JCORRECT THE STACK POINTER

868, a6

B8R

;BR IF

(SP)+

MOV

SEQ 0028

13
#6244

THAT ADDRESS ?

THE STACK POINTER

;GET ADDRESS AGAIN
JRESTORE THE VECTOR

QO NN

MATRO vD4.00

4-APR-B1

013700
012746

01746

000002

001272
000240
003122

TST1AA: MOV

MOV

SEQ 0029

RTI

:
€48

AT AR

SRMADR RO

::RESTORE RO AFTER END OF PASS

#6483, ~(SP)

:sPUT NEW PC ON

#PRS,~(SP)

MOV

18:08:36 PAGE 10

TESTS

LSBYTL

RN A AR TR

SRTEST 1

A AN

;:PUT NEW PS ON STACK

STALK

. sPOP NEW PC AND PS

ARN PRI AP AR

RN ANN P ARNANANAN RN

O R NN

DRIVE ACCESS TEST

]

2R B

005737
001406

001266

000137

002€22
177777
003160
003160

100002

003200

1571

001266
001106
001110

VERIFY THAT

THE DRIVE

]S PRESENT,

THAT

THE

TEST

SERIAL NUMBER READ

IS REPEATED

THROUGH BOTH PORTS

THROUGH BOTH PORTS.

s s AR

003122
003122
003126
003130
003132
003136
003144
003152
003160
003160
003166
003172

SELECT DRIVE,

DRIVE IS A DUAL PORT RMO5, RMO3 OR RM0O2 AND THAT THE DRIVE
1S ONLINE (RMDS HAS 'MOL', 'PGM', 'DPR', & 'DRY' BITS SET),
AND THE THE DRIVE
THE SAME.

TRTE 7Y "% T

P*VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS

b e
—

Mey

SBO RM05/3/2 DU POR 1ST 2

1%:

2%:
TESTY:

R R

AT AR AR A A AAR A AR

A RA RN

AR AN

ARARRANRNRANARRRAR RN

TST

KYBCTL

;PERFORMING ONLY SINGLE

Mov

#-1 ,KYBCTL

SET SINGLE TEST

BEQ
8PL
JMP

2%
1%
EXEC

#1,$TSTNM
#STACK,SP
#1,8TIMES

;MOVE #1 TEST NUMBER
;SETUP THE STA(CK POINTER
;DO 1 ITERATION

#CLR,RM(S2(R0)

;CLEAR MASSBUS

001176

MOVB
MOV
MoV

000040

000010

MoV

INDICATOR

ATEST1,$LPADR
HTEST1,8LPERR

001102

TESTS

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

MOv
MOV

000001
001100
000001

;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

;VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A § B

003206
0C3214
003222
003226
003232
003240
003246
003252
003256
003264
003272
003300
003302
003310

003316
003324
003326

113760

013737
005760
005037
016037
012737

001224
001224
000012
001244
000010
000010
001122
001124
001126
167777
001124

000010
001234

001126
010000
001174

001174
001174
001124

0C12464

001126
001122

001164
001164
001164

MCVB

PORTA ,RMCS2(R0)

TST

RMDS (R0O)

MoV

CLR
MOV
MOV
ADD
CLR
MOV
8IC
(MP
BEQ

MOV

PORTA,PTNBR

;SELECT PORT A

;MOVE PORT ADDRESS TO LOCATION FOR TYPECGU~TM

;JSEE IF DRIVE (PORT A) PRESENT

(KERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMCS2(RO) ,$BDDAT
;GET CONTENTS OF RMCSZ2
#RMCSZ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT , $TMPO
;MOVE REGISTER CONTENTS TO '$TMPO'
#~CNED,$TMPQ
;SAVE SPECIFIED BITS
$GDDAT ,$TMPQ
;COMPARE THE BITS
648
:BR IF OK

BIC
%1?

#NED ,$TMP4
%TMPA,SGDDAT

$BDDAT, $STMP4

;COPY ‘BAD DATA’

(KERR

;SET THE REGISTER (OMPARE ERROR INDICATOR

;CLEAR THE MASKED BITS
;'OR" WITH GOOD DATA FOR TYPECUT

JRMSBO RM05/3/2 Dy POR IST 2
o
DRIVE ACCESS TEST

000240
005737
001403
012760
113760

013737
005760
005037
016037
612737
06C .37
005037
013737
062737
023737
001414
012737
042747
053737
104001

003502

34
«0

003504

005137
000240
005737
001403
012760

MACRC v06.00
64%:

001244
000040
001226
001226
000012
001244
000010
000010
001122
001124
001126
167777
001124

001164
001164
001164

001126
010000
001174

001174
001174
001124

001126
001122

000040

TS7

ADD

CLR

MOV

BI(
{Mp
BEQ

MOV

BIC
BiS

66%:

01244

NOP
BEQ
MOV
MovB
Mov
TST
CLR
MOV
MOV

000910
000010
001234

001244

4-APR-BT

EMT
oM
NOP
TST

BEQ

000010

MoV

3
E
18:08:36 PAGE 10-!

(KERR

SEQ 0050

;WAS

.+10

°NED'

;BR JF NOT

#CLR RM(S2(RO)

SET

ISSUE MASSBUS

INIY

TO CLEAR

°'NED’

PORTB, RM(SZ2(R0O)
;SELECT PORT B
PORTB_PTNBR
MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
RMDS (R0)
;SEE IF DRIVE (PORT 8) PRESENT?
CKERR
JCLEAR THE °'CHECK ERROR' INDICATOR
RMCS2(RC) ,$BDDAT
;GET CONTENTS OF RM(S?
ARMCS2,8BDADR
FORM REGISTER ADDRESS OF ERROR MESSAGE

RO, $8BDADR

$GDDAT
$8DDAT,$TMPO

#~(NED,$TMPO

$GDDAT,$TMPD
663
$BDDAT ,$TMP4
ANED ,$TMP4

;ADD RH/RM BASE ADDRESS

JWHAT REGISTER SHOULD BE
JMOVE REGISTER CONTENTS 190 °*S$STMPQ*

;SAVE

SPECIFIED BITS

; COMPARE THE BITS
;BR IF OK
;COPY ‘'BAD DATA'
;CLEAR THE MASKED BITS

?TMPA,SGDDAT

;'OR'

WITH GOOD DATA FOR

CKERR

JSET

THE REGISTER COMPARE ERROR

CKERR
.+10

JWAS °'NED' SET ?
;BR IF NOT

H#CLR,RMCS2(R0O)

;ISSUE MASSBUS

INIT

TYPEOUT

TO CLEAR

INDICATOR

'NED'

;CONFIRM THAT DRIVE IS AN RMOS, RMO3 OR RMO2 AND S DUAL PORTED

003512
003520
003526
003532
003540
003546

003552
003560
003566
003570
003576
003600
003606
003610
003612
003616
003620
003626
003634
003640
003646
003654
003660
003666
003674
003676
003704
003706
003714

113760

013737
005037
016037
012737
060037
012737
022737
001413
022737
001407
023737
001403
104002

005137
000240
113760

013737
005037
016037
012737
060037
012737
022737
001413
022737
001467
023737
001403

001224
001224
001244
000026
000026
001122
024027
024024

000010
001234

MOVB
MOV

001126
001122

MOV
MOV
ADD
Mov
(MP

024025

001126

001124

001126

001124
001126

001244

001226
001226
001244
000026
000026
001122
024027
024024

001126
001122

024025

001126

001124

001126

000010
001234

001124
001126

68%:

BEQ
(MP
BEQ
cmp
BEQ
EMY
oM
NOP
MOvB
MoV
CLR
MOV
MOV
ADD
MoV

CMP
BEQ
CMP

BEQ

(MP
BEG

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LGCATION FOR TYPEOUT

(KERR
;CLEAR THE '(CHECK ERROR'
RMDT(RO) ,$8DDAT
;GET CONTENTS OF RMDT

#RMDT ,$BDADR

RO, $8BDADR

FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS

#024027 .$GDDAT
#024024 ,$8DDAT

;WHAT REGISTER SHOULD BE
;DUAL PORT RMQ3 ?

#0264025,8BDDAT

;DUAL PORT RM0Z2 ?

68%

JYES

INDICATOR

ERROR MESSAGE

68%
$GDDAT, $BDDAT
883

JYES !
;1S THE REGISTER 0K °?
;BR IF 0K

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

PORTB,RM(S2:R0)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CKERR

RMDT(RO) ,$BDDAT
#RMDT ,$BDADR

RO, $BDADR
#024027 ,3GDDAT
#026024 ,$8DDAT
70%
#024025 ,$BDDAT
70%
$GDDAT ,$RDDAT
70%

;CLEAR THE

'CHECK ERROR®

;GET CONTENTS OF RMDT

FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS
:WHAT REGISTER SHOULD BE
;DUAL PORT RM03 ?
JYES ¢!
;DUAL PORT RMOZ2 °?
JYES !
;IS THE REGISTER OK °?
;BR IF 0K

INDICATOR

ERROR MESSAGE

’RMSBU RMOS5/3/2 DU POR TST 2

DRIVE

ACCESS TEST

003716
003720
303724

005137
000240

104002

MACRC v04.00

001244

70%:

4-APR-B1
EMY
oM
NOP

18:08:36 PAGE 10-¢
2

CKERR

SEQ 0031

;SET

THE REGISTER (OMPARL

ERROR

INDICATOR

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

42
48 003726

003734
003742
003746
003754
003762
003766
003774
004002

004010
004016
004020

004026
004034
004042
004044
004050
004052
004056
004064
004072
00407¢
004104
004112
004120
004126
004130
004136
004144
004152
004154

113760

013737

005037
016037
012737
060037
012737
013737
042737
023737
007414
013737
042737
053737
104003

005137
000240
005037
016037
012737
060037
012737
013737

001224
001224
001244
000012
000012
001122
001000
001126
176777
001124

000010
001234

001126
001000
001174

001174
001174
001124

023737

013737
0452737
053737

001126
010600
001174

001244

004162
004170
004176
004202
004210
004216
004222
004230
004236
004244
004252
004254
0046262
004270
004276

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

004 306
006312

000240
005037
016037

004160

004 300
004304

042737

001414

104004

005137

001126
001122

001226
001226
001244
000012
000012
001122
001000
001126

MOV

72%:

001126
001122

001174
001174
001124

000010
001234

74%:

001174
201174
001124

001244

NOP
MOVB
MOV
MOV
MOV
ADD
MOV

001126

BIC
cmp
BEQ
MOV
8I(
8IS
EMT
(oM

CLR

001126
001122

001126
001000
001174

Bi(C
BIS
EMT
(oM
NOP
CLR

MOV
MOV
ADD
MOV
Mov

001124
001164
001164
001164

001124

001244
000012

Mov
MOV
BIC
cmMp
8EQ

001164
001164
001164

001124
001164
001164
001164

176777

mMov
MOV
ADD

001124

001244
001244
000012
000012
001122
010600
001126
167177
001124

MOVB
MOV
CLR

MOV
BIC
(MP
BEQ
MOV
BI(
BI1S
Emi
(oM
NGP
(LR
MOV

PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR

RMDS
(RO) ,$8BDDAT

,GET CONTENTS OF

$BDDAT, $TMPO

;MOVE REGISTER CONTENTS TO

#RMDS ,$8DADR
RO, $BDADR
#PGM,SGDDAT

#~CPGM,$TMPQ

$GDDAT , $TMPO
72%

RMDS

;FORM REGISTER ADDRESS OF ERROR MESSAGE
-ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
;SAVE

SPECIFIED BITS

;COMPARE THE BITS
;BR IF 0K

$8DDAT , $TMPSL

;COPY 'BAD DATA'

H#PGM, $TMP4

;CLEAR THE MASKED BITS

§TMP4,$GDDAT

;'OR*

WITH GOOD

DATA FOR

(KERR

;SET

CKERR
RMDS (RO) ,$BDDAT

;CLEAR THE 'CHECK ERROR'
;GET CONTENTS OF RMDS

#RMDS ,$BDADR

‘'$TMPO’

TYPEOQUT

THE REGISTER COMPARE ERROR

;FORM REGISTER ADDRESS OF

INDICATOR

INDICATOR
ERROR MESSAGE

RO, $BDADR
;ADD RH/RM BASE ADDRESS
#MOL ! DPR!DRY, $GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO '$TMP(O’
#*C10600,$TMPO
;SAVE SPECIFIED BITS

$GDDAT , $TMPO

;COMPARE

THE BITS

74%
$8DDAT, $TMPL
#70600, $TMP4
2TMP4.$GDDAT

;BR IF 0K
.COPY 'BAD DATA'
;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FGOR TYPEOUT

CKERR

;SET

PORTB,RMCS2(R0O)>
PORTB,PTNBR

THE REGISTER COMPARE EKROR

SELECT PORT B

;MOVE

PORT ADDRESS

TO LOCATION FOR

(KERR
RMDS(RO) ,$BDDAT

;CLEAR THE °'CHECK ERROR'
;GET CONTENTS OF RMDS

RO, $BDADR

;ADD RH/RM BASE ADDRESS

#RMDS ,$BDADR
#PGM,SGDDAT

$BDDAT , $TMPO

#*CPGM.$TMPO

$GDDAT , $TMPO
763
$BDDAT, $TMPS

;FORM REGISTER ADDRESS OF

WHAT

gTMP4.$GDDAT

SPECIFIED BITS

TYPEOUT

INDICATOR

ERROR MESSAGE

;MOVE REGISTER CONTENTS TO

:SAVE

#PGM, $TMP4

INDICATOR

"$TMPO'

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

;'OR*

THE MASKED BITS

WITH GOOD DATA FOR TYPEQUT

CKERR

JSET THE REGISTER COMPARE ERROR INDICATOR

CKERR

;CLEAR THE

RMDS
(RO) ,$BDDAT

;GET

*CHECK ERROK'

CONTENTS OF

RMDS

INDICATOR

CJeMSBU RMOS/3/2 DU POR 157 2
DRIVE

ACUCESS TEST

004320
004326
Q063532
004240
004346
006354
004362
0064364

012737
060037
012737
013737
042737
023737
0014614
013737

004400
004406

053737
1046004

004372

04410

5 004414

042737

005137

000240

MATRC v06.00

000012
001122
010600
001126
167177
001124

001124
001164
001164
001164

001126

001174

001124

010600

001122

001174

001244

G
3
"B:0B:36 PAGE 10-3

SEQ 0032

MOV
ADD
MoV
MOV
B8IC
cmMpP
BEQ
MOV

#RMDS ,$BDADR FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $RDADR
<ADD RH/RM BASE ADDRESS
MMCL 'DPR!DRY,SGDDAT
;WHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
JMOVE REGISTER CONTENTS TO *'STMPQ’
#~C10600,$TMPO . SAVE SPECIFIED BITS
$GDDAT ,$TMPO
. COMPARE THE BITS
78%
;BR IF 0K
$BDDAT , $TMPS
:COPY 'BAD DATA'

BIS
EMT

$TMP4 , SGDDAT
4

6IC

com

78¢%:

NOP

#10€600,$TMP4

;CLEAR THE MASKED BITS

CKERR

;SET

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

;VERIFY THAT DRIVE SERIAL NUMBER StEN THROUGH BOTH PORTS IS THE SAME

h2 004416

53
54
55
56
57

4-APR-B7

113760

004424
004432
004440
004446
004454

016037
113760
016037
023737
001406

59 004460
60 004466
61 004470
g% 004472

032777
0C1007
000000
000004

58 004456

104005

001224

00C010

MOVB

100000

174452

BIT
BNE
HALT
SCOPE

000?30
001226
000030
001124

001124
000010
001126
001126

MOv
MOVR
MOV
tMP
BEQ
EMT

1%:

PORTA,RM(CS2(R0O)

RMSN(RO) ,$GDDAT
PORTB,RM(S2(R0O)
RMSN(RO) ,$BDDAT
$GDDAT ,$BDDAT
1%
5

#SW15,aSWR
1%

;SELECT PORT A

;STORE THE PORT A SERIAL NUMBER
;SELECT PORT B
;STORE THE PORT 8 SERJAL NUMBER
JARE THEY THE SAME ?
:BR IF THEY ARE
JHALT ON ERROR ?
;BR IF SET - PROGRAM HAS ALREADY HALTED
JHALT, POSSIBLE CABLE CGNNECTION PROBLEM
;LOOP ?

97
98
.'""."‘"*.".*t*"*".fi.."f.'.""fi"t"*."t"“"‘*""""‘t*"'".‘

SET 'VV' FOR PORT A

J«TEST 2
%

J*SET VOLUME VALID

]ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A.

.+
¥

ISSUE A READIN PRESET COMMAND THROUGH PORT A.
THAT THE °'vV' BIT IS SET FOR PORT A.

‘+
S *
N

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

- %

:‘.'t"'"‘"'."'*.‘*....*"‘*‘*.'...."'"*"""*"‘.'."".""""
TST2:
ST
KYBCTL
;PERFORMING ONLY SINGLE TESTS ?

004474
004474
004500
004502
004504
004510
004516
8822%3

Q05737
001406
100002
000137
012737
012737
012737

001266

0046532

001106

004532
004540
006544

112737
012706
012737

000002
001100
0000CY

0061102

002622
177777
004532

VERIFY

BEQ
BPL

001266
001110

001176

1%:

JMP
MOV

TEST2

MOV

#TEST2.,8LPERR

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

MOVRB
MOV
MOV

#2,87STNM
#STA(CK,SP
#1,87TIMES

sMOVE #2 TEST NUMBER
;SETJP THE STACK POINTER
;:DO 1 ITERATION

2%:

MOV

pid 3
1%

EXEC
#-1,KYBCTL

RTESTZ2,$LPADR

JHMSBG RMGS/3/72 DU POR T1ST 2

SET

‘vv'

004552
004560

FOR PORT A

113760
013737

001224
001226

MACRD v04.00

4-APR-B1

000010
001234

MOV8
MOV

H 3
18:08:36 PAGE 10-4

SEQ 37

PORTA RMCS2(RO)
;SELECT PORY A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

;SEYT vOLUAME VALUE FOR PORT

004566
004574
004602

012760
012760
012760

000011
000021
010000

00000C
900000
000032

MOV
MOV
MoV

#11 RMCST1(RO)
;ISSUE A DRIVE CLEAR
#21 RMCS1(RO)
;ISSUE A READIN PRESET
#FMT16,RMOF
(RO)
SET FMTI6

;VERIFY THAT THE DRIVE STATUS IS CORRECT

004610
0046614
004622
004630
004634
004642
004650
004656
004664
004666
004674
004702
004710

004712

004716

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

005137

000240

001244
000012
000012
001122
0171700
001126
106077
001124
001126
071700
001174

001126
001122

001124
001164
001164
001164
001174
001174
001124

001244

64%:

CLR
MOV
MoV
ADD
MoV
MoV
Bi(
cMp
BEQ
MOV
BiC
BIS
EMT
COM

NOP

CKERR
sCLEAR THE "CHECK ERROR' INDICATOR
RMDS
(RQO) ,$8DDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
;ADD RH/RM BASE ADDRESS
AMOL !PGM!DPR.DRY!VV,$GDDAT
.WHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO °*$TMPQ’
#°C71700,$TMPO
;SAVE SPECIFIED BITS
$GDDAT ,$TMPO
;COMPARE THE BITS
648
;BR IF 0K
$BDDAT, $TMP4
. COPY 'BAD DATA'
#71700,$TMP4
;CLEAR THE MASKED BITS
$TMP4 , SGDDAT
:'OR' WITH GOOD DATA FOR TYPEOUT
10
CKERR
;SET THE REGISTER COMPARE ERROR INDICATOR

JRELEASE THE DRIVE FROM PORT A

004720
004726
004734

113760
013737
012760

001224
001224
000013

000010
001234
000000

MOVB
MOV
Mov
;VERIFY

004742
004746
004754
004760
004766
004774
005002
005010
005016
005024
005032
005040
005046
005054
005056
005062
005064

005037
012737
060037
012737
113760
016037
013737
042737
113760
016037
013737
042737
023737
001006
005737
001037
104034

001250
000012
001122
011600
001224
000012
001170
100100
001226
000012
001172
100100
001164

005072
005100
005106

013737
013737
113760

001170
001226
001226

5066

000137

001122
001124
000010
001170
001164
001164
000010
001172
001166
001166
001166

001164
005252

001126
001234
000010

66%:

THAT

PORTA,RMCS2(R0O)
;SELELT PORT A
PCRTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13 ,RMCS1(RO)
; ISSUE RELEASE THROUGH PORT A
THE DRIVE

IN NEUTRAL

CLR
MOV
ADD
MOV
MOVB
MOV
MoV
8IC
MOVB
MOV
MOV
BIC
CMP
BNE
TST
BNE
EMT

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOQUT
RO, $8DADR
JADD THE 1/0 BASE ADDRESS
#MOL 'PGM!DPR!DRY ,SGDDAT
;COMPARISON CONSTANT
PORTA,RMCS2(R0) ;SELECT PORT A.
RMDS(R0O) ,$TMP2
;GET THE DRIVE STATUS REGISTER FROM PORT A.
$TMP2,$TMPO
;COPY IT INTO '$TMPO'
HATA!VV ,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0O) ;SELECT PORT B.
RMDS(R0O) ,$TMP3
:GET THE DRIVE STATUS REGISTER FROM PORT B.
$TMP3, $TMP1
;COPY IT INTO '$TMP1'
HATA!VV, $TMP1
;CLEAR PORT DEPENDENT BITS FROM THE COPY
$TMPO, $TMP1
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
66$%
;BR IF NOT
$TMPO
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
68%
;BR IF NOT
34

MOV
MOV
MOVB

$TMP2, $BDDAT
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTAB,PTNBR
SJSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB_RM(S2(RC) ;SELELT PORT B.

JMP

70%

;BYPASS THE REST OF

THE C(HECKS

’RM>BO RMCS/3/2 Dy POR T1ST 2

SET

*vv'

005114
005120
005122
005130
005136
005144
005150
005152
005160
005162
005170
005176
005204
005212
005214
005216
005224
00523%2
005240
005246
005250

005252
005254

FOR PORT A

005737
001414
013737
13737
113760

005737
001004
012737

104036
0 13727
0 13737

042737
023737
001401
104037

013737
013737
042737
023737
001401

4(-APR-B1

MALRD v6.00

001164
001224

001172
001224
001166

001250

67%:

001170
001224

001126
001234
001170
001170

68S:

001126
001234
001172

69%:

100100

001124

001172
001226
100100

001124

000240
000004

MOV
MOv
MOvB

PORTA,PTNBR
$TMP3 _SBDDAT
PORTA _RM(S2(R0)

BNE
MOV
EMT
MOV
MOV
8IC
CMP

68%
~1,RELERR
6
$TMP2,$BDDAT
PORTA,PTNBR
#ATA'!VV $TMP?
$GDDAT,$TMP?

€7%

BEQ
gMT

70%:

$TMP]

69%
37
$TMP3, $BDDAT
PORTB,PTNBR
RATA'VV
, $TMP3
$GDDAT ,$TMP3

B8EG
EMT
MOV
MOV
BIC
crap

007172

104037

$1MPO

187

177777

NOP
SCOPE

nTEST
*SET

"0-5

TST

8EC

001234
301126
000010

18:08:36 PAGE

708
37

ESsRRsRdls

SET

VOLUME

SSEE IF STATUS £Q O FRCM PORT A,
;BR [+ ZERC
SEIZING PORT [F TEST SHOWS DRIVE NOT
:'"BAD DATA' FOR ERROR TYPE OuUT
SSELECT PORT A.
JSEE IF STATUS EQ ZERQ FROM PORT B.
:BR IF NOT

:SET "RELEASE ERROR®'
; CHANGE PORT NUMBER

cDON'T CHECK ATTN BIT OR vv BIT
SALL BITS OK ?
;BR I+

OK FROM PORT A.

;JCHECK RMDS FOR BIT FAILURES - FROM PORT B.
;s CHANGE PORT NUMBER
;DON'T CHECK ATTIN BIT OR vv B]T
;SEE IF READ OK fROM PORT &.
;BR IF OK

'vv'

RRRRRRRR2R]

FOR PORT B

VALID

ISSUE A DRIVE

ISSUE A READIN PRESET COMMAND THROUGH PORT B.
THAT THE 'vv' BIT IS SET FOR PORT B.

(LEAR (OMMAND

ISSUE A RELEASE

THE

DRIVE

THROUGH PORT B.

COMMAND THROUGH PORT 8.

RETURNED

BIT IS SET.

INDICATOR

;LOOK FOR BIT FAILURES WHEN RMDS READ

.
I

[N NEUTRAL

;LO0P ?

el SRR

SEQ 0034

TO NEUTRAL

AND

THAT

VERIFY

NEITHER

VERIFY

THAT

ATTENTION

. %

005256
005256
005262
005264
005266
005272
005300
005306
005314
005314
005322

1573:

0053
005314

007266
001106
001110
001102

005326

000003
001100
000001

005334
005342

001226
001226

2Rt

TST

BEQ
BPL
JMP

1%:
2%:
TESTS:

MOV
MOV
MQvV

dsR

KYBCTL

2%
1%
EXEC

a-1,KYB(CTL
‘TEST3,$LPADR
H#TEST3,SLPERR

Eddttls

iRt

RdR

;PERFORMING ONLY

SINGLE

;BR

IF NOT

RRRRRAR

TESTS

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

:MOVE #3 TEST NUMBER
:SETUP THE STACK POINTER
;:D0O 1 ITERATION

MOVR

#3,$TSTNM

001176

mMcY

#1,8TIMES

00001C
501234

MOVB
MOV

PORTRB,RM(S2(R0O)
;SELECT PORT B
PORTRB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

MOV

JSET

VOLUME

STA{K,SP

VALUE

FuR PORT

JRMSBO RMO5/3/2 DU POR 1ST 2

SET

‘vv'

005350
005356
005364

FOR PORT B8

012760
012760
012760

000911
000021
£10000

MACRO v04.00

&-APR-B1

000000
000000
000032

J
3
18:08:36 PAGE 10-6

MOV
MOV
MOV

SEQ 0035

#11 _RMCST(RD)
sISSUE A DRIVE CLEAR
#21 RMCS1(RO)
;ISSUE A READIN PRCSET
#FMT16
RMOF (RO)
:SET FMT16

:VERIFY THAT THE DRIVE STATUS IS CORRECT

005372
005376
005404
005412
005416
005424
005432
005440
005446
005450
005456
005464
005472
005474
005500

005037
016037
012737
060037
012737

013737

042737
023737
001474
013737
042737
053737
104010

005137
000240

001244
000012
000012
001122
011700
001126

CLR

001126
001122

CKERR

MOV

RMDS(RQ) ,$BDDAT

ADD

RG.,$BDADR

MOV

#RMDS ,$BDADR

;CLEAR THE

°'(CHECK ERROR'

;GET CONTENTS OF RMDS

;FORM REGISTER ADDRESS OF

;ADD RH/RM BASE ADDRESS

INDICATOR
ERROR MESSAGE

001124

001124
001164
001164
001164

MOV
MOV
BIC
(MP

#MOL !PGM!DPR!DRY'vV,$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
JMGVE REGISTER CONTENTS TO '$TMPO'
#4C71700,8TMPO
;SAVE SPECIFIED BITS
$GDDAT ,$TMPO
;COMPARE THE BITS

001126
071700
001174

001174
001174
001124

MOV
8IC
?#?

$BDDAT , $TMP4
#71700,%TMP4
?6MP4.SGDDAT

106077

001244

BEQ

64%:

com

NOP

64%

JBR

CKERR

JSET

;COPY 'BAD DATA'
;CLEAR THE MASKED BITS
;'0OR' WITH GOOD DATA FOR TYPEOQUT
THE REGISTER (OMPARE

ERROR

INDICATOR

;RELEASE THE DRIVE FROM PORT B
001226
001226

000013

000010
001234
000000

MOVR
MoV
MOV
JVERIFY

001250
000012
001122
011600
001224
000012
001170
100100
001226
000012
001172
100100
001164

CLR
MoV

001122
001124
000010
001170
001164
001164
000010
001172
001166
001166
001166

001164

006034
001170
001226
001226
001164

001224
001172
001224
00116¢

001126
001234
000010

001234
001126
000010

THAT

66%:

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

DRIVE

IN NEUTRAL

ADD
MOV
MOVB
MOV
MOV
8IC
MOVB
MOV
MGV
BIC
CMP
8NE
TST
BNE
EM]
JMP
MOV
MOV
MOVB
TST
BEQ

RELERR
;CLEAR THE 'RELEASE ERROR ' INDICATOR
#RMDS , $BDADR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
RO,$8DADR
;ADD THE 1/0 BASE ADDRESS
#MOL !PGM!DPR!DRY ,$GDDAT
:COMPARISON CONSTANT
PORTA ,RMCS2(R0O) ;SELECT PORT A.
RMDS(RQ) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A,
$TMP2, $TMPO
;COPY IT INTO "STMPO'
#ATA'VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB ,RMCS2(RQ) SELECT PORT B.
RMDS(RQ) ,$TMP3
.GET THE DRIVE STATUS REGISTER FROM PORT R.
$TMPI S TMP
;COPY IT INTO 'S$TMPY®
AATA' VY, $TMP1
;CLEAR PORT DEPENDENT BITS FROM THE COPY
$TMPC, STMPY
:1S THE STATUS REGISTER THE SAME FROM BOTH PORTS °
66%
;BR IF NOT
$TMPO
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
68%
JBR IF NOT
34
70%
;BYPASS THE REST OF THE CHECKS
$TMPZ, SBDDAT
JSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTB,PTNBR
;SEIZING PORT IF TEST SHOWS DRIVE NOT [N NEUTRAL
PORTB ,RMCS2(R0O) SELECT PORT B.
$TMPO
;SEE IF STATUS EQ O FROM PORT A.
67%
;BR IF ZERO

TST

$TMP

MOV
MoV
MOVB

PORTA,PTNBR
$TMP3, $BDDAT
PORTA ,RM(S2(R0)

;SEIZING PORT IF TEST SHOWS DRIVE NOT
;'BAD DATA' FOR ERROR TYPE QUT
;SELECT PORT A,
:SEE

STATUS EQ ZERQ FROM PORT B.

IN NEUTRAL

JRMSBO RMO5/3/2 DU POR TIST 2
3
SET 'vv' FOR PORT B

005732
005734
005742
005744
005752
005760
005766
005774
005776
006000

006022
006030
006032
006034
006036

104036

013737
013737
042737
023737

0014901

104037

013737
013737
042737
023737
001601

177777

001250

67%:

001170
001224

001126
001234

68$:

001124

001170
00117¢C

001172
001226

001126
001234

100100

100100
001124

4-APR-B!

;BR [F NOT

MOV
MOV

$TMP2 SBDLAT
PORTA ,PTNBR

:LOOK FOR BIT FAJLURES WHFN RMDS READ
; CHANGE PORT NUMBER

§g$

:BR If OK FROM PORT A.

gghRELERR

70%:

;SET

'RELEASE ERROR'

INDICATOR

8IC
cme

RATA'VV ,S$TMP?2
$GDDAT ,$TMP?

MOV
MOV

$TM>3, $BDDAT
PORTB_,PTNBR

;CHECK RMDS FOR BIT FAJLURES - FROM PORT B.
:CHANGE PORT NUMBER

(mp
BEQ
EMY

$GDDAT ,$TMP3
70%
37

:SEE IF READ OK FROM PORT B.
;BR IF OK

8IC

001172

104037
000240
000004

683%

gg?

001172

SEQ 0036

BIE

;lg\rl

65%:

3
10-7

18:08:36 PAGE

HATA!VV STMP3R

NOP

SCOPE

JDON'T CHECK ATTN BIT QR vv BIT
;ALL BITS OK ?

;DON'T (HECK ATTN BIT OR vV BIT

;LOOP ?

-2

vyvOoo

006006
006014

001004
012737

MACRO v04.00

R AR AR R AR R

J*TEST 4

MEASURE

R AR AR

THE

AR R R AR R AN

TIMFOUT

AN AR AR RN KRR AR R AR AR RN R

ONE-SHOT

THROUGH PORT

J*MEASURE

THE

TIMEOUT

ONE-SHOT

VALUE

THROUGH PORT A

. %

;*
M

WRITE 0'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE
DRIVE HAS BEEN SEIZED.

;*
J*

WAIT FOR TIMEOUT TO QCCUR.
MEASURE THE DURATION OF
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

;*
o*

VERIFY THAT THE TVIMEOUT OCCURRED AND THAT THE DRIVE RETURNS
TO NEUTRAL

. %

'-RN R R AN AR AN AR R AR AR AN R
006040
006040
006044
006046
006050
006054
006062
006070
006076
006076
006104
006110

005737

001266

000137

002622
177777
006076
006C76

001406
100002

000004
001100
000001

006116
006122

TST4:

001266

001106
001110

001102

1%:

001176

001256
001260

005037
012737

001252
003720

;sPERFORMING ONLY SINGLE TESTS ?
;BR [F NOT
;BR IF JUST ENTERED TEST
JRETURN & GET NEXT TEST NUMBER

MOV
MOV

#TEST4 ,$LPADR
#TEST4L,SLPERR

SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

movB

R4 STSTNM

JMOVE #4 TEST NUMBER

MOV

#1,8TIMES

;:DO 1

Mov

(LR

001254

THE

CLR
MOV

#STACK,SP

TIMEA

(LR

;START

006126
V6132

KYB(CTL
2%
1%
EXEC

#-1_,KYBCTL

TIMEAP

;SET SINGLE TEST INDICATOR

;JSETUP THE STACK POINTER

ITERATION

;CLEAR THE

TIMEOUT VALUE STORAGE LOCATION

;CLEAR THE + 25% TOLERANCE LOCATION

TIMER

TIME
#2000. ,wAT(H

TIMEOUT

AR AR KN R RN R R ARRRRARA RN RRARARRRNN AR R AR

TST
BEQ
BPL
JMP

MOV

2%:
TEST4

THE

;CLEAR THE ELAPSED
mE COUNTER
JSET WATCH TO 2000. MS

MACRO v04.00 4-APR-87
ZRMSBG RM0S5/3/2 DU POR TST 2
MEASURE THE TIMEOUT ONE-~SHOT THROUGH PORT A
‘4

18:08:36 PAGE

0-8

SEQ 0037

;SEIZE THE DRIVE THROUGH PORT A
006140
006146
006 S&
006160
006166
006174
006202
006210
006214
006222
006226
006234
006236
006240

006244

006244
006252
006260
006266
006274
006302
006306
006314
006322

006330
006332
006334

113760

013737
005060
113760

013737

013737
016037
010037
062737
005037
023737
001403
104030

001224
001224
000012
001226
001226
001226
000012
001122
000012
001124
001124

000137

006754

113760

001224
001224
000012
011700
001124
001166
001126
001166
001124

013737
016037
012737
013737
005137
013737
043737
023737
001401

MOvVB

PORTA ,RMCS2(RO)

000010
001234
001240
001126

CLR
Movs
MoV
MOV
MOV

RMDS (RO)
JWRITE RMDS
PORTB,RMCS2(RO)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TD LOCATION FOR TYPEQUT
PORTB, OPPRT
;'OPPOSITE® PORT ADDRESS
RMDS(RO) ,$BDDAT ;SEE IF DRIVE SEIZED BY PORT A

001122

ADD

4RMDS , $8DADR

000010
001236

MoV

MOV

(LR
cMp
BEQ

001126

EMT

000010
001234
001126
001124
001166

64%:

104031

000240

65%:
:WAIT

006336
006344
006352
006356
006360
006364
006366
006370
006374
006402
006406
006410

113760
013737
005760
001006
005737
001372

001226
001226
000012

000137
013737
004537
001256
012637

006426
001252
013572

104006

000010

001234

001254

2%:

001260

RO, $B8DADR

;RH/RM BASE ADDRESS

$GDDAT
$GDDAT ,$BDDAT
649

JREGISTER SHOULD BE ZERO
;IS THE REGISTER ZERO
JBRIF IT IS

:GENERATE BAD REGISTER ADDRESS

MOVB
MOV
MoV
MoV

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
,MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS(RQ) ,$BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#MOL !PGM!DPR!DRY!VV
$GDDAT
;EXPECTED STATUS

coM
MOV
BIC
(Mp
BEQ

$TMP1
$8DDAT,$TMPO
$TMP1,$TMPO
$GDDAT,$TMPO
65%

EMT

NOP
FOR PORT A

MOV
TST

BNE

;BYPASS REST OF

$GDDAT ,$TMP1

PORTB,RMCS2(R0O)
PORTB,PTNBR
RMDS (RO)

JMP

MoV

;COMPLEMENT THE EXPECTED STATUS
;SAVE THE ACTUAL STATUS
;CLEAR UNWANTED BITS
JARE THE EXPECTED STATUS BITS SET ?
;BR IF THEY ARE

TIMEOUT

WATCH

Mov
JSR
.WORD

THE SUBTEST

;USE GOOD DATA AS A MASK

TST

BNE
EMT
001256

SEIZING PORT'S ADDRESS

MOVB
1%:

;SELECT PORT A

;STORE

JMP

MoV

001164
001164
001164

PORTA,SEIZPT

;SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
;WAIT FOR THE DRIVE TO TIMEGUT

;BR WHEN TIMEOUT OCCURS
;CHECK WATCH

1%
6

;BR IF NOT ZERO

;BYPASS THE REST OF THE TEST

TIME, TIMEA
R5,TOLER
TIMEA

(SP)+,TIMEAP

;SAVE THE ELAPSED TIME FOR PORT A
;CALCULATE THE TOLERANCE
;TIMEOUT VALUE FOR PORT A

;+25% TOLERANCE

JVERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS

006414
006422
006424

023727
163001
104007

001256

000764

(MP
BHIS
EMT

TIMEA,#500.
3$
I4

;IS TIMEOUT VALUE AT LEAST 500 MS ?
BROIF IT IS

sVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT
006426

006426

3%:

JVERIFY THAT THE DRIVE

005037

001250

(LR

RELERR

IN NEUTRAL

;CLEAR THE

'RELEASE ERROR '

INDICATOR

( ZJRMSBO RM05/3/2 DU POR TST 2

MEASURE

THE

006432
006440
06444
064652
006460

012737
060037

012737
113760
016037

011700
001226
000012

006502
006510

113760
016037

001226
000012

006526

042737

100100

006466
006474

006516

006532

013737
042737

013737

001172

001166

005737

001164

006550
006552

104034
000137

006752

006572
006600
0066046

113760
005737
201414

001006

0065646

001045

006556
006564

006606
006614

006622
005630
006634
006636
006644
006652
006660

013737
013737

013737
013737
113760
005737
001012
012737
012760
012760
104035

001124
000010
001170

001164
001164

001164

006540

001122

001170
100100

023737

006542

MOV
8IC

STMP2,$TMPO
#ATA'VV,S8TMPO

;COPY IT INTO 'STMPQ’
:CLEAR PORT DEPENDENT BITS FROM THE COPY

$TM23 STMP1

;COPY IT INTO 'STMPI’

$TMPO,STMP

;1S THE STATUS REGISTER THE SAME FROM BOTH PQORTS °

BNE

68%

EMT
JMP

001224
001172

001234
001126

177777
000011
000013

001250
000000
000000

67%:

MOVB
TST
BNE
MOV

MOV

000010

69%:

006732
006740

042737
023737

100000
001124

001172
001172

;BYPASS THE REST OF

THE CHEZKS

BEQ

67%

PORTA,.RM(S2(R0O)
$TMP1
68%
#-1,RELERR

;SELECT PORT A.
;SEE IF STATUS EQ ZERO FROM PORT B.
;BR IF NOT
JSET 'RELEASE ERROR' INDICATOR

MOV
MOV
EMT

PORTB,RMCS2(R0O)
$TMPO

PORTA,PTNBR
$TMP3, $BDDAT

#11,RMCS1(RO)
#13,RMCST(RO)
35

:CLEAR THE DRIVE
;RELEASE THE DRIVE

$TMP3, $8DDAT

:CHECK RMDS FOR BIT FAILURES - FROM PORT 8.

HATA S$TMP3
$GDDAT,$TMP3

;DON'T CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.

MOV

PORTB ,PTNBR

NOP
SCOPE

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
:'BAD DATA' FOR ERROR TYPE OuT

;LOOK FOR BIT FAILURES WHEN RMDS READ

PORTA,PTNBR
HATA,STMP2
$GDDAT ,$TMP?
69%
37

BEQ
EMT

;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

$TMPZ, $BDDAT

MOV
BIC
cMP
BEQ
EMT

MOV

70%:
4%:

JREGISTERS ARE THE SAME: ARE THEY 2ERO ?

;BR IF NOT

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

BIC
CMP

70%
37

; CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
SALL BITS 0K ?
:BR IF OK FROM PORT A.
; CHANGE PORT NUMBER

;BR IF OK
:LooP ?

";tttttt*t'tt‘ittttttttI‘tttt*t*ttkfifi*tttttttttfit*tfltt**tttttttitt

J*TEST 5
- %

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B

;*MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B
A.

WRITE 0'S INTO RMDS THROUGH PORT B AND VERIFY
DRIVE HAS BEEN SEIZED.

THAT

THE

WAIT FOR TIMEOUT TO OCCUR.
MEASURE THE DURATION OF
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

THE

001234

001226

001234
001170
001170

34
70%

:BR IF NOT

$TMP2, $8DDAT
PORTR,PTNBR

MOV
MOV

001126

001224
100000
001124

$TMPO

:CLEAR PORT DEPENDENT BITS FROM THE COPY

MOV
MOV

MOVB
TST

001172

000240
000004

66%

66%:

013737

001401
104037

BNE

TST

006716

013737

HATA'VV,S$TMP1

68%:

013737
042737
023737
001401
104037

#MOL ' PGM'DPR'DRY!VV,$GDDAT ;COMPARISON CONSTANT
FORTA,RMCS2(R0) :SELECT PORT A.
RMDS(RO) ,$TMP?2 .GET THE DRIVE STATUS REGISTER FROM PORT A.

BIC

001166

000010

PORTB,RMCS2(R0O) :SELECT PORT B.
RMDS(RQ) ,$TMP3 .GET THE DRIVE STATUS RFGISTER FROM PORT B.

001126
001234

0012264
001166

10-9

MOVB
MOV
MOV

001126

006752
006754

;FORM THE ADDRFSS OF RMDS FOR TYPEOUT
;ADD THE ]/0 BASE ADDRESS

001166

001170

006746
006750

#RMDS , SBDADR
RO, SBDADR

000010
001172

013737

006724

MOV
ADD

001170
001226

001226
001164

18:0&:36 PAGE

MOV
MOvVB
MOV

006662

006670
006676
00670/
006712
006714

158

000012
001122

4-APR-B1

TIMEOUT ONE~SHOT THROUGH PORT A

Sevs
N N, N,

MACRO v04.00

TIMEOUT

N 3
18:08:36 PAGE 10-10

SEQ 0039

VERIFY THAT THE
T0 NEUTRAL

TIMEOUT OCCURRED aND THAT THE DRIVE RETURNS

owy

IRMSBO RMO5/3/2 DU POR TST 2
MACRO v04.00 4-APR-B1
TS
MEASURE THE TIMEOUT ONE~SHOT THRGUGH PORT B8

006756
006756
006762
006764
006766
006772
007000
007006
007014
007014
007022

005737

001406
100002

:-:"tttttt'ttttt't.'tQtQ't"'.Qt'it't..""‘t'.""""..Q.".Q"
ST

001266

000137
012737
012737
012737

007014
007014

007026

112737
012706
012737

000005
001100
000001

007034
007040

005037
005037

001262
001264

002622

177777

001266
001106
001110

BEQ
8PL
JMP

1%:

MOV

001176

;PERFORMING ONLY SINGLE

#-1.KYBCTL

*SET SINGLE

2
18
EXEC

TEST

MOVB

#5.8TSTAM

;MOVE #5 TEST NUMsER

CLR

TIMER

;CLEAR THE

TIMEOUT VALUE

JCLEAR

ELAPSED

CLR

-SETUP SCOPE LOOP ADDRESS

#TESTS.SLPERR

-SETUP ERROR LOOP ADDRESS

#STACK, SP
#1.$TIMES

TIMEBP

INDICATOR

#TESTS.SLPADR

MOV
MOV

TESTS

‘BR IF NOT
*BR IF JUST ENTERED TEST
*RETURN & GET NEXT TEST NUMBER

MOV
MOV

001102

KYBCTL

*SETUP THE STACK POINTER
“>D0 1 ITERATION

;CLEAR THE

SIORAGE

+ 25% TOLERANCE LOCATION

LOCATION

:START THE TIMER
007044
007050

005037
012737

001252
003720

CLR

001254

MOV

;SEIZE

007056
007064

007072
007076
007104
007112
007120
007126
007132
007140
007144
007152
007154
007156
007162
007162
007170
0072176
007204

007212

007220
007224

007232

007240
007246
007250

007252

001226

000010

001224
001224
001224
000012
001122
000012
001124
001124

000010
001234
001240
001126

001226
000012

(LR

001126

007672
001226
001226
000012
011700
001124
001166
001126
001166
001124

MOV
MOV
MOV
MOV
ADD

001122

000010
001234
001126
001124
001166

64%:

001164

(MP
BEQ
EMT
JMP

MOV

001164
001164

BIC

65%:

THE

TIME

JSET WAT(H TO 2000. MS

COUNTER

THE DRIVE THROUGH PORT B
MOVB
MOV
CLR
MOVB

001236

TIME

#2000C. ,WAT(CH

(TMMpP
BEQ
EMT
NOP

PORTB,RMCS2(R0) :SELECT PORT B
PORTB,SEIZPT
;STORE SEIZING PORT'S ADDRESS
RMDS (RO)
;JWRITE RMDS
PORTA ,RMCS2(R0)
SELECT PORT A
PORTA,PTNBR
PORTA,OPPRT

;MOVE PORT ADDRESS TO LOCATION FOR
;'OPPOSITE' PORT ADDRESS

TYPEOUT

RMDS(RO) ,$8BDDAT ;SEE IF DRIVE SEIZED BY PORT B
RO, SBDADR
;RH/RM BASE ADDRESS

#RMDS , $BDADR
$GDDAT

;GENERATE BAD REGISTER ADDRESS
JREGISTER SHOULD BE ZERO

;BYPASS REST OF

$GDDAT ,$BDDAT
§8$

;IS THE REGISTER ZERO
;BRIF IT IS
THF

SUBTEST

PORTB,RM(S2(R0O)
SELECT PORT B
PORTB,PTNBR
.MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
RMDS(RO) ,$8BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#MOL !PGM!DPR!DRY!VV
SGDDAT
EXPECTED STATUS
$GDDAT,$TMPT1
;USE GOOD DATA AS A MASK
$TMP]
; COMPLEMENT THE EXPECTED STATUS

$BDDAT ,$TMPQ
$TMP1,$TMPO
$GDDAT , $TMPO

g?i

JWAIT FOR PORT B 7O TIMEOUT

;SAVE THE ACTUAL STATUS
;CLEAR UNWANTED BITS
JARE THE EXPECTED STATUS BITS SET ?

;BR

THEY ARE

| JRMSBO RMOS/3/2 DY POR TST 2
MACRO v04.00
4-APR-B1
MEASURE THE TIMEOUT ONE-SHCT THROUGH PORT 8

007256

207262
007270
007274

007276

007302
007304
007306
007312
007320
007324
007326

007332
007340
007342

113760

013737
005760
001006

005737

001372
104006
000137
013737
004537
001262
012637

023727
103001
104007

001224

001224
000012

000010
001234

007344
0Qu1252
013572

001262

PORTA RMCS2(RO)

1SY

WAT(CH

18:

2%:

BNE
EMT
JMP
MOV
JSR
.WORD
MOV

;VERIFY

THAT

001264

001262

Mov8e
MOV
7ST
BNE

001254

000764

B 4
18:08:36 PAGE 10-11

CMP
BHIS
EMT

PORTA,PTNBR
RMDS (RO)
2%

:SELECT PORT A

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
JWAIT FOR THE DRIVE TO TIMEOUT
:BR WHEN TIMEOUT OCCURS

1%
6
3
TIME, TIMEB
R5,TOLER
TIMEB
(SP)+,TIMEBP
THE

SEQ 0040

s CHECK WATCH

;BR IF NOT ZERO
;BYPASS THE REST OF THE TEST
;SAVE THE ELAPSED TIME FOR PORT B
s CALCULATE THE TOLERANCE
:TIMEOUT VALUE FOR PORT B
:+25% TOLERANCE

TIMEOUT ONE-SHOT VALUE

TIMEB,#500.
3$
7

IS AT LEAST

500 MS

;1S TIMEQUT VALUE AT LEAST 500 ns ?
;BROIF IT IS

SVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT 8 TIMED OUT

007344

;VERIFY

007344
007350
007356
007362
007370
007376
007404
007412
007420
007426

005037
012737
060037
012737
113760
016037
013737
042737
113760
016037

001250
000012
001122
011700
001224
000012
003170
100100
001226
000012

007442
007450

042737
023737

100100
001164

007434

007456
007460
007464
007466
007470
007474
007502
007510
007516
007522
007524
007532
007540
007546
007552
007554
007562
007570
Q07576

——

3s:

013737

001006
005737
001045
104034
000137
013737
013737
113760
005737
001414
013737
013737
11%760
005737
001012
012737
012760
012760
104035

001172

THE DRIVE

IN NEUTRAL

001124
000010
001170
001164
001164
000010
001172

CLR
MOV
ADD
MOV
MOVB
Mov
MoV
BiC
MOVB
MoV

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!DRY!VV
$GDDAT
;COMPARISON CONSTANT
PORTA,RMCS2(R0) ;SELECT PORT A.
RMDS(RQ)
. ,TMP2
;GET THE DRIVE STATUS REGISTER FROM PORT A.
$TMP2 ,$TMP0
;COPY IT INTO '$TMPO’
#ATA!VV $TMPQ
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(RQ) ;SELECT PORT B.
RMDS(RO) ,$TMP3
;GET THE DRIVE STATUS REGISTER FROM PORT B.

001166
001166

BIC
cMP

#ATA!VV,$TMPT
$TMPO, $TMP1

MoV
MOV
MovB
TST
BEQ
MOV
MOV
MOVB
TST
BNE
MoV
MOV
MoV
EMT

$TMP2, $BDDAT
PORTB,PTNBR
PORTB,RMCS2(R0O)
$TMPO
67%
PORTA ,PTNBR
$TMP3, $BDDAT
PORTA ,RMCS2(R0O)
$TMP1
68%
#-1,RELERR
#11,RMCST1(RO)
#13,RMCST1(RO)
35

001122

001166

Mov

001164
007670
001170
001226
001226
001164

THAT

001126
001234
000010

001224
001172
001224
001166

001234
001126
000010

177777
000011
000013

001250
000000
000000

66%:

67%:

BNE
TST
BNE
EMT
JMP

$TMP3, S$TMPT

;COPY IT INTO '$TMP1'®

66
$TMPO
68%
34
708

:BR IF NOT
sREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

;CLEAR PORT DEPENDENT BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?

;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 ERRCR®' IND[CATOR
;CLEAR THE DRIVE
;RELEASE THE DRIVE

(JRMSBO RMO5/3/2 DU POR TST 2
5

MEASURE

007600

007606
007614
007622
007630
007632
007634
007642
007650
007656
007664
007666
007670
159 007672

THE

MACRO v04.00

TIMEOUT ONE-SHOT

013737

013737
042737
023737
001401
104037
013737
013737
042737
023737
001401
104037
000240
000004

001170

4-APR-81

THROUGH PORT B

001226
100000
001124

001234
001170
001170

001126

68S$:

001172
001226
100000
001124

001126
001234
001172
001172

69%:

MOV

MOV
BIC
(MP
BEQ
EMT
MoV
MOV
8IC
cMP
BEQ
EMT
NOP
SCOPE

70%:
4%:

160
177

178

C
18:08:36 PAGE

4
10-12

$TMP2 $BDDAT

PORTA _PTNBR
#ATA $TMP?
$GDDAT ,$TMP?
69%
37
$TMP3, SBDDAT
PORTB_PTNBR
HATA,STMP3
$GDDAT, $TMP3
70%
37

SEQ 0041

;LOOK FOR BIT FAILURLS WHEN RMDS READ
; CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
SALL BITS OK ?
:BR IF OK FROM PORT A.

sCHECK RMDS FOR BIT FAILURES - FROM PORT B.
: CHANGE PORT NUMBER
sDON'T CHECK THE ATIN BIT
;SEE IF READ 0K FROM PORT 8.
:BR IF OK
;LOOP ?

S o RAAKRAAAAAR AR AAAARNRARAANANARRRRARARARARARRARNNRANAANRA

J*TEST 6

TEST

°'PORT SELECT®

SWITCH,

AR
A

DRIVE CYCLED uP

:*TEST THE OPERATION OF THE 'PORT SELECT' SWITCH (DRIVE CYCLED UP).
-

i+
;>
D

* %

SWITCH TO PORT 'A' POSITION.

VERIFY THAT THE DRIVE IS IN

NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

i
ix
i

SWITCH TO PORT 'B' POSITION. VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

RETURN THE

THE DRIVE

'PORT SELECT' SWITCH TO THE

STATE.

'A/B' POSITION.

VERIFY

. %

;;tttttt*ttttttttfi*ttt**i*t*i*tttttttt**ktt*t‘ttttttt'tttttt'tttt

007674
C07674
007700
007702
007704
007710
007716
88;;%3

005737
001406
100002
000137
012737
012737
012737

001266

007732
007740
176 007744

112737
012706
012737

000006
001190
000001

002622
177777
007732
007732

876"

001266
001106
001110
001102
001176

180

1%:
28%:
resre,

TST
BEQ
BPL
JMP
MOV
MOV
MOV

KYBCTL
2%
1$
EXEC
#-1,KYBCTL
#TESTG,SLPADR
ATEST6.SLPERR

:PERFORMING ONLY SINGLE TESTS ?
:BR IF NOT
:BR IF JUST ENTERED TEST
SRETURN & GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
-SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

MOVB
MOV
MOV

#6,STSTNM
#STACK, SP
#1,STIMES

:MOVE #6 TEST NUMBER
*SETUP THE STACK POINTER
:;D0 1 ITERATION

;CLEAR ATTENTION BITS FOR BOTH PORTS

007752
007760
007764
007772
010000

113760
005060
012760
012760
113760

001224
000012
000011
000013
001226

010012
010020

012760
012760

000011
000013

010006

005060 000012

000010
000000
000000
000010

MOVB
CLR
MOV
MOV
MOVB

PORTA,RMCS2(R0)
RMDS (RO)
#11,RMCST(RQ)
#13 RMCS1(RO)
PORTB,RM(S2(R0)

;SELECT PORT #A
*SEIZE THE DRIVE
:ISSUE DRIVE CLEAR
:RELEASE THE DRIVE
:SELECT PORT 48

000000
000000

MOV
MOV

#11,RMCST(RO)
#13.RMCS1(RO)

:1SSUE DRIVE CLEAR
-RELEASE THE DRIVE

CLR

RMDS (RO)

*SEIZE THE DRIVE THROUGH PORT 'B°

;gRMSBO RM05/3/2 DU POR 1ST 2
MA(CRO v04.00
4-APR-81
TEST °PORT SELECT® SWITCH, DRIVE {YCLED uP

181 010026
182 010032
183 010036

10440
104401
000000

020224
Cc0316

TYPE
TYPE
HAL
T

185

,SWTCHA
.CONTUE

:VERIFY THAT THE DRIVE

010040
0100446
010052
010056
010066
010072

(005037
012737
060037
012737
113760
016037

001250
000012
001122
011700
001224
000012

010106

042737

100100

010122
010130
010136
010144
0:0152
010154
010160
010162
010164
010170
010176
010204
010212
010216
010220
010226
010236
010242
010246

016037
013737
042737
023737
001006
005737
001045
104034
000137
013737
013737
113760
005737
001414
013737
013737
113760
005737
001012

010264
010272
010274
010302
010310

012760
104017
013737
013737
042737

010100

010114

010250
010256

010316
010324
010326
010330
010336
010344
010352
010360
010362

010364

186 010366
187 010372

188 010376

4
D
18:0B:36 PAGE 10-13

013737
113760

012737
012760

023737
0014601
104037
013737
013737
042737
023737
001401
104037

000240
104401
104401

000000

001170

001226

000012
001172
100100
001164

001124
000010
001170
001764

BIC

KATA!VV ,STMPC

MOV
MOV
8IC
MP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVB
TST
BEQ
MOV
MOV
MOVB
TST
BNE

RMDS(RO),STMP3
STMP3,STHP]
AATA!VV,STMPT
STMPO.STMP
648
$TMPO
668
34
68%
$TMP2, SBDDAT
PORTB,PTNBR
PORTR.RM(S2(R0)
$TMPO
653
PORTA.PTNBR
$TMP3, SBDDAT
PORTA_RMCS2(R0)
$TMP1
663

MOV
EMT
MOV
MOV
BIC

413 RMCST1(RO)
17
$TMP2, $BDDAT
PORTA,PTNBR
4ATA,$TMP?

001164

MOV

000010

MOVB

001172
001166
001166
001166

Q01126
001234
000010

64%:

001234
001126
000010

177777
000011

001250
000000

65%:

001170
001224
100000
001124

001126
001234
001170
001170

¢66%:

001172
001226
100000
001124

001126
001234
007172
001172

67%:

020261
020316

IS IN NEUTRAL

RELERR
JCLEAR THE °'RELEASE ERROR ' INDICATOR
#RMDS , SBDADR
;FORM THE ADDRESS OF RMDS FOR TYPFOUT
RO, $BDADR
sADD THE 1/C BASE ADDRESS
#MOL 'PGM'!DPR.DRY!VV
_SGDDAT ;COMPARISON CONSTANT
PORTA ,RMCS2(RO) SELECT PORT A,
RMDS(RQO) ,$TMP2
;GET THE DRIVE STATUS REGISTER FROM PORT A.

001224
001172
001224
001166

000013

:SWITCH 10 "A*
:PRESS *CONTINUE*

CLR
MOV
ADD
MCv
MovB
MOV

001122

001164
010364
001170
001226
001226
001164

SEQ 0042

000000

68%:

Mov
MOV

C(MP
BEQ
EMT
MOV
MOV
BIC
C(MP
BEQ
EMT

NOP

TYPE
TYPE

HALT

$STMPZ $TMPO

;COPY IT INTO *STMPO’

PORTB ,RMCS2(R0O)

;SELECT PORT B.

#-1,RELERR
AT1.RMCSI1(RO)

S$GDDAT,$TMP2
67%
37
$TMP3, $BDDAT
PORTB;PTNBR
#ATA §TMP3
SGDDAT,$TMP3
688
37
,SWTCHB
. CONTUE

JVERIFY THAT THE DRIVE

;CLEAR PORT DEPENDENT BITS FROM THE COPY
:GET THE DRIVE STATUS REGISTER FROM PORT B.
ZCOPY IT INTO 'STMPI
:CLEAR PORT DEPENDENT BITS FROM THE (COPY
:IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 7
‘AR _IF _NOT
JREGISTERS ARE THE SAME: ARE THEY ZERQO °?
:BR IF NOT
;BYPASS THE REST OF THE (HECKS
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.
sSEE IF STATUS EQ ZERO FROM PORT B.
:BR_IF NOT
;SET "RELEASE ERROR'
:CLEAR THE DRIVE

INDICATOR

.RELEASE THE DRIVE

;LOOK FOR BIT FAILJURES 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.
:(HANGE PORT NUMBER
DON'T CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.
AR IF OK
;SWITCH 10 'B*
;PRESS °*CONTINUE®

[S !N NEUTRAL

ZRMSBO RM(OS/3/2 DU POR TST 2
MACRC v04.00 4-APR-B1
TEST 'PORT SELECT' SWITC(H, DRIVE CY({LED uP
010400
010604
210412

001122

012737

011700

001124

mMov

#MOL 'PGMDPR DRY!vV,SGDDAT

010440
N104646
010454
010462
010470
010476

013737
042737
113750
016037
013737
042737

001170
100100
001226
000012
001172
100100

001164
001164
00001C
001172
001166
(01166

MOV
8IC
MOVB
MOv
MOV
Bi(

STMP2 ,$TMPO
#ATA!VV,STMPO
PORTB,RMCS2(RQ)
RMDS
(RQ) ,$TMP3
$TMP3, $TMP
AnTA!VV ,$TMPT

;COPY IT INTO '$STMPQ’
;CLEAR PORT DEPENDENT BITS FROM THE COPY
-SELECT PORT B.
-GET THE DRIVE STATUS REGISTE,. FROM PORT B.
2COPY IT INTO '$TMPT®
;CLEAR PORT DEPENDENT BITS FROM THE COPY

010514
010520
010522
010524
010530
0°0536
010544
010552
010556
010560
010566
010574

005737
007045
104034
000137
013737
013737
113760
005737
001414
013737
013737
113760

$TMPQ
718
34
738
$TMP2 ,$BDDAT
PORTB,PTNBR
PORIB.RMCS2(RC)
$TMPQ
708
PORTA,PTNBR
$TMP3 , SBDDAT
PORTA.RMCS2(R0)

JREGISTERS ARE THE SAME: ARE THEY ZERO ?
“BR IF NOT

010606
010610
010616
010626
010632
010634
010662
010650
010656
010664
010666
010670
010676
010704
010712
010720
010722
010724

001012
012737
012760
012760
104020
013737
013737
042737
023737
001401
104037
013737
013737
042737
023737
001401
104037
000240

192 010732

(007402

010424
010632

010504
010512

010602

191

010726

193 010734

;gg 010740

113760
016037

023737
007006

005737

001122

001224
000012

001164

000010
001170

010724
001170
001226
001226
001164

001166

001126
001234
000010

001234
001126
000010

177777
000011
000013

001250
000000
000000

70%:

001170
001224
100000
001124

001126
001234
001170
001170

71%:

001172
001226
100000
001124

001126
001234
001172
001172

72%:

104401

020156

738:

JADD THE ]/0 BASE ADDRESS

;(COMPARISON CONSTANT

PORTA_RMCS2(R0) :SELECT PORT A.
RMDS(RO) ,$TMP2
GET THE DRIVE STATUS REGISTER FROM PORT A,

$TMPO, S TMPT
693

$STMP1

718
#-1 ,RELERR
#11.RMCS1(RO)
#13.RMCS1(RO)
20
$TMP2 ,$BDDAT
PORTA,PTNBR
RATA, $TMP?
$GDDAT,$TMP2
728
37
$TMP3,$BDDAT
PORTA, PTNBR
HATA, $TMP3
$GDDAT ,$TMP3
738
37

;1S THE STATUS REGISTER THE SAME fROM BOTH PORTS °
BR IF NOT

;BYPASS THE REST OF THE CHECKS
sSET UP POSSIBLE BAD DATA tOR ERROR MESSAGE
JSEIZING PORT [F TEST SHOWS DRIVE NOT IN NEUTRAL
-SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
JSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
. 'BAD DATA® FOR ERROR TYPE OuT
:SELECT PORT A.
;SEE [F STATUS EQ ZERC 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 RIT
: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

IST

KYBCTL

;SINGLE

TYPE

,SWTCHN

JRETURN SWIT(H TO

BEQ
1%:

sCLEAR THE °'RELEASE ERROR ' INDICATOR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT

RO, $8BDADR

(MP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOVB
TST
BEQ
Mov
MOV
MOVB
TST
BNE
MOv
MOV
MOV
EMT
MOV
MOV
BIC
P
8EQ
EMT
MOV
MOV
BIC
CMP
BEQ
EMT
NOP

69%:

001226
001172
001224
001166

001266

RELERR
#RMDS , $BDADR

MOV3
MOV

001164

005737

000004

LR
MOV
ADD

10-14

001250
0000612

010616

005037
012737
060037

1B:08:36 PAGE

SCOPE

TEST MODE

‘BR IF NOT
;Loor ?

'A/B'

321
322
AR

A4S0

-TEST

'TEST

THE

d22

2220 RSSRRRRRRRARSNARRRRRRRRRtRRRRdad

TEST

'PORT SELECT"

OPERATION OF

THE

‘PORT

SWIT(H ON PORT A
SELECT'

SWITCH

(DRIVE

CYCLED DOWN).

>»
@®

SWITCH THE

WHEN THE DRIVE

ééfi?EAA DRIVE

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THRQUGH PORT B AND
'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH

)

THE DRIVE DOWN.

WO
WO W
W
O

NS NN NN N

SWITCH TO PORY A POSITION.
VERIFY HAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORREC(CT.

NN NE N

ALL
A

SEQ 0044

CYCLE

18:08:36 PAGE 10-°S

THAT

°'PORTY SELECT® SWIT(CH TO A;

'ATA-A

CYCLES UP,

SET.

VERIFY THAT

CYCLE

THE DRIVE UP,

°‘vv=-A IS RESET, AND

CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH

I
2R B

PORT B.

INTO RMDS

.«

LTI

LRSI

YR X

L-APR-§1

rIRMSBO RM0S5/3/72 DU POR T1ST 2
MACLRO v(4.00
17
TEST *PORT SELECT® SWITCH ON POKRT A

010742
010742
010746
010750
010752
010756
010764
81?568

011000

011006

011012

011020

011026
011034
011040
011044

011050

011056

011060
011066

001266
001106
001110

112737

000007

001102

MOVB

012737

000001

001176

MOV

113760

001224

000010

032760

010000

000012

032760
001774

010000

000017

013737
104401
104401
104401
001374

001224
020367
020224
020407

005037

001244

011102

012737

000012

011074

011110

016037

060037

011114

012737

011130

042737

011122
0°"13¢

013737
(023737

000012

(01122

001122

1§:

BIT

#MOL ,RMDS (RO)

2%:

BIT
BEQ

AMOL ,RMDS (RQ)
2%

BNE

(iR

MoV

PORTA,PTNBR
LCYCLED
.SWICHA
.CYCLEU

;SETUP THE

THE

STACK POINTER

ITERATION

SELECT PORT A

;MOVE PORT
;'CYCLE
JSWITCH
;'CYCLE

ADDRESS TO LOCATION FOR TYPEOUT
DOWN THE DRIVE'
TO 'A°
UP THE DRIVE'

;IS 'MOL® RESET ?

;BR

NO (DRIVE NOT CYCLED DOWN)

;IS 'MOL' SET ?
;BR IF NO (DRIVE NOT CYCLED uP)

CKERR

RMDS (RO) ,$8DDAT

;CLEAR THE

#RMDS ,$BDADR

#ATA!MOL .DPR!DRY ,$GDDAT

ADD

001164

BI(

MOV

{MP

RO, $BDADR

'CHECK ERROR'

;GET CONTENTS OF

MoV

066077

001164

THAT

IS CYCLED UP, (HECK STATUS THROUGH PORT A

MOV

001124

:;D0 1

PORTA ,RMCS2(R0)

MoV
TYPE
TYPE
TYPE

001124

001164

#1,STIMES

Movs

10600

001126

;MOVE #7 TEST NUMBER

#STACK,SP

001234

001126

47 ,$TSTNM

MOV

sDRIVE

011070

VERIFY

;.'ttttttfltttt"'ti'ltfit"'ttttttl’ifl'it!’*"Rtfi"t‘fitifi.‘*i'ltt!tt‘fit.
1ST17:
TST
KYBCTL
;PERFORMING ONLY SINGLE TESTS ?
BEQ
2%
;JBR IF NOT
BPL
1%
;BR IF JUST ENTERED TEST
JMP
EXEC
JRETURN & GET NEXT TEST NUMBER
1%:
Mov
#-1,KYBCTL
;SET SINGLE TEST INDICATOR
2%:
MOV
#TEST7 ,$LPADR
;SETUP SCOPE LOOF ADDRESS
TEST?
MOV
HTEST7 ,8LPERR
;SETUP ERROR LOOP ADDRESS

002622
177777
011000
011000
001100

TO SET PORT REQUEST BY WRITING Q'S

THROUGH PORT B.

ISSUE A RELEASE (OMMAND THKROUGH PORT A.
DRIVE REMAINS LOCKED ON PORT A.

0C5737
001406
100002
000137
012737
012737
012737
012706

001266

ATTEMPT

RMDS

INDICATOR

;FORM REGISTER ADDRESS OF ERROR MESSAGE

;ADD RH/RM BASE ADDRESS

WHAT REGISTER SHOULD BE

$BDDAT,$TMPO

;MOVE REGISTER CONTENTS TO '$TTMMPQ’

$CDDAT ,$TMPO

. COMPARE THE BITS

#~C111700,$TMPO

~;SAVE SPECIFIED BITS

(JRMLB( RMCS/3/2 DU POR 1ST 2
MACRD v04.00
’
TEST "PORT SELECT® SWITCH ON PORT &

011144
011146
011154

011162
011170
011172
011176

001414
013737

042737

053737
104021
005137
000240

001126

001174

00i174

001124

111700

18:08:36 PAGE

BEQ
MOV

643
SADDAT,STMPL

;BR IF OK
:(OPY 'BAD DATA®

8IS
EMT
CoM
NOP

$TMPL SGDDAT
21
CKERR

:°OR' WITH GOOD DATA FOR 1YPEQUT

001174

001244

4-4PR-B1

BIC

648:

10-16¢

#111700,8TMP4

SEQ 0045

:(LEAR THE MASKED BITS

;SET THE REGISTER COMPAR: ERROR INDICATOR

;SET VOLUME VALID FOR POPT A
011200
011206
011216

012760
012760
012760

000011
000021
010000

000000
000000
000032

MOV
MOV
MOV

#11,RMCS1(RO)
:ISSUE A DRIVE CLEAR
#21.RMCST1(RO)
:ISSUE A READIN PRESET
#FMT16,RMOF
(RO} :SET FMT16

;CHECK THE DRIVE STATUS THROUGH PORT B; VERIFY THAT °'NED'
*SETS WHEN THE DRIVE 1S ACCESSED THROUGH PORT B.
011222

113760

001226

011230
0°1236
611242
011250
011256
611262
011266

013737
005037
016037
012737
060037
005037
013737

001226
001244
000072
000012
001122
001124
001126

011302
011310
011312
011320
011326
011334
611336
011342

023737
001414
013737
042737
053737
104022
005137
000240

001124

011350
011356
011364
011370
011376
011404

016037
012737
060037
012737
013737
002737

0112764

011344

011412

011420
011422
011430
011436
011444
0116446
011452

0114564

042737

005037

023737

001414
013737
042737
053737
104023
005137
000240

005060

000077

001126
177700
001174

000010

001126
001122
001164

001164

001174
001174
001124

000010
000010
001122
010000
001126
167777
001124

001126
010000
001174

668:

001126
001122
001124
001164
001164
001164

001244

68%:

000012

JVERIFY

G11460
11466
011424

113 760
013737
012760

001224
001224
000013

0000 10
001234
000012

;SELECT PORT B

#~(177700,$TMPO

~;SAVE

POPTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
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
SGODAT
*WHAT REGISTER SHOULD BE
$BDDAT,$TMPO
:MOVE REGISTER CONTENTS TO ‘$TMPO’

CMP
BEQ
MOV
BIC
BIS
EMT
COM
NOP

$GDDAT,STMPO
66$
$BDDAT,$TMP4
#177700,$TMP4
$TMPL, $GDDAT
22
CKERR

:COMPARE THE BITS
:BR IF OK
:COPY 'BAD DATA’
:CLEAR THE MASKED BITS
:'OR’' WITH GOOD DATA FOR TYPEQUT

CKERR

;CLEAR THE

CLR

SPECIFIED BITS

;SET THE REGISTER COMPARE ERROR INDICATOR
'CHECK ERROR'

INDICATOR

MOV
MOV
ADD
MOV
MOV
BIC

RMCS2(RO) ,$8DDAT
;GET CONTENTS OF RMCS2
#RMCS2,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#NED
, SGDDAT
;WHAT REGISTER SHOULD BE
$ADDAT,$TMPQ ~ ;MOVE REGISTER CONTENTS TO '$TMPQ'
#~CNED.$TMPO
;SAVE SPECIFIED BITS

BEQ
MOV
BIC
BIS
EMT
CoM
NOP

638
$SDDAT,$TMP4
ANED, S TMP4
$TMP.,$GDDAT
23
CKERR

cMP

001174
001174
0C1124

PORTB,RMCS2(RO)

MOV
CLR
MOV
MOV
ADD
CLR
MOV
BIC

001164

001244
001244

MOVB

001234

(LR

$GDDAT.$TMPO

RMDS (RC)

THAT DRIVE

MOVB
MOV
MOV

~ ;COMPARE

THE BITS

BRIF OK
:COPY 'BAD DATA’
*CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEQUT

;SET THE REGISTER COMPARE ERROR INDI(/TOR

:TRY TO SET REQUEST BY WRITING THROUGH
;THE LOCKED OUT PORT (PORT *'B')

STAYS LOCKED ON PORT A

PORTA RMCS2(R0O)
,;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#13_RMDS (RO)
;ISSUE A RELEASE THROUGH PORT A

JRM 8. RMOS/3/2 DU PCR 1S7 2
MA_RC v04.00
7
TEST "PORT SELECT® SWIT{M ON PORT A

011502
011510
2°1516
011526
011530
011536
011544
011550
011556

013737
113760
013737
005037
016037
012737
060037
005037
013737

001226
001226
001226
001244
000012
000012
001122
001124
001126

011570

023737

00%124

011562

042737

011576
011600
011606
011614

001414
013737
042737
053737

011624

005137

011622

011630

104024

000240

000077

001126
177700
001174

001236
000010
001234

4-4PR-B1

'8:0B:36 PAGE

10-'7

001164

MCv
“ovB
MOV
(LR
MOV
MOV
ADD
(LR
MOV

PORTA,SEIZPT
sADDRESS OF 'LOCKED ON' PORT
PORTB RM(S2(R0O)
;SELECT PORT B
PORTB _PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
(KERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS
(RQ) ,$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
SBDDAT $TMPO
;sMOVE REGISTER CONTENTS TO '$TMPC’

001164

(MP

$GDDAT ,$TMPO

001126
001122

001164

BIC

BEQ
MOV
BIC
BIS

001174
001174
001124

(001244

EMT

70%:

NOP

#~C7177700,8TMPO
708
$ADDAT ,$TMP4
#177700,8TMP4
$TMP4 , $GDDAT

~;SAVE SPECIFIED BITS

;COMPARE

THE BITS

;BR IF 0K
;COPY 'BAD DATA’
;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

(KERR

;SET THE REGISTER COMPARE ERROR INDICATOR

;IF ERROR OCCURRED, CHECKN FOR LOOP ON TEST

011632
011636
011640
011646
011650
011654
011660
011664

011670
011672

011700
011702
011706
011712
0117216
011724

011732
011740
011742
011750

105737
001412
032777
001406
105037
005037
000177
005737

001460
032777

001054
104401
104401
104401
113760

013737

032760
001374
032760
001774

001103
001000

167272

001103

001176

167224
001266

3s:

040000

167240

020367
020156
020407
001224

000G10

010000

000012

4%:

000012

5%:

001224

010000

001234

ISTB
BEQ
BI7
8EQ
CLRRB
(LR
JMP
TST

$ERFLG
3
#SW09,aSWR
3s
$ERFLG
$TIMES
@S$LPERR
KYBCTL

;DID AN ERROR OCCUR
:BR IF NOT
;SEE IF LOOP ON ERROR (SWR9 - 1)
;BR_IF NOT
;CLEAR THE ERROR FLAG
;CLEAR THE MAX JTERATION COUNT
;GO TO THE LOOP ADDRESS
;IN SINGLE TEST MODE ?

BNE
TYPE
TYPE
TYPE
MOVB

6%
LCYCLED
.SWICHN
LCYCLEU
PORTA ,RMCS2(R0)

;BR _IF LOOPING
;TYPE 'CYCLE DOWN'
;'SWITCH TO A/B'*
;'CYCLE THE DRIVE UP'
[ SELECT PORT A

BEQ
BIT

MoV

BIT
BNE
BIT
BEQ

6%
#5W14,aSWR

PORTA _PTNBR

AMOL ,RMDS(RO)
4%
#MOL ,RMDS(RG)
5%

J8R IF NOT
;LOOP ON TEST ?

;MOVE

PORT ADDRESS

;IS 'MOL'
;BR IF NO
;IS 'MOL'
;BR IF NO

TO LOCATION FOR

TYPEOUT

RESET ?
(DRIVE NOT CYCLED DOWN)
SET ?
(DRIVE NOT CYCLED uP)

JSET VOLUME VALID FOR BOTH PORTS

011752
011760
011766
011774
012002
012010
012016
012024
012032
012040
012044
012046
02050

Q12760
012760
012760
113760
013737
012760
012760
012760
012737
005737
001375
000004
000400

000011
000021
000013
001226
001226
000021
010000
000013
011610
001254

000000
000000
000000
000010
001234
000000
000032
000000
001254

MoV
MoV
MoV
MovB
MOV
MOV
MOV
MOV
MOV
TST
BNE
SCOPE
BR

#11,RMCS1(RO)
;ISSUE A DRIVE CLEAR THROUGH PORT A
#21 ,RMCST(RO)
;ISSUE A READIN PRESET THROUGH PORT A
#13,RMCS1(RO)
;RELEASE PORT A
PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
,MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#21 ,RMCST(RO)
;ISSUE A READIN PRESET THROUGH PORT 8
#FMT16
RMOF (RO) ;SET FMT16
#13,RMCST1(RO)
;RELEASC PORT B
#5000. ,WATCH
;SPINDLE MOTOR °'CO0. DOWN' DELAY
WAT(H
JFINSIHED ?
7%
;BR IF NOT
;LOOP 2
TST10
2:GO TO NEXT TEST

JRMSBO AMGS/3/2 Du POR 1ST 2
MACRC v04.00
*7
TEST 'PORT SELECT® SwlT(H ON PORT A
323

222222

4-APR-81

18:08:36 PAGE 10-'8

22222222

E;TESI 10

iRl

SEQ 0047

X222

TEST °*PORT SELECT® SWIT(H ON PORT B

222

XY )

C(YCLE

DRIVE

DOWN.

SWITCH TO PORT B POSITION.,
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH

NN I

THE

°*PORT SELECT® SWITCH (DRIVE (YILED DOWN).

;oTEST THE OPERATION OF THE

PORTS,

(ORRE(T.

SWITCH THE

'PORT

SELECT®

SWIT(H 7O B,

WwHEN THE DRIVE (YCLES UP,
THAT *ATA-B IS SET.

égg?EBA DRIVE

VERIFY

CY{LE

THE DRIVE UP.

‘'vv-B

[S RESET,

N
TN
L 2N JEE JNF N
a2

01,052
012052
012056
012060

005737
001406
100002

001266

012066
012074
8}5}?8

012737
012737
012737

012062

002622

177777
012110
012110

001266
001106
001110

012110
012116

112737
012706
012737

000010
001100

001102

000001

001176

012130
012136
012146
012150
012154

113760
013737
1046401
104401

000010
001234

104401

001226
001226
020367
020261
020407

012160

032760

010000

000012

'%:

010000

000012

2%:

012122

012166
01217G

001374
032760

THAT

VERIFY

THAT

CLEAR COMMAND AND A READIN PRESET

THE

DRIVE

CANNOT

ACCESSED

SETS WHEN ATEMPTINC TO ACCESS

ATTEMPT

SET

PORT

REQUEST

INTO RMDS THROUGH PORT A,

THE

AND

COMMAND THROUGH

THROUGH PORT

DRIVE

A AND

THROUGH

BY WRITING 0'S

ISSUE A RELEASE (OMMAND THROUGH PORT B.
DRIVE REMAINS LOCKED ON PORT B.

CYCLE THE DRIVE DOWN.
C(HANGE
A/B; CYCLE THE DRIVE UP.

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION
B8ITS ARE SET, AND THAT BOTH 'vv' BITS ARE RESET.

THE

'PORT

VERIFY THAT
SELECT'

THE

SWITCH

id sl ARl
22222 a2
2222 2]

T ST10:

000137

'NED®

PORT

BN B

BN N

NE BE NE BN NE

NN I

ARE

1%:
2%:
TEST10

7ST
BEQ
8PL

KYB(CT,L
2%
18

;PERFORMING ONLY SINGLE TESTS ?
;BR IF NOT
;BR IF JUST ENTERED TEST

MOV
Mov
MOV

#-1,KYBCTL
#TEST10,8LPADR
#TEST10,8LPERR

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

MOVRB
MOV

#10,8$TSTNM
#STALK,SP

JMOVE #10 TESTTM NUMBER
JSETUP THE STACK POINTER

MOvB
MOV
TYPE
TYPE
TYPE

PORIB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQOU!
LCYCLED
;'CYCLE DOWN THE DRIVE'
.SWICHB
;SWITCH TO 'B’
LCYCLEU
;'CYCLE UP THE DRIVE'

BIT

AMOL ,RMDS‘RO)

JMP

MOV

BNE
BIT

EXEC

#i,STIMES

'$
AMOL ,RMDS(RO)

;RETURN & GET NEXT TEST NUMBER

;:D0 1

;IS

ITERATION

'MOL' RESET ?

;BR iF NO (DRIVE NOT CYCLED DOWN)
;IS °'MOL' SET ?

_JMMSBC AMOS/3/2 DU POR TST 2
MALRQ v(%.00
TEST *PORT SELECT® SWIT(H ON PORY 8
012176

001774

BEQ

sORIVE

(12200
0122064
012212
012220

005037
016037
012737
060037

012232

013737

012224

012240
012246
012256
012256
012264
012272
012300
012302
012306

012737

042737
023737
001414
013737
042737
053737
104021
005137
000240

4-APR-B1

001244
000012
000012
001122

110600

001124

066077
001124

001164
001164

001126
111700
001174

001174
001174
C01124

001126

001164

001244

:BR IF

.+ Q 0048
NO

(DRIVE NOT

(Y(LeD UP)

(HE(K STAIUS THROUGH PORT B

(KERR
CLEAR THE 'CHECK ERROR® IND!ICATOR
RMDS (RO) ,$BDDAT
;GET CONTENTS OF RMDS
ARMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS

MOV

#ATA!MOL !DPR:DRY ,$GDDAT

8IC
cMp
BEQ
MOV
BIC
BIS
M7
(oM
NOP

#%C111700,$TMPO
$GDDAT ,$TMR)
649
$BDDAT, $TMP4
#111700,8TMP4
$TMP4L , SGDDAT
21
CKERR

MOV

64%:

"C-°G

IS (YCLED JP,

CLR
MOV
MOV
ADD

001126
001122

18:0E:36 PAGE

$BDDOAT, $TMPO

. WHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TG '$TMRQ’
;SAVE SPECIFIED 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

;SET VOLUME VALID FOR PORT B

012310
012316
012324

(€12760
012760
012760

000011
000021
070000

000000
000000
000032

MoV
MOV
MoV

#11 _RMCS1(RO)
cISSUE A DRIVE CLEAR
#21 ,RMCST(RO)
;ISSUE A READIN PRESET
HFMT16,RMOF
(RO) ;SET FMT16

;CHECK THE DRIVE STATUS THROUGH PORT A;

;SETS WHEN THE DRIVE
012332
012340

012346
012352
012360
012366
012372

012376

012404

012412
012420
012422
012430
012436
012444
01264¢
012452
012454
012460
012466
012474
012500
012506
012516
012522
012530
01,532
01257

'13760
013737

005037
016037
012737
060037
005037

013737

042737

023737
001434
013737
042737
053737
104022
005137
000240
005037
016037
012737
060037
012737
013737
042737
023737
001414
013737
042737

001224
007224
001244
000012
000012
001122
001124
001126

000010
001234

001126

001164

001126
177700
001174

001174
001174
001124

000077

001126
001122

001164

001244
001244
000010
000010
001122
010000
001126
167777
001126

001126
010000

MOVB
MoV
CLR
MOV
MOV
ADD
(LR
MOV

BIC

66$:
001126
001122
001124
001164
001164
001164

001174
001174

cMP
BEQ
MOv
BIC
BIS
EMT
oM
NOP
CLR
MoV
MOV
ADD
Mov
MOV
8IC
(MP
BtQ
Mov
BIC

VERIFY

THAT

1S ACCESSED THROUGH PORT A.

°'NED’

PORTA ,RMCS2(R0O)
;SELECT PORT A
PORTA ,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RQ) ,$8DDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, 38DADR
;ADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO °'$TMPQ’

#*C177700,$TMPO
$GDDAT,$TMPO
663
SBDDAT, $TMP4
#177700,8TMP4
$TMP4 , $GDDAT
22
(KERR

~;SAVE SPECIFIED 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

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMCS2(RO) ,$BDDAT
;GET CONTENTS OF RM(SZ2
#RMCS2 ,$8DADR
;FORM REGISTER ADDRESS OF ERROR MESSAGF
RO, $BDADR
;ADD RH/RM BASE ADDRESS
ANED ,$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO '$TMPO’
#~CNED,$TMPO
;SAVE SPECIFIED BITS
$GDDAT ,$TMPQ
;COMPARE THE BITS
68%
JBROIF 0K
$BDDAT, $TMP4
;COPY 'BAD DATA'
ANED ,$TMP4
;CLEAR THE MASKED BITS

(ZRHSBO RM0S/3/2 DU POR
MACRO v04.00
POR T1ST 2
TEST °*PORT SELECT® SWIT(H ON PORT 8

012546

25546
556

053737

001176

001124

001244

8IS

EMT

68%:

000012

4-APR-81

oM
NOP
CLR

K
18:08:36 PAGE

&
10-20

$TMP4 ,SGDDAT

;'OR' WITH GOOD DATA FCR TYPEQUT

(KERR

JSET THE REGISTER (OMPARE ERROR INDICATOR

RMDS (RO)

.TRY

TO SET REQUEST BY WRITING

;THE LOCKED QUT PORT (PORT

*A")

THRQUGH

JVERIFY THAT DRIVE STAYS LOCKED ON PORT B
001226
001226
000013
001226
001224
001226
001244
000012
000012

005137
000240

000010
001234
000012
001236
000010
9001234

001122
001124
001126
000077
001124

001164
001164
001164

MOVB
MoV
MOV
MOV
MOVB
MoV
CLR
MOV
Mov
ADD
CLR
MOV
BIC
ggz

001126
177700
001174

201174
0011764
001124

MOV
QL
.18

001126
001122

001244

EMT

70%:

com
NOP

PORTB,RMCS2(R0)
PORTB,PTNBR

#13 RMDS (RO)

v anrfionrSuerGhnrne-Gun
G GhurGrurSiurGurSurGurSurPur Gur gy

[olelelelalelolelelelelalelelololele]

032777

004

001054
104401
104401
104401
113760

013737
032760
001374
032760
001774

001103

001000

166162

166114

040000

166136

PORT ADDRESS

TO LOCATION FOR

TYPEOUT

;CLEAR 1HE °'CHECK ERROR'
;GET CONTENTS OF RMDS

RV, $BDADR
$GDDAT

;WHAT REGISTER SHOULD BE

#RMDS ,$BDADR

;MOVE

sMOVE REGISTER CONTENTS

#~C177700,$TMPO
.SAVE SPECIFIED BITS
$GDDAT
, $TMPO
;COMPARE THE BITS
70%
:BR IF OK

;COPY 'BAD DATA'
;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

$BDDAT, $TMP4

CHECK FOR LOOP ON TEST

CLRR
(LR

SERFLG
$TIMES
a$LPERR
#5W14,aSWR
6%

;DID AN ERROR OCCUR

:BR IF NOT
;SEE IF LOOP ON ERROR (SWR9 - 1)

3%
3%

;BR IF NOT
;CLEAR THE ERROR FLAG

;CLEAR THE MAX ITERATION COUNT
;GO TO THE LOOP ADDRESS
:LOOP ON TEST ?
;BR IF LOOPING

3%:

BIT

LCYCLED
. SWTCHN
LCYCLEU
PORTB,RM(S2(R0)

;TYPE 'CYCLE DOWN'
;'SWITCH T0 A/B'
:'CYCLE THE DRIVE UP*
;SELECT PORT B

ZQOL.RHDS(RO)

;IS 'MOL' RESET ?

A#MOL ,RMDS (RO)

BNE

(000010
001234
000012

4%:

TYPE
TYPE
TYPE
MOVB
MOV
g&g

010000

000012

5%:

BI7

BEQ

0 '$TMPO'

#177700,8TMP4
$TMP4 ,$GDDAT

#SW09,3ISWR

020367
020156
020407
001226
001226
010000

INDICATOR

;FORM REGISTER ADDRESS OF ERROR MESSAGL
;ADD RH/RM BASE ADDRESS

$BDDAT ,$TMPO

BIT

JMP

TYPEOQUT

CKERR
RMDS (RQ) , $BDDAT

PORTA,PTNBR

SERFLG

BEQ

001103
001176

TO LOCATION tOR

PORTA ,RM(CS2(RO)

PORTB,SE1ZPT

7SR

BEQ

PORT ADDRESS

sISSUE A RELEASE THROUGH PORT 8
;ADDRESS OF °‘LOCKED ON' PORT
:SELECT PORT A

;IF ERROR OCCURRED,
105737
001412
032777
001406
105037
005037
000177

;SELECT PORT B

;MOVE

PORTB,PTNBR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

BR IF NO (DRIVE NOT CYCLED DOWN)

YIS 'MOL' SET ?

‘BR IF NO (DRIVE NOT CYCLED UP)

;SET VOLUME VALID FOR BOTH PORTS

000011
000021
000013

000000
NOGO00
000000

MOV
MOV
MOV

#11,RMCST(RO)
#21,RMCST1(RO)
#13,RMCS1(RO)

;ISSUE A DRIVE (LEAR THROUGH PORT B
s ISSUE A READIN PRESET THROUGH °P0ORT B
;RELEASE PORT B

(ZRMSBO RMOS/3/2 DU POR IST 2
MACRO v04.00
1o
TEST ‘PORT SELECT® SWiTCH ON PORT ©

324
325
326
427

013076
013104
013112
013120
013126
013134
013142
013146
013150
013152

113760

013737
012760
012760
012760
012737
005737
001375

000004
000137

001224
0012c4
000021
010000
000013
011610
001254

J00010
001234
000006
000032
000000
001254

4&-APR-81

6%:

TST
BNE

WAICH
4

SCOPE

AN RS

#5000. ,WATCH

SEOP

RN AN AN AN A AR AN AN RPN

SPUT NEWTEST HERE
e

013156

000004

SEQ 0050

PORTA _RMCS2(R0) -SELECT PORT A
PORTA_PTNBR -MOVE PORT ADDRESS TO LOCATION FOR TYPEOU!
#21 RM(ST1(RO)
;ISSUE A READIN PRESET THROUGH PORT A
#FMT16 ,RMOF (RO) ;SET FMI16
#13,RMCS1(RO)
;RELEASE PGRT A

JwP

013160

MOV
MOv
MOV
MOY
MOV
MOV

7%:

18:08:36 PAGE 10-21

SSPINDLE MOTOR *COOL DOWN' DELAY
cFINISHED ?
;BR IF NOT

;LOOP ?

;GO TO THE END OF

A RAARR RN

PASS WQUTINE

AN RARRARRANNACRNARNNANNNEANN PR NN

2 2822242222022
R2Rd0RR
iR
222222223 R XN

TST11:

ScoPe

CZRMSBO RMOS/3/2 DU POR TST 2
tND OF PASS ROUTINE

MATRO v04.00

18:08:36 PAGE

END OF

PASS ROUTINE

.SBTTL
il

&-APR-B1

iisi

482820220200

SEQ 0051

RRldsR

"YINCREMENT THE PASS NUMBER (SPASS)

R RRRERRARREXX222R2R
2 2]

;*TYPE "“END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yvyyy''
;*WHERE

XXXXX AND

YYYYY ARE

DECIMAL NUMBERS

;*]F THERES A MONITOR GO TO T

005737

222

226

ool

266
270

352
362

OCOCOCOOODOOOLO

OO0O0O0OLC

OC
—

—

- B

A
A AN ANNNN
N A W N AN NN N &w
INWIRIAIWN W INAWNAN
N NN
25 BN
H

OO0COVOO0DOOOOOO0

;*IF THERE ISN'T JUMF TO TST1AA

001402
000137
005037
005037
005237
042737
005327
000001
003066

$EOP:

001266

002622
001102
001176
001100
100000

KYBCTL

SENTERED

JMP

EXEC

JRETURN TO KEYBOARD CONTROL

(LR

001100

012737
000001

013216

TST

BEQ

CLR
INC
8IC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
TYPE
BR
éi25$:
JASCIZ

.+6

$STSTNM

$TIMES
$PASS
#100000,$PASS
P+
1
$DOAGN
(PO)+,a(P)+
1

TEST

;BR IF NOT

VIA KEYBOARD

COMMAND

;:ZERO THE TEST NUMBER

;. ZERO THE NUMBER OF ITERATIONS
;o INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;.L00P?
:sYES
;;RESTORE COUNTER

104401

013236

013746

001100

MOV

$PASS, -~ (SP)

;. :SAVE $PASS FOR TYPEOUT

001112

TYPDS
TST

SERTTL

::GO TYPE--DECIMAL ASCII WITH SIGN
;.SEE IF ANY ERRDRS THIS PASS

TYPE
BR

L67%
66$

.:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV

$ERTTL,~(SP)

;o SAVE SERTTL FOR TYPEOUT

NC0407

104405

005737
001431

104401
000421

013746
104405

005037
104401

013700
001405
000005
004710
000240
000240
000240

200137
003104
377

BEQ

013276

5.67%:

66%:

001112

_ASCIZ

TYPDS

001112
001207
000042

CLR
$GT42P: TYPE
$GET42: MOV
8EQ
RESET
$ENDAD: JSR
NOP

,65%
::TYPE ASCIZ STRING
648
;.GET OVER THE ASC]Z
<12><15>/END PASS #/

$GT42P

377

0CO

$RTNAD:
S$ENULL:

SERTTL
.SCRLF
442 ,RO
$DGAGN
FC,(RO)

NOP

JMP
.WORD
.BYTE

.EVEN

;J:BR JF NO ERRORS TO REPORT

TOTAL ERRORS SINCE LAST REPORT /

NOP

$DOAGN:

;. TYPE PASS NUMBER

d(PC)+
TSTI1AA
-1,-1.0

;. TOTAL NUMBER OF ERRORS
;.60 _TYPE--DECIMAL ASCII

;s CLEAR ERROR TOTAL

WITH SIGN

;o TYPE CARRIAGE RETURN, LINE FEED
;2GET MONITOR ADDRESS

;;BRANCH IF NO MONITOR
::CLEAR THE WORLD
;GO TO MONITOR
;¢ SAVE ROOM
;:FOR
;. ACTIN

s ;RETURN

;:NULL CHARACTER STRING

(ZRMSBO RM0OS/3/2 DU POR T1ST 2
CLOCK SUBROUTINES

MACRD v04.00

4-APR-81

LSBTTL

2
3

:ROUTINE

18:08:36 PAGE

SEQ 0052

TLOCK SUBROUTINES
TO

CHECK

FOR KW11-L

KW11-P

(LOCKS

5 013406
6 01314
7 013620

8 013424
9 0136430

10 013434

11 013440
12 013446
13 013454

012737
005037

013456
000006

013701
012721

001216
013540

012777
072777
000425

177777
000135

165546
165536

000004
013520
165524

000004

005777

012711

14 013456
15 013462
16 013470

062706
012737
005777

18 013500
19 013504

012721
012711

17 013474

00300

001222

033510
013516
013520
013524

012777
000404
062706
062716

000100

gz 013536

000207

26 013530

012737

013540
000300

000004
000002

000006

165502

000004

000021
001254

001252

22 013554
33 013562

162737
100002

000021

001254

001406
005037

000002

001254

%g
39 013572
40 013574

41 013600
42 013602

43 013606
44 013610

45 013612
46 013616

MOV
MOY

$LPVEC.R1
2CLOCK, (R1)+

MOV

CKCLK1:

MOV
MOV
BR

ADD
MOV
1ST
MOV
MOV

MOV
BR
CKCLK2: ADD
ADD

CKCLK3: MOV
RTS

;SET UP VECTOR FOR CLOCK CHECK
:NEW PSW

aSLKCSR

:CHECK FOR KW11-P

#3090, (R1)

:PSW - PR] 6

#-1,3%.K(SB
#135,38LKCSR
CKCLK3

;KW11-P VECTOR ADDRESS
SET UP KW11-P VECTOR
;LOAD COUNTER BUFFER WITH 1°'S
:SET CLOCK - CNT UP, 16MS, CONT

INT

#4,SP
JRESTORE THE STACK POINTER
#CKCLK2 ,O#ERRVEC
;CHANGE ERROR VECTOR TO CHECK FOR kwll=L
asLKS
;LOOK FOR KW11-L
$LLVEC,R1

;KW11-L

#100,a8LKS
CKCLK3
#4,SP
#2,(SP)

;SET KW11-L INTERRUPT

#CLOCK, (R1)+
#300, (R1)

#6,IMERRVE C
PC

VECTOR ADDRESS

:SET UP KW11-L VECTOR
:PSW - PRI 6

:RESTORE THE STACK POINTER
:INCREMENT RETURN, NO CLOCK

:RESTORE THE ERROR VECTOR

;ROUTINE TO COUNT CLOCK TICKS
062737
005737

;g 013570

#CKCLKY,3#ERRVEC
SHERRVEC+?

MOV

29 013540
30 013546

34 013564

MOV
(LR
ST

21 013552

(KCLK:

165566

013701

20
21
22
23

000004

(CLOCK:

ADD
1ST

BEQ

SuB
BPL

1%:

CLR

RT]

#17., TIME
WATCH
1%
#17. ,WATCH
1%
WATCH

;ROUTINE TO CALCULATE
005746
016616
013546
011666

006216
006216
062666
000205

000002
000004
000002

TOLER:

TST
MOV

:BRIF

IT IS

:SUBTRACT 17 MS FROM WATCH DOG COUNTER
;BR IF NOT MINUS
:CLEAR WATCH DOG COUNTER

SRETURN

+ 25% TIME TOLERANCE VALUES

-(SP)
2(SP), (SP)

:MAKE ROOM ON THE STACK
:SAVE STACK

(SP)
(SP)

:DIVIDE BY 2
:DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4)

MOV
MOV

a(RS)+,-(SP)
(SP) .4 (5P)

ADD
RTS

(SP)+,2(SP)
RS

ASR
ASR

:ADD 17 MS TO ELAPSED TIME COUNTER
;1S WATCH ALREADY ZERO ?

:GET TIME VALUE
;MOVE TIME VALUE

:CALCULATE UPPER LIMIT FOR TIMEOUT
CRETURN WITH TOLERANCFS ON THE STA(K

IRMSBO RM0S5/3/2 DU POR 1S 2

L7OPE

HANDLER ROUTINE

MATRC v04.00

4-APR-81

.SBTTL
A

;*TH]S

B
9
18:08:36 PAGE 13

SEQ 0053

S(OPE HANDLFR ROUTINE
ASd2

ARl

ROUTINE

(CNTROLS

THE

sl 22322222222
X222 2R 2 )

LOOPING OF

:*AND LOAD THE TEST NUMBER(STSTNM)

SUBTESTS.

WILL

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)

;*AND LOAD THE ERROR FLAG (SERFLG> INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
s *SW14=1
LOOP ON TEST

;*SW1t=?
;*CALL
Pl

013620
013620
013622
013626
013634
8]%223

104407
004737
032777
001402
000137

013642

000416

0136446

013746

000004

013650

012737

$SCOPE:
014154
040000

165304

014136

000004

005737
012637
000517
022626
012637
000517

177060
000004

105737
001465
022737
001455
013746
012737
013737
000406
012737
012716
000002
012637

001103

000004

013760

022737

177777

014524

000001

014524

000001
001140
000000
000176
165110
001000

177766

014000
014006
014012

014016
014024
014030
014036
014040
014044

001430
032737
001424

042737
013746
017646
012737
011677
042777
104177
012676
012637

CKSWR
JSR
8IT
8EQ
JMP

;MAMRNSTART

013&70

000004

177777

014524

000004
013740
177766

000004
014524

177777
013754

000000
001140

014524

001140
165102

2 :SCOPE=]0T

SCOPE

$XTSTK: BR

013656
013662
013666
013670
013672
013676
013700
013700
013704
013706
013714
013716
013722
013730
013736
0137240
013746
013752
013754

013766
013770
013776

1%:

INHIBIT ITERATIONS

MOV

;s TEST

PC,STOP
#MIT14,3SWR
9%
$OVER
CODE

FOR

THE

;;LOOP ON PRESENT TEST?
:INO IF SW14=0
;2 JUMP OVER SCOPE ROUTINE
XOR

A#ERRVE(,-(SP)

Mov

#5% ,@#ERRVE(C

(MP

#-1,CPSAVE

FOR CHANGE IN SOF T-SWR

TESTERWANAN

;o
IF RUNNING ON THE "XOR'' TESTER CHANGE
;o THIS

INSTRUCTION TO A "NOP'‘ (NOP=240)

;:SAVE THE CONTENTS OF

;:SET FOR TIMEOUT

THE ERROR VECTOR

TST
a#177060
;o TIME OUT ON XOR?
MOV
(SP)+,a#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
;.60 TO THE NEXT TEST
5%:
(mMP
(SP)+,(SP)+
;:CLEAR THE STACK AFTER A TIME oOuT
MoV
(SP)+ ,a#ERRVEC
;.RESTORE THE ERROR VECTOR
B8R
SOVER
;.LOOP ON THE PRESENT TEST
68 ARRRNEND OF CODE FOR THE XOR TESTERNAANN
’%:
TS1B
$ERFLG
; cHAS AN ERROR OCCURRED?
BEQ
s
;:BR [F NO
CMP
#-1,CPSAVE
;:SEE IF TIMEOUT WAS PREVICUSLY RECORDED
BEQ
2003s
;:KICK AROUND ROUTINE IF SO
Mov
ERRVE(,-(SP)
2:SAVE CONTENTS OF ERROR VECTOR
MoV
#20008 ,ERRVE(
2 :SETUP ‘TRAP' RETURN ADDRESS
MOV
177766, CPSAVE
;:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
BR
20018
2000%:
MOV
#-1,CPSAVE
;:SET CPU ERROR REGISTER TIMEOUT INDICATOR
MOV
#20018, (SP)
;:SETUP RETURN ADDRESS
RT1
2001%.
MOV
(SP) + ,ERRVE(
;;RESTORE CONTENTS OF ERROR VECTOR
2002%:

B8eQ
BIT
BEQ

8IC
MOV
MoV
MOV
MOV
BIC
EMT
MOV
MOV

200538
#1100, CPSAVE
2003

#81700,177766
SWR,-(SP)
a(SP) ,-(SP)
#176,SWR
(SP) ,aSWR
#B1T09,aSWR
177
(SP)+,a'SP)
(SP)+,SWR

:sSEE IF CPSAVE HAS CPU ERR REG TIMEOUT

. ;BRANCH IF SO
;;SEE IF THE POWER MONITOR BIT IS ON
:;BRANCH TO CONTINUE ROUTINE IF CLEAR

INDICATION

;:CLEAR THE BIT FOUND TD BE SET
;+SAVE SWR ADDRESS
. :SAVE SWR VALUE
. :GET SOF TWARE SWR ADDRESS
;2GET CURRENT SJR VALUE
;;DON'T ALLOW LOOP ON ERROR ON THIS ERROR
;s CALL SPECIAL POWER FAIL BIT ERROR CALL
;sRESTORE SWR TO ORIGINAL VALUE
;RESTORE SWR ADDRESS

JRMSBO AMO5/3/2 DU POR TST 2
HANDLER ROUTINE

014050
014050
016054

RO RERRSNE

105037

005037
032777

001103
001176
004000

005737

001100

001011

001406
005237

023737
002012
012737
013737

105237
011637
013777
013716
000002
000005

001104
001176
000001
014152
001102
001106
001102
001106

4-APR-B1

2003s:

4%:

165052

3¢:

CLR8B

CLR
8IT
BNE
ST

BEQ

001104
001104
001176
164776

1%:

$SVLAD:

$OVER:

INC
(MP
BGE
MOV
MOV

INCB

MOV
MOV
MOV
RTI

el
d
—

ooV
orO

lelelalele)

FaW W

— bl
b wmd

;DROP PRIORITY

012746
012746
000002

000140
014166

STOP:

:
648
JRAISE

012746
012746
000002

000207

[

18:08:36 PAGE

13-1
SEQ 0054

SMXCNT:

[V, I N VY] §Y

—d el

b wmd

e nd wed i —h —

Y W o~
b
vd emd ad ——d cmd d —d b
—=Q
A
S
WRIN)
— —o
La¥
]

(olelolelolalolelels] o

016060
0146066
014070
014074

SCOPE

MACRO v04.00

000240
014200

MOV
MOV
RTI

PRIORITY

MOV

65%:

Mov
RTI
RTS

SERFLG
$TIMES

.. ZERO THE [RRUR FLAG
;..LEAR THE NUMBER OF ITERATIONS TO MAKE
;s INHIBIT ITERATIONS?
;:8k IF YES

MIT11,aSWR
1%

$PASS

13
$1CNT
$TIMES,$ICNT
$OVER
#1,$1CNT

;:IF FIRST PASS OF PROGRAM

N
INHIBIT JTERATIONS
. s INCREMENT JTERATION COUNT
.;CHECK THE NUMBER OF ]TERATIONS MADF
;:BR IF MORE ITERATION REQUiRED
;:REINITIALIZE THE ITERATION COUNTER
SMXCNT,$TIMES
::SET NUMBER OF ITERATIONS 10 DO
$TS5TNM
;:COUNT TEST NUMBERS
(SP)
,$L PADR
;:SAVE SCOPE LOOP ADDRESS
$TSTNM, aDISPLAY . :DISPLAY TEST NUMBER
$LPADR, (SP)
::FUDGE RETURN ADDRESS
;.FIXES PS
s cMAX. NUMBER OF ITERATIONS

TO ALLOW CONSOLE

INTERRUPT

#PR3,-(SP)
#64%,~(SP)

;2PUT NEW PS ON STACK
. sPUT NEW PC ON STACK
;PGP NEW PC AND PS

INHIBIT

#PRS ,~(SP}
#4658 ,-(SP)

CONSOLE

INTERRUPT

:;PUT NEW PS ON STACK
;:PUT NEW PC

STACK

;:POP NEW PC AND PS
;RETURN

(ZRMSBO RMOS/3/2 DU POR TST 2
ERROR HANDLER ROUTINE

MA(CRO v04.00

4-APR-B1

.SBTTL
e

D
5
18:08:36 PAGE 14

SEQ 0055

ERROR HANDLER ROUTINE

AN AR A A AR AN

A AN AT AN T TN RN R AN R

$eTHIS ROUTINE WILL

INCREMENT

RN RN R AR R RN RN ERANROA

THE

ERROR FLAG AND

;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
:«AND GO TO SERRTYP ON tRROR

;*THE

SWITCH OPTIONS PROVIDED BY

;*SW15=1

HALT ON ERROR

;*SW10-1

BELL ON ERROR

;*SW13=1
;«CALL

016202
014206

10503/
104407

014526

014216
0146222
014224
074232
0164260
014242
014246

105237
001775
013777
032777
001402
104401
005237

001103

014256
014264
014272
014300
014302
014310
014312
014316

162737
117737
032777
001060
122737
001454
105737
001047

014210

016252

014320
014326

113737

011637

022737
001445

014330
014334
016342
014350
014352

013746
012737
013737
000406
012737

014364
014366

000002
012637

016372
014400
014402
014410

022737
001420
032737
001414

014420
014426
0164434

113737
112737
000402

016360

014412

012716

001102

001242

001102
002000

164710
164700

001202
001112

001116

ERROR

$ERROR:

(LRB
(KSWR

IBSAVE

1%:

000002
164626
001000

001116
001114
164640

000177

001114

177777

014524

000004
014352
177766

000004
014524

177777

014524

014366
000004

014524

000001

014524

042737

000001

8}2223

105037

014526

014442
014450
014452

032777
001004
004737

020000

001114
000177

014530

1000%:

1002%:

177766

MOV

B8R
MOV
MOV
RT]

}882?'

ERROR COUNT,

THE ERROR CALL

ARE:

;. URROR=EMT AND N=ERROR ITEM NUMBER

$STSTNM, TSTNUM

;:CLEAR THE ITEM BYTE SAVE LOCATION
;. TEST FOR CHANGE IN SOFT~SWR

$ERFLG
7%
$TSTNM, aDISPLAY
#MIT10,8SWR
1%
LIBELL
SERTTL

;;SET THE ERROR FLAG
;.DON'T LLET THE FLAG GO TO ZERC
;:DISPLAY TEST NUMBER AND LRROR FLAG
;;BELL ON ERROR?
;:NO - SKIP
:sRING BELL
;. COUNT THE NUMBER OF ERRORS

#2,SERRP(
AS$ERRPC,SITEMB
#B1709,aSWR
10048
#177,81TEMB
10048
IBSAVE
1003%

;;STRIP AND SAVE THE ERROR ITEM (CODE
;.;SEE IF LOOP ON ERROR IS SET
; :BRANCH AROUND ROUTINE IF SO
;sSEE IF THIS IS THE POWER FAIL CALL
; ;BRANCH AROUND ROUTINE IF IT IS
;:SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
;;BRANCH IF SO

(SP) ,$ERRPC

#-1,CPSAVE
10049

ERRVE(C,-(SP)
#1000 ,ERRVEC
177766, CPSAVE

1001%
#-1,(PSAVE

#10018%, (SP)

;.GET ADDRESS OF ERROR INSTRUCTION

c;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT
;:BRANCH [F SO

INDICATION

;. SAVE CONTENTS OF ERROR VECTOR
;:SETUP 'TRAP' RETURN ADDRESS
;:MOVE (CPU ERROR REGISTER TO CPSAVE FOR TEST
;:SET CPU ERROR RECISTER TIMEOUT INDICATOR

;:SETUP RETURN ADDRESS

MoV

(SP)+ ERRVEC

:;RFSTORE CONTENTS OF ERROR VECTOR

(MP
BEQ
BIT
BEQ

#~1,CPSAVE
1004%
#31700, CPSAVE
1004$

;.SEE IF
;;BRANCH
;:SEC IF
;sBRANCH

MOVB
MOVB
BR

$ITEMB, IBSAVE
#177 ,81TEMB
1004%

. ;MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL
;:SET LITEMB TO SPECIAL POWER FAIL POINTER
; ;BRANCH OVER IBSAVE CLEARING

CLRB

IBSAVE

;:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT
B8NE
JSR

#BIT13,35WR
20%
PC,$ERRTYP

;:SKIP TYPEQUT IF SET
::SKIP TYPEQUTS
;G0 TO JSER ERROR ROUTINE

BIC

014526
001114

164470

INCB
8EQ
MOV
8IT
BEQ
TYPE
INC

cmMP
BEQ
MOV
MOV
MOV

1001%:

177777

MovB

SUB
MOVB
BIT
BNE
MPB
BEQ
T7S18
BNE

014526

AN NN NN RO IR

INHIBIT ERROR TYPEOUTS

7%:

THIS ROUTINE

THE

#M1100,177766

CPSAVE HAS (PU ERR REG TIMEOUT INDiCATION
IF SO
POWER MONITOR BIT IS SET IN CPU ERR REG
IF 0K

;:CLEAR THE BIT FOUND SET

"JRMSBC RM(OS/3/72 DU POR 157 2

ERROR +ANDLER ROUTINE

por i

QOOOCOO0O0

i Gy Qi Suar G
S

f 2k 32X 2 2Rk aE 2F
M
PANDAWAN
MNONINN)
2 —2 wd oSO
NO

914456
016462
016662
014466
0146470

10440"

001207

165737
001C05

01452%%

005777

100002
000000
104407

022737
001001
000000
105737

001236
000002
000000
000000

MACRC v04.00

4-APR-81

208:
2%:

164444

013366

014526

TYPE

LSCRLF

15718

JBSAVE
i3

BNE

1ST

8PL
HALT
(KSWR

000042
6%:

(PSAVE:
:
IBSAVE

E
5
18:08:36 PAGE 14-1

asSwRk

SEQ 0056

J:SEE Ir IBSAVE ]S LOADED
;;BRANCH IF NOT - NO HALT ON PWR MON BT ERROR
ssHALT ON ERROR
J:SKIP IF CONTINUE

ssHALT ON ERROR!

csTEST FOR CHANGE

N SOFT=-SwR

(MP

#SENDA
, 3N62
D

2:ALT=11 AUTO-ACCEPT?

BNE

1ST8

IBSAVE
7%

;:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR C(ALL
::2@¢Ugn BACK TO CALL ORIGINAL ERROR

.WORD
.WORD

0
0

“*LOCATION TO SAVE CPU ERROR REG CONTENTS

BNE
HALT

RT]

2 ;BRANCH IF NO
;. YES

*:LOCATION TO SAVE

ITEM BYTE

fJRMSBO RMOS/3/2 DU PCR TST 2
ERROR MESSAGE TYPEOUT ROUTI NE

MATRC v06. 00

4&-APR-B1

.SBTTL

18:08B:36 PAGE

ERROR MESSAGE

>EQ 0057

TYPEOUT ROUTINE

::t'.'.fifitllit'ttt'ttt""t'll'tt‘."Q."t'i.ttl"'.t.t't"'.t"..

;*TH]S ROUTINE

USES

:*AND REPORTS

1THE

THE ‘“'ITEM (ONTROL BYTE'" (SITEMB)

QOO0OOVC

J*ERROR IS TO BE REPORTED.

104401

001207

153700

001114

010046
005000

013746

001004

000456

$SERRTYP:

001116

1044C2

D
=B
el
e
D
ed
s

—

i
e
d ol
D
e
d
et
)
i
d

000177

113737

001102
014726

012700
000406
005300
006300
006300
006300
062700
012037
001404
106401

012037
001404

104401
000000
1064401

010146
012001
20415
012000

01506¢€
10008:

001276
014624

104401

000000

1¢:

001207
014642

00120~

105720

001003
013146
104402

000402

2%:

3¢
4%

5%:

104405
1064401

000764

012601
01260C

$ERRP(C ,=-(SP)

(MPB

BNE
MOVB
MOV
BR
DEC
ASL
ASL

ADD
MOV

108

#177,R0

1000%
$TSTNM, PFTSTN
#PFECH,RO
1001%
RO
RO
RO

ITEM INDEX

;oIF

ITEM NUMBER IS ZERO,

;G0

TYPE--OCTAL

;:TYPE THE PC OF THE ERROR
.+ SAVE $ERRPC FOR TYPEOUT
. sERROR ADDRESS

;:GFT QUT
;;SEE

FEED'’

JUST

ASCIIC(ALL

THIS ERROR CALL

DIGITS)

; :BRANCH IF NOT
.:GET TEST NUMBER
;;MOVE POWER FAIL ERROR CALL
;sBRANCH TO CALL ERROR
s sADJUST THE
b
WORK

INDEX SO THAT
FOR THE ERROR

SPECIAL FOWER FAIL

TABLE

IT WILL
TABLE

::"ERROR MESSAGE'' POINTER GOES HERE
;:"'CARRIAGE RETURN'' & "1 INE FEED''

B8EQ

. WORD
TYPE

0
LSCRLF

MOV

{(R0O)+ R1

MOV

TvYPE

MOV

(RU)+,64%

R1,-(S5P)

B8R

MOV
TYPDS

a(R1)+ ,~(5P)

TYPO(

9%
(RO)+ R0
(RQ)+

;:SKIP TYPEOUT IF NO POINTER
:;TYPE

THE

'ERROR MESSAGE'’

;;PICKUP 'DATA HEADER'' POINTER

::SKIP TYPEOUT IF O

.. TYPE THE 'DATA HEADER''

;:'DATA HEADER'® POINTER GOES HERE
;2" 'CARRIAGE RETURN'' & "LINE FEED''

;:SAVE R1

;:PICKUP 'DATA TABLE'®' POINTER

:;BR IF NO DATA TO BE TYPED
::PICKUP "DATA FORMAT'' POINTER
::"OCTAL'"
OR "DECIMAL"'

;:BR IF DECIMAL
;:SAVE a(R1)+ FOR TYPEQUT

;260 TYPE--OCTAL ASCII(ALL

(R1)
9%

;215 THERE ANOTHER NUMBER?
:.BR [F NO

;.LO0P

MOV

(SP) + R

MOV

(SP)+ RO

DIGITS)

::SAVE a(R1)+ FOR TYPEOUT
;G0 TYPE-~DECIMAL ASCI] WITH SIGN

TST
BEQ

TYPE

‘U

RETURN'' & 'Y INE

0
LSCRLF

TYPE

7%
@(R1)+ ,=(SP;

;s SAVE RO
2:PICKUP THE

ERROR.

.WORD
TYPE

BEQ

BNE
MOV

014722

;' 'CARRIAGE

THE

.;FORM TABLE POINTER
;:PICKUP ‘ERROR MESSAGE'' POINTER

~$:

8%:

INFORMATION CONCERNING

#SERRTB RO
(RO)+,2%

BEQ
MOV
TSTR

013146

005711
001403

MOV

ASL

1001%:

JSCRLF

RO, -(SP)
RO
] TEMB,RO
a8
1%

B8R

wH[(H

IT THEN OBTAINS, FROM THE 'FRROR TABLE'' ($ERRTB),

APPROPRIATE

MO/
CLR
BISB
8NE

TYPOC

122700

001006

TYPE

TO DETERMINE

.:TYPE

TWO(2)

;;RESTORE

::RESTORE RO

SPACES

TO RO

CALL

JAMSBO RMGS/3/2 Gu PCR TST 2

P R

MESSAGE

316714

TYPEOUT

ROUT INE

MA (R

,T4.00

4-APR-B1

SEQ

10440

001207

040

co0

016726

01673

015020

015052

PFECH:

PFECHT PFECHZ2 PFECH3 PFECHL ;;WORDS DEFINING TABLES BELOW

015020

124

105

123

PFECH2:

.?SE’{'Z

015052

015066

001116

014524

215066

000000

$¢16720

314722

014736

015062

000207

120

060

117

000

TYPE

6 5
'B:08:36 PAGE 15-1

127

000

118:

RTS

.gsg'{‘z
.EV

PFECH1: _ASCIZ
PFECH3:

::7'CARRJAGE RETURN'' & 'LINE

J:TWO(c) SPACES

s SRETURN

FEED"

?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
?TESTNO

ERR PC

CPUERREG?

.WORD

PFTSIN,SERRP(,(PSAVE,OD

_WORD

PFE(H4: .BYTE
PFTSTN:

.SCRLF

0,0.0,0

;s CONTAINS

TEST NUMBZR FOR PF

BIT ERROR

C058

" JRMSBO RMCS/3/72 L, POR TST 2
ROUTINE

4-3PR-87

.SBTTL
CrARN

'B:08:36 PAGE

5
?6

TYPE ROUTINE

R R A S AR AR AN AR

R AN AT

AR N PA NN RN

RN AR RN AARARANCANSINAINERN
AR OARAN

S*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINAT: WITH A O BYTE.
;*THE ROUTINE
;*NOTE1:

;*NOTE2:
;*NOTE3:

WILL

INSERT A NUMBER OF NULI (HARACTERS AFTER A LINE FEFD,
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARA(TER,
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$7ILLC CONTAINS THE CHARACTER TO FILL AFTER.

;«CALL:
;*1) USING A TRAP INSTRU(CTION
o
.MESADR
TYPE

:*OR

50238
NOENOSOOTVIONN 80*3\0
el coed
)
d cead
d vod —d
b ed
d

100002

000000
000407
010046
017600
112046

001005
005726
012600
062716
000002

B
e
e

1%:

000002

2%:

122716

000011

122716
001006

000200

001430

123/26

001350
013746
002770
004737
105337
000770

7STB

$TPFLG
1%

;:1S THERE A TERMINAL?
;:BR IF YES

BR
MOV
MOV

s :LEAVE

BPL
HALT

015356
015240
001156

5%:
6%:

001154

RTI
(MPB

7%:

DE(R

BLT
JSR
DE(B
BR

015240
015356

D s

ANA

e
o

ALV
VT, SIS 1N
AN
AIND
N —~
[ R 1, SPJaPo

JHOR]ZONTAL

8%:

015356

9% :

MOVB

JSR
8178R
8NE
TST
BR

NO TERMINAL

;s SAVE RO
;:GET ADDRESS OF ASCIZ STRING
;:PUSH CHARACTER TO BE TYFED ONTO STA(K

#HT, (SP)

:;ADJUST RETURN PC
2 ;RETURN
;s sBRANCH IF <HT>

J2BR IF IT ISN'T THE TERMINATOR
IF TERMINATOR POP IT OFF THE STACK
;3
;:RESTORE RO

#CRLF, (SP)

; sBRANCH IF NOT <CRLF>

(SP)+

;;POP

$CHARCNT

;:CLEAR CHARACTER COUNT
:2GET NEXT (CHARACTER
;:G0 TYPE THIS CHARA(CTER
;IS IT TIME FOR FILLER (HARS.?
;o.1F NO GO GET NEXT (CHAR.
;.GET # OF FILLER CHARS. NEEDED
;sAND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
;260 TYPE A NULL
;D0 NOT COUNT AS A COUNT
;.LooP

$CRLF
CLRB
BR
JSR
(MPR
BNE

;HALT HERE

@2(SP) ,RO
(RO)+,-(SP)

4%
(SP)+
(SP)+,RO
#2,(SP)

BNE
TST
MOV
ADD

MOV

000001

000049
015240
000007

RO,-(SP)

MOVB

1ST
TYPE

1046401

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
ME SADR

BEQ
(PR
BNE

005726

105366

ad ol

$TYPE:

60%:
3%:

001207
105037
000755
004737

—

001157

000002

QOISO

D ah md

NOONNALS
DD MANIMNIN) 2 wa

105737

f_\a)'\)gf\)—fi
o KRS8

—d e

D od e

d e

D amd ol

d —h

OOCOOODOO COODOCOOODOVLOOOO

el
——

OO0

(U LV, SV, IV, LV TRV, LV AV, IO, QU AV RV, LV, AV, W, AV TV, AV, RV, TV IV TV SN IV IV 1V, IV IV IV 1V, )

;e
M

QOOOO0O

TYPE

My RC v04.0C

PC,STYPEC

$FILLC, (SP)+

SNULL ,-(SP)

1(5P)

PC,STYPEC
$CHARCNT
7%

<(CR><LF>

EQUIV

;;TYPE A CR AND LF

TAR PROCESSOR

L (SP)

PC,STYPEC

#7 ,$CHARCNT
9%
(SP)+

;. REPLACE TABR WITH SPACE

::TYPE

A SPACE

;;BRANCH Ir NOT AT
;. TAB STOP

;.POP SPACE OFF STA(K

:.GET NEXT (HARA(TER

JRMSBC RMOS5/3/2 DU POR ST 2

y046.00

4-APR-B7

)

18:08:36 PAGE

16-!

SO0

LSV

b d wh ol
¥

jelelolajcivlelalololslololalelolslolblolelalelolelaldlole)

ROUT INE

b ad el d oD

122716

oD d ed ed e
D e
B ed
D ed ed
D
B ot h
b e

105777
100022

017766
042716

[ LV L0 LV, (UL RV IV LU LV LV IV IV, RV LV RV IV IV TV 1V 1V IV IV 1V
N
A LN LN N LN L LA LN AN AN U AN W AN WA
O MAN S ANWNIN
- 2 b —a
OSSO OO ONNNCO

“YPE

ML RC

001012

105777
100375
117716

0462716
122716
001366

SEQ 0060
$TYPE(:

163730
163674

177600
000023
163654

000021

102%:

005726
163632

006002
000075

105037

015356

122766

000012

001003

000406
001402

105227

000000
000207

10%:

163624
000002

000002

as$TKS
108
,
- (SP)}
as$TxB

;s CHAR IN KYBD BUFFER?

102%

;:BR [F NOT

#177600, (SP)
#IXOFF
, (SP)

::BR If NOT
2:GET CHAR

J:STRIP EXTRANEQUS BITS
;sWAS CHAR XOFf

75718

a$TKS

J:WAIT FOR (CHAR

MovB

a$Tk8, (SP)

#177600, (SP)
#$XON, (SP)
1018

::GET CHAR
2:STRIP T
;:WAS 1T XON?
;sBR IF NOT

TST

+
(SP)

ssFIX STACK

7518

a$TPS
108

;oWAIT UNTIL PRINTER IS READY

BPL

163650
177600

105777
100375
116677
122766

1818

8PL
MOV
8IC
(MPR
BNE

BIC
CMP8
BNE

BPL
MOVB
{MPR
BNE
CLRB
BR
1%:
(MPR
8EQ
INCB
$CHARCNT
: .WORD
$TYPEX: RTS

1013

2(SP) ,a$1PB

#CR,2(SP)
1%
$CHARCNT
$TYPEX
#LF,2(SP)
STYPEX
(PC)+

::LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
;sBRANCH IF NO

::EE?;-CLEAR CHARACTER COUNT

;+1S CHARACTER A LINE FEED?

; ;BRANCH [F

YES

;s COUNT THE CHARACTER
. . CHARACTER COUNT STORAGE

CZAMSBO RM05/3/2 Du POR 1ST 2 ‘M(QO ¥064.00
BINARY TO OCTAL ‘ASCII) AND TYP

&-APR-81

.SBTTL

S
J
18:08:36 PAGE 17

BINARY Y0 OCTAL (ASCII) AND TYPE

;*«THIS ROUTINE

IS USED

TO CHANGE

;«OCTAL (ASCII) NUMBER AND TYPE |T.

;«$TYPOS~~~ENTER HERE
:«CALL:

MOV

NUM, - (SP)

;sNUMBER TO BE TYPED

BYTE
.BYIE

N
M

;:N=1
:M-1

TYPQS

YT S

;;CALL

TYPEOUT

DIGITS

1O TYPE

D'GITS TO TYPE

;. 1=TYPE LEADING ZEROS
;. 0=SUPPRESS LEADING ZEROS

LRI

FOR

TO 6 FOR NUMBER OF
0RO

10O A 6-DIG!”

TO SETUP SUPPRESS ZEROS AND NUMBER OfF

]

16-8]7 BINARY WUMBER

;*$TYPON-~--ENTER HERE
;=$1YPOS OR $TYPOC
J=CALL:

o>
I

MOV

TYPON

10 TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM, - (SP)

;;NUMBER TO BE TYPED
;s CALL FOR TYPEOUT

.- %

.’"%LYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*«(ALL:

015362

017646

015404
015406
015414
015422
015430
015432

000406
112737

112737
112737
010346
010446

015436
015442
015444
015450
015454
015460
015464
015466
015470
015472
015474
015476
015500
015502
015504
015510
015512
015516

113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002

0°5524

005204

015366
015374
015400

015434

015520
015522

116637
112637
062716

010546

005704
001403

0G0O000

000001
015607
000002

015605

000001
000006
000005

015605
015607
015604

TYPOC

$TYPOS: MOV

MOVB
MOVB
ADD

B8R
$TYPOC: MOVB
MOVB
$TYPON: MOVR
MOV
MOV

MOV

015607
000006
015606
015605
000012
1%:
2%:

015606

MOV

3%:

177770

4%:

MOVB
NEG
ADD
MOVR
MOVB
MOV
(LR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DE(R
BPL
BIC
BNE

1ST
BEQ
INC

NUM, - (SP)

;cNUMBER TO BE

a(SP) ,=-(SP)

;;PICKUP THE MODE

$TYPON
#1,80FILL
#6,$OMODE +1
#5,80CNT
R3,-(SP)
R4 ,~(SP)

;:SET THE ZERO FILL SWITCH
J:SET FOR SIX(6) DIGITS
;sSET THE ITERATION COUNT
;;SAVE R3
; :SAVE R4

1(SP) ,$0FILL
(SPJ)+,$OMODE+1
A2, (SP)

RS,=-(SP)

$OMODE+1 R4
R4
#6 R4
R4, $OMODE
$OFILL RS
12(SP) RS
R3
R5
3%
RS
RS
R5
RS5,R3
R3
$OMODE
7%
#177770,R3
4%

R4
5%
R4

::CALL

FOR

TYPED

TYPEOUT

;:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
;:ADJUST RETURN ADDRESS

;sSAVE RS

:.GET THE NUMBER OF DIGITS T0 TYPE
:;SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
J:GET THE ZERO FILL SWITCH
;sPICKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD
;;ROTATE MSB INTO '‘C*'
::G0 DO MSB
::FORM THIS DIGIT

;:GET LSBR OF THIS DIGIT
::TYPE THIS DIGIT?
;:BR IF NO

;:GET RID OF JUNK
J:TEST FOR O
;JSUPPRESS THIS 0?
JiBR [F YES
;:DON'T SUPPRESS ANYMORE ('S

ZRMSBO RM05/3/2 DU POR 1ST 2

BINARY

MACRO v04.00

10 OCTAL

(ASCII)

AND TYPE

015526
015532

052703
052703

000060
000040

5%:

015542
015546
015552
015554
015556
015560
015562
015564
015566

104401
105337
003347
002402
005204
000744
012605
012604
012605

015602
015604

7%:

Q015536

015570

015576
015600
015602
015603
015604
015605
075606

110337

016666

012616
0600002
000
000
000
000
000000

015602

6$:

000002

000004

4-APR-81

18:08:36 PAGE

17-1

BIS
81S
Mov8e

#'0,R3
#" R3
R3,8%

;sMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING

MOV

2{SP) ,4&(SP)

;:SET THE STACK FOR RETURNING

TYPE
DE(B
BGY
BLT
INC
BR
MOV
MOV
Mov

MoV
RT1
8%:
BYTE
.BYTE
$OCNT:
.BYTE
$0F ILL: .BYTE
$OMODE: .WORD

. 8%
$OCNT
2%
6%
R&
2%
(SP)+,R5
(SP) + R4
(SP) +,R3

(SP)+,(SP)

0
O
O
0
O

::60 TYPE THIS DIGIT
;:COUNT BY 1
::BR IF MORE TO DO
;:BR IF DONE
5o INSURE LAST DIGIT ISN'T A BLANK
;260 DO THE LAST DIGIT
;;RESTORE RS
;sRESTORE R4
;;RESTORE R3

s JRETURN
;:STORAGE FOR ASCII DIGIT
;. TERMINATOR FOR TYPE ROUTINE
;.OCTAL DIGIT COUNTER
;o ZERO FILL SWITCH
;:NUMBER OF DIGITS 1O TYPE

SEQ 0062

(ZRMSBO RM05/3/2 Du POR 1ST 2
MACRO v04.00
CONVERT BINARY 10 DECIMAL AND TYPE ROUTINE

4-APR-81

.SBTTL

L
18:08:36 PAGE

5
18

SEQ 0063

(ONVERT BINARY TO DECIMAL AND TYPE ROUTINE

M It..tl’lfit..ttt'l.ltt""'.‘.tttt.'.t'tt'ifitttt'tt'!'Q‘.t't'..'.

SeTHIS ROUTINE

IS USED

$»SIGNED DECIMAL

TO CHANGE

16-BIT BINARY NUMBER

(ASCII) NUMBER AND TYPE

TO A

S=DIGIT

IT. DEPENDING ON WHETHER THE

;*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

J*REPLACED WITH SPACES.

;=CALL:

o
s

015610
015610
015612
015614

010046
010146
010246

015620

010546

015616

015622
0715626
015632
015634
015636
015644
015646
015652
015656

015660
015664
015666
015670
015672
015674
015676
015700
015702
015704
015706
01§71O
015712
015720
015724
15730
015732
015734
015740
015742
015744
015746
015750
015752
015754
015762
01572646
015766
015770
015772

$TYPDS:

010346

012746
016605
100004
005405
112766
005000
012703
112723
005002

016001
160105
002402
005202
000774
060105
(05702
001092
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601

MOV

NUM,~(SP)

. sPJUT THE BINARY NUMBER ON THE STA(CK

oV
MOV
MOV

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

;:PUSH RO ON STACK
:;PUSH R1 ON STA(K
;:PUSH R2 ON STACK

MGV

RS5,-(SP)

;sPUSH R5 ON STACK

TYPDS

MOV

(020200
000020

000055

000001

016024

000040

1%:

2%:

016014

3%:

4%:

5%:

000001
000060
000040

77777

6%:
7%:

000010

8%:
177777

177776

9%:

MOV
MOV
BPL
NEG
MOVB
(LR
MOV
MOVB
CLR

MOV
SUB
B8LT
INC
BR
ADD
TST
BNE
TSTBR
8Mmi
ASLR
B(C(
MOVB
BIS
BIS
MOVB
TST
CMP
BLT
BGT
MOV
B8R
TST8B
BPL
MOVB
CLRB
MOV
MOV
MOV
MOY

R3,-(SP)

#20200,-(SP)
20(SP) ,R5
1%
R5
#'-,1(SP)
RO
#SDBLK ,R3
#' L(R3)+
R2

$DTBL (RO) ,R1
R1,R5
4%
R2
3s
R1.R5
RZ
5%
(SP)
7%
(SP)
6%
1(SP) ,~1(R3)
#'0,R2
#' _R2
R2,(R3)+
(RO) +
RO,#10
2%
8%
RS ,R?
6%
(SP)~
9%
~1(SP) ,=2(R?)
(R3)
(SP)+ RS
(SP)+ _R3
(SP)+ ,R2
(SP)+ R

;:GO

THE

ROUTINE

:¢PUSH R3 CON STACK

;"SET BLANK SWITCH AND SIGN
;.GET THE INFUT NUMBER
;:BR IF INPUT IS POS.
;.MAKE THE BINARY NUMBER POS.
;;MAKE THE ASCI]I NUMBER NES.
;. ZERQ THE CONSTANTS INDEX
.:SETUP THE OUTPUT POINTER
;<SET THE FIRST CHARACTER TO A BLANK
;. CLEAR THE BCD NUMBER

;.GET THE CONSTANT
;,FORM THIS BCD DIGIT
.sBR IF DONE
;: INCREASE THE BCD DIGIT BY i
;;ADD BACK THE CONSTANT
;:CHECK IF BCD DIGIT=0
;oFALL THROUGH IF 0

;.STILL DOING LEADING 0°'S?
;:BR IF YES

;:MSD?
;:BR IF NO
;o YES-=-SET THE SIGN
;cMAKE THE BCD DIGIT ASCII
J:MAKE IT A SPACE IF NOT ALREADY A DIGIT

;.PUT THIS CHARACTER IN THE QUTPUT BUFFER
;s JUST INCREMENTING

;s CHECK THE TABLE INDEX
::GO DO THE NEXT DIGIT
::GO T0 EXIT
;GET THE LSD
..GO CHANGE TO ASCII
JWAS THE LSD THE FIRST NON-ZEROQ?
:*BR IF NO
:;YES--SET THE SIGN FOR TYPING
;SET THE TERMINATOR
. :POP STACK INTO RS
;P29 STACK INTO R3
;;POP STACK INTO R?
;:POP STACK [NTO R1

" IRMSBC RM(S/3/2 DU POR T1ST 2

MACRO v04.00

[ INVERT BINARY TO DECIMAL AND TYPE ROUTINE

015774

012600

104401
016666

012616
000002
023420
001750
000144
000012

016024
000002

&-APR-81
MOV

TYPE

000004

MOV
MOV

:
$DIRL

$DBLK:

RT!

10000.
1000.
100.
10.
BLKW

mn
S
18:08:3¢ PAGE 18-1
“tQ 0064
(SP)+ RO

. $DBLK
2(SP) ,4(SP)
(SP)+,(SP)

<sPOP STA(CK INTO RO
JoNOW TYPE THE NUMBER
:ADJUST THE STACK
;;RETURN TO USER

{ ZRMSBC RMCS5/3/2 DU POR TST 2
TTY

INPUT

ROUTINE

MalRO v04.00

4-4PR-B1

_SBYTL

TTY

18:08:36 PAGE 19

“£Q 0065

[NPUT ROUTINE

".'ttttt.t.t"tttt.'tl."'."!tt'.Qt..t'lt't".ttl'l!‘t.'.ttl""t

016034

016036
016040

016042

.ENABL

LSB

000000

$TKCNT:

016043

$TKQSRT: .BLKB
$TKQEND=.

000000
000000

_WwORD

$STKQIN: .WORD
$TKQOUT: .WORD

;:NUMBER OF

;:TTY KEYBOARD QUEUE

0
O

.EVEN

;*7K INITIALIZE ROUTINE
:#THIS ROUTINE WILL INITIALIZE

;*SETUP THE

:«CALL:

005037
012737
013737
012737
012737
005777

016112

000207

016104

012777

016034
016042
016036
016114
000200
163042

000100

016036
016040

THE

TTY KEYRBOARD

INPUT

QUEUE

INTERRUPT VECTOR AND TURN ON THE "..YBOARD INTERRUPI

RE TURN

JSR

PC.STKINT

$STKINT:

(LR
MOV
MOV

$TKCNT
::CLEAR COUNT OF ITEMS IN QUEUE
#STKQSRT,$TKQIN ;:MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
;:QUEUE INTQ THE INPUT & OUTPUT POINTERS.

MOV

#100,a8$TKS

016044
016050
016056
016064
016072
016100

ITEMS IN QUEUE

;: INPUT POINTER
;;0UTPUT POINTER

000060
000062

MOV
MOV
TST

63032

RTS

;*TK

SERVICE

#S$TKSRV,INFTKVEC ;;INITJALIZE THE KEYBOARD VECTOR
#200,a#TKVEC+2
;."BR'" LEVEL &
a$TKR
. CLEAR DONE FLAG
PC

;JENABLE TTY KEYBOARD INTERRUPT
;;RETURN TO CALLER

ROUTINE

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;«]T IN THE QUEUE.
:*]F THE CHARACTER IS A "'CONTROL-C'' (“C) STKINT IS CALLED AND

;*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (START)

016114
016120

117746
042716

016130
016132
016134
016136
016136
016142
016144
016150

001002
005726
000002

021627
001007
104401
004737

000003

016156
016162
016166
0161720
0161726

000137
021627
001004
022737
001500

001766
000007

016200
016200
016206

022737
001004

016126

016154

016210

021627

005726

104401

163026
177600

$TKSRV: MOVB
BIC

000021

;:PICKUP THE CHARACTER
::STRIP THE JUNK

BNE
TST
RT!

30%
(SP)+

:BRANCH IF NO
;:CLEAN RANDOM XON OFF
::RETURN

(MP
BNE
TYPE
JSR

(SP) A3
1%
LSCNTLC
PC,STKINT

;IS IT A CONTROL €2
; BRANCH If NO
;;TYPE A CONTROL-C (*C)
:2INIT THE KEYBOARD

JMP
(MP
BNE
(MP
BEQ

START
(SP) 47
2%
#SWREG, SWR
63

;:CONTROL C RESTAKT
:;IS IT A CONTROL G”
:;BRANCH [F NO
;1S SOFT-SWR SELECTED?
:;G0 TO SWR CHANGE

(mP
BNE

#1,8TK(NT
it

(MpP

30%:

017242
016044

TST

1%:

000176

001140

000001

016034

001202

a$TKB,~(SP)
#*C177,(SP)

’%:

TYPE

(SP) ,#$XON

(SP)+

LSBELL

;1S IT A RANDOM XON?

:;CLEAN UP STACK

::1S THE QUEUE FULL?
:;BRANCH [F NO

JIRING

THE

TTY BEL.

STA(K

JHMSBO RM05/3/2 Du POR TST 2
TTY INPUT ROUTINE

016214
016216
916220
16226
016226
076232
016234
016240

016242
016246

005726
000451
021627
001021
005077
005726
105777
100375
117746

042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677

005237
023727
001003
012737
000002

MACRD v04.00

&-APR-B1

8 6
18:08:36 PAGE 19-1
SEQ 0066

TS8T

000023

3s:

162712
162704

318:

162700
1776N0

00C. 1

0100

6265¢

016034
0001490

32%:

000175
000040
177516

A ¥

016026
016036

016043

016042

016036

5%:

BR
(P
BNE
(LR
1ST

T1STB

BPL
MOVB
BIC
MP
BNE
MOV
RTI

INC

(MP
8LT
cMP
8GT
BIC
MOVR
INC
CTMMP
BNE
MOV

RTI

+
(SP)

:;£§§?~ CHARA(CTER OFF CF STA(K

(SP)+
asTKS
318
a$TKB,-(SP)

;oIS IT A CONTROL-S?
; ;BRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
;s CLEAN (HAR OFF STA(K
J:WAIT FOR A (MHAR
;;LO00P UNTIL ITS THERE
;:GET THE CHARACTER

(SP)+ 421
318
#4100,3%TKS

;2IS IT A CONTROL=-Q?
::BRANCH IF NO
s ;REENABLE TTY KEYBOARD INTERRUPTS

5%
(SP) 423
228
a87TkKS

R~Ci177,(SP)

$TKCNT
(SP) 4140
43
(SP) ,A175
4%
#460,(SP)

JeMAKE IT 7-BIT ASCII

; cRETURN

;s COUNT THIS CHARACTER
;1S IT UPPER (ASE?
2 ;BRANCH IF YES
.. IS IT A SPECIAL CHAR?
; ;BRANCH IF YES
;:MAKE IT UPPER CASE
;:AND PUT IT IN QUEUE
;;UPDATE THE POINTER

(SP)+,3$TKQIN
$TKQIN
$TKQIN,#$TKQEND ;.GO OFF THE END?
5%
;;BRANCH IF NO
H#STKOSRT,$TKQIN ;. RESET THE POINTER
: sRETURN

:;tt*t*t*tfittfittti*t'tttti'ifit*tttttittttt**tttt*itittt'*t'itt!t'

OOO§OOOO

—

et
i

el —

lelelalele lolelal

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
J*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP

022737
001124

105777
100121
117746
042716
021627
001300

000176

0v1140

;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR:

(MP

162564
162560
177600

000007

AR RRERRAR P AR A AR

ASWREG, SWR

15%
a$TKS
158
a$TKB,
- (SP)
#*C177,(SP)
(SP) ,#7
2%
R A A AR AT E R

;:1S THE SOFT~SWR SELECTED
JoEXIT IF NOT
;1S A CHAR WAITING?
;oIF NOT,

;o YES

JMAKE IT

EXIT

7-BIT ASCII

::1S 1T A CONTROL-G?
;oI1F NOT, PUT IT IN THE TTY QUEUE
JsAND EXIT
AR AN

RERARAR AR

RRAANRANARAR R

AANANS

Nttt

S
%goo«oo
OO
NO‘NOSO

it ) el e

OO0

—b v

el e ol

OO0OO0O0O0C0O

s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE T7TY INTERRUPT SERVICE

123727

001134

000001

112737

016044
162522
000001

001135

001674
005726
004737
005077
104401

104401

013746

104402

017254
017261
000176

;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
o *CONTROL=G BEING TYPED, AND THE SOFTUARE SWITCH REGISTER BEING SELECTED.
68:
(MPB
;;ARE WE RUNNING IN AUTO-MODE?
SAUTOR, #1
;BRANCH IF YES
2%
BEQ
TST
(SP)+
::’ EAR CONTROL-G OFF STACK
PC,STKINT
;:b USH THE TTY INPUT QUEUE
JSR
CLR
a$TKS
;;DISABLE TTY KEYBOARD INTERRUPTS
#1,8INTAG
MOVB
;sSET INTERRUPT MODE INDICATOR

$GTSWR:

TYPE
TYPE
mov

TYPOC

LSCNTLG

. SMSWR
(SP)
- G,
SWRE

;.ECHO THE CONTROL-G (*G)
;o TYPE CURRENT CONTENTS

;. SAVE SWREG FOR TYPEOUT
;oGO TYPE-~OCTAL ASCII(ALL DIGITS)

JRMSBO RMOS5/3/2 JU POR TST 2
INPUT

ROUTINE

106407
005046
005046
105777
100375

017272

016464
016470

117746

162456
177600

021627
001015

000003

042716

016474
016500
016502
016506

062706

016530

001003
012777
000137

016512
016520
016522

104401

123727

021627
001005
10440

062706
000737
021627
001022
005766
001403
016677
62706

o
o

104401

123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005746
001403
006316
006316
006316
005266
056616
000667
104401

000720

4-APR-81

C
18:08:36 PAGE

6
19-2

SE0 0067

016446
016452
016454
016456
016462

PoeriurGiuprGanr-GherGurnr
GG Shur G Guur GGG

TTY

MA(RO v04.00

19%:

162462

017242
000006
001135
000100
001766

7%:

TYPE

CLR
CLR

LSMNEW
=(SP)
-(SP)

BPL

;s CHAR THERE?
IF NOT TRY AGAIN
2o

MOVB
BIC

#~C177.(SP)

as$TKB, -~ (SP)

:sPICK UP CHAR

(SP, #3
9%

;2IS IT A CONTROL=-C?
s ;BRANCH IF NOT
::YES, ECHO CONTROL-C (~O)
;:CLEAN UP STACK
;sREENABLE TTY KEYBOARD INTERRUPTS®
;;BRANCH IF NO
;;ALLOW TTY KEYBOARD INTERRUPTS
;2 CONTROL=C RESTART

#6,SP
$INTAG.,#1
8%

000001

#100,38$TKS
START

8%:

000025

:
0%

017247
000006

(SP) ,#25
10%

20%:

#6,SP
19%

000015

10%:

000004

000002
00N006
00120/
001135

000001

000100

162320

LSCNTLU

MOV
ADD

TYPE

000067

CMPB
BNE
MOV
RT!
JSR
cmp
BLT
MP

000060
000002

BIC
TST

015240
000060

BGT

BEQ

000002
177776

17%:

001206

18%:

.DSABL

ASL
ASL
ASL

INC
BIS

TYPE

BR
LS8

JIMAKE IT 7-BIT AS(I]

;:IS IT A CONTROL~U?
: JBRANCH IF NOT
;:YES, ECHO CONTROL=-U (W)
;. IGNORE PREVIOUS INPUT

JLET'S TRY IT AGAIN

;2IS IT A <CR>?
;;BRANCH IF NO
2:YES, IS IT THE FIRST (CHAR?

CMP
BNE
TST

BEQ

162342

;s THE NEW SWR

a$TKS
7%

TST18

LSCONTLC

162414

:sPROMPT FOR NEW SWR
;s CLEAR COUNTER

#1
$INTAG,
15%
#100,a8TKS

. sBRANCH IF YES
< s SAVE NEW SWR
::CLEAR UP STACK
;sECHO <CR> AND <LF>
:sRE-ENABLE TTY KBD INTERRUPTS?
;JBRANCH IF NOT
;RE-ENABLE TTY KBD INTERRUPTS

PC,STYPEC

s cECHO CHAR

2(SP) ,QSWR

6, SP

. SCRLF

(SP) ,#60
18%

(SP) 467
18%
#60, (5P)+

2(SP)
17%

(SP)

(SP)
(SP)

2(SP)
=2(SP), (SP)
7%
. SQUES
20%

; sRETURN

;:CHAR < 07

;JBRANCH IF YES

;:CHAR > 7?

; ;BRANCH IF YES
::STRIP-OFF ASCII
;2 1S THIS THE FIRST CHAR
; ;BRANCH IF YES
2:NO, SHIFT PRESENT
CHAR OVER TO MAKE
P
ROOM FOR NEW ONE.
M
;cKEEP COUNT OF (HAR
;:SET IN NEW CHAR
;sGET THE NEXT ONE

:3TYPE

2<CR><LF>

::SIMULATE CONTROL-~U

;:"'Q"QI"tttt'ltttl’(!t‘ttttfitit'ttt't“Q’itt't*'tttfitttfi"ttttttt

JRMSBC RMOS5/3/2 DU POR T1ST 2

Tty

INPUT

ROUTINE

MACRO v04.00

4-APR-81

;*THIS ROUTINE WILL

;oCALL:
o.
o

016706

011646

076716

005066

016710

016722

016724

016730
016732
016732
016736
016740
C16744
016752

0°6756

014764
010766
016774

016666
005046

000006

000004

012746

016732

005737
001775
005337
117766
005237

016034

000002

023727
001003
012737
000002

016034
177070
016040

000002

016043

016042

016040

;cGET A CHARACTER FROM THE QUEUE
;s CHARACTER IS ON THE STA(K

;:WITH PARITY BIT STRIPPED OFF

4£(SP)

;.GET READY FOR A (HARACTER

MOV

#64%,-(SP)

TST
BEW
DEC
MOVB
INC

$TKCNT
1%
$TKONT
A$TKQOUT ,4(SP)
$TKQOUT

BNE
MOV
RTI

2%
;sBRANCH 1F NO
#STKQSRT,$TKQOUT ;:RESET THE POINTER
;sRETURN

RT]

"'- 2282222222882

4(SP) ,2(5P)

010346
005046
012703
022703
101456
104410
112613
122713
001022
005716
001007
112737
104401
Q12716
005303
020327
103434
111337
104401
000746
005716
001406
112737

017110

OOSQ16

017116

001003

0172104

017112

106401

122713

017232
017242

000177

000134
017230
177777

017230

017232
017230
017230

000134

017230

000025

017230

233282

222822

;cPUT NEW PC ON

STACK

;:POP NEW P{ AND PS

;oWAIT ON A (HARACTER
;;DECREMENT THE COUNTER
;;GET ONE CHARACTER
. sUPDATE THE POINTER

2323822223 22282832233223Z22

33322

INPUT A STRING FROM THE TTY

RDLIN
RETURN HERE

;o INPUT A STRING FROM THE TTY
. ;ADDRESS OF FIRST CHARACTER WIIL BE

ON THE

s TERMINATOR WILL BE A BYTE OF ALL 0°'S

$RDLIN: MOV
CLR
1%:
MOV
2%:
ctmMP
8! 0S
RDCHR
MOVB
10%:
CMPB
BNE
TST
B8NE
MOVR
TYPE
MoV
6%:
DEC
CMP
BLO
MOVB
TYPE
BR
5%:
TST
BEQ
MOVB
TYPE

7%:

;sPUT NEW PS ON STACK

$TKQOUT ,#$TKQEND ;;DID IT GO OFF OF THE END?

016776
017000
017002
017006
017012
017014
17016
017020
017024
017026
017030
017032
017040
017044
017050
017052
017056
017060
17064
0172070
017072
017074
0172076

:2THE PS

-(SP)

:‘Exls ROUTINE WILL

JxCALL:
I *
o

TTY

(LR

CMpP

2%:

CHARACTER FROM THE

s :PUSH DOWN THc PC AND

(LR

016040

A SINGLE

SEQ 0068

(SP) ,-(SP)

MOV

000004

INPUT

PD(HR
RETURN HERE

SRDCHR: MOV

64%:
1%:

18:08:36 PAGE 19-3

(LR

(MPR

BNE

R3,-(SP)
-(SP)
#STTYIN,R3
#STTYIN+8. ,R3
4%

{SP)+,(R3)
#177,(R3)
5%
(SP)

;sSAVE RZ2
;.CLEAR THE RUBOUT KEY
;+GET ADDRESS
;sBUFFER FULL?
J:BR IF YES
;GO READ ONE CHARACTER FROM THE TTY
;¢cGET CHARACTER
;:1S IT A RUBQOUT
;:BR IF NC
;:1S THIS THE FIRST RUBOUT?
;:BR IF NO
;3 TYPE A BACK SLASH

6%
#'\,9%
,9%
#=1,(5P)
R3
R3, A$TTYIN
4%
(R3),9%
,9%
2%
(SP)
7%
#'\,9%

;;SET THE RUBOUT KEY
s :BACKUP BY ONE
;:STACK EMPTY?
;:BR IF YES
:;SETUP TO TYPEOUT THE DELETED C(HAR.
;:G0 TYPE
;GO READ ANOTHER CHAR.
;;RUBOUT KEY SET?
;:BR If NO
;. TYPE A BACK SLASH

(SP)

;. CLEAR THE RUBOUT KEY

;:BR [f NO

,9%

#25,(R3)

;2 1S THARACTER A CTRL J?

STACK

ZRMSBO RM05/3/2 Du POR 1ST 2
TTY INPUT ROUTINE
017120

017126
077126

10440'

000726
122713

017132

001011

017136

104401

01713&

017142
017146
017150
017154
017156
017162
017166
017172
017174
017200

017204

105013

104401
000717
104401
000712
111337
104401
122723
001305
105063
104401

005726

017206
017210

012603
011646

017220
017226

012766
000002

017212

017230
017231
017232
017262
017247
017254

017261
017272

016666

MATRD v04.00

4-APR-B1

017247

TYPE

000022

8S:

TYPE

017232

001206

017230
01723C
000015

177777
001210

017232

000002
000004

(R3)

LSCRLF

(SP)+,R3
(SP) ,-(SP)

(SP) +

4L(SP) ,2(SP)

9% :

.BLKB
.ASCIZ
.ASCIZ

0
O
8.
/~C/<15><12>
/*U/<15><12>

.ASCIZ
.ASCIZ

<15><12>/SWR - /
/7
NEW = /

103
125

015
015

S$TTYIN:
S$CNTLC:
S$CNTLU:

015
040

012
040

123
116

$MSWR:
SMNEW:

015

::BRANCH IF NO

MOV
RTI
BYTE

136
136

107

13
#22,(R3)

MOV
MOV

S$CNTLG:
.EVEN

BYTE

.ASCIZ

SEQ 0069

;:TYPE A CONTROL 'VU°°

LSTTYIN
2%
.SQUES
1%
(R3),9%
,9%
#15,(R3)+
2%
~1(R3)
LSLF

MOV

6
19-4

LSCNTLU

TYPE
BR
TYPE
BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE

TST

000
000

13¢

BNE

CLR8

001207

000004

8R
cMP8

E
18:08:36 PAGE

#STTYIN,4(SP)

/*G/<15><12>

::GO START OVER
::1S CHARACTER A ""*R'"
::CLEAR THE CHARACTER
JTYPE A 'CR R 'LF”

;:TYPE THE INPUT STRING
::GO PICKUP ANOTHER CHACTER
;:TYPE A '
;:CLEAR THE BUFFER AND LOOP
:;ECHO THE CHARACTER
::CHECK FOR RETURN
;:LOOP IF NOT RETURN
;2CLEAR RETURN (THE 15)
::TYPE A LINE FEED

;:CLEAN RUBOUT KEY FROM THE STACK

;:RESTORE R3
;JADJUST THE STACK AND PUT ADDRESS OF

FIRST ASCII CHARACTER ON IT

: :RETURN

::STORAGE FOR ASCII CHAR. TO TYPE
: : TERMINATOR
::RESERVE 8 BYTES FOR TTY INPUT
;;CONTROL ‘¢
;2CONTROL 'V
;;CONTROL ''G'’

THE

IRMSBO RMOS/3/2 DU POR TST 2

READ AN O(TAL NUMBER FROM THE

MA(CRO v06.00

&~APR-B81

TTY

.SBTTL
R

18:08:36 PAGE 2

Stw G07v

READ AN OCTAL NUMBER FROM THE

TTY

AN AT AN A A TR A A AN AR AT T RN R R AR AN RPN AN REA NN ACRRAN AT RO R AT ANRAIN TR

;*THIS ROUTINE WILL

READ AN OCTAL

;*«{HANGE [T TO BINARY.

;*THE

INPUT

CHARACTERS WILL BE

(ASCIl)

CHECKED

NUMBER FROM
INSURED

THE

THEY ARE

TTY

AND

LEGAL

;*OCTAL DIGITS., IF AN ILLEGAL (HARACTER IS READ A """ WILL BE TYPED
;*FOLLOWED BY A (ARRIAGE RETURN~LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE

sJ*CALL
:
o

3¢2
364
366

ole]

304

NS bwuwNNNf\)—b—lg

b a2
o

B oD oD

D oD

b ok

h ot

D ok

A e

[elelclelelelslelelnlelelololeolelolalololaleolelolalolelelololelolalelaTe)

NN NNNNNN
NN NN NNNNNNNN NN
N
NN LA L N LA LN U LN LN N AN N A O
N
oW
oo SONNOONSNORNNOO N

H
%

11646
16666

010046
010146
010246

000004

104411

012600
010057
005001
005002

2%:

122716

000060

122716

000067

003026

002423
006301
Cu6102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012602
012601
012600
000002
005726
104401

1046401

000730
000000

RDLIN
MOV
MOV
CLR

CLR
MOVB
BEQ

CMPB

BGT
CMPS
BLT

001206

TERMINATEC

;;READ

TYPING A

AN OCTAL NUMBER

(SP) ,=-(SP)
4L(SP),2(SP)

;;PROVIDE SPACE FOR THE
;2INPUT NUMBER

R1,~-(SP)
R2,~(SP)

;:PUSH R1 ON STACK
;sPUSH R2 ON STACK

RO,~(SP)

(SP)+ RO
RO,5%
R1

RZ2
(RO)+,-(SP)
3%

#2'0,(SP)

4%
#'7,(SP)
4%

;sPUSH RO ON STACK

;2sREAD AN ASCIZ LINE
.:GET ADDRESS OF 1ST (HARA(CTER
.sAND SAVE IT7
. :CLEAR DATA WORD

;:PICKUP THIS CHARA(CTER
;:IF ZERO GEY QUT

:IMAKE SURE THIS CHARACTER
;1S AN OCTAL DIGIT

R1
R2

Io%2

ROL
ASL
ROL

Jind

R2
R1
R2

ADD

(SP)+,R1

:;ADD

#2C7.,(SP)

;:STRIP THE ASCII JUNK

B8R

;:LOOP

MOV
MOV

R1,12(SP)
R2,$HIOCT

RT]
TST

(SP)+

TYPE

MOV
MOV
MOV

5%:
$HI0CT:

CLRB

(SP)+

(SP)+ ,R2
(SP)+ R
(SP)+ RO
(RO

.WORD
TYPE

O
.S0UES

WORD

B8R

CARRJAGE

RETURN.

. ;L0W ORDER BITS ARE ON TOP OF THE STA(K
;:HIGH ORDER BITS ARE IN SHIOCT

ASL
ROL

BIC

177770

105019

000000

MOV
MOV

ASL

000012
017442

INPUT

RETURN HERE

MOV

017432

THE

RDOCT

$RDOCT: MOV
MOV

1%:

112046

001420

0000C2

RETYPED.

IN THIS DIGIT

;2CLEAN TERMINATOR rROM STACK

. JSAVE

THE RESULT

. ;POP STACK INTO R?
;:POP STACK INTO R1
;:POP STACK INTO RO
;;RETURN
;s CLEAN PARTJAL

FROM STA(CK

;:SET A TERMINATOR

;:TYPE UP THRU THE BAD CHAR.

DV MCRT R LT

::TRY AGAIN

:;HIGH ORDER BITS GO HERE

JRMSBO RMO5/3/2 Oy POR 13T 2

aND WESTORE

RC-RS RG_TINES

Mi a0

v04.C0

4-APR-31

.SBTTL

G
6
18:08:36 PAGE 21

S€Q 007

SAVE AND RESTORE RO-R5 ROUTINES

:"'...ttt.t!.IQtQ.tQ..."Q'Q‘!.".‘.fi'.'i"l."‘"‘l.'t.".t..t.'

:*SAVE RO-R5
s«CALL:

SAVREG

;*UPON RETURN FROM $SAVREG THE

STA(K WILL L00K LIKE:

. x

;*TOP=-=<=(+16)

;v #2===(+18)

fe
:x

+4=—-RS

+6=-==R4

;% +8---R3

;++10---R2
;«+12---R1
;*+14===R0

017444

017444
017446

017450
017452

0176454

010246
010346
010546
016646
016646

017474

016646

017500

016646

000002

MOV
MOV

RO,-(SP)
R1,-(SP)

;;PUSH RO ON STACK
;;PUSH R1 ON STA(K

MoV

R&,-(SP)

;.PUSH R4 ON STACK

MoV
MOV

010446

017456
017460
0174646

017470

$SAVREG:

010046
010146

MOV
MOV
MOV

000022
000022
000022

MOV

200022

MOV

RTI

R2,~(SP)
R3,-(SP)

R5,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

:.PUSH R2 ON STA(K
;;PUSH R3 ON STACK

22(SP) ,-(SP)

:;PUSH
;:SAVE
;. SAVE
;. SAVE

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
{(SP)+,22(SP)
(SP) + ,R5
(SP)+ R4
(SP)+,R3
(SP)+,R2

;.RESTORE PC OF CALL
;;RESTORE PS OF CALL
;cRESTORE PC OF MAIN FLOW
;:RESTORE PS OF MAIN FLOW
;;POP STACK INTO RS
;:POP STACK INTO R4
;:POP STACK INTO R3
;.POP STACK INTO R?

22(SP) ,-(SP)

;.SAVE

R5 ON STACK
PS OF MAIN FLOW
PC OF MAIN FLOW

PS OF
PC

CALL
CALL

;*RESTORE RO-RS

;*CALL:

017502
017502
017506
017512
017516
017522
017524
01752¢
017530

012666
012666
012666
012666
0126C5
012604
012603
012602

01753¢

000002

017532
017536

012601
012600

000022
000022
000022
000022

RESREG
i
$RESREG:
Mov
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV

RTI

(SP)+,R1
(5P)+,RO

;;POP STACK
;.POP STACK

INTO R1
INTO RO

(JRMSBO RM05/3/2 DU PCR 1ST 2

TRAP DECODER

MALRO v046.00

4-APR-81

.SBTTL
S

18:08:36 PAGE

SEQ Q077

TRAP DECODER
s

;*TH]IS ROUTINE WILL PITKUP THE [ CWER BYTE OF THE '‘TRAP'' INSTRU(TION
S*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADCRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBRTAINED IT wWli!
;*GO TO THAT ROUTINE.
017540

010046

017546

005740

017542
017550
917552
017554
017560

(16600

111000
300
016000
000200

STRAP:

000002

017572

071646
016666

017574

000002

0000046

RO,-(SP)

::SAVE RO

TST

-(RO)

;;BACKUP BY 2

2(5”) .0

MOVB
ASL
MOV
RTS
;;THIS

0'7562
017564

MOV

000002

(RO) RO
RO
$TRPAD(R0O)
,RO
RO

IS USE

TO HANDLE

$TRAP2: MOV
MOV

J*THIS

THE

;:GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;;INDEX TO TABLE
::GO TO ROUTINE

‘'GETPRI'' MACRO

(SP) ,~(SP)
4(SP),2(SP)

RTI

.SBTTL

::GET TRAP ADDRESS

::MOVE THE PC DOWN
::MOVE THE PSW DOWN
:RESTORE

THE P3w

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

;*BY THE "‘TRAP'" INSTRUCTION.

THE

ROUTINES

CALLED

ROUTINE

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON

$TRAP?Z
;:CALL=TYPE
;.;CALL-TYPOC
. ;CALL=TYPOS
;;CALL=TYPON

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4 (104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST (ALL)
TYPE DECIMAL NUMBER (WITH SIGN)

017574
017576
017600
017602
017604

017562
015070
015406
015362
015422

017610

016434

$GTSWR

;. CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

017612

016344

$CKSWR

;s CALL-CKSWR

TRAP+7(104407)

0?7304
017444
017502

$RDOCT
;. CALL=RDOCT
$SAVREG ;.CALL=SAVREG
$RESREG ;;CALL=RESREG

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

017606

017614
017616

017620
017622
017624

015610

016706
016776

$TYPDS

;. CALL=TYPDS

$RDCHR ;; CALL=RD(HR
$RDLIN
;;CALL=RDLIN

TRAP+10(104410)
TRAP+11(104411)

TRAP+12(104412)
TRAP+13(104413) SAVE RO-R5 ROUTINE
TRAP+14(104414) RESTORE RO-RS ROUTINE

JRMSBU RMOS/3/2 DU POR T1ST 2
TELETYPE MESSAGES
2
3 G17626

&
5
6
7
A

017655
017700
017727
017756
020023

9 020043
'0 020072
*1 020127
12 020156
*3 020224
14 020261

15 020316
16 020367
17 020407

MAAC v04.00

&-APR-B1

.SBTTL

200
040
200
200

200
01¢

040
200
012
200

00
200
200
200
200

105
077
120
120
123
105

077
012
105
122

123
123
124
123
123

116
111
117
117

131
116

111
122
116
105

127
127
110
126
24

6
I
18:0B:36 PAGE 23

¢ 0073

TELETYPE MESSAGES

ENTERA: _ASCIZ
ADRERR: _ASCIZ
PORTAIS: _AS(CIZ
PORTBIS: .ASCIZ

<CRLF>/ENTER DRIVE ADDRESS: /
/ ?INVALID ADDRESS/<(RLF>
<CRLF>/PORT ‘A" ADDRESS IS: /
<CRLF>/PORT 'B' ADDRESS 1S: /

BADNO:
ADDRIS:
NITRH:
SWTICHN:

/ ?INVALID TEST NUMBER/<CRLF>
<CRLF><LF>aRH/RM ADDRESS (RM(S1) IS: a
<LF>QENTER RH/RM ADDRESS: a
<CRLF>QIRETURN 'PORT SELECT' SWITCH TO 'A/B‘a

NOCLOCK: .ASCIZ <CRLF>/SYSTEM MUST HAVE
TESTNO: ._ASCIZ
<LF>/ENTER TEST #: /

SWICHA:
SWICHB:
CONTUE:
CYCLED:
(YCLEU:

_ASCIZ
_ASCIZ
LASCIZ
_ASCIZ

._ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

'L' OR 'P' (LOCK/<CRLF><LF>

<CRLF>/SWITCH 'PORT SELECT' 10 ‘A‘/
<CRLF>/SWITCH 'PORT SELECT® TO °*B'/
<CRLF>/THEN PRESS °'CONTINUE' ON THE PROCESSOR/<(CRLF>
<(CRLF>/STOP THE DRIVE/
<CRLF>/START THE DRIVE, THE PROGRAM WILL WAIT FOR 'MOL®

TO SET/<(RLF>

IRMSBO RMOS/3/2 DU POR 15T 2

"EST ERROR MESSAGES

MALRC v04.00

;

.SBTTL

3 020501

104

122

111

EMi1:

5 020570
6 020642

120
104

117
122

122
111

EM3:
EM4:

8 020746
92 021020

124
124

4 020547
7 020664

127

123

105

105
107
116

10
11
12
13
14
15
16
17

021065
021153
021220

122
047
111

021436
021522
021600

101
104
123

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

022007
022060
022156
022251
022331
022374
022425
022473
022523
022607
022656
022743
023030
023111
023166

021267
021354

18 021641
19 021726

122

104
101

104
104

123
122
047
104
122
104
127
122
103
103
104
104
122
104
122

1M
111

117
122

115
115

124
105
116
122
110
122
122
105
117
101
122
122
105
122
105

101
107
105
111
057
111
117
107
116
116
111
111
107
111
107

EM21:
EM22:
EM23:
EMZ24:
EM25:
EM30:
EM31:
EM32:
EM33:
EM34:
EM35:
EM36:
EM37:
EM4O:
EM47:

122
122

111
111

.ASCIZ
.ASCIZ

@PORT SELECT SWITCH ON DRIVE, NOT [N 'A/B'a
/DRIVE NOT ON LINE/

.ASCIZ
.ASCIZ

/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/
/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/

.ASCIZ

124
122
105

EMI7:
EM20:

SEQ 0074

/DRIVE IS NON-ZXISTENT ('NED’ BIT SET)/

EMS:

EM10:
EM11:
EMI2:
EMiI3:
EM14:
EM15:
EM16:

.ASCIZ

EM6:
EM7:

18:08:36 PAGE 24

TEST ERROR MESSAGES

€EM2:

101
117
103
111
124
124
111
114

122
124

4-APR-B1

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCiZ
LASCII
LASCIZ
.ASCIZ
.ASCIZ

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

/WRONG DRIVE

TYPE/

/SERIAL NUMBcR READ THROUGH EACH PORT NCT

THE SAME/

/READ IN PRESET DOES NOT SET VOLUME VALID fFOR THE POKkT/
/°'GO' BIT RESET DURING UNLOAD COMMAND/
/INCORRECT STATUS DURING UNLOAD COMMAND/
/DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/
/ATTENTION BIT SET ON °'OPPOSITE PORT' AFTER UNLOAD/
/ATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLCAD'/
/DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH 'PCRT/<CR><LF>
®SELECT' SWITCH MOVED FROM ‘A/B' a
/DRIVE LOCKED ON PORT
/DRIVE LOCKED ON PORT

'A'
‘'B'

BY SWITCH WHILE
BY SWITCH WHILE

CYCLED UP/
(YCLED uP/

/STATUS INCORRECT FOR PORT AFTER CYCLE UP/
/REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON ‘OPPOSITE' PORT/
/'NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/
/DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/
@RH/RM DIDN'T RESPOND TO ADDRESSING@
/DRIVE NOT SEIZED BY PGRT/
/WRONG STATUS SEEN BY THE SEIZING PORT/
/REGISTER CONTENTS WRONG/
/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/
/CAN'T ACCESS DRIVE THROUGH EITHER PORT/
/DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/
/DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/
/REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/
/DRIVE [N NEUTRAL AFTER RELEASE - REQUEST SET/
/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/

123

[ Te]

ERR PC
ERR PC
ERR PC
ERR PC
ERR PC

SEQ 0075

ERR PC

T Y o
Y
Y

s N R NI NI N

e NG

S
e
e
e
e
Ty
e

s N Bt NG Bt N 8t N Bt N N Bt N N

DH4O:

DH37:

.ASC
.ASC
.ASC
LASC
.AS(

DH35:

DH34:

wnwn

DH25:
DH30:

(]

DH17:
DH24:

DH14:

pH13:

> >

DH7:

LASC
.ASC
.ASC
.ASC
-ASC
ASC
-ASC
.ASC
-AS(
.ASC
-AS(
.AS(
LASC
.ASC
.ASC

PORT #
ERR PC
ERR PC/
LOCKED
PORT #
ERR PC

/TESY
/TEST
/TEST
/TESTY
/TEST
/
/TEST
/
/TEST
/TEST
/
/TEST #
5SRMADR/
/TEST #
/
;TEST »

ERR PC

/TEST #
/
/TEST #
/
/TEST #

ERR PC

ERR PC
ERR PC

PORT &
REG ADR (ONTENTS/
PORT #
REG ADR GOOD
BAD/
REG ADR PORT A
PORT B/
PORT #/
TIME (IN MS)/
PORT #

SEIZE/<CRLF>
PORT #/
SEIZE
ERROR/<(CRLF>

SEIZE

PORT #
PORT A
RMDS

REL SNG

PORT #
REL SNG
PORT #
REL SNG
PORT #

PORT #

REG ADR

CONTENTS/

SWITCHED TO/<(CRLF>

PORT &/

ERROR/<CRLF>

PORT #
REG ADR GOOD
PORT B/<CRLf>

RMDS/
ERROR/<CRLF>
PORT #/
ERROR/<CRLF>
PORT #
REG ADR GOOD
RQSTNG/<CRLF>
PORT #/

BAD/

001
000

.EVEN

TSTNUM, SERRPC,SEIZPT
,PTNBR, 0

QOO
-

o
o

(=}

()
b b v

OO0

TSTNUM, $SERRPC,SEIZPT ,OPPRT,0

DF14:

DF17:
DF25:
DF30:
DF 34:

TSTNUM,SERRPC,$TMP2,$TMP3,0

DRI

DFé:

DF7:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

TSTNUM,SERRPC,SEIZPT
,PTNBR, $BDADR, $GDDAT , $BDDAT , 0

000
001
001
001

DF1:
DF2:
DFS:

TSTNUM,SERRPC,SEIZPT
,PTNBR, O

$RMADR,
0

OOO0OOCOO

001
001

DT30:
DT34:
DT35:
DT40:

TSTNUM,, SERRPC,PTNBR,
0
TSTNUM_SERRPC ,PTNBR,TIME,C
TSTNUM,SERRPC,SEIZPT,0
TSTNUM, SERRPC,SEIZPT
,PTNSBR, $BDADR, $8DDAT .0
TSTNUM, SERRPC,0

000
000
000
000
000
000
000
000
000
000

DT17:

DT24:
DT25:

TSTNUM, SERRPC,PTNBR,
$BDADR, $BDDAT, 0
TSTNUM, SERRPC ,PTNBR, $BDADR, $GDDAT, $BDDAT 0
TSTNUM,SERRPC,
$BDADR, $GDDAT , $8DDAT, 0

001242
001242

001236
001170
001236
001236

DTS:
DT6:
DT7:
DT13:
DT14:

.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

001242

DT1:
DT2:

001242
001242
001242
001272
001242

001234
001234
001122
001234
001234
001236
00 236
000000
001236

jolele]olelelololole]

001242
001242
001242

UL [

001242
001242
001242

DH2:
DHS:
DH6-

K
6
18:08:36 PAGE 25

025034
025041
025047
025054
025057
025063
«8 025071
49 025073
50 025074
by, 025103

DH1:

«~APR-81

.EVEN

NS GUIE S

27 Q24614
28 024630
29 024646
30 024662
31 024672
32 024704
33 024714
34 024732
35 024740
36 024752
37 024756
024776
025010
025022

124

105
105
105
105
105
040
105
040
105
105
040
105
122
040
105
0490
105
040
105
040
105
040
105

124
124
124
1264
124
040
124
040
124
126
040
124
044
040
124
040
124
040
124
040
124
040

023244
023315
023371
U234640
023467
023534
023562
023611
023647
023730
023747
024013
024052
024061
024117
024203
024242
024277
024335
<4374
024432
024516
024555

jole)
Q
OO lelelelelelole]

NI NN =2 O 000 NP NS NN = OO0

NN S WA —

ERROR MESSAGES

PUROPONININD
2 —2 —d b wd wd d d b

“EST

MACRO v04.G0

[RMSB0O RMOS/3/2 DU POR T1ST 2

JKMOBL GMGS/2/2 DU POR 15T 2
ALTANT,,

TABLES,

EYC

’

SEQ 0076

.SBTTL

(ONSTANTS,

TABLES, ET(

TSTADR:

.WORD

IST1

SATTENTION BIT

TABLE

ATABIT:

.BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE

1
2

40
100

JATTENTION
JATTENTION
SJATTENTION
JATTENTION
SJATTENTION
SJATTENTION
LATTENTION

JMAXIMUM TEST NUMBER

JTABLE OF TEST STARTING ADDRESSES

4 0251106

7 Q¢5112
025114
025116
025120
025122
025124
3 025126

003122

004474
005256
006040
006756
007674
010742
012052

11
12
13
14
15
16
17

WATAC 04.00 4-APR-81 18:08:36 PAGE 26

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

025130
025131
025132
025133
025134
025135
025136

0N
002
004
010
020
040
100

gé 025140

000011

MAXTN:

.WORD

000200

.END

200

}g 025137

200

.BYTE

TST?
TST3
TST4
TSTS
TST6
TST7
TST10

4
10

200

;STARTING ADDRESS OF

;STARTING
*STARTING
;STARTING
;STARTING
;STARTING
:STARTING
;STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

BIT
BIT
BIT
BIT
BIT
BIT
BIT

OF
OF
OF
OF
OF
OF
OF

FOR
FOR
FOR
FOR
FOR
FOR
FOR

TEST

TEST
7_ST
TEST
TEST
TEST
TEST
TEST

DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

2
3
4
S
6
7
10

O
1
2
3
4
5
6

;ATTENTION BIT FOR DRIVE 7

{ ZRMSBO RM0S5/3/2 DU POR TST 2
SYMBOL TABLE

ADDRIS
ADRERR

~0E

ASR1
ATA

ATABIT

ATO

ATl
ATZ2
AT3
AT4
ATS
AT6
A7
A16
A17

020072
017655

MACRO v04.00

SEQ 0077

(PSAVE
014526
Ck
= 000015

DT14
D117

024714
024732

F2
F3

= 000010
= 000020

PORTBI
PORTC

CYCLED
CYCLEU

D124
D125

£24740
024752

GO
GRV

= 000001
= 000010

PR1
PR2

024776

HCE

= 000200

= 001000

CRLF

= 000200

025130

DCk

= 100000

000002
000004
000010
000020
000040
000100
000200
000400
001000

DE!__
= 000040
DFF20 = 000002
DF1
025034
DF14
025063
DF17
025071
DF 2
025041
DF 25
025073
DF 30
025074
DF 34
025103

001232
= 100000
= 000001

=
=
=
=
=
=
=
=
=

BADNO
020043
BADTMO 001706
BAl
= 000010

020367
020407

DDISP = 177570

000002
000004
000010
000020
000040
000100
000200
000400

DFS
DF6
DF7
DH1
DH13
DH14
DH17
DH2
DH24
DH25
DH30
DH34
DH35

023611
023730
023215
023747
024052
024061
024203
024277

BIT1
= 000002
BI1T10 = 002000
BIT11 = 004000

DH40
DH5
DH6

024516
023371
023440

100000
000004
Q00010
000020
000040
0C0100
000200
000400
001000
000014
002774
001270
013406
013456

DISPRE
OLT
=
DL64
=
OMD
=
DPE
=
DPR
=
DRQ
=
DRY
=
DSWR =
DTE
=
D700 =
0701
=
D102
=
D103 =

000174
100000
000020
000001
000010

020316

D113

B110
= 000001
BIT00 = 000001

81101
817102
BI1T03
BIT04
81705
BIT06
BI107
BI708

=
=
=
=
=
=
=
=

BIT09 = 001000

BIT12 = 010000
BIT13 = 020000
BIT14 = 040000

BIT15
BIT2
BIT3
BIT4
BITS
BIT6
Bl17

=
=
=
=
=

=
=

BIT8 =
BIT9 BPTVEC=
CHANGE
CHGADR
CkCLK
{KCLKY
CxCLkZ
CKCLK3
CKERR
(KSWR =
CLock
CtR
=
CONTUE

013520
013530
001244
104407
013540
000040

M
6
18:08:36 PAGE 26-1

4-APR-51

025047
025054
025057
023244
023534

DH37

024374

DH7
023467
DIGB
- 000004
DISPLA 001142

D104
D105
DT06
D107
D708
b1

=
=
=
=
-

000400
004000

000200
177570
010000
000001
000002
000004
000010
000020
000040
000100
000200
000400
024614
024704

DT2

024630

D130

024756

DT34

DT35
DT40
DTS
nTé
D17
DVA
DvC
ECH
ECI

=
=

025010
025022
024546
024662
024672
004000
000200
000100
004000

EMTVEC= 000030
EM1
020501
EM10
021065
EM1]
EM12

021153
021220

EM13
EM14
EMI5
EM16
EM17
EM?
EM20
EM21

EM22

EM3
EM30
EM31

GTSWR = 104406

HCI
=
HCRC
=
HT
=
[IAE
=
IBSAVE
IE
=
ILF
=
ILR
=
I0TVEC=

002000
000400
000011
002000
014526
000100
000001
000002
000020

IR
= 000100
IvC
= 010000
KYBCTL
001266
LBC
LBT

= 002000
= 002000

NBA

= 100000

= 000000

PR3

= 000140

PR4

= 000040
= 000100

= 000200

PRS
=
PR6
=
PR7
=
PS
=
PSEL
=
PSW
=
PTNBR
PWRVEC=
RDCHR =

000240
000300
000340
177776
002000
177776
001234
000024
104410

RDLIN = 104411
RDOCT = 104412
RDY
= 000200

RELERR 001250
RELOK - 000001

022156
022251
022331

NED
= 010000
NEM
= 004000
NOATA = 000000

RMDS = 000012
RMDT = 000026
RMEC1 = 000044

OFD
OPE
oPl
OPPRT
OR

RMLA = 000020
RMMR1 = 000024
RMMRZ - 000040
RMOF
= 000032
RMR
= 000004
RMSN
= 000030
RMWC
= 000002
R6
-%000006
R7
=%000007
SAVREG= 104413
SC
= 100000
SCOPE = 000004
sCO
= 000100
SC1
= 000200

104000
000004
002622
000020
010000
000002

- 000004

NOCLOC
NOSEIZ
NTRH

= 000012
= 004000
025140
= 020000
- 000400
= 020000
= 010000
= 001000

PRO

LF
LSC_
MAXTN
MCPE
MDPTM
MOH
MOL
MXF

020570
022374
022425
EM32
022473
EM33
022523
EM34
022607
EM35
022656
EM36
022743
EM37
023030
EM4
020642
EM4O
023111
EM4T
023166
EMS
020664
EM6
020746
EM7
021020
ENTERA 017626
ERR
- 040000

ERROR =
ERRVEC=
EXEC
FER
FMT16 =
FO

= 0060040

021267
021354
021436
021522
021641
020547
021724
022007

022060

EM23
EM24
EM25

Fé&

017727
001230

= 000200
= 020000
= 020000
001240
= 000200

PAR
=
PAT
=
PFECH
PFECH1
PFECHZ
PFECH3
PFECH4
PFTSTN
PGE

PGM
PIP
PIRQ =
PIRQVEPORTA
PORTAI
PORTB

017756
(01246
020127

000010
000020

014726
014736
015020
015052
015062
015066
002000
001000
020000
177772
000240
001224
017700
001226

RESREG=
RESVEC=
RMAS
=
RMBA =
RMCS1 =
RMCS2 =
RMDA =
RMDB =

RMDC

104414
000010
000016
000004
000000
000010
000006
000022

= 000034

RMECZ = 000046
RMER1 = 000014
RMERZ = 000042

SCZ
=
SC3
=
SC4
=
SEIZPT
SKI
=
STACK START

000400
001000
002000
001236
100000
0C1100
001766

(ZRMSBO RMOS5/3/2 DU POR TST 2

SYMBOL

MACRO v04.00

TABLE

4-APR-81

START1
001774
- STARTZ 002002
SIKLMTI= 177774
STOP
014154
SWR
001140
SWREG
C00176
SWICHA 020224
SWICHEB 020261
SWICHN 020156
WO
= 000001
SwCO
- 000001
SwOol
= 000002
SwO2
- 000004
SwO3
= 000010
SwO4
- 000020
Sw05
- 000040
SWO6
000100

TEST3
TEST4
TESTS
TEST6
TEST7
TIME
TIMEA
TIMEAP
TIMEB
TIMEBP
TKVEC =
TOLER
TPVEC =
TRAPVE=
TRE
=
TRIVEC=
TSTADR

001260
001262
001264

$BELL
$CHARC
SCKSWR

SWOK
SWO9
Swi
Sw10

1ST1
TST1AA
IST10
TST11

001242

003122
003104
012052
013156

$CNTLU

TST3
TST4
1ST5
1ST6
1817
TYPDS =

005256
006040
006756
007674
010742
104405

SENDCT
$ENULL
$EOP
SEOPCT
$ERFLG
$SERMAX

TYPOC = 104402

$ERRPC

001116

$GDADR

001120

SwO)/

SWil

000200

004000

Swi?
swi3
Swil4
Swi5
Sw?
Sws

=
=
=

SW5

- 000040

Swé

TSTNUM

000400
001000
000002
002000

TST12

010000
020000
040000
100000
000004
000010

- 000020

005314
006076
007014

Ww(E
wCF
WwLE

001256

$8DDAT

007732
011000
001252

000060
013572
000064
000034
040000
000014
025110

004474

TYPE

= 104401

WRL
SAUTOB
$8DADR

$ENDAD

$ERROR

Swé6
Sw/
=
“w8
w9
TAP
=
THITVE-

000100
000200
000400
001000
040000
000014

TYPON
TYPOS
UNS
UPE
uo
ul

=
=
=
=
=

104404
104403
040000
020000
000001
000002

$ERRTB
SERRTY
$ERTTL
$SESCAP
$FILLC
$FILLS

TEST1

003160

= 000100

$GDDAT

TFSING

L5110

TEST?

AHS,

020023

us3

012110

VVSET

004532

025142
000000

FRRORS DETECTED:

WATCH

= 000004
- 000001

001254

000
oo

VIRTUAL MEMORY USED:
564784 WORDS
( 214 PAGES)
OYNAMI( MEMORY AVAILABLE FOR
70 PAGES
t FHRMSR KN, (2RMSR/( ~( 2RMSB,. DOC, (ZRMSB, SYSMA( /M

=
=

$CMTAG
$CM1
(M2 =
sC(mM3
$CM&
SINTLC
SCNTLG
$CRLF
$DBLK
$DOAGN
$0TBL

$GET42

18:08:36 PAGE 26-2

SEQ 0078

040000
000040
004000

SGTSWR 016434
$6T42P 013352
$HD
= 000000

$SvPC = 000210
$SWR = 166000
$SWRMK= 00C000

001126

$1TEMB

$TKINT

004000
001134
001122
001202
015356
016344

001100
000001
000002
000001
000005
0172642
017254

017247
001207
016024
013376
016014

013366

013224
013402
013160
013216
001103
001115

014207

SHIUCT
SICNT
$INTAG

017442
001104
001135

$SLF
$LKCSB
$LKCSR

001210
001214
001212

$LKS
SLLVEC
$LPADR
SLPERR
SLPVEC
SMNEW
SMSWR

SMXCNT

SNULL
SNWTSTSOCNT
$SOMODE

$OVER

$PASS
$CUES
$RDCHR
SRDLIN
$RDOCT
$RDSZ -

$REGAD
$REGO

001114

001220
001222
001106
001110
001216
017272
017261

014152

001154
000000
015604
015606

014136

001100
001206
016706
016776
017304
000010

001160
001162

001276
014530
001112
001200
001156
001155

$RESRE
$RMADR
SRMVEC
$RTINAD
$SAVRE
$SCOPE

017502
00127?
001274
013400
017444
013620

001124

$STuP

177777

013356

$SETUP= 000127
$SVLAD

014126

$STIMES
$7x8
$TKCNT

001176
001146
016034
016044

$TKQEN= 016043
$TKQIN 016036
$TKQOU 016040
$TKGSR
$TKS
$TKSRV
$TMPO
$TMP1
$TMP2
$TMP3

016042
001144
016114
001164
001166
001170
001172

$TN
=
$1PB
$TPFLG
$TPS

000012
001152
001157
001150

$TMP4

$TRAP

$TRAP2
$TRP $TRPAD
$TSTNM
STIYIN
$TYPDS

$TYPE

STYPEC

$TYPEX
$TYPOC
STYPON
$TYPOS
$XOFF $XON =

$XTSTR

(CD1174

017540

017562
000015
017574
001102
017232
015610

015070

015240
015360
015406
015422
015362
000023
000021

013642

$$GE 14- 000000
$OFILL

015605

L JRMSBO RMOS/3/2 DU POR TST 2
MACRO v04.00
ROSS REFERENCE TABLE (CREF v01-05 )

4-APR-8i

8 7
18:08:36 PAGE S-1

SEQ 0079

6-0

6-0
9-24

OOI0V0-N-INge\—O—&ON00——

6=-0#

6~0n

6~04

15=1

15-1

15=1

16=~1

16=1

Laoud ][o— L[Va]d [}]

][-ad

M[} —[

L] [ ]
O~ «

) [I

o-] —®
[a]V¥) -!

M-

- -0 —

(¥

-— -

~—~rw~NrvMww-nn-MM-—

e—r—-rN\—e—r—r

604

9-24

14=1

[
|
U
}
[]~
T
O
\
M
0
—
\
0
—
\
L
2
l
[N -e0~y —M—-NMA oNO—M!R1]9

6-0

o— o— 1] o- =oot

o~ w M 2
!

(ZRMSBO RM05/3/2 DU POR TST 2
MACRO v04.00
(ROSS HEFERENCE TABLE (CREF v01-05 )

18:08:36 PAGE S-2
SEQ 0080

25~37

SRDDEC
$ROL IN
$RDOCT
$RDSZ
SREGO
$REGAD
SRESRE
SRMADR
SRMVEC
SRTNAD
$SAVRE
$SCOPE
$SETUP

7-0#

9-24+

9-79+

o«

-r—e Tiy —- M& -[t L[Vl -—o1] aL

w @0 -

10-20+

10-98+

10-99«

10-157«

10-158+«

14=1

16-1

3 I

SLPERR
g+PVEC

13-1e
6-0n

o O MO
oo SOLRM

O&0] NNIDNO bMOe LyM -N()y

e1-L-1.-51t'&o,l1ol.o1l-La1dl:.1w71!LO1U2

AsTRRIATEAIRATR3ANT0A—~—Rr0—Ze—
3PNe3 O ON’6N”-o

YN®u3n=&=>0g=O -« e0Q2D*®wa-ep00® =n"=§®e V(V]

25-29

4-APR-81

~ [ L]

oo "

|
od ) o L.a] «

Lt L.a] [
od

-— La] Loud

10-178+

10-322

10-322+

10-323

10=323¢

20-"

20-1

[
al ql
)

22-1
19=1#

20-1#
19=1
6=-0n

6-0n
21-14
-0
7-0n

19-14

22+=1
9~70

9-103

9-110+

9-113

10-17

25-36

11-1#

21-1#
9-24
4~

4=705#

]

4=705#

SEQ 0081

JRMSBO ”M05/3/2 DU POR TST 2
MACRO v04.00
"ROSS REFERENCE TABLE (CREF v01-05

4-APR-81

10-99+«

3
18:08:36 PAGE S-3

10-157+

SEQ 0082

10-158+

10-178«

10-322+

19-1

19-1»

10~-98
10-178

10=-323+

*0=-223~

11=1-

13-1

19-1»

19=-1»

19-1»

19=1x

1 0-98#4
1 0-178
1 0 -327#

10-99
10-178

10-99
10-1784

10-99
10-322

10-994
10-322

131

13-

13-1

19-1«

19-1

$IN

$TRAP
$TRAPZ
$TRP

$TRPAD

S$STSTAM
$TTYIN

$TYPAN

$TYPDS
STVPE
$TYPEC
$TYPEX
$: YPOC(

19-1

8
5 8»
l7

10-327

26-20

9~24

221

22-1

22-1
6-0#
131w
19=1
22-1
18-1#
1614
16=1
16=-1

17=-12

STYPON

17=1

17«12

22=1

SEG 0083

I14<o)l..lallvlol[lfl'olrl—~[]laxl!l!llL—[l ao=[}0eeeboNS”Xx1wo
vQ|AkP%-:(&]ac| 1SsO— o-S—XOSNNONLXOSNNONSNONSXONEXOXA——-T]OMOXoyOndOo-X[][~0 N-XMwM¥swyOo
3 3 3 3 3 L.

OT'-Y~ouV][S23P.07.8D8I-0O3’31O3D!5O23R3TO23O23RSO23H95O5DONMT7]D"E1TIO1eT1T1M111FI—1Te—4w0IB01N[ToLRyE&1)S1RAI1RE1EILAL1REE1E®’3Er[E1a¥N—.aV]'LyS2RAlOS -Noe
PR

La-Ln—ed ~or

4~APR-B1

-—o~r0

- '

o\00wn

OO ONeo~0O— wn

Ne— (=]

[e]e] [0 [=]

[

— OO —v

- 11-—N

wov
oN

)~NO
"aYe

o
NO

——

M4 XL
RMSBO RMCO5/3/ 2 DU POR 757 2
"ROSS REFERENCE TABLE (CREF ,U1-05 °
4

7
6
18:08B:36 FAGE S~4

SEQ 0084

&Lwoey[2lL9

10-158

L el

SEQ 008%

“IRMSBO RMOS/3/2 DU POR 1ST 2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )
16~33
10-48+
10=322+
14-1
12=-294

N == NN =2 =2\ND =
Q0 = NN oro
O
NN
L
LR

mbb:'\oo
U]
L l‘l\\.fl?bf\)
\1‘
SNAN VO NN

10-33

o2 85

23-15#

10-48+
10=-323=

221

10-33«
10-98~
10-323+

10-323~

13=1«

14-1

16-1

16-1
23-16

23-3
23-17

13<1»

23-1¢4

23-15

10-323
10-323

23-16#4
23-174

8-56

8-¢3

8-70

25-484
8-171

8-178

25-434

8-227

25504
25~454
8-206

8-220

25-464

8-61

8-68

8-176

25=2#

9=24+

13-1+

14-1x

10-48

10-98

DRY

10-48

10-98

DSWR

9-24

N
oLV
-

(YCLED
{Y(LEU
Dik
DDISP

o] 2N
DF 14
Df
2

1
nN

AV,

DPE
DPR

DIGB
DISPLA
DISPRE
DL64
DLY
DMD

—b

DH7

DH4O
DMS
DH6

" bbbm@bmmm?mmmmmmmmmm
!
]
]
1
~
VIN=OWNH DN ~

DF6

N) =
N — QDO ~—
jele] ANVVWN—=ON— /O
¥~ BNEXR

moomoommo'ooommoo
1
4!
[0 -T0 J

DF 25
DF 20
DF 34
DfS

DH34
DH3S
DH37

10=-40Q+

10-322+
19-323«

10-40+
10-322+
10-323e

1048+
10-322¢

14-1

14-1»

14-1«

14=1+

15=1

23-4
23-17

23-6
25-8

23-7
25-11

23-7
25=14

23-9
25=16

23-10
25-18

10-48+
10-322+

9-29

9-24

8-84

OF17

DF7
DFF20
DM
DH13
DH14
DH17
DH2
DH24
DH2S
DH30

10-40~
10-99.
10-323~

]

DE1

10-40=
10-99+

10-33

24~16

CRLF

SEQ 0086

10-33«
10-98+
10-323+

16-1
929

S-5

10-33»
10-48+
10-323«

13-1

10-33=

1
18:08:36 PAGE

_&H

CPSAVE

(K SWR
CLACK
(LR
CONTUE

700
10-48¢
10~322¢

P
Y0

(KERR

4-APR-81

8- 9
8-

5
2 5= 6

5w1
04
25
8-169

8-120

8-127

8-134

8-185

¢S=42K

8-89

8-118

8-125

8-132

8-183

25-1#

10-98

10-99

10-157

10-158

10-185

10-190

10-322

10-98

10-99

10-157

10-158

10-185

10-190

10-322

8-91

25=14#

25-18#

- brOQ

L~4328

SEQ 0087

(ZRMSBO RMCS/3/2 DU POR TST 2
MA(RO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )
D101
0102
n103
D104
D105
D106

07107

EM13
EM14

8-74
8-81

24=134
24=144

8-95

24-164

8-67

EM15S

8-88

EmM17
Fm2
EM20

8-103
8~-11
8=-110

EM21
EM22

EM23

EM24
EM2S
EM3
EM30
EM31
EM32

EM33
EM34
EM3S
EM36
EM37
EM4
EM40
EM41
EMS

SEQ 0088

L(-630#

L=640n
8-6
8-76
8-83
8-105
8-13
8-140
8-147
8-163
8-191
8-198
8219
8-34
8-41
8-48
4-6074
L=5724
4~6574
4=601#
4-668#
8-4
8-¢3
8-60

EMi6

18:08:36 PAGE S-6

4-633
4=~6344
(=635
L=6364
(=637
(=638

D108
07!
D713
D114
D117
012
D124
D125
D130
D134
D135
D140
DTS
D16
D17
DTE
DVA
Dv(
ECH
ECI
EM1
EM10
EM11

EMI12

4-APR-B1

8-117
8-124
3=131
8-138
B=145
8-18
8-161
8-168
8=175
8-182
8-189
B-196
=203
8-210
8-25
8217
8-224
8-32

8-20
8-98
25-33#
8-112
8-27
25-35#
25-36#

8-212
25-38«#
B8-205

25~40#
25294
25-304

25-31#

24~-3#
24=104
24-114

b=124

24=154

24-18#

24~4H
24=194

24=20#
24=21#
24-22#
24-23#4
24<244
24~-54
24-25#
24-264
24-27#
24-284
24-29#
24=30#
24-31a
24-3#
24L-64
24-33
24-34n
24=-74

8-55
25=32#

8-62

8-69

25-34#
8-170

8-177

25-284

8-226

25-37#

25-39#

8-90

8-119

8-126

8-133

8-184

25-274

EMe

8-39

24-8#

7
SEQ 0089

(ZRMSBO RMOS/3/2 DU FOR T1ST 2
MACRC v04.00
CROSS REFEREMCE TABLE (CREF v0'-05

EmM7
CEMIVEC
ENTERA
ERR
ERROR
ERRVE(

EXEC

8-46

£=-519#
9-33
4=590#
£-5194
L~519#
13=1»
9-60
L=567#
L-568#
L=5694
L=570#
L=S571#

24~

Q=24

9-26+

9-24
131+
9~674

924+
13-7#
10-20

10-98
5~1
22=1

10-99

23~3»

9-24

14-1
10-98

4-APR-B1

9-26+

14~1%
10-99

18:08:36 PAGE S-7

9=27~
14-1x
10-157

SEQ 0090

12-5+

12-6+

12=15¢«

12-26+

13-1

10-158

10-178

10-322

10-323

111

22~
22~

2222-

22-1
22-1

13-1

13=1+

13=1e

22-1
22-1

10-157

10-157+«

10-158

10-158+

10-178

10-185

10-190

10-322

10-158

10-185

22-1

30
GRY
GTSWR
HCE

[AE
IBSAVE
IE

ILF
ILR
IOTVEC

LBC
L8T

NED
NEM
NOATA

NOCLOC

NOSE 12
NTRH
OfD
0Pt

[@]

£ 3

16=1

16~1

14-1

9-24%

9=24+

10-191

9-75+

16-1

14-1

14-14

14-1»

9-92+
10-322

10-20
10-322

10-20%
10-322+

10-98

10-323

10-98+
10-323«

16~1

23-7

23-8

23-10

23-11

10-48
10~-322

10-48
10-32¢2

10-98
10-32¢2

10-158

10 33

10-33

10-323

-~
3
10-185

10-98
10-185

10-99
10-190

10-158

14=1»

14=1%

10-99~

26-22

No ]
~n oo

—b

LSC

O &~

1
J
71
W (¥, 1o XV, IV, Ts Yo Q¥

IR
Iv(C
KYBCTL

MXF

22-1

22-14

HCI
HCRC
HT

MAXTN
MCPE
MDPE
MOH
MOL

22-1

10-322
9-29

—t

ONS

—

FMT16

23-7»

23-11»

L%,

SEQ 0091

(ZRMSBO RMOS/3/2 DU POR TST 2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )

10=157+

10~158«

4-APR-B1 18:08:36 PAGE S-8

SEQ 0092

25-40

10-48

10-98

10-99

eMDY

10-157

QO :~-y

10-158

9=24+

9-24¢

9-81

9=107

22=1»

10-98+
10-98

10~98+
10-99

10-99+

22-1#

RELOK

RESREG

RESVE(

S264

7=-04

8=-231#
22-1#
4=-519#

22-1#

10-102#

10-99+
10-157

woOM

TON—r— WO

oo N

ON—MN

-—

8”52

rROO

ORNO

Q00w
D \—
N

+oV1«1 VaY.[N
—M N~
M e—r— MO

10-48

- RMAS

L~6928

SEQ 0093

-—yr—=eO-DV-BDo0NTONAIOCOCOM-—TRORTR-W0ORUNMMAyIR—QO&SNeWQyP3«&5"N“
4Moy.&.&&....—.oV.....n.oy.._..3.”U5M.92.0..DN0O_\M.NAN®*.OI.-M.%3.a0.
ooN794-Z~—XBSN9o9NSTmASN9eNZXBNZX9UUEX%MCEX9IA—RLNEI41CeE.R=N1SRu4R9Ma1LL8y—adW0A0TELA]1N0Da—~O0An43-~ONL04V89003090NE24uvO[uXa-x4FDpNoM—w*-0 6e4OE4O—-—4KwPOuNr4xal—odoM2gEoOMMWU4lYCNMoOleM=4alDQeOlVoPd4lOpLRE6u4wE7n4N3eN&O”MADOy51OVM&w39¥V®r4*M3O—«s-My4Ww£®v«
FNN"TY—IRyIOTNYITTVXININyTTeINTLEVIeITNYIVXM-D-N—IFOVVIETN-MYN0=VTOoNxEoO—T—WT-«*NMiNRBCNPR/NYNXGRNNwo1T1-RNr—o"oM-TT--—o~Ey—0NCe—0y[eYONNoAlwe*eNlo—eTlMOeI-le—eyy—o—lyTos)&aTYNO NmO—o-WFwMOoTelxmAaoeel.«~va—ndoMoMINxx RloePl%oXOOEo\oWl"EooNo-IlLR
oM L

&
.
«
W
m
»
[
.
1
L
m
.
}
.
[
(
e
l
e
O
[
l
=
&
e
l
o
e
l
)
e
Y
l
e
w
e
]
W
9
2
<
o
M
3
A
8
[
N
V
a
5
Y
I
)
y
V
8
A
N
2
:
O
D
O
O
Q
o
w
n
0
O—\

[1}

-Ny— AN-—LB

otyVoo

YITNN

PRI T

]

=N TR

« T

—NM]OP0WMeVNIONyCOTIF

4-APR-81

b o

(ZRMSBO RM05/3/2 DU POR 1ST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

18:08:36 PAGE S-9
SEQ C( v

waony

0SB3\OR~

Sw1

=519

SEQ 0095

S[}?AIWFOJO]UN—Me—[}NL—RRRR—ON1ORN1AN!ORQROFRrrerererec&ereA
w[a)V]LO[a1V{0aV]wUS[>—-OVR2TONSNDTBOVOXNOueo—Px- m-.o
N2Mow[aV[!}all[
[§V]

X M #yl#7yu2 NAN0DD X«

M~—--]-

—

].[T« «

[»-L

TYPDS
11=1
151

NMOwM0NOoM0OCoOON0n LOaOMvd0O]0 Lo-a[en9l—t¥d] 1]
22=1#

[9"]

4-APR-B1

OoX)]4*LM=o=eA8e~OoMyMINITNINN—N&IOLNeO1~DO0—O1L_0—OIMRO—RN——AOOIOMDNS—]—yvt-—LU~¥T~OPFNN NNNNNVN

No([o[MO3(gOP~)ea3.owyV[]])]V+yNDOBoV-&OoAOAO.NNoAIV-VNeONFbVAMB~ITN.erONO-NNBVT-We=-INxT.PIDUQ—Nb-TMeOADe5O.XibO-kXbO=.N4O0WObyO-IO0OeD—.—De,-OeOBYe—OMW0a.—=TlbmD0NVaN-VNOW0eOteo-—V0~aSIl\Nb~"..VaOA[—+YNY—Oa11UMo"Se—Y-M"~aO—.\eOAODA—bO~WM—.LbOAeRe0CIPNOL-r—AMeMe.OLRreIMAO—rObN-L—eM.&W1TRI[VooOOIM——3-9lBVNLO]oMNR.k0AeML—IONoI-lUOCN-—o—I—oo-l-tIO.(rMNN—AN~R~Vo«u[NIX]IO 3N.I.2V3A-33N.I5T-3IN.IwN3--DU3I-NWQL-3aD-IlU&LALAs.NI%OIUIMNH»=-IU
WLA L-a—
+ JRMSBO RMOS/3/2 DU POR TST 2
MACRP v04.00
A ROSS
REFERENCE TABLE (CREF v01-05 )
18:08:36 PAGE S-10

F
Y

0«N. «.

[Va)

o}
[

9=33

9-38

}

929

)

"ebg

9-48

G
9-50

9-61

9-69

9-80

9-87

9=-102

=105

3=10¢

SFQ 0097

] 1 1 .%nw/. ]
= Ry

—[eRNAsLllTelGelosle—- -) o- NO-WVWoMe TP M
———~QLMNwOnaoO0[ -oPNOr-N

ARTNOyWlaQ0QNQN8LoAwlnNeOlnsl—)oeQ0TNAl[Ayh0erNaQRWnledeR—aONo[narYdIlla0—)oLIrIlot—elIIOIRIV2NOo2B!ONNONmOo-Lwr]P=&wA0RIoomnWg)6y(.NW-e9IS]
Q~y=ownNw(ne 0ndandokLo~N A~l

auUwumLswnSr%m0EONmfi>/qYzVnx/~WMH1>a3¢WVFCmNf[lAngu]
{ROSS REFERENCE

“ZRMSBO RMO05/3/2 Du POR TST 2

TABLE

XL-iguw TIoTITT
]

(CREF

v01-05

MACRO v04.00

)

4-APR-81

&«

e—-~\

18:08:36 PAGE S-11

!1]

SEQ 0098

oOM~0 ao>0

ko]

MN0

I/.fnlv pRqnl
—[(o-—b-]l ~A-2-mNV—00.yy[}
eRoMloy0a~55lmeeley) No—®w00OO

NOoMl2TM.Oo7VLn9M--]0yW.09—N—NN.9TAOA&INNNO.WNWN.W-NeONN9.e”N=e.0AeM.WeND-0Ie-A9TNe.I0NN-ORN.9eW0-NMD.8V.MNNN.No---M -2[n.07wywRay.l"Oaw0l]aSRw
©O
—O\MIM

o
F
e
B
T
S
T
2
t
2
N
B
t
E
Y
U
U
X
J
A
Y
R
L
A
U
A
R
T
A
X
1—OQ0rNT— O3-N—OI5r0EO—M0UL
y
O\- I—RNNN——r—~O—~rye~Nr- O~N o—R_——e
”

¥[oVa¥e

o0 —0—y <OeMz Ro0 ~0 Ni

a0 v
& !

10-99
10-9%4

10-157
10-157#

|
L

o]
[+

10-158

10-1584

)

1 7

10-98#

4-APR-81

10-161#

JRMSBO RM05/3/2 DU POR 1ST 2
MACRO v04.00
ROSS REFERENCE TABLF (CREF v01-05 )
I
18:08:36 PAGE MTM-1

SEQ 0099

10-178

10-322

L
uad o M o [aY]

)

10-322#

4-APR-81

J
8
18:08:36 PAGE M-¢

Avtd2eNdPwANtLA3r
- - -0

NoloudaOlL LaYa]lLy)l

{JRMSBO /MO5/3/2 DU POR TST 2
MACRDO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

3ONS0 Uo"alAva1tld7aYLVa MR .L&a.OeR

¢dd (-V] ~ON

SWITCH
SWRSU
TIMEK
TRMIRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS

TYPOCT

TYPTXT

USEREO

4-373%#

4~519#
4=497H
22-1#
L~5194
L=510#
(=519#

L=519#
L=519#
L=519#
(£=510#
10~-328#

-0y ~N

9-24
10-157

4
9~24
10-158

11-1
9-29

11-1

9-47
15-1
9-6
11-1

15-1

OWQ, N

) 1o V e l N

J d a wng -

.m. [

% &

T-wnm[na¥]w
—

oo [¥a)

a0y v

ety N

kw3

o]
[