Digital PDFs

AH-9178E-MC

September 1979

204 pages

Original

135MB

view download

OCR Version

212MB

view download

Document:	CZRHBE0 RH11-RH70 MASSBUS I-O CTRLR SEP 1979 bw
Order Number:	AH-9178E-MC
Revision:	000
Pages:	204
Original Filename:	CZRHBE0__RH11-RH70__MASSBUS_I-O__CTRLR__AH-9178E-MC__SEP_1979_gray.pdf

OCR Text

RATGRAIO

o0 e
FICHE 1 OF 1

MADE IN USA

MACY11

30A(7052)

12=JuUL=79

10:46

b
i
-

&~ yhy OO0

PRODUCT

D
-

b
i

SEQ 0001

IDENTIFICATION

OO0 ~ g

PAGE 2

.REM _

JONDN

NP s

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

CODE
:

AC=9176E-MC

PRODUCT NAME
:

CZRHBEQ MASSBUS

DATE

1-JUN=79

CREATED:

MAINTAINER:

1/0 AND CONTROLLER DIAGNOSTIC

DIAGNOSTIC GROUP

THE INFORMATION IN THIS DOC'MENT
WITHOUT NOTICE AND SHOULD NOT BE

IS SUBJECT TO CHANGE
CONSTRUED AS A COMMITMENT

BY DIGITAL-EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
?35¥M§§ :RNSESPONSIBILXTY FOR ANY ERRORS THAT MAY APPEAR
THE

SOF TWARE

DESCRIBED

IN THIS DOCUMENT

IS FURMISHED UNDER A

LICENSE ANC MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR

THAT

THE

USE

OR RELIABILITY OF

ITS

SOF TWARE

ON EQUIPMENT

IS NOT SUPPLIED BY DIGITAL.

(C)

FOLLOWING ARE

DIGITAL
DEC

1975,

1979 DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECIS

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION

MASSBUS

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE.P1T
07=JUN=79 13:44

MACY11

30A(7052)

12=JUL=79

10:46
:

TABLE

1.0

ABSTRACT

2.0

REQUIREMENTS

HARDWARE

5.3

SOF TWARE

62
22

3.0

PROGRAM DESCRIPTION

3.1

SWITCH OPTIONS

3.2

SYSMAC ROUTINES

TEST DESCRIPTIONS

gg
gg

;5
73
;g

77
78
gg

1.0

SEQ 0002

CONTENTS

50
51
§2
§3
54,
55
gg

PAG"

ABSTRACT
THIS PROGRAM WAS CREATED TO TEST RH11 AND RH70 MASSBUS
$8~}$0LLERS WITH AN RH11-TB (MASSBUS SIMULATOR) ATTACHED

TO GET MAXIMUM RESULTS FROM THE TEST ALLOW PASS1 TO BE
COMPLETED SO THAT ALL INFORMATION POSSIBLE HAS BEEN REPORTED .ABOUT ANY ERROR, THEN LOOP® ON DESIRED ERRORS.

IN THE EVENT-OF AN ERROR,INORDER TO GIVE COMPLETE

82
83

INFORMATION ALL ERROR BITS ARE CHECKED TO SEE THAT
NO OTHER ERROR OCCURED. IF AN ERROR OCCURED IT WILL

84,

BE REPORTED BY '‘WHYFO'* AND ‘WWATBIT''

WHYFO TELLS WHAT REGISTER THE ERROR BIT WAS FOUND IN AND

WATBIT TELLS WHAT THE NUMBER OF THE ERROR BITS

WHERE .

EXAMPLE :

RHCS1

93
gg

THESE ARE THE NUMBER OF
15
14

RHCS2 HAS AN ERROR BIT SET

ygsss ARE THE NUMBER OF THE EXTRA BITS

100

18}

103

104

HAS AN ERROR BIT SET

THE EXTRA BITS

END EXAMPLE
"

THIS PRINTOUT SAYS THAT TRE AND SC

IS SET

AND THAT DATA LATE WAS SET IN RnIS2.

IN RMCS?

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

2.0
2.1

WNN—=OO

}8;

d—‘—l—l—-l—l—l—l—-l_a_.l—J—J_l-_l_l—-l—-l_.l—l—l_l_h-l—l-—l—-l__l—d—ds
WWWWWWWWWNNNNNNNINMNIN
= o
s s

105
106

MACY11

12=JUL=79

10:46

PAGE 4

HARDWARE

1«

WN=O VOOV

REQUIREMENTS

IN PROPER WORKING

TMV

2.
3.
2.2

SEQ 0003

THIS IS DONE TO GIVE ONLY VALID DATA(ERROR)
NOT A COMBINATION OF GOOD AND BAD DATA.

THIS PROGRAM ASSUMES THE FOLLOWING IS
CONDITION:

16K OF CORE MEMORY
RH'1-TB MASSEUS SUMULATOR

SOF TWARE
USING STARTING ADDRESS 200 ASSUMES A BASE ADDRESS OF
160100 AND A VECTOR OF 774.
THE PROGRAM WILL CHECK FOR
ADDITIONAL RH'S AT ADDRESSES 160200, 160300, AND 160400

=OVO NN

KESPECTIVELY.
IF ANY OF THESE EXIST, THE PROGRAM
WILL DO MULTIPLE RH TESTING.
MULTIPLE RH TESTING (SEE
,
TEST 77) 1S NOT POSSIBLE AT ADDRESSES OTHER THAN THE

FOUR ADDRESSES AT 160100 THRU 180400.

IF NO CHANGES IN ADDRESS ARE MADE AN ALTERNATE STARTING
ADDRESS OF 204 CAN BE USED BUT THE PROGRAM MUST HAVE BEEN
STARTED AT LEAST ONCE AT ADDRESS 200 OR 210.
STARTING ADDRESS 210 ALOWS YOU TO SPECIFY THE BASE
ADDRESS ,VECTOR ADDRESS, AND HOW MANY REGISTERS YOU

VOO NE W

3
3

30A(7052)

ARE JUMPERED FOR.
THE NUMBER OF REGISTERS JUMPERED
REFERS TO THE NUMBER OF DEVICE REGISTERS (OCTAL)

BEGINNING WITH RHCS1 UP TO BUT NOT INCLUDING RHBAE.
ONLY ONE RH AT A TIME CAN BE TESTED USING STARTING
ADDRESS 210.

140

32}
143
;2?

3.0
;

THIS PROGRAM WAS ASSEMBLED WITH MACY11
SYSMAC PACKAGE (DZQAC-3).

146
147

OV~
W

b
el
D
- ——d
—

(e VLIV, IV IV LV, IV, IV, 1V, |

USING PDP-11

MAINDEC

IN TESTING ONE CONTROLLER, THE FIRST PASS TAKES ABQUT
5 SECONDS AND SUBSEQUENT PASSES TAKE ABOUT 10 MINUTES

}23

;g?

PROGRAM DESCRIPTION

3.1

ITERATIONS
ARE NOT INHIBITED.

SWITCH OPTIONS

SWITCH
5

3
1

USE
HALT ON ERROR
LOOP ON TEST

INHIBIT ERROR TYPEOUTS

INHIBIT

ITERATIONS

BELL ON ERROR
LCOP ON ERROR

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

161

162
163
-

MACY11

.
LA A

168

. I

170

INHIBITS THE PRINTING OF WATBIT

TO BE USED
IF DUAL

SRRl

AR AR

SEQ 0004

PORT

USED

2222222232228

INHIBIT WATBIT PRINTOUT

R A A A AR AR A AR AR

SYSMAC ROUTINES
TYPE,

172
173

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

w W

(USED)

CATCH, COMMON TAGS,

TRAP,

AR R

READ,

ERROR,

SWRHI,

SWRLO,

TYPE OCTAL,

SETUP SCOPE,

TYPE DECIMAL,

POWER,

EOP, KT11, HEADER, ERROR TYPE, READ OCTAL, ACT11 HOOKS.

174
175
176

178
179
180
181
182
183

PAGE 5

LOOP ON TEST IN SWR<7:0>

EQUATE,

171

177

10:46

13,8 ,AND O

166

169

12=JuUL=79

165

167

30A(7052)

é:igf ARE

4.0

THE

SYSMAC ROUTINES

INCORPORATED

IN THIS PRO-

TEST DESCRIPTIONS
TEST

= THIS IS THE RH ADDRESS DECODE TEST.' THIS PROGRAM
WILL CHECK THAT AN RH IS ON THE BUS AND THAT A TESTER

IS CONNECTED TO IT.

IF NO RH IS FOUND THE OPERATOR

WILL BE ALLOWED TO KEY IN THE ADDRESS FOR THE RH HE
HAS CONNECTED TO THE BUS.

TEST 2 = CLEAR TEST.
THIS TEST CHECKS THAT ALL ERROR BITS
ARE CLEARED AFTER THE CLEAR BIT WAS LOADED INTO
RHCS2 REGISTER.
THIS TEST IS ALSO ENTERED AT THE
LABLE CLEER AT THE END OF ALL THE ERROR BIT TESTS
TO SEE THAT A CLEAR WILL
THE TEST IS ENTERED HERE

CLEAR THE ,ERROR BIT SET.
IF THE ERROR BIT BEING

g??CE?DSEETDID NOT SET TO SEE

IF ANY OTHER ERROR

TEST 3 = THIS TEST SEES IF THE TESTER IS CONNECTED.
TEST SEES

PH SIMULATOR

TEST 4 = WC

THE DEVICE

CODE

THIS

IS A 40 TO SAY AN

IS ATTACHED.

CLEAR TEST.

THIS

TEST WILL

SEE

THAT WHEN A

gkg?R IS GIVEN THE WORD COUNT REGISTER REMAINS THE

TEST 5 = RHBA CLEAR TEST.
THIS TEST SEES THAT WHEN A CLEAR
IS GENERATED THE BUS ADDRESS REGISTER IS CLEARED.
TEST 6 = RHBAE

CLEAR TEST.

CLEAR IS GENERATED
ISTER IS CLEARED.

s
D
d —d
D
—

[0 AV, F S WNTLN PP

LANTAS
LAV TN 1AV 1,6

TEST 7 - RHDB CLEAR TEST.

THIS

TEST CHECKS

THIS TEST CHECKS THAT WHEN A

CLEAR IS GENERATED OUTPUT READY

TEST 10 = PROM REGISTER DECODE TEST.
THAT

IS NEGATED.

THIS TEST CHECKS

THE PROM CAN ACCESS ALL REGISTERS.

TEST 11 = RHCS3 TEST.

THAT WHEN A

THE BUS ADDRESS EXTENSION REG-

THIS TEST CHECKS THE READ/WRITE BITS

IN THE RHCS3 REGISTER CAN BE

CLEARED AND SET.

MASSBUS RKH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

217

MACYTT

30A(1052)

TEST

12=JUL=79

F-3

10:46

PAGE 6

SEQ 0005

12 = RHWC BIT TEST.
THIS TEST CHECKS THE WORD COUNT
REGISTER TO SEE IF ALL BITS CAN BE SET AND CLEARED
AND CHECKS THE REGISTER USING ALTERNATE BITS SET

(52525) AND USING (125252)

WITH ALTERNATE PATTERN.

TEST 13 = RHBAE BIT TEST.
ISTER ONLY IF

TO MAKE SURE IT WORKS

THIS TEST TESTS THE RHBAE REG-

THE RH IS AN RH70.

HAVE AN RHBAE REGISTER.
TEST

RH11'S DO NOT

14 = RHBA BIT TEST.
THIS TEST TESTS THE BUS ADDRESS
REGISTER BY FIRST ALTERNATLY SETTING AND CLEARING

BITS IN THE BA REGISTER AND THEN BY USING AN
ALTERNATE BIT PATTERN

BIT PATTERN (125252).
TEST

(52525) AND AN OPPOSITE

15 = RHDB BIT TEST.

THIS TEST TESTS THE RH DATA BUFFER REGISTER BY FIRST ALTERNATLY SETTING AND RE-

SETTING BITS IN THE RHDB REGISTER AND THEN BY USING
AN ALTERNATE BIT PATTERN (52525) AND AN OPPOSITE
ALTERNATE BIT PATTERN (125252).
TEST

16 = RHWC OPERATIONAL TEST.
THIS TEST CHECKS THAT
WHEN THE WORD COUNT REGISTER IS INCREMENTED IT IS
CARRIED TO THE HIGHEST BIT AND IS RETURNED TO ZERO.

TEST

= RHBA OPERATIONAL TEST.
THIS TEST CHECKS THAT
THE BUS ADDRESS REGISTER WILL CARRY THROUGH TO
THE HIGHEST BIT_IN THE BUS ADDRESS EXTENSION REG-

ISTER OR BIT A17 IN THE RHCS1 REGISTER AFTER IT IS
INCREMENTED.

TEST 20

- NEM, TRE, SC BIT TEST.

THIS TEST WILL CHECK

THAT NON-EXISTING MEMORY WILL SET

BIT
TEST 21

;

IN RHCS1 REGISTER.

THE

TRE AND SC

- WCE, TRE, SC BIT TEST.
THIS TEST WILL CHECK
Ic?g)TRE AND SC SET WHEN A WRITE CHECK ERROR OCCURS

TEST 22 - MDPE, TRE AND SC BIT TEST.
THIS
THAT MDPE CAN BE SET IN RHCSZ2, AND
TRE AND SC IN THE RHCS1 REGISTER.

TEST CHECKS
THAT MDPE SETS

TEST 23 = UPE,

TRE, SC ERROR TEST (RH11).
THIS TEST CHECKS
THE UPE BIT IN RHCS2 TO SEE IF IT SETS AND WHEN IT

IT SETS IS TRE AND SC BITS SET

IN RHCS1.

TEST 24 = UPE, TRE, SC ERROR TEST (RH70).
THE UPE BIT IN RH(S2 TO SEE IF IT

IT SETS

IS TRE AND SC BITS SET

THIS TEST CHECKS
SETS AND WHEN
IN RH(CS1.

TEST 25 = NED BIT TEST.
THIS TEST WILL CHECK THAT NED
(NON=EXISTANT: DRIVE) SETS TRE AND SC BITS IN RW(CST.

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHEE (P11
07= UN=7G 13:44

73
274
275

MACYT1

30A(7052)

12=JUL=79

1
10:46

PAGE 7

SEQ 0006

TEST 26 = MXF, TRE AND SC BIT TEST.
THIS TEST WILL CHECK
;?Aél¢gF (MISSED TRANSFER ERROR) WILL SET TRE AND

TEST 27 = PGE ERROR BIT TEST.
THIS TEST FORCES PGE TO
gSZS{N RHCS2 AND VERIFYS TRE AND SC IS SET IN
TEST 30 = MXF, TRE AND SC BIT TEST (RH11 ONLY).
THIS TEST
SEES IF MXF CAN BE SET BY A MOVE INSTRUCTION AND
THAT TRE AND SC ARE SET IN RHCS1.
MXF CAN BE SET
THIS WAY_ IN AN RH11 BIT CAN NOT BE SET THIS WAY

IN AN RH70.

TEST

31 = MCPE AND SC ERROR TEST.
?fiPEHEg? BE

TEST

SET

IN RHCS1

THIS TEST CHECKS THAT

AND

THAT MCPE

SETS

32=52 = DOUBLE TESTS.
THESE TESTS
CHECK DBL IN RHCS3 WITH READ FWD AND REV, WRITE
FWD AND REV AND WITH BAI

SET

IN RHCS2.

OPERATION

BEING PERFORMED WILL BE PRINTED OUT IN ERROR

ME SSAGE .
TEST 53 - WCE

RH70 ONLY.

EW ERROR TEST.

WILL SET

THIS TEST CHECKS THAT WCELO

IN RHCS3 AND THAT WCE SETS IN RHCS1.

ALSO CHECKS THAT WCEHI

DOES NOT SET WITH WCELO

BN BMCS3.coussine RH70 ONLY.

TEST

54 - WCE OW ERROR TEST
WCEHI

SETS

ALSO TESTS

(RH70 ONLY)

TEST

THIS TEST CHECKS THAT

THAT WCE

THAT WCELO DOES NOT

SETS

IN RHCS1,

SET WITH WCEHI.

IS SET.

56=75 = READ AND WRITE OPERATIONAL TESTS.

THESE TESTS

VERIFY ALL READ AND WRITE (ODES WHETHER IT BE A

READ REV. OR FWD OR A WRITE REV. OR FWD.
DURING
THESE TESTS THE TESTER TIMING IS MARGINED AND
NO ERRORS SHOULD OCCUR.

TEST 76 = THIS IS THE LARGE TRANSFER TEST , IT TESTS
ggsogg 70 OR 11 DOING A 671 WORD TRANSFER FOR
TEST

55 = INTERRUPT ENABLE TEST.
THIS TEST VERIFYS THAT
IE WILL SET IN RHCS1 AND IT WILL CAUSE AN INTERRUPT
WHEN RDY

TEST

(WCEHI).

IN RHCS3 AND

77 = THIS
ALLOWS

ERAEA R

IS NOT A TEST BUT IS THE ROUTINE THAT
THE DIAGNOSTIC TO TEST & RH'S IF PRESENT.

AR AR R AR AT

RARRAAN R AR AT AR AR

ECO HISTORY

R S

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=75 13:44

MACY11

329

30A(7052)

12=0UL=79

1
10:46

PAGE 8

SEQ 0007

CHGE1 = ADDED CODE TO MAKE BOTH WRITE LOC'S IDENTICAL
(HGE2 = CHANGED BIT8 FROM LOC TO DATA REFERENCE
(HGE3 = CHANGED BITO FROM LOC TO DATA REFERENCE
LA S

SAR Rttt
2222223

LTITLE
MASSBUS RH70 AND RH11
;*COPYRIGHT (C) 1976

DIAGNOSTIC

;*DIGITAL EQUIPMENT CORP.
*MAYNARD MASS. 01754

tPROGRAM BY WN D'ENTREMONT

*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC
s *PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,

SYSMA(

.SBTTL

OPERATIONAL SWITCH SETTINGS

- *x

SWITCH

esememese-

i*
i+
i

15
14
13

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

BELL ON ERROR

LOOP ON TEST IN SWR<7:0>

LSBTTL

STACK=
.EQUIV
.EQUIvV

000011
000012
000015
000200
177776

HT=

000000
000001
000002
000003
000004

INHIBIT

——

ITERATIONS

LOOP ON ERROR

BASIC DEFINITIONS

:*INITIAL ADDRESS OF THE STACK POINTER xx* 750 wx=

000750

177774
177772
177570
177570

USE

750
EMT,ERROR
10T,SCCOPE

;.BASIC DEFINITION OF
;sBASIC DEFINITION OF

;*MISCELLANEQOUS DEFINITIONS

LF=
CR=
CRLF=

PS=
.EQUIV

!2
15
200

177776
PS,PSW
STKLMT= 177774
PIRQ=
177772
DSWR=
177570
DDISP=
177570

.:CODE FOR HORIZONTAL

R2=

b ¥4

R4 =

R1=

R3=

TAB

;;CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN
;.CODE FOR CARRIAGE RETURN=LINE FEED

. sPROCESSOR STATUS WORD

;:STACK LIMIT REGISTER
; ;PROGRAM INTERRUPT REQUEST REGISTER
- 2 sHARDWARE SWITCH REGISTER
; sHARDWARE DISPLAY REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

RO=

ERROR CALL
SCOPE CALL

; ;GENERAL REGISTER

s ;GENERAL REGISTER

;sGENERAL "SGISTER
s sGENERAL

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P1T
07=JUN=79 13:44

385
386
387
388
389
390
391
392
393

39
395
396
397
398
399

400
401
402
403

000005
000006
000007
000006
00C007
000000
000040
000100
000140
000200
000240
000300
000340
100000

040000
020000

MACY11 30A(7052)
12=JUL=79
BASIC DEFINITIONS
RS=
R6=
R7=
SP=

P(=

PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

100
140
200
240
300
340

10:46

PAGE 9

SEG 0008

s ;GENERAL REGISTER
5 sGENERAL REGISTER
s ;GENERAL REGISTER
;:STACK POINTER

; sPROGRAM (COUNTER

DEFINITIONS
:;PRIORITY LEVEL 0
:;PRIORITY LEVEL 1

;:PRIORITY
;sPRIORITY
:;PRIORITY
:;PRIORITY
;;PRIORITY
::PRIORITY

LEVEL 2
LEVEL 3
LEVEL 4
LEVEL S
LEVEL 6
LEVEL 7

;*"'SWITCH REGISTER'' SWITCH DEFINITIONS

SW15=
Swl4=
Sw13=
Swi2=
SW11=

100000
40000
20000
10000
4000

Sw09=
Sw08=
Sw07=
Sw06=
SW0S5=
Sw04=
Sw03=
Swo2=
Swo1=
SwW00=
EQUIV

1000
400
200
100
40
20
10
4
2
1
SW09,sw9
SW08,Sw8
SW07,Sw7
SWOG,SwWwé
SWO05,SWS
SW04, Swé
SW03,Sw3
Sw02,Sw2
Sw01,sw1
SW00,Sw0

.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

¥4

;*PRIORITY LEVEL
PRO=
0
PR1=
40

Swi10=

100000

%5
%6
%7
%6

2000

s*DATA BIT DEFINITIONS (BITOO TO BIT1S)
BIT15=
100000
BIT14=
49000
BIT13= 20000
8IT12=
10000
BIT11=
40CC
BIT10= 2000
BIT09=
1000
BIT08= 400

BIT07=
BIT06=

BIT05=

200
100

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=7G 13:44
441

000020
000010
NN0004
000002
000001

442
443
44
445

MACY11 30A(7052)
12=JuL=79
BASIC DEFINITIONS

BITO4=
BIT03=
BIT02=
BITO1=
BITOO=
.EQUIV
.EQUIlv
.EQUlVv
.EQUIV
.EQUIV
.EQUIV
.EQulv
.EQUIV
.EQUIV
.EQulv

447
448
449

10:46

PAGE 10

SEQ 0009

20
10
&
2
1
BIT09.BIT9
BITO8,BIT8
BITO07,B1T17
BIT06.BIT6
BITO5,BITS
BIT04,BIT4
BITO03,8IT3
BITO0Z2,BIT2
BITO1,BIT1
B8IT00,BITO

;*BASIC ‘'CPU'" TRAP VECTOR ADDRESSES

ERRVEC= 4
RESVEC= 10

;. TIME OUT AND OTHER ERRORS
; ;RESERVED AND ILLEGAL INSTRUCTIONS

BPTVEC= 14
IOTVEC= 20

; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT)

TBITVEC=14
TRTVEC= 14

;T BIT
; : TRACE TRAP

2 ;POWER FAIL

TRAPVE (=34
TKVEC=
60

:"'TRAP'' TRAP
;:TTY KEYBOARD VECTOR

PIRQVE (=240
.SBTTL
TRAP CATCHER

; ;PROGRAM INTERRUPT REQUEST VECTOR

EMTVEC= 30

000064
000240

TPVEC=

000000

477

000174

480

000200

482

000204

478

484

000176

000210

; sEMULATOR TRAP (EMT)

=xERROR**

;:TTY PRINTER VECTOR

s*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘. +2,HALT"'
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

:'LOCATION194CONTA1NS O TO CATCH IMPROPERLY LOADED VECTORS :

000174
000000
000000

000137
000204
000137
000210
000137

#«SCOPE=*+

PWRVEC= 24

004176

DISPREG: .WORD
0
SWREG:
.WORD
O
.SBTTL
STARTING ADDRESS(ES)
JMSO4
A#BEGINT

004144

JMP

.=210
JMP

004152

;:SOF TWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER
::JUMP TO STARTING ADDRESS OF

PROGRAM

Q#BEGIN

AMBEGIN3

"."Qttttttttttttttttt~tttttt'tttttttttttttttttitttttttttttttw'tttt

.SBTTL

MEMORY MANAGEMENT DEF INITIONS

;*KT11 VECTOR ADDRESS
000250

MMVEC=
;*KT11

177572
177574
177576

SRO=
SR1=
SR2=

250
STATUS REGISTER ADDRESSES

177572
177574
177576

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

497
498
499

172516

b enb cnl axd

MEMORY MANAGEMENT DEF INITIONS

SR3=

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

PAGE

SEQ 0010

172516

172300
172302
172304
172306
172310
172312
172314
172316

s*KERNEL "'i'' PAGE ADDRESS REGISTERS

OVONONVNIS
WA =

oL uona

b al
b
b

K
1
12=JUL=79
10:46

30A(7052)

;*KERNEL "'I'" PAGE DESCRIPTOR REGISTERS

500
501
502
503

MACY11

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

°;t'***'tt'*'t'i*ttfi*.'fi'ttt*ttttt.ttttttt*ttitt"ttt'.ttt.itt'it

000046
000052

000214
000046
046342
000052
000000
000214

.SBTTL

ACT11

MRS

HOOKS

;HOOKS REQUIRED BY A(CT11
$SVP(=.
. =46
$ENDAD

.=52
.WORD

2222222222222

;SAVE PC
;:1)SET LOC.46 TO ADDRESS OF

2:2)SET LOC.52 TO ZERO
;. RESTORE PC

$ENDAD

IN .SEOP

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=-79 13:44

532
533
534
535
536
537
538
539
540
541
542
543
544
545
56
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587

1
L
12=JuL=79 10:46

MACY11 30A§|052)
COMMON
T

.SBTTL

PAGE 12

SEQ 0011

COMMON TAGS

A2t
e
3222322323323 2333 2232222

'THIS TABLE

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

*%USED IN THE PROGRAM.

001100
001100
001102
001103
001104
001106
001110

SCMTAG:
$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

001112

001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160
001162
001164
001166
001170
001172
001174
00117€
001200
001202
001204
001206
001210
001212
(001214
001216
001222
001223

$AUTOB:
$INTAG:
SWR:
DISPLAY:

$TKS:
$TKB:
$TPS:
$TPB:
$NULL:
$FILLS:

177560
177562
177564
177566
.BYTE
.BYTE

DDISP

;:START OF

COMMON TAGS

;;CONTAINS PASS COUNT
2 sCONTAINS THE TEST NUMBER
;s CONTAINS ERROR FLAG
:;CONTAINS SUBTEST ITERATION COUNT
2 JCONTAINS SCOPE LOOP ADDRESS
2 ;CONTAINS SCOPE RETURN FOR _ERRORS
s ;CONTAINS TOTAL ERRORS DETECTED
s sCONTAINS ITEM CONTROL BYTE
2 sCONTAINS MAX. ERRORS PER TEST
:;CONTAINS PC OF LAST ERROR INSTRUCTION
;s CONTAINS ADDRESS OF 'GOOD' DATA
2 sCONTAINS ADDRESS OF 'BAD' DATA
‘
‘
2 ;CONTAINS 'GOOD*- DATA
; ;CONTAINS '‘BAD' DATA
; sRESERVED=-=-NOT TO BE USED
;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR

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

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

ADDRESS
ADDRESS

.BYTE
.BYTE
.WORD

.WORD
.WORD
.WORD
.WORD

O
0
O
0

$REGS5:
.WORD
$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
_WORD
$TMP3:
.WORD
$TMP4:
_WORD
$TMPS:
.WORD
$TIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII

O
0
O
O
O
0
0

;:CONTAINS ((SREGAD)+0Q)
::CONTAINS ((SREGAD)+2)
+4)
;:CONTAINS ((SREGAD)
)
+6)
;s CONTAINS ((SREGAD
;:CONTAINS ((SREGAD)+10)
::CONTAINS ((SREGAD)+12)
:sUSER DEF INED
s ;USER DEF INED
:;USER DEF INED
: ;USER DEF INED
s ;USER DEF INED
..USER DEF INED

$REG4:

015

.WORD

O
0
O
O
O
0
0
O
1
O
0
0
0
O
O
0
0
0
O
DSWR

;;CONTAINS NULL CHARACTER FOR FILLS ;CONTAINS # OF FILLER CHARACTFRS REQUIRED
;o INSERT FILL CHARS. AFTER A 'LINE_FEED''

$REGO:
$REG1:
$REG2:
$REG3:

000377

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

0
2
12
0
O

$FILLC:
$TPFLG:
$REGAD:

000000
000000
000000
177607

.=1100

.WORD

;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

;;CONTAINS THE ADDRESS FROM
;:WHICH

(SREGO) WAS OBTAINED

NUMBER OF

ITERATIONS

::ESCAPE ON ERROR ADDRESS

<207><377><377> ..CODE FOR BELL
s sQUESTION MARK
<15>
;. CARRIAGE RETURN

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE .P11
588
589

001224

07=JUN=79 13:44
000012

MACY11

30A(7052)

COMMON TAGS

$LF:

ASCIZ

M1
12=JUL=79
10:46

PAGE 13

SEQ 0012
<i12>

s:LINE FEED

:.'t'Qtt'ttt.t.'..'..t..'t".i.‘t..t."Q'Q..'QQQQQQ.'.!..Q'..'QQ.Q

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

N 1
MACY11 30A(71052)
12=JuL=79 10:46
ERROR POINTER TABLE

PAGE 14

gg?

.SBTTL

ERROR POINTER TABLE

592
593
594
595

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH £RROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

ggg

:*NOTE2:

598
599
€00
601
602
603
604
605
606
607
608
605

I
I%
o
4

610

611
612
613

614

615
616
617
618
619
620
621
622
623
624
625
626

627
628
629
630
631
632
633

634
635
636
637
638
639
640
641
642
643
644
645

x
001226
021226
001230

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

EM
DH
DT
DF

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTR:
055040

JITEM 1

EM1

067602

DH1

001234

072314

DF1

001236

055100

001232

;;POINTS
;;POINTS
;;POINTS
;;POINTS

071750

;CORRECT BIT DID NOT SET
;IN RH WORD COUNT REGISTER

DT1

JITEM 2

EM2

;CORRECT BIT DID NOT SET
;IN BUS ADDRESS EXTENTION

001240
001242
001244

067722
071762
072320

001246

055140

001250
001252
001254

070043
071774
072324

001256

055214

001260
001262
001264

070163
072006
072330

001266

055254

001270
001272
001274

070303
072020
072334

001276

055325

001300
001302
001304

070303
072020
072334

001306

055541

;ITEM 3

JITEM 4

JITEM

JITEM 6

JITEM 7

DH?2
DT2
DF2
EM3

DH3
DT3
DF3
EM4
DH4
DTS4
DF4
S
EM5

DHS
DTS
DFS
EM6
DH5S
DTS
DFS

EM?7

sREGISTER

;CORRECT BIT DID NOT SET
;IN BUS ADDRESS REGISTER

;CORRECT BIT DID NOT SET
;IN RHDB REGISTER

JNED DID NOT SET IN
;RHCS2 REGISTER
;

JNEM LOGIC TO SET TRE

JAND SC BITS IN RHCS?

;IS NOT WORKING

sNEM BIT DOES NOT READ AS SET

SEQ 0013

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE P11
07=JUN-79 13:44

070303
072020
072334
055607

001320
001322
001324

070303
072020
072334

001326

055643

001330
001332
001334

070410
072032
072340

001336

055704

001340
001342
001344

070303
072020
072334

001346

055724

001350
001352
001354

070303
072020
072334

001356

055773

001360
001362
001364

070303
072020
072334

001366

056017

001370
001372
001374

070303
072020
072334

001376

056043

8 2
MACY11 30A(i052)
12-JuUL=79
10:46
ERROR POINTER TABLE

PAGE 15

SEQ 0014

DH5
DTS

:ITEM 10

DF5

E M10

JITEM

;TRE BIT SET 3UT NEM

JAND SC ARE NOT?

:SC BIT SET BY ATTN OR MCPE
;ERROR OR SC

IS SHORTED

;SHOULD HAVE BEEN SET BY NEM AND TRE

;TRE BIT SET BY NEM BUT SC

;DID NOT SET, LOGIC BETWEEN

:TRE AND SC NOT WORKING

JITEM

DH5
DTS
DF5
JITEM

EM14

;TRE BIT IS SET BUT SC
JREADS AS CLEARED. SC
;LOGIC ASSOCIATED WITH TRE
;BIT IS NOT WORKING OR SC
sHAS AN OPEN GOING TO THE BUS

sWCE BIT DID NOT

JRHCS?2

SET, BIT

DH5
DTS
DF5
JITEM

EM15

;WCE BIT DID NOT SET BUT
:g?g AND SC IN RHCS1 ARE

DH5
DT5
DF5
JITEM

EM16

;WCE AND SC ERROR BITS ARE

;SET TRE ERROR BIT SHOULD ALSO

;BE SET BJUT IT READS AS CLEARED
: THERE MIGHT BE AN OPEN BETWEEN

MASSBUS RH70 AND RH11_DIAGNCSTIC
CZRHBE P11
07=JUN=79 13:44

MACY11 30A(7052)
12=JUL=79
ERROR POINTER TABLE

702

703

001400 070303
001402 072020
001404
072334
001406

056063

001410
001412
0014174

070303
072020
072334

001416

056132

001420
001422
001424

070303
072020
072334

001426

056163

00143C
001432
001434

070303
072020
072334

001436

056212

001440
001442
001444

070303
072020
072334

001446

056245

JITEM

146

PAGE

. TRE AND

THE

;WCE AND

TRE ARE

SEC 0015
BUS

DH5
DTS
DFS
17

EM17

SET BUT

:SC BIT READS AS CLEARED
;LOGIC BETWEEN TRE AND SC
,DOES NOT SEEM TO BE WORKING
;BUT IT WORKED OK ON THE
sNON=-EXISTENT MEMORY TEST
;WHICH PRECEDED THIS TEST

DH5
DTS
DFS

JITEM

20
EM20

sUPE DID NOT SET

IN RHCSZ

DH5
DTS
DFS

JITEM

21
EM21

JITEM

;TRE AND SC BITS ARE

SET

;EITHER UPE HAS AN OPEN GOING
:TO BUS OR TRE AND SC WAS
;SET BY ANOTHER ERROR

;TRE BIT

IS SET, UPE AND SC

sSHOULD ALSO BE SET BUT THEY
JREAD AS CLEARED

DH5
DTS
DFS
JITEM

23
EM23

;UPE AND TRE ARE SET BUT|

:SC DID NOT SET, LOGIC TO

sSET SC DOES NOT SEEM TO
:BE WORKING
001450
001452
001454

070303
072020
072334

001456

056264

DH5

DTS
DF5
JITEM

24
EM24

sNED DID NOT SET IN RH(CSZ2

MASSBUS RH7C AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=-79 13:44
759

760
761

001462
001464

070303
072020
072334

764

001466

056315

001460

MACY11 30A(1052)
12=JUL=79
ERROR POINTER TABLE

10: 46

PAGE

SEQ 0016

DHS

DTS

DF5

JITEM

25
EM2S

sTRE AND SC ARF 'SET

;BUT THEY SHOULD HAVE BEEN
sSET BY NED WHICH READS

:AS CLEARED

769

770
771

001472
001474

001470

070303
072020
072334

774

001476

056347

DH5
DTS5
DF5
JITEM

26
EM26

:TRE BIT SET BUT NED

:AND SC BITS READ AS
*CLEARED. NED SHOULD
*HAVE SET CAUSING TRE
:70 SET WHICH IN TURN

*SET SC.

LOGIC NOT WORK

*ING CORRECTLY
782

001502
001504

070303
072020
072334

787

001506

056375

789
790

791

001510
001512

001514

070303
072020
072334

794

001516

056430

797
798
799

001520
001522
001524

070303
072020
072334

802

001526

056465

783
784

001500

DH5
DTS
DF5
JITEM

27
EM27
DH5
DTS
DF5S

JITEM

30
EM30

;TRE BIT WAS NOT SET.
;BY NED. TRE SET LOGIC

sNOT WORKING

JMXF BIT DID NOT SET
JIN RHCS2

DH5
DTS
DF5
JITEM

31
EM31

sMXF BIT SHOULD BE SET
;IN RHCS2 BUT IT READS AS
.CLEARED.

s IN RHCST.
807
808
809

001530
001532
001534

070303
072020
072334

8
812
813

001536

056524

DH5
DTS
DF5
JITEM

32
EM32

TRE AND SC ARE

;TRE BIT IS SET BUT MxF
JAND SC READ AS CLEARED

SET

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44
814

001540
001542
001544

070303
072020
072334

001546

056553

12=JuL=7 Yy
MACY11 30A(7052)
ERROR POINTER TABLE

DHS

10: 46
;MXF

PAGE
AND

SEQ 0017

SC BITS ARE

INCORRECT

DTS
DF5S

JITEM

33
EM33

sTRE LOGIC ASSOCIATED WITH

sMXF IS NOT WORKING
;TRE READS AS CLEARED

:OR TRE HAS AN OPEN GOING

:TO

THE BUS

001550
001552
001554

070303
072020
072334

001556

056623

001560

070476

DH34

*PC

001562

072042

DT34

:SERRPC, STSTNM,DT.0

001564

072343

DF 34

:0,0,0

001566

056673

001570
001572
001574

071631
072272
072340

001576

056725

001600

"070556

DH36

;PC TEST NO. FAILING ADDRESS

001602

072056

DT36

s$ERRP( ,$TSTNM,RH(CS1,0

001604

072347

DF 36

:0.0,9

001606

056763

37
EM37

;DLT DID NOT SET IN RH(CSZ2

001610

070553

DH35

001612

072052

DT35

001614

072346

DF 35

001616

057014

DHS
DTS

DFS
JITEM

JITEM

34
EM34

35
- EM35

:TESTER IS NOT CONNECT

*TO THE MASSBUS DEVICE

*CODE SHOULD BE A 40
TEST NO.

DEVICE

CODE

;BIT IN RHCS3 WILL NOT ET

DH171
DT171
DF11
JITEM

JITEM

36
EM36

EM4O

sDLT IS NOT SET IN RHCSZ2 BUT

sTRE

AND

READ AS

SET.TRE

JAND SC MUST HAVE BEEN SET BY A DIFFERENT

ERRUK

MASSBUS Rk70 AND RH11_DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

MACY1? 30A(7052)
12=JUL=79
ERROR POINTER TABLE

070553

001620
001622
001624

072052
072346

001626

057154

001630

10:46

PAGE

SEG 0018

DH35
D135
DF 35

SITEM

EM&1

;OUTPUT READY

070637

DH41

;PC TEST NO.

001632

072066

DT41

0
. $ERRP(C,$TSTNM,

001634

072352

DF41

001666

057466

001670
001672
001674

000000
000000
000000

001676

057541

001700
001702
001704

000000
000000
000000

001706

057622

001710

000000

00O
ococoms

ma
=r

;RHWC DID NOT LOAD ANY BITS

(177777)

JRHWC

;SOME BITS CLEARED AFTER CLEAR

[elele)

000000
000000
000000

INTO RHWC

;WAS LOADED INTO RH(CSZ

JITEM

OO0

001660
001662
001664

JITEM

057374

001656

s1TEM

057330
000000
000000
000000

001646
001650
001652
001654

000000

000000
000000

001640
001642
001644

;ALL _BI TS DID NOT LOAD

(177777)

057257

. 001636

IN RHCS?2

42
~
o

JITEM

;DID NOT SET

sNON-EXISTANT MEMORY BIT

sSET IN RHCS2

:RHBA DID NOT CLEAR AFTER CLR

;WAS LOADED

JITEM

INTO RHCSZ2

;ALL BITS DID NOT LOAD INTO
;RHBA REGISTER
((177776)

MASSBUS RH70 AND RH11_DIAGNCSTIC
(ZRHBE .P11
07=JUN=79 13:44

001712
001714

000000
000000

001716

057673

001722
001724

001720

000000
000000
000000

001726
001730
001732
001734

057752
000000
000000
000000

001736

060003

MACY11 30A(7052)
12=JUL=79
ERROR POINTER TABLE

10:46

PAGE 20

0
:ITEM

50
EMS0

0
¢
0
JITEM

:ITEM

EMS1
0
0
0
52
EMS?2

;LOADING TRE AFER ITS SET DOES NOT
;CLEAR ERRORS

;PGE DID NOT SET IN RH(CS2

;THE

PROM WHILE ACCESSING A

JREGISTER WHICH YOUR TESTER
s CANNOT SUPPLY INFORMATION FOR

;SAYS INFORMATION IS PRESENT

981

001740

070663

vHS52

;PC TEST NOC. ADDRESS CONT

001742

072074

DTS2

s $ERRPC ,$TSTNM,BA
,SREGO
E

001744

072354

DF52

001746
001750
001752
001754

060156
000000
000020
000000

001756
001760
001762
001764

060764
000000
000000
000000

001766
001770
001772
001774

060171
000000 .
000000
000000

001776
002000
002002
002004

C60176
000000
000000
200000

002006
002010
002012

060204
000000
000000

JITEM

EMS3

JRHCS1

JITEM

54
EM54

JRHWC

JITEM

55
EMS5

. RHBA

JITEM

56
EM56

:RHMR?2

JITEM

EM57

JRHCS?2

SEQ 0019

MASSBUS RH7C AND RH11
CZRHBE .P11

07=JUN=7G 13:44

982
983

002014

000000

G985
986

002016
002020

060212
000000

984

987
988
989

002022
002024

000000
000000

991

002026

060217

002034

000000

002036
002040
002042

060224
000000
000000

990
992
993

994
995
996
997
998
999

}88?
1002
1003
1004
1005
1006

1007
1008
1009
1010
1011
1012

1013
1014

1015

1016

1017
1018
1019

1020
1021

1022
1023
1024
1025

1026
1027

002030
002032

000000

002046
002050

060231
00000C

002052

000000

002056
002060
002062
002064

060237
000000
000000
000000

002066

060244

002070

000000
000000

002076

06025¢

002100
002102
102104

000000
000000
000000

002106
002110

0&N257
0000C2

002112

000000

1032
1033

002116

060265

1035
}8%9

002122
002124

1034

002114

002120

JITEM

000000
000000

TABLE

10:46

PAGE 21

SEQ 0020

EM60
0

:RHST

0
0

;1TEM

EM61

0
0

:RHER

JITEM

62
EM62
0
0

;RHAS

JITEM

63
EM63
0
0
0

JITEM

64
EM64
0
0
0

JITEM

EM65S

;RHTDB

:RHDR

RHMR1

0
0

JITEM

66
EM66

:RHDT

0
0
0

JITEM

7
EMG7
0

s RHBAE

0000C0

000000

12=JUL=79

000000

002072
002074

30A(7052)

ERROR POINTER

000000

1028
1029

%8;?

MACY11

000000
000000

002044

002054

_DIAGNOSTI(

JITEM

70
EM70

:RHCS3

0
0

;

’

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE.P11
07=JUN=79 13:44

MACY11 30A(i052)
12-JuL=79
ERROR POINTER TABLE

1038
1039
1040

002126

060273

1042

062130

071657

DH172

1044

002132

072302

DT172

1046
1047

002134

072406

DF172

1049

002136

060362

1052

002140

071041

DH72

105

002142

072110

DT71

1056
1057

002144

072361

DF71

1048

105

1058

1059
1060

002146

060417

1062

002150

071041

002152

072110

1064

1065
1066
1067

002154

002156

060446

002160
002162
002164

071041
072110
072361

1076

002166

060474

}8;5

1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093

JITEM

002170
002172
002174

071041
072110
072361

002176

060524

002200
002202
002204

002206

071130
072120
072364
|
060631

002210
002212
002214

067602
071750
072314

10:46

7
EM71

EM73

;RHCS1

HAS AN ERROR BIT

:SET AFTER CLEAR OPERATION

:PC

TEST NO.

CONTENTS OF REGISTER

y
;ERROR BIT SET IN RHCS2
:AFTER A CLEAR OPERATION

D71

DF
71

JITEM

EM74
DH72
D171
DF 71

JITEM

:ERROR BIT SET IN RHER,
*TESTER ERROR REGISTER.AFTER
A CLEAR OPERATION

EM75

DH72
DT71
DF 71
76
EM76
DH76
DT76
DF 76

77
EM77
DH1DT1
DF
1

SEQ 0021

;DEVICE NO DOES NOT EQUAL
:A 7 IN RHMR2 AFTER A CLEAR

EM72

PAGE 22

DH72

072361

1068
1069
1070
1071
1072
1073

1074
1075

JITEM

;ERROR BIT SET

IN RHST

:AFTER A CLEAR OPERATION

;RHBA INCREMENTED BUT DID NOT CARRY
:OVER TO THE RHBAE REGISTER

:READY DID NOT SET AND RHWC
:DID NOT INCREMENTM DOING A WRITE OPERATION

MASSBUS RH70 AND RH11_DIAGNOCSTIC
CZRHBE .P11
07=JUN=79 13:44

060743

002220
002222
002224

067722
071762
072320
061030
067722
071762
072320

NN N N A N N N
TN
el il v
.
o
WN=O VRO NOVNRWN=SOVONOWVA~WN—=0O000~N

061075
000000
000000
000000
061126

002250
002252
002254

JITEM

061304

002260
002262
002264

000000
000000
000000

002266

061475

002270
002272
002274

071166
072132
072370

002276
002300
002302
002304

061542
071166
072132
072370

002306
002310
002312
002314

061570
000000
000000

002316

061677

O
B

O
D

P
D

D
Y

D d
D
T
D

D
e
D

et v

D
e
)
D

D D
e

BRSNS
I o

D
D

Y IR NS NAT IR N

D e

D = e

D
D e

) e

D
d e

e
—

—

000000

002320
002322
002324

000000
000000
000000

002326

061771

100

EM100
DH2

2
10: 46

PAGE 23

;RHBA DID NOT

SEQ 0022
CLEAR AFTER (LR

;WAS LOADED INTO RH(CSZ2

JITEM

D
N

NS S

D e
G
Y

072314

12-JUL=79

ERROR POINTER TABLE

067602
071750

002256

D
Y

D D
N Y

D o
D
O
WS Y

D
YO

D D D o
D
T YR N
(N Y Y

D
J——

SRSERRGRES

1099

002216

MACYTT 2QA(7052)

;READY DID NOT

SET

IN RH(ST

;DOING A WRITE OPERATION RDY
;DID NOT SET AND WC DID NOT INCREMENT
;BUT INFO WAS WRITTEN TO TESTER

;DOING A WRITE OPERATION RDY
;DID NOT SET AND WC WAS NOT INCREMENTED
JAND INFO WAS NOT WRITTEN TO TESTER
: (WRITE OPERATION DID NOT WORK)

JITEM

JRHBAE IS MESSED UP IT SHOULD

;EQUAL 40,IT DOES NOT = 37(OLD)
JAND IT DOES NOT = 0

JITEM

JRHBAE DID NOT GET !NCREMENTED

JREAD REV.

OPERATIONS DID NOT

:?SSBSSROM TESTER TO STORAGE LOCATION
JITEM

JRHBAE = 0 IT SHOULD = 40

JAFTER A ONE WORD WRITE

JITEM

;A17 DID NOT SET AFTER BA WAS INCREMENTED

002406 062430

002410
002412
002414

071545
072250
072364

002416

062526

002420
002422
002424

070410
072032
072340

002426

062567

002430
002432
002434

071300
072162
072364

002436
002440
002442
002444

062652
071300
072162
072364

002446

062704

JITEM

114

;ITEM

JITEM

SITEM

EM114

SEQ 0023

;BA DID NOT INCREMENT

sRHBA INCREMENTED BUT IT DID
- ;NOT CARRY TO A16 + A17 IN RHCS1

;OUTPUT READY WAS NOT NEGATED

;AFTER CLR WAS LOADED INTO RH(CS?2

:ALL BITS DID NOT READ TO STORAGE

*LOCATION (RBUF) DURING A READ REV. OPERATION

;MDPE DID NOT SET IN RH(CSZ2

000000
000000
000000

DH111
DT111
DF105

—On

062376

EM113

2—-

002376
002400
002402
002404

113

JITEM

PAGE 24

2INFO DID NOT WITE TO TESTER
;DOING A WRITE REV. OPERATION

sTRE AND SC DO NOT SEEM TO HAVE
;BEEN SET BY MDPE

sTRE

IS ONLY BIT

SET

,_MDPE

2SC SHOULD ALSO BE SET

AND

R AR

SR&ERS S8 S R RS 8 e

002372
002374

062264
000000
000000
000000

EM112
DH111
DT11
DF105

—

000000
000000
002000

112

:ITEM

_—

062166

10:46

DH111
DT111
DF105

D
D
d D
D
D
D

D D

071233
072146
072370

MACY11 30A(7052)
12-JUL=79
ERROR POINTER TABLE

m-— OOOM—-=O0OO0ON-=000

D—

NS W
=o
R R B IR I ANINIITZILRRRAR
eNV ONO

062071

— e

D D D D D
D D D D e D D D D D D D e
D D o
D D D
nonYNINVNIN —d —d —d D
OO
00
00 0 00
00 00 00 00 00 00 00 00 00 00 00 ~J I i <~
< < VN N

071233
072146
072370

062044
071233
072146
072370

)

002330
002332
002334

AN AL LV IV LV IV

D dd—-‘—ld—l—l-‘dd-‘—l—.-—l—.—l—‘—‘—l-‘—.—.—l-—l_.—‘—.—‘_._.—l—.—l—l_‘_I—I—.—l—‘._j._j—l—.-Jd_‘—l—‘dd —

LY Al

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE P11
07=JUN=79 13:44

JITEM

2SC NOT SET AFTER MDPE AND TRE SET

;TRE AND SC WERE SET EITHER BY
;AN ERROR OTHER THAN PGE,OR PGE
r

MASSBUS RH7C AND RH11_DIAGNOSTIC
CZRHBE.P11
07=JUN=79 13:44

1206

1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244

1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261

002450
002452
002454

000000
000000
000000

002456

062757

002460
002462
002464

000000
000000
000000

002466

063052

002470
002472
002474

000000
000000
000000

002476

063146

002500
002502
002504

000000
000000
000000

002506

063237

002510
002512
002514

000000
000000
000000

002516
002520

063335
071336

MACY11 30A(71052)
12-JUL=79
ERROR POINTER TABLE

(ITEM

063441
071364
072204
072375

002546

063475

002550

JITEM

(ITEM

071364

002552
002554

072204
072375

002556

063576

002560
002562
002564

071364
072204
072375

JITEM

:DBL SET AFTER DOING A 1 WORD WRITE
:FROM AN EVEN ADDRESS

:
;DBL SET ON A 3 WORD WRITE
:FROM AN EVEN ADDRESS
.

:DBL DID NOT SET AFTER A 2 WORD
:WRITE FROM AN EVEN ADDRESS

:MCPE SET BUT SC READS AS CLEARED

;MCPE DID NOT SET

132

DH132

JITEM

;DBL NOT SET AFTER A 4 WORD WRITE
*FROM AN EVEN ADDRESS

0
0
0
130
EM130
DH130
DT130
DF36
137
EM131
DH130
DT130
DH36

EM132
DH132
DT132
DF132
133
EM133

SEQ 0024

0
0
0
127
EM127

JITEM

063407
071386
072174
070556

002536
002540
002542
002544

126
EM126

JITEM

002522
072174
002524 072347
002526
002530
002532
002534

0
0
0

PAGE 25

0
0
0
125
EM125

JITEM

10:46

;HAS AN OPEN GOING TO THE BUS

0
0
0
124
EM124

JITEM

:WCE LO (EW) DID NOT SET IN RHCS3

;WCE HI (OW) SET ALONG WITH
SWCE LO IN RHCS3

DT132
DF 132
134

EM134
DH132
DT132"
DF132
135

;WCE LO IS SET IN RHCS3 BUT
(WCE IS NOT SET IN RHMCS2

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44
1262
1263

1264

002566
002570

063657
071364

002572

072204

002576
002600

}S;?

002602
002604

063713
071364

1272
1273
1274

002606
002610
002612

063774
071364
072204

1265
1266
1267
1268
1269

}S;Z

002574

002614

MACY11 30A(1052)
12=JUL=79
ERROR POINTER TABLE

072375

072204
072375

072375

JITEM

10:46

PAGE 26

SEQ 0025

EM135
DH132
DT132
DF132

;WCE HI

EM136
DH132
DT132
DF132
137
EM137
DH132
DT132
DF132

;WCE HI SET BUT WCE DID NOT SET IN RH(S2

136

140

DID NOT SET

IN RH(CS3

;WCE LO SET WITH WCE HI

IN RH(CS3

064075

BESEIR SRS83FLR

JITEM

—

=245

PAGE 27

SEQ 0026

;WRITE OPERATION DID NOT INC wC

;BA WAS NOT iNC AFTER A WRITE

s INFQ WAS NOT WRITTEN TO TESTER

sREAD OPERATION DID NOT

INC WC

;BA WAS NOT INC AFTER A READ

JITEM

—_—

EM140

pur—y )

1277
1278
1279
1280
1281

N 2
MACY11 30A(1052)
12=4UL=79
10: 46
ERROR POINTER TABLE
OM2OO0OM=000

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

sINFO DID NOT READ FROM TESTER

D LD

JITEM

D o

JITEM

— e

)

d D

WW W WWWWWWWWWWIWWANWWW
n N N=
n
b b D
e

o VS W =000V
VSR WN=O

071500
072234
072370
064560

071545
072250
072364

064651
071545
072250
072364
065003
071545

072250
072364
065105

002740
002742

071545
072250

sTHIS

;OF

JITEM

IS FOR PRINTED CONTENTS

THE RH REGISTERS

sALL BITS DID NOT GET TRANSFERED
;DURING A READ OPERATION

sREAD OPERATION DID NOT SEEM TO WORK

sALL BITS DID NOT WRITE TO TESTER

;:WRITE OPERATION DID NOT WRITE
1O TESTER

002776

065420

003000
003002
003004

000000
000000
000000

003006

065511

003010
003012
003014

000000
000000

003016

065605

000000

003020
003022
003024

000000
000000
000000

003026

065674

003030

003032
003034

000000
000000
000000

003042

065763
000000
000000

003044

000000

003046

066052

003050
003052
003054

000000
000000
000000

003056

066130

ITEM

JITEM

:ITEM

w
W

000000
000000
000000

;WITH BAI

5
M156

SET

;DBL SET ON A 1 WORD READ FROM

;AN EVEN ADDRESS

;DBL SET ON A 2 WORD WRITE REV
;WITH BAI

57
M157

M160

SET

;DBL SET ON A 2 WORD WRITE FROM

;FROM AN ODD ADDRESS

;DBL DID NOT SET ON A 2 WORD
WRITE REV FROM AN EVEN ADDRESS

;DBL SET ON A 2 WORD WRITE REV

;FROM AN ODD ADDRESS

161

002770
002772
002774

JITEM

M- QOO

065332

002766

pyy.

000000
000000
000000

54
M154

;DBL SET ON A 2 WORD TRANSFER

002760
002762
002764

JITEM

mM-=O OO

065241

M-=O00O0

002756

m-a OO0

000000
000000
000000

mM—=O OO
(o)

002750
002752
002754

153

EM153

065155

CF76

002746

JITEM

m— OO0

5 S0 00 N

RRRR RRRRF R AN AN AN
NN

OV~

] i
D
e
e
i
D i) e
e
e
b
i o cd
i e

072364

moaocoom— lelele]
o
=0
W
— N
o

A R AR

= B0 00 NN

o — O

AN A RRRRRRRR ALY
0

338

D i

) e

i o

D i i

i i

) il

1336
1337

002744

PAGE 28

M163

;DBL SET ON A 3 WORD WRITE REV

;FROM AN ODD ADDRESS

;DBL DID NOT SET ON A 2 WORD

;DBL SET ON A 2 WORD READ
sFROM AN ODD ADDRESS

1333

1334
1335

8 3
12=JUL=79
10: 46
ERROR POINTER TABLE

MACY11 30A(7052)

=000
(o

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

EM164

;DBL SET ON A 2 WORD READ REV

SEQ 0027

000000
000C00
000000

003136

066545

003140
003142
003144

000000
000000
000000

003146

066566

003150
003152
003154

000000
000000
000000

003156
003160
003162
003164

066652
000000
000000
000000

003166
003170
"003172
1444
003174

066703
000000
000000
000000

1441
1442

PAGE 29

SEQ 0028

—un

;DBL DID NOT SET ON A 2 WORD

;DBL _SET ON A 3 WORD READ FROM
;AN EVEN ADDRESS

JITEM

s TRE READS AS SET,PGE AND

;READ AS CLEARED.PGE AND SC
s SHOULD ALSO BE SET

JITEM

;PGE AND TRE READ AS SET SC
;READS AS (LEARED

;READY DID NOT CAUSE AN INTRUPT
SWITH IE SET IN RHCS1

;IE WILL NOT SET IN RHCS1

003130
003132
003134

066473

(o)

003126

Nen

000000
071603
072262
072403

~
W

003116
003120
003122
003124

~
~

000009
000000
000000

:46

;DBL DID NOT SET ON A 3 WORD
sREAD REV FROM AN EVEN ADDRESS

003110
003112
003114

JITEM

bl elela]

066374

—a ON

003106

000000
000000
000000

M-200O0O

003100
003102
003104

JITEM

MmMaoOoOO

066315

—N

003076

=uw

000000
000000
000000

JREAD REV FROM AN EVEN ADDRESS

M-

003070
003072
003074

:ITEM

066217

;FROM AN ODD ADDRESS

003066

M-a2OO0O0O

000000
000000
000000

1391

003060
003062
003064

=2~

1389
1390

MACY11 30A77052
12=JUL=79
ERROR POINTER TABLE

OoOCOM=O OOM =000

MASSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

:IE HAS AN OPEN GOING TO THE BUS }
)

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

1450
1451
1452
1453

1454
1455

1456
1457
1458
1459

1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481.
1482
1483
1484

1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498

1499

1500

003176
003200
003202
003204

066743
071300.
072162
072364

003206
003210

066776
071300

003212
003214

072162
072364

003216
003220
003222
003224

067043
070637
072066
072352

003226
067125
003230 - 070637
003232
072066
003234
072352
003236
003240
003242
003244

067207
070637
072066
072352

003246
003250
003252
003254

067271
070637
072066
072352

003256
003260
003262
003264

067351
070637
072066
072352

003266

067436

003270
003272
003274

070637
072066
072352

003276
003300
003302
003304

067522
070637
072066
072352

003306
003310

067546
000000

003314

000000

003312

176

DT121
DF 76
200
EM200
DH41
DT41
DF41
201
EM201

JITEM
>

JITEM

JHIBYTE LOBYTE GATE FOR DB NG

JHIBYTE LOBYTE GATE FOR BA

;RHBA HAS WRONG ADDRESS
!

i
;RH DID NOT

INTERUPT

DT41
DF41

JITEM

206
EM206
DH4
1
DT41
DF41
207
EM207
0

JITEM

IS NG

;
JTESTER DATA BUFFER HAS WRONG INFO

DH4 1
DT41
DF41
205
EM205
DH4
1

DF41
204
EM204

JITEM

;

SET

F
.

DH41
DT41

JITEM

IS SET DLT AND SC SHOULD ALSO BE
.

JHIBITE LOBYTE GATE FOR WC NG

DT41
DF 41
202
EM202
DH41
DT41
DF41
203
EM203

JITEM

SEQ 0029

;DLT AND TRE ARE SET ,SC READS AS CLEARED
.

DH4
1

PAGE 30

cTRE

e
EmM177
DH121

JITEM

10:46

EM176
DH121
DT121
DF 76

000000

000774

JITEM

003316

:
;

;RHWC

SHOULD BE ZERO

;s TRANSFER WAS DONE ON PORT B

0
;RH REGISTERS

RHVEC:776
DA

R Rk R R R R R

:RH VECTOR ADDRESS

R R R R AR AR AR R AR R RN AR R R R RN A RA

AR T AR R R R R R R R R

\
-

1445

1446
1447
1448
1449

MACYT1 30A(7052)
12=JuUL=79
ERROR POINTER TABLE

MASSBUS RH70 AND RH11 DIAGNCSTIC
CZRHBE .P11
07=JUN=79 13:44
1501

MACY11 30A(7052)
12-JUL=79
ERROR POINTER TABLE

10:46

PAGE 31

SEQ 0030

:WORD COUNT REGISTER (RHWC)
;EACH BIT IS CALLED BY BIT NUMBER

d
D
D o
e
D e
d
D
d e
D
D
)
d e
e
D e e
D
) nd D d
D
D e D
D e
D
D
D

:CONTROL AND STATUS REGISTER 2 (RH(S2)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

D e
e
e
e
ed
)
-

MPE=MXF =
PGE=
NEM=
NED=
UPE=
WCE=
DLT=

1
2
4
10
20
40
100
200

JUNIT SELECT (BIT #0)
JUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT
:INVERT PARITY ICHECK FOR MCPE
:CLEAR (BIT #5)
;INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)

20000

;UNIBUS PARITY ERROR (RIT #13)

400
1000
2000
4000
10000

(BIT #3)

:MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
;NON EXISTANT MEMORY (BIT #11)
:NON EXISTANT DRIVE (BIT #12)

40000

;WRITE

100000

CHECK ERROR

;DATA LATE

000001
000002

IPCKO=
1
IPCK1=
2
IPCK2= - 4
IPCK3=
10
1E3=
100
DBL=
2000

WCELO=
4000
WCEHI=
10000
DPELO=
20000
DPEHI=
40000
APE =
100000
;DATA BUFFER REGISTER

(BIT #15)

JWRITE CHECK ERROR EVEN WORD (BIT #11)
JWRITE CHECK ERROR ODD WORD (BIT #12)
« ;DATA PARITY ERROR EVEN WORD (BIT #13)

;DATA PARITY ERROR ODD WORD (BIT #14)

(RHDB)

sCONTROL AND STATUS 1 REGISTER.

001000

GO=
IE=RDY=

Alé=

Al7=

1
. 100

:ADDRESS PARITY ERROR

400

1000

JREADY (BIT #7)

(BIT #15)

(#00)
;GC _(BIT 40)
s INTERRUPT ENABLE

200

s INVERT PARITY,ON LOW BYTE OF EVEN WORD (BIT #0)
;INVERT PARITY,ON HI BYTE OF EVEN WORD (BIT #1)
;INVERT PARITY,ON LOW BYTE OF ODD WORD(BIT #2)
:INVERT PARITY,ON HI BYTE OF ODD WORD(BIT #3)
s INTERUPT ENABLE,SAME AS BIT 6 OF RHCS1 (BIT #6)
;DOUBLE WORD OPERATION,SET WHEN LAST MEMORY TRANSFER WAS

;EACH BIT IS CALLED BY BIT NUMBER

000001

’

(BIT #14)

;CONTROL AND STATUS REGISTER 3 (RHCS3)

d e

usi=
uS2=
uS4=
BAI=
PAT=
CLR=
IR=
OR=

100000

VAW

ViV
oo
\‘r\lm\nm\nmmmm\nmmmmwmwmmw\nmwmmm
A
RN A AR RO RO RORIFO RO
s e s s
S A0
Pk 2 bmwwg RN LS BB NER AR NN S 0D SN NN = O

VNN
OV
NN WN—=O 000N

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

(BIT #6)

sHIGH ORDER UNIBUS BITS (BIT #8)

;HIGH ORDER UNIBUS BITS (BIT #9)

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

1557
1558
1559
1560
1561

}gg%

‘

002000
004000
020000
040000
000100

100000

MACYT1 30A(i052)
12=JuUL=79
ERROR POINTER TABLE

PSEL=
DVA=

MCPE=
TRE=

TREB=
SC=

}ggg

DRY=
DPR=
MOL =

200
400
10000

1570
}g;}

‘040000
100000

ERR=
ATA=

40000
100000

PIP=

20000

SEQ 0031

sMASSBUSS PARITY ERROR (BIT #13)
; TRANSFER ERROR (BIT #14)

;TRE BIT FOR A BYTE OPERATION
JSPECIAL CONDITION (BIT #15)

100000

000200
000400
010000

PAGE

;PORT SELECT (BIT #10)
;DEVICE AVAILABLE (BIT #11)

sSTATUS REGISTER

020000

10:46

2000
4000
20000
40000
100

1566
1567
1568
1569

r.3

(RHST)

(#01)

;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
sMEDIUM ON-LINE (BIT #12)

;POSITIONING OPERATION IN PROGRESS

;COMPOSIT ERROR. (BIT #14)
SATTENTION ACTIVE (BIT #15)

1573
1574
1575
1576

000001
000004
000010

;ERROR REGISTER #01
ILF=
1
RMR=
4
(PE=
10

1578

000040

RMBEX=

sMASSBUS exCEPTION LWHEN SET CAUSES AN ABORT OF A DATA T

12%}

020000

OPl=

20000

;OPERATION INCOMPLETE

1577

1579
1580 °

000020

000100
010000

DPE=

RFAIL=
DTE=

100
10000

(RHER)

(#02)
:
;ILLEGAL FUNCTION (BIT #0)
JREGISTER MODIFICATION REFUSED
sCONTROL PARITY ERROR(BIT #3)

(BIT #13)

;DATA PARITY, ERROR(BIT #4)

;MASSBUS POWER FAIL(BIT #6)
;DRIVE TIMING ERRCR (BIT #12)

(BIT #13)

(BIT #2)

MASSBUS RH70 ANC RH11

CZRHBE.P11

DIAGNCSTIC

07=JUN=7% 13:44

?233

MACYT?

30A(7052)

10:46

ERROR POINTER TABLE

sDIAGNOSTIC REGISTER (RHMR1)

1585
1586
1587
1588
1589
1590
1591
1592

000001
000002
000004
000010
000020
000040
000100
000200

DMD=
MCLk=
FERR=
ICPA=

1
2
4
10

1597

010000

DPCA=
NEBL =
DTRM=
DOCC=
SLKM=
ISLK=
ENPS=

BMD18=

40
100
200
400
1000
2000
4000

1593
159
1595
1596

IDPA=

000400
001000
002000
004000

}288

000001
000002
000004
000010

1605
1606

ATO=
ATI=
AT2=
AT3=

000020
000040

1607

000100

1608

ATz
ATS=
AT7=

200

AT6=

000200

}g}?

100

000001
000002
000004
000010

1617

000020

1616

1618
1619

000040
000100

1620

DNO=
DN1=
DN2=
SCLk=

GAP=

BLO=
BL1=

000200

BL2=

1622

1
<
4
10

40
100

200

SEG 0032
:

(RHAS)

:DEVICE
DEVICE
:DEVICE
:DEVICE
DEVICE
DEVICE

0
1
2
3

&
5

DEVICE 6

(BIT #12)

(#04)
(BIT
(BIT
(BIT
(BIT

#0)
#1)
#2)
#3)

(BIT #4)
(BIT #5)

(BIT #6)

:DEVICE 7 (BIT 47)

(#5)
:DRIVE NUBER BIT #0 (BIT #0)
sDRIVE NUMBER BIT #1 (BIT #1)
:DRIVE NUMBER BIT #2 (BIT #2)
:SYNC CLOCK RANGE BIT ,WHEN CLEAR SYNC CLOCK

WHEN SET 2.0-10.6 MICRO SECONDS

:GAP SIZE BIT,SETS GAP SIZE
:BLOCK SIZE BIT 0 (BIT #5)
:BLOCK SIZE BIT 1(BIT #6)

(BIT #3)

160100
160200
160300
160400

ADD1:
ADD2:

160100
160200

:BLOCK SIZE BIT 2(BIT #7)

;BASE ADDRESS RH #1
*BASE ADDRESS RH #2

1626
1627
1628

003324
003326

1630
1631
1632
1633
1634
1635

003334
003336
003340
003342
003344
003346

000000
000000
000000
000000
000000
000000

RHBA:
RHMR2:
RHCS2:
RHST:
RHER:
RHAS:

0
0
0
0
0
0

:BUS ADDRESS
TRANSFER CONTROL REGISTER
:CONTROL AND STATUS 2
*TESTER STATUS
:ERROR REGISTER
ATTENTION SUMMARY REG

1637
1638

003352
003354

000000
000000

RHDB:
RHMRT:

0
0

:DATA BUFFER
:DIAGNOSTIC (MAINTENCE) REGISTER

1629

1636

003330

003332

003350

000000

ADD3:
ADD4:
RHCST:
RHWC:

RHTDB:

160300
160400
0

IS 0.4=2.6

TO 5 MICROSECONDS WHEN CLEAR

;RH70 1/0 REGISTERS LOCATED IN RH
003320
003322

:DIAGINOSTIC MODE (BIT #0)
MAINTAINCE CLOCK (BIT #1)
sFORCE ERROR (BIT #2)
s INVERT CONTROL PARITY,CAUSES PARITY TO BE EVEN WHEN SET
s INVERT DATA PARITY,CAUSES DATA PARITY TOBE EVEN WHEN SE
sDISABLE PARITY CHECK,INHIBITS PARITY (HECK ON BOTH C AN
sNO END OF BLOCK,INHIBITS TESTER FROM GENERATING END OF
JWHEN SET DELAYS TRA FROM BEING ASSERTED FOR SOONS (BIT

:18 BIT MODE

s TRANSFER CONTROL REGISTER

1612
1613
1614
1615

:DISSABLE OCCUPY (BIT #8)
:SYNC CLOCK MINIMUM WIDTH ,WHEN SET CHANGES SYNC CLOCK T
:INVERT SYNC CLOCK,WHEN SET INVERTS SYNC CLOCK,NO EFFECT
JENABLE PATTERN SHIFT,W{EN SET CAUSES A 16 OR 18 BIT ROT

10000

1
2
4
10
20
40

PAGE

(#03)

JATTENTION SUMMARY PSEUDO-REGISTER

1601
1602
1603
1604

1624
1625

12=JUL=79

*BASE ADDRESS RH #3
*BASE ADDRESS RH #%
:CONTROL AND STATUS 1
*WORD' COUNT

:TESTER DATA REGISTER

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE P
07=JUN=79 13:44

003356

000000

MACY11 30A(7052)
12-JuL=79
ERROR POINTER TABLE

3
10:46

RHDT:
:
RHBAE

RHCS3:
RHCS1B:

000000
000000
000000
000000

003376
003400

000000
000000

PAGE 34
;DRIVE

SEQ 0033
TYPE REGISTER

;BUS ADDRESS EXTENTION

;CONTROL AND STATUS 3

sHIGH BYTE OF RHCS1

DEVICI:

;ADDRESS OF

REG.

RH #1

DEVICZ:
DEVIC3:

;ADDRESS OF RH #2
;ADDRESS OF RH #3

DEVCNT:

;DEVICE COUNTER
sUSED TO CONSTRUCT REG. ADDRESSES

DEVIC4:

sADDRESS OF RH #4

DEVICS:

;OFF11 WILL BE USED AS A CALCULATION LOCATION

0034902

000000

003404
003406
003410

177742
177744
000000
000000
000000

177740

OFF11:
0
LERADD= 177740
HERADD= 177742
MEMERR= 177744
REGEND: 0
VECADD: 0
RETAIN: 0
e

;REG.

CALCULATION LOCATION
;LOW ERROR ADDRESS REG.
sHIGH ERROR ADDRESS REG
sMEMORY SYSTEM ERROR REG
JREGISTER ENDING ADDRESS

;VECTOR ADDRESS

A AR A AR AR AR A A AN R A AR AR AR AR R AR A AAA A AR AR A A AR AR AR AR

AR AR Rk kkk ok

;REGISTER STORAGE ADDRESSES

003412
003414
003416

000000

AS:
BA:
BAE:
CS1:

(Se:
(S3:

DB:
DR:

DS1:

003442
003444

DT:

000600
000000
000000
000000

ER1:

TC:
TDR:
Ww(:

leleolelolalelololololalolele)

::tttttttttttt*t*tttttttt'tttttttt‘tttttttttii'tttfiittt*tfi*tttfiti

SJATTENTION SUMMARY

:BUS ADDRESS
;BUS ADDRESS EXTENTION
;CONTROL AND STATUS 1
s CONTROL AND STATUS 2

;CONTROL AND STATUS 3
;DATA BUFFER
;DIAGNOSTIC REGISTER

sTESTER STATUS

;DRIVE TYPE
;ERROR REGISTER

s TRANSFER CONTROL

sTESTER DATA REGISTER
;WORD COUNT

::tttt'Q'it.t'tt'.tittifiitttttlt'ti'ttfitifittittt"'tti'i'tttt".t

;BITS AND BIT PATTERNS

::t".tIi*ttttt'tttfittttt'tt'tfi!tfi‘fiti'tttt"fififi'tit!ii.tttt.".t

052525

AB=

000000
000001
000002

TW0=

125252

OAB=
ZERO=
ONE
=

52525
125252
0

JALTERNATE BIT PATTERN
;OPPQSITE ALTERNATE BIT PATTERN
s CONSTANT ZERO

s CONSTANT 2

s CONSTANT 1

;:ttitttfitt.tt.itt'tlltt'i'ttfit.!ttt'ttt.t"‘tttli...'..t'fit.'tt!

sFUNCTION CODES

';Qtt.ifittttit't".ttttt't'.t'"ttttt'..tt"!"ttfi"!"t!t'."tt'

0000017

NOOP=

;NO OPERATION,RESETS GO BIT

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44
1695
1696
1697
1698

MACY11 30A(7052)
12-JUL=79
ERROR PCINTER TABLE

10:46

PAGE 35

SEQ 0034

::'Q'Q'Q?'t'fifiQt'.'!t.'t:"tfitttit..t'...'t.'tlfi"...tt't"'.tQt.

000051

1699

1700
1701

000057

WRCHO=
WRCH1=
WRCHZ2=
WRCH3=
WRCH4=
WRCHS=
WRCH6=

51
52
53
54
55
56
57

s THESE WRCH BITS ARE WRITE/CHECK
;CODES ,IF THE CODE IS AN ODD
sNUMBER THE GO BIT IS INCLUDED
;IF THEY ARE EVEN GO BIT IS NOT INCLUDED

;:.tt*.tt..tit'Qttt.tttttQi'tl'ttl*tttfi*i"t"tit."ii'i'..'i.i't

000071

D snill nll cld

NN\ NNNNNNNNNNNNNY
~N VN
rnororo
NS WN=OY oo
o PANV=2OVONC

asl adh

000072
000073
000074
000075
000076
000077

;READ CODES

READ2=
READ3=
READ4=
READS=
READ6=

73
74
75
76
77

;THE GO BIT IS INCLUDED

READ1=

il il il
sl el

000061
000062
000063
000064

i il il

000065
000066
000067

THE

CODE

IS AN ODD NUMBER

WRITEO=
WRITE1=
WRITE2=
WRITE3=
WRITE4=
WRITES=
WRITE6=

61
62
63
64
65
66
67

;WRITE CODES
;1F THE CODE IS AN ODD NUMBER
;THE GO BIT IS INCLUDED
SIF IT IS EVEN THE GO BIT
;IS NOT INCLUDED

000011

DRCLR=

sCLEARS ALL ERROR BITS

IN THE DRIVE

JAND SETS THE DRIVE READY BIT

:;ttttt'tfitttttfitttttttttttQtttttfi*ttfittt'.t*t.lfit.t*it'tt.tt'."

000031

il il il S

SEARCH= 31

sSETS A ONE SHOT WHICH SETS
;ATA AFTER 100USEC + OR MINUS 20%

:;ttttfit"ttfittttttttkttttttii*itittfl'tlttttittitttt'ttt'tttfifitt.

;WATBIT STORAGE LOCATIONS

003446
003450
003452

000000
000000
000000

BITCNT: 0
LOOCNT: 0
PASS:

;PASS COUNT FOR THE

LARGE

TRANSFER

sTHIS IS WHERE THE TEST NUMBER IS STORED JUST
JBEFORE IT IS PRINTED OUT....ccvevnnnn sesesss

~N
H

1750

;BIT COUNTER
sLOOP CPUNT

::ltttttttfit'**fittt*tit*tti!fiittttttt.titt!lttt.tt'ttlttttttt't"

il cnlh

el el

NN NN
N NONN
(o NV,] S ANN-2O0V00~N

:;'i'tittt!tt*t'ttfitttttttiifitttiifitt*ttttt"'ittt.tt.tt.!t'ttttt

b il
-

;IF

::t**tttttt*tttt't*fitttttt.titfitttttittt.titttttfi'tfi*t'ttitttti!t

1747
1748
-

::*t*tttt*t.ttt'ttttt*fi'ttttt"!tttt'*'.ttt*fiifitktfi.t!tfiittt'tttt

il il

D il sl il il cacly D

READO=

;:tttfitt'tRttttittfitttQtt*tttt'ttttitfittfit‘ttlt'ttt"t-.t.ttt"'.

003454
003456
003460

000000
000000
000000

TSTNM:
OFFSET:
HEDDAD:

0
0
0

;TEST NO. STORAGE
;OFFSET FOR ERRCR HEADER
sUSE TO FIND HEADER ERROR MESSAGE

::tt'iil‘ttit'ti.ttQtt*"'titlitfi.t'tittfitttt'..tti.'."t.tt."It

s THESE ARE

THE

READ WRITE BUFFERS

::ittttl."t'.ttt't."ttl"*tt't'tfit."t.ittt.tt".".'tt".'tt.i

TEST

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761

};g%

004000
004002
004100
004102
004104
004106
004110
004112
004114

004116

004000
000000
000000
004100
000000
000000
000000

.=4000
EVENAD:
ODDAD:
.=4100
RBUF:
RBUF1:
RBUF2:

000000
000000
000000
000000

RBUF3:
RBUF4:
RBUFS:
RBUF6:

000000

RBUF7:

1761,
1766

PAGE

:EVEN ADDRESS
:0DD ADDRESS

0
0
0
0
0
0
0

THESE ARE FOR THE CLEARS TEST

;.-Ittt.!Qt'ttttttttqtttttttttttttttttttttQtttt.tttttttt.ttttttt.t

004120

004122

000600

177777

MINUS:

1771
1772
1773
1774
1775
1776

004124
004126
004130
004132
004134
004136

000000
000000
000000
000000
000000
000000

$CS1:
$CS2:
$CS3:
$ST:
$ER:
$RHBA:

0
O
0
0
0
0

1777
1778

10:46

0
0

1768

};93

::ttttttl'ttttttttttt*ttttttt.ttttt.ttttt.tttttttttttt.tttt'ittt.

1765

1767

MACY11 30A(7052)
12=JUL=79
ERROR POINTER TABLE

004140
004142

000000
000000

BEFORE: 0

$RHDR:
$RHW(:

SEQ 0035
y

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE P11
07=JUN=79 13:44

DDA D
D
D

004144
004146
004150
004152

BEGIN:

004546
000074
000774

003404
003406

D
D

START:
.SBTTL

PAGE 37

SEQ 0036

000750

072610
000340
074264
000340
075014
000340
073060
000340
001212
001214
000001
004332
004340

013746
012737
012737
012737
022777
001012

000004
004406

000403
012716
000002
012737
012737
012637
005700

177570
177570
177777

004414
000176
000174
000004

;GET SKIP FLAG READY

RO
START:

;SET SKIP FLAG
GO TO START

RO
$REGS
$REGS

:GET SKIP FLAG READY
sCLR ALTERNATE START FLAG
:SET FOR ALTERNATE START

START

;START PROGRAM

;GET RO READY

RO
A#TST1
#74 ,Q4REGEND
#774 ,a4VECADD
RO

AR AR R RN

;7O BE COMPL IMENTED
JENTER DIAG. FOR NEXT PASS

R AR R AR AR AR

;CLEAR THE SKIP FLAG

AR R AR AR RRRARRRRRRRARAR

AR AR

INITIALIZE THE COMMON TAGS

MOV
CLR
CMP
BNE
MOV

001140

012737
012737
012737
012737
012737
012737
012737
012737
005037
005037
112737
012737
012737

‘RO

;;CLEAR THE COMMON TAGS ($CMTAG) ARECA

001100

NO VNS WN=O

COM
JMP
BEGIN1: MOV
MOV
CLR
IR

b e

COM
BR

BEGINZ: CLR

D D

(LR

BEGIN3: CLR
CLR
COM

)
—d

e
e
Db Db b
b
N

'y
e
R
S
S
R
e
Do
e

00 00 Co 0o 0o Co 0o Co 0o 00 Co

1821

10:46

:.'tt.ttttt'tt"'itttt't.'Qtt!ifit.fifiitfi*'ifi'tt..lt.tltttt"'Qt't..

NISNNNNSN

588 FORORSSISNNIRL 53 3IZIFAR

1779
1780
1781

MACY11 30A(7052)
12=JUL=79
ERROR POINTER TABLE

000020
000022
000030

#$CMTAG,R6
s sFIRST LOCATICM TO BE CLEARED
(R6) +
;:CLEAR MEMORY LOCATION
#SWR ,R6 ; ;DONE?
.~6
;:LO0P BACK IF NO
A#STACK,SP
;:SETUP THE STACK POINTER

;;INITIALIZE A FEW VECTORS
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOvB
MOV
MOV

#$SCOPE ,a#IOTVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,a410TVEC+2 ;:LEVEL 7
#SERROR,4EMTVE :;EMT VECTOR FOR ERROR ROUTINE
#340,QMEMTVEC+2 ;:LEVEL 7
#STRAP,@#TRAPVEC : : TRAP VECTOR FOR TRAP CALLS
#340,#TRAPVEC+2; LEVEL 7
#SPWRDN, @#PWRVEC” ; ;POWER_FAILURE VECTOR
#340, Q4PWRVEC+2 ;:LEVEL 7
$TIMES
;i INITIALIZE NUHBER OF ITERATIONS
$ESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
;;ALLOW ONE ERROR PER TEST
#..,SLPADR
s:INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,8LPERR
:.SETUP THE ERROR LOOP ADDRESS
;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

;;EQUAL TO A '-1"", SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV
a#ERRVEC ,~(SP)
;. SAVE ERROR VECTOR
MOV
#64$ ,a#ERRVEC
:SET UP ERROR VECTOR
MOV
#DSWR, SWR
;:SETUP FOR A HARDWARE SWICH REGISTER
MOV
CMP

#DDISP,DISPLAY
#-1,aSWR

;:AND A HARDWARE DISPLAY REGISTER

668

;2 TRY TO RERERENCE HARDWARE SWR
:;BRANCH IF NO TIMEOUT TRAP OCCURRED

,
64%:

BR
Moy

65%
#658$, (SP)

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

658:

MOV

#SWREG,
SWR

::POINT TO SOF TWARE SWR

66$:

MOV

(SP) +,a#ERRVE(

: ;RESTORE ERROR VECTOR

BNE

MOV

IST

#D]SPREG,DISPLAY

;:AND

THE HARDWARE SWR IS NOT = =1

:WAS

A RESTART

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE .P11
1835
1836
1837
1838
1839
1840
1841

1842
1843
1844
1845
1846

MACY11 30A(7052)
12=JUL=79
INITIALIZE THE COMMON TAGS

07=JUN=79 13:44

004436
004440
004444

100443
104401
000427

(04524
004524
004530

104401
000406

BM]

004446

vivvoavvornoa
oo

CONONWVISWN =000

il
il cul
b anld
lh
ol
-

REREE

SEQ 0037

:YES,SKIP TYPING

;s TYPE ASCIZ STRING

*GET OVER THE ASCIZ

<15><12>/RH 11 AND 701 O AND CONTROLLER DIAGNOSTIC/

TYPE

7os

é9%

JASCIZ

::TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

<15><12>/CZRHB=D
/

AROUND:
. t't*tttttttttttttttt*.ttitttttttt*tttttt*tttttttt!tttt*tt"tt't

1847

1859

LASCIZ

66;05:

004546
004546

685

004532

10:46 PAGE 38

AROUND

TYPE

é}%SS:

SATFST

THIS IS THE RH ADRESS DECODE TEST
;*THIS PROGRAM WILL ALLOW THE OPERATOR TO SAY
:*WHICH RH IS ON THE BUS AND WHAT ITS BASE

s*ADDRESS IS.
THE RH IS THEN TESTED FOR A
s *RESPONSE AND CHECKED FOR A TESTER BEING
s *CONNECTED.

R TM

004550
004556
004564
004570
004576
004604

012737
012737
012706
012737
012737
012737

000001
047200
000750
000340
046746
000340

004620

000137

006552

004626

005737

001174

004634
004640
004644
004650
004654

000137
000137
005037
104401
000416

004644
005066
001174
004656

004712
004714
004720
004724

104410
012637
104401
000415

004760
004762
00476€
004772

104410
012637
104401
000426

005050
005052
005056
005062

104410
012637
006137
000137

001212
000114

TST1:

#1,8TIMES
#PARITY ,a#114

MOV

#340,a4116

MOV

000116
0C0004
00006

TST
BEQ

TST
BEQ
JMP
SLEUTH: JMP
KONG:
(LR
TYPE

LASCIZ

RDOCT

003406
004774

MOV
TYPE
gég9$:

LASCIZ

RDOCT
MOV
ROL

JMP

;CLEAR SKIP FLAG
;GET OUT OF TEST
;GET R1 READY

:SKIP TYPOUT ?
:NO

;IS IT AN ALTERNATE START
:NO
sYES DO ALTERNATE SETUP
;DO REGULAR SETUP
JRESET ALT. START FLAG
.,TYPE ASCIZ STRING

64$
:GET OVER THE ASCIZ
<15><12>/TYPE BASE ADDRESS FOR RH /

RDOCT

ég%?S:

RO
a#TST2
R1

$REGS
SLEUTH
KONG
AD1ERR
$REGS
,65%

BR
LASCIZ

TYPE

;SET UP TIMEOUT
sSETUP PRIORTY

RO
SKIPIN

CLR
JMP
SKIPIN: CLR

MoV

ITERATION

#340,Q#ERRVEC+2

#TIEOUT ,@#ERRVEC

MOV

003366
004726

;:D0 1

#STACK,SP

MOV

éigss:

003404
003404
005402

SCOPE
MOV
MOV

{(SP)+,DEVIC1

678

66%

:GET BASE ADDRESS

..TYPE ASCIZ STRING

;GET OVER THE ASCIZ

<15><12>/TYPE RH VECTOR ADDRESS

(SP) +,VECADD
,69%

688

;GET VECTOR ADDRESS
..TYPE ASCIZ STRING

;GET OVER THE ASCIZ

<15><12>/HOW MANY REGISTERS ARE
(SP) + ,REGEND

REGEND

YOU JUMPERED FOR /

;GET NUMBER OF REG

sMULT BY 2

;GO CREATE ADDRESSES

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

013737
012737
005777
013737

??CY11 30A(71052)

003366
000004

AD1ERR: MOV
MoV
TST
MOV
MOV

003370
000004

TST
MOV

NOV

WN=O

000004

004644

#AD4ERR ,ERRVEC

DEVIC2

AD3ERR:

DEVIC3

#TIEOUT ,ERRVEC

(SP)+,(SP)+

RESTAR

AD4ERR:

DEVICS

#TIEOUT ,ERRVEC

(SP)+,(SP)+

RESTAR

ake2
GIG1
$EOP
#160100,DEVICT
SA200

GIG1:

KONG

SA200:

005302

@ADD?2

ADD2,DEVIC2
#AD3
,ERR
ERRVE C
@ADD3
ADD3,DEVIC3

#TIEOUT ,ERRVEC
(SP)+,(SP)+
RESTAR

GIGO:

003366

ADD1,DEVIC1

#AD2ERR, ERRVE
(

ADD4 ,DEVICé
#TI1EOUT ,ERRVEC
RESTAR

AD2ERR:

,65%
64%

;:65%:

003366
001103

(SP)+,DEVIC1
$ERFLG

003366
005260
003366

104401
000420

046152

005442

003400
003410

Gil:

DEVIC1,DEVICS

#GIGO,RETAIN

GI1GO4
a6

GIGO1:

GIG2:

SEQ 0038

;SETUP DEVICE 1

;FOR _TIMEOUT

IESTHERE A DEVICE
:FOR_TIMEOUT

;1S THERE A DEVICE

:YES
sFOR _TIMEOUT

IESTHERE A DEVICE

:REPLACE
;TEST DEVICES

TIMEOUT

sNO DEVICE 2
sREPLACE TIMEOUT
sCORRECT STACK
sTEST DEVICES
;NO DEVICE 3
sREPLACE TIMEOUT
sCORRECT STACK
sTEST DEVICES
sNO DEVICE 4
sREPLACE TIMEOUT

sCORRECT STACK
s TEST DEVICES
*S THERE A MONITOR

;YES EXIT

ARE WE HERE AFTER 210

;NO, 200

:GET NEW ADDRESS FOR 210
,,TYPE ASCIZ

STRING

;GET BASE ADDRESS FOR RH1

sARE WE HERE BECAUSE OF AN ADDRESS ERROR
sNO,GET READY FOR NEXT ADDRESS
IS IT A ZERO

NEED FIRST ADDRESS
;DID HE CORRECT WITH A O

GO1:

001402
000137

005260
003366
005246
006146
000042

PAGE 39

;GET OVER THE ASCIZ
<15><12>/TYPE BASE ADDRESS FOR RH #1 /

64%:

anh ald
i
il

il
wilh
i

cld and
e

) wnd

e
and cnld

006054
003372
046746

160100

000004

006054
000042

0000
O
Y
NS VNN

046746

046152

10:46

aADD4

003374
000004

006054
003374
046746

THIS IS THE RH ADRESS DECODE TEST

003372
000004

1904

12=JUL=79

GIG2

$EOP
TYPE

BR
LASCIZ

:GET BASE FOR RH # 2
JNEED ADDRESS
sGET READY TO CREATE REG. ADDRESS
;sSAVE RETURN ADDRESS
sCONSTRUCT REGISTER ADDRESSES
;1S THER A MONITOR

;NO

JEXIT

,,IYPE ASCIZ STRING
,65%
64%
:GET OVER THE ASCIZ
<15><12>/7YPE BASE ADDRESS FOR RH #¢ /

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE.P11
07=JUN=79 13:44
1947

1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964

1965

1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

2000
2001
2002

005502

005504
005510
005514
005516
005522
005526
005530
005534
005536
005542
005550
005556
005562
005566
005570
005574
005574

005600

005642
005642
005644
005650
005654
005656
005662
005664
005670
005674
005676
005702
005710
005716
005722
005726
005730
005734
005734
005740
006002
006002
006004
006010
006014
006016
006022
006024
006030
006034
006042
006050
006054

006062
006070

104410

012637
105737
001405
005737
001007
000137
005737
001012
000137
013737
012737
000137
005737
001402
000137
104401

000420
104410
012637
105737
001405

005737
007C07
000137
005737
001012
000137
013737
012737
000137
005737
001402
000137
104401
000420

104410
012637
105737
001405
005737
001004
000137
000137
013737
012737
000137

013737
012737
104401

MACY11
T

RDOCT

003370
001103

003370
045374
003370
006054
003370
005422
006146
000042

GO2:

003400
003410

GI2:
G1G02:

(46152

G1G3:

005602

;;658:
648

003372
001103
003372

045374
003372
006054
003372
005562
006146
000042

‘

003400
003410

Go3:
GI3:
GIGO3:

046152
:
005742

GIG4:

;;658:
64s:

:
003374
001103

003374
045374
006054
003374
005722
006146
003366

005246
006076

003400
003410

GO4:
Gl4:

30A(7052)
12-JuL=79
10:46 PAGE 40
THIS 1S THE RH ADRESS DECODE TEST
MOV
1STB
BEQ
TST
BNE
JMP
TST
BNE
JMP
MOV
MOV
P
TST
BEQ
JMP
IYPE

LASCIZ

RDOCT
MOV
TSTB
BEQ

(SP)+,DEVIC2
SERFLG
GO2
DEVIC2
612
RESTAT
DEVIC2
61602
RESTAR
DEVIC2,DEVICS
#GIGOT.RETAIN
GIGO4
awi2
GIG3
SEOP
658

648

:GET VALUE

:SAVE ADDRESS
:ARE WE HERE BECAUSE OF ERROR
:NO
(IS 1T 0
:NO
:SET UP FOR RH #1
(IS 1T 0
:NO,GET NEXT ADDRESS
:CREATE ADDRESS FOR RHA'1
:GET READY TO CREATE
:SAVE RETURN ADDRESS
:CREATE REG. ADDRESSES
;1S THERE A MONITOR
:NO
GEXIT
::TYPE ASCIZ STRING

:GET OVER THE ASCIZ

<15><12>/TYPE BASE ADDRESS FOR RH #3 /

TST
BNE
JMP
TST
BNE
JMP
MOV
MOV
JMP
TST
BEQ
JM

(SP)+,DEVIC3
SERFLG
GO3
DEViC3
GI3
RESTAT
DEVIC3
61603
RESTAR
DEVIC3.DEVICS
#GIGO2,RETAIN
GIGO4
awi2
GIG4
SEOP

TYPE
BR
LASCIZ

658
;i TYPE ASCIZ STRING
64%
:GET OVER THE ASCIZ
<15><12>/TYPE BASE ADDRESS FOR RH #4 /

RDOCT
MOV
TSTB
BEQ
TST
BNE
JMP
JMP
MOV
MOV
JMP

RESTAR: MOV
MOV
TYPE

(SP)+,DEVIC4
SERFLG
GO4
DEVIC4
Gl4
RESTAT
RESTAR
. DEVIC4,DEVICS
#GIGO3,RETAIN
GIGD4

DEVICT,DEVICS
#GIGO,RETAIN
65%

:SAVE ADDRESS
:ARE WE HERE DO TO ERROR
NO

(IS 1T 0
:NO
:RESTART PASS
(IS IT O
:GET NEXT ADDRESS
:CREATE RHA1 ADDRESSES
:SETUP TO CREATE ADDRESS

:SAVE RETURN ADDRESS
:CREATE ADDRESSES
:1S THERE A MONITOR
:NO
ZEXIT

:SAVE ADDRESS
;ARE WE HERE BECAUSE OF ERROR
NO
;1S 1T 0
:NO
RESTART PASS
:GO SET UP REG. ADDRESSES
:GET READY TO CREATE REG. ADDRESSES
:STORE RETURN ADDRESS
:GO_CREATE ADDRESSES

:GET READY TO CREATE REG. ADDRESSES
:SAVE RETURN ADDRESS
::TYPE ASCIZ STRING

SEQ 0039

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

2004
2005
2006
2007
2008
2009
2070
2011
2012
2013
2014
2015

006074
006140
006140
006144
006146
006154

000421

013746

104402

003366

003400
003330
003402
000002
003360

€4%

MOV

DEVIC1,=(SP)

MOV
MOV
MOV

DEVICS,a#0FF11
#RHCS1,R2
a#OFF11,(R2)+

CMP
BEQ
BR
MOV
ADD

#RHBAE ,R2
3%
4%
DEVICS,a#0FF
11
REGEND ,@#0FF 11

175032
000040

006340
000007

003402

003402
003402
003360
003402
003362
003364

175046

175014

104401

006414

TST

cMP

BEQ

JMP

CMPB
BEQ
ERROR
JMP

ERROR

RHTEST:

JMP
MOV

BEQ

MOV
MOV

000004

174760
RH11BA:

22658

64%:

006546
000004
006474
000117

RHCS1,RHCS1B
RHCS18B

TST
BR
ADDERR: CMP
MOV

000004

MoV
INC

MOV

1%:

000004

174672

#TWO,a#0FF11

a#0F
11 ,RHBAE
F
#2 ,a40FF
11

TSTADD: MOV
MOV

SEQ 0040

;GET OVER THE ASCIZ

<15><12>/TESTING RH #1 AT BASE ADDRESS /

MoV
ADD

MOov

2%:

175036

012637

3%:

ERROR

000004

012777

ADD

175052

006340

000004
006540
000117

TYPOC

003402

000004

005001
000137
013746
012737
012777

LASCIZ

003400
003404

000413

8 4
12=JUL=79
10:46
PAGE 41
THIS IS THE RH ADRESS DE CODE TEST

MACY11 30A(7052)

a#0FF
11 ,RHCS3

a#ERRVEC,-(SP)
#ADDERR ,@#ERRVE C

#7 ,aRH(CS2

aRH(CS1

?gO.QRHDY

ADDERR+2

#7 ,aRHMR2
2%
71
ADDERR+2

(SP)
+
RHTEST
(SP)+,(SP)
+
(SP) + ,@#ERRVEC

;s SAVE DEVIC1 FOR TYPEOUT
::GO TYPE-=OCTAL ASCII(ALL DIGITS)
sSETUP FOR ADDRESSES

;SET UP WHERE TO PUT THEM
:SETUP ADDRESS
sSETUP NEXT ADDRESS
;ARE ALL ADDRESSES SET UP
;1S INFORMATION CORRECT?
;NO SETUP NEW ADDRESS
sWITH CORRECT ADDRESS

:SETUP RHCS3 ADDRESS
;WITH CORRECT ADDRESS
sSETUP RHCS1B WITH
sHIGH BYTE ADDRESS OF RH(CS1
sSAVE TIOUT VALUE
sSETUP NEW TIOUT VALUE
sSETUP UNIT NO.
;WILL RH RESPOND
;IS A TESTER THERE

sYES

,CONTINUE

sTESTER IS NOT CONNECTED
;BAD ADDRESS
:1S THERE ALSO A 7 FOR UNIT NO.
;YES, CONT INUE
;BAD ADDRESS

sCORRECT STACK

sYES AN RH IS THERE

sCORRECT STACK
sREPLACE OLD TIOUT VALUE

RH DID NOT RESPOND

RH70TT

JYES,LETS MAKE

aRETAIN
é?P)*.Q#ERRVEC
a#ERRVEC,=(SP)
#RH11, B4ERRVE

;GET CORRECT BASE ADDRESS
sREPLACE TIEOUT VALUE
;IS IT A 70

;CHECK FOR_AN RH11

#1PCKO: IPCK1!IP
IPCK3
CK2! IE3,aRHCS3

MOV

(SP)+,Q#ERRVE(

TYPE

LASCIZ

CLR
JMP
RH70TT: MOV
MOV
MOV

,65%

64%

SURE

:SAVE TIME OUT VALUE

MOV

;SET ALL BITS IN RHCS3

:REPLACE TIMEOUT
s TYPE ASCIZ STRING

:GET OVER THE ASCIZ

<15><12>/TEST1NG FOR AN RH70/

R1
;SET UP RH70 FLAG
RH11+6
JEXIT
Q#ERRVEC,=(SP)
s SAVE LOCATION 4
#FAKE70,a#ERRVE
(
:REPLACE ALDRESS
#1PCKO!IPCKT!IPCK2!IPCK3!1E3,QRHCS3

;SET ALL BITS

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

2059
2060
2067
2062
2063
2064
2065

006470
006474
006476
006502
006504
006506
006512

2067
2068
2069
2070
2071

006536
006536
006540
006542
006546

2066

2072

000137
022626
012637
005001
005101
104401
000411
000403
022626
012637
004737

MACV11
T

006542

JMP
FAKE70: (MP
MOV
RH70BA: CLR
COoM
TYPE
BR

000004
006514
¥

;:658:

ERR1

2077

SEQ 0041

JEXIT TEST
;CORRECT STACK
sCORRECT TIMEOUT
:GET FLAG READY
;SET FOR RH11
,,TYPE ASCIZ STRING
sGET OVER THE ASCIZ

<15><12>/TESTING AN RH11/

ERR1
(SP)+,(SP)+
(SP) + ,a#ERRVEC
R7 ,ERRTST

;CORRECT STACK POINTER
JREPLACE TIMEOUT VALUE

A AR R AP AR RRRRRARRRRKRAARAAAAAA RN AR AR AR AR R AR

CLEAR TEST
;s*THIS TEST CHECKS THAT ALL
;'ERROR BITS ARE CLEARED AFTER
INTO

.'tttttttttti'tttttttttttttfittttttt*ttttfittttttttttttttttttttt.tt

006552
006554
006562
006566

000004
012737
005037
005137

000001
001210
001210

001212

2088

006572

012777

000040

174540

2090
2091

0066C6
006614

122777
001107

000007

174522

TST2:

SCOPE
MOV
#1,8TIMES
2:D0 1 ITERATION
CLR
$TMPS
;GET READY TO
CoM
$TMPS
sSET UP FOR JSR ROUTINE
AR AR AR AR AR AN A RR AR A RR AR ARR AR AR RARAARRRRAR AR AR AR KRR
;s*THIS TEST IS ALSO ENTERED AT THE LABLE CLEER
;s*AT THE END OF ALL THE ERROR BIT TESTS TO SEE
s*THAT A CLEAR WILL CLEAR THE ERROR BIT SET

2087

ttttt*tttttttttt*tttfit'ttttttttt.tttttttttttttt'tttttttttttttt'

006600

012777

2093
2094
2095

2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
S}}E

S*RMHCSE REGISTER....cccecoeccees

2079
2080
2081
2082
2083
2084
2085
2086

2097

;*THE CLEAR BIT WAS LOADED

;

2078

2096

AR AR AR

*TEST 2

2076

2092

BR
CMP
MOV
JSR

RH11:

000004
050210

RH11+2
(SP)+,(SP)+
(SP)+ ,a#ERRVEC
R1
R1
,65%
€48

ASCIZ

64%:

2073
2074
2075

2089

30A(7052)
12=JUL=79
10:46
PAGE 42
THIS IS THE RH ADRESS DECODE TEST

000007

174532

CLEER

006616

100417
005737
001406
033777
001410
000137
032777

006652
006654
006660

001412
000137
005737
001405
033777
001070
000404
032777
0010¢3

006666
006674
006676
006700
006706

#CLR,aRH(CS2

sTELL

CMPB
BNE

#7,aRHMR2
1%

sHAS DEVICE BEEN SET TO 7
sNO,FIND WHAT BIT WAS NOT SET

MOV

#7 . RHCS?2

R AR AR AR R AR AR AR A AR A AR KRR

IT TO CLEAR

:SETJP UNIT NO.

RARRNRNARRARRAR ARSI AR AR AR AR

R AR

;*THE TEST IS ENTERED HERE IF THE ERROR BIT BEING
;*FORCED SET DID NOT SET TO SEE IF ANY OTHER ERROR
Bl BID: L iknsnindnnnais

. ttt*tttttttttt'tttttttttt'ttttttttttttttttttttiiltttttttttttttt

005701

006620
006622
006626
006630
006636
006640
006644

MOV

12%:
004122

004130

174524

007174
174000

174510

007174
004122

14%:

15%:

004124

174434

160000

174422

5%:

TST

BM]
TST
BEQ
BIT
BEQ
JMP
BIT

BEOQ
JMP
TST
BEQ
BIT
BNE
BR
BIT
BNE

;IS IT AN 11 OR A 70

15%
SIT'S A 70
BEFORE
;ARE WE HERE FOR SHORTS
14%
sNO
SCSS aRH(CS3
JANY EXTRA ERROR BITS
15%
:NO
13%
;WE FOUND AN ERROR
#WCELO! wCEHI'DPELO‘DPEHI'APE aRH(S3
TEST ERROR BITS
5%
*NO ERROR BITS SET
13%
.GO REPORT ERROR BITS
BEFORE
JARE WE HERE FOR SHORTS
5%
.
sNO
$CS1,aRHCST
:YES SEE IF THERE ARE ANY
%
*NONE ~F OUND
16%
;GO CHECK THE NEXT ONE
#TRE !SC !MCPE ,aRH(CST
ANY ERROR BITS SET IN (S1
2%
IYES,FIND THEM

S W =00V~ wi

—
) nd

i D -

POV
NI NN NN Nn

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE P11
07=JUN=-79 13:44

006710
006714
006716
006724
006726
006730

005737
001405
033777
001065
000404
032777

006736
006740

001060
005737
001405
033777
001076
000404
032777
001071
005737
001405
033777
001046
000404
032777

007006
007010

007016
007020
007024
007026
007032
007034

001041

005737

001501
005037
000477

004737
017737
104071

MACY11
T2

004122

16%:

004126

174414

177400

174402

004122

6%:
179:

004132

174366

140000

174354

004122

7%:

18%:

004134

174340

030175

174326

001210

8%:
19%:

001210
050034
174274

004100

1%:

046362
047714
174242

004100

2%:

007112
007114
007120
007122
007126
007134
007136
007142
007146
007150
007152
007156
007164

007166

007172
007174
007200

174230

004100

047764
174212

004100

174160

174156

TST

BEQ
BIT
BNE
BR
BIT
BNE

TST
BEQ
CLR
BR

JSR

MOV

ERROR
'SR
BR
JSR

MOV

004100

%
$(S2,aRHCS2
3
17%

SEQ 0042

;zgs WE HERE FOR SHORTS

*ANY SHORTS
*YES

“NO, CONT INUE

#MPE ! MXF ! PGE 'NEM!NED ' UPE 'WCE IDLT,aRHCS2
38

BEF ORE

JARE ANY ERROR BITS SET
JYES

_FIND

THEM

:figf WE HERE FOR SHORTS-

7%
;
$ST,aRHST
9%
18%
#ERR 'ATA,@RHST
9%

JYES
2 CONT INUE

8$
$ER, ARHER
4$
19

JYES ,SEE IF THER ARE
;WE FOUND SOME

BEF ORE

IN (S2

;ANY SHORTS

;JARE ANY ERROR BITS SET

JYES ,GO FIND THEM

IN ER1

:ng WE HERE FOR SHORTS
ANY

; CONT INUE

#ILF !RMR ! CPE ! DPE 'RMBEX 'RFAIL 'DTE ' OP1,@RHER
4$

- $TMPS
LEAVE

$TMPS
ERR2

R7 ,FOUND

SRHCS2, RBUF

71
R7 ,WATBIT
128
R7,FINDIT

ARHCS1,RBUF

;15 1T BEING USED AS A SUBROUTINE
;SETUP SUB ROUTINE FLAG

;WAS THERE ANY ERRORS

;DEVICE NO. ERROR
sGET CONTENTS
;DEVICE NO. NOT =7
FIND BIT NOT SET
sTEST REST OF ERROR BITS

JRHCS1

IN ERROR

sGET CONTENTS
;ERROR BIT SET IN (S1
;WHAT BIT IS SET
sTEST REST OF REGISTERS
;ERROR IN RH(CSZ
sGET CONTENTS
;BIT SET IN CS2
T BIT
JTELL
sCONTINUE TEST
RHER HAS A BIT SET
sGET CONTENTS

ERROR
JSR

74
R7,WATBIT

;ER1 HAS AN ERROR BIT SET
sTELL WHAT BIT
:égslf BEING USED AS A SUBROUT INE

MOV

72
R7,WATBIT
16$
R7,LOOKFO

:ANY ERRORS IN RHER REG.
:YES,GO FIND THEM

4%:

MOV

TST
BEQ

004100

BEF ORE

PAGE 43

73
R7 ,WATBIT
17$
R7 ,LOOKED

ARHCS2, RBUF

SRHER
, RBUF

$TMPS
LEAVE

9%:

BR
JSR

ERR2
R7,F IND

;WAS THERE ANY ERRORS
;RHST HAS AN ERROR BIT SET

75
R7,WATBIT
18§
R7,CS3ERR

sERROR IN RHST

13%:

ERROR
JSR
BR
JSR

046362
050060

TST

BEQ
BIT
BNE
BR
BIT
BNE

10:46

ERROR
JSR
BR
JSR

046362
001210
050010

BNE

35:

046362
017737
104074
004737
005737
001430
000430
004737
017737
104075
004737
000676
004737
017737

TST

BEQ
BIT
BNE
BR
BIT

ERROR
JSR
BR
JSR

046362
047740

‘

30A(7052)
12=JUL=79
CLEAR TEST

MOV

ARHST
, RBUF

SRHCS3, RBUF

;GET CONTENTS

sTELL WHAT BIT

sCONTINUE

TEST

;GET REG.

CONTENTS

sCLEAR UNWANTED BITS

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

2171
2172
2173
2174
2175
2176
2177

007206
007210
007214
007220
007224
007230
007232

104176

¢3CY11

30A(7052)
12-JuUL=79
CLEAR TEST

ERROR

046362
006660
006616
007220

WHYFO:

050210

ERR2:

LEAVE:

000004
012777
012777
017737
022737
001401
104034

004737

000040 174072
000007
174076

000040

, =4

*FIND ERROR BITS SET

STELL WHAT BITS

*START JSR WHYFO

R7,ERRTST

:GO BACK TO PROGRAM THAT SENT YOU HERE

:;tttttt!t.tttttttttttttit‘ttttttttttt.tttttttttittttt"fittt'tt.t

S*TEST 3

007236
007240
007246
007254
007262
007270
007272
067274

“CONT CHECK

12%

JSR

SEQ 0043

15$

IMP

RTS

PAGE 44

;RJcss HAS AN ERROR BIT SET

R7.WATBIT

JMP

4
10:46

176

JSR

JMP

TST3:

RS2

SCOPE

MOV

#CLR,aRHCS?2

MOV

aRHDT, SREG4

MOV

001172
001172

CMP
BEQ
ERROR
JSR

ERR4:

THE TESTER IS CONNECTED

;*THIS TEST SEES IfF THE DEVICE CODE IS
;*A 40 TO SAY AN RH SiMULATOR 1S ATTACHED

LSRR

174064

050210

THIS TEST SEES IF

#7 ,dRHCS2

32232322223232222222223

;CLEAR TESTER
JUNIT SEVEN
;GET DRIVE

#40,$REG4
ERR4
34
R7 ,ERRTST

TYPE

;IS IT THE TESTER
;WAS
THERE AN ERROR
sTESTER NOT CONNECTED
:

DIRAERKAAR
AR
KRR
IR ARRRAAA
KRR ARRRAAARRARRNAAA
AR AR RRR R AR
®

s*TEST 4
s*THIS

007300
007302
007310
007316
007324

007326
007334

000004
012737
012777
022777
001056
012777
017737
017737
017737
005701
001406
005037

000001
177777
177777
000040
173770
173764
173760

003416
003424
007412
173756
173752
173722
173716
173712
173710
173670
173656

001212
174014
174006
174004

003420

SRRt

1ST4:

SCOPE

HERE:

BNE
MOV

WCERR1
#CLR,aRH(CS?2

sNO,ALL BITS DID NOT SET
sTELL DEVICE TO CLEAR

MOV
Mov
TST

aRHWC ,W(
ARHBA ,BA
‘R1

sSAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11

BEQ
.CLR

adRH(CS2,(S2

MOV
MOV
MOV

.
WCERRT:

001162
003444

MOV

ITERATION
sMAKE WC NEGITIVE

;WAS IT LOADED CORRECTLY

a@RHCS1,CS1

MOV

MoV

;:D0 1

#=1,3aRHWC

87%
BAE
CS3
86%
aRHBAE ,BAE

CLR
JMP

86%:

SAME

d 222222322323
2233 222222

#1,8TIMES
#=1,aRHWC

MOV

87%:

THE

IS GIVEN

MOV
MOV

CMP

003414

007576
173644°
177777
173630

;*THE WORD COUNT REGISTER REMAINS

LA R

03444

003416
003424
003422
003432
003436
003442
003440

WC CLEAR TEST
TEST WILL SEE THAT WHEN A CLEAR

s SAVE RHCS1

:NO IT'S A 70
:CLEAR BAE

;CLEAR (S3
- CONT INUE

sSAVE BUS ADDRESS EXTENSION

aRH(CS3,CS3

;SAVE RH(CS3

sSAVE (S2

aRHST,DS1
aRHER,ER1
aRHTDB, TDR

s SAVE TESTER STATUS
s SAVE ERROR REGISTER
sSAVE TESTER DATA REC.

BEQ

WCERR?2

sYES,CLEAR SHOULD NOT CLEAR WC

TST
BEQ

aRHW(
1%

:DID ANY BITS LOAD
*NO

MoV
TST
JMP

MOV
MOV

ERROR

ARHMRZ, TC
aRHW(

:SAVE MR2 TESTER REG.
;DID IT CLEAR

a#DOIT

#-1,3REGO
aRHWC , W(

;GO TO NEXT CHECK

A
sSAVE WHAT WC SHOULD HAVE BEEN
s SAVE CONTENTS OF wC

:ALL BITS DID NCT SET

2227
2228

2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239

2240

007506
007514

007520
007524
007532
007540
007542
007546
007554
007562
007570
007572
007576

007602

013737
004737

000137
013737
017737
104043
000137
012737
017737
013737
104044
004737
004737

004737

003444
046362

001200

007326
177777
173574

001162
003444

007576
177777
173552
003444

001162
003444
001200

046362
006572
050210

MACY11
T4

‘¥

30A(7052)
12=JUL=79
WC CLEAR TEST

MOV
2

JMP
MOV
MOV
ERROR
JMP
WCERR2: MOV
MOV
MOV
ERROR
JSR
DOIT:
JSR
1%:

JSR

wC,$TMP1
R/ ,WATBIT
A#HERE
=1,$REGO
aRHWC ,W(
43
a#DOIT
#=1.$REGO
aRKWC ,W(
wC,$TMPT
44
R7 ,WATBIT
F7,CLEER
=7 ,ERRTST

10:46

PAGE 45

-——

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

;SETUP FOR WATBIT
JFIND THE BIT(S)

sSEE IF BITS SET CLEAR
;SETUP FOR ERROR
;GET BAD DATA
;WC DID NOT LOAD ANY BITS
;GO TO NEXT REG. TEST
:SETUP GOOD DATA
;GET BAD DATA
;SETUP FOR WATBIT
;SOME BITS CLEARED IN wC
JFIND THE BITS THAT CLEARED
;CLEAR ERRORS

SEG 0044

’

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

2241
2242
2243
2244
2245
2246
2247

gécv11

30A(1052)

RHBA (LEAR

12=JUL=79
TEST

10:46

PAGE 46

SEQ 0045

':t"'t..'.."...!t.."""'.t.'.t.Q't't'.ttttt.t'fili'(tt".t.'.t

SHTEST S

RHBA (LEAR

TEST

s*THIS TEST SEES THAT WHEN A (LEAR S GENERATED
;*THE BUS ADDRESS REGISTER [S CLEARED
::.'Q."".Q‘t'.'fi‘tfi.t"".‘...".Q.'tQ.Qt..i'...""Q"i'..""

007606
007610
007616
007624
007626
007634
007642
007650
007656
007660
007662
007672
007676
007704
007712
007720
007726
007734
007742
007750
007754
007756
007762
007770
007772
007776
010002
010010
010016
010020
010020
010024

000004
012777
022777
001066
012777
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
005777
001421
005037
017737
104045

000040
173470
173464
173460

003416
003424
007712
173456

173452
173422
173416

173412
173410
173370
173360

001162
173346

004737
000137
012737
017737

046362
010020

004737
004737

006572
050210

104046

TSTS:

177776
177776

177776
173320

SCOPE

MOV

1TDO:

CMP
BNE

MOV
MOV
MOV
MOV

003414

TST

BEQ

87%:

001162

001200

;SAVE WORD COUNT

;SAVE BUS ADDRESS
;IS IT AN RH11
N0 IT’'S A 70
;CLEAR BAE
sCLEAR (S3

87%

MOV

aRHST,DS1

;SAVE

MOV

adRHTDRB, TDR

;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
-

TST

BEQ
CLR
MOV
ERROR
JSR

(S3

s CONT INUE

;SAVE BUS ADDRESS EXTENSION

arH(S3,CS3
aRH(CS2,(S2

:SAVE RHCS3
;SAVE (S2

ARHMRZ2,
TC

TOIT
$REGO
oRHBA,$TMP1
45
R7 ,WATBIT

ERROR

JSR
JSR

R7,CLEER
R7 .ERRTST

TESTER STATUS

;IS IT ZERO

QRHBA

a#ToIT
#-2 ,$REGO

:SAVE ERROR REGISTER

aRHER,ER1

JMP
MOV
MOV

T0IT:

#CLR,aRHCSZ
aRH(CS1,(S1
aARHW( ,W(
aRHBA ,BA

86%
aRHBAE ,BAE

MOV

1%:

SET

JMP
MOV

MOV

001200

THEY ALL

JALL THE BITS DID NOT SET
JTELL IT TO CLEAR
;s SAVE RHCS1

BAE

MOV
MOV

86%:

JSET ALL BITS IN RHBA

JARE

CLR

003416
003424
003422
003432
003436
003442
003440

#-2 ,dRHBA

#-2 ,dRHBA
1%

JTEST

IS GOOD

;sCREATE GOOD DATA
;SETUP FOR WATBIT
JRHBA DID NOT CLEAR
JFIND BITS STILL SET
;GO TO NEXT REG. TEST
;SETUP GOOD DATA
;SETUP FOR WATBIT
:BITS DID NOT SET IN RHBA

aRHBA,$TMP1

;CLEAR ERRORS

':tttfit"tttl'Qt'!tt*ttfitttttttfittt't'tit.t"t'tt't.'t'itt't-t!'t

J«TEST €

RHBAE (CLEAR TEST

:*THIS TEST CHECKS THAT WHEN A CLEAR IS GENERATED

:*THE BUS ADDRESS EXTENSION REGISTER IS CLEARED

AR A AR AR A AR R AR AR AR AR AR R R AR

000004
005701

100510

012777
022777
001066
012777

017737
017737
017737
005701

_1S876:;

SCOPE
TST

BM]

000077
000077

WATFOR: MOV
CMP

N00040
173242

MOV
MOV
MOV
MOV
TST

173236
173232

BNE

003414

TST7

#77 ,9RHBAE
#77 ,3RHBAE
1%

#CLR,aRHCS?2
aRH(CST1,CST
aRHW( ,W(
aRHBA ,BA
R1

AR R AR R AR A AR R

AR R AR

AR R AR AR

AR IR AT R RN

;IS ITA 70 OR AN 11

;:SKIP OVER TEST FOR RM11
sSET ALL BITS IN RHBAE
JARE
JALL

THEY ALL SET
THE BITS DID NOT

JTELL IT TO CLEAR

; SAVE- RHCS1

;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11

SET

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE P11
07=JUN=79 13:44

2297
2298
2299
2300
2307
2302
2303
2304
2305

010106
010110
010114

010120
010124
010132
010140
010146
010154
010162
010170
010176
010202
010204

010210
010216
010220
010224
010230
010236
010244
010246
010246
010252

001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
005777
001421
005037
017737

30A(7052)
RHBAE

12=JUL=79
CLEAR TEST

&4
10:46

CLR

003416
003424
003422
003432
003436
003442
003440

86%:

004737
000137
012737
017737

173116

004737
004737

006572
050210

001162
001200

;CLEAR (CS3

aRHBAE ,BAE

@RHCS3,(S3

MOV

aRH(S2,(S2
@RHST ,DS1
aRHER ,ER1
aRHTDB, TDR

MOV
MOV
MOV
MOV
TST

ARHMRZ2,
T(C

BEQ
CLR

001200

MOV

1%:

WATFIV:

SEQ 0046

;CLEAR BAE

CLR
JMP
MOV

87%:

PAGE 47

JNO IT'S A 70

BEQ

104100

104101

MgCV11

ERROR
JSR
JMP

MOV
MOV
ERROR

aRHBAE
WATF IV
$REGO
aARHBAE
, $ TMP1
100
R7 ,WATBIT
QAWATF
IV
#77 ,$REGO
?S?BAE.STMP1

R7,CLEER
R7 ,ERRTST

JSR
ISR

2 CONT INUE
;SAVE BUS ADDRESS EXTENSION

;SAVE RH(CS3

;SAVE (S2
;SAVE TESTER STATUS

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;IS IT ZERO

;TEST

IS GOOD

;CREATE GOOD DATA
;SETUP FOR WATBIT
JRHBAE DID NOT CLEAR
sFIND BITS STILL SET
;GO TO NEXT REG. TEST
;SETUP GOOD DATA
;SETUP FOR WATBIT
;BITS DID NOT SET IN RHBAE
;CLEAR ERRCRS

','t*ififittfiti*t"ttttfi'fifit'fiitt'ttttttt!.tt'ttttttt.ttnt.’t"'..tt

J*TEST 7

RHDB CLEAR TEST

s*THIS TEST CHECKS THAT WHEN A CLEAR IS GENERATED
:*OUTPUT READY

IS NEGATED

tt*'tt"itttttfififi'ttt'i'*'*Q‘fitt.ttttttfi.ttt't"ttttttti'.it!t'

010256
010260
010266
010272
010300
010302
010306
010310
010314
010322
010324
010330
010332
010334
010334
010342
010350

000004

012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737
017737
017737
005701

177777

003446
000200

017737

173040

TST?

18%:

003446,
003446
000200

173016

19%:

003446

172770
172764
172760

003416
003424
010412

010426

173064

172756
17275
17272
172716
172712

003420
003444
003414

003416
003424
003422
003432
003436

DBMG:

87%:
86%:

SCOPE

MOV

CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR
MOV
MOV
MOV
157

BEQ
CLR
CLR
JMP

#-71,aRHDB
BITCNT

;SET ALL BITS IN RHDB
;CLEAR BIT COUNTER
:1S OR SET

BITCNT
18%
BITCNT

:COUNT UP
*NOT FINISHED COUNTING
:GET READY TO DO IT AGAIN

#OR ,RH(CS2
DBMG

SBIT

IS SET

#0R ,@RH(CS2
DBMG

:IS IT SET YET?
JYES.
JCOUNT UP
sBIT IS NOT GOING TO SET

aRH(CS1,(S1

s SAVE RHC3?

BITCNT
DBMG
19%

aRHW(, HC

:SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11

JNO IT'S A 70

;CLEAR BAE

;CLEAR (S3

MOV

s CONT INUE
;SAVE BUS ADDRESS EXTENSION

MOV

sSAVE (S2

MOV
MOV
MOV

:SAVE RH(CS3
:SAVE

TESTER STATUS

:SAVE ERROR REGISTER

.
°*

MACY?fl 30A(7052)

MASSBUS RH70 AND RH11_DIAGNCSTIC
(ZRHBE .P11
07=JUN=79 13:44

010434
010442
010450
010456
010460
010462
010470
010474
010502
010504
010510
010512
010516
010524
010526
010532
010534
010536
010536
010544
010550
010556
010560
010564
010566
010574
010576

010600
010604
010610

017737
017737
032777
001001

172710
172670
000200

022777
005037
032777
001015
005237
001371
005037
032777
001004
005237

177777
003446
000200

104041

001401
000770

012777
005037
032777
001403
005237
001371
032777
001403

RHDB CLEAR TEST

003442
003440

003446

#CLR,ARH(S?2

172662

HURTS:

£ RROR
CMP

172636

18%:

172614

19%:

172574
172562

003446
000200

MOV

BIT
BNE

003446

000040
003446
000200

8NE
INC
BEQ
BR

@RHTDRB, TDR
ARHMR?2,
TC
#0R ,RH(CS?2
HURTS
41
#-1,aRHDB
BITCNT
#0R ,RH(S2
DBMSG
BITCNT
18%
BITCNT
;
#0R ,dRH(CS2:
DBMSG
BITCNT
DRMSG
19%

172662

172544

104114

004737
004737
004737

MOV
MOV

003446
000200

12=JUL=79

007224
006572
050210

DBMSG:

CLR

BIT
BNE
INC
BNE
(LR
BIT

CLR
18%:
BIT
BEQ
INC
BNE
SNAFOO: BIT
BEQ
ERROR
1%:

JSR
JSR
JSR

4
10:46

BITCNT
#O0R ,@RH(CS?2
SNAF 00
BITCNT
18%
#0R,@RH(CS2
1%
114
R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

PAGE 48

SEQ 0047

;SAVE TESTER DATA REG.
sSAVE MR2 TESTER REG.
;1S OUTPUT READY SET
:YES

,CONTINUE

TEST

:0UTPUT READY DID NOT SET

;DID INFO GET LOADED TO DB

:CLEAR BIT COUNTER
+1S OR SET
;BIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
15 1T SEV YE1?
SYES
;COUNT UP
;BIT IS NOT GOING TO SET

sTELL IT TO CLEAR
;CLEAR THE COUNTER
;DID OUTPUT READY CLEAR
:YES GET OUT OF LOOP
; INCREMENT COUNT LOOP
;CONTINUE LOOP IF NO CARRY
;IS OUTPUT READY CLEARED
JYES,EXIT TEST
;OUTPUT READY NOT CLEARED

;BY SETTING CLR IN RH(CSZ2

sANY ERROR BITS SET
:CLEAR ERRORS

s ttttttfit'ttttt*tttt*ttti"i.tti*fit*ttttittt'ttl'tt*t'tttt.t'ttt

“*TEST

PROM REGISTER DECODE TEST
10
s*THIS TEST CHECKS THAT THE PROM
s*CAN ACCESS ALL REGISTERS

tttt't*fittttfitfifittfittitfi"ttttt.ttttt'Ittltttt'ttt*l!it'ttt'ttt

000004
023727

003366

013704

003356

023704

003360

160100

?§r10
18:

2%:

003360

003416
001162
172452

010710

003330
172504

3%:

003412

003420
001162

'SCOPE
CMP
BNE
MOV
TST
cMP

1%
RHDT R4
+
(R4)
RHBAE ,R4

TST
BNE

BEQ

CMP
BEQ
BR

ERR3

(R4)
+

RHBAE R4

ERR3
2%

TST
MOV
MOV
MOV

=(R4)
R4 BAE
(R4) ,$REGO
aRHAS ,AS

MOV
(MP

RZ
RHCS1,(S1
a(S1,$REGO

ERROR
CLR

29%:

DEVIC1,4160100

sCHECK FOR WHAT REG END

;WE ARE OK

JSETUP TO TEST RH11
;CORRECT ADDRESS
JARE ALL REGISTERS CHECKED
JWERE THERE ANY ERRORS

sTEST REGISTER

;S0ME INFORMATION WAS FOUND
JARF ALL REGISTERS CHECKED

;WAS THERE ANY ERRORS

:TEST NOT COMPLETED
;CORRECT ADDRESS
s SAVE ADDRESS
JGET CONTENTS

JGET ATTENTION SUMMARY
JFALSE

INFO

IN FAKE

JGET OFFSET READY

JGET ADDRESS TO START (HECKING

JHAS A REGISTER BEEN FOUND

THAT

(OMPARF
S

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

26409
2410
2411
2412

010716
010720
010726
010730

2614
2415
2416

010742
010744
010752

«+18
2419

010760

2621

011024

2613

2617

070736

010754

2620 011024

2422
2423
24246
2425
2426
2427
2428
2429
2430
2431
2432
2433
2634
2435
2436
2437
2438
2439
2440
2441
2442

2443
2444
2445

011030
011032
011034
011036
011040
011042
011044
011046
011050
011052
011054
011056
011060
011062
011064
011066
011070
011072
011074
011076
011100

062703

000762
032737
001024
104401

000421
000163

104053
000732
104054
000730
104055
000726
104056
000724
104057
000722
104060
000720
104061
000716
104062
000714
104063
000712
104064
000706
104066
000704

011116

004737

011110
011112
011114

Sfig?

011122

003356

003420

000002

003420

000004

020000

177570

30%:

104067
000702
104070

004737

28%:

010762

;65%:

011030

55%:

27%:

BR
BIT
BNE

29%
#SW13,a#177570
55%

BR
LASCIZ

é4$
;GET OVER THE ASCIZ
<1S><12>/REGISTER CONTENTS COMPARES TO:/

JMP

27%(R3)

ERROR
BR
ERROR
BR
ERROR
BR
ERROR
BR
ERROR
B8R
ERROR
BR
ERROR
B8R
ERROR
BR
ERROR
BR
ERROR
BR
ERROR
BR

ERR3:

006572

,65%

- CORRECT OFFSET

sCONTINUE TEST
+SKIP ERROR PRINTOUT
;SKIP MESSAGE *

,,TYPE ASCIZ STRING

;

53
30%
54
30%
55
30%
56
30%
57
30%
60
30%
61
30%
62
30%
63
30%
64

JPRINT REGISTER

JSR

R7,CLEER

LS
.
;CONTINUE
.RHUC
;CONTINJE
. RHBA
;CONTINUE
;RHMR?
sCONTINUE
;JRHCS2
sCONTINUE
JRHST
sCONTINUE
;RHER
sCONTINUE
RHAS
:CONTINUE
;RHTD3
sCONTINUE
;RHDB

’

30%
65

ERROR
BR
ERROR

TEST
TEST

TEST
TEST
TEST
TEST
TEST

JCONTINUE TEST
JRHDT
JCONTINUE TEST
s RHBAE
sCONTINUE TEST
JRHCS3

'TEST n
RHCS3 TEST
J*THIS TEST CHECKS THE READ/WRITE BITS
J*IN THE RHCS3 REGISTER CAN BE CLEARED AND SET.

2457

011126

000004

011130

012777

2460 011144
2461 . 011146
2462 011150
2463 011156

005701
001122
012737
012737

2459

2464

011136

011164

012777

013777

;CLEAR ERRORS

2453
2454
2455
2458

TEST

sCONTINUE TEST
;RHMR1

R7 ,ERRTST

AR A AR KA AR AR

TEST

2452

2456

AR R

JYES,PRINT IT OUuT
;IS IT LAST REG IN RH11
sWAS THERE ANY ERRORS
sNO,CORRECT FOR NEXT CHECK

#4 RS

30%
66
30%
67
30%
70

JSR

SEQ 0048

28%
RHDT,(CS1
ERR3
#TWO0,(CST

BR
ERROR

050210

PAGE 49

BEQ
CMP
BEQ
ADD

TYPE

30A(7052)
12-JUL=79
10:46
PROM REGISTER DECODE TEST

ADD

000710
104065

011102
011104
011106

2446
2447
2448

26449

001412
023737
001473
062737

MACY11
T10

A AR AR R AN AR RN AR

AR R

AR R AR

R AR R AR R C RS

. tttttttttt.tttfittttttttttttttttttt'tttttttttttttttttttltttt'ttt

000040

000007
000004
000001

001162

172202

1$T111:

172174

003450
001162
172170

SCOPE

MOV

1%:

TST
BNE
MOV
MOV

MOV

#CLR,aRH(CS2

‘%7, ARHCS2
R1
TST12
#4 ,LOOCNT
#1,3REGO

$RFGO,aRH(CS3

;CLEAR TESTER

sSETUP UNIT SEVEN

;1S IT AN RH70
;:THIS IS A RH11
sSETUP LOOP COUT OF FOUR
z
JSETUP BIT TO BE TESTED
7

;SET

THE BIT

SINANANS
o NSO

OSNO

WWWWWWWNINI
N NN NN

SRR
W
N

2
—_—

—_—

i
D

D
)

D
d
D

D e
it

D
D
d
d

D e
D

d
D
e
i

—d —d )

D
D

)
)

D
D
d
D
)
d

)

2481
2482
2433
2484
2485
2486
2487
2488
2489
2490
249N
2492
2493

2479
2480

—

2469
2470
2471
2472
2473
2474
2475
2476
2477
2478

—

2467

2468 '

) —d

2466

2465

leolelelalelelolelelololololalolololnleololololololole] (o le]

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

2494

017737
013737
123777

2497
2498

003424
001162

012737
013777
017737
023777
001451
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
104035

000100
001162

172112
001162
172042
172036
172032

172146

003416
003424
011340
172030
172024
171774
171770
171764
171762
171742

RHCS3 TEST

ROL
DEC
BNE

001162

172116

172102

2%:

87%:
868:

003436

003442
003440

046362
050210
006572

aRH(CS3,(CS3
(S3,$TMP
$REGO,aRHCS3
2%

$REGO
LOOCNT
1%

4
10:46

PAGE

$REGO,aRHCS3
ERRS

ARHCSS,(S3

SEQ 0049

;SAVE CONTENTS OF RHCS3

;SETUP FCR WHAT BIT IF NEEDED

;IS THE BIT SET?

:NO,GO TO ERROR

sSETUP TO TEST NEXT BIT
;=1

CMP
BEG

TO THE LOOP COUNT

sTEST NEXT BIT

sSET INTERRUPT BIT

SSET BIT
;WAS

s SAVE CONTENTS
;1S BIT SET?

THERE AN ERROR

MOV
MOV
MOV
ST

ARHCST,CS1
ARHWC
, WC
@RHBA .BA
R1

CLR

BAE

MOV
MOV
MOV
MOV

ARHST,DS1
ARHER
. ER1
ARHTDR, TDR
ARHMR2
. TC

JSR

R7.WATBIT

;SAVE RHCS1
s SAVE WORD COUNT
s SAVE BUS ADDRESS
;IS IT AN RH11
;NO IT'S A 70
. CLEAR BAE
;CLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
:SAVE RHCS3
;SAVE (S2
:SAVE TESTER STATUS
;SAVE ERROR REGISTER
sSAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;BIT DID NOT SET
sTELL WHAT BIT POSITION IS NO GOOD

JSR

R7.CLEER

:CLEAR ERRORS

CLR
JMP
MoV
MOV
MOV

ERROR

ERRS:

#1E3,$REGO
$REGO,aRHCS3

BEQ

003416
003424
003422
003432

12-JUL=-79

MOV
MOV

MOV

003424

003420
003444
003414

30A(71052)

MOV
MOV
CMPB
BNE

003424
001200

001162
003450

004737
004737
004737

2495
2496

172164

¢?$Y11

JSR

87%

€S3
86%
ARHBAE
, BAE
ARHCS3.CS3
@RHCS2.(S2

R7.ERRTST

‘:itt.ttttttttttttfi!t'tttt*fifit.itttttttt*'fi"ittttt'ttttttttt'ttt

S*TEST 12

2499
2500
2501

RHWC BIT

TEST

s*THIS TEST CHECKS THE WORD COUNT REGISTER
;*TO SEE IF ALL BITS CAN BE SET AND CLEARED
s*AND CHECKS THE REGISTER USING ALTERNATE BITS
;*SET (52525) AND USING (125252) TO MAKE SURE
;*IT WORKS WITH ALTERNATE PATTERN.

2502
2503

ach <ol

ach o

elelelelelelele]

wch

011414

':ttttt*fit*tttttifi*tfitt.itiittfittttttt'itit.tfittfittttt'tttt't't.i

000004
012737
013777
023777
001454

000001
001162
001162

001162

013737 003444
004737 046362
017737 171650
017737 171644
017737 171640
005701
001406
005037 00 3416
005037 003424
000137 011 '3

001200

171700
171672

003420
003444
003414

TST12:

RHWCT:

SCOPE

MOV

#ONE , SRE GO

CMP
BEQ
MOV
JSR
MOV
MOV
MOV

?gcco.anuwc

MOV

TST

BEQ
CLR
CLR
JMP

$REGO, aRHWC

wC,$TMP1
R7 ,WATBIT
aRH(CS1,(S1
aRHWC
, W(
aRHBA ,BA
R1

87%

BAE
!

(S3
86%

sSET UP REFERANCE WORD
sMOVE BIT INTO WORD CCUNT REGISTER
:1S BIT SET?

JYES,CONTINUE BIT

TEST

;SETUP FOR WATBIT PROG.
;GO TO WATBIT PROGRAM
. SAVE RHCS1

sSAVE WORD COUNT
s SAVE BUS ADDRESS
;IS IT AN RH1

NG IT'S A 70
s CLEAR BAE
;CLEAR (S3
s CONT INUE

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

2521
2522
2523
2526
2525
2526
2527
2528

011516
011524
011532
011540
011546
011554
011562
011570

017737
017737
017737
017737
017737
017737
017737
104001

2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
255
2555

011576
011600
011604
011606
011614
011622
011630
011636
011640
011646
011652
011660
011666
011674
011676
011700
011704
011710
011714
0311722
011730
011736
011744
011752
011760
0117

100403
006137
000707
012737
013777
017737
023777
001457
013737
004737
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
104001

2529

2556
2557

2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576

011572

011770
011776

012004
012012
012020
012022
012030
012034
012034
012042
012050
012056
012060
012062
012066
012072
012076
012104
012112
012120
012126

005737

012737
013777

017737
023777
001454
013737
004737
017737
017737
017737
005701
001406

005037
005037
000137
017737
017737
017737
017737
017737

171636
171632
171602
171576
171572
171570
171550

003416
003424
003422
003432
003436
003442
003440

001162

87%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
ERROR

adRHBAE , BAE
@RHCS3,CS3
adRH(S2,(S2
@RHST,DS1
adRHER,ER1
aRHTDB, TDR
aRHMRZ2, T(
1

s SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
sSAVE (S2
;SAVE TESTER STATUS
s SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.
;BIT WAS NOT SET IN RHWC REG

BMI
ROL
BR
MOV
MOV
MOV
CMP
BEQ
MOV
JSR
MOV
MOV
MOov
TST
BEQ
CLR
CLR
JMP
MOV
MOV
MOV
MOV
MOV
mMov
MOV
ERROR

RHWCA
$REGO.
RHWCT
#AB, SRE GO
$REGO, aRHW(
aRHWC ,WC
$REGC, aRHW(
1%
WC,$TMP1
R7 ,WATBIT
@dRHCS1,(S1
aRHWC ,WC
aRHBA ,BA
R]
87%
BAE
CS3
86%
aRHBAE ,BAE
@RH(CS3,(S3
@RH(CS2,(CS2
@dRHST,DS1
aRHER,ER1
@aRHTDB, TDR
aRHMRZ, TC
1

;YES ,GO TO NEXT PART OF TEST
:NO,THEN TEST NEXT BIT
;DO BIT TEST AGAIN
;SET UP ALTERNATE BIT PATTERN
sSET ALTERNATE BITS
;SAVE RHWC CONTENTS
sARE THEY ALL SET?
;YES,CONTINUE TEST
;SETUP FOR WATBIT PROG.
;GO TO WATBIT PROGRAM
: SAVE RHCS1
sSAVE WORD COUNT
s SAVE BUS ADDRESS
;IS IT AN RH11
:NO IT'S A 70
;CLEAR BAE
;CLEAR (S3
s CONT INUE
sSAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
;SAVE (CS2
;SAVE TESTER STATUS
s SAVE ERROR REGISTER
sSAVE TESTER DATA REG.
sSAVE MR2 TESTER REG.
sTEST FAILED
.

86%:

001162

001162
171510
003444
171474

003444
046362
171452
171446
171442

001200
003420
003444
003414

003416
003424
011730
171440
171434
171404
171400
171374
171372
171352

003416
003424
003422
003432
003436
003442
003440

125252
001162
171322
001162

001162
171326

003444
046362

001200

171270
171264
171260

003420
003444
003414

003416
003424
012112
171256
171252
171222
171216
171212

003444
171312

RHWCA:

87%:
86%:

1%:

GOOF
:

003416
003424
003422
003432
003436

30A(71052)
12=JUL=79
RHWC BIT TEST

1%:

052525
001162
171504
001162

MACY11
112

87%:
86%:

TST

10:46

$REGO

PAGE 51

;WAS IT BIT 15 THAT WAS LAST TESTED

MOV
MOV
MOV
CMP
BEQ
MOV
JSR

#0AB, SREGO
$REGO, aRHWC

aRHWC ,WC
$REGO, aRHW(
ERR6
WC,$TMP1
R7 ,WATBIT

sSET UP ALTERNATE OPPISITE BITS
;SET OPPISITE ALTERNATE BITS

MOov
MOV
MOV
TST
BEQ

@dRHCS1,CS1T
aRHW(C ,WC
@dRHBA ,BA
R1
87%

s SAVE RHCS1
sSAVE WORD COUNT
:SAVE BUS ADDRESS
;IS IT AN RH1
:NO IT'S A 70

CLR
CLR
JMP
MOV
MOV
MOV
MOV
MOV

BAE
CS3
86%
aRHBAE ,BAE
@RHCS3,(S3
aRH(CS2,(S2
@RHST,DS1
@RHER,ER1

sSAVE CONTENTS OF RHWC
sARE CORRECT BITS SET?
;WAS THERE AN ERROR
;SETUP FOR WATBIT PROG.
;GO TO WATBIT PROGRAM

:CLEAR BAE
;CLEAR (S3
s CONT INUE
sSAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
:SAVE (S2
:SAVE TESTER STATUS
sSAVE ERROR REGJSTER

SEQ 0050

??5Y11

017737
017737

171210
171170

003442
003440

013737
012777
113777
022777
001401

003332
000000
004120
000377

004142

012252

00000

006572

N
— —

—_

050210

004142
—2

104200

171144
171746
171130

—)
2

104001

NNN

—

D e

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79:13:44

171060

M 4
30A(1052)
12=JuL=79
10:46
RHWC BIT TEST
MOV

MOV
ERROR
MOV

ERR6:

#ZERO, ARHWC
MINUS ,a$RHWC

BEQ

HIBYTE

ERROR

#377 ,aRHWC
200

INC
MOV
MOVB

$RHW(
#ZERO, IRHW(
MINUS+1,@$RHWC

BEQ

ALRIGT

CMP

ALRIGT:

aRHMRZ,
T(
1
RHWC , SRHWC

MOV
MOVB

CMP

HIBYTE:

aRHTDB, TDR

ERROR

JSR
MOV
JSR

001162

171044

003416

003416
046362

001200

170774
170770
170764

003416
003424
012406

012462

171060

171054

000040

001162

sCLEAR WC FIRST
sCHECK LOBYTE
sANY EXTRA BITS

;0K SO FAR
sHIBYTE GATE NOT WORKING PROPERLY

;GET READY FOR NEXT BYTE
;CLEAR WC
;CHECK THE HI BYTE

SIS IT OK

200

;LOBYTE GATE NOT WORKING PROPERLY

R7 ,ERRTST
#ZERO, dRHW(
R7,CLEER

SITS OK

:CLEAR WORD COUNT
:CLEAR ERRORS

RHBAE BIT TEST

TESTS THE RHBAE REGISTER

J*ONLY IF THE RH IS AN RH70,RH11'S
:*DO NOT HAVE AN RHBAE REGISTER

SCOPE
TST

;1S RH AN RH70

TST14
#1,$REGO
$REGO , aRHBAE

CMP
BEQ
MOV

$REGO, aRHBAE
1%
BAE, $TMP1

2IS IT SET?
*YES CONTINUE TEST
*SETUP FOR WATBIT PROG.

MOV

@RHCS1,CS1

*SAVE RHCS1

MOV

JSR

87%:
86%:

003440
1%:

SRHBAE ,BAE

R7.,WATBIT

::NO PASS OVER TEST
;SET UP BIT TEST
*SET BIT IN RHBAE REGISTER

*SAVE CONTENTS OF RHBAE REGISTER

*GO TO WATBIT PROGRAM

MOV
MOV
ST

ARHWC , WC
aRHBA .BA
R1

CLR

BAE

*CLEAR BAE

MOV

@RHBAE ,BAE

*SAVE BUS ADDRESS EXTENSION

MOV
MOV
MOV

@RHST,DS1
aRHER . ER1
ARHTDB, TDR

BEQ

003416
003424

;OPPISITE BIT TEST FAILED
;GET READY TO TEST BYTES

BNE
MOV
BAETST: MOV

003420
003444
003414

170762
170756
170726
170722
170716
170714
170674

;SAVE MR2 TESTER REG.

S 2RSSRttt
i
T332 23232223 0

TST13:

000001
001162

;SAVE TESTER DATA REG.

#177400,aRHWC

;*THIS TEST

SEQ@ 0051

R LSSttty
232232232332338

s*TEST 13

012256

PAGE 52

CLR
JMP

MOV
MOV

MOV
ERROR
CMP

BEQ
ROL

B8R

a7%
€S3
86$

*SAVE WORD COUNT
*SAVE BUS ADDRESS
2IS IT AN RH11

*NO IT'S A 70

*CLEAR CS3
+ CONT INUE

@RHCS3.CS3
ARHCS2.(S2

*SAVE RH(S3
*SAVE (S2

aRHMR2. TC
2
#40, SREGO

*SAVE MR2 TESTER REG.
SBIT DID NIT SET
*IS IT LAST BIT TO BE

ERR?

$RE GO

BAETST

*SAVE TESTER STATUS
*SAVE ERROR REGISTER
:SAVE TESTER DATA REG.

*WAS THERE AN ERROR

TESTED

*NO,SET UP FCR NEXT BIT

*CONTINUE TEST

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=-79 13:44

2633
2634

012464
012470

004737
004737

MACY11 30A(7052)
12=JuL=79
713
RHBAE BIT TEST

006572
050210

ERR7:

JSR
JSR

R7,CLEER
R7 ,ERRTST

10.46

PAGE 53

SEQ 0052

:CLEAR ERRORS

ttttttttt.l'iififi't‘..t."it.ttttt't"'....tt.""..t.'...QQ.t.t

'TEST 1
RHBA BIT TEST
;*THIS TEST TESTS THE BUS ADDRESS REGISTER
:#BY FIRST ALTERNATLY SETTING AND CLEARING

;*BITS IN THE BA REGISTER AND THEN BY USING
s*AN ALTERNATE BIT PATTERN (52525) AND AN
;*0OPPOSITE BIT PATTERN (125252).

. tt.t'ttt'titfi.Qtfiit.Qtti't....t't....'t..t'fit.t'.'.ti'tt..'t."

012474

000004

012476
012504
012512
01252u

012737
013777
017737

000002
001162

001162

170622

170616

003414
170606

003414

001200
003420
003444
003414

001162
170566
170562
170556

003416
003424
012614
170554
170550
170520
170514
170510
170506
170466

003416
003424
003422
003432
003436
003442
003440

MOV
MOV

#TWO, SRE GO
$REGO, aRHBA

;SET UP BIT TEST
*SET BIT IN RHBA REGISTER

CMP
BEQ

$REGO , aRHBA
1%

*ARE CORRECT BITS SET
“YES,CONTINUE TEST

ARHCS1,CS1

*SAVE RHCS1

MOV

87%:

86%:

001162
001162
170416
003414
170402

013737
017737
017737
017737
005701

003414

001200
003420
003444
003414

005037
005037
000137

003416
003424
013020

aRHBA . BA

:SAVE CONTENTS OF BA REGISTER

MOV

BA, $TMP1

MOV
MOV
TST

ARHWC , WC
aRHBA . BA
R1

*SAVE WORC COUNT
*SAVE BUS ADDRESS
SIS IT AN RH11

CLR

BAE

“CLEAR BAE

JMP

86$

* CONT INUE

MOV

MOV
MOV

MOV

87%
€s3

SRHBAE , BAE
ARHCS3.CS3

@RHCS2.(CS2

*SETUP FOR WATBIT PROG.

*NO IT'S A 70
:CLEAR CS3

SAVE eus ADDRESS EXTENSION
*SAVERHCS3

*SAVE (S2

MOV
MOV
MOV
MOV

ARHST,DST
ARHER ER1
aRHTDB, TDR
ARHMR2. TC

*SAVE
*SAVE
:SAVE
*SAVE

ST
BMI
ROL
BR
BATSTA: MOV
BIC

$REGO
BATSTA
$REGO
BATST
#AB., SRE GO
#ONE , SREGO

:WAS BIT 15 THE LAST BIT TESTED
*YES,GO TO ALTERNATE BIT TEST
“NO,SET UP TO TEST NEXT BIT
*CONTINUE BIT TEST
*SET UP BIT PATTERN
*CLEAR BIT O POSITION

MOV
CMP
BEQ
MOV
MOV

aRHBA.BA
$REGO. aRHBA
1%
BA, $TMP1
aRHCS1,CS1

*SAVE CONTENTS OF BA REGISTER
*ARE CORRECT BITS SET
*YES,CONTINUE TEST
*SETUP FOR WATBIT PROG.
*SAVE RHCS1

MOV

ARHBA . BA

1%:

052525
000001
001162

001406

BATST:

CLR

001162

170362
170356
170352

SCOPE

BEQ

046362
001162

170412
001162

TST14:

ERROR
JSR

MOV

3
R7,WATBIT

$REGO, aRHBA

ARHWC , WC

TESTER STATUS
ERROR REGISTER
TESTER DATA REG.
MRZ TESTER REG.

*NO,CORRECT BITS ARE NOT SET
:G0 TO WATBIT PROGRAM

:SET BITS IN RHBA REGISTER

*SAVE WORD COUNT

:SAVE BUS ADDRESS

CLR

BAE

*CLEAR BAE

JMP

86%

BEQ
CLR

87%
€s3

IT AN RH11

*NO IT'S A 70
*CLEAR (CS3

* CONT INUE

MASSBUS RH70 AND RH11_DIAGNOSTIC
{ZRHBE P11
07=JUN=79 13:44

2689
2690
2691
2692
2693
269
2695
2696
2697
2698
2699
2700
2701
2702
2703

013004
013012
013020
013026
013034

T14

017737
017737
017737
017737
017737
017737
017737

1 0
1 7 8344
170314
} 7 0 310
7 0304

004737
012737
013777
017737
023777

045362

001162

013737

003414

001200

017737
017737
017737

170200
170174
170170

003420

104003

MACY11

001454

003416
003424
003422
003432
003436
003442
003440

87%:

125252

001162

1%:

170230

003414

001162

003416
003424
013202
170166
170162
170132
170126
170122
170120
170100

046362
003334
000000
004120
000376
004136
000000
004121
177400

004737

006572
050210

170234

86%:

170220
GOOFED:

003416
003424
003422
003432
003436
003442
003440

87%:

004136
170052

ERR10:

86%:

170646
170036

99%:

98%:

RHBA BIT

MOV
MOV
MOV
MOV
MOV
MOV
MOV
ERROR
JSR
MOV
MOV

12=JUL=79

TEST

aRH(S3,(S3

aRH(S2,(S2
aRHST,DS1
aRHER ,ER1

aRHTDR, TDR
gRH"RZ.TC

R7 ,WATBIT

#0A
$RE
B,
GO

$REGO, IRHBA

aRHBA ,BA

MOV

ERR10
BA,$TMP1

MOV
MOV
MOV
TST

aRHCS1,(S1
aRHWC
, WC
aRHBA,BA
R1

8EQ
CLR
CLR
JMP
MOV

MOV
MOV
MOV
MOV
MOV
MOV

ERROR
JSR

MOV
MOV
MOVB
CMP

BEQ
ERROR
INC

MOV
MOVB

CMP
BEQ
ERROR
JSR
JSR

$REGO, aRHBA

B7%

BAE

(S3
86%

aRHBAE ,BAE
@RHCS3,(S3
@dRH(S2,(S?2
@RHST,DS1
aRKER,ER1
aRHTDB, TDR

?RHMRZ.TC
R7 ,WATBIT

RHBA, $RHBA
#ZERO,aRHBA

MINUS ,a$RMBA
#376,aRHBA
99%

202

$RHBA

#ZERO,aRHBA

MINUS+1,a$RHBA
#177400, 3RHBA

98%

202

R7,CLEER
R7,ERRTST

10:46

aRHBAE ,BAE

MOV

CMP
BEQ

003444
003414

170020
170614
170004

30A(7052)

PAGE

SEQ@ 0053

. SAVE BUS ADDRESS EXTENSION

s SAVE RHCS3
;s SAVE €S2
s SAVE TESTER STATUS
s SAVE ERROR REGISTER
s SAVE TESTER DATA REG.
; SAVE MR2 TESTER REG.
sNO,CORRECT BITS ARE NOT SET
;GO TO WATBIT PROGRAM
;SET UP OPPOSITE ALTERNATE BIT TEST
;SET BITS IN RHBA REGISTER
; SAVE CONTENTS OF BA REGISTER
sARE CORRECT BITS SET
;WAS

THERE AN ERROR

;SETUP FOR WATBIT PROG.

;SAVE RHCS1
; SAVE WORD COUNT
; SAVE BUS ADDRESS

;IS IT AN RH11
sNO IT*'S A 70
:CLEAR BAE
;CLEAR (S3
2 CONT INUE
; SAVE BUS ADDRESS EXTENSION
; SAVE RHCS3
:SAVE €S2
; SAVE TESTER STATUS
; SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
s SAVE MR2 TESTER REG.
sNO,CORRECT BITS ARE NOT SET
;GO TO WATBIT PROGRAM
;GET READY TO TEST BYTES
;ZERO THE BUS ADDRESS
sMOVE THE BYTE
:DID IT GET THERE ALRIGHT
sYES,CHECK NEXT BYTE
JHIGH BYTE DOES NOT SEEM TO BE WCRKING
;GET READY FOR NEXT BYTE
. ZERO THE BUS ADDRESS
;MOVE TO UPPER BYTE
;DID IT GET THERE ALRIGHT
JYES,EXIT TEST
;LOBYTE IS NOT WORKING PROPERLY
;s CLAER ERPORS

MASSBUS RH70 AND RH11_DIAGNOSTIC

(ZRHBE .P11

MACY1T

07=JUN=79 13:44

T14

2737

2738

2739

+*TEST

2740
2741

2744

2790
2792

€

10:46

R AR AR R R R R AR R R AR AR AR

RHDB BIT TEST

PAGE

R RN NI

SEQ 0054

R I RN AR

RRRARR R R R AN R RO RO

s*THIS TEST TESTS THE RH DATA BUFFER REGISTER
;*BY FIRST ALTERNATLY SETTING AND RESETING BITS

;*IN THE RHDB REGISTER AND THEN BY USING AN
s*ALTERNATE BIT PATTERN (52525) AND AN OPPISITE

2745

2791

12=JUL=79

RHBA BIT TEST

AR AR AR

2742
2743

2746
2747
2748
2749
2750
2751
2752
2753
2756
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789

30A(71052)

IR AR

013344

000004

013346
013352
013360
013366
(013372
013400
013402
013406
013410
013414
013422
013424

005037
012737
013777
005037
032777
001015
005237
001371
005037
032777
001004
005237

013432
013434
013434

000770

013430

013442
013450
013456
013460
013462
013466
013472

013476
013504
013512
013520
013526
013534
013542
013550
013556
013560
013562
013566
013574
013576
013604
013606
013614
013622
013624

013632

013634

001401

017737
017737
017737
005701
(001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
032777
001004
017737
104041
017737
023737
001406

013737
104004

004737

TST15:

003450
0200001
001162
003446
000200

001162
167764

DBTST:

167730

18%:

003446

003446
000200

167706

19%:

003446

R R R

003420
003444
003414

003416
003424
013512
167656
167652
167622
167616
167612
167610
167570
000200

003416
003424
003422
003432
003436
003442
003440
167552

007224
000200

167544

167550

003426

167540
001162
003426

003426
003426

001200

ABLE:

87%:

AR AR R R R AR R

R A AR AR AR AR AR AR R AR R A RN NARRRRAR RS RO

A AR

SCOPE

(LR
MOV
MOV
CLR
BIT
BNE
INC
BNE
(LR
BIT
BNE
INC

LOOCNT
#ONE , $REGO
$REGO, aRHDB
BITCNT
#RDY ,@RHCS1
ABLE
BITCNT
18%
BITCNT
#RDY ,aRH(S1
ABLE
BITCNT

19%

BEQ

167670
167664
1676€7

046362

;*ALTERNATE BIT PATTERN (125252)

R AR

ABLE

sCLEAR LOOP COUNT
sSET UP BIT TEST
;SET BIT IN RHDB REGISTER
sCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
218 17 SET YEI2?
EYES
. COUNT UP
;BIT

IS NOT GOING TO SET

MCV
MOV
MOV
TST
BEG
(LR
CLR
JMP

@RHCS1,CS1
ARHW( ,WC
aRHEA ,BA
R1
87%
BAL
(S3
86%
aRHBAE ,BAE
aRH(S3,(S3
aRHCS2,(S2
aRHST, DS
aRHER,ER1
RHTDB, TDR
aRHMR?2, T(
#RDY ,@RHCS1
RDYSET
102
R7 ,WHYFO
#0R ,dRH(CS2
ORSET
aRHDB,DB
41
aRHDR, DB
$REGO,DB
1%

. SAVE RHCS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
sNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
s CONT INUE
-2SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
s SAVE (S2
;SAVE TESTER STATUS
.SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S READY SET
;SKIP ERROR
sREADY DID NOT SET
;sANY ERRORS SET
;IS OR SET?
JYES,IT'S SET
;SAVE CONTENTS OF RHDB REGISTER
JOUTPUT READY DID NOT SET
;SAVE CONTENTS OF REGISTER
;1S CORRECT BIT SET?
JYES,CONTINUE TEST

ERROR

sNO,CORRECT BIT

MOV
MOV
86%:
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
JSR
RDYSET: BIT
BNE
MOV
ERROR
ORSET:
MOV
CMP
BEQ
MOV
JSR

DB, $TMP1

R7 ,WATBIT

;SETUP FOR WATBIT PROG.
IS NOT

;GO0 TO WATBIT PROGRAM

SET

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

013640

005737

001162
000001

1%:

014156
014162
014170
014176
014202
014210

000001

000137
012737
013777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770
017737
017737
017737
005701
001406
005037

003450
013360°
052525
001162
003446
000200

TST
BMI
CMP
BEQ

003450

003450
013360
003450
001162
013706
013710
013714
013720
013726
013734
013740
013746
013750
013754
013756
013762
013770
013772
013776
014000
014002
014002
014010
014016
014024
014026
014030
014034
014040
014044
014052
014060
014066
014074
014102
014110
0147116
014724
014126
014130
014136
014140
014146
014154

30A(7052)
12=JUL=79
RHDB BIT TEST

INC
JMP
CLR

2%:

ROL

001162

BR
DBTSTA: (MP
BEQ
INC
JMP
1%:
MOV

167372

18%:

003450

167416

MOV
CLR

BIT
BNE
INC
BNE
CLR

003446
003446
000200

167350

16¢:

BIT
BNE
INC
BEQ
BR

003446

167322
167316

167312

003416
003424
014060
167310
167304
167254
167250
167244
167242
167222

000200

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440

167214

167206

003426
001200

046362

125252

001162
003445
000200

MOV
MOV
MOV
TST

BEQ
CLR
CLR
JMP
MOV
MOV
MOV

87%:

86%:

MOV
MOV

MOV

1672714

001162
003426

:
DBOUT

001162
167154

167130

LOOCNT
DBTST
LOOCNT
$REGO
DBTST
ngE.LOOCNT
|

LOOCNT
DBTST
#AB, $REGO
$REGO,aRHDB
BITCNT
#OR,RH(CS?2
DBOUT
BITCNT
18%

THE LAST BIT

;YES,GO TO ALTERNATE

TESTED

BIT PATTERN

;CONTINUE TEST
;CLEAR LOOP COUNT
sNO,SET UP TO TEST NEXT BIT
.GO AND TEST BIT
;IS IT FIRST TIME
¢
;NO
COUNTER
LOOP
s INCREMENT
;DO AGAIN
*SET UP BIT PATTERN TEST
;SET BITS IN REGISTER
:
;CLEAR BIT COUNTER
;IS OR SET
;BIT IS SET
;sCOUNT UP
sNOT FINISHED COUNTING

;GET READY TO DO IT AGAIN
1S 1T SET YEI?

BITCNT
DBOUT
19%

;COUNT UP
;BIT IS NOT GOING TO SET

@RHCS1T,CS?

;SAVE RHCS1

#OR,aRH(CS2
DBOUT

*¥YES

aRHW(C ,W(
aRHBA ,BA
R1

;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11

BAE

;CLEAR BAE

87%
CS3
86%

aRHBAE ,BAE

@RHCS3,CS3
adRH(S2,(S2
@aRHST,DS1
aRHER,ER1
aRHTDB, TDR

aRHMRZ2,
T(

JNO IT'S A 70

;CLEAR (S3
: CONT INUE
;SAVE BUS ADDRESS EXTENSION
:SAVE RHCS3
;SAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S OUTPUT READY ?
JYES CONTINUE TEST
;OUTPUT READY DIDaNOT SET
;ARE CCRRECT BITS SET?

1%
aRHDB,
DB

JYES,CONTINUE

ge,srnp1

:SAVE CONTENTS OF REGISTER
;SETUP FOR WATBIT TEST

R7.WATB]T

;GO TO WATBIT PROGRAM

$RE GO

$REGO, aRHDB

BITCNT

#0R ,aRH(CS2

QABTS

TEST

;YES.

BITCNT

#0AB,

SEQ 0055

(ISTIT FIRST T IME
:NO, IT'S SECOND

$REGO,aRHDB

18%:

PAGE 56

1%:

5
10:46

;WAS BIT 15

:
DBTSTA
#ONE ,LOOCNT

2%:

$REGO

#OR,aRHCS?2

e¥ey

2794

M#gv11

TESTS

;NO,CORRECT BI7S ARE NOT

SET

JSET UP OPPISITE ALTERNATE BIT PATTERN TEST

sSET BITS IN REGISTEP
sCLEAR BIT COUNTER
OR SET
21S
SBIT IS SET

MASSBUS RH70 AND RH11_DIAGNUSTIC
CZRHBE .P11
07=JUN=79 13:44

2851

2861

2871

2881

014212
014216
014220
014224
014232
014234
014240
014242
014244
014244
014244
014252
(014260
014266
014270
014272
014276
014302
014306
014314
014322
014330
014336
014344
014352
014360
014366
014370
014372
014400
014406
014410
014416
014420
014424
014430

005237
001371
005037
032777
001004
005237
001401
000770
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001001
104041

017737
023737
001406
013737
104004

004737
004737
004737

MACYT!

3 OQA(T052)

115

RHDB BIT

003446
003446
000200

INC
BNE

167106

BNE
INC
BEQ

003446

167050

003416
003424
014322
167046
167042
167012

167006
167002
167000
166760

000200
166754

" Mov

003420
003444
003414

001162

003426
003426

003426

001200

046362
006572
050210

86%

* CONTINUE

dRHCS3,CS3

;SAVE KHCS3
;SAVE (CS2
sSAVE TESTER STATUS
s SAVE ERROR REGISTER
.SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;IS OUTPUT READY SET

“@RH(CS2,(S2

MOV
MOV

MOV

@RHST,DS1
aRHER,ER1
aRHTDR, TDR

BIT

#O0R ,@RHCS?2

MO/

TRTEST 1 6

:CLEAR BAE

:CLEAR (S5

;s SAVE BUS ADDRESS EXTENSION

s3
;OUTPUT READY DID NOT SET

;SAVE CONTENTS OF REGISTER
;ARE CORRECT BITS SET?

aPHDB,DE

(MP
BEU
MOV
ERROR
JSR
JSR
JSR

AR AR

INO IT'S A 70

2%
41

MOV

*SAVE WORD COUNT
:SAVE BUS ADDRESS
(1S IT AN RH11

aRHMR2,
TC

BNE
ERROR

s SAVE RH(S1

JMP

MOV

*BIT IS NOT GOING TO SET

€s3

86%:

*COUNT UP

87%

@RHBAE ,BAE

;GET READY TC DO IT AGAIN

:$ESIT SET YET?

BAE

MOV

ERR11:

SEQ 0056

CLR

MOV

2%:

ARHWC , W(
@RHBA.BA
R1

87%:

166752

PAGE

s COUNT UP
sNOT FINISHED COUNTING

ARHCST,CST

CLP

003436
003442
003440

10:46

MOV
MOVTST

BEQ

003416
003424
003422
003432

TEST

QABTST
BITCNT
CABTST
19%

RR
167060
167054

£'3

BITCNT
18%
BITCNT
#CR,aRH(S?

CLR
BIT

16%:

12=JUL=79

$REGO,DB
ERR11
DB, $TMP1
4
R7 ,WATBIT
R7,CLEER
R7 ,ERRTST

A AR

;WAS THERE AN ERROR

;SETUP FQR WATBIT PROG.
sCORRECT /BITS ARE NOT SET

:GO TO WATBIT PROGRAM

:CLEAR ERRORS

AR AR A A AR AR AR AR AR R AR R AR AR

AR AR TR AR RN R AR

RHWC OPERATIONAL TEST
s*THIS TEST CHECKS THAT WHEN THE WORD COUNT
s*REGISTER IS INCRCMENTED IT IS CARRYED TO THE
s*HIGHEST BIT AND IS RETURNED TO ZERO

2901

014434
014436
014444
014452
014454
014456
014464
014472
014500
014504
014512

ek
w R AR AR AR AR AR AR AR AR AR

000004

012777
012777
005701

177777
000007

012777
012777
012777
005037
032777
001015

000000
001204
000061
003446
000200

100403

166666
166666

T5T16:

166674
166642
166630

1%:

166616

18%:

SCOPE
MOV
MOV
ST

AR AR AR R AR AR AR R R

A AR

AR AR AR AR

AR A AR

BM]
MOV

#=1,aRHW(
#7 ,dRHCS2
R1
1%
#7ERO, ARHBAE

;IS

CLR
BIT
BNE

BITCNT
#RDY ,@RHCS1
6%

;CLEAR BIT COUNTER
:IS RDY SET
SBIT IS SET

MOV
MOV

#$TMPS, aRHBA
#WRITEQD,ARHCST

;SETUP FOR 1

sSETUP UNIT 7

_WORD

IT AN RH1I

*YES
:SETUP BUS ADDRESS EXTENS;ON

:SETUP BUS ADDRESS

MASSBUS RH70 AND RH11_DIAGNOSTI(
(ZRHBE P
07=JUN=79 13:44

2905

014514
014520
014522
014526
014534
014536
014542
014544
014546
014546
014554
014562
014570
014572
014574
014600
014604
014610
014616
014624
014632
. 014640
014646
014654
014662
014670
014672
014676
014700
014706
014710
014714
014716
014722
014724
014730
014736
014740
014744
014746

014752
014760
014762

005237
001371
005037
032777
001004
005237
001491
000770

003446
000200

005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777

003416
003424
014624

005777
001435
005037
104077

166552
166546

166544
166540
166510
166504
166500
166476
166456
000200

19%:

003420
003444
003414

6%:

177777

003416
003424
003422
003432
003436
003442
003440

87%:
86%:

166440

2%:

015010
001204

166412

4%:

166370

3%:

001162

104102

014764
014770
014774

000137
005037

014776

000137

015002

104104

5%:

104103

015010
7%:

BITCNT
18%
BITCNT
#RDY ,@RH(ST
3
BITCNT
6%
19%

aRH(CST,(S1
aRHW(C
, W(
aRHBA ,BA
R1

JMP

MOV
MOV

@RH(CS3,(S3
aRH(CS2,(S2

MOV

MOV
MOV
MOV
MOV

BEQ
TST

BEQ
CLR
ERROR
JSR

k.
10:46

TEST

87%
BAE
CS3
8¢€$

BEQ
CMP

001162

000137
023777
001010

MOV
MOV
MOV
TST

BIT
BNE
TST

166424

166416

007224
001204

CLR
BIT
BNE
INC
BEQ
BR

BEQ
CLR
CLR

166434

004737
023777
001414
005037
104123

166574

12=JuL=79

RHWC OPERATIONAL

INC
BNE

003446

166556

001007
005777
001425
022777
001410

003446

017737
017737
017737
005701

001406

?ACY11 30A(7052)

ARHBAE ,BAE

a@RHST ,DS1
aRHER,ER1
aRHTDB, TDR
aRHMRZ2,
T(

ggDY.aRHCS1
aRHW(

3%
#=1,aRHWC
4%

aRHWC

8%
$REGO
77
R7 ,WHYFO

CMP
8EQ
CLR
ERROR
JMP
CMP
BNE
ERROR

$TMP3,aRHTDB
5%
$REGO
123
8%
$TMP3,aRHTDRB
7%
102

JMP
CLR

8%
$REGO

JMP

ERROR

104

ERROR

103

PAGE

SEG 0057

sCOUNT UP

sNOT FINISHED COUNTING

sGET READY TO DO IT AGAIN

:18 1Y SET YEY?

*YES

s COUNT UP
;BIT IS NOT GOING TO SET
. SAVE RHCS1

sSAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN KAT1
sNO IT'S A 70
;CLEAR BAE

;sCLEAR (S3

s CONT INUE
;SAVE BUS ADDRESS EXTENSION

;SAVE RHCS3
;SAVE CS2
sSAVE TESTER STATUS
s SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;IS READY SET

s YES
:IS IT EQUAL TO OLD
;YES,SEE IF DATA WAS WRITTEN
;DID WC INCREMENT ?
JYES,EXIT TEST
:SETUP GOOD DATA

2RDY DID NOT SET, WC DID NOT

JARE ANY ERROR BITS SET
;WAS INFO WRITTEN TO TESTER
;INFO WAS WRITTEN TO TESTER
;SETUP GOOD DATA
;WRITE OPERATION DID NOT WORK

;RH DID NOT

¢RDY BIT NOT

CLEAR

START OPERATION

SET

: INFORMATION WAS WRITTEN TO TEST DB |
;SETUP GOOD DATA
;DURING A WRITE OPERATION RDY
;DID NOT SET, WC DID NOT INCREMENT
sBUT CORRECT INFO DID GET WRITTEN
:TO TESTER
-

;RDY BIT DID NOT StT AFTER

;A WRITE

sAND

OPERATION,

wC WAS

INF WAS NOT WRITTEN TC

JTESTER

INC

MASSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

2961
- 2962

‘232‘3

S%S

015004
015010

015014

004737
004737

004737

2966

007224
006572

050210

8%:

JSR
JSR

2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003

3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016

;WAS AN ERROR SET
;CLEAR CRRORS

R7,ERRTST

e
RHBA OPERATIONAL

TEST

CHECKS

SEG 0058

THAT

JWAS THER ANY ERRORS
A

TEST

THE BUS ADDRESS REGISTER

;*WILL CARRY THROUGH TO THE HIGHEST BI.

;s*IN THE BUS ADDRESS EXTENSION REGISTER OR BIT A17
;*IN THE RHCST REGISTER AFTER IT IS INCREMENTED

2971

2975
2976
2977
2978
2979
2980

PAGE 59

R7 ,WHYFQ
R7,CLEER

s*THIS

2968

JSR

J*TEST 17

2969
2970

2972
gg;z

30A(7052)
12=JUL=79
10:46
RHWC OPERATIONAL TEST

A A

2967

MACY11
C
116

015020
015022

000004
012737

015030
015032
015034
015042
015050
015056

005701
100403
012777
012777
012777
005701

015060
015062
015070
015072
015100
015100
(015104
015112
015114
015120
015122
015126
015134
015136
015142
015144
015146
015146
015154
015162
015170
015172
015174

015200
015¢04
015210
015216
015224
015232
015240
015246
015254
015262
015264
015266
015274

001404
012777
000403
112777

005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

000001

000037
177776
177777

O0C1212

166316
166264
166254

TST17:

1%:

000461

166240

000061

166230

003446
000200

34%:
35%:

166216

18%:

166174

19%:

003446
003446
000200
003446

017737
166156
017737
166152
017737
166146
005701
001406
005037 003416
005037 003424
000137- 015224
017737
166144
017737
166140
017737
166110
017737 166104
017737 166100
017737
166076
017737
166056
005701
001406
032777 001000
001022
:

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440

166034

2%:

87%:
86%:

SCOPE
MOV

#1,8TIMES

TST
BM]
MOV
MOV
MOV
TST

R1
1 )
#37 , aRHBAE
#177776,aRHBA
#-1,aRHWC
R1

;IS IT AN 11 OR A 70
JIT'S AN RH11
;SETUP BAE IN RH70
;SETUP BA
JSETUP WORD COUNT
;IS IT A RH70

CLR
BIT
BNE
INC
BNE
(LR
BIT
BNE
INC
BEQ
BR

BITCNT
#RDY ,aRH(S1
2%
BITCNT
18%
BITCNT
#RDY ,aRH! S1
2%
BITCNT
’%
19%
.
@RH(CS1,CST
aRHW(C ,WC aRHBA ,BA
R1
87%
BAE
£S3
86%
aRHBAE ,BAE
aRH(S3,CS3
aRH(S2,(S2
aRHST,DS1
aRHER ,ER1
aRHTDR, TDR
aRHMRZ, T(
R1
12%
#A17 ,aRHCST
4%

sCLEAR BIT (OUNTER
*18 RDY SE1
JBIT IS SET
;COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
218 IT SET ¥YE1?
21Y€S
s COUNT UP
JBIT IS NOT GOING TO SET

BEQ
MOV
BR
MOvB

MOV
MOV
MOV
TST
BEQ
CLR
CLR
JMP
MCV
MOV
MOV
MOV
MOV
MOV
MOV
TST
BEQ
BIT
BNE

;:D0
-1 ITERATION

34%
'
#A16'WRITED,aRHCST
35¢
#WRITEQ,aRH(CST

JYES
JTELL IT TO WRITE
;SKIP OVER 70 CODE
JTELL IT TO WRITE

s SAVE RH(CS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
s CLEAR BAE
;CLEAR (S3
s CONT INUE
:SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
sSAVE (S2
.SAVE TESTER STATUS
;SAVE ERROR REGISTER
sSAVE TESTER DATA RIG.
sSAVE MR2 TESTER REG.
JISIT AN 11T OR A 70
;D0 RH70 PART QF TEST
:DID A17 GET SET
JYES

MASSBUS RH70 AND RHM11 DIAGNOSTIC
CZRHBE . P11

3017
3018
3019
3020

015276
015302
015310
015312

015320
015322
0153¢6
015330
015332
015336
015342
015346
015350
015352
015356
015362
015364
015370

07=JUN=79 13:44
000137
022777
001414
022777
001420
005777

015410

117

000040

166050

000037

166040

128:

007224,

4%:

007224

015456

007224
015456

015376
015402
015404
015410
015416
015420

000137

015456

000137
033777
001003

015456
000400

000137
005777
001403

015456

000137
005701

015456

104110

165712

165702

015450
015454

000137

015456

015456
015462

004737
004737

006572
050210

104113

SEG 0059

:CONT.

FOR RH11

CMP
BEQ

037 SRHBAE
3%

BEQ
ERROR
JSR

9%
105
7SSWH'F°

‘BAE IS ZERO
‘BAE GOT MESSED UP DOING A WRITE
:DID AN ERROR OTHER THAN NEM CAVSIT

TST

ARHBA

:DID BA INCREMENT

JSR

R7 ,WHYFO

;WAS AN ERROR BIT

SET

BEQ
ERROR
JMP

JMP

‘DID BAE

‘BAE

INC

INCREMENTED

1S BAE OLD VALUE
BAE DID NOT INCREMENT

ARHBAE

1S BAE ZEROQ

8%
112

‘YES LEXIT TEST
*BA DID NOT INCREMENT

“EXIT

106

R7 ,WHYFO

6% :

ERROR

107

9% :

JMP
ERRUR

8s
110

118:

100403
104076

PAGE 60

JSR

108:

TEST

S
10:46

pao ARHBAE

ERROR

(MP

104111

104112

JMP

165766

12=JUL=79

RMBA OPERATIONAL

TST

015426

104107

30A(1052)

BEQ

166032

015374

015422
015426
015432
015434
015436
015442
015444
015446

MACYT1

TEST

BAE DID NOT INCREMENT
;WAS AN ERROR BIT

YEXIT TEST

SET

‘BAE INCREMENTED OK BUT A17 +
“A16 DID NOT INC PROPERLY
“EXIT TEST
RHBAE IS ZERO

IN RHCS1

JMP
BIT
BNF
ERROR

8s
A16,@RHCST
108
111

‘BIT 5 IN BAE SHOULD BE SET
1S A 16 SET
*YES, BA DID NOT INCREMENT
;?15 DID NOT SET WHEN BA WAS

JMP

YEXIT TEST

BEQ
ERROR
JMP

1%
112
8s

'YES, BA INCREMENTED
*BA DID NOT INCREMENT
YEXIT TEST

ERROR

TST

BM]

ARHBA

*DOES BA =0

YIS

IT A 70 OR 11

GO TO CORRECT ERROR

BA INCREMENTED BUT DID NOT

*CARRY

138:

JMP

ERROR

8%:

JSR

R7.CLEER

JSR

TO BAE

“GET OUT OF

113

TEST

“BA INCREMENTED BUT IT DID NOT
;CARRY OVER TO A17 + Al16

*CLEAR ERRORS

R7,ERRTST

;WAS THERE ANY ERRORS

. .l"tt"ii"'fififi'tt'ifl'""Q'!’...tt.fi.tl‘i.'*'*.fitfi't'.*'t.fit"."

TRTEST

NEM, TRE,SC

SxTHIS

TEST

“«WILL

SET

WILL

THE

BIT

CHECK

TEST

THAT

NON EXISTING MEMORY

TRE AND SC BIT

IN RMCS1

*fl"*fifi.t't.fii"tflt‘*fiit'i'fi.'tt'fitfi"..'fi't.'..fi"".'.tt'tt't

000004
005701
001404
013777
000403

012777
005701
100403

t§120:

003362

165632

177702

165622

40$:
418:

SCOPE
TST

BEQ
MOV
BR

408
RHCS3, 3RHBA
41%

MOV

#177702 , aRHBA

TST
§

R1
.o

;SET UP BUS ADDRESS

1S IT AN RH70
'NO SKIP RH11 PORTION

MASSBUS RH70 AND RH11_DIAGNCSTIC
(ZRHBE .P11
07=JUN=79 13:44

3081

3091

S
ONANEWN
LS NN, ST, N1, V1,81,
=000
¥ -A—.-n—n..a—.—n—u—a—a%
NN WN—=O

—d e

cd e

d wd

D cd

NN NN N NN NN NN N NN NN NN NN

3101

015516
015524
015532
015540
015546
015552
015560
015562
015566
015570
015574
015602
015604
015610
015612
015614
015614
015622
015630
015636
015644
015652
015660
015662
015664
015670
015674
015700
015706
015714
015722
015730
015736
015744
015752
015760
015762
015764
015770
015776
016000
016006
016010
016016
016020
016026
016030
016032
016034
016042
016044
016052
016060
016066
016074

012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

003446

017737

017737
042737

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003

000077
177777
000007
001471
003446
000200

003446
000200

¢36v11

165634
165600
165600
165562

165550

18%:

165526
| 19%:

003446

003422
001162
001162

165466
165462
165456

003420
003444
003414

003416
003424
015714
165454
165450
165420
165414
165410
165406
165366

000200

003416
003424
003422
003432
003436
003442
003440

001162

040000

001162

100000

001162

140000

001162

020000

004124
004126
004130
004132

000000
030175

DELTA
BITCNT

004134

(LR
BIT
BNE
INC
BEQ

18%

BITCNT
#RDY ,ARHCS1
DELTA
BITCNT
DELTA

19%

TELL

IT TO READ

;CLEAR BIT COUNTER ;IS RDY SET
;BIT IS SET
; COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
s13 1T SET Y12
JYES
:COUNT UP
;BIT IS NOT GOING TO SET

BIC

#GO'IE'RDY'A16!A17 'PSEL !DVA!MCPE
!READ6, SREGO

aRH(S1,$REGO

@RHCS1,CS1
DRHWC
, WC
aRHRA ,BA

BEQ
CLR
CLR
JMP
MOV
MOV
MOV

87%
BAE

MOV

aRHER,ER1

MOV
BIT
BNE

aRHMR2,
TC
#RDY ,aRH(CS1
95%

MOV

ERROR
JSR

BIT
BNE
CMP
BEQ

BIT

BNE
BIT
BNE
ERROR

1%:

sSET UP BAE REGISTER
sSET WORD COUNT TO ONE WORD
sSET UNIT NUMBER

aRH(S2,(S2

MOV

99%:

#RDY ,@RH(S1

SEQ 0060

MOV

TST

86%:

PAGE 61

BNE
INC

BIT

MOV
MOV
MOV

87%:

10:46

#77 ,aRHBAE
#=1,3RHWC
#7 ,dRH(S?2
#A16!A17 !READO, aRH (ST
BITCNT

MOV

165350

140000

173400
174000

DELTA:

MOV
MOV
MOV
MOV
CLR

BNE

165342

012737

9%:

30A(1052)
12=JuL=79
NEM,TRE,SC BIT TEST

B8R

(S3
86%
oRHBAE ,BAE
aRH(CS3,(CS3
aRH(S2,(CS2

@RHST,DS1

aRHTDR, TDR

102
R7 ,WHYFO
#NEM,@RH(CS?2
1%
#SC!TRE ,$REGO
2%

#TRE ,$REGO

3%
#SC,$REGO
A3
S

(MP

#SC!TRE,$REGO

MOV

#MCPE ,$CS1

BNE

22%

;SAVE CONTENTS OF RH(CS2

:SET UP NEEDED BITS ONLY

:CLEAR BITS NOT NEEDED
s SAVE RH(CS1
s SAVE WORD COUNT
s SAVE BUS ADDRESS
;IS IT AN RH11
sNO IT'S A 70
;CLEAR BAE

;CLEAR (S3

« CONTINUE
s SAVE BUS ADDRESS EXTENSION

;SAVE RHCS3
;SAVE (S2

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S READY SET
sYES CONTINUE TEST
;READY NOT

21S JUST THE SC BIT SET

2SC BIT SET ERRONIOUSLY

sNEM NOT SET

; TEST FOR SHORTS

#MPE ' MXF 'PGE ‘NED ! UPE 'WCE 'DLT,$CS2

MOV

#0,8S7

MOV

IN RH(CS?2

JSET UP TO TEST AGAIN
:IS SC AND TRE SET
sFIND THE ERROR

MOV
MOV

SET

;ANY ERRORS SET
sIS NEM SET
:YES CHECK TRE AND SC
;1S THE SC AND TRE BITS SET
;YES NEM IS IN ERROR
;IS JUST THE TRE BIT SET
:TRE BIT MUST BE IN ERROR

AWCELO!WCEHI !DPELC !DPEH]
!APE ,$(53

#ILF!RMR CPE DPE !RMBEX!RFAIL !DTE.OP],$ER

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

016102

016110
016114

012737
004737

016120
016124
016132
016124
016142
016144

016146
016150
016152

016156

016160
016162

004122

007224
004122
01621¢
040000

001162

100000

001162

000415

104010

004737
000411

016176

000405

104011

004737
104012

007224

032737

041400

104013

0010903
105737
001010
112777
032777
001401
104050

004737
004737

6%:

177570

7$:

8%:

001103

000100

004000

165126
165074

006572
050210

21%:

9%:

N NL

calund wb

SEQ 0061

sTELL WHYFO ITS FOR SHORTS
sTEST FOR SHORTS

BEF ORE

;WE HAVE CHECKED FOR SHORTS

BNE
BIT

6%
#SC SREGO

:SC BIT DID NOT SEE
;IS THE SC BIT SET

8$
#TRE ,SREGO

sLEAVE THE TEST
sTHEN IS THE TRE BIT SET

7%
€

‘

; TRE HAS AN OPEN GOING TO BUS
sTRE SET LOGIC NCT WORKING

BR
ERROR
JSR

8$
7
R7 ,WHYFO

JSR

R7 ,WHYFO

BR
ERROR
JSR
BR

8%
12
R7 ,WHYFO
8%

BIT

#SW14!5W9!Sw8,a#177570

TSTB

$ERFLG

;WAS

#TREB,aRH(S18

.LOAD TRE

ERROR
JSR

ERROR

BNE
BNE

"MOVB

BIT
BEQ
ERROR
JSR

JSR

TRE BIT

sSET UP TO TEST AGAIN
'
sNEM HAS OPEN IN LINE GOING TC BUS
;SEE IF ANY OTHER ERROR BIT IS

;SET OTHER THAN NEM
sSET UP TO TEST AGAIN

10
R7,WHYFO

s SOMTHING WRONG WITH TRE BIT
;SEE IF AN ERROR BIT IS SET
;OR BOTH NEM IN RHCS2 AND SC IN

:RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS
;SET UP TO TEST AGAIN

:SC BIT WAS SET BY EITHER ATTN OR

;FIND WHAT ERROR BIT IS SET

sMCPE ERROR OR SC IS SHORTED TO +5 VOLTS

;SETUP TO TEST AGAIN
;TRE WAS SET BY OTHER THAN NEM
sFIND ERROR BIT THAT SET TRE
sSETUP TO TEST AGAIN

21%
9%

:TRE HAS AN OPEN GOING TO THE BUS

;ANY LOOPING BEEING DONE

sYES,LOAD TRE NO MATTER WHAT
THERE AN ERROR

:SKIP TRE CHECK

#NEM,IRH(S2
9%
50

:DID ERROR CLEAR
sYES EXIT TEST
;LOADING TRE DID NCT CLEAR ERROR

R7,CLEER

;SEE

R7 ,ERRTST

ERRORS ARE

CLEARED

tttt"'ttttitttl'fitt.fi't".tfitt't.ttit!Qfifitt!'t'tfi.'fittt.t'tit

QWN—‘OO ~

N WN NN N WA
WN

PAGE 62

'TEST 21
WCE,TRE,SC BIT TEST
s*THIS TEST WILL CHECK THAT TRE AND SC SET
s*WHEN A WRITE CHECK ERROR OCCURS (WCE)

016260

00 0o 0o 0o NNN

-l el culd anlh cnlh cnld wld anld aud wub

NN W

10:46

#~1,8EFORE
R7 ,WHYFO

2169
170

CLR

JMP
BIT

BNE
ERROR

4%:

007224

004737
000401

22%:

3%:

007224

30A(71052) 12=JuL=79
NEM,TRE,SC BIT TEST

MOV
JSR

2%:

007224

016166
016170
016172

016200
016202
016206
016210
016212
016220
016222
016226
016230
016236
016244
016246
016250
016254

177777

M36Y11

000004
012777
012777
005701
001003

012777
012777
012737
012777
005037
032777
001015

177777

000007
000000
001172
052525
000061
003446
000200

165042
165042
165050
165016

001172

iérz1

TST

;IS

MOV
MOV
MOV

#7ERO, 3RHBAE
#$REGS ,aRHBA
#AB, SRE G4

s 2ETUP RHBAE REGISTER
;SETUP BUS ADDRESS
s CREATE INFORMATION

BNE

9%:

18%:

#=1,3RHWC

MOV

164776
164764

SCOPE

MOV

MOV
CLR
BIT
BNE

#7 ,aRH(S?2
9%

#WRITEQ,aRHCS1
BITCNT
#RDY ,dRHCST
.
WCETST

sONE WORD TRANSFER

2TO UNIT ONE

IT AN RH70

:NO .

JTELL IT TO WRITE
;CLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET

MASSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
2203

016346
016352
016354
016360
016366
016370
016374
016376
016400
016400
016406
016412
016476
016420
016426
016432
016440
016442
016446

3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
2225
3226
3227
3228
3229
3230
3231
3232

016454
016482
016464
016470
016472
016474
016474
016502
016504
016506
016512
016520
016526
016534
016542
016546
016554
016556
016562
016564
016570
016576
016600
016604
016606
016610
016610
016616

017737
017737

3234
3235
3236
3237
3238
3239
3240

016632
016640
016646
016654
016656
016660

3204

3233

016450

016624

005237
001371
005037
032777
001004
005237
001401
000770
052777
005037
005237
001375
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770
032777
001003
104102
004737
012777
012777
012737
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

MACY11
121

003446

003446
000200
003446

000040
003446
003446
000007
003446
000200
003446
003446

000200
003446
000200
007224
177777
001172
125252
000051
003446
000200

003446
003446
000200
003446

WCETRE:

30A(7052)
12-JUL-79
WCE,TRE,SC BIT TEST

INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

BITCNT
18%
BITCNT
#RDY ,aRHC(CS1
WCETST
BITCNT
WCETST
19%

BIS
CLR
INC
BNE
MOV
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

#40,
dRH(CS2
BITCNT
BITCNT
17%
"7,
@RH(CS2
BITCNT
#RDY ,aRHCS1
WCTST
BITCNT
18%
BITCNT
#RDY ,adRHCS1
WCTST
BITCNT
WCTST
19%

BIT
BNE
ERROR
JSR
MOV
MOV
MOV
MOV
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

#RDY,
@RHC(S1
20%
102
R7,
WHYFO
#=1,aRHWC
#SREG4 ,aRHBA
#0AB, $RE G4
#WRCHO,aRHCS1
BITCNT
#RDY ,@RHCS1
WCETRE
BITCNT
18%
BITCNT
#RDY ,aRHCS1
WCETRE
BITCNT
WCETRE
19%

MOV
MOV

@RH(CS2,(CS2
@RHCST,$REGO

@RHCS1,CS1
ARHWC, WC
aRHBA BA

042737

164524
164506

027777

003422
001162

001162

BIC

017737
017737
017737
005701
001406
005037

164472
154466
164462

003420
003444
003414

MOV
MOV
MOV
TST
BEQ
(LR

003416

10:46

PAGE 63

SEQ 0062

;COUNT UP
JNOT #INISHED COUNTING
sGET READY TO DO IT AGAIN
JIS IT SET YET?
JYES
sCOUNT UP
JBIT IS NOT GOING TO SET
;DO A CONTROLER CLEAR
sSET UP FOR DELAY
s COUNT UP
JSELECT UNIT #
sCLEAR BIT COUNTER
;1S RDY SET
:BIT IS SET
sCOUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
;IS IT SET YET?
JYES
;COUNT UP
;BIT IS NOT GOING TO SET
:1S READY SET
;YES
;JREADY NOT SET
;ANY ERRORS
SET
JRESET WORD COUNT
JRESET BUS ADDRESS
;CREATE WRITE CHECK ERROR
;MAKE THE ERROR
;CLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
;COUNT UP
sNOT FINISHED COUNTING
JGET READY TO DO IT AGAIN
IS IT SET YET?
:YES
*COUNT UP
BIT IS NOT GOING TO SET

'
sSAVE CONTENTS
SET UP NEEDED BITS ONLY

#GO'IE'RDY'A16'A17'PSEL'DVA'MCPE'READé $REGO

875
BAE

;CLEAR BITS NOT NEEDED
*SAVE RHCST
;SAVE WORD COUNT
;SAVE BUS ADDRESS
J1S IT AN RHIN
:NO IT'S A 70
;CLEAR BAE

’

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

016664
016670
016674
016702
016710
016716
016724
016732
016740
016746
016754
016756
016760
016764
016772
016774
017002

005037

003424
016710
164460
164454
164424
164420
164414
164412
164372

000200

017062
017070
017076
017104
017110
017114
017120
017126
017130
017136
017140
017142
017144
01714€

001162

040000

001162

100000

001162

140000

001162

020000
137400
160000
004132
004134

004124
004126
004130
004132
004134
004122

007224

000411

017172
017174
017176
017202

000405

104011

004737
104017

004737
000401

007224

WCE,TRE,SC BIT TEST

87%:
86%:

MOV
MOV
MOV
MOV
MOV

MOV

BIT
BNE

ERROR

140000

100000

017162
017164
017166

003416
003424
003422
003432
003436
003442
003440
164354

001162

99%:

L 5
12-JuL=79 10:46

30A(7052)
QLR

164346

177777

000415
104016
004737

121

007224
004122
017206
040000

017152
017154
017156

MACY1T

JSR
BIT
BNE
CMP
BEQ
BIT

(S3
86%

aRHBAE
, BAE

@dRHCS3,CS3
@dRH(CS2,(S2

aRHST,DS1
aRHER,ER1
@RHTDB, TDR
aRHMRZ2,
T(

#RDY ,aRH(S1

99%
102
R7 ,WHYFO
1¥CE,8RHCSZ

5§C!TRE.SREGO
#TRE ,$REGO

#SC,$REGO

1%:

CMP

4%
14
8%

#SC!TRE,$REGO

22%

PAGE 64

SEQ 0063

;CLEAR (CS3
s CONT INUE
+SAVE BUS ADDRESS EXTENSION

;SAVE RHCS3
sSAVE (CS2
;SAVE

TESTER STATUS

sSAVE

TESTER DATA REG.

;SAVE ERROR REGISTER

;SAVE MR2 TESTER REG.

. 1S READY SET

JYES CONTINUE TEST
JREADY NOT SET
;ANY ERRORS SET
;IS WCE SET
JYES CHECK TRE AND SC
;IS THE SC AND TRE BITS SET
JYES WCE IS IN ERROR
;IS JUST THE TRE BIT SET
;TRE BIT MUST BE IN ERROR
;IS JUST THE SC BIT SET
;SC BIT SET ERRONIOUSLY
;WCE NOT SET IN RHCSZ2
;SET UP TO TEST AGAIN
;IS SC AND TRE SET

JFIND

THE ERROR
;TEST FOR SHORTS
#MPE !MXF ! PGE !NEM!NED !UPE !DLT,$CS2
#DPELO!DPE
!APE ,$CS3
HI

#MCPE ,$CS1

$ST,$ST
$ER, $ER

#-1,BEFORE

R7 ,WHYFO
BEFORE
8$

22%:

#TR
, $REGO
E
6%

001162

#SC,$REGO

2%:

ERROR

'3%:

ERROR

4%:

6c$:

6
8%

15
R7 ,WHYFO

16
R7 ,WHYFO

ERROR
JSR

R7 ,WHYFO

ERROR

JSR
BR

17
R7 ,WHYFO
8%

sTELL WHYFO ITS FOR SHORTS
sTEST FOR SHORTS

sWE HAVE CHECKED FOR SHORTS

sLEAVE THE TEST
sTHEN IS THE TRE BIT SET
:SC BIT DID NOT SEE TRE BIT
;IS THE SC BIT SET

;TRE HAS AN OPEN GOING TO BUS

;TRE SET LOGIC NOT WORKING
sSET UP TO TEST AGAIN
;WCE HAS OPEN IN LINE GOING TO BUS
;SEE IF ANY OTHER ERROR BIT IS
:SET OTHER THAN WCE
sSET UP TO TEST AGAIN
sSOMTHING WRONG WITH TRE BIT
;SEE_IF AN ERROR BIT IS SET

;OR BOTH WCE IN RHCS2 AND SC IN

;RHCST HAS AN OPEN BETWEEN IT AND THE BUS
;SET UP TO TEST AGAIN
:SC BIT WAS SET BY EITHER ATTN OR
sFIND WHAT ERROR BIT IS SET
sMCPE ERROR OR SC IS SHORTED TO +5 vOLTS
;SETUP TO TEST AGAIN

:TRE WAS SET BY OTHER THAN WCE

;FIND ERROR BIT THAT SET TRE

sSETUP TO TEST AGAIN

MASSBUS RH70 AND RH17_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

032777
001401
104050

004737
004737

177570

7%:

M
5
30A(1052)
12=JuUL=79 10:46
WCE,TRE,SC BIT TEST
ERROR

8%:

BIT

21%:

MOVB

001103
000100
040000

el anll

105737
001010
112777

041400

OW
o

104013
032737
001003

ol wii

017204
017206
017214
017216
017222
017224
017232
017240
017242
017244
01725C

3297
3298
3299
3300
3301
3302
3303

M3$Y11

BEQ

006572
050210

PAGE 65

#SW14!SW9!SW8,a#177570

21%
$ERFLG
9%

9%:
s

AR AR A A AR AR

R7,CLEER
R7 ,ERRTST
AN AR AR A AR

:TRE HAS AN OPEN GOING TC THE BUS
:ANY |.OOPING BEEING DONE
;YES,LOAD TRE NO MATTER WHAT
:WAS THERE AN ERRCR

sSKIP TRE CHECK
:LOAD TRE
;DID ERROR CLEAR
sYES EXIT TEST
<LOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE CLEARED

#TREB,aRHCS1B
#W(CE ,aRHCS?2

ERROR
JSR
JSR

SEQ 0064

A AR AR R

'TEST 22

AR A AR R R AR R AR

MDPE ,TRE AND SC BIT TEST
;*THIS TEST CHECKS THAT MDPE CAN BE SET
:*RHCS2,AND THAT MDPE SETS TRE AND SC

AR AR AR

hkkkn

;*IN THE RHCS7 REGISTER

tt*ttt***ttttttt*tttti'tttttt'ttttttt*itttifittttittt'tfifitfit*ttt

017254

017346
017350
017354
017356
017362
017370
017372
017376
017400
017402
017402
017410

017416
017424
017432
017440
017442
017444
017450
017454
017460
017466
017474
017502
017510

000004
012777
012777
005701
001003
012777
012777
012777
012777
017737
0C5037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737
042737

017737
017737
017737
005701

000007
177774

000000
004100
000071
000027
164006

0032446
000200

164054

TST22

164022
164010
164012

9%:

163762

18%:

003422

003446

003446
000200

163740

19%:

003446

163722

027777

001162
001162

163706
163702
163676

003420
003444
003414

003416
003424
017474

017737

164054
164040

163674
163670
163640
163634
163630

003416
003424
003422
003432
003436

:
UPETRE

87%:
86%:

SCOPE

MOV
MOV
TST

BNE
MoV
MOV

MOV
MOV
MOV
CLR
BIT
BNE

INC
BNE
CLR
BIT
BNE
INC
BEQ
BR
MOV

#7 ,dRHCS2

#=4 ,aRHWC

R1
9%

#ZERO, 3RHBAE
#RBUF
, 3RHBA

#READQ ,@RHCS1
#P
!7 AT
,@RH(CS2
@dRH(CS2,(S2
BITCNT
#RDY ,@RH(CS1
UPETRE
BITCNT
18%
BITCNT
#RDY ,aRHCS1

UPETRE
BITCNT
UPE TRE
19%

@RHCS1,$REGO

sSET UNIT #
;SET UP WORD COUNT
;IS IT AN RH70
JNO ITS AN RH11
:SET UP BAE REGISTER
;SET UP BUS ADDRESS
JTELL IT TO READ
s INVERT PARITY
;SAVE CONTENTS
;CLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
sCOUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
;IS IT SET YET?
JYES
;COUNT UP
;BIT IS NOT GOING TO SET
:SET UP NEEDED BITS ONLY

BIC

#GO'IEIRDY!A16!A17
' DVA!MCPE
!PSEL
'READ6, SREGO

MOV
MOV
MOV
TST

aRH(S1,CS1

BEQ
CLR
CLR
JMP

MOV
MOV

MOV

MOV
MOV

aRHWC ,W(
aRHBA ,BA
R1

87%

BAE

cS3
86%

aRHBAE ,BAE

@RHCS3,CS3
aRH(CS2,(S2
a@RHST,DS1
aRHER,ER1

:CLEAR BITS NOT NEEDED

:SAVE RHCS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR BAE
;CLEAR CS3
2 CONT INUE

;SAVE BUS ADDRESS EXTENSION

:SAVE RH(CS3

;SAVE (S2
JSAVE TESTER STATUS

;SAVE ERROR REGISTER

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE .P11

07=JUN=79 13:44

3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371

017516
017524
017532
017540
017542
017544
017550
017556
017560
017566
017570
017576
017600
017606
017610
017612
017614
017622
017624

017737
017737
032777
001003
104102
004737
032777
001016
022737
001460
032737
001060
032737
001060
104116
000467
022737
001030
013737

3373
3374
3375

017640
017646
017654

3377
3378
3379
3380
3381
3382
3383
3384
3385
3286
3387

017670
017674
017700
017704
017712
017714
017722
017724
017726
017730
017732

3372

3376

3388

3389
3390
3391
3392
3393

3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408

017632

017662

MACY11

122

163626
163606
000200

003442
003440
163570

007224
000400

163562

140000

001162

040000

001162

100000

001162

140000

001162

0041246

012737
013737
013737

174000
004132
004134

004737
005037
000137
032737
001022
032737
001022
104006
000421
104120
004737

007224
004122
017772
040000

012737

017736
017740
017742

000415
104121
004737

017746
017750
017752

000411
104011
004737

017756
017760
017762
017766
017770
017772
020000
020002
020006
020010
020016

000405
104122
004737
000401
104013
032737
001003
105737
001010
112777
032777

177000

177777

100000

10:46

MDPE ,TRE AND SC BIT TEST

PAGE 65

004124

aRKTDB, TDR
aRHMRZ2, T(C
#RDY ,@RH(S1
99%
102
R7 ,WHYFO
#MPE ,@RH(CS?2
1%
#SC!TRE,SREGO
2%
#TRE ,$REGO
3%
#SC,SREGO
4%
116
8%
#SC!TRE ,$SREGO
22%
$CS1,8CST

004130
004132
004134

MOV
MOV
MOV

#WCELO!WCEHI!DPELO!DPEHI !APE,$CS3
$ST,8ST
$ER, SER

99%:

1%:

004126

MOv

004122

001162

MOV

3%:

BR
ERROR
JSR

8%
121
R7 ,WHYFO

4%:

BR
ERROR
JSR

8%
11
R7 ,WHYFC

BR
ERROR
JSR
BR
ERROR
BIT
BNE
TSTB
BNE
MOVB
BIT

8%
122
R7 ,WHYFO
8%
13
#SW14!SW9!SW8,a#17757C
21%
$ERFLG
9%
#TREB,aRHCS1B
#MPE , aRH(S2

2%:

007224

6%:

007224
177570

7%:
8%:

001103
163346
163314

#-1,BEFORE

R7 ,WHYFO
BEF ORE
8%
#TRE , SREGO
6%
#SC,SREGO
7%
6
8%
120
R7 ,WHYFO

22%:

21%:

sSAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S READY SET
sYES CONTINUE TEST
sREADY NOT SET
sANY ERRORS SET
;1S MPE SET
:YES CHECK TRE AND
S
;1S THE SC AND TRE BITS SET
:YES MPE IS IN ERROR
:1S JUST THE TRE BIT SET
:TRE BIT MUST BE IN ERROR
:1S JUST THE SC BIT SET
:SC BIT SET ERRONIOUSLY
sMPE NOT SET IN RHCS?2
;SET UP TO TEST AGAIN
;1S SC AND TRE SET
sFIND THE ERROR
; TEST FOR SHORTS

#MXF 1 PGE 'NEM'NED'UPE 'WCE!DLT,$CS2

JSR
CLR
JMP
BIT
BNE
BIT
BNE
ERROR
BR
ERROR
JSR

001162

007224

000100
000400

12=JUL-79

MOV
MOV
BIT
BNE
ERROR
JSR
BIT
BNE
CMP
BEQ
BIT
BNE
BIT
BNE
ERROR
BR
CMP
BNE
MOV

007224

041400

30A(7052)

sTELL WHYFO ITS FOR SHORTS

;TEST FOR SHORTS
;WE HAVE CHECKED FOR SHORTS
;LEAVE THE TEST
;THEN IS THE TRE BIT SET
:SC BIT DID NOT SEE TRE BIT
;IS THE SC BIT SET
:TRE HAS AN OPEN GOING TO BUS
sTRE SET LOGIC NOT WORKING
sSET UP TO TEST AGAIN
sMPE HAS OPEN IN LINE GOING TO BUS
;SEE IF ANY OTHER ERROR BIT IS

;SET OTHER THAN MPE

:SET UP TO TEST AGAIN
s SOMTHING WRONG WITH TRE BIT
sSEE IF AN ERROR BIT IS SET
;OR BOTH MPE IN RHCS2 AND SC IN
sRHCST HAS AN OPEN BETWEEN IT AND THE BUS

sSET UP TO TEST AGAIN
:SC BIT WAS SET BY EITHER ATTN OR
;FIND WHAT ERROR BIT IS SET
sMCPE ERROR OR SC IS SHORTED TO +5 VvOLTS
sSETUP TO TEST AGAIN
;TRE WAS SET 3Y OTHER THAN MPE
sFIND ERROR BIT THAT SET TRE
;SETUP TO TEST AGAIN
:TRE HAS AN OPEN GOING TO THE BUS
:ANY LOOPING BEEING DONE
sYES,LOAD TRE NO MATTFR WHAT
:WAS THERE AN ERROR
:SKIP TRE CHECK
;LOAD TRE
;DID ERROR CLEAR

SEQ 0065

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

001401

020030

004737
004737

o
no

S
P

020024

JSR

9%
50

SEQ 0066

JYES EXIT TEST
;LOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE CLEARED

R7,CLEER

R7 ,ERRTST
UPE,TRE,SC ERROR TEST

(RH11)

IN RHCS2

:*T0 SEE IF IT SETS AND WHEN IT SETS IS
;*TRE AND SC BITS SET

IN RHCS1

012777
005701

000007

000137
012777
017737
042737

020524
020007
163236
027777

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
032777
001016
022737
001460
032737
001060
032737
001060

163222
163216
163212

(=]

=Y=r=)

SRR

020050
020054

o
ny

S
3

020102
020110
020116
020124
020126
020130
020134
020140
020144
020152
020160
020166
020174
020202
020210
020216
020224
020226
020230
020234
020242
020244
020252
020254
020262

\n
SO

020272

100402

TST23

003416
003424
020160
163210
163204
163154
163150
163144
163142
163122
000200

—_

W
N
N
J

—

o
¥
S

013737
013737

163252
001162
001162

003416
003424
003422
003432
003436
003442
003440
163104

001162

040000

001162

100000

001162

004130
004132

BIC

MOV

@dRHCS1,CS1

BMI
JMP

MOV
MOV

001162

004124
004126
004130
004132

87%:

86%:

CLR
JMP
MOV
MOV
MOV

cS3
86%
aRHBAE ,BAE
@dRH(CS3,CS3
@dRH(CS2,(S2

MOV
MOV

aRHER,ER1
aRHTDB, TDR

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

MOV
MOV
TST

aRHWC ,WC
adRHBA ,BA
R1

CLR

BAE

MOV

MOV
BIT
BNE

99%:

87%

@dRHST,DS1

aRHMRZ,
TC
#RDY ,aRHCS1
99%

ERROR
JSR
BIT
BNE

102
R7 ,WHYFO
#UPE ,@RH(S2
1%

BEQ
BIT
BNE
BIT
BNE
ERROR
BR

2%
#TRE
, SREGO
3%
#SC,$REGO
4%
20
8%
#SC!TRE,$REGO
22%
$CS1,8CS1

CMP

1%:

;CLEAR BITS NOT NEEDED
;s SAVE RHCS1
;SAVE WORD COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11
:NO IT'S A 70
;CLEAR BAE
;CLEAR CS3
s CONT INUE
;s SAVE BUS ADDRESS EXTENSION
.SAVE RHCS3
;SAVE (S2

BEQ

140000

157400

FITIT:

#7 ,aRHCS2

E T UP UNIT 7
S IT AN RH11
FITIT
T 'S AN
RH11,D0O THE TEST
FIT
T 'S AN H70 EXIT TEST
#UPE
! 7 ,QRHCS?2
E T PARITY ERROR IN RH11'S (€S2 REG
@dRHCS1,$REGO
SET UP NEEDED BITS ONLY
#GO!IE!RDY!A16!A17!PSEL! DVA!MCPE!READb,sREGO

TST

003414

163076

004124

MoV

003420
003444

007224
020000

140000

020324
020332

163270

SCOPE
muu—u—-m

000004

020040

§ S %

Qtt'fitfitttiitfiitttttttfi'fittttt'i.ttt*tttfitt"t'tt*ttt'tiQQQQQ'Q

3430
3431
3432
3433
3434
3435
3436
34,37
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447
3448
349
3450
3,51

RER2E BLRRLUN

9%:

BEQ
ERROR

PAGE 67

;*THIS TEST CHECKS THE UPE BIT

020066

OO\
RO
=

006572
050210

. tltttltittttfifitfi.tt.'t"ii.tt'ttfit*t.itii'tfit.tttttfiQttt.fi..'..

3427

RRRRY
RRRRR FR PR

104050

30A(71052)
12=JUL=79
10:46
MDPE ,TRE AND SC BIT TEST

S*TEST 23

RRRY R

AORIAIR ronro
(o2
VW, P WV N = OV

NO NS WN—=O

3409

MACY11
122

CMP

BNE

MOV

#SC!TRE,$REGO

;SAVE

TESTER STATUS

;SAVE MRZ2 TESTER REG.
;IS READY SET
JYES CONTINUE TEST
JREADY NOT SET

JANY ERRORS SET
;IS UPE SET
sYES CHECK TRE AND SC
;IS THE SC AND TRE BITS SET
JYES UPE IS IN ERROR
;IS JUST THE TRE BIT SET
sTRE BIT MUST BE IN ERROR
;IS JUST THE SC BIT SET
;SC BIT SET ERRONIOUSLY

JUPE NOT SET IN RH(CSZ2
;SET UP TO TEST AGAIN
;IS SC AND TRE SET

;FIND THE ERROR
;TEST FOR SHORTS

#MPE {MXF | PGE 'NEM'NED
'WCE 'DLT,$CS2
$CS3,8CS3

$ST,$ST

MASSBUS RH70 AND KH11 _DIAGNOSTIC
(ZRHBE .P11
07=JUN=-79 13:44

3465
3466
3467
. 3468

020340
020346
020354
020360

013737
012737
004737
005037

3470
3471
3472
3473
3474
3475
3476
gz;g

020370
020376
020400
020406
020410
020412
020414
020416

032737
001022
032737
001022
104006
000421
104021
004737

3479
3480
3481

020422
020424
020426

000415
104023
004737

3483
3484
3485
gzgg

020432 - 000411
020434
104011
020436 004737

3469

3482

3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507

020364

020442
020444
020446
020452
020454
020456
020464
020466
020472
020474
020502
020510
020512
020514
020520

000137

000405
104022
004737
000401
104013
032737
001003
105737

001010
112777
032777
001401
104050
004737
004737

004134
177777
007224
004122
020456
040000
'
100000

007224

041400

MACY11

123

30A(7052)

3%:

4%:

8%
23
R7 ,WHYFO

;RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS
;SET UP TO TEST AGAIN

JSR

R7 ,WHYFO

sFIND WHAT ERROR BIT

TSTB

006572
050210

9%:

020524

BR
ERROR
JSR

BIT
BNE

001103

SEQ 00€7

21
R7 ,WHYFO

ERROR

8%:

PAGE 68

ERROR
JSR

BR
ERROR
JSR
BR

(RH11)

$ER, $ER
#-1,BEFORE
R7 ,WHYFO
BEF ORE
8%
#TRE ,$REGO
6%
#SC,$REGO
7%
.
6

ERROR

6%:

10:46

MOV
MOV
JSR
CLR
JMP
BIT
BNE
BIT
BNE
ERROR

B8R

2%:

21%:

UPE,TRE,SC ERROR TEST

22%:

000100
020C0C

12=JUL=79

BNE
MOVB
BIT
BEQ
ERROR
JSR

JSR

sTELL WHYFO ITS FOR SHORTS

sTEST FOR SHORTS

sWE HAVE CHECKED FOR SHORTS

;LEAVE THE TEST
;THEN IS THE TRE BIT SET
;SC BIT DID NOT SEE TRE BIT
;IS THE SC BIT SET

s TRE HAS AN OPEN GOING TO BUS
sTRE SET LOGIC NOT WORKING

;SET UP TO TEST AGAIN

;UPE HAS OPEN IN LINE GOING TO 8uUS

;SEE IF ANY OTHER ERROR BIT IS
;SET OTHER THAN UPE
sSET UP TO TEST AGAIN
;SOMTHING WRONG WITH TRE BIT
;SEE _IF AN ERROR BIT IS SET
;OR BOTH UPE IN RHCS2 AND SC IN

;SC BIT WAS SET BY EITHER ATTN OR
IS SET

sMCPE ERROR OR SC IS SHORTED TO +5 VOLTS
;SETUP TO TEST AGAIN

8%
22
R7 ,WHYFO
8%

;TRE WAS SET BY OTHER THAN UPE

;FIND ERROR BIT THAT SET TRE

13
3?214!SU9!SU8.8#177570
$ERFLG

9%
#TREB,aRH(S18B
#UPE ,@RH(CS2
9%
50

;SETUP TO TEST AGAIN
:TRE HAS AN OPEN GOING TO THE BUS
:ANY LOOPING BEEING DONE
;YES,LOAD TRE NO MATTER WHAT
:WAS THERE AN ERROR

:SKIP TRE CHECK
;LOAD TRE
:DID ERROR CLEAR
JYES EXIT TEST
sLOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE CLEARED

R7.CLEER

R7 ,ERRTST

F'T
IR

A AR

'7557

3508
3509

KRR

24
;*THIS

AR AR

;70 SEE IF

3511

020524

000004

3513
3514
3515
3516
3517
3518
3519
3520

020526
020534
020536
020540
020544
020552
020560
020566

012777
005701
001402
000137
012777
012777
012777
012777

R kA&

IT SETS AND WHEN IT SETS IS

SC BITS

SET

IN RHCS1

t'tttt'i'titl’tttttttttttttttifi't*tttttttittttttt*ttiittttt't'tt

TST24:
000007

SCOPE

MOV

#7 ,dRHCS2

BEQ
JMP

PLACE
FANGIE

TST

021306
000004
177776
000000
001162

RRRRARRRARARAAA AR AR AR

UPE,TRE,SC ERROR TEST (RH70)
TEST CHECKS THE UPE BIT IN RHCS2

s*TRE AND
.

AR AR KRR

PLACE:

MOV

MOV
MOV.

Mov|

:SETUP UN

s13

fiIPCKZ dRH(S3

;SETUP FOR PARITY ERROR

#$REGO,aRHBA

:SETUP BAE
:SETUP ADDRESS

#=2. ARHWC
#ZERO,@RHBAE

1T AN
T 4 AN
17°S AN RH11, EXIT TEST

sSETUP WORD COUNT TO TWO WORDS

MASSBUSP$?7O ANC RH11_DIAGNOSTIC
CZRHBE
07=JUN=79 13:44

020574
020602
027406
020014
020616

012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770
017737
042737

017737
017737
017737
005701
001406
005037
005037

000137

000061
003446
000200

MATYT1
T2~
162526

MoV

162514

18%:

162472

19%:

003446
003446
000200

003446

162454

001162
001162

162440

003420
003444
003414

027777
162434
162430

003416
003424
020742

D 6
30A(71052)
12=JUL=79 10:46 PAGE 69
UPE ,TRE,SC ERROR TEST (RH70)

DYNO:

CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR
MOV

BIC

AWRITEO,@RHCST
BITCNT
#RDY ,dRHCS1

DYNO
BITCNT
18%
BITCNT

#RDY ,aRH(S1
DYNO

adRHCS1,$REGO
;SET UP NEEDED BITS ONLY
#GO!IE'RDY!A16!A17!PSEL! DVA!MCPE 'READ6, SRE GO
;CLEAR BITS NOT NEEDED
aRHCS1,CS1
:SAVE RHCS1
aRHWC
, W(
sSAVE WORD COUNT
aRHBA ,BA
s SAVE BUS ADDRESS
R1
;IS IT AN RH11

162426
162422
162372
162366
162362
162360
162340
000200

003416
003424
003422
003432
003436
003442
003440
162}22

004737
032777
001016
022737
001460
032737

007224
020000

162314

140000

001162

SEC!TRE.SREGO

040000

001162

#TRE ,$REGO

100000

001162

#SC,$REGO
4%

140000

004124

157400
134100

013737
012737
004737
005037
000137

004132
004134

177777

007224
004122
021240

:NO IT'S A 70
. CLEAR BAE
;CLEAR (S3

CS3
86%

017737
017737
017737
017737
017737
017737
017737
032777
001003
104102

001162

004124
004126
004130
004132
004134
004122

- CONT INUE
:SAVE BUS ADDRESS EXTENSION

adRHBAE ,BAE

@RHCS3,(CS3
aRH(S2,(S2
@RHST,DS1
aRHER,ER1

;SAVE RH(CS3
;SAVE (S2

:SAVE TESTER STATUS
;SAVE ERROR REGISTER

aRHTDB, TDR
aRHMRZ2,
T(

;SAVE TESTER DATA REG.

;SAVE MR2 TESTER REG.
;1S READY SET
;YES CONTINUE TEST
* ;READY NOT SET

#RDY ,aRHCS1

99%:

99%
102
R7 ,WHYFO

*ANY ERRORS SET
*1S UPE SET
“YES CHECK TRE AND SC

:gpe.anncsz

*IS THE SC AND TRE BITS SET
*YES UPE

18:

sCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
s COUNT UP
sNOT FINISHED COUNTING
JGET READY TO DO IT AGAIN
S1S 1T SET YEV?

s COUNT UP
JBIT IS NOT GOING TO SET

87%

86%:

IT TO WRITE

s YES

BITCNT
DYNO
19%

BAE

87%:

TELL

SEG 0068

20
8%

#SC!TRE ,$REGO

22%

$(S1,$CS1

IS IN ERROR

*IS JUST THE TRE BIT SET
*TRE BIT MUST BE IN ERROR
*IS JUST THE SC BIT SET
*SC BIT SET ERRONIOUSLY
*UPE NOT SET IN RHCS2
“SET UP TO TEST AGAIN
“1S SC AND TRE SET

*FIND

THE ERROR
TEST FOR SHORTS

lMPE'MXF'PGE'NEM‘NED WCE ! DLT,$CS2
#APEI DPELO'WCEHI !WCELO! IE3,$(S3

$ST,8ST
$ER, $ER

#-1 ,BEFORE

JTELL WHYFO ITS FOR SHORTS

sLEAVE THE TEST

R7 ,WHYFO
BEF ORE

;TEST FOR SHORTS
;WE HAVE CHECKED FOR

_4ORTS

MASSBUS RH70 AND RH11_DIAGNCSTIC
CZRHBE .P11
07=JUN=79 13:44

3577
3578
3579
3580
3581
3582
3583

358,
3585
3586
3587

3588
3589

3590
3591
3592

3593
3594
3595

RRRe A

00NNV
WA —

3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610

021152
021160
021162
021170
021172
021174
027176

032737
001022
032737
001022
104006

021204
021206
021210

000415

021214
021216
021220

000411

100000

201762

104023

004737

104011

004737

007224

032737
001003

041400

104013

105737

:THEN IS THE TRE BIT SET

BIT

#SC,$REGO

;1S THE SC SIT SET

ERROR

ERROR
JSR

21
R7 ,WHYFO

177570

000100
020000

004737
004737

006572
050210

BNE

B8R

7%:

21%:
9% :

021306

PAGE

SEQ 0069

:SC BIT DID NOT SEE

TRE BIT

:TRE HAS AN OPEN GOING TO BUS

:SET UP TO TEST AGAIN

;TRE SET LOGIC NOT WORKING

JUPE HAS OPEN IN LINE GOING TO BuUS
:SEE IF ANY OTHER ERROR BIT IS

:SET OTHER THAN UPE

:SET UP TO TEST AGAIN
;SOMTHING WRONG WITH TRE BiT
:SFE IF AN ERROR BIT iS SET

BR
ERROR

8%
11

:SET UP TO TEST AGAIN
:SC BIT WAS SET BY EiTHER ATTN OR

‘

;OR BOTH UPE IN RHCS2 AND SC IN
;RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS

R7 ,WHYFO

;FIND WHAT ERROR BIT IS SET

:MCPE ERROR OR SC

BR
ERROR
JSR
BR

8%
22
R7 ,WHYFO
8%

BIT
BNE

#SW14!'SW9!SW8,a#177570
21%

BNE

:SKIP TRE CHECK

#UPE ,dRH(CS2

:DID ERRUR CLEAR

TSTB

162100
162046

(RH70)

es
23
R7 ,WHYFO

ERROR

8%:

10:46

BR
ERROR
JSR

JSK

6% :

12=JUL=79

UPE, TRE, SC ERROR TEST

BNE

001103

001010
112777
032777
001401
104050

#TRE , $REGO

4%:

000405

104022

BIT

3%:

007224

004737
000401

22%:

2%:

007224

021200

021224
021226
021230
021234
021236
021240
021246
021250
021254
021256
021264
021272
021274
021275
021302

001162

30A(7052)

T24

(040000

MACY11

$ERFLG

MOVRB

#TREB,aRHCS1B

BEQ
ERROR
JSR
JSR

9%
50
R7,CLEER
R7,ERRTST

BIT

IS SHORTED

:TRE HAS AN OPEN GOING TO THE BUS

:ANY LOOPING BEEING DONE
:YES,LOAD TRE NO MATTER WHAT
:WAS THERE AN ERROR

:LOAD TRE

:YES EXIT TEST
:LOADING TRE DID NOT CLEAR ERROR
:SFE IF ERRORS ARE CLEARED
v

FANGIE:
L

s*TEST 25
>

021306

000004

021310
021316
021320
021322
021330
02133¢
021344
021352
021356
021364
021366
021372
021374

012777

o
|

012777

012777
012777
012777
005037
032777
001015
005237
001371
005037

TST25:

000000

162022

00C000

162030
161774
161770
161756

177777

001172
000061
003446
000200

161744

s*THIS

NED BIT TEST
WILL

CHECK

THAT

NED

;*SETS TRE AND SC BITS IN RHCS1
AAA AR A A A AR AR AR

(NON-EXISTANT

AR AR AR AR AR

CLRIVE)

AR AR AR R AR A AR A AR R ARk

SCOPE

MOV
TST
BMI
MOV
NEDERR: MOV
MOV
MOV
CLR

18¢%:

TEST

BIT

003446

BNF
INL

003446

(LR

BNE

#ZERO,QRHCS2
R1
. NEDERR
#ZERO,aRHBAE
#=1,aRHW(
#$REG4 , aRHBA
#WRITEQ,@RHCST
BITCNT

#RDY ,aRH(CS1
BAKER
BITCNT

18%

BITCNT

TO +5

:SETUP TO TEST AGAIN
:TRE WAS SET BY OTHER THAN UPE
:FIND ERROR BiT THAT SET TRE
:SETUP TO TEST AGAIN

sSETUP NED
;RH11 OR RH70

;IT'S AN RH11

;SETUP BA EXTENSION
;FOR A 1 WORD TRANSFER
;SETUP BA

JTELL IT TO WRITE
;CLEAR BIT COUNTER

;IS RDY SET
JBIT IS SET
: COUNT UP

sNOT FINISHED COUNTING

;GET READY TU DO IT AGAIN

VOLTS

HASSBUSF$?70 AND RH11_DIAGNOSTIC
CZRHBE
07=JUN=79 13:44

3634

021400
021406
021410
021414
021416
021420
021420
021426
021434
021442
021450
021456
021460
021462
021466
021472
021476
021504
021512
021520
021526
021534
021542
021550
021556
021560
021562
021566
021574
021576
021604
021606
021614
021616
021624
021626
021630
021632

032777
001004
005237
001401
060770

017737
042737
017737
017737
017737
005701
001406
005037
005037
009137,
0317737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
032777
001016
022737

001460

032737
001060
032737
001060

000200

MACY11 30A(7052)
12=JUL=79
NED BIT TEST
125
161722

19%:

003446

16170%

027777

007162
001162

161670
161664
161660

003420
003444
003414

BAKER:

003416
003416
003424
003422
003432
003436
003442
003440

87%:

86%:

161552

161544
140000

001162

040000

001162

100000

001162

140000

001162

000000

004124
004126
004130
004132
‘004134
004122

167400
174100

004132
004134

177777
007224
004122
022010
040000
100000

001162

:
99%

1%:

001162

104025

2%:

PAGE

SEQ@ 0070

#RDY ,@RH(S1

IS IT SET YET?
; YES
:COUNT UP
:BIT IS NOT GOING TO SET

@dRHCST,SREGO

;SET UP NEEDED BITS ONLY

BAKER
BITCNT
BAKER
19%

fiGO!IE!RDY!A16!A}7!PSEL'DVA'MCPE‘READb. SREGO

MOV
MOV
MoV
TST
BEQ
CLR
CLR
JMP
MOV
MOY
MOV
MOV
MOV
MOV
MOV

@RH(CS1,CST
aRHW( ,W(

BNE
ERRUR
JSR
BIT
BNE
CMP
BEQ
BIT
BNE
BIT
BNE
ERROR
BR
CMP
BNE

MOV
MoV
MOV

22%:

10:46

BIC

MOV
MoV
MOV

104006

000421

MOV

BIT

104024

000467
022737
001030
012737
012737
012737
013737
013737
012737
004737
005037
000137
032737
001022
032737
001022

BIT

BNE
INC
BEQ
BR

aRHBA ,BA
R1

87%

BAE

CS3
86%

aRHBAE ,BAE

aRH(CS3,(S3
@dRH(S2,(S2
@RHST,DS1
adRHER ,ER1
aRHTDB, TDR

aRHMRZ2,
T(

#RDY ,@RHCS1

99%
102

+SAVE WORD COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11

:NO IT'S A 70
;CLEAR BAE
;CLEAR (S3
:
;s CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2
;SAVE TESTER STATUS
sSAVE ERROR REGISTER
sSAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;IS READY SET
JYES CONTINUE TEST
;sREADY NOT

SET

R7 ,WHYFO

;ANY ERRORS SET
21S NED SETY

#SC!TRE,$REGO

;IS THE SC AND TRE BITS SET
sYES NED IS IN ERROR
;IS JUST THE TRE BIT SET
;TRE BIT MUST BE IN ERROR
IS JUST THE SC BIT SET
;SC BIT SET ERRONJOUSLY
JNED NOT SET IN RHCSZ2
JSET UP TO TEST AGAIN
;IS SC AND TRE SET

:QED.GRHCSZ

g;RE.sREGO
#SC,$REGO

24
8%

#SC!TRE,SREGO

22%

#7ERO,$CS1

JYES CHECK TRE AND SC

;FIND

THE ERROR
;TEST FOR SHORTS

#MPE'MXF‘PGE'NEM'UFE'NCE'DLT $CS2

#APE I DPEH] 'DPELO!WCEHI'WCELO! IE3, $CS3

$ST,$ST
$ER, $ER

#-1,BEF
ORE

JSR
(LR
JMP BIT

R7 ,WHYFQ
gEFORE
$

BIT
BNE
ERROK
BR
ERROR

#5C,$REGO
7%

BNE

CLEAR BITS NOT NEEDED
;SAVE RHCS1

#TRE ,$REGO

6%
6

&%
25

sTELL WHYFO ITS FOR SHORTS

sTEST rOR SHORTS

;WE HAVE CHECKED FOR SHORTS
sLEAVE THE TEST
sTHEN

IS THE

TRE BIT

SET

;SC BIT DID NOT SEE TRE BIT
;IS THE SC BIT SET

:TRE HAS AN OPEN GOING TO BULS
sTRE SET LOGIC NOT WORKING

JSET UP TO TEST AGAIN
;NED HAS OPEN IN LINE

GOING TU & bl
-

3689
3690
3691
3692
3693
3694
3695
3656
3657
3698
3699
3700
3701
3702
3703
3704
3705

3706

3707
3708
3709
3710
3711
3712
3713
3714
375
3716
3717
3718
3719
3720
3721
3722

021750

004737

021754
02175%
021760

000415

021764
021766
021770

000417

021774
021776
022000
022004

022006

022010
022016
022020
022024
022026
022034
022042
022044
022046
022052

104026

004737

104011

004737
000405
104027
004737
000401
104013
032737
001003
105737

125

007224
007224

007224

041400

177570

R7 ,WHYFO

3%:

8R
ERROR
JSR

3$
26
R7 ,WHYFQ

éS:

BR
ERROR
JSR

7%:
&%:

001103

000100
010000

004737
004737

006572
050210

161330
161276

30A(7052)
12=JUL=79
NED BIT TEST
JSR

007224

001010
1;2777
032777
001401
104050

MACY11
C

21%:

9%:

BR
ERROR
JSR
BR
ERROR
BIT
BNE

TSTB
BNE
MOVB

BIT

BEQ
ERROR

JSR’
JSR

10:46

PAGE

ama

MASSBUS RK70 AND RH11 DIAGNOSTIC
(ZRHBE
07=1UN=79 13:44

SEQ 0071

;SEE IF ANY OTHER ERROR BIT IS
;SET OTHER THAN NEL
sSET UP TO TEST AGAIN
sSOMTHING WRONG WITH TRE BIT
;SEE IF AN ERROR BIT IS SET
;OR BOTH NED IN RHCSZ2 AND SC IN

;RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS

;SET UF TO TEST AGAIN
:SC BIT WAS SET BY EITHER ATTN OR

R7 ,WHYFO

;FIND WHAT ERROR BIT

IS SET

sMCPE ERROR OR SC IS SHORTED
;SETUP-TO TEST AGAIN

;TRE WAS SET BY OTHER THAN NED

R7 ,WHYFO

sFIND ERROR BIT THAT SET TRE

8%
13

35:14!sw955w8,ad177570
i

$ERFLG

;SETUP TO TEST AGAIN
:TRE HAS AN OPEN GOING TO THE BUS
:ANY LOOPING BEEING DONE

;YES,LOAD TRE NO MATTER WHAT
:WAS THERE AN ERROR

:SKIP TRE CHECK
:LOAD TRE
:DID ERROR CLEAR
sYES EXIT TEST
sLOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE (LEARED

#TREB,aRH(S18
#NED ,@RH(S2

50
R7,CLEER
R7 ,ERRTST

. ttt'ttit'tttttt'Q.Qi*'*tifi*itt*t'fi*tfit!.ttt'fiiittt'tn.'.".t't.

SRTEST

26
;*THIS

MXF

TEST

,TRE

WILL

AND SC BIT
CHECK

THAT

TEST

MXF

;*(MISSED TRANSFER ERROR) WILL
;*SET

TRE AND SC BITS

» .tt.!ttt'ttt'tt‘tttttt'l’ti'lfifi!Qt'itfii't.tlfitttfi"'.t"'ttfi't.t

022056

000004

022060
022066
02207%
022102
022110
022116
022122
022130
022132
022136
022140
022144
022152
022154
022160
022162
022164
022164
022172

012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401.
0062770

017737
042737

15126:

000027
177777
004100
000000
000061

MOV
MOV

MOV

003446
000200

18%:

003446
003446
000200

161156

19%:

003446

161140

027777

SCOPE
MOv

CLR

BIT

BNE
INC
BNE
(LR
BIT
BNE
INC

‘BEQ
001162

001162

:
(HARLE

MOV

BIC

#PAT!7 ,aRHCS?2
#-1,9RHWC

sSET MXF BIT

#7ERO,aRHTDB
#WRITEQ,aRHCST

:SET MXF ERRCR

#RBUF ,dRHBA

BITCNT

#RDY ,aRRH(ST

CHARLE

BITCNT
18%
BITCNT

#RDY ,@RH(CS?

(HARLE
BITCNT
CHARLE
19%

"0 +5 VOLTS

:SET UP WORD COUNT

:SETUP BA

STELL IT 10O WRITE
sCLEAR BIT COUNTER
:1S RDY SET
sBIT }S SET
s COUNT UP
sNOT FINISHED COUNTING
;GET READY

TO DO IT

ISSIT SET YET?

AGAIN

“COUNT UP

811 IS NCT GUING ro SET

aRH(S1,$REGO .
;SET UP NEEDED Bi BJTS ONLY
#GOTERDYIATS
|A17:PSEL 1DVA MCPE |READG SREGO
;CLEAR BITS NOT NEEDE!
-

MASSBUS RM70 ANC RH11 DIAGNOSTIC
(ZRHBE PN
07=JUN=79 13:44

017737
017737
017737
005701
001406
005037

3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759

003420
003444

161024

000200

3761
3762
3763

007224

003432
003436
003442
003440

001000

161000

3766

140000

001162

040000

001162

100000

001162

3767
3768
3769
3770
3771
377¢
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784

3785

3786

3787

3788

3789
- 3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800

022414
022422
022430
022436
022444
022452

022530
022532

001162

020000

004124

176400

177777

007224
004122
022554
040000

022456
022462
022466
022474
022476
022504
022506
022510
022512
022514

022520
022522
022524

140000

004130
004132
030165

100000

007224
000415
104032
004737

000411
104011

007224

86%:

161006

3764

3765

87%:

99%:

1%:

004126
004130
004132
004134
004122

001162

MxF

,TRE

BEQ
(LR
CLR
JMP

MOV

MOV
MOV
MOV
MOV
MOV
MOV

BIT
BNE
ERROR
JSR
BIT
BNE
CMP
8EQ
BIT
BNC
BIT
BNE
ERROR

BR
CMP
BNE
MOV
MOV
MOV

MOV
MOV
MOV

JSR
CLR

22%:

001162

H 6
12=JUL=79
10:46

30A(7052)
MOV
MOV
MOV
TST

003414

003416
003424
003422

3760

?ng11

AND SC BIT

aRHCS1,CST

ARHWC ,WC

aRHBA ,RA

87%

BAE

(S3
86%

aRHBAE ,BAE

@RH(S3,CS3
@RH(S2,(S2
@RHST,DS1
aRHER,ER1

aRHTDR,
TDR
aRHMRZ,
T(

#RDY ,aRH(CS1

99%
102

R7 ,WHYFO

7?XF.8RHCS2

#SC! TRE, SREGO
#T
,RE
$RE GO

38
#5C.SREGO

30
&8

#SC ! TRE , SREGO

22%

3%:

PAGE

SEQ 0072

s SAVE RH(CS1

s SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S-A 70

:CLEAR BAE
;CLEAR (S3

; CONT INUE
:SAVE BUS ADDRESS EXTENSION

{

:SAVE RH(CS3

;SAVE (S2

:SAVE TESTER STATUS

+SAVE ERROR REGISTER
+SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.

;1S READY SET
JYES CONT_NUE TEST
JREADY NOT

SET

;ANY ERRORS SET
;IS MXF SET
JYES CHECK TRE AND SC
;IS

THE

ST AND

TRE BITS

SET

JYES MXF IS IN ERROR
.IS JUST THE TRE BIT SET
s+RE BIT MUST BL IN ERROR
;IS JUST THE SC BIT SET
;SC BIT SET ERRONIOUSLY
:MXF'NOT SET IN RHCS2
JSETSUP TO TEST AGAIN
2IS 5C AND TRE SET
;FIND THE ERROR

#MCPE ,$CS1
;TCST,FOR SHORTS
#MPE ! PGE !NEM!NED !UPE ! WCE !DLT,$(S2

$CS3,8(S3
$ST,8ST

#ILF !RMR!DPE !RMBEX'RFAIL!DTE'!OPI,SER

#-1,BEFORE

R7 ,WHYFOQ
BEFORE

#TRE ,$REGO

#SC,$REGO
7%
6

2%:

TEST

sTELL WHYFO [TS FOR SHORTS

sTEST

FOR SHORTS

sTHEN

;WE HAVE CHECKED FOR SHORTS
JLEAVE THE TEST
THE

TRE BIT

SET

:SC BIT DID NOT SEE TRE BIT
;1S THE SC BIT SET

: TRE ‘HAS AN OPEN GOING TO BUS
sTRE SET LOGIC NOT WORKING

sSET UP TO TEST AGAIN

R7 ,WHYFO

sSEE IF ANY OTHER ERROR BIT IS
;SET OTHER THAN MXF
;SET UP TO TEST AGAIN
s SOMTHING WRONG WITH TRE BIT
sSEE IF AN ERROR BIT IS SET

32
R7 ,WHYFQ

8%
2

sMXF

HAS OPEN IN LINE GOING TO BUS

;CR BOTH MXF

sRHCST

IN RHCS2 AND SC

HAS AN OPEN BETWEEN

JSET UP TO TEST AGAIN

[T AND

;5C BIT WAS SET BY EITHER ATIN Ok

THE

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817

3818

022534

004737

022540
022542
022544
022550
022552
022554
022562
022564
022570
022572
022600
022606
022610
022612
022616

000405
104033
004737
000401
104013
032737

001003
105737
001010
112777
032777
001401
104050
004737
004737

MACY11
126

007224
6%:

007224
041400

177570

001103

000100
001000

160564
160532

,
006572
050210

3845
3846
3847
3848

3849
3850
3851
3852
3853
3854
3855
3856

MxF

12=JUL=79

10:46
,TRE AND SC BIT TEST

PAGE

JSR

R7 ,WHYFQ

BR
ERROR
JSR
BR
ERROR
BIT

8%
33
R7 ,WHYFO
8%
13
:
#SW14!SW9!SW8,a#17757C

BNE
TSTB
BNE
MOVB
BIT
BEQ
ERROR
JSR
JSR

21%
$ERFLG
9%
#TRES,aRH(S1B
#MXF ,@RHCS2
9%
50
R7,CLEER
R7 ,ERRTST

74
SEQ@ 0073

;FIND WHAT ERROR BIT IS SET
sMCPE ERROR OR SC IS SHORTED TO +5 VOLTS
;SETUP TO TEST AGAIN
s TRE WAS SET BY OTHER THAN MxF
;FIND ERROR BIT THAT SET TRE
;SETUP TO TEST AGAIN
. TRE HAS AN OPEN GOING TO THE BUS
:ANY LOOPING BEEING DONE

;YES,LOAD TRE NO MATTER WHAT
:WAS THERE AN ERROR
:SKIP TRE CHECK
;LOAD TRE
;DID ERROR CLEAR
JYES EXIT TEST
sLOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE CLEARED

tttttt*t!l.ttt*tttt!*fi"ttttfittt'*ttfii.*i"t'."tttttitt..tttt

'TE>T 27
PGE ERROR BIT TEST
;*THIS TEST FORCES PGE TO SET IN RH(CS?2
s*AND VERIFYS TRE AND SC IS SET IN RH(CS1

3822

3844

21%:

9%:

3819
3820
3821
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843

7%:
8$%:

30A(7052)

022622
022624
022632
022640
022642
022644
022652
022660
022666
022672
022700
022702
022706
022710
022714
022722
022724
022730
022732
022734
022734

000004
012777 000007
012777 004000
0057017
100403
012777 000000
012777 000061
012777 000061
005037 003446
032777 000200
001015
005237 003446
001371
005037 003446
032777 000200
001004
005237 003446
001401
000770

22t'tttittttt'QtfittQtttt'*'tt**QQttfitQ'tttttit't'tttttttttttt"tt

160506
160474

TST27:

160506
160450
160442

JUMP:

160430

18%:

160406

19%:

022742

017737
042737

160370
027777

001162
001162

022750
022756
022764
022772
022774
022776
023002
(023006
023012
023020
023026

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737

160354
160350
160344

003420
003444
003414

003416
003424
023026
160342
160336
160306

003416
003424
003422

PGETST:

87%:
86%:

SCOPE
MOV
MoV
TST
BM]
MOV
MOV
MoV
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

#7 ,dRHCS2
#EVENAD , aRHBA
R1
JUMP
#ZERO, aRHBAE
#WRITEQ,@RHCS |
#WRITEQ,QRHCS1
BITCNT
#RDY ,@RH(S1
PGETST
BITCNT
18%
BITCNT
#RDY ,aRH(S1
PGETST
BITCNT
PGETST
19%

MOV
BIC

aRH(S1,$REGO
;SET UP NEEDED BITS ONLY
tGu'IE'RDY'A16'A17'PSEL'DVA'MCPE'READb $REGO

MOV
MOV
MOV
TST
BEQ
CLR
(LR
JMP
MOV
MOV
MOV

@RH(S1,CS1
aRHW( ,W(
aRHBA ,BA
R1
87%
BAE
(S3
86%
aRHBAE ,BAE
@RH(S3,(S3
ARH(S2,(S2

sSET UNIT NUMBER
;SETUP BUS ADDRESS
IS IT AN 11 OR A 70
;ITS AN RH11
:SETUP BAE
STELL IT TO WRITE
;CREATE THE ERROR
;CLEAR BIT COUNTER
;IS RDY SET
;BIT IS SET
s COUNT UP
sNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
s15 1T SET YET?
s YES
:COUNT UP
;BIT IS NOT GOING TO SET

:CLEAR BITS NOT NEEDED
:SAVE RH(ST
s SAVE WORD COUNT
s SAVE BUS ADDRESS
LIS IT AN RH11
;NO IT'S A 70
:CLEAR BAE
;CLEAR (S3
s CONT INUE
s SAVE BUS ADDRESS EXTENSION
s SAVE RH(S3
;SAVE (S2

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:4

3857
3858
3859

017737
017737
017737
017737

160302
160276
160274
160254

003432
003436
003442
003440

007224
002000

160230

140000

001162

040000

001162

100000

001162

140000

001162

004124

177777

004124
004126
004130
004132
004134
004122

023324
040000

001162

100000

001162

000200

175400

004130
004132
030175
007224
004122

023262
023264
023270
022272
023274

023300
023302
023304

023310
023312
023314
023320

023322

MACYT1
127

000415
104171

004737

007224

004737
000405

104172
004737

000401

104013

032737
001003
105737

001010

001103

177570

7%:

8%:

TEST

10:46

PAGE

SEQ 0074

@RHST,DS1

;SAVE TESTER STATUS

MOV

aRHTDA, TDR

:SAVE

MOV
BIT
BNE
ERROR
JSR
BIT

BNE

RHER . ER1

ARHMR2, TC
#RDY , @RH( ST
998
102
R7,WHYFO
#PGE, IRH( S2

:SAVE ERROR REGISTER

TESTER DATA REG.

:SAVE MR2 TESTER REG.
1S READY SET
:YES CONTINUE TEST
:READY NOT SET
:ANY ERRORS SET
1S PGE SET

:YES CHECK TRE

:TRE BIT MUST BE IN ERROR

AND SC

CMP
BEQ
BIT

#SC ! TRE , $REGO
2%
#TRE , SRE GO

BIT
BNE
FRROR
BR
CMP

#SC, $REGO
43
51
8s
#5C ! TRE, SREGO

MOV
MOV

$CS1,$CS1
#MPE {MXF !NEM!NED! UPE 'WCE

MOV
MOV

$ST,$ST
#1LF ! CPE !RMR ! DPE 'RMBEX RFAIL !DTE !OPI, $ER

JSR
(LR

R7,WHYFO
BEF ORE
8s
#TRE , $RE GO
63
#5C, SREGO

BNE

MOV

22%:

MOV

6£%:

007224
041400

1%:

4%:

007224

ERROR BIT

BNE

3%:

000411
104011

9%
:

2%:

007224

PGE

MOV

160236

12=JUL=79

30A(7052)

JMp

BIT
BNE
BIT
BNE
ERROR
BR

22%

$(S53,8(S3

#=1,BEF ORE

1S JUST THE SC BIT SET
:SC BIT SET ERRONIOUSLY
:PGE NOT SET IN RHCS2
:SET UP TO TEST AGAIN
:1S SC AND TRE SET
*FIND THE ERROR

;TEST FOR SHORTS
.DLT,$CS2

;TELL

WHYFO ITS FOR SHORTS

:TEST FOR SHORTS
:WE HAVE CHECKED FOR SHORTS
*LEAVE THE TEST
:THEN IS THE TRE BIT SET
:SC BIT DID NOT SEE TRE BIT
(1S THE SC BIT SET

JSR

R7 ,WHYF O

:TRE
:TRE
:SET
:PGE
:SEE

BR
ERROR
JSR

8%
171
R7,WHVEQ

:SET UP TO TEST AGAIN
:SOMTHING WRONG WITH TRE BIT
*SEE IF AN ERROR BIT IS SET

B
ERROR

8%
11

ERROR

JSR

BR
ERROR

JSR
BR
ERROR
BIT
BNE
TSTB
BNE

7%
6
8s

:1S THE SC AND
TRE BITS SET
:YES PGE IS IN ERROR
1S JUST THE TRE BIT SET

123

R7,WHYFO

8h_
172

R7,WHYFO
&$

13
#SW14!SW9!SW8, 34177570
21%
$ERFLG
9%

HAS AN OPEN GOING TO BUS
SET LOGIC NOT WORKING
UP TO TEST AGAIN
HAS OPEN IN LINE GOING TQ BUS
IF ANY OTHER ERROR BIT IS

:SET OTHER THAN PGE

:OR BOTH PGE IN RHCS2 AND SC IN
:RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS
:SET UP TO TEST AGAIN
:SC BIT WAS SET BY EITHER ATTN OR
:FIND WHAT ERROR BIT

IS SET

:MCPE ERROR OR SC IS SHORTED TO +5 vOLTS
:SETUP TO TEST AGAIN
:TRE WAS SET BY OTHER THAN PGE
:FIND ERROR BIT THAT SET TRE
ISETUP TO TEST AGAIN
:TRE HAS AN OPEN GOING TO THE BUS
:ANY LOOPING BEEING DONE
:YES,LOAD TRE NO MATTER WHAT
:WAS THERE AN ERROR
1SKIP TRE CHECK

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

3913
3914
3915
3916
3917
3918

2919

023342
023350
023356
023360
023362
023366

112777
032777
001401
104050
004737
004737

000:00
002000

160014
157762

006572
050210

3943

3944
3945

3946
3947
3948
3949
3950

3951

3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968

21%:

MOVB
BIT
BEQ
ERROR
JSR
JSR

DI RERE R TR A AR AR R AR

10:46

PAGE

#TREB,aRHCS1B
#PGE ,dRH(S2
9%
50
R7,CLEER
R7 ,ERRTST
AR R P AR AR

SEQ 0075

.LOAD TRE
<DID ERROR CLEAR
JYES EXIT TEST
:LOADINp TRE DID NOT CLEAR ERROR
sSEE IF ERRORS ARE CLEARED

AR AR AR ARRNRR KA ARR RN AR R AR R AR AR AR

;=TEST 30
MXF ,TRE AND SC BIT TEST (RH11 ONLY)
;*THIS TEST SEES IF MXF CAN BE SET BY A MOVE
s*INSTRUCTION AND THAT TRE AND SC ARE SET IN
s*RHCST1.MXF CAN BE SET THIS WAY IN AN RH11 BUT (N
J*NOT BE SET THIS WAY IN AN RH70. . v eveeeecccncnces

3925

3941
3942

30A(71052)
12=JUL=79
PGE ERROR BIT TEST

9%:

3920
3921
3922
3923
3924

3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940

¢S$V11

023372
023374
023376
023400
023404
023412
023420
023424
023432
023434
023440
023442
023446
023454
023456
(023462
023464

(023466

000004
005701
100402
000137
012777
052777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

TST30:
024124
000007
001000
003446
001000

157726
157720

LEAP:

157706

18%:

157664

19%:

003446

003446
001000
003446

027466
023474

017737
042737

157636
027777

001162
001162

023502
023510
023516
023524

017737
017737
017737
005701

157622
157616
157612

003420
003444
003414

005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
032777
001016
022737

003416
003424
023560
157610
157604
157554
157550
157544
157542
157522
000200

003416
003424
003%422
003432
003436
003442
003440
157504

007224
001000

.
757476

140000

001162

023526

023530
023534
023540
023544
023552
023560
023566
023574
023602
023610
023616
023624
023626
023630
023634
023642
023644

001406

MIXIT:

R R AR R AR AR AR R AR AR AR R IR AR AR AR A RARRRARI R AR

SCOPE
TST
BMI
JMP
MOV
BIS
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC

R1
LEAP
FROG
#7 ,aRHCS?2
#MXF ,@RHCS?2
BITCNT
#AXF ,aRHCS2
MIXIT
BITCNT
18%
BITCNT
AMXF ,@RHCS?2
MIXIT
BITCNT

MOV
BIC

aRH(CS1,$REGO
sSET UP NEECDED BITS ONLY
#GO!JE'RDY'!A16!A17!PSEL
!DVA'MCPE 'READG, SREGO

MOV
MOV
MOV
TST

aRH(CS1,CS1
aRHWC ,wC
aRHBA ,BA
o

CLR
CLR
JMP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
JSR
BIT
BNE
CMP

BAE
(S3
86%
aRHBAE ,BAE
aRK(S3,CS3
aRH(S2,(S2
@RHST,DS1
aRHER ,ER1
aRHTDB, TDR
aRHMN2, T(
#RDY ,aRH(S1
99%
102
R7 ,WHYFO
AMXF ,ARH(S2
1%
#SC ! TRE ;$REGO

BEQ
8R

BEQ

87%:

86%:

99%:

AR AR AR R AR RNk R

;IS IT A 70 OR 11
JIT'S AN RH11 DO THE TEST
sRH70,EXIT TEST
;SETUP UNIT 7
JSET MXF
sCLEAR BIT COUNTER
;IS MXF SET
;BIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
23S 1T SET YET?
JYES
s COUNT UP

MIXIT
19%

;BIT IS NOT GOING TO SET
4

sCLEAR BITS NOT NEEDED
s SAVE RHCS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RHIM

87%

JNO IT'S A 70°

;CLEAR BAE
;CLEAR (CS3
2 CONT INUE
;SAVE BUS ADDRESS EXTENSION
:SAVE RHCS3
;SAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER
sSAVE TESTER DATA REG.
sSAVE MR2 TESTER REG.
1S READY SET
JYES CONTINUE TEST
JREADY NOT SET
;ANY ERRORS SET
IS MxF SET
JYES CHECK TRE AND SC
;1S THE SC AND TRE BITS SET

‘

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11

3969
3970
3971

023652

001460
032737

040000

001162

100000

001162

024042

000405

104011

004737
104033
004737
000401
104013

032737
001003
105737

30
8$

sMXF NOT SET IN RHCS?2

041400

177570

004737
004737

006572
050210

157262
157230

*TEST FOR SHORTS
;WE HAVE CHECKED FOR SHORTS
sLEAVE THE TEST

sTHEN IS THE TRE BIT SET
:SC BIT DID NOT SEE TRE BIT

6
8%
31

TRE SET LOGIC NOT WORKING
:SET UP TO TEST AGAIN
:MXF HAS OPEN IN LiNE GOING TO BUS

IS THE SC BIT SET
TRE HAS AN OPEN GOING TO BUS

s SEE IF ANY OTHER ERROR BIT IS
;SET OTHER THAN MXF
;SET UP TO TEST AGAIN
s SOMTHING WRONG WITH TRE BIT
sSEE _IF AN ERROR BIT IS SET

;OR BOTH MXF IN RHCS2 AND SC IN

JRHCS1 HAS AN OPEN BETWEEN IT AND THE BUS

sSET UP TO TEST AGAIN
:SC BIT WAS SET BY EITHER ATTN OR
sFIND WHAT ERROR BIT IS SET
sMCPE ERROR OR SC IS SHORTED TO +5 VOLTS
;SETUP TO TEST AGAIN

11
R7 ,WHYFO

8%
33
R7 ,WHYFO

;TRE WAS SET BY OTHER THAN MXF
sFIND ERROR BIT THAT SET TRE

7%:

13
g§¥14:sw9:su8.a#177570

001103
000100
001000

;TELL WHYFO ITS FOR SHORTS

6%:

$ERFLG
9%

21%:

#TREB,aRH(S1B

g?XF.aRHCS2

50
R7,CLEER
R7 ,ERRTST

9%:
FROG:

THE ERROR
;TEST FOR SHORTS

#MPE TPGE !NEM
' UPE
!NED
!WCE
'DLT,$CS2

$CS3,9CS3
$ST,$ST
SER. SER

8%
32
R7 ,WHYFO

4%:

007224

;FIND

R7 ,WHYFO

3%:

007224

#SC,$REGO
7%

2%:

IN ERROR

;SET UP TO TEST ‘AGAIN
;1S SC AND TRE SET

#T
,RE
SREGO

001162

IN ERROR

;1S JUST THE SC BIT SET
;SC BIT SET ERRONIOUSLY

R7 ,WHYFO
BEFORE
8%

22%:

21S JUST THE TRE BIT SET

#-1,BEFORE

007224

001010
112777
032777
001401
104050

:TRE BIT MUST BE

22%

004132
004134
004122

000415

000411

$£C0S1,8CS1

007224

024032
024034
024036

sYES MXF

#5C,$REGO
4%

SEQ 0076

#TRE ,$REGO

004124
004126
004130

100000

004737

BEQ

004124

001162

10:46
PAGE 77
MXF,TRE AND SC BIT TEST (RH11 ONLY)

#SC!TRE, $REGO

177777

104032

001162 - 1%:

007224
004122
024056
040000

024016

12=JUL=79

140000

176400

024120
024124

T30

07=JUN=79 13:44

004130
004132
004134

024022
024024
024026

MACYT1 30A(1052)

:sSETUP TO TEST AGAIN

:TRE HAS AN OPEN GOING TO THE BUS

:ANY LOOPING BEEING DONE
sYES,LOAD TRE NO MATTER WHAT
:WAS THERE AN ERROR
:SKIP TRe CHECK

:LOAD TRE
:DID ERROR CLEAR
sYES EXIT TEST
;LOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE CLEARED

. t'tttt'tttttttttt.'tt'tfit'tttt.'.ttfi"il't‘.tti"t'tt't".'."t

S*TEST 31

s*THIS

MCPE AND SC ERROR TET
TEST CHECKS THAT MCPE CAN BE

:*AND THAT MCPE SETS SC IN RMCS1

SET

IN RH(CS?

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

MACY11
131

4025

024124
024126
024134
024142
024150
024156
024162

000004
012777
012777
013777
013777
005037
032777

000007
000010
001162
001162
003446
000200

4034

024172

005237

003446

4036
4)37
4)38
4939
4040
4041
4042

024200
024204
024212
024214
024220
024222
024224

005037
032777
001004
005237
001401
000770

003446
000200

017737

157100

003420

003416
003424
024302
157066
157062
157032
157026
157022
157020
157000
000200

003416
003424
003422
003432
003436
003442
003440
156762

007224
020000

156744

100000

156734

040000
177400
177777

004124
004126
004122

4035

4043

4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062

4063
4064
4065
4066
4067
4068

4069
4070
4071
4072
4073
4074

4075
4076
4077
4078
4079
4080

PAGE 78

SEQ 0077

-Q"Q.QQ"QI‘!Q'Q'.."."".Q'"ttfllQQ.lt.Qfi'..'t.".tfi""'.'t'.

4026
64027
4028
4029
4030
4031
4032

¢033

M 6
30A(1052)
12-JUL=79
10:46
MCPE AND SC ERROR TET

024170

024176

024224

024232
024240
024246
02425G
024252
024256
024262
024266
024274
024302
024310
024316
024324
024332
024340
024346
024350
024352
024356

024364
024366
024374
024376
024404
024412

001015
001371

017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
032777

001425
032777
001416
012737
012737
012737

157140

TST31:

18%:

157074
157070

004737
005037
000406
104130

007224
004122

024434
024440

000137
104131
004737
004737
004737

024446
007224
006572
050210

SCOPE
MOV
MOV
MOV
MOV
CLR
BIT

#7 ,8RHCS?2
#1CPA,aRHMR1
$REGO,aRHTDB
$REGO,aRHTDB
BITCNT
#RDY ,@RHCS1

INC

BITCNT

BNE
BNE

157116

19%:

003446

024420
024424
024430
024432

024442
024446
024452

157204
157212
157200
157172

003444
003414

MCPET:

;BIT IS SET

18%

sNOT FINISHED COUNTING

:COUNT UP

BITCNT
#RDY ,@RHCS1
MCPET
BITCNT
MCPET
19%

;GET READY TO DO IT AGAIN
IS IT SET YET?
Y¢S
:COUNT UP
;BIT IS NOT GOING TO SET

MOV

@dRHCS1,(S1

s SAVE RHCS1

22%:

BEQ
BIT
BEQ
MoV
MOV
MOV
JSR
CLR
BR
ERROR

1%:

JMP
ERROR

ERR30:

MCPET

CLR
BIT
BNE
INC
BEQ
BR

MOV
MOV
TST
BEQ
CLR
CLR
JMP
87%:
MOV
MOV
86%:
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
JSR
MPETST: BIT

JSR
JSR
JER

aRHWC , WC
aRHBA,BA
R1
87%
BAF
€S .
86%
@RHBAE ,BAE
@RH(CS3,(S3
@RH(CS2,(S2
@RHST,DS1
aRHER,ER1
aRHTDB, TDR
aRHMRZ2, T(
#RDY ,aRHCS1
MPETST
102
R7 ,WHYFO
#MCPE ,@RHCS1

sSETUP UNIT NO.
s INVERT CONTROL PARITY
s TRANSFER INFO TO TESTER
;DO _IT FOR SECOND TIME
;CLEAR BIT COUNTER
;1S RDY SET

s SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
:NC IT'S A 70
;CLEAR BAE
;CLEAR (S3
- CONT INUE
sSAVE BUS ADDRESS EXTENSION
;SAVE RHCS3

;SAVE (CS2
;SAVE TESTER STATUS
sSAVE ERROR REGISTER
sSAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.
;IS READY SET
sYES,TEST MCPE
JREADY IS NOT SET
;ANY ERRORS SET
;IS MCPE SET

1%
#SC,aRHCST
:1S SC _SET
22%
:SC _NOT SET
#TRE ,$CS1
:GET READY TO TEST FOR SHORTS
#MPE !MXF ! PGE !NEM!NED ! UPE !WCE !DLT,$CS2
#-1,BEFORE
R7 ,WHYFO
;SEE IF ANY SHORTS
BEFORE
ERR30
.GET OUT OF TEST
130
sMCPE ERROR OK BUT SC DID
sNOT SET SC HAS OPEN TC
;BUS OR MCPE GOING TO OR
;GATE FOR SC WAS NOT SEEN
ERR30
131
sMCPE DID NOT SET
R7 ,WHYFO
;WAS THERE ANOTHER ERROR
R7,CLEER
;CLEAR ERRORS
R7 ,ERRTST
;WAS THERE AN ERROR

‘

MASSBUS RH70 AND RH11_DIAGNCSTIC
CZRHBE .P11
07=JUN=79 13:44

MACY11
131

N 6
30A(7052)
12=4UL=79
10:46
MCPE AND SC ERROR TET

PAGE 79

SEQ 0078

4081

4082
4083

AR A AR R AR AR AR R AR

SeTEST 32

AR AR AR

AR AR R RN

AR AR AR AR RARRRARARA AR

DOUBLE TRANSFER TEST,1 WORD FROM AN ADDRESS BASE 4

;*THIS TEST CHECKS THAT A ONE WORD TRANSFER
;*FROM AN ADDRESS DIVISIBLE BY & WILL NOT SET

024456
024460
024462
024464

000004
005701
100532

012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770
017737
017737
017737
005701

TST32:
177777
004000
000000
000007
000061
003446
000200

18%:

156552

19%:

003446

156534
156530

156524

003420
003444
003414

BITCNT
#RDY ,aRH(S1

BNE
INC
BNE
CLR
BIT
BNE

86%:

156432

2%:

3%
BITCNT

18%

MOV

aRHCS1,(S1

MCV

aRHBA ,BA

aRHW(C ,WC

R LRI

;IS IN AN RH11

;.GET OUT OF TEST
sSET UP WC FOR ONE WORD
. SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
;DEVICE 7
JTELL IT TO WRITEO
JCLEAR BIT COUNTER
1S RDY SET

;BIT IS SET
;COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
JIS IT SET YET?
JYES
;COUNT UP

;BIT IS NOT GOING TO SET
;SAVE RHCS1

;SAVE WORD COUNT

;SAVE BUS ADDRESS

;IS

CLR

BAE

;CLEAR BAE

JMP

86%

MOV
MOV
MOV

87%
(S3

;CLEAR (S3

aRHBAE ,BAE
aRHCS3,CS3
aRH(S2,(S2

aRHST,DS1
aRHER,ER1
aRHTDB, TDR

BNE
ERROR
JSR

#RDY ,aRHC(CS1
1%
102
R7 ,WHYFO

BIT

BEQ
ERROR
JSR
JSR
JSR

IT AN RH11

JNO IT'S A 70

MOV
MOV
MOV

MOV
BIT

1%:

#WRITEOQ,aRH(ST

BEQ
BR

CLR

87%:

TST33

8ITCNT
#RDY ,aRH(CS1
3%
BITCNT
3%
19%

TST

156416

024744

CLR
BIT

BEQ

00341€
003424
003422
003432
003436
003442
003440

007224
006572
050210

#=1,3RHW(
#EVENAD
, aRHBA
#ZERO, aRHBAE
#7 ,aRHCS2

MOV

003416
003424

007224
202000

MOV
MOV
MOV
MOV

INC

MOV

156606

003446

003446
000200

SCOPE
TST

BMI

156640
156634
156652
156624

156574

;*DBL IN RHCS3...... Y DY, seonsssossussns

aRHMR?2, T

#DBL ,dRH(S3

2%
125
R7,WHYFO
R7,CLEER
R7 ,ERRTST

s CONT INUE

;SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
;SAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE . TESTER DATA REG.

;SAVE MR2 TESTER REG.

1S READY SET
sRDY SET CONT. TEST
JREADY DID NOT SET
;ANY ERRORS SET

;1S DOUBLE SET

;DBL SET
;DBL DID SET ON A 1 WORD TRANSFER
JTELL WHY NOT
;CLEAR ERRORS

:;tlt.tfit'.ttttt.ltt'tt..iiitfititilttktfi.t.tfit't!.tt'..t't.tt'tt'

S*TEST 33

DOUBLES TEST FOR TWO WORD BASE 4 ADDRESS

s*THIS TEST CHECKS THAT DOUBLE WILL SET FOR A

;*TWO WORD

TRANSFER STARTING FROM AN ADDRESS

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=-79 13:44

MACY11
733

6137

4139

024750

024752
024754
024756
024764
024772
025000
025004
025012
025014
025020
025022
025026
025034
025036
025042
025044

4156
4157
4158
4159
4160
4161
4162
4163

025046
025046
025054
025062
0259070
025072
025074
025100

4165
4166
4167
4168

025110
025116
025126
025132

4164

4169
4170

4171
4172
4173
4174
4175

4176
4177

4178
4179
4180
4181

4182

025104

025140
025146

025154
025162
025170
025172
025174

025200
025206

025210
025212
025216
025222

000004

005701
100524
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737
017737
017737
005701
001406
005037
005037

000137

017737
017737
017737
017737
017737
017737

017737
032777
001003
104102
004737

032777
001003

104127
004737
004737
004737

TST33:
177776
004000
000061
003446
000200

156346
156342
156330
156316

4191
4192

18%:

003446

003446
000200

156274

19%:

003446

156256
156252
156246
003416
003424
025124
156244
156240
156210
156204
156200
156176

156156
000200
007224

002000

003420
003444
003414

003416
003424
003422
003432

DBLWDS:

87%:

86%:

003436
003442

156154

007224
006572
050210

SCOPE

TST
BM!
MOV
MOV
MOV
CLR

BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

R1
TST34
#=2 ,aRHW(
#EVENAD , 9RHBA
A#WRITEQ,aRHCST
BITCNT
#RDY ,@RH(CS1
DBLWDS
BITCNT
18%
BITCNT
#RDY ,aRH(CS1
DBLWDS
BITCNT
DBLWDS
19%

MOV
MOV
MoV
TST
BEQ
CLR
CLR

@RHCS1,(S1
aRHWC ,W(
aRHBA ,BA
R1
87%
BAE
cS3

s SAVE RHCS1
s SAVE WORD COUNT
s SAVE BUS ADDRESS
IS IT AN RH11
sNO IT'S A 70
. CLEAR BAE
;CLEAR (S3

MOV
MOV
MOV
MOV

aRHBAE ,BAE
@dRH(CS3,CS3
@dRH(S2,(S2
@RHST,DS1

;SAVE
s SAVE
;SAVE
sSAVE

BIT

JMP

MOV
MOV

003440
156140

FOOEY:

ERTR:

MOV
BIT
BNE
ERROR
JSR

BIT
BNE
ERROR
JSR
JSR
JSR

86%

aRHER,ER1
aRHTDB, TDR

aRHMRZ, T(
#RDY ,aRHC(S1
FOOEY
102
R7 ,WHYFO
#DBL ,aRH(S3
ERIR
127
R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

;IS IT AN 11 OR A 70
;;GET OUT OF TEST
;SETUP WORD COUNT FOR DOUBLE TRANSFER
;CORRECT BA
sTELL IT TO WRITE
;CLEAR BIT COUNTER
;IS RDY SET

;BIT IS SET
JCOUNT UP
sNOT FINISHED COUNT INC
:GET READY TO DO IT AG'N
¢1S 1T SET YET?
s YES
s COUNT UP
;BIT IS NOT GOING TO SET

2 CONT INUE

BUS ADDRESS EXTENSION
RHCS3
(S2
TESTER STATUS

:SAVE ERROR REGISTER
sSAVE TESTER DATA REG.

:SAVE MR2 TESTER REG.
;1S READY SET
JRDY IS SET
sRDY DID NOT SET
;ANY ERRORS SET

;1S DOUBLE SET
;DBL IS SET
;DBL DID NOT SET IN RH(CS3
sANY OTHER ERROR SET
;CLEAR ERRORS

:.'Qt!’ttt*ifittttfit*ttt*fi*tt'.t'fit*fifitIttt*i'ittt*itfi‘itttfil’ttittit

J*TEST 34
DOUBLE TEST ,3 WORD TRANSFER FROM A BASE & ADDRESS
;*THIS TEST CHECKS THAT DBL WILL NOT SET
;*IN RHCS3 AFTER A 3 WORD TRANSFER STARTING
:*FROM AN ADDRESS DIVISABLE BY 4
2R sasensanosne PTG DRV ncnsinsvsanssontes

4188

4190

SEQ 0079

::t‘lt'.lt".t'.Q.t."'."iit'.tfitttfittttfiitttfitt.fii'..fi"t.'t'fi'

4183
4184
4185
4186
4187
4189

;*DIVISABLE BY 4........ Y DMLY, ivsonssnnans

4138

4140
4141
6142
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4156
4155

3CA(7052)
12-JUL=79
10:46
PAGE 80
DOUBLES TEST FOR TWO WORD BASE 4 ADDRESS

025226

025230

025232
025234

""t.ttttl*tittttfitttttfiitti*‘fitlttfittt'ttfittttitfi*ttt’. ARk h

00C~)4

TST34:

005701

100524
012777

177775

156070

SCOPE

TST

BMI
MOV

TST35
#-3,aRHW(C

kbR

IS IT AN 11 OR A 70

;.GET OUT OF TEST
;SET UP FOR A 3 WORD

TRANSFER

.
MACY11
T34

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

4193

4194
4195
4196
4197
4198
4199
4200
4201
4202
4203

025242
025250

012777

025256
025262
025270

003446
000200

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003

4243
4244
4245
4246
447

4248

156040

18%:

156016

19%:

104102

004737
032777
001403

025500

004737

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440
155662
007224
002000

007224
006572
050210

155676

MOV

#EVENAD ,aRHBA

;CORRECT BA

CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

BITCNT
#RDY ,aRHC(CS1
THREE
BITCNT
18%
BITCNT
#RDY ,aRH(CS1
THREE
BITCNT
THREE
19%

sCLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
;COUNT UP
JNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
JIS IT SET YET?
SYES
;sCOUNT UP
;JBIT IS NOT GOING TO SET

MOV
MOV

aRH(CS1,CS1
aRHW(C ,WC

;SAVE RHCS1
sSAVE WORD COUNT

;IS

CLR
CLR
JMP
MOV
MOV

BAE
(S3
86%
aRHBAE ,BAE
@RH(S3,CS3

;CLEAR BAE
;sCLEAR (S3
2 CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3

MOV
MOV
MOV

aRHST,DS1
@RHER ,ER1
aRHTDB, TDR

MOV

003446
THREE
:

87%:

86%:

aRHBA ,BA

BEQ

87%

MOV

ERPOR
JSR

102
R7 ,WHYFO

BIT

ERPIP:
e

IT AN RH11

JNO IT'S A 70

aRH(S2,(CS2

aRHMR?2, T(C
#RDY ,adRHC(CS1

BEQ
ERROR
JSR
JSR
JSR

JTELL IT TO WRITE

:SAVE BUS ADDRESS

MOV
BIT

ENE

ERRIP:

#WRITEOQ,ARHCS1

MOV

TST

;SAVE (S2

;SAVE TESTER STATUS
;sSAVE ERROR REGISTER
;SAVE TESTER DATA REG.

;SAVE MR2 TESTER REG.
;1S READY SET

ERRIP

;RDY

IS SET

;RDY DID NOT SET
;ANY ERRORS SET

#DBL ,aRH(CS3

;1S DOUBLE SET

ERPIP
126
R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

;DBL IS SET
sDOUBLE SET ON A 3 WORD TRANSFER
;sSEE IF ANY ERROR BITS ARE SET
;CLEAR ERRORS

eI 22322323332222232T"

;*TEST 35
DOUBLE TEST ,4 WORDS FROM A BASE 4 ADDRESS
s*THIS TEST CHECKS THAT DBL WILL SET IN RHCS3

4234

4235
4236
4237
4238
4239
4240
4241
4242

156064
156052

003446

4204

4205
4,206
4207
4208
4209
4210
4211
4212
4213
4214
4215
%216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233

004000

R
30A(7052)
12-JuL=79
10:46
PAGE 81
DOUBLE TEST ,3 WORD TRANSFER FROM A BASE 4 ADDRESS

s*AFTER A 4 WORD TRANSFER STARTING WITH AN
.’"ADDRESS

s 2 e

025504

025540
025546
025550

000004
005701
100524

012777
012777
012777
005037
032777
001015
005237

TST35:

003446

18%:

4*sanxansakrtkhhhhhknnsk

T DR S NS DRV e ssisinivisauanaitssiad

SCOPE

s 332232322223222222222222222%

TST

MOV
MOV

#=4 ,aRHWC
#EVENAD , aRHBA

BMI

177774

000200

DIVISABLE

TST36

MOV
CLR

#WRITEQ,@RH(ST
BITCNT

BNE
INC

DBLED
BITCNT

BIT

#RDY ,@RHCS1

;IS

:;GET OUT OF

IT AN 11

TEST

OR A 70

;SET UP FOR 4 WORD TRANSFER
s CORRECT BA
JTELL IT TO WRITE
sCLEAR BIT COUNTER
;IS RDY SET
;BIT IS SET
s COUNT UP

SEQ 0080

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

4249

4250

025554

025556

4251
4252
4253
4254

025562
025570
025572
025576

4256

025602

4255

025600

001371

005037

032777
001004
005237
001401

025602
025610
025616
025624
025626
025630

017737
017737
017737
005701
001406
005037

4265
4266
4267

025644
025652
025660

017737
017737
017737

4268
4269

4270
4271
4272
4273

4274
4275
4276
4277
4278
4279

4280
4281
4282
4283

025634
025640

025666
025674
025702
025710
025716
025724

025726
025730
025734
025742
025744
025746

025752
025756

000200

155540

155522
155516
155512

003420
003444
003414

017737
017737

155450
155444

155510
155504
155454

003416
003424
003422

155442
155422
000200

003442
003440
155404

003432
003436

007224
002000

155420

007224
006572
050210

4292

4293
4294

4295
4296
4297
4298
4299
4300

4301
4302
4303
4304

BIT
BNE
INC
BEQ

#RDY ,aRH(CS?
DBLED
BITCNT
DBLED

IS IT SET YET?
; YES
:COUNT UP
BIT IS NOT GOING TO SET

MOV
MOV
MOV
TST
BEQ
CLR

aRHCS1,CS1
ARHWC ,WC
aRHBA ,BA
R1
87%
BAE

;SAVE RHCS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR BAE

86%:

MOV
BIT
BNE

ERROR
JSR
DAYAMS: BIT
BNE
ERROR
JSR
JSR
JSR

BITCNT

;GET READY TO DO IT AGAIN

19%

(S3
86%
aRHBAE ,BAE
aRH(S3,(S3
aRH(S2,(CS?
@RHST,DS1
aRHER,ER1
aRHTDB, TDR

;CLEAR (S3
2 CONT INUE

;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;IS READY SET
JRDY IS SET

aRHMRZ2, TC
#RDY ,aRH(CS1
DAYAMS

102
R7 ,WHYFO
#DBL ,aRH(S3
ERR29
124
R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

sRDY DID NOT SET
;WHAT ERRORS ARE SET
;1S DOUBLE SET
;TEST IS OK
;DOUBLE DID NOT SET AFTER A 4 WORD
oSEE IF ANY ERROR ARE SET
;CLEAR ERRORS

A AR AR R AR A AR AR A AR AR AR AN R AR

AR AR R

AR R RN R

R AR R R

TR RN

*TEST 36
DOUBLE TEST 1WORD TRANSFER READ
s*THESE TEST CHECK DBL IN RH(CS3 WITHREAD FWD AND REV
s*WRITE FWD AND REV AND WITH BAI SET IN RHCS?
s *OPERATION BEING PREFORMED WILL BE PRINTED OUT

Ly R
4291

87%:

SRR

4285
4286
4287
4288

sNOT FINISHED COUNTING

CLR
JMP
MOV
MOV
MOV
MOV
MOV
MOV

ERR29:

L4284

4289

DBLED:

003416

003424
025660

017737
017737
032777
001003
104102
004737
032777
001003
104124
004737
004737
004737

19%:

SEQ 0081

18%

CLR

003446

005037
000137

‘
7
D
30A(7052)
12-JUL=79
10:46
PAGE 82
DOUBLE TEST ,4 WORDS FROM A BASE & ADDRESS

BNE

003446

000770

4257
4258
4259
4260
4261
4262

4263
4264

MACY11
135

025762

025764
025766

025770
025776
026004
026012
026020
026026

026032
026040
026042
026046

g PR

000004

012777
177777
012777 004000
012777 - 000000
012777
000007
012777 000071
005037
003446

000200

003446

B o

- Qttttktttttitttttttttttt"tttttttttttttt'ttt!tttt't'ttt't'ttttt

155334
155330
155346
155320
155302

155270

'IN ERROR MESSAGE.

ey T WS AP . b

TST36:

005701
100532

032777
001015
005237
001371

18%:

SCOPE

TST
BMI
MOV
MOV
MOV
MOV
MOV
(LR
BIT
BNE
INC

BNE

R1
TST37
#=1,aRHW(
#EVENAD , aRHBA
#ZERO, aRHBAE
#7,3RHCS?2
#READO,@RHCS1
BITCNT

#RDY ,aRHC(CS1
3%
BITCNT
18%

;IS IN AM RH11
;sGET OUT OF TEST
JSET UP WC FOR ONE WORD
sSETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
;DEVICE 7
JTELL IT TO READO
sCLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
JCOUNT UP

JNOT FINISHED COUNTING

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRi4BE.P11
07=JUN=79 13:44

4305
4306
4307

4308

4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319

4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331

4332
4333
4334
4335
4336
4337
4238
4339
4340
4341
43462
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355

4356

6357
4358

4359
4360

026050
026054
026062

026110
026116
026120
026122
026126
026132
026136
026144
026152
026160
026166
026174
026202
026210
026216
026220
026222
026226
026234
026236
026240
026244
026250

005037
032777
001004
005237
001401
000770

003446
000200

MACY11
736
155246

19%:

C03446

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003

003420
003444
003414

003416
003424
003422
002432
003436
0C3442
003440

3%:

87%:
86%:

104154
004737
004737

004737

007224
006572
050210

2%:
S

JYES

:BIT IS NOT GOING TO SET

BITCNT
19%

MOV

aRHBAE ,BAE

s CONT INUE
s SAVE BUS ADDRESS EXTENSION

CLR
JMP

MOV

MOV
MOV
MOV

BEQ
ERROR
JSR

JSR
JSR

CS3
86%

;CLEAR (S3

@RHCS3,(S3
@aRH(S2,(S2

sSAVE RH(CS3
;SAVE (S2
;SAVE TESTER STATUS

a@RHST ,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR2,
T(

;SAVE MR2 TESTER REG.

1%
102

sRDY SET CONT.
;READY DID NOT

:SAVE ERROR REGISTER

;SAVE TESTER DATA REG.

;IS REABY SET

#RDY ,aRHC(S1

R7 ,WHYFO

TEST
SET

;ANY ERRORS SET
;1S DOUBLE SET
;DBL SET
;DBL DID SET ON A 1 WORD TRANSFER
sTELL WHY NOT
;CLEAR ERRORS

#gBL.aRHCS3

154
R7 ,WHYFO
R7.CLEER
R7 ,ERRTST

AR AR A AR A AR AR

S*TEST

:COUNT UP

BEQ
CLR

BIT

;

;GET READY TO DO IT AGAIN
sIS IT SET YET?

#RDY ,@RH(CS1

s SAVE RHCS1
s SAVE WORD COUNT
;SAVE BUS ADDRESS
;1S IT AN RH11
sNO IT'S A 70
;CLEAR BAE

BIT
BNE
ERROR
JSR

18$:

BITCNT

SEQ 0082

aRH(CS1,CS1
aRHWC
, WC
aRHBA ,BA
R1
87%
BAE

MOV

104102

155126

CLR

BIT
BNE
INC
BEQ
BR

MOV
MOV
MOV
TST

155112

004737
032777
001403

7
E
30A(7052)
10:46
12=JUL=79
PAGE 83
DOUBLE TEST TWORD TRANSFER READ

AR A AR AR ARA AR A AR R AAAAAAAARRARRAA AR R AR AR kkokok kW

37
DOUBLE TEST WITH 2 WORD TRANSFER AND BAI SET
s*THESE TEST CHECK DBL IN RH(CS3 WITHREAD FWD AND REV

;*WRITE FWD AND REV AND WITH BAI SET IN RHCS2

;*OPERATION BEING PREFORMED WILL BE PRINTED OUuT
'IN ERROR MESSAGE.

................ RH70 ONLY

026254
026256
026260
026262
026270
026276
026304
026312
026320
026324

026332
026334
026340
026342
026346
026354

18137

000004
005701

100532

012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004

t'tttttt"tttt'tt*fitttttit*fitttfittfitt*tfittt'ittit‘ttttttttifittt

TST

BMI

177776
004000
000000

MOV
MOV
MOV
MOV

000017
000061
003446
000200

18%:

003446
003446
000200

SCOPE

154754

19%:

MOV
CLR

BIT

BNE
INC
BNE
CLR
BIT
BNE

TST40
#-2 ,aRHWC
#EVEN
, aRHBA
AD
#ZERO,dRHBAE
#7!BA] ,aRH(CS?2
#WRITEQ,aRH(S1

BITCNT

#RDY ,@RH(S1

3%
BITCNT
18%
BITCNT

#RDY ,@RH(S?

;IS IN AN RH11
;GET OUT OF TEST

sSET UP WC FOR TWO WORD

:SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION

sDEVICE 7
JTELL IT TO WRITEOQ
;CLEAR BIT COUNTER

;IS RDY SET
;BIT IS SET
;COUNT UP
JNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN

:5;517 SET YET?

MASSBUS RH70 AND RM11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

4361
4362
4363
4364
4365
4366
4367
4368
4369
4370
4371

026356
026362
026364
026366
026366
026374
026402

026410
026412

005237
001401
000770
017737
017737
017737
005701
001406
005037
005037
000137

4373
4374

026430
026436

017737
017737

4376
4377
4378

026452
026460
026466

017737
017737
017737

4381

026510

4384

026520

4387
4388
4389

026532
026536
026542

017737

017737
032777

001003

004737

MACY11
137

003446
5

003420
003444
003414

003416
003424
026444

154724
154720
154670
154664
154660
154656

154636
000200
007224

032777

002000

004737
004737
004737

007224
006572
050210

INC

BITCNT

19%

BEQ

MOV

aRH(ST,(ST

;SAVE RHCS1

MOV
TST

aRHBA ,BA
R1

;SAVE BUS ADDRESS
;IS IT AN RH11

CLR

BAE

JMP
MOV

86%
aRHBAE ,BAE

CLR

87%:

86%:

003440
154620

154634

Py 3

adRHWC ,W(C

87%

:NO IT'S A 70
;CLEAR BAE

(S3

;CLEAR (CS3

s CONT INUE
;SAVE BUS ADDRESS EXTENSION

@RHCS3,(CS3
aRH(CS2,(CS2

MOV

aRHTDRB, TDR

.SAVE TESTER DATA REG.

sRDY SET CONT. TEST

MoV
MOV

aRHMR2,T(
#RDY ,aRHCS1

ERROR

102

:SAVE TESTER STATUS
;SAVE ERROR REGISTER

:SAVE MR2 TESTER REG.
;1S READY SET

JSR
BIT
BEQ
ERROR
JSR

R7 ,WHYFO
#DBL ,aRH(CS3
2%
153
R7 ,WHYFO

JSR

R7 ,ERRTST

:SAVE RHCS3
;SAVE (CS2

@RHST,DS1
aRHER,ER1

MOV
BIT

JSR

JREADY DID NOT SET

:ANY ERRORS SET
;IS DOUBLE SET
;DBL SET
;DBL DID SET ON A 2 WORD TRANSFER
sTELL WHY NOT

R7,CLEER

;CLEAR ERRORS

AR A ARARRA R AR AR AR R RRARARRRR AR AR AR RN RRRNRRRRA R AR AR R R

S*TEST 40

s*THESE
;*WRITE

;SAVE WORD COUNT

MOV
MOV

BNE -

1%:

s COUNT UP

;BIT IS NOT GOING TO SET

BEQ

003416
003424
003422
003432
003436
003442

SEQ 0083

MoV

4391

F
7
30A(7052)
12=JUL=79
10:46 PAGE 84
DOUBLE TEST WITH 2 WORD TRANSFER AND BA] SET

AR A AR

DBL TEST 2 WORD TRANSFER WITH BAI AND WRITE REV
TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
FWD AND REV AND WITH BAI SET IN RHCS2

;*OPERATION BEING PREFORMED WILL BE PRINTED OUT
'IN ERROR MESSAGE.

................ N

L DA
Rl P

. ifi"ttttttttttt"fi.ttt'tittt'i'tt*lt*fififi‘l'tfi'tti.*ttfil'ti"'fi'

4398
4399

026546
026550

000004
005701

4401
4402
4403
4404

026554
026562
026570
026576

012777
012777
012777
012777

177776
004000
000000
000017

4406.:026612
4407 026616

005037
032777

003446
000200

4409
4410

026626
026632

005237
001371

003446

4412

026640

032777

000200

4400

4413

4414
4415
46

026552

026646

026650
026654
026656

100532

012777

005037
001004

005237
001401
000770

T$740:

000067

003446

SCOPE
TST

MOV

#-2 , aRHWC

BM]

154550
154544
154562
154534
154516

MOV

18%:

154462

19$:

TST41

;:GET ouf OF

IN AN RH11

‘

TEST

;SET UP WC FOR TWO WORD

HEVENAD , 9RHBA

*SETUP BUS ADDRESS

MOV

#ZERQ , ARHBAE

*SETUP BUS ADDRESS EXTENSION

CLR
BIT

BITCNT
#RDY , @RHCS1

*CLEAR BIT COUNTER
IS RDY SET

MOV
MOV

154504

BNE
INC
BNE

CLR
BIT

BNE
INC
BEQ
BR

#7BAT,@RHCS2
#WRITEG, ARHCS1

3
BITCNT
18$
BITCNT

#RDY
, BRH( S 1

3$
BITCNT
38
19%

DEVICE 7
STELL IT TO WRITE6

:BIT IS SET
*COUNT UP
NOT FINISHED COUNTING
:GET READY TO DO IT AGAIN

*1S

IT SET YET?

‘YES
:COUNT UP
:BIT IS NOT GOING 10 SET

MASSBUS PH70 AND RH17 _DIAGNOSTIC
(ZRHBE
. P11
07=JUN=7G 13:44

4417

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737

44618
4419
4620
4621

4622
4423

6624

4425
4426

4427
4428
4429

017737
017737
017737
017737

4430
3
- 4432
4433
4434
4435
L4636
4437
4438
4439
4440
444
L4472

4443

017737
032777
001003
104102

154434

003416
003424
026736
154432

154426
154376
154372
154366
154364
154344
000200

004737
032777
001403-

007224
002000

004737
004737
004737

007224
006572
050210

104155

027034

154444
154440

MACY11
740

003420
003444

4456

4457
4458
4459
4460

4461

4462
4463
4464
4465

4466

4467
4468
4469
4470
4471
4472

MOV
TST

BEQ

003416
003424
003422
003432
003436
003442
003440

87%:
B6%:

154326

1%:

2%:

aRHBA ,BA
R1

(S3
36%
aRHBAE ,BAE
aRH(CS3,CS53
@RH(CS2,(S2

MOV
MOV
MOV

;CLEAR (S3

2 CONT INUE
. SAVE BUS ADDRESS EXTENSION

;SAVE RHCS3

;SAVE (S2
;SAVE TESTER STATUS

aRHST ,DS1
aRHER ,ER1
adRHTDB, TDR

MOV
BIT
8NE

aRHMRZ2,
TC
#RDY ,aRHC(S1
1%

JSR
BIT

R7 ,WHYFO
#DBL ,aRH(S3

ERROR

154342

. SAVE WCORD COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR BAE

BAE

(LR
JMP
MOV
MOV
MOV

BEQ
ERROR
JSR
JSR
JSR

SEQ 0084

;SAVE RHCS1

@RH(CST,CS1

aRHW(C ,W(C

87%

CLR

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

;SAVE MR2 TESTER REG.
;IS READY SET
JRDY SET

102

CONT.

TEST

JREADY DID NOT SET
;ANY ERRORS SET

;1S DOUBLE SET
:DBL SET
;DBL DID SET ON A 2 UORD TRANSFER

’%
155
R7 ,wWHYFO
R7,CLEER
R7 ,ERRTST

sTELL WHY NOT

:CLEAR ERRORS

3 tt*tttfitttt*'t**fi'k*t'i'ititQttttt*l*it*tlkfititti*tttii"tt'ttt

'TEST 41
;*THESE

LL46

4451
4452
4453
4454
4455

MOV

003414

4444
4445

4447
4448
4449
4450

3%:

G 7
.
12=JUL=79
30A(7052)
10:46
PAGE 85
DBL TEST 2 WORD TRANSFER WITH BAI AND WRITE REV

DBL TEST 2 WORD TRANSFER QDD ADD.
TEST

CHECK DBL

IN RHCS3 WITHREAD FWD AND REV

:*WRITE FWD AND REV AND WITH BAI SET IN RHCS2

;*OPERATION BEING PREFORMED WILL BE PRINTED QuT
'IN ERROR MESSAGE.

RH?O ONLY

2 tttt*ttt'ttt**t*ik'tfitt't'itit*tttit"'t't'fitt'tifittittttttttfit

027040
027042
027044
027046
027054
027062
027070
027076
027104
027110
027116

027120
027124
027126
027132
027140
027142
027146
027150
027152
027152
027160

000004
005701

|5T41

100532

154256
012777 177776
154252
012777 004002
154270
012777 000000
012777 000007 154242
012777 000061 1154224
005037 003446
154212
032777 000200
001015
005237 1003446
001371
005037 003446
154170
032777 000200
001004
005237 003446
001401
000770

017737

154152

15414¢

003420
003444

SCOPE

MOV
MOV
MOV
MOV
MOV
CLR
BIT

#-2 ,dRHWC
#0DDAD
, aRHBA
‘#ZERQ, aRHBAE
#7 ,dRHCS2
#WRITEQ,aRHCST
BITCNT
#RDY ,aARH(CS1

INC
BNE
CLR

BITCNT
18%
BITCNT

BNt
INC
BEQ
BR

3%
BITCNT
3%
19%

MOV

@RH(ST,(ST

BM]

18%:

19%:

BNE

BIT

MOV

TST42

#RDY ,dRH(S1

ARHW( ,W(

;IS IN AN RH11
;:GET OUT OF TEST
JSET UP WC FOR TWO WORD
.SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
sDEVICE 7
JTELL IT TO WRITEO
;CLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
;COUNT UP
sNOT FINISHED COUNTING

sGET READY TO DO IT AGAIN
118 1T SET YEI?
2¥YES
s COUNT UP
JBIT IS NOT GGING TO SET

;SAVE RHCS?

. SAVE WORD COUNT

MASSBUS RH7C AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

4473
4474
4475

4476
4477

4478
4479
4480

4681
482
4483

027166
027174
027176

027200
(27204

027210
027214
027222

027230
027236
027244

4L4B4
4485
LLB6

027252
027260
027266

4488
4489
4490
4491
4492
4493

027276
027300
027304
027312
027314
027316

4487

4494

4495

44%

027274

027322

027326

017737
005701
001406

154142

005037
005037

017737
017737
032777

001003

104102
004737
032777
001403
104156
004737

004737

Q03414

027230
154140
154134
154104
154100
154074

154072
154052
000200

007224
00200C

BEQ
CLR
CLR

003416
003424
003422
003432

154050

4514
4515
4516

4517
4518

4519

027332

027334
027336
02730
027346
027354
027362
027370
027376
027402

027410.
027412
027416
027420
027424

027432

000004

005701
100532
012777
012777
012777

012777
012777
005037
032777

001015
005237
001371

007224

006572

2%:

050210

4522

027442

000770

027440

(027444
(027444

027452
027460
027466
(027470

177776
004000
000000
000007
000067
003446
000200

001401

017737

017737
017737
005701
001406

153764
153760
153776
153750
153732
153720

18%:

003446

001004

005237

4525
4526
4527
4528

JSR

86%
ARHBAE ,BAE
aRH(CS3,CS3

@RH(CS2,(S2
@RHST,DS1
ARHER ,ER1

@RHTDR, TDR
aRHMRZ, T(
#RDY ,aRH(CST

102
R7,WHYFO
#DBL ,aRH(S3
2%
156
R7 ,WHYFO

R7,CLEER

R7 ,ERRTST

;CLEAR BAE
:CLEAR (S3

s CONT INUE
:SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
;SAVE (S2
:SAVE TESTER STATUS

:SAVE ERROR REGISTER
:SAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.
:1S READY SET
;RDY SET CONT. TEST
;READY DID NOT SET
;ANY ERRORS SET
;1S DOUBLE SET
;DBL SET
:DBL DID SET ON A 2 WORD
;TELL WHY NOT

TRANSFER

;CLEAR ERRORS

a
2222322233233
2
322232203 32222222223 1223322202222 2

18142

003646
000200

027434

4523
4524

MOV
MOV
MOV
BIT
BNE
ERROR
JSR
BIT
BEQ
ERROR
JSR

BAE
(S3

;SAVE BUS ADDRESS
;IS IT AN RH11
:NO IT'S A 70

;*OPERATION BEING PREFORMED WILL BE PRINTED QUT
:*IN ERROR MESSAGE.
.
B e PR DALY ciisnssivssnsnmsssenin

005037
032777

6520

4521

1%:

JMP
MOV
MOV
MOV
MOV

@RHRA ,RA
R1
87%

SEG 0085

SHTEST 42
DBL TEST EVEN ADD. WRITE FwD
J*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
;*WRITE FWD AND REV AND WITH BAI SET IN RH(S2

4503

' 4510
4511
4512
4513

86%:

; tt"-Qttttttt!'tttltttttttfi.tttttttttttttitt.ttttfit!fitttfittt't.

4500
4501
4502
4505
4506
4507
(508
4509

87%:

003436
003442
(03440
154034

4497
4458
4499

4504

30A(71052)
12=JUL=7%
10:46
PAGE 86
DBL TEST 2 WORD TRANSFER ODD ADD.

MOV
ST

003416
003424

000137
017737
017737

017737
0177%7
017737

MA%V11

153676

:
153660

153654
153650

003420

003444
003414

19%:

SCOPE

TST
BM]
MOV
MOV
MOV

MOV
MOV
CLR
8IT

BNE
INC
BNE

#7 ,aRHCS2
#WRITEG,aRHCST
BITCNT
#RDY ,dRH(CS1

3%
BITCNT
18%

CLR
BIT

BITCNT
#RDY ,aRH(S?

INC

BITCNT

19%

BNE

BEQ

3%:

R1
TST43
#-2 ,aRHWC
#EVEJAD , @RHBA
#ZERO, aRHBAE

MOV

MOV
MOV
TST
BEQ

@RHCST,CS1

ARHWC , W(
@RHBA ,BA
R1
87%

;IS IN AN RH11
:GET OuT OF TEST
:SET UP WC FOR TWO WORD
*SETUP BUS ADDRESS
:SETUP BUS ADDRESS EXTENSION
:DEVICE 7
sJTELL IT TO WRITEG
:CLEAR BIT COUNTER
;IS5 RDY SET

:BIT IS SET
s COUNT UP
NOT FINISHED COUNTING

:GET READY
:1S 1T SET

:YES

TO DO
YEI?

JCOUNT UP

JBIT

AGAIN

IS NOT GOING TO SET

:SAVE RHCS1

:SAVE WORD C(OUNT
;SAVE BUS ADDRESS
1S IT AN RH11
JNO IT°'S A 70

MASSBUS RH7C AND RH11 DTAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

6529
4530
4531
6532
4523
4536
4535
6536
4537
4538
4539

027472
027476
027502
027506
027514
027522
027530
027536
027544
027552
(027560

45640
027566
4541 027570
4542
027572
4543
027576
4544
027604
4545
027606
4546
027610
4547
027614
4548
027620
4549
«550
4551
4552
4553
4554

4555
4556
4557
4558
4559
4550

4561
4562
4563
4564
4565
4566

4567
4568

005037.
017737

017737

1
153606
1

007224
002000

2%:

BAE

:CLEAR BAE

JMP

86$

*CONT INUE

MOV

@RH(S3,0S3

;SAVE RH(CS3

MOV
MOV
MOV
MOV
BIT
BNE
ERROR

ARHST,DS1
ARHER.ER1
aRHTDB, TDR
ARHMR2 . T(
#RDY ,@RHCS1
1%
102

*SAVE TESTER STATUS
*SAVE ERROR REGISTER
*SAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.
:1S READY SET
*RDY SET CONT. TEST
;READY DID NOT SET

BIT
BEQ

#DRL , ARHCS3
2%

:1S DOUBLE
‘DBL SET

JSR
JSR
JSR

R7,WHYFO
R7.CLEER
R7.ERRTST

MOV
MOV

JSR

SeTEST 43

;*THESE
:*WRITE

027640
027646
027654
027662
027670
027674

027702
027704

000004
005701

100532
012777

012777
012777
012777
012777
005037
032777

001015
005237

000007

000067
003446
000200

4581
4582
4583

027762
027764
027770

001406
905037
005037

003416
003424

005037
032777

003446
000200

005237

003446

001004

001401
000770

005701

(C00137

163472

153466
153504
153456
153440
153426

:SAVE BUS ADDRESS EXTENSION

@RHCS2, (52

*SAVE (S2

R7.WHYFO

“ANY ERRORS SET

157

SET

:DBL DID SET ON A 2 WORD TRANSFER
STELL WHY NOT
*CLEAR ERRORS

DBL

TEST Z WORD ODD ADD.

WRITE REV

TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
FWD AND REV AND WITH BA] SET IN RHCS2

003420
003444
003414

R DLW

MOV

#-2 , aRHW(

MOV

#0DDAD, 9RHBA

MOV

MOV
18%:

(LR

BIT

it ot

Baee

19% :

1ST44

;1S

<GET OuUT OF

IN AN RH11

TEST

:SET UP WC

FOR

TWO WORD

:SETUP BUS ADDRESS

#7ERO, SRHBAE

“SETUP BUS ADDRESS EXTENSION

#7 .RHCS2

*DEVICE 7

MIRITEG,@RHCST

STELL IT TO WRITEG

#RDY ,@RHCS1

“IS RDY

BITCNT

*CLEAR BIT COUNTER
SET

BNE
INC

3%
BITCNT

CLR

BITCNT

BNE
INC
BEQ
BR

3%
BITCNT
3%
19%

:YES
“COUNT UP
:BIT IS NOT GOING TO SET

MOV
MOV
MOV
ST

ARHCST,CS1
ARHWC , Wi
ARHBA . RA
R1

:SAVE RH(S1
*SAVE WORD COUNT
*SAVE BUS ADDRESS
“15 IT AN RH11

(LR

BAE

"CLEAR BAE

JMP

86%

:CONT INUE

BNE
153404

MOV

030014

SCOPE
BM[

003446

153366
153362
153356

027774

001371

177776
004002
000000

017737
017737
017737

027760

ARHBAE ,BAE

TAn !tt'Q.tt.'....'.'..tttt'.t.'.l.-'t‘t..‘..fit...Qi‘.'Q.Q't"..'

T$T43:

027732
027734
027736
027736
027744
027752

027726

“CLEAR (S3

:*OPERATION BEING PREFORMED UILL BE PRINTED OUT
;*IN ERROR MESSAGE.

(027630
027632

€S3

. tttt't"t.tOQQt.t..t.."tQttQiQ'tfi"fi..'tfi.t"'fi't'ttttt.t"..t

027624
027626

SEG 0086

CLR

ERROR

050210

4574
4575
4576
4577
4578
4579

4584

153556

007224
006572

027710
027712
027716
027724

4580

003416 87%:
003424
003422. 86%:
003432
003436
003442
003440
153542

004737
032777

.
Wl
30A(7052)
12=JUL=79
10:46
PAGE 87
DBL TEST EVEN ADD. WRITE FWD

(LR

4569
4570
4571
4572

457%

MACYTT
742

BIT

BEQ
(LR

18%

#RDY , ARHCS?

87%

(s3

:BIT IS SET
*COUNT UP

*NOT FINISHED COUNTING

:GET READY

TO DO

SIS IT SET YET?

SNO IT'S A 70
“CLEAR (S3

IT AGAIN

017737
017737
017737
017737
017737
017737
17737
032777
001003

4585

L586

4587
4588
4589
4590
4591
459¢
4593
4594
4595
4596

[l o P N
(@ IV, [V, LV, (W IV, IV 1V, |

MASSBUS RH70 AND RH11_DIAGNCSTIC
CZRHBE .P11
07=JUN=79 13:44

86%:

1%:

2%:

7
J
30A(71052)
12=JUL=79 10:46 PAGE 88
DBL TEST 2 WNRD ODD ADD. WRITE REV

SEQ 0087

MOV

aRHBAE ,BAE

. SAVE BUS ADDRESS EXTENSION

MOV

@dRH(S2,(S2
a@RHST ,DS1
@dRHER ,ER1

sSAVE TESTER STATUS
s SAVE ERROR REGISTER

MOV

MOV
MOV
MOV
MOV
BI1
BNE
ERROR
JSR

BIT

BNE
ERROR
JSR

JSR

aRH(S3,(S3

sSAVE RH(S3
sSAVE (S2

aRHTDB, TDR
aRHMRZ2,
T(

sSAVE

1%
102

;RDY SET

TESTER DATA REG.

;SAVE MRZ2- TESTER REG.
;1S READY SET

#PDY ,aRHCS1

CONT.,

TEST

.READY DID NOT SET

R7 ,WHYFO
ggBL,aRHCS3

;ANY ERRORS SET
.

;1S DOUBLE SET
.DBL SET

160
R7 ,WHYFQ
R7,CLEER
R7 ,ERRTST

;DBL DIDN'T SET ON A 2 WORD TRANSFER
JTELL WHY NOT
;CLEAR ERRORS

» tttttttt"Qtt'!ttlttttttt'tttttt*tt.'*t.fit.tf!fit'.ttitfi'tit'tt.

tTEST

44
;*THESE

DBL

TEST 3 WORD ODD ADD.

WRITE REV

TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
FWD AND REV AND WITH BAI SET [N RHCS2

:*WRITE
:*OPERATION BEING PREFORMED WILL BE PRINTED OUT

'IN ERROR MESSAGE.
................ RH70 ONLY

000004
005701

et
h® Ed A ¥
SN2 NO
NSO

18%:

19%:

003446
000770

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737

003420
003444
003414

003416
003424
030306
153062
153056
153026

TST

MOV
MOV
MOV
MOV

003446
003446
0002001153112

SCOPE

BM]
MOV

WWWW'AN

W
SH

ced
d
d

177775

004002
000090
000007
000067
003446
000200

012777
012777
012777
012777
012777
005037
032777
001015
005237

—

100532

'ttQt.tt*tttfiitt't.fitt'tt.t'Qtit't'tt.fittitttii..'t'tttttt'.t!t

TST44:
v
o

030116
030120
030122
030124
030132
030140
020146
030154
030162

4612
4613

007224
006572
050210

030112

87%:

153250

(¥,

4611

003416
003424
003422
003432
003436
003442
0034490

153264

4597

4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609
4610

MACY11
T43

3%:

CLR

BIT

BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR
MOV
MOV
MOV
TST

BEQ
CLR

(LR*

003416
003424
003422

87%:
86%:

R1
TST4S
#-3 ,aRHW(
#0DDAD
, aRHBA
#7ERO, dRHBAE
#7 ,dRHCS2

#WRITEG,aRHCST

BITCNT

#RDY ,aRHCS1

BITCNT
18%
BITCNT

#RDY ,@RH(S1

BITCNT

16%

aRH(CS1,(S1
"@RHWC ,W(
aRHBA .BA
R1

87%

BAE

JMP

(S3
86%

MOV

SRHCS3,CS3

MOV

;1S IN AN RH11
;:GET OUT OF TEST
JSET UP WC FOR THREE WORD
.SETUP BUS ADDRESS

;SETUP BUS ADDRESS EXTENSION
sDEVICE 7
sTELL IT TO WRITEG
sCLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
;COUNT uP

JNCT FINISHED COUNTING

;GET READY TO DO IT AGAIN
£15 1T SEY YEID
IYES
JCOUNT UP
JBIT IS NOT GOING TO SET

;SAYE RHCS1

. SAVE WORD COUNT
s SAVE BUS ADDRESS

IS IT AN RH11

INO IT'S A 70
;CLEAR BAE
JCLEAR (S3
2 CONT INUE

QRHBAE, BAE

s SAVE BUS ADDRESS EXTENSION

ARH(S2. (52

sSAVE (S2.

;SAVE RH(CS3?

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44
4641
4642
4643
4644
4645
4646
4647
4648

030314
030322
030330
030336
030344
030352
030354
030356

4650
4651

030370
030372

4649

4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675
4676

017737
017737
017737
017737
032777
001003

003432
003436
003442
003440

004737

7
K
30A(7052)
12=JUL=79
10:46
PAGE 89
DBL TEST 3 WORD ODD ADD. WRITE REV
MOV
MOV

MOV
MOV

152756

BIT
BNE
ERROR

152772

030362

030374
030400
030404

MACY11
T44

1%:

007224
006572
050210

2%:

JSR
BIT

REQ
ERROR
JSR
JSR
JSR

aRHST,DS1
aRHER,ER1
aRHTDB, TDR
@RHMR?2,
T(

SEQ 0088

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

;SAVE TESTER DATA REG.
;SAVE MR?2 TESTER REG.
;1S READY SET

#RDY ,aRH(ST
1%
102

;RDY SET CONT.

JREADY

R7 ,WHYFO
#DBL ,aRH(S3

DID NOT

JANY ERRORS SET

TEST

SET

2 1S DOUBLE SET

2%
161

.DBL

SET

;DBL DID SET ON A 3 WORD TRANSFER
JTELL WHY NOT

R7,WHYFO
R7,CLEER
R7 ,ERRTST

;CLEAR ERRORS

. Q'tttt'tttttt'.t.t*ltQtt.fitt...ti.ttt.!t...........'..t'.Q.Q'.Q

'TEST 45
DBL TEST 2 WORD READ FwD
;*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV

:*HRITE FWD AND REV AND WITH BA] SET IN RH(CS?2

s *OPERATION BEING PREFORMED WILL BE PRINTED OQuT
*!N ERROR ME SSAGE
.

030410
030412
030414
030416
030424
030432
030440
030446
030454
030460
030466
030470
030474
030476

000004

0057§}

TST4S5:

177776
004000
000000
000007
000071
003446
000200

152706

152702

152720
152672

152654

152642

003446
000200

152620

017737
017737

TST

18%:

19%:

3%:

TST46
=2 ,dRHWC

MOV

#7 ,0RHCS2

CLR
BIT

BITCNT
#RDY ,aRHCS1

#EVENAD
, aRHBA
#7ERO,dRHBAE

#READQ,aRH(CS1

BNE
INC
BNE

CLR
BIT

3%
BITCNT
18%
BITCNT
#RDY ,aRHC(CS1

INC
BEQ
Bk

BITCNT
78
19%

MOV
MOV
MOV

aRHCS1,CS1
aRHWC ,W(
aRHBA ,BA

BNE

TST

CLR

BAE

BEQ

003416
003424
003422
003432
003456
003442

87%:
86%:

BM]
MOV

MOV

003446

003420
003444
003414

SCOPE

MOV
MOV

003446

017737
017737
017737
005701
001406
005037
005037

S RH70 ONLY
PRS
NGR

'. t"tttttt't'tti.!i'ttt"t'Qttttttlt"...tl'..t"i.t."t..t'..t'

CLR
JMP
. MOV
MOV
MOV
MOV

.MOV

MOV

87%

(S3
86%
oRHBAE ,BAE
aRH(CS3,CS3
aRH(S2,(S2

@RHST,DS1

@RHER,ER1

Q@RHTDB,TDR

;IS IN AN RH11
:GET OUT OF TEST

sSET UP WC FOR

TWO WORD

:SETUP BUS ADDRESS
sSETUP BUS ADDRESS EXTENSION
sDEVICE 7
:TELL IT TO READO
sCLEAR BIT COUNTER
;1S RDY SET
JBIT IS SE1V
s COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO 1T AGAIN
1S 1T SET YET?
:YES
JCOUNT UP
;BIT IS NOT GOING TO SET

:SAVE RHCS1
:SAVE WORD COUNT
;SAVE BUS ADDRESS
1S IT AN RH11
:NO IT'S A 70
:CLFAR BAE

:C EAR (S3

+CONT INUE
:SAVE BUS ADDRESS EXTENSION

;SAVE RH(CS3

:SAVE (S2

:SAVE TESTER STATUS

:SAVE ERROR REGISTER
sSAVE TESTER DATA REG.

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZR4BE.P1
07=JUN=-79 13:44

4697
4698
4699
4700
4701

017737
032777
001003

152502
000200

004737
032777
001003

007224

104102

104162

004737
004737
004737

002000

MACY11
F4S
-

003440

152500

007224

005572
050210

ERROR
JSR
BIT

1%:

BNE
ERROR
JSR
JSR
JSR

2%:
S

30A<i052)
10:46
12=JUL=79
. PAGE 90
DBL TEST 2 WORD READ FwD
MOV
BIT
BNE

152464

AR A AR AR

aRHMRZ2,
T(
:gDY.aRHCS1

;SAVE MR2 TESTER REG.
;1S READY SET
;RDY SET CONT. TEST

102
R7 ,WHYFO .
#DBL ,RHCS32%
162
R7 ,WHYFO
R7,CLEER
R7,ERRTST

A AR AR A A AT AR

SEQ 0089

sREADY DID NOT

:ANY ERRORS SET

SET

;1S DOUBLE SET
:DBL SET

;DBL DIDN'T SET ON A 2 WORD IRANSFER

s TELL SWHY NOT

:CLBAR ERRORS

AR AR RN AR AR AAARARAAXRARARR

AR AR AR,

SATEST 46
DBL TEST 2 WORD ODD ADD. READ FWD
s*THESE TEST CHECK DBL IN RH(CS3 WITHREAD FWD AND REV
s*WRITE FWD AND REV AND WITH BAI SET IN RH(CS2

;*OPERATION BEING PREFORMED WILL BE PRINTED OUT
*IN ERRCR MESSAGE.
T Tty
S RH?O ONLY....

» t*ttttfi*t*t*fi'i"'tttttiiit!fifittttitfittfit‘tttt.'ittfitttttttt.tt

030702
030704
030706
030710
030716
030724
030732
030740
030746
030752
030760
030762
030766
030770
030774

000004
00570,
100532
012777 177776
012777 004002
012777 000000
012777 000007
012777 000071
005037 003446
032777 000260
001015
005237 003446
001371
005037 003/ 46
032777 000200
001004
005237 003446
001401000770

017737
017737
017737
005701

MoV

#-2 ,aRHWC

MOV
MOV

18%:

19%:

3%:

000200

003416
003424
003422
003432

003436
003442
003440
152172

87%:
86%:

TST47

MOV
MOV
CLR
BIT

#0DDAD
, aRHBA *
#2ERO, QRHBAE
#7 ,dRHCS2
#READOQ,ARHCS1
BITCNI
H#RDY,@RH(S1

INC

BITCNT

CLR
BIT

BITCNT
#RDY ,@RHCS1

INC
BEQ
PR

BITCNT
3%
19%

MOV
MOV
MOV
TST

ARHCS1,CS1
ARHWC
, WC
aRHBA ,BA
R1

CLR

BAE

BNE
BNE

152326

TST

BNE

BEQ

152230
152210

001003

152350

SCOPE

BMI

15241
152410
152426
152400
152362

003420
003444
003414

152272
152242
152236
152232

4752

TST46:

CLR
JMP
MOV
MOV
MOV
MOV
MOV

MOV
MOV
BIT
BNE

18%

JNOT FINISHED COUNTING

87%

(S3
86%
aRHBAE
, BAE
@RH(S3,(S3
@RH(CS2,(S2
aRHST,DS1
aRHER ,ER1

aRHTDB, TDR
aRHMR?2,
T(
#RDY ,@RHCS!
%

;IS IN AN RH11
;2GET OUT OF TEST
;SET UP WC FOR TWO WORD
.SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
JDEVICE 7
JTELL IT TO READO
JCLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
s COUNT UP

;
.

;GET READY TO DO IT AGAIN
23S 1T SET YE1?
VS
;sCOUNT UP
JBIT IS NOT GOING TO SET

s SAVE RH(S1
s SAVE WORD COUNT
:SAVE BUS ADDRESS
IS IT AN RH11
sNO IT'S A 70
. CLEAR BAE
;CLEAR (S3
2 CONT INUE
s SAVE BUS ADDRESS EXTENSION
:SAVE RHCS3

;SAVE 752

;SAVE TESTER STATUS
:SAVE ERROR REGISTER

;SAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.

2 1S READY SET
sRDY

SET

CONT,

TEST

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

47%3
4756
4755

031140
031142
031146

104102
004737
032777

4757

031156

104163

4759

031164

4756

4758

4760

4761

03115

031160

031170

001403

007224
002000

004737

007224

004737

(50210

004737

'
152206
;

006572

MACYTT
T46

30A(7052)
12=JUL=79
10:46
PAGE 91
DBL TEST 2 WORD ODD ADD. READ FwD

1%:

ERROR
JSR
BIT

102
R7 ,WHYFO
#DBL ,aRH(S3

;READY DID NOT SET
;ANY ERRORS SET
;1S DOUBLE SET

ERROR

163

;DBL DID SET ON A 2 WORD TRANSFER

BEQ
JSR

2%:
IR

JSR

;DBL

R7 ,WHYFO
R7 ,ERRTST

AR R AR

SET

sTELL WHY NOT

R7.,CLEER
R R

SEQ 0090

;CLEAR ERRORS
AR R AR RA AR AR

ANRRARRA N AR

AR R AR AR AR R R RN

L4762

J*TEST 47

DBL TEST 2 WORD EVEN ADD. READ REV

4768

R R AR AR AR RN RN R C AR AR AR RN AR AR AR

4763
4764
L7€5
4766
4767

4769
4770
4771
4772
4773
4774
4775
4776
4777
4778

031174
031176
031200
031202
031210
031216
031224
031232
031240
031244

000004
005701
100532
012777
012777
012777
012777
012777
005037
032777

4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793

031254
031260
031262
031266
031274
031276
031302
031304
031306
031306
031314
031322
031330
031332

005237
001371
005037
032777
001004
005237
001401
000770

4796
4797
4798
4799
4800
4801

031344
031350
037356
031364
031372
031400

4779

4794
4795

031252

031334
031340

4802
4803

031406
031414

4805
4806

(031430
031432

4804

4807

4808

031422
031434

031440

001015

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
032777

TST47:
177776
004000
000000
000007
000077
003446
000200

152122
152116
152134
152106
152070
152056

18%:

003446
003446
000200

152034

19%:

003446

152016
152012
152006

003420
003244«
003414

3%:

003416
003424

031364
152004
152000
151750
151744
151740

151736
151716

000200
007224

v02000

003416
003424
003422
003432
003436
003442
003440
151700

151714

87%:
86%:

1%:

;*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
;*WRITE FWD AND REV AND WITH BAI SET IN RH(CS2
;*OPERATION BEING PREFORMED WILL BE PRINTED OUuT
;*IN ERROR MESSAGE.
s¥eosenssssccsscns PPD DY .cuaeonsvssisoonssosune
AR

AR AR

SCOPE
TST
BMI
MOV
MOV
MOV
Mov
MOV
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

BITCNT
18%
BITCNT
#RDY ,@RHCS1
3%
BITCNT
3%
19%

s COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
;18 17 SET WET?
JYES
sCOUNT UP
;BIT IS NOT GOING TO SET

MOV
MOV
Mov
TST
BEQ
CLR
CLR
JMP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
JSR
BIT

aRH(S1,(CST
aRHWC ,WC
adRHBA ,BA
R1
87%
BAE
CS3
86%
aRHBAE ,BAE
@RHCS3,CS3
@RH(CS2,(S2
a@RHST,DS1
aRHER,ER1
aRHTDB, TDR
aRHMRZ, T(
#RDY ,@RH(S1
1%
102
R7 ,WHYFO
#DBL ,@RH(S3

:SAVE RHCS1
s SAVE WORD COUNT
:SAVE BUS ADDRESS
;IS IT AN RH11
;NO IT'S A 70
;CLEAR BAE
;CLEAR (S3
- CONT INUE
sSAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
sSAVE (S2
sSAVE TESTER STATUS
:SAVE ERROR REGISTER

R1
TST50
#=2 ,aRHW(
#EVENAD , aRHBA
#ZERO, aRHBAE
#7 ,0RHCS2
#READG ,@RHCS1
BITCNT
#RDY ,@RHC(S1

;IS IN AN RH11
;.GET OUT OF TEST
sSET UP WC FOR TWO WORD
:SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
;DEVICE 7
sTELL IT TO READ6
sCLEAR BIT COUNTER
;1S RDY SET

;BIT

IS SET

;SAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.
;IS READY SET

sRDY SET CONT. TEST
sREADY DID NOT SET
;ANY ERRORS SE1

. IS DOUBLE SET

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

004737
004737
004737

007224
006572
050210

2%:

7
N
30A(7052)
12=JUL=79
10:46
PAGE 92
DBL TEST 2 WORD EVEN ADD. READ REV
BEQ
ERROR
JSR

JSR

SE@ 0091

;DBL SET
;DBL DID SET ON A 2 WORD TRANSFER
sTELL WHY NOT
;CLEAR ERRORS

164
R7 ,WHYFO
R7,CLEER
R7,ERKTST

» ".QQ.Q..Q..Q.......Q.'.'...Q...QQ‘....Q....Q.Q...'..QQ....'Q..

tTEST

50
s*THESE

DBL

TEST

TEST 2 WORD ODD ADD.
(HECK DPBL

READ REV

IN RH(CS3 WITHREAD FWD AND REV

:*WRITE FWD AND REV AND WITH BAI SET [N RH(S2
s*OPERATION BEING PREFORMED WILL BE PRINTED OUT
'IN ERROR MESSAGE
.
RH?O ONLY

003446
000200

—Nnono

Nl\l\\h\hg—!\fl
NN
To &SOn
o Ll i "alat
[oaY e

e R
[

007224
002000
031744

004737

18%:

BIT

151542

19%:

BIT

007224

R1
TSTS51
-2, dRHW(

#0DDAD
, aRHBA
#7ERO, aRHBAE

#7,aRH(CS?2

#READG ,aRH( ST

BITCNT

#RDY ,@RH(CST

3%
BITCNT

18%
BITCNT

#RDY ,@RH(ST

BITCNT

003446

e B T

017737
017737
017737
005701
001406
005037

TST

003446

001004
005237
001401
000770

177776

001015
005237
001371
005037
032777

SCOPE

BMI]
MOV
MOV
MOV
MOV
MOV

004002
000000
000007
000077
003446
000200

4824
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4L848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860

Q..'..............Ql.."....".'.0'.............'.QQQ'.'Q'..Q.Q

157150:

000004
005701
100532
012777
012777
012777
012777
012777
005037
032777

4823

4861
4862
4863
4864

104164

4814
4815
4816
4817
4818
4819
4820
4821
4822

001403

Y - ] o0

4813

031446
0314°"°
031452
031456
031462

vivvoawnuananin OO
R
i
e
N
WW
n BB N
o
N —

4809

4810
4811
4812

MACYT1
147

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440

3%:

ARH(ST,CST

ARHWC ,W(
aRHBA ,RA

R1
87%
BAE
(S3

87%:

MOV

86%:

MOV

151406

151422

19%

BNE
ERROR
$:

;IS IN AN RH11
J:GET OUT OF TEST
JSET UP WC FOR TWO WORD
;SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
JDEVICE 7
JTELL IT TO READG
JCLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
JCOUNT UP
JNOT FINISHED COUNTING
*GET READY TO DO IT AGAIN
JIS IT SET YET?
.YeS
JCOUNT UP
JBIT IS NOT GOING TO SET
:SAVE RHCS1

;SAVE WORD COUNT

;s SAVE BUS ADDRESS

;IS IT AN RH11
JNO IT'S A 70
. CLEAR BAE

86%

;CLFAR (S3
s CONT INUE

@RHCS3,CS3
aRH(S2,(S2

;SAVE RK(CS3
;SAVE (S2

aRHBAE ,BAE

@RHST,DS1T
aRHER ,ER1
aRHTDB, TDR
aRHMRZ,
T(
??DY.ORHCS1

102
R7 ,WHYFO

BIT

#DBL ,aRH(S3

ERKOR
JSR

165
R7 ,WHYFO

+SAVE BUS ADDRESS EXTENSION
;SAVE TESTER STATUS
;SAVE ERROR REGISTER

:SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
1S READY SET
;RDY SET CONT.

TEST

JREADY DID NOT SET
JANY ERRORS SET

;1S DOUBLE SET
.DBL SET
DBL DIDN'T SET ON A ¢ WORD TRANSFER
JTell

WHY

NOT

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

031750
031754

004737
004737

006572
050210

30A(1052)
12-4UL=79
10:46
PAGE 93
DBL TEST 2 WORD ODD ADD. READ REV

2%:

JSR
JSR

R7,CLEER
R7 ,ERRTST

SEQ 0092

;CLEAR ERRORS

R
T e T
LR
A
R
I

s+TEST 51
DBL TEST 3 WORD EVEN ADD. READ FWD
s*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
s*WRITE FWD AND REV AND WITH BAI SET IN RH(CS2
;*OPERATION BEING PREFORMEC WILL BE PRINTED OUT

;*IN ERROR MESSAGE.

s- %

031760
031762
031764
031766
031774
032002
032010

R Y PILY .

i sinisnssvssesnnd

tttwttt

000004
005701

100532

012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
201401
000770

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777

TSTS1:

177775

004000
000000
000007
000071
003446
000200

004737

MOV
MOV

#-3,aRHWC
#EVENAD , aRHBA

MOV

18%:

MOV
MOV
CLR
BIT

19%:

BIT

003446
003446
000200

SCOPE
TST

BM]

151250

00344¢
%

003420
003444
003414

BNE
INC
BNE
CLR

007224
006572
050270

sDEVICE 7
:TELL IT TO READO
JCLEAR BIT COUNTER
IS RDY SET

aRH(CS1,CS1

;SAVE RHCS1

CLR
JMP

MOV

86%:

MOV

2%:

;SETUP BUS ADDRESS EXTENSION

MOV

87%:

1%:

#7 ,dRHCS2
#READQ,aRHCS1
BITCNT
#RDY ,adRHCS1

;SET UP WC FOR THREE WORD
;SETUP BUS ADDRESS

BNE
INC
BEQ

MOV
MOV
TST

151114

#ZERO, aRHBAE

;IS IN AN RH11

;:GET OUT OF TEST

;BIT IS SET
sCOUNT UP
sNOT FINISHED COUNTING
cGET READY TO DO IT AGAIN
2195 1T SET ¥ET?
:YES
;COUNT UP
sBIT IS NOT GOING TO SET

CLR

003416
003424
003422
003432
003436
003442
003440

1ST52

3%
BITCNT
18%
BITCNT
#RDY ,aRHCS1
3%
BITCNT
3%

BEQ

151130

0
032236
032242
032246

.-;Qtttt.tt.tttttttttitttttttttfltt*tttttttt'ttttttttttttttt

O WWInUNONON

4865
4866
4867
4868
4869
4870
4871
4872
4873
L874
4L875
4876
4877
4878
4879
4880
4881
4882
4,883
4884
4885
4,886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920

MACYTT
150

MOV

19%

ARHWC ,WC
aRHBA ,BA
R1

. SAVE WORD COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11

BAE

;CLEAR BAE

87%

(S3
86%

aRHBAE ,BAE

@RH(CS3,CS3

aRH(CS2,(S2

JNO IT'S A 70

;CLEAR (CS3
; CONT INUE

;s SAVE BUS ADDRESS EXTENSION

sSAVE RH(CS3

sSAVE (S2

MOV
MOV
MOV
MOV
BIT
BNE
ERROR

@RHST,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR2, TC
#RDY ,@RHCS1
1%
102

1S READY SET
;RDY SET CONT. TEST
JREADY DID NOT SET

BIT
BEQ
ERROR
JSR

#DBL ,aRH(CS3
2%
166
R7 ,WHYFO

;1S DOUBLE SET
.DBL SET
;DBL DID SET ON A 3 WORD TRANSFER
sTELL WHY NOT

JSR

JSR
JSR

R7 ,WHYFO

R7,CLEER
R7 ,ERRTST

;SAVE TESTER STATUS
:;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.

:ANY ERRORS SET

;CLEAR ERRQRS

".'tttttttfittt'fifit'tttfit*tttfittt..t'!'ttttit't&t‘iit!'lt"'t.

tttfit

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

MACY11
152

4921

C
8
30A(7052)
12=JUL=79
10:46
PAGE 94
DBL TEST 3 WORD EVEN ADD. READ REV

;*TEST 52

SEQ 0093

DBL TEST 3 WORD EVEN ADD. READ REV

s*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
;*WRITE FWD AND REV AND WITH BAI SET IN RH(CS2

;*OPERATION BEING PREFORMED WILL BE PRINTED OUT
*IN ERROR MESSAGE.

t*itttfit*tttttiti*tii*fi"tttQt*t*ttt'Qtfititttitt'itttttitttt'tt

032252
032254
032256

TST52
177775

MOV
MOV
MOV
MOV
MOV

004000
000000
000007
000077
003446
000200

18%:

003446
003446
000200
001401
000770

017737
017737
017737
005701
001406

003416
003424
032442
150726
150722
150672
150666
150662
150660
150640

000200

007224
002000

032540

004737
004737

007224
006572
050210

CLR
BIT
BNE

INC
BNE

150756

19%:

003446

150740
150734
150730

SCOPE
TST
BMI

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440
150622

150636

3%:

87%:
86%:

1%:

2%:

R1
TST53
#-3,dRHW(

#EVENAD
, aRHBA
#ZERO,aRHBAE
#7 ,dRHCS2
#READ6 ,aRHCS1
BITCNT
#RDY ,aRHCST

CLR

BITCNT
18%
BITCNT

BNE
INC

BITCNT

MOV
MOV
MOV
TST

aRHWC ,WC
adRHBA ,BA
R1

BIT

BEQ
BR

#RDY ,aRH(S1

3%
19%

@RHCS1,CS1

BEQ
CLR
CLR
JMP

87%
BAE

MOV

@dRHCS3,CS3
@dRH(CS2,(S2

MOV

MOV
MOV
MOV
MOV

BIT
BNE
ERROR
JSR

BIT

BNE
ERROR
JSR

JSR

;IS IN AN RH11
;;GET OUT OF TEST

;SET UP WC FOR THREE WORD

:SETUP BUS ADDRESS
sSETUP BUS ADDRESS EXTENSION

;DEVICE 7
;TELL IT TO READ6
sCLEAR BIT COUNTER
;IS RDY SET
;BIT IS SET
: COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
;IS IT SET YET?
JYES
: COUNT UP
;BIT IS NOT GOING TO SET

. SAVE RHCS1
s SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
s CONT INUE
. SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER
sSAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;IS READY SET
JRDY SET CONT. TEST

cS3
86%

aRHBAE ,BAE

aRHST ,DS1
aRHER,ER1

aRHTDB, TDR

aRHMRZ2,
TC

#RDY ,@RHCS1

1%
102
R7 ,WHYFO

JREADY DID NOT

;ANY ERRORS SET

lgBL.aRHCSS
2
167
R7 ,WHYFO
R7,CLEER

SET

;1S DOUBLE SET
;DBL SET

;DBL DIDN'T SET ON A 3 WORD TRANSFER

JTELL WHY NOT

s CLEAR ERRORS

R7 ,ERRTST

ttttt!tttttttttfii'*tttttttttl'tttttttt*itiiitttttttttttttttt"t

*TEST 53

s*THIS

WCE EW ERROR TEST

TEST

CHECKS

THAT WCELO WILL

:*RHCS3 AND THAT WCE SETS IN RHCST

SET

MASSBUS RH70 AND RHM11_DIAGNCST IC
CZRHBE
. P11

4977
4978
4979
4980
4981
4582
4983
4984
4985
4986
4987
4988
4989
4990
4991

MACYT1
C
153

07=JUN=79 13:44

30A(7052)
12=JUL=79
WCE EW ERROR TEST

10:46

PAGE 95

SEQ 0094

;*IT ALSO CHECKS THAT WCEHI DOES NOT SET
'UITH WCELO IN_RH(CS3

4 ttttt'it'fitttt'ififitti.‘t't't'*tttitfitttfitit'fitttti'tttitlt"fit'

032544

000004

1ST53:

012737
005701
001402
000137
012777
012777
012777

033336
000007
000000
004000

150560
150526

150546

18:

013737

004000

004002

CHGE1

000001

001212

SCOPE

MOV
TST

BEQ
JMP

MOV
MoV
MOV

#1,8TIMES
R1
1%
FANG
#7 ,aRH(CS2
#ZERO, aRHBAE
#EVENAD,aRHBA

;:D0 1 ITERATION
;IS IT AN RH11
JIT'S AN RH/0
JIT'S AN RH11, EXIT TEST
sSET DEVICE 7

;SETUP BUS ADDRESS EXT.
:SETUP BUS ADDRESS

tttl*ttttttt*i**ifit*tttttfit*tfittt*tt*ttttt**t'ttttttttitit.tttt

032606

MOV

EVENAD, ODDAD

;MAKE BOTH ADD EQUAL

tttttt*tttttt*tt**ttttttt*ttfit*ttttttttt.tfit*it.ttt*t*fit*tttt.t

032614
032622
032630

012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017757
017737
032777
001003
104102

033072

004737
005137
012777
012777
012777
005037
032777
001015
005237

177776
000061
003446
0C0200

150510
150500
150466

MOV
MOV
CLR
BIT

18%:

003446

003446
000200

150444

19%:

003446

150426
150422
150416

003416
003424
032754
150414
150410
150360
150354
150350
150346
150326

000200

003420
003444
003414

18%
BITCNT

#RDY ,@RH(S1
MITE

BITCNT

MITE
19%

@RHCS1,CST

aRHWC ,WC
aRHBA ,BA
R1

87%

003416
003424
003422
003432
003436
003442
003440
15031C

87%:

MOV

86%:

MOV

CS3
86%

aRHBAE ,BAE

@dRH(CS3.CS3
adRH(S2,(S2
@RHST,DS1
aRHER,ER1
#RDY ,@RHCS1

VOUS

150272
150262
150252

003446

MITE:

BITCNT

BAE

007224

000200

BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ

#=2 ,aRHW(
#WRITEQ,@RHCS1
BITCNT
#RDY ,@RHCS1
MITE

150240

VOUS:

18%:

(oM

BIT

EVENAD

#EVENAD ,aRHBA

#=2 ,aRHW(C
#WRCHO,@RHCS1
BITCNT
#RDY ,@RHCS1
FAST

BITCNT

sFOR

TWO WORD

TRANSFER

JTELL IT TO WRITE
;CLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
;COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
21S 1Y SET YET1?

*YES

;s COUNT UP
;BIT IS NOT GOING TO SET

+SAVE RHCS1

s SAVE WORD COUNT
;SAVE BUS ADDRESS
2IS IT AN RH11

;NO IT'S A 70
;CLEAR BAE
;CLEAR (S3
2 CONT INUE

:SAVE BUS ADDRESS EXTENSION

;SAVE RHCS3
;SAVE (CS2
;SAVE

TESTER STATUS

;SAVE ERROR REGISTER
sSAVE TESTER DATA REG.

:SAVE MRZ2 TESTER REG.
;1S READY SET
:RDY IS SET
:RDY DID NOT SET
;ANY ERRORS SET

:INVERT BITS FOR WCELO
sFIX BUS ADDRESS
JFIX WORD COUNT
JTELL IT TO WRITE CHECK
;CLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
sCOUNT UP

HASSBUSP$?70 AND RH11_DIAGNOSTIC
CZRHBE
07=JUN=79 13:44

5033
5034
5035
5036
5037

5038
5039

023076
033100
033104

033112
033114
033120
033122
033124
033124
033132
033140
033146
033150
033152
033156
033162
033166
033174
033202
033210

001371
005037
032777
001004
005237
001401
000770

150216

19%:

003420
003444
003414

FAST:

033202

150166
150162
150132
15Ci26
150122
150120
150100

000200

004737
032777
0010926

007224
004000

004737

007224
001103

104132

105737
001005
032777
001406

003416
003424
003422
003432
003436
003442
003440

87%:

86%:

150076

18%

PAGE 96

SEQ 0095

sNOT FINISHED COUNTING

;GET READY TO DO IT AGAIN
IS IT SET YET?
SYES
COUNT uP
BIT IS NOT GOING TO SET

MOV
MOV
MOV

@RHCS1,(S
aRHWC ,WC
aRHBA,BA

;SAVE RHCS1
s SAVE WORD COUNT
.SAVE BUS ADDRESS

BEQ
CLR
CLR
JMP
MOV

87%
BAE
(S3
86%
@RHBAE ,BAE

MOV
MOV

aRHST,DS1
aRHER,ER1

MOV
MOV

;IS

IT AN RH11

JNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
;CONT INUE
;SAVE BUS ADDRESS EXTENSION

aRH(CS3,(CS3
aRH(CS2,(S2

;SAVE RHCS3
;SAVE (S2

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

@RHTDB, TDR

;SAVE

TESTER DATA REG.

MOV

aRHMRZ, T(

;SAVE MR2 TESTER REG.

BNE

SUPER

SROY

BIT

SUPER:

_10:46

BITCNT
#RDY ,aRHC(CS1
FAST
BITCNT
FAST
19%

MOV

150062

CLR
BIT
ENE
INC
BEQ
BR

001406
005037

005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003

12=JUL=79
30A(7052)
WCE EW ERROR TEST

BNE

003446

017737
017737
017737
005701

104102

#RDY ,aRHC(CS1

. IS READY SET
1S Stt

ERROR
JSR

102
R7 ,WHYFO

ERROR
JSR

132
R7 ,WHYFO

sWCELO DID NOT SET IN RHCS3
;ANY ERRORS SET

TWANG

=¥ES

TWANGY

;WCEHI DID NOT SET

BIT
BNE

TSTR

BNE

;RDY DID NOT SET
;ANY ERRORS SET

#WCELO,aRHCS3
RITEON

oIS WCELO SET
sWCELO IS SET

$ERFLG

;WAS

THERE AN ERROR

010000

150052

RITEON:

032777
001001

040000

150016

TWANG:

BIT
BNE

#WCE ,a@RH(CS2
TWANGY

;DID WCE SET IN £S?
JYES,IT SHOULD BE

004737
004737

006572
050210

TWANGY:

JSR

R7,CLEER

.CLEAR ERRORS

104133
104134

033336

003446
000200

MACV11
753

FANG

BIT

#WCEHI ,@RH(S3

BEQ

ERROR

ERROR
JSR

;IS WCEHI

133

SET

sWCEHI SET WITH WCELO

134

;WCE DID NOT SET IN RH(CSZ2

R7,ERRTST

ti*ti'ttl‘tfittttti*tt?tttltt'tfiit.ttttttl‘ttifitfittt!t...'t'tt'.t

'TEST

54
;*THIS

WCE OW ERROR TEST (WCEHI)
TEST CHECKS THAT WCEHI SETS

.*AND THAT WCE

SETS

IN RHCS1

'THAT WCELO DOES NOT

IN RH(CS3

,IT ALSO TESTS

SET WITH MEERE . aalivai

e sais TS DY icicsinnninaniscnn

' 2*ttttt*tt'i*tt'*fifittiitit‘l‘fi'ttt'itfi'it.'fitt'.t'.t"it"ttt."t

033336
033340
033342
033344
033350
033356
033364

000004
005701
001402
000137
012777
012777
012777

TSTS4:

034142
000007
177776
004000

SCOPE
TST

BEQ
147762
147746
1477462

1%:

JMP

MOV

FANGY

#7 ,0RH(CS2

#-2 , aRHW(

#EVENAD , aRHBA

IT AN 11

sETYS AN’ RH70

;I7'S AN RH11,

EXIT

aSET DEVICE

QR A 70
TEST

:TWO WORD TRANSFER
;SETUP BUS ADDRESS

MASSBUS RH70 AND RH11_DLAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

5089

(33372

013737
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

W
W

104102

NHEWN=O0O0VONOVNBWV=00VONOVNRWN—=O

el cnslh il sl
e cdh caslh i

i) i

D i e

il i

) sl

RV, LV, LW LW LV RV XV, TV, IV, RV, LV, KV, DV, TV LW, TV, TV, TV, RV, TV IV, IV, IV TV TV, TV TV |

017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003

n
~

N
(%)
~N

WAWW

il il il i caed s
ek e il

S BB

AR R ALV RO LV RVl

MNOFPOIMNONIMNOMNONOMNUIMNINY
= b
D
D b

017737

004737
052777
005037
005237
001375
012777
005137
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737
017737

004002
000061
003446
000200

MACY11
154

004000
147722
147710

MOV

18%:

147666

19%:

003446

147650
147644

147640

003416
003424
033532
147636
147632
147602
147576
147572
147570
147550

000200

007224
000040
003446
003446

000007
004002
004000

177776
000051
003446
000200

003420
003444
003414

WCEOWT:

87%:
86%:

147532

147524

BEAU:

17%:

147504

aRHW(C ,W(C
aRHBA ,BA
R1

147466
147456
147446
147434

147412

003420
003444

JMP
MOV

MOV
MOV
MOV
MOV
MOV
MOV

BIT
BNE
ERROR
JSR
BIS
CLR
INC
BNE
COM
MOV

MOV
MOV

18%:

19%:

003446

147274
147370

MOV
MOV
MOV
TST

MOV

003446
003446
000200

BITCNT
WCEOWT
19%

CLR

WCEFRR:

CLR

BIT
BNE
INC

BNE
CLR

BI!

BNE
INC
BEQ
B8R
MOV
MOV

8
10:46

(WCEHI)

ODDAD
, EVENAD
#WRITEQ,QRHCST

CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

BEQ
CLR

003416
003424
003422
003432
003436
003442
003440

12-JUL=-79

WCE OW ERROR TEST

MCv

003446
00344¢
000200

3 O0A(7052)

BITCNT

#RDY ,@RH(CS1
WCEOWT

PAGE 97
SEQ 0096
STELL

;DUP ODDAD
TO WRITE

;CLEAR BIT COUNTER
;IS RDY SET
sBIT IS SET
s COUNT UP

BITCNT
18%
BITCNT

sNOT FINISHED COUNTING

WCEOWT

S YES

dRH(CS1,CS1

s SAVE RHCS1

#RDY ,aRH(S1

87%

BAE

(S3
86%

aRHBAE ,BAE

@RHCS3,(CS3
aRH(CS2,(S2
@RHST,DS1
aRHER,ER1
aRHTDB,TDR

ARHMR2,
T(C

#RDY ,aRHC(CS1

BEAU
102
R7 ,WHYFO
#40,
@RHCS2
BITCNT
BITCNT
17%
"7,
aRH(CS2
ODDAD
#EVENAD
, aRHBA
#. dRHW(
2
#WRCHO,adRHCST
BITCNT

#RDY ,adRHC(CS1
WCEERR

BITCNT
18%
BITCNT

#RDY ,adRH(S)

WCEERR

BITCNT

WCEERR
19%

aRH(ST,(S1
aRHW
, W(

:GET READY TO DU IT AGAIN
;IS IT SET veT?
;COUNT UP
;BIT IS NOT COING TO SET

;SAVE WORD COUNT
. SAVE BUS ADDRESS

;IS IT AN RH11
JNO IT'S A 70
s CLEAR BAE
;sCLEAR (S3
2 CONT INUE
:SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
;SAVE (S2
;SAVE TESTER STATUS

: SAVE ERROR REGISTER
; SAVE TESTER DATA REG.

s SAVE MR2 TESTER REG.
;1S READY SET
;RDY IS SET
;RDY DID NOT

. ANY

SET

ERRORS SET

;DO A CONTROLLER CLEAR
sSET UP FOR DELAY
s COUNT UP

JSELECT UNIT #7

sREVERSE BITS

IN ODDAD

s CORRECT BUS ADDRESS
sCORRECT w(
STELL IT TO WRITE (HECK
;CLEAR BIT COUNTER
. IS RDY SET

817 IS SEV
. COUNT UP
sNOT FINISHED COUNTING
;GET READY TQ DO IT AGAIN
SIS 1T SET YET?
;YES
:COUNT UP
JBIT IS NOT GOING TO SET
s SAVE RH(ST

s SAVE WORD COUNT

1
MASSBUS RH70 AND RH11 DIAGNCSTIC
CZRHBE .P11
07=JUN=79 13:44

W —= OO0 VO\mwa—'OOOVg A AT N

R A AN AR, AN LV LV LW W L W RV LV LV, LV, LW, RV AV, | NN NI
N N TN TN A TN NN TN
NN N UMD NN VTN
’\)—-I—-l—.l—l—d—l—l—‘_fl—)—l—d—l—l_&._‘—l—l—d_-I-l—h—l.d—J—l—‘—)-fi—l—l—‘—l_‘—l—l—l.—l—‘.—l—.-—‘_fl-fl_‘ - d

5145

033744

033752
033754
033756

033762
033766

017737
005701
001406
005037

147364

MaCY11
154

00314

87%:
86%:

147272

007224
001102
004000

040000

004737

ERTIP:

S?HBA.BA

BEQ
CLR
CLR
JMP
MOV
MOV
MOV

87%
BAE

147212

006572
050210

AR R

;*THIS

000004
012777
012777
005701
100403
012777
012777

012737
012777
012777
032777
001001

104174
005037
005037
032777
001015
005237
001371

000007
004000

147166

TST55:

147154

000000
034454
000340

READY:

177777

000161
000100
177776

003446
000200

003446

2%:
147056

18%:

JNO IT'S A 70

(S3
86%

;CLEAR (CS3
2 CONT INUE

aRHBAE ,BAE

. SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3

aRH(CS3,(S3
aRH(S2,(S2

JSAVE (S2

;SAVE TESTER STATUS
s SAVE ERROR REGISTER
;SAVE TESTER DATA RFG.
;SAVE MR2 TESTER REG.
;1S READY SET
JRDY IS-SET
;RDY DID NOT SET
:ANY ERRORS SET
;IS WCEHI SET

@RHTDR, TDR

aRHMRZ2,
T(
ERTIP

102

R7 ,WHYFO

#WCEH] ,aRH(S3

BUSH
135
R7 ,WHYFO

JWCEHI
JWCEHI

IS SET
DID NCT SET

;ANY OTHER ERRORS

$ERFLG
LEAGUE

&
7.

:1S WCELO SET

*NO,WCELO IS OK
JWCELO SET WITH WCEHI

137

#WCE ,aRH(CS?2
I.LEAGUE

;DID WCE SET
:
;WCE IS SET IN RHCSZ2
sWCE DID NOT SET IN RH(CS?
;CLEAR ERRORS

136
R7,CLEER

R7 ,ERRTST

TR AR A AR AR AR AR AR AR RRAAAAR AR AR AR AT AR AN

INTERUPT ENABLE
VERIFYS

THAT

TEST
IE

WILL

SET

IN RH(CS1

*AND T WILL CAUSE AN INTERUPT WHEN RDY IS SET

A AR R A AR AR A AR AR AR R AR AR AR AR

SCOPE

#7 ,dRH(CS2
zngNAD.aRHBA

MOV
MOV
TS7
BM]
MOV
MOV
MOV
MOV
MOV

#=1,aRHWC
AWRITEOQ
IE ,aRHCST
!

CLR

k177776

BIT
BNF
ERROR
CLR
BIT
BNE
INC
BNE

READY

#ZERO, aRHBAE

#1ETST ,avECADD

g%E.BRHCS1
174

BITCNT

#RDY ,dRH( ST
TSTIE

BITCNT

IN RH(CS3

SET

;WAS THERE AN ERROR

#WCELO,aRHCS3
LEAGUE

TEST

SEQ 0C97

sCLEAR BAE

AR R A AR AR AR A AR AR R

L*TEST 55

;SAVE BUS ADDRESS

#RDY ,aRHC(CST

FANGY
:

PAGE

;IS IT AN RH11

BIT

BNE
BIT
BUSH:
BEQ
ERROR
LEFOUT: BIT
BNE
ERROR
LEAGUE: JSR
JSR

10:46

@RHST ,DS1
aRHER ,ER1

BNE
ERROR
JSR
BIT
BNE
FRROR
JSR

(WCEHI)

MOV
MOV
MOV

TSTB

147246

TEST

MOV

147256

12=JUL=79

WCE OW ERROR

TST

003416
003416
003424
003402
0034 3¢
003436
003442
003440

30A(7052)

AR R RRAR AR AR

AARA R AR AR A AR

AR R

sSETUP UNIT NUMBER
sSETUP BUS ADDRESS

JRH11

OR RH70 ?

:ITS AN RH11
:ZERO THE BAE
;SET UP VECTOR ARDRESS
;SET PRIORTY 7
;SET FOR ONE WORD

STELL IT TO WRITE
SgY
1€
:1S
sYES CONTINUE TEST
.1E WILL NOT SET
;CLEAR BIT COUNTER
:IS RDY SET
BIT 1S SET
;COUNT UP
sNOT FINISHED COUNTING

003420
003444
003414

003416
003424
034364
147004
147000
146750
146744
146740
146736
146716
000200

003416
003424
003422
003432
003436
003442
003440
146700

034466
001103

034466

TSTIE:

87%:
86%:

1$:

10:46

PAGE 99

(LR
BIT
BNE
INC
BEQ
BR

BITCNT
#RDY ,aRH(S1
TSTIE
BITCNT
TSTIE
19%

MOV
MOV
MOV
TST
BEQ
CLR
CLR
JMP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
JMP
TSTB
BNE
ERROR

aRH(ST,(51
aRHWC ,W(
aRHBA ,BA
R1
87%
3AE
CS3
86%
aRHBAE ,BAE
aRH(S3,(S3
adRH(S2,(S2
aRHST ,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR?2, T(
#RDY ,@RHCS1
1%
102
SPLIT
$ERFLG
SPLIT
173

s SAVE RH(S1
s SAVE WORD COUNT
s SAVE BUS ADDRESS
IS IT AN RH11
sNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
s CONT INUE
s SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
;SAVE (S2
sSAVE TESTER STATUS
:SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.
;1S READY SET ?
cYES
sREADY DID NOT SET
JEXIT TEST
;WAS IE SET
sNOEXIT TEST
;RDY DID NOT CAUSE AN INTERUPT

(SP)+, (SP)+

:CORRECT STACK

JMP

022626

000137

147016
147012
147006

30A(7052)
12=JUL=79
INTERUPT ENABLE TEST

(034454

003446

001010
104173

19%:

-1

034450

5231

034444
034446

147034

5230

5228
5229

003446
000200

034262 005037
034266 032777
034274
001004
034276 005237
034302 001401
034304
000770
034306
034306 017737
034314
017737
034322 017737
034330 005701
034332
001406
034334
005037
034340 005037
034344
000137
034350 017737
034356 017737
034364
017737
034372
017737
034400 017737
034406 017737
034414
017737
034422 032777
034430 001003
034432
104102
034434
000137
034440
105737

—

5201
5202
5203
5206
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227

MACY11
155

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

SPLIT

SEG 0098

;GET READY TO DO IT AGAIN
31S 1T SET YEY?
$YES
s COUNT UP
;BIT IS NOT GOING TO SET

SEXIT TEST

‘

MASSBUS Re70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

5232
5233
5234
5235
52%

034456
034462
034454
034466

036472

105737
001401
104175
004737
004737

001103

006572
050210

£yl 1

30A(7052)

12=yuL=79

INTERUPT ENABLE TEST

TSTB
BEQ

$ERFLG
SPLIT

JSR

R7,CLEER

ERROR
ISR

175

R7,ERRTST

10:4¢

PAGE

100

SEG (0099
;DID IE SET
SYES,EXIT TEST

:IE HAS OPEN GOING
:CLEAR ERRORS

Tu BUS

MASSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE
07=JUN=7G 13:4
. P11

5237
5238
5239
5240
5241
5242
5243
5244
5245

MACY11
156

30A(7052)

12=JUL=79

READ OPERATIONAL

TEST

8
10:46

-3

PAGE

(NORMAL)

101

SEQ 0100

tttt..tt""'.!'tt.'fi."Q'Qfitfi'..fiitt'tfifitfi..Qtfi't.'tttfi'..Qt.Q

-TEST

56
READ OPERATIONAL TEST (NORMAL) #1
;*THESE TESTS VERIFY ALL READ AND WRITE CODES
:*WHETHER 1T BE A READ REV. OR FWD OR A WRITE REV.

OR FuD

s*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
;*NO ERRORS SHOULD OCCUR

ttfitt'flttt'.Qt"t'ttt".Qittttfit'fi.ttt'."'ikttttt.t't't'ttti't

000004
012777
012777
012777
012737
012777
005701
100403

012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737

017737
017737
005701
001406
005037
005037
000137

017737
017737
017737
017737
017737
017737
017737
017737

032777
001003
104102

004737
023777
001407

005737

001403

104147

000007

177777
004100
000000
125252

000000
000071
003446
000200

TSTSé

146632
146616
146612

004100
146612

003416
003424
034702
146466
146462
146432
146426
146422
146420

146400
146404
000200

007224
004100

004100

MOV
MOV
MOV
TST

#RBUF , aRHBA
#ZERO ,RBUF
#0AB ,aRHTDB
R1

B8MI

146610

146552

1$:

146540

18%:

146516

19%:

003446

146500
146474
146470

#7 ,@RHCS2

MOV

003446

003446
000200

SCOPE

MOV

2%:

003420
003444
003414

MOV

MoV
CLR
BIT

BNE
INC
BNE

CLR
BIT

87%:
86%:

003436
003442
003440
001162
146354

146356

3%:

:FOR ONE WORD

:SRTUP
:SETUP
;SETUP
IS IT

BA
DATA
TESTER DB
AN 11 OR A

JIT'S AN RH11

#ZERO, IRHBAE

: ZERO BAE

#READOQ,@RH(S1

JTELL

2%
BITCNT
18%
BITCNT

;BIT IS SET
s COUNT UP
sNOT FINISHED COUNTINC

BITCNT
#RDY ,dRH(S1

IT TO READO

;CLEAR BIT COUNTER
;IS RDY SET

;GET READY TO DO IT AGAIN
‘
s1S IV SET YET?

ggDY.aRHCS1

BNE
INC
BEQ

BITCNT
2%

JYES
sCOUNT UP
;BIT IS NOT GOING TO SET

MOV

@RH(CS1,CS1

;SAVF RHCS1

B8R

MOV
MOV
TST

003416
003424
003422
003432

;SETUP UNIT SEVEN

#=1,aRHWC

BEQ
CLR
CLR
JMP

MoV
MOV
MOV

MOV
"oV
MOV
MOV
MOV

19%

aRHWC ,WC
aRHBA ,BA
R1

87%
BAE
(S3
86%

@dRHBAE ,BAE
@RH(S3,C53
aRH(S2, (52

aRHST,DS1
aRHER,ER1
aRHTDRB, TDR
aRHMR2, T(
aRHTDB, $REGO

;SAVE WORD COUNT
+SAVE BUS ADDRESS
;IS IT AN RH11

JNO IT'S A 70
;CLEAR RAE
;CLEAR (CS3
s CONT INUE

s SAVE BUS ADDRESS EXTENSION

:SAVE RHCS3
sSAVE (S2

)

;SAVE TESTER STATUS
:SAVE ERROR REGISTER
sSAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
:GET DATA

BIT
BNE
ERROR
JSR

#RDY ,aRHCS1
3%
102
R7 ,WHYFO

;IS OR SET
:YeS RDY IS SET
sREADY DID NOT SET
sARE ANY ERRORS SET

BEQ

;INFO GOT LOADED

8EQ
ERROR

5%
147

CMP
TST

RBUF ,aRHTDB

RBUF

:DID INFO GET WRITTEN OR READ

:DOES RBUF

= 0

;YES INFO DID NOT LOAD
., sALL BITS DID NOT LOAD DURING

;AN READQ OPERATION

;

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRMBE.P11 07=JUN=79 13:44

5293
5294
5295
5296

5297

5298
5299
5300
5301
5302

5303

035006
035010

000137
104150

035012

004737

035022
035004
035006
035030
035034

001402
104146
104170
004737
004737

035016

105737

035012
007224

001103

30A(71052)
12=JUL=79
10:46
PAGE 102
READ OPERATIONAL TEST (NORMAL) #1

5% :

M
ERROR

48
150

4$:

JSR

R7,WHYFO

EXIT TEST
:READO OPERATION DID NOT WORK
:NO BITS WHERE LOADED TO RBUF
ANY ERRORS SET

SERFLG

ANY ERRORS ?

TSTB

006572
050210

‘%
B

MACY11
156

68:

BEQ
ERROR
ERROR
JSR
JSR

6%
146
170
R7.CLEER
R7.ERRTST

*NO,EXIT TEST
:PRINT REGISTERS
:CLEAR ERRORS

* tl"t.tttit'*t'tttttfitti'l.ttttttfifi'!'tfiillt't'ttfifiit.'!'..ttfitt

5304
5305
5306
5307
5308

IATEST 57
RH_OPERATIONAL WRITE TEST #1
;*THESE TESTS VERIFY ALL READ AND WRITE CODES
;*WHETHER 1T BE A READ REV. OR FWD OR A WRITE REV. OR FWD
: *DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
:*NO ERRORS SHOULD OCCUR
;

5310

't'*it*tfi.'tfi'fi.'ll’ttt"'*t..tfltQfiQl’fittttttii"fi'*fi"‘.'itt..t'

5311
5312
5312
5314
5315
5316
5317
5318
5319
5320
5321
5322
5323
5324
5325
5326
5327
5308
5329
4330,
5331
5332
5333
533,
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346
53,7
5348

035040 000004
035042 012777
035050 012737
035056 012777
035064
012777
035072
905701
(35074
100403
035076 012777
035104
012777
035112
012777
035120 012777
035126 005037
035132 005237
035136 022737
035144
001372
035146 (12777
035154
012777
035162 012777
035170 012777
035176 012777
035204
005037
035210 032777
035216 001015
035020 005237
035224 001371
035026 005037
035232 032777
035240 001004
035242° 005237
035246 001401
035250 000770
(35052
035252 .017737
035060 017737
035266
017737
035074
005701
035276 001406
035300 005037

000007
125252
000003
177777
000000
004000
000061
000001
003446
003446
000015
000003
000001
000003
000001
000000
003446
000200

_
146270
004000
146270
146240
146254
146222
146210
146226
003446

18757:

1%:

2%:

146200
146172
146164
146156
146150
146112

18%:

146070

19%:

003446

003446
000200
003446

146052
146046
146042

003416

003420
003444
003414

7%:

SCOPE
MOV
MOV
MOV
MOV
1ST
BM]
MOV
MOV
MOV
MOV
CLR
INC
C(MP
BNE
MOV
MOV
MOV
MOV
MOV
CLR
.
BIT
BNE
INC
BNE
(LR
BIT
BN,
INC'
BEQ
BR
‘
MOV
MOV
MOV
TST
BEQ
(LR

#7,RHMCS2
#OAB,EVENAD
#DMDMCLK,aRHMR]
#=1,aRHWC
RI
1$
#ZERO,aRHBAE
AEVENAD,aRHBA
#WRITEQ.@RHCS1
#DMD,aRHMR1
BITCNT
BITCNT
#15,BITCNT
2%
#DMD'MCLK,@RHMR1
#DMD.aRHMR1
#DMDMCLK,@RHMR1
#DMD,aRHMRT
#ZERO,aRHMRI
BITCNI
ARDY,aRMCSI
7$
BITCNT
188
BITCNT
ARDY,aRHCS
73
°
BITCNT
7%
198
@RHCS1,(ST
@RHWC,WC
@RHBA.BA .
R1
87%
BAE

;SETUP UNIT SEVEN
:
:SETUP INFORMATION
:SETUP DIAG. MQDE
:FOR ONE WORD
(IS IT A 11 OR 70
FIT'S AN 11
:ZERO BAE
*SETUP BA
TELL IT TO WRITETO
*MANIPULATE CLOCK
CLEAR LOOP COUNTER
: INCREMENT LOOP COUNTER
IS IT THIRD LOOP FOR SUSEC WAIT
NO LOOP AGAIN
;START CHANGING CLOCK
;CHANGE CLOCK AGAIN
; CHANGE CLOCK AGAIN
; CHANGE CLOCK AGAIN
:GET OUT OF DIAG MODE
*CLEAR BIT COUNTEK
IS RDY SET
*BIT IS SET
COUNT UP
NOT F INISHED COUNTING
:
*GET READY TO DO IT AGAIN
IS IT SET YET?
SYES
:COUNT UP
*BIT IS NOT GOING TO SET

.
:SAVE RHCS1
:SAVE WORD COUNT
:SAVE BUS ADDRE SS
1S IT AN RH11
INO IT'S A 70
‘CLEAR BAE

SEQ 0101

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE .P11

07=JUN=79 132:44

5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361

035304
035310
035314
035322
035330
035336
035344
035352,
035360
035366
035374
035402
035404

005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001
104102

5363

035414

001001

5362

5364
5365
5366

5367
5368
5369
5370
5371
5372
5373
5374
5375
5376

5377
5378
5379
5380

035406

035416
035420
035426

035430
035432
035449
035442
035444
035450
035454
035456
035460
035462
035466

?g$v11

022777
104140
022777
001401
104141
023777
001401
104142
004737
105737
001402

003424
035339
146040
146034
146004
146000
145774
145772
145752
145756
000200

003416
003424
003422
003432
003436
003442
003440
001162
145726

87%:

177777

145716

8%:

004002

145706

3%:

004000

145710

4%:

;

007224
001103

582

104146

104170
004737
004737

86%:

6%:

RH OPERATIONAL WRITE

CLR
JMP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
CMP

BNE

ERROR
CMP
BEQ

ERROR
CMP
BEQ
ERROR
JSR
TSTB
BEQ
ERROR
ERROR
JSR

10:46

TEST #1

(S3
- 86%
@RHBAE ,BAE
aRH(S3,(CS3
aRH(S2,(CS2
a@RHS1,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR?2, T(
aRHTDB, $REGO
#RDY ,aRH(CST
8%
102
#=1,3RHWC

140
#0DDAD , aRHBA
4%
:
141
EVENAD ,aRHTDB
5%
142
R7 ,WHYFO
$ERFLG
6%

146

PAGE

103

SEQ@ 0102

;CLEAR (S3
- CONT INUE
. SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
sSAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;GET DATA
;1S READY SET
JYES,CONTINUE TEST
;READY DID NOT SET
;DID WC

INCREMENT

JYES,CONT TEST

JWRITETO OPERATION DID NOT
;DID BA INCREMENT
JYES CONT TEST

_-;tt'-tt-tttttttt.ttntttttntttn.ttnttttntqt{.fittnnnttt-tnntn-tn:

035472

035474

000004

012777

5388
5389
5390
5391
5392
5393
5394

035502
035510
025516
035524
035532
035534
035536

012777
032777
01¢737
012777
005701
100403
012777

5396
5397
5398
5399
5400
5401
5402
5403
5404

035552
035556
035564
035566
035572
035574
03560C
035606
035610

005037
032777
001015
005237
001371
005037
032777
001004
005237

035544

012777

000007

177777
004100
000000
125252
000000

000073

003446
000200

145636

003446

TST60:

145622
145616
004100
145616
145614

145556

1%:

145544

18%:
:

145522
.

19%:

003446

003446
000200

INC WC

sBA DID NOT INCREMENT AFTER AN WRITETO OPERATION
;DID INFO WRITETO TESTER
:
sYES,CONT
JINFO DID NOT WRITETO TESTER
;ARE ANY ERROR BITS SET
;WAS THER AN ERROR
sNO EXIT TEST
;THESE ARE THE CONTENTS OF ALL RH70 REG..
sTHIS IS TO COMMPLETE ERROR PRINTOUT
;CLEER ERRORS IF ANY

:*NO ERRORS SHOULD OCCUR

5385

5395

-9

s*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND

gggz

5387

12=JuUL=79

170
R7,CLEER
JSR
R7 ,ERRTST
DI R R
R
R AR AR A AN AR R AR AR AR AR R AR R AR AR R AR RRRARAR AR R R AR R AR
J*TEST 60
READ OPERATIONAL TEST (NORMAL) #2
s*THESE TESTS VERIFY ALL READ AND WRITE CODES
‘

006572
050210

5381
5282

5286

30A(71052)

SCOPE

MOV

ARH(CS?2

sSETUP UNIT

SEVEN

MOV
MOV
' MOV
MOV
TST
BM]
MOV

#-1,3RHWC
#RBUF ,aRHBA
#ZERQO,RBUF
#0AB,aRHTDB
R1
1%
#7ERO,dRHBAE

;FOR ONE WORD
;SRTUP BA
;SETUP DATA
;SETUP TESTER DB
;IS IT AN 11 OR A 70
sIiT'S AN RH11
. ZERO BAE

(LR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC

BITCNT #RDY ,@RH(CS1
2%
BITCNT
18%
BITCNT
#RDY ,aRHC(S1
2%
BITCNT

sCLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
JCOUNT UP
JNOT FINISHED COUNTING
JGET READY TO DO IT AGAIN
JIS IT SET YET?
s¥ES
sCOUNT UP

MOV

#READé.QRHCSl

JTELL IT TO READ?

.
;

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

5405

5406
5407
5408
5409

5410
5611
5412
5413
5414

5415
5416
5417
5418
5419
5420
5421
5422
5423
5424
pLYS
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449

5450
5451
5452
5453
5454

5455
5456

5457
5458
5459
5460

035614 001401
035616 .000770
035620
035620 017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102

T60

003420
003444
003414

000200

004737
023777
001407
005737
001403

007224
004100

036000
036004

000137
104150

036006

036006
036012
036016
036020
036022
036024
036030

004737

007224
001103

035776

MACY1?

003416
003424
003422
003432
003436
003442
003440
001162

30A(7052)

MOV

MOV
MOV
TST

BEQ
CLR
CLR
JMP

87%:

MOV

86%:

MOV

MOV
MOV
MOV
MOV

MOV

145360

145362

BIT
BNE
ERROR
JSR
CMP
BEQ

105737

104146
104170

004737
004737

10:46
PAGE 104
TEST (NORMAL) #2

SEQ 0103

;BIT IS NOT GOING TO SET

aRH(S1,CS1T

;SAVE RHCS1
:SAVE WORD COUNT

19%

aRHWC ,W(
aRHBA,BA
R1

. SAVE BUS ADDRESS

;1S IT AN RH11
JNO IT'S A 70
;CLEAR BAE

87%

BAE

CS3
86%
adRHBAE ,BAE
@dRHCS3,(S3
@dRH(CS2,(S2
@dRHST,DS1

;CLEAR (S3
2 CONT INUE

;SAVE BUS ADDRESS EXTENSION

;SAVE RHCS3

JSAVE (S2
:SAVE TESTER STATUS

aRHER,ER1
aRHTDB, TDR

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

aRHMR?2,
T(
@dRHTDB, $REGO

;SAVE MRZ TESTER REG.
;GET DATA
;1S OR SET

#RDY ,@RHCS1

;YES RDY

102
R7 ,WHYFO

IS SET

4%
RBUF
5%
147

5%:

JMP
ERROR

SEXIT TEST

4%:

JSR

R7 ,WHYFO
$ERFLG
6%
146
170
R7,CLEER
R7 ,ERRTST

3%:

004100

006572
050210

;READY DID MNOT SET
;ARE ANY ERRORS SET
;DID INFO GET WRITTEN OR READ
;INFO GOT LOADED
;DOES RBUF = 0
;JYES INFO DID NOT LOAD
;ALL BITS DID NOT LOAD DURING

TST

BEQ
ERROR

104147

001402

READ OPERATIONAL

BEQ
BR

2%:

12=JUL=79

TSTB

6%:

BEQ
ERROR
ERROR
JSR
JSR

SRR AR AR

S*TEST 61

RBUF ,@RHTDB

;AN READ2 OPERATION

150

A AR A AR A A

;JREAD2 OPERATION DID NOT WORK

A A A AR R

sNO BITS WHERE LOADED TO RBUF

;ANY ERRORS SET
;ANY ERRORS ?

JNO,EXIT TEST

JPRINT REGISTERS

:CLEAR ERRORS
A AR A AR AR AR AR AR

READ OPERATIONAL

AR R R

Rk hn

TEST 41

;*THESE TESTS VERIFY ALL READ AND WRITE CODES
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
s*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
:*NO ERRORS SHOULD OCCUR

036034
036036
036044
036052
036060
036070
036072
036100

000004
012777
012777
012777
012777
005701

000007
052525
000003
177777

012777
012777

000000
004000

100403

TST61:

SCOPE

MOV
MOV

MOV

1%:

MOV
TST
BM]
MOV
MOV

#7 ,aRH(CS2

#AB,aRHTDB
#DMD !MCLK ,aRHMR1
#=1,aRHWC

#ZERO, aRHBAE
#EVEN
, aRHBA
AD

2222333232322

2222222

sSETUP UNIT SEVEN
;SETUP INFORMATION

;SETUP DIAG. MODE
;FOR ONE WORD
IS ITA11T0R 70
JIT'S AN 11

;ZERO BAE

JSETUP BA

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE PN
07=JUN=79 13:44

5461
5462
5463

5464

5665

5466

5467
5468
5469
5470
5471
5472
5473
5474
5475
5476

5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494

036106
036114
036122
036126
036132

012777
012777
005037
005237
022737
001372
012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004

000071
000001
003446
003446
000015
000003
000001
000003
000001
000000
003446
000200

T61

145214
145232

003446

003446
000200
003446

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001

145056
165052
145046

2%:

145204
165176
145170
145162
145154
145116

18%:

145074

19%:

003416
003424
036324
145044
145040
145010

145004
145000
144776
144756
144762
000200

003420
003444
003414

7$:

87%:
86%:

003442

003440
001162
144732

177777

022777

004002

144712

3%:

023777
001401

004000

1644714

4%:

004737

007224
001103

001401
104144
104145

105737

001402

104146
104170

MOV
CLR
INC
CMP
BNE

MOV
MOV
MOV
MOV
MOV
(LR
BIT

BNE
INC
BNE

144722

8%:

5%:

TEST #1

#READO,aRH(S1

#DMD
, aRHMR 1
BITCNT
BITCNT
#15,BITCNT
2%

ADMD 'MCLK ,dRHMR1
#DMD ,aRHMR 1
#DMD !MCLK ,aRHMR1
#DMD ,aRHMR 1
#Z7ERO,dRHMR1
BITCNT
#RDY ,aRH(CS1

CLR

7%
BITCNT
18%
BITCNT

BNE
INC
BEQ
BR

%
BITCNT
7%
19%

MOV
MOV

aRHCS1,(CS1
aARHW( ,WC

BIT

BEQ

003416
003424
003422
003432
003436

N 8
12=JUL=79 10:46

READ OPERATIONAL

MOV
TST

022777
001001
104143

30A(71052)
MOV

003446

005237
001401
000770

104102

MACY11

#RDY ,aRHCS1

aRHBA ,BA
R1

87%

CLR
CLR
JMP

BAE
(S3
863

MOV
MOV
MOV
BIT

aRHTDB, TDR
aRHMR?2,
T(
aRHTDB, $REGO
#RDY ,aRHCS1

MOV
MOV
MOV
MOV
MOV

aRHBAE ,BAE
@RH(CS3,CS3
@RH(S2,(S2
@RHST,DS1
aRHER,ER1

BNE
ERROR
CMP
BNE
ERROR
CMP
BEQ
ERROR

8%
102
#-1,aRHWC
3%
143
#0DDAD
, aRHBA
4%
144

BEQ
ERROR

5%
145

CMP

EVENAD ,aRHTDB

JSR

R7 ,WHYFO

BEQ
ERROR
ERROR

6%
146
170

TSTB

$ERFLG

PAGE

105

SEQ 0104

JTELL IT TO READFROM
sMANIPULATE CLOCK
sCLEAR LOOP COUNTER
. INCREMENT LOOP COUNTER
JIS IT THIRD LOOP FOR SUSEC WAIT
sNO LOOP AGAIN
sSTART CHANGING CLOCK
. CHANGE CLOCK AGAIN
s CHANGE CLOCK AGAIN
. CHANGE CLOCK AGAIN
JGET OUT OF DIAG MODE
sCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
;COUNT UP
sNOT FINISHED COUNT ING
;GET READY TO DO IT AGAIN
21S 1T SET YET?
JYES

sCOUNT UP

:BIT IS NOT GOING TO SET

;SAVE RHCS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11

;NO IT'S A 70

;CLEAR BAE
;CLEAR (S3
:CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
;SAVE (S2
;SAVE TESTER STATUS

;SAVE

ERROR REGISTER

sSAVE TESTER DATA REG.

;SAVE MR2 TESTER REG.
;GET DATA
;1S READY SET
JYES,CONTINUE TEST
JREADY DID NOT SET
;DID WC INCREMENT
JYES,CONT

TEST

JREADFROM OP. RATION DID NOT INC WC
;DID BA INCREMENT
JYES CONT TEST
;BA DID NOT INCREMENT AFTER AN READFROM OPERATIO
;DID INFO READFROM TESTER
JYES,CONT
JINFO DID NOT READFROM TESTER
;ARE ANY ERROR BITS SET
:WAS THER AN ERROR

sNO EXIT TEST

sTHESE ARE

THE

CONTENTS OF

ALL

RM70 REG.

JTHIS IS TO COMMPLETE ERROR PRINTOUT
\

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE P11
07=JUN=79 13:44

036456
036462

004737
004737

MACY11 30A(7052)

006572
050210

12=JUL=79

161

READ OPERATIONAL

6%:

JSR
JSR

10:46

TEST #1

R7,CLEER
R7 ,ERRTST

PAGE 106

SEQ 0105

;CLEER ERRORS IF ANY

RAA RN AR AR R AR AR AR AR RRRRRRRRR R AR AR

RRRRRR AR AR AR

;*TEST 62
READ OPERATIONAL TEST (NORMAL) #3
s*THESE TESTS VERIFY ALL READ AND WRITE CODES
s*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV.

OR FWD

s*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
:*NO ERRORS SHOULD OCCUR

000004

012777
012777
012777
012737
012777
005701

000007
177777
004100
000000

012777
012777
005037
032777
001015
005237
001371

000000
000075
003446
000200

100403

005037
032777
001004
005237
001401
000770

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
023777
001407
005737
001403

125252

144642
144626
144622

004100
144622

#7 ,@RHCS2

sSETUP UNIT SEVEN

MOV
TST

#0AB,aRHTDB
R1

;SETUP TESTER DB
;IS IT AN 11 OR A 70

MOV

#ZERO,aRHBAE

: ZERO BAE

BMI

144620
144562

1%:

144550

18%:

144526

SCOPE
MOV
MOV
MOV
MOV

003446

003446
000200

ARSRRl
R332 2233232332222322223223

TST62:

198:

003446
"

MOV
CLR

BIT

BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

MOV

003420
003444
003414

000200

007224
004100
004100

87%:

86%:

144364

144366

#READ4 ,QRHC(S1
BITCNT
#RDY ,aRH(S1
2%
BITCNT

;IT'S AN RH11

sTELL IT TO READ4
;CLEAR BIT COUNTER
;1S RDY SET

BITCNT
#RDY ,@RHCS1

;BIT IS SET
s COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
1S 1T SET ¥E12
s YES
s COUNT UP
;BIT IS NOT GOING TO SET

@RH(CS1, (ST

s SAVE RHCST

18%

2%
BITCNT
2%
19%

aRHWC ,W(
aRHBA ,BA
R1

:SAVE WORD COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11

CLR

BAE

:CLEAR BAE

MoV
MOV

@dRH(CS2,(S3
aRH(CS2,(S2

CLR
JMP
MOV
MOV
MOV
MOV
MOV

87%

cS3
86%
aRHBAE ,BAE

aRHST,DS1
aRHER ,ER1
aRHTDB, TDR
aRHMR2, TC

;NO IT'S A 70

;CLEAR (S3
s CONT INUE
:SAVE BUS ADDRESS EXTENSION

:SAVE RHCS3
:SAVE CS2

;SAVE TESTER STATUS
:SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.

MOV
BIT

aRHTDB, $REGO
#RDY ,@RHCS1

:GET DATA
;1S OR SET

JSR

R7 ,WHYFOQ

;ARE ANY ERRORS SET

BEQ

BNE
ERROR
3%:

;FOR ONE WORD
:SRTUP BA
;SETUP DATA

MoV
MOV
TST

BEQ

003416
003424
003422
003432
003436
003442
003440
001162

#-1,aRHWC
#RBUF , aRHBA
#ZERO ,RBUF

CMP
TST

BEGQ

3%
102

RBUF ,aRHTDB

RBUF

;YES RDY IS SET
sREADY DID NOT SET

;DID INFO GET WRITTEN OR READ
: INFO GOT LOADED
;DOES RBUF

= 0

2YES INFO DID NOT LOAD

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

5573
5574

036772

106147

036774
037000

000137

037002

00473

007224
001103

104150

10573
001402

037020
037024

104146
104170

004737
004737

006572
050210

MACY11
162

30A(i052)

12=JUL=79

READ OPERATIONAL

ERROR

147

5%:

JMP
ERROR

4%
150

(%:

JSR

R7 ,WHYFO
$ERFLG

6%:

TSTB

BEQ
ERROR
ERROR
JSR
JSR

146
170

R7.CLEER
R7 ,ERRTST

TEST

10:46

PAGE_107

(NORMAL)

JALL BITS DID NOT LOAD DURING
;AN READ4 OPERATION
SEXIT TEST
sREAD4 OPERATION DID NOT WORK
;NO BITS WHERE LOADED TO RBUF
JANY ERRORS SET
;ANY ERRORS ?
sNO,EXIT TEST

;PRINT REGISTERS

:CLEAR ERRORS

SEQ 0106

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

5585

5586
5587
5588
5589
5590
5591
5592
5593 037030

MACYi1
163

30A(7052)
12=JUL=79
10:46
PAGE
RH OPERATIONAL WRITE TEST #2

IR AR R R R

RN R RN AR R AR AR R R R AR AR

RN R AR

108

SEQ 0107

AR R AR AR

RRRRRR AN R AR R R RS

s*TEST 63
RH OPERATIONAL WRITE TEST #2
s*THESE TESTS VERIFY ALL READ AND WRITE CODES
J*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV.

OR FWD

;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
;*NO ERRORS

000004

T5763:

SHOULD OCCUR

AR AR AR AR AARAT AR AR

SCOPE

RS R R AR AR R AR AR

AR AR

AT AR AN

R RS

R w

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE .”11

559
5595
55%
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632

5633
5634
5635
5636

037032
037040
037046
037054
037062
037064
037066
037074
037102
037110
037116
037122
037126
037134
037136
037144
037152
037160
037166
037174
037200
037206
037210
037214
037216
037222
037230
037232
037236
037240
037242
037242
037250
037256
037264
037266
037270
037274
037300
037304
037312
037320
037326
037334
037342
037350
037356

07=JUN=79 13:44

012777
012737
012777
012777
005701
100403

012777
012777
012777
012777
005037
005237
022737
001372
012777
012777
012777
012777
012777
005037
032777
001015
005237
001371

000007
125252

0010C3
177777
000000
004000
000063

001001
003446
003446
000015

001003
001001
001003
001001
000000
003446
00020C

003446
000200

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001

144062
144056
144052

104102

104140

022777
(0014017
104147

144300
004000
144300
144250

144264
144232
144220
144236

003446

1%:

2%:

18%:

144100

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440
001162

177777

143726

004002

#=1,3RHWC

19%:

7%:

87%:
86%:

143716

8¢%:
3%:

#DMD !MCLK ! SLKM, @RHMR 1

MOV
MOV

#ZERC, aRHBAE
#EVENA
, aRHBA
D

MoV
CLR

#DMD ! SLKM,aRHMR1
BITCNT

MOV

INC
CMP

MOV
MOV
MOV
MOV
CLR
BIT
BNE

A#WRITE2,dRHCS1

BITCNT
#15,BITCNT
2%

#DMD !MCLK ! SLKM, aRHMR 1

#DMD ! SLKM, @RHMR1
#DMD !MCLK ! SLKM, aRHMR1
#DMD ! SLKM,
RHMR 1
#ZERO,aRHMR1
BITCNT
ggDY.aRHCS1

INC

BITCNT

CLR
BIT
BNE
INC
BEQ

BITCNT
ggDY.aRHCS1

MOV

18%

sSETUP UNIT SEVEN
;SETUP INFORMATION
;SETUP DIAG. MODE
;FOR ONE WORD
;IS ITA110R 70
JIT'S AN 11
;ZERO BAE
;SETUP BA
JTELL IT TO WRITETO
;MANIPULATE CLOCK
;CLEAR LOOP COUNTER
s INCREMENT LOOP COUNTER
;1S IT THIRD LOOP FOR SUSEC WAIT
;NO LOOP AGAIN
;START CHANGING CLOCK
s CHANGE CLOCK AGAIN
;s CHANGE CLOCK AGAIN
s CHANGE CLOCK AGAIN
JGET OUT OF DIAG MODE
sCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
;COUNT UP

sNOT FINISHED COUNTING

aRHCS1,CST

s SAVE RHCS1

19%

CLR

BAE

87%

CS3
86%
aRHBAE ,BAE
@RH(CS3,(S3
aRH(CS2,(S2

MOV
MOV

aRHST ,DS1
aRHER,ER1

MOV

aRHMRZ,
T(

aRHTDB, TDR

MOV
BIT
BNE

aRHTDB, $REGO
ggDY.aRHCS1

(MP

#-1,aRHWC

BNE
ERROR
CMP
BEQ
ERROR

SEQ 0108

BITCNT
7$

aRHWC ,WC
aRHBA ,BA
R1

ERROR

109

sGET READY TO DO IT AGAIN
IS IT SET YET?
:YES
;COUNT UP
;BIT IS NOT GOING TO SET

MOV
MOV
TST

CLR
JMP
MOV
MOV
MOV

PAGE

TEST #2

MOV -

143736

10:46

TST

BEQ

144050
144044
144014
144010
144004
144002
143762
143766

000200

MOV

BNE

003446

003416
003424
037320

#7 ,dRHCS?2
#0AB
, EVENAD

MOV

144160

WRITE

MOV
MOV

BNE

144166

12=JyUL=79

RH OPERATIONAL

BMI

144210
144202
144174

144122

30A(7052)

MOV

003446

005037
032777
001004
005237
0014901
000770

022777
001001

037420

¢25Y11

102

3%
140
#0DDAD
, aRHBA
4%
141

:SAVE WORD COUNT
:SAVE BUS ADDRESS
;IS IT AN RH11

;NO IT'S A 70
;CLEAR BAE

;CLEAR (S3

s CONT INUE
sSAVE BUS ADDRESS EXTENSION

sSAVE RH(CS3
;SAVE CS2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;GET DATA
SET
READY
;1S
E TEST
ONTINU
;YES,C
JREADY DID NOT

SET

;DID WC INCREMENT

JYES,CONT

TEST

WRITETO OPERATION DID NOT

:DID BA INCREMENT
sYES CONT TEST
sBA DID NOT

INCREMENT

INC WC

AFTER AN WRITETU OFERATION

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660

5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675

037422
037430
037432
037434
037440
037444
037446
037450
037452
037456

023777
001401

004000

00473%7

007224
001103

106142

105737

001402

104146
104170

004737
004737

MACY11
T63
143720

006572

050210

=
F
30A(i052)
1¢=JUL=79
RH OPERATIONAL WRITE

4%:

tMP

5%:

BEQ
ERROR
JSR

6%:

BEQ
ERROR
ERROR
JSR

TSTR

JSR

10:46
PAGE
TEST #2

110

SEQ 0109

;DID INFO WRITETO TESTER

EVENAD ,aRHTDB
5%
142
R7 ,WHYFO
$ERFLG

sYES,CONT

JINFO DID NOT WRITETO TESTER

;ARE ANY ERROR BITS SET
;WAS

THER AN ERROR

JNO EXIT TEST

146
170
R7,CLEER
R7 ,ERRTST

s THESE

ARE

THE

CONTENTS OF

'"ttttttt'tfi'.t.tfitttttt""'tfitttfifi&*tfittfitti*..t't"t'fittt!"ti

TRTEST 64

J*THESE

READ OPERATIONAL

TESTS VERIFY ALL

TEST

(NORMAL)

READ AND WRITE

#4
CODES

;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND

;*NO ERRORS SHOULD OCCUR
A

037462
037464
037472
037500
037506
037514
037522
037524
037526
037534
037542
037546
037554
037556
037562
037564
037570
037576

000004
012777
012777
012777
012737
012777
005701
100403

012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

000007

177777
004100
000000
125252

000000
000077
003446
000200

143646
143632
143626

003446

000200

TST
BMI

143624
143566

1%:

143554

18%:

19%:

003446

003416
003424
003422

017737

MOV
MOV

143626

003420
003444
003414

143420

00343
003436
003442
003440
001162

SCOPE

MOV

004100

143532

SRRl

MOV
MOV

003446

017737
017737
017737
005701
001406
005037

037716
037724

TST64:

2%:

MOV
MOV

B6%:

#=1,aRHW(
#RBUF
, aRHBA
#ZERO ,RBUF
;OAB.BRHTDB
|

#ZERO, aRHBAE

#READG, aRH(S1

BITCNT

INC

BITCNT
18%
BITCNT

BIT
BNE

BNE
CLR

8IT
BNE
INC
BEQ
BR

MOV
MoV
MOV
TS7

87%:

#7 ,@RH(CS2

CLR

BEQ
CLR
CLR
JMP
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#RDY ,@RHCS1

2222232323223

3322232220

sSETUP UNIT SEVEN
sFOR ONE WORD
;SRTUP BA

;SETUP DATA
;SETUP TESTER DB
IS IT AN 11 OR A 70
;IT'S AN RH11
»
. ZERO BAE
;TELL IT TO READ6
sCLEAR BIT COUNTER
;IS RDY SET
sBIT 1S SET
;COUNT UP

sNOT FINISHED COUNTING

#RDY ,aRHC(S1

BITCNT
2%

ALL

RH70 REG.

sTHIS IS TO COMMPLETE ERROR PRINTOUT
;CLEER ERRORS IF ANY

19%

;GET READY TO DO IT AGAIN
I8 11 SET YEN?

JYES

;COUNT UP
JBIT IS NOT GOING TQO SET

@RH(S1,(ST
ARHWC
, W(

;s SAVE RHCS1

87%

JNO IT'S A 70
. CLEAR BAE
:CLEAR (S3
s CONT INUE
. SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
JSAVE (S2
;SAVE TESTER STATUS

aRHBA ,BA
R1

BAE

(S3
86%

aRHBAE ,BAE

@dRH(S3,(S3

aRH(S2,(S2
a@RHST,DS1
aRHER,ER1
aRHTDR, TDR

aRHMRZ2,
T(
aRHTDB,
$RE GO

;SAVE WORD COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11

;SAVE ERROR REGISTER

sSAVE TESTER DATA REG.

:SAVE MR2 TESTER REG.
JGET DATA

MASSBUS RH70 AND RH11_DIAGNCSTIC
(ZRHBE .P11
07=JUN=7S 13:44

5706

5707

5708
5709
5710
5711
5712
5713
5714
5715
5716

5717

037732

037740

032777

001003

037742
037744
037750
037756
037760
037764
037766

104102
004737
023777
001407
005737
001403
104115

037770

000137

037774

5718
5719 037776
5720 040002
5721
040006
57¢2
040010
5723 040012
5724 . 040014
5725
040020
5726

104307

004737
105737
001402
104146
104170
004737
004737

000200
007224
004100

3%:

037776

006572
050210

5756
5757
5758
5759
5760
5761

JMP

JREADY DID NOT SET
sARE ANY ERRORS SET
;DID INFO GET WRITTEN OR READ
s INFO GOT LOADED
;DOES RBUF = 0
JYES INFC DID NOT LOAD
;ALL BITS DID NOT LOAD DURING
;AN READ6 OPERATION
JEXIT TEST

*YES RDY IS SET

107

sREADG OPERATION DID NOT WORK

sNO BITS WHERE LOADED TO RBUF
JANY ERRORS SET
;JANY ERRORS ?
sNOLEXIT TEST
JPRINT REGISTERS

R7 ,WHYFO
$ERFLG
6%
146
170
R7,CLEER
R7 ,ERRTST

;s CLEAR ERRORS

AA AR AR AR AR AR AR AR AR R RN RN RN AR RARRRARRAARAR I AR R AR R RR AR AR AR A

;s*TEST 65

RH OPERATIONAL READ TEST #2

s*THESE TESTS VERIFY ALL READ AND WRITE CODES
J*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND

;*NO ERRORS SHOULD OCCUR

5733

5755

102
R7 ,WHYFO
RBUF ,aRHTDB
4%
RBUF
5%
115

JSR
TSTB
BEQ
ERROR
ERROR
JSR
JSR

g;g;

5753
5754

ERROR
JSR
(WP
BEQ
TST
BEQ
ERROR

5728
5729
5730

5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752

;13 OR T

ERROR

6%:

8727

ARDY ,aRH(S1

5%:

SEQ 0110

BIT

BNE

143372

30A(i052)
12=JUL=79
10:46
PAGE 111
READ OPERATIONAL TEST (NORMAL) #4

143370

004100

007224
001103

MACYT1
Té4

040024
040026
040034
040042
040050
(040056
(040060
040062
040070
040076
040104
040112
040116
040122
040130
040132
040140
040146
040154

040162
040170

040174

040202
040204
040270
040212
(4021%
040224

000094
012777
012777
012777
012777
0057u1
100403
012777
012777
012777
012777
005037
005237
022737
001372
012777
012777
012777
012777

012777
005037

032777

001015
005237
001371
005037
032777
001004

000007
052525
€01003
177777

143304
143306
143304
143254

000000
004000
000073
001001

143270
143236
143224
143242

003446
003446
000015

003446

001003
001001
001003
001001

143214
143206
143200
143172

000200

143126

000000
003446

R AR R AR R

A R AR AR A IR AR AR AR AR RN AR AR A AN R

TST65:

SCOPE
MOV
MOV
MOV
MOV
TST
BM]
MOV
MOV
MOV
MOV
CLR
INC
CMP
BNE
MOV
MOV
MOV
MCV

#7 ,dRHCS?2
#AB ,aRHTDB
#DMD !MCLK ! SLKM, aRHMR1
#-1,aRHWC
R1
1%
#ZERO, aRHBAE
#EVENAD , aRHBA
#READZ ,aRHCST
#DMD ! SLKM,aRHMR1
BITCNT
BITCNT
#15 ,BITCNT
2%
#DMD !MCLK ! SLKM, aRHMR 1
#DMD ! SLKM, aRHMR1
#DMD !MCLK ! SLKM,aRHMR1
#DMD ! SLKM, @RHMR1

1%:

2%:

143164

18%:

003446

003446
000200

)
143104

16%:

;

MOV
CLR

BIT

BNE
INC
BNE
CLR
BIT
BNE

#7ERO,dRHMR1
BITCNT
#RDY ,@RHC(CS1

7%
BIT(NT
18%
BITCNT
#RDY ,@RH(ST
7%

KRN R AR

AR AR AN kAR

JSETUP UNIT SEVEN
sSETUP INFORMAT ION
;SETUP DIAG. MODE
.FOR ONE WORD
.
JIS IT A 11 0OR 70
JIT'S AN 11
s ZERO BAE
;SETUP BA
;TELL IT TO READFROM
sMANIPULATE CLOCK
;CLEAR LOOP COUNTER
s INCREMENT LOOP CQUNTER
IS IT THIRD LOOP FOR SUSEC WAIT
JNO LOOP AGAIN
;START CHANGING CLOCK
;CHANGE CLOCK AGAIN
;s CHANGE CLOCK AGAIN
s CHANGE CLOCK AGAIN

;GET GUT OF DIAG MODE
;CLEAR BIT COUNTER
;IS RDY SET

JBIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
253 17 SET M YY
JVES

MASSBUS RH70 AND RH11

CZRMHBE .P11
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775
5776
777
5778
5779
5780
5781
5782
5783
5784
S785
5786
5787
5788
5789
5790
5791

040226 005237
040232 001401
040234
000770
040236
040236 017737
040244
017737
040252
017737
040260 (05701
040262 001406
040264
005037
040270- 005037
040274
000137
(40300 017737
040306 017737
040314
017737
040322 (17737
040330 017737
040336 017737
040344
017737
040352
017737
040360 032777
040366 001001
040370
104102
040372 022777
040400 001001
040402
104143
040404
022777
040412
001401
040414
104144
040416 023777

040424
040426
(040430
040434
040440

001401
104145
004737
105737
007402

5798
5799
5800

040444
040446
040452

104170
004737
004737

5801

(040442

MACY11

07=JUN=79 13:44

5792
5793
5794
5795
5796

5797

_DIAGNOSTIC

165

003446

003420
003444
003414

003416
003424
040314
143C54
143050
143020
143014
143010
143006.
142766
142772
000200

003416
003424
003422
003432
003436
003442
003440
001162
142742

177777

142732

B8%:

004002

142722

3%:

142724

4$:

004000

007224
001103

5812
5813
5814
5815

581€
5817

87%:
86%:

104146

006572
050210

6%
R

12=JuUL=79

10:46

RH OPERATIONAL READ TEST #2

PAGE

112

SEQ 0111

INC
BEQ
BR

BITCNT
7%
19%

s COUNT UP
;BIT IS NOT GOING TO SET

MOV
MOV
MOV
TST
BEQ
CLR
CLR
JMP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
CMP
BNE
ERROR
CMP
BEQ
ERROR
(MP

@RHCST,(S1
aARHWC ,wWC
aRHBA ,RA
R1
87%
BAE
(S3
86%
aRHBAE ,BAE
aRH(S3,(CS3
a@RH(S2,(CS2
aRHST,DS1
aRHER,CR1
aRHTDB, TDR
aRHMRZ, T(
@RHTDB, $REGO
#RDY ,aRHCS1
8%
102
#-1,aRHWC
3%
143
#0DDAD ,aRHRBA
(A
144
EVENAD ,aRHTDR

. SAVE RHC(CS1
s SAVE WORD COUNT
. SAVE 8US ADDRESS
;IS IT AN RH11
sNO IT'S A 70
. CLEAR BAE
;CLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2
;SAVE TESTER STATUS
. SAVE ERROKR REGISTER
;SAVE TESTER DATA REG.
;SAVE MRZ2 TESTER REG.
.GET DATA
oIS READY SET
JYES,CONTINUE TEST
JREADY DID NOT SET
;DID WC INCREMENT
JYES,CONT TEST
;READFROM OPERATICON DID NOT INC WC
;DID BA INCREMENT
JYES CONT TEST
;BA DID NOT INCREMENT AFTER AN READFROM OPERATIO
;DID INFO READFKOM TESTER

BEQ
ERROR
JSR
TSTB
BEQ

5%
145
R7 ,WHYFO
$ERFLG
6%

ERROR
JSR
JSR

170
R7,CLEER
R7 ,ERRTST

ERROR

A AR

146

R RN AR AR AN R A AR

sYES,CONT
JINFO DID NOT READFROM TESTER
JARE ANY ERROR BITS SET
;WAS THER AN ERROR
sNO EXIT TEST

JTHESE ARE THE CONTENTS OF ALL RH70 REG.

JTHIS IS TC COMMPLETE ERROR PRINTOUT
.CLEER FRRORS IF ANY
R AR AR AR AN AR AR R AR AR

AR R AR RRRARAA R

- s*TEST 66
WRITE OPERATIONAL TEST (NORMAL) #1
J*THESE TESTS VERIFY ALL READ AND WRITE CODES
J*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
s*PURING THESE TESTS THE TESTER TIMING IS MARGINED AND
. *NO ERRORS SHOULD OCCUR

5808

5811

5%:

5802
5803
5804
5805
5806
5807

5809
5810

7%:

143066
143062
143056

30A(7052)

040456
040460

040466

040474
040502
040510
040516

040520
040522

000004
012777

012777

012777
012737
012777
005701

100403
012777

000007
177777

142652

142636

004100
125252
000000

142632
004100
142632

000000

142630

TST66:

SCOPE
MOV

#7 ,aRH(S?2

MOV

#-1,aRHW(

MOV
MOV
MOV
TST

8M]
MOV

#RBUF , aRHBA
#0AB ,RBUF
#7ERO.aARHTDRB
R1

1%
#7ERO, aRHBAF

S R

sSETUP UNIT SEVEN
.FOR ONE WGCRD

;SPTUP
;SETUP
JSETUP
JIS IT

BA
DATA
TESTER DB
AN 11 OR A 70

JIT'S AN RH11T
s JERC BAE

MASSBUS RH70C AND RH11 DIAGNOSTIC
{ZRHBE .P11
07=JUN=7GS 13:44
S818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854

5855

5856
5857
5858
5859
5860

5861
5862
5863
5864
5865
5866
5867

040530
040536
040542
040550
040552
040556
040560
040564
040572
040574
(040600
040602
040604
040604
040612
040620
040626
040630
040632
040636

012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

000061
003446
000200

1%:

1425¢0

18%:

;
14253

19%:

MOV
(LR
BIT
BNE
INC
BNE
(LR
BIT
BNE
INC
BEQ
BR

AWRITEQ,aRKH(S]
BITCNT
#RDY ,aRH(CS!
2%
:
BITCNT
18%
BITCNT
#RDY ,aRH(S1
2%
BITCNT
’%
19%

JTELL IT TO WRITEOQ
JCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
cGET READY TO DO IT AGAIN
213 ¥ SEY YEY?
sVES
. COUNT UP
JBIT IS NOT GOING TO SET

MOV
MOV
MOV
st
BEG
CLR
(LR
JMP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
JSR
CMP
BEQ
TST
BEQ
ERROR

aRH(CS1,(S1
ARHW(C ,WC
aRHBA ,BA
R1
87%
BAE
(S3
86%
aRHBAE ,BAE
aRH({S3,(CS3
aRH(S2,(S2
@RHST,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR?2, T(
aRHTDR, $REGO
#RDY ,aRHCS1
3%
102
R7 ,WHYFO
RBUF ,@RHTDB
4%
aRHTDR
5%
151

JMP
ERROR

4%
152

JSR
TSTB
BEQ
ERROR
ERROR
JSR
JSR

R7 ,WHYFO
$ERFLG
6%
146
170
R7,CLEER
R7,ERRTST

s SAVE RHC(S1
. SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
.CLEAR BAE
;CLEAR (CS3
s CONT INUE
. SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2
;SAVE TESTER STATUS
. SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;GET DATA
;1S OR SET
JYES RDY IS SET
sREADY DID NOT SET
;JARE ANY ERRORS SET
;DID INFO GET WRITTEN OR READ
;INFO GOT LOADED
.DOES QRHTDB = 0
cYES INFO DID NOT LOAD
JALL BITS DID NOT LOAD DURING
;AN WRITEQ OPERATION
2EXIT TEST
JWRITEQ OPERATION DID NOT WORK
JNO BITS WHERE LOADEC TO aRHTDR
;JANY ERRORS SET
;JANY ERRORS ?
JNOEXIT TEST
;PRINT REGISTERS

003446

142520
142514
142510

003420
003444
003414

003416
003424
040662
142506
142502
142452
142446
142442
142440
142420
142424
000200

003416
003424
003422
003432
003436
003442
003440
001162
142374

007224
004100

142376

2%:

040762
040764
040770

000737
104152

040772

040772
040776
041002
041004
041006
041010
041014

004737
105737
001402
104146
104170
004737
004737

007224
001103

4%:

(006572
050210

6%:

87%:

86%:

3%:

142370

5868

5869
5870
5871
5872

142572

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
023777
001407
005777
001403
104151

040642
040646
040654
040662
040670
040676
040704
040712
040720
040726
040734
040736
040740
040744
040752
040754
040760

5%:

KA A AR R

PIATEST 67
3
;

30A(i052)
12=JuUL=79
10:46
Pi3E 113
WRITE OPERATIONAL TEST (NORMAL) #1

003446
003446
000200

MACYTT
T66

CEQ 0112

;CLEAR ERRORS

A AR RN AR A AR AR AR AR R AR AR T AR AR R AR AR AR R AR AR R

RH OPERATIONAL WRITE TEST #3

RN AR R R A RN R

J«THESE TESTS VERIFY ALL READ AND WRITE CODES
J*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
s*DURING THESE TESTS THE TESTER TIMING 1S MARGINED AND
;*NO ERRORS SHOULD OCCUR

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

5874
5875
5876
5877
5878
5879
5880

041020
041022
041030
041036
041044
041052

5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
589
5897
5898
5899
5900
5901
5902
5903
5904
5905

041056
041064
041072
041100
041106
041112
041116
041124
041126
041134
041142
041150
041156
041164
041170
041176
041200
041204
047206
041212
041220
041222
041226
041230

5907
5908
5909
5910
5911
5912

041232
041240
041246
041254
041256
041260

5914

5915

167
CER AR

041270

041274

5916
5917
5918

041302
041310
041316

5920
5921
5922

041332
041340
041346

5924

041362

5926

041366

5929

MACY11

041400

000004
012777
012737
012777
012777
005701
100403
012777
012777
012777
012777
005037
005237
022737
001372
012777
012777
012777
012777

012777
005037
032777
001015
005237
001371
005037
032777
001094
005237
001401
000770

000007
142310
125252
.
003003
177777
000000
004000
000065
003001
003446
003446
000015

003003
003001
003003
003001
000000
003446
000200

1%:

003446
000200
003446

2%:

142220

142212

142204
142176
142170
142132

18%:

142110

19%:

003416
003424
041310

017737
017737
017737

142054
142024
142020

142072
142066
142062

142060

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440
001162

87%:

86%:

142014
142012
141772
141776
000200

022777
001001

177777

141736

8%:

022777

004002

141726

3%:

104140

SCOPE
MOV
MOV

A AR AR

9
10:46

TEST #3

AAR RN AR

_PAGE 114

SEG 0113

RRARANAAARAAR AR AR AR

#7 ,@RHCS2
#0AB, E VENAD

AR RSN

sSETUP UNIT SEVEN
;SETUP INFORMATION

#DMD !MCLK ! SLKM! ISLK ,dRHMR1

:FOR ONE WORD
;IS IT A 11 OR 70
JIT'S AN 11
. ZERO BAE
:SETUP BA
STELL IT TO WRITETO

CLR

BITCNT

;CLEAR LOOP COUNTER

#15,BITCNT

2IS

#DMD ! SLKM! ISLK ,@RHMR 1

INC

BITCNT

BNE

CMP

MOV
MOV
MOV
MOV
MoV
CLR
8IT

BNE
INC
BNE
CLR

BIT

;SETUP DIAG.

#=1,3RHWC
R1
1%
#ZERO, IRHBAE
#EVENAD , aRHBA
AWRITES ,@RHCS1

s INCREMENT LOOP COUNTER
IT

THIRD LOOP FOR SUSEC WAIT

:NO LOOP AGAIN

#DMD !MCLK ! SLKM! ISLK ,aRHMR1
: START CHANGING CLOCK
#DMD ! SLKM! ISLK , aRHMR1
s CHANGE CLOCK AGAIN
#DMD !MCLK ! SLKM! ISLK ,aRHMR1
. CHANGE CLOCK AGAIN
#DMD ! SLKM! I SLK ,aRHMR1
s CHANGE CLOCK AGAIN
#7ERO,aRHMR1
;GET OUT OF DIAG MODE
BITCNT
;CLEAR BIT COUNTER
#RDY ,aRHCS1
;IS RDY SET

7$
BITCNT
18%
BITCNT

#RDY ,@RHCS1

JBIT IS SET
s COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN

171 SET

W17

7$
BITCNT
7$

aVES
:COUNT UP
;BIT IS NOT GOING TO SET

MOV

@dRH(CS1,CS1T

s SAVE RHC(S1

B8R

19%

MOV
MOV
TST

aRHWC ,WC
aRHBA ,BA
R1

2 SAVE WORD COUNT
s SAVE BUS ADDRESS
IS IT AN RKH11

CLR

BAE

:CLEAR BAE

CLR
JMP
MOV

MOV

MOV
MOV

MOV

MOV
MOV
BIT

BNE
ERROR
(mMP
BNE
ERROR
(MP

MODE

;MANIPULATE CLOCK

BNE
INC
BEQ

MOV

141746

MOV
TST
BMI
MOV
MOV
MOV

BEQ

017737
017737
017737
017737
032777
001001
104102

AR AR AR R A AR

MOov

003446

12=JUL=79

RH OPERATIONAL WRITE

MOV

003446

017737
017737
017737
005701
001406
005037
005037
000137

017737

TST67:

20A(7052)

87%

;NO IT'S A 70

(S3
86%
aRHBAE ,BAE

sCLEAR (S3
s CONT INUE
.
s SAVE BUS ADDRESS EXTENSION

aRH(S2,(S2

sSAVE (S2

@RHCS3,(S3
aRHST,DS1

aRHER,ER1

akHTDB, TDR

aRHMRZ, T(
aRHTDB, $REGO
#RDY ,@RHCS1

8%
102
#=1,aRHW(
3%
140
#0DDAD , aRHBA

:SAVE RH(CS3

;SAVE

TESTER STATUS

:SAVE

TESTER DATA REG.

s SAVE ERROR REGISTER

;SAVE MR2 TESTER REG.
;GET DATA
;1S READY SET

sYES,CONTINUE TEST
sREADY DID NOT SET
;DID WC INCREMENT
sYES,CONT TEST
;WRITETO OPERATION DID NOT
;DID BA INCREMENT

o
INC WC

'
!;lggfl‘l

MASSBUS RH70 AND RM11 DIACNOSTIC
CZRHBE .P11
07=JUN=79 13:44

5930
5931
5932
5933
593,
5935
5936
5937

5938
5939
5940
5941

5942

041406
041410
041412
041420
041422
041424
041430
041434
041436
041440
041442
041446

5943
5944
5945
5946

001401
104141
023777
001401

104142

004737
105737
001402
104146
104170
004737
004737

004000
007224
001103

141730
-

(006572
050210

6%:

;

000004

012777

000007

141656

5953

041470

012777

004100

141636

041462

041476
041504
041512
041514
041516
041524
041532
041536
041544
041546
041552
041554
041560

5967

041566

5970
5971
5972
5973
5974
5975.
5976
5977
5978
5979

041576
041600
041600
041606
041614
041622
041624
041626
041632
041636

5980

4%
141
EVENAD ,@RHTDR
5%
:

:YES CONT TEST
:BA DID NOT INCREMENT AFTER AN WRITETO OPERATION
:DiD INFO WRITETO TESTER
:YES,CONT

JSR
TSTB
BEQ
ERROR
FRROR
JSR
JSR

R7,WHYFO
SERFLG !
6%
146
170
R7.CLEER
R7.ERRTST

:ARE ANY ERROR BITS SET
*WAS THER AN ERROR
*NO EXIT TEST

142

“INFO DID NGT WRITETO TESTER

:THESE ARE THE CONTENTS OF ALL RH70 REG.
:THIS IS TO COMMPLETE ERROR PRINTOUT
:CLEER ERRORS IF ANY

70
WRITE OPERATIONAL TEST (NORMAL) #2
:*THESE TESTS VERIFY ALL READ AND WRITE CODES
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND

.-"tt*tttittttttttttttttttttttttQttt‘ntttttnttttttfi't'tttt'ttttt'i

041452

041454

5968
5969

SEQ 0114

:*NO ERRORS SHOULD OCCUR

5951

5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966

’-:Qttttttttttttt'ttttfitttttttt.ttttttttfitttittt'tttttttttttttttQt

5949

5952

115

BEQ
ERROR
CMP
BEQ

ERROR

5%:

SxTEST

ggzg

5950

4%:

K
9
30A(7052)
12=gUL=79
10:46
_PAGE
RH OPERATIONAL WRITE TEST #3

041570
041574

041642

5981
041
5982 041
5983 ’8f]
5984 +
041
5985
0417200

012777

012737
012777
005701
100403
012777
012777
005037
032777
001015
005237
001371
005037
032777

001004,

177777

SCOPE

MOV

#7 ,aRHCS2

sSETUP UNIT SEVEN

141642

MOV

#-1,aRHWC

:FOR ONE WORD

004100
141636
i
wess
i
000000
141634
000063
141576
003446
000200
141564

MOV
MOV
ST
BM]
MOV
MOV
CLR
BIT
BNE
INC
BNE
CLR
BIT

#0AB , RBUF
#ZERO,aRHTDB
R1
1%
#7ERO, SKHBAE
#WRITE2,@RHCS1
BITCNT
#RDY ,@RHCS1
2%
s
BITCNT
18%
BITCNT
#RDY ,@RHCS1

*SETUP DATA
:SETUP TESTER DB
SIS IT AN 11 OR A 70
SIT'S AN RH11
*ZERO BAE
STELL IT TO WRITE2
*CLEAR BIT COUNTER
+IS RDY SET
:BIT IS SET
“COUNT UP
:NOT FINISHED COUNTING
:GET READY TO DO IT AGAIN
*IS IT SET YET?

INC
BEQ

BITCNT
2%

MOV
MOV
MOV
TST
BEQ
CLR
CLR
JMP

|
ARHCST,CST
ARHWC , WC
aRHBA ,BA
R1
:
87%
BAE
€S3
86%

MOV
MOV
MOV
MOV
MOV

@RHCS3.CS3
@RH(S2,(S2
@RHST,DS1
aRHER.ER1
aRHTDR, TDR

125252
000000

MOV

1%:
18%:

003446
003446
000200 : 141542

005237 Q03446
001401
:

000770

017737
017737
017737
005701
001406
005037
005037
000137

003416
003424
041656

017737
017737
017737
017737
017737

141506
141456
141452
141446
141444

017737

TST70:

141524
141520
141514

141512

19%:

"\
003420
003444
003414

003416

003424
003422
003432
003436
003442

2%:

87%:
86%:

BNE
BR

MOV

#RBUF , aRHBA

“SRTUP BA

" :YES

*COUNT UP
:BIT IS NOT GOING TO SET

19%

QRHBAE , BAE

‘

:SAVE RH(CS1
,: SAVE WORC COUNT
**SAVE BUS ADDRESS
*1S IT AN RH11
SNO IT'S A 70
:CLEAR BAE
:CLEAR (CS3
* CONT INUE

:SAVE BUS ADDRESS EXTENSION

*SAVE
*SAVE
*SAVE
*SAVE
*SAVE

RHCS3
(S2
TESTER STATUS
ERROR REGISTER
TESTER DATA REG.

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE.P11
07=JUN=79 13:44

SOB6
5987
5988
5989
5990
5991
5992
5993
5994
5995

061706
041714
041722
041730
041732
041736
041740
041746
041750
041754

017737
017737
032777
001003
104102
004737
023777
001407
005777
001403
000137
104152

041766

041766
041772
041776

004737
105737
001402

007224
001103

6005
6006
6007

042002
042004
042010

104170
004737
004737

6009
6010

6008

141402

38:

141374

041760
041764

042000

104151

003440
001162
141400
|

007224
004100

5996
5997
5998
5999
6000
6001
6002
6003

6004

041756

141424
141430
000200

MACY11
170

30A(7052)
12=JuL=79
10:46
PAGE 116
WRITE OPERATIONAL TEST (NORMAL) #2-

MOV
MOV
iy
BNE
ERROR
JSR
CMP
BEQ
ST
. BEQ

5% :
:
&8s

104146

006572
050210

68:

43
152

JSR
TSTB
BEQ

R7.WHYFO
SERFLG
6$

ERROR
- JSR
JSR

170
R7.CLEER
R7.ERRTST

146

*PRINT REGISTERS
:CLEAR ERRORS

*«WHETHER IT BE A READ REV.

TESTS THE

4NO ERRORS SHOULD OCCUR

6015

6016,
6017
6018
6019
6020
6021
6022

062014
042016
042024
042032
042040
042046
042050

6024
6025
6026

042060
042066
042074

042052

000004
012777
012777
012777
012777
005701
100403

012777

012777
012777
012777

000007
052525
003003
177777

000000

004000
000075
003001

6027
6028
6029
6030
6031
6032
6033
6034
6035

042102 005037
042106. 005237
042112 022737
042120 001372
042122 012777
042130 012777
042136 012777
042144
012777
042152 012777

003446
003446
000015
.
003003
003001
003003
003001
000000

6037
6038

042164
042172

000200

6040
6041

042200
042202

042160

042174

005037
032777
001015

005237

001371
005037

003446

003446
003446

ALL BITS DID NOT LOAD DURING
*AN WRITE2 OPERATION
“EXIT TEST
‘WRITE2 OPERATION DID NOT WORK
*NO BITS WHERE LOADED TO @RHTDB
“ANY ERRORS SET
*ANY ERRORS Z
NOLEXIT TEST
‘

TRTEST 71
RH OPERATIONAL READ TEST #3
:*THESE ‘TESTS VERIFY ALL READ AND WRITE CODES
:*DURING THESE

28}2

6039

;SAVE MR2 TESTER REG.
SGET DATA
;1S OR SET
‘YES RDY IS SET
*READY DID NOT SET
'
*ARE ANY ERRORS SET
*DID INFO GET WRITTEN OR READ
*INFO GOT LOADED
*DOES ARHTDB = 0
*YES INFO DID NOT LOAD

. Q't.t'fit"*t'tt*ififififififit!.ttfifiiifi.fi*fit'.fiifiiiifl.*"fiitfi"'i.tti

6012

6036

151

JMP
ERROR

ERROR

6011

6023

ERROR

ARHMR2, T(
ARHTDB . $RE GO
#RDY , ARHCST
3$
102
R7,WHYFO
RBUF , aRHTDB
4$
ARHTDB
5%
)

SEQ 0115

141314
141316
141314
141264

141300

141246
141234
141252

003446

OR FWD

"‘ LSRR

S RS ESSsss2232322333 3332323232233 223 322222232222 2222222222

T$171:

SCOPE
MOV
MOV
MOV
MOV
TST
BMI MOV
MOV
MOV =
MOV
CLR
INC
CMP
BNE
MOV °
MOV
MOV MOV
MOV

1%:

2%:

141224
141276
141210
141202
141174
141136

OR FWD OR A WRiTE REV.

TESTER TIMING 1S MARGINED AND

18%:

#7 ,ORHCS2
;SETUP UNIT SEVEN
#AB, aRHTDB
“SETUP INFORMAT
ION
#DMD ' SLKM! ISLK 'MCLK , 3RHMRT
SSETUP DIAG. MODE
#-1, aRHWC
:FOR ONE. WORD
R1
‘1S IT A 11 OR 70
1%
YIT'S AN 11
#7ERO, ARHBAE
ZERO BAE#EVENAD , aRHBA
*SETUP BA
AREAD4,aRHCS1
*TELL IT TO READFROM
#DMD ! SLKM' I SLK , BRHMR1
:MANIPULATE CLOCK
BITCNT
:CLEAR LOOP COUNTER
BITCNT
* INCREMENT LOOP COUNTER
#15,BITCNT
*1S IT THIRD LOOP FOR SUSEC WAIT
2%
*NO LOOP AGAIN
#DMD!SLKM!
ISLK 'MCLK,aRHMR1
:START CHANGING CLOCK
#DMD
! SLKM! 1SLK
. aRHMR
:CHANGE £LOCK AGAIN
ADMDISLKM!
ISLK 'MCLK .aRHMR]
JCHANGE CLOCK AGAIN
#DMD ! SLKM ! ISLK . GRHMR
;CHANGE CLOCK AGAIN
#ZERQ, aRHMR1
:GET OUT OF DIAG MODE

CLR

BITCNT

INC

BITCNT

BIT
BNE

BNE
(LR

#RDY ,@RHCST
7%

188
BITCNT

*CLEAR BIT COUNTER

IS RDY SET
BIT IS SET

:COUNT UP

*NOT FINISHED COUNTING
;GET READY TO DO [T AGAIN

;

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE.P11
07=JUN=79 13:44

6042
6043
6044
6045
6046
6047
. 6048

042206
042214
042216
042222
042224
042226
042206

032777
001004
005237
001401
000770

003446

017737

141076

003420

6050
6051
6052
6053
6054
6055
6056
6057

042042
042250
042052
040254
042260
042064
042270
042276

017737
005701
001406
005037
005037
000137
017737
017737

141066

003414

003416
003424
042304
141064
141060

017737
017737

141024
141020

6049

042234

017737

6058

042304

017737

6061
6062
6063
6064
6065
6066
6067
6068
6069

042326
04233
042342
042350
042356
042360
042362
042370
042372

017737
017737
017737
032777
001001
104102
022777
001001
104143

6059
6060

6070
6071
6072
6073
6074
6075
6076
6077,
6078"
6079
6080
6081

6082

042312
042320

042374
042402
042404
042406
042414
042416
042420
042424
042430
042432
042434
042436

042442

022777
001401
104144
023777
001401
104145
004737
105737
001402
104146
104170
004737
004737

00020C

141072

141114

¢95V11

198:
;

7%:

003444

87$:

141030

003422

86$:

141016
140776
141002
000200

003442
003440
001162
140752

177777

140742

8S:

004002

140732

3$:

004000

140734

4$:

003432
003436

007224
001103

5% :

006572
050210

6$:

WRDY,@RHCS]
7$
BITCNT
7%
198

;IS IT SET YET?
*YES
;
:COUNT UP
!
:BIT IS NOT GOING TO SET

MOV

@RHCST,CS1

:SAVE RH(S1

MOV
iR
BEQ
CLR
CLR
JMP
MOV
MOV

@RHBA.BA
87%
BAE
(S3
B6S
QRHBAE,BAE
@RHCS3.CS3

:SAVE BUS ADDRESS
1S IT AN RH11
INO IT'S A 70
:CLEAR BAE
CLEAR CS3
* CONT INUE
*SAVE BUS ADDRESS EXTENSION
*SAVE RHCS3

MOV
MOV

@RHST,DST
@RHER.ERT

MOV

MOV
MOV
MOV
BIT
BNE
ERROR
CMP
BNE
ERROR

117

BIT
BNE
CINC
BEQ
BR.
MOV

003416

003424

M9
30A(71052)
12=JUL=79
10:46
PAGE
RH OPERATIONAL READ TEST #3

(MP
BEQ
ERROR
(MP
BEQ
ERKOR
JSR
TSTB
BEQ
ERROR
ERROR
JSR

JSR

@RHWC,WC

SAVE WORD COUNT

@RHCS2.(S2

SAVE €S2

@RHTDA, TDR
aRHMR2.TC
@RHTDB.SREGO
#RDY,aRHCS1
8%
102
#=1,aRHWC
3$
143

:SAVE TESTER DATA REG.
SAVE MR2 TESTER REG.
:GET DATA
;1S READY SET
:YES,CONTINUE TEST
READY DID NOT SET
:DID WC INCREMENT
:YES,CONT TEST
:READFROM OPERATION DID NOT

#ODDAD,aRHBA
4%
144
EVENAD,@RHTDB
58
145
R7,WHYFO
SERFLG
6$
146

170
R7,CLEER
R7 ,ERRTST

SEQ 0116

SAVE TESTER STATUS
:SAVE ERROR REGISTER

INC WC
:DID BA INCREMENT
*YES CONT TEST
;BA DID NOT INCREMENT AFTER AN READFROM OPERATIO
:DID INFO READFROM TESTER
:YES, CONT
*INFO DID NOT READFROM TESTER
ARE ANY ERROR BITS SET
‘WAS THER AN ERROR
INO EXIT TEST
:THESE ARE THE CONTENTS OF ALL RH70 REG.
:THIS IS TO COMMPLETE ERROR PRINTOUT
*CLEER ERRORS [F ANY

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

MACY11
172

6083
6084
6085

N 9
30A(7052)
12=JUL=79
10:46
PAGE 118
WRITE OPERATIONAL TEST (NORMAL) #3

SEQ 0117

R Iy

J*TEST

J*THESE

WRITE OPERATIONAL
TESTS VERIFY ALL

;*WHETHER

TEST

(NORMAL)

READ AND WRITE

IT BE A READ REV.

#3
CODES

OR FWD OR A WRITE REV.

OR FWD

s*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
;*NO ERRORS SHOULD OCCUR
CARA RA RARA A

000007
177777
004100
125252

000000
000000
000065
003446
000200

140662
160646
140542

TST72:

003446
000200

140602

1%:

140570

18%:

017737
017737
017737

140530
140524
140520

140516
140512
140462
140456
140452
140450
140430
140434

6127
6128
6129
6130

000200

6131
6132
6133

6135
6136
6137
6138

007224
004100
140400

042752

104151

19%:

003446

003416
003424
042652

6123
6124

140546

003420
003444
003414

sSETUP UNIT SEVEN

MOV

#RBUF , aRHBA

;SRTUP BA

MOV

#7ERO,aRHTDRB

TST

003446
005037
032777
001004
005237
001401
000770

#7 ,dRH(CS2

MOV

140642

2%:

BM]
MOV
MOV
CLR
BIT

86%:

003436
003442
003440
001162

140406

3%:

;FOR ONE WORD
sSETUP DATA

;SETUP TESTER DR

JIS

BITCNT
#RDY ,aRHCS1

JCLEAR BIT COUNTER
;1S RDY SET

1%
#7ERO, 9RHBAE
AWRITES ,adRHCST

BNE
INC
BEQ
BR

’%
BITCNT
2%
19%

MOV
MOV
MOV
TST

aRH(S1,(S1
ARHW( ,W(
aRHBA ,BA
R1

CLR

BAE

BIT

18%

BITCNT

#RDY ,@RHCS1

87%

IT AN 11

OR A

JIT'S AN RH11
. ZERO BAE
JTELL IT TO WRITES

=8It 1S SE}
s COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
31S

SET

YVET?

JYES
sCOUNT UP
JBIT IS NOT GOING

TO SET

;SAVE RHC(CS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11

JNO IT'S A 70

;CLEAR BAE

(S3

;CLEAR (S3

MOV
MOV
MOV

aRHBAE ,BAE
dRH(S3,CS3
aRH(SZ,(S2

;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2

MOV
MOV

adRHTDB, TDR
aRHMR?2, T(C

sSAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.

BIT

#RDY ,aRH(S1

;IS OR SET

JMP

MOV
MOV

MOV

140404

#0AB , RBUF

2%
BITCNT

CLR

87%:

#-1,9RHWC

BNE
INC
BNE
(LR

BEQ

003416
003424
003422
003432

AR AR AR AR AR AR R AR RN

MOV

004100

140640

A AR AR ARCRA AR AR RN RARAR AR RN

SCOPE

BNE
ERROR
JSR
CMP
BEQ

86%

aRHST,DS1
aRHER,ER1

aRHTDR, $RE GO

3%
102
R7,WHYFO
RBUF ,aRHTDB
43

TST

@RHTDR

ERROR

151

BEQ

; CONT INUE

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

;GET DATA

:YES RDY IS SET
JREADY DID NOT SET
sARE ANY ERRORS SET
;DID INFO GET WRITTEN OR READ
JINFO GOT LOADED

;DOES @RHTDB = 0

JYES

INFO DID NOT LOAD

JALL BITS DID NOT LOAD DURING
;AN WRITE4 OPERATION

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

6139
6140
6141
6162
£143
6144
6145
6146
6147
6148
6149
6150
6157
€152
6153
6154
6155
6156
6157
6158
6159

042754
042760

000137

042762

004737

007224

104152

10??37

;WRITE4 OPERATION DID NOT WORK

JSR
TSTR

R7 ,WHYFO
$ERFLG

;ANY ERRORS SET
;ANY ERRORS ?

£$:

000007
125252

000000

177777

6163

6193
6194

43
152

BEQ
ERROR
ERROR
JSR
/SR

10:46

TEST

PAGE 119

(NORMAL) #3

6%
146
170
R7,CLEER
R7 ,ERRTST

SEQ 0118

JEXIT TEST

sNO BITS WHERE LOADED TC @RHTDR

sNOEXIT TEST

;PRINT REGISTERS

:CLEAR ERRORS

RH OPERATIONAL WRITE

TEST #4

;*THESE TESTS VERIFY ALL READ AND WRITE CODES
s*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
:*NO ERRORS SHOULD OCCUR

6164

6191

JMP
ERROR

WRITE OPERATIONAL

LRTEST 73

000003

6192

5%:
A ¥

12=JUL=79

'"'tQ"..tlfi"..'..Qt.tt'tt'.t't"lt....iQQ""Q..'.'.'Q"Qt..t'.

6160
6161
6162

6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190

30A(7052)

172

006572
050210

8 10

MACY11

TS173:

140320
140270

SCOPE
MOV
MOV
MOV
MOV

140304

BM]
MOV

140320

004000

1460252

140240
140256

000015

003446

000003
000001
000003
000001
000000
003446
000200

140230
140222
140274
140206
140200
140142

TST

1%:

2%:

140120

017737
017737
017737
005701
001406
005037

140102
140076
140072

003416

003420
003444
003414

INC
CMP

18%:

19%:

7%:

#7 ,0RH(S2
#0AB
, EVENAD
#DMD 'MCLK ,aRHMR1
#-1,9RHWC
R1

1%
#ZERO,aRHBAE
#EVENA
, aRHBA
D
#WRITEG,aRHCST
#DMD
, aRHMR1
BITCNT

BNE

BITCNT
#15,BITCNT
2%

MOV
MOV

#DMD
, aRHMR1
#DMD 'MCLK ,dRHMR1

MOV

003446
000770

MOV
MOV
MOV
CLR

MOV

003446
003446
000200

AL LSRRl

#DMD 'MCLK ,aRHMR1

#DMD
, aRHMR1

MOV
CLR

#ZERO,dRHMR1
BITCNT

BNE
INC
BNE
CLR

7%
BITCNT

BIT

#RDY ,aRH(CS1

18%

BIT

BITCNT
#RDY ,aRHC(CS1

INC
BEQ
R

BITCNT
7%
19%

MOV
MOV
MOV
TST

aRH(CST,(CS1
aRHWC
, W(
aRHBA ,BA

BNE

BEQ

(LR

87%

BAE

2222222222332

;SETUP UNIT SEVEN
;SETUP INFORMATION
;SETUP DIAG. MODE

;FOR ONE WORD

IS ITATTOR O
;IT'S AN 11

. ZERQ BAE
;SETUP BA
JTELL IT TO WRITETO
;MANIPULATE CLOCK
;CLEAR LOOP COUNTER
- INCREMENT LOOP COUNTER
;IS IT THIRD LOOP FOR SUSEC WAIT
;NO LOOP AGAIN
;START CHANGING CLOCK
;s CHANGE CLOCK AGAIN
;s CHANGE CLOCK AGAIN
. CHANGE CLOCK AGAIN
;GET OUT OF DIAG MODE
sCLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
;COUNT UP
JNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
$1S 1T SET ¥EI?
“¥YES
;COUNT UP
;BIT IS NO1 GOING TO SET
;SAVE RHCS1

;s SAVE WORD COUNT
s SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR BAE

MASSBUS RH70 AND RM11 DIAGNOSTIC
CZRHBE .P11

6195
6196
6197
6198
6199
6200
6207
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211

043254
043260
043264
043272
043300
043306
043314
043322
043330
043336
043344
043352
043354
043356
043364
043366
043370

€215

043410

6212
6213
6214

6216
6217
6218
6219
6220
6221
6222
6223

6224

MACY11

07=JUN=79 13:44

005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001
104102
022777
001001
104140
022777

042376
043400
043402

001401
104141
023777

043412
043414
043420
043424
043426
043430
043432
043436

104142
004737
105737
001402
104146
104170
004737
004737

001401

173

003424
043300
140070
140064
140034
140030
140026
140022
140002
140006
000200

003416
003424
003422
003432
003436
003442
003440
001162
137756

87%:

177777

137746

8%:

:
003776

2
137736

3%:

004000

137740

4$:

12=JUL=79
RH OPERATIONAL WRITE

86%:

007224
001103

5%:

006572
050210

€$:
IR

C 10

30A(7052)
CLR
JMP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
CMP
BNE
ERROR
(MP

(S3
86%
@RHBAE ,BAE
@RH(CS3,(S3
adRH(S2,(S2
a@RHST,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR2, T(
aRHTDB, $REGO
A#RDY ,@RH(CS1
8%
102
#=1,aRHWC
3%
140
#EVENAD=2 ,aRHBA

BEQ

BEQ
ERROR
CMP

10:46
PAGE
TEST #4

ERROR
JSR
TSTB
BEQ
ERROR
ERROR
JSR
JSR

4%
141
EVENAD ,aRHTDB
142
R7 ,WHYFO
$ERFLG
6%
146
170
R7,CLEER
R7 ,ERRTST

120

SEQ 0119

;CLEAR (S3
- CONT INUE
s SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
;SAVE (S2
;SAVE TESTER STATUS
s SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;GET DATA
;IS READY SET
JYES,CONTINUE TEST
;READY DID NOT SET
;DID WC INCREMENT
sYES,CONT TEST
JWRITETO OPERATION DID NOT INC WC
;DID BA INCREMENT
;YES CONT TEST
;BA DID NOT INCREMENT AFTER AN WRITETO OPERATION
;DID INFO WRITETO TESTER
sYES,CONT
;INFO DID NOT WRITETO TESTER
;ARE ANY ERROR BITS SET
;WAS THER AN ERROR
sNO EXIT TEST
sTHESE ARE THE CONTENTS OF ALL RH70 REG.
sTHIS IS TO COMMPLETE ERROR PRINTOUT
;CLEER ERRORS IF ANY

R AR AR AR AN RA AR R AR RRRARRRARARARRRRRRRRRAR
R AR R AR ® R ®

6225
6226
6227
6228
gsgg

;*TEST 74
WRITE OPERATIONAL TEST (NORMAL) #4
s*THESE TESTS VERIFY ALL READ AND WRITE CODES
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
:*NO ERRORS SHOULD OCCUR

6231

R R R AR AR A AR AR

TST74:

SCOPE
MOV
MOV
MOV
MOV
MOV
TST
BM]
MOV
MOV
(LR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC

6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250

043442
043444
043452
043460
043466
043474
043502
043504
043506
043514
043522
043526
043534
043536
043542
043544
043550
043556
043550

000004
012777
012777
012777
012737
012777
005701
100403
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237

000007
177777
004100
125252
000000

137666
137652
137646
004100
137646

000000
000067
003446
000200

137644
137606

1%:

137574

18%:

137552

19%:

003446
003446
000200
003446

AR AR R AR AR AR AR R AR AR RN RRRR

#7 ,@RHCS2
#=1,3RHWC
#RBUF , aRHBA
#0AIS , RBUF
#ZERO,aRHTDB
R1
1%
#ZERO, aRHBAE
#WRITEG,RH(CST
BITCNT
#RDY ,aRH(S1
2%
BITCNT
18%
BITCNT
#RDY ,@RH(CS1
2%
BITCNT

AR AR R AR AN AR R

sSETUP UNIT SEVEN
:FOR ONE WORD
:SRTUP BA
;SETUP DATA
;SETUP TESTER DB
IS IT AN 11 OR A 70
JIT'S AN RHT1T
: ZERO BAE
STELL IT TO WRITEG
sCLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
: COUNT UP
sNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
¢1S IT SET YET?
JYES
;COUNT UP

MASSBUS RH70 AND RH11_DIAGNCSTIC
(ZRHBE .P11
07=JUN=79 13:44

6251
6252
6253
6254
6255
6256
6257
6258
6259

H;CV'1 30A(7052)
WRITE

001401
000770

017737
017737
017737
005701

003420
003444
003414

00341¢
003424
043646

6260
6261

137522
137516
137466
137462
137456

137454

137434

137440

000200
007224
004700

003416
003424
00342
003432
003436
003442
003440
001162

2%:

87%:
86%:

137412

007224
001103

006572
050210

BEQ
BR
MOV
MOV

MOV
TST
BEQ
CLR
CLR
JMP

4%:

£%:

aRHCST,(ST

;SAVE RHCS?

87%

;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR BAE

;CLEAR (S3

@dRH(CS3,(S3

;SAVE RH(CS3
:SAVE (S2

@dRH(CS2,(S2
@dRHST,DS1
aRHER ,ER1
aRHTDB, TDR
aRHMRZ,
T(
aRHTDB, $REGO
ggDY.aRHCS1
102
R7 ,WHYFO
E?UF,QRHTDB

TST
BEQ
ERROR

aRHTDR
5%
117

JMP
ERROR

JSR
TSTB

R7 ,WHYFQ
$ERFLG

101

146

170
R7,CLEER
R7 ,ERRTST

JSR

;SAVE WORD COUNT

(S3
86%

MOV

BEQ
ERROR
ERROR
JSR

SEQ 0120

JBIT IS NOT GOING TO SET

aRHBAE ,BAE

MOV
MOV

MOV

PAGE 121

(NORMAL)

BAE

BIT
BNE
ERROR
JSR
CMP
BEQ

5%:

TEST

aRHWC
, W(
aRHBA ,BA
R1

MOV

3%:

D 10
10:46

19%

MOV

137404

043756

OPERATIONAL

MOV

137410

“2=JUL=79

2 CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE

TESTER STATUS

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

;SAVE MR2 TESTER REG.
;GET DATA
SET
OR
;IS
JYES RDY

IS SET

JREADY DID NOT SET
;ARE ANY ERRORS SET
sDID INFO GET WRITTEN OR READ
;INFO GOT LOADED
;DOES @RHTDB = 0
;YES INFO DID NOT LOAD
;ALL BITS DID NOT LOAD DURING
;AN WRITE6 OPERATION
JEXIT TEST

;WRITES6 OPERATION DID NOT WORK

sNO BITS WHERE LOADED TO aRHTDB
;ANY ERRORS SET

;ANY ERRORS ?

JNOEXIT TEST

;PRINT REGISTERS

:CLEAR ERRORS

| Q'."'t"t'tt.'t’tt".Qfittt.'.'fitfiififii'*fifitl'tit'fi'ttltttitiit'

S*TEST

RH OPERATIONAL READ TEST #4
TESTS VERIFY ALL READ AND WRITE

s*THESE

CODES

:*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
:*NO ERRORS SHOULD OCCUR
S

044004
044006
044014
044022
044030
044036
044040
064042
044050

000007
052525
000003

LA AL S

TST75:

177777

ARl

SCCPE

MOV
MOV
MOV

MOV
TST

000000
004000

BM]

1%:

MOV
MOV

el 2222222232222
2223

#7 ,@RH(S2

sSETUP UNIT SEVEN

#=1,aRHWC
R1

:FOR ONE WORD

#AB ,aRHTDB
#DMD 'MCLK ,@RHMR1

- #ZERO, IRHBAE
#EVENAD
, aRHBA

;SETUP INFORMATION
;SETUP DIAG. MODE

JIS IT A 11 OR 70
(17'S AN 11
:ZERC BAE

;SETUP BA

MASSBUS RW70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=7S 13:44

6307
6308
6309
6310
6311
6312
6313
€314
6315
6316
6317
6318
6319
6320
€321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6363
63464
6345
6346
€347
6348
6349
6350
6351
6352
6353

63564
6355

6356
6357

6358

6359

6360

6361

6362

044056
044064
044072
044076
044102
044110
044112
044120
044126
044134
044142
044150
044154
044162
0441646
044170
044172
044176
044204
044206
044212
044214
044216
044216
044226
044232
044240
044242
044244
044250
044254
044260
044266
044274
044302
044310
044316
064324
044332
044340
044346
044350
044352
044360
044362
044364
044372

044374
044376

044404
(044406

044410

044414

012777
012777
005037
005237
022737
001372
012777
012777
012777
(012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770
017737
017737
017737
005701
001406
005037
005037
000137
017737

017737
017737
017737
017737
017737

017737
017737
032777
001007
104102
022777
001001

104143

022777

001401
104144
023777
001401
104145

004737

105737

044420

001402

044424

104170

044422

104746

T;gv11

000077
000001
003446
003446
000015

003444

000003
000001
000003
000001
000000

137234
137226
137220
137212
137204

003446
000200

137244
137262
2%:

137146

18%:

1371264

19%:

003446
003446
000200
003446

137106
137102
137076

003420
003444
003414

00341€
003424
044274
137074
137070
137040
13703«
137030
137026
137006
137012
000200

003440
001162
136762

177777

136752

003416

003424
002422
003432
203436
00342

¢ H

87%:

R6S:

8%:

003776

136742

3%:

004000

_
136744

48%:

007224

001103

5%:

E 10

30A(7052)
12=JuUL=79
10:46
PAGE
RH OPERATIONAL READ TEST #4

SEQ 0121

MOV
MOv
CLR
INC
C
BNE
MOV
MOV
MOV
MOv
MOV
CLR
BIT
BNE
INC
BNE
ZLR
BIT
BNE
INC
BEQ
B8R

BITCNT
#RDY ,aRH(S1T
7%
BITCNT
18%
BITCNT

;CLEAR BIT COUNTER
JIS RDY SET
;BIT IS SET
s COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN

BITCNT
7%
16%

s COUNT UP
;BIT IS NOT GOING TO SET
:

MOV
MOV
MOV
TST
BEQ
(LR
(LR
JMP
MOV

aRH(ST,CS1
aRHW( ,W(
a@RHBA ,BA
R1
87%
BAE
(s3
86%
aRHBAE ,BAE

MOV
MOV
BIT
BNE
ERROR
C(MP
aNE

aRHMR?Z, T(
aRHTDB, $REGO
#RDY ,@RH(S1
8%
102
4=1,aRHW(
3%

CMP

#EVENAD=-2 ,aRHBA

BEU
ERROR

5%
145

MOV
MOV
MOV
MOV
MOV

ERROR

BEC
ERROR
(MP

#READG , aRH(S1
#DMD , aRHMR i
BITCNT
BITCNT
#15,BITCNT
2%
#DMD !M(LK ,aRHMR1
#DMD , 3RHMR 1
#DMD !MCLK ,aRHMR1
#DMD , aRHMR 1
#7ERD, aRHMR1

122

#RDY ,aRH(S1
7%

@RHCSZ,CS3
aRH(S2,(S2
aRHST DS’
aRHER ,ER1
aRHTDB, TDR

143

sTELL IT TO READFROM
sMANIPULATE CLOCK
;CLEAR LOOP COUNTER
s INCREMENT LOOP COUNTER
2IS IT THIRD LOOP FOR SUSEC WAIT
;NO LOOP AGAIN
:START CHANGING CLOCK
s CHANGE CLOCK AGAIN
. CHANGE CLOCK AGAIN
s CHANGE CLOCK AGAIN
;GET OUT OF DIAG MODE

¢id3 IV SEY WET7?
sYES

s SAVE RHCS1
s SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
:NO IT'S A 70
:CLEAR BAE
;CLFAR (S3
- CONT INUE
:SAVE BUS ADDRESS EXTENSION

s SAVE
;SAVE
:SAVE
;SAVE
;SAVE

RH(CS3
(S2
TESTER STATUS
ERROR REGISTER
TESTER DATA REG.

:SAVE MRZ TESTER REG.
;GET DATA
;1S READY SET
;YES,CONTINUE TEST
sREADY DID NOT SET
;DID WC INCREMENT
JYES,CONT TEST

sREADFROM OPERATION DID NOT INC WwC
;DID BA INCREMENT

:
\

4%
144
EVENAD ,aRHTDR

sYES CONT TEST
sBA DID NOT INCREMENT AFTER AN READFROM OPERATIO
:DID INFO READFROM TESTER

JSR

R7 ,WHYFO .

sARE ANY ERROR BITS SET

8EQ

(31

cNO EXIT TEST

ERROR

170

TSTB

ERROR

$ERFLG
146

sYES,CONT
2INFO DID NOT READFROM TESTER

;WAS THER AN ERROR

;THESE ARE

THE CONTENTS OF ALL

RH70 REG,

sTHIS 1S TO (OMMPLETE ERROR PRINTOUT

MASSBUS RW7C AND &%17 DIAGNOSTIC
CZRMBE PN
Q7= UN=79 13:44

6363
6366

6365

0464426
046632

004737
004737

MACYTT
7y

006572
(0502°C

£%:
A

6366
€367
6368
£365
6370

6371

000006

064440
044446
044452
044456
044462
044464
044466
044476
044502
044510

(012777
D0S037
005037
005037
005701
100403
0712777
012777
012777
012777

6385
6386
6387
6388
6389
6390
6391
6392
gggz

(044516
044520
044522
044526
044530
044536
044540
044544
044546

005701
001412
(005737
001407
032737
007571
004737
000434
012777

6395
6396
6397
6398
6399
6400
6401

044554
044560
044566
044570
044574
044576
044602

005037
032777
007015
005237
001371
005037
032777

6403
6404
6405

044612
044616
044620

005237
(0014017
000770

003446

001004

tS176:
000007
17777¢
003452
003450
’
000000
005000
174000
050334

003452

000002

136£72
BLITZ:
IN:
136664
134632
136622
136670

17757¢C

047624
000161

136554

B P:

003446
00020C

136542

18%:

136520

19%:

003446
003446
000200

044622
044622
044630
(044632
0446346
044636
044636

032777
001001
104102
104205

000200

017737

136466

003429

6414
6415
6416
6417
6418

044652
044660
044562
044664
044670

017737
005701
001406
005C37
005037

136456

(003414

044644

017737

1%:

6406
6407
6408
6409
6410
6411
6412

6413

R7,CLEER
R7 ,ERRTST

SEQ Q0122

JCLEER ERRORS IF ANY

76
LARGE TRANSFER TEST
sTHIS TEST DOES A 4K (OCTAL) WORD TRANSFER
:YHE SECOND TIME THROUGH THE TEST SYNC CLOCK
;1S MARGINED 7O MAKE SURE NO ERRORS OCCUR

. n"'Q'nQQ'Qattt.'tttt.fl'.t.tttt'.tttlt.t'tt"ttt.'.'tQt..'t't't

06443

044610

JSR
JSR

123

R e
s

:"ESY

6372
6373
6374
6375
6376
6377
6378
6379
6380
6387
6382
2%22

6402

F 10
30A(T05¢)
12=JuL=79
10:46
PAGE
R4 OPERATIONAL READ TEST #4

136462

003416
003424

136500

003444

2%:

25%:
RHNINT :

SCOPE
MOV
(LR
(LR
(LR
TST
BMI
MOJ
MOV
MOV

#7 ,aRH(S2
a#PSwW
PASS
LOOCNT
R1
1%
#7ERO, aRHBAE
#5000, aRHBA
#-4000, aRHW(
#BLKTST ,aVECADD

TST
BEC
IST
BEQ
B!T
BEQ
JSR
B8R
MOV

;CLEAR THE LOOP COUNTER
;IS IT AN 11 OR 79
217 lS AN 11
J1T*"S
A 70 ZZRO THE BAE
;SET THE BUS ADDRESS
JUSE

IT IN INTERUPT MODE

R1
BLIP
PASS
BLIP
#31T1,a4177570
BOTTOM
R7 ,DUPORT
RHNINT
#WRITEQ!IE, 3RH(S1

JSET

INTERUPT AND TELL

CLR
BIT
BNE
INC
BNE
(LR
BIT

BITCNT
#RDY ,aRH(CST
’%
BITCNT
18%
BITCNT
#RDY ,aRH(ST

INC
BEQ
8K

;CLEAR BIT COUNTER
;1S RDY SEI
<BIT IS SET
s COUNT UP
sNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
218 17 Sk YET’ :

BITCNT
2%
19%

‘YES

EBIT
BNE
ERROR
ERROR

#RDY ,aRHCS
25%
102
205

MOV

@RH(ST,(S1

;DID READY SET
;YES READY SET
JREADY DID NOT SET
;1T DID NOT INTERUPT
]
;SAVE RH(S1

MOV
TST
BEQ
(LR
(LR

aRHBA ,BA
R1
87%
BAE
€s3

;SAVE BUS ADPDRESS
JIS IT AN RHTMM
N0 IT'S A 70
;CLEAR BAE
;JCLEAR (S3

BNE

MOV

aRHWC ,WC

:COUNT UP
;BIT IS NOT GOING TQ SET

;SAVE WORD COUNT

TO WRITE

MASSBUS RM7 U AND RH11

flA(V11 30A(71052)
12=JUL=79
176
LARGE TRANSFER TEST

DlA%NOaTIC
07=JUN=79
1

(ZRHBE .P11

064674

044700
044706
064714
044722
044730
044736
0464744
044752
044760
0464762
044770
044772
044774
045002
045004
045006
045014
045016
045020
045024
045026
045030
045034
045036
045044
045046
045050

WMNON) = - _A?
rno\rnONNVO

b
b
i
b
b
e
—b

RRRRRRR

045074
045100

000137
0177%7

0464714

0177%7
0177%7

126420

0177%7
0177%7
032777
001033

136406

017737

136454
136450
136414

136410

136362

032777

014776

005777

136304

6$:

001103

7$:

104204

001401

104206

105737

001407
032777
001401

002000

8IT
BNE
BiT
BNE
ERROR

(%:

592

005737
001007
005237
012777

003450

000137
005037
005737
001004
005237
000137
004737
004737
004737

044462
003450
003452

003450
000017

11%:

003452
044456
007224
006572
050210

;WAS CORRECT INFO WRITTEN

JRHWC S NOT ZERO
;uSS THERE ANY ERRORS

207

146

;OUTPUT THE REGISTERS

170
LOOCNT

18 IT FIRST PASS

LOTCNT

IMAKE

11%

#SC
7,
LK!
aRHMR?

JMP

IN
LOOCNT

BNE
INC

BOTTOM

JSR

;BA DID NOT INC PROPERLY

$ERFLG
8%

ERROR

AR
JSR

SET

206

CLR

BOTTOM:

sRDY DID NOT

:Dég BA INC PROPERLY

adRHW(
7%

#PSEL ,aRHCS]

JMP

THERE WAS A PROBLEM

.DID RDY SET
JYES IT SET

JYES
sCORRECT INFO NOT IN RHTDB
;IS WO
IYES

TSTR
BEQ
BIT

BNE
INC
MOV

136242

:YES

203
ak14776,aRHTDE
6%
204

ERROR
ERROR
TST

4 H

;SAVE MR2 TESTER REG.
;IS ATTEN OR ERROR SET

102-

BEG

2%:

g:!AfERR,dRHST

(S2
TESTER STATUS

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

'gEOOO'<4000'2>,aRHBA

REQ
ERROR
CMP
BEG
ERROR
TST
BEQ
ERROR

SEQ 0123

JSAVE
;SAVE

#RDY ,RH(ST
3

(MP

124

@RHST ,DS1

aRHER ,ER1
aRHTDB, TDR
aRHMR?2,
T(

MOV
MOV

136264

104207
106146
104170

MOV

023777
001401

13€334

@RHCS3,(S3
aRH(S2,(S2

MOV

PAGE

; CONT INUE
. SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3

aRHBAE ,BAE

MOV

015000

104203

MOV

86%:

022777
001401

13¢332

86%

JMP

87%:

136340

001001

104102

003416
003424
003422
003432
003436
003442
003440

G 10
10:4€6

IN TEST

IT SECOND PASS

;SET THE SYNC CLOCK BIT AND 441 BLK SIZE
;DO THE TEST AGAIN
;sCLEAR THE COUNTER

PASS

BLITZ

R7 ,WHYFQ
R7,CLEER
R7,ERRTST

sTO SEE WHY IT DIED

:(LEAR THE REGISTERS
JUNDERL INE ERROR MESGES

s IF

NEEDED

. |'...."."'."."'.Q."'.."""".Q'Q"'t".'.'t"i"."

.."'

.TEST

*THIS

:*THE
.

045736

000004

045140
045144
045152
045154
045162

005237
022737
001552
022737
001002

003376

000002

00337¢

THE

IS WHERE

ROUTINE

DIAGNOSTIC

[ HANDLE 4 RH'S

THAT ALLOWS

TEST

FOUR RH'S

THE

"'.".."'..."..Q'.Q"i..l.'t."t.".".t'......"‘t'..'..'tt

1S177:
00337¢
000001

HERE

ENDPAS:

SCOPE
INC

(MP

BEQ
(MP
BNE

DEVCNT

#1 ,DEVINT
CLEVER

#2 ,DEVINT
%

s INCREMENT THE DEVICE COUNT,
sIS IT DEVICE 2
;ES
IT DEVICE 3

MASSBUS RM7C AND RHM11 DIAGNCSTI(
(ZRHBE .P11
07=JUN=7G 13:44

000137
022737
001002
000137
022737
001470

6475

64676

6477
6478
6479
6480
6481
6682
6483

104401

000421
104401

00042¢

00337¢

045710
000004

003376

HERE

BEQ

TYPE

045272

003366

013737

0033¢6
005246
046014
00337¢

RESTAT:

012737

005246
046074
003370

000137

005737
001733
013737
012737
104401

000421

013746

104402

000137
005737
001671
013737
012737
104401

000421

013746
104402
000137
005737
001627
013737

012737

00337G
005422
045530

003372
0055¢2
045634

DEVICT,DEVICS

066014
003374

003374
005722

MOV
JMP

(SP) +

s CORRECT

DEVICT1,DEVICS

SR
LASCI2Z

643

#GIGO,RETAIN

(ORREG

DEVIC2

::SAVE DEVIC1

FOR TYPEOUT

::GO TYPE--OCTAL ASCII(ALL DIGITS.
;SAVE

RETURN ADDRESS

;GO CREATE ADDRESSES

JISITO

#GIGOT ,RETAIN

:SAVE RETURN ERROR ADDRESS

DEVIC2,DEVICS
,65%

MOV

DEVIC2,=(SP)

;GET READY TO CONSTRUCT

,,TYPE ASCIZ STRING

:GET OVER THE ASCIZ

<15><12>/TESTING RH #2 AT BASE ADDRESS /

CORREG

DEVIC3

BEQ

RESTAT

MOV
TYPE

#G1GO2,RETAIN

DEVIC3,DEVICS
,£5%

BR
JASCI1Z

MOV
TYPOC

DEVIC3,=-(SP)

MOV

:GET OVER THE ASCIZ

:YES,END PASS

BEQ
MOv

,,TYPE ASCIZ STRING

RESTAT

8R
LASCIZ

STACK

;SET UP TO CREATE ADDRESSES

<15><12>/TESTING RH #1 AT BASE ADDRESS /

MOV

JMP

sCORRECT REG. ADDRESSES
;CLEAR DEVICE COUNTER

L65%

DEVICT,=(SP?

VST

;FOR REG. ADDRESS CREATION

;GET ADDRESS ERROR RETURN

MOV

JMP

::GO TYPE==OCTAL ASCII(CALL DIGITS)

#GIGO,RETAIN

(ORREG
DEVCNT

MOV

<15><12>/RESTARTING TO TEST RH #1 AT BASE ADDRESS /

(LR

JMP

003372

“GET OVER THE ASCIZ

MOV

s - TST

003400
003410

£4$

::SAVE DEVICT FUR TYPEOUT

TYPOC

046014

;3 TYPE AS(lZ STRING

DEVIC(1,=(SP)

MOV
TYPE

003372

YES

,65%

MOV

8EQ
MOV

003370

;HAVE WE TESTED ALL & RH'S

;:TYPE ASCIZ STRING
.:GET OVER THE ASCIZ

TYPOC

003400
003410

#4 ,DEVCNT

RESTAT

- MoV
.

:1S IT DEVICE &
vgsco~11~us SEARCH

678
663

TYPE

003410

&
- Q)
QO

045572
045572
045576
045600

00336¢

104402

JYES

#3,DEVCNT
| ?g

TYPE
B8R

TST

OO0
lale

045522
045526

C1374¢6

SEC 0124

<15><12>/PROGRAM ERROR ON TESTING 4 RM'S/

TYPO(

063400
003410

ROTEEN

125

ASCiZ

LASCIZ

00336¢ . 003400
045476

045460
045460
045464
045466
045474
045500
045504
045506
045514

12=JUL=79
10:46
PAGE
IS WHERE | HANDLE & RH'S

P
‘MP
BNE
IMP
(MP

045222

013746

104402

177

045604
000003

H 10

30A(7052)

MACY11

;. SAVE DEVIC2 FOR TYPEOUT

::G0 TYPE==OCTAL ASCII(ALL DIGITS)
;CREATE REG.

;YES

218 1T 0

ADDRESSES

_END PASS

;GET BASE ADDRESS

; SAVE RETURN ADDRESS

,,TYPE ASCIZ STRING

:GET _OVER THE ASCIZ

<15><12>/TESTING RH #3 AT BASE ADDRESS /

(ORREG
DEVICS

;:SAVE DEVIC3 FOR TYPEOUT

::060 TYPE==OCTAL ASCII(ALL DIGITS)
s CORRECT REG.
IS 17 0

ADDRESQES

RESTAT

:YES

#GIGO3,RETAIN

:SAVE RETURN ADDRESS

DEVIC4,DEVICS

LEND PASS

;GET BASE ADDRESS

MASSBUS RW70 AND Rm11 DIAGNOST!IC
(JRHMBE .P11
Q7=,UN=79 13:44

6531

6522
6533
6534
6535
6536

6537
6538
6539
6540
6541
6542
6543
6544
6545
6546
6547
6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561

045732
04573%¢
046002
046002
046006
046010
0465014
046022
046026

046032
046036
046040
046046
046052
046060
046066
046074
0646102
046110
046116
046122
046126
046132
046140
046144
046146

1046401

000e21

fiA«v T
77

065740

;i%SS:

6469

013746

00337¢

00C137
013737
012702
013722
022702

003400
003330
003402
003360

003402

000002
046026
003400
003404
003402
000002
003402
003330
003364
001102
001102
000001
003376

003402

104402

001405

062737
000137
013737
063737
013737
062737
013737
013737
005237
005037

005237
012737

005737
001402
060137

046014

00340¢
003402
003360
003402
003362
003364

6570

€571
6572

6573
6574
6575
6576

6577

6578

6579
6580
6581
6582
6583
6584

6585

£586

[S WHERE

TYDPE

,65%

MOV
TYPO({

DEVIC4,=(SP)

LASCIZ

(ORREG

126

SEG 0125

..TYPE ASCIZ STRING

JGET OVER THE ASCIZ

. :SAVE DEVIC4 FOR TYPEOUT
;.60 TYPE==OCTAL ASCII(ALL DIGITS)
sCORRECT

REG.

ADDRESSES

.GET BASE ADDRESS

MOV

#RH(CST,R2

;GET ADDRESS TO START STORING

(MP

#RHBAE ,R?2

;WAS IT LAST ADDRESS

OFF11,(R2)+

BEQ

. STORE ADDRESS

AHEAD

SYES

ADD

#TWO,0FF 1

JMP
MOV

BEHIND
DEVICS,a#CFF11

;GO STORE

MOV

OFF 11 ,RHBAE

;SETUP BAE

.STORE ADDRESS

ADDRWESS

ADD

sCREATE

REGEND ,OFF 11

ADD

#2,0FF11

(LR

$TSTAM

MOV
MOV
INC
INC

MOV

JMP
END OF

ADDRESS

;SETUP (S3 ADDRESS

OFF11_,RH(CS3
RH(CST,RH(CSTB
RH(CS1R

. SAVE THE ADDRESS
;SETUP HIGH BYTE
+FOR RHCS1

$TSTANM

SSET 70 TEST 1

DEVCNT -

;ARE

sCLEAR TEST NUMBER

#1,8TIMES

TST

.SBTTL

PAGE

4 RH'S

<15><12>/TESTING RH #4 AT BASE ADDRESS 7/

DEVICS,OFF11

BEQ

006252

10:46

HANDLE

643

JMP

001212

110

B8R

(ORREG: MOV

AHEAD:

12=JuL=79

HERE

BEHIND: MOV

;FOR ONE

$EOP

ITERATION

END OF

JNO,SEE

JYES DO END OF

TSTADD
PASS ROUTINE

PASS

IS PRESENT

- 'Q't.'fi.'tt'tttt....t""'..ttt.lt't'.t'fitt'tt""ltt.'."'."'

:*INCREMENT THE PASS NUMBER ($PASS)
;*TYPE "END PASS #XXXXX TOTAL NUMBER OF

6562

£563
6564
6565
6546
6567
6568
6569

30ACiC52)

ERRORS SINCE
YYYYY ARE DECIMAL NUMBERS
THERES A MONITOR GO TO IT

;*WHERE

;*IF

:+IF
046152
046152
046154
046160
046164
046170

046176

000004
005037
005037
005237
042737

046200
046202
046204
046206
046210
046212
046216

046236
046236
046242
046244

THERE

$EOP:

001102
001212
061100

100000

001100

046220

013746
104405

104401

001100

. 066252

SCOPE
CLR
(LR
INC

OAad:

$TSTAM
$TIMES
$PASS

;:;2ERO THE TEST NUMBER
;. ZERO THE NUMBER OF [TERATICNS
;2 INCREMENT THE PASS NUMBER

(PC)+
1
$DOAGN

J:L00P?

BIC

‘100000 $PASS

MOV

(PC)+,a(P()+

s sRESTORE

L65%

;s TYPE

.WORD
$EOP(T

64%

MOV

$PASS,~=(SP)

TYPDS
TYPE

V678

TYPE

.igsS:

vYyyy''

ISN'T JUMP TO BEGINZ

DEC
$EOPCT: .WORD
BGT

$ENDCT:

LAST REPORT

XXXXX AND

LASCIZ

;:DON'T ALLOW A NEG. NUMBER
::YES

ASCIZ STRING

;:GET OVER

<12><15>/END PASS #/

COUNTER

THE ASCIZ

s :SAVE $PASS FOR TYPEQUT

;. TYPE PASS NUMBER
:+GO TYPE=-=DECIMAL ASCI!
s+ TYPE ASCIZ STRING

.
WITH SIGN

MASSBUS RK70 AND RM1T DIAGNQSTIC
(ZRHBE.P11
07=JUN=79 13:44

6585

6590

€591
6592
6593
€594
6595
6596
6597
6598

0466250

000421

046314
046314

013746

046320
046322

104401

(N~

6587
6588

MACY11
END OF

104405

005037
013700
001405
000005
004710
000240
000240

001112

066362

MOV

$ERTTL ,=(SP)

a#62 RO

$DOAGN:
000

$RTNAD:
$ENULL:

$DOAGN

RESET

JSR

PC, (RO)

JMP
.WORD
BYTE
.EVEN

a(P()+
BEGINZ
=1,=1,

NOP
NOP
NOP

RR R A AR AR AR AR AR

;THIS

PAGE

127

SEG 0126

.GET OVER THE ASCIZ
ERRORS SINCE LAST REPORT
/

.SCRLF

BEQ

$ENDAD:

TOTAL

10:46

$ERTTL

$GET42: MOV

000042

377

66%

LASCIZ

(LR

000137
377

J 10

TYPDS
TYPE

001223
001112

000240
00416%

.
;6£7%:

30A(7052)
12=JuUL=79
PASS ROUTINE

;.SAVE SERTTL

FOR TYPEOQUT

;. TOTAL NUMBER OF ERRORS
;:GO TYPE--DECIMAL ASCII WITH SIGN

;. TYPE

CARRIAGE RETURN,

;sCLEAR ERROR TOTAL
;;GET MONITOR ADDRESS

LINE FEED

;2BRANCH IF NO MONITOR

;3CLEAR

THE WORLD

;3GO TO MONITOR

;2 SAVE ROOM
;.FOR
sACTTN

; JRETURN

:sNULL CHARACTER STRING

RN A A AR

RR AR RRAARR AR AR

AR R AR

THE WATBIT PROGRAM

.-."ttQQ't.ttQttQQtttlttt't't..t'lfil'ttt'tfiittfi'tt'tfittttil.tt'i"t

046362
046370

032737
001155

020000

177570

WATBIT:

BIT
BNE

#SW13 94177570
RITURN

;SKIP ERROR PRINTOUT ?
sYES

. 't’tt'ttt't.Qfi'ttt."fi'tttt.fitttttt't'tt!ii.ttt"t'tittt.".tlt

046372

032737

000400

177570

(HGE2:

BIT

#BIT8,au177570

tttttt.tt'ttt'tt'tttl"t"'.flt!ttttfitfi’t‘ttttttfitii'tt*ttttt..t'!

046400
046402

071151

032737

BNE

000001

177570

RITURN

. 'tttttfitt"'tttifitt!tt""'t**ifi\tttttfit**'fititt'ttitfitfii't'i'fittt

CHGE3:

BIT

#BITO,a#177570

32 .t'ttl.t'tfitfi*.ifiittt"'t'.t!lfitt-fit AR AL

046410
046412
046416
046424

046432
046440
046444
046446
046452

046532
046532
046540
046542
046546
046554

046602

001145
005037
013737
013737
043737
005737
001447
104401

000427

032737
001076
006037
022737
001403
005237
000763
005037
043737
005737
001446

003446
001162
001200
001162
001204

BNE
001202
001204
001204

046454

;;658:

000001

001204

001204
000017

00344¢

003446

003446
001200
001202

001202

64%:

MOAR:

MOOR:

RITURN

(LR
MOV
MOV
BIC
TST
BEQ
TYPE
BR

BITCNT
$REGO, $TMP?
$TMP] ,$TMP3
$REGO,$TMP3
$TMP3
NEXTST
,65%
643

BIT

#ONE ,$TMP3

LASCIZ

BNE

ROR

CMP
BEQ
INC
BR
NEXTST: CLR
BIC
TST
BEQ

SRSRS2
2]

;CLEAR BIT COUNTER
:SAVE GOOD DATA IN $REGO
;SAVE CONTENTS OF BAD DAiTA
;WHERE EXTRA BITS SET ?

sFIND OUT
:NO,FIND OUT WHAT BITS WHERE NOT
..TVPE ASCIZ STRING

SET

:GET OVER THE ASCIZ

<15><12>/THESE ARE THE BIT NO. OF THE EXTRA BITS./<15><12>

PRIBIT
$TMP3

#17 ,BITCNT
NEXTST
BITCNT
MOAR
BITCNT
$TMP1,$TMP?
$TMP?2
RETURN

;FIND THE EXTRA
;GO _TO PRINT BIT NO.
;SETUP FOR NEXT BIT

2IS IT BIT 15 LAST TESTED
sYES,SEE

ANY BITS WHER NOT

sNO NOT LAST BIT YET
GO TO TEST NEXT BIT

sZERO BIT COUNTER

SET

;FIND WHAT BITS WHER NOT SET
JWAS ALL BITS SET.THAT SHOULD HAVE BEEN
;YES,AND TEST FINISHED

MASSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

6643

046604

6644

046610

6646

046656

6645

104401

000426

046612

046666

032737

000001

6649
6650
6651
6652
6653
6654

046676
046702
046710
046712
046716
046720

006037
022737
001403
005237
000763
104401

001202
000017

046574

001014

000207

6657
6658
6659
6660
6661
6662
6663

046726
046732
04673
046736
046736
046742
046744

013746
104405
000760

003446

013746
104405
000676

003446

6661‘

066726

6665

6666

6667

€668

6669

6670
6671

6672

046746

046752

047044,

047052

047116
047116
047122

*012637
162737

6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690

047134
047136
047142

104402
104401
000406

047160
04716C
047164
047170
047172
(47176

012637
013746
104402
013716
000002

6679

047130

013746

:
001206
000002

001206

:FIND BIT NOT SET

ROR
(MP
BEQ
INC
BR
RETURN: TYPE

$TMP?
#17 ,BITCNT
RE TURN
BITCNT
MORE2
L$CRLF

:SETUP TO FIND MORE
:WAS LAST BIT BIT 15
;YES AND TEST FINISHED
:NO SETUP FOR NEXT BIT
:CONTINUE TEST

PRIBIT:

LASCIZ

*GET NVER THE ASCIZ

<15><12>/BIT NO. OF

BNE

PRTB]IT

MOV
TYPDS
BR -

BITCNT,=(SP)
.
MORE

MOy
TYPDS
BR

BITCNT,=(SP)

MOOR

THE BITS THAT WHERE NOT SET/<15><12>

;ERROR BIT FOUND

[

:RETURN TO MAIN PROG.
::SAVE BITCNT FOR TYPEOUT
;:GO TYPE=--DECIMAL ASCII WITH SIGN
:LOOK FOR MORE
::SAVE BITCNT FOR TYPEOUT
::GO TYPE--DECIMAL ASCII WITH SIGN
:L00K FOR MORE

.-:"ttt'tt.tltt'tt'tttttttttttttfit.ttttit.ttttt'tttttt.t'tt'ttt..

;

TIEOUT:
. TYPE

&
::65%8:

£4%:

;;678:

001206

001106
:

3R
LASCIZ

64%
:GET OVER THE ASCIZ
<15><12><12>/PROGRAM INSTRUCTION OR ADDRESS HAS CREATED A TIMEQUT/

,65%

::TYPE ASCIZ STRING

TYPE
BR

L67%
66%

::TYPE ASCIZ STRING
:GET OVER THE ASCIZ

(ASCIZ

£6%:

MOV
SUB

MOV

1:69%:
£8%:
.

001206
001206

(SP) +,$TMP4
ATWO,$TMP4

:MOVE ADDRESS TO STORAGE
:CORRECT ADDRESS

$TMP4,-(SP)

::SAVE $TMP4 FOR TYPEOUT

::GO TYPE=--OCTAL ASCII(ALL DIGITS)
L69%
::TYPE ASCIZ STRING
68%
::GET OVER THE ASCIZ
<15><12>/PSW WAS
7/

MOV
MOV
TYPOC
MOV
RTI

(SP)+,$TMP4
$TMP4 , - (SP)

;GET OLD PSW
::SAVE $TMP4 FOR TYPEOUT
::GO TYPE~--OCTAL ASCII(ALL DIGITS)
:FAKE RETURN

$LPADR, (SP)
A AR AR R AN R

R AR R AR A AR R R AR R A AR AR R A AR RN AR AR RR N AT AR NN

:THIS ROUTINE HANDLES PARITY ERRORS

6693

.-.-'ttttttttttttttttttttt't'itttlttfitttttttttt!ttttttltttttttttl"

047200
047200
047204

104401
000422

.
047206

PARITY:

;:65%8:

TYPE
RK

LASCIZ

<15><12>/ADDRESS WHICH CAUSED TIMEOUT WAS /

TYPOC
TYPE
BR
_ASCIZ

SRR R R R A R

6692

6698

#ONE , $TMP?

MORE2:

047144

6691

6694
6695
6696
6697

;i TYPE ASCIZ STRING

:THIS ROUTINE HANDLES TIMEOUT ERRORS

104401
000422

6676
6677
5678

SEQ 0127

'-’-ttttt'ttttQtttt!tttttttttt'tttttttt!ttttttttttttttfitttttttt.itt

046754

047044
047050

128

BIT

6£4%:

PRTBIT :

104401

000434

,65%

PAGE

64$

RITURN: RTS

6673
6674

6675

003446

001223

046724

6656

001202

10:46

;:658:

003446

6655

K 10

30A(7052)
12=JUL=79
PASS ROUTINE

TYPE

6647

6648

MACY11
END OF

,65%
64%

::TYPE ASLIZ STRING
:GET OYER THE ASCIZ

<15><12>/PAR]ITY TRAP TO VECTOR ADDRESS 114/

MASSBUS RM70 AND FH11 DIAGNOSTIC
(ZRHBE.P11
' (Q7=JUN=79 13:44

6699
6700
6701

(047252
047252
047256

6703
6704

047320
047320

012637

004100

6706

047332

013746

(06100

6708

047340

104401

6702

6705

047324

6707

047336

104401
000420

162737

104¢02

::678:

000002

6711
6712
6713
6714

047362
047362
047366
7372

012637
013746
104402

6716
6717
6718

047376
047400
047404

100507
104401
000417

047406

6719
6720

7374

047444

177742
004100

6724

047460

104407

047466

6725

104402

047464

000416

6726
6727
6728
6729
6730
6731
6732
6733
6734
6735

047522
047522
047530
047534
047536
047542

013737
013746
104402
104401
000417

047602
047602

013737

6737

047614

6736

6/38

e;zg

047610

047616

047622

177740
004100
:
047544

177744

013746

004100

013716

001106

104402

000002

MOV

1:698:

£8%:

004100

::718:
70%

004100

::75%:
7.%:

10:46

L67%
66%

PAGE

129

SEG 0128

)

:iTYPE ASCIZ STRING
:GET OVER THE ASCIZ

<15><12>/ADDRESS THAT CAUSED TRAP WAS /
(SP) + ,RBUF

SGET PC#+2

#TWO0,RBUF

:CORECT PC

REUF ,=(SP)

::SAVE RBUF FOR TYPEOUT

,69%

::TYPE ASCIZ STRING

::GO

TYPE==OCTAL ASCII(ALL

DIGITS)

6£8%

::GET OVER THE ASCIZ

MOV
MOV
TYPOC

(SP) + ,RBUF
RBUF ,=(SP)

:GET OLD PSW
::SAVE RBUF FOR TYPEOUT
::GO TYPE=-OCTAL ASCTI(ALL DIGITS)

BM]
TYPE
BR

TRAPED
,71%
70%

:NO,ITS A 11/05-11/45
'y TYPE ASCIZ STRING
GET OVER THE ASCI?Z

MOV
MOV

HERADD
, RBUF
RRUF ,=(SP)

::SAVE RBUF FOR TYPEOUT

TYPE

- ,73%

_ASCIZ

<15><12>/LOW ERROR ADDRESS REG.

MOV
MOV
TYPOC
TYPE
BR
.ASCIZ

LERADD ,RBUF
RBUF ,=(SP)
;
,75%
74%
<15><12>/MEMORY

MOV

MEMERR,RBUF

LASCIZ

<15><12>/PSW WAS

ASCIZ

<15><12>/HIGH shnon ADDRESS REG. = ./
.

TY®OC

2:738:
72%:
004100,
|
:
s

L 10

MOV

TYPOC

TRAPED: MOV
RT]

{

:ARE WE ON AN 11/70

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

,,TYPE ASCIZ STRING

72%

:GET OVER THE ASCIZ

RBUF ,=(SP)
-

$LPADR, (SP)

= /

]

::SAVE RBUF FOR TYPEOUT
::GO TYPE=--OCTAL ASCII(ALL DIGITS)
::TYPE ASCIZ STRING
:GET OVER THE ASCIZ
SYSTEM ERROR REG. = /

::SAVE RBUF FOR TYPEOUT

GO TYPE=-OCTAL ASCIICALL DIGITS)

:FAKE RETURN

*RETURN WHERE LEFT OFF

";ttttttttt'tttt'ttttttttttttttttttttttttlttttttittttttt!tttttttt

674%

6744
6745
6746
6747
6748
6749
6750

047624
047632
047636
047644
047646
047652
047654

6751
6752
6753
6754

LASCIZ

TYPF

741

6742

TYPE
BR

TYP0C

013737
013746

30A(7052)
12=-JUL=79
PASS ROUTINE

SUB

005701

047444
047452

047456

004100

004100
004100

6721
6722

6723

66%:

047346

04734

6715

0004606

£6%:

047260

« 6709

6710

MACY11
END OF

047660,
047666
047670
047674

:THIS IS THE DUAL PORT ROUTINE

. 't-nttwttttttt-nttntttitntttttttttttttttttttttntt*ttttttttttttt

012777
005037
032777
001015
005237
001371
005037

032777
001004
005237
001401

002161
003446
000200

133476

133464

003446
003446
000200

003446

133442

DUPORT: MOV
CLR
18%:
BIT
BNE
INC
BNE
CLR

19%:

BIT
BNE
INC
BEQ

#WRITEQ!'PSEL'IE,@RHCS1
BITCNT
ARDY ,@RHCS1
BULL
BITCNT
.
18%
BITCNT

#RDY ,@RHCS1
BULL
BITCNT
BULL

:CLEAR BIT COUNTER
:1S RDY SET
:BIT IS SET
:COUNT UP
.
:NOT FINISHED COUNTING
:GET READY TO DO IT AGAIN

;IS IT SET YET?
:YES
:COUNT UP
;BIT IS NOT GOING TO SET

M 10
MACY11 30A(71052)
12=JuL=79
10 :46
END OF PASS ROUTINE

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

6755
6756
6757
6758
6759
6760
6761
6762
6763
6764

6765
6766
6767

6768
6769

6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
5782
6783
6784
6785

047676
047700
047700
047706
047710
047712

00C770

032777
001001

000200

133422

104102

000207

:
8uULL

19%

BIT

#RDY ,aRHCS1

BNE

ERROR

CUTE:
IR

RTS

130

SEQ 0129

CUTE

102

AR R AR AR R AR AR AR AR RN

;THESE

PAGE

ARE

THE

R R R RN R AR R AR R AR AR

AR AR R AR AR

R AR

A AR AR

CLEARS ROUTINES

:.'-l.'t.tl.t'Qtttttt.'tt""ttt.t'ttQQi‘tQt"t."lfi..ttt't'.tt'.t

012737
017737
042737
000207
012737
017737
042737
000207

012737
017737
042737

000207
012737
017737
042737

000207
012737
017737
042737
000207
012737
017737
042737

000000
133402
007777
000000
133366
000377

000000
133346
000000
000000
133320
030600

000007
133272
177770
000000
133270
000117

001162
001200
001200

001162
061200
001200
001162
001200
001200

001162
001200
001200
001162
001200
001200
001162
001200
001200

000207

FINDiT:

MOV

#0,$REGO

MOV
BIC

dRH(S?,$TMP1
:GET COMPARE READY
#READG!GO! IE!RDY!A16!A17!PSEL
!DVA,$TMP]

RTS
LOOK 0: MOV

FOUND:

TO FIND ERROR

;CLEAR BITS NOT NEEDED

R7
#0,$REGO

MOV
BIC

JRETURN TO PROGRAM
<GET READY TO FIND ERROR
ARH(S2,$TMP1
:GET COMPARE READY
#UST!US2!US4!BA]!PAT!CLR!IR!OR,$TMP1

RTS

LOOKED: MOV
MOV

FIND:

;GET READY

sCLEAR BITS NOT NEEDED

JRETURN TO PROGRAM

#0,3$REGO
ARHER, $TMP1

;GET READY TO FIND ERROR
:GET COMPARE READY

BIC

#ZERO,$TMP1

RTS

MOV
BIC

aRHST ,$TMP1
#DRY !DPRMOL !PIP,$TMP1
.

MOV

;CLEAR BITS NOT NEEDED
JRETURN TO PROGRAM

#0, SREGO

;GET READY TO FIND ERROR

RTS

JRETURN TO PROGRAM

MOV

aRHCSZ2,$TMP1

MOV

#7,$REGO

BIC

:GET COMPARE READY

:CLEAR BITS NOT NEEDED

;GET READY TO FIND ERROR

:GET COMPARE READY

#SA] !PAT!CLR!IR!OR!MPE
!MXF ! PGE !NEM!NED ' UPE !WCE !DLT,$TMP1

RTS

CS3ERR: MOV

#0,$REGO

;CLEAR BITS NOT NEEDED

sRETURN TO PROGRAM

;GET READY TO FIND ERROR

MOV
BIC

@RH(S3,$TMP1
;GET COMPARE READY
#IE3!IPCKO!IPCKT!
IPCK2! IPCK3,¢TMTMP]

RTS

;CLEAR BITS NOT NEEDED

;RETURN TO PROGRAM

.'.'fi.tttQt."tttttttttttt'tti't.'tt.'i'tit.ltl.'i'fitttt'.'itt'i'tt

THIS ROUTINE

THE

TEST NUMBER CORRECTION ROUTINE

:."l’ttQ'tt.ttt'.tt'ltfiit"t.t..t"t'tfitt.lt.ti"ttfi.t.ttttt"tt't

013737

001102

003454

TSTNMB: MOV

032737

020000

177570

BIT

#SW13,a4177570

122737

000001

001103

013737
006137
2737
0€3737

003454
003456
072412
003456

003456

ROL

OFFSET

105037

7737

003455

133270

003460
003460
050200

CLRB

BNE
CMPB
BNE
MOV

MOV
ADD

MOV

$TSTNM, TSTNM
TSTNM+1

TSTNMA
#1,8ERFLG
TSTNMA
TSTNM,OF FSET

#HEADER ,HEDDAD

OF FSET ,HEDDAD

@HEDDAD ,HEDADD

;GET THE TEST NUMBER'
;CLEAR UPPER BYTE

s INHIBIT TYPEOUT

JYES
;IS IT FIRST ERROR
:NO
;GET TEST NUMBER
. CREAT OFFSET

;GET BEGINING OF

TABLE

s CREATE MES ADDRESS

sSET UP FOR MESSAGE

MASSBUS RH70 AND RH11 DIAGNCSTIC
(ZRHBE .P11
07=JUN=79 13:44

6811
6812
6813
6814

6815
6816

050172
050176
050200
050202
050206

104401
104401

000000
004737
000207

MACY11
END OF

001223
HEDADD:
TSTNMA:

6817

TYPE

JSCRLF

0
JSR
RTS

R7 ,a#$ERRTYP
R7

PAGE

131

SEQ 0130

;GO TO ERROR TYPE ROUTINE
JRETURN TO ERROR ROUTINE

“:'.'tt..t.tt..'.'tt..tii".ttQ...QIQtttt.ti.fi..'fi..i'.'..t.'."‘

6818
6819
6820

6821

PASS ROUTINE
TYPE

074130

N 10
12=JUL=79
10: 46

30A(71052)

s THIS PROGRAM WHILL DEVIDE THE ERROR
;PRINTOUT BETWEEN TESTS

:"..'...Qt'...'.'.Q.'Q..'..Q'.tl.'Q.'t.Q'..Q'."i"fi..fi..'."titt

050210
050214
0502i6
050224
050226
050234
050240
050244
050262

050262
050266
050270
050274
050332

050332

105737

001446
032737

ERRTST:

001103

020000

177570

001102
003455
050246

003454

104401

050276

104402

00041€

BNE

OUTCF

TSTNM+1

TYFE

OUTOF:

sYES

sGET TEST NO.

.CLEAR UPPER BYTE

,65%

;s TYPE ASCIZ STRING

MOV
TYPOC

TSTNM,=(SP)

;sSAVE TSTNM FOR TYPEOUT
. G0 TYPE=--OCTAL ASCIICALL DIGITS)

66%

RTS

BR
649
;:GET OVER THE ASCIZ
JASCIT - <1351
/" eurEst 7

TYPE

66%:

JINKIBIT TYPEQUT ?

$TSTNM,TSTANM

(LRB

6£46%:

;WAS THERE AN ERROR FOUND
sNO ,GO TO NEXT TEST

#SW13,a#4177570

MOV

;;273:

000207

$SERFLG
OUTOF

BIT

;;2SS:

013746

TSTR
BEQ

L,67%

LASCIZ

;sTYPE ASCIZ STRING

;2GET OVER THE ASCIZ

/ ERROR MESSAGE
(S) ~A4A7¢155¢12><12><12>

.‘:..'tfi.tt0Qtttt'.tttt..'.t'...i!..t!t...'t't""t.'.'t.l...tfi'.t

;THIS

THE

INTERUPT

:FOR THE LARGE

ROUTINE

TRANSFER TEST

""'.'..'ttt.i.t'ttt'..l.."..Qlttt'.'.'fil"'...'Q'...t.fi'.."..tt

050334
050340

012716
0C000¢

044638

8LKTST:

MOV
RTI

#RHNINT , (SP)

sSET THE CORRET
;AND RETURN

RETURN

MESSBUS RH70 AND RH11 DIAGNOSTIC
CZRMBE P11
07=JUN=79 13:44

MACY11
END OF

30A(7052)

12=JuUL=79

B 11

10:46

PASS ROUTINE

PAGE

132

SEQ 0131

.'.'Qtttitt"tttt..'Qtfittt.t'*'iti'.it.t'ttQQ'QQQ'QQ'Q..Q.QQQ.Q"..

6848

; HEADER MESSAGES FOR ERROR PRINT QUTS

":ttti"fit'Qtfi'ttQi"t't".t.t1...*."&'0..'...'."'QQ...Q"""'

042104
042040
020105
024040
030440

HED1:

.ASCIZ/RH ADDRESS DECODE TEST

020122
020124
020124

HED?Z:

LASCIZ/CLEAR

HED3:

LASCIZ/TESTER CONNECTED TEST

(TEST 3)/

052123

042524
047116
020104
024040
031440

042122
052116
051101
020124
020124

041440
041440
052040
052050
024464

:
HED4

.ASCIZ/WORD COUNT CLEAR TEST

(TEST 4)/

041110
040505
052123
052123

020101
020122

HEDS:

.ASCIZ/RHBA CLEAR TEST

5)/

040502
040505
052123
052123

020105
020122
024040
033040

HEDG:

.ASCIZ/RHBAE

041104

041440
052040
052050
024467

HED7:

.ASCIZ/RHDB CLEAR TEST

047522
044507

HED10:

LASCIZ/PROM REGISTER DECODE

042040
020105
024040
030440

020115
052123
041505
042524
042524
024460

041510
052111
020124
020124

031523
052040
052050
030461

HED11:

.ASCIZ/RH(CS3 BIT TEST

041527
052040
052050

041040
051505
051505

HED12:

LASCIZ/RHW(C BIT

044122
042522
041505
042524
042524

051101
020124
020124

0507326
050744
050752

020124

TEST

(TEST 1)/

(TEST 2)/

(TEST

024040
032440

CLEAR TEST

TEST

(TEST 6)/

(TEST 7)/

TEST

(TEST 11)/

(TEST

12)/

(TEST

10)/

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE P11
07=JUN=79 13:44

050760
050766
050774
051002
051010
051016
051017
051024
051032
051040
051046

051422
051430

000051
020105
042524
042524
024463

041110
020124
024040

PASS ROUTINE

10:46

PAGE

133

HED14:

LASCIZ/RHBA BIT

TEST

(TEST

030440

020101
042524
042524
024464

122

042110
020124
024040
030440

020102
042524
042524
024465

HED15:

LASCIZ/RHDB BIT

TEST

(TEST 15)/

122

053510
051105

020103
052101
020114
024040
030440

HED16:

<ASCIZ/RHWC OPERATIONAL

TEST

(TEST 16)/

TEST

(TEST

050117
047511
042524
042524
024466
122

050117
047511
042524
042524
024467

115

6946
6947
6948

031061
040502
020124
024040
030440

12=JUL=79

.ASCIZ/RHBAE BIT TEST

116

6943
6944
6945

END OF

30A(7052)

HED13:

042522
051440
020124
024040
031040
127
042522
051440
020124
024040
031040

6940
6941
6942

6949
6950
6951
6952
6953
6954
6955
6956
6957
6958

020124
044122
044502
052123
052123
000
122
044502
052123
052123
000
044502
052123
052123
000

oSN
SOROFRNS

6904
6905
6906
6907
69508
6909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6929

MACY11

051124
020104
052111
020124
020124
050125
020105
041523
052040
052050
031462
030461
000131
050125
020105

040516

052123
052123

SEQ 0132

(TEST 13)/

14)/

000
041110
051105
040516
052123
052123
000
046505
040440
020103
042524
042524
024460
042503
040440
020103
042524
042524
024461
050704
020105
041523
052040
052050
031062
026105
047101
041040
051505
051505
020051
047440

020101
052101
020114
024040
030440

HED17:

.ASCIZ/RHBA OPERATIONAL

052054
042116
044502
052123
052123
000
052054
042116
044502
052123
052123
000
026105
047101
041040
051505
051505
0C0051
051124
020104
052111
020124
020124
044122
046116

HED29:

.ASCIZ/NEM,TRE AND SC BIT TEST

(TEST 20)/

HEDZ21:

LASCIZ/WCE,TRE AND SC BIT

(TEST 21)/

HEDZ22:

LASCIZ/MDPE
,TRE AND SC BIT

HEDZ23:

LASCIZ/UPE,TRE AND SC BIT

TEST

(TEST 23)

026105
047101

051124
020104

HEDZ24:

LASCIZ/UPE,TRE AND SC BIT

TEST

(TEST 24)/

TEST

17)/

(TEST 22)/

RH11

ONLY/

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

6959
6960
6961
6962
6963

6972
6973
6974
6975

0571436
051444
051452
051460
051464
051472
051500
051506
051514
051522
051526
051534
051542
051550
051556
051564
051570

041523
052040
052050
032062
042516
020105
041523
052040
052050
032462
054115
020105
041523
052040
052050
033062
043520

041040
051505
051505
000051
026104
047101
041040
051505
051505
000051
026106
047101
041040
051505
051505
000051
020105

6977
6978
6979
6980
6981
6982
6983
6984
6985
© 6986
6987
6988
6989
6990
6991
6992
6993
€994
6995
6996
6997

051604
051612
051620
051626
051632
051640
051646
051654
051662
051670
051674
051702
051710
051716
(051724
051732
051740
051741
051746
051754
051762

041523
052040
052050
033462
054115
020105
041523
052040
052050
030063
041515
042116
051105
044502
052123
052123
000
104
051505
047527
047522

041040
051505
051505
000051
026106
047101
041040
051505
051505
000051
04252C
051440
047522
020124
024040
031440
046102
026124
042122
020115
042523
042104

6965

6966
6967
6968
6969
6970
6971

6976

6998
6999
7000
7001
7002
7003
70064
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014

051576

051770
051776
052004
052012
052020
052021
052026
052034
052042
052050
052056
052064
052072
052076
052104
052112
052120

020105

040502
040440
051523
052123
000
104
051505
047527
047522
040502
040440
052050
031463
041104
052123
051117
046517

MACY11
END OF

30A(7052)
12=JUL=79
PASS ROUTINE

10:46

PAGE

134

052111
020124
020124
051124
020104
052111

HED25:

.ASCIZ/NED,TRE AND SC BIT TEST

(TEST 25)/

051124
020104
052111
020124
020124

HED26:

.ASCIZ/MXF,TRE AND SC BIT TEST

(TEST 26)/

051124

HED27:

.ASCIZ/PGE

TEST

(TEST 27)/

051124
020704
052111
020124
020124

HED30:

.ASCIZ/MXF,TRE AND SC BIT TEST

(TEST 30)/

040440
020103
020122
042524
042524
024461

HED31:

.ASCIZ/MCPE AND SC ERROR BIT TEST

HED32:

.ASCIZ/DBL TEST,1

024040
031440

052040
020061
043040
020101
032040
042522

(042524
(24462

046102
026124
042122
020115
042523
042104
051505
000051
020114
031454
020104
040440

052040
020062
043040
020101
032040
020056
020124

HED33:

.ASCIZ/DBL

042524
053440
051106
041040

HED34:

047101

SEQ 0133

020124
020124

020104

TRE AND SC BIT

052111
020124
020124

(TEST 31)/

WORD FROM A BASE & ADDRESS

:
TEST,2 WORD FROM A BASE 4 ADD.

(TEST 32)/

(TEST 33)/

:
,ASCIZ/DBL

TEST,3 WORD FROM A BASE 4 ADD.

(TEST

34)/

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

7015
7016
7017
7018
7019
7020
7021
7022
7023
7024
7025
7026
7027
7028
7029
7030
7031
7032
7033
7034
7035

052126
052134
052142
052150
052152
052160
052166
052174
052202

051501

020105
027104
052123
000
046102
026124
042122
046517
051501
042101
042524
024465
046102
026124
042122
020115
042523
042104
052123
000

046102
026124
042122
020115
042523

042104

020104
041104
052123

042524
024040
032040

052622

051505
053440
047054

044124
051440
042524
024467
046102
026124
042122
020110
042523
020104
020105
052051
030064
020114
047054
041040
020064
052050

030464
020114
041040
020064
053440
043040
042524
024462
046102
020124
051117
052117

MACYT1 30A(7052)
12=JUL=79
END OF PASS ROUTINE

10:46

PAGE

135

SEG 0134

020064

024040
031440
052040
020064
020123
040440
020105
027104
052123
000
052040
020061
04 3040
020101
032040
024056
031440
052040
020062
043040
020101
032040
020056
041040
052105
052123
009
052040
020062
053440
040502
020124
051127
042522
0515C5
000051
042524
052117
051501
042101
051505
000051
042524
051501
042101
044522
042127
052123
000
052040
031054
020104
040440

HED3S:

LASCIZ/DBL

TEST,4 WORDS FROM A BASE & ADD.

HED36:

LASCIZ/DBL

TEST,1

HED37:

.ASCIZ/DBI.

TEST,2 WORD FROM A BASE 4 ADD. WITH BAI

HED4C:

LASCIZ/DBL

TEST,2 WORD WITH BAI

1:
HED4

LASCIZ/DBL

TEST_NOT A BASE 4 ADD

HED4?2:

LASCIZ/DBL

TEST BASE

HED43:

LASCIZ/DBL

TEST

WORD FROM A BASE

& ADD.

,2 WORD

(TEST

& ADD.(TEST

35)/

36)/

SET

(TEST 37)/

SET AND WRITE REV )TEST 40)/

(TEST 41)/

WRITE FWD

,NOT A BASE

(TEST 42)/

4 ADD,

(TEST 43)/

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

7071

7072
7073

7074
7075

052630
052636

052644

052652

7076
7077

7078
7079

7080
7081
7082

7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098

7099
7100
7101
7102
7103
7104
7105
7106
7107
7108
7109

7110
71

7112
7113

7114
7115

7116

7117
7118
7119
7120
7121
7122
7123
7124
7125
7126

053321
053326

12=JUL=79
MACY11 30A(7052)
END OF PASS ROUTINE

051501
042101
042524
024463
046102
026124
042122
020124
042523
042104
052111
020126
020124

020105
027104
052123
000
052040
020063
026040
020101
032040
026056
020105
052050
032064

020114
031054
020104
043040
042524
024465
046102
026124
042122
020104
047516
040502
040440
052050
033064
020114
031054
020104
051040
051501
042101
042524
024467
046102
026124
042122
020104
047516
040502
040440
052050
030065
020114
031454
020104
043040
051501
042101
042524
024461
046102
026124

042524
053440
042522
042127
052123
000
052040
020062
051040
053506

020124
042523
042104
051505
000051
042524
053440
042522
053105
020105
027104
052123
000
052040
020062
051040
042522
020124

042523
042104
051505
000051
042524
053440
042522
042127
020105
027104
052123
000
052040
020063

F1 1
1 0:46

PAGE

136

SEQ 0135

HED4S:

LASCIZ/DBL

TEST,3 WORD

HED4S:

.ASC1Z/DBL

TEST,2 WORD READ FWD

HED46:

.ASCIZ/DBL

TEST,2 WORD READ FWD,NOT A BASE

:
HED47

.ASCIZ/DBL

TEST,2 WORD READ REV,BASE

HEDSO:

LASCIZ/DBL

TEST,2 WORD READ REV ,NOT A BASE & ADD.

(TEST

HEDS1:

.ASCIZ/DBL

TEST,3 WORD READ FWD ,BASE 4

HEDSZ:

LASCIZ/DBL

TEST,3 WORD READ REV.BASE

NOT A BASE

4 ADD.,WRITE REV

(TEST 44)/

(TEST 45)/

ADD.

(TEST 46)/

(TEST 47)/

ADD.

(TEST

51)/

4 ADD.

(TEST

5¢)/

50)/

MACY11 30A(i052)

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE P11
C7=JUN=79 13:44
7127
. 7128
7129
7130

053334

7131
7132
7133
7134
7135
713¢
7137
7138
7139

7140

7141
7142
7143

7144

7145
7146
7147
7148
7149
7150
7151
7152
7153
7154
7155
7156
7157
7158

122

050117
047511
042524
047516
021440
042524
024466

7159
7160

122

7161

7162
7163

7164
7165
7166
7167
7168
7169
7170

7171
7172
7173
7174

7175
7176

7177

7178

7179

7180
7181
718¢

047527
040505
026126
032040
020056
020124
041527
042440
052040
053442
020042
020124
041527
042440
052040
053442
020042
020124
047111
052120
046102
052123
052123
000

053706
053714
053722
053730
053735
053744
053745
053752
053760
053766
053774
054002
054010
054013
054020

051105
040516
052111
052123
052050
033465
042522
042520
047117
051505
051117
031043
052123
000
122

051108
040516
042101
020124
042524
024461
122
050117

042122
020104
040502
040440
05205C
031065

020105

051122
051505
042503
052050
031465

020105
051122
051505
042503
052050
032065
042524
042440
020105
024040
032449

040505
051105
040516
052123
046522
024461
052123
000
020110
052101
020114
020105
021440
051505
000051
042101
040522
046101
020124
040515
024051
033040

020110
052101
020114
052040
030443
052123
000
040505
051105

END OF

051040
042522
042523
042704
051505
000051
053505
051117
020124
047514
051505
000057
053517
051117
020124
044510
051505
600051

12=JuUL=79

PASS ROUTINE

G 1

10:46

PAGE

137

SEG 0136

HEDS3:

<ASCIZ/WCE EW ERROR TEST "WCELOQ'' (TEST 53)/

HEDS4:

CASCIZ/WCE OW ERROR TEST "WCEHI'' (TEST 54)/

052522
040516
042524
042524
0244€5

"HEDSS::

LASCIZ/INTERUPT

020104
052101
020114
024040
046101
024040
032440

HEDS6:

.ASCIZ/READ OPERATIONAL TEST'(NORMAL #1) (TEST 56)/

050117
047511
051127
042524
020061
020124

HEDS7:

.ASCIZ/RH OPERATJONAL WRITE.TEST #1 (TEST 57)/

047440
044524
052040
047050

HED6O0:

.ASCIZ/READ OPERATIONAL TEST (NORMAL #2)(TEST 60)/

050117
047511
042522
051505
024040
033040

HED61:

.ASCIZ/RH OPERATIONAL KEAD

020104
052101

HED6Z:

LASCIZ/READ OPERATIONAL

ENABLE

TEST

(TEST 55)/

\
5
\

020114
042524
024460

TEST #1

TEST

(TEST é1)/

(NORMAL

#3)(TEST €23/

H 1
MACY11 30A(7952)
12=JuL=79
10:46
END OF PASS ROUTINE

PAGE

042520
047117
044522
051505

HEDS3:

+ASCIZ/RH OPERATIONAL

TEST #2

. +ASCIZ/READ OPERATIONA!

MASSBUS RH70 AND
RH11_DIAGNOSTIC
( ZRHBE P11
07=JUN=79 13:44

7183

7184

7185
7186
7187
7188

054026
054034

047511
042524
047516

7189

040516
052123
046522
024463
020124
047440
044524
053440

7190
719
7192
7193
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203
7204

(52040

7205

7206

7207
7208
7209
7210
7211
7212

7213

7214

7215
7216

7217

054504

020124

138

SEQ 0137

020114
024040
046101

052050
031066

WRITE

031043
052123
000
040505
051105
040516
052123
046522
024464
020124

020104

052101
020114
024040
046101
052050
032066.

HED64:

047440
044524
051040
042524
020062
020124

042520
047117
040505
052123
052050
032466

HED65:

052111
051105
040516
052123
046522
024461
020124

020105
052101
020114
024049
046101
052050
933066

HED66:

LASCIZ/WRITE OPERATIONAL

047440
044524
053440
052040
031443
052123
00C
044522
042520
047117
051505
051117
031443
052123
000
020110
052101
020114
052040
031443

042520
047177
044522
051505
024040
033040

HED67:

+ASCIZ/RH OPERATIONAL

042524
040522
046101
020124
040575
02405
033440

HED70:

CASCIZ/WRITE

050117

HED7:

LASCIZ/RH OPERATIONAL

(TEST 53)/

024040
033040 -

047511

042522
051505
024040

TEST

(NORMAL

ASCIZ/RH OPERATIONAL READ TEST &2

#4) (TEST 64)/

(TEST 65)/

TEST

WRITE

CPERATIONAL

TEST &3 (TEST 67)/

TEST

READ

(NORMAL #1)(TEST 66)/

(NORMAL

TEST #3

#3)(TEST

(TEST

71)/

70./

MASSBUS RH70 AND @11 DIAGNOSTIC
(ZRHRE .P11
7239
7240
7261

7262

7243
7244
7245

7246

7247.

7248

7249

7250

7251

7252

725%
7254

7255
7256

7257
7258
7259

054512
054529

054523
054530
054536
054544
054552
054560
054566
054574
054577

054604
054612
(054620
054626
054634
054642
054646
054654
054662
054670
054676
054704
054712
054720
054722
054730
054736
054744
054752
054760
054766
054770
054776
055004
055012
055020
055026
055034

MACYTT

07=JUN=7S 13:44
042524

024461

127
047440
044524
052040
047050
020114
042524
(24462
AR
{51108
040516
052111
052123
052050

031467
051127
050117
047511
042524
047516

021440
051505
000051
044122
040522
046101

052123
000
044522
042520
047117
051505
051117
031443
052123
000
020110

052101
020114
020105
021440
051505
000051
052111
051105
040516
052123
046522
024464
020124

047440
044524
051040
020104
042524
021440 020064
- 020124
051505
000051
040514
043522
051124
047101
051105
052040
020124
033466
047527 042122
052050
051505
033067 000051

30A(7052)

12=JUL=79

I N

END OF PASS ROUTINE

10:46

PAGE

139

SEG 0138

033440
042524 HED72:
060522
046101
020124
040515
024051
037440

JASCIZ/WRITE OPERATIONAL

050117
047511
051127
042524

HED73:

LASCIZ/RH OPERATIONAL WRITE

020105
052101
020114
024040
046101
052050
032067

HED74:

JASCIZ/WRITE

042520
047177
040505
052123
052050
032467

HED7S:

JASUIZ/RH OPERATIONAL

READ

020105
043123
051505
020061
020123
020124

HED76:

LASCIZ/LARGE TRANSFER

TEST 671

TEST

(NORMAL

TEST #4

#3) (TEST

72)/

(TEST 73/

020064
020124

UPERATIONAL

TEST

(NORMAL #4) (TEST

TEST

(TEST

WORDS

75)/

(TEST

76)/

74)/

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

MACYT1
END OF

7278

7279
7281

7284

7285
7286
7287
7288
7289
7290
7291

7292
7293

72946
7295
7296
7297
7298
7299
7300
7301
7302
7303
7304
7305
7306
7307
7308
7309
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319

055040

055046
055054
055062
055070
055076
055100
055106

055114
055122

055130
055136
055140
055146
055154
055162
055170
055176
055204
055212
055214
055222
055230
05523¢
055244
055252
055254
055262
055270
055276
055304
055312
055320
055325
055332
055340

7320
7321
7322
7323
7324
7325
7326

055346
055354
055362
055370
055376
055404
055412

7328
7329
7330
7331
7332
7333

055426
055434
055442
055450
055452
055460

7327

J 1"

10:46

PAGE

140

SEQ 0139

RL
LR LR
R

7280

7282
7283

30A(7052)
12=JUL=79
PASS ROUTINE

055420

047503

020124
044504
020124
047111
000103
047503
020124

044504
020124

051122

044502
020104
042523
051040

051122

044502

020104
042523

EMI:

LASCIZ/CORRECT BIT DID NOT SET

IN RHWC/

041505

EM2:

<ASCIZ/CORRECT BIT DID NOT SET

IN RHBA/

020124
047516
020124
053510
020124

041110

020124
044504
020124

051122

044502
020104
042523

041505

020124
047516
020124

051122
044502
020104
042523
051040

026516
040524

046440

041040
042104
051040

:
IN BUS ADDRESS REG./

041505
020124
047516
020124
042110

EM4:

LASCIZ/CORRECT BIT DID NOT SET

IN RHDB/

054105
052116

EMS:

LASCIZ/NON=EXISTANT MEMORY DID NOT SET

EM6:

LASCII/ LOGIC

051525
042522
043505

046505

051117

047514

044507

020103
052105
041040
020116
020061
052123
051511
053440
043516

047524
051440
052040
042522
052111
044440
044122
051503
042522
044507
051105
0050
047040 , 0521
051117 ° 0445
043454
02011

041122
047111
020106
005015
051117
041124
i

024040

;
LASCIZ/CORRECT BIT DID NCT SET

044504
020104
020124- 042523
047111
051040
031123
000

047524

EMS3:

020131
047516
020124
041510
040

047516
020124

051040

047111
040440
051523
000056
047503
020124
044504
020124
047111
000102
047516
051511

.EVEN

041505

047111
000101

047503

;ERROR MESSAGES

AR AR AR R AR AR AR R AR R AN AR AR AR RN TR R RN RN RN R RPN A R AR NN AR RRN IR RN AR

TO SET

TRE BIT

IN RHCS1

IN RH(CSZ2/

LASCII/Z1S NOT WORKING,GO TO (CSRB) PfiINTS IF RH11/<155<12>

051503

020051
051524
044122

051120
044440
030461

024040
020051

051503
051120

‘
’

LASCIZ/0R

((STB)

PRINTS [F
:

RH70 IN LOCATION &7 ON BOTH PRINTS/

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

7334

7335
7336
7337

7338
7339
7340
7341
7342
7343
7344

055466

055474
055502
055510

055516
055524
055532
055540
055541
055546
055554

047111

020106
044440
040503

041040
041040
051120

7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362
7363
7364
7365

055570
055576
055604
055607
055614
055622
055630
055636
055643
055650
055656
055664
055672
055700
055704
055712
055720
055724
055732
055740

7367
7368
7369
7370

055754
055762
055770
055773

000
116
052111
020123
042522
020123
047111
031123
116
042116
047516
020124
041510
123
020124
054502
020116
050103
047522
051440
020104
042523
051124
020124
052105
051440
042101
041440
042105
127

7372
7373
7374
7375
7376
.
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388

056006
056014
056017
056024
056032

047040
052105
127
052111
047040

056043
056050
056056
056063
056070
0560765
056104
056112
056120

124
052111
051440
127
042116
040440
052105
051440
020124

056140

020104

7345

7371

7389

055562

055746

056000

056126
056132

052111

042523
050125

051524

044122
020116
044524

MACY11
END OF

30A(7052)
12=JUL=79
PASS ROUTINE

K 11

10:46
.

PAGE

141

030067
047514
047117

047117
020110
051524

046505
042040
047516

041040
042517
020124
040440
020124
041510

EM7:

LASCIZ/NEM BIT DOES NOT READ AS SET
:

040440
020103
042523
051040
000
044502
020124
052124
046440
051105

EM10:

.ASCIZ/NEM AND SC NOT SET

044504
020124

EM12:
'

.ASCIZ/ SC DID NOT SET/

044502
051440
052125

EM13:

_ASCIZ/TRE BIT
¢

042523
051040
000
046505
051440
020124
047111
030523
020103
042523
040440
051117
020105
000122
020103
047516
000124
020105
051511
041040
020103
020123
042514
000
042503

042040

052117
000
042503
042040
052117
000
042522
047040
052105
042503
052040
042522
041040
020103
047516
000124
020105

047516

044440

020067
052117
047111

042101

IN'RHCS2/

:
IN RH(CS1/

1
EM11:

’

_ASCIZ/SC BIT SET BY ATTN OR MCPE ERROR/

)

IS SET BUT SC RCADS AS CLEARED/

042522

051501
051101

041040

EM14:

:
,ASCIZ/WCE BIT DID NOT SET/

EM15:

.ASCIZ/WCE BIT DID NOT SET/

042111

051440
041040
042111
051440

041040
052117
000
040440
042522
051440
052125
044502
020124
044504

020124

)

:
EM16:

.ASCIZ/TRE BIT NOT SET/

EM17:

,ASCIZ/WCE AND TRE ARE SET BUT SC BIT NOT SET/

EM20:

,ASCIZ/UPE DID NOT SET

IN RHCS2/

SEQ 0140

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE PN
07=JUN=79 13:44

7390

7391
7392
7393

7394

7395
7396

056146
056154
056162
056163
056170
056176

7397

7398
7399
7400
7401
7402
© 7403
7404
7405
7406
7407
7408
7409
7410
7411
7412
7413
7414
7415
7416
7417
7418
7419
7420
7421
7422
7423
7424
7425
7426

7427
7428
7429
~7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
7442
7443
7444
7445

042523
051040
000

020124
041510

047111
031123

042522
051440
051524
051440
020105
041523
042040
052117
000
020103
047516

040440
020103
040440
052105
047101
041040
042111
051440

L 1N

10:46

PAGE

142

EM21:

LASCII/TRE AND SC BITS ARE SET/

EM22:

LASCIZ/UPE AND SC BIT DID NOT SET/

044502
020124

EM23:

LASCIZ/SC BIT. NOT SET/.

044504
020124
047111
031123

EM24:

.ASCIZ/NED DID NOT SET [N RH({S2/

040440
020103
042114
051440

EM25:

.ASCIZ/TRE AND SC SHOULD NOT SET/

EM26:

LASCIZ/TRE SHOULD NOT BE SET/

EM27:

LASCIZ/TRE BIT WAS NOT SET BY NED/

041040
000104
020106
044504
020124
047111
031123
043130
051440
020104
052105
044122

051440
020104
042502
000
041040
051501
051440
020131

044502
020104
042523
051040
000
041040
047510
042502
044440
051503

EM30:

LASCIZ/MXF BIT DID NOT SET

EM31:

LASCIZ/MXF BIT SHOULD BE

020106
041523
047040
052105
042522
051504
046103
026104
- 047101
041523 040440
051440 052105

047101
040440
052117
000
051040
040440
640505
054115
020104
042522
000

EM32:

LASCIZ/MXF AND SC ARE NOT SET/

EM33:

.ASCIZ/TRE READS AS CLEARED,MXF AND SC ARE SFT/

124

042116
044502
042522
050125
020104
052111
047040
052105
123
020124
042523
042516
020104
042523
051040
000

124
042115
044123
047040
052105
124
047510
047516

051440
124

052111
047040
052105
042516
054115
020124
047516
020124
041510
115

056506
056514
056522
056524
056532
056540
056546
056553
056560
056566
056574
056602
056610
056616

MACY'1 30A(7052)
12=JUL=79
END OF PASS ROUTINE

052111
046125
051440

000124
020104
047516
020124
041510

042522
051440

052517
052117
000
042522
046125
020124
052105
042522

053440
052117

IN RH(CS2/

SET

IN RH(S2/

SEC 0141

L
MACY11 3CA(7052)
12-JuL=-79
10:46
END OF PASS ROUTINE

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE PN
07=JUN=79 13:44
7446

7447
7448

7449
7450
7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464
7465

056623
056630
056636
056644

056652
056660
056666

056673
056700
056706
056714
056722
056725
056732

124

020122
047040

040505

041040
041440
052103

7466

7467
7468
7469
7470
7471
7472
7473
7474
7475
7476
7477
7478
7479
7480
7481

143

SEQ 0142

EM34:

LASCIZ/TESTER DOES NOT READ AS BEING CONNECTED/

EM35:

LASCIZ/BIT

044504
020124
047117
040440
051523

EM36:

.ASCIZ/RH DID NOT RESPOND TO ADDRESS/

052114
047040
052105
044122

042040
052117
044440
051503

EM37:.

LASCIZ/DLT DID NOT SET

020124
052117
044440
051503
020124
047101
040440
052105
020105

EM4O:

LASCII/DLT

046040
020104
052040
052101
043106

051511
051440
020116
026062
051124
020104
042522
005015
047101
041440
044040
042502
052105
047101
020122
000122
052125
054504
047040
052105
020116
053440
040517
047111
042510
020101
051105

046114
020123
047516
042101
020117

041040
044504
020124
044440
044122

051505
047504
052117
020104
044505
047117
042105
052111
044122
044527
052117
000
020110
047516
050123
047524
042522

041523
042114
020105
051440
020131
042510
047522

050124
040505
042111
051440
042510
047506

052116

PAGE

042524
051505
051040
051501
043516
042516
000
044440
051503
046114
051440

IN RHCS3 WILL NOT SET/

IS NOT SET

IN RH(CSZ2/

IN RHCS2,BUT

TRE AND SC ARE

SET/<15><12>

.ASCIZ/TRE AND SC COULD HAVE BEEN SET BY ANOTHER® ERROR/

EM4T:

.ASCIZ/0UTPUT READY DID NOT SET WHEN INFO WAS LOADED

EM42:

LASCIZ/ALL BITS DID NOT LOAD

INTO RHWC

(177777)/

INTO THE DATA BUFFER/

N1
MACY11 30A(7052)
12=JUL=79
10:46
END OF PASS ROUTINE

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

057314

041527
033467
044122
042111
046040
047101
051524
033467
047523
052111
040505
047111
020103
020122
040527
042101
052116
051503
047516

05151
046440
020131
042523
051040
024040
000
122
044504
020124
043101
046103
020123
042105
020117
000062
046101
051524
047040
040517
047524
020101
033467
114

043516
040440

044440
052105
020123
046103
051105
043520
020104
042523
051040
000
124

024040
033467
041527
047040
040517
020131
024040
033467
042515
020123
042522
051040

043101
046103
020123
042105
020117
000062
026516
040524
046505

PAGE

144

SEQ 0143

033461

000051
042040
052117
020104
044502
033461
000051
041040
046103
020104
053510
042524
020122
047514
044440
044122

EML3:

.ASCIZ/RHWC DID NOT LOAD ANY BITS (177777)/

EM4S:

LASCIZ/SOME BITS CLEARED IN RHWC AFTER CLR WA LOADED INTQ RH(S2/

EM4S:

LASCIZ/NON=EXISTANT MEMORY BIT SET

EM4E:

.ASCIZ/RHBA DID NOT CLR AFTER (LR WAS LOADED INTO RH(CS2/

EM47:

LASCIZ/ALL BITS DID NOT LOAD INTO RHBA

EMSQ:

LASCIZ/LOADING TRE AFTER ITS SET DOES NOT CLEAR ERROR/

EMS51:

-ASCIZ/PGE DID NOT SET

EMS2:

»ASCII/THE PROM WHILE ACCESSING A REGISTER/<15><12>

IN RHCS2

(NEM)/

044502

020124
041510
042516
041110

020104
046103
042524
0201¢c2
047514
044440
044122

05150C3

020114
042040
052117
020104
051040
030450
024466
040517
052040
052106
051524
042040
047516
040505
047522
020105
047516
020124
041510

044502
042111
04€040
047111
041110
033467
000
044504
042522
051105
051440
042517
020124
020122
000122
044504
020124
047111
031123

042510

050040

(177776)/

IN RH(S2/

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE .P11
7558

7559
7560
7561

7562
7563
7564
7565
7566

060010

060016
060024
060032

060040
060046
060050
060056
060064

047522

046111
042503
020107

044507
005015
044127
047531
051505

060072
060100
060106
060114
060122
060125
060132
060140
060146
060154
060156
060164
060171
060176
060204
060212
060217
060224
060231
060236
060237
060244
060252
060257
060264
060265
060272
060273
060300
060306
060314
060322
060330
060356
060344
060352

122
000
104
020105
051105
044122
047504
052117
046101
043101
020101

7604
7605

060362
060370

044122
040510

7608
7609
7610

7611
7612

7613

060376
060404

040503
051440
020131
046522
006516

106
054501
047506
051120
000124
044122
044122
122
044122

044122
044122
122
044122
122
000
122
044122
044122
122
000

042440
041040

060412
060417
060424

052105
105
041040

060446

051105

060432
060440

12=1)i =79
END OF PASS ROUTINE

07=JUN=79 13:44

7567
7568
7569
7570
7571
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602

7606
7607

MACY11 30A(7052)

052105
044122

020115

10: 46

PAGE

145

044127

020105
051523
020101

041501
047111
042522

041511
051125
0425246
047116
050125
047111
052101
01
051117
020123
044440°
051505

020110
052040
020122
052117
046120
047506
0475i1

LASCII/WHICH YOUR TESTER CANNOT SUPPLY INFORMATION/<15><12>

051440
047111
020123
047105

.ASCIZ/FOR SAYS INFO IS PRESENT/

051503

000061

052123

041527
041110
0511 15

051105

000
000101

EM53:
:
EMS4

LASCIZ/RHCS1/
.ASCIZ/RHW(C/
.ASCIZ/RHBA/
.ASCIZ/RHMRZ/

000122
000
041104

EMS5:
EMS6:
EM57:
EM60:
EM61:
EM62:
EM63:

.ASCIZ/RHST/
.ASCIZ/RHER/
.ASCIZ/RHAS/
.ASCIZ/RHTDB/

042110
051115
052104
041110

000123
000061
000
042501

EM64:
EM6S5:
EM66:
EM67:

.ASCIZ/RHDS/
LASCIZ/R'4MR1/
LASCIZ/RHDT/
.ASCI1Z/RHBAE/

041510

031523

EM70:

LASCIZ/RH(CS3/

053105
052516
044440
051115
051505
042440
040440
042524
046103

041511
041115
020116
020062
047040
052521
033440
020122
040505

EM71:

LASCIZ/DEVICE NUMBER

051503
020123

020061
047101

EM72:

LASCIZ/RH(S1 HAS AN ERROR BIT SET/<15><12>

EM73:

LASCIZ/ERROR BIT SET

[N RH(S2/

EM74:

LASCIZ/ERROR BIT

IN RHER/

051503
052123
042510
051501
052110

051122
052171

005015
051122
052111
044440
051503
047522

000062
000062
000

.ASCIZ/RHCS2/

IN RHMRZ DOES NOT EQUAL A 7AFTER A CLEAR/

051117
051440

000
051117
051440
020116
000062
020122

SET

SEQ 0144

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44
7614

7615

7616

7617
7618

7619

060454

060462

060470
060474
060502

060510

044502

020124

MACYTT
END OF

051040

051105
044502

047522
020124

020122
042523

020124

000122
047111

060516
060524

051510
044122

006524
040502

000012
044440

7623
7624
7625

060540
060546
060554

052116
052125
044504

042105
044440
020104

041040
020124
047516

7627
7628
7629

060570
060576
060604

020131
052040
040502

053117
020117
026105

051105
044122
044122

060620
060626
060631
060636
060644

052517
030064
122
042111
051440

042114
000
054504
047040
052105

036440

7626

7630

7631
7632
7633
7634
7635

7636
7637
7638
7639

060532

060562

060612

060652
060660
060666
060674

7640
7641
7642
7643
7644
7645
7646

060702
060710
060713
060720
060726
060734
060742

7648
7649

060750
060756

041516

020124

040502

042116
020104
020124
047516

051103
006524
104
040440
042524
040522
000

020105

053440
047503
044504
020124
046505
012
044517
053440
047440
044524

042040
052117
040454

054504
(047040

042040
052117

000061

052105
044122

_ASCIZ/ERROR BIT

EM76:

+ASCIZ/RHBA

EM77:

LASCII/RDY DID NOT

SET

SEQ 0145

IN RHST/<15><12>

INCREMENTED BUT

DID NOT

CARRY QVER

TO RHBAE ,RHBAE

SET,AND WORD COUNT DID NOT

INCREMENT/<15><12>

’

043516
044522
042520
047117

020117
000062
020105
051522
051105
020116
047516
045522

122
042111
051440
020116

EM75:

047105

052116
051503
052111
042526
050117
047511
020104
047527

061075
061102

051117
047125
020104
047111

052106
051114
046040
006504

7665
7666

146

044123

040440
041440
051501
042504

051101
051105
053440
040517
012
111
044122
051127
042522
020105
052101
044504
020124
000

042111
041440

PAGE

051122

041110

060764
060772
061000
061006
061014
061015
061022
061030
061036
061044
061052
061060
061066
061074

061110
061116
061124

040503

042515

122

042040
052117

7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660
7661
7662
7663

7667
7668
7669

042522

10:46

051040

7620
7621

7622

042523

047111

042510

30A(7052)
12=JuUL=79
PASS ROUTINE

042501

047040
042514

044440
051503

.ASCIZ/DOING A WRITE OPERATION/

EM100:

.ASCII/RHBAE DID NOT CLEAR AFTER CLR WAS LOADED/<15><12>

LASCIZ/INTO RH(CS2/
EM101:

,ASCIZ/WRITE REVERSF OPERATION DID NOT WORK/

EM102:

.ASCIZ/RDY DID NOT SET

IN RHCS1/

SHOULD

=40/

D 12

7705
7707

7710

RIS

ZEEEEIIKR

7670
767
7672
7673
7674
7675
7676

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRMBE P11
07=JUN=79 13:44

052504

040440

042524
040522
051040
042111
051440
047527
052517
042111
044440
042515
052125
051117
047117
040527
052111
047524
042524
052504
040440
042524
040522
051040
042111
051449
047527
052517
042111
044440
042515
042116
051117
047117
040527
020124
043123
052040
020105
051105
102

7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722

020123
042105
052111
046125
040525
000054
040502
020104
047111
047105
042522
053105

7725

052117

7723
7724

044522
053440
047440
044524
054504
047040
052105
042122
052116
047040
041516
052116

044440
040515
005015
020123
042524

052040
000122
044522
053440
047440
044524
054504
047040
052105
042122
052116
047040

041516

052116
044440
040515
005015
020123
051124
051105
020117
042524
000
242501
042515
052440
051440
020104
020114
020105
047516
051103
000124
042101
047440
044524
042111
051040

MACY11 30A(7052)
12=JuL=79
END OF PASS ROUTINE

043516
044522
042520
047117
042040
052117
005015
041440
042040
052117
042522
041054
043116
044524

EM103:

PAGE

147

SEQ 0146

.ASCII/DURING A WRITE OPERATION RDY DID NOT SET/<15><12>

LASCII/WORD COUNT DID NOT

051127
020116
051505

043516
044522
042520
047117
042040
052117
005015
041440
042040
052117
042522
040454
043116
044524

10 146

INCREMENT,BUT

INFORMATION/<15><12>

LASCIZ/WAS WRITTEN TO TESTER/

EM104:

.ASCII/DURING A WRITE OPERATION RDY DID NOT SET/<15><12>

LASCII/WORD COUNT DID NOT

047516
047101
042105
044124
052123

LASCIZ/WAS NOT

INCREMENT,AND INFORMATION/<15><12>

TRANSFERED TO THE

TESTER/

044440
051523
026120
047510
050505
030064

EM105:

.ASCIZ/BAE IS MESSED UP,IT SHOULD EQUAL 40,/

044504
020124
046505

EM106:

.ASCIZ/BAE DID NOT INCREMENT/

051040
042520
047117
047040
040505

EM107:

.ASCIZ/READ REV OPERATION DID NOT READ FROM TESTER TO STORAGE LOCATION (RBUF)/

MASSBUS RH70 ANDC RH11_DIAGNOSTIC
( ZRHBE P11

776
7727

7728
7729
7730
7731

061626

061634
061642
061650
061656

061664

07=JUN=79 13:44
020104
052040
020122
047524
046040
047511
052502

042111
051440
052106
020101
047111
047105
000012
040502
047040
041516
052116

051103
042524
020124
042111
041440
052040
101

7765

7766
7767
7768
7769
7770
7771
7772
7773
7774
7775
7776
7777
7778
7779
7781

062314

042116
044440
051503
052517
051040
053440
052117
052101
052106
051114
005015
047514
044440
044122
046101
051524
047040
040505
051440

046517
042524
051440
042507
052101
051050
000
042501
046101
052111
046125

040525
005015
020122
020105
053440
000
0462040
052117
040440

044522
101

102

7780

051106

061672
122
061677
061704
042440
061712 020123
061720 051440
061726 020104
061734 020114
061742 043101
061750 020101
061756 047527

061764
061771
061776
062004
062012

MACY1T 30A(7052)
12=JuUL=79
END OF PASS ROUTINE

042524
042040
052117
042522
000
020101
046505
020104
052111
047040
051101
006517
033061
040440
020116
000061
050124
0405C5

051501
047040
042105
051105
053440
042101

047524

EM110:

LASCII/RHBAE

E 12

10:46

PAGE

148

SEQ 0147

EQUALS 0,IT SHOULD EQUAL 40/<15><12>

LASCIZ/AFTER A ONE WORD WRITE/

EM111:

.ASCIZ/A17 DID NOT SET AFTER BA WAS INCREMENTED/<15><12>

042111
044440
042515

EM112:

LASCIZ/BA DID NOT

047111
047105
052502
042040
052117
054522

EM113:

ASCI1/BA INCREMENTED BUT IT DPID NOT CARRY 70/<15><12>

041040
020123
046505
006504

012

040440
033461
044122

052125
054504
047040
043205

INCREMENT/

LASCIZ/A16 AND A17 IN RHCS1/

EM114:

LASCIIZ0UTPUT READY WAS NOT NEGATED AFTER CLR WAS/<15><12>

0460440

041440
051501

042105
020117
000062
044502
042111
051040

047524
040522

.ASCIZ/LOADED INTO RHCSZ/

EM115:

LASCIZ/ALL BITS DID NCT READ TO STORAGE LOC.

(RBUF)

DURING A READ REV. OPERATION

MASSBUS RH70 AND RH11_DIAGNOSTIC
( ZRHBE P11

7782

7783

062322

MACY11 30A(7052)
12=JuUL=79
END OF PASS ROUTINE

07=JUN=79 13:44
042507
020056

F 12

10:46

149

SEQ 0148

046040
051050
042040
020107
042101
020056
052101

041517
052502
051125
020101
051040
050117
047511

042520
047040
052105
044122

042042
052117
044440
051503

EM11é:

LASCIZ/MDPE DIP NOT SET

047506
047040
044522
020117
051105
043516

042040
052117
042524
042524
042040
040440

EM117:

LASCII/INFO DID NOT WRITE

052111
042526
050117
047511
020105
041523
04252
051440
020131
000
042522
042523
051040
046454
047101
000
047510
046101
020105

020105
051522
051105
000116
047101
053440

046125
047523
042523

042520
051440
052517
020105

040440
020103
042114
042523

EM122:

LASCIZ/MDPE AND SC

047101
040440
052105

EM123:

.ASCIZ/TRE AND SC ARE

042040
052117
040440

EMI24:

LASCII/DBL DID NOT

LASCIZ/WRITE

PAGE

IN RH(SZ/

TO TESTER DOING A/<15><12>

REVERSE OPERATION/

EM120:

+ASCIZ/TRE AND SC WHERE NOT

EM127:

LASCIZ/TRE

SET BY MDPE/

047040
052105
042115
044440
020124
041510
050104
020104

IS SET

IN RHCS1,MDPE AND S~/

LASCIZ/SHOULD ALSO BE SET/

SHOULD BE

SET/

SET, PGE SHOULD ALSO BE

SET/

020105
042114
020117
052105

7837

051440

SET AFTER A 4 WORD WRITE FROM/<15><12.

MASSBUS RM70 AND RH11 DIAGNOSTIC
CZRHBE PN
7838

7839

07=JUN=79 13:44

063000

7840
7841
7842

7843
7844

7845

7847

7848

7849

7850

7851

7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862

7863
7864

7881
7882
7883
7884
7885
7886
7887
7888
7889
7890
7891
7892
7893

052106
032040
020104
020105
005015
047101

020116
051505
041104
020124
041510
044517
030440
020104
020105
005015
047101
020116
051505
041104
020124
041510
020116
047527
044522
047522
101
047105
042522

7846

7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
7880

MACYTT 30A(7052)
12=JUL=79
END OF PASS ROUTINE

104

042111
051440
020116
020063
020122
047527
051106
020116
040440
051523
115
042523

063356
063364
063372
063400
063406
063407
063414
063422
063430
063436
063441
06 3446
063454

51040
041040
020103
020123

020117
041510

G 12

10:46

PAGE

150

051105
053440
051127
051106

042440
042101
000123
020114
047111
031523
043516
053440
051127
051106
042440
042101
000123
020114
047111
031523
020101
042122
042524
006515
020116
040440
051523
046102
047040
052105
044122
043101
020101
042122
046517
953105
042104
000

LASCIZ/AN EVEN ADDRESS/

042523
051040
042040
040440

EM125:

LASCII/DBL SET IN RHCS3 DOING A 1 WORD WRITE FROM/<15>¢12>

051117

052111

046517

042526
051104

042523
051040
047440
020063
053440
043040

LASCIZ/AN EVEN ADDRESS/
EM126:

012

053105

042104
000
042040
052117
044440
051503
042524
020062
005015
040440
047105
042522

LASCII/DBL

SET

IN RH(S3 ON A 3 WORD WRITE FROM/<15><12>

.ASCIZ/AN EVEN ADDRESS/

EM127:

LASCII/DBL DID NOT SET

IN RH({S3 AFTER A 2 WORD/<15><12>

LASCIZ/FROM AN EVEN ADDRESS/

050103

020105
047111
030523
051440
042101
041440
042105

EM130:

LASCIZ/MCPE

SET

050103
020104
042523
051040
000
042503
047111
031523

020105
047516
020124
041510

EM131:

JASCIZ/MCPE

DID NOT SET

046040
051040
042040

EM132:

LASCIZ/WCE
LO IN.RHCS3 DID NOT SET/°

020124
041510
052125
042522
051501
051101

IN RHCS1

BUT

SC READS AS CLEARED/

IN RH(S1/

SEG 0149

H 12

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

7894
7895
7896

7897
7898

7899

7900

7901
7902
7903
7904
7905

7906
7907
7908
7509

7910
7911
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921

063462
063470
063475
063502
063510
063516
063524
063532
063540
063545
063552
063560
063566
063574
063576
063604
063612

042711
051440
127
020117
042114

020131
052105
044122
052502

127
020111
051040
040440
000124
041527
051440
020116
020063
041527
020104
042523
051040

7922

7923
7924
7925
7926
7927
7628
7929
7930
7931

047040
052105
042503
044123
047440
042502

044440
051503
00€524

042503
046101
040505
020123

MACY11 30A(7052)
12=JUL=79
END OF PASS ROUTINE

052117
000
046040
052517

EM1233:

10:46

_ASCII/WCE LO SHOULD ONLY BE

PAGE

151

SEG 0150

SET IN RH(S3 BUT/<15><12>

046116

051440
020116
020063
212

ASCIZ/WCE HI ALSO READS
AS SET/

044040

047523
051504
042523

020105
C52105
044122
052502
020105

047514
044440
051503
020124
044504
020124
047111
031123

EM134:

042503
044504
020124
047111
031523
042503
042523
051040
041040
242503
C47040

044040
020104
042523
051040
000
044040
020124
041510
52125

EM135:

LASCIZ/WCE HI DID NOT LET IN RH(S3/

EM136:

LASCIZ/wWCE HiI

EM137:

.ASCII/WCE HI SHOULD ONLY BE SET IN RHCS3 BUT/<15><12>

047516
020124
041510

7932
7933
7934
7935

.ASCIZ/WCE LO SET

IN RH(S3 BUT WCE DID NOT SET

IN RH(S2/

;

SET

IN RHCS3 BUT WCE DID NOT SET

IN RH(S2/

7936
7937

7938

LASCIZ/WCE

7939

7940

7941
7942

051440

7943
7944
7945
7946

7947
7948
7949

044522
042520
047117
047040

042515
051117

041516
052116
020104

LO ALSO READS AS SET/

EMI4C:

LASCIZ/WRITE OPERATION DID NOT

INCREMENT WORD COUNT/

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRMBE P11
07=JUN=79 13:44
-

7950

7951
7952
7953
7954
7955

064146
064152
064160
064166
064174

7956

7957
7958
7959

7960
7961
7962
7963
7964
7965
7966
7967
7968

7969
7970
7971
7972

047125
052702
051104
044504
020124
046505
043101
020101
000105
047111
052101
044504
020124
051127
020116
051505
042522
042520
047117
047040

041516

052116
020104
000124
052502

7973
7974

7975
7976
7977

051104

044504
020124
046505
043101
020101
005015
050117
047511
047111
052101
044504
020124
043040
042524

MACYTT 30A(1052)
12=JuL=79
END OF PASS ROUTINE

000124
020123
051505
020104
047111

042522

10:

PAGE 152

EMi&1:

ASCIZ/BUS ADDRESS DID NOT

INCREMENT AFTER A WRITE/

EM142:

.ASCIZ/INFORMATION DID NOT GET WRITTEN TO TESTER/

EM143:

_ASCIZ/READ OPERATION DID NOT INCREMENT WORD COUNT/

EM144:

,ASCII/BUS ADDRESS DID NOT

047105
042524
051127

047506
047511
020104
042507
052111
047524
042524
042101
040522
042040
052117
042522
053440
047503

046522
020116
047516
020124
042524
052040
000122
047440
044524
042111
044440
042515
051117
047125

020123

042101
020123
047516
051103
020124
020122
042101

051105
000116
047506
047511
020104
042522
047522
052123

052101

051505
020104
047111
047105
042524
042522

044510
052040

064632

112

047117
020123
042510
042522
051105
020114
042040
052117
052040
042506
052504
040440
042101

.ASCIZ/0PERATION/

EM145:

.ASCIZ/INFORMATION DID NOT READ FROM TESTER/

EM146:

.ASCIZ/THIS IS THE CONTENTS OF

EM147:

ASCII/ALL BITS DID NOT GET TRANSFERED DURING A/<15><12>
\

047440

INCREMENT AFTER A READ/<15><12>

LASCIZ/READ

OPERAT [ON/

THE RH REGISTERS/

SEG 0151

MASSBUS RH70 AND RH11 DIAGNOSTIC
8006
8007
8008
8009
8010
8011
8012
8013
8014
8015

064640

07=JUN=79 13:44
042520
047117
122

050117
047511
020104
042523
020117
047054
047111
052101
040527
047101
042105
052123
020105
051050
000
101

053440
052040
052123
106

052105
020101
042122
051516
044527
044501
042523
051040
000
065246
065254
065262
065270
065276
065304
065312
065320

104

040522
000

040505

051105
020116
047516
046505
047527
020117
047506
047511
020723
043123
052040
051117
047514
052502
046114

020123
020105
051124
051105
020117
051105
044522
053440
047440
044524
044522
042520
047117
047040

044522
020117
051105

046102

047440
020062
052040
042506
044124
005015
020124
(41510
(46102

052105
04440
044122, 05:1503
047117 ~ 040440
053440 051117
042522 042101
047522 006515
047101
042440
020116 042101

30AC71052)
12=JUL=79
PASS ROUTINE

J 12

10:46

PAGE

153

SEQ@ 0152

064524
020104

052101
044504
020124
052040
045522
005015
046522
020116
051124
051105

EMI150:

<ASCII/READ OPERATION DID -NOT

SEEM TO WORK ,NQ /<15><12>

LASCIZ/INFORMATION WAS TRANSFERED TO STORAGE LOC.(RBUF)/

020117

043501
027103
024506

041040
044127
047516
047101
042105
042524
005015
043516
044522
042520
047117

EM151:

042524
040522
042040
052117
042524
042524
000
051440
020116
047527
040522
020122
041040

EMIL2:

LASCIZ/WRITE OPERATION DID NOT WRITE TO fESTER/

EM153:

LASCII/DBL

TRANSFERED TC TESTER/<15><12>

LASCIZ/DURING A WRITE OPERATION/

047111
031123

051440
020116
020063
030440
020104
043040
000012
042526
051104

LASCII/ZALL BITS WHERE NOT

SET ON A 2 WORD TRANSFER WITH BA[/<15><12>

LASCIZ/SET
IN RH(CS2/

EM154:;

LASCIZ/DBL

SET

IN RH(S3 ON A 1

LASCIZ/AN EVEN ADDRESS/

WORD READ FROM/<15><12.

(ZRHBE .P11

MACYTT
END OF

K 12

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

8062 065326
8063 065332
8064
065340
8065
065346
8066 065354
8067 065362
8068 065370
8069 065376
8070 065404
8071
065407
8072
065414
8073 065420
8074
065426
8075
065434
8076 A 065442
8077 065450
8078 065456
8079 065464
8080 065465
8081
065472

051505
041104
020124
031040,
020104
020105
053440
040502
006524
111
051503
041104
0201246
031040
020104
043123
044522
012
106
047101

000123
020114
047117
053440
051127
042522
052111
020111
012
020116
000062
020114
047117
053440
051126
051105
042524

8082
. 8083
8084
8085
8086

065500
065506
065511
065516
065524

8089
8090
8091
8092
8093
8094
8095
8096
8097
8098
8099
8100
8101
8102
8103

065546
065554
065562
065570
065575
065602
065605
065612
065620
065626
065634
065642
065650
065656
065664

044522
053105
020115
042526
101
051523
106
052105
020101
042122
042524
051105
051106
020116
042101

047522
047440
042104
000
046102
047040
052105
020101
042122
042524
043056
047107
006516
042104
000
046102
047440
020062
053440
051040
042523
046517
042117
051104

8105
8106
8107

065674
065702
065710
065716
065724
065732
065737

041104
020124
031440
020104
020105
051522
106

020114
047117
053440
051127
042522
006505
047522

065752

040440

047440
042888

065763
065770
065776

104
042111
051440

046102
047040
052105

——3

~
~N

—

020116
047527

065532
065540

N
&H

NOWVMEBWN—=O
V00

b
d
b
e
)
=D ed e
—d

B et
TM 1= ]

Oc 0o 00 0o 0o 0o 0o 0o 0o 0o

8087
8088

040440
051523
104
042111
051440

MACY11, 30A(7052)
12=JuUL=79
END OF PASS ROUTINE

042523
040440
051117
052111
027126
020110
042523

.
EM155:

044122

042523
040440
051117
047101
053450
006451

EM156:

LASCII/DBL

10:46

PAGE

154

SET ON A 2 WORD WRITE REV. WITH BA] SET/<15><12>

LASCIZ/IN RH(S2/
:
,ASCII/DBL SET ON A 2 WORD TRANSFER(WRITE)/<15><12>
;

020115
042104
042522

.ASCIZ/FROM AN ODD ADDRESS/
;

042040 EM157:
052117
047440
020062
053440
051040
047522
042440
0i¢
042522
Tl
051440
EM160:
02011
047527
044522
053105
005015
040440
020104
051505

_ASCII/DBL DID NOT SET ON A 2 WORD WRITE REV.FROM AN EVEN/<15><12>

042523
040440
051117
052111
042526
012
020115

EM161:

042104
042522

042040
052117
047440

EMI62:

.ASCIZ/ADDRESS/

.ASCII/DBL SET ON A 2 WORD WRITE REVERSE/<15><12>

.
.ASCIZ/FROM AN ODD ADDRESS/

LASCII/DBL SET ON A 3 WORD WRITE REVERSE/<15><12>

.ASCIZ/FROM'AN ODD ADDRESS/

LASCII/DBL DID NOT SET ON A 2 WORD READ FROM AN/<15><12>

SEQ@ 0153

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

8118
8119
8120
8121
812
8123
8124
8125
8126
8127
8128
8129
8130
8131
8132
8133
8134
8135
8136
8137
8138
8139
8140

020116
047527

8141
8142
8143
8144
8145
8146
8147
8148
8149
8150
8151
8152
8153

020062
051040
051106
00651€

042526
051104

020116

020114
047117
053440
042522
047522

042523
040440
051117
042101
006515

020116
042101
000123
020114
047117
053440
042522
053105
005015
046517
053105
042104
000
046102
047040
052105
020101
042122
020104

042717
051104

047522
047440
042104
000
046102
0474640
020063
051040
051106

8164
8165
8166

8167
8168
8169
8170
8171
8172
8173

020101
042122
020104
047440

051522

8154
8155
8156
8157
8158
8159
8160
8161
8162
8163

066446

MACY11 30A(7052)
12=JuL=79
END OF PASS ROUTINE

042440
042101
000123
020114
047516
020124
031440
020104
051040
042523
046517

040440
051117
042101
051105

EM163:

EM164:

L.ASCII/DBL SET ON A 2 WORD READ REVERSE/<15><12>

LASCIZ/FROM AN EVEN ADDRESS/
EM165:

.ASCII/DBL DID NOT SET ON A 2 WORD READ REVERSE/<15><12>

.ASCIZ/FROM AN ODD ADDRESS/

EM166:

042526
051104

044504
020124
047117
053440
042522
053105
005015
040440

.ASCIi/DBL SET ON A 2 WORD READ FROM/<15><12>

20115
042104
042522

051440
020116
047527
040505
046517

155

.ASCI1Z/AN ODD ADDRESS/

040440
247105
042522
042040
052117
047440
020062
051040
042522
006505

PAGE

.ASCIZ/EVEN ADDRESS/

051505

042523

L 12
10 :46

.ASGJI/DBL

SET ON A 3 WORD READ FROM/<15><12>

.ASCIZ/AN EVEN ADDRESS/

EM167:

.ASCII/DBL DID NOT SET ON A 3 WORD READ REVERSE/<15><12>

LASCIZ/FROM AN EVEN ADDRESS/

SEQ 0154

Mm12
10:46
MACY11 30A(7052)
12=JuUL=-79
END OF PASS RQUTINE

MASSBUS RH7C AND RH11_DIAGNOSTIC

(ZRHBE .P11

8174
8175
8176
8177
8178
8179
8180
3181
8182
8183
8184
8185
8186
8187
8188
8189

066454
066462
066470
066473
066500
066506

07=JUN=79 13:44
020116

053105
042104
000
042522
051504
042523
020105
041523
046125
051440
020103
042114
042523
020131
041510
042111
041440
040440
042524
020124
044440
000124
053440
047516
020124
041510
020105
047101
020116
020107
042510
000
041510
051501
051105
044502
000124
020124
051124
020105
041523
046125
051440

067106
067114
067122
067125

041111
046054
020105
043040
053510
020124
047111
050117
000
04111

PAGE

156

SEQ 0155

047105
042522

051040
040440
020124
047101
051440
020104
052105

EM171:

044123
041040
000124
047111
030523
047040
052501
020116
051122
044527
020105

EM172:

.ASC1Z/5C SHOULD BE

EM173:

.ASCIZ/RDY

046111
020124
047111
030523

EM174:

LASCIZ/IE WILL

040510
047440
047507
047524
041040

EM175:

LASCIZ/1E HAS AN OPEN GOING TO THE BUS/

031523
040440
047522

EM176:

.ASCIZ/RHCS3 HAS AN ERROR BIT SET/

047101
020105
042523
051440
020104
052105

EM177:

.ASCIZ/DLT AND TRE ARE

052131
041117
040507
051117
020103
047527
020107
051105

EM200:

LASCIZ/HIBYTE

,LOBYTE GATE FOR RHWC NOT WORKING PROPERLY/

052131

EM201:

LASCIZ/HIBYTE

,LOBYTE GATE

LASCIZ/TRE READS AS SET PGE AND SC SHOULD BE SET/

SET/

IN RHCS1 DID NOT CAUSE AN INTERRUPT WITH IE SET/

NOT SET

IN RH(CS1/

020124

SET,SC

SHOULD BE

SET/

FOR RHDB NOT WORKING PROPERLY/

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

067132
067140
067146
067154
067162
067170
067176
067204
067207

020105
052131

054514

110

020105

052131
042524
051040
047516
045522
051120
054514

124
051525
042522
020123
051122
052111
046125
030440
000
124
020122
041040
020122
047040
047117
052040
051117
044440
044122
047040
052116
020124
040440
020061
042505
042511
042523
044122
047510
042502
000117

067546
067554
067562
067570
067576
067602
067610

051124
051105
042040
047117
020124
041520
020040

046054
020105
043040
042110
020124
047111
050117
000
041111
046054
020105
043040
041110
020124
047111
050117
000
042510
040440
051523
047111
041505
051440
0201C4
030065

051505
040504
043125
047504
052117
040524
042510
042522
043116
042040
052117
051105
047514
020124
047524
044440
044440
000124
041527
046125
055040
047101
053440
047117
050040
000102
020040
042524

MACY11 30A(7052)
12=JuUL=79
END OF PASS ROUTINE

N 12

10:46

PAGE

157

SEQ 0156

041117
040507
051117
020102

047527
020107
051105
052131
041117
040507
051117
020101
047527
020107
051105

EM202:

LASCIZ/HIBYTE

041040
042104
044440
047503
020124
047510
042502
030060

EM203:

.ASCIZ/THE BUS ADDRESS IS INCORRECT

042524
040524
042506
051505
041440
047111
041440
052103
000117
042111
044440
050125
045517
051503
051440
020106
020123

:
EM204

LASCIZ/TESTER DATA BUFFER DOES NOT CONTAIN THE CORRECT

EM205:

.ASCIZ/RH DID NOT

EM206:

.ASCIZ/RHWC SHOULD BE ZERO/

EM207:

ASCIZ/TRANSFER WAS DONE ON PORT B/

DH1:

LASCII/PC

051440
020104
051105

,LOBYTE GATE FOR RHBA NOT WORKING PROPERLY/

IT SHOULD BE

INTERUPT LOOK AT (S1

TEST

RHW(

TO SEE

15000/

INFO/

IS SET/

CONTENTS RHW(C/<15><12>

p—

B 13

MASSBUS RH70 AND RHi11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

8286

8287
8288
8289
8290
8291
8292
8293
829
8295
829
8297
8298

067616
067624
067632
067640
067646
067651
067656
067664
067672
067700
067706
067714
067722

067730
067736

020040
041527
047503
051524
006503
040
020040
020040
020040
051440
020104
041040
041520
020040
020040
040502
047503
051524
042501
020040
020040
020040
020040
044123
044040
042502
120

020040
020124
041110

070310

020040
020040
052116
051040
012
020040
047040
020040
020040
047510
040510
042505
020040
042524
020040
020105
052116
051040
005015
020040
047516
0209040
020040
052517
053101
047105
020103
052040
020040
020101
047117
020123
005015
020040
047516
020040
020040
052517
053101
047105
020103
052040
020040
020102
047117
020123
005015
020049
047516
020040
020040
052517
053101
047105
020103
052040

MACY11 30A(7052)
12=JUL=79
END OF PASS ROUTINE

10:46

PAGE 158

044122
020040
047105
053510
020040
027117
020040
020040
046125
042526
000116
020040
052123
044122
020040
047105

SHOULD HAVE BEEN/

LASCII/PC

CONTENTS RHBAE/<15><12>

041110

020040
020056
020040
020040
042114
020105
000
020040
051505
051040
020040
042524
044122
020040
020056
020040
020040
042114
020105
000
020040
051505
051040
020040
042524
044122

020040
020056
020040
020040
042114
020105
000
020040
051505

SHOULD HAVE BEEN/

LASCII/ZPC

CONTENTS RHBA/<15><12>

SHO''LD HAVE BEEN/

JASCII/PC

CONTENTS RHDBR/<15><12>

SHOULD HAVE BEEN/

- LASCII/PC

TRE

AND S(/<15><12>

SEQ 0157

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

B342
8343
8344
8345
8346
8347
8348
8349
8350
8351

070316
070324
070332
070340
070346
070347
070354
070362
070370
070376

070760

020124
041510
052040
042116
012
040
020040
020040

020040
031123
042522
051440

MACYT1 30A(7052)
12=JUL=79
END OF PASS ROUT INE

c 13

10:46

PAGE

SEQ 0158

051040
020040
040440
006503

020040 020040
047040 027117
020040 020040
020040 020040
020040 041040
000123
020040 020040
042524 052123
020040 047503
047105
051524
006506
012
020040 - 020040
047040 027117
020040 020040
044122
051503

DH11:

LASCIZ/

NO.

LASCII/PC

TEST

LASCIZ/

NO.

LASCII/PC

TEST

DEVICE/<15><12>

ASCIZ/

NO.

CODE/

LASCIZ/PC/
LASCII/ZPC

TEST

FAILING/<15><12>

LASCIZ/

No.

ADDRESS/

BITS/

CONTENTS 0F/<15><12>

RH(CS2/

020040
042524
020040
042503
020040
047516
020040
000
000103
020040
042524
020040
047111

020040
052123
040506
006507

020040
047040
020040
042522

020040
027117
040440
051523

020103
052040
052516
000
020103
052040
020040
042522
040504
051040
012

020040
051505
041115

DH41:

LASCIZ/PC

TEST NUMBER/

020040
051505
040440
051523
040524
040510

DH52:

LASCII/PC

TEST

ADDRESS

JASCIZ/

NO.

CONTENTS/

020040
047040
020040
042524

159

020040
052123
042504
005015
020040
020056
047503

020040
027117
041440
052116

DH34:

DH35:
DH36:

DATA

RHAS/<15><12>

MASSBUS RH70 AND RH11_DIAGNOSTIC
C7RHBE .P11
07=JUN=79 13:44

8398
8399

070762
070770

041520

070776

071076
071104
071112
071120
071126
071130
071136
071144
071152
071160
071166
071174
071202
071210
071216
071224
071232
071233
071240
071246
071254
071262
071270
071276
071300
071306
071314
071322
071330
071336
071344
071352
071360
071364
071372
071400
071406
071414
071422
071430
071436
071442
071450

020040
042524
020040
042503
020040
047516
020040
051105
020103
052040
020040
042524
043117
020040
047516
020040
051511
020040

051505
020056
042501

041110
020040
051505
020056
020105
040502
044122

020103
042524

027117
030523
041110
051040

052040
047516
040502
044122
020040
020062
051503
041520
052040

020040
051505
020056
020061
051503
020040
051505
020056
000061
020040
051505
020056
020105
040502
044122
020040
000063
020040
051505

MACY11 30A(7052)
12=JUL=79
END OF PASS ROUTINE

020040
052123

DH71:

D13

10 :46

PAGE

160

SEG 0159

LASCII/PC

TEST

DEVICE/<15><12>

JASCIZ/

NO.

NUMBER/

LASCII/PC

TEST

CONTENTS OF /<15><12>

ASCIZ/

NO.

DH76:

LASCIZ/PC

TEST

RHBAE

DH105:

.ASCIZ/PC

TEST

RHBAE

RHBA

RHW(C/

020040
052123
051040
020040
020101
053510

DH111:

LASCIZ/PC

TEST

RHCS1

RHBA

RHW(C/

020040
020124
044122
020040
000062
020040
020124
044122

DH121:

LASCIZ/PC

TEST NO.

RHCS1

RHCSZ2/

DH130:

LASCIZ/PC

TEST NO.

RHCS1/

020040
020124
044122
020040
020040
051503
044122

DH132:

LASC1Z/PC

TEST NO.

RHBAE

RHBA

020040
020124

DH142:

LASCIZ2/PC

TEST NO.

EVENAD

RHTDR/

DH72:

042524
020040
020124
051040
020040
000101
020040
020124
044122
020040
020040
041527

RHBA/

RHCS2

RHCS3/

E 13

MASSBUS RH70 AND RHi11_DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

071456 047516
071464
047105
071472 044122
071500 041520
071506 052040
071514 047516
071522 051503
071530 044122
071536 020040
071544
071545
071552 071560
071566
071574

071602
071603
071610
071616
071624
071631
071636
071644

071652

071657
071664
071672
071700
071706
071714
071716
071724
071732
071740
071746
071750
071756
071762
071770
071774

072032
072040
072042
072050
072052
072056
072064
072066
072074
072102

001162

12=JUL=79
MACY11 30A(7052)
END OF PASS ROUTINE
.

10:46

PAGE

161

SEQ 0160

044122

053105
020040
000102
020040
020124
044122
0200490
020062
041527

020103
042524
027117
020106
052110

020040
052123
051040
020040
041104

DH147:

JASCIZ/PC

TEST NO.

RBUF

041110
0510490
020040
031523
020103
042524
027117
031523
020103
052040
020040
041511
041510

042501
041110
051040
000
020040
052123
051040
000
020040
051505
042040
020105
031123

DH170:

LASCIZ/RHBAE

RHBA

RH(S3/

DH171:

ASCIZ/PC

TEST NO. RHCS3/

DH172:

ASCI1/PC

TEST

DEVICE

RHCS2/<155<12>

020040
047516
020040
051105

020040
020056
052516
020040

ASC1Z/

NO.

NUMBE-

003454
000000
003454
000000
003454
000000
003454
000000
003454
000000
003454

003444

PT1:

.WORD

$ERRPC,TSTNM,WC,$REGO,0

003416

DT2:

.WORD

$ERRPC,TSTNM,BAE,$REGO,0

003414

DT3:

.WORD

$ERRPC,TSTNM,BA,S$REGO,0

003426

DT4:

.WORD

$ERRPC,TSTNM,DB,$REGO,0

003422

DTS:

.WORD

SERRPC,TSTNM,(S2,$REGO.0

003422

DT11:

.WORD

SERRPC,TSTNM,(S2,0

003454

003434

DT34:

.WORD

$ERRPC,TSTNM,DT,0

000000
003454

003330

DT35:

.WORD
.WORD

SERRP(,0
SERRP(,TSTNM,RHCST,0

003454
003454
003412

000000
003416
000000

020056
042101
042124
020040

DH146:

LASCIZ/PC

TEST NO. RHCST

RH(S2

RHTDB/

.EVE

.WORD
"WORD

SERRPC,TSTAM,0
SERRPC . TSTNM.BAE ,$REGO,AS, 0

RHW(/

MASSBUS RH70 AND RH11_DIAGNOCSTIC
(ZRHBE .P11
07=JUN--79 13:44

8510
8511
8512
8513
8514
8515
8516
8517
8518
8519

8520
8521
8522
8523
8524
8525
8526
8527
8528
8529
8530

072110
072116
072120
072126
072132
072140
072146
072154
072162
072170
072174
072202
072204
072212
072220
072222
072230
072234
072242
072250
072256
072262
072270
072272
072300
07230¢
072310
072314
072317
072320
072323
072324
072327
072330
072333
072334
072337
072340
072343
072346
072347
072352
072354
672357
072361
072364
072367
072370
072373
072375
072400
072403
072406
072411

001116
000000
001116
003414
001116
003414
001116

003414
001116
003422
001116
000000

001116

003414

000000
881116
1162

001116
003422
001116
001162
003416
000000
001116
000000
001116
003422

MACY11
END OF

12=JUL=79
30A(7052)
PASS ROUTINE

F13

10:46

PAGE

162

003454

004100

DT71:

.WORD

$ERRPC, TSTNM,RBUF ,0

003454
000000
003454
003444

003476

DT76:

.WORD

$ERPPC, TSTNM,BAE ,BA,Q

003416
000000
003420
000000
003420

DT105:

.WGRD

$ERRPC, TSTNM,BAE ,BA,WC(,0

DT111:

.WORD

$ERRPC,TSTNM,(S1,BA,W(C,0

DT121:

.WORD

$ERRPC,TSTNM,(S1,0S2.,0

003420

DT130:

.WORD

$ERRPC,TSTNM,(S1,0

003454
003422

003416
003424

DT132:

.WORD

$ERRP(, TSTNM,BAE ,BA,(S2,(S3.0

003454
000000
003454
003444
003454
000000
003414

004000

DT142:

.WORD

SERRPC.fSTNM.EVENAD.$REG0.0

003420
000000
004100

DT146:

.WCRD

$ERRP(C,TSTNM,(S1,(S2,wC,0

DT147:

.WORD

$ERRPC, TSTNM,RBUF , $REGU,0

003424

DT170:

.WORD

BAE ,BA,(S3.,0

003454

003424

DT171 : .WORD

$ERRPC,TSTNM,(S3,0

003454
000000

004100

DT172:

.WORD

$ERRPC, TSTNM,RBUF ,(S2.0

000

.EVE
DF1:

.BYTE

0.0.0.0

000

DF2:

.BYTE

0.0.0.0

000

DF3:

BYTE

0.0.0.0

000

DF&:

BYTE

0.0.0.0

000

DFS:

.BYTE

0.0.0.0

000
000

DF11:
DF34:
DF 35:
DF 36:
DF41:
DFS2:

.BYTE
-BYTE
.BYTE
BYTE
.BYTE
.BYTE

DF71:
DF76:

.BYTE
BYTE

DF105:

.BYTE

DF132:

BYTE

DF170:
DF172:

.BYTE
BYTE

003454
003444
003454
000000
003454

000
000

.EVEN

.0.0

SEQ 0161

MASSBUS RH70 AND RH11 DIA%NUSTIC
(ZRHBE .P11
C7-aw- 9

8566
8567
8568
8569
8570
8571
8572

BEERBBEER

072412
072414
072416
072420
072422
072424
P573
072426
8574
072430
8575
072432
8576 07243
8577 072436
8578 072440
8579 072442
8580
072644
8581
072446
8582
072450
8583 072452
8584
072454
€585
072456
8586
072460
8587 072462
8588. 072464
8589 072466
8590
072470
8591
072472
8592
072474
8593 072476
8594
072500
8595 072502
8596
072504
8597 072506
8598
072510
8599 072512
8600 072514
072516
072520
072522
072524
072526
072530
072532
072534
072536
072540
8611
072542
072544
072546
072550
072552
072554
072556
072560
072562
072564
072566

G 13

MACYTT 30A(7052)
12=JUL=79- 10:46
END OF PASS ROUTINE

PAGE

163

- .Q"Q.."t'.'.'...."‘.."'Q'..".'..'.t..t..fl'."‘......'.".'D

000000
050342
050402
050427
050466
050525
050556
050610
050641
050705
050736
050766
051017
051047
051077
051137
051177
051241
051303
051346
051422
051464
051526
051570
051632
051674
051741
052021
052076
052153
052231
052305

052377
052464
052530
052601
052657
052746
053011
053076

052155
053242
053321
053400
053444
053510
053547

053623
053672
053745
054013
054066
054135
054210
054256

HEADER:

HED1

HED?

HED3
HED4

HEDS
HED6
HED7
HED10
HED11

HED12

HED13

HED14
HED15

HED16

HED17

HED20
HEDZ21
HED22

HED23
HED24
HEDZ2S

HEDZ26
HEDZ27
HED 30
HED 31

HED 3?2

HED33

HED 34

HED35
HED 36
HED37
HED4O

HED41
HED&?2
HED43
HED44

HED4S
HED&46

HED4G7

HEDSO
HEDS1
HEDSZ2
HEDSS
HEDS4

HEDSS

HEDS6

HEDS7

HED6D
HED61

HEDE?2
HED63

HED64
HED65S

HED66

SEG 0162

MASSBUS RH70 AND RM11
(ZRMBE .P1

8622
8623
8624
8625
8626

072570

072572
072574
072576
072600
8627
072602
8628
072604
862G 072606

DIAGNOSTIC

07=JUN=7G 13:44

054332
054401
054455
054523
054577
054646
054722
054770

MACY11 30A(3052)
12=uL=79
END OF PASS ROUTINF
HEDE7
HED70
HED71

HED7?2

HED73

HED74
HED7S

HED 7€

H13

10: 46

PAGE

164
SEC

163

MASSBUS RH?0 AND RH11 DIAGNOSTIC
(ZRHBE.P11
(7=JUN=7S 13:44

gbgg

8232

B33
8634

8635
8636
8637
8638
8639
8640
8641

8646

072610
072610

032777

072616

001111

072622
072626
072634
(072640
072644
072646
072650
072654
072656
072656
072664
072666
072674

8664
8665
8666
7
8668
8669
8670

072702
072704
072712
072714
072722
072724
072732

001421
123737
101015
032777
001404
013737
000443

072740
072744

005037
000415

8671

8672
8673

8674

8675

8676
8677
8678
8679
8680
8681

8682
8683
8684
8685

072620

072676

072734

072746
072754

072756
072762
072764
072770
072776
073000

073006
073014
073020
073024

:
040000

106322

000416
013746
012737
005737
012637
000463
022626
012637
000423

000004
072646 - 000004
177060
000004

032777
001404
127737
001462

000400

106254

106246

001102

105737

000004

001103
001115

001103

001000

106216

001110

001106

004000

005737
001406
005237
023737
002021
012737

001100

013737
105237
011637
011637

001104
001212
000001
073056
001102
001106
001110

$5COPE:
1%:
BIT

BNE

SEQ 0164

106164

TSTB

7%:

,
#B1T14,ASWR

$OVER

3$:

1%:

$SVLAD:

$ERFLG

BEQ
CMPS
BHI
BIT
BEQ
MOV
BR

#1709, ASWR
4$
SLPERR,SLPADR
$OVER
,

CLR
BR

$TIMES
1$

CLRB

001104
001104
001212

::SCOPE=10T

;:LOOP ON PRESENT TEST?

TYES IF SW14=1

;#4#n#START OF CODE FOR THE XOR TESTERAAMAA
$XTSTR: BR
6%
;:1F RUNNING ON THE 'XOR'* TESTER CHANGE
\
$:THIS INSTRUCTION TO A 'NOP'* (NOP=240)
:
MOV
SERRVEC,=(SP)
::SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
#S$,QMERRVEC
;:SET FOR TIMEQUT
TST
aw177060
*:TIME OUT ON XOR?
MOV
(SP)+ ,@#ERRVEC
::RESTORE THE ERROR VECTOR
BR
$SVLAD
:1GO TO THE NEXT TEST
5%
CMP
(SP3+,(SP)+
*ICLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+.@#ERRVEC
- :RESTORE THE ERROR VECTOR
BR
7%
*:LOOP ON THE PRESENT TEST
6%: ;##HHAEND OF CODE FOR THE XOR TESTERAA##A
BIT
#1708, aSWR
::LOOP ON SPEC. TEST?
.
BEQ
2%
*IBR IF NO
CMPB
Q@SWR,$TSTNM
110N THE RIGHT TEST?
SWR<7:0>
BEQ
$OVER
PIBR IF YES

4$:

001212

032777

165

SCOPE HANDLER ROUTINE

SCOPE

2%:

105037 001103

001011

PAGE

:+AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
ITHE SWITCH GPTIONS PROVIDED BY THIS ROUTINE ARE:
T*SWi4=1
LOOP ON TEST
txSW11=1
INHIBIT ITERATIONS
* 4 SW09=1
LOOP ON ERROR
:*SW08=1
LOOP ON TEST IN SWR<7:0>
F*CALL

10:46

. QQQQ'fiQQ"!t.QQ'Q'.fitt.t'l".fi..it'ii't"t.Q'.."'.Qt'fi'.‘....'.

:
,

I13

I*THIS ROUTINE CONTRCLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:*AND LOAD THE TEST NJMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)

8647
8648
8649
865C
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662

8663

.SBTTL

8642

8643
8644
8645

MACY11 30A(1052)
12=0UL=79
SCOPE. HANDLER ROUTINE

Rk
SERMAX,SERFLG
3%

*IBR IF NO
--MAX. ERRORS FOR TNIS TEST OCCURRED?
*BR IF NO
::LOOP ON ERROR?,
*IBR IF NO
::3ET LOOP ADDRESS TO LAST SCOPE

SERFLG

::ZERO THE ERROR FLAG

BIT

#B81T11,aSWR

TST
GZQ
INC
cMP
BGE
MOV

$PASS
1%
$ICNT
$TIMES,SICNT
$OVER
#1,81CNT

BNE

MOV
INCB
MOV

MOV

*HAS AN ERROR O€CURRED?

SMXCNT,STIMES
$TSTAM’
(SP),$LPADR
(SP} ,$LPERR

::CLEAR THE NUMBER OF ITERATIONS
:TO MAKE
*ESCAPE TO THE NEXT TEST

**INMIBIT ITERATIONS?

PIBR

YES

::IF FIRST PASS OF PROGRAM
:
INHIBIT ITERATIONS
**INCREMENT ITERATION COUNT
::CHECK THE NUMBER OF [TERATIONS MADE
*:BR [F MORE ITERATION REGUIRED
PIREINITIALIZE THE ITERATION COUNTER

::SET NUMBER
$:COUNT TEST
::SAVE SCOPE
;. SAVE ERROR

OF ITERATIONS T0 DO
NUMBERS
LOOP ADDRESS
LOOP ADDRESS

MASSBUS RH70 AND RH11. DIAGNOSTIC
(ZRHBE .P11
- 07=JUN=79 13:44

868¢
8687
8688
8689
8690

8691

ggg%

073030
073034
073042
073050
073054

073056

005037
112737
013777
013716
000002

MACY11 "30A(1052)
12=JuUL=79
SCOPE HANDLER ROUT INE

001214
100001
L01102
001106

001115
106072

0006100

$OVER:

$MXCNT: 100
.SBTTL

8694

8695
5696
8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
g;gg
8710

38711

8712
8713
8714
8715
8716
8717
8718
8719

8720

8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
3;%2

073060
073066
073074
073076
073100
073102
073104
073106
073110
073114
073120
073126
073130

]
012737
012737
010046
070146
010246
010346
010446
010546
017746
010637
012737
000000
000776

073220
00030
5

106024
073224
073132

000024
000026
.
y

000024

073132
073140
073144
073150
073154
073156
073162
073164

(73166

073170
073172
073174
07317€¢
(073204
073212
073214
073216
073220
073222
073224
073226
073234

;

073220
073224
073224
073224

‘

000024

105756

012603

012602
012601
012600
012737
012737
104401
073226
900002
000000
000776
000000
005015
000122

000024
000026

;

047520

042527

PAGE

166

SEQ 0165

$ESCAPE
,.CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
JONLY ALLOW ONE (1) ERROR ON NEXT TEST
$TSTNM,aD]SPLAY ::DISPLAY TEST NUMBER
$LPADR, (SP)
..FUDGE RETURN ADDRESS
sFIXES PS

MAX. NUMBER OF ITERATIONS

POWER DOWN AND UP ROUTINES

R R R R AR R AR AR AN

A AR

R AR AN AR R

AR R AR R RN

RRR AN AR IR AR NN

:
3

A A AR A AR AR AR A A A AR RR AR AARRRRAANNNANRNRRRNR
AR AR AN R R ARNAR

POHER UP ROUTINE

$PWRUP: MOV
MOV
CLR
1%:
INC
BNE
MOV
MOV
MOV

#SILLUP,Q#PWRVEC ;;SET FOR FAST DOWN
$SAVR6, SP
;:GET SP
$SAVR6
;:WAIT LOOP FOR THE TTY
$SAVR6
;.WAIT FOR THE INC
1%
;:0F
WORD
(SP) +,aSWR
. :POP STACK INTO aSwR
(SP) +,RS
;;POP -STACK INTO RS
(SP) + R4
;;POP STACK INTO R4

MOV
MOV
MOV
MOV
* MOV
TYPE
$PWRMG: .WORD
RTI
$ILLUP: HALT
BR
$SAVR6: 0
S$POWER: .ASCIZ
;

(SP)+ ,R2
;sPOP STACK INTO R2
(SP)+,R1
;;POP STACK INTO R1
(SP)+ ,R0O
;;POP STACK INTO RO
#3PWRDN ,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,94PWRVEC+2 ;;PRIOD:7
JREPORT THE POWER FAILURE
$POWER
. ;POWER FAIL MESSAGE POINTER
.
;:THE POWER UP SEQUENCE WAS STARTED
=2
;. BEFORE THE POWER DOWN WAS COMPLETE
;;PUT THE SP HERE
<15><12>''POWER"
)
.

MOV

073060
000340

10:46

PDUER DOWN ROUTINE
$PWRDN: MOV
#SILLUP,Q#PWRVEC ;;SET FOR FAST UP
MOV
#340,Q4PWRVEC+2 ;;PRIO:7
MOV
RO,=(SP)
;;PUSH RO ON STACK
MOV *
R1,=(SP)
;;PUSH RT ON STACK
MOV
R2,=(SP)
;;PUSH R2 ON STA(K
MOV
R3,=-(SP)
.sPUSH R3 ON STACK
MOV
R4 ,-(SP)
;:PUSH R4 ON STACK
MOV’
RS,=(SP)
:;PUSH RS ON STACK
MOV
aSWR,=(SP)
;sPUSH aSWR ON STA(K
MOV
SP,$SAVR6
;s SAVE SP
MOV
#$PWRUP ,@#PWRVEC ;;SET UP VECTOR
HALT
BR
=2
; sHANG UP
PR

012737
013706
005037
005237
001375
012677
012605
012604

CLR
MOVB
MOV
MOV
RT]

s 13

(SP)+,R3

s ;POP STACK INTO R3

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE.P11
07=JUN=79 13:44

8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746

8766
8767
8768

8769
8770
8771
8772
8773
8774
8775
8776
8777
8778
8779
8780
8781
8782
8783
8784
8785
8786
8787
8788
8789
8790

ROUTINE

10:46

PAGE

167
SEG 0166

TYPE ROUTINE

tfit'fitl.t'tt.'!'Qt't"""'t.ttttt.'.fi......t."..'Q't'fi"'.'..

;*NOTE1:

$NULL

;*NOTE3:

$FILLC

S*NOTEQ:

CONTAINS THE

CHARACTER TO BE USED AS THE FILLER CHARACTER.

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
CONTAINS THE CHARACTER TO FILL AFTER.

- %

s~CALL:

.1) USING A
: OR
TYPE

TRAP INSTRUCTION
,MESADR

:
IS

. :MESADR

- %

A
I

8749

8765

12=JuL=79

'ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINF FEED.

8748

8764

TYPE

K 13

30A(7052)

SBTTL

8747

8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763

. MACY11

FIRST ADDRESS OF

AN AS({IZ

STRING

TYPE
ME SADR

- %

073236
073242
073244

073246
073250

073252

C73256
073260
073262
073264
073266

073272

073274
073300
073302
073306
073310
073312
073314
073316
073322

105737
100002

000000
000407
010046
017600
112046
001005
005726
012600
062716
000002

001157

$TYPE:

TSTB
BPL

$TPFLGC
1%

1$:

BR
MOV

3%
RO,=-(SP)

s sLEAVE
;+SAVE RO

2%:

MOVR

(RO)+,=(SP)

. ;PUSH CHARACTER

HALT

000002

60%:
3%:

122716

000011

4%:

122716

000200

001430

001006
005726
105037

073452

123726

073406
001156

000755
004737

073324
073330
073334
073336

001350
013746

073342
073346
073350
073354
073360

105366
002770
004737
105337
000770

@2 (SP) ,R0O

BNE

MOV
ADD

(SP)+ R0
#2,(SP)

RTI
CMPB

112716

004737

132737
001372
005726

#HT, (SP)

BEQ
CMPR
BNE

8%
#CRLF,(SP)
5%

5%:
6%:

001154

000001

7%:

073406
073452

000040
073406
000007

073452

IF NO TERMINAL

. .GET ADDRESS OF ASCIZ STRING
JeBR IF
..IF

IT ISN'T

TO BE

THE

TERMINATOR POP

TYPED ONTO STACK

TERMINATOR

IT OFF

THE

STACK

;;RESTCRE RO
2 sADJUST RETURN PC(C

; sRETURN
;:BRANCH IF

;sBRANCH IF

<HT>

i
NOT <CRLF>

$CRLF
CLRB
BR
JSR
CMPB
BNE
MOV

;iPOP
2sTYPE

$CHARCNT
2%
'
PC,$TYPEC
$FILLC,(SP)+
2%
$NULL ,=(SP)

;:CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
.2G0 TYPE THIS CHARACTER
;IS IT TIME FOR FILLER CHARS.?
;2IF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEPED

DECB
BLT
JSR
DECB

1(SP)
6%
PC,STYPEC
$CHARCNT

::DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF
:.GO TYPE A NULL
::DO NOT COUNT AS A COUNT

8%:

;sHALT HERE

(SP) +

;HORIZONTAL

073362
073366
073372
073400
073402

(SP) +

151
TYPE

104401

001223

MOV

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

BITB
BNE

TST

;:AND THE NULL CHAR.

‘::L00P

TAB PROCESSOR

MOovB
JSR

<CR><LF> EQUIV
A CR AND LF

#'
.

,(SP)

PC,STYPEC

#7,3CHARCNT
9%

(SP) +

:;REPLACE TAB WITH SPACE
;. TYPE A SPACE

: ;BRANCH [F NOT AT
.. TAB STOP

. .POP SPACE

OFF

STACK

MASSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44 -

8791
8792
8793
8794
8795
8796
8797
8798
8799
8800
8801

8802
8803

8804

073404
073406
073412
073415
073422
073430
073432
073436
073440
073446
073450

073452
073454

000724
105777
100375
116677
122766
001003
105037
(00406
122766
001402
105227

000000
000207

MACY11 30A(7052)
TYPE ROUTINE

105536
000002
000015

$TYPEC:
105530
000002

073452
000012

000002

BR
TSTB
BPL
MOVRB
CMPB
BNE
CLRB

BR
"CMPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS

1%:

12=JuUL=79

%
a$TPS
$TYPEC
2(SP) ,a%$TPR
#CR,2(SP),
1$
'
$CHARCNT

$TYPEX
#LF ,2(SP)
$TYPEX
(PC)+
.0
PC

L 13

10:46

PAGE

168

soGET NEXT (HARACTER
JJWAIT UNTIL PRINTER [S READY
;:LOAD CHAR TO BE TYPED INTO DATA REG.
;:15 CHARACTER A CARRJAGE RETURN?
;JBRANCH [F NO
s sYES==CLEAR CHARACTER COUNT

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

SEQ 0167

MASSBUS RH70 AND RH17_DIAGNOSTIC
CZRHRE .P11
07=JUN=79 13:44

M13

MACY11 30A(7052)
12=JUL=79
10:46
BINARY TO OCTAL (ASCII) AND TYPE

gggg

.SBTTL

8807

BINARY TO OCTAL

PAGE

169

(ASCII) AND TYPE

tttttttttt'ttttttlttttttttttttntttfit!ttw'ttittlttttttt'tt.'tttt

8808

'THIS ROUTINE IS -USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6=DIGIT

gg}?

ag;YPOS---ENTER HERE
LL:

8809

:«OCTAL (ASCII) NUMBER AND TYPE IT.

TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

8812

MOV

NUM,=(SP)

::NUMBER TO BE TYPED

8814

.BYTE

2:N=1

8813

8315

8816
gg}g

I
i*

TYPOS

BYTE

:;CALL FOR TYPEOUT

8819
8820
8821

:*$TYPON----ENTER HERE
;*$TYPOS OR $TYPOC
:*CALL:

TO 6 FOR NUMBER OF DIGITS TO TYPE

*iM=1 OR 0

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

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

8822

8825
8826

*STYPUC---ENTER HERE FOR 'vpsour OF A 16 BIT NUMBER
s*CALL:

ggsz

8827

gggg

8830
8831
8832
8833
8834
8835

073456
073462
(073470
073474
073500
073502

017646
116637.
112637
062716
000406
112737

8838
8839
8840
8841
8842
8843
8844
8845
8846
8847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860

073524
073526
073530
073532
073536
(073540
073544
073550
073554
073560
073562
073564
073566
073570
073572
073574
073576
073600
073604
073606
073612
073614
073616

010346
070446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105

8836
8837

SEQ 0168

073510
073516

112737
112737

006105
010503
006103
105337
100016
042703
001002
005704
001403

000000
000001
073703
000002

000001
000006
000005

073703

000006
073702
073701
000012

(73702
177770

073701

073701
073703
073700

MOV

TYPON

MOV

TYPOC

$TYPOS: MOV
MOVB
MOVB
ADD
BR
$TYPOC: MOVR

MOVB
$TYPON: MOVB
MOV
MOV
MOV
MOVR
NEG
ADD
MOVR
MOVR
MOV
CLR
1%:
ROL
BR
2%:
ROL
ROL
ROL
MOV
3%:
ROL
DECR
BPL
BIC
BNE
TST
BEQ

NUM,=(SP)

:;NUMBER TO BE TYPED
::CALL FOR TYPEOUT

NUM, - (SP)

::NUMBER TO BE TYPED

a(SP) ,-(SP)
1(SP) ,$OFILL
(SP)+,$0MODE+1
#2,(SP)
$TYPON
#1,80FILL

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

#6, SOMODE +1
#5,30CNT

R3.-(SP)
R4 ,~-(SP)
RS,=(SP)
$OMODE +1,R4
R4
#6,R4
R4 , $OMODE
$OF ILL ,R4
12(SP) ,R5
R3
RS
3%
RS
RS

RS
R5,R3
R
$OMODE
7%
#177770,R3
4%
Ré
5%

::CALL FOR TYPEOUT

::SET THE
;:SET FOR
;:SET THE
::SAVE R3
**SAVE Ré&
..SAVE RS
*GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

::SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD
_
:;ROTATE MSB INTOQ '‘C*'
::G0 DO MSR
::FORM THIS DIGIT

::GET LSR OF THIS DIGIT
::TYPE THIS DIGIT?
:BR IF NO
..GET RID OF JUNK
:TEST FOR 0
*:SUFPRESS THIS 02
::BR IF YES

‘
\

N 13

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

073620
073622
073626
073632
073636
073642
073646
073650
073652
073654
073656
073660
073662
073664
073672
073674
073676

005204
052703
052703
110337
104401
105337

003347
002402
005204
000744
012605
012604
012603
016666

4%:

000060
000040
073676
073676
073700

5%:
7%:

0
000000

INC

6%:
000002

000004

$OCNT:
$OFILL:
$OMODE:

PAGE 170

SEQ 0169

;:DON'T SUPPRESS ANYMORE

0°'S

BIS
BIS
MOVB

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

;cMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
2 sSAVE FOR TYPING

BGT
BLT

2%
6%

.:BR IF MORE TO DO
;:BR IF DONE

BR
MOV

2%
(SP) +,RS

..G0 DO THE LAST DIGIT
;;RESTORE RS

TYPE
DECB
INC

8%:

073677

073700
073701
073702

MACY11 30A(7052)
12=JUL=79
10:46
BINARY TO OCTAL (ASCII) AND TYPE

MOV

,8%
$OCNT

(SP) +,R4

MOV
MOV
MOV

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

BYTE
BYTE

0
0

RTI

.BYTE
.BYTE
.WORD

0
0
©

22GO TYPE THIS DIGIT
2 sCOUNT BY 1
;o INSURE LAST DIGIT

ISN'T A BLANK

;sRESTORE R4

;JRESTORE R3
;sSET THE STACK FOR RETURNING
2 ;RETURN

. :STORAGE FOR ASC!I DIGIT
;s TERMINATOR FOR TYPE ROUTINE

.sOCTAL DIGIT COUNTER
oZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

B 14
MACY11 30A(7052)
12=JUL=79
10:46 PAGE 171
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

HASSBUSP$?7O AND RH11_DIAGNOSTIC
CZRHBE
07=JUN=79 13:44

8882
8883

.SBTTL

8885

'THIS ROUTINE

SEQ 0170

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
A A AR RN

IS USED

AR TR RRRRRRRRRRRARRR AR RRRAARAR AR AR

R R AR

TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

J'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
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED WITH SPACES.

;*CALL:
. ®
%

073704
073704
073706
073710
073712
073714
073716
073722
073726
073730
073732
073740
073742
073746
073752
073754
073760
073762
073764
073766
073770
073772
073774
073776
074000
074002
074004
074006
074014
074020
074024
074026
074030
074034
074036
074040
074042
074044
074046
074050
074056
074060
074062
074064

010046
010146
010246
010346
010546
012746
0166905
100004
005405
112766
005000
012703
112723

$TYPDS:

020200
000020
000055

000001

074120
000040

005002
016001
074110

2%:

160105
002402
005202
000774
060105
005702
001002
105776
10040/
106316
103003
116663

052702
052702
110223

005720
020027
002746
003002
010502
000764
105726
100003
116663
105013

012605
012603
012602

1%:

3%:

MoV
TYPDS

NUM,=(SP)

:sPUT THE BINARY NUMBER ON THE STA(CK
;:G0 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG

RO,=(SP)
R1,=(SP)
R2,-(SP)
R3,=(SP)
R5,=(SP)
#20200,=(SP)
20(SP) ,R5
1%
RS

;:PUSH RO ON STACK

MOvB
CLR
MOV

MOvB

CLR

MOV

SuB
BLT
INC

#'=-,1(SP)

#$DBLK ,R3
#' ,(R3)+

R2
$DTBL (RO) ,R1

;:PUSH R1 ON STACK
;sPUSH R2 ON STACK

;:PUSH R3 ON STACK
;sPUSH R5 ON STACK

;+SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT IS POCS.

; JMAKE

;FORM THIS BCD DIGIT

BR IF

;2ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0

;:FALL

000001
000060
000040

177777

7%:

000010

177777

177776

9%:

THROUGH IF

sSTILL DOING LEADING 0°'S?
BR IF YES

6
1(SP) ,~1(R3)
#'0,R2
#' ,R2
R2.(R3)+
+
{(RO)
RO,#10

2%
8%

8%:

DONE

..INCREASE THE BCD DIGIT BY 1

4%:

5%:

THE BINARY NUMBER POS.

;sMAKE THE ASCII NUMBER NEG.
;.ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;sSET THE FIRST CHARACTER TO A BLANK
;sCLEAR THE BCD NUMBER
::GET THE CONSTANT

R5,R2
6%

YES--SET THE SIGN
MAKE .THE BCD DIGIT ASCI!

::MAKE IT A SPACE IF NOT ALREADY A DIGIT
;:PUT THIS CHARACTER IN THE OUTPUT BUFFER
2+ JUST INCREMENTING
;JsCHECK THE TABLE INDEX
;:G0O DO THE NEXT DIGIT
;:G0 TO EXIT
;:GET THE LSD
;.GO CHANGE TO ASCII

(SP)
+

,.UAS THE LSD THE FIRST NON=ZERQ?

(SP)+,R3

;;POP STACK

9$
=1(SP) ,=2(R3)
(R3)
(SP) +,RS
(SP)
+ ,R2

BR IF NO
JYES==SET THE SIGN FOR TYPING
;SET THE TERMINATOR

;;POP STACK

INTO RS

INTO R3

;.POP STACK INTO RZ

C 14

MASSBUS RH70 AND RH11_DIAGNCSTIC
(ZRHBE P11
07=JUN=79 13:44

8938
8939
8940
8941
8942
8943
8944
8945

8946

8947
8948

074066
074070

074072
074076
074104

074106

074110
074112
074114
074116
074120

012601
12600
104401

016666
012616
000002
023420
001750
000144
000012
000004

MACYT1 30A(7052)
12=JUL=79
10:46
PAGE 172
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
MOV

074120
000002

MOV
TYPE
MOV

000004
:
$DIBL

$DBLK:

MOV
RTI
10000.
1000.

10.

SEQ@ 0171

(SP) +,R1
(SP)+,RO

::POP STACK
;.POP STACK

2(SP) ,4(SP)

;;ADJUST THE STACK

. $DBLK

(SP)+,(SP)

INTO R1
INTO RO

:;NOW TYPE THE NUMBER

;;RETURN

TO USER

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

D 14

MACY11 30A(7052)
12=JUL=79
10:46
ERRCR MESSAGE TYPEOUT ROUTINE

173

ggég

.SBTTL

8951

- tt'tt'tt"t'tt"t'tttt'ti'..t'.'fi".i.tt.'t..t'ttt'.tt'it."'ti

8952
8953
gggg

:*THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE'' ($ITEMB) TO DETERMINE WHICH
:*ERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' ($ERRTB),
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

895¢
8957
8958

8959
8960
8961
8962
8963
8964
8965
8966
8967
8968
8969
8970
8971
8972
8973
8974
8975
8976
8977
8978
8979
8980
8981
8982
8983
8984
8985
8986
8987
8988
8989
8990
8991
8992
8993
8994
8995

074130
074130
074134
074136
074140

104401
010046

001223

074144

005000
153700
001004

001174

074146

013746

001116

074152
074154
074156
074160
074162
074164
074166
074172
074176
074200
074202
074204
074210
074214
074216
074220
074222
074226
074230

104402
000426
005300
006300
(06300
006300
062700
012037
001404
104401
000000
104401
012037
001404
104401
000000
104401
017000
001004
012600
104401
000207

074232
074234
074240
074242

074242

013046

074250
074252
074256

001770
104401
000771

074244
074246

074260

$ERRTYP:

001226
074202

001223

2%:

3%:
4%:
5%:
6%:

7%:

104402
005710

020040
074264

074260
000

8%:

TYPEOUT ROUTINE

TYPE
MOV
CLR
BISB

. $CRLF
RO,=(SP)
RO
A8 TEMB RO

MOv

$CRRPC,=(SP)

BNE

1%:

001223
074220

ERROR MESSAGE

PAGE

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BNE
MoV
TYPE
RTS
:
'
TYPOC
TST
BEQ
TYPE
BR
JASCIT
.EVEN

6%
RO
RO
RO
RO
#SERRTB,RO
(RO)+,2%
3%

::"'CARRIAGE RETURN'' & "LINE FEED"
:SAVE RO
..PICKUP THE ITEM INDEX
;o
IF ITEM NUMBER IS ZERO, JUST
;. TYPE THE PC OF THE ERROR

;:SAVE $ERRPC FOR TYPEOUT
: ;ERROR ADDRESS
..GO TYPE-=OCTAL ASCII(ALL DIGITS)
sGET ouTt
; cADJUST THE INDEX SO THAT IT WILL
N
WORK FOR THE ERROR TABLE

0
.$CRLF
(RO) ,RO
7%
(SP)+,R0
.SCRLF
PC

;.FORM TABLE POINTER
;:PICKUP 'ERROR MESSAGE'' POINTER
:;SKIP TYPEOUT IF NO POINTER
;. TYPE THE 'ERROR MESSAGE''
::"'ERROR MESSAGE'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & "LINE FEED"
:;RICKUP 'DATA HEADER'' POINTER
;:SKIP TYPEOUT IF 0
;. TYPE THE 'DATA HEADER''
;. DATA HEADER'' POINTER GOES HERE
;:"'CARRIAGE RETURN'' & "LINE FEED''
;;PICKUP 'DATA TABLE'' POINTER
::GO TYPE THE DATA
; ;RESTORE RO
;' 'CARRIAGE RETURN'' & "‘LINE FEED"
;;RETURN

a(R0O) +,=(SP)

;;SAVE @(RO)+ FOR TYPEOQUT

(RO)
6%
.8%
’$

;. 1S THERE ANOTHER NUMBER?
::BR_IF NO
;. TYPE TWO(2) SPACES
. .LOOP

0
.$CRLF
(RO) +,4%
5%

;:G0 TYPE=~OCTAL ASCII(ALL DIGITS)

;. TWO(2)

SPACES

SEQ 0172

&4
12=JUL=79
10:46
MACY11 30A(7052)
ERROR HANDLER ROUTINE

MASSBUS RH7C AND RH11_DIAGNOSTIC
( ZRHBE 211
07=JUN=79 13:44

PAGE

8996
8997

.SBTTL
MR

174

SEQ 0173

ERROR HANDLER ROUTINE

LSRR

SRS

;*THIS ROUTINE WILL

INCREMENT

THE

ERROR FLAG AND

2222222222228

THE ERROR COUNT,

.*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO TSTNMB ON ERROR
;*THE

SWITCH OPTIONS PROVIDED BY
HALT ON ERROR

:*SW15=1

:*SWi3=1
;*SW10=1
;*SW09=1
;*CALL

117737

104560

032777
001004
004737

020000

104401

050104
001223

005777

104554

100001

000000
032777
001402
013716
005737
001402
013716
000002

001000
001110
001214

001214

ERROR

INCB
BEQ

$ERFLG
;.SET THE ERROR FLAG
7%
;:DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

BIT

BEG

3%:
4%:

5%:

; ;ERROR=EMT AND N=ERROR

#31T10,3SWR

ITEM NUMBER

;;BELL ON ERROR?

SUB

1%
LSBELL
$ERTTL
(SP) ,$ERRPC
#2,3ERRP(

::NO - SKIP
s sRING BELL
;- COUNT THE NUMBER OF ERRORS
;;GET ADDRESS OF ERROR INSTRUCTION

BIT
BNE
JSR

PC,TSTNMB

::G0

TST

aSWR

TYPE
INC
MOV
MOVR

20%:
2%:
104542

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

MOV

1%:
)
— =2

005237
011637
162737

001216
001112
001116
000002

104642
104632

ASE Yo

104401

001102
002000

~N ——

074340
074346
074350
074354
074360
074360
074364
074366
074370
074376
074400
074404
074410
074412
074416
074416

001775
013777
032777
001402

$ERROR:
7%:

001103

074314
074320
074324
074332

105237

—00
leolele]

074264
074264
1074270
074272
074300
074306
074310

THIS ROUTINE ARE:

TYPE

BPL
HALT

BIT
BEQ

MOV

TST
BEQ

MOV
RTI

Q$ERRPC,$ITEMB
#B1T13,aSWR
20%

,$CRLF

zg1709.asua
$LPERR, (SP)
$ESCAPE
5%

$ESCAPE, (SP)

;:STRIP AND SAVE THE ERROR ITEM CODE
;sSKIP TYPEOUT IF SET
;:SKIP TYPEOUTS
TO USER ERROR ROUTINE

s sHALT ON ERROR

;2SKIP IF

CONTINUE

;sHALT ON ERROR!

;:LOOP ON ERROR SWITCH SET?

;:BR IF NO

;cFUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE
2 JRETURN

MASSEUS RW70 AND RHM11
( ZRHBE P11

DIAGNCOSTIC

07=JUN=79

MACY11

13:44

TTY

30A(7052)

INPUT

ROUTINE

12=JUL=79

F1 4
1

10:46

PAGE

175

9037

LSBTTL

%39

. tti'tQQnt'tt.tl'tt..ttlt"tt.'tttttt'.ttt...QQ'.Q'Q"'QQQQ.'.QQ

9040
9041
9042

"ENABL

LSB

.DSABL

LSB

9038

9043

904k

%‘S

. 'tt'.tt"'QtttQttt.t""t""Qttt.".t.t.tt'.fi'ttt.ttttt'tt.'t.

382?

-THIS

3049
90??
074420
074422
074430
074434

011646
016666
105777
100375

000006
104510

000002

9058

074444

042766

117766

104504

177600

000004
000023

076436

9059
9060
9061
9062
063

074452
074460
074462
074466
074470

026627
001013
105777
150375
117746

000004

9065

074500

022627

000021

026627

000004

000140

000004

000175

000040

000004

066
9067

9068

9069
9C70
9021
9072
9073
0071,

074474

074504
074506

074510

074516
074520
074526
074530
(074536

042716

001366
000750

002407
026627
003003
042766
000002

104456
104452
177600

3858

074540
074542

9084
9085

074552
074554

9087
9088
9089
9090
9091

9092

4%:

074546

074556

074560
074564
074566
074572
074574

074600

010346
012703

022703
101405
104406

112613,

122713
001003
104401
000763
111337

104 401

SINGLE

CMP
BNE
TSTB
BPL
MOVB
BIC
CMP
BNE
BR

CMP

BLT
M
BGT
BIC
RTI

CHARACTER

FROM

THE

TTY

::INPUT A SINGLE CHARACTER FROM THE' TTY
;;CHARACTER IS ON THE STACK
J;WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)
4(SP),2(SP)
@a%$TKS
1%
@$TKB,4(SP)

2 sPUSH DOWN THE PC
::SAVE THE PS
S:WAIT FOR
*:A CHARACTER

4(SP) 423
33
@$TKS
2%
a$TKB,-(SP)
2%

::IS IT A CONTROL=S?
::BRANCH IF NO
::WAIT FOR A CHARACTER
::LOOP UNTIL ITS THERE
:;GET CHARACTER
*MAKE IT 7-BIT ASCII
;:1S IT A CONTROL-Q?
::1F NOT DISCARD IT

$:YES, RESUME

4%
4(SP) ,#175
4%
#40,4(SP)

S:BRANCH IF YES
::1S IT A SPECIAL CHAR?
“*BRANCH IF YES
S:MAKE IT UPPER CASE
1:G0 BACK TO USER

#AC<177>,4(SP)

#°C177.(SP)

(SP)+,421

4L(SP) ,#140

**THIS ROUTINE WILL
;*CALL:
;'
RDLIN
I
RETURN HERE
e

9081
9082

9086

3$:

*:READ THE TTY

::GET RID OF JUNK IF ANY

2+1S IT UPPER CASE?

. tttttttt't'tttttttltttttttttttltttttt't.ttt*Vttttt'tttttttttt't

9075
5076
9077
9078

9083

MCVB

BIC

2%:

INPUT

RETURN HERE

$RDCHF: MOV
MOV
18:
ISTB
RPL

000004

WILL

RDCHR

i
%

9052
9053
9054
9055
9056

G064

ROUTINE

s«(CALL:

9048

9057

TTY INPUT ROUTINE

074646

074656

000177

108 :

001222

4%:

074644

;2INPUT A STRING FROM THE TTY
::ADDRESS OF FIRST CHARACTER WILL BE
;:TERMINATOR WILL BE

SRDLIN MOV
1%:
MOV

2%:

INPUT A STRING FROM THE TTY

A BYTE

ALL

R3,=(SP)
#$TTYIN,R3

;:SAVE R3
::GET ADDRESS

BLOS
RDCHR

“:BR IF YES
::GO0 READ ONE CHARACTER FROM THE

(MPB
BNE .
TYPE
B8R
MOVB

#177.(R3)
3%
_$QUES
1%
(R3),9%

TYPE

.98

CMP

MOVB

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

::BUFFER FULL?

::GET CHARACTER

$:1S IT A RUBOUT
::SKIP IF NOT
CITYPE A '°
;:CLEAR THE BUFFER AND LOOP
::ECHO THE CHARACTER

IN iHE

0'S

TTy

STACK

SEQ 0174

MASSBUS RH70 AND RH11_DIAGNOSTIC

(ZRHBE P11

9093
9094

9095

9096
9097
9098

9099

5100

9101
9102
9103
95104

9105
9106
%107
5108
9106
G110

074604
074610
074612
074616
074622
074624
074626
074634
074642
074644
074645
074646
074656
074663
074670
074676
074701
074706

MACY11

07=JUN=7G 13:44
122723

000015

105063
104401

001224

001356
012603

011646
016665
012766
000002
000
000
00001C

052536
136

005015
020075

040
036440

TTY

177777

000004
074646

000002
000004

000
047040
000040

SEa@ 0175

#15,(R3)+

;s CHECK FOR RETURN
:;LOOP [F NOT RETURN

MOV

(SP) ,=(SP)

JRESTORE R3
,.ADJUST THE STACK AND PUT ADDRESS OF

MOV
MOV

000012
020122

$TTYIN:
$CNTLU:
$CNTLG:
$MSWR:

RTI
.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
LAS(IZ

053505

$MNEW:

LASCIZ

~ 000

PAGE 176

(MPB
BNE
CLRB

TYPE
MGV

9%:

005015
006507
053523

30A(i052)

INPUT ROUTINE

G1 4
1&=AL-"9
1 0: 46

;:CLEAR RETURN (THE 15)
::TYPE A LINE FEED

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

4(SP),2(SP)

#STTYIN,L(SP)

/*2G/<15><12>
NEW =

CHARACTER ON

;sRESERVE 8 BYTES FOR

/2J/<15><12>

ASCI]

. sRETURN
;:STORAGE FOR ASCII CHAR.
;s TERMINATOR

0
0
8.

<15><12>/SWR =

FIRST

s sCONTROL 'V’
;sCONTROL ''G"’

TTY

TO TYPF
INPUT

THE

MASSBUS RH70 AND RM11

W
T

07=JUN=79 13:4

SBTTL
*

H 14
12=JUL=79
10:46
NUMBER FROM THE TTY

30A(7052)

READ AN OCTAL

00NN NN

il i
D ol

e
B

ol il

VOV OVOVOO0O

(ZRMBE .P11

MACY11

DIAGNOSTIC

READ AN OCTAL

NUMBER FROM

PAGE

177

SEQ 0176
THE

TTY

tt"'t!'ttit‘"l".Qtttt"ttQ'tt"'Qtfi..'t..'.flfit'.t'fi.fi.fi".'t

:-THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE IT TO BINARY,

,'CALL

074712
074714
074722
074724
074726
074730
074732
074734
074736
074740
074742
074744
074746
074750
074752
074754
074756
074760
074764
074766
074770
074772
074776
075002,
C75004
075006
075010

075012

011646
016666
010046
010146
010246

000004

112046

062601
000764

005726
010166
010237
012602

012601
012600
000002
000000

$RDOCT: MOV

MOV
MOV

19%¢

104407

012600
005001
005002

001412
006301
006102
006301
006102
006301
006102
042716

000002

2%:

MOV
MOV
RDL IN
MOV
(LR
(LR
MOVR
BEQ

ASL
ROL
ASL
ROL
ASL
ROL

177770

006012
075012

RDOCT

RETUURN H4ERE

3%:

R1,=(SP)
R2,=(SP)

(SP)+,R0
R1

R2
(RO)+,=(SP)
3%

R
R2
R1
R2
R1
R2

BIC

#~C7,(SP)

MOV

R1,12(SP)

MOV
MOV
MOV
RTI

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

ADD

TST

MOV

$H[OCT:

(SP) ,=(SP)

4(SP) ,2(SP)
RO,=(SP)

.WORD

(SP)
+ ,R1

(SP)+

R2,$HIOCT

;sREAD AN OCTAL NUMBER
:;LOW ORDER BITS ARE ON TOP OF
:+HIGH ORDER BITS ARE
;sPROVIDE

SPACE

FCR

;s INPUT NUMBER
;3PUSH RO ON STACK
. 2PUSH R1 ON STACK
;;PUSH R2 ON STACK

IN $HIOCT

THE

s sREAD AN ASCIZ LINE

;sGET ADDRESS OF 1ST CHARACTER
;sCLEAR DATA WCRD

;sPICKUP THIS CHARA(CTER
::15 ZERC GET CuT

Ji%4

;:*8
;2STRIP THE ASCII

JUNK

;:ADD [N THIS DIGIT
2 :LO0P
;sCLEAN TERMINATOR FROM STACK
:2SAVE THE RESULT
;;POP STACK INTO RZ2
2 :POP STACK

INTQ RI1

;sPOP STACK INTO RO

; sRETURN
. .HIGH ORDER BITS GO HERE

THE STA(K

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 1%:44 *

G146
9150
8151
9152
9153
5154
9155
9156
9157
075014
9158 075016
9159
075022
9160
075024
9161
075026
9162
075030
9163
075034
9164
9165
5166
91679168
075036
9169
075040
9170
075046
9171
9172
9173
9174
9175
9176
9177
3178
3179
075050
9180
075052
9181
075054
9182
075056
9183
075060
2184,

5185
9186
9187

9188
3189
Ea!

075062

075064
075066
075070

MACY11

30A(7052)

12=JUL=79

TRAP DECODER

.SBTTL

I 14
10:46

PAGE 178

SEG 0177

TRAP DECODER

""Qt'tttfit!tttfl'.tttt"'*t'tfifit'fiiifi.‘t'tt.t*t'.t.tt..Qtitfi"'."

:*THIS ROUTINE WILL

;*AND USE

PICKUP

THE

LOWER BYTE

THE

'‘TRAP'' INSTRUCTION

TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED [T WILL

;*OF
;*GO TO THAT ROUTINE.
010046
016600
005740

000002

006300
016200
00200

075950

$TRAP:

MOV
MOV
ST
MOVR
ASL
MOV
RTS

;o THIS

IS USE

111000

011646
0 16666
000002

000004

000002

RO,=(SP)
2(SP) RO
-(R0)
(RO) ,RO
RO
$TRPAD(R0O
,RO
)
RO
TO HANDLE

$TRAPZ2: MOV

(SP) ,=(SP)

MOV
RTI

.SBTJL
;*THIS

THE

4(SP),2(SP)
'

::SAVE RO
.
::GET TRAP ADDRESS
: ;BACKUP BY 2
::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;;INDEX TO TABLE
::GO TO ROUTINE

''GETPRI'' MACRO

;:MOVE THE PC DOWN

::MOVE THE PSW DOWN
ssRESTORE THE PSW

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

;*BY THE ''TRAP‘' INSTRUCTION.

'S
075036
073236
073502
073456
073516
073704

074420
074540
074712
000001

THE

ROUTINES

CALLED

ROUT INE

$TRPAD: .WORD
-

JEND

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

$RDCHR
$RDLIN
$RDOCT

. $TRAP2

;:CALL=TYPE
;. CALL=TYPOC
;. CALL=TYPGCS
;. CALL=TYPON
;:CALL=TYPDS

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

TTY TYPEQUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROQS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

;. CALL=RDCHR
;. CALL=RDLIN
;. CALL=RDOCT

TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)

TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTyY

J 14

MASSBUS RM70 AND RK11 DIAGNOSTIC
(JRHBE .P11
07=JUN=79 13:44

ABLE

= 052525

013463

ADDERR
ADD1

ADD?2

ADD3

ADD4&

ADTERR
ADZERR
AD3ERR
AD4LERR
AHEAD
ALRIGT
APE
=
AROUND
AS
ATA
=

16854

2533

2023
16244

2029
1891

16264

1896

2754 -

006336
003320

003322
003324

003326

16254

16278

005066
005166
005206
005226
046052
012240
100000
004546
003412
100000

1869
1892
1895
1898
6542
2590
15428
1835
1666#
15718

AT
AT2

= 000002
= 000004

1602#
16034

AT4"
ATS
AT6
AT7
Al6

=
=
=
=
=

000020
000040
000100
000200
000400

1605#
16064
1607#
1608#
;gg;#

A17
BA

= 001000
003414

15564
16678

ATO

AT3

= 000001

16014

= 000010

‘

2677+
3364¢x

5043«
5909+

003416

1668#
2521%
2710«
3101+
3851«

4265%
4635«
4956+

BAETST
BAI
=
BAKER
BATST
BATSTA
BEAU
BEFORE

012272
000010
021420
012504
012674
033606
004122

BEGIN
EGINT

004144
004176

2674

2759

2761

1893

1894

1899

1900

1891#
1903#
1907#
19114
65454
25924
2104
18444
2404+
2128

2806

27634

2033

3180

5454

5736

3373

3570

3675

180

SEG 0178

6018

6300

. 3428

7535

3640

3743

3844

3945

3640
2566%
2861+«

37243
2615%
2916+

3844
2649%
3000%

3945
2652
3095+

6767
2655+

20364

1897

.
3126
BS508
6427

32¢8

)

1604%

4367%

BAE

MACY11 30A(i052)
12=JuL=79
10:46
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

5348«
5774%
6259%
26074
15164
3629
26484
2671
5119
17694

3468+
482
480

2582

3040

3076

3091

3233

3338

3015
2206%
2680

3076
2255%
2683~

3091
2205+
2700«

3233
2342%
2703

3338
2480*
2707«

3428
2515«
2766%

44L20%

4473x

L526%

4579%

4632%

3949%

4045*

4110%

4159%

4209%

4259+

3237+
4314+

4685+

5008+

3632+

3539x

3644%

5105«
5974x

5145+«
6050%

5210%
6115+«

2209+
2545+
2713«
3240%
3854%

2212«
2548«
2769%
3243%
3952%

2258%
1 2569%
2772%
3345x
3955x

4317x
L638x
5011+

5351%
5836+
6262«
2632
4351
3634
2673
26744
51224
2099

3573«
17814
17914

4320%
4688*
5014~

3747+

5269*
6191+«

5345+
6256%

2261x
2572«
2825%
3348+
4048+

2298x
2608+
2828+
3435x«
4051%

5413x
5839x
6335+

4370%
4691
5046*
5416%
5912+
6338+

4373
4741x
S049x
5489%
5915«
6417«

4404
3636

6772
36384

6787

2108
3575+

2115
3678+

3B48x

2123
3680+

4423x
4744%
5108+«

5492«
5977«
€420x

2130
3781+«

3535
2542«
2822+

5410%
6332*

4738%

5486%
6414*

4791

4844*

4897+

4950*

5768+
8516

5833«
8522

2301
2611
2864x
3438%
4113x

2345x
2618+
2867+
3542x
4116%

2348+
2621+
2919x
3545x
4162%

2402*
2658+
2922+
3647+
4165%

2483
2661+

2486+
2686*
3006%
3750%
4215+

2518+
2689+

4426%
479%x
5111x«

5554%
5980*
8492
;

3129«
3783«

4476%
4797%
5148%x

5557x
6053*
8508

5551
8494

4479%
4B47+
5151%

5627+
8512

5692*
8514

3003+
3650
4212%

3098+
3753«
4262+

5630
6056%
8512

4529%
4850%
5213~

5633%
6118+
8514

4532+«
4900*
5216%
5695%
6121x
8522

5498«
6194+
8531

5771+
6197w

3271w
3884

3273«
3983+

3376+
3G8Se

3378
4068

b
4070

4582%
4903%
5272«

4585w
4953«
5275+

,
3131«
3882+

K 14
MACY11 30A(7052)
12-JuL=79
10:46
PAGE
(ROSS REFERENCE TABLE == USER SYMBOLS

MASSBUS RKH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

BEGINZ
BEGIN3
BEHIND
BITONT

0041¢6
004152
046026

1788#
484

65404

003446

1737#

2757«
2910*
3195+
3333«
3831«

4099«
4250«

4618«
4780+

4941

4554
4458

T T

”

5099«
5260+
5463«
5606
5757+
5903«
6104~
6250%
6635

) =

SN
v aa g
VI W= O

)

BITS

LLUELE I L

L
e L

)
)

e
e
L

]

ooloskookochoskovlookvokookos]

ey ayr—

O 1 1 [

LiLe

L43H
L4k
L4414
4404
(394
4384
4374
4364
454H
4354
4344
L334
4324
4314
4304
4534
4524
4514
4504
L4594
LLBH
L4748
L4648

6386
63774
6383
1618#

000200

1619#
16204

181

SEQ 0179

6604
17844

6544
2328+
2760%
2986+
3196«
3522+
3834«
4101+

4253
4459

4621
4782«
4944~
5123«

5263
5464~
5613«
5759«
5960+
6106~
6309+
6637
6617
455

2331«
2808+
2989+
3199+
3525+«
3836«

4104%
4300%
4462+
4623~
4785+

2333«
2811«

2991«

202
3527«
3839«

4145+
4303«

4464

6310~
6639+

4626
4830+
4997«
5137
5323«
5472%
5618+
5819
5965=
6168+
6311
6650

8659
8667

9029

4994+

5124
5322~
5465
5616
5762«
5963
6109+-

454
453

452
451
450
449
448
447

446

6389
9014

8674
9021

8645

6615

6388
6458
68454

63934

2336%
2813«
2994«
3204*
3530
3932%

4148~
4305*
4467
4671
%
4833«
499G=

5134
5324
5475
5621~
5822*
5968«
6169
6318«
6652+

2359+

2816+
3077
3207«
*
3627
3935«

4150~
4308+
4512«
>
L4674
4835+
5002*
5136«

5331¢
5477
5678
5824*
6027%
6170
6321~
6657

2362+
2846*
3080~
3219+«
3630~
3937,

4153«
4353
4515~
L4676
4838~
5029
5139
5334«
5480
5681
5827
6028+
6177
6323
6661

2364
2849+
3082«
3222+
3632+
3940

4195+
4356~

4517+
L4679

4883«
5032+
5196+
5336«
5537
5683
5886+
6029
6180+
6326+
6745

2367
2851«
3085+
3224+
3635+

4031+
4198+
4358+«
4520
4724«
4886+
5034~
5199«

5339
5540

5686%

5887«
6036*
6182«
6395+
6748+

2372+
2854+
3182+
3227~
3730«

4034+
4200+
4361+
4565+
4727%
4888+

5037«
5201
5396+
5542+
5745
5888
6039+
6185+
6398+
6750

2375+
2902+
3185+
3325+
3733«

4036+ 4203+
4406+
4568+
4729+
4891+
5091«
5204*

5399«
5545+
5746
5895
6041«
6242+
6400+
6753+

2752+
2905+
3187«
3328+
3735+«

4039+
4245+
4409+
4570%

4732+
4936+
5094*
5255+
5401+
*
5604
5747
5898+
*
6044
6245
6403+

2755+

2907+
3190+

3330+
3738+

4096+
4248+
4411+
4573
4777+
493G+

5096+
5258+
5404+
5605+
5754+
5900+
6101~
6247+
6622+

.
)

MASSBUS RH70 AND RH17_DIAGNOSTIC

C(ZRHBE.P11

07=JUN=79 13:44

BMC18 = 010000
BOTTOM 045122
BPTVEC= 000014
BULL
047700
BUSH
034106
CHARLE
022164
(HGE1
032606
(HGE2
046372
(HGE3
046402
CLEER
006572

CLEVER

045500

15974
6390
462K
67
5163
3732
. 4990#
66154
66194
20884
3164
4280
4971
5940
6472

046014

649

(LR

= 000040

CPE
(R
CRLF
cs1

= 000010
= 000015
= 000200
003420

CORREG

hCSZ

003422

'
;

€s3

MACY11

003424
:

15184

050060
047712
025734
003426
002000

DBLED
DBLWDS
DBMG
DBMSG
DBOUT
DBTST
DBTSTA

025602
025046
010334
010536
014002
013360
(013700

12=JUL=79

L 14

10:46

PAGE

CROSS REFERENCE TABLE == USER SYMBOLS

6456
2
6752
|
5168#
3737

6.59%
6754

SEQ 0180

67564

3739

37414

2239
3306
4335
5072
6006
65054

2279
3411
4388
5174
6081

2319
3501
4441
5235
6147

2382
3608
4494
5301
6222

2450
3713
4547
5376
6288

6504

2184

6515

2203

2252

2292

3881

2088

182

6526

6537

65384

2594
3917
4653
5517
6460

2633
4018
4706
5583

2734
4079
4759
5658

2371

2458

6772

6787

:
2883
4131
4812
5724

2962
4180
4865
5799

3056
4230
4918
5865

2135
8795
8766
2204%

3128
8805
8805
2253%

2293

2340%

2407%

2408

2410

2412

2478+

2513%

2540%

2564+

3537«
4471x

3642+
4526%

3745%
4577%

3846%
L630%

3947%
4683%

4043
4736

4108%
4789%

4157%
4842+

4207%
4895%

4257%
4948x

4312+
5006%

4365%
5041+

4418+
5103«

6048+

6113x

6189

6254%

6330

6412«

8516

8518

8520

8527

2869+
3856%
4640%
5353x
6264*

2924
3957+
L693%
5418«
6340%

3008~
4053%
4746%
5494
6422%

3089
4118%
4799%
5559%
8498

3103%
4167+
4852%
5635x«
8500

3231%
4217%x
4905+
5700%
8518

3245+«
4267%
4958+«
5776%x
8522

3324
4322%
5016*
5841
8527

3350%
4375+
5051%*
5917%
8535

.3440%
4428+
5113+
5982+

2691%

2715+

6058+

2487*

2522%

2466

2474%

2484

2546%

2549%

2573x

2619%

2622%

2659

2662*

2687*

2690+

3953x

3956%

4114%

4117%

4163x

4216%

4263+

2613x

5143«

16704

16714

2711%
3102%

4266*
4636%
4957«
53649«
5775+
6260*
2169
6758
4273
16724
15378
4755
4247
4147
2330
2361
2810
27514
2794

2653
5208+

2214x

2210%

2519%

2714%
3241x

3855+

4318x
4639«
5012+
5352+
5837+«
6263%
67904
67604
4276
2785+
4127
4808
4252
4150
2335
2366
2B15
2798
2802#

Q681
5267+

2263%

2213%

2770«
3244x

4321x
4689*
5015+
5414%
5840+
6336

2787
4176
4861
4254
4154
2337
2368
2817
2801

2705%

5343%

2303%

2259%

2496
3816
4600
5442
6363

15764
370¢
3714
1669#

3852«

(S3ERR
CUTE
DAYAMS
DB
DBL
=

30A(7052)

Q2764%

5408%

2350%

2262%

2820%

5484x

2488x

2299*
2570%

2773«
3346%

2826%
3349«

4L371x
4692%
5047x
5417%
5913x
6339+

4374%
4742%
5050%*
5490
5916x6418+

L424%,
4L745%
5109%
5493x
5978x
6421«

2790
4276
4967

2840%
4331

2788
4226
4914
42564
41564
23394
23704
2819#
2805

4049%

2829
3436%

4052«

2859%
5549x

2914*

2998+

5625%x

5690%

2523% o+ 2550%

2302*

2865%
3439«

2574%

2346%

2349%

2868*
3543x

2920%
3546+

4427+
4795%
5112+
5555+«
5981%
8522

4477+
4798x
5149%
5558+
6054%
8531

2841
4384

2877+ . 2878
4437
4490

L4BO*
4LBLBx
5152«
5631+«
6057+
8533

3093«

5766%

2623%

2465+

2923x
3648%

4166

3235+

5831«

2663*

3004*
3651x

4213*

3340+

5907+«

3007+
3751«

3430s

5972+

3547+
4L4LB1+*
5153

3099+
3754w

4530%
4851
5214%
5634%
6119%

4533*
4901*
5217%
5696%
6122«

4583+
4904*
5273
5699%
6195+

4586+
4954+
5276
57720«
6198+

2880
4543

8496
4596

4649

4702

.M T4
MACYT1 30A(7052)
12=JUL=79
10:46
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=7G 13:44

DEVIC2
DEVIC3
DEVIC4
DEVICS

003370
003372
003374
003400

DF1
DF105
DF 11
DF132
DF170
DF172
DF2
DF3
DF 34
DF 35
DF 36
DF4
DF41
DFS

072314
072570
072340
072375
072403
072406
072320
072324
072343
072346
072347
072330
072352
072334

DFS2
DF 71
DF 76
DH1
DH105
DH11
DH111
DH121
DH130
DH132
DH142
DH146

072354
072361
072364
067602
071166
070410
071233
071300
071336
071364
071442
071500

DH170
DH171
DH172
DH2
DH3
DH34

071603
071631
071657
067722
070043
070476

DH4
DH41
DHS

070163
070637
070303

DH147

DH3S
DH36

DHS2
DH71
DH72
DH76
DISPLA
DISPRE

071545

070553
070556

070663
070762
071041
071130
001142
000174

3778

3079

16454
16444

560
3084
6470*

3088#
6473
1918

6496
16454

1948
1969+

16464
16474
16504

1990~

661
1248

6494>
1933

1951
1972
1993

1954
1975
1997

1957
1978

6527
2008

1157

1163

131

8558#

1265

1270

1275

85604

1474

1479

1484

791

799

. 85484

1415
1046

6479
1930

2000+

85384

113

1927

1997«

1978+

€538
611

6476

SEQ 0181

2000

2006

6507
6518
6535
6491+

€513
6524

390

6489

6491

6496+

6507+

6518+

6529+

85404

1469

784
1081
1202

82844
8428#

668

85554
1290

1489

809

695
817

1305

1317

84444

1452

84354

1263

1268

1273

1325

1331

84644

85524
706

828

85464

718

725

735

744

1322

1327

1333

1449

1454

85564

1487

83824
704
826

83404

716

723

733

177570
015614
003376
003366

[0 o R
N
e b b
e
p—y
S WL
D —
o]
VIOV
OWNOWO
TM~ W=
O N0 H—= v

DDISP =
DELTA
DEVCNT
DEVICT

183

1102

82984

83714
83724
1462

1467

1472

1477

769

782

789

797

1071

1079

84064

1831+

8688+

9013+

676

1482

684
807

815

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44
OLT
ODMD

DNO
DN1
DN2
DOCC
DOIT
DPCA
DPE
DPEHI
DPELO
DPR
DR
DRCLR
DRY
DSWR
DS

= 100000
= 000001

=
=
=
=
=
=
=
=
=
=
=
=

5885
6172

1612#
16134
16144
1593#
2221
15904
1577#
15414
15404
15674
16734
17264
15664
3764
16744
2775%
3958«
4694«

5419
6341«
16754
15804
1592#
610
1130
660
1151
1196
1237
1247
1289
1310

DT
003434
DTE
= 010000
DTRM = 000200
DT
071750
DT10S
072132
DT
072032
DT111
072146
DT121
072162
DT130
072174
DT132
072204
DT142
072222
DT146
072234

072250
072262
072272
072302
071762

DT34
DT35
DT36
DT4
DT41
DTS

072042
072052
072056
072006
072066
072020

DTS2
DT71
DT76
DUPORT
DVA
=
DYNO

072074
072110
072120
047624
004000
020650

D73

071774

3372
5327
5610
5893
6301

1528#
1585#
5596

000001
000002
000004
000400
007576
000040
000020
040000
020000
000400
003430
000011
000200
177570
003432

DT147
DT170
DT171
DT172
DT2

N 14
MACY11 30A(7052)
12=JuUL=79
10:46 PAGE 184
CROSS REFERENCE TABLE == USER SYMBOLS

;

1184
1414
845
1044
617
623

836
862
853
629
881
9%%

950
1054
1086
6391
15584
3524

SEQ 0182
5462
5749
6032
6315

3777

3878
5467
5750
6033
631¢

3979
5468
5751
€034

4067

5469
5752
6160

6787
5470
5878
6167

2575«
3441«

2624
3548+

2664*
3653+

2692+
3756+

2716+
3857+

22394

2128
3126

2304*
2925

4168«
4853«

5636+

3780

2351«

3009+
4218

4906+

5701~

3675
3570

3675

2489%
3104~

2524
3246+

4268~
4959«

£323

5777

5017«
5842+

85224

2551«
3351«

4376
5052+

5918«

4429+
5114+
5983+

1488

85074

4482+
5154~

4588+

4641+

6059+

4535+
5219+
6124~

734

743

5278+
6200+

5354+
6265+

3881

84904

85164
1453

85184

1264

1269

1274

1326

1332

8529

1473

1478

790

798

685
808

3535

3640

84924

677

1483

694
816

705

827

717

84984

724

3844

3945

6767

85104
3428

3743

MACY11 30A(7052)

MASSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

L65#

Ommx\bmwwm—a—-ooog
OWrOWNR0D—=0N—=

Y a» Lo )

o OVOWN=VWN=DNOVOWNW=O=NOH

el
il
i

e e e e e

—d —d cnd
D
D
D —d
e
—d
e
—

o, T

) e

607

O
OO ONNUNUNUNON)
= =
N = =2
v N BWNNVIN
= 2O 0 0V000N00 NN

EMTVEC= 000030
EM1
055040
055607
EM10
EM100
060743
EM101
061030
061075
EMI02
EM103
061126
EM104
061304
061475
EM10S
EMI06
061542
EM107
061570
055643
EM11
061677
EM110
061771
EM111
062044
EM112
062071
EM113
EM114
062166
062264
EM115
062376
EM116
062430
EM117
055704
EM12
EM120
062526
062567
EM121
EM122
062652
062704
EM123
062757
EM124
EM125
063052
EM126
063146
063237
EM127
055724
EM13
063335
EM130
063407
EM131
063441
EM132
063475
EM133
063576
CM134
063657
EM135
063713
EM136
063774
EM137
055773
EM14
064075
EM140
EM141
064152
EM142
064226
EM143
064300
064354
EM144
EM145
064442
064507
EM146
064560
EMI147
056017
EM15
064651
EM150
065003
EM151
065105
EM152
065155
EM153
065241
EM154
EM155
065332
065420
EM156
065511
EM157

B 15
12=-JUL=79 10:46

PAGE 185

CROSS REFERENCE TABLE == USER SYMBOLS

1807+
72844

73494

76478
76574
76654
76704
76894
7710#
77174
77214
73544
77334
77434
7751#
77554
77664
77774
77904
77954
73604
78064
7812*
78224
78274
78354
78464
78574
78674
73634
78784
78864
78914
78964
79084
79174
7922#
79314

73704
79434
79514

79554
79664
79744
79844
79914
79984
73744

80084
80244
80364
80434

80534
8063#
80734
8084#

1808+

SEQ 0183

MASSBUS RH70 AND RH11_DIAGNOSTIC

(ZRHBE .P11

07=JUN=79 13:44

EM16
EM160
EM161
EM162
EM163
EM164
EM165
EM166
EM167
EM17
EM171
EM172
EM173
EM174
EM175
EM176
EM177
EM2
EM20
EM200
EM201
EM202
EM203
EM204
EM20S
EM206
EM207
EM21
EM22
EM23
EM24
EM25
EM26
EM27

056043
065605
065674
065763
066052
066130
066217
066315
066374
056063
066473
066545
066566
066652
066703
066743
066776
055100
056132
067043
067125
067207
067271
067351
067436
067522
067546
056163
056212
056245
056264
056315
056347
056375

698
1365
1371
1377
1382
1388
1394
1400
1406
708
1417
1424
1430
1436
1441
1446
1451
613
721
1456
1461
1466
1471
1476
1481
1486
1491
728
738
747
757
764
774
787

EM20
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM4
EM40

056430
056465
056524
056553
056623
056673
056725
056763
055214
057014

794
802
812
820
831
841
349
858
626
867

EM43
EM44
EM4S
EM46

057330
057374
057466
057541

895
901
909
916

EMS

055254

632

057752

937
943

EmM3

EM41T
EM4L2

EM4L7
EMSO

EMS1

[EM52

055140

057154
057257

057622

0575673

060003

MACYT1

620

876
887

923
930

30A(7052)

CROSS REFERENCE

7378#

8095#
81054
81154
81264
B135#4
81454
81574
81664
73814

81774
8185#
81884
81974
82024
8208#

82134

72904
73884
8220#
82294

8238#
82474
82564
82654
82744
82794
73934

73974
74024
74054
76104
74154
74194
72964
74244
74294
74354
7439
74464
74534
74584
74644
73044

74694
74854
74974
7504#
75104
75204
75284
75374
73104
75444
75524
75574

12=JUL=79

c15
10:46

PAGE 186

TABLE == USER SYMBOLS

SEQ 0184

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE.P11

EMS3
EMS4
EMSS
EMS6
EMS7

EM6
EM60
EM61
EM62
EM63
EM64
EMES
EM66
EM67
EM7
EM70
EM71
EM72
EM73
EM74
EM7S
EM76

060156
060164
060171
060176
060204

EM77

ENDPAS
ENPS
=
ERPIP
ERR
=
ERRIP
ERRTST

MACY11

07=JUN=79 13:44

955
91
%7
973
579

CROSS REFERENCE

638
985
991
997
1003
1009
1015
1021
1027
645
1033
1039
1049
1059
1068
1076
1083

045140
004000
025474
040000
025456
050210

64 704
15964
4227
15704
4223
2071

4230#
2128
4206M
2177

4181
4866

4231
4919

1089

2963

3057

ERR1
ERR10
ERR11
ERR2
ERR29
ERR3
ERR30
ERRG

006546
013246
014424
007232
025752
011116
024446
007274

2068
2702
2879
2141
4277
2395
4071
2188

2071
2722#
28834
2163
4280W
2399
4076
21904

ERR6
ERR7
ERTIP
ER1

012152
012464
034062
003436

2560
2630
5156
16764
2776«
3959%

2476

4695+

3420

ERIR
EVENAD

025216
004000

4177
17524

10:46

PAGE

187

SEQ 0185

76334

5800
458%#
2022

011404

D15

TABLE == USER SYMBOLS

73174
75824
75834
7584#
75854
7587#
75884
7589#
75904
7342k
7594
75944
76048
76094
75134
76174
7e214

ERRVE(= 000004

ERRS

12=JUL=79

75774
75784
75794
75804
7581

055325
060212
060217
060224
060231
060237
060244
060252
060257
055541
060265
060273
060362
060417
060446
060474
060524

060631

30A(7052)

5866
1820
2023«

6427
2190

2240

2280

2320

2383

2449

2495

2592

4281
4972
5941
1821+

4336
5073

4389
5175

4452
5236

+495
5302
6223
1892

3918

4019

4080

4132

4548
5377

4654
5518

4707
5584

4760
5659

4813
5725

2047+

6289
1895+
2055

4601
5443

3165

2037+«

3307

6007
1832+«
2040+

3412

3502

3607

3714

3817

6364
1898+
2056+

6461
1901+«
2061+

2634

6082
1859«
2043

6148
1860+
2044

68224
1904*
2070+

2352%
3010%
4219

2490%x
3105+
4L269%

2525+
3247%
4324x

2552+
3352%
4377

2576+
3442«
4430%

2625*
3549«
4483%

2665+
3654*
4536%

5778+

5843«

5919+

5984

4060

4349

4402

4508

2735

1908+

2884

1912«

8650

8651+

2693+

2717+

3757«
4589+

3858w
4642+

6125

6201+

6266+

L667

6773

LB79

21774

2411
4079

24494

25804
26334
51624
2216%
2832«
4055+

2265%
2871«
4120%

2305«
2926*
4169%

5496*

5561«

Q4954

4748+

41804
3825

4LBO1+

4092

4B54~

4907+

5637+

- 5702+

4143

4193

4960+

4243

5C18%

4296

5053

5115x«

5155%x

5220+

5279%

5355«

MASSBUS RH70 AND RH11

(ZRHBE .P11

FAKE70
FANG
FANGIE
FANGY
FAST

FERR

FIND
FINDIT

4932
5509
6211

006474
033336
021306
034142
033124

050010
047714

FIT
FITIT
FOOEY

020524
020060
025200

FROG

024124

2056
4985
3516
5085
5031

15874

2164
2147

3425
3624
4173

050034

2142

3929

GAP
= 000020
GIGO
005246
GIGO1
005422
GIGO2
005562
GIGO3
005722
GIGO4
006146
GIG]
005260
GIG2
005434
GIG3
005574
GIG4
005734
GI1
005402
GI2
005542
Gi3
005702
GI4
006034
GNS

G02
GO3

GO4

HEADER

1961
1982

HEDZ2

050402

HED21

051241

4990
5601
6306

5025~
5650
6352

5128
5883

5038

50404

1937
19394

2001
1958

6492
6508

6503

1959
19184
19424

1980
1932

1999
1935

2008#

1992

051137

051177

69314

5026
5742
6355

5088
5791
8525

10:46

PAGE

5089
5877+

:
5184
5932

5313«
6024

5319
€073

5368
6159«

SEQ 0186
5460
6165

67804
67654
35044
34264
L1764

67854
40204

19604
19814

19634
19844

19974
1838
6483
6698
9187
3091

6808

20604
50744
36114
51764
5036

1994
476
2419
6683
9184
1552#
25634
2704
1929

6810
17474
68514
68884
68954
6900#
69044
69094
69144
69194
69254

050641

188

1931
16574

1950
1971

006030

050705
050736
050766
051017
051047
051077

CROSS REFERENCE TABLE == USER SYMBCLS

1890
1952

1973

072412

HED11
HED12
HED13
HED14
HED15
HED16

HED2O

1938
1916
1940

005530
005670

050200
003460
050342

HED17

1955
1976

000001
012034
013124
005370

HEDADD
HEDDAD
HED1

HED10

16174
19154
1934

= wwwxen |

GO
=
GOOF
GOOFED
GO1

30A(7u52)

49588
5595«
6214

J2=JUL=79

E 15

MACY11

07=JUN=79 13:44

= 000004

FOUND

DIAGNOSTIC

1979
1998

6519
6530

’

19364

1978#

g
1842

6487
£702
9188
3233

1873

6499
6710
9189
3338

19334
19544
19754
19964

68574

B569

69374

8584

8583

1885

1924

1945

1966

1987

6809+«

6810

2004

6522
6726

6533
6733

6581
6830

6588
6836

6630
9180

6645
9181

3428

3535

3640

3743

3844

3945

6767

85674

68134
6808+
8568
8575
8576
8577
8578
8579
8580
8581
8582

1879

6511
6719

2051

6671 .
9182

2066

6675
9183

MASSBUS RH70 AND RH11 DIAGNCSTIC
CZRHBE.P11
07=JUN=7S 13:44

HED22
HED23

051303
051346

69424
6969#

8585
8586

HED2S
HED6
HED27
HED3
HED3D

051464
051526
051570
050427
(51632

69634
69694
69754
68614
6981#

8588
8589
8590
8570
8591

HED32

051741

6994#

8593

HED4
HED4D
HED41

050466
052377
050464

6867#
70454
7054#

052657
052746
053011
053076
050525

70754
70854
70914
71004
68734

8603
8604
8605
8606
8572

7139%

8611

MEDL

HED31

HED33
HED34
HED3S
HED36
HED37

HED42
HED43

HED4G
HED4S
HED4S
HED47
HEDS

HEDSO
HEDS1
HEDS2
HEDS3
HEDSG
HEDSS
HEDS6
HEDS7
HED6
HED6D
HED61
HED62
HED63
HED64
HED6S

HEDS66
HED67

HED7
HED70
HED71
HED72
HED73
HED74
HED7S
HED76
HERADD=
HERE
HIBYTE
HT
=

051422

6957#

051674

6987#

052021
052076
052153
052231
052305

70034
70114
70194
7027#
70354

052530
052601

053155
053242
053321
053400
053444
053510
053547
053623
050556
053672
053745
054013
054066
054135
054210

05425¢
054337
050610
054401
054455
054523

054577
054646
054722
054770
177742

007326
012206
000011

HURTS
010462
ICPA
= 000010

70604
70674

7108%
7117#
7125#
7133%

71454
7151%

71594
68784
71664
7174%
71814
7189%
7196#
7206#
7211%
7219%
68834
70068
72348
72414

70L9%
70564
7064t
72714
16564

2203#
2584
3684

2356
15884

F 15

MACY11 30A(1052)
12=JUL=79
10:46
PAGE 189
CROSS REFERENCE TABLE == USER SYMBOLS

8587

8552

859
8595
85%
8597
8598

8571
8595
8600

8601
8602

8607
8608
8609
8610

8612
8613

8614
8573
8615
8616
8617
8618
8619
8620
8621
8622
8574
8623
8624
8625

8626
8627
B628
8629
6727

2229
0586
8764

23584
4028

8805

SEQ 0187

IR
IS
ISLK
1TDO
JUMP
KIPARO=
KIPAR1=
KIPAR?2=
KIPAR3=

WO o N~
W
nOWNOO
&~
‘
BRyay

NN =

N =
s

IPCK1

IPCK2
IPCKk3

WL
&H

1PCKO

nuwnnwnn

ILF
IN
IOTVEC

034454
000100 000001
044462
000020
000001
000002
000004
000010
000100

—_,

IETST

1E3

000020
000100

v (P H VR,

IDPA
IE

"nn

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

MACY11

30A(3052)

3233

ROSS REFERENCE

12=JUL=79

G 15

10:46

PAGE

TABLE

== USER

3338

3428

3640

2472
3780

3570
3881

3675

6792

6792
6792
3517
6792

]

5892

5893

5890

SYMBOLS

190

SEQ 0188

3743

3844

3945

5191

5192

6393

6019

6026

6031

6032

6033

6034

6792

5891

KIPARG=
K IPARS=
K IPARG=
KIPAR7=
K IPDRO=
KIPDR1=
KIPDR2=

KIPDR3=
KIPDR4=

LF
=
LOOCNT

2749+

2797+

5328
6019
3124

6033
3266

LOOKED
LOOKFO

MCLK

047740

= 000002

MCPE

= 020000

MCPET

024224

MINUS
MITE
MIXIT
MMVE
C

004120
032676
023466
000250

MEMERR= 177744

MOAR
MOL

15594

16574
17684

4904

046532

6632%

046547

6634m

210000

15684

L0424

2724

50054

39434

5467

2799«

2802

2804+

6377+

6448

6450

5469

5596
6172
3428

5608
6174
3535

5610
6201
3640

5749
6315
3776

6160
3338

WIANN

51744

LEAP
LEAVE
LEFOUT
LERADD=

WO
NN
SN

KIPDRS=

K IPDR6=
KIPDR7=
KONG
LEAGUE

6454w
5751,
2844

66454

MORE
046676
MORE 2
046666
MPE
= 000400

66478
15214

6659
0653
2ic

MPETST

4059

L0627

6787

= 004000

NEXTST
046564
NOOP
= 000001
OAB
= 125252

OABTST
ODDAD

014244
004002

OFFSET
OFF11

003456
003402

ONE
OPI
OR

(047200
003452
000020
002000

PGETST

022734

PIRQ

= 177772

PIRQVE= 000240
PLACE
020544

PRIBIT

PRTBIT
PRO
=
PR1
=
PR2
=

PR3
PRG
PRS
PR6
PR7

=
=
=
=
=

PSEL
=
PSW
=
PWRVE
C=
RBUF

046736

(046726
000000
000049
000100

000140
000200
000240
000300
000340
177776

02000
177776
000024
uC4100

3777

3878

3979

4067

3267

4015

4067

6787

3372

3462

3569

3674

3764

3813

3878

3931

3933

3125

3267

33?2

24662

3569

3661

3710

3777

3878

3979

4067

3112

3161

3267

3372

3462

35€9

3674

3777

3878

3979

4067

2844
6236
28574

3217

5250

5313

5391

5532

5595

5673

5813

5877

4720

4826

4990~

5089

5127+

5365

5506

5647

5788

2015«

2016+

2017

2018«

2019

6538

6540

6543+

6545+

2795
3881
2360

2802

6632

6647

2365

2373

2377

2783

2809

2814

2835

2847

6457~
6787
3372

3462

3569

3674

3777

3865

3914

3979

4067

3945

64643

€767

5249+
5710

3125

2698
6159
2855

4561

6807+
2010
. 6548~
2675
3128

2334
6772

013696
050332

PARITY
PASS
PAT
=
PGE
=

3674

66394

= 00C001
= (20000
= 000200

ORSET
OUTOF

3569

4614

6809
2011
6549
2750
2780
2355
6787

68384
17394
15174
15234

6387
3725
3125

6455
6772
3267

3840

38424

5189
3233

3338

3428

3535

3640

3743

3844

8696

- 8697+

5530

8712«
2170~

8724+
3321
5571

8725+

5430

8706«
2165+
5531«

3754

L4694

6633
6648
3924
3934
3044
3954
3964
3974
3984
3904

3724

15574

3734

LbLa
17554

5389

373
3091
6375«
1811«

2143
5390~

1812+
2148+
5428

2153

2158+

5569

3727

5671

021330

15914
15254

3462

aon)
0

NEDERR

NEM

3966

3408

3267

SEQ 0189

MYSTIC
014244
NEBL
= 000100
NED
= 010000

15224
3938
28584

3359

3125

024356

= 001000

191

aono

MxF

6787

H 15
12=JUL=79
MACY11 30A(7052>
10:46
PAGE
(ROSS REFERENCE TABLE == USER SYMBOLS

WILN

MASSBUS RH7C AND RH11 DIAGNOSTIC
CZRHBE .P11
C/7=JUN=79 13:44

07=JUN=7G 13:44

5813+

004102
004104,

RBUF1
RBUF
2
RBUF
3

&
RBUF
RBUF
5

RDCHR
RDL IN

RDOCT
RDY

nnnn

RBUF
6
RBUF
7

000200

6706

17564
1757#

1762#
9085
9126
1875
15544

3183
3428
3760

5035
5283
5614
5901
€205

READZ2
READ3
READ4

READS
READ6

muwnwnnmnnn

READO
READ1

013566
034172
00001
000072
000073
000074
000075
000076
000077

003404
006054
045374
000010
RETAIN 003410
RETURN
- 046720
RFAIL = 000100
RHAS
003346
RHBA
003334
REGEND
RESTAR
RESTAT
RESVEC=

6712+

I 15

CROSS REFERENCE

12=JUL=79
10:46
PAGE
TABLE == USER SYMBOLS

192

5953
6713

5952
6720

6
6

5954+

6721+

6094
6728

6095+
4729

SEG 0190

6235
6736

6236+

2992

3078
3326
3657

8510

6274
8529

6704+
8535

6705+

17584
1759#
1760#
17614

4146
4359
4592
4831

RDYSET
READY

5851

30A(i052)

(ZRHBE .7 11

MACYT1

WN'WN

MASSRUS RRW70 AND RH1T_DIAGNCSTIC

91874

91884
1881

2753
3188
3445
3832

4151

4380

T 4619
4836
5056

1887

2758
3200
3523
3837

6172
4407
4624
4857
5092

1926

2779
3205
3528
3844

4196

4412

4645
4884

1947

2903
3211
3535
3861

4201
44633
4672
4889

1968

2908
3220
3552
3945

4222
4460
4677
4910

5337
5641
5961
6248

.
5097
5359
5679
5966
6270

5118
5397
5684
5988
6319

5188#
3076

3322

4295

422

5395

5743

5536

6025

3091
6307

3233
6767

3338

34,28

3535

1889+
1914

2016

6546

5332
5619
5923

6243
6767
27834

1791«

1906

1974

1937+

6651

4243
4579
4932+

5
5647
6024+
6381+

4730
4963

5732
5402
5706
6037
6324

3743

3844

3091
3338
3736

4058
4301
4518
4751
4995

4102
4327
4566
4783

4804

6173
6746

6183
6751

4935

5021
5256
5543
5847

5202
5500
5820
6107
6407

3945

4776

4829

1888+
1910
1995

6480

64948

6506

1996

6517

20004
6528

1958+

2001%

2039

6492+

6508+

6519«

6530+

2268
2655
2731

2271
2676
2766
3216~
3949

2276
2677
2822
3237

2342
2683
2900+
3342

2480
2699~
2916
3432

2515
2700
2978+
3520~

1956

66544
35128

1979«

1998+

3780

3881

2249+
2648+
2723
3067+
3727+

2250
2649
2725
3070+
3747

2255
2650
2729+

4259
4614

4950
5319w
5671«
6050
6414

4296+
4632
4988+«

5345
5692
6070
6432

3095
3825«
4314
L667%
5008
5365
742+
6094+

1977

3179«
3848

4349s
4685

5026+
5389w
5768
6115

4367
4720%

5043
5410
5788 6165+

4045
4402+

4738

5088~
5460
5812+
€191

4110

4455«
4791
5128+
5506

5883+
6235~

4143

4473

4826+

5145
5530+
5909
6256

3108

3355
3743

4159
4508
4844

5184+
5551
229
6306+

4123
4354
4571

5030
5261
5565

.2542

2701

3539

4193
4526
L8759+
5210

5601»
5953
6332

MASSBUS RH70 AND RH11_DIAGNOSTIC

(ZRHBE .P11
RHBAE

RRCST

(003360

003330

07=JUN=79 13:44

30A(i052)

12=JUL=79

2301

4320
4668*
5014

4165
4562
4903

4215
4585
4933«

L265
4615+
4956

6297«
4638
4987

16284

2009

2020

2025

2110

3078
3225
3521

.3083
3232
3523

3090
3235
3528

3093
3250
3534

3108
3322«
3537

3947

3962

3731

L1446+

4257
4407
4539

4677
4829~
4948

5092
5208

2540
2903

3736

4146

4272
4412
6564

4683
4831
4963

5097
5223

2290

4116
4532
4880~

5351
5817«
6262

153

2289+

2212

5318«
5774
€240

PAGE

2261

2017~

2486
2867
3348

10:46

TABLE == USER SYMBOLS

2012

2398
2828
3320~

J 15

CROSS REFERENCE

16404

2513
2901~

MACY11

2521
2899+
3438

5394
5839
6305+
2564
2908

3742

2548
2922
3519+

5416
5882+«
6338

2613
2914

3745

2572
2977+
3545

5459%
5915
6380~
2653
2929

3760

2621
3022
3828+

231¢€

4350
4691
5049

2609
3020
3753

23n

2689
3101
3955

2713
3178«
4051

4373
4721
5111

4403~
4744
215

4426
L774*
5187«

4456%
4797
5216

4479
4509+
4827
4850
5253« - 5275

5698
6164

5741
6197

2113

2148

2204

2253

2293

2340

2407

2478

3181~
3326
3552

3183
3331
3626«

3188
3337
3628

3200
3340
3633

3205
3355
3639

321
3427
3642

3218«
3430
3657

3220
3445
3729+

2607+
3006
3623«

5492
5958+«
6420

2681
2982%

3829«

2608
3018
3650

5535«
5980
6541
2705
2984x

4043

4058

4062

4299+
4418
4566

4301
4433
4571

4306
4458«
6577

4312
4460
4592

4698
4836
4993%

5103
5254*

5408

4723%
4842
4995

5118
5256

5424

4172

4194

2758
2992

3837

5633
6099+«
2764
2998

3843

5676+
6121
2779
3015

3846

2820
3040

3861

2772
3243
4093+

2859
3076+

3944

4196

4201

4095+«

4097

4102

4108

4123

4327
4465
4617«

4352
4471
4619

4354
4486
4624

4365
4513

4380
4518

4405+
4524

5137
5283

5143
5320«

5484

5158
5332

5500

4359
4511«
4630
4778
4910
5035
5191~
5337

4645
4783
4935«
5041
5192
5343

4670
4789
4937
5056
5197
5359

4672
4804
4942
5090+
5202
5395

4730
4882%
5006

4736
4884
5021

5461*

5473

5478

5132
5267

3832

5600+
6056

2394

4064

4725
4857
5000

5130~
5261

2753
2987

3830«

4037
4157

5557
6023
6547

2661
3073+
3854

2348

SEQ 019N

2308

4032

4151

4751
4889
5028+«

4207

L776%
4895
5030

4222

5536+

L244%

5538

4246

5543

4251

5397

5402

5549

‘6113

6129

6166«

6178

. 6183

6189

6205

6241+

6243

6248

6254

62790

6307+

003364

égg%fi

2020+

2021+

3160+

3302

3407+

3497+

3604

3709+

3812«

3913«

40T4*

6550w

RHCS2

003340

16324

2024+

2088+

2089+

2117

2120

2143

2153

2184~

2185«

2203+

2214

2252

4914

4957

L4967

5015

5050

RHCS1B

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=7G 13:44

RHDB
RHDT
RHER

003352
003356
003344

K 15

MACY11 30A(7052)
12=JUL=79
10:46
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

5060
* 5699

5162
5981
2785

16374
16394
16344

003354

5217
6122
2807

5276
6198
2838

5352
6263
2840

5417
6339
2845+

5493
6421
2877

5558
6549+

5634
6791

2265
2871

2926

2305

2352
3010

2490
3105

2525

2552
3352

2576
3442

2625
3549

RHMRZ2

RHNINT

RHST

003336

044636

- 003342

RHTDB.

003350

5561
6776
5327«
5608+
5885
6160~
6317
2307
2928
a7

16384

16314

6426

6392

16334

2165

5419
6341

1636w

5250+

5736+

RHTEST
RHVE C
RHW(

006352
003316

003332

2035
14994
16294

6435

2201

3624*
4242+
4931«

RHWCA

RHWCT
RH11

RH11BA

011606

011424
006540
C06406

2530

25084
2044
2048#

2205
2534+
2593
2979
3643

4258
4613
4949
5315»

5670«
6049

6020+
6382+

6413
-

2059

20694

SEQ 0192

5168
6057
2787

4120
4801

RHMRY

194

4169
4854

4219
4907

4269
4960

5328
5609
5890+
6167

2354
3012

5637

4430
5115

4483

5778

4377
5053
5919

5329+
5610+
5891«
6172

5330%
5611
5892+
6173+

5462+
5737«
5894«
6175+

5467+
5744>
6019+
6176+

5468+
5749«
6026+

2492
3107

2527

2578
3444

2627
3551

2667

5780

5845

5702

4856

5639

4221
4909
5704

4271
4962

2264
2870

2304
2925

2351
3009

4119
4800

5560
6427
2491
2945

4030«
4696

5282
5532+
5781
5992
6214

4432

4485

5157
6062

5986

2551

2575
3441

5155
6060

6301+
3656
4538
5222

6127
2624
3548

4168
4853

4218
4906
5701

4429

4482

2526

2553

269
3550
4325
5019
5421
5650
5853
6096+
6300+

2718
3655

5636
6781
3011

5114
5983

3106

4121
4802

5356
5564
5814~
6018~
6267

2222

2254

2536
2654

3074+
3746

5984

2341
2580
2895+
3341

2821
3236

4091+
4419
4772+
5104

5485
5832
€208

4142+
4472
4825+

5144
5529+
5908
655

5154
6059

4378

5054
5423
5673
5920
6126
6343

2479
2581+

“ €919

3431

4158

4507+

4843
5190

5550
5926
6302

MASSBUS RH70 AND RH11_DIAGNOSTIC

CZRHBE .P11

MACYT1

07=JUN=79 13:44

CROSS REFERENCE

RH70BA
RH70TT

006502
006450

20624
20472

RITURN
RMBEX =
RMR
=
ROTEEN

046724
000040
000004
045604

6613
1578#
15754
6475

2055#
50664
6617
2135
2135
65164

3382

2113
3451

033302

5061

SA200
005274
SC
= 100000

= 001000

= 177576

15944
5878
2374
5226
494
.
4954
L96H

STACK = 000750
START
004214

3634
1783

SUPER
SWR

5057
5594
9021
L7884
474
L1748
L16#
AN
A14s
4134
4124
4114

SNAFOO 010566
SPLIT
(34466
SRO
= 177572
=

177574

SR3

= 172516

SWREG
000176
Sw0
= 000001

Sw10
Sw1l
Sw12
Sw13
Swi4
SWw15
SW2
Sw3
Swé
Sw5
Swé6
SW7 *
Sw8
SW9

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

Swl

SEQ 0193

3122
3472
3867

3135
3558
3871

3256
3562
3875

3264
3579
3968

3277
3663
3972

3361
3667
3976

3365
3671
3989

5609
5892

5610
5893

5611
€019

5744
6031

5749
6032

5750
6033

5751
6034

5752

8659

8661

8667

8674

8704

8717~

9014

4010

3369
3684

4064

52354

3744

033256
001140

=
=
=
=
=
=
=
=
=
=

195

L4974

STKLMT= 177774

SW00
SW01
SW02
Sw03
Sw04
SW0S
Sw0é
Sw07
SW08
Sw09

18654
18694

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

e
“

1824

1830~

8645

6612
3298

6802
3403

6824
3493

3600

3808

3909

3298
3298

3403

3493
3493

3600
3600

3808
3808

3909

4104
409
408#

= 000002

4264

4074
4064
4054
L04n
4034
4024
4254
4244
4234
L4224
vl
4204
4194
4184

SR1

SR2

37720
6451

SLKM

3766
16154
17304
1862
1867 -

000010
000031
004624
004640 .

L 15
12=JUL.=79
10:46 : PAGE
TABLE == USER SYMBOLS

3881
3881

19214

SCLKk
=
SEARCH=
SKIPIN
SLEUTH

1919
156284

CIWN

RITEON

30A(i052)

3909

M 15

MASSBUS RH70 AND RH11 DIAGNOST!C
CZRHBE .P1
07=JUN=79 13:44

TBITVE= 000014

003440

;

L60%

TDR

003442

TPVEC =
TRAPED
TRAPVE=
TRE
=

025324
046746
000060
010020

000064
047616
000034
040000

TREB

= 000100

TSTADD
TSTIE
TSTNM

006252
034306
003454

TRTVEC= 000014

TSTNMA

ATSTNMB

TS
TST10
TST11
TST12
TST13
TST14
TST15
TST16
TST17
TST2
TST20

TST21
TST22
TST23
TST24
TST25
TS126
TST27
TST3
TST30
hrsrs1
TST32
TST33
TST34

050202

050104

004546
010614
011126
011414
012256
012474
013344
014434
015020
006552

015466

016260
017254
020040
020524
021306
022056
022622
007236
023372
024124
024456
024750
025226

SEQ 0194

2218+

2267+

2307»

2354x

2492x

2527%

2554%

Q578x

2627+

2667%

2695«

2719w

3961+

4057+

4122«

4171%

4221%

4326%

4379%

4432%

L4BS*

4538+

4591+

4bh4r

gégzt

2232-

5563*

5639+

4909+

4271%

5704%

4962+«

5020%

5055+

5921x

5986%

6062*

6127*

6203+

6268+

16784
2777«
3960«

2217+«
2833«
4056

2353%
3011+
4220%

2491x
3106*
4270%

2526%
3248+«
4325%x

2553%
3353«
4378%

2577x
3443«
4431x

2626%
3550«
44B4x

2666*
3655«
4537+

269%*
3758+
4590*

2718
3859
4643

5779%

5844x

5054*

5116%

2778~

2834+

4749+

4197
1859
L6748
2269
4684
6716
L4664
15604

3380
3766

2306*
2927+
4170%

4202
1901

4204
1904

L2064
1908

1912

66634

2274

22784

5562+«

67384
1809+

1810~

2113

3114

3451
3768

8505
8533

6803

6805

6800#

9023

31734
33154
34204
35114
36184
37234
38234
21834
39264
40264
40884
4090
4141

2266%
2872«
4121+

5780%

4961«

6557
5203
6800+

30644

4B56*

3107*

4908+

20224
5198
1745#

1790
23894
24574
2461
26034
2605
27464
28944
29724
1864

4BO3+

3012«

4855+

3160

8502
8529

2928+

4B02*

223;*

15614

L4614

2873+«

4750%

L696*

2%2%-

THREE
TIEOUT
TKVEC =
TOIT

196

16778

4697+

MACY11 30A(7052)
12=JUL=79
10:46
PAGE
(R0SS REFERENCE TABLE == USER SYMBOLS

3453
3774

3302

5205
6801+

8507
8535

5638+

3116

3459
3785

5703«

3122

3407

3497

52074
6806

6826*

8508

3133

3470
3867

3558
3869
3604

6827«

8510

68144

18544

25064

26454

20794

‘

41394
41894

8512

3249%
5845+

5019%

3256

3354%

5920«

3258

3444%

5117%

3551+

5157%

5156%

5221«

6061x

6126*

3264

3275

3361

3566
3886

3577
3968

3709

3812

3913

4014

6832

8490

8492

8494

8516

5222+

5985+«

3560
3875

8514

3656+

8518

3663
3970

8520

3759+

5281%

5280+

3860«

5357+

5356+

6202«

6267*

3363

3369

3665
3976

3671
3987

3682
4066

8496

8498

8500

8522

8525

8527

N 15
MACY11 30A(7052)
12=JuUL=79
10:46 PAGE 197
CROSS REFERENCE TABLE == USER SYMBOLS

MASSBUS RH70 AND RHT1_DIAGNOSTIC

CZRHBE.P11
TST35

1S136
TST37
1ST4

025504

025762
026254
007300

TST40
TST41
TST42
TST43
TST44
TST45
TST46
1S147
TSTS
TST50

026546
027040
027332
027€24
030116
030410
030702
031174
007606
031466

TST55
TST56
TST57
TST6
TST60
TST61
TST62
TST63
TST64
TST65
TST66
TST67

034142
034476
035040
010030
035472
036034
036466
037030
037462
040024
040456
041020

TST70

041452

TSTS1
TSTS2
TST53
TST54

1ST17

031760
032252
032544
033336

07=JUN=79 13:44
s

4191

423%%#
42924
43454

4347
4400
4453
4506
4559
4612
4665
4718
22484
4771

43984
L4514
45044L5574
46104
L6634
L7164
L7654

4241
4294
+ 21984

4824
4877
4930
5082#

51824
52454
53114
22864
53864
5452#
55274
55934
56684
57344
58094
5875#

010256

2288

TST71

042014

60164

TST74

043442

62324

TST72
TST73
TST75
TST76

T1ST77

TWANG
TWANGY
TWO
=
TYPDS =
TYPE
=

042446
043010
044004
044436

045136

033314
033326
000002
104405
104407

59504

48224
LB75#
4928#
49814

23264

60914
61574
62984
63714

64684
5065
5067
16894
6585
1836

6481
6673
8769
9092

TYPOC = 104402

2007

TYPON = 104404
TYPOS = 104403
|JUPE
= 020000

91834
91824
15264

UPETRE
017402
Us1t
= 000001

SEQ 0195

6833

3979
3327
15134

50694
5070

2011
6592

6705

2647
6662
1877
6509
6700
8957

6678

6551
6717

6586
6731
8981

6593
6811
8985

2049
6643
6828

2064
6654

8976

6579
6724
8979

9016

6490
8965

6514

6536

6680

6687

6707

6723

6730

2120

3267

3426

3449

3498

3556

3674

3777

3332
6772

3334

1840

6485
6681
8865

9096

4067

91814

1922

1943

1964

1985

6834
9024

B 16

MASSBUS RH70 AND RH11 _DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44
us2
= 000002
usé
= 000004
VECADD 003406

VvOUS

033030

MACY11 30AC7052)
12=JUL=79
10:46 PAGE 198
CROSS REFERENCE TABLE == USER SYMBOLS
6772
6772
1792«

1882+

5188+

6383«

2160

2167

2172

2228

2238

227%

2313

2494

2512

2539

2254
2654+
3643«

229+
2682+
3746+

2341«
2706+
3847+

2479+«
2765+
3948+

2511
2821+
4044

2514»
2860+
4109+

6255+«

6331+

6413+

5022

5025#

046362

2145

2150

2155

WATFIV
WATFOR

010246
010036

2309
2285#
167948

2314

23184

2562

003444

= 040000

WCEERR
WCEHI =
WCELO =
WCEOWT
WCERRT1
WCERR2

WCETRE
WCETST
WCTST
WHYFO

033730
010000
004000
033454
007462
007546
016610
016400
016474
007224

000051
000052
000053
000054
000055
000056
000057
000061

WRITE1=
WRITE2=
WRITE3=
WRITE4=
WRITES=
|[WRITE6=

000062
000063
000064
000065
000066
000067

ZERO

= 000000

2697

2721

2792

2843

2225+«
2561%
3094+

2227
2558~
3236+

2231«
2561
3341+

2235«
2565%
3431«

2236
2614
3538+

gg%g-

g??é.

g;g;'

5832+

5908+

5973«

6049%

4208+
4B96*

4258%
4949+

4313+
5007+

4366+
5042+

4419+
5104*

2882

4525+
5209+

6114

6190
3674

3777

3111

3130

2120
5171
5138
2104
2104
5098
22224
2234n

3125
6787
5140

3254

3303

3372

3462

3569

3126
3126
5100

51424
3373
3373
5102#

3570
3570

3675
3675

5066
5060

5162
5168

3153
3400
3660
3883

3226
3189
3206
2381

2961

3025

3030

3033

4126
4440
4807

3253
3467
3689
3897

22304
31934
3210#
2939

4078
4436
4758

3214
3448
3679
3893

3228
3191
3208
2782

4130
4489
4811

5286
5860

4175
4493
4860
5296
5935

4179
4542
4864

5371
5991

4225
4546
4913
5427
6001

4229
4595
4917

4275
4599
4966

16964
16974
16984
16994
1700#
17014
1702#
17164
4244
17174
17184
17194
17204
17214
1722#

3218

5028

5130

2901
4352

2982
4458

2954
4993

3181
5090

5602

5959

5884

6100

4405

4511

4564

4880
5535

4933
5600

4987
5612

1687#
3728

4827
5531

5165
5850

2581
3828

2587
4093

3272
3477
3693
3902

2593
4297

3282
3481
3698
3906

4631+
5344+

4684+
5409+

4737«
5485+

4790+
5550+

3878

3979

4067

3140

3144

3149

8490

3358
3574
3792
3998

3377
3584
3796
4003

3387
3588
3801
4007

3391
3593
3805
4061

5437
6076

5512
6132

5568
6142

5578
6217

5653
6273

5709
6283

5719
6358

3521
5191

3626
5320

3729
5818

3829
6393

3830
6744

4095

4144

4194

4617

6166

6241

5187
5672

5249
5676

5253
5741

3178
4509

3320
4562

3519
4615

3620
4668

2623
4721

3673
4774

2729
4403

3291
3490
3763
3984

4578%
5268+

3295
3555
3782
3996

2723
4350

3286
3486
3702
3965

66124

4472+
5744+

15274
5069
5133
15394
1538
5093
2202
2220
2221
3184
3201
2175#

2669

2205«
2538
2999«

5161
2223
WRCHO =
WRCH! =
WRCH2 =
WRCH3 =
WRCH4 =
WRCHS =
WRCH6 =
WRITEO=

2612

2535~
2915+

4158+
4BL3r

WCE

SEQ 0196

15144
15154
16594

WATBIT

2899
4456

5318
5753

4279
4648
4970

5330
5814

4330
4652
5024

5390
5817

4334
4701
5059

5294
5882

4383
4705
5063

5459
894

3396
3597
3864
4069

4387
4754
5121

471
5955

C 16

MASSBUS RH70 AND RH11 _DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

$CMTAG
$CM1
$CM2
$CM3
(M4
$CNTLG
$CNTLU
$CRLF

nnwnn

$AUTOB
$BDADR
$BDDAT
$BELL
$CHARC
$CKSWR=

$CS1
$CS2
$CS3
$DBLK

$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL
$EOP
SEOPCT
$ER
$ERFLG

$ERMAX
$ERRCR
$ERRPC

001134
001122
001126
001216
073452
Thkvan

6023

6035

9016

9037

1798
5724

6096

6099

8788

8797

8802#

1799

5734

1807
5744

1813

5744

5754
5754

5754

580#

6593
2110
2117
2101
8940
6596

6654
3124+
3125+
3126%
89484
6602#

1941

. 8781~

5724
571
5784

89444
65984

6578
2132

004134
001103

1928
5064

5936
8671+
1815+
9010
8490
8514
9020
8971
89564
6590

001115
074264
001116
001226
074130
001112
001214
001156
001155
001120
001124
046332

$HIOCT
SICNT

075012
001104
073220
001135
001114
001224
001106
001110

$ILLUP

001100
000006
000014
000006
000006
074663
0746556
001223

$ERRTB
$ERRTY
$ERTTL
$ESCAP
$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR=

$HD

5958
5564
551#
5534

MACY11 30A(7052)
12=JUL=79
10:46
PAGE 199
CROSS REFERENCE TABLE == USER SYMBOLS

LA 2

2 2

1814+

8774
8805

6164

1814

6176

6237

6240

6305-

6317

6380

6777

8976
3673«
3674~
3675+

8981
3776+
3777«
3778+

8985
3877«
3878+
3879+

9024
3978+
3079
3980+

4066+
4067+

9037

9105

3780+
3495

3881+
3602
5579
6804

3982+
3707
5654
6822

3810
5720

8635

8505

8507
8535

8508
8963

5764
5764

5774
577#

5814

5824

5834

6811
3266+
3267+
3268+

8770
3371%
3372+
3373+

8805
3461«
34624
3463~

8957
3568+
3569+
3570«

1962

1983

6556

65674

3128+

3270

3375

5227
6077

5232

6143

3465«
3158
5297
6218

3677
3405
5438
6359

5513
6441

8687+

8692

8492
8516

8494
8518

8496
8520

8522

8498

8502
8527

8504
8529

659«
8686+
8805

9017+
9032

9037
9034

9037

8679
87254

8681+

8691

9020+
9037

9037
9096

573«

1949
51€6
6002

8692
8665

9037

1970

9011«

1991

9037

= 000000

$INTAG
$ITEMB
$LF
$L PADR
$LPERR
$MAIL =

SEQ 0197

6688
8669
8758

6738
8685+
9026

$105
8669+

8691

8684~
9031

8689

8691

8533

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRMBE .P11
07=JUN=79 13:44

W
SMNE
SMSWR
SMXCNT
SNULL
SNWTST=

074701
074670
073056
001154
000001

D 16
12=JUL=79
MACY11 30A(7052)
10:46
PAGE 200
CROSS REFERENCE TABLE == USER SYMBOLS

9109#
91074

8805
2072#
2386
29654
3615

41824
4498
L8678

SOCNT

001222
074420

$RDOCT
$RDSZ =
$REGAD
$REGO

074712
000010
001160
001162

2074
24524
2967
3717#

4184
45494
4B6Y

21784
2454
30594
3719

2180
24984
3061
38184

21934
2500
31684
3820

5378#
5803
62904

L2328
4551
49204
5380
58674
6292

4234
46024
4922
54444
5869
63654

8844+
8680
6583

8855«
8688#
6605

88814

9037

9089

9105

2473
2606
2678
2845
3232«
3369
3535«
3682
3869

2475
2607
2698*
2878
3233«
3380
3558
3684
3871

2507«
2609
2699

2508
2629
2701

6128«
8492

3256
3382
3560
3742+
3875
5282+«
6204*
8494

3258
3427
%
3562
3743%
3886
5358«
6269
8496

5423
6345«
8498

2187

3179

3180~.

3216

3217+

2724

2728+

2730x

2582

2586+

2588«

8714+

8715«

87314
1811

1813

5305
5801#
6226
88794
8841
8670
6572«

073700
073702
073042
001100
073226
073060
073214
073132

$OVER
$PASS
$POWER
$PWRDN
$PWRMG
$PWRUP
$QUE
S
$RDCHR

SEQ 0198

8676

42844
4604
49734

5446
59424

6367

2195
25974
3170
29194

2283
27384
3416

40824
4392
L7614
5179
56604

4286
46554
4975
5519#

5944
64634

6085

2321#
2740
35054

L4438
4763

52374
5662
61494

8692

8724

$RDDEC= L3 8 5 & &4
$RDL IN
074540

>
3844
5922+

$RECS

$RHBA
$RHD3
$RHWC
$RTNAD

001164
001166
001170
001172
001174
004136
004140
004142
046354

= L2 2 8 823
$R2A
2 24
$SAVRE
= L228
224
$5AVR6 073
$SCOPE
072610
$SETUP= 000017

6785

$REG]
$REG2
$REG3
$REG4

5734
5744
5754
5764
17764
17774
17784
66044
9190
9190

§705+
. 1805

17974

4029

6063
8490

1786+«

1805

4030

1866

1870

1809

2310~
2509
2631
2750
2950
3260
3428+
3566
3766
3888

1814

2403+
2531~
2648
2788
3091~
3275
3453
3579
3770
3945+
5564«
6625
8525

2408
2533
2650
2793
3114
3277
3455
3639«
3774
3968
5640+
6765+
8529

1816

6569

2463+
2534
2670
2800~
3116
3337«
3459
3640+
3785
3970

2464

2467
2556+

6770+

2536
2672+
2806+
3118
3338+
3470
3663
3787
3972
5781~
6775

6780+

8645

9011

9029

5705+

2674
>

2807
3122
3361
3472

3843+
3976

5846+

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44
$SS1
=
$ST
$STUP =
$SVLAD
¥SVPC =
$SWR "=

9036

000000
004132
177777
073014
000214
167700

18344
17748
17974
8654
5264
3384
1814
2604

2927

4664

5528
6469
8659
9003

$SWRMK= 000000
$TIMES
001212

$TKB
$TKS
$TMPO
$TMPT

001146
001144
00117€
001200

$TMP2
$TMP3
$TMP4L
$TMPS
$TN
=

001202
001204
001206
001210
000100

359
58354

5624
5614
S77#
578#
2680

6781*

$TPE

$TPFLG
$TPS
$TRAP
$TRAP2
$TRP
=
$TRPAD
$TSTNM
STTYIN
STYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS

001152

001157
001150
075014
075036
000011
075050
001102
074646
sxsaxx
073704
073236
073406
073454
073502
(073516
073456

9111

2125

3127«

86834
531
349
1316

2646
4027

4717

5594
6564
8660
9004

360
1813+

3374%

3464%

3571«

3880+

354
1855

355
2080

356
2184

357
2199

583

:
353
1817

2747
4089

2895
4140

4770

4823

5669
6570
8663
9005

5735
597
t 64
9. )6

8640
1855+«

8641
2080*

2973
4190

4876

5810
6603
8665
9014

8661
2199

3065
4240

4929

5876
6605
8672
9021

8691

2311x

2316«

6640

2466*
6766%

2538+
6771

2611+
6776+

2652+
6777

6626

6632

2178

21844
24584
2965
36194

22494
2597
3168
38244

2281
26044
31744
3919
4232
44524

6678x
2082+«
1846

6624
6792+
6649~
6625«

6679
2138
18554

6685«
2140+
2072

6686
2161
2080#

4240k
4453
4708
49294

4241
4496
4717%#
4930

53874
5867
6299#

5444
58764
6365

568#
5634
1809
91684
91724
9162
5414
9082
9185
88944
87524
8773
8798
88354
8834
88304

8752
8792
91574
9179
91814
9179
6552«
9083

8794+

9184
9172
8780
8800
G181
88374
9182

4284
45054
4718
4973

42934
4506
4761
49824

54534
5942
63724

8805

4294
4549
47708
5075

5519
5951#
6463

55284
6008
64694

91834

8645
8728

5453

8682+

2880*
6791x
6647
6624*

2384
2747#
3505
4089%

8688

6372
8657
9002

8672«

2841+
6787x
6641
2945

2327#
2738
34214
4082

4611

5387

6554+

2271~

2321
26464
3414
4027#

4558

4982

4982+

2236*

2288
2637
33164
4021

2507
3824

2973x

2227+

2276%

3174
4293

1813

9029

9063
9061

2790%
6786*
6640*
2940

585
2458
3724

5951
8636
8673
9026

9057
G055

2703«
6782%
6623%
2900

SEQ 0199

3269%

9040
9040

6677«
2081
349

22878
2605
3309
3927#

E 16
MACYT1 30A(7052)
12=JUL=79
10:46
PAGE 201
CROSS REFERENCE TABLE == USER SYMBOLS

9042

5798
5804
5814
5824
3384

5644

23904
2888
35124
4090

4337
4558%
4771
5083#

2452
28954
3613
4133
L3464
4559
4814
5177

41404
4347
4602
48234
51834

4191
4443
L6644
4877

5585
6017#

55944
6083

5660
60924

G184#

;
91854

9187

91884

91895

51904

6569+
91044

6800

6826

8635

8661

8683+

8688

87924

8793

4665
4920

53124
5801
6233#

5378
58104
6290

9013

9037

8805
8805
9182#
6553«
9100

9180
8787
88034

9183

8692

MASSBUS RH70 AND RHT1

(ZRHBE .P11

07=JUN=79 13:44

EXTSTR 072620
$$GE T4= 000000
$OFILL
073701
$LOCAT=

wesnnn |

= 075972

DIAGNOSTIC

86484
65774
8831«
B645
L7248
1816

6512#
8708

F 16
12=JUL=79
MACYT1 30A(7052)
10:46
PAGE 202
CROSS REFERENCE TABLE == USER SYMBOLS

8845

88804

4814
18394

4834
18434

65344
8805

65824
8948%

526

18864

6605
89954

5274

19254
66064

9037

5294

19464

66314
9040

€314

19674

66464
91044

SEQ 0200

5384

1988#

67208
9105

589

2005#

68374
9111

17514

2175

8489#

17544

24208
8691

1802

65004
8692

i
G 16
MACY11 30A(7052)
12=JUL=79
10:46
PAGE 204
CROSS REFERENCE TABLE == MACRO NAMES

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE.P11
07=JUN=79 13:44

CLEARS
COMMEN
OBLTST
ENDCOM
ERRCR

2451#
1%

6765

4704

4089
L7048

6770

6780

6785

6790

4293

4399

4452

4505

2144

2149
2405
2493
2337
3047
3279
3410

2154
2422
2528

2379
2448
2791
3042
3262

3402
3587
3772
3908
4129
4541

£ SCAPE

MSG

5229
5435
5646
5798
6004
6213
6409

21784
2500
33094

2180
25964
3311

40824
4604

5305
63654

MULT

NEWTST

2178

3309

4443

5237

SAVE

5387

SCOPE

"|SETPR]

4084
4657

2159

2424
2555
2876
3054

4611

4823

4876

4929

2166
2426
2579
2881
3110
3290
3474
3607
3800
3991

2232
2434
2668
2951
3143
3357

2237
2436
2696
2957
3148
3367

2272
2438
2720
3024
3152
3384

4228
4647
5058
5294

4382
4757

5505
5657

6431

21924
2599
34144
41334

2243
36124

4184

4710
5446

2384

22641
3505

2597

3818

4549

4708

5519

5726

5942

3500
3697
3890
4017
43806
4806

5164
5370

5160
5367
5567
5723
5934
6137
6348
6759

5573
5784
5938
6140

2323
29654
38184

23844
2967
3820

4286
50754
5944

4869
5662

64634

3492
3692
3873
4009

2637

4133
4920
€008

6351

4339

5077
6010

2738

4182
4973

6083

2289

6371

o~ WESIN—= 2O
o QOWN--=0000HONO
0N
o o} N\ = SN O WWN W WO

REGCLR
REPORT
REWR

5378

o wviSH WO
S
o

PUSH

3789
3916

4174
4545
4965
5234
5440
5649
5849
6005
6216
6410

4916

GETPRI
GE TSWR

3592

4558

SEG 0201

5951
2513
3430

4524

5343
6411

2286
3618

4610

5593

6233
2563
3642

2613
3745

4630
5484

4683

2589
3823

2457
3926

4716

3734

5545

4769
5809

2653
3846

4736

5625

2506

4026
4822
5875

2681
3947

4789

5690

2603

4088

4875
5950

2704

4043
4842

5766

2645

4139
4928

6016

2820

4157
4548
5907

2894

62%9

€157

1%
1#
4612

SLASH

SPACE
STARS

4708
4

1704

1853

2321
2893
3717

,
SWRSU
TIMC

9188

9189

2288

2461

2605

4824

4090
4877

4141
4930

4191

4241

485
1724

.o
1728

524
1733

1735

589

1500

1662
1748

4718

2078
2384
2971
3818

3730

2359
3932

5537

1%
14
1%
1%

1%
1%
6832
4

6481
6708

1782#
532#
5324
H 4
14

2888

4232

1.SWRLO
JBACTT

9187

2328
3831

14
20724

TYPBIN
TYPDE(
TYPNAM
TYPNUM

.EQUAT .HEADE
K713
.SETUP
. SWRH

3722

5075
6149
91724
i 4
4612

it 4
14

14
14

3384
%

4284
4662

L4704

4724

5613
3090
4704
4704
4704
470%
4704
470%

8963

4704
6485
£717
5312
571
577
4704
4704

2965

4284

5177
6224

9181
4708
4665

3384
3384
3284
3384
338#
360#
3384

PAGE 205

9184

5074

2887#
G172#

$SSET
$ESKIP

c072
2325
2965

TABLE == MACRC NAMES

9183

5075
5592
6149
6618
6843
9045

TRESC
TRMTRP

XRCYSR
$$CMRE
$ECMTM
$SESCA
SENEWT

4704

1714

(ROSS REFERENCE

9182

1797

4238
4655
4991
5585
6090
6616
6840
9039

4671

TYPOCS
TYPOCT
.
TYPTXT

9181
4704
4708
4665
L70#

H 16
12=JUL=79
10:46

429N
4708
5081
5660
6156

6620
6847

1818#

4777
5678

4771

2087
2083
2388
2452
3059.
3063
. N9
382

4337
4715
5177
5667
6224
6664
6849
9113

2752

4031
4830

4344
4761
5181
5726
6231
6666
7279
9151

2808

4096
4,883

1740

2092
2456
3168
3925

2096
2498
3172

4021
4397
4814
5244
5801
6297

4390
4768
5237

5733
6290

6691

6693
8566

7281

2846

4145
4936

2902
4195
4994

1743

2178
2505
3309

2182
2597
3314

4025
4443

4082
4450
4867
5310

4821
5303
5808
6365
6741
8632

5867
6370
6743
8694

6036
3742

3077
4300
5091
6101
3843

2986

4245
5029

3232

5754
3337

6583

6590

6656

6660

648%

6501

6513

6524

6535

6679

1840
6509

1871
6520

1877

1883

6731
5594
573

579

2072
3168

4390
5303

6365
9183
2461 4771

5819
3427

534

5895
3534

5960
3639

6579

1921

6586

. 1942

6017

6158

6299

580

5876
575
581

2178
3309

2193
3414

2241
3505

2281
3613

2321
3717

6823
5735
574

4443
5378

6463
9184
2605

4824

6531
6834

4496

5444

9187
4090
4877

£628

SEQ 0202

4294

4347

4400

4453

4506

4559

1664

1681

1683
1766

1690
1779

1€93
1794

1846

1750
2193

2¢c41
2644
3505

2602
3414

4087

4496
4874
5378
5874

6463
6761
8710
— (N
—

9172#

SETTRA

30A(7052)

WwWwnoo
— NN

07=JUN=79 13:44

(ZRHBE .P11

SETUP
SKIF

MACYT1

wVaHW

MASSBUS RH?0 AND RH11 DIAGNOSTIC

6177
3944

4138

6467
6763
8737

3199

4406
5196

4549
4927
5444
5949
6560

2247
2738
3510

4182
4556

4973
5451,
6008

8807

6608
6798
8884

3219
4459

4512

3325

2281
2745
3613

4188
4602
4980

5519
6015
6610
6817
8951

3522

4565

1695

2285
2888
3617
4232
4609
4989

5526
€083

6614
6820
8998

3627

4618

6242

5255
6318

€706

6713

6722

6729

6736

1984

2002
6673

2048
6681

2064
6695

2617
6700

2597

2637
4133

6668

5331
6395

6745

5472

582

4549

5519

9188
4141
4930

4602
5585

9189
419N

4655

5€60

4241

2652
3919

2498

2738

4761

4021
4814

4082
4867

4920

4182
4973

4347

4400

4453

4506

4559

5801

5867

5942

6008

6083

‘

MASSBUS RMZ70 AND RH11

CZRHBE P11

07=JUN=7G 13:44

i
1
%
1%
¢
1%
1%
1%
1%
1%
1%
1%
1%
14
1%
1%
14
1%
14

SBAPTH
LBAPTH
BAPTY
.EASTA
.$CATC
LBCMTA
. $DE2D
.$0B20
8DV
LSEOP
.$ERRO
.BERRT
LBMULT
. $POWE
. SRAND
.$RDDE
.$RDOC
.$READ
.$R2AZ

.$SAVE
.$5B2D
.$SB20

14
14
14

.$SIZE
.$SUPR
.STRAP
.37YPB
.$TYPD
.STYPE

¥
14
14
14
14
4

.1170

.$SC0OP

.$TYPO
.$40CA

. ABS.

DIAGNOSTIC

14
14

075072

ERRORS DETECTEL:

3384
2I8m

470
532

3384
3284
33848

€558
B9%6
8949

3384

8692

3284
3384

9111
G037

338#

8630

3384

9145

3384
3384
4384

8882
8735

MACYTT

30A(71052)

CROSS REFERENCE

12=JuL=79

RATIO:

(ORE USED:

36K

C00
C

(71

PAGES)

PAGE

206

8805

476/206=2.3

10:46

TABLE == MACRO NAMES

(ZRHBE .BIN,(ZRHBE .LST/CRF /SOL/NL : TOC=CZRHBE , SML , CZRHBE .P11
RUN=TIME: 89 705 10 SECONDS

RUN=TIME

I 16

SEG 0203