Digital PDFs

AH-T121A-MC

2000

Number of pages unknown

Original

47MB

view download

OCR Version

65MB

view download

Document:	CZRNIA0 RM80 DU PORT TST PT 2 JUL 1982 bw
Order Number:	AH-T121A-MC
Revision:	000
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_gray.pdf

OCR Text

R"BO

PU PORT 15T PT 2
CZRNIAO

RE-T1z21A-AC
FICHE

1 OF 1 waoe 1n usa

BDBEN

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

WLAINI

NI NN NI NI NI NN == e ccd =d b cd b b b b

+REM

SEQ 0001

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 DIGITAL EQUIPMENT
NOT
SHOULD
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOFTWARE 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;lé}fi{l.l" OF ITS

CORPORATICN ASSUMES NO RESPONSIBILITY FOR THE USE OR
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

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

ABSTRACT
REQUIREMENTS

N
NN

PREREOUISITE PROGRAMS
OTHER PROGRAMS

LOADING PROCEDURES
STARTING PROCEDURES
4.1
4.5
4.3

STARTING ADDRESSES
UNIBUS & VEC. R ADDRESSES
OPERATOR ACTION

OPERATING PROCEDURES

5.1
S.g
5.3
5.6

PNONININI

NN =

b e ed b b d b ed b

% EQUIPM

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

ERRORS
MISCELLANEOUS

7.1

RESTRICTIONS

7.4
7.5
7.6

REQUIRED TESTS
DISK SURFACE USAGE
LOOP ON ERROR OPTION

TEST DESCRIPTIONS

SEQ 0002

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

SEQ 0003

ABSTRACT

THE _RM80 DUAL PORT LOGIC TEST PERFORMS A SERJES OF
TESTS WHICH VERIFY THAT THE RM80 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.

1
1
}

THIS PROGRAM IS THE SECOND PART OF THE RM80 DUAL PORT
OPTION LOGIC TEST, AND IS USED TO TEST THE 'PORT SELECT"

1
1

SWITCH.

}

REQUIREMENTS

2.1

EQUIPMENT
PDP-11/70 PROCESSOR
8K MEMORY
KW11=L OR KW11=-P CLOCK
TERMINAL
RH70 CONTROLLER
1 - RMB0 DISK DRIVE

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

2.2

PREREQUISITE PROGRAMS

RM80 DISKLESS TEST, PART 1 & 2

BBBDHDSD

RM80 FUNCTIONAL TEST, PART 1, 28 3
RM80 DUAL PORT LOGIC TEST, PART 1

THE PRELIMINARY PROGRAMS MUST BE RUN TWICE:
EACH PORT (A & B).
2.3

55
56
57

OTHER PROGRAMS

DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED

23
g; |

ONCE FROM

BY THE RM80 PERFORMANCE EXERCISER PROGRAM.
3.

LOADING PROCEDURES

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

SBUWN=O

STARTING PROCEDURES

4.1

STARTING ADDRESSES

C.
4.2

SEQ 0004

E NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION
200(8) STARTING AT THIS ADDRESS ALLOWS THE OPERATOR
gg %Eg;g; (OR RESELECT) THE ADDRESS OF THE DRIVE T0
THE RESTART ADDRESS IS LOCATION 204(8).

WILL USE THE CURRENT DRIVE ADDRESS.

THE PROGRAM

THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW
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
FROM ANY OF THE STARTING LOCATIONS.
MEMORY

CONTENTS

FUNCTION

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
KW11=L STATUS REGISTER
KW11=L VECTOR ADDRESS

OPERATOR ACTION

B.
C.

D.
m

4.3

LOCATION

G.
x

b e b od

B S

BE INCLUDED IN AN °'XXDP' CHAIN.

b ek

b e

S8I
~N
SRR

d D

88 SRR e SRR R R RS II VNN IITEIRAFARZS TS

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

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 "80
LOAD THE APPROPIATE STARTING ADDRESS (2 (8)
INTO THE SWITCH REGISTER (OR THE °SOF TWARE® SUITCH REGISTER
5.2.)
SEE SECTION
PRESS STAR

ENTER THE DRI VE NUMBER.

ENTER THE NUMBER OF THE TEST TO BE RUN.

OR 0" WILL RUN ALL TESTS.)

(°'CARRIAGE RETURN'

E PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED

FROM LOCATION 204.

d =D o D omd omed =D

b b

JITSAEARRER 23

b —d o

oD cd cd e

e e and b b = cd cd D b D ad b D b =D

VIV
B B BB BN SN W
WN=OO
VoONONW SUNNL=O VRNV

SEQ 0005

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 REGIST;R. 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 RM80 INTERRUPT. THE
*SOFTWARE® SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:
'SWR = NNNNNN

—

NEW ='

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

NN
W
NN
b
gfl&mgunggufifimwadOOONOM

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

DURING SWITCH ENTRY.

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

5.2

OPERATIONAL SWITCH SETTINGS

WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE

ALL ERRORS AND CONTINUE TESTING.
THE SWITCH SETTINGS ARE:

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

HALT ON ERROR
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
ER:' MESSAGE. . ANY VALID TEST NUMBER CAN BE
TEST T NUMBER:
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.
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

THE

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

WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE

NNNNNNN

TYPED AND WILL BE SEPARATED BY '\' FROM THE CHARACTERS
ENTERED BY THE OPERATOR.

e e

SRS sa\dg\flSEUO
SSISeSRS S8EROREN2STEIRARlflfihflggahb‘flf\flti
VO NOWVSWN=O

SEQ 0006

5.4

000000

)

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A
*CONTROL V' .
~

TEST CABLE CONNECTION

e e

WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST,

e R

e e

—

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

OF THE RM80 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS.

THE DRIVE APPEARS AS TWO UNITS ONTHE MASSBUS: EACH PORT

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

ADDRESS PLUG.

OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE).

B S

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

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

+*
*

(3222322222223 2322233312323 32282323833dddiiiiiiiiiiddiiiiidt

THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL

DEPEND ON WHICH PROCESSOR,

RH CONTROLLER IS TO TEST THE DRIVE.

IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON P(RT

Hs
J
CUNNECT THE MASSBUS CABLE FROM THE RH CONTROLLER TO
R4 ADAPTER BACK PANEL, THEN CONNECT THE TEST CABLE (PIN. 70 507-02)

FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT B A

b e

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

220

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

229

TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN

232
23
%345

A.
B.
C.

THE FOLLOWING:

%gg

236
237

238

341
242

243

944,
245

9
52
248

CALLWAS MADE

CONTENTS OF THE APPROPIATE REGISTERS

MISCELLANEOUS

7.1

RESTRICTIONS

70 RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KW11-P

ADDITIONALLY, THE RM80 UNDER
TEST CABLE CONNECTED MUST HAVE THE DUAL PORT
OR A KW11=L CLOCK.

250

249
7.2

TEST

LIMITATIONS

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

254
255

PORT OPTION.

258

ggz.

' ERROR
NUMBER
TEST
THE
1.
THE
WHERE
VALUE)
2. THE PC (PROGRAM COUNTER
3.

260
261

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

7.3

EXECUTION TIME

7.4

REQUIRED TESTS

THE PROGRAM TAKES ABOUT 7 MINUTES PER PASS (DEPENDING ON
OPERATOR INTERVENTION EFFICIENCY).
IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE

265

266

OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER

269
270

27
974
275

ggg

TESTS ARE RUN:

BEFORE TESTS & = 10 ARE RUN.

%;9

%;g

7.5

DISK SURFACE USAGE

THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE

DRIVE MUST BE CYCLED UP AND ON-LINE FOR THE DIAGNOSTIC TO BE

%gs
83

TEST 4 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.

280

584

TEST 2 AND TEST 3. THESE TESTS SET 'VV=A' AND 'VV-B8'
RESPECTIVELY. THESE TESTS MUST BE PERFORMED AT LEAST ONCE

7.8

LOOP ON ERROR OPTION

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

IF_SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST

UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING.

BECAUSE THE PROGRAM MUST RESET THE RMB0 TO A KNOWN STATE
BEFORE LOOPING ON THE ERROR, THE TEST FOR SU<09> IS PERFORMED

GISTgETEggfigF THE TEST = NOT AT THE POINT WHERE THE ERROR
TEST DESCRIPTIONS

8.1

"DPR', & 'DRY'.)

IF NEITHER PORT SEES ALL ZEROS réon -

RMDS, 'THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL
AND THAT ANY BIT DISCREPANCY BETWEEN PORTS INDICATES A
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
ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST 1 .o

b
b
b
d e

THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRiVE

HAS BEEN SEIZED BY THE SPECIFIED PORT.

d
— e

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
'PGM’,
THROUGH BOTH PORTS. ( THE CORRECT STATUS IS °MOL',

VONOWVSWN=O

WINWNWWNWWWWNW

S R

286
287
288
%gg

320

TEST 1

DRIVE ACCESS TEST

VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS
A.

SELECT DRIVE. VERIFY THAT THE DRIVE IS PRESENT, THAT THE
DRIVE IS A’DUALPORT RMB0, THAT THE DRIVE IS ONLINE (RMDS HAS

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

THE TEST IS REPEATED THROUGH BOTH PORTS.

TEST 2

SET 'VV' FOR PORT A

SET VOLUME VALID
A,

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A.

ISSUEA READIN PRESET COMMAND THROUGH PORT A. VERIFY

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

THAT THE °‘VV' BIT IS SET FOR PORT A.

SEQ 0008

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

SEQ 0009

BIT IS SET.

342
3

SET 'VV' FOR PORT B

%29

TEST .

%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 B.

VERIFY

BIT IS SET.

357

%23

TEST &

gg%

MEASURE THE TIMEOUT ONE=-SHOT VALUE THROUGH PORT A

MEASURE THE TIMEOUT ONE=-SHOT THROUGH PORT A

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

364

367

8. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT

370

ggg

DRIVE HAS BEEN SEIZED.

ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

ggg
371

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

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B8

TEST 5

376

MEASURE THE TIMEOUT ONE=-SHOT VALUE THROUGH PORT B

©o

& \#W
EEERERBRERSEIN

%;g

WRITE 0°'S INTO RMDS THROUGH PORT 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.

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

TEST 6

TEST 'PORT SELECT® SWITCH, DRIVE CYCLED UP

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

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

392
393

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

888y

395

PORTS, ARE CORRECT.

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

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

THE DRIVE STATE.

TEST 7
TEST

SEQ 0010

VERIFY

TEST 'PORT SELECT' SWITCH LOCKED ON PORT A

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

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.

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

lsggsTAADRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH
VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND
'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH
PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING 0°S
«

INTO RMDS THROUGH PORT B.

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

VERIFY THAT THE

TEST 10 TEST °PORT SELECT' SWITCH LOCKED ON PORT B
TEST

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

CYCLE THE DRIVE DOWN.

SWITCH TO PORT 'B' POSITION.

VERIFY THAT THE DRIVE IS IN

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

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

WHEN THE DRIVE CYCLES UP, VERIFY THAT °'VV-B IS RESET, AND
THAT ‘ATA-B IS SET.

153851A3°RlVE'CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND
'NED® SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH
PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING 0°'S
INTO RMDS THROUGH PORT A.

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

VERIFY THAT THE

SEQ 0011

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 3-8
CYCLE THE DRIVE DOWN.

CHANGE THE 'PORT SELECT' SWITCH TO

457

460

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

zgg

‘4:21

A/B; CYCLE THE DRIVE UP.

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

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

SEQ 0012

;*LAST REVISION 04=AUG-81

soa

JTITLE

510

cznuon RM80 DUAL PORT PT2

t«DIGITAL EQUIPMENT CORPORATION
-cOLonAoo SPGS., C0. 80919
tPROGRAH BY MIKE LEAVITT
THE PDP=11 MAINDEC SYSMAC
-rnxs PROGRAM WAS ASSEMBLED gsxns

tPACKAGE (MAINDEC=11=DZQAC=C5)
.SBTTL OPERATIONAL SWITCH SETTINGS

511

513

.SBTTL
001100

104000
000004

000011

177776

14
11

USE

-—

HALT ON ERROR

LOOP ON TEST

INRIBIT ERROR TYPEOUTS
INHIBIT ITERATIOMS

BELL ON ERROR

LOOP ON ERROR

BASIC DEFINITIONS

:*INITIAL ADDRESS OF THE STACK POINTER %% 1100 #w+

STACK

ERROR
SCOPE

000012
000015
000200

SWITCH

......

-81

= 1100

= EMT
= IOT

::BASIC DEFINITION OF ERROR CALL
$3BASIC DEFINITION OF SCOPE CALL

; *MISCELLANEOUS DEFINITIONS

LF
CR
CRLF
PSW=PS

=11

::CODE FOR HORIZONTAL TAB

=12
= 15
= 200

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

= 177774
= 177772
= 177570
= 177570

..STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
: SHARDWARE SWITCH REGISTER
: HARDWARE DISPLAY REGISTER

= 177776

..Paocesson STATUS WORD

177774
177772
177570
177570

STKLMT
PIRQ
DSWR
DDISP

000000

000001
000002
000003
000004
000005
000
00000

R1
R2
R3
R&
RS
R6
R7

= %0

: :GENERAL REGISTER

000007

= X7

::PROGRAM COUNTER

000000

000040

- *GENERAL PURPOSE REGISTER DEFINITIONS

= ¥
= 12
= 13
= %%
= %5
= %6
= %7

: SGENERAL REGISTER
: SGENERAL REGISTER
: SGENERAL REGISTER
+ 3GENERAL REGISTER
: SGENERAL REGISTER
: ;GENERAL REGISTER
: ;GENERAL REGISTER

:«PRIORITY LEVEL oerxnxtlons

PRO

PR1

= 40

PRIORITY LEVEL 0
+:PRIORITY LEVEL 1

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

SEQ 0013

[=l=l=l=l=l]

UMY ——

BASIC DEFINITIONS

OITOITOr

([MaleleleleleleleleleleleT]Ulelelelelelelelelal=]

NITIONS (BITOO TO BIT15)
o

S*ySy‘SRSNeleRlOIT—MeeoDeeNlNOe0TMelNeIl—e=eNP

OG(o) SD)BGa()eo8) P38G3oB8t8GrmngG8—]S8oG8cbcocGc0Bo

][

000

IST ER'* SWITCH DEFINITIONS
000
00
00
00
0
0
0

PR]

L <.| “.Wwooom

V(FO=oY

23588

GSgoLl

SEQ@ 0014

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

BASIC DEFINITIONS

514
515
516
517
518
519
520
521

522
523
524
525
526

527
528
529
530
531
5
53
534
535

536
537
538
539
540
541

00002
00001
000004
000002
000001

BIT4=BIT04
BIT3=BIT03
BIT2=BIT02

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060

ERRVEC

RESVEC = 10
TBITVEC = 14
TRTVEC = 14
BPTVEC = 14

= &

IOTVEC

000240

PIRQVEC = 240

000100
000200
000400
001000
002000
020000
040000
100000

EMTVEC = 30
TRAPVEC = 34
TKVEC = 60
TPVEC = 64

..xnpur/ouwur TRAP (IOT) **SCOPE*+
:POWER FAIL

..gguwoa TRAP (EMT) *+ERROR%#*
“TRAP'' TRAP
*TTY KEYBOARD VECTOR
..m FRINTER VECTOR

::PROGRAM INTERRUPT REQUEST VECTOR

RH CONTROLLER REGISTERS

I1E

RDY
A6
A17
PSEL
MCPE
TRE
sC

= 100

= 200
= 400
= 1000
= 2000
= 20000
= 40000
= 100000

s 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)
MASSBUSS PARITY ERROR (BIT #13)
TRANSFER ERROR (BIT #14)
:SPECIAL CONDITION (BIT #15)

;WORD COUNT REGISTER (RMWC)
s (EACH BIT IS CALLTD BY BIT NUMBER)

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

;CONTROL AND STATUS REGISTER 2 (RMCS2)
000001
000002
000004
000010
000028
00004

sUNIT SELECT (BIT #°

BAI

=10

BUS ADDRESS INCREMENT INHIBIT (BIT #3)

000400

MDPE
MXF
PGE
NEM
NED
UPE
WCE
DLT

3
547

002000
004000

551

PWRVEC

;TIME OUT AND OTHER ERRORS

..Resenvso AND ILLEGAL INSTRUCTIONS
T BIT
:STRACE TRAP
..anmpomr TRAP (BPT)

sCONTROL AND STATUS REGISTER 1 (RMCS1)

000100
000200

548
549
550

;#BASIC *'CPU"" TRAP VECTOR ADDRESSES

.SBTTL

Slog
54
544

em=ano1

81T0=BIT00

010000
020000
040000

100000

ul
u3

PAT

CLR
IR

=2
=4

= 20

= 40

= 100

= 200

= 400
= 1000
= 2000
= 4000
= 18000
= 20000
= 40008
= 100000

;UNIT SELECT (BIT #1)
;UNIT SELECT (BIT #)

MASSBUS PARITY TEST (BIT #4)

'CLEAR (BIT#5)

s INPUT READY (BIT #6)

:OUTPUT READY (BIT#7)

:MASS BUSPARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BIT #9)
:PROGRAM ERROR (BIT#10)
:NON EXISTENT MEMORY (BIT #11)
;NON_EXISTENT DRIVE (BH n2)
;UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
:DATA LATE (BIT #15)

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

SEQ@ 0015

RH CONTROLLER REGISTERS

581

004000

585
586
587
588
589

590
9N
592
593

594

595

596

597

598
599
600
601
gg

604

i
60

608

so BIT (BIT #0)

-runcuon CODE BIT §

=2
= 40
= 4000

*FUNCTION CODE an I
*FUNCTION CODE BIT #5
*DEVICE AVAILABLE (BIT #11)

F
Fé
DVA

FUNCTION CODE BIT #1

= 18

sFUNCTION CODE BIT
#

001000
002000

010000
020000
040000
100000

DFS

DRIVE FORWARD 5'‘/SEC.

DIGB

:DRIVE TO INNER GUARD BAMD (BIT #2)

DFF20

GRV

L6
DE1
w

DRY
DPR
PGM
LBT

WRL
MOL

PIP
ERR

:DRIVE FORWARD 20°‘/SEC.

=10
=20

= 40
= 100

= 200
= 400
= 1000
= 2000

= 4000
= 10000

= 20000
= 40000

o
S
S
S
S

000100
000200
000400

582
583
584

ooo

576
577
578

579
580

:DRIVE STATUS REGISTER (RMDS) (#01)

o9
wViss

567
568
569
570

000001
000002
000004
000010
000020
000040
004000

365
566

RMB0 REGISTERS

:CONTROL AND STATUS 1 REGISTER. (#00)

56
564

.SBTTL

Sb%

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

55
33
554
355
556
557
558
559
560
561

(BIT #0)

(sn 1)

:GO REVERSE (BIT #3)

*DIFFERENCE LESS THAN 64 (BIT #4)
:DIFFERENCE souu.s 1 (BIT #5)
:VOLUME VALID (BIT m

:DRIVE READY (BIT
#7)
*DRIVE PRESENT (BIT #8)
*PROGRAMABLE (BIT #9)
SLAST SECTOR TRANSFERRED (BIT #10)

*WRITE LOCK (BIT #11)
*MEDIUM ON-LINE (BIT #12)

sPOSITIONING OPERATION IN PROGRESS (BIT #13)
*COMPOSITE ERROR (BIT#14)
;ATTENTION ACTIVE (BIT #15)

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

ILF

sILLEGAL FUNCTION (BIT #0)

000004
000010
000020

RMR
PAR
FER

=4
=10
= 20

sREGISTER MODIFICATION
REFUSED (BIT #2)
sPARITY ERROR (BIT #3)
sFORMAT ERROR (BIT #4)

000002

000040

000100

000200
000400

001000
002000
004000
010000
8%0000

700000

ILR

WCF
ECH
HCE
HCRC
AOE

1AE

= 40
=1
= 20
=4

= 1000

= 2000

WLE

UNS
DCK

84880
= 100000

DTE
0Pl

= 10000
= 20080

:ILLEGAL REGISTER (BIT #1)

;WRITE CLOCK FAIL (BIT #5)
;ECC_HARD ERROR (BIT #6)
:HEADER COMPARE ERROR (BgT #7)
:HEADER CRC ERROR (BIT #8)
sADDRESS OVERFLOW ERROR (BIT

sINVALID ADDRESS ERROR (BIT 010)

;WRITE LOCK ERROR (BIT #11)

:DRIVE_TIMING ERROR (BIT #12)
:OPERATION INCWLETE(BIT #M3)
:DRIVE UNSAFE (BIT #14)
:DATA CHECK ERROR (BIT 15)

sMAINTAINABILITY ncGISTER (RMMR1) (#03)
000001

DMD

sDIAGINOSTIC MODE (BIT #0)

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

SEQ 0016

RM80 REGISTERS

N =N =N =
(=d=l=l=1=]
oo

—

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

sDEVICE 0 (BIT #0)

(BIT #1)

DEVICE

VICE 2 (BIT lg)
VICE 3 (BIT #3)
DE

:DEVICE & (BIT #4)
:DEVICE 5 (BIT #5)
(8 IT #6)
:DEVICE
:DEVICE 7 (BIT #7)

sDESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05)

s (EACH BIT IS CALLED BY BIT

sDRIVE

8l
8l
NUMBER 8l

:DRIVE REOUEST REOUI
:MOVING HEAD (BIT
:TAPE DRIVE (BIT ‘l

V0O NOWVIS
NN —

e e

DRIVE TYPE NUMBER g{

D105
D106
D107
D108
DRQ
MOH
TAP
NBA

=10
=20
= 40
= 100
= 200
= 400
= 4000
= 20000
= 40000
= 100000

;DRIVE TYPE NUMBER 8l
8l

D (BIT M)

DTO.
DT04

=1
=2
=4

5-.

D100
DT01
D10

il
D

000001
000002
000004
000010
000020
000040
000100
000200

;DRIVE TYPE REGISTER (RMDT) (#06)

ERRRERRARATS

609
610
611
61
61
614
615
616
617

;NOT BLOCK ADDRESSED (BIT #15)

;LOOK=AHEAD REGISTER (RMLA) (#07)
sCo
SC1
SC
SC
SCé4

= 100
= 200
= 400
= 1000
= 2000

sSECTOR COUNT FIELD O (BIT #6)

;SECTOR COUNT FIELD 1 (BIT #7)

SECTOR COUNT FIELD ; (BIT #8)
sSECTOR COUNT FIELD 3 (BIT #9)

;SECTOR COUNT FIELD & (BIT #10)

sRM ERROR REGISTER #2 (RMER2) (#10)
DPE
pVv(C
LB8C
LSC
IVC
OPE
SK1

=10
= 500
= 2000
= 4000
= 10008
= 2000
= 100000

sDATA PARITY ERROR

DEVICE CHECK

#3)
(
;T

(BIT #

SS OF BIT CLOCK (BIT #10)
LO!:S OF SYSTEM CLOCK (B§T M

:INVALID COMMAND (BIT #12)
:OPERATOR
ERROR (BIT #13)
;SEEK INCOMPLETE (BIT #14)

;OFFSET REGISTER (RMOF) (#11)
#5)
sOFFSET FORWARD (BIT

OFD

ECI

FMT16

4000

= 10000

:HEADER COMPARE INHIBIT (BIT #10)
;ERROR_CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #1

;DESIRED CYLINDER ADDRESS (RMDC) (#12)

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

SEQ 0017

REGISTERS

ggg

s (EACH BIT IS CALLED BY BIT NUMBER)

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

.ECC POSITION REGISTER (RMEC1) (l‘lb)

674

.ECC PATTERN REGISTER (RMEC2) (#17)

s (EACH BIT IS CALLED BY BIT NUMBER)

675

s (EACH BIT IS CALLED BY BIT NUMBER)

.SBTTL

DEFINITIONS OF THE RH/RM ADDRESS INDEXES

RMCS1

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)

000014
000016

RMERT
RMAS

= 14
= 16

:ERROR REGISTER #1 (DRIVE REG. 02)
sATTENTION SUMMARY PSEUDO REGISTER_(DRIVE REG. 04)

2
000044

RMER
PMEC1

000000

683
685

687
689
690
691
692
693
695
697

000002
000004
000006
000010
000012

RMWC
RMBA
RMCS2

000020
000022
000024
000026
000030
000032
000034
000040

RMLA
RMMRT
RMDT
RMSN
RMOF
RMDC
RMMR

RMEC2

=2
=4
=6
=10
=12

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

= 46

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

:LOOK AHEAD REGISTER (DRIVE REG. 07)
:DATA BUFFER REGISTER (NOT A DRIVE REG.)
sMAINTAINABILITY REGISTER (DRIVE REG. 03)
:DRIVE TYPE REGISTER (DRIVE
R
06)
:SERIAL NUMBER REGISTER (DRIVE REG. 10
;OFFSET REGISTER (DRIVE REG. 11)
:DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)
s MAINTENANCE REGI TER #2 (DRIVE E 14)
:ERROR REGISTER#2 (DRIVE REG.
:ECC POSITION REGISTER (DRIVE REG. 19
sECC PATTERN REGISTER (DRIVE REG.

)

SEQ 0018

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

.SBTTL

TRAP CATCHER

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

s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT $

*LOCATION19‘C0NTA1NS
DISPREG: JWORD
JWORD
SWREG:

.SBTTL

TO CATCH IMPROPERLY LOADED VECTORS

0
0

STARTING ADDRESS (ES)

: :SOF TWARE DISPLAY REGISTER
::SOFTWARE SWITCH REGISTER

001766

JMP

ANSTART

::JUMP TO STARTING ADDRESS OF PROGRAM

001776

JMP

a#START1

:START AND CHANGE THE RH/RM ADDRESS

.SBTTL

ACT11 HOOKS

Qttttttttttttttttttttttt"ttttttttttfittttttttttttt.ttttttttttt.

HOOKS REQUIRED BY ACT11
ss‘zc .

:SAVE PC

sgrsag»

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

"WORD

~=$SVPC

20000

..msr LoC. sz TO 20000
P
: RESTORE

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

SEQ 0019

COMMON TAGS

.SBTTL

COMMON TAGS

3331222222222 222222233 3222322232228 3 2333032320

diiiiidiiddld)

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

.=1100

001100

001100
001100 000000
000
00110§

SCMTAG:
$PASS: .WORD
S$TSTNM: .BYTE

000000
000000
000000
000000
000
001
000000
000000
000000
000000
001126 000000
001130 000000

ICNT: .WORD
LPADR: .
SLPERR: .WORD
SERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
SERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD

00110

001104
001106
001110
001112
001114
001115
001116
001120
001122
001124

000

001132

000000

001140
001142

177570
177570

001150
001152
001154
001155

177564
177566
000
002

001134
88}}%2
001144
001146

001156
001157

001160

000
000

SERFLG: .BYTE

0
0
0

$BDDAT: .WORD
WORD

0
O

0
0
0
0
0
1
0
0
0
0
O

WORD

{

.WORD
SWR:
DISPLAY: .WORD

DSWR
DDISP

s sADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER

177564
$TPS:
177566
$TPB:
SNULL: .BYTE
$FILLS: .BYTE

0
2

17756
17756

SFILLC: .BYTE
$TPFLG: .BYTE

SREGAD: .WORD

000000

.WORD

001162 000000

SREGO:

001176 000000
001200 000000
001202
07
77
001209
015
00120
012
001210

STIMES: 8
SESCAPE:
S$BELL: .ASCIZ
$QUES: .ASCII
$CRLF: .ASCII
LASCIZ
SLF:

001164 - 000000
001166 000000
001170 000000
001172 000000
001174 000000

$TMPO:
$TMP1:
$TMP2:
$STMP3:
$TMP4:

377
000

377

s sCONTAINS ‘BAD® DATA
s ;RESERVED=-NOT TO BE USED

3sAUTOMATIC MODE INDICATOR
s s INTERRUPT MODE INDICATOR

$TKS:
$TKB:

012
000

s sCONTAINS ERROR FLAG

s sCONTAINS SUBTEST ITERATION COUNT
s sCONTAINS SCOPE LOOP ADDRESS
s sCONTAINS SCOPE RETURN FOR ERRORS
s ;CONTAINS TOTAL ERRORS DETECTED
s ;CONTAINS ITEM CONTROL BYTE
s ;CONTAINS MAX. ERRORS PER TEST
s sCONTAINS PC OF LAST ERROR INSTRUCTION
:;CONTAINS ADDRESS OF *GOOD*' DATA
s CONTAINS ADDRESS OF °'BAD' DATA
ssCONTAINS 'GOOD® DATA

0
8

$AU'UB: .BYTE
$INTAG: .S‘YJ‘E

177560
177562

ssSTART OF COMMON TAGS
s sCONTAINS PASS COUNT
:sCONTAINS THE TEST NUMBER

.WORD
.WORD
.WORD
.WORD
.WORD

ssTTY KBD STATUS
:sTTY KBD BUFFER
:sTTY PRINTER STATUS REG. ADDRESS
s:TTY PRINTER BUFFER REG. ADDRESS
s sCONTAINS NULL CHARACTER FOR FILLS

12
0

ssCONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A '}l'% FEED''
22" 'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)

:;CONTAINS ((SREGAD)+0)

O
O
0
0
0

s sCONTAINS THE ADDRESS FROM
ssWHICH (SREGO) WAS OBTAINED

s sUSER DEF INED
s sUSER DEF INED
ssUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
ssMAX. NUMBER OF ITERATIONS
s sESCAPE ON _ERROR ADDRESS
<207><377><377> ;;CODE FOR BELL
ssQUESTION MARK
/%/
: :CARRIAGE RETURN
<15>
:sLINE FEED
<12>
X

:;titttt.tt.ttltt.ltttt"tt't'tfi.t.tt't.tt.l'.l.t.tt..t..ttttlt'.

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

SEQ 0020

USER DEFINED TAGS

.SBTTL

001512

001214
001 18
001 g
001222
001224
001226
001230
001232
001232
001236
001240
001242
001244
001246
001250
001252

881254
1%56
001260
001262
001264
001266
001270

172540

1725642
104
177546
000100
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000

SLKCSR: .WORD

$LKCSB: .WORD
SLPVEC: .WORD
$LKS: .WORD
SLLVEC: .WORD
~ PORTA: .WORD
PORTB: .WORD
PORTC: .WORD
ASR1: .WORD
PTNBR: .WORD
SEIZPT: .WORD
OPPRT: .WORD
TSTNUM: .WORD
.WORD
CKERR:
NOSEIZ: .WORD
RELERR: .WORD
TIME: .WORD

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

001272

176700

001274 000254

USER DEFINED TAGS

;ADDR OF KW11=P STATUS aesxsren

172540

172542
104
177546
100
O
0
O
O
0
O
O
O
0
O
O
0
O
0
0
O
O
O
0

*ADDR OF KW11=P COUNTER BUFFER
*ADDR OF KW11=P VECTOR
*ADDR OF KW11=L STATUS REGISTER
SADDR OF KW11=L VECTOR
:ADDRESS OF PORT A
*ADDRESS OF PORT B
*ADDRESS OF DIFFERENT DRIVE
SATA=A OR ATA=8= 1
*CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS
*CONTAINS THE ADDRESS OF THE SEIZING PORT
*CONTAINS THE ADDRESS OF THE *OPPOSITE' PORT
*NUMBER OF THE CURRENT TEST
:IF =1, A REGISTER MISCOMPARISON OCCURRED
*IF =1, THE PORT IN *SEIZPT' DID NOT SEIZE THE DRIVE
“IF =1° THE PORT IN °*SEIZPT® DID NOT RELEASE THE DRIVE
SELAPSED TIME COUNTER
SWATCH DOS TIMER LOCATION
A
STHE TIMEOUT ONE=-SHOT VA%UE MEASURED THROUGH PORT
25%
*PORT A TIMEOUT VALUE+
*THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B
*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

sRH/RM UNIBUS ADDRESS

: INTERRUPT VECTOR ADDRESS

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

ERROR POINTER TABLETM.

.SBTTL

ERROR POINTER TABLE

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

:#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE lS PERTINENT.
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERR
;*NOTE1:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
; *NOTE2:
:®
o*
§®

;%
. 001276

$ERRTB

2
3
& 001276
5 001
6 001302
7 001304
8
9
10
11 001306
12 001310
13 001312
14 001314
15

sERROR ‘1

18 001316
19 001320
20 001322
21 001324
22
23
o4
25 001326
26 001330
27 001332
g% 001334

31
3% 001336
33 001340
34 001342
5 001344

gfl}

:DRIVE IS NON-EXISTENT (°NED' BIT SET)

..POINTS TO THE DATA FORMAT

;ERROR 2

024771

EM2
DH2
DT2
DF2

;WRONG DRIVE TYPE

Sfl?

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

ERROR 3

020520

DT
DF1

;ERROR &
020571
023245
024560
024771

s:‘

:DRIVE NOT ON LINE

sERROR 5
0206 3
023
024

Sflg

4612

sSERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME

DT5
DF5

0247

001346
gg
370
40 00135g 82

41 00135
42 001354

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

DT
DF1

EM
DH
DT

sERROR 6

s:g
D16
DF6

s TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS

SEQ 0021

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

ERROR POINTER TABLE
43
L)

020747
25
001%28 0 g617
49 001356
48 001362
001364
49
50
51

53 001366
54 001370
55 001372
56 001374
57
58
59
60 001376
61 001400
6% 001402
2‘ 001404
65
66

67 001406
68 001410
69 001412
;? 001414
72
73

74 001416
75 001420
76 001422
77 001424
78
79
80

81 001426
82 001430
83 001432
gg 001434
86
87

88 001436
89 001440
90 001442
31 001444

:ERROR 7

;TIMEOUT ONE=-SHOT IS LESS THAN 500 MS

4622
025007

021014
023174
024544
0247

;READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT

021102
023174
024544
024764

:'GO" BIT RESET DURING UNLOAD COMMAND

021147
023174
024544
0247

s INCORRECT STATUS DURING UNLOAD COMMAND

021216
02
024634
025

:DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND

021303
023541
024644
025013

sATTENTION BIT SET ON "OPPOSITE PORT' AFTER UNLOAD

021395
023174
024544
024764

sATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLOAD®

;DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH 'PORT
sSELECT® SWITCH MOVED FROM ‘A/B'

SEQ 0022

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

ERROR POINTER TABLE
100
101
10§

:ERROR 17

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

103 001456
104 001460
105 001462
106 001464
107
108
109
110 0014
111 001470
112 001472
113 001474
114
115

;ERROR 20

sDRIVE LOCKED ON PORT °'B' BY SWITCH WHILE CYCLED UP

:ERROR 21

116

v
vl

puar Qr G
g

3888

117 001476
118 001500
119 001502
120 001504
121
122
123
124 001506
125 001510
126 001512
127 001514
128
129
130
131 001516
132 001520
133 001522
134 001524
135
136
137
138 001526
139 001530
140 001532
141 001534
142
143
144
145 001536
146 001540
147 001542
148 001544
149
158

;STATUS INCORRECT FOR PORT AFTER CYCLE UP

:ERROR 22

sREGISTER CONTENTS SEEN WHEN DRIVE SWITCHED UN °OPPOSITE' PORT

;ERROR 23

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

;ERROR 24

;DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/

022201
023677
024670
025007

;ERROR 25

sRH/RM DIDN'T RESPOND TO ADDRESSING

022261
024002
024702
025023

;ERROR 26

g2
s

000000

sUNUSED ERROR MESSAGES

SEQ 0023

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

ERROR POINTER TABLE

KRS

sUNUSED ERROR MESSAGES

:ERROR 30

8888

Ul\flg\fl

:DRIVE NOT SEIZED BY PORT °N'

~
o

8288

b
b
—

024771

022453

sCONTROL BUS PARITY ERROR WHILE READING REGISTER

022537
024133
024726
025033

sCAN'T ACCESS DRIVE THROUGH EITHER PORT

;DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET

;ERROR 36
o

22673

p SO

oNONON

h prs
el cmd

SSSSP

SSSS

=
NN NN
OO
WA=

;WRONG STATUS SEEN BY THE SEIZING PORT

sREGISTER CONTENTS INCORRECT

3_.-.-.-.-.-.-:_.-0-.-.-.-:-.
888 REREC2STIINAR

—d b cd D b cd D cd b e

D e e e ) D e

) ) D b b

IONIRSITERECTER2ET

8388

:ERROR 27

62%7

025007

DH35
D135
DF?7

;ERROR 37

;DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET

SEQ 0024

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

8288

;REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT

N
&~
~

025024

704

~80~

o
N

NN N
£NO

;DRIVE NOT SEIZED BY PORT AFTER RELEASE WITH REQUEST SET

=l=

PNINOINI NI NI NI NININ) = d b b b e e

b h b

NININIALNININI
NI NININI NI NN NN AN

ONO&&U‘N-‘OOQNOW&W_.O3

ERROR POINTER TABLE

sREGISTER WRONG AFTER RELEASE WITH REQUEST SET

SEQ 0025

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

ERROR POINTER TABLE

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

§% 001703
011900
001710
005740

BADTMO: MOV
ST

§ 001712 022626
104401 001722
000417

6 001714
001720
————
7 001760
8 001762
9 001764

3}'.25"

010046
104402
000240

}g
1% 001766

000240

15 001770 005037 001270
16 001774 000403

CMP
TYPE
B8R

(SP) ,RO

(SP)+,(SP)+
658
43

SAVE
PC WHERE
THE TIME OUT OCCURED
JUST PC
=
assroae STACK POINTER
..me ASCIZ STRING
T OVER THE ASCIZ

PASCIZ <CRLF>/UNEXPECTED’ aus TIMEOUT, PC=/

MOV
TYPOC
NOP

RO,=(SP)
-

:TO STOP ON UNEXPECTED TIMEOUT.

.SBTTL

START OF PROGRAM

START:

NOP

}g 001776 012737 177777 001276 START1: MOV

CHGADR
START?2

#-1,CHGADR

;CLEAR THE 'cumss RH/RM ADDRESS® INDICATOR
260 TO THE STAR

19 002004

sTTY LOOP, WAIT FOR INCREMENT

005227

20 002010 001375

000000

21 002012 000005

START2: INC

BNE

RESET

002014
oozozg
002022
002026
002030
002034

002042
002050
002056

012706
005026
022706
001374
012706
:
012737
o1§;§7
012737
012737
012737
013737

2094
002072
01 7;7
002100
ooz1og
002112
002116

5037
005037
112737

001100
001140
001100
013550 000020
ooosl.g
35“3
000340

001176
001200
000001

0051 4 01 7;7 8851;:.
002132
012737
132
140174.9

144
152

01
012737

172

1
196
174

og
0og

017470
4
013156 013146

gsl.o

12737 17757
17777
012

§§§38§ %3 002206

CLR
BR

:SETUP FOR TYPING OUT PC
:
:PUT "HALT(0)* INSTRUCTION HERE IF YOU WISH

036

*SET THE 'cumee RH/RM ADDRESS' INDICATOR

:0F WORD

:CLEAR THE WORLD

.SBTTL INITIALIZE THE COMMON
T
:3CLEAR THE COMMON TAGS (scnn\s) AREA

MOV
CLR
CMP

#SCMTAG,R6
:3FIRST LOCATION TO BE CLEARED
(R6)+
:3CLEAR MEMORY LOCATION
#SWR,R6
+ SDONE?
ane
-6
::LOOP BACK IF NO
STACK, S
$3SETUP THE STACK POINTER
e A m vecf
..mxmuz
MOV
n
sop mrvsc
..xorv;cron FOR SCOPE ROUTINE

001115

"°3
00111

MOV
MOV
MOV

a#fOTVEC+
cgsnfion
amtvsc
..sm
VECTOR FOR ERROR ROUTINE
uémve
l.

CLR
CLR
MOVB

sr
seswe
#1,SERMAX

MOV
MOV

MOV

MOV
MOV

*:TRAP VECTOR FOR TRAP CALLS
mo
a&twvsc
:Lt
VEL 7 ~OF
not
2 sSET
a..smoa

$SINITIALIZE NUMBER OF ITERATIONS
*3CLEAR THE ESCAPE ON ERROR ADDRESS
$SALLOW ONE ERROR PER TEST

::INITIALIZE THE LOOP ADDRESS FOR SCOPE
:3SETUP THE moa I.OOP ADDRESS

::SI1ZE FOR A gwpulmsSuiren REGISTER. IF NOT FOUND OR IT I
*=1" sewp ron A SOFWARE SWITCH REGISTER.
MOV
5‘25
-(SP) ::SAVE
ERROR VECTOR
MOV
mimc ::SET ur E
VECTOR
114
MOV
muk SWR
:.sewr FOR A HARDWARE SWICH REGISTER
SSEQUAL TO A

114
674

64s:

MOV
CMP
BNE

#DDISP.DISPLAY ::ANDA HARDWARE DISPLAY REGISTER
#-1,3S6R
*3TRY TO REFERENCE MARDWARE SWR
66$
$SBRANCH IF NO TIMEOUT TRAP OCCURRED

MOy

§ats. sp)

NCH
TF No TIREoLTT 1S NOT = <

:SET UP FOR TRAP RETURN

SEQ 0026

CZRNIAO RM80 DUAL PORT PTZ MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-1
INITIALIZE THE COMMON TAG

7 000176 oomg 658:

002206 81

002214 012737 000174
012637 000004
002222

00114

25 oozzgg 015737 001706
012737 000300
gg 002234

000004
000006

002242

oozzl.a
002250
002256
002260
002264
002334

002340
002342
002350
002352
002356

88%356

29 002364

005227

668:

001%
013316 000042
022
001426
:
104401 002266
000423
001006
023727 001140 000176
001005
104406
000403

001134

31 002376 104401 017556
104412
002400

002470

012637
023727
101403
01
000760
013737
005237
045737
013746
042716
052637
104401
013746

INC

352“‘

93;:

001224
001224 000007
017605
0012264 001226 28:
001226
000016 001226
001224
177771
001226
017630
001224

BNE
CMP
BEQ
TYPE
B8R

#DISPREG,D

(SP)+, uéaavec .-.-aestone ERROR VECTOR

#BADTMO,ERRVEC :SETUP FOR UNEXPECTED TIMEOUT
#PR6,ERRVEC+2 :LEVEL 6

‘

}5% 801230
01230

#-1

m
NSENDAD @442
67$
68$
678

:sFIRST TIME?

:BRANCH IF NO
::ACT=112
::BRANCH IF YES *
..rvps ASCIZ STRING
GET OVER THE ASCIZ

PASCIZ <CRLF>ACZRNIAO = AMSO DUAL PORT TEST. PT 23<CRLF>

GET VALUE FOR SOFTWARE SWITCH REGISTER

w62

sARE WE RUNNING UNDER XXDP/ACT?

#1,SAUTOB

::SET AUTO=-MODE INDICATOR

JSR

PC,STKINT

:SETUP THE TTY KEYBOARD

TYPE
RDOCT

,ENTERA

BNE
CMP
BNE
GTSWR
BR

69$
SWR,#SWREG
708
708

MOVB

JSR

MOV
CMP
BLOS
TYPE
BR
MOV
INC
BIC
MOV
BIC
BIS
TYPE
MOV

TYPOS

104403

001
oowg
00247
000
46 002474 104401 017657
47 002500 013746 001226
0025046 104403

oozsog %
'4'350 33%?32
062737
002522 5%%}

MOV
MOV

1s:

015774

30 oozgro 004737 002764
33 002402
002406
35 002414
0024
37 002422
38 002424
39 002432
40 002436
41 002444
42 002450
43 002454
4% 002460
45 002464

MOV

..POINT TO SOFTWARE SWR

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

.SBTTL

005737 000042

004737

MOV

#SWREG sun

.SBTTL TYPE PROGRAM NAME
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

112737 000001

MOV

BYTE
-BYTE
TYPE
MOV
TYPOS

PC . CHANGE

(SP)+,PORTA
PORTA.#7
28
ADRERR
is
PORTA,PORTB
PORTB
#16,PORTB
PORTA,=(SP)
#4C6, (SP)
(SP)+,PORTB
,PORTAIS
PORTA,=(SP)
1

PORTBIS
PORTB, =(SP)

'S‘{E :
;555 #6,PORTC
fiomPORTC
ADD

::BRANCH IF YES
.-:sorrme SWITCH REG SELECTED?
*:BRANCH IF NO
$:GET 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
rvpe ADDRESS ERROR MESSAGE
*TRY AGAIN
*GENERATE THE PORT B ADDRESS
:INCREMENT THE ADDRESS
.LEAVE BIT 0
*PUT PORT A ADDRESS ON THE STACK
*SAVE BITS 1 & 2
ssr ens 1 c 2 IN_PORT B ADDRESS
*PORTA ADDRESS IS
°
:.SAVE PORTA ron TYPEOUT
$STYPE PORT A ADDR

$360 TYPE=--OCTAL ASCII

SSTYPE 1 DIGIT(S)
: ;SUPPRESS LEADING ZEROS
*SPORT B ADDRESS I
*:SAVE PORTB FOR TYPEOUT
:*TYPE PORT B ADDRESS

+56G0 TYPE=-OCTAL ASCII

;:gmvre%sglf&?}& ZEROS
é's‘%nirs
or DRIVE NOT TESTED
SOME BITS
*COMPLEMENTAo'sfasss

SEQ 0027

SEQ 0028

C
PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-2 .

CZRNIAO RM80 DUAL PORT
GET VALUE FOR SOFTWARE SWITCH REGISTER

51 0025

sg 0025
53 002542
5% oosss
002554
002560
002564
57 002570
58 002574
59 002600
60 002604
g} 002606

84.; 7

13701
116137
8850 7
005037
005037
005037
004737
000137
104401
000000
000776

001224
025060 001232
001256
001260
001262
001 gg
013
00;610
017706

000005

66 002612 005037 177776
67 002616 104401 001207
001272
002622 013700
001100
012706
69 002626
70 002632 004737 013336
002636 000240
002640 004737 015774
002644 005037 001266
74 002650 005037 001100
75 002654 115737 000001 001115
76 002662 012737 002662 001106
77 002670 012737 002670 001110
79 002676

104401

g:z 002710
85 002714
86 002720
87 002722
88 ooggg

000137 003074
020137 025070
003403
104401 017773
000763

80 002702 104412
81 002704 012601
82 002706 oo1oo;

005301
89 00
90 002732 006301
91 002734 005237
31 7
9§ 002740
93 00 71.3 12746
012746
002752
382523

017753

98 002764

;t.o
002760

005737 001270

9 279§ 8814;1

100

00277

5037

101 00 773 104
1o§ 38
0137s
003006 104
103

EXEC:

18:

2s:
38:

001266
001104
830001

gg 002760 000171 025040
gg

38:

MOV
MOVB
CLR
CLR
CLR
CLR
JSR
JMP
TYPE
HALT
BR

#C7.PORTC

;SAVE ONLY LOWER BITS

*USE PORT A ADDRESS AS INDEX
PORTA ,R1
‘:;GET ATTENTION BIT FOR DRIVE
ASR1
ATABIT(R1),
TIMEOUT ONE=-SHOT VALUE LOCATION
;CLEAR
TIMEA
TIMEOUT ONE=-SHOT VALUE LOCATION
*CLEAR
TIMEAP
TIMEOUT ONE=-SHOT VALUE LOCATION
*CLEAR
TIMEB
*CLEAR TIMEOUT ONE=-SHOT VALUE LOCATION
TIMEBP
:SETUP CLOCK
PC,CKCLK
:CLOCK HAS BEEN STARTED
EXEC
no CLOCK ON SYSTEM
. NOCLOCK
FATAL ERROR
*INTERLOCK THE HALT
3s

:ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR

gz
65 002610

BIC

1727770 001230

557

;

RESET

CLR
TYPE
MOV
MOV
JSR
NOP
JSR
CLR
CLR
MOVB
MOV
MOV

PS
$CRLF
$RMADR, RO
#STACK . SP

TYPE

,TESTNO

RDOCT
MOV
BNE

PC,CKCLK

Pc.smut

KYBCTL
mss
#1,SERMAX
#. . SLPADR
#..SLPERR

DEC
INC
MOV
MOV
MOV

(SP)+,R1
2
TST1AA
R1,MAXTN
8
BADNO
is
R1
RI
KYBCTL
#1,$I1CNT
#PRS,=(SP)
#64$.=(SP)

JMP

aTSTADR(R1)

JMP
CMP
BLE
TYPE
BR
ASL

RTI

;CLEAR EVERYTHING

:CLEAR THE PROCESSOR STATUS WORD
sCR=LF
*RH/RM ADDRESS FOR INDEXING
:LOAD STACK POINTER
*START THE CLOCK
*RETURN IF NO CLOCK
SINITIALIZE THE KEYBOARD
*CLEAR SINGLE TEST INDICATOR
*CLEAR THE PASS COUNT
*SET ERROR MAX TO 1
SINITIAL SETTING FOR LOOP ADDRESS
SINITIAL SETTING FOR LOOP ON ERROR ADDRESS
:ASK FOR TEST NUMBER

:GET THE NUMBER
*PUT ENTRY INTO R1
:BR IF NOT ZERO

*ENTER ZERO - PERFORM ALL TESTS
:SEE IF NUMBER GREATER THAN MAXIMUM
‘BR IF LESS OR EQUAL
:w ENTRY
STRY AGAIN
-oecasnem ENTRY
SSHIFT IT LEFT
*SET SINGLE TEST INDICATOR
COUNT
'PRESETNEWITERATION
PS ON STACK
:PUT
2iPUT NEW PC ON _STACK
$:POP NEW PC AND PS

:JUMP TO TEST

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

CHANGE: TST
18:

BEQ
CLR

TYPE
MOV
TYPOC

HGADR

ADDRIS
$RMADR, = (SP)

:CHANGE THE ADDRESS ?

*BR IF NOT

ch THE INDICATOR

TYPE OUT WHAT THE msenr ADDRESS IS
Put THE ADDRESS ON THE STA
*TYPE THE ACTUAL ADDRESS

SEQ 0029

0
"
9-3
PAGE
CZRNIAO RMSO DUAL POR T PT2 MACRO V04.00 15-JAN-82 07:13:40

GET VALUE FOR SOFTWARE SWITCH REGISTER

10 104401
104
1% 1824. 1
§§
105
2g 104412
106
00571
107 00
108 003026 0014

109 00
110 00
111 00
11; 003042
1 oow.g

011637
005759
0157
013700
005760

820527
001272
gs:
3$:
000004
003054
001272
000002

11% ooggs 000404
48:
115 003054
883051., 104025
116 003056 062702 000004
117 003062 000745
012737 000006 000004 5$:
118 00

}ég 003072

TYPE
TYPE
RDOCT
ST

001207

000207

133

BEQ

.NTRH

:CR=LF

(SP)

:0 OR "CR* ENTERED ?

*BR IF EITHER ENTERED (NO ADDRESS CHANGE)

*ASK FOR NEW ADDRESS
*NEW RH/RM ADDRESS
$CORRECT THE STACK POINTER
*LOAD TRAP ADDRESS
*GET RH/RM ADDRESS
*RESPONDS AT THAT ADDRESS ?

MOV
ST
MOV
MOV
ST

(SP) , SRMADR
(SP)+
#LS,ant
SRMADR , RO
RMWC (RO)

RTS

#%,SP
1$
86,04
PC

:RESET THE STACK POINTER
*GET ADDRESS AGAIN
*RESTORE THE VECTOR
*RETURN

$RMADR , RO
#PRS ,=(SP)
#64S.=(SP)

;sRESTORE RO AFTER END OF PASS
*SPUT NEW PS ON STACK
*:PUT NEW PC ON STACK

BR
EMT
ADD
BR
MOV

TST1AA: MOV
MOV
MOV
RTI
64$:

134 003074 013700 001272
135 003100 012746 000240
003104 012746 003112
003110
. 003112

,SCRLF

:BR IF YES

*:POP NEW PC AND PS

23 3222223232223 222232222332333333333233333313 3333 8333232322232 24234% 413

137

DRIVE ACCESS TEST

SATEST 1

E:vsnm THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS
' A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE
I

DRIVE IS A DUAL PORT RM80,

THAT THE DRIVE IS ONLINE (RMDS HAS

'MOL®. 'PGM', 'DPR', & °'DRY® BITS SET), AND THE THE DRIVE SERIAL
i
.
NUMBER READ THROUGH BOTH PORTS IS THE
i
E: B. THE TEST 1S REPEATED THROUGH BOTH PORTS.

oosng

:; P 2322322323333 2333222322322338233323331333313333 33383333333 3323 343443

003112

005737

oos1gg
0031
003126
00313«
88;};5

;
137
012737
0lers7
15737

003116

601406

Tsn:

001266

8PL
JMP
00261
MOV
177777 001266 18:
MOV
003150 001106 28:
003150 001110 — MOV

ooggg 5}5;37 oo:1C 1n oo“ o

000001 001176
. 003162 012737
}23 003170 012760 000040 000010
m
150 003176

1137

BEQ

1224

000010

003204 013729 831554 001234

KYBCTL
28

1$
EXEC
#-1,KYBCTL
#TEST1,.SLPADR
#TEST1.SLPERR

3338 fiffii"s“v
' MOV
#1,STIMES
MOV

:PERFORMING ONLY SINGLE TESTS ?
:BR IF NOT

:BR IF JUST ENTERED TEST
*RETURN © GET NEXT TEST NUMBER
*SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

fi Po?mea
‘gg\r'fp'}ugegn
2300 1 ITERATION -

#CLR,RMCS2(R0) :CLEAR MASSBUS

:VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A € B
MOVB

MOV

;SELECT PORT A

PORTA-PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

PORTA,RMCS2(RO)

RMS0 DUAL PORT PT2 MACRO V04.00 15-JAN=82 07:13:40 PAGE 9-4

SEQ 0030

DRIVE ACCESS TEST

00321

00
00
00
00324
003246
003254
%§z§§
00
003

16037
012737
7
g
7
013737
ot.gr 7
8514.1:3
013737
04§7§7

00321 §850

mosmm

MOV
MOV
ADD
CLR
MOV
BIC
gg:
MOV
BIC

CKE

:SEE IF DRIVE (PORT A) PRESENT

10 oonss
1g 001122

CLR

Efi?

mcszmo» soooAr :GET CONTENTS OF RMCS2
mc$2,$BDADR oknREGISTER Anon:ss OF ERROR MESSAGE
DADR
D RH/RM BASE ADDRESS
scbm
SWHAT
REGISTER SHOULD BE
$SBDDAT,$TMPO
:MOVE REGISTER CONTENTS TO *'STMPO®
#°CNED.STMPO :SAVE SPECIFIED BITS
zggm‘$TMPO
gaon;?n& THE BITS
SBDDAT,STMP4
:COPY °*BAD DATA®
#NED , $TMP4
CLEAR THE MASKED BITS
gml..scom

*'OR' WITH GOOD DATA FOR TYPEOUT

'c‘gg

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

MOVB
MOV

#CLR,RMCS2(RO) :ISSUE MASSBUS INIT TO CLEAR °NED'
poaré nncsz(no) :SELECT PORT B
PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CLR

CKE

mu.

0011
001124
0011 g
167777
001126
001126
01

001164
001164
001164
001174
001174

%%314 %‘ 7 ; 001174 001124

3%313 333145 001244

88§§3
88?255 S
003332 012760 000040 000010

003340 113760 001226 000010
003346 013737 001226 001234

OBl
MOV

0033564 005760 000012

003360 005037 001244

003
016037 000010 001126
003372 012737 000010 001122
003400
37 001122
003404
005037 001124
003410 013737 001126 001164

MOV
MOV
ADD
CLR
MOV

003424

sg:

003416 042737 167777 001164
3515'3

001124

BIC

001164

003434 013737 001126 001174
00 5 oagm 01
001174

°°332§6 g(s“ 73; 0011764 001124

3460 3332%5 001244

00333
O074gs 0012¢é
003474 012760 000040 000010

ogm

msfim

*CLEAR THE 'CHECK ERROR® INDICATOR

:SEE IF DRIVE (PORT B) PRESENT

:CLEAR THE 'CHECK ERROR' INDICATOR

ancsz(ao) samr :GET CONTENTS OF RMCS2
#RMCS2,$8DADR ;FORM. REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
:ADD RH/RM BASE ADDRESS
SGODAT
*WHAT REGISTER SHOULD BE
$BDDAT,STMPO
:MOVE REGISTER CONTENTS TO 'STMPO'
#~CNED.STMPO :SAVE SPECIFIED BITS
gggm.swo

&“‘;‘“& THE BITS

MOV
BIC

$BDDAT,.STMP4
#NED , $TMP4

:COPY °"BAD DATA®
cu.m THE MASKED BITS

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

gg;

gw&.ssow

:'0R* WITH GOOD DATA FOR TYPEOUT

OB
odm
SR 1F ot o !
MOV ~ #CLR,RMCS2(RO) :ISSUE MASSBUS INIT TO CLEAR °NED*

;CONFIRM THAT DRIVE IS AN RM80 AND IS DUAL PORT

00350
003510
003516

0035
0035
0035
00
00355

mrgg
554.
0137
005037 oo1z“
13%7
12737
gg
7 go
817 054056
1126

880010
1234

oonsl.
001126

MOVB
MOV
CLR
MOV
MOV
ADD
MoV
CMP

RMDT (RO) ,$BDDAT ° ;GET CONTENTS OF RMDT
msaé :FORM nesxsm ADDRESS OF ERROR MESSAGE
as
:ADD RH/RM BASE ADDRESS
coéDAT,$BDDAT
4026 ,SGDDAT :WHAT
assxsren SHOULD BE
IS THE REGISTER OK ?

001234

MOV

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

001126
001122

oogssa oi zaos
oo§§
s?%; 001244
e,
003570 11 ;gg 881556 880210
"
003576 0137

1226

gsg
,‘.8?
MOVR

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

:CLEAR THE °‘CHECK ERROR' INDICATOR

:BR
IF OK
CKERR
:SET THE REGISTER COMPARE ERROR INDICATOR
PORTB,RMCS2(RO) :SELECT PORT B

0 ¥e§}2 MACRO V04.00 15-JAN=82 07:13:40 PAGE 9-5

8050 7 001244
6 oongg
16037
g 0011
012737

7 ogn
6 oon%l.
8040
012737
001124 001126
023737
001403
‘
104.025
001244
005137
708:
000240

CLR
MOV
MOV

ADD
MOV
CMP
BEQ
EMT
COM
NOP

SEQ 0031

:CLEAR THE °CHECK ERROR® INDICATOR
CKERR
mt(no) $BDDAT *;GET CONTENTS OF RMDT
sa6ADR ;FORM nscxsren ADDRESS OF ERROR MESSAGE

8
ét.ozessow
i$GDDAT,$BDDA
T
70$
2
CKERR

;ADDRH/RM BASE ADDRESS
neexsrea SHOULD BE
SWHAT
:IS THE REGISTER OK?
:BR IF OK
:SET THE REGISTER COMPARE ERROR INDICATOR

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

113760

0137
005037
016037
12737
gr
012737
013737

000240

001524
001244
000012
000012
00112
001000
oo11;6

001234
001126
001122
001124
001164
001164

001126 001174
001000 001174
001174 001124

001244

005037 001244

728:

BIC
CMP
BEQ
MOV
BIC
gk;.
CoM
NOP

CLR

PORTA,RMCS2(RO)

:SELECT PORT A

POR A.maa :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
:CLEAR THE 'CHECK ERROR® INDICATOR
CKERR
RMDS (RO) , saow GET CONTENTS OF RMDS
#RMDS,SBDAD rokn REGISTER ADDRESS OF ERROR MESSAGE
ADD RH/RM BASE ADDRESS
RO, SBDADR
#PEM_SGODAT :WHAT REGISTER SHOULD se
$BDDAT,$TMPO ~ :MOVE REGISTER CONTENTS TO *STMPO'

#°CPGM.STMPO :SAVE SPECIFIED BITS
sgom.smo :COMPARE THE BITS
72$
‘3R IF OK
:COPY °*BAD DATA®
SBDDAT,.STMP4
#PGM, $TMP4
ch THE MASKED BITS
“%OR' WITH GOOD DATA FOR TYPEOUT
gmpl.ssom
:SET THE REGISTER COMPARE ERROR INDICATOR
CKERR
CKERR

;CLEAR THE °"CHECK ERROR®' INDICATOR

oongs
001122

MOV
MOV
ADD

RMDS (RO) , seom :GET CONTENTS OF RMDS
ms $BDAD rokn REGISTER ADDRESS OF ERROR MESSAGE
D RH/RM BASE ADDRESS
ADR

8}.3737 001126 001174
001174
737 01
g‘s“ 737 001174 001124

BEQ
MOV
BIC
E;;

74%
SBDDAT,STMP4
#10600.$TMP4
?m,$GDDAT

MOV
MOV
BIC
CMP

000010
001234
oonso
001122
001124
881164
1164
001164
=

ogl.

gg;

MOVB
MOV
CLR
MOV
MOV
ADD
MOV
MOV
BIC
gg
3
wz

001124
01
015737
811. 737 001126 001164
grgr 167177 001164
0011264 001164
023737
001414

—h

MOV
CLR
MOV
MOV
ADD
MOV
MOV

176777
001164
001124

016037 00001
012737
37 00112

B P RERn R R EREe Res
35 NEBVEERRSRSR SBEFEX

MOVB

000010

004000

2737
023737
1614
013737
§737
g‘s)‘0735
005137

001224

BE
:WHAT REGISTER SHOULD
.ssobn
Mt'opn'oav
:MOVE REGISTER CONTENTS TO ‘STMPO’
mo
mloobo
*SAVE SPECIFIED
THE BITSBITS
SGDDAT, sfmo :COMPARE
CKERR

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

:SET THE REGISTER COMPARE ERROR INDICATOR

PORTB,RMCS2(R0O) :SELECT PORT B
PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
:CLEAR THE °'CHECK ERROR® INDICATOR
CKERR
RMDS (RQ) $BDDAT °:GET CONTENTS OF RMDS
#RMDS ,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE
:ADD RH/RM BASE ADDRESS
RO ssbm
#PGM, SGDDAT .ud\r REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO °‘STMPO’
saooir.sr
#°CPGM.ST
:SAVE SPECIFIED BITS
$GDDAT . STMP
: gam;en THE
7
$BDDAT,$TMPS

0K
3
:COPY °BAD DATA®

R
w
(fli;
RSW
i

104
005137
000240

:CLEAR

'c‘gg

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

gwl.ssow

S"0R' WITH GOOD DATA FOR TYPEOUT

CLR
MOV
MOV
ADD
MOV
MOV

;CLEAR THE °*CHECK ERROR® INDICATOR
CKERR
RMDS (RO) ,$BDDAT " ;GET CONTENTS OF RMDS
#RMDS ,$BOADR :;FORM REGISTER ADDRESS OF ERROR MESSAGE
:ADD RH/RM BASE ADDRESS
SBDADR
RO,
#MOL 'DPR'DRY,$SGDDAT ;WHAT REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO 'STMPO'
SBDDAT,.$TMPO°

8IC

#10600.$TMP4

:CLEAR THE MASKED BITS

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

2,{?
78%:

THE MASKED BITS

#PGM, STMPS

BIC
CMP
BEQ
MOV

COM

NOP

#~c10600,$TMPO :SAVE SPECIFIED BITS
*COMPARE THE BITS
sggw.sf»o
:BR IF OK
7
'BAD DATA'
:COPY
MPG
SBDDAT,ST
21»4.£som

S%0R* WITH GOOD DATA FOR TYPEOUT

:VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME

215

NN =N\ =
OO0

MOVE

N
~N

1$:

PORTA,RMCS2(RO) :SELECT PORT A

MOV
MOVB
MOV
CMP

RMSN(RO) ,SGDDAT :STORE THE PORT A SERIAL NUMBER
PORTB,RMCS2(RO) :SELECT PORT B
RMSN(RO) ,SBDDAT -STORE THE PORT B SERIAL NUMBER
$GDDAT,SBDDAT :ARE THEY IHE SAME ?
;s

:BR IF THEY ARE

BIT
BNE
HALT
SCOPE

#SW15,aSWR
1$

;HALT ON ERROR ?
*BR IF SET - PROGRAM HAS ALREADY HALTED
*HALT, POSSIBLE CABLE CONNECTION PROBLEM
:
:LOOP" 2

25?

82552

113760
016037
113760
016037
023737
001406
104005
032777
001001
000000
000004

173 004376
174 004404
175 004406
176 004410
177 004416
178 004420
179 004422

7
81 737
13737
Olog;y
023737
14614

~
&~

167
168
169 004346
170 004354
171 004368
172 004370

012737

::ttltttlttttttttt.ttit'.".ttfittttQt.llt..tfiQfilttttt.tt.tl..ttt.

SET *VV' FOR PORT A

SATEST 2

E:ssr VOLUME VALID
E: A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A.
‘e B. ISSUE A READIN PRESET COMMAND THROUGH PORT A.
i

THAT THE ‘vv® BIT IS SET FOR PORT A.

‘e C.

ISSUE A RELEASE COMMAND THROUGH PORT A.

00“%
004430
00“%%
0044

005737
0014
1

VERIFY THAT

BIT IS SET.

322222222 323222222 2323222323382

004424

VERIFY

THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION

e
m.

166

004336
004340
004344

SEQ 0032

BIC

g'x';

NN
PP

1174
1124

7
4

888 8388 3
333 Fees Nn

33338553 3

004
004
004
004276
004
004312

TEI;}Z MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-6

TST

8PL
JMP

KYBCTL

2s
1$
EXEC

R ddiiitiiadiiddiidddd)

;PERFORMING ONLY SINGLE TESTS ?
:BR

IF NOT

*BR IF JUST ENTERED TEST

*RETURN © GET NEXT TEST NUMBER

SEQ 0033

CZRNIAO RM80 DUAL PORT PT2 mcno V04.00 15-JAN=82 07:13:40 PAGE 9-7
T

SET "VWW' FOR PORT

177777
004440 81
004446 0127 7 oou.os
%454 012737 00446

001266 1$:
1108 2s=
m —_——

004462
0044

os 001102
112737
81 72; 0011

00450
004510

ngno ”‘SS‘ 000010
013737 001224 001234

006474 0127

1 001176

MOV
MOV
MOV

#-1,KYBCTL
msrs SLPADR
#TEST2.SLPERR

MOV

n.snfies

MOVE
MOV

MOVB
MOV

#2,STSTNM
#STACK,SP

MOV
MOV

004532 012760 010000 00003
004540 005037 001244

016037
012737
37
012737
042737
004600 013737
023737
004614 001414
004616 013737
ol.gm
053737
004
104010
004640
004642 005137

004544
004552
004560
004564
004572

000240

000012
000012
00112
011700
001126
106077
001124
001126
071700
001174
001244

MOV

:MOVE #2 TEST NUMBER
SSETUP THE sucx POINTER

2300 1 ITERATION

A
pom.ancsz(no) :SELECT PORT
PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

:SET VOLUME VALUE FOR PORT

004516 012760 000011 000000
004526 012760 000021 200

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

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

;ISSUE A DRIVE CLEAR
:ISSUE A READIN PRESET

mm RMOF (RO) ' :SET FMT16

;VERIFY THAT THE DRIVE STATUS IS CORRECT

CLR

001126
001122
001124
001164
001164
001164
001174
001174
001124
648:

MOV
MOV
ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC
BIS
EMT
coM
NOP

CKERR

;CLEAR THE °"CHECK ERROR' INDICATOR

RMDS (RO) $BDDAT " ;GET_CONTENTS OF RMDS
#RMDS ,SBDADR ;FORM aesxsren ADDRESS OF ERROR MESSAGE
1»»m BASE ADDRESS
RO, $BDADR
mum-m'onv VV,.$GDDAT :WHAT REGISTER SHOULD BE
:MOVEREGISTER CONTENTS TO 'STMPO'
SBDDAT,$TMPO
specmso BITS
:SAVE
$TMPO
rcmbo
:COMPARETHE BITS
$GDDAT,$TMPO
*BR IF OK
648
:COPY °"BAD DATA®
SBDDAT,STMP4
.cn.m THE MASKED BITS
mroo STMP4
- *OR® WITH GOOD DATA FOR TYPEOUT
$TMP4,$GDDAT
10
:SET THE REGISTER COMPARE ERROR INDICATOR
CKERR

:RELEASE THE DRIVE FROM PORT A

004650

113760

001224

000010

004656 013737 001224 001234
004664 012760 000013 000000

MOVB

MOV
MOV

PORTA,RMCS2(R0)

A
:SELECT PORT

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION roa TYPEOUT
#13,RMCS1(RO)° ;ISSUE RELEASE THROUGH PORT

:VERIFY THAT THE DRIVE IS IN NEUTRAL

:CLEAR THE "RELEASE ERROR * INDICATOR

004676 012737 00051 001122

CLR
MOV

RELERR
#RMDS

1164
1164
1g

MOV
BIC
MOVB

sm fvo :COPY IT INTO
mAsw.swo
*CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) :SELECT PORT B.

004672

005037 001250

004704 860%7 0011
001124
004710 1; 7 011
004716 113760
001224
10
004724 01
00001
1170

137377 083"
004
00474
1001122
004746 1137,

004756 01
1
00117
oo:.;% 13737
004
7;7 1001
004776 35 737 001164
001006
005004

117
1166
1166
001166

ADD
MOV
MOVB
MOV
MOV
MOV
BIC
CMP
BNE

*FORM THE ADDRESS OF RMDS FOR TYPEOUT

SADD THE 1/0 BASE ADDRESS
RO sa6m
! DRY . SGDDAT -comnxson CONSTANT
L'PGM!DPR
PORTA,RMCS2(RO)
:SELECT
(fi $TMP .GET THE omve §r'gs REGISTER FROM PORT A.

RMDS (R0) ,$TMP3
TMP3, STAP1
SATAVUV.STMP1
$TMPO, STHP1
665

:GET tHE DRIVE smu; REGISTER FROM PORT B.
.cop IT INTO ‘STMP1
:CLEAR PORT DEPENDENT BITS FROM THE COP
*IS THE STATUS REGISTER THE SAME FROM aom PORTS ?
:BR IF NOT

%RNIAO

DUAL PORT PT2 MCRO V04.00 15-JAN=-82 07:13:40 PAGE 9-8
RM80
SET 'W' FOR PORT
§0tes7
o030t
005014

678:

$TMPO

JMP
MOV
MOV
MOVB
ST
BEQ
MOV
MOV
MOVB
ST
BNE
2g¥

:BYPASS THE REST OF THE CHECKS
0s
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
$TMP2,$BDDAT
*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB.PTNBR
)
PORTB.RMCS2(RO :SELECT PORT B.
:SEE IF STATUS EQ O FROM PORT A.
TMPO
IF ZERO
*BR
78
PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
*SEIZING
PORTA,PTNBR
STMP3.SBODAT
:'BAD DATA' FOR ERROR TYPE OUT
PORTA.RMCS2(RO) :SELECT PORT A
STMP1
$SEE IF smus EQ ZERO FROM PORT B.
:BR IF NOT
68$
*SET 'RELEASE ERROR' INDICATOR
g;1 ,RELERR

MOV

purd

688:

NN%N

) =

b e

—-—

698:

sLOOK FOR BIT FAILURES WHEN RMDS READ

g;s

*BR IF OK FROM PORT A.

PORTA.PTNBR
SATA'VV,STMP2
SGDDAT.$TMP2

MOV

$TMP3,$BDDAT

MOV
BIC
CMP
BEQ

EMT
NOP

708:

:BR IF NOT

STMP2, saow

MOV
BIC
CMP
gsg

—

013737
042737
023737
001401
104037
000240

668:

PORTB.PTNBR
#ATA'VV,.STMP3
SGDDAT,$TMP3TM
70$

:CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR WV BIT
:ALL BITS OK?

:CHECK RMDS FOR BIT FAILURES = FROM PORT B.

:CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR VV BIT
:SEE IF READ OK FROM PORT B.
:BR IF OK

:LOOP ?

SCOPE

t.tt.tttitl'ttlt..tttt"titfil'fifitttttt'tttfiififitttfitt.ttttt.*fitt

-resr 3

SET 'VV' FOR PORT B

:ser VOLUME VALID
i*

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B.

i+
i

ISSUE_A READIN PRESET COMMAND THROUGH PORT B.
THAT THE °*VV*' BIT IS SET FOR PORT B.

‘e«
v

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

005214
005216
gos222
005030
005236
005244
005244
005252

005737
001406
100002
00013
Q12737
012737
012737

112737
13706

§13:

005206
3206
005212

VERIFY

BIT IS SET.

;.t;tttttttt.t.tttttt."'ttttttfit.Qtttfitfit*.t..ttttlttfit.ttttttt'

888

216

005154
005162
005170
005176
5200
005202
5204

000137
013737
013737
113760
0057
001414
013737
013737
113760
0057
001
012737
104036
013737
013737
042737
023737
001401
104037
013737

:nesxsms ARE THE SAME: ARE THEY ZERO ?

g:g

8888

005016
005022
005030
003036
005044
005050
005052
005060
003066
005076
005100
005102
005110
005112
005120
Q05106
005134
005142
005144
005146

SEQ 0034

001102

1$:
28:
-

KYBCTL

Psaromns ONLY SINGLE TESTS ?

BEQ
B8PL
JMP
MOV

28
EXEC
#-1,KYBCTL

*BRIF NOT
*BR xr JUST Emenso TEST
*RETURN © GET NEXT TEST NUMBER
*SET SINGLE TEST INDICATOR

MOVB

#3,STSTNM

sMOVE #3 TEST NUMBER

MOV
MOV
MOV

#TEST3,SLPADR
#TEST3.SLPERR
#STACK,SP

:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
:SETUP THE STACK POINTER

(TZ§MIA0 ggao DUAL PORT PTZ MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-9
'W' FOR PORT

005256 012737 000001 001176

MOV

#1,$TIMES

880010

MOV

MOVB

PORTB.PTNBR

005264

11;729 001356

005272 013737

001226

001234

005300 01%760 000011 000000
005306 012760 000021 0000
005314 012760 010000 00003

SEQ 0035

::D01 ITERATION

PORTB, nncszcao)

-SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

:SET VOLUME VALUE FOR PORT

MOV
MOV
MOV

#11,RMCST1(RO)- :ISSUE A DRIVE CLEAR
021 ‘RMCS1(RO) :ISSUE A READIN PRESET
#FMT16,RMOF (RO) " :SET FMT16

:VERIFY THAT THE DRIVE STATUS IS CORRECT

005322

005037 001244

005430

000240

005326
005334
005342
005346
005356
005362
005370
005376
5400
005406
005414
005422
005424

016037
012737
015737
01 7;7
7
o4§7
023737
001414
013737
ol.gn
053737
104010
005137

oooorg
000012
oo11‘2)3
011700
001126
106077
001124
001126
071700
001174
001244

CLR

001126
001122
001124
001164
001164
001164
001174
001174
001124
648:

MOV
MOV
ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC
BIS
EMT
COM
NOP

CKERR

;CLEAR THE °*CHECK ERROR® INDICATOR

RMDS (RO) , SBDDAT " ;GET_CONTENTS OF RMDS
JRMDS,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE
7ADD RH/RY BASE ADDRESS
RO, $BDADR
BE
moum'm'onv vv.ssm -WHAT REGISTER SHOULD
*STMPO'
TO
CONTENTS
REGISTER
:MOVE
$BDDAT
BITS
specmeo
SAVE
sr
mmbo
BITS
THE
:COMPARE
SGDDAT,$TMPO
:BR IF OK
648
:COPY °*BAD DATA®
SBDDAT,$TMP4
:CLEAR THE MASKED BITS
#71700.$TMP4
- *OR® WITH GOOD DATA FOR TYPEOUT
S$TMP4,$GDDAT
10
:SET THE REGISTER COMPARE ERROR INDICATOR
CKERR

:RELEASE THE DRIVE FROM PORT B

005432

113760

001226

000010

005440 013737 001226 001234
005446 012760 000013 000000

‘

MOVB

MOV
MOV

PORTB, ancszmo»

:SELECT PORT B

PORTB.PTNBR :;MOVEPORT ADDRESS TO LOCATION FOR TYPEOUT
m RMCS1(RO)’ xssue RELEASE THROUGH PORT B

:VERIFY THAT THE DRIVE IS IN NEUTRAL

005454

005
005
00547
005500
0055
005514
005522
005530
005536
5544
00555
8825“

005037 001250

012737 000012
00112
o1§ 37 011
1226
11
oooo15
o1go
8:1. 737 00117
; 7 100100
113760 00122
016037 00001
013737 00117
8:.5737 100100
051737 001164

001122
001124
000010
1170
1164
88&1)64
10
881172
1166
001166
001166

005570
885929 001164
oogg;« 1 1837
335603
137 0057
001170 oongo 668:
005604 81 737

005612

013737

001226 001234

CLR

MOV
ADD
MOV
MOVB
MOV
MOV
BIC
MOVB
MOV
MOV
BIC
%

ST
JMP
MOV

E{.‘F

MOV

RELERR

;CLEAR THE 'RELEASE ERROR* INDICATOR

$TMPO
23
0s
$TMP2,$BDDAT

Znssxsrens
ARE THE SAME: ARE THEY ZERO ?
*BR
IF NOT
:BYPASS
THE REST OF iHE CHECKS
:SET UP POSSIBLE PAD DATA FOR ERROR MESSAGE

-roan THE ADDRESS OF RMDS FOR TYPEOUT
#RMDS ,SBDAD
SADDTHE 1/0 BASE ADDRESS
safim
RO
#MOL 'PGM'DPR!Dav.ssom : COMPARISON CONSTANT
PORT/.,RMCS2(R0) :SELECT PORTA
RMDS (RO) ,STMP2 ssr THE onxve "STATUS REGISTER FROM PORT A.
$COPY IT INTO *STMPO'
smpz $THPO
SATA'UV,STMPO :CLEAR pom oerenoem BITS FROM THE COPY
pom ancszun *SELECT PORT B.
fi
*GET THE omvs STATUS REGISTER FROM PORT B.
°*STMP1’ BITS FROM THE COPY
IT INTO osreuoem
sCOPY
fi 1
srnp
mmvv $TMP1 :CLEAR PORT
g?o,$THP1
.g }ge Ngwus REGISTER THE SAME FROM BOTH PORTS ?

PORTB.PTNBR

*SEIZING PORT IF (EST SHOWS DRIVE NOT IN NEUTRAL

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

SEQ 0036

SET "W' FOR PORT

757
003
001414

881

PORT%.RHCSZ(RO) sSELECT PORT B.

000010

67%

PORTA, PT'BR

13737
13737

;SEE IF_STATUS EQ O FROM PORT A.
:BR IF ZERO

sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

$TMP3, $BDDA
:'BAD DATA' FOR ERROR TYPE OUT
A
F”ORT?.RHCSZ(RO) sSELECT PORT
688
#-1,RELERR
36

67%:

$TMP2, seoon

68$:

PORTA.PTNBR

#ATA!VV,STMP2

gggmL$TmP2

37
$TMP3,$BDODAT

69$:

PORTB.PTNBR

#ATA'VV,STMP3

;821»7,$THP3

708:

:SEE IF STATUS EQ ZERO FROM PORT B.

:BR_IF NOT
sSET "RELEASE ERROR' INDICATOR

;LOOK FOR BIT FAILURES WHEN RMDS READ
:CHANGE PORT NUMBER
sDON'T CHECK ATTN BIT OR VV BIT
sALL BITS OK ?
:BR IF OK FROM PORT A.
sCHECK RMDS FOR BIT FAILURES = FROM PORT B.
: HANCHANGE POR T NUMBER

:DON'T CHECK ATTN BIT OR VV BIT
g‘E‘ElIFmREAD OK FROM PORT B.
;LOOP ?

2
222

ttt.ttttttttttitfi.ttt'tttt.ttfiltfitttt.tfitttttt'i!tt.t.ltttti.fit

*TEST 4

MEASURE THE TIMEOUT ONE=-SHOT THROUGH PORT A

e LA LA TR TR LR LA LR L
NS l.l.l'..ll

'HEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT
A
A.

WRITE 0°S INTO RMDS THROUGH PORT A 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.
C.

VERIE{mT‘:ALT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS
TON

—eded

b
b

737

758

005037

Tlo:

oO=
NHUN) °°°
FUNHU—
Jetey

CARAARAAANARAAARAAAARRRANARRRRAAAARARRAARRAAAARAAAAAARAARAAAARAAAE

1$:
TEST4

KYBCTL

EXEC
#-1,KYBCTL

#TEST4, SLPADR

#TEST4.SLPERR
#4,$TSTNM

;PERFORMING ONLY SINGLE TESTS ?
:BR IF NOT

:BR_IF JUST ENTERED TEST
;RETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
sMOVE #4 TEST NUMBER

#STACK, SP
#1,STIMES

:SETUP THE STACK POINTER

TIMEA

sCLEAR THE TIMEOUT VALUE STORAGE LOCATION

::00 1 ITERATION

PAGE 9-1%
13:40
07
15-JAN-82
V34.00
MACRO
PT2
PORT
DUAL
RM80
CZRNIAO
A
PORT
THROUGH
ONE=-SHOT
MEASURE THE TIMEOUT
P4
006052

TIMEAP

CLR

005037 001260

SEQ 0037

;CLEAR THE + 25% TOLERANCE LOCATION

;START THE TIMER

CLR
MOV

006056 ooso§7 001252
006062 012737 003720 001254

TIME
#2000. ,WATCH

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

;SEIZE THE DRIVE THROUGH PORT A

006070

113760

006076
006104
006110
006116
006124
006132
006140
006144
006152
006156
006164
006166
832};2

013737
005060
113760
013737
013737
016037
010037
062737
005037
023737
001403
104030
000137

0061764

113760

006202
006210
006216
006224
006232
006236
006244
006252

013737
016037
012737
013737
005137
013737
043737
023737

006262

104031

006260

001401

001224

001224
000012
oo1g$6
001226
oo1zzg
000012
001122
12
001124
001124

001236
000010
001234
001240

001126
001122

001126

006704
001224

001224
12
011700
001124
001166
001126
001166
001124

MOVB

000010

$GDDAT
$GDDAT,$BDDAT
64$
30
i

*REGISTER SHOULD BE ZERO
:IS THE REGISTER ZERO
*BR IF IT IS
:BYPASS REST OF THE SUBTEST

MOVB

PORTA,RMCS2(R0)

:SELECT PORT A

658

:BR IF THEY ARE

BEQ

653:

000240

PORTA.SEIZPT ;STORE SEIZING PORT'S ADDRESS
:WRITE RMDS
RMDS (RO)
PORTB,RMCS2(R0) ' :SELECT PORT B
vtPORT ADDRESS TO LOCATION FOR TYPEOUT
PORTB maa :MO
:'OPPOSITE®' PORT ADDRESS
PORTB
BY PORT A
SEIZED
DRIVE
IF
*SEE
saoonr
ms(fim
*RH/RM BASE ADDRESS
ADR
;GENERATE BAD REGISTER ADDRESS
ms $BDADR

MOV
MOV
MOV
MOV
COM
MOV
BIC
CMP

001234
001126
001124
001166
001164
001164
001164

A
PORTA,RMCS2(R0) ;SELECT PORT

MOV
CLR
MOVE
MOV
MOV
MOV
MOV
ADD
CLR
NP
BEQ
EMT
JMP

EMT

PORTA.PTNBR :MOVEPORT ADDRESS TO LOCATION FOR TYPEOUT
ms(fio),mw :SEE IF SEIZING PORT SEES CORRECT STATUS
! Y VV,SGDDAT ;EXPECTED STATUS
#MOL 'PGMIDPR!DR
$GDDAT,STMP1 ;USE GOOD DATA AS A MASK
:COMPLEMENT THE EXPECTED STATUS
$TMP1
:SAVE THE ACTUAL STATUS
$BDDAT,STMPO
*CLEAR UNWANTED BITS
STMP1,$TMPO
:ARE THE EXPECTED STATUS BITS SET ?
$SGDDAT.STMPO

:WAIT FOR PORT A TO TIMEOUT

006266
006274
006302
006306
006310
006314
006316
006320
006324
006332

113760
013737
005760
oo1ogg
005737
001372
104
137
013737

001226 000010
001226 001234

006340

012637

001260

000012

18:

00635
omgs

001256 28:

001254

004537 07352
336 001256
e

JSR
LWORD

MOV .

pom nncs mo) :SELECT PORT B TO LOCATION FOR TYPEOUT
tORT ADDRESS
PORTB
T FOR THE DRIVE TO TIMEOUT
( i
f
RMDS
2
an WHENWATCH
*CHECK TIMEOUT OCCURS
WATCH
1$
*BR IF NOT ZERO
g
:BYPASS THE REST OF THE TEST
$
A
*SAVE THE ELAPSED TIME FOR PORT
TIME,TIMEA
RS, TOLER
CALCULAI’E THE TOLERANCE
A
TIMEA

(SP)+,TIMEAP

TIMEOUTVALUE FOR PORT

:425% TOLERANCE

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

006344 023727 001256 000764
006352 103001
006354

MOVB
MOV
ST
BNE
ST
BNE
EMT
JMP
MOV

104007

CMP
BHIS
EMT

TIMEA,#500.
;s

:1S TIMEOUT VALUE AT LEAST 500 MS ?
SBR IF IT IS

CZRNIAO RM80 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

33:

006356

SVERIFY THAT THE DRIVE IS IN NEUTRAL

006356 00 (7:37 001250

ooeg% 012737 oooo15 001122
g? 00112
006

omgo 801124
012737
006374
ooo18
113760 001224
006402
00117
006410 3 go 7 oooo1s
001164
001170
013737
006416
001164
100100
006424 042737
006432 113760 001226
006440 016037 oooms
006446 013737 001172
006456 042737 100100
006462 023737 001166
006470 001
006472 005737 001164
006476 001045
104034
006500
006502 oogm 00670
013737 001170
006506
006514 013737 001226
006522 113760 001226
006530 005737 001164
006534 001414
006536 013737 001224
006544 013737 001172
006552 113760 001224
006560 005737 001166
006564 00101
177777
006566 012737
88225" 81 760 000011
oows ‘&ggg 000013

oooo1g
00117
001166
001166
001166

001250

67$:

001170

oongg

688:

006615 013737

001126 66$:

001234
000010

001234
001126
000010

000000
000000

00662 813737 001224 0012
6
737 100000 001170
0011264 001170
023737
006634
?8,‘.“}
oow.g

8 1;937
001172 001126 69%:
013737 oo1258 001234
001175
2737 1000
5
naag 023737 001124 00117
oom,'J
006654

006675 001401

006700

006702
275

104037

000240

704 000004

708:

4S:

;CLEAR THE -aemse ERROR ' INDICATOR

CLR

RELERR

MOV
MOVB
MOV
MOV
BIC

CONSTANT
vpen'opa'onv VV,SGDDAT .commsou
mé
A
PORTA ancsmo) :SELECT PORT
RMDS (RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
STMP2, srfipo SCOPY IT INTO *S$TMPO'
SATA'VV,STMPO :CLEAR PORT oepenoem BITS FROM THE COPY

MOV

swz.saoon

:LOOK FOR BIT FAILURES WHEN RMDS READ

MOV

MOV
BIC
CMP

PORTBPTNBR

:CHANGE PORT NUMBER

BEQ

$TMP3,$BDDAT
#ATA, $THP3
SGDDAT,$TMP3
7

:BR IF 0K

#RMDS,$BDADR
RO, SBDADR

MOV
ADD

PORTB ancszmo» :SELECTPORT B.
RMDS (RO) ,$TMP3 :GET THE oaxve STATUS REGISTER FROM PORT B.
:COPY IT INTO °*STMP1®
STMP3, srm
SATATUV,.STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY
:IS THE smus REGISTER THE SAME FROM BOTH PORTS ?
STMPO, S TMP1
*BR IF
66$
nscxsrens ARE THE SAME: ARE THEY ZERO ?
$TMPO
*BR IF NOT
8s
:BYPASS THE REST OF THE CHECKS
70$
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
$TMP2,$BDDAT
ssmns pom IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,PTNBR
T B.
PORTB.RMCS2(RO) .SELEC
STMPO
:SEE IF smus EQ 0 FROM PORT A.
:BR IF ZERO
67$
PORTA, men
*SEIZING PORT IF ERROR
TEST SHOWS
DRIVE NOT IN NEUTRAL
TYPE OUT
S'BAD DATA' ron
$TMP3.$BDDA
PORTA,nncszmox *SELECT PORT A.
*SEE IF STATUS EQ ZERO FROM PORT B.
STMP1
*BR IF NOT
688
:SET 'RELEASE ERROR® INDICATOR
#-1,RELERR
1 Rncsuam *CLEAR THE DRIVE
gs"RMCS1(RO) :RELEASE THE DRIVE

MOVE
MOV
BIC
CMP
BNE
ST
BNE
EMT
JMP
MOV
MOV
MOVB
ST
BEQ
MOV
MOV
MOVB
ST
BNE
MOV
MOV
gg\Tv

PORTA .PTNBR
#ATA, $TMP2
$SGDDAT,S$TMP2
gs

MOV
BIC
CMP
E;g

EMT

NOP

SCOPE

it dd

'TEST 5

:FORM THE ADDRESSOF RMDS FOR TYPEOUT
7ADD _THE 1/0 BASE ADDRESS

:CHANGE PORT NUMBER
*DON'T CHECK THE ATTN BIT
:ALL BITS OK ?
*BR IF 0K raon PORT A.

;CHECK RMDS FOR BIT FAILURES = FROM PORT 8.
*DON'T CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.
:LOOP ?

i ARRRRRR AR RN AR RRRAARAAARARARAAAAAAAAAAAAAAAAARRANS

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B

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

SEQ 0039

MEASURE THE TIMEOUT ONE=-SHOT THROUGH PORT

*HEASURE THE TIMEOUT ONE=-SHOT VALUE THROUGH PORT B

INTO RMDS THROUGH PGRT B AND VERIFY THAT THE
E* A. WRITE 0'S
HAS BEEN SEIZED.
DRIVE

i« B.

006706
006712

0067146
006716
006722
006
9&;“
006744
006752
006756
006764

MEASURE THE oumnou OF THE TIMEOUT

ONE=-SHOT AND SAVE THE VALUE FOR LATER USE.

i« C.

VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS

006706

WAIT FOR TIMEOUT TO OCCUR.

§°

TO NEUTRAL

. ttttQtttttttttttttttttttttttttttttQttttt'ttttttttttttttttttt't.
005737
0014

1
00013
012737
012737
012737

18752

001266

KYBCTL
28

MOV
MOV
MOV

#5,STSTNM
#STACK, SP
#1,STIMES

:BR IF JUST smsaeo TEST
*RETURN © GET NEXT TEST NUMBER
*SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
:MOVE #5 TEST NUMBER
*SETUP THE STACK POINTER
+:D01 ITERATION

CLR

TIMEB

;CLEAR THE TIMEOUT VALUE STORAGE LOCATION

TIME
#2000. ,WATCH

sCLEAR THE ELAPSED TIME COUNTER
:SET WATCH TO 2000. MS

B8PL
005919
- JMP
177777 001266 1$:
MOV
006744 001106 2$:
MOV
006744 001110 iand MOV

112737 000005 001102
012709 001100
012737 0
001176
005037

ST
BEQ

001262

006770 005037 001264

1$
EXEC
#-1,KYBCTL
#TESTS,SLPADR
#TESTS.SLPERR

CLR

:PERFORMING ONLY SINGLE TESTS ?
*BR IF NOT

TIMEBP ;CLEAR THE + 25% TOLERANCE LOCATION

;START THE TIMER

006774 005037 001252
007000 012737 003720 001254

CLR
MOV

sSEIZE THE DRIVE THROUGH PORT B
10

001236

MOVB

PORTB,RMCS2(RO) :SELECT PORT B

CLR
MOVB

RMDS
(RO)
PORTA,RMCS2(R0)

MOV

PORTB.SEIZPT .si
ORE SEIZING PORT'S ADDRESS
WRITE RMDS
sen.sct PORT A

1234
1240

MOV
MOV

Pom PTuaa novg T ADDRESS TO LOCATION FOR TYPEOUT
3’
:
SITE® PORT ADDRESS

001122
001126

ADD
CLR
CMP

ARMDS , SBDAD
gemf
GDDAT , $SBDDAT

1126

MOV

MOV
gsg

1234
11124
36
1166
001164

JMP
- MOV

MOV
MOV
MOV
MOV
COM
MOV

ms(k $BDDAT :sse lf DRIVE SEIJED BY PORT B

RO ssonoi

:nn/mBASE ADDRESS

:BR

;

:GENERATE BAD REGISTER ADDRESS
*REGISTER SHOULD BE ZERO
:xs THE REGISTER 2ERO
IF IT IS

:BYPASS REST OF THE SUBTEST

PORTS, nncsz(am

°SELECT PORT B

PORTB.PT
mnsss to Locmon FOR TYPEOUT
RMDS
(RO)
saooln
s;
ess CORRECT STATUS
#MOL ' PGM! m'oav' com .smcteo TATUS
$GDDAT,STMP1 ;US
ASA MASK
TMP1
comens rue sxmm STATUS
DAT,$TMPO
°$AVE THE ACTUAL STATUS

07 13:40 PAGE 9-12
1S-JAN-82
V04.00
MACRO
PT2
PORT
DUAL
RM80
CgRNlAO
POR
THROUGH
ONE=-SHOT
TIMEOUT
THE
MEASURE
T
R o it 001164
65$:
007502 000240
001164

BIC
CMP
Q

$TMP1.STMPO
sgmf.zrm

SEQ 0040
:CLEAR UNWANTED BITS
*ARE THE EXPECTED STATUS BITS SET ?
‘BR IF THEY ARE

sWAIT FOR PORT B TO TIMEOUT

7204
007212
88; 22

11;7?9
013737
00?760

001%56
001224
000012

18:

8859?9 001254
0072§g
007232
001372
007234
0072
007242
007250
007254
007256

104

1
013737
537
00126;
012637

007274
001%55
01352

MOVB
MOV
ST
BNE
ST

Pom.ancszmo) :SELECT PORT A
;MOVE PORT mness TO LOCATION FOR TYPEOUT
PORTA
:WAIT FORTHE DRIVE TO TIMEOUT
(
RMDSk
*BR WHEN TIMEOUT OCC
2
*CHECK WATCH
WATCH

JMP

g:;

001262

28%:

001264

MOV
JSR
'WORD
MOV

:BRIF NOT ZERO

TIME, TIMEB
RS, TOLER
TIMEB
(SP)+,TIMEBP

THE TEST
:BYPASS THE REST OFTIME
FOR PORT B
*SAVE THE ELAPSED
:CALCULATE THE TOI.ERANCE
r MEOUT VALUE FOR PORT B
+25% TOLERANCE

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

007262
007270
007272

023727
103001
104007

001262

CMP

000764

BHIS
EMT

TIMEB,#500.

;IS TIMEOUT VALUE AT LEAST 500 MS ?

:BR IF IT IS

sVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT
3s:
sVERIFY THAT THE DRIVE IS IN NEUTRAL

5
001045
1040
137
013737
13737
113729
5737

001164

1929

0076

22NN

00741
007414
007416
0074
7426
74
744
007%43

8
§‘fl
§§§§ge

001250
12
001122
011700
001224
18
00117
100100
1226
15
00117
100100
001164

R
)
e
e

005037
012737
37
012737
113760
016037
013737
737
11 769
0139%
13737
§;§7
7

8888

007274
007
007
007312
00
007326
34
00734
007350
007356
7394
7372
7400

N
N
oSN

007274

8 08}5;25 66$:

0011
1556
001

0011

013757 001224
Q07¢3s
007462 013737 8811;2 801726

CLR

RELERR

sCLEAR THE 'RELEASE ERROR ° INDICATOR

:FORM_THE ADDRESS OF RMDS FOR TYPEOUT

MOV

#RMDS ,SBDADR

MOV
BIC
MOV
MOV
BIC
3}5’

A
RMDS (RO) ,$TMP2 :GET THE omve STATUS REGISTER FROM PORT
sCOPY IT INTC ‘ST
2,$THPO
SATA'VV,STMPO :CLEAR PORT oepeuoem BITS FROM THE COPY
nficszgg) *SELECT PORT B.
:GET THE DRIVE STATUS REGISTER FROM PORT B.
RMDS (RO) , $T
:COPY IT INTO °*STMP1®
STHPS. $ AP1
*CLEAR PORT DEPENDENT BITS FROM THE COPY
SATATVV srm
-g's! }:FceNgmus REGISTER THE SAME FROM BOTH PORTS ?
rmo strp

g:;
JMP
MOV
MOV

8s
0s
sm»z.saoon
PTNB

ADD
MoV

THE 1/0 BASE ADDRESSCONSTANT
RO SBfiAD ?;B?V1ADD
sCOMPARISON
g¥£SGDnAT
lflbL'PGH‘DS
ECT PORT A.

srmo

.aesxsrsas 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 SiI0MS DRIVE NOT IN NEUTRAL

MOVB
ST

*SELECT PORT
Poams.ancsz(aw
*SEE IF STATUS EQ O FROM PORT A.
T

MOV
MOV

POR NBR
sws.saom

BEQ

*BR IF ZERO

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

sSEE IF STATUS EQ ZERO FROM PORT B.

;'S‘E

STMP1

e Se
ot

678:

MoV
MOV

#-1,RELERR
#11,RMCS1(RO)
g} ~RMCS1(RO)

68$:

MOV

$TMP2,SBDDAT
POR TA.PT NBR

0011%2
0012
0011
0011

698:

BEQ
EMT
MOV

9
7
$TMP3,SBDDAT

1777;7

1 38

001172
001226
100000
001124

PORTB,PT

BIC

#ATA, $TMP

BEQ

708

$SGDDAT ,$TMP3

CMP

EMT
NOP

708:

#ATA, $THP2
$SGDDAT, STMP2

MOV

4S:

68$

BIC
CMP

001124

NO &S

OO0O00=00

222SR SRSRR

‘4\%:‘#"\”!
SoTdeS
8;
N=NNNNN=N NN

Ghidte

PORTA,RMCS2(R0) sSELECT PORT A.

MOVB

SEQ 0041

- SCOPE

:BR IF_NOT
'RELEASE ERROR' INDICATOR
sCLEAR THE DRIVE
sRELEASE THE DRIVE
%
m
=

" ;39

=000

RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9°1§
C;RNIAO
MEASURE THE TIMEOUT ONE=-SHOT THROUGH PORT B
T

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

:CHECKEMDSTFOR Bl; FAILURES = FROM PORT B.
s CHANGE PORT NUMBE
sDON'T CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.
:BR IF 0K

LO00P ?

::tttt't.tlt.t..'Qt't*"tt"t'ltt.tt.tt..'.lttt'ttt.tttt't.ttt"'

S*TEST 6

TEST 'PORT SELECT® SWITCH, DRIVE CYCLED UP

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

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.

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

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

::
e
;t

::
1
::

VERIFY

st A RRARRNAARRRAAARAAAAARARARAARAARRAAAAARARICAAAARAAAAAAAAAAAAAAES

tsre:

000006
001100
000001

807662

838

001266

001102

001176

1$:

28:
TEST6:

TST

BEQ
8PL
JMP
MOV

MOV

MOV
MOV

KYBCTL

2%
1%
EXEC
#-1,KYBCTL

A#TEST6,SLPADR

#TEST6.SLPERR
#6,$TSTNM

#STACK,SP
#1,STIMES

sPERFORMING ONLY SINGLE TESTS ?
sBR IF NOT

sBR_IF JgST ENTERED TEST

HsRETURN & GET NEXT TEST NUMBER

sSET SINGLE TEST INDICATOR
sSETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

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

sCLEAR ATTENTION BITS FOR BOTH PORTS
001224

000010

MOVB

PORTA,RMCS2(R0) sSELECT PORT #A

CZRNIAO RMSO DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 9-16
TEST "PORT SELECT®

7
7
0077
760
007750 0 780
298 oonzg 104401
7

007762

104401

3% 007766 000000

SWITCH, DRIVE CYCLED UP

1
1
1
)
1
1
13
020154

01
000

000

TYPE

020246

HALT

001250

CLR

000012
oon%‘z,
011700
001226
oooo1s
00117

001122
001124
000010
001170
881164

MOV
ADD
MOV
MOVB
MOV
MOV

001226

000010

MOVB

010060 013737 001172

001166

007774
010002
10006
010014
o1oo§5
010030

012737
37
015 37
113760
0130 7
013737

010036 045737 100100
010044

113760

SEQ 0042

:SEIZE THE DRIVE
RMDS (RO)
#11,RMCS1(RO) :ISSUE DRIVE CLEAR
#13,RMCS1(RO) :RELEASE THE DRIVE
PORTB,RMCS2(R0O) :SELECT PORT #8
*SEIZE THE DRIVE THROUGH PORT °B°
RMDS (RO)
#11,RMCS1(RO) :ISSUE DRIVE CLEAR
#3.RMCS1(RO) :RELEASE THE DRIVE
SSWITCH TO ‘A’
,SWCHA
,CONTUE

*PRESS 'CONTINUE®

:VERIFY THAT THE DRIVE IS IN NEUTRAL

302
7770 005037

CLR
MOV
MOV
MOVB
CLR
MOV
MOV
TYPE

BIC

001164

RELERR

;CLEAR THE "RELEASE ERROR * INDICATOR

SATA'UV.STMPO

:CLEAR PORT DEPENDENT BITS FROM THE COPY

STMP3,STHP

SCOPY IT INTO *STMP1®

:FORM THE ADDRESS OF RMDS FOR TYPEOUT
#RMDS,SBDADR
FADD THE 1/0 BASE ADDRESS
RO, SBDADR
#MOL 'PGM'DPR'DRYVV,$GDDAT ;COMPARISON CONSTANT
PORTA ancszmg) :SELECT PORT A.
RMDS (RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
:COPY IT INTO °*STMPO®
$TMP2 , $THPO
PORTB ancszmg> :SELECT PORT B.

010052 012037 000015 001172

MOV

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

010074 023737 001164 001166
010102 oo1ogg
001164
010104 005737

BIC

CMP
BNE
ST

SATA'VV,.S$TMP1

$TMPO, STMP1
64$
$TMPO

JMP
MOV
MOV
MOVEB
ST
BEQ
MOV

688
;BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
$STMP2,$BDDAT
*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,PTNBR
PORTB.RMCS2(R0) :SELECT PORT B.
SSEE IF STATUS EQ O FROM PORT A.
$TMPO
*BR IF 2ERO
658
*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTA,PTNBR

MOV =

010066 oa;m 100100 001166

304032
010113
010114 000137 010314

64$:

010120 013737 001170

001126

001172

001126

MOV

010172 8857 7 001166
1o1;
010153
177777 001250
12737
0102
010206 012760 000011 000000

658:

3}8 53

"1“ 5?9

000013

000000

010224

137 7

001170

001126

668:

010126 013737 001%26 001234
010134
113760 001226 000010
010142 005737 001164
010146 001414
010150 013 7 oo1z;l. 001234
010156

013737

MOVE

010164 113730 001226 000010

010232
010240
010246
3}32‘;"'

013737 001224
7 50
023737
0011264

! 133}

0012
1170
001170

0102
3'050‘
10
01031

010312

ir 7 1
7 001126
u.gt

104037

1175
00117

STMP3 SBODAT

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
*BR IF NOT
*REGISTERS ARE THE SAME: ARE THEY ZERO ?

:'BAD DATA' FOR ERROR TYPE OUT

PORTA.RMCS2(R0) :;SELECT PORT A. .

ST
BNE
MOV
MOV

$TMPI
663
#-1,RELERR
#11.RMCS1(RO)

*SEE IF STATUS EQ ZERO FROM PORT 8.
:BR IF NOT
*SET 'RELEASE ERROR® INDICATOR
:CLEAR THE DRIVE

MOV

PORTA.PTNBR
#ATA, $THP2
SGDDAT,STMP2

$TMP2,$BDDAT

:CHANGE PORT NUMBER
SDON'T CHECK THE ATTN BIT
:ALL BITS OK ?

gg}r

o1o§63 137
7 001172 oo11§2
678:
0012
13737 001226

:CLEAR PORT DEPENDENT BITS FROM THE COPY

MOV
BIC
CMP
Efi?

MOV

MOV
BIC
CMP
BEQ
EMT

g;s.mcsmo)

g;s

$TMP3,$8DDAT

PORTB . PTNBR
#ATA, STHP
$GDDAT,$TMP3
$

*RELEASE THE DRIVE

:LOOK FOR BIT FAILURES WHEN RMDS READ
B8R IF OK FROM PORT A.

:CHECK RMDS FOR BIT FAILURES = FROM PORT B.

*CHANGE PORT NUMBER
SDON'T CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.
‘BR IF OK

07:13:40 PAGE 9-1§
15-JAN=-82
V04.00
MACRO
PT2
PORT
DUAL
RMSO
CZRNIAO
UP
CYCLED
DRIVE
SWITCH,
SELECT®
"PORT
TEST
16
10314

240

S 010326

000000

010 13 104401
104401
010

688:

o%osn
020246

NOP

TYPE
TYPE

HALT

SEQ 0043

,SWTCHB
.CONTUE

:SWITCH TO '8’
*PRESS 'CONTINUE®

:VERIFY THAT THE DRIVE IS IN NEUTRAL

otosig oosggr 001250

#MOL ' PGM'DPR!DRYVV,$GDDAT ;COMPARISON CONSTANT
PORTA ancszmg) :SELECT PORT A.
RMDS (RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.
:COPY IT INTO °*STMPO’
STMP2 , STHPO

MOVE

PORTB ancszmg» *SELECT PORT B.

100100 001164

BIC

010404

010412
010420
010426
010434
010442
010444
010450
010452

113760

016037
013737
042737
023737
001006
005737
001045

00122

117
00001
001172 001166
100100 001166
001164 001166
001164
001126

698:

177777

001250

70$:

000013

000000

010466 013737
010474 113760
010502 005737
o1osog 001414
81051 o1gm
10516 013737
o1os§42. mrgo
005737
gws
10536 oo1o1;
010540 012737
010546 012760
8}322‘2

%‘ 560

001%26 0012
001226 000010
001164
oo1z;4 001234
001172 001126
001226 000010
001166
000011 000000

001170 oongg 718:
010564 1;7%9
013737 001224 0012
010572
001170
010600 84;;;7 1
010606 023737 001126 001170
8}82}'5

?313%%

13737

010626
0106
owus
01065

010652
810654

1065

10 810664

001172

oon;e

13;;7 001226 001234
g 7 1ooogo 88"75
737 001124
00117
1401

104037
880;4

5737

001266

104401

020106

1402

}5 10670 000004

RMDS (RO) ,$TMP3
STMP3, STHP1
SATA'VUV,.STMP1
STMPO, STHP1
STMPO
718

:GET THE DRIVE STATUS REGISTER FROM PORT B.
SCOPY IT INTO *STMP1®
:CLEAR PORT DEPENDENT BITS FROM THE COPY
*IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR IF NOT
*REGISTERS ARE THE SAME: ARE THEY ZERO ?
:BR IF NOT

JIP
MOV

73s
$TMP2,$BDDAT

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

gas.mm (RO)

:RELEASE THE DRIVE

*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB.PTNBR
PORTB.RMCS2(R0) :SELECT PORT B.
$TMPO
SSEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
70$
*SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTA,PTNBR
$STMP3 $BDDAT
- 'BAD DATA' FOR ERROR TYPE OUT
PORTA.RMCS2(R0) :SELECT PORT A.
*SEE IF STATUS EQ ZERO FROM PORT B.
STMP1
*BR IF NOT
71%
*SET 'RELEASE ERROR® INDICATOR
#-1,RELERR
#11.RMCS1(RO) :CLEAR THE DRIVE

MOV

$TMP2,$8DDAT
.PTNBR

vsng\rf

MOV
BIC
CMP
MOV

:CHANGE

SDON'T CHECK THE ATTN BIT
:ALL BITS OK ?

$TMP3,$BDDAT

:CHANGE PORT NUMBER
SDON'T CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.

; $

PORTB mga
#ATA, $THP
SGDDAT.STMP3

EMT
NOP

73$

*BR IF OK FROM PORT A.

:CHECK RMDS FOR BIT FAILURES = FROM PORT B.

:BR IF OK

TST

KYBCTL

:SINGLE TEST MODE ?

TYPE

,SWTCHN

*RETURN SWITCH TO °*A/B°

BEQ

18:

PORTA

BIT FAILURES WHEN RMDS READ
:LOOK FORPORT
NUMBER

#ATA, $THP2
$SGDDAT,STMP2

MOV
BIC
CMP

BEQ

738:

MOV
MOVE
ST
BEQ
MOV
MOV
MOVEB
ST
BNE
MOV
MOV

Efi?

728:

OF RMDS FOR TYPEOUT
ADDKESS
THE 1/0
:FORM
ADDRESS
BASE
7ADD_THE

MOV
MOV
BIC
CMP
BNE
ST
BNE
EMT

104034

010456 000137 010654
010460 013737 001170

:CLEAR PORT DEPENDENT BITS FROM THE COPY

MOV
MOVB
MOV
MOV

MOV
ADD

010376 042737

SATATUV,STMPO

RELERR

001122
0127377 000513
010334
°°"So
010342

001124
010346 012737 011700
001224 000010
010354 113760
010392 016037 oooo15 001170
010370 013737 001170 001164

,$BDADR
#RMDS
RO, SBDADR

;CLEAR THE "RELEASE ERROR * INDICATOR

CLR

SCOPE

*BR IF NOT

*LOOP

CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15°JAN-82 07:13:40 PAGE 9-18
TEST 'PORT SELECT®

SEQ 0044

UP
SWITCH, DRIVE CYCLED

"n
tnnnnnn
ntnntnn
nnnnntt
atnnttn
tnnnnnt
TEST "PORT SELECT® SWITCH ON PORTA
'TEST 7

‘gg
4

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

010672

W D'll'.'.'.'.l..'l..ll'.

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.

SWITCH THE 'PORT SELECT® SWITCH TO A; CYCLE THE DRIVE UP.

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

gggUEAA DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH

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

THAT °‘ATA-A IS SET.

INTO RMDS THROUGH PORT B.

ISSUE A RELEASE COMMAND THROUGH PORT A.

DRIVE REMAINS LOCKED ON PORT A.

3323222222282 2322333222222 3 3322 d

i T7:

i d

VERIFY THAT THE

ittt

ddddiiiiidddd)

010676 001406
;
010700 1
9
010702 00013
1$:
77 001266
17
012
010706
2$:
001106
010714 1;737
8} g; 12737 o1ono 00111 s

BEQ
B8PL
JMP
MOV
MOV
MOV

KYBCTL

:PERFORMING ONLY SINGLE TESTS ?

112737 000007 001102

o1o7sg 012706

001100
010742 012737 000001 001176
10
1224
010750 1137
54 001234
7?9 331
01104401
010756
020317
o1o;94

MOVE

MOV

#7,.STSTNM

#STACK,SP

:SETUP THE STACK POINTER

010770 104401 020154
010774 104401 020337

010000 000012 1$:
011000 032760
011006 801 %
011010 032 90 010000 000012 28:

TYPE
TYPE

BIT
BNE
BIT

.CYCLEU

S'CYCLE UP THE DRIVE®

.aa IF NO (DRIVE NOT CYCLED UP)

010672

005737 001266

010730

MOV
MOVB
MOV
TYPE

011016 001774

BEQ

28
1$
EXEC
#-1,KYBCTL
#TESTZ.SLPADR
#TEST7.SLPERR

*BR IF NOT
ea IF JUST meaeo TEST
URN& GET NEXT TEST NUMBER
resr moxwoa
ser smas
:SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
:MOVE #7 TEST NUMBER

23001 ITERATION
n.snks
A
Pom RMCS2(RO) ;SELECT PORT
TO LOCATION FOR TYPEOUT
PORT ADDRESS
PORTA .PTNBR .novt
DRIVE®
THE
DOWN
:CYCLE
.cmto
SSWITCH TO ‘A
.SWTCHA

#MOL ,RMDS (RO)
18
#MOL ,RMDS (RO)

.xs *MOL® RESET?
;r NQ (DRIVE "NOT CYCLED DOWN)
SET?

sDRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT A

011020 005037 001244

CLR

CKERR

sCLEAR THE °'CHECK ERROR' INDICATOR

c;amo RMS0 DUAL PORT PT
TEST 'PORT SELECT®
T

SEQ 0045

00 1S-JAN-82 07:13:40 PAGE 9-18
VOlo
2 MACRO
ON
SWITCH

1 88"33
016037
1
1
12737
0011
7
001124
1
12737
013737 0011 9 001164

MOV
MOV
ADD
MOV
MOV

RMDS (RQ) SBDDAT :GET CONTENTS OF RMDS
ms $BDADR okn REGISTER ADDRESS OF ERROR MESSAGE
ADD RH/RM BASE ADDRESS
ADR
m :WHAT REGISTER SHOULD
-m'm.seo
uh'
:MOVE aesism courems T0 °'ST
SBDDAT,STMPO

001174
011076 811. 737 001126
001174
737 111700
011104
3}”12 (13(5“ 4 { 001174 001124

MOV
BIC
g;

SBDDAT,$TMP4
#111700,$TMP4
grm.séom

11026
110
1104
81104.4
11052

737
737
001414

011060
o11ogo
011074

BIC
CMP
BEQ

0 881164
001164
001126

001244
omgg oos1§7
000240

648:

011126

coM

NOP

BITS
' ;SAVE SPECIFIED
$TMPO .tom\ae
mm?oo
THE
fif”‘"LSTHPO
:BR IF OK
$
CKERR

:COPY °*BAD DATA®
.c:.m THE MASKED BITS
:0R' WITH GOOD DATA FOR TYPEOUT

:SET THE REGISTER COMPARE ERROR INDICATOR

:SET VOLUME VALID FOR PORT A

MOV
MOV
MOV

011130 012760 000011 000000
011136 012760 000021 000000
011144 012760 010000 000032

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

:CHECK THE DRIVE STATUS THROUGH PORT B; VERIFY THAT °*NED’

*SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT B.
011152

7go

001226

011160 013737 001%26 001234
005037 001244
011166
011172 016037 000012 001126
011200 012737 oooo15 001122
37 00112
onzog
o11g1 005037 001124
011216 013737 oo11;9 001164
001164
000077 001164
gm
onzgz
0112
614
011240
001174
011242
001174
011250
001124
3“522
onzsg
01127

011274

011
811306
11314
011
311 6
11;
011
01135
31135
1
“ 6

11?73
1140

11404

MOV
CLR
MOV
MOV
ADD
CLR
MOV
BIC
CMP
BEQ
MOV
BIC
g’{;
COM

PORTB,RMCS2(R0)

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
:CLEAR THE 'CHECK ERROR® INDICATOR
CKERR
RMDS (RO) , ssow :GET CONTENTS OF RMDS
#RMDS ,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE
RH/RM BASE ADDRESS
:ADD
sabm
RO
*WHAT REGISTER SHOULD BE
$60DT
:MOVE REGISTER comsms TO *STMPO*
SBDDAT,STMPO
' ;SAVE SPECIFIED BITS
$TMPO
mwfioo
:COMPARE THE BIT
SGDDAT,STMPO
:BR IF 0K
668
:COPY *BAD DATA'
$BDDAT,STMP4
#177700,8TMP4 :CLEAR THE MASKED BITS
:*OR' WITH GOOD DATA FOR TYPEOUT
gm.,$GDDAT
:SET THE REGISTER COMPARE ERROR INDICATOR
CKERR

:SELECT PORT B

CLR

CKE

:CLm THE "CHECK ERROR' INDICATOR

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

MOVEB

000010

668:

oongg
0011
001124
1164

NOP

MOV
MOV
ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC
Efi

1164
1164
001174 .
001174
001124
688:

coM

NOP

CLR

mcsz«ao: saow
T CONTENTS OF RMCS2
#RMCS2,
SBDADR
okn
REGISTER
ADDRESS OF ERROR MESSAGE
RO, SBDADR
D RH/RM BASE ADDRESS
#NED,
SGDDAT uuh
aesxsre SHOULD BE
:MOVE REGISTER CONTENTS TO °*STMPO'
$BDDAT, ST
mueo.sr
SAVE SPECIFIED BITS
:ggm ST
COMPARE THE BITS
:sa IF 0K
:COPY °*BAD DATA'
SBDDAT,STMPG
#NED, $TMP4
:CLEAR THE MASKED BITS
SOR' WITH GOOD DATA FOR TYPEOUT
gml.scow

RMDS (RO)

:TRY TO SET REQUEST BY WRITING THROUGH

CZRNIAO RMSO DUAL PORT PT2 MACRO V04.00 15-JAN=82 07:13:40 PAGE 9-20
T

TEST *PORT SELECT'

SEQ 0046

ON PORT
SWITCH

;THE LOCKED OUT PORT (PORT °'B*)

011410
011416
Ollage
011432
011440
011446
011454
011460
omeg

;2
1 54.
11 729
1224
81 7
13 0 1 1
012760 1224
01
1
1226
1137
1226 001234
0137
001244
037
016037 88881 oonsg
12 0011
12737

o11s§8
011530
011536
8”?53

001414
013737 09}126 001174
oa; 7 177700 001174
gg‘4 z 001174 001124

011560

000240

sVERIFY THAT DRIVE STAYS LOCKED ON PORT A

poau.uncsmo) SELECT PORT
PORTA.PTNBR ;MOVE PORT mnsss ro LOCATION FOR TYPEOUT
PORT A
THROUGH
RELEASE
A
:ISSUE
afios(no)
13
PORT
ON'
‘LOCKED
SADDRESS OF
PORTA,SEIZ
PORTB, nncszcao) SELECT PORT B
PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
;CLEAR THE °‘CHECK ERROR® INDICATOR
CKERR
mos(no) SBODAT " :GET_CONTENTS OF RMDS
S, $B8DADR okn aesxsm ADDRESS OF ERROR MESSAGE

BEQ
MOV
BIC
E%%
CoM

SBDDAT,$TMP4
#177700,$TMP4
gzm.ssow
CKERR

ADD
CLR
MOV
BIC
CMP

7 83"001124
01147
005037
011500
011506 013737 0011 g 001164
gr 000077
o11s;5 04
001164
001124 001164
023737
011520
011556 005137 001244

MOVB
MOV
mov
MOV
MOVE
MOV
CLR
MOV
MOV

708:

NOP

ADDRESSBE
BASE
ADD RH/RM
RO
885
SHOULD
nesxsren
SWHAT
sabw
nove aesxsren CONTENTS TO *STMPO®
$BDDAT,$
BITS
:SAVE SPECIFIED
'
STMPO
$
mwfioo
BITS
THE
tom\n
STAPO
T,
A
sson
:BR IF OK
70$

:COPY °*BAD DATA®
.ch THE MASKED BITS
SSOR' WITH GOOD DATA FOR TYPEOUT
:SET THE REGISTER COMPARE ERROR INDICATOR

;IF ERROR OCCURRED, CHECK FOR LOOP ON TEST

011562

011566
011570
011576
011600
011604
011610
011614
011620
011622
011630
011632
om,sg
011642

105737

oom;
032777
0014
10503
005037
000177
005737
001460
777
001054
104401
104401
106401

001000 167342
oonos

001176
167%76

040000 167310

38:

020317

o1g9
0203

1224
011646 113;39
1224
13
811656
116% 32760 01
1374
0116
011672 032760
011700 001774

TSTB

001103

010000

10
001234
12 4s:
000012

S$:

SERFLG

:DID AN ERROR OCCUR

BEQ
BIT
BEQ
CLRB
CLR
JMP
ST
BEQ
BIT
BNE
TYPE
TYPE

78
#SW09, aSWR
33
SERFLG
STIMES
aSLPERR
KYBCTL
6$
#SW14,aSWR
6$
,CYCLED
.smm

:BR IF NOT
*SEE IF LOOP ON ERROR (SWR9 = 1)
*BR IF NOT
:CLEAR THE ERROR FLAG
*CLEAR THE MAX ITERATION COUNT
%GO TO THE LOOP ADDRESS
:IN SINGLE TEST MODE ?
:BR IF NOT
:LOOP ON TEST ?
*BR IF LOOPINGDOWN'
:TYPE *CYCLE
S'SWITCH TO A/B°

BIT

mt.m‘nS(RO)

*BR IF NO (DRIVE NOT CYCLED UP)

TYPE
MOVB
MOV
BIT
BNE

BEQ

3'CYCLE THE oaxve uP*
PORT 10 LOCATION FOR TYPEOUT
nncszmo»
éom PTNB
ponr ADDRESS
n novtSELECT
mn..kno
;IS "MOL® RESET?
:BR IF NQ (DRIVE "NOT CYCLED DOWN)
4

;1S

?
'MOL® SET

:SET VOLUME VALID FOR BOTH PORTS

011702 012760
011710 012760
011716 012760
omgl. 11 ;gg
0117 5 813

011740

012760

1
21
13
1226
1226

1
001234

MOV
MOV
MOV
MOVB
MOV

MOV

A
#11,RMCS1(RO) ;ISSUE A DRIVE CLEAR THROUGH PORT
#21.RMCS1 (R ) SISSUE A READIN PRESET THROUGH PORT
#13°RMCS1(RO) SRELEASE PORT A
PORfB nncszmo) -SELECT PORT B
pga NBR :MOVE PORT ADDRESS TO Locmon FOR TYPEOUT

nficsmm ;ISSUE A READIN PRESET THROUGH PORT B

440

WNINY

8220

MoV

MOV

MoV
18T

BNE
SCOPE

w~N

g 8322

D
D o

A = s e oD ond
~~
~

PAGE 9'2‘
07:13:40
15-JAN-82
V04.00
MACRO
PT2
PORT
DUAL
RMSO
TEST *PORT SELECY SWITCH ON PORT
[=l=lolel-] (=1}

Iy L

=i e0000000000000
0 00000000000 00000000000%00000000000%000000e%e0, !o.

'TEST 10

e Q'I.'..'Q'..Q.D.ll...".l..’..'

%;RNIAO

SEQ 0047

lFHT‘lé RMF (RO) ;SET_FMT16

sRELEASE PORT B

"360

;SPINDLE MOTOR °*COOL DOWN' DELAY
FINSIHED ?

..U

IF NT
LOOP_?

.’.’GO TO NEXT TEST

TST10

L L DL
bt L t
itbbbtt

T L

TEST "PORT SELECT® SWITCH ON PORT B

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

CYCLE THE DRIVE DOWN.

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

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

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

lggUEeA 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 1'0 SET PORT REQUEST BY WRITING 0°S

THAT ‘ATA-B IS SET.

INTO RMDS THROUGH PORT A.

G.
H.

ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE

DRIVE REMAINS LOCKED ON PORT B.

CYCLE THE DRIVE DOWN.

CHANGE THE 'PORT SELECT® SWITCH TO

A/B; CYCLE THE DRIVE UP.

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

—h

o e

=D e

OO00O0O0OOO0O0O0O

b ik

t;atttttttttttttt!t'ttt'Qttttfitt.ttttfittttlttt.tttttt'ttttttttt

BEQ

8PL
JMP
MOV
1$:
MOV
2s:
BN MOV
" MOVvB

KYBCTL

:PERFORMING ONLY SINGLE TESTS ?

1$
EXEC
#-1.K
smon
neino .SLPERR
#TEST10

ea IF JUST emsaeo TEST
N TEST NUMBER
& GET NEXT
*RETUR
SSET SINGLE TEST INDICATOR
ADDRESS
SCOPE LOOP
SSETUP ERROR
LOOP ADDRESS
:SETUP

;MOVE #10 TEST NUMBER

#10,STSTNM

*SETUP THE STACK POINTER
230 1 ITERATION

MOV
MOV

#STACK, SP
#1,$TIRES

MOvB

PORTB, RHCSZ(RO)

MOV

PORTB.PTNBR

IF NOT
:RR

:SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

SEQ 0048

07:13:40 PAGE 9-25
IS-JM-BZ
V04.00
MACRO
PT2
PORT
DUAL
RMB0
ZRNIAO
10
ST "PORT SELECT' SWITCH ON PORT
TE

020317

81 074

104401

012110
81 "3
1 15

032760 010000 000012 18:
1;71.
2 90 010000 000012 28:

12100 104401 8 8 11
37
012106 104401

012126 001774

'cchs DOWN_THE DRIVE'

TYPE

,CYCLED

BIT

#MOL ,RMDS (RO)
1$
#MOL ,RMDS (RO)

TYPE
TYPE

BNE
BIT
BEQ

.SWTCHB
.CYCLEU

§un T0 ‘B’
CYCLE UP THE DRIVE'

an IF no (muvs NOT CYCLED UP)

1s 'MOL® RESET?
;rNQ (DRIVE "NOT CYCLED DOWN)
* SET

:DRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT B

015132 005037 001244

012134
01%14.2
012150
012154
012192
012170
012176
012204
012206
012214
012222

016037
012737
37
o1§737
013737
ol.grsr
023737
001414
013737
ol.gm

00001
000012
00112
110600
oo1129
066077
001126
001126
111700

053737 001174

012230 1o¢o§1

MOV
MOV
ADD
MOV
MOV
BIC
CMP
BEQ
MOV
BIC

oonzg
00112

001124

001164
001164
001164
001174
001174

BIS

001124

012232 005137 001244
012236

CLR

000240

EMT

648:

COM

NOP

CKERR

;CLEAR THE °CHECK ERROR® INDICATOR

$TMP4,SGDDAT

:°OR® WITH GOOD DATA FOR TYPEOUT

RMDS (RO) , SBDDAT " ;GET_CONTENTS OF RMDS
ms $BOADR ;FORM aesxsm ADDRESS OF ERROR MESSAGE
:ADDRH/RM BASE ADDRESS
$BDADR
BE
SHOULD
asexsrea
sWHAT
nv.scom
nfmnouopa'o
'STMPO'
TO
CONTENTS
REGISTER
:MOVE
$BDDAT,STMPO
BITS
:SAVE srecmeo
$STMPO *;COMPARE
mnfioo
THE BITS
$GDDAT,STMPO
643
:BR IF OK
:COPY °"BAD DATA'
$BDDAT,$TMP4
#111700,$TMP4 ch THE MASKED BITS
21

CKERR

;SET VOLUME VALID FOR PORT B

MOV
MOV

012240 012760 000011 000000
012246 012760 000021 000000

012254 012760 010000 000032

MOV

m.nncsuno)
#21.RMCS1(RO)

:SET THE REGISTER COMPARE ERROR INDICATOR
;ISSUE A DRIVE CLEAR
:ISSUE A READIN PRESET

mm nnomm SSET FMT16

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

“SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A.

001224

MOVE

000010

012262

113760

365
01
3} 366

; 7 ?977 001174
3‘ 5 7 001174 001124

012410
012416
012424

01
012737
37

012270 013737 001224 001234
005037 001244
012276
012308 160;7 oooms 001126
012310
012737 000012 001122
015313
330037
001122
01232
5037 001124
01 3;2 013737 3355 9 881164
0123
84 7
1164
mz 001126 001164
3} ?s’%
001126 001174
013737
012352

3} %g
012404

sg; 001244
0 9 1244

10 oonss
12 0011
00112

:SELECT PORT

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
:CLEAR THE °'CHECK ERROR® INDICATOR
CKERR
mos(ao) SBODAT " :GET CONTENTS OF RMDS
S,$80ADR ;FORM aecxsren ADDRESS OF ERROR MESSAGE
safi
RO
:ADD RM/RM BASEADDRESS
$GODA
SWHAT neexsER SHOULD BE
saoor$TMPO
:MOVE REGISTER CONTENTS TO °*STMPO*
#°c177%00,$TMPO *;SAVE SPECIFIED BITS
'SS"?,E THE BITS
ssom.$THPO
SCOPY "BAD DATA'

g'x'.;.

2;»$GDDAT

BIC

PORTA,RMCS2(R0)

MOV
CLR
MOV
MOV
ADD
CLR
MOV
BIC
g?;
MOV

'c‘gnP
CLR

MOV
MOV
ADD

srm SCLEAR THE MASKED BITS
”ggrob
CKERR
CKE

:'OR' WITH GOOD DATA FOR TYPEOUT

:SET THE REGISTER COMPARE ERROR INDICATOR
:CLEAR THE °CHECK ERROR' INDICATOR

mcszmo: saooAr <GETcomems OF RMCS2
#RMCS2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
*;ADDRH/RM BASE ADDRESS

SEQ 0049

DUAL PORT PT2 MACRO V04.0015=JAN-82 07:13:40 PAGE 9-2§
RMB0
TEST *PORT SELECT® SWITCH ON PORT B
9 1164
13737
0124
1164
1677
737 11
012444 023737
0011264 001164

MOV

ANED seow sWHAT REGISTER SHOULD BE

8} %2 134.5 7

CMP
BEQ
MOV
BIC
Efi.";’

sgow.
688
SBDDAT,STMP4
#NED , $TMP4

:COMPARE THE BITS
*BR IF OK
:COPY °*BAD DATA®
*CLEAR THE MASKED BITS

CKERR

:SET THE REGISTER COMPARE ERROR INDICATOR

0124

1124

12737 1

012452
1614
0124
01 t.% 13737
84.;7 7
0124

MOV
BIC

001126 001174
1oogo 001174
001174 001124

001244
oos1§;
0125
000240
012512

688:

012514 005060 000012

COM
NOP
CLR

CONTENTS TO *STMPO'
REGISTERBITS
MOVESPECIFIED
$BDDAT,S
%8sAve
mneo.s
gnpl.scow

RMDS (RO)

S%0R' WITH GOOD DATA FOR TYPEOUT

;TRY TO SET REQUEST BY uamne THROUGH
:THE LOCKED OUT PORT (PORT°

sVERIFY THAT DRIVE STAYS LOCKED ON PORT B

012520
012526
012534
012542
012550
012556
012564
012570
012576
012604
012610
012614
012622
012630
012636
012640
012646
012654
012662
012664

012670

113760
013737
012760
mgm
113760
013737
005037
016037
012737
060037
005037
013737
ol.gm
023737
001414
013737
042737
053737
104024
005137

000240

oo1256 000010
0012 g 001234
000013 000012
001%26 001236
001224 000010
001224 001234
001244
000012 001126
000012 001122
00112
001124
001126 001164
000077 001164
001124 001164
001126 001174
177700 001174
001174 001124
001244

708:

MOVE
MOV
MOV
MOV
MOVB
MOV
CLR
MOV
MOV
ADD
CLR
MOV
BIC
CMP
BEQ
MOV
BIC
BIS
EMT
COM
NOP

PORTB,RMCS2(R0) :SELECT PORT B
PORTB.PTNBR ;MOVE PORT ADDRESS TO Locmon ron TYPEOUT
:ISSUE A RELEASE THROUGH PORT B
3 nnosmo)
sADDRESS OF 'LOCKED ON' PORT
PORTB, SEIZ
mn.nncszmm :SELECT PORT
PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
:CLEAR THE 'CHECK ERROR' INDICATOR
CKERR
wscno).ssow :GET CONTENTS OF RMDS
#RMDS,SBDAD okn REGISTER ADDRESS OF ERROR MESSAGE
ADD RH/RM BASE ADDRESS
RO seom
*WHAT REGISTER SHOULD BE
$GODA
:MOVE REGISTER CONTENTS TO *STMPO*
saom $TMPO
#°C177%700,$TMPO " ;SAVE SPECIFIED BITS
:COMPARE THE BITS
SGDDAT,STMPO
:BR IF OK
70$
:COPY °*BAD DATA®
SBDDAT,$TMP4
#177700,8TMP4 :CLEAR THE MASKED BITS
:'OR® WITH GOOD DATA FOR TYPEOUT
$TMP4 ,SGDDAT
24
:SET THE REGISTER COMPARE ERROR INDICATOR
CKERR

:IF ERROR OCCURRED, CHECK FOR LOOP ON TEST

012672

012676
012700
012706
012710
81 714
12720
012;54
012732
012734
012740
012744

TSTB

105737

001103

032777
0014
105037
005037
ogom
032777
001054

001000 166232

00141

001103

001176
166164
040000 166206 3$:
182“" 2 317
gg
104401
104401

012750 11grgg

0203

1556 000010

80‘1)003 000‘1)534
015756 81 7
000012
1
32790
012764
4
ogu
012772
012774

BEQ

032760

010000

000012

4S$:
5$:

BIT
BEQ
CLRB
CLR
JMP
BIT
BNE
TYPE
TYPE
TYPE

MOVB

MOV
BIT
BNE
BIT

SERFLG

:DID AN ERROR OCCUR

3s
#SW09,aSWR
3
SERFLG
STIMES
aSLPERR
#SW14,3SWR
5%
,CYCLED
.surcm

IF NOT
*BR
*SEE xr LOOP ON ERROR (SWR9= 1)
IF NOT
*BR
*CLEAR THE ERROR FLAG
SCLEAR THE MAX ITERATION COUNT
260 TO THE LOOP ADDRESS
.LOOP ON TEST?
*BR IF LOOPING
:TYPE_*CYCLE DOWN'
'sux CH TO A/B'

mot.nnos(no)

:IS

CYCLE THE DRIVE UP'

fioma nncsz(ao)
:SELECT PORT B
MOVE PORT ADDRESS T0 LOCATION FOR TYPEQUT
.xs 'noL' RESET?
kno
moL
:BR IF NO (omvs "NOT CYCLED DOWN)
4
*moL* SET

_—r

SEQ 0050

°2

DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 9-2%
IAO RMB0
TEST "PORT SELECT® SWITCH ON PORT B

BEQ

013002 001774

:BR IF NO (DRIVE NOT CYCLED UP)

:SET VOLUME VALID FOR BOTH PORTS

01
81 15
1
013026
01
2
01
013050
013056
013064
013072
013076
013100
-~ 013102

1 768
1276
127
11 73
0137
012760
015760
012760
012737
005737
001375
000004
000137

11
ofl
1 %4
1224
000021
01ooog
00001
072460
001254

000000
ooog
00
gw
3°
001234
000000
000032
000020
001254 6$:

7%:

013110

MOV
MOV
MOV
MOVB
MOV
MOV
MOV
MoV
MOV
TST
BNE
SCOPE
J

#11,RMCS1(RO) ;ISSUE A DRIVE CLEAR THROUGH PORT B
0¥1 "RMCS1(RO) :ISSUE A READIN PRESET THROUGH PORT B
#13,RMCS1(R0) ;RELEASE PORT B
PORTA,RMCS2(RO) ' :SELECT PORT A
PORTA.PTNBR :;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
:ISSUE A READIN PRESET THROUGH PORT A
#21 ,RMCS1(RO)
OF :SET FMT16
#FMT16,RM(RO)
JRELEASE PORT A
#13.RMCS1(RO)
#30000.,WATCH :SPINDLE MOTOR 'COOL DOWN' DELAY
:FINISHED ?
WATCH
*BR IF NOT
:LOOP ?
:GO TO THE END OF PASS ROUTINE
SEOP

4(.2

32 ttttttt*ttttttttttttt'ttttttttttt.tttttttttttttttttttttfittttttt

444

. 'tttttttttttt'ttttttt'ttttttttt.tt.tttttt'tttttttttt.ttttttttt.t

*PUT NEWTEST HERE

443

TST11:

SCOPE

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

né

SEQ 0051

END OF PASS ROUTINE

.SBTTL

END OF PASS ROUTINE
2222222223 3322233233322 2333232233222 22223

3 12 2 2 2 3

;*INCREMENT THE PASS NUMBER (SPASS)

dddddiiididdaddl)

;*INDICATE END=OF =PROGRAM AFTER 1 PASSES THRU THE PROGRAM
s*TYPE

'END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY

s*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
s*IF THERES A MONITOR GO TO_IT
s*IF THERE ISN'T JUMP TO TSTT1AA

$EOP:

013110

01§11o 005737 001266
013114

013116
013122
0131%6
013132
013136
013144
013146
013150
013152
013154

013156

001402

000137
005037
005037
005237
042737

005327
000001
003066
012737
000001

002610
001102
001176
001100
100000

001100

013746

001100

013210
013212
013216
013220

104405
005737
001431
104401

001112

013270

013746

001112

013274
013276
013302

104405
005037
104401

001112
001207

013224 000421
s

64$:

013226

013322
313324

13326

013326
013330
013332

(PC)+

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

::YES
;;RESTORE COUNTER

658

:LOOP?

:3TYPE ASCIZ STRING

648

MOV

$PASS,=(SP)

::SAVE SPASS FOR TYPEOUT

TYPDS
ST
BEQ
TYPE

SERTTL
$GT42P
678

$36G0 TYPE=--DECIMAL ASCII WITH SIGN
*3SEE IF ANY ERRORS THIS PASS
IF NO ERRORS TO REPORT
“:BR
S:TYPE ASCIZ STRING

MOV

SERTTL,=(SP)

;;SAVE SERTTL FOR TYPEOUT

JASCIZ

$GET42: MOV

BEQ
RESET
SENDAD: JSR
NOP

000240
000240

$DOAGN:

377

*BR IF NOT

TYPDS
CLR
$GT42P: TYPE

001405
000005
004710
000240

000137
003074
377

MOV

.46

*3GET OVER THE ASCIZ

<12><15>/END PASS’ #/

$:TYPE PASS NUMBER

*:GET OVER THE ASCIZ
668
BR
LAST REPORT /
SINCE
ERRORS
TOTAL
gggrs: JASCIZ /

013303 013700 000042

013312
013314
013316
013320

*RETURN TO KEYBOARD CONTROL
EXEC
*:7ERO THE TEST NUMBER
STSTNM
$:7ZERO THE NUMBER OF ITERATIONS
STIMES
:SINCREMENT THE PASS NUMBER
$PASS
#100000,8PASS- ::DON'T ALLOW A NEG. NUMBER

DEC
$EOPCT: .WORD
BGT

::658:

013204

JMP
CLR
(LR
INC
BIC

TYPE

013160 104401 013166
013164
013204

KYBCTL

$ENDCT: .WORD
$EOPCT

013146

;ENTERED TEST VIA KEYBOARD COMMAND ?

BEQ

000

SERTTL
SCRLF

3442.R0
$DOAGN

PC, (RO)

SENULL: .BYTE

.EVEN

$360 TYPE=-DECIMAL ASCII WITH SIGN
:3CLEAR ERROR TOTAL
*:TYPE CARRIAGE RETURN, LINE FEED

:3GET MONITOR ADDRESS

*:BRANCH IF NO MONITOR
$3CLEAR THE WORLD
$:G0 TO MONITOR
:SSAVE ROOM
+:FOR
SIACTI

NOP
NOP

JMP
SRTNAD: .WORD

$:TOTAL NUMBER OF ERRORS

a(PC)+
TSTTAA
=1,=1,0

: sRETURN

::NULL CHARACTER STRING

SEQ 0052

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

.SBTTL

sROUTINE TO CHECK FOR KW11=L OR KW11=P CLOCKS

013512
3% 813516

013520

4
39 013522

40 013553

f fie
kg 01;526
44 013540

45 013542
46 013546

g%OOOOO
—

SNERRVEC+2
@SLKCSR
SLPVEC.R1

CKCLK1:

CKCLK2:
CKCLK3:

; CHECK FOR KW11-pP

:KW11=P VECTOR ADDRESS

SELUP KW11=P VECTOR
PRI 6

0135
gtnggR

sLOAD COUNTER BUFFER UITH 1S

sRESTORE THE STACK POINTER

a$
SLLVEC,R1
(R1)+
lgbOCK

:KW11=L VECTOR ADDRESS
SET UP KW11=L VECTOR

0100
gSLKS

.SET KU11-L INTERRUPT

04 S
"2, (SP)

sRESTORE THE STACK POINTER

SET CLOCK = CNT UP, 16Ms, CONT INT

ICECLKZ.OIERRVEC CHANGE ER?R VECTOR TO CHECK FOR KW11-L

165552

000004

SEE
UP VECTOR FOR CLOCK CHECK

#CKCLK1,@#ERRVEC

CKCLK:

(R1)+
ogbocx

purd

8 013354
9 013360
10 813364
11
013370
1% 013376
13 013404
14 0134
15 01341
16 0134%0
17 013424
18 013430
19 013434
%0 013440
1 013446
2% 013450
23 013454
24 013460
- 25 013466
26
F44
28
29 013470
30 013476

o
88
ot
NN W
NN
~
N ~ SNRNNNITRS
NNN
> VI~
3
ISEYSNTY
N
de
W

i
1§ 30

000004

5 01%336

34
35
36

CLOCK SUBROUTINES

RTS

lb.a#ERRVEC

FOR KW11-L
PRI 6

: INCREMENT RETURN, NO CLOCK
*RESTORE THE ERROR VECTOR

sROUTINE TO COUNT CLOCK TICKS
0000;1
001254

001252

000021

001254

CLOCK:

1$:

#7.,TIME
WATCH

1$
#17. ,WATCH
1$
WATCH

;ADD 17 MS TO ELAPSED TIHE COUNTER
Tf¥ ?LREADY ZERO ?
: S

1§ MS FROM WATCH DOG COUNTER
.SUBTRACT
IF NOT MINUS
:CLEAR WATCH DOG COUNTER
:RETURN

CALCULATE + 25% TIME TOLERANCE VALUES
000002

TOLER:

-(SP)

2(SP)(SP)
a(RS)+ =(SP)

(SP) ,4(SP)
P)

000002

(SP)
(SP)+,2(SP)
R5

sMAKE ROOM ON THE STACK

sSAVE_STACK

:GET TIME VALUE
sMOVE TIME

VALUE

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

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

SEQ 0053

SCOPE HANDLER ROUTINE

.SBTTL

SCOPE HANDLER ROUTINE
L

Dy L

b laiinibivinieiebibiaiaiiiaiebbeuiuisivbdduiviniv

'%SL&QDJTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

THE TEST NUMBER(STSTNM) INTO THE DISPLAY gEG. (DISPLAY<7:0>)
s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:0

:#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOUP ON TEST
;eSW14=1
INHIBIT ITERATIONS
;*SW11=1
'CALL
::SCOPE=10T

SCOPE

$SCOPE:

014104
040000

165354

014066

000004
014454
014454

000004

014454

37 000001 014454
0327
1424
177766
1
15762 1140
102 177
015658

1140

$SVLAD
(SP)+, (SP)+
(SP) +.a#ERRVEC

::CLEAR THE STACK AFTER A TIME OUT
..RESTORE THE ERROR VECTOR
LOOP ON THE PRESENT TEST

CODE FOR THE XOR fesrsnawwwc

800006
013670
177766

0021 6
165160
001000

sNO _IF SW14=0

..JW OVER SCOPE ROUTINE

ORE THE_ERROR VECTOR
?g;)+oggERRVtC.cREST
::60 TO THE NEXT TEST
SOVER

014454

177777

98
SOVER

..I.OOP ON PRESENT TEST?

sTIME OUT _ON XOR?

5$:

177777

177777
013704

b e
b e

000004

JMP

FOR CHANGE IN SOFT-SWR

ll#llSTART OF ngE FOR THE XOR TE?TE:’IIII
F RUNNING ON THE 'XOR" TESTER CHANGE
$XTSTR
A _‘NOP'' (NOP=240)
THIS INSTRUCTION TO
THE ERROR VECTOR
OF
S
C,~(SP)
_CONTENT
@#ERRVE
..SAVE THE
TIKOUT
ET
FOR
lSS,;#ERRVEC
ssS
MoV

SERFLG
43
#-1,CPSAVE

:sHAS AN ERROR OCCURRED?

:
20008

0-1 CPSAVE

#20018, (SP)

ssSET CPU ERROR REGISTER TIMEOUT INDICATOR
:sSETUP RETURN ADDRESS

2001$:

(SP)+,ERRVEC

s sRESTORE CONTENTS OF ERROR VECTOR

2002$:

#-1,CPSAVE

:;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

001103

D e

b e o wd

OO0

98:

000004

D
b d

W
N

COOO0OOO0O0OOO0O0O0O0O0O
D med el e D b =B o b D =B b D

TRy
PRTERIESNSE s
RS333 FEREEEERS

000004
013620
177060
04

PC,STOP

#8iT14,35WR

1$:

ssTEST

001140
165152

03
C,=(SP)
c;ogos.eanve

asxrgo,CPSAVE

#81700,177766

)(g?gr)
a(c1§fi
gsua

ag}rbg asWR
1

(SP)+,3(SP)

(SP)+,SWR

: sBR

F NO

..SEE IF_TIMEOUT WAS PREVIOUSLY RECORDED
KICK AROUND ROUTINE IF SO
..SAVE CMTENTS OF ERROR VECTOR
RETURN ADDRESS
sSETUP *
..NVE CPU ERRM REGISTER TO CPSAVE FOR TEST

s sBRANCH IF

..SEE IF THE POUER MONITOR BIT IS ON
; SBRANCH_TO CONTINUE ROUTINE IF CLEAR
..CLEM THE BIT FOUNDTO BE SET
sSAVE SWR DRESS

..SAVE SWR VALUE

sGET SOFWARE SWR ADDRESS

..GE CURRENT SWR VALUE

..DW'T ALLOW LPOP ON ERROR ON THIS ERROR
sCALL SPECIAL POWER FAIL BIT ERROR CALL

..RESTORE SWR TO ORIGINAL VALUE
s sRESTORE SWR ADDRESS

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

V0N

2LE009g
S8R55
SRSk RS>0$38
oSN

2003s:
4S:

3s:

18:

CLRB
CLR

$SERFLG
STIMES

::ZERO THE ERROR FLAG

BNE
TST
BEQ
INC
CMP
BGE
MoV

1$
$PASS

s:BR IF YES

BIT

MoV

$SVLAD: INCB

SOVER:

MoV

MOV
MOV
RTI

#8IT11,3SWR

ssCLEAR THE NUMBER OF ITERATIONS TO MAKE
s s INHIBIT ITERATIONS?

::1F FIRST PASS OF PROGRAM
1$
INHIBIT ITERATIONS
33
g]CNT
22 INCREMENT ITERATION COUNT
TIMES,$SICNT
:2CHECK THE NUMBER OF ITERATIONS MADE
VER
:2BR IF MORE ITERATION REQUIRED
#1,S1CNT
J;REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
2:COUNT TEST NUMBERS
:2SAVE SCOPE LOOP ADDRESS
S$TSTNM,aDISPLAY ::DISPLAY TEST NUMBER
SLPADR, (SP)
:2FUDGE RETURN ADDRESS
ssFIXES PS

ssMAX. NUMBER OF ITERATIONS

SMXCNT: S.

STOP:

)
e
=D

oaogg

BRSNS

:DROP PRIORITY TO ALLOW CONSOLE INTERRUPT
00000
—d b cmd b b

VIS W

-b e e e e e e

e e e e

o o

ERBDDEDDDDDS BEBDES

0000000000000

SEQ 0054

MOV
MoV
RTI

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

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

sRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT

65$%:

MOV
=?¥

#PR5 ,=(SP)
#658,-(SP)

ssPUT NEW PS ON STACK
:sPUT NEW PC ON_ STACK
:;POP NEW PC AND PS

RTS

sRETURN

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

SEQ 0055

ERROR HANDLER ROUTINE

.SBTTL

ERROR HANDLER ROUTINE

$ t.‘Qt'tt..tt'ttfitttt"'tt".!tttttlttttt...tt..ttttl'.tt."'.'t

:*THIS ROUTINE WILL INCREHENT 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 WT'I“ULJS PROVIDED BY THIS ROUTINE ARE:
T ON ERROR
s xSW15=1
INHIBIT ERROR TYPEOUTS
s eSW13=1
:i}{,‘_{’“
BELL ON ERROR

v
014132

105037 014456

014140
014146
014152

113737
105237

014136 104407

014154
omes
014170
014172
mmg
014202
014206

014214
014222
014230
014232
ou.%ao
014242

014246
014250
014256
014260
014264
8}2%5

001775

013777
032777
001402
104401
005237
011637
162737

117737
032777
001060
122737
001456
105737

001047
022737
001445
o137l.9
o1§7§
0137oz

ERROR

$ERROR: CLRB

001102
00110

001242

002000

164750

CKSWR

78:

; sERROR=EMT AND N=ERROR ITEM NUMBER

IBSAVE

::CLEAR THE ITEM BYTE SAVE LOCATION

$STEST FOR CHANGE IN SOFT=SWR

MOVB
INCB

STSTNM,TSTNUM
SERFLG

..ser THE ERROR FLAG
ON'T LET THE FLAG GO TO ZERO

MOVB
BIT
BNE
C(MPB
BEQ
TSTB

@SERRPC,SITEMB
#B1T09,3SWR
1004$
#177,S1TEMS
1004$
IBSAVE

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

#-1,CPSAVE
(SP)+,ERRVEC

CPU ERROR REGISTER TIMEOUT INDICATOR
::SET
*3SETUP RETURN ADDRESS
;:;RESTORE CONTENTS OF ERROR VECTOR

BEQ

oo1zos
1$:
00111
001116
000002 001116

STSTNM,3DISPLAY ..oxspuw TEST NJMBER AND ERROR FLAG
MOV
::BELL ON ERROR?
BIT _ #BIT10.3SWR
SINO = sxx
BEQ < 1%
..nme BELL
$BELL
TYPE
*COUNT THE NUMBER OF ERRORS
$ERTTL
INC
iSGET ADDRESS OF ERROR INSTRUCTION
(SP) ,SERRPC
MOV
#2,$ERRPC
SUB

177777 0144564
.
000004
014302 000004
177766 014454

BNE
CMP
BEQ
MOV
MOV
gv

001102 164760

164676 001114
164710
001
000177 001114
014456

MOV
177777 014454 1000$: m
o°1uzn7i37
ou.sos
014316
012716
8}2’3}4
1001$: MOV
014316 ongzcgg; 000004

1003$
#-1,CPSAVE
1004$
ERRVEC,=(SP)
#1000S ERRVEC
}5‘7,1?*CPSAVE
#10018, (SP)

::BRANCH IF SO
..see If CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
: *BRANCH IF SO
..SAVE coureurs OF ERROR VECTOR
::SETUP 'TRAP' RETURN ADDRESS
:-MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

3"'3%3 852737 177777 014454 10028: CMP
143
1420
BEQ
BIT
014332 032737 000001 0144564
014340

001414

#-1 SPSAVE
1004
#81T00, CPSAVE

BIC
MOVB
MOVB
BR

#81700,177766
sn;u?
IBSAVE
iTE
100

..ch THE BIT FOUND SET
::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL
S:SET SITEMB TO SPECIAL POWER FAIL POINTER
BRANCH OVER IBSAVE CLEARING

8}8‘%

105037

014456

CLRB

IBSAVE

014372

032777

020000

BIT

:gms.asun

::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS
::$KIP TYPEQUT IF SET

BEQ

ou.sl.s ol.grgr 000001 1777
014350 113737 001114 014456
014356 112737 000177 001114
014364

014400
014402

737 014460

}3323’

164540

BNE
JSR

1004$

208
PC,SERRTYP

::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
:*BRANCH IF SO
..sse IF POWER MONITOR BIT IS SET IN CPU ERR REG
::BRANCH IF OK

$SKIP TYPEOUTS
%360 TO USER ERROR ROUTINE

V04.00 15-JAN-82 07:13:40 PAGE 13-5
MACRO
PT2
PORT
DUAL
RM80
CZRNIAO
ERROR HANDLER ROUTINE
382

014456

O [elelelelela)

001207

TYPE

+SCRLF

1ST8

iBSAVE
$
SWR
$

ssSEE IF IBSAVE IS LOADED

#SENDAD ,a#42
63

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

;QSAVE
$

ssSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
s ;BRANCH BACK TO CALL ORIGINAL ERROR

0
0

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

013316

3
&»H

- e

164514

014454
014456

014456

000042

3s:

6$:

CPSAVE:
IBSAVE:

SEQ 0056

s sBRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
:sHALT ON ERROR
ssSKIP IF CONTINUE
ssHALT ON ERROR!
ssTEST FOR CHANGE IN SOFT-SWR

s sRETURN

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

33 1:2222 2222222222232 2 2322

iR d i it

i diidddiiddiiiddiidil

:*THIS ROUTINE USES THE “‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
s*ERROR IS TO BE REPORTED. IT THEN OBTAINS FROM THE "ERROR TABLE'' (SERRTB),
s*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
SERRTYP:

$CRLF

::"cem%ese RETURN'' © *LINE FEED"

0
01447
014474

$:PICKUP THE ITEM INDEX

014476

$ERRPC ,~(SP)

::SAVE SERRPC FOR TYPEOUT
:3ERROR_ADDRESS

108
#177 RO
1000 $
STSTNM,PFTSTN
#PFECH,RO
001$

ssGET OU
:sSEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL

RO,=(SP)
aASITEMB,RO
1$

—

SfigfiAQOWUJ'

015016

1000s:

SO
OOHNONO—
V=2
Or =
NNONWO

4$:

SR
SRS
=] on e
58
mcd

SRC,C’

SO
=SW=

W
NSNS
—

dsdd
et

—

560 TYPES-OCTAL ASCII(ALL DIGITS)
s sBRANCH IF NOT

$3GET TEST NUMBER

: SMOVE POVER FAIL ERROR CALL TABLE TO RO
s sBRANCH TO CALL ERROR
ssADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE
]

::TYPE THE

2$:

R1,-(SP)
(R0)+,R1

5$:

9
(RO)+,RO
(RO)+
7%
a(R1)+,-(SP)

6$:

7$:

014652

::TYPE THE PC OF THE ERROR

:;FORM TABLE POINTER
::PICKUP "ERROR MESSAGE'' POINTER
::SKIP TYPEQUT IF NO POINTER

1001$:

3s:

d §R£295ERERKS
NN

ONSNON

He grh

On
W
N

e T
P

et B

1$:

£ \fiU“flU“fiUfig

BEDDDNNNS BEDDDDEDDDDS Y

QOO
0000000000000
TCOOO0O0O0O0OO00O0O00O0000C
b o D amd o md D ed D b omd i wmd P
N
N
N
N
S
A
R
Y
e
R e e

014502
014504

;:1F _ITEM NUMBER IS ZERO, JUST

3(R1)+,-(SP)

'ERROR MESSAGE

POINTE
;1 ERROR WESSAGE'
: 3""CARRIAGE RETURN'' © '11
::PICKUP “DATA HEADER'* POINTER
::SKIP TYPEOUT IF 0
::TYPE THE ‘DATA HEADER
::"DATA HEADER'' POINTER GOES HERE
& ''LINE FEED
:3"'CARRIAGE RETURN''
:sSAVE R1

:sPICKUP ‘DATA TABLE'' POINTER
s:BR IF

ECIMAL
::BR
::SAVE a(R1)+ FOR TYPEOUT
3260 TYPE=-OCTAL ASCII(ALL DIGITS)

::SAVE @(R1)+ FOR TYPEOUT
2260 TYPE--DECIMAL ASCII WITH SIGN
::1S THERE ANOTHER NUMBER?
2:BR IF NO

TYPE

::TYPE TWO(2) SPACES

MOV
MoV

::RESTORE R1
::RESTORE RO

TYPED

:LO0P

SEQ 0058

5
16-?
PAGE
07:13:40
T alfilfl'ik(ko V04.00 15-JAN=-82

; 001207
0

1
1

000

000000

040

118:

TYPE

RTS

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

S$CRLF

* SRETURN

.esgxz /

$3TWO(2) SPACES

014759 015 ; PFECH: PFECH1,PFECH2,PFECH3 precuc ..uonos DEFINING TABLES BELOW
SET?

1 5

BIT IN CPU ERROR REGISTER FOUND
PFECH1: .ASCIZ° ?POWER MONITOR

PFECH2: .ASCIZ

é 014454 PFECH3: .WORD
PFECH4: .BYTE
000
1

PFTSTN: .WORD

vresruo

ERR PC

CPUERREG?

PFTSTN,SERRPC,CPSAVE,0
0.0,0.0
0

:;CONTAINS TEST NUMBER FOR PF BIT ERROR

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

SEQ 0059

TYPE ROUTI

.SBTTL

TYPE ROUTINE

tt..t.tl..t.it..fit."Q."t"'t.'.t'....t...t'tt't.'..'.."'.".

tRWTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BVTE.
'THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
s*NOTE1:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

"DTE

SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

:*NOTEQ:
CALI.

'1) USING A TRAP INSTRUCTION
-oa
ie

MESADR

STYPE:

TSTB

S83%

ok el

~
N
=5
~J
vNXS -3 ON 8(- V] o
& ORANWVINN
b

e882

§Fg-o <

000001

000011

—

¥ NESRSN NS
N

000002

QAT

A2DAD
R =1=1=]
r

SRS
O

(=l=1=}

:ra-n-na — b b b b

OO0

OOO0O0O0O00O0O

D e b D e b cnd b e
o
b ) e b
b b b
b— e o e
\J
v wvivawnawa wvivauvwvauiauauniananaanawn
-

d o)

Vil

00000

000002

737
105337
000770

18:
28:
608:

38:
48:

015170
001156

001154

78:

015170
015306

STPFLG

::1S THERE A TERMINAL?

RO,=(SP)
a2(sP) ,RO
(RO)+,=(SP)
4
(SP)+
(SP)+,RO
#2,(SP)
fir.(sn

guneae

ggm.(sn

::BRANCH IF NOT <CRLF>

(SP)+

CLRB

SCHARCNT

..CLEM CHARACTER COUNT

1(SP)

SSAND THE NULL CHAR.
$:DOES A NULL NEED TO BE TYPED?

;gmcu

:3D0 NOT COUNT AS A COUNT

BR
JSR
cMP8
BNE
MOV

ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$3BR IF YES
:HALT HERE IF NO TERMINAL
3 LEAVE
*SAVE RO
..ssr ADDRESS OF ASCIZ STRING
::PUSH CHARACTER TO BE TYPED ONTO STACK
S5BR IF IT ISN'T THE TERMINATOR
:3IF TERMINATOR POP IT OFF THE STACK
RO
*RESTORE
:;ADJUST RETURN PC
*RETURN
;.-wwcu IF <HT>

BPL
HALT
B8R
MOV
MOV
MOVB
BNE
ST
MOV
ADD
RTI
g?;a
;zs&

015306

+MESADR

TYPE

i
:t

001157

TYPE

DECB

BLT
JSR

gscs

2
PC,S$TYPEC
SFILLC,(SP)+
2
SNULL ,=(SP)

6%
PC.STYPEC

:POP <CR><LF> EQUIV

..rvrs A CR AND LF

$3GET NEXT CHARACTER
2360 TYPE THIS CHARACTER
SIS IT TIME FOR FILLER CHARS.?
::1F NO GO ser NEXT CHAR.
“3GET # OF FILLER CHARS. NEEDED

$3BR IF NO=-GO POP THE NULL OFF OF STACK
2360 TYPE A NULL

sHORIZONTAL TAB PROCESSOR

9 018170
000009 015306

MOVB
JSR
BITB
BNE
ST
BR

(SP)

Sinm

SCHARCNT

(sP)o

..aepucs TAB WITH SPACE
3TYPEA SPACE
*:BRANCH IF NOT AT
::TAB STOP
*POP SPACE OFF STACK
$3GET NEXT CHARACTER

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

IA0 RM80

0151;8

15170

15176
15173
01520
815 os
}g }‘

105777

STYPEC:

163750

1 22
8}. 4 19;7“
sm 1 6og
12 713 00002
00101

163724
815214 18‘5,777
1 ;75
015220
o1sg§3
015
015236
015240
015240

ol.sm 177600
122716 000021
001366

015242

105777

163702

015250

116677

000002

015266
015272
015274

105037
000406
122766

015306

015304
015306

105227
000000

015222

015242

117716

163720
1028:

005726

015246 100375

108:

000002

000012

000002

015302 001402
015310

000207

BPL
MOV
BIC
CMPB
BNE

ISTB

TSTB

MOVB

18:

@$TKS

::CHAR IN KYBD BUFFER?

@$TKS

:3WAIT FOR CHAR

10$
a$TKB,=(SP)
#177600,(SP)
WSXOFF,(SP)
1028

1018
BPL
(SP)
aSTKB,
MOVB
#177600,(SP)
BIC
CMPB #SXON, (SP)
1018
BNE
(SP)+
ST

BPL

163674

015256 1227eg 000015
015264 00100

ISTB

@$TPS

10$

2(SP),asTPB

CMPB
BNE

#CR,2(SP)
18

BEQ

STYPEX

CLRB
B8R
CMPB

INCB
$CHARCNT: .WORD
STYPEX: RTS

SEQ 0060

SCHARCNT
STYPEX
#LF,2(SP)
(PC)+
0
PC

::BR IF NOT
$3GET CHAR
::STRIP EXTRANEOUS BITS
CHAR XOFF
+:WAS
+:BR IF
:3GET CHAR

::STRIP IT
S:WAS IT XON?
:3BR IF NOT

::FIX STACK

;sWAIT UNTIL PRINTER IS READY
::LOAD CHAR TO BE TYPED INTO DATA REG.

::IS CHARACTER A CARRIAGE RETURN?
.
:SBRANCH IF NO
$3YES==CLEAR CHARACTER COUNT
IEXIT
*5IS CHARACTER A LINE FEED?

*:BRANCH IF YES

$3COUNT THE CHARACTER
*SCHARACTER COUNT STORAGE

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

SEQ 0061

BINARY TO OCTAL (ASCII) AND TYPE

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

$3 1323222222222 2222330222228

3 112223

it it i idddddiililly

:*THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.

22NN

::%HEOS--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
:sNUMBER TO BE TYPED
NUM,=(SP)
MOV
;
TYPOS

.BYTE

BYTE

ssCALL FOR TYPEOUT

2:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

::M=1 OR

::1=TYPE LEADING ZEROS
::0=SUPPRESS LEAPING ZEROS

:*$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:*$TYPOS OR $TYPOC
s*CALL:

s*
-

MOV

TYPON

NUM,-(SP)

::NUMBER TO BE TYPED

;3sCALL FOR TYPEOUT

::%;.VIOC-“ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
k3

H®

015312
015316
015326

017646
116637
112637

000000
000001
015537

015535

015336
015344
015352

112737
112737
112737

000001
000006
000005

015535
015537
015534

113704

015537

015374
015400
015406
015410
015414
015418
01542

062704
112437
113704
o1gsos
005003
006105
882404

oooogs
0155
01553
000012

015426
015426
0154
815432
15434

006105
006105
%gsos
103
105337

015330 062716 000002
015334 ooomg

015360 010346
015362 010446
015364 010546
015366

015372

015422

005404

015440 1oog1g
042703
015442
015“8
19%
01545

015452

015454

177770

001403

005204

#1,SOFILL
#6.SOMODE+1
#5.SOCNT

::SET THE ZERO FILL SWITCH
*3SET FOR SIX(6) DIGITS
::SET n.g ITERATION COUNT

SOMODE+1,R4

:3GET THE NUMBER OF DIGITS TO TYPE

R3,=(SP)
Ré.=(SP)
RS.=(SP)
Ré

::ADJUST RETURN ADDRESS

::SAVE
:SSAVE Ré
:3SAVE RS

ADD
MOVB
MOVB
MOV
CLR
ROL
BR

#6.Ré
Ré&.SOMODE
SOFILL,.R4
1§<sm.as
R
RS
33

;:SUBTRACT IT FOR MAX. ALLOWED
$3SAVE IT FOR USE
*3GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD
: SROTATE MSB INTO °°C
:360 DO MSB

ROL
ROL
MOV
ROL
DECB

RS
RS
RS.R3
R3
DE

::GET LSB OF THIS DIGIT
$STYPE THIS DIGIT?

ROL

BPL
BIC
BNE

48:

::PICKUP THE MODE
::LOAD ZERC FILL SWITCH
::NUMBER OF DIGITS TO TYPE

MOV
MOV
MOV
NEG

::NUMBER TO BE TYPED

2:CALL FOR TYPEOUT

a(SP) ,=(SP)
1(SP).SOFILL
(SP)+.SOMODE+1

#2,(SP)
$TYPON

MOVB

38:
-

NUM, = (SP)

ADD
B8R

S$TYPOC: MOVB
MOVB
STYPON: MOVB

28:

015536

TYPOC

$TYPOS: MOV
MOVB
MOVB

18:

105

MOV

BEQ

INC

7
#177770,R3
4
R4

:3FORM THIS DIGIT

*:BR IF NO
SSTEST FOR 0

$3GET RID OF JUNK

: SSUPPRESS THIS 0?

::BR IF YES

“SDON'T SUPPRESS ANYMORE 0'S

ZRNIAO RM8O DUAL PORT PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 16~1

SEQ 0062

INARY TO OCTAL CASCII) AND TYPE

154.23 85 7
527
154

154.63
1gt.7
1 473
01550
015504
0155
01551

1103
18«. 1
1 53‘7
3347
gaoz
04
8°° 4

01 5558
015530

012616
000002

015536

000000

1
0155
155

58:

78:

68:
012605
015512
604
81
015514
815518 12603
15520 016666 000002 0600004

o1sss§
01553
015534
015535

000
000
000
000

BIS
BIS

MOVB
TYPE
DECB
BGT
BLT
INC
B8R

MOV
MOV
MOV
MOV

MOV
RTI

BYTE
8s:
BYTE
$SOCNT: .BYTE
OFILL: .BYTE

OMODE: .WORD

#'0.R
# R

R3,8S
24
$OCNT
28

28
(SP)+,RS
(SP)+.R&
(SP)+.R3
2(SP) .4 (SP)
(SP)+,(SP)

0
0
0
0

:3MAKE THIS DIGIT ASCII
SSMAKE ASCII IF NOT ALREADY

::SAVE FOR TYPING
2360 TYPE THIS DIGIT
:3COUNT BY 1
:3BR IF MORE TO DO
.
::BR IF DONE
S INSURE LAST DIGIT ISN'T A BLANK
2360 DO THE LAST DIGIT

*RESTORE RS
$:RESTORE Ré&
*SRESTORE R3
$3SET THE STACK FOR RETURNING
: sRETURN

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

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

SEQ 0063

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

224222222232 2233223222223 3 3232223422222 3333

3 12 2 2 2

iiidiiddd]

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*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

::REPLACED WITH SPACES.
s«CALL:

i
015540
015542
015544
015546
015550
015552

015556
015562
015564
015566
015574

015576
015602
015606
015610
015614

015616

015620

015622

015624
015626

$TYPDS:

010046
010146
010246
010346
010546
012746 020200
016605
1
005405
112766
005000

000020

000055

000001

012703 015754
112723 000040
005002
016001 015744
160105

18:
28:

38:

002402

::PUT THE BINARY NUMBER ON THE STACK

MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,=(SP)
RS.=(SP)
#20200,-(SP)

::PUSH RO ON STACK
*:PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN

MOV
MOVB
CLR
MOV
SUB

#$DBLK ,R3
#' ,(RS)+
R2
$DTBL(RO),R1
R1.RS

::SETUP THE OUTPUT POINTER
$3SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
;:GET THE CONSTANT
::FORM THIS BCD DIGIT

MOV
BPL
NEG
MOVB
CLR

BLT

774

060105
005702

48:

106316
103003
116663

58:

015630 001002
105716
015634 100407

000001

015650
015654
015660
015662

052702 000060
oszrog 000040
1102
005720

015670
015672

002746
003002

177777

R1.RS
R2

::ADD BACK THE CONSTANT
*SCHECK IF BCD DIGIT=0

ASLB
BCC
MOVB

(SP)
6%
1(SP),=1(R3)

$3MSD?
*:BR IF NO
::YES==SET THE SIGN

BNE
IST8
BMI

015674 010502
015676 000764
015700 105726
015702 100003

116663
105013

015716

012603

015714 015605

315720 012602
15722 012601

177777

98:

5%
(SP)
78

RO,#10

MOV
BR
TSTB
BPL

RS.R2
65
(SP)+
13

$3GET THE LSD
$360 CHANGE TO ASCII
$3WAS THE LSD THE FIRST NON=ZERO?
$:BR_IF NO

MOV

(SP)+,RS

MOVB
CLRB

MOV

MOV
MOV

#'0,R2
4 .R2
R2,(R3)+
(RO) +

*:FALL THROUGH IF 0 0°S?
$3STILL DOING LEADING
::BR IF YES
:SMAKE THE BCD DIGIT ASCII
SSMAKE IT A SPACE IF NOT ALREADY A DIGIT
*SPUT THIS CHARACTER IN THE OUTPUT BUFFER
$3JUST INCREMENTING
$3CHECK THE TABLE INDEX

BLT
BGT

177776

::BR IF DONE

ADD
ST

015664 020027 000010
8s:

$:GET THE INPUT NUMBER
$:BR IF INPUT IS
:SMAKE THE BINARY NUMBER POS.
SSMAKE THE ASCI] NUMBER NEG.
$32ERO THE CONSTANTS INDEX

B8R

BIS
BIS
MOVB
ST
CMP

015704
015712

68:
78:

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

$360 TO THE ROUTINE

S INCREASE THE BCD DIGIT BY 1

INC

005202

015632

015636
015640
015642

NUM, = (SP)

TYPDS

015540

MOV

2
8s

=1(SP),=2(R3)
(R3)

(SP)+.R3

(SP)+.R
(SP)+.R

$3G0 DO THE NEXT DIGIT
2360 TO EXIT

::YES==SET THE SIGN FOR TYPING
$3SET THE TERMINATOR

$:POP STACK INTO R

$:POP STACK INTO R
$:POP STACK INTO R1

SO
S NONO S

0000000000 ung;
Gt
—

d e

Vi
NINSNNNNNNN ~
v £ £ 5SS WNND

=23

g%za
’.fl

(wlal
~N

SEQ 0064

PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 17-1

MAL AND TYPE ROUTINE

MOV

TYPE

015754

MOV

000002 000004
$DTBL:

$DBLK:

MoV
RT
}0000.
10.

.BLKW

(SP)+,R0
$DBLK

2(SP) ,4(SP)
(SP)+,(SP)

::POP STACK INTO RO

*:NOW TYPE THE NUMBER

$SADJUST THE STACK
s;RETURN TO USER

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

TTY INPUT ROUTINE

.SBTTL

TTY INPUT ROUTINE

JiNANARARAAARAAAAAAAAAAAAAAAAAAAARAAAAAAAAAACRAAAAAAAAAAAAARAACSS

015764
015766
015770

015772

"ENABL

LSB

000000
000000
000000

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD

015773

$TKQEND=.

O
8

:sNUMBER OF ITEMS IN QUEUE
: s INPUT POINTER
: SOUTPUT POINTER

$TKQSRT: .BLKB 1

::TTY KEYBOARD QUEUE

.EVEN

;*TK INITIALIZE ROUTINE

*#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

:#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

s=CALL:

i
i

015774 0050

016000
016006
016014
016022
016030
016034
016042

012737
01 ;37
012737
012737
005777
012777
207

815764.

015772
015766
016044
000200
16311
000100
:

015766
015770
000060
000062
163102

JSR
RETURN

$TKINT: CLR

MOV
MOV
MOV
MOV
ST
MOV
RTS

PC,STKINT

STKCNT

::CLEAR COUNT OF ITEMS IN QUEUE

#STKQSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT :;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV,@#TKVEC ;:INITIALIZE THE KEYBOARD VECTOR
#200,a#TKVEC+2 ::'BR'* LEVEL 4
asTkB
:3CLEAR DONE FLAG
#100,3$7KS
:SENABLE TTY KEYBOARD INTERRUPT
PC
::RETURN TO CALLER

;*TK SERVICE ROUTINE
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:*IT IN THE QUEUE.

:*IF THE CHARACTER IS A "'CONTROL=C'’ (C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE “'CONTROL=C’* RESTART ADDRESS (START)

016044 117746 163076
016050 042716 177600

$TKSRV: MOVB
BIC

016056 021627 000021
012322 001002
01
005726
8}6064 000002

omou“
o0 021627
000003
816072
1007

CMP
BNE
ST
RTI

(SP) ,#$XON
308
(SP)+

:31S IT A RANDOM XON?
$3BRANCH IF NO
:3CLEAN RANDOM XON OFF STACK
* SRETURN

::1S
IT A CONTROL C?
$SBRANCH IF NO

JSR

PC,STKINT

s:INIT THE KEYBOARD

gmog
1
oowsg
1611
1627 00000
18:
816116
1
161%0 052 7 000176 001140

JMP
cMP
BNE
CMP

START
(SP) 47
$
#SWREG, SWR

::CONTROL C RESTART
$3IS IT A CONTROL G?
: SBRANCH IF
$31IS SOFT=-SWR SELECTED?

016130
161;2 022737 000001
161
°8,‘,°8"

CMP
BNE

#1,$TKCNT
3s
.

::1S THE QUEUE FULL?
:BRANCH IF NO

16074

104401

737

0161

5759.»

016126

001500

16140

104401

317172

TYPE

015774

001202

015764

2s:

BEQ

TYPE

(SP) ,#3

::PICKUP THE CHARAZTER
::STRIP THE JUNK

BNE

016182

CMP

@$TKB,=(SP)
#4C177.(SP)

SCNTLC

(SP)+

,SBELL

SSTYPE A CONTROL=C (~C)
::CLEAN UP STACK

$360 TO SWR

$SRING THE TTY BELL

SEQ 0065

SHOHO

b purd purd b
e
b e

NN
W

d—

D d e e

o~
O

D D e

OO ONONONON

o o o 0000000000000 O0O0O0O0O0O0000

) =D

—~

880000 DR -na-ha-ha-ua;:: g :
RR
NSFRIFRS
NgN \h\h&&& SRSk

PORT FT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 18-1
|

srgg

1627
1021
5
ogs 7;9
105
75
46
042719
022627
001
012

38:

000023
162762
162754

31$:

192750

177600
000021
000100 162726

; 015764
0052
021627 000140

32¢:

1775160
112677 015766

48:

000002

58:

002405

021627 000175
04271

005237
023727 015766 015773
001003
012737 015772 015766

SEQ 0066

ggr

ggm

..cn.flw CHARACTER OFF OF STACK

CMP
BNE
CLR
ST
T1STB
BPL
MOVE
BIC
CMP
BNE
3?\1'

(SP) ,#23
32%
asTks
(SP)+
@$TKS
31$
@S$TKB,=(SP)
#4C177,(SP)
(SP)+,#21
31
#100,387KS

..ls IT A CONTROL=S?
CH IF NO
..DISABLE TTY KCYBOARD INTERRUPTS
*CLEAN cm OFF STACK
TIWAIT FORA CHAR
$3LOOP UNTIL ITS THERE
..GET THE CHARACTER
MAKE IT 7-BIT ASCII
..xs IT A CONTROL-Q?
*BRANCH IF NO
::zg;mnste TTY KEYBOARD INTERRUPTS

::1IS IT UPPER CASE?
::BRANCH IF YES
..xs IT A spscm. CHAR?

INC

CMP
BLT
CMP
BIC
MOVB
INC

CMP

BNE
MOV
RTI

STKCNT
(SP) ,#140
(SP) ,.#175

$3COUNT THIS CHARACTER

IMAKE IT u»en CASE
PUT IT IN QUEUE
*3AND
<sp$o.asrxom
SUPDATE THE POINTER
STKQIN

$TKQIN,#STKQEND ..so OFF THE END?

::BRANCH IF NO
5$
#STKQSRT,$TKQIN :;RESET THE POINTER
:SRETURN

AR
ANNANAAARAAS
NRAAR
AR RRRRRRRRARANRRA
AR RARRR
IRRRRRRRRA

*SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED FROM THETRAP HANDLER, AND WILL

:*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

022737 000176 001140 $CKSWR: CMP

001124
105777
100121

117746

BNE
TST8
BPL

162634
162630

177600
042716
021627 000007

001300

MOVB
. BIC
CMP

BNE

#SWREG, SWR

158
@$TKS
15$

@8TKB,=-(SP)
(SP)
mm
(SP) ,#7

;1S THE SOFT=SWR SELECTED

..EXIT IF NOT
:IS A CHAR WAITING?
..1r NOT, EXIT

YES
IT 7-BIT ASCII
JSMAKE
3318 IT A CONTROL-G?

SIF NOT, PUT IT IN THE TTY QUEUE

LSAND EXIT

I
OONONON

—

O0000O0
OO0

ttttttttttttttttttttttttttlttttttttttttlttttttttttttttttt.'tttt

3CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY meaaupr SERVICE
A RESULT OF A
*+ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL

TYPED, AND THE SOF TWARE SWITCH aesxsrsfi sems SELECTED.
“«CONTROL-G BEING$AUTOB,#1
:;ARE WE RUNNING IN AUTO-MODE?

123727 001134 000001 &$:
(MPB
001971.
BEQ
ST
005 §6
JSR
004737 015774
CLR
005077 1 2572
112737
001135
MOVB
104401 5
TYPE
104401
$GTSWR: TYPE

01374
104402

(SP)+
PC,STKINT
asfks
#1,SINTAG
scnn.s
SWR

MOV
§mea.-(sp)
TYPOC

$SBRANCH IF YES

*CLEAR CONTROL=G OFF STACK
..n.usn THE TTY INPUT QUEUE
*DISABLE TTYKEYBOARD INTERRUPTS
$iSET INTERRUPT MODE INDICATOR
;;ECHO THE CONTROLG (%G)
*TYPE CURRENT conrems

YPEOUT
..SA
€
SWREG
FOR
T
::60 TYPE=-OCTAL ASCIICALL DIGITS)

-l

e dand

PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 18-5
NPUT ROUT INE
81637
16402
016404
816403

104401 017222
005046
005 9
162532
105777

016414

117746

16412

016420
016424
016430
016432
0164
016442
016450
016452

198:
78:

100375

042716
021627
001015
104401
7
123727
00100
012777

177600
000003
017172

oooogg
001135

000001

000100 162464

ow.s% 000137 001766

8s:

016464 021627 000025
016470 001005

98:
20$:
108:

016504

021627

000015

016512
016516

005766
001403

000004

016510 001022
016520
omsgc
016532
016536
016544
016546

016554
016556
016562

016568
016570

016574
016576

816602
16606
016610
016612
016614
016616

2
81
16626

016630

016677
062706
1g44o1
123727
001
012777

::PROMPT FOR NEW SWR
:3CLEAR COUNTER
SSTHE NEW SWR
$:CHAR THERE?

MOVE

@S$TKB,=(SP)

::PICK UP

START

: 3CONTROL=C RESTART

CMP
BNE

(SP) ,#25
108

::1S IT A CONTROL=U?
::BRANCH IF NOT

19§

SSLET'S TRY IT AGAIN

,SCNTLU
#6,SP

CMP

16$

::BRANCH IF NO

:3SAVE NEW SWR
:3CLEAR UP STACK
SSECHO <CR> AND <LF>
**RE-ENABLE TTY KBD INTERRUPTS?
$:BRANCH IF NOT
:RE-ENABLE TTY KBD INTERRUPTS

B8R

BNE

ST
BEQ

4(SP)
118

PC,STYPEC

BLT
CMP

188
(SP) , #67

RTI
CMP

BGT
BIC

’78§ 000002
0014
316
316
316
2
266

178:

ST
ASL
ASL
ASL
INC

104401 001206

188:

TYPE

016634 000720

(SP) M5

JSR

177776

SSYES, ECHO CONTROL=U (*U)
:3IGNORE PREVIOUS INPUT

TYPE
ADD

168:

000060

CHAR

SSMAKE IT 7-BIT ASCII
:31S IT A CONTROL=C?
$SBRANCH IF NOT
$:YES, ECHO CONTROL=C (“C)
:3CLEAN UP STACK
:*REENABLE TTY KEYBOARD INTERRUPTS?
:BRANCH IF NO
$:ALLOW TTY KEYBOARD INTERRUPTS

#°C177,(SP)
(SP) 43
93
SCNTLC
6,SP
SINTAG.M
8%
#100,a8TKS

2(SP) ,aswWR
,SP
SCRLF
ignns.n
158
#100,a87KS

15$:

$3IF NOT TRY AGAIN

BIC
cMP
BNE
TYPE
ADD
CMP8
BNE
MOV

MOV
ADD
TYPE
CMPB
BNE
MOV

015170

056616
7

000002 162412
11$:
000006
148:
001207
001135 000001
000100 162370

021627 000060
2420
021627 000067

003015
042726

,SMNEW
<(SP)
-(SP)
a$TKS

JMP

016472 104401 017177
016476 062706 000006

016502 000737

TYPE
CLR
CLR
TSTB

BPL

19;526

SEQ 0067

BEQ

BIS
R

s fasa

;218 IT A <CR>?

SSYES, IS IT THE FIRST CHAR?
:SBRANCH IF YES

(SP) ,#60

* SRETURN
$3ECHO CHAR
$3CHAR < 0?

188
#60, (SP)+

$SBRANCH IF YES
$SSTRIP-OFF ASCII

2(SP)
178
(SP)
(SP)
(SP)
2(SP)

=2(SP), (SP)
7%

SQUES

208

: SBRANCH y YES
SSCHAR > 72

+31S THIS THE FIRST CHAR
$SBRANCH IF YES
$3NO, SHIFT PRESENT
:5 'CHAR OVER TO MAKE
% ROOM FOR NEW ONE.
::KEEP COUNT OF CHAR
$3SET IN NEW CHAR
::GET THE NEXT ONE

SSTYPE 2<CR><LF>

$3SIMULATE CONTROL=U

22 ARARRARRARRAAAAAAAAARRR RN R RRRRRARAAAAAARARRAARAAAAARAARRAAANARES

PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 18-&

SEQ 0068

-mx.s ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

aewm HERE

3888&R&3&

SRDCHR: MOV
011646
MOV
016666 000004 000002
CLR
~
885066 000004
CLR
5046
MOV
1 71.3 016662
005737

015764

005337

005

015770

001775

mrgg

RTI

80300

NNN
A
= =t

&
~
R&
SO §N

—d d D d d d e

d D d oD

d d D e

00000000V OOO0OO000

e
i

177070

18:

BEQ
DEC

MOVB

000004

INC

:3GET A CHARACTER FROM THE QUEUE

*3CHARACTER IS ON THE STACK
:SWITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)
4(59)
-(SP)
ms.-(sn

;;PUSH_DOWN THE PC AND
*3THE PS
:3GET READY FOR A CHARACTER
:PUT NEW PS ON STACK
:3PUT NEW PC ON STACK

STKCNT

;3WAIT ON A CHARACTER

STKCNT

: :DECREMENT THE COUNTER

$TKQOUT

:UPDATE THE POINTER

4(SPJ,2(SP)

STKQOUT,4(SP)

::POP NEW PC AND PS

;:GET ONE CHARACTER

srxoour.mxosno DID IT so OFF OF THE END?
CMP
023727 015770 015773
*BRANCH IF
2s
BNE
001003
mxosnr.srxoour -RESET THE mmsn
MOV
012737 015772 015770
:SRETURN
RTI
2:
2
ttttttttt!tttttttttttttt'tt.ttttt'ttttttt'tttfittt'ttttttitt'ttt
'Efiif ROUTINE WILL INPUT A STRING FROM THE TTY
RDLIN

RETURN HERE

SRDLIN: MOV
CLR
1$:
MOV

010346
oosoag
570 017162

703 017172
0441
1261

28:

RNN

145

P urg

el et red el i

o) b wd

)

NNNNNNNNY ]

NN
O
:EEECKDC“DCND
&H = oSN
NN
NO

[=lelelolalelelele
la)C00000000000000
b D e e md omd amd mmd ) ok b B

22713
881022
5716

000177

12737
04401

oogm
01 169

001927
gn
30

017160

0 sg‘ 017162
111337 017160
104401 0377160
746

115"
134 017160
104401 8?9160
so1g
122713

1003

000025

CMPB
BNE
ST

08:

17777

5716

CMP
RDCHR
MOVB

BLOS

68:

.
58:

78:

*ZADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
:STERMINATOR WILL BE A BYTE OF ALL 0'S

as -(SP)
-(SP)
#STTYIN.R3

:3SAVE R3
:3CLEAR THE RUBOUT KEY
S2GET ADDRESS

::BR IF

#STTYIN+8. ,R3
(SP)+,(R3)

::auma FULL?60 nm oue cumcren FROM THE TTY
SIGET

#177,(R3)
5$
(SP)

SIS IT A
2:BR IF
$31IS THIS THE FIRST RUBOUT?

#°'\,9%
9s

SSTYPE A BACK SLASH

BNE

MOV
DEC

#-1,(SP)
R3

MOVB
TYPE

:INPUT A STRING FROM THE TTY

;i8R IF NO

::SET THE RUBOUT KEV
::BACKUP BY ONE

zg.mmu
(R3),9
93
o8

..gAcx sgtv:»
..ssmp T0 TYPEOUT THE DELETED CHAR.
:6G0 TYPE
..so READ ANOTHER CHAR.

3533
TYPE

?\
.98 9s

?Mrnugm SLASH

BNE

8{'5
MOVB
TYPE
B8R
ST

CLR
(NP8

(SP)

(sP)
#25,(R3)

..nmour
KEY SET?

::CLEAR THE RUBOUT KEY
::IS CHARACTER A CTRL U?

S:BR IF NO

CZRNIAO RMSO DUAL PORT
TTY INPUT ROUTINE

"8§9. 1

4.31

PT2 MACRO V04.00 15-JAN=-82 07:13:40 PAGE 18-i
TYPE

017177

7 g
12
000022
1;823 122713
1811
1

81
1

105013
104401

104401

001207
017162

omog
017112

111337
104401

017160
0171

0171264

105063

177777

017072

8s:

BR
CMPB
BNE

CLRB
TYPE

TYPE

SCNTLU

is
#22,(R3)
3s
(R3)
,SCRLF
STTYIN

SEQ 0069

::TYPE A CONTROL 'V’

2360 START OVER
$3IS CHARACTER A '"“R'%?
$SBRANCH IF NO
::CLEAR THE CHARACTER
SSTYPE A “'CRTM& "LF"

$:TYPE THE INPUT STRING

:360 PICKUP ANOTHER CHACTER
SSTYPE A '2°
::CLEAR THE BUFFER AND LOOP

BR
TYPE
B8R

23
$QUES
is

017116 122723 00001
017122 oomg

CMPB
BNE

#15,(R3)+
$

::CHECK FOR RETURN
::L00OP IF NOT RETURN

001210

TYPE

.SLF

$:TYPE A LINE FEED

017076 000717
017100 104401 001206
017104 ooon;

017130

104401

017134 oosrzg
017136

01260

017156

000002

48:
38:

CLRB

017140 011646
oml.s 813666 oogool. 000002
012766 017162 000004
017150

017160
017161
017162
omr;
01717
017204
017211
017222

000
000
136
136
136
015
040

103
107
012
040
125

MOVB
TYPE

015
015
123
116

015

MOV

MOV
MOV
MOV
RTI

BYTE
.BYTE
STTYIN: .BLKB
SCNTLC: .ASCIZ
SCNTLU: .ASCIZ
SCNTLG: .ASCIZ
SMSWR: .ASCIZ
SMNEW: .ASCIZ

98:

.EVEN

(R3),9%
98

=1(R3)

(SP)+

(SP)+,R3

(SP) ,~(SP)
4(SP§ ,2(SP)
#STTYIN,4(SP)
0
8.

:3ECHO THE CHARACTER

*:CLEAR RETURN (THE 15)

*SCLEAN RUBOUT KEY FROM THE STACK
::RESTORE R3

:5ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
i
2 sRETURN

::STORAGE FOR ASCII CHAR. TO TYPE
* STERMINATOR
::RESERVE 8 BYTES FOR TTY INPUT

/%C/<15><12>
::CONTROL ‘'C
::CONTROL 'V
::CONTROL '
/%6/<15><12>
<15><12>/SWR = /
/ NEW = /

/~U/<15><12>

]

PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 19

SEQ 0070

OM THE TTY

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

R
L L L
Dy L

bbbttt

ibieiainbybdiiiriiivid

*THIS ROUTINE WILL REAL AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:*CHANGE IT TO BINARY.
:%THE INPUT CHARACTERS WILL BE CHECKED TO INSWED THEY ARE LEGAL
s*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "? WILL BE TYPED
:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED. THE TWPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
sxCALL:
s ;READ AN OCTAL NUMBER
RDOCT
i
e

18:

MOV
MOV
MOV
MOV
RDLIN
MOV
MOV
&g

28:

MOVB

017362

::PICKUP THIS CHARACTER

*31S AN OCTAL DIGIT

s INPUT NUMBER
IPUSH RO ON STACK
:PUSH R1 ON STACK
PUSH R2 ON STACK
$SREAD AN ASCIZ LINE
:GET ADDRESS OF 1ST CHARACTER
*AND SAVE IT
$ZCLEAR DATA WORD
::1F ZERO GET OUT
::MAKE SURE THIS CHARACTER

48:

ADD
BR
ST
MOV
MOV
MOV
MOV
MOV
RTI
ST

(SP)+,R1
2s
(sp *
R1,1 zcs
R2 xo
(SP)+,R2
(SP)+.R1
(SP)+.RO
(SP)+

:3ADD_IN THIS DIGIT
:LOOP
$SCLEAN TERMINATOR FROM STACK
S:SAVE THE RESULT
::POP STACK INTO R2
$:POP STACK INTO R1
:3POP STACK INTO RO
*RETURN
SSCLEAN PARTIAL FROM STACK

ss:

'mo
TYPE

o$QUES

L0000 0 VR 1) & . CLFu
35070

(RO)+,=(SP)

4(SP ,2(SP)
RO,=(SP)
R1.=(SP)
R2.=(SP)
(SP)+,R0
RO,S5S
g}

BIC

177770

38:

..movxoe SPACE FOR THE

#'7,(SP)
4
R1
R2
R1
R2
R1
R2

e
b e
d
-

(SP) ,=(SP)

CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL

BGT

000067

001206

.msn ORDER BITS ARE IN SHIOCT

3s
#'0,(SP)

000060

019372

LOW ORDER BITS ARE ON TOP OF THE STACK

BEQ
CMPB

—

SHNO

3
SR=WO OO

—

gg822

O0O0=00000

838N
N =N
¥
~
SRERER
o
T sR22%

000004 000002

SRDOCT: MOV

b—

b cnd b cnd ) b cnd b and e ad b b

OO0 O0O0O0000O 0000000000000

I
ARARANAL
R
RRERN

b b b b b —d b

O0O0O0O0O0O0O0O0000000
P R

RETURN HERE

CLRB
TYPE

SHIOCT: .WORD

#4C7,(SP)

(RO)

sa%2
;%8

:3STRIP THE ASCII JUNK

..ssr A TERMINATOR
TYPE UP THRU THE BAD CHAR.

STRY AGAIN

::HIGH ORDER BITS GO HERE

V04.00 15-JAN-82 07:13:40 PAGE 20 ¢

SEQ 0071

SAVE AND RESTORE RO-R5 ROUTINES

.SBTTL

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

tSAVE RO=RS
'CALL

SAVREG

.'W RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
.-TOP--(H )
it $2=e=(+18)

.t M--RS

.. ’ -.-Rs

1%410===R2

N1 Je==R1
NM--RO
b

0000000000

$SAVREG:

MOV

- e

e e

cd od e

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
fi\ll

RO,=(SP)

RO ON STACK

R1,=(SP)
Ri.~(SP)
-(SP)
Ré,-(SP)
RS.-(SP)
2 (SP) -(SP)
(SP),-(SP)
(SP),-(SP)
2(SP),-(SP)

..PUSHR1 ON STACK
.PUSH R2 ON STACK
..
ON STACK
::PUSH Ré ON STACK
..PUSH RS ON STACK
:2SAVE PS OF MAIN FLOW
2:SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
2.SAVE PC OF CALL

MOV
MoV

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

..RESTORE PC OF CALL
JRESTORE PS OF CALL

MOV
MOV
MoV
MoV
MOV
MOV

(SP)+, g(SP)
(SP)+,R
(SP)+ R4
(SP)+,
(SP)+,R2
(SP)+,R1

:*RESTORE RO-RS

RSSRORSERER

. CAI.L

iaesnes

RESREG

MoV

"?Y

.SBTTL

(SP)+,22(SP)

:.RESTORE PC OF MAIN FLOW

(SP)+ .RO

::POP STACK INTO RO

22RESTORE PS OF MAIN FLOW
2:POP STACK INTO R
::POP STACK INTO Ré&
2:POP STACK INTO R
::POP STACK INTO R
::POP STACK INTO R1

TRAP DECODER

ttt.tttttttttttt.t!it".'tt.tttttl.l.tlt.ttlt'tttt.i..'.lt...t'

'tTHIS ROUTINE WILL PICKW THE LOWER BYTE OF THE *‘TRAP'* INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

§NER

:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;%GO TO THAT ROUTINE.
STRAP:

MOV

(§P)

RO -(sr)

::SAVE RO

MOVB

(RO) ao

23GET RIGHT BYTE OF TRAP

TST

:3GET TRAP ADDRESS
2 :BACKUP BY

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

SEQ 0072

017502 006
017506 01
rd
017510
017512 011646

017514 016666 000004 000002
017522 000002

ASL

MOV
RTS

017524

STRPAD(RO) ,RO
RO

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

;:THIS IS USE TO HANDLE THE '‘GETPRI'’ MACRO
::MOVE THE PC DOWN
(SP) ,=-(SP)
$TRAP2: MOV
$:MOVE THE PSW DOWN
4(SP§,2(SP)
MOV
RESTORE THE PSW
RTI
.SBTTL

TRAP TABLE

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

ROUTINE

017512
015020
015336
015312
015352
015540

$TRPAD: .WORD
$STYPE
$TYPOC
STYPOS
STYPON
STYPDS

017540 016364
017542 016274
017544 016636
017546 01 7;2
017550 01 g
017552 017374
017556 017432

$GTSWR

owsgl.
017526
017530
017532
01753¢
017536

STRAP2
;. CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

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

TRAP+1(104401)

rmognou.o )
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

TRAP+6(104406) GET SOFT=SWR SETTING
TRAP+7(104407) TEST FOR CHANGE IN SOF T=SWR
rmflgn 410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
rmn;n :.1;) READ AN ogm NUMBER FROM TTY
TRAP+13(104413) SAVE RO-R agunne
TRAP+14(104414) RESTORE RO-RS ROUTINE

v
N

aooo
SRN
VOTM
QRESRRER

.SBTTL

b o

D o o

cmd

8oocoooooocccoo
SOSS

NOWVE

N = OV

NO NS W) —

PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 21
08
88
1
1

00
00

200

19;
0
120
1 g
1
105
077
01;
1
1
1

116
111
117
117
131
11?
111
1?2
1
1
1

15%

154

1
124

127
110

126

TELETYPE MESSAGES

ENTERA: .ASCIZ <CRLF>/ENTER DRIVE ADDRESS: /
ADRERR: .ASCIZ_ 7/ ?INVALID ADDRESS/<CRLF>
PORTAIS: .ASCIZ <CRLF>/PORT °A‘ ADDRESS 1S: /
PORTBIS: .ASCIZ <CRLF>/PORT 'B' ADDRESS Is: /
* OR "P" CLOCK/<CRLF><LF>
MCLOCK. +ASCIZ <CRLF>/SYSTEM MUST HAVE
/
TESTNO: .ASCIZ <LF>/ENTER TEST #:
BADNO: .ASCIZ / 2INVALID TEST NUMBER/<CRLF>
@
ADDRIS: .ASCIZ <CRLF><LF>3RH/RM ADDRESS (RMCS1) IS:
NTRH: ~ _ASCIZ <LF>@ENTER RH/RM ADDRESS: @
SWTCHN: .ASCI% <CRLF>@RETURN ‘PORT SELECT SHITCH TO 'A/8'd
A'/
<CRLF>/SWITCH 'PORT SELECT'®
SWTCHA: .ASCIZ

SWTCHB: .ASCIZ
CONTUE: .ASCIZ
CYCLED: .ASCIZ

CYCLEU: 2

SEQ 0073

.ASCIZ

<CRLF>/SWITCH ‘PORT SELECT® TO 'B'
<CRLF>/THEN PRESS °‘CONTINUE' ON THE PROCESSOR/<CRLF>
<CRLF>/STOP_THEDRIVE/
<CRLF>/START THE DRIVE, s THE PROGRAM WILL WAIT FOR 'MOL®' TO SET/<CRLF>

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

TEST ERROR MESSAGES

04;}
;& 00204

127

12
12

9 020571

104

12;

50 05;0

120

02061
8 02067

123
124

9 020747
10 021014
11 021102
1% 051147
13 021 1g
14 021
15 021365
16 021451

124
12;
04
m
104
101
101
104

21 022010
22 0221
23 022201

122
047
104

17 021530
18 021571
19 021654
20 021737

24 022261
25 0223264

26 022355

27 022423

28 022453
29 022537
30 022602
31 02267
32 022760
33 023041
34 023116

123
104
104
123

122
104
127
122
103
103

104
104
122
104
122

10
11

.SBTTL

EM1:
111
117 EM2:
122 EM3:

111

EMé:

122 EM5:
EM6:
115

124
122

115 EM7:
101 EM10:
117 EM11:
103 EM12:
111 EM13:
126 EM14:
124 EM15:
111 EM16:

105
116
122

107 EM §=
105 EM23:
111 EM24:

111
105
107
116
122
1%4

105
12%
12
126

110
122

122
105

117
101

122
122
105
122
105

114
111 EM17:
111 EM20:
101 EM21:

057
111
117
107
116
116

111
111
107
111
107

E:gS:
EM30:
EM31:
EM32:
EM33:
EM34:

EM35:
EM36:
EM37:
EM40:
EM41:

TEST ERROR MESSAGES

NT (°NED' BIT SET)/
IS NON-EXISTE
/DRIVE DRIVE
LASCIZ
TYPE/
.ASCIZ /WRONG

LASCIZ @PORT SELECT SWITCH ON DRIVE NOT IN 'A/B'd
.ASCIZ /DRIVE NOT ON LINE/
LASCIZ /SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/
+ASCIZ /TIMEOUT HAS NOT OCCURRED uxmmos SECONDS/
MS/
LASCIZ /TIMEOUT ONE=-SHOT IS LESS THAN 500
VALID FOR THE PORT/
VOLUME
SET
NOT
DOES
PRESET
IN
/READ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/°GO* BIT RESET DURING UNLOAD COMMAND/
/INCORRECT STATUS DURING UNLOAD COMMAND/
/DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/
SITE PORT® AFTER UNLOAD/
/ATTENTION BIT SET ON_°

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QSELECT' SWITCH MOVED FROM
°‘A/B° @
/DRIVE LOCKED ON PORT 'A‘' BY SWITCH WHILE CYCLED UP/
/DRIVE LOCKED ON PORT °'8' BY SWITCH WHILE CYCLED UP/

.ASCIZ
.ASCII

/ATTENTION BIT NOT SET ON PORT WHICH ISSUED ‘UNLOAD‘/
/DRIVE NOT IN NEUTRAL AFTER UNLOAD, WITH ‘PORT/<CR><LF>

LASCIZ
.ASCIZ
.ASCIZ

/STATUS INCORRECT FOR PORT AFTER CYCLE UP/
/REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON 'OPPOSITE' PORT/
/°NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/
/DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

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

.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@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 ACCESS DRIVE THROUGH EITHER PORT/

SEQ 0074

000
000
000
000

b
—d
b d

e Y P P N N
s N

ERR PC

SEQ 0075
PORT #
PORT #

REG ADR CONTENTS/
REG _ADR GOOD
BAD/

PORT #

TIME (IN MS)/

REGrAg’ PORT A
POR

g Py e (N Bt 1 Bt g N Bt P N

ERR PC
ERR PC
ERR PC
ERR PC

ERR PC
ERR PC

PORT B/

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

E:g :E/ PORT #

N Bt PN

ERR PC

nununn nununmnnnnhnn
(alalalalslslslslalslelelelelyl alalalalalalalal
B b S b By By (g bt Bt B g B ot oy Bt s Bt B G B B B0 G

......)..... Lururunnnnn

R R
B
p—y

8888 8 282222883

X
X
X
Yo X Xo X
Lo X

A
> > > > I> 2> P> p-P-2-2-2-2
>
> >>

PR RN RIS PRR L

§§§§§

WO WO WO WO WO VWO WNO WO WWNWWNW

b
b e
—

b
d O

SR oRoRoR nNO
SR
W OWVIOWVIOWVIOWVONWVIOWWN
b
b =D
b b

D
b

gss &sy
O*Og 58

000
000
000
000
888

001242
00124%
00124
001242
001242
001242
001242
001264
00124
00127
001242
001542
001242
001242

$38 Faaa

42 024764
43 024771
024
45 025004
46 025007
47 025013
48 025021
49 025023
50 025024
g} 025033

124
040
124
044
040
124
040
124
040
124
040
124
040
124

b
b

10 0
11 02367
1§ 023743
13 024002
16 024011
15 024047
16 024133
17 02417
18 02422
19 024%65
20 024324
21 024362
22 024446
23 024505
6
25
26
27 024544
28 024560
29 024576
024612
1 024622
024634
33 024644
024662
5 024670
024702
37 024706
38 024726
39 024740
2? 024752

1264

0% 577

D b b D
b d d
b
b ed b e
b

B
5
9 0
023512
s 023541

1264
1264
124
1264
124
040
124
040

174
45
1
9
1

888888888

1 8
g

OO0

CZRNI AO RM80 DUAL POR T PT2 MACRO V04.00 15-JAN=82 07:13:40 PAGE 23
TEST ERROR MESSAGES

PORT #

REG ADR CONTENTS/

LOCKED
PORT #

SWITCHED TO/<CRLF>
PORT #/

SEIZE
PORT #
PORT A

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

RMDS
RELSNG
PORT #

RELSNG
PORT #

oy#

RQSTNG/<CRLF>
PORT ¥/

BAD/

TSTNUM, SERRPC , PTNBR, SBDADR, SBDDAT , 0
, SBDDAT , 0
TSTNUM. SERRPC . PTNBR .S8DADR , SGDDAT

TSTNUM.SERRPC
. $SBDADR ,SGDDAT
, SBDDAT, 0
TSTNUM. SERRPC .PTNBR, 0
TSTNUM. SERRPC .PTNBR . TIME,0
TSTNUM
. SERRPC . SE1ZPT.0

TSTNUM. SERRPC . SEIZPT .PTNBR, $8DADR, $BDDAT,0
TSTNUM, SERRPC .0
TSTNUM.SERRPC
. SEIZPT,PTNBR, 0

SRMADR

TSTNUM
. SERRPC, SEIZPT,PTNBR, SBDADR,
$GDDAT , SBDDAT ,0

TSTNUM. SERRPC . STMP2, $TMP3, 0
TSTNUM. SERRPC . SE12PT,PTNBR,0

TSTNUM. SERRPC . SEIZPT,OPPRT,0

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

SEQ 0076

CONSTANTS, TABLES, ETC

TST10

TST
TST

sATTENTION BIT TABLE
ATABIT: .BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

11 025060
1% 025061
13 025062
14 025063
15 025064
16 025065
17 025066
}g 025067

001
002
004
010
020
040
100
200

%% 025070

000011

MAXTN:

.WORD

000200

.END

200

1
2
&
10
20
40
100
200

sATTENTION BIT FOR DRI

;ATTENTION BIT FOR DRI

sATTENTION BIT FOR DRI
sATTENTION BIT FOR DRI
sATTENTION BIT FOR DRI
sATTENTION BIT FOR DRI
ATTENTION B8IT FOR DRI

:HAXIM TEST NUMBER

- NONN
NN —

.WORD

.WORD
.WORD

sSTARTING ADDRESS OF

:STARTING ADDRESS OF
:STARTING ADDRESS OF
:STARTING ADDRESS OF
;STARTING ADDRESS OF
:STARTING ADDRESS OF
:STARTING ADDRESS OF
;STARTING ADDRESS OF

)

TST1
TST
TST
TSTé
TST5

Rt it i Gl el

TSTADR: .WORD
WORD
. WORD
WORD
.WORD

vunununnnnn

003112
004424
005;
00577
006706
007624
010672
012002

—

9
10

.SBTTL

—

4 025040
7 0%5042
025044
025046
025050
025052
025054
8 025056

CONSTANTS, TABLES

:TABLE OF TEST STARTING A Bonesses

né

C%RNIAOtzgeg DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 24~1

SEQ 0077

SYMBOL

000040
]
DFF20 = 0000
DF1
024764

WSO
OO0
=OO0O0O0O0O00O
N ——2 =NININININN
OO = OO0
o OOONOHONOOOWWO
COO0O OOOWVINOON=OWN
==
N
OOON
=OOOWVIE
SNOOCOH
OO NVIWON = =

nnun

NN=OO

888882 IS8
=2
g OO0 S 33
oog
§\h
=
S

CKSWR = 104407
013478
CLOCK
= 00004
CLR_
CONTUE 020246

oo
nNNO
&S

RPN

RRRART

(]

BPTVEC=

éllg nunnwnwnnnnn
8332288§
SRANASS
=o

—BO =

QOO
OO0O0O0O0O0O0O0O0O00O0O
NN NN
OO O

O NN N= = VWO NN S =000 00ONNONNOONNIOON

et b b e e =S OO H OO H

&H &~

ASR1
0012
=1
A
ATABIT 025

WWINN =ONO S VS WWN = = OO0 =NOOONWVININNY
NNVOO O = UWWVNINNVNO O =N O = WWOOOON=NWVNHNNO =1

e
R
AQE

024644
0 486
02456
02467

CPSAVE 014454
= 000015
CR

F
= 800010
F
= 000020
= 000040
Fé&
= 000001
G0
= 000010
GRV
GTSWR = 104406
= 000200
HCE
HCI
= 002000
HCRC = 000400
= 000011
HT_
IAE
= 002000
IBSAVE 014456
= 000100
IE.
= 000001
ILF
= 000002
ILR
I0TVEC= 000020
IR
= 000100
= 810000
IVC
001266
KYBCTL
= 002000
L8C
= 002000
LBT
= 000012
LF
= 004000
LSC_
MAXTN
025070
MCPE = 020000
MDPE = 000400
= 020000
MOH
= 010000
MmoL
MXF
= 001000
= 100000
NBA
NED
= 010000
NEM_
= 004000
NOATA = 000000
NOCLOC 017706
NOSEIZ 001246
020057
NTRH
OFD
= 000200
= 020000
OPE
OP1 _ = 020000
001240
OPPRT
= 000200
OR
PAR
= 000010
PAT
= 0000%0
8146 )
PFECH
PFECH1
014666
PFECH2
01475
PFECH3
01500
PFECHé 01501
PFTSTN 015016
PGE
= 002000
= 801000
:?g

ot
8054

PIRQVE=
PORTA
1 54
173 0
PORTAI
PORTB
001226

017657

PORTBI

PORTC
001230
PRO
= 000000
PR1
= 000040
= 000100
PR
PR
= 000140
PRé
= 000200
= 000240
PRS
PR6
= 000300
PR7
= 000340
PS
= 177776
PSEL = 002000
PSW
= 177776
PTNBR
001234
PWRVEC= 000024
RDCHR = 104410
RDLIN = 104411
RDOCT = 104412
RDY
= 000200
RELERR 001250
RELOK = 000001
RESREG= 104414
RESVEC= 000010
RMAS = 000016
RMBA = 000004
RMCS1 = 000000
RMCS2 = 000010
RMDA = 000006
RMDB = 000022
RMDC = 000034
RMDS - = 000012
RHDT1 = 000022

7
SAVREG= 104413
= 100000
sC___
= 000004
SCOPE
sCO
= 000100
000200
=
sC1
00
=
SC

SEIZPT 1 1%%2
=

SKI

'
N 6
24=2
PAGE
07:13:40
15-JAN=82
V04.00
MACRO
PT2
PORT
DUAL
geg
czauxnotg

SEQ 0078

025072
000000
ERRORS DETECTED:
. ABS.

001
0

VIRTUAL MEMORY USED: 54784 WORDS ( 214 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES

+A:CZRNIA/C=A:CZRNIA.DOC,CZRNIA,SYSMAC/M

23838288Sioa=

oo«uugvn

prur Qui-Qurg

g-‘
33838

$SAVRE

3550
$SC
$SETUP= 0 91;7
777
$STUP =

pary

§§S
[+ N

$SVPC = ?
@
-

== b bWO WW
[PYPYT
N1 N=2 ONNON=OWVNWNO b b NI NN =d = NININININ)
O =N\ = =2 O NIN) = b = = NO O =14
AN NONON—
SNN=NCOONONHOSNSNON¥ &
OO
HOHNININOO

NSO

ONNV!\Ag
S OWVICCONOOONVIWOON
SO
NN NIN=N=O

b b b b b AN =S N NN NN =N =S O O O O = NI NN = b b =4

N O D = WNN=SENVONONOOOO ONOONN

SSVLAD 014056

—_O000

$GDDAT
$GET42

OOO0ODOOODO0OO

o0
bbb b d d =k e D R = = OO OOO == O8883
9

nonn

OO0

b d b ) = §NN

001254

§4 000
04
40

(N =

WATCH

€

005244
TEST3
26
TEST4
44
TESTS
0079?5
TEST
860
TEST
1352
TIME
001256
TIMEA
001260
TIMEAP
1%62
TIMEB
TIMEBP 001264
TKVEC = 000 g
135
TOLER
000064
TPVEC =
TRAPVE= 000034
TRE _ = 040000
TRTVEC= 000014
TSTADR 025040
TSTNUM 00124
00311
1ST1
TST1AA 003074
012002
TST10
013106
TST11
004424
TST;
005;08
TST
00577
1ST4
0067
TSTS
007624
T1ST6
010672
IST7
TYPDS = 104405
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
= 040000
UNS
= 020000
UPE
= 000001
uo
= 000002
vl
= 000004
= 000100
vw___
VVSET = 000021

1776
START]
994
START?
4
1
STKLMT=
8&410‘
STOP
1140
SWR
176
SWTCHA 020154
SWTCHB 020211
SWTCHN 020106
= 000001
sWw0
Sw00 = 000001
Sw01 = 000002
Sw02 = 000004
Sw03 = 000010
Swo4 = 000020
SWw05 = 000040
Swo6 = 000100
sSw07 = 000200
SWw08 = 000400
SWw09 = 001000
= 000002
sw1_
SW10 = 002000
sSW1l = 004000
swi2 = 010000
sW13 = 020000
SWwi4 = 040000
sw15 = 100000
= 000004
sSWw2
= 000010
sW3
= 000020
swé
= 000040
Sw5
= 000100
Swé
=000200
sSw?
= 000400
Sw8
= 001000
w9
= 040000
TAP_
TBITVE= 000014
TESTNO 017753
003150
EST1_
TESTI0 01204

-~
~m

SYMBOL

TKB
801146
15794
$TKCNT
STKINT 015774
$TKQEN= 015773
$TKQIN 015766
$TKQOU 015770
$TKQSR 015772

001144
TKS
$TKSRV 016044
TMPO
001164
001166
$TMP1
001170
STMP
STMP
001172
001174
$STMP4G
$TN
= 000012
TPB
001152
STPFLG 001157
001150
$TPS
017470
STRAP
$TRAP2 017512
15
$STRP =
017524
STRPAD
STSTNM 00110%
STTYIN 01716
STYPDS 015540
STYPE
015020
STYPEC 015170
STYPEX 815;10
015336
$TYPOC
STYPON 015355
$TYPOS 01531
SXOFF =
3
1
$XON =
$XTSTR
01
2
$SGET4=
SOFILL 01553

CZRNIAD RNBD DUAL PORT PT2 WACRDV0G.00 15-JAN-82 07:13:40 PAGE $-1
V04.0

CROSS REFERENCE TABLE (CREF
$SGET6

SOFILL

10-1

16-1

$BDADR

10-1#

16-1#

9-440%
1391

9-440%
131
15-1%
0-2

SCHARC
SCKSWR

15-1
18-1#

15-1#
20-2

ER
&0

LT E TR
68 &0

SCNTAG

6-08

9-23

SCRLF

6-0¥

9-48

SCM1

$DTBL

16=1%

6~0

9-23

9-67

15-1

18-1

10-1
17-1

1
17-14

10-1#

9-165¢
9-165¢
9-165+
9-165¢
9-165¢
9=157%
9-157%
9-157¢
9=157%
150¢
3-2rde
S-Zrhe
S-gfhr
9-gise 9-gise 9-gise d-glge 3-glge -7l6e S-glgr
9-grse
S-4ade
8130
9-165
92l
0-374%
S-Sore
0-239%

Suzse
9-ld0e
.10
9-165
9-2fse
O-574s
o-%07e
0-430%

0302«
9-dale
ge1sge
9-165¢
g-glf
9375
S-S0
9440

9-%02e
9-ddbe
150
9-185¢
3-gife
9-375
307
9-440

9-23

9-106

10-1

13-1

19-1

13-1

14-1

141

14-1

15-1

9-440*

12-1

12-1+

13-1

13=1+

13-1+

14-1

141

23-27

23-28

23-29

23-30

23-31

23-32

9-157
9-165+
9-512*
9-27

9-157
9-165+«
9-512'
9=275+

9-157+«
9-170«
3:576
5%

9-157+
9-173
9-274
9=275+

9-165
9215
9-274
G- gs

9-165
9-215
9274
9= s‘

9-163
9-215
9-274
9-302+

18-1

13-1

2340

13-1

131+

9-152'
9-165+
9-%12
9-27

9-150*
9-165+
9-512
9-27

9-150«
9=-165+
9-216*
9-27

9440

9-439%
9-75«

12-1

13-1

13-1»

SERTTL

6-O#

10-1

10-1+

SFILLC
SFILLS

6-0¢
6-0¢

15-1
15-1

15-1

$SGDDAT

6-0#
9-165
9-215+
9=274%

9-150
9=165+
9-215+
9=274n

9-150
9-165+
9-215+«
9-%74*

9-150+
9-165+
9-21
9-27

9-307
9-439¢

9-307
9-440

9-307+
9-440

15-1

9-23

23-39

6-0#

6~OF

9-23

23-38

$GDADR

608

6=0

9=439

9-23¢

6-0F

6=0

23-37

6-0n

608

6~0

23-35

SESCAP

6=0

6-08

23-34

gTOI

6=0

e
6=0

15-1#

2 :az

$SERRPC

S-Libe 9-dsge g-dise G-dioe
23-29
23-28
9-440% 23-27
9-165
9=165
9=157¢ 9-165
9=215¢
9-215
9-215
9-173
9-374r
9-574
S-dler S-grk
9-375% 9=g75% 9=g75¢ 9-302+
9439
9-430
9-439
9-639
9~44Qe
9-440
9-440
9-440

23-37

9-23+
13-1#

10-14

g-dife
9-440%
9-157«
9-172¢
9-g16r
9-375%
9-4390
9440

23-33
8-

6-0#
9-23

6-0#

3-0%e
9-240%
9=157
9-165%
3-gige
Q-375%
-4
9-440

23-29
-

SERMAX
SERROR

SERFLG

10-1#
10-1

S-S07e
0-440%
9157
9-165+
-ig
9-375%
4%
9440

2328
98-

23-27
31

SENULL
oP
SEOPCT

10-1#

SEQ 0079

18-1

5-5
9-23
10-1#
9-440
9-23+

SENDAD
SENDCT

0440t
6

9arse
9USe
9150
9-185
§-gife
O-57%n
S-S0z
O-239%

)

18-1
3‘152150+
9-??2S-16k $1gS 9-pise
g 18-1

65
Sgrie 9opfon
S-4she
Qi
3150
SSODAT s
0-188
165
9213 9218+
O-5T2n OS7ie
g+ 9303
Oi35s
0-235
sELL

16=1¢

9=439
9440

9-439
9-440

9439
9-440*

9-439
9-440%

9-439r
9=440%

9-439%
9-440%

9-439+
9-440r

39
9-440*

9-439+
9-440+

9-4
9-440+

9-439+
23-28

DUAL PORT PT2 HA820080§.00 15-JAN=-82 07:13:40 PAGE S-2

SEQ 0080

RENCE TABLE (CREF V.

23-37

992+«

18-1
131
13-1

11=11+

9-137
O=2748
0

9=76%

9=137%

9-215«

9-216*

141;-33:»

9=77%

9=137%

9=215+

9-216*

9-28

12-1

13-1

15-1

1;-1

1-1

1-1:

9-137
9=274M
12-;.:.

9-137:
9275
1«;-u.o/:

9-137:
9275
9-440N

9-215
9-275A
9-44iN

9-215
9=2754

16=1*
12-1

16=1*
12-1#

16=1*

10-1
15-1

10-1#
18-1

9-102

9-109+

9-112

9-134

4=699

i3-1
4699

13-1
4=699

13-1
4-699

=699
9-23

4=511

&4=511

4-51}

15-1

18-1#

20-2

=699

g-1
-1
5-1

9=23%

974
13-1
20-2
20-2
20-2

9-23

2-1

12-1

1;-1
13-1
15-1

11-12
11=20

16=14
12-1

4-699

18-1
13-1
13-1

11=7
11-16
11-17

18-1#
18-1#

6-0#

12-1

4=699

9-23

13-1
4=699
1;—1#
-S4

=510

9-23
10-1
12-1

15-

12-1
13-1
20-2
20-2
20-2

4=699

9-23

9-23
10-1
12-1

15-

10-1
15-1

9-23

9-23
10-1
12-1

9-23

9-13
11484
12-1

9-440+

12-1

9-2160

9-216#

4-699

9-23

9-439

-23

4=69

9-23

4~69

9-33

4~69

9-28

4=~6998

12-1

9-274

9-439%4

9-274

9-435#

9-23

10-1

4-69

4~6994

9-23
1

ol
1;-1

P
.

) 20~
4.-310
4.-§1o
4=510 519-1%

CZRNIAO RM80 DUAL PORT PT2 mazooxo«.oo 15-JAN=-82 07:13:40 PAGE $-3
CROSS REFERENCE TABLE (CREF V04.00

SEQ 0081

)

13-1

}%-}

13-1

STIMES 13-20

STESTN

14-1

19- 3

19-}27*

9=216%

9=274%

9=275+

9=295%

9=439%

TKB

151

15-1

18-1

13-1

18-1

13-1*

18-1+

18-1+
9-165

S$TKCNT
STKINT

STKQEN

$TKQIN

18-1

g’fig’w 12—?‘
g:Ol
$TMPO

S$TMPY

sTMP2
STMP3

STMPL
$TN
STPFLG
TPS
$TRAP
S$TRAP2

$TRP

18-1
9-72

18-1#
18-1

18-1

18-14

‘lg-l'

15-1
9-15

18-1
18-1
18-1
18-1
9-150+ 9-152' 9-150* 9-165

18-1

165«
9-216
9=274r
9-307
HSg:
g:Ol
93(7)4'
7
6-O#

6-04
9-%4
604
9-165
9=4
9=440*
4=5078
9-274

}g-},
9-1sg

9-165+
9-2]
927
9-307
9-439%
9-215
&7;:
9-215

9-21
9-274
9-302«
9-150
9-165*
9=439%
9-440%
4-510
9-276

18-14

9-165+
9=
9-§
99-439%
9-215
8:75
9=
9-

9=439
9-137
9-274

9440+

6-O#
3:0'
3
20~

15-1
15-1

15-1
151

”

$TRPAD

$STSTNM '2.0'1'

50- #
0-24

0=2#

17-14

50-

STYPEC
STYPEX

15-1
15-1

15~
15-1

15~
15-1#

STYPE

15-1#

9-216
9=¢74*
g:"
3
9-440+
9-%"
9-307
9-274

9-21
9-275+
9-165
9=216%
9=440
9-21
9-29

9-%2'
9~
9-165+
9-439
9-440
9-21
9=2954

9-216+
9-302
9-1%5'
9-439
9-440
9-216
9-439

9-274
9-302
9-165+
9-439

20~

0-;

§&

?3:-

20-8

20~

12-1

9-215*
9-275
9-307
9-150«
9-2]
9=439
9-440r
9-1374
9=275

9-215¢
9275
9-307
9-150*
9-215%
39%
9-440+
9-21
9=275

9- ‘lg
9=27
9-307«
9-165
9=215+
9=439%
9-215
9=275#

9-21
9-21
9=275%
9-27
9-307« 23-38
9-165
9-165
9-218'
9-le
9=439+
9-215#
9-215
9-295
9-295
9-444

9-444N 24~20

0-2

9440

9-440

9-%75
9-307

9-640F

OB
00-

OB y
9-295¢

15-1#

9-215¢+
9=274*
9-302+
9-439+
9440+
9-274»
9-302«
9-216*

9-215
Q=274+
) - g?
9-1 gt
9-165+
9=439%
. 9=440r
9-13
9-275

18-1

S$TYPDS

9-215+
9=274r
9-;
9=439%
9-440*
9-274
9-302¢«
9-216*

9-215«
9=274
9-3
9-439%
9-440*
9=274
9-302
9-21

9=215
9-274
9=275%
9-439
9-440*
9-51 *
9-275%«
9-21

1;—%7‘* 12-%75'

18-1

18=1+
18-1+
18=1+
9-165+ 9-165+ 9-165+

9-215
9-216*
9=275%
9-439
9-440
9-%1
9-275%«
9-215+«

9-215+

18-1

9=215¢
9-274
9-%
9-439%
9-440*
9=274
9-302
9-21

18=1+
9-165

9-21
9216
9=275%
9-439
9-440
9~ 12
9=275%
9-215+

13-‘%37'

18-1

&
0

STTYIN

$TYPBN

137

9-215
9-2764
9=275+
9-439
9=440*
9-%1 *
9=275+
9-21

9-440+ 10-1+

9-165+
9=216%
9-%7
9-307¢
9=440
9-215¢«
9-275
9-215

9-575
g:i?(t
9-307
07

9-15
9-165+

1?-?39’

£
o

12—?39
"
0=2#4

9440

9-439

18=1+

18-1*
18-14

18-1

18-14

9-§7g' 9-%7 + 9=302
9-%7
9-§7
9-307« 23~
9-307+

9-444

B
20~
9-439%

B
200

&
20-20

9-440+ 10-1+

12-1

B¥

12-1

9-440*

121

9-502

9-216#
9-439

CZRNIAO RM80 DUAL PORT PT2 MA
CROSS REFERENCE TABLE (CREF V
16=-1#

fote
15-1

0 V04 00 15-JAN-82 07:13:40 PAGE S-‘E

SEQ 0082

563
18-1

151

1-10#
1=4#

TRRRRLRY

9-53 *

9-57

9-9
9-1 L
9-70

9-215
9-302

9-%15
9-302

9-216
9-302

12-1

13-1

12-1

13-1

9=17+
11=-5#

9-98

0-100+

9-216
9-302

9-216
9-307

3-307

9-274
9-439

9-274
9-440

9-275

CZRNIAO RM80 DUAL PORT PT2 MA820080?.00 15-JAN=-82 07:13:40 PAGE S-5

CROSS REFERENCE TABLE (CREF V

CKSWR
CLOCK
CLR
CONTUE
CPSAVE
R
CRLF

11-5
11-1
11-1
7
9-125'
9-439+
12-1
11-9
4=541#
9-%99
124-51
%-gl

CYCLED
CYCLEU
DCK
DDISP
DE1
DF1
DF14
DF17
DF2
DF 25
DF30
DF 34
DFS
DFé
DF7
DFF20
DH1
DH13
DH14
DH17
DH2
DH24
DHZ2S
DH
DH34
DH3S
DH37
DH4
DHS

9-439
#
4
L=5134
L=S75#
-7
8-84
8-106
=14
8-148
8-164
8-192
8-35
8-42
8-49
4=571#
8-5
8-75
88-1
3-1
-139
8-123
8-1
8-190
8-197
8-211
g- 18
8:43

CkCLK1
CkCLk2
CKCLKS
CKERR

e
DIGB

DISPLA
DISPRE

11=144

g-1g5e

DRQ

4-635#

9-21
9=440%

9-150*
9=215¢
9<-440%

9=157+
9=216%
9-440%

9-157'
9=216*
9=440%

9=157«
9=439%
9=440*

9=157+
9=4(39+
9=440*

9-1350
9=439¢

9=165+
9=439+

12=1+
22-1
2
21-1

12=1»

13-1

13-14

13=1+

13-1¢

14-1

15-1

21-16

1-3

5-17

1=4

S-17

1=5

3-6

1
53:3

1=7
3-11

21=7
23-14

1-9
3-16

1-10
3-18

9-440
9-440

%1-1
1=174

8-63

8-70

8-91

8-120

8-127

8-134

8-185

23-42#

8-178

23434

9-307

9-439

21-15

23504

847
L=572#4

DL64
DLT
DMD
DPE
DPR

152

9-150

%
9-439

-14
L=5744
&=5514
84
4=-6504
4= 7%'

8:} 50+
65«
9=440%

9-152 N
3-16 B
9~440 *
0-2#

9-165

23=45A
8-206

8-220

23-464

8-61

8-68

8-89

8-118

8-125

8-132

8-183

23-1#

8-176

2324

9-23+

12=1+

13-1%

9-165

9-215

9-216

9=274

9-275

9-302

SEQ 0084

CZRNIAO RMS80 DUAL PORT PT2 MA820°x0?.00 15-JAN-82 07:13:40 PAGE S-6
CROSS REFERENCE TABLE (CREF V
DRY

9215

9-215

9-216

9-274

9-275

8-62

8-69

8-90

8-119

8-126

8-133

8-184

23=274

23-34H
8-170

8-177

23-28#

8-226

23-37#

9-165

9-23

8-6
8-76
8-83
8-105
8-13
8-140
8-147
8-163
8-191
8-198
8-219
8-34
8-41
8-48

8-20
-98
=334
=112
=27
S =354
23-364
g—§12
23-384
=205
23-404
Zg- L
23-304
23-31#

=55
23-32#

8-4
8-53
8-60
8-67

2%-30
22-10#
22-11#
-1%‘

8-88
8-95
3-103

=154
=164
-18#

4&=577Th
9-462'
2-51
L4

&
L

4
4=6
4~6314

a1
6-6340

4-6014
4=5664
4=6514
2—595’

8-74
8-81

-11
g-11
=11

-1
=144

-194
=204

-1

-122

=161

=254

23-39#

9-302

9-307

9-439

SEQ 0085

PORT PT 2 HA820°806.00 15-JAN-82 07:13:40 PAGE S-7
CZRNIAO RMSO DUAL
)
S REFERENCE TABLE (CR EF v04.00
£

M1
Ens

524
e

EM40

EnS
EATVEC

517

o
9-gis

ENTERA

4-$T34
9-31

21-

ERROR
ERRVEC

451
4-513#4

9-23

EXEC

FO
£l
f
.
Fo
FER
FMT16

GNS

60
GRV
CTSWR
HCE

4-5614
4-5628
4-56
<3648
4~565#
4-5934
4-663#

§-1
2050-

4-57
28,
4-5964

46614
4-597#
4-513#
4~5908

12-7%

9-215
5-1
20-2
50-2

9-23+
13-1
9-215

9-25+
3=1x
9-216

9-439
9-28
20-2

10-1

20-2

13-1

12-1

12=-1+

12=1+

20~

20-5

20~

20-5

20-2
20-2

9-274

9-274%

9-275

9-275+«

9-295

9-302

9-307

9-439

9-275

9-302

115+

11=6*

11=15+

11=24+

12-1

9-275

9-295

9-439

9-440

10-1

3-440

13-4

13=1¢

13-1+

13=1»

9-216+

9-26+
13=1+
9-274

9-439

983

2020

151

15-1

13-1

13«1

923+

9-23+

9=73%
9-308

9=91«

9-439

9-137
9-439

9=137+
9=439+

9-215
9-440

9-215+
9-440*

9-216
10-1

15-1

21=7

21-8

21-10

21-11

22-16

ol
9-165
P
MOL
9439
9430

9-135
9-439

9-215
9-439

9-215
9-440

HCI
HCRC
HT

4~5848

9-216

9-274

9-440

9-274
9-440

9-275

9-150

9-439

9-440

3-303

3-507

3-30f

9-274
9-307

9-274

9-275

LSC
MAXTN
NCPE

13-1
4-519#
4-5898
4-590#
4-513#
4-5420
46548
7-0F
9-295¢
46520

151
a3
46534
S
4-5248

24=224

MXF
NBA

4-5458
4-g388

NERA

9-215
B3aom
853
30

NED

4-5488

TAE
IBSAVE
I
ILF
ILR
IOTVEC
IR
Ive
KYBCTL

9-440

CZRNIAO RM8O DUAL PORT PT2 HA820°XO4.00 15=JAN-82 07:13:40 PAGE S-8
CROSS REFERENCE TABLE (CREF v04.00

NOCLOC

_az

21=7#

NTRH

2-105

21-11»

OPE

6-6250

OPPRT

=08

OP1

4-602#

9-165

9215

9-215

9=216

9-276

9-274

9-275

9-215
9=274

3:229

9-33+
9215
9-274
9-275

2?~gg9

9-439

9-38
9-215
9-274
9-30

9-215
9274
9-302

9-45
9-215
9-274
9-30

9-49
9-215
9-274
9-302

52
9-215
9-275
9-307

9-150
9-215
9-275
9-307

9-150
9-21
9=27
9-307

9-157
9- 12
9-27
9-307

9-157
9-216
9-275
9439

9-165
9-21
9-27
39

9-165
9-274
9-275
9-439

7-O#
9-215
9=276
9-297

9-38+
9-215
9-274
9-302

9-39«
9=215
9-274
9-302

9=-40+
9-216
9-274
9-302

9=43x
9-216
9-2764
9-302

9-216
9-274
9-307

9-150
9-21
9-27
9-307

9-150
9- 12
9-27
9-307

9-157
9-216
9-275
9-307

9-157
9-21
9-27

9-165
9-216
9-275
9-43

9-165
9-274
9=275
39

9-1N
9-274
9=275
9-439

9-215
9-274
9-275

9=49+

9-50%

9-51«

9-93

9-135

12-9

4=5134

9-66+

9-157+
9= lg'
*
0-439%

9-165+
9-274+
9-302«
9-440%

9-165+
9-%74'
99-440r

9=215+
9-;749= 08*
9-440*

9-215+
9=274r
9-302«
9-440+

9-215+
9=274r
9-307«
9-440%

9-215+ 9-215+ 9-215+ 9- 12'
9=274r 9=274r 9=275% 9=275+
9-307+ g- 7 9-307+ 9-439+
23-30
23-28
9-440+ 23~

4=5464

PIP
PIRQ
PIRQVE

4-5834
4=5134
4-513#

PORTB
PORTBI

PORTC

4&=579%
9-275

7
9-169
=274
9-275

9-439

PR1
PR

4&=513#
4-51
4=51

PR5

4=5134

PR7

&=5134
4=51
4-52
-5134

PSEL

PSW

PTNBR

RDCHR
ROLIN

)

9-165

PGE

—

SEQ 0086

23-40

4=54
4&=5924
4=54
1 14-1
14-1
14-1
14-1

PORTA

9-275+

OR
PAR
PAT
PFECH
PFECH1
PFECH2
PFECHS

PGM

9-274r
14=14
14-14
14=14
14=-14

9-165

9-302

21-64

9-307

9-44

9-43

7=-04
9-212*
7

9-150* 9-150* 9-157+
9-216* 9-216+ 9-512'
9= g *
2;-;;9* 2;-;%9* 2;-379t

=513

9-23

18-1
19-1

SO- #
0-2#

&=513#

9-23+

9-23¢

9-440

9-44

9-440

SEQ 0087

CZRNIAO RMBO DUAL PORT PT2 HAS:OOXOQ.OO 15-JAN=-82 07:13:40 PAGE S-9
CROSS REFERENCE TABLE (CREF V04.00

)

:g?t!

9-80

9-106

20-2#

RELERR

RELOK

9-215«

9= 15'

9-21

9-216%

9-5 30 S

9-274r

9-5

9=274+

RESVEC

4=5134

9=215%

9=216+

9~218-

9-216*

9-150

9-4
9-15§

3:1% - 9-150+

RESREG

RMAS
RMBA

RMCS1

RMCS2

9-215
2318
£

4-6864
4-6814

4~6798

0
9-15
4-6834 9-139+

9=275%
9=439%

9=439+

9-302

9275+

9-302+

9=297¢
9=440+

9=297+«

9=165¢
9=216*
9=275¢
9-439
9=440

9-165+
9-216+
9=275+«
9-439
9=440+

9-215
9-556
9-302
9-439

9-215
9=274
9-302
9=439+

9=275¢
9=439%

9=297+
9=439%

9-297+
9=439%

9-302¢+
9-439*

9-30
9-43

9-302+
4

2—6820

RMDS

RMDT

4~684k
9-215
9=274*
7
9-439
4-6904

9-15
9-215
9—%55
9-307
9-440
9-157

9-150
9-216
9-275
9-307
40
9-157

9-165
9-2]
9-27
9-439
9-44
9-15

9-165
9-21g
9-27
39
9-440
9-157

9-165
9-216
9-275
9-439
9-440

RMOF

4=6928

9=215%

9=216%

9-439%

9=439%

9-440*

9-440n

RMSN
RMWC
SAVREG
SC
SCO
sC1

4-6914
4-680#
20-2#4
4=5264
4=6424
4=6434

9-170
9-113

9-172

SC
SC4

4=6454
4=6464
-64

4=513¢
7-04

9-179
9=274%

9-215
9-275%

9-216
9-439%

9-274
9-440+

9-275
23-32

9-311
23-33

9-439
23-35

9-440
23-37

23-39

23-40

STACK

4-51

9-23

9-137

9=215

9-216

9-274

9-275

9-295

9-439

9-440

START1
START2
STKLMT
STOP
Swo

5-3
9-16
4-51
12-1
4=

9=-174
9-194

Swo2

4=51

RMEC1

SCOPE
SE}ZPT
START

4-6923

964

9=440

4=644N

5-1

9-14#

12-5#

4=5134

9-69

18-1

9=-307+

RMDA

RMDC

9-307+

9-444

CZRNIAO RMS80 DUAL PORT PT2 nnszo V04.00 15-JAN-82 07:13:40 PAGE $-10
CROSS REFERENCE T ABLE (CREF V
4&-51
4=51
&=51
4=51
4=51
4=51
4=51

SW04
Sw05

SHO;

Sw08
Sw09
sw1
Sw10
swl1
sw1
sw1
Swi4

9-439
9-176

9-23

12=1+
9-23
9-439
9=440
9-439

9-439

9-23

12=1»

21-13#
21-144
9-440

9=56+

9=275

9=274%
9-274

9=274%

9=275%

18-1¢
9-275

18=1x
11-3%

9=23+

24=4
9=4408

24-7

9-134#
4=7
4=7

9-440

9=-1374
9-4404
9=2154
9-2164
Q=274
9=2754
9-2954
9-43

9=-56*

9-83
9-215#
9-216#

.00 )

9-137
40
9-215
9-216
9=274
9=275
9-295
39
21-8#
9-274
9-56*

9=-56+

SEQ 0088

10-1

9-23+
12=1+
18-1

9-23+
13-1
18-1

9-28
13-1
18-1

9-176
13-1

9-275+
9=274%

11-29*
9-274x

23-31

9=275«

9=275%

21-12#

9-275
9-274

9-274*
9-275
9=-275+

9-439
13-1

9-439
18-1

9-440
18-1

9-440
18=1+

12-1

PAGE S-1%
07:13:40
2
15-JAN-8
00
V06
MACRO
PT2
PORT
)
CROSS REFERENCE TABLE (CREF V04.00

SEQ 0089

CZRNIAO RM80 DUAL
1ST4

9=2740
#

4=7
4=7
4=7
4=7
L=4

23-29

23-30

23-3%

23-37

23-38

23-39

9-36
9-304
10-1
17-1
18-1

9-44
9-310
10-1
18-1
18-1

9-104
9-440

20-2#

9-48
9-439
13-1
18-1
18-1

9=101
9-440

18-1

9-4g
9-439
10-1
18-1
18-1

9-215
9-275
9-215
9-274
9-30
9-27

9-215
9-275
9-215
9-274
9-30
9=275%

9-215
9-302
9-215
274
9-302
9-439

9-216
9-302
9-216
9-275
=307
9-439+

13=1»

23-27

23-28

10-1

14-1

20-2#4

9-28
9-299
9-440
15-1
18-1
9-103

9-31
9-303
9-440
16~1
18-1
14-1

9=47

20-2#

9-215
9-275
9-215
9-274
9-302
9=274

9-215
9-275
9-215
9-274
9-302
9=274x

14-1

14=1

18-1

9-105
9-440
14-1
18-1

9274

9-274

92204
9275
9-307
11-34+

9-274
9-275

18-1

11-30

PORT PT2 MACRO VO‘ 00 15-JAN-82 07:13:40 PAGE M-1
CZRNIAO RMB0 DUAL POR
CROSS REFERENCE TABLE (CREF V
S=41¥
S=41#
K

SEQ 0090

.00)

6-0

9-137
20-2

25"

9-216
20-2

9-274
20-2

29-295
%8

9-439
20-2

9-440
20-2

9-444
20-2

9-165

9-215

.SWRLO
AA
88

9-165

CHECK

20-2

9-216

9439

9-175
9-274
9-502
9-440

9-215
9-374
9-302
12-1

9-278#

9-216
9-440

20-2#

9-439

9-295

9-439

9-4394

9~274
9-440

9-274
9-440

9~274
9-440

CLRATA

9-216

SEIZE
SELECT

SETATA

9-275
9=274
9-274

9-439
9-439

9-440
9-440

9-157
9-439

9-215
9-439

9-216
9-440

CZRNIAO RM80 DUAL PORT PT2 HA8200306.00 15=JAN=-82 07:13:40 PAGE M-2
CROSS REFERENCE TABLE (CREF V04.00

_9-93

SETPRI

_4-513#

28:%

SKIP

4=31

9-439

STARS

4=51

5=5

SETTRA 20~

TYPTXT
USERED

9-295
9~24§'
18-1
17-1

20-2

-0

8-439

18-1

=513

9-23

9~%3#

&4=513%#
9-445#

9-6
10-1

10-1

9-275

SE@ 0091

)

1225—3

9-135

12-9
28-2

18-1

8-639

18-1

9=440
8-1

20-2#

20-2

9-137

9-215

9=215

9216

9-216

18-1

19-1

20-1

9-275
9-275
9-274
9-274
16-1
15-1
14-1
13-1

9-137

20-2

9-440

9-442

10-1
9-444 20-2

12-1