Digital PDFs

AH-9178E-MC

September 1979

204 pages

Original

12MB

view download

OCR Version

11MB

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_bw.pdf

OCR Text

RATGRAIO

o0 e
FICHE 1 OF 1

MADE IN USA

MACY11

30A(7052)

12-JUL=79

10:46

PAGE 2

SEQ@ 0001

.REM _

IDENTIFICATION
PRODUCT

(ODE:

AC=9176E-MC

PRODUCT NAME:

CZRHBEQ MASSBUS

DATE

1=JUN=79

CREATED:

1/0 AND CONTROLLER DIAGNOSTIC

Som vymbw'\)d()om\n)mb NN OO 000 JONNE N .

SSBUS RH70 AND RH11 DIAGNOSTIC
(/R4B8E .P"1
C7=JUN=79 13:44

DIAGNOSTIC GROUP

NINSNORIN) [N 1AY 1AV TaN 1, W

MAINTAINER:

THE INFORMATION IN THIS DOC'MENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A (OMMITMENT
BY DIGITAL-EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORFORAT]ON
ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR
IN THIS MANUAL.
THE

SOF TWARE

DESCRIBED

IN THIS DOCUMENT

IS FURMISHED UNDER A

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

SUCH LiCENSE.

DIGITAL EQUIPMENT
FOR THE USE
THAT IS NOT

(C)

FOLLOWING ARE

DIGITAL
DEC

CORPORATION ASSUMES NO RESPONSIBILITY

OR RELIABILITY OF [TS
SUPPLIED By DIGITAL.

1975,

ON EQUIPMENT

1979 DIGITAL EQUIPMENT CORPQORATION

TRADEMARKS OF

PDP
DECYS

SOF TWARE

DIGITAL

UNIBUS
DECTAPE

EQUIFMENT

CORPORATION

MAS SBUS

30A(7052)

12=4UL=79

1.0

ABSTRA(CT

REQUIREMENTS

HARDWARE

SOF TWARE

10:46

TABLE

AN]

MACY11

MAS<BUS RH?G AND RH11_DIAGNOSTIC
(/RHBE .P1*
07=JUN=79 13:44

PAG"

SEQ 0002

CONTENTS

3.0

PROGRAM DESCRIPTION

3.1

SWITCH OPTIONS

3.2

SYSMAC ROUTINES

4.0

TEST DESCRIPTIONS

ABSTRACT
THIS PROGRAM WAS

CREATED

TO TEST RH11

ggN}?OLLERS WITH AN RH11-TB

AND RH70 MASSBUS

(MASSBUS SIMULATOR)

ATTACHED

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

IN THE EVENT OF AN ERROR,INORDER TO GIVE COMPLETE
INFORMATION ALL ERROR BITS ARE CHECKED TO SEE THAT

NO OTHER ERROR OCCURED.

AN ERROR OCCURED

BE REPORTED BY 'WHYFQ''
AND ‘WWATBIT"'

IT wILL

WHYFO TELLS WHAT REGISTER THE ERROR BIT WAS FOUND
wAggéT TELLS WHAT THE NUMBER OF THE ERROR BITS

WHERE

EXAMPLE:
RHCS1

HAS AN ERROR BIT

{gESE12RE

THE NUMBER OfF

SET

THE EXTRA BITS

JRHCS2 HAS AN ERROR BIT SET
{gESE ARE

THE NUMBER OF

THE

EXTRA BITS

TRE

AND

END EXAMPLE
THIS

AND

PRINTOUT

SAYS

THAT DATA LATE

THAT

WAS SET

IN RnZSZ.

SET

IN RH(S1

[N AND

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

105
106

MACY11

}8;

2.0

}?g

2.1

1M
12
113
114
115
}]9

30A(1052)

12-JUL=-79

{

2.2

SEQ 0003

REQUIREMENTS

HARDWARE

1.
2.
3.

1}3

PAGE 4

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

THIS PROGRAM ASSUMES
CONDITION:

10:46

THE

FOLLOWING

IN PROPER WORKING

CPU
16K OF CORF MEMORY
RH'1-TB MASSEUS SUMULATOR

SOF TWARE

120

USING STARTING ADDRESS 200 ASSUMES A BASE ADDRESS OFf

122
123
124

ADDITIONAL RH'S AT ADDRESSES 160200, 160300, AND 160400
KESPECTIVELY.
IF ANY OF THESE EXIST. TYE PROGRAM
WILL DO MULTIPLE RH TESTING.
MULTIPLE RH TESTING (SEE.

}gg

FOUR ADDRESSES AT 160100 THRU 150400.

121

160100 AND A VECTOR OF

125

TEST 77)

128

774.

THE PROGRAM WILL

CHECK FOR

1S NOT POSSIBLE AT ADDRESSES OTHER THAN THE

IF NO CHANGES IN ADDRESS ARE MADE AN ALTERNATE STARTING

129

ADDRESS OF 204 CAN BE USED BUT THE PROGRAM MUST HAVE BEEN

13N

STARTING ADDRESS 210 ALOWS YOU TO SPECIFY THE BASE

130

132
133
134
135
136
137

STARTED AT LEAST ONCE AT ADDRESS 200 OR 210.

ADDRESS,VECTOR ACDRFSS, AND HOW MANY REGISTERS YOL
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.

’

138
139

140

32}

143
qzé

3.0
’

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

146

IN TESTING ONE

147
}Zg

——
ol ——
)l
——
——d
el

[+ JVA1Y,) (VI IV, IV.IV 1V, 1V )
[@XVe]s] NOA
NS
N —

150

PROGRAM DESCRIPTION

CONTROLLER,

THE

USING PDP-11

FIRST PASS

MAINDEC

TAKES ABOUT

5 SECONDS AND SUBSEQUENT PASSES TAKE ABOUT 10 MINUTES
IF ITERATIONS ARE NOT INHIBITED.
3.1

SWITCH OPTIONS

SWITCH

USE

15
14

HALT ON ERROR
LOOP ON TEST

INAIBIT [TERATIONS
BELL ON ERROR
LCOP ON ERROR

}?
9

INHIBIT ERROR TYPEOUTS

MASSBUS RH70 AND RH11
CZRHBE.P11

DIAGNOSTIC

07-JUN-79

161
162

13:44

MACYTT

30A(7052)
8
1
0

122
]

TR AR

165

AT AR A AN

12-JUL=79

10:46

PAGE

SEQ 0004

LOOP ON TEST IN SWR<7:0>
TO BE USED IF DUAL PORT
USED
INHIBITS THE PRINTING OF WATBIT

A AR A AANNA AR

13,8,AND 0

RRANRAAAARNNARNRRAAAAAARNA P ARSI AR

INRIBIT WATBIT PRINTOUT

166

I 28RS

RRRARSR

167
168

3.2

SYSMAC ROUTINES

R R R R R N

AR AR

2222222022

(USED)

170
171

EQUATE, CATCH, COMMON TAGS, SWRHI, SWRLO, SETUP SCOPE,
TYPE, TRAP, READ, ERROR, TYPE OCTAL, TYPE DECIMAL, POWER,

174
175
176
;;g

THESE ARE
GRAM,

172

179
180
181
182
}gz

EOP. KT11, "HEADER, ERROR TYPE, READ OCTAL, 4CT11 HOOKS.

4.0

185
186

INCORPORATED

IN THIS PRO-

= 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 ATTER THE CLEAR BIT WAS LOADED INTO

187

RHCS2 REGISTER.

188
189
190
191

THIS TEST IS ALSO ENTERED AT THE

LABLE CLEER AT THE END OF ALL THE ERROR BIT TESTS
TO SEE THAT A CLEAR WILL CLEAR THE ,ERROR BIT SET.
THE TEST IS ENTERED HERE IF THE ERROR BIT BEING
FORCED SET DID NOT SET TO SEE IF ANY OTHER ERROR

192

BIT DID SET.

194

TEST 3 -

195
1%

198
199
ggg

SYSMAC ROUTINES

TEST DESCRIPTIONS
TEST

THE

THIS

TEST

SEES

THE

TESTER

TEST SEES IF THE DEVICE CODE
P4 SIMULATOR IS ATTACHED.

IS CONNECTED.

THIS

IS A 40 TO SAY AN

TEST 4 = WC CLEAR TEST.
THIS TEST WILL SEE THAT WHEN A
CLEAR IS GIVEN THE WORD COUNT REGISTER REMAINS THE
SAME .

202

TEST 5 - RHBA CLEAR TEST.

205
206

TEST 6 - RHBAE CLEAR TEST.
THIS TEST CHECKS THAT WHEN A
CLEAR IS GENERATED THE BUS ADDRESS EXTENSION REG-

209
g;?

TEST 7 - RHDB CLEAR TEST.
THIS TEST CHECKS THAT WHEN A
CLEAR IS GENERATED OUTPUT READY IS NEGATED.

212
512

TEST 10 = PROM REGISTER DECODE TEST.
THIS TEST CHECKS
THAT THE PROM CAN ACCESS ALL REGISTERS.

215

TEST

582

Sgg

216

THIS TEST SEES THAT WHEN A CLEAR
IS GENERATED THE BUS ADDRESS REGISTER IS CLEARED.

ISTER 1S CLEARED.

= RHCS3 TEST.

THIS TEST CHECKS THE READ/WRITE BITS

IN THE RHCS3 REGISTER CAN BE CLEARED AND SET.

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

217

218

219
220

MACY11

30A(i052)

TEST

221
202

12=JUL=79

o1
10:46

PAGE 6

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

(52525)

AND USING

(125252)

TO MAKE SURE

WITH ALTERNATE PATTERN.
TEST

[T WORKS

13 = RHBAE BIT TEST.
THIS TEST TESTS THE RHBAE REG-~
ISTER ONLY IF THE RH IS AN RH70.
RH11'S DO NOT
HAVE

TFEST

SEQ@ 0005

AN RHBAE

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 (52525) AND AN OPPOSITE

BIT PATTERN (125252).

TEST

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 = RHW(C 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 CHE(KS THAT
THE BUS ADDRESS REGISTER WILL CARRY THROUGH TO

THE HIGHEST BIT IN THE BUS ADDRESS EXTENSION REGISTER OR BIT A17 IN THE RHCS1 REGISTER AFTER T IS
INCREMENTED.

TEST 20 = NEM, TRE, SC BIT TEST.
THIS TEST WILL CHECK
THAT NON-EXISTING MEMORY WILL SET THE TRE AND SC
BIT IN RHCS1 REGISTER.
TEST 21

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

TEST 22 - MDPE, TRE AND SC BIT TEST.
THIS
THAT MDPE (AN BE SET IN RH(SZ2, AND
TRE AND SC IN THE RH(CS1 REGISTER.

TESTM CHECKS
THAT MDPE SETS

TEST 23 = UPE, TRE, SC ERROR TEST (RH11).
THE UPE BIT IN RH(CS2 TO SEE IF IT

IT SETS

IS TRE AND SC BITS SET

TEST 24 = UPE, TRE,
THE UPE BIT

SC ERROR TEST (RH70).
IN RH(CS2 TO SEE

IT SETS IS TRE AND SC BITS SET

TEST 25 = NED BIT

THIS TEST CHE(CKS
SETS AND WHEN [T
IN RHCS1.

TEST,

THIS

(NON-EXISTANT DRIVE)

TEST WILL

SETS

THIS TEST (CHECKS

IT SETS AND WHEN

IN RH(S1,

CHECK THAT NED

TRE AND SC BITS

[N RW(ST.

MASSBUS RH70 AND RH11_DIAGNOSTIC

(ZRHEL P11

273
27¢
275

07~ UN=79 13:44

MACY11

30A(i052)

12-JUL=79

1
10:46

PAGE 7

SEQ 0006

TEST 26 = MXF, TRE AND SC BIT TEST.
THIS TEST WILL CHECK
g?Aé'¢§F (MISSED TRANSFER ERROR) WILL SET TRE AND
175,

TEST 27 = PGE

ERROR BIT TEST.
THIS TEST FORCES PGE TO
gEES{N RHCS2 AND VERIFYS TRE AND SC [S SET IN
H

TEST

30 = MXF,
SEES

TRE AND SC BIT TEST

IF MXF

CAN BE

THAT TRE AND SC ARE SET
THIS WAY [N AN RH11 BIT

IN AN RH70.

TEST 31

HCST.

TEST

SET

IN RHCS1

ONLY).

THIS TEST

INSTRUCTION AND

IN RH(S1.
MxfF
CAN NOT BE SET

= MCPE AND SC ERROR TEST.

Tfipg Eéfi BE

(RH11

SET BY A MOVE

(AN BE SET
THIS wAY

THIS TEST CHECKS THAT

AND THAT M(CPE

SETS SC

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.

BEING PERFORMED WILL BE PRINTED OUT

ME SSAGE .

RH70 ONLY.

OPERATION

IN ERROR

TEST 53 - WCE EW ERROR TEST.
THIS TEST CHECKS THAT WCELO
WILL SET IN RHCS3 AND THAT WCE SETS IN RH(CS1.
IT
ALSO CHECKS THAT WCEHI DOES NOT SET WITH WCELO

IN RHCS3......... RH70 ONLY.

TEST

54 - WCE OW ERROR TEST
WCEHI

ALSO

SETS

TESTS

(RH70 ONLY)

TEST

b
el —d —d
el
S
e

NoJe . JaNTe SV ¥NWPILN]

NN NN NN NN

THIS TEST CHECKS THAT

THAT WCE

THAT WCELO DOES NOT

55 = INTERRUPT ENABLE TEST.
IE WILL SET IN RHCST AND
WHEN RDY

TEST

(WCEHI).

IN RHCS3 AND

IS SET.

SETS

IN RHCS1,

SET WITH WCEHI.

THIS TEST VERIFYS THAT
IT WILL CAUSE AN INTERRUPT

56-75 = READ AND WRITE OPERATIONAL TESTS.
THESF 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
gggogg 70 OR 11 DOING A 671 WORD TRANSFER FOR

TEST

77 = THIS

ALLOWS

IS NOT A TEST BUT

THE

DIAGNOSTIC

THE ROUTINE

TO TEST & RH'S

AR SRARRRREREaRARRR22
22 R RARRER R 2 2 N1

ECO HISTORY

THAT
PRESENT.

MASSBUS RH70 AND RH11_DIAGNOSTIC

( ZRHBE .P11

07=-JUN=79 13:44

MACY11

30A(7052)

12-uUL=79

10:46

PAGE 8

SEQ 0007

(HGE1 - ADDED CODE TO MAKE BOTH WRITE LOC'S IDENTICAL
(HGEZ2 ~ CHANGED BIT8 FROM LOC TO DATA REFERENCE
{HGE3 - CHANGED BITO FROM LOC TO DATA REFERENCE
REARIARRARANANARRR
AR ARRAT AR AN AR TR ANANRANRAR

LTITLE
MASSBUS RH70 AND RH11
:*COPYRIGKT (C) 1976

DJAGNOSTIC

;*DIGITAL EQUIPMENT CORP.
'MAYNARD MASS. 01754

*PROGRAM BY WN D'ENTREMONT

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC
tPACKAGE (MAINDEC~11-DZQAC-(3), JAN 19, 1977

SBTTL

OPERATIONAL

SYSMA(

SWITCH SETTINGS

- %

SWITCH

14
13
1
10

LOOP ON
INHIBIT
INHIBIT
BELL ON

: *

LOOP ON TEST IN SWR<7:0>

.SBTTL

000011
000012
000015
000200
177776
177774
177772

177570
177570

000000
00001
000002
000003
000004

HALT ON ERROR

J*
of
i
o*

000750

USE

LOOP ON ERROR

BASIC DEFINITIONS

;*INITIAL ADDRESS OF
STACK750
.EQUIV
.EQUIV

EMT,ERROR
10T ,SCCPE

THE STACK POINTER *wx 750 =w«
;sBASIC DEFINITION OF
;:BASIC DEFINITION OF

;*MISCELLANEOUS DEF INITIONS

HT=

LF=
(R=
(RLF=

PSLEQUIV

. ;CODE

200

177776
PS,PSW
STKLMT= 177774
PIRQ177772

DSWR=
DDISP=

177570
177570

;*GENERAL

RO=

TEST
ERROR TYPEOUTS
ITERATIONS
ERROR

FOR HORIZONTAL

. ;PROCESSOR STATUS WORD

;2STACK LIMIT REGISTER
; ;PROGRAM INTERRUPT REQUEST REGISTER
; sHARDWARE SWITCH REGISTER
; cHARDWARE DJSPLAY REGISTER

PURPOSE REGISTER DEFINITIONS

; s GENERAL REGISTER

;cGENERAL REGISTER

R3=

;o GENERAL "CGJISTER

R4 =

%2
x4

TARB

;;CODE FOR LINE FEED
;;CODE FOR CARRIAGE RETURN
. sCODE FOR CARRJAGE RETURN~LINE FEED

R1-

R2=

ERROR CALL
SCOPE CALL

;oGENERAL REGISTER

;s GENERAL

MASSBUS RH70 ANC RH11_DIAGNOSTIC
(/RHBE .P11
07=-JUN=-79 13:44

385
386
387
388
389
390
391
392
393
394
395
396
397
398
399

400
401
602
403
404
405
406
407
408
409
4190
611

412

4613
414
415
416
417
41R
419
420
421
422
423
424
625
426

RSR6=

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

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

427

429
430
431
432
433
434
435
436
437
438
436
440

MACYT1 30A(i052)
12=JUL=79
BASIC CEFINITIONS

100000
040000

020000
010000
C04000
002000
001000
000400
090200
000100
000040

R7=

SP=
P(=

10:46

PAGE 9

SEQ 0008

25
%6

5 ;GENERAL REGISTER
;s GENERAL REGISTER

26
%7

::STACK POINTER
; :PROGRAM (OUNTER

y 24

;. GENERAL REG]STER

;*PRIORITY LEVE. DETINITIONS
PRO=
0]
:;PRIORITY LEVEL O

PR1=

PR2=
PR3=
PR4=

PRS5=
PR6=
PR7-

;:PRIORITY LEVEL

100
140
200

:;PRIORITY LEVEL 2
;;PRIORITY LEVEL 3
;.PRIOR]ITY LEVEL 4

300
340

::PRIORITY LEVEL 6
::PRIORITY LEVEL 7

240

;:PRIORITY LEVEL S

;*"'SWITCH REGISTER'® SWITCH DEF INITIONS

SW15=
SWl4=
Sw13=
SWw12=

100000
40000
20000
10000

Swi0=

2000

Swlil=

4000

SW091000
SW08=
400
SwW07=
200
Sw06100
SW0S40
SW04=
20
SwG3=
10
4
Sw02=
SWO1Z
Sw00=
1
SW09,Swo
EQUIV
.EQUIV
SW08,Sw8
SWO7,Sw7
LEQUIV
L.EQUIV
SWO0G, SW6
LEQUIV
SWO0S5,SwW5
LEQUIV SWO4, SWé
LEQUIV
SW03,Sw3
EQUIV
SW02,Swe
LEQUIV
SWO01,SWi
LEQUIV
SW00,sSwO

;*DATA BIT DEFINITIONS
BIT15=
100000
BIT14490000
B8IT13= 20000
8IT12=
10000
61T11=
40CQ
BIT10=
2000
BIT09=
1000
BIT08= 400
BIT07200
BIT06=
100

BIT0S=

(BITOO TO BIT1S)

MASSBUS RH70 AND RH11_DIAGNOSTIC
( ZRHBE .P11

461

07=JUN=79 13:44

000020

462
643
444
445

BIT04=
BIT03=
BITO2=
BITO1=
BITO0=
.EQUIV
.EQUlv
.EQUlv

000010
n0004
000002
000001

L46

MACY1T 30A(7052)
12-JuL=79
BASIC DEF INITIONS

447

448
449

.EQUIV
.EQUIV
.EQUIV
.EQulv
.EQUIV
.EQulv
.EQulv

450
451
452
453
454
455

456

457
458
459
460
461
462
463

10:46

PAGE 10

SEQ 0009

20
10
4
2
1
BIT09,BIT9
BITO8,BIT8
81707.8117
BIT06.8BIT6
BITO05,BITS
BIT04,BIT4
BITO03.BIT3
BIT02.BIT?
BITO1,BIT]
8IT00,8I1T0

J*BASIC ''CPU'’ TRAP VE(CTOR ADDRESSES

00004
000010
00014
000014
000014
000020

ERRVEC= 4
RESVEC= 10

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

BPTVEC= 14
I0OTVEC= 20

; ;BREAKPOINT TRAP (BPT)
. s INPUT/0UTPUT TRAP (I0T)

TBITVEC=14
TRTVEC= 14

22T BIT
;s TRACE TRAP

»«SCOPE
=«

464
465
466
467

000024
000030
000034
000060

469
470

000240

PIRQVE(=240
.SBTTL
TRAP CATC(CHER

000000

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

468

471
472
473
474
475
476
477

<78

000176

000000

000200

000137

004176

482
483
484
485

000204

000137
000270
009137

004144

000210

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

;. JEMULATOR TRAP (EMT)

004152

{TPIO

a#BEGIN

JMP

AMBEGIN3

.SBTTL

488
489
490

2*KT11 VECTOR ADDRESS
000250

]
177572
177574
177576

MMVEC=

;. SOFTWARE SWITCH REGISTER

;s JUMP TO STARTING ADDRESS OF FROGRAM

MEMORY MANAGEMENT DEF INITIONS

250

;*KT11 STATUS REGISTER ADDRESSES
SRO=
SR1=
SR2=

;. SOFTWARE DISPLAY REGISTER

s I

486

491
492
493
494
495
49

VECIOR

; ;PROGRAM INTERRUPT REQUEST VECTOR

DISPREG: .WORD
0
SWREG:
.WORD
0
.SBTTL
STARTING ADDRESS(ES)
JMF
aMBEGINT

4«87

;. TTY PRINTER

=«ERROR«+

;*LOCATION O CONTAINS G TO CATCH IMPROPERLY LOADED VECTORS
.=174

000174
000000

000204

TRAPVE (=34
TKVEC60

TPVEC=

480
481

;;POWER FAIL

EMTVEC= 30

000964

000174

PWRVE(C= 24

177572
177574
177576

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

23;

172516

égg

SR3=

PAGE

SEQ 0010

172516

;*KERNEL "'I'' PAGE DESCRIPTOR REGISTERS

501
502
503
504
505
506
507
ggg

172300
172302
172304
172306
172310
172312
172314
172316

2}(1)

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

172300
172302
172304
172306
172310
172312
172374
172316

;*KERNEL ''i'* PAGE ADDRESS REGISTERS

512
213
514
515
516
517
518
g;g

172340
172342
172344
172346
172350
172352
172354
172356

KIPARQ=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KI1PARS=
KIPARG6=
KIPAR?7=

521

gg%

.SBTTL

524

525

526
527
528
529
530
531

MACY11 30A(7052)
12-JUL=79
10:46
MEMORY MANAGEMENT DEF INITIONS

000046

000052

000214
000046
046342
000052
000000
000214

172340
172342
172344
172346
172350
172352
172354
172356

AR AR RN R R R

A RN R AR AR A AN AR A AR RN R RN AR AR R R R A A AN AR R R AN

A ANANR RS

ACT11 HOOKS

AR AR R R AR A AP AR RN T AR AR N RN RAR RN AR R A RN AR RN R IR RN RAN RN

sHOOKS REQUIRED BY A(CT11

$SVP(=.
.=46
$ENDAD
.=52
.WORD
O
.=$SVP(

’

;SAVE PC
;:1)SET (L0C.46 TO ADDRESS OF $ENDAD

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

IN .$EOQP

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

MACY11 30A(7052)
COMMON TAGS

12-JUL=79

10:46

PAGE

SEQ 001

g%g

.SBTTL

534

"'t**ii*tfi'lttt"i*tttttitiii*l‘tt'tt*t'tttfittfitttttittittitt"ttt

535

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.

2%9

538
539
540
541
562
563
544
545
546
57
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

COMMON TAGS

001100

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

.=1100

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
DO0000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000

.WORD
BYTE
.BYTE
.WORD
,WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$REGAD: .WORD

001162
001164
001166
001170
001172
001174
00117€
001200
001202
001204
001206
001210
001212
01214
001216
001222
001223

000000
000000
000000
000000
000000
000000
000000
(000000
000000
000000
000000
000000
000000
000000
177607
077
015

$REGO:
.WORD
$REG1:
.WORD
$REG2:
.WORD
$REG3:
.WORD
$REG4:
.WORD
$REGS5:
.WORD
$TMPO:
.WORD
$TMP1:
_.WORD
$TMP2:
_WORD
$TMP3:
_WORD
$TMP4:
_WORD
$TMPS:
,WORD
STIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII

000377

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

O
2
12
0
O

0
0
O
O
O
O
0
0
0
0
0
0

;;START OF COMMON TAGS
;- CONTAINS PASS COUNT
;;CONTAINS THE TEST NUMBER
;. CONTAINS ERROR FLAG
;o CONTAINS SUBTEST ITERATION COUNT
. CONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
;- CONTAINS TOTAL ERRORS DETECTED
;o CONTAINS ITEM CONTROL BYTE
;- CONTAINS MAX. ERRORS PER TEST
2 - CONTAINS PC OF LAST ERROR INSTRUCTION
;- CONTAINS ADDRESS OF °'GOOD' DATA
;- CONTAINS ADDRESS OF 'BAD' DATA
;. CONTAINS 'GOOD’ DATA
;. CONTAINS ‘BAD' DATA
; cRESERVED--NOT TO BE USED
;;AUTOMATIC MODE
;- INTERRUPT MODE

INDICATOR
INDICATOR

;;ADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER
;. TTY KBD STATUS
;. TTY KBD BUFFER
2 TTY PRINTER STATUS REG. ADDRESS
;. TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTFRS REQUIRED
;o INSERT FILL CHARS. AFTER A 'LINE FEED"’
;' TERMINAL AVAILABLE''
FLAG (BIT<07>=0=YES)
;;CONTAINS THE ADDRESS FROM
;;WHICH
(SREGO) WAS OBTAINED
;- CONTAINS ((SREGAD)
+0)
;o CONTAINS ( (SREGAD)
+2)
;. CONTAINS ((SREGAD)
+4)
;. CONTAINS ((SREGAD)
+6)
;- CONTAINS ((SREGAD)+10)
;- CONTAINS ((SREGAD) +12)
s USER DEF INED
s sUSER DEF INED
; sUSER DEF INED
: sUSER DEF INED
:sUSER DEF INED
s -USER DEF INED

..MAX NUMBER OF ITERATIONS
;cESCAPE ON ERROR ADDRESS
<207><377><377> ::CODE FOR BELL
;. QUESTION MARK
<15>
;- CARRJAGE RETURN

MASSBUS RH70 AND RH11

(ZRHBE .P11
588
589

001224

DIAGNOSTIC

07-JUN=79 13:44
000012

MACY11 30A(7052)
COMMON TAGS
$LF:

LASCIZ

M1
12-JuL=79
10:46

PAGE

SEQ 0012
<>

JoLINE FEED

".'t'Qtfi'Qittt.fitQ..Qtt'ti'fit."t.fi'.t‘"tt...'tt...t.'..tt..t.ttt

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

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

PAGE

SEQ 0013

239

.SBTTL

592
593
594
595

J*THIS TABLE CONTAINS THE INFORMATION FOR EACH ZRROR THAT CAN OCCuUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE ]S PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

598
599
€00
601
602
603
604
605
606
807
608
606
610
611
612
613
614
615
616
617
618
619
620
6c1
622
623
6246
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645

i
i
i
i*

28?

ERROR POINTER TAB.E

;*NOTEZ2:

0012¢6

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

EM
DH
DT
DF

;;POINTS
:;POINTS
:;POINTS
:;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTAR:

011226

055040

001230
001232
001234

067602
071750
072314

001236

055100

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

JITEM

JITEM 2

JITEM 3

JITEM 4

JITEM

JITEM 6

JITEM 7

EM1
DH1
DT
DF1

EM2
DH2
DT2
DF?2

EM3

DH3
DT3
DF3
EMS4
DH4
DT4
DFé4
S
EM5

DHS
DTS
DFS
EM6
DH5S
DTS
DFS

Em7

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

;CORRECT BIT DID NOT SET
;IN BUS ADDRESS EXTENTION
;REGISTER

;CORRECT BIT DID NOT SET
;IN BUS ADDRESS REGISTER

JCORRECT BIT DID NOT SET
;IN RHDB REGISTER

JNED DID NOT SET
:RHCS2 REGISTER

JNEM LOGIC TO SET TRE

SAND SC BITS IN RH(CS?
;1S NOT WORKING

JNEM BIT DOES NOT READ AS SET

MASSBUS RH70 AND RH11 _DIAGNOSTIC
CZRHBE P11
07=JUN-79 13:44
646

647
648
649
650
651
552
653
654
655
656
657
658
659

660
661
662

001319
001312
001314

070303
072020
G7233¢4

001316

055607

001322
001324

001320

070303
072020
072334

001326

055643

001332

001330

001334

070410
072032
072340

001336

055704

001340
001342
001344

070303
072020
072334

001346

055724

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

10:46

PAGE 15

SEQ 0014

DH5
DTS

JITEM 10

JITEM

DF5

E M10

;TRE BIT

DH5
DTS
DFS
11

EM11

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

sTRE

BIT

SET BY NEM BUT

;DiD NOT SET, LOGIC BETWEEN

;TRE

JITEM

EM13

AND

SC NOT WORKING

;TRE BIT IS SET BUT SC

JREADS AS (LEARED.

JHAS AN OPEN GOING

TO THE BUS

JLOGIC ASSOCIATED WITH TRE
;BIT IS NOT WORKING OR SC

001350
001352
001354

070303
072020
072334

001356

055773

001360
001362
001364

070303
072020
072334

001366

056017

001370
001372
001374

070303
072020
072334

001376

056043

DH5
DTS
DF5
JITEM

EM14

JWCE BIT

JRHCS?

DID NOT

SET,

BIT

DH5
DT5
DFS
JITEM

EM15

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

DHS
DTS
DFS
JITEM

EM16

;WCE AND ST ERROR BITS ARE
;SET

TRE ERROR BIT

SHOULD ALSO

J8E SET BJT IT READS AS (LEARED
:THERE MIGHT BE AN OPEN BETWEEN

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

MACY11 30A(3052)
12-J4UL=-79
ERROR POINTER TABLE

702

703
704
705

706

707

708
709
710
1
712

001400
070303
001402 072020
001404
072334

001406

056063

JITEM

070303
072020

DH5
DTS
DF5S
17

EM17

;WCE AND TRE ARE SET BUT
;SC BIT READS AS CLEARED

001420
001422
01424

070303
072020
072334

001426

056163

TEST
TEST

DHS
DTS
DF5S

072334

723
724
725

755
756
757

BUS

;BUT IT WORKED OK ON THE

056132

727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754

THE

SEC 0015

JNON=-EXISTENT MEMORY
;WHICH PRECEDED THIS

001416

726

FPAGE 16

;LOGIC BETWEEN TRE AND SC
,DOES NOT SFEM TO BE WORKING

721

722

10:46

. TRE AND

713

714
715
716
717
718
719
720

JITEM

20
EM20

JUPE DID NOT SET

IN RH(CS?

DH5

DTS
DF
5

SITEM

21
EM21

;TRE AND SC BITS ARE SET

JEITHER UPE HAS AN OPEN GOING

;TO BUS OR TRE AND SC WAS

;SET BY ANOTHER ERROR
00143C
001432
001434

070303
072020
072334

001436

056212

001440
001442
001444

070303
072020
072334

001446

056245

DHS
DT5

DF5
JITEM

22
EM22

;TRE BIT IS SET, UPE AND SC
;SHOULD ALSO BE SET BUT THEY
JREAD AS CLEARED

DH5
DTS
DFS
JITEM

23
EM23

;JUPE AND TRE ARE SET BUT
;SC DID NOT SET, LOGIC TO
.SET SC DOES NOT SEEM TO
.BE WORKING

001450
001452
201454

070303
072020
072334

001456

056264

DH%

DTS
DF5
JITEM

24
EM24

JNED DID NOT SET

IN RH(CS?Z

MASSBUS RH7C AND RH11 DIAGNOSTIC
CZRHBE .P11
07-JUN=-79 13:44
758
759
760
761
762
763
764
765
766
767
768
769
770

771
772
773

774
775
776
77

001460
001462
001464

070303
072020
072334

001466

056315

MACY11

30A(3052)

12=4UL=79
ERROR POINTER TABLE

782
783
784
785
786

787

788
789
790
791
792
793
794
795
796
797
798
799

800
801
802
803
804
805
806
807
808
809
810
811
812
813

10:46

070303
072020
072334

001476

056347

SEQ 0016

JITEM

25
EM25

sTRE

AND

SC ARF "SET

;BUT THEY SHOULD HAVE BEEN
;SET BY NED wHICH READS

;AS

001470
001472
001474

PAGE

DHS
DTQ
DF5S

CLEARED

DH5
D5
DFS
JITEM

26
!
EM26

;TRE BIT SET BUT NED
JAND SC BITS READ AS

;CLEARED. NED SHOULD
JHAVE SET CAUSING TRE
;70 SET WHICH IN TURN
LOGIC NOT WORK
;SET SC.
;ING CORRECTLY

778

779
780
781

001500
001502
001504

070303
072020
072334

001506

056375

001510
001512
001514

070303
072020
072334

001516

056430

001520
001522
001524

070303
072020
072334

001526

056465

001530
001532
001534

070303
072020
072334

001536

056524

DHS

DTS
DF5

JITEM

27
EM27
DH5
DTS
S
DF

JITEM

30
EM30

;TRE BIT WAS NOT SET

;BY NED.

TRE SET LOGIC

;NOT WORKING

JMXF BIT DID NOT SET

JIN RHCS2

DH5
DTS
DF5
JITEM

EM31

DH5
DTS
DF5
JITEM

32
EM32

. sMXF BIT SHOULD BE

SET

;IN RHCSZ2 BUT T READS AS
cCLEARED. TRE AND SC ARE SET
:IN RH(CSY.
.
-1

sTRE BIT IS SET BUT MxF
sAND SC READ AS CLEARED

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

817

818

001540

001542
001544

070303
072020
072334

00154¢€

056553

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

DHS

10: 46

001556

056623

SEQ 0017

DTS
DFS
JITEM

FM33

sTRE LOGIC ASSOCIATED WITH
JMXF IS NOT WORKING
;TRE READS AS CLEARED

;OR

070303
072020
072334

sMXF AND SC BITS ARE IN(ORRE(CT

;TO

001550
001552
001554

PAGE

TRE HAS AN OPEN GUING

THE BUS

DH5
DTS

DFS
J1TEM

34
EM34

sTESTER IS NOT CONNECT

s T

THE MASSBUS DEVICE

001560

070476

DH34

sCUDE _SHOULD BE A 40
;PC TEST NO. DEVICE CODE

001562

072042

DT34

JSERRPC,$TSTNM,DT,0

001564

072343

DF 34

:0,0,0

001566

056673

35
EM35

JBIT IN RH(CS3 WILL NOT ET

001570
001572
001574

071631
072272
072340

001576

056725

001600

070556

DH36

;PC TEST NO.

001602

072056

DT36

SSERRP( ,$TSTNM, RH(CS1.,0

001604

072347

DF 36

;0,0,90

001606

056763

37
EM37

;DLT DID NOT SET

001610

070553

DH35

001612

072052

DT35

001614

072346

DF 35

001616

057014

JITEM

DH171
DT171
DF11

JITEM

36
EM36

FAILING ADDRESS

IN RH(CS?2

EM4O

sDLT IS NOT SET IN RH(CSZ BUT

.TRE

AND

JAND SC MUST

READ AS

SET.TRE

HAVE BEEN SET BY A DIFFEREN!

ERRUK

MASSBUS RK70 AND RH11 DIAGNOSTIC
(ZRHBE PN
07=JUN=79 13:44

001620
001622
001624

070553
072052
072346

001626

057154

001630

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

10:46

PAGE

SEQ 0018

DH3S
D135
DF 35
JLTEM

EM4T

;OUTPUT READY

070637

DHAT

;PC

001632

072066

DT41

J$ERRP(C,$TSTNM,0

001634

072352

DF &1

057374

001662
001664

001660

000000
000000
006000

001666

057466

001670
001672
001674

000000
(000000
000000

001676

057541

001656

001700
001702
001704

000000
000000
000000

001706

057622

001710

000000

~
n

000000
000000

JITEM

QOoOOomMsH

JITEM

o~
&~

ITEM

JRHWC

DID NOT

( OAD ANY BITS

(177777)

s RHW(C

;SOME BITS CLEARED AFTER CLEAPR
;WAS LOADED INTQ RH(CS?

OO0

EM44

OO0

JITEM

057330
000000

A77777

OO0

001646
001650
001652
001654

000000
000000

~
W

000000

001640
0016«2
001644

TEST NO.

JALL g BIT S)DID NOT LOAD INTO RHWC
:

057257

. 001636

IN RH(CS?2

62
my

DITEM

;DID NOT SET

JNON-EXISTANT MEMORY BIT
JSET IN RHCS?2

sRHBA DID NOT

CLEAR AFTER

;WAS LOADED INTQ RH(CSZ2

JITEM

(LR

;ALL BITS DID NOT_LOAD INTO
JRHBA REGISTER (177776)

MASSBUS RH70 AND RH11 DIAGNQSTIC
(ZRHBE PN
07=-JUN=79 13:44
926

927

928

929
930
93]
932
933
934
935
936
937
938
939

940

941
942
943
944
G45
© 946
947
948
949
959

951
952
953
954
955
956

957

958

001712
001714

000000
000000

001716

057673

001720
001722
001724

000000
000000
000000

001726
001730
001732
001734

057752

000000
000000
000000

001736

060003

MACY11 30A(3052)
12=JUL=79
ERROR POINTER TASLE

10:46

PAGE 20

¢
JITEM

50
EMS0
0
¢
0

JITEM

CITEM

EM51
0
0
0
52

EM52

sLOADING TRE AFER [TS SET DOES NOT
;CLEAR ERRORS

;PGE DID NOT SET IN RH(CSZ

;THE

PROM WHILE ACCESSING A

JREGISTER WHICH YOUR TESTER Y

; CANNOT SUPPLY INFORMATION FOR
;SAYS INFORMATION IS PRESENT

001740

070663

UHS2

;PC TEST NC. ADDRESS CONT

001742

072074

DTS2

s$ERRPC,$TSTNM,BAE
, SREGO

001744

072344

DF52

001746
001750
001752
001754

060156
000000

000020
00000C

001756
001760
001762
001764

060" 64
000000
000000
000000

001766
001770
001772
001774

060171
000000
000000
000000

001776
002000
002002
002004

C60176
000000
000000
200000

002206
002010
002012

060204
000000
000000

JITEM

EMS3

JRH(CST

JITEM

54
EM54

JRHWC

JITEM

55
EMSS

. RHBA

JITEM

56
EM56

:RHMR?

JITEM

EMS7

:RHCS?

SEQ 0019

MASSBUS RH7C AND RH11 DIAGNCSTIC
( ZRHBE PN
07=-JUN=7G6 13:44

982
983
984
985

002014

000000

002016
002020
002022
002024

060212
000000
000000
000000

002026
002030
002032
002034

060217
000000
000000
000000

002036
002040
002042
002044

060224
000000
000000
000000

002046
002050
002052
0G2054

060231
00000C
00000V
000000

002056
002060
002062
002064

060237
000000
00000G
000000

002066
002070
002072
062074

060244
000000
000000
000000

002076

06025¢
000000
000000
000000

0en2s57
0000CC
000000
000000

002122
002124

060265
000000
000000
000000

H 2
MACY11 30A(7052)
12-JUL=79
10:46
ERROR POINTER TABLE

JITEM

PAGE 21

JRHST

;RHER

;RHAS

:RHTDRB

;RHDR

JRHMR1

JRHDT

; RHBAE

;JRHCS3

SEQ 0020

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

‘

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

060273

1042

002130

071657

DH172

1044
1045
1046

002132

072302

DT172

002734

072406

DF172

002136

060362

1041

1043

1047

1048
1049
105C
1051

1052

1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069

JITEM

EM71

EM7?

002140

071041

DH7?2

002142

072110

DT71

002144

072361

DPF71

002146

060417

J1TEM

071041

DH72

002152
002754

072110
072361

DT71
DF71

002156

060446

002160
002162
002164

071041
072110
072361

002166

060474

002170
002172
00274

071041
072110
072361

002176

060524

002200
002202
002204

071130
072120
072364

002206

060631

002210
002212
002214

067602
071750
072314

JITEM

SEQ 0021

SDEVICE NO DOES NOT EQUAL

;A 7 IN RHMRZ2 AFTER A (LEAR

JRHCS1 HAS AN ERROR BT

;SET AFTER CLEAR OPERATION

sPC TEST NO.

CONTENTS OF REGISTER

JERROR BIT SET IN RHCSZ2

JAFTER A (LEAR OPERATION

EM74
DH72
DI71
DF71

JITEM

PAGE 22

EM?73

002150

JITEM

10:46

002126

1040

JERROR BIT SET

IN RHER,

JTESTER ERROR REGISTER,AFTER
A CLEAR OPERATION

EM75

JERROR BIT SET IN RHST

AFTER A CLEAR OPERATION

DH7?2
DT71
DF 71
76

EM76
DH76
D176
DF76

;RHBA INCREMENTED BUT DID NOT CARRY
;OVER TO THE RHBAE REGISTFR

EM?77
DH1
DT
DF1

READY DID NOT SET AND RHW(
;DID NOT INCREMENTM DOING A WRITE OPERATION

MASSBUS RH70 AND RH11

DIAGNQOSTIC

(ZRHBE .P11

07=JUN=79

1094
1095

002216

060743

002220
002222
002224

067722
071762
072320

002226

061030

Q02232
002234

071762
072320

002236
002240
002242
002244

061075
0060000
000000
000000

002746

061126

002250
002252
002254

067602
071750
072314

002256

061304

002260
002262

000000
000000

1096
1097

1098
1099
1100
1101

1102

1103
1104
105
1106
1107
1108
1109
1110
1111

1112
1113
1114
1115

1116
1117
1118
1139
1120
1121

1122
1123

1126
1125
1126

1127

1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
Wel
1142
1143
1144

1145
1146
1147
1148
1149

002230

13:44

MACY1T

20A(7052)

JITEM

100
EM100

ERROR POINTER

JITEM

067722

002264

000000

002266

061475

002270
002272
002274

071166
072132
(072370

002276
002300
002302
002304

061542
071166
072132
072370

002306
002310
002312
002314

061570
000000
000009
000000

002316

061677

002320
002322
002324

(000000
000000
000000

002376

061771

12-JUL=79

TABLE

10:46

PAGE 23

SEQ 0022

JRHBA DID NOT

CLEAR AFTER (LR

;WAS LOADED INTO RHC(CS?

DHZ
D2
DF2
101
EM101

DHZ2

JITEM

ITEM

JITEM

pT2
DF?2
102
EM102
¢
0
0
103
EM103

;READY DID NOT

SET

IN RHCS1T

;DOING A WRITE

OPERATION RDY

;DID NOT SET AND WC DID NOT [NCREMENT
JBUT INFO WAS WRITTEN TO TESTER

DH1
DT
DF1
104
EM104

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

0
0

JITEM

0
105
EM105
DH105
DT105
DF 105
106
EM106
DH105
DT105
DF105
107
EM107
0
0
0
110
EM110

0
0
0
11
tm111

JRHBAE

IS MESSED UP

IT SHOULD

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

SAND

IT DOES NOT = 0

JRHBAE DID NOT GET

'NCREMENTED

;READ REV. OPERATIONS DID NOT
JREAD FROM TESTER TO STORAGE LOCATION
; (RBUS)
\

JRHBAE

= O

JAFTER

ONE

JA17 DID NOT

SHOULD = 40
WORD

WRITE

SET AFTER BA WAS

[NCREMENTEL

002346

062071

002350
002352
002354

071233
072146
072370

002356

062166

002360
002362
002364

000000
000000
00c000

002366
002370
002372
002374

062264
000000
000000
000000

002376
002400
002402
002404

062376

002406

062430

002410
002412
002414

071545
072250
072364

002416

062526

002420
002422
002424

070410
072032
072340

002426

062567

002430
002432
002434

071300
02162
072364

002436
002440
0026442
002444

062652
071300
072162
072364

002446

062704

PAGE 24

SEQ 0023

;BA DID NOT INCREMENT

JITEM

;RHBA INCREMENTED BUT IT DID
sNOT CARRY TO A16 + A17 IN RHCS1T

JITEM

;LTEM

000000
000000

000000

10: 46

DF105

SITEM

JITEM

;OUTPUT READY WAS NOT NEGATED
JAFTER CLR WAS L.OADED

062044
071233
072146
072370

cITEM

002336
002340
002342
002344

DH111
DTN

071233
072146
072370

002330
002332
002334

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

= OO0OM—2OO0O'N-=000

TFAL U LS
RGN 8RR R R R R B IR IR I NN YIS LR T RALT AL B
S8R R
ey

e R
B
—

TR S

o O

die JE B

YRS YT P Y

A Y

SO S

QU (U U I

n Nd-—h—l—-‘—d_lfl—l—l—J_._J—l—I—h-—ld_‘.&—l—l—l_{—l—l—l_‘—l—l—J—J—J_‘_‘—I—J—J—J_‘_‘—J—.-—D—I-—I—I—I-—‘Ad
o
0 010 00 00 0 O 00 00 00 00 00 00 50 5000 00 ~J ~J
<~~~ < Y~ N
OO
[0,Y0 Yo Yo NV, IV, IV, IV IV, IV, [V, [V, IV, IV

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

INTO RHCS?

sALL BITS DID NOT READ YO STORAGE
;LOCATION (RBUF) DURING A READ REV. OPERATION

;MDPE

DID NOT SET

IN RHCS?2

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

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

¢TRE IS ONLY BIT SET ,_MDPE AND
:SC SHOULD ALSO BE SET

2SC NOT SET AFTER MDPE AND TRE SET

JTRE AND

SC WERE

SET EITHER BY

;AN ERROR OTHER THAN PGE,OR PGE

1261

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
002522
002524

063335
071336

072174
072347

002526
002530
002532
002534

070556

002536
002540
002542
002544

063441
071364
072204
072375

002546

063475

063407
071396
072174

002550
002552
002554

071364
072204
072375

002556

063576

002560
002562
002564

071364
072204
072375

JITEM

)
£

JITEM

10:46

PAGE 25

SEQ C024
JHAS AN OPEN GOING

2ro

062757

MauOOO

002456

THE BUS

.DBL NOT SET AFTER A 4 WORD WRITE

;FROM AN EVEN ADDRESS

000000
000000
000000

M= OO0
"]

002450
002452
002454

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

M125

QOO

WNN—O

d e o D
D
b
b —d

N—=2O VNN

NrONON)
— —d

_—ed ed

)

D md e

)

D =D

IASIASIASIANTaN
1AV I,V 1,0 1,V 1 ST, S 1aV] V]

MASSBUS RH7C AND RH11 DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

:DBL SET AFTER DOING A 1 WORD WRITE

;FRCM AN EVEN ADDRESS

. DBL SET ON A 3 WORD WRITE

;FROM AN EVEN ADDRESS

JITEM

;DBL DID NOT SET AFTER A 2 WORD

JWRITE

FROM AN EVEN ADDRESS

JITEM

;MCPE SET BUT SC READS AS (CLEARED

JITEM

;MCPE DID NOT SET

sWCE LO (EW) DID NOT SET IN RH(CS3

JITEM
JWCE

(OW)

SET ALONG WITH

JWCE LO IN RH(CS3

JITEM

cWCE LO IS SET IN RHCS3 BUT

;WCE

JITEM

IS NOT SET

[N RH(SZ

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

1262
1263
1264
1265

1266
1267

1268
1269
1270
1271
1272
1273
1274
1275
1276

002566
002570
002572
002574

063657
071364
072204
072375

002576
002600
002602
002604

063713
071364
072204
072375

002606
002610
002612
002614

063774
071364
072204
072375

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

JITEM

10:46

PAGE 26

SEQ 0025

EM135
DH132

;WCE HI DID NOT SET IN RH(CS3

EM136
DH132
DT13%2
DF132

;WCE

EM137
DH132
DT132

JWCE LO SET WITH WCE HI

DT132
DF 132
136

137

D132
140

SET BUT WCF

DID NOT

SET

IN RH(S3

IN RH(CS?

1289

1290
1291
1292

1293
1294

b
D cad
b
) e
) e
D e
)
d
) ed e
D ed o)
b
D
d
d
—

AL U N NN N N N AN AN AN N NN VNN N N NN
WNIWWWWNINO NN PORONININAY
D = b d o d b od b b
N=OVONTNEB
NN 2OV NRINSB WSO

1295
1296
1297
1298
1299
1300
1301
1302
1303

002626
002630
002632
002634

064152
000000
000000
000000

002636
002640
002642
002644

064226
071442
072222

002646
002650
002652
002654

064300
000000
000000
000000

002656
002660
002662
002664

064354
000000
000000

002666
002670
002672
002674

064442
071442
072222
072364

002676

064507

072364

000000

002700
002702
002704

071500
072234
072370

002706

064560

002710
002712
002714

071545
072250
072364

202716
002720
002722
002724

064651
071545
072250
072364

002726
002730
002732
002734

065003

002736

065105

002740
002742

071545
072250

EM140

JITEM

—

064075
000000
000000
000000

12-JuL-79

ERROR POINTER TABLE

002616
002620
002622
002624

30A(i052)

—

1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288

MACY11

Iz
cm—-ooog
OO0
purpany
., §Y

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

10:46

PAGE 27
SEQ 0026

;WRITE OPERATION DID NOT

INC w(

;BA WAS NOT INC AFTER A WRITE

JINFQ WAS NOT WRITTEN TO TESTER

JREAD OPERATION DID NOT INC WC

JITEM
sBA WAS NOT

.ITEM

JITEM

INC AFTER A READ

;INFO DID NOT READ FROM TESTER

sTHIS

cOF

IS FOR PRINTED CONTENTS

THE RH REGISTERS

JITEM

JALL BITS DID NOT GET TRANSFERED
;DURING A READ OPERATION

JITEM

071545

;READ OPERATION DID NOT

SEEM TO WORK

JALL BITS DID NOT WRITE

TO TESTER

072250
072364

JITEM

sWRITE OPERATION DID NOT WRITE
:TO TESTER

003000
003002
003004

000000
000000
000000

003006

065511

003010
003012
003014

000000
000000
000000

003016

065605

003020
003022
003024

000000
000000
000000

00302¢

065674

003030
003032
003034

000000
000000
000000

003036
003040
003042
003044

065763
000000
000000
000000

003046

066052

003050
003052
003054

000000
000000
000000

003056

066130

JITEM

J1TEM

JITEM

;DBL SET ON A 1 WORD READ £QoMm
;AN EVEN ADDRESS

155

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

5
M156

57
M157

SET

;DBL SET ON A 2 WORD WRITE FROM
;FROM AN ODD ADDRESS

;DBL DID NOT SET ON A 2 WORD

;JWRITE REV FROM AN EVEN ADDRESS

160

1
M161

M162

o
W

065420

Moo o

002776

k49,1

000000
000000
000000

MUOOO

002770
002772
002774

SET

065332

JWITH BAl

002766

JITEM

—3\N

000000
000000
000000

54
M154

;DBL SET ON A 2 WORD TRANSFER

JDBL SET ON A 2 WORD WRITE REV

;FROM AN ODD ADDRESS

;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

;FROM AN ODD ADDRESS

£H

002760
002762
002764

JITEM

M-=0O0O O

065241

M-a2OO0O0O

002756

MU OOO
2o

000000
000000
000000

153

EM153

(o)

002750
002752
002754

CF76

M- OO0

065155

PAGE 28

(o)

1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
138¢
1387
1388

V02746

:I1TEM

M2a00O0O M=OO0O0C

1371

072364

Kk o

\NLNU“NLNUMN&S

1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370

002744

=000

S
S S
S
S
SO
N

Y N
N
_—

NN NINININIANW
(VA RV, ] U AT
IS
DD
~NON NI WN) - OO 00 ~NON NSt

1333

8
3
12=JUL~-79
MACY11 30A(i052)
10:46
ERROR POINTER TABLE

MASSBUS RH70 AND RH11 DIAGNQOSTIC
( ZRHBE LN
07=JUN=79 13:44

EM164

;DBL SET ON A 2 WORD READ REYV

SEQ 0027

000000
000000
000000

003106

066374

003110
003112
003114

000009
000000
000000

003122
03124

000000
071603
072262
072403

003126

066473

003130
003132
003134

000000
000C00
000000

003136

066545

003140
003142
003144

000000
000000
000000

003146

066566

003750
003152
003154

000000
000000
000000

003156
063169
003162
003164

066652
000000
000000
000000

003166
003170
'003172
003174

066703
000000
000000
000000

JITEM

QOO mc—,:OOO

003100
003102
003104

JITEM

%
Ne
o

066315

167
EM167

10:46

PAGE 29

SEQ 0028
;FROM AN ODD ADDRESS

;DBL DID NOT SET ON A 2 WORD

JREAD REV FROM AN EVEN ADDRESS

JDBL SET ON A 3 WORD READ FROM
;AN EVEN ADDRESS

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

170

0
DH170
DT170
DF170

EM171

72
M172

— N
~
W

003076

>
~
~

000000
000000
000000

— N
~
Wi

1411

003070
003072
003074

5
M165

m—

1395
1396
1397

JITEM

i
Jo

066217

Mo QOO

003066

1393

X~y

1394

MuUOOO

000000
000000
000000

1397
1392

003060
003062
003064

1389
1390

MACY11 30A73052
12=JUL-79
ERROR POINTER TABLE

OCOM—-1OO OMa0OO0

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

;TRE READS AS

SET,PGE AND

JREAD AS CLEARED.PGE AND SC
;SHOULD ALSO BE SET

;PGE AND TRE READ AS SET SC

sREADS AS (LEARED

JREADY DID NOT CAUSE AN INTRUPT
;WITH TE SET IN RHCS1

1B WILL NOT SET IN RHCS1

;IE HAS AN OPEN GOING TO THE BUS
)

003176
003200
003202
003204

066743
071300
072162
072364

003206
003210
003212
003214

066776
071300
072162
072364

003216
003220
003222
003224

067043
070637
072066
072352

003226
003230
003232
003234

067125
070637
072066
072352

1466

003236
003240
003242
003244

067207
070637
072066
072352

1471
1472
1473

003246
003250
003252
003254

067271
070637
072066

072352

003256
003260
003262
003264

067351
070637
072066
072352

003266
003270
003272
003274

067436
070637
072066
072352

003276
003300
003302
003304

067522
070637
072066
072352

003306
003310
003312
003314

067546
000000
000909

000000

00337¢

000774

1451
1452
1453

1454
1455
1456
1457
1458
1459

1460
1461
1462

1463
1464

1465

1467
1468
1469
1470

1474

1475
1476
1477

1478
1479
480
1481
1482
1483
1484

1485
1486
1487
1488
1489
1490
1491
1492

1493
1494
1495
1496
1497
1498
1499
1500

ITEM

JITEM

JITEM
:

JITEM

;ITEM

JITEM

176
EM176
DH121
DT121
DF 76
177

Em177
DH121
DT121
DF76
200
EM200
DH41
DT41
DF41

201

10:46

PAGE

JTRE

SEQ 0029

SET DLT

AND

;DLT AND TRE ARE

SET

SHOULD ALSO BE

,SC READS AS CLEARED

HIBITE LOBYTE GATE FOR WC NG

EM201
DH41
DT41
DF 41

:HIBYTE LOBYTE GATE FOR DB NG

EM202
DH41
DT41
DF41

;HIBYTE

202

203
EM203

DH41
o041
DFé41
204
EM204
DH41
DT41
DF41

2058
EM205

DH41
DT41
DF 41

206

LOBYTE

GATE

FOR BA

IS NG

IRHBA HAS WRONG ADDRESS

;TESTER DATA BUFFER HAS WRONG INFO

;RA DID NOT INTERUPT

EM206
DH4T
DT41
DF41

;RHWC

5M207

s TRANSFER WAS DONE ON PORT B

207

SET

SHOULD BE

ZERO

0
0

JRH REGISTERS

RHVEC:774

.RH VECTOR ADDRESS

""Q'tttttlttt‘tt't."lti"t"ttiilt'.t.tttt'l".\'tt.'."it."'t'.
P

1445

1446
1447
1448
1449
1450

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

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

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

MACY1T 30A(1052)
12-JuUL=-79
ERROR POINTER TABLE

10:46

PAGE

SEQ 0030

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

1506

:BUS ADDRESS REGISTER (RHBA)

%2}}

;CONTROL AND STATUS REGISTER 2 (RH(S2)

1507
1508
1509
1510

;EACH BIT

)

IS CALLED BY BI~ NUMBER

1513
1514
1515
1516
1517
1518
1519
1520
1521

000001
000002
000004
000010
000020
000040
000100
000200
000400

usl=
uSe=
US4=
BA[=
PAT=
CLR=
IR=
OR=
MPE =

1
2
4
10
20
40
100
200
400

JUNIT SELECT
JUNIT SELECT
JUNIT SELECT
;BUS ADDRESS

1524

004000

NEM-~

4000

;NON EXISTANT MEMORY (BIT #11)

1522
1523

1525
1526
1527
}ggg

}2;?

001000
002000

010000
020000
040000
100000

1532
1543
1534
1535
1536
1537
1538
1529

000001
000002
000004
000010
000100
002000
004000
010000

1542
1543

100000

1540
1541

020000
040000

;gzé

NED=
UPE=
WCE=
DLT=

INHIBIT

(BIT #3)

;INVERT PARITY ICHECK FOR MCPE
;CLEAR (BIT #5)
JINPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
:MASS BUS PARITY ERROR (BIT #8)

1000
2000

;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)

10000
20000
40000
100000

JNON EXISTANT DRIVE (BIT #12)
JUNIBUS PARITY ERROR (RIT #13)
JWRITE CHECK ERROR (BI!T #14)
;DATA LATE (BIT #15)

IPCKO
IPCK1=
IPCK2=
IPCK31E3=
DAL=
WCELO=
WCEHI=-

1
2
4
10

s INVERT PARITY,ON LOW BYTE OF EVEN WORD (BIT #0)
JINVERT PARITY,ON HI BYTE OF EVEN WORD (BIT #1)
;INVERT PARITY,ON LOW BYTE OF ODD WORD(BIT #2)
s 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
JWRITE CHECK ERROR EVEN WORD (BIT #11)
JWRITE CHECK ERROR ODD WORD (BIT #12)

100

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

;ggq

’

;CONTROL AND STATUS REGISTER 3 (RHCS3)

. ;DATA PARITY ERROR EVEN WORD (BIT #13)
;DATA PARITY ERROR ODD WORD (BIT #14)

(RHDB)

:ADDRESS PARITY ERROR

(BIT #15)

JEACH BIT IS CALLED BY BIT NUMBER

1546
1547
1548
1549

1552
1553
1554
1555
1556

MXF =
PGE=

(BIT #0)
(BIT #1)
(BIT #2)
INCREMENT

;CONTROL AND STATUS 1 REGISTER. (#00)
000001
000100
00200
000400
001000

GO=
IERDY=
Alé=
Al7=

1
2100
200
400
1000

:GC (BIT #0)
JINTERRUPT ENABLE (BIT #6)
JREADY (BIT #7)
JHIGH ORDER UNIBUS BITS (BIT #8)
;HIGH ORDER UNIBUS BITS (RIT #9)

.
\

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

1557

1558
1556
1560
1561

;gg%

002000

PSEL=

004000
020000
040000
000100

DVA=
MCPE=
TRE=
TREB=

100000

SC=

}ggg
1566
1567
1568
15€9
1570
}g;}
1573
1574
1575
1576
1577

1578

1879
1580
1581
1582

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

DRY=
DPR=
MOL =
PIP=
ERR=
ATA=
’

000001
000004
000010
000020

000040

000100
010000
020000

2000

RFAIL=
DTE=
OPl=

SEQ 0031

(BIT #10)

JSPECIAL CONDITION (BIT #15)
(RHST)

(#01)

200
400
10000

;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
JMEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS
;COMPOSIT ERROR. (BIT #14)
SJATTENTION ACTIVE (BIT #15)

20000
40000
100000

100
10000
20000

;PORT SELECT

100000

PAGE

JDEVICE AVAILABLE (BIT #11)
JMASSBUSS PARITY ERROR (BIT #13)
s TRANSFER ERROR (BIT #14)
;TRE BIT TOR A BYTE OPERAT]ON

;ERROR REGISTER #01
ILF1
RMR=
4
(PE10
DPE=
20

RMBEX=

10:46

4000
20000
40000
100

sSTATUS REGISTER
000200
000400
010000
020000
‘040000
100000

(RHER)

(#02)

JILLEGAL FUNCTION (BIT #0)
JREGISTER MODIFICATION REFUSED
;CONTROL PARITY ERROR(BIT #3)
;DATA PARITY, ERROR(BIT #4)

(BIT #13)

(BIT #2)

;MASSBUS excEPTION WHEN SET CAUSES AN ABORT OF A DATA T

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

MASSBUS RH70 AND RH11

CZRHBE .P11

DIAGNOSTIC

07=JUN=79 *3:44

}233

MACYT1

30A(i052)

12-JuL=79

ERROR POINTER TABLE

;DIAGNOSTIC REGISTER

(RHMR1)

10:46

PAGE

SEG 0032

(#03)

1585

000001

1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596

000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000

;ggg

010000

}288

DMD=

MCLK=
FERR=
ICPA=
IDPA=
DP(CA=
NERL=
DTRM=
DOCC=
SLKM=
ISLK=
ENPS=

8MD18=

000001

AT0=

1603
1604
1605
1606
1607

000004
000010
000020
000040
000100

AT2=
AT 3=
AT4=
ATS=
AT6=

1602

000002

}ggg

000200

12}?

AT1=

AT7=

10000

;18 BIT MODE

000001
000002

DNO=
DN1-

1615

006010

1617

000020

1619

000100

1614

000004

T€16

618

000040

}2%9

000200

%25%

003324
003326
003330
003332
003334
003336
003340
003342
003344
003346
003350
003352
003354

160100
160200
160300
160400
000000
000000
000000
000000
000000

000000

000000
000000
000000
000000

(#404)
(BIT #0)

&
10
20
40
100

;:DEVICE 2
JDEVICE 3
JDEVICE 4
;DEVICE 5
;DEVICE 6

(BIT
(BIT
(BIT
(BIT
(BIT

:DEVICE

(BIT #1)

#2)
#3)
#4)
#5)
#6)

;DEVICE 7 (BIT #7)
(#5)

DNZ=

1
2

;DRIVE NUBER BIT #0 (BIT #0)
;DRIVE NUMBER BIT #1 (BIT #1)

SCLK=

sSYNC CLOCK RANGE BIT

GAP=

JGAP SIZE BIT,SETS GAP SIZE

BLO=

BL1=

BL?2=

;DRIVE NUMBER BIT #2

JWHEN SET

£DD1:
ADD?:

ADD3:
ADD4 :
RHCS1:
RHWC:
RHBA:
RHMR2:
RHCSZ:
RHST:
RHER:
RHAS :
RHTDB:
RHDB:
RHMR1:

160300
160400
O
O
0
O
O
0
0
0
0
0
O

,WHEN CLEAR SYNC

2.0-10.6 MICRO SECONDS

;BLOCK SIZE BIT

200

160100
160200

(BIT #2)

JBLOCK SIZE BIT O (BIT #5)

100

(BIT

CLOCK

#3)

IS 0.4=2.6

TO S MICRCSECONDS WHEN CLEAR

1(BIT #6)

JBLOCK SIZE BIT 2(BIT #47)

JRH70 1/0 REGJSTERS LOCATED
003320
003322

(RHAS)

;DEVICE 0

200

(BIT #0)

(BIT #12)

s TRANSFER CONTROL REGISTER

1€12
1613

1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638

JDIAGINOSTIC MODE

JMAINTAINCE CLOCK (BIT #1)
;FORCE ERROR (RIT #2)
JINVERT CONTROL PARITY,CAUSES PARITY TO BE EVEN WHEN SET
. INVERT DATA PARITY,CAUSES DATA PARITY TOBE EVEN WHEN SE
;DISABLE PARITY CHECK,INHIBITS PARITY (CHECK ON BOTH ( AN
JNO END OF BLOCK,INHIBITS TESTER FROM GENERATING END OF
SWHEN SET DELAYS TRA FROM BEING ASSERTED FOR SOONS (BIT
;DISSABLE OCCUPY (BIT #8)
JSYNC CLOCK MINIMUM WIDTH ,WHEN SET CHANGES SYNC CLOCK T
2 INVERT SYNC CLOCK,WHEN SET INVERTS SYNC CLOCK,NO EFFECT
JENABLE PATTERN SHIFT,Wi{EN SET CAUSES A 16 OR 18 BIT ROT

JATTENTION SUMMARY PSEUDO-REGISTER

1601

1624
1625

2
4
10
20
40
100
200
400
1000
2000
4000

IN RH

;BASE ADDRESS RH #1

;BASE ADDRESS RH #?2
:BASE ADDRESS RH #3
;BASE ADDRESS RH #4

:CONTROL AND STATUS !
;JWORD COUNT
;BUS ADDRESS
:TRANSFER CONTROL REGISTER
;CONTROL AND STATUS 2
:TESTER STATUS
;ERROR REGISTER
JATTENTION SUMMARY REG
;TESTER DATA REGISTER
;DATA BUFFER
sDIAGNOSTIC (MAINTENCE) REGISTER

MASSBUS RH70 AND RH11 DIAGNOSTIC
(/RHBE .P1"
07-JUN=79 13:44

1639
1640

003356
003360

000000
000000

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

0
0

RHCS1B:

3
10:46

PAGE 34

cDRIVE TYPE REGISTER
;BUS ADDRESS EXTENTION

'6461
}22%

003362
003364

000000
000000

1644
1645
1646
1647
1648
1649

003366
003370
003372
003374

000000
000000
000000
000000

DEVIC1: O
DEVIC2: O

;ADDRESS OF RH #1
;ADDRESS OF RH #2

DEVIC4:

:ADDRESS OF RH #4

003376
003400

000000
000000

DEVCNT: O
DEVICS: O

1650
1651
1652
1653
1654

1655
1656
1657
1658
1659
1660

1661

1662
1663
1664
1665

1666
1667
1668

1669
1670
1671

1672
1673
674
1675

1676
1677
1678
1679
1680
1681

003402

003404
003406
003470

000000

177740
177742
177744
000000
000000
000000

1693
1694

;DEVICE COUNTER
JUSED TO CONSTRUCT REG. ADDRESSES

WILL BE USED AS A CALCULATION LOZATION

JREG.

CALCULATION LOCATION
.LOW ERROR ADDRESS REG.

HERADD- 177742

;HIGH ERROR ADDRESS REG

MEMERR= 177744
VvECADD:
RETAIN:

REG.

JADDRESS OF RH #3

OFF11:
O
LERADD= 177740
REGEND:

;CONTROL AND STATUS 3
¢HIGH BYTE OF RH(CS1

DEVIC3: 0

JOFF11

<MEMORY SYSTEM ERROR REG

<REGISTER ENDING ADDRESS

0
O

;VECTOR ADDRESS

;"ttt*t*tttt'*tt**t*t**tiit*tt*tt**ti*tfiittttttt*ttt*ttttttttittt

;REGISTER STORAGE

ADDRESSES

:"t*tt*ttttt*t*tt*tttfittti**t*tt*tittt*ttttt**tt***t*ttitt*tttfitt

003412
003414
003416

003420
003422
003424
003426
003430
003432
003434
003436
003440
003442
003444

000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
(000G00
000000
000000
00C000

AS:
BA:
BAE :
cs?:
(S2:

0
0
0
0
0

JATTENTION SUMMARY
.BUS ADDRESS
;BUS ADDRESS EXTEMNTION
;CONTROL AND STATUS 1
. CONTROL AND STATUS 2

DB:
DR:
DS1:
DT:
ER1:

0
0
0
0
0

;DATA BUFFER
;DIAGNOSTIC REGISTER
JTESTER STATUS
;DRIVE TYPE
;ERROR REGISTER

(S3:

TC:
TDR:
w(:

. CONTROL AND STATUS 3

0
0
0

; TRANSFER CONTROL
sTESTER DATA REGISTER
JWORD COUNT

'"tfitt‘"I*titi*ttttitfiiittttt.titttttttfiitt*tt*tttttttttttttttt'

’

1682

1683
1684
1685
1686
1687
1688
1689
1690
1691
10%¢

RHCS3:

SEQ 0033

;BITS AND BIT PATTERNS

""t'ttt.t*tttt't'ttttttttitt'tti*t‘titt.fitfiitttttt‘ttRt'tfittt!it'

052525

AB=
OAB=
ZERO=
ONE=

125252

000000

000001
000002

TWO=

52525
125252
0
1

cALTERNATE BIT PATTERN
:OPPOSITE ALTERNATE BIT PATTERN
, CONSTANT ZERO
;CONSTANT 1

JCONSTANT 2

""tttt"t.ttt'tttttttti!tt'fititfittti'tfit.it"ttiltfi'.'fii*ttt"ttt

000001

sFUNCTION CODES

""l’ttitttttlt-.'fi.kttt"it.t'it'tttfi'ittt'tt.tt'..'.'t'.tt"'tt'

NOOP=

:NO OPERATION,RESETS GO B[T

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

1696

000051

1697
1698
1699
1700
1701

000052
000053
000054
000055
000056

1;8%

000057

1704

MACY"1 30A(7052)
12-0UL=-79
ERROR PGINTER TABLE
RN

AN R AN

WRCHO=

WRCH1=
WRCHZ2=

WRCH6=

SEQ 0034

RN RO AN RA AR AN

NN RN NN RO RN R R NS

s THESE WRCH BITS ARE WRITE/CHE(CK
.CODES ,IF THE CODE IS AN 0DD
JNUMBER THE GO BIT IS INCLUDED

;IF

THEY ARE EVEN GO BIT

AR T

N R

R N A RN R A AN R RN N AR AR A NN R RN

000061
000062

WRITEO= 61
WRITE1= 62

;JWRITE CODES
;IF THE CODE

719
720
721

000064
000065
000066

WRITE3= 64
WRITE4= 65
WRITES= 66

JIF IT IS EVEN THE GO BIT
oIS NOT INCLUDED

725
726

000011

728

NOWVEWN—=O
OV

A R AN

T AR R

R AR AN AR RN

AN RN A RN NRRN AR RN AR R T RN ko wd

IS AN ODD NUMBER

;THE GO BIT IS INCLUDED

R RN R AR AR A

R AR AR AN AR A NN R

R A AN AN IR P AR R R AR AN R

;CLEARS ALL ERROR BITS

AR R R R AR

A AR AR AR AR AR

SEARCH- 31

R R AR NN AR

IN THE DRIVE

JAND SETS THE DRIVE READY BIT

A AN R AR

AR NN NN

R AN R R AR AR AN RSN RRRRARS

;SETS A ONE SHOT WHICH SETS

;ATA AFTER 100USEC + OR MINUS 20%
;"Qtt**ttil"ttttttt*tttttfi'tl'fitkttttfi*ttt'tttttttfitttt'fitfitttt!ttt

SWATBIT STORAGE LOCATIONS

""tt'tttttttt*ttt*ttt*ttt*‘fittfi*tfitttktttttttttttt'ttt‘Qtttl"ttt

003446
003450
003452

000000
000000
000000

BITCNT: O
LOOCNT: 0
Pass:
0

;BIT COUNTER
;LOOP CPUNT
;PASS COUNT FOR THE LARGE

TRANSFER TEST

.'"ttt**ittttl’tttttttt***it*'i!t*fiitfitfittttltttfitti"tttttt't."t'

JTHIS IS WHERE

742

743

1750

DRCLR=
IR

000031

A N R R R AR

WRITEG= 67
D

729

744
17645
1746
1747
1748
1749

WRITEZ= 63

-3

d
D e
)
d
D
h
b
D o)
D
b md e
D

000067

727

~ NNNNNNNNNNN
H

)

;g%

b e

)

715
716
717

724

READ6=

JREAD CODES
;1F THE CODE IS AN ODD NUMBER
sTHE GO BIT IS INCLUDED

)

71
72
73
74
75
76

000063

INCLUDED

AR R R AN I AR AN N

READQ=
READ1=
READ2=
READ3=
READ4=
READS=

R R

714

718

IS NOT

;}%

—d md

000077

IR R

PAGE

D e

000071
000072
000073
000074
000075
000076

R R R AR R

10:46

52
53
54
55
56

WRCH3=
WRCH4=
WRCHS5=
AR

1705
1706
1707
1708
709
710
[4)

003454
003456
003460

000000
000000
000000

JBEFORE

R AR AN

TSTNM:
)
OFFSET: O
HEDDAD: 0
IR
R R A R A AR
;THESE ARE
IR

R R AR R R A R

THE

TEST NUMBER IS STORED JUST

IS PRINTED OUT....cvviireenennennn

AR R

AR AR R AR A A NN R NN A AN AR AN R AR T AN N

AN R RN NP RN

sTEST NO, STORAGE
JOFFSET FOR ERRCR HEADER
JUSE TO FIND HEADER ERROR MESSAGE
R R R AN R R A R R AR R R R R AR R A NN NN AN TR NN S AN E I RN SRS R Ny
THE READ WRITE BUFFERS

AN AN

A AN AN NP AN R RN R A NN R AN R R A NN R

SR PR RN RN R RO R R

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(/RHBE.P11
07-JUN=79 13:44
1751
'752
1753
1754
1755
1756

1757

1758
1759
1760
1761

};2%

004000
004002

004100
004102

004104

004106
004170
004112
004114

004116

004000
000000
000000
004100
000000

MACY11 30A(7052)
12-JUL=79
ERROR POINTER TABLE
.=4000
EVENAD:
ODDAD:
.=4100
RBUF:

000000

RBUF1:

000000
000000
000000
000000

RBUF3:
RBUF4:
RBUFS:
RBUF6:

000000

1765

;

1766

1767

1768

0
0
0
0

AR AR R R PR R AR

THESE ARE

R R

004122

000600

BEFORE:

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
0
0
0
0
0

004140
004142

177777

JEVEN ADDRESS
.ODD ADDRESS

};98

1777
1778

004120

00G000
000000

$RHDB:
$RHW(C:

PAGE

RBUF7:

1764

10:46

0
0

RBLF2:

000000

O
O

FOR

R AR A RN AN AN NN NN NN NN AR NN RAARRA AN NN AR AR AR RO AW

THE

CLEARS

TEST

R AR R R R A A R R A RN AR AN AR RN N RAN NN NI AN RAN AN N AARRN RN RSO NN

SEQ 0035
'

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

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

1779

1780
1781
1782
1783

10:46

PAGE

SEQ 0034

,'"titi'ttttfit"'fittttfitfi.it't.ttt.ttttfittt*fitt..fltttttttt't.t'tflQt

004144
004146
004150
004152
004154
004160
004164
004166
004170
004172
004176
004204
004212

005000
005100
000421
005000
005037
005137
000413
005000
005100
000137

012737
012737
005000

BEGIN:

BEGIN3:

BEGINZ:

004546
000074
000774

003404
003406

(LR
COM

Bk
CLR

CLR
(oM

CLR
COM
JMP
BEGIN1: MOV
MOV
CLR

RO
RO

;GET SKIP FLAG READY
JSET SKIP FLAG

START:
RO
$REGS
$REGS

;GO TO START
;GET SKIP FLAG READY

;CLR ALTERNATE START fLAG
;SET FOR ALTERNATE START

START

. START PROGRAM

RO
RO
a4TST
474 ,4REGEND
#7764 ,HVECADD
RO

JGET RO READY
:TO BE COMPLIMENTED
JENTER DIAG. FOR NEXT PASS
;CLEAR THE SKIP FLAG

".'ttttttttfifiiflttfitttt't*iti'tttt*ttQ*tt't'ttittttttttttttttfittttt

004214
004214
004220
004222
004226

004230
004234
004242
004250

004324
004332
004340

004346
004352
004360
004366
004374
004402

.SBTTL

212706
005026
022706
001374
012706

001100

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

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

013746
012737
012737
012737
022777
001012

000004
004406
177570
177570
177777

001140

000020
000022
000030
000032
000034
000036
000024
000026

—_—

005700

004414

000176
000174
000004

MOV

#STACK,SP

MOV
MOV
MOV
MOV
MOV
MOV

#$SCOPE ,o#I0TVEC ;;I0T VECTOR FOR SCOPE ROUTINE
#340,a4I10TVEC+2 ;;LEVEL 7
#SERROR ,Q#EMTVEC ; EMT VECTOR FOR ERROR ROUTINE
#3640, Q#EMTVEC+2 ;,LEVEL 7
#STRAP ,QNTRAPVEC ;.TRAP VECTOR FOR TRAP CALLS
#340,Q#TRAPVEC+2,;
LEVEL 7

MOV
CLR
CLR
MOvB
MOV
MOV

#340,@#PWRVEC+2
$TIMES
$ESCAPE
#1, SERMAX
#.,3LPADR
#.,SLPERR

;;LEVEL 7
;o INITIALIZE NUMBER OF ITERAT]ONS
;:CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
;.SETUP THE ERROR LOOP ADDRESS

MOV
MOV
MOV
MOV

Q#ERRVEC,-(SP)
#64$ QHERRVEC
#DSWR, SWR
#DDISP,DISPLAY

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
;sSETUP FOR A HARDWARE SWICH REGISTER
;.AND A HARDWARE DISPLAY REGISTER

-6

;JINITIALIZE A FEW VECTORS

MOV

001142
174536

004434

012737
012637

(R6) +
#SWR,R6 ; ;DONE?

#$PWRDN ,a#PWRVEC

;. CLEAR MEMORY LOCATION

;;LOOP BACK
:sSETUP

THE

STACK POINTER

;;POWER FAILURE

VECTOR

;.S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;.EQUAL TO A '*=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.

—_——

000403
012716
000002
012737

THE COMMON TAGS

CLR
cMP

BNE

000750

CMP

#-1,aSWR

66$%

;;BRANCH IF NO TIMEOUT TRAP OCCURRED

64%:

BR
Q?Y

65%
#65%, (SP)

. sBRANCH IF NO TIMEOUT
.:SET UP FOR TRAP RETURN

65%:

MOV

#SWREG, SWR

;:POINT TO SOFTWARE SWR

668

MOV

(SP)+ ,9#ERRVEC

;.RESTORE ERROR VECTOR

BNE

’

004404
004406
004412
004414
004422
004430

INITIALIZE

;;CLEAR THE COMMON TAGS ($CMTAG) ARCA
MOV
#$(CMTAG,R6
;sFIRST LOCATICM TO BE CLEARED

o0
QO

NN —

putrutrfacty
SuiirGuir Quir Suir Puir 'y

N OO NN N

T S
U
U
P

00 00 0o 0o 00 00 UO 00 OO

004256

004264
004272
004300
004306
004314
004320

START:

MOV

TST

#DISPREG,DISPLAY

;o TRY TO REFERENCE HARDWARE

;;AND

THE HARDWARE

JWAS

SWR

IS NOT

IT A RESTART

- -1

~
L
3
MAC/11 30ACi052)
12-JUL=-79
10:46
INITIALIZE THE COMMON TAGS

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

1837

004436
004440
004444

000427

1841

04524
0046524
004530

000406

1838
1839
1840

1842

1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
188(
188
1882
1883
1884
1885
1886

104401

006446

BM]

ARQUND

67%

TYPE

é%gas:

TYPE

:;708:

:GET OVER THE ASCIZ

AND 70
1 O AND CONTROLLER DIAGNOSTIC/

,70%

:;TYPE ASCIZ STRING

69$

LASCIZ

698:

:;TYPE ASCIZ STRING

<15><12>/RH 11

SEG 0037

;YES,SKIP TYPING

,68%

ASCIZ

004532

004546
004546

::GET OVER THE ASCIZ

<15><12>/CZRHB=D" 7

:
AROUND
CH

A AR R

TRTEST

AR R AR A AR AN N AR AR

AR AR

RN RANRNRNRANNRRARANNNNAAANN
NN
&N

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

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

S tttt*tt*t*tttt*l’t*tttttt*t*\ttt*ttttt*t*ttfittttt*ittttttttttttt

004546
004550
204556
004564
004570
004576
004604
004612
004614
024616
004620
004624

004626

004632
004634
004640

004644
004650
004654

004712
004712
004714
004720
004724
004760
004760
004762

000004
012737
012737
012706
012737
012737
012737
005700
001403
005000
000137
005001
005737
001402
000137
000137
005037
104401

000416
104410

012637
104401

000415
104410

012637
104401

000426

1887
1888

1889
1890

100443
104401

PAGE 38

104410

005062

012637
006137
000137

000001
047200
000750
000340
046746
000340

006552
001174
004644
005066
001174
004656

TST1:

#1,$TIMES
#PARITY,a#114

MOV

#340,34116

MOV

#340, QHERRVE( +2

MOV

TST
BEQ

SKiPIN:

CLR
JMP

éég7$:

LASCIZ

RDOCT
MOV
TYPE

003406
004774
éé%QS:

LASCIZ

RDOCT
MOV
ROL

JMP

ITERATION

#TI1EQUT ,Q¥ERRVEC

:SET UP TIMEOUT

RO
SKIPIN

1SKIP TYPOUT
:NO

RO
RMTST2

CLR
TST
BEQ
JMP
SLEUTH: JUMP
KONG:
CLR
TYPE
BR
éi25$:
LASCIZ
RDOCT
MOV
TYPE

;:DO 1

#STACK
, SP

MOV

00006

003366
004726

003404
003404
005402

SCOPE
MOV
MOV

:SETUP PRIORTY
?

:CLEAR SKIP FLAG
$GET OUT OF TEST

R1
ZGET R1 READY
$REGS
:1S IT AN ALTERNATE START
SLEUTH
:NO
KONG
:YES DO ALTERNATE SETUP
AD1ERR
;DO REGULAR SETUP
$REGS
JRESET ALT. START FLAG
,65%
c2TYPE ASCIZ STRING
64%
;:GET OVER THE ASCIZ
<15><12>/TYPE BASE ADDRESS FOR RH /

{SP)+,DEVIC
,67%

66%

.GET BASE ADDRESS
,,TYPE ASCIZ STRING

;GET OVER THE ASCIZ

<15><12>/TYPE RH VECTOR ADDRESS
/
(SP)+,VECADD
.69%

68%

;GET VECTOR ADDRESS
;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<15><12>/HOW MANY REGISTERS ARE

(SP) + ,REGEND

REGEND

GI1

YOU JUMPERED FOR /

;GET NUMBER OF

JMULT BY 2

REG

;GO CREATE ADDRESSES

M 3
12=JUL=-79
10:46 PAGE 39
THIS 1S THE RH ADRESS DECODE TEST

T?CY11 30A(71052)

MASSBUSP$?7O AND RH11 _DIAGNOSTIC
CZRHBE
07-JUN-79 13:44
1891
1892
1893
1894
1895
189¢
1897
1898
1899
1900

005066
005074
005102
005106
005114
005122
005126
005134
005142
005146

2282
NOWNES WOV~

022626

= =

b md emd ad md d b

000137
005037
012737
022625
000137
005737
001402
000137
022737
001402
000137

b
b
D
D
b
md
) mad
b
d
b
—

NO OO 0O OO OO0

1905

013737
012737
005777
013737
012737
005777
013737
012737
005777
013737
012737
000137
005037
012737
022626
000137
005037
012737

104401

000420

003320
005166

003366
000004

003322
005206
176176
003324
005226
176160
003326
046746
006054
003370
046746

003370

000004

006054
003372
046746

000004

006054
003374
046746

000004

176214

160100

MOV
TST
MOV
MOV

000004

TST

003372

MOV
MOV
TST
MOV
MOV

000004

003374
000004

006054
000042

046152

AD1ERR: MOV

ADZERR:

AD3ERR:

004644

;SETUP DEVICE 1

@ADD?2

IESTHERE A DEVICE

ADD2,DEVIC2
#AD3ERR,ERRVEC

@ADD3
ADD3,DEVIC3

DEVIC?

MOV

A#TIEOUT ,ERRVEC

CMP
JMP
CLR

CHP
JMP
TST

GIGT:

JTEST

(SP)+,(SP)+
RESTAR
DEVIC4

003366
001103

#TIEOUT ,ERRVEC

(SP)+,(SP)
+
RESTAR

YL4
GIG1
$EOP
#160100,DEVICY
SA200

1942
1943
1944
1945
1946

005502

104401

000420

005442

JREPLACE

TIMEOUT

JREPLACE

TIMEOUT

;IS

THERE A MONITOR

JYES EXIT
;ARE WE HERE AFTER 210

JNO, 200
;GET NEW ADDRESS FOR 210
;TYPE ASCIZ STRING

;GET BASE ADDRESS FOR RH1
;ARE WE HERE BECAUSE OF AN ADDRESS ERROR
;NO,GET READY FOR NEXT ADDRESS
;IS IT A ZERO

(SP)+,DEVICI
$ERFLG

;NO

005260
003366

046152

;NO DEVICE 2

;NO

003366

001402
000137

DEVICES

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

64%:

005416
005422
005426
005430
005434
005434
005440

_TIMEOUT

c1S THERE A DEVICE
;YES
JREPLACE TIMEOUT

;CORRECT STA(K
;TEST DEVICES
;NO DEVICE 4
JREPLACE TIMEOUT
v ;CORRECT STACK
cTEST DEVICES

KONG

;:65%:

005260
003366
005246
006146
000042

TIMEOUT

;CORRECT STACK
;TEST DEVICES
JNO DEVICE 3

DEVIC3

65$

:FOR

JFOR

(SP)+,(SP)+
RESTAR

64$

TIMEOUT

:YES

aADD4
ADD4 ,DEVIC4

#TIEOUT,ERRVEC
RESTAR

JFOR

;1S THERE A DEVICE

#AD4ERR ,ERRVEC

#TIEOUT ,ERRVEC

SA200:

005302

ADD1,DEVIC

HAD2ERR, ERRVE(

MOV

CMP
JMP
AD4ERR: CLR
MOV

GIG0:

0033066

JMP
(LR

SEQ 0038

JNEED FIRST ADDRESS
;DID HE CORRECT WITH A O
JGET BASE FOR RH # 2
JNEED ADDRESS
;GET READY TO CREATE REG. ADDRESS
:SAVE RETURN ADDRESS
;CONSTRUCT REGISTER ADDRESSES
;1S THER A MONITOR

GO1:

003400
003410

GIGT
DEVICT1,DEVICS

GIl:
GIGO1:

GlG2:
;.65%:
64%.

#GIGO,RETAIN

TST

BEQ
JMP
TYPE

BR
LASCIZ

G1G04
OL4

GIG2

:NO

JEXIT

$EOP

,65%

sTYPE

ASCIZ

STRING

64%
GET OVER THE ASCIZ
<15><12>/TYPE BASE ADDRESS FOR RH #¢ /

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE.P11
07-JUN=79 13:44
1947
1948
1949
1950
1951
1952

005502
005504
005510
005514
005516
005522

104410
012637
105737
001405
005737
001007

1954
1955
1956
1957
1958
1959
1960

005530
005534
005536
005542
005550
005556
005562

005737
001012
000137
013737
012737
000137
005737

1953

"961
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

005524

005566
005570

005574
005574
005600

005642

005642
005644
(005650
005654
005656
005662
005664
005670

005676
005676
005702
005710
005716

005722
005726
005730
005734

005734
005740

006002
006002
006004
006010
006014
006016
006022
0060c4
006030
00603
006042
006050
006054

006062
006070

000137

001402
000137
104401
000420

104410
012637
105737
001405
005737
00iCO7
000137
005737
001012
000137
072737
012737
000137
005737
001402
000137
104401
000420

104410
012637
105737
001405
005737
001004
000137
000137
013737
012737
000137

013737
012737
104401

MACYTT
T

003370
001103

003370

045374

003370
006054
003370
005422
006146
000042

G02:

003400
003410

GI2:
G1G02:

046152

G1G3:

005602

::658:
64$:
003372
001103

003372
045374
003372

006054
003372
005562
006146
000042

GO3:

003400
(03410

GI3:
GIGO3:

046152

G1G4:

005742

::658:

648

‘
003574
001703

003374
045374
006054
003374
005722
006146
003366

005246
006076

003400
003410

003400
002410

GO4:
GI4:

30A(i052)
12-JuUL=79
10:46
PAGE 40
THIS IS THE RM ADRESS DECODE TEST
RDOCT
MOV
TSTB
BEQ
1ST
BNE

(SP)+,DEVIC2
$ERFLG
GO2
DEVIC2
GI2

TIST
BNE
JMP
MOV
MOV
M
TST

DEVIC2
GIGO2
RESTAR
DEVIC2.DEVICS
#GIGOT.RETAIN
GIGO4
awbk?

TYPE
BR
ASCIZ

658
;TYPE ASCIZ STRING
64$
1GET OVER THE ASCIZ
<15><12>/TYPE BASE ADDRESS FOR RH #3 /

JMP

BFQ
MP

RDOCT
MOV
T1STB
BEQ
TST
BNE
JMP
TST
BNE
JMP
MOV
MOV
JMP
TST
BEQ
M
TYPE
BR
LASCIZ

RDOCT
MOV
TSTB
BEQ
TST
BNE
JMP
JMP
MOV
MOV
M

RESTAR: MOV
MOV
TYPE

RESTAT

GIG3
$EOP

(SP)+,DEVIC3
$ERFLG
GO3
.
DEVi{3
GI3
RESTAT
DEVIC3

GIGO3
RESTAR
DEVIC3.DEVICS
#GIGO2.RETAIN
G1GO4
a#42
GIG4
$EOP

;GET VALUE
:SAVE ADDRESS

ARE WE_HERE BECAUSE OF

SEQ 0039

ERROR

xs IT 0
NO

“SET UP FOR RH #1

(IS IT 0
:NO,GET NEXT ADDRESS
:CREATE ADDRESS FOR RHAT
:GET READY TO CREATE
:SAVE RETURN ADDRESS
:CREATE REG. ADDRESSES
1S THERE A MONITOR

iND
FEXIT

;SAVE ADDRESS
ARE WE HERE DO TO ERROR
iNO

(IS IT 0
:ND
:RESTART PASS
(IS IT 0
GET NEXT ADDRESS
*CREATE RH#1 ADDRESSES
:SETUP TO CREATE ADDRESS
:SAVE RETURN ADDRESS
:CREATE ADDRESSES
*IS THERE A MONITOR
NO
ZEXIT

658
;TYPE ASCIZ STRING
64%
GET OVER THE ASCIZ
<15><12>/TYPE BASE ADDRESS 7OR RH K4 /

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

#GIGO,RETAIN
.65%

;SAVE ADDRESS
:ARE WE HERE BECAUSE OF

ERROR
:NO
(IS IT 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

MASSBUSP$?7O AND RH11 DIAGNOSTIC
CZRHBE
07=JUN=79 13:44

2003
2004
2005
2006
2007
2008
2009
2070
2011
2012

2013
2014
2015
2016
2077

006074
006140
006140
006144
006146
006154
006160
006164
006172
006176
006200
006202
006210
006216
006224
006232
006240
006246
006252
006256
006264
006272
006276
006304
006306
006310
006314
006322
006324
006326
006332
006334
006336
006340
006344
006346
006352
006356
006360
006362
006366
006374
006402
006406
006406
006412

2058

006442
006442
006444
006450
006454
006462

MACY11
T

000421

013746
104402
013737
012702
013722
062737
022702
001401
000767
013737
063737
013737
062737
013737
013737
005237
013746

012737
012777

005777
022777
001403
104034

000137
122777

001403
104071
000137
005726
000406
022626
012637
104036

003366
003400
003330

003402
000002
003360
003400
003404
003402

000002
003402

003330
003364
000004
006336
000007
175032
000040

006340
000007

012637

000004

104401

006414

000137
013746
012737
012777

003402

003402
003402
003360
00340¢
003362
003364

000004
175046

GIGOD4:
4%:

3%:

TSTADD:

175052

175014

2%:
ADDERR:

MOV

DEVIC1,=(SP)

MoV
MOV
MOV
ADD

DEVICS,a#0FF11
#RHCS1,R2
SHOFF11,(R2)+
#TWO,a#0FF11

TYPOC

(MP
BEQ
BR
MOV

RHTEST:

MoV
MOV
MOV
TST

WERRVEC,-(SP)
#ADDERR ,a#ERRVEC
#7 ,aRHCS2
aRHCST

JMP

CMPB
BEQ
JMP

TST
BR
CMP
MOV

RHY1BA:

:.65%:
64%:

000004

174672

SEQ 0040

.GET OVER THE ASCIZ

RHCS18

ng.ERHDT

ADDERR+Z2

#7,dRHMR2
2%
71
ADDERR+2

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

;. SAVE DEVIC1 FOR TYPEOUT
:.GO TYPE=--OCTAL ASCII(ALL DIGITS)
:SETUP FOR ADDRESSES
sSET UP WHERE TO PUT THEM
;SETUP ADDRESS
sSETUP NEXT ADDRESS
JARE ALL

ADDRESSES

SET UP

;1S INFORMATION CORRECT?
sNO SETUP NEW ADDRESS
;WITH CORRECT ADDRESS
;SETUP RHCS3 ADDRESS

;WITH CORRECT ADDRESS

sSETUP RH(CS1B WITH
sHIGH BYTE ADDRESS OF RH(S1
;SAVE TIOUT VALUE
sSETUP NEW TIOUT VALUE
sSETUP UNIT NO.
;WILL RH RESPOND
;IS A TESTER THERE
;YES ,CONTINUE
JTESTER IS NOT CONNECTED
sBAD ADDRESS
;1S THERE ALSO A 7 FOR UNIT NO.
JYES,CONT INUE
;BAD ADDRESS
+CORRECT STACK
JYES AN RH IS THERE
s CORRECT STACK
JREPLACE OLD TIOUT VALUE

;RH DID NOT RESPOND

JMP
MOV
TST

ARETAIN
(SP)+ ,a#ERRVEC
R1

MOV
mg¥

a#ERRVEC,-(SP)
#RH11,a#ERRVEC

JYES,LETS MAKE SURE
<SAVE TIME OUT VALUE
cCHECK FOR AN RH11

MoV

(SP)+ ,#ERRVE(

sSET ALL BITS IN RH(CS3
sREPLACE TIMEOUT

BEQ

000004
174760

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

REGEND ,a#0F F 11
a#0F
11 ,RHBAE
F
#2,a¥0FF11
o#OFF17 ,RHCS3
RHCS1,RHCS18B

INC

PAGE 41
TEST

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

ADD
MoV
ADD
MOV
Mov

ERROR

000004

10:46

THE RH ADRESS DE CODE

€43

(MP
BEQ

1%:

12=JUL-79

B8R
.ASCIZ

ERROR

175036

006546
000004
006474
000117

THIS

ERROR

000004

000004
006540
000117

005001

003402

006340

000177
012637
005701
001433
013746
012737
012777

000413

;:65%:
64%:

30A(7052)

TYPE

RH70TT

.65$

649

CLR
JMP

R1
RH11+6

RK70TT: MOV
MoV
MOV

JIS IT A 70

#IPCKO: IPCK1!IPCK2!IPCK3!IE3,aRHCS3

.ASCIZ

.GET CORRECT BASE ADDRESS
JREPLACE TIEOUT VALUE

sTYPE ASCIZ STRING

:GET GvER THE ASCIZ

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

A#ERRVEC,=(SP)

#FAKE70,a#ERRVE(

JSET UP RH70 FLAG
JEXIT
;SAVE LOCATION 4
JREPLACE ALDRESS

#IPCKO!IPCKT!IPCK2. IPCKZ. IE3,ARHCS3

JSET ALL BITS

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

2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072

006470
006474
006476
006502
006504
006506
086512

000137
022626
012637
005001
00510
104401
000411

006536
006536
006540
006542
006546

000403
022626
012637
004737

006542

JMP
CMP
MOV
RH70BA: (LR
(oM
TYPE
BR
::65%:
_ASCIZ
66%:
8R
RH11:
(MP
MOV
ERR1:
JSR

000004
006514

000004
050210

2079
20897
2081
2082
2083
2084
2085
2086

006552
006554
006562
006566

000004
012737
005037
005137

2088
2089
2090
2091

006572
006600
0066C6
006614

012777
012777
122777
001107

000001
001210
001210

001212

000040
000007
000007

174540
174532
174522

2096

2114

AR AN

CLEER:

005701
100417
005737
001406
033777
001410
000137
032777

006652
006654
006660

001412
000137
005737

006664
006666
006674
0065676
006700
006706

001405
033777
001070
D00404
032777
001063

12%:

004130

174524

007174
174000

174510

007174
004122
006124

174434

160000

174422

.CORRECT STACK POINTER
JREPLACE TIMEOUT VALUE

P A AN AR AR R AN RN R R R NN RRRRRNRAANRARNRARARRR AN AN

R AR R AR R

RN AR RN AR N AR RN

RN RN NRANRRN AR AN

AN R

AR R AR AN A AR AN

#CLR,aRH(CS?2
#7,aRHCS?2
#7 ,3RHMR?2
1%

AR AR R

R AR RN

AR AN

RN AR

JTELL IT TO CLEAR
;SETJR UNIT NO.
sHAS DEVICE BEEN SET 10 7
;NO,FIND WHAT BIT WAS NOT SET

R A RA NN AN AR

RARA ARSI AR AR AR

R R AN

s*THE TEST S ENTERED HERE IF THE ERROR BIT BEING
;%FORCED SET DID NOT SET TO SEE IfF ANY OTHER ERROR
;*BIT DID SET.ereneennn...

AR R N R

14%:

15%:

BEO
JMP
TST

5%:

A AR R AR AR

AR RN AR AR AR R AR

MOV
MOV
CMPR
BNE

TST
BM]
TST
BEQ
BIT
BEQ
JMP
B8IT

004122

ERR1
(SP)+,(SP)+
(SP) + ,@#ERRVE(
R7,ERRTST

AR AR AR R A AR AR AR R AN AR R RN RN

+
006616
006620
006622
006626
006630
006636
006640
006644

RH11+2
JEXIT TEST
(SP)+,(SP)+
;CORRECT STACK
(5P)+ ,a#ERRVEC
JCORRECT TIMEOUT
R1
;GET FLAG READY
R1
JSET FOR RH11
,65%
;. TYPE ASCIZ STRING
649
..GET OVER THE ASCIZ
<15><12>/TESTING AN RH11/

(LEAR TEST
J*THIS TEST CHECKS THAT ALL
;*ERROR BITS ARE CLEARED AFTER
;*THE CLEAR BIT WAS LOADED INTO
P*RHCS2 REGISTER. . nvuvenennnn..
A N A

SEQ 0041

SCOPE
MOV
#1,8TIMES
;;D0 1 ITERATION
(LR
$TMPS
;GET READY TO
coMm
$TMPS
;SET UP FOR JSR ROUTINE
R R RN R AR R A RN AR AR AN RN AR AR A AR AN AR RN AR R ANN KRR AR R AN KRR AR RN kR Ak
;s*THIS TEST IS ALSO ENTERED AT THE LABLE CLEER
;*«AT THE END OF ALL THE ERROR BIT TESTS TO SEE
;*THAT A CLEAR WILL CLEAR THE ERROR BIT SET

2093
2094
2095

2109
2110
2111
2112
2113

TST2:

2087

2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108

J*TEST 2

2078

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

FAKE70:

2073
2074
2075
2076
2077

2092

MACY11
71

BEQ
BIT
BNE
BR
BIT
BNE

AR AR

AN AN AR R AR AN R

AN A NN R AR ANR N R AR RN NN R

AAR R RO R

R1
IS IT AN 11 OR A 70
15%
JIT'S A 70
BEFORE
JARE WE HERE FUR SHORTS
14%
;NO
$CS3,8RH(S3
JANY EXTRA ERROR BITS
15%
2NO
13%
sWE FOUND AN ERROR
#WCELO!WCEH]!DPELODPEH]
'APE ,@8RH(S3
;TEST ERROR BITS
5%
;NO ERROR BITS SET
13%
;GO REPORT ERROR BITS
BEFORE
;ARE WE HERE FOR SHORTS

5%
.
$CS1,aRHCST
2%
16%
#TRE !SC.MCPE ,aRH(CS?
2%

sNO
JYES SEE 1f THERE ARE ANY
JNONE FOUND
;G0 CHECK THE NEXT ONE
JANY ERROR BITS SET IN (S?
JYES,FIND THEM

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

2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
21¢5
2126
2127
2128

006710
006714
006716
006724
006726
006730

005737
001405
033777
001065
000404
032777

006736
006740
006744
006746
006754
006756
006760

001060
005737
001405
033777
001076
000404
032777

006770
CO06774
006776
007004
007006
007010

005737
001405
033777
001046
000404
032777

007016
007020
007024
007026
007032
007034
007040
007046
007050
007054
007056
007062
007070
007072
007076
007100
007104
007112
007114
007120
007122
007126

001041
005737
001501
005037
000477
004737
017737
104071
004737
000660
004737
017737
104072
004737
000704
004737
017737
104073
004737
000707
004737
017737

2160
21€1
2162
2163
2164

007136
007142
007146
007150
007122

004737
005737
001430
000430
004737

2166

007164

2129

2130
2131
2132
2133
2134
2135
2136
213/
<138
2139
2140
2141
2142
2143
2144
245
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158

2159

2165

2167
2168
2169
2170

006766

007134

001071

104074

007156

017737

007186
007172
007174
007200

004737
000676
004737
017737

104075

004122

006126

174414

177400

1746402

MACY11
T2

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

16%:

TST
BEQ
BIT
BNE
BR
BIT

6%:

004122

17%:

0046132

174366

140000

174354

7%:

004122

18%:

004134

174340

030175

174326

8$%:

001210

19%:

001210
050034
174274

1%:

004100

046362
047714
174242

2%:

004100

046362

047740
174230
046362

047764
174212

38:

004100
.

4%:

004100

046362
050060
17415¢

9%:

004100

BNE

TST
BEQ
BIT
BNE
BR
BIT
BNE
TST
8EQ
CLR
B8R
JSR
MOV
ERROR
.SR
BR
JSR
MoV
ERROR
JSR
BR
JSR
MOV
ERROR
JSR
B8R
JSR
MoV
ERROR

046362
001210

050010
174160

BNE
TST
BEQ
BIT
BNE
BR
BIT

13%:

10:46

PAGE 43

SEQ 0042

BEFORE
JARE WE HERE FOR SHORTS
6%
:NO
$CS2,@RHCS2
;ANY SHORTS
3%
s YES
17%
sNO, CONT INUE
#MPE !MXF ! PGE !NEM.NED !UPE 'WCE !DLT,aRHCS2
JARE ANY ERROR BITS SET IN (S2
3%
;YES ,FIND THEM
BEFORE
;ARE WE HERE FOR SHORTS
7$
.
;NO
$ST,3RHST
JANY SHORTS ?
9%
JYES
18%
s CONT INUE
#ERR.ATA,QRHST
JARE ANY ERROR BITS SET IN ER1
9%

JYES

,GO FIND THEM

;ERT

HAS AN ERROR BJT

BEFORE
JARE WE HERE FOR SHORTS
8%
:NO
$ER,QRHER
JYES ,SEE IF THER ARE ANY
4%
;WE FOUND SOME
19%
; CONT INUE
#ILF !RMR!CPE.DPE .RMBEX!RFAIL!DTE!OP] ,aRHER
;ANY ERRORS IN RHER REG.
4%
;YES,GO FIND THEM
- $TMPS
;IS IT BEING USED AS A SUBROUTINE
LEAVE
JYES
$TMPS
;SETUP SUB ROUTINE FLAG
ERR2
;WAS THERE ANY ERRORS
R7,FOUND
;DEVICE NO. ERROR
aRH(CS2,RBUF
JGET CONTENTS
71
;DEVICE NO. NOT =7
R7 ,WATBIT
;FIND BIT NOT SET
12%
;TEST REST OF ERROR BITS
R7,FINDIT
JRHCST IN ERROR
adRHCS1,RBUF
;GET CONTENTS
72
JERROR BIT SET IN (S
R7 ,WATBIT
;WHAT BIT IS SET
16%
sTEST REST OF REGISTERS
R7,LOOKFO
JERROR IN RH(CSZ
aRH(S2 ,RBUF
JGET CONTENTS
73
JBIT SET IN (S2
R7 WATBIT
.TELL
WHAT BIT
17%
;CONTINUE TEST
R7,LOOKED
JRHER HAS A BIT SET
aRHER,RBUF
JGET CONTENTS
SET

JSR
TST
BEQ
BR
JSR

R7 WATBIT
$TMPS
LEAVE
ERR2
R7,FIND

;TELL WHAT BIT
;1S 1T BEING USED AS A SUBROUTINE
JYES
;WAS THERE ANY ERRORS
JRHST HAS AN ERROR BIT SET

ERROR

JERROR IN RHST

MoV
JSR
B8R
JSR
MOV

aRHST ,RBUF

R7 ,WATBIT
18%
R7,CS3ERR
ARHCS3, RBUF

JGET CONTENTS

STELL WHAT BIT
cCONTINUE TEST
;CLEAR UNWANTED BITS
JGET REG. C(ONTENTS

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

2171

2172
2173
2174
2175
2176
2177

2178

007206

007210
007214
007220
007224
007230
007232

2179
2180
2181

104176

004737
000737
000137
000137
000207
004737

MACY11
T2

ERROR

046362
006660
006616
007220
050210

AR A R R AR A R

007236
007240
007246
007254
007262
007270
007272
067274

000004
012777
012777
017737
022737
(01401
104034
004737

000040
000007
174076
000040

174072
174064
001172
001172

050210

2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222

007300
007302
007310
007316
007324
007326
007334
007342
007350
007356
007360
007362
007366
007372
007376
007404
007412
007420
007426
007434
007442
007450
007454
007456
007462

J*TEST 4

007466
007470
007476
007504

(000004
012737
012777
022777
001056
012777
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
005777
001434
000137
005777

001416
012737
017737
104042

000001
177777
177777

001212
174014
174006

000040
173770
173764
173760

174004
003420
Q03444
003414

003416
(003424
007412
173756
173752
173722
173716
173712
173710
173670
173656

003416
003424
003422
003432
003436
003442
003440

007576
173644

177777
173630

001162
003444

PAGE 44

176

A AR R AN AR A

SEQ 0043

;Rd(SS HAS AN ERROR BIT SET

JTELL WHAT BITS
sCONT CHECK
;START JSR WHYFO
sFIND ERROR BITS SET
.60 BACK TO PROCRAM THAT SENT YQU HERE

’
AN

AN AN RN

R R AN RN S RN AR AN KRR

AT AN

R AT NN AR

THIS TEST SEES IF THE TESTER IS CONNECTED
s*THIS TEST SEES IF THF DEVICE CODE IS
;%A 40 TO SAY AN RH SiMULATOR 1S ATTACHED

SCOPE
MOV
MOV
MOV
CMP
BEQ
ERROR
JSR

ERR4:

)

10:46

R7 ,WATRIT
15%
12%
.~
R7
R7 ,ERRTST

#CLR,aRHCS?
#7 ,dRHCS2
aRHDT, $REG4
#40, $REG4
ERR4
34
R7 ,ERRTST

AR AR KA NN R AR

2194
2195
2196

A AR A AN R R R A AR R AR AR AR N KRN R AN AR R AR A RN N R RARA N AR RRNN AR RN

TST3:

2192

2223
2224
2225
2226

J*TEST 3

2193

2197

JSR
JMP
JMpP
JUMP
RTS
JSR

WHYFO:
LEAVE:
ERR2:

2182

2183
2184
2185
2186
2187
2188
2189
g}g?

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

AR R AN R A AR R

AN R AR RN AR AR R AR AR AR A AR AR AN R A RN

AR AR R AR AR R A AR A AR AR R AN NN A AR IR A AR ANA RN RN A RN AN

SCOPE
MoV
MoV
CMP
BNE
HERE:
MOV
MOV
MOV
MoV
TST
BEQ
CLR
CLR
JMP
87%:
MOV
MOV
86%:
MOV
MoV
MOV
MOV
MOV
TST
.
BEQ
JMP
WCERR1: TST

BEQ
MOV
MOV
ERROR

#1,8TIMES
#-1,3RHWC
#=1,aRHWC

WCERR1
#CLR,@RH(S?
aRHCS1T,(S1
aRHW( , WC
ARHBA ,BA
R1
87%
BAE

€S3
86$
aRHBAE ,BAE
@RHCS3,(S3
@RH(CSZ2,(S2
@RHST ,DS1
aRHER,ER1
aRHTDR, TDR
ARHMR?, TC
ARHWC
wCERR?2
a#DoJT
aRHW(

1%
#-1,3REGO
aRHWC , W(
&2

;:D0O 1

:CLEAR TESTER
JUNIT SEVEN
JGET DRIVE TYPE
;IS IT THE TESTER
;WAS
THERE AN ERROR
JTESTER NOT CONNECTED
:

WC CLEAR TEST
s*THIS TEST WILL SEE THAT WHEN A CLEAR IS GIVEN
;*THE WORD COUNT REGISTER REMAINS THE SAME

1ST4:

R R R NN

,
PR AR AR

ITERATION
sMAKE WC NEGITIVE
;WAS IT LOADED CORRECTLY
sNO,ALL BITS DID NOT SET
sTELL DEVICE TO CLEAR
s SAVE RH(CS1
s SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RHT
sNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
- CONT INUE
:SAVE BUS ADDRESS EXTENSION
sSAVE RH(CS3
JSAVE (S2
sSAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REC.
:SAVE MR2 TESTER REG.
;DID IT CLEAR
;YES,CLEAR SHOULD NOT C(LEAR W(
;GO TO NEXT (HECK
:DID ANY BITS LOAD

sNO
:
;SAVE WHAT W( SHOULD HAVE BEEN
JSAVE CONTENTS OF wWw(
JALL BITS DID NCT SET

2227
2228
222%
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

003444
046362
007326

000137
012737
017737
013737

007576
003444

004737
004737
004737

046362
006572
050210

104043

104044

177777

173574

177777
173552

MACY11
T4

001200

wC CLEAR TEST

Mov

JSR
JMP

001162
003444

1%:

001162
0036444
001200

WCERRZ: MOV

MOV
MOV

ERROR
JMP

MoV
MOV

ERROR

DOIT:

30A(3i052)

JSR
JSR
JSR

wC,$TMP1

R7 ,WATB]T

a#HERE
-1,8REGO
aRHWC
, W(C
43
o#D0IT

#-1_$REGO

aRF
WC , W(
WC,$TMP1
44
R7 ,WATBIT
F”,CLEER
~7 ,ERRTST

10:46

PAGE 45

-—

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

JSETUP FOR WATBIT
JFIND THE BIT(S)
JSEE IF BITS SET (LEAR
;SETUP FOR ERROR
;GET BAD DATA
;WC DID NOT LOAD ANY BITS
;GO TO NEXT REG. TEST
:SETUP GOOD DATA
;GET BAD DATA
;sSETUP FOR WATBIT
sSOME BITS CLEARED IN wWC
;FIND THE BITS THAT (LEARED

;CLEAR ERRORS

SEW 0044

MACYTT 30A(7052)

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE P11
07=JUN=79 1344

2241
2062
2243
2244
2245
2246
2267
2248

2249
2250
2051
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289

2290
2291
2292
2293
229,
2295
229

TS5
.

12=JUL=79

RHBA (LE AR TEST

10:46

PAGE 46

SEQ 0045

't""l".."i.ll..".."'..t.."‘Q"it'.fi.t.fittt.lQtfi_ttttt."tQ

TRTEST S

RHBA (LEAR

s*THIS

TEST

SEES

TEST

THAT WHEN A (LEAR

[S GENERATED

J*THE BUS ADDRESS REGISTER [S CLEARED

";.Q"Q.".Q.fi't.i‘..t‘t"'..t.t't.Qt.'.tttt..ittt"t.'tt.t.tt'..

007606
007610
067616
007624
007626
007634
007642
007650
007656
007660
007662
007666
007672
007676
007704
007712
007720
007726
007734
067742
007750
007754

000004
012777
022777
001066
012777
017737
017737
017737
005701
001406
005037

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

173470
173464
173460

003416
003424
007712

173456

173452
173622
173416

173412
173410
173370
173360

046362
010020

010020
010024

004737
004737

06572
050210

104046

MOV
(mp
BNE

000040

004737
000137
012737
017737

010016
010020

SCOPE

17DO:

177776

007756
007762
007770
007772
007776
010002
010010

104045

1STS:

177776

001167
173346

177776
173320

MOV
MOV
MOV
MOV

003414

TST

BEQ

87%:

86%:

86%
aRHBAE ,BAE
aRH(CS3,CS3

MOV
MOV
MOV

ARHST,DS1
@RHER,ER1
aRHTDR, TDR

001162
001200

101T:

SET

JSAVE RHCS1

;SAVE WORD (OUNT
;SAVE BUS ADDRESS
JIS IT AN RHI
JNO IT'S A 70
;CLEAR BAE

(S3

JCLEAR (S3

;CONT INUE
;SAVE BUS ADDRESS EXTENSION

JSAVE RH(CS3

aRH(S2,(S2

;SAVE

(S2

;SAVE TESTER STATUS

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

MOV
1S7T

BIRHMR?2,
T(
adRHBA

(LR
MOV
ERROR
JSR

$REGO
aRHBA, $TMP1
45
R7,WATB]Y

;SAVE MRZ2 TESTER REG.
-

;1S IT ZERO
JTEST IS GOOD
;CREATE GOOD DATA
JSETUP FOR WATRBIT
;RHBA DID NOT CLEMR

1017

JFIND BITS

STILL

St7T

MOov
ERROR

#7017
#-2 ,3REGO

aRHBA, $TMP1
46

;GO TO NEXT REGH. TEST
;SETUP GOOD DATA
:SETUP FOR WATB]T
JBITS DID NOT SET IN RHRA

JSR
JSR

R7,CLEER
R7 .ERRTST

s CLEAR ERRORS

JMP
MOV

1%:

THEY ALL

JALL THE BITS DID NOT SET
JTELL IT TO CLEAR

87%

JMP
MOV
MOV

B8EQ
001200

JARE

BAE

MCvV

JSET ALL BITS IN RHBA

#CLR,aRH(S2
8RHCST,(S1
aRHW( ,W(
aRHBA ,RA

CLR

(LR

003416
003424
003422
003432
003436
003442
003440

#-2 ,aRHBA
#-2 ,3RHBA
1%

'.'tttt*ifittfiQttttttttfi*tfit'tttltttfittttttttttt.tt't'tttfi!ttt'tQ't

SATEST €
F

010030
010032
010034
010036
010044
010052
010054
010062
010070
010076
010104

100510

012777
022777
001066
0127727
017737
017737
017737
005701

000077
000077
000040
1732472
173236
172232

173314
173306

173256

003420
003444
003414

CLEAR

PR A AR RA AR AR AN NN R AR AN RN R

1516:

000004
005701

RHBAE

WATFOR:

TEST

s*THIS TEST (HECKS THAT WHEN A CLEAR IS GENERATED
;*THE BUS ADDRESS EXTENSION REGISTER IS CLEARED

SCOPE
TST

MOV

477, RHBAE

BM]

(MP
BNE

MOV
MOv
MOV
MOV
TST

RN RRNAN AN A RN ANANNNNNNAANNRARN RS

1S17

#:7 ,8RHBAE
1%

#CLR,ARHCS?Z
aRt (S1,(S1
aRHW(
, Wl
aRHBA RA
R

RN TN

JIS IT A 70 OR AN 11
;. SKIP OVER TEST FOR RH11
JSET ALL BITS IN RHBAE
JARE

THEY ALL

SET

JALL THE BITS DID NOT SET
JTELL IT TO CLEAR

s SAVE- RH(S1

s SAVE WORD (OUNT
. SAVE BUS ADDRESS
JIS 1T AN RHIT

MASSBUS RH70 AND RH11 DIAGNQSTIC
CZRHBE P11
07=JUN=7S 13:44

2297
2298
2299
2300
230°
2302
2303
2304
2305

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

003416
003424
003422

003432
003436
003442

87%:
86%:

004737
000137
012737
017737
104101

046362
010246
000077
173116

001162
001200

004737
004737

006572
050210

010302
010306
010310
010314
010322
010324
010330
010332
010334

010334
010342
010350
010356
010360
010362
010366
010372
010376
010404
010412
010420
010426

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737

177777
003446
000200

173064
173040

1817:
18%:

003446,
003446
0060200

173016

19%:

003446

17
172764
17
003416
003424
010412
172756
17275
17
172716
172

003420
003444
003414

DRMG:

87%:
86%:

(S3
86%
@RHBAE ,BAE

;CLEAR (S3
; CONTINUE
. SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2
JSAVE TESTER STATUS

ARHST ,DS1
aRHER ER1
aRHTDB, TDR
ARHMR?2,
T(
oRHBAE
WATF
vV

MOV

aRHBAE
,$ TMP1

JMP
MOV
MOV

ANWATF
]V
#77 ,$REGO
aRHBAE ,$TMP1

JSR
JSR

R7,CLEER
R7,ERRTST

;CLEAR BAE

s SAVE ERROR REGISTER
<SAVE TESTER DATA REG.

;SAVE MRZ2 TESTER REG.
;IS IT ZERO
JTEST IS GOOD
s CREATE GOOD DATA
JSETUP FOR WATBIT
JRHBAE DID NOT CLEAR
JFIND BIVS STILL SET
;GO TO NEXT REG. TEST
;SETUP GOOD DATA
JSETUP FOR WATBIT
cBITS DID NOT SET IN RKBAE

$REGO

100
R7 ,WATB]IT

101

;CLEAR ERRCRS

AAR AR RN A ANN AR RNRARNRRAANRRANANA RN R

s*THIS

RHDB CLEAR

TEST

CHECKS

AR AN R A AR AN AN RN TR

SCOPE
MOV
CLR
BIT
BNE
INC
BNE

R P AANRA R

RN AN RN AT AR

TEST
THAT WHEN A CLEAR

;*=QUTPUT READY 1S NEGATED

TR R RN AR AR

AN N

C A AN

IS GENERATED
AR RRANRNARR R

IA RN AR

#-" ,dRHDB
BITCNT
#OR,dRH(CS?
DRMG
BITCNT
18%

JSET ALL BITS IN RHDR
;CLEAR BIT COUNTER
:IS OR SET
JBIT IS SET
;COUNT UP
JNOT FINISHED COUNTING

BIT
BNE
INC
BEQ

#0R,aRH(CS?
DBMG
B8ITCNY
DBMG

JIS IT SET YET?
JYES

MGV
MOV
MOV
TST

aRH(CS1,(S1
aRHW(
, W(
aRHBA ,RA
R1

CLR

BAE

;SAVE WORD C[OQUNT
;SAVE BUS ADDRESS
;IS 1T AN RH11
JNO IT'S A 70
;CLEAR BAE

MOV

aRHBAE ,BAE

. SAVE BUS ADDRESS EXTENSION

aRHST,DS1
aRHER,ER1

JSAVF

(LR

8EQ

003416
003424
00342¢
003432
003435

JNO IT'S A 70

aRH(S2,(S2

ERROR

PAGE

87%

MOV
MOV
MOV
MOV
ST
BEQ

R AR AR

4
10:46

SEG 0046

aRH(CS3,(S3

ERROR
JSR

TEST

MOV

CLR

WATFIV:

(LEAR

BAE

MOV

1%:

12=JUL=79

(LR

CLR
JMP
MOV

003440

601200

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

RHBAE

BEQ

JxTEST

010256
010260
010266
010272
010300

30A(7052)

001162
173144

106100

010252

003416
003424
010140
173230
173224
173174
173170
173164
173162
173142
173156

MACY11

CLR
JMP

MOV
MOV

BITCNT

19%

B7%

(S3
86%

SRH(S3,(CS3
aRH(S2,(S2

;GET READY

TO DO

AGAIN

;COUNT UP

JBIT IS NOT GOING TO SET

. SAVE RH(CS1

;CLEAR (S3
: CONT INUE

;SAVE RH(S3
JSAVE (S2

TESTER STATUS

;SAVE ERROK REGISTEN

MACY1T

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

2353
2354
2355
2356

2357
2358

236

2362
2363
2364
2365
2366
2367
2368
2369
2370
237
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400

2601
24602
2403
24604
2405
2406

2407
2408

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
104041

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

172710
172670

000200

177777
003446
000200

003442
003440
172662

HURTS:

172636

18%:

19%:

003446

000040
003446
000200

172574
172562

003446
000200

DBMSG:
18%:

BNE
t RROR
cMP
CLR
8IT
BNE
INC
BNE
(LR
BIT
SNE
INC
BEQ
BR
MOV

CLR
BIT
BEQ
INC

172544

104114

004737
004737
004737

BIT

172662

172614

RHDB CLEAR

MOV
MOV

003446
003446
000200

3 O0A(71052)

007224
006572
050210

BNE
SNAFOO: BIT
BEQ
ERROR
1%:
PO

JSR
JSR
JSR

010656
010660
010664
010670
010676
010700

010702

010710

104052

005003
013737
027737

003366

160100

003356

1%:

2%:
003360

172452

003330
172504

3%:

003412

003420
001162

4
10:46

’
PAGE 48

SEQ 0047

:SAVE

TESTER DAiA REG.

;SAVE MR2 TESTER REG.

;1S OUTPUT READY SET

JYES

,CONTINUE

SCOPE
CMP
BNE
MOV
TST
CMP

BEQ

TST
BNE
CMP

BEQ
BR

TST
MOV
MOV
MOV
ERROR
MOV

(MP

TEST

;OUTPUT READY DID NOT SET
;DID INFO GET LOADED TO DB
sCLEAR BIT COUNTER
1S OR SET
JBIT IS SET
s COUNT UP

#-1,aRHDR

BITCNT
#0OR,dRHCS?2
DBMSG
BITCNT
18%
BITCNT
#0R,dRHCS2
DBMSG
BITCNT
DRMSG
19%

JNOT FINISHED

COUNTING

;sGET READY TO DO IT AGAIN
SIS IT SET YET?

. YES

. COUNT UP

JBIT IS NOT GOING TO SET

#CLR,aRH(CS?
BITCNT

JTELL IT TO CLEAR
sCLEAR THE COUNTER
;DID OUTPUT READY CLEAR
;YES GET OUT OF LOOP
s INCREMENT COUNT LOOP
sCONTINUE LOOP IF NO CARRY
;1S OUTPUT READY CLEARED
JYES,EXIT TEST
;OUTPUT READY NOT CLEARED

#OR,aRH(CS?2
SNAF 00

BITCNT
18%

#0R,®RHCS?2

1%
114

;BY SETTING CLR IN RH(CSZ

R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

JANY ERROR BITS SET
;CLEAR ERRORS

T RRANRRNNNRARANRNANANNNANRARANNANTAARRARNRRAANARRN
SR

PROM REGISTER DECODE

TEST

J*THIS TEST CHECKS THAT THE PROM
;*CAN ACCESS ALL REGISTERS

CLR

29%:

aRHTDB, TDR
ARHMR2,
T(
#0OR,aRH(CS2
HURTS
41

ARS8

15710:

003360

003416
001162

TEST

AR RAR N AN A RN ANAAAAAARRAA

“RTEST 1 0

000004
023727
001000
013704
005724
023704
001526
005724
001004
023704
001521
000772
005744
010437
011437
017737

12-JUL=79

2222222222223

TR LT EE LR

?§V1C1.#160100

;CHECK FOR WHAT REG END

RHDT R4
+
(R4)
RHBAE ,R4

;SETUP TO TEST RH1M
. CORRECT ADDRESS
SARE ALL REGISTERS CHECKED
;WERE THERE ANY ERRORS

ERR3

(R4)
+

RHBAE ,R4

ERR3
2%

JWE

ARE

JTEST REGISTER

;6OME INFORMATION WAS FOUND
JARE ALL REGISTERS CHECKED

JWAS THERE ANY ERRORS

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

:TEST NOT COMPLETED
;CORRECT ADDRESS
s SAVE ADDRESS
;GET CONTENTS
sGET ATTENTION SUMMARY

R2
RHCS1,(S1

JGET OFFSET READY
:GET ADDRESS TO START (HECKING

3(S1,$REGO

JFALSE

INFO

[N FAKE

JHAS A REGISTER BEEN FOUND

THAT '/ CMPAKE
"

MASSBUS RH70 AND RH11 _DIAGNCSTIC
C ZRHBE .P11
07=-JUN=-79 13:44

26409
2610
2611
2612

010716
010720
010726
010730

2414
2615
2616
2617
. +18
2419
2620
26421
2622
26423
2426
2625
2426
2627
2428
2429
2630
2431
24632
243%3
2434

070742
010744
010752
010754
010760
011024
011024
011030
011032
011034
071036
011040
011042
0110644
011046
011050
011052
011054
011056
011060

2636
2437
2438
26439
2440

011064
011066
011070
011072
011074

2443
26446
2645

011102
011104
011106

000706
104066
000704

2647

011112

000702

2649

011116

004737

2613

2435

2641
2442

2646

2648

522?

030736

011062

(011076
011100

011110

011114

011122

001412
023737
001473
062737

062703

000762
032737
001026
1064401
000421

003356

003420

000002

003420

020000

177570

000004

MACYT1
T10

30A(7052)
12-JUL=79
PROM REGISTER DECODE

30$:

BEQ
CMP
BEQ

ADD

PAGE 49

28%
RHDT,(S1
ERR3
#TW0,CS1

SEQ 0048

;YES,PRINT 1T ouT
SIS IT LAST REG IN RH11
;WAS THERE ANY ERRORS

*NO,CORRECT FOR NEXT CHECK

#4 RS

.- CORRECT OFFSET

000724
104057
000722
104060
000720
104061

JMP
ERROR
BR
ERROR
BR
ERROR
BR
ERROR
BR
ERROR
BR
ERROR
B8R
ERROR

29%
sCONTINUE TEST
#SW13,34177570
*SKIP ERROR PRINTOUT
55%
*SKIP MESSAGE .65%
::TYPE ASCIZ STRING
64$
SiGET OVER THE ASCIZ
<15><12>/REGISTER CONTENTS COMPARES T0:/
)
27%(R%)
;PRINT REGISTER
53
SRHCST
308
*CONTINUE TEST
54
JRHW(C
308
SCONTINUE TEST
55
*RHBA
308
“CONTINUE TEST
56
JRHMR?2
30%
JCONTINUE TEST
57
SRHCS2
308
*CONTINUE TEST
60
JRHST
30%
;CONTINUE TEST
61
;RHER

104062
000714
104063
000712
104064

ERROR
BR
ERROR
8R
ERROR

62
308
63
30%
64

000163
104053
000732
104054
000730
104055

28%:

010762
J:65%:
648"
55%:
27%:

011030

000726
104056

000716

B8R

000710
104065

B8R
EKROR

004737

ERROR

B8R
050210

ERR3:

006572

30%

30%
65
30%
66
308
67

B8R
ERROR
BR

104067

104070

8R
BIT
BNE
TYPE
BR
LASCIZ

10:46
TESTM

JSR

:CONTINUE TEST

JRHAS
*CONTINUE TEST
*RHTD3
SCONTINUE TEST
;RHDRB

‘

JCONTINUE
*RHMR1

TEST

JCONTINUE TEST
JRHDT
*CONTINUE TEST
. RHBAE

308

*CONTINUE TEST
JRHCS3

R7.ERRTST

R7.CLEER

:CLEAR ERRORS

2452

;;ttitttt!tttttkttttttttt*tttttttittttfittttttittttttttfittttt‘itnt

2453
2454
2455

SPTEST 1
RHCS3 TEST
s%THIS TEST CHECKS THE READ/WRITE BITS
;*IN THE RHCS3 REGISTER CAN BE CLEARED AND SET.

2‘56

;:ttttttttttttt*tttittttttttttttttt*tttttttttttttt'tttttitttttttt

2457
2458
2459
2460

011126
011130
011136
011144

000004
012777
012777
005701

000060
000007

172202
172174

2662
2463
2664

011150
011156
011164

012737
012737
013777

000004
000001
001162

003450
001162
172170

2461

011146

001122

TST11:

SCOPE
MOV
MOV
ST

#CLR,BRHCS2
A#7.aRHCS2
R1

MOV
MOV
MOV

#4,LOOCNT
#1.$REGO
$RFGO, aRHC$3

BNE

1%:

TST12

:CLEAR TESTER
*SETUP UNIT SEVEN
SIS IT AN RH70
S:THIS IS A RH1

SSETUP LOOP COUT OF

.
14
.

-SETUP BJT TO BE
*SET THE BIT

FOUR

TESTED

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

2465 011172
2666 011200
26467 011206
2668 011214
2669 011216
2670 011222
26471
011226
2672 011230
2473 011236
2474
011244
26475
011252
26476 011260
2477 011262
26478 011262
2479 011270
2480 011276
2481
011304
2482
011306
2433 011310
2684 011314
2485
011320
26486 011324
2487 011332
2488 011340
2489 011346
2490 011354
2491
011362
2492
011370
2493 0113/6
2494 011400
2495
011404
2496 011410
2497
2498
2499

017737
013737

123777
001022

006137
005337
001356
012737
013777
017737
023777
001451
017737
017737
017737
005701
001406
005057
005037
000137
017737
017737
017737
017737
017737
017737
017737
104035

004737
004737
004737

172164

003424
001162

MACY11
T11

003424
001200
172146

001162
003450

001162

172042
172036
172032

003420
003444
003414

172030
172024
1721774
171770
171764
171762
171742

172116
003424
172102

003416
003424
003422
003432

003436
003442
003440

046362
050210
000572

ERRS:

SEQ 0049

1%
#1E3,$REGO
$REGO,dRHCS3

JTEST NEXT BIT
;SET INTERRUPT BIT
JSET BIT

CMP
BEG

$REGO,aRHCS3
ERRS

;1S BIT SET?
;WAS THERE AN ERROR

MOV

@dRHCST, (S

s SAVE RH(CS1

MOV

adRHBA ,BA

s SAVE BUS ADDRF SS

BEQ

87%

JNO IT'S A 7C

€S3
86%
aARHBAE ,BAE

;CLEAR (S3
; CONT INUE
;SAVE BUS ADDRESS EXTENSION

$REGO
LOOCNT

aRH(SS,(S3

aRHW( ,w(

BAE

MOV
MOV

@RH(CS3,CS3
@dRH(SZ2,(CS2

MOV
MOV
MOV
MOV

@RHST DS
aRHER ,ER1
aRHTDB, TDR
aRHMRZ, T(

JSR

R7,ERRTST

ERROR
JSR
JSR

[F NEEDED

JSETUP TO TEST NEXT BIT
:=1 TO THE LOOP COUNT

;SAVE (ONTENTS

s SAVE
;IS

CLR

CLR
JMP
MOV

;SAVE CONTENTS OF RH(S3

WORD

COUNT

IT AN RH1?

;CLEAR BAE

s SAVE RH(CS3
sSAVE (S2

;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
JSAVE MR2 TESTER REG.

35
R7,WATBIT

;BIT DID NOT SET
JTELL WHAT BIT POSITION IS NO GOGD

R7,CLEER

;CLEAR ERRORS

"'tfitttttttttttttitttttttt***fiitti'ttttttt*ttitttttttt'ttttttfittt

J*TEST

2500

2501
2502
2503
2504
2505 2506 011414
2507 011416
2508 011424
2509 011432
2510 011440
2511
011442
2512 011450
2513 011454
2514
011462
2515 011470
2516 011476
2517 011500
2518 011502
2519 011506
252C 011512

BNE
MOV
MOV

TST

B6S:

PAGE

sSETUP FCR WHAT BIT
;IS THE BIT SET?
:NO,GO TO ERROR

MOV

87%:

&4
10:46

RHCS3,(S3
(S3,$TMP1
$REGO,aRHCS3
2%

MOV
5

MOV
MOV
CMPS
BNE
ROL
DEC

000100
001162
172112
001162

003416
003424
011340

30A(i052)
12~J4UL=79
RHCS3 TEST

12
;*THIS

RHWC BIT
TEST CHECKS

TEST
THE WORD COUNT REGISTER

;*TO SEE IF ALL BITS CAN BE SET AND CLEARED
;*AND CHECKS THE REGISTER USING ALTERNATE BITS

J*SET (52525) AND USING (125252) TO MAKE SURE
;*]T WORKS WITH ALTERNATE PATTERN.

'"t‘fi'ttt'**tfittttttttttfittttt*ltk'ti‘fitflt*ttfittt'tttttt‘i!t'tttt

000004
012737
013777
023777
001454

013737
004737
017737
017737
017737

005701
001406
005037

005037
000137

000001
001162
001162

001162
171700
171672

003444
046362
171650
171644

001200

171640

003416
003424
01* 32

003420
003444
003414

TST12:
RHWCT:

SCOPE

MOV
MOV

#ONE
, SREGO
$REGQ, dRHW(

;SET UP REFERANCE WORD
;MOVE BIT INTO WORD CCUNT REGISTER

Mov
JSR

WwC,$TMP]
R7 ,WATBIT

JSETUP FOR WATBIT PROG.
;G0 TO WATBIT PROGRAM

aRHW(C ,W(

s SAVE WORD COUNT

(MP
BEQ

MOV

MOV
MoV
TST

BEQ
CLR

(LR
JMP

$RLGO, IRHWC
1%

aRHCST,(S1

aRHBA,BA
R1

87%

BAE !

(S3
86%

;1S BIT SET?
JYES,CONTINUE BIT

. SAVE

RH(CS1

s SAVE BUS ADDRESS
SIS IT AN RHT

NG IT'S A 70
;CLEAR BAE

;CLEAR (S3
s CONT INUE

TEST

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

2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
25346
2535
2536
2537
2538
2539
2540
2561
2562
2543
2544
2545
2546
257
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576

011516
011524
011532
011540
01156

011554
01152
011570
011572
011576
011600
011604

011606
011614
011622
011630

011636
011640
011646
011652
011660
011666
011674
011676
011700
011704
011710
011714
011722
011730
011736
011744
011752
011760
011766
011770
011776
(012004
012012
012020
012022
012030
012034
012034
012042
012050

012056
012060
012062
012066
012072
012076
012104
012112
012120
012126

017737
017737
017737
017737
017737
017737
017737
104001
005737
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
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

MACY1T
712

30A(7052)
RHWC BIT

87%:

mMov
MOV
MOV
MOV
MOV

8¢$:

003442
003440

001162

1%:

001162

052525
001162
171504
001162

001162
171510
003444
171474

003444
046362
171452
171446
171442

001200

RHWCA:

003420
0034446
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
171312

003444
046362

001200

171270
171264
171260

003420
003444
003414

003416
003424
012112
171256
171252
171222
171216
171212

003416
003424
003422
003432
003436

87%:
86%:

1%:

GOOF:

87%:

86%:

12=JUL=79
TEST

aRHBAE ,BAE
dRHCS3,(S3
@dRH(CS2,(S2
aRHST DS
aRHER,ER1

MOV
MOV
ERROR
TST
B8MI
ROL
BR

aRHTDB, TDR
aRHMRZ2, T(
1
$REGO
RHW(CA
$REGO
RHWCT

MOV
MoV
MOV
(MP

10:46

PAGE

;SAVE
;SAVE
JSAVE
;SAVE
s SAVE

SEQ 0050

BUS ADDRESS EXTENSION
RH(CS3
(S2
TESTER STATUS
ERROR REGISTER

;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;BIT WAS NOT SET IN RHWC REG
JWAS IT BIT 15 THAT WAS LAST TESTED
JYES ,GO TO NEXT PART OF TEST
sNO,THEN TEST NEXT BIT
;DO BIT TEST AGAIN

BEQ
MoV
JSR
MOV
MoV
MoV
TST
BEQ
CLR
CLR
JMP
MOV
MoV
MoV
MOV
MOV
Mov
MoV
ERROR
MoV
MoV
MOV
CMP
BEQ
MOV
JSR

#AB, $RE GO
$REGO, IRHW(
ARHWC ,W(
$REGC, aRHW(

1%
WC,$TMP1
R7 ,WATBIT
@dRH(CS1,CS1
aRHWC ,W(
aRHBA,BA
R1
87%
BAE
€S3
86%
aQRHBAE ,BAE
@RHCS3,(S3
@dRH(CS2,CS2
aRHST ,DS1
aRHER,ER1
aRHTDB, TDR
dRHMRZ, TC
1
#0AB, $RE GO
$REGO, aRHW(
aRHWC ,WC
$REGO, IRHW(
ERR6
WC,$TMP1
R7,WATBIT

sSET UP ALTERNATE BIT PATTERN
cSET ALTERNATE BITS
s SAVF RHW(C CONTENTS
JARE THEY ALL SET?
;YES,CONTINUE TEST
;SETUP FOR WATBIT PROG.
;GO TO WATBIT PROGRAM
s SAVE RH(CS1
s SAVE WORD COUNT
s SAVE BUS ADDRESS
;IS IT AN RH11
sNO IT'S A 70
;CLEAR BAE
sCLEAR (S3
; CONT INUE
;SAVE BUS ADDRESS EXTENSION
JSAVE RH(CS3
sSAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
sSAVE MR2 TESTER REG.
;TEST FAILED
sSET UP ALTERNATE OPPISITE BITS
;SET OPPISITE ALTERNATE BITS
sSAVE CONTENTS OF RHWC
JARE CORRECT BITS SET?
;WAS THERE AN ERROR
;SETUP FOR WATBIT PROG.
;GO TO WATBIT PROGRAM

MoV
MoV
MoV

@dRHCS1,CS1
aRHWC ,W(
adRHBA ,BA

s SAVE RHCS1
:SAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH1M
;NO IT'S A 70
:CLEAR BAE
;CLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
s SAVE RH(CS3
JSAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGJSTER

TST
BEQ
CLR
(LR
JMP
MOV
MOV
MoV
MoV
MoV

R1
87%
BAE
cS3
86%
@RHBAE ,BAE
RHCS3,CS3
dRHCS2,(S2
adRHST,DS1
@RHER,ER1

MASSBUS RH70 AND RH11 _DIAGNOSTIC
CZRHBE P
07-JUN=79 13:44

2625
2626
2627
2628

017737
017737

171210
171170

003442
003440

013737
012777

003332
000000
004120
00037/

004142

005237
012777
113777
022777
001401

004142
000000
004121
177400

004737
012777
004737

050210
00000
006572

104200

~N
- -

104200

O~N=—

022777
001401

113777

171144
171746
171130

NN N

104001

—ok

2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
c618
2619
262V
2621
2622
2623
2624

012134
012142
012150
012152
012160
012166
012174
012202
012204
012206
012212
012220
012226
012234
012236
012240
012244
012252

30A(1052)

ERR6:

MOV
ERROR
MOV

—_

2577
2578
2579
2580
2581
2582

MACYT1

171060

RHWC BIT

MOV

MOV
MOVB

CMP

BEQ
ERROR
HIBYTE: [NC
MOV

TEST

aRHTDB, TDR

;SAVE

TESTER DAJA REG.

#377, 3RHWC

:ANY EXTRA BITS

#ZERD, SRHWC
MINUS,@SRHW(

:CLEAR WC FIRST
:CHECK LOBYTE

HIBYTE
200
SRHW(

:0K SO FAR
SHIBYTE GATE NOT WORKING PROPERLY
:GET PEADY FOR NEXT BYTE

#ZERQ, ARHWC

BEQ

ALRIGT

JSR
MOV

R7 ERRTST
#2ERO, ARHWC

JSR

SEQ@ 0051

:SAVE MR2 TESTER REG.
*OPPISITE BIT TEST FAILED
*GET READY TO TEST BYTES

MINUS+1,@$RHWC

ERROR

PAGE 52

aRHMR2, TC
1
RHWC , SRHWC

MOVB

CMP

ALRIGT:

M 4
12-JUL=79
10:46

*CLEAR WC

:CHECK THE HI BYTE

#177400 , aRHWC

$IS IT oK

200

*LOBYTE GATE NOT WORKING PROPERLY

SITS 0K

:CLEAR WORD COUNT

R7,CLEER

{CLEAR ERRORS

;;tt*ttifi***tttttfi*ttit**'*i*tk***fit**fi*fii*t*tttt**tfit*tt*tttttQfi

SRTEST

RHBAE BIT TEST

SJ*ONLY

s*THIS TEST TESTS THE RHBAE REGISTER
THE RH

IS AN RH70,RH11'S

:*DO NOT HAVE AN RHBAE REGISTER

';*tt**tt*tt*tttt**tttt**t*tt*tt*t*t**t*t*ttttt*t*ttttttttttttttt

012256
012260
0122€2
012264
012272
012300
012306
012314
012316
012324
012330
012336
012344
012352
012354

012356

012406
012414
012422

012430
012436
012444

012446
012454
012456
012462

000004
005701
0011904
012737
013777
17737
023777
001454
013737
004737
017737

017737
017737
005701

001406
005037
005037
000137
017737
017737
017737

017737
017737
017737
017737
104002

022737
001403
00€137
000703

TST13:
000001
001162
171054
001162

001162

003416
046362
170774
170770
170764

001200

003416
003424
012406
170762
170756
170726

171060

003416

MOV

SRHBAE ,BAE

BNE
MOV
BAETST: MOV

171044

CMP
BEQ

003420
003444
003414

170722
170716
170714
170674

000040

001162

1$:

$REGO, ARHBAE
1%

SIS IT SET?
SYES CONTINUE TEST

R7.WATBIT
@RHCST,CS1

*GO TO WATBIT PROGRAM
:SAVE RHCS1

©SAVE CONTENTS OF RHBAE REGISTER

MOV
MOV
TST

ARHWC , WC
@RHBA RA
R1

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

CLR

BAE

SCLEAR BAE

JMP

86$

MOV
MOV
MOV

SRHCS3.CS3
ARHCS2.(S2
ARHST,DS1

CLR

86%:

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

BAE , $TMP1

BEQ

87%:

;1S RH AN RH70

TST14
#1,$REGO
$REGO, DRHBAE

MOV

JSR
MOV

003416
003424
003422
003432
003436
003442
003440

001162

SCOPE

MoV
MOV
MOV

37$

€s3

INO IT'S A 70

*CLEAR CS3

> CONT INUE

QRHBAE ,BAE

*SAVE BUS ADDRESS EXTENSION

aRHERER1
ARHTDB, TDR

*SAVE ERROR REGISTER
*SAVE TESTER DATA REG.

MOV
ERROR
CMP

ARHMR2 . TC
2
#40, $REGO

ROL
BR

$REGO
BAETST

BEQ

“SETUP FOR WATBIT PROG.

ERR?

*SAVE RH(S3
$SAVE (S2
:SAVE TESTER STATUS

*SAVE MR2 TESTER REG.
*BIT DID NI SET

:1S

1T LAST BIT

TO BE

‘WAS THERE AN ERROR

TESTED

*NO,SET UP FCR NEXT B]7
;CONTINUE TEST

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

2633
2634

012464
012470

004737
004737

006572
050210

MACY11
T13

30A(7052)
12=JUL=-79
RHBAE BIT TEST

ERR7:

JSR
JSR

R7,CLEER
R7,ERRTST

ASESARARRAR

J*TEST 14

s*THIS

&
10.46

PAGE 53

SEQ 0052

s CLEAR ERRORS

ARl 2222222222222
3 R A2 R TR AL R R R

RHBA BIT TEST

TEST

TESTS THE BUS ADDRESS REGISTER

s*BY FIRST ALTERNATLY SETTING AND CLEARING

2651
2654

2661

2671

2681

012474

000004

012476
012504
012512
012520
012526
012530
012536
012544
012552
012560
012562
0° 2564
012570
012574
012600
012606
012614
012622
012630
012636
012644
612652
012654
012660
012664
012666
012672
012674
012702
012710
012716
012724
012732
012734
012742
012750
012756
012764
012766
012770
012774
013000

012737
013777
017737
023777
01454
013737
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
104003

000002
001162

001162

170606

003414

001200
003420
003444
003414

170566
170562
170556

003416
003424
012614

170554
170550
170520
170514
170510

170506
170466

046362
001162

006137
000704
012737
042737
013777
017737
023777
001454
013737

001162

017737
017737
017737
005701

001406

005037
005037
000137

170622

170616

004737
005737
100403

AASALE

TST14:

BATST:

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

SRRl stz
iRl
22 2R R
R 2

SCOPE
Mov
MOV
MOV
CMP
BEQ
MOV
MOV
MOV
MoV
TST

BEQ
CLR

003416
003424
003422
003432
003436
003442
003440

87%:

86%:

(LR
JMP
MOV
MOV

MOV

MOV
MOV

MOV

052525
000001
001162
170412
001162

001162
001162

TST
8M]
ROL
BR
BATSTA: MOV
81C

003414

MOV

003414

001200
003420
003444
003414

170362
170356
170352

003416
003424
013020

1%:

ERROR
JSR

170416

170402

MOV

CMP
BEQ

#TWO,SREGO
$REGO, aRHBA
aRHBA ,BA
$REGO, aRHBA
1%
BA,$TMP1
ARHCST,(ST
aRHWC ,W(
aRHBA ,BA
R1

87%

BAE

€s3
86$
aRHBAE ,BAE
aRH{S3,(S3

@RH(S2,(S2

JSET UP BIT TEST
sSET BIT IN RHBA REGISTER
;SAVE CONTENTS OF BA REGISTER
;ARE CORRECT BITS SET
JYES,CONTINUE TEST
;SETUP FOR WATBIT PROG.
s SAVE RH(CS1
;SAVE WORL COUNT
; SAVE BUS ADDRESS
IS IT AN RH11

JNO IT'S A 70

:CLEAR BAE

;CLEAR (S3
; CONT INUE
s SAVE BUS ADDRESS EXTENSION
JSAVE RHCS3

;SAVE (S2

@RHST DS
dRHER ER1

;SAVE TESTER STATUS
:SAVE ERROR REGISTER

dRHKMRZ2, T(

;SAVE MR¢ TESTER REG.

aRHTDA, TDR

3
R7 ,WATBIT

;SAVE

TESTER DATA REG.

sNO,CORRECT BITS ARE NOT SET
;60 TO WATBIT PROGRAM

$REGO
BATSTA
$REGO
BATST
#AB, $RE GO
#ONE , $REGO

;CLEAR BIT O POSITION

aRHBA ,BA

;SAVE

$REGO, AaRHBA
$REGO, aRHBA
1%

;WAS BIT 15 THE LAST BIT TESTED
;YES,GO TO ALTERNATE BIT TEST
sNO,SET UP TO TEST NEXT BIT
;CONTINUE BIT TEST
JSET UP BIT PATTERN

sSET BITS IN RHBA REGISTER
CONTENTS OF

MoV

BA,$TMP1

MOV
MoV
TST

aRHWC , W(
aRHBA ,BA
R1

;SAVE WORD COUNT
s SAVE BUS ADDRESS
SIS IT AN RHIN

BAE

s CLEAR BAE

MOV

BEQ
CLR

CLR
JMP

adRH(CS1, (ST

87%
€S3
86%

BA REGISTER

JARE CORRECT BITS SET
JYES,CONTINUE TEST

;SETUP FOR WATBIT PROG.

;SAVE RHCS1

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

MASSBUS RH70 AND RH11 DIAGNOSTIC
{ZRHBE PN
07-JUN=-79 13:44

2689
2690

013004
013012
013020

013026
013034

013042
013050
013056
013060
013064
013072
013100
013106
013114
013116
013124
013124
013132
013140
013146
0*3150
013152
013156
013162
013166
013174
013202
013210
013216
013224
013232
013240
013242
013246
013254
013262
013270
013276
013300
013302
013306
013314
013522
013330
013332
012334
013340

017737
017737
017737
017737
017737
017737
017737

1
1
1
1
1

004737
012737

045362

104003

013777
017737
023777
001454
013737
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737

017737
01/737
104003

004737
013737
012777
113777

022777
001401

104202
005237
012777
113777
022777
001401
104202
004737
004737

MACY11
T14

003416
003424
003422
003432
003436

87%:
B6%:

003442

003440

125252

001162

170230

001162

003414
170220

003414

001200

170200
170174
170170

003420
003444
003414

001162

003416
003424
013202
170166
170162
170132
170126
170122
170120
170100

046362
003334
000000
004120
000376

004136

000000
004121
177400
006572
050210

170234

003416
003424
003422
003432
003436
003442
003440

004136
170052

1%:

GOOFED:

87%:
86%:

MOV
MOV
MOV
MOV

MOV
MOV
MOV
ERROR
JSR
MoV
MoV

(MP
BEQ
MoV
MoV
MOV
MOV
TST

8EQ
CLR
CLR
JMP
MOV

MOV
MOV
MOV
MOV

MOV
MOV

ERR10:

99%:

98¢
:

RHBA BIT

MoV

170646
170036

170020
170614
170004

30A(71052)

ERROR
JSR

MOV
MOV
MOVB

CMP
BEQ
ERROR

INC

MOV
MOvB

CMP
BEQ
ERROR
JSR
JSR

12=JUL=79

TEST

aRHBAE ,BAE

aRHCS3,(S3
dRH(S2,(CS2
@RHST, DS
aFHER ER1
aRHTDR, TDR

?RH“RZ.TC

R7 ,WATBIT

#0A8
$RE ,
GO

$REGO, 3RHBA
aRHBA ,BA
$REGO,aRHBA

ERR10

BA,$TMP1
@RHCS1,CST

BRHWC ,W(

BRHBA ,BA
R1

87%

BAE

(S3
86%

aRHBAE ,BAE

ARHCS3,CS3
®RH(S2,(CS2

ARHST,DS1
aRKER,ER1
aRHTDB, TDR
?RHMRZ.TC

R7,WATBIT
RHBA
, SRHBA

#7ERQ, aRHBA

MINUS
, 3$RMBA
#376,3RHBA
99%

202

$RHRA

#7ERO,aRHBA

MINUS+1,a$RHBA
#177400, dRHRA

G8%
202

R7,CLEER
R7,ERRIST

10:46

PAGE

SEQ 0053

; SAVE BUS ADDRESS EXTENSION
; SAVE RHCS3
; SAVE €S2
;SAVE TESTER STATUS

. SAVE

ERROR REGISTER

; 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
s SAVE CONTENTS OF BA REGISTER
cARE CORRECT BITS SET
;WAS

THERE AN ERRUR

;SETUP FOR WATBIT PROG.
: SAVE RHCS1
: SAVE WORD COUNT
: SAVE BUS ADDRESS
IS IT AN RH11

JNO IT'S A 70
;CLEAR BAE

sCLEAR (S3

s CONT INUE
; SAVE BUS ADDRESS EXTENSION
; SAVE RHCS3
:SAVE cse
; SAVE TESTER STATUS
; SAVE ERROR REGISTER

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

sNO,CORRECT BITS ARE NOT SET
:GO0 TJ WATBIT PROGRAM
;GET READY TO TEST BYTES
;ZERO THE BUS ADDRESS
;MOVE THE BYTE
;DID IT GET THERE ALRIGHT
JYES,CHECK NEXT BYTE
;JHIGH BYTE DOES NOT SEEM TO BE WCRKING
;GET READY FOR NEXT BYTE
;ZERQO THE BUS ADDRESS
;MOVE TO UPPER BYTE
DID IT GET THERE ALRIGHI

SYES,EXIT TEST
JLOBYTE IS NOT WORKING PROPERLY
s CLAER ERPORS

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

MACYTT
T4

2737

2738

2739

J*TEST

2740
2741

2762

AN AN

27646

013344

000004

2748
27649
2750
2751
2752
2753
2754
2755
2756
2757
2758

013346
013352
013360
013366
(13372
013400
013402
013406
013410
013414

005037
012737
013777
005037
032777
001015
005237
001371
005037
032777

2760
2761
2762
2763
2764
2765
2766
2767

013424
013430
013432
013434
013434
013442
013450
013456

2786
2787
2788
2789
2790
2791
279c

10:46

PAGE

SEQ 0054

N S

R R R AR

)

RHDB BIT TEST

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

PATTERN

(52525)

S*ALTERNATE BIT PATTERN (125252)

2745

2768
2769
2770
2771
2772
2773
2776
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785

J*ALTERNATE

2744

2759

12-JUL=79
TEST

J*IN THE RHDB REGISTER AND THEN BY USING AN

2743

2747

30A(7052)
RHBA BIT

013422

013460
013462
013466
013472
013476
013506
013512
013520
013526
013534
013542
013550
013556
013560
013562
013566
013574
013576

013604
013606
0136146
013622
0136246
013632
013634

001004

TST15:

003450
000001
001162
003446
000200

001162

167764

DBTIST:

167730

18$:

003446
003446
000200

167706

005237
0014601
000770

003446

017737
017737
017737
005701
(001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
0047327
032777
001004
017737

167670
167664
1676€7

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

104041
017737
(023737
001406
013737
104004
004737

046362

001200

'9%:

ABLE:

A R R AR RN AR

SCOPE

(LR
MOV

MOV
(LR
BIT
BNE

R AR R AN NN AN

LOOCNT
#ONE , SREGO

A NN IR R AN R

OPPISITE

NN AN N RN NI AR

TN ANR

;CLEAR LOOP COUNT
JSET UP BIT TEST

INC
BNE
(LR
BIT

$REGO, aRHDB
BITCNT
#RDY ,aRH(S1
ABLE
BITCNT
18%
BITCNT
#RDY ,aRH(CS1

INC
BEQ
B8R

BITCNT
ABLE
19¢%

s COUNT UP
¢BIT IS NOT GOING TO SET

dRHCS1,(S1
aRHW( ,W(
aRHEA BA
R1
87%
BAL
€S3
86%
@RHBAE ,BAE
aRH(CS3,(S3
@RHCS?2,(S2
@RHST,DS i
aRHER ,ER1
RHTDB, TDR
aRHMR?, T(
#RDY ,GRH(S1
RDYSET
102
R7 ,WHYFO
#0R ,aRH(CS?
CRSET
aRHDB,DB

s SAVE RH(CS1
s SAVE WORD COUNT
s SAVE BUS ADDRESS
SIS IT AN RH11
JNO IT°'S A 70
;CLEAR BAE
;CLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
JSAVE (S2
;SAVE TESTER STATUS
s SAVE ERROR REGISTER
:SAVE TESTER DATA REG.
JSAVE MR? TESTER REG.
;1S READY SET
;SKIP ERROR
JREADY DID NOT SET
;ANY ERRORS SET
;1S OR SET?
JYES,IT'S SET
;SAVE CONTENTS OF RMDB REGISTER

BNE

MCv
Mov
MOV
TST
8EC
(LR
(LR
.Mp
87%:
MOV
MOV
86%:
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
JSR
RDYSET: BIT
BNE
MOV

ORSET:

RN AR R R

AND

tRROR
MOV
(MP
BEQ
MOV
ERROR
JSR

ABLE

41
aRHDB, DB
$REGO, DB
1%
DB, $TMP1
4
R7 ,WATB]T

JSET BIT IN RHDB REGISTER
sCLEAR BIT COUNTER
;IS RDY SET
;BIT IS SET
2 COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
1S IT SET YET?

SYES

sOUTPUT READY DID NOT SET
;SAVE CONTENTS OF REGISTER
c1S CORRECT BIT SET?
JYES,CONTINUE TEST
JSETUP FOR WATBIT PROG.
;NO,CORRECT BIT IS NOT SE?
;GO TO WATBIT PROGRAM

MASSBUS RH70 AND RH11 _DIAGNQSTIC
(ZRHBE PN
07=JUN=79 13:44

2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807

2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821

2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839

014000
014002
014002
014010
014016
014024
014026
014030
014034
014040
014044
014052
014060

005737

001162

022737

000001

100415

001404
005237
000137
005037
006137
000630
022737
001404
005237
000137
012737
013777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737
017737

017737

005701
001406
005037
005037
000137
017737
017737
017727
017737
017737
017737
017737
032777
001001
104041

023777
001411
017737
013737
104004

014202
014210
-~

005737
012737
013777
005037
032777
001015

1%:

003450
013360°
052525
001162
003446
000200

BEQ
INC
JMP
CLR

2%:

001762

000001

TST
8M]
CMP

003450

003450
013360
003450

167416

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

167372

18%:

167350

"9¢:

003450

001162

CLR
BIT
BNE
INC
BNE

003446
003446
000200

CLR
8IT
BNE
INC
BEQ
BR

003446

167322
16731€
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

003426
046362
125252

001162
003445
000200

:
DBOUT

MOV
MOV
MOV
TST

BEQ
CLR
CLR
JMP

87%:

MOV
MOV
MOV
MoV

86%:

MOV
MOV
MOV

167274

001162

001162
167154

167130

12=JUL=79

RHDB BIT

TEST

$REGO
DBTSTA

#ONE ,LODCNT

LOOCNT
DBTST
LOOCNT
$RE GO
DBTST

#ONE ,LOOCNT
|

LOOCNT
OBTST
#AB, $REGO

$REGO,aRHDB
BITCNT
#OR ,aRH(CS?2
DBOUT
BITCNT
18%
BITCNT
#O0R ,aRHCS?2

SEQ 0055

JWAS BIT 15 THE LAST BIT TESTED

:YES,GO TO ALTERNATE BIT PATTERN TEST
JIS IT FIRST TIME

JNO, IT'S SECOND
JYES,
;CONTINUE TEST
JCLEAR LOOP COUNT
cNO,SET UP TO TEST NEXT 8I"

.GO AND TEST BIT
;IS IT FIRST TIME
.
;NO
COUNTER
LOOP
. INCREMENT
;DO AGAIN
JSET UP BIT PATTERN TEST
JSET BITS IN REGISTER
JCLEAR BIT COUNTER
;IS OR SET
;BIT IS SET
JCOUNT UP
cNOT FINISHED COUNTING
cGET READY TO DO IT AGAIN
JIS IT SET YET?

s SAVE RHCS1
s SAVE WORD COUNT

aRHBA .BA

87%

BAE

JCOUNT UP
JBIT IS NOT GOING TO SET

s SAVE BUS ADDRESS

;IS IT AN RH11
JNO IT'S A 70
:CLEAR BAE

€S3
86%

;CLEAR (S3

@RHCS3.CS3

;SAVE RH(CS3
;SAVE (S2
:SAVE TESTER STATUS

SRHBAE
, BAE

ARHCS2.CS2
SRHST.DS1
. ER1
aRHER
ARHTDB, TDR
RHMR2
. TC

#OR,3RHCS2

aRHDB,
DB

ge.srnp1

s CONT INUE
;SAVE BUS ADDRESS EXTENSION

;SAVE ERROR REGISTER

;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S OUTPUT READY ?
JYES CONTINUE TEST
;OUTPUT READY DIDaNQT SET
JARE CCRRECT BITS SET?

sYES,CONTINUE

TESTS

;SAVE CONTENTS OF REGISTER
sSETUP FOR WATBIT

TEST

R7,WATB]T
#0AB, $RE GO

JNO,CORRECT BIiS ARE NOT SET
;GO _TO WATBIT PROGRAM
sSET UP OPPISITE ALTERNATE BIT PATTERN TEST

BITCNT
#OR ,RH(S2
0ABTST

OR SET
$1S
JBIT IS SEY

$REGO, aRHDB

18¢%:

PAGE 56

ARHCST,CS?

ARHWC ,WC

?geco,annoa

1%:

10:46

JYES

2%:

DBOUT
BITCNT
DBOUT
19%

2796

013640
013644
013646
013654
013656
013662
013666
013672
013676
013700
013706
03710
013714
013720
013726
013734
013740
013746
013750
013754
013756
013762
013770
013772
013776

30A(7052)

2793
2794
2795

M?g¥11

;SET BITS IN REGISTEP
JCLEAR BIT COUNTER

MASSBUS RH70 AND RH11 DIAGNULSTIC
CZRHBE PN
07-LUN=79 13:44

2B4S
2850

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

014430

004737
004737
004737

MA(YT!
1158

003446
003446
000200

167106

19%:

003416
003424
014322

003420
003444
003414

OARTST:
MYSTIC:

CLR

8I7

BNE
INC
BEQ

MOV

86%:

MOV

000200
166754

003426

2%:

003426

046362
006572
050210

MOV
MOV
MOV
MOV
BIT

ERR11:

®RHCS3,CS3

“@RH(S2.,CS2
ARHST.DS1
aRHER,ER1
aRHTDB, TDR
ARHMR2,
T(
#0OR,aRHCS?2
2%
,

$REGO,DB

JSR
JSR
JSR

BAE

;CLEAR CSo
;CONT] NUE
s SAVE BUS ADDRESS EXTENSION
; SAVE KHCSS
;SAVE (se
; SAVE TESTER STATUS
. SAVE ERROR REGISTER
; SAVE TESTER DATA REG.

®RHBAE ,BAE

tMpP

BEW

.CLEAR

€S3

MOV
ERROR

; SAVE WORD COUNT
; SAVE BUS ADDRESS
JIS IT AN RH11
JNO IT 'S A 70

87%

BNE
ERROR

MOV

001200

;SAVE RH(S1

86%

MOV

SEQ 0056

ARHCST,CS1

OABTST
19%

JMP

MOV

PAGE 57

s COUNT UP
JNOT F INISHED COUNTING
;GET READY TC DO IT AGAIN
SIS IT SET YET?
JYES
s COUNT P
S NOT GOING TO SET
JBIT

BAE

cLp

10:46

BITCNT
18%
BITCNT
#CR,3RH(S?
QABTST
B8ITCNT

CLR

8EQ

003426

TEST

ARHW(
, W(
@dRHBA ,BA
R1

87%:

0011€2

12=JuUL=79

MOV
MOV TST

003416
003424
003422
003432
003436
002442
003440
166752

167046
167042
167012
167006
167002
167000
166760

E-5

RHDB BIT

INC
BNE

003446

167660
167054
167050

3 0A(i052)

:SAVE MR2 TESTER REG.

;1S OU TPUT READY SET
;YES
;OUTPU T READY DID NOT SET

aPHDR,DP

;SAVE

CONTENTS OF

JARE C ORRECT BITS SET?
JWAS T HERE AN ERROR

ERR11

DB,$TMP1
&
R7.WATRIT

JSETUP FQR WATBIT PROG.
; CORRE CT/BITS ARE NOT SET
;GO 10 WATBIT PROGRAM
;CLEAR ERRORS

R7,CLEER
R7,ERRTST

‘;*it\'l"t‘*flfitl’ttittttfiltttt**t.tttttttttittfittt!itiit'tltfitfitflOt

TwTEST 1 6
SR

014434
014436
014444
014452
014454
014456
014464
014472
014500
014504
014512

000004
012777
012777
005701
100403
012777

012777
012777
005037

032777
001015

177777

166666
166666

000000
001204
000061
003446
000200

166674

000007

RHWC OPERATIONAL

TEST

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

RA RN RN RN AT ARNRNRARRARRN RN RRANRRNREARANNAANNAANRRSAANANRNARSI
R RN R
RN &R

1$T16:

SCOPE
MOV
MOV
ST

#-1,aRHWC
#7 ,8RHCS2
R1

MOV

#7ERQ, ARHBAE

MOV
(LR
BIT
BNE

#MIRITEQ, ARHCST
BITCNT
#RDY ,aRHCS1
6%

BM]

166647
166630

1%:

166616

18%:

MOV

#$TMPS 3RHBA

;SETUP FOR 1 WORD
JSETUP UNIT 7
JIS IT AN RH11

:YES
;SETUP BUS ADDRESS EXTENSION
JSETUFP BUS ADDRESS

;CLEAR BIT COUNTER
;1S RD Yy SET
BIT | S SEY

MASSBUS R1470 AND RH11 DIAGNOSTI(
(ZRHBE .P11
07=JUN=-79 13:44

2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2926
2925
2926
2927
2928
2929
2930
2931
2932
2933

2934
2935
2936
2937
2938
2939

2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953

014514
014520
014522
014526
014534
014536
014542
014544
014546
014546
014554
014562
014570
014572
014574
014600
014604
014610
014616
014624
014632
014640
04646
014654
014662
014670
014672
014676
014700

014706
014770
014714
014716
014722
014724

005237
001371
005037
032777
001004
005237
00140
(000770

003446
003446
000200

166574

19%:

003446

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001007
005777
001425
022777

166556
166552
166546

003420
003444
003414

003416
003424
014624
166544
166540
166510
166504
166500
166476
166456
000200

003416
(03424
003422
003432
003436
003442
003440
166440

6$:

87%:
86%:

166434
177777

001410
005777
001435
005037
104077
004737

166424

166416

2%:

001162

007224
001204

014730
014736
014740
014744
0164746
014752
014760
014762

023777
001414
005037
104123
000137
023777
001010
1046102

014764
014770
014774

000137
005037
104103

015010
001162

Sggg

014776

000137

015010

2957
2958
2959
2960

015002

104104

2954

MACY11
T16

166412

4%:

166370

3%:

001162

015010
001206

5%:

7$:

30A(7052)
12-JuL=79
10:46
RHWC OPERATIONAL TFST

INC
BNE
CLR
BIT
BNE
INC
BEQ
BR
MOV
MoV
MoV
TST
8EQ
CLR
CLR
JMP
MOV
MOY
MOV
MOV
MoV
MOV
MOV
BIT
BNE
TST
BEQ
CMP

BEQ
TST
BEQ
CLR
ERROR
JSR

BITCNT
18%
BITCNT
#RDY ,@RHCST
6%
BITCNT
6%
19%
dRHCSET, (ST
aRHW( , W(
aRHBA ,BA
R1
87%
BAE
(s3
8¢$
aARHBAE ,BAE
@RH(CS3,(S3
@RHCS2,(S2
a&RHST ,DS1
aRHER,ER1
ARHTDB, TDR
ARHMRZ, T(
#RDY ,@RH(S1
2%
ARHW(C
3%
#=1,aRHWC

4%
ARHW(
8%
$REGO
77
R7 ,WHYFO

CMP
8EQ
CLR
ERROR
JMP
CMP
BNE
ERROR

$TMP3,3ARHTDR
5%
$REGO
123
8%
$TMP3,RHTDB
’$
102

JMP
(LR
ERROR

8$
$REGO
103

JMP

ERROR

104

PAGE

s COUNT UP
JNOT FINISHED COUNTING
JGET READY TO DO IT AGAIN
IS IT SET YET?
JYES
;COUNT uP
;BIT IS NOT GOING TO SET
s SAVE RHCS1
s SAVE WORD COUNT
s SAVE BUS ADDRESS
1S IT AN kdll
JNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
- CONT INUE
;SAVE BUS ADDRESS EXTENSION
sSAVE RH(CS3
;SAVE (S2
;SAVE TESTER STATUS
:SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S READY SET
JYES
;DOES W(C=0
JYES
;IS IT EQUAL TO OLD

JYES,SEE IF DATA WAS WRITTEN
;DID WC INCREMENT ?
JYES,EXIT TEST
;SETUP GOOD DATA
2RDY DID NOT SET, WC DID NOT CLEAR
JARE ANY ERROR BITS SET

JWAS INFO WRITTEN TO TESTER
;INFO WAS WRITTEN TO TESTER
;SETUP GOOD DATA
;WRITE OPERATION DID NOT WORK
JRH DID NOT START OQOPERATON

JRDY BIT NOT 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 WRIVIEN
;TO TESTER
.

JRDY BIT DID NOT StT AFTER
A WRITE OPERATION, w( WwAS INC
JAND INF WAS NOT WRITTEN “C
JTESTER

SEQ 0057

MASSBUS RH70 AND RH11 DIAGNCSTIC
CZRHBE PN
Q7=JUN=79 13:44
015004
015010
015014

004737
004737
004737

MACY11
¢

30A(71052)

8%:

JSR
JSR
JSR

T16

007224
006572
050210

12=JUL=79

RHWC OPERATIONAL

TEST

10:46

PAGE

SEQG 0058

R7,WHYFO
R7,C.EER
R7 ,ERRTST

;WAS AN ERROR

;CLEAR [RRORS

;WAS

SET

THER ANY ERRCRS

RAATAANRAIRAAANRNRNANAANRNS
T RANANRRAARRAANNANARNANRANCRAACTRANS 2N AR

JATEST 17
RHBA OPERATIONAL TEST
J*THIS TEST CHECKS THAT THE BUS ADDRESS REGISTER
s*wiLL

M-

015030
015032
015034
015042
015050
015056
015060
015062
015070
015072
015100
015100
015104

005701

—d
e
ed
d
d
e
—

md wed
b
b
—

)

000004
012737

015020
015022

015274

100403

012777
012777
012777
005701
001404
012777
000403

000001

000037
1777276

177777

oe12i2

166316
166264
166254

000461

166240

112777

000061

166230

005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

003446
000200

166216

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737

166156
166152
166146

017737
005701
001406
032777
001022

1$:

003420
003444
003414

#1,8TIMES

IST

166034

YR 2

AN ER TR

IT AN

OR A

B 3
#37 ,aRHBAE
8177776 ,aRHBA

JIT'S AN RHTI
JSETUP BAE [N RHZ0
;SETUP BA

TST

;1S

MOV

#AT6'WRITEQ,aRH( ST

MOV

#-1,aRHW(

348

;:D0
Y ITERATION

BM]
MOV
MOV

JSETUP WORD (OUNT

JYES

JTELL

A RHZ70

TO WRITE

%g::

JSKIP OVER 70 CODE
JTELL IT TO WRITE

18%:

8IT

CLR

BITCNTY

;CLEAR BIT (OUNTER

BNE
INC

2%
BITCNT

JBIT IS SET
;COUNT UP

CLR

BITCNT

MOV

.
aRH(CS1,(S1

; SAVE RHCS?

87%

JNO IT'S A 70

rs3
86%
aRHBAE ,BAE
®RH(S3,CS3

;CLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3

19%:

2%:

8IT
BNE
INC
BEQ
BR

87%:

86%:

#RDY ,aRH( ST

18%

#RDY ,adRH: S1
2%
BITCNT
’%
19%

MOV
MOV
TST

aRHWC ,WC
aRHBA ,BA
R1

(LR

BAE

MOV

aRH(CS2,(S2

BEQ

003432
003436
003442
003440

35¢
AWRITEQ,aRMH(ST

003416

003416
003424
003422

BR
MOVB

003446

001000

SCOPE

BNE
166174

RS2

MOV

BEQ

003446

003446
00020C

THROUGH TO THE HIGHEST B]

s*IN THE BUS ADDRESS EXTENSION REGISTER OR BT A17
s*IN THE RHCS? REGISTER AFTER I IS INCREMENTED

SRSl

TST17:

CARRY

CLR
JMP
MoV
MOV
MOV
MOV
MOV
MOV
TST

8EQ
BIT

BNE

BRHST,DS1
aRHER,ER
oRHTDR, TDR
aRHMR?, T(
R1

12%
#A17 ,8RH(ST

;IS RDY SET

JNOT FINISHED COUNT NG
;GET READY

TO DO

IT AGAIN

JIS IT SET YET?
JYES
JCOUNT UP
JBIT IS NOTM GOING TO SET

;SAVE WORD COUNT
;SAVE BUS ADDRESS
JIS IT AN RH1T

sCLEAR BAE

;SAVE (S2

,SAVE TESTER STATUS
;SAVE ERROR REGISTER
JSAVE TESTER DATA R{G.
;SAVE MR2 TESTER REG.
IS IT AN 1Y OR A 70

:DO RH70Q PART QOF TEST
:DID A17 GET SET

JYES

}

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE.P11

3017

3018
3019
3020
3021

3031

3041

015276

015302
015310
015312
015320
015322
015326
015330
015332
015336
015342

000137
022777
001414
022777
001420
005777
001425
104105

000037

166040

015496
165766

001003

A ¥

007224
015456

3¢:

007224
015456

015456
000400

033777

12%:

007224

000137

104112

001403

000137
005701

165702

JMP
ERRUR

004737
004737

JMP
TST

BEQ
ERROR

015456

11%:

015456

13%:

006572
050210

8%:

;DID AN ERROR JTHER THAN NEM CAVSIT
.DID BA INCREMENT

;WAS AN ERROR BIT

SET

JYES LEXIT TFST
JBA DID NOT INCREMENT

SEXIT TEST
;BAE DID NOT INCREMENT
.WAS AN ERROR BIT SET

JEXIT TEST

;BAE INCREMENTED 0K BUT A17
;A16 DID NOT INC PROPERLY IN RH(CS1
JEXIT TEST
JRHBAE IS ZERO

JBIT S IN BAE SHOULD BE SET
;IS A 16 SET
JYES, BA DID NOT INCREMENT
:?Lz DID NOT SET WHEN BA WAS

A16,aRHCST
i0%
MM

JEXIT TEST
;DOES BA =0

adRHBA

11$
112

JYES, BA INCREMENTED

;IS IT A 70 OR 11
;GO TO CORRECT ERROR

8M!]
ERROR

13%

;BA DID NOT INCREMENT
JEXIT TEST

;BA INCREMENTED BUT DID NGT
;CARRY TO BAE

ERROR

8%
113

JSR
JSR

R7,CLEER
R7 ,ERRTST

JMP

FOR RH11

;DID BAE INC
JBAE INCREMENTED
;1S BAE OLD VALUE
;BAE DID NOT [NCREMENT
;1S BAE 7ERO
JBAE IS ZERO
;BAE GO1 MESSED UP DOING A WRITE

§37. ORHBAE

JMP
TST

SEQ 0059

;CONT.

040 aRHBAE

JMP

9%:

10%:

PAGE 60

BEQ
ERROR
JSR

6%:

104076

104113

JMp
(MP
BEQ
CMP
BEQ
TST
BEQ
ERROR
JSR
JMP
TST

ERROR

100403

000137

12=-JUL=79
RHBA OFERATIONAL TEST

165712

015456

30A(70S2)

ERROR
JSR
JMP
ERROR

104111

015434
015436
015442
015444
015446

015456
015462

166050

015456

000137
005777

015450
015454

015410
000040

000137
104110

117

166032

004737
000137
005777
001443

015422
015426

015432

3051

07=JUN=79 13:44

015346
104112
015350
015352
004737
015356
000137
104706
015362
015364 1004737
015370
000137
015374
104107
015376
015402
015404
015410
015416
015420

MACY11

;GET QUT OF TgST
;BA INCREMENTED BUT

IT DID NOT

:CARRY OVER TO A17 + Al6

:CLEAR ERRORS
;WAS THERE ANY ERRORS

. 'tttttttitt'tfi*"fitttttttt*tkttfi!ttttttt‘t'l"tttttttttttt"ttto

S*TEST 20

NEM,TRE,SC BIT

;*THIS

TEST

s*WILL

SET

WILL

THE

CHECK

TRE

TEST
THAT

NON EXISTING MEMORY

AND SC BIT

IN RH(S1

012777
005701

s G
jur

OCOO0OO

000004
05701
001404
013777
000403

ii.ttttl"l"l’fifi*ifit!tt"ti.ttt..fitttfittl'&tttlttttt.Qt'tttt.t‘t

100403

t8120:
003362

165632

177702

165622

SCOPE
TST

BEQ

MOV

418:

40%
RH(S3,aRHBA

413

MOV

#177702 ,aRHBA
R1
9s

BM.

:SE T

UP BUS ADDRESS
T AN RH70

JNO SKIP RH11 PORTION

D wd ——b ed
) e—d
)
d
)
D
e
md
—d
e
d
D
el
—

roruNLrLN NOMNVMNIN)
~
et e b b e 2 2
Co NOAWNEBAWNN—-O
000 NN WN—-O

3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102

N AN AN AN AN U AN AN N NN AN AN AN AN NN NN

3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084

OCOOOOOOO

MASSBUS RH70 AND RH11 DIAGNCSTIC
{ZRHBE P
07=-JUN=79 13:44

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
001407
000770
017737
017737
042737

01773/
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

000077

177777
000007
001471
003446
000200

MACYTT
120
165634
165600
165600
165562

G%:

165550

18%:

165526

L F

003446
003446
000200
003446

165520

165502

027777

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

86%:

140000

001162

040000

001162

100000

001162

140000

001162

020000

0046124
004126
004130
004132
004134

MOV

PAGE 61

#77 ,3RHBAE
#-1,3aRHW(
#7,8RH(CS2
#A16'A
! READO,RRH
17
(ST

SEQ 0060

¢SET UP BAE REGISTER
;SET WORD COUNT

TO ONE WORD

BITCNT

BNE
INC
BNE
(LR
BIT
B8NE
INC
BEQ
BR

DELTA
BITCNT
18%
BITCNT
DELTA
BITCNT
DELTA

MOV
MOV

@RHCS2,(CS2
@RH(S1,$REGO

cSAVE CONTENTS OF RHC(CS?
JSET UP NEEDED BITS ONLY

#RDY ,aRH(CS1

#RDY ,aRHCS1

19%

8I¢

OGO‘IE'RDY'A16'A17'PSEL DVA'MCPE'READé $REGO

MOV
MOV
MOV
TST

aRHCS1,CS1

BEQ
(LR
CLR
JMP
MOV

MOV

SRHWC ,W(
aRHRBA ,BA
R1

87%
BAE
€S3
86%
@dRHBAE ,BAE
SRHCS3,CS3
aRH(S2,CS2
aRHST,DS1

MOV

aRHER,ER1
aRHTDB, TDR

BIT
BNE
ERROR
JSR

99%
102
R7 ,WHYFO

BIT

B8NE
(MP
BEQ

aRHMR2,
T(

#RDY ,aRH(CS1

ngM.QRHCSZ
{§C!TRE.SREGO
é

#T
, RE
$SREGO

#SC,3$REGO
43
1%:

10:46

(LR

BIT

MOV

99% :

JSET UNIT NUMBER
JTELL IT TO RFAD
;CLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
s COUNT UP
cNOT FINISHED COUNTING
cGET READY TO DO IT AGAIN
SIS IT SET YET?
JYES
:COUNT UP
;BIT IS NOT GOING TO SET

MOV
MOV

MOV

165350

165342

000000
030175

87%:

003640

007224
004000

173400
174000

DELTA:

30A(i052)
12=JUL=79
NEM, TRE,SC BIT TEST

CMP

5
8%

#SC.TRE,$REGO

223

M(PE,$(ST

.CLEAR BITS NOT NEEDED

:SAVE RHCS1
;SAVE WORD COUNT
. SAVE BUS ADDRESS
;1S IT AN RHI11
JNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
. CONT INUE
;SAVE BUS ADDRESS EXTENSION

;SAVE RH(CS3
;SAVE CS2

;SAVE TESTER STATJS

. SAVE

ERRCR REGISTER

;SAVE TESTER DATA REG.
;SAVE MRZ2 TESTER REG.
;1S READY SET

JYES CONTINUE TEST
JREADY NOT SET
JANY ERRORS SET

;IS NEM SET
JYES CHECK TRE AND SC
;IS THE SC AND TRE BITS SET
JYES NEM 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
JNEM NOT SET IN RH(CS?
JSET UP TO TEST AGAIN
oIS SC AND TRE SET

JFIND

THE ERROR
:TEST FOR SHORTS

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

MWCELO'WCEHI .DPELO.DPEM]I APE ,$CS3
#0,8S571
#ILF .RMR.(Pt .DPE 'KRMBEX .RFAIL .DTE.OP],SER

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

3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161

0161C2
016110
016114
016120
016124
016132
016134
C16142
016144
016146
016150
016152

012737
004737
005037
000137
032737

001022
032737
001022
104006
000421
104007

004737

016156
016160
016162

000415

016166
016170
016172

000411

016176
016200
016202
016206
016210
016212

016220
016222
016226
016230
016236
016244
016246
016250
016254

104010

004737

104011

004737

MACY11
120

177777
007224
004122
016212
040000

001142

100000

001162

004122

000405

104012

004737
000401

007224

032737
001003

041400

104013

105737
001010
112777
032777
001401
104050

004737
004737

000100

BNE
8IT

63
#SC SREGO

8%
#TRE
, SREGO

sTHEN

;TRE HAS AN OPEN GOING

ERROR
JSR

7
R7 ,WHYFQ

;NEM HAS OPEN

BR
ERROR

8%
0

BR
ERROR
JSR

8%
11
R7 ,wWHYFO

B8R

ERROR
JSR

165126
165074

006572
050210

21%:

8IT
8EQ

ERROR
JSR
JSR

AR AR R

SATEST 21

016262

76
77
78

016276
(C16300
016302

D caad
=
b o
el
b
md
b
— md

764

AN AN N N AN N N AN N N NN

SRR

016260

80
81
82
83
84

016270

016310
016316
016324
016332
016336
016344

000004
012777
012777
005701
001003
012777
012777
012737
012777
005037
032777
001015

177777

165042
165042

000000
001172
(52525
000061
003446
000200

165050
165016

000007

001172
164764

18%:

TO BUS

[N LINE GOING

JSET UP TO TEST AGAIN
;SOMTHING WRONG WITH TRE BIT

R7,WHYFQ

;SEE IF AN ERROR BIT IS SET
;OR BOTH NEM [N RHCSZ2 AND SC IN

JRHCS1

$ERFLG

HAS AN OPEN BETWEEN [T AND

#TRERB,aRH(CS1R

50
R7,CLEER
R7 ,ERRTST

;TRE WAS

SET BY OTHER

THAN NEM

;FIND ERROR BIT THAT SET TRE
JSETUP TO TEST AGAIN

;TRE HAS AN OPEN GOING TO THE BUS
sANY LOOPING BEEING DONE
;YES,LOAD TRE NO MATTER WHAT

JWAS

THERE AN ERROR

AR RN AR AN R RN AN NNAAANNRANRANNRAAAANANNNRNTRRIN
RN AR N NN

SCOPE
MoV
MOV
TST

#-1,3RHWC
#7,aRHCS?2
R1

TEST

MOV
MOV
MOV

#7ERO, aRHBAE
#$REG4
, aRHBA
#A8,
SRE G4

MOV
CLR
BIT
BNE

)

#WRITEQ,IRH(ST
BITCNT
#RDY ,IRH(S1
wCETST

THE BUS

JSET UP TO TEST AGAIN
:SC BIT WAS SET 8Y EITHER ATTN OR
;FIND WHAT ERROR BIT IS SET
sMCPE ERROR OR SC IS SHORTED TO +5 vOLTS
;JSETUP TO TEST AGAIN

;SKIP TRE CHECK
;LOAD TRE
.DID ERROR CLEAR
JYES EXIT TEST
JLOADING TRE DID NCT CLEAR ERROR
;SEE IF ERRORS ARE CLEARED

ANEM_aRH(S?2
23

WCE,TRE,SC BIT

TC BuUS

;SEE IF ANY OTHER ERROR BIT [S
;SET OTHER THAN NEM

s*TH]S TEST WILL CHECK THAT TRF AND SC SET
J*WHEN A WRITE CHECK ERROR OCCURS (WCE)

BNE

164776

SET

AN AR AN AN AR RN IR RN NN R RN AN NANNNRNNRNNRRRNNFPARNNRR
PN AR NNNNRNN N NS

1S5121:

9%:

ARN

TRE BIT

JTRE SET LOGIC NCT WORKING
JSET UP TO TEST AGAIN

*MOVB

9%:

¢
8¢

BNE

TSTR

THE

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

BNE

ERROR
BIT

8¢%:

;WE HAVE CHECKED FOR SHORTS
JLEAVE THE TEST

12
R7 ,WHYFQ
8%
13
#SWI46!SW9!SW8,a#177570
218

7%:

JTELL WHYFO ITS FOR SHORTS
FOR SHORTS

JSR

001103
004000

BEFORE

SEG 0061

JTEST

ERROR
BR

6%:

177570

(LR

PAGE 62

R7,WHYFO

BNE

4%:

007224

#-1 ,3EFORE

JMP
BIT

22%:

3%:

007224

MOV

JSR

2%:

007224

J
S
30A(1052)
12-JuL=79
10:46
NEM,TRE,SC BIT TEST

.ONE WORD TRANSFER
;TO UNIT ONE
;IS IT AN RH70
;oETUP RHBAE REGISTER
;SETUP BUS ADDRESS
s CREATE [NFORMATION
JTELL IT TO WRITE
JCLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET

MASSBUSP$?7O AND RH11_DIAGNOSTIC
(ZRHBE
07=-JUN=79 13:44

3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195

016346
016352
016354
016360
016366
016370
016374
016376

016400
016400
016406
016412
016416
016420
016426
016432
016440
016442
016446

016450
016454
016462

016464
016470
016472
016474
016474
016502
016504

016506
016512
016520
016526
016534

005237
001371
005037
032777
001004
005237
001401
000770
052777
005037
005237
001375
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
0007/7C

003446
000200

164732

000007
003446
000200

164712

017737
017737
017737
005701
001406
005037

WCETST:

17%:

164670

18%:

164646

19%:

003446

007224

016632
016640
016646
016654
016656
016660

19%:

003446

004737
012777
012777
012737
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
0014017
000770
017737
017737
042737

164742

000040
003446
003446

003446
000200

177777

001172

125252
000051
003446
000200

164626

164612
164606

WCTST:

20%:

001172

164566

164554

18%:

164532

19%:

003446

164524
164506

003422
001162
001162

164472
164466

003420
003444
003414

027777

164462

003416

WCETRE:

12-JUL=79

W(E,TRE,SC BIT TEST

10:46

PAGE 63
SEQ 0062

BNE
INC
BEQ

BITCNT
18%
BITCNT
#RDY ,@RH(CS1
WCETST
BITCNT
WCETST

s COUNT UP
JNOT + INISHED COUNTING
JGET READY TO DO IT AGAIN
JIS IT SET YET?
;YES
;s COUNT UP
;BIT IS NOT GOING TO SET

8IS
CLR

#40,
BITCNT

;DO A CONTROLER CLEAR
;SET UP FOR DELAY

CLR

BIT

19%

ARH(S2

INC

BITCNT

MoV
CLR

N7,
ARHCS2
BITCNT
#RDY ,@RHCS1
WCTST
BITCNT

BNE

BIT

s COUNT UP

17%

BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

BITCNT
#RDY ,aRHCS1
WCTST
BITCONT
WCTST
19%

BIT

#RDY,

18%

@RHCST

BNE
ERROR
JSR
MOV

208
102
R7,
WHYFO
#<1,3RHWC

MOV

#0AB, $REG4

MOV

003446

003446
00020C

30A(7052)
INC
BNE

003446

000¢C0

016542
016546
016554
016556
016562
016564
016570
016576
016600
016604
016606
016610
016610
016616
016624

003446

032777
001003
104102

MACY11

CLR
BIT
BNE

#SREGS ,aRHBA

#WRCHO,aRHCS1

BITCNT
#RDY ,@dRHCS1
WCETRE

INC
BNE

BITCNT
18%

BIT
BNE
INC
BEQ
BR

#RDY ,aRHCS1
WCETRE
BITCNT
WCETRE

MoV
MOV
8IC

@RH(S2,(S2
aRHCS1,SREGO
#GO!TE IRDY.A16'A17!PSEL

MOV
MoV
Mov
TST

@RHCS1T,CS1
aRHW(
, wC
aRHBA ,BA
R1

(LR

BAE

CLR

BEQ

BITCNT

16%

87%

sSELECT UNIT #

JCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
JIS IT SET YET?
JYES

;COUNT UP

cBIT IS NOT GOING TO SET

;1S READY SET

;YES

JREADY NOT SET
;ANY ERRORS

SET

JRESET WORD COUNT
;RESET BUS ADDRESS

cCREATE WRITE CHECK ERROR
;MAKE THE ERROR

sCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
. COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
JIS IT SET YET?
JYES
JCOUNT UP
:BIT IS NOT GOING TO SET
sSAVE CONTENTS
oSET UP NEEDED BITS ONLY
'DVA!MCPE 'READ6 , SRE GO
;(LEAR BITS NOT NEEDED

:SAVE RHCS1
;SAVE WORD COUNT
;SAVE BUS ADDRESS
JIS IT AN RHIM
JNO IT'S A 70
;CLEAR BAE

MASSBUS RH70 AND RH11_DIAGNOSTIC
(/RHBE P
07-JUN=79 13:44

3241
3242
2243
3244
3245
3246
3247
3248
3249
3250
3051
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3069
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279

016664
016670
016674
016702
016710
016716
016724
016732
016740
016746
016754
016756
016760
016764
016772
016774
017002
017004
017012
017014
017022
017024
017026
017030
017036
017040
017046
017054
017062
017070
017076
017104
917110
017114
017120
017126
017130
017136
017140
017142
017144
017146

005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003

87%:

000200

040600

164346

99%:

140000

001162

040000

001162

032737
001060

100000

001162

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

140000

001162

020000
137400
160000
004132

004124
004126
004130
004132
004134
004122

104102

004737
032777
001016
022737
001460
032737
001060

104014
000467

104006
000421
104015

004737

000415
104016
004737

017162
017164
017166

000411
104011
004737
000405
104017
004737
000401

164460
164454
164424
164420
164414
164412
164372

004134

177777

007224
004122
017206
040000
100000

007224

001162

86%:

12=JUL=79

30A(7052)

WCE,TRE,SC BIT

CLR

003416
003424
003422
003432
003436
003442
003440
164354

017152
017154
017156

017172
C17174
017176
017202

003424
016710

MACY11
121

JMP

MoV
MOV
MOV
MOV
MOV
MOV
MoV

BIT
BNE
ERROR
JSR
BIT
BNE
CMP
BEQ
BIT
BNE

TEST

: SAVE ?g553

aRHCS2.(S2
ARHST,DS1
ARHER
. ER1
ARHTDB, TDR

ARHMR2
. TC

#RDY ,QRACS1

99%
102

R7,WHYFO
fgcs,anncsz
#SC ' TRE , SRF GO

#TRE, SREGO

#SC,$REGO

#SC!TRE, $REGO

ATRE, $REGO

#SC,$REGO
7%

A
¥

¢$:

;CLEAR (S3
s SAVE BUS ADDRESS EXTENSION
s SAVE

;SAVE

TESTER STATUS

;SAVE

"FSTER DATA REG.

s SAVE ERROR REGISTER

JSAVE MR2 TESTER REG.
;1S READY SET
JYES CONTINUE TEST
JREADY NOT SET
;ANY ERRORS SET
;IS WCE SET
;YES CHECK TRE AND SC
;1S THE SC AND TRE BITS SET
;YES WCE IS IN ERROR
;1S JUST THE TRE BIT SET
;TRE BIT MUST BE IN ERROR
;IS JUST THE SC BIT SET
2SC BIT SET ERRONIOUSLY
;WCE NOT SET IN RHCSZ2
JSET UP TO TEST AGAIN
;1S SC AND TRE SET

22%
sFIND THE ERROR
AMCPE ,$CS1
;TEST FOR SHORTS
#MPE !MXF ! PGE .NEM!NED!UPE !DLT,$CS2
#DPELO!DPEHI .APE,$(CS3

R7,WHYFO
BEFORE

¥
e

SEQ 0063

@RHCS3.CS3

ARHBAE
, BAE

#-1 ,BEFORE

001162

- CONT INUE

$ST,$ST
$ER,$ER

22%:

PAGE

€S3
86$

4%
14
1%:

5
10:46

6
8%
15
R7 ,WHYFO

JTELL WHYFO

ITS

FOR SHORTS

;TEST FOR SHORTS
sWE HAVE CHECKED FOR SHORTS
;LEAVE THE TEST
JTHEN IS THE TRE BIT St T
;SC BIT DID NOT St€ TRt BIT
;IS THE SC BIT SET
;TRE HAS AN OPEN GOING

TO BUS

;TRE SET LOGIC NOT WORKING
sSET UP TO TEST AGAIN
;W(E HAS OPEN IN LINE GOING TO BUS
;SEE IF ANY OTHER ERROR BIT IS
;SET OTHER THAN W(E
sSET UP TO TeST AGAIN
;SOMTHING WRONG WITH TRE B]7
oSEE IF AN ERROR BIT IS SET
;OR BOTH WCE IN RH(CS2 AND SC IN
JRHCS1 HAS AN OPEN BETWEEN IT AND THE BUS
sSET UP TO TEST AGAIN
2SC BIT WAS SET BY EITHER ATTN OR

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

16
R7 ,WHYFO

8%
R7 ,WHYFQO
17
R7 ,WHYFO

JFIND WHAT ERROR BIT

IS SET

:TRE WAS SET BY OTHER THAN WC(E
:FIND ERROR BIT THAT SET TRE

sSETUP TO TEST AGAIN

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

3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3230
3331
3332
3333
3334
3335
3336
3337
3338

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

017737
042737

163722
027777

001162
001162

3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352

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

017737
017737
017737
005701
0014606
005037
005037
000137
017737
017737
017737
9017737
017737

163706
163702
163676

003420
003444
003414

041400

177570

7%:

8%:

b
—

000100
040000

OW
on

001103
—

104013
032737
001003
105737
001010
112777
032777
001401
104050
004737
004737

121

[ealed

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

MACY11

006572

21%:

9%:

050210

30A(1052)

12-JuL=-79

WCE,TRE,SC BIT
ERROR

BIT
BNE
TSTB
BNE
MOvB
BIT
BEQ
ERROR
JSR
JSR

TEST

10:46

PAGE 65

ASW14.SWO!SW8,a#177570
218
$ERFLG
9%
#TREB,aRH(S1B
#W(CE ,ARHCS?
9%
50
R7,CLEER
R7 ,ERRTST

;TRE

SEQ 0064
HAS AN OPEN GOING

JANY | OOPING BEEING DONE

THE

;YES,LOAD TRE NO MATTER WHAT
;WAS THERE AN ERRCR

:SKIP TRE

:LOAD TRE

(HECK

;DID ERROR CLEAR

JYES EXIT

TEST

.LOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE CLEARED

tttfiw****t**tt't**tt*ttttttfi*ttttttttfi*ttttttttt'tttittttfitt*tt

tTEST 22
MDPE .TRE AND SC BIT TEST
;*THIS TEST CHECKS THAT MDPE CAN BE SET

:*RHCS2,AND THAT MDPE SETS TRE AND SC
s*IN THE RHCS7

. tt*tttt*tt*tttt***t*t*t*****tt*t*tt*ttttttttttt*ttttttkfittttttt

017254
017256
017264
017272
017274
017276
017304
017312
017320
017326
017334

000004
012777
012777
005701
001003
012777
012777
012777
012777
017737
005037

032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

000007
177774

000000
004100
000071
000027
164006
003446
000200

164054
164040

164054

TST22:

164022
164010
164012

9%:

163762

18%:

163740

19%:

003422

003446

003416
003424
017474
163674
163670
163640
163634
163630

H7,aRH(CS2

TST
BNE

R1
9%

MoV

003446
003446
000200

SCOPE
MOV

:
UPETRE

MoV

003432
003436

87%:
86$:

#lERO, @RHBAE

JSET UNIT #
:SET UP WORD COUNT
;1S IT AN RH70
JNO ITS AN RH11
;SE7 UP BAE REGISTER

MOV
MOV
MoV
MOV
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ

H#RBUF ,dRHBA
#READQ ,@RHCS1
#PAT!7 ,@RHCS?2
@RHCS2,(S2
BITCNT
#RDY ,aRHCS1
UPETRE
BITCNT
18%
BITCNT
#RDY ,@RH(S1
UPETRE
BITCNT
UPETRE

;SAVE CONTENTS
;CLEAR BIT COUNTER
;1S RDY SET
;JBIT IS SET
JCOUNT UP
;NOT FINISHED COUNTING
:GET READY TO DO IT AGAIN
;IS 11 SET YET?
S YES
. COUNT UP
JBIT IS NOT GOING TO SET

MoV
BIC

#GO'IE iRDY . A16!A17
! DVA'MCPE
!PSEL
'READG, SREGO

adRHCS1,$REGO

;SET UP NEEDED BITS ONLY

MOV
MOV
MoV
TST

dRHCST,CS1
aRHW( ,W(
adRHBA ,BA
R1

CLR

BAE

BEQ

003416
003424
003422

#=4 ,dRHWC

CLR
JMP
MOV
MOV
MOV

MOV
MoV

19%

87%

€S3
86%
aRHBAE ,BAE
@RHCS3,(S3
@RH(CS2,(S2

aRHST DS
@dRHER,ER1

BUS

;SET UP BUS ADDRESS
JTELL IT TO READ
;s INVERT PARITY

;CLEAR BITS NOT NEEDED

*SAVE RHCS1
:SAVE WORD COUNT
;SAVE BUS ADDRESS
;1S IT AN RH11
JNO IT'S A 70
;CLEAR BAE

;CLEAR (S3

; CONT INUE
;SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
JSAVE (S2
;SAVE TESTER STATUS
;SAVE ERROR REGISTER

MASSBUS RH70 AND RH11_DIAGNOSTIC

C(ZRHBE .P1
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
32
3387
3388
3389
3390
3391
3392
2393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408

MACY1T

07-JUN=79 135:44

017516
017524
017532
017540
017542
017544
017550
017556
017560
017566
017570
017576
017600
017606
017610
017612
017614
017622
0176246
017632
017640
017646
017654
017662
017670
017674
017700
017704
017712
017714
017722
017724
017726
017730
017732

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

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
9001003
105737
001010
132777
032777

012737
004737

005037
000137
032737
0010622
032737
001022
104006
000421
104120
004737

122

163626
163606
000200

003442
003440
163570

007224
000400

163562

140000

001162

040000

001162

100000

001162

140000

001162

004124
177000
174000
004132
004134
177777
007224
004122
017772
040000

004724
004126
004130
004132
004134
004122

100000

001162

1%:

007224

177570

163346
163314

,TRE AND SC BIT

10:46

TEST

PAGE 65

aRHTDB, TDR
sSAVE TESTER DATA REG.
ARHMR?2, TC
JSAVE MR? TESTER REG.
#RDY ,@RHCS1
;1S READY SET
99%
JYES CONTINUE TEST
102
JREADY NOT SET
R7 ,WHYFO
JANY ERRORS SET
#MPE ,@RHCS?
;1S MPE SET
1%
JYES CHECK TRE AND S(
#SC!TRE,$REGO
;IS THE SC AND TRE BITS SET
2%
;YES MPE IS IN ERROR
#TRE ,$REGO
;1S JUST THE TRE BIT SET
3%
;TRE BIT MUST BE IN ERROR
#5C,$REGO
;IS JUST THF SC BIT SET
3
2SC BIT SET ERRONIOUSLY
116
;JMPE NOT SET IN RH(S?Z
8%
JSET UP TO TEST AGAIN
#SC!TRE,$REGO
;IS SC AND TRE SET
22%
;FIND THE ERROR
$CS1,8CST
;TEST FOR SHORTS
#MXF 'PGE .NEM_NED !UPE .WCE.DLT,$(S2
AWCELO!WCEHI .DPELO.DPEHI . APE ,$CS3
$ST,8ST
$ER,SER

#-1,BEFORE
R7 ,WHYFO

BEF ORE
8%

3%:

BR
ERROR
JSR

8%
121
R7 ,WHYFO

BR
ERROR
JSR

8%
11
R7,WHYFC

BR
ERROR
JSR
8P
ERRCR
8IT
BNE
TSTB
BNE
MOovB
BIT

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

22%:

7%:
8%:

001103
000100
000400

MOV
MOV
BIT
BNE
ERROR
JSR
BIT
BNE
(MP
BEQ
BIT
BNE
BIT
BNE
ERROR
BR
(MP
BNE
MOV
MoV
MOV
MOV
MoV

12=uUL-79

(LR
JMP
BIT
BNE
BIT
BNE
ERROR
BR
ERROR
JSR

6$%:

007224

MDPE

MoV
JSR

2%:

007224

041400

99%:

30A(i052)

21%:

#TRF ,$REGO
6%
#SC,$REGO
7%
6
8%
120
R7.,WHYFO

sTELL WHYFO ITS FOR SHORTS
sTEST FOR SHORTS
;WE HAVE CHECKED FOR SHORTS
JLEAVE 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
JTRE SET LOGIC NOT WORKING
sSET UP TO TEST AGAIN
;MPE HAS OPEN IN LINE GOING TO BuUS
;SEE IF ANY OTHER ERROR BIT IS
;SET OTHER THAN MPE
sSET UP TO TEST AGAIN
s SOMTHING WRONG WITH TRE BIT
;SEE IF AN ERRCR BIT IS SET
;OR BOTH MPE IN RH(CSZ AND SC IN
;RHCST HAS AN OPEN BETWEEN IT AND THE BUS
;SET UP TO TEST AGAIN
;SC BIT WAS SET BY EITHER ATTIN OR
JFIND WHAT ERROR BIT IS SET
;MCPE ERROR OR SC IS SHGRTED TO +S5 vOLTS
sSETUP TO TEST AGAIN
sTRE WAS SET 3Y OTHER THAN MPE
;FIND 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 MATTER WHA'
JWAS 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

o
N — ONO00
N NES NN —

SRR SP

3409

020024
020026
020030
020034

001401
104050
004737
004737

MACY11
T22

006572
050210

9%:

;*THIS

SEQ 0065
JYES EXIT TEST
sLOADING TRE DID NOT CLEAR ERROR
;SEE

UPE,TRE,SC ERROR TEST

TEST

CHECKS

IF ERRORS ARE CLEARED

012777
005701
100402
000137
012777
017737
042737

000007

163270

020524
020007
163236
027777

163252
001162
0011672

3430
3421
3432
3433
3434
3435
3436
3437
3438
3459
3440
3641
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458

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

017737
017737
Q17737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
032777
001016
022737
0014560
032737
001060
032737
001060
104020
000467

163222
163216
163212

003420
003444
003414

(20300
020306
020310

022737
001030
013737

020324
020332

013737
(013737

020316

012737

FITIT:

#7,aRHCS2

JSET UP UNIT 7

MOV
MOV

#UPE |7 ,@RHCS?2
dRHCS1T,$REGO

:SET PARITY ERROR IN RH11'S (S2 REG
cSET UP NEEDED BITS ONLY

MoV

@dRHCS1,CST

:CLEAR BITS NOT NEEDED
s SAVE RH(CS1

87%

JNO IT'S A 70

TST
8MI
JMP

BIC

87%:

86$%:

163104

163076

140000

001162

040000

001162

100000

001162

140000

001162

004124
157400
004130
004132

004124
004126
004130
004132

IN RHCS!.........

MOV

99%:

1%:

R1
FITIT
FIT

;1S IT AN RH11
;IT'S AN
RH11,DO THE TEST
JIT'S AN
RH70, EXIT TEST

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

MOV
MOV
TST

aRHWC ,WC
aRHBA ,BA
R1

CLR

BAE

CLR

007224
020000

SET

SCOPE

BEQ

003416
003424
003422
003432
003436
003442
003440

IN RHCS2

tti"tfittifit*ttttfit*ttl'tittit**ttttttt*tttttttfittttttttthtti'tt

T$723:

003416
003424
020160
163210
163204
163154
163150
163144
163142
163122
000200

THE UPE BIT

(RH11)

IT SETS AND WHEN IT SETS IS

;*TRE AND SC BITS
.

020042
020050
020052
020054
020060
020066
020074

PAGE 67

9%
50
R7,CLEER
R7 ,ERRTST

:+TO SEE

3423
3424
3425
3426
3427
3428

3463
3464

M t.ttttfit*fittittit"tfitttitttfittttttttttltkttttt'tittltttfltfitfl't

000004

3462

BEQ
ERROR
JSR
JSR

SRTEST 23

020040

3459
3460
3461

30A(i052)
12-guL=-79
10:46
MDPE ,TRE AND SC BIT TEST

;SAVE WORD COUNT
;SAVE BUS ADDRESS
;1S IT AN RH11
;CLEAR BAE

€S3

;CLEAR (CS3

MOV
017

QRHBAE ,BAE
@RHCS3,(S3

2 SAVE BUS ADDRESS EXTENSION
. SAVE RH(CS3

MOV

@dRHST,DS1

JMP

MOV

86%

: CONT INUE

@dRH(CS2,(S2

JSAVE (S2

MOV
MOV
MoV
BIT

aRHER,ER1
aRHTDB, TDR
aRHMRZ, T(
#RDY ,3RHCS1

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
JSAVE MR/ TESTER REG.
;1S READY SET

BIT
BNE
CMP

HUPE ,@RH(S2
1%
#SC!TRE,$REGO

BNE
ERROR
JSR

BEQ
BIT
BNE
BIT
BNE
EPROR
BR

;SAVE TESTER STATUS

99%
102
R7 ,WHYFO

sYES CONTINUE TEST
;READY NOT SET
;ANY ERRORS SET

2%
#TRE, SREGO
3%
#5C,$REGO
4%
20
8%

JYES UPE 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
JUPE NOT SET IN RHCS?2
JSET UP TO TEST AGAIN

:IS UPE SET
JYES CHECK TRE AND SC
;1S THE SC AND TRE BITS SET

CMP

#SC!TRE,SREGO

MOV
MOv

$CS1,$CST
;TEST
#MPE MXF
' PGE .NEM!NED. WCE 'DLT,$(S2

Mov

$ST,$ST

BNE

MOV

22%

$C53,8CS3

;1S SC AND TRE

;FIND THE ERROR

SET

FOR SHORTS

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

3465
3666
3467
3468
3469
3470
3471
3472
3673
3474
3475
3476
%2;;
3479
3480
3481

020340
020346
020354
020360
020364
020370
020376
020400
020406
020410
020412
020414
020416
020422
020424
020426

013737
012737
004737
005037
000137
032737
001022
032737
001022
104006
000421
104021
004737
000415
104023
004737

3484
3485
3486

020432 - 000411
020434
104011
020436
004737

3488
3489
3490
3491
3492
3493
36494
3495
3496
3497
3498
3499
3500
3501
3502

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

3504

020524

000405
104022
004737
000401
04013
032737
001003
105737
001010
112777
032777
001401
104050
004737
004737

¢S%Y11

001162

100000

001162

004134
004122

22%:

3%:

007224

4%:

007224

6%:

007224

7%:

10:46

(RH11)

PAGE

SEQ 0067

CLR
JMP

BEFORE
8%

JWE HAVE CHECKED FOR SHORTS
JLEAVE THE TEST

BNE
BIT
BNE
ERROR
BR

6%
#SC,$REGO
4 3
6
8%

;SC B8IT DID NOT SEE TRE BIT
;1S THE SC BIT SET
;TRE HAS AN OPEN GOING TO BUS
;TRE SET LOGIC NOT WORKING
;SET UP TO TEST AGAIN

JSR

R7 ,WHYFO

oSEE

8%
23

JSET UP TO TEST AGAIN
;SOMTHING WRONG WITH TRE BIT

BIT

ERROR

BR
ERROR

JSR

JTELL

R7 ,WHYFO

WHYFO ITS FOR SHORTS

;TEST FOR SHORTS

#TRE ,$REGO

JTHEN IS THE TRE BIT SET

;UPE HAS OPEN IN LINE GOING TO 8US

IF ANY OTHER ERROR BIT

;SET OTHER THAN UPE

R7 ,wWHYFO

JOR BOTH UPE

[N RHCSZ AND SC IN

JRH(S1 HAS AN CPEN BETWEEN T AND THE BUS

JSET UP TO TEST AGAIN

JSR

R7 ,WHYFOQ

JFIND WHAT ERROR BIT IS SET

B8R

ERROR

ERROR
JSR
BR

22
R7 ,WHYFO
8%

ERROR

;SC BIT WAS SET BY EITHER ATIN OR

;MCPE ERROR OR SC IS SHORTED TO +5 VOLTS
JSETUP TO TEST AGAIN

;TRE WAS SET BY OTHER THAN UPE
JFIND ERROR BIT THAT SET TRE
;SETUP TO TEST AGAIN

BIT
BNE
TST8R

#SW14!SW9.SW8,a#177570
21%
$ERFLG

162662
162630

21%:

MOVB

#TREB,aRH(S1R

BEQ
ERROR
JSR
JSR

9%
50
R7,CLEER
R7 .ERRTST

BNE

BIT

. TRE HAS AN OPEN GOING TO THE BUS

;ANY LOOPING BEEING DONE
JYES,LOAD TRE NO MATTER WHAT
;WAS THERE AN ERROR

;SKIP TRE

;LOAD 1RE

#UPE ,aRH(CS?

CHECK

;DID ERROR CLEAR

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

FIT:
.'"'t*.t'ttfi.t*k**fi*t**kttt'.***fi*tt*itfi**tfifitfit‘fifi*fitti*ttittfi!fll'

JeTEST

UPE,TRE,SC ERROR

TEST

(RH70)

s*THIS TEST CHECKS THE UPE BIT IN RH(CS2
;%70 SEE IF IT SETS AND WHEN IT SETS IS

;*TIE

000004

020526

012777

N = ed ek e d ) b
OV
~NOWNES W

020524

AN N AN ANAN AN NN

3511
(AL ARV, LV, LV LV, RV, AV, |

020534
020536

020540
020544
020552
020560
020566

005701
001402

000137
012777
012777
012777
012777

TST24:
000007

SET

IN RHCS'.........

SCOPE
MOov

PLACE:

SC BITS

Sl el
I
I
Y S R R R 222202220}

TST

021306
000004
177776
000000
001162

AND

BEQ
JMP

MOV

MOV
MOv

47 ,8RHCS2

JSETUP UNIT 7

#IPCK2,dRH(S3

;SETUP FOR PARITY ERROR

PLACE
FANGIE

#-2 ,aRHWC

;SEE IF AN ERROR BIT IS SET

8%:

9%:

$ER, $ER
#-1,BEFORE

177570

001103

006572
050210

MOV
MOV

JSR

2%:

007224

000300
020000

12-JUL=79

UPE,TRE,SC ERROR TEST

004134
177777
007224
004122
020456
040000

041400

30A(71052)

#7ERQO, dRHBAE
#$REGO, aRHBA

IT AN RH11

;IT'S AN RH70
JIT'S AN RH11,

EXIT

;SETUP WORD COUNT

;SETUP BAE
:SETUP ADDRESS

TEST

TO TWO wWORDS

MASSBUS RH70 AND RH11 DIAGNOSTI(
CZRHBE PN
07=JUN=79 13:44

020574
020602
027406
02uolé
020616
020622
020624
020630

012777
005037
032777
001015
005237
001371
005037
032777

001004
005237
001401
000770

020650
020656

017737
042737

020664
020672
020700
020706
020710
020712
020716
020722
020726
020734
020742
020750
020756
020764
020772
021000
021006
021010
021012
021G16
021024
021026
021034
021036
021044
021046
021054
021056
021060
021062
021070
021072
021100
021106
021114
021122
021130
021136
021142
021146

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
104020
000467
022737
001030

013737
012737
012737
013737
013737
012737
004737
005037
000137

000067
003446
000200

Mazy11
T24
162526
162514

Mov

18%:

003446
003446
000200

162472

19%:

003446

162454

027777

001162
001162

162440
162434
162430

003420
003444
003414

003416
003424
020742

162426
162422
162372
162366
162362
162360
162340
000200

003416
003424
003422
003432
003436
003442
003440

162314

140000

001162

040000

001162

100000

001162

140000

001162

004124

004124
004126
004130
004132
004134
004122

157400
134100

004132
004134

177777

007224
004122
021240

DYNO:

CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

86%:

99%:

1%:

#RDY ,aRHCS1

DYNO
BITCNT
18%
BITCNT

TELL

TO WRITE
sCLEAR BIT
21S RDY

SET

COUNTER

JBIT IS SET
s COUNT UP

#RDY ,aRH(CS1

MOV

adRHCS1,$REGO

; SET UP NEEDED BITS ONLY

MOV

aRH(CS1,(CS1

;CLEAR BITS NOT NEEDED
;SAVE RHCS1

MOV
MOV
TST

87%:

AWRITEQ,@RHCST
BITCNT

SEG 0068

JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
IS IT SET YET?

BIC

162?22

007224
020000

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

BEQ
CLR
CLR
JMP

MOV
MOV
MOV
MOV
MOV
MOV
MOV

DYNO
BITCNT
DYNO
19%

#GO!1E'RDY.A16!A17!PSEL
! DVA.MCPE 'READG, SREGO

aRHW(C ,W(C

+SAVE WORD COUNT

87%

:NO IT'S A 70

oRHBA ,BA
R1
BAE

(S3
86%

oRHBAE ,BAE

aRHCS3.CS3

ARH(CS2,(S2
aRHST,DS1
aRHER,ER1
aRHTDB,TDR

aRHMRZ2, T(C

BIT

#RDY ,aRH(CS
99%
102

BIT

#UPE ,aRH(S?2

BNE
ERROR
JSR

BNE

cMP
BEQ
BIT
BNE
BIT
BNE
ERROR
BR
cMP
BNE

MOV
MOV
MOV
MOV
MOV
MOV

JSR
CLR
Mp

SYES
s COUNT UP
;BIT IS NOT GOING TO SET

R7 ,WHYFO

. SAVE BUS ADDRESS
JIS IT AN RH11
;CLEAR BAE

;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 MR?2 TESTER REG.

. IS READY SET
JYES CONTINUE TEST
* ;READY NOT SET
JANY ERRORS SET

;1S UPE SET

1%
#SC!TRE ,$REGO

JYES CHECK TRE AND SC
;1S THE SC AND TRE BITS SET7

#TRE , $REGO

cIS JUST

#SC,$REGO
4%

cYES UPE IS IN ERROR
THE

TRE BIT

JTRE BIT MUST BE

;1S JUST THE SC BIT SET
;SC BIT SET ERRON]IOUSLY

20
8$

JUPE NOT SET IN RH(CS?
JSET UP TO TEST AGAIN

22%

;FIND THE ERROR

#SC!TRE,$REGO

$(S1,8CS1

SET

IN ERROR

.1S

SC AND

TRE

SET

;TEST FOR SHORTS

A#MPE !MXF !PGE !NEM_NED ! WCE !DLT,$(CS2
#APE !DPELO!WCEH] !WCELO!JE3,$CS3

$ST,8ST
$ER,SER

#-1 ,BEFORE
R7,WwHYFO

sTELL WHYFO ITS FOR SHORTS
sTEST FOR SHORTS

JLEAVE

BEFORE

;WE HAVE

CHECKED FOR

ThE

TEST

«ORTS

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE P11
07-JUN=79 13:44

3577
3578
3579
3580
3581
3582
3583

021152
021160
021162
021170
021172

021174

021176
021200

021204
021206
021210
021214
021216
021220

021224
021226
021230
021234
021236

021240
021246
021250
021254
021256
021264

021272
021274
021275
021302

032737

001022
032737
001022
104006
000421
104027
004737
104023

040000

001162

100000

001762

104011

000405
104022
004737
000401
104013
032737
001003
105737
001010
112777
032777
001401
104050
004737
004737

007224

BIT

177570

#TRE ,$REGO

B8IT

#SC,$REGO

B8R

006572
050210

SEQ 0069

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

21
R7 ,WHYFQ

JUPE HAS OPEN IN LINE GOING TO BUS

3%:

BR
ERROR
JSR

%
23
R7 ,WHYFO

4%:

BR
ERROR
JSK

8%
11
R7 ,WHYFO

BR
ERROR
JSR

8%
22
R7 ,WHYFO

B8R

7%:

ERROR

8%:

21%:

;TRE SET LOGIC NOT WORKING
;SET UP TO TEST AGAIN

;SEE IF ANY OTHER ERROR BIT IS
;SET OTHER THAN UPE

;SET UP TO TEST AGAIN
:SOMTHING WRONG WITH TRE BjT
;SFE IF AN ERROR BIT ;5 SET
:OR BOTH UPE IN RHCS2 AND SC IN
;RHCS1

HAS AN OPEN BETWEEN IT AND

:SET UP TO TEST AGAIN
:SC BIT WAS SET BY EiTHER ATTN OK
:FIND WHAT ERROR BIT

SET

;SETUP TO TEST AGAIN
:TRE WAS SET BY OTHER

:FIND ERROR BiT

8%
13

#SW14!SW9!SWB,an177570
21s

BNE
MOVB
BIT
8EQ
ERROR

9%
#TRERB,aRH(S1R
#UPE ,aRH(S?2
9%
50

$ERFLG

THAT

THAN UPE
SET

:WAS

THERE

AN ERROR

:SKIP TRE CHECK

ML OAD TRE

:DID ERRUR CLEAR

:YES EXIT TEST

;LOADING TRE DID NOT (LEAR ERROR

R7,CLEER
R7 ,ERRTST

:SFE IF ERRORS ARE CLEARED

A A A A A AR A AR A AR A AN AN AR AR AN AR RANRNANANN RN R AR AN ARNARNNRRARNRAN RS R

021306

000004

021310
021316
021320
021322
021330

012777

200403

15725
000000

012777
012777
012777
005037
032777
001015
005237
001371
005037

00C000

177777

001172
000061
003446
000200
003446

003446

162030
161774

NED BIT

TEST

WILL

TEST

CHECK

THAT

NED

**SETS TRE AND SC BITS IN RHCS]

A AN AR AN AR A RN RRREN A RN,

AXN AR AR AN AR

(NON~EXISTANT

LRIVE)

AR AARNA RN RANRARRRN NN SR RS

SCOPE
J

162022

MOV
TSt

B8M]
MOV

012777

:aTHIS

161770

161756

NEDERR: MOV
MOV
MOV

161744

18¢%:

CLR
BIT
BNF
INL
BNE
(LR

#ZERQ,QRHCS?
R1
NEDERR
#2ERO, aRHBAE
#-1,3RHW(
#SRE
G4 , dRHBA
#WRITEQ,ARHCST

BITCNT

#RDY ,’8RHCS1

BAKER
BITCNT
18%

BITCONT

TRE

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

FANGIE
:

LATEST 25

THE BUS

:MCPE ERROR OR SC IS SHORTED TO +5 VOLTS

BIT
BNE

JSR
JSR

02133¢
021344
021352
027356
021364
021366
021372
021374

ERROR
JSR

9%:

021306

:TRE HAS AN OPEN GOING TO BUS

TSTR

162100
162046

7%
6

BNE
ERROR

001103
000100
020000

12=-JUL~79

10:46
PAGE
UPE ,TRE,SC ERROR TEST (RH70)

&NE

6%:

007224
041400

22%:

2%:

000411

004737

30A(7052)

124

000415

004737

MACY11

;SETUP NED

JRH11

OR RH70

JIT'S AN RH1I
JSETUP BA EXTENSION
;FOR A 1

WORD

TRANSFER

JSETUP BA
JTELL IT TO WRITE
JCLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
. COUNT uP
JNOT FINISHED COUNTING
JGET READY TU DO IT aAGA:N

MASSBUS RKH70 AND RH11_DIAGNOSTIC
CZRHBE .F11
07=-JUN=-79 13:44

3633

021400

032777

000200

161722

3634
3635
3636
3637
3638
3639
3640

021406
021410
021414
021416
021420
021420
021426

017737
042737

161704
027777

007162
001162

3662
3643
3644
3645
3646
3647
3648
3649
3650

02146434
021442
021450
021456
021460
021462
021466
021472
021476

017737
C17737
017737
005701
001406
005037
(005037
000137,
0317737

161670
161664
161660

003420
003444
003414

003416
003424
021512
161656

3652
3653
3654

021512
021520
021526

017737
017737
017737

161622
161616
161612

3656
3657
3658
3656
3660
3661
3662
3663

021542
021550
021556
021560
021562
021566
021574
021576

3641

3651

3655

3664
3665

3666
3667
3668
3669
3670
3671
3672
3673

001004
005237
001401
000770

gACY11

021504

017737

021534

017737

017737
032777
001003
104102
004737
032777
001016
022737

021604
021606

001460
032737

021614
021616
021624
021626
021630
021632
021640
021642

001060
032737
001060
104024
000467
022737
001030
012737

3674
3675
3679
3677
3678
3679
3680

021650
021656
021664
021672
(021700
021706
021712

012737
012737
013737
013737
012737
004737
005037

34582
3683

021722
021730

032737
001022

3681

3684
385
3686
2687
2688

021716

000137

(021732
021740
021742

032737
001022
104006

021744
121746

000421
104025

)

19%:

003446

003416

87%:

003422
003432
003436

86%:

161652

003424

161610

003442

161570
000200

161544

140000

001162

040000

001162

100000

001162

140000

001162

000000
167400
174100
004132
004134
177777
007224
004122

004124
004126
004130
004132
004134
004122

040000

001162

100000

001162

NED B1T

BIT

99%:

)

22%:

TEST

10:46

#RDY ,ARH(CS!

PAGE 71

RHCST,$REGO
;SET UP NEEDED BITS ONLY
#GO' IE.RDY'A16.A%7!PSEL
' DVA'MCPE 'READ6, SREGC

MOV
MOV
MOV
TST
BEQ
CLR
(LR
JMP
MOV

@RHCST,CS1
ARHWC , W(
aRHBA ,BA
R1
87%
BAE
(S3
8¢S
QRHBAE ,BAE

MOV
MOV
MOV

@RH(CS2.,(S2
ARHST,DS1
@RHER,ER1

MOV
BIT
BNE
ERRUR
JSR
BIT
BNE
CMP

ARHMR2, T(
#RDY ,aRHCS1
99%
102
R7 ,WHYFOQ
#NED , dRHCS2
1%
#SC'TRE ,$REGO

MOV

BNE
BIT
BNE
ERROR
BR
{MP
BNE
MOV

ARH(CS3,CS3

adRHTDB, TDR

#TRE ,$REGO

:YES
;COUNT uP
JBIT IS NOT GOING TO SET

;CLEAR BITS NOT NEEDED

;SAVE RHCSI
:SAVE WORD COUNT
;SAVE BUS ADDRESS
;1S 1T AN RH11
:NO IT'S A 70
;CLEAR BAE
;CLEAR (S3
:CONTINUE
:SAVE BUS ADDRESS EXTENSION

:SAVE RH(CS3

;SAVE (S2
:SAVE TESTER STATUS
:SAVE ERROR REGISTER

:SAVE TESTER DATA REG.

;SAVE MR2 TESTER REG.
;1S RFADY SET
JYES CONTINUE TEST
;READY NOT SET
;ANY ERRORS SET
;1S NED SET
JYES CHECK TRE AND 5C
;IS THE SC AND TRE BITS SET

JYES NED IS IN ERROR
;IS JUST THE TRE BIT SE”

3%
#SC,$REGO
A3
26
8%
#SC!TRE,$REGO
22%
#7ERU,$CST

:TRE BIT MUST BE IN ERROR
;IS JUST THE SC BIT SET
:SC BIT SET ERRONJOUSLY
JNED NOT SET IN RHCS?2
JSET UP TO TEST AGAIN
;IS SC AND TRE SET
;FIND THE ERROR
;TEST FOR SHORTS

:LEAVE THE TEST

#SC,9REGO
7%
6

;IS THE SC BIT SET
JTRE HAS AN OPEN GOING TO BUS
JTRE SET LOGIC NO7 WORKING
SET UP TO TEST AGAIN
sNED HAS OPEN IN _INE GOING TL 5.5

MOV
MOV
MOV
MOV
MOV
JSR
(LR

#MPE 'MXF 'PGE 'NEM'UFE 'WCE 'DLT,$CS2
#\PE'DPEHI]
'DPELO ! WCEH] .Ww(ELO!IE3,$(S3
$ST,8ST
$ER,$ER
#-1,BEFURE
JTELL WHYFQ ITS FOR SHORTS
R7 ,WHYFQ
JTEST fOR SHORTS
BEFORE
;WE HAVE CHECKED FOR SHORTS

8IT
BNE

#TRE , $SREGO
6%

BR
ERROR

8%
25

JMP

SEQ 0070

;IS IT SET YET?

MOV
BIC

BIT
BNE
ERROK

2% :

BAKER
BITCNT
BAKER
16¢%

BEQ
BIT

1%:

12-JUL=-79

BNE
INC
BFQ
BR

MOV

003440
161552

007224
010000

022010

BAKER:

30A(71052)

JTHEN IS THE TRE BIT SET
:SC BIT DID NOT SEE TRE BT

—

3714

3715
3716

000415

021764
021766
021770

000411

021774
021776
022000

106026

004737

104011

004737
000405
104027
004737
000401
104013

032737
001003
105737
001010
112777
032777
001401
104050

022052

004737
004737

007224

(W Ten)

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

JSR

R7 ,WHYFQ

021754
02175%
021760

004737

Y11

3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713

021750

007224

8R
ERROR
JSR

3%
26
R7 ,WHYFQO

007224

BR
ERROR
- SR

R7,WHYFO

BR
ERROR

8%
27

3689
3690
3691
3652
3693
3694
3695
3696
3657
3698

T\)%

MASSBUS RM70 AND RH11 DIAGNQSTIC
(ZRHBE
07=JUN=79 13:44

£%:

007224
041400

177570

7%:

§%:

001103
000100
010000

161330
161276

21s:

JSR
BR

ERROR
BIT
BNE

TST8B
BNE

MOVB

BIT
BEQ
ERRQOR

JSR’

006572
050210

JSR

10:46

PAGE 72

;SEE

SEQ 0071

IF ANY OTHER ERROR BiT

JSET OTHER

cSET UP TO TEST AGAIN
;SOMTHING WRONG WITH TRE BIT
;SEE IF AN ERROR BIT IS SET
sJOR BOTH NED IN RHCSZ AND SC IN
JRHCS1 HAS AN OPEN BETWEEN
JSET UF TO TEST AGAIN

022056

000004

;JMCPE

EPROR OR SC

;JSETUP TO TEST AGAIN

SHORTED

;TRE WAS SET BY OTHER

R7 ,WHYFO

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

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

022162
022164
022164
022172

u17737
042737

000027
177777

004100
000000
000061
003446
000200

161257

161232
161240
161212

161200

18%:

g§g14fsw9.sw8.aa177s7o

$ERFLG
o%

#TREB,aRH(CS18
#NED ,RH(CS2

9%
50
R/,CLEER
R7,ERRTST

;SKIP TRE CHECK
;LOAD TRE
;DID ERROR 7LEAR

JYES

EXIT

TEST

JLOADING TRE ..D NOT CLEAR ERROR
;SEE I} ERRORS ARE (LEARED

003446
003446
000200

161156

19%:

003446_

161140

027777

001162

(HARLE:

BEQ
BR
MOV

BI(

#PAT!7 ,aRH(CS?2
#-1,3RHWC

#RBUF
, dRHBA
#ZERQ,3RHTDR
#WRITEQ,dRHCST

BITCNT

18%
BITCNT

#RDY ,8RH(CS"

(HARL
E
BITCNT
CHARLE
19%

;SET MXF BIT
:SET UP WORD COUNT

;SETUP BA
;SET MXF FRROR

JTELL

10O WRITE

JCLEAR BIT COUNTER

#RDY ,adRRH(ST

(HARLE
BITCNT

VOLTS

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

SCOPE

CLR
BIT
BNE
INC
BNE
(LR
BIT
BNE
INC

;FIND ERROR BIT THAT SET TRE

MXF ,TRE AND SC BIT TEST
26
;*THIS TEST WILL CHECK THAT MXF
;*(MISSED TRANSFER ERROR) WILL
;*SET TRE AND SC BITS

MOV
%
MOV
MOV
MOV

161236

THE BUS

THAN NED

itttittt't'lfifi'*l’ttt*i"ittt.fitfi\'tfii*itIt*tltl*'tt!lttittt't'fitt

15726

IT AND

;SC BIT WAS SET BY EITHER ATTN OR
;FIND WHAT ERROR BIT S SET

* tt'tttttttittfi'ttittkt*ttt**ltfitfi*ttttfiittttttiti"txtit.ttt!tt

TeTEST

THAN NEU

‘

;IS RDY SET
JBIT IS SET
JCOUNT uP
SNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
;IS IT SET YET?

:YES

SCOUNT UP

811 IS NCT GUING ro SE?

@RH(ST,SREGO
JSET UP NEEDED BITS ONL
#G0. JE.RDY A1£ A17 PSEL .DVA_M(CPE .READ6, SREGC

;CLFAR B]TS NOT NEEDED

3766
3767
3768
3769
3770
3771
377¢
3773
3774
3775
3776
3777
3778
2779
2780
3787
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791

3792
3793
3794
3795
4796

3797
3798
3799
2800

22272
022300
022306
022314
022322
022324
622326
022332
022340
022342
022350
022352
022360
022362
022370
022372
022374
022376
022404
022406
022414
022422
022430
022436
022444
022452
022456
022462
022466
022474
022476
022504
022506
022510
022512
022514

104102

= NN
SO~

003416
003424
022256
1611172
161106
16105%
161052
161046
161044
161024

000200

004737
032777
001016
022737

007224

032737

001460

001060
032737
001060
104030
000467

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

903420
003444

003414

003416
003424

003422
003432
003436
003442

140000

001162

040000

001162

100000

001162

140000

001162

020000

004124
004126
004130
004132
004134
004122

100000

87%:
86%:

001162

004737
000415

022530

000411

104032

004737

104011

MOV
MOV
MOV

MOV

99%-

BIT
BNE
ERROR
JSR
BIT
BNE
{mMp
BEQ

BIT
BNC
BIT
BNE
ERROR

1%:

B8R
CMpP
BNE

MOV
MOV
MOV
MOV
MOV

MOV

JSR
(LR

22%:

001162

aRHCST, (ST

007224

3%:

SEQ 0072

;SAVE RH(S1

BAE

:CLEAR BAE

@dRHBA ,BA
87%

(s3
86%

aRHBAE ,BAE
dRHCS3,(S3
aRH(S2,(S2
@RHST,DS1

@RHER,ER1
aRHTDR, TDR

ARHMR2,
T{

#RDY ,aRH(CS1

99%
102
R7,WHYFO

quF,aRHCSZ
#%L'TRE.SRECO
#1RE
. SREGO

#3CSREGO

30
&8

#SC!TRE, SREGO

22%

JNO IT'S A 70

:CLEAR (S3

. CONT INUE
;SAVE BJS ADDRESS EXTENSION

;SAVE RH(CS3
JSAVE

(S2

;SAVE TESTER STATUS

. SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

;SAVE MRZ2 TESTER REG.
.1S READY SET

JYES CONT_NUE TEST
JREADY NOT SET
!

;ANY ERRORS SET
;1S MXF SET
JYES CHECK TRE AND SC
oIS THE ST AND TRE BITS SET
cYES MXF IS IN ERROR
cIS JUST THE TRE RBIT SET
;+RE BIT MUST BCL IN ERROR
;1S JUST THE SC BIT SET
:SC BIT SET ERRONIOQOUSLY
MXF NOT SET IN RH(CS?

JSETLUP TO TEST AGAIN

;1S 5C AND TRE SET

THE ERROR
;TCST. FOR
A#MPE TPGE | NEM!
' UPE NED
'WCE 'DLT, $CS2

AMCPE ,$CS1

-FIND

SHORTS

$CS3,8(S3
$ST,8ST

#ILF!RMR!DPE
'RMBEX !RFAIL!DTE!OP],SER

#-1 ,BEFORE

R7 .WHYFO
BEFORE

#TRE ,$REGO

#SC,$REGD
7%

2%:

PAGE

;SAVE WORD (OUNT
. SAVE BUS ADDRESS
JIS IT AN RH11

ARHWC
, wW(

000421
104031

B8EQ
(LR
CLR
JMP

MOV
MOV
MGV

161006

161000

004130
004132
030165
177277
007224
004122
022554
040000

MOV
TST

003440

001000

176400

MOV
MOV

104006

022520
022522
022524

022532

16
16
16

017737
017737
017737
005707
001406
005037
005037
000137
012737
017737
017737
017737
017737
017737
017737
032777
001003

022200

——a

3745
3746
3747
2748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765

MACV11 30A(71052)
12=JUL=79 10:46
MxF .TRE AND SC BIT TEST
126

MASSBUSP$?7O ANC RH11 DIAGNOSTIC
CZRHBE
G7=JUN~79 13:44

8%
31

R7 ,WHYFO

3¢

R7 ,WHYFO

8%
4

JTELL WHYFO [TS FOR SHORTS
¢TEST FOR SHORTS
;WE HAVE CHECKED FOR SHORTS
;LEAVE THE TEST
JTHEN IS THE TRE BIT SET
;SC BIT DID NOT SEE TRE BIT
;IS THE SC BIT SET

s TRE

HAS AN OPEN GOING

TO BuUS

JTRE SET LOGIT NOT WORKING
;SET UP TO TEST AGAIN

sMXF HAS OPEN IN LINE GOING
sSEE IF ANY OTHER ERROR BIT

TO BUS
IS

;SET OTHER THAN MXF
;SET UP TO TEST AGAIN
s SOMTHING WRONG WITH TRE B]IT
JSEE IF AN ERROR BIT IS SET
;CR BOTH MXF [N KH(SZ2 AND SC IN

JRH(CST

HAS AN OPEN BETWEEN [T

AND

JSET UP TQ TEST AGAIN
;5C BIT WAS SET BY EITHER ATTN Ok

THE BUS

MASSBUS RH70 ANL RH11 DIAGNOSTIC
(/RHBE .P1N
07=JUN=79 13:44

3801
380¢
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3816
3820
3821

022536

004737

022540
(22542
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

R7 ,WHYFQ

007224

BR
ERROR
JSR

8%
33
R7 ,WHYFO

0641400

6%:

177570

001103
000100
001000

160564
160532

,
006572
050210

000004
012777
012777
005707
100403
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

160506
160450
160442

JUMP:

160430

18%:

160406

19%:

003446

017737
042737

160370
027777

001162
001162

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737

160354
160350
160344

003420
003444
003414

3850
3851
3852
3853
3854
3855
3856

022750
022756
022764
(022772
022774
022776
023002
(023006
023012
023020
023026

003416
003424
023026
160342
160336
160306

003416
003424
003427

3845
3846
3847
3848
3849

TST27:

000000
000061
000061
003446
000200

022734
022742

PAGE

74
SEa@ 0073

BR
8%
ERROR
13
BIT
#SW14!SWI!SwW8,a#17757C
BNE
21%
TSTB
$ERFLG
BNE
9%
27%:
MOvB
#TRER,aRH(CS1B
BIT
#MXF ,dRH(S?2
BEQ
9%
ERROR
50
\
0% :
JSR
R7,CLEER
JSR
R7 ,ERRTST
PN R R AR R AR AR RN R A AR AN RN AR AR F AR AR R P AR AR TR AN NN NP R ANNR RSN R RN R
JETEST 27
PGE ERROR BIT TEST
;*THIS TEST FORCES PGE TO SET IN RH(CS?
;*AND VERIFYS TRE AND SC IS SET IN RH(CST

160506
160474

3843
3844

JFIND WHAT ERROR BIT ]S SET
JM(PE ERROR OR SC IS SHORTED TO +5 vOLTS
;SETUP TO TEST AGAIN
;JTRE WAS SET BY OTHER THAN MXF
JFIND ERROR BIT THAT SET TRE
JSETUP TO TEST AGAIN
. TRE HAS AN OPEN GOING TO THE B8US
;ANY LOOPING BEEING DONE
JYES,LOAD TRE NO MATTER WhHAT
;WAS THERE AN ERROR
;SKIP TRE CHECK
;LOAD TRE
;DID ERROR CLEAR
JYES EXIT TEST
;LOADING TRE DID NOT ZLEAR ERROR
JSEE IF ERRORS ARE CLEARED

7%:
8%:

000007
004000

003446
000200

10:46
,TRE AND SC BIT TEST

JSR

022622
022624
022632
022640
022642
022644
022652
022660
022666
022672
022700
(022702
022706
022710
022714
022722
022724
022730
022732
(022734

MXF

12=JUL =79

007224

2822

3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842

30A(3052)

PGETST:

87%:

86%:

A AR R AR

SCOPE
MOV
MOV
TST
BM]
MOV
MOV
MOV
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
B8R

MOV
BIC
MOV
MOV
MOV
TST
BEQ
(LR
(LR
JMP
MOV
MOV
MOV

AR R AR RN

A AN R AR RN N AN R AR AR A RARRN RN R RN AR A ANN RS AR N AR

#7,dRH(CS?2
#EVENAD , aRHBA
R1
JUMP
#7ZERO, dRHBAE
MIRITEQ,aRH(CS |
#WRITEO,@RH(CS1
BITCNT
#RDY ,dRH(CS]
PGETST
BITINT
18%
BITCNT
#RDY ,a8RH(CS1
PGETST
BITCNT
PGETST
19%

;SET UNIT NUMBER
;SETUP BUS ADDRESS
JIS IT AN 11T OR A 70
;ITS AN RH1I
;SETUP BAE
JTELL IT TO WRITE
;CREATE THE ERROR
cCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
JCOUNT UP
sNOT FINISHED COUNTING
;GET READY TQ DO I+ AGAIN
SIS IT SET YET?
JYES
sCOUNT UP
JBIT IS NOUT GOING TO SET

aRH(CS1,$REGO
sSET UP NEEDED BITS ONLY
#GO!IE'RDY!A16!A17!PSEL .DVA'MCPE 'READG, SPEGO
JCLEAR BITS NOT NEEDED
aRH(CST,(S1
;SAVE RH(CS1
aRHW( ,WC
;SAVE WORD COUNT
aRHBA ,BA
. SAVE BUS ADDRESS
R1
LIS IT AN RH11
87%
JNO IT'S A 70
BAE
;CLEAR BAE
(s3
;CLEAR (S3
86%
; CONT INUE
oRHBAE ,BAE
;SAVE BUS ADDRESS EXTENSION
aRH(S3,CS3
s SAVE RH(CS3
aRH(S2,(S2
;SAVE (S2

ASSBUS RM70 ANC RM11 DIAGNOSTIC
’RHBE P11
07=JUN=79 "3:4

3857
3858
3859
2860
7861

023034
023042
023050
023056
023064
023072
023074
023076
023102
023110
023112
023120
023122
023130
023132

023140
023142
023144
023146
023154
023156
023164
023172
023200
023206
023214
023222
02322¢
023232
023236
023244
023246

023254
023256
023260
023262
023264

017737
017737
017737
017737
032777
001003
104102

004737
032777
001016
022737
001460
0327%7
001060
032737
001060
000467
022737
001030
013737
012737
013737

013737
012737
012737
004737
005037
000137
032737

001022
032737

000200

604650

160230

140000

001162

040000

001162

100000

001162

140000

0011672

004124

004124
004126
004130
004132
004134
004122

175400

004130
004132
030175
1772777
007224
004122
023324
040000

001162

100000

001162

023300
023302
023304

000411

104171

004737

99%:

104011

004737

000405

001103

177570

CMP

BNE

22%:

12=JUL=79

ERROR BIT

8IT
BNE
ERROR
JSR
BIT
BNE
CMP
BEQ
BIT
BNE
BI7
BNE
RROR
BR

MOV
MOV
MOV
JSR

TEST

10:46

PAGE

aRHST,DS1
aRHER ,ER1

7%:

8%:

SEQG 0074

;SAVE

TESTER STATUS

aRHTDB, TDR
aRHMRZ,
T(

;SAVE

TESTER DATA REG.

99%
102
R7,WHYFO
?:GE.SRHCSZ

JYES (ONTINUE TEST
JREADY NOT SET

#RDY ,@RH( ST

;ngTRE.SREGO
#T
, RE
SREGO

#SC,S$REGO
3

#SC!'TRE ,$REGO

22%

s SAVE ERROR REGISTER

;SAVE MR? TESTER REG.
;1S READY SET
JANY ERRORS SET

;1S PGE SET

sYES

(HECK

TRE

AND

J1S THE SC AND TRE BITS SET

IYES PGE IS IN ERROR
$1S JUST THE TRE BIT SET
;sTRE

BIT MUST BE

[N ERROR

1S JUST THE SC BiT SET
:SC BIT SET ERRONIOUSLY
sPGE NOT SET IN RHCS?
JSET UP TO TEST AGAIN
c1S SC AND TRE SET

THE ERROR
;TEST FOR
#MPE |MXF ' NEM!NED! UPE 'WCE . DLT,$CS2

$CS1,8CS1

;FIND

SHORTS

$CS3,8CS3

$ST,$ST

lILF!CPE!RMRfDPE'RMBEX.RFAIL!DTE!OPI.$EP

#-1,BEFORE
R7 ,WHYFQ
BEFORE

#TRE ,$REGO

#SC,$REGO
7%

6%:

00722¢

PGE

MOV
MOV
MOV

4%:

007224

041400

1%:

007224

30A(7052)
MOV
MOV
MOV
MOV

2%:

007224

000415

023322
023324
023332
023334
023340

160274
160256

003432
003436
003442
003440
160236

104051

023270
022272
023274

023310
023312
023314
023320

160302

160276

MACY11
127

6
8s
123
R7 ,WHYFO

P7,WYFQ

1
R7,w4YFO

JTELL WHYFO ITS FOR SHORTS
JTEST FOR SHORTS
;WE HAVE

CHECKED FOR

SHORTS

JLEAVE THE TEST
JTHEN 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
;PGE HAS OPEN IN LINE GOING TO BUS
sSEE IF ANY OTHER ERROR BIT S
;SET OTHER THAN PGE
sSET UP TO TEST AGAIN
sSOMTHING WRONG WITH TRE BIT
;SEE IF AN ERROR BIT IS SET
;OR BOTH PGE IN RHCS2 AND SC IN
;RH(CS1 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

SET

sMCPE ERROR OR SC IS SHORTED TO +5 vOLTS
sSETUP TO TEST AGAIN

172
R7,WHYFQ

;TRE WAS SET BY QOTHER

s TRE HAS AN OPEN GOING TO THE
IANY LOOPING BEEING DONE
JYES,LOAD TRE NO MATTER WwHAT
:WAS THERE AN ERROR

#SW14 . SW9 ! SW8,a#177570

21%
$ERFLG
9%

THAN PGE

JFIND ERROR BIT THAT SET TRE

JSETUP TO TEST AGAIN

JSKIP TRE

CHE(K

BUS

MASSBUS RH70 AND RH11 DIAGNOSTIC
C ZRHBE P
07=JUN=79 13:44

3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944

023347
023350
023356
023360
023362
023366

112777

032777
001401
104050

004737
004737

MACY11

30A(7052)

000,00
002000

21%:

MOVB

006572

9% :

127

05021

PGE

ERROR BIT

BIT
BEQ
ERROR
JSR

JSR
AL

12=JUL=79

|#TREB, aRHCS 1B
#PGE ,aRH(CS?2

50
R7,CLEER
R7,ERRTST

SRR

SeTEST 30

;*THIS

TEST

10:46

PAGE

SEQ 0075

;LOAD TRE
:DID ERROR CLEAR
SYES EXIT TEST
;LOADING TRE DID NOT CLEAR ERROR
;SEE IF ERRORS ARE (LEARED

RdSRiRR 222222222222
222X
R T

MXF ,TRE AND SC BIT TEST (RH11 ONLY)
TEST SEES IF MXF CAN BE SET BY A MOVE

J*INSTRUCTION AND THAT

TRE AND SC ARE SET

;*RHCST1.MXF CAN BE SET THIS WAY IN AN RH11 BUT (N
J*NOT BE SET THIS WAY IN ANRH70......ccvveerenn..
"."'Q"..Qfi‘*t"fi'titfi.t""‘tfi'Qfi'fl'*‘iQ".*.'.fiit"'t*fitfit"‘t.'

023372
022374
023376
023400
023404
023412
023420
023424
023432
023434
023440
023442
023446
023454
023456
023462
023464
023466
022466
023474
023502
023510
023516
023524
02352¢
023530
023534
023540
023544
023552
023560
023566

023574
023602
023610
023616
023624
023626
023630
023634
023642
023644

000004
005701

100402

1ST30:

000137
012777
052777
005037
032777
001015
005237
001371
0059037
032777
001004
005237
001491
000770

0246124
000007
001000
003446
001000

017737
042737

157636

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

157726
157720

LEAP:

157706

18¢%:

003446
003446
001000

157622
157616
157612

157664

19%:

001162
001162

MIX]IT:

003420
003444
003414

JIS

LEAP
FROG

JIT'S AN RH11 DO THE
JRH70,EXIT TEST

BIS
(LR

AMXF ,RRHCS2
BITCNT

JSET MXF
;CLEAR BIT COUNTER

BNE
INC

MIXIT
BITCNT

sBIT IS SET
;COUNT UP

CLR

BITCNT

JGET READY

INC
BEQ

BITCNT
MIXIT

JCOUNT UP
;BIT IS NOT GOING TO SET

MOV

aRH(CS1,$REGO

JSET UP NECDED BITS ONLY

MOV

aRH(CST,(S1

JCLEAR BITS NOT NEEDED
2 SAVE RHCS1

MOV
TST

aRHBA ,BA
R1

;SAVE BUS ADDRESS
;IS IT AN RH1I

(LR

BAE

;CLEAR BAE

Jmp

86%

MOV
BIT

BIT
BNE

B8R

MOV

BEOQ

003416

CLR

003416
003424
003422
003432
003436
003442
003440

87%:
86%:

"57476

001162

MOV
MOV
MOV
MOV
MOV
MOV

99% :

#7 ,0RH(CS?

HAXF ,aRH(CS2
18%

AMXF ,8RHLS?2
MIXIT

19¢%

70 OR

TEST

;SETUP UNIT 7
;1S MxF

SET

JNOT FINISHED COUNTING

TO DO IT AGAIN

JIS IT SET YET?
:YES

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

aRHW(C ,W(

87%

;SAVE WORD COUNT

JNO IT'S A 70

€S3

;CLEAR (S3

aRHBAE ,BAE
aRKLS3,(S3
BRH(S2,(S?

;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
JSAVE (S2

;CONT INUE

aRHST,DS1
aRHER,ER
aRHTDB, TDR

;SAVE TESTER STATUS
:SAVE ERROR REGISTER
;SAVE TESTER DATA REf,

BIT

#RDY ,a8RH(CST

;1S READY SET

BIT

MMXF ,aRH(S?

MOV

157504

140000

BIC

104102

004737
032777
001016
022737

TST

BM]
JMP

BNE

003446

027777

SCOPE

BNE
ERROR
JSR

BNE
(MP

aRHMR?, T(

99%
102
R7 ,WHYFQ

1%
#SC . TRE ;$REGO

;S~vE MRZ2 TESTER REG.

JYES CONTINUE TEST
JREADY NOT SET
JANY ERRORS SET

;1S MyF

SET

JYES C(HECK TRE AND SC

;1S THE SC AND TRE BITS SET

’

MASSBUS RH?0 AND Re11 DIAGNCSTIC
(ZRHBE .P11

3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3588
3989
3990
3991
3992
3993

3994
3995
3996
3997
3998
3999

4000
4001
4002
4003
4004
4005
4006
4007

4008

4009
4010
4011
40712
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024

023652
023654
023662
023664
023672
023674
023676
023700
023706
023710
023716

023724
023732
02374C
023746
0237564
023760
023764
023770
023776
024000
024006
024010
024012
024014
024016
024022
024024
024026

MACY11
T30

07=-JUN=79 13:44
001460

032737
001060
032737
001060

040000

001162

100000

001162

104030

000467
022737
001030
013737
012737
013737
013737
013737

012737

004737
005037
000137
032737
001022
032737
001022

1460000

001162 - 1%:

004124

006124
004126
004130
004132
0046134
004122

176400

004130
004132
004134
177777
007224
004122
024056
040000
100000

001162

22%:

001162

000415
104032

004737

024032
024034
024036

000411
104011

024042
024044
024046
024052
024054
024056
024064
024066
024072
024074
024102
024110
024112
024114
024120
024124

000405

004737
104033

004737
000401
104013

032737
001003
105737

3%:

007224

177570

004737
004737

006572
050210

157262
157230

JYES MXF

TRE BIT SET

;TRE BIT MUST BE

IN ERROR

.SC BIT SET ERRONIOUSLY

30
8%

JMXF NOT SET

22%

;FIND

IN RHCS?

;JSET UP TO TEST AGAIN
;1S SC AND TRE SET

#SC!TRE, $REGO

THE ERROR
;TEST FOR SHORTS
#MPE PGE !NEM!NED .UPE .WCE !DLT,$CS?2

$CS1,8CS1

$0S3,%(S3
$ST,8ST
$ER, $ER

#-1,BEFORE

sTELL WHYFOQ ITS FOR SHORTS

R7 ,WHYFO

JTEST FOR SHORTS

;WE HAVE CHECKED FOR SHORTS
JLEAVE THE TEST

#T
, RE
$REGO

JTHEN

#SC,$REGO
7$

;JOR BOTH MXF

JRHCS1

;SETUP TO TEST AGAIN

ggXF.aRHCSZ

;TRE

HAS AN OPEN GOING

s*THIS

;WAS THERE AN ERROR
;SKIP TRc CHECK

;LOAD TRE

;:DID ERROR CLEAR

SYES EXIT

TEST

JLOADING TRE DID NOT CLEAR ERROR
sSEE IF ERRORS ARE (LEARED

MCPE AND SC ERROR TET
TEST CHECKS THAT MCPF CAN BE

J*AND THAT MCPE SETS SC IN RHCS1

THE BUS

JANY LOOPING BEEING DONE
¢YES,LOAD TRE NO MATTER WHAT

.-.-tfitttttttttttttttntttvttttttttttttttttttttttttttttttttotttttttt

J=TEST 31

;TRE WAS SET BY OTHER THAN MxF
;FIND ERROR BIT THAT SET TRE

g?¥14:su9ssu8,a#177>70

9%:

IN RHCS2 AND SC

HAS AN OPEN BETWEEN IT AND

THE BUS

;SET UP TO TEST AGAIN
.SC BIT WAS SET BY EITHER ATTN OR
;FIND WHAT ERROR BIv IS SET
sMCPE ERROR OR SC IS SHORTED TO +¢5 VOLTS
JSETUP TO TEST AGAIN

8%
33
R7 ,WHYFO
8%
13

50
R7,CLEER
R7 ,ERRTST

SET

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

1
R7 ,WHYFO

#TPEB,aRH(S18

TRE BIT

HAS AN OPEN GOING TO BUS
SET LOGIC NOT WORKING
sSET UP TO TEST AGAIN
sMXF HAS OPEN IN LiNE GOING TO BUS

R7 ,WHYFO

21s:

THE

:TRE
sTRE

6
8%
31
R7 ,WHYFQ

$ERFLG
9%

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

FROG:

IN ERROR

;1S JUST THE SC BIT SET

8s
32

7%:

#5C,$REGO
4%

BR
ERROR

JSR

SEQ 0076

s1S JUST THE

BEFORE

001103

000100
001000

#TRE,SREGO

(LR
JMP
BIT
BNE
BIT
BNE
ERROR
B8R
ERROR
JSR

6%:

007224
041400

BEQ
BIT
BNE
BIT
BNE
ERROR
BR
(MP
BNE

4%:

007224

001010
112777
032777
001401
104050

2%:

007224

12=JuL-79

10:46
PAGE 77
MXF ,TRE AND SC BIT TEST (RH11 ONLY)

MoV
MOV
MOV
MOV
MoV
MOV
JSR

104006

000421
104031
004737

30A(i052)

SET

IN RH(CS1

MAS5BUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=-JUN=79 13:44
4025
4026

6027
64028
4029
4030

4031
4032
<033
(034

4035
4036
437
4338
4339
4160
4041
4042
4043
L4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4056
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072

4076
4077
4078
6079
4080

MACY11
131

M 6
30A(°052)
"2-JUL=79
10:46
MCPE AND SC ERROR TET

PAGE

SEQ 0077

""!t"ttti.**ttii'l’i*fi‘ii'il’ti'tittttttttttttttfit.*fittttttttititt

024124

026126
024134
0264142
024150

024156
024162
024170

024172

024176
024200
024204
024212
024214
024220
024222
024224
024224
026232
024240
024246
02425G
024252
024256
0264262
024266
024274
024302
024310
024316
024324
024332
024340
024346
024350
024352
024356
024364
024366
024374
024376
024404
024412
024420
024424
024430
024432

024434
024440
024442
024446
02445¢

000004

012777
012777
013777
013777

005037
032777
001015

005237

001371
005037
032777
001004
005237
001401
000770

017737

017737
017737
005701
001406
005037
005037

000007
000010
001162
001162

003446
000200

157

157074
157

017737
017737
017737
017737
032777

157026
157022
157020
157000
000200

001425

032777
001416
012737
012737
012737
004737
005037
000406
104130

000137
104131
004737
004737
004737

157116

19%:

003420
003444
003414

MCPET:

87%:

007224
020000

156744

MPETST:

100000

040000
177400
177777
007224
004122

86S:

007224
006572
050210

:INVERT CONTROL PARITY
:TRANSFER INFO TO TESTER
:D0_IT FOR SECOND TIME
:CLEAR BIT COUNTER
1S RDY SET

BNE
INC

MCPE T
BITCNT

BIT IS SET
:COUNT UP

CLR
BIT
BNE
INC
BEQ

BITCNT
#RDY , @RHCS
MCPE T
BITCNT
MCPET

:GET READY TO DO IT AGAIN
(IS IT SET YET?
SYES
:COUNT UP
:BIT IS NOT GOING O SET

MOV
MOV

ARHCS1,(S1
SRHWC , WC

188

198

INOT FINISHED COUNTING

:SAVE RHCST
:SAVE WORD COUNT

MOV
TST

aRHBA ,BA
R1

CLR

BAF

JMP
MOV
MOV
MOV
MOV

86$
SRHBAE , BAE
8RH(S3.CS3
ARHCS2, (S2
8RHST DS

: CONT INUE
:SAVE BUS ADDRESS EXTENSION
:SAVE RH(S3
:SAVE (S2
:SAVE TESTER STATUS

MOV

aRHTDA, TDR

:SAVE

MOV

87%

(s?

aRHER, ER1

:SAVE BUS ADDRESS
(1S IT AN RH11

INC_IT'S A 70
:CLEAR BAE

:CLEAR CS3

:SAVE ERROR REGISTER

TESTER DATA REG.

MOV
BIT
BNE
ERROR
JSR

SRHMR2, TC
#RDY , BRHCS 1
MPETST
102
R7,WHYFO

:SAVE MR2 TESTER REG.
:1S READY SET
:YES,TEST MCPE
:READY IS NOT SET
:ANY ERRORS SET

156734

BIT

#5C,ARHCS1

;1S SC SET

004124
004126
004122

MOV
MOV
MOV

#TRE,$CST
GET READY TQ TEST
H#MPE IMXF ! PGE .NEM!NED . UPE {WCE . DLT,$CS2
#-1,BEF ORE

CLR

BEF ORE

156762

BIT

BEQ

JSR

228:

024446

;SETUP UNIT NO.

#1CPA, @RHMR]
$RE GO, aRHTDB
$REGO, aRHTDB
BITCNT
HRDY ,@RHCS

CLR

003416
003424
003422
003432
003436
003442
003440

#7 ,@RHCS2

MOV
MOV
MOV
CLR
BIT

BEQ

003416
003424
157066
157062
157032

SCOPE

MOV

BNE

003446

024302

001003
104102
004737
032777

188:

003446

000137

017737
017737
017737

TS$T31:

18:

ERR30:

BR
ERROR

JMP

ERROR
JSR

JSR
JSR

#MCPE . BRHCST

22%

1S MCPE

SET

:SC_NOT SET

FOR SHORTS

R7,WHYFOQ

:SEE IF ANY SHORTS

ERR30
130

;GET OUT OF TEST
:MCPE_ERROR OK BUT SC DID

ERR30

131
R7 ,WHYFO
R7.CLEER
R7 ,ERRTST

INOT SET SC HAS OPEN TC
:BUS OR MCPE GOING TO OR

:GATE FOR SC WAS NOT SEEN
;MCPE DID NUT SET
:WAS THERE ANOTHER ERROR

:CLEAR ERRORS
JWAS THERE AN ERROR

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

yO N &by
=
00

=D
b

bt md e

bbk
b
D

Pl AW o

d
—

2 X 2T o

4081
4082
4083
4084
4085
4086
4087

MACY11
3

30A(i052)

12-4UL=-79

MCPE AND SC ERROR

AAAAAASE

SOTEST 32

SRR

TET

6
10.46

PAGt

SEQ 0078

R R

R )

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

:«DBL IN PHCS3...... RH70 ONLY ..o ioveeunnnans

;:tt'tttt'ttttttt'tttttt.it'ttttnttt!ttfittttttttttttnt'ttnnt.tt.t

024456
024460
024462
024464
024472
024500
024506
024514
026522
024526
024534
024536
024542
026544
024550
024556
024560
024564
024566
024570
024570
024576

024604

024612
024614
024616
024622
024626
024632
024640
024646
024654
024662
024670
024676
024704
024712
024714
024716
024722
024730
024732

024734
024740
024744

000004
005701
100532
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
032777
001003
104102

TST32:

177777

004000
000000
000007
000061
003446
000200

18%:

19%:

003446

38
156534
156530

156524

003416
003424
024646
156522
156516
156466
156462
156456
156454

156434
000200

004737
032777
001403

102000

004737
004737
004737

007224
006572
050210

104125

156552

0r7224

MOV

#-1,3RHWC

003420
003444
003414

156432

SJTELL IT TO WRITEQ
JCLEAR BIT COUNTER

BNE
INC
BNE

3%
BITCNT
18%

;BIT IS SET
;COUNT UP
<NOT FINISHED COUNTING

BIT
BNE
INC
BEQ

#RDY ,aRH(CS1
3¢
BITCNT
3%

J1S IT SET YET?
JYES
JCOUNT UP
SBIT IS NOT GOING TO SET

MOV
MOV

@RHCS1,(S1
aRHW( ,W(

;SAVE
JSAVE

1ST

JIS

BIT

(LR

B8R

2%:
AR

#7 ,8RH(S?2

;DEVICE 7

#RDY ,aRH(S1

;1S RDY

S8ITCNT

aRH4BA BA

IMP

869%

RH(CS1
WORD COUNT

;SAVE BUS ADDRESS

87%

BAE

SET

JGET READY TO DO IT AGAIN

19%

(LR

AN RH1

JNO IT'S A 70
;CLEAR BAE

(S3

:CLEAR (S3

;CONTINUE

MoV

aRHBAE ,BAE

. SAVE BUS ADDRESS EXTENSION

MOv
MOV

MOV

aRHST,DS?
aRHER ,ER1
oRHTDB, TDR
aRHMRZ, T

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

BNE
ERROR

1%
102

JRDY SET CONT. TEST
JREADY DID NOT SET

MOV
MOV

8I7

1%:

FOR ONE WORD

MIRITEQ,aRH(ST
BITCNT

MoV

156416

TEST

;SET UP WC

MOV
(LR

(LR

86%:

IN AN RHT1

.SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENS]ON

MCv

87%:

;:GET QUT OF

#E VENAD , 3RHBA
#7ERO, aRHBAE

BEQ

00341¢
003424
003422
003432
003436
003442
003440

JIS

TST33

MOV
MOV

MOV

003446

003446
000200

BM]

156640
156634
156652
156624
156606
156574

SCOPE
TST

JSR

BIT
BEQ
ERROR
JSR
JSR
JSR
AN R AT R AR A AR

LeTEST 33

@RHLS3,(S3
8RH(S2,(S2

:SAVE RH(CS3
;SAVE (S2

#RDY ,aRH(CST

;IS READY SET

R7 ,WHYFOQ

;ANY ERRORS SET

#DBL ,3RH(CS3
’%
125
R7 ,WHYFO
R7,CLEER
R7,ERRTST

;1S DOUBLE SET
;DBL SET
;DBL DID SET ON A 1
JTELL WHY NOT
;CLEAR ERRORS

WORD TRANSFER

AN AN R AR RN A AR N RN RN RS AR NRANNARNNRRANP RN RN AN

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

R RN

MASSBUS RH70 AND RH11 DIAGNOST!C
(ZRHBF P
07=-JUN=79 13:44

MACY11
C
733

L4137

4138
4°39
4140
4141
4142
4143
L1464
4145

4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157

4158

4159
4160
4161

4162
4163

4164
4165
4166
4167
4168
4169
4170
4171
4172
(173
4174
4175
6176
4177

4178
4179

4180
4181
4182
4183
4184
4185
4186

4187
4188
4189
4190
4191

4192

000004
005701
100524

012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004

177776

003446
000200
003446

017737
017737
017737
005701

156256
15€252
156246

005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003

003416
003424
025124
156244
156240

104702

156210
156204
156200
15€176
156756

000200

004737
032777
001003

007224
002000

004737
004737
004737

007224
006572
050210

104127

156346
156342
156330
156316

SCOPE

MOV

#-2 ,d3RHWC

MWRITEQ,adRHCST
BITCNT
#RDY ,aRHCS1

DBLWDS
BITCNT
18%
BITCNT

BNE
156274

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440
156140

156154

(LR

19%:

BIT

:
DBLWDS

86%:

;SETUP WORD COUNT FOR DOUBLE

sCORRECT BA
JTELL IT TO WRITE
;CLEAR BIT COUNTER
;IS RDY SET
;BIT IS SET
. COUNT UP
sNOT FINISHED COUNTIN(
;GET READY

TO DO IT AG-'N

BNE
INC
8EQ

DBLWDS
BITCNT
DBLWDS
19%

MOV
MOV
Mov
TST

aRH(CS1,CS1
adRHW(C ,W(
aRHBA ,BA
R1

s SAVE RH(CS1

87%
BAE

(S3

@RHBAE ,BAE
@RHCS3,(S3
aRH(S2,(S2

®RHST ,DS1
aRHER,ER1
aRHTDR, TDR
dRHMRZ,
TC

BIT
BNE
ERROR
JSR

ARDY ,aRHC(CS1
FOOEY
102
R7 ,WHYFO

BIT

R AN A AR

#DBL ,aRH({S3

ERIR
127
R7,WHYFO
R7,CLEER
R7 ,ERRTST

AR A A AR AR

J*TEST 34

;*THIS

s SAVE WORD COUNT

s SAVE BUS ADDRESS
1S IT AN RH1?
JNO IT'S A 70
;CLEAR BAE

sCLEAR (S3

86%

BNE
ERROR
JSR
JSR
JSR

ERIR:

OR A 70

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

MOV
MOV
MOV
MOV

FOOEY:

AN RN RA

#RDY ,aRHCS1

BEQ
CLR
CLR
JMP
MOV
MOV
MOV

87%:

IT AN 11

;.GET OUT OF TEST

#EVENAD ,aRHBA

MOV
CLR
8IT
BNE
INC

NN RN RANNRRRAN N AR AN

SIS

TST34

MOV

18%:

RN R AN R AR NN

TST

BM!

003446

005237
001401
000770

001406

AR AR A AR AN AN AN ARAAAN R

TST33:

004000
000061
003446
000200

SEQ 0079

;*DIVISABLE By 4........ RH70 ONLY.......c.....

SIMARA

024750
024752
024754
024756
024764
024772
025000
025004
025012
025014
025020
025022
025026
025034
025036
025042
025044
025046
025046
025054
025062
025970
025072
025074
025100
025104
025110
025116
025124
025132
025140
025146
025154
025162
025170
025172
025174
025200
025206
025210
025212
025216
025222

7
8
12=JUL=79
3CA(7052)
10:46
PAGE 80
DOUBLES TEST FOR TWO WORD BASE 4 ADDRESS

s CONT INUE
;SAVE BUS ADDRESS EXTENSION

JSAVE RH(S3
;SAVE (S2
;SAVE TESTER STATUS

;SAVE ERRCR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S READY SET
JRDY

SET

;RDY DID NOT SET
JANY ERRORS SET
;1S DOUBLE SET
;DBL IS SET
;DBL DID NOT SET IN RH(CS3
JANY OTHER ERROR SET
;CLEAR ERRORS

AR AR R A AR AN AR AR A RRRRAR R

AR AR A RN R RN

RN AN

DOUBLE TEST ,3 WORD TRANSFER FROM A BASE &4 ADDRESS

TEST

CHECKS

THAT DBL WILL NOT

SET

;*IN RHCS3 AFTER A 3 WORD TRANSFER STARTING

025226

025230
025232
025234

)4
00C"
005701
100524

012777

TST34:

177775

156070

;*FROM AN ADDRESS DIVISABLE BY 4
b1
s¥eererccscnsns
RH70 ONLY.....vivirnnnnnnen.

SCOPE

I
T I
NI

TST

MOV

#-3, 3RHW(

BMI

TST35

JIS

2;GET OUT OF

IT AN

TEST

OrR A

;SET UP FCR A 3 WORD

T"RANSFER

TRANSFER

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

4193

4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4261
42642
4243
4244
4245
4246
4247
4248

025242

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
001403

025474
025500

104126
004737
004737
004737

004000
000061
003446
000200

MACY11
T34
156064
156052
156040

156016

18%.:

19%:

003446

003420
003444
003414

000200
007224
002000

007224
006572
050210

003416
003424
003422
003432
003436
003442
003440
155662

155676

#EVENAD ,aRHBA
#WRITEQ,@RHCST

MOV
MOV

003446
003446
000200

4
C
30A(7052)
12-J4UL=79
10:4€
PAGE 81
DOUBLE TEST ,3 WORD TRANSFER FROM A BASE &4 ADDRESS

THREE:

87%:

86%:

CLR

BITCNT

BIT

BNE
INC
BNE
CLR
BIT

THREE
BITCNT

18%
BITCNT

ERPIP:
e

;COUNT UP
JBIT IS NOT GOING TQ SET

@RH(CS1,CST

s SAVE RHCS1

19%

MOV
MOV
MOV
TST

aRHWC
, WC
aRHBA ,BA
R1

€s3

86%

aRHBAE ,BAE

@dRHCS3,(S3
@dRHCS2,(S2
@RHST ,DS1
aRHER ER1
aRHTDB, TDR
ARHMR2,
T(

MOV

MOV
MOV
i 101Y)
MOV

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

;SAVE TESTER DATA REG.
sSAVE MR? TESTER REG.
;IS READY SET

#RDY,3RHCS1
ERRIP

ENE
ERPOR
JSR
BIT
BEQ
ERROR
JSR
JSR
JSR

JRDY
;RDY

102
R7 ,WHYFQ

;ANY

#DBL ,3RH(S3
ERPIP
126

IS SET
DID NOT SET
ERRORS SET

;1S DOUBLE SET
;DBL IS SET
;DOUBLE SET ON A 3 WORD TRANSFER
;SEE IF ANY ERROR BITS ARE SET
;CLEAR ERRORS

R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

A A AR AR RN AARR AR AR R RRARNNN N A AR

DOUBLE

TEST

CHECKS

J*AFTER A 4 WORD
"ADDRESS

COUNT

;SAVE BUS ADDRESS
;1S IT AN RHIM
JNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
s SAVE RH(CS3
sSAVE (S2

BAE

MOV

;xTHIS

s SAVE WORD

87%

BEQ
CLR
CLR
JMP
MoV

JYES

THREE

AN AR AR AN A AN

S*TEST

;GET READY TO DO IT AGAIN
JIS IT SET YET?

BITCNT

TO WRITE

JNOT FINISHED COUNTING

#RDY ,aRH(S1
THREE

BNE
INC
BEQ

;CLEAR BIT COUNTER
;1S RDY SET
;JBIT IS SET
s COUNT UP

#RDY ,@RHCS1

BIT

ERRIP:

;. CORRECT BA

JTELL

RNNN RN AR R R AR AR RS ;&

,4 WORDS FROM A BASE 4 ADDRESS

THAT

DBL

WILL

SET

IN RHCS3

TRANSFER STARTING WITH AN

DIVISABLE

4% axnaaraananahxhenatnn

RH70 ONLY
.

025504
025506
025510
025512
025520
025526
025534
025540
025546
025550

000004
005701
100524
012777
012777
012777
005037
032777
001015
005237

tti'*tttttt*ttt!’tttfii*t'it\*tttfitit**tl’*ttt*t*ttt'tttttttt.t'tt

TST35:

003446

TST

MOV
MOV
MOV

#=4 ,dRHW{
#EVEN
, 9RHBA
AD
#WRITEQ,dRH(CST

BMI

177774

004000
000061
003446
000200

SCOPE

18%:

CLR
BIT

BNE

INC

TST36

BITCNT

#RDY ,@RHCS1

DBLED
BITCNT

JISIT ANTTORA 70
JsGET OUT OF TEST

JSET UP FOR 4 WORD TRANSFER
. CORRECT BA
JTELL IT TO WRITE
JCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
JCOUNT UP

SEQ 0080

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

4249
4250
4251
4252
253
4254
4255
4256
4257
4258
4259
4,260
4,061

4262
4263
4264
4265
4,066
4267
4,268
4269
4270

4271
4272
4273

4274
4275
4276
4277
4278
4279

025554
025556
025562

025570
025572
025576

00137
005037
032777
001004
005237
001401
000770

025600
025602
025602
025610
025616
025624
025626
025630
025634
025640
025644
025652
025660
025666
025674
025702
025710
025716
025724

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

025734
025742
025744
025746
025752
025756

004737
032777
001003
104124
004737
004737
004737

025726
025730

003446
000200

MACY11
C
135

155540

30A(7052)

19%:

003446

017737

003420
003444
003414

017737

DOUBLE

TEST

BNE
CLR

18%
BITCNT

155404

104102

155420

007224
006572
050210

87%:
86%:

10:46

PAGE 82

,4 WORD S FROM A BASE &4 ADDRESS

JYES

;COUNT UP
;BIT IS NOT GGING TO SET

@RHCS1,CS1
aRHWC
, W(

MOV
MOV
MoV
TST

;SAVE RHCS1

;SAVE WORD COUNT

aRHBA ,BA
R1

. SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR BAE

87%

CLR
CLR
JMP

BAE

cS3
86%

MOV
MOV
MOV
MOV
MOV
MoV
MOV

;JCLEAR (S3

;s CONTINUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3

aRHBAE ,BAE

@RH(S3,CS3
@dRHCS2,(S2

;SAVE CS2

dRHST ,DS1

:SAVE TESTER STATUS
;SAVE ERROR REGISTER

aRHER,ER1
aRHTDB, TDR

;SAVE

aRHMR?2,
T(
#RDY ,3RH(S1
DAYAMS

BIT
BNE
ERROR
JSR
DAYAMS: BIT
BNE
ERROR
JSR
ERRZ9:
JSR
JSR

SEQ 008t

.NOT FINISHED COUNTING
JGET READY TO DO IT AGAIN
JIS IT SET YET?

DBLED
BITCNT
DBLED
19%

BEQ

003416
003424
003422
003432
003436
003442
003440

#RDY ,3RH(S"

BIT
BNE
INC

BEQ

DBLED:

12=JuL=-79

TESTER DATA REG.

;SAVE MRZ2 TESTER REG.
;1S READY SET

JRDY

102
R7 ,WHYFO

SET

;RDY DID NOT SET
;WHAT ERRORS ARE

#DBL ,aRH(S3

SET

;1S DOUBLE SET
JTEST IS OK
;DOUBLE DID NOT SET AFTER A 4 WORD
;SEE IF ANY ERROR ARE SET
. CLEAR ERRORS

ERR29
124

R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

‘"tttfit*tt*ttttfi**k**ttttit'tttfiitttfitttfit!*tltt'ttfifitttti'fittttt

SxTEST 3 6

TEST 1WORD TRANSFER READ

DOUBLE

;*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
:*WRITE FWD AND REV AND WITH BAI SET IN RH(S?2
;*OPERATION BEING PREFORMED WILL BE PRINTED QUT

ARl

025762
025764
025766
025770
025776
026004
026012

026020
02602¢
026032
026040
026042
026046

000004
005701
10C532
012777
012777
012777
012777
012777
005037
032777
001015
005237

001371

15136
177777
004000
000000
000007
000071
003446
000200

003446

18%:

........... RH70 ONLY.....ooveeenencnnnnannn

SCOPE
TST
BMI
MOV
MOv
MoV
MOV
MoV

CLR
BIT
BNE
INC
BNE

R1
TST37

#-1,aRHwW(

#EVENAD , dRHBA

;IS IN AN RH1T
;;GET OUT OF TEST

JSET UP WC FOR ONE WORD
s SETUP BUS

ADDRESS

#ZERO,aRHBAE

2SETUP BUS ADDRESS EXTENSION

#READQ,@RH(ST
BITCNT

JTELL IT TO READO
sCLEAR BIT COUNTER

#7,8RH(CS?

HRDY ,aRH(CS1
3s
BITCNT
18%

;DEVICE 7

;1S RDY SET
JBIT IS SET
s COUNT UP
JNOT FINISHED rOUNTING

MASSBUS RH70 AND RH11 DIAGNQOSTIC
CZRiBE P11
07-JUN=79 13:44

4305

4306
4307
4308

4309
4310
4311
4312
6313

4314
4315

4316
4317
4318
6319

4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333

4334

4335
4336
4337
4238
4329
4340
634"
4362
6343

4344
4345
4346
6347
4348
4349
4350
4351
4352
4353

6354
4355
4356

6357

4358
4359
4360

026050
026054
026062
026064
026070
226072
026074
026074
026102
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

198:

C03446

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

003420
003444
003414

87%:
86%:

BITCNT
#RDY,aRHCS]

INC

BITCNT

19%

BNE

MOV
MOV
MoV
TST

155112

155126

007224
006572
050210

CLR
JMP
MOV

MOV
MOV
MOV
MOV

1%:

2%:

@RH(CS1,(S1
aRHWC ,W(
aRHBA,BA
R1

87%

cS3
86%
@RHBAE ,BAE

#DBL ,@RH(<3

BEQ
ERROR
JSR
J3R
JSR

;GET READY TO DO IT AGAIN
oIS IT SFT YET?
JYES
; COUNT UF
JBIT IS NOT GOING TO SET

;CLEAR (CS3

; CONT INUE
:SAVE BUS ADDRESS EXTENSION

@RHCS3,CS3
@RH(S2,(S2
aRHST,DS1

BIT

SEQ 0082

;SAVE RHCS1
. SAVE WORD COUNT
. SAVE BUS ADDRESS
JIS IT AN RH1
JNO IT'S A 70
:CLEAR BAE

BAE

MOV
BIT
BNE

ERROR
JSR

@RHER,ER1
aRHTDB, TDR
ARHMRZ,
TC
#RDY ,aRHCS1
1%

MOV

104102

004737
004737
004737

(LR
BIT

(LR

004737
032777
001403
104154

DOUBLE

BEQ

003416
003424
003422
002432
003436
003442
003440

12=J4UL=79
10:46
PAGE 83
TEST TWORD TRANSFER READ

BEQ
3%:

30A(7052)

;SAVE
;SAVE
;SAVE
:SAVE
JSAVE

RHCS3
(S2
TESTER STATUS
ERROR REGISTER
TESTER DATA REG.

;SAVE MR2 TESTER REG.
;1S READY SET
JRDY SET CONT. TEST
JREADY DID NOT SET

102
R7 ,WHYFO

;ANY ERRORS SET
;1S DOUBLE SET
.DBL SET
;DBL DID SET ON A 1 WORD TRANSFER

2%
154
R7 ,WHYFO
R7.CLEER
R7 ,ERRTST

JTELL WHY NOT
;CLEAR ERRORS

‘"ttttttttttt*ttit*tfitk'ttt*tttttktti\'fi*ttttt**ti*fitttt*t'itttttt

J*TEST 37

DOUBLE

TEST WITH 2 WORD TRANSFER AND BAI

SET

J*THESE TEST CHECK DBL IN RH(CS3 WITHREAD FWD AND REV
;*WRITE FWD AND REV AND WITH BAI SET IN RH(S?
;*OPERATION BEING PREFORMED WILL BE PRINTED QUT
;*IN ERROR MESSAGE.
X iieeeeireeanas RH70 ONLY ...iieiinriinreenrcanns

”

""ittttttt‘t*t**ttttttttttit*fittttttfitt*fittttttt't*ttttttttttitt'

026254
026256
026260
026262
026270
026276
026304
026312
026320
026324
026332
026334
02634C
026342
026 546
026354

000004
005701

100532

012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004

TST37:

MOV

#-2 ,aRHW(

MOV

#ZERO,RHBAE

BM]

177776

004000
000000

MOV

000017
000061
003446
000200

MOV

18%:

003446
003446
00C200

SCOPE
TST

10%:

;1S

;;GET OUT OF

IN AN RH11

TEST

;SET UP WC

#EVENAD ,daRHBA

FOR TWO WORD

sSETUP BUS ADDRESS

sSETUP BUS ADDRESS EXTENSION

#47!BA],3RH(S2

sDEVICE 7

MOV
CLR

AWRITEQ,aRH(ST
BITCNT

JTELL IT TO WRITEO
JCLEAR BIT COUNTER

BNE

b3 3

;BIT IS SET

BIT
INC
BNE

154754

TST40

(L
B.7
BNE

#RDY ,aRH(S1

BITCNT
18%
BITCNT
#RDY ,aRH(ST
3%

;IS RDY SET
\

;JCOUNT UP
sNOT FINJSHED COUNTING
sGET READY TO DO IT WGAIN
SIS IT SET YET?
JYES

MASSBUS RH70 ANC RM11 DIAGNOSTIC
(ZRHBE .P11
07-JUN-79 13:44

4361
6362

4363

4364
4365
4366
437
4368
4369
4370
4371
4372
(373
4374

(375

4376
4377
4378
4379
4380
4,381
4,382
4383
4384

4385

4386
4387
4388
4389
4390

026356
026362
026364
026366
026366
026374
026402
026410
026412
026414
026420
026424

026430
026436

026444
026452
026460
026466
025474

026502
026510
026512

026514
026520
026526
026530
026532

026536
026542

005237

MACYT1
137

003446

001401

000770
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
1043102

154736

154732

154726

003416
003424
026444
154724
154720
154670
154664

154660

154656
154636

0002C0

004737
032777
001403

007224
002000

004737
004737
004737

007224
006572
050210

104153

003420
003444
033414

003416
003424
003422
003432
003436
003442
003440

026546
026550
4400
026552
4601
026554
4402
026562
4403
026570
4404
026576
4405
026604
L406. - 026612
44077 026616
4408
026624
4409
026626
4410
026632
4411
026634
4412
026640
4613
026646
4414
026550
4418
026654
LLTE
026656

87%:
86%:

BITCNT

£33
19%

JBIT IS NOT GOING TO SET

MOV
MOV

aRH(S1T,(S1
adRHW( ,wW(

;SAVE RHCST
:SAVE WORD COUNT

2%:
SRR

aRHRBA ,BA

BEQ

87%

JNO IT'S A 70

(S3
86%
aRHBAE ,BAE

;CLEAR (S3
. CONTINUE
. SAVE BUS ADDRESS EXTENSION

;SAVE BUS ADDRESS

JIS

IT AN RH11

(LR

BAE

MOV

@RHCS3,(S3

;SAVE RHC(CS3

aRHER ,ER1

s SAVE

CLR
JMP
MOV

;. CLEAR BAE

MOV
MOV

@RH(S2,(S2
@dRHST,DS1

MOV
MOV

adRHTDRB,TDR
ARHARZ, T(

.SAVE TESTER DATA REG.
;SAVE MRZ2 TESTER REG.

JRDY SET CONT.

MOV

1%:

;JCOUNT UP

MOV

;SAVE CS2
;SAVE TESTER STATUS

#RDY ,dRHCS1

ERRQOR

102

;READY DID NOT SET

BIT
BFQ
ERROR

#DBL ,aRH(CS3
2%
153

IS DOUBLE SET
.DBL SET
;DBL DID SET ON A 2 WORD TRANSFER

JSR
JSR

R7.CLEER
R7 ,ERRTST

. CLEAR ERRORS

JSR

A AN

R7 ,WHYFO

;*THESE

DBL

TEST

CHECK DBL

SET

TEST

STELL WHY NOT

AN A A A AR AR A ARR A AN

TEST 2 WORD

READY

;ANY ERRORS SET

R7.,WHYFOQ

A AN A AR A AR AR

J*TEST 40

;IS

ERROR REGISTER

BIT

BNE
154634

SEQ 0083

INC

8EQ
B8R

TST

154620

439
4392

4393
4294
4395
4396
4397
4398
4399

1%:

£
7
30A(7052)
12-JUL=79
10:46 PAGE 84
DOUBLF TEST WITH 2 WORD TRANSFER AND BA] SET

A AN AR AN NNA AN R AR RN AANANR

TRANSFER WITH BAI AND WRITE REV
IN RHCS3 WITHREAD FWD AND REV

;*WRITE FWD AND REV AND WITH BAI SET IN RH(SZ
;*OPERATION BEING PREFORMED WILL BE PRINTED OUT

it eenecoannas RH70 ONLY e evereeeeonecnnannnncns

'-'-ttttttttt*ttttt*tkttfi*ttitfiitfltittfitttttitttttt*ttt*tt!ttttfit't

000004
005,01

100532

012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004

005237
001401

000770

TST40:

177776

004000
000000
000017
000067
003446
000200

003446

TST

MoV
MOV

#EVENAD ,aRHBA
#7ERO, 3RHBAE

MOV

MRITEG,dRHCST

BM]
MOV

154550
1564544
154562
154534
154516

MOV

154504

18%:

154462

19%:

003446
003446
200200

SCOPE

TST41
#-2 ,aRHW(

#7!BA],aRH(CS?2

:IS

IN AN RH11

J:GET QUT OF TEST
;SET UP WC FOR TWO WORD
. SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION

:DEVICE 7

JTELL

TO WRITEG

CLKk

BITCNT

;CLEAR BIT COUNTER

BNE
INC
BNE

3%
BITCNT
18%

;BIT IS SET
JCOUNT UP
sNOT FINISHED COUNTING

BNE
INC
BEQ
BR

3%
BITCNT
3%
19%

8IT

(LR
8lT

#RDY ,8RH(CST

BITCNT
#RDY ,aRH(S1

;IS RDY SET

;GET READY TO DO
JIS IT SET YET?

IT AGAIN

JYES
JCOUNT UP
JBIT IS NOT GOING 10 SE”

MASSBUS PH70 AND RK1i DIAGNOST](C
(RHBE
07=JUN=79 *3:44
4417

4618
4419
4620
6621
4422

4423

4624

4625
4426
L4627
6628
4629
4630
4637
46632
4473
4434
4435
L4636
4437
46438
4639
4440
444
4442
4443
4444
4445
4446
4447

026660
026660

N26666
026674
026702
026704
026706
C26712
0c6776
026722
026730
026736
026744
026752
026760
026766
026774
027002
027004
027006
027012
027020
027022
027024
027030
027034

017737
017737
01773%7
005701
001406
005037
005037
000137
017737
017737

017737
017737
017737
017737
017737
032777
001003
104102

154444
154440
154434

003416
003424
026736
154432
154426
154376
154372
154366
154364
154344

000200

004737
032777
001403-

007224
002000

004737
004737
004737

007224
006572
050210

104155

MACY1T
740

003420
003444

4456
4457

4458
4459
4460

4461

44660
4463
4464
4465
4466
4467
4468
4469
4470
47

4472

DBL

003414

MOV

87%:

B6$:

154326

154342

PAGE 85

TRANSFER WITH BA] AND WRITE

aRH(CST,(ST

REv

SEQ 0084

s SAVE RH(CS1

87%

JNO IT'S A 70

€S3
36%
aRHBAE ,BAE

JCLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION

MOV
MOV
MOV
MoV
BIT

@RHST ,DS1
aRHER,ER1
aRHTDB, TDR
ARHMR2, T(
#RDY ,@RH(S1

:SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
.SAVE MR2 TESTER REG.
;IS READY SET

BIT

#DBL ,@RH(S3

;1S DOUBLE

MoV
TST

aRHBA,BA
R®

CLR

BAE

MOV
MOV

@dRHCS3,(53
adRH(S2,(S2

(LR
JMP
MOV

BEQ
ERROR
JSR
JSR
JSR

°%:

10:46

;SAVE WGRD COUNT

BNE
ERROR
JSR

1%:

aRHW( ,W(

BEQ

003416
003424
003422
003432
003436
003442
003440

12=JUL=79

TEST 2 WORD

MOV

s SAVE BUS ADDRESS
JIS IT AN RHI1

;CLEAR BAE

s SAVE RHCS3
JSAVE (S2

1%
102
R7,WHYFO

JRDY SET CONT. TEST
JREADY DID NOT SET
JANY ERRORS SET

2%
155
R7 ,WHYFO
R7,CLEER
R7 ,ERRTST

SFT

;DBL SET
;DBL DID SET ON A 2 WORD TRANSFER
;TELL WHY NOT
s CLEAR ERRORS

;:ttttttttttt*'tt*tttttttI'Qitt*tttttt*fititt ARRRAKRARARARARN S

J*TEST 41

DBL

TEST 2 WORD

AW w bR

TRANSFER ODD ADD.

;*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV
*WRITE

FWD AND REV AND WITH BAI

SET

IN RH(CSZ2

;*OPERATION BEING PREFORMED WILL BE PRINTED OUT

4448

4449
4450
4451
4452
4453
44564
4455

30A(5052)

:*IN ERROR MESSAGE.
R

027040
027042
027044
027046
027054
527062
027070
027076
027° 04
027110
627116
027129
027124
027126
027132
027140
027142
627146
027150
027152

027152
027160

000004
005701

100532

012777

TST41:

177776

012777 004002
012777 000000
012777 000007
012777 000061
005037 003446
032777 000200
001015
005237 1003446
001371
005037 003446
032777 000200
001004
005237 003446
001401
000770

017737
017737

1564152
154746

SCOPE
TST

BM]

154256
154252
154270
154242
154224
154212

M* R eeeecessssnsana RHZQ ONLY..ieiriennnenenencannn

"G%:

#WRITEQ,ARHCST
BITCNT

INC

BITCN

CLR

BITCNT

INC
BEQ
B8R

BITCNT
3%

003420
003444

MOV

eRH(CST, (ST

BIT
BNt

MOV

;;GET OUT OF

MOV
CLR

81T
BNE

;IS

TST42

#0DDAD
, aRHBA
#IERQD, aRHBAE

BNE
154170

MoV
MOV

MOV

18¢%:

#7 ,0RH(CS?2

IN AN RH11

TEST

JSET UP w( FOR TWO WORD
;SETUP BUS ADDRESS
;SETUP BUS ADDRES> EXTENSION
;DEVICE 7

JTELL IT TO WRITEOQ
JCLEAR BT COUNTER

#RDY ,aRH(CS |
3%

;IS RDY SET
;BIT ]S SET

18%

JNOT FINISHED COUNTING

#RDY ,aRH(CS?
3%
19%

ARHW(C , W(

JCOUNT UP

cGET READY

TO DO T AGAIN

JIS IT SET YET?
JYES

JCOUNT UP
JBIT 1S NOT GCING TO SET

;SAVE RH(S?

s SAVE WORD COUNT

MASSBUS RH7C AND RH11 DIAGNOSTI(
(/RHBE.P11
07=-JUN=79 13:44

473
L6474
4475
4476
477

4478
4479
4480
4481
4682

4483
N7

4485
4486
4487
4488
4489
4490
491
4492
4493
449
4495
4496
4L497
4498
4499
4500

4501
4502
45C3
4504
4505
4506
4507
(508

4509

4510
4511
4512
4513
4514
4515

L4516

4517
4518

027166

027174

027176
027200
027204
027210
027214
027222
027230
027236
027244
027252
027260
027266
027274
027276
027300
027304
027312
027314
027316
027322
027326

017737

005701

001406
005037
005037
000137
017737
017737
017737
017747
0177%7
0177%7
01773%7
032777
0010C3
104702

154140
154134
154104
154100
154074

15407¢
154052

000200
007224
©0200C

004737
004737
004737

007224
006572
050210

104156

003414

MOV
TST

8EQ
(LR

003416
003424
003422
003432
003436
003442
(03440

87%:
86%:

174034

(LR
JMP
MOV
0]
MOV

MOV
MoV
MOV
MOV

B ¥

2%:

SEG 0085

@RHBA ,BA
R1

s SAVE BUS ADDRESS
;1S IT AN RH11

BAE

;CLEAR BAE

B7%

JNO IT'S A 70

(s3
86%
aRHBAE ,BAE
aRH(S3,(S3
SRH(S2,(S2

:CLEAR (S3
; CONT INUE
;SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
;SAVE (S2

aRHST DS
@RHER,ER1
akHTDB, TDR
aRHMR?, T(

;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR? TESTER REG.

1%
102

JRDY SET CONT. TEST
JREADY DID NOT SET

BIT

#RDY ,aRH(CST

JSR
BIT
BEQ
ERROR
JSR
JSR
JSR

R7,WHYFQ
#DBL ,dRH(S3
2%
156
R7 ,WHYFO
R7,CLEER
R7,ERRTST

BNE
ERROR

154050

30AC7052)
12=JUL=79
10:46
PAGE 86
DBL TEST 2 WORD TRANSFER ODD ADD.

;1S READY SET

JANY ERRORS SET
;IS DOUBLE SET
.DBL SET
;DBL DID SET ON A 2 WORD TRANSFER
JTELL WHY NOT
:CLEAR ERRORS

,-'-tntt-tttttttfitttttlrttttttttnttfitttttttttttttt.tttttfittttt't'ttt

J*TEST 42

s*THESE

J*WRITE

DBL TEST EVEN ADD. WRITE FwD
TEST

CHECK

DBL

IN RH(S3 WITHREAD

FWD AND REV AND WITH BAI

SET

FWD AND REV

[N RH(S?2

;*OPERATION BEING PREFORMED WILL BE PRINTED QUT
.
;*IN ERROR MESSAGE.
eM. W e eeeccneccnsnoss RH70 ONLY ..o ecannnnn

(27332
027334
027336
027340

027346

027354

027362
027370
027376
027402
027470

027412
027416

027620
027426

005701
100532
012777

012777

012777
012777
005037
032777
001015

005237
001371

005037
032777

6523
4524
4525
4526

027444
027444
027452
027460

017737
017737

4528

027470

001406

027442

027466

".'.'Q*Q'QQ.""Q"“..Q.Ql'tl't"‘*"'t.H‘Qt'fi'i.*' (A2 222 2ZZE22ARE XN

000004

027432
027434
027440

4527

003416
003424
027230

004737
032777
001403

4519
4520
4521

4522

1546142

MACY11
741

001004
005237
001401

TST42:

8M]
MOV

177776

004000

000000

000007
000067
003446
000200

18%:

153676

003446

000770

(017737
005701

19%:

35
153
153654

153

003420
003444
003414

TST43
#-2 ,dRHW(

MOV
MOV

#EVE JAD ,dRHBA
#7ERQ, aRHBAE

Mov

AWRITEG ,aRH(CST

MOV

003446
003446
000200

SCOPE
TST

#7 ,8RH(CS2

CLR

BITCNT

INC

BITCNT

8IT
BNE

#RDY ,aRH(ST
3%

;1S

IN AN RH11

JJGET OUT OF TEST
JSET UP W(C FOR TWO WORD

JSETUP BUS ADDRESS
. SETUP BUS ADDRESS EXTENSION

JDEVICE 7

JTELL IT TO WRITES

;CLEAR BIT

.15 RDY SET
sBIT IS SET

(OUNTER

;COUNT UP

BNE
(LR

18%
BITCNT

BNE
INC
BEG

3%
8ITCNT
3

JYES
< COUNT UP
JBIT IS NOT GOING TQ SET

MOV

@RHCST,CST

;SAVE RH(CSI

BIT

MOv
MOV

#RDY ,adRH(S’

19¢

aRHW( , W
aRHBA ,BA

TST

BEQ

87%

sNOT FINISHED COUNTING
JGET READY 70 DO [T AGAIN

JIS

IT SET

YET?

s SAVE WORD (OUNT
;SAVE BUS ADDRESS

JIS

AN RH1T

JNO IT'S A 70

MASSBUS RH70C AND RH1T DTAGNOSTIC
07=JUN=79 *3:44
L JRHBE .P11

6529
6530
4531
4532
64523
453
4535
4536
4537
4538
6539

45640
4541
4542
(543
(544
4545
45646
4547
4548

4549

<550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4550
4561
(567
4563
L5646
4565
4566

4567
4568

4569
4570
4571
4572

4572
L4574

4575
4576
4577

4578
4576
4580
4581

4582
4583%
4584

027472
027476
027502
027506
027514
027522
027530
027536
027544
(027552
(027560

027566
027570
027572
027576
027604
027606
027610
027614
027620

005037
005037
000137
017737
017737
01773%7
017737
017737
017737
037737
03c?77

001003
104102
004737
03¢777
001403
104157
(004737
004737
004737

003416
003424
027522

1
1
153600
1
0O
0072264
002000

MACY1T1
762

87%:

86%:

BAE

;CLEAR BAE

JMP
MOV
Moy
MOV

86%
@RHBAE ,BAE
8RH(S3,rs3
aRH(S2,(52

; CONT INUE
2SAVE BUS ADDRESS EXTENSION
;SAVE RHCS3
JSAVE (S2

153556

(072264
006°72
050210

(sS3

MOV

@RHST,DS?

MOV
MOv
BIT
BNE
ERROK

aRHTDB, TDR
dRHMRZ2,
T(
#RDY ,@RH(S1
1%
102

'$:

BIT

#DBL ,aRH(S3

c%:

JSR

MOv

153542

SEG 0086

(LR

003476
G03424
003422
003432
003436
003442
003440

30A(i052)
12-.UL=79
10:46
PAGE 87
DBL TEST EVEN ADD. WRITE FwD

JSR

BEQ
ERROR

JSR

;SAVE TESTER STATUS

aRHER ER1

. SAVE ERROR REGISTER

;SAVE TESTER DATA REG.

JSAVE MR2 TESTER REG.
;1S READY SET
JRDY SET CONT.

R7 ,WHYFO

cANY ERRORS SET
;1S DOUBLE

’$
157

sTELL WHY NOT
;CLEAR ERRORS

R7 ,ERRTSY

J*TEST 43

J*THESE

*WRITE

DBL

TES)

SET

;DBL SET
;DBL DID SET ON A 2 WORD TRANSFER

R7,WHYFO

TEST

JREADY DID NOT SET

R7,CLEER

JSR

JCLEAR (S3

TEST < WORD ODD ADD.

WRITE REV

(HECK DBL IN RH(CS3 WITHREAD FwWD AND REvV

FWD AND REV AND WITH BA]

SET

[N RH(S2

;*OPERATION BEING PREFORMED WILL BE PRINTED QUT

;*IN ERROR MESSAGE.
# ® & @ v 8 O a5 0 e 0 e e RH’O ONLY .......................

".'.l't'tt.."t".'t.i!lt.'t'.tl'..t"tttt.i.tt't.ttii'tt't't'.tt'

027624
027626

(027630
027632
027640
(027646

027654
027662
027670

027674
027702
027704
027710

027712

027716
027724

027726

027732

027734
027734
027736

(027744
027752
027760
027762

027764
027770
(027774

000094
005701

10053¢

012777
012777
012777

012777
012777
005037
032777
001015
005237

001371
005037
032777
001004
005237
001401
000770
017737
0172737
017737
005701
001406
905037
005037
C00137

T$T43:

177776
004002
000000
000007
000067
003446
000200

18¢:

153404

19¢:

003476
003424
030014

003420
003444
003414

R1
1ST44
#-2 , RHW(

MOV

#ODDAD , 3RHBA

MOV

#7 .@RHCS?2

MOV

003446

53
153362
153

TST
8MI
MOV

MOV

003446
003446
000200

SCOPE

:DEVICE 7

STELL IT TO WRITEG

#RDY ,aRHCS1

SIS RDY SET

BNE
INC
BNE

3¢
BITCNT
188
BITCNT
#RDY,@RHCS?

BNE
INC

SSETUP BUS ADDRESS EXTENSION

MRITEG,ARHCST

81 TCNT

CLR
BIT

PCLEAR BIT COUNTER

‘BIT IS SET
*COUNT UP
:NOT FINISHED COUNTING

*GET READY TO DO IT AGAIN
SIS IT SET YET?

BEQ

3¢
BITCNT
38

MOV
MOV
MOv

3RH(ST, (S
IRHW(
, W(
adRHBA BA

s SAVE RH(S1

BEQ

87%

:NO IT'S A 70

B8R

TST

19%

SYES
:COUNT UP
:BIT

IS NOT GOING 'O SET

;SAVE WORD COUNT
s SAVE BUS ADDKESS

JIS IT AN RH1I

(LR

BAE

;CLEAR BAE

JMp

8¢$

:CONTINUE

(LR

TWO WORD

*SETUP BUS ADDRESS

#/ERO, 3RHBAE

(LR

BIT

;IS IN AN RH11
;:GET ouT OF TEST
:SET UP WC FOR

(s3

JC EAR (S3

MASSBUS RH70 AND RH11

( ZRHBE PN

4585

4586

4587
4588
4589
459G
4591
4597
4593
4594
4595
4596

4597

4538

4599

4600
4601
4602
4603
4604

4605
4606
4607
4608
4609
4610
4611

4612
4613
4614
4615

4616

4617
4LE18
4619
4620
4621
4622
4623
4624
4625

4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
«639
4640

030000
035006
030014
030022
030030
030036
030044
030052
030060
030062
030064
030070
030076
030100
030102
030106
030112

MACYTT1
743

DIAGNCSTIC

07=JUN=79 13:44

017737
017737
017737
017737
017737
017737
017737
032777

001003
104102
004737
032777
001003
106160

004737
004737
004737

003416
0034624
003422
003432

87%:

MOV

86$:

153264

007224
006572
050210

@RH(S3,(S3

MOV
MOV
MOV

aRHST,DS1
dRHER ER1
aRHTDA, TDR

BI1

#PDY ,’8RH( ST

MOV

153250

BNE
ERROR
JSR
BIT
BNE
ERROR
JSR
JSR
<SR

'$:

2%:
AR

aRHBAE ,BAE

MOV

003436
003442
0034490

007224
002000

7
J
S0A(70S2)
12-JuL=-79
10:46
PAGE 88
DRL TEST 2 WNRD ODD ADD. WRITE REV

AN AN A

SATEST 44

SEQ 0087

. SAVE BUS ADDRESS EXTENSION
. SAVE RH(CS3

dRH(S2,(S2

. SAVE (se
; SAVE TESTER STATUS
; SAVE ERROR REGISTER

:SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.

aRHMRZ2,
T(

;1S READY SET
JRDY SET CONT,

1%
102
R7 ,WHYFO
#DBL ,@RHCS3
2%
160
R7,WHYFD
R7.CLEER
R7 ,ERRTST

TEST

.READY DID NOT SET
JANY ERRORS SET

215 DOUBLE SET
;DBL SET
;DBL DIDN'T SET ON A 2 WORD TRANSFER
JTELL wHY NOT
;CLEAR ERRORS

AN AR AR ARNAAR AR R AR AR AR AN R AN A RRNANRRANS A AN AARNNRAANN ARG N

J*THESE

DBL

TEST

TEST 3 WORD ODD ADD. WRITE REV
CHECK DBL

IN RHCS3 WITHREAD FWD AND REV

J*WRITE FWD AND RFV AND WITH BAl

SET [N RH(S2

;*OPERATION BEING PREFORMED WILL BE

PRINTED QUTM

;*IN ERROR MESSAGE.
P RHZ0 CNLY . it iiiiinneaennnnnnn.

;"ttitttttttt*ttttttt*ttitttkfitttt'tttttttttttttttttttttt*'nattti

030116
030120
030122
030124

030132
030140

0320146
030154
030162
030166
030174
030176
030202
030204
030210
030216
030220
030224
030226
030230
030230
030236
030244
030252
030254
030256
030262
030266
030272
050300
030306

000004
005701

100532

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

TST44:

MOV

004002
000090
000007
000067
003446
000200

18%:

003446
000200

19%:

003446
35

003420
003444
003414

#WRITEG,BRHCST
BITCNT

CLR
BIT

BITCNT
18%
BITCNT
#RDY ,aRH(S1

INC

BITCNT

BIT
BNE
INC
BNE

BNE

BEQ
BR

#7 ,8RH(CS?

#RDY ,aRH(CS1
3%

3%
16%

@RH(ST,(S1

;IS

;;GET OUT OF

IN AN RH1IM

TEST

JSET UP WC FDR THREE WORD

.SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION

sDEVICE 7

JTELL IT TO WRITEGS
JCLEAR BIT COUNTER

;1S RDY SET
JBIT IS SET
;COUNT UP
JNCT FINISHED COUNTING

;GET READY TO DO
JIS IT SET YET?

sCOUNT UP

;BIT

IS NOT GOING 70 SET

; SAYE RH(S1

aRHWS ,W(

. SAVE WORD COUN"

TST

aRHBA ,BA

IT ACAIN

JYES

MOV

MoV

86$%:

#-3 , dRHW(

MOV
CLR

MOV

g7%:

TST45

#0DDAD, QRHBA
#7ERO, dRHBAE

;SAVE BUS ADDRESS
IT AN RHI1

BEQ
CLR

87%
BAE

JNO IT'S A 70
;CLEAR BAE

JMP
MOV
MOV

86%
aRHBAE ,BAE
dRHCS3,(S3

2 CONT INUE
s SAVE BUS ADDRESS tXTENSION
;SAVE RH(S3

(LR®

0034136
003424
003422

MOV
MOV

MOV

003446

153062
153056
153026

TST

BM]

177775

003416
003424
030306

SCOPE

MOV

€S3

dRH(S2,(S2

;CLEAR (S3

JSAVE (S2

MASSBUS RH70 AND RH11 _DIAGNOSTIC
C(ZRHBE .P11
07=JUN=79 13:44
4641
4642
4643
4644
4645
4646
4647

030314
030322
030330
030336
030344
030352
030354

4649

030362

4648

4650
4651
4652
4653
4654

4655
4656
4,657
4658
4659
46560
4661
L6672
4663
4664

4665
L4666

L4667
4668
4669

4670
4671
4672
4673

4674

4675
L4676

4677

030356

030370
030372
030374
030400
030406

T44

003432
003436
003442
003440

MOV

BIT

104102

004737
030777
001403
104161

004737
004737
004737

152772

1%:

007224
006572
050210

2%:

12=JUL=79

10:46

PAGE 89

DBL TEST 3 WORD ODD ADD. WRITE REV

MOV
MOV
Mov

152756

30A(7052)

BNE
FRROR
JSR
BIT
BEQ
ERROR
JSR
JSR
JSR

aRHST,DS1
aRHER ,ER1

SEQ 0088

JSAVE TESTER STATUS
:SAVE ERROR REGISTER

aRHTDB, TDR

cSAVE

#RDY ,aRHC ST
1%

JRDY SET

adRHMR?,
TC

TESTER DATA REG.

;SAVE MR? TESTER REG.
;1S READY SET

102
R7 ,WHYFOQ
#DRL ,8RH(CS3

CONT,

TEST

SREADY DID NOT SETY
JANY ERRORS SET

;1S DOUBLE SET
;DBL SET
;DBL DID SET ON A 3 WORD TRANSFER
JTELL WHY NOT
:CLEAR ERRORS

161
R7 ,WHYFC
R7,CLEER
R7 ,ERRTST

. tlQt'ifit'tfittfifitttt'fll‘t.fifi.tfi'tfitt.tt'.tt.'t'.tfitttflfitttfltfi...

SRTEST

45
;*THESE
:*WRITE

DBL

TEST

2 WORD READ FwD

TEST CHECK DBL IN RH(CS3 WITHREAD FwD AND REV
FWD AND REV AND WITH BAl SET IN RH(S2

s *OPERATION BEING PREFORMED wILL
'IN ERROR MESSAGE.

BE PRINTED OuT

RH70 ONLY

030410
030412

030414
030416

b t'.tti"fi'tt*tlitfittfiit.i'tklfifififitQt'tfitQ'tfi!'..t!tttttt."'.'.

000004

005735

TS745.

177776
004000
000000
000007
000071
003446
000200

030424
030432
030440

030446
030454
030460
030466
030470

003446

030502

003446
000200

030474
030476

4678
4679
4680
4681
4682
4683
4684
4685
4686

030510
030512
030516
030520
030522
030522
030530
30536
030544

4688
4689
4690
4691
4692
4693
4694
4695
4696

030550
030554
030560
030564
030572
030600
030506
030614
030622

4687

017737
017737
017737
017737
032777
001003

MACY11

030546

152706

152702

152720
152672

BMI

MOV
MOV
MOV
MOV

152654

152642

152620

MOV

18%:

19%:

003446
000770

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737

003420
003444
003414

003416
003424
003422
003432
003436
003442

SCOPE
TST

3%:

(LR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR
MOV
MoV
MOV
TST

BEQ
(LR
(LR
JMP

87%:

. MOV

86%:

MOV

. MOV

MOV

R1
TST46
=2 ,aRHW(
#EVEN
, aRHBA
AD

#7ERO,a8RHBAL

#7 ,8RHCS2
#READQ,aRHCS1T
BITCNT
#RDY ,aRH(CS1

BITCNT
18%
BITCNT

#RDY ,aRH(CS1

BITCNT

7%
19%

aRHCST, (ST
aRHWC
, W(
aRHBA ,BA
R1

87%

BAE

CS3
86%

aRHBAE ,BAE

@RH(S3,(S3
IRH(S2,(S2
dRHST,DS1
dRHER,ER1
aRHTDB, TDR

;1S IN AN RH1I
J:GET QUT OF TEST
JSET UP WC FOR TWwO WORD
;SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
;DEVICE 7
JTELL IT TO READO
JCLEAR BIT COUNTER
;1S RDY SET
;BIT IS SE!
s COUNT UP
JNOT FINISHED COUNTING
cGET READY TO DO {7 AGAIN
JIS IT SET YET?
JYES
JCOUNT uP
;BIT IS NOT GOING TO SET

:SAVE RH(S?
:SAVE WORD COUNT
:SAVE BUS ADDRESS
J1S IT AN RH1T

:NO IT'S A 70
:CLFAR BAE
;CEAR (S3
; CONT INUE
:SAVE BUS ADDRESS EXTENSION
;SAVE RH(S3

:SAVE

(S2

;SAVE TESTER STATUS

:SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

)

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

4697
4698
64699
4700
4701
4702
4703
4704
4705
4706
4707

4708
4709
4710

4711
4712
4713
4714
4715
(716
4717
L718
4719
4720
4721
4722
4723
4724
4725

4726

47¢7
4728
4729
4730
4731
4732
473%3%
4734

4735

4736
47%7

4738
4739
4740
4741
4742
4743

4744
4745
4746
4747
4748
L4749
4750
4751

4752

030630
030636
030644
030646
030650
030654
030662
030664
030666
030672
030676

017737
032777
001003
106102
004737
032777
001003
104162
004737
004737
004737

152502
000200
-

007224

002000

MACY*1
¥45

MOV

003440
152464

152500

007224
005572
050210

1%:

2$:

30A(1052)
12=-JUL=79
10:4€6
DBL TEST 2 WORD READ fwD

PAGE 0

ARHMR?2, T(

;SAVE MR2 TESTEX REG.

BIT
BNE
ERROR

#RDY ,aRH(S1
1%
102

;1S READY SET
;RDY SET CONT, TEST
JREADY DID NOT SET

BIT
BNE
ERROR
JSR
JSR
JSR

#DBL ,@RH(S3 .
2%
162
R7,WHYFO
R7,CLEER
R7,ERRTST

;1S DOJUBLE SET
;DBL SET
;DBL DIDN'T SET ON A 2 WORD
;TELL swHY NOT
:CLBAR ERRORS

JSR

R7 ,WHYFO

.- FARRARRAARNRANRRRA NP RAART

SFQ 0089

JANY ERRORS SET

AN A AR ARARAAARRARANRAN RN

IRANSFER

AN N NSRS

SeTEST 46
DBL TEST 2 WORD ODD ADD. READ FWD
;*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 ERRCR MESSAGE.

B RH70 ONLY . e

'-. AARARA R AR A AR AR

030702
030704
030706
030710
030716
030724
030732
030740
030746
030752

030760
030762
030766
030770
030774
031002
031004
031010
031012
031014
031014
031022
031030
031036
031040
031042

TST46:

000004
00570,

100532

012777
012777
012777
012777
012777
005037
032777
001015
005237
0013”71
005037
032777
001004
005237
001401
000770

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

177776

004002
000000
000007
000071
003446
0002G0

MoV

152362

152326

152242
152230
152210

000200

152172

)

ee e e eeeeannns

A AANAANRAANRNANNRNAAAN RN AR RO

;1S

TST47

;:GET OUT OF

#~2 , BRHWC

IN AN RH11

TEST

;SETUP BUS ADDRESS

MoV
MoV

#7 ,8RHCS?2
A#READO, BRHCS1

;DEVICE 7
;TELL IT TO READO

4¥Z2ERO, dRHBAE

;SETUP BUS ADDRESS EXTENSION

(LR
8IT

BITCNI
#RDY,@RH(S1

;CLEAR B]T COUNTER
;1S RDY SET

19%:

INC
BNE
CLR
BIT

BITCNT
18%
BITCNT
#RDY ,ARHCS1

;COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
SIS IT SET YET?

INC

BITCNT

;COUNT UP

3%:

8NE

BNE

BEQ
BR
MOV
MOV

87%:
86%:

3%
19%

@RHCS1,CST
SRHW( , WC

MOV
TST

@RHRA ,BA
R1

(LR

BAE

MOV

aRHBAE ,BAE

CLR
JMP

MOV
MOV
MOV
MOV
MOV

MOV

BIT
BNE

;BIT

87%
(S3
86%

IS SET

JYES

JBIT

IS NOT GOING TO SET

;SAVE RH(S1
;SAVE WORD CGUNT

2SAVE BUS ADDRESS
;1S IT AN RH11

;NO IT'S A 70

;CLEAR BAE

;CLEAR (S3
; CONT INUE

;SAVE BUS ADDRESS EXTENSION

dRH(S3,(S3
aRH(S2,(S2
@RHST,DS1

s SAVE RH(SS
JSAVE
~
2 SAVE IESYER STATUS

SRHMR?, T(C

;SAVE MR?2 TESTER REG.

@RHER,ER1
SRHTDB, TDR

#RDY ,@RH( ST
1%

;SET UP WC FOR TWO WOSRD

#0DDAD , aRHBA

BEQ

003416
003424
003422
003432
003436
003442
003440

RN ANT AN

18%:

003446

003420
003444
003414

MoV

MOY

003446

003/ 46
000200

TST

BM]

152414
152410
152426
152400

152350

SCOPE

ANRAR AN

;SAVE ERROR REGISTER
:SAVE TESTER DATA REG.

;1S READY SET
JRDY SET (ONT,

TEST

MASSBUS RH70 AND RH11 DIAGNQOSTI(
(ZRHBE P
07=-JUN=79 13:44

4753
4754
4755
4756
4757
4758
4759
4760

4761

4762
(763
4764
47€5S
4766
4767
4,768
4769
4770
4771
4772
4773
4774
4775
4776
4777
4778
4779
4780
4781
4,782
4783
4784
4785
4786
4787
4,788
4789
4790
4791
4792
4793
479
4795
4796
4797
4798
4799
4800
4801
4802
4803

031140
031142
031146
031154
031156
031160
031164
031170

104102

004737
032777
001403

104163
004737
004737
004737

007224
002000

MACYT11
146

30A(°052)
DRL

007224
006572
G50210C

1¢:

2%:

10:46

TEST 2 WORD ODD ADD.

ERROR

152206

12=-JUL=79

102

JSR

R7 ,WHYFO

BEQ
ERROR
JSR

2%
163
R7,WHYFO

JSR

R7 ,ERRTST

BIT

JSR

PAGE

READ FWD

SEQ 0090

JREADY DID NOT

JANY ERRORS SET

#DBL ,aRH(S3

;1S DOUBLE

SET

.DBL SET
;DBL DID SET ON A 2 WORD TRANSFER
JTELL WHY NOT

R7,.CLEER

;CLEAR ERRORS

:;ttttttnttttttt*i AARAAR TR RAARAANANAANANRARRNAINNANNRAACANR S AN

JeTEST 47

J«THESE

J*WRITE

DBL

TEST 2 WORLD EVEN ADD.

TEST

CHECK

DBL

READ REV

IN RHCS3 WITHREAD

FWD AND RFV AND WITH BA]

AR AN AN RN

SET

FWD AND REV

IN RH(CS?2

;*OPERATION BEING PREFORMED WILL BE PRINTED OuUT
;*«IN ERROR MESSAGE.

T RH70 ONLY .o vveeeeeeeononsennncas

".'Qtttttttttt'ttttt!ttttit'tit*tttttttttttttttifitttttlfi't.itt'ttt

031174
031176
€31200
031202
031210
031216
031224
031232
031240
031244
031252
031254
031260
031262
031266
031274
031276
031302
031304
031306
031306
031314
031322
031330
031332
031334
031340
031344
031350
031356
031364
031372
031400
031406
031414
031422

031430
031432
031434
031440

000004
005701

100532

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
032777
001003

1ST47:

004000
000000
000007
000077
003446
000200

#-2,dRHWC

MOV
MOV

#ZERO, dRHBAE
#7 ,dRH(S2

MOV

18%:

152034

19%:

003446
35

003420

007444
003414

87%:

86%:

151714

TEST

JSET UP WC

FOR

TWO WORD

;SETUP BUS ADDRESS

;SETUP BUS ADDRESS EXTENSION
JDEVICE 7

JTELL

IT TO READG

INC

BITCNT

s COUNT UP

CLR

BITCNT

;GET READY

B8NE

BIT

18%

#RDY ,aRHCS1

;BIT IS SET

JNOT FINISHED COUNTING

JIS

SET

TO DO IT AGAIN

YET?

BNE
INC
BEQ
BR

3%
BITCNT
3%
19%

JYES
;COUNT UP
;BIT IS NOT GOING TO SET

MOV
MOV
MOV
TST

aRHCS1,(S1
ARHWC ,WC
aRHBA ,BA
R1

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

(LR

BAE

MOV
MOV

@RH(CS3,(S3
aRH(CS?2,(S2

CLR
JMP
MOV

MOV
MOV

MOV
8IT

BNE
ERROR
1%:

#READG ,dRH(CS1T

IN AN RH11

;CLEAR BIT COUNTER
;IS RDY SET

MoV

151700

#EVENAD , aRHBA

;IS

;:GET OUT OF

BITCNT
#RLY ,aRHCST

BEQ

003416
003424
003422
003432
003436
003442
003440

TST50

(LR
8IT

BNE

104102

004737
032777

MOV

003446
000200

8M]

177776

003446

SCOPE
TST

JSR

BIT

87%

JNO IT'S A 70
;CLEAR BAE

CS3
86%
oRHBAE ,BAE

;CLEAR (S3
; CONT INUE
;SAVE BUS ADDRESS EXTENSION

aRHST,DS1
aRHER,ER1

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

aRHMR?2, T(
#RDY ,’RH(CS1

;SAVE MR2 TESTFR REG.
;1S READY SET

aRHTDRB, TDR
1%
102

R7 ,wWHYFO

#DBL ,aRH(CS3

;SAVE RHCS3
;SAVE (SZ

;SAVE

TESTER DATA REG.

JRDY SET (ONT. TEST
JREADY DID NOT SET

:ANY ERRORS SE1
;IS DOUBLE

SET

MASSBUS RH7O AND RH11 DIAGNOSTIC
(ZRHBE .P11
07-JUN=79 13:44
4809
4810
4811
4812

4813

4814
4815
816
817
4818
4819
4820
4821

031446
0314°
"TM
031442
031456
031462

001403
104164

004737
004737
004737

007224
006572
050210

N
7
30A(i052)
1c-JuL=79
10:46
PAGE 92
DBL TEST 2 WORD EVEN ADD., READ REV
BEO
ERROR
J5R
JSR
JSR

2%
164
R7,WHYFO
R7.CLEER
R7.ERRTST

SEQ 0091

;DBL SET
:DBL DID SET ON A 2 WORD TRANSFER
STELL WHY NOT
:CLEAR ERRORS

;;.'..Qt.'.Q.'Qt...t.tlt'..'tt..l.it'..""..'.'.....l."..."."

50
J*THESE

DRL TEST 2 WORD ODD ADD. READ REV
TEST CHECK DRL IN RH(S3 WITHREAD FWD AND REV

s*WRITE FWD AND REV AND WITH BA] SET [N RM(SZ2
;*OPERATION BEING PREFORMED WILL BE PRINTED OUT

;*IN ERROR MESSAGE.

RH70 ONLY...oeerrevenccnane ceene

::Qttl.t...tt....ttt.tttt.t.ttttttQOttfitttttttt..t.l...t.....tt.'

4822

000004
005701

100532

012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004

005237
001401
000770

1STS0:
127776

18%:

151542

#-2 ,3RHW(

MOV

#2ERO, IRHBAE

MOV
(LR

#READG, @RH( ST
BITCNT

BIT
BNE

(e T R R R R e B )
(@ ]V, [V IV, YV, LV, [V, 1V, ]
O bbb

007224

#7 ,IRH(CS?2

#RDY ,aRH(C ST
3%

IN AN RH11

sSETUP BUS ADDRESS

<SETUP BUS ADDRESS FXTENSION

JDEVICE 7

STELL [T TO READG
JCLEAR BIT COUNTER

;1S RDY SET
JBIT IS SET

19%:

JCOUNT P
JNOT FINISHED COUNTING
GET READY TO DO IT AGAIN
SIS IT SET YET?

INC
BEQ
BR

BITCNT
3%
19%

;COUNT uP
JBIT IS NOT GOING

MOV
MOV

@RH(S1,(S1
aRHW( ,W(

:SAVE RH(S1
;SAVE WORD COUNT

IST

(LR

BAE

. Cl EAR BAE

JNP
MOV
MOV

86%
oRHBAE ,BAE
aRH(S3,(S3

; CONT INUE
;SAVE BUS ADDRESS EXTENS]ON
;SAVE RK(S3

aRHST,DS1
SRHER,ER1
aRHTDB, TDR

SAVE TESTER STATUS
;SAVE ERROR REGJISTER
;SAVE TESTER DATA REG.

BNE

MOV

(LR

003416
003424
003422
003432
003436
003442
003440

#ODDAD
, aRHBA

;1S

J:GET OUTY OF TEST
cSET UP W( FOR TWO WORD

BITCNT
18%
BIT(NT
#RDY ,adRH(S1

8EG

87%:

86%:

151406

151422

004737

MOV

TSTST

INC
BNE
(LR
BIT

003420
003444
003414

4861

031744

MOV

003446

017737
017737
017737
005701
001406
005037

MOV

003446
003446
000200

SCOPE

BMI]

004002
000000
000007
000077
003446
000200

4862
4864

2%
SATEST

4823
4824
4825
4826
4827
4828
4829
4830
4821
6832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860

4863

MACY11
7

1%:

aRHRBA ,BA
87%

(S3

JYES

TO SE7Y

;SAVE BUS ADDRESS
1T AN RHIT

NO IT*S A 70

;CLFAR (S3

MOV

BRH(CS2.(S2

MOV
BIT

aRHMR?2, T(
#RDY,aRH(CS1T

;SAVE MR?2 TESTER REG.
;1S READY SET

BIT

#DBL ,dRH(S3

1S DOUBLE

BNE
ERKOR

2%
165

MOV
MOV
MOV

BNE
ERROR
JSR

JSR

1%
102
R7 ,WHYFO

R7,wWHYFO

;SAVE (€S2

;RDY SET CONT. TEST
JREADY DID NOT SET
;ANY ERRORS SET
SET

;DBL SET
]
;DBL DIDN'T SET ON A 7 WORD TRANSFER

sTell WwHY NOT

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44
4865
4866
4867
4868
4869
4870
4871
4872

031750
031754

004737
004737

MACYTT
150

006572
0502190

2%:

JSR
JSR

R7,CLEER
R7,ERRTST

SEQ 0092

; CLEAR ERRORS

M 't.!t'll'tt'l’"'ttt'itt!t'Qtttlt*i.ttttfi'ttltt.tt*ttt'tt*ttt'ttQ

~TEST

DBL TEST 3 WORD EVEN ADD.

READ FWD

;*THESE TEST CHECK DBL IN RHCS3 WiTHREAD FWD AND REV
S*WRITE FWD AND REV AND WI'H BAI SET IN RHCS2
;*OPERATION BEING PREFORMELC WILL BE PRINTED OuT
'IN ERROR MESSAGE.
RH70 ONLY..viiernecnnnnnnnnnn.

4873

4874
4875
4876
4877
4878
4879
4880
4881

8 8
30A(7052)
12-uUL-79
10:46
PAGE 93
DBL TEST 2 WORD ODD ADD. READ REV

031769
031762
031764
031766
031774
032002
032010
032016
032024
032030
032036
032040
032044
032046
032052
032060
032062
032066
032070
032072
032G72
032100
032106
032114
032116
032120
032124
032130
032134
032142
032150
032156
032164
032172
032200
032206
032214
032216
032220
032224
032232
032234
032236
032242
032246

000004
005701
100532
01¢777
012777
012777
012777
012777
005037
03e777
001015
005237
001371
005037
032777
001004
005237
J01401
006770

" QttttQt'.t.tttfittt'tti'fiittfl'itl’ttttfl*ttttt't*tttttttitfittttt haw

TSTS51:

004000
000000
000007
000071
003446
000206

18%:

151250

19%:

00344¢

003420
003444
003414

3%:

001406

003416
003424
003422
003432
003436
003442
003440
151114

017737

017737
017737
017737
032777
001003

104102
004737

032777
001403
104166

004737
004737
004737

151130

007224
006572
050270

87%:

86%:

MOV

#READO,aRHCST

BITCNT
#RDY ,aRH(S1
3%
BITCNT
18%
BITCNT
#RDY ,aRHCS1

INC
BEQ
BR

BITCNT
3%
19%

MOV
MOV
MOV
TST

aRHCS1,CS1
ARHWC
, WC
aRHBA ,BA
R1

CLR

BAE

MoV
MOV
MOV
Mov

aRHST ,DS1
aRHER,ER1
aRHTDB, TDR
aRHMRZ,
T(C

BNE

CLR
JMP
MOV
MOV
MOV

JSR

BIT

BEQ

ERROR

2%:

#7 ,3RHCS2

CLR
B8IT
BNE
INC
BNE
CLR
BIT

BIT
BNE
ERROR
1%:

158752
#-3,aRHW(

#EVENA
, 9k HBA
D
#ZERO, aRHBAE

BEQ

005037
005037
000137
017737
017737
017737

MOV
MOV

MoV

003446

017737
017737
017737
005701

TST

BM]
MOV

177775

003446
000200

SCOPE

87%

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

#RDY ,aRHCS1
1%
102

R7 ,WHYFQ

#DBL ,aRHCS3

166

JSR

R7 ,WHYFQ

JSR

R7 ,ERRTST

JSR

R7,CLEER

;IS IN AN RH11
.sGET OUT OF TEST

;SET UP WC FOR THREE WORD

JSETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
JDEVICE 7
JTELL IT TO READO
JCLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
s COUNT UP

JNOT FINISHED COUNTING

;GET READY "0 DO IT AGAIN
21S IT SET YET?
JYES
;COUNT UP
sBIT IS NOT GOING TO SET
:SAVE

RH(CS1

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

JNO IT'S A 70
. CLEAR BAE
;CLEAR (S3
. CONT INUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RH(S3
. SAVE (S2
;SAVE TESTER STATUS
:SAVE ERROR RECISTER
;SAVE TESTER DATA REG.
;SAVE MR?2 TESTER REG.
;1S READY SET

JRDY

SET

CONT.

TEST

JREADY DID NOT SET

JANY ERKORS SET

;1S DOUBLE SET
.DBL SET
;DBL DID SET ON A 3 WORD TRANSFER
JTELL

WHY

NOT

;CLEAR ERRCKS

";tttttfifi‘ttfi"t*l’t.tl't*t"ttttttt'tttt.tttttit‘i'tt.ltttttl"!tt

MASSBUS RH70 ANC RH11 _DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:4¢4

MACY11
152

4921
(922
4923

4948
4949

4950
4951
4952
4953
4954
4955
4956

:'*tttt**tttttttt*t*ttttttttttt*ttttttfitttttttttttttttttfitttttttt

032252
032254
032256
032260
032266
(032274

032302
032310
032316
(032322
032330
032332
032336
032340
032344
032352
032354
032360
032362
032364

032364
032372

032400
032406
032410
032412
032416
032422
032426

000004
005701
100532
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

4957
4958

032434
(032442

4960
4961
4962

032456
032464
032472

017737
017737
017737

4964
4965
4966
4967
4968
4969
4970
4971
4972

(032506
032510
032512
032516
032524
032526
032530
032534
032540

001003
104102
004737
032777
001003
104167
004737
004737
004737

4959

4963

4973

4974
4975
4976

SEQ 0093

. *OPERATION BEING PREFORMED WILL BE PRINTED OUT
"IN ERROR MESSAGE.
R e RH7Z0 ONLY ..t iieiiieeeenennnnns

4927

4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947

;*TEST S2
DBL TEST 3 WORD EVEN ADD. READ REV
J*«THESE TEST CHECK DBL [N RH(SS WITHREAD FWD AND REV
J*WRITE FWD AND REV AND WITH BA] SET IN RHCS?

(924
4925
4926

4928
4929
4930
4931
4932
4933

30A(7052)
_12-JUL=79
170:46
PAGE 94
DBL TEST 3 WORD EVEN ADD. READ REV

032450

032500

017737
017737

017737

032777

TSTS52:
177775
004000
000000
000007
000077
003446
000200

151044
151040
151056
151030
151012
151000

18%:

150756

19%:

003446
003445
000200

003446

150740
150734

003420
003444

150730

003414

003416
003424
032442
150726
150722
150672
150666
150662
150660
150640

003416
003424
003422
003432
003436
003442
003440

000200
007224
002000
007224
006572
050210

3%:

87%:
86%:

150622

150636

SCOPE
TST
BMI
MOV
MOV
MOV

2%:

TSTS5%

;IS

;:GET OUT OF

IN AN RH11

TEST

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

#-3,dRHWC
#EVENAD , 3RHBA
#ZERO,aRHBAE
#7 ,0RHCS?2
#READG6,aRHCS1
BITCNT
#RDY ,aRHCS1
3%
BITCNT
18%
BITCNT
#RDY ,aRH(CS1
3%
BITCNT
3%
19%

MOV
MOV

aRHCS1,(S1
ARHW( ,W(

:SAVE RMCS1
. SAVE WORD COUNT

MOV
TST
BEQ
CLR
CLR
JMP
MOV

aRHBA ,BA
R1
87%
BAE
(S3
86%
@RHBAE ,BAE

;SAVE BUS ADDRESS
;IS IT AN RH1
JNO IT'S A 70
;CLEAR BAE
;CLEAR (S3
s CONTINUE
;SAVE BUS ADDRESS EXTENSION

JSET UP WC FOR THREE WORD
;SETUP BUS ADDRESS
;SETUP BUS ADDRESS EXTENSION
;DEVICE 7

JTELL IT TO READ6
;CLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
;COUNT UP
JNOT FINISHED COUNTING
JGET READY TO DO IT AGAIN
JIS IT SET YET?
JYES
. COUNT UP
JBIT IS NOT GOING

TO SET

MOV
MOV

@RH(CS3,(S3
oRH(S2,(S2

;SAVE RH(CS3
;SAVE (S2

MOV
MOV
MOV

@RHER,ER1

;SAVE ERROR REGISTER

®RHTDB, TDR
aRHMRZ, T(

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

BNE
ERROR
JSR
BIT
BNE
ERROR
JSR
JSR
JSR

1%
102
R7 .WHYFO
#DBL ,dRH(CS3
2%
167
R7.,WHYFO
R7,CLEER
R7 ,ERRTST

JRDY SET CONT. TEST
JREADY DID NOT SET
;ANY ERRORS SET

MOV

BIT

1%:

aRHST,DS1

#RDY ,aRH(S1

;SAVE

TESTER STATUS

;IS READY LET

IS DOUBLE SET
;DBL SET
;DBL DIDN'T SET ON A 3 WORD TRANSFER
JTELL WHY NOT
;CLEAR ERRORS

it**ttttt*tttttttttttttttttt.tttttttttttttttitttttattfitttttfittt

"TEST 53
WCE EW ERROR TEST
J*THIS TEST CHECKS THAT WCELO WILL SET
;*RHCS3 AND THAT WCE SETS IN RH(CS1

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

4977
4978
4979
4980
4981
4G82
4983
4984
4985
4986
4987
4988
4989
49950
4991
4992
4993
4994
4995
4996

MACY11
753

30A(7052)
12=JUL=79
WCE EW ERROR TEST

10:46

PAGE 95

SEQ 0094

;*IT ALSO CHECKS THAT WCEMI DOES NGT SET

*HITH WCELO IN_RH(CS3
N

032544
032546
032554
032556
032560
032564
032572
032600

000004

012737
005701

001402
000137
012777
012777
02777

000001

033336

000007
000000
004000

001212

150546
150560
150526

tttttitfittttttttt*ttt*‘*tt*t**ttttt*ttttttitfititti'tt'ttt'tfitti

TST53:

1%:

SCOPE

MoV
TST

BEQ
JMP
MOV

MOV
MoV

#1,8TIMES
R1
1%
FANG
#7 ,dRHCS2

#ZERO, @RHBAE
#EVENAD, aRHBA

ITERATION
;IS IT AN RH11
JIT'S AN Rh/0
2:;D0 1

JIT'S AN RH11, EXIT TEST

sSET DEVICE 7
;SETUP BUS ADDRESS EXT.

:SETUP BUS ADDRESS

. tfittttttt*tt*tfi*ttttttttitt**tttttt**l'fi*t*t*t***tttttt.*ttitiii

032606

013737

004000

004002

CHGE1

MoV

EVENAD,ODDAD

;MAKE BOTH ADD EQUAL

\'ttttit**t*tttt*i***tttt'*fitfi*fit'ttfl‘tttkt*t**titt*tfi*it**itttt

032614
032622
032630
032634
032642
032644
032650
032652
032656
032664
032666
032672
032674
032676

032676
032704
032712

032720
032722
032724
032730
032734

032740
032746
032754

032762
032770
032776
033004
033012
033020
033022
033024
033030
033034
033042
033050
033056
033062
033070
023072

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

004737
005137
012777
012777
012777
005037
032777
001015
005237

177776
000061
003446
000200

150510
150500
150466

MOV
MOV

18%:

003446

003446
000200

150444

19%:

003446

150426
150422
150416

003416
003424
032754
150414
150410
150360
150354
150350
150346
150326

000200

007224
004000
004000
177776

000051
003446
000200

003446

003420
003444
003414

003416
003424
003422
003432
003436
003442

MITE:

MOV
MOV
MOV
TST
BEQ

87%:
86%:

003440
15031C

150272
150262
150252
150240

CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC
BEQ
BR

VOUS:

18%:

#~2 ,dRHW(
#WRITEQ,QRHCST
BITCNT
#RDY ,@RHCS1
MITE

BITCNT
18%
BITCNT

#RDY ,ARHCS1T
MITE

BITCNT
MITE
19%

aRHCS1T,(S1

ARHWC
, W(
aRHBA BA

87%

CLR
CLR

BAE

MOV

aRHBAE ,BAE

MOV

@dRH(CS2,CS2
aRHST ,DS1
aRHER,ER1
aRHTDB, TDR
ARHMRZ,
T(

JMP

MOV

MOV
Mov
MOV
MOV

BIT
BNE
ERROR
JSR

(oM
MOV
MOV
MOV

cs3
86%

@dRHCS3.(S3

#RDY ,@RHCS1

vOUS
102
R7 ,WHYFO
EVENAD

#EVENAD ,aRHBA

CLR

#-2 ,aRHWC
#WR(HO,ARHCST
BITCNT

BNE
INC

BITCNT

BIT

#RDY ,QRHCS1
FAST

;FOR TWO WORD TRANSFER
JTELL IT TO WRITE
sCLEAR BIT COUNTER
;1S RDY SET
SRIT IS SET
s COUNT UP
;NOT FINISHED COUNTING
.GET READY 10O DO IT AGAIN
JIS IT SET YET?
. YES
;COUNT UP
JBIT IS NOT GOING TO SET
s SAVE RH(S1
;SAVE WORD COUNT
s SAVE BUS ADDRESS
IS IT AN RH11

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

:SAVE BUS ADDRESS EXTENSION

s SAVE
;SAVE
;SAVE
;SAVE
;SAVE

RH(CS3
(S2
TESTER STATUS
ERROR REGISTER
TESTER DATA REG.

JSAVE MR? TESTER REG.

;1S READY SET

:RDY IS SET
*RDY DID NOT

SET

$ANY ERRORS SET

:INVERT BITS FOR WCELO
FIX BUS ADDRESS
JFIX WORD COUNT
JTELL IT TO WRITE CHECK
JCLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
JCOUNT UP

HASSBUSP??7O AND RH11_DIAGNOSTI(
(ZRHBE
07=JUN=79 13:44

5033
5034
5035
5036
5037
5038
5039

023076
023100
033104
033112
033114
033120
033122
033124
033124
033132
033140
033146
033150
033152
033156
033162
033166
033174
033202
033219
033216
933224
033232
033240
033246
033250
033252
033256
033264

033266
033270
033274
033300
033302
033310
033312
033314
033322
033324

033326
033332
033336

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
001006
104132
004737
105737
001005
032777
001406
104133
032777
001001
104134

004737
004737

003446
000200

MACY11
153

12=JUL=79
30A(7052)
WCE EW ERROR TEST

BNE

150216

19%:

003446

003420
003444
003414

FAST:

000200

007224
004000

150076

010000
040020

150016

:SAVE RH(CS1
;SAVE WORD COUNT
:SAVE BUS ADDRESS

87%

JNO IT'S A 70

(S3
86%
ARHBAE ,BAE

006572
050210

CLR

BAE

MOV

aRH(S3,CS3

;CLEAR (S3
2 CONT INUE
:SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3

MOV
MOV

@RHST,DS1
aRHER,ER1

;SAVE TESTER STATUS
;SAVE ERROR REGISTER

MOV
BIT
BNE

DRHMRZ, T(
#RDY ,aRHCS1
SUPER

;SAVE MRZ TESTER REG.
;1S READY SET
JRDY IS SET

BIT

#MWCELO,DRHCS3

;1S WCELO SET

ERROR

132

MOV

ERROR
JSR

BNE

TSTR
BNE

RITEON: BIT

BEQ

ERROR

BIT

BNE

TWANGY:
FANG:

19%

TST

MOV

TWANG:

:NOT FINISHED COUNTING

DRHCS1,(S1
aRHWC ,WC
aRHBA BA

JSR

150052

SEQ 0095

MOV
MOV
MOV

B8R

86%:

007224
001103

;GET READY TO DO IT AGAIN
cIS IT SET YET?
JYES
cCOUNT UP
JBIT IS NOT GOING TO SET

87%:

SUPER:

18%

PAGE

BITCNT
#RDY ,aRH(CST
FAST
BITCNT
FAST

CLR
JMP
MOV

150062

10:46

CLR
BIT
BNE
INC
BEQ

8EQ

003416
003424
003422
003432
003436
003442
003440

ERROR
JSR

JSR

;1S

IT AN RH11

. CLEAR BAE

dRH(CS2,CS2

;SAVE (CS2

@RHTDB, TDR

;SAVE

102
R7 ,WHYFO

TESTER DATA REG.

;RDY DID NOT SET
:ANY ERRORS SET

RITEON

JWCELO IS SET

;WCELO DID NOT SET IN RHCS3

R7 ,WHYFO

;ANY ERRORS SET

$ERFLG
TWANG

;WAS
JYES

#WCEH]I ,aRH(CS3

THERE

AN ERROR

;1S WCEHI SET

TWANGY

JWCEHI

133

WCEH]

#WCE ,aRHCS?

DID NOT

;DID WCE

TWANGY

SET

SET WITH WCELO
SET

IN CS2

;JYES,IT SHOULD 8E

134

WCE DID NOT SET

R7,CLEER

IN RH(S?2

:CLEAR ERRORS

R7.,ERRTST

. tt*tttt*tttttt*ttttttttttttttttttttttttitttttttttttt'ttttttt’-.

SSTEST

54
;*THIS

WJCE
TEST

OW ERROR TEST (WCEHI)
CHECKS THAT WCEH] SETS

J*AND THAT WCE

SETS

IN RHCS?

tTHAT WCELO DOES NOT

IN RH(S3

,IT ALSO TESTS

SET wITH WCEH] . ..unn..

P RH70 ONLY..iveeeeeeeencnnnnas

tttttttttt*t*tt*ttttt*ttttttitttttttttfittt*ttttt.tttnttttttnttv

033336
033340
033342
033344
033350
033356
033364

000004
005701
001402
000137
012777
012777
012777

Tsrsa

034142
000007
177776
004000

SCOPE
TST

BEQ
147762
147746
147742

1%:

JMP

MOV
MOV

MOV

FANGY

#7 ,BRH(CS?2
#=2 ,dRHW(

#EVENAD , 3RHBA

;IS

IT AN 11

J1r's AN’ RH70

J17'S AN RH11,

EXIT

QR A 7C
TEST

;SET DEVICE 7
;ruo WORD TRANSFER
;SETUP BUS ADDRESS

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

633372
033400
033406

033412
033420
033422

033426
033430

S
R
[
S
\HE WS (R
(N AP
I S
QTM YIS
N
R
QR
S
YU

J\x\l\txt\wwwgmu«l
DAN2OVoO N

b L

[A¥1a¥1,N) NOMNOVNININY
=t et e
e 2 B 2 2 OO O
~NOM S NNV=2000NAINEWN—20O000N

-—h
-

i
i
i
P

W
v iW

(AN RV LV, LU LV RV LW, LV, IV, TV, LW, TV, TV, IV, IV, XU, I, LV, [V, IV, XV, XV, TV, IV, XV, XV, TV . SV, TV, TV SV, TU . TV TV, [V IV, IV, 1V |

N Y

033434
033442
033444
033450
033452

033454
033454
033462
033470
033476
033500
033502
033506
033512
033516
033524
033532
033540
033546
033554
033562
033570
033576

033600
033602
033606
033614
033620
033624
033626
033634
033640
033646
033654
033662
033666
033674
033€76
033702
033704
033710

033716
033720
033724
033726
033730
033730
033736

013737

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
052777
005037
005237
001375
012777
005137
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004

004002
000061
003446
000200

004000
1647710

00344¢
000200

147666

"8%:

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

003416
003424
003422
003432
003436
003442
003440
147232

147524

WCEOWT:

87%:
86%:

BEAU:

147504
147466
167456
147446

1647434

18%:

003446

003446
000200
003446

017737

147274
147370

147412

3 0A(7052)
WCE

MOV
MCv

147722

003446

005237
001401
00077C
017737

MACY11
154

19¢%:

CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE

12-JuL=79

OW ERROR

TEST

#RDY ,3RH(S1
WCEOWT

BITCNT
18%
BITCNT

#RDY ,adRH(S1
WCEOWT

MOV
MOV
MOV

aRH(CST,CS1
ARHW(C
, W(
aRHRA ,BA
R1

87%

BAE

(S3
86%

oRHBAE ,BAE

dRH(S3,(S3
aRH(CS2,(S2
aRHST,DS1
aRHER,ER1
adRHTDR, TDR
aRHMR?2
, 1(

#RDY ,aRH(ST
BEAU
102
R7 ,WHYFQ
#40,
dRH(S2

BITCNT
BITCNT
17%
87,
dRH(CS?Z
ODDAD
#EVENAD
, dRHBA
#=. 3RHW(
2
#WRCHO,aRH(CST
BITCNT
#RDY ,dRHCS1
WCEERR

BITCNT
18%
BITCNT

#RDY ,akH( ST

WCEERR

BITCNT

003420
003444

WCEFRR:

(WCEHI)

ODDAD ,EVENAD

BITCNT
WwCEOWT
19¢

W(EERR
19%

aRH(ST, (S
aRHW ,W(

10:46

MWRITEQ,ARHCST
BITCNT

INC
BEQ
BR

TST
BEQ
CLR
CLR
JMP

PAGE 97
SEG 0096
JTELL

:DUP QODDAD
TO WRITE

;CLEAR BIT COUNTER

21S RDY SET

JBIT IS SET
s COUNT UP
sNOT FINISHED COUNTINC
;GET READY TO DU IT AGAIN
IS IT SET weT?
JYES
UP
; COUNT
JBIT IS NOT COING TO SET
: SAVE

RH(CS1

:SAVE WORD COUNT
: SAVE BUS ADDRESS
1S IT AN RH11
JNO IT'S A 70
; CLEAR BAE

;CLEAR (S3

s CONT INUE
;SAVE BUS ADDRESS EXTENSION
s SAVE RH(CS3

JSAVE (S2

;SAVE

TESTER STATUS

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.

JSAVE MR2 TESTER KREG.

;1S READY SET
;RDY IS SET
;RDY DID NOT

SET

ERRORS SET
s ANY
;DO A (ONTROLLER (LEAR
sSET UP FOR DELAY

s COUNT UP

JSELECT UNIT #7

JREVERSE BITS

[N ODDAD

2 CORRECT BUS ADDRESS
;CORRECT w(
SJTELL IT TO WRITE (HECK
;CLEAR BIT COUNTER
;1S RDY SET

JBIT IS SET
; COUNT UP
sNOT FINISHED COUNTING
sGET READY TO DO IT AGAIN
SIS IT SET YET?
JYES
:COUNT UP
SBIT IS NOT GOING TO SET
s SAVE RH(S1

s SAVE WORD COUNT

{
MASSBUS RH70 ANC RH11 DIAGNCSTIC
(/RHBE.P11
07=JUN=79 13:44

5'45
5146
5147
5148

51649
5150
5151
5152
5153
5154
5155
156
5157

5158
5159
5160
5161
5162
5163

033744
033752
033756
033756

033762
032766
033772
03400C
034006
034014
034022
034030
034036

034044
034052
034054
034056
034062
034070

5164

034072

5168

034106

5165
5166
5167
5169
5170
5171
5172
5173

5174

5'/5
5176

5177

034074
034100
034106
034114
034116
034120
03412¢
034130

(34132

034136
034142

017737
005701
001406
005037

005037
000137
017737
017737
017737
017737
017737
017737
017737

032777
001003
104102
004737

032777
001006
104135

004737
105737
001012

032777

001406
104137
032777
001001
104136

004737

147364
003416
003424
034006
147362
147356
147326
147322
147316
147314
147274
000200
007224

Q20000

87%:

147277

ERTIP:

5186
S187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
3199
520C

CLR
JMP
MOV
MOV
MOV
MOV
MOV
MoV
MOV
BIT
BNE
ERROR
JSR
BIT
BNE

46$:

FRROR

007224
001103

004000

147246

040000

147212

006572

JSR
TSTR
BNE

BUSH:

BIT

BEQ
ERROR
LEFOUT: BIT
8BNE
ERROR

LEAGUE: JSR

050210

FANGY:
DN

JSR

RN R R

aRHBA ,BA
R1
87%
BAE

PAGE

SEQ 0C97

s SAVE BUS ADDRELSS
SIS IT AN RHTT
JNO IT'S A 70
.CLEAR BAE

(S3
86%
aRHBAE ,BAE
@RHCS3,(S3
IRH(S2,(S2
dRHST ,DS1
@RHER ,ER1
aRHTDR, TDR
aRHMR?Z, T(
#RDY ,aRH(CS1
ERTIP
102
R7 ,wWHYFO
#WCEH] ,@RH(S3
BUSH

;CLEAR (S3
2 CONT INUE
s SAVE BUS ADDRESS EXTENSION
; SAVE RH(CS3
. JAVE (S?2
;SAVE TESTER STATUS
:SAVE ERROR REGISTER
sSAVE TESTER DATA RF(.
;SAVE MR2 TESTER REG.
;1S READY SET
JRDY IS SET
JRDY DID NOT SET
;ANY ERRORS SET
;IS WCEHI SET
sWCEHI IS SET

135

JWCEHI

#WCELO,@RHCS3

:1S WCELO SET

R7 ,WHYFO
$ERFLG
LEAGUE

LEAGUE
137
#W(E ,@RHCS2
| EAGUE
136

R7,CLEER

R7 ,ERRTST

DID NCT SET

IN RH(CS3

;sANY OTHER ERRORS SET
;WAS THERE AN ERROR
JYES

*NO,WCELO IS OK
JWCELO SET WITH WCEHI
;DID WCE SET
;WCE IS SET IN RH(CSZ
sWCE DID NOT SET IN RH(SZ

:CLEAR ERRORS

AR AR AN A AR AR N C P AR N NN RN RN AN R A AN AR

A RN AR AR R AR R RO NN

J*TEST 55
INTERUPT ENABLE TEST
;*THIS TEST VERIFYS THAT IE wlLe SET IN RH(CS?
J*AND IT WILL CAUSE AN INTERUPT WHEN RDY IS SET

5181

5183
5184
5185

MOv
TST
8EQ
CLR

003416
003424
003422
00343¢
003436
003442
003440
147256

30A(3052)
12-JUL=79
10:46
Ww(CE OW tRROR TEST (WCEAH])

003%14

5178
5179
5180

5182

MaCy11
154

034142

034144
034152
034160

034162
034164
034172
034200
034206
034214
034222
034230
034232
034234
034240
034244
034252
034256
034260

000004

012777
012777
005701

100403
012777
012777
012737
012777
012777
032777
001001
104174
005037
005037
032777
001015
005237
00°371

000007
004000

147166
147154

000000
034454
000340
177777
000161
000100

147766
147206
177776
147116
147106
147700

177776
003446
000200
003446

TST55:

READY:

2%:
147056

18%:

AR AR R R AR RN R AR A A RN A AR R AN N AR AN A RN R AR AN RS RARR NN AR NN AR R R A AN S

SCOPE

MOV
MOV
TST

BMI
MOV
MOV
MoV
MOV
MOV
BIT
BNF
ERROR
CLR
(LR
BIT
BNE
INC
BNE

#7,0RH(CS?2
#EVENAD , aRHBA
R1

READY
#7ERQ, aRHBAE
#IETST ,avECADD
#340,PS
#=1,aRHW(
AWRITEQ! IE,aRHCST
#1E ,aRHCS
2%
174
a¥177776
BITCNT
#RDY ,IRH(ST
TSTIE
BITCNT
‘8%

sSETUP UNIT NUMBER
;SETUP BUS ADDRESS
JRH11 OR RHZ0 ?

;ITS AN RH11
;ZERO THE BAE
sSET UP VECTOR ARDRESS
JSET PRIORTY 7
:SET FOR ONE WORD
JTELL IT TO WRITE
;1S IE SET
cYES CONTINUE TEST
JIE WILL NOT SET
;CLEAR BIT COUNTER
:1S RDY SET
JBIT IS SET
sCOUNT UP
sNOT FINISHED COUNTING

MA5SBUS RH?0 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=-JUN=79 13:44

005037
032777
001004
005237
001401
000770

003446
000200

017737
017737
017737
005701
001406

14706
147012
147006

003446

003420
003444
003414

TSTIE:

003416

003424
034364
147004
147000
146750
146744
146740
146736
146716
000200
034466
001103

(34466

003416
003424
003422
003432
003436
003442
003440
146700

87%:
86%:

1$:

005037
000137
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
000137
105737
001010
104173
000137
Q22626

19%:

[Val

005037

1470346

034262
034266
034274
034276
034302
034304
034306
034306
034314
034322
034330
034332
034334
034340
034344
034350
034356
034364
034372
034400
034406
034414
034422
034430
034432
034434
034440
034444
034446
034450
V34454

[

5201
5202
5203
5206
5205
5206
5207
5208
5¢09
5210
5211
5212
€213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
52¢7
5228
5229
5230
5231

MACY11
C
155

30A(3052)
12=JUL=79
INTERUPT ENABLE TEST

10:46

PAGE

SEQ@ 009&

(LR
BIT
BNE
INC
BEQ
BR

BITCNT
#RDY ,a8RHCS1
TSTIE
BITCNT
TSTIE
19%

;GET READY TO DO IT AGAIN
JIS IT SET vET?
JYES
;COUNT uP
;BIT IS NOT GOING TC SET

MOV
MOV
MOV
TST
8tQ
(LR
(LR
JMP
MoV
MOV
MOV
MOvV
MOV
MoV
MOv
8IT
BNE
ERROR
JMP
TSTR
BNE
ERROR
JMP

aRHCST,(351
aRHWC , W(
adRHBA ,BA
R1
87%

s SAVE RH(CS1
s SAVE WORD COUNT
;SAVE BUS ADDRESS
IS IT AN RH11
:NO IT'S A 70

rs3
86%
aRHBAE ,BAE
@RH(S3,CS3
aRH(S2,(S2
adRHST ,DS1
adRHER,ER1
dRHTDB, TDR
aRHMR?2, T(
#RDY ,@RH(CS1
1%
102
SPLIT
SERFLG
SPLIT
173
SPLIT

sCLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
sSAVE RH(CS3
JSAVE (€S2
;SAVE TESTER STATUS
:SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;1S READY SET ?
JYES,
;READY DID NOT SET
SEXIT TEST
sWAS IE SET
JNO,EXIT TEST
SRDY DID NOT CAUSE AN INTERUPT
JEXIT TEST
.

(MP

SAE

(SP)+,(SP)+

s CLEAR BAE

sCORRECT

STACK

5232
5233
923
5235
52%

034456
034462
034454
034466
0364672

105737
001401
104175
004737
004737

[V, [ant

MASSBUS Rr70 AND RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

MA Y11
TS

001103
006572
0502iC

30A(71052)

INTERUPT ENARBLE TEST

1S18

SPLIT:

12=JuL=79

BEQ
ERROR
JSR
JSR

SERFLG
SPLIT

775
R7,CLEER
R7,ERRTST

10:4¢

PAGE

100

;01D IE SET
SYES EXIT TEST
s [E HAS OPEN GOING Tu BUS
;CLEAR ERRORS

Sta (099

MASSBUS RM70 AND RH11 DIAGNOSTIC
C(RHBE .P11
07=JUN=79 13:44

MACY11
756

5237
5238
5239

J
8
12=JUL=79
10:46
PAGE 101
READ OPERATIONAL TEST (NORMAL) #1

30A(i052)

SeQ 0100

‘"Q'Q.tt'tt.tt"fi!fi'fi.iR.fi‘*.tttttfi.fi'tt*'fitltt.t'.tttttt.t.n'QQQ

TeTEST 56

READ OPERATIONAL TEST (NORMAL) #1
;*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
CICRAARPRAEANRARRACTANRNAN L AAAS AR

034476
034500
034506
034514
034522
034530
034536
034540
034542
034550
034556
034562
034570
034572
034576
034600
034604
034612
034614
034620
034622
034624
034624
034632
034640
034646
034650
034652
034656
034662
034666
034674
034702
034710
034716
034724
034732
034740

034746
034754

000004
012777
012777
012777
01737
012777
005701
100403

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

017737
017737
017737
005701
001406
005037

005037
000137
017737
017737
017737
017737
017737
017737
017737
07737
032777
001003
104102
004737
023777
0014907

005737
001403

104147

000007

166632

004100
000000

146612
006100

177777

125252

000000
000071
003446
000200

1S756:

146516

MQvV
MoV
MOv
MOV
TST

146612

146610

am]

146552

1%:

146540

18%:

003446
003446
000200

146516

19%:

003446

146500

146474

146470

003416
003424
034702
146466
146462

146432
146426

146422
146420
146400
146404

000200

007224
004100
004100

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440
001162

2%:

87¢%:
86%:

146354

"46356

SCOPE
MOV

3%:

MOv
MoV

CLR
BIT
BNE
INC
BNE
(LR
BIT
BNE
INC
BEQ
B8R
MOV
MoV
MOV
TST
BEQ

#7,dRHCS?2
#-1,aRHWC

CMP

BEQ
TST

REQ
ERROR

JIT'S AN RH11
< ZERO BAE
JTELL IT TO READO

#READQ, aRH(CS
BITCNT

;CLEAR BIT COUNTER
;IS RDY SET
;BIT IS SET
;COUNT UP

#RDY ,aRHCS1

BITCNT
18%
BITCNT

JNOT

BITCNT

19%

ARHCS1,CS1

:SAVF RH(CS1T
;SAVE WORD COUNT

ARHWC ,WC
aRABA,BA
R1

;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70
;CLEAR RAE
;CLEAR (S3
:CONT INUE
;SAVE BUS ADDRESS EXTENSION

87%

(S3
86%

ARHBAE ,BAE

aRHMR2,

aRHTDR, $REGO

#RDY ,aRH(CS1

3s
102
R7.,WHYFO

RBUF ,aRHTDB
4%
RBUF

147

FINISHFD COUNTING

cGET READY TO DO IT AGAIN
.
JIS IT SET YET?
JYES
JCOUNT UP
;BIT IS NOT GOING TO SET

H#RDY ,@RHCS1

aRH(S3,(53
DRHCS2,C52
ARHST,DS1
aRHER,ER1
dRHTDR, TDR

BIT
BNE
ERROR
JSR

JSETUP TESTER DB
;IS IT AN 11 OR A 7C

#7ERO, IRHBAE

MOV
MOV
MOV
MOV
MOV
MOV

;SRTUP BA
JSETUP DATA

R1
1%

BAE

MOV

EZ2 X222
R RN

JSETUP UNIT SEVEN
<FOR ONE WORD

#RBU
, aRHBA
F
#7ERO,RBUF
#0AB,aRHTDB

CLR
CLR
JMP

MOV

RNl

;SAVE RH(S3
;SAVE (S2

;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTFR DATA REG.

;SAVE MR2 TESTER REG.
JGET DATA
;IS OR SET
;YeS RDY [S SET

JREADY DID NOT SET
;ARE ANY ERRORS SET

;DID INFO GET WRITTEN OR READ
;INFO GOT LOADED

;DOES RBUF = 0
JYES INFO DID NOT LOAD

, sALL BITS DID NOT LOAD DURING
;AN READQ OPERATION

MASSBUS RH70 AND RH11
(JRHBE .P11

5293
5294

07=JUN=79 13:44

035006
035010

000137

035012

0047;7

035016
035022
035024
035026

035030
035034

_DIAGNCSTIC

104150

1057%7
001402
104146
104170

004737
004737

035012
007224
001103

MACY11
156

30A(7052)

5¢:

ERROR

4%:

JSR

READ OPERATIONAL

JMP

TSTR

BEQ
ERROR
ERROR
JSR
JSR

6%:

006572
050210

12=JuUL=79

TEST

10:46

PAGE

(NORMAL)

102

See 0101

JEXIT TEST

150

;READO OPERATION DID NOT WORK

sNO BITS WHERE LOADED TO RBUF

R7,WHYFO

;ANY ERRORS SET
;ANY FRRORS ?

SERFLG

NOEXIT TEST

6%
146
170
R7,CLEER
R7,ERRTST

;PRINT REGISTERS

;CLEAR ERRORS

AR RN AR AR AANRA AR AN RANANNNNANRANNRAANRAANRNAANTARARRCANACT
RN

TXTEST 57

RH OPERATIONAL WRITE TEST #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

;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
s *NO ERRORS SHOULD OCCUR

b
ek
b cad
—md ool e
—b o

VHIFRAKR
WO
W NN

(VL IV

RRRRRRRRYR

W SV, [U LV, U, T RN TV, SV YV TV, TV, IV,

VoloENTe SV FYT,V
Y &)

(O, 1V, IV IV, TV, IV IV, IV, SV IV, |
NN NN NN W WWN NN

035040
000004
035042
012777
035050
012737
035056
012777
035064
012777
035072
305701
100403
(35074
035076
012777
035104
012777
035132
012777
035120 012777
035126
005037
035132
005237
035136
022737
035144
001372
035146
612777
035154
012777
035162
012777
035170
012777
035176 012777
035204
005037
035210
032777
035216
001015
035220 005237
035224
001371
035226 005037
035232 032777
035240
001004
035242° 005237
035246
001401
035250 000770
035252
035252 .017737
035260 017737
035266
017737
035274
005701
035276 001406

035300

005037

000007

1646270

125252

ERARRR AN AN A AA R AR AN R ARRAREA

18757

004000
146270
146240

000003
177777
?

000000
004000
000061
000001

003446
003446
000015
000003
000001
000003
000001
000000
003446
000200

146254
146222
146210
146226

003446

1%:

2%:

003446
000200

146070

19%:

003446

146052
146046
146042

003416

003420
003444
003414

CLR
INC
CMP

#WRITEQ,RHCST
#DMD
, @RHMR 1
BITCNT
BITCNT
#15,BITCNT

MOV
MOV
MOV
MOV

003446

7%:

#0AB, EVENAD
#DMD !MCLK ,dRHMR1

BMI

MOV
MOV
MOV
MOV

MOV

18%:

#7,dRHCS2

#=1,3RHWC
R1
1%

BNE

146200
146172
146164
146156
146150
146112

SCOPE
MOV
MOV
MOV
MOV
TST

AR N ANRANN

(LR
B8I7
BNE
INC
BNE
(LR
BIT
BNE
INC
BEQ
BR
MoV
MOV
MOV
TST

BEQ
(LR

#ZERO, aRHBAE
#EVEN
, 3RHBA
AD

#DMD .MCLK ,@RHMR1
#DMD
, aRHMR 1
#DMD :M(LK ,dRHMR1
#DMD
, 3RHMR
#7ERC,aRHMR1

BITCNT

#RDY ,aRH(S1

7%
BITCNT
18%
BITCNT

#RDY, 3RHCS1

RN AN

A RN ARAARARRANNA AN RN AR

JSETUP UNIT SEVEN

:SETUP INFORMATION
;FOR ONE

;SETUP DIAG.
WORD

IS IT A110R 70

JIT'S AN 11
;JERO BAE
;SETUP BA
STELL IT TO WRITETO

JMANIPULATE CLOCK

;CLEAR LOOP COUNTER

; INCREMENT LOOP COUNTER
;IS IT THIRD LOOP FOR SUSEC WAIT
NO LOOP AGAIN
JSTART CHANGING CLOCK

;CHANGE CLOCK AGAIN
. CHANGE CLOCK AGAIN
. CHANGE CLOCK AGAIN
;GET OUT OF DIAG MODE
JCLEAR BIT COUNTEK
;1S RDY SET
JBIT IS SET
;COUNT UP
SNOT FéNISHED COUNTING
JGET READY 10 DO 1T AGAIN
SIS IT SET YET?

7
BITCNT
’$
19%

JYES

adRH(CS1T,(S1

s SAVE RHCS1

aRHW( ,W(
aRHBA ,BA
R1

87%

BAE

MQDE

JCOUNT UP
cBIT IS NOT GOING TO SET

s SAVE

WORD COUNT

s SAVE BUS ADDRESS
JIS IT AN RH1T

sNO IT'S A 70
;CLEAR BAE

MASSBUS RH70 AND RH11

C(ZRHBE .PT1
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361

5362

5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5282
5383
5384
5385
5786
5387

5388
5389
5390
539
5392
5393
5394
5395
5396

5397
5398
5399

5400

5601
5402
5403
5404

MACY11

DIAGNOSTIC

C7-JUN=-79 12:44

035304
035310
035314
035322
035330
035336
035344
035352,
035360
035366
035374
035402
035404
(35406
035414
035416
035420
035426
035430
035432
035449
035442
035444
035450
035454
035456
035460
035462
035466

005037
000137
017737
017737
01773%7
017737
017737
017737
017737
017737
032777
001001

003424
035339
146040
146034
146004
146000
145774
1645772

157

87%:
:
86%:

000200

003416
03424
03422
003432
003436
003442
003440
001162
145726

022777
001001

127777

145716

8$:

022777
001401

004002

145706

3¢:

004000

145710

4$:

104102

104140

104141
023777
001601
104142
004737
105737
001402

1645752
145756

007224
001103

5¢

104170

006572
050210

6%:

12-JUL=79

RH OPERATIONAL WRITE

CLR
JMP
MOV
MOV
MOV

€S3
868
WRHBAE , BAE
ARHCS3.CS3
ARHCS2.CS2

MOV
MOV
MOV
MOV

QRHER_ER1
ARHTDR, TDR
ARHMR2 . T(
SRHTDB. $REGO

MOV

BIT

104146

004737
004737

30A(i052)

10:46

TEST #1

PAGE

103

SEQ 0102

;CLEAR (S3
* CONT INUE
*SAVE BUS ADDRESS EXTENSION

*SAVE RHCS3

*SAVE (S2

aRHS1,DS1

*SAVE

TESTER

STATUS

*SAVE ERROR REGISTER
*SAVE TESTER DATA REG.
*SAVE MR2 TESTER REG.
SGET DATA

#RDY , 3RHCST

;1S READY SET

BNE
ERROR
CMP
BNE
ERROR
cMP
BEQ
ERROR

8s
102
#~1,3RHWC
3g
140
#ODDAD , 3RHBA
48
141

“YES,CONTINUE TEST
*READY DID NOT SET
:DID WC INCREMENT
SYES,CONT TEST
*WRITETO OPERATION DID NOT INC WC
:DID BA INCREMENT
*YES CONT TEST
*BA DID NOT INCREMENT AFTER AN WRITETO OPERATION

BEQ
ERROR
JSR

5¢
142
R7,WHYFO

*YES,CONT
“INFO DID NOT WRITETO TESTER
*ARE ANY ERROR BITS SET

BEQ
ERROR
ERROR
JSR
JSR

6$
146
170
R7,CLEER
R7.ERRTST

CMP

TSTB

EVENAD ,aRHTDB

SERFLG

“DID

INFO WRITETO TESTER

*WAS

THER AN ERROR

*NO EXIT TEST
*THESE ARE THE CONTENTS OF ALL RH70 REG.
*THIS IS TO COMMPLETE ERROR PRINTOUT
*CLEER ERRORS IF ANY

""'ittt.tttl"t"tttfitt'i.ttt*ttfi*t't‘titfit*fifi*t*ttfititii“i.tt.tt

SRTEST 60

;*THESE

READ OPERATIONAL TEST (NORMAL) #2
TESTS

**WHETHER

VERIFY ALL

READ AND WRITE

IT BE A READ REV.

CODES

OR FWD OR A WRITE

REV.

OR FWD

:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
*aNO ERRORS SHOULD OCCUR

_'.'tt.'fifit""i*tfittfit'Q'l"Q'fifittitfittfififlt.‘tttfifi"titi'ttt.!t.t"

035472
035474
035502
035510

025516
035524
035532
035534
035536
035544
035552
035556
035564
035566
035572
035574
035600
035606
035610

000004
012777
012777
032777
01¢737
012777
005701
100403
012777
012777

005037

032777
001015

000007
177777

004100
000000
125252

000000
000073
003446
000200

005237

00344¢

032777

003446
000200

005237

003446

001371
005037

001004

145636
145622
145616

7ST60:

004100

145544

145522

#7 . 3RHCS2
#-1, aRHWC
#RBUF , BRHBA

MOV

#0AB,aRHTDB

:SETUP TESTER DR

8M]
MOV

1$
#7ERO, 3RHBAE

$iT'S AN RH11
7ERO BAE

' MOV

145616

145614
145556

SCOPE

MOV
MOV
MOV
TST

1%:
18%:
,

19¢:

MOV
CLR
BIT

BNE
INC
BNE
CLR
BIT

BNE
INC

#7ERO . RBUF

#READ2, 3RHCS1

BITCNT
NRDY ,BRHCS1

2s
BITCNT
18%
BITCNT

;SETUP UNIT SEVEN
*FOR ONE WORD
*SRTUP BA

‘SETUP DATA

SIS

IT AN 11

OR A 70

STELL IT TO READ2

*CLEAR BIT COUNTER
*IS RDY SET
SBIT IS SET
SCOUNT P

*NOT FINISHED COUNTING

#RDY , BRHC S

*GET READY TO DO IT AGAIN
SIS IT SET YET?

BITCNT

SCOUNT UP

TYES

SSBUS RH70 AND RH11 _DIAGNOSTI(
(ZRHBE .P11
07=JUN=79 13:44

5405

5406

5640/
5408
5409
54610
5411
5412
5413
5614
5415
5416
5417
5418
5419
5420
5421
5422
5623
5424
PLYP)
5426
5427
5478
9429
5430
5431
5632
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
035616
035620
035620
035626
035634
035642
035644
035646
035652
035656
035662
035670
035676
035704
035712
0356720
035726
035734
035742
035750
035752
035754

035760
035766
035770
035774

035776

036000
036004
036006
036012
036016
036020
036022
036024
036030

MACY1?
760

001401

.600770
017737
017737
017737
005701

001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001003
104102
004737
023777
001407
005737
001403

003420
003444
003414
003416
003424
035676
145472
145466
145436
145432
145426
145424
165404
145410

000200

007224
004100

104150

004737
105737

001402
104146
104170

004737
004737

READ OPERATIONAL

aRHCS1,(CS1
aRHW( ,WC
adRHBA,BA
R1

:SAVE RH(CS?

CLR

BAE

87%:

MOV

adRHBAE ,BAE

86%:

MOV
MOV
MOV

CLR
JMP

MOV

MOV
MOV
MOV
BIT

BNE
ERROR
JSR

3%:

CMP
BEQ
TST

BEQ
ERROR
JMP
ERROR

5%:

007224
001105

4%:

006572
050210

SEQ 0103

MOV
MOV
MOV
1ST

2%:

004100

036006

10:46
PAGE 104
TEST (NORMAL) #2

;BIT IS NOTM GOING TO SET

145360

145362

2%
19%

BEQ

003416
003424
003422
003432
003436
003442
003440
001162

12=-JUL=79

BEQ
BR

104147

000137

30A(7052)

JSR

TSTB

BEQ
ERROR
ERROR
JSR
JSR

6%:

87%

€S3
86%

@RHCS3,(S3

®dRHCSZ2,CS2
@RHST ,DS1
aRHER ,ER1
aRHTDR, TDR
dRHMR?2,
T(
@dRHTDB, $REGO
#RDY ,@RH(S1

3%
102
R7,WHYFO

RBUF ,aRHTDB
4%
RBUF

5%
147

4%
150

R7 ,WHYFO

$ERFLG

6%
146
170
R7,CLEER
R7,ERRTST

;s SAVE WORD COUNT

. SAVE BUS ADDRESS
JIS IT AN RHI1
JNO IT'S A 70
;CLEAR BAE
:CLEAR (S3
2 CONT INUE

;SAVE BUS ADDRESS EXTENSION

;SAVE RMH(CS3

JSAVE (S2

;SAVE

TESTER STATULS

.SAVE

TESTER DATA REG.

. SAVE ERROR REGISTER

;SAVE MRZ TESTER REG.
;GET DATA
.15 OR SET

;YES RDY

SET

;READY DID NOT SET
;ARE ANY ERRORS

SET

;DID INFO GET WRITTEN OR READ
. INFO GOT LOADED
.DOES RBUF = 0
JYES INFO DID NOT LOAD
JALL BITS DID NOT LOAD DURING
;AN READZ OPERATION
JEXIT TEST

JREAD2 OPERATION DID NOT WORK

;NO BITS WHERE LOADED TO RBUF

;ANY ERRORS
;ANY ERRORS

SET
?

JNO,EXIT TEST

JPRINT

REGISTERS

; CLEAR ERRORS

'"ttttttttttttttt*ttl’fifit*t IRARARAAAARARAARYARANRARRRARAARNER N AT h

SATEST 61

READ OPERATIONAL TEST #1
;*THESE TESTS VERIFY ALL READ AND WRITE CODES
;*WHETHER IT BE A READ REV. OR FWD CR A WRITE REV.

OR FWD

;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
¢ *NO ERRORS SHOULD OCCUR
SIPAR

036034
036036

036044
036052
036060
036066
036070
036072
036100

000004
012777
012777
012777
012777
005701
100403

012777
912777

T5T61:

000007
052525
000003
177777

000000
004000

145260
145226

1%:

ARNN AR A A AN RRA RN AR R RN RN RRRANANANAN P A AN

SCOPE

MOV
MOV
MOV

MOV
TST
8M]
MoV

MoV

#7,3RHCS?2

HAB ,aRHTDB
#DMD !MCLK
, @RHMR1

#=1,3RHW(
R1

¢ZERO, 3RHBAE
#EVEN
, aRHBA
AD

ARRARAR N AN

RNSAR

RN RN

JSETUP UNIT SEVEN
JSETUP INFORMATION
JSETUP DIAG. MODE

;FOR ONE WORD

IS IT AT 0R 70

JIT'S AN 11
. ZERO BAE
JSETUP BA

MASSBUS RH70 AND RH11 DIAGNOSTIC
( /RHBE PN
07=JUN=79 13:44

5461
5662
5663
5464
5665

54666
5467
56468
5469
9470
9471
95472
5473
5474
5475
5476
9577
5478

5479
5480
5481
5682

5483
5484
5485
5486

5487
5488
5489
5490

5491
5492
5493
5494
9495
5496

5497
5498
5499
5500
5501
5502
9503
5504
5505
5506
5507

5508

5509
5510
551

5512

5513
5514
5515
5516

036106
036114
036122
036126
036132
036140
036142
036150
036156
036164
036172
036200
036204
036212
036214
036220
036222
036226
036234
036236
036242
036244
036246
036246
036254
C36262
036270
036272
036274
036300
036304
036310
036316
036324
036332
036340

012777
012777
005C37
005237
022737
201372
012777
012777
012777
012777
012777
005037
032727
001015
005237
001371
005037
032777
001004

000071
000001

003446
003446
000015
000003
000001
000003
000001
000000
003446
000200

003446
000200
003446

017737
017737
017737
005701
001406
005037
005037
000137
017737
01773%7
017737
017737
017737
017737
017737
017737
032777
001001

145056
145052
145046

104102

145214
145232

003446

2%:

165204
145176
145170
165162
145154
165116

18%:

003446

005237
001401
000770

MACY11
T61

003416
003424
036324

145044
145040
145010
145004
145000
144776
144756
144762

000200

145074

003420
003444
003414

003416
003424
003422
003432
003436

19%:

7$:

86%:

003442
144732

177777

022777

004002

144712

3%:

004000

164714

4%:

104143

001401
104144
023777
001401
104145
004737
105757
001402
104146
104170

007224
001103

8%:

5¢:

8
10:46

TEST #

#READQ, @RH(S1
#DMD
, aRHMR1
BITCNT

MOV
MOV
MOV
MOV
MOV

ADMD 'MCLK ,dRHMR1
#DMD ,aRHMR1
#DMD 'MCLK ,aRHMR 1
#DMD
, aRHMR 1
#7ERO,aRHMR1

INC
(MP
BNE

BITCNT
#15,BITCNT

(LR
BIT
BNE

BITCNT
#RDY ,aRH(S1

BNE

18%

INC

BITCNT

(LR
BIT

BIT(NT
ARDY ,aRHCST

PAGE

105

SEQ 0104

JTELL

IT TO READFROM

;MAN]JPULATE CLOCK
cCLEAR LOOP (OUNTER

. INCREMENT LOOP COUNTER
cIS IT THIRD LOOP FOR SUSEC WAIT

:NO LOOP AGAIN
JSTART (HANGING CLOCK
. CHANGE CLOCK AGAIN
sCHANGE CLOCK AGAIN

. CHANGE CLOCK AGAIN
;GET OUT OF DIAG MODE
;CLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET

s COUNT UP

<NOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
JIS IT SET YET?
JYES

BNE
INC
BEQ
BR

7%
BITCNT
7%
19%

MOV
MOV
MOV

aRHCST,(S1
ARHW(
, W(
ORHBA ,RA

;SAVE RHC(CS1

B8EQ

87%

JNO IT'S A 70
. CLEAR BAF

tLR
CLR

BAE
(S3

MOV

aRHBAE ,BAE

JMp

MOV
MOV
MOV

BIT

022777
001001

MOV
MOV
(LR

MOV
MOV
MOV
MOV

003440
001162

144722

READ OPERATIONAL

TST

87%:

12=JUL=79

3 QA(7052)

863

®RH(CS3.,(S3
aRH(S2,(S2
aRHST,DS1

aRHER,ER1
aRHTDB, TDR
aRHMR?,
T(
aRHTDB, $SREGO

#RDY ,aRH(CST

BNE
ERROR
(MP
BNE
ERROR
CMP
BEQ
ERROR

8%
102
#-1,aRHW(
3%
143
#0DDAD
, dRHBA
48
144

BEQ
ERROR
JSR

5%
145
R7 ,WHYFO

BEQ
ERROR
ERROR

6%
146
170

(MP

TSR

EVENAD ,aRHTDR

$ERFLG

;COUNT UP
sBIT IS NOT GOING TO SET

;SAVE

WORD

COUNT

;SAVE BUS ADDRESS

;IS

IT AN RH11

;CLEAR (S3
: CONT INUE

. SAVE BUS ADDRESS EXTENSION

;SAVE RH(CS3
JSAVE (S2

JSAVE
JSAVE
.SAVE
;SAVE

TESTER STATUS
ERROR REGISTER
TESTER DATA REG.
MRZ2 TESTER REG.
JGET DATA
;1S READY SET
JYES,CONTINUE TEST
JREADY DID NOT SET
;DID WC INCREMENT

JYES,CONT

JREADFROM OP, RATION DID NOT INC W(
;DID BA INCREMENT
JYES CONT TEST
;BA DID NOT INCREMENT AFTER AN READFROM OPERATIO
;DID INFO READFROM TESTER
SYES,CONT
JINFO DID NOT READFROM TESTER
;ARE ANY ERROR BITS
;WAS THER AN ERROR

JNO EXIT TEST

JTHESE ARE

THE

SET

C(ONTENTS OF

ALL

RH70 REG.

JTHIS IS TO COMMPLETE ERROR PRINTOQUT
]

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

5517
5518
5519
5520
5521
5522
5523
5524
5525
5526

5527
5528
5529
5530
5335
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562

5563

5564
5565
5566

5567
5568
5569
5570
5571
5572

036456
036462

004737
004737

MACY11
T61

006572
050210

6%:

30A(7052)

12=JUL=79

READ OPERATIONAL

SR
JSR

10:46

TEST 41

PAGE

106

SEQ 0105

R7,CLEER
R7,ERRTST

J*TEST 62

;CLEER ERRORS

READ OPERATIONAL

TEST

ANY

(NORMAL) 43

J*THESE TESTS VERIFY ALL READ AND WRITE CODES
J*WHETHER IT BE A READ REV. OR FWD OR A WJRITE REV.

OR fwD

;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
2 *NO ERRORS SHOULD OCCUR
AR

036466
036470
036476
036504
036512
036520
036526
036530
036532
036540
036546
036552
036560
036562
036566
036570
036574
036602
036604
036610
036612
036614
036614
036622
036630
036636
036640
036642
036646
036652
036656
036664
036672
036700
036706
036714
036722
036730
036736
036744
036746
036750
036754
036762
036764
036770

000004
012777
012777
012777
012737
012777
005701
100403

004737
023777
001407
005737
001403

000007
177777
004100
000000
125252

000000
000075
003446
000209

144642
144626
144622

144476
144472
144442
144436
144432
144430
144410
144414

000200

007224
004100
004100

#7 ,@RHCS2
#-1,dRHWC

#RBUF , aRHBA
#ZERO,RBUF
#0AB,aRHTDB
R1

144620
144562

1%:

MOV

#ZERO,aRHBAE

1445590

18%:

144526

19%:

BMI

003416
003424
036672

SCOPE
MoV
MOV
MOV

MOV
MoV
TST

003446

144510
144504
144500

AN AR AN AR AR RN AR

004100
144622

003446

003446
000200

A R A

TST62:

003420
003444
003414

003416
003424
003422
003432
003436
003442
003440
001162

AN RRARRAANN AR AN

;SETUP UNIT SEVEN
;FOR ONE WORD
;SRTUP
;SETUP
sSETUP
;IS IT

BA
DATA
TESTER DB
AN 11 OR A 70

JIT'S AN RH11

MOV
CLR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC

#READS ,QRHCS1
BITCNT
#RDY ,aRH(S1
2%
BITCNT
18%
BITCNT
#RDY ,@RHCS1
2%
BITCNT

JTELL IT TO READ4
;CLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
;COUNT UP
sNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
IS IT SET YET?
JYES
;COUNT UP

19%

BEQ

MoV
Mov
TST

aRHCS1T,CS1

aRHWC ,WC
aRHBA ,BA
R1

;JERO BAE

;BIT IS NOT GOING TO SET

s SAVE RHCS1

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

87%
BAE

87%:

BEQ
CLR
CLR
JMP
MOV

86%:

MOV

@RH(CS2,(S2

JSAVE RHCS3
sSAVE (S2

MOV

aRHTDB, TDR

;SAVE

BIT

#RDY ,@RHCS1T

MOV

MOV
MOV

3%:

MOV

144364

144366

AR AR AN R AN AN AN AN

BNE
ERROR
JSR
CMP
BEQ
TST
BEQ

€s3
86%
aRHBAE ,BAE

@dRHCS2,CS3

@RHST,DS1
aRHER ER1

dRHMR2, TC
aRHTDB, $REGO

3%
102
R7 ,WHYFO
RBUF ,aRHTDB
4%
RBUF
5%

JNO IT'S A 70
. CLEAR BAE
;CLEAR (S3
: CONT INUE
; SAVE BUS ADDRESS EXTENSION
;SAVE TESTER STATUS
s SAVE ERROR REGISTER
TESTER DATA REG.

JSAVE MR2 TESTER REG.
;GET DATA

;1S OR SET

;YES RDY IS SET
JREADY DID NOT SET
JARE ANY ERRORS SET
;DID INFO GET WRITTEN OR READ
s INFO GOT LOADED
sDOES RBUF = 0
;YES INFO DID NOT LOAD

MASSBUS RH70 ANC RH11 DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44

5573
5574
5575
5576
5527

036772

104147

036774
037000

000137

037002

00473

007224
001103

104150

10573

001402

037020
037024

104146
104170

004737
004737

006572
050270

MACY11
162

30A(3052)
ERROR

167

5%:

JMP
ERROR

49
150

4(%:

JSR

R7 ,WHYFO
$ERFLG

TSTR

BEQ
ERROR
6%:

12=JuL~-79
10:46
PAGE 107
READ OPERATIONAL TEST (NORMAL) #3

ERROR
JSR
JSR

146
170

R7.CLEER
R7 ,ERRTST

JALL BITS DID NOT LOAD DURINC
;AN READ4 OPERATION

SEXIT TEST

sREAD4 OPERATION DID NOT WORK
;NO BITS WHERE LOADED "0 RBUF
JANY ERRORS SET
;ANY ERRORS ?

cNOEXIT TEST

;PRINT REGISTERS

;CLEAR ERRORS

SEQ 0106

MASSBUS RH70 ANC RH11 DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44

5585

5586
5587
5588
5589
5590
5591
5592
5593

MACYi1
763

30A(7052)
12-JUL=-79
RH OPERATIONAL WRITE

JTEST 63

10:46
PAGE
TEST #2

108

SFQ 0107

RH OPERATIONAL WRITE

TEST 42

s*THESE TESTS VERIFY ALL READ AND WRITE CODES
J*WHETHER 1T BE A READ REV. OR FWD OR A WRITE REV.

;*DURING THESE TESTS THE
;*NO ERRORS

037030

000004

1$763:

SRRl

SCOPE

ARl

SHOULD OCCUR
AR

ARl

OR FuWD

TESTER TIMING IS MARGINED AND

RS R

AR}

MASSBUS RH70 aND RH11_DIAGNOSTIC
C(ZRHBE .11
07~JUN-79 13:44

5594
5595

55
%6
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616

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
037364
037372
037374
037376
037404
037406
037410
037416
037420

012777
012737
012777
012777
005701

000007
125252
0010C3
177777

012777
012777
012777
012777
005037
005237
022737
001372
012777
012777
012777
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237

000000
004000
000063
001001
003446
003446
000015

100403

001401

001003
001001
001003
001001
000000
003446
00020¢

MACY'1
T63

144300
004000
144300
144250
144264
144232
144220

1046140

022777

(01401

104147

2%:

164210
1644202
164174

144760

144122

18%:

144100

19%:

003446
003446
000200
003445

144062
144056
144052

003416
003424
037320

144050
144044
144014
144010
144004
144002
143762
143766

003420
003444
003474

7%:

87%:

000200

003416
003424
003422
003432
003436
003442
003440
001162
143736

177777

143726

8%:

004C02

1643716

86%:

3%:

SEQ 0108

#7 ,’8RH(CS?

JSETUP UNIT SEVEN
;SETUP INFORMAT JON
;FOR ONE WORD

MOV
MOV
MOV
MOV
CLR

#-1,aRHWC
R1
1%

#ZERC,RHBAE

INC

CMP
BNE

MOV
MOV
MOV
MOV
MOV

144166

000770

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001
104102
022777
001001

1%:

109

MOV
MOV
MOV
MOV
TST

BMI

144236

003446

9
E
12=-4UL=79
10:46
PAGE
RH OPERAT]IONAL WRITE TEST #2

30A(1052)

CLR
BIT
BNE
INC
BNE
CLR
BIT
B8NE
INC
8EQ
BR
MOV
MOV
MoV
TST

BEQ
CLR
CLR
JMP

MOV
MOV
MOV
MOV
MOV
MoV
MOV
MoV

BIT
BNE
ERROR
(MP
BNE
ERROR

(MP
BEQ

ERROR

#0AB, EVENAD
#DMD .MCLK ! SLKM, aRHMR1

AEVENAD
, aRHBA
HWRITEZ ,dRH(S1
#DMD ! SLKM, aRHMR1
BITCNT
BITCNT
#15,BITCNT

#DMD !MCLK ! SLKM, 3RHMR1
#DMD . SLKM, aRHMR 1
#DMD .MCLK . SLKM,@RHMR
#DMD . SLKM, aRHMR
#ZERQ,ARHMR1

BITCNT

ARDY ,aRHCST

7%
BITCNT
18%
BITCNT

#RDY ,@RH(CS1

7%
BITCNT
7%

19%

ARHCST,CST

aRHWC ,WC
aRHBA ,BA
R1

87%

BAE

cS3
86%

aRHBAE ,BAE
@RHCS3,(S3
aRH(CS2,(CS2
aRHST ,DS1
aRHER ,ER1
a@RHTDB, TDR
aRHMRZ2,
TC
aRHTDB, $REGO
gzov,aRHcs1

102
#-1,3RHWC

140

#0DDAD
, aRHBA

141

;SETUP DIAG. MODE

JISIT A11T0R 70
JIT'S AN 11
. JERO BAE
;SETUP BA
JTELL IT TO WRITETO
JMAN]IPULATE

CLOCK

;CLEAR LOOP COUNTER
JINCREMENT LOOP COUNTER
;IS IT THIRD LOOP FOR SUSEC wAIT
JNO LOOP AGAIN
;START

(CHANGING CLOCK

;. CHANGE CLOCK AGAIN
. CHANGE CLOCK AGAIN
;s CHANGE CLOCK AGAIN
;GET OUT OF DIAG MODE
;CLEAR BIT COUNTER
;IS RDY SET
JBIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
;IS IT SET YET?
:YES
;COUNT UP
;BIT IS NOT GOING TO SET

;SAVE RHCS1

;SAVE WORD COUNT

;SAVE BUS ADDRESS
;IS IT AN RH11

JNO IT'S A 70

;. CLEAR BAE

;JCLEAR (S3

s CONT INUE
2 SAVE BUS ADDRESS EXTENSION

;SAVE RH(CS3
;SAVE (€S2
;SAVE TESTER STATUS

;SAVE ERROR REGISTER

;SAVE TESTER DATA REG.
;SAVE MRZ2 TESTER REG.
;CET DATA
SET
Y
READ
;1S
E TEST
ONTINU
JYES,C
JREADY DID NOT

SET

;DID WC INCREMENT

JYES,CONT TEST
JWRITETO OPERATION DID NOT

.DID BA [NCREMENT
JYES CONT TEST
JBA DID NOT

INC W(

INCREMENT AFTER AN WKITETC OFERATION

MASSBUS RH70 AND RH11 DIAGNOSTI(
(ZRHBE PN
07=JUN=79 13:44

5650
5651

5652

5653
5654
5655
9656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688

5689
5690
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705

037422
037430

037432
037434
037440
037444
037446

037450
037452
037456

023777

001401

106142

004737
1058737

001402

104146
104170

004737
004737

904000

MACY11

763

143720

007224
001103

5%:

006572
050210

12=JuL=79

RH OPERATIONAL WRITE

(MpP
BEQ
ERROR
JSR
TSTR

BEQ
ERROR
ERROR
JSR
JSR

6%:
MR

3 QA(7052)

ASSARAS

TRTEST & 4

9
10:46

TEST #2

PAGE

o YES,CONT

JINFO DID NOT WRITETO TESTER
;ARE ANY ERROR BITS
JWAS THER AN ERROR

;THESE ARE THE CONTENTS OF AL. RH70 REG.
JTHIS IS TO COMMPLETE ERROR PRINTOUT

R7,CLEER
R7 ,ERRTST
READ OPERATIONAL

;CLEER ERRORS IF ANY

TEST

(NORMAL)

IT BE A READ REV.

T ERER LR LR

J*THESE TESTS VERIFY ALL READ AND WRITE CODES
;*WHETHER

SET

JNO EXIT TEST

146
170

ARl

SEQ 0109

;DID INFO WRITEIO TESTER

EVENAD ,aRHTDB
5%
142
R7 ,WHYFO
S$ERFLG

ARl

110

OR FWD OR A WRITE

REV.

OR FWD

;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
;*NO ERRORS SHOULD OCCUR
P

037462
037464
037472
037500
037506
037514
037522
037524
037526
037534
037542
037546
037554
037556
037562
037564
037570
037576
037600
037604
037606
037610
037610
037616
037624
037632
037634
037636
037642
037646
037652
Q37660
037666
037674
C37702
037710
037716
037724

000204
012777
012777
012777
012737
012777
005701
100403

012777
032777
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

000007

177777

004100
000000
125252

000000
000077

003446
000200

143646

AR RN AA AR AR A ANAARANRARRTARRRANRNARRN
P AANTRNRNARANARANSTANARRRAN AR
AN

?§764:

143632
143626

004100

MOV
MOV

163626€

TST
8M]

143624
163566

1%:

143554

18%:

003446

003446
009200

143532

19%:

003446

143514
143510
143504

003416
003424
037666

143502
143476
143446
1463442
143436
1434634
143474
143420

003420
003444
003414

003416
003424
003422
00343
003436
003442
003440
001162

SCOPE
MOV
MOV
MOV

2%:

MOV
MOV

CLR
BIT

BNE
INC
BNE
CLR

817
BNE
INC
BEQ
BR
MOV

MoV

87%:
86%:

MOV
TST
BEQ
(LR
CLR
JMP
MOV

MOV
MoV
MOV
MOV
MOV

MOV

#7 ,@RHCS2

#-1,aRHW(
HRBUF
, aRHBA
#ZERO ,RBUF

zOAB.aRHTDB
]

#ZERO, QRHBAE
#READG, aRH(S1

BITCNT
#RDY ,aRHCS1

;SETUP UNIT SEVEN
JFOR ONE WORD
JSRTUP BA

;SETUP DATA
JSETUP TESTER DR

JIS IT AN 11 OR A 70
JIT'S AN RH11

.
;ZERO BAE
;TELL IT TO READ6
sCLEAR 8BIT COUNTER
.1S RDY SET
;BIT IS SET
s COUNT UP

BITCNT
18%
BITCNT

JNOT

S YES

4RDY ,aRH(S1

BITCNT

19%

@dRHCS1T,(S1

IRHW(
, W(
aRHBA ,BA
R1

87%

BAE

CS3
86%

aRHBAE ,BAE

@dRH(S3,(S3

aRH(CS2,(S2
aRHST,DS7
aRHER,ER1
dRHTDB, TDR

aRHMR?,
T(
SRHTDB,
$RE GO

FINISHED

COUNT ING

;GET READY TO DO IT AGAIN
JIS IT SET YET?

. COUNT UP
JBIT IS NOT GOING TQO SET

. SAVE RHC(CS1
< SAVE WORD COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11

JNO IT*'S A 70
;CLEAR BAE
;CLEAR (S3
;CONTINUE
2 SAVE BUS ADDRESS EXTENSION
:SAVE RH(CS3
JSAVE (S2
JSAVE TESTER STATUS
;SAVE ERROR REGISTER
JSAVE TESTER DATA REG.
;SAVE MR2 TESTER REG.
;GET DATA

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

5706
5707
5708
$709

037732
037740
037742
037744

5710
037750
5711
037756
5712
037760
S713 037764
5714
037766
5715
5716 (037770
S717 Q37774
5718
5719
07776
5720 040002
5721
040006
57¢2
040010
5723
040012
5724 . 060014
5725
040020
5726

032777
001003
104102
Q04737
023777
001407
005737
001403
104115

¢22V11

000200

143370

007226
004100

143372

3s%:

004100

000°37
104307

037776

004°37
105737
001402
104146
104170
004737
004737

007224
0011C3

c%:
(%:
.

006572
050210

6%:
IR

30A(i052)
12-JUL=79
10:46
PAGE 111
READ OPERATIONAL TEST (NORMAL) #4

BIT
BNE
ERROR
JSR

(MP
BEQ
TST
BEQ
ERROR

ARDY ,aRH(S
3
102
R7,WHYFQO
RBUF ,aRHTDB
4%
RBRUF
5%
115

JMP
£ RROR

4%
107

JSR
TSTR
BEQ
ERROR
ERROR
JSR
JSR

R7 ,WHYFO
$ERFLG
(31
146
170
R7,CLEER
R7 ,ERRTST

A AN AR A

A AR R R RN A AR

SEQ 0110

;1S OR SET
JYES RDY IS SET
sREACY DID NOT SET
sARE ANY ERRORS SET

;DID INFO GET WRITTEN OR READ
JINFO GOT L OADED
:DOES RBUF = 0
;YES INFO DID NOT LOAD
JALL BITS DID NOT LOAD DURING
AN READ6 OPERATION
JEXIT TEST
JREADG OPERATION DID NOT WORK
sNO BITS WHERE LOADED TO RBUF
.ANY ERRORS SET
JANY ERRORS ?
JNOEXIT TEST
JPRINT REGISTERS
;CLEAR ERRORS

AN RN AR AANNR RN AR R AR R

AR R R A AR

RN NR RN

5727
5728
5729
5730
g;g;

J*TEST €5
RH OPERATIONAL READ TEST #2
s*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
2 *NO ERRORS SHOULD OCCUR

573%3

5734
5735
5736
5737
5738
5739
57640
57641
57642
5743
5744
5745
5746
5747

5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761

040024
040026
060034
040042
040050
(40056
(040060
040062
040070
040076
040104
040112
040116
040122

040130
040132
040140

040146
040154
040162
040170
040174
040202
040204
040270
040212
(40215
040224

00004
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
003446
003446
000015

143270
143236
143224
143242

001003
001001
001003
001001
000000
003446
000200

003446

75765:

1%:

2%:

MoV

143126

18%:

143104

16%:

A NN RN R AN AN NN AR AN AR RN AR NN A AN A AR AR R AN RN AR AR AR R AR RO R AR

SCOPE
MOV
MOV
MOV
MOV
TST
BMI
MOV
MOV
MOV
MOV
(LR
INC
MP

BNE
MOV

143274
143206
143200
143172
143164

003446
9003446
000200

R A AN

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

#7 ,dRH(CS?
#AB ,aRHTDB
#DMD M(LK .SLKM,aRHMR1
#-1,aRHWC
R1
1%
#/ERO, 3RHBAE
#EVENAD , aRHBA
#READZ,aRH(CS1
#DMD ! SLKM, aRHMR 1
BITCNT
BITCNT
#15,BITCNT

2%
#DMD 'MCLK ! SLKM,aRHMR 1
#DMD ! SLKM, aRHMR 1
#DMD !MCLK ! SLKM,gRHMR 1
#DMD ! SLKM, aRHMR1
#ZERO, aRHMR1
BITCNT
#RDY ,aRH(S1
7%
BIT(NT
18%
BIT(NT
#RDY ,adRKH(ST
.
7%

JSETUP UNIT SEVEN
;SETUP [NFORMAT
|ON
;SETUP DIAG. MODE
.FOR ONE WORD
JIS IT A 11 OR 70
JIT'S AN 11
s ZERO BAE
sSETUP BA
JTELL IT TO READFROM
<MANJPULATE (CLOCK
cCLEAR LOOP COUNTER
s INCREMENT LOOP COUNTER
JIS IT THIRD LOOP FOR SUSEC WAIT
;NO LOOP AGAIN
;START (HANGING CLOCK
sCHANGE CLOCK AGAIN
;s CHANGE (CLOCK AGAIN
sCHANGE (CLOCK AGAIN
;GET QUT OF DIAG MODE
;CLEAR B8IT COUNTER
;IS RDY SET
JBIT IS SET
s COUNT UP
JNOT FINISHED COUNTING
sGET READY T0O DO IT AGAIN
SIS IT SET YET?
JVES

MASSBUS RH70 AND RH11 DIAGNOSTIC
(ZRHBE P
07=-JUN=79 13:44

5762
576%
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775
5776
777
5778
5779
57890
5781
5782
5783
5784
5785
5786
5787
5788

5789
5790
5791
5792
5793
5794
579"

5796
5797
5798

040226
040232
040234

040236
040236

040244
040252
040260
060262
040264
040270
040274
(40300
0460306
040314
040322
040330
040336
040344
040352
040360C
040366
040370
040372
0404090
040402
040404
040412
040414
040416
0460424
040426
040430
040434

040440

040442

040444
040446
040452

005237

001401
000770

0177%7
017737
017737
005701
001606
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001
104102

MACY11

T65

003446

143066
143062
143056

003416
003424
040314

143C54
143050

003420
003444
003414

003416

003424
143020
003422
143014
003432
143010
003436
143006. 003442
142766
003440
142772
001162
142742
000200

7S:

87%:
86%:

H 9
12=JUL=-79
10:46

3 OA(7052)

RH OPERATIONAL

READ TEST #?

s COUNT UP
sBIT IS NOT GOING TO SET

MOV
MOV
Mov
TST
BEQ

@RHCST,(S1
ARHWC ,w(
aRHBA ,BA
R1

. SAVE RH(CS1
JSAVE WORD COUNT
;SAVE BUS ADDRESS
;IS IT AN RH11
JNO IT'S A 70

(s3
86%

;CLEAR (S3
+ CONT INUE
cSAVE BUS ADDRESS EXTENSION

CLR
CLR
JMP

MOV
MOV
MOV
MOV
MOV
MOV
MOV

19%

87%
BAE

;CLEAR BAE

adRHBAE ,BAE

@RHCS3,(S3

#RDY ,@RH(CS1

102
#-1,aRHW(

#0DDAD
, aRHRA
43

023777
001401

004000

142724

004737

007224

EVENAD ,aRHTDR
5%
145
R7,WHYFO
$ERFLG
6%

162732

163

104146

104170
004737
004737

JREADFROM OPERATION DID NOT

;ARE ANY ERROR BITS
;WAS THER AN ERROR

6%:

JSR

SET

:NO EXIT TEST

146

006572
050210

s THESE ARE THE CONTENTS OF ALL RH7G REG.
JTHIS IS TC COMMPLETE ERROR PRINTOUT

170
R7,CLEER
R7,ERRTST

cCLEER FRRORS IF ANY

'.'I'ttttit.t*itttt't'fi.ttt"'t'tt"t't..ttt'fi"t't'tttt"t!ti'ttt

SSTEST 6 6

WRITE OPERATIONAL

TEST

(NORMAL)

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
2*NO ERRORS SHOULD OCCUR

MALARE RSS2

5811
5812

5817

040456
040460
040466
040474
040502
040510
040516
040520
040522

000004
012777
012777
012777
012737
012777
005701
100403

01777

000007
177777

004100
125252

000000
000000

162652
142636
1642632

0046100
142632

T4ce30

15766:

SCOPE
MOV
MOV
MOV

MOV
MOV

TST
8M]
MOV

#7,8RH(S52
#-1,3RHW(

#RBUF
, aRHBA

222

R R

JSETUP UNIT SEVEN
cFOR ONE WGCRD

;SPTUP BA

zngO.iRHTDB

sSETUP DATA
JSETUP TESTER DB

18
#7ERO, IRHBAF

JIT°S AN RHTI
;s ZERQ BAE

#0AB
, RBUF

INC WwC

.DID BA INCREMENT
;YES CONT TEST
;BA DID NOT INCREMENT AFTER AN READFROM OPERATIO
;DID INFO READFKROM TESTER
JYES,CONT
JINFO DID NOT READFROM TESTER

144

001103

TESTER STATUS

;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MR? TESTER REG.
JGET DATA
;1S READY SET
JYES,CONTINUE TEST
;READY DID NOT SET
cDID WC INCREMENT
JYES,CONT TEST

aRHTDB, $REGO

142722

007402

;SAVE

aRHMR2,
T(

004002

105737

;SAVE RH(CS3
;SAVE (S2

@RH(CS2,(S2
aRHST ,DS1
aRHER,[R1
aRHTDR, TDR

022777
001401

104145

S€Eo 0111

BITCNT
7%

177777

104144

112

INC
BEQ
BR

022777
001001
104143

PAGE

JIS 1T AN 11 OR A 70

)

MASSBUS RH7C ANC RH11

£837
5838
5839
5840
5841
5842
5843
5844
5845
5846

5847
5848
5849
5850
5851
5852

5853

5854
5855
5856
5857
5858
5859
5860

5861

005037
005037
000137

017737
017737
017737
017737
017737
017737
017737

017737
032777
001003
104102

004737
023777
001407
005777
001403

T66

142572

1%:

142560

18%:

003446
000200

142536

——a

003416
003424
040662

142506
142502
142452
142446
142442
142440
162420
142424

000200
007224
004100

003416
003424
003422
003432
003436
003442
003440
001162
142374

142376

INC
BNE
CLR
B8IT
BNE
INC
BEQ
BR

19¢:

’%:

MOV
MOV
MOV
TST

86%:

BIT

BNE
ERROR
JSR
mMp
BEQ

3%:

142370

TST
BEQ
ERROR

000737

040772
04076
041002
041004
041006
041010
041014

004737
105737
001402

104152

104146
104170

004737
004737

040772

007224
001103

006572
050210

P/SE

(NORMAL)

113

LAl

JTELL

SEQ 0112

IT TO WRITEO

;CLEAR BIT COUNTER

:1S RDY SET
JBIT IS SET
s COUNT UP

BITCNT
18%
BITCNT

sNOT FINISHED COUNTING

:GET READY TO DO IT AGAIN
SIS IT SET YET?
JYES
UP
;COUNT
JBIT IS NOT GOING TO SET

@RHCST,(S1

¢ SAVE

#RDY ,@RH(S?

BITINT
19%

aRHW( ,wC
ARHBA ,BA
R1

;SAVE

RH(CS1
WORD

COUNT

;SAVE BUS ADDRESS
SIS IT AN RHIT

87%

aRHARAE ,BAE

MOV
MOV
MOV
MOV
MOV

TEST

ARDY ,3RH(S!

MOV
MOV

10:46

BITCNT

BAE

MOV

MWRITEQ,BRH(S)

BEQ
CLR
CLR
JMP

87%:

12=JUL=79

OPERATIONAL

BIT
BNE

JNO IT'S A 70
. CLEAR BAE
JCLEAR (S3
s CONT INUE
s SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
sSAVE (S2

€S3
86%

adRH(S3,(S3
®RH(S2,(S2
@RHST ,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR?2,
TC
ARHTDRB,
$RE GO

;SAVE TESTER STATUS
; SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
sSAVE MRZ TESTER REG.

;GET DATA
;1S OR SET

#RDY ,aRHCS1

;YES RDY

102
R7 ,WHYFO

SET

JREADY DID NOT SET

RBUF ,aRHTDB
4%
aRHTDB

JARE

ANY ERRORS

SET

JYES

INFO DID NOT LOAD

;DID INFO GET WRITTEN OR READ
; INFO GOT LOADED
;DOES QRHTDB = 0

5%
151

SALL BITS DID NOT LOAD DJRING

5%:

JMP

ERROR

4%
152

JWRITEQ OPERATION DID NOT WORK

4%:

JSR
TSTB

R7 ,WHYFO
$ERFLG
6%
146
170
R7,CLEER
R7.,ERRTST

104151

040764
040770

WRITE

(LR

003446

003420
003444
003414

30A(3052)
MOV

003446

(941V, 1V, ]

017737
017737
017737
005701
001406

000061
003446
000200

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

040530
040536
040542
040550
040552
040556
040560
0460564
040572
040574
040600
040602
0400604
040604
040612
040620
040626
040630
040632
040636
040642
040646
040654
040662
040670
060676
040704
040712
040720
040726
040734
040736
040740
040744
040752
040754
040760
040762

[l
o o
AS1aS 1LV

5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835

07=JUN=79 13:44

C/RHBE P11

MACY1T

DIAGNOSTIC

BEQ
ERROR
ERROR
JSR
JSR

6%:
AR

R AR

AR AR

SSTEST 67

s*THESE

AR NN AN

JAN WRITEQ OPERATION
JEXIT TEST

AR AR

;NO BITS WHERE LOADEL TO aRHTDAB
JANY ERRORS

SET

;ANY ERRORS ?
JNOEXIT TEST

;PRINT REGISTERS

;CLEAR ERRORS
N AR R AN

AN AR

RH OPERATIONAL WRITE
TESTS VERIFY ALL

R AN TN AN NT

I RARREN

TEST #3

READ AND WRITE

CODES

SJ*WHETHER IT BE A READ REV. OR FWD OR A WRITE REY. OR FuWD
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND
:*NO ERRORS SHOULD OCCUR

MASSBUS RH70 ANC RH11_DIAGNOSTI(

C(ZRHBE .P13
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5501
5902

MACY11
167

07=-JUN=-79 13:44

PPN

041020
041022
041030
041036
041044
041052
041054
041056
041064
041072
041100
041106
041112
0461116
061124
041126
061134
041142
041150
041156
0461164

041170
041176

041200
041204
0417206
041212
041220
041222
041226
041230
041232
041232
041240
041246
041254
041256
041260
041264
041270
041274
041302
041310
041316
041324
041332
041340
041346
041354
041362
041364
041366
0461374
041376
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
017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001
104102

000007
125252
003003
177777

000000
004000
000065
003001
003446
003446
000015
003003
003001
003003
003001
000000
003446
000200

003446
000200

003446

1%:

003446

2%:

142220

142212

142204
142176
162170
142132

"8%:

142110

19%:

142060
142054
142026
142020
142014
142012
161772
141776

000200

177777

022777

004002

7%:

86%:

141746

141736
141726

8%:
3%:

#DMD MCLK .SLKM, ISLK,aRHMR1

#0AB,EVENAD

SEQ 0113

R NN AN AANANARRINARNRR AN RN NN RSN

MOV

JSFTUP UNIT
;SETUP

SEVEN

INFORMATION

MOV
TST

#-1,3RHWC
R1

.FOR ONE WORD
IS IT A 11 0R

MOV
MOV

#7ERO,dRHBAE
#EVENAD , aRHBA

.ZERO BAE
JSETUP BA

MoV

#DMD ! SLKM!' ISLK ,dRHMR"

MOV
(LR

MIRITESL ,8RHCST

JIT'S AN 11

JTELL

IT TO WRITETO

;MAN]IPULATE (CLOCK

;CLEAR LOOP COUNTER

#15,BITCNT

JIS

BITCNT

BNE

JSETUP DIAG. MODE

BITCNT

INC

(MP

s INCREMENT LOOP COUNTED
IT

THIRD LOOP FOR SUSEC WAIT

;NO LOOP AGAIN

MOV
MOV
MOV
MOV
MoV
(LR

#DMD !MCLK ! SLKM! ISLK, dRHMR1
;START CHANGING CLOCK
#DMD . SLKM! [ SLK, aRHMR1
;s CHANGE (LOCK AGAIN
#DMD MCLK !SLKM!ISLK,3RHMR1
;CHANGE (LOCK AGAIN
#DMD . SLKM! ISLK,aRHMR
. CHANGE CLOCK AGAIN
#7ERO,?RHMR1
;GET OUT OF DIAG MODE
BITCNT
JCLEAR BIT COUNTER

CLR
BIT

BITCNT
#RDY ,dRHC(CS1

BIT
BNE
INC
BNE

BNE
INC
BEQ
BR

MOV

#RDY ,aRH( 1
7%
BITCNT
18%
7%
BITCNT
7%
19%

@RH(CS1,CS1

;IS RDY SET
;JBIT IS SET
;COUNT UP
JNOT FINISHED COUNTING

JGET READY TO DO
JIS IT SET YET?

;SAVE RHCS?

aRHW(C ,W(C
adRHBA ,BA

s SAVE WORD COUNT
. SAYE BUS ADDRESS

BEQ

87%

JNO IT'S A 70

CLR
JMP
MOV

MOV

MOV
MOV
MOV
MOV
MOV
BIT

BNE
ERROR
(MP
BNE
ERROR
(MP

BAE

IT AGAIN

JYES
:COUNT UP
;BIT IS NOT GOING TO SET

MOV
MOV
TST

87%:

A RN

114

A7 ,aRHCS2

CLR

003416
003424
003422
003432
003436
003442
003440
001162

ARRARAARNN PR

10:46
PAGE
TEST #3

SCOPE
MOV

BMI

003420
003444
003414
003416
003424
041310

AN RARARNA NN

MOV

003446

022777
001001
104140

142310
004000
142310
142260

TST67:

7QA(°052)
12-JUL=79
RH OPERATIONAL WRITE

;IS

IT AN RK11

. CLEAR BAE

(S3
86%
aRHBAE ,BAE

JCLEAR (S3
; CONT INUE
;SAVE BUS ADDRESS EXTENSION

aRH(S2,(S2

JSAVE (S2

aRH(CS3,(S3

aRHST,DS]
@RHER,ER1
akHTDB,TDR
ARHMRZ, T(
aRHTDB,$REGO
#RDY ,8RHCS1

8%
102
#-1,3RHWC
3%
140
#0DDAD , aRHBA

;SAVE RH(S3

;SAVE TESTER STATUS
;SAVE ERROR REGISTER
;SAVE TESTER DATA REG.
;SAVE MRZ2 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

MASSBUS RH70 AND RM11 DIACNOSTIC
(ZRHBE P11
07-JUN=79 13:44

5940

9941
5942
9943
5944
5645

5946
5947
5948
5949

5950
5951
5952
95953
5954
5955
5956
5957
5958
5959
5960
5961
5962

5963
5964
5965
5966

5967

5968

041406
041410
041412
041420
0461422
041424
041430
0461434
041436
041440
041442
041446

167

001401
104141

023777

004000

004737

007224
001103

001401
106142

105737
001402
104146
104170

004737
004737

161730

30A(7052)

12-0UL=79

6%:

cMP

5%
147
R7 ,WHYFQO

TSTB

$ERFLG

;+TEST

BEQ

FRROR
JSR
JSR

170
R7,CLEER
R7 ,ERRTST

A AR

PAGE

EVENAD ,aRHTDB

8EQ
ERROR
JSR

10:46

4%
141

ERROR

006572
050210

RH OPERATIONAL WRITE TEST 43

BEQ
ERROR

5%:

AN R

R R A

NN R

SEQ 0114

JYES CONT TEST
;BA DID NOT INCREMENT AFTER AN WRITETO OPERATION

:Di1D

INFO WRITETO

;WAS

THER AN ERROR

TESTER

sYES,CONT
sINFO DID NGT WRITETO TESTER
JARE ANY ERROR BITS SET

sNO EXIT TEST

146

R R

115

;THESE ARE

THE CONTENTS OF

ALL RH70 REG.

sTHIS IS TO COMMPLETE ERROGR PRINTOUT
;CLEER ERRORS IF ANY

AN AR R R AR RN R ANRA A ANRRARANA

R ANNR R R RN N

70
WRITE OPERATIONAL TEST (NORMAL) #?2
J*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

2 *NO ERRORS SHOULD OCCULR

SRR

041452
0461454
041462
0461470
0461476
041504
041512
0461514
041516
041524
041532
041536
041544
041546
041552
041554
041560
041566
041570
041574
0461576
041600
041600
041606
041614
041622
041624
041626
041632
041636
0461642
041650
041656
41664

5969
5970
5971
5972
5973
5974
5975.
5976
5977
5978
5979
5980
5981
5982
5983
5984 + 061672
5985
041700

000004
012777
012777
012777
012737
012777
005701
100403
012777
012777
005037
032777
001015
005237
001371
005037
032777

003446
000200

005237

003446

001004,
001401

000007

141656
141642
141636

177777

004100
125252

141634
161576

1%:

161564

18¢%:

003446

000770

]

017737
017737
017737
005701
001406
005037
005037
000137
017737,
017737
017737

003420
003444
003414

017737
017737
017737

19%:

2%:

87%:
86%:

#7 ,aRHCS?
#-1,3RHWC

#RBUF , aRHBA
#0AB ,RBUF

R AR

R ANRAANNRARR AN

cSETUP UNIT SEVEN
;FOR ONE WORD
JSRTUP BA
;SETUP DATA

;SETUP TESTER DB

BM]
MOV

1%
#Z7ERO, SRHBAE

JIT'S AN RH11
. ZERO BAE

JIS

IT AN 11T

OR A 70

MOV
(LR

#WRITEZ ,QRHCS?
BITCNT

JTELL IT TO WRITE?
;CLEAR BIT COUNTER

BNE

cBIT

BIT

BNE
CLR
BIT
BNE
INC
BEQ
BR

Mov

#RDY ,aRH(CS1

BITCINT

)

18%
BITCNT
#RDY ,aRH(CST

2%
BITCNT
2%
198

aRM(CST,CST

.1S RDY SET
IS SET

JCOUNT UP

JNOT FINISHED COUNTING
;GET READY TO DO [T AGAIN
JIS IT SET YET?

JYES
s COUNT UP
;BIT IS NOT GOING TO SET
\

. SAVE RH(CS1

MOV
MOV
TST

@RHWC,WC
aRHBA ,BA
R1

,*SAVE

(LR

BAE

. CLEAR BRAE

BEQ

003416
003424
003422
003432
003436
003442

A RRARARRA AR

#ZEROC,aRHTDR

INC

161542

AR RN RN

MOV
TST

000000
000063
003446
000<00

SCOPE
MOV
MOV

MoV
MOV

141636

000000

R RN AN AN AT AR

TST70:

004100

5930
593
5932
9933
5934
5935
5936
5937
5938
5939

MACY11

(LR
JMP
MOv
MOV
MOV

MOV
MOV
MOV

B7%

(S3
86%
QRHBAE ,BAE
@RH(S3,CS3
aRH(S2,(S2

aRHST,DS1
aRHER ER]
aRHTDR, "DR

WORC COUNT
. SAVE BUS ADDRESS
;IS IT AN RH11

JNO IT'S A 70

;CLEAR (S3
!
;CONTINUE
;SAVE BUS ADDRESS EXTENSION
;SAVE RH(CS3
;SAVE (S2

;SAVE
.SAVE
;SAVE

TESTER STATUS
ERROR REGISTER
TESTER DATA RESG.

’

MASSBUS RH7Q AND RH11

CZRHBE .P11

5986
5987
5988
S989
5990

5991
5992
5993
5994
5995
5996

_DIAGNOSTIC

07=JUN=79 13:44

0461706
041714
041722

017737
017737
032777

141424
141430
000200

04173&
041740
041746
041750
041754

004737
023777
001407
005777
001403

0072264
004100

0641730
041732

041756

001003
104102

000137
104152

041766

041766
041772
041776

004737
105737
001402

007224
001103

6005
6006
6007

042002
042004
042010

104170
004737
004737

6008

042000

141402

.
»
5% :
(% :

006572
050210

6%:

’

TEST

PAGE

(NORMAL)

116

SEQ 0115

;SAVE MR2 TESTER REG.
;GET DATA
;1S OR SET

JSR
CMP
BEQ
TST
BEQ

R7,WHYFO
RBUF ,aRHTDB
43
SRHTDB
Ss
.

:ARE ANY ERRORS SET
:DID INFO GET WRITTEN OR READ
; INFO GOT LOADED
:DOES RRHIDB = 0
:YES INFO DID NOT LOAD

JMP
ERROR

4%
152

JSR
TSTB
BEQ

R7,WHYFO
$ERFLG
0$

ERROR
JSR
JSR

170
R7.CLEER
R7,ERRTST

ERROR

3s
102

151

SYES RDY IS SET
;READY DID NOT SET

]

;ALL BITS DID NOT LOAD DURING

;AN WRITE2 OPERATION
SEXIT TEST
WRITE2 OPERATION DID NOT WORK
:NO BITS WHERE LOADED TO RRHTDB
;ANY ERRORS SET
:ANY ERRORS ?
:NO,EXIT TEST
,

146

*PRINT REGISTERS
:CLEAR ERRORS

*TEST 71
RH OPERATIONAL READ TEST #3
;*THESE 'TESTS 'VERIFY ALL READ AND WRITE CODES
J*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV.

;*NO ERRORS SHOULD OCCUR
TESTS

THE

OR FWD

TESTER TIMING IS MARGINED AND

.-'-ttttttttttttttttttttttttttttIttttt!ttttittfitttttttttttttttttttt

6016
6017
6018
6C19
6020
6021
6022
6023

042014
042016
042026
042032
042040
(042046
042050
042052

6025
6026
6027
6028
6029
6030
6031
6032
6033
603
6035

042066
042074
042102
042106
042112
042120
042122
042130
042136
042144
042152

6037

042164

6040
6041

10:46

ARHMR2, T(
@RHTDR, $RE GO
#RDY ,ARHCST

:*DURING THESE

28}2

6039

OPERATIONAL

;.'tttttttttttttttitt*tttttttttttttfitttttttttttttttttttttntttttttfi

6015

6038

12-JuL=-79

MOV
MOV
BIT

ERROR

6012

6036

3$%:

104146

6009
6010
6011

6024

WRITE

BNE
ERROR

104151

041760
041764

30A(3052)

003440
001162
141400

141374

5997
5998
5999
6000
6001
6002
6003

6004

?98Y11

042060

000004
012777
012777
012777
012777
005701
100403
012777

012777

000000

141300

141234
141252

004000

141246

000075
003001
003446
003446
000015

003446

003003
003001
003003
003001
000000

141224
141216
141210
141202
141174

032777

000200

141136

0052337

003446

005037

042172

001015

042200
042202

141314
141316
141314
141264

012777
012777
005037
005237
022737
001372
012777
012777
012777
012777
012777

042160

042174

000007
052525
003003
177777

001371
005037

003446

TST71:

1%:

2%:

18%:

SCOPE
MoV
MOV
MOV
MoV
ST
BM]
MoV

#7 ,8RHCS2
;SETUP UNIT SEVEN
#AR,ARHTDB
:SETUP INFORMAT]ON
#DMD ' SLKM! ISLK 'MCLK , 3RHMR1
:SETUP DIAG. MODE
#-1,3RHWC
:FOR ONE WORD
R1
;1S IT A 11 OR 70
18
JIT'S AN N
#7ERO, aRHBAE
:ZERO BAE-

MOV
MoV
CLR
INC
CMP
BNE
MOV~
MOV
MOV
MOV
MOV

#READ4 , @RHCS1
sTELL IT TO READFROM
#DMD ! SLKM ' [ SLK , @RHMR1
:MANIPULATE CLOCK
BITCNT
:CLEAR LOOP COUNTER
BITCNT
: INCREMENT LOOP COUNTER
#15,BITCNT
1S IT THIRD LOOP FOR SUSEC WA]T
23
:NO LOOP AGAIN
ADMD!SLKMY ISLK'MCLK,3RHMR1
_;START CHANGING CLOCK
#DMD
' SLKM!
I SLK , aRHMR1
;CHANGE (CLOCK AGAIN
#DMD
' SLKM'
ISLK 'MCLK
, 3RHMR 1
:CHANGE CLOCK AGAIN
#DMD ' SLKM ' [ SLK , aRHMR1
:CHANGE CLOCK AGAIN
#ZERO,aRHMR1
:GET OUT OF DIAG MCDE

MoV

#EVENAD , 3RHBRA

:SETUP BA

CLR

BITCNT

:CLEAR BIT COUNTER

BNE

BIT
INC

BNE
(LR

#RDY ,@RH(CS1

BITCNT

18%
BITCNT

;1S RDY SET
:BIT

IS SET

:COUNT UP

:NOT FINISHED COUNTING
;GET READY TO DO [T AGAIN

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

6042
6043
6044
6045

L6046
6047
6048
6049
6050
6051
6052

042206
042214
042216
042222

042224
042226
(42226
042234
042242
042250
042252
6053 042254
6054
042260
6055
042264
6056
042270
6057 042276
6058
042304
6059 042312
6060 042320
6061
042326
6062
042334
6063 042342
6064
042350
6065
042356
6066
042360
6067
042362
6068
042370
6069
042372
6070 042374
6071
042402
6072 042404
6073
042406
6074
042414
6075
042416
6076
042420
6077 0424246
6078 042430
6079 042432
6080 042434
6081
042436
6082
042442

032777
001004
005237
001401
000770
017737
017737
017737
00570
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001
104102
022777
001001
104143
022777
001401
104144
023777
0016401
104145
004737
105737
001402
104146
104170
004737
004737

00020C

141114

30A(7052)
12-JUL=79
10:46
PAGE
RH CPERATIONAL READ TEST #3

19%:

BIT
BNE
INC
BEQ
BR

#RDY ,aRHCS|
7%
BITCNT
7$
19%

IS IT SET YET?
JYES
'
s COUNT UP
sBIT IS NOT GOING TO SET

MOV
MOV
MOV
TET
BEQ
CLR
(LR
JMP
MOV
MOV
MoV
MOV
MOV
MOV
MoV
MOV
BIT
BNE
ERROR
CMP
BNE
ERROR
CMP
BEQ
ERROR
CMP
8EQ
ERROR
JSR
TSTB
BEQ
ERROR
ERROR
JSR
JSR

dRH(S1,CST
aRHW( , W(
aRHBA ,BA
R1
87%
BAE
€s3
86%
aRHBAE ,BAE
@RH(CS3,(S3
IRHCS2,(S2
aRHST,DS1
aRHER,ER1
aRHTDB, TDR
aRHMR?, TC
aARHTDB, $REGO
H#RDY ,aRHCS1
8%
102
#=1,RHWC
3s
143
#0DDAD , RHBA
4%
144
EVENAD ,aRHTDB
5%
145
R7 ,WHYFO
$ERFLG
6%
146
170
R7,CLEER
R7 ,ERRTST

s SAVE RH(CS1
;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
s SAVE RH(CS3
s 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
JREADY DID NOT SET
;DID WC INCREMENT
JYES,CONT TEST
;READFROM OPERATION DID NOT INC wC
;DID BA INCREMENT
JYES CONT TEST
;BA DID NOT INCREMENT AFTER AN Rt ADFROM OPERATIO
;DID INFO READFROM TESTER
JYES,CONT
;INFO DID NOT READFROM TESTER
JARE ANY ERROR BITS SET
;WAS THER AN ERROR
JNO EXIT TEST
;THESE ARE THE CONTENTS OF ALL RH70 REG.
JTHIS IS TO COMMPLETE ERROR PRINTOUT
;CLEER ERRORS [F ANY

003446

141076
141072
141066

003416
003424
042304

003420
003444
003414

7%:

1410646
141060
141030
141026
141020
141016
140776
141002
000200

003416
003424
003422
003432
003436
003442
003440
001162
140752

87%:

177777

140742

8%:

004002

140732

3%:

004000

140734

4%:

86%:

007224

5¢:

006572
050210

6%:

001103

¢9gv11

117

SEQ 0116

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

MACY11

30A(i052)

172

WRITE OPERATIONAL
AR

LLTEST 72

6084

12-JuL=-79

IA N AR AARNAAN

10:46
PAGE 118
TEST (NORMAL) #3

AN RN

SEQ 0117

NAARAR I ARNANNANNNARANNANCAARAA
AN
AN RN

WRITE OPERAT]ONAI

TEST

(NORMAL)

J*THESE TESTS VERIFY ALL READ AND WRITE (ODES
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV.

;*DURING THESE

TESTS

THE

;*NO ERRORS SHOULD OCCUR

TESTER TIMING

OR FWD

IS MARGINED AND

Y
R

NeYs R NTo SV, ¥ NV ], N}

—
—
el
b

—
R
RS

—

CCRANARANARANACAAAANARANOA
RN RN NN AAN RN NN NN RN AR
NANE AR AN AR AR RN ES

6133
6135
6136
6137
6138

042446
042450
042456
062464
042472
042500
042506
042510
042510
042520
042526
042532
042540
042542
042546
042550
042554
042562
042564
042570
042572
042574
042574
042602
0462610
042616
042620
042622
042626
042632
042636
042644
042652
042660
042666
042674
042702
042710
042716
042724

042726
042730
042734
042742
042744
042750
042752

000004
012777
012777
012777
012737
012777
005701
100403
012777
012777
005037
032777
001015
005237
001371
005037
032777
001004
005237
001401
000770

017737
017737
017737
(05701
001406
005037
005037
000137
017737
0177%7
017737
017737
017737
017737
017737
017737
032777
001003
104102

004737
023777
001407
005777
001403
104151

000007
1777277
004100
125252
000000

140662

TS172:

140646

140,42

SCOPE
MOV
Mov

#7 ,aRH(CS?2
#-1,aRHW(

MOV
MOV
ST

#0AB ,RBUF
#2ERO,’RHTDB
R1

MOV

004100
140642

amM]

#RBUF ,aRHBA

000000
000065

140640
1460602

1%:

MOv
MOV

#2ERO, SRHBAE
AWR]ITESL ,aRH(S)

000200

140570

18%:

BIT

(LR

BITCNT

BNE
INC

g3
BIT(NT

(LR

BITCNT

BNE
INC
BEQ

2%
BITCNT

MOV
MOv
MOV

aRH(CS1,(S1
aRHW(
, wW(
aRHBA ,RA

003446
003446

003446
000200

BNE
140546

19%:

003446

140530

140524
140520

003416
003424
042652
140516
140512
140462
140456
140452
140450
140430
140434

000200

007224
004100
140400

003420
003444
003414

2$:

BIT

B8R

87%:
86%:

140404

140406

18%

#RDY ,aRH(CS1

19%

SEVEN

WORD

;SRTUP BA
;SETUP DATA
JSETUP TESTER DR

;IS IT AN 11T OR A 70
J1T'S AN RH11Y

; JERO BAE
SJTELL IT TO WRITES
JCLEAR BIT COUNTER

;1S RDY SE7T

JBIT IS SET
;COUNT P

JNOT FINISHED COUNTING

;GET READY

TO DO |7 AGAIN

JIS IT SET YET?
JYES
JCOUNT uP
JBIT IS NOT GOING 'O SET

: SAVE RH(CS1

;SAVE WORD COUNT

TST

;SAVE BUS ADDRESS
JIS IT AN RHN

CLR

BAE

JCLEAR BAE

BEQ

003416
003424
003422
003432
003436
003442
003440
001162

#RDY ,aRH(CS1

cSETUP UNIT

.FOR ONE

(LR
JMP
MOV
MOV
MOV

Mov
MOV
MOV
MoV
MOV
81T

87%

(S3
86%

aRHBAE ,BAE
BRHCS3.CS3
aRH(SZ,(S2

aRHST ,DS1
oRHER ,ER1
oRHTDB,TDR
aRHMRZ, TC
aRHTDB
SRE GO
,
#RDY ,aRH(S1

JNO IT'S A 70

:CLEAR (S3
s CONT INUE
;SAVE BUS ADDRESS EXTENSION
JSAVE RH(S3
;SAVE (S2

;SAVE

TESTER STATUS

sSAVE

TESTER DATA REG.

sSAVE ERROR REGISTER

JSAVE MR?2 TESTER REG.
;GET DATA
;IS OR SETY

BNE
ERROR
JSR
CMP
8EQ

3%
102
R7,WHYFQ
RBUF ,aRHTDB
43

-ARE

8EQ
ERROR

5%
161

JYES INFO DID NOT LOAD
;ALL BITS DID NOT LOAD DURING

aRHTDR

:YES RDY

S SET

JREADY DID NOT SET
ANY ERRORS

SET

sDID INFO GET WRITTEN OR READ
JINFO GOT LOADED
;DOES QRHTDB = 0

;AN WRITESL OPERATION

MASSBUS RH70 AND RH11 DIAGNCSTIC
(ZRHBE .P11
07=UUN=79 13:44

?95V11

6*39
6160

042756
042760

000137
104152

042762

6142
6143
6144
6145
6166
6147
6148

042762
042766
062772
042774
042776
043000
0430064

004737
105737
001402
104146
104170
004737
004737

007226
001103

6%:

006572
(050210

£s:

6141

6149

5%:

8 10

30A(7052)
12-JUL~79
10:46
PAGE 119
WRITE OPERATIONAL TEST (NORMAL) #3

JMP
ERRCR

33
152

JSR
TSTR
BEQ
ERROR
ERROR
JSR
SR

R7,WHYFO
$ERFLG
6%
146
170
R7,CLEER
R7 ,ERRTST

AR R

R AN AN

A AR

SEQ 0118

JEXIT TEST
JWRITEL OPERATION DID NOT WORK

JNO BITS WHERE LOADED

JANY ERRORS SET
JANY ERRORS ?
JNOEXIT TEST
JPRINT REGISTERS

TC aRHIDR

. CLEAR ERRORS
T

RN AR NN A N RN AR

A I AR R R AR

RN R AR R A NN R

6150
6151
6152
6153
g}gé

J*TEST 73
RH OPERATIONAL WRITE TEST #4
;*THESE TESTS VERIFY ALL READ AND WRITE (CODES
J*WHETHER [T 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

6156

6157
6158
6159
6160

043010
043012
043020
043026

000004
012777
012737
012777

6162
6163
6164
6165
6166

043042
(043046
043046
043054
043062

005701
100403
012777
012777
012777

6161

6167
6168
669
6170
6171
6172

6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194

0463034

04307C
043076
043102
045106
043114
0463116

0463124
043132
043140
043146
043154
043160
043166
043170
043174
043176
063202
043210
043212
043216
043220
043222
043222
043230
043236
043244
(063246
043250

0127727

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

000007
125252
000003

177777

000000
004000
000067
000001
003446
003446
000015
000003
000001
000003
000001
000000
003446
000200

140320
004000
140320

TS173:

140270

140304
140252
140240
140256
003446

1%:

2%:

140230
140222
140214
140206
140200
140742

"8%:

140120

"*9%:

003446
003446
000200
003446

140102
140076
140072

003416

003420
003444
003414

7%:

N R T RN A A AN R AR R AN R TR AR R A RN AR RN A AR IR R RN RNARRRAARR AN

SCOPE
MOV
MOV
MOv

RARS

MOV

#7,dRHCS?
#0AB, EVENAD
#DMD 'MCLK ,aRHMR1

JSETUP UNIT SEVEN
;SETUP INFORMATION
;SETUP DIAG. MODE

#-1,aRHW(

.FOR ONE WORD

MOV
(LR
INC
(MP
BNE
MOV

#DMD ,aRHMR1
BIT(NT
BITCNT
#15,BITCNT
23
#DMD !M(CLK ,aRHMR1

;MANIPULATE CLOCK
;CLEAR LOOP COUNTER
o INCREMENT LOOP COUNTER
;IS 1T THIRD LOOP FOR SUSEC WAIT
;JNO LOOP AGAIN
.START CHANGING CLOCK

TST
BM]
MOV
MOV
MOV

R1
1%
#7ERO, IRHBAE
#EVENAD ,aRHBA
MIRITEG,dRH(ST

JIS IT A 11 OR 70
JIT'S AN 11
. JERQ BAE
;SETUP BA
JTELL IT TO WRITETO

MOV
MOV
MOV
MOV
(LR
BIT
BNE
INC
BNE
(LR
BIT
BNE
INC
BEQ
B8R

#DMD , aRHMR1
#DMD 'M(LK ,aRHMR1
#DMD , aRHMR1
#ZERC,3RHMR1
BITCNT
#RDY ,a8RHCS1
7%
BITCNT
18%
BITCNT
#RDY ,a8RH(ST
7%
BITCNT
7%
19%

s CHANGE CLOCK AGAIN
o CHANGE CLOCK AGAIN
;s CHANGE CLOCK AGAIN
;GET OUT OF DIAG MODE
;CLEAR BIT COUNTER
;1S RDY SET
;BIT IS SET
;COUNT UP
JNOT FINISHED COUNTING
;GET READY TO DO IT AGAIN
JIS IT SET YET?
JYES
;COUNT UP
;BIT IS NO1 GOING TO SET

MOV
MOV
MOV
TST
BEQ
(LR

aRH(S1,(S1
SRHWC ,WC
aRHBA ,BA
R1
87%
BAE

s SAVE RHCS1
;SAVE WORD COUNT
s SAVE BUS ADDRESS
JIS IT AN RH1T
JNO IT'S A 70
;CLEAR BAE

MASSBUS RH70 AND RH11 DIAGNOSTI(
(ZRHBE .P11
07=JUN=79 " 3:44

6195

61%

063254

6197

6198

005037
000137
017737
017737
017737
017737
017737
017737
017737
017737
032777
001001

003424
043300

MaCY*1
173

(LR

146070
140064
160034
140630
160024
160022
1640002
1460006

003416
003424
003422
003432
003436
003442
003440
001162

022777

177777

137746

8%:

022777

003776

137736

3%:

104102

001001
106140

061401
104141

000200

023777
001407

004000

004737
105737
001402

007224
001103

104142

JMP

87%:

MOV
MOV

86%:

137756

*37740

004737
004737

aRHMRZ,
T(
aRHTDB, SREGO

CMP

#-1,3RHW(

Mp
BEQ
ERROR
CMP

#EVENAD-2 ,aRHBA
4%
141
EVENAD ,aRHDB

BEQ
ERROR
JSR
TSTB

BEQ
ERROR

ERROR
JSR
JSR

€%:

006572
050210

: A

AAAAAAS

SeTEST 74

;SAVE

aRHTDB, TDR

SEQ 0119

FRROR REGISTER

cSAVE TESTFR DATA REG.
JS5AVE MRZ2 TESTER REG.
:GET DATA

;1S READY SET
JYES,CONTINUE TEST

#RDY ,aRH(S1
8%
102

JREADY DID NOT

SET

;DID WC INCREMENT
JYES,CONT TEST

3%
140

JWRITETO OPERATION DID NOT

:DID BA INCREMENT
JYES

CONT

;WAS

THER AN ERROR

TEST

5%
142
R7,WHYFO

6%
146

JNO EXIT TEST
;THESE ARE THE

$ERFLG

170
R7,CLEER
R7 ,ERRTST
dRa

WRITE

TESTS

;*WHETHER

CONTENTS OF

2222222232222 22X

OPERATIONAL
VERIFY ALL

TEST

(NORMAL)

READ AND WRITE

IT BE A READ REV.

LSRR TS

#4
CODES

OR FWD OR A WRITE

REV.

OR FWD

AR AR RN R AANARRRNAAARRARAR

:*NO ERRORS SHOULD OCCUR
PR

6244
6245

6247
6248
6249
6250

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

0006000

137666
137652
137646

004100
137646

137644
137606

1%:

000200

137574

18%:

003446
003446
000200

003446

137552

SCOPE
MOV

MOV

000000
000067

003446

A N AN A AT AN AR A AN AR AR AR

15174:

19%:

MOV
MOV
MoV
TST
8M]
MOV
MoV

(LR
BIT
BNE
INC
BNE
CLR
BIT
BNE
INC

#7 ,8RHCS2

#-1,3RHWC
#RBUF ,3RHBA
#OAI3
, RBUF

A AN

JSETUP UNIT SEVEN
;FOR ONE WORD
;SRTUP BA
;SETUP DATA

g%ERO.aRHTDB

;SETUP TESTER DR

JIT'S AN RH'1
;2ERO BAE
STELL IT TO WRITEG
;CLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET

#7ZERO, IRHBAE

#WRITEG,QRHCST
BITCNT
#RDY ,aRHCST

BITCNT
18%
BITCNT

#RDY ,@RH(ST

BITCNT

ALL RH70 REG.

JTHIS IS TO COMMPLETE ERROR PRINTOUT
;CLEER ERRORS IF ANY

s*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND

043442
043444
043452
043460
043466
043474
043502
063504
043506
043514
043522
043526
043534

INC WC

JBA DID NQOT INCREMFNT AFTER AN WRITETO OPERATION
;DID INFO WRITETO TESTER
;JYES,CONT
SINFO DID NOT WRITETO TESTER
:ARE ANY ERROR BITS SET

ARl

s*THESE

'20

;CLEAR (S3
JCONT INUE
. SAVE BUS ADDRESS EXTENS]ION
:SAVE RH(CS3
JSAVE (S2
;SAVE TESTER STATUS

MOV
MOV

BNE
ERROR

5%:

(S3

86%

MoV
MOV
MOV

BIT
BNE
ERROR

4%:

10:46
PAGE
TEST #4

aRHBA
, BAE
E
@dRHCS3,(S3
dRH(CS2,(S2
aRHST,DST
aRHER ,ER1

MOV

106146

104170

C 10

3 O0A(7052)
12=JUL=79
RH OPERATIONAL WRITE

JIS IT AN 11 OR A 70

JCOUNT UP
sNOT FINISHED COUNTING
cGET READY TO DO IT AGAIN
JIS IT SET YET?
JYES
;COUNT P

MASSBUS RH70 ANC RH11

CZRHBE .P11

6251

043564

017737
017737
017737
005701
001406
005037
005037
000137
017737
017737
017737
017737
017737
017737

6269
6270
6271
6272
6273
6274
6275

043704
043712
0463720
043722
043724
043730
043736

017737
032777
001003
04102
004737
023777
001407

6276

€277
6278
€279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290

043740

174

001401

043566
043570
063570
043576
043604
043612
0436146
043616
043622
043626
0463632
043640
063646
043654
043662
063670

043676

MACYS1

07=JUN=79 "3:44

6252
6253
6256
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267

6268

_DIAGNCSTI(

000770

017737

13753«
137530
137524
00341¢
0C3424
043646

137522
137516
137466

003420
003444
0034614

003416
003424
003422

137462
1372456
137454

003432
003436
003442

137440
000200

001162
137410

007224
0047100

137412

137434

2%:

87%:
86$:

003440

3$:

005777

137404

043750
046375

000137
104101

(043756

043756
043762
043766
043770
043772
043774
044000

004737
105737
001402
104146
104170
004737
004737

(007224
001103

006572
(050210

£%:

043744
043746

00714C3
106117

30A(7052)

WRITE

OPERATIONAL

BEQ

Pé 3

MOV
MOV
MOV
TST
BEQ
CLR
(LR
JMp
MOV
MOV
MOV
MOV
MOV
MOV

aRHCS1,(SH
ARHWC , W
aRHBA ,BA
R1
87%
BAE
(S3
86$
@RHRAE ,BAE
IRHCS3,(S3
@RHCS2,(S2
aRHST,DS1
3RHER,ER1
aRHTDR, TDR

D 10

10:46

TEST

PAGE

(NORMAL)

BRHMR?2, T(

TST

aARHTDR

121

SEQ 0120

JBRIT IS NOT GOING TO SET

19%

MOV

MOV
BIT
BNE
ERROR
JSR
CMP
BEQ

BEQ
ERROR
Le:

“2=JUL=79

;SAVE RHCS?
:SAVE WORD COUNT
. SAVE BUS ADDRESS
;1S IT AN RH11
:NO 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.

3RHTDR, $REGO
#RDY ,3RHCS1
3%
102
R7 ,WHYFQ
RBUF ,aRHTDB
43

:GET DATA
;IS OR SET
JYES RDY IS SET
JREADY DID NOT SET
;ARE ANY ERRORS SET
:DID INFO GET WRITTEN OR READ
:INFO GOT LOADED

3 3
117

;YES INFO DID NOT LOAD
SALL BITS DID NOT LOAD DURING
;AN WRITE6 OPERATION
JEXIT TEST
;WRITE6 OPERATION DID NOT WORK
;NO BITS WHERE LOADED O aRHTDR
;ANY ERRORS SET
;ANY ERRORS ?
;NO,EXIT TEST
:PRINT REGISTERS

JmMp
ERROR

4%
101

JSR
TSTR
BEQ
ERROR
ERROR
JSR
JSR

R7 ,WHYFQ
$ERFLG
6%
146
170
R7.CLEER
R7 ,ERRTST

:DOES @RHTDB = 0

;CLEAR ERRORS

- tt."ttttttttttttttttit'tttttttttttttfitttt'tttttttittttttfitfittt

€291
629¢
6293
6294

SwTEST 75
R4 OPERATIONAL READ TEST #4
;*THESE TESTS VERIFY AL. READ AND WRITE CODES
:*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FuD
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND

6297

2582

;*NO ERRORS SHOULD OCCUR

6298
6299
6300

044004
044006
044014

6302
6303
6304
6305
€306

044030
044036
(044040
(0466042
044050

6301

044022

(000004
012777
012777

012777

012777
005701
100403
012777
012777

000007
052525

137324
137326

177777

137274

000000
0064000

137310
137256

000003

LASAAARLALE RSt RSl

TST75:

137324

1%:

SCCPE
MOV
MOV

#7 ,8RH(CS2
#AR,aRHTDB

MOV

#DMD 'M(LK , @RHMR1

MOV
TST
8M]
MOV
MOV

#-1,aRHW(
R1
1%
- #7ERQ, @RHBAE
#EVENAD ,aRHBA

JSETUP UNIT SEVEN
:SETUP INFORMATION
;SETUP DIAG. MODE

;FOR ONE WORD
;IS IT A 11 0R 70
JIT'S AN 11
;ZERO BAE
JSETUP BA

MASSBUS RW70 AND RW11 DIAGNCSTIC
(ZRHBE.P1T
07=JUN-79 13:44

6307

6308

6309
6310
6311
6312
6313
6314
6315

6316

6317

6318
6319

6320

6321
6322
6323
6326
6325
6326
6327
6328
6329
6330
0331
6332
6333
6334
6335

6336
6337
6338
6339

6240
6341
6342
6343
6344
6345
6346
€347
6348
6349
6350
6351
6352
6353

6356
6355
6356
6357
6358
6359
6360
6361
6362

044056

044064

012777

000077

000001

MACY11
175

37264

005037
005237
022737
001372
012777
012777
012777

003446
003446
000015

(03646

000003
500001
000003

044142

012777

000000

044162

001015

044134

044150
044154

064164
044170
044172
044176
044204
044206
044212
044214
044216
044216
044226
044232
044240
0442642
044244

044250
044254
044260
044266

044274
044302
044310
044316
044324
044332
044340
044346
044350
044350
044360
064362
044364
044372

044374
044376
044404
044406
044410
044414
044420
044422
044tod

012777
005037
032777

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
001001
104102
022777
001001
104143
022777
001401
104144
023777
001401
104145
004737
105737
0014C2
104146
10417C

000001

003446
000200

MOV

137262

046072
044076
044102
044110
044112
044120
044126

MOV

137204

MOV

#ZERD,aRHMR1

:GET OUT OF

:BIT [S SET

137212

137746

MOV

18%:

137124

19%:

003420
003644
003414

87%:

137040
13703«
137030
137026
137006
137012
000200

003416
003424
007422
003432
203436
00342
003440
001162
136762

177777

136752

8%:

003776

136762

38$:

004000

'3¢744

4$:

007224
0071C3

IT TO READFROM

IMANJPULATE CLOCK

137234
137226
137220

00341€

003424
044274
137074
137070

;TELL

SEQ 0121

BITCNT
BITCNT
#15,BITCNT
28
#DMD 'MCLK , aRHMR 1
#DMD , 3RHMR 1
#DMDIMCLK,@RHMR]

003446

137106
137102
137076

#READG, aRH(S1

#DMD , 3RHMR 1

122

CLR
INC
TMP
BNE
MOV
MOV
MOV

28:

003446

003446
000200

E 10

30A(1052)
12=JuL=79
10:46
PAGE
RM OPERATIONAL READ TEST #4

B86S:

#DMD , 3RHMRA 1

:CLEAR LOOP COUNTER
: INCREMENT LOOP COUNTER
IS IT THIRD LOOP FOR SUSEC WA[T
:NO LOOP AGAIN
;START CHANGING C.OCK
; CHANGE CLOCK AGAIN
; CHANGE CLOCK AGAIN

; CHANGE CLOCK AGAIN

DIAG MODE

(LR
BIT

BITCNT
#RDY , BRHCS 1

INC
BNE
LR
BIT
BNE
INC
BEQ
BR

BITCNT
188
BITCNT
#RDY ,3RHCS 1
7$
BIT(NT
7$
198

:COUNT UP
NOT FINISHED COUNTING
:GET READY TO DO IT AGAIN
$IS IT SET YET?
SYES
:COUNT UP
:BIT IS NOT GOING TO SET

MOV
MOV
MOV
TST
BEQ
(LR
(R
mp
wov
MOV
MOV
MGV
MOV
MOV
MOV
MOV
BIT
BNE
ERROR
CMP
BNE
EKROR
(MP~
BEO
ERROR
(mP
BEU
ERROR
JSR
TSTB
BEQ
ERROR
ERROR

ARHCST, (ST
SRHWC , WC
@RHBA | BA
R1
87%
BAE
Cs3
36$
SRHBAE ,BAE
SRHCSZ.CS3
BRH(S2, (52
aRHST, DS}
RHERER1
aRHTDA, TDR
SRHMR2 . T(
SRHTDB, SREGO
#RDY ,@RHCS1
8$
102
a=1,GRHWC
38
143
WEVENAD-2,aRHBA
4$
144
EVENAD,3RHTDA
5¢
145
R7,WHYFO
SERFLG
6$
146
170

; SAVE RHCS1
:SAVE WORD COUNT
:SAVE BUS ADDRESS
(1S IT AN RH11
INO IT'S A 70
:CLEAR BAF
:CLFAR (S3
: CONTINUE
:SAVE BUS ADDRESS EXTENSION
:SAVE RHCS3
SAVE (S2
:SAVE TESTER STATUS
:SAVE ERROR REGISTER
:SAVE TESTER DATA REG.
:SAVE MR2 TESTER REG.
;GET DATA
;IS READY SET
:YES,CONTINUE TEST
READY DID NOT SET
:DID WC INCREMENT
YES,CONT TEST
,
:READFROM OPLRATION DID NOT INC WC
\
:DID BA INCREMENT
IYES CONT TEST
:RA DID NOT INCREMENT AFTER AN READFROM JPERATIQ
: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 RW70 REG.
:THIS IS TO COMMPLETE ERROR PRINTIUT

BNE

:CLEAR BIT COUNTER
IS RDY SET

MASSBUS Re7C AND RH11 DIAGNOSTI(C
TIRBE P11
Q7=,UN=79 3 '

6363
63646
6365
5366
%4
(37
6368
£33
6370
6371
6372
6373
6376
6375
6376

0464426
(46632

004737
004737

0065 2
(S02°C

MACY11
v78

F 10
30A(T05¢)
12-JUL=79
10:46
PAGE
RM OPERATIONAL READ TEST #4

£$:

JSR

JTHIS

JCLEER ERRORS [F

R7,ERRTST

LARGE

TEST

TRANSFER TEST

DOES

:YHE SECOND TIME

A 4K

6377
6378
6379
6380
6387
6382
g%gz

0464440
(04446466
044652
044456
0464462
044464
044466
044474
044502
044510

012777
J0S037
005037
005037
005701
100403
032777
012777
012777
012777

6385
6386
6387
6388
6389
6390
6391

044516
044520
044522
044526
044530
044536
2464540

005701
001412
(005737
001407
032737
00°571
004737

gggz

044546

012777

000161

136554

8_iP:

005037
032777

003446
00020C

136542

18%:

044544

044554
044560
044566
044570
0445746
044576
0464602
044610
0464612
044616
044620
044622
044622
044630
044632
0446346
044636
044636
044644
044652
044660
044562
044664
044670

000434

0037015
005237
001371
005037
032777
001004

)
000000
005000
1724000
050336

136€72

i ¥

003452
0000C2

*7757C

(003446

032777
001001
104102
106205

000200

017737
017737
017737
005701
001406
005037
005037

136466
136462
136456

136520

198 :

136500

25%:

003429
003444
(003414

TRANSFER

SURE NO ERRORS OCCUR

RHNI]INT
:

#7 ,8RH(S2
aNPSW
PASS
LOOCNT
R1

MOY

#1ERO,aRHBAE

MOV

#BLKTST ,avECADD

MOV
MOV

#5000, aRHBA
#-4000, aRHW(

.CLEAR THE LOOP COUNTER
2IS IT AN11 OR 79
JIT IS AN 11
JITAS

A 70 ZZRO THE BAE

JSET

THE BUS ADDRESS

JUSE

INTERUPT

INTERUPT MODE

ST
BEQ

R1
BLIP

BEQ

BLIP

8tQ
JSR

80TTOM
R7.,CUPORT

MOV

MWRITED. 1E ,@RH(S?

JSET

CLR
BIT

BITCNT
#RDY ,ARHCST

;CLEAR BIT COUNTER
:1S RDY SEI

INC
BNE
(LR
BIT

BIT(NT
18%
BITCNT
#RDY ,aRH(S1

BNE

003416
(003424

8M]

8:T

003446

005237
001401
000770

(LR
CLR
(LR
ST

rST

047624

003446
000200

WORD

SCOPE

MOV
BLiTZ:
IN:

136664
136632
36622
136670

(OCTAL)

..'.Q'l'.'...".'...Q""'..Q."".Q'.fi".'i'.i'...'.'...'.'t't

tS176:
000007
177776
003452
003450

ANY

THROUGH THE TEST SYN(C (LOCK

;IS MARGINED O MAKE

J00CC6

6395
62
6397
6398
6399
6400
6401
6602
6603
6404
6405
6406
6407
6408
6409
66410
6411
6412
6413
6414
6415
6416
6417
6418

R7,(CLEER

SEQ 0122

A L
T T
T T
T

'7557 76

044436

6392

JSR

123

PASS

MIT,aN177570

RHNINT

AND

TELL

JBIT

2%
BIT(NT
2%
19%

YES
.~0UNT uP
JBIT IS NOT GOING TG SET

BIT
BNE
ERROR

#RDY ,@RHCS i
25%
102

205

:DID READY SET
:YES READY SET
JREADY DID NOT SET

;1T DID NOT INTERUPT

MOV

aRH(CST,(S

. SAVE RHC(CS1

BNE
INC
BEQ
BR

ERROR

MOV
MOV

BEQ

CLR

(LR

aRHW{ , W(
aRHBA ,RA

87%

BAE

(s3

IS SET

cCOUNT UP
:NOT FINISHED COUNTING
;GET READY T0 DO IT AGAIN
;IS IT SET YET?

. SAVE WORD COUNT
:SAVE BUS ADDRESS
;IS

AN RH'1

.NO IT's A 7C

:CLEAR BAE

:CLEAR (S3

TO WRITE

MASSBUS RKH7C ANC RH11 DIAGNCSTIC
(ZRHBE .P11
07=JUN=79 13:4¢

044674
044700
044706
04?14
044722
044730
044736
044744
044752
044760
044762
044770
044772
044776
045002
045004
045006
045014
045016
045020
045024
045026
045030

000137
017737

0464714

017737
017737

136420
136414
136610

0177%7

017737
0177%7
032777
001C33

032777

001001

104102

022777
001401

104203

003777

136454
136450

13640€¢

136366

140000

00020¢C

015020
014776

30A(1052)

LARGE

TRANSFER TEST

87%:

Jmp
MOV
MOV

86%
aRHBAE ,BAE
@RH(S3,(S3

MOV

aRHST ,DS1

176

003416
003424
003422
003432
003436
003442
003440
136362

86%:

'\)O«”\JO\NO?

D
d
b
d
)
—

WNUR)
=

WALV, IV, AV, RV, 1V, 1V, |

PAGE

124

SEQ 0123

: CONT INUE
s SAVE BUS ADDRESS EXTENSION
;SAVE RH(S3

aRH(CS2,(S2

JSAVE (<2
JSAVE

TESTER STATUS

MOV

aRHER ER)

;SAVE

MOV

BRHMR?2, T(

;SAVE MR2 TESTER REG.

aRHTDR, TDR

. SAVE

ERROR REGISTER

TESTER DATA REG.

;IS ATTEN OR ERROR SET

136340

8jT

#RDY ,aRH(ST

;DID RDY SET

13¢332

ERROR
{(mMp

102
#5000+<400022>, aRHBA

ERROR

203

BNE

BNE
48
5%:

001103

%
13¢264

003450

RRRRRYY

10:46

#ATA'ERR,RHST

2%:

045074
045100

12=JUL=79

Bl7

13¢334

9%:

A ¥

003450
000017

MOV

136306

002000

G 10

flA(V11

2s:
136242

044462
003450
003452

11%:

003452
044456
007224
006572
050210

BOTTOM:

B8EQ
0

'3 3

5¢%

#14776 ,aRHIDR

BEQ
ERROR
TST
BEQ
ERROR
TSTR
8EQ
BIT
BEG
ERROR
ERROR
ERROR
TST
BNE
INC
MOV

6%
204
oRHW(
7%
206
$ERFLG
8%
#PSEL ,aRH(S?
3%
207
146
170
L OOCNT
118
LOOCNT
#SCLK
! 7, aRHMR?

JMP
(LR
TST
BNE
INC
JMP

IN
LOOCNT
PASS
80TTOM
PASS
8LITZ

JSR
JSR

R7,CLEER
R7 ,ERRTST

JSR

JYES THERE WAS A PROBLEM

JYES IT SETY

JRDY DID NOT SET
;DID BA INC PROPERLY

JYES

;BA DID NOT INC PROPERLY

:WAS CORRECT

INFO WRITTEN

S YES
JCORRECT INFO NOT IN RHTDR
JIS Wl O
JYES
JRHWC IS NOT ZERO
JWAS THERE ANY ERRORS
:NO

;OUTPUT

THE REGISTERS

IS IT FIRST PASS
MAKE

IN TEST

IT SECOND PASS

JSET THE SYNC CLO(r BIT AND 441
;DO THE TEST AGAIN

;CLEAR THF (OUNTER

R7 ,WHYFQ

;70O SEE wHY T DIED

JCLEAR THE REGISTERS
JUNDERL
INE ERRQOR MESGES
J1F NEEDED

. l.'t'Qtt'.i'.ttttt.tt.tt.t'.tt'ttt'..tttttt"t"t't."t't'tntt.

SeTEST 77

*THIS

HERE [S WHERE | HANDLE 4 RK'S

THE ROUTINE

:~THE DIAGNOSTIC

THAT ALLOWS

TO TEST FOUR RH'S

THE

! ttt....""...l’t..QI""‘.'.‘.."".'.'.'Q..'Q.l'.t!t.ttt't..tt

0457 36

000004

0465140
045144
045752
045154
045162

005237
022737
001552

022737

001002

003376
000001

003376

0000C2

00337¢

1$777:

SCOPE

ENDPAS:

INC
(MP
8EQ
(MP

8NE

DEVCNT
#1,DEVCNT
CLEVER
#2 ,DEV(NT

s INCREMENT THE DEVIIE
SIS IT DEVICE 2
.YE

JIS IT DEVICE 3

COUNT,

BLK

SIZt

MASSBUS RH7C AND RH11 DIAGNCSTIC
(ZRHBE .P11
07=JUN=7G "3:44

000137
022737
001002
000137
022737
001470

6475
6476

6477

AL78
6679
(YA

1046401

6481

000421

~L82

6483
6484

~LBS
6486
6487
6488
6489
6450
6451

6492
6633
6494
6495
6496
67
6498
6499
6500
6501
6502
6503

6504
6505

6506
6507
6SOR
6503
6510
6511

6512
6513
6514
€515
6516
6517

6518

6519
6520
6521
6522
6523
6524

6525
6526
6527
6528
6529
530

106440

00042¢
013746

104402

045362
045370
045374

5600

045402
045410
0465614

045460
045460
045464
045466
045474
045500
045504
045506
045514
045522
045526
045572
0465572
045576
045600
045604
045610
045612
0456290
045626
045632

045676
045676
045702
045704
045710
045714
045716
045724

0137%7
012737
000137
005037
005726
013737
104401

000427

013746

104402

012737
000137
005737
001733
013737
012737
104401
000421

045604
000003

045710
00000«

#3,DEV(NT

JMP

2%:

669

003366
003366
005246
046014
003376

63400
003410

00336¢
045416

003600

00524¢
046014
003370

0C341C

003370
005422
045530

003400
003410

0466014

063400
310

RESTAT

648

678

DEVI(1,=(SP)

VES

HAVE WE TESTED ALL & RH'S
IYES

..YYPE ASCIZ STRING

;GET OVER THE ASCIZ

::TYPE ASCIZ STRING

--GET OVER THE ASC]Z

<Y5><12>/RESTARTING TO TEST RH #1 Al BASE ADDRESS /

DEVICI DEVICS
#GIGO,RETAIN
{ORREG
DEVCNT
(SP)+
DEVICI,DEVICS
,65%

B8R

643

MOV

DEVIC1,=(SP}

LASCIZ

J1S IT DEVICE 4

<15><12>/PROGRAM ERROR ON TESTING4 RH'S/

MOV

LASCIZ

s :SAVE DEVICT
;:GO

FUR TYPEOUT

TYPE~=OCTAL

,,TYPE

ASCIIC(ALL

ASCIZ

STRING

JGET QVER THE ASCIZ

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

;:G0

#G!GO,RETAIN

CORREG
)
DEVICZ
RESTAT
DEVIC2,DEVICS

FOR TYPEOUT

TYPE-=OCTAL ASCII(ALL DIGITS,
:SAVE RETURN ADDRESS

;GO CREATE ADDRESSES
JIS IT O
;YES,END PASS
;GET READY TO CONSTRUCT
. SAVE RETURN ERROR ADDRESS

#GIGUT ,RETAIN
,65%

LASCIZ

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

JMP
TST

643

DEVICZ2,=(SP)
CORREG

DEVIC3

8EQ
MOV
MOV

RESTAT
DEVIC3,DEVICS
#G1GO2 ,RETAIN

643

MOV

DEVIC3,=(SP)

JMP
ST
BEQ
MOV

(ORREG
DEVICS
RESTAT
DEviC4,D EVICS

LASCIZ

MCOv

DIGITS)

.FOR REG. ADDRESS CREATION
;GET ADDRESS ERROR RETURN
JCORRECT REG. ADDRESSES
;CLEAR DEVICE COUNTER
;CORRECT STACK
sSET UP TO CREATE ADDRESSES

TYPE

TYPGO(

sNO,CONTINUE SEARTH

663

TYPE

TYPOC

003374
003374
005722

JASCIZ

MOV

003400
003410

JYES

,659%

SEC 0124

ROTEEN

TYPE

BEQ

PAGE 125

HANDLE 4 RMH'S

86 ,DEVCNTY

JMP
" EvER: TST
8EQ
MOV
MOV

ROTEEN:

]

{MP

TYPOC
MOV

'%5!:

000137
005737
001627
013737
012737

BNE

TYPE

éigSS:

23372

MOV
MOV
JMP
RESTAT: (LR
TSt
MOv

0033¢6€

013746

[S WHERE

TYPOC

iigss:

003372
0055¢2
045634

HERE

TYPE

;é27s:

046014
003372

104402

‘TMMP

045272

000137
005737
001671
013737
01273%7
104401

1%:

éi§58:

003370

000421

C03376

J0A(7052)

065222

013746
104402

00337¢

H 10
12=0UL=79
10:46

MACV.1

659

,,TYPE

ASCIZ

STRING

.GET OVER THE ASC(CIZ

;:SAVE DEVIC2 FOR TYPEOUT

¢;G0 TYPE~-OCTAL ASCII(ALL DIGITS)
. CREATE REG.

JYES

JISIT

ADDRESSES

LEND PASS
:GE7 BASE ADDRESS
: SAVE RETURN ADDRESS

,,TYPE ASCIZ STRING

GET_OVER THE ASCIZ

<15>¢12>/TESTING RH #3 AT BASE ADDRESS /

#GIGD3.RETAIN

;sSAVE DEVIC3 FOR TYPEQUT

J:60 TYPE=-=-OCTAL ASCIICALL DIGITS,
;CORRECT REG., ADDRESQES
JISIT O
;VES JEND PASS

;GET BASE ADDRESS

JSAVE RETURN ADDRE
.5

MASSBUS RH70 AND RH11 DIAGNQSTI(
(/RHBE.P1
07=uUN=79 13:4¢

6531
6522
6533
6534
6535
653

6537
£538
6539
€540

6561
6542
6543
6544
6545
6546
6547

6548
6549
6550
6551
6552

6553
6554
6555
6556
6557
6558
6559
6560
6561
6562
6553

6564
6565
6560
6567
6568
6569
6570

€571
6572
6573
6574
6575
6576
6577

045732
04573%
046002
046002
066006
046010
040014
046022
046026

046032

046036
046040
046046
046052
046060
046066
46374
046102
046110
046116
046722
046126
046132
046140
0466144
046146

6584

6585

£586

000421

045740

00337¢

000137
0137%7
012702
013722
022702
001495
062737
000137
013737
0637357
013737
062737
013737
013737
005237
005037
005237
012737
005737
001402
000137

046014
003400
003330
003402
003360

104402

TYOf

000002
046026
003400
003404
003402
000002
003402
003330
003364
001102
001102
000001
003376

DEVIC4,=(SP)

. sSAVE DEVIC4 FOR TYPEOQUT

Jmp
(ORREG: MOV

{ORREG
DEVICS,OFF11

JCORRECT REG.

LASCIZ

MOV
BEHIND: MOV
(MP

TYPE-=OCTAL ASCIIC(ALL

sSTORE ADDRESS
sWAS IT LAST ADDRESS
S YES

BEHIND
DEVICS ,a#0FF 11
REGEND ,OF F 11

ADD

#2,0FF11

MOV

RH(S1,RH(S1B

;CREATE

OFF11 ,RHBAE

INC

ADDRWFSS

;STORE ADDRESS

;SETUP (S3 ADDRESS

JFOR RH(CS1

$EOP

;SETUP HIGH BYTE

;CLEAR TEST NUMBER
JSET TO TEST 1
;FOR ONE JTERATION

DEVINT

JMP

;SETUP BAE

RH(CS18

BEQ

END QOF

ADDRESS

:SAVE THE ADDRESS

$TSTNM
$TSTNM
#1,8TIMES

TST

:GO STORE

OFF11,RH(CS3

(LR
INC
MOV

DIGITS)

ADDRESSES

.GET BASE ADDRESS
;GET ADDRESS TO START STORING

JMP
MOV
ADD

MOV

SBTTL

;.60

#TWO,0FF 1

MOV

001212

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

AHEAD

ADD

AnEAD:

.GET OVER THE AS(]Z

#RHCST,R2
OFF11,(R2)+
#RHBAE ,R2

8tQ

003402

006252

ASCIZ STRING

MoV

TYPO(

003402
003402
003360
003402
003362
003364

,,TYPE

SEQ 0125

43
éé

003402

,65%

126

:i%SS:

013746

110

30A(ICS52)
12=yuL=79
10:46
PAGE
HERE IS WHERE | HANDLE 4 RKH'S

JARE

END

sNO,SEE

;YES DO END OF

TSTADD

PASS ROUTINE

PASS

IS PRESENT

° 'ltt.'t'lt.t.ttfi'."tt"t.tttitfifitfifit.tltt‘tt!t.t..it""ttitt‘

S *INCREMENT THE PASS NUMBER

(SPASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE
:*wHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

s*IF

;*1F

046152
046152
046154
066160
0e6164
046170
046176

046200
046202

046204

6578

6579
6580
6581
6582
6583

104401

MACYTT
17?7

000004
0059037
005037
005237
042737
005327
000001
003063
012737
000001
0456200
1046401

046216

000407

046236
046236

013746

046242
046244

104405

104401

100000

THERE

001100
$EOPCT:

SENDCT:

046220
éigss:

001100

. 066252

YYyyy'

THERES A MONITOR GO TO IT

$EOP:

001102
001212
0G1100

LAST REPORT

ISN'T JUMP TO BEGINZ

SCOPE
CLR
(LR
INC

$TSTAM
STIMES
$PASS

::2ERO THE TEST NUMBER
;;ZERO THE NUMBER OF ]TERATICNS
:: INCREMENT THE PASS NUMBER

(PC)+

;;LOOP?

BIC

#100000, $PASS

.WORD
8GT

1
$DOAGN

.WORD
$EOP(T
TYPE

DEC

MOV

:;RESTORE

L65%

,,TYPE ASCIZ STRING

64$

MOV

$PASS,~(SP)

TYPDS

TYPE

;:YES

(PC)+,a(PC)+

LASCIZ

,,DGN T ALLOW A NEG. NUMBER

COUNTER

:GET OVER THE ASCIZ

<12><15>/END PASS #/

R4 )

:;SAVE $PASS FOR

TYPEQUT

22 TYPE

PASS NUMBER

s. TYPE

ASCIZ

;GO TYPE==DECIMAL ASCI! WITh SIGN
STRING

MASSBUS RH7Z0 AND RM17 DIAANOSTIC
(ZRHBE .P1
07=JUN=79 13:44

6587
6588
6589
6590

(46250

000421

046314
046374

013746

6592
6593
€594

066320
046322
(046326

104405
104407
005037

6596
6597
6598
6599

046633
046360
046342
(066344

001405
000005
004710
000240

046356
046356

000137
004166
377
066362

6551

6595

6600
6601
602
6602

€606
6605
6606
6607

046332

046346
0646350
(046352
046352

013700

MACY1T
END OF

;.67%:
€6%:

001112

000042

0G0

$RTNAD:
S$ENULL:

6608

6610

SRR

€609

127

SEQ 0126

MOV

$ERTTL ,=(SP)

;:SAVE SERTTL FOR TYPFOUT

:1TOTAL NUMBER OF ERRORS

ans’ RO

;:BRANCH IF NO MONITOR
;.CLEAR THE WORID
22G0 TO MONITOR
. s SAVE ROOM

PC,(RO)

;:FOR
JJACTN

JMP
.WORD
.BYTE
.EVEN

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

s JRETURN

. sNULL CHARACTER STRING

N N RN A R R A A AR RN RN R R T R R RN AN A AR R R AN AR KRR R AR

AN RN AR

;THIS IS THE WATBIT PROGRAM
R R AR

046362
046370

032737
001155

020000

17757C

WATRIT: BIT
BNE

6615

046372

032737

000400

177570

CHGE2:

BIT

667

0664600

0911651

R R A N A

6619

046402

032737

6621
6622
6623
66246
6625
6626
6627
6628

046410
046412
046416
0464246
046432
0466440
046444
046446

001145
(005037
013737
013737
043737
205737
001447
104401

;;GET MONITOR ADDRESS

$DOAGN

*OP
NOP

6611
6612
2212

;:G0 TYPE-=DECIMAL ASCI! WITH SIGN
;. TYPE CARRIAGE RETURN, LINE FEED
:.CLEAR ERROR TOTAL

LSCRLF
$ERTTL

BEQ
RESET
$ENDAD: JSR
NOP
$DOAGN:

PAGE

663
;sGET OVER THE ASCIZ
/7
TOTAL ERRORS SINCE LAST REPORT /

$GET42: MOV

000240
000240

10:46

BR
_ASCIZ

TYPDS
TYPE
(LR

001223
001112

37?7

J 10

S0A(7052)
12=4UL=79
PASS ROUTINE

AN R RN R

AR R R R A R A AN NN NN RN AN R NN AN RN A AN NN ARARRRANAR A RN A AT AW

#SW13,24177570
RITURN

. SKIP ERROR PRINTOQUT
;YES

o ."‘"fi*"".fi'tt.tflfit"t\'fi‘fifi'fifitfifi‘t*fifi‘ttltfi'*t‘t.fitt'fi.tt.t

6616
6618

6620

6629
6630

6631
6632
6633
6634

6635
6636
6637
6638
6639
6040
6661
€642

)

046452

046532
046532
046540
046542

0466546
046554
066556
046562
046564
046570
066576
0466602

000427

032737
001076
006037
022737
001403
005237
000763

005037

043737
005737
007446

000001
003446
001162
001200
001162
001204

177570

BNE

CHGE3:
RN

001202
001204
001204

(046454
;65%:

000001
001204

000017

001204

003446

001200
001202

001202

#RIT8,a#177570

D ttttttttt-tt-tttttwttn-tttttktttttt-tvttttttttttn*«n-ttttaqtttt

645
MOAR:
MOOR :

RITURN

R AR RN A

AR A AN R AR N AN

BIT

#MIT0,a4177570

BNE
(LR
MOV
MOV
BIC
TST
BEQ
TYPE

RITURN
BITCNT
$REGO, $TMP2
$TMP] ,$TMP3
$REGO,$TMP3
$TMP3
NEXTST
65$

_ASCIZ

<15><12>/THESE

RN AR AR R AR AN R

N R AR Rk R AR AR R AR AN AN AT R R AN R RN AR A

64%

AR R RN R

RN ARN R

AR AR AN R AR R R A AN R R

R NN

RRANRR W

cCLEAR BIT COUNTER
. SAVE GOOD DATA IN $REGO
;SAVE CONTENTS OF BAD DA1A
JWHERE EXTRA BITS SET ?
JFIND OUT
;NO,FIND OUT WHAT BITS WHERE NOT SET
. TYPE ASCIZ STRING

;GET OVER THE ASCIZ

ARE

THE BIT NO.

THE

EXTRA BITS./<15><12>

BIT
BNE
ROR
(MP
BEQ
INC
BR

#ONE ,$TMP3
PRIRIT
$TMP3
#17 ,BITCNT
NEXTST
BITCNT
MOAR

JFIND THE EXTRA
;GO TO PRINT BIT NO.
JSETUP FOR NEXT BIT
JIS IT BIT 15 LAST TESTED
JYES,SEE IF ANY BITS WHER NOT SET
JNO NOT LAST BIT YET
;GO TO TEST NEXT BIT

BI(
TST
BEQ

$TMPT ,$TMP?
$TMP?
RETURN

JFIND WHAT BITS WHER NOT SET
JWAS ALL BITS SET.THAT SHOULD WAVE BEEN
JYES,AND TEST FINISKHED

NEXTST: (LR

BITCNT

JZERO BIT COUNTER

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

6643

066606

6646

046610

6646

066666

66465
6647

6648
6649
6650
6651

6652
6653
6654

046666

04665874
066676
046702
046710

066772
046716
046720

104401

000426
032737

001014
006037
022737
001403
005237
000763
104401

046617

000001

001202
000017

6657
6658
6659
6660
6661
6662
6663

046726
046732
046734
046736
046736
066742
046744

013746
104405
000760

003646

013746
104405
000676

003446

6665

6666

6667
€668

6669
6670
6671
6672
6673
6674

6675

€€76
6677
5678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
5689
6690

046754

047044
047044
047050

104401
000422

047052

012637
013746
104402
013716
000002

001206
000002
001206

PRIRIT:

TIEOUT:
;:65%:
£48:

;:678:

<15><12>/BIT NO. OF THE BITS THAT WHERE NOT SET/<15><12>

BITCNT
MORE 2
L$CRLF

;FIND BIT NOT

,
.

MOV
TYPDS
BR -

BITCNT,=(SP)

MOY
TYPDS
BR

BITCNT,-(SP)

MOOR

SET

:ERROR BIT FOUND
:SETUP TO FIND MORE
:WAS LAST BIT BIT 15
SYES AND TEST FINISHED

:NO SETUP FOR NEXT BIT
sCONTINUE TEST

;RETURN TO MAIN PROG.
::SAVE BITCNT FOR TYPEQUT
::GO TYPE=-=-DECIMAL ASCI] WITH SIGN
:LOOK FOR MORE
:2SAVE BITCNT FOR TYPEQUT
::GO TYPE--DECIMAL ASCI] WITH SIGN
;LOOK FOR MORE

AR R AN AR AN A AN AN RRR AR A RN RARE RN AR AN

R AN RN NN RANRNNRCNR

001206

001206
001206

0:698:
&8%:
.

001106
,
AR

. TYPE
8R
(ASCIZ

,65%
:iTYPE ASCIZ STRING
64$
“GET OVER THE ASCIZ
<15><12><12>/PROGRAM INSTRUCTION OR ADDRESS HAS CREATED A TIMEOUT/

TYPE
BR

L67%
66%

MOV
SU3
.
MOV
TYPOC
TYPE
BR
ASCIZ

(SP)+,$TMP4
#TW0,$TMPS
$TMP4,~(SP)

:MOVE ADDRESS TO STORAGE
*CORRECT ADDRESS
::SAVE $TMP4 FOR TYPEOUT
::GO TYPE==QCTAL ASCII(ALL DIGITS)
,69%
::TYPE ASCIZ STRING
68%
S“GET OVER THE ASCIZ
<15><12>/PSW WAS
'/

MOV
MOV
TYPOC
MOV
RT]

(SP)+,$TMP4
$TMP4 .= (SP)

_ASCIZ

&6$:

047144

R R R A R N

:TYPE ASCIZ STRING
*GET OVER THE ASCIZ

<15><12>/ADDRESS WHICH CAUSED TIMEOUT WAS /

$LPADR, (SP)
AN AR

:GET OLD PSW
;:SAVE $TMP4 FOR TYPEOUT
©:GO TYPE--OCTAL ASCII(ALL DIGITS)
:FAKE RETURN

TR R AN AN R A AN AN AN AR AN NN AR RN AN N AANN NI RRI N

:THIS ROUTINE HANDLES PARITY ERRORS

6693

6698

PRTBIT:

SGET OVER THE ASCIZ

PRTB]T
$TMP?
#17 ,BITCNT
RE TURN

RITURN: RTS

SEQ 0127

:;fittt"tttt.ttttttttfittti.'fitt*ttttttttttfitttttttttttitti*ttt'i.

104401
000434

047160
04716C
047164
047170
047172
(47176

#ONE ,$TMP2

BNE
ROR
CMP
BEQ

128

:THIS ROUTINE HANDLES TIMEOUT ERRORS

0466746
0466746
046752

012637
162737
013746
104402
104401
000406

BIT

ASCIZ

PAGE

s TYPE ASCIZ STRING

64$

INC
BR
RETURN: TYPE

047116
047116
047122
047130
047134
047136
067142

MORE2:

)

6692

6695
6696
6697

003446

€48

10:46

,65%

AT AR R AN

6691

6694

001202

001223

000207

6664

::658:

003646

046724

K 10

30A(3052)
12=JUL=79
PASS ROUTINE

TYPE

6655

6656 046726

MACY11
END OF

;:'ttttttt...ttttttttttittttt'.tltfi't'tttltttttttttttttt.‘ttttltt

047200
047200
047204

104401
000422

047206

PARITY:

;:65%:

TYPE
8R

LASCIZ

,65%
648

;i TYPE ASLIZ STRING
SGET OVER THE ASCIZ

<15><12>/PAR]TY TRAP TO VECTOR ADDRESS 114/

‘

MASSBUS RM70 AND FH11 DIAGNOSTIC
(ZRHBE.P11
* Q7=JUN=79 13:44

6699
6700

(047252
047252

6701
6702

106407

000620

6703
6704

047320
047320

012637

004100

6706

047332

013746

(06100

047360

1064401

047324

6707

047336

6708

« 6709

0647364

6710

162737

104(02

000406

;:678:

000002

067362
047362
047366
827372
7374
047376
0467400
047404

6720
6721
6722
6723
6726
6725
6726
6727
6708
6729
6730
6731
6732
6733
6734
6735

047444
0476444
047452
0476456
047460
047464

013737
013746
104402
1064407
000416

177742
004100

047522
047522
047530
047534
047536
047542

013737
013746
104402
104401
000417

177740
004100
)
047544

047602
047602

013737

6737

047614

6719

673

6738

6;28

047610

047616

047622

177744

013716

001106

6744
6745
6746
€747
6748
6749
6750

047624
047632
047636
047644
047646
047652
047654

6752
6753
6754

0467566
047670
047674

6751

047660,

MOV

TYPF

1:69%:

6£8%:

004100

708:

;:73%8:
72%:
006100,
|
'
.

004100

;:75%:
7L%:

10: 46

,67%

PAGE

129

SEQ 0128

)

::TYPE ASCIZ STRING

66$
:GET OVER THE ASCIZ
<15><12>/ADDRESS THAT CAUSED TRAP WAS /
(SP)+ ,RBUF

SGET PC+2

#7TW0,RRUF

;CORECT PC

REUF ,=(SP)

::SAVE RBUF FOR TYPEOUT

::GO

,69%

TYPE=-=OCTAL ASCII(ALL

::TYPE ASCIZ STRING

DIGITS)

6£8%

MOV
MOV
TYPOC
ST
BM]
TYPE
8R

(SP) + ,RBUF
RBUF , = (SP)

MOV
MOV
TY®0C
TYPE
8R
_ASCIZ

HERADD
, RBUF
RBUF ,-(SP)

::SAVE RBUF FOR TYPEOUT
::G0 TYPE=--OCTAL ASCII(ALL DIGITS)
,73%
::TYPE ASCIZ STRING
72%
:;GET OVER THE ASCIZ
,
<15><12>/L0W ERROR ADDRESS REG. = /

MOV
MOV
TYPOC
TYPE
BR
.ASCIZ

LERADD ,RBUF
RBUF , = (SP)
.
,75%
74%
<15>¢12>/MEMORY

MOV

MEMERR ,RBUF

JASCIZ

TYPOC

TRAPED: MOV
RT]

L 10

B8R

MOV

6743

B8R
LASCIZ

TYPOC

7(,1

6742

TYPE

MOV

::718:

047466
°

30A(3052)
12=JUL=79
PASS ROUTINE

SUR

047406

004100

000002

00410G

'
004100
0061C0

013746

104402

6%
:

047346

6711
6712
6713
6714
6715
6716
6717
6718

012637
0137646
104402
005701
00507
104401
000417

£4%:

067260

047256

6705

MACY11
END OF

<15><12>/PSW wAS

::GET OVER THE ASCIZ
/

:GET OLD PSW
..SAVE RBUF FOR TYPEOUT
;GO TYPE=-=QCTAL ASCTI(ALL DIGITS)
:ARE WE ON AN 11/70
:NO,ITS A 11/05-11/45
'y TYPE ASCIZ STRING
GET OVER THE ASCIZ

R1
TRAPED
,71%
70%

<15><12>/HIGH Ebnon ADDRESS REG. = ./

RBUF ,-(SP)

$LPADR, (SP)

AN AR TR AR AN AR

A AN AN

AR AN

::SAVE RBUF FOR TYPEOUT
::GO TYPE=-~OCTAL ASCII(ALL DIGITS)
::TYPE ASCIZ STRING
:GET OVER THE ASCIZ
SYSTEM ERROR REG. = /
\

::SAVE RBUF FOR TYPEOUT

;:GC TYPE--OCTAL ASCIICALL DIGITS)

:FAKE RETURN

;RETURN WHERE LEFT OFF
A AN AN AR R A RRNAR AR AR R AN

A NR NN

NN RN

;THIS IS THE DUAL PORT ROUTINE

. tt-tttwtttttttttttttttittttwttttttt*t*ttfitttttttttttttttttttt-n

012777
005037
032777
001015
005237
001371
005037

032777

001004
005237
001407

002161
003446
000200

133476
133464

003446
003446

000200

00344¢€

133442

DUPORT: MOV
CLR
18%:
BIT
BNE
INC
BNE
CLR
19%:

BIT

BNE
INC
8EQ

#WRITEQ!PSEL. IE,RRHCS?
8] TCNT
ARDY ,RHCS1
BUL L
BITCNT
.
18%
BITCNT

:CLEAR BIT COUNTER
;1S RDY SET
JBIT IS SET
;COUNT UP
:NOT FINISHED COUNTING
;GET READY TO DO IT AGAIN

#RDY ,RRHCS1

SIS

BULL
BITCNT
BULL

IT SET

YET?

;YES
:COUNT UP
JBIT IS NOT GOING TG SET

MASSBUS RH?0 AN RH11
(ZRHBE .P11

6755
6756
6757
6758
6759
6760
6761
6762

046767€¢
047700
047700
047706
047710
047712

Mm10
MACY11 30A(37052)
12=9uUL=79 10: 46
END OF PASS ROUTINE

DIAGNCSTI(

07=JUN=79 13:44
00C770

032777
001007

000200

8ULL:

133422

104102

000207

{JTE:

6764

6766
6767
6768

6769

6770

677"

6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
5782
6783
6784
6785

047714

012737

047730

042737

0477¢2

000207
012737
017737
042737

047762
047764
047772
050000

000207
012737
017737
042737

050006
050010
050016
050024

000207
012737

017737
042737

000207
012737
017737
962737
000207
012737
017737
042737

67790

6805
6806
6807
6808
6809
6810

017737

7736
047740
047746
047754

6789

6804

BIT

#RDY ,GRH(S1

BNE
ERROR
RTS
:THESE

6784
6787
6788

6791
6792
6793
6794
€795
6796
6797
6798
€799
6800
6801
6802
6803

108

SEQ 0129

CUTE
102

:."l'tt'!'.t'tt".'t'fi'ttt'tttfii.t.t..t'it.t.tttttt.ttt'fit'.ti'tfi

6763

6765

PAGE 130

050102

000000
133402
007777
000000

133366

000377
000000
133346
000000

000000

133320

030600

000007
133272
177770

000000

133270

000117

001162
001200
001200

FINDIT:

LOOK*0:

RTS

JRETURN TO PROGRAM
;GET READY TO FIND ERROR

MOv

ARHER, $TMP1
#Z2ERO,$TMP1

RTS

R7
#0,SREGO
IRHST ,$TMP1

JRETURN TO PROGRAM
;GET READY TO FIND ERROR
;GET COMPARE READY

‘RETURN TO PROGRAM

MOV

;GET COMPARE READY

;CLEAR BITS NOT NEEDED

#DRY!DPR!MOL !PIP,$TMP]

RTS
MOV
MOv

sCLEAR BITS NOT NEEDED

#7 ,8REGO

:GET READY TO FIND ERROR

ARACS2, $TMPT

:GET COMPARE READY

#SA] !PAT!CLR!IR.OR.MPE
!MXF !PGE !NEM!NED .UPE .WCE .DLT,$TMP

;CLEAR BITS NOT NEEDED

R7
#0,$REGO

RTS

CS3ERR: MOV

000207

;CLEAR BITS NOT NEEDED

R7
#0,SREGO

8IC

001162
001200
001200

cGET READY TO FIND ERROR
:GET COMPARE READY

#UST.U
.BA] .PAT!CLR!IR!OR,
S2'!US
$TMP1
4

MOV
BIC
FOUND:

;CLEAR BITS NOT NEEDED

JRETURN TO PRGGRAM

#0,S8REGO
IRHCS2, $TMP]

MOV

MOv

8IC

001162
001200
uN1200

.GET COMPARE READY

W#READG.GO!IE'RDY!AT
!PSEL !DVA,S$TMP]
16.A17

LOOKED: MOV

FIND:

:GET READY TO FIND ERROR

BIC

RTS

001162
001200
001200

CLEARS ROUTINES
Rl 2222222222222
L TR LR DY

dRH(CS?T,$TMPY

BIC

001162
001200
001200

THE

#0,SREGO

MOV

001162
001200
001200

ARE

ALAAR ALl

JRETURN TO PROGRAM
;GET READY TO FIND ERROR

ARHCS3,$TMP]

;GET COMPARE READY

MOV
BIC

#IE3!IPCKO!I
! IPCK2 ! IPCK3,¢TMTMP]
PCKT

RTS

;CLEAR BITS NOT NEEDED

JRETURN TO PROGRAM

,':l..t"t"'tt't't!ttfitt‘tttt..'tltttt't.‘tt'i..ltfit.t't.i*fifittfifi

THIS ROUTINE

THE

TEST

NUMBER

(ORRECTION ROUTINE

:;'t.tttfit.t'tttt*tttfit"'fi'ttttt’.fitttlttltiifitt.fi"ti‘ittttiti'

050104
050112
050116
050124
050126
050134
050136
050144
050150
050156
050164

013737

001102
003455
020G00

003454

122737

000001

001103

006137
012737
063737

003454
003456
072412
003456

00345¢

105037

032737
001026
001022
013737

01773%7

133270

177570

003460

003460
056200

TSTNMB:

MOV

CLRB

BIT
BNE
(MPR
BNE
MoV

ROL
Mov
ADD
MOV

STSTNM, TSTAM

TSTNM+1
#SW13,a4177570
TSTNMA
#1,8ERFLG
TSTAMA
TSTNM,OFFSET

OFFSET

:GET THE TEST NUMBER

:CLEAR UPPER BYTE
SINHIBIT TYPEQUT
JYES
SIS IT FIRST ERROR
*NO
SGET TEST NUMBER

*CREAT OFFSET

#HEADER , HE DDAD

SGET BEGINING OF

@HEDDAD , HE DADD

SSET UP FOR MESSAGE

OF FSET ,HEDDAD

TABLE

:CREATE MES ADDRESS

N 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

6811

6812
6813

050172

050176
050200

6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6826
6825
6826
6827
6828
6829

050202
050206

050210
050214
050216
050226
050226
050234
050240
050244

6831

050262

104401

001223

004737
000207

074130

104401
000000

HEDADD:
TSTNMA:

TYPE

LSCRLF

RTS

TYPE
0
JSR

PAGE

R7,a#$ERRTYP

131

;G0

SEQ 0130

TO ERROR

TYPE

ROUTINE

JRETURN TO ERROR ROUTINE

:."tQQt..tt.".'.'tt...".....tt.itlQti.t'titt.fi'.ttt.'.Qttfit'tfi.

:THIS PROGRAM WHILL DEVIDE THE ERROR

;PRINTOUT BETWEEN

TESTS

:.'tt"Q'.t.'..'.'.'l’...."Q..'..ttQfifififlfltt.tttfiflittifittttttt'tQtt

105737
001446

032737
001042
013737
105037

104401

000406

6832
683
6834
6835

050262
050266
050270
050276

013746
104402
104401
000416

6837
6838

050332
050332

000207

ERRIST:

0€1103
020000

177570

001102
003455

003454

é;27s:
6$:

OUTOF:

QUTCF

JYES

MOV
(LRB

STSTNM, TSTNM
TSTNM+1
.65%

B8R

649

MOV

TSTNM, ~(<P)

TYPE

L67%

LASCIZ

JINHIBIT TYPEQUT ?

22 TYPE

JGET TEST NO.
;CLEAR UPPER BYTE

ASCIZ

STRING

;;GET OVER THE ASCIZ

<15><12>/4424TEST /

TYPO(

050276

;WAS THERE AN ERROR FOUND
NO ,GO TO NEXT TEST

aSW13,. 4177570

TYFE

;2255:
6469%:

S$ERFLG
OUTOF

81T
8NE

050246

003454

TST8
BEQ

B8R

66%

RTS

R?7

LASCIZ

;s SAVE TSTNM FOR TYPEQUT

;G0

TYPE-=OCTAL

ASCIJC(ALL

2. TYPE ASCIZ STRING

DIGITS)

;sGET OVER THE ASCIZ

/7 ERROR MESSAGE
(S)

*244/<155<12><12><12>

:.'.'.....ttt...tt.t'.t..'.Qt..!‘.fifiti'..tt'.'t.fil.'."....t'tt'.t

sTHIS

THE

INTERUPT ROUTINE

;FOR THE LARGE

TRANSFER TEST

.'".'t..t'Qt!‘t...."'lt'".t'."t'lttt'tt'.'t.Q‘.t.""..'.".'fi'

012716
0C0002

044636

BLKTIST:

MQV
RT]

#RHNINT , (SP)

¢SET

THE

CORRET RETURN

sAND RE TURN

81 1
MACY1T 30A(i052)
12-4uL=79
1 0:46
END OF PASS ROUTINE

M£SSBUS RH70 AND RH11 DIAGNOSTIC
CZRHBE .P11
07=JUN=79 13:44

PAGE 132

SEQ 0131

.'.'itt'tttfitt't'fi.t?tt'fi."'*l.Qt..Q'fi*.'fitfittttttt".'t.tQt.."i.

; ;HEADER MESSAGES FOR ERROR PRINT QUTS

":t'tt"fittttt't'fit"fit."Q.‘.Q'.Q'fit’.'tttt.tt.it.QQ'Q'Q*QQ"&'.

6869
6870

6875

€878
6879
6880
6881
€882
6883
€884
6885
6886
6887
6888
6889

6891
6892
6893
€894
6895
6896
6897
6898
6899
6900
6901
6902

050342
050350
050356
050364
050372
C50400
050402
050410
050416
050424
050427
050434
050442
050450
050456
050464
050466
050474
050502
05051C
050516
050524

044122
042522
041505
042524
042524
000051
046103
052040
052059
024462

HED1:

.ASCIZ/RH ADDRESS DECODE

020122
020124
020124

HEDZ:

LASCiZ/CLEAR

042524
047116
020104
024040
031440

HED3:

LASCIZ/TESTER CONNECTED TEST

(TEST

041440
041440
052040
052650
024444

HED4 :

<ASCIZ/WORD COUNT

(TEST 4)/

020101
020122
024040

HEDS:

.ASCIZ/RHBA CLEAR TEST

040502
040505
052123
052123

020105
02022
024040
033040

HEDG:

.ASCIZ/RHBAE

041104
051101
020124
020124

041440
052040
052050
024467

HED?7:

.ASC1Z/RHDB CLEAR TEST

047522
044507
042040
020105
024040
030440

020115
052123
041505
042524
042524
024460

HED10:

.ASCIZ/PROM REGISTER DECODE

TEST

041510
052111
020124
020124

031523
052040
052050
030461

HED11:

.ASCIZ/RHCS3 BIT

11)/

041527
052040
052050

041040
051505

HED12:

.ASCIZ/RHWC BIT

124
020122
041505

042524
042524
000051
047527
052517
042514
051505
057505

050525
050532

050540

050546
050554
050556
050564
050572
050600
050606
050610
050616
050624
050632
050640
050641
050646
050654
050662
050670
050676
050704
050705
050712
050720
050726
050734
0507325
050744
050752

042104
042040
020105
024040
030440

052123
052123

020124

TEST

(TEST

1)/

(TEST 2)/

CLEAR

TEST

3)/

(TEST 5)/

032440

051505

CLEAR TEST

TEST

(TEST 6)/

(TEST 7)/

(TEST

12)/

(TEST

10)/

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

6903
6904
6905
6906
6907
6908
6909
6910
6911

6912

6913
6914
6915
6916
6917
6918
6919
6920
6921

6938
6939
6940

6941
6942
6943
6944
6945
6946
6947
6948
6949

6950
6951
6952
6953
£554
6955
6956
6957
6958

050760
050766
050774
051002
051010
051016
051017
051024
051032
051040
051046
051047
051054
051062
051070
051076
051077
051104
051112
051120
051126
051134
051137
051144
051152
051160
051166
051174
051177
051204
051212
051220
051226
051234
051241
051246
051254
051262
051270
051276
051303
051310
051316
051324
051332
051340
051346
051354
051362
051370
051376
051404
051412
051420
051422
051430

020124
044122
044502
052123
052123

050125
020105

MACY11 30A(7052)
12-JuUL=79
END OF PASS ROUTINE

031061
040502
020124
024040
030440

000051
020105
042524
042524
024463

041110
020124
024040
030440

10:46

PAGE

133

HED13:

.ASCIZ/RHBAE BIT TEST

020101
042524
042524
024464

HED14:

LASCIZ/RHBA BIT

TEST

(TEST

042110
020124
024040
030440

020102
042524
042524
024465

HED15:

.ASCIZ/RHDB BIT

TEST

(TEST 15)/

053510
051105
040516
052123
052123
000
041110
051105
040516
052123
052123
000
046505
040440
020105
042524
042524
024460
042503
040440
020103
042524
042524
024461
050104
020105
041523
052040
052050
031062
026105
047101
041040
051505
051505
020051
0474640

020103
052101
020114
024040
030440

HED16:

LASCIZ/RHWC OPERATIONAL

TEST

(TEST

16)/

020101
052101
020114
024040
030440

HED17:

.ASCIZ/RHBA OPERATIONAL

TEST

(TEST

17)/

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

HEDZ29:

.ASCIZ/NEM,TRE

AND SC BIT

TEST

(TEST 20)/

HEDZ21:

LASCIZ/WCE,TRE AND SC BIT

TEST

(TEST 21)/

HEDZ2?2:

LASCIZ/MDPE
,TRE AND S{ BIT

HEDZ23:

CASCIZ/UPE,TRE AND SC BIT

TEST

(TEST 23) RH11

026105
047101

051124
020104

HED24:

<ASCIZ/UPE,TRE AND SC BIT

TEST

(TEST 24)/

SEQ 0132

(TEST 13)/

14)/

TEST

(TEST 22)/

ONLY/

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

695G
6960
6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6976
6975

051436
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
056115
020105
041523
052040
052050
033062
043520

041040
051505
051505
000051
026106
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
€996
6995
699

051604
051612
051620
051626
051632
051640
051646
051654
051662
051670
0516746
051702
051710
051716
051724
051732
051740
051741
057746
051754

041523
052040
052050
033462
054115
020105
041523
052040
052050
030063
041515
042116
051105
044502
052123
052723
000
1064
051505
047527

041040
051505
051505
000051
026106
047101
041040
051505
051505
000051
04252C
051440
047522
020124
024040
031440

052004

051523

A976

051576

6997
6998
6999

051762
051770
051776

7001
7002
7003
70064
7005
7006
7007
7008
7009
7010

052012
052020
052021
052026
052034
052042
052050
052056
052064
052072

7000

7011
7012
7013
7014

052076
052104
052112
052120

020105

047522
040502

040440

052123
000
104
051505
047527
047522
040502
040440
052050
031463

041104
052123
051117
046517

MACY11
END OF

30A(7052)
12=JUL=79
PASS ROUTINE

o N

10:46

PAGE

134

0
0
0

0
O
05
02
020

HED25:

.ASCIZ/NED,TRE AND SC BIT

TEST

(TEST 25)/

0511
020104
052111
020124
020124

HED26:

.ASCIZ/MXF,TRE AND SC BIT

TEST

(TEST 26)/

051124

HED27:

.ASCIZ/PGE

TRE AND SC BIT

TEST

(TEST 27)/

051124
0207104
052111
020124
020124

HED30:

.ASCIZ/MXF,TRE AND SC BIT

TEST

(TEST 30)/

0406440
020103
020122
042524
042524
024461

HED31:

.ASCIZ/MCPE AND SC ERROR BIT TEST

046102
026124
042122
020115
042523
042104

052040
020061
0463040
020101
032040
042522

HED32:

.ASCIZ/DBL

TEST.1

031440

(24462

046102
026124
042122
020115
042523
042104
051505
000051

052040
020062
043040
020101
032040
020056
020124

HED33:

.ASCIZ/DBL

TEST,2 WORD FROM A BASE &4 ADD.

042524
053440
051106
041040

HED34:

047101

024040

020114
031456
020106
040440

SEQ 0133

020104

052111
020124
020124

(TEST 31)/

WORD FROM A BASE & ADDRESS

(TEST

32)/

(42524

(TEST 33)/

ASCIZ/DBL

TEST,3 WORD FROM A BASE 4 ADD.

(TEST

34)/

t .

MASSBUS RH70 ANC RH11_DIAGNOSTIC
(ZRHBE P11
07=-JUN=79 13:44
7015
16
7017
7018
7019
7020
7021

7022

7023
7024
7025
7026
7027
7028
7029
7030
7031
7032
7033
7034
7035

7036
7037
7038
7039
7040
7041

7042
7043
7044
7045
7046

7047
7048

7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060

7061
7062
7063
7064
7065

7066

7067
7068

7069
70790

052126
052134
052142
052150
052152
052160
052166
052174
052202
052210
052216
052224
052231
052236
052244
052252
052260
052266
052274
052302
052305
052312
052320
052326
052334
052342
052350
052356
052364
052372
052377

052404
052412
052420
052426
052434
052442
052450
052456
052464
052472
052500
052506

052514
052522
052530
052536
052544
052552
052560
052566
052574
052601
052506
052614

052622

051501
042101
042524
024464
104

051505
047527
051106
041040
020064
024040
031440
104

051505
047527
047522
040502
040440
042524
024466
104

051505
047527
047522

040502
040440
044527
044501
024040
031440

104
051505
047527
052111
020111
047101
052111
020126
020124
041104
052123
040440
020105
020104
02y 124
041104
052122
020105
027104
042524
024040
032040
104

051505
053440
047054

020105
027704
052123
000

046102
026124
042122
046517
051501
042101
042524
024465
046102
026124
042122
020115
042523
042104
052123
000
046102
026124
042122
020115
042523
042104
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
026462
046102
020124
051117
052117

MACY1T

30A(71052)

12=JUL=79

€ 11

10:46

PAGE

135

END OF

PASS ROUTINE

HED35:

LASCIZ/DBL

TEST,4 WORDS FROM A BASE & ADD.

HED36:

LASCIZ/DBL

TEST,1

HED37:

LASCIZ/DBI.

TEST,2 WORD FROM A BASE 4 ADD.

HED4C:

LASCIZ/DBL

TEST,2 WORD WITH BAI

T:
HED4

ASCIZ/DBL

TEST_NOT A BASE 4 ADD

HEDG?Z:

LASCIZ/DBL

TEST BASE

HED43:

LASCIZ2/DBL

TEST

SEQ 0134

022064
024040
031440
052040
020064

(TEST 35)/

020123
040440
020105
027104
052123

000
052040
020061
043040
020101
932040
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

WORD fROM A BASE

& ADD.

ADD.(TEST

36)/

WITH BAl

SET

SET AND WRITE REV )TEST 40)/

(TEST 41)/

WRITE FwD

(TEST 42)/

052123

000
052040
031054
020104
040440

,2 WORD

(TEST 37)/

,NCT A BASE 4 ADD,

(TEST 475/

MASSBUS RH70 AND RH11 _DIAGNOSTIC
(ZRHBE P11
07=JUN=79 13:44
7071
7072
7073
7074
7075

7076

7077

7078

7079

7080

7081
7082
7083
7084
7085

7086

7087
7088
7089

7090

7091
7092
7093
7094
7095

2096

7097
7098
(099

7100
7701
7102
7103
7104
7105
7106
7107
7108

7109

7110
7111
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
7122
7123
7124
7125
7126

052630
052636

052644
052652
052657
052664
052672
052700
052706
052714
052722
052730
052736
052744
052746
052754
052762
052770
052776
053004
053011
053016
053024
053032
053040
053046
053054
053062
053070
053076
053104
053112
053120
053126
053134
053142
053150
053155
053162
053170
053176
053204
053212
053220
053226

053234
053242

053250
053256
053264
053272

053300
053306

053314
053321
053326

0461040
020064
024040
032040
104
051505
047527
047516

040502
040440
051127
042522
051205
000051
041104
052123
051117
042101
024040
032040
104

051505
047527
040505
026104
020101
032040
020056
020124
041104
052123
051117

042101
047054
020064
024040
052040
104
051505
047527
040505
026126
020101
032040
020056
020124
041104
052123
053117
042101
041054
020064
024040
032440
104
057505

051501
042101
042524
024463
046102
026124
042122
020124
042523
042104
052111
020726
020124
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
0460502
040440
052050
030065
020114
031454
020104
043040
051501

042101
042524
024461
046102
026124

MACY11
END OF

30A(7052)
12=JUL=~79
PASS ROUTINE

F1 1
1 0.46

PAGE

136

SEQ 0135

020105
027104
052123

000
052040
020063
026040
020101
032040
026056
020105
652050
032064

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
20063

HED&S:

<ASC1Z/DBL

TEST,3 WORD

HED4S:

LASCIZ/DBL

TEST,2 WORD READ FWD

HED4G.

.ASCI1Z/DBL

TCST,2 WORD READ FWD,NOT A BASE &4 ADD.

HED47:

.ASCIZ/DBL

TEST,2 WORD READ REV,BASE

HEDSO:

.ASCIZ/DBL

TEST,2 WORD READ REV,_NOT A BASE

HEDS1:

.ASC1Z/DBL

TEST,3 WORD READ FWD,BASE

HEDSZ:

.ASC12/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

ADD.

(TEST

51)/

&4 ADD,

(TEST

5¢./

50)/

MASSBUS RH7G AND RH11_DIAGNOSTIC
(ZRHBE P11
C7=JUN=79 13:44
7127
- 7128
7129
7130
I4E)

7132
7133

7134
7135
713€
7137
7138

7139

7140

7141
7142
7143
7144
7145
7146
7147
7148
7149
/150
7151
7152
7153
7154
7155
7156
7157

7158

7159
7160
7161
7162
7163
7164
7165

7166

7167
7168
7169
7170
/171
7172

7173

7174
7175
7176
7177
7178

7179
7180
7181
718¢

053334
053342
053350
053356
053344

053372
953400
053406
053414
053422
053430

053436
053444
053452
053460
053466
053474
053502
053510
053516
053524
053532
053540
053546
053547
053554
053562
053570
053576
053604
053612
053620
053623
053630
053636
053644
053652
053660
053666
(53672
053700
053706
053714
053722
053730
053725
053744
053745
053752

053760

053766
053774
054002
054010

054013

054020

047527
040505
026126
032040
020056
020124
041527
042440
052040
053442

020042

020124
041527
042440
052040
053442
020042
020124
047111
052120
046102
052123
052123
600
122

050117
047511
042524

047516
02144
042524
024466
122

05:105
040516
052111
052123
052050
033465
042522
042520
047117
051505
051117
031043
052123

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
0c0105
021440
051505
000051
042101
04052¢
046101
020124
040515
024051

033040

<0110
052101
020114
052640
030443
052123
000
040505
051105

MACY11 30A(i052)
12=JUL-79
END OF PASS ROUTINE

051040
042522
049503
042104
051505
000051
053505
051117

040516
042524
042524
0244¢€5

020104
052101
020114
024040

G 11

10:46

PAGE

137

SEQ 0136

HEDS3:

CASCIZ/WCE EW ERRCR TEST 'WCELQ'' (TEST 53)/

HEDSG:

CASCIZ/WCE OW ERROR TEST "WCEHI'' (TEST 54)/

HEDSS:

LASCIZ/INTERUPT

HEDS6:

.ASCIZ/READ OPERATIONAL TEST (NORMAL #1) (TEST 56)/

HEDS7:

.ASC1Z/RH OPERATIONAL WRITE

ENABLE

TEST

(TEST

55)/

046107

024040
032440

050117
047511

051127
042524
020061
020124

TEST #1

(TEST 57)/

[}

047440
044524
052040
047050
020114
042524
024460

HED60:

.ASCIZ/READ OPERATIONAL

05011
047511
042522
051505
024040
033040

HEDG:

.ASCiZ/RH OPERATIONAL KEAD TEST #1

020104
052101

HED6Z:

LASCIZ/READ OPERATIONAL

TEST

(NORMAL #2)(TEST 6Q)/

(TEST 61)/

(NORMAL #3)(TEST €2)/

MASSBLS RH7Z0 AND

{JRHBE .P11
7183
7186
7°85
7186
7187
7188

054026
054034
054042
054050
154056
(54064

7190

054076

7189

7191
7192

7193
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203
7204
7205
7206

7207
7208

7221
2222

040516
052123
046522
024463
020124

020116
024040
046101
052050
31066

054102
056110
054116
054124
054132
05413¢
054142
054150
(54156
054164
054172
054200
054206
054210
054216
054224

046101
042524
020124
042524
024463
122
050117
047511
042524
047516
021440
051505
000051
044122
040522
046101

053440
(32040
031043
052123
000
040505
051105
040516
052123
046522
024464
020124

044522
051505

054232
054240

040520

020104
(21440

044524

047440
044524
051040

052123

0564322

051505

020124

044122
040522

067440
044524

05433
054340

046522
024461

042520
047117
040505

042520
0471°7

7228
7229
/230
7231

054414
054422
054430
054436

044524
052040
047050
020114

047117
051505
051117
031443

046101
020124
040575
024057

7233
7234
7235

054452
054455
05462

024460
122
051105

000
020910
052101

0>0117
N47511

7232

7236
7237
7238

056444

054470
054476
054504

127
047440

(42524

040516
042101
020124

031443
052123
00C

044522
062520

052123

020114
052040

031443

138

WKITE

TEST #2

HEDS3:

.ASCIZ/RH OPERATIONAL

HEDG4:

.ASCIZ/READ OPERATIONA!

HED65:

.ASCIZ/RH OPERATIONAL READ TEST #2

TEST

SEQ 0137

(TEST $3)/

(NORMAL

#4) (TEST 64)/

(TEST 65)/

HED66:

.ASCIZ/WRITE

HED67:

LASCIZ/RH OPERATIONAL WRITF

OPERATIONAL

TEST

(NORMAL

#1)(TEST 6€6)/

933066

024467

054401
054406

020124
042524

PAGE

024040

054376

72¢5

7226
7227

054362
054370

10:46

046101
052050

046101
042526

7223
7226

H 11

032466

054346
054354

053440
052040

12=JuL=79

046101
05205C
032066
.

020105
052101
020174

042524

000051

020104
052101
020114
024040

052111
051105
040516

056300

054330

024040
033040

052123
052050

020124

047516
021440

047117

042524
020062

051505
000051
051127
050117
047511

30A(71952)

END OF PASS ROUTINE

042520

054306
054314

7219
7220

047511
062524
047516
021440
051505
000051

07=-JUN=79 13:44

067440

7215
7216

7217

MACY11

044122

054246
054254
054256
054264
054272

7218

DIAGNOSTIC

054066

7209
7210
7211
7012
7213
7214

RH11

TEST #3 (TEST &7)/

0464522
051505

024040
033040

062524
040522

HED70:

.ASCIZ/WRITE CPERATIONAL

TEST

HED7':

,ASCIZ/RH OPERAT{ONAL READ

(NORMAL #3; (TES!
:

033440

042522
051505

024040

TEST #3

(TEST

71)/

70/

)

MASSBUS R470 AND #H11 DIAGNOSTIC
{ZRHRE N

7239
7240
7241
7262
7243
7244
7245

7246

7247

7248

7249
7250

7251

/252

7253
7254
7255

7256
7057

054512
054529

054523
054530
054536
054544
054552
054560

054566
054574
054577
054604
054612
C54620
054626
054634
0546472
054646
054654
054662
054670
054676
054704
054712
0547290
054722
054730
054736
054744
054752
054760
054766
054770
054776
055004
055012
055020
055026
055034

MA{Y1T 30A(°052)
12=JUL=79
END OF PASS ROUTINE

07=JUN=79 13:44
042524

024461

127

047440
064524
052040
047050
020114
0462524
(24462

052123
000
044522
042520
047117
051505
051117
031443
052123

02C104
021440

051505
000051
040514
051124
051105
020124
067527
052050
033067

10:46

PAGE

139

SEQ (138

033440
042524
060522
04€107
020124
040515
024051
037440

HED72:

JASCIZ/WRITE OPERATICNAL

050117
047511

HED73:

LASC]Z/RH OPERATIONAL WRITE

HED 74 :

CLASCIZ/WRITE UPERATIONAL

020124

020105
05210
020114
024040
046101
052050
032067

047440
044524
051040
042524
020064
020124

042520
047177
040505
052123
052050
032467

HED7S:

LAS(UIZ'RH OPERATIONAL

READ TEST #4

043522
047101
052040
033466
062122
051505
000051

020105
043123
051505
02006°
020123
020124

HED /7€ :

.ASCIZ/LARGE

TEST 671

122

v51105
040516
052111
052123
05205¢C
031467
051127
050117
047511
062524
047516
021440
051505
000051
066122
0460522
0466101

TEST

(NOKMAL

TEST #4

#3) (TEST

72)/

(TEST 73)/

051127
042524
020064
020124

TRANSFER

TEST

(NORMAL #4) (TEST

(TEST

WORDS

75)/

(TEST

/76)/

74)/

MASSBUS RH70 AND RH11
(ZRHBE .P11

DIAGNOSTIC

MACYTT1

07=JUN=79 13:44

7279

7280

7281

7282
7283
7284

7285

7286

7287
7288
7289
7290

7291

7292

7293

055040

055046

055054

055062
055070
0550676
055100

055106

055114

055122

047503

020124

044504

051122

044502

020104

041505

020124

042523
0510640

020124
053510

051122

041505

044504

020104

047516

020124

044502
042523

020124

051040

041110

051122

041505

7298
7299

055154
055162

044504
020124

020104
042523

047516
020124

7319

7320
7321
7322

7323
7324
7325
7326
7327
7328

7329
7330

7331
7332
7333

055146

055170
055176
055204
055012
055214
055222
055230
05523¢
055244
055252
055254
055262
055270
055276
055304
055312
055320
055325

055332

020724

047111
040440
051523
000056
047503
020124
044504
020126
047111
000102
047516
051511
046440
020131
047516
020124
041510
040

020103

055340

052105

055370
055376
055404
055412
055420
055426

052123
051511
053440
043516
047524
041122

055346
055354
055362

055434
055442

055450
055452
055460

041040
020116
020061

047111
020106

005015
051117
041124
‘

044502

041040
042104
051040

051122

044502
020104

020126

041505

020124
047516

020124
042110

026516
040524

05410
05211

044504
020124047111

020104
042523
051040
000
044507

031123
047514

047524

052040

(52111
044122
042502

AR R

PAGF

SEQ 0139

JERROR MESSAGES
A

140

Y
Y

.EVEN

EMI1:

LASCIZ/CORRECT BIT

DID NOT

SET

IN RHWC/

EM2:

.ASCIZ/CORRECT BIT DID NOT

SET

IN RHBA/

)

EMS:

.ASCIZ/CORRECT BIT DID NOT

EM4:

.ASCIZ/CORRECT BIT DID NOT SET

SET

IN BUS ADDRESS REG./

051525
042522
043505

042523
051040

046505

10:46

020124

047111
000101
047503

7318

PASS ROUTINE

J 1N

047516

020124
047111
000103
047503

055130
055136
055140

7300
7301
7302
7303
7306
7305
7306
7307
7308
7309
7310
7311
7312
7313
7314
7315
7316
7317

12=1U.=79

7294
7295
7296

7297

END OF

30A(T05¢)

IN RHDB/

EMS:

<ASCIZ/NON=-EXISTANT MEMORY DID NOT SET

EM6:

,ASCII/ LOGIC

IN RH(SZ2/

051117

051440

TO SET

TRE BIT

IN RHCS1

042522

044440
051503
044507

051105
005015
047040 , 052117
051117 * 044573
043454
020117
024040
051503
020051
051120

051524
044122

044440
030461

024040
020051

051503
051120

LASCII/1S NOT WORKING,GO TO
:

(CSRB)

.
PRINTS

RH11/<15><12>

,
.

ASCIZ/0R

((STB)

PRINTS

RH70 IN LOCATION &7 ON BOTH PRINTS/

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

7334

7335

055466

055474

047111

020106

051526

044122

MACY11
END OF

7341

055540

7343
7344
7345

(055546
055554
055562

052111
020123
042522

042040
047516
042101

042517
020124
040440

055576
055604

047111
031123

051040
000

041510

7342

7366

7347
7348

055532
055541

055570

051120

000

116

020123

10:46
.

’

0646505

041040

EM7:

LASCIZ/NEM BIT DOES NOT READ AS SET

047111

042523

051524

046505
051440
020124

040440
020103
142523
051040

EM10:

ASCIZ/NEM AND SC NOT SET

7354
7355
7356
7357
7358
7359
7360
7361
7362
7363
7364
7365

055643
055650
055656
055664
055672
055700
055704
055712
055720
055724
055732
055740

123
020124
054502
020116
050103
047522
051440
020104
042523
051124
020124
052105

020103
042523
040440
051117
020105
000122
020103
047516
000124
020105
051511
041040

044502
020124
052124
046440
051105

EM11:

_ASCIZ/SC BIT

044504
020124

EM12:

_ASCIZ/ SC DID NOT SET/

044502
051440
052125
042522
051501
051101

EM13:

_ASCIZ/TRE BIT
’

041040

EM14:

7366
7367

7368
7369
7370
7371

7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387

7388
7389

055746
055754

055762
055770
055773

056000

056006
056014
056017
0560264
056032
056040
056043
056050
056056
056063
056070
056074
056104
056112
056120
056126

056132
056140

051440
042101

047111
030523

020103
020123

041440
042105
127

042514
000
042503

052111

042040

047040
052105
127
052111
047040
052105
124
052111
051440
127
042116
040440
052105
051440
020124
042523

050125
020104

052117
000
042503
042040
052117
000
042522
047040
052105
042503
052040
042522
041040
020103
047516
000124

020105
047516

IN'RHCS2/

020124

116
042% g
047
020 124

0415 0

SEQ 0140

047514
04717
047117
020110

055607
055614
055622
055630

055636

141

020116
044524
020067
052117

7349
7350
7351
7352

7353

PAGE

044440

055502
055510
055516
055524

7340

K 1

030067

7336
7337
7338
7359

044440
040503
041040
041040

30A(7052)
12-JuL=79
PASS ROUTINE

000

IN RH(CS1/

SET BY ATTN OR MCPE ERROR/
,

)

SET BUT SC RCADS AS CLEARED/

.
ASCIZ/WCE BIT DID NOT

SET/

042111

051440

041040
042111
051440

EM15:

041040
052117
000
040440
042522
051440
052125
044502
020124

EM16:

_ASCIZ/TRE BIT NOT SET/

EM17:

_ASCIZ/WCE AND

EM20:

.ASCIZ/JPE DID NOT SET

044504
020124

_ASCIZ/WCE BIT DID NOT SET/
)

TRE ARE

SET BUT SC BIT NOT

IN RH(CS2/

SET/

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

7390

7391
7392
7393
7394
7395
7396

7397

7398
7399
76400
76401
7402
7403
7404
7405
7406
7407
7408
7409
7410
7411
76412
7413
7414

7415
7416

7417
7418
7419
7420
7421

7422
7423
7424

7425
7426
7427
7428
7429
~430
74631
7432
7433
7434
7435
7436
7437
7438
7439
7440
7447
7442
7443
7444
7445

056146
056154
056162
056163
056170
056176
056204
056212
056220
056226
056234
056242
056245
056252
056260
056264
056272
056300
056306
056314
056315
056322
056330
056336
056344
056347
056354
056362
056370
056375
056402
056410
056416
056424
056430
056436
056444
056452
056460
056465
056472
056500
056506
056514
056522
056524
056532
056540
056546
056553
056560
056566
056574
056502
056610
056616

042523
051040
000
124

042116
044502
042522
050125
020104
052111
047040
052105

123
020124
042523
042516
020104
042523
051040
000
124
042115
064123
047040
052105
124
047510
047516

051440
124

052111
047040
052105
042516
054115
020124
047516
020124
041510
115

052111
046125
051440
020116
000062
054115
020104
042522
051440
124
040505
020123
042522
020106
041523
051440

MACY'T
END OF

30A(71052)
12=JUL=79
PASS ROUT.INE

1 10:46

PAGE

142

020124
041510

047111
031123

042522
051440
051524
051440
020105
041523
042040
052117
000
020103
047516
000124
020104
047516
020124
041510

040440
020103
040440
052105
047701
041040
042111
051440

EM21:

LASCI1/TRE AND SC BITS ARE SET/

EM22:

LASCIZ/UPE AND SC BIT DID NOT SET/

044502
020124

EM23:

.ASCIZ/SC BIT NOT SET/

044504
020124
047111
031123

EM24:

.ASCIZ/NED DID NOT SET [N RH(S2/

040440
020103
042114
051440

EM2S:

LASCIZ/TRE AND SC SHOULD NOT SET/

051440
020104
042502

EM26:

LASCI7/TRE

EM27:

LASCIZ/TRE BIT WAS NOT SET BY NED/

EM30:

LASCIZ/MXF BIT DID NOT SET

EM31:

LASCIZ/MXF BIT SHOULD BE SET

EM32:

LASCIZ/MXF AND SC ARE NOT SET/

EM33:

LASCIZ/TRE READS AS CLEARED
. MXF AND SC ARE SFT/

042522
051440
052517
052117
000
042522
046125
020124
052105
042522
053440
052117
041040
000104
020106
044504
020124
047111
031123
043130
051440
020104
052105
044122

044502
020104
042523
051040
000
041040
047510
042502
044440
051503

020106
041523
047040
052105
042522
051504
046103
026104
047101
040440
052105

047101
040440
052117
000
051040
040440
040505
054115
020104
042522
000

000
041040
051501
051440
020131

SHOULD NOT BE SET/

IN RH(SZ2/

SEC 0141

MASSBUS RH70 AND RH11 DIAGNOSTIC
{ZRHBE P11
07-JUN-79 13:44
7446
74647
7648
7449
7450
7451
7452

7453

7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464
7465
7466
7467
7468
7469
7470
7471
7472
7473

7474
7475
7476

7477
7478
7479
7480
7481
7482
7483

7484,

7485
7486
7487
7488

7489

7490
7491
7492
7493

7494
7495
7496
7497
7498
7499
7500
7501

056623
056630
056636
056644
056652

056660
056666
056673
056700

124

000122
047040
640505
041040
041440
052103
102

020116
020063
047040
052105

056706
056714
056722
122
056725
056732
020104
056740- 042522
056746
020104
056754
056762
056763
056770
056776
057004
057012
057014
057022
057030
057036
057044
057052
057060
057066
057074
057102
057110
057116
057124
057132
057140
057146
057154
057162
057170
057176
057204
057212
057220
057226
057234

057242
057250
057256
057257
057264
057272
057300
057306

052116

MACY11
END OF

3CA(7052)
12-0uL-79
PASS ROUTINE

MmN

10:46

PAGE

143

SEQ 0142

EM34:

LASCIZ/TESTER DOES NOT READ AS BEING (ONNECTED/

EM35:

LASCIZ/BIT

044504
020124
047117
040440
051523

EM36:

.ASCIZ/RH DID NOT RESPOND

052114
047040
052105
044122

042040
052117
044440
051503

EM37:

LASCIZ/DLT DID NOT SET

020124
052117
044440
051503
020124
047101
040440
052105
020105
041523
042114
020105
051440
020131
042510
047522
050124
040505
042111
051440
042510
047506
046040
020104
052040
052101
043106

05151
051440
020116
026062
051124
020104
042522
005015
047101
0461440
044040
042502
052105
047101
020122
000122
052125
054504
047040
052105
020116
053440
040517
047111
042510
020101
051105

EMLO:

LASCII/DLT

046114
020123
047516
042101
020117

041040
044504
020124
044440
044122

051505
047504
052117
020104
044505
047117
042105
052111
044122
044527
052177

042524
051505
051040
051501
043516
042516
009
044440
051503
046114
051440

020110
047516
050123
047524
042522

000

IN RH(CS3 wILL NOT SET/

IS NOT

LASCIZ/TRE AND SC

SET

TO ADDRESS/

IN RH(SZ/

IN RHCSZ2,BUT

TRE AND SC ARE

SET/<15><12>

COULD HAVE BEEN SET BY ANOTHER ERROR/

EM4T

.ASCIZ/0UTPUT READY DID NOT

EM4G2:

LASCIZ/ALL BITS DID NOT LOAD

SET WHEN

INFO WAS LOADED

INTO RHWC

(177777)/

INTO THE

DATA BUFFER/

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBL PN
07~JUN=79 13:44

057314
057322
057330
057336
057344
057352
057360
057366
057374
057402
057410
057416
057424
057432
057440
057446
057454
057462
057466
057474
057502
057510
057516

057524

7537
7538

7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549
7550

7551
7552
7553

7554
7555

7556
7557

057532
057540
057541
057546
057554
057562
057570
057576
057604
057612
057620
057622
057630
057636
057644
057652
057660
057666
057673
057700
057706
057714
057722
057730
057736
057744
057752
057760
057766
057774
060002
060003

041527
033467
064122
042111
046040
047101
051524
033467
047523
052111
040505
047111
020103
020122
040527
042101
052116
051503
047516
05151
046440
020131
042523
051040
024040

024040
033467
041527
047040
040517
02013
024040
033467
042515
020123
042522

051040
043101
0466103
020123
062105
020117
000062
026516
040524

MACY11 30A(7052)
12-JUL=79
END OF PASS ROUTINE

033461
000051
042040
052117
020104
044502
033461
000051
041040
046103
020104
053510
042524
020122
047514

N 1

10:46

PAGE

144

SEQ 0143

EMS3:

LASCIZ/RHWC DID NOT LOAD ANY BITS

EM4S:

LASCIZ/SOME BITS C(_EARED

EM4LS:

LASCIZ/NON=EXISTANT MEMORY BIT

EMSL6:

.ASCIZ/RHBA DID NOT

EM47:

LASCIZ/ALL BITS DID NOT LOAD INTO RHBA

EM5C:

LASCIZ/LCADING

EMS1:

LASCIZ/PGE DID NOT SET

EMS2:

«ASCII/THE PROM WHILE ACCESSING A REGISTER/<15><12>

(177777)/

IN RHWC AFTER (LR WATM

LOADED INTO RH(S2/

064440

064122

SET

IN RH(CSZ2

(NEM)/

046505
044502

020124
041510
042516
041110
020104
046103
042524
02012
047514
044440
044122

CLR AFTER (LR WAS LOADED

INTD RH(CS2/

0515C3

020114
042040
052117
020104
051040
030450
024466
0460517
052040
052106
051524
042040
047516
040505
047522
020105
047516
020124
041510

031123

042510

05C042

044502
042111
04¢040
047111
041110
033467
000
044504
042522
051105
051440
042517
020124
020122
000122
044504
020124
047111

(177776)/

TRE AFTER ITS SET DOES NOT CLEAR ERROR/

IN RH(S2/

MASSBUS RH70 AND RH11

CZRHBE .P11

MACY11 30A(7052)
12=
14 =79
END OF PASS ROUTINE

_DIAGNQSTIC

07=JUN=79 13:44

7558
7559
7560
7561
7562

060010
060016
060024
060032
060040

047522
046111
042503
020107
044507

02011 5
02010 5
05152 3
020101 1
052123 3

042522
051105

7564

060050

044127

0415‘;

0201190

0425 4

0020122

7563

7565

060046

060056

005015
047531

7566

060064

051505

7568
7569
7570
7571
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590

060100
060106
060114
060122
060125
060132
060140
060146
060154
060156
060164
060171
060176
060204
060212
060217
060224
060231
060236
060237
060244
060252
060257

051440
020131
046522
006516
106
054501
047506
051120
000124
044122
044122
122
044122
044122
044122
122
044122
122
000
122
044122
044122
122

7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
7604
7605
7606
7607
7608
7609
7610

060265
060272
060273
060300
060306
060314
060322
060330
060356
060344
060352
060360
060362
060370
060376
060404
060412
060417
060424

7567

7591

7611

7612

7613

060072

060264

060432

060440

060446

040503

000

122
000
104
020105
051105
044122
047504
052117
046101
043101
020101
000122
044122
040510
042440
041040
052105
105
0410640

051125

047116 6
050125 5

10: 46

PAGE

145

Q044127
041501
047111

LASCII/WHICH YOUR TESTER CANNOT SUPPLY INFORMATION/<15><12>

052040

052117

046120
047506
0475 1

047111 1
052101 1
012
051117
020123
044440
051505

051440
047111
020123
047105

051503
041527
041110
051115
051503
052123
042510
051501
052110

000061
000
000101
000062
000062
000
000122
000
041104

EM53:
EMS4:
EMSS:
EM56:
EMS7:
EM60:
EM61:
EM62:
EM63:

LASCIZ/RHCS1/
ASCIZ/RHW(C/
.ASCIZ/RHBA/
.ASCIZ/RHMRZ/
.ASCIZ/RH(CS2/
LASCIZ/RHST/
.ASCIZ/RHER/

042110
051115
052104
041110

000123
000061
000
042501

EM64:
EM6S:
EM66:

.ASCIZ/RHDS/
LASCIZ/R'MR1/

EM67:

.ASCIZ/RHDT/
.ASCIZ/RHBAE/

041510

031523

EM70:

LASCIZ/RH(S3/

053105
052516
044440
051115
051505
042440
040440
042524
046103

041511
041115
020116
020062
047040
052521
033440
020122
040505

EM71:

LASCIZ/DEVICE NUMBER IN RHMR? DOES NOT EQUAL A 7AFTER A CLEAR/

051503
020123
051122
052111
005015
051122
052111

020061
047101
051117
0514640
000
051117
051449

EM72:

<ASCIZ/RH(ST

EM73:

LASCIZ/ERROR BIT SET

IN RH(SZ2/

EM7¢4;

LASCIZ/ERROR BIT

IN RHER/

052105

044440

020116

051105

047522

020122

044122

8 12

051503

000062

LASCIZ/FOR SAYS

INFO IS PRESENT/

.ASCIZ/RHAS/
LASCIZ/RHTDR/

HAS AN ERROR BIT

SET

SET/<15><12>

SEQ 0144

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

060454
060462

044502
020124

020124
047111

044502

020124

7616
7617

06047C
060474

042510
051105

7619
7620
7621

060510
060516
060524

7618

7622

7623

7624
7625
7626
7627
7628
7629
7630
7631

060502

060532

060540

060546
060556
060562
060570
060576
060604
060612
060620

020124
051510
044122

047111
006524
040502

051040
000012
044440

EM76:

.ASCIZ/RHBA INCREMENTED BUT

052116

042105

041040

EM77:

_ASCII/RDY DID NOT

041516

7652
7653
7654
7655
7656
7657
7658
7659
7660
7661

7662
7663
7664
7665
7666
7667
7668
7669

060726
060734
060742
060743
060750
060756

020126
047516
05112
05110
04412
04412
044123
036440

122

054506

042040

047516
051103
006524
104
040440

042524
040522
000
122
042040
052117
051101
051105

060764
060772
061000
061006
061014
061015
061022
061030
061036
061044
061052
061060
061066
061074

020124
000
U

061075
061102
061110
061116

122
042111
051440
020116

061124

042515

044440
020104
0640503
053117
020117
026105
020105
042114

042111
051440
042116
020104
020124

7644
7645
7646
7647
7648
7649
7650
7651

042523

052125
044504
0201246
020131
052040
040502
040502
052517

060636
060644
060652
060660
060666

060720

042522

053440
040517
012
111
044122
051127
042522
020105
052101
044504

000061

000

047040
052105
053440
047503
044504

052117
040454
051117
047125
020104

020124
046505
012
044517
053440

044522

041110
042111
041440
040440
041440

042501
047040
042514
052106
051114

052116
051503
052111
042526
050117
047511
020104
047527

020117
000062
020105
051522
051105
020116
047516
045522

054506
(47040
052105
044122

042040
052117
044440
051503

047440
044526

051501
0425046

PALE

146

SEQ 0145

042523
051040

ASCIZ/ERROR BIT SET

7634
7635
7636
7637
7638

060674
060702
060710
060713

10:46

EM?5:

030064

7639
7640
7641
7642
7643

c 1

020122

060626
060631

30A(7052)
12=JuL=79
PASS ROUTINE

000122
047522

7632

7633

MACYTT
END OF

[N RHST/<15><12>

IT DID NOT CARRY OVER TO RHBAE ,RHBAE

SET,AND WORD COUNT

DID NOT

INCREMENT/<15><12>

’

047111
047105

0463516

.ASCIZ/DOING A WRITE OPERATION/

042520
047117

EM100:

.ASCII/RHBAE

DID NOT

(LEAR AFTER CLR WAS LOADED/<15><12.

046040
006504

LASCIZ/INTO RH(CS2/
EM101:

.ASCIZ/WRITE REVERSE OPERATION DID NOT WORK/

EM102:

.ASCIZ/RDY DID NOT SET

IN RH(CS1/

SHOULD

407

MASSBUS RH70 AND RH'11_DIAGNOSTIC
(ZPHBE P11
07=JUN=79 13:44

7670
76
7672

7673

7674

7675
7676

7677

’8

u/’9
7680
7681
7682
7683
7684

7685

7686

7687
7688

7689

7690
7691
7692
7693

7694
7695
7696

7697

7698

7699

7700
7701
7702
7703

7704

7705
7706
7707

7708
7709
7710

7711

7712
7713
7714

7715
7716
7717
7718
7719

7720

7721
7722

7723
7724

7725

061126
061134
061142
061150
061156
061764
061172
061200
061206
061214
061222
061230
061236
061244
061252
061256
061264
061272
061300
061304
061312
0671320
061326
061334
061342
061350
061356
061364
061372
061400
061406
061414
061422
061430
061434
061442
061450
061456
061464
061472
061475
061502
061510
061516
061524
061532
061540
061542
061550
061556
061564
061570
06°576
061404
061612
061620

052504

040440

0425264
040522
051040
062111
051440
047527
052517
042111
044440

042515
052125
051117
047117
040527
052111
047524
042524
052504
040440
042524
040522
051040
042111
051440
047527
052517
042111
0644440
042515
042116
051117
047117
040527
020124
043123
052040
020105
051105
102

020123

042195

052111
046125
040525
000054
040502
020104
047111
047105
042522

053105

040522
042040
052117

044522
053440
047440
044524
054504
047040
052105
042122
052116
047040
041516
052116
044440
04CS515
005015
020123
042524
052040
000122
044522
053440
047440
044524
054504
047040
052105
042122
052116
047040

041516
052116
0646440
040515
005015

020123
051124
051105
020117
042524

000
942501
042515
052440
051440
020104
020114

020105
047516
051103
000124
042101
047440
044524
042111
051040

MACY11
END OF

043516
044522
042520
0467117
042040
052117
005015
041440
042040
052117
042522
041054
043116
044524

EM103:

D 12

10::46

PAGE

147

SEQ 0146

.ASCII/DURING A WR[TE 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
04316
044524

30A(7052)
12-JUL-79
PASS ROUTINE

INCREMENT,BUT

INFORMATION/<155<12>

ASCIZ/WAS WRITTEN TO TESTER/

EM104:

047516
047101
0642105
044124
052123

.ASCII/DURING A WRITE OFERATION RDY DID NOT SET/<15><12>

LASCI1/WORD COUNT DID NOT

INCREMENT ,AND

.ASCIZ/WAS NOT

TO THE

TRANSFERED

INFORMATION/<15><12>

TESTER/

044440
051523

EM105:

.ASCIZ/BAE

044506
020124
046505

EMI06:

.ASCIZ/BAE DID NOT

051040
042520
047117
047040
040505

EM107:

,ASCIZ/READ REV OPERATION DID NOT READ FROM TESTER TO STORAGE LOCATION (RBUF)/

1S MESSED UP,IT SHOULD EQUAL 40,/

026120
047510
050505
030064

INCREMENT/

MASSBUS RH7C ANC RHIT

{ ZRHBE P11

706

2707

7728
7729
7730

7731

7732
7733
7734
7735
7736

7737
7738
7739
7740
7741

7742

7743

7744

7745

7746

7’747
7748
7749
7750
7751
7752
7753
7754
/755
7756
7757
7758
7759
7760
7761
7762
7763

7764
7765

7766
7767
7768
7769
7770
7771
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781

061626
061634
061642
061650
061656
061664
061672
061677
061704
06171;
661720
061726
061734
061742
061750
061756
061764
061771
061776
062004
062012
062020
062026
062034
062042
062044
062052
062060
062066
062071
062076
062104
062112
062120
062126
062134
062141
062146
062154
062162
062166
062174
062202
062210
062216
062224
062232
062240
062242
062250
062256
062264
062272
062300

062306
062314

MACY'1 30A(i052)
12=J4UL=-79
END Of PASS ROUTINE

DIAGNOSTI(

Q7=JUN=79 13:44
020104
052040
020122
047526
046040
047511
052502
122

042440
020123
051440
020104
020114
043101
020101
047527

044522
101

042111
051440
052106
020101
047111
047105
000012
040502
047040
041516
052116
102

051103
042524
020124
042111
041440
052040
101

042116
044440
051503
052517
051040
053440
052117
052101
052106
051114
005015
047514
044440
064122
046101
051524
047040
060505
051440

051106
051505
047524
040522
041517
020116
024506
041110
052521
026060
047510

050505

030064
0425¢4
047117
042122
042524
033461
047040
052105
051105
040527
051103
042524

042040

052117
042522

000
020101
046505
020104
052111
047040
051101
006517
033061
040440
020116
000061
050124
0405C5
051501
047040
042105
051105
053440
042101
052116
0513C
020114
0642040
052117
020104
047524

046517
042524
051440
042507
052101
051050
009
042501
046101
052111
046125
040525
005015
020122
020105
053440
000
042040
052117
060440
041040
020123
046505
006504

EM?10:

E 12

10: 46

PAGE

148

SEQ 0147

.ASCII/RABAF EQUALS O,IT SHOULD EQUAL 40/<15><12>

LASC1Z/AFTER A ONE WORD WRITE/

EM171:

L_ASCIZ/A17 DID NOT SET AFTER BA WAS

042111
044440
042515

EM112:

_ASCIZ/BA DID NOT

047111
047105
052502
042040
052117
054522
012
040440
033461
0464122

EM113:

_ASCII/BA INCREMENTED BUT

052125
354504
047040
043205

EM114:

INCREMENTED/<15><12>

INCREMENT/

IT DID NOT CARRY 70/<15><12>

LASCIZ/A16 AND A17 IN RH(CS1/

(ASCIIZ0UTPUT READY WAS NOT NEGATED AFTER CLR WAS/<15><12>

040440

041440
051501

042105
020117
000062
044502
042111
051040
047524
040522

.ASCIZ/LOADED INTO RHCSZ/

EM115:

_ASCIZ/ALL BITS DID NOT READ TO STORAGE LOC.

(RBUF) DURING A READ REV. OPEKRATION

MASSBUS RH70 AND RH11

" (ZRHBE L1

7782

7783
7784
7785
7786
7787
7788
7789
7790

7791
7792
7793

7794
7795

7796

7797
7798

7799

7800

7801
7802

7803

7804

7805

7806
7807

7808

7809
7810
7811
7812
7813

7814

7815
7816

7817

7818
7819

062322
06330
062336
062344
062352
062360
062366
062374
062376
0626404
062412
062420
062426
062430
062436
062444
062452

07=JUN=79 13:44
0425C7
020056
024506
067111
042522
053105
051105
000116
042115
042111
051440
020116

062460
062466
062474
062476
062504
062512
062520
062526
062534
062542
062550
062556
062564
062567
062574
062602
062610
062616
062624

000062
0471M
0421M
053440
052040
052123
044517
005015
051127
042522
020105
052101
051124
020104
042510
052117
041040
042520
124
020123
047111
030523
020105
041523

062650
062652
062660
062666
062674
062702
062704
062712
062720
062726
062734
062742
062750
062756
062757
062764
062772

020104
041040
000124
042115
042116
044°23
041040
000124
051124
020104
042522
020054
064123
040440
042502
000
104
042111
051440

062627
062634
062642

MACY11 30A(7052)
12-JuUL=79
END OF PASS ROUTINE

DIAGNCSTIC

123

F 12
10:46

PAGE

149

SEQ 0148

046040
051050
042040
020107
042107
020056
052101

042520
047040
052105
044122
047506
047040
044522
020117

0420640
052117
042524
042524
042040
040440

052111
642526
050117
067511
020105
041523
042522
051440
020131
000
042522

020105
051522
051105
000116
047101
053440
047040
052105
042115

051105
043516

042523

044440
020124
041510
050104
020104

EM11€:

LASCIZ/MDPE DIl NOT SET

EM117:

LASCII/INFO DID NOT WRITE

TO TESTER DOING A/<15><12>

LASCIZ/WRITE REVERSE OPERATION/

EM120:

+ASCIZ/TRE AND SC WHERE NOT SET BY MDPE/

EMI2T:

CASCIZ/TRE

IS SET

IN RHCS1,MDPE AND S~/

051040
046454
047101
000
047510
046101
020105

0646125
047523
042523

042520
051440
052517
020105

040440
020103
042114
042523

EM122:

LASCIZ/MDPE AND SC

020105
041523
051440
043520
052517

EM123:

LASCIZ/TRE ANL SC ARE

051440

047101
040440
052105
020105
042114
020117
052105

046102
047040
052105

042040
052117
040440

EMIZ4:

LASCII/DBL DID NOT

051514

[N RH(CSZ/

LASCIZ/SHOULD ALSO BE SET/

SHOULD BE

SET/

SET, PGE

SHOULD ALSO BE

SET/

SET AFTER A 4 WORD WRITE FROM/<15>¢12,

G 12

MASSBUS RH70 AND RH11 DIAGNOSTI(
(ZRHBE P11
07=-JUN=79 13:44
7838

7839

063000

7840
7841
7842

7843
7844
7845

020116
051505
041104
020124
041510
044517
030440
020104
20105
005015
04710
020116
051505
041104
020124
041510
020116
047527
044522
047522
101
047105
042522

7846

7847

7848

7849

7850

7851

7852
7853
7854
7855
7856

7857

7858
7859

7860

7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872

104

062111
051440
020116
020063
020122
047527
051106
020116
040440
051523

7873
7874

7875

7876
7877

7878
7879

115

0425¢3
51040
041040
020103
020123
042514

7880

7881
7882
7883
7884
7885
7886
7887
7888
7889
7890

7891

7892

7893

052106
032040
020104
020105
005015
47100

0€ 5446

063454

MACYTT1 30A(7052)
12=4uL=79
END OF PASS ROUTINE

10:46

PAGE

150

051105
053440
051127
051106
042440
062101
000123
020114
047111
031523
043516
053440
051127
051106
042440
042107
000123
020114
047111
031523
020101
042122
042524
006515
020116
040440
051523
046102
047040
052105
044122
043101
020101
042122
046517
953105
042104
000
050103
020124
041510
052125
042522
051501
051101

050103
020104
042523
051040
000
042503
047111
031523

LASCIZ/AN EVEN ADDRESS/
EM125:

042526
0511C4
042523
051040
047440
620063
053440
043040
012
053105
042104
000
042040
052117
044440
051503
042524
020062
005015
040440
047105
042522

CASCII/DBL

SET IN RHCS3 DOING A 1 WORD WRITE FROM/<15>c12>

LASCIZ/AN EVEN ADDRESS/

EMI26:

LASCII/DBL

SET

IN RHCS3 ON A 3 WORD WRITE FROM/<15><12.

ASCIZ/AN EVEN ADDRESS/

EM127:

CASCII/DBL

DID NOT

SET

IN RH(S3 AFTER A 2 WORD/<15><12.

LASCIZ/FROM AN EVEN ADDRESS/

020105
047111
030523
051440
042101
041440
042105

EM130:

JASCIZ/MCPE

SET

020105
047516
020124
041510

EM1371:

<ASCIZ/MCPE

DID NOT SET

046040

EM132:

CLASCIZ/WCE LO IN.RHCS3 DID NOT

051040
042040

IN RHCST! BUT SC READS AS CLEARED/

IN RH(SY/

SET/

SEQ 0149

MASSBUS RH70 AND RH11
(ZRHBE .P11

7894
7895
78%

063462
063470
063475

7838

063570

7897

_DIAGNCSTIC

07=JUN=79 13:44

047060
€52105
042503

052117
000
046040

042116

047440

046116

020117

7899

(63516

020131

042502

7901
7902

063532
063540

044122
052502

051503
006524

063552

020111

046107

7903

7904

063524

063545

END OF

062111
051440
127

063502

7900

MACY1T

052105

127

044123

044460

042503

(52517

(044040
051504

7907
7908
7509
7910
7911
7912

063574
063576
063604
063612
063620
063626

000124
041527
051440
020116
020063
041527

020105
052105
044122
052502

047514
(44440
051503
020724

7914
7915
7916
7917
7918

063642
063650
063656
063657
063664

042523
051040
000
127
020111

047516

02024

7913

7919

7920
7921
7922

7923
7926
7925

7926
7927

7608

063634

063672

063700
063706
063713

063720
063726
063734

063742
063750

063756

7929
7930
7931
7932

063764
063772
063774
064002

793,
7935

064016
064004

7933

7936

7937

7938

7939

7940

7941
7942
7943
796L

064010

064032

064040

064044

064052

064060

064066
064074
064075

064102

020106

047516

020124
041510
127

020111
047111
031523

053440
42111

051440

020116
000062
041527
051440

044040
020104
042523

042523
051040
041040

042503
(47040
052105

044122

020704

0201
0471

041510

052125

041527

040440

042522

051501
000
127

064126
064132
064140

064440
042515
051117

.ASCIZ/WCE

LO SET

IN RHCS3 BUT WCE

DID NOT

SET

IN RH(S2/

EM135:

ASCIZ/WCE HI

DID NOT

EM136:

_ASCIZ/WCE

SET

044522

042524

HET

IN RH(S3/

IN RHCS3 BUT WCE DID NOT SET

IN RHCS2/

.
:

.ASCII/W(e HI

SHOULD ONLY BE

_
«

SET

IN RHCS3 BUT/<15><12>

LASCIZ/WCE LO ALSO READS AS SET/

020117

(,20123

047040

EMI37:

042101

042111

IN RH(S3 BUT/<15><12>
:

05150

04751

051440

EM134:

0440

020105

051514

SEQ 0150

042040
052117

0410

042500

7947
7948
7949

020124
041510
(52125

051523

005015

047440

044524

051040
000
046040

G201

041040
020124

064110
064116

042503
044504

047111
031523
042503

SET

’

044504

047111
031123

020124

,ASCII/WCE LO SHOULD ONLY BE

151

042522

020124
041510

0475
0477

7945

7966

020105

PAGE

LASCIZ/WCE HI ALSO READS AS SET/

047523

040505

020123

10:46

020063
312

051040

040440

H 12

PASS ROUTINE

051440

063560

063566

12=JuL=79

020116

7905

7906

EM133:

30A(7052)

052105

040532

047717

042040

061516
052116
020104

042522
053440
047507

052117

EM'4C:

.ASCIZ/wRITE OPERATION DID NOT

INCREMENT WORD COUNT/

MASSBUS RH70 ANC RH11 DIAGNQSTIC
(ZRHBE P11
07=JUN=79 13:44
7950

7951
7952
7953

7954
7955
7956
7957

7953

7959
7960

7961

7962
7963

064146
064152
064160
064166
064174
064202
064210
064216

064224
064226
064234
064242
064250
064256
064264
064272
064300
064306
064314
064322
064330
064336
064344
064352
064354
064362
064370
064376
064404
064412
064420
064426
064430
064436
064442
064450
064456
064464
064472
064500
064506
064507
064514
064522
064530
064536
004544
064552
064560
064566
064574
064602
064610
064516
064624

064632

047125
052°02
051104
044504

020124
046505
063101
020101
000105
047111
052101
044504
020124
051127
020116
051505
042522
042520
047117
047040
041516
052116
020104
000124
052502
051104

044504
020124
046505
043107
020101
005015
050117
047511
04647111
052101
044504
020124
0463040
042524
000
124
051511
041440
052116
052040
020110
052123
046101
051524
047040
052105
051516
00104
043516
042522

MACYI1 30A(3052)
12=JuL=79
END OF PASS ROUTINE

000124
020123
051505
020104
047111

112

10:

46 PAGE 152

EM*61:

JASTIZ/BUS ADDRESS DID NOT INCREMENT AFTER A WRITE/

EM142:

LASCIZ/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
060522
042040
052117
042522
053440
047503

046522
020116
047516
020124
042524
052040
000122
047440
044524
042111
044440
042515
051117
047125

020123
051505
020104
047111
047105
042524
042522

042101
020123
047516
051103
020124
020122
042101

051105
000116
047506
047511
020104

052101

042522
047522
052123

044510
052040
047117
020123
042510
042522
051105
020114
042040
052117
052040
042506
052504
040440
042101

INCREMENT AFTER A READ/<15><12>

ASCIZ/0PERATION/

046522
020116
047516
042101
020115
051105

EM145:

_ASCIZ/INFORMATION DID NOT READ FROM TESTER/

020123
042510
042524
043117
051040
044507
000123
044502
042117

EM146:

(ASCIZ/THIS

EM147:

_ASCII/ALL BITS DID NOT GET TRANSFERED DURING A/<15><12>

THE

CONTENTS OF

043440

040522
042522
044522
005015
047440

<ASUIZ/READ OPERATION/

THE RH REGISTERS/

SEQ 0151

MASSBUS RH70 AND RH11 DIAGNUSTIL
(7RHBE L1
07=JUN=79 13:44

8034

8035
8036
8037
8038
8039
8040
8041
8042
8043
8044

8045
B046
8047
8048
8050
8051
8052

8053
8054
8055
8056
8057
8058
8059
8061

065304
065312
065320

042520
047117
122

050117
047511
020104
042523
020117
047054
047111
052101
040527
047101
042105
052123
020105
051050

J 12

10:46

PAGE

153

SEQ 0152

064524

0640522
0G0
40505
051105
0201°6
047516
04€505
047527
020117
047506
047511
020123
043123
052040
051117
0647514
052502

020104
052101
064504
020124
052040
045522
005015
046522
020116
057124
051105
020117
043501
027103
026506

EMISC:

066114
020123
020125
051124
051105
020117
051105
064522
053440
047640
064524

041040
044127
047516
V67101
042105
0426524
005015
043516
0464522
042520
047117

EM151:

044522
042520
047117
047040
044522
020117

042524
040522
042040
052117
042524
042524
000G
051440
020116
0=7527
040522
020122
041040

EM1L2:

LASCIZ/WRITE OPERATION DID NOT WRITE

EM153:

LASCII/DBL

SET ON A 2 WORD TRANSFER WITH BAj/<15><12>

LASCIZ/SET

IN RH(S2/

LASCIZ/DBL

SET

051105
046102
047440
020062
052040
042506
0464124
005015
020124
041510
046102
044440
051503

" 840440

020116

30A(7052)
12=4uUL=79
PASS ROUTINE

051117
042101
006515
042440
042101

SEEM TO WORK ,NQ /<15><12>

LASC[7/INFORMATION WAS TRANSFERED TO STORAGE LOC. (RBUF)/

CASCII/ZALL BITS WHERE NOT

TRANSFERED

TC TESTER/<15><'2>

LASCIZ/DURING A WRITE OPERATION/

047111
031123

051440
020116
020063
030440
020104
043040
000012
042526
051104

<ASCTI/READ OPERATION DID NOT

EM154:

8027
8C28

064640
064646
064651
0646656
064664
064672
064700
064706
064714
064722
064730
064736
064744
064752
064760
064766
064774
065002
065003
065010
065016
065024
065032
065040
065046
065054
065062
065u70
065076
065104
065105
065112
065120
065126
065134
065142
065150
065155
065162
065170
065176
065204
065212
065220
065224
065232
065240
065241
065246
065254
065262
065270
065276

MACYTT
END OF

TO TESTER/

IN RHCS3 ON A 1 WORD READ FROM/<15><12.

LASCIZ/AN EVEN ADDRESS/

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

8062
8063
8064
8065
8066
8067
8068
8069

8070
8071
8072
8073
8074
8075
8076
8077
8078
8079
8080
8081
8082
8083
8084
8085
8086
8087
8088
8089
8090

) —— amd
D

NOWVIS
NN
O

D ——d ——d —

d —d

D
o
——d

)

Oc 0o 00 00 0o 00 00 00

8091
8092
8093
8094
8095
8096
8097
8098
8099
8100
8101
8102
8103
8104
8105
8106
8107
8108
8109

065326
065332
065340
065346
065354
065362
065370
065376

065404
065407
065414
065620
065426
065434
065442
065450
065456
065464
065465
065472
065500
065506
065511
065516
065524
065532
065540
065546
065554

065562
065570
065575
065602
065605
065612
065620

065626
065634
065642
065¢50
065656
065664
065672
065674
065702
065710
065716
065724
065732
065737
065744
065752
065760

065763
065770
065776

051505
041104
020124
031040
020104
020105
053440
040502

006524
111
051503

041104

020124
031040
020104
0432123
044522
012
106
047101
040440
051523
1064
042111
051440
020116
047527
044522
053105
020115
042526
101
051523
104
052105
020101
042122
042524
051105
051106
020116
042101
000123
041104
020124
031440
020104
020105

051522
106
047101
040440
051523
1064
042111
051440

000123
020114
047117
053440
051127
042522
052111
020111

012
020116
000062
020114
047117
053440
051124
051105
042524
047522
047440
042104
000
046102
0647040
052105
020101
042122
042524
043056
047107
006516
042104
000
066102
047440
020062
053440
051040
042523
046517
042117
051104

020114
047117
053440
051127
042522
006505
047522
047440
042104
000

046102
047040
052105

MACY11, 30A(7052)
12-J4UL=79
END OF PASS ROUTINE

042523
040440
051117
052111
027126
020110
042523

EM155:

044122

042523

0460440
051117
047701
053450
006451

10:46

PAGE

154

SEQ 0153

SET ON A 2 WORD WRITE REV. WITH BA] SET/<15><12>

LASTIZ/IN RH(CS2/

EM156:

,ASCII/DBL SET CN A 2 WORD TRANSFER(WRITE)/<15><12>

020115
042104
042522
042040
052117
047440
020062
053440
051040
047522
042440
012
042522
'
051440
02011
047527
044522
053105
005015
0604640
020104
051505

LASCII/DBL

K 12

.ASCIZ/FROM AN ODD ADDRESS/

EM?57:

_ASCII/DBL

DID NOT

SET ON A 2 WORD WRITE REV.FROM AN EVvEN/<15><12>

.ASC1Z/ADCRESS/
EM160:

LASCII/DBL

SET ON A 2 WORD WRITE REVERSE/<15><12>

)
.ASCIZ/FROM AN ODD ADDRESS/

042523
040440
051117
052111
0462526
012
020115
042104
042522

FM16°:

062040
(52117
0476440

EMI62:

_ASCII/DBL

SET ON A 3 WORD WRITE REVERSE/<15><12>

.ASCIZ/FROM‘AN ODD ADDRESS/

_ASCII/DBL DID NOT SET ON A 2 WORD READ FROM AN/<15><12>

"
:

(ZRHBE P11

8118
8119
8120
8121
8122
8123
8124
8125
8126
8127
8128
8129
8130
81N
8132
8133
8134
8135
8136
8137
8138
8139
8140
8141
8142

8143
3144
8145
8146
8147
8148

8149
8150
8151
8152
2153
8154
8155
8156
8157
8158
8159
8160
8161
8162
8163
8164
8165
8166
8167
8168
8169
8170
8171

8172
8173

066004
066012
066020
066026
066034
066035
066042
066050
066052
066060
066066
066074
066102
066110
066111
066116
066124
066130
066136
066144
066152
066160
066166
066172
066200
066206
05€214
066217
066224
066232
066240
066246
066254
066262
066270
066271
066276
066304
066312
066315
066322
066330
066336
066344
066352
066354
066362
066370
066374
066402
066410
066416
066424
066432
066440
066446

MACY11 30A(7052)
12-0uUL=79
END OF PASS ROUTINE

DIAGNOSTIC

07-JUN=79 13:44
020116
047527
040505
046517

020101
042122
020104
042440

020062
051040
051106
00651¢

042526
051104

020116

020114
047117

04¢523
040440
051117
042101
006515

053440

042522
047522

020116
042101
000123
020114
047117
053440
042522
053105
005015
046517
053105
042104

000
046102

047040

052105
020107
042122
020104

051522

047522
047440
042704
000
046102
047640
020063
051040
051106
042440
042101
000123
020114
47516

051106

020124
031440
020104
051040
042523
046517

EM163:

042717
051104

042523

040440
051117
042101
051105

EM164:

PAGE

155

.ASCIi/DBL SET ON A 2 WORD READ FROM/<15><12>

_ASCII/DBL SET ON A 2 WORD READ REVERSE/<15><12>

.ASCIZ/FROM AN EVEN ADDRESS/

EM165:

20115
042104
042522
051440
020116

10: 46

.ASCIZ/AN ODD ADDRESS/

040440
247105
042522
042040
052117
047440
020062
051040
042522
006505

L 12

.ASCI1Z/EVEN ADDRESS/

051505

.ASCII/DBL DID NOT SET ON A 2 WORD READ REVERSE/<15><12>

.ASCIZ/FROM AN ODD ADDRESS/

EM166:

.ASCJI1/DBL

SET ON A 3 WORD READ FROM/<15><12>

047527
040505
046517
042526
051104
044504
020124
047117

053440
042522
053105
205015
040440

.ASC1Z/AN EVEN ADDRESS/

EM167:

.ASCII/DBL DID NOT SET ON A 3 WORD READ REVERSE/<15><12>

LASCIZ/FROM AN EVEN ADDRESS/

MASSBUS RH7G AND RH11

SEQ 0154

MASSBUS RH7C AND RH11

(ZRHBE PN

8174
8175
8176
8177
8178
8179

8180
3181
8182
8183
8184
8185
8186

066454
066462
066470
066473
066500
066506
066514
066522
066530

8187
8188
8189
8190

8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222

07<JUN=79 13:44
020116

0460440

051523
124
040505
020123
043520
020104
047510
C42502

053105
042104
000
042522
051504
042523
020105
041523
046125
051440

30A(7052)
12-uUL=-79
PASS RQUTINE

10:46

PAGE

156

SEQ 0155

047105
04252¢

051040

040440
020124
047101
051440
020104
052105

EM171:

.ASCIZ/TRE READS AS SET PGE AND SC SHOULD BE SET/

020103
042114
042523
020131
041510
042111
041440
040440
042524
020124
044440
000124
053440
047516
020124
041510

044123
041040
000124
047111
030523
047040
052501
020116
051122
044527
020105

EM172:

LASC1Z2/5C SHOULD BE

EmM173:

LASCIZ/RDY

046111
020124
04711
030523

EM174:

LASCIZ/1E WILL

020105
047101
020116
020107
042510
000
041510
051501
051105
044502
000124
020124
051124
020105
041523
046125
051440

040510
047440
047507
047524
041040

EM175:

.ASCIZ/IE HAS AN OPEN GOING T0 THE BUS/

031523
040440
047522
020124

EM176:

.ASCIZ/RH(CS3 HAS AN ERROR BIT SET/

047101
0201C5
042523
051440
020104
052105

EM177:

.ASCIZ/DLT AND

052131
041117

EM200:

LASCIZ/HIBYTE

,LOBYTE GATE FOR RHWC NOT WORKING PROPERLY/

052131

EM201:

.ASCIZ/HIBYTE

,LOBYTE GATE

0461111
046054
026105
043040
053510
020124

067122
067125

MACY11
END OF

_DIAGNOSTIC

047111
050117
000

041 1M

SET/

IN RHCS1 DID NOT CAUSE AN INTERRUPT WITH [E SET/

NOT SET

TRE ARE

IN RH(CS1/

SET,SC

SHOULD BE

SET/

040507
051117
020103
047527
020107
051105

FOR RHDB NOT WORKING PROPERLY/

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

- 30
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240
8241
8242
8243
8244
8245
8246
8247
8248
8249
8250
8251
8252
8253
9254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
8276
gS;g

067132
067140
067146
067154
067162
067170
067176
067204
067207
067214
067222
067230
067236
067244
067252
067260
0€7266
067271
067276
067304
067312
067320
067326
067334
067342
067350
067351
067356
067364
067372
067400
067406
067414
067422
067430
067436
067444
067452
067460
067466
067474
067502
067510
067516
067522
067530
067536
067544

020105
052131
042524
051040
047516
045522
051120
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

8279
8280
8281
8282
8283
8284
8285

067546
067554
067562
(67570
067576
067602
067610

051124
051105
042040
047117
020124
041520
020040

046054
020105
043040
042110
020126
047111
050117
000
061111
046054
020105
043040
041110
020124
047111
050117
000
042510
040440
051523
047111
041505
051440
020104
030065
051505
(40504
043125
047504
052117
040526
042510
042522
043116
042040
052117
051105
047514
020124
047524
044440
044440
000124
041527
046125
055040

047101
053440
047117
050040
000102
020040
042524

MACY11
END OF

30A(7052)
12-JUL=79
PASS ROUTINE

N 12

10:46

PAGE

157

SEQ 0155

041117
040507
051117
020102
047527
020107
051105
052131
041117
040507
051117
020101
047527
020107
051105

EM202:

.ASCIZ/HIBYTE

,LOBYTE GATE FOR RHBA NOT WORKING PROPERLY/

041040
042104
(44440
047503
020124
047510
042502
030060

EM203:

_ASCIZ/THE BUS ADDRESS

042524
040524
042506
051505
0641440
047111
041440
052103
000117
042111
064440
050125
0465517
051503
051440
020106
020123

EM204:

_ASCIZ/TESTER DATA BUFFER DOES NOT CONTAIN THE CORRECT

EM205:

,ASCI2/RH DID NOT

051440
020104
051105

EM206:

,ASCIZ/RHWC SHOULD BE ZERO/

0
0
0
O

EM207:

_ASCIZ/TRANSFER WAS DONE ON PORT B/

O
0

DH1:

LASCII/PC

IS INCORRECT

IT SHOULD BE

INTERUPT LOOK AT (S1

TEST

RHW(

TO SEE

15000/

INFO/

IS SET/

CONTENTS RHW(/<15><12>

813

MASSBUS RH70 AND RR11_DIAGNOSTIC
(ZRHBE PN
07=JUN=79 13:44

8286
8287
8288
8289
8290
8291
8292
8293

8294
8295
829
8297
8298
8299
8300
8301
8302
8303
8304
8305
8306
8307
8308
8309
8310
8311
8312
8313
8314
8315
8316
3317
8318
8319
8320
2321
8322
8323
8324
8325

8326
8327

8328
8329
8330
8331

8332
8333
8334
8335
8336
8337
8338
8339
8340
8341

067616
067624
067632
067640
067646
067651
067656
067664
067672
067700
067706
067714
067722
067730
067736
067744
067752
067760
067766
067772
070000
070006
070014
070022
070030
070036
070043
070050
070056
070064
070072
070100
070106
070112
070120
070126
070734
070142
070150
370156
070163
076170
070176
079204
070212
070220
070226
070232
070240
070246
070254
070262
070270
070276
070303
070310

020040
0471527
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
041440
052116
040502
020040
020040
020040
020040
0464123
044040
042502
120

020040
020124
042110
041440
052116
041104
020040
020040
020040
020040
0464123
044040
042502
120

020040

MACYT1 30A(3052)
12=JUL=-79
END OF PASS ROUTINE

020040
020040
052116
051040

044122
020040
047105

020040
047040
020040
020040
047510

020040
027117
020040
020040
046125
042526
000116
020040
052123
044122
020040
047105
041110

012

040510
042505
020040
042524
020040
020105
052116
051040
005015
020040

047516

020040
020040
052517
053101
047105
020103
052040
020040
020101
047117
020123
005015
020040
047516
0200490
020040
052517

053101
047105
020103
052040
020040
020102
047117
020123
005015
02004)

047516
020040
020040
052517
053101
047105
020103
052040

10:46

PAGE

158

SEQ 0157

053510

020040
020056
020040
020040
042114
020105
00
020040
051505
051040
020040
042524
044122
020040
020056
020040
020040
042114
020105
000
020040
051505

NO.

LASCLI/PC

TEST

SHOULD HAVE BEEN/

RHBAE

NO.

LASCII/ZPC

TEST

SHOULD HAVE

RHBA

NO.

LASCII/PC

TEST

CONTENTS RHBAE/<15><12>

(ONTENTS RHBA/<15><12>

SHO''LD HAVE

RHDR

BEEN/

CONTENTS RHDB/<15><12>

051040
020040
042524
046122

020040
020056
020040
020040
042114
020105
000
020040
051505

NO.

LASCII/ZPC

TEST

SHOULD HAVE BEEN/

RH(SZ2

TRE AND S(/<15><12»

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

R342
8343
8344
8345
8346
8347
8348
8349
8350
8351

070316
070324
070332
070340
070346
070347
070354
070362
070370
070376

070404

070410

070416
070424

070432

070440
070445
070452
070460
070466
070474
070476
070504
070512
070520
070526
070534
070542
070550

070553
070556

070564
070572
070600
070606
070607
070614
070622
070630
070636
070637
070644

070652

8387
8388
8389

8393
8394
8395
8396
8397

070660
070663
070670
070676

070704
070712
070720
070726
070731
070736
070744
070752
070760

020124
0461510
052040
0462116
012
040
020040
020040
020040
020040
052111
041520
020040
020040
052116
047440

040
020040
020040

020040

000062
041520
020040
0920040
044526
020040
020040
020040
042504
120
041520
020040
020040
046111
012
040
020040
020040
042104
000
120

020040
020124
051105
120

020040
020124
042104
020040
020040
006523
040

020040
020040

0467117
000123

MACYTT1
END OF

020040
031123

051040
020040
040440
006503

020040
047040
020040
020040
020040
000123
020040
042524
020040
047105
006506
020040
047040
020040
044122

020040
027117
020040
020040
041040

042522
051440

020040

042524
020040
042503
020040
047516
020040
000
000103
020040
042524
020040
047111

020040
052123
047503
051524
012
020040
027117
020040
051503

DH11:

020040
052123
042504
005015
020040
020056
047503

DH34:

020040
052123
040506
006507

30A(7052)
12=JuUL=79
PASS RUUTINE

LASCIZ/

NO.

LASCII/PC

TEST

LASCI2/

NO.

LASCII/PC

TEST

ASClZ/

DH35:
DH36:

c13

10:46

PAGE

SEQ 0158

BITS/

CONTENTS OF/<15><12>

RHCS2/

DEVICE/<15><12>

CODE/

LASCIZ/PC/
LASCII/ZPC

TEST

FAILING/<15><12>

.ASCIZ/

NO.

ADDRESS/

020040
047040
020040
042522

020040
027117
040440
051523

020103
052040
052516
000
020103
052040
020040

020040
051505
041115

DH4T

LASCIZ/PC

TEST NUMBER/

020040
051505
040440
051523
040524
040510

DH52:

LASCII/ZPC

TEST

ADDRESS

LASCLZ/

NO.

CONTENTS/

042522
040504
051040

012
020040
047040
020040
042524

020040
027117
0461440
052116

159

DATA

RHAS/<15><12>

D 13
12=JUL=79
10 :46
MACY11 30A(°052)
END OF PASS ROUTINE

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

8398
8399

8400
8401
8402
8403
8404

8405
8406
8407
8408
8409
8410
8411
8412
8413
8414
8415
8416

8417
8418
8419
8420

8421
8422
8423
8424
8425
8426
8427
8428
8429
8430
8431
8432
8433
84,34
84,35
8436
8437
8438
8439
8440
8441
8442
8443
8444
8445
8446
8447
8448
8449
8450
8451
8452
8453

070762
070770
070776
071004
071012
071020
071026
071034
071041
071046
071054
071062
071070
071076
071104
071112

071120
071126
071130
071136
071144
071152
071160
071166
071174
071202
071210
071216
071224
071232
071233
071240
071246
071254
07162
071270
071276
071300
071306
071314
071322
071330
071336
071344
071352
071360
071364
071372
07400
071406
071414
071422
071430
071436

071442
071450

041520
020040
020040

044526

020040
020040
020040
041115
120
020040
020124
047117
020122
020040
020640
020040
043505
000122
041520
052040
047516
041110

051040

041520
052040
047516
040502
044122
020040
000

120
020040
047040
041510
051040
020040
000103
041520

052040
047516
051503
044122
041520
052040
047516
051503
041520
052040
047516
040502
044122
020040
020062
051503
041520
052040

020040
042524
020040
042503
020040
047516
020040
051105
020103
052040
020040
042524
043117
020040
047516
020040
05151

020040
020056
052516
000
020040
0515¢C5
041440
052116
005015
020040
020056
051040
042524

020040
051505
020056
042501
041110
020040
051505
020056
020105
040502
044122

020040
020124
051040
020040
000101
020040
020124
044122
020040
020040
041527

020103
042524

027117
030523
041110
051040
020040
051505

020056
020061
051503
020040

051505
020056
000061
020040
051505
020056
020105
040502
044122
020040
000063
020040
051505

DH71:

PAGE

160

SEG 0159

LASCLI/Pr

TEST

DEVICE/<15><12>

LASCIZ/

NO.

NUMBER/

LASCII/PC

TEST

CONTENTS OF/<15><12>

LASCIZ/

NO.

DH76:

.ASCIZ/PC

TEST NO.

RHBAE

DH105:

LASCIZ/PC

TEST NO.

RHBAE

RHBA

RHW(C/

020040
052123
051040
020040
020101
053510

DH111:

LASCIZ/PC

TEST

RH(CST

RHBA

RHW(/

020040
020124
0446122
020040
000062
020040
020124
044122

DH121:

LASCIZ/PC

TEST NO.

RHCS1

RH(S2/

DH130:

LASCIZ/PC

TEST NO.

RHCS1/

020040
020124
044122
020040
020040
051503
044122

DH132:

LASCIZ/PC

TEST

RHBAE

RHBA

020040
020124

DH142:

LASCIZ/PC

TEST NO.

EVENAD

RHTDB/

020040
652723
042504
005015

DH72:

NO.

RHBA/

RHCSZ

RHCS3/

MASSBUS RH70 ANC RHTM1 _DIAGNOSTIC
(ZRHBE PN
07=JUN=79 "3:44

8454
8455
B4S6
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472
8473
8474
8475
8476
8477
8478
8479
8480
8481

071456
071464
071472
071500
071506
071514
071522
071530
071536

071544

047516
047105
0446122
041520
052040
047516
051503
044122
020040

071545
071552
071560
071566
071574
071602
071603
071610
071616
071624
071631
071636
071644

071657
071664
071672
071700
071706
071714
071716
071724
071732
071740
071746

053105
020040
000102
020040
020124
044122
0200490
020062
041527

020103
042524
027117
020106
052110
04641110

00116/

30A(7052)
12=JUL=79
PASS ROUTINE

E 13

10:46

PAGE

TEST NO. RH(ST

RH(S2

020040
052123
051040
020040
041106

DH147:

ASCIZ/PC

TEST NO.

RBUF

RHTDB/

V42501
041110
051040
000
020040
052123
051040
000
020040
051505
042040
020105

DH170:

.ASCIZ/RHBAE

RHBA

RH(S3/

DH171:

LASCiZ/PC

TEST NO.

RHCS3/

DH172:

ASCII/PC

TEST

DEVICE

RHCS2/<15><12>

NO.

NUMBER

031123

ASCiZ/

003454
000000
003454
000000
003454
000000
003454
000000
003454
000000
003454

003444

.WORD

S$ERRPC,TSTNM,WC,$REGO.0

003416

.WORD

$ERRPC, TSTNM,BAE,$SREGO,0

003414

DT3:

.WORD

$ERRP(,TSTNM,BA,SREGO,0

003426

DT4:

.WORD

$ERRP(C,TSTNM,DB,$REGO.0

003422

DT5:

.WORD

$ERRPC,TSTNM,(S2,S$REGO,0

003422

pT11:

.WORD

SERRPC,TSTAM, (52,0

003454

003434

DT34:

.WORD

$ERRPC,TSTNM,DT,0

000000
003454

003330

DT35:

' WORD

%Egg;g:?STNM,RHCQT,O

003472

SEQ 0160

LASCIZ/PC

020040
020056
052516
020040

003454
003454

161

DH146:

020040
047516
020040

051105

071750
071756
071762
071770
071774
072002
072006
072014
072020
072026
072032
072040
072042
072050

072052
072056
072064
072966
072074
072102

020056
042101
042124
020040
051505
020056
020061
051503
044122

0510490
0¢0040
031523
020103
042524
027117
031523
020103
052040
020040
041511
041510

071652

MACY11
END OF

000000
003416
006000

.WORD
-WORD

SERRPC,TSTAM,0
$ERRP( . TSTAM.BAE,$REGD,AS,{

RHW(/

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

.WGRD

$ERRP(, TSTNM,BAE ,BA,W(,0

000000
003420

DT111:

.WORD

$ERRP(,TSTNM,(S7,BA,WC,0

DT121:

.WORD

$ERRP(C,TSTNM,(S1,052.0

003454

003420

DT130:

.WORD

$ERRPC,TSTNM,(S1,0

003454
003422

003416
003424

DT132:

<WORD

$ERRP(, TSTNM, BAE ,BA,(S2,(<3.0

003454

004000

DT142:

.WORD

$ERRP(, TSTNM,EVENAD,SREGO, 0

003420
000000
004100

DT146:

.WORD

$ERRPC,TSTNM, (S1,(S2.WC.0

DT147:

. WORD

$ERR
TSTNM, RBUF
PC,
,$REGY,0

003424

DTi70:

-WORD

BAE ,BA, (53,0

003454

003424

DT171 : .WORD

$ERRPC,TSTNM,(S3,0

003454
000000

004100

DT172:

.WORD

$ERRPC, TSTNM,RBUF , (52,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:

DF35:
DF 36:
DF4LY:
DFS2:

.BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE

0.0.0
.0.0

DF71:
DF76:

BYTE
BYTE

DF105:

.BYTE

DF132:

BYTE

DF170:

BYTE

LEVEN

o
o

(=]

()

BYTE

.0.0,0.0

DF172:

8
S
s

000

)

060000
003454
003444
003454
000000
003414

000000

DT105:

003416
000000
003420

$ERPOC, TSTNM,BAE ,BA,Q

.WORD

DT76:

o
O
O

003416

003454
000000
003454
003444
003454
003444
003454

OO0

$ERRP(C, TSTNM,RBUF ,0

OOUOOO

.WORD

072400
072403
072406
C72611

DI71:

072323
072324
072327
072330
072333
072334
072337
072340
072343
072346
072347
072352
072354
072357
072361
072364
072367
072370
072373
0/2375

162

004100

072314
072317
072320

001116
003422
001116
001162
003416
000000
001116
000000
001116
003422

PAGE

172300
072302
072310

001162

10: 46

003454

8533
8534
8535
8536

672270
072272

001116
000000
001116
003414
001116
003414
001116
003414
001116
003422
001116
002000
001116
003414
nO0000
001116

F 13

8517
8518
8519
8520
8521
852¢
8523
8524
8525
8526
8527
85¢8
8529
8530
8531
853¢

072110
072116
072120
072126
072132
07:140
072146
072154
072162
072170
072174
072202
072204
072212
072220
072222
072230
072234
072242
072250
072256
072262

30A(7052)
12=JUL=79
PASS ROUTINE

8510
8511
8512
8513
8514
8515
8516

MACY11
END OF

SEQ Q0161

MASSBUS RH7C AND RH11 DIAGNCSTIC
(JRHBE .P11
C7=LUN=79 13:44

8566
8567
8568
8569
8570
8571
8572
P573
8574
8575
8576
8577
8578
8579
8580
8581
8582
8583
8584
8585
8586
8587
8588
8589
8590
8591
8592
8593

8594
8595

859

8507
8598
8599
8600
2607
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612
8613
8614
8615
8616
8617
8618
8619
8620
862

MACYTT 30A(7052)
12=4UL=79
END OF PASS ROUTINE

G 13

10:46

PAGE

163

".'."‘.'t"tt.'.'ittt'.t."'QQQQ".Q.'Qt.'tQ..Q't.'..t"l.."....

072412
0724614

072416

072420
072422
072424
072426
072430
072432
72634
072436
072440
072442
072444
072446
072450
072452
072454
072456
072460
072462

072464
072466
072470
072472

072474
072476
072500
072502
072504
072506
072510
072512
07251¢
072516
072520
072522
072524
072526
072530
072532
072534
072536
072540
0r2542
072544
072546
072550
072552
072554
072556
072560
072562
072564
072566

000000
050342
050402
050427
050466
050525
050556
050610
050641
050705
05073¢
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
053677
053745
054013
054C66
054135
054210
054256

HEADER:

HED?

HED3
HED4

HEDS
HED6
HED?7

HED1Q

HED11

HED12

HED13

HED14
HED15

HED16

HED17

HED20
HEDZ21
HED 2?2

HEDZ23
HED24

HEDZ25
HED26
HED27
HED 30

HED 31

HED3?
HED33
HED 34

HED35
HED 36
HED3?7
HED4O
HED«1
HED4?2
HED43
HED&4

HEDGS
HED46

HED47
HEDS0
HEDS1
HEDS?
HEDS3
HEDS4

HEDSS
HEDS6
HEDS7
HEDG6D
HED61
HEDG?Z
HED63
HED64
HED6S

HED66

SEG 0162

MASSBUS RH70 AND WH11
(/RHBE P11

8622

8623

8624
8625
8626
8627
8628
8629

072570

072572
072574
072576
072600
072602
072604
072606

DIAGNOSTI(

07=IUN=7G 13:44

054332
054407
054455
056523
054577
054646
054722
054770

H13

MACYTT1 30A(3052)
12=)uL=79
END OF PASS ROUTINF
HEDGE7
HED?O
HED71

HED7?2

HED73

HED74
HED7S
HED 7€

10:46

PAGE

164

SFQ 0163

MASSBUS RH?( AND RH11

(ZRHBE P11

DIAGNOSTIC

MACY11

(7=JUN=79 13:44

30A(3052)

12-.UL=79

113

SCOPE. HANDLER ROUT INE

gg§$

.SBTTL

10:46

PAGE

165

SCOPE HANDLER ROUTINE

8632

. QQQt'tQ.QtfitQtttt"it"fi'tti*ttttttfifi'fifitfitttt'.'t'.t."'.."t.

B633

:*THIS ROUTINE CONTRCLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

8634
8635

8¢.36

8637
8638
8639
8640
8641

8644

072610

8646
8647
8648
8649
865C
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
8669
8670
8671
8672
8673
8674

072616

8645

8675

8676
8677
8678
8679
8680
8681
8682
8683
8684
8685

072610

032777

072620

000416

072622
072626
072634
072640
072644
072646
072650
072654
072656
072656
072664
072666
072674
072676
072702
072704
072712
072714
072722
072724
072732

07273
072740

072744
072746

072754

072756
072762
072764
072770
072776
073000
073006
073014
073020
073024

S eSWT4=1
teSWI1=1
*SW09-1

.
,

001111

:*SW08=1
s*CALL

‘

040000

106322

013746
012737
005737
012637
000463
022626
012637
000423

000004
072646
177060
000004

022777
001404
127737
001462
105737
001421
123737
101015
032777
001404
013737
000443
105037
005037
00045
032777

000400

106254

106246

001102

001011

005737
001406
005237
023737
002021
012737
013737
105237
011637
011637

.
000004

000004

001103
001115

001103

001000

106276

001110

001106

001103
001212

006000

106164

001100
001104
001212
000001
073056
001102
001106
001110

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

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

8642

8643

;*AND LOAD THE TEST RUMBER(STSTNM)
:+AND LOAD THE ERROR rLAG (SERFLG)

SEQ (0164

001104
0011046
001212
:

$SCOPE:

1%:

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST

SCOPE

BIT

IN SWR<7:0>

; :SCOPE=10T

#B]1T14 ,ASWR

;LOOP ON PRESENT TEST?

BNE
$OVER
SYES IF Swl4=1
:
;#ARRSTART OF C(ODE FOR THE XOR TESTERW##N#
$XTSTR: B8R
6%
;:IF RUNNING ON THE "'XOR'' TESTER CHANGE
'
$:THIS INSTRUCTION TO A 'NOP'' (NOP-240)
,
MOV
QMERRVEC,-(SP)
;:SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
#S$ 4ERRVEC
;:SET FOR TIMEOUT
TST
4177060
::TIME OUT ON XOR?
MOV
(SP)+,Q#ERRVEC
::RESTORE THE ERROR VECTOR
BR
$SVLAD
::GO TO THE NEXT TEST
5% :
CMP
(SP3+, (SP)+
::CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+,Q#ERRVEC
::RESTORE THE ERROR VECTOR
BR
7$
1:LOOP ON THE PRESENT TEST
6%:;auaRHMEND OF CODE FOR THE XOR TESTERA##4H
BIT
#B1T08,aSWR
;;LCOP ON SPEC. TEST?
BEQ
2%
::BR IF NO
CMPB
Q@SWR,$TSTNM
::ON THE RIGHT TEST?
SWR<7:0>
BEQ
SOVER
$:BR IF YES
2%:
TSTB
SERFLG
; ;HAS AN ERROR OGCURRED?
BEQ
38
:BR IF NO
(MPS
SERMAX,SERFLG
..MAx ERRORS FOR TRIS TEST OCCURRED?
BH]
38
:BR IF NO
BIT
#B1709,2SWR
::LOOP ON ERROR?
BEQ
4%
$:BR IF NO
7%:
MOV
$LPERR,SLPADR
::3ET LOOP ADDRESS O LAST SCOPE
BR
$OVER
4%:
CLRB
SERFLG
; ;26RO THE ERROR FLAG
CLR
STIMES
::CLEAR THE NUMBER OF ITERATIONS TO MAKE
.
BR
18
:ESCAPE TO THE NEXT TEST
3$:
BIT
#BIT11,3SWR
::INHIBIT ITERATIONS?
BNE

TST
BFQ
INC
(MP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOV
MOv

$PASS
18
$1CNT
STIMES,$ICNT
$OVER
#1,$1CNT
SMXCNT,STIMES
STSTAM
(SP),$LPADR
‘SP,SLPERR

::BR

YES

;:1F FIRST PASS OF PROGRAM
:
INHIBIT ITERATIONS
: :INCREMENT ITERATION COUNT
::CHECK THE NUMBER OF [TERATIONS MADE
::BR IF MORE ITERATION REGUIRED
;:REINITIALIZE THE ITERATION COUNTEK
::SET NUM3BER OF ITERATIONS T0 DO
::COUNT TEST NUMBERS
:SAVE SCOPE LOOP ADDRESS
;. SAVE ERROR LOOP ADDRESS

MASSBUS RH70 AND RH11
(ZRHBE .P11

8686
8687

8688

8689
8690

8691
8692
8633
8694
8695
5696
8657
8698
8699
8700

8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733

8734

MACYT1 "30A(1052)
12=JUL=79
SCOPE HANDLER ROUT INE

DIAGNOSTI(C

073030
073034
073042
073050
073054
073056

005037

112737
013777

013716
000002
00G100

001214

01115
06072

700001

(01102
0C1106

CLR

$OVER:
SMX(NT:
.SBTTL
A

073060
073066
073074
073076
073100
073102
073104
073106
073110
073114
073120
073126
073130

012737
01273%7
010046
070146
010246

010346
010446
010546
017746

010637
012737
000000
000776

MOvB
MOV

073220
000340

000024
000026

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737

$PWRDN: MOV

MOV
MOV

MOV
MOY

106024

MOV
MOV
HALT

000024

104401

CLR

INC
BNE

MOV
MOv
MOV
MOV

MOV
Mov
MOV
* MOV
TYPE

$PWRMG:

000002
000000
000776

000000
005015
000122

MOV

07322¢

-WORD

RTI

$ILLUP: HALT
BR

047520

042527

J2ONLY ALLOW ONE(1)

R3,-(SP)

. cPUSH R3 ON STAZK

s cHANG UP

R4 ,-(SP)
s sPUSH
R5,-(SP)
;sPUSH
aSWR,=(SP)
J:PUSH
SP,$SAVR6
. :SAVE
ASPWRUP ,#PWRVEC ;:SET

“POWER UP ROUTINE

$PWRUP: MOV
1%:

000024
000026

J:CLEAR THE ESCAPE

FROM FRROR ADDRESS
ERROR ON NEXT

TEST

ASILLUP,Q#PWRVEC ;;SET FOR FAST UP
#340,4PWRVEC+2 ;;PR]I0:7
RO,-(SP)
:sPUSH RO ON STACK
R1,-(SP)
;sPUSH R1 ON STA(K
R2,-(SP)
;sPUSH R2 ON STA(CK

A AR RAAAARARART

105756

073060
000340

SFQ 0165

$TSTNM,
QD] SPLAY ;:DISPLAY TES! NUMBER
$LPADR, (SP)
:;E?Dgg ggTURN ADDRESS
o FIX
100
:; ;MAX. NUMBER OF ]TERATJONS
POWER DOWN AND UP ROUTINES

MoV

00002¢

166

MOV
RT]

MOV
MOV
MOV

073220
073224
073224
073224

$ESCAPE

21,8ERMAX

PAGE

AL AR SRRl
R R
Y N Y R R N
S R R
]

SIARARNRN

073132
073140
073144
073150
073154
073156
073162
0737164
673166
673170
073172
073174
07317¢
073204
073212
073214
073216
073220
073222
073224
073226
073234

10:46

*POWER DOWN ROUTINE

0732¢4
073132

J13

$SAVR6: 0
$POWER: LASCIZ
LEVEN

R4 ON STA(CK
RS ON STACK
aSWR ON STACK
SP
UP VECTOR

NN AN ANNRNRANRNCARANNNRAANRANARNRRAATR
AN IR
NN

#SILLUP
, @#PWRVEC

;;SET FOR FAST DOWN

$SAVR6,SP
$SAVR6
$SAVR6
1%
(SP)+,SWR
(SP) + RS

J:GET SP
J:WAIT LOOP FOR THL TTY
J:WAIT FOR THE INC
:;0F
WORD
;:POP STACK INTO @SWR
;sPOP-STACK INTO RS

(SP)+,R3

s ;POP STACK INTO R3

(SP)+,R0O

;;POP STACK INTO RO

(SP) + ,R4

(SP)+,R2
(SP)+ R1

;. :POP STACK

INTO R4

;sPOP STACK INTO R2
J;POP STACK INTO R1

#SPWRDN ,#PWRVEC ;;SET UP THE POWER DOWN VECTCK
#340,34PWRVEC+2 ;;PRIO:7

$POWER

.~2

<155<1¢>" POWER"’

JREPORT

THE POWER FAILURE

s sPOWER FAIL MESSA?E POINTER

;. THE

POWER UP SEQUENCE WAS

;;PUT

THE

STARTED

;. BEFORE THE POWER DOWN WAS COMPLETE
SP HERE

5SBUS RH7C ANC RH11 DIAGNOSTIC
(ZRHBE.P11
07=JUN=79 13:44

8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747
8748
£749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764

8765
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

. MACY11
TYPE

30A(°052)

ROUTINE

.SBTTL
.. LA

12-JuL=79

K 13

10:46

PAGE

167

SEQ 0166

TYPE ROUTINE

RSS2l

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BrTE.
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINF FEED.

J*NOTE1:
*NOT:Z
;*NOTE3:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILI ER CHARA( "ER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO flILL AFTER.

> %

;+CALL:

~1) USING A
*OR
TYPE
-

073246
073250

073252
C73256
073260
073262
073264
073266

073272

073274
073300
073302
073306
073310
073312
073314
073316
073322
073324
073330
073334
073336

073342
073346
073350
073354
073360

105737
100002
000000

000407
010046
017600

112046
001005
005726
012600
062716

000002

122716

001430

122716
001006
005726
104401
001223
105037
000755
004737
123726
001350
013746

001157

TSIB
BPL

$TPFLC
1%

2%:

000002
000011

L%:

000200

5%:
6%:

001154

105337

073406
073452

112716

004737
132737

001372
005726

000040
073406
000607

AN AS{1Z

STRING

7%:

JoHALT HERE

;. LEAVE

NO TERMINAL

B8NE

JiBR IF

MOV
ADD
RTI

(SP)+ R0
#2,(SP)

;RESTGRE RO
;;ADJUST RETURN P(
; ¢RETURN

MOVB

(RO)+,-(SP)

TST

(SP) +

ASCIZ STRING

. sPUSH CHARACTER TO BE

cs1F

TYPED ONTO STACK

IT ISN'T THE TERMINATOR

TERMINATOR POP

#HT , (SP)

8%
#CRLF , (SP)

TST
TYPE

(SP) +

;:POP
;sTYPE

$CHARCNT
2%
'
PC,$TYPEC
SFILLC,(SP)+
2%

;sCLEAR (CHARACTER COUNT
J2GET NEXT (CHARACTER
;.G0 TYPE THIS CHARACTER
22IS IT TIME FOR FILLER (HARS.?
;oIF NO GO GET NEXT CHAR.

$CRLF
CLRB
BR
JSR
CMPB
BNE

$NULL ,=-(SP)

DECB
BLT
JSR

1(SP)
6%
PC,$TYPEC

${HARCNT

BITB
BNE
TST

2 ;BRANCH IF

#'
.

,(SP)

PC,STYPEC

#7,%CHARCNT
9%
(SP) +

STACK

<HT>

NOT

<(CRLF>

<CR><LF> EQUIV
A CR AND LF

csGET # OF FILLER CHARS. NEEDED

ssAND THE NULL CHAR,
;.DOES A NULL NEED 70 BE

TYPED?
J2BR IF NO--GO POP THE NULL OFF OF
;:G0 TYPE A NULL

,,DO NOT COUNT AS A COUNT
.LOOP

TAB PROCESSOR

MOVB
JSR

THE

CMPB

;;BRANCH

[T OFF

BEQ
CMPR

DE(CR

8%:

;s15 THERE A TERMINAL?
;s8R IF YES

::SAVE RO
;.GET ADDRESS OF

MOV

073452

ADDRESS OF

RO,~(SP)
22 (SP) ,RO

JHORIZONTAL

073362
073366
073372
073400
073402

FIRST

MOV
MOV

BNE

073452

000001

000770

$TYPE:

60%:
3%:

105366

002770
004737

MESADR

1%:

073406
001156

TYPE

HALT

000002

;:MESADR

073236
0732472
073244

TRAP INSTRUCTION
.MESADR

J;REPLACE

TAB WITH SPACE

;oTYPE A SPACE

;:BRANCH IF NOT AT
.. TAB STOP
:.POP

SPACE

OFF

STA(K

STACK

* .

MASSBUS RM70 AND RH11

{ZJRHBE .P11

(073604
073406
073412
073415
07342¢
073430
073432
073436

000724
105777
100375
116677
122766
001003
105037
(00406

8800
8801
8802
88G3
8804

073446
(073450
073452
(73454

001402
105227
000000
000207

073440

MACY1T1

105536

$TYPEC:

07=JUN=79 13:44

8791
8792
8793
8794
8795
8796
8797
8798

8799

DIAGNOSTIC

122766

000002
000015

TYPE ROUTINE

105530
000002

073452

000012

30A(7052)

000002

1%:

BR
TSIB
BPL
MOVB
(MPB
BNE
CLRB
BR

CMPBR

BEQ
INCR
$CHARCNT: .WGRD
$TYPEX: RTS

12=JuL=79

2%
a$TPS
$TYPEC
2(SP),a$TPR
#CR,2(SP)
1
$CHARCNT
$TYPEX

#LF,2(SP)

$TYPEX
(PC)+
0
Pr

L 13

10: 46

PAGE

168

JsGET NEXT (HARA(CTER
JoWAIT UNTIL PRINTER S READY
;:LOAD (HAR TO BE TYPED INTO DATA REG.
;315 CHARACTER A (ARRJAGE RETURN?
;JBRANCH ]F NO
;s YES==CLEAR CHARACTER (OUNT
JIEXIT

;1S CHARACTER A LINE FEED?

. sBRANCH ]F YES
;3COUNT THE CHARACTER
2 sCHARACTER COUNT STORAGE

SEQ 0167

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

MACY11

BINARY

.SBTTL

30A(*052)
TO OCTAL

M13
12-JUL=79
10:46

(ASCII)

AND

BINARY TO O{TAL

PAGE

TYPE

169

SEQ 0168

(ASCII) AND TYPE

'Qtfi‘fi"*'fi*'t't*fitltl‘i.‘titt*t.fifl.*!Qfi'fiififitflfitfi**ttifi'ttt'iQt

'THIS

;«0CTAL

ROUTINE

(ASCII)

IS USED

TO CHANGE

16-BIT BINARY NUMBER

NUMBER AND TYPE

[IT.

J3NUMBER TO BE TYPED
;.CALL FOR TYPEOUT

TO A 6=-DIGIT

:'%LYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
;*CALL:

o
I

MOV
TYPOS

NUM, -(SP)

BYTE

.BYTE

JoN-1

TO 6 FOR NUMBER OF

;:M=1 0RO

;:1-TYPE

;*$TYPON-~--ENTER HERE
;*$TYPOS OR $TYPOC

;=CALL:

I
o %

TO TYPE

LEADING ZEROS

5 ;0-SUPPRESS LEADING ZEROS

DIGITS

MOV
TYFON

TO TYPE OUT WITH THE

NUM,~(SP)

SAME PARAMETERS AS

THE LAST

;sNUMBER TO BE TYPED
;:CALL FOR TYPEQUT

* K

;*%TYPOC---ENTER HERE
s«CALL:
o *
Ix

073456
073462
073470
073474
073500
073502
073510
073516
073524
073526
073530
073532
073536
073540
073544
073550
073554
073560
073562
073564
073566
073570
073572
073574
073576
073600
073604
073606

073612
073614
073616

017646
116637

000000
000001
073703
000002
000001
000006
000005

073701

073701
073703
073700

$TYPOS: MOV
MOVB

MOVB

$TYPOZ:
$TYPON:

000006
073702
073701
000012

2%:

177770

001403

3%:

2(SP) ,~(SP)
1(SP) ,$0FILL

(SP)+,$0MODE+1

;;PICKUP THE MODE
csLOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

#6,30MODE +1
#5,80CNT

csSET THE ZERO FILL SWITCH
;2SET FOR SIX(6) DIGITS
csSET THE ITERATION COUNT

MOV

R3,~(SP)

;sADJUST RETURN ADDRESS

;:SAVE R3

N
ADD

R4 ,~(SP)
RS,-(SP)
32MODE+1.R4

. sSAVE R4
;sSAVE RS
;:GET THE NUMBER OF

#6 ,R4

:sSUBTRACT

MOVB
MOV

$OFILL RS
12(SP) ,RS

;oGET THE ZERO FILL SWITCH
2 :PICKUP THE INPUT NUMRER

ROL
BR

RS
3%

;;ROTATE MSB INTOQ '°C*'
;G0 DO MSB

ROL
ROL
MOV

RS
RS
R5,R3

MOVBR

1%:

A 16 BIT NUMBER

. sNUMBER TO BE TYPED
. sCALL FOR TYPEOUT

#2,(SP)
$TYPON
#1,80FILL

MOVR
MOVR

TYPEOUT OF

NUM,-(SP)

ADD
BR
MOVR

MOV
MOV
MgéB

073703

073702

MOV
TYPOC

FOR

CLR

ROL

R4 , $OMODE

R3
R5

IT FOR MAX.

;sSAVE IT FOR USE

. :CLEAR THE OUTPUT WORD
J.FORM THIS DIGIT

ROL

J:GET LSR OF

BPL
BIC
BNE

7%
#177770,R3
4%

;:BR IF NO
:.GET RID OF JUNK
;:TEST FOR O

DECR

TST

BEQ

$OMODE

DIGITS

;2 TYPE

THIS DIGIT?

.. SUPPRESS

;:BR

YES

)

THIS DIGIT

THIS (2

TO “YPE

ALLOWED

MASSBUS RH70 AND RH11
( ZRHBE P11

8861
8862
8863
8864
8865
8866
8867
8868
8869
8870
8871
8872
8873
8874

8875
8876
8877
8878
8879
8880
8881

073620

073622

073626
073632
073636
073642
073646
073650

073652
073654
073656
073660
073662
073664
073672
073674
073676
073677
073700
073701
073702

N 13

MACY11 30A(i052)
12=JUL=79
10:46
BINARY TO OCTAL (ASCII) AND TYPE

DIAGNOSTIC

07=JUN=-79 13:44

005204
052703
052703

110337
106401
105337

003347
002402
005204
000744
012605
012604
012603
016666

000060
000040
073676
073676
073700

5%:
7%:

6%:

000002

000004
8%:

0
000000

INC

BIS
8IS

MOVR
TYPE
DECB

B8GT
BLT
INC
BR
MOV

MOV
MOV
MOV
MOV
RT]

BYTE

BYTE
$O(NT:
.BYTE
$OFILL: .RYTE
$OMODE: .WORD

#'0,R3
#' R3

R3,8%

PAGE

170

;:DON'T SUPPRESS ANYMORE 0°'S

;JMAKE THIS DIGIT ASCII
JsMAKE ASCI] IF NOT ALREADY

::SAVE FOR TYPING

::GO TYPE THIS DIGIT

$OCNT
2%
63

;JCOUNT BY 1
;:BR IF MORE TO DO
::BR IF DONE

;:G0 DO THE LAST DIGIT

(SP)+,R4

::RESTORE

(SP) + RS

(SP)+,R3
2(SP) .4 (SP)
(SP)+,(SP)

0
0
0
0

s INSURE LAST DIGIT ISN'T A BLANK

;sRESTORE RS
R4

;:RESTORE R3
;:SET THE STACK FOR RETURNING

: ;RETURN

;:STORAGE FOR ASC!I DIGIT
::TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;:2ERO FILL SWITCH

;:NUMBER OF DIGITS 10 TYPE

SEQ 0169

8 14
MACY11 30A('052)
12=JUL=79
10:46
PAGE 171
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

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

8882
8883
8884
8885
8886
8887
8888
8889
8850
8891

.SBTT.

8896

8897
8858
8899
8900
8901
8902
8903
8904
8905
890¢
8907
8908
8909
8910
8911
8912
8913
8914
8915
8916
8917
8918
8919
8920
8921
8922
8923
8924
8925
8926
8927
8928
8929
8930
8931
8932

8933
8934
8935
8936
8937

TYPE ROUTINE

':t*ttttfitt'l’ttt"tttfitttttt'tt'fit'fiil!tttiQfilt'ttttitt'tt"itti'

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

8892

8893
8894
8895

CONVERT BINARY TO DECIMAL AND

SEQ 0170

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

$TYPDS:

010046
010146
010246
010346

010546

012746
016605
100004

005405

112766

005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005702
001002
105775
10040/
106316
103003
116663

052702
052702

110223

005720
020027
002746
003002
010502
000764
10572¢
100003
116663
105013

012605
012603
012602

020200

000020

000055

MOV

TYPDS

MOV
MOV
MOV
MOV

074120
000040

1%:

2%:

074110

3%:

NEG
MOVB
CLR
MOV
MOVR
CLR

RS
#'-,1(SP)
RO
#$DBLK ,R3
#' L (R3)+
RZ

000001
000060
000040

6%:

I4 ¥

177777

177776

9%:

RO
R1
R2
R3

ROUTINE

ON
ON
ON
ON

STACK
STACK
STACK
STA(CK

;:PUSH RS ON STACK
;oSET BLANK SWITCH AND SIGN

;:GET THE INPUT NUMBER
;:BR IF INPUT IS PCS.
. :MAKE THE BINARY NUMBER POS.
;sMAKE THE ASCII NUMBER NEG.
c+JERC THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;2SET THE FIRST CHARACTER TO A BLANK
. :CLEAR THE BCD NUMBER

;;BR IF DONE
;. INCREASE THE BCD DIGIT BY

ADD
TST

R1,RS
R2

:sADD BACK THE CONSTANT
. CHECK IF BCD DIGIT=0

TSTR

(SP)

;:STILL

8LT
ég(

BMI
ASLB
BCC
MOVR
BIS

7%
(SP)
6%
1(SP) ,~1(R3)
#'0,R2

MOVR

R2.(R3)+

BIS

CMP
8LT
BGT

8%:

;:PUSH
;JPUSH
;sPUSH
J:PUSH

THE

;2GET THE CONSTANT
;:FORM THIS BCD DIGIT

TST

000010

20(SP) RS
1%

$DTBL (R0O) ,R1
R1,RS
4%

BNE
5%:

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

RS5,-(SP)
#20200,-(SP?}

MoV
SuB

+2PUT THE BINARY NUMBER ON THE STACK
;G0

MOV
MOV
MOV
BPL

0006001

NUM, - (SP)

LR2

{(RO) +

RO,#10
2%
8%

MOV

RS,RZ2

MOV

(SP) +,RS

BR
TSTR
8PL
MOVB
CLRB
MOV

MOV

JiFALL

THROUGH IF O

DOING LEADING 0°'S?

.:BR IF YES
;:MSD?
2:BR IF NO
. JYES-=-SET THE SIGN
;sMAKE THE BCD DIGIT ASCl!

;sMAKE IT A SPACE IF NOT ALREADY A DIGIT
:sPUT THIS CHARACTER

.2 JUST INCREMENTING

IN THE OUTPUT BUFFER

JsCHECK THE TABLE INDEX
;:GO DO THE NEXT DIGIT
;:G0 TO EXIT

;:GET THE LSD

6%
*
(SP)+
9%
-1(SP),=2(R3)
(R3)

,.GO0 CHANGE TO ASCII
csWAS THE LLSD THE FIRST NON-ZERQ?
JsBR IF NO
;sYES==SET THE SIGN FOR TYPING
;ISET THE TERMINATOR

(SP)+ R3

;;POP STACK INTO R3

(SP)+ ,R2

;sPOP STACK

INTO RS

;.POP STACK

INTQO R2

c1 4

MASSBUS RH70 AND RH11 _DIAGNCSTIC
(/RHBE .P11
07=JUN=79 13:44

8938
8939
8940
8941
8942
8943
8944
8945

074066
074070
074072
0746076
074104
074106
074110
074112

8947
8948

074116

8946

074114

074129

012601
C12600

104401
016666

012616
000002
023420
001750
000144
000012
000004

074120
000002

MACY11 30A(i052)
12=JUL=79
10:46
PAGE 172
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000004
$DIBL:

$DRLK:

mMov
MoV
TYPE
MOV
MOV
RTI
10000.

(SP) +,R1
(SP)+,RO

. SDBLK

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

1000.
100.

10-

.BLKW

;:POP STACK
. sPOP STACK

SEQ 0171
INTO R1
INTO RO

;:NOW TYPE THE “UMBER
:;ADJUST THE STACK

;;RETURN TO USER

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

D 14

MACY11 30A(7052)
12-JUL=79
10:46
ERRCR MESSAGE TYPEOUT ROJTINE

gggg

.SBTTL

8951

M "iit'lttttfi.fitfifil‘.tfittt"fi'i"'t't*.fitttQ.tfit'fitQtfitfitfifl.il'..'

8952
8953
gggg

:*THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE'' ($ITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. [T 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
074144

104401
010046
005000
153700
001004

00 223

074146

013746

001116

074152
074154
074156
074160
074162
074164
074166
074172
074176
074200
074202
074204
074210
074214
074216
074220
074222
074226
074230
074232
074234
074240
074242
074242
(074244
074246
074250
074252
074256
074260

104402
000426
005300
006300
(006300
006300
062700
012037
001404
104401
000000
104401

012037

001404
104401
000020
104401
017000
001004
012600
104401
000207

013046
104402
005710
001770
104401
000771
020040
074264

$ERRTYP:

001°74

1%:

001226
074202

001223

074220

001223

2%:

3%:
4%:
5%:

6%:
7%:

074260
000

8%:

ERROR MESSAGE

PAGE

TYPEOQOUT ROUTINE

TYPE
MOV
CLR
BISB
BNE

. $CRLF
RO,-(SP)
RO
A¥SITEMB,RO
1%

MOV

CRRPC,=(SP)

TYPO(
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
.WORD
TYPE
MoV
BEQ
TYPE
.WORD
TYPE
MOV
BNE
MOV
TYPE
RTS
Mov®
TYPO(
TST
BEQ
TYPE
BR
LASCIZ
.EVEN

6%
RO
RO
RO
RO
#SERRTR,RO
(RO)+,2%
3%
O
.SCRLF

(RO) +,4%

0
.SCRLF
(RO) ,RO
7%
(SP)+,R0
SCRLF
PC
A(RO) +,~(SP)

(RO
6%
.8%
’$
/7
7/

;. 'CARRIAGE RETURN''
& "'LINE FEED'
;. SAVE RO
;;PICKUP THE ITEM INDEX
;oIF ITEM NUMBER IS ZERO, JUST
;o TYPE THE PC OF THE ERROR
;s SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS
:.GO _TYPE=-~OCTAL ASCII(ALL DIGITS)
;.GET our
;;ADJUST THE INDEX SO THAT [T WILL
Sl
WORK FOR THE ERROR TABLE

;.FORM TABLE POINTER
;cPICKUP "ERROR MESSAGE'' POINTER
;s SKIP TYPEQUT IF NO POINTER
;. TYPE THE 'ERROR MESSAGE''
;. 'ERROR MESSAGE'' POINTER GOES HERE
;o 'CARRIAGE RETURN'' & ‘LINE FEED"'
;:RICKUP 'DATA HEADER'' POINTER
;;SKIP TYPEOUT IF O
;. TYPE THE 'DATA HEADER''
;. DATA HEADER'' POINTER GOES HERE
;' 'CARRIAGE RETURN''
& ‘LINF FEED"
;.PICKUP "DATA TABLE'' POINTER
;GO TYPE THE DATA
;. RESTORE RO
;' 'CARRIAGE RETURN'' & ‘LINE FEED"
: JRETURN
;.SAVE Qa(RO)+ FOR TYPEQUT
;:GO TYPE--OCTAL ASCII(ALL DIGITS)
;. 1S THERE ANOTHER NUMBER?
;:BR_IF NO
;o TYPE TWO(2) SPACES
..LOOP
2. TWO(2) SPACES

SEQ 0172

MASSBUS RH7C AND RH11 DIAGNOSTIC
(ZRHBE .P1"
07=JUN=79 13:44

MACY11 30A(7052)
12-JuL~-79
ERROR HANDLER ROUTINE

E 14

10:46

PAGE

174

gggg

.SBTTL

8998

:.-tttttttttttt.t"tt'ttttttttttfittttttttfitttttttttttttt.ttt.'!ttfi

8599
9000
9001

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE FRROR COUNT,
.*SAVE THE ERROR [TEM NUMBER AND THE ADDRESS OF THE ERROR CAL{
;*AND GO TO TSTNMB ON ERROR

9003
9004
9005
9006
9007
2883

;*SW15-1
:*SWi3=1
;*SW10=1
;*SW09=1
J*CALL
I
ERROR

9002

;»THE SWITCH OPTIONS PROVIDED B8Y THIS ROUTINE ARE:

9010
G011
9C12
9013

0746264
074264
074270
074272

9016
9017
9018
9019
9020
9027
9022
9023

074310
074314
074320
074324
074332
074340
074346
074350
074354
074360
074360
074364
074366
074370
074376
074400
074404

9014
9015

9024
9025
9026
9027
9028
9C29
9030
903.
9032
9033
9034
5035

9G3¢

ERROR HANDLER ROUTINE

074300
074306

074410
074412
(074416

074476

105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401
005777
100001
000000
032777
001402
013716
005737

001402
013716
000002

$ERROR:
7%:

001103
001102
002000
001216
001112
001116
000002
104560
(20000

104642
104632
1%:

001116
001114
104572

050104
001223

20%:
2%:

104554
001000

001110
001214
001214

104542

3%:

4%:
5%:

HALT ON
INHIBIT
BELL ON
LOOP ON

ERROR
ERROR TYPEOQUTS
ERROR
ERROR

; sCRROR-EMT AND N=ERROR [TEM NUMSER

INCR
BEQ
MOV
RIT
BEG
TYPE
INC
MOV
SUB
MOVR
BIT
BNE
JSR
TYPE

$ERFLG
7%
$TSTNM,aDISPLAY
#IT10,3SWR
19
LOBELL
$ERTTL
(SP) ,$ERRPC(
#2,3ERRP(
Q$ERRPC,$ITFEMB
#B1T13,aSWR
20%
PC,TSTNMS
LSCRLF

TST
BPL
HALT
BIT
BEQ
MOV
TST
BEQ
MOV

aSWR
3%

RTI

#81T709,aSwR
A 3
$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

;.SET THE ERROR FLAG
ssDON'T LET THE FLAG GO T0 ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
. :BELL ON ERROR?
;INO = SKIP
JsRING BELL
;s COUNT THE NUMBER OF ERRORS
2;GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE
;J:SKIP TYPEOQUT IF SET
;:SKIP TYPEOQUTS
;2G0 TO USER ERROR ROUTINE
JsHALT ON ERROR
JsSKIP IF CONTINUE
JJHALT ON ERROR!
;;LOOP ON ERROR SWITCH SET?
c2BR IF NO
. sFUDGE RETURN FOR LOOPING
;. sCHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
2 sFUDGE RETURN ADDRESS FOR ESCAPE
;;RETURN

SEQ 0173

MALSHUS RH70 AND RH11

{JRHBE P11

MACYT11 30A(105¢)
TTY INPUT ROUTINE

DIAGNCSTIC

07=JUN=79 13:44

LSBTTL

TTY

12-JuL=79

14
10:46

PAGE

175

SEQ 0174

[INPUT ROUTINE

N t'.ttt.'i".'..'fitlt.ttt"tQt"'Q.'t'.tfi't..fl"'l't"t.Qtt.'t..

CENABL

LSB

.DSABL

LS8

. tt"".’fi'ttfittt"'tfifi'tt't'.ififitfit""ttt.'tififitthtt.tt't.ti.t

$*THIS

ROUTINE

J*CALL:
:'

RDCHR

WILL

INPUT

SINGLE

RETURN HERE

074420
074422
074430
0746434
076436
074444
074452
0764460
0746462
0746466
074479
074474
074500
074504
074506
074510
074516
074520
074526
074530
074536

016666

000004

000002

117766

124504

000004
000004
000023

105777

104510

042766
026627

177600
000004

105777

1046456

117746
042716

$RD(HR.

1¢:

2%:

104452
177600

022627

000021

026627

000004

000140

026627

000004

000175

042766

000040

000004

MOV

4%:

;CHARACTER

:3A CHARACTER

a$TKB,4 (SP)
#2C<177>,4(SP)
4(SP) 423
3%

BPL

Q%$TKS

MOVR
BIC

o%$TKB,~(SP)
#°C177,(SP)

BNE

CMP

4(SP) 4140

BLT
M-

BGT
BIC
RTI

BIT

MCvVB
BIC
(MP
BNE

PARITY

(SP) + 421

TTY

C(HARACTER FROM THE! TTY

:JPUSH DOWN THE P(C

L(SP) ,2(SP)
2%$TKS

TSTR

1S ON

THE

(SP) ,=(SP)

MOV
ISTB

B8FL

FROM

sJINPUT A SINGLE
J:WITH

CMP

(HARACTER

THE

STA(K

STRIPPED

. ;SAVE THE PS
JIWAIT FOR

;;READ THE TTY
;:GET RID OF JUNK [F ANY
;1S 1T A CONTROL-S?
JJBRANCH IF NO

J2WAIT FOR A CHARACTER

.sLOOP UNTIL

ITS THERE

::GET CHARACTER
JMAKE IT 7-BIT ASCII
..IS IT A CONTROL-Q?

;2IF NOT DISCARD IT

J2YES,

(A 3
L(SP) #1175

:cBRANCH IF YES
;IS 1T A SPECIAL CHAR?

43
#40,4(SP)

OFF

RESUME

2318 1T UPPER CASE?

::BRANCH IF YES
JIMAKE IT UPPER CASE

;:G0 BACK TO USER

- 'tfilt*'t"'tttttifi‘Iti*tl*.t'fi!tttfitfifii.t't*'Qti'i‘tfiti't’t*t'i

'E:IS ROUTINE WILL INPUT A STRING FROM THE TTY
;«CALL:

;'
A
I

074540
074542
074546
74552
074554

074556
074560
074564
074566
074572
074574
074600

2703
2703

074646
074656

$RDLIN: MOV

1%:
2%:

2713 000177

10%:

4401

001222

11337

Q74644

04401

074644

RDL IN
RETURN HERE

MOV
CMP

R3,-(SP)

J2INPUT A STRING FROM THE TTY
;cADDRESS OF FIRST (HARACTER WILL BE N
;. TERMINATOR WILL BE A BYTE OF ALL 0°'S

;3SAVE R3

#ETTYIN_R3Z
#STTYIN+8. ,R3

;:;GET ADDRESS
JJBUFFER FULL?

MOVB
CMPR

(SP)+,(R%
#177.(R3)

CHARACTER FROM
;:GET CHARACTER
;31S IT A RUBQUT

TYPE

L$QUES

BLOS
RDCHR

BNE

BR
MOVB
TYPE

1%
(R3),9%
.9%

;.BR IF YES
;G0 READ ONE

;:SKIP IF NOT

J2TYPE

;sCLEAR THE BUFFER AND LOOP
. sECHO THE CHARA(TER

THE

TTv

iHE

STA(K

MASSBUS RH70 AND RH'1 DIAGNOSTIC
(ZRHBE P11
07=JUN=7G 13:44

9093
9094

9095

9096
9097
9098
9099
9100

9101
9102
9103

5104
9105
9106

%107

5108
9109
G11C

074604
074610
074612
074616
074622
074624
076626
074634
074642
074644
074645
074646
074656
074663
074670
074676
074701
074706

122723

000015

1046407

001224

001356
105063

012603

011646
016665
012766
000002

MACY11
TTY

INPUT

TYPE

MGV

000002
000004
9% :

005015
006507

053523
000
047040
000040

ROUTINE

(MPR
BNE
CLRR

177777

000004
074646

30A(7052)

MOV
MOV
MOV
RTI
BYTE

12=JUL=79

G 14

#15,(R3)+
2%
=1(R%

10: 46

PAGE

176

J;CHECK FOR RETURN
;sLOOP [F NOT RETURN
J:CLEAR RETURN (THE

JSLF

;oTYPE

(SP)+ ,R3

(SP) ,=(SP)
L(SF),2(SP)
#STTYIN,L(SP)

A LINE

FEED

FIRST

ASCI]

000
000012
020122

0
8.
/7*U/<15><12>
/*G/<1%><12>
;s CONTROL
<15><12>/SWR = /

053505

$MNEW:

LASCIZ

(HARACTER ON

. JRETURN
. ;STORAGE FOR AS(Il CHAR. 10 TvPF
;s TERMINATOR
;sRESERVE 8 BYTES FOR TITY INPUT
;sCONTROL 'V

BYTE
.BLKB
.ASCIZ
.ASCIZ
LASCIZ

15)

J:RESTORE R3
2 :ADJUST THE STACK AND PUT ADDRESS OF

$TTYIN:
$CNTLU:
$CNTLG:
MSWR:

NEW

StQ 0175

''G"’

THE

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

MACY11

READ AN OCTAL

.SBTTL
.

14
10:46
NUMBER FROM THE TTy

30A(7052)

12=4UL=79

READ AN OUTAL

NUMBER

FROM

PAGE

177

SEQ 0176
THE

TTv

't"'!'.'t'*"t‘l"*Qfitttfitifi.ttttl.fit'Qtt.fi.fi'tfi'.ttfi"'.."fi..

2*THIS ROUTINE WILI READ AN OCTAL (ASCII) NUMSER FROM THE “TY AND
;*CHANGE 1T TO BINARY.

c*CALL:
RDOCY
.t

. v
C74712
Q74714
074722
0746724
074726
074730
074732
074734
074736
074740
074742
074744
074746
074750
074752
074754
074756
074760
074764
074766
074770
074772
074776

075002,
075004
075006
075010

075012

011646
016€66
010046

000004

010146
010246
104407

012600
005001
005002
112046
001412
006301
006102
006301
006102
006301
006102
042716 177770
062601
000764
005726
010166
00C012
010237 075012
012602
012601
012600
000002
000000

000002

RETURN MERE

$RDOCT: MOV
MOV

1%¢

MOV
MOV
MOV
RDL IN
MOV
LR

2%:

(LR
MOVR
BEQ
ASL
ROL
ASL
ROL
ASL

3%:

$H[0CT:

ROL
BIC
ACD
8R
TST
MOV
MoV

MOV
MOV
MOV
RTI

.WORD

(SP) ,=(SP)

4L(SP) ,2(SP)

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

(SP)+ R0

RZ
(RO)+,=(SP)
3%

R®
R2
R1
RZ2
R1

R?2
#2C7,(SP)
(SP)+
R1
2%
(SP)+
R1,12(SP)
R2,$H10CT

;cREAD AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STA(K
;.HIGH ORDER BITS ARE IN $HIOCT
;sPROVIDE

SPACE

FCR

THE

22 INPUT NUMBER
;.PUSH RO ON STA(CK
;sPUSH R1 ON STACK
s .PUSh R2 ON STA(CK
;JREAD AN ASCIZ LINE
;;GET ADDRESS OF 1ST (HARA(TER
;;CLEAR DATA WORD
;sPICKUP THIS CHARA(TER
::15 ZERG GET Cur
JI%4

;.*8
.oSTRIP THE

ASCII

JUNK

;:ADD IN THIS DIGIT
. 2LOOP
;s CLEAN TERMINATCOR FROM STA(K
;:SAVE THE RESULT

(SP)+ R2
(SP)+ ,R1
(SP)+ RO

. sPOP STACK

.., HIGH ORDER BITS GO RHEKE

;;POP STACK INTO R2
INTO RI

;sPOP STACK INTO RO

2 sRETURN

MASSBUS RH70 AND RH11

ZRHBE P11

9149

9150
9187
9152
9183
9154
9155
9156
9157
9158
9159

9160
9161
@162
9163
9164
9165
9166
9167
9168
9169
9170
9171

9172
9173
9174
9175
9176
9177
9178
9179

9180
9181
9182
9183
9184
5185
9186
9187
9188
9189
9190

MACYT1 30A(7052)

_DIAGNOSTI(

O07=JUN=70 13:¢4

°*

12-JUL=79

TRAP DECODER

LSBTTL

)
,

10:46

PAGE 178

SEQ 0177

TRAP DECODER

.'"'t"‘ttfit'tt'i'!fitt.t*t*t'tfii*'tiit'it.'ttitttt*kittfiitttt't'."

;*THIS ROUTINE

;*AND USE

WILL

PICKUP

THE

IT TO INDEX

LOWER BYTE

THE

‘'TRAP'' INSTRUCT]ION

THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
THE DESIRED ROUTINE. THFN USING THE ADDRESS OBTAINED [T wILl

;~OF
;*GO TO THAT ROUTINE.
075014
075016
075022

075024
075026
075030
075034

075036
075040
075046

010046
016600
005740

111000
006300
016200
(00200

011646
0:6666
000092

000002

$TRAP:

RO,~(SP)

TST

-(RO)
(RO) RO
RO
$TRPAD
(RO) ,RO

MOV

MovR
ASL
MOV
RTS

075950

000004

MOV

000002

soTHIS

IS USE

$TRAP2:

MOV
MOV

.SBTJL

2(SP) ,RO

;:GET TRAP ADDRESS

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

TO HANDLE

THE

(SP) ,=(SP)
4(SP} ,2(SP)

RTI

)

;:SAVE RO

;sBACKUP BY 2

''GETPRI'' MACRO

;;MOVE THE PC DOWN
;;MOVE THE PSW DOWN

s sRESTORE

THE

PSW

TRAP TABLE

;*THIS

TABLE

ROUT INE

CONTAINS

THE

STARTING ADDRESSES OF

;*BY THE "‘TRAP‘' INSTRUCTION.

075050

075036

075052
075054
075056
075060
075062

073236
073502
073456
073516
073704

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

075064

074420

Q075070

(074712
000091

$RDCHR
$RDL IN
$RDOCT

075066

074540

LEND

$TRAP?

;s CALL=TYPE

TRAP+1(104401)

THE

ROUTINES

(ALLED

;. CALL=TYPOC
;2 CALL=TYPGS

TRAP+2(104402)

csCALL=TYPON
.+ CALL=TYPDS

TRAP+3(104403%)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOQUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZERGCS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

s s CALL=RDCHR
s s 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 TTY

)

J 14

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

AB
ABLE

= 052525
01363

ADD1

003320

ADDERR

ADD?2

anp3
ADD4

16854
2754

2023

2029

003322

16254

1893

003324
003326

16244

1869
1892
1895
1898
6542
2590
15424
1835
16664

ATO
AT
ATZ2

000001
000002
000004

5454

5736

32¢8

3373

3570

2675

6018

6300

20364

1894

1897
1900

.
3126

= 000400

2682

3040

3076

3091

3233

3338

3428

7535

3640

3743

3844

3945

= 001000
003414

15564
16674

3015
2206+

3076
2255%«

3091
22905+

3233

3338

3428

3535

3640

37243

3844

3945

6767

2342x

2542+«

D566%

2615+

2649+

2652

2655+

336¢x
4367«
5043«
ggg?*

3632+
4420%
5105+«
59764«

3539
4473=
5145+
6050+

3644%
4526%
5210%
6115«

3747+
4579%
5269*
6191«

3848+
4632%
5345+
6256*

3949x
L685x
5410%
6332*

4045+
4738x
5486*
6414+

4110%
4791x
5551
B494

4159+
4B44>
5627%
8512

4209%
4B97+
5692
8514

4259+
4950+
5768*
8516

4374+
S008+
5833«

16684

2209+

2212+«

2258+

2261

2298+

2301«

2345%

2348x

2402+

2483»

4265*
4635«
6956

46317x
4638+
5011~

4320%
46BBr
5074+

5413+
5839
6335+

4370%
4601
5046+

5476%
5912+
6338«

4373x
4741%
S049x

4404
3636

6772
36384

6787

2108
3575+

2115
3678+

2723
3680

= 000100
<~ 000200

000010

000020
= 000040

BAE

BAETST
BAI
=
BAKER
BATST
BATSTA
BEAU
BEFORE

BEGIN

3180

SEQ 0178

16014
1602#
16034
1604n
16054
16064
1607#
1608#
égggd

AT6
AT7

[BEGINTM

1891#
19034
1907#
1911#
65454
25924
2104
1844M
2404~

2033

2806
2763

B508
6427

100000

AT3

A17
BA

1896
1899

2674
2761

180

2128

=
=

Al6

1891

16264
1627#

005066
005166
005206
005226
046052
012240
100000
004546
003412

AT4
ATS

2¢33
2759

006336

AD1ERR
ADZ2ERR
AD3ERR
ADGLERR
AHEAD
ALRIGT
APE
=
AROUND
AS
ATA

MACYTT 30A(i052)
12=JUL=79
10:46
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

003416

012272
000010
021420
012504
012674
033606
004122

004144

004176

15714

2677+

2521
2710+
31071+
3851«

5368«
57764%
6259

26074
15164
3629
26484
2671
5119
17694

3468+
482
4«80

2680

2545%
2713
32640+
3854+

5357«
5836+
6262%
2632
4351
3634
2673
26744
31224
2099
3573«
1781«

17914

2683«

254Bx
2769
3263+
3952+

’

2700+

2569+
2772«
3345+
3955x

2480*

2703

2707x

2572«
2825+
3348+
4048x

2608x
282Bx
3435«
4051x

5489x
5915+
6417+

2611
2B4x
3438«
4113x

2822%

2618+
2867+
3542+«
47116%

4423
L764x
5108+

L426%
4794x
5111+

4476%
4797%
S5148x

5557x
053*
8508

2130
3781+

3729«
3783«

313
1.
3882x

54G2«
5977«
€420x

2515+

2766%

5554%
5980%
8492

2861+

2621«
2919x
3545
4162

4479%
4847+
5151«

2916+

2658+
2922+
3647+«
4165%

3000+

2661+
3003+
3650*
4212

3095+

2486+

2686+
3006%
3750%
4215

3237+

852¢
2518+

2689+
3098+
3753
4262+

S5630%
6056+
8512

4529%
4850%
5213«

5633+
6118
8514

4530«
4900%
5216%

5695«
121«
8522

5698«
6194+
8531

5777
197

3271w
3884*

3273«
3983«

3374w
3685

3378
468y

Thhe
407

4582+
4903+
5272«

4585+
4953«
5275+

K 14

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

BEGINZ
BEGIN3
BEHIND
BITCNT

0041¢6
004152
046026
003446

1788#
484
65404
17374

2757«
2910«
3195+
3333
3831~

4099+
4250«
L4614
4618+
4780«
4941«

BITO
BIT00
81101
BI1102
BIT0%
BIT04
BITOS
BITO6
BI17107
BI108
81109
BIT1
BIT10

=
=
=
=
=
=
=
=
-

Q00001
000001
000002
0000C4
000010
000020
000040
000100
000200
000400
001000
000002
002000

BIT11 = 004000
81112
010000

BIT13
BIT14
BIT1S
BIT2
BIT3
BIT4
BITS
BIT6

5099~
5260
5463«
5606
5757«
5903«
6104+
6250+
6635
4554
4454
Y
4434
4424
TAAY|
L4400
4394
438%
4374
4364
454N
4354

= 020000
= 040000
100000
= 000004
= 000010
- 000020
- 000040
- 000100
BIT7 = 000200
BIT8
- 000400
BIT9 = 001000
BLIP
044546 *°
BLITZ
044456
BLKTST
050334
BLO
= 000040
L1
= 000100
B.2
- 000200

4344
4334

4324
4314
4304
4534
4524
4514
4S04
L4594
LL8H
L4748
AN
6386
63774
6383
16184
16194
16204

MACY11 30A(i052)
12-JUL=79
10:46
PAGE
(ROSS REFERENCE TABLE == USER SYMBOLS

181

SEQ 0179

6604

1784k

6544
2328«
2760«
2986+
2196+
3522+«
3834

41017

4253+
4459+

4621
4782+
L9464~

5123w
5263
5464+
5613«
5759+

5960+

6106«
6309+
6637
6617

2331+«
2808+
2989~
3199+
3525+«
3836+

2333x
2811«

9617»

202~
3527+
3839x

4145~
4303«

4104«
4300«
4462
4623~
(785«
4994«
5124+
5322+
5465
56716«
5762+
5963+
6109+
6310+
6639+

5819
5965«
6168»
6311
6650

8659
8667

9029

4464~

4626«
4830«
4997«
5137«
5323
5472+
5618~

455
454
453

452
451
450
449
448
447
446

6389
9014

8674
9021

8645

6615

6388
6458
68454

63934

2336+
2813+
»
299%
3204
3530+
3932+

4148»
4305+
4467*
4671
4833
4995«
5134+

5324
5475+

5621~
5802+
5968+
6169%
6318+
6652%

2359«
2816+
3077
3207«
3627
3935«

4150~
4308+
4512»
4674
*
4835«
5002«
5136+
5331«

5477
5678*
5824«
6027*
6170
6321~
6657

2362+
2846
3080~
3219«
3630~
3937«

4153~
4353

4515«
4676
4838~
5029+
5139«
5334«
5480«
5681«
5827*
6028+«
6177

6323
6661

2364*
2849«
3082+«
3222+
3632+
3940+

4195
4356

4517~
4679
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«
4¢00+
4361

4565+
4727%
4888+
5037+

5201+
5396+
5542+
5765+
5888
6039+
6185+
6398+«
6750

2375+
2902+
3185«
3325+
3733=

4036+
4203+
4406+
4568~
4729%
L4891~
5091«
5204«
5399«
5545«
5746%
5895«
6041+
6242+
6400+

6753+

2752*
2905+
3187«
3328+
3735«

4039+
4245+
4409+
4570«
4732+
(936w
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+
6107~
6247+
6622+

L 14
MACY11 30A(i052)
12=JUL=79
10:46
PAGE
CROSS REFERENCE TABLE =-- USER SYMB(OLS

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

BMC18 = 010000
BOTTOM 045722
BPTVEC= 000014
BULL
047700
BUSH
034106
(HARLE
022164
CHGET1
032606
(HGEZ2
046372
(HGE3
046402
CLEER
006572

CLEVER

(LR
=
CORREG
(PE
=
(R
=
CRLF
=

rs1

045500

000040
046014
000010
000015
000200

003420

1597#

6390

6456

6594

L7
5163
3732

6752

6754

67564

3739

37414

2279
3411

2319
3501

6081

5235
6147

L62N

49904

51684
3737

4280
4971

4388
5174

15184

2184
6515
3128
8805
8805

5940
6472
6493

15764

370#
3714

16694

2253
2681+

2613
3537«

3745+
4577
5267
6189~

(471

cse

€s3

0034¢?2

003424

5143«
6048+

16704
2774
3652«
{534
5218+
6123+

2263«
2869«
3856«

4640~
5353«

6264»
2213«

16714

2487
2711«
3102~
3852+

2522

277Cx
3244«

3953

4266+
4636%

4321«
4689+

4957
5349«
5775«

(S3ERR
CUTE
DAYAMS
DB
DBL

DBLED
DBLWDS
DBMG
DBMSG
DBOUT
DBTST
DBTSTA

5015+«
5414
5840«
6336+

050060
047712
025734
003426

025602
025046
010334
010536
014002
013360
(013700

2594
3917

2633

2734

4079
4759
5658

L6417

4494
5301
6222

4600

5442
6363

4653

5517
6460

2203
6526
3881

2252
6537

2371

2458

6772

6787

2340+

2408
28509«

2410
2914~
4157«

. 2412%
2998~

2478
3093«

2293«

2705*

2764~

4630~

4683+

3846%

5343
6254~
2303%
2924«
3957

4693%
5418%«

6340%
2259x
2546%
2773«
3346~
3956
4371

4692+

5047«
5417*
5913«
6339+

4226
4914
L2564
41564

28024

2496
3816

SEQ 0180

4018
4706
5583

2788

= 002000

2382
3608

182

23794
23704
28194
2805

3947

5408*
6330%
2350%

3008+

4053+
4746%
5494*

6422%
2262+
25494
2826+
3340n

4045+
4374+
4742+

5050
5450
5916
6418+

2790

4276
4967

4108«
4789«

5549+
8516
2523

3103«

4167%
4852+

5635«
8500
2302+
2573%
2865+
3439«

4114«
4427+
L4795+~
5112«
5555+«
5981«

8522

2841

4384

4842+
5625+

8518
2550«

3231~

6217+
4905
5700

8518
2346~
2619«
2868+
3543

4117
4477%
4798~
5149%
5558
6054~

8531

2877

4437

4207+
4895+

5690~
8520
2574
3245+

4267+
4958

5776
8522

2349«

2622%
2920+«
3546~
4163

4480%
4848«

5152+
5631+
6057+
8533

2878

4490

4257+
4943
5766+

8527
2623+
3324~
4322+
5016+
5841+
8527
2465+
2659+
2923«
3648~

4166
4530~
4851
5214x
5634~
6119

2880

4543

2883

2962

3056

4131
4812
5724

4180
4865
5799

4230
4918
5865

2513~
3235+

2540+
3340+

2564+
3430+

6312+

4365«
5041«

5907~

4418~
5103«
5972+

2663+
3350~

2691»
3440~

2715
3547~

5051«
5917%
8535
2466
2662+
3004+
3651«

5113«
5982«

5006+
58371~

4375+

4213+
4533«
4901+

5217+
5696~
6122+

8496

4596

4428+

4481~

2476+
2687+
3007+
3751+

2484*
2690+

5153«
6058+

3099~
3754«

2216+
4583+
4504+
5273+
5699
6195+

4263+
4586+
4954+

4649

470¢

5276+
5772+
6198+

072314
072570

DF132
DF170
DF172
DF 2
DF3
DF 3¢
DF 35
DF 36

072375
072403
072406
072320
072324
072343
072346
072347

DF 41
DFS

072352
072334

070663
070762
071041
071130
001142
000174

1954
1975
1997

1957
1978

6527
2008

1157

1163

131

85584

1265

1270

1275

85604

1469

1474

1479

1484

784

791

799

809

695
817

1305

1317

84444

654

1081
1202

82844

84284

2000

2006

6507
6518
6535
6491+

6513
6524

2390

6489

6491

6496+

6507+

6518+

6529+

668

85554
1290

678

1452

84354

1263

1268

1273

1325

1331

84644

1472
666

1477
676
797

1489

85524
706

828

85464

718

725

735

744

1322

1327

1333

1449

1454

85564

1487

83824
704
826

83404

716

723

733

742

84704

X
"

83634
SN

071166
070410
071233
071300
071336
071364
071442
071500
071545
071603
071631
071657
067722
070043
070476
070553
070556
070163
070637
070303

6494~
1933

1930

SEQ 0181

85404

W—

067602

072364

6479

2000

85484

—a [0 o R R
R
N e s i
S Y i Y
W S NN
=3
O —
—
VNOWNH OWVOWO oo
Vi W=
O N0 & — N

072354

NH1

DH52
DH71
DH72
DH76
DISPLA
DISPRE

85384

6545

072330

072361

DH105
DH11
DH111
DH121
DH130
CH132
DH142
DH146
DH147
DH170
DH171
DH172
DH2
DH3
DH34
DH3S
DH36
DH4
DH41
DHS

1093

1948«
1969+

072340

DF 71

DF 76

1990«
1978+

Co — Qo0 Qo
WO
& &
=S\ONN
NO~NCOo
&

DF5S2

1894«
1897«
1900+
1936+

—

DF &4

€538

1918

6501

58]
-]

DF11

16464
16474
16504

1876+

O
N
~NON

DF 1
DF10S

6496
16454

3088#
6473

" Yo,

003370
003372
003374
003400

16494
16444

560
3084
6470+

DEVIC2
DEVIC3
DEVIC4
DEVICS

3774
3079

177570
015614
003376
003366

183

P S

DDISP =
DELTA
DEVCNT
DEVICT

NOGOO
NOONWV
NWN
—

M 14
MACYT1 30A(7052)
12=JUL=79
10:46
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

MASSBUS RH70 AND RW11_DIAGNOSTIC
(ZRHBE .P11
07-JUN=7G 13:44

83264

1102

82984

83714
83724

1457
641
759
83864

1462

1467

769

785

1062

1071

1079

84064

1823+
1831

1831«

8688+

9013+

84164

789

1482

684
807

693
815

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

=
=
=
=
=
=
=

000001
000002
000004
000400
007576
000040
000020
040000
020000
000400
003430
000011
000200
177570
003432

D152
DT71
D176
DUPORT
DVA
=
DYNO

072074
072110
072120
(047524
004000
020650

3372
5327
5610
5893
6301

3674
5455
5744
6031
6314

SEQ 0182
3777
5462
5749
6032
6315

3878
5467
5750
6033
631¢

2575+
3441+

2624
3548#

3979
5468
5751

4067

€034

5469
5752
6160

6787
5470
5878
6167

2664*
3653

2692+
3756+

2716~
3857+

22394
3128
3126
3126

1822

2264+
2870«

2304+
2925

2351«
3009+

4218+
4906+

3128

3780

3881

1115

84904

1162
1448

85164
1453

85184

1259
8525#

1264

1321

1326

85144
85004
96

3780
3268
3268

4168+
4853«

4119+
4800+
5560«

DT
003434
DTE
- 010000
DTRM
= 000200
DT
071750
DT10S
072132
DT11
072032
DT1i1
072146
DT121
072162
072174
DY130
072204
DT132
D1142
072222
072234
DT146
072250
DT147
DT170
072262
DT171
072272
DT172
072302
DT2
071762
071774
013
DT34
072042
D135
072052
072056
D136
DT4
072006
DT41
072066
DTS
72020

184

WNWN—

=
=
=

3267
5326

N 14
10:46
PAGE
TABLE == USER 5YMBOLS

12=JuL=79

ONO
DN1
DN2
0OCC
DOIT
CPCA
DPE
DPEHI
DPELO
DPR
DR
DRCLR
DRY
DSWR
bs?

3125
5321
5608
5891
6174

CROSS REFERENCE

2120
5314
5603
5890
6173

= 100000
= 000001

30A(i052)

WW00
~N 0o

OLY
OMD

MACY11

8520#

3675
3570

2489«

3104~

3675

25264%
3246~

4268«
4959«

(323«

5777

5017
5842~

1269

"274

85224

1332

85294

1468

1473

1478

783

790

798

685
808

1080

85104

3535

3640

5636+

5701«

4429+
5114
5983+

4482+
5154~

4535«

4588+

4641

6059=

5219+
6124+

734

743

5278+
6200+

5354~
6265+

84924

653

3428

677

1483

1488

694
816

3743

8507#
705

827

717

84984

724

3844

3945

€767

MACY11 30A(7052)

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

EMis7
EM15
EM150
EM151
EM152
EM153
EM154
EM155
EM156
EM157

063407
063441
063475
063576
063657
063713

063774
055773
064075
064152
064226

064300
064354

064442
064507
064560
056017
064651
065003
065105

065155
065241

065332
065420
065511

— d D d ) ed D b
- D ) e ed e —d D
'Y
WS O
I
N QT U
Y
U U U U S

[M134
cM135
EM136
EM137
EM14
EM140
EM141
EM142
EM143
EM144
EM145
EM146

063237
055724
063335

b b

EM133

062526
062567
062652
062704
062757
063052
063146

607

—

EM120
EM121
EM122
EM123
EM124
EM125
EM126
EM127
EM13
EM130
EM131
EM132

4654
[ASTAS
1\S 1)V ] ono NNNNNNNO‘NNNN'\)—"—'—'0‘—‘—"—‘—‘—‘—'—'—"0*-—'—‘—-‘—‘—'—‘—'00‘
[0 3VA1VAF
3 I S VN NN
=2 2O 0V00ON00 NNOAVNWNE B NANWN =2 2000 (¥l
O 0000~ oo~
= NOHOWROOWR00 =08 = o
NN -0 ~INONONOWN = VOWN=HOWNWNSON

EMTVEC= 000030
055040
055607
060743
061030
061075
061126
061304
061475
061542
061570
EM11
055643
061677
EM110
061771
EM111
EM112
062044
EM113
062071
14
062166
EM1
062264
EM115
EM116
062376
Em117
062430
EM12
055704

Ml
EM10
EM100
EMIOT
EM102
EM103
EM104
EM105
EM106
EM107

8 15
12-JUL=79 10:46

PAGE 185

CROSS REFERENCE TABLE == USER SYMBOLS

“807

72844

73494

7647N
7657#
76654
76704
76894
77104
77174
77214
73544
77334

77434
7751#
77554
77664
77774
77904
77954
73604
78064
7812+
78224
78274
78354
784L64
78574
78674
73634
78784

1808+

SEQ 0183

MASSBUS RH70 AND RH11

(ZRHBE .P11

EM16
EM160
EMI61
EM162
EM163
EM164
EM165
EM166
EM167

EmMm17

EM171
EM172
EM173
EM174
EM175
EM176
EM177
EM?
EM20
EM200
EM201
EM202
EM203
EM204
EM20S
EM206
EM207
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EMZ0
EM31
EM32
EM33
EM34
EM35
EM36

EmM37

EM4
EM4O
EM4]
EM4S
EML3
EM44
EM4S
EM46
EM47
EMS
EMS0

EM51
EMS2

DIAGNOSTIC

07=JUN=79 13:44

056043
065605
065674
065763
066052
066130
066217
066315
066374

698
1365
1371
1377
1382
1388
1394
1400
1406

066473
066545
066566
066652
066703
066743
066776
055100
056132
067043
067125
067207
067271
067351
067436
067522
067546
056163
056212
056245
056264
056315
056347
056375
055140
056430
056465
056524
056553
056623
056673
056725

1617
1424
1430
1436
1441
1446
1451
613
721
1456
1461
1466
1471
1476
1481
1486
1491
728
738
747
757
764
774
787
620
794
802
812
820
831
841
349

055214
057014
057154
057257
057330
057374
057466
057541
057622
055254
057473

626
867
876
887
895
901
909
916
923
632
930

056063

056763

057752
060003

708

858

937
943

MACY11

30A(7052)

CROSS REFERENCE

12=JuL=-79

TABLE

c15

10:46

PAGE

-- ULSER SYMBOLS

186

SEQ 0184

D 15
MACYT1 30A(7052)
10:46
12=JUL=-79
PAGE 187
CROSS REFERENCE TABLE == USER SYMBOLS

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

EMS3
EM54
EMSS

060156
060164
060171

EMS6
EMS7
EM6

060176
060204
055325

EM6
EME2
EM63
EM6S
EM6S

060217
060224
060231
060237
060244

EM6E0

060212

EM66

060252

EMG7
EM7
EM70
EM71
EM72
EM73
EM74

060257
055541
060265
060273
060362
060417
060446

EM76
EM77
ENDPAS
ENPS
-

060524
060631
045140
004000

EM?7S

060474

025474
ERPIP
ERR
= 040000
ERRIP
025456

ERRTST

(050210

955
961
967
973
79
638

985
991
997
1003
1009
1015
1021
1027
645
1033
1039

1049

1059

1068
1076
1083
1089

64704

15964
4227
1570%
(223

2071

2963

4181
4866

ERRVE (= 000004

ERR1
ERR10
ERR1T
ERRZ
ERR29
ERR3
ERR30
ERR4
ERRS
ERR6
ERR7
ERTIP
ERT

006546
013246
014424
007232
025752
011116
(024446
007274
011404
012152
012464
034062
003436

5800
4584
2022
8653+

2068
2702
2879
2141

4277

2395

4071

2188
2476
2560
2630
5156

16764

2776+
3959«

4L695%

ERIR
EVENAD

025216
004000

5420+
6342+«

4177
1752#

SEQ 0185

7577#
7578%
75794
75804
7581#
73174
75824

75834
75844
75854
75874

75884
75894

7590#

734204

7592#
75944
7€044
76094
7513%#
76174
7¢214

76334

42304

2128

6427

2177

2190
3165

L2264

3057

4231
4919

5866

1820

2023*
8656«
20714
27224
28834
2163
42804

2399

4076

21904
24954
2580#
2633
51624
2216«%
2832«

4055+«
L4748«
5496+
6424+
41804

3825

4281
4972

5941
1821+

2037+

2240
3307

4336
5073
6007
1832+«
2040+

2280

3412
4389
5175
6082

1859~

2320
3502

2383
3605

5256
6148

5302
6223

444572

+495

2043

2044~

1892
2047«

2352+
3010+

2490~
3105«

2525+«
3247

1860+

2449
3714

2495
3817
4601
5643

2592
3918

2634

5377
6289

6364

5518
6461

2055

2056+~

2061+

4019
4707
5584
68224
1904*
2070~

2576
3442+

2625*
3549«

2665+
3654+

4548

1895+

1898+

4654

1901«

2735

2884

4080

8650

8651

2693~
3757+

2717

4760
5659
1908~

4132
4813

5725

1912+«

21774
2411

24454

2265+
2871«

2305+«
2926

4079#

4120~
4801~

5561«

4169
4854
5637+

4092

6°43

4219~
4907«

4269+
4960~

4324+

5778+

6193

4243

5702+

3858+

5018+
5843

4430~
5115+
5984+

4483

4536

4589

4642y

4296

4402

4508

4667

4773

4879

5155+
6060+

5220
6125+

5279+
6201+

5355w
6266+

MASSBUS RH70 AND RH11

(ZRHBE .P11

FAKE70

F ANG

FANGIE
FANGY
FAST

006474

020524
020060
025200
050034
024124

GAP
GIGO
GIGO1

= 000020
005246
005422
GIGO2
005562
GIGO3
005722
GIGO4
006146
GIG]
005260

GI1G2

GIG3
GIG4
GI1
Gl2
Gi3
Gl4

005434

005574
005734
005402
005542
005702
006034

GNS

GO
GOOF

= 000001
012034

GOOFED
GO1
602
GO3
GO4

swerwwr

013124
005370
005530
005670
006030

30A(iu32)

4990
5601
6306

5025+
5650
6352

5038

50404

1937
19394

2001
1958

6492
6508

6503

1959
19184

1980
1932

1999
1935

20084

4988
5595+
6214

4985

50744

3516
5085
5031

15874
2164
2147

3425
3624
6173
2142
3929

16174
19154
1934

1955
1976

1938
1916

1940

20604
36114
51764
5036

19604
19814

19424

2419
6683

6483
6698

1838

9187
3091

072412

6808

85674

HEDDAD
HED1

003460
050342

17474
68514

6808+
8568

HED11
HED12

050705
050736

68954
69004

8576
8577

HED16

051077

HED10

HED13
HED14
HED1S5

HED17

HEDZ2

HED2O
HED21

050200
050641

050766
0510717
051047

6810«
68884

8575

051137

8582

051177
051241

69314
69374

8583
8584

68574

6519
6530

PAGE

5026
5742
6355

5088
5791
8525

5089+
5877+

188

5128
5883

SEQ 0186
5184
5932

5313«
6024

5319
€073

5368
6159«

2004

2051

5460
6165

8578
8579
8580
8581

8569

’

19364

1842

6487
£702
9188
3233

1873

6499
6710

9189
2338

1879

1885

1924

1945

1966

1987

6511
6719

6522
6726

6533
6733

6581
6830

6588
6836

6630
9180

6645
9181

3428

3535

3640

3743

3844

3945

6767

68134

69044
69094
69144
69194
69254

050402

1979
1998

19334
19544
19754
19964

HEADER

HEDADD

10:46

35044
34264
L1764
67854
40204

19634
19844
1931
16574
19784
19974

9184
15524
25634
2704n
1929
1950
1971
1992

E 15

67804
67654

1961
1982
1890
1952
1973
1994
476

J2-JUL=-79

CROSS REFERENCE TABLE -- USER SYMBCLS

6932
5509
6211

2056

021306
034142
033124

FIT
FITIT
FOOEY
FOUND
FROG

MACYT1

07=JUN=79 13:44

033336

FERR
= Q00004
F IND
050010
FINDIT
047714

DIAGNOSTIC

6809+«

6810

6671
9182

2066

6675
9183

MASSBUS RH70 AND RH11

C(ZRHBE .P11

HED2Z2
HED2Y

051303
051346

HED2S

051464

HED2L

HED26

HED27

051526

69694

051570

HED3Z2

051741

HED3S4
HED3S
HED36
HED37

052076
052153
052231
052305

HED4G

052464

HED4
HEDLO

HEDS4?

051674

052021

69754

6861#
69814

69874

6994
#
70034

70114
70194
70274
70354

68674
70454

052530

70604

052657

70754

052601

HED&S

052746

HED4S
HED47
HEDS

69634

050466
052377

HED4S
HED4SL

6943
69454

69574

050427
(51632

HED33

07=-JUN-79 13:44

051422

HED3
HED3DO

HED 31

DIAGNCSTIC

70544

70674
70854

053011
033076
050525

70914
71004
68734

053242
053327
053400
053444

054066

71174
71254
71334
71394
71454
71514
71594
6878#%
71664
7174n
71814
71894

054210

72044

HED67

(05433

72194

HED70
HED71
HED72
HED73
HED74

054401
054455
054523
054577
054646

HERADDHERE
HIBYTE
HT
=

177742
007326
(12206
000011

HEDSO

0531SS

HEDSS

053510

HEDS1
HEDSZ2
HEDS3
HEDS4

HEDS6
HEDS7
HED6
HED6O
HED61
HEDS2

053547
053623
050556
053672
053745
054013

HED64

054135

HED6Z

HED6S

HEDSG6

HED?7

HED75
HED76

05425¢

7108#

71964

72114

050610

68834

(054722
054770

72644
72714

HURTS
(010462
ICPA
- 00001C

72264
72344
72414
72494
72564

16564
2203
2584
368#

2356
15884

MACYTT

30A(i052)

CROSS REFERENCE

12-JuUL=79

F 15
10:46

PAGE 189

TABLE == USER SYMBOLS

SEQ 0187

MASSBUS RH70 AND RH11

07=JUN=79 13:44

(ZRHBE .P11

000020
000100

IETST

0344546
000100 000001
044462
000020
000001
000002
000004
000010

IPCK]
IPCK2

[PCK3

1PCKkO

naununn

ILF
IN
IOTVEC

]

IDPA
It

IE3

IR
IS
ISLK
1TDO
JUMP
K IPARO=

KIPAR1=
K IPARZ2=

000100

045710

002000
007610
022652
172340

K IPAR3=

K [PARG=
K [PARS=
K IPARG=
KIPAR7=
K |PDRO=
KIPDR1=

_DIAGNOSTIC

15854

1553#

6744

5188
15364
15744

5
5

G 15

MACYTT1 30A(i052)
12=guUL=79
10:46
PAGE
'ROSS REFERENCE TABLE == USER SYMBOLS

3233

3338

3428

3535

3640

190

3763

SEQ 0188

3844

3945

5191

5192

6393

6033

6034

2472
3780

6792
6792
3517
6792

3570
3881

3675

6792

5892

5893

6792

5954
2494
8
5
5
p) 144

5890

5891

6019

6026

6031

6032

2352
2354
2356
2300

KIPDR?2=
KIPDR3=
K IPDR4=

KIPDRS=
K IPDR6=
KIPDR?7=

KONG

L EAGUE
LEAP
LEAVE
LEFOUT
LERADD=
LF
LOOCNT
LO0OKED
LOOKFO

51714

024224
177744

004120
232676
023466
000250
046532
21000¢
046542

2799+«

2802

2804+

6377+

6448

15864

5328
6019
3124

5667
6033
3266

5469
6160
3338

5596
6172
3428

6174
3535

5608

5610
6201
3640

5878

15594

3945

4033
16574

17684

4996

3934

490#

6632w

1568#

66 34N

60424

2724

50054
39434

2730

W NN

MCPET
MEME RR=
MINUS
MITE
MIXIT
MMVEC MOAR
MOL
=
OOR

2797

NWN

020000

2795

M7PE

2749

2157
2152

NN W
N
\N

= 000002

17384

&S~

T1€55#

WO
nNO &

MCLK

51744

6450%
5749
6315
3776

6454
§751.

3844

H 15
12=4UL =79
MACY17 30A(7052°
10:46
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

MASSBUS RH7C AND RH11 DIAGNOETIC
CZRHBE . PN
Q/7=JUN=79 13:

66494

66478
1521#

6659
6653
2120

MPETST

4059

L0627

= 001000

MYSTIC
014244
NEBL
= 000100
NED
= 010000

NEDERR

NEM

021330

= 004000

NEXTST
046564
NOOP
= 000001
ODAB
= 125252

OABTST
ODDAD

014244
004002

OFFSET

003456

OFF11
ONE
OPl
OR

003402

- 000001
= (020000
= 000200

ORSET
OUTOF

013606
050332

PARITY
(047200
PASS
003452
PAT
- 000020

PGE

= 002000

15224
3938
2858~

PLACE

PR6
FR7

= 0LD300
- 000340

PSw

PSEL

020544

046736
(046726
000000
000049
000100
000140
000200
000240

177776

02000

177776

PWRVE
"= 000024
RBUF
u04100

3462

3569

3674

3777

$878

3979

4067

3267

3372
6787

3462

3569

3674

3764

3813

3878

3931

3933

15914
15254

2120

3125

3267

3372

3462

3569

3661

3710

5777

3878

3979

4067

15244

bi
2120

3112

3161

3267

3372

3462

35¢9

3674

3777

3878

3979

4067

6636

66394

2556
6095
2853

2698
6159
2855

2844
6236
28574

3217

5250

5313

5391

5532

5595

5673

5813

5877

472C

4826

4990+

5089

5127«

5365

5506

5647

5788

2015+

2016+

2017

2018w

2019

6538+

6540

6543+

6545

2795
3881
2360

2802

6632

6647

2365

2373

2377

2783

2809

2814

2835

2847

6457~
6787
3372

3662

3569

3674

3777

3865

3914

3979

3945

6767
5289
5§72

6787
3622
6787

6627
16944

16864
5954
2848

17534
5629
17464
16544
6546
16884
15814
15204

2852

2784
6823

1856
17394
15174

1523#

LE69N

PRIBIT
PRTIBIT
PRO
PR1
=
PR2
PR3
=
PR4
PRS
-

3408

4067

PIRQVE= (00240

177772

3359

4C15

DGETST
022734
PP
= 02000
=

3267

3966

6787
3833
1569#

PIRQ

3125

~oow

024356

MXF

6787

3754

2518

6633
6648
3924
3934
2044
3954
3964
397«

298«
3994
37204

1557#

Lb4Ln
17554

5389

2120

4455
6070
6806+
2008«
6547
2507
2135
2329

325

4561

4614

6807«
2010

6809
2011»
6549
2750
3780

. 6548+

2675

3128

2334
6772

2355
6787

2874
27874
6825

68384

6376
3323
2120

6387
3725
3125

6455
6772
3267

3838
6782

3840

38424

5189«
3233

3338

3428

3535

3640

3743

3844

8696
2153«
5430

8697
2158+
5530

8706+
2165+
5531«

8712«
2170~

87264+
3321
5571

8725~

66954

3517#

66604
66564

373
3091
63754
1811+

2143s
5390+

1812«
2148+
5428

5569

3727

5671

046676

SEQ 0189

MOREZ
C46666
MPE
= 000400

191

07=JUN=79 13:44

5813

RBUF 1
RBUF2
RBUF3

004102
004104
004106

RBUF6
RBUF 7
RDCHR
RDLIN
RDOCT
RDY

004114
00416
104406
104407
104410
000200

RBUF4
RBUFS

004110
004112

=
=
=

6706

1756#
17574

1758#
1759«
1760#
17614
17624
9085
9126
1875
15544

3183
3428
3760

L4146
4359

4592
4831
503¢
5283
5614
5901
6205
RDYSET
READY

013566
034172

READO = 0000:1
READ1 = 000072
READ2 = 000073

READ3
READ4
READS
READ6

=
=
=
=

000074
000075
000076
000077

REGEND
RESTAR
RESTAT
RESVEC=
RETAIN

003404
006054
(045374
000010
003410

RETURN

RFAIL
RHAS
RHBA

046720

= 000100
003346
003334

6757

5851
6712+

30A(3052)

I 15

CROSS REFERENCE

12=JuL =79
10:46
PAGE
TABLE ==~ USER SYMBOLS

5953
6713

5952
6727

5954
6721

6094
6728

192

6095+
5729

1989

9189#
2987

i
NN

(ZRMBE
"N
.

MACY11

_DIAGNOSTIC

MAS<R,S RRPO AND RH11

SEC 0190

6235
6736

6236+
8510

6274
8529

6704+
8535

2992
3250
3640
4037
4272

3078
3326
3657

3083
3331
3731

3091
3338
3736

6705+

G1874
91884

1881

2753
3188
3445
3832

4151
<380
T 4619

4836
5056
5332
5619
5923
6243
6767
27834
5188+
3076

1926

2779
3205
3508
3844

4196

4612
4645

4884

5097
5359

1947

2903
3211
3535
3861

2929
3225
3628
3962

4201

4246
4465
4698
4937

4433

4672
4889
5118

3233
3633

403%2
4251
4486
4725°
4942
£158

4513
4730
4963

5679
5966

6270

5397
5684
5988
6319

5137
5424
5755
6042
6346

4299

4670

4882

5254

5461

3338

3428

3540

3743

3844

1889+
1914

2016

5473
5760
6064
6396

5197
5478
5782
6102
6401

4058

4097
4306
453y
4778

5500
5820
6107
6407

5000
5223
5538
5825
6129
6429

4102
4327
4566
4783

3945

4776

4829

6519+

6530

2480
2699~
2916
3432

2515
2700
2978+
3520+

4301
4518
4751
4995
5202

5021
5256
5543
5847
6173
6746

5395
5536

3091
6307

1791«
1906
1974

6480

64944

1996

6517

2000#
6528

1937+

1979«

1908+

2039

6492+

3780

3881

2250
2649
2725
3070+
3747

2255
2650
2729+
3095
3825+

6651
2135
2604
2206
2615
2722
3045
3644

4243»
4579
4932+

5269
5647
6024+
6381+

L2
4632
4988+

$345
5692
6070
6432

1956

2271
2676+
2766
3216+

4314
L6677

5008
5365

5762+
6094~

5389«

61°5

3949
4367
4720+
5C43
5419
5788
6165~

4143
4473
4826+

5145
5530+
5909
6256

4935

.2542

2701

3539

6159
4508
4844

4193
452%

6306+

6332

5184
5551
5729

4879+
5210
5601+
5953

MACY11 30A(;052)

MASSBUS RH70 AND RH11_DIAGNOSTI(C

(ZRHBE .PT1

RHBAE

003360

07=JUN=79 13:44

CROSS REFERENCE

2012
2486
2867
3348

6165

4562+
4903

RNCSYT

003330

5351
5817+
6262
2009
2540
2903
3083
3232
3523
3736
3962

2017~
2521
2899+
3438

4215
4585
4933
5394«
5839

6305+

6146
4272
4412
6564~
4683
4831
6963
5097

2212
2548
2922
3519«
L265

4615+
4956
5616
5882+
6338
2025
2613
2914
3093
3250
3534
3745
4037
4157
4301
4433

4571
4723«
4842
4995

5223
5402
S56C2*
5766

RH: S1B

(003364

RHCS2

003340

5961
6129
6324
6746
2020+

2024+
2292+
2488
2835
3175+
3422+
3725+«
3966

6404
L7466

RH(S3

0033¢c

5086+
5418
5876+
6340
2019+
2473
2868
3956

4384
6745

2021+

2088+

3194~
3426+

3108+
3440
4027+

L4775

5113
5453~
5917
6374%
2045+
2474
2923
4052
6427
6755

L4457~
4799
3122+
5694
5951+
6422

2057
2475
3007

4117
4437

4798

J 15
12=JUL=79
10:46
PAGE
TABLE == USER SYMBOLS

2261
2572
2977+
3545

2289+
2607+
3006
3623w

4297+

4320

4987%
5459x

5014
5492
5958«
6420
2113

4638

5915
6380~
2110
2653
2929
3108
3320«
337
3760
4043

4172
4306
4458+
4577
4725
4857

5000
5130«
5261
5461
5625
5820
5088
6183
6393+
6766
3302+

2117
233,
2574
2869
3231
3449
3813

4053
4481
4828+
5126

5508+
5982
6771
2101
2487
3067

407
4480
4808

163

SEQ 019N

2394
2772
3243

231¢€
2689
3101

4668+

2681
2982+
318°«
3326
3552
3829x

4058
4194
4312
4460
4592
4730
4882+
5006
5132
5267

3955
4456
4797
5216
5676+
6121

4093+
4509
4850
5275
5741
6197

2340

2478
2859
3076
3220
3445
3720+
3644

4102
4244

4123
4251
4405+
4524
4672
4804
4942
5090%,
5202

4783

4935+«
5041

6241+
6407

5395+
5549
5755
5923
6107
6307+
6550

3604*

6550~

2153
2360
2691
2924

2252+
2458+
2814
3112
3359
3661
3938

5473
5641
5825

6025+
6189

6396
8505
3407+

2320
2350
2623
2874
3245
2498
3824

4094+
4510«
4852
5153

5559
6017+
6786
2104
2522
3102

4166
4490
4851

3513«

" 3303

3547
3865

4118

4167

4881«

4905

6534

4563

L4669+

§594%

5183«
5635
6092+

5312«

2170

2213
2573
3349

5171

6058

2549
3044

6176
6533
4861

6216
4543
4504

6233

2464~

2714

3651

(321

4645

5015

4351+
4693
5051

5353
5810+
6264

2465
2773
3754

4692

505C

K 15

MASSBUS RH70 ANC RH11 DIAGNOSTI(
(ZRHBE .P11
Q7=JUN=79 13:44

RHDB
RHDT
RHER

RHMR?

003352
003356
003344

003354

5060
* 5699
16374
-

1639#
16344

2665
3654
4536
5220
€125

1638#
5469+«

5750+
RHMR?

003336

MACY11 30A(i052)
12=JUL=79
10:46
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

5066
5775
2327+
2026
2132
2693
3757

5162
5981
2785
2410
2216
2832

4055
4748

4589

5279
6201

5696
6424
5326+

4028+

5470+
5751
6032+
€313«
2030
2719
3860

5603«
5878+

6035+

4644

RHNINT
044636
RHST
- C03342

5357
6268
64114

6451«

2125
269°2
3756

2215

4588

45694

5278

RHYDB

003350

5419
6341
2306
2927
37960
6590
5250~
5499
5736+
5985
6202
6435

6200
2217
283%3
3758

448G

5156
5454»

RHTEST
RHVE
(
RHW{(

006352
003316
003332

2201

3624=
4242
4931«

RH11

RH11BA

011606

011424
006540
C06406

2534
2593«

2979«
3643

4258
4613
4949

6382+

5315+
5670«
6049
64173

2059

20694

6020~
RHW(
A
T
RHW(

2205

L4747
5495

6423
2353

5217
5122
2807

5352
6263
2840

5417
6339
2845+

5493
6421
2877

5558
6549+

5634
6791

2265
2871

2305
2926

2490
3105

2525
3247

2552
3352

2576

2625
3549

«120
4801

5561
6776
5327«
5608+
5885+
6160~
6317«
2307
2928
4171

5778

4324
5018
5843

5328«
5609«
5890+

6167+

5330
S611»
5892+
6173«

5455+
5612+
5893«
6174

5462+
5737«
5894«
6175+

5467+
5744=
6019+
6176+

5468+
5749+
6026+
6301+

2354
3012

2527
3249

2554
3354

2578
3444

2627
3551

2667
3656

5637

4483

4856
5639

4221
4909
5704

4326
5020
5845

4379
5055
5921

4432
5117
5986

4485
5157
6062

4538
5222

2264
2870

2304
2925

2489
3104
4268

2524
3246

2551
3351

2575
3441

2624
3548

6119
4800

5560
6427
2491
2945

4168
4853

5636
6781
2526
3011

2219
2535
2614

2536
2654

2222

2225
2541
2682
3094
3847

6067
6438

5155
6060

4269
4960

5287
5562
5791
5994
6237~

4631
4992«
5344
5691

4377
5053
5919

3442
4430
5115
5984

4169
4854

5282
5532+
5781
5992
6214

3726+
4295

SEQ 0192

5148
6057
2787

2940
4029+
4643
5280
5509
5779
5987
6204

2999

194

4030~
4696

4056
4749

3074+
3746
4313

4348+

5007
5362
5738«
6093+

5027+
5388+
5767
6114

4666+

4684

4959

5777

4323
5017
5842

4376
5052

4429

5114
5983

5154
6059

2626

2694

2718
3655

5918

577
3248
4170
4855
5358
5569
5844
6061
\6269

5846
6063
6274

2666
3443
4270
4961
5391«
5640
5851
6073
6276

2235
2558
2765
3215+

225
2559
2821
3236

2294
2565
2860
3317+

4044
4401
4737

5087+
5656+

5811«

6190

6127

3353
4220
4908

5368
5638

4091+
44619
L4772+

5104
5485
5832
€208

4109
4454
4790

5129+
5503
5879+
€234

4482

4378

5054
5423
5673w
5920
6126
6343

L 15
MACY11 30A(i052)
10:46
12=JUL.=79
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

1578~

15754
6475
1919

100000

15624

SCLK
SEARCH
SKIPIN
SLEUTH
SLKM

000010
060031
004624
004640 001000

16154
17304
1862
1867
15944

SNAF 00
SPLIT
SRO

010566
034466

2374

5878

5226
L94H
4954

177572
177574

177576
172516

L9748
3634
1783
374LM
5057

177774

033256
001140

000004
000010
000020
000040
000100
000200
000490
001000

3122
3472
3867

3135
3558
3871

3256

5603
5890

5609
5892

5230

52354

3875

3264
3579
3968

3277
3663
3972

3361
3667
3976

3365
3671
3989

5610
5893

5611
€019

5744
6031

5749
6032

5750
6033

5751
6034

5752

8704

8717+

9014

562

3369
3684

4064

1857
17964

5594

9021
L78#

1822+
9029

1824

1830+

8645

8659

8661

8667

8674

6612
3298

6802
3403

6824
34693

3600

3705

3808

3909

4010

3298
3298

3403
3403

3493

3600
3600

3705
3705

3808
3808

3909

4274
L4178
L1164

4154

4134

L1124
IARY4
4104
409%
4084

Lo6#
LO74
4064

4054
L04Ln
4034
402
4254
L24m
4234
L22o#
421w
(208
419%
418#

3493

3509

100000

3881
3881

4964

000750
00414

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

18654
18694

SEQ 0193

SwO
Sw00
SWO1
SW02
Sw03
SwO4
SWO5
SW06

3770
66451

6621
3128
3128

195

—

SWREG

19214

2113
3451

SR1
SRZ
SR3
STACK
START
STKLMT
SUPER
SWR

2382
3766

65164

50664

6617
2135
2135

NV
—

6613

ESV

2055«

5061

—

SA200

2047

RITURN
RMBE
X
RMR
ROTEEN

006502
006450
033302
046724
000040
000004
045604
005274

RH70BA
RH707T
RITEON

MASSBUSP??7O ANC RM17 DIAGNQOSTIC
(ZRHBE
07=-JUN=-79 13:44

MASSBUS RH70 AND RH11_DIAGNOSTIC
CZRHBE .P11
07=JUN=75 " 13:44
1BITVE- 000014
TC
003440

L6048

167748

2778

»
3961

L6997
TDR

003442

5422+
6344«

16784

2777«
2960

025324

TIEQUT
Qw6746
TKVEC = 000060
TOIT
010020
TPVEC =
TRAPED
TRAPVE=
TRE
=

TREB
=
TRTVEC=
TSTADD
TSTIE

TSTNM

TSTNMA

000064
047616
000034
040000

010614
011126
011414
012256
012474

T1ST17
TST2

015020
006552
015466

TST1S
TST16

TST20

TST21
TST22
TST23
TST24
TST2S
TST26
TST27
TST3
TST30
TST31

TST32

TST33

TST34

024750

025226

4056+
L7409

4122+
4803+

5563

2266+
2872+

2307~
2928+

4171
4856+

5639+

2306+
2927«

2269

2274

22784

€716

67384

L6884

5497«
6425«

1809

2113
3451

3768
3160

6557
5203
6800+
8505
8533
6805
9023

18544

25064
26454

013344
014434

024456

4057
L4750+
5498+
6426+
2217+
2833«

2267
2873+

62064

004546

016260
017254
020040
020524
021306
022056
022622
007236
023372
024724

2834+

4204
1904

050202

TST1I0
TST11
TST12
TST13
TST14

2218

4202
1901

6343

4197
1859
LE67R

003454

050104

(R0SS REFERENCE

4170
4855+

000100
000014
006252
034306

TSTNMB

JST

30A(7052)

121+
4802

L6567
5421«

THREE

MACY11

20794

40264
40884
4090
4141

41394
41894

M5
12-JUL=79
10:46

TABLE

2354«
3012+

6221+
4909+

5704

2353«
3011+

-- USER

2492+
3107+«

L4271
4962+

5780+

%
2491
3106+

4220~
4908+
5703

4270%
4961~
5779

1908

1912

66634

3114
3453
3774
3302

3116
3459
3785
3407

3122
3470
3867
3497

3133
3558
3869
3604

5205
6801+
8507
8535
68i4a

52074

6826+
8510

6827+

5562+

1810«

5638+

680¢
8508

8512

PAGE

196

SYMBOLS

2527+
3249+

4326+
5020+
5845+

2526
3248+
4325%
5019~

SEQ 0194

2554~

2578+
3044w

2627+
3551«

2667+
3656+

3354+
4379
5055+
5921=

46320
5177+
5986+

4485

5157«
6062+

4538+
5222+
6127+

2553«
3353«

2577%
3443«

2626+
3550~

2666+
3655+«

2695+
3759+

2719+
3860«

4597«
5281+

4644+

6203+

5357+
6268+

2674+
3758«

2718«
3859+

4378«
5054+
5920+

44631
5116+
5985+

4484«
57156+
6061+

4537

4590+

4643

3256
3560
3875
3709

3258
3566
3886

3275
3663
3970

4014

3361
3665
3976

3363
3671
3987

3369
3682

3812

3264
3577
3968
3913

4066

6832

8490
8516

8492
8518

8494
8520

8496
8522

8498
8525

8500
8527

5844+

8514

5221+
6126+

5280+
6202+

5356+
6267

MACY11

MASSBUS RH70 AND RHT1_DIAGNOSTIC
CZRHBE.P1T
07-JUN=79 13:44
TST35
1ST36

025504
025762

1ST4
TST40
TST41
1ST42
TST43
TST44
TST45
TST46
1ST47
TSTS

007300
026546
027040
027332
027624
030116
030410
030702
031174
007606

- 21984
4347
4400
4453
4506
4559
4612
4665
4718
224,84

031760
032252
032544
033336
034142
034476

4824
4877
4930
50824
51824
52454

TST37

026254

TST50

031466

T1STS1
1ST52
TST53
TST54
T1ST55
TST56

TST57
TST6
TST60
TST61
T1ST62
1ST63
1ST64
TST65
TST66
1ST67
TST7
TST70

035040
010030
035472
036034
036466
037030
037462
040024
040456
041020
010256
041452

TS172
1ST73
TST74
TST75
TST76

042446
043010
043442
044004
044436

15771

1ST77
TWANG
TWANGY

419
4241

4294

4771

53114
22864
53864
54528
55274
55934
56684
57344
58094
58754
2288
59504

042014

60164

045136
033314
033326

64684
5065
5067

TWwo

- 000002

TYPE

TYPDS -

104405

104407

16894

6585

1836

6481
6673
8769

TYPOC = 104402
TYPON =
TYPOS -

9183w
9182#

UPE

104404
104403

= 020000

UPETRE
017402
us1
= 000001

CROSS REFERENCE

N 15
12=yuUL=79
10:46

PAGE

TABLE == USER SYMBOLS

197

SEQ 0195

42394
42924
L3454
4398%4
L4514
45044
45574
L6704
L6634

L7164
47654

48224
L8754

49284
49814

232064

60914
61574
62324
62984
63714

9052
2007

30A(i052)

6833

15264
3979
3327
1513

50694
5070
2011
6592

2647
6662
1877
6509
6700
8957

6543

6678

6520
6708
8974

6551
6717
8976

6490
8965

6514

6525

2120

3267

3372

1840

6485
6681
8865

9096

4067
3332

6772

91814

333¢n

51844
1883

1922

6705
1943

6579

1964

2049
6643
6828

2064
6654
6834
9024

2417
6669
8726
9089

6707

6723

6730

€737

3556

3674

3777

3878

1985

6724
8979

6586
6731
8981

6593
6811
8985

6536

6680

6687

3426

3449

3498

9016

MASSBUS RH70 AND RH11

15144

= 000002

usé
=
VECADD
vOUS
WATBIT
WATFIV

WATFOR

000004
003406
033030
0646362

15154
16594
5022
2145

010266

2309

1882+

5188+

6383+

2155
2669
2318#

2160
2697

2167
2721

2172
2792

2228
2843

227%
66124

2313

24694

2512

2539

2535«

2225+
2541+

2231+
2561

2236
2614+
3538+

2294+
2682+
3746+

2341~
2706+
3847+

2479+
2765+
3948+

2514+

L258%
4969~
5767

2235+
2565+
3631

2511
2821«

4158+
(843
5626+

22727
2558w
3236+

64139

5485+

5550*
8490

2562

010036

w(C

2289

003444

16794

3094+

2915+

WwCE

8527
3125
6787
5140
3126
3126
5100

8514

= 040000

15274

WCEERR
WCEHI =
WwCELO =
WCEOWT
WCERRT
WCERR2
WCETRE
WCETST

033730
010000
004000
033454
007462
007546
016610
016400

5069
5133
15394
15384
5093
<202
2220
2221
3184

WHYFO

0C7224

21754

WwCTSsY

016474

3228
3191
3208
2782
3253
3467
3689
3897

3201

3153

3400
3660
3883

WRCHO =
WRCH? =
WRCHZ WRCH3 =
WRCH4 =
WRCHS WRCH6 =
WRITEO=

000051
000052
000053
000054
000055
000056
000057
000061

WRITET=
WRITEZ2=
WRITE3=
WRITE4WwRITESWRITE6-

000062
000063
000064
000065
000066
000067

ZERO

- 000000

SEQ 0196

4078
4436
4758
5161
5794

4130
4489
4811

16964
16974
16984
16994
17004
17014
17024
17164
4244
17174
17184
17194
17204
17214
17224

5028

5286
5860

6459

16874
3728

4827
5531

2901

2982

5007+
5832+

3347+
4366
5042+
5908+

3254

3303

3372

3462

3570

3675
3675

5066
5060

4313+

51424
3373
3373
5102#
22304
31934
32104
2939
3272

3477
3693
3902
4175

4493
4860

5296

5935

3570

44619

5104
5973«

2961
3282
3481
3698
3906

4179
4542
4864

4595
4917

5371
5991

5437
6076

3033
3295
3555
3782
3994

4275
4599

4966

5512

6132

2954

5602

5959

5884

6100

4405

4511

4564

6166

4880

4093
4933
5600

4297
4987
5612

4403

5535

5268+
6190

4631

5344w
6255+

L4684

5409«
6331

6044
4737+

2860+

4109
4790

3674

3777

3878

3979

4067

3111
3358
3574
3792
3998

3130
3377
3584
3796

3140

3144
3391
3593
3805

3149
3396
3597
3864

3387
3588
3801

4279
4648
4970
5568

6142

4003
4330
4652
5024
5578
6217

4007
4334
4701
5059
5653

6273

6283

5719
6358

3829
6393

3830
6744

4095

4144

4194

4061
4383
4705
5063
5709

4387
4754
5121

5130

4458

2587

4578+

5144+
6049

3030
3291
3490
3763
3984
4229

4352

2581
3828

4472+

4993

2593

2729
5249
5676

WGao 000

use

07=JUN=-79 13:44

VTV SN
N
—
N2 ON

CZRHBE .P11

B 16
MACY11 30A(i052)
12=J4UL=79
10:46
PAGE 198
CROSS REFERENCE TABLE == USER SYMBOLS

DIAGNOSTIC

3519

6615

5390
5817

3620

4668

5394
5882

3623

6721

5459
£8%4

3673

4774
KYe
9955

c 16
MACY1T 30A(i052)
12-uUL=79
10:46
PAGE 199
CROSS REFERENCE TABLE == USER SYMBOLS

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

$AUTOB

$8DADR
$8DDAT
$BELL
$CHARC
$CKSWR=
$CMTAG
$CM1
sCM2
M3
(M4
$CNTLG
SINTLU
$CRLF
$CS1
$CS2
$CS3
$DBLK
$DOAGN
$DTBL
$ENDAD
$ENDCT
SENUL
L
$EOP
SEOPCT
$ER
$ERFLG

001134

001122
001126
001216
073452
LA A4

001100
000006
000014
000006

000006

074663
07465%
001223
004124
004126
004130
074120
046352

001115
074264
001116

$ERRTB
$ERRTY
SERTTL
$ESCAP
$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR=
$HD
=
$HIOCT
$ICNT
SiLLUP
$INTAG
$ITEMB

001226
074130
001112
001214
001156
001155
001120
00124
046332

$L PADR
$LPERR
MAIL -

L8 2

2884

000000
075012
001104
073220
001135
001114
001224
001106
001110
LA 8288

9187
5394
5714
5714
5694
5778
91064
9105#
S874
1771a
17724
17734

8906

6575
8909
528
5778
66054

074110
046342
046206
046356
046152
0466200
004134
001103

$ERMAX
$ERRCR
$SERRPC

SLF

5958
5564
551#
5534
585#
8771+

1917

65744
17754
5424
4012
5861
8665
S548#
1807
5494

8512

9019+

604k
6814
S464
5844
567#
566#
5504
5524
65954

6023

6035

9016

9037

1768
5724

8781«

6096

6099

8788

8797«

88024

1799

1807

1813

573

573«

S74m
5744

5794

5804

6654
3124
3125+
3126+
89484
66024

5754
5754

6164

1814

6176

6237

6240

6305-

6317

8976
3673~
3674+
3675+

8981
3776n
3777
3778+

8985
3877+
3878+
3879+

9024

3978+
3679

4066+
4067+

1834

6380

6777

5037

9105

3810

3911
5795
8667

5764
5764

5774
5774

5814

5824

5834

6811
3266+
3267
3268+

8770
3371«
3372+
3373

8805
3461~
34624
3463+

8957
3568+
3569+
3570«

1983

6556

65674

3270+

3375«

5064
5936
8671+

5227
6077

3780+
3495
5573

9011«
8687+

5232
6143

9037
8692

3465~
3158
5297
6218

6441

3881+
3602
5579
6804

3982+
3707
5654
6822

5720
8635

8490
8514

8494
8518

8496
8520

8498
8522

8504
8529

8505
8533

8507
8535

8508
8963

1814

9017+
9032

9037
9034

9037

8691

5724
571
578#

6593
2110
2117
2101

8940
6596

8944k
65984
1941

6578
2132

1928

1970

1815«
90104

9020
8971
89504
6590

8774
8805

1991

9186

349
9143«
543
8696
557
5478
588#
5444
5454

SEQ 0197

91484
8678«
8712

8679
8725«

8681

8960
8805

9020
9037

9037
9096

1816+

1817+
8¢84

6688
8669
8758

6738
8685+
9026

%105
8669+

8691

8684+
9031

8689

8691

3980+

MASSBUS RH70 AND RH11_DIAGNOSTIC
(ZRHBE .P11
07=JUN=79 13:44
SMNEW
tMSWR
TMXINT
SNULL
SNWTST=

074707
074670
077056
001154
Q00001

0 16
12=JUL=79
MACYT1 30A(i052)
10:46
PAGE 200
CROSS REFERENCE TABLE == USER SYMBOLS

91094
91074
8682
5654
18464

2180
2498~
3061
38184

2323
2888#
3507

41334
4445

4234
46024
4922
SL4Ll
5869

L8144

$OCNT

$OMODE
$OVER
$PASS
SPOWER
$PWRDN
$SPWRMG
SPWRUP
$QUES
$RDCHR
SRDODEC=
SRDOLIN
$RDOCT
$RDSZ =
$REGAD
$REGO

5239
57264
6151
8837+

073700

073702
073042
001100
073226
073060
073214
073132
001222
(07442C
xewwwx (J
074540
074712
000010
001160
001162

8832«
8646
5404
8727
1811
87274
8706
5864
90534
2190
90814
91214
90744
5694
5714

2469~
2557
2675«
2833
3133
3363
3520
3667
3844
3987

$REG3
$REG4
$REGS

001170
001172
001174

5922+
6785+«
5724
5734
S744
5754
5764

$RHDB

004140

17774

045354

66044

$REG1
$REG2

001164
001766

$SRHBA

004136

$RHWC

SRTNAD

$R2A

004142
=

$SAVRE .

wxxxwax

atrxew ()

$3AVRG (073224
$SCOPE
072610
$SETUP= 000017

63654

2193
2500
31684
3820

2195
25974
3170
29194

42844

4286

5446
59424
6367

55194
5944
64634

4604
49734

S£Q 0198

2243
2637#
331

2281#
2639
34144

4021#
4339
47084
5077
55854
6010

4023
43904
4710

2403~
253«
2648
2788
3091«
3275
3453
3579
3770
3945+
5564+
6625
8525

2408
2533«
2650
2793
3114
3277
3455
3639«
3774
3968
5640+
6765+
8529

2463+
2534
2670

1816

6569

46554
4975

5177#
5587
60834

2283
2738#

3416
40824
4392
47614
5179
56604
€085

2321#
2740

35054

L4438
4763

52374
5662
61454

88814
8676

8692

2275+
2508
2629
27M
2942
3258
3427+
3562

6063
8490

3886
5358«
6249
8496

2310+
2509
2631«
2750+
2950%
3260
3428«
3566
3766
3888
5423
6345«
8498

5499~
6623
8503

2187

3216

3217+

3625

181

1813

1814

9087

2230+
2473
2606+
2678
2845
3232«
3369
3535«
3682
3869
4029

1786+

17764

2724x

17784

2587+

9105

3743«

2315
2529
2647
2751
3090~
3264
3451
3577
3768
3944«

2464
2536

3116
3337«
3459
3640
3785
3970

5705+
6770

2672+
2806+
3118
3338«
3470
3663
3787
3972
5781~
6775

2467
2556+
2674~
2807
3122
3361
3472
3665
3843w
3976
5846+
6780+

8645

9011

9029

2800+

9190

§705+
1805
17974

8714+
1805

MASSBUS RH70 AND RH11
(ZRKBE .P11

$SS1
$ST
$STUP
$SVLAD
¥SVPC =
$SWR =

07=1UN=79 13:44

9036

000000

18344
17748
1797#

004132

177777
073014
000214
167700

8654
5264
3384
1814

2604
2927

4664

5528
6469

8659

9003

= 000000
$ SWRMK
$TIMES
001212
$TKB
001146
$TKS
001144
$TMPO
00117¢
$TMP?
001200

$TMP?
$TMP3
$TMP4
$TMPS
$TN
=

459
5834
5624
5614
5774
5784
2680
6781
5794
5804

001202
001204
001206
001210
000100

S84

5824
3384
22874
2605
3309
39274

L2404
4453

$TPE
$TPFLG
$TPS
$TRAP
$TRAP?
=
$TRP
$TRPAD
$TSTNM
$TTYIN
$TYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS

001152
001157
001150
075014
075036
000011
075050
001102
076646
whhkhkww

073704
073236
073406
073454
073502
073516
073456

E 16
12-JUL=79
MACY11 30A(7i052:
10:46
PAGE 207
CROSS REFERENCE TABLE == USER SYMBOLS

DIAGNOSTIC

4708
L9294
53874
5867
62994
S644
5684
5634

9042

CARN

2125

3127

86834
531

349
1316
2646
4027
4717
5594
6564
8660
9004
360
1813+
9040
Q9040

2227%
2703«
6782+
6623
2900
6677
2081«
349
2288

3269+

3374«

3466

354

355
2080

356
2184
3065

1855

2895

4140
4823
5735

597

t A4
9. J)6
8641
2080+
9063
9061

2973

4190
4876

5810
6603
8665
9014
8661
2199+

2271~
2841+
6787
6641

2945
6679
2138

4240
4929
5876

4082
42934
4506
4761
49824
5519

3779«

3880+

358

359
2287
3421

6092
8638
8685

583
2327
3512
4452
5246
6158
8639
8688

3619
4505
5312
6233
8640
8691

2249
3316

584

2390

585
2458
3724

1813

2507
3824

9026

2973%

4982+«

6554+

6570«

8672+

8679

8682+

8691

2311«
6624
6792+
6649
6625«

2316+
6640

2466+
6766

2511
6767

2538+
6771

2561+
6772

2611
6776+

2652+
6777+

6626

6632

6634~

2178

21844

2193

22494
2597
3168
38244

2283
2604
3174n
3919

48234

2498
3059
37248
4182
43994
4612
4867
52464
5726
61584

4090
4337
45584
4771

2452
28954
3613
4133

24584
2965
3619#
41404
4347
4602

4399
5183

9037

2461
29734
3717

21994

5083#
5585
60174

5177
55944
6083

51834
5660
60924

4141
4390
46114
4824
5237
56694
6149

91834

91854

9187

91884

91894

G1904

6569+

6826

8635

8661

8683«

8688

59514
6463

3981+

9021

6605
8672

2161
20804
23904
2888
35124

23274
2738
34214

357

2199
3174
4293
4982
5951
8636
8673

3676+

4346
5083
6017
8637
8674
9029

6686

18554

3571+

SEQ 0199

L3464
4559
4814

4558

4611

8645
8728

9002

5387

5453
6372
8657

5801

4232
44524
6665
4920
5378
S810#

9013

9037

419N
4443
L6644
4877

53124

62334

6290

1809

91684
91724
9162
5414
9082
3185

8894#
8752#
8773
8798
8835#
8834
88304

91044

87924

8793

8692

F 16
MACY11 30A(°0S52)
12=JUL=79
10:46
PAGE 202
CROSS REFERENCE TABLE == USER SYMBOLS

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

$XTSTR 072620
$$GE T4= 000000
$CFILL
073701
SLOCAT=

nerenn

= 075972

86484
65974
8831x
8645
L72m
1816
65124
8708

8835+
9023

4764

1817
€523
8730

8845

88804

4814
18394

4834
18434

£5344
8805

65824
8948#

526

18864

6605

89954

5274

19254
€6064

9037

5294

19464

66314
9040

$314

19¢74

66464
9104a

SEQ 0200

538#

1988#

67204
9105

589

20054
68374
9111

17514

2175
BLBON

17544

264204
8691

1802

65004
8692

MASSBUS RH70 AND RH11 DIAGNOSTIC
{ZRHBE P11

MACY11

07=JUN=79 13:44

30A(7052)

12-JUL=79

CROSS REFFRENCE

TABLE == MA(RO NAMES

CLEARS

2451%4

6765

6770

6775

6780

6785

679C

OBLTIST

40824

4089

4293

6346

4399

4452

4505

3644

2028

2032

2038
2357
2446
2786
3038
325¢
3399
3583

2144
2379
2448
2791
3042
3262

2149
2405
2493
2337
3047

2154
2422
2528
2842
3051
3281
3447
3596
2791

4125
4492
4912

4129
4541
4916

COMMEN

ENDCOM

ERRCR

»”

2277

470%
L4704

2312

2317

3762
3905

£ SCAPE
GETPRI
GE TSWR
MSG

6354

6357

2386

K4
1%
"
18454

30594
39194

4392

MULT
NEWTST

5177#
6085
14
14

4704
4704
4704
1848

3061
3921

4445

5179
6151

o704
L7044

2888
4232
507%
6149

2965
4284
5177
6224

PYSH
REGCLR

14
17824

4704
2249

REWR

17824

5246

POP

REPORT

SAVE

1782¢

2858

6207

SCOPE

<ETPR]

5006
5972
3658
2972
4292
5182

6232

708

4704

2204

2914

4257

5041
4048
1854
3064
4345
5245

6298

47w

6361

20724

2454

3167#
40214

3402
3587
3772
3908

3279
3410
3592
3789
3916
4174
4545

4965

6434

2074
24974

21784
2500
33094

2180
25964
3311

21924
2599
364144

2175
26364
3416
4135

4082#
4604

4084
4657

1846

2178
3309

2193
3414

2261
3505

8717

5387

2253

2998

4312

5103
6113
2079
3173
4398
5311

637

4224
4598
5023
5291
5502
5656
5858
6069
6221

6437

5440
5649
5849

5380
6367

8698
2289

24624
2555
287%
3054
3285
3457
3599
3795
2974

6005
€21€
6410

5234

5305
63654

3059
4337
5237
6290

2159

5229
54,35
5646
5798
6004
6213
6409

52374
6226
,

4558

5225
5432
5643
5797
5999
6210
6362

41334
4710
5446
64634

4498

G 16
)
10:46 PAGE 204

4443
5378
6463

4496
5444

4549

5519

8935
3894

4763

5521
6465

2281
3613

4602

5585

SEQG 0201

4611

L664

4770

4823

4876

4929

2166
2426

2171
2428
2585
2938
3120
3294
3476
3659
3804
3993

2226
2432
2628
2947
3139
3305
3485

2232

2237
2436

2272
2438
2720
3024
3152
3384

2579
2881
3110
3290
3474
3607
3800
3991

4228
4647
5058

5294
5505
5657
5863
6072
6272
6437

22414
2639
3507

4329
4704
5071

4382
4757
5160

4002

4274

4651

5062
5299
5508
5708
5364

6075
6278
6440

5361
5515
5717
5928
6080
6286
6446

2243
27374

2283
2888#4

36124

41824
4816

4184

5587

4869
5662

2321
3717

2384
3818

4655
5660

3686
3815

2957
3148
3367
3492
3692
3873

37164
4234
L9734
5803

2498

4021
4814
5867

4708

5726

6131
6287
64647

23214

2890
37°9
42834

4975

5869

2597

4082
4857

5942

5951
2513
3430

4524

5343
6411
2286
3618
4610
5593

6233
2563
3642

2613
3745

4630
5484

4683

2589
3823

2457
3926

4716

%734

5545

4769
5809

2653
3846

4736

5625

2506

4026
6822
5875

2681
3947

4789

5690

2603

4088
4875

5950

2704

4043
4842

5766

2645

4139
4928

6016

5367
5567
5723
5934
6137
6348
6759

2323

29654
3818#
4286
50754
5944

2637

4133
4920
€008

3500
3697
3890
4017
4386
4806
5164
5370
5573
5784
5938
6140
6351

23844
2967
3820

4339

5077
6010

2738

4182
4973

6083

14
»
4612
14
470%
1L
1706
1853

SLASH

SPACE
STARS

2321
2893
3717
4238

4655
4991

.
SWRSU
TIMC

TRESC

YRMTRP

TYPBIN
TYPDE (
TYPNAM
TYPNUM
TYPOCS

TYPOCT
.

TYPIXT
XRCYSR
$$CMRE
$ECMTM
$SESCA
SENEWT

5585
6090
6616
6840
9039

14
20728

3730

4671
5537
2887#

G174

$ESET

.EQUAT
.HEADE

KT11
.SETUP
. SWRH]
.SWRLO
JBACTT

5075
6149
9172#

4612
¥ 2
1%

14
14
14
3384
1»

9188

9189

2605

4090
4877

4741
4930

4191

4704
1714
2072

485
1724
2078

524
1733
2087

2325
2965
3722
4286

2384
2971
3818
4291

4662

4708

5592
6149
6618
6843
9045

5660
6156
6620
6847
5074

5075

4704
2328

3831

&724
5613
3090

4708
8963

2888

9187

4824

14
6832

17824
5324
5324
4
14

9184

1797
2288
4718

L7004
4708
L704
L4704
L7048

iy
6481
6708

918¢

W70
4708
4665
4704

1%
1%
14
14
14

4232

$E$SK 1P

9181

L4704
6485
5717
5312
571
577
4704
4708

2965

4284

5177
6224
9181

3916
4344
4761

5131
5726
6231
6666

5081

7279

9151

18184
2359

2808

393

4096

4777
5678
3232

4,883
5819
3427

6656

6583

2006
8937

1836
6497
6724

4337

2846

6145
4936

5895
3534

2096
2498
3172

4400

4453

4506

4559

1662
1748

1664
1750

1683

1690
1779

1693
1794

1846

2182
2597
3314

4021
4397
4814
524«
5801

4082
4450
4867
5310
5867

6297

6693
8566
2902

4195
6994

5960

3639

2193
2602
3414

2247
2738
3510

4087
4496
4874

4927
5444
5949
6560

5378
5874

€370
6743
8694

6463
6761

3077

4300
5091
6101
3843

6513

6524

6535

1877

1883

1921

9187
4090
4877

589

1740

4294

4182
4556
4973
5451
6008

6796
8807

6608
6798
88&4

3219
4459
525%
6318

€706

6713

1984

2002
6673

8710

2745
3613

4188
4602

4980

1695

2285
2888
3617
4232

4609
4989

5519
6015
6610
6817
8951

6820
8998

352¢

3627

5526

6083
6614

4565

4618
5472

6722

6729

6736

2048
6681

2064
€695

2417
6700

5396
6745

6660

5444

4718
360
339

522

7281

4496

5237
6290
9182

4LB6
1796
349

5733
6290
6691

2193
3414

3059

3384
3384
3384
3604
338#

4390
4768
5237

6834
5876
575
581

1846

2288

2092
2456
3168
3925

6531

5453
572
578

4704

4665
3384
338#

2452
3063

534

1735

4241

O W=
"N =N\

9172¢

SETUP
SKIP

SEQ 0202

NN VYN

SETTRA

07=JUN=79 13:44

H 16
MACY11 30A(i052)
12=JUL=79
10:46
PAGE 205
CROSS REFERENCE TABLE == MACRG NAMES

[0,3V,
P SN V]

(ZRHBE .P11

DIAGNOSTIC

WONN
IS N
ND == =2 N -2
£ N W
0o
SN
W

MASSBUS RH70 AND RH11

6679
1942

6579

6586

6628

6017

6158

6299

2281
3613

2321
3717

6668

582

2241
3505

4549

5519

9188

6141

4930

2652
3919

4602

4655

5€60

4761
5801

9189
49N

4241

6347

5585

2498

2597

2637

2738

4021
4814

4082
4867

4133
4920

6182
4973

4400

4453

4506

4559

5867

5942

6008

6083

———
.

MASSBUS RH70 AND RH11 _DIAGNOSTIC
" IRHBE P11
07=JUN=79 13:44

$APTB
LBAPTH
.SAPTY
.SASTA
.$CATC
LSCMTA

1
1
.
1%
1”
1%

.$0820
.801v
.SEOP
.$ERRO
.SERRT
LEMULT
. $POWE
. SRAND

1%
1»
1
1»
1%
14
i J
14

.$RDOC
.SREAD
.SR2AZ
.$SAVE
.$582D
. $SB20
.$SCOP
.$SIZE
.$SUPR
.$TRAP
.$7YPR

14
1%
1.
1»
1
»
14
14
1%
1%
1%

.$DB2D

.$SRDDE

.$TYPD
.STYPE

.$TYPO

.$40CA

328N
2I8#

470
532

3384
3384
3384

€558
8996
8949

3384

8692

3784
3784

9111
G037

338#

8630

3384

914G

3384

1L 4

4384

1170

. ABS.

075072

ERRORS DETECTEL:

3384#

116

MACYTT 30A(7052)
12=JuUi=79
10:46
PAGE 206
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0203

)

8882

8735

8805

000
(

(ZRHBE .BIN,(ZRHBE.LST/
: TOC=CZRHBE
CRF/SOL/
. SML ,CZRHBE NL
.P11
RUN=TIMC: 89 105 10 SECONULS
RUN-TIME RATIO: 476/206-2.3
(ORE USED:
36k
(71 PAGES)

’
\