Digital PDFs

AH-FG68B-MC

September 1986

155 pages

Original

60MB

view download

OCR Version

73MB

view download

Document:	Micro Fiche Scan Name of device(s) tested: KDJ11-DA Test description: KDJ11-DA CLUSTER DIAGNOSTIC MAINDEC Number or Package Identifier (after SEP 1977): COKDDBEO Fiche Document
Order Number:	AH-FG68B-MC
Revision:	000
Pages:	155
Original Filename:	COKDDB0__KDJ11-DA__KDJ11-DA_CLUSTER_DIAGNOSTIC__AH-FG68B-MC__1986_gray.pdf

OCR Text

Micro

Fiche

Scan

Name of device(s)

tested:

KDJ11-DA

Test description:
KDJ11-DA

CLUSTER

MAINDEC Number

DIAGNOSTIC

Package

Identifier

(after

SEP

1977):

COKDDBO

Fiche

Document Part Number:

AH-FG68B-MC

Fiche preparation date

unknown,

using copyright year:

1986

Image

resolution:

8-bit gray levels,
COPYRIGHT

(C)

max.

quality

1986 by dlilgliltlall

for

archiving

&
A

[

OCVEIC
VS GINE-

COKDDBO KDJ11-DA CLUSTER DIAG.

SEG 0001

MACRO V05.03 Wednesday 09-Apr-86 09:43
.REM &

IDENTIFICATION

PRODUCT CODE:

AC-FG67B-MC

PRODUCT NAME:

COKDDBO

PRODUCT DATE:

APRIL, 1986

MAINTAINER:

DIAGNOSTIC ENGINEERING

KDJ11-DA CLUSTER DIAG.

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO_ CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATLON ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE USE OR RELIABILITY OF
SUPPLIED BY DIGITAL OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
MASSBUS
UNIBUS
PDP
DIGITAL
DEC

DECUS

DECTAPE

COKDOBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43

Table of contents

' 2G

e s 0

T N b b

s s s et e e

——

OPERATIONAL SWITCH SETTINGS
MEMORY MANAGEMENT DEFINITIONS

13-

BASIC DEFINITIONS
TRAP CATCHER

ACT11 HOOKS
APT PARAMETER BLOCK
COMMON TAGS
APT MAILBOX-ETABLE
ERROR POINTER TABLE
ERROR DEF INITIONS

GLOBAL VARIABLES AND REGISTER NAMES
GLOBAL DATA SECTION
INITIALIZE THE COMMON TAGS

GET VALUE FOR SOFTWARE SWITCH REGISTER
TEST - NATIVE REGISTER

TEST
TEST
TEST
TEST
TEST

- 16 BIT ROM CHECKSUM TEST
KDJ11-DA DATA PATHS
MEMORY ACCESSABILITY

MEMORY ERROR REGISTER
DATA SHORTS AND STUCK AT BITS

TEST - QUICK VERIFY DATA AND ADRESSING TEST
TEST - CHECK PARITY DETECT LOGIC AND RAMS

TEST - LTC BIT 7

TEST
TEST
TEST

TEST

- LKS INTERRUPT PRIORITY
- RESETTING LKS

MAINTENANCE REGISTER TEST
- SERIAL LINE UNIT REGISTERS

- XCSR BIT 7

TEST
TEST

- RCSR BIT 7 AND XCSR BIT 2
- RESET AND XCSR<2!0>

TEST
TEST
TEST

- INTERRUPT PRIORITY FOR SLU
- BREAK CONDITION
- OVERRUN CONDITION

TEST

- RESET AND INTERRUPT ENABLE BITS

'S ON

DIFFFRENT LEVELS OF INTERRUPTS

- ARBIVRATION BETWEEN PIRQ'S AND INTERRUPTS

GLOBAL ERROR MESSAGES
MODIFIED ERROR MESSAGE TYPEOUT ROUTINE
GLOBAL SUBROUTINES SECTION

Q228E %I‘F ROUTINE
ERRUPT INITIALISE ROUTINE
DMATRN DATO CYCLE THRU Q22BE
THRU Q22BE

ERROR
ROUTINE
ABORT ROUTINE FOR LCP/ORION UFD MODE
APT COMMUNICATIONS ROUTINE
TYPE ROUTINE

BINARY TO OCTAL_(ASCII) AND TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
TTY INPUT ROUTINE

READ AN OCTAL NUMBER FROM THE TTY
TRAP DECODER
TRAP TABLE

POWER DOWN AND UP ROUTINES

SEQ 0002

——

MACRO VO05.03

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesday 09-Apr-86 09:43

Page 3

TABLE OF CONTENTS
46

1.0

PROGRAM ABSRACT

2.9

PROGRAMMING CONVENTIONS

3.0

Implementation Language

2.2

Program Generation

2.3

Hardware

2.4

Loading and Starting Procedures

2.5

Special Environments

2.6

Program Options

Execution Times

2.8

Error Information

2.9

Examples

Requirement

PROGRAM DESCRIPTION

3.1

3.2
3.3
3.4
3.5

3.6
3.7

Jil Code

Native Register
Maintenance Register
KD.11-DA on board memory
On-Board Rom Code

Line Time Clock Code
Serial Line Unit Code

3.8 On Board LED
3.9 Q22BE Code
3.10 List of Subtests Performed

3.11 Program Updates and Modifications

4.0

BIBLIOGRAPHY

5.0

GLOSSARY
APPENDICES

—

SEQ 0003

l‘

E1l

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

1.0

Page 4

Wednesday 09-Apr-86 09:43

SEQ 0004

PROGRAM ABSTRACT

This proygram tests out KDJ11-DA CPU board, including

on-board MEMORY, on-board ROM's, serial line unit,
and the Bus Arbitration.

the Jll chip set,

line time clocks,

The KDJ11-DA is a PDP-11 CPU that incorporates the Jll chip set as the

essor. It is & quad height Q22 bus module. It has
heart of the
512 KB of on-board nnorxfi The memory has parity detection and is
chips. There is a memory CSR to help
located on 18 256k x 1 RAM

determine parity errors.

The KDJ11-DA also has 2 on-board ROM's. They contain the self-test
and the boot codes.

The Serial Line Unit is implemented thru 2 Dlart chips which provide
the standard console interface to the CPU. It has internal loop
mode and has a user selectable baud rate of 300 to 38400 baud.
The line time clock functions are implemented using the BEVENT line.

As a program option the Q22BE module is used to test verify the inter-

rupt arbitration of the KDJ11-DA , DMA protocol, and PMG counter.

Further details are c:glicitly mentioned
DESCRIPTION section #

3.0

test by test in the DESIGN

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 5

2.0

SEQ 0005

PROGRAMMING CONVENTIONS

2.1

Implementation Language

The PDP/11 Assembly Language has been used to write this CPU

diagnostic

Program Generation

tic is developed and assembled on a VAX usi
This Di
the PDP/I1 mode "MCR MAC" and the "ORION.MLB” libraryas
folloume:

the

$ MCR MA

L
.MAC/DS:GBL
N.MLB/M
,NAME
MAC> NAME ,NAME/-SP=0RIO

Fin.ll; NAME .0BJ would be transfered to an XXDP+ media from
the VAX by using the "XDT" or "“SHARON" utility.
2.3

Hardware Requirements

To run successfully the diagnostic needs:
A. KDJ11-DA CPU module
B. console terminal

In DVT,

and stage one manufacturing

Bus exerciser is needed to check
2.4

(module assembly) the Q22

Bus logic.

Loading and Starting Procedures
To start-up this program:

1. Boot XXDP«

& Tygc "R NAME”, where name is the name of the BIN or BIC
file for this program.

The starting address of the

Note: if trying

after HALT on
17777572=0

2.5

to restart

am is 200.

_program in an arbitrary place

Break the following registers should be set up:
to disable memmory management

Special Environments

the UFD
The program_is APT compatible. It can also be run under
printouts

In those cases none of the standard error
monitor.
to corresponding documents on running procedures in
Refer
occur.
APT and under UFD monitor.

2.6

Program Options

The Q22 Bus Exerciser is utilized if it is present in the

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 5-1

SEQ 0006

in UFD mode.
svtu and the diagnostic is not running
Standard capabilities of looping on test and on error are provided.

183
%gg
186

SWITCH REGISTER SELECTION:
BIT NUMBER

187
188

15
14
13
12
11
10
9
8
7
6
5-0

189
190
191
192
193
194
195
196
197
198
199
200

HALT ON ERROR
LOOP ON PRESENT TEST
INHIBIT ERROR TYPEQUTS
ENABLE TEST TRACING
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<5-0>
INHIBIT THE CHECK PARITY TEST
Not used
Subtest number to loop on
(BIT 8)

201
202

203

206
gié

2.8

213

ggg

takes about 2 minutes.

Error Information

are given.
In the case of errors, a failing PC and test numbers given.

ible, expected and received data are
Where it is
For an example, see section 2.9 .

214
gig

217
218
219

Without check parity test, the diagnostic runs in under 20
seconds. With it, it

209
210

Execution Times

2.9

Examples

XXDP+ and starting

the program, the followi

222

ggz

After booting

* KDJ11-DA CPU DIAGNOSTIC - COKDDAO =

gg;

SHR = XXXXXX

will m.rngn the terminal: ke

NEW =

m::c XXXXXX correspond to present software switch register

232
233
234
gg

1) type in a new software switch register
return or
carrige
ge return in which case the software
2) just type in carriaunchanged.

231

gg;
239

Aftcv‘-

“

following:
W" an operator can do one of the setting
Tollowed

Example of error printout:
ERROR DOING Q22BE INTERRUPTS

COKDDBO KDJ11-DA CLUSTER DIAG.
240
241
242
243
44

MACRO V05.03

Wednesday 09-Apr-86 09:43
TEST

#
27

Page 5-2

ERROR

PC
105620

ADDRESS ADDRESS

<21-16> <1S5-0>
000000
66600

Note: this may not correspond to the actual Program Counter.

SEQ 0007

1‘

COKDDBO KDJ11-DA CLUSTER DIAG.
246
247

MACRO V0S5.03

Wednesday 09-Apr-86 09:43 Page 6

PROGRAM DESCRIPTION

3.0

J11 CODE

3.1

portion of the code tests out the Jll chip set. It is broken
This
into 3 pieces: CPU tests, which verify different instructions in
different modes and different trap conditions; MMU tests, which
verify different functions of MMU; and FFP tests, which do
different floating point instructions.

This portion of the code_have been written in close relationship
with the Jl1 microcode. Therefore, even though not all possible

instructions in all possible addressing mode have been tested, an
attempt has been made to exercise all of the microcode.

Most of the CPU diagnostic tests have been taken from the “DJ11-8
Cluster diagnostic and has not been rewritten due to similarities.

NATIVE REGISTER

3.2

TEST - NATIVE REGISTER

NATIVE REGISTER TEST

This test checks out the native register’'s existance and it's
various bits.

BGNTST

;SetwtinwtvoctorPCtoTIm
up timeout vector PSW to 7

Read the Nati

3 Check out the module functional revision as read only
the bootstrap switch as read only

Check out that the self-test enable bit works
Check out he indicators (i.e LEDS)

TIMOUT: Clean stack

Error NATIVE register timed out
r

SEQ 0008

-0

SREFGRENELELY

COKDDBO «DJ11-DA CLUSTER DIAG.

MACRO VO0S5.03 Wednesday 09-Apr-86 09:43 Page 7

3.3

TEST

MAINTENANCE REGISTER

- MAINTENANCE REGISTER TEST

MAINTENANCE REGISTER TEST

THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS
7-4 70 BE 0010, 2-1 10 BE 10, AND READ BITS 10-08, 03, 00

FOR FUTURE_USE.

~THOSE BITS REPRESENT THE FOLLOWING SIGNALS:

MULTIPROCESSOR SLAVE, UNIBUS SYSTEM, FPA AVAILABLE, HALT/TRAP
OPTION,

AND AC POWER OKAY.

IF MAINT. REG. BITS <7-4> NE 0010 OR <2-1> NE 10 THEN

’

ENDIF

ROUTINE TEST
.

READ MAINT.REG. BITS <10-08,03,00>

ENDROUTINE

S5€Q 0009

—-

1K1

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

3.4

Page 8

SEQ 0010

KDJ11-DA ON BOARD MEMORY

The KDJ11-DA has on board memory of 512 Kbytes - block mode, with

parity, fixed start at 0.

The KDJ11-DA board uses 256K x 1 chips which allows us to use two

patterns per RAM only.

this
tic_starts with teoting the deta path using
Our memory di
pattern: O, 177777, 177400, 170360, 007417, 052525, 125252. The 2nd
the accessibility of each address and an error will
test is checking
The third test is to check the memory rggiotcn
raps.
memo
f
i
flag
KDJ11-DA. Fourth, is the short and stuck on bits test
ecific to
ich will test cvcz.u le bit 0/1 for all addresses. The KNAIZUK
which divides the memory into sections of three is
HARTMANN algorithm
quick verify of all stuck at faults in the data
a
as
used in test five
and addressing. Test six checks the parity detect logic of all memory
:
KDJ11-DA.
locations on
You can refer to this section for more details.

TEST - KDJ11-DA DATA PATHS
DATA PATH TEST

This test checks out the data and address paths on the KDJ11-D

Board. The patterns used will be:

0
177777

177400
170360
007417
052525
125252

BGNTST

)} Set Timeout trap to TIMOUT

; Set timeout priority to 7
Read location 0

)} FOR pattern := first to last
}

\Udrite pattern

Read pattern

IF Pattern read <> Pattern Written THEN
ERROR

) ENDFOR

ENDTST

TEST - MEMORY ACCESSABILITY
ACCESSIBILITY TEST

This test will check the accessibility of each address of memory
on the KDJ11-D Board. IF a memory address traps out then an error

fll‘

COKDDBO KDJ11-DA CLUSTER DIAG.
377

378

379

MACRO V05.03

MWednesday 09-Apr-86 09:43

Page 8 1

will be flagged. A side effect of this test should be that all memory
is cleared

BGNTST

)}
)}

)}
)

;

Set timeout trap to TIMOUT
Set timeout priority to 7

For MSB_Address := 200000 to 1777777 DO
Contents of address := 0

Go to the next test

YTIMOUT:

}

Error Address should not have timed out

ENDTST

TEST - MEMORY ERROR REGISTER
MEMORY ERROR REGISTER

This test will check the MEMORY ERROR REGISTER on the KDJ11-D

Board.

S
S S

Setup timeout VECTOR PC to TIMOUT
Setup timeout VECTOR Priority to 7
Setup Parity abort VECTOR to PARINT
Setup Parity abort VECTOR Priority to 7
Do a bus reset

Read the Memory Error Rogistcr (17772100)

Make sure that the regi ster bits are in the right state
Check all R/W bits
ENDTST
o S

TEST - DATA SHORTS AND STUCK AT BITS

DATA SHORTS AND STUCK AT BITS TEST

This test will check the DATA Rams for Data shorts and stuck at bits.
Testing occurs as below:

OEJ'IONNH

GREERRRRGRERRESITSIRARESER385R

BGNTST

A memory

0
location is checked to be set to

. IF NOT O error

The location is complemented
. IF contents NOT -1 error
This is repeated for all addresses

Steps 1-5 are done from location 1777777 to O

Note: The KDJ11-DA board uses 256k X 1 chips,This allows us to
use only 2 patterns per RAM. IF one bits is shorted to

initial state.
another we will detect this when we read for thechances
are that
from the expected state then

the bits un-xgtod together.
If it has ch

A side effect of this test should be that memory is cleared.

SEQ 0011

{‘

SEQ 0012

Clear Address
If Contents <> O THEN

N NN N

FOR MSB_Address := 0 to 1777776 DO BY 2
in

memory

Complement the Contents of Address
IF contents <> -1 THEN

N
N N NN

ERROR

in memory

.
ENDFOR
FOR MSB_Address := 1777776 DOWNTO O DO BY 2
IF contents <> -1 THEN
ERROR

in memory

Complement the Contents of Address
IF contents <> O THEN
-

ENDFOR

ERROR in memory

-l
w

445

N N N N

437
438
439
440
441
442
443

TEST - QUICK VERIFY DATA AND ADRESSING TEST
UNIQUE ADDRESSING TEST

This test will check the data and addressing

of the memories.

M.
It uses the KNAIZUK HARTMANN QUICK VERIFY TRAM TEST ALGORITHthe

This algorithm will test memory for all stuck at faults in
addressing

data

Memory

split

TE 81527 3.4.8

into sections of 3.

"6.7.10 ...

Testing works as follows.
=

434
435
436

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 8-2

Nawh

COKDDBO KDJ11-DA CLUSTER DIAG.

VOO

a 0 into the 2nd and 3rd address of all groups
Write
write a -1 into the lst address of all groups

ulgcouutlpatthei’ndoddnnof all groups contain 0

g
a -1 into the_2nd address of all groups
Write
Make sure that the 3rd address of all groups contain 0
Hck: surelth.t the lst and 2nd address of all groups
contain

Write a 0 into the 1st address of all groups

Make sure that the 1st address of all groups contain 0
L
Write a -1 into the_3rd address of all groups
Make sure that the 3rd address of all groups contain -1

TEST - CHECK PARITY DETECT LOGIC AND RAMS
CHECK PARITY DETECT LOGIC

This test will check out the parity

board. We will write wrong parity

Expect the a parity trap on a nzd.

detection logic on the KDJ11-DA

to all locations and then we will

fl.r

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 8-3

vwvvvvvvvvvvvvvvvvvv§

Set up Parity Vector (114) To PARINT

Enable Write Bad parity (Set bit 2 in MER (17772100))
Clear all of memory

Read first location written to

IF Parity Abort Occurs THEN

Error There should be no Parity Aborts when disabled
Enable Parity Error (Set Bit 0 in MER (17772100)

IF No Interrupt THEN
ELSEPM' Didn't Detect Bad parity

Clear the interrupt flag

Read the MER and make sure the obtained address is the correct one

b 4
wn
-l

;%gg that an interrupt occured

3.5

ON-BOARD ROM CODE

The KDJ11-DA Netive Firmware resides in a 2-16Kx8 EPROM's which
are phisically located on the KDJ11-DA module. The Firmware has
user commands, auto sequence boot, console
a monitor to
tests, extended self tests invoked via user
self
boot, power up
intervention, and support a text of basic error messages in all

supported eleven foreign languages including extended error
messages in English.

e
34 34 423 S

NOP

PARINT:

S S

S SRS R AR R A R

FOR First_Address to Last_address DO

In this test we perform a sum test for the on Board ROM's which
resides at address 17400000 - 17677777.

TEST

- 16 BIT ROM CHECKSUM TEST

ROM'S CHECKSUMS

16 BIT ROM TEST
BGNTST
INIT MMU REGISTERS
}

)
)

POINT PAGE 2 TO SELF TEST
ENABLE SELF TEST BIT

SEQ 0013

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 8-4

548
?53

)
;

READ FIRST 2 WORDS OF ROM
GET EXPECTED CHECKSUM

551
552
553

}
)
}
g

DO CALCULATE CHECKSUM
ADD WORD TO REGISTER
)
) DO UNTIL ALL WORDS ADDED
END CALCULATION

ggg

556
557

558
559
560
S61
562
563
564
565
566

NEGATE THE SUM OF WORDS
IF NEG. SUM < > EXPECTED CHECKSUM

ERROR
ENDTST

3.6

552;

LINE TIME CLOCKS CODE

ias accessed at
The line time clock control snd status register
100 on interrupt
vector
thru
t
address 17777546. The EVENT interrup
BEVENT.
signal
Q-bus
from
received
request level 6 is

569
570
g’%

573

Note: in UFD mode only functions corresponding to Boot Rom selection

576
g]lz

the clock,
In this diagnostic we start with testé#l: existence gofLKS.
test#2: interrupt priority max S5, test#3: resettin

are checked.

g;g

gzg

TEST - LTC BIT 7

LTC BIT 7 TEST

583

This test check for the existance of the LTC register and it

Ssgg

makes sure that the clock is ticking.

586

BGNTST

589
590
591
592
593

Read the LTC CSR
IF not timed OUT THEN
: FOR a set amount of time
Check bit7
:
IF BIT7 is set THEN
:

587
588

ggg
596

Set up timeout vector PC to TIMOUT
Set up timeout vector PSW to 7

séncnnnt BIT7 set flag

INCREMENT BIT7 Clear Flag

: ENDFOR

597

598
599
3(1)

: IF either fleg
Error Cl
:
ENDTST

602

TIMOUT: Clean stack

has not been set at all THEN
is not ticking

Error LTC register timed out

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 8-5

TEST

- LKS INT'RRUPT PRIORITY

CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY S5 CLEARING LKS<07>

AND DON'T HAPPEN AT PRIORITY 6.

ROUTINE TEST

IF UFD AND LKS IS DISABLED THEN
.

ENDIF

EXIT TEST

SET PRIORITY TO 5

CLEAR INTERRUPT_FLAG

LET LKS<06>=#1 (ENABLE INTERRUPTS)
SET COUNTER TO WAIT FOR 3 INTERRUPTS
REPEAT

DECREMENT COUNTER

UNTIL INTERRUPT_FLAG EQ #3 OR COUNTER EQ #0
CLEAR LKS<06>

IF LKS<07> EQ #1 THEN

ENDIF

ERROR (WAS NOT CLEARED ON INTERRUPT®

IF COUNTER LT TIME_REQUIRED_FOR_3_INTERRUPTS_FOR_800HZ
ERROR (INTERRUPTS NEVER GO LOW)
S
IF INTERRUPT FLAG LT #3 THEN

ERROR (INTERRUPTS DON'T HAPPEN)

CLEAR_INTERUPT_FLAG
WAIT FOR_LKS<7>=1
LET LKS<7>=0
IF LKS<7> NE #0 THEN

ENDIF

ERROR (LKS<7> NOT CLEARED

SET PRIORITY TO 6

.
.

SET COUNTER TO 1 SLOW CLOCK INTERRUPT
SET LKS<06>
REPEAT

DECREMENT COUNTER

UNTIL COUNTER EQ #0 OR INTERRUPT_FLAG NE #0

IF INTERRUPT FLAG NE #0 THEN

ENDIF

ERROR (INTERRUPT WAS AT WRONG PRIORITY)

RESTORE ORIGINAL PRIORITY

ENDROUTINE

ERUPT
ROUTINE LINE_CLOCK_INTERUP

INCREMENT INTERRUPT_FLAG

ENDROUTINE

TEST

- RESETTING LKS

RESETTING LKS(#)

THIS TEST WILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>.

ROUTINE TEST

IF UFD AND LKS IS DISABLED THEN

SEQ 0015

COKDDBO KDJ11-D& CLUSTER DIAG.
662

663

664

665

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 8-6
"

ENDIF

670

673
g;g

676
677
678

679
680
681
682
683
684
685
686

EXIT TEST

POINT LKS VECTOR 100 TO ERROR _LKS_ILLEGAL INTERRUPT

SYNCHRONIZE LKS BY WAITING FOR 3 PULSES

LET LKS<06>=#1
EXECUTE “RESET"
IF LKS<6> NE #0 THEN
ERROR
A

666
667
668
669

671
672

SEQ 0016

ENDIF

IF ILLEGAL _LINE_CLOCK_INTERRUPT NE O THEN
ERROR
.

‘

ENDIF
N
ENDROUTINE

ROUTINE ERROR_LKS_ILLEGAL_INTERRUPT
FLAG ILLEGAL _LINE_CLOCK_INTERRUPT
.
RETURN

3.7

23;

SERIAL LINE UNIT CODE

689
690
691
692

to be tested.
The KDJ11-da board has two Serial Line Unit that haveates
over the
communic
and
uODT
enters
it
halts
r
When the proceeso
the console
ed
consider
.They
17777566
thru
17777560
s
addresse
at
SLUO
Serial 1/0 and
addresses by the CPU. SLU1l is the General

on breake option.

is addressed at 17776500 thru 17776506 and

693

tic we verify the function.litl of the SLU chip_
In this di
maintenance mode of the chip. All serial lineterunit
utilizing
tests: interrupt level, loop back capsbility, and transmit
except the
receiver bits m-oton.mrfornd on SLUO andonSLUl
SLUL only. because
CONDITION tested
BREAK CONDITION and the
SLUO is used as the console .

696
697
698
699
700
;85
703
704

SLUl1 does not have the halt

- SERIAL LINE UNIT REGISTERS

;82

TEST

708
709
710

707

SERIAL LINE UNIT TEST(#)
BCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE IN_PROGRAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06>
RCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING
BE

713

PROGRAM HANGS IN THE LOOP BACK MODE.

ENDIF

711
e

714
715
716

718

NE WILL
TO 1 XCSR<02>. _ THE LINE CLOCK INTERRUPT SUBROUTI
IF THE
TICS,
DIAGNOS
THE
OF
USED TO RETURN TO THE EXECUTION

ROUTINE TEST
IF UFD AND CONSOLE NOT PRESENT
.
GO TO TEST_22

IF BCR<07> EQ #0 THEN

COKDDBO KD.i1-DA CLUSTER DIAG. MACRO V0S5.03 Wednesday 09-Apr-86 09:43 Page 8-7
F—

READ BCR<2-0> TO GET BAUD RATE

LET _4=ADDRESS_OF_TIEWT

, XB
oo FOR RCSR, XCSR;RBUF

READ XRCSR,XCSR,RBUF xaur
IF TIMEOUT FLAG NE #0 T

ROUTINE

ENDDO
ENDROUTINE

ENDIF

ERROR

ROUTINE TIMEOUT
LET TIMEOUT_FLAG=#1
ENDROUTINE

TEST

- XCSR BIT 7

CHECK THAT XCSR<07> CAN BE O AND 1.
XCSR

TRANSMITTER READY

<07>

ROUTINE TEST

WAIT FOR XCSR<07>=#1 NO MORE THAN 200MSEC
IF XCSR<Q7> NE #1 THEN
ERROR
ENDIF
LET_XBUF =#NULL

WAIT FOR XCSR<07>=#1
LET XBUF=&NULL

IF XCSR<Q7> NE O THEN

ERROR (READY DIDN'T GO LOW)

ENDROUTINE

TEST

- RCSR BIT 7 AND XCSR BIT 2

CHECK THAT RCSR<07> CAN BE O AND 1 AND THAT XCSR<02> WORKS PROPERLY.
RCSR
RCSR

<07>
<02>

RECEIVER DONE
MAINTENANCE

ROUTINE TEST

(Cl'ECK RCSR<07> AND XCSR<07>)
WAIT FOR XCSR<07>=#1

LET XCSR<02>=#1 (LOOP BACK MODE)
LET XBUF=#125

WAIT FOR RCSR<07>=#1 NO MORE THAN 200MSEC
IF RCSR<07> NE #1 THEN

ENDIF

ERROR (R‘&S‘%Ob DOES NOT BECOME 1 OR XCSR<02>DOES NOT

IF RBUF NE #125 THEN
ERROR
.

SEQ 0017

COKDDBO KDJ11-DA CLUSTER DIAG.
776
777
778
779
780
781
782
783
784
785

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 8-8
ENDIF

IF RCSR<Q7> NE #0 THEN

ENDIF

ERROR (RCSR<07>DOES NOT GO LOW)

LET XCSR<02>=#0

ENDROUITNE

TEST

- RESET AND XCSR<2!0>

CHECK THAT RESET CLEARS XCSR<0!2>.
ROUTINE TEST

.(CHECK RCSR<07> AND XCSR<07> AND RESET)
LET XCSR<02,00>=#1 (..00OP BACK MODE)
g

EXECUTE “RESET"

IF XCSR<02!00> NE #0 THEN
ERROR
ENDIF
LET XCSR<02>=#0

.
3
ENDROUTINE

TEST

- RESET AND INTERRUPT ENABLE BITS

CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY 4 AND THAT RESET
CLEARS XCSR<06> AND RCSR<06>.

RCSR
XCSR

<06>
<06>

RECEIVER INTERRUPT ENABLE
TRANSMITTER INTERRUPT ENABLE

ROUTINE TEST

OF
T_XRCSR
SS_
INTERRUP
DRE
_ILLEGAL
LET 60=#AD
_XRCSR
PT
_INTERRU
_ILLEGAL
OF
LET 64= SADDRESS_OF _
SET PRIORITY TO 4

LET XCSR<02>=#1 (LOOPBACK MODE)

LET XCSR<06>=#1 (ENABLE TRANSMIT INTERRUPTS)
LET RCSR<06>=#1 (ENABLE RECEIVE INTERRUPTS)
WAIT FOR XCSR<07>=#1 (READY TO TRANSMIT)
LET XBUF=#NULL (SEND A CHARACTER)
WAIT FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC)
EXECUTE "RESET"”

IF XCSR<06> NE #0 OR RCSR<06> NE #0 OR XRCSR NE #0 THEN

ENDIF

RESTORE PRIORITY TO NORMAL

ENDROUTINE

ROUTINE ILLEGAL_INT ERRSIRPT_XRCSR
INCREMENT XRC
.
ENDROUTINE

TEST

- INTERRUPT PRIORITY FOR SLU

SEQ 0018

COKDDBO KDJ11-DA CLUSTER DIAG.

833

MACRO V0S5.03 Wednesday 09-Apr-86 09:43 Page 8-9

CHECK THAT INTERRUPTS HAPP7Z'! AT PRIORITY 3 AND THAT THEY CLEAR

ggg

RCSR<06> AND XCSR<06>.

836

RGJT INE TEST

837

838

840
841
842
843

.
‘
.
.

839

844

845
846

LET 60=#ADDRESS_OF _LEGAL _RINTERRUPT

LET 64=#ADDRESS_OF_LEGAL_XINTERRUPT
LET XCSR<02>=#1

SET PRIORITY TO #3
WAIT FOR XINTERRUPT=#3
IF XCSR<07> EQ #1 THEN
n
ENDIF

’

ERROR

WAIT FOR RINTERRUPT=#3
IF RCSR<07> EQ #0 THEN

}
.

847
848
849

ERROR
5
.
ENDIF
.
LET XCSR<02>=#0
.
SET PRIORITY TO NORMAL
.
ENDROUTINE

853

RWT INE LEGAL XINTERRUPT

855

ENDROUTINE

858

ROUT INE LEGAL _RINTERRUPT

850
ggé

854

gg_?

859

860

T XBUF =#CHARACTER

IPCRE!ENT XINTERRUPT

READ RCSR

INCREMENT RINTERRUPT

861

ENDROUTINE

TEST

862
863
864

- BREAK CONDITION

g;
ggg

SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE
CHECK THAT SENDING BREAK CAUSES FRAMING ERROR.

871
872
g?’z

RCSR

<15>
<13
<11>

ERROR
FRAMING ERROR
RECEIVED BREAK

g;g

XCSR

<00>

TRANSMIT BREAK

877

ROUTINE TEST

881

.
»
.

LET XCSR<02>=8#1
LET _XCSR<00>=#1
WAIT FOR RCSR<07>=#1

884

]
.

ENDIF
LET XCSR<00>=#0

878
879
880

382
as3
885

886
887

888

889

‘
.

‘

IF RBUF<15!13'11> NE #1 THEN

ERROR CERROR, FRAMING ERROR, RECEIVE BREAK NE 1)

IF XCSR<00> NE #0 THEN

ENDIF

ERROR (XCSR<00> DOES NOT GO LOW)

WAIT FOR XCSR<07>=#1

LET XBUF=8NULL (SEND NULL CHARACTER TO SEE ERROR CLEARED)

SCQ 0019

4‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03 Wednesday 09-Apr-86 09:43 Page 8-10
WAIT FOR RCSR<07>=#1

890
891
892
893

IF RBUF<15!13!11> NE #0 THEN

ERROR

ENDIF
LET XCSR<00>=#1

i
;

‘

EXECUTE "RESET"
IF XCSR<00> NE #0 THEN
ERROR
.
ENDIF
LET XCSR<02>=#0

ENDROUTINE

TEST

- OVERRUN CONDITION

CHECK OVERRUN CONDITION
RCSR

<14>

OVERRUN ERROR

SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE
ROUTINE TEST

LET_XCSR<02>=#1_ (LOOPBACK MODE)
WAIT FOR XCSR<07>=#1
LET XBUF =#252
WAIT FOR XCSR<Q7>=#1

LET XBUF=#125 (SEND THE 2ND W/0 READING THE 1ST CHARACTER)
WAIT FOR RCSR<07>=81

STALL FOR LOWEST BAUD RATE TQ GET 2ND CHARACTER
IF LOW BYTE OF RBUF NE #125 THEN

ENDIF

ERROR (1ST CHARACTER WASN'T OVERRUN)

IF RBUF<15!14> NE #1 THEN

ERROR (NO OVERRUN BIT SET)

ENDIF
WAIT FOR XCSR<Q7>=#1
LET XBUF=#NULL
WAIT FOR RCSR<07>=#1

IF RBUF<15!14> NE #0 THEN

ENDIF

ERROR (WASN'T CLEARED ON THE NEXT CHARACTER RECEIVED)

LET XCSR<02>=80

ENDROUTINE

3.8

LED'S TEST CODE

This test will determine that the LED's situated on the CPU board

SEQ 0020

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03 Wednesday 09-Apr-86 09:43 Page 8-11
work correctly. This is done by sending a delayed turn on and off

$REERER $33%95%
FR32%838

947
948
949

to the LED's so we can see their rotational pattern.

951

959
961

963

965

967

TEST

- LED'S ON

LED'S ON

THIS TEST WILL INITIALIZE BOR TO CONTAIN A ROTATING PATTERN

DISPLAYED IN LED'S.

RWTI'E TEST

\HILE A KEY NOT RECEIVED FROM KEYBOARD DO
STALL ALLOWING TIME TO SEE PATTERN
ROTATE LEFT TO LIGHT UP NEXT LED'S
N

ENDDO
a
ENDROUTINE

SEQ 0021

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO VO0S5.03 Wednesday 09-Apr-86 09:43 Page 9

970

3.9

g;l“l’

)

Q22BE CODE

973
974
975

The Q22 Bus Exerciser is a hardware option module that can work in
conjunction with the CPU to test different levels of interrupt,
arbitration between PIRQ's, and PMG counter of the KDJ11-DA, Direct

3;8

More details about every test could be found in this section.

Memory Access protocol.

3;9

383

984

- DIFFERENT LEVELS OF INTERRUPTS
DIFFERENT LEVELS OF INTERRUPTS

gg;

PIRQ'S WILL BE TESTED.

989
990
991

CHECK DIFFERENT LEVELS OF INTERRUPTS.
ROUTINE TEST
SET VECTOR TO INTERRUPT_DMA
i

993
994
995

:
*
2

985
986

992

997

TEST

THIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT
LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND

FOR INTERRUPTS FROM 4 TO 7 DO
.
é
.

ENABLE INTERRUPTS
SET PRIORITY=INTERUPT
IF INTERRUPT_FLAG SET THEN

ENDIF

H
5
>

ENABLE INTERRUPTS
SET PRIORITY=INTERRUPT-1
IF INTERRUPT_FLAG NOTSET THEN

998
999
1000

.
‘
’

1002
1003
1004
i%

K
.
<
.
ENDDO
4
ENDROUTINE

1007

ROUTINE INTERUPT_DMA

1009
1010

RETURN
ENDROUTINE

1001

1008
1011

ERROR

ENDIF
LET INTERRUPT_DMA=0

LET INTERRUPT_FLAG=1

igig
1016

TEST - ARBITRATION BETWEEN PIRQ’'S AND INTERRUPTS
CHECK PRIORITY ORDER BETWEEN PIRQ'S AND INTERRUPTS.

1021
1022

:
.

DO FOR I FROM #6 DOWN TO &3
SET PRIORITY TO I
‘

‘

1017
1018
1019
1020

1023

1024
1025
1026

ROUTINE TEST
IF UFD THEN
.
EXIT TEST
3
N
ENDIF
.

‘
i

ENABLE INTERRUPT(I.1) AND PIRQ(I+1)

‘
.

*
ENDIF

IF INTERRUPT(I+1) WAS BEFORE PIRQ(I+1) THEN
ERROR

SEQ 0022

Q(i

COKDDBO KDJ11-DA CLUSTER DIAG.
1027
1028

1029
1030
1031
1032
1033
1034
1035

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

ENDDO
5
ENDROUTINE

3.10 LIST OF SUBTESTS PERFORMED

iggg

list represents the sequential order of subtests
The followi
to the APT
which are subject
i:’comono ..... subtests
performedtions
of section 3.2 are indicated by a Cache-APT label.

1038
1039
im
1042

iw
1045

1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067

1068

%893

1071
1072

Page 9-1

qualifica

TEST NO.

TEST NAME/FUNCTION

test 1
test 32
test 33
test 34
test 35
test 36
test 37

Base instruction set tests
KDJ11-DA on Board Memory
KDJ11-DA Data Path
ility
Memory
i
Memory Error Register
Data shport and stuck at bits
Quick verify Data and Addrcuing"

test 40
test 41
test 42
test 43
test 44
test 45
test 46
test 47
test 48

code
On Board
LTC bit 7
LKS int_:crn?t Priority
Resetting LKS
Maintenance Register
Serial LIne Unit Register
:
XCSR bit 7
RCSR bit 7 and XCSR bit 2
)
Reset and XCSR<2!0>
Reset and interrupt enable bit
Interrupt priority for SLU
Break Condition
Overrun Condition

test 38
test 39

test 49
test 50
test 51
test 52
test 53

test 54

test 55

Check Parity detect Logic and RAM's
Native Rmtcr

LED's On

Different Levels of interrupt

Arbitration between PIRQ's and interrupts

SEQ 0023

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

3.11

1074
1075
1076
1077
1078
1079

4.0

SEQ 0024

PROGRAM UPDATES AND MODIFICATIONS

Version COKDDAO

10-01-85

Michael Charchaflian

Version COKDDBO

02-01-86

Michael Charchaflian

BIBLIOGRAPHY
N/A

5.0

Page 10

GLOSSARY
N/A

APPENDICES
N/A

COKDDBO KDJ11-DA CLUSTER DIAG.

1115
1116
1117

167400
000300

MACRO VO5.03 HWednesday 09-Apr-86 09:43 Pege 11

_TITLE

SEQ 0025

$SWR=167400
$ SURMK=300

COKDDBO KDJ11-DA CLUSTER DIAG.

| «COPYRIGHT (C) APR 86
S SDIGITAL EQUIPMENT CORP.

P WMAYNARD, MASS. 01754
e

' \PROGRAM BY DIAG. ENG.

' ¥

"STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC

1118

000001

S SPACKAGE CMAINDEC-11-DZQAC-C8), OCT, 1982.

iTN=1
L

"SBTTL

SWITCH

i*
’e
ie
ie
ie

15
12
13
1
10
3
8

ssmeasa. .

ie
ie

1120
1131

"SBTTL

1152

OPERATIONAL SWITCH SETTINGS

-+
1 *

7
6

USE

5w
SREEASSEREERSS

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<S:0>

DO EXTENSIVE DATA RAM TEST
DO EXTENSIVE TAG RAM TEST

MEMORY MANAGEMENT DEFINITIONS

ieKT11 VECTOR ADDRESS

177572
177574

177576
172516
177600
177602
177604
177606
177610
177612
177614
177616

177620
177652
177624
177696
177630
177632
177634
177636
177640
177642
177644
177646

ADDRESSES
T5T1 STATUS
11%2REGISTER
SROSR1SR2RS-

177574
177576
172516
+1+“PAGE DESCRIPTOR REGISTERS
177600
1= 177602
177604
177606

UIPDR4- 177610
UIPDRS- 177612
UIPDR6= 177614
UIPDR7= 177616
“sUSER “D" PAGE DESCRIPTOR REGISTORS

JDPDRO= 177620
UDPDR1= 177622
UDPDR2= 177624
UDPDRS= 177626
UDPDR4= 177630
UDPDRS= 177632
UDPDR6= 177634
UDPDR7= 177636
“wUSER “I” PAGE ADDRESS REGISTERS
UIPARO= 177640
UIPARL= 177642
UIPAR2= 177644
UIPARS= 177646

\
m—

%‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 11-1

MEMORY MANAGEMENT DEFINITIONS
177650
177652
177654
177656

UIPAR4=
UIPARS=
UIPAR6=
UIPAR7=

177650
177652
177654
177656

177660
177662
177664
177666
177670
177672
177674
177676

UDFARO=
UD-AR1=
UDPAR2=
UDPAR3=
UDPAR4=
UDPARS=
UDPAR6=
UDPAR7=

177660
177662
177664
177666
177670
177672
177674
177676

172200
172202
172204
172206
172210
172212
172214
172216

SIPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDR6= 172214
SIPDR7= 172216
gtS\PERV{Séflézo"D" PAGE DESCRIPTOR REGISTERS

172220
172222
172224

;#USER “D" PAGE ADDRESS REGISTERS

;*SUPERVISOR “I" PAGE DESCRIPTOR REGISTERS

SDPDR1= 172222
SDPDR2= 172224

SDPDR7=

172236

SIPARO=

172240

nStPERVISG “I" PAGE ADDRESS REGISTERS

SIPARI' 172242

SIPAR2= 172244
SIPAR3= 172246
SIPAR4= 172250

SIPARS= 172252
SIPAR6= 172254
172256
SIPAR7=
tSl.PERVIS('R “D* PAGE ADDRESS REGISTERS
SWMI' 172262
SDPAR3= 172266

SDPAR7= 172276

;#KERNEL "I" PAGE DESCRIPTOR REGISTERS

KIPDRO= 172300
KIPDR1= 172302

172314

KIPDR6= 172314

SEQ 0026

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S.03 Wednesday 09-Apr-86 09:43 Page 11-2

MEMORY MANAGEMENT DEFINITIONS

172316

KIPDR7= 172316
" +KERNEL "D” PAGE DESCRIPTOR REGISTERS

175370
175372
175374
172376

KDPAR&= 172370
KDPARS= 172372
KDPARG= 172374
KDPAR7= 172376

172320
175352
175354
175356
175330
175332
175334
175336
172340
175342
175344
175346
175350
175352
175354
172356
172360
175362
175364
175366
1123

KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KOPDRS= 172326
KOPDRa= 172330
KDPDRS= 172332
KDPDRG= 172334
KDPDR7= 172336
«KERNEL “I" PAGE ADDRESS REGISTERS
KIPARO= 172340
KIPARL= 172342
KIPAR2- 172344
KIPARS= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR7= 172356
#KERNEL “D" PAGE ADDRESS REGISTERS
KDPARO= 172360
KDPARL= 172362
KDPAR2= 172364
KDPAR3= 172366

'SBTTL BASIC DEFINITIONS
'SINITIAL ADDRESS OF THE STACK POINTER s#» 1100 ##s

001100
104000
000004
000011
000012
000015
000200
177776

STACK= 1100
. sBASIC DEFINITION OF ERROR CALL
ERROR= EMT
DEFINITION OF SCOPE CALL
4BASIC
SCOPE= IOT
TI
DEFINI
OUS
> MISCELLANE
+;CODE FOR HORIZONTAL TAB
i
e
' CODE FOR LINE FEED
13
iFe
PPCODE FOR CARRIAGE RETURN INE FEED
15
CR=
i CODE FOR CARRIAGE RETURN-L
CRLF= 200
| {PROCESSOR STATUS WORD
177776
Ps=

177774

STKLMT= 177774

177776

177772
177570
177570
000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000

PaW=

;sSTACK LIMIT REGISTER

} PROGRAM INTERRUPT REQUEST REGISTER
PIRG= 177772
' HARDWARE SWITCH REGISTER
177570
DSWR=
HARDWARE DISPLAY REGISTER
0DISP= 177570
ONS
JAGENERAL PURPOSE REGISTER DEFINITIREGISTER
; ;GENERAL
S
| IGENERAL REGISTER
#1
Rl=
| {GENERAL REGISTER
%2
R2=
JGENERAL REGISTER
3
R3=
| {GENERAL REGISTER
w4
Re=
| JGENERAL REGISTER
%5
RS=
'GENERAL REGISTER
%6
Re=
GENERAL REGISTER
w7
R7=
| STACK POINTER
%6
P=
PROGRAM COUNTER
w7
PC=
SPRIORITY LEVEL DEFINITIONS
; sPRIORITY LEVEL O
0
.

SEQ 0027

COKDDBO KDJ11-DA CLUSTER DIAG.
BASIC DEFINITIONS

000040
000100
000140
000200
000240
000300
000340
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000100
000010
000004
000002
000001
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000100
000040
000020

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 11-3

: sPRIORITY LEVEL 1
40
PR1=
: sPRIORITY LEVEL 2
1C0
PR2=
: ;PRIORITY LEVEL 3
140
PR3=
; sPRIORITY LEVEL 4
200
PR4=
: sPRIORITY LEVEL S
24C
PRS=
: sPRIORITY LEVEL 6
300
PR6=
: ;PRIORITY LEVEL 7
340
PR7=
é.-suncu REGISTER” SWITCH DEFINITIONS
W15= 100000
SW1d=
SW13= 20000
10000
SW12=
SWii= 4000
SW10= 2000
SW09= 1000
SW08= 400
SW07= 200
SW06= 100
SW0S= 40
SWod= 20
SW03= 10
SWo1= 2
SW00= 1
SW09
SW9=
SWO8
SW8=
SWO7
SW7=
SWO6
SW6=
SWS=
SWa=

SWOS
SW04

SWO3
SW3=
SWo2
SW2=
SWO1
SWi=
SW00
SW0=
éomm BIT DEFINITIONS (BITOO TO BIT1S)
IT15= 100000
BIT1d= 40000
BIT13= 20000
8IT12= 10000
BITii= 4000
BIT10= 2000
BIT09= 1000
BIT08= 400
BIT07= 200
8IT06= 100
BIT05= 40
BITO4= 20
BITO3= 10
BITO2= 4
BITO1= 2
BIT00= 1
BIT9= BIT09
BIT8= BIT08
BITO7
BIT7=
BIT6= BIT06
BITS= BITOS
8ITa= BITO4

—\

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 11-4

BASIC DEFINITIONS
BIT3=
BIT2=
BITl1=
BITO=__

000010

BITO3
BITO2
BITO1
BITOO

;#BASIC “CPU” TRAP VECTOR ADDRESSES
;; TIME OUT AND OTHER ERRORS
ERRVEC= 4
; ;RESERVED AND ILLEGAL INSTRUCTIONS
RESVEC= 10
33 "T" BIT
TBITVEC=14
: s TRACE TRAP

TRTVEC= 14

BPTVEC= 14
IOTVEC= 20

; ;BREAKPOINT TRAP (BPT)
; s INPUT/0UTPUT TRAP (I0T) #+SCOPEs*+

EMTVEC= 30

; ;EMULATOR TRAP (EMT) *+ERROR##

PIRQVEC=240

izPRCBRM INTERRUPT REQUEST VECTOR

: ;POWER FAIL

PWRVEC= 24

i i "TRAP" TRAP
::7TY KEYBOARD VECTOR
+:TTY PRINTER VECTOR

TRAPVEC=34
TKVEC= 60
TPVEC= 64
.SBTTL

.=174

005037
000137

001160
004060

1130 000220
31 000226

012737
000137

000777
004060

:
001160

.=220

.SBTTL
T

000046

1134

.=0

DISPREG: .WORD
"WORD
snggz

1127 000200
1128 000204

000232
000046
031732
000052
000000
000232

;FLAG FOR UFD

TRAP CATCHER

;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;#LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174

1126

UFDSET=

CLR

; ;SOFTWARE DISPLAY REGISTER
: : SOFTWARE SWITCH REGISTER

O
O

$TMPO

JMP

S4START

MOV
JHP

#777, $TMPO
¢START

ACT11 HOOKS
ei

;HOOKS REQUIRED BY ACT11

$SVPC=.
BE?éAo
WORD

- =$SVPC

;SAVE PC

::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .S$EOP
;32)SET LOC.52 TO ZERO

:: RESTORE PC

.SBTTL APT PARAMETER BLOCK
5'““““‘.*".t#".‘.".".““t.".“.t““““““t“Ot“““

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

3;‘“"tt‘t"‘t‘.“".‘t““.‘t..“.t.“.““t‘t‘t“t‘t“tt‘ttt“

.$X=.

"224"

200

=44

;3;SAVE CURRENT LOCATION

;:SET POMER FAIL 10 POINT TO START OF PROGRAM

i ;FOR APT START UP

;;POINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ;:POINT TO APT HEADER BLOCK
:;RESET LOCATION COUNTER
.=.8X
;'.“#t““.“t“‘.“.‘.‘““.““‘.““t‘t.‘t“t‘.‘.#“.‘.“t“.

000232
000232

T4ETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
;mg}rmz SPEC.
000000

$HIBTS: .MORD

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

SEQ 0029

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 11-5

APT PARAMETER BLOCK

000234 001200
000236 000000
000240 000000

000242 000000

000244 000052

$MBADR: .WORD
$TSTM: .WORD
$PASTM: .WORD

$UNITM: .WORD

.WORD

$MAIL

;;ADDRESS OF APT MAILBOX (BITS 0-15)
;sRUN TIM OF LONGEST TEST

e T

;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
; ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

tETEM)-OH‘IL/Z ; sLENGTH MAILBOX-ETABLE(WORDS)

COKDOBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03 Wednesday 09-Apr-86 09:43 Page 12

SEQ 0031

COMMON TAGS

.SBTTL

1135

COMMON TAGS
L

bbb bbb

hbivbhh bbb L b L L

;#*USED IN THE PROGRAM.
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

001

077
015
012

$AUTOB:
$INTAG:

377

.=1100

.WORD
.BYTE

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

.WORD
.BYTE

.BYTE
.WORD

DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
177564
$TPS:
177566
$TPB:
.BYTE
$NULL:
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
2
.REPT
$TMPO:
.WORD
$TMP1:
.WORD
$TIMES: O
$ESCAPE:0
.ASCIZ
$BELL:

: ;START OF COMMON TAGS

SCNDCNDOCNDOCNDOFMDOCHDOCMDO

$CMTAG:

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

; ;ADDRESS OF SWITCH REGISTER
: ; ADDRESS OF DISPLAY REGISTER
;3 TTY KBD STATUS
;:TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
; sCONTAINS NULL CHARACTER FOR FILLS

SWR
ISP

oo OR?“O

st st

001100

: ;:CONTAINS # OF FILLER CHARACTERS REQUIRED
; ;INSERT FILL CHARS. AFTER A “LINE FEED"
:: “TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES)
: sUSER DEFINED
: ;USER DEFINED

; sMAX. NUMBER OF ITERATIONS
; ;ESCAPE ON ERROR ADDRESS
<377>
; ;CODE FOR BELL
<377>
<207>

; sQUESTION MARK
;: ; CARRIAGE RETURN
; sLINE FEED
;é&“‘t“‘t“.i‘.“t‘ttt‘.t“““‘.““.“t“t“t‘.“‘tt“Oltt‘.t

$QUES:

$CRLF:
$LF

TTL

.ASCII

.ASCII
.ASCIZ

<15>
<i12>

APT MAILBOX-ETABLE

' EVEN

5355588

:
$MAIL
$MSGTY: .
$FATAL: .
$TESTN:
$PASS:
$DEVCT:
$UNIT:
$MSGAD
:

—

;#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD

T Ty

; s APT MAILBOX
; ;MESSAGE TYPE CODE

; ;FATAL ERROR NUMBER

: s TEST NUMBER
: sPASS COUNT
; ;DEVICE COUNT
;3170 UNIT NUMBER
; ;MESSAGE ADDRESS

l‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43 Page 12-1

SEQ 0032

APT MAILBOX-ETABLE

001216

001220

001220
001221
001222
001224
001226

000000

000
000

000000
000000
000000

$MSGLG: .WORD
$ETABLE:
.BYTE
$ENV:
$ENVM:
.BYTE
$SWREG: . WORD
. WORD
$USWR:

AMSGLG

; sMESSAGE LENGTH

AENV
AENVM
ASWREG
AUSWR
ACPUOP

: ;ENVIRONMENT BYTE

; sAPT ENVIRONMENT TABLE

; ;ENVIRONMENT MODE BITS
; ;APT SWITCH REGISTER
: sUSER SWITCHES
; ;CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05

11/70=06,PDQ=07,Q@=10
BIT 10=REAL TIME CLOCK
8=MEMORY MANAGEMENT

: sMEM. TYPE,BLK#1

. TYPE

,BLK#4

(HIGH BYTE)

We W

=2
-“éé"-,,v-,
aggag'

MEM.TYPE BYTE

We B

QY
.BYTE

9=FLOATING POINT PROCESSOR

; sHIGH ADDRESS,M.S. BYTE

WE WA We

T
e :

s
:

BIT

AMAMS1
AMTYP1

B
e |

8
g

BIT

"LAST ADDRESS,BLK#4

ERRUPT VECTOR#1,BUS PRIORITY#1

ERRUPT VECTOR#28BUS PRIORITY#2

: ;BASE ADDRESS OF EQUIPMENT UNDER TEST
; ;:DEVICE MAP
: ;CONTROLLER DESCRIPTION WORD#1
: ;CONTROLLER DESCRIPTION WORD#2
: ;DEVICE DESCRIPTOR WORD#O
: sDEVICE DESCRIPTOR WORD#1
: :DEVICE DESCRIPTOR WORD#2
; sDEVICE DESCRIPTOR WORD#3
nomm:ce DESCRIPTOR WORD#4

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:47

Page 13

ERROR POINTER TABLE

.SBTTL

_ERROR POINTER TABLE

;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;#THE INFORMATION IS 0BT AINED BY USING THE INDEX NUMBER _FOUND IN
;#LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC).
;*NOTE1:
; *NOTE2:

' %

DT
DF

.SBTTL

ERROR DEFINITIONS

$ERRTB:

020617

g 8

0 1 e et o b e e et o e et e e et ot et et e et e
[
N
N
Sy ey

33Eepptrt ety

i¥

001324

46 001336

9
82
33

149

1162 001370
1163 001372
1164
1165 001374
1166 001376
1167 001400

020653
025314
026502
000000

020665

1170 001404
1171 001406
1172 001410

000000

020677
025314
026502

000000

020735
025314
026502

000000

020761
025314

021073

025314

021132
026145
026736
021202

025314

EM1
DH1
DT1

;CPU ERROR
;TEST #, ERROR PC

; $TMP1, $ERRPC

:MMU ERROR
:TEST @,

ERROR PC

: $TMP1, $ERRPC

;ITEM 3

;FPP ERROR
:TEST #, ERROR PC

: $TMP1, $ERRPC

026502

1%72 001412

117
1175 001414
1176 001416
1177 001420
1178 001422
1179
1180 001424
1181 001426

;ITEM 2

025314

1163 001402
116

;ITEM 1

025314
026502

000000

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
: ;POINTS TO THE ERROR MESSAGE
; ;POINTS TO THE DATA HEADER
; ;POINTS TO THE DATA
; ;POINTS TO THE DATA FORMAT

;ITEM 4

;CHECKSUM ERROR IN 16-BIT ROM
:TEST @,

: $TMP1, $ERRPC

;ITEM S

; TIMEOUT READING LKS
:TEST @,

: $TMP1, $ERRPC

;ITEM 6

;LKS<07> DOES NOT BECOME 1
;TEST &, PC

: $TMP1, $ERRPC

- 3ITEM 7

;WRONG NUMBER OF LKS INTERRUPTS
;TEST #,

: $TMP1, $ERRPC
;LKS INTERRUPTS HAPPEN AT WRONG PRIORITY
:TEST @,

PC,

PRIORITY

: $TMP1, $ERRPC, $GDDAT

;RESET DOESN'T CLEAR LKS<06>

;TEST #, PC

SEQ 0033

i‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 13-1

SEQ 0034

ERROR DEFINITIONS

1182
1183

001430
001432

1184
1185 001434

021236
026211
026630
000000

ADDRESS FAILED

: $TMP1, $ERRPC, $BDDAT

021320
025314
026502
000000

;RCSR DOESN'T BECOME 1

[

;TEST #, PC,

;XMIT READY DIDN'T GO LOW
:TEST #, PC

s e

RES

; TIMEOUT READING SLU REGISTERS

021274
025314
026502
000000

3
8

2 1

et et

; $TMP1, $ERRPC

1
1
1
1
1
1
1
1
1 95 001454
1 96 001456
1

026502
000000

1198 001462
1199
1200 001464
1201 001466
1202 001470
1203 001472
1204
1205 001474
1206 001476
1207 001500
1208 001502
1 209
1210 001504
1211 001506
1212 001510
1213 001512
1214
1215 001514
1216 001516

021351
025341
026746
000000

021402
025314
026502
000000

021452
025314
026502
000000
021504
025314
026502
000000

1223 001532

021542
025314
026502
000000

1225 001534
1226 001536
1227 001540
1228 001542

021575
025314
026502
000000

1230 001544
1231 001546

021657
025314
026502

1224

1229

000000

1238 001562

021732
025314
026502

000000

; $TMP1, $ERRPC
:TEST #,

; $TMP1, $ERRPC
:WRONG CHARACTER RECEIVED

:TEST #,

PC,

EXPECTED DATA,

: $TMP1, $ERRPC, $GDDAT, $BDDAT

RECEIVED DATA

;:RCSR<07> NOT CLEARED AFTER READING RBUF
;TEST #, PC
; $TMP1, SERRPC

:XCSR<07> NOT SET ON RESET
;TEST #, PC
: $TMP1, $ERRPC

;RCSR<07> NOT CLEARED ON RESET
;TEST @,

; $TMP1, $ERRPC

:SLU INTERRUPTS HAPPEN AT 4
;TEST &, PC

:$THP1, $EL C

;RESET DOES NOT CLEAR XCSR<6> AND RSCR<6>
:TEST @,

: $TMP1, $ERRPC
s TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>
:TEST &,

; $TMP1, $ERRPC

;RECEIVE INTERRUPTS DON'T CLEAR RCSR<07>
;TEST &,

1C
, $ERRP
: $THP

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 13-2

SEQ 0035

ERROR DEFINITIONS
1239
1240 001564
1241 001566
1242 001570
1243 001572
1244
1245 001574

1246 001576
1247 001600

1253 001612
1254
1255 001614
1256 001616
1257 001620

1253 001622

125
1260 001624
1261 001626
1262 001630
1263 001632
1 264

1265 001634
1266 001636
1267 001640

1263 001642
126
1270 001644

1271 001646
1272 001650
1273 001652
1274
1275 001654
1276 001656
1277 001660

12;3 001662

12
1280 001664
1281 001666

1282 001670
1283 001672
1284
1285 001674
1286 001676
1287 001700
1288 001702
1289
1290 001704
1291 001706
1292 001710
1293 001712

1294
1295 001714

022002
026255
026760
000000

022055
026255
026760
000000
022133
025314
026502
000000

022167
025314
026502

000000

022231
025341
026746
000000

022307
026255
026760

000000

022372
026255
026760
000000
022456
025314
026502
000000
022531
025314
026502
000000

022623
025314
026502
000000

;ITEM 25

;ITEM 26

EM105
DH105
DT105
0

;BREAK CONDITION DOES NOT SET RBUF PROPERLY
:TEST @, PC, RBUF

EM106
DH105

;RBUF WASN'T CLEARED ON NEXT CHAR.
:TEST #, PC, RBUF

EM107
DH1
DT1

;ERROR IN WRITING TO XCSR<O>

ngOS

;ITEM 27

;ITEM 30

;ITEM 31

EM110
DH1
DT1
0
EM

: $TMP1, $ERRPC , RBUF

: $TMP1, $ERRPC , RBUF
;TEST #, PC
: $TMP1, SERRPC

;RESET DOES NOT CLEAR XCSR<00>
;TEST ¢, PC
: $TMPL, $ERRPC

;FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND
:TEST @, PC, EXPECTED DATA, RECEIVED DATA

- 4TMP1, $ERRPC, $GDDAT, $BDDAT

:OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF
:TEST @,

PC,

RBUF

; $TMP1, $ERRPC , RBUF
;RBUF WAS NOT CLEARED ON THE NEXT CHARACTER
:TEST &, PC,

RBUF

: $TMP1, $ERRPC , RBUF
;ERROR IN XCSR<2>
;TEST &, PC
; $TMPL, SERRPC

;PIR@ INTERRUPTS DON'T TAKE PRIORITY OVER Q BUS INTERRUPTS
;TEST @, PC

: $TMPL, SERRPC

:NO POWER DOWN TRAP TO 24 OCCUR
:TEST @,

; $TMP1, $ERRPC
:ERROR IN INTERRUPTS FROM Q22BE

022662
025314
026502

: $TMP1, $ERRPC

022717

;ERROR IN PMG COUNTER

000000

:TEST &,

i‘

—

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 13-3

SEQ 0036

ERROR DEFINITIONS
1296 001716

025314
026502
000000

DH1

: $TMP1, SERRPC
;ERROR WRITING TO LKS<6>
;TEST #, PC

: $TMP1, $ERRPC

026502

;MAINTENANCE REGISTER ERROR

023036
025314
026502
000000

;TEST #, PC
; $TMP1, SERRPC

; ERROR IN THE DATA PATHS

023074
025341
026746
000000

:TEST @, PC,

RECEIVED DATA

;TIMED OUT IN ACCESSING LOCATION O

:TEST #,

: $TMP1, $ERRPC
:TIMED OUT IN TRYING TO ACCESS MEMORY

023174

:TEST #,

025314
026502
000000

: $TMP1, $ERRPC
;ERROR IN FUNCTIONAL REV BITS ON NATIVE REGISTER

023241
025314
026502

:TEST #,

; $TMP1, $ERRPC

000000

;ERROR IN INDICATOR BITS ON THE NATIVE REGISTER

023332
025314
026502

023561
025314
026502

EXPECTED DATA,

: $TMP1, $ERRPC, $GDDAT , $BDDAT

023132
025314
026502
000000

023506
025314
026502
000000

; $TMP1, $ERRPC
;TEST #, PC

023006
025314

023415
025314
026502
000000

;TEST &,

;UNEXPECTED TIMEOUT

022761
025314
027004
000000

ot ottt
SRLRRRERLSotbttt
Y S ry S et 33333 B
g
g
3
8

2 001730

:TEST @,

; $TMP1, $ERRPC
;ERROR IN THE BOOT SELECT SWITCHES ON THE NATIVE REGISTER
;TEST #,

; $TMP1, $ERRPC
;ITEM 52

EM143

;TIMED OUT IN ACCESSING THE NATIVE REGISTER

DT1

: $TMP1, $ERRPC

;ITEM 53

;TEST @,

;LTC MONITOR IS NOT TOGGLING
DTl

;TEST #,

: $TMP1, $ERRPC

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 13-4

ERROR DEFINITIONS
1353 002052
1354

000000

023636
025314
026502
000000

023704
025314
(26502

;ITEM 54

EM145
DH1
DT1
0

;ITEM 55

; TIMEOUT IN ACCESSING THE LKS REGISTER
;TEST &, PC

: $TMP1, SERRPC

;ERROR IN STUCK AT ZERO BITS Ol MER
;TEST #, PC
: $TMP1, SERRPC

000000

;COULD NOT SET ONE OF THE R/W BITS ON THE MER
:TEST @, PC, EXPECTED DATA, RECEIVED DATA

023747
025341
026746
000000

1374
1375 002114
1376 002116
1377 002120
1378 002122
1379

: $TMP1, $ERRPC, $GDDAT , $BDDAT

:BITS 0,2,14,15 ON THE MER DID NOT CLEAR ON RESET

024024
025314
026502
000000

;TEST #. PC

: $TMP1, $ERRPC

024105

; TIMEOUT IN ACCESSING THE MER REGISTER

024153
026364
027012

:TEST #,

024235

;PARITY ABORT OCCURED WITH PARITY ERROR DISABLED

024315

;PARITY ABORT DID NOT OCCUR WITH PARITY ERROR ENABLED

;TEST #, PC
; $TMP1, SERRPC

025314
026502
000000

;ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST

000000

;TEST @, PC
; $TMP1, SERRPC
:TEST @,

;ITEM 65

024527

027012

000000

; $TMP1, $ERRPC
DH4
DT7S
0

1403 002172
1404
1405 002174
1406 002176
1407 002200
1408 002202
1409

PC,PATTERN,DATA,PAR,VIRTUAL ADDRESS

: $TMP1, $ERRPC, $GDDAT, $BDDAT ,KIPAR2, $BDADR

EM156
DH4
gT?S

;ITEM 66

EM157
ng‘!A

;ITEM 67

;MER DIDN'T HAVE CORRECT ADDRESS BITS 11-17
:TEST #, PC, EXPECTED DATA, RECEIVED DATA

: $TMP1, $ERRPC, $GDDAT, $BDDAT

MER READ EXTENDED ADDRESS BITS HAS FAILED
:TEST @, PC, EXPECTED DATA, RECEIVED DATA

: $TMP1, $ERRPC, $GDDAT, $BDDAT
;ERROR IN THE MEMORY

;TEST #, PC,PATTERN DATBbPAR.VIRTUAL ADDRESS

: $TMP1, $ERRPC, $GDDAT, $BDDAT ,KIPAR2, $BDADR

SEQ 0037

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 13-5

ERROR DEFINITIONS
1410 002204
1411 002206
1412 002210
1413 002212
1414
1415 002214
1416 002216
1417 002220
1418 002222

024575
025314
026502
000000

024617
025314
026502
000000
024657
025314
026502
000000

1427 002240
1428 002242
1429
1430 002244

024722
025314
026502
000000

024766
025341

EM160
DH1
DT1
0

;ERROR IN XCSR <6>

161
DH1
DT1
0

:NO XMIT INTERRUPTS HAVE OCCURED

sITEM 70

;ITEM 71

EM162
DH1
DT1
0

;ITEM 72

EM163
DH1
DT1
0

;ITEM 73

EM164
DH4
DT75
0

;ITEM 74

165

;TEST @, PC

; $TMP1, $ERRPC

;TEST #, PC

; $TMP1, $ERRPC

;NO RECIEVE INTERRUPTS HAVE OCCURED
;TEST #, PC

i $TMP1, SERRPC

;UNEXPECTED PARITY ABORT HAS OCCURED
;TEST #,

: $TMP1, $ERRPC

;MER DIDN'T HAVE CORRECT ADDRESS BITS O AND 15
:TEST#, PC, EXTENDED DATA, RECEIVED DATA

: $TMP1 . $ERRPC, $GDDAT, $BDDAT

;TO0 MANY TRANSIVER INTERRUPTS HAPPENED
:TEST #,

: $TMP1, $ERRPC
;TOO MANY RECEIVER INTERRUPTS HAPPENED
;TEST &, PC

: $TMP1, $ERRPC

;error in ready bit of csr

;test#, pc

;$tmpl, $errpc

1452
1453 002310
1454 002312
1455
1456 002314
1457 002316

;no character received
;$tmpl, $errpc

;nron’ character received
;test#,pc
;$tmpl,errpc

;error rom size is zero

;test#,pc’

;$tmpl,errpc

SEQ 0038

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 13-6

SEQ 0039

ERROR DEFINITIONS

GLOBAL VARIABLES AND REGISTER NAMES

;REGISTERS FOR T I‘-)E FIRST Q22BE
.WORD
CSR1:
O
.WORD
CSR2:

1470
1471 002334

1472 002336
1473 002340
1474 002342
1475 002344
1476 002346
1477 002350
1478 002352

BA:

.WORD

DATA:
V@BE1:
VQPR1:
SIMGOA:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

WC:

ledent:
RCOUNT:
TCOUNT:
lopbak:

.WORD

.word
.WORD
.WORD
.word

;PRIORITY

: STMULTANEUOS GO ADDRESS REGISTER

:location for the led count
;RECEIVER INTERRUPT COUNT
; TRANSMITTER INTERRUPT COUNT

O
O
O
O

O
O

;CONTROL REGISTER 1 FOR Q22BE
;CONTROL/STATUS REGISTER 2
;DMA ADDRESS FOR Q22BE
;WORD COUNT REGISTER
;:DMA DATA FOR Q22BE
;RDDRESS OF VECTOR FOR Q22BE
;PRIORITY

.WORD
.word
.word
.WORD
.WORD
.WORD

O
O
O
O
O
O

;ACTUAL CHECKSUM

LWORD
BLKW
.WORD
.WORD

O
15.
O
2

SR12:
CSR22:

.WORD
.WORD

O
O

1491 002376
1492 002400

DATA2:
VABE2:
VQPR2:

.WORD
.WORD
.WORD

O
O
O

1496 002406
1497 002410
1498 002412
1499 002414
1500
1501 002740

LKSFL:
lkent:
savloc:
ACTCHS:
SAVPCR:
SAVBR:
.=2740
TEMP:

1490 002374

lggg 002742

003000
1
1504 003002
1505
1506
1507 003004
003007

TIMOUT:
Q22EN:

000000
000002
377

177524
177524
177520
177746
177752
177734
177546
177750
177520

172100

177744
177522
177772
177560

.WORD
.WORD

imc

;MC
;MC

;flag for the loop back connector;mc

REGISTERS FOR THE SECOND Q22BE

BA2:
Wea:

;CONTROL REGISTER 1 FOR Q22BE
;CONTROL/STATUS REGISTER 2
;:DMA ADDRESS FOR Q22BE
;WORD COUNT REGISTER
;OMA DATA FOR Q22BE
;ADDRESS OF VECTOR FOR Q22BE

;RESERVED FOR BLOCK MODE TRANSFER
;PRIORITY 7-4 FOR Q22BE
istring for the loop back connector test

021

BCR=

177524

LKS=
MAIREG=
NATREG=
MER=

177546
177750
177520
172100

BOR=
BCSR=
CCR=
HITMIS=
KMCR=

MSER=

PCR=
PIR=
RCSR=

177524
177520
177746
177752
177734

177744

177522
177772
177560

;BOOT/DIAGNOSTICS CONFIGURATION
:BOOT/DIAGNOSTICS DISPLAY
:B0OOT/DIAGNOSTICS STATUS
:CACHE_CONTROL REGISTER
sHIT OR MISS REGISTER
L)

.SBTTL

;UNIBUS CONFIGURATION REGISTER
:CLOCK STATUS REGISTER
;MAINTENANCE REGISTER
:NATIVE REGISTER
:MEMORY ERROR REGISTER
;MEMORY SYSTEM ERROR
;PAGE_CONTROL REGISTER

:PROGRAM_INTERRUPT REQUEST
;RECEIVER STATUS REGISTER

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 13-7

GLOBAL VARIABLES AND REGISTER NAMES
177562
177564
177566
176500
176502

177562
177564
177566
176500
176502
176504
176506

;RECEIVER DATA BUFFER

176504
176506

RBUF =
XCSR=
XBUF
=
RCSR1=
RBUF 1=
XCSR1=
XBUF 1=

177766

CPEREG=

177766

;CPU ERROR REGISTER

177572
177574
177576
172516
120001
000000
100000

MMRO=SRO
MMR1=SR1
MMR2=SR2
MMR3=SR3
POLY= 120001
=
NULL
=
begrom

0
100000

.SBTTL

; TRANSMITTER STATUS REGISTER
; TRANSMITTER DATA BUFFER

;RECEIVER STATUS REGISTER
;RECEIVER DATA BUFFER
; TRANSMITTER STATUS REGISTER
; TRANSMITTER DATA BUFFER

GLOBAL DATA SECTION

"*IHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
; IN MORE THAN ONE TEST.

1575 003100
1576 003102
1577 003104
1578 003114
1579 003124

gam THE DEFAULT RESPONCE.
0C00:
SLOCO1:

O
.WORD
O
.WORD

$TPESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA.
ARPAT

SAVTIM:

SEE5ssniananantnantaanes

1551 003010
1552 003012
1553
1554
1555 003014
1556 003016
1557 003020
1558 003022

VECTOR DATA
; THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE DIFFEREN
TLY
RESPOND
;WHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION

;LOCATION TO SAVE PATTERN USED IN PARITY TEST

;LOCATION TO THE SAVE THE TIMEOUT TRAP
;STORES LOW ADDRESS FOR RAM TESTS
;STORES GOOD ADDRESS FOR RAM TESTS
; CONTAINS TOTAL NO. OF EEROM ERRORS
;ADDRESS STORE FOR RAM TESTS
;ADDRESS STORE FOR RAM TEST
;USED TO STORE "FLAG" CONDITIONS
; flag-counter for control of Cache subtests

; flag-counter for control of EEROM subtest
;USED TO STORE SUPERVISOR STACK VALUE
;USED TO STORE USER STACK VALUE
;USED TO STORE MMU STATUS REGISTER O DATA

DATA
;USED TO STORE MMU STATUS REGISTER 1 DATA
2
TER
REGIS
S
STATU
MMU
STORE
TO
;USED
: SAVE SFTWRE SWTCH REG DURING EEROM TEST
;

;USED TO STORE VALUES FOR MMU TESTS
;USED TO STORE VALUES FOR MMU TESTS
;STORES SEQUENCE NUMBER FOR JUMP TESTS
;STORES STACK POINTER FOR JUMP TESTS
;STORES STACK POINTER FOR JUMP TESTS
; STORES EXPONENT DURING BIT TESTS
;STORES RECIEVED DATA FOR BIT TESTS
;ERROR INDICATOR FOR FLOATING POINT TESTS

SEQ 0040

‘\

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43 Page 13-8

GLOBAL DATA SECTION

1580 003126
1581 003136
1582 003146
1585 003156
1586 003160

1589 003162
1590 003164
1593 003166
1594 003170

4
4

RECFEC: .BLKW
RECST: .BLKW

RECDST: .BLKW

:DESTINATI(N ADDRESS FOR FLOATING POINT TESTS

Hfi?f LNAYIG‘S ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS
LOOPIN:

.WORD

SOME mns TE"PMARY STORAGE FOR RAM TESTS

éAVPOS . WORD

. WORD

;STORES TEMPORARY BIT POSITIONS FOR RAM TESTS
xST(flES BIT MASK FOR ERROR ISOLATION

*!!!!!THIS IS IT. THE PROGRAM TEST LOCATION:::ifirirtiriaistl
0

‘

20.

;FPP REGISTER DEFINITIONS
ACO- %0

ACl=
AC2=
AC3=
AC4=
AC5=

%1
%2
%3
%4
%5

AC6= %6
AC7= %7

;FPP INTERRUPT VECTOR
FPVEC=244

TAB1:

TAB2:

TAB3:

TAB4:

TABS:

TABSA:

S58asaaaEnaanaatianets

STBOT=

1636 003314
1637 003316

;RECIEVED FLOATING POINT EXCEPTION CODE
;RECIEVED FLOATING POINT STATUS

1000

123456

000000

055555
177777
145671
100000
003000
123456
0
0

55555

43243

162400

SEQ 0041

CCKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 13-9

TAB6A
:

TAB7:

TABS:

1654 003360

000400

TAB9:

1655 003370
1656 003372
1657 003374

030000
003000
000000

TAB10:

003366

TAB11:

003000

000002

TAB11A:
TAB12:

TAB13:

003000 000000

TAB13B:
TAB14:

TAB15:

003466
1677
1678 003470
1679 003472
1680 003474
1681 003476

1682

TAB16:

175363
123456
123456

30000

TAB17:
TAB18:

000000 000000

_—

TAB21:

000000

047050
010000

1642 003330
1643 003332

000000

1640 003324

TAB6:

000000
000000

HOOOO

1638 003320
1639 003322

53§55555500E5R0EAR00 05E0 § Hoaauney SGmanEnanEanints
8
BE MOO§OOO§OO§

GLOBAL DATA SECTION

16100,0,0,1

16200

0
(1>

30000, 3000,0, 140000
30000
0
0
0
24700
0
0
0
25000

175363
123456
123456

30000
7020
0,0

23456
0

100200,0,0,0

SEQ 0042

fll‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 13-10

TAB22:

1691 003540

TAB23:

1692 003550

TAB24:

169% 003560
003566
1694 003570

TAB2S:

1695 003600
003606
1696 003610

TAB27:

003536

003546
003556

TAB26:

003576

003616

1697 003620

003626
1698 003630
003636
1699
1700 003640
003646

TAB28:

010100

TAB29:

010100

TAB29A:

‘i’ESO:

1701 003650
003656
1702 003660

TAB31:

1703 003670

TAB33:

1704 003700
003706
1705 003710
003716
1706 003720
003726
1707 003730
003736
1708 003740
003746
1709 003750
003756
1710 003760
003766
1711 003770
003776
1712 004000

TAB34:

TAB32:

003666

003676

004006
1713 004010
004016
1714 004020
04026
1715
1716 004930

1717 004032
1718

TAB4O:

000000

TAB41:

000000

TAB42:

177777

TAB43:

177777

TAB4S:

177777

TAB46:

124242

TAB47:

000000

TAB47A:

124242
000000

100400,0,0,0
200,0,0,1
62400,0,0,0

1100,0,0,0

100600,0,0,0
1000,0,0,0

600,0,0,0

10100,0,0,0

10100,0,2000,0
500,0,0,0

100400,0,0,0

16000,0,0.0

11600,0,0.,0
640,0,0,0
77600,0,0,0

100200,0,0,1
340,0,0,0

77,477777,177777,177776
577,-1,-1.-1

577.-1,0,0

173737,124242,052525,12346
0,0,052525,12346

173737,124242,0,0
600,0,0,0

5555888

1690 003530

SEEEEIEEEEEEE 558850558

GLOBAL DATA SECTION

SEQ 0043

——

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 13-11

SEQ 0044

GLOBAL DATA SECTION

.WORD

CURDAT

.WORD

FSTADD

000000

.WORD
.WORD
.WORD

LSTADD
CURADD
PARABT

O
O
O

;PARIY ABORT FLAG

:
START

; LCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY

éHTSAV TST

004146

000040

177777
000100

004152
000052

177777

004154

000042

000030
000032

14:

004146
004150

SAV30:
SAV32:
UFDFLG:
%T

BNE
BIT
BEQ
MOV
BIT
BEQ
MOV
EMT
CLR
MOV
MOV
BR

.WORD
.WORD
.WORD
'WORD

SAV30

i FIRST TIME THROUGH ?

:: BRANCH IF BEEN HERE ALREADY
:: ARE WE IN UFD MODE ?
:: LEAVE IF NOT
i SET UFD FLAG
:: ARE WE IN QUIET MODE ?
:: BR IF NOT
i+ SET QUIET MODE
:: GET ADDRESS OF XXDP DCA TABLE
i CLR XXDP+ "DRSERR”
:: SAVE EMULATOR ADDRESS
:: SAVE EMULATOR PRIORITY LEVEL
:: GET AROUND TAG AREA

VMKOR
#BITS, 3452
VMIKOR
1,UFDFLG
oafis 3052
1%
#-1,UQUIET
42
42(RO)
30, SAV30
32.5AV32
VMKOR

:: PUT EMULATOR INFO HERE
:: PUT PRIORITY LOCATION
:: USER FRIENDLY MODE FLAG
:: UFD QUIET MODE FLAG

O
O
O
O

H ‘.““t““‘.“‘““""t‘.‘tt“““““‘t“.#‘..‘tttt“t.tt‘t“t“.tt

1¢:

1731

.SBTTL

; ;CLEAR THE COMMON TAGS ($CMTAG) AREA

;;FIRST LOCATION TO BE CLEARED
#$CMTAG. R6
MOV
: ;CLEAR MEMORY LOCATION
(R6)+
CLR
;DONE?
;
#SWR,R6
cHP
;;LOOP BACK IF NO
.-6
BNE
: :SETUP THE STACK POINTER
#STACK, SP
MOV
;s INITIALIZE A H—:u vscf

012706
005026
022706
001374
012706

012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737
012737
012737
013746
012737
012737
012737

INITIALIZE THE COMMON TAGS

MOV

MOV
MOV

.2 : sLEVEL vscma FOR ERROR ROUTINE
iorve
a C ;:EMT
enéovec
2 ;:LEVEL 7
ooém
DSTRAPVEC : TRAP_VECTOR FOR TRAP CALLS
nmkp
#340 ammeCoa;L
#3$PWRDN , 30PWRVE .;Pm FAILURE VECTOR
uémvec.z ;sLEVEL 7
-PROGRAM COUNTER
oemér $EOPCT _ ;:SETUP END-OF
NUMBER OF ITERATIONS

MOVB

01 SERMAX

MOV
MOV
MOV
MOV
MOV
MOV

031672

001115
001106
001110

000004
001140
001142

OPE , 88 I0TVEC asIOT vecroa FOR SCOPE ROUTINE

CLR
CLR

nov

oesc»s

OLPADR

' IINITIALIZE
iICLEAR THE ESCAPE ON ERROR ADDRESS
TEST
::ALLOW ONE ERROR PER

nmxmuze THE LOOP ADDRESS FOR SCOPE

SETUP THE
rea IF NOT FOUND OR IT IS
aecis
A mow\ suncu
s SIZE ron
;::EQUAL
TO A “-1", SETUP FOR A SOF TWARE SWITCH REGISTER.

MOV

MOV
MOV

ERROR LOOP ADDRESS

@BERRVEC, -(SP) ; ; SAVE emoa VECTOR

osooooo SOERRVEC

sl’.oxsmv

ERROR VECTOR

maoume SWICH REGISTER
A UP
1SETUPA Hm
;:;AND
HARDWARE DISPLAY REGISTER

HERE

Q‘

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesday 09-Apr-86 09:43

MACRO V05.03

INITIALIZE THE COMMON TAGS
004344

022777

004352

001012

004354
004356
004362
364
004372

000403
012716
000002
012737

177777

BNE

30001$: MOV
MOV
30002%: MOV

; sPOINT TO SOFTWARE SWR
#SWREG, SWR
#DISPREG,DISPLAY
(SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR

001221

BITB

CLR

; ;CLEAR PASS COUNT

;;TEST USER SIZE UNDER APT

#$SWREG, SWR

; sNO,USE APT SWITCH REGISTER

: s YES,USE NON-APT SWITCH

30003 ¢

MOV
MOV
MOV

;ABORT IN UFD ON ERROR
UFDFLG,UQUIET
#TOUT ,#ERRVEC ;POINT TO TIMEOUT ROUTINE
#340,9$ERRVEC+2 ;AT PRIORITY 7

MOV

BIT
BNE

000052

$PASS

#APTSIZE,$ENVM

BEQ

MOV

MOV
MOV
MOV
CLR

000114
000116
000250
000252

TYPE

SRAMPAR,3#114
#340,9¢116
S#MMUTRP, 38250
#340, 99252
38177766

#B81T06,a#52
LOOP
SWTSEL

;POINT PARITY ABORT
;POINT MMU TRAP VECTOR
;
;CLEAR CPU ERROR REGISTER

;AT PRIORITY?7

;IN UFD QUIET MODE ?
;IF SO, SKIP PRINTOUT
3

.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER

000001

001134

123727
001020
013700

001220

000001

000240

a2
30004 $

BEQ

300044

BNE

30005%

CMP

000176
112737

15T
BNE

CMPB

000001

1747 004572
1748 004576
1749 004600
1750

;;AND THE HARDWARE SWR IS NOT = -1
; sBRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN

001140
001142

004154
000004
000006

1741 004512
1742 004514
1743

;3 TRY TO REFERENCE HARDWARE SWR

;sBRANCH IF NO TIMEOUT TRAP OCCURRED

30001%
#30001%,(SP)

001140
013737
012737
012737

#-1,aSWR

30002

SEQ 0045

BR
300004 : %}:\[I

004364

000176
000174
000004
001206
000200

CcMP

174566

Page 13-12

GTSWR
BR

3000530004:: MOVB
NOP

$ENV, #1

SWR, #SWREG
300054

#1, $AUTOB

001224

CcMPB
BNE
MOV

$ENV, #1
20¢
$USWR,RO

042700
000241
006000
006000
006000
006000
005700
001413

000017

BIC

#17,R0

010037

003034

005700
001420

012737

TST
BEQ

RO
254

; sARE WE RUNNING UNDER XXDP/ACT?
; sBRANCH IF YES

; ;ARE WE RUNNING UNDER APT?
; ;BRANCH IF YES

; ;SOFTWARE SWITCH REG SELECTED?

: ;BRANCH_IF NO

; sGET SOFT-SWR SETTINGS

;3SET AUTO-MODE INDICATOR
aid

.
i ru\nmg under APT?
; default no-APT initialization
; work copy pass calculation
; if = 0 default value
; setup default value

; clear low order nibble

; assure no unknowns
: 4 rotates = divide

; th g area albroutmed

TST

304

; determine skip altogether

MOV

RO, CCHPAS

iresidue = no. of desired passes

#1,CCHPAS

; normal defsult = 1

CLC
ROR

ROR
BEQ
177777

003034

20%:

BR
&V

000001

003034

25%:

MOV

354
ggl‘..CCl-PAS

16 (=pass time)

:
;

with

general

purpose

; divide, this test to

; continue on
; largest number no apt mode??

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Page 13-13

Wednesday 09-Apr-86 09:43

SEQ 0046

GET VALUE FOR SOF TWARE SWITCH REGISTER

1765 004650
1766 004652
1767 004660

1768

000000

004676

032737
001437

000433

000010

MOV

35%:

nop

354
#0,CCHPAS

1784

1785 004770
004770

BIT

BEQ

TYPE

004700

BR
:30007%:

iOOOG‘:

000434
104401
000431

004776

1787 005060

004737

027546

1791 005064
1792 005072
1793 005074
1794
1795
1796 005076
1797 005102

122737
001001
000451

000001

005737
001401
000445

001206

005037
104401
000431

002362
005120

004774

R R R R R R B :3:HALT
R R R R R R R R R R R R R --------

177750

004766

1783 004766

1788
1789
1790

30%:

1779 004662
1780 004670
1781 004672

1786

003034

; no cache tests included
; debug aid

H
:

1769
1770
1771
1772
1773
1774
1775
1776
1777
1778

1782

000403
012737
000240

99¢:

005060

104410

TYPE

BR
;1300094:
300085$:

1000$:

001220

LOOP:

2000:

000001

.ASCIZ

: : TYPE ASCIZ STRING

; ;GET OVER THE ASCIZ
<15><12>/ TRAP ON HALT IS ENABLED,

JUMPER IS NOT INSTALLED/<15><12>

10004

: : TYPE ASCIZ STRING

300094

300084

.ASCIZ

: ;GET OVER THE ASCIZ

<15><12>/TRAP ON HALT IS DISABLED, JUMPER IS INSTALLED/<15><12>

#APTENV, $ENV
3000¢
TST1

;ARE WE IN APT MODE?
;IF NOT: DO THIS TEST
1
test
to
;:g0
; under APT

$PASS
20004

;FIRST PASS??
;IF YES, DO IT
1
test
to
;590

lg&dt

+sTYPE ASCIZ STRING

TST

BEQ
Br

cmp

. 300074
30006$

CMPB

BR
&3,(3)00116:
10%:
rdchr

002362

#BIT03,MAIREG

994

;:SIZE FOR Q22BE

BNE

bne

mov

;UFD MODE?
;IF YES, BRANCH

ON ERROR JUMPER

PC,Q2251Z

clr
TYPE

000131

#B81T07,3#52
LOoP

JSR

3000$:

BIT
BNE

TST1

300114

30010¢
.ASCIZ

clear loop back flag

| 1GET OVER THE ASCIZ

<15><12><12>/IF LOOP BACK CONNECTOR INSTALLED TYPE:

:"Y.(op)

iread the ingut character
;is it yes ?

#1, lopbak

:loop back installed, flag it.

;no loop back connector

)

Y/<15><12><12>

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesdes 09-Apr-86 09:43

Page 14

SEQ 0047

TEST - NATIVE REGISTER

.SBTTL

1813

TEST - NATIVE REGISTER

;000000000000000000000000000000000000000000000000000000000000000000

1814

NATIVE REGISTER TEST

1815
1816
1817

This test checks out the native register’'s existance and it's
various bits.

BGNTST

Set up timeout vector PC to TIMOUT

Set up timeout vector PSW to 7

Read the Native register

Check out the bootstrap switch as read only
Check out the module functional revision as read only
Check out that the self-test enable bit works
E%?‘S:.f out he indicators (i.e LEDS)
TIMOUT: Clean stack

Error NATIVE register timed out

;NATIVE REGISTER TEST

000004
032777
001424
104401
000421

010000

173710

005240

003016

013737
012737
012737
013700

*éuuuuuouuuuucuuuuutuutuuunnutuununu
SCOPE
T1:

?IT 12 IS SET IN SOFTWARE SWITCH REGISTER

HEN TYPE TEST TRACE
;
1000
: s TYPE ASCIZ STRING
30013
::GET OVER THE ASCIZ
30012$
"ASCIZ <15><12>/TEST 1 - NATIVE REGISTER TEST/

MOV
MOV
MOV
MOV

@84, SAVTIM
£100% , 304
$340, 396
NATREG, RO

BEQ
TYPE
BR
;soolégssz
10005:

#BIT12,3SWR

BIT

: SAVE UNEXPECTED TIMEOUT TRAP
: SET UP TIMEOUT TRAP
;
: READ THE NATIVE REGISTER

: CHECK BITS 15-13 READ ONLY
052737
013701
02000

2160000, NATREG

cMP
BEQ

R1
NATREG,

RO,R1
10%

+47

;
:

110¢

BIT

#177.NATREG

MOV

#1,R1

BIS

177520

MOV

ERROR

000177
000177

172100
000007

177520
177520

: CHECK THE INDICATOR BITS
#177.NATREG
BIC
fos:
208:

204
BEQ
+50
ERROR
CLR ~ MER
MOV

#7.R2

TRY TO WRITE TO THE FUN REV BITS
READ THE NATIVE REGISTER AGAIN

IF IT CHANGED THEN
ERROR IN NATIVE REGISTER

CLEAR THE_INDICATOR BITS
IF THE BITS DIDN'T CLEAR

START PATTERN

i % THEN IN THE NATIVE REGISTER
"VERROR
:
ING THE ERROR ;MC
' GLEAR MER AFTERINREPORT
FIRST BIT
'

2ET LOOP COUNT TO 7

l‘i

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO VO05.03

Wednesday 09-Apr-86 09:43

Page 14-1

SEQ 0048

TEST - NATIVE REGISTER

1867 005406
1868 005412
1869 005416
1870 005420
1871 005422

1872 005424
1873 005426
1874 005430

050137
030137
001002
104050
000422

006301
077211
042737

25%:

177520
177520

177520
007400
177520

BIC

177520

005037
013737

172100

003016

#177,NATREG

FOR ALL BITS THE ARE INDICATOR DO

: SET THE BIT
: CHECK THAT IT GOT SET
: IF_NOT THEN

ERROR IN THE INDICATOR BITS

: SHIFT PATTERN TO NEXT BIT
ENDFOR

CLEAR THE INDICATORS

: CHECK THE BOOT SWITCH TO BE READ ONLY
177520

100¢:

1888 005470
1889 005474

BR
ASL
S08

11os
R1
R2,25%

BNE
ERROR
30%:

000177

BIS
BIT

n1 NATREG
1.NATREG

110%:

MOV
BIS
MOV
cMP
BEQ
ERROR
BR
ERROR
CMP

NATREG, RO
#7400, NATREG
NATREG,R1
R1,RO
110
+51
1104
+52
(SP)+,(SP)+

ENDTST

CLR

MER

CLEAR MER AFTER REPORTING THE ERROR ;MC

MOV

SAVTIM, 3¢4

READ THE NATIVE REGISTER
TRY TO WRITE TO THE BOOT SELECT SWITCH
READ IT AGAIN

IF THE BITS CHANGED THEN
ERROR IN THE NATIVE REGISTER

ERROR IN THE NATIVE REGISTER

RESTORE UNEXPECTED TIMEOUT

sMC

I<4

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Page 15

Wednesday 09-Apr-86 09:43

SEQ 0049

- 16 BIT ROM CHECKSUM TEST

.SBTTL

TEST

- 16 BIT ROM CHECKSUM TEST
:

:ROM'S CHECKSUMS

189

116 BIT ROM TEST
;;‘.“t“““tt‘tt“““‘t““‘t‘t‘.‘.““““t“‘t‘tt“‘““..‘.

000004
032777
001426

000423

010000

173426

TST2:

SCOPE

BIT
BEQ

#B8IT12,3SWR
1000

300144

TYPE

005522

; : 300154 :

30014%:
1000%:

, 300154

IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
THEN TYPE TEST TRACE

;
3

;s TYPE ASCIZ STRING

; sGET OVER THE ASCIZ

.ASCIZ <15><12>/TEST 2 - KDJ11-D ROM CHECKSUM TEST/

;set trap catcher for 250 for aborts
012737
012737

006016
000340

mov
mov

000250
000252

rr
, 3#250
#mmue
#340,3#%#252

;set up location 4
003016

013737
012737
012737

000360

004737

030676
174000

1934 005712
1935 005716
1936
1937 005720

062001

103405
062737
012700
077212

005701
001414

;save unexpected timeout trap
;set up the timeout trap

jsr

pc,setmmu

mov

#begrom,r0

;enable rom in the native mister
ins at pa= 17 400
;rom
temporary checksum
iinit
iget .ddrzaa ‘o)sobegmmng of rom

is
mov
clr

177520
172350

mov

204 :

(r0),r2

error

+101

clr

mer

clr

adsr0

add
cmp

blo

add

172350

#bit07,34natreg
ok ipard
#17
rl

20¢

bic
Br

177520

#360,3#6

bne

mov

120000
000200
100000

a#4 ,savtim
#timerr,a%4

mov

100000

172100
003016
177572
000200

mov
mov

mov

tst
beq

;

number of words covered

the checksum

;is the size zero ?

ino

;yes error in rom size

savtim,a%4

;disable the rom
#bit07,3%natreg
;390 to the next test
1573

(r0)+,rl
r0, #begrom+20000

;accumulate the checksum
;finished the 4kw bank ?

#200, 3%k i pard

;yes bump address by 4 kw

304

#begrom, r0
r2,204

304:

: !

rl
404

;no

;get address of beginning of rom
;until all words are checked
;is the checksum correst ?
;yes, go to the next test

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 15-1

SEQ 0050

- 16 BIT ROM CHECKSUM TEST

1945
1946 005740

1947 005742
1948 005746

104004
005037
013737
005037
042737
000445

+4
mer

clr
bic
Br

a#sr0
;disable the rom
#bit07,3#natreg
TST3
;i:igo to the next test

mov

177520

inc, rom checksum error

error
clr

savtim,a#4

40%:

005037

013737
042737
000432

172100
003016
177572
000200

clr

mov
clr
bic
Br

177520

mer

savtim,a#d
a#sr0
;disable the rom
#bit07,d#natreg
TST3
;:90 to the next test

;end of test

;handle trap to 250

000200

177572

177520

mmuerr:

bic
clr
error

cmp

clr

172100
003016

mov
Br

#bit07,d#natreg
asr0
i
+2

(sp)+,(sp)+

;disable the rom
immu

error

mer

savtim,a#4
18713

;igo to the next test

;handle trap to 4
104041
005037
2626
042737
013737
000400

timerr:

172100
000200
177572
003016

error

+41

+,(sp)+
e
B
0=5t05.80n.treg

cmp

177520

bic

clr
mov
Br

a¥sr0
savtim,a¢4
TST3

;clear stack
;disable the rom
iigo to the next test

114

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Page 16

Wednesday 09-Apr-86 09:43

SEQ 0051

TEST - KDJ11-DA DATA PATHS

.S8TTL

1993

1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004

2 L

DATA PATH TEST

TR R

R R R R SR R

R R

R R R

Board. The patterns used will be:

006166
2026 006166

—

BGNTST

Set Timeout trap to TIMOUT
Set timeout priority to 7

Read location O
FOR pattern := first to last
Write pattern
Read pattern

IF Pattern read <> Pattern Written THEN
ERROR

;:DATA PATH TESTS

000004
032777
001425
104401
000422

006210
2030
2031 006214
2032 006216
2033 006222

005737
010701
062701
012702

2035 006226
2036 006232
2037 006236
006240
2039 006246

011137
023721
001412
013737
016137

2045 006266

125252

013737
012737

006254
2041 006256
006262
2043 006264

007417
052525

2027 006166
2028 006174

2034 006226

R R

177777
177400
170360

2006

006102
2023 006104
2024 006112
2025 006114
006120

A R

This test checks out the data and address paths on the KDJ11-D

2005

2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022

A A

012737

104044
005037
000401
077220
013737

L
%L
010000

173026

003016

BR
%00170 :
164:
10004 :

300174

20016

ASCIZ

i IM
804, SAV

, 304
#1008

SPATT-. ,R1

S$:

¢7.R2

(R1),840

380, (R1)+

000000

10$
280, $BDDAT

001126
001124

-2(R1), $GDDAT

+44

10¢:

MER
15%
R2,5¢

15¢:

SAVTIM, 304

172100

; IF BIT 12 IS SET_IN SOFTWARE SWITCH REGISTER
THEN TYPE TEST TRACE
;
:: TYPE ASCIZ STRING

::GET OVER THE ASCIZ
- KDJ11-D DATA PATH TEST/

<15><12>/TEST 3

PC,R1

000000

003016

#8IT12,@SWR
1000$

$340, 306

000106
000007

000000
177776

SCOPE

BIT
BEQ

TYPE

006122

000004
006276
000340
000000

§T3:

SAVE UNEXPECTED TIMEOUT TRAP ;MC

SET UP THE TIMEOUT TRAP
READ LOCATION 0

GET A POINTER TO THE PATTERNS
SET THE LOOP COUNT TO 7
FOR ALL OF THE PATTERNS
: WRITE THE PATTERN TO 0

: IFTTI-E PATTERN IS NOT READ BACK
HEN

GET READ DATA
GET EXPECTED DATA

ERROR IN THE DATA PATHS

CLR'MER AFTER ERROR REPORTING :MC
: END IF

TgT
END
RESTORE UNEXPECTED TIMEOUT TRAP

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 16-1

TEST - KDJ11-DA DATA PATHS

2046 006274

TST4

000422

;:G0 TO THE NEXT TEST

: TIMEOUT ROUTINE
2053 006276

012737

2055 006304
% 006306

104045
005037

022626

2054

2058

2059 006314
2060 006322

2063 006326
2064 006330
2065 006332
2066 006334
2067 006336
2068 006340

013737
000407
000000

177777
177400
170360
007417
052525
125252

006306

000004

172100

003016

100¢:

MOV

#102¢,3%4

102¢:

CLR

+45
MER

(SP)+,(SP)+

000004
PATT:

SAVTIM,a#4
TST4

.WORD

177777
177400
170360
007417
052525
125252

; CLEAN STACK

; RESTORE UNEXPECTED TIMEOUT TRAP
::G0 TO THE NEXT TEST

SEQ 0052

‘

COKDOBO KDJ11-DA CLUSTER DIAC. MACRO VO0S5.C3 Wednesday 09-Apr-56 09:43 Page 17

SEQ 0053

TEST - MEMORY ACCESSABILITY

228.7,%

.SBTTL

2075
2076
2077

: This test will check the accessibility of each address of memory
out then an error
; on the KDJ11-D Board. IF a memory address tr
1d be that all memory
; will be flagged. A side effect of this test

2081
2082

i
:

sACCESSIBILITY TEST

228;2

; 1S cleared
:
; BGNTST

2078
2079
2080

Set timeout trap to TIm)UT
Set timeout pruorut to
Contents of address :=

;: For MSB_Address := 500000 to 1777777 DO

2083
2084
2085
2086
2087

Go to the next test
:
:
; TIMOUT:

2089

; ENDTST

2002 o

*é;:tt‘ttttttt‘t‘ttt‘ttttttttttttt‘ttttltttttttttt‘tttt‘ttttttttt

Error Address should not have timed out

2088

2090

2093

2094 006344 032777 010000 172566

BEQ

001426

2095 006352
2096 006354 104401 006362

006360 000423

TYPE

2098 006430 013737 000004

03016

012737 006534 (00004
2099 006436
2100 006444 012737 00034C 000006
006452 004737 030676
2101
2102 006456 012701 040000
2103 006462 012737 001600 172344
2104 006470
2105 006470 142721 000377

1000%:

1$:

BIT

10004

300194

SRR

#B8IT12, SSW

: IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER

HEN TYPE TEST TRACE

uTYPE ASCIZ STRING
ASCIZ
{ OVER THE

30018$

MOV
MOV
MOV
JSR
MOV

a¢4 ,SAVTIM

;

MOV

4 01600.5!KIPAR2

:+ SET UP KPAR 2

BICB

#377,(R1)+

:30019¢:

$60184:

006430

2097 006430

.ASCIZ

MEMORY ACCESSIBILITY TEST/

4
<15><12>/TEST

01060.0“
SéTH‘IJ
PC
240000, R1

THE TIMEOUT TRAP
SET UPTIMEOUT
: SAVE
:
; GO SET UP THE MMU REGISTERS
; WE WANT TO MAP THRU PAGE 2
;
:

FOR 160000 TO 2000000
CLEAR OUT A BYT

;

: ENDIF

IF WE HAVE PASSED THE PAGE BOUNDARY
: THEN
: POINT KPAR2 TO A NEW PAGE
: : SET THE VIRTUAL ADDRESS TO PAGE 2

020127 060000
103773
062737 000200 172344
012701 040000

cMP
BLO
ADD
MOV

R1, #60000
14
#200, 3¥KIPAR2
©40000,R1

:
:
:
i

gfié 006522

001362

BNE

2113 006524

013737

2106 006474
2107 006500
2108 006502
2109 006510

CcMP

2110 006514 023727 172344 020000

5112 006532 000416

003016

000004

10%:

MOV

9KIPAR2 , #20000
SAVTIM,a#4

TsTS

gfig 006534

204 :

2117

; TIMEOUT ROUTINE

2120 006534

012737

2122 006544

104046

2121 006542

2123 006546

;160 TO THE NEXT TEST

005301

005037

006552

172100

000004

100%:

MOV

#1024 ,344

DEC

CLR

MER

ERROR

+46

; REPORT ERROR

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 17-1

SEQ 0054

TEST - MEMORY ACCESSABILITY

2124 006552

2125 006554
2126 006560

022626

005037
013737

177572
003016

102$:
000004

cMP
CLR

MOV
BR

(SP)+,(SP)+

aSRO

SAVTIM, 3%#4

TSTS

i CLEAN STACK
:

RESTORE TIMEOUT

::G0 TO 'i’l-E NEXT TEST

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesday 09-Apr-86 09:43

MACRO V05.03

Page 18

SEQ 0055

TEST - MEMORY ERROR REGISTER

.SBTTL

2130

TEST - MEMORY ERROR REGISTER

paraaree

R R

R A R A

R A

;MEMORY ERROR REGISTER

g:;isdtcst will check the MEMORY ERROR REGISTER on the KDJ11-D
rd.

BGNTST

Setup timeout VECTOR PC to TIMOUT
Setup timeout VECTOR Priority to 7
Setup Parity abort VECTOR to PARINT
Setup Parity abort VECTOR Priority to 7
Do a bus reset

Read the Memory Error Register (17772100)
Make sure that the register bits are in the right state

Check all R/W bits
ENDTST

000004
032777
001427
104401
000424

005037
012737
122737
001005
005737
001402
000137

2174 006772
2175 007000

2176 007004
2177 007006
2178 007010
2179 007012
2180
2181
2182 007016

010000

172340

006610

000001

177776

001220

féiéiiiiéééé;22;;2222;2;;2;;2;2222222;22;;;22;222;;;22;;2;22;2; """
: IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
#BIT12,3SWR
e
: © THEN TYPE TEST TRACE
1000$
BEQ
s TYPE ASCIZ STRING
:
$
30021
TYPE
::GET OVER THE ASCIZ
30020
BR
"ASCIZ <15><12>/TEST 5 - MEMORY ERROR REGISTER TEST/
i&o%%“’

1
10004 cir
mov

CMPB #APTENV, $ENV
1001$
BNE
TST

001206

007452

017737
012737
012737
013746
013746
012737
012737
005037
013700

000004

052737
013701
020001
001403
104055
005037

030032
172100

052737

140005

007374
340
000114
000116
007444
172100
172100

003016

abt

934080177776

10018:

000114
000116

$PASS

BEQ
JMP

1001$
PAREND

MOV

204, SAVTIM

MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV

#1008 , 394
#340,3%6
29114, -(SP)
29116, -(SP)
SPARINT,3¢114
$340,90116
FPMER
@OMER, RO

BIS

#30032, MER

init

PRevsosoes mc
pgarity A abort
e
o

:ARE WE IN APT MODE?
:IF NOT: DO THIS TEST
:FIRST PASS?

: YES THEN PROCEED
: NO THEN GO TO THE NEXT TEST
:

:
:
;
:
;
;
;
;

SAVE UNEXPECTED TIMEQUT TRAP

SET UP THE TIMEOUT TRAP
SAVE VECTOR
SAVE PRIORITY
READ THE MER

| CHECK OUT THE MER "ALWAYS READ AS 0" BITS
172100

MOV
CMP
BEQ
ERROR
CLR

MER,R1
RO,R1
104
+55
MER

BI1s

#140005 , MER

: TRY TO WRITE THE STUCK AT 0 BITS
:
:
:

READ THE MER
IF THE STUCK AT O BITS CHANGED
: THEN
: ERROR IN THE MER
ENDIF

; CHECK THAT BITS 0,2,14,15 ARE CLEARED ON RESET

172100
172100

fos:

: SET ALL THE R/M BITS ON THE BOARD

1‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

TEST - MEMORY ERROR REGISTER
013700

172100
001126
140005

140005

172100

15¢:

MOV
BIC
CMP
BEQ
CLR
MOV
MOV
ERROR
CLR

RESET
BIT
BEQ
ERROR

CLR

172100

SEQ 0056

MER, RO
#37772,R0
RO, #140005
154
MER
RO, $BDDAT
#140005, $GDDAT
+56
MER

READ THE MER
MASK OUT ALL THE UNWANTED BITS

MER
#140005,

MAKE SURE THE APPROPIATE BITS GET CLEARED

IF THE R/W BITS DID NOT GET SET THEN
ERROR IN THE MER

GET RECIEVED DATA
GET EXPECTED DATA
REPORT ERROR
DO RESET

IF NOT THEN ERROR

204
+57

MER

éOO:
172344

JSR
MOV
MOV
BIC
BIS

172100
172100

PC,SETMMU
217600, 3¢KIPAR2
#57776.R1
#8IT0, SOMER
#8IT2, 30MER

030676

004737
012737
012701
042737
052737

; CHECK OUT THE WRITE WRONG PARITY AND PARITY ERROR ENABLE BITS

2200 007106

001124

172100

2197

2201 007106
2202 007112
2203 007120
2204 007124
2205 007132

172100
037772
140005

2183 007024
2184 007030
2185 007034
2186 007040
2187 007042
2188 007046
2189 007052
2190 007060
2191 007062
2192 007066
2193 007070
2194 007076
2195 007100
2196 007102

Page 18-1

SET UP_KPAR2

POINT TO LAST VIRTUAL ADDRESS IN PAGE 2
CLEAR PARITY ERROR ENABLE
SET WRITE WRONG PARITY

: WRITE WRONG PARITY TO LOCATION 1777776

2209 007140
2210 007142

2214 007150
2215 007152
2216 007156

005011
042737

CLR
BIC

172100
H

005711

005737

000240

(R1)

#8IT2, JMER

WRITE WRONG PARITY TO THAT LOCATION

CLEAR WRITE WRONG PARITY

MAKE SURE NO PARITY ABORT OCCURS WHEN PARITY ERRORS ARE DISABLED

003054

1ST
157
NOP

(R1)
MERTAG

READ THE ADDRESS BACK
SHOULD

MAJT GET
PARITY ABORT

22
2225 007160
2226 007164
2227 007166
2228 007172
2229 007174

005737
001405
005037
104062
005037

1sT

004056

BEQ
CLR
ERROR
CLR

004056

172100

PARABT

254
PARABT
+62
FOMER

IF"\E;‘GOT A PARITY ABORT
: CLEAR THE ABORT FLAG
:

FLAG THE ERROR

CLEAR MEMORY ERROR REGISTER ;MC

ENDIF

: MAKE SURE A PARITY ABORT OCCURS WHEN PARITY ERRORS ARE ENABLED
2234 007200

3535 007206

———

052737
005711

000001

005737

003054

172100

25¢:

BIS

#8170, SUMER

MERTAG

TST

(R1)

NOW ENABLE PARITY ABORTS
THIS HAS TO BE ONE WORD INTRUCTION
READ THE ADDRESS BACK
SHOULD

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S.03

Wednesday 09-Apr-86 09:43 Page 18-2

SEQ 0057

TEST - MEMORY ERROR REGISTER
2240
2241
2242
2243
2244
2245
2246
2247

2248 007214
2249 007222
2250 007230
2251 007232
2252 007236
2253 007240
2254
2255
2236
2257

B
3
B

042737
022737
001405
005037
104063
005037

000001
000001

#1,PARABT

;
B
i
i
B
3

172100

DISABLE PARITY ABORTS

IFT:ENDIDN'T GET A PARITY ABORT

: CLEAR PARITY ABORT

ERROR DID NOT GET A PARITY ABORT
CLEAR MEMORY ERROR REGISTER ;MC

: CHECK OUT THE ADDRESS AND EXTENDED MER READ ENABLED

2269 007314
2270 007322
2271 007326
2272 007332

737
(13702
042702
020227

040000
172100
177037
000040

001126
007740

172100

300 :

PARABT

#8IT15kgflffl
FOMER

#1700%7,R0

RO, #7740
35§
RO, $BDDAT

#7740, $GDDAT

001124

+64
FHMER

172100

2273 007336
2274 007340
2275 007344
2276 007352

001410
010237
012737
104065

005037

172100

2279 007360
2280 007362
2281 007366
2282 007372

005011
005037
005037
000407

177572
172100

001126
000040

172100

0BIT14,30MER

35¢:

IHMER, R2
#177037,R2

R2,#40

DAT
;g‘SBD
#40, $GODAT

001124

+65
IMMER

(R1)

40%:

aeSRO
FMMER
1014

CLEAR THE ABORT FLAG
CLEAR THE PARITY ERROR FLAG
GET THE MEMORY ERROR REGISTER
CLEAR _THE UNNEEDED BITS
IF NOT CORRECT BITS SET THEN
ERROR IN ADDRESS 11-17
GET RECIEVED DATA
GET EXPECTED DATA

CLEAR MEMORY ERROR REGISTER ;:MC
SET ENABLE READ EXTENDED BIT
AGAIN

CLEAR THE UNNEEDED BITS

IF NOT CORRECT BITS SET THEN

ERROR IN ADDR 18-21 OR READ EXT BIT

GET RECIEVED DATA
GET EXPECTED DATA

CLEAR MEMORY ERROR REGISTER ;MC
DISABLE MMU

ENDTST

! TIMEOUT ROUTINE
:

104060
005037

172100

100%:

022626

3291 %;x 88558§% 177572
3308 007412 012737 007424
2294
2295 007420
2296 007424

#8170, 34MER

172100
004056

004056

004056
100000
172100
170037
007740

2290 007402

PARITY ABORT
SOON !!!

005037
042737
013700
042700
7
001410
010037
012737
104064
005037

2283
2284
2285
2286
2287 007374
322%3 007376

2258 007244
2259 007250
2260 007256
2261 007262
007266
2263 007272
2264 007274
2265 007300
2266 007306
gazgz 007310

22;; 007354

GET

005037

172100

101¢:

102%:

ERROR
CLR

+60
SMMER

REPORT ERROR

cMP
CLR
CLR

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

CLEAN STACK

a#SRO

MOV
CLR

#102¢, 994
FMMER

CLEAR MEMORY ERROR REGISTER ;MC

DISABLE MMU
MC

CLEAR MEMORY ERROR REGISTER ;MC

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 18-3

TEST - MEMORY ERROR REGISTER

2297 007424
2298 007430
2299 007434

012637
012637
013737
000403

(SP)+,a#116
(SP).,a#114
SAVTIM, a#4

000116
000114

003016

TST6

:
::G0 TO

;RESTORE PRIORITY
;RESTORE VESTOR
*REST(RE UNEXPECTED TIMEOUT
THE NEXT TEST

; PARITY ABORT ROUTINE

2306 007444
2307 007450

005237
000002

004056

PARINT:

PAREND
:

INC

RTI

PARABT

: FLAG THAT WE CAME HERE
; RETURN

SEQ 0058

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 19

SEQ 0059

TEST - MEMORY ERROR REGISTER

.SBTTL

TEST - DATA SHORTS AND STUCK AT BITS

L8P80 2202800000880 0 008808088808 888888000088 8888888080000 000000

This test will check the DATA Rams for Data shorts and stuck at bits.
Testing occurs as below:
[« X, B YT N T

S5 W

;:DATA SHORTS AND STUCK AT BITS TEST

S
W
W8 B
W
W
S

IF contents NOT -1 error
This is repeated for all addresses

. Steps 1-5 are done from location 1777777 to O

Note: The KDJ11-DA board uses 256k X 1 chiggeThis allows us to
d
use only 2 patterns per RAM. IF one I s is shorteto
another we will detect this when we read for the initial state.
If it has chu.\g:d from the expected state then chances are that
rted together.

the bits are

S8 BE S

location is checked to be set to 0

A side effect of this test should be that memory is cleared.
BGNTST
ENABLE PARITY

FOR MSB_Address := 0 to 1777776 DO BY 2
Clear Address
If Contents <> 0 THEN
ERROR in memory

Complement the Contents of Address
IF contents <> -1 THEN
ENDFOR

in memory

FOR MSB_Address := 1777776 DOWNTO O DO BY 2
IF &ma&qngo <> -1 THEN
in memory

Complement the Contents of Address
IF contents <> O THEN
in

memory

We Be

e WE BE B8 We BE Ve WE WE We WS

WS W

WS B

A memory

. IF NOT O error
The location is complemented

000004
032777
001433
104401
000430

005037
013737
012737

ST6:

SCOPE
BIT

BEQ

#81T712,3SWR
10004

CLR
10008: MOV

804,SAVTIM

TYPE

BR
1430023+

MOV

300234

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
THEN TYPE TEST TRACE
i
+: TYPE ASCIZ STRING

{IGET OVER THE ASCIZ
53
"RSET7 <15><12>/1EST 6 - DATA SHORTS AND STUCK AT BITS TEST/

@9SRO

#1008,804

ED TIMEOUT
'STORE UNEXPECTTIMEOUT
TRAP
i9TSET UP THE

fl‘i

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 19-1

SEQ 0060

34114, -(SP)
a#116,-(SP)
2508 , 34114
#340.3%116

#BITO, 96MER
10¢:

(R1), $BDDAT
154
$GDDAT

R1, $BDADR
+61
101¢

(R1)
(R1), $BDDAT
(R1)+,#177777

20$
#-1, $GDDAT
R1, $BDADR
#2, $BDADR
+61
101¢
R1, #60000

104

#200, 3#KIPAR2
#40000,R1

2
, #20000
SGKIPAR
254
104

2417 010044
2418 010050
2419 010054

162737

060000
000200

014137
023727

001126
001126

012701

177777
001122

001126

001124
001122

172344

GO SET UP THE MMU REGISTERS
WE WANT TO MAP THRU PAGE 2
SET UP KPAR 2
;MC
SAVE VECTOR_
SAVE PRIORITY ;MC
set up trap

;mc

ENABLE PARITY ABORTS

:ac

30%:

#60000,R1
$200, 3KIPAR2

-(R1), $BDDAT

177777

gg?onf 8177777

001124

#177777, $GODAT

R1, $BDADR
+61
1014

(R1)
(R1), $BDDAT

404

$GDDAT

R1, $BDADR
+61

FOR _ADDRESS 160000 TO 2000000 DO
: READ_MEMORY
S
NOT ZERO THEN
: IF IT_I

GET THE EXPECTED DATA
GET THE VIRTUAL ADDRESS
ERROR IN THE MEMORY
2
RESTORE AND TO THE NEXT TEST
s

: COMPLEMENT MEMORY

: SAVE THE RECIEVED DATA
: IF ITS NOT = -1 THEN
ERROR IN THE MEMORY
s
GET EXPECTED DATA
s
GET THE VIRTUAL ADDRESS
:

RESTORE AND TO THE NEXT TEST
: IF_UE HAVE PASSED THE PAGE BOUNDARY
: :

: :

HEN

POINT KPAR2 TO A NEW PAGE

SET THE VIRTUAL ADDRESS TO PAGE 2

ENDIF
ENDFOR

$:
$:

2400

2401
2402
2403 007770
2404 007774
2405 010002
2406 010002
2407 010006
2408 010014
2409 010016
2410 010024
2411 010030
2412 010032
2413
2414 010034
2415 010036
2416 010042

s e ws ®e we s w

#40000,
R1
#1600, IKIPAR2

®s B me W @8 e W W we

$340, 306

PC,SETMMU

nn
~NOo

2363 007572 012737 000340 000006
2364 007600 004737 030676
2365 007604 012701 040000
2366 007610 012737 001600 172344
2367 007616 013746 000114
2368 007622 013746 000116
2369 007626 012737 010116 000114
2370 007634 012737 000340 000116
2371 007642 052737 000001 172100
2372
2373 007650
2374 007650 011137 001126
2375 007654
001124
2376 007656
001122
2377 007662
2378 007666
2379 007670
2 380
2381 007672
001126
2382 007674
177777
2383 007700
2384 007704
177777 001124
2385 007706
001122
2386 007714
000002 001122
2387 007720
2388 007726
2389 007730
2390
2391 007732
2392 007736
172344
000200
2393 007740
2394 007746
172344 020000
2395 007752
2396 007760
2397 007762
2398 007764
2399 007764 004737 030610
IS IN HERE TO TEST THE DATA RETENTION

s me ®s W s we W we W

TEST - DATA SHORTS AND STUCK AT BITS

MOV

#200,R5

;

MOV
SOB

#177777.R4
R4,27%

:
;

RS, 26$
S08
GET A POINTER TO THE TOP OF A PAGE

SET KIPAR TO POINT TO THE TOP PAGE

FOR LAST ADDRESS TO FIRST BY 2
: SAVE THE DATA

: READ BACK MEMORY MAKE SURE IT IS -1
: IF NOT = -1 THEN

: * GET THE EXPECTED DATA
GET THE VIRTUAL ADDRESS
ERROR IN MEMORY
.
RESTORE AND TO THE NEXT TEST
: COMPLEMENT MEMORY
: IF_NOT = O THEN
ERROR IN MEMORY
:
GET EXPECTED DATA

GET THE VIRTUAL ADDRESS

THIS LOOP

—

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 19-2

SEQ 0061

TEST - DATA SHORTS AND STUCK AT BITS
000436
020127
101346

162737

012701

2427 010106
2428 010110
2429 010114
2430
2431

2432
2433
2434 010116

2435 010120
2436 010124
2437

023727

001335
005037
000417

40%:

040000

000200
060000

172344

2441
2442
2443
2444
2445
2446 010130

2447 010136
2448 010140
2449 010142
2450 010144
2451 010150
2452
2453 010154

5433

2455 010160
2456 010160
2457 010164
2458 010170
2459 010176
2460
2461

—

RESTORE AND TO THE NEXT TEST

Rl #40000

: IF VIRTUAL ADDRESS ABOUT TO ENTER NEXT PAGE
ADJUST THE PAR

OZOOE
GOKIPARZ

172344

t éND§ESET THE VIRTUAL ADDRESS TO TOP OF PAGE

a«IPAéz, #1400

001400

ENDFOR

304
MER
101$

172100

CLEAR THE MER
RESTORE AND TO THE NEXT TEST

; PARITY ABORT ROUTINE
104072
005037
022626

S50%:

172100

ERROR
CLR
cMP

REPORT ERROR

+72

INIT THE MER
CLEAN STACK

MER
(SP)+,(SP)+

;VECTOR SAVE AND RESTORE
;UNEXPECTED PARITY ABORT ERROR ROUTINE

2438

2439
2440 010126

101$

101¢

000412

; TIMEOUT ROUTINE
012737
005301
104046
022626
005037
005037

010160

005037

172100

012637
012637
013737
000400

000116
000114
003016

:
1004

#1024 ,3%4
R1

figfié

2420 010056

(SP)+,(SP)+

172100
177572

101¢:
1024%:
000004

REPORT ERROR
CLEAN STACK

INIT THE MER

RESTORE PRIORITY
RESTORE VECTOR

RESTORE UNEXPECTED TIMEOUT

::60 TO THE NEXT TEST

A—

—

IK5

COKDDBO KDJ11-DA CLUSTER DIAG.

Page 20

Wednesday 09-Apr-86 09:43

MACRO V05.03

SEQ 0062

TEST - QUICK VERIFY DATA AND ADRESSING TEST

.SBTTL TEST - QUICK VERIFY DATA AND ADRESSING TEST
;UNIQUE ADDRESSING TEST

5&3

‘00000000000000000000000000000009000000000000000000000000000000’000

2468

; This test will check the data and oddrcnina of the memories.
; It uses the KNAIZUK HARTMANN QUICK VERIFY TRAM TEST ALGORITHM.
; This alaor-ithm will test memory for all stuck at faults in the
; data and addressing

2472

: Heu\orx is split ;g into sections of 3.

g:;g

; Testing works as follows.

2477
2478
2479
2480

i 1. Write a O into the 2nd and 3rd address of all groups
i
write a -1 into the 1st address of all groups
3
0
contain
groups
all
of
address
;i 2. make sure that the 2nd
groups
all
of
address
2nd
;: 3. Write a -1 into the
; 4. Make sure that the 3rd address of all groups contain 0
i 5. Meke sure that the 1st end 2nd address of all groups

2467

2469
g:;g

;s I.E.

g:;lz

2481
2482

- 6,7.10 ...

contain -1

2483

0.1.2 - 3.4,5

2486
g:g;

2485

; 6. Write a 0 into the 1st address of all groups
i 7. Make sure that the lst address of all groups contain 0
; 8. Write a -1 into the 3rd address of all groups
;: 9. Make sure that the 3rd address of all groups contain -1

2489
2490

;
i
et

2484

2491

2492

010200 000004

2493 010202 032777 010000 170730
2494 010210 001434
2495 010212

104401

010216 000431

2497 010302 004737
2498 010306 013737

1817:

SCOPE

030676
000004 003016

10004:

TYPE

300254

;s TYPE ASCIZ STRING

012704 000002
005005
005003
004737 031176
004737 031350
005004

2515 010404

005005

ASCIZ

#1,R4
RS
R3
RWTMEM
#1,R4
#-1,R5

MOV
CLR
CLR
CALL
CALL
CLR

#2,R4
RS
R3
RWTMEM
RRMEM
R4

CALL

CLR

1004, 304
INIMEM

#1,R3

THEN TYPE TEST TRACE

: *GET OVER THE ASCIZ

<15><12>/TEST 7

MOV
CLR
CLR
CALL
MOV
MOV

MOV

2509 010362
2510 010366
2511 010370
2512 010372
2513 010376
2514 010402

300243

PC,SETMMU
@44 ,SAVTIM

2507 010352 012703 000001

2508 010356 004737 031176

1000$

JSR
MOV

MOV
CALL

012704 000001
005005
005003
004737 031176
012704 000001
012705 177777

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER

2499 010314 013737 010476 000004
2500 010322 004737 031012
2501 010326
2502 010332
2503 010334
2504 010336
2505 010342
2506 010346

R e

#BIT12,3SWR

;3002554 :

30024+:

BIT

BEQ

010220

010302

2496 010302

T TR T T T TR R R

- QUICK VERIFY DATA AND ADDRESSING TEST/

; SET UP THE MMU REGISTERS
; STORE UNEXPECTED TIMEOUT

; TIMEOUT
; INITIALIZE MEMORY

: SET ADDRESS INDEX TO 1
; SET EXPECTED PATTERN TO O
; SET OPERATION TO READ
; GO READ AND CHECK MEMORY
; SET ADDRESS INDEX TO 1
; SET WRITE PATTERN TO -1

; SET OPERATION TO WRITE

RWTMEM

; GO WRITE THE MEMORY

; SET PATTERN TO O

; SET ADDRESS INDEX TO 2
; SET EXPECTED PATTERN TO O
; SET OPERATION TO READ
; GO READ AND CHECK MEMORY
; READ AND CHECK I AND I.1 INDEXES
; SET ADDRESS INDEX TO O

1‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO VO5.03

Page 20-1

Wednesday 09-Apr-86 09:43

SEQ 0063

TEST - QUICK VERIFY DATA AND ADRESSING TEST
2516 010406
2517 010412
2518 010416
2519 010420
2520 010422

012703
004737
005004
005005
005003
004737
012704
012705
012703
004737
012704
012705
005003
004737
013737
000416

000001
031176

CALL
CLR
CLR

CLR
CALL
MOV
MOV

031176
000002
177777
000001
031176
000002
177777

031176
003016

MOV
CALL

MOV
MOV
CLR
CALL

MOV

000004

RWTMEM

R4
RS

R3
RWTMEM
#2,R4
#-1,R5

#1,R3
RWTMEM

#2,R4
#-1,R5
R3
RWTMEM

SAVTIM, 344
TST10

SET OPERATION TO WRITE

,
;
;
;
;

:
;

GO _WRITE THE MEMORY
SET ADDRESS INDEX TO O
SET EXPECTED PATTERN TO O
SET OPERATION TO READ
D
CHECK MEMORY
REA
AND
GO_
SET ADDRESS INDEX TO 2
SET PATTERN TO -1
SET OPERATION TO WRITE
GO _WRITE THE MEMORY
SET ADDRESS INDEX TO 2
SET EXPECTED PATTERN TO -1
SET_OPERATION TO READ
GO READ AND CHECK MEMORY
RESTORE UNEXPECTED TIMEOUT

;:G0 TO THE NEXT TEST

: TIMEOUT ROUTINE
012737
005301
104046

2541 010514
2542 010516
2543 010522
2544 010530
2545

005037
022626
005037
013737

001400

010522

000004

100%:

#102% ,3#4
R1

CMP
CLR
MOV

(SP)+,(SP)+
a#SRO
SAVTIM,3a#4

ERROR
clr

172100

177572
003016

movV
DEC

000004

102%:

BEQ

+46
mer

TST10

| REPORT ERROR
; CLEAN STACK
H

RESTORE UNEXPECTED TIMEOUT

;160 TO THE NEXT TEST

Q‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO VO05.03

Wednesday 09-Apr-86 09:43

Page 21

SEQ 0064

TEST - QUICK VERIFY DATA AND ADRESSING TEST

.SBTTL TEST - CHECK PARITY DETECT LOGIC AND RAMS

88888043085808800000000000

ERPLPLPRPR 2220220280088

LB PP PP

:CHECK PARITY DETECT LOGIC

; This test will check out the pnrit¥ detection logic on the KDJ11-DA
; board. We will write wrong parity o] all locations and then we will
; Expect the a parity trap on a read.

; BGNTST

i
;:

Set up Parity Vector (114) To PARINT
Enable Write Bad parity (Set bit 2 in MER (17772100))

Read first location written to

i
;

Error There should be no Parity Aborts when disabled
Enable Parity Error (Set Bit 0 in MER (17772100))

Cleer all of memory

IF Parity_Abort Occurs THEN

;

FOR First_Address to Last_address DO

IF No Interrupt THEN
ELSErm Didn't Detect Bad parity

H
3
:

BEGIN
READ Address
NOP

3
:

s
3

;
:

;

ENDFOR

.
.
Clear the interrupt flag
is the correct one
address
obtained
the
Read the MER and make sure

PARINT:

;%;o that an interrupt occured

sENDTST

seseememeccscocseoness

foceecscssassemssessasmneesceccscssesemssseesese

* SRS REREERRRRRRRRERREERRREERAREERRRRERRRERRRRRRRARRREERRERESE
001220

§T10: SCOPE

011552
000200

011552
010000

CcMPB
BNE

SAPTENV, $ENV
20004

;ARE WE IN APT MODE?
;IF NOT: DO THIS TEST

BEQ

2000$

;IF YES,

TST

0012C+

170354

170340

JHP

20008: BIT

1008:

BIT

BEQ

TYPE

010610

005037
013746
013746
012737
012737

172100
004056
000114
000116
007444
000340

1000$:

000114
000116

;:FIRST PASS??

$PASS

NXTST

DO IT

ELSE GO TO THE NEXT TEST

#BIT7,3SWR

s IF BIT" SET IN SWR THEN SKIP THIS TEST

NXTST

10004

;

100

#B81I712,8SWR

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
THEN TYPE TEST TRACE

: s TYPE ASCIZ STRING

300274

$iGET OVER THE ASCIZ

300264

"ASCIZ

<15><12>/TEST 10 - CHECK PARITY DETECT TEST/

CLR

IMMER

; INIT THE MEMORY ERROR REG.

MOV
MOV

#PARINT,a#114
#340,04¢116

3002.'".

2599 010704

CLR
MOV
MOV

PARABT
a#l114,-(SP)
a®116,-(SP)

3
; SAVE VECTORE
; SAVE PRIORITY
;
:

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 21-1

SEQ 0065

TEST - CHECK PARITY DETECT LOGIC AND RAMS

: CLEAR ALL OF MEMORY WITH WRITE WRONG PARITY SET

2691
004737

105037

012701
012737
012703

030676
003014

001600
000002

JSR

;

GO SET UP THE MMU REGISTERS

#40000,R1
#1600, 3#IPAR2
#2,R3

;
;
;

WE WANT TO MAP THRU PAGE 2
SET UP KPAR 2
LOOP FOR ODD PARITY AND EVEN PARITY

PARPAT

MOV
MOVB
CLR

#4 , I#MER
PARPAT,(R1)+
JHMER

CcMP

R1,#60000

ADD
MOV

#200, 3#KIPAR2
#40000,R1

MOV
MOV
MOV

172344

PC,SETMMU

CLRB

1¢:

012737

113721
005037

020127
103766
062737
012701
023727
001355

012737
012701

000004
003014

172100

000200

172344

020000

001600

172344

000001

172100
172100

BLO

CMP
BNE

#KIPAR2, #20000
1$

BGNDO

;

: ENABLE WRITE WRONG PARITY ;MC
: CLEAR QOUT A BYTE
: DISABLE WRITE WRONG PARITY ;MC

:
;
;

: FOR 160000 TO 2000000

;

: : IF WE HAVE PASSED THE PAGE BOUNDARY

:
:

:
: : :

;

:
;

: : THEN

¢ : ENDIF
: ENDFOR

MOV

22¢:

#1600, a#KIPAR2

MOV

#40000,R1

;

: SET VIRTUAL ADDRESS TO PAGE #2

BIC
BIS

#BIT2,3#MER
#B1T0,a#MER

:
:

: : DISABLE WRITE WRONG PARITY
: : ENABLE PARITY ERRORS

:
:

TST8
TST
NOP

(R1)

MERTAG

: : READ THE BYTE
;
$ . 4 2
&
"
:

:PARITY
: ABORT

CMP

000001

BEQ

004056
172100

SOON !!!

: : IF A PARITY ABORT DIDN'T OCCUR
CLEAR OUT THE MER

PARABT
MER
+63

:
:
:

404

BIT

#100001 , 3#MER

mer

SHOULD

CLR
CLR
ERROR
clr

172100

PARABT, #1

25%

TRAP

HAPPEN

004056

POINT KPAR2 TO A NEW PAGE
SET THE VIRTUAL ADDRESS TO PAGE 2

: LET'S NOW MAKE SURE THAT THE ABORTS OCCUR
500:
: SET UP PAR 2
;

003054

~388IEGE

INITIALIZE FIRST PATTERN TO ZERO

;

: : : THEN

(EITHER O OR >1 ABORTS HAVE OCCURED)
ERROR DID NOT GET A PARITY ABORT

: : : ELSE

: CHECK OUT THE ADDRESS AND EXTENDED MER READ ENABLED
2655 011104
2656 011106

032737
001003
104073
005037

100001

172100

25%:

BNE
ERROR
clr

304
+73
mer

;

;
;i

: : :

ARE BITS O AND 15 ARE SET ;MC

: : : YES THEY ARE
: : : NO THEY'RE NOT SET

;MC
;MC

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 21-2

SEQ 0066

100000

172100

30%:

160000
177772
172344

ASH

ADD
MOV
BIC
MOV
BIC
cMP
BEQ
MOV
MOV

170037
172100
170037
001124
001126

172100

040000

172100
177037
177771
177037

BIC
MOV
B8IC

172100

35%:

clr

OF 1'S
2699 011346
2700
2701

27
2703 011346
2704 011352
2705 011356
2706 011364
2707 011364
2708 011366
2709 011372
2710 011374
2711 011402
2712 011406
2713 011414

SHIFT OUT BITS 0-5
CREATE BITS 6-21
SAVE A COPY FOR LATER
CLEAR OUT UNNEEDED BITS
READ THE MER
CLEAR THE UNNEEDED BITS
IF NOT CCRRECT BITS SET THEN
ERROR IN ADDRESS 11-17
GET EXPECTED DATA
GET RECIEVED DATA

RO,R4
#170037,R4

UMER RS

#170037,RS

R4 ,RS
354

R4, sGDDAT
RS, $BDDAT
+64
mer

SET ENABLE READ EXTENDED BIT
READ THE MER AGAIN
CLEAR THE UNNEEDED BITS
GET BITS 18-21 IN RIGHT PLACE
MASK OUT UNNEEDED BITS

#BIT14,34MER

FOMER , RS
2177087 ,RS
#-7,R0

#177037,R0

IF NOT CORRECT BITS SET THEN

RO,RS

ERROR IN ADDR 18-21 OR READ EXT BIT

404

001126
001124

RS, $BDDAT
RO, $GDDAT

172100
172100
004056

mer

06§

40%:

#40000,R1

#1600, 3OKIPAR2
fiIT?. .MER

GET RECIEVED DATA

GET EXPECTED DATA

: ENDIF

: RESET MER

: BUMP UP THE ADDRESS

: : CLEAR THE PARITY ABORT TRAP

: : IF WE HAVE PASSED THE PAGE BOUNDARY
THEN

172344
172100

040000
001600
000004
010740

G0 W9

003014

We Ws

000001

020000

172344

000200
040000
172344

2697 011334
2698 011342

MASK OUT THE PAGE BITS

aeKIPAR2,RO

060000

2688
2689 011274
2690 011300
2691 011306
2692 011310
2693 011316
320

CLEAR THE PARITY ERROR FLAG
GET THE VIRTUAL ADDRESS

#8IT15,3¢MER

R1,RO
#160000,R0O
#-6,R0

We W

042737
010100
042700
072027
063700

We We We

SERSTERHRN

TEST - CHECK PARITY DETECT LOGIC AND RAMS

POINT KPAR2 TO A NEW PAGE

::éfl&%TTPEVIRTUlLMSSTOP“GE?

: DOUNTIL WE HAVE READ ALL ADDRESSES
: THIS TIME WE WANT AN ODD & OF 1'S
: DECREMENT LOOP COUNT

: WE WANT TO MAP THRU PAGE 2
:

2
SET UP KPAR

: ENABLE WRITE WRONG PARITY

DOUNTIL WE DONE IT FOR EVEN AND 0DD

S50%:

; CLEAR ALL OF MEMORY WITH WRITE V¥ ONG PARITY CLEAR
030676
040000
001600

172344

60%:

JSR
MOV
MOV

PC,SETMMU
#40000,R1

#1600, I#KIPAR2
(R1)+

R1, #60000

172344
172344

020000

@OKIPAR2
ggéo
#40000,R1

OKIPAR2 , #20000
70$

GO SET UP THE MMU REGISTERS
WE WANT TO MAP THRU PAGE 2
SET UP KPAR 2

FOR 160000 TO 2000000

: CLEAR OUT A BYTE

: IFTVE HAVE PASSED THE PAGE BOUNDARY
HEN

: :

POINT KPAR2 TO A NEW PAGE

SET THE VIRTUAL ADDRESS TO PAGE 2

: ENDIF
ENDFOR

l‘

Cé

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43 Page 21-3

SEQ 0067

TEST - CHECK PARITY DETECT LOGIC AND RAMS
2714 011416
2715
2716

60¢

000762

: LET'S NOW MAKE SURE THAT THE ABORTS DON’'T OCCUR

271 7

2718 011420
2719 011420
2720 011426
2721 011432
2722 011432
2723 011440
2724 011442
2725

012737
012701

001600
040000

172344

052737
105711
012737

000001

172100

177777

003054

708:
75%:

MOV
MOV

SET UP PAR 2

#1600, 3¢KIPAR2
#40000,R1

SET VIRTUAL ADDRESS TO PAGE #2

BGNDO

: ENABLE PARITY ERRORS
: READ THE BYTE

BIS
TSTB
MOV

2726

)
3

2727
2728
2729
2730
2731
2732

004056
172100

172100

000200

80%:

mer

R1, #60000

754

#200 MCKIPAR2

172344

#40000,R1

SHCIPAR2, #20000

172344
177572
172100
000116
000114

i IF A PARITY ABORT HAS OCCURED

PARABT
804
PARABT
MER
+63

004056

90%:

NXTST:

§§§§

2733
2734 011450
2735 011454
2736 011456
2737 011462
2738 011466
2739 011470
2740 011474
2741 011476
2742 011502
2743 011504
2744 011512
2745 011516
2746 011524
2747 011526
2748 011530
2749 011534
2750 011540
2751 011544
2752 011550
2753 011552

: THEN

INITIALIZE THE MER

ERROR A PARITY ABORT HAS OCCURED

;

: BUMP UP THE ADDRESS

;

:xr"u&HAVE PASSED THE PAGE BOUNDARY

: :

H
H
H
H

1! "POINT KPAR2 TO A NEW PAGE

SET THE VIRTUAL ADDRESS TO PAGE 2

: ENDIF

DOUNTIL WE HAVE READ ALL ADDRESSES
DISABLE THE MMU

:RESTORE PRIORITY
RESTORE VECTOR
NEXT TEST
THE
TO
15GO

1\*

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 22

SEQ 0062

TEST - LTC BIT 7

.SBTTL

2755
2756
2757
2758
2759

R R

R A

R R R

This test check for the existance of the LTC register and it
BGNTST

Set up timeout vector PC to TIMOUT
Set up timeout vector PSW to 7

2763

2764
2765
2766

011624
2788 011624
2789 011624
2790 011632
2791 011640
2792 011646
2793 011652
2794 011654
2795 011656
2796 011662
2797 011666
2798 011674
2799 011676
2800 011700
2801 011702
2802 011704
2803 011706
2804 C11710
2805 011712
2806 011714
2807 011716

makes sure that the clock is ticking.

2761
2762

011552
2785 011554
2786 011562
2787 011564
011570

e T

LTC BIT 7 TEST

2760

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

TEST - LTC BIT 7

Readthc LTC CSR

IF not timed OUT THEN
a set amount of time
: FOR
Check bit7
IF BIT7 is set THEN
Increment BIT7 set flag
SE

: ENDFOR

INCREMENT BIT7 Clear Flag

: IF either flag
3

ENDTST

Error Clock

has not been set at all THEN
is not ticking

TIMOUT: Clean stack

Error LTC register timed out

;LTC BIT7 TEST

000004
032777
001420
104401
000415

013737
012737
012737
005737
005000
005001
012703
012702
032737
001402

010000

167356

iéttt.tttt‘tttttt‘tt‘ttt“tttttt‘ttttttt‘ttttt.t‘t.tt‘t‘ttttt‘ttt
Til:

011572

#8IT12,aSWR
1000
300294
84

MOV
MOV

MOV

@04, SAVTIM

TST

CLR
CLR
MOV
MOV
BIT
BEQ
INC
BR
INC
508
ST
BEQ
ST
BNE

LKS

RO
R1
#1,R3
8177777 .R2
#BIT7,LKS
5%
RO
104
R1
R2,1$
20
R1
254

;300298‘ $:
000004
011736

003016

10004:

177546
000001

177777

000200

177546

18:

5%
10

077315

BIT
BEQ
TYPE
BR

208:

SOB

"ASCIZ

<15><12>/TEST 11 - LTC BIT7 TEST/

01060
806

R3,1$

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
THEN TYPE TEST TRACE
! \TYPE ASCIZ STRING
,‘GET OVER THE ASCIZ

UNEXPECTED TIMEQUT

SAVE
:; SET UP THE TIMEOUT TRAP
3

:
:
;
:
;
:
:
;
:
;
:
:
;
:

READ THE LKS REGISTER

CLEAR THE HIGH COUNTER
CLEAR THE LOW COUNTER
SET UP A COUNT
FOR AN AMOUNT OF TIME
: CHECK BIT7 OF THE LKS
-IFITISA"l" THEN
BUMP UP RO
: ELSE
BUMP UP R1
ENDFOR
IF RO = O OR
THEN
RL =0
ERROR WITH BIT7 OF LTC

: TOLERATE ONE ERROR ONLY

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST - LTC BIT

2808 011720
2809 011722
2810 011726
2811 011734

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 22-1

SEQ 0069

104053
005037

013737
000412

172100
003016

ERROR
000004

25¢:

cir

MOV

mer

SAVTIM,a@e4

TsT12

; ENDTST

RESTORE UNEXPECTED TIMEOUT

;160 TO THE NEXT TEST

: TIMEOUT ROUTINE
6

2817 011736
2818 011744
2819 011746

012737

104054
005037

022626
013737

011752

000004

172100

003016

000004

100$:

102¢:

mov

#1024 ,9#4

clr

mer

ERROR

CcMP
MOV

+54

; REPORT ERROR

(SP)+,(SP)+
SAVTIM, 3#4

; CLEAN STACK
; RESTORE UNEXPECTED TIMEOUT

i‘

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 23

SEQ 0070

- LKS INTERRUPT PRIORITY

.SBTTL

_TEST

- LKS INTERRUPT PRIORITY

;CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY S5 CLEARING LKS<07>

2827

;AND DON’'T HAPPEN AT PRIORITY 6.

:ROUTINE TEST

:IF UFD AND LKS IS DISABLED THEN
EXIT TEST

SET PRIORITY TO S
CLEAR INTERRUPT_FLAG

;

LET LKS<06>=#1 (ENABLE INTERRUPTS)

SET COUNTER TO WAIT FOR 3 INTERRUPTS

REPEAT
H

DECREMENT COUNTER

UNTIL INTERRUPT_FLAG EQ #3 OR COUNTER EQ #0
CLEAR LKS<06>
IF LKS<07> EQ #1 THEN

ERROR (WAS NOT CLEARED ON INTERRUPT)

Fa—

;

L
ERROR (INTERRUPTS NEVER GO

;

ERROR CINTERRUPTS DON’T HAPPEN)

CLEAR INTERUPT_FLAG

INTERRUPTS FOR_800HZ
IF COUNTER LT TIME_REQUIRED_FOR_3

IF INTERRUPT FLAG LT #3 THEN

;s
;

WAIT FOR LKS<75=1
LET LKS<7>=0

IF LKS<7> NE #0 THEN

ERROR (LKS<7> NOT CLEARED

ENDIF
SET PRIORITY TO 6

SET COUNTER TO 1 SLOW CLOCK INTERRUPT

SET LKS<06>
REPEAT

DECREMENT COUNTER

UNTIL COUNTER EQ #0 OR INTERRUPT_FLAG NE #0
IF INTERRUPT _FLAG NE #0 THEN

’a

ENDIF

ERROR (INTERRUPT WAS AT WRONG PRIORITY)

RESTORE ORIGINAL PRIORITY

8 ENDROUTINE

RMIPE LINE_CLOCK_INTERUPT

NCREFENT INTERRUPT_FLAG

:E'DRWTI'E
011762
2873 011764
2874 011772
2875 011774
012000

b
T

000004
032777

010000

104401

012002

000422

167146

032737
001400

score
BEQ
TYPE
BR

1000$
300314
%0030$

BIT
BEQ

#8IT06, 3052
1$

BIT

%3283"’

012046

2876 012046
2877 012046
2878 012054

tér12:

000100

000052

1000§:

#8IT12,3SWR
"ASCIZ

3 IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER

THEN TYPE TEST TRACE
*GET OVER THE ASCIZ

}TYPE ASCIZ STRING

<15><12>/TEST 12 - LKS INTERRUPT PRIORITY/

;UFD MODE?
:IF NOT, GO DO TEST

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesday 09-Apr-86 09:43

Page 23-1

SEQ 0071

- LKS INTERRUPT PRIORITY

: WAIT FOR 3 INTERRUPTS AND CHECK LKS<7> TO BE O AFTER INTERRUPT

2879
2880
2881
2882 012056
2883 012064
2884 012070
2885 012074

177546

002406
000100

2896 012150

NTERRUPTS

2897 012156
YES, BRANCH

012701
052737
032737
001003
104042
005037

106427
004737
022737
?
001372

077777
000100
000100
172100
000240
030610
000003

002404

MOV
BIS
BIT
BNE
ERROR
clr
MTPS
Jjsr
cmp

bne

#B8I706,LKS
LKSFL
lkent
a#100,savloc
#clkent,a#100

; FROM END OF TEST 427? PROBLEM

#77777.,R1

;COUNTER FOR SLOW CLOCK
;SET INTERRUPT ENABLE BIT

#B81706,LKS
#B8IT06,LKS
2%
+42

mer

;save wht was in 100

;MOV

#LKSINT, 100

000340
000100
000100

177546
177546

172100
000003

002404

000003

001124

4%:

6$:

78:
8%:

172100

2913 012230
2914
2915
2916
2917 012234
2918 012240
2919 012244
2920 012250
2921 012256
2922 012256
2923 012262
2924 012264

;BIT SET OK?
;IF YES, BRANCH
;ERROR WRITING 1 TO LKS<6>

#3,lken

;CMP

#3,LKSFL

3¢

;BEQ

; CHECK

177546

10¢:

012737
104010
005037
106427
042737
013737

11%:

002404
001124

172100
000100
002406

#B81IT06,LKS
#B8I7T06,LKS

clr

mer

74
+42

#3, lkent
9¢
#3, $GDDAT
+7

;RAISE PRIORITY

;:DISABLE INTERRUPTS

;LKS<6>=0?

;IF_YES, BRANCH

;ERROR WRITING O TO LKS<6>
:DID 3 INTERRUPTS HAPPEN?
:IF YES, BRANCH

:3 INTERRUPTS EXPECTED

: INTERRUPTS DON’'T HAPPEN

INTERRUPTS HAPPEN AT PRIORITY 6
#300
#77777,R1
#B8IT06,LKS

177546
000100

12%:

;:CLEAR INTERRUPT FLAG
;RAISE PRIORITY TO 6
;COUNTER FOR SLOW CLOCK

;:SET INTERRUPT ENABLE BIT

lkent

;ANY INTERRUPTS?

lkent
124
#6, $GDDAT
+10

;ANY INTERRUPTS?
:IF NO, BRANCH

114

030610

005737

BIC
BIT
BEQ

lkent

002404

TINUE WITH COUNT

#340

mer
H

002404
000300
077777
000100

MTPS

mer

#340

;POI

;SET PRIORITY T0 S

0.?42e 1
pc,

;CLEAR INTERRUPT FLAG

: DISABLE INTERRUPTS AND CHECK THAT PROPER CONDITIONS ARE MET

2899
2900
2901
2902 012160
2903 012164
2904 012172
2905 012200

2932 012316
2933 012324

mov

177546
177546

2898

2925
2926 012270
2927 012274

BIC
CLR
clr
mov

“w

- 2886 012102 012737
VEC;N TO ROUTINE
288
2888 012110
2589 012114
2890 012122
2891 012130
2892 012132
2893 012134
2894 012140
2895 012144

i‘:

wnn

TEST

MACRO V05.03

#BI76,LKS
attsavloc,a#100

;IF_YES, EXIT LOOP
R1,10%
:S08

;:STORE PRIORITY FOR TYPE OUT

; INTERUPTS HAPPEN AT WRONG PRIORITY
;RESTORE PRIORITY
;DISABLE CLOCK INTERRUPTS

1
i3

—\

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

Page 24

Wednesday 09-Apr-86 09:43

MACRO V05.03

SEQ 0072

- RESETTING LKS
.SBTTL

2935
2936
2937
2938
2939

TEST

- RESETTING LKS

;RESETTING LKS(*)

;THIS TEST WILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>.

;ROUTINE TEST
:IF UFD AND LKS IS DISABLED THEN
EXIT TEST

IF
;END
i
H

SYNCHRONIZE LKS BY WAITING FOR 3 PULSES

LET LKS<06>=#1

EXECUTE “RESET"
IF LKS<6> NE #0 THEN
A
ERROR

B
5
;

ENDIF

IF ILLEGAL _LINE_CLOCK_INTERRUPT NE O THEN

H
;

POINT LKS VECTOR 100 TO ERROR_LKS_ILLEGAL _INTERRUPT

ENDIF

ERROR

ENDROUTINE

ROUTINE ERROR_LKS_ILLEGAL_INTERRUPT
FLAG ILLEGAL ' TNE_CLOCK_INTERRUPT
H

: RETURN

%é?{?t‘i;EESE“t"t“‘tt“tttttOttttt“t‘ttttt#“tttttttt.“t‘t"
000004

032777
001423
000420

012412
2962 012412

2970 012430

2971 012430
2972 012436
2973 012442

005737
001053
032737
001400

2977 012464
2978 012470
2979 012474
2980 012500
2981 012504

166576

012352

30032¢:
10005:

001206
000100

BIT
BEQ
TYPE
BR
; 300334
©

000052

013737
005037

012737

052737

005037
012702
106427
004737
022737

NTERRUPTS HAPPENED?

ERWISE,

KEEP WAITING

2984 012514

2985 012520
2986
2987 012522

;FIRST PASS?
EXIT TEST
PASS,
FIRST
NOT
:;IF
;UFD MODE?
:IF NOT, BRANCH

18T
BNE
BIT
BEQ

$PASS
15714
#81T06,3952
1

mov

a#100,savloc

mov

#clkent, 84100

MOV
BIS
CLR
MOV

#340, 30102
#8IT06,LKS
LKSFL
$77777,R2

;AT PROIRITY 7
:SET INTERRUPT ENABLE BIT
:CLEAR INTERRUPTS FLAG
:COUNTER TO WAIT FOR INTERRUPTS

Jjsr

pc.dela

;CMP

#3,LKSFL

;31

bne

;BEQ

3¢

;EXT

;508

R2,2$

: SYNCHRONISE WITH LINE TIME CLOCK BY WAITING FOR 3 INTERRUPTS
000100

002406

027530

000100

000340
000100
002402
Q77777

000102

030610
000003

1$:

clr

177546

002404

2%:

1 50 Tay Jusm
2983

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
#8IT12,3SWR
THEN TYPE TEST TRACE
i~
1000$
: s TYPE ASCIZ STRING
300333
; ;fGET OVER THE ASCIZ
300323
13 - RESETTING LKS TEST/
/TEST
<15><12>
ASCIZ

2974
UP INTERRUPT VECTOR
2975 012450 012737

2976 012456

010000

106427

000340

013737

002406

000005

34:
000100

4%:

MTPS

cmp

lkent

#240

#3,1lken

MTPS

#340

mov

savloc,a#100

RESET

{MOV

OLKSINT,3#100

;SET

:LOWER PRIORITY TO S

:RAISE PRIORITY TO 7

{EXECUTE RESET

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

- RESETTINC LKS

MACRO V05.03

012530 032737 000100 177546
2988
5989 019536 001403
104011

5990 012540
ggé 012542 005037

172100

Wednesday 09-Apr-86 09:43

BIT
BEQ

ERROR
clr

#BIT06,LKS
T5T14

11
mer

Page 24-1

S5EQ 0073

INTERRUPT ENABLE BIT CLEARED?
+3IF S0, EXIT TEST
DOESN'T CLEAR LKS
"RESET

—\

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 25

SEQ 0074

- MAINTENANCE REGISTER TEST

2994
2995
299%
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008

.SBTTL TEST - MAINTENANCE REGISTER TEST
;
;MAINTENANCE REGISTER TEST

:THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS
:7-4 TO BE 0010, 2-1 TO BE 10, AND READ BITS 10-08, 03, 00
THE FOLLOWING SIGNALS:
iIFOR FUTURE USE. THOSE BITS REPRESENT
:MULTIPROCESSOR SLAVE, UNIBUS SYSTEM, FPA AVAILABLE, KALT/TRAP
:OPTION, AND AC POWER OKAY.

;ROUTINE TEST

IF MAINT. REG. BITS <7-4> NE 0010 OR <2-1> NE 10 THEN

ENDIF

ERROR

READ MAINT.REG. BITS <10-08,03,00>

; ENDROUTINE

012546

3009 012550
3010 012556

3011 012560
012564

012634
3012 012634

3013 012634

000004

'3tttttt‘tt‘t‘t‘tttt‘##‘tt“‘tt‘“tl‘.‘.“tt‘.t“‘t“tttt“““t‘

032777

010000

104401

012566

001426

000423

032737

177000

005037
032737

172100
000010

3020 012662

042737

000010

3022
3023 012676
3024 012700
3025 012702

022737
001401
104043
005037

SCOPE

000105

172100

177750

1000:

#8IT12,3SWR
10004
300354
30034$

BIT
BEQ

#177000,MAIREG
14

;UNUSED BITS ALL ZEROS? ;MCO01
:CHANGED FROM 174000 FOR THE DA
;IF OK, BRANCH

cir

mer

;IF JUMPER IS IN
;: THEN
:: SET HALT TO 0DT
:: MAINTENANCE REGISTER SHOULD BE SET UP TO

Erlmon

177750

18:

177750
177750

2%:

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
: _ THEN TYPE TEST TRACE
;s TYPE ASCIZ STRING
: *GEY OVER THE ASCIZ

BIT
BEQ
TYPE
BR

iagosgzss:

3017 012646
3018 012652

3021 012670

166362

1ST14:

BIT
BNE
BIC
cMP

ASCIZ

+43

#8173, MAIREG
#8173, MAIREG
#105, MAIREG
24

BEQ

clr

mer

ERROR

<15><12>/TEST 14 - MAINTENANCE REGISTER TEST/

+43

:MAINTENANCE REGISTER ERROR

;: CHANGED FROM <5,2> FOR THE DA

:IF S0, BRANCH

:MAINTENANCE REGISTER ERROR

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 26

SEQ 0075

- SERIAL LINE UNIT REGISTERS
.SBTTL TEST - SERIAL LINE UNIT REGISTERS
.
;SERIAL LINE UNIT TEST(%)

3028
3029

;BCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE_PROG;RAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN
;:RCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING
THE LINE CLOCK INTERRUPT SUBROUTINE WILL BE
;TO 1 XCSR<02>.
;USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS, IF THE
;PROGRAM HANGS IN THE LOOP BACK MODE.

;ROUTINE TEST

;IF UFD AND CONSOLE NOT PRESENT
GO TO TEST_22

;ENDIF

i
i

§e

IF BCR<07> EQ #0 THEN
READ BCR<2-0> T9 GET BAUD RATE

LET 4=ADDRESS_OF _TIMEOUT

, XBUF
DO FOR RCSR, XCSR,RBUF

_ROUTINE

XBUF
READ XRCSR,XCSR,R,BUF

IF TIMEOUT FLAG NE #0 THEN

ENDIF

ERROR

; ENDROUTINE

*ROUTINE TIMEOUT

LET TIMEOUT_FLAG=#1

' ENDROUTINE

012724

000004
032777
001426
104401
000423

012774
3060 012774
3061 012774
3062 013002
3063 013004

032737
001402
000137

012706

3057 012710
3058 012716
3059 012720

3067 013010
3068 013014
3069 013022
3070 013030
3071 013034
3072 013040
3073 013044
3074 013046
3075 013050
3076 013054
3077 013056
3078 013062
3079 013064
3080 013066

013701
012737
012737
012702
012703
012704
005712
000405
010237

';‘“tt#“tt‘t‘tttt‘#“ttttt‘tt‘t‘tt‘..t‘tttt‘ttt“ttttt‘t‘lttttt

010000

166222

1ST15:

012726

SCOPE

#8IT12,8SWR
1000$
300374
300364

BIT
BEQ
JMP

#BITO06, 3952
14
SLEND

;UFD MODE?
;IF NOT, GO DO THE TEST
:IF TRUE, SKIP ALL SLU TESTS

MOV
MOV
MOV
MOV
MOV

#3$ ,ERRVEC
#340 ,ERRVEC+2
#RCSR,R2
#XBUF ,R3
#2,R4

:POINT NEW ONE TO PROGRAM AREA
;AT PRIORITY 7
:START ACCESSING WITH RCSR
;
:

!';63323"’
000100
016714

000004
013050
000340
177560
177566
000002
001126

172100

176500

000052

1000%:

"ASCIZ

<15><12>/TEST 15 - SLU REGISTER ACCESS TEST/

! TRY TO ACCESS SLU REGISTERS
ERRVEC,R1
MOV
is:

24:

34 '

43:

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
: _ THEN TYPE TEST TRACE
: s TYPE ASCIZ STRING
; *GET OVER THE ASCIZ

BEQ
TYPE
BR

BIT

TST

(R2)

33 $BDDAT
%v
Etltaon .12
MP

BLO

MOV

RS, (R2)+
2%

#RCSR1,R2

.SAVE TIMEOUT VECTOR

{ACCESS SLU REGISTER

'g';m"g %'TWTIME ouT

: TIMEOUT ACCESSING SLU REGISTER

{LAST REGISTER ACCESSED?
:IF NOT, BRANCH

:GET POINTERS TO SLU 1

——

—

COKDDBO KD '111-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Rpr-86 09:43

- SERIAL LINE UNIT REGISTERS

3081 013072 012703 176506
3082 013076 077416
3083 013100 010137 000004

3084

MOV
S0B
MOV

#XBUF1,R3
R4,2%
R1,ERRVEC

258 oot

Page 26-1

‘

;GET LAST ADDRESS ON SLU 1
;RESTORE TIMEOUT VECTOR

;

—2-

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 27

SEQ 0077

- XCSR BIT 7

.SBTTL

TEST

XCSR

<07>

- XCSR BIT 7

CHECK THAT XCSR<07> CAN BE O AND 1.
TRANSMITTER READY

ROUT INE TEST

WAIT FOR XCSR<07>=#1 NO MORE THAN 200MSEC
IF XCSR<Q7> NE #1 THEN

ERROR
ENDIF
LET XBUF =#NULL
WAIT FOR XCSR<Q07>=#1
LET XBUF=#NULL

3100
3101
3102
3103
3104

IF XCSR<Q7> NE O THEN
ERROR (READY DIDN'T GO LOW)

ENDIF

| ENDROUTINE

013104
3105 013106
3106 013114
3107 013116
3108 013122
3109 013124
3110 013130
3111 013132
3112 013132
3113 013140
3114 013142
013146

000004

;ttt‘tttt‘tttttttt‘tttttt‘ttttt‘t‘t.‘tt“‘t“t“““tt“t"t.ltt

122737

000001

005737
001403
012704
000455

001206

032777
001423

010000

000416

000002

013150

004737

166000

$4716:

BNE
TST
BEQ
MOV
o BR
T oBIT
BEQ
TYPE
BR
jsr

030610

#APTENV, $ENV

1002$
$PASS
1002%
#2,R4
4
#BIT12,3SWR
10004
30039
300384
"ASCIZ

NTER FOR ABOUT 200MICROSEC
3119 013210 012702 177564
3120 013214 012703 177566

pc.delay

012704
105712
100402

000002

1$:

WAITING
004737 030610

105712
100403
104013
005037
012713
105712
100003
104013
005037
012702
012703
012701

24:
172100
000000

172100
176504
176506
001000

as:

MOV
MOV
MOV
1s18
BMI

#XCSR,R2
#XBUF ,R3
#2,R4
(R2)
28

Jjsr

pc,delay

1sT8

(R2)

BMI

ERle
MOV
;‘S,IB

Eslmoa

MOV
cir

MOV
MOV

JARE WE IN APT MODE?

:IF NOT: DO THIS TEST
iIFIRS1 PASS??
:IF YES, DO IT
: LOOP COUNT OF 1
: GO SET UP POINTERS TO SLU 1
; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
THEN TYPE TEST TRACE
} ;TYPE ASCIZ STRING
*GET OVER THE ASCIZ

<15><12>/TEST 16 - XCSR BIT 7 TEST/

1000$:

3117 013210

3121 013220
3122
013224
3123 013226
3124

SCOPE

CMPB

iégoosm

013204
6 0 3204
AST CNARA TER

001220

;MOV

#100000,R1

;MOV

#1000,R1

:1001$: SOB

R1,1001$

;
i
:XCSR<7> READY 1?2

:IF S0, EXIT WAIT LOOP

;508

R1,1$

;XCSR<7>=1?

:IF YES, BRANCH

13
ONULL , (R3)

IXCSR<7> DOES NOT BECOME 1
;TRY TO TRANSMIT NULL CHARACTER

013

IXMIT READY DION'T GO LOW

#XBUF1,R3
#1000,R1

;
;

g??)

$XCSR1,R2

; WAIT FOR L

;XCSR<7>-0

;

;IF

—

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

- XCSR BIT 7

3139 013300
3140

077427

so8

R4,1$

Page 27-1

SEQ 0078

‘

B {

MACRO VO0S.03

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

- RCSR BIT 7 AND XCSR BIT 2

.SBTTL TEST

3145
%i:g;

:RCSR
s XCSR

3148
3149

:ROUTINE TEST
: . (CHECK RCSR<07> AND XCSR<07>)

RECEIVER DONE
MAINTENANCE

WAIT FOR XCSR<07>=#1

3.
:
;
:
:
;.
i
:
;
:
:
:
;
;.
i

LET XCSR<02>=#1 (LOOP BACK MODE)
LET XBUF=#125
WAIT FOR RCSR<07>=#1 NO MORE THAN 200MSEC

IF RCSR<07> NE #1 THEN
ERROR (RCSR<07> DOES NOT BECOME 1 OR XCSR<02>DOES NOT
,
WORK)
ENDIF
IF RBUF NE €125 THEN
ERROR
.
ENDIF
IF RCSR<07> NE #0 THEN
ERROR (RCSR<07>DOES NOT GO LOW)
ENDIF
LET XCSR<02>=#0

: ENDROUITNE

tt"tt‘t.‘ttt“t.‘.tt‘..‘ttt“tt‘tt‘tttt“‘t“ttttt‘tttt‘tt..‘t

3167

013302 000004
122737
3169 013312 001006
3170 013314 005737
3171 013320 001403
3168 013304

3172 013322
3173 013326
3174 013330
3175 013336
3176 013340
013344

013422

001220

000001
001206

gizg 013422
gigé 013422
3183 013426
3184 013432
3185 013436

3186 013442

té117: score
CMPB SAPTENV, $ENV
1002$
BNE
$PASS
TST
10023
BEQ

MOV
012703 000002
BR
000555
032777 010000 165602 1002%: BIT
BEQ
001431
TYPE
104401 013346
BR
000426
300414

460408 :

AST CHARACTER

004737
012701
012702
012703
004737

030610
000013
177560
000002

030610

3187 013446 105762 000004

10004 :

1%:

3188 013452 100410

NOT 1,

<07>
<02>

3%22

3178

:CHECK THAT RCSR<O7> CAN BE O AND 1 AND THAT XCSR<02> WORKS PROPER! Y.

3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164

3177

Page 28

- RCSR BIT 7 AND XCSR BIT 2

3142

3{22

CONTINUE WAITING

#2,R3
124
#8IT12,35WR
1000%
300414
30040

;MOV

;COUNTER FOR ABOUT 200MICROSEC.
;

bmi

iBPL

isr

Yot8

pe.delay

mer

fotb

error

BIS

\XCSR<7> 18READY 1?

ACR2)

clr

3194 013474 052762 000004 000004 2%:

R1,1001$

pc,delay
#13,R1
#RCSR,R2
#2,R3

3193 013470

172100

#100000,R1

jsr
MOV
MOV
MOV

pc ., delay
a(r2)
24

104076

:IF NOT: DO THIS TEST
:IF YES, DO IT
: LOOP COUNT OF 1
: GO SET UP POINTERS TO SLU 1
; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
: ~ THEN TYPE TEST TRACE
: s TYPE ASCIZ STRING
: J}t;st OVER THE ASCIZ
2 TEST/
:FIRST PASS??

:1001$: SOB

isr
bmi

005037

;ARE WE IN APT MODE?

"ASCIZ <15><12>/TEST 17 - RCSR BIT 7 AND XCSR BIT

3189 013454 004737 030610
3190 013460 105762 000004
3191 013464 100403
3192 013466

- —

Wednesday 09-Apr-86 09:43

+76

:SET LOOP BACK MODE

#B81702,4(R2)

; WAIT FOR L

:IF

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 28-1

SEQ 0080

- RCSR BIT 7 AND XCSR BIT 2

TEST

3195 013502
3196 013510
97 013512

032762
001006
005062

104034
005037
000465

000004

BIT

000004

34
4(R2)

TST20

ERROR
clr

172100

;GOT SET OK?

#B8IT02,4(R2)

BNE
CLR

+34
mer

:IF YES,

BRANCH

;RESET 10 PRINT ERROR

:XCSR<2> DOES NOT BECOME !

+sEXIT TEST

: STALL FOR A WHILE IN CASE XCSR<2> CAUSES RCSR<7> TO BE 1

€5B§8§

=
a
o

LL IN CASE XCSR<2> SETS READY

o2
iv]
R

oA WINNFO

2
s e e e o

<1]

44:

100403

STAY FOR A WHILE

ERW

000402
005762

S$:

000002

012762

000021

105712
100402

Jjsr

(R2)
S$

pc,delay

;IF RECEIVER READY SET?
:IF SET, BRANCH
R1,4%
;508

;0TH

; IF NOT READY, BRANCH
;READ RBUF

TSTB
BMI

TST

2(R2)

6$:

MOV

#21,6(R2)

;TRANSMIT A CHARACTER

74:

1STB

(R2)

;RCSR<7> READY 1?

84:

105712

172100
00000,
000021

001126
001126

000021

001124

172100

3242
3243 013672
3244 013674
3245 013676
3246

;STA

; TRANSMIT XON AND CHECK RCSR<7>

004737 030610
3220
ERWISE, CONTINUE WAITING

3221

#60000,R1

MOV

34:

526

012701
005303
005703
001261

176500
000013

«
94

10%:

114:
12%:

BMI
Jjsr

TSTB

84
pc.delay

(R2)

BMI
CLR

94
4(R2)

clre
MOV

mer
2(R2), $BDDAT

BEQ
MOV

104
#21, $GDDAT

ERROR

+14

;MOV

#60000,R1

;IF YES, EXIT WAIT LOOP
:S08B

R1,7%

;RCSR<7>=1?
;:IF YES, BRANCH
;RESET XCSR<2>

;RECEIVER READY DIDN'T COME LP

921, $BODAT

;STORE RECEIVED DATA
;:DATA RECEIVED OK?
:IF YES, BRANCH

CLR

4(R2)

;RESET TO ENABLE SLU
;WRONG CHARACTER RECEIVED

7S78

(R2)

;:RCSR<7>=07?
:IF ZERO, BRANCH

cHP
ERROR
clr

+15
mer

BPL
CLR

11$
4(R2)

BIC
MOV
MOV

#B81702,4(R2)
#RCSR1,R2
#13,R1

ERROR
clr

dec
tst

bne

+16
mer

;COU

{RESET TO ENABLE SLU

:RCSR<07><>0 AFTER READING RBUF
;:DISABLE LOOP BACK MODE
;POINT TO SLU 1

;SET UP COUNTER
R3,1$
:S08

;0TH

COKDDBO KDJil-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 29

SEQ 0081

- RESET AND XCSR<2!0>

.SBTTL TEST - RESET AND XCSR<2!0>
;:CHECK THAT RESET CLEARS XCSR<O!2>.

3248
3249

545 §

;sROUTINE TEST

;. (CHECK RCSR<07> AND XCSR<07> AND RESET)
LET XCSR<02§8$:-01 (LOOP BACK MODE)
.

3251

3260

013700

3261 013702

3262 013710
3263 013712

3264 013716
3265 013720
3266 013724
3267 013726
3268 013734
3269 013736
013742

;
;.

EXECUTE “RE
IF XCSR<02100> NE #0 THEN

ENDIF
;.
LET XCSR<02>=#0
=
: ENDROUTINE
000004
122737
001006
005737
001403
012703
000451
032777
001426
104401
000423

H 't"t‘t“"‘ttt‘tt‘tt‘#t“ttttt#t““t.t“tt#“t‘t‘“"t“‘t““

000001

001220

001206
000002

010000
013744

165204

15120:

SCOPE

CMPB

BNE
ST
BEQ
MOV
BR
1001$: BIT
BEQ
TYPE
BR
; :30043¢
300425:

014012
012702
012703
052712

177564

1000%:

14:
H

MOV
MOV
BIS

#APTENV, $ENV

;ARE WE IN APT MODE?

:IF NOT: DO THIS TEST
1001$
:FIRST PASS??
$PASS
:IF YES, DO IT
1001%
: LOOP COUNT OF 1
#2.R3
: GO SET UP POINTERS TO SLU 1
104
12 IS SET IN SOFTWARE SWITCH REGISTER
BIT
IF
;
#BIT12,8SWR
: © THEN TYPE TEST TRACE
1000$
: s TYPE ASCIZ STRING
30043$
::GET OVER THE ASCIZ
300423
"ASCIZ <15><12>/TEST 20 - RESET AND XCSR<0!2> TEST/
#XCSR,R2
#2,R3
#81702!81700,(R2)

;
:LOOP BACK MODE

: EXECUTE RESET AND VALIDATE THAT XCSR<7,2> BECOMES <1,0>
000005
032712
001405
042712
104022
005037
012702
077316

172100
176504

RESET
SH,

#8IT02!BITO0, (R2)

;EXECUTE RESET
:XCSR<2,0> CLEAR?

BIC

#B1T702!BIT00,(R2)

;CLEAR THE BITS SO WE CAN REPORT

ERROR

10¢:

clre

MOV
S0B

104

+22

mer

#XCSR1,R2
R3,1$

:XCSR<2,0> NOT CLEARED ON RESET
3
:

‘W

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO VO05.03

- RESET AND INTERRUPT ENABLE BITS

3287
3288
3289

Wednesday 09-Apr-86 09:43

Page 30

SBTTL TEST - RESET AND INTERRUPT ENABLE BITS
iCHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY 4 AND THAT RESET
:CLEARS XCSR<06> AND RCSR<06>.

<06>

RECEIVER INTERRUPT ENABLE

329‘1

iRCSR

3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308

:ROUTINE TEST
OF
_INTERRUPT _XRCSR
_ILLEGALESS_
LET 60=#ADDR
i.
_XRCSR
SS
~INTERRUPT
DRE
“ILLEGAL
OF
#AD
LET 64=
;
SET PRIORITY 10 4
:
LET XCSR<02>=#1 (LOOPBACK MODE)
:
LET XCSR<06>=#1 (ENABLE TRANSMIT INTERRUPTS)
;
LET RCSR<06>=#1 (ENABLE RECEIVE INTERRUPTS)
i
WAIT FOR XCSR<07>=#1 C(READY TO TRANSMIT)
;.
LET XBUF=#NULL (SEND A CHARACTER)
i
WAIT FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC)
5
EXECUTE "RESET"
;
IF XCSR<06> NE #0 OR RCSR<06> NE #0 OR XRCSR NE #0 THEN
:
ERROR
.
;
ENDIF
-4
RESTORE PRIORITY TO NORMAL
i

:XCSR

TRANSMITTER INTERRUPT ENABLE

; ENDROUTINE

gggg

:ROUTINE ILLEGAL_ INTERRUPT_XRCSR

3311

3312

INCREMENT XRCSR

; ENDROUTINE

33{2
3315

<06>

014056 000004

3316 014060

122737

000001

001220

fé121: SCOPE
CMPB

BNE
3317 014066 001015
TST
001206
3318 014070 005737
BEQ
001412
014074
3319
MOV
3320 014076 012705 000002
MOV
3331 014102 013737 000004 003016
MOV
3332 014110 012737 015000 000004
JHP
014642
3323 014116 000137
3334 014122 032777 010000 165010 1001$: BIT
BEQ
3325 014130 001433
TYPE
3326 014132 104401 014140
BR
014136 000430
;300454 :

350445

014220

3327 014220
3328 014220
3329 014224

3330 014230
3331 014236
3332 014242
33:3 014246

005037
005037

012737
012701
012704
012705

002360
002356

015000 000004
000060
177560
000002

3335

clr
clr

MOV
MOV
MOV
MOV

1001$
$PASS
10014
#2,R5
@04, SAVTIM
#1008 , 304
20$
#BIT12,aSUWR
1000$
300454
300443

005037
005037

002360
002356

;ARE WE IN APT MODE?

:IF NOT: DO THIS TEST
:FIRST PASS??
:IF YES, DO IT
; LOOP COUNT OF 1
: STORE UNEXPECTED TIMEOUT
: SET UP TIMEOUT
: GO SET UP POINTERS TO SLU 1
12 IS SET IN SOFTWARE SWITCH REGISTER
BIT
; IF
THEN TYPE TEST TRACE
i~
: sTYPE ASCIZ STRING
; _}GET OVER THE ASCIZ

"ASCIZ <15><12>/TEST 21 - SLU RESET AND INTERRUPT ENABLE TEST/

tcount
rcount

#100$ , 304
#60,R1
#RCSR, R4
#2.RS

:; R1 POINTS TO SLU O INTERRUPT VECTOR
: R4 POINTS TO SLU O REGISTERS
: RS IS THE LOOP COUNT

: CHECK THAT INTERRUPTS ENABLE BITS FOR RECEIVER AND TRASMITTER OF SLU
: ARE CLEARED BY RESET

gg;g
3338 014252
3339 014256

1000:

#APTENV, $ENV

1¢:

clr
clr

tcount
rcount

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesda y 09-Apr-86 09:43

Page 30-1

SEQ 0083

- RESET AND INTERRUPT ENABLE BITS
052764
032764
001003
104067
005037
052714
032714

000100
000100

000004
000004

172100
000100
000100

2%:

172100

3s$:

000100

172100
000100

4%:

172100

362 014362
3363 014362 012761
3364 014370 012761
3365 014376 052764
3366 014404 012702
3367 014410 000402
3368 014412 162702
106402
3369 014416
3370 014420 004737
3371
3372 014424 005737
3373 014430 001403
TERRUPTS
3374
T HAPPENED, BRANCH
3375 014432 104021
3376 014434 005037
022702
001362
106427
042764

BIS
BIT
BNE
ERROR
clr
BIS
BIT
BNE
ERROR
clr
RESET
BIT
BEQ
ERROR
clr
BIT
BEQ
ERROR
clr

#B81706,4(R4)
#BIT06,4(R4)

24
+67

;SET INTERRUPT ENABLE BIT IN XCSR
;GOT SET OK?
:IF YES, BRANCH
:IN BIT 6 OF XCSR

;SET INTERRUPT ENABLE BIT IN RCSR
;GOT SET OK?
:IF YES, BRANCH
;IN BIT 6 OF RSCR
#B8IT06,4(R4)

4%
+22

; INLINE BUS RESET
;XMIT INTERRUPT ENABLE BIT CLEARED?
; IF_CLEARED, BRANCH

; INTERRUPT ENABLE NOT CLEARED ON RESET

mer

#B8IT06,(R4)
54
+22

;RECEIVE INTERRUPT ENBLE CLEARED?
; IF_CLEARED, BRANCH
; INTERRUPT ENABLE NOT CLEARED ON RESET

mer

: CHECK THAT TRANSMIT INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN 3
g‘:
XMIT VECTOR TO PROGRAM AREA

015036

MOV
MOV

#200%,4(R1)
#340,6(R1)

MOV
BR

#340,R2
74

MTPS

BIS

000100
000340
~NOon

3340 014262
3341 014270
3342 014276
3343 014300
3344 014302
3345 014306
3346 014312
3347 014316
3348 014320
3349 014322
3350 014326
3351 014330
3352 014336
3353 014340
3354 014342
3355 014346
3356 014352
3357 014354
3358 014356

TEST

MACRO V05.03

030610

002360

SuB

172100

10%:

000200

PC,DELAY

tst

tcount

ERROR
clr

CcMP
BNE

MTPS
BIC

000340
000100

#40,R2

JSR

beq

9%:

#8IT06,4(R4)

10$

;POINT

;AT _PRIORITY 7

;SET INTERRUPT ENABLE BIT IN XCSR
;SET PRIORITY TO 7
;GO WAIT IN CASE OF INTERRUPTS
;LOWER PRIORITY LEVEL
;SET PRIORITY

: TIMER ROUTINE
8

MOV

#41,R3

:8%:

s08

R3,8$

iBR

10¢

;MC

: TIME DELAY

;WAIT FOR IN

; IF INTERRUPTS DIDN’

; INTERRUPTS HAPPEN AT WRONG PRIORITY

<21
mer

#200,R2
64

#340
#8IT06,4(R4)

CMP

(SP)+,(SP)

;AT PRIORITY 4?

;CLEAN UP THE STACK

;IF NOT LAST ONE, CONTINUE
;RESTORE PRIORITY 7

;CLEAR INTERRUPT ENABLE BIT

; CHECK THAT RECEIVE INTERRUPTS DON’'T HAPPEN AT PRIORITY HIGHER THAN 3
3387 014472
3388 014476
3389 014500
3390 014504
3391 014510
3392 014512
3393 014514
3394
3395 014520
3396 014524

012711
012761
105764
100410
004737
105764
100403
104076
005037

015060

052714
012764

000100
000000

MOV
MOV

000002

030610
000004

TSTB
bmi

4(R4)
118

stb
bmi

4(r4) .
115

error

172100

000006

11¢:

#202%| (R1)
#340,2(R1)

pc,

;POINT RECEIVE VECTOR TO PROGRAM AREA
;AT PRIORITY 7

: TRANSMITTER READY

:BPL

11¢

;IF NOT, WAIT

+76

clre

mer

BIS
MOV

#B1706,(R4)
#NULL ,6(R4)

;SET INTERRUPT ENABLE BIT IN RCSR

;:TRY TO TRANSMIT NULL

4‘

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 30-2

SEQ 0084

- RESET AND INTERRUPT ENABLE BITS

3397 014532
3398 014536

3407 014574
3408 014576
3409

3415 014610
3416 014614
3417
3418 014620
3419 014622
3420 014624
THE_LOOP
3421
3422 014630
3423 014634
3424 014642
3425 014646
3426 014652
3427 014654
3428 014656
3429 014662

3430
3431
3432
3433
3434
3435
3436
3437
3438 014662
3439
3440 014666
3441 014672
3442 014674
3443 014702
3444 014704
3445
3446 014706
3447
3448
3449 014714

3450 014720
?‘SI 014724
Se
3453 014730

012702
000402
162702
052764
106402
004737
005737
001406

000340
000040
000004

000004

030610
002356

000004

005037

000200

106427
042714

000340
000100

030610

005764

000002

ERROR
cle

#8IT02,4(R4)

+21
mer

#200,R2
cMP
124
BNE
: CLEAN UP BEFORE NEXT TEST

174:

004737

BIC

#340,R2
134
#40,R2
#8I702,4(R4)
R2
PC,DELAY
rcount
164

168

105714

042764
012701
012704
005305
001402
000137

15¢:

172100

022702
001354

100402

124:
13$:

MOV
BR
SuUB
BIS
MIPS
JSR
tst
beq

184:

208:

176500
014252

19%:

MIPS

+SET PRIORITY T0 7
;GO WAIT IN CASE OF INTERRUPTS
;LOWER PRIORITY LEVEL
;SET LOOP BACK MODE
:SET _PRIORITY
; TIMER ROUTINE

:
;144:

MOV
SOB

;BR

164

#140,R3
R3,14¢

iCMP

;IF NOT LAST ONE, CONTINUE

1ST8

(R4)

Jjsr

pc,delay

ST
BIC
MOV

2(R4)
#81702,4(R4)
#300,R1

DEC
BEQ
JMP

RS
194
18

MOV

184

#RCSR1,R4

;CLEAN UP THE STACK

(SP)+,(SP)+

:RECEIVE READY?

BMI

; IF INTERRUPTS DIDN'

;AT PRIORITY 4?2

;RESTORE PRIORITY 7

#8IT06,(R4)

:CLEAR INTERRUPT ENABLE BIT
#400,R2
:MOV

;STALL DELAY

:STOP WAITING, IF SO
R2,17%
:S0B

;OTHERWISE, STAY IN |

;READ CHARACTER TRANSMITTED
;CLEAR_LOOP BACK MODE
; POINT TO SLU #1 VECTOR
POINT TO SLU #1 REGISTER

; loop back connector test
H

012702

000002

1108:

000001
000001

002362

176504
012703
004737
113700
112300

003004
030610
176502

mov

#2.r2

;counter

bit

#1,r2

Hziopb.k

; odd or even 277

120%
1144

—

112¢:

bis

#bit02, xcsrl

;set the maintenance bit in the
;csr to do the internal loop back

114%:

mov

Otc'd\:I.rS

;pointer of .byte : -1,

1168:

movb

Berbufl,ro

movb

(r3)+,r0

s TIME DELAY
;WAIT FOR IN

;CLEAR LOOP BACK MODE
; INTERRUPTS HAPPEN AT WRONG PRIORITY

4340

BIC

iMC

0
21, -1,

;allow last character from terminal

;suck any extra character

;put the first character in r0

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 30-3

SEQ 0085

- RESET AND INTERRUPT ENABLE BITS

3454 014732
3455 014734

3456
3457
3458
3459

014740
014744
014750
014752

3461 014754
3462 014762
3463 014764

001415
110037
004737
105737
100401
104077

123737

001762

176506
030610

176500

176502

176506

118%:

077241

3468 014770
3469 014770
3470 014776

013737
000440

1204
r0,xbufl
pc,delay
a#rcsrl
118¢%
+77

cmpb
beq

dé#rbufl, d#xbufl
1164

sob

r2,110$

MOV
BR

SAVTIM, a#4
TST22

error

104100

3465 014766
3466 014766

beq
movb
jsr
stb
bmi
error

120%:

003016

500%:

;done with this pass of this test
itransmit
;allow some time
;receiver ready 77
;no character received

;wrong character received

+100

;:G0 T0

;RESTORE UNEXPECTED TIMEOUT

THE NEXT TEST

; DEBUG PURPOSES
3476 015000
3477 015004
3478

106427
042714
105714
100403

004737

000340
000100

100$:

170$:
030610

105714
005764
042764
000000

1808:

Jjsr

pc,delay

;RESTORE PRIORITY 7
;CLEAR INTERRUPT ENABLE BIT
#400,R2
;MOV
;RECEIVE READY?
;STOP WAITING, IF SO
R2,170%
:S08

tstb
TST

(r4)
2(R4)
#B81702,4(R4)

;READ CHARACTER TRANSMITTED
;CLEAR LOOP BACK MODE

MTPS
BIC

#340
#B81706,(R4)

TSTB
BMI

(R4)
1804

8IC

HALT

;STALL DELAY

;OTHERWISE, STAY IN

' INTERRUPT SERVICE ROUTINES
.

3501 015072
3502 015076
3503
3504
3505

002360

200§ :

000100
002360

61$:

002356

202%:

000100
002356

81$:

tst

bne
bic
inc

RTI

TCOUNT

; INCREMENT TRANS. COUNTER ;MC

tcount

;RETURN FROM XMIT INTERRUPT ;MC
; INCREMENT RECEIVER COUNTER:MC

61¢
#bit6,4(rd)

tst

RCOUNT

bic

#bit6,(rd)

bne
inc

RTI

81%

rcount

;RETURN FROM RECEIVER INTERRUP

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V0S5.03 Wednesday 09-Apr-86 09:43

Page 31

SEQ 0086

- INTERRUPT PRIORITY FOR SLU

.SBTTL

TEST

- INTERRUPT PRIORITY FOR SLU

;:CHECK THAT INTERRUPTS HAPPEN AT PRIORITY 3 AND THAT THEY CLEAR

.RCSR<06> AND XCSR<06>.

.ROUTI?E TEST

LET 60=#ADDRESS_OF _LEGAL _RINTERRUPT

LET XCSR<02>=#1

ENDIF

ENDIF
LET XCSR<02>=#0
SET PRIORITY TO NORMAL

LET 64=#ADDRESS_OF_LEGAL_XINTERRUPT

SET PRIORITY TO #3
WAIT FOR XINTERRUPT=#3
IF XCSR<07> EQ #1 THEN
ERROR

3
3
i
3

WAIT FOR RINTERRUPT=#3
IF RCSR<07> EQ #0 THEN
ERROR
H

s
"B
’
3 .

3 ENDROUTINE

;ROUT INE LEGAL _XINTERRUPT

LET XBUF=#CHARACTER

INCREMENT XINTERRUPT

EN)RWTI'E

sRWT INE_LEGAL RINTERRUPT
READ RCSR

INCREMENT RINTERRUPT

| ENDROUTINE
015100
3539 015102
3540 015110
3541 015112
3542 015116
3543 015120
3544 015124
3545 015130
3546 015136
3547 015140

000001

001220

*;‘#“‘t.“.‘t““““‘“.t““.‘““.“.."t‘t‘t““t‘.‘tti‘t.‘t
St22:
SCOPE

CMPB

BNE
TST

001206
015454

010000

BEQ
MOV

164002

015146

015144

33004

015216
3548 015216
3549

030610

AST CHARACTER

$PASS

10004

4
Jjsr

;rmsrPASS??

D0 IT

#2,R5

BEQ

;ARE WE IN APT MODE?

iIF NOT: DO THIS TEST

éoum

10024

20%

300464:

10024

JMP
BIT

1002%:

#APTENV, $ENV

#81T12,3SWR

GO SET uP POINTERS T0 SLU
12 IS SET _IN SOFTWARE SHITCH REGISTER
BIT
s IF
THEN TYPE TEST TRACE
3
;s TYPE ASCIZ STRING

300473

GET OVER THE ASCIZ

.ASCIZ <15><12>/'}EST 22 - SLU INTERRUPT PRIORITY TEST/
$

,dela

; MOV

:1001¢: SOB

1000%:

3550 015222

: GET READY FOR INTERRUPTS
3557 015222
3558 015226
3559 015232

012701
012704
012705

100%:

177560

MOV
MOV
MOV

#60,R1

#2,R5

#RCSR,R4

R
#100000,;

R1,1001

L
; WAIT FOR

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 31-1

SEQ 0087

- INTERRUPT PRIORITY FOR SLU

3560

3561 015236
3562 015236
3563 015240
3564 015244
3565 015250
3566 015256
3567 0152064
3568 015272
3569 015300
3570 015304
3571 015306
3572 015310
3573 015312
3574
3575
3576
3577 015316
3578
3579 015322
3580 015326
3581 015332

104:

011146
016146
012711
012761
012761
012761
052764
012701

18:

105714
100401
077103
005764

28:

MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV

(R1),-(SP)
4(R1),-(sP)
#8%,(R1)
#6$.4(R1)
#340,2(R1)
#340,6(R1)
#81702,4(R4)
#140,R1

BMI
S0B

2%
R1,1$

TSTB

TsT

(R4)

2(R4)

xSfi!E PRE!EOUS VECTOR

sMC

:STORE RECEIVER VECTOR
;STORE TRANSMITTER VECTOR
;AT PRIORITY 7

:FOR RECEIVER AND TRANSMITTER
;SET LOOP BACK MODE

;DELAY FOR UNEXPECTED CHARACTERS

;RECEIVER READY?
:IF YES, BRANCH

;OTHERWISE, WAIT JUST IN CASE
;READ RECEIVER

: SET PRIORITIES AND XMIT INTERRUPTS
012702

000200

162702
005037
005037

000040
002360
002356

MOV
suB
CLR
CLR

#200,R2
240 .R2
TCOUNT
RCOUNT

;START WITH PRIORITY 3
;LOWER PRIORITY

;CLEAR TRANSMITTER COUNTER ;MC
;CLEAR RECEIVER COUNTER ;MC

! TRANSMITTER INTERRUPT HERE

5366
3592 015370

106402
052764
004737
042764
022737
101041
103452

000100
030610
000100
000001

4%:

MTPS
BIS
JSR

BIC
CMP
BHI

002360

BLO

#81706,4(R4)

PC,DELAY
#81706,4(R4)
#1, TCOUNT
5%
200$

;TRY TO DO AT _LOWER PRIORITY

;LOOP BACK & INTERRUPT ENABLE
;WAIT DELAY FOR INTERRUPT ;MC
;CLEAR INTERRUPT ENABLE
;ANY INTERRUPT HAPPENED ? ;MC

:MC
;NO XMIT INTERRUPT
;MC
UPTS
INTERR
XMIT
MANY
;TOO

' RECEIVER INTERRUPT HERE
H

3598 015372
3599 015376
3600 015404
3601 015410
015414
3603 015422
015424

052714
012764
004737
042714

022737
101047

BIS
MOV
JSR
BIC

000100

030610
000100
000001

CMP
BHI

002356

BLO

103460

981706, (R4)

;SET RECEIVE INTERRUPT

#81706,(R4)

:WAIT DELAY FOR INTERRUPT MC
:CLEAR INTERRUPT ENABLE
:ONE INTERRUPT HAPPENED ? ; MC
:NO RECEIVER INTERRUPTS ;MC

ONULL ,6(R4)
PC,DELAY

#1,RCOUNT

201$

:IF DONE GET OUT, IF NOT LOOP
005764
001332
106427
012661
012611
012704

000002

9s:

181
BNE

MTPS

000340

176500

181

20$:

CLR
MOV
MOV
MOV

2(R4)

34
#340
4(R4)

(SP)+,4(R1)
(SP)+,(R1)

#RCSR1,R4

: TRANSMIT NULL

:2 MANY RECEIVER INTERRUPTS ;MC
;READ RECEIVER BUFFER
:PRIORITY O

:IF NOT YET,

CONTINUE

{RAISE PRIORITY TO 7

;CLEAR XCSR
BACK
US VECTOR
PREVIO
:GET
"he
"en
"n
' »
B

I<7

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO VO05.03

Wednesday 09-Apr-86 09:43

Page 31-2

SEQ 0088

- INTERRUPT PRIORITY FOR SLU

3617 015460
3618 015464
3619 015466
3620 015470

012701

005305
001263
000471

MOV

000300

#300,R1

DEC

TsT123

BNE

108

: :IF ERROR, EXIT TEST

;ERROR ROUTINES
3626 015472
3627 015476
3628 015500
015506

33253 015510

3631 015514

012661
012611
042764

104070
005037
000457

000104

172100

clr

mer

MOV
MOV

(SP)+,4(R1)
(SP)+,(R1)

3633 015516 012661
it

012611

104074
005037
000445
012661
012611
042764

104071

000433

104075

005037
000421

ERROR

BR
200§ :

000104

7%:
000104

clr

mer

MOV

(SP)+, 4(R1)

MOV

000104

;:IF ERROR, EXIT TEST

TST123
1)

sGET PREVIGJS vecma BACK

clr

mer

MOV

(SP)e., Q(Rl)

:GET PREVI(DS VECTCR BACK

ERROR

sCLEAR UXP BACK MODE BIT
;2 MANY RECEIVER INTERRUPTS

MOV

BIC

clr

172100

sCLEAR LO@ BACK MODE BIT
;2 MANY XMIT INTERRRUPTS ;MC

oexroé-axros 4(R4)

201%:

iNO XMIT INTERRUPTS

BIC

ERROR

172100

+74

(SP)+

CLEAR LOOP BACK BIT

zGET PREVIGJS VECTOR BACK

OBITOZ'BITO6 4(R4)

sGET PREVIOUS VECTW BACK

:1IF ERROR, EXIT TEST

TST23

BIC

ERROR

172100

012661

012611

(SP)+,4(R1)
(SP)+,(R1)
#B81702!B8IT06,4(R4)
+70

MOV
MOV
BIC

S5¢:

+71

15723
(SP)

TST23

:NO RECEIVE INTERRUPTS

: :IF ERROR, EXIT TEST

1)
4(R4)
oé-axros

mer

:CLEAR L(XP BACK nooe BIT

::IF ERROR, EXIT TEST

:INTERRU’T SERVICE ROUTINES
005737

005737

002360

6%:

000100
002360

614:

002356

8§$:

000100
002356

81$:

tst

TCOUNT

bne

61§

inc

tcount

tst
bne
bic
inc

RCOUNT
81$
#bith,(rd)
rcount

bic
RTI

RTI

; INCREMENT TRANS. COUNTER ;MC

#oit6,4(r4)

;RETURN FROM XMIT INTERRUPT ;MC

; INCREMENT RECEIVER COUNTER;MC
;RETURN FROM RECEIVER INTERRUP

COXDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 32

SEQ 0089

- BREAK CONDITION

.SBTTL

3673

TEST

- BREAK CONDITION

;

; SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE

:C"ECK THAT SENDING BREAK CAUSES FRAMING ERROR.
ERROR
:RCSR <15>
FRAMING ERROR
<«13>
<11>

;
:

:XCSR <00>
sROUTIPE TEST
i

RECEIVED BREAK

TRANSMIT BREAK

LET XCSR<02>=#1
LET XCSR<00>=#1
WAIT FOR RCSR<07>=#1

IF RBUF<15!13!'11> NE #1 THEN

ERROR (ERROR, FRAMING ERROR, RECEIVE BREAK NE 1)

ENDIF
LET XCSR<Q0>=#0

i
i

IF XCSR<00> NE #0 THEN

ENDIF

§a

e
s
:
3
3
i
3

: .
3

ERROR (XCSR<00> DOES NOT GO LOW)

WAIT FOR XCSR<07>=#1

LET XBUF=#NULL (SEND NULL CHARACTER TO SEE ERROR CLEARED)
WAIT FOR RCSR<Q7>=#1
IF RBUF<15!13!11> NE #0 THEN
ERROR
.
ENDIF
LET XCSR<Q0>=#1
EXECUTE “RESET"
IF XCSR<0Q0> NE #0 THEN
ERROR
2
ENDIF

LET XCSR<02>=#0

; ENDROUTINE

000004
032777
001426
104401
000423

{éTtt‘t.‘.“‘0."t‘tt‘t‘.‘t"tt‘.“““‘.‘t.“t“ttt‘t““tt‘t.t.
010000

163254

BIT

#B8IT12,aSWR

s IF BIT 12 IS SET _IN SOFTWARE SWITCH REGISTER

TYPE
BR

300494
$

;;TYPE ASCIZ STRING
*GET OVER THE ASCIZ

BEQ

015674

53300:9‘:

1000$

.ASCIZ

THEN TYPE TEST TRACE

<15><12>/TEST 23 - SLU BREAK CONDITION TEST/

1000%:

' SEND BREAK AND CHECK ERROR BITS IN RBUF
8
3719 015742
3720 015750
3721 015756

3722 015764
3723 015766

3724 015770

052737

052737
032737
001003

000001
000001

005037

172100

176504
176504
176504

1%:

BIS
BIS
BIT
BNE

#BIT02,XCSR1
#8IT00. XCSR1
#BIT00, XCSR1
2¢

clr

mer

ERROR

+27

; TRANSMIT IN LOOP BACK
:SET SEND BREAK BIT

1G0T SET OK?

{IF YES, BRANCH

{WRITING1 TO XCSR<0>

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

012701
105737

JWAIT A WHILE
3733 016026

105737

176500

$735 016034

004737

030610
176500

3734 016032
NOT, WAIT

3
3743 016070
3744 016072
3745 016100
3746 016102
3747 016106
3748 016110
3749 016116

3750 016124
3751 016126

Szgg 016134

e
sga 016144

3759 016144
3760 016150
NOT, WAIT

$761 016152

gng 016156
016162

3764 016164
3765 016166
3766
3767 016172
3768 016200

3773
016220
3774 016222

3775
3776 01
3777 0162
3778 016242
3779 016244
3780 016252
3781 016254

100410

105737
100403
104076

2%:

000100
176500

176502
000001
030610
;ANOTHER DELAY TO GET BREAK
3732

763

Wednesday 09-Apr-86 09:43

Page 32-1

SEQ 0090

- BREAK CONDITION

3725 015774
3726 016000
3727 016004
3728 016006
016010
3729
016014
3730
3731 016022

MACRO V0S5.03

44:

176504

RCSR1

S0B
TST

R1,4$
1
RBUF

Jjsr

pc,delay

BMI
BIS

:STALL DELAY

#100,R1

1STB

;RECEIVER READY?
:IF_YES, BRANCH

;WAIT JUST IN CASE OF A CHARACTER
;READ A CHARACTER
: TRANSMIT BREAK
; MOV #1000,R1

#BIT00,XCSR1

;68
1STB

RCSR1

jsr

rcsrl v

bmi

stb

bmi

error

005037

172100

013737
022737
001407
042737
104025
005037
000467
042737
032737
001407
042737
104027
005037
000451

176502
124000

001126

000004

176504

001126

7%:

000001
000001

176504
176504

000004

176504

8s$:

172100

+76

RBUF1, $BDDAT

BIC

#BIT02,XCSR1

g:ué 'BIT13!BIT11, $BDDAT

+25
mer

15724
#B81T00,XCSR1
;gITOO .XCSR1

BIC

#B81IT02,XCSR1

clr

mer

ERROR

MOV

BR
BIC
gé;

R1,6%

pc,dela

mer

S08

;RECEIVER READY?

;BPL

clr

ERROR
clr

172100

;RESET T0 ENABLE SLU

:BREAK DOES NOT CAUSE ERRORS

$EXIT

;CLEAR TRANSMIT BREAK
:GOT CLEARED OK?
:IF YES, BRANCH

;RESET T0 ENABLE SLU

:ERROR WRITING O TO XCSR<0>

+27

15724

;STORE WHATEVER RECEIVED
:ALL ERROR BITS SET?
:IF YES, BRANCH

$EXIT

: CHECK THAT BREAK CONDITION IS CLEARED

105737
100410

176504

004737

030610
176504

105737
100403
104076

5%:

MOV

005037

172100

012737
105737
100410

000177
176500

004737
105737
100403
104076
005037

030610
176500

013737
032737
001406
042737
104025
005037

176502
124000

ds:;

SAVBR,BCSR

;RESTORE BCSR

bmi

10%

:BPL

7578

fotb

bmi

error

176506

10%:

bmi

error

001126
176504

11%:

104

+76

#177,%XBUF1

10¢

.dela

MOV

TSTB

;XMIT READY?

meerl
mer

g:tb

001126

XCSR1

clr

bmi

172100

MOV

RCSRi
11

;TRY TO TRANSMTM T DELETE
;RECEIVER READY

:BPL

114

,dela

gccorl v
11$

+76

clr

mer

MOV

1, $BDDAT
RBUF

:STORE RECEIVE BUFFER
;ERRORS CLEARED?

BIC

#B8IT702,XCSR1

clre

mer

{RESET TO ENABLE SLU NEXT CHARACTER
;BREAK NOT CLEARED ON

géa

ERROR

;g{Tlf)!BITlB !BIT11, $BDDAT
+25

BRANCH

—

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V0S.03

Wednesday 09-Apr-86 09:43

Page 32-2

SEQ 0091

- BREAK CONDITION

;;gg 016260
3784

042737

000004

176504

12%:

BIC

#BIT02,XCSR1

;CLEAR LOOP BACK MODE

COXDDBO KDJ11-DA CLUSTER DIAG.
TES”

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 33

SEQ 0092

- OVERRUN CONDITION

.SBTTL

TEST

- OVERRUN CONDITION

:CHECK OVERRUN CONPITION

OVERRUN ERROR
IRCSR <14>
: SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE
iROUTINE TEST

i
-

;

LET XCSR<02>=#1 (LOOPBACK MODE)
WAIT FOR XCSR<07>=#1

LET XBUF=#252

WAIT FOR XCSR<07>=#1

;

WAIT FOR RCSR<07>=#1

;

IF LOW BYTE OF RBUF NE #125 THEN

;

LE] XBUF=#125 (SEND THE 2ND W/0 READING THE 1ST CHARACTER)
STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER

poies

ERROR (1ST CHARACTER WASN’'T OVERRUN)

ERROR (NO OVERRUN BIT SET)

IF RBUF<15!14> NE #1 THEN

WAIT FOR XCSR<07>=#1

;

;
;
:

LET XBUF =#NULL
WAIT FOR RCSR<07>=#1
IF RBUF<15!14> NE #0 THEN

ERROR (WASN’'T CLEARED ON THE NEXT CHARACTER RECEIVED)

LET XCSR<02>=80

; ENDROUTINE

000004
032777
001432
104401
000424

6372

012701
077101
052737

105737

:READY TO TRANSMIT?
NOT

sazu:ngssn

100410

$825 016400

3831 016426

004737
105737
100403
104076
005037
012737
105737

3832 016432

1 00410

3826 016404
3827 016410
3828 016412
3829 016414

;RECEIVE READY?
T,

WAIT

3837 016450
3838

004737

105737
100403
104076

005037

%s.t“ttgaget“t‘t.“““‘0‘."t‘t“t“tt“.‘t.“‘.“t‘t““tt.‘
010000

BIT
BEQ
TYPE

162642

016306

B8R

%ososoos‘u:
100000
000004
176504

176504

1001$:

1008:

030610
176504

172100

000021

176500

030610
176500
172100

" MOV

SOB

1$:

%0050

ASCIZ

#100000,R1

R1,1001$

#B1T02, XCSR1

bmi

stb

::orl .

tstb

error
clr

MOV

tstb

xcsri

; WAIT FOR LAST CHARACTER

:SET LOOP BACK MODE
i1s:

TSTB

BPL

XCSR1

;IF

+76
mer

921, XBUF 1
rcsrl

jsr

pc.dela

bmi

clre

mer

error

J}c;st OVER THE ASCIZ

,dela

bmi

stb

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
: © THEN TYPE TEST TRACE
;s TYPE ASCIZ STRING

<15><12>/TEST 24 - SLU OVERRUN CONDITION TEST/

BIS

bmi
176506

#BIT12,aSWR
1004
300514

rcsrl Y
+76

;TRANSMIT A CHARACTER

:28

BPL

TST8B

RCSR1

;IF

4‘

MACRO V05.03

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

3840 016454

105737

;READY TO TRANSMIT?

176504

WAIT

$842 016462

004737

030610

3845 016474
3846 016476

104076
005037

172100

105737

3844 016472 100403

3847 016502

3$:

;WAIT A WHILE

3851 016514
3852 016522
3853 016530
3854 016536

3855 016540
3356 016546
3857 016550
3358 016554
3859 016562
3360 016564
3861 016570
3862 016572

004737

030610

005037

333‘62 016576 000450

176504

000004

172100

001127

000300
176504

3868 016600

NSMITTER READY?

105737

BRANCH AND WAIT

3871 016612

105737

3873 016620
3874 016622

104076
005037

3872 016616 100403
333;2 016626
3878 016634

105737

H
68:

176504

030610

BRANCH AND WAIT

3881 016646

004737

105737

176504

172100

7%:

030610

032737

140000

176502

3888 016672
3889 016700

042737
104033

000004

176504

3891 016706

042737

000004

005037

S 2 cnen

—3nes

#177,XBUF1

; TRANSMIT THE 2ND CHARACTER

sMOV

#175000,R3

jor

pc.delay

S08

;s IF

xcsrl

mer

15125

R3.,4%

;STORE RECEIVED DATA
;EXPETED PATTERN

#8IT02,XCSR1
BIC
+31
ERROR
mer
clr
CMPB #BIT7!BIT6, $BODAT+1
64
BEQ
XCSR1
CLR
+32

:2ND CHARACTER RECEIVED?
:IF YES, BRANCH

:RESET T0 ENABLE SLU

;2ND CHARACTER DIDN'T OVERRUN 1ST

;OVERRUN ERROR BITS SET?

:RESET T0 ENABLE SLU

;OVERRUN DOES NOT SET ERRORS BITS

§ sEXIT

tstb

xcsrl

;TSTB

XCSR1

bmi

;BPL

g‘sr

pc,delay

bmi

172100

176504

B8$:

9%:

xcsrl

error
clr

+76
mer

MOV

, XBUF 1
#NULL
rcsrl

; TRANSMIT NULL CHARACTER
RCSR1
TSTB
i 78

bmi

;BPL

176500

3886 016662

3890 016702

MOV

tstb

176500

3882 016652 100403
3883 016654 104076
3333; 016656 005037 172100
3887 016670 001406

+76
mer

stb

3879 016640 100410
$880 016642

: SEND NEXT CHARACTER TO CLEAR OVERRUN CONDITIONS

3877 016626 012737 000000 176506

;RECEIVER READY?

;BPL

XCSR1

error
clr

3869 016604 100410

%870 016606 004737

1518

pc,delay

clr

172100

3865

3“6
3867 016600

5%:

i34

jsr

RBUF1, $BDDAT
MOV
#140177, $GDDAT
MOV
CMPB #177, $BODAT
5%
BEQ

013737 176502 001126
012737 140177 001124
122737 000177 001126
001406
042737
104031
005037
122737
001406
005037
104032

xcsrl

bmi

LL FOR THE 2ND CHARACTER $$$

NOT,

SEQ 0093

bmi

stb

176504

wwg 016502 012737 000177 176506
3850 016510

tstb
.

3841 016460 100410

3843 016466

NOT,

Page 33-1

- OVERRUN CONDITION

3839 016454

NOT,

Wednesday 09-Apr-86 09:43

pc ., delay

stb

bmi
error
clr

8¢
+76
mer

BIT

#BIT15!8IT14,RBUF1

;ANY ERRORS SET?

BIC
ERROR

#8IT02,XCSR1
+33

:OVERRUN NOT CLEARED ON NEXT CHAR.
;CLEAR LOOP BACK MODE BIT

BEQ
clr

BIC

oo BR

resrl

mer

#8IT02,XCSR1

15125

:IF NOT,

BRANCH

:RESET TO ENABLE SLU

;LAST SLU TEST

;STA‘
|

i‘

COKDDBO KDJ11-DA CLUSTER DIAG.

TEST - OVERRUN CONDITION
38% 016716 000260

MACRO V05.03

NOSLU:

Wednesday 09-Apr-86 09:43

NOP

Page 33-2

JME SKIPPED ALL SLU TEST IN APT MODE ON MORE THAN 1 PASS

3898

——

§ 0006

.‘

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO VO0S.03

- LED'S ON

;DISPLAYED IN LED'S.

gggz

IROUTINE TEST
wne A KEY NOT RECEIVED FROM KEYBOARD DO
.
STALL ALLOWING TIME TO SEE PATTERN
;.
ROTATE LEFT TO LIGHT UP NEXT LED'S
g
;e
ENDDO
i

3905
3906
3907
3908
3909

: ENDROUTINE

3910

3911
3912

3913
3914

3915

016720
3916 016722
3917 016730
3918 016732
016736
017000

t““‘#““‘.t"l“‘t‘ttt“‘t.t“‘“‘“‘t“t““““‘t“‘.““‘

fé125: Scope
000004
BIT
032777 010000 162210
BEQ
001423
TYPE
104401 016740
BR
000420
; 1300538 :
300523:

3920 017000

3921 017000 005005
3922 017002 032737 000001 000052

10004:

3927 017026
3928 017030
ggg 017032
3931 017040
3932 017044
3933 017050
3934 017054
3935 017060
3936 017064
3937 017066
3938 017070
3939
3940
3941

3942 017072

001404
005105
012737
012704
012701
110137
012703
012702
077201
077304

000005 002354
1%:
000020
000000
28:
177520
000004
34
177777
a:

#B1IT12,3SWR
1000$
300534
300523

3952 017114 005737 177562

5%:

; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
THEN TYPE TEST TRACE
:
: s TYPE ASCIZ STRING
:GET OVER THE ASCIZ

25 - KDJ11-DA LED TESTS/
"ASCIZ <15><12>/TEST

#B1T00, 3952
1$
$PASS

1%
BNE
CMPB SAPTENV, $ENV
14
BEQ
RS
COM
#5,LEDCNT
MOV
#20,R4
MOV
#0,R1
MOV
R1,@8NATREG
MOVE
#4.R3
MOV
$177777.R2
MOV
R2,4$
S08
R3,3$
S08
cLe

000241

005201
077413
005705
001411
104401 001170
005337 002354
001352

3943 017072
3944 017074
3945 017076
3946 017100
3947 017102
3948 017106
33‘53 017112

CLR
BIT

BEQ
TST

3923 017010 001413
3924 017012 005737 001206
3925 017016 001010
3926 017020 122737 000001 001220

3951

Page 34

.SBTTL TEST - LED'S ON
iLED'S ON
'THIS TEST WILL INITIALIZE BOR TO CONTAIN A ROTATING PATTERN

3900
3901
3902

3919

Wednesday 09-Apr-86 09:43

INC
S0B
TST
BEQ
TYPE
DEC
BNE

R1
TR
RS
64
,$BELL
LEDCNT
s

RBUF

;FLAG IN NO INTERRRUPT MODE
:IF RUNNING IN CHAIN MODE
iSKIP PRINTOUTS
:1ST PASS?

:IF NOT, SKIP PRINTOUTS
:APT MODE?
YES, SKIP PRINTOUT'S
MODE
:CLEAR FLAG IN INTERRUPT MC
:D0 PATTERN 5 TIMES
;FOR EACH LOOP
:START WITH 1
:TURN OFF FIRST LED
:STALL DELAY
:STALL DELAY
{WAIT A WHILE
;w\n A WHILE

:MC
I FOTTTTTTI 19 ocm.
MC
Rt Opgeen
:RUNNING "IN Imsancuvs MODE?
iIF NOT, EXIT
;

;REPEAT PATTERN 5 TIMES
{READ BUFFER

0095

l‘

MACRO VO05.03

COKDDBO KDJ11-DA CLUSTER DIAG.

TEST - LED'S ON

3953 017120 062706 000004
3954 017124

3955 017132

3956

——

112737

000400

177520 6$:

000000

Wednesday 09-Apr-86 09:43

ADD

MOVE
BR

#4,5P

#0.NATREG
15726

Page 34-1

;ADJUST STACK
; sEXIT TEST

NO MORE

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

- DIFFERENT LEVELS OF INTERRUPTS

Wednesday 09-Apr-86 09:43

Page 35

3958
3959
3960
3961

_SBTTL TEST - DIFFERENT LEVELS OF INTERRUPTS
:DIFFERENT LEVELS OF INTERRUPTS
:THIS TEST WILL PROGRAM @22 BUS EXERCISER TO INTERRUPT AT DIFFERENT
'LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND

3964
3965
3966
3967
3968
3969
3970
3971

:CHECK DIFFERENT LEVELS OF INTERRUPTS.
:ROUTINE TEST
SET VECTOR TO INTERRUPT_DMA
;.
FOR INTERRUPTS FROM 4 TO 7 DO
i
ENABLE INTERRUPTS
;
S
SET PRIORITY=INTERUPT
;
IF INTERRUPT FLAG SET THEN
i
ERROR
:
o

3975
3976

N
;.

;PIRQ’S WILL BE TESTED.

g&g

ENDIF
ENABLE INTERRUPTS
SET PRIORITY=INTERRUPT-1

i
i
;s

3972
3973
3974

-4

3977

3978

3979

ENDDO

IF INTERRUPT FLAG NOTSET THEN
ERROR
S
ENDIF

LET INTERRUPT_DMA=0

; ENDROUTINE

gggg

:ROUTINE INTERUPT_DMA
LET INTERRUPT_FLAG=1
P.
:RETURN
;ENDROUTINE

3982
3983
3984
;&?
39‘7

;"t‘tttt‘t“t.‘tttt.ttttt“tt‘tttt.tttt‘t“ttt‘t.‘tttttt“tt“"

017134 000004

18T26:
:
;

017264

30054:
10004:
:

3988
3990 017136
3991 017142
3992 017144
3993 017152
3994 017154
017160
S
3989

3995 017264

3996
gggg

3999 017264
2000 017270
4001 017276
4002 017304
4003 017310

SCOPE

BIT
SKIP
ST
005737 002334
BEQ
001534
BIT
032777 010000 161766
BEQ
001444
TYPE
104401 017162
BR
000441
; 300554 :

;UFD MODE?
#8IT07, 8452
;AT LEAST ONE Q22BE FOUND?
CSR1
:sIF NOT, EXIT TEST
15727
: IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER
#8IT12,3SWR
: © THEN TYPE TEST TRACE
1000%
: s TYPE ASCIZ STRING
300554
: :GET OVER THE ASCIZ
300543
"ASCIZ <15><12>/TEST 26 - ARBITRATION BETWEEN CPU PRIORITY AND Q@-BUS INTERR
NE,<IF SO, EXIT TEST>

: SETUP INITIAL PRIORITY TO 7

013703
012777
012777
012700
012701

002334
017340 163050
000340 163044
003002
000340

4005‘006

4007 017314

4008 017314 106427 000200
4009 017320 004737 030026

4010 017328 012077 163006

;D0 FOR FIRST FOUND Q22BE
:AT PRIORITY 7
:START WITH 4 FOR INTERRUPTS
:LOW BOUNDARY FOR NO INTERRUPTS

MOV
MOV
MOV
MOV

CSR1,R3
#5$ ,SVABE1
#340, aVQPR1
#Q22EN, RO
#340,R1

:POINT INTERRUPT VECTOR TO PROGRAM

MTPS
JSR

#200
PC, Q22INT

:SET PRIORITY NOT TO INTERRUPT
:ENABLE INTERRUPTS

MOV

: CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN BR

3s.

as:

MOV

(RO)+,aCSR2

:CLEAR GO BIT

1‘

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 35-1

SEQ 0098

- DIFFERENT LEVELS OF INTERRUPTS

4011 017330
4012 017332
4013 017334
4014 017336
4015 017340
4016 017342
4017 017346
4018 017350
4019 017352

4020
4021
4022

4023 017352
4024 017360
4025 017366
4026

4027
4028
4029 017372
4030 017376
4031 017402
4032 017406
4033 017410
4034 017412
4035 017414
4036 017416
4037 017422
4038 017424
4039 017426
4040 017430
4041

000240
000240
000240
000405
104037
005037
005726
005726

NOP
NOP

S$:

172100

cle

mer

78T

(SP)s

ERROR
TST

6%:

IF NO INTERUPT, BRANCH

+37

| INTERRUPTS HAPPEN

(SP)e

;RESTORE STACK

; INTERRUPT AT ALL LEVELS
012777
012777
012700

017424
000340
003002

106427
004737
011077
000240

000140
030026
162730

162766
162762

ina22:

000402
005726
005726
106427

#54,3VABEL

MOV

#Q22EN, RO

MOV

#340, aVQPR1

;POINT INTERRUPT VECTOR TO PROGRAM

;AT PRIORITY 7

:START WITH 4 FOR INTERRUPTS

| CHECK THAT INTERRUPTS HAPPEN AT PRIORITY LOWER THAN BR
as:

MTPS

JSR
MOV
NOP

000240
000240

104037
005037

MOV

ERROR
clr

172100
5¢:

BR
TST

6%:

MTPS

TST

#140

;SET PRIORITY TO INTERRUPT

PC,Q22INT
(RO),aCSR2

:ENABLE INTERRUPTS
:CLEAR GO BIT
:WAIT A WHILE

+37

; INTERRUPTS DON'T HAPPEN

mer

6$
(SP)+

;DON’T RESTORE STACK
:RESTORE STACK

#340

;BACK TO 7

(SP)+

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 36

SEQ 0099

- ARBITRATION BETWEEN PIRQ'S AND INTERRUPTS

_SBTTL TEST - ARBITRATION BETWEEN PIRQ@'S AND INTERRUPTS
:CHECK PRIORITY ORDER BETWEEN PIRG'S AND INTERRUPTS.

4043

4044
4045
4046

:ROUTINE TEST
IF UFD THEN
5

4048

;

4047

;
;.

;.
;.

ENDIF

EXIT TEST

DO FOR I FROM #6 DOWN TO #3
SET PRIORITY TO I
;

ENABLE INTERRUPT(I+1) AND PIRQ(I+1)
IF INTERRUPT(I+1) WAS BEFORE PIRQ(I+1) THEN

‘

.
;e
ENDDO
i
: ENDROUTINE

ENDIF

ERROR

';#“t“tt‘ttt#‘.‘ttttt‘tttt‘t“t‘tttttttttttt‘tt“tt““t“tt“t

017434

000004

4061 017436
4062 017442

4063 017444

005737
001523
032777

4064 017452
4065 017454
017460

001441
104401
000436

4059
4060

017536
4066 017556

4067 017556
4068 017564
4069 017572
4070 017600
4071 017606
4072 017612
4073 017616
4074 017622
4075 017626
4076 017632
4077 017636
4078 017642
4079 017646

409
4094 017710

010000

4088
4089
4090
4091

‘09% 017706

010000

000401

SCOPE

#B1ITO07, 3952

BEQ
BIT
BEQ
TYPE
BR

15130
#BIT12,aSWR
1000
300574
564

MOV
MOV

#3$,3VABEL
9340, aVQPR1
#44 PIRQVEC
#340, PIRQVEC+2
#Q22EN, RO
SPIRQT,R4
CSR1,R3
#140.R2
#340
(R4)+,PIRQ
PC,Q22INT
(RO)+ ,8CSR2

;SETUP Q22BE VECTOR
:AT PRIORITY 7

+35

;PIRQ'S DON'T TAKE OVER BIRQ'S
;CLEAN UP STACK

161466

017462

nsoo.;ns:
162562

1000$:

000240
000242

340
177772

2¢:

030026

162470

MOV
MOV
MOV
MOV
MOV
MOV
MTPS
MOV
JSR
MOV

MTPS
NOP

172100

34:

Nop

ERROR
clr

NE,<IF SO, EXIT TEST>

CSR1

"ASCIZ

as:
5%:

CLR

CLR
BR

PIRQ

SCSR2
15730

PIRQT:

.WORD

10000

15T

<15><12>/TEST 27 - ARBITRATION BETWEEN PIRQ‘'S AND Q-BUS INTERRUPTS/

:SETUP PIRQ VECTOR
:AT PRIORITY 7
:POINT THRU PRIORITIES FOR Q22BE
:POINTER THRU PIRQ’'S
:DO FOR FIRST Q22BE
:START WITH CPU PRIORITY AT 7
:RAISE PRIORITY TO 7
:SET PRIORITY FOR PIRQ@'S
:INITIALISE Q22BE TO INTERRUPT
:SET DONE BIT
:LOWER PRIORITY

mer

BR
TST

(5P)+

éAT LEAST ONE Q22BE FOUND?

::IF NOT, EXIT TEST
: IF BIT 12 IS SET IN SOFTWARE SWITCH REGIST
THEN TYPE TEST TRACE
:
;s TYPE ASCIZ STRING
; *GET OVER THE ASCIZ

(SP)+
(5P)+
5%
(SP)+

TST
18T

177772
162430

;UFD MODE?

BIT

SKIP

;

002334

012737

017672
017674
017676
017702

4081 017652
4082 017654
4083 017656
4084 017660
4085 017664
4086 017666
4087 017670

;

012777
012777
012737
012700
012704
013703
012702
106427
012437
004737
012077
106402
000240
000240
000240
104035
005037
005726
005726
000402
005726
005726
005037
005077

4080 017650

1ST27:

:BRANCH AROUND PIRQ INTERRUPT
:CLEAN UP STACK
;CLEAR ANY REQUESTS

:CLEAR JUST IN CASE
;G0 TO THE NEXT TEST
;PIRQ'S 4

COKDDBO KDJ11-DA CLUSTER DIAG.
TEST

MACRO V05.03

Page 37

Wednesday 09-Apr-86 C 1:43

- ARBITRATION BETWEEN PIRQ'S AND INTERRUPTS
R R R A L R R L
t
ee e R R R R
ey
PP

017712
4097 017714
4098 017720

000004
005037
000137

017724
017732

123727
001005
005737
001402
005337

4099
4100
4101
4102
4103
4104
4105
4106
4107
4108

017734
017740

017742
017746

000205

té130:

177572
031632
001220

000001

SCOPE
CLR
JMP

VIREOP: CMPB
BNE
TST
BEQ
DEC

003034
003034
14:

rts

@9SRO
$EOP

;DISABLE MMU (DO NOT REMOVE !!!)
(EXIT

;ENV'.I

if not APT, don’'t worry about

EEHPAS

; maintain cache routin pascnt

CCHPAS

;sThis VIREOP ROUTINE to provide common End of Pass exit point
r

COKDDE» KDJ11-DA CLUSTER DIAG.
GLOBAI

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38

SEQ 0101

ERROR MESSAGES

4110
4111 017750

4112 017750

é&?TTL
015

GLOBAL ERROR MESSAGES

012

" .ASCII

<15><12>/KDJ11-DA CPU DIAGNOSTIC - COKDDAO/<15><12><12>

017753
017756
017761
017764
017767
017772

104
061
101
120
104
107

112
055
040
125
111
116

4113 020016

123

127

.ASCII

/SWITCH REGISTER SEI FCTION:/<12><12><15>

4114 020053

102

111

.ASCII

/BIT NUMBER

020075
4115 020076
101

015
055
055

055
055

MBEET

S ovemcsnina

4116 020140

011

061

.ASCII

HALT ON ERROR/<12><15>

4117 020165

011

061

.ASCII

LOOP ON PRESENT TEST/<12><15>

USE/<12><15>

eecsesescsmsecccssecs /<12><15>

i‘

COXDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-1

SEQ 0102

GLOBAL ERROR MESSAGES

020207
02021
02021
020220

4118 020221

020224
020227
020232

020235
020240
020243

020246
020251
020254

4119 020257

020262
020265
020270
020273
020276
020301
020304
020307

4120 020312

020315
020320
020323
326
020331
020334
020337
020342

4121 020344

020347
020352
020355
360
020363
020366

4122 020371

020374
020377
020402
020405
020410
020413

4123 020416

020421
020424
020427
020432
020435
020440
020443
020446
020451

020454

105
040
123
015

011

011
111
111

124
122
122
131
117
123

011

011
105
102
040
123
124
103
107

011

011
111
111

124
124
101
117
012

011

011
102
114
116
122
122
011

011
114
120
116
122
122
011

011
114
120
116
105
040
040
122

012

116
124
124
061
011

116
102
040
122
040
120
125

012
061
011

116
114
124
124
122
111
012
061
011
116
102
040
105
124

124

105

012

.ASCII

INHIBIT ERROR TYPEOUTS/<12><15>

.ASCII

ENABLE TEST TRACING/<12><15>

061
011

.ASCII

INHIBIT ITERATIONS/<12><15>

060
011

.ASCII

BELL ON ERROR/<12><15>

.ASCII

LOOP ON ERROR/<12><15>

.ASCII

LOOP ON TEST IN SWR<5-0>/<12><15>

063
011
110
111
105
117
124
105
124
015
062
011

101
105
105
040
101
116
015

110
111
111
122
111
123

114
117
105
117

015
071
011

117

117
105

117

015
070
011

117
117
124
124
116
127
065
076

i‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-2

SEQ 0103

GLOBAL ERROR MESSAGES
4124 020456

020461
020464
020467

630475

0204
020500
020503
020506
020511
020514
020517
020522
4125 020523
020526
020531
020534
020537
020542
4126 020543
020551

020557

02056
020570
020573
020576
020601
020604

020607
020612
020615

4127
4128 020617

020622

011
011

067
011
110
111
124
040
105
040
122
131

INHIBIT THE CHECK PARITY TEST/<12>¢<15>

.ASCII

Not used/<12><15>

.ASCIZ

5-0

Subtest number to loop on (BIT 8)/<12><12><1

.ASCIZ

/BASIC INSTRUCTION SET ERROR/

.ASCIZ

/MMU ERROR/

.ASCIZ

/FPP ERROR/

.ASCIZ

/CHECKSUM ERROR IN 16-BIT ROM /

105

012

066
011
164

163

012

055
011

165
145

040

155
162
157
157
040
040
111
070
012

123
123
111

124

122
125
122
122

122

105
123

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-3

GLOBAL ERROR MESSAGES
020710
020713
020716
020721
020724

020727

020732
4133 020735
020740

4134 020761

105
117
111
061
102
040
115
124
105
124
105
111
040
123
114
074
076

117

4135 021013

040
124
105
115
061
111

105
114
113
111
105

125
123
114

040
101
040
105
047
107

114

4137 021073

122
122
116
066
111
122
040
111

117
040
101
116

114
000
113
060
040
105
116
040
103
105
000
114
107
040
123
116
122
120
000
113
122
104
104
123
124
117
117

122
040
040
055

124
117
000
115
125
122
104
107
113
123
067
104

.ASCIZ

/TIMEOUT READING LKS/

EM57:

.ASCIZ

/LKS<07> DOES NOT BECOME 1/

EM61:

.ASCIZ

/ILLEGAL LKS INTERRUPTS/

EM63:

.ASCIZ

/LKS READY DOESN'T GO LOW/

.ASCIZ

/WRONG NUMBER OF LKS INTERRUPTS/

.ASCIZ

/LKS INTERRUPTS HAPPEN AT WRONG PRIORITY/

122

107
125
105
117
114
040
124
122
124
EM65:

SEQ 0104

COXDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-4

GLOBAL ERROR MESSAGES

1154

120

021157

040

021165
021170
021173
021176
021201

117
040
111
111
000

021205
021210
021213
021216
021221
021224
021227
1232
021235

105
104
123
124
114
122
113
060
000

021241
1244
021247
1252
021255
021260
021263
1266
021271

105
124
105

111
040
125
105
123
122

021277
021302
1305
021310
021313
021316

117
111
130
124
105
131

021323
021
021331
021334
021337
021342

122
076
117
116
040
103

4143 021351

127

021162

4139 021202

4140 021236

4141 021274

4142 021320

021345
021350

021354
021357
021362
021365
021370
021373
021376
021401

4144 021402

021405
021410
021413

040

105

101
127
116
120

116

124

122

117
124

122

105
124
117
116
040
105
040
123
066

EM71:

.ASCIZ

/RESET DOESN'T CLEAR LKS<06>/

124

111

EM72:

.ASCIZ

/TIMEOUT READING SLU REGISTERS/

105

EM73:

.ASCIZ

/ERROR IN XMIT READY/

122

EM74:

.ASCIZ

/RCSR<7> DOESN'T BECOME 1/

.ASCIZ

/WRONG CHARACTER RECEIVED/

.ASCIZ

/RCSR<07> NOT CLEARED AFTER READING RBUF/

117

040
101
116
123

107

105
000
116
103
122
124
040
103
126
000
122

122
067
116

EM76:

l‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-5

GLOBAL ERROR MESSAGES

021421

105

021424

105

021432

105

021440
021443
021446

104
107
102

021427
021435

101

122

103

114
122
040
124
040
101

000
130

EM77:

.ASCIZ

/XCSR<07> NOT SET ON RESET/

122

EM100:

.ASCIZ

/RCSR<07> NOT CLEARED ON RESET/

021545
021550
021553
021556
021561

123

040
124
122
124
110

EM101:

.ASCIZ

/SLU INTERRUPTS HAPPEN AT 4/

4148 021575

122

EM102:

.ASCIZ

/RESET DOES NOT CLEAR PROPER BITS IN SLU REGISTERS/

1606
021611
021614
021617
021622
021625

123
117
103
101
120

EM103:

.ASCIZ

/TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>/

021451
4145 021452

021455
021460
021463
021466
021471
021474
021477
021502

122
067
116
040
124
116
105
124

021507
021512

122
067

4146 021504

021515
021520
021523
1526

021531
021534
021537

4147 021542

021564

021600
021603

116
040
105
105

117
122
105

105
104

120

021636
021641
021644
021647
021652
021655

111
123
040
107
124
123

021662

116

4149 021657

124

fl*

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43 Page 38-6

GLOBAL ERROR MESSAGES
021665

021670
021673
021676
021701
021704
021707
021712
021715
021720

021723
021726
021731
4150 021732
021735
021740
021743
021746
021751
021754
021757
021762
021765
021770
021773
021776
022001

4151 022002

—

111
111

125

040

105
116

105

124
116
122
120
104
123

117
103
101
130
122

040

124
122

124
117

040

067

105

EM104:

.ASCIZ

/RECEIVE INTERRUPTS DC/'T CLEAR RC-R<( ">/

EM105:

.ASCIZ

/BREAK CONDITION DOES NOT SET RBUF PROPERLY/

EM106:

.ASCIZ

/RBUF <15-11> WASN'T CLEARED ON NEXT CHARACTER/

SEQ 0107

COKDDGO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-7

GLOBAL ERROR MESSAGES

022132

000

022136

040

4153 022133

022147

022152
022155

123

104
047

125

EM107:

.ASCIZ

/SLU INTERRUPTS DON'T HAPPEN/

122

EM110:

.ASCIZ

/ERROR IN WRITING TO SLU REGISTERS/

116
122
120
040
116
040
120
116

160
022163
022166

110
120
000

022172
022175
022200
022203
022206
022211
022214
022217
022222
25

117
111
127
124
107
117
114
122
111
105

040
040
111
116
124

106

122

EM111:

.ASCIZ

/FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND/

105

EM1l2:

.ASCIZ

/OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF/

105

EM113:

.ASCIZ

/OVERRUN BITS WERE NOT CLEARED ON THE NEXT CHARACTER/

4154 022167

105

022230

000

022234
022237

123
103

4155 022231

022242

022245

122

124

2250

040

022261
022264

117
122

022253
022256

2267
022272
022275
022300
022303
022306

4156 022307

123
117

116
131
110
123
117
000
117

022312
022315
320
022323
2326
022331
334
022337

122
116
117
111
117
104
123
117

02234
022350
022353
022356
022361
022364
022367

040
117
122
111
040
040
125

4157 022372

123

117

SEQ 0108

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-8

GLOBAL ERROR MESSAGES
022375

122
116
111
040
122
116
040
105

105
117

124
040

130
103
122
124
000
105
117
117
130
122
076
105
117

122

125
102
123
105
040
124
114
122
040
040

105
105
040
101
103
122
EM114:

.ASCIZ

\ERROR ON XCSR<2>\

EM123:

.ASCIZ

/ERROR IN Q22BE DMA CYCLES/

4160 022531

EM124:

.ASCIZ

/PIRQ@ INTERRUPTS DON’'T TAKE PRIORITY OVER Q BUS INTERRUPTS/

4161 02262

EM125:

.ASCIZ

/NO POWER DOWN TRAP TO 24 OCCUR/

4158 022456

0224
4159 022477

122

111

SEQ 0109

COXDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-9

GLOBAL ERROR MESSAGES
022642
022645
022630
022653
022656
022661

122

101
124
062

120
117
064
103
122

122
122

122

117
125

EM126:

.ASCIZ

/ERROR DOING Q22BE INTERRUPTS/

EM127:

.ASCIZ

/ERROR IN OPERATION OF PMG COUNTER/

4164 022761

EM130:

.ASCIZ

/UNEXPECTED TRAP TO 4/

4165 023006

EM131:

.ASCIZ

/ERROR WRITING TO LKS<6>/

4166 023036

EM132:

.ASCIZ

/ERROR IN MAINTENANCE REGISTER/

4167 023074

EM135:

.ASCIZ

/ERROR IN THE MEMORY DATA PATH/

4162 022662

022665
022670
022673
022676
022701
022704
022707
022712
022715

4163 022717

022722
022725
022730

117

107
062
105
116
122
120
000
122
122
116
120
101

111

117
117

SEQ 0110

{‘7

COKDDOBO KDJ11-DA CLUSTER DIAG.

MACRO VO5.03

Wednesday 09-Apr-86 09:43

Page 38-10

GLOBAL ERROR MESSAGES
023110
023113

4168 023132

040
115
131
101
040

124
124
105
117

040
040

103
123
107
117
124

02
4169 023174
023177
023202
02

4170 023241

116
000

124
105
117

040
040
131
107
117
103

115
117
040
124
120
110
111
104
125
111
101
105
111
040
103
111
040
111
104

105
122
104
101
101
EM136:

.ASCIZ

/TIMED OUT IN ACCESSING LOCATION 0/

EM137:

.ASCIZ

/TIMED OUT IN TRYING TO ACCESS MEMORY/

.ASCIZ

/ERROR IN FUNCTIONAL REVISION BITS ON THE NATIVE REGISTER/

.ASCIZ

/ERROR IN THE INDICATOR BITS ON THE NATIVE REGISTER/

125

111
124
111

123
115
117
000
105
117
111
106

103
117
114
105
123
116
111

040
040

4171 0233

-—

111

105
105
117

EM141:

105
101
126
122

SEQ 0111

l‘

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-11

GLOBAL ERROR MESSAGES

023357
023362

122
111

023370
023373
023376

040
105
101

023401
023404

023407

126
122

111

023412

105

023420
023423
023426
023431
023434
023437
023442
023445
023450
023453
023456
023461
023464
023467
023472
023475
023500
023503

117
111
124
040
117
123
105
040
111
110
040
040
105
101
126
122
111
105

023511
023514
023517
023522

105
117
040
040

023530
023533
023536
023541
023544
023547
023552
023555
023560

123
117
110
116
111
040
107
124
000

023564

040

023572
023575
3600
023603
023606
023611
023614
023617
023622
023625

114
040
040
124
117
114
107
105
105
040

4172 023415

4173 023506

3525

4174 023561

023567

102
123
116
110
116
111
040
107
124

105

EM142:

.ASCIZ

/ERROR IN THE BOOT SELECT SWITCHES ON THE NATIVE REGISTER/

124

EM143:

.ASCIZ

/TIMED OUT IN ACCESS TO THE NATIVE REGISTER/

EM144:

.ASCIZ

/BIT 7 IN LTC IS NOT TOGGLING BETWEEN O AND 1/

103

102

111

SEQ 0112

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-12

GLOBAL ERROR MESSAGES
023630
4175 023636

116
061
111

117

040
040

103
123
107
110
114
040
107
124
4176 023704

4177 023747

104
000

115
125
111
101
105
111
040
105
113
122
111
105

EM145:

.ASCIZ /TIMEOUT IN ACCESSING THE LKS REGISTER/

122

EM146:

.ASCIZ

/ERROR IN STUCK AT ZERO BITS ON MER/

EM147:

LASCIZ

\COULD NOT SET ONE OF THE R/W BITS ON THE MER\

EM150:

.ASCIZ

/BITS 0,2,14,15 ON THE MER DID NOT CLEAR ON RESET/

SEQ 0113

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-13

GLOBAL ERROR MESSAGES
024101

123

4179 024105

4181 024235

EM151:

.ASCIZ

/TIMEOUT IN ACCESSING THE MER REGISTER/

EM152:

.ASCIZ

/ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST/

EM153:

.ASCIZ

/PARITY ABORT OCCURED WITH PARITY ERROR DISABLED/

EM154:

.ASCIZ

/PARITY ABORT DID NOT OCCUR WITH PARITY ERROR ENABLED/

122

SEQ 0114

——

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesdey 09-Apr-86 09:43

Page 38-14

GLOBAL ERROR MESSAGES

024350
024353

127
110

024361

124

024356

024364
024367
024372

024375

024400

4183 024402

101

105
117
105

102

104

.ASCIZ

/MER DIDN'T HAVE CORRECT ADDRESS BITS 11-17/

115

EM156:

.ASCIZ

/MER READ EXTENDED ADDRESS BITS HAS FAILED/

EM157:

.ASCIZ

/ERROR IN THE QUICK VERIFY MEMORY TEST/

EM160:

.ASCIZ

/ERROR IN RCSR <6>/

040
104
124
101

024424
024427
024432
024435
024440
024443
024446
024451
024454

122
103
101
122
123
111
040
035
000

024460
024463
024466
024471
024474
024477
024
024
024510
024513
024516
024521

040
101
105
105
105
101
122
123
111
040
123
101

4185 024527
024

105

024543
546
024551
024554
024557
024562

040
111
040
122
131
105

024573

124

4184 024455

024565
024570

4186 024575

024600
024603

024606
024611
024614

122
116
114
000
105
104
116

124
120
111
040
122
040
101
105
EM155:

115

024405
024410
024413
024416
024421

111
040
122
131
122

040

126
103
122
124
104
105
040
061
061

122
111
047
110
105

117
105
040
104
123
102
123

124

122
124

105

117
111

122
122
066

076

SEQ 0115

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-15

GLOBAL ERROR MESSAGES
4187 024617
024622

024625
024630
024633

024636
024641

116
130

124
116
122

120

024655

040
126
117
125
104

24662

122

024644

024647
024652

4188 024657

116

024665
024670
024673
024676
024701
024704
024707

111
105
116
122
120
040
126

024715
024720

104

0247
024733
024736
024741
024744
024747

103
104
101
124
101
122

024760
024763

103
105

712

4189 024722
0247

0247S§
02475

4190 024766
771

024774
024777
025002
025005

117

125

125
130

115
040

.ASCIZ

/NO XMIT INTERRUPTS HAVE OCCURED/

EM162:

.ASCIZ

/NO RECIEVE INTERRUPTS HAVE OCCURED/

EM163:

.ASCIZ

/UNEXPECTED PARITY ABORT HAS OCCURED/

EM164:

.ASCIZ

/MER DIDN'T HAVE CORRECT ADDRESS BITS# O AND 15/

EM165:

.ASCIZ

/TO0 MANY TRANSIVER INTERRUPTS HAPPENED/

040

124
122
124
110
105
103
122
000
117
105
105
040
124
122
124
110
105
103
122
000
116
120

104
124
101

122
103
101
122
123
111
043
040

025043

065

025050
025053
025056
025061
025064

040
116
124
116
126

4191 025045

EM161:

110

025010
025013
025016
025021
025024
025027
025032
025035

025040

117
115

104
124

SEQ Ol16

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 38-16

GLOBAL ERROR MESSAGES

02511
4192 025114

025117
025122

040
116

117

115
131

EM166:

.ASCIZ

/T00 MANY RECEIVER INTERRUPTS HAPPENED/

152
025155
160
4193 02516§

101
105
104
105

120
116
000
122

eml67:

.asciz

/ERROR IN READY BIT OF CSR/

4194 025214

116

117

eml70:

0251

02522
0252
025233
025236

4195 053243
w‘%ozsa

025230

124

117

122

101

124

105

ggg
116

122
107

040
103
126
103

122
105
105

101

103

122
105

7
7

122

117

115

023307
025312

132
117

105
000

122

4198 025314

040

124

105
011

025261
025264
4196

4197

025317

124

eml71:

.asciz

/WRONG CHARACTER RECEIVED/

eml72:

.asciz

/ROM SIZE IS ZERO/

DH1:

.ASCII

/ TEST

110

122

8%&2

/NO CHARACTER RECEIVED/

105

124

015

ERROR/<15><12>

SEQ 0117

810

COXDDBO KDJ11-DA CLUSTER DIAG.

MACRO VOS5.03

Wednesday 09-Apr-86 09:43

Page 38-17

GLOBAL ERROR MESSAGES

o 3588

o it

025334
025337
4200 025341
3

025363

025366

4201 023377

4202

025410
025413
025416
025421
025424

025431

%2
011
103
040
123

.ASCIZ

.ASCII

/ TEST

ERROR

.ASCIZ

DATA

.ASCII

/ TEST

ERROR

HITMIS

.ASCIZ

REG.

.ASCII

/ TEST ERROR

.ASCIZ

EXPCTED RECEIVED/<15><12>

105
117
105
103
104
105
111

104

040
011

103
104
101
040
104
101

DATA/

DATA IN DATA IN/<15><12>

025437
025442
025445

025461

025467

o E5le

CACHE

MEMORY/

025500
025503
025
025511
025514
025517

ADDRESS MSER/<15><12>

ACCESSED/

i‘

Cl0

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO VO5.03

Wednesday 09-Apr-86 09:43

Page 38-18

GLOBAL ERROR MESSAGES
104
040
123
105

DH24:

.ASCII

/ TEST

ERROR - NUMBER/<15><12>

.ASCIZ

rz . ®

OF HITS/

.ASCII

\ERROR

ERROR

MSER

.ASCIZ

PC/

.ASCII

/ TEST

ERROR

INSTRUCTION/<15><12>

.ASCII

/ TEST

ERROR

EXPECTD RECEIVD CACHE/<15><12>

.ASCIZ

DATA

117

4207

116
102
015
040
011
103
106
111
000
105

117
105
117
115
122
111
115
123
040

DH27:

011

4211 025740

4212 025760

103
040
123
105
117
111
124
103
117
012
040
011
103
117
117

DH41:

HIT/MISS\<15><12>

.ASCIZ

DH43:

DATA

LOCATION/

D10

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-19

GLOBAL ERROR MESSAGES
026037

026042
026045

4214

13
4215 026115
026120
026123

026126
026131
026134
026137
026142

4216 026145

026150
026153
026156
026161
026164
026167
026172
4217 026173
026176

101
104
101
117
124
116
040
123
105

011
101
011

103

111
000
124
124
122
122
104
105
011
104
123
012
040
040
011
061

DH47:

ADDRESS ADDRESS/<15><12>

.ASCII

TEST

ERROR

.ASCIZ

<21-16>

.ASCII

/ TEST

ERROR

PRIORITY/<15><12>

.ASCIZ

.ASCII

/ TEST

ERROR

.ASCIZ

TEST

ERROR

PC/

<15-0>/

065
DH65:

DH105:

.ASCII

.ASCIZ

LEVEL/

ADDRESS/<15><12>

FAILED/

RBUF 7<15><12>

SEQ 0120

1‘

E10

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 38-20

SEQ 0121

GLOBAL ERROR MESSAGES
103

026315
026320
026323
026326
026331
334
026337
4223 026341
026344
026347
026352
026355
026360
026363
4224 026364
026367
026372
026375
026400
026403
026406
026411
026414
026417
026422
026425
026430

105
117
115
122
104
105
015
040
011
103
011
103
123
000
040
123
105
117
011
040
124
040
122
040
122
101
012

026434
026437
026442
026445
026450
026453
026456
026461
026464
026467
026472
026475
026500

011
103
120
124
116

4225 026431

4226

4227

DH115:

040
123

DH134:

040

MSER

ADDRESS/<15><12>

.ASCII

/ TEST

ERROR.

MSCIZ

ACCESSED/

.ASCII

/ TEST

ERROR

DATA

ASCIZ

PATTERN

READ

105
040

040
040

104
105
000

123

001116
001116
000000
001116
001124
001116
000000
001116
000000
001116
000000

DT1:
DT4:
DTS:
001122

DT7:

001124

DT14:

001124

DT17:

5555
8

026305

4222 026307
026312

$TMP1, $ERRPC,0
$TMP1, $ERRPC,R1,CCR,0

0
R1,
$GDDAT,
$TMP1, $ERRPC,R2,
0
$TMP1, $ERRPC, $BDADR,MSER,

$TMP1, $ERRPC, $GDDAT, TSTLOC,O
0
$TMP1, $FTMRPC, $GDDAT ,RECDAT,

PAR

VIRTUAL/<15><12>

ADDRESS/

<\_‘

F10

COKDDOBO KDJ11-DA CLUSTER DIAG.

MACRO V0S.03

Wednesday 09-Apr-86 09:43

Page 38-21

574

006 162

001116

000003

DT24:

4235 02660
026612
4236 026616
026624

001162
000003
001162

001116
000000
001116
000000
001116

177744

D127:

001124

DT35:

001126

DT41:

001116
001122
001116
000000
001116
000000
001116
000000
001116
000000
001116
000000
001116

22023

DT43:

001116
000000
001116

4234

0368024

4237 026630

026636
4238 026640
026646

4239 026654

4241
4242
4243
4244

026662
026666
026674
026700
026706
026712
026720
026753
0267
026736
026744

4245 026746

026754
4240 026760
026766

4247 026770
026776

4248 027004

4249 027012

027020
027026

177744

001162
000000
001162
004034
001162

001116
001122
001122
001116
172344

172354

DT47:

000001

DTS0:

001124

DTS1:

001124

DTS2:

001124

DT64:

001124

DT65:

001124

DT75:

177562

DT105:

DT115:

000000
001124
001122

DT130:
DT134:

BEEEEEEEEEEEREEE

GLOBAL ERROR MESSAGES
$TMP1, $ERRPC,R3,0

$TMPL, OERRPC.FISER.RS.O
$TMP1, $ERRPC, $GDDAT ,MSER, 0
$TMP1, $ERRPC, $BDDAT,0

$TMP1, $ERRPC,R1,RECDAT, $BDADR, 0

0
$TMP1, $SERRPC,KIPARG, $BDADR,
$TMP1, $ERRPC,R1, $BDADR,0
$TMP1, $ERRPC, $GDDAT,PCR,0
$TMP1, $ERRPC, $GDDAT ,BCSR, 0

$TMP1, $ERRPC, $GDDAT ,LKSFL,0
$TMP1, $ERRPC, $GDDAT,0
$TMP1, $ERRPC, $GDDAT, $BDDAT,C
$TMP1, $ERRPC,RBUF
,0

$TMP1, $ERRPC, $BDDAT ,KIPARG, $BDADR,0
$TMP1, $BDADR,0

$TMP1, $ERRPC, $GDDAT, $BDDAT ,KIPAR2, $BDADR,0

SEQ 0120

—

G1lO

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 39

SEQ 0123

MODIFIED ERROR MESSAGE TYPEOUT ROUTINE
.SBTTL

4251

MODIFIED ERROR MESSAGE TYPEOUT ROUTINE
e

L L

bbb ibihhaiyhhhhirhebaid

;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS

FROM THE "ERROR TABLE"” ($ERRTB),

; #AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
i ¥

;#THE ONLY DIFFERENCE BETWEEN THIS ROUTINE AND THE ORIGINAL “$ERRTYP" FROM
REGISTERS TO THIS
;#SYSMAC IS THAT YOU CAN PASS INFORMATION IN GENERAL PURPOSE
D IN DTs
SPECIFIE
BE
TO
ARE
USED
S
REGISTER
;#ROUTINE. THE GENERAL PURPOSE
;#FORMAT. RO SHOULD NOT BE USED.

001162
001102
001175

ERTYPE:

001162

001114

027066
027070
027072
027074
027076

1¢:

2%:
3$:
4%:

001175

S5¢:
6%:

001175

7%:

000005

4303
4304
4305
4306
4307

027210

053737

027216
027220
027222

010046
005720
000401

001160

$CPLF

: : "CARRIAGE RETURN” & “LINE FEED”

RO, -(SP)
RO

@9$ITEMB,RO

;;STORE TEST NUMBER

: iSAVE RO

: ;PICKUP THE ITEM INDEX

::IF ITEM NUMBER IS ZERO, JUST
::TYPE THE PC OF THE ERROR
::SAVE $ERRPC FOR TYPEOUT
: ;ERROR ADDRESS

::60 TYPE--OCTAL ASCIICALL DIGITS)

::sGET OUT

: :ADJUST THE INDEX SO THAT IT WILL
; ;FORM TABLE POINTER
: :PICKUP “ERROR MESSAGE"” POINTER

: ;ERROR MESSAGE POINTER GOES HERE

$CRLF
(RO)+,4$

)

$CRLF
{RO),RO

74
(SP)+,RO

$CRLF

::SKIP TYPEOUT IF NO POINTER

:; "CARRIAGE RETURN" & "LINE FEED"
: ;PICKUP “DATA HEADER"” POINTER
: :SKIP TYPEOUT IF O

::TYPE THE "DATA HEADER"

:: "DATA HEADER" POINTER GOES HERE

: ; "CARRIAGE RETURN” & "LINE FEED"
: ;PICKUP "DATA TABLE” POINTER
: ;GO TYPE THE DATA
: ;RESTORE RO

:: "CARRIAGE RETURN" & “LINE FEED”

: ;GENERAL PURPOSE REGISTER?

(RO), $TMPO
$TMPO

: ;SAVE (RO)
::GET REGISTER NUMBER TO HIGH BYTE

$TMPO, 8%
RO, -(SP)
(RO)+

:;SET BITS IN MOV INSTRUCTION
: ;ACCORDING TO REGISTER NUMBER
: MOVE CONTEXT OF REGISTER TO STACK
: sADVANCE POINTER

2BIT8!BIT71BIT6, &4
G’rgg

027216
8%:

tRETURN

(RO),#5

027216

WORK FOR THE ERROR TABLE

#$ERRTB, RO
(RO)+,2$
33

001175
027132

000700
001160
001160
001160
001160

:;JUST CLEAR IT

$TSTNM,$TMP1

001324
027114

4279 027100

$TMPL

$ERRPC,-(SP)

001116
4274
4275
4276
4277
4278

CLR
MOVB
TYPE
MOV
CLR
BISB

104

IF NOT, GO TYPE DATA

14CLERR BITS FOR SOURCE REGISTER

: :GET REGISTER NUMBER TO BITS 8-6

::60 TYPE

COKDDBO KDJ11-DA CLUSTER DIAG.

MODIFIED ERROR MESSAGE TYPEOUT ROUTINE

4308 027224
4309 027226
4310 027230
4311 027232
4312 027234

013046
104402
005710
001744
104401 027242

4313 027240 000745
4314 027242

a3ie

040

000

040

Page 39-1

Wednescesy 09-Apr-86 09:43

MACRO V05.03

9s:
10$:

MOV
TYPOC
TST
BEQ
TYPE

#(RO)+,-(SP)
(RO)
6
118

LASCIZ

11%:

:giz

.SBTTL

4319

—

::IF NOT GPR, SAVE @(R0O)+ FOR TYPEQUT
- :3160 TYPE--OCTAL ASCI (ALL DIGITS)
::IS THERE ANOTHER NUMBER?
::BR IF NO
::TYPE TWO(2) SPACES
::TWO(2) SPACES

GLOBAL SUBROUTINES SECTION

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
: THAT ARE USED IN MORE THAN ONE TEST.

4320
gs%
4323

4324

jee

:333"}
4328

;

; FUNCTIONAL DESCRIPTION:

4325

4329

4330

SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS

;: INPUTS: NONE

4333

; SUBORDINATE ROUTINES USED: LOAD PARS

:ggg

; FUNCTIONAL SIDE EFFECTS: NONE

:ggg

LOAD PDRS

;

gg;

; CALLING SEQUENCE:

4340 027246
4341 027252
4342 027256
4343 027262
4344 027266
4345 027272
4346 027276
4347 027302
4348 027306
4349 027312
4350 027316
4351 027322
4352 027326
4353 027332
4354 027336
4355 027342
4356 027346
4357 027352
4358 027356
4359 027362
4360 027366
4361 027372
4362 027376

012701
004737
012701
004737
012701
004737
012701
004737
012701
004737
012701
004737
012701
004737
012701
004737
012701
004737
012701
004737
012701
004737
012701

4364 027406

000207

172240
027410
172260
027410
172340
027410
172360
027410
177640
027410
177660
027410
177600
027440
177620
027440
172300
027440
172320
027440
172200
027440
172220

4363 027402 004737 027440

INITMM: MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR

RTS

JSR

$172240,R1
LDPARS
PC
#172260,R1
LDPARS
PC

#172340,R1

PC
LDPARS
#172360,R1
LDPARS
PC

$177640,R1

PC
LDPARS
#177660,R1
PC
LDPARS
#177600,R1
PC
LDPDRS
#177620,R1
PC
LDPDRS
#172300,R1
PC
LDPDRS
#172320,R1
PC
LDPDRS
#172200,R1
PC
LDPDRS
#172220,R1
PC,
LDPDRS
PC

PC,INITMM

:BASE ADDRESS OF SIPARS

;BASE ADDRESS OF SDPARS
;BASE ADDRESS OF KIPARS
;BASE ADDRESS OF KDPARS
;BASE ADDRESS OF UIPARS
;BASE ADDRESS OF UDPARS
;BASE ADDRESS OF UIPDRS
;BASE ADDRESS OF UDPDRS
;BASE ADDRESS OF KIPDRS

;BASE ADDRESS OF KDPDRS
;BASE ADDRESS OF SIPDRS
;BASE ADDRESS OF SDPDRS
:RETURN

—l‘

COKDDBO KD.11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

o aadh

Page 40

GLOBAL SUBROUTINES SECTION

Pee

4366

4367
4368
4369

: FUNCTIONAL DESCRIPTION:
:
i " SUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISIERS (PARS).
THIS ROUTINE WILL INITIALIZE 8 PARS STARTING AT A BASE ADDRESS
:

;
:
;

4370
4371
4372

4373
4374

SUPPLIED BY THE CALLING ROUTINE. PARS 0-5 WILL BE MAPPED FROM
ADDRESS O TO ADDRESS 137777 (0-24K). PAR 6 WILL BE MAPPED FROM
ADDRESS 200000 TO 217777 AND PAR 7 WILL BE MAPPED TO THE 1/0
PAGE.

4375

; INPUTS:

:g;g

; OUTPUTS: NONE

; SUBORDINATE ROUTINES USED: NONE

:3335

; FUNCTIONAL SIDE EFFECTS: NONE

;

:g;g

:gg

4386 027410
4387 027414
4388 027416
4389 027420
4390 027424
4391 027426
4392 027432
4393 027436

012702
005003
010321
062703
077204
012721
012711
000207

000006

(000200
002000
177600

R1 CONTAINS THE BASE ADDRESS OF THE NEXT 8 PARS TO BE INITIALIZED

; CALLING SEQUENCE:

LDPARS: MOV
CLR
MOV
1%:
ADD
S08
MOV
MOV
RTS

JSR

R2
%6,
R3
(R1)+
R3
9200, R3
13
R2
#2000, (R1)+
#177600,(R1)
PC

PC.LDPARS

;LET LOOP COUNTER COUNT FIRST 6 PARS
:INITIALIZE INDEX VALUE
:LOAD PARS
:INDEX IN 4K INCREMENTS
:LOAD FIRST SIX PARS
:LET PAR6 MAP TO 200000
:LET PAR7 MAP TO I/0 PAGE
;RETURN

COKDDBO KDJ11-DA CLUSTER DIAG.

GLOBAL SUBROUTINES SECTION

MACRO V05.03

Wednesday 09-Apr-86 09:43

:
:
3

4397
4398
4399

4400

SUBROUTINE TO INITIALIZE ALL THE MMU PAGE DECRIPTOR REGISTERS (PDRS).
THIS ROUTINE WILL INITIALIZE 8 PDRS STARTING AT A BASE ADDRESS
SUPPLIED BY THE CALLING ROUTINE. PDRS 0-5 WILL BE INITIALIZED TO
4K READ/WRITE BYPASS AND PDRS 6 AND 7 WILL BE INITIALIZED TO
4K READ/WRITE NO BYPASS.

4401

4405

; INPUTS:

4409“08

; OUTPUTS: NONE

zig

; SUBORDINATE ROUTINES USED: NONE

zig

; FUNCTIONAL SIDE EFFECTS: NONE

:
3

4402
4403

::gg

zi;
4416 027440 012702

000006

4417 027444 012721 177406
077203

4419 027452 012721 077406

4420 027456 012711 077406
4421 027462

jee
; FUNCTIONAL DESCRIPTION:

4395
4396

4418 027450

ous Gasé

Page 41

000207

NOTE:

THERE IS NO NEED TO BYPASS ON I/0 PAGE REFERENCES BECAUSE
THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES.

R1 CONTAINS THE BASE ADDRESS OF THE NEXT 8 PDRS TO BE INITIALIZED

PC,LDPARS

; CALLING SEQUENCE:

JSR

LDPDRS: MOV

;LET LOOP COUNTER COUNT FIRST 6 PARS

S08

;LOAD FIRST SIX PDRS

MOV

#77406, (R1)

1$:

MOV

RTS

01"7406.('!1)0

07’4%. (R1)+

;LOAD PDRS WITH 4K READ/WRITE BYPASS

;LET PAR6 BE 4K READ/WRITE NO BYPASS

;LET PAR7 BE 4K READ/WRITE NO BYPASS ALSO
;RETURN

K10

COKDDBO KDJ11-DA CLUSTER DIAG.

Uednesday 09-Apr-86 09:43

MACRO V05.03

Page 42

SEQ 0127

GLOBAL SUBROUTINES SECTION

: FUNCTIONAL DESCRIPTION:

SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAM TESTS.

: INPUTS:

MEMORY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE

; OUTPUTS: NONE

; SUBORDINATE ROUTINES USED: NONE
; FUNCTIONAL SIDE EFFECTS: NONE

; CALLING SEQUENCE: CALLED BY PARITY ABORT
SLOCOO ;SAVE CONTENTS OF PARITY ABORT VECTOR
@114,
MOV
3

4442
4443
4444
4445

027464
027470
027476
027500

011637
032737
001401
104004

4450 027502
4451 027510

032737
001401

4453 027514

005037

001122
000100

177744

;LET VECTOR POINT TO PARITY ABORT ROUTINE

MOV

(CACHE PARITY ERROR OCCURS)

RAMPAR: MOV

BIT

BEQ
ERROR

1$:

177744

#DSPAR, @#114

BIT

24:

BEQ
ERROR
34:

177744

RTI

(SP), $BDADR

#81706, MSER
18
+4

#B8IT05, MSER

34
+4
CLR

MSER

4455 027522

000002
005237

002402

LKSINT: INC

LKSFL

4459 027530

022737

000003

o605

#3, lkent

4461 027540

005237
000002

002404

RTI

101%:

cmp

beq
inc
rti

1014

;STOR ADDESS TRAPPED
;IF LOW BYTE PARITY ERROR
: THEN

;ERROR
i

BIT

#BIT07, MSER

;IF HIGH BYT

H
B

BEQ
ERROR

; THEN

0‘

;IF_TAG PARITY ERROR
: THEN
i

;INITIALIZE MSER AFTER ERROR

;RETURN
; INCREMENT FLAG

lkent

.SBTTL Q22BE SIZE ROUTINE

IF NONE
:THIS ROUTINE WILL AUTOSIZE FOR UP TO TWO @22 BUS EXERCISERS.
ROUTINE WILL
;FOUND LOCATIONS CSR1 AND CSR12 WILL BE LEFT ZEROES.
;ONLY RUN IN NOT UFD MODE.

4469 027546
4470 027554
4471 027556

4475 027560
4476 027564
4477 027572
4478 027600
4479 027604

032737
001401
000207

013701
012737
012737
005037
012702

001000

177750

Q22S1Z: BIT
BEQ
RTS

000004
027740
001160
170000

#B8IT09,MAIREG
14

! PREPARE TO DO SIZING
ERRVEC,R1
MOV
is:
MOV
MOV
CLR

MOV

#74 ,ERRVEC
#340, ERRVEC+2
$TMPO
#170000,R2

THIS

;UNIBUS SYSTEM?

;IF NOT,

ADVANCE TO ROUTINE

;OTHERWISE, RETURN

;STORE TIMEQUT VECTOR
;POINT NEW TO_PROGRAM
;AT _PRIORITY 7
;CLEAR Q22BE COUNTER

;FIRST POSSIBLE ADDRESS

i‘

L10

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Q22BE SIZE ROUTINE
4480 027610
4481 027614

4482

012703
000404

MOV
BR

000510

Page 42-1

#510,R3
33

SEQ 0128

;VECTOR FOR IT

; TRY THOSE VALUES

: NOW DO ACTUAL SIZING

4483

4484

4485 027616
4486 027622
4487 027626

4488
4489
4490

062702
062703
005712

000020
000004

2%:

ADD

TST

ADD

#20,R2

#4 R3
(R2)

;GET CSR FOR NEXT Q228BE
;GET VECTOR FOR NEXT ONE
; TRY TO ACCESS CSR

: IF NO TIMEOUT, STORE EXISTING ADDRESSES TO REGISTERS

4491 027630
4492 027634
4493 027636
4494 027642
4495 027646
4496 027654
4497 027656
4498 027662
4499 027666
4500 027670
4501 027674
4502 027676
4503 027702
4504 027704
4505 027710
4506 027714
4507 027722
4508 027726
4509 027734
4510 027736
4511
4512
4513
4514 027740

005737
001010
012705
010237
062737
000402
012705
012704
010215
011565
005725
062715
077406
010365
010365
062765
005237
022737
001406
000402

4516 027744
4517 027750
4518 027752
4519 027756
4520 027760
4521 027764

022702
001322
005737
001402
104401
010137

4515 027742

:gg 027770
4524 027772

027775
030000

4525
4526
4527

Wednesday 09-Apr-86 09:43

030003
030006
030011
030014
030017
030022
030025

001160

002334
002352
000016

002352

43:
5%:
68:

002364
000004

000002
000002

000002
000004
000002
001160
000002

001160
H

TST

BNE
MOV
MOV
ADD
BR
MOV
MOV
MOV
MOV
TST
ADD
S0B
MOV
MOV
ADD
INC
cMP
BEQ
BR

$TMPO

as
#CSR1,RS
R2, STMGOA
#16, STMGOA
5%
#CSR12,RS
#4,R4
R2,(RS)
(R5),2(RS)
(R5)+
#2,(R5)
R4.6$
R3.2(R5)
R3.4(R5)
#2.4(R5)
$TMPO
#2, $TMPO
9
8¢

;FIRST Q22BE FOUND?
;IF SECOND, BRANCH

;START WITH CSR1 FOR 1ST
: SIMULTANEOUS GO
; ADDRESS
;BRANCH TO INITIALISE

;START WITH CSR12 FOR 2ND
;INITIALISE S REGISTERS
;INITIALISE CSR1
;STORE _TO NEXT ONE

;GET NEXT ADDRESS

;GET_ADDRESS, POINT NEXT
;D0 FOR NEXT 4 REGISTERS
;STORE INTERRUPT VECTOR
;AND PRIORITY

:IF S0, STOP SIZING

;OTHERWISE, CONTINUE SIZING

: ON TIMEOUT TRY TO LOOK AT NEXT ADDRESS RANGE
170160

7.
8s:

002334

9$:

027772
000004

108:

005726

000207
012

015

123
040
122
107
105
111
000

105
104
111
040
123
116

062
105

062
040

18T
15T
CHP
BNE
ST
BEQ

(SP)+
(SP)+
#170160,R2
24
CSR1
10$

;RESTORE STACK FROM

RTS

:RETURN

TYPE
MOV

ONOQ22: .ASCIZ

.EVEN

2
R1,ERRVEC

: TIMEOUT

O NOT, ORANGH et
:1 FOUND?

:IF NONE, BRANCH
:TYPE FOUND
:RESTORE TIMEOUT VECTOR

<12><15>/@22BE USED DURING TESTING/

.SBTTL Q22BE INTERRUPT INITIALISE ROUTINE

;THIS ROUTINE WILL INITIALISE Q22BE TO INTERRUPT AT A PRIORITY AT (RO)+

4‘

COKDDBO KDJ11-DA (LUSTER DIAG.

MACRO VO0S5.03

@22BE INTERRUPT INITIALISE ROUTINE

4528
4529
4531 030026 005013
4532 030030 052710 000001

4533 030034 011063 000002
4534 030040 042710 000001

4535 030044

4556

4560 030130
4561 030136
4562 030140
4563 030142
4564 030150
4565 030156

MOV
BIC
RTS

012777
005700
001404
012777
000414
012777
012777
012777
012777
105777
100375
000207

012525 152270 DMATRN: MOV
ST
BEQ
MOV
001001 152250
BR
MOV
001601 152236 1%:
MOV
002740 152234
MOV
177777 152230
MOV
000001 152216
TSTB
24:
152212
BPL
RTS
34

;DATA USED
:00 1 WORD?
:IF YES, BRANCH
:BLOCK MODE, GO
:BRANCH TO 0O IT
SRESET LATENCY COUNT,DATO
:LOAD DMA ADDRESS
:00 1 WORD
:00 IT
:DMA DONE?
WAIT TILL DONE
RETURN FROM SUBROUTINE

012777
005700
001412
012777
012777
012777

' JRANSFER MODE. MEMORY LOCATION USED IS TEMP. RO IS ZERO FOR SINGLE TRANSFER

002740 152202 DMARD: MOV
ST
BEQ
MOV
001507 152164
MOV
177770 152164
MOV
001001 152152

4570 030202 012777 000001 152126 28:
4571 030210 105777 152122

TSTB
BPL

4572 030214 100375

4573 030216 000207

4577 030220 011637 001122
104041

TOUT:

000002

MOV
MOV

;

4584
4585

:
:

STEMP, 3BA
RO
1%
#1507, 3CSR1
#177770, BMC
#8IT09!BIT00, ACSR2

;LOAD DMA ADDRESS
:D0 1 WORD?
:IF YES, BRANCH
:16 DATIB
:D0 8 WORD
:BLOCK MODE GO

8177777, 9MC
#81700, 3CSR2

:D0 1 WORD
i00 IT

'LOAD NEW DATA TO DATA R.
:DMA DONE?
‘WAIT TILL DONE

SCSR2
28

MOV

(SP). $BDADR

ERROR

:G0 CHECK
SRESET LATENCY COUNT,DATI

2%
$1407,8CSR1

RTS

RTI

4582

4583

$12525, 8DATA
RO
1
#8IT09!BITO0,CSR2
24
#1601, aCSR1
STEMP . 3BA
9MC
#177777,8CSR2
#B1T00,
@CSR2
24
PC

.SBTTL DMARD DATI THRU Q22BE

4368
4569 030174 012777 177777 152140

43580

iSET PRIORITY IN CSR2
{PREPARE TO SET DONE

:THIS ROUTINE PERFORMS DATI CYCLE THRU Q22BE IN EITHER BLOCK MODE OR A SINGLE

BR
MOV

4579 030226

(R0),2(R3)
#B8I700, (RO)

;CLEAR TRANSFER TYPE IN CSR1
i ZERO DONE

'IN THE LATTER CASE ADDRESS AND WORD COUNT HAS TO BE LOADED BEFORE.

4566 030164 000411
4567 030166 012777 001407 152140 13:

4578 030224

(R3)
#81700, (RO)

_SBTTL DMATRN DATO CYCLE THRU Q22BE

4557

4338

@22INT: CLR
BIS

:THIS ROUTINE PERFORMS DATO FROM A LOCATION TEMP THRU THE FIRST
'FOUND Q22BE STARTING AT LOCATION @CSR1. RO HAS O IF ONLY 1 TRANSFER IS
'70 BE PERFORMED. OTHERWISE 16 BLOCK MODE TRANSFERS ARE TO BE PERFORMED.

4538
4539
4540

4543 030046
4544 030054
4545 030056
4546 030060
4547 030066
4548 030070
4549 030076
4550 030104
4551 030112
4552 030120
4553 030124
4554 030126

Page 42-2

AT THE STARTING ADDRESS IN R3. THE TEST HAVE TO SET ACTUAL DONE BIT
.
iBY CLEARING GO.

000207

4537

4541

Wednesday 09-Apr-86 09:43

+41

iMMU GLOBAL SUBROUTINES

iRETURN FROM SUBROUTINE

.STORE TRAPPED PC

{UNEXPECTED TRAP

129

‘\

N10

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 42-3

SEQ 0130

DMARD DATI THRU Q22BE

;ROUTINE TO INITIALIZE MEMORY MANAGEMENT

172516

RTS

R1,-(SP)
R2.-(SP)
#177600,R0
PC,PDR
PC.PAR
PC . PAR
#172200,R0
PC,PDR
PC,PAR
PC,PAR
PC.PDR
PC.PAR
PC.PAR
927,80172516
(SP)+,R2
(5P)+.R1
(SP)+.RO
PC

;SAVE CONTENTS OF REGISTERS
:

RO, -(SP)

HEHO MM

MOV

MOV
MOV
MOV
JSR
JSR
JSR
MOV
JSR
JSR
JSR
JSR
JSR
JSR
MOV
MOV
MOV
MOV

MMU:

010046

4586
4587
4588 030230

;INIT D KER PAR'S
; INIT MMR3
;RESTORE REGISTERS
;RETURN

:ROUTINE TO INITIALIZE PDR'S
461

4611 030332

012720

POR:

PORi:

077406

CLR

ADD
CMP
BNE

#1,R2
#16. ,R2
POR1

MOV

RTS

#77406, (RO)+

'ROUTINE TO INITIALIZE PAR'S

030354

005001
010120

030362

022701

030370

012720

000207

PAR:

PAR1:

000200

001600
177600

CLR
MOV
ADD
cHP
BNE
MOV
RTS

Rl
R 1,(RO)+
#200,R1
oksob.m
PAR1
9177600, (RO)+
PC

'TIME OUT ROUTINE
RS
ADDTRP: INC
RTI

;SETUP TO INIT PAR
:INIT PAR

;GET READY FOR NEXT PAR
;REACHED A PAR7
;BRANCH IF NOT
;INIT PAR7
;RETURN

; INCREMENT TIME OUT FLAG
;RETURN

;MMU TRAP ROUTINE
4634 030402

4638 030416
4639 030422

4640 0!0‘3
4641

023727

013700
072027

020027

003032

177776
177764

000002

000001

;

MMUTRP: CMP

BEQ

1%:

ERROR

FLAG,#1

MOV
MOV

RO, -(SP)
ae177776,RO

cMP
BNE

#2
RO,
0K

ASH

#-14,RO
NOTOK

: ARE 5 EXPECTING AN ABORT
YES GO ON

:NO GO TO ERROR

;SAVE CONTENTS OF REG O
:SAVE A COPY OF PSW
;LOOK AT BITS<15:14>
;WAS PS<15:14>=10
;NO GO ON
; YES CHANGE BITS TO 00

e
:J - .

COXDOBO XDJ11-DA CLUSTER DIAG.

MACRO V0S.03

Wednesday 09 Apr-86 09:43

OMARD DATI THRU Q228E

4643 030436 013700

177776

072027

177764

4644 030442 072027 000002

4645 030446
030452 020027 000002
4646
4647 030456 oogooa

Ox:

82177776 ,RO

;SAVE A COPY OF PSW

cHP
BNE

flO
o2,
e-1

#
é
RO,
OK1
4(SP)

PS<13:12>=10
sUAS
:NO GO ON

MOV
MOV
CLR
CLR
MOV

a#177572, SAVMRO
89177574 ,SAVMR]
3177576, SAVMR2
177572
FLAG
(SP)+,RO

FFROM OLD PSW
xCLEfl ILLEGALOFmoe
MMRO

MOV

ASH

NOTOK: CLR
4648 030460 013737 000004
MOV
177572 003044 OK1:

4649 030464
4650 030472
4651 Om
4652 0
4653 030512
4654 030516
4655 030520

013737 177574 003046
013737 177576 003050
005037 177572
005037 003032
012600
000002

Page 42-4

RTI

;Lw( AT BITS<13:12>
;SAVE A COPY
:SAVE A COPY N MMR1
;SAVE A COPY OF MMR2
;CLEAR ABORT BITS AND TURN MMU OFF
;CLEAR MMU ABORT FLAG
;RESTORE ORIGINAL CONTENTS OF REG O
;RETURN

SEQ 0131

Cll

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S.03

Wednesday 09-Apr-86 09:43

Page 43

SEQ 0132

DMARD DATI THRU Q228BE
4659

;"PP_COMMON SUBROUTINES

ALDTRP: MOV
MOV

012600
012605
104003
000110

ERROR

JMP

iRPFLG: .MORD

000000
000207
000207

ERRFP:
ERR: =~

RTS
RTS

(SP)+,.RO
(SP)+,R5

:SAVE PC
;SAVE STATUS AND RESTORE STACK

(RO)

;GO BACK INLINE

R7
R7

N
H
H

' SUBROUTINE DATA VERFICATION R7,DATVER
JSR
| CALLED BY
H

(R4)=EXPECTED DATA

INPUT:

(R1)=RECEIVED DATA

:THIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE

;EQUAL TO THE FOUR WORDS ADDRESSED BY (R1). THE CONTENTS OF R4, AND R1 ARE NOT
:DISTURBED.
;LOCATION “COUNT"

IF NOT EQUAL TO O SIGNIFIES DATA ERROR

:IF THE STATUS IS FLOATING MODE, THE LAST TWO BYTES OF RECEIEVED
;ARE SIMPLY CHECKED FOR
;

DATVFR: MOV
000003
030570

MOV
MOV

003124

JMP

DATVER: MOV
000005
003124

003124

DAT1:

2%:

MOV
DEC
BEQ
CHP
BEQ
MOV
MOV
RTS

R4,-(SP)

R1,-(SP)
#3. COUNT
DAT1

;SAVE R4

;SAVE R1

;SET UP ITERATION COUNT
H

R4,-(SP)

;:SAVE R4
;SAVE R1
;SET UP ITERATION COUNT

24
(R4)+,(R1)+
DAT1
(SP)+,R1
(5P)+.R8

;BRANCH IF DONE

- COUNT

;RESTORE R1
;RESTORE R4

;GO BACK TO CALLING ROUTINE
;IF DATA ERROR, COUNT NE O

D11

COXDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 0S-Apr-86 09:43

Page 44

DMARD DATI THRU Q22BE
0'0o oooooooooo

300000000000000000000000000000000000000000000000000000000000000000

4707

; DELAY - INTERRUPT TIMER

4708
4709
4710

4711
4712
4713
4714
4715
4716
4717
4718
4719

;: This test is called by the interrupt receiver and transmitter

030610
030610
030614
030620
030622

013746
013746
010046
010146

4720 030624
4721 030632

012737
106737

030652
000006

4723 030636

012700

000001

012701

011610

005737

160000

4722

724

MOV
MOV

a6, -(SP)
RO, -(SP)

MOV

#24%,904
L)

;SET TRAP
;PUT PSW ON PS / SAME PRIORITY

MOV

#1..RO

;SET OUTER LOOP COUNT

3%:

MOV

#5000. ,R1

:SET INNER LOOP 1/200TH

1$:

TST

a#160000

; TAKES ABOUT 10u SEC

2%:

CMP
S0B
S08

(SP)+,(SP)+
R1,1%
RO, 3¢

012601
012600
012637
012637

MOV
MOV

(SP)+,R1
(SP)+,RO

000207

RTS

022626
077104
077007

000004

MFPS

MOV

(SP)+,a%6

E1ll

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 45

SEQ 0134

DMARD DATI THRU Q22BE
‘000000000000000000000000000000000000000000000000000000000000000000000000000000.

4743
4743

4749 030676
4750 030704
4751 030712

4760 030772
4761 030774
4762 031002
4763 031010

; This test is called by the memory test to set up the PARS so

; all of memory is acce

gl
t

RStt

012737
012737
012737

077203
012737
012737
000207

20, 9KIPARO

172340
172342
172344
172346
172350
172352
172354
172356

2200, 30KIPAR1

#400
. 30K IPAR2

#600 . 3¢KIPAR3

#1000, 30iKIPARA

#1200, 3#KIPARS
#1400, 3KIPARG

:igvézsoo.mxpmv

10¢:

177572
172516

#KIPDRO,R1
$77406,(R1)+
R2,10$
#1.94SRO

ggiu ,@0SR3

SUBR SET_UP MMU REGISTERS

POINT 10 PAGE O TO ITSELF
POINT
POINT
POINT
POINT
POINT
POINT

TO PAGE 1 TO ITSELF
T0 ITSELF
TO P
TO PAGE 3 TO ITSELF
TO PAGE 4 TO ITSELF
TO PAGE 5 TO ITSELF
TO PAGE 6_TO ITSELF
W=

4744
4745
4746
4747
4748 030676

; SETMMU - SET UP THE MMU REGISTERS

POINT I/0 PAGE TO IT'S PLACE IN 2z BIT
BGNDO

SET UP PDR'S TO 4K R/MW

DOUNTIL WE HAVE INITIALIZED ALL OF THEM

ENABLE MEMORY MANAGEMENT
ENABLE 22 BIT ADDRESSING
ENDSUBR SET_UP MMU REGISTERS

r1l

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesday 09-Apr-86 09:43

MACRO V05.03

Page 46

SEQ 0135

DMARD DATI THRU Q22BE
L BBPPPPPP PR PR

‘765

: INIMEM - FILL UP MEMORY

:;gg

; This test is called bxcthe Quick verify memory test. It initializes
following.
; memory to look like the

4768
:;gg

;

Address

Data

4773
4774
4775
4776
4777
4778

i
:
:
s
;
:

O
1
2
3
4
S

377
0
0
377
0
0

4780

4771

4772

4779
4781

eeeeee-

4782

j----==-e=esemmsemmsme-emececcseceesemessssssess------------c-c-=--=c----

4783

INIMEM:
4784 031012
MOV
4785 031012 012737 001600 172344

4786 031020 012701 040000
4787 031024

4788 031024

4789 031030
4790 031032
4791 031036
4792 031040
4793 031046
4794 031052

4795 031056
4796 031064
4797 031066

4798 031072
4799 031074
4800 031100
4801 031102
4802 031110
4803 031114

4804 031120
4805 031126

112711

005201
020127
103413
062737
042701
052701
023727
001443
112711
005201
020127
103415
062737
042701
052701
023727
001422

177777

10$:

060000
000200 172344
160000
040000
172344 020000
000000

20$:

060000
000200 172344
160000
040000

172344 020000

4806 031130 112711 000000
1
4807 031134

4803 031136 020127 060000
4809 031142 103730
4810 031144 062737 000200 172344

308:

4813 031162 023727 172344 020000
4814 031170 001401
4815 031172 000714
4817 031174

4818

000207

40:

50¢:

; SUBR INITIALIZE MEMORY
: POINT KPAR2 TO LOW ADDRESS

MOV

#1600, SSKIPAR2
#40000, R1

MOVB

#-1,(R1)

#40000, R1

: :

#0,(R1)

: WRITE A O TO 1 OFFSET ADDRESS

SHKIPAR2 , 920000
404

: : ENDIF
: DOUNTIL WE HAVE READ ALL ADDRESSES

INC
cMP
BLO
ADD
BIC
8IS
cMP
BEQ
MOVB
INC
cMP
BLO
ADD
BIC
8IS
CHP
BEQ

R1
R1, #60000
204
#200, 3HCIPAR2
#160000,R1

cMP
BLO
ADD

R1, #60000
104
#200, 9OKIPAR2

MOVE
INC

BIC
8IS

4811 031152 042701 160000
4812 031156 052701 040000
4816 031174

08000000 00000000

RF22 0222000008000

SKIPAR2, #20000
403
R1
R1, #60000
304
$200, IOKIPAR2
#160000,R1
$40000, R1
#0,(R1)
R1

#160000,R1
#40000, R1

CMP
BEQ
BR

BOKIPAR2 , #20000
404
10

RTS

: SET VIRTUAL ADDRESS TO MAP THRU KPAR2
;

BGNDO

: WRITE A -1 TO O OFFSET ADDRESS

-3
: : IF WE HAVE PASSED THE PAGE BOUNDARY
: : : THEN
POINT KPAR2 TO A NEW PAGE
;
CLEAR OUT THE PAGE POINTER
;
POINT VIRTUAL ADDRESS TO KPAR2

; : ENDIF
: DOUNTIL WE HAVE READ ALL ADDRESSES
;
:
;
;
:

: IF WE HAVE PASSED THE PAGE BOUNDARY
: : THEN
POINT KPAR2 TO A NEW PAGE
CLEAR OUT THE PAGE POINTER
: : POINT VIRTUAL ADDRESS TO KPAR2

:
:

: WRITE A O TO 2 OFFSET ADDRESS
: BUMP UP ADDRESS BY 3

:
i
:
;
:

: IF WE HAVE PASSED THE PAGE BOUNDARY
: : THEN
: : POINT KPAR2 TO A NEW PAGE
: CLEAR OUT THE PAGE POINTER
POINT VIRTUAL ADDRESS TO KPAR2

: : ENDIF
: DOUNTIL WE HAVE READ ALL ADDRESSES
;
:

ENDIF

: ENDSUBR INITIALIZE_MEMORY

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09: 43

o stis

Page 47

DMARD DATI THRU Q22BE
‘&2

30000000000000000.00000000000’00..0000.0000000000‘00000000000000000

4825

; This test is called by the Quick verify memory test to Read or

4828

: R3 = OPERATION TO BE PERFORMED

4830
4831

:
:

4833
4834

‘ -------------------------------------------------------

; RWTMEM- READ OR WRITE TO THE. MEMORY

:ggz

:ggg

; Write to memory.
;

4832

4836 031176

4837 031176 012737 001600 172344
4838 031204 012701 040000

4839 031210 012702 000003
4840 031214 160402
4841 031216
4842 031216 060401
4843 031220 020127 060000

0 - READ
- WRITE

R4 = THE ADDRESS INCREMENT
RS = THE EXPECTED PATTERN

RWTMEM:

10§:

023727 172344 020000
4848 031244 001435
040000

4849 031252

4850 031254 005703
4851 031256 001012

4852 031260
4853 031262
4854 031264
4855 031270
4856 031274
4857 031300
4858 031302
4859 031304

4860 031304

110511

4862 031306
4863 031310
4864 031314
4865 031316
4866 031324
4867 031330
4868 031334
4869 031342

060201
020127
103740
062737
042701
052701
023727
001401

4861 031306

4870 031344

15%:

000724

4871 031346 000207

ADD
cMP

R4 ,R1
R1, #60000

MOV
suB

20%:
30%:

060000
000200 172344
160000
040000
172344 020000
404 :

#3,R2
R4 ,R2

; SUBR READ_WRITE_MEMORY
; POINT TO KPAR2 TO LOW ADDRESS
; POINT TO PAGE 2 VIRTUAL ADDRESS
: WE ARE BUMPING UP BY 3
; SUBTRACT OFF ADDRESS INCREMENT
: BGPOO
; : GET ADDRESS TO LOOK AT
; : IF WE HAVE PASSED THE PAGE BOUNDARY

#200 “KIPMZ

:
;
;

: : THEN
: : POINT KPAR2 TO A NEW PAGE
: : CLEAR OUT THE PAGE BITS

R3
20%

:
:

: IF THE OPERATION IS A READ
: : THEN

30¢

MOVB

R5,(R1)

:
1

: : ENDIF
¢+ BBSE

ADD
CMP
BLO
ADD
BIC
BIS
cMP
BEQ

R2,R1
R1, #60000
10$
#200, 3#CIPAR2
#160000,R1
#40000 *1
“KIPA*Z.OZOOOO
404

RTS

BIS
cMP
BEQ

TST
BNE

CMPB
BEQ
MOV
MOVB
MOV
ERROR

120511
001411
010537 001124
111137 001126
010137 001122
104066
000401

#1600, 3#KIPAR2
#40000,R1

BLO
ADD
BIC

4844 031224 103413
4845 031226 062737 000200 172344
4846 031234 042701 160000
4847 031240 052701

MOV
MOV

--------------

154
60600

NKIPA*Z’.OZOOOO
404
RS,(R1)
RS, $GDDAT
(R1), $BDDAT
Rl.‘éom
+66

304

10$

: SET THEM BACK TO PAGE 2
;:T :: ENDIF

:
i
3.
Y
$]
§
:
:

: :
::
2%
i
& 3
13

IF CONTENTS <> EXPECTED PATTERN
: THEN
GET THE EXPECTED PATTERN
8
GET THE RECIEVED PATTERN
GET THE VIRTUAL ADDRESS
3
ERROR IN MEMORY
3

: :

WRITE PATTERN TO MEMORY

: ENDIF

: : ADD ON DIFFERENCE TO GET ADDRESS+3
IF WE HAVE PASSED THE PAGE BOUNDARY
:
: : : THEN
: POINT KPAR2 TO A NEW PAGE
SO
: : : CLEAR QUT THE PAGE BITS
Pt SET PAGE BITS BACK TO PAGE 2
ENDIF
:
: DOlNTIL WE HAVE READ ALL ADDRESSES
3

: ENDSUBR READ_WRITE_MEMORY

H11

COXDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 48

SEQ@ 0137

DMARD DATI THRU Q228BE
R

4873
4874
4875

4877

4887 031374
4888 031376
4889 031404
4890 031410
4891 031412
4892 031414

4893 031420
4894 031422

4895 031430
4896 031434
4897 031440
4898 031446
4899 031450

4900 031454
4901 031462
4902 031464
4903 031472
4904 031476
4905 031500
4906 031504
4907 031510
4908 031512
4909 031520
4910 031524
4911 031530
4912 031536
4913 031540
4914 031542
4915

R R

R A

L R

R L

; This test is called by the memory test write to memory

! R4 = THE ADDRESS INCREMENT

4878
4879
4880

4886 031366

D
THE MEMORY
;: RRMEM- REA

4876

4881 031350
4882 031350

RS = THE EXPECTED PATTERN

ettt
A
——————
S

012737
012701

001600
040000

111137
122737
001406
012737
010137
104066
005201
020127
103413
062737
042701
052701
023727
001435
111137
122737
001406
112737
011137
104066
062701

001126
177777

177777

001122

060000
000200
160000
040000
172344
001126
177777

177777
001122
000002
060000

000200
160000
040000
172344

172344

001126
001124
15$:

MOV

INC

ERROR

cMP
8IS

208:

30$:

MOVB

R1, #60000

mxpmz
%goo
60600

aoxméa.ozoooo
(Rn.taoon

MOVB
ADD

+66
#2.R1

MOV
ERROR
cMe
BIS

40$:

+66

&-1,$BDDAT
300
1, $GDDAT

CMPB
BEQ

%
BIC
cHP
BEQ

172344
020000

ooob R1

uu) $BDDAT
1, $BDDAT
153
#-1, $GDDAT
R1, $BDADR

greré

020000

#1600,30KIPAR2

MOVB
CMPB
BEQ
MOV
MOV

BA(Lig
BIC

172344

001126
001124

" MOV

RTS

mS $BDADR

R1.#60000

sz READ_LOCATIONS 0,1

LET PAR POINT 10 LOW Aooness

POINT TO KPAR2 VIRTUAL ADDRESS
BGNDO

: GET A COPY OF RECIEVED PATTERN

IF O OFFSET ADDRESS <> -1 THEN
ERROR _IN MEMORY
GET THE EXPECTED PATTERN
GET THE VIRTUAL ADDRESS

1 OFFSET ADDRESS
POINT TO
IF WE HAVE PASSED THE PAGE BOUNDARY
THEN

POINT KPAR2 TO A NEW PAGE
CLEAR THE PAGE BITS
POINT BACK TO PAGE 2

ENDIF

GET THE RECIEVED PATTERN
IF 1 OFFSET ADDRESS <> -1 THEN
ERROR IN MEMORY
GET THE EXPECTED PATTERN
GET THE VIRTUAL ADDRESS

ADD 2 TO ADDRESS TO GET ADDRESS + 3
IF LE HAVE PASSED THE PAGE BOUNDARY

12o00, 3eKIPAR2
soboo
uxxmiz
40$

DOUNTIL WE HAVE READ ALL ADDRESSES

ENDSUBR READ_LOCATIONS_O,1

108

: s POINTKPAR2TOA'£UPAGE
: : CLEAR THE PAGE BITS
: m;gm BACK TO PAGE 2

111

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Page 49

Wednesday 09-Apr-86 09:43

DMARD DATI THRU Q22BE

4917
4918
4919
4920
4921
4922
4923
4924

4925

THIS SUBROUTINE IS CALLED IF AN ERROR IS DETECTED DURING EXECUTION OF THE

FLOATING POINT TESTS.

IT DETERMINES WHEATHER OR NOT THE FLOATING POINT ACCELERATOR CHIP OPTION
IS PRESENT ON THE CPU BOARD AND PRINTS THE APPROPRIATE ERROR MESSAGE.
THIS DETERMINATION IS MADE BASED ON THE “FPA AVAILABLE" FLAG, BIT 8
OF THE MAINTENANCE REGISTER AT LOCATION 17777750. IF THE FPA BIT IS SET
THEN THE FLOATING POINT ACCELERATOR CHIP IS INSTALLED ON THE CPU BOARD AND
AN ERROR MESSAGE IS PRINTED WHICH STATES THAT THE FLOATING POINT ERROR 1S

DUE TO THIS CHIP. OTHERWISE, THE J11 IS BLAMED FOR THE FLOATING POINT ERROR.
$8$

QUDETFPA ;$4$

CALLED BY: CALL
INPUTS: NONE

;868

OUTPUTS: ERROR MESSAGES

i888

104401

000207

031552
122
122
105
103
104
116
061
106
101
116
120
116
120
103
123
056

DETFPA

RTS

JIIFLT

; §4
; $8

“wwn

4932
4933
4934
4935
4936
4937
4938
4939

4945
4946

SUBROUTINE - DETERMINE FLOATING POINT ACCELERATOR (DETFPA)

4926
4927
4928
4929
4930
4931

$$¢

311&7: .ASCIZ /ERROR DETECTED IN J 11 FLOATING POINT PROCESSOR./ ; $$%

.EVEN

i $8¢

SEQ 0138

{‘

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesday 09-Apr-86 09:43

MACRO V05.03

Peage 50

DMARD DATI THRU Q228BE
4949

4950

.SBTTL

4951

END OF PASS ROUTINE

L
TL

;#*INCREMENT THE PASS NUMBER ($PASS)
;#*INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM

;#TYPE “END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER)

;#IF THERES A MONITOR GO TO IT
031632

031632
031640
031642

*«IF THERE ISN'T JUMP TO LOOP

032737
001030
004537

000052

017724

001102
001164
001206
100000 001206

BIT #BIT06,a#52
BNE $GET42
jsr rS,vir

R
CLR
INC
BIC

$TST
$TIMES
$PASS
#100000, $PASS

.WORD

031646
031652
031656
031662

005037
005037
005237
042737

031672

000001

$EOPCT:

000001
031672

$ENDCT: .WORD
$EOPCT

031670

005327

031674
031676

003022
012737

031704
031710
031714
031716
031722

104401
013746
104405
104401
013700

031700
031702

031726 001405

031730
031732
031734
031736
031740

000005
004710
000240
000240
000240

031742

000137

031746

377

031742

031744

031751

031757
031762

4952

0 100

EOP:

031765

005064

BGT
MOV

TYPE
MoV
TYPDS
TYPE
$GET42: MOV

031751
001206

031746
000042

BEQ

RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:

015

377

012

000

120
123

101
040

123
043

000

DEC

$RTNAD:

JMP

.WORD

$ENULL: .BYTE

(PC)+

; sZERO THE TEST NUMBER
; ;ZERO THE NUMBER OF ITERATIONS
; ; INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
: ;LOOP?

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

13 YES
; sRESTORE COUNTER

. $ENDMG
$PASS, -(SP)

;s TYPE "END PASS #”
: ; SAVE $PASS FOR TYPEQUT
:3G0 TYPE--DECIMAL ASCII WITH SIGN
;:TYPE A NULL CHARACTER
; ;GET MONITOR ADDRESS

SENULL
a®42,RO

$DOAGN

PC,(RO)

i ;BRANCH _IF NO MONITOR

: ;CLEAR THE WORLD
:3G0 TO MONITOR
: s SAVE ROOM
: :FOR
::ACT11

a(PC)-

: sRETURN

-1,-1,0

;NULL CHARACTER STRING

LOOP

105 SENDMG: ASCIZ <18><i2>/enD pasé’e/
_SBTTL SCOPE HANDLER ROUTINE

H ;“““.“.‘.“““““‘“.“‘.“‘“‘.‘..““...““‘...‘““.‘.

INCREMENT
' STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL
PLAY<7:0>)
REG.(DIS
DISPLAY
P“AND LOAD THE TEST NUMBERCS$TSTNM) INTO THE
'SAND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<1S:08>
'STHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
+SW14=1
1eSW11=1

031766

031766 104407

: $5W09=1
1 #5408=1
; *CALL
SCOPE
.
$SCOPE: CKSWR

LOOP ON TEST
INHIBIT ITERATIONS

LOOP ON ERROR
LOOP ON TEST IN SWR<5:0>
1SCOPE=10T
,sTEST FOR CHANGE IN SOFT-SWR

i sat
1

IK11

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 50-1

SCOPE HANDLER ROUTINE
031770
031776
032004

052737
032777
001117

001000
040000

177520
147134

032777
001407
017746
042716

032034
177060

147066

001103
147022
001106

146770

BIT
BNE

001104
001164
001204

001115
146670

981714, 3SWR
$OVER

; ;LOOP ON PRESENT TEST?
YES IF SW14=1

::IF RUNNING ON THE “XOR” TESTER CHANGE

{$0200START OF CODE FOR THE XOR tésTERovose

::THIS INSTRUCTION TO A “NOP” (NOP=240)

SOERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
:1SET FOR TIMEOUT
#5% ,SPERRVEC
MOV
TST
39177060
;3 TIME OUT ON XOR?
(SP)+,@PERRVEC ;;RESTORE THE ERROR VECTOR
MOV
1360 TO THE NEXT TEST
$SVLAD
BR
: ;CLEAR THE STACK AFTER A TIME OUT
(SP)+,(SP)+
CMP
5%:
(SP)+.P0ERRVEC ;;RESTORE THE ERROR VECTOR
MOV
: ,ft.oop ON THE PRESENT TEST
7%
BR
6$:; SO00PEND OF CODE FOR THE XOR TESTER$008¢
;;LOOP ON SPEC. TEST?
#8IT08, aSWR
BIT
::BR IF NO
2$
BEQ
: :SET DESIRED TEST NUM. FROM SWR
@SWR, -(SP)
MOV
: :STRIP AWAY UNDESIRED BITS
S3$SWRMK, (SP)
BIC
;;ON THE RIGHT TEST?
(SP)+,$TSTNM
CMPB
::BR IF YES
$OVER
BEQ
: sHAS AN ERROR OCCURRED?
$ERFLG
TSTB
2¢:
:iBR IF NO
3
BEQ
;:;MAX. ERRORS FOR THIS TEST OCCURRED?
SERMAX,$ERFLG
CMPB
;:BR IF NO
3
BHI
;:LOOP ON ERROR?
#BIT09, 3SWR
BIT
::BR IF NO
as
BEQ
7%:

ggv

:Lpeaa.mmn

: :SET LOOP ADDRESS TO LAST SCOPE

4s:

CLRB

$ERFLG

34:

001104

1%:

$OVER:

CLR
BR
BIT
BNE
15T
BEQ
INC
cHP
BGE
MOV
MOV

$TIMES
1
98IT11,3SWR
1
$PASS
13
$ICNT
$TIMES, $ICNT
$OVER
#1, $ICNT
$MXCNT, $TIMES

MOV
MOV
CLR

(SP), $LPADR
(SP). $LPERR
$ESCAPE

: :SAVE SCOPE LOOP ADDRESS
: 1SAVE ERROR LOOP ADDRESS
i ;CLEAR THE ESCAPE FROM ERROR ADDRESS

MOVB

MOV

$TSTNM
$TSTNM,S$TESTN

&1, $ERMAX

: ;COUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX

::ONLY ALLOW ONECI) ERROR ON NEXT TEST

$TSTNM, SDISPLAY ;;DISPLAY TEST NUMBER

$LPADR, (SP)

g%: #1000,BCSR ;DISABLE

$MXCNT: 1
.SBTTL
T

: ;ZERO THE ERROR FLAG

: ;CLEAR THE NUMBER OF ITERATIONS TO MAKE
: ;ESCAPE TO THE NEXT TEST
: s INHIBIT ITERATIONS?
:1:BR IF YES
::IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
i
: s INCREMENT ITERATION COUNT
;;CHECK THE NUMBER OF ITERATIONS MADE
1:BR IF MORE ITERATION REQUIRED
: ;REINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS T0 DO

$SVLAD: INCB
MOVB

177520
4953

BIS #1000,BCSR ;ENABLE

XTSTR: BR

000416
013746
012737
005737
012637
000466
022626
012637
000426

18:

ERROR HANDLER ROUTINE
T T T
L

: ;FUDGE RETURN ADDRESS
; sMAX. NUMBER OF ITERATIONS
L L bbbt

;#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;#*AND GO TO ERTYPE ON ERROR

SEQ 0140

‘\

Lll

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

Page 50-2

ERROR HANDLER ROUTINE

;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;‘SUlS'

HALT ON ERROR

i ¥

«N

IPHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

;%SW13=1
;#SW10=1
; #SW09=1
; #*CALL
$ERROR:

004154

032512

177520

001102
002000

146612
146602

001170
001112
001116

146530
020000

001114
032670

032432

022737
001001

031732

000000

004152
000032

SERFLG

#BIT10.aSKR
14
INC

: s TEST FOR ABORT CONDITION

;s TEST FOR CHANGE IN SOFT-SWR

ENABLE HALT ON BREAK

;1SET THE ERROR FLAG

::DON'T LET THE FLAG GO TO ZERO

: {RING BELL
: ;COUNT THE NUMBER OF ERRORS
: :GET ADDRESS OF ERROR INSTRUCTION

@$ERRPC, $ITEMB
#BIT13, 3SWR

;;STRIP AND SAVE THE ERROR ITEM CODE
1 :SKIP TYPEOUT IF SET

$BELL
(SP), §

82 oéanpc
ERT(PE

.sém.r

:
204

SAPTENV,$ENV

SITEMB,21$

21$:

.BYTE

22¢:

TST

34:

BIT

4%:

TST

.SBTTL
ABORT:

: :SKIP TYPEOUTS

1360 TO USER ERROR ROUTINE

;;RUNNING IN APT MODE

nno SKIP APT ERROR REPORT

ITEM NUMBER AS ERROR NUMBER

gc.mu

i IREPORT FATAL ERROR TO APT

; sAPT ERROR LOOP
: tHALT ON ERROR

224
FSWR
3

nSKIP IF CONTINUE

oenoe SSWR
owsna (SP)
SCAPE

mégo;’__%m
i
: ;FUDGE RETURN FOR LOOPING
: sCHECK FOR AN ESCAPE ADDRESS

SESCAPE,(SP)

S5%:

: :BELL ON ERROR?
::NO - SKIP

3eam.

6%:

000002

005737
001454
020027

146462

#1000,BCSR

: ;sTEST FOR USER-QUIET MODE
: :BRANCH IF FIELD-SERVICE MODE
1IN CASE RO HAS A @3 IN IT (fC)

$TSTNM,@DISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

2%:

146476

001166

INCB

146542

001220

013716

PC,ABORT

001116
001114

000001

001110
001166

7%:

1%:

027030
001175

001000

UQUIET
9
RO

9¢:

001000
001103

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

#$ENDAD, 8042
64

:HALT ON ERROR!

IN SOFT-SWR
P ITEST FOR CHANGESWITCH
SET?
usn IF NONE

;:FUDGE RETURN ADDRESS FOR ESCAPE

;;ACT-11 AUTO-ACCEPT?
n%sm IF NO
1R

RTI

ABORT ROUTINE FOR chxoni

TST
BEQ
CcMP

UFDFLG
NOABRT
RO, #32

&‘RETU!N
MODE

T FOR USER FRIENDLY MODE

s%:g 'I?T lf'g ;I'EN CONTINUE NORMAL OPERATION
:

SFQ 0141

—

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

ABORT ROUTINE FOR LCP/ORION UFD MODE
001443
020027
001404
005737
001443
000422
013737
013737

104043

4954

005720
001376
112760
112720
112720
105010
000412
013737
013737
104042
012760
013700
005037
000137
000207

004146
004150

000030
000032

000057
000136
000103
004146
004150

CLRB

000030
000032

177777

BR
ABORTE: MOV
MOV
EMT
MOV
ABORTZ: MOV
CLR
JHP
NOABRT: RTS

033116
033114

033116

122737
001031

000001

001220

000100

001221

132737

MOV
EMT
TST
BNE

MOVE
MOVB
MOVB

177777

033114

001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000‘%3
017637
062766
013746
004737
000000

ABORTC: MOV

1%:

105737

001450

BEQ
TST
BEQ
BR

004154

112737
112737
000403
112737
010046
010146

BEQ
cHP

000003

000004
000002
001200

177776
033120

SAV32.32
43
(RO)+
1$

#'/,-1(RO)
#'t.(RO)+
#'C.CRO)+

(RO)

ABORTZ
30
SAV30,
SAV32.32
+42
#-1,42(RO)
3442 ,RO
3042
$ENDAD
PC

:BR TO LOAD tC ON _XXDP+ STACK (NO ERROR)
; TEST FOR USER-QUIET MODE

;IF FIELD-SERVICE MODE,

;SET DRSERR THEN LEAVE
;RESTORE EMT LOCATION (30)
;RESTORE EMT PRIORITY_LOCATION (32)

;GET XXDP STACK LOC. INTO RO FROM MONITOR
;FIND END OF STACK

;LOAD SLASH OVER ZERO
;LOAD UPARROW
;LOAD C
;MAKE NEW END TO STACK
:NOW_LEAVE
;RESTORE EMT LOCATION (30)

;RESTORE EMT PRIORITY LOCATION (32)

;GET DCA LOCATION INTO RO FROM MONITOR
;SET A -1 INTO LOCATION DRSERR IN MONITOR
;AND PUT THE MONITOR RETURN ADDRESS IN RO
;CLEAR MONITOR RETURN FLAG

;RETURN TO MONITOR-DO NOT PUSH STACK HERE
; IF NOTUFD RETURN TO MAINLINE

ATY1:

$ATY3:

$ATY4:

$ATYC:

001200

34:
as:

MOVB

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITE
BEQ
MOV
ADD
15T
BNE
MOV
TSTB
BNE
SUB
ASR
MOV
33"
MOV
ADD
MOV
JSR

"WORD

#1,$FFLG

CONTINUE NORMAL OPERATION

; BECAUSE FIELD-SERVICE MODE DOES NOT QUIT ON ERROR

MOVB

2s:

033026

30
SAV30,

;.ilsJS}ng Qeco; TO CHAIN IF IT IS (NO ERROR)

APT COMMUNICATIONS ROUTINE

001214

001216
000004

ABORTC
NOABRT
ABORTE

UQUIET

SEQ 0142

_SBTTL

1$:

001214

ABORTZ
RO, #3

Page 50-3

b bttt

#1,$MFLG

70 REPORT FATAL ERROR
;:
::70 TYPE A MESSAGE

#1,$FFLG

;370 ONLY REPORT FATAL ERROR

$ATYC

:;PUSH RO ON STACK
RO, -(SP)
;;PUSH R1 ON STACK
R1,-(SP)
$MFLG
; ;SHOULD TYPE A MESSAGE?
:3IF NOT: BR
5$
$ENV
; ;OPERATING UNDER APT?
SAPTENV,
BR
NOT:
::IF
34
#APTSPOOL, SENVM ; ;SHOULD SPOOL MESSAGES?
::1IF NOT: BR
38
; ;GET MESSAGE ADDR.
4(SP),RO
; ;:BUMP RETURN ADDR.
82,4(5P)
1F 'DONE W/ LAST XMISSION?
$MSGTYPE
MWAIT
NOT:
1
ADDR IN MAILBOX
RO, $MSGAD
IND END OF MESSAGE
(RO
24
START OF MESSAGE
, RO
33
$MSGAD
MESSAGE LNGTH IN WORDS
RO
33
;;PUT LENGTH IN MAILBOX
RO, $MSGLGT
04, $MSGTYPE
;s TELL APT TO TAKE MSG.
;iPUT MSG ADDR IN JSR LINKAGE
D4(SP),44
BUMP RETURN ADDRESS
92,4(5P)
; i PUSH 1”776 ON STACK
177776, -(SP)

ie2s

M11

COKDDBO KDJ11-DA CLUSTER DIAG.

PC, $TYPE
O

:;CALL TYPE MACRO

——

N1l

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 50-4

APT COMMUNICATIONS ROUTINE

033030
033030

105737

033034
033036
033042
033044
033050
033052
033060

001416
005737
001413
005737
001375
017637
062766

033072
033076
033102

105037
105037
105037

033112

000207

108:

033116

001220
118:
001200
000004 001202
000002 000004

033066 005237 001200
033116

033106 012601
033110 012600
033114
033115
033116

4955

TSTB

12%
SENV
12
$MSGTYPE
11%
D4(SP),$FATAL
$2,4(5P)

CLRB
CLRB
CLRB

$FFLG
$LFLG
$MFLG

INC

12¢:

033115
033114

MOV
MOV
RTS

$MFLG: .BYTE
$LFLG: .BYTE
$FFLG: 2525
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040

000
000
000
000200
000001
000100
000040

$FFLG

BEQ
ST
BEQ
18T
BNE
MOV
ADD

$MSGTYPE

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

O
O
0

: ;SHOULD REPORT FATAL ERROR?

1:IF NOT: BR
: ;RUNNING UNDER APT?
::IF NOT: BR
: ;FINISHED LAST MESSAGE?
::IF NOT: WAIT
;:GET ERROR ¢
; ;:BUMP RETURN ADDR.

+:TELL APt TO TAKE ERROR
: :CLEAR FATAL FLAG
: CLEAR LOG FLAG
: :CLEAR MESSAGE FLAG

::POP STACK INTO R1
::POP STACK INTO RO
: tRETURN

: {MESSG. FLAG
::1L0G FLAG
: ;FATAL FLAG

.SBTTL TYPE ROUTINE

F ;““t“.‘l‘t‘.t“““t.".‘t““‘t‘.“‘t.““tt“‘ttfi.t‘t“‘.t.

:%ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

:#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

CHARACTER.
SNULL CONTAINS THE CHARACTER TO BE USED AS THERSFILLER
REQUIRED.
CHARACTE
FILLER
OF
NUMBER
THE
$FILLS CONTAINS
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

: #NOTE1:
:#NOTE2:
: #NOTE3:
1 %

:
;*CALL

i%1) USING A TRAP INSTRUCTION

o
3 X

i1 ¥

000430
010046
017600
122737
001011
132737
001
010037

000002
000001

001220

000100 001221
033170

033164 004737 032660
033170
033172

132737

033200 001003
033204 001005
033206 005726
033202 112046

000040 001221

62$:

28:

: sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

JSR

::IS THERE A TERMINAL?
$TPFLG
1:BR IF YES
14
::HALT HERE IF NO TERMINAL
: LEAVE
3s
: 1SAVE RO
RO, -(SP)
: :GET ADDRESS OF ASCIZ STRING
a2(sP),R0
;;RUNNING IN APT MODE
OAPTENV,$ENV
::NO,GO CHECK FOR APT CONSOLE
624
SAPTSPOOL,$ENVM ;;SPOOL MESSAGE TO APT
E
: :NO,GO CHECK FOR C
624
: :SETUP MESSAGE ADDRESS FOR APT
RO,61$
: :SPOOL MESSAGE TO APT
PC.$ATY3

BITB

#APTCSUP,$ENVM

1%:

,MESADR

TYPE

MESADR

{TYPE: TSTB
BPL
HALT

033120 105737 001157
033124 100002
033126 000000
033130
033132
033134
033140
033146
033150
033156
033160

TYPE

BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV

BNE
MOVB
BNE
ST

60$
(RO)+,-(SP)
4
(SP)+

: tMESSAGE ADDRESS

;;APT CONSOLE SUPPRESSED

1 1 YES,SKIP TYPE OUT
: :PUSH CHARACTER T0 BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK

SEQ 0143

—Qi

COXDOBO XDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

————

Wednesday 09-Apr-86 09:43

Page 50-©

TYPE ROUTINE

4%:

000011

033450
S$:
6%:

033332

001156

RTI

CMPB
BEQ
CMPB
BNE
ST
TYPE
$CRLF
CLRB

JSR
CMPB

7$:

000001

000040
033332
000007

105777

145606

017746
042716
122716
001012

145602
177600
000023

105777
100375
117716

145562

100022

042716

122716
001366

(SP)+

3(“.HARCNT
PC,$TYPEC

$FILLC,(SP)-

greows

033450

,(SP)

PC, $TYPEC

;7.0cnancn1

<CR><LF> EQUIV

::POP

;sTYPE A CR AND LF

; sCLEAR CHARACTER COUNT
+ sGET_NEXT_CHARACTER
;G0 TYPE THIS CHARACTER
S

IT TIME FOR FILLER CHARS.?

GET NEXT CHAR.
FILLER CHARS. NEEDED
CHAR.

NEED TO BE TYPED?
POP THE NULL OFF OF STACK

1(SP)
64
PC, $TYPEC

;HORIZONTAL TAB PROCESSOR

NULL
AS A COUNT

; sREPLACE TAB WITH SPACE
::TYPE A SPACE
; ;BRANCH IF NOT AT
::TAB STOP

; sPOP SPACE OFF STACK

: sGET NEXT CHARACTER

$TYPEC:

; ;CHAR _IN KYBD BUFFER?
; :BR_IF NOT
; sGET CHAR
; :STRIP EXTRANEOUS BITS
: ;WAS CHAR XOFF
::BR IF NOT

101%:

: :WAIT FOR CHAR
::GET CHAR

145556
177600

::STRIP IT

;sWAS IT XON?

000021

::BR IF NOT

102%:

005726

105777
100375
116677

DECB

033332
033450

112716
004737
132737
001372
005726
000724

; ;BRANCH IF NOT <CRLF>

$NULL, -(SP)

001154

105337
000770

; sRESTORE RO
nlD..lt.E"l‘ RETURN PC
;sRET
; ;BRANCH IF <HT»

MOV
ADD

§§%”q.3
K8
o8
;?fi
: i

60%:
3s:

B‘HH

012600
062716
000002

033210
033212

10%:

145540
000002
000015

145532
000002

033450

000012

000002

14:
NCB
$CHARCNT : . WORD

i sFIX STACK
3$TPS
10$

;sWAIT UNTIL PRINTER IS READY

LOAD CHAR TO BE TYPED INTO DATA REG.

2(SP),a$TPB

:c‘:a.ztsm

::IS CHARACTER A CARRIAGE RETURN?

$CHARCNT

::&?;-CLEAR CHARACTER COUNT

$TYP

:3IS CHARACTER A LINE FEED?
IF YES
;:BR
; ;COUNT THE CHARACTER
: ;CHARACTER COUNT STORAGE

0F 5(sP)
EX
(PC)-

; sBRANCH IF NO
3s

—

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03 Wednesday 09-Apr-86 09:43 Page 50-6

TYPE ROUTINE

4956

033452

PC
$TYPEX: RTS
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE

000207

L L

L bbbttt

:#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

;#0OCTAL (ASCII) NUMBER AND TYPE IT.

;tE}LYIL’OS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
:
Hg
; sNUMBER TO BE TYPED
NUM, -(SP)
MOV
i*
i

TYPOS

i*
i%

.BYTE

;sCALL FOR TYPEOUT

;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;sM=1 OR O
::1=TYPE LEADING ZEROS

; :0=SUPPRESS LEADING ZEROS

Hd
%

;#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

néHEOS OR $TYPOC
e

i*
i*
L

$TYPOS: MOV
MOvB
MO\.¢

112737
112737
112737
010346
010446
010546
113704

000001
000006
000005

033677
033701
033676

033701

$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
MOVB

062704

000006

ADD

033476

000406

033534

005404

NUM, -(SP)

ADD

033472 062716 000002

NEG

a(sP),-(sSP)
1(SP),$OFILL
(SP)+,$OMODE+1

02.(5#)
$TYPON

#6,R4

; ;SUBTRACT IT FOR MAX. ALLOWED

033700

033552 016605 000012
033556 005003
033560 006105

MOV
CLR
ROL

12(SP).RS
R3
RS

MOVB

033546 113704 033677
033562
033564
033566

000404
006105
006105

033574
033576
033602
033604
033610
033612
033614

006103
105337

033570
033572

033616
033620

006105
010503

100016
042703
001002
005704
001403

005204
052703

033700

14:

8¢ILL.R4

:3SAVE IT FOR USE

+3GET THE ZERO FILL SWITCH

;;PICKUP THE INPUT NUMBER
; ;CLEAR THE OUTPUT WORD
; sROTATE MSB INTO “C*
;GO DO _MSB
; :FORM THIS DIGIT

2%:

BR
ROL

3s
RS

3$:

ROL
ciCcB

R3
$OMODE

;3GET LSB OF THIS DIGIT
;s TYPE THIS DIGIT?

R4
#'0,R3

;;DON'T SUPPRESS ANYMORE 0'S
: ;MAKE THIS DIGIT ASCII

177770

000060

; ;ADJUST RETURN ADDRESS

::SET THE ZERO FILL SWITCH
;3SET FOR SIX(6) DIGITS
;3SET THE ITERATION COUNT
: :SAVE R3
::SAVE R4
::SAVE RS
:;GET THE NUMBER OF DIGITS TO TYPE

R4, $OMODE

110437

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

#1,$80FILL
#6, $OMODE +1
#5, $OCNT
R3,-(SP)
R4,-(SP)
RS, -(SP)
$OMODE+1,R4

MOVB

033542

; sNUMBER TO BE TYPED
;;CALL FOR TYPEOUT

:OEILYEOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
H
Hg
; sNUMBER TO BE TYPED
NUM, -(SP)
MOV
i*
;;CALL FOR TYPEOUT
TYPOC
i¥

033677

017646
116637
112637

033536

MOV
TYPON

000000
000001
033701

033454
033460
033466

033500
033506
033514
033522
033524
033526
033530

44:

ROL
ROL
MOV

BPL
BIC
BNE
TST
BEQ

INC
BIS

RS
RS
RS5,R3

74
#177770,R3
48
R4
S$

::BR IF NO
:3sGET RID OF JUNK
;s TEST FOR O
; s SUPPRESS THIS 0?
;3sBR IF YES

Sub a8

D12

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 50-7

SEQ 0l4e

BINARY TO OCTAL (ASCII) AND TYPE
&

S5$:

.84
$OCNT
28
6%

RTI

~Waun

; ;INSURE LAST DIGIT ISN'T A BLANK
:;G0 DO THE LAST DIGIT

$g oS
~

000004

~PDDD

78:

6%:

000002

; sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
::G0 TYPE THIS DIGIT
;sCOUNT BY 1
;3BR IF MORE TO DO
::BR IF DONE

,R3

R3,8$

SNt

000040
033674
033674
033676

AN )
»

: ;RESTORE RS
; ;RESTORE R4
; sRESTORE R3

::SET THE STACK FOR RETURNING
; ;RETURN

: ;STORAGE FOR ASCII DIGIT
; s TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
$OCNT:
+3ZERO FILL SWITCH
:WILL:
sNUMBER OF DIGITS TO TYPE
;
OMODE: .WORD
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
.BYTE
.BYTE
.BYTE
.BYTE

8%:

4957

L bbbttt

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

2%:

034106

3$:

44;

i;g=

000001

177777

;;BR IF DONE
; ; INCREASE THE BCD DIGIT BY 1

BLT
INC

: 1ADD BACK THE CONSTANT
; ;CHECK IF BCD DIGIT=0
;:FALL THROUGH IF O
:3STILL DOING LEADING 0°'S?

ASLB

B8CC

MOV

1(SP),-1(R3)

::BR IF YES
;sMSD?
::BR IF NO

;s YES--SET THE SIGN

CLR
MOV

TSTB

S%:

STACK
SWITCH AND SIGN
INPUT NUMBER

14:

ON STACK
ON STACK

034116
000040

; : PUSH
; sPUSH

HagRE

000001

;;PUSH RO ON STACK
::PUSH R1 ON STACK

MOV

330378332333

000055

:3G0 TO THE ROUTINE

$TYPDS:

;;PUT THE BINARY NUMBER ON THE STACK

MOV
YPDS

-l

Rugs

;*CALL:

:
7

033630

0000

033624

—\

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO VOS.03

Wednesday 09-Apr-86 09:43

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

034012
034016

052702
052702

034022 110223

034024
034026
034032
034034
034036
034040
034042
034044

005720
020027 000010
002746
003002
010502
000764
105726
100003

034056
034060
034062
034064
034066
034070
034074
034102

012605
012603
012602
012601
012600
104401 034116
016666 000002 000004
012616

034046
034054

034104

034106
034110
034112
034114

4958

68:
7%:

000060
000040

034116

116663
105013

177777

8s:
177776

9s:

$DTBL:

023420
001750
000134
000012

$OBLK:

.SBTTL

BIS
8IS

MOVE

#'0,R2
# .R2

: sMAKE THE BCD DIGIT ASCII
::MAKE IT A SPACE IF NOT ALREADY A DIGIT

-1(SP),-2(R3)
(R3)

;:YES--SET THE SIGN FOR TYPING
::SET THE TERMINATOR

R2,(R3).

TST
cHP
BLT
BGT
MOV
BR
TSTB
BPL

(RO)+
RO, #10
2
8
RS,R2
63
(SP)+
9%

MOV
MOV
MOV
MOV
MOV
TYPE
MOV
MOV

(SP)+,RS
(5P)+.R3
(SP)+.R2
(SP)+,R1
(SP)+,RO
,$DBLK
2(SP),4(SP)
(SP)+.(SP)

MOVB
CLRB

RTI

10000.
1000.
100.
10.

.BLKW

Page 50-8

::PUT THIS CHARACTER IN THE OUTPUT BUFFER

: 1 JUST INCREMENTING
: sCHECK THE TABLE INDEX
::6G0 DO THE NEXT DIGIT
::G0 TO EXIT
: sGET THE LSD
::G0 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON-ZERO?
::BR IF NO
::POP STACK INTO RS
;;POP STACK INTO R3
;:POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO
:sNOW TYPE THE NUMBER
: sADJUST THE STACK
; sRETURN TO USER

TTY INPUT ROUTINE

;E“““t;;‘.“.‘t“.‘t....‘.“l“‘.t“““"t‘t““‘.“..““‘.‘

;;‘t‘.“t‘“..Ot“.‘.‘.““‘..‘“‘.‘..“t“t.‘t‘t““.‘“.“‘.0..

:#SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
:«ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

:«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
;#WHEN OPERATING IN TTY FLAG MODE.
::IS THE SOFT-SWR SELECTED?
#SWREG,
CMP
$CKSWR:
001140
034126 022737 000176
: ;BRANCH IF NO
158
BNE
034134 001074
; ;CHAR THERE?
@8$TKS
TSTB
034136 105777 145002
:3IF NO, DON'T WAIT AROUND
15%
BPL
034142 100071
:;SAVE THE CHAR
@$TKB,-(SP)
MOVE
034144 117746 144775
: :STRIP-OFF THE ASCII
#1C177,(5P)
BIC
177600
034150 042716
1:IS IT A CONTROL G?
#7,(SP)+
cHP
034154 022726 000007
:sNO, RETURN TO USER
154
BNE
034160 001062
WE RUNNING IN AUTO-MODE?
:;ARE
$AUTOB,#1
CMPB
034162 123727 001134 000001
IF YES
iBRANCH
:
15$
BEQ
034170 001456
CONTROL-G (1G)
THE
;ECHO
:
,SCNTLG
TYPE
034663
104401
034172
: ; TYPE CURRENT CONTENTS
$MSWR
$GTSWR: TYPE
034176 104401 034670
: ;SAVE SWREG FOR TYPEOUT
SWREG, - (SP)
MOV
034202 013746 000176
::60 TYPE--OCTAL ASCIICALL DIGITS)
TYPOC
034206 104402
: ;PROMPT FOR NEW SWR
$MNEW
.,
TYPE
034701
034210 104401
: sCLEAR COUNTER
-(SP)
CLR
19¢:
034214 005046
;s THE
-(SP)
CLR
034216 005046
; ;CHAR THERE?
@$TKS
TSTB
7%:
034220 105777 144720
::IF NOT TRY AGAIN
74
BPL
034224 100375
; sPICK UP CHAR
oueg

034232

117746

144714

042716 177600

034236 021627 000025

MOVB

BIC

cHP

@$TKB,-(SP)

#1C177,(5P)

(SP), 925

: sMAKE IT 7-BIT ASCII

::IS IT A CONTROL-U?

0147

{‘

F12

COXDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 50-9

SEQ 0148

TTY INPUT ROUTINE

144640

001175
001135

000001

000100

144616

, $CRLF

#1
$INTAG,
154
#100,3$TKS

15¢:
16%:

PC, $TYPEC

(SP), #60

001174

18%:

.DSABL

: ;sBRANCH IF NOT
; ;RE-ENABLE TTY KBD INTERRUPTS
;
i

;
i
;

i
;

).(SP)

;

LSB

; ;RE-ENABLE TTY KBD INTERRUPTS?

;

% Ofif\

000002
177776

17%:

033332
000060

#6,5P

;sLET’S TRY IT AGAIN
::IS IT A <CR>?
; sBRANCH IF NO
::YES, IS IT THE FIRST CHAR?
; ;BRANCH IF YES
: ;SAVE NEW SWR
: ;CLEAR UP STACK
;;ECHO <CR> AND <LF>

i
;
;
i

4 YES

F YES
F ASCII

S THE FIRST CHAR
IF YES
FT PRESENT

3 &z
72

000015

: : IGNORE PREVIOUS INPUT

§§§

#6,SP

034656

; ;BRANCH IF NOT
;3 YES, ECHO CONTROL-U (tU)

& g&i‘fiAL

, $CNTLU

Eaingogons
28
A
En

104

001005
104401
062706
000757
021627
001022
005766
001403
016677

THE NEXT ONE
2<CR><LF>

: : STMULATE CONTROL -U

ok b
L bbbt

;#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
;*CALL:
L

' *

RDCHR
RETURN HERE

i *

$RDCHR: MOV
14:

144520
144514
177600

MOV
TSTB
B8PL
MOVE

000023
2%:

144466

000021
000140

3$:

@$TKB,4(SP)

BIC
cHP
BNE
TSTB
BPL

#1C<177>,4(SP)
4(SP), 923

BIC

#1C177.(5P)

MOVB

144462
177600
000021

(SP),-(SP)
4(sP),2(sP)
@$TKS
1%

cHP
BNE
BR
cMP
BEQ
cMP

;;INPUT A SINGLE CHARACTER FROM THE TTY
: ;CHARACTER IS ON THE STACK
; ;WITH PARITY BIT STRIPPED OFF
; sPUSH DOWN THE PC
:sSAVE THE PS
; ;WAIT FOR
; sA CHARACTER
THE TTY

JUNK IF ANY

3
@$TKS
2

@$TKB,-(SP)

(SP)+, 821
2%
14
4(SP),#$XON
14
4(SP),#140

; RANOO1

‘\

Gle2

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO VO05.03

Page 50-10

Wednesday 09-Apr-86 09:43

SEQ 0149

TTY INPUT ROUTINE

002407
026627
003003
042766
000002

BLT

cHP
BGT
BIC

000004 000175
000040 000004

RTI

4s:

4(SP),#175
a$
#40,4(SP)

; :BRANCH IF YES

::IS IT A SPECIAL CHAR?
: ;BRANCH IF YES
i ;MAKE IT UPPER CASE
::G0 BACK TO USER

;;“‘.‘tt“".““t‘t‘“‘t“t“.t‘t““““““‘“““‘.““““‘

“&'LIIS. ROUTINE WILL INPUT A STRING FROM THE TTY
Hd

010346
012703

1%:

034646
034656

24:

000177

108:

001174

034644
034644
000015

34:

94:

: : ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

RETURN HERE

MOV

R3, -(SP)

#$TTYIN,R3

#$TTYIN+8.,R3

cMP
BLOS
RDCHR

CMPB

#177.(R3)

MOVB

BNE
TYPE
BR

rTerg
CMPB

000004 000002
034646 000004

: sINPUT A STRING FROM THE TTY

ROLIN

14
$ROLIN: MOV

177777
001176

3
|, $QUES
is

(gg).%

#15,(R3)e

2%
-1(R3)
SLF
(SP)+,R3
(SP),-(5P)
4(sP),2(sP)
#$TTYIN,4(5P)

BYTE

$TTYIN: .BLKB

: sGET ADDRESS

(SP)+,(R3)

BNE
CLRB
TYPE
MOV
MOV
MOV
MOV
RTI

: : TERMINATOR WILL BE A BYTE OF ALL 0'S
: :SAVE R3

;;BUFFER FULL?
;::BR IF YES
::60 READ ONE CHARACTER FROM THE TTY
: :GET CHARACTER

::IS IT A RUBOUT

::SKIP IF NOT
$:TYPE A '2'
: ;CLEAR THE BUFFER AND LOOP
: ;ECHO THE CHARACTER
; sCHECK FOR RETURN

::LOOP IF NOT RETURN
: ;CLEAR RETURN (THE 15)
::TYPE A LINE FEED
; sRESTORE R3
: sADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
i
: sRETURN

: ;STORAGE FOR ASCII CHAR. TO TYPE
: : TERMINATOR

: sRESERVE 8 BYTES FOR TTY INPUT

/tG/<15><12>

; ;CONTROL “G"

/tU/<15><12>

; sCONTROL “U*

125

015

$CNTLU: .ASCIZ

107
000
012
122

015

$CNTLG: .ASCIZ

123
040

$MSWR:

.ASCIZ

<15><12>/SWR = /

040

116

$MNEW:

.ASCIZ

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

000

040
127

040

4959

000
040

000

= /
NEW

bbb vithahhdvithig
T
T

;#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE IT TO BINARY.
;*CALL:
¥

i
034712
034714
034722
034724

011646
016666
010046
010146

000004

000002

RDOCT

RETURN HERE

$RDOCT: MOV

MOV
MOV
MOV

(SP),-(SP)

4(sP),2(sP)
RO, -(SP)
R1.-(SP)

; ;READ AN OCTAL NUMBER

::LOM ORDER BITS ARE ON TOP OF THE STACK
: HIGH ORDER BITS ARE IN $HIOCT

: ;PROVIDE SPACE FOR THE

: s INPUT NUMBER
: ;PUSH RO ON STACK
:;PUSH R1 ON STACK

—
o

H12

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V0S5.03

Wednesday 09-Apr-86 09:43

READ AN OCTAL NUMBER FROM THE TTY

034726
034730
034732
034734
034736
034740
034742

010246
104411
012600
005001
005002
112046
001412

034744
034746
034750
034752
034754
034756
034760
034764
034766
034770
034772
034776

006301
006102
006301
006102
006301
006102
042716
062601
000764
005726
010166
010237

035004
035006

012601
012600

035002 012602
035010
4960

035012

14:
24:

177770
000012
035012

000002

000000

3%:

MOV
RDLIN
MOV
CLR
CLR
MOVB
BEQ
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MOV

(SP)+,RO
R1
R2
(RO)+,-(SP)
34
R1
R2
R1
R2
R1
R2
#1tC7,(SP)
(SP)+,R1
24
(SP)+
R1,12(SP)
R2, $HIOCT

MOV
MOV

(SP)+,R1
(SP)+,RO

;sPICKUP THIS CHARACTER
:3IF ZERO GET OUT
;%2

;1 %4
;%8

;3STRIP THE ASCII JUNK
; sADD IN THIS DIGIT
; ;LOOP
; ;CLEAN TERMINATOR FROM STACK
: ;SAVE THE RESULT

; sHIGH ORDER BITS GO HERE

RTI

TRAP DECODER
L

;sPUSH R2 ON STACK
; sREAD AN ASCIZ LINE
:;GET ADDRESS OF 1ST CHARACTER
: sCLEAR DATA WORD

; ;POP STACK INTO R2

$HIOCT: .WORD
.SBTTL

SEQ 0150

(SP)+,R2

MOV

R2,-(SP)

Page 50-11

;;POP STACK INTO R1
; ;POP STACK INTO RO
; sRETURN

bbb ipd

;#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION
;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

;#G0 TO THAT ROUTINE.

MOV

035014

010046

$TRAP:

035036

011646

$TRAP2: MOV

035046

000002

RTI

035016
035022
035024
035026
035030
035034

016600 000002
005740
111000
006300
016000 035050
000200

035040 016666 000004 000002

MOV
TST
MOVB
ASL
MOV
RTS

RO, -(SP)

2(5P),RO
-CRO)
(RO).RO
RO
$TRPADCRO),RO
RO

; ;SAVE RO

:3GET TRAP ADDRESS
; sBACKUP BY 2
::GET RIGHT BYTE OF TRAP
: ;POSITION FOR INDEXING
;;INDEX TO TABLE
GO TO ROUTINE

” MACRO
HANDLE THE GETPRI
{4 THIS IS USE T0 (SP),-(SP)
: ;MOVE THE PC DOWN
MOV

.SBTTL

4(sP),2(sP)

TRAP TABLE

: sMOVE THE PSW DOWN
; sRESTORE THE PSW

1sTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
:#BY THE "TRAP” INSTRUCTION.
ROUTINE
;
‘

035050

035036

035052 033120

035054 033500
035056 033454
035060 033514
035062
035064
035066
035070
035072
035074

033702
034176
034126
034410
034540
034712

$TRPAD:

.......

.WORD

$TRAP2

$TYPDS
$GTSWR
$CKSWR
SRDCHR
SROLIN
$RDOCT

::CALL=TYPDS
;::CALL=GTSWR
;;CALL=CKSWR
:;CALL=RDCHR
::CALL=RDLIN
::CALL=RDOCT

$TYPE

;;CALL=TYPE

$TYPOC ;:CALL=TYPOC
$TYPOS ::CALL=TYPOS
$TYPON ::CALL=TYPON

01)

TTY TYPEQUT ROUTINE

TRAP+1(1044
mngxouoz) TYPE OCTAL NUMBER (WITH LEADING ZERQS)
(NO LEADING ZEROS)
TRAP+3(104403) TYPE OCTAL NUMBER (AS
PER LAST CALL)
TRAP-4(104404) TYPE OCTAL NUMBER

TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN)
TRAP+6(104406) GET SOFT-SWR SETTING
TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR
TRAP+10({104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY

112

COKDOBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 50-12

SEQ 0151

POWER DOWN AND UP ROUTINES

.SBTTL

4961

POWER DOWN AND UP ROUTINES

035076
035104

012737
012737

035236
000340

035126
035132
035136

017746
010637
012737

144006
035242
035150

000000

000026

OWER DOWN ROUTINE

$PWRDN: MOV

MOV

012737
013706
005037
005237

035236
035242
035242
035242

035174

012677

143740

035214
035222

035247

12600

012737
012737

015

117

000001

000024

, @0PWRVEC ;;SET UP VECTOR
#$PWRUP

127

MOV

R R R R R

R R 22 2L S LA S

2t St L E s

#$ILLUP, 3#PUWRVEC ;;SET FOR FAST DOWN

$SAVR6,SP

1 1CET SP

(SP)+,R3
(SP;O.RZ
(SP)+,R1
(SP)+,RO

;;POP STACK INTO R3
;;POP STACK INTO R2
:;POP STACK INTO R1
: ;POP STACK INTO RO

;;WAIT LOOP FOR THE TTY
; ;WAIT FOR THE INC
;;0F WORD
:;POP STACK INTO aSWR
: ;POP STACK INTO RS
;sPOP STACK INTO R4

MOV
MOV

OOW SPPURVEC ; hSET UP THE POWER DOWN VECTOR
OW.WVECOZ skpg:'l

$ILLUP: HALT
BR
$SAVR6: 0
$POWER:

; iHANG UP

e R RS

$SAVR6
$SAVR6
14
(SP)+,aSWR
$SP)0.R5
SP)+,R4

TYPE
$PURMG : R"I'“IRD

120
105

-2

rerrrre e

CLR
INC
BNE
MOV
MOV
MOV

MOV
MOV
MOV
MOV

035076
000340

012

$PWRUP: MOV

: ;SAVE SP

SP, $SAVR6

'POMER UP ROUTINE

1¢:

:;PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
;;PUSH R4 ON STACK
:;PUSH RS ON STACK
::PUSH @SWR ON STACK

u"?\lr
BR

035150
035156
035162
035166

9340, 90PWRVEC+2 ;;PRIO:7

RO, -(SP)
R1,-(SP)
R2,-(5P)
R3,-(5P)
R4,-(SP)
RS, -(SP)
aSWR, -(5P)

MOV

000024

2$ILLUP,20PWRVEC ;;SET FOR FAST UP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
Il

4963

‘tt‘t‘tt‘tttt‘ttt‘tttt“oto

H fittt‘tt“‘tt‘t“ttttttt““‘tttt“.‘t

.ASCIZ
.EVEN
.END

$POMER

.2
<15><12>"POWER"

T THE POWER FAILURE
3
; ;POMER FAIL MESSAGE POINTER

;;THE POWER UP SEQUENCE WAS STARTED
:3 BEFORE THE POWER DOWN WAS COMPLETE
:;PUT THE SP HERE

Q‘

J12

MACRO V05.03

COKDDBO KDJ11-DA CLUSTER DIAG.

Wednesday 09-Apr-86 09:43

Page 50-13

SEQ 0152

Symbol table
000000

032512
032544
032610
032634

ABORT
ABORTC
ABORTE
ABORTZ

ACOW2 = 000000

002410

BA
BA2
BCR
=
=
BCSR
=
BDR
BEGROM=

B
B
R
B

APASS = 000000

BPTVEC

CSR22
CURADD
CURDAT
DATA
DATA2
DATVER
DATVFR
DAT1
DCOUNT
DDISP =
DELAY
DETFPA
DH1
DH105
DH115

002366
004054
004046
002344
002374
030556
030540

030570
004030

EM100

EM101

EM102

021504
021542
021575
021657
021732
022002
022055
022133
022167
022231
022307
022372
022456
022477
022531
022623
022662
022717
022761
023006
023036
023074

023132
023174
023241
023332
023415
023506
023561
023636
023704
023747
024024
024105
024153
024235
024315
024402
024455
024527

BN NN

—

o |

L§§§§§§§§

BN BN BN EN

LB}

P
O

ACTCHS

APRIOR=
APTCSU=
APTENV=
APTSIZ=
APTSPQ=
ASWREG=
ATESTN=
AUNIT =
AUSWR =
AVECT1=
AVECT2=

172330
172334
172336

172350

172354
172356
172300

fl\

K12

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 50-14

Symbol table
KIPDR]=
KIPDR2=

KIPDR3=
KIPDR4
=
KIPDRS=

KIPDR6=
KIPDR7=

KMCR =
LDPARS
LDPDRS
LEDCNT

172302
172304
172306
172310
172312
172314
172316

177734

027410
027440
002354
000012
002404
177546
002402
027522
005064

017710
PIRQT
PIRQVE= 000240

POLY

PRO
PR1
PR2

PR3
PR4
PRS
PR6

= 120001

= 000000
= 000040
= 000100

=
=
=
=

PR7
=
=
PS
PSW
=
PWDSEQ

PWRVEC=
Q22EN_
Q22INT
Q22SIZ
RAMPAR
RBUF =
RBUF1 =
RCOUNT
RCSR =
RCSR1 =
ROCHR =
ROLIN =

000140
000200
000240
000300
000340
177776
177776

004036
000024

003002
030026
027546
027464
177562
176502
002356
177560
176500

104410
104411
RDOCT = 104412
RECDAT 004034
RECDST 003146
RECFEC 003126
RECST
003136
RESVEC= 000010
RITEDA
031350
RWTMEM 031176

=%000006

R7
=%$000007
002414
SAVBR
SAVLOC 002406
SAVMRO 003044
SAVMR1 003046
SAVMR2 003050
SAVPCR 002412
SAVPOS 003162
SAVSUP 003040
SAVSWR 003052
SAVTIM 003016
SAVUSE 003042
SAV30

SAV32

SCOPE =

177772

SDOPARO=
SDPAR1=
SDPAR2=
SDPAR3=
SDPAR4=

004146

SDPAR6= 172274
SDPAR7= 172276
SDPDRO= 172220
SDPDR1
= 172222
SDPDR2= 172224
SDPDR3= 172226
SDPDR4= 172230
SDPDR5= 172232
SDPDR6= 172234
SDPDR7= 172236
003076
SEQ
SETMMU 030676
SIMGOA 002352
SIPARO= 172240
SIPAR1= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPAR4= 172250
SIPARS= 172252
SIPAR6= 172254
SIPAR7= 172256
SIPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDR5= 172212
SIPDR6= 172214
SIPDR7= 172216
016714
SLEND
SLOCOO 003010
SLOCO1 003012
003100
SPS
003102
SPSJ
= 177572
SRO
= 177574
SRL

SR
=
STACK =
START
STBOT =
STKLMT=

SWREG
SWTSEL
=
SWo
SWO0 =
SWo1 =

004150

SWO3

172260
172262
172264
172266
172270

SWOS
SWo6
SWo7
SWo8
SWo9

SDPARS= 172272

SW1

177576
172516

001100
004060

SW10

SWil
SWi2
SW13
SW14
SW15
SW2
SW3
SW4
SWS

SW6
SW7
sWg
SW9

TAB1

TAB14

TAB15
TAB16
TAB17
TAB18

TAB2

TAB21
TAB22

TAB23
TAB24
TAB2S
TAB26

TAB27
TAB28

TAB29
TAB29A

TAB3

TAB30
TAB31
TAB32
TAB33

TAB34
TAB4
TAB40
TAB41

TAB42
TAB43
TAB4S

TAB46
TAB47

TAB48
TAB49
TABS
TABSA
TAB6

=
=
=
=
=

004000
010000
020000
040000
100000
000004
= 000010
= 000020
=
= 000100
= 000200
=
= 001000

=
=
=
=
=
=

TAB10
TAB11
TAB11A
TAB12
TAB13
TAB138

= 002000

TABA7A

003240

003370
003400
003410
003420
003430
003440

003450

003460
003470
003500
003510

003250

003520
003530

003540
003550
003560
003570

003600
003610

003620
003630

003260

003640
003650
003660
003670

003700
003270

003710
003720
003730
003740
003750
003760
003770
004000
004010
004020
003300
003310
003320

SEQ 0153

i‘f

COKDDBO KDJ11-DA CLUSTER DIAG.

MACRO V05.03

Wednesday 09-Apr-86 09:43

Page 50-15

SEQ 0154

Symbol table

032652
$ATY1
032660
$ATYZ
032670
$ATY4
$AUTOB 001134
001254
$BASE
$BDADR 001122
$BDDAT 001126
001170
$BELL
001260
$COW1
001262
$COW2
$CHARC 033450
$CKSWR 034126
$CMTAG 001100
$CM3 = 000000
$CM4 = 000002
$CNTLG 034663
$CNTLU 034656
$CPUOP 001226
001175
$CRLF
034116
$DBLK
001264
$DDWO
001266
$DDW1
$DDW10 001310
$DDW11 001312
$DDW12 001314
$DDW13 001316
$0DW14 001320
$DDW1S 001322
001270
$DDW2
001272
$DDW3
001274
$DDW4
001276
$DDWS
001300
$DDW6
001302
$DDW7
001304
$DDW8
001306

UDPDR2= 177624
UDPDR3= 177626
UDPDR4= 177630
UDPDRS= 177632
UDPDR6= 177634
UDPDR7= 177636
UFDFLG 004152
UFDSET= 000001
UIPARO= 177640
UIPAR1= 177642
UIPAR2= 177644
UIPAR3= 177646
UIPAR4= 177650
UIPARS= 177652
UIPARG6= 177654
UIPAR7= 177656
UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606
UIPDR4= 177610
UIPDRS= 177612
UIPDR6= 177614
UIPDR7= 177616
ET 004154
VIREOP 017724
004156
VMKOR
002346
V@BE1
002376
V@BE2
002350
VAPR1
002400
VQPR2
002342
002372
WLDTRP 030522
= 177566
XBUF1 = 176506
XCSR =
XCSR1 =
$APTHD
SATYC

177564
176504
000232
032676

. ABS.

035254
000000

Errors detected:

$DEVCT
$DEVM
$DOAGN
$DTBL

000

001
O

001210
001256
031742
034106

$ENDAD 031732
$ENDCT 031700
$ENDMG 031751
$ENULL 031746
001220
$ENV
001221
$ENVM
031632
$EOP
$EOPCT 031672
$ERFLG 001103
$ERMAX 001115
$ERROR 032270
$ERRPC 001116
$ERRTB 001324
$ERTTL 001112
$ESCAP 001166
$ETABL 001220
$ETEND 001324
$FATAL 001202
033116
$FFLG
$FILLC 001156
$FILLS 001155
$GDADR
$GDDAT
$GET42
$GTSWR
=
$HD
$HIBTS
$HIOCT
$ICNT
$ILLUP
$INTAG
$ITEMB
$LF
$LFLG
$LPADR
$LPERR
$MADR1
$MADR2
$MADR3
$MADR4

(RW,I,GBL,ABS,QVR)
(RW,I,LCL,REL,CON)

*++ Assembler statistics
Work

Work

file

reads:

400

file writes: 301

Size of work file: 55224 Words ( 216 Pages)
Size of core pool: 19684 Words ( 75 P
)
Operating system: RSX-11M/PLUS (Under VAX/VMS)
Em time: 00:02:59.53

: GBL
, COKDDBO .MAC/DSM.
.COKDDBO/ -SP=0RION.MLB/

$MAIL
$MAMS1
$MAMS2
$MAMS3
$MAMS4
$MBADR
$MFLG
$MNEW
$MSGAD
$MSGLG
$MSGTY
$MSWR
$MTYP1

$MTYP2

$SVPC = 000232
$SWR_
= 167400
$SWREG 001222
$SWRMK= 000300
$TESTN 001204
$TIMES
001164
$TKB
001146
$TKS
001144
$TMPO
001160
$TMP1
001162
$TN
= 000031

$TPB

$TPFLG
$TPS
$TRAP
$TRAP2
$TRP
=
$TRPAD
$TSTM
$TSTNM
$TTYIN
$TYPDS
$TYPE
$TYPEC

$TYPEX

001152

001157
001150
035014
035036
000013
035050
000236
001102
034646
033702
033120
033332

033452

$XON_ = 000021
$XTSTR 032006
$$GET4= 000000

$OFILL 033677
= 000232
.$X