Digital PDFs

AH-T121A-MC

July 1982

Number of pages unknown

Original

5.2MB

view download

OCR Version

4.6MB

view download

Document:	CZRNIA0 RM80 DU PORT TST PT 2 JUL 1982 bw
Order Number:	AH-T121A-MC
Revision:	0
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRNIA0__RM80__DU_PORT_TST_PT_2__AH-T121A-MC__JUL_1982_bw.pdf

OCR Text

R"BO

PU PORT 15T PT 2
CZRNIAO

RE-T1z21A-AC
FICHE

1 OF 1 waoe 1n usa

BDBEN

-REM

SEQ 0001

=S OV

=D b b b b d ond eocd e

NO VS WN = OV

NONES WA —

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 1

IDENTIFICATION

PRODUCT CODE:

AC-T120A-MC

PRODUCT NAME:

CZRNIAO

PRODUCT DATE:

APRIL 1, 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITT

RM80 DUAL PORT TEST, PT 2

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
BE _ CONSTRUED AS A COMMITMENT BY CIGITAL EQUIPMENT
NOT
SHOULD
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT
g%%{?fi{LITY OF ITS

CORPORATLCN ASSUMES NO RESPONSIBILITY FOR THE USE OR
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED 8Y

WN=O
V0 NO WV

N PIPIN) = cd cd b ad d ad b e

WN =0V NOWNESWN
-

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 2

SEQ 0002

CONTENTS
o

ABSTRACT
REQUIREMENTS

2.1
2.2
2.3

EQUIPMENT
PREREQUISITE PROGRAMS
OTHER PROGRAMS

LOADING PROCEDURES
STARTING PROCEDURES

4.1
4.2

4.3

STARTING ADDRESSES
UNIBUS & VEC.TR ADDRESSES
OPERATOR ACTION

OPERATING PROCEDURES

5.1
5.2
5.2
5

'SOFTWARE®' SWITCH REGISTER
OPERATIONAL SWITCH SETTINGS
TEST SELECTION
DUAL PORT TEST CABLE CONNECTION

ERRORS

MISCELLANEOUS
7.1
7.2
7.3
7.4
7.5

7.6

RESTRICTIONS
LIMITATIONS
EXECUTION TIME
REQUIRED TESTS
DISK SURFACE USAGE

LOOP ON ERROR OPTION

TEST DESCRIPTIONS

SE@ 0003

gNNNN—‘—ld—I—D—A—.-fl—I_‘
WA =2 O 000 OIS NN = OO 00 NN

NN —

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3

ABSTRACT

THE RM80 DUAL PORT LOGIC TEST PERFORMS A SERJES OF
TESTS WHICH VERIFY THAT THE RMBO DUAL PORT LOGIC

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

BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS 8Y
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL
PORT LOGIC TO BE TESTED FROM ONE PDP-11 AND RH70.
THIS PROGRAM 1S THE SECOND PART OF THE RM80 DUAL PORT

gc;%gfi LOGIC TEST, AND IS USED TO TEST THE 'PORT SELECT''

REQUIREMENTS

2.1

EQUIPHENT
PDP-11/70 PROCESSOR
8K MEMORY
Kvw11-L OR KW11-P CLOCK
TERMINAL
RH70 CONTROLLER
1 ~ RMBO DISX DRIVE

RM DUAL PORT TEST CABLE (P/N: 7010507-02)

2.2

PREREQUISITE PROGRAMS

RM80 DISKLESS TEST, PART 1 & 2

RMB0 FUNCTIONAL TEST, PART 1, 2 ¢ 3
RM80 DUAL PORT LOGIC TEST, PART 1
THE PRELIMINARY PROGRAMS MUST BE RUN TWICE:
EACH PORT (A § B).
2.3

ONCE FROM

OTHER PROGRAMS

DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED
B8Y THE RM80 PERFORMANCE EXERCISER PROGRAM.

LOADING PROCEDURES

THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE
LOADER OR IT MAY BE LOADEL FROM THE APPROPIATE MEDIA

USING THE ASSOCIATED'XXDP® LOADER.

THE PROGRAM MAY NOT

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-1

SEQ@ 0004

BE INCLUDED IN AN °'XXDP' CHAIN.

g%
64

STARTING PROCEDURES

4.1

STARTING ADPDRESSES

THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION
200(8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR
TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE T0

67
68
69

72
;2

THE RESTART ADDRESS IS LOCATION 204(8).
WILL USE THE CURRENT DRIVE ADDRESS.

THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW

BE TESTED.

4.2

THE PROGRAM

THE RH70 ADDRESS TO BE CHANGED.

UNIBUS & VECTOR ADDRESS

THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES.
THESE ADDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM

80
81

FROM ANY OF THE STARTING LOCATIONS.

MEMORY

LOCATION

CONTENTS

FUNCTION

87
88
89
90
N
92
93
9
gg

1142
1144
1146
1150
1210
1212
1214
1216
1220

177560
177562
177564
177566
172540
172542
104
177546
100

TTY KEYBOARD STATUS REG
TTY KEYBOARD BUFFER REG
TTY PRINTER STATUS REG
TTY PRINTER BUFFER REG
KW11-P STATUS REG
KW11-L COUNTER BUFFER
KW11-P VECTOR ADDRESS
KWi1-L STATUS REGISTER
KWi1-L VECTOR ADDRESS

4.3

OPERATOR ACTION

(=]

8.
C.

b ad b and b

[

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 CONTROLLING
THE _MASSBUS USED FOR TESTING.

SWITCH THE °'PORT SELECT® SWITCH ON THE DRIVE TO BE
TESTED TO THE °A/B* POSITION. CYCLE THE DRIVE UP.
LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8))
INTO THE SWITCH REGISTER (OR THE °SOFTWARE® SWITCH REGISTER,
SEE SECTION 5.2.)

PRESS START.

ENTER THE NUMBER OF THE TEST TO BE RUN.

ENTER THE DRIVE NUMBER.

OR *0° WILL RUN ALL TESTS.)

(°CARRIAGE RETURN'

THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED

FROM LOCATION 204.

Db Db Db bbb DD b D b

NS NN = O 000 NN
W
= OO0 ~NO
-b W
ok
NO‘O‘O& Ogooo«Om\nv‘\nmm\nmmvflbbbbbbbbb&ww
WV
NN = O 000 NN
W
= OO0 0NN =2 OV 00figWWWWWWf\)NNNNNNNNN—‘—‘—i
OV~

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-2

OPERATING PROCEDURES

5.1

*SOFTWARE® SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENT AND WILL USE A °SOFTWARE® SWITCH REGISTER. THE

]

"SOFTWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE
SETTINGS OF THE *SOFTWARE® SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A ‘'CONTROL G°'. THE PROGRAM WILL
RECOGNIZE THE °‘CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM
IS AT A HIGHER PRIORITY PROCESSING AN RMBO INTERRUPT. THE
*SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

Db
e nd b e b d b D b S S d b b b b

SEQ 0005

'SWR = NNNNNN

NEW ='

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

N.-;-—\\‘_ “‘D-—voh—"‘. v

DURING SWITCH ENTRY.

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

OPERATIONAL SWITCH SETTINGS

WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE
ALL ERRORS AND CONTINUE TESTING.
THE SWITCH SETTINGS ARE:

e e e d e be
b e e e e nah b o e e b b

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

HALT ON ERRCR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT TEST ITERATIONS
RING TTY BELL ON ERROR
LOOP ON ERROR

TEST SELECTION

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

TO ALL CONTINUOUS EXECUTION OF THE SELECTED TEST.

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

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

SEQ@ 0006

WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE
TYPED AND WILL BE SEPARATED BY °'\' FROM THE CHARACTERS
ENTERED BY THE OPERATOR.

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A
*CONTROL U* .
5.4

TEST CABLE CONNECTION

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

0 0 O 00 0o GO 0O 00 0O

~
NN~
éLocnxfigxnggunu-aChoan\u>\n3~uuv

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-3

WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST,
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT
OF THE RM80 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS.

THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S

200

ADDRESS PLUG.

5
6
9;

THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH
PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE: THE
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE).

199

1233222222322 2 22232232 222222302 2230l atddaddiiidddidssd)

* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS IN
* CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE

200
201

+ POWERED DOWN.

202

+
*

it iattiiidddddds)

203
2

' 2222222323222 L2222 3302222023482

208
209
%}?

( NNECT THE MASSBUS CABLE FROM THE RH CONTROLLER TO J3 OF THE
£ 4 ADAPTER BACK PANEL, THEN CONNECT THE TEST CABLE (P/N: 7010507-02)
FRUM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT B AT J6.

205
206
207

THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL
DEPEND ON WHICH PROCESSOR, RH (ONTROLLER IS TO TEST THE DRIVE.
IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT A,

212
213
214
215
216
21?7
218
219
gg?

WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION
BITS FOR PORTS A & 8 ARE ASSERTED IN THE SAME BIT POSITION
WHEN 'RMAS' (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE.
THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE
INCLUSIVE °'OR' OF THE PORT A & PORT B ATTENTION BITS. BECAUSE
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN
*RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE
OF THE SELECTED PORT'S ATTENTION BIT.

222
223

224

227
228

ERRORS

WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS
CALLED AND IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING

—

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-4

SEQ 0007

MNIALNINININIAIND
WA NN NN
OB
W =200

TO THE ERROR WILL BE TYPED.

THE FOLLOWING:

A.
B.
C.

EACH ERROR TYPEOUT WILL CONTAIN

AN ERROR MESSAGE
A DATA HEADER LINE
A DATA ' INE CONTAINING:
1.

2.
3.

TKE TEST NUMBER

THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR
CALL WAS MADE

CONTENTS OF THE APPROPIATE REGISTERS

MISCELLANEOUS
7.1

RESTRICTIONS

TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KW11-P
OR A KW11-L CLOCK. ADDITIONALLY, THE RM80 UNDER TEST
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED.
7.2

LIMITATIONS

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER
PORT AND DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL
PORT OPTION.

7.3

EXECUTION TIME

THE PROGRAM TAKES ABOUT 7 MINUTES PER PASS (DEPENDING ON
OPERATOR INTERVENTION EFFICIENCY).
7.4

REQUIRED TESTS

IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE
?EE?nggEHgaL CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER

A.
B.

TEST 2 AND TEST 3.

THESE TESTS SET 'VV=A' AND °'VV-B'

RESPECTIVELY. THESE TESTS MUST BE PERFORMED AT LEAST ONCE
BEFORE TESTS & - 10 ARE RUN.

TEST & AND TEST 5. THESE TESTS DETERMINE AND STORE FOR
LATER USE THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH
EACH PORT. THESE TESTS MUST BE PERFORMED AT LEAST ONCE BEFORE
TESTS 6 = 10 ARE RUN.

7.5

DISK SURFACE USAGE

THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE
gfiéVE MUST BE CYCLED UP AND ON-LINE FOR THE DIAGNOSTIC TO BE
7.8

LOOP ON ERROR OPTION

CZRNIAQ RMB0 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-5

TEST DESCRIPTIONS

294

297

8.1

........... PRpp——

304
305
306
307

FAILURE IN THE PATH FOR THAT BIT.

8.2

METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED
THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH
THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS
SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT,
7EROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (i.E.,
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE

3N
312
313
314
315
316

HAS BEEN SEIZED BY THE SPECIFIED PORT.

319

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
(*ATA" § 'VV') AND VERIFIES THAT CORRECT STATUS IS READ
THROUGH BOTH PORTS. ( THE CORRECT STATUS IS °‘MOL®, 'PGM’,
'DPR', © 'DRY'.) 1F NEITHER PORT SEES ALL ZEROS FROM
RMDS, ‘THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL
AND THAT ANY BIT MISCREPANCY BETWEEN PORTS INDICATES A

299
300
301
302
303

309

SEQ 0008

WAS DETECTED.

291

ggg

IF $W<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 RMB0 TO A KNOWN STATE
BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED
AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR

286
287
288
289
290
292
293

DRIVE ACCESS TEST

320

TEST 1

322

VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS

324,

A. SELECT DRIVE. VERIFY THAT THE DRIVE IS PRESENT, THAT THE

329

325
326
327
331

DRIVE IS A DUAL PORT RMBO, THAT THE DRIVE IS ONLINE (RMDS HAS
"MOL?. 'PGM', DPR', § DRY' BITS SET), AND THE THE DRIVE SERIAL
NUMBER READ THROUGH BOTH PORTS IS THE SAME.

THE TEST IS REPEATED THROUGH BOTH PORTS.
SET 'VV' FOR PORT A

352

TEST 2

335

SET VOLUME VALID

ggg
338

A. ISSUE
A DRIVE CLEAR COMMAND THROUGH PORT A.
B. ISSUESA READIN PRESET COMMAND THROUGH PORT A. VERIFY

341

339

342

THAT THE *WV* BIT IS SET FOR PORT A.

ISSUE A RELEASE COMMAND THROUGH PORT A.

VERIFY THAT

THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-6

SEQ@ 0009

BIT IS SET.

343

344
345

TEST . SET 'VV' FOR PORT B

%29
%28

SET VOLUME VALID

%g?

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B.

352

ISSUE A READIN PRESET COMMAND THROUGH PORT B.

355
356

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

ggz

THAT THE °'vv' BIT IS SET FOR PORT 8.

VERIFY

BIT IS SET.

357

339

MEASURE THE TIMEOUT ONE~SHOT THROUGH PORT A

%g?

TEST &

%g%

MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A

364

WRITE 0'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE

367
ggg

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

370

VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS

ggg

373

DRIVE HAS BEEN SEIZED.

TO NEUTRAL

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT 8

%;g

TEST 5

g;g

MEASURE THE TIMEOUT ONE~SHOT VALUE THROUGH PORT B

WRITE 0°'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE

381
gg%

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

384

VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS

378

ggg

385

DRIVE HAS BEEN SEIZED.

TO NEUTRAL

TEST 'PORT SELECT® SWITCH, DRIVE CYCLED UP

%gg

TEST 6

%g?

TEST THE OPERATION OF THE °'PORT SELECT® SWITCH (DRIVE CYCLED UP).

392
393

396
397

PORTS, ARE CORRECT.

ggg

398

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

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

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-7
400

401

403

z%g

289

C.
TEST 7

SEQ 0010

RETURN THE °‘PORT SELECT® SWITCH TO THE ‘'A/B' POSITION.
THE DRIVE STATE.

VERIFY

TEST 'PORT SELECT' SWITCH LOCKED ON PORT A

TEST THE OPERATION OF THE ‘PORT SELECT® SWITCH (DRIVE CYCLED DOWN).

288

CYCLE THE DRIVE DOWN.

410
1

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

2}2

416

SWITCH THE °'PORT SELECT® SWITCH TO A; CYCLE THE DRIVE UP.
WHEN THE DRIVE CYCLES UP, VERIFY THAT °'VV=-A' IS RESET, AND THAT

419

ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH

422
423
624

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

427
253

PORTS, ARE CORRECT.

2;%

2};

25?

PORT A.

INTO RMDS THROUGH PORT 8.

252

430

'ATA-A" IS SET.

ISSUE A RELEASE COMMAND THROUGH PORT A.
DRIVE REMAINS LOCKED ON PORT A.

VERIFY THAT THE

2%}

TEST 10 TEST °*PORT SELECT' SWITCH LOCKED ON PORT 8

2%2

TEST THE OPERATION OF THE °'PORT SELECT' SWITCH (DRIVE CYCLED DOWN).

2%2

CYCLE THE DRIVE DOWN.

437
438

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

22}

SWITCH THE °'PORT SELECT' SWITCH TO B:; CYCLE THE DRIVE UP.

443

WHEN THE DRIVE CYCLES UP, VERIFY THAT °'Vv-B IS RESET, AND

446
22;

ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH
PORT B.
‘

449
450
451
2?%

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

454

ISSUE A RELEASE COMMAND THROUGH PORT B.

PORTS, ARE CORRECT.

228

222

455

THAT ‘ATA-B IS SET.

DRIVE REMAINS LOCKED ON PORT B.

VERIFY THAT THE

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-8

(CHANGE THE 'PORT SELECT' SWITCH TO

457

CYCLE THE DRIVE DOWN.

460

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION

228

22;

A/8; CYCLE THE DRIVE UP.

BITS ARE SET, AND THAT BOTH 'VV' BITS ARE RESET.

SEQ@ 0011

CZRNIAQ RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 4
;*LAST REVISION 04-AUG-81

-0

(5,1,

SEQ 0012

.TITLE CZRNIAO RM80 DUAL PORT PTZ2
;*COPYRIGHT (C) 1982

;«DIGITAL EQUIPMENT CORPORATION
*COLORADO SPGS., CO0. 80919
*PROGRAM BY MIKE LEAVITY

*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC

tPACKAGE (MAINDEC-11-DZQAC~C5), 18-MAR-81

000011

¥
2%
N
R

ERROR

SCOPE

INKIBIT ERROR_TYPEOUTS
INHIBIT ITERATIO"'S

BELL ON ERROR
LOOP ON ERROR

BASIC DEFINITIONS
=

= EMT
= 10T

::BASIC DEFINITION OF ERROR CALL
ssBASIC DEFINITION OF SCOPE CALL

H*MISCELLANEOUS DEFINITIONS

LF
CR
CRLF
PS

STKLMT
PIRQ
DSWR
DDISP

= 12
=15
= 200
= 177776

=
=
=
=

177774
177772
177570
177570

;;CODE FOR HORIZONTAL TA8B
:;CODE FOR LINE FEED
..CODE FOR CARRIAGE RETURN

;CODE_FOR CARRIAGE RETURN-LINE FEED

..PROCESSOR STATUS WORD

ssSTACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
s sHARDWARE SWITCH REGISTER

: sHARDWARE DISPLAY REGISTER

: *GENERAL ;gRPOSE REGISTERGDEFINITIONS
ENERAL REGISTER
=
= X1
..GENERAL REGISTER
:GENERAL REGISTER
= %2
= X3
..GENERAL REGISTER
= 24
s sGENERAL REGISTER
= %5
s sGENERAL REGISTER

000007

RO
R1
R2
R3
R4
RS
R6
R7
SP
PC

000000
000049

PRO
PR1

000000

HALT ON ERROR
LOOP ON TEST

s*INITIAL ??88ESS OF THE STACK POINTER #x+ 1100 #««

STACK

PSW=PS$S

177570

USE

SWITCH

2R S

.SBTTL

001100
104000
000004

OPERATIONAL SWITCH SETTINGS

E 3¢ B

([ TEA YA RN PRFE
YR YR TN ¥

—

(%, 1.

.SBTTL

511

= 26
= X7

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

s *PRIORIT Y LEVEL DEFINITIONS
=0
= 40

::PRIORITY LEVEL 0
;sPRIORITY LEVEL 1

CZRNIAQ RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 4-1

BASIC DEFINITIONS

000100

PR2

100000
040000
020000

sw15
SWi4
SW13

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

Sl
= 4000
SW10
= 2000
SWo9
= 1000
swo8
= 400
Swo7
= 200
SW06
= 100
SW05
= 40
SWo4
=20
Swo3
=10
sSwo2
= 4
Sw01
=2
SWo0
=1
SW9=5W09
SW8=5w08
SW7=5w07
SW6=SW06
SW5=5w05
SW4=SW04
SW3=Sw03
SW2=Sw02
SW1=SW01
SW0=SW00

000140
000200
000240
000300
000340

010000

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

000010
000004
000002
000001
001000
00¢-00
000200
000100
00004

PR3
PR4
PRS
PR6
PR7

= 100
= 140
= 200
= 240
= 300
= 340

:sPRIORITY LEVEL %

¢sPRIORITY LEVEL
:sPRIORITY LEVEL 4
:;PRIORITY LEVEL §
s:PRIORITY LEVEL 6
¢ sPRIORITY LEVEL 7

;*''SWITCH REGISTER'' SWITCH DEFINITIONS

swW12

= 100000
= 40000
= 20000

= 10000

:*DATA BIT DEFINITIONS (BITOO TO BIT15)
BIT15
= 100000
BIT14
= 40000
BIT13
= 20000
BiT12
= 10000
BIT11
= 4000
BIT1I0
= 2000
BIT09
= 1000
BITOE
= 400
817107
= 200
BITO6
= 100
BITO5S
= 40
BITO4
= 20

8IT03
=10
BIT02
=4
BIT01
=2
8IT00
=1
B8I17T9=81T09
8119=BITO;
BI1T7=BIT0
BIT6=81T06
BIT5=8BIT05

SEQ 0013

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15~JAN-82 07:13:40 PAGE 4-2

SEQ 0014

BASIC DEFINITIONS

000020
000010
000004
000002
000001

514
515
516
517
518
519

520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551

000004
000010
000014
000014
000914
000020
000024
000030
000034
000060
000064
000240

BIT4=BIT04
BIT3=B1T03
BIT2=BIT02
BIT1=BIT01
81T0=B1700

:*BASIC "'CPU'' TRAP VECTOR ADDRESSES
TIME OUT AND OTHER ERRORS
ERRVEC = &

RESVEC = 10
TBITVEC = 14
TRIVEC = 14

BPTVEC

= 14

PURVEC

= 24

JI0TVEC = 20

..RESERVED AND ILLEGAL INSTRUCTIONS
"'T'" BIT
..TRACE TRAP
sBREAKPOINT TRAP (BPT)
..INPUT/OUTPUT TRAP (JOT) «#SCOPE*+
;POWER FAIL

= 30

..EHULATOR TRAP (EMT) «+ERROR%#

TPVEC

= 64

..TTY FRINTER VECTOR

.SBTTL

RH CONTROLLER REGISTERS

EMTVEC

TRAPVEC = 34
= 60
TKVEC

PIRQVEC = 240

“TRAP'' TRAP
;TTY KEYBOARD VECTOR

: :PROGRAM INTERRUPT REQUEST VECTOR

;CONTROL AND STATUS REGISTER 1 (RMCS1)
000100
000200
000400
001000
002000
020000
040000
100000

PSEL

= 100
= 200
= 400
= 1000
= 2000

; INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
:HIGH ORDER BUS ADDRESS BIT (BIT #8)
:HIGH ORDER BUS ADDRESS BIT (BIT #9)
:PORT SELECT (BIT #10)

TRE
SC

= 40000
= 100070

s TRANSFER ERROR (BIT #.:4)
;SPECIAL CONDITION (BIT #15)

1E
RDY

A6
A17

MCPE

= 20000

:MASSBUSS PARITY ERROR (BIT #13)

;WORD COUNT REGISTER (RMWC)
: (EACH BIT IS CALLID 8Y BIT NUMBER)

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

;CONTROL AND STATUS REGISTER 2 (RMCS2)
000001
000002
000004
000010
000020
000040
000100
000200
00040
001000
002000
004000
010000
020000
040000
100000

=2
=4

JUNIT SELECT (BIT #

;UNIT SELECT (BIT # )
SUNIT SELECT (BIT #.'

BAl

=10

:BUS ADDRESS INCREMENT IN/iBIT (BIT #3)

IR
OR
MDPE
MXF
PGE

= 100
= 200
= 400
= 1000
= 2000

: INPUT READY (BIT #6)
;0UTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)

= 20000
= 40000
= 100000

;UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
:DATA LATE (BIT #15)

PAT
CLR

NEM
NED

UPE
WCE
DLT

= 20
= 40

= 4000
= 10000

sMASSBUS PARITY TEST (BIT
#4)
:CLEAR (BIT #5)

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

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 4-3

SE@ 0015

RH CONTROLLER REGISTERS

552

553
ggé

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

gg?

.SBTTL

ggg

:CONTROL AND STATUS 1 REGISTER. (#00)

560
561
562
563
564
565
gg?

000001
000002
000004
000010
000020
000040
004000

ggg

570

60
FO
F1
F2
F3
Fé4
DVA

DRIVE FORWARD 5'/SEC.

D1GB
GRY
DL64

=4
=10
= 20

;DRIVE TO INNER GUARD BAMD (BIT #2)
:GO REVERSE (BIT #3)
:DIFFERENCE LESS THAN 64 (BIT #4)

DFF20

575

000040

DE1

578
579

580

581

582

583
584
ggg

;G0 BIT (BIT #0)
:FUNCTION CODE BIT #
sFUNCTION CODE BIT #2
;FUNCTION CODE BIT #3
sFUNCTION CODE BIT #4
sFUNCTION CODE BIT #5
;DEVICE AVAILABLE (BIT #11)

:DF5

000002

576
577

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

:DRIVE STATUS REGISTER (RMDS) (#01)

571

572
573
574

RMBO REGISTERS

000004
000010
000020

000100
000200

000400
001000

002000

004000

010000

020000
040000
100000

gg;

Vv
DRY

DPR
PGM
LBT

WRL

MOL

P1P
ERR
ATA

= 40

= 100
= 200

= 400
= 1000

= 2000

= 4000

= 10000

= 20000
= 40000
= 100000

;DRIVE FORWARD 20°‘/SEC.

(BIT #0)

(BIT #1)

:DIFFERENCE EQUALS 1 (BIT #5)
:VOLUME VALID (BIT #6)
:DRIVE READY (BIT #7)

:DRIVE PRESENT (BIT #8)
:PROGRAMABLE (BIT #9)

:LAST SECTOR TRANSFERRED (BIT #10)

;WRITE LOCK (BIT #11)

:MEDIUM ON-LINE (BIT #12)

;POSITIONING OPERATION IN PROGRESS (BIT #13)
:COMPOSITE ERROR (BIT #14)
;ATTENTION ACTIVE (BIT #15)

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

589

000001

ILF

sJLLEGAL FUNCTION (BIT #0)

000004

RMR

:REGISTER MODIFICATION REFUSES (BIT #2)

000020
000040

FER
WCF

590

592

593
594
595

597
598
599

600
601
602
603
ggg

000002

000010
000100

=10

ECH

= 100

HCE

004000
010000
020000
040000

WLE
DTE
OPl
UNS

000400
001000
002000

100000

PAR

000200

289
608

ILR

HCRC
AOE
IAE

DCK

= 20
= 40

= 200

= 400
= 1000
= 2000

= 4000
= 10000
= 20000
= 40000

= 100000

sJLLEGAL REGISTER (BIT #1)

;PARITY ERROR (BIT #3)

;FORMAT ERROR (BIT #4)
;WRITE CLOCK FAIL (BIT #5)
:ECC _HARD ERROR (BIT #6)

;HEADER COMPARE ERROR (BIT #7)

:HEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)
sINVALID ADDRESS FRROR (BIT #10)

SWRITE LOCK ERROR (BIT #11)
:DRIVE TIMING ERROR (BIT #12)
:OPERATION INCOMPLETE (BIT #13)
:DRIVE UNSAFE (BIT #14)
:DATA CHECK ERROR (BIT 15)

sMAINTAINABILITY n GISTER (RMMR1) (#03)
000001

DMD

:DIAGINOSTIC MODE (BIT #0)

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 4-4

)

SEQ 0016

RM80 REGISTERS

;ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04)
000001

000200

ATO
AT1
AT2
AT3
AT4
ATS
ATé
AT?

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

:DEVICE 0 (BIT #0)
;DEVICE 1 (BIT #1)
sDEVICE g (BIT #2)
;DEVICE 3 (BIT #3)
;DEVICE & (BIT #4)
;DEVICE 5 (BIT #5)
:DEVICE 6 (BIT #6)
sDEVICE 7 (BIT #7)

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

s (EACH BIT IS CALLED BY BIT NUMBER)

:DRIVE TYPE REGISTER (RMDT) (#06)
000001

040000
100000

D700
D701
D702
D703
D704
DT05
DT06
D107
DT08
DRQ
MOH
TAP
NBA

=1
=2
=4
=10
= 20

= 40
= 100
= 200
= 400
= 4000
= 20000
= 40000

= 100000

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

:LOOK~AHEAD REGISTER (RMLA) (#07)
000100
000200
000400
001000
002000

SCo
sC1
SC2
SC3
SC4

= 100
= 200
= 400
= 1000
= 2000

sSLCTOR COUNT FIELD O (BIT #6)
;SECTOR COUNT FIELD 1 (BIT #7)
sSECTOR COUNT FIELD % (BIT #8)
;SECTOR COUNT FIELD 3 (BIT #9)
:SECTOR COUNT FIELD & (BIT #10

sRM ERROR REGISTER #2 (RMER2) (#10)
000010

DPE

100000

LSC
IvC
OPE
SKl

pv(

L8C

=10

= 200

= 2000

= 4000
= 10000
= 20000
= 100000

sDATA PARITY ERROR

:DEVICE CHECK

(BIT #3)

(BIT #7)

:LOSS OF BIT CLOCK (BIT #10)

:LOSS OF SYSTEM CLOCK (BIT #11)
:INVALID COMMAND(BIT #12)
:OPERATOR ERROR (BIT #3)
;SEEK INCOMPLETE (BIT #14)

;OFFSET REGISTER (RMOF) (#11)
000200
010000

OFD
HCI
ECI
FMT16

= 200
= 2000
= 4000
= 10000

sOFFSET FORWARD (BIT #5)
:HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #12

;DESIRED CYLINDER ADDRESS (RMDC) (#12)

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 4-5

RM80 REGISTERS

229

: (EACH BIT IS CALLED BY BIT NUMBER)

668
298

:SERJAL NUMBER REGISTER (RMSN) (#14)
: (EACH 1S CALLED BY BIT NUMBER)

6n
2;3

sECC POSITION REGISTER (RMEC1) (#16)
:(EACH BIT IS CALLED BY BIT NUMBER)

674
g;g

;ECC PATTERN REGISTER (RMEC2) (#17)
: (EACH BIT IS CALLED BY BIT NUMBER)

g;g

.SBTTL

DEFINITIONS OF THE RH/RM ADDRESS INDEXES

679
680
681
682

000000
000002
000004
000006

RMCS1T
RMWC
RMBA
RMDA

=0
=2
=4
=6

:CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
:WORD COUNT REGISTER (NOT A DRIVE REG)
:UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
:DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)

692

000032

RMOF

= 32

;OFFSET REGISTER (DRIVE REG. 11)

683
684
685
686
687
688
689
690
691

693
694
695
696
697

000010
000012
000014
000016
000020
000022
000024
000026
000030

000034
000040
000042
000044
000046

RMCS2
RMDS
RMERT
RMAS
RMLA
RMDB
RMMRT1
RMDT
RMSN

RMDC
RMMR2
RMER2
PMEC1
RMEC2

= 10
=12
= 14
=16
= 20
= 22
= 24
= 26
= 30

= 34
= 40
= 42
= 44
= 46

;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
:DRIVE STATUS REGISTER (DRIVE REG 01)
:ERROR REGISTER #1 (DRIVE REG. 02)
;ATTENTION SUMMARY PSEUDO REGISTER_(DRIVE REG. 04)
:LOOK AHEAD REGISTER (DRIVE REG. 07)
:DATA BUFFER REGISTER (NOT A DRIVE REG.)
;MAINTAINABILITY REGISTER (DRIVE REG. 03)
:DRIVE TYPE REGISTER (DRIVE REG. 06)
;SERJAL NUMBER REGISTER (DRIVE REG. 10)

;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)
:MAINTENANCE REGISTER #2 (DRIVE REG. 14)
:ERROR REGISTER #2 (DRIVE REG. 15)
;ECC POSITION REGISTER (DRIVE REG. 16)
:ECC PATTERN REGISTER (DRIVE REG. 17)

SEQ 0017

SEQ 0018

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 5
TRAP CATCHER

.SBTTL

.=0

000000

000174
000176

TRAP CATCHER

s*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ', +2 HALT'

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATIO§194CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

;s SOFTWARE DISPLAY REGISTER

DISPREG:.:UORD 0

s SOFTWARE SWITCH REGISTER

SWREG:

.WORD

.SBTTL

STARTING ADDRESS(ES)

> 000200

000137

001766

JMP

SA#START

ssJUMP TO STARTING ADDRESS OF PROGRAM

z 000224

000137

001776

JMP

S#START

sSTART AND CHANGE THE RH/RM ADDRESS

.SBTTL

ACT11 HOOKS

B 1222222222222

000210
000046

000052

000210

2332333223822 3322202232322 ddddadiiiiddidds)

*HOOKS REQUIRED BY ACT11
C=
$SVP(
SYPC=.,

:SAVE PC

i@ggno
"WORD 20000

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

~=$SVPC

:“RESTORE PC

SEQ 0019

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 6
COMMON TAGS

COMMON TAGS

.SBTTL

;:ittttttttttttttlttttttt'ttttttittttt.ttttttt.tt'tt'..'.'tttltt.

s*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

000000
000

e
D

.WORD

b o

d e

(=4
(=]

:
:

.WORD
BYTE
BYTE

$AU" UB:
SINTAG:

€
D

DISPLAY: .WORD

OO—=NO

$TKS:

DDISP

0
000000

OO0O000O0

& CUEBOM9$UCfi;i:NJ ONOWVS OO

SWR:

NNNYN

b
b
D d
b

ok o

(=l=] [elelelelelolelelels]
0O

TN
OO
=0
oN

o
C)CDE;CDCDCDE;CDCDCD E;CDE;

.BYTE
.BYTE

b= [~lelelelelololololalelalelelele
el

RSN ro&RARES

.=1100

001100

b e

e e

;*USED IN THE PROGRAM.

377

000

2:START OF COMMON TAGS
2 SCONTAINS PASS COUNT
: sCONTAINS THE TEST NUMBER
ERROR FLAG

SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
JITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF °GOOD’ DATA
ADDRESS OF ‘BAD' DATA
'GOOD* DATA
¢ s CONTAINS ‘BAD* DATA

: JRESERVED=~NOT TO BE USED

ssAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR
s sADDRESS OF SWITCH REGISTER
:;ADDRESS OF DISPLAY REGISTER

ssTTY KBD STATUS
s;TTY KBD BUFFER
ssTTY PRINTER STATUS REG. ADDRESS

::TTY PRINTER BUFFER REG. ADDRESS
: : CONTAINS NULL CHARACTER FOR FILLS
: s CONTAINS # OF FILLER CHARACTERS REQUIRED
s INSERT FILL CHARS., AFTER A °Y.INE FEED

:2'‘TERMINAL AVAILABLE'®

FLAG (BIT<07>=0=YES)

s CONTAINS THE ADDRESS FROM
ssWHICH (SREGO) WAS OBTAINED
+0)
s ;CONTAINS ( (SREGAD)
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
s cUSER DEF INED
ssMAX. NUMBER OF ITERATIONS
s ;ESCAPE ON ERROR ADDRESS

<207><377><377> ;:
/2/
22

377
SLF:

-ASCIZ

<15>

* S CARRIAGE RETURN
s sLINE FEED

::tttt.ttt.tttttttfittt'tt'tttttt.ttttttfitttt'it'tttt'*.ttttt.tttt

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 7

SEQ@ 0020

USER DEFINED TAGS

.SBTTL

USER DEFINED TAGS

001212 i7es40
001214 1725642
001216 000104
001220 177546
001222 000100

SLKCSR:
$LKCSB:
SLPVEC:
SLKS:
SLLVEC:

.WORD
.WORD
.WORD
.WORD
.WORD

001230
001232

000000
000000

PORTC:
ASR1:

.WORD
.WORD

001242
001244
001246

000000
000000
000000

001252
001254
001256
001260
001262
001264
001266

000000
000000
000000
000000
000000
000000
000000

001224 000000
001226 000000

001234 000000
001236 000000
001240 000000

001250 000000

001270

000000

176700
000254

;ADDR OF KW11-P STATUS REGISTER
sADDR OF KW11-P COUNTER BUFFER
sADDR OF KW11=-P VECTOR
;ADDR OF KW11-L STATUS REGISTER
;ADDR OF KW11=L VECTOR

0
0

;ADDRESS OF DIFFERENT DRIVE
= 1
:ATA=A OR ATA-B

.WORD
.WORD

0
O

PTNBR: .WORD
SEIZPT: .WORD
OPPRT: ,WORD

0
0
0

PORTA:
PORTB:

TSTNUM: .WORD
CKERR: .WORD
NOSEIZ: .WORD

RELERR: WORD

.WORD
TIME:
WATCH: .WORD
TIMEA: .WORD
TIMEAP: .WORD
TIMEB: .WORD
TIMEBP: .WORD
KYBCTL: .WORD
CHGADR: .WORD
.SBTTL

001272
001274

172540
172542
104
177546
100

0
0
O

0
0
0
0
0
0
0

;ADDRESS OF PORT A
;ADDRESS OF PORT b

;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS
;CONTAINS THE ADDRESS OF THE SEIZING PORT
:CONTAINS THE ADDRESS OF THE ‘OPPOSITE' PORT

:NUMBER OF THE CURRENT TEST
sIF =1, A REGISTER MISCOMPARISON OCCURRED
:IF =1, THE PORT IN *SEIZPT' DID NOT SEIZE THE DRIVE

¢1F =1, THE PORT IN 'SEIZPT' DID NOT RELEASE THE DRIVE

:ELAPSED TIME COUNTER
;WATCH DC5 TIMER LOCATION
: THE TIHEOUT ONE-SHOT VALUE MEASURED THROUGH PGRT A
:PORT A TIMEOUT VALUE + 25%
sTHE TIMEOUT ONE~SHOT VALUE MEASURED THROUGH PORT B8
;PORT B TIMEOUT VALUE + 25%
;SINGLE TEST INDICATOR
:CHANGE THE RH/RM ADDRESS INDICATOR

RH/RM UNIBUS AND VECTOR ADDRESSES

SRMADR: .WORD
SRMVEC: .WORD

176700
254

;RH/RM UNIBUS ADDRESS
: INTERRUPT VECTOR ADDRESS

)

CZRNIAQ RM80 DU’L PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 8

ERROR POINTER TABLETM.

.SBTTL

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

:*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN
-«LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE1:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
:*NOTE2:
A
M
I

: 001276

$ERRTB:

:ERROR ' 1

4 001276

S 001300
6 001302
g 001304

19 001320
20 001322
%} 001324

33 001340
34 001342
%2 001344

40 001350
41 001352
42 001354

::POIMNTS TO THE DATA

EM1

sDRIVE IS NON=EXISTENT (°NED*® BIT SET)

EM2
DH2
DT2
DF2

:WRONG DRIVE TYPE

EM3

;PORT SELECT SWITCH ON DRIVE NOT IN ‘'A/B°®

EM4
DH2
DT2
DF2

:DRIVE NOT ON LINE

EMS

:SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME

EM6

:TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS

DH1
DT1
DF1

;ERROR 3

020520
023174
024544
024764

DH1
DT1
DF1

;ERROR &
020571
023245
024560
024771
:ERROR 5

020613

DHS
DTS
DFS

023321
024576
024777

;ERROR 6

39 001346

::POINTS TO THE DATA FORMAT

020477
023245
024560
024771

32 001336

:ERROR 2

%2
25 001326
26 001330
27 001332
%g 001334

::POINTS TO THE ERROR MESSAGE
::POINTS TO THE DATA HEADER

023174
024544
024764

18 001316

EM
DH

02046431

18
11 001306
12 001310
13 001312
}g 0013146

ERROR POINTER TABLE

020675

023370
024612
025004

DH6
DT6
DF6

SEQ 0021

CIZRNIAO RMB0 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 8-1

ERROR PCINTER TABLE
43

:ERROR 7

46 001356

47 001360
48 001362
gg 001364

020747

0236417
024622
025007

53 001366

S4& 001370
5S 001372
gg 001374

61 001400
62 00146402
22 0014046

021014

023174
024544
024764

68 001410
69 001412
;? 001414

021102

023174
024544
024764

75 001420
76 001422
;g 001424

021147
023174
024544
024764

82 001430
83 001432
gg 001434

021216

023464
024634
025004

89 001440
90 001442
3} 0014446

021303

023541
(024644
025013

97 001450
98 001452
99 001454

DH1
DT1
DF1

:'GO* BIT RESET DURING UNLOAD COMMAND

EM12
DH1
pT1
DF1

;sINCORRECT STATUS DURING UNLOAD COMMAND

EM13

DH13
pT13
DFé

:DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND

EM14

DH14
DT14
DF14

:ATTENTION BIT SET ON 'OPPOSITE PORT' AFTER UNLOAD

;ERROR 15

021365

023174
024544
024764

EM1S
DH1
DT
DF1

:ATTENTION BIT NOT SET ON PORT WHICH ISSUED °'UNLOAD'

:ERROR 16

95 001446
96

EM11

:ERROR 14

88 001436

:READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT

:ERROR 13

81 001426

DH1
DT1
DF1

;ERROR 12

74 001416

EM10

:ERROR 11

67 001406

:TIMEOUT ONE=SHOT IS LESS THAN 500 MS

:ERROR 10

gg
60 001376

EM?

DH?7
DT?
DF7

021451

EM16

023464
024634
025004

DH13
pT13
DF6

:DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH °PORT
SELECT' SWITCH MOVED FROM ‘A/B’

SEQ 0022

'
K 2
CZRNIAO RMSO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 8-2

ERROR POINTER TABLE
100

:ERROR 17

}8}

103 001456

104 001460
105 001462
}89 001464

021571

023660
024662
025021

EM17

DH17
pT1?7
DF17

:DRIVE LOCKED ON PORT 'A' BY SWITCH WHILE CYCLED UP

:ERROR 20

}83

110 001466

111 001470
112 001472
}}z 001474

021654

023660
024662
025021

EM20

DH17
DT17
DF17

:DRIVE LOCKED ON PORT 'B' BY SWITCH WHILE CYCLED UP

:ERROR 21

}}g

117 001476

118 001500
119 001502
}%? 001504

021737
023174
024544
024764

}%g

EM21
DH1
DT
DF1

:STATUS INCORRECT FOR PORT AFTER CYCLE UP

;ERROR 22

124 001506

125 001510
126 001512
}sg 001514

022010

023174
024544
024764

EM2?2
DH1
DT
DF1

:REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED UN ‘OPPOSITE® PORT

;ERROR 23

}%8

131 001516

132 001520
133 001522
}gg 001524

022106

023174
024544
024764

EM23
DH1
DT
DF1

:'NED®' SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED

:ERROR 24

}gg

138 001526

022201

EM24

}2} 001534

025007

DF?7

139 001530
140 001532

023677
024670

DH24
o124

:DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/

:ERROR 25

}22
145 001536

146 001540
147 001542
}28 001544

022261

024002
024702
025023

158

EM25

DHZ2S
DT2S
DF25

:RH/RM DIDN'T RESPOND TO ADDRESSING

;ERROR 26

001546
001550
001552
001554

060000
000000
000000
000000

0
0
0
0

JUNUSED ERROR MESSAGES

SEQ 0023

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 8-3

ERROR POINTER TABLE

:ERROR 27
001556
001560
001562
001564

;UNUSED ERROR MESSAGES

000000
000000
000000
000000

sERROR
001566
001570
001572
001574

;:DRIVE NOT SEIZED BY PORT °'N'

022324
024011
024706
025024
sERROR

001576

022355

1604

024771

;WRONG STATUS SEEN BY THE SEIZING PORT

sERROR

001606
001610
001612
001614

sPEGISTER CONTENTS INCORRECT

022423
023245
024560
024771

:ERROR
001616

022453

01624

024764

;CONTROL BUS PARITY ERROR WHILE READING REGISTER

sERROR

001626

022537

01634

025033

sCAN'T ACCESS DRIVE THROUGH EITHER PURT

sERROR
001636

022606

001644

025007

:DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET

:ERROR

203 001646
204 001650

;DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET

022673
TN&227
740

" 025007
:ERROR

SEQ@ 0024

CZRNIAQO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 8-4

WNI2O0

;REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT

;ERROR 40

purd

EM4O
DH40
DT40

o
N

[={=l=]

NN
OO NS NN = OV

ST ST STNT SIS SN STSINT NN VIS N L8 T8 L P

= b b b e ed b e ok = O
NONONON PONINININ)

ERROR POINTER TABLE

;DRIVE NOT SEIZED BY PORT AFTER RELEASE WITH REQUEST SET

DF¢

;ERROR 41

sREGISTER WRONG AFTER RELEASE WITH REQUEST SET
001704

025024

SEQ 0025

SEQ 0026

CZRNIAO RM80 DUAL PCRT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9

ERROR POINTER TABLE

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS
BADTMO: MOV
001722

)

;SAVE PC WHERE THE TIME OUT OCCURED

(SP)+,(SP)+
658
43

*RESTORE STACK POINTER
..rvpe ASCIZ STRING
GET OVER THE ASCIZ

-(ROS

PASCIZ

<CRLF>/UNEXPECTED’BUS TIMEOUT. PC=/

?9goc

RO,=(SP)

CMP
TYPE
BR

NOP

001270

~
~

o
o

012737

177777

005227
001375
000005

000000

012706

00127y

START OF PROGRAM

START:

NOP

START1: MOV

:CLEAR THE 'CHANGE RH/RM ADDRESS® INDICATOR
GO TO THE START
*SET THE 'CHANGE RH/RM ADDRESS® INDICATOR

START2: INC
BNE

20
.~4

sTTY LOOP, WAIT FOR INCREMENT
‘0F WORD

002176

NNNNNNNNNN NN

=N NN
NINININNO

002174

200004

SO
NN

002140

b amb b
b b d O ) =b b wud e

002124
002132

MOV
CLR
CMP
ene

000020

#STACK, SP

::FIRST LOCATION TO BE CLEARED
:3CLEAR MEMORY LOCATION
*3DONE?
$3LOOP BACK IF

PISE UP THE STACK POINTER

nov
MOV
MOV

#340, 4 T0TVEC+2;:LEVEL
#SERROR ,SFEMTVEC® ..Enr VECTOR FOR ERROR ROUTINE
#340, WENTVEC +2 ;ileveL 7

MOV

034o.actaAvac+2:LEVEL
7

MOV

CLR

#STRAP, S#TRAPVEC': ; TRAP vscroa FOR TRAP CALLS
senocr.ssopcr

sSETUP END-OF-PROGRAM COUNTER

$TIMES

..INITIALIZE NUMBER OF ITERATIONS

#..SLPADR

..INITIALIZE THE LOOP ADDRESS FOR SCOPE

CLR
MOVB

$ESCAPE
#1,SERMAX

MOV

2. “SLPERR
SLP

MOV

::CLEAR THE ESCAPE ON ERROR ADDRESS
ALLOW ONE ERROR PER TEST
THE ERROR LOOP ADDRESS

::S1ZE
FOR A HARDWARE SWITCH aeci&rsn. IF NOT FOUND OR IT IS
* *EQUAL ;gvA “1'" SETUP FOR A SOF WARE SWITCH REGISTER.
MOV
MOV

SNERRVEC, = (SP)
#64S,9MERRVEC.
#DSWR, SWR

..SAVE ERROR VECTOR
5:SET UP ERROR VECTOR
$3SETUP FOR A HARDWARE SWICH REGISTER

CMP

#-1,35uUR

..rnv TO REFERENCE HARDWARE SWR

MOV

127777

002206

#SCMTAG,R6
(R6)+
#SWR,R6
.~6

..INITIALIZE A FEW VECTORS
#$SCOPE ,a#10TVEC ..IOF V;CTOR FOR SCOPE ROUTINE

MOV

N02132

‘CLEAR THE WORLD

.SBTTL INITIALIZE THE COMMON TAGS
$3CLEAR THE COMMON TAGS (SCMTAG) AREA

001100

015550

~
RYNTAGNNRIRY
NN
AN N NN N NN (NN

002034

:SETUP FOR TYPING OUT PC

CHGADR
START2
#-1,CHGADR

RESET

001100

002030

CLR

SADJUST PC =2

;PUT "HALT(0)* INSTRUCTION HERE IF YOU WISH
STO STOP ON UNEXPECTED TIMEOUT.

.SBTTL

001140

(=lelfeloelelalelelale
e

PONINIA)
= b b e b b b b b b

W= OV0ONONHWN
OO0

éigss:

(SP) RU

TST

BNE
648:

:?Y

xooxsfi.ostLAv*SAND A HARDWARE DISPLAY aecxsrs
668
65%

#658, (SP)

*BRANCH IF NO TIMEOUT TRAP OCCURRED
THE HARDWARE SWR IS NOT = -1
sBRANCH IF NO TIMEQUT

..AND

..SET UP FOR TRAP RETURN

CZRNIAO RM8O DUAL PORT PTZ MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-1

SEQ@ 0027

O NN
NN
NN

0
0
0

002206
002214
002222

b
e
b

INITIALIZE THE COMMON TAG

000176
000174
000004
001706
000300

25 002226
%g 002234

001140
001142

000004
000006

177777

002242

013316
000423

000042

002266

65$:
66$:

HOV

002364
29 002364
30 002370

001140

000176

112737

000001

001134

004737

015774
002764
017556
001224
001224

(so>o.awéaavec

#BADTMO,ERRVEC

#PR6, ERRVEC
+2

708

002470
002472
002473
46 002474

47 002500

104403
001
000
104401
013746

(SP)+,PORTA
PORTA.#7
28
ADRERR

2$:

Ponra,PORTB
#16,PORTB
PORTA,=(SP)

prurQurd

062737

[aS 1AV ]

50 002522

001207
001224
000006

s ;BRANCH IF NO
:sGET SOFT-SWR SETTINGS

: CHECK/CHANGE THE RH/RM ADDRESS
:ENTER DRIVE ADDRESS
:GET THE ADDRESS
:STORE THE ADDRESS

;SEE _IF ADDRESS TOO LARGE
:BR_IF NOT

;TYPE ADDRESS ERROR MESSAGE
s TRY _AGAIN

;GENERATE THE PORT B ADDRESS
: INCREMENT THE ADDRESS
:LEAVE BIT 0

;PUT _PORT A ADDRESS ON THE STACK

:SAVE BIT S 182

;SET BITS1 8 2 IN PORT B ADDRESS
:"PORT A ADDRESS IS
°*

: SAVE PORTA FOR TYPEOUT

ssTYPE PORT A _ADDRESS
2:GO _TYPE=-=0CTAL ASCII
:sTYPE 1 DIGIT(S)

.‘SUPPRESS LEADING ZEROS

PORTB,~(SP)

: ;SAVE PORTB FOR TYPEOUT

o0
(=1

49 002514

sBRANCH IF YES

..SOFTUARE SWITCH REG SELECTED?

sSETUP THE TTY KEYBOARD

.PCRTBIS

10440?

..ARE WE RUNNING UNDER XXDP/ACT?

PC.STKINT
PC, CHANGE

017657
001226

PT 23<CRLF>

15:.

(SP)+,PORTB
,PORTAIS
PORTA,=(SP)

001224

LEVEL 6

:sSET AUTO-MODE INDICATOR

#-C6, (SP)

013746

sSETUP FOR UNEXPECTED TIMEOUT

#1,3AUTOB

000007

001226

..RESTORE ERROR VECTOR

698:

.ENTERA

001226

..POINT TO SOFTWARE SWR

GET VALUEfi:gR SOF TWARE SWITCH REGISTER
698
SWR,#SWREG
708

017605
001224

#DISPREG,DISPLA

.SBTTL _TYPE PROGRAM NAME
:;TYPE THE NAME OF THE PROGRAM lF FIRST PASS
i FIRST TIME?
#-1
INC
BRAN%?’IF NO
673
BNE
#SENDAD ,a#42
CMP
;3BRANCH IF YES *
67%
BEQ
,68$
TYPE
..TYPE ASCIZ STRING
:GET OVER THE ASCIZ
) 7$
BR
DUAL PORT TEST,
RM80
RNIAO
<CRLF>aCZ
$:
.ASCIZ
68
::
LBTTL

000042

#SWREG, SWR

s SETUP 'TIHEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

678:
005737

MOV
MOV
MoV

0
. SCRLF

PORTA,PORTC
#6,PORTC

PORT B ADDRESS IS

:;TYPE PORT B_ADDRESS
::G0 TYPE--OCTAL ASCII
ssTYPE 1 DIGIT(S)
; :SUPPRESS LEADING ZEROS
sANOTHER CR-LF

;GENERATE ADDRESS OF DRIVE NOT TESTED
;COMPLEMENT SOME BITS

CZRNIAO [M80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-2

GET VALUE FOR SOF TWARE SWITCH REGISTER

042737

61 002606
62
63
64
65 002610
66 002612
67 002616
68 002622
69 002626
;? 002632

177770 001230

BIC

’c?, PORTC

sSAVE ONLY LOWER BITS
:USE_PORT A ADDRESS AS INDEX

001260
001262
001264
013336
002610
017706

CLR
CLR
CLR
JSR
JMP
TYPE

TIMEAP
TIMEB
TIMEBP
PC,CKCLK
EXEC
,NOCLOCK

:CLEAR TIMEOUT ONE=-SHOT VALUE LOCATION

: INTERLOCK THE HALT

MOVB
CLR
MOV

001232
025060
001256

001224

3s:

000776

000005

82 002706
83 002710
84
85 002714

:CLOCK HAS BEEN STARTED
:NO CLOCK ON SYSTEM
;FATAL ERROR

001207
001272
001100
013336

sCLEAR EVERYTHING
Ekftg THE PROCESSOR STATUS WORD

MOV
flgg

#STACK. SP
PC.CKCLK

:LOAD STACK POINTER
;START THE CLOCK

015774
001266
001100
000001
002662
002670

JSR
CLR
CLR
MOVB
MOV
MOV

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

sINITIALIZE THE KEYBOARD
;CLEAR SINGLE TEST INDICATOR
:CLEAR THE PASS COUNT
:SET ERROR MAX T0 1
:INITIAL SETTING FOR LOOP ADDRESS

TYPE

,TESTNO

MOV
BNE

(SP)+,R1
2

:PUT ENTRY INTO R1
:BR_IF NOT ZERO

CMP
BLE
TYPE

R1,MAXTN
3s
BADNO

;SEE IF NUMBER GREATER THAN MAXIMUM
:BR IF LESS OR EQUAL

DEC
ASL

R1
R1
KYBCTL

TYPE
MOV

001115
001106
001110
18:

2s:

025070

001266
000001
000002

000171

000240
002760
025040

RDOCT

JMP

003074

INC
MOV

001104

MOV
MOV
648:

RTI

JMP

.SCRLF
$RMADR, RO

TST1AA

;RH/RM ADDRESS FOR INDEXING
:RETURN IF NO CLOCK

:INITIAL SETTING FOR LOOP ON ERROR ADDRESS
sASK FOR TEST NUMBER
;GET THE NUMBER

:ENTER ZERO - PERFORM ALL TESTS

:BAD ENTRY
sTRY AGAIN

#1,$1CNT

;SET SINGLE TEST INDICATOR
;PRESET ITERATION COUNT
::PUT NEW PS ON STACK

#PRS, = (SP)
#64$.=(SP)
aTSTADR(R1)

;DECREMENT ENTRY
SSHIFT IT LEFT

:sPUT NEW PC ON STACK
:;POP NEW PC AND PS
:JUMP TO TEST

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

005737

1 00 002772
1

;SETUP CLOCK

3s:

01 002776
1 02 003002
03 003006

:CLEAR TIMEOUT ONE=-SHOT VALUE LOCATION
:CLEAR TIMEOUT ONE=-SHOT VALUE LOCATION

RESET
CLR

EXEC:

177776

017773

97
98 002764
99 002770

HALT

B8R

:GET ATTENTION BIT FOR DRIVE
ASR1 ;CLEAR
A7A31f<a1)
TIMEOUT ONE=-SHOT VALUE LOCATION
TIMEA

PORTA,R

:ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR

017753

92 002740
93 002746
002752
002756
002760
94 002760
95

SEQ 0028

104402

001270

CHANGE: TST

CHGADR

001270
020022

1$:

CLR
TYPE

CHGADR
ADDRIS

001272

B8EQ

?egoc

$RMADR, = (SP)

s CHANGE THE ADDRESS ?
:BR_IF NOT
sCLEAR THE INDICATOR

:TYPE OUT WHAT THE PRESENT ADDRESS IS
:PUT_THE ADDRESS ON THE STACK
;TYPE THE ACTUAL ADDRESS

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-3

)

SEQ@ 0029

GET VALUE FOR SOF TWARE SWITCH REGISTER
104401

+SCRLF
+NTRH

JCR=LF
;ASK FOR NEW ADDRESS

(SP)

20 OR 'CR' ENTERED ?

MOV
TST
MOV
bl

(SP) ,SRMADR
(SP)+
#4806
$SRMADR RO

JNEW RH/RM ADDRESS
:CORRECT THE STACK POINTER
:LOAD TRAP ADDRESS
:GET RH/RM ADDRESS

B8R

:BR IF YES

25
#4,SP
18
86,46

:RESET THE STACK POINTER
:GET ADDRESS AGAIN
:RECTORE THE VECTOR

SRMADR RO
#PRS ,=(SP)
#648.,-(SP)

:sRESTORE RO AFTER END OF PASS
J:PUT NEW PS ON STACK
:3PUT NEW PC ON STACK

TYPE
55551

001207
020057

TST

8EQ

001272
003054
001272
000002

000004

W
L 2

S8 g8

WINNW N
[olelels o
NN N
On

WSNN=0YV0
VISWOV~

D b cand o cd v

WA NN = b oed =

— d cnd e

) b i b b

b cad b b b O O o
~

104 003010
105 003014
106 003020

TST

EMT
ADD
BR
MoV
RTS

000004

3056
06

000006

000004

5%:

TST1AA: Mov

MOV
MoV
RT1]

64$:

:BR IF EITHER ENTERED (NO ADDRESS CHANGE)

:RESPONDS AT THAT ADDRESS ?

RHUC(RG)

JRETURN

23POP NEW PC AND PS

::ttt*tttttttitttttfitt'tttitfitttttttttttttt't.tttttt*ttt*ttttttt*

DRIVE ACCESS TEST

:«TEST 1
I

;*VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS
SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE
DRIVE IS A DUAL PORT RM80, THAT THE DRIVE IS ONLINE (RMDS HAS

‘MOL", 'PGM’, 'DPR', & °'DRY® BITS SET), AND THE THE DRIVE SERIAL
NUMBER READ THROUGH BOTH PORTS IS THE SAME.

2 8

THE TEST IS REPEATED THROUGH BOTH PORTS.

[ TA TR TR TR TR YR TR ]

. %

o
o
v

001266
001106
001110

000740

28:
TEST1:

TST
8EQ
8PL
JMP
Mov

KYBCTL
23
1$
EXEC
#-1,KYBCTL

sPERFORMING ONLY SINGLE TESTS ?
:BR IF NOT
sBR_IF JUST ENTERED TEST
sRETURN & GET NEXT TEST NUMBER
sSET SINGLE TEST INDICATOR

MOV

#TEST1,SLPERR

;SETUP ERROR LOOP ADDRESS

MoV

:SETUP SCOPE LOOP ADDRESS

NTEST1,SLPADR

001176

MOV
MoV
MoV

#1,$TSTNA
#STACK,SP
#1,STIRES

cMOVE #1 TEST NUMBER
sSETUP THE STACK POINTER
c:D0 1 ITERATION

000010

MoV

#CLR,RMCS2(RO)

;CLEAR MASSBUS

001102

SNNN

WOW
NOVN

OVG
- o b b

OO=
cad axb e=d
PN

-t

&
~N

003170

4
4
4

003162

3
3

OoMN=O0V0

—b

b e

o
S
v

3288

CD::U!

OMNS
NI
—
WULIWNW
NN O

SSw

-—ge

C tARARRRARARRRARAARRANAREREAARNARARARRARRRAANAAAAAARAAARRAARAARENAS

sVERIFY THAT DRIVE IS PRESENT THROUGH PORTS A € B
003176
003204

0
4

001224
001224

000010

001234

MOV8

MoV

PORTA,RMCS2(RO)

PORTA,PTNBR

;SELECT PORT A

:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-4
T

SEQ@ 0030

DRIVE ACCESS TEST

003212
003216
003222

005760
005037
016037

000012
001244
000010

003236
003242

060037
005037

001122
001124

003254
003262
003270
003272
003300

042737
023737
001414
013737
042737

167777
001124

003316
003322
003324
C03330
003332
003340

005137
000240
005737
001403
012760
113760

001244

003354
003360
003364
003372

005760
005037
016037
012737

000012
001244
000010
000010

003410

013737

001126

ST
CLR
MOV

RMDS (RN)
sSEE IF DRIVE (PORT A) PRESENT
CKERR
sCLEAR THE °'CHECK ERROR' INDICATOR
RMCS2(RO) ,$8DDAT GET CONTENTS OF RMCS2

ADD
CLR

RO, $8DADR
$GDDAT

003230 012737 000010 001122

HOV

003246

MoV

013737

001126

001164

001126
010000

001174
001174

88%%?2 ?gzggq 001174

001164
001164

001124

001244

;FORM REGISTER ADDRCSS OF ERROR MESSAGE
sADD RH/RM BASE ADDRESS
sWHAT REGISTER SHOULD BE

$SBDDAT,$TMPO

8IC
CMP
BEQ
MOV
8IC

#~CNED,$TMPQ
$GDDAT ,$TMPO
648
SBDDAT,$TMP4
#NED . STMP4

COM
NOP
TST

CKERR

gg;
64$:

#RMCS2,$BOADR

sMOVE REGISTER CONTENTS TO 'S$TMPO'

-SAVE SPECIFIED BITS
s COMPARE THE BITS
s8R _IF 0K
;COPY °*BAD DATA'
sCLEAR THE MASKED BITS

?THP‘.SGDDAT

:'OR* WITH GOOD DATA FOR TYPEOUT
sSET THE REGISTER COMPARE ERROR INDICATOR

MoV
Move

CKERR
sWAS °NED' SET ?
.+10
sBR IF NOT
#CLR,RMCS2(RO) ;ISSUE MASSBUS INIT TO CLEAR °NED’
PORTB,RMCS2(RO)
:SELECT PORT B

001126
001122

TSTY
CLR
MOV
MOV

RMDS (RO)
sSEE IF DRIVE (PORT B) PRESENT
CKERR
sCLEAR THE 'CHECK ERROR' INDICATOR
RMCS2(R0) ,$8DDAT ;GET CONTENTS OF RM(CS?2
#RMCS2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE

001126

001164

MoV

023737

001126

001164

013737

001126

001174

003450 053737 001174

001124

000040
001226

BEQ

000010
000010

003346 013737 001226 001234

003400
003404

003416

003424

003432

003434

003442

003456

003460
003464
003466
003472
151 003474

060037
005037

042737
001414

042737
104001

005137
000240
005737
001403
012760

001122
001124

167777

010000

ADD
CLR

001164

81C

CMP

BEQ

Mov

001174

001244

000010

}g%

PORTB.PTNBR

;MOVE REGISTER CONTENTS TO '$TMPO®

#~CNED,STMPQ

;SAVE SPECIFIED BITS

$GDDAT,S$TMPO

sCOMPARE THE BITS

46$

sBR IF 0K

$SBDDAT ,$TMP4

EMT

MOV

:ADD RH/RM BASE ADDRESS
sWHAT REGISTER SHOULD BE

$SBDDAT ,$TMPO

#NED ,$TMP4

COM
NOP
TST
BEQ

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

RO, $BDADR
SGDDAT

8IC

8IS
66$:

001244

000040

Mov

;COPY 'BAD DATA'

sCLEAR THE MASKED BITS

STMPS , SGDDAT

s'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

CKERR
.+10
#CLR,RMCS2(RO)

sWAS °NED' SET ?
:BR _IF NOT
;ISSUE MASSBUS INIT TO CLEAR °NED’

;CONFIRM THAT DRIVE IS AN RM80 AND IS DUAL PORT

157 003502

113760

001224

000010

MOV8

PORTA,RMCS2(R0)

003516
003522
003530

005037
016037
012737

001244
000026
000026

001126
001122

CLR
Mov
MoV
ADD

CKERR
sCLEAR THE °'CHECK ERROR® INDICATOR
RMDT(RO) ,$BDDAT ;GET CONTENTS OF RMDT
#RMDT ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
sADD RH/RM BASE ADDRESS

003510 013737 001224
3536

060037

001122

003542 012737 024026
003550 023737 001124

003556
003560
003562
003566
003570

001403
104002
005137
000240
113760

001234

001124
001126

001244

001226

MoV

000010

003576 013737 001226 001234

MoV
CMP
68$:

BEQ
EMT
COM
NOP
MOVR

MoV

PORTA.PTNBR

#024026 ,SGDDAT
$GDDAT,$BODAT
68$
2
CKERR

:WHAT REGISTER SHOULD BE
;IS THE REGISTER OK ?
sBR

IF OK

sSET THE REGISTER COMPARE ERROR INDICATOR

PORTB,RMCS2(R0O)

PORTB,PTNBR

:SELECT PORT A

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

-SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-5

SEQ 0031

DRIVE ACCESS TEST

003604

003610
003616
003624

005037 001244
0

012737
060037

000026
001122

CLR

Mov
MoV
ADD

001126

001122

003630 012737 024026 001124
003636 023737 001124 001126
003644
003646

003650

158 003654

001403
104002

005137

000240

001244

RMDT (RO) ,$BODAT ;GET CONTENTS OF RMDT
#RMDT ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS
RO, $BDADR

MOV
CMP

#004026,$GDDAT ;WHAT REGISTER SHOULD BE
$GDDAT,$BDDAT ;IS THE REGISTER OK ?

CoM

CKERR

BEQ
EMT
708:

sCLEAR THE °‘CHECK ERROR®' INDICATOR

CKERR

NOP

:BR IF 0K

708
2

;SET THE REGISTER COMPARE ERROR INDICATOR

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

%23

;SELECT PORT A

165 003656

113760

001224

000010

Move

PORTA ,RMCS2(RO)

003672
003676
003704
003712

005037
016037
012737
060037

001244
000012
000012
001122

001126
001122

003726

013737 001126

;CLEAR THE °‘CHECK ERROR' INDICATOR
CKERR
RMDS (RO) ,SBDDAT ;GET CONTENTS OF RMDS
#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
:ADD RH/RM BASE ADDRESS
RO, $8DADR
#PGM,SGDDAT ;WHAT REGISTER SHOULD BE
#°CPGM,S$TMPO
SGDDAT ,$TMPO

MoV

003664 013737 0012246 001234
003716

003732
003740

003746

003750
003756

001000

001124

CLR
MoV
MoV
ADD
Mov

042737
023737

176777
001126

001164
001164

8IC
CMP

013737
042737

001126
001000

001174
001174

MoV
8IC

$BDDAT ,$TMP4
#PGM, STMP4

EMT

012737
001414

MOV

001164

BEQ

8IS

003764 053737 001174 001124
003772

104003

003774

005137

001244

004002

005037

001244

004014
004022
004026
004034

012737
060037
012737
013737

000012
001122
010600
001126

004000

004006

000240

016037

000012

728:

023737
001414
013737
042737

001122
001124

001164

001126

001164

001126
010600

001174
001174

004102

104004

005137

001244

004112

113760

001226

000010

004126
004132

005037
016037

001244
000012

001126

004152
004160
004166
004174

012737
013737
0462737
023737

001000
001126
176777
001124

001124
001164
001164
001164

004204

013737

001126

001174

004110

000240

004120 013737 001226 001234

004140 012737 000012 001122
004146 060037 001122
004202

001414

NOP

CLR

728

sMOVE REGISTER CONTENTS TO °'S$TMPO’

;SAVE SPECIFIED BITS
sCOMPARE THE BITS

$TMPS , SGDDAT

3R _IF 0K

;COPY °‘BAD DATA®
;CLEAR THE MASKED BITS

:'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

CKERR

sCLEAR THE ‘'CHECK ERROR® INDICATOR

RMDS (RO) ,$BDDAT

;GET CONTENTS OF RMDS

#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MFESSAGE
:ADD RH/RM BASE ADDRESS
RO,$BDADR
#MOL !DPR!DRY,$GDDAT ;WHAT REGISTER SHOULD BE
sMOVE REGISTER CONTENTS TO °"$TMPO'
$SBDDAT ,$THPO

CMP
BEQ
MOV
8IC

$GDDAT,$TMPO
743
SBDDAT, $TMP4
#10600,$TMP4

8IS
EMT

748:

$SBDDAT ,$TMPO

MoV
ADD
MoV
MoV

8IC

004074 053737 001174 001124

004106

CoM

MoV

001126

004042 042737 167177 001164

004050
004056
004060
004066

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATTON FOR TYPEOUT

#~010600,$TMPO :SAVE SPECIFIED BITS
$TMP4 , $GDDAT
4

sCOMPARE THE BITS
sBR IF 0K
:COPY °BAD DATA'
sCLEAR THE MASKED BITS

s°OR' WITH GOOD DATA FOR TYPEQUT

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

Move

PORTB,RMCS2(R0)

;SELECT PORT 8

CLR
MOV

sCLEAR THE °*CHECK ERROR’ INDICATOR
CKERR
RMDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS

coM

NOP

MoV

MOV
ADD

MoV
MoV
8IC
CMP
BEQ
MoV

PORTB,PTNBR :HOVE.PORT ADDRESS TO LOCATION FOR TYPEOUT
ARMDS ,$ADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDAOR
:ADD RH/RM BASE ADDRESS
#PGM,SGDDAT ;WHAT REGISTER SHOULD BE
;MOVE REGISTER CONTENTS TO °S$TMPO’
$8DDAT,$TMPO
#~CPGM,STMPQ ;SAVE SPECIFIED BITS
s COMPARE THE BITS
$GDDAT,$TMPO
s8R _IF OK
76$
sCOPY °'BAD DATA'
$SBDDAT ,$TMP4

€2 RNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-62 07:13:40 PAGE 9-6

SEQ 0032

DRIVE ACCESS TEST

042737
053737

001009
001174

001174
001124

001244

8flfl NN

001124

MOV
MOV
ADD

;CLEAR THE °'CHECK ERROR' INDICATOR
CKERR
(RO) , $BDDAT " ;GET CONTENTS OF RMDS
RMDS
#RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
:ADD RH/RM BASE ADDRESS
RO, $BDADR

MOV

SBDDAT,$TMPO’

#MOL 'DPR'DRY,SGDDAT

;WHAT REGISTER SHOULD BE
;SAVE SPECIFIED BITS

:MOVE REGISTER CONTENTS TO *STMPO'

BIC
CMP

#-c10600,$TMPO
SGgDAT.SfflPO

MOV
BIC

BIS

$BDDAT, $TMP4
#10600 . $TMP4

2THP4.§GDDAI

;COMPARE THE BITS
¢8R _IF 0K
;COPY °"BAD DATA'
sCLEAR THE MASKED BITS

COM

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

;'OR* WITH GOOD DATA FOR TYPEOUT

b—

) wmd

;VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME
001224
000030
001226
000030
001124

000010
001124
000010
001126
001126

100000

174522

b cd o

b emd b cd b end e

sSET THE REGISTER COMPARE ERROR INDICATOR

NOP

78$%:

SNNNNNNNN ooTM

001244

CKERR

EMT

MOV

001126
010600
001174

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

#PGM, $TMPS

coM
NOP
CLR

001124

{
, SGDDAT
$TMP

BIC

BIS
76$:

001244

A)
= =

QOO

22RRR RSV RSHERERSTM

MOov8
Mov
MOvVB
MOV
CMP
BEQ
EMT
817

BNE
HALT

PON)

b amd

1%:

PORTA ,RMCS2(R0O)
RMSN(RO) ,$GDDAT
PORTB,RMCS2(RO)
RMSN(RO) ,$BDDAT
$GDDAT ,$BDDAT
1$
5
#SW15 ,3SWR

SCOPE

;SELECT PORT A
;STORE THE PORT A SERIAL NUMBER
;SELECT PORT 8
;STORE THE PORT B SERIAL NUMBER
;ARE THEY IHE SAME ?
:BR IF THEY ARE

sHALT ON ERROR ?
:BR JF SET - PROGRAM HAS ALREADY HALTED
sHALT, POSSIBLE CABLE CONNECTION PROBLEM
sLOOP ?

;;ttttfitttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

SET °*VV' FOR PORT A

S*TEST 2
;t

s*SET VOLUME VALID
¥

s« B.
::

‘i«

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.

ISSUE A RELEASE COMMAND THROUGH PORT A.

VERIFY

VERIFY THAT

THE DRIVE RETURNED TO NEUTRAL AND T-IAT NEITHER ATTENTION

BIT IS SET.

E;tstttttltttttttttttttttttttttttttt'tttttttttttttttttttttttttttt
005737
001406
100002
000137

001266

002610

TST

5;8CTL

8PL
JMP

18
EXEC

:PERFORHI?G ONLY SINGLE TESTS ?
:BR IF NO
sBR_IF JUST ENTERED TEST
sRETURN © GET NEXT TEST NUMBER

CZRNIAO RM80 DUAL PORT PT2 HACRO V04.00 15~JAN-82 07:13:40 PAGE 9-7
T2

SEQ 0033

A
SET 'VV' FOR PORT

MOV

#-1,KYBCTL

sSET SINGLE TEST INDICATOR

001102

MOVB

#2,8TSTNA

sMOVE #2 TEST NUMBER

004440

012737

177777

001266

004462

112737

000002

18$:

004446 012737 004462 001106 2%:
882223 012737 004462 001110 TEST2
0064470 012706 001100

MOV
MoV
MoV

004474

012737

000001

001176

MoV

004502

113760

001224

000010

MOVB

MOV

004510 013737 001224 001234

SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

#TEST2, SLPADR
NTEST2.SLPERR

;SETUP THE STACK POINTER

#STACK,SP

::D0 1 ITERATION

,STIMES

PORTA, RHCSZ(RO)

PORTA,PTNBR

A
:SELECT PORT

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

sSET VOLUME VALUE FOR PORT

004516

012760

000011

MOV

000000

MoV
MoV

004524 012760 000021 200000
004532 012760 910000 000032

#11 ,RMCS1(RO)

;ISSUE A DRIVE CLEAR

#21,RMCS1(RO) :ISSUE A READIN PRESET
#FMT16,RMOF (RO) “;SET FMT16

sVERIFY THAT THE DRIVE STATUS 1S CORRECT

004540
004544
004552
004560

005037
016037
012737
060037

004614

001414

004564
004572
004600
004606
004616
004624

012737
013737
042737
023737
013737
042737

001244
000012
000012
001122

001126

011700
001126
106077
001124

001124
001164
001164
001164

001126
071700

001174
001174

001122

004640

004646

104010

005137

000240

001244

sCLEAR THE °CHECK ERROR' INDICATOR
CKERR
RMDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS
lRHDS.SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
1ADD RH/RM BASE ADDRESS
RO, $8DA

BEQ

64$

:BR IF 0K

$TMP4, $GDDAT

s'OR’ WITH GOOD DATA FOR TYPEOUT

MoV
MOV
8IC
CMP
MOV
8IC

8IS

004632 053737 001174 001124
004642

CLR
MoV
MoV
ADD

EMT

64$:

com

NOP

lHOL'PGH'DPR'DRY VV,$GDDAT ;WHAT REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO *STMPO'
$8DDAT , $TMPO
#~C71700,$TMPO :SAVE SPECIFIED BITS
COHPARE THE BITS
$GDDAT,$TMPO
$SBDDAT, $TMP4
#71750,$TMP4
10

CKERR

:COPY °BAD DATA'
:CLEAR THE MASKED BITS

sSET THE REGISTER COMPARE ERROR INDICATOR

;RELEASE THE DRIVE FROM PORT A

004650
004656

113760
013737

001224
001224

000010
001234

004664 012760 000013 000000

Movs
MoV

MoV

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

#13,RMCST(RO)"

;ISSUE RELEASE THROUGH PORT A

SVERIF{ THAT THE DRIVE IS IN NEUTRAL

004672
004676
004704

005037
012737
060037

005004

001006

004710
004716
004724
004732
004740
004746
004754
004762
004770
004776

012737
113760
016037
013737
042737
113760
016037
013737
042737
023737

001250
000012
001122

011600
001224
000012
001170
100100
001226
000012
001172
100100
001164

001122

001124
000010
001170
001164
001164
000010
001172
001166
001166
001166

CLR
MoV
ADD

MOV
MovB
MoV
MoV
BIC
MOovB8
MoV
MOV
BIC
CMP
BNE

RELERR
#RMDS, $BDADR
RO, $8DA

sCLEAR THE °‘RELEASE ERROR ‘' INDICATOR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
;ADD THE 1/0 BASE ADDRESS

lHOL'PGH'DPR'DRV S$GDDAT COHPARISON CONSTANT
PORTA RMCS2(RO) ;SELECT PORT
A
RMDS(RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
;COPY IT INTO *'$TMPQ’
STMP2, STAPO
NATA'VV,STHPO :CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(RO) :SELECT PORT B.
RMDS(RO) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT 8.
sCOPY IT INTO 'STMPI®
$TMP3, STHP1
OATA'VV $TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY
:IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
.$thP1
:BR IF NOT

SEQ 0034

CZRNIAO RH80 DUAL PORT PT2 HACRO V04.00 15-JAN-82 07:13:40 PAGE 9-8
A
'VV' FOR PORT

001164

001126
001234
000010

NO
W
~NO

2929

001224
001172
001224
001166

177777

001250

001170
001224

001126

688:

001124

001170

001172

001126
001234
001172
001172

100100

001124

216

*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB.PTNBR
PORTB.RMCS2(RO) :SELECT PORT B.

BEQ

678

SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

$TMPO

*SEE IF STATUS EQ G FROM PORT A.

PORTA,PTNBR

:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

:BR IF ZERO

- 'BAD DATA' ron ERROR TYPE OUT
$TMP3.$BDDAT
PORTA.RMCS2(RO) :SELECT PORT A.
*SEE IF srArus EQ ZERO FROM PORT B.
$TMP1

Efl¥

g;l,RELERR

MOV

688

*BR IF NO

$TMP2,$BODAT

:LOOK FOR BIT FAILURES WHEN RMDS READ

SATA'VV.STMP2

:DON'T CHECK ATTN BIT OR VV BIT

ggs

‘B8R IF OK FROM PORT A.

MOV

PORTA.PTNBR

CMP

$SGDDAT.$TMP2

BIC

ggg

698:

$TMP2,$BDDAT

:BYPASS THE REST OF THE CHECKS

MOV
MOVB
TST
BNE

MOV

$TMP3,$BDDAT

CMP

$GDDAT. $TMP3~

MOV
BIC
BEQ
EMT

*SET 'RELEASE ERROR® INDICATOR

: CHANGE PORT NUMBER

:ALL BITS OK ?

:CHECK RMDS FOR BIT FAILURES - FROM PORT B.

PORTB.PTNBR
#ATA'VV.STMPS

: CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR VV BIT

70$

:BR

NOP

708:

000004

MOV
MOVB
MOV

678:

*BR IF NOT

688
34
708

001234
001126
000010

:REGISTERS ARE THE SAME: ARE THEY ZERO ?

BNE
EMT
JMP

MOV

668:

$TMPO

:SEE IF READ OK FROM PORT B.
IF OK

:LOOP 2

SCOPE

tttttttttttttttttttttttttttttfitfittttttttttttl*ttttttttttttttttt

~rssr 3

SET 'VV' FOR PORT B

--ssr VOLUME VALID
.t

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B.

‘e
i

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

‘e
e

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

VERIFY

BIT IS SET.

:.t;ttttttttt!ttttlttttttttttttttttitttfitittttttttttttttttttttttt
I1STS:

001266

002610
127777
005244
005244

005252

000003
001100

001266
001106
001110
001102

1$:

2s:
TEST3

8PL

KYBCTL
2
18

:PERFORMING ONLY SINGLE TESTS ?
*BR IF NOT

MOV

#-1.KYBCTL

*SET SINGLE TEST INDICATOR

ST
BEQ

JMP

EXEC

MOV
MOV

ATESTS,SLPADR
STEST3.SLPERR

MOVE

#3,$TSTNM

MOV

#STACK,SP

‘BR IF JUST ENTERED TEST

*RETURN © GET NEXT TEST NUMBER

:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
:MOVE #3 TEST NUMBER

*SETUP THE STACK POINTER

RHBO SbALFSRRTOPTZMACRO V04.00 15-JAN-82 07:13:40 PAGE 9-9
%%RNIAO

SEQ 0035

005256

012737

000001

001176

Mov

#1,STIMES

::D0 1 ITERATION

005264

113760

001226

000010

MOovB

PORTB,RMCS2(RO)

:SELECT PORT B

MOV

005272 013737 001226 001234

PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

:SET VOLUME VALUE FOR PORT

005300

012760

000011

MoV

000000

MoV
Mov

005306 012760 000021 000000
005314 012760 010000 000032

#11,RMCS1(RO)

;ISSUE A DRIVE CLEAR

#21.RMCS1(RO) :ISSUE A READIN PRESET
#FMT16,RMOF (RO) “;SET FMT16

;VERIFY THAT THE DRIVE STATUS IS CORRECT

005322
005326

005037
016037

005376

001414

005334
005342
005346
005354
005362
005370
005400

012737
060037
012737
013737
042737
023737
013737

001244
000012

000012
001122
011700
001126
106077
001124
001126

CLR
MOV

001126

001122
001124
001164
001164
001164

005422

005424

005430

104010

005137

001174

000240

001244

MOV
ADD
MoV
MOV
8IC
CMP

lRHDS SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
1ADD RH/RM BASE ADDRESS
RO, $8
#HOL'PGH'DPR'DRY VV,$GDDAT -WHAT REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO ‘$TMPO'
$BDDAT,$TMPO
:SAVE SPECIFIED BITS
PO
#~c71760,$TM
;COMPARE THE BITS
$TMPO
$GDDAT,

MoV

$BDDAT,$TMP4

8EQ

005406 042737 071700 001174
005414 053737 001174 001124

648

BIC
8IS

#71700,$TMP4
$TMP4, $GDDAT

coM

CKERR

EMT

648:

sCLEAR THE °‘CHECK ERROR® INDICATOR
CKERR
RMDS (RO) ,$BDDAT ;GET CONTENTS OF RMDS

NOP

:BR_IF OK

sCOPY °*BAD DATA'

:CLEAR THE MASKED BITS
$'OR’ WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR

sRELEASE THE DRIVE FROM PORT 8

005432
005440

113760
013737

001226
001226

Mov8
MoV

000010
001234

005446 012760 000013 000000

MoV

PORTB,RMCS2(RO) SELECT PORT 8
PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

#13,RMCST(RO)"

;ISSUE RELEASE THROUGH PORT B

:VERIFY THAT THE DRIVE IS IN NEUTRAL

005454
005460
005466

005472
005500
005506
005514
005522
005530
005536
005544
005552

005560

005037
012737
060037

012737
113760
016037
013737
042737
113760
016037
013737
042737
023737

005566

001006

005574
005576
005600

001037
104034
000137

001250
000012
001122

011600
001224
000012
001170
100100
001226
000012
001172
100100
001164

CLR
MOV

001122

ADD

MoV
MoV
MOV
8IC
Movs
MoV
MoV
8IC

001124
000010
001170
001164
001164
000010
001172
001166
001166

Movae

CMP

001166

BNE

005570 005737 001164
005604

013737

005764

001170

TST

001126

005612 013737 001226 001234

66$%:

RELERR
#RMDS ,$SBDADR
RO,$BDADR

sCLEAR THE °'RELEASE ERROR ° INDICATOR
:FORM THE ADDRESS OF RMDS FOR TYPEOUT
;ADD THE 1/0 BASE ADDRESS

$TMPO, $TMP1

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?

! DRY, SGDDAT COHPARISON CONSTANT
#MOL ' PGM'DPR
A
PORT/ ,RMCS2(RO) :SELECT PORT
RMDS (R0) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
;COPY IT INTO 'STMPO®
$7472, $THPO
NATA'VV,STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(RO) :SELECT PORT B.
RMDS (R0) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.
:COPY IT INTO 'STMP1®
$TMP3, $THP1
MATATVV,STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY
663

$TMPO

:BR_IF _NOT

:REGISTERS ARE THE SAME: ARE THEY ZERO ?

BNE
EMT
JMP

68$
34
708

:BR IF NOT

MoV

PORTB,PTNBR

:SEIZING PORT IF (EST SHOWS DRIVE NOT IN NEUTRAL

MoV

$TMP2, $BDDAT

;BYPASS THE REST OF 1HE CHECKS

sSET _UP POSSIBLE F 3D DATA FOR ERROR MESSAGE

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 5-JAN-82 07:13:40 PAGE 9-10
13

SEQ 0036

SET 'VV' FOR PORT B

005620

113760

0012
0011

001166

401

PORTB,RMCS2(RO)
$TMPO
67%
PORTA,PTNBR
$TMP3,$BDDAT

000010

001234
001126
000010

001250

67%:

001170

001126

68$:

STMP1
68$

$TMP2,SBDDAT

PORTA.PTNBR

69$:

:SEE_IF STATUS EQ ZERO FROM PORT B.

:BR_IF _NOT

:SET 'RELEASE ERROR' INDICATOR
;LOOK FOR BIT FAILURES WHEN RMDS READ

CHANGE PORT NUMBER

:DON'T CHECK ATTN BIT OR Vv 3IT

69$
37
$TMP3,SBDDAT
PORTB.PTNBR
#ATA!VV,STMP3

:BR IF OK FROM PORT A,

$GDDAT, $TMP3

001124

217

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

#ATA'VV,STMP2

$GDDAT, $TMP2

001124

70$

:
708

000004

:BR IF ZERO

A
PORTA.RMCS2 (R0) ;SELECT PORT

177777

001172

sSELECT PORT 8.

:SEE Ir STATUS EQ O FROM PORT A.

;ALL BITS 0K ?

sCHECK RMDS FOR BIT FAILURES - FROM PORT B.
CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR vV BIT
;SEE IF READ OK FROM PORT B.
:BR IF OK

sLOOP ?

274
s 1232222322322 3232233 2323832232223 2223223220020 diatidiitdiiiiiiddd

MEASURE THE TIMEOUT ONE=-SHOT THROUGH PORT A

*TEST 4

WRITE 0°'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE

@TM

WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.
VERIFY THAT THE TIMFOUT OCCURRED AND THAT THE DRIVE RETURNS

(o)

PR Y YRR PR TR TR PR TN N
.l'fi"."l

tHEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A
DRIVE HAS BEEN SEIZED.

TO NEUTRAL

‘s

005770

N
N

tttttttttttttttttttt'ttttttttttttfittttttttttttttttttttfittttttit

TST

001266

002610
177777
006026
006026

006040

000004
001100
000001

006046

001256

BEQ

B8PL
001266
001106
001110

001102

001176

18:

2s$:
TESTS:

KYBCTL

JMP

EXEC

;PERFORMING ONLY SINGLE TESTS ?
:BR IF NOT

:BR_IF JUST ENTERED TEST
:RETURN © GET NEXT TEST NUMBER

MOV

#-1.KYBCTL
NTEST4, SLPADR

ATEST4.SLPERR

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

MOVB

#4,STSTNM

sMOVE #4 TEST NUMBER

#1,STIMES

::00 1 ITERATION

MOV
MOV

MOV

#sTACK,SP

CLR

TIMEA

MOV

;SETUP THE STACK POINTER
;CLEAR THE TIMEOUT VALUE STORAGE LOCATION

SEQ 0037

V'c4.00 15-JAN-82 07:13:40 PAGE 9-11
C%RNIAO RM80 DUAL PORT PT2 MACRO
THROUGH PORT A
ONE-aHOT
MEASURE THE TIMEOUT
006052

005037

CLR

001260

TIMEAP

;CLEAR THE + 25% TOLERANCE LOCATION

;START THE TIMER

006056
006062

CLR
MoV

001254

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

TIME
#2000. ,WATCH

;SEIZE THE DRIVE THROUGH PORT A
006070

000010
001236

PORTA ,RMCS2(R0) ;SELECT PORT
A
PORTA,SEIZPT STORE SEIZING PORT'S ADDRESS

000010
001234
001240
001126

PORTB,RMCS2(RO)

RMDS (R0)

PORTB,PTNBR
PORTB,0PPRY

000010

113760

P4
0
006264

64$:

ORHDS.SBDADR
$GDDAT

GENERATE BAD REGISTER ADDRESS
;REGISTER SHOULD BE ZERO

;BYPASS REST OF THE SUBTEST

;1S THE REGISTER ZERO
:BR IF IT IS

PORTA ,RMCS2(R0)

;SELECT PORT A

PORTA.PTNBR

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

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

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

RMDS (RO) ,$8DCAT ;SEE IF SEIZING PORT SEES CORRECT STATUS
#MOL ' PGM{DPR!DRY
!
VV,SGDDAT _ ;EXPECTED STATUS

001164
001164
001164

653:

000240

RM BASE ADDRESS

$GDDAT,$BDDAT
ggS

001166

001124

;'OPPOSITE® PORT ADDRESS

RO,$8

001126
006704

:SELECT PORT 8B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

RMDS(RO) SBDDAT SEE IF DRIVE SEIZED BY PORT A

001122

000137

SWRITE RMDS

:ARE THE EXPECTED STATUS BITS SET ?
:BR IF THEY ARE

NOP

;WAIT FOR PORT A TO TIMEOUT
006266

113760

001226
001226
000012

000010
001234

1$:

001254
006356
2

012637

001226

001260

2$:

MovB
MOV
TST
BNE
TST

BNE
EMT
JMP

MOV

JSR
.WORD
MOV

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

RMDS (RO)

sWAIT FOR _THE DRIVE TO TIMEOUT

:BR WHEN TIMEOUT OCCURS

:BR IF NOT ZERO

WATCH

3s
TIME, TIMEA

R5,TOLER
TIMEA
(SP)+, TIMEAP

sCHECK WATCH

:BYPASS THE REST OF THE TEST
:SAVE THE ELAPSED TIME FOR PORT A

:CALCULATE THE TOLERANCE
;TIMEOUT VALUE FOR PORT A
:425% TOLERANCE

;VERIFY THAT THE TIMEOUT ONE~SHOT VALUE IS AT LEAST 500 Ms
006354

023727
103001
104007

001256

000764

CMp
BHIS
EMT

TIMEA,#500.
;S

;1S TIMEQUT VALUE AT LEAST 500 MS ?
:BR IF IT IS

—

CZRNIAO RM8O DUAL PORT PT2 MACRO V04.00 15-JAN-82 07 13:40 PAGE 9-12

SEQ 0038

A
MEASURE THE TIMEOUT ONE=-SHOT THROUGH PORT

;VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT
38:
VERIFY THAT THE DRIVE IS IN NEUTRAL

006356

006356 005037
006362 012737
006370

060037

006446
006456

013737
042737

006374
006402
006410
006416
006626
006632
006440

012737
113760
016037
013737
042737
113760
016037

001250
000012

001122

011700
001224
000012
001170
100100
001226
G00012

001124
000010
001170
001164
001164
000010
001172

001122

001172
100100

006470

006476
006500
006502

006506

001006

005737

001045
104034
000137

013737

001170

001126

001226
001164

000010

001224
001172

001234
001126

006514 013737 001226 001234

006522
006530
006534

006536
006546

113760
005737
001414

013737
013737

668:

005737
001012
012737

006610

104035

001166

001250

67$:

001126
001234

688:

006612
006620

013737
013737

001170
001224

006634
006642
006644

023737
001401
104037

001124

001170

001172
001226

001126
001234

006626 042737 100000 001170
013737
013737

69%:

275

001401
104037
000240
000004

BNE

66$

BR _IF NOT

BNE
EMT
JP

68$
34
708

‘BR IF NOT

MOV

PORTB.PTNBR

*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

MOV
MOV

PORTA,PTNBR
$TMPIISEODAT

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

TST
BNE
MOV

S$TMP1
68$
#-1,RELERR

SSEE P STATUS'EQ ZERO FROM PORT B.
*BR_IF NOT
*SET 'RELEASE ERROR' INDICATOR

MOV

MOV
MOV
EMT

MOV
MOV

708:
4s:

#MOL!PGM!DPR!DRYVV,$GDDAT ; COMPARISON CONSTANT
A
PORTA,RMCS2(R0) ;SELECT PORT
RMDS(RO) STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
3COPY IT INTO '$TMPO’
STMP2,STMPO
:CLEAR PORT DEPENDENT BITS FROM THE COPY
WATA!VV,$TMPO
PORTB,RMCS2(R0) :SELECT PORT B.
RMDS(RO) ,STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.
STMPO,STMP
$TMPO

STMP2,$BDDAT

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
REGISTERS ARE THE SAME: ARE THZY ZERO ?
;BYPASS THE REST OF THE CHECKS

:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

PORTB.RMCS2(R0) :SELECT PORT B,
*SEE IF STATUS EQ O FROM PORT A.
$TMPO
:BR IF ZERO
678

PORTA.RMCS2(R0O) :SELECT PORT
H11.RMCS1(RO)
#13.RMCS1(RO)
35

:CLEAR THE DRIVE
:RELEASE THE DRIVE

$TMP2,$BDDAT
PORTA.PTNBR

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

SGDDAT,STMP2
698
37

:ALL BITS OK
‘BR IF OK PRoM PORT A.

:DON'T CHECK THE ATTN BIT

BIC

#ATA, $TMP2

MOV
MOV

STMP3.$BDDAT
PORTB.PTNBR

;CHECK RMDS FOR BIT FAILURES - FROM PORT 8.
:CHANGE PORT NUMBER

708
37

:BR

CMP
BEQ
EMT

BIC
C(MP

006662 042737 100000 001172
006670 023737 001124 001172

006675
006700
006702
006704

1COPY IT INTO '$TMP1’
:CLEAR PORT DEPENDENT BITS FROM THE COPY

MOVB

177777

006574 012760 000011 000000
006602 012760 000013 000000

006646
006656

STMP3,STHPI
W#ATA'VV,$TMP1

MOVB
TST
BEQ

006552 113760 001224 000010
006560
006564
006566

MOV
BIC

TST

001164
006702

ADD THE 1/0 BASE ADDRESS

006462 023737 001164 001166

004672

RELERR
#RMDS,SBDADR
RO,$BDADR

MOV
MOVB
MOV
MOV
BIC
MOVB
MOV

001166
001166

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

CLR
MOV
ADD

BEQ
EMT
NOP
SCOPE

#ATA,$TMP3
SGDDAT,STMP3

*DON'T CHECK TIE ATTN BIT
:SEE IF READ OX FROM PORT B.
IF OK

;LOOP ?

tttttitt**t 1332332382228 2222223332223 3233333383232 3338332333333324;

-resr 5

MEASURE THE TIMEOUT ONE=-SHOT THROUGH PORT B

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07 13:40 PAGE 9-13
15

SEQ 0039

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT
B

s*MEASURE THE TIMEOUT ONE=-SHOT VALUE THROUGH PORT B
.t

i
:*

‘e B.
v
:t

i
it

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

WAIT FOR TIMEOUT TO OCCUR.

MEASURE THE DURATION OF THE TIMEOUT

ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

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

006706
006706
006712
006714
006716
006722

005737
001406
100002
000137
012737

001266
002610
177777

001266

:.X 2222322233333 223233383223322332232333 2332333483 2333233222323 22333233323343]
157s:
ST
KYBCTL
:PERFORMING ONLY SINGLE TESTS ?
BEQ
28
*BR IF NOT
8PL
1$
*BR IF JUST ENTERED TEST
JMP
EXEC
*RETURN © GET NEXT TEST NUMBER
1$:
MOV
#-1,KYBCTL
SSET SINGLE TEST INDICATOR

882;22

012737

006744

001110

006730 012737 006744 001106 2$:

006744

112737 000005 001102

006752
006756

012706
012737

001100
000001

006764
006770

005037
005037

001262
001264

ATESTS,SLPADR

:SETUP SCOPE LOUP ADDPRESS

MOVB

#5,STSTNM

:MOVE #5 TEST NUMBER

CLR
CLR

TIMEB
TIMEBP

MCV

001176

MOV

MOV
MOV

ATESTS.SLPERR

-SETUP ERROR LOOP ADDRESS

#STACK, SP
#,STIMES

*SETUP THE STACK POINTER
23D0 1 ITERATION

;CLEAR THE TIMEOUT VALUE STORAGE LOCATION
;CLEAR THE + 25% TOLERANCE LOCATION

;START THE TIMER

006774
007000

005037
012737

001252
003720

CLR
MOV

001254

TIME
#2000. ,WATCH

;CLEAR THE ELAPSED rxne COUNTER
-SET WATCH TO 2000.

;SEIZE THE DRIVE THROUGH PORT B

007006
007014

113760
013737

001226
001226

000010
001236

MOVB
MOV

PORTB,RMCS2(R0) ;SELECT PORT B
PORTB.SEIZPT sroas SEIZING PORT'S ADDRESS

007026

113760

001224

000010

MOVB

PORTA,RMCS2(RO)

013737

001224

001240

MOV

023737
001403
104030
000137

001124

001126

007022 005060 000012

CLR

007034 013737 001224 001234
007042

007050
007056
007062
007070

007074
007102
007104
83;}?3

016037
010037
062737
005037

000012 001126
001122
000012 001122
001124
007622

007112 113760 001226 000010
007120 013737 001226 001234

007126 016037 000012 001126
007134

007142
007150

007154

012737 011700 001124

013737
005137

001124
001166

001166

013737 001126 001164

MOV

PORTA.PTNBR

MOV
MOV
ADD
CLR

RMDS (R0) ,$BODAT
R0, $BDADR
#RMDS,$BDADR
$GDDAT

(MP
BEQ
EMT
JMP

RMD S (RO)

PORTA.OPFRT

$GDDAT,$BODAT
64$
30
is

WRITE RMDS

SELECT PORT
A

nové PORT ADDRESS TO LOCATION FOR TYPEOUT
; OPPOSITE® PORT ADDRESS

:SEE IF DRIVE ss.‘so 8Y PORT B
*RH/RM BASE ADDRESS
-GENERATE BAD REGISTER ADDRESS
*REGISTER SHOULD BE ZERO
;1S THE nscxsrsa ZERO
‘BR IF IT IS

:6YPASS REST OF THE SUBTEST

move
MOV

PORTB nncsz(ao> :SELECT PORT B
PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

MOV

#MOL ! PGMIDPR!DRY
!
VV,SGDDAT

MOV

MOV
oM

MOV

anos«éo» ssooAt sSEE IF SEIZING PORT SEES CORRECT STATUS
$GDDAT,STMP1
STMP1

$BDDAT,STMPO

E“°ECTED STATUS

;USE GOOD DATA
AS A MASK
> COMPLEMENT rue EXPECTED STATUS

:SAVE THE ACTUAL STATUS

CZRNIAO RHBO DUAL PORT PT2 MACRO V04.00 15~JAN-82 07:13:40 PAGE 9-14
15

SEQ 0040

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT 8

007162

043737

007176
007200

001401
104031

001166

8IC

001164

CMP

007170 023737 001124 001164
007202

65%:

000249

BEQ
EMT

NOP

$TMP1,$TMPO

sCLEAR UNWANTED BITS

658
3

;BR IF THEY ARE

$GDDAT,$TMPO

:ARE THE EXPECTED STATUS BITS SET ?

;WAIT FOR PORT B TO TIMEOUT

007204

113760

001224

007220
007224
007226
007232

005760
001006
005737
001372

000012

000010

007212 013737 001224 001234
007234

007236
007242

104006

000137
013737

1$:

001254

007274
001252

007250 004537 013522
007254 001262
007256 012637 001264

Mov8s

PORTA,RMCS2(RO)

;SELECT PORT A

TST
BNE
TST
BNE

RMDS (RO)
2$
WATCH
1%

;WAIT FOR _THE DRIVE TO TIMEOUT
:BR WHEN TIMEOUT OCCURS
sCHECK WATCH
:BR IF NOT ZERO

3s
TIME, TIMEB

sBYPASS THE REST OF THE TEST
sSAVE THE ELAPSED TIME FOR PORT B

MoV
EMT

001262

2S$:

JMP
MOV

JSR
.WORD
mMov

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
6

R5,TOLER
TIMEB
(SP)+,TIMEBP

;CALCULATE THE TOLERANCE
;TIMEOUT VALUE FOR PORT 8
:425% TOLERANCE

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

007262

007270
007272

023727

103001
104007

001262

CMP

000764

BHIS
EMT

TIMEB,#500.
3$
7

:1STIMEOUT VALUE AT LEAST 500 Ms ?

:BR I IT IS

;VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT
38:
sVERIFY THAT THE DRIVE IS IN NEUTRAL

007274

007274
007300
007306

005037
012737
060037

007414
007416

001045
104034

007312
007320
007326
7334
007342
007350
007356
007
007372
0074
07406
007410

012737
113760
016037
013737
042737
113760
016037
013737
042737
023737
001006
005737

001250
000012
001122

011700
001224
000012
001170
100100
001226
000012
001172
100100
001164
001164

007420
007424

000137
013737

007620
001170

007446

005737

001164

007454
007462

013737
013737

001224
001172

001122

007432 013737 001226 001234
007440 113760 001226 000010
007452

001414

001234
001126-

RELERR
#RMDS, SBDADR
RO, $8DA

sCLEAR THE °'RELEASE ERROR °* INDICATOR
;FORM THE ADDRESS OF RMDS FOR TYPEOUT
ADD THE 1/0 BASE ADDRESS
1

BNE
EMT

68%
34

:BR IF NOT

MOV
Movs
MoV
MOV
8IC
Mov8
MoV
MoV
8IC
CMP
BNE
1ST

001124
000010
001170
001164
001164
000010
001172
001166
001166
001166

001126

CLR
MOV
ADD

66S:

JMP
MOV

#HOL'PGH‘DPR'DRY VV,SGDDAT ;COMPARISON CONSTANT
PORTA ,RMCS2(R0) :SELECT PORT A.
RMDS(R0),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
$TMP2, $TMPO
sCOPY IT INTC °‘STMPO'
NATA'VV,STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2 (RO) :SELECT PORT B.
RMDS(R0) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.
:COPY IT INTO 'STMPT®
STMP3,$TAP1
MATATVV,STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
$TMPO, $TMP1
:BR_IF NOT
663
REGISTERS ARE THE SAME: ARE THEY ZERO ?
$TMPO
70$
$TMP2 ,$BDDAT

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

$TMPO

sSEE IF STATUS EQ O FROM PORT A.

PORTA,PTNBR
$TMP3,$BDDAT

sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
:"BAD DATA® FOR ERROR TYPE OUT

MoV
Movs

PORTB,PTNBR
SEIZING PORT IF TEST S.I0WS DRIVE NOT IN NEUTRAL
PORTB,RMCS2(R0) :SELECT PORT B.

BEQ

678

TST

MoV
MoV

:BR _IF ZERO

RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 B07 13:40 PAGE 9-12
CZRNIAO
MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT
15
007470
007476
007502

113760
005737
001012

007526
007530

104035
013737

007552
007560
007562

023737
001401
104037

001224
001166

MOVB
18T
BNE

000010

Mov
MoV
MoV

007504 012737 177777 01250 67%:
007512 012760 000011 0000v0
007520 012760 000013 000000
001179

001126

001170

001172

001126

007536 013737 001224 001234
007544 042737 100000 001170

007564

013737

007572 013737 001226 001234
007600 042737 1000vy 01172
007606 023737 001124 001172
007614

007616
007620

276 007622

EMTY
MoV

68S:

69$:

104037
000240

S$TMP3, SBDDAT

EMT
NOP

$GDDAT,$TMP2
69$
37

PORTB,PTNBR
#ATA, $TMP3
$GDDAT,$TMP3
708

:SET 'RELEASE ERROR' INDICATOR
;CLEAR THE DRIVE
:RELEASE THE DRIVE

;LOOK FOR BIT FAILURES WHEN RMDS READ

CHANGE PORT NUMBER
:DON'T CHECK THE ATTIN BIT
?
ALL BITS OK
:BR IF OK FROM PORT A.

sCHECK RMDS FOR BIT FAILURES - FROM PORT 8.

CHANGE PORT NUMBER
:DON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.
:BR IF 0K

;LOOP ?

SCOPE

48:

000004

35
$TMP2,$BDDAT

MOV

BEQ

708:

#-1,RELERR
"1 RHCS1(R0)
#13.RMCS1(RO)
PORTA PTNBR
#ATA, $THP2

MOV
8IC
CMP

001401

PORTA ,RMCS2(RO) ;SELECT PORT A,
;SEE IF STATUS EQ ZERO FROM PORT B.
$TMP1
NOT
:BR_IF
68$

MOV
BIC

CMP
BEQ
EMTY

SEQ 0041

tttitttttttfilttttfifiltttt'tttttt.ttititt'tttttttttttttttttttfiit'

295

TEST 'PORT SELECT® SWITCH, DRIVE CYCLED UP

*TEST 6

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

E' A.
o

‘=
i

007624

007630

007632
007634

'J05737

001406

002610

012737

007662

RETURN THE °PORT SELECT' SWITCH TO THE °'A/B' POSITION.
THE DRIVE STATE.

TST

KYBCTL

;PERFORMING ONL SINGLE TESTS ?

BPL
JMP

1$
EXEC

:BR_IF JUST ENTERED TEST
;RETURN & GET NEXT TEST NUMBER

BEQ

MoV
MoV

007640 012737 177777 001266 1$:
007646 012737 007662 001106 28:

88;223

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

001110

007662 112737 000006 001102
007670 012706 001100
206 007674 012737 000001 001176

TEST6

#-1,KYBCTL
#TEST6,SLPADR

Mov

NTEST6,SLPERR

MOVB
MoV
Mov

#6,STSTNM
#STACK, SP
M, STIMES

:BR IF NOT

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

:MOVE #6 TEST NUMBER
sSETUP THE STACK POINTER
::00 1 ITERATION

sCLEAR ATTENTION BITS FOR BOTH PORTS

297
007702

113760

001224

VERIFY

:. AAARARAAANENNARNANAANERRARRARAARARARNARAARARICARARAAARAARAARAERANEY
TST6:

001266

100002
070137

NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH

PORTS, ARE CORRECT.

007624

VERIFY THAT THE DRIVE IS IN

PORTS, ARE CORRECT.

SWITCH TO PORT ‘A’ POSITION.

000010

MOVB

PORTA,RMCS2(R0) ;SELECT PORT #A

CZRNIAO RMB0 DUAL PORT PT2 MACRO V04.00 15-JAN=82 07:13:40 PAGE 9-16
TEST 'PORT SELECT' SWITCH, DRIVE CYCLED UP

007710

005060

000012

007750

000000

CLR

000000
000000
000010

MoV
MOV
Move

000000
000000

MOV
MOV

RMDS (RO)

:SEL ECT PORT #8

;SEI ZE THE DRIVE THROUGH PORT '8’

CLR

TYPE
TYPE
HALT

020246

:SE! lE THE DRIVE

;1SS UE DRIVE CLEAR
sREL EASE THE DRIVE

,SWTCHA

.CONTUE

;ISSUE DRIVE CLEAR
;RELEASE THE DRIVE
;SWITCH TO 'A°
:PRESS *CONTINUE®

sVERIFY THAT THE DRIVE IS IN NEUTRAL
005037
012737

001250

001122

RELERR
#RMDS ,SBDADR
RO, $SBDADR

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

RMDS (R0) , $TMP2
$TMP2,$THPO

:GET THE DRIVE STATUS REGISTER FROM PORT A.
:COPY IT INTO *STMPO’

$TMP0, $TMP1
64$
$TMPO

.IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?

COHPARISON CONSTANT
A
PORTA ,RMCS2(R0) ;SELECT PORT

:CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2 (RO) :SELECT PORT B.
RMDS (R0) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.
$TMP3, $THP1
sCOPY IT INTO 'STMP1®
FATAIVV, STHP
:CLEAR PORT DEPENDENT BITS FROM THE COPY

SATA!VV,STMPO

001166

[T Py
W
N
]
~

C=200

N—l—b—l—a-‘d:-n—l—n—h—l_.
NN
= b b
SNNOMWAWNES

0206

Qo Qe Gouur-Ghuur
Yuur P Puerd

b cd

b ad

b o

OOO0O0OO0O00O0O0000 (=

elelalolelelelelelele) elelelelelelelalelelelalelelw (=lole)
b wmd b

010104

001126
001234
000010

001166

64$:

:BR _IF_NOT

REG{?TES? ARE THE SAME: ARE THEY ZERO ?
:BYPASS THE REST OF THE CHECKS
sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,RMCS2(R0) ;SELECT PORT
PORTB,PTNBR

SEE IF STGTUS EQ O FROM PORT A.

F ZER
SE1
1 NG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTA,PTNBR
DATA' FOR ERROR TYPE OUV
,SBDDAT
$TMP3
cT1 PORT A.
PORTA,RHCSZ(RO)
IF S}ATUS EQ ZERO FROM PORT 8.
$TMP1

001234
001126
000010

127777
000011
000013

001250
000000
000000

001170

001126

66$:

663

67%:

F NO

#-1,RELERR

SET *RELEASE ERROR® INDICATOR

$TMP2,$BDDAT

#ATA, $THP2

;LOOK FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER
:DON'T CHECK THE ATTN BIT

678

:BR IF 0K FROH PORT A.

#11.RMCS1(RO)
#;3RMCS1(RO)
PORTA .PTNBR

$GDDAT, $TMP2

001124

66%
34
68$
$TMP2,$BDDAT
$THPO
65$

65%:

001172

1ADD THE 1/0 BASE ADDRESS

#MOL ! PGM! DPR ! DRY! VV,SGDDAT

001124

SEQ 0042

37
$TMP3,$BDDAT
PORTB.PTNBR

#ATA, $TMP3

$GDDAT,STMP3
688

:CLEAR THE DRIVE
;RELEASE THE DRIVE

;ALL BITS 0K

sCHECK RMDS FOR BIT FAILURES - FROM PORT B.

CHANGE PORT NUMBER

;DON'T_CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.
:BR IF OK

DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-15
CgRNlAO RMB0
TEST 'PORT StiLECT® SWITCH, DRIVE CYCLED UP
010314

000240

382 010326

000000

303 010316
304 010322

104401
104401

68$:

020211
020246

NOP

TYPE
TYPE

HALT

-SWTCHB
.CONTUE

SEQ 0043

sSWITCH T0 'B'
:PRESS 'CONTINUE'

sVERIFY THAT THE DRIVE IS IN NEUTRAL

307

010330
0103
010342

005037
012737
060037

001250
000012
001122

001122

010376

042737

100100

001164

113760

001226

010412 016037 000012
010420
010626

013737
042737

001172
100100

010454

010460

001045
104034

000137

013737

010654

001170

000010

010466 013737 001226 001234
010474 113760 001226 000010
005737

010510

013737 001224

0105

010516

001414

013737

001172

69S:

005737
001012
012737

001166

177777

001250

70S$:

010562

104020

71$:

010564
010572

013737
013737

001170
001224

001126
001234

010606
010614
010616
010620

023737
001401
104037
013737

001124

001170

001172

001126

010642

023737

001124

001172

010652

104037

010600 042737 100000 001170

010626 013737 001226 001234
010634 042737 100000 001172
010650

010654

308 010656
309 010662

001401

000240

005737
001402

001266

310 010664 104401 020106
%}5 010670

000004

72%:

PORTB,RMCS2 (RO) :SELECT PORT B.

RMDS(RO) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.

$TMP3, $THP1
NATATUV,$TMP1

BNE

698

BNE
EMT

718
34

MoV

MoV
Move

$TMPO, STMP
$TMPO
738

$TMP2,$BODAT

;COPY IT INTO 'STMP1®
:CLEAR PORT DEPENDENT BITS FROM THE COPY

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR IF
REG]STERS ARE THE SAME: ARE THEY ZERO ?
:BR IF NOT

;BYPASS THE REST OF THE CHECKS

:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,PTNBR
PORTB,RMCS2(R0) :SELECT PORT B.
$TMPO

:SEE_IF STATUS EQ O FROM PORT A.

MoV

PORTA ,PTNBR

sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

Mova

A
PORTA.RMCS2(R0) :SELECT PORT

708

:BR IF ZERO

$TMP3,$BDDAT

s 'BAD DATA® FOR ERROR TYPE OUT

Mov

$TMP1
718
#-1,RELERR

:SEE IF STATUS EQ ZERO FROM PORT B.
:BR_IF NOT

EMT

MoV

001126

#HOL'PGH'DPR'DRY'VV.SGDDAT s COMPARISON CONSTANT
PORTA,RMCS2(R0) :SELECT PORT A,
RMDS(RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
;COPY IT INTO *$TMPO'
$TMP2, STHPO

MoV
8IC

BEQ

001234

010546 012760 000011 000000
010554 012760 000013 000000

:CLEAR PORT DEPENDENT BITS FROM THE COPY

TST

010524 113760 001224 000010

010532
010536
010540

NATA!VV,STMPO

CMP
TST

001164

010502

8IC

MOV

001172

001166
001166

001126

sCLEAR THE °‘RELEASE ERROR ' INDICATOR
:FORM THE ADDKESS OF RMDS FOR TYPEOUT
:ADD THE 1/0 BASE ADDRESS

Movse

010434 023737 001164 001166
010442 001006
010444 005737 001164

010450
010452

RELERR
#RMDS, SBDADR
RO, $BOAD

MoV
MovBe
MOV
MoV

010346 012737 011700 001126
010354 113760 001224 000010
010362 016037 000012 001170
010370 013737 001170 001164
010404

CLR
MoV
ADD

TST
BNE

Mov
MoV
Mov
MOV

#11.RMCS1(RO)
#13.RMCS1(RO)
$TMP2, SBDDAT
PORTA ,PTNBR

sSET °‘RELEASE ERROR' INDICATOR

:CLEAR THE DRIVE
RELEASE THE DRIVE

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

8IC

#ATA, $TMP2

:DON'T CHECK THE ATTN BIT

MOV
BIC

PORT8,PTNBR
#ATA,$THP3

CHANGE PORT NUMBER
:DON'T CHECK THE ATIN BIT

8eQ

738

:BR IF OK

CMP
BEQ
EMT
MoV

CMP

EMT

738:

NOP

1$:

SCOPE

TST
BEQ

TYPE

$GDDAT, $TMP2
728
37
$TMP3, SBDDAT

$GDDAT,$TMP3

KY8BCTL
18

-SWTCHN

:ALL BITS 0K
:BR IF 0K FROH PORT A.

sCHECK RMDS FOR BIT FAILURES - FROM PORT B.
:SEE_IF READ OK FROM PORT B.

;SINGLE TEST MODE ?
B IF NOT

RETURN SWITCH TO °*A/8B'
LOOP ?

]

SEQ 0044

CZRNIAO RMB0 DUAL PORT PT2 MACRO V04.00 15-JAN=82 07:13:40 PAGE 9-18
TEST 'PORT SELECT® SWITCH, DRIVE CYCLED UP

438

439

tttittttttt.tttttttt'tttit'.t.ttttttttltttittt'tttttt'ttttttttt

TEST 'PORT SELECT' SWITCH ON PORT A

tTEST 7

CYCLE THE DRIVE DOWN.

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.

TR
PR A
PR PR T
R

SWITCH THE °'PORT SELECT' SWITCH TO A; CYCLE THE URIVE UP.

WHEN THE DRIVE CYCLES UP, VERIFY THAT °Vv=-A IS RESET, AND

133¥EAA DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH

THAT °‘ATA-A IS SET.

T E

THE OPERATION OF THE 'PORT SELECT' SWITCH (DRIVE CYCLED DOWN).

PR XA T

AR X

3 % % 2 % % % 220820082 ..l‘.."

*TEST

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

YRR

INTO RMDS THROUGH PORT 8.

2222222222222

p— IR

737

—maaO-=

737

OO0

JuerQouur-Quner
Puur S

OO0

Guur Pourd

OO0~

000

001266

002610
177777
010730
010730
000007
001100
000001

001266
001106
001110
001102

ISSUE A RELEASE COMMAND THROUGH PORT A.

DRIVE REMAINS LOCKED ON PORT A.

T?:

18:
2$:

TEST7:

001176
000010
001234

TST

3222223222228 8338222 22332ttt iiiitisdtildd)

BPL

KYBCTL
28
18

:BR_IF JUST ENTERED TEST

MOvV8
MoV
Mov

#7,$TSTNA
#STACK,SP
#1,STIRES

sMOVE #7 TEST NUMBER
sSETUP THE STACK POINTER
::D0 1 ITERATION

MOVB

PORTA, RHCS?.(RO)

A
:SELECT PORT

TYPE
TYPE
TYPE

.CYCLED
.SWTCHA
.CYCLEU

; *CYCLE DOWN THE DRIVE'
SSWITCH TO ‘A°
SYCYCLE UP THE DRIVE'

JMP
MoV
MOV
MoV

MOV

020337

VERIFY THAT THE

:RETURN © GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

EXEC
#-1,KYBCTL
NTEST?7,SLPADR
NTEST7.SLPERR

PORTA . PTNBR

010000

000012

1$:

8IT

#MOL ,RMDS(RO)

010000

000012

2s:

BIT
8EQ

#MOL ,RMDS(RO)
23

BNE

sPERFORMING ONLY SINGLE TESTS ?
:BR IF NOT

é PORT ADDRESS TO LOCATION FOR TYPEOUT
IS 'MOL' RESET ?

:BR IF NO (DRIVE NOT CYCLED DOWN)
?
;IS °'MOL' SET
:BR IF NO (DRIVE NOT CYCLED UP)

sDRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT A
005037

001244

CLR

CKERR

sCLEAR THE °CHECK ERROR' INDICATOR

15;JAN-82 07:13:40 PAGE 9-13
v04.00
MACRO
PT2
PORT
DUAL
%;RNIAO RM80
PORT
ON
SWITCH
SELECT'
TEST 'PORT
011024

016037

000012

001126

Mov

011066
011074
011076

023737
001414
013737

001124

001164

CMP
BEQ

011032
011040
011046
011052
011060

012737
060037
012737
013737
042737

000012
00112
110600
001126
066077

MOV
ADD
MOV
MOV
8IC

001122
001124
001164
001164

001126

001174
001124

MOV

011106 042737 111700 001174
011112

053737

001174

011122

005137

001244

011120
011126

104021

000240

648:

RMDS (RO) ,$BDDAT

;GET CONTENTS OF RMDS

SGDDAT ,$TMPO
648
$BDDAT , $TMP4

;COMPARE THE BITS
s8R IF 0K
;COPY °'BAD DATA®

$TMP4, SGDDAT

:'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
:ADD RH/RM BASE ADDRESS
RO, SBDADR
#ATATMOL 'DPR!DRY,$GDDAT :WHAT REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO ‘STMPO'
$BDDAT $TMPO
#-C111700,$TMPO *;SAVE SPECIFIED BITS

8IC

#111700,8TMP4

EMT

BIS

CoM

NOP

SEQ 0045

:CLEAR THE MASKED BITS

sSET VOLUME VALID FOR PORT A

011130
011°36
011144

012760
012760
012760

000011
000021
010000

MOV
MoV
MoV

000000
000000
000032

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

;CHECK THE DRIVE STATUS THROUGH PORT B; VERIFY THAT °NED’
;SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT B.

011152

113760

001226

011166
011172
011200
011206
011212
011216

005037
016037
012737
060037
005037
013737

001244
000012
000012
001122
001124
001126

011232
011240
011242

023737
001414
013737

011256

Mov8

000010

011160 013737 001226 001234

MOV
ADD

#RMDS ,$BDADR
RO, $BDADR

;FORM REGISTER ADDRESS OF ERROR MESSAGE
sADD RH/RM BASE ADDRESS

SBDDAT $TMPO

sMOVE REGISTER CONTENTS TO °'STMPO’

$GDDAT,$TMPO
663

SBDDAT , $TMP4

;COMPARE THE BITS
:BR IF OK
;COPY °'BAD DATA'

$TMP4L , SGDDAT

;'OR* WITH GOOD DATA FOR TYPEQOUT

CLR
MoV

001164

MoV

001124

001164

001126

001174

CMP
BEQ
MOV

053737

001174

001124

8IS

011266

005137

001244

011274
011300
011306
011314

005037
016037
012737
060037

001244
000010
010
001122

001128
001122

011326

013737

001126

001164

011352
011360

013737
042737

001126
010000

001174
001174

CLR

011224 042737 000077 001164

011250 042737 177700 001174
011264

011272

104022

000240

66%:

011320 012737 010000 001124
011334
011342
011350

042737
023737
001414

167777
001124

011374

104023

011376

005137

001244

011404

005060

000012

011402

000240

sWHAT REGISTER SHOULD BE

BIC

#177700,8TMP4

EMT

CoM

NOP

CKERR

:CLEAR THE MASKED BITS

sSET THE REGISTER COMPARE ERROR INDICATOR

CLR
Mov
MoV
ADD

sCLEAR THE °‘CHECK ERROR' INDICATOR
CKERR
RMCS2(R0) ,$BDDAT ;GET CONTENTS OF RM(S2
#RMCS2,8BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS
RO, SB8DADR

MoV

$8DDAT,$TMPO

ANED,SGDDAT ;WHAT REGISTER SHOULD BE

8IC
CMP
BEQ

#~CNED,$TMPO
$GDDAT,$TMPO
68$

8IS

$TMP4, SGDDAT

EMT

68$:

$GDDAT

#~C177700,$TMPO " ;SAVE SPECIFIED BITS

MOV
8IC

011366 053737 001174 001124

:CLEAR THE °'CHECK ERROR® INDICATOR
CKERR
RMDS (RO) ,$BDDAT ;GET CONTENTS OF RMDS

8IC

MoV

091164
001164

;SELECT PORT 8

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

001126

001122

PORTB,RMCS2(R0)

MoV

CoM

NOP

CLR

$BDDAT,$TMP4
#NED , STMP4
23

;MOVE REGISTER CONTENTS TO ‘STMPO’

;SAVE SPECIFIED BITS
;COMPARE THE BITS
sBR IF OK

:COPY °BAD DATA'
sCLEAR THE MASKED BITS

¢*OR' WITH GOOD DATA FOR TYPEOUT

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

RMDS (RO)

sTRY TO SET REQUEST BY WRITING THROUGH

—

SEQ 0046

CZRNIAQ RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-20
TEST *PORT SELECT' SWITCH ON PORT A

sTHE LOCKED OUT PORT (PORT 'B*)

sVERIFY THAT DRIVE STAYS LOCKED ON PORT A
113760
013737
012760
013737
113760
013737
005037
016037
012737
060037
005037
013737
042737
023737

001224
001224
000013
001224
001226
V01226
001244
000012
000012
001122
001124
001126
000077
001124

011530
011536
011544
011552
011554

013737
042737
053737
104024
005137

001126
177700
001174

001174
001174
001124

011526

011560

001414

000240

MOovBs

MOV

Mov
MOV

Move

0116410
011416
011424
011432
011440
011446
011454
011460
011466
011474
011500
011504
011512
011520

(=4
o
o
(=]
NN ==

001244

PORTB,RMCS2(RO)

MoV

ADD
CLR

RO, $BDADR
$GDDAT

CMP

MOV

BIC

BIS

EMT

COM

NOP

CKERR

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

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

(RO) ,$BODAT
RMDS

8IC

708:

#13 ,RMDS (RO)
PORTA,SEIZPT

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

PORTB.PTNBR

MOV
001164

PORTA.PTNBR

MoV

MOV

:SELECT PORT A

PORTA ,RMCS2(RO)

sCLEAR THE °‘CHECK ERROR' INDICATOR
:GET CONTENTS OF RMDS

#RMDS ,$BDADR

;FORM REGISTER ADDRESS OF ERROR MESSAGE

SBDDAT,$TMPO

sMOVE REGISTER CONTENTS TO 'STMPO’

sADD RH/RM BASE ADDRESS
sWHAT REGISTER SHOULD BE

#~C177700,$TMPO
;ggDAT.STHPO

*;SAVE SPECIFIED BITS

:COHP?RE THE BITS
0K
IFR
:B

-COPY °*BAD DATA®

SBDDAT,STMP4

:CLEAR THE MASKED BITS

#177700.8TMP4

LOR* WITH GOOD DATA FOR TYPEOUT

gznpa.scooAr

:SET THE REGISTER COMPARE ERROR INDICATOR

CKERR

:1F ERROR OCCURRED, CHECK FOR LOOP ON TEST
011562
011566
011570
011576
011600
011604
011610
011614
011620
011622
011630
011632
011636
011642
011646
011654
011662
011670
011672
011700

105737
001412
032777
001406
105037
005037
000177
005737
001460
032777
001054
104401
104401

104401
113760
013737
032760
001374
032760
001774

001103

001000

167342

001103
001176
167274
001266
040000

TST18

$ERFLG

B8IT

#SW09,3SWR

CLR

$TIMES

:BR IF NOT

33
$SERFLG

:BR IF NOT
:CLEAR THE ERROR FLAG

JMP
TST
BEQ
8IT
BNE
TYPE
TYPE

@SLPERR
KYBCTL
6$
#SW14,3SWR
63
.CYCLED
+SWICHN

:GO TO THE LOOP ADDRESS
JIN SINGLE TEST MODE ?
:BR IF NOT
:LOOP ON TEST ?
:BR IF LOOPING
:TYPE 'CYCLE DOWN'’
:'SWITCH TO A/B’

MOvVB

PORTA,RMCS2(R0)

8IT
BNE
BIT
8EQ

#MOL ,RMDS(RO)
43
#MOL ,RK::SC(RO)
5%

BEQ
CLRB

3s:
167310

020317
020106
020337
001224
001224
010000

000010
001234
000012

4$:

010000

000012

58:

:DID AN ERROR OCCUR

BEQ

MOV

,CYCLEU

PORTA,PTNBR

:SEE IF LOOP ON ERROR (SWR9 = 1)

:CLEAR THE MAX ITERATION COUNT

s"CYCLE THE DRIVE UP®
:SELECT PORT A

;MOVE PORT ADDRESS IO LOCATION FOR TYPEO:Y
;IS
:BR
;IS
:BR

'MOL' RESET ?
IF NO (DRIVE NOT CYCLED DOWN)
'MOL' SET ?
IF NO (DRIVE NOT CYCLED UP)

;SET VOLUME VALID FOR BOTH PORTS
011702
011710
011716
011724
011732
011740

012760
012760
012760
113760
013737
012760

000011
000021
000013
001226
001226
000021

000000

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

MovB

PORTB,RMCS2(RO)

MOV

#21.RMCST(RO)"

MOV

000000

;ISSUE A DRIVE CLEAR THROUGH PORT A
:ISSUE A READIN PRESET THROUGH PORT A

MOV
MOV

MOV

#13°RMCS1(RO)

PORTB.PTNBR

RELEASE PORT A

“:SELECT PORT B

:MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
;ISSUE A READIN PRESET THROUGH PORT B

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-21
17

SEQ 0047

TEST °*PORT SELECT® SWITCH ON PORT A

011746

012760

011776

000004

011754
011762
011770
011776

440 012

010000

MOV

000032

MOV
MOV
1ST
BNE

012760 000013 000000
012737 072460 001254 68:
7$:
005737 001254
001375

SCOPE

000400

#FMT16,RMOF (RO) ;SET FMT16

#13 RMCST1(RO)
lBObOO..UATCH
WATCH
7%

:RELEASE PORT 8
SPINDLE HOTOR *COOL DOWN' DELAY
SFINSIHED ?
:BR IF NOT'

TST10

::GO TO NEXT TEST

;LOOP ?

ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

tTEST 10

TEST 'PORT SELECT® SWITCH ON PORT B

trFST THE OPERATION OF THE °'PORT SELECT® SWITCH (DRIVE CYCLED DOWN).
.t

:*
13

3* B.
Hd

SWITCH THE °*PORT SELECT® SWITCH TO B; CYCLE THE DRIVE ur.

WHEN THE DRIVE CYCLES UP, VERIFY THAT °'Vv-B IS RESET, AND

IgSgEBA DRIVE 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

:*
M
]

3* H.
::

012010

100002

012006

001406

THAT °'ATA-B IS SET.

INTO RMDS THROUGH PORT A.

o¥

005737

ISSUE A RELEASE COMMAND THROUGH PORT B.

DRIVE REMAINS LOCKED ON PORT B.

CYCLE THE DRIVE DOWN.

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION

:M 1222333233222 33222222223223 3823328333823 3321333223322332342323223424%3)]
1s110:

0012.)5

TST

KYBCTL

PERFORHING ONLY SINGLE TESTS ?

8PL

BR IF JUST ENTERED TEST

#1,8TIMES

::D0 1 ITERATION

BEQ

002610
177777
012040
012040
000010
001100

JMP
MOV
001266 1$:
MOV
001106 28:
001110 TEST10 MOV
" movB
001102
MOV
001176

MOV

EXEC
#-1,KYBCTL
#TEST10,SLPADR
#TEST10,$LPERR
#10,STSTNM
#STACK,SP

012060

113760

001226

000010

MOVB

PORTB,RMCS2(RO)

000001

CHANGE THE ‘'PORT SELECT' SWITCH TO

BITS ARE SET, AND THAT BOTH °'VV' BITS ARE RESET.

000137
012737
012737
012737
112737
012706

012737

VERIFY THAT THE

A/8; CYCLE THE DRIVE UP.

012012
012016
012024
8}5825
012040
012046

012052

VERIFY THAT THE DRIVE IS IN

f4]

012002

SWITCH TO PORT B POSITION.

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

012002

CYCLE THE DRIVE DOWN.

012066 013737 001226 001234

MOV

NOT

SRETURN § GET NEXT TEST NUMBER
SSET SINGL). TEST INDICATOR
:SETUP SCOE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
sMOVE #10 TEST NUMBER
*SETUP THE STACK POINTER
:SELECT PORT 8

PORTB,PTNBR :HOVfi PORT ADDRESS TO LOCATION FOR TYPEOUT

DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-25
CZRNIAO RM80
110
TEST *PORT SELECT® SWITCH ON PORT B
NIN)
= = gO
oo
o

Guur

TYPE
TYPE
TYPE

104401
106401

020317
020211
020337

032760

010000

000012

18:

#MOL ,RMDS(RO)

010000

000012

2$:

#MOL ,RMDS(RO)

001774

SEQ 0048

:'CYCLE DOWN THE DRIVE'
sSWITCH TO 'B'
s"CYCLE UP THE DRIVE'

.CYCLED
.SWICHB
.CYCLEV

104401

d
b

prur Qo

Quuur G

O0O000

012074

;IS °'MOL‘ RESET ?

;B8R IF NO (DRIVE NOT CYCLED DOWN)

:BR IF NO (DRIVE NOT CYCLED UP)

;IS 'MOL' SET ?

pard

CLR

001244

MoV
MOV
ADD

W
~
W
~

005037

POPOAIN)
b b e b b b b b
W
Nb
NNOoOAWnn
S
o

SIASIASHAS
LSO TN 1,8 1N 1,8 1,8 1N ]

b wd

d =D

(elelelelelelolelelalele]

d =

;DRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT 8

SBDDAT,$TMPO

:MOVE REGISTER CONTENTS TO 'STMPO'

$GDDAT,.STMPO
648

;COMPARE THE BITS
*BR IF OK

#111700,8TMP4

:CLEAR THE MASKED BITS

:COPY °*BAD DATA'

$SBDDAT,$TMP4

001126
001174

;CLEAR THE °'CHECK ERROR' INDICATOR

RMDS (RO) ,$BDDAT " :GET CONTENTS OF RMDS
#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
sADD RH/RM BASE ADDRESS
RO, $8DADR
#ATATMOL 'DPR!DRY.SGDDAT ;WHAT REGISTER SHOULD BE

#4C111700,$TMPO " ;SAVE SPECIFIED BITS

001124
111700

CKERR

001124

001244

SOR* WITH GOOD DATA FOR TYPEOUT

S;HPk.SGDDAT
2

sSET THE REGISTER COMPARE ERROR INDICATOR

CKERR

64$:

.SET VOLUME VALID FOR PORT B8
000011
000021
010000

000000
000000
000032

MOV
MoV
MOV

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

;CHECK THE DRIVE STATUS THROUGH PORT A; VERIFY THAT °NED'
001224

—t e

PORTA,RMCS2(R0)

:SELECT PORT A

000010
001234

PORTAPTNBR

001126
001122

RMDS (RO) ,$8DDAT " :GET CONTENTS OF RMDS
#RMDS ,$8DADR :FORM REGISTER ADDRESS OF ERROR MESSAGE
sADD RH/RM BASE ADDRESS
RO, $8DADR

CKERR

$SGDODAT

SBDDAT,STMPO

:;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
:CLEAR THE °'CHECK ERROR' INDICATOR

‘WHAT REGISTER SHOULD BE

:MOVE REGISTER CONTENTS TO °*$TMPO*

001124

001164
001164
001164

#2C177700,$TMPO " :SAVE SPECIFIED BITS

001126
177700
001174

001174
001174
001124

#177700.$TMP4

001244
001244

b e

b d md ad

D e

d b

b b D d

h b

b b

(elalalelelalelelelelelelelolelelelele
e le]

sSETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A.

001122

66$:

ssgoAr.srnPo
66
$BDDAT,$TMP4

:COMPARE THE BITS
‘BR IF OK
-COPY °*BAD DATA'

35HP4.SGDDAT

STOR' WITH GOOD DATA FOR TYPEOUT

CKERR

:CLEAR THE MASKED BITS

sSET THE REGISTER COMPARE ERROR INDICATOR

sCLEAR THE °'CHECK ERROR' INDICATOR
CKERR
RMCS2(RO) ,$BDDAT :GET CONTENTS OF RM(S?
#RMCS2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO,$8DADR
:ADD RH/RM BASE ADDRESS

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-23
TEST *PORT SELECT'® SJITCH ON PORT B

#NED ,$GDDAT

;WHAT REGISTER SHOULD BE

001124

MOV

012446 062737 167777 001164
012452 023737 001126 001164

BIC
CMP

N~CNED,STMP) ;SAVE SPECIFIED BITS
;COMPARE THE BITS
$GDDAT,$TMPO

001174

MoV

SBDDAT,$TMP4

012630

012737

010000

MoV

012636 013737 001126 001164
012460

012462

001414

013737

001126

012504

104023

012506

005137

001244

012514

005060

000012

012512

000240

;MOVE REGISTER CONTENTS TO °'STMPO'
:BR IF 0K

BIC
8IS

#NED , $ TMP4
$TMPL,SGDDAT

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

CoM

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

RMDS (RO)

sTRY TO SET REQUEST BY URITING THROUGH
:THE LOCKED OUT PORT (PORT ‘A‘)

EMT

68$:

$8DDAT,$TMPQ
68$

BEQ

0126470 042737 010000 001174
012476 053737 001i74 001124

NOP

CLR

:COPY 'BAD DATA'

sVERIFY THAT DRIVE STAYS LOCKED ON PORT 8
000010

MOVB

PORTB,RMCS2(R0O)

012534 012760 000013 000012
012542 013737 001226 001236
012550 113760 001224 000010

Mov

MoV
Movs

PORTB, SE1ZPT

MOV
CLR
Mov
MoV

ADD

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
sCLEAR THE °‘CHECK ERROR' INDICATOR
CKERR
RMDS(RQ) ,8BDDAT ;GET CONTENTS OF RMDS
NRMDS,SBDADR FORH REGISTER ADDRESS OF ERRCR MESSAGE

RO, $BDADR

012520
NN

110

SEQ 0049

012526

113 760

013737

001226

012556
012564
012570
012576

013737
005037
016037
012737

001224
001244
000012
000012

012610

005037

001124

012604 060037 001122

001234

001126

001122

001126

001164

023737

001124

001164

012640

013737

001126

001174

012654

053737

001174

001124

012664

005137

001244

012614

013737

012630

MoV

001234

CLR

MoV

012622 0642737 000077 001164
012636

001414

012662
012670

104024

000240

sISSUE A RELEASE THROUGH PORT 8
#13_RMDS (RO)
;ADDRESS OF ‘LOCKED ON' PORT
PORTA,RMCS2(R0) ' ;SELECT PORT A

$GDDAT

$BDDAT $TMPO

;ADD RH/RM BASE ADDRESS

;WHAT REGISTER SHOULD BE

:MOVE REGISTER CONTENTS TO "STMPO°

#~C177700,$TMPO ~;SAVE SPECIFIED BITS

BEQ

708

MOV

SGDDAT,STMPO

:COMPARE THE BITS

$SBDDAT , $TMP4

:COPY °"BAD DATA®

BIC

#177700,$TMP4

EMT

BIS
708:

SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

BIC

CMP

012646 042737 177700 001174

PORTB.PTNBR

COM

NOP

:BR IF 0K

:CLEAR THE MASKED BITS

$TMP4,SGDDAT

:'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

sSET THE REGISTER COMPARE ERROR INDICATOR

;IF ERROR OCCURRED, CHECK FOR LOOP ON TEST

012672
012676

105737
001412

012700

032777

012714
012720
012724
012732
012734

005037
000177
032777
001054
104401

012706
012710

012740
012744
012750
012756
012764
012772
012774

001406
105037

104401
104401
113760
013737
032760

001374
032760

1S18
BEQ

001103

001000
001103
001176
166164
040000

:DID AN ERROR OCCUR
:BR_IF NOT

3$
SERFLG

:BR_IF NOT
sCLEAR THE ERROR FLAG

= 1)
sSEE IF LOOP ON ERROR (SWR9

166232

BIT

#5W09,35WR

166206

LR
JMP
8IT
BNE
TYPE

STIMES
8SLPERR
#SW14,3SWR
63
.CYCLED

;CLEAR THE MAX ITERATION COUNT
;GO TO THE LOOP ADDRESS
?
:LOOP ON TEST
:BR_IF LOOPING
sTYPE *CYCLE DOWN'

BNE
8IT

43
#MOL ,RMDS(RO)

:BR IF NO (DRIVE "NOT CYCLED DOWN)
;IS °‘MOL® SET

8EQ
CLR8

3$:

020317

020106
020337
001226 000010
001226 001234
010000 000012 4$:
010000

SERFLG
3s

000012

58:

TYPE
TYPE
Movs
MOV
8IT

$*SWITCH TO A/B'
.SWTCHN
:"CYCLE THE DRIVE UP'
.CYCLEU
PORTB,RMCS2(RO) " ;SELECT PORT B
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
?
#MOL ,RMDS(RO)" ;IS *MOL® RESET

€z R NIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82
TEST 'PORT SELECT® SWITCH ON PORT B
110
1

713002

BEQ

001774

SEQ@ 0050

07:13:40 PAGE 9-24
5%

:BR IF NO (DRIVE NOT CYCLED UP)

;SET VOLUME VALID FOR BOTH PORTS
013004
013012
013020
013026
013034

0130642
013050
013056
013064
013072
013076
013100
013102

012760
012760
012760
113760
013737

012760
012760
012760
012737
005737
001375
000004
000137

000011
000021
000013
001226
001224

000021
010000
000013
072460
001254

MoV
Mov
Mov
Mmova
MoV

000000
000000
000000
000010
001234

000000
000032
000000
001254

68:
78:

013110

MOV
Mov
Mov
Mov
TST
BNE
SCOPE
JMP

#11,RMCS1(RO)

#21.RMCS1(RO)
#13,RMCS1(RO)

PORTA,RMCS2 (RO)

;ISSUE A DRIVE CLEAR THROUGH PORT B

:ISSUE A READIN PRESET THROUGH PORT B
:RELEASE PORT B
:SELECT PORT A

PORTA,PTNBR HOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#21,RMCS1(RO)’ ; ISSUE A READIN PRESET THROUGH PORT A
#FMT16, RMOF (RO) ;SET FMT16
:RELEASE PORT A
#13 ,RMCS1(RO)
#30000. ,WATCH
: SPINDLE HOTOR 'COOL DOWN®' DELAY
gercu

;FINISHED
?

$EOP

;GO TO THE END OF PASS ROUTINE

:BR IF NOT
sLOOP ?

ttttt*titttttitfittttttti'ttittttttttt*tttittttttttttttttttttttt

PUT NEWTEST HERE

ttttfitttttttttttitttttttitttttfitfittttfitt*ttttttt*ttttttfitittttt

013106

000004

TST11

SCOPE

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 10

SEQ 0051

END OF PASS ROUTINE

.SBTTL

END OF PASS ROUTINE
12 3312232322328 22 31112302220 12202200203ttt

521 2 283 232

iitdididilididdd)

s*INCREMENT THE PASS NUMBER ($PASS)
,
:*INDICATE END=-OF~PROGRAM AFTER 1 PASSES THRU THE PROGRAM
YYYYy'
REPORT
LAST
SINCE
ERRORS
OF
NUMBER
TOTAL
#XXXXX
PASS
<*TYPE "END
s *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
s*]F THERES A MONITOR GO TO IT

;#IF THERE ISN'T JUMP TO TST1AA

013110

013114
013116
013122
013126
013132
013136
013144
013146
013150

013152

013154
013156

013160
013164

013204

005737

001402
000137
005037
005037
005237
042737
005327

013146

104401
000407
013746

013210
013212
013216
013220
013224
013270

104405
005737
001431
104401
000421

013270

013746

013314
013316
013320
013322
013324

013326

013326
013330
013332

002610
001102
001176
001100
100000

104405
005037
104401
013700
001405
000005
004710
000240

TST

BEQ
JMP
CLR
CLR
INC
8IC
DEC

001100

::658:

64$:

001100

001112
013226
3327”

001112

.65%
643

:2TYPE ASCIZ STRING
:3GET OVER THE ASCIZ

MOV

$PASS,~(SP)

::SAVE $SPASS FOR TYPEOJT

TYPDS
TST
8EQ
TYPE
B8R
JASCIZ

:2G0 TYPE=-=DECIMAL ASCI] WITH SIGN
:2SEE IF ANY ERRORS THIS PASS
SERTTL
IF NO ERRORS TO REPORT
:2BR
$GT42P
ASCIZ STRING
::TYPE
.67%
THE ASCIZ
OVER
:2GET
66%
/
REPORT
LAST
SINCE
ERRORS
TOTAL
/

MOV

$ERTTL ,~(SP)

::SAVE SERTTL FOR TYPEOUT

SERTTL
LSCRLF
a#42 RO
$DOAGN

2260 TYPE==DECIMAL ASCII WITH SIGN
:sCLEAR ERROR TOTAL
::TYPE CARRIAGE RETURN, LINE FEED
:2GET MONITOR ADDRESS
::BRANCH IF NO MONITOR

JASCIZ

000240

RESET
$ENDAD: JSR
NOP
NOP
NOP

000137
003074
377

JMP
$SRTNAD: .WORD
S$ENULL: .BYTE

000240

$DOAGN:

377

000

;ENTERED TCST VIA KEYBOARD COMMAND ?

:BR IF NOT
:RETURN TO KEYBOARD CONTROL
;:1ERO THE TEST NUMBER
:2ZERO THE NUMBER OF ITERATIONS
: 2 INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
::LO00P?

TYPE
BR

TYPDS
CLR
$GT42P: TYPE
$GET42: MOV
BEQ

001112
001207
000042

.+6
EXEC
$TSTNM
STIMES
$PASS
#100000,8PASS
(PC)+

MOV

SENDCT: .WORD
SEOPCT

013166

KYBCTL

1
$DOAGN
(PC)+,a(PC)+
1

$SEOPCT: .WORD
8GT

000001
003066
012737
000001

013204

013274
013276
013302
013306
013312

$EOP:

001266

::YES
;2RESTORE COUNTER

<12><15>/END PASS #/

PC.(RO)

a(PC)+
TSTI1AA
-1,-1,0

::TYPE PASS NUMBER

::TOTAL NUMBER OF ERRORS

:sCLEAR THE WORLD
2260 TO MONITOR
: :SAVE ROOM
;sFOR
2sACT1M

::RETURN

:2NULL CHARACTER STRING

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 11

SEQ@ 0052

CLOCK SUBROUTINES

.SBTTL

CLOCK SUBROUTINES

;ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS

5 013336
6 013344
7 013350

012737
005037
005777

8 013354 013701
9 013360 012721
10 013364 012711
11 013370

012777

14 013406

062706

013406
000006
165636

001216
013470
000300
177777

12 013376 012777 000135
13 013406 000425

000004

16 013420
18 013430
19 013434

005777

013701
012721
012711

22 013450
23 013454
24 013460

52 013466

062706
062716
012737
000207

000004
000002
000006

MOV
BR

#135 aSLKCSR
CKCLK3

:SET CLOCK = CNT UP, 16MS, CONT INT

MoV

#CKCLK2,8#ERRVEC’ ; CHANGE ERROR VECTOR TO CHECK FOR KW11-L

:LOAD COUNTER BUFFER WITH 1'S

aSLKS

;LOOK FOR KW11-L

MOV
MoV

lCLOCK (R1)+
#300, (R1)

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

CKCLK2: ADD
ADD
CKCLK3: MOV

¥4 ,SP
#2,(SP)
06 @#ERRVEC

TST

165552

#-1_3$LK(SB

sRESTORE THE STACK POINTER

MoV

000004

#CLOCK, (R1)+

#4,SP

165574

20 013440 012777 000100
21 013446 000404

:KW11-P VECTOR ADDRESS
;SET UP KW11-P VECTOR
:PSW = PRI 6

CKCLK1: ADD

001222

013470
000300

#CKCLK1,#ERRVEC SET UP VECTOR FOR CLOCK CHECK
@#ERRVEC+2
PSW
ISLKCSR
CHECK FOR KW11-P

SLPVEC R
#300, (R1)

MoV

165606

000004

MOV
CLR
1ST

MoV
MoV
MoV

165616

15 013412 012737 013450 000004
17 013424

CKCLK:

MoV
BR
RTS

SLLVEC,R1

#100,a8LKS
CKCLK3

:KW17=L VECTOR ADDRESS

:SET xW11-L INTERRUPT

sRESTORE THE STACK POINTER
s INCREMENT RETURN, NO CLOCK
sRESTORE THE ERROR VECTOR

cROUTINE TO COUNT CLOCK TICKS

29 013470
30 013476
31 013502
32 013504
33 013512

062737
005737
001406
162737
100002

gg 013520

000002

013514

000021
001254

001252

000021

001254

005037 001254

gg
005746
016616

000002

42 013532

011666

000004

43 013536
44 013540
45 013542
46 013546

ADD
IS8T
BEQ
sus
8PL

18:

RTI

CLR

#7.,TIME
WATCH
1$
#17. ,WATCH
1$

WATCH

sADD 17 MS TO ELAPSED TIME COUNTER
s1S WATCH ALREADY 2ERO ?
¢BR IF IT IS
sSUBTRACT 17 MS FROM WATCH DOG COUNTER
:BR_IF NOT MINUS

;CLEAR WATCH DOG COUNTER
:RETURN

sROUTINE TO CALCULATE + 25% TIME TOLERANCE VALUES

39 013522
40 013524

41 013530

CLOCK:

013546

006216
006216
062666
000205

000002

TOLER:

TST
MoV

=(SP)
2(SP), (SP)

MOV

(SP) ,4(SP)

MoV

ASR
ASR
ADD
RTS

a8(R3) +,=(SP)

(SP)
(SP)
(SP)+,2(SP)
RS

sMAKE ROOM ON THE STACK
sSAVE STACK

:GET TIME VALUE

:MOVE TIME VALUS

:DIVIDE BY 2
;DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4)
;CALCULATE UPPER LIMIT FOR TIMEOUT
:RETURN WITH TOLERANCES ON THE STACK

CZRNIAO RMB0 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 12

SEQ 0053

SCOPE HANDLER ROUTINE

.SBTTL

SCOPE HANDLER ROUTINE

tt'ttttt'tt'tttttttti'itt"i*ttttttfitt*ttttttttt*tttttt*tttttit

'THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
*«AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
<*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOuUP ON TEST
rsu14 1
INHIBIT ITERATIONS
-su11 1
-CALL

:'
550

104407

3566

000137

013572

000416

013574

013746

$SCOPE:

014104
040000

165354

014066

000004

18:

000004

28:

177777

014454

000004
013670
177766

000004
014454

177777

014454

012637

000004

022737

177777

014454

D
md
b
D

014454

000001

177766

000001

—b e

001140

001000

000000
001140

PC,STOP

::TEST

FOR CHANGE IN SOFT-SWR

#BIT14,3SWR
9
$OVER

;:LO0P ON PRESENT TEST?
2:NO IF SW14=0
:3JUMP OVER SCOPE ROUTINE

MOV
MOV

SWERRVEC.-(SP)
#5$ QMERRVEC

:THIS INSTRUCTION TO A _'NOP'' (NOP=240)
--SAVE THE CONTENTS OF THE ERROR VECTOR
;:SET FOR TIMEOUT

$SVLAD

CMP

a¥177060
(SP)+,3#ERRVEC
(SP)+,(SP)+

::TIME OUT ONXOR?
::RESTORE THE ERROR vecron
1560 TO THE NEXT TEST

L:CLEAR THE STACK AFTER A TIME OUT
::RESTORE THE ERROR VECTOR

MOV

(SP)+,@FERRVEC

TSTB

S$ERFLG

;;HAS AN ERROR OCCURRED?

CMP

#-1,CPSAVE

..see IF TIMEOUT WAS PREVIOUSLY RECORDED

‘LOOP ON THE PRESENT TEST
$OVER
B8R
6$:: MMMANEND OF CODE FOR THE XOR' TESTERANNAA

001103

313704

JSR

8IT
8EQ
JMP

TST
MOV

58:

O0OO0O0OOOOOOOO0O

710

CDCDC) QO

105737

-—pb

013630

W
O
~

000517

CKSWR

:
9%
MARNNSTART OF ngE FOR THE XOR TESYER#####
221F RUNNING ON THE °*'XOR'* TESTER CHANGE
$XTSTR: BR

000004

013626

::SCOPE=I0T

SCOPE

165152

BEQ

*BR IF NO

MOV
ggv

2003s
ERRVEC,=(SP)

#2000S ERRVEC
555;26“CPSAVE

*KICK AROUND ROUTINE IF SO
..SAVE CONTENTS OF ERROR VECTOR

20008:

MOV

#-1,CPSAVE

::SET CPU ERROR REGISTER TIMEOUT INDICATOR

20018:

MOV

(SP)+,ERRVEC

;:RESTORE CONTENTS OF ERROR VECTOR

20028:

CMP

#-1,CPSAVE

::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

#81T00,CPSAVE
03$
xroo 177766

:.ses IF THE POWER MONITOR BIT IS ON
*BRANCH TO CONTINUE ROUTINE IF CLEAR
::CLEAR THE BIT FOUND TO BE SET

BEQ
MOV

:gy

BEQ

BIT
BEQ
BIC

MOV
MOV
MOV

MOV

BIC
EMT
MOV

MOV

#20018’, (SP)

03s

:-SETUP *TRAP' RETURN ADDRESS
::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

*3SETUP RETURN ADDRESS

*BRANCH IF SO

095769 aswR

..SAVE SWR ADDRESS
*SAVE SWR VALUE
..GET SOF TWARE SWR ADDRESS
*GET CURRENT SWR VALUE
:*DON'T ALLOW LPOP ON ERROR ON THIS ERROR

(SP)+,3(SP)

..Resrons SWR TO ORIGINAL VALUE

SWR, = (SP)
3(SP) ,=(SP)
#176,SWR
(SP) JaSWR

(SP)+,SWR

*CALL SPECIAL POWER FAIL BIT ERROR CALL

*SRESTORE SWR ADDRESS

SEQ 0054

CZRNIAO RMB0 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 12-1
SCOPE HANDLER ROUTINE

S 014104

2003s:

4$:

165122

3s:

BIT

001100
001104
001176

QOOOO
ONPOONNINY

000001
014
001
00
00
00

001104
001104
001176
165046

1$:

MOV

$SVLAD: ;NCB
$SOVER:

MOV
R

SERFLG
STIMES

scZERO THE ERROR FLAG

g21711.3$UR

..INHIBITEITERATIONS’

$PASS
18

..IF FIRST PASS OF PROGRAM

STIMES SICNT
SOVER
#1,81CNT

..CHECK THE NUMBER OF ITERATIONS MADE

SHXCNT STIMES

ssCLEAR THE NUMBER OF ITERATIONS TO MAKE
;BR IF

YES

INHIBIT ITERATIONS

: INCREMENT ITERATION COUNT

:BR IF MORE ITERATION REQUIRED

..flEINITIALIZE THE _ITERATION COUNTER
:sSET NUMBER OF ITERATIONS TO DO

$TST
; ;COUNT TEST NUMBERS
(SP), SLPADR
..SAVE SCOPE LOOP ADDRESS
$TSTNM,aDISPLAY ¢sDISPLAY TEST NUMBER
,.;?ggg
RETURN ADDRESS
$LPADR, (SP)

¢ s MAX. NUHBER OF ITERATIONS

SMXCNT: S.

;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT

001103
001176
004000

105037
005037
032777
001011
005737
001406
005237
023737
00201;
01273
013737
105237
011637
013777
013716
000002
000005

014000
014000
014004
014010
014016
014020
014026
014026
014032
014040
016042
014050
014056
014062
164066
014076
014100
> 014102

016104
014110
014114
014116

9 014116
014122
014126
014130
10 014130

012746
012746
000002

STOP:

64$:

MOV
MOV
RTI

#PR3,=(SP)
#64$,~(SP)

ssPUT NEW PS ON STACK
:sPUT NEW PC ON STACK
:sPOP NEW PC AND PS

;RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT
012746
012746
000002
000207

65%:

MoV
MoV
RTI

#PRS ,=(SP)

#65%.~ (SP)

::PUT NEW PS ON STACK
:sPUT NEW PC ON STACK
::POP NEW PC AND PS

RTS

¢RETURN

CIRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 13

SEQ 0055

ERROR HANDLER ROUTINE

.SBTTL

ERROR HANDLER ROUTINE

ttttfittfitttttttttttt'tttttttttttttttttttlttttt.tttttttlttttttfit

tTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

taSW15=1
teSW13=1
'3218'
L&

i
014132
014136

105037
104407

014456

014146
014152

105237
001775

001103

014162
014170
014172

032777
001402
104401

002000

014140

113737

001102

001242

SERROR: CLRB
CKSWR
78:

014156 013777 001102 164760

164750

001202

1$:

014176 005237 001112
014202

011637

014214

117737

014230
014232

001060
122737

014206

162737

001116

000002

164676

001116

014242

014246

014250

105737

001047

000177

BIT
BEQ
TYPE

INC

MOV

012737

000004
014302

000004

012637

000004

014322

022737

177777

014454

014332

032737

000001

014456

014342
014350

042737
113737

000001
001114

177766
014456

105037

014456

014330 001420
014340

001414

014372 032777 020000 164540
014400
014402

001004
004737

014460

9SERRPC,SITEMB

:3SEE IF LOOP ON ERROR IS SET

1004$

BNE

CMP

BEQ
MOV

MOV

RTI

1004$
#177,SITEMS

“COUNT THE NUMBER OF ERRORS

;:STRIP AND SAVE THE ERROR ITEM CODE

*BRANCH AROUND ROUTINE IF SO
..see IF THIS IS THE POWER FAIL CALL

*BRANCH AROUND ROUTINE IF IT IS

IGSAVE

..see IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE

#-1,CPSAVE

..ses IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

1003$

1004$
ERRVEC,=(SP)
#10008 ERRVEC

177766 CPSAVE
10018
#-1,CPSAVE
210018, (SP)

“BRANCH IF SO

*BRANCH IF SO
..SAVE CONTENTS OF ERROR VECTOR
:SETUP "TRAP' RETURN ADDRESS

:>MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
;:SET CPU ERROR REGISTER TIMEOUT INDICATOR

*3SETUP RETURN ADDRESS

1001$:

MOV

(SP)+,ERRVEC

::RESTORE CONTENTS OF ERROR VECTOR

10028:

CMP

#-1,CPSAVE

::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

BIT

#BIT00,CPSAVE

-:SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG

BIC
MOVB

#B1T00,177766
SITEMB.IBSAVE

::CLEAR THE BIT FOUND SET
::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

CLRB

IBSAVE

::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BEQ

MOVB
BR

014356 112737 000177 001114
014364 000402
812%93

(SP),SERRPC

1 3GET ADDRESS OF ERROR INSTRUCTION

$ERTTL

BEQ

014272
014300
014302
014310
014316

:BELL ON ERROR?
SINO = SKIP
:iRING BELL

BIT

MOV
013737 177766 014456
B8R
000406
012737 177777 014454 1000$: MOV
MOV
012716 014316
000002

#81T10.aSWR
18
$BELL

#8IT09,3SWR

001445
013746

014314

:SET THE_ERROR FLAG
*DON'T LET THE FLAG GO TO ZERO

#2.,$ERRPC

014256
014260

014264

SERFLG
78

SUB

TSTB

014456

:;CLEAR THE ITEM BYTE SAVE LOCATION
*STEST FOR CHANGE IN SOFT-SWR

STSTNM.SDISPLAY --DISPLAY TEST NUMBER AND ERROR FLAG

001114

177777

IBSAVE

MOV

BNE
(MPB

022737

: sERKOR=EMT AND N=ERROR ITEM NUMBER

STSTNM,TSTNUM

INCB
BEQ

MOVB

014456

MOVB

001114

014222 032777 001000 164710

014240 001454

ERROR

}882§:

B8IT

BNE
JSR

1004$

#177,$1TEMB
1004$

#81T13,aSWR
208
PC,SERRTYP

*SBRANCH IF SO
*BRANCH IF OK

SSSET SITEMB TO SPECIAL POWER FAIL POINTER
*:BRANCH OVER IBSAVE CLEARING

::$KIP TYPEOUT IF SET

*SKIP TYPEOUTS
*3G0 TO USER ERROR ROUTINE

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAZE 13-1

SEQ 0056

ERROR HANDLER ROUTINE

016406

104401

001207

208:
2$:

0146456
164514

0164430

104407

014432
014440
014442

022737
001001
000000

013316

014444
4450

105737
001236

014456

4452
4454
4456

000002
000000
000000

000042

3s:

6$:

CPSAVE:
IBSAVE:

TYPE

+SCRLF

1S78
BNE

IBSAVE
3s

::SEE IF IBSAVE IS LOADED

::BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR

TST
BPL
HALT

asSWR

JsHALT ON ERROR
2:SKIP IF CONTINUE
:2MALT ON ERROR!
:2TEST FOR CHANGE IN SOFT-SWR

CMP

#SENDAD ,a#42
6$

:sACT=11 AUTO-ACCEPT?
::BRgNCH IF NO

CKSWR

IBSAVE

s:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::gg?figz BACK TO CALL ORIGINAL ERROR

+:LOCATION TO SAVE CPU ERROR REG CONTENTS
:;LOCATION TO SAVE ITEM BYTE

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 14

SEQ 0057

ERROR MESSAGE TYPEOUT ROUTINE

.SBTTL

ERROR MESSAGE TYPEOUT ROUTINE

L L eiddubdaindaiadniufoiyi
L
t
L
R

:*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'® (SITEMB) TO DETERMINE WHICH

<«ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'' (SERRTB),
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

014460
014460

104401

001004

013746

S$ERRTYP:

001207
001114

001116

000177
001102
014656

1$:

015016

001276
014554

1001$:

([ele BNelelelalelelelelelalelelele) elelelelelelelelelelelo]

:
10008

.SCRLF

:sSAVE RO
::PICKUP THE ITEM INDEX

$ERRPC,~(SP)

s SAVE SERRPC FOR TYPEOUT
s ;ERROR ADDRESS

108

#177 RO

1000$

STSTNM,PFTSTN
#PFECH.RO
1001$
RO
RO
RO
RO
#SERRTB,RO
(RO)+,28

OO-‘°8°O o
SN2
NN ~=-2NO
S
&~

J3GET our

::SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
::BRANCH IF NOT
:2GET TEST NUMBER

;;MOVE POWER FAIL ERROR CALL TABLE TO RO
:2BRANCH TO CALL ERROR

::ADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE
HH
:;FORM TABLE POINTER
::PICKUP "ERROR MESSAGE''

POINTER
::SKIP TYPEOUT IF NO POINTER

::TYPE THE "ERROR MESSAGE'’

::'DATA HEADER'' POINTER GOES HERE

b} &

R1,-(SP)

6$:

9
(RO)+,RO
(RO)+
7$
8(R1)+,~(SP)

[a%)

O
Q= OO=O =2

=5
o
228 3

::60 TYPE=-OCTAL ASCII(ALL DIGITS)

4$:

3s:

014652

012601
012600

:;TYPE THE PC OF THE ERROR

$3ERROR MESSAGE'' POINTER GOES HERE
33" 'CARRIAGE RETURN'' & "LINE FEED
::PICKUP ‘DATA HEADER'* POINTER

8%:

o ond

—deed

642

;c1F _ITEM NUMBER IS ZERO, JUST

0
.SCRLF
(RO)+,48
5%

2s:

7$:

b
D -—d —d b

001207

b od

b =

b od

b e

DEESDN BB
oo
ot
N

104401

::''CARRIAGE RETURN'' & "‘LINE FEED'’

RO,=(SP)
RO
SASITEMB,RO
18

b o

001207
014572

TYPE
MoV
CLR
8l1s8
BNE

9%:
108:

SCRLF

(26)*.R1

a8(R1)+,-(SP)

::SKIP TYPEOU) IF 0
::TYPE THE 'DATA HEADER''

:3*'CARRIAGE RETURN'' & 'LINE FEEDTM

: :SAVE R1
::PICKUP 'DATA TABLE'' POINTER
::BR_IF NQ_DATA TO BE, TYPED
::PICKUP "DATA FORMAT': POINTER
::'0CTAL'* OR *DECIMAL
::BR IF DECIMAL
:3SAVE 3(R1)¢ FOR TYPEQUT
3360 TYPE--OCTAL ASCII(ALL DIGITS)
:;SAVE a(R1)+ FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SIGN
;:1S THERE ANOTHER NUMBER?

(R1)
93

::8R IF NO

s :LOOP

(SP)+,R1
(SP)+,R0O

::TYPE TWO(2) SPACES
;sRESTORE R1
::RESTORE RO

pam.

CZRNIAO RM80 DUAL PORT PT2 MACRO V04,00 15-JAN=82 07:13:40 PAGE 14-1

ERROR MESSAGE TYPEOUT ROUTINE

014644

104401

014650 000207
750

002

118:

RTS

.ASCIZ

::"'CARRIAGE RETURN''& ''LINE FEED'’

$CRLF

pC
7/

+ SRETURN

$iTWO(2) SPACES

040

000

0146666
120

014750
117

015002
127

123

PFECH2: '?3Efiz

ITESTNO

015016

001116

014454

PFECH3: .WORD

PFTSTN,SERRPC,CPSAVE,0

PFTSTN: .WORD

652

656

TYPE

001207

SEQ 0058

124

000

000000

105

000

"EVEN

2 :;WORDS DEFINING TABLES BELOW
,PFECH3 ,PFECH4
PFECK: PFECH1,PFECH
PFECHI: .ASCIZ ?POWER MONITOR BIT IN' CPU ERROR REGISTER FOUND SET?

000 PFECH&4: .BYTE

0,0,0,0

ERR PC

CPUERREG?

;2CONTAINS TEST NUMBER FOR PF BIT ERROR

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 15

SEQ@ 0059

TYPE ROUTINE

.SBTTL

TYPE ROUTINE

ttttttt't'tt'tttltti't'tt"ttfitt..t'tQ.tttt.'t'ttl"..tttt.t't'

tROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

*«THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
tNOTE1
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
:*NOTE :
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

'tNOTE :
C LL:

t1) USING A TRAP INSTRUCTION
'OR
:t

A
;t

015020
015024

105737

001157

$TYPE:

1$:

2%:

NN
NONNO S c:owusnaiganh

b 0O
d
b
b

b e

=
NN

—d
d mcd b

i
b
d
e
b
D
b

MOVB
BNE
TST

000011

4L8:

CMP8

RTI

BEQ

CMPB

BNE
TST

i VWA

b o)

OO0

1TSTB

B8PL
HALT
B8R
MOV
MOV

MOV
ADD

TYPE
$CRLF

5$:
6$:

015170
001156

001154

CLRB
B8R

JSR
CMPB
BNE
MOV

78:

000001
015170
015306

s2MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

S$TPFLG
18

..IS }?ERE A TERMINAL?

TYPE

60$:
3s:

015306

.MESADR

MESADR

000002

000200

OOO0OOOOOO0O

000002

TYPE

DECB
BLT
JSR
DECB

RO,=(SP)

32(SP) RO
2R0)*.-(SP)
(SP)+
(SP)+,RO
#2,(SP)

AHT, (SP)
8s
#CRLF, (SP)
5%
(SP)+
SgHARCNT
2
PC,STYPEC
SFILLC,(SP)+
28

(SP)
, =LL
$NU
1(SP)
6$
PC,STYPEC
$CHARCNT
78

..HAL;EHERE IF NO TERMINAL
LEA

RO
:SAVE

..GET ADDRESS OF ASCIZ STRING
..PUSH CHARACTER TO BE TYPED ONTO STACK

s:BR IF IT ISN'T THE TERMINATOR
;IF TERMINATOR POP IT OFF THE STACK

..RESTORE RO
:.ADJUST RETURN PC
sRETUR

..BRANCH IF <HT>
; ;BRANCH IF NOT <CRLF>

2sPOP <CR><LF> EQUIV
ssTYPE A CR AND LF
sCLEAR CHARACTER COUNT

..GET NEXT CHARACTER
$:G0 TYPE THIS CHARACTER
ss1S 17 TIME FOR FILLER CHARS.?
s;IF _NO GO GET NEXT CHAR
:;GET # OF FILLER CHARS. NEEDED
soAND THE NULL CHAR.
::DOES A NULL NEED T0 BE TYPED?
::BR IF NO--GO POP /HE NULL OFF OF STACK
$:G0 TYPE A NULL

..DOOgOT COUNT AS A COUNT

NSO
E;gfi)unn&~

QOOOOO

) ol cnd wd amd =d

sHORIZONTAL TAB PROCESSOR
000040
015170
000007

8$:

015306

MOV8
JSR

BITB
BNE
TST
B8R

(SP)

sREPLACE TAB WITH SPACE

PC $TYPEC
g;*$CHARCNT

..TYPE A SPACE

(SP)+

::POP SPACE OFF STACK
ssGET NEXT CHARACTER

..BRANCH IF NOT A1
:TAB STOP

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 15-1

SEQ 0060

NSXOFF
, (SP)

000023
163724

asTKS
101$
asTKB, (SP)

163720
177600

000021

102$:
10%:

A T

000002
000015

000012

000002

CMPB

8
$CHARCNT
: .WORD
STYPEX: RTS

ssWAIT FOR CHAR

(SP)+

soFIX STACK

as$TPS
108

ssWAIT UNTIL PRINTER IS READY

qu.Z(SP)

1$:

J:GET CHAR
::STRIP EXTRANEOUS BITS
::WAS CHAR XOFF
2:BR JF NOT

#SXON, (SP)
1018

2(SP) ,asTPB

163674
000002

:sCHAR IN KYBD BUFFER?
::BR_IF NOT

::GET CHAR
J:STRIP IT
sWAS IT XON?
;:BR IF NOT

2177600, (SP)

163702

e T

1028

101$:

$CHARCNT
STYPEX
#LF ,2(SP)
STYPEX
(PC)+
(=]

OO~
=b
ONH=00
Ombtaded
H=200

#177600, (SP)

005726

000000
000207

a87kKS
108
as$TK8, = (SP)

163744
177600

015306

$STYPEC:

163750

0000000000000 OO0O0O0O00O0O000

h d b
d D d h D d b d D nd D
d b d b b
v vivivaiumiviavivivivivanaw
=d b = -t
[$1,$1,¢) N NININININININININ)
SO WWWNININ)
= = 22O O NNNNY
NNOO

ONONOJ‘&N&NO‘J\OO

TYPE ROUTINE

;:LOAD CHAR TO BE TYPED INTO DATA REG.
IS CHARACTER A CARRIAGE RETURN?
,
::BRANCH IF NO
:YES==CLEAR CHARACTGR COUNT
soEXIT

2:1S CHARACTER A LINE FEED?
s sBRANCH IF YES
:;COUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 16

SEQ 0061

BINARY TC OCTAL (ASCII) AND TYPE

BINARY TO OCTAL (ASCII) AND TYPE

.SBTTL

R AR RN ERE
AN RAARR DRI RIRARRRRRARARARNANRRRNANRANRR

'THIS ROUTINE 1S USED TO CHANGE A 16-8IT BINARY NUMBER TO A 6-DIGIT

;*OCTAL (ASCII) NUMBER AND TYPE IT.
:#$TYPOS-~~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
;*CALL:

MOV

TYPOS

.BYTE

o¥

.BYTE

NUM,=(SP)
N

s sNUMBER TO BE TYPED

..CALL FOR TYPEOU

s:N=1 70 6 FOR NUHBER OF DIGITS TO TYPE
::M=1 OR 0

;1=TYPE LEADING ZEROS

..0 SUPPRESS LEACING ZEROS

o¥

;*STYPON-~-=ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:«$TYPOS OR STYPOC
;#CALL:

MOV

TYPON

o¥
:t

NUM,~-(SP)

:sNUMBER TO BE [YPED
:sCALL FOR TYPEOUT

:*%xzfoc---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
i

A
Hd
015312

017646

015334

000406

112737

MOV
TYPOC

000000

$TYPOS: MOV

000001

S$TYPOC: MOVB

015316 116637 000001 015535
015324 112637 015537
015330 062716 000002
015336

015535

015344 112737 000006 015537
015352 112737 000005 015534
015360 010346

Mov8
MOv8
ADD
BR

MOV8
STYPON: MOVB
MOV

NUM, - (SP)

;sNUMBER TO BE TYPED
ssCALL FOR TYPEOUT

a(SP) ,-(SP)

;:PICKUP THE MODE

1(SP),SSOFILL
(SP)+,"SOMODE+1
a2, (SP)
$TYPON

#1,80FILL

6,> SOMODE +1
#5,80CNT
R3.=-(SP)

R4 ,-(SP)
R5,-(SP)
SOMODE+1 ,R4

..LOAD ZERC FILL SWITCH
::NUMBER OF DIGITS TO TYPE
..ADJUST RETURN ADDRESS
s:SET THE ZERO FILL SWITCH

2sSET FOR SIX(6) DIGITS
..SET THE ITERATION COUNT
;SAVE R3

..SAVE Ré4
R5
:SAVE
*:GET THE NUMBER OF DIGITS TO TYPE

015362
015364
015366

010446
010546
113704

015537

MOV
MOV
MOVB

015374
015400
015404

062704
110437
113704

000006
015536
015535

ADD
MOVB
MOVB

#6,R4
R4 ,SOMODE
$OFILL,R4

..SUBTRACT IT FOR MAX. ALLOWED
sSAVE IT FOR USE
+:GET THE ZERO FILL SWITCH

015414

005003

CLR

:;CLEAR THE OUTPUT WORD

015420
015422
015426

000404
006105
006105

BR
ROL
ROL

3
RS
RS

0156430

010503

015372

005404

NEG

MOV

015410 016605 000012
015416

015426

015432

015434
015440
015442
015446
015450

015452

015454

006105

1$:
2%:

006105

006103

105337 015536
100016
042703 177770
001002
005704
001403

005204

ROL

3s:

12(SP).RS

ssPICKUP THE INPUT NUMBER
..ROTAIE MSB INTO

:G0 DO MSB
::FORM THIS DIGIT

*'C*’

MOV

RS5,R3

DE(CB
8IC

$OMODE
78
#177770,R3

..TYPE THIS DIGIT?
:BR_IF NO
..GET RID OF JUNK

TST

..SUPPRESS THIS 0?

Ré

$:DON'T SUPPRESS ANYMORE 0'S

ROL

BPL

BNE

4$:

8EQ

INC

43
58

;JGET LSB OF THIS DIGIT

sTEST FOR 0

;BR IFYES

SEQ 0062

CZRNIAO RMBO DUAL PORT PT2 HACR(EJ V04.00 15~JAN-82 07:13:40 PAGE 16-1

BINARY TO OCTAL CASCII) AND TYP

015456
015462

052703
052703

000060
000040

015466 110337 015532
015472 104401 015532
015476 105337 015534
015502
015504
015506
015510
015512
015514
015516
015520

003347
002402
005204
000744
012605
012604
012603
016666

015532

000

015526
015530

015533
015534
015535
015536

012616
000002

000
000
000
000000

78:
63:

000002

(00004

8s:

BIS
BIS

#'0,R3
#' 'R3

:sMAKE THIS DIGIT ASCII
‘IMAKE ASCII IF NOT ALREADY

BGT
BLT
INC
8R
MOV
MOV
MOV
MOV

28
68

*:BR IF MORE TO DO
*:BR IF DONE
;3 INSURE LAST DIGIT ISN'T A BLANK
*GO DO THE LAST DIGIT
*:RESTORE RS
**RESTORE R%&
: SRESTORER3
1:SET THE STACK FOR RETURNING

MOVB
TYPE
DECB

MOV
RTI

.BYTE

‘BYTE
$OCNT: .BYTE
$SOFILL: .BYTE
SOMODE: .WORD

R3,8$
8é
$OCNT
R4

2s
(SP)+,RS
(SP)+.R&

(SP)+.R3

2(SP) J4(SP)
(SP)+. (SP)

0
0
0
0

*:SAVE FOR TYPING
:360 TYPE THIS DIGIT
*COUNT BY 1

:RETURN

*SSTORAGE FOR ASCI{ DIGIT

*:TERMINATOR FOR TYPE ROUTINE
*30CTAL DIGIT COUNTER
*32ERO FILL SWITCH
*:NUMBER OF DIGITS TO TYPE

CZRNIAO RMB0 DUAL PORT PT2 MACRO VO04.00 15-JAN-82 07:13:40 PAGE 17

SEQ 0063

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

ittt tivbidsiivieioinibuibdaidbind
t
bbbt
R

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s*REPLACED WITH SPACES.

J*CALL:

015540

015550

010146
010246
010346
010546

015556
015562
015564
015566
015574
015576

016605
100004
005405
112766
005000
012703

5606
015610
015614
015616

005002
016001
160105
002402

015542
015544
015546

$TYPDS:

010046

000020

000055

000001

015754

38:

005202

48:

060105
005702
001002
105716

100407
106316
103003
116663

58:

000001

015650 052702 000060
015654
015660

052702
110223

000040

015664
015670
015672
015674
015676
015700

020027
002746
003002
010502
000764
105726

000010

015704
015712
015716

116663
105013
012605

177777

015662 005720

015702 100003
015716
015720
015722

18:
28:

015744

015622 000774
015634
015636
015640
015642

012603
012602
012601

::PUT THE BINARY NUMBER ON THE STACK

MOV

RO,~(SP)

::PUSH RO ON STACK

MOV

015602 112723 000040

015624
015626
015630
015632

NUM, = (SP)

TYPDS

MOV
MOV
Mov

015552 012746 020200

015620

MOV

177777

68:
78:

177776

9$:

20(SP) .RS
1$
RS
#'=,1(SP)
RO
#$DBLK R3

$:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
‘SMAKE THE BINARY NUMBER POS.
LIMAKE THE ASCI] NUMBER NEG.
*3ZERO THE CONSTANTS INDEX
::SETUP THE QUTPUT POINTER

R2
,RT
$DTBL(RO)
.
48

$:CLEAR THE BCD NUMBER
;:GET THE CONSTANT
*3FORM THIS BCD DIGIT
2:BR IF DONE

#20200,-(SPY

MovB

' N ,(R3)0

INC

CLR
MOV
SUB
BLT

B8R

;:SET BLANK SWITCH AND SIGN

::SET THE FIRST CHARACTER TO A BLANK
3 INCREASE THE BCD DIGIT BY 1

ADD
ST
BNE
IST8

R1.RS
R2
5¢
(SP)

::ADD BACK THE CONSTANT
$3CHECK IF BCD DIGIT=0
SSFALL THROUGH IF 0
$3STILL DOING LEADING 0°S?

8IS

#'0,R2

L3MAKE THE BCD DIGIT ASCII

BM]
ASLB
BCC
MOVB

BIS
MOVB

78
(SP)
6$
1(SP),=1(R3)

2:BR IF YES
$IMSD?
$:BR IF NO
::YES==-SET THE SIGN

# R
R2,(R3)+

SSMAKE IT A SPACE IF NOT ALREADY A DIGIT
$3PUT THIS CHARACTER IN THE OUTPUT BUFFER

CMP
BLT
BGT
MOV
BR
TSTB

RO,#10
$
(SP)+

*3CHECK THE TABLE INDEX
$3G0 DO THE NEXT DIGIT
$360 TO EXIT
$3GET THE LSD
$360 CHANGE TO ASCII
*:WAS THE LSD THE FIRST NON-ZERO?

MOVB
CLRB
MOV

-1(SP),=2(R3)
(R3)
(SP)+,RS

::YES==SET THE SIGN FOR TYPING
$:SET THE TERMINATOR
;:POP STACK INTO RS

TST

8s:

RS =(SP)

::PUSH R1 ON STACK
+:PUSH R2 ON STACK
::PUSH R3 ON STACK
$:PUSH RS ON STACK

R1,=-(SP)
R2.=(SP)
R3,-(SP)

MOV

MOV
8PL
NEG
MOVB
CLR
MOV

1360 TO THE ROUTINE

(RO)+

RS,R2

B8PL

MOV
MOV
MOV

(SP)+.R3
(SP)+.R2
(SP)+.R1

:3JUST INCREMENTING

$:BR IF NO

$:POP STACK INTO R3
1:POP STACK INTO R2
::POP STACK INTO R1

CZRNIAQO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 17-1

SEQ 0064

)

015754
000002

SNIONLo 2
SO

b
i
il
b
o
-l ad and e

(O, 1V, IV [V, 1V 1V, IV, [V {V, 1V, ]
NINNNNNNNN ~
VIS
85 8 SN NN

000000000

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000004
$DTBL:

000012

$DBLK:

MoV
TYPE
MoV
MoV
RTI

10000.
1000.

(SP)+,R0
$DBLK

5(SP),4(SP)
(SP)+, (SP)

::POP STACK INTO RO
ssNOW TYPE THE NUMBER
s cADJUST THE STACK
:sRETURN TO USER

CZRNIAQ RM80 DUAL PORT PT2 MACRO v04.00 15-JAN=-82 07:13:40 PAGE 18

SEQ 0065

TTY INPUT ROUTINE

.SBTTL

TTY INPUT ROUTINE

JNARAARAANRAAARARAARAARAAEARNRNAAANRARAANEARRASNRREANCARAARCRON
TS

015764
015766
015770
015

000000
000000
000000

.ENABL LS8
S$TKCNT: .WORD

s sNUMBER OF ITEMS IN QUEUE

$TKQOUT: .WORD
$TKQSRT: .BLkB

0
1

¢ sOUTPUT POINTER
ssTTY KEYBOARD QUEUE

$TKQIN: .WORD

015773

:: INPUT POINTER

s*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
*SETUP THE INTERRUPT VECTOR AND T'RN ON THE KEYBOARD INTERRUPT
.'CALL

o®
%

015774

005037

015766

$TKINT: CLR

012777
000207

STKCNT

JCLEAR COUNT OF ITEMS IN QUEUE

#STKQSRT,STKQIN ..HOVE THE STARTING ADDRESS OF THE

Mov
IST

#200,@#TKVEC+2
a8 kB

MOV

163102

PC.STKINT

Mov

MoV
MoV

000062

016034
016042

JSR

RETURN

RTS

$TKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS.
#$TKSRV , a# TKVEC ..INITIALIZE THE KEYBOARD VECTOR
#100.3$TKS

..'BR'’ LEVEL 4

:;CLEAR DONE FLAG

..ENABLE TTY KEYBOARD INTERRUPT
¢SRETURN TO CALLER

;*TK SERVICE ROUTINE

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:*IT IN THE QUEUE.
.
.
:#IF THE CHARACTER IS A "'CONTROL=C'’ (AC) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE "'CONTROL-C’* RESTART ADDRESS (START)
016044

117746

000002

016066

021627
g~

NN
N
NN

—_

owns

S; QOO
QOO

S¥DC>
HO
VN
=
OOON
NN
OO0

d ad
D
d
d

and
b e
—d
b b

wmd

OONONONONONON

—ded
b e

b mdd -l

[=lelele BNelelelelelolele)

016064

001500

022737
001004
104401

§TKSRV: MOVB

163076
177600
000021

BIC
CMP

505

CMP

000003

001766
000007

18:

000176

001140

000001

015764

::PICKUP THE CHARA:TER

308
(SP)+

+SBRANCH IF NO
+3CLEAN RANDOM XON OFF STACK
* SRETURN

(SP) .43

::STRIP THE JUNK
:IS IT A RANDOM XON?

BNE

;:18 1T A CONTROL (?
*BRANCH IF NO

JSR
TST
JMP
MP
BNE
CMP

Pc.srrxnr
(SP)+
START
(SP) , A7
2
#SWREG, SWR

SSINIT THE KEYBOARD
+3CLEAN UP STACK
*3CONTROL € RESTART
SIS IT A CONTROL G?
$3BRANCH IF NO
23IS SOFT-SWR SELECTED?

CMP
BNE
TYPE

#1,$TKCNT
3s
,$BELL

TYPE

017172
015774

001202

BNE
TST
RTI

@8TKB,=(SP)

#4C177, (SP)
(SP) ,#$XON

B8EQ

,SCNTLC

SSTYPE A CONTROL=C (~C)

:2:G0 TO SWR CHANGE

::1S THE QUEVE FULL?
+SBRANCH IF NO
S:RING THE TTY BELL

CZRNIAO RM80 DUAL PORT FT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 18-1

SEQ 0066

~
nN

o0
[=l=]

000023

77
26
77
75
46
716

162762

o
N
~

N
N

38:
318:

162754

162750
177600
000021
162726

16232

021627

000175

162640
16244
6250
6254

042716
112677
005237
023727

000040
177516
015766
015766

015773

012737
000002

015772

015766

o
[=]
W

oD and
b i

b
ad

b
b
—

6264
6272

N
~
~

0157464
000140

220
224

005237
021627

000100

328:

48:

5%:

:;CLEAN CHARACTER OFF OF STACK

1ST
B8R

(SP)+
5%

BNE
CLR
18T
T1STB
8PL
MOVB

32$
as$TkKS
(SP)+
asTkS
318
2$TKB,-(SP)

$AISTIT A CONTROL-S?
N
s :BRANCH IF
¢+ :DISABLE TTY KCYBOARD INTERRUPTS
:sCLEAN CHAR OFF STACK
ssWAIT FOR A CHAR
:sLOOP UNTIL ITS THERE
..GET THE CHARACTER

Mov

318
#100,a$TKS

..gEgNABLE TTY KEYBOARD INTERRUPTS

INC
CMP
BLT
CMP
86T
BIC

S$TKCNT
(SP) ,M140
4$
(SP) ,.M75
4
#40, (SP)

CMP

sUPDATE THE POINTER
$TKQIN
STKOIN.#STKOEND ..60 OFF THE END?
sBRANCH IF NO
5%
#STKASRT ,STKQIN ; SRESET THE POINTER

CMP

BIC
CMP

OO NO

S 1,8
—=SOO~N

b
ol
) b e

\PV?F’U“A
SN oo

b
e
b

b ad

NON)
—b

b wd and e

b cudd

oo
OO OOMONONON O

(elelelelalalalelelalelelelalelelelelalolelalelola (=
pourd

TTY INPUT ROUTINE

MOVB
MOV
RTI

(SP) ,#23

#4C177, (SP)
(sp>+ F7X]

(SPJ+,a$TKQIN

s cEXIT

MAKE IT 7-BIT ASCII
::1S IT A CONTROL-Q?
s sBRANCH IF NO
ETURN

sCOUNT THIS CHARACTER
..IS IT UPPER _CASE?
:BRANCH IF YES

:3IS IT A SPECIAL CHAR?
..BRANCH IF YES
:MAKE IT UPPER CASE

..AND PUT IT IN QUEUE

s sRETURN

t*ttttttt*tttttti**itttttttttllttttttttfitttttttiittttfitttt.tttt

*SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
:#CALL WHEN OPERATING IN ;TY INTERRUPT MODE.

016274 022737 000176 001140 $CKSWR: CMP
016302
016304
016310
016312

001124
105777
100121
117746

016326

001300

162634

162630

016316 042716 177600
016322 021627 000007

BNE
TSTB
8PL
MOVB

BIC
CMP

BNE

#SWREG, SW

::1IS THE SOFT=SWR SELECTED

15%
a$TKS
15$
@8TKB,-(SP)

SSEXIT IF NOT
SIS A CHAR WAITING?
::1F NOT, EXIT
SYES

..1F NOT, PUT IT IN THE TTY QUEUE

#4C177,(SP)
(SP) 4%

PIMAKE IT 7-BIT ASCII
$31S IT A CONTROL=-G?
AND EXIT

ttfitttttttttttfitttttttttttttttfifittttttttttttttttfitttttittt'tttt

'CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

016330 123727 001134 000001

016336
016340

001674
005726

016360
016364

104401
104401

016374

104402

016342 004737 015774
016346 005077 162572
016352 112737 000001 001135
017204
017211

016370 013746 000176

*«ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
6;C0NTRO%;288EING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
BEQ
1ST

JSR
CLR
Movs

TYPE
$GTSWR: TYPE

MoV

TYPOC

SAUTOB, #1

2;ARE WE RUNNING IN AUTO-MODE?

PC, $7KINT
asiK
n SINTAG

..FLUSH THE TTY INPUT QUEUE
sDISABLE TTY KEYBOARD INTERRUPTS
:$SET INTERRUPT MODE INDICATOR

23
(SP)+

+SCNTLG
L SMSWR

SWREG,=(SP)

..BRANCH IF YES
sCLEAR CONTROL-G OFF STACK

..ECHO THE CONTROL=G (“G)
sTYPE CURRENT CONTENTS

..SAVE SWREG FOR TYPEQUT

::G0O TYPE--OCTAL ASCII(ALL DIGITS)

SEQ 0067

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 18-2
TTY INPUT ROUTINE

~SMNEW

;sPROMPT FOR _NEW SWR

162526
177600

asTKB,-(SP)

:sPICK UP CHAR

021627
001015
104401
06

000003

(SP) ,#3
9%

000137

:21S IT A CONTROL=C?
J2BRANCH IF NOT
:2YES, ECHO CONTROL-C (“C)
J:CLEAN UP STACK
:sREENABLE TTY KEYBOARD INTERRUPTS?
: :BRANCH IF NO
::ALLOW TTY KEYBOARD INTERRUPTS
:2CONTROL=C RESTART
2:1S 1T A CONTROL-U?
s sBRANCH IF NOT

017222

016406
016412

105777
100375

162532

016414
0164620

117746
042716

016424

000025

9$:

CMP

%SP).#ZS

017177
000006

20$:

ADD

000015

108:

CMP

2852
N

N
~
~
~

021627

000737

021627

017172
000006
001135

000001
162464

OO
ONOr

162370

015170
000060

15%:

o
o

000100

000001

001135

oS[ X ]

162412

000002
000006

RT]

000067

-—bd

o
o

000667
104401
000720

#100,3$TKS

PC,STYPEC

(SP) ,#60

000060
000002

aad e
ad oy e
—d e

LSCNTLU

000004

=4
(=]
W

SRRRTEER
RS
SO
NO &

#4C17%,(SP)

JMP

b =l

TST8

)

78:

~(SP)
-(SP)
a8TKS
78

8s:

-—b

N vivawviuaiwvaiviawna
r

CLR

000100
001766

o OONONONONONONON

OO0LOOOOOOOOOOOOOOOOO0O0O0O0000O
b amd cad il and wnd wud wnd wod nd cnd w=d cud onb b a=b

6502

19%:

LSCNTLC
#6,SP
#1
$INTAG,
8s
#100,38TKS
START

o
L=4

005046

58
53

d cnd wd

) canl

(elolelelelela)

RTREEX »
2LERks
onoON

104401
005046

016376
016402

000002
177776

178:

001206

18$:
.DSABL

INC
BR

TYPE

B8R
LS8

:sCLEAR COUNTER
::THE NEW SWR
:sCHAR THERE?
s:IF NOT TRY AGAIN

ssMAKE IT 7-BIT ASCII

::YES, ECHO CONTROL-U (*U)
s IGNORE PREVIOUS INPUT
ssLET'S TRY IT AGAIN
2218 IT A <CR>?
:2BRANCH IF NO
J:YES, IS IT THE FIRST CHAR?
::BRANCH IF YES
::SAVE NEW SWR
J:CLEAR UP STACK
:2ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?
::BRANCH IF NOT
:sRE-ENABLE TTY KBD INTERRUPTS
22RETURN

1 8$

:SBRANCH IF YES

208

::BRANCH IF YES
::STRIP-0OFF ASCII
:2]1S THIS THE FIRST CHAR
::BRANCH IF YES
2:NO, SHIFT PRESENT
CHAR OVER TO MAKE
2
ROOM FOR NEW ONE.
22
JsKEEP COUNT OF CHAR
22SET IN NEW CHAR
2:GET THE NEXT ONE
::TYPE 2<CR><LF>
:2SIMULATE CONTROL-U

(SP) 467
188
#60, (SP)+
2(SP)
178
(SP)
(SP)
(SP)
2(SP)
~2(SP),(SP)
78
$QUES

::t.tttt.tttltttttttttttttt'ttltttlttttfi.l!ttttttttttttltttll.ttt

RMB0 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 18-%
CZRNIAO
TTY INPUT ROUTINE

SEQ 0068

)

:'Egif ROUTIME WILL INPUT A SINGLE CHARACTER FROM THE TTY
.

v
w
‘e

016636

011646

016656
016660

012746
000002

016662

005737

015764

016670
01667«
016702

005337
117766
005237

015764
177070
015770

016724

000002

016640 016666 000004 000002
005066 000004
016646
016652 005046
016662

016666

001775

$SRDCHR: MOV

:
648

1$:

000004

016706 023727 015770 015773
016714 001003
016716 012737 015772 015770

RDCHR
RETURN HERE

28:

;:GET A CHARACTER FROM THE QUEUE
*3CHARACTER IS ON THE STACK
S:WITH PARITY BIT STRIPPED OFF

(SP) ,~(SP)

;;PUSH DOWN THE PC AND

#64$,-(SP)

:3PUT NEW PC ON STACK
1:POP NEW PC AND PS

*STHE PS
*:GET READY FOR A CHARACTER
$SPUT NEW PS ON STACK

MOV
CLR
CLR

4(SPJ,2(SP)
4(SP)
-(SP)

STKCNT

::WAIT ON A CHARACTER

DEC
MOVB
INC

STKCNT
@$TKQOUT.4(SP)
$TKQOUT

:DECREMENT THE COUNTER
..ser ONE CHARACTER
SUPDATE THE POINTER

MOV
RTI
BEQ

CMP
BNE
MOV
RTI

$TKQOUT, ltIKOEND ..DID 17 GO OFF OF THE END?
s sBRANCH IF
2$
#STKQSRT,$TKQOUT :;RESET THE POINTER
: SRETURN

ttttlttttttIitttttttttttt'tttt'.ttfittttfifi'tttfilttfitttttitt*tttt

:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
;*CALL:

o
A

016726

016730 005046
016732 012703 017162
016736 022703 017172
101456
104410
112613

016754

001022

016760
016762
016770
016774
017000

001007
112737
104401
012716
005303

016750 122713 000177
016756

017014

017020
017022
017024

104401

000746
005716

001406

017026 112737
017034

104401

017040

005016

#177,(R3)

TST

(SP)

017046

001003

6$:

BNE
Mova
TYPE
MOV
DEC

cMP
Move
BLO

0317160

TYPE

5%:

000134 017160

017160

017042 122713 000025

..BR IF YES
;G0 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER

CMPB

017160

017002 020327 017162
017006 103434
017010 111337 017160

10$:

BNE

(SP)+,(R3)

63
#'\,9%
.93
#=1,(SP)
R3

R3IASTTYIN
43
(R3),9%
9s

sCLEAR THE RUBOUT KEY
..GET ADDRESS
::BUFFER FULL?
..IS IT A RUBOUT
::BR IF NO

..IS THIS THE FIRST RUBOUT?

:BR IF NO
;:TYPE A BACK SLASH

..SET THE _RUBOUT KEY
sBACKUP BY ONE

..STACK EMPTY?
:BR_IF YES
..SETUP TO TYPEOUT THE DELETED CHAR.
:GO TYPE

S
(SP)

::G0 READ ANOTHER CHAR.
..RUBOUT KEY SET?

Mova

#'\,9%

$iTYPE A BACK SLASH

CLR

(SP)

sCLEAR THE RUBOUT KEY

BR
TST

BEQ

TYPE

78:

..ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
:sTERMINATOR WILL BE A BYTE OF AL. 0'S

..SAVER3

-(SP)
#STTYIN,R3
#STTYIN*B.,R3

18:
2s:

BLOS
RDCHR
MOovB

SINPUT A STRING FROM THE TTY

R3,-(SP)

CLR
MoV
CMP

005716

000134
017160
177777

RETURN HERE

SROLIN: MOV

010346

016742
016744
016746

RDLIN

CMPB

BNE

#25,(R3)
8s

:BR_IF

..IS CHARACTER A CTRL V?
::BR IF NO

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 18-4

SEQ 0069

TTY INPUT ROUTINE

017050

104401

017177

017056
017062
017064
017066
017072

122713
001011
105013

000022

017054 000726
104401
104401

TYPE

8s:

001207
017162

017076 000717
017100 104401 001206
017104 000712
017106
017112
017116
017122

111337
104401
122723
001305

017160
017160
000015

017130
017134
017136

104401
005726
012603

001210

017124

017140

105063

48:
38:

017160
017161

017162
017172
017177
017204

017211
017222

012766
000002

017162

98:

000

015
040

103
125
107

012
040

MOVB
TYPE
(MPB
BNE

(R3).9%
.98
#15,(R3)+
2

TYPE
TST
MOV

.SLF
(SP) +
(SP)+,R3

BR
TYPE
B8R

MOV

000004

000

136
136
136

TYPE
TYPE

MOV

011646

015
015
015

123
116

STTYIN:
SCNTLC:
SCNTLU:
SCNTLG:
SMSWR:
SMNEW:

$CNTLU

#22,(R3)
3$
(R3)
,SCRLF
STTYIN

CMPB
BNE
CLRB

CLRB

177777

017142 016666 000004 000002

017150
017156

23
$QUES
is
=1(R3)

(SP) ,~(SP)

4(SPS ,2(SP)

MOV
RTI

#STTYIN,L(SP)

BYTE

.BYTE

.BLKB
.ASCIZ
.ASCIZ
.ASCIZ

8.
/*C/<15><12>
/%U/<15><12>
/%6/<15><12>

.ASCIZ
.ASCIZ

::TYPE A CONTROL 'V'’

::60 START OVER

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

Y3IS CHARACTER A '**R'%
*:BRANCH IF NO
::CLEAR THE CHARACTER

SSTYPE A "CRTM & ‘LF
YSTYPE THE INPUT STRING

1360 PICKUP ANOTHER CHACTER
SSTYPE A '2°
$3CLEAR THE BUFFER AND LOOP
$3ECHO THE CHARACTER

:3CHECK FOR RETURN
*:LOOP IF NOT RETURN

*:CLEAR RETURN (THE 15)

SSTYPE A LINE FEED
L3CLEAN RUBOUT KEY FROM THE STACK
*SRESTORE R3

1SADJUST THE STACK AND PUT ADDRESS OF THE

FIRST ASCII CHARACTER ON IT

: sRETURN

1 :STORAGE FOR ASCII CHAR. TO TYPE

*:TERMINATOR

::RESERVE 8 BYTES FOR TTY INPUT
::CONTROL ‘'C"
+:CONTROL 'V
::CONTROL 'G"’

CZRNIAO RM80 DUAL PORT PT2 HACR? V04.00 15-JAN-82 07:13:40 PAGE 19

SEQ 0070

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

T L L
L

bbb bbbtiiniviiiibdiiiibiadriaiiiivibdvi

*THIS ROUTINE WILL REA, AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE IT TO BINARY,
;*THE INPUT CHARACTERS W'LL BE CHECKED TO INSURED THEY ARE LEGAL

A *'?'' WILL BE TYPED
*«OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ

:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

:*THEN BE RETYPED. THE "MPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
*CALL

M
o

7236

816666

000004

000002

MOV

1$:

010037

017362

122716

000060

017300

122716

000067

MoV
MOV
MOV
RDLIN
MOV
MoV

Etg

2s:
017272

RETURN HERE

$SRDOCT: MOV

017256

RDOCT

MOVB

000012
017372

[ =T

000000

3s:

001206

5$:

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

(SP)+ RO
RO,5%

..PUSH RO ON STACK
::PUSH R1 ON STACK
..PUSH R2 ON STACK
:READ AN ASCIZ LINE
..GET ADDRESS OF 1ST CHARACTER
2:AND SAVE IT

(RO)+,-(SP)

::PICKUP THIS CHARACTER

NPUT NUMBER

J:CLEAR DATA WORD

ASL

Jovh

ASL

;28

8IC
ADD

#~C7,(SP)
(SP) + ,R1

::STRIP THE ASCII JUNK
..ADD IN THIS DIGIT

TST

(SP) +

..CLEAN TERMINATOR FROM STACK

(SP)+,R2
(SP) +,R1
(SP)+ R0

::POP STACK INTO R2
:2POP STACK INTO R1
..POP STACK INTO RO

(SP)+
(RO)

..CLEAN PARTJAL FROH STACK
J2SET A TERMINATOR
::TYPE UP THRU THE BAD CHAR.

MOV
MOV

MOV
MoV
MOV

..PROVIDE SPACE FOR THE

:21F ZERO GET OUT
::MAKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

ROL

177770

[ O (=]

\hg n
o
~
SRERG
=4
W
-N

[=] 88 ord
Qb
) =bd b

SO
o

010166
010237

[« -]

SNNSNNN

VVNQVV‘
~N~g
[V W g
J5gseG

017334
017340

042716

(SP) ,=(SP)

4(sP5.2(SP)

3s
#'0,(SP)
48
#'7,(SP)
43
R1

ROL

017322

22LOW ORDER BITS ARE ON TOP OF THE STACK
::HIGH ORDER BITS ARE IN SHIOCT

BEQ
CMPB
BGT
CMP8
BLT
ASL
ROL

::READ AN OCTAL NUMBER

RT]

TST
CLRB
TYPE

MORD

$HIOCT: .WORD

R2
R2

P 3

R1,12(SP)
R2,$HIOCT

3
74

;LOOP

22SAVE THE RESULT

;RETURN

*STRY AGAIN

::HIGH ORDER BITS GO HERE

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 20

SEQ 0071

SAVE AND RESTORE RO-R5 ROUTINES

.SBTTL

SAVE AND RESTORE RO-R5 ROUTINES

::tttttittttifittttttttttttt'ttttt.tfitfitttt..t'ttttt."lttt.t.tttt

:#SAVE RO-R5

seCALL:
:* %
SAVREG

;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
:t

;#TOP===(+16)

ie 42===(+18)
% +4==<RS

:t +8-==R3
;x+10=-==R?2
sx+12-=-=R1
;%+14--=R0

$SAVREG:

017374

017374 010046
017376 010146
0176400 010246
0176402 010346
017404 010446
0176406 010546
0176410 016646
017414 016646
017420 016646
0174246

017430

016646
000002

000022

000022
000022

MOV
MOV
MoV
MOV
MOV
Mov
MOV
mov
MOV
Moy
RTI

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

R2,=-(SP)
R3,-(SP)
R4 ,-(SP)
RS.-(SP)

22(SP) ,=(SP)

22(SP) ,=-(SP)

22(SP) ,=(SP)
22(SP) ,-(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
:2PUSH R3 ON STACK
:2PUSH R4 ON STACK
::PUSH RS ON STACK
::SAVE PS OF MAIN FLOW
2:SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
:.SAVE PC OF CALL

:*RESTORE RO-RS

017432

017432
017436
017442
017446
017452
017454

012666
012666
012666
012666
012605
012604

017466

000002

017456
017460
017462
017464

J*CALL:
o
RESREG

000022
000022
000022
000022

$RESREG:

MOV
MoV
MOV
MOV

MoV
Mov
MOV
MoV
MoV
MOV

012603
012602
012601
012600

.SBTTL

RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)

(SP)+,RS
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+,R0

::RESTORE PC OF CALL
2:RESTORE PS OF CALL
22RESTORE PC OF MAIN FLOW
J:RESTORE PS OF MAIN FLOW

::POP STACK INTO RS
::POP STACK INTO R4
2:POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R}
::POP STACK INTO RO

TRAP DECODER

:;ltttttttitttttttttttt"tt't'fitttfitttttfifittfittttt'.tt'ttfi.t.ttt'

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE **TRAP'* INSTRUCTION
:«AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;%GO TO THAT ROUTINE.

017470
017472
017476
017500

010046
016600
005740
111000

000002

$STRAP:

MOV
MOV
TST
Mov8

RO.-(SP)
2(SP) ,R0O
=(R0O)
(RO) ,RO

::SAVE RO
2:GET TRAP ADDRESS
: :BACKUP BY 2
::GET RIGHT BYTE OF TRAP

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 20-1

SEQ 0072

TRAP DECODER

ASL
MoV

017502 006300
017504 016000 017524
017510

RTS

000200

017512

011646

017522

000002

017514 016666 000004 000002

RO
,RO
$TRPAD(RO)
RO

;;POSITION FOR INDEXING
;;INDEX TO TABLE
2:60 TO ROUTINE

:sTHIS IS USE TO HANDLE THE '‘GETPRI'’ MACRO
::MOVE THE PC DOWN
(SP) ,=(SP)
$TRAP2: MOV

MOV
RTI

.SBTTL

4(SP5,2(SP)

*IMOVE THE PSW DOWN
{SRESTORE THE PSW

TRAP TABLE

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE '‘TRAP'' INSTRUCTION.
:

017524 017512
017526 015020
017530 015336

017532 015312
017534 015352
017536 015540
017540 016364

0175642
017544
017546
017550
017552
017554

016274
016636
016726
017234
017374
017432

ROUTINE

$TRPAD: .WORD STRAP2
;:CALL=TYPE
$TYPE
STYPOC ::CALL=TYPOC

TRAP+1(104401)

STYPOS ::CALL=TYPDS
STYPON ::CALL=TYPON
$STYPDS ::CALL=TYPDS

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

;:CALL=GTSWR

TRAP+6(104406)

$GTSWR

$CKSWR ::CALL=CKSWR
SRDCHR - :CALL=RDCHR
SROLIN ::CALL=RDLIN
SRDOCT -:CALL=RDOCT
$SAVREG ::CALL=SAVREG
SRESREG ::CALL=RESREG

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

TYPE DECIMAL NUMBER (WITH SIGN)

GET SOFT-SWR SETTING

TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) SAVE R0O-RS ROUTINE
TRAP+14(104414) RESTORE RO-RS ROUTINE

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 21

SEQ 0073

TELETYPE MESSAGES
b

.SBTTL

3 017556
& 017605
5 017630
6 017657
7 017706
8 017753
9 017773
10 020022
11 020057
12 020106
13 020154
14 020211
15 020246
16 020317
17 020337

200
040
200
200
200
012
040
200
012
200
200
200
200
200
200

105
077

120
120
123
105
077
012
105
12%
12
123
124
123
123

116
111
117
117
131
116
111
122
116
105
127
127
110
126
124

TELETYPE MESSAGES

<CRLF>/ENTER DRIVE ADDRESS: /
/ ?INVALID ADDRESS/<CRLF>
PORTAIS: .ASCIZ <CRLF>/PORY ‘A’ ADDRESS IS: /
PORTBIS: .ASCIZ <CRLF>/PORT 'B°' ADDRESS IS: /
NOCLOCK: .ASCIZ <CRLF>/SYSTEM MUST HAVE ‘L' OR 'P' CLOCK/<CRLF><LF>
TESTNO: .ASCIZ <LF>/ENTER TEST #: /
BADNO: .ASCIZ / ?INVALID TEST NUMBER/<CRLF>
ADDRIS: .ASCIZ <CRLF><LF>@RH/RM ADDRESS (RMCS1) IS: @
.ASCIZ <LF>3ENTER RH/RM ADDRESS: @
NTRH:
SWTCHN: .ASCIZ <CRLF>3RETURN °'PORT SELECT' SWITCH TO °‘A/B°d
SWTCHA: .ASCIZ <CRLF>/SWITCH °'PORT SELECT® TO ‘A‘/
SWICHB: .ASCIZ <CRLF>/SWITCH ‘PORT SELECT' TO ‘8B'/
CONTUE: .ASCIZ <CRLF>/THEN PRESS °‘CONTINUE' ON THE PROCESSOR/<CRLF>
CYCLED: .ASCIZ <CRLF>/STOP THE DRIVE/
CYCLEU: .ASCIZ <CRLF>/START THE DRIVE, THE PROGRAM WILL WAIT FOR °'MOL‘ TO SET/<CRLF>

ENTERA: .ASCIZ
ADRERR: .ASCIZ

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 22

TEST ERROR MESSAGES

3 020431

104

122

111

5 020520

120

117

122

4 020477

127

122

047
m
104

107
116
122

117
103
111

17 021530

123

18 021571
19 021654
20 021737

21 022010
22 022106

23 022201
24 022261
25 022324
26 022355
27 022423
28 022453
29 022537
30 0226
31 022673
32 022760
33 023041
34 023116

124
124
122
105

.ASCIZ

QPORT SELECT SWITCH ON DRIVE NOT IN 'A/B'd

.ASCIZ
LASCIZ

11 021102
12 021147
13 021216

101
101
104

/DRIVE IS NON-EXISTENT (°'NED‘ BIT SET)/

EM4:
EMS:

111
122

14 021303
15 021365
16 021451

.ASCIZ

122
105

11
11
105

EMI:

EM2:

104
123

124
124
122

TEST ERROR MESSAGES

117

6 020571
7 020613

8 020675
9 020747
10 021014

.SBTTL

115
115
101

124
124
111

114

EM3:

EM14:
EM15:
EM16:

.ASCIZ
.ASCIZ
.ASCII

/DRIVE NOT ON LINE/
/SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/
/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/
/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/
/READ IN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/
/°'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 ‘UNLOAD'/
/DRIVE NOT IN NEUTRAL AFTER UNLOAD, WITH °‘PORT/<CR><LF>

/DRIVE LOCKED ON PORT 'A' BY SWITCH WHILE CYCLED uP/
/DRIVE LOCKED ON PORT °'B' BY SWITCH WHILE CYCLED UP/
/STATUS INCORRECT FOR PORT AFTER CYCLE UP/

EM6:
EM7:
EM10:

EM11:
EM12:
EM13:

LASCIZ
LASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

+ASCIZ

104
104
123

122
122
124

111
111
101

EM17:
EM20:
EM21:

.ASCIZ
.ASCIZ
.ASCIZ

104
122
104
127
122
103
103
104
104
122
104
122

122
110
122
122
105
117
101
122
122
105
122
105

111
057
111
117
107
116
116

EM24:
EM25:
EM30:
EM31:
EM32:
EM33:
EM34:
EM35:
EM36:
EM37:
EM40:
EM41:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

122
047

105
116

107
105

111
111
107
111
107

/WRONG DRIVE TYPE/

EM22:
EM23:

.ASCIZ
.ASCIZ

QSELECT® SWITCH MOVED FROM ‘A/B*' @

/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 PORT/
/WRONG STATUS SEEN BY THE SEIZING PORT/
/REGISTER CONTENTS WRONG/
/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/
/CAN'T AC%ESS 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 IN NEUTRAL AFTER RELEASE - REQUEST SET/
/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/

SEQ 0074

CZRNIAQO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 23

SEQ 0075

TEST ERROR MESSAGES

1 023174
2 023245
3 02331
4 023370
5 023417
6 023464
7 023512
8 023541
9 023577
10 023660

11 023677
12 023743
13 024002
14 0264011
15 024047
16 024133
17 024172
18 024227
19 024265
20 024324
21 024362
22 024446
%2 024505

124
124
124
124
124
040
124
040
124
124

040
124
044
040
124
040
124
040
124
040
124
040
124

105
105
105
105
105
040
105
040
105
105

040
105
122
040
105
040
105
040
105
040
105
040
105

123
123
123
123
123
040
123
040
123
123

040
123
115
040
123
040
123
040
123
040
123
040
123

27 024544

001242

001116

29 024576
30 024612

001242
001242

001116
001116

31 024622
32 024634
33 024644

34 0264662
35 024670
36 024702
37 024706
38 024726
39 024740
40 024752
41

42 024764
43 024771
44 024777
45 025004
46 025007
47 025013
48 025021
49 025023
30 025024
g; 025033

DH14

DH17:
DH24:
DH25:
DH30:
DH34:
DH35:

DH37:

DH4O:

ASCIZ
.ASCIZ
LASCIZ
LASCIZ
ASCIZ
ASCII
LASCIZ
JASCII
LASCIZ
.ASCIZ

/TEST #
/TEST #
/TEST #
/TEST #
/TEST #
/
/TEST #

ERR
ERR
ERR
ERR
ERR

PORT #

ERR

PORT #/

/TEST #
/TEST #

ERR
ERR

REG ADR CONTENTS/

PORT #

REG ADR GOOD

REG ADR PORT A
/

PORT 8/

PORT # TIME (IN MS)/
SEIZE/<CRLF>
ERROR/<CRLF>
PORT # REG ADR CONTENTS/
JTCHED TO/<CRLF>

.ASCII
LASCIZ
.ASCIZ
.ASCI1l
.ASCIZ
.ASCII
.ASCIZ
.ASCIl
LASCIZ
.ASCI1
.ASCIZ
.ASCII
LASCIZ

ERR
/TEST
/SRMADR/
/
/TEST # ERR
/
/TEST # ERR
/
/TEST # ERR
/
/TEST # ERR
/
/TEST # ERR

.WORD

TSTNUM,SERRPC,PTNBR,$BDADR,$SBDDAT,0

RT ¥/

ERROR/<CRLF>
PORT # REG ADR GOOD

Pog; B8/<CRLF>
TR/;CRLF)

ERROR/<CRLF>
PORT # REG ADR GOOD
RASTNG/<CRLF>
PORT #/

.EVEN

gg
28 024560

DH1:
DHZ:
DH5:
DH6:
DH7:
DH13:

001242

001242
001242

001242

0012642
001242
001272
001242
001242
001242
001242
000
000
000
000
000
000
000
000
000
000

001116

001116
001116

001116

001116
001116
000000
001116
001116
001116
001116

001234

001234
001122
001234
001234
001236

DT1:

.WORD
.WORD
.WORD
.WORD
WORD

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

TSTNUM,SERRPC,0
TSTNUM,SERRPC,SEIZPT,PTNBR,0
SRMADR,O
0
TSTNUM,SERRPC,SEIZPT,PTNBR $BDADR,$GDDAT,$BDDAT
TSTNUM,SERRPC,$TMP2,$TMP3,
TSTNUM,SERRPC,SEIZPT,PTNBR,0
TSTNUM,SERRPC,SEIZPT,OPPRT,0

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YIE
.BYTE

0,0,1,0,0
0,0,1,0,0,0
0,0,0,0,0
0,0.1
0,0.1.1
0,0,1,1,0,0
0,0
0
0.0,1,1,0,0,0
0,0,0,

001236 DT14:
000000
001236

001236

001170
001236
001236

000
000
000
000
000
000
000

001
001
000
001
001
001

000
000

001
000

,$BDDAT,0
TSTNUM,SERRPC,PTNBR,SBDADR,SGDDAT
$GDDAT,$BDDAT,0
$BDADR
TSTNUM,SERRPC,
TSTNUM, SERRPC,PTNBR,
TSTNUM,SERRPC ,PTNBR,TIME,O
TSTNUM,SERRPC,SEIZPT,0

DT2:
DOT5:
DT6:
DT7:
OT13:

DF1:
DF2:
DF5:
DFé:
DF7:
DF14:
DF17:
DF25:
DF30:
DF34:

.WORD

TSTNUM,SERRPC.SEIZPT,PTNBR,$BDADR,$BDDAT,0

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 24

SEQ 0076

CONSTANTS, TABLES, ETC

.SBTTL

CONSTANTS, TABLES, ET(

TSTADR:

.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
-WORD

:STARTING ADDRESS
:STARTING ADDRESS
sSTARTING ADDRESS
sSTARTING ADDRESS
:STARTING ADDRESS
sSTARTING ADDRESS

:STARTING ADDRESS

%% 025070

000011

MAXTN:

.WORD

000200

040
100
200

200

;ATTENTION B 1

sMAXIMUM TEST NUMBER

sATTENTION B 1
sATTENTION 8 I
cATTENTION B 1
sATTENTION B 1
SATTENTION B 1
SATTENTION B I
;ATTENTION 81

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

ATABIT:

001
002
004
010
020

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

NOWVS WO

sATTENTION BIT TABLE

11 025060
12 025061
13 025062
14 025063
15 025064

16 025065
17 025066
}g 025067

sSTARTING ADDRESS

PO
PN =D PNN) —
00000
OO

8
9
10

003112
004424

-t
-

025040
8%5042

= NJOMA
S NN —

;TABLE OF TEST STARTING ADDRESSES

né

SEQ 0077

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 24-1
SYMBOL TABLE

ADDRIS 020022
ADRERR 017605
ACE
= 001000
001232
ASR1
= 100000
ATA
ATABIT 025060
= 000001
ATO
= 000002
AT1
004
=
AT2
= 000010
AT3
AT4
= 000020

ATS
= 000040
AT6
= 000100
= 000200
AT7
A16
= 000400
= 001000
A17
017773
BADNO
BADTMO 001706
= 000010
BAI
BITO = 000001
BIT00 = 000001
002
8IT01 =
81702 = 000004
81703 = 000010
81704 = 000020
BIT05 = 000040
000100
=
17106
BI1T07 = 000200
81708 = 000400
81709 = 001000
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020
BITS = 000040
BIT6 = 000100
8117 = 000200
BIT8 = 000400
8119 = 001000
BPTVEC= 000014
CHANGE 002764
CHGADR 001270
CKCLK
013336
CKCLK1 013406
CKCLK2 013450
CKCLK3 013460
CKERR
001244
CKSWR = 104407
013470
CLOCK
= 000040
CLR
CONTUE 020246

CPSAVE 014454
= 000015
CR
CRLF_ = 000200
CYCLED 020317
CYCLEU 020337
= 100000
DCK
DDISP = 177570
= 000040
DE1__
DFF20 = 000002
024764
DF1
DF14
25013

DF17
025021
DF2
024771
025023
025
DF 30
025024
025033
DF 34
024777
DF5
025004
DF6
025007
DF?7
023174
DH1
023464
DH13
023541
DH14
023660
DH17
023245
DH2
023677
DH24
DHZ5
024002
024011
DH30
DH34
024133
DH35
024227
DH37
026324
DH40
024446
023321
DH5
DHé
023370
DH7
023417
DIGB = 000004
DISPLA 001142
DISPRE 000174
DLT
= 100000
DL64 = 000020
oMD
= (000001
DPE
= 000010
DPR
= 000400
DRQ
= 004000
DRY
= 000200
DSWR = 177570
DTE
= 010000
D700 = 000001
D701 = 000002
D702 = 000004
pT03 = 000010
D704 = 000020
L7105 =
000040
DT06 = 000100
D107 = 000200
D708 = 000400
024544
T
D113
024634

DT14
D117
D72
D124
D125
D730
DT34
DT35
D140
DI5
DTé

024644
024662
024560
024670
024702
024706
024726
024740
024752
024576
024612

D17
024622
DVA
= 004000
= 000200
ove
ECH
= 000100
= 004000
ECI
EMTVEC= 000030
020431
EM1
021014
EM10
021102
EMI1
021147
EM12
021216
EM13
021303
EM14
021365
EM15
021451
EM16
EM17
021571
020477
EM2
EM20
021654
EM21
021737
EM22
022010
EM23
022106
022201
EM24
EM25
022261
E
- 020520
EM30
022324
EM31
022355
EM32
022423
EM33
022453
EM34
022537
EM35
022606
EM36
022673
EM37
022760
EM4
020571
EM4O
023041
EM41
023116
EM5
020613
EM6
020675
EM7
020747
ENTERA 017556
ERR
= 040000
ERROR = 104000
ERRVEC= 000004
EXEC
002610
FER
= 000020
FMT16 = 010000
= 000002
FO
F1
= 000004

= 000010
F2
= 000020
F3
Fé&
= 000040
= 000001
e,
= 000010
GRV
GTSWR = 104406
= 000200
HCE
= 002000
HCI
HCRC = 000400
= 000011
HT
IAE
= 002000

IBSAVE 014456
IE
= 000100
= 000001
ILF
ILR
= 000002
JOTVEC= 000020
= 000100
IR
IvC _ = 010000
KYBCTL 001266
= 002000
LBC
= 002000
L8T
= 000012
LF
= 004000
LSC_
025070
MAXTN
MCPE = 020000
MDPE = 000400
= 020000
MOH
MoL
= 010000
MXF
= 001000
NBA
= 100000
NED
= 010000
= 004000
NEM_
NOATA = 000000
NOCLOC 017706
NOSEIZ 001246
NTRH
020057
OFD
= 000200
OPE
= 020000
oPI
= 020000
OPPRT
001240
OR
= 000200
PAR
= 000010
PAT
= 000020
PFECH
014656
PFECH1 014666
PFECH2 014750
PFECH3 015002
PFECH4 015012
PFTSTN 015016
PGE
= 002000
PGM
= 001000
PIP
= 020000
PIRQ = 177772
PIRQVE= 000240
001224
PORTA
PORTAI 017630
PORTB
001226

PORTBI 017657
001230
PORTC
PRO
= 000000
= 000040
PR1
= 000100
PR2
= 000140
PR3
= 000200
PR4
= 000240
PRS
= 000300
PR6
= 000340
PR?
PS
= 177776

PSEL = 002000
PSW
= 177776
001234
PTNBR
PWRVEC= 000024
RDCHR = 104410
RDLIN = 104411
RDOCT = 104412
= 000200
RDY
RELERR 001250
RELOK = 000001
RESREG= 104414
RESVEC= 000010
RMAS = 000016
RMBA = 000004
RMCS1 = 000000
RMCS2 = 000010
RMDA = 000006
RMDB = 000022
RMDC = 000034
RMDS = 000012
RMDT = 000026
RMECT = 000044
RMEC2 = 000046
RMER1 = 000014
RMER2 = 000042
RMLA = 000020
RMMR1 = 000024
RMMR2 = 000040
RMOF = 000032
RMR
= 000004
RMSN = 000030
RMWC =_000002
R6
=%000006
R7
=%000007
SAVREG= 104413
SC
= 100000
SCOPE = 000004
SCO0
= 000100
SC1
= 000200
sC2
= 000400
SC3
= 001000
SC4__
= 002000
SEIZPT 001236
= 100000
SKI
STACK = 001100
START
001766

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15~JAN-82 07:13:40 PAGE 24-2
SYMBOL TABLE

TEST3 005244
TEST4 006026
TESTS 0067644
TEST6 007662
TEST7 010730
001252
TIME
TIMEA 001256
TIMEAP 001260
TIMEB 001262
TIMEBP 001264
TKVEC = 000060
TOLER 013522
TPVEC = 000064
TRAPVE= 000034
TRE = 040000
TRTVEC= 000014
TSTADR 025040
TSTNUM 001242
003112
ST
TST1AA 003074

START1 001776
START2 002004
STKLMT= 177774
014104
sTOP
001140
SWR
SWREG 000176
SWICHA 020154
SWICHB 020211
SWICHN 020106
sw0 = 000001
Swo0 = 000001
sw01l = 000002
sSw02 = 000004
sSw03 = 000010
swo4 = 000020
SW0S = 000040
swoé = 000100
sw07 = 000200
sSw08 = 000400
sSw09 = 001000

1ST10 012002
013106
TST11
004424
1872
005206
1813
005770
1ST4
006706
1875
007624
1ST6
010672
1817
TYPDS = 104405
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
UNS = 040000
UPE = 020000
= 000001
= 000002
vl
= 000004
U3
= 000100
Vv
VVSET = 000001

= 000002
swl
sw10 = 002000
swil = 004000
swi2 = 010000
swi3 = 020000
Swi4 = 040000
swi5 = 100000
sw2 = 000004
sw3 = 000010
sw4é = 000020
swS = 000040
swé = 000100
sw? = 000200
sw8 = 0004600
sw9 = 001000
TAP_ = 040000
TB1TVE= 000014
TESTNO 017753
003150
TESTT
TEST10 012040
TEST2

004462

. ABS.

025072

000000
ERRORS DETECTED:

WATCH

001254

000

001

VIRTUAL MEMORY USED:

54784 WORDS

DYNAMIC MEMORY AVAILABLE FOR

( 314 PAGES)

71 PAGE

+A:CZRNIA/C=A:CZRNIA.DOC,CZRNIA,SYSMAC/M

WCE = 040000
WCF = 000040
WLE = 0046000
WRL = 004000
$SAUTOB 001134
$8DADR 001122
$BDDAT 001126
$BELL 001202
$CHARC 015306
$CKSWR 016274
$CMTAG 001100
$CM1 = 000001
$CM2 = 000002
$CM3 = 000001
$CM4 = 000005
$CNTLC 017172
$CNTLG 017204
SCNTLU 017177
S$CRLF 001207
$DBLK 015754
$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL
SEOP
SEOPCT
$ERFLG
SERMAX
$ERROR
$ERRPC
$ERRTB
SERRTY
$SERTTL
$ESCAP
SFILLC
SFILLS
$GDADR
$GDDAT
$GET42

013326
015744
013316
013154
013332
013110
013146
001103
001115
014132
001116
001276
014460
001112
001200
001156
001155
001120
001124
013306

SEQ 0078
$GTSWR 016364
$GT42P 013302
$HD = 000000
$HIOCT 017372
SICNT 001104
$INTAG 001135
SITEMB 001114
001210
SLF
$LKCSB 001214
SLKCSR 001212
001220
$LKS
SLLVEC 001222
SLPADR 001106
SLPERR 001110
SLPVEC 001216
SMNEW 017222
SMSWR 017211
SMXCNT 014102
SNULL 001154
SNWTST= 000000

SOCNT 015534
$SOMODE 015536
SOVER 014066
$PASS 001100
$QUES 001206
$RDCHR 016636
SRDLIN 016726
$SRDOCT 017234
$RDSZ = 000010
$SREGAD 001160
SREGO 001162
SRESRE 017432
SRMADR 001272
SRMVEC 001274
SRTNAD 013330
$SAVRE 017374
$SCOPE 013550
$SETUP= 000127
$STUP = 177777
$SVLAD 014056

$SVPC = 000210
$SWR = 16600
$SWRMK= 000000
$TIMES 001176
001146
$TKB
S$TKCNT 015764
$TKINT 015774
$TKQEN= 015773
$TKQIN 015766
$TKQOU 015770
$TKQSR 015772
001144
$TKS
$TKSRV 016044
$TMPO 001164
$TMP1 001166
$TMP2 001170
$TMP3 001172
$TMP4 001174
$TN = 000012
001152
$1PB

$TPFLG 001157
001150
$TPS
STRAP_ 017470
$TRAP2 017512
$TRP = 000015
S$TRPAD 017524
STSTNM 001102
S$TTYIN 017162
$TYPDS 015540
$TYPE 015020
STYPEC 015170
$TYPEX 015310
$TYPOC 015336
STYPON 015352
$TYPOS 015312
$XOFF = 000023
$XON_ = 000021
$XTSTR 013572
$$GET4= 000000
$OFILL 015535

SEQ 0079

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE S-1
CROSS REFERENCE TABLE (CREF v04.00 )
$$GET4
SOFILL
$40CAT

$AUTOB
$BDADR

$BELL
$CHARC

SCKSWR

$CM1
$CM2

$CM3
$CM4
SCMTAG

SCNTLC
SCNTLG
SCNTLU
$CRLF
$DBLK
$DOAGN
$OTBL
SENDAD
SENDCT

SENULL

$EOP
SEOPCT
SERFLG

SERRTB

SERRTY

SERTTL
SESCAP
$SFILLC
SFILLS
$GDADR
$GDDAT

10-1
16-1
12-1
6-0#
6-0#
9-165+

18-1#
6-0
6-0
6-0
6-0
6-0#
6-0#
18-1
18-1
18-1
6-0#
15-1
17-1
10-1
17-1
5=5
9-23
10-1#
9-440
9-23+
6-0#

8-0#
13-1
6-04
6-04
6-0#
6-0#
6-0#
6-0x

1§

1
1

9-28+
9-150+
9-165+
9=275*
9=439¢

6-0

10-1#

6-0

6-0#

6-04

6-0#

13-1

14-1

14=1

14-1

15-1

12-1

12=1¢

13-1

13-1«

14-1

23-27

23-28

23-29

23-30

23-31

6-0

9-23

13-1

9-440+

10-1+

13-1

12-1

13-1

12-1

13-1x

23-32

SEQ 0089

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN~-82 07:13:40 PAGE S-2
CROSS REFERENCE TABLE (CREF v04.00 )

$GET42
$GT42P
$GTSWR
$HD
SHIOCT
$ICNT
S$INTAG
SITEMB
SLF
$LKCSB
$LKCSR
$LKS

SLLVEC
$LPADR
SLPERR
SLPVEC
SMAIL
SMNEW
SMSWR

SMXCNT

10-1#
10-1
18-1#
4-510
19-1#
6-0#
6-0#
6-0#
6-04
7=-0#
=04
7-0#
7=-04
6-0n
12=-1+
6-04
7-04
9-23
18-1
18-1
12-1

—

9-23+

9-137«

9-215+

9-216+

9-274+

9-275+

9-295+

9=439+

9=-440*

12-1

9=77«

9-137+

9=215«

9-216%

9=274+

9-275+

9-295+

9-439

9=439¢«

9-440

9-440¢

13-1

15-1

19-1

18-1#

20-2

SROLIN
S$RDOCT

18-1#
19-1#
18-1
6-0#
6-04
20-14

20-2
20-2
18-14

20-2
20-2

SREGAD

SRESRE

SRMADR
SRMVEC

SRTNAD
$CAVRE
$SCOPE
$SETUP

7=-04
7=-04

20-2
9-68

19-1

9=76*

SRDCHR

$RDSZ

19-1

9-102

9-109+

9-112

9-134

23-36

10-1#
20-14
9-23

46994
$SVP(
$SWR

12~1

4-699#

SEQ 0081

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15~JAN-82 07:13:40 PAGE $-3

MBRmekE

v L]

]
~L

|72l L

5«

[7a)

*@ ~oM

CROSS REFERENCE TABLE (CREF V0&. 00)

&«

o -«

(= «

-—

-«

¢
¢
£
£
~ -«

-«

0 L]

~N 3 «

a)L

[oVgVa]

N ®

R & %

(1Ia¥~oV]

oo
oot

20-2

S$TRAP2

-— —

[Val =

J
o[

o«

b
d

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE S-4
CROSS REFERENCE TABLE (CREF v04.00 )

STYPOC
STYPON
STYPOS
S$XOFF

16-1#
16-1
16-1#
15-1

4=5138

12-1

13-1

SEQ@ 0082

wnor

NOO

oNONO
gl UVal

4Ualah

wnor

ohAMd

0NN -

0NN -—
NN -

NnNON -

LBJ

- NN
- NNy

[Y-0]N

OO -

&«

0NN -

WnNo- 0\—

NOO

CROSS REFERENCE TABLE (CREF v04.00 )

wno

SEQ 0083

CZRNIAO RM8O DUAL PORT PT2 MACRN V04.00 15-JAN-82 07:13:40 PAGE S-5

9-23

8-227

8-120

8-127

8-134

8-185

23-424

8-89

8-118

8-125

8-132

8-183

23-1#

9-216

9-274

9-275

8-70

8-91

8-220

23-464

8-68

23-504

9-23+

12=1«

13=1¢

9-165

9-215

9-302

9-307

9-439

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE $-6

SEQ 0084

CROSS REFERENCE TABLE (CREF v04.00 )

9-215

9-216

9-274

9-275

8-55

8-62

8-69

8-90

8-119

8-126

8-133

8-184

23-274

8-112
8-27

23-344
8-170

8-177

23-28#

23-37#

DRY

3—2{6’

9-165

DSWR
D100
D101
D702
D103

4~5134
4~6264
4=6274
4=628#

6-0

9-23

DT1

8-6

8-20

DT13

46294

8-76

8-83

8-98
23-334

23=32#

D717
DT2

8-105
8-13

D730

8-163

8-212

8-226

D135

8-198

8-205

23-39#

DTS5
DT6
D17
DTE

8-34
8-41
8-48
4-6014
4=5664
4=6514
4=5954
L=~6624
8-4

23294
23-304
23-31#

- %4
8-131
8-138
8-145
8-18
8-161
8-168
8-175
8-182
8-189
8-196
8-203
8-210

22=214
22-224
22-234
22-24#
22=54
22-254
22-264
22-27#
22-28#
22-29#
22-30#
22-34
22-324

DVA
pvC
ECH
ECI

EM1

EM22
EM23
EM24
EM25
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36

EM37

22-34

9-302

9-307

9-439

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE S-7

SEQ 0085

CROSS REFERENCE TABLE (CREF V04.00 )

EMb
EMLO
EM4T
EMS
EM6
EM7
EMTVEC
ENTERA
ERR
ERROR
ERRVEC

EXEC

FO
3
F2
F3
Fé
ER
FMT16

GNS

GO
GRV
GTSWR
HCE
HCl
HCRC
HT
1AE
IBSAVE
IE
ILF
ILR
IOTVEC
IR
1vC
KYBCTL

LBC
LBT
LF
LSC
MAXTN
MCPE
MDPE
MOH
MOL
MXF
NBA
NED
NEM
NOATA

8-25
8-217
8-224
8-32
8-39
8-46
4=5134
9-31

22-6#
22-334
22-34#
22=74
22-8#4
22-9#4
9-23«
21-3#4

4~S5134

9-23

9-23+

9-65#

9-215

(-584#
4=-5134
-1e

4~561#
L-562#
&-5634
L-5644
4=5654
L£=5934
4-6634

5-1
20-2
20=2
4=-5604
L=5734
9-28
4-5964

4-6614
L=5974

£-5134
L=-599#4
13-1
4=-S19#
4-589%4
4=5904
4=5134
L=5424
L=6540
7-0#
9-295¢«
4=-6524
4=-580#
4=-5134
4=-653#4
9-85
4=524A

4=5440
L-6364

(~-582#
9=439

4=545#
4-6384
4-5484
L=S47H
8-2324
=302

12=1+

9-215
§5-1
20-2
20-2

9-216
9-6

20-2

9=25+

9-439
9-28
20-2

9-26+
13-1+
9-274

11-5¢

11-6+

11=15+

1124+

12-1

9-275

9-295

9-439

9-440

10-1

19-440

9-440

20~2

2
20-2

20-2
20-2

12-1

12-1¢

12=1¢

20-2
20-2

20-2#

15-1

13-1

923+

9-23¢

9=73x
9-308
151

13-1

13-4

13=1¢

13-1¢

9-91+
9-439

9-137
9-439

9=137+
9-439+

9-215
9-440

9-215+
9=-440+

9-216
10-1

9-216*

9-274

9-274r

9-275

9-275¢«

9-295

15-1

21-7

21-8

21-10

21-11

22-16

9-302

9-307

9-439

9-275

9-302

24=224

9-165
9-439

9-215
9-439

9-215
9-440

9-216
9-440

9-274
9-440

9-275

9-150

9-439

9-440

9-215
9-302

9-216

9-216
9-307

9-274
9-307

9-274

9-275

9-307

SEQ 0086

CZRNIAQ RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE S-8
CROSS REFERENCE TABLE (CREF V04.00 )

fx
~

Y TAUVY Iy
YV

MO - wne=ANMM M BR

—ANOr

MeENAMNMBOO—NOT RO

- Me=ANOT WO

R VO

SEQ 0087

CZRNIAQ RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE $-9
CROSS REFERENCE TABLE (CREF V 064.00 )
9-106

20-24

o 100

oO][} oO oO][} MwnoO =-«

][} NO

9-302+

9-307+

9-307¢

oO]) rO-« oO4] oO «- oO] MN &- oO MN «& oO -« oO &-»

-« -«

oo100

2lNOO=&

MY &«

NOO

«&

&«

O-—ANM$

- R XK

[] IW ]

goo

&«

# & &R L Rtk Rk

3 [7¢] o

~OM
oo
0P
4]O NO(=3
oo~
00 1
oNOO

9-302+

—

-—

«&¥

n xF

- NN

«®

-N-

-—

-y—

-—

OG0 g—

oM 8—

SEQ 0088

La]

XNNVNNLNSWN
OO0 XXWWW
RWW
N ——~=
BIIIIIIIZIIIZIIIT IIIICOWWW

CZRNIAQ RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE $-10
CROSS REFERENCE TABLE (CREF V 06.00)

-o )

SEQ 0089

9-47

< —

YUVIVY(g 7]

2>33 OT

20-2#

[

]

[+%

]

)

]

o [ [T v
[}

[}

[=]

M
L.a]

[]

[.a]
~M

[}

o~
L]
L.a)
o

L[]

o~
»M

o~
M
o~

o~
~M
o

OO NN
a5

obPVNVebTWNOMNC2Z §0800

o~
M
o~

CROSS REFERENCE TABLE (CREF V064.00 )

RNSOV

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE $-11

(2 M[]
[}

N 1.a] [ o
[}

SEQ 0090

CZRNIAQ RM80 DUAL PORT PT? MACRO V04.00 15-JAN-82 07:13:40 PAGE M-1
CROSS REFERENCE TABLF (CREF V 04.00 )
6-0

6-0

20-2

NN WNe ANO & 0 - — — - NN

Ry kR LR R R

O =0
O Or—r—MEr
RONMN
NO ...-..
I =NOOOO
—O0000OOOO0O0OOO
....
..-...
-.....
......
..-...
......
-.....

-N~~y Nyo()] O-~N—O-TM

20-2#

-AN~—O3N 4M—DNO

N o OM

-—

b
3

CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE M-2

SEQ@ 0091

M NO

oS Noe—O
-yL¢a%

oNOOD

-0\ N

-3
[TalaV]

=== L ¥ ¥0o0aadow

Lal

CROSS REFERENCE TABLE (CREF Vv06.00 )

-— 0

~¥