Digital PDFs

AC-U1154-MC

September 1986

200 pages

Original

110MB

view download

OCR Version

152MB

view download

Document:	Micro Fiche Scan Name of device(s) tested: KXJ11-CA Test description: KXJ11-CA DIAGNOSTIC MAINDEC Number or Package Identifier (after SEP 1977): CZKAAAD Fiche Document
Order Number:	AC-U1154-MC
Revision:	000
Pages:	200
Original Filename:	CZKXAA0__KXJ11-CA__KXJ11-CA_DIAGNOSTIC__AH-U116A-MC__1986_gray.pdf

OCR Text

Micro

Fiche

Scan

Name of device(s)

tested:

KXJ11-CA

Test description:
KXJ11-CA

DIAGNOSTIC

MAINDEC Number

Package

Identifier

(after

SEP

1977):

CZKXAAD

Fiche

Document Part Number:

AH-Ul16A-MC

Fiche preparation date

unknown,

using copyright year:

1986

Image

resolution:

8-bit gray levels,
COPYRIGHT

(C)

max.

quality

1986 by dlilgliltlall

for

archiving

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 1

VRPN
NN -

KXJ11-CA FUNCTIONAL TEST

.REM
€

PRODUCT NAME:

CZKXAAO KXJ11-CA DIAGNOSTIC

PRODUCT DATE:

20-MAR-1986

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHIR:

HENRY ENMAN

TOGDFMTIWINMSMIS sw.zcr TO_CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED
AS A COMMITMENT
BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

SURGRUB2ET

NO RESPOBIBILITY IS ASSUMED

FOR

SOFTWARE
ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE

USE

SUPPLIED

RELIABILITY
DIGITAL

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
Bec

:
Betus

UNIBUS

BeCThpe

MASSBUS

OR ITS

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

Thursday 03-Apr-86 14:11

40
41

s N

MAR-86

Page 2

REV. A

HISTORY

.REM &

FIRST RELEASE
&

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 3

TABLE
OF CONTENTS

ERROR INFORMATION

OPERATING INSTRUCTIONS

e s

VBWNKLD

KXJ11-CA FUNCTIONAL TEST

PROGRESS REPORT

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 4
.REM
&

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

This program is a diT-octic program that is designed to test the
functionality of the KiJ11-CA It can run as a standalone diagnostic or

under the
monitor. The purpose of the diagnostic is to provide a
thorough functional test of the KXJ11-CA module, and to report any
defects found to the operator. It is to be used in a manufacturing or
engineering environment. It can be used with the APT system.

The diagnostic consists of two major sections: the KXJ11-CA test code,

and the support routines which reside in the arbiter's memory. The
support routines include routines to: size arbiter memory, determine

is (KDJ11, KDF1l etc.),

type of processor the arbiter

establish opentm’ environment (

r of KXJ11-CAs to be tested

etc.), determine iT
an IOP set to ID#
15 is resident and is to be used
as part of the test system, transfer information to/from the arbiter
and KXJ11-CA being tested, and handle interrupts generated by the
KXJ11-CA under test.

When the diagnostic is started it will first try to determine which of

three modes it _is supposed
to be testing in. The three modes are SBC
mode, Single IOP mode, and Multiple IOP mode.

SBC mode tests the KXJ11-CA as a single board computer. To enter this
mode, bit 11 in the software switch
ister (address 176) must be set

on the KXJ11-CA to be tested must be set to

reside in the backplane with the arbiter or any
onob‘nehnithpu_nr?uodtont.umm

CAiocofiigodn.fiCitoO&numr ace is disabled,
which require the @ Bus are not performed.

3
g

¢
8
1

;

g le

therefore any

SR,

KXJ11-CA FUNCTIONAL TEST

Thursday 03-Apr-86 14:11

Page 5

728

arbiter. It establishes contact with the KXJ11-CA to be tested via
arbiter serial line port connected to the console serial line port
the KX.J11-CA to be tested. When contact has been succesfully made
arbiter will down line load the test
am from its
to the
memory of the KXJ11-CA to be tested via
serial line ports.

Once the test
is resident in the KXJ11-CA under test the
arbiter is no
needed, al
it will be monitori
its
dedicated serial
line waiting for
acters from the KXJ11-CA console.
If the arbiter is needed for other purposes, the connector to the
console of the KXJ11-CA can be removed and a terminal, set to the
correct baud rate, can be connected in its place to monitor program
progress.

If the arbiter determines that SBC mode is not invoked it will execute
routines to: determine what
of processor the arbiter cpu is, size
arbiter memory, determine if
bit addresses are supported: determine
if more than one KXJ11-CA is resident in the system, and report the

observed configuration.
If onliogne KXJ11-CA is found Single IOP mode
is entered. If an IOP with an
of 15 is detected the
am will

question the

ator as to whether that IOP isaknommraothto

be used
as part of the test
bed. An IOP that is to be used as a known

good test module may be either a KXT11-CA or a KXJ11-CA.

The arbiter will establish communication with the KXJ11-CA to be tested,
as in SBC mode, and a small progrem will be down line loaded into the
of the KXJ11-CA to be tested. This program will attempt to use

738
?§§§
1
35 | 352 : g g
2 2 st
afi s;?gg s i
g
2
g 3

35l

8
S

5 78

§o5

is
4 5 :8
g
§

:
i
i

5: £ A2sd
iCf 1s§§g.ii
HEin i | et
B§ :
$3%
ggg & ; i%é ©
gd8 °

§ _5g

i
;

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

Thursday 03-Rpr-86 14:11

Page 6

i.g%

need to reload the test code on subseguent turns

183

184
185

There are two possible diagnostic operating environments:

186

port data test. If this test were run when in the APT environment,

187
%gg

it would could cause characters to be sent to the APT monitor when they
were not expected and give a false failure indication .o APT.

ig(l)

1.2

192

% KDF11 OR KDJ11 ARBITER PROCESSOR MODULE

194
195
196

* 22 BIT ADDRESS @ BUS BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAGE)
* DL COMPATIBLE
SERIAL LINE PORT FOR EACH KXJ11-CA TO BE TESTED PLUS ONE
FOR THE ARBITER'S CONSOLE PORT.

198
199

* ONE TO FMTEENKXJI
1-CA MODULES
TO BE TESTED.
* OPTIONALL
@ BUS EXERCISER MAY BE INSTALLED OR A KXT11-CA WITH AN

193

SYSTEM REQUIREMENTS

* AT LEAST 56KB OF Q-BUS RANDOM ACCESS MEMORY

197

* CONSOLE TERMINAL, OR CONNECTION TO APT SERIAL LINE.

200

170 PAGE MSS G 175740 (ID# 15) MAY BE INSTALLED FOR FURTHER

%%
582

under
the XXDP -nn:tor -l\d cper;twn md::gAPTv'M open%.n;.u:\mm
APT environment certain tests are not performed. Namely the console

Q BUS INTERFACE
TEST COVERAGE
'

1.3

RELATED DOCUMENTS AND STANDARDS

205

KXJ11-CA MODULE SPECIFICATION

‘5‘83

1.4

210

u?mtmmmfuny prior t':o mmmg ml CA diagnostic

228?

gié

%ii
215

PDP11 MAINDEC SYSMAC PACKAGE

DIAGNOSTIC HIERARCY PREREQUISITES

for the arbiter

system

1.5 ASSUMPTIONS

the XXDP+ operating system and the Jll micro-odt.

el8

2.0

OPERATING INSTRUCTIONS

2.1

LOADING AND STARTING PROCEEDURE

223

It is m that the diagnostic operator is familiar with

gig

ee2

ts should

The diwtu: for the KXJ11-CA is loaded into the arbiter’'s memory

(e P meatit

e St

e e Tres 1. BGlagmechicI then
« OF

Trom

]

iIcC

mt;::l dun line loaded into the KXJ11-CA under test via the

KXJ11-CA’'s oomolc serial line port.

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 7

229

.REM &

230
231

22%%

2.2

gssg

THE FOLLOWING SWITCH OPTIONS ARE SUPPORTED:

g%?

SWR

238

15 100000 HALT ON ERROR

241
242
243

12
11
10

239
240

PROGRAM OPTIONS

OCTAL

FUNCTION

14
13

040000
020000

244

001000

5:9

07 000200 INHIBIT TEST NUMBER/TITLE

245

INHIBIT ERROR SUMMARY (AT EOP)
INHIBIT ERROR REPORTS

010000
004000
002000

IOP ID# 15 IS KNOWN
FOR TESTING
TEST STAND ALONE IOP
EXECUTE EXTENDED MEMORY TESTS

000400

LOOP ON TEST IN SWR<6:0>

LOOP ON ERROR

248
5;3

3.0

251
252
253

If bit 15 in the software switch register is set then all errors will
cause the KXJ11-CA to halt after reporting the error to the arbiter
via the $ERROR routine. All test errors will t
an error message,

2239

4.0

258
2223

261

ERROR INFORMATION

a unique error number, and the PC at the time of the error.

PROGRESS REPORT

At the end of each pass the id number of the KXJ11-CA under test, the

diagnostic name and pass count are printed.

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

Thursday 03-Apr-86 14:11

.NLIST

MC,MD,CND,BEX,TOC

.ENABL

ABS,AMA,LC,CRF

Page 8

;DON'T LIST MACRO CALLS, MACRO DEFINITIONS,
;CONDITIONAL ASSEMBLERS, BINARY EXTENTIONS,

sOR TABLE OF CONTENTS

:tMS PROGRAM WAS ASSEIBLED USING THE PDP-11 MAINDEC SYSMAC
;#PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981.
%

000001
160000

§TN-1

$SWR=160000

;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT

101400

$SWR=
101400
$SWRMC= 000200

; REDEFINE ACTIVE SWITCHES...
;.._AND ADD SWR<7>.

000123

PRGSIZ= <LASTAD/BITS>

PROGRAM SIZE (IN 1/8 K UNITS)...
i...EXCLUDING BUFFERS AND REMOTE STUFF.

$EN=

A
s

PROGRAM CONTROL PARAMETERS ARE LOCATED IN THE $ETABLE AREA STARTING

(P30l
e e et

l THE Pmm WILL BYPASS ANY TEST IN WF&TTFE DEVICE/FUNCTION REQUIRED
; APPEARS
TO BE NON-EXISTANT (WHETHER INTENTIONAL OR NOT).

3 YOU MAY FORCE AN ENTRY TO ANY/ALL TEST(S) VIA SWR<08> OPTION.
t THE FOLLOWING SWITCH OPTIONS ARE SUPPORTED:
=

100000 HALT ON ERROR
040000 INHIBIT ERROR SUMMARY (AT EOP)
020000 INHIBIT ERROR REPORTS

)

15
14

$28 SRERESISLIRP

5ATLOC1216.NOMECWIGUEDIAHPR&ESSWTYPEATASSEI‘BLY TIME.

I0OP ID¢ 15 IS KNOWN GOOD FOR TESTING

uwmmmvresrs

001000
L
g

08
000400 LfllIN
SWR<6:0>
07 000200
T NUMBER/TITLE

shkkkkkkkkkk
B

.SBTTL

BASIC DEFINITIONS

“tt“.tt““‘.“‘t.ttt”t‘.t“t‘ttt””
R
P
e T
S T L

étmmGMSTflu(mtunOOm
TACK= 1100
EMT
SCWE- IoT

; *MISCELLANEOUS DEFINITIONS

HT=

:;CODE FOR HORIZONTAL TAB

Thursday 03-Apr-86 14:11

Page 9

LF=
CR=

12
15

;sCODE FOR LINE FEED
; sCODE FOR CARRIAGE RETURN

PS=

‘1'577776

; ;PROCESSOR STATUS WORD

CRLF=

200

STKLMT= 177774

::CODE_FOR CARRIAGE RETURN-LINE FEED

STACK LIMIT REGISTER

PIRQ=

177772

: {PROGRAM INTERRUPT REQUEST REGISTER

RO=

; sGENERAL REGISTER

R2=
R3=
R4=
RS=
R6=
R7=
SP=
PC=

%2
%3
%4
%5
%6
%7
%6
o7

; ;GENERAL REGISTER
; sGENERAL REGISTER
; ;GENERAL REGISTER
; sGENERAL REGISTER
; sGENERAL REGISTER
; sGENERAL REGISTER
; ;STACK POINTER
33

DSWR=
DDISP=

R1=

177570
177570

; sHARDMARE SWITCH REGISTER
: ;HARDMARE DISPLAY REGISTER

; ;GENERAL REGISTER

ggRImITY LEVEL DEFINITIONS
0
; sPRIORITY LEVEL O

PR2=

PR1=

40
100

PR4=

200

PR3=
PRS=
PR6=
PR7=

140
240
300
340

; sPRIORITY LEVEL 1
; sPRIORITY LEVEL 2

PRImITY LEVEL 3
sPRImITY LEVEL 4
:;PRIG!ITY LEVEL 5
s ;PRIORITY LEVEL 6
::PRI(RITY LEVEL 7

éu"SHITCH REGISTER” SWITCH DEFINITIONS
00000
SW14=
SW13=
SW1l=
SW10=

SWO7=

SWS-

SWS'
SWo2=
SWO1=

SW7=

SW4=
SW3=
SW2=

E&%fi%&fi”""’“*fi%‘é%ggg"

000012
000015
000200
177776
177776
177774
177772
177570
177570

MACRO Y05.02

£he %

BASIC DEFINITIONS

5§ g8

KXJ11-CA FUNCTIONAL TEST

BASIC DEFINITIONS

MACRO Y05.02

000001

000002

SW1=
SWo=

100000
040000
020000
010000
004000
002000
001000

BIT15=
BIT14=
BIT13=
BIT12=
BIT1ii=
BIT10=
BIT09=

Thursday 03-Apr-86 14:11

Page 10

SHO1
SKWOO

;#DATA BIT DEFINITIONS (BITOO TO BIT1S)
100000
40000
20000
10000
4000
2000
1000

‘BASIC "CPU" TRAP VECTOR ADDRESSES
::TIME OUT AND OTHER ERRORS
RESERVED AND ILLEGAL INSTRUCTIONS
; s TRACE TRAP

= 14

I0OTVEC= 20

EMTVEC= 30
TKVEC= 60
TPVEC=

HH!EAKPOINT

(BPT)
3 s INPUT/0UTPUT TRAP (IOT) ##SCOPE*#

s sPOWER FAIL

TRAP (EMT) #+ERROR#**
nflll.fl’m
nm
HTTY

PEBTTL. PEMORY MANAGEMENT DEPINITIONS

313

;#KT11 VECTOR ADDRESS
MVEC-

250

;#KT11 STATUS REGISTER ADDRESSES
177572
177574

172516

SR3=

172516

SR2=

INTERRUPT REQUEST VECTOR

KXJ11-CA FUNCTIONAL TEST
MEMORY MANAGEMENT DEFINITIONS

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 11

;#USER “I" PAGE DESCRIPTOR REGISTERS

177600

UIPDRO= 177600

177602
177604
177606
1776190
177612

UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606
UIPDR4= 177610
UIPDRS= 177612

177616

UIPDR7= 177616

177614

UVIPDR6= 177614

;#USER “D* PAGE DESCRIPTOR REGISTORS

177620
177622
177624
177626
177630
177632
177634
177636

UDPDRO= 177620
UDPDR1= 177622
UDPDR2= 177624
UDPDR3= 177626
UDPDR4= 177630
UDPDRS= 177632
UDPDR6= 177634
UDPDR7= 177636
;#USER “I” PAGE ADDRESS REGISTERS

177640
177642
177644
177646
177650
177652
177654
177656

UIPARO= 177640
UIPARL= 177642
UIPAR2= 177644
UIPAR3= 177646
UIPARd= 177650
UIPARS= 177652
UIPARG= 177654
UIPART= 177656
;#USER “D" PAGE ADDRESS REGISTERS

177660
177662
177664

UDPARO= 177660
UDPARL= 177662
UDPAR2= 177664

177674
177676

UDPARG= 177674
UDPAR7= 177676

e
177672

Se
UDPARS177675
;#SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS

172200

SIPDRO= 172200

175

31poRs- 1

172210

722
72214
172216

SIPDR4= 172210

SIPDRS= 1
SIPDR7= 172216

SIPORG= 1

KXJ11-CA FUNCTIONAL TEST

MEMORY MANAGEMENT DEFINITIONS
172220
179992
175554
179526
175530
179532
175534
175536

172240
175242
172244
175546
175250
175552
175954
175556
172260
179264
172966

MACRO Y05.02

SDPDRO= 172220
SDPDR1- 172002
2DPDR2- 172994
SDPDR3- 172596
DPDRA- 173230
SDPDRS- 172932
SDPDRB- 172934
SDPDR7- 172936

SDPARO= 172260
SDPAR2= 172264
SDPARS- 172966
SDPAR4=
SDPARS=
SDPARG=
SDPAR7=

172970
179972
172274
172976

;#KERNEL “I" PAGE DESCRIPTOR REGISTERS

172300
175302
175304
175306

KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDRS= 179306

175312

KIPDRG= 172314

KIPDRS= 172312

KIPOR7= 172316

e
175354

g
1o
KDPDR2= 179324

175335
175334

KOPORS175335
KDPORE~ 175333

172336

172340
172342

KIPDR&= 172310

;#KERNEL “D" PAGE DESCRIPTOR REGISTERS

17536

;#SUPERVISOR “D* PAGE ADDRESS REGISTERS

179570
175572
175574
175576

173316

-86 14:11

SIPARO= 172240
SIPAR1- 172242
SIPAR2- 172044
SIPARS- 179946
SIPARA- 172250
SIPARS- 172952
SIPARG= 172954
SIPART- 172536

SDPAR1= 172962

175314

;#SUPERVISOR “I* PAGE ADDRESS REGISTERS

175962

175310

03-

1723

KDPDR7= 172336

J4KERNEL "I" PAGE ADDRESS REGISTERS

KIPARO= 172340
KIPARL= 179342

e i

KXJ11-CA FUNCTIONAL TEST
MEMORY MANAGEMENT DEFINITY

172344

172346
172350

172352

172354
172356

177746

;*KERNEL "D” PAGE ADDRESS REGISTERS

KDPAR2= 172364
KDPAR3= 172366

KDPARS= 172372
KDPARG6= 172374
KDPAR7= 172376

MMRO=
MMR3=

CCR=

1
172516

177746

;KDJ11A CACHE CONTROL REGISTER

; ADD A FEW MORE
3

MMR=
COP1=

174470
174462

323

174456

STAT1=

174456

174460

174454

326

174446

328

CoP2=

STAT2=

174454

CMDR=

174444

CHA2H=

CHAlH=

174460

; MASTER MODE REGISTER
; CHANNEL 1 CURRENT OP COUNT
; CHANNEL 2 CURRENT OP COUNT

; CHANNEL 1 STATUS.

174454

; CHANNEL 2 STATLS...

174446

; CHAIN ADDRESS REGISTERS HIGH (SEG/TAG)...

4454

174444

3...AND

CHAlL= 174442
CHA2L= 174440
CARAH1= 174432
CARAL1= 3«12
CARBH1=
174422

;...AND THE LOW (OFFSET) HALFS.

330
§31

174442
174440
174432
i;“lz
4422

335

000135

MMRDEF= 135

;: MR default setting

337
38
39
340
341
342

000102

000103
000240
000241
000060
000061
000062

103
SCCCH2= 241
CLIE1= 060
CLIE2= 061
SETIEl= 062

iSet Software Request
2
iStert
Chain Command g i
iStert Chain Commend
2
i
channel 1 interrupt M}:
iClear
channel 2 mfiofl-\w
iSet
channel 1 interrupt
e

33:2

000055

CLIP2=

gg‘

KIPARS= 172352

174470
174462

Page 13

KIPARG= 172354
KIPAR7= 172356

320
321

325

gig

322

A e5

KIPAR3= 172346
KIPAR4= 172350

KDPAR4= 172370

177572
172516

S S IT

KIPAR2= 172344

172370
172376

Thursday 03-Apr-86 14:11

KDPARO=
172360
KDPAR1= 172362

172372
172374

gig

MACRO Y05.02

172360
172362

172364
172366

314
315

174402

055

;CURRENT ADDRESS %sm g LO CHANNEL
CHANNEL 1
<block lower level hardware

iSet Softuere Semuel o ]

iClear channel 2 current and pending interrupt

;Chain Reload Word Bit Definitions

349

000001

352

000010

33%2

- 102

;CURRENT ADDRESS

347

348

CARBL1= 174402

;CURRENT ADDRESS REGISTER A HI CHANNEL 1
shee & 1
5

000002

000004

Cuap=

&lvl.t-

PATMSK= 10

iChain sddress

s?finml Mode Register

;Interrupt Vector
;Pattern and Mask

S S

STy | AT

KXJ11-CA FUNCTIONAL TEST

MEMORY MANAGEMENT DEFINITIONS

MACRO Y05.02

Thursday 03-Apr-86 14:11

353
354
355
356

000020
000040
000100
000200

BOP=

coP=

200

358

001000

CARA=

1000

361
362
363
364
365
366
367

000000
000010
000020
040000
000000
140000
100000

UP=

@BMEM=

100000

357

359
360

368
369
370
371

3;%

374

375

376
377
378
379

000400

000001

000010
000000

000005

000014

000004
000017
000012

000020

382
383
384
385

000000
000040
000100
000140

ggg

388
38
390

395
g%

020000
040000

399
400
401

:gg

404
405
406

407

408
409

400

;Current Address Register B

;Current Operation count

;Current Address Register A

;DTC Current and Base Address

DOWN=
10
HOLD=
20
K210=
40000
K2MEM= O
QBUSIO= 140000

; INCREMENT

TRFUNL=
TRWM=
STBB=

:
ADDRESS
;HOLD ADDRESS
;ADDRESS IS IN IOP I/0 SPACE
;ADDRESS IS IN IOP MEMORY
;ADDRESS
IS IN Q BUS I/0 SPACE

;ADDRESS
IS IN Q@ BUS MEMORY

ion type fiel

1
10
0
5

STFUNL= 14

STWM=_
4
SRCHBB= 17

fifn-

ransfer tm

= 0

t/tag bit definitions

ister bit definitions

;BYTE-BYTE TRANSFER
iFUNNEL TRANSFER BYTE - WORD
{WORD-WORD TRANSFER
iBYTE BYTE SEARCH
TRA

s FUNNEL

ER BYTE - WORD

:WORD-WORD SEARCH TRANSF
iBYTE-BYTE SEARCH

FLIP BIT
]

1SINGLE TRANSFER-HARDWARE INITIATED

000400
001000

804000
004000
010000

398

3
Reg B
;Base Address Reg A

000200

3%
393
394

CARB=

40
100

:DTC Channel mode

380
381

BARB=
BARA=

Page 14

100000

000000
000002
000003

000010
000020

000001
000002

=7
e
kmem
$
i3T0P ON BYTE
MA
T 20

EOP=

iEND OF PROCESS CNXM)

INTERRUPT MASK

REQUEST

:DTC Status Register bit definitions
e
3
; TRANSFER COMPLETE
2

I
|

KXJ11-CA FUNCTIONAL TEST
MEMORY MANAGEMENT DEF INITIONS

410

411
412
413
427

438
459
430
431
432
433
434
435
43
438
439
441
443
444
445
446
447
448
449
450

004000
010000

MACRO Y05.02

CA=

Thursday 03-Apr-86 14:11

Page 15

4000
;CHAIN ABORT
10000 :NO AUTO-LOAD OR CAAIN

020000
100000

NACIPCIE-

177520
177552
177524
177526
177530
177532
177534
177536
177540
000001
177766
000400
000000
000401
000402
000403
000003
000004
000005
000006
000025
001000

K2CSRA= 177520
K2CSRB= 177592
K2CSRC- 177524
KOCSRE- 177526
KSCSRD= 177530
KoGIR= 177532
KSCSRF= 177534
K2CoRH= 177536
K2CSRJ= 177530
APTENV- 1
CPEREG= 177766
WZ= 400
Rl
o
SKP1= BRel
SKP2= BR+2
SKP3= BR.3
Fl1=
3
Til&
gl S
.8
> n
STBOT= 1000

20000 ,INTERRUPT PENDING
100000 CHANNEL INTERRUPT ENABLE

iTHESE ARE EQUATES FOR THE KXJ11-CA CONTROL STATUS REGISTERS

;CPU ERROR REGISTER
i "CALL TYPOS WITH-LEAD-ZEROS
:...OR NULL-LEAD-ZEROS
:"A’COUPLE
OF HANDY SKIPS
.y
! > PROCESSOR TYPE (MFPT) CODES.
s 7

KXJ11-CA FUNCTIONAL TEST
TRAP CATCHER

MACRO Y05.02

.SBTTL

548

Thursday 03-Apr-86 14:11

Page 16

TRAP CATCHER
.=0

;#ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN
;#A ".+2, IOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL
AND INTERRUP

MTE. IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM

LT OV T o (00 =2
>T
L Lo
P

S%$$ARB ;;G0 TO START OF PROGRAM

JHP

: ; SOFTWARE DISPLAY REGISTER
+ :SOFTWARE SWITCH REGISTER

A T

DISPREG: .WORD
O
SWREG:
.WORD
O
.SBTTL STARTING ADDRES(ES )

i IVECTOR TO STARTING ADDRESS

} SWITH PRIORITY LEVEL 7

$$ARB

051510

340

+iBRANCH TO 177700 & TIVE OUT CNOT ON

000137

WORD

: sHALT

000200

HORD

.-100

e A At S NI TS

000174
000176

051510
000340
000174
000000
000000

000004

$40CAT: HALT

000000
000737

S A

000002

CAN BE STARTED AT ADDRESS O AS WELL AS ADDRESS 200.

Thursday 03-Apr-86 14:11

Page 17

NECV:
BEVNT:
PRTYV:

DPRV4:
DPRV8:

TBIACK:
DPRV12:
FALCON:

QIRV1:
QIRV2:
PIOAV:
PIOBV:

.WORD

.=34
.WORD

.=70

DISMISS,

$TRAP,

.WORD

DISMISS,

.WORD

DISMISS,
gISHISS

.=100

.BLKW
.WORD
.WORD
.WORD
.WORD
.WORD
.BLKW
.=144

.MWORD
.WORD
.=160

.WORD
.WORD
.=174
.WORD

.WORD

RSTART: J¥P

DSTART: JWP
.=214

DISMISS,
DISMISS,
DISMISS,
BITRAP,
gISHISS .

QREQ,
QREQ1,
QREQ2
DISMISS,
DISMISS,

.+2, 0
.+2, 0

e LR

T TS

PURV:

.=0
.WORD
.WORD
.=24

REDEFINE THE VECTOR SPACE.

; SET PWR (BINIT) VECTOR.

.SBTTL

; SET TRAP VECTOR TO POINT TO TRAP HANDLER

aaaaz 32 3 3 3

MACRO Y05.02

; SET NEC7201 (SYNC/ASYNC) VECTOR (T).
; SET BEVNT (LTC) AND...

i ..PEVNT

(Z8036 OR 18254 PIT).

OPEN
:
; SET PARITY ERROR..
:...DUAL-PORT-RAM WORD 4 (T)..

:...DUAL-PORT-RAM WORD 8 (T)..
i...BIACKI (T)..
:...AND DUAL-PORT-RAM WORD 12 (T).

;FX8JC

; %% RESERVED FOR “FALCON-BREAK" w#%
Fr4

;3 22

KXJ11-CA FUNCTIONAL TEST

REDEFINE THE VECTOR SPACE.

; Q-REQUEST, ARBITER EXECUTES "“RTI".
; Q-REQUEST, ARBITER EXECUTES "RESET".
; Q-REQUEST, ARBITER WRITES DPR
PIO PORT A..
..AND PORT B VECTORS.

OPEN (DISPREG/SWREG).

140000
$$ARB

:| DEFAULT START;

START

| DIAGNOSTIC START/RESTART.

DETERMINES OPERATING

ENVIRONMENT AND INVOKES REMOTE LOADER.

DMAV:DMAV1:
DMAV2:
.WORD

;: DTC channel on k2
.WORD
DISMISS, PR4
DISMISS, PR4
;:DTC channel 2 on k2

PIRVEC:
PIRQV:

UNEXPI, PR7

;Vector for unexpected PIRQ interrupts

DISMISS, PR4
NEXT1, PR4

;VECTOR FOR UNEXPECTED MMU ERRORS
;VECTOR THE ARBITER TO LOOK FOR THE NEXT IOP

NXTIOP:
LIST ME
IOPVEX:

.WORD
.=250

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

;k2hhe

KXJ11-CA FUNCTIONAL TEST

REDEFINE THE VECTOR SPACE.

601

602

000464
000470
000474

055732
055736
055742
001000

000340
000340
000340

MACRO Y05.02

Thursday 03-Apr-86 14:11

.WORD
.WORD
.WORD
NLIST ME
.=1000

Page 18

IOPV13,PR7
IOPV14,PR7
IOPV15,PR7

; RESET PC.

Thursday 03-Apr -86 14:11

Page 19

; ;APT MAILBOX
E
TYPE CODE
; sMESSAG
:sl;gn.mm

; ;ENVIRONMENT MODE BITS

::N’T SWITCH REGISTER

AMAMS1
AMTYP1

FEM_TYPE BYIE

-- (HIGH BYTE)

; sHIGH ADDRESS,M.S. BYTE
| IMEM. TYPE,BLK®1

.BYTE
.BYTE

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
BIT 9=FLOATING POINT PROCESSOR
BIT_ 8=MEMORY MANAGEMENT

s sUSER_SWITCHES

iCPU TYPE,OPTIONS

o
T
P
s
B
e T

JBYIE

3
3

o o O 35 T

RS L

§§§§§ i

$MAIL:

$MSGTY:

: e ii :

001216
001217

MACRO Y05.02

<+ 33838888

001202
001204
001206
001206

001166
001166
001170
001172
001174
001176
001200

§
B
e

606

e I

KXJ11-CA FUNCTIONAL TEST
APT MAILBOX-ETABLE

- & 5
§58588555888000055:bm5338

KXJ11-CA FUNCTIONAL TEST
APT MAILBOX-ETABLE

MACRO Y05.02

Thursday 03-Apr-86 14:11

$DDU12:
$DDW13:
$DDU14:
$DDU1S:
$ETEND:
MEXTT

ADDM12
ADDMW13

ADDW14
ADDM15

Page 20

: sDEVICE DESCRIPTOR WORD#12
; sDEVICE DESCRIPTOR WORD#13
; :DEVICE DESCRIPTOR WORD#14
; ;DEVICE DESCRIPTOR WORD#15

KXJ11-CA FUNCTIONAL TEST
PROGRAM CONTROL PARAMETERS

Thursday 03-Apr-86 14:11

.SBTTL

610
611
612
613
614
615
616

PROGRAM CONTROL PARAMETERS

@
w0
B0
W8

THE FOLLOWING PARAMETERS GOVERN THE BEHAVIOR OF THE PROGRAM AND
ARE CONDITIONALLY CONFIGURED IAW PROCESSOR TYPE AT ASSEMBLY TIME.

ITEM

FUNCTION

$CPTYP:

Ji1

177530
177532

$CSR:

$QIR:
177532
$DPR:
175000
$OPRQ:
160000
$DMA:
174400
$SL2:
175700
$PI0:
177000
$CLK:
. 177520

177530

;T
;7
;7
;7
;7
317
:T

SPM.H-

<.-$CSR>/2

;TFJ;

NUMBER OF VARIABLE ITEMS.

177520
177522
177524

SCSRA

177520

SECONDARY CONTROL/STATUS REGISTERS...

000001

$QDLY:

:TFJ;
i
f

000001

RFLAG: 1

000001
000001

TPROTR: 1
HLTFLG: 1
BFLAG: 1

644 001354
645 001356

000000
000000

SLOCOO:
SLOCO1:

000000

EXPDAT : JMORD

000000

659 001372

000000

$CSRB: $CID: 177522
$CSRC: $LEDS: $TCID: 177524

;

PRIMARY CONTROL/STATUS REGISTER.

:
Q-BUS_INT (VECTOR) REGISTER.
;
DUAL-PORT-RAM LOCAL ADDRESS.
;
DUAL-PORT-RAM Q-BUS BASE ADDRESS.
;
AMZ8016 (OR QMIC) DMA CHIP BASE.
;
SECOND SERIAL LINE ADDRESS.
;78036 PIO/PIT BASE ADDRESS.
:
LINE CLOCK (BEVNT) CSR.

i TFJ;
:TFJ;

...I?CLWS CID ON F/J...
. .INCLUDES LEDS (AND CID ON T).

0 IACK WAIT LOOP CONTROL..
..STAND-ALONE (1) == 163, MSEC..
.APT-AUTO
(62.) == 10.1 SEC.

: FLAG FOR TRAP THROUGH 24.

.WORD
.WORD

O0=EXPECTED

+FX8JC

;FLAG FOR TRAP CAUSED BY WRITE TO TPROO
;SAY HALT TRAP UNEXPECTED
; FLAG FOR TRAP THROUGH 130. O=EXPECTED

+FX8JC

O
©

1=UNEXPECTED.

;

:FX8JC

THESE LOCATIONS ARE USED IN MORE_THAN ONE TEST TO STORE WORKING
DATA
O
,

RECDAT: .MORD O
COUNT:

gg; 001370

FUB:

.WORD

:STORES

(GOOD) DATA FOR COMPARISONS
:ST%% EXPECTED
RECIEVED DATA
TO %GVERIFIED
;ERROR DDICATM FOR FLOA

POINT TESTS

:USED ME "FLAG” CONDITIONS

LHORD
O
ERROR COUNT
&MHESE L%DGOARE
USED BY nmé
THAN OEORTEST
AS LOOP COUNTERS

st 2 ¢
SAVSP1: .WORD

CIFLAG: .MORD

SAVSP2:

676 001412
677

SBC

000005

630
631 001334
632 001336
633 001340
634
635 001342
636
637
638 001344
639
640 001346
641 001350
8% 001352

651
652
653 001360
654 00

Page 21

BT
oL T T T
T

®e

617
618 001312
619
620 001314
621 001316

MACRO Y05.02

.WORD

CoFLAG: .WORD
SOURCE: .WORD
TSTLOC:

.BLKW

O
O

;srm FOR LIGXPECTED TRAP DATA

:DTC dml 1 cvcnt indicator
;:DTC channel 2 event indicator
sScrn‘bd\ location
;Scratch locations

;k2hhe
;k2hhe
sk2hhe

ik2hhe

KXJ11-CA FUNCTIONAL TEST

GLOBAL SUBROUTINES SECTION

MACRO Y05.02

.SBTTL

679
680
681
682
683
684
685
686
687

688
689 001462
690 001464
691 001466
692 001470
693 001474
694 001500
695 001504
696 001510
697 001514
698 001520
699 001524
700 001530
701 001534
702 001540
703 001544
704
705 001552
706 001554
707 001556
708 001560

Thursday 03-Apr-86 14:11

Page 22

GLOBAL SUBROUTINES SECTION

;'fif GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
THAT ARE USED IN MORE THAN ONE TEST.

W GLOBAL SUBROUTINES

R(X)TDE TO INITIALIZE MEMORY MANAGEMENT
fu:

010046
010146

010246
012700
004737
004737
004737
012700
004737
004737
004737
004737
004737
004737
012737

177600
001562
001576
001576

172200
001562
001576
001576
001576
001576
000027

MOV

012602
012601
012600
000207

;SAVE CONTENTS OF REGISTERS

02’/ 39172516

:INIT MMR3: ENABLE 22 BIT MAPPING

R1.-(SP)
R2.-(SP)
#177600.R0
PC.PDR
PC.PAR
PC.PAR
#172200,R0
PC.PDR
PC.PAR
PC.PAR
PC.PDR
pc PAR
PAR

MOV

(SP)+,R2

MOV

172516

RO, -(SP)

MOV
MOV
MOV
JSR
JSR
JSR
MOV
JSR
JSR
JSR
JSR
JSR
JSR
MOV

MOV
RTS

(SP)s,R1

(SP)+.RO
PC

:
:
:
:INIT I AND D USER PDR'S
:INIT I USER PAR'S
:INIT D USER PAR'S
;INIT I AND D SUP PDR'S
:INIT I SUP PAR'S
:INIT D SUP PAR'S
:INIT I AND D KER PDR'S
:INIT I KER PAR'S
:INIT D KER PAR'S

:AND KERNEL, USER AND SUPR DATA SPACE

iRESTORE
REGISTERS
;

IRETURN

:ROUTINE TO INITIALIZE PDR’S
012702
012720
077203
000207

000020
077406

POR:
1$:
H

916, ,R2

on:és.(ao)o

;ROUTINE TO INITIALIZE PAR’'S
{t’m:
ar
R

719 001576

720 001600
721 001602
722 001606
723 001612
724 001614
725 001620
754

MOV

000200
001600

177600

ADD

$200,R1

RTS

oP
BNE
MOV

#1600,R1
13
$177600,(RO)+

;INIT CNTR
:INIT POR

sRETURN

iSETLP10 INIT PAR

IINIl

;:GET READY FOR NEXT PAR

;REACHED A PAR7
;BRANCH IF NOT
;INIT PAR7
;sRETURN

shkkkkkkkkkkkkkhkhkkkdhhkhkbkkkkhkhkkkshhkkkhhhhkhhkbbhhhhkhkkkikbhhhhkhkkkhhbki

KXJ11-CA FUNCTIONAL TEST
PROGRAM START/RESTART

MACRO Y05.02

Thursday 03-Apr-86 14:11

.SBTTL

756
757
758
759

Page 23

PROGRAM START/RESTART

: PROGRAM START/RESTART HERE.
START :RESTART :

760 001622

RESET
INITIALIZE THE COMMON TAGS

.SBTTL

012706
005026
022706
001374
012706

001644
001652
001660
001666
001674
001702
001710
001716
001722
001730

012737
012737
012737
012737
012737
012737
013737
005037
112737
012737

001736
001742

013746
012737

;;CLEAR THE COMMON TAGS ($CMTAG) AREA
#$CMTAG.R6
; sFIRST LOCATION TO BE CLEARED
(R6)+
; sCLEAR MEMORY LOCATION
#SWR,R6 ; ;DONE?
.-6
::LO0P BACK IF NO

#STACK, SP

A FEW VECTORS

s INITI

: :SETUP THE STACK POINTER

#$SCOPE ,@#I0TVEC ;;IOT VECTOR FOR SCOPE ROUTINE
#340,8#I0TVEC+2 ;;LEVEL 7
#$ERROR, 3#EMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
#340,30EMTVEC+2 ;;LEVEL 7

#$TRAP, 98TRAPVEC
;; TRAP_VECTOR FOR TRAP CALLS

#340, 96TRAPVEC+2;

$ENDCT, $EOPCT

$ESCAPE
#1, SERMAX

¢.

$LPERR

;;SETUP END-OF-PROGRAM COUNTER

: ;CLEAR THE ESCAPE ON ERROR ADDRESS
:;ALLOW ONE ERROR PER TEST
SETUP

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
“-1", SETUP FOR A SOFTWARE SWITCH REGISTER.

177777

300004

002004

000176
000174
000004

001
012737

a8ge 33333e pyasassdaspaasssaafanyns

001624
001630
001632
001636
001640

001140
001142

001174
000200

001207

001210

001140

300014
300024

30003¢:

SBTTL

SBERRVEC, -(SP)

#300004 ,

3 1SAVE ERRORVECTOR

SET UP ERROR VECTOR

2DSWR, SWR
;sSETUP
£OR A HARDWARE
SWICH REGISTER
#0DISP,DISPLAY ;:AND A HARDMARE DISPLAY REGISTER
#-1,85WR

i 1TRY TO REFERENCE HARDWARE SWR

30001 $
#30001$,(SP)

::AND

300024

: ;BRANCH
IF NO TIMEOUT TRAP OCCURRED
THE HARDWARE SWR IS NOT = -1

: JBRANCH IF NO TIMEOUT
1:iSET UP FOR TRAP RETURN

;;POINT TO SOFTWARE SWR
msmésDISPLAY

(SP)+,@0ERRVEC
$PASS
SAPTSIZE,$ENVM
30003$
#$SWREG,SWR

; ;RESTORE ERROR VECTOR
; ;CLEAR PASS COUNT
1 1TEST USER SIZE UNDER APT
; :YES,USE NON-APT SWITCH

: :NO,USE APT SWITCH REGISTER

CONFIGURE P-TABLES IAW CPU TYPE

:MTAFEHMYHDGS.

770

7
772 002066
775 002072

intt:

106427

012737

013737
005037

001102

013700

177524

MIPS

9PR7

; RAISE CPU,

MOV

300
#10T

ILOAD VECTOR AREA

CLR

$TSTAM

RESET THE TEST NUMBER

JLETS CALCULATE THE VECTOR THAT THIS PARTICULAR IOP IS GOING TO
i INTERRUPT THROUGH

S0K2CSRC,RO

;GET ID SWITCH SETTING

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
CONFIGURE P-TABLES IAW CPU TYPE

776 002076
777 002100
778 002104

010002
032700
001007

000340

780 002112
781 002116

072227
010237

177774
050742

784 002124
785 002130

042700
072027

177417
177776

;g; 002140

010037

779 002106

042702

782 002122 000410
786 002134

177417

Thursday 03-Apr-86 14:11

MOV
BIT
BNE

RO,R2
#340,R0
3%

:
;IF WE'RE NOT IN STAND ALONE CONFIG.
i...SKIP NEXT FEW INSTRUCTIONS

ASH
MOV

#-4 ,R2
R2,3#I0P.ID

;SHIFT IT OVER
;LOAD IOP.ID

BIC
ASH

#tC360,R0
#-2,R0

;MASK OFF THE ID SWITCH FIELD
;SHIFT IT RIGHT 2 POSITIONS

MOV

RO, INTVEC

;.. AND THERE WE HAVE IT.

MOV
MOV
MOV

@#I0P.ID,$UNIT
#256,38254
#I0T.88256

; UPDATE MAIL BOX
;FIX VECTOR IN SBC
i...MITH STANDARD STUFF

R1,(RO)s

iPATCH VECTOR AREA

S0B

R2,1%

:LOOP CONTROL

MOV

START,30202

BIC

BR
3%:

000400

789 002144
790 002152
791 002160
792
002166
793
002172
794 002176
795 002200

013737
012737
012737
012702
012700
010001
062701

050742
000256
000004
000016
000410

797 002206

012720

000004

.59 002214

00477

002250

CALL

802 002226
803 002232
804 002236
805
002240

012700
012701
005020
077102

051034
000225

MOV
MOV
CLR
S0B

#ELOG,RO
#ELOGN,R1
(RO)+
R1,5%

808 002244

000137

003064

AGAIN

796 002204

010120

798 002212 077207

ADD

#1C3£0,R2

062700

036434

001200
000254
000256

2%:

000002

806 002242 104414
807

S¢:

#14..R2
#410,RO
RO,Ri
#2.R1

MOV

#I0T,CRO)+

T$SWR

7¢:

#400,R0

MOV
MOV
MOV
ADD

MOV

830 002220 012737 001622 000202 45:

Page 24

KxiNIT

;MASK OFF ID SWITCH FIELD

;

:ADD_IN THE BASE INTERRUPT VECTOR

:NUMBER OF VECTORS TO FIX
:STARTING AT ADDRESS 410
;

;

; XCT BOARD-UNIQUE INITIALIZATION.

; ENABLE DIAG RESTART ON "2006".

; CLEAR THE ERROR LOG (KILLS REMOTE).

; CHECK MODE_CAPT VS STANDALONE)..
.AND GET INITIAL $SWR AND $QDLY.
; SKIP OVER THE INITIALIZERS.

810

; BOARD-UNIQUE INITIALIZATION.

81
81
814

; SOME OF THE CHIPS ON THESE BOARDS MAY DO FUNNY THINGS
; (OR PREVENT US FROM DOING THE RIGHT THINGS) ON POWER-UP.
; THESE ROUTINES WILL INIT, RESET, DISABLE
... OR WHATEVER.

815

; BUS-ERRORS ARE IGNORED (TRAPSX= -1).

817 002250 012737 177777 002626 KXINIT: MOV
i

818 002256
019 002262

004737
013700

824 002312

012737

002266 003060
821
2 013700
822 002276 112760
82
112760
825 002320

826 002326

001462
00134

PC,HW
$DMA,RO

MOV

ORSTRAP,PIRV

000054
001326
000030 000004
000030 000014

CLR
MOV
MOVB
HOVB

012737 000340 000026

MOV

002614

177766

000024

#-1,TRAPAX

JSR
MOV

CLR

| PRIORITY
7

; INIT (RESET) 28036 PIO

80177766

002406

000240

MOV

830 002346
831 002354

012737
012737

000001
000001

001352
001344

MOVB
MOV
MOV

MOV

#1,@88BFLAG
&1,S0RFLAG

#2000,@5CSR

833 002370 005037 177520

e e S e

176724

CLR

SET Up RESET TRAP VECTOR.

5380 PulVe>

012737

832 002362 012777 002000

sINIT K2 MMU REGISTERS

S4(RO)
; INIT (RESET) AMZ8016 DMA CHIP.
3SL2,R0
9<3s8IT3>,4(R0) ; INIT (RESET) NEC7201 SYNC/ASYNC CHIP.
#<3BIT3>.14(R0);
CHANNELS.

002332

829 002340 112777 000001 176762

;_DISMISS BUS ERRORS.

#1,8$PI0

iClear the CPU error
ACTION ON

iFX8JC

CHIP.

PIRQ ERRORS

: SAY TRAP THRU 130
3
; SAY TRAP THRU 24 NOT EXPECTED.

; ENABLE TRAP ON

s \

1FX8JC

sFX8JC
sFX8JC

;

4_7 ———to

CONFIGURE P-TABLES IAW CPU TYPE
KXJ11-CA FUNCTIONAL TEST

834 0023/4
835 002400

836 002404

005037
005037

000207

177524
177540

MACRO Y05.02

———
CLR
CLR

RETURN

03-Apr-86 14:11

¥2CSRC
FK2CSRJ

i >
: /

EVERYTHING

OFF

FUNCT) [ONAL TEST

KXJ11-CA

MACRO Y05.02

Thursday 03-Apr-86 14:11

.SBTTL
:

;
;
:
:
;
;
;

W
re—

M-E&ifib:[LLEGAL TRAP

Page 26

BUS-ERROR AND ILLEGAL TRAP HANDLERS.

COME HERE FROM $SCOPE ON ANY UNDEFINED TRAP (IOT)
WITH VECTOR ADDRESS ON TOP OF THE STACK.
BUS-ERROR (VECTOR 4) IS A SPECIAL CASE WHERE “TRAP4X"
DEFINES THE ACTION TAKEN AS FOLLOMS:
0 = ERROR, REPORT AND ABORT TEST.
-1 = DISMISS AND RETURN
"V* = 1.
m-oxsussmmmmumssspecxrm

PIRTRP: CLR
MOV
UNXTRP: CMP
BNE
TST

177772

TRAP4X:

002426

177777

002426
000002
177776
001120
046217
045442

1%:
001122

TRAPE:

MOV

;CLEAR THE PIRQ REG
;
: WAS IT A BUS-ERROR 2?7
: BR IF NOT,
: WAS IT ANTICIPATED ?2?

-2(SP),$BDADR

; GET BAD TRAP VECTOR..

SUNXT,EMADR

(SP), $GDADR

9EF7,ESADR

ERROR+1

ABORT:

040446
000002
037632
037632

MOV

044746
044752

001102

.WORD

. BEQ
P
BEQ
MOV
BIS
BR

MNTTTT2
$240, -(SP)
(SP)+, o4
TRAPE
(PC)+
O
TRAPE
TRAPAX, #-1
$
TRAP4X, (SP)
82,2(SP)
DISMISS

1%:

MOVB

BEQ
ASL
MOV
SUB
o
8LO
MOV
MOV

DISMISS: RTI

$TSTNM,RO

; ERROR AND ABORT IF NOT.
; ALTERNATE RETURN PC 27
; SKIP IF NOT...
:...ELSE, TAKE NEW PC.
;: SET "V* IN CALLERS PSW...
:...AND RETURN.

i...AND PC AT TIME OF HAPPENING.
:: >> ERROR 1, UNEXPECTED TRAP THRU VECTOR NNN..
33//

i...AND FALL THRU

; GET CURRENT TEST NUMBER

: BR IF NONE.
RO
: SHIFT UP TO A WORD
$SWOBTBLCRO),RO ; GET NEXT TEST DISPATCH ADDRESS...
62,R0
:...AND BACK IT WP 1
RO, #$EOP
: VALID
7?
1$
; USE IT
¥
S$E0P, RO
; OTHERWISE, TAKE END-PASS.
RO, (SP)
: NEXT TEST OR END-PASS.

3¢

5"‘-‘

$SE8F

BREREE

; ALMAYS COME HERE ON TRAP THROUGH 24.

gg
15T

177530
001346

002762
045206
001346
00020¢

044746
044752

177530
177530

4:
RSTRAP:

%m
;0ID WE TRAP DUE TO WRITE TO TPRO?
u
;u\s IT EXPECTED (TPROTR= ZERO)

SUNXTPR

33 \\

TPROTR

P180 TRAP GCCURED

MOV

sFX8JC

cgusmésm
*

nnmz.mecmmmevmromo

81
BR

#BIT07,@9K2CSRD ;CLEAR FLAG
NMIEND

BIT

#BIT11,80K2CSRD ;MAS TRAP CAUSED BY BINIT?

sFX8JC

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

BUS-ERROR AND ILLEGAL TRAP HANDLERS.
891 002622
892 002624

001420
005737
001407

Thursday 03-Apr-86 14:11

BEQ
ST
BEQ

001344
002734
045206

MOV

044746

MOV

INC
BIC
BR
HALTRP:
BIT
BEQ

001000

001350
003015
045206

MOV

sFX8JC

;FX8JC

s\
;;

>> ERROR 3, UNEXPECTED RESET TRAP

144

BRFLAG

: SAY TRAP OCCURRED.
; ... AND CLEAR FLAG
:
EXIT
#BIT09,3#K2CSRD ;MAS TRAP CAUSED BY BHALT?
NMIEND
:NO

:1FX8JC
1FX8JC
;FX8JC

#4000,8¢177530

gu.m.c

:WAS TRAP EXPECTED?

SUNXHLT.EMADR

#NOSIG.ESADR

;;\\

;: >> ERROR
4, UNEXPECTED
BUS HALT

1377

:SAY HALT TRAP OCCURRED

9BIT09, 90K2CSRD ;CLEAR HALT FLAG IN CSR

.ASCIZ
.ASCIZ
.ASCIZ

/UNEXPECTED
TRAP/
/UNEXPECTED TPRO WRITE TRAP/
/UNEXPECTED HALT TRAP/

UNXRES:
UNXTPR:
UNXHLT:
.EVEN

116

; WAS TRAP EXPECTED?
: NO, CALL ERROR

BIC

NMIEND: RTI

116

#NOSIG,ESADR

ERROR+4

001350
001000

SUNXRES , EMADR

ERROR+3

1%:

001344
004000

HAL TRP
SORFLAG
13

Page 27

RETURN.

sFX8JC

‘0

; ALMAYS COME HERE ON TRAP THROUGH 130.

SITRAP: TST

001352

1%:

BNE
INC
RTI

S0BFLAG

; WAS TRAP EXPECTED?

1%
S0BFLAG

: NO, JUST DISMISS.
: SAY TRAP OCCURRED.
;: AND RETURN.

177772

AGAIN:

050742
003102

103

g’ S0T0P.1D,-(SP) PUGH
T0P T MUBER ONTO STACK
s

132

CRSCIZ

SORLF>/CZKXA - FUNCTIONAL TEST OF KXJ11-CA 1D /

sn.

‘I‘

1mmnmn

002426

SET CPU

1871

1i...AND FALL

DCJ11 CPU

I4TEST 1
001100

;TYPE ID NUMBER

18:

B8R
1J11K2.MAC

012
012

SCOPE

FTTITTIT T I P23 3PP

PTTTTII eI

9STACK

, SP

fRAex

THRU.

22223 23 R

d R d 2 E ] Y]]

TTITIT AT AT AT AR IS A A AR A3

SET A CLEAN
ST

i1 DISMISS BUS

14 1]

"
———————
-

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

DCJ11 CPU

003174
003200

005037
000402

044742

003206

104415

003214

040

003202

003212

003214

000137

000406

Thursday 03-Apr-86 14:11

CLR
BR

003404

30004%: JP

EMPRE
30005¢

:: CLEAR ERROR PREFIX
i3 SKIP NEXT.

TST12

::; BYPASS

300058: TSNAME, .-4

104

00
939 003230

.WASCIZ

DCuil CPU\

300064:
J11REG:

940
g“é

:: PRINT TEST NUMBER AND

30006%

:3...AND SKIP OVER THE ASCII.

;This test does a rudimentary test of the DCJll chip. Let's face it
ifolks; if we got through the power up stuff then
;DCJ11 is probably

shnctmnol.

943

iThe test accesses the on chip registers. Many of the registers will have

944

ibeen accessed during the initialization micro-routine, and the power

;up routine.

947 003230

012737

003236

012737

948 003246
949 00
gssg 00

000007
022700
001401

003244 000240

003556
045206

044746

;

044752

MOV

NOP

MFPT
cMP
BEQ

000005

#CPUER , EMADR
#NOSIG,ESADR

003256

104005

3i...AND SIGNATURE POINTERS...

:s...ERROR WILL BE CALLED LATER.

#5,R0
100%

954 00

012737

956 003272
957 003274
958
959 003300
960 003302

(1)8‘3’403
737

955 003266 005037

ERROR+5

177777

177766

002426

1008:

MOV

102001

101§:

>> ERROR 5,

ss//

;

_major problem.

wrong environment

or we have a

iAntici

101¢
0177766

iNXM sets the V bit
:
iAccess CPU error ragumr. (internal
; register access
B5¢<1:0> = 1,1)
:

@0177766

BVC

BVS
TST

177766

iWhat type
of processor is this?
:3= DCJ11 micro-processor
;Branch if it's a DCJ11

#-1, TRAP4X

CLR

33 SET ERROR MESSAGE...

ggg

NXM

iWrite CPU error register with zeros

%
i

003302

104006

ERROR+6

963

003304

012737

003350

965 003316

005737

177772

IST

967 00
968 ggg!
999
336

7
Q05737
005737

177572
177574
177576

TST
187
IST

964 003312 005737 177776
966

970 003342

971 003346

972 003350

%;;7

005737

000403

005037
005037
005737

977 003366

001401

1%:

177752
172516

002426

177772

;Access the major
MOV
920%,T

18T

177776

TST

;ML177752

TST

20%:

104007 177766

973
974
975

002426

24:

;s >> ERROR
6, TIME OUT ON ERROR REGISTER ACCESS
s3//
internal registers
of the DCJ11
X
;Action on I/0 timeout

;Access PSW

88177772

ihccess PIRQ

9177572
MW177574
MNL77576

iAccess Memory Mngmnt Reg 3

ERROR+7
0177766
*

TRAP4X

BEQ

Mw177772

‘

iAccess Memory Mngmnt Reg 0
;Access Memory Mngmnt Reg 1
iAccess Memory Mngmnt Reg 2

80172516

CLR
CLR
TST

]

;Access Cache Hit/Miss register

o b

[

;Access PIRQ. It should have been

; cleared by the initialization microroutines.
:

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST

DCJ11 CPU

HTI

Thursday 03-Apr-86 14:11

978

Page 29

33\

003370
979 003372
980 003376
981

104010
005737
001401

34:

177752

104011

ST
BEQ

;177752
4%

ERROR-+11

4%:

000400

ERROR-10

;3 >> ERROR 10,
HH

iAccess the Cache Hit/Miss Register
; Since cache isn't | lemented we

; should be logging 11 misses

;s >> ERROR 11,
HH

TST12

s ;t‘t‘t““t‘t‘m.t“.“tttt“‘t“tt.ttttt‘tttlttt.ttl.“ttt‘.

;*TEST 2

LOCAL K2 REGISTERS

is;?‘tmtm‘.m‘t““‘t.‘“.““tt‘ttt‘tttt‘tt.ttt.‘tttt‘t

000004
012706
012737
005037
000402
000137
104415
000413
040

001100
177777
044742
005652
003440

MOV

002426

MOV
CLR
BR

114

#STACK ,SP

;s SET
A CLEAN STACK.

300041

i3 SKIP NEXT.

#-1, TRAPAX
EMPRF

300078: P
TS12
30008$: TSNAME, .+4

300094

:; DISMISS BUS-ERRORS.
:: CLEAR ERROR PREFIX.
:: BYPASS.
nPRINTTESTMERAmNNE

SKIP OVER THE ASCII.

PASCIZ \ ULOGAL K2 REGISTERSY

300094:
R

.EVEN

LT
e T T T T
i

;*TEST 2.1

SYS REGISTERS

{ 5““00”‘“‘”‘”““0‘“‘tmuttttt‘ttt‘ttttt.‘t‘t“tt‘tt“‘t

:Thm test will access the system

;with signals BS<1:0> = 0,1

012737
012737
000240
012737
005737
000401

003571
045206

044746
044752

003524
177746
177750

002426

MOV
MOV
NOP
MOV

1ST

g‘l’

#SYSER ,EMADR
#NOSIG,ESADR
954, TRAP4AX

0177746

i+ SET ERROR MESSAGE..
i:...AND SIGNATURE POINTERS...
33...ERROR
WILL BE CALLED LATER.
;Anticipate NXM

iAccess cache control register

;:177750

5¢:

isters. This causes a DCJ11 bus cycle

:Aeeuo Maintenance Register
Lo

002426
177746

999
1000 003536
1001

ERROR+12

30177;46

BEQ

104

:: >> ERROR 12, SYSTEM REGISTER ERROR

i://

iister is a
Cache contro.
p
in theonocafi'a..
’
10«2:cleared
: n!n
initialization
f

d\ould(bl

ERROR+13

003540
000060

177750

10%:

:; >> ERROR 13, DCJ11 CACHE CNTRL REG NOT CLEARED

33//

BITB

#1800110000,3#177750

BNE

11$

i
T

;Cache control mum isn't clear.

an this a K2 module? (system reg

access BS<1:0> = 0,1)
Check ID code in maint. register

]

KXJ11-CA FUNCTIONAL TEST
T2.1
SYS REGISTERS

003552

1007 003554
1008 003556
1009 003571
1010
1011

104014
000421
200
200

MACRO Y05.02

103
123

120
131

11$:
CPUER:
SYSER:
RSttt

Thursday 03-Apr-86 14:11

ERROR+14

BR
.ASCIZ
.ASCIZ

>> ERROR 14, MAINT REG ID NOT CORRECT

sséd

K2CSRS
<CRLF>/CPU ERROR/
<CRLF>/SYSTEM REGISTER ERROR/

2 22222 22 22222 22222 12

;#TEST 2.2

Page 30

st It

CONTROL/STATUS REGISTERS

ssisssy]

iztst‘t.t“m‘““tt‘“t‘mtt‘tt“t”tttttttttt‘l‘t“tt.“.‘.tt

1012

003620

1013

:Tut the K2 control and status registers

1014
1015
1016

177532

1017 003620
1018 003626
003634
003642
1019 003644
1020 003652
1023
003666
1024 003670
1025
1026 003674
1027 003676
1028 003700

012737
012737
012737
000240
012737
112737
012704
011403
102414
052703

QIR=177532
004715
004662
045206

177777
000101
177520

044742

044746

044752
002426
004676

010314

102410

042703
020314

:3 SET ERROR

BVS
8IS

omwo R3

;NXM IF V BIT
;TRY T0 WRITE UPPER BYTE

MOV

R3,(R4)

sWRITE

BIC

#NDSI5.
::...AND SIGNATURE POINTERS..
::...ERROR WILL BE CALLED LATER
#-1, TRAP4X
;ANTICIPATE NXM
&'A.@8CSRER+<12.>
;:ASCIT FOR ERROR MESSAGE
oK2CSRA, RE
:START OF K2CSRS
au)R3
;READ K2CSRA
: SHOULDN'T BE ABLE TO

-1 ]

glc'

#177400,R3

g.(m)

;UPPER BYTE IN R4 SHOULD BE ZERO

emvs

g}.(nn.

;TEST LOW BYTE OF K2CSRA

CLRB

(R4)

;WRITE UPPER BYTE

BVC

1037 003722

000102
177522

730

1039
1040 003736
iO‘l gs;w

004676

1048 0037

1044
003746
1045 003750
1046 003752
1047 003754

ERROR+15

:V BIT INDICATES THAT TIMEOUT OCCURRED
33 >> ERROR 15, ERROR IN K2CSRA

i3/

MOVB
MOV
MOV
BVS
%

¢'B,@0CSRER+<12.>
oK2CSRB, RE
(R4),R3
68
R%,(R&)

;ASCII FOR ERROR MESSAGE
;POINT TO K2CSRB
;READ K2CSRB
sNXM IF V BIT IS SET
ums K2CSR8

TST8

C(R4)+

BVS

TISTB
BVC

(R4).
2%

3%.

T0 LOW BYTE

Y BYTEAcfi
10 HIGH BYTE

$3\\

104016
112737
011403

000103

177524

004676

25:

ERROR-+16

MOVB

MOV
MOV

i; >> ERROR 16, ERROR IN K2CSRS
337/

#'C,@8CSRER+<12.>

#K2CSRC, R4
(R4),R3’

:CLEAR UPPER BYTE

s3\\

1036 003722

003754
1048 003756
1049
003764
1050
003770

émn
#CSRER,

BVS

177400

ERROR MESSAGE PREFIX

MOV

MOV
NOP
MOV
MOVB
MOV
MOV

177400

1035 003720

10?

K2CSRS: MOV

;ASCII FOR ERROR MESSAGE

s POINTK;gsgcsuc
:TEST

G3
T2.2

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

CONTROL /STATUS REGISTERS

1051 003772
1052 003774
1053 003776

102410
010314
102406

1056 004004
1057 004006
1058 004010
1059 004012

102404
110324
102402
105714
102001

1054

BVS

104017

1
004016
1063 004024
1064 004030
1065 004032
1066 004034
1067 004036
1068 004040
1069 004042
1070 004044
1071 004046

112737
012704
011403
102406
010314
102404
105724
102402
105724
102001

004050

104020

1074 004052
1075 004060

112737
012704

7%:

004676

3%:

104021

1086 004106
1087 004114
1088 004120

112737
012704
011403
102402
010314
102001

1090 004124
1091 004126

004130

104022

1094 004132
1095 004140

112737
012704

73
R3,(R4)+
7%
(R4)
38

7%
(R4)

000112
177540

004676

4%:

004676

8%:

12%:

004676

9%:

{WRITE LOW BYTE
iREAD HIGH BYTE
iSHOULD NOT TIME QUT

MOVB

#'D,@#CSRER+<12. >

;ASCII FOR ERROR MESSAGE
;POINT TO K2CSRD
READ K2CSRD

MOV
MOV
BVS
MOV
BVS

R4
#K2(SRD,
(R4),R3
10$
R3, (R4)
104

;NXM _IF V BIT IS SET

BVC

;HIGH BYTE READ
;NXM IF V BIT IS SET

;WRITE K2CSRD

(R&)+
10$
(R4)+

;LOW BYTE READ

$3\\

:=,;>Emoazo. ERROR IN K2CSRD

MOVB

MOV
MOV
BVS
MOV
BVS
MOVB
BVS
CLRB
BVC

;ASCII FOR ERROR MESSAGE
;POINT TO NEXT CSR
;READ_K2CSRJ
:V BIT SET BY NXM
sWRITE K2CSRJ
:V _BIT SET BY NxM
BYTE
LOWTE
;WRI

#'J,@8CSRER+<12. >

oK2CSRJ,
R4
(R4),R3
114
R3,(RS)
114
R3,(R4)+
14
(R4)
8%

;

sWRITE HIGH BYTE
;V BIT SET BY NXM
\\

i1 >> ERROR 21, ERROR.IN K2CSRJ

MOVB

MOV
MOV
BVS
MOV
BVC

s34/

#'F,@8CSRER+<12.

(R4),R3
$
R3,(R4)

ERROR+22

000110
177536

IREAD LOW BYTE

;s >> ERROR 17, ERROR IN K2CSRC

ERROR+21

000106
177534

s3\\

ERROR+20

11%:

004104

BVS
MOVBE
BVS
1STB
BVC

1STB
BVS
TSTB

104:

;N _IF V BIT SET
;WRITE K2CSRC

R3,(R4)

ERROR+17

000104
177530

MOV

8VS
1ST8

105714

004014

Thursday 03-Apr-86 14:11

MOVB

MOV

;READ

;V BIT

BY NXM

sWRITE K2CSRF

;V BIT SET BY NXM

115>

144

#'H,@0CSRER+<12. >

oK2CSRH,
RE

ASCII FOR ERROR MESSAGE

CSR
NT
TO NEXT
iPOI

ERROR 22, ERROR IN K2CSRF
;ASCIT FOR ERROR MESSAGE
NT
TO K2CSRH
*POI

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
12.2
CONTROL/STATUS REGISTERS

1096 004144
1097 004146
1098 004150
1099 004152
1100 004154

011403
102402
010314
102001

104023
012704
005714
102402
005014
102007

15¢:

177532

012737
012737
104024
005037

004700
045206

044746
044752

002426

16$:
R

Thursday 03-Apr-v6 14:11

MOV
BVS
MOV
BVC

(R4).R3
13%
R3,(R4)
154

;READ K2CSRH
:NXM SETS THE V BIT
:WRITE K2CSRH
:NXM SETS THE V BIT
33\
33 >> ERROR 23, ERROR IN K2CSRH

ERROR+23

MOV

#K2QIR,R4

CLR
BVC
MOV
MOV

(R4)
16$
#QIRER.EMADR
#NOSIG.ESADR

CLR

TRAP4X

;3;

Page 32

13//

ERROR+24

;POINT TO QBUS INTERRUPT REGISTER
;READ K2CSRH; SHOULD NOT TIME OUT

:WRITE K2QIR
:NXM SETS THE V BIT
;:\\
;; >> ERROR 24, ERROR IN K2QIR

i3//

22122123 2323322232332 323 2333233333333 3333333333333 33333333333

CSR DATA TEST

;#TEST 2.3

012737
012737
000240
012737

004731
000101
177520

044746
044752
044742
004676

000340
000252

001120
001126
001124

Rtteioi &

»o

- ey

(L1

333333
33
f

g
3

ShEeE

004662
045210

112737

0 e et e e o ot i o P e 8 ot e e et b
0 e e o o o s b o o o s o ot b ot
o
=t = o s n
o3

fét;t#tttt“tttttttttt‘tt.tttttttt‘tt#‘t“t‘tttttttt#tt.tt.‘tttt.

18:
000103

177524

702

000017
000372
000012

004676

MOV
MOV
NOP
MOV
MOVB
MOV
MOV
MIPS
MOV
MOV
cMP
BNE
cLC
ROR
MOV
P

#CSRER,EMADR ;; SET ERROR MESSAGE...
#EF2,ESADR
i:...AND SIGNATURE POINTERS...
::...ERROR
WILL BE CALLED LATER.
SCSRDAT ,EMPRE
;ERROR MESSAGE PREFIX
&'A,30CSRER+<12.>
;:ASCII FOR ERROR MESSAGE
R4
#K2CSRA,
(R4),R3
;
#PR7
:NO INTERRUPTS
9252, ,R2
;SET AND CLEAR ALTERNATE BITS
R2,(R4)
:
R2,(R4)
3
S$
R2
;R2 =125
R2,(R4)
:SET AND CLEAR ALTERNATE BITS
R2,(R4)
;

MOV
MOV

(R4), $BDDAT
R2, $GDDAT

BNE

i: >> ERROR
25, DATA ERROR IN K2CSRA

.(R4)
#'C,@0CSRER+<12.>
xzéfi.m
R4)

017

hm)

,(R4)

i3//

ERROR+

MOV
MOVE
MOV
[,
MoV
BIC

“

;RESTORE CSR
;ASCII FOR ERROR MESSAGE
;
3
:GET R3 CONTENTS
; TAKE OUT LED BITS

;TEST BITS
H

;IS R4 OK?
5

Sty

f
I3

KXJ11-CA FUNCTIONAL TEST
72.3
CSR DATA TEST

1140 004362
1141 004366
1142 004372
1143 004376
1144 004400

1154 004442

1162 004466

042702
012714
052702
020214
001407
010437
011437
010237
104026
010314
112737
012704
011403
012702
010214
012701
020114
001007
000241
006002
010214
012701
020114
001407
010437
011437
010137

MACRO Y05.02

BIC

000017
000365
000005
7%:

001120
001126
001124

000112

177540

004676

3$:

000212

000105
001120
001126
001124

11¢:

000106
177534

004676

8%:

1187 004604
1190 004616

011403
012702
010214

001120
001126
001124

000110
177536

v'gvva
MOV

052400
052400

104030
010314
112737
012704

MOV
MOVB
MOV
MOV
MOV
MOV
MOV
P
BNE
CLC
ROR
MOV
MOV
cHP
BEQ
MOV
MOV
MOV

12%:

004676

9%:

Page 33

#17,R2

; TAKE OUT LED BITS

£365, (R8)
#5.R2
R2.(R4)
3%
R4, $GDADR
(R4), $BDDAT
R2, $GDDAT

:
:

:IS R4 OK?

o
:: >> ERROR 26, K2CSRC DATA ERROR
]

ERROR+26

MOV
MOV

125200
125200

010137

MOV
BIS
oP
BEQ
MOV
MOV
MOV

R3,(R4)
#K2CSRJ, RS
(R4),R3
#252.R2
R2,(R4)
#212,R1
R1,(R4)
114
R2
R2,(R4)
#105,R1
R1,(R4)
84
R4, $GDADR
(R4), $BDDAT
R1,
T

#'J,@8CSRER+<12.>

;ASCII FOR ERROR MESSAGE

;
:
:SET AND CLEAR ALTERNATE BITS
;

;R2 =125
;SET AND CLEAR ALTERNATE BITS
:

;

HEH

i: >> ERROR 27, K2CSRJ DATA ERROR

ERROR+27

104027
010314
112737

Thursday 03-Apr-86 14:11

137/

fim‘)
12
c%sr: fi
"

ASCII FOR ERROR MESSAGE
;POINT TO NEXT CSR

+<12.>

(R4),R3
mfiéoo.gt)

MOV
MOV
o
BEQ

m.(M)
240,
R1
R1,(R4)
9

MOV

R1, $GODAT

ERROR+30

;
:ALT PATTERN

sNEXT ALT PATTERN

;

HEH

“

ERROR
SRF
DATA
30, K2C
i3 >> ERROR
i3//

MOV
MOVB

R3,(R4)
ru!aocsaeaoqzn

sRESTORE
:ASCII FOR

MOV
MOV

952535, R2
R2,(R3)

(R4) ws'm

ERROR MESSAGE

;MRITE ALT PATTERN

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST
12.3
CSR DATA TEST

1191 004620
1192 004622
1193 004624

021402
001005
000241
006102
010214
021402
001407
010437
011437
010237

135:

001120
001126
001124

o
BNE
CLC
ROL
MOV
P
BEQ
MOV
MOV

MOV

104031

10$:

004740

1206 004715

Thursday 03-Apr-86 14:11

CSRER:
QIRER:
CSRADR:
cmsmn

101

(R4).R2
13$
R2
R2,(R4)
(R4),R2
10
R4, $GDADR
(R4), $BDDAT
R2, $GDDAT

Emmon
MOV
(R4)

JMP

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

Lot':

Page 34

;

;SHIFT PATTERN
{WRITE PATTERN
:
&
:: >> ERROR 31, K2CSRH DATA ERROR

Ssit/

;RESTORE CSR

/ERROR IN CSRX/
/ERROR IN QIR/
/ADDRESSING /
/DATA /

;Now test the TPRs from the K2 side

$PR00-175000

TPRO1=175002
TPRO2=175004
TPRO3=175006
TPRO4=175010
TPROS=175012
TPRO6=175014
TPRS7=175016
TPRO8=175020
TPRO9=1

TPR11-1730€

TPR12=175030
TPR13=175032
TPR14=175034
TPR15=175036
s sdkkdkbkkdhgkhbhhkbkbihkbhkhbhkbhkkkkkkkbkkhhhkkkhkkbkkhkkkkhkkkkk

4TEST 2.4

LOCAL SIDE TPR ACCESS TEST

LOCTPR: CLR
BIC
MOV
MOV

EMPRE
%mcsm
a9
-(SP)
mmol -(5P)

*él:ttt.!“““t‘t‘tt.“ttttttt.ttt‘t‘ttttt‘tttttt‘t“tt‘ttttttt‘

177530

MOV

i?SG 004776

18:

MOV
MOV

BVS
MOV

gtp

TPROO, R4

0-1
mhux
R&),R3

o
R3.(R4)

:Ihusoz.m

;CLEAR ERROR MESSAGE PREFIX
mxs%%fi TPR ACCESS
; SAVE
S OF TPROO..
i ng
1

;POINT TO

s:READ
ANTICIPATE
THE TPRS

:V BIT BY NXM
:uu'g
TPRS

ot
H

10NEXT TPR

;:DID WE READ/MRITE ALL TPRS?

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
T2.4
LOCAL SIDE TPR ACCESS TEST

1243 005020
1244 005024
005032
005040

1245
1246 005042
1247

010437
012737
012737
104032

001120
005532
045230

005037

002426

044746
044752

R4, 3¢$GDADR
MOV
STPRER, EMADR
MOV
MOV
#LA16,ESADR
ERROR +32

2%:

3%:
Hl

Thursday 03-Apr-86 14:11

CLR

TRAP4X

e sttt 2222 22 222 2 2 S

;*TEST 2.5

Page 35

:: >> ERROR
32, TPR TIMED OUT ON LOCAL ACCESS

et nnst

;LOOK FOR UNEXPECTED NXMS

st tE

LOCAL SIDE TPR DATA TEST

TSI IS SIS TSI

ee
T
T

DATPR:

175000

1%:

175040
175000

2%:

175040

1261 005114
1262 005116

125252

175000
125252
052525

005206

012637
012637
052737

3%:

001124
001126
001122
005554
045210

S$:
6%:
044746
044752

44:

175002
000100

177530

1279

1S
3 5 ookl ool

;*TEST 2.6
005220

1280 00%320
ig&l 00

12g§ 005236
1284
1285

005256
1286 005260
1287 005262

012702
012701
012737
005722
802007

12737

012737
104034
077112
012702

000004

003573
045206

177560

ool

"'2.6::

177560

;INIT R3 WITH DATA

#125252,R3

#52525
k2
#TPROO R4

;INIT R2 WITH DATA
;POINT TO FIRST TPR
;WRITE CHECKER BOARD TO TPR ARRAY

:1'."5040.114

;:DID WE RUN OUT OF TPRS YET?

#TPROO, R4

;POINT TO TPROO
; CHECK DATA
:BRANCH IF BAD

R3,(R4)+

R2.(R4)+

;DID WE CHECK ALL THE TPRS?

#TPR15+2,R4

;:DID WE TRY BOTH PATTERNS?
;RESET POINTER
;CHANGE PATTERN

;ERROR CALL DATA

83\

;GET BAD DATA
i.. AND FAILING TPR ADDRESS

33 >> ERROR 33, BAD DATA IN TPRS
s3//

012737
104033

001124

MOV

§§§§§3§*§§§§3¥3¥338§33§§§§

12.5::

1$:
044746
044752
2$:

ol s

;RESTORE TPRS

(SP)+,86TPRO1
(SP)O.QOIPROO
#81706, 38K2CSRD
oo st st

;RE-ENABLE TPR ACCESS FROM QBUS

seatode st e b s el e dedofe e ool oo o

SLU ADDRESS ACCESS TEST

s ol

ol otk ok ok kool &

dolodolokofolok dolofoiskodoklolok gokddoiok dofolol ok dok kool tolofokokok ol ok kb ok kol dolokok

#177560,R2
84 .R1
MOV
@-1,38TRAP4X
MOV
TST
u'az)o
8vC
2
MOV
#SLULTO,EMADR
#NOSIG, ESADR
MOV
ERROR+34
R1,1$
S0B
#177560.R2
MOV

\FIRST SLU ADDRESS

I ANTICIPATE oM
B

READ
ER
OUT ON
IST
34, SLU1 REGTIMED
:: >> ERROR
s3//

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
12.6
SLU ADDRESS ACCESS TEST

012701

105722

000010

005573
045206

Thursday 03-Apr-86 14:11

MOV
1STB
BVC

#10,R1
(R2)+
4

MOV
#SLULTO,EMADR
MOV
#NOSIG,ESADR
ERROR+35

044746
044752

S08

Page 36

33\

;:/;’ ERROR 35, SLU1 REGISTER TIMED OUT ON BYTE READ

R1,3$

;s kkkkskkgkikkhkkkkkkkhkhhkkhhkhkkkkkkkkkhkkkkkkkkkkrkpkhkhkkrrhhbk
ki

s#TEST 2.7

012702
012737

102011
010237

012737
012737
1040
022702
001362

002426

001120
005631
045222

044746
044752

174540

s TT
P Ty
e

1$:

MOV
MOV
TST
BVC
MOV

i2.7::

174400
177777

DTC ADDRESS ACCESS TEST

s e

MOV
MOV

A0k

;FIRST DMA ADDRESS
;ANTICIPATE NXM

#DTCTO,EMADR
#LA16M2,ESADR

ERROR+36

2%:
5

£174400,R2
#-1,98TRAPAX
(R2)+
24
R2, $GDADR

cHP
BNE

;#TEST 2.10

ok sk okodofole ok

::/;> ERROR 36, DTC REGISTER TIMED OUT ON READ
38

#174540,R2
1%

sk e sk sk ol sk

33\

ot sk

ol sk Aok ool dtok ok oo ok sk sk ko ok ok dkokokokok dokok

SLU2 ADDRESS ACCESS TEST

175704

2.10::

;WRITE ONLY 175704

;

175706

;BUMP_UP TO 175714
;WRITE ONLY 175714

000001

175720

175714

175716

;Register Pointer = 0

1¢:

;Read the status registers

;Next status register
:
:

1§Qfa the flocc?zer Data Buffer
rement R2

;Try to read control registers; should time-out
;Try to read xmit buffer; should time-out

TST

000003

S$:

()

175700
175704

2833 T i

iiR 222

Pard

8
b
&

bopepaopetebebetatopobepatasatafetatasatotabatopatabotatats

tE“'“fl“‘
gflfififi
S§.-.-».-.—»»3»S§§S§S
wdo~
GO
OB~V
DLW -=O
. v

{;t‘ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt.t

15
175714 ,R3

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
12.10
SLU2 ADDRESS ACCESS TEST

1335 005500
1336 005504
1337 005506
1338 005512
005520
526

012702
000747
010237
012737
012737
104037

30
1340 005532

000450
124

1341
1342

554
573

1343 005612
1344 005631

124
123
123
104

Thursday 03-Apr-86 14:11

175710
001120
005612
045222

120
120
114
114
124

044746
044752

108:

MOV
MOV
MOV

2175710,R2
S$

R2,
#SLU2TO.EMADR
#LA16M2.ESADR

ERROR+37

;;\\
:; >> ERROR 37, SLU2 REGISTER TIMED OUT

s3//

TPRER:

BR
1ST3
.ASCIZ /TPR ADDRESS ERROR/

SLU1TO:
SLU2TO:
ogg:

.ASCIZ
.ASCIZ
"ASCIZ

TPRDER:

103

MOV
BR

Page 37

.ASCIZ

/TPR DATA ERROR/

/SLU1 TIMED-OUT/
/SLU2 TIMED-OUT/
/DTC TIMED-OUT/

1347
1348
1349
1350
1351
13

MODULE NAME:

RAMBO - K2 512KB RAM TEST

HENRY ENMAN

CREATION DATE 28-JUNE-85

WILL CAUSE AN EXIT FROM THE TEST. THE PROGRAM EXECUTES IN

THIS TEST PROVIDES A FUNCTIONAL TEST OF 512K BYTES OF DYNAMIC
RAM ON THE KXJ11-CA MODULE. ANY ERROR IS CONSIDERED FATAL AND

USER

WORD

STACK IS SET UP USING THE SUPERVISOR I AND D SPACE PARS. THIS
S CORRUPTING THE RAM BEING TESTED OR WIPING OUT THE STACK

WE
BE
B0
we
W
We

1361

1354
1355
1356
1357
1358
%359

Page 38

FUNCTIONAL DESCRIPTION:

13?%

Thursday 03-Apr-86 14:11

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
72.10
SLU2 ADDRESS ACCESS TEST

ERRORS: ANY ERROR IS CONSIDERED FATAL AND WILL CAUSE THE TEST
TO BE EXITED AND AN ERROR TO BE POSTED.

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
72.10
SLU2 ADDRESS ACCESS TEST

1373 005650
1374 005652

005652

005654

017600

TOPMEM: ._WORD
K2RAM:

17600

;#TEST 3

RAM TEST

000004

012706

;5 8 8

ST3:

001100

005660 012737 177777 002426
005666 005037 044742

005672 000402
005674
005700

005704
005706

000137
104415

000406
040

011312
005706

040

55555

SCOPE

SRR RS S AR AR LR

MOV

MOV
CLR

BR
EVENASCIZ

Sttt

RS SR AR RN LB

BN R RS R AR ARtk h kR %

#STACK, SP

33 SET A CLEAN STACK.

300114

is SKIP NEXT.

#-1, TRAPaX
EMPRE

122

Page 39

st 222 22 22 22 22 22 2 2222 Rt e et

:; DISMISS BUS-ERRORS.
;s CLEAR ERROR PREFIX.

30010%: JP
1574
30011%: TSNAME, .-4

1378 005722

300124
\ RAM TEST\

;s BYPASS.
;; PRINT TEST NUMBER AND NAME...

ii...AND SKIP OVER THE ASCII.

300124
:

1376
1377
1378
1379

;This is a test of the on board RAM on the K2 module. There
are 256k
;
of RAM on the board. It consists of eighteen 256 k x 1 dynamic RAMs
iSixteen RAMs are for data storage and two are for storage of a
iparity bit for each byte. The data RAMs are in leadless chip carriers

1380
1381
iggg

;which
are mounted on ceramic substrates which form a Single In-line
;Package (SIP). There are four data RAMs Ber SIP, and four SIPs per
5
e. The parity RAMs are in standard DIP packages.
3

1384
1385
1386
1387
1388
1389
1390

iAccess to the RAM is via a dynamic RAM control circuit which resides
;in the Data Path and LSI Bus Interface gate array, The dynamic RAM
icontroller
circuitry generates the si
B
:
¢
ineeded to interface to the RAM. Re
for the RAMs is derived_from
ithe 14 mhz, clock which also drives the DCJ11l micro-processor. The clock
ifrequency is divided down to provide a si
which generates a refresh
sm@n
XXX micro-seconds. The
request originates in GA_l
;
is sent to the DMA State Machine - a g&g PAL, which
a

1391

1394

Thursday 03-Apr-86 14:11

ST Grete P ths GESTL,
e tha DR
;rdra:yio executed.
e

Syele s granted eneaor’

1;95
1 99

722

005037
012737

177572
010540

CLR
MOV

SHMMRO
STRP 4,804

;Turn off MU
;Bus timeout error routine

1
1399
1400

740
46
754

008087 009426

000004

012737
gg‘l!?
737

000340
011174
00%‘6;

177776
000114

2
P

760 012737 177777

177672

MOV
MOV
JSR

¢
. set kernel mode.
iSet \? parity error handler
;6o initialize the MU registers

1397
1401

1402

CLR

MOV

3
coe o1l 1en
1405

1408 008008 008037 177380
1409 006006 012787 800030 172516

GR
MOV

1‘03

1410 006014

737

000001

9OTRAPS

177572

¢-1,80UDPARS
.

Unexpected

errors

eny traps
vis 4

es indicator as to weather

;

perity error is m.c.m

s
e
a 2
I‘.
-ulf"' e

3
;

under

the

will not be corrupted

iDisable pority error generation
:
25
bit sddresses, disable D space
:Di

#1,30MR0

ity

expecting

i Use

DOKZCORI
920,08172516

BIS
3

ihot

M177776
, 80114

-existant

ity

error

ON MU

traps

:thm the Kxit! space fimo.’gn fim.

will vector

:Thop.ritycrmhmdlcr in ROM will set the V bit in the PSW

KXJ11-CA FUNCIIONAL TEST

RAM TEST

MACRO Y05.02

Thursday 03-Apr-86 14:11

%:i.g

;on each occurence of a parity error and then do an RTI.

1418

:The non-existant memory error handler will cause the K2 to post

i:ég

;an error indication, exit the test and return to the firmware monitor.

KXJ11-CA FUNCTIONAL TEST
T3
RAM TEST

MACRO Y05.02

Thursday 03-Rpr-86 14:11

Page 41

005002
012703
005001

051506

020861

002375
010237

1%:

177666

SRIBESC

:';’i‘:ctnnf‘ll establish a checksum for the diagnostic stuff resident in

R2
&ASTNJ.RS

'('513;.&
1%

R2,3%177666

;R2 WILL HOLD SUM IGNORING CARRIES

:SAVE CHECK SUM IN TPR1S

KXJ11-CA FUNCTIONAL TEST
T3
RAM TEST

1435
1436
1437
1438

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 42

;Let’s check that the RAM is worki
;the address decoders are working,

in a rudimen
fashion. Meani
rams hold data and that ref

that
cycles

;are occurring.

1439

;Inthcfirst&kmuf memory each address will be written with its own

1444

;address. The next 32 kword bank will be written with virtual address 0 = 177776
ithru to virtual address 177776 = 0. The third 32 kword bank of memory will
repeat
the pattern in the first bank and so on...

[

010000

Eda st

1%:

1459 006114
1460 006120
012701
012702
162700
010022

28:
34:

077104

PC,.PROMLO

010450

120000
010000

164 ;
11%:

sdssssssy

ity

;G0 SEE_IF PROM IS MAPPED LOW
; AND INIT KIPARS ACCORDINGLY
B

:STARTING DATA FOR RO
;INIT COUNTER

:IRITEQWSWWYUITHMSS
;:DID WE HIT THE TOP?

IF YES
NCH
OUT OF SETUP
;BRA
WINDOW
NEXT
;G0 _TO
;DID RO WRAP AROUND TO ZERO YET?
KWORDS
NEXT 2 TE
;WRI

IMRITE ADDRESS WITH 25 COMPLIMENT

:...0F ADDRESS

;DID WE HIT TOP
;GO0 TO NEXT WINDOW

0$:

333%853% 4RG

010514

2 2ttt

023714

ettt

222 22 222 2222222223222 22222

73.1::

15%:

s S

RAM ADDRESSING TEST

{ o EE38 3533 RdSEIWEI33NER3¢ &

010450

1461 006122
1462

d s 2t 2 2 22 2 2 2 222 d 2

;#TEST 3.1

2%
15¢

;DID IT HIT ZERO YET?

fgfléfls\&‘rid\t stuff.
i

gé.mo

B
#120000,
RO
R3,RO

uoesu‘
R1R2
£120000,

RO,(R2)-

:FDD LAST DIAGNOSTIC ADDRESS AND

sINIT KIPARS AND R1 ACCORDINGLY
:
;

:ST&IDG DATA FOR RO

" ;CHECK THE DATA

1440
1441
1442

[
v

KXJ11-CA FUNCTIONAL TEST
73.1
RAM ADDRESSING TEST

1489 006226
1490 006230
1491 006234
1492 006236
1493 006242
1494 006244

001044
062700
077105
023714
001447
062714

1497 006254
1498 006260

012701
012702
162700

000002

1503 006276

023714

005650

1505 006304

062714

000200

1509 006316
1510 006322
006330

013706
012737
012737

177676
010712
010704

1511 006340
1512 006344

013706
012737

177676
011006

1499 006264

1513
1514
1515

006352
006360

1519 006376

012737
104041

MACRO Y05.02

000002
005650
000200

010000
120000

010634

17%:

12%:

Thursday 03-Apr-86 14:11

BNE
ADD
S08
oP
BEQ
ADD
TST
BNE
MOV
MOV
SUB
P

20$
#2.R0
R1,11$
TOPMEM, (R4)
25%
#200, (R4)
RO
16$
$4096. .R1
€120000,R2
#2,R0O
RO, (R2)+

%
ADD
TST
BNE
BR
MOV

&m‘ .(R4)
$200,(R4)
RO
17%
16$
@0UDPAR7
, SP

044746
044752
044746
044752

21%:

MOV

20%:

MOV

;DID ME HIT THE TOP YET?
:IF YES THEN TEST IS DONE
:GO TO NEXT WINDOM

;
:IS DATA STILL OK?

Ay 128

SCKSUM,EMADR

OFATALR.ESADR

WMMO

MOV

Page 43

7. 5P

m‘.m

OFATALW,ESADR

ERROR+41

‘

;:DID WE HIT THE TOP?
;G0 TO NEXT WINDOW
:IS RO=0
;D0 THE NEXT 32 KWORDS

:;\\

;; >> ERROR 40, CHECKSUM ERROR
is//

sa\\
;;

>> ERROR 41,

i3//

;POSSIBLE CAUSE OF ERROR IS A

;BAD RAM CELL,

172550

25%:
26%:

BIT
BNE
JP

#BIT10,3SWR
gso
ARCHK

ADDRESS DECODER

:O0R REFRESH NOT OCCURRING
:D0 EXTENDED RAM TESTS?
: YES
:NO, BUT DO CHECK THE PARITY STUFF.

KXJ11-CA FUNCTIONAL TEST
13.1
RAM ADDRESSING TEST

MACRO Y05.02

i5¢1
1522
1523
1524

Thursday 03-Apr-86 14:11

Page 44

;Now we’ll check the address decoders, and look for interaction between
;memory cells in the same RAM.
HE

St sadadat st 2 22 222 22 22 28 2 2t dd

;#TEST 3.2
i

st dt i

RAM ADDRESS DECODERS TEST

deastat t 222222222222 222 2222222 22 222222

13.2::

Tt T

T ST

ST TR TR T2 23

;Initialize memory with all zeros. This uses a DATO and DATI bus cycle to RAM.

010450

10%:

15%:

000200

254%:

010514

010640

;FIND LAST DIAGNOSTIC ADDRESS AND

MOV
MOV

#4096. ,R1
#120000,R2

;Use R1 as a counter
;Set R2 to 120000

g:%

'Za)tls‘

CLR
TST

CMP

005650

177676
011006

PC,PROMLO

010000
120000

177676
010712
010704

JSR

044746
044752

BEQ
ADD
BR

a0UDPAR7,
SP

MOV

iHave we hit top yet?

i Branch if yes
iMove window up 4 kwords
;Do it again

264

#FATALR,ESADR

ERROR+42

MOV

sLBnnch :o trror if not zero

;Loop contro

TOPMEM,(R4)

MOV
MOV

MOV

iWrite zeros at all addresses (DATO)
iEnsure that it is_zero (DATI)

25%
#200,(R4)
104

PC, CHEXSUM

BEQ

;INIT KIPARS AND R1 ACCORDINGLY

(R2)
(R2)+

JSR

MOV

20%:

aiie.

8%UDPAR7, SP

SRAME ,EMADR

#FATAL1,ESADR

ERROR+43

;; >> ERROR 42, CHECKSUM ERROR
s://

35\\

;; >> ERROR 43,

i13//

254

R
;
:Possible cause of this error
:is @ bad RAM cell that can’'t be cleared,
sor bad MDAL. Failing location is contents

;of R2 minus two.

:Chocku\.tnriti

ones at a low address does not affect a

imemory
cell at a higher address
:

;Read zeros/ compliment/ write ones at 256 k addresses starting at
;low RAM working up to address 1777776
012700
004737

177777
010176

g‘

f.‘él K

;LOAD RO WITH EXPECTED DATA

;Memory should
be all ones, KIPARS should = 17600, R2 should= 140000

:O\ock that writing zeros at a high address does not affect a
;myanuto!mrm
'

;Read ones/ compliment/ write zeros at 256k addresses starting ot
;11777776 working down to low RAM.
005000
004737

010314

;

CLR

JSR

PC.$DNMRD

;LOAD RO WITH EXPECTED DATA

Thursday 03-Apr-86 14:11

Page 45

;Check that writing ones at a high address does not affect
a

We We

-e-orycelllt.

1634 006534

012700
004737

177777
010314

MACRO Y05.02
KXJ11-CA FUCTIML TEST
73.2
RAM ADDRESS DECODERS TEST

ower address

Reod zeros/ compliment/ write ones starting at address 1777776
working down to low RAM

MOV
JSR

#-1,R0
PC, $DNWRD

;LOAD RO WITH EXPECTED DATA

;Haoryshouldnoubeallm KIPARS should = 0 or lowest
RAM.
mma-xzoooo

;Ched( that writing

.-e.ory cell at a

zeros at a low address does not affect a

higher address

Reod ones/ compliment/ write zeros at 256k addresses

startmg at address 0 working up to address 1777776

005000
004737

010176

CLR
JSR

RO
PC, $UPWRD

;LOAD RO WITH EXPECTED DATA

iMemory should be all zeros, KIPARS should = 17600, R2 should = 140000

KXJ11-CA FUNCTIONAL TEST

13.2

MACRO Y05.02

RAM ADDRESS DECODERS TEST

Thursday 03-Apr-86 14:11

Page

1650

;Now check out the DATIO(B) functions of the module.

iggg

.startmg at address 1777777 working down to lowest

1651

;Read byte zeros/ compliment/ write byte ones at 5

1703

;s ¥k kbt kb ki kikkk kb kb k Rk kkkk bk kkkkhkkkkk
;#TEST 3.3
RAM CELL INTERACTION TEST
006546

JSR

006552 013714 005650
006556 012701 020000
006562 012702 140000

MOV
30013$: MOV
MOV

006566
006570

105142
122712

006576
006600

kkk kR kR

077105
162714

006606
006610
006614
006616

;FIND LAST om;nosuc ADDRESS AND

TOPMEN, (R48)
$8192. ,R1
#140000,R2

;Start at
;Use Rl as
13: counter
;Set R2 =140000

300148: COMB
CMPB

000200

S0B
SuB

001363
004737 010450
006301
012702 140000

BNE
JSR
ASL
MOV

300134
PC,PROMLO
1
#140000,R2

BNE
S08

30015$
R1,15%

006604 020314

105142
122712

006630 001002
006632 077105

006634 000411

15¢:

177777

006636

013706

177676

006650

012737

010640

104044

006660
1705 006660 004737

30015

cHP

R3,(R4)

CoM8
CMPB

30015¢: MOV

MOV

044752

MOV

300164:

iRead byte/ modify / write byte
iShould be ones

: Branch if not

R1,30014%
#200,(R4)

:Loop control
;Move window down 4 kwords

Have we hit low ram?
;MAKE IT BYTES
;

-(R2)
#-1,(R2)

300164

@SUDPAR7, SP

SRAME,EMADR

OFATALI,ESADR

ERROR+44

;
$3\\

;; >> ERROR 44,

$3/7

JSR

PC,PROMLO

;FIND LAST DIAGNOSTIC ADDRESS AND

ASL
B8R
30017$: MOV

R1
300184
$8192. ,R1

;MAKE IT BYTES

105012

300184: CLRB

gaz)

;unt. bfic SoAToe)

001010
10522

BNE
INGB

300194
(R2)s

%‘Hfi %flifi 005650

006664 006301
006666 000404
006670 012701

010450

:INIT KIPARS Am R1 Accommv

-(R2)
#-1,(R2)

BNE

006642 012737 011006 044746

020000

006674 012702 120000
006700

006702
006704
006706

006710

TST8

077105

006720

062714

000200

006726
006732
006740

013706
012737
012737

177676
011006
010640

006746

MOV

105712

006724 000761

1706

PC,PROMLO

177777

006574 001020

006656

address.

f
s‘;‘ttt“tt‘t“tttmttt‘t‘t“ttt“tttttttt.ttttttt‘tt‘tt‘ttttt‘

1704 006546 004737 010450

006622
006624

te addresses

104045

;u.. n1 es 300174 counter

#120000,R2
R2)

rmch to error if not equal

S08

R1,30018%

TOPMEM, (R4)

;Have we hit top yet?

ADD

$200,(R4)

;Move window up 4 kwords

044746
044752

;INIT KIPARS AND R1 ACCORDINGLY

300194: MOV
MOV
MOV

30017

ORAME,
#FATAL1,ESADR

ERROR+45

iLoop control

33\
;; >> ERROR 45,

;Possible cause of error is

;DATOB access ofRAM is faulty.

006750

300204:
;Memory should be all zeros. R2 = 140000, KIPARS = 17600

—

seseswmsa— e,S—

_—_‘_J

KXJ11-CA FUNCTIONAL TEST

13.3

MACRO Y05.02

RAM CELL INTERACTION TEST

1708

Thursday 03-Apr-86 14:11

;The

%;(1)3

%;ié 006750

000004

parity checker/generators maintain odd

ity

on each

byte of

RAM. If write wrong parity is mledwfimtyem poriltwy is written

PARDEL:

.WORD

:See following comment to explain this.

1713
1714

;Parity error notification does not take place immediately upon detection of
;bad -e-ogepornty. When expecting
a parity error a delay should be inserted

%;ig

; it has occured.

1718 006752

PARCHK:

1715

;between

occurrance of the parity error and prior to checking to see that

;*#TEST 3.4

o—

e e e

pe e e ee————

PARITY CHECKER/GENERATOR TEST

fit:tttt“ttttttttttttttttttttttttttttttttttttttttttttttttttttttt

1719 006752
1720
1721 006756

004737

010450

JSR

PC,PROMLO

013700

006750

MOV

PARDEL ,RO

;FIND LAST DIAGNOSTIC ADDRESS AND
; INIT KIPARS AND R1 ACCORDINGLY
;Load RO with delay value

1723 006766
1724 006774
1725 007002

012737
012737
012702

007032
000001
120000

MOV
MOV
MOV

#14 ,38UDPARS
#1,88K2CSRJ
#120000,R2

;Anticipate parity errors
;Enable parity error detection
;Init R2

1727 007010

005712

1722 006762 062714 000200

1726 007006 005012

ADD

177672
177540

TST

1728 007012 077001
1729 007014 013700 006750

S0B
MOV

1731 007024
1732 007026
1733 007030
1734 007032
1735 007036

TST
S0B
BR
MOV
MOV

1730 007020 012712 000401

007044

1736

007052

005712
077001
000411
013706
012737

012737

104046

177676
010733
010704

MOV

044746

14:

044752

MOV

#200, (R4)

(R2)

2401, (R2)

(R2)
RO, .
2%
S8UDPAR7,
SP
#P

#FATALR,ESADR

ERROR+46

iEven low RAM location/ parity RAMs = 1

iWait here for interrupt
;Load RO with delay value

;Read low RAM location

RO, .
PARDEL ,RO

i;i;

;Make low RAM bytes odd/Parity RAM now = 0
;Read low RAM
;Wait here for interrupt

$3\\

;; >> ERROR 46,

3://

.
;:Possible cause of error is bad parity
:

1739 007054

013700

006750

1741 007064
1742 007072

052737
011212

000002

1740 007060 005037
i;fi

iMake sure address used is not in program

177672

2%:
177540

RAM or parity generator/checker

MOV

PARDEL ,RO

;Load RO with delay value

BIS
MOV

#2,30K2CSRJ
(R2).(R2)

;Enable write
ng
iWrite it
in with

CLR

@0UDPARS

;

: “Rfl&“'l
‘

1745 007074

042737

i;fi 007102

parity

#2,890K2CSRJ

005712

TST

(R2)

1749 007104

077001

S08

RO,.

1751 007106
1752 007110
1753 007114
i_"fgg 007122

102014
013700
052737
005012

006750
000002

BvVC
MOV
8IS
CLR

34
PARDEL ,RO
#2,80K2CSRY
(R2)

;Error _if no parity error indication.
iLoad RO with delay value
sEnable write wrong
i
:
;Make laol RAM bytes even/Parity RAM

1756 007124

042737

000002

BIC

#2, 39K2CSRJ

;Disable writing wrong perity

1758 007134

077001

S0B

RO, .

1750

1757 007132 005712

177540

low RAM location/

BIC

1746

000002

;

parity
.
write uron, parity

177540
177540

15T

(R2)

;:Disable write
;_ stack doesn’t

parity so that
get wrong parity.

;Read low RAM location expecting perity
; _error

;Filler to meke sure we get a demand

read from Ji1.

i _now =

iRead low RAM

;Filler make sure we get a demand

I<4

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
73.4
PARITY CHECKER/GENERATOR TEST

1759
1760
1761 007136
1762 007140

102412
005012

007162

013706
012737
012737
104047

1763
1764 007142
1765 007146
007154
1766
1767
1768 007164
1769
1770
1771
1772
1773 007166
1774 007174
1775 007176
1776 007200
1777 007202
1778 007204
1779 007210
007216
007224
1780
1781
1782

1783

1784 007226

1785 007234
1786 007236
1787 007240
1788 007242
1789 007244
1790 007246
1791 007252

17
1794 007270

Thursday 03-Apr-86 14:11

Page 48

;

3%:
177676
010733
010704

044746
044752

MOV
MOV

a%UDPAR7,
SP
#PARE ,EMADR

MOV

CLR

;Did a parity error occur?

(R2)

#FATALR.ESADR

ERROR-47

4%:

005012

BVS

CLR

read from J11.

itry restoring correct parity
;...prior to calling error

33\
;;

>> ERROR 47,

s:3//

(R2)

;Possible cause of error is bad parity
:
AM or parity generator/checker

;Restore correct parity.

;Test parity generator/checker with all patterns

;Chedt low byte parity generator/checker
012737
105012
105212
001412
000775
013706
012737
012737

104050

007204

177672

5%:
177676
010733
010704

044746
044752

10%:

MOV
CLRB
INCB

£#10$ , 3#UDPARS
(R2)
(R2)

MOV

@#UDPAR7, SP

BEQ
BR

MOV

3
;Zero low byte
;Do all patterns

64
5¢

#PARE,EMADR

#FATALR,ESADR

iLoop control
;Zero if no parity errors

13\

;; >> ERROR S0,
:Possible cause of error is

;
;Check high byte parity checker/generator
012737
005202

007246

177672

64:

7%:

012737
104051

012737

177676
010733
010704

177777

044746

11%:

044752

177672

MOV

INC
CLRB
INCB
BEQ
BR
MOV

MOV

#114,3%UDPARS

R2
(R2)
(R2)
84
74
S0UDPAR7, SP

OPARE,EMADR

#FATALR,ESADR

ERROR+51

8%:

MOV

¢-1,30UDPARS

bad parity checker/generator

;R2 = 120001
;Zero high byte
;Do all patterns
iLoop control
;Zero if no parity errors

$\\

;; >> ERROR 51,

13//

:Poc&:le cnuu_ty eg:c:"‘/w is

3
3

pari

er/generator

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
73.4
PARITY CHECKER/GENERATOR TEST

1796
1797
1798
1799
1800
1801 007276
1802 007304
1803 007306
1804 007312

1805
1806 007316

Thursday 03-Apr-86 14:11

Page 49

;The parity RAM consists of two 256k x 1 RAM chips.

One for the low

;bytes and one for the high bytes of 256k words of data RAM.

;Tost the low byte parity RAM if extended memory tests are wanted.
032777
001004
013706
000137

002000

BIT
BNE
MOV

171634

177676
011232

JHP

#81710,3SWR
LOWPAR
a#UDPAR7,SP

;00 EXTENDED RAM TESTS?
;YES
;NO, RESTORE STACK

ENDRAM

:AND EXIT TEST

LOWPAR:

s skkkbkkkbkkkkkkkkkkkkkkkkkkkkkkkkkkhkkkkkkkkkhkkhkkkkkkhkkkkkhkkkks

;*TEST 3.5

LOW BYTE PARITY RAM TEST

1°_ it;tti“‘ttttttttttttttttttttttttttt”t#tt‘ttttttttttttittt‘tttl

007316
1807 007316

004737

007322
007324
007330
007334
007340

000404
012701
012702
112712
005722
077104
023714
001403
062714

004737
001422
013706
012737
012737

104052

013706
012737
012737
104053

JSR

PC,.PROMLO

;FIND LAST DIAGNOSTIC ADDRESS AND

BR
30021¢: MOV

300224
#4096. ,R1

;Use R1 as counter

010450
010000
120000
000001

MOV
300224¢: MOVB

TST
(R2)+
error
to
Branch
;

000200

S0B
cMP
BEQ
ADD

010514

300244: JSR

005650

177676
010712
010704
177676
010762
010634

£#120000,R2
#1,(R2)

BEQ
MOV
MOV

044746
044752

MOV

300234: MOV

MOV

;INIT KIPARS AND R1 ACCORDINGLY

;Reset R2 to 120000
;Read / modify / write

R1,300224
TOPMEM, (R4)

;Loop control
;Have we hit top yet?
;
;Move window up 4 kwords

300244
#200,(R4)

30021$

PC, CHEKSUM

300254
S9UDPAR7
, SP
SCKSUM

og‘sm.é.ssum
38UDPAR7,
SP

#PRAME , EMADR

@FATALW.ESADR

ERROR+53

i3 >> ERROR 52, CHECKSUM ERROR
i\

;;

>> ERROR 53,

;possible causes of this error
;are bad address decoder, bad

;MDAL, interaction between RAM cells.

:Loubytedntlmrldmld-oooooom. low byte parity RAM should = 0
:Chod: that writing ones at a low parity RAM address does not affect a
;memory cell at a
H

1817 007432
1818 007436
1819
1820
1821
1822

Read zero/

:stm-ting at
012700
004737

120000
010046

higher address

write one at 256 k low

T rity e
RAMs should be all ones, low

iLow b

ity

o.uorking up to m%th

RIPARE enooy Y 176000 e e ta = Te0000 " BYte

RAM locations

= -1
data RAMs should

:Chock that writing zero at a high parity RAM address does not affect a

KXJ11-CA FUNCTIONAL TEST

13.5

MACRO Y05.02

LOM BYTE PARITY RAM TEST

igz
1825

Thursday 03-

;starting at

1828 007442 012700 140000

’

1831

:Low

i.ggg 007446

004737

007674

i.ggg

;KIP

1834

-86 14:11

;memory cell at a lower address

:Read one/

%3229

MOV

JSR

negate/ write zero st 256k low byte perity RAM locations

1777776 working down to lowest RAM address.

£140000,
RO

PC, $DNPAR

parity RAMs should = 0, low byte data RAM should = 1

should = 0, R2 should = 120000

:Check that writing one at a high address in the low byte parity RAM

%ggg

;does not affect a memory cell at a lower address

1837

;Read zero/ compliment/ write one starting at address 1777776

iggs

;working down to address 0.

1840 007452 012700 140000

1843

;Lou

1846

;Chedt that writing zero at a low address in the low byte parity RAM

1849

iRead ones/ negate/ write zeros at 256k addresses

iz% 007456

004737

007674

;KIP.

i.gzz

JSR

#140000,R0

PC.‘W‘R

parity RAM should = all ones, Low byte data RAM should be all ones.

should = 0. R2 should = 120000

;does not affect a memory cell at a higher address

iggg

1852
1853

MOV

;starting at low RAM working up to address 1777776

007462 012700 120000
007466 004737 010046

MOV
JSR

#120000,R0
PC, $UPPAR

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
13.5
LOW BYTE PARITY RAM TEST

1855
1856
1857
1858
1859 007472

Thursday 03-Apr-86 14:11

Page 51

:Test high byte parity RAM
HIPAR:
sokkkkkkkkkkkkkkkkkkkkkkkkkkkk
kb kb kkkkkk ko
kR
k&

;*TEST 3.6

HIGH BYTE PARITY RAM TEST

Ts‘;““‘t“‘tttttt““t‘t‘tt‘#‘t‘t#‘#t“t.‘tt“t‘#‘...“‘.ll‘.‘.

007472
1860 007472
1861 007500
1862
1863 007504
1864 007506
1865 007510
1866 007514
1867 007520
1868
1869 007524
1870
1871 007526

1872 007530
1873 007532
1874 007536
1875 007540
1876 007544
1877 007546
1878 007552
1879 007554
1880 007560
007566
007574
1881 007576
1882 007602
007610
007616

1883 007620

012737
004737

007576
010450

MOV

177672

#254 ,3#UDPARS

JSR

PC, PROMLO

INC

MOV
MOV

#4096. ,R1
#120001,R2

;Use R1 as a counter
'Pomt to high byte

105722

1518

(R2)+

Ensun that it is zero (DATI)

005202
077105

INC
S0B

R2
R1,15$

Hdte R2 point to next hi
control

ag)

;(2)?0.(“)

:Hove window up 4 kwords

012701
012702
112712

023714
001403
062714
000761
001422
013706
012737
012737
104054
013706
012737
012737
104055
005037

10%:

010000
120001
000001

15%:

000200

26§ :

010514
010712
010704

177676
010762
010626
177672

044746
044752

MOVB

#1,(R2)

044746
044752

JSR

PC,CHEKSUM

MOV
MOV

3UDPAR7,
SP
#CKSUM

BEQ

locatlons (DATO)

and increment R2 b

;
s\

;; >> ERROR 54, CHECKSUM ERROR

#FATALB,ESADR

;; >> ERROR S5,

ERROR+55

S%UDPARS

byte

PARS = Hi RAM

#FATALR,ESADR

ERROR+54
MOV
868UDPAR7,
SP
MOV
SPRAME ,EMADR

CLR

parity

274

MOV

27%:

Hnte zeros at all high
b

TOPMEM, (R4)
26$

MOV

254:

;INIT KIPARS AND R1 ACCORDINGLY

154

cHP
BEQ

005650

177676

;FIND LAST DIAGNOSTIC ADDRESS AND

i3//

33 \\
13//

‘mgh byte data RAM should = 00000001, high byte parity RAM should = 0
sChock that writing ones ata low address in the high byte parity RAM
adoeo not affect a memory cell at a higher address

Rc.duw»/wtc/nrtem.t?%kha
1
1894 007624

ty RAM locations
;otortmg at lowest pl:yucol RAM m’hbyte
m i3
address 1777777

012700
004737

120001
010046

MOV

JSR

#120001,RO

PC, $UPPAR

byte

RAMs should be all ones, high byte data RAMs should = -1

BRRSY ementn
o1 7600, Rs Shoc1a = 20001 "
Choekth-turt-

:doeo Arag

zero
at a high address
in the high byte parity RAM

5 o Do g B (s byi
Do g

:Rudone/nogttcluritcm-ta&hidnmwitymloutim

13.6

BYTE PARITY RAM TEST

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

004737

7674

’
3

1909

;High

1910

Page S2

MOV

#140001
R0

JSR

byte

PC, $DNPAR
ity

RAMs should
= 0, hi

e data RAM should
= 1

one
at a high address
the high byte
ity RAM
:doeo not affo::t.:‘-ory
ecll.a a lower in;ddns
‘g .
‘Ched:thotur't'

1915

;M zero/

1516

012700
004737

140001
007674

write one starting

Lo o-t
Dl

iHigh

byte perity RAM should = all ones, high byte data RAM should be all ones.

MOV
JSR

£140001 ,RO
PC, $SDNPAR

at physical address 1777777

o
;KIPARS

should = 0. R2 should = 120001

;Check that writing zeros at a low address in the hi

ity

;does not affect :'my cell at a higher address S e
s

;Read ones/

19%3 007654 012700 120001
1931 007660

-86 14:11

KIPARS ehoula = 0. RS chould - 130008 °Y*

1912
# igfi

1918 007644
1919 007650
1920
1921

for

;starting at physical address 1777777 working down to low RAM.1.

1906 007634 012700 140001

%gg; 007640

Thursday 03-

004737

010046

;starting at

’
;

MOV

JSR

write zeros at 256k addresses

ical address 1 working up to address 1777777.

#120001,R0

PC, $UPPAR

:STARTING BYTE

;1At this point the fu\ctimlit‘ of 256k words of on board RAM
;has been demonstrated. Applicati
can now be executed from RAM,

i9§g 007664 013706 177676
9

1938 007670

000137

011232

;and trap and interrupt vectors can

initialized.

;

3GET OLD STACK CONTENTS

MOV
JHP

S#UDPART , SP

ENDRAM

:BAIL OUT

RAM

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
73.6
HIGH BYTE PARITY RAM TEST

1940
1941

Thursday 03-Apr-86 14:11

Page 53

1
-

;SUBROUTINE TO SET / CLEAR HIGH OR LOW BYTE PARITY RAM AND TO CHECK FOR

;PARITY ERRORS STARTING AT HIGH RAM,

013714
012701

005650
010000

177672

000002

;Anticlijgte Eorit

;FIND

;Initialize R1

;a: rlaz = starting address
ow byte
H
;Read
Move

;:Is KIPARS = low RAM

4%:

010024
010514

177672

177676
010712
177676
010762
010640

044746
044752

S0UDPAR
, SP
?
EMADR

cgm.i.esnn
*

010704

044746
044752

¥ 'gg':gs

140000

000002

JOPAR?

error

TIC ADDRESS AND

;Init KIPARS to top of memory

v3%258

010450

T D

;INIT KIPARS AND R1 ACCORDINGLY

000200

428FERLEGE2aRREEGE2TE
2
=

010024
010450

012737
004737

949

1950 007674
1951 007702
1952

RO = STARTING ADDRESS

R4 = KIPARS

ENTRY PARAMETERS:

, SP
EMADR

cg;mi.esm

iset R2= start
H

H
3

;Return to 3¢ on parity error

KXJ11-CA FUNCTIONAL TEST

13.6

MACRO Y05.02

HIGH BYTE PARITY RAM TEST

1978

1979
133‘1’

0
N S
DN
;SUBROUTINE $UPPAR

1982

Thursday 03-Apr-26 14:11

Page 54

A A

W 0

;SUBROUTINE TO SET 7/ CLEAR HIGH OR LOW BYTE PARITY RAM AND TO CHECK FOR

igz

;PARITY ERRORS STARTING AT LOW RAM.

1985

.ENTRY PARAMETERS:

RO = ADDRESS OF STARTING BYTE

1988
1989
1990
1991
1992
1993
1994

;ON EXIT:
:
]
:
H
H
3

RO = ADDRESS OF STARTING BYTE
R1=0
R2 = R0+20000
R3 = ADDRESS OF LOWEST RAM
R4 = KIPARS
R5 = NOT AFFECTED
KIPARS = 17600

iggg

1995 010046

012737

010154

1996 010054 004737 010450

1997

177672

$UPPAR: MOV

PC.P*OI.O

:Antncugg g.rit

BIS8
BR
MOV
MOV
NEGB

RO,R2
15¢
#4096. ,R1
RO,R2
(R2)

R2
R2
R1,15¢

254
#200,(R4)
10%
PC

150002
000403
012701
010002
105412

2004 010074
2005 010076
2006 010100

005202

077104

INC
INC
S0B

2008 010106
2009 010110
2010 010114
2011 010116

001403
062714
000763
004737

BEQ
ADD
BR
JSR

010000

10%:

15%:

2007 010102 023714 005650
010514

g
2814 OIO& 000207
2015 0 Olgg
2016 0101

013706
012737

010152
2017 010154
2018 010160

104060
013706
012737

010174

104061

010144

012737

cHP

000200

177676
010712

254:
22%:

010704

177676
010762

010166 012737 010640

204 :

R4 = KIPARS

JSR

1998 010060
1999 010062
2000 010064
2001 010070
2002 010072

2019
2020
2021

AT S

B
RTS

MOV
MOV

#20$ , 3#UDPARS

;INIT KIPARS AND R1 ACCORDINGLY
;Use R1 as a counter

sRcut R2 to starting byte
;:Read/modify/write ones to
;

#FATALR,ESADR

MOV

OFATAL1,ESADR

ERROR +60
;
MOV
S0UDPART, SP
MOV
#PRAME
ERROR+61

RAM

write
all ones
to low byte data RAM

;Have we hit top yet?

;Move window up 4 kwords

Boows

MOV

A
ity

;Incr“nt R2 by two to mxt ,high or low
.byte dupondmg on what we're testing.
;Loop control

TOPMEM, (R4)

+SP
EMADR

error

;FINDLAST D AGHJ!TIC ADDRESS AND

i3\

;; >> ERROR 60, CHECKSUM ERROR

33//

33 \\

:
;Comes here on a parity error

;; >> ERROR 61,
s3//

:
#
;possible causes of this error
;are bad address decoder, bad
;MDAL, interaction between RAM cells.

KXJ11-CA FUNCTIONAL TEST

13.6

MACRO Y05.02
HIGH BYTE PARITY RAM TEST

DR
IR

EErAT=~,.

Thursday 03-Apr-86 14:11

Page 55

;SUBROUTINE TO READ / MODIFY / WRITS ALL MEMORY LOCATIONS
;STARTING AT LOW RAM.

:EN‘I’RY PARAMETERS :

RO = EXPECTED DATA AFTER READ/ MOD/ WRITE

177676

011006
010634

e
B

010310

010312
2034 010312

000207

044746
044752

MOV

30030$

3PUDPAR7
, SP
#CKSUM

#FATALR,ESADR

ERROR+62

30028%: MOV

MOV

SPUDPAR7 , SP

ORAME,EMADR

OFATALW.ESADR

ERROR+63

300304:

RTS

MOV
MOV

;Move window up 4 kwords

33 \\

;; >> ERROR 62, CHECKSUM ERROR

BEQ

#200,(R4)

177676
010712
010704

;; >> ERROR 63,

is//

;possible causes of this error
;are bad address decoder, bad
;MO7L, interaction between RAM cells.

Y P

010514

;Have we h??top yet?

300294

contro

ADD

TOPMEM, (R4)

BEQ

; Branch It-o orrort

3002

cHP

005650

32028’ "

;Use R1 as counter
;Reset R2 to 120000
;Read / modify / write

300274
#4096. ,R1
#120000,R2
(R2)

M LS

BR
30026%: MOV
MOV
30027%: COM

;FIND LAST DIAGNOSTIC ADDRESS AND
;INIT KIPARS AND R1 ACCORDINGLY

010000
120000

PC.PROMLO

010202
010204
010210
010214
010216
010220

JSR

$UPWRD:

010450

2033 010176
010176

R4 = KIPARS

;

KXJ11-CA FUNCTIONAL TEST

3.6

MACRO Y05.02

HIGH BYTE PARITY RAM TEST

Thursday 03-Apr-86 14:11

2036

2040

:SUBROUTINE TO READ / MODIFY / WRITE ALL MEMORY LOCATIONS

2043
2044

:ENTRY PARAMETERS:
:

2046 010314

$DNMRD:

2037
223333

5
4
:SUBROUTINE $DNWRD

22&%

0 0 D

A 5 G

sSTARTING AT TOP OF MEMORY

2045

010314
010320
010324
010330
010334
010336
010340

010342
010344

010350
010352
010354
010360

010364
010366

004737
013714
012701
012702
005142
020012
001031

077104
162714

010450
005650
010000
140000

JSR
MOV
30031$: MOV
MOV
30032$: COM
P
S

000200

SuB

020314
001364
004737 010450
012702 140000
005142
020012

8%8373 80 o&s

010878

010400
010402
010406
010414
o1
o1
010430
010436
010444
10446

2047 010446

004787 010514

001422
013706 177676
012737 010712 044746
012737 010704 044752
104064
013706 177676
012737 011006 044746
012737 010634 044752
104065
000207

598

15¢:

RO = EXPECTED DATA AFJER READ/ MOD/ WRITE
R4 = KIPARS

PC,PROMLO
TOPMEM, (R4)
#4096. .R1
#140000,R2
-(R2)
RO, (R2)
30033$
R1,300324
#200,(R4)

oP
BNE
JSR
MGV

R3,(R4)
sob%l
PC
0
#140000,R2

BNE

goém

COM
o

_iLoop control

;Move window down 4 kwords

:Is KIPARS = low RAM
;
;
;

-(R2)
RO, (R2)

BEQ
30034
MOV
FMDPARY
, SP
MOV
OCKSUM,EMADR
MOV #FATALR,ESADR
ERROR +64
30033%: MOV
sP
MOV
,EMADR
MOV
OFATALM,ESADR
ERROR+65
300345:
RTS

;FIND LAST DIAGNOSTIC ADDRESS AND
:INIT KIPARS AND R1 ACCORDINGLY
:Init KIPARS to top of memory
:Initialize R1
:Set R2 = 140000
iRend / modify / write (DATIO)
iTeac (DATI)
:Should be zeros

;
;:\\

;; >> ERROR 64, CHECKSUM ERROR
i
53\
;; >> ERROR 65,

(55

MACRO Y05.02
KAiul1-CA FUNCTIONAL TEST
HIGH BY1EZ PARITY RAM TLST
73.6

Thursdey 03-Apr-86 14:11

Page 57

2049

2051
2032

o -

;SUBROUTINE TO DETERMINE WHERE LAST DIAGNOSTIC ADDRESS IS SO THAT
;DIAGNOSTIC WILL NOT GET BLOWN AWAY BY RAM TEST

2055

:ENTRYPM:M-KIP’RS
;ON EXIT: KIPARS AND R3 WILL CONTAIN ADDRESS OF LOW RAM
051510
017777

177772
172352

PROMLO: MOV

SLASTAM -2 R2

ncmh.az

;GET OFFSET

MOV
BIC

R2,R%Z
17777 ,83

ASH
MOV
MOV
SuB
ASR

#-6,R3
"
R2,R1
R1

RTS

BIC

ADD

#120000,R2

:
;:GET PAGE BITS

;SHIFT IT FOR PAR ALIGNMENT
;PAGE WHERE TOP OF PROGRAM IS
;NOW FIGURE HOW MANY BYTES WE ARE
; FROM THE TOP OF THE PAGE
;NUMBER OF WORDS REMAINING IN 8KB BLK

;Return.

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
13.6
HIGH BYTE PARITY RAM TEST

2072
2073
2074

;2 WILL HOLD SUM IGNORING CARRIES

P S

B L T

RTS

R2
SLASTAD,R3
R1
(R1)+,R2
R3,R1
13
R2,3#177666

1%:

CLR
MOV
CLR
ADD
cHP
BGE
cHP

000207

CHEXSUM:

005002
012703 051506
005001
062102
020301
002375
020237 177666

2085 010536

;CORRUPTED BY ACTIVITY IN OTHER AREAS OF RAM.

2077 010514

Page 58

D
—
;SUBROUTINE TO OBTAIN THE CHECK SUM OF THE DIAGNOSTIC
;RESIDENT IN RAM TO DETERMINE IF ANY LOCATIONS HAVE BEEN

228;2

2078 010514
2079 010516
2080 010522
2081 010524
2082 010526
2083 010530
2084 010532

Thursday 03-Apr-86 14:11

KXJ11-CA FUNCTIONAL TEST

3.6

MACRO Y05.02

HIGH BYTE PARITY RAM TEST

Thursday
03-Apr-86 14:11

Page

—_

2087

2088
2039

2090 010540
2091 010546
2092 010550
2093 010556

042737
011616
016666
005037

0500002
000002
177572

2095 010564
2096 010570

013706
011537

177676
001122

2098
<099 010602
010610
0616
2100 010620
2101 010624
2l

000002

012737
012737
104066
012716
000002

011030
011110

177540

frp.4: BIC

MOV
MOV

SP.RS
QeOPART.SP

‘TAVE CONTENTS OF THE STACK
iSET NEU STACK

001122

SUB

#2,38$BDADR

;CALCULATE ADDRESS AT WHICH TIME OUT OCCURRED.

044746
044752

MOV

#BUSTO,EMADR

CLR

MOV

2183 010626 162702 000001

FATALB: SUB

e
2132 011110
2133 011114
gl
011116

004737
104401
013746
104403
~ 002
000
013746
104403
005
001
012716
000207
015
015
015
015
015
101

~OV
JSR
TYPE
MOV

TYPOS
BYTE
BYTE

)
001122

MOV

TYPOS
BYTE
BYTE

FATALR: %

011232
012
012
012
012
012
126

]

010237
011437

FATALM: SUB
FATALL: CLR
MOV

000002
177572
001122
001120
011120
011063
001120

ERNEE

2121 010710
2122 010712
2123 010733
2124 010762
2125 011006
2126 011030
227 01063

000402

(RS),3#$BDADR

. AND ENSURE THAT STACK PARITY IS OK T00
. WE DON'T WANT POSSIBLE BAD PARITY

:TURN OFF MW

::AvC PC AT TIME OF TRAP TO 4
;;:\\

#TOEH,ESADR

:: >> ERROR 66, RAM TIMED OUT

SENDRAM,(SP)

;ALTER RETURN ADDRESS

ERROR+66

3‘1"1’

162702
005037

sDISABLE WRITING WRONG PARITY JUST IN CASE

(SP),(SP)
2(5P),2(5P)

011232

21% 010632
21
2106 010634
2107 010640
2108 010644
2109 010650
2110 010654
2111 010660
2112 010664
2113 010670
2114 010672
2115 010673
2116 010674
2117 010700
2118 010702
2119 010703
2120 010704

22, 38K2CSRY

MOV
MOV

IS144

#1,R2

;GET ADDRESS OF FAILING BYTE

#2,R2
FHMRO
R2,3#$BDADR

:GET ADDRESS OF FAILING WORD
:MMU OFF

FATAL1

;MOVE FAILING VIRTUAL LOCATION TO $BDADR
:MOVE CONTENTS OF KIPARS TO $GDADR

(R4),3¢$GDADR
PC,PACONV
,RAMTXT
@#$GDADR, -(SP)
2
0

;TYPE 2 DIGITS
;SUPPRESS LEADING ZEROS

5
1

;TYPE S DIGITS
;PRINT LEADING ZEROS

#$BDADR, -(SP)

g?mm.(sn

;ALTER RETURN ADDRESS

CKSUM:

<CR><LF>/CHECKSUM ERROR/

PRAME:
RAME:

.AS
.ASCIZ

<CR><LF>/PARITY RAM ERROR /
<CR><LF>/RAM TEST ERROR /

PARE :

<CR><LF>/PARITY CIRCUIT ERROR/

BUSTO:
.ASCIZ
<CR><LF>/BUS TIME OUT AT ADDRESS /
R%XT: .ASCIZ /AT PHYSICAL ADDRESS /

{BUS TIME-OUT ERROR HANDLER

013746
104402
000207

001122

foEM:

MOV

99$BDADR,-(SP) ;LOAD FAILING VIRTUAL ADDRESS

RTS =

TYPOC

iTYPE IT

IRECONSTRUCT THE FAILING PHYSICAL ADDRESS

iON ENTRY:

SS VIRTUAL ADDRESS.
OF THE FAILING
$BDADR CONTAINS THE ADDRE

ioN BXIT:

$BDADR CONTAINS THE LOW FIVE DIGITS OF THE FATLING PHYSICAL ADR

SGOADR CONTAINS THE VALUE IN KIPARS

5147 011132
5148 011134
5149 011136
5150 011144
5151 011152

006100
077104
042737
063737
042737

5153 011164
5183 011166
2155 011172
2156

006100
010037
000207

000006

5146 011126 006337 001120
160000
001120
100000

5152 011160 006337 001120
001120

$GDADR CONTAINS THE HIGH FIVE DIGITS OF THE FAILING PHYSICAL AOR

PACONV: CLR
MOV

RO
%6.R1

1%:

001122
001129
001122

ASL

4GDADR

ROL
S0B ~
BIC
ADD
BIC

RO
RI1.1$
#tC17777.99$BDADR
3#$GDADR.@¢$BDADR
#BIT15,38$BDADR

ROL
MOV

RO
RO,304GDADR

ASL

@¢$GDADR

:ROTATE PAGE NUMBER
:.. INTO RO
.

:MAKE BIT 15 ZERO

: >FOR OCTAL PRINT OUT FORMAT
o

eme—

005000
012701

S S T AT S ST SR

5144 011120
5145 011122

Page

2142

Thursday 03-Apr-86 14:11

gy B

MACRO Y05.02

HIGH BYTE PARITY RAM TEST

JS
3.6

KXJ11-CA FUNCTIONAL TEST

IK5

KXJ11-CA FUNCTIONAL TEST

3.6

MACRO Y05.02

HIGH BYTE PARITY RAM TEST

Thursday 03-Apr-86 14:11

2158

gigg

-Parnty error handler

2159

ee
ceceeceeeeeaaa

2162 011174 005737 177672

émem: ST

2163

3#UDPARS

.Usmg UDPARS as indicator of expected
.or unexpected parity error.

2164

.0- expected

2165

i-1= memcted

2166

2167 011200

2168 011202

2169 01121L0
2170 0112
2171 011216
2172 011222

2173
2174 011230

gflg

001410

022737
001002
000137
013716
052766

177777

002416
177672
000002

BEQ

177672

000002

cHP

2%:
1$:

BNE
JMP
MOV
BIS

#-1,3#UDPARS
2%
IHUNXTRP
a#UDPARS, (SP)
#2,2(SP)

;Is UDPARS = -17?

;Go to unexpected trap routine
iNew return address
;Set the V bit in new psw to indicate
; a parity error

RTI

;Before going to the next test restore the stack.

2177 011232
2178 011236
2179 011242

005037
005037
012737

177572
002426
000006

000004

ENDRAM: CLR
CLR
MOV

2181 011256

012737

000004

000116

MOV

2185 011272
2184 011274
2185 011302
2186 011304

001004
052737
000402
005037

011310

000400

2180 011250 012737 000116 000114

MOV

2182 011264 032737 000001 001174

2187 011310

.other non-zero = address to return to.

000001
177540

BIT

177540
15:

24:

MMMRO
TRAPQX

;OFF THE MMV
;
;iRestore trap vector

#107,a3#116

01i6.80114

;Furthur parity errors are not expected.

#BIT00, $PASS

BNE
BIS
BR
CLR

14
#BIT00,3#K2CSRJ
24
39K2CSRJ

1574

;IS PASS COUNTER EVEN
;ENABLE PARITY ERROR DETECTION ON EVEN
; PASSES
;DISABLE PARITY ERROR DETECTION
33

Thursday 03-Apr-86 14:11

:SLU1K2. MAC
s asstat s 2

23-0CT-85

22 22 222 222 2 8

;tTEST 4

011334
011340
011344
011346

001100

177777
044742

SCOPE

MOV

CLR
BR

012506
011346

22222 22 22 22 222t

ao1 TRAPax
EMPRE
300364

30035%: JMP
1sT5
30036$: TSNAME, .+4

103
300374

011402

a gt

.ASCIZ
-EVEN

300374
\

it e

eI
et

sysys

7ST4:

2122 2

-§

000604
012706
012737
005037
000402
000137
104415
000416

a s

e aa s 22 22222222 22

011312
011314

CONSOLE SERIAL LINE DC319

TR T

TRTR

2189
2190

Page 62

CTEETEC

MACRO Y05.02
KxJ11-CA FUNCTIONAL TEST
13.6
HIGH BYTE PARITY RAM TEST

SKIP NEXT
BYPASS.
PRINT TEST NUMBER AND NAME..

. AND

C(NSG.ESERIALLI'EDC

THE ASCII.

TEST THAT THE CONSOLE PORT INTERRUPTS AS ADVERTISED.

2
2197 011402
2198 011410
2199 011412
2200 011420
2201 011422

2202 011426
2205 011430
2206 011432
011432

2207 011440
2208 011444
2209 011450
2210 011454
2211
22l

#%% NOTE: LOOP OPTIONS (SWR<9> AND SWR<8>) ARE DISALLOWED,
LEST WE LOSE CONTACT WITH THE CONSOLE TTY:.

: k&
032777

000400

167530

000177

167520

BIT
BEQ
BIT
BEQ

012436

TYPE

GTSWR

o
012737
013705

012704
004737
000401

011456

011516

001144
000060

001174

2216 011476
2217 011502

011750

MOV
CALL
B8R
001206

10s:

2218

011504
2219 011506
2220 011512
2221
222
222
2224

011514
011516
011522

012222

104071
105037
000137

001103
012504

,CANT

1ST4

001160

011526

000001

2214 011470
2215 011474

#8IT8,aSWR
1$
#177,8SWR
13

38:

STKVEC,R4
2¢

104
$PASS
34
DC.RCV
a$

ERROR+70

CALL

DC.DAT

ERROR+71
CLRB
$ERFLG

JMP

LOOP-ON-TEST NOT PERMITTED.
GET ANOTHER SWITCH.

; sESCAPE TO 3¢ ON ERROR
: RCSR

DC.XMT

BITE . otSOSENV

BEQ
75T
BNE
CALL
BR

SWR<8> SET ??
BR IF NOT.
SWR<6:0> CLEAR ?77?
BR IF SO

ENDSLU

: \\

':l;) ERROR 67, TRANSMIT INTERRUPT ERROR

| IS THIS THE FIRST PASS

' IF NOT THEN DON'T DO THE NEXT TESTS.
UTE
RCVR INTERRUPTS...
! EXEC
. AND RETURN HERE IF OK.

?: »mm.ammmvm
; EXECUTE DATA TESTS
AND RETURN HERE

2:/;» ERROR 71, CONSOLE DATA TEST ERROR
SWR<9> IN NEXT .SCOPE.
:'D

P AND

THATS ALL>

MACRO Y05.02
l{:Jll-CA FUNCTIONAL TEST
CONSOLE SERIAL LINE DC319

Page 63

ON ENTRY, (RS) = RCSR AND (R4) = VECTOR.
RETURN TO CALL+2 IF OK, CALL+4 IF ERROR.

2226
2227

Thursday 03-Apr-86 14:11

%% TRANSMITTER #%%

TCS=
TBUF =
TVEC=
TPRI=

044742

011614
011622

14:

TSTB

BIS
240

047225
045206

044746
044752

2%:

#SLIX,EMPRE

rvecdu) -(SP)

mx(m) -(SP)
02# TVEC( R4)
#PR4, TPRI(RA)

#100, TCSCRS)

RS §§§3853§§ B s§§§33

2243 011550
2244 01
2245 011564
2246 011570
2247 011572
2248 011600
2249 011602
2250 011604
2251 011606

DC.XMT:

g 3a33ad g

CHECK THAT THE XMTR INTERRUPTS THRU VECTOR (R4) AT LEVEL 4
; AND THAT THE INTERRUPT ACKNOWLEDGE DROPS THE REQUEST.

(sp)o.(sp)o

#5L 12, EMADR

#NOSIG, ESADR

12’252 011624

011662
000000

047265
045206

3$:
044746
044752

243, TVEC(RS)
#PRO

#SLI3,EMADR

#NOSIG, ESADR
64

011702
011676

047314
045206

4%:

044746
044752

54:

2268

011722

9 011730
0 011736
2271 011742
2272 011746

000100

6$:

#5% ,TVEC(R4)
#.+6,(5P)

.SET INTERRUPT ENABLE.

INTERR!P;OSI'ND BE HELD OFF..

) SETERR(RFESSAGE
i:...AND SIGNATURE POINTERS..
::...ERROR
WILL BE CALLED LATER.
; GET OUT "INT LEVEL INCORRECT".

;CHANGE THE VECTOR.
; LOMER CPU PRIORITY.
; INTERRUPT SHOULD HAVE COME IN.
i3 SETM'%S"SEAGE
:3...AND SIGNA
POINTERS.
..

BE CALLED LATER.
WILL RROR
35...E
; GET OUT “INT NOT RECEIVED".

s INT REC'D, CHANGE THE VECTOR.

E O...
CPU PRI
; RESTOR
ANOTHER.
OULD
NOT GET
3...SH

gSL%
+,(SP)

msxé
ESADR

:3...AND SIGNATURE POINTERS...
.ERROR WILL BE CALLED LATER.

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
T4
CONSOLE SERIAL LINE DC319

Thursday 03-Apr-86 14:11

Page 64

#2$ ,RVEC(R4)
#PR4,RPRI(R4)

#4,TCSCRS)

14:

2303
2304 012074
2305 012102
2306 012106
2307 012110

047225
045206

044746
044752

(SP)+,(SP)+

#SLI2,EMADR

#NOSIG,ESADR

047265
045206

3%:
044746
044752

94% ,RVEC(R4)

#PRO

#SLI3, EMADR

#NOSIG, ESADR
64

012150
012144

047314
045206

2317

31 013176
2330 012%0‘

2321 012210
2322 012214
2323 012220
2324

000100

4%:

044746

S¢:

044752

6%:
T74:

...CBUT DON'T WAIT FOREVER)...
.. .AND OPEN "MAINT" SWITCH.
NOW, SET RCVR INTERRUPT ENABLE.

INTERRUPT SHOULD
BE HELD OFF...

012130
000000

... TRANSMIT A NULL CHARACTER...
...WAIT 'TIL RCVR GETS IT...

IF SO.
.BR
T WASN'T.
..

2%:

RO
RO, TBUF(RS)
RCS(RS)
.+4
RO,1$
#4,TCS(RS)
#100,RCS(RS)

012062
012070
2302 012072

#PR4

RPRICR4).-(SP)

000004
000100

2299 012050
2300 012052
2301 012054

#SLIR,EMPRE

RVEC(R4),-(SP)

22
2284 011750
2285 011756
2286 011762
2287 011766
2288 011772
2289 012000
2290 012006
2291 012014
2292 012016

3 *:f:g42330ma33aes
gp°
R

8 3388

+s% RECEIVER #%x
NOW USE THE "MAINT” SWITCH
EXPECT INTERRUPTS THRU VECTOR (

i3 SET ERROR MESSAGE...
i:...AND SIGNATURE POINTERS...
:i...ERROR
WILL BE CALLED LATER.
; GET OUT “INT LEVEL INCORRECT".

; CHANGE VECTOR...
i . AND LOWER CPU PRIORITY

COME IN

i1.7.AND SIGNATURE POINTERS
gt

WILL BE CALLED LATER

#54% ,RVEC(R4)
#.+6,(SP)

(SP)+,(SP)+
#5L14 ,EMADR
#NOSIG,ESADR
#2,4(SP)

2100, RCSCRS)
RBUF(RS),RO

(sp)o.mfixgm
(SP)+.RVEC(R4)

;RETURN FROM RECEIVER INTERRUPT TESTS

MACRO Y05.02

CONSOLE SERIAL LINE DC319

;

535
2328

‘
; NOTE:

223!302

2331 012222
2332 012226
2333 012232

005037
105237
123727

2334 012240 103403

044742
037625
037625

;

000177

SLIDE A BIT THRU THE INTERNAL (MAINT) LOOP.

112737

000040

DC.DAT: CLR
INCB
CMPB

037625

2337 012256 012700 037600

2339 012264 105737 177564

168:

2341 012272
2342 012276

2338 012262

112001

2340 012270 100375

2343 012302
2345 012310
2346 012312
2347 012316
2348 012320
2349 012324
350 012
2344 012304

2381 012330

2352

105037
105737

177566
177560

15¢:

105737

177562

17¢:

100375
001372
005737
100762
105737
100767
110165

177562
177560
000006

10:

012334 105765 000000

2%:

2353 012340 100406
2354 012
077204
gg S 012344 000413
zg 7 012346

IF THERE'S A TERMINAL ATTACHED

BLO

EMPRE
VARC
VARC,#177

BIS

84,
ch(RS)

T1STB

77554
m

MOVB

MOV

MOVB

BPL

CLRB
1STB

BPL
T1STB
BNE
TST
BMI
1ST8
BMI
CLR

MOVB

crmoao

28177562

;CLEAR OUT RECEIVER BUFFER

15¢
15$
39177562
16$
88177560
17%
R2

R1,TBUF(RS)

RCSCRS)

MOVE

(RO)+.R1

01533% 105765 000000

TST8

ncfigg)

cHPB

001765

2322 012374 010137 001124
2367 012400 010237 0011
012404 012737 047356
012412

012420

012737

000240

044746

7%:

045326 044752

BEQ

MOV

MOV
MOV

MOV

NOP

;ANY ERRORS IN RX BUFFER?

:ISBU’FERBPTYW?
i. .AND

KEEP-ALIVE
TIMER

64
R2,2$
7%

43:

2323 0123?‘ 120102

..RESET IT 10 (SPACE>

;FLUSH OUT ANY ERRORS

TSTB

BMI
S0B
B8R

NO PREFIX.
m THE_VARIABLE CHARACTER...
.'TIL IT REACHES <DEL»>...

88177566
@#177560

112001

2364 012372

YOU'LL
SEE GARBAGE

CHARACTERS ON THE SCREEN -- DON‘'T WORRY ABOUT IT !!

012250 052765 000004 000004 1%

2335 012242

Page 65

“

2325

Thursday 03-Apr-"¢ 13:7.

.cu.l.n“.t.n.l‘o

xx.m CA FUNCTIONAL TEST

R1, $GDDAT

R2, $BDDAT
EMADR
OEF4,ESADR

: DATA m. SAVE EXP'D...

107 AND TAKE SKIP

um'-:a

ggg'g 012422 062716 000002

ADD

2371 01
042765 000004 000004 8%
2 7% 012434 000207
gg;‘ 012436
200
114
117 CANT:

BIC
#4,TCS(RS)
; DONE, CLEAR MAINT SWITCH...
RETURN
AND
.ASCIZ <CRLF>\LOOP ON CONSOLE TEST NOT PERMITTED\<CRLF>

2375 012504

ENDSLY:

012504 000400

#2,(SP)

OK.
OP
; LOIF

1875

wm—

Cé

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
15
LINE CLOCK (BEVNT) INTERRUPT

2377

Thursday 03-Apr-86 14:11

et dasdananas s

3 *TEST S

22222222 2222

Page 66

2t dd 222 2

TSI

ISR

LINE CLOCK (BEVNT) INTERRUPT

b tttttttontnnnaes
s 2 2222222 2212222 2122222 S22 22TST SR
Y Y

044742

CLR
BR
300384 - JHP

013026
012542

#STACK, SP

#-1, TRAPAX

EMPRE
300394
1576

i3 SET A CLEAN STACK.
;3 DISMISS BUS-ERRORS.

300394 : gflfli. .+4
114

300404:

.ASCIZ
.EVEN

SCOPE
MOV
MOV

001100

000004
012706
012737
005037
000402
000137
104415

30040¢
;...AND SKIP OVER THE ASCII.
\ LINE CLOCK (BEVNT) INTERRUPT\

:LI’ECLGJ(ISJ’PEREDFRMC(NS&E&ARTWO-BUSBEVNT

; VERIFY THAT WE CAN ENABLE/DISABLE THE CLOCK ($CLK<6>),
; AND THAT INTERRUPTS OCCUR AT BR LEVEL 6, THRU VECTOR 100.

106427
005000
005001
052715
000240

012630
000300

001110

10%:

000100

RTI

044746
044752

2%:

MOV
MTPS
CLR
CLR
BIS
NOP
BVS
S0B

#.+6, $LPERR
RO
R1
#8176, (RS)
53
RO,.

*naw

2415 012750

012737

MOV

044752

34:

000100

4%:

BR
MOV
ST
BMI
BIC
S08
ST
BEQ

MOV

CKER.
CLOCK INTERRUPT.
NXM.

250 MSEC, INTERRUPT...

EMADR

ONOSIG,ESADR

as
¢-1,R1
R1
jos
#8176, (RS)
RO,.
R1
6%

9CLK4,EMADR

MASKED AT THIS LEVEL.

> ERROR 72, CLOCK INTERRUPT LEVEL INCORRECT
LOWER
CPU TO PRI 5.

F ]

ERROR+73

177777

044746

i, o0n

044746

a&m.

#PR6

ERROR+
MTPS
4

DEC
046405
045206

: ON BEVNT, TICK R1 AND RETURN.

046337

; SET VECTOR.

ggm 2

14:

$CLK,RS
#15,BEVNT
10$

005201

000002

012737

MOV
MOV
BR

000100

<3,& g
“
33

012622

2391 012630

001332
012616

w28
K

2385 012614
2386
2387 012616
2388 012620
2389
2390 012622

013705
012737
000402

...AND GIVE US A FEW TICKS (MORE THAN 1).
H

::/;» ERROR 73, CLOCK DIDN'T INTERRUPT
P'SKIP OVER THE SYNC CODE.
; NOW SYNC-UP ON THE NEXT TICK...
3 ...AND

TURN IT OFF,

; DELAY ONCE MORE...

; .. .CLOCK

; BR IF SO.
#s\\

BE SHUT OFF.

012756
012764
2416 012766
2417
2418 012770
2419 012774
013002
013010
2420 013012
2421 013020
2422 013024
2424

012737
104074
000411

045206

010537
012737
012737
104075
012737
106427

001120
046303
045230

Thursday 03-Apr-86 14:11

MOV

044752

002542
000000

044746
044752

000100

S5%:

Hiisdssd

QOSIG ESADR

i: >> ERROR
74, CAN'T
SHUT IT OFF

ERROR+7

MOV
MOV

MOV

6%:

6‘

RS, $GDADR
#CLK1,EMADR

; N
3\

#LA16,ESADR

ERROR+75
MOV
#DISMISS,BEVNT
MTPS
#PRO
BR
1STé

;#TEST 6

Page 67

s 2222 22 2 2 2222 22222

>> ERROR
75, BUS ERROR ON CLOCK ADDRESS

ss//
; RESET CLOCK VECTOR.
; LOMER CPU TO O..
::...AND FN.L“RU

tad ittt

DMA FACILITY AMZ8016

Sttt

IIsessssy

fs;;“‘tmtttt“tt.‘t‘t‘t”‘t‘tt‘tt‘t‘tttt.‘t.t‘ttt.tt‘t‘tt"t

000340
001100
177777
044742
000400

177524

BIT

002426

166054

166232

300414

015756
013110
013110

040

BEQ
MOV
MOV
CLR
8IT
BNE
'T‘g
BVC

#340,80K2CSRC

300424 TINAME, .+4
.ASCIZ
.EVEN

104

013140

;; IS THE ID SWITCH IN POSITIONS O OR 1?

30041 $
#STACK, SP
#-1, TRAPAX
EMPRE
#8178, 3SWR
300424
$DMA
300424
1ST7

:: SKIP THIS TEST IF IT IS
:: SET A CLEAN STACK.
:; DISMISS BUS-ERRORS.
:: CLEAR ERROR PREFIX.
:; FORCED ENTRY SELECTED 2?
;3 BR IF SO.
:: CHECK FOR VALID $DMA.
i3 SKIP NEXT IF OK.

30043¢
\ DMA FACILITY

:: BYPASS.
;3 PRINT TEST NUMBER AND NAME...
3 f:\) SKIP OVER THE ASCII.

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
15
LINE CLOCK (BEVNT) INTERRUPT

| AMZB016 DMA CONTROLLER
HAS 46. REGISTERS.

| RESET THE CHIP AND VERIFY THAT ALL REGISTERS RESPOND.
H

000135
000102
000103
000240
000241

; MR default setting

SSRgfi- 103
SCCCH1= 240
SCCCH2= 241

iSet Software Request CH
:
Chain Command CH 1
;Start Chain_ Commend CH 2

SSRCH1= 102

000001

Tce

BITO

IP=

BIT13

EOP=

000002
020000

012737
106427

013146

013705
005037

001324
174454

012704

MMRDEF= 135

001110

TDMAL:

BIT1

b
:

ivanl

“é

hog mode>

END-OF PROCESS ChotHy STATUS BIT,

T POSTED (DONE) STATUS BIT.

MOV
MTPS
MOV
MOV

#.+6,$LPERR
#PR4
#46. R4
$DMA ,RS

;3 LOOP
; RAISE TO

(RS)-

;...AND CLEAR ALL REGISTERS.

'2.:“

; Vbit set

1%:

<block lower level hardware

iSet Software Request CH 1

OCMOR

ERROR.
LEVEL.

; Init R4 with number of registers
; BASE

; Issue

" command.
..

trap thru 4 routine

KXJ11-CA FUNCTIONAL TEST
T6
DMA FACILITY AMZ8016

2450 013204
2451 013206
2452 013212
013220
013226
2453 013230

2454

2455
2456
2457
2458
2459 013234
013234
2460 013242
2461 013246
2462 013252
2463 013254
2464 013256
2465
2466 013264
2467 013272
2468 013276

000413
010537
012737
012737

001120
020042
045222

000137

015742

104076

000214

012737

174470

001110

MOV
MOV

TOMA2
RS, $GDADR

#DMA1,EMADR
#LA16M2.ESADR

ERROR+76

fDHAZ:

1008:

174440
001412

013703
012437
012700

DMAEND

000230
012337
012337
077001
012737

012737
104077
024646
000137

013700
000402

Page 68

;...AND CONTINUE.
: BAD ADDRESS (+2).

o
:: >> ERROR 76, BUS ERROR AT DMA CHIP ADDRESS.

s:/7

: GET OUT.

020451
045206

044746
044752

; SET CHECK TABLE POINTER IN R4.
: SET
PREFIX.
; KEEPTIMER.
; LOMER CPU.

; ISSUE SET INTERRUPT ENABLE COMMAND CHAN1(2)...
_THEN I
START CHAIN CMND CHAN 1(2).
; "€ (OR
EOP) INTERRUPT SHOULD..
\\m BEFORE THIS TIMES OUT.

b88> ERROR 77, CHAN INTERRUPT NOT RECEIVED

-(SP),-(SP)

218:

MOV

S0STAT1,RO

; GET CHAN 1 STATUS.

(SP)+,(5P)+

308:

000002

R4
SOTSTLOC,R3
(R4)+ ,EMPRE
é-1,
0
sns)o.m
R3)+.90COR
RO, .

: STUFF ASCII 1 INTO MESSAGES

220:

000001

RO,.DMAC1+S
RO,DMAC2+5
RO.DMAC3.5
RO,DMACA.S
RO,DMACS.5

#'1.RO

%n_,gs%éesm
*

000214

174454

MOVB
MOVB
MOVB
MOVB
MOVB

044746
044752

; SERVICE CHAN 1 FIRST

2115, 30MR
; SET MASTER MODE <VI!WAIT!CPINTLV!ENAB>.
SECHALH
; LOCAL ACCESS
#CHAIN1,®8CHALL ; SET CHAIN ADDRESSCES)
SCHAZH
; LOCAL ACCESS
... = 1ST LINK.
#8%,98TSTLOC
; POINTER TO CHANNEL 1 COMMANDS

MOV
MOV
MOV
MOV
SPL
MOV
MOV
S0B

174454

174456

#21%,380MAV

:; LOOP HERE ON ERROR.
;INIT MEMORY WITH KNOWN DATA
:
;
;

MOV
CLR
MOV
CLR
MOV
MOV

MOVB

174454

#.+6, SLPERR
#2048 . ,RO
#BUFR1 R1
RO, (R1)+
RO, 100%

; SET COMMANDS FOR CHAN 1.

2%:

42
177777

MOV
MOV
MOV
MOV
S0B
MOV

174442

2472 013324
2473 013330
2475 013330
013

2483 013406
2484
2485 013410
013416

BR
MOV

2s:

012737
012700
012701
010021
077002
012737

2471 013316

2479 013370
2480 013374
2481 013376
2‘8§ 013402

044746
044752

Thursday 03-Apr-86 14:11

; EXECUTE S PASS DMA DATA TEST AS FOLLOWS:
;
1. LOCAL => LOCAL+2K, 2KW.
;
2. LOCAL 1/0 PAGE => LOCAL. 1KW.

2469 013304
2470 013310

MACRO Y05.02

BIT
BNE
BIT

“r%v

MOV

BYSTAT2.R0

; mce THE nflemun

. m& STATUS
;

#7C,RO
243
9EOP ,RO

; DID DMA
COMPLETE?
; BR IF 1C IS SET.
:
OR DID WE HAVE AN NXM?

#NOSIG.ESADR

;; >> ERROR 100, DMA INCOMPLETE, TC!EOP BOTH CLEAR.

238
#DMA3 ,EMADR

;g\ureovmmxssn
HE ]

KXJ11-CA FUNCTIONAL TEST

DMA FACILITY AMZ8016

013500
2498 013502

MACRO Y05.02

104100
000407
012737
012737
104101
012337

020513
045206

044746
044752

174454

23%:

Thursday 03-Apr-86 14:11

ERROR~100
244

MOV

24%:

#DMA4 ,EMADR

#NOSIG,ESADR

ERROR+101
MOV
(R3)+,3#CMDR

Page 69

::s//
s3\\
:s

>> ERROR 101, DMA INCOMPLETE, EOP = 1 = NXM

2144
; INT SERVICE COMPLETE, CLEAR "IUS!IP",

:Now check and see that the transfer occurred correctly

i‘:
014032

MOV

(R4):.RO

; SET SRC_POINTER,
.

MOV
MOV
OP

CRa)e.R1
CR4)+.R2
Ré.4CKBYTE

i "GET DST POINTER.
.
:...AND WORD COUNT.
:

BEQ
BLE

BR TF DATA CHECK INHIBITED.

eheck results of byte transfer from I/0 page

012737

172352
172516
177572
172516

052737
052737

112037
010137
112137
123737

SoegfeRrreneees

e pn

o OO00O0CO0O00O000O000

e s

001020
077215
005037
000425

e o
b
>
e o

7]
w

S U

012737
010037

344:

177572

45:

001120
001124
001122
001126
001124

001126

012737

020562
45360

044746
044752

33%:

CMPB

$GDDAT,$BODAT

014042

013762
000214
001412

33%
R2,35$

MOV

RO, $

; ADD DATA

;

:G0 TO ERROR
;LOOP
CONTROL

6
o
i
;Check results of word transfers

MOV
MV
MOV
[ 4
BEQ
MOV

SET SRC ADDRESS.

(RO)+,$GDDAT
R1
(Ri)+,$BDDAT
$GDOAT
, $BDDAT
5%

;...AND
DATA.
ADDRESS
;...AND DATA.
; BR IF SRC = DST

9DMAS,EMADR

33\

#EF6,ESADR

ERROR+102

R2.48

; ESCAPE ON 1ST DATA ERROR.

; CHECK FOR END OF TABLE..
s..mt.oor'msumm.
;010 WE %oagom
i...AND
IF
; P% SET VECT
TO CHANNEL
2

i...AND GO ‘ROUND ONCE MORE.

.MORD
'MORD

62
240

J
!

i: >> ERROR 102, DATA ERROR

R4, SCHAINL
24
674 ,R3
73
$22%,DMAV
298 ,90TSTLOC
@' 2.RO

s34/

o
a0
P
BEQ
MOV
MOV

MOVE

8¢:

(Ri)+,$BODAT

BNE
S08

MOV

S$:

013442
013754
000062
013330

#21600, 3KIPARS;
#20, 38172516
;ENABLC 22 BIT ADDRESSES
1, 30MMRO
:ON MU
026 38172516 ;m.s 22 BIT ADDRESSES, DISABLE D SPACE
RO, $GDADR
:SOURCE ADDRESS
(RO)+,$GDDAT
;AND DATA
R1, $BDADR
;GET DESTINATION ADDRESS

MOVB

001126

010037
012037
010137
01§137
023737
001410

012737
104102
000401
077225

35%:

MOV
BIS
BIS
MOV
MOV
MOVB
MOV

;...notsxrmmz..
; SET CIE COMMAND.
; START CHAIN COMMAND.

|
|

‘

KXJ11-CA FUNCTIONAL TEST

DMA FACILITY AMZ8016

2548 013752 000054
2549 013754
2550 013754
2551 013756
2552 013760

000063
000241
000055

2555 013762

005037

2556 013766

000137

MACRO Y05.02

9s:

174454

014204

78:

Thursday 03-Apr-86 14:11

Page

-y

MORD

5S4

MORD
'ORD
MORD

63
241
55

; CHANMEL > INTERRUPT ENABLE
; CHANNEL 2 START CHAIN COMMAND
; CLEAR INTERRUPT UNDER SERVICE & ...

S60MDR

; ALL DONE RESET CHIP...

DICEXP

; CLEAR IUS AND IP COMMAND.

KXJ11-CA FUNCTIONAL TEST
T6
DMA FACILITY AMZ8016

2558
2559
2560
2561 013772

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 71

; ADDRESS/MC TABLE FOR POST-DMA DATA CHECKS.
020102
020133
020170

020221
020252

061022
000000

071022
071022
071022
071022

020102

éKTBL:

DMAC1, BUFR1, BUFR2, 2048

: TEXT, SRC. DST, WC.

DMAC4, O

:...INVOLVE Q-BUS SPACE...

DMAC2. 177750, BUFR3, 1
DMACS. O

; CHAINS 3,

OMACS. BUFR1, BUFR2, 2048

CKBYTE: DMAC1, 120000, BUFR2, 4096.

4, S...

. POSTPONE DATA CHECK UNTIL...

ICHRIN 5 IS DONE.

.CHECK BYTE TRANSFER

i AND THIS IS THE S LINK DMA CHAIN.

001606
000000

000214
000030
001602

; SFTREQ. HOMSK, INT TCIEOP, INTLV. WORD-MORD..

¥ FLOUTHROUGH

061022

CHAING: 1602
0, BUFR1

000030

001340

30, 1340

100000

071022
061022

§§9 0145: 001602
000030
001602
(04000
000030
001602
004000
000000
010000
000030

02.249
061022

071022

001340

160000
071022
001301

CHAINZ: 1602

i.7 2K WORDS.
: "VECTOR.

:...1 WORD..

177750
071022

071022

014166

30, 1340

: FROM LOCAL BUFRI...
:...70 LOCAL BUFR2

30, 1340

001602

014

2048.
OMAV

: LOAD ARA, ARB, OPK, VECT. AND CHAN MODE.

001340

2585 014104

0. BUFR1
0. BUFR2

; RE-LOAD ARA, ARB,

000030

2592

001340

EHAINL: 1606

40000,177750

3 014100

2586

061022
071022

0. BUFR2
1

100000, BUFR2

2048,
CHAING: 1602

100000; BUFR:

2048,

CHAN MODE ONLY.

; FROM LOCAL /0 Ck2MAINTENARCE RECTETER)
:...70 BUFR2..

i SAME MODE AND TERMINATION.
‘
DITTO.
: FROM LOCAL BUFRI...

;...T0 @-BUS BUFR2

§7772K WORDS.
-

0ITTO.

DITTO.

}
:

7700 G-BUS BUFRS
WORDS.,

¢ %BUFRL :| FROM
G BUSBUFRL
--10 LOCAL
BUFR2
so. i340

CHAING:<CARALCARBICOPIMODE>

«aamooo >
;FROM K2 ROM
<K2MEMILP uné no
2
<SWRQ'sm».«ncsxemumfi.

INTERRUPT ON TC OR EOP, .

i"BUS RELEASE, BYTE-BYTE TRANSFER
1

174470
174442
174440
001412
001414

1%:

044746
044752

21$:
22%:
30%:

001120

2656 014522

001122

244:

“THEN ISSUE START CHAIN CMND CHAN 1(2).
"*E0P INTERRUPT SHOULD.

GET C!% 1 STATUS.
GET CHAN 2 STATUS.
ADJUST STACK.
DID WE HAVE AN NXM?

: eg IF EOP (NXM) IS SET.
i

.3/;> ERROR 104, EXPECTED NXM, EOP CLEAR.
i

sl\!\txrrcxsnmsg DID DMA TRANSFER

044746
044752

: TsSE SET INTERRUPT ENABLE COMMAND CHAN1(2)...
::/;» ERROR 103, CHAN INTERRUPT NOT RECEIVED
i 'EAKE THE INTERRUPT...

::/;» ERROR 105, TC SHOULD NOT BE SET
i "INT SERVICE COMPLETE, CLEAR “IUS!IP".
; IS THERE DATA TO CHECK?

KRZ)o $GDADR

]

001122

23§:

; SET CHECK TABLE POINTER IN R4.
; LOAD COMMAND POINTER
LOAD REGISTER POINTER

.. HAPPEN BEFORE THIS TIHES OUT.

044746
044752

000001

174454

-1,R0

(R3)+,34CMDR
(R3)+,3¢CMDR

000002

001120

ansn.oc.z R2
0

174454

015612
045206

@4TSTLOC,R3

E
+
)PR
. EM
(R&

000214
174456

015612
045206

RO,DTCXM1+5
RO.DTCXM2+5
RO.DTCXM3+5
RO.DTCXM&+5
RO.DTCXM8+5
RO.DTCXMO+5
#EOPTSL ,R4

020413
045206

2%:

#115,3#MR
; SET MASTER MODE <VI!WAIT!CPINTLV!ENAB>.
@9CHALH
#0TCX01,34CHALL ; SET CHAIN ADDRESS(ES)...
SSCHA2H
; LOCAL ACCESS
#DTCX01, 3#CHA2L
... = 1ST LINK.
#8$,3#TSTLOC
POINTER TO CHANNEL 1 COMMANDS
#10$,88TSTLOC+2
POINTER TO CHANNEL 1 REGISTERS
'1,RO

012737
012737
104103
024646
000137
013700
000402

1.
DS
FOR CHAN
; SET COMMAN

174454
174454

;NOW TEST THAT THE DTC EXCEPTIONS WORK CORRECTLY
#214% , 36DMAV
: SERVICE CHAN 1 FIRST

012337
012337
077001

STCEXP:

Page 72

000115
174446
014754
174444
014754
014624
014640
000061

015221
015271
015341
015410
015457
015537
014654
001412
001414
044742
177777

2624 014314

2625 014320
2626 014324
2627 014330
2628 014334
2629 014340
2630 014342
2631 014346
2632 014352
263
2634 14354
014362
014370
2635 014372
2636 014374

000214

22 y

2614 014220
2615 014224
2616 014232
2617 014236
2618 014244
2619 014252
2620 014260
2621 014264
2623 014264
014270
014274

014400

*
U\.J AN

2611 014204
2612
2613 014212

Thursday 03-Apr-86 14:11

2610 014204

“4CRO Y05.02

KXJ11-CA FUNCTIONAL TEST
16
DMA FACILITY AMZ8016

R9933REE_ 301 385388353 5 433¢3a3aazzazze 33330803 g
2
éé
RRY

;IS OFFSET REGISTER AS EXPECTED?

;IS B ADDRESS OFF SET REGISTER AS EXPECTED?

001124

012737

015700
045206

044746
044752

014754

26%:

25%:

014640

2664 014564
2665 014570
2666 014574
2667 014602
2668 014610
2669 014616

26;0 014622

174454
015742
014632

014646
014406
000062

2671
2672 014624
2673 014624
2674 014626

001412
001414
000214

27%:

8%:

2675 014630
2676 014632
2677 014632
2678 014634
2679 014636
2680

9%:

10%:

114:

4646
7 0146.

EOPTBL :

Page 73

BEQ

a(R2)+, $GDDAT
254

;IS OP COUNT AS EXPECTED?

MOV

#DTCXM7 ,EMADR

g: . #DTCX01

MOV
#NOSIG,ESADR
ERROR+106

#10$,.R3
27%
a#CMDR
DMAEND
#9$,88TSTLOC
#114,38TSTLOC.2
#22% , 34DMAV

:; 2.R0

WORD
.WORD
.WORD

62
240
54

.WORD
.WORD
.WORD

63
241
55

-DTCMICWTMSSREGB
;DTC CHANNEL
1 CURRENT OP COUNT

174410
174400
174460

;DTC CHANNEL 2 CURRENT ADDRESS REG A
;DTC CHANNEL 2 CURRENT ADDRESS REG B

:a«m‘ 2 DTC REGISTERS

sDTCMZWWCW

mfie. 177572
BUFR1+2, 177572

MI*
l

177572.

This tnnnct‘on will
l

061022
170000

;LOAD CHANNEL 2 COMMAND POINTER
;LOAD CHANNEL 2 REGISTER POINTER
;LOAD CHANNEL 2 INTERRUPT HANDLER

174402
174462

70002

061022
170000

;RESET CHIP

;CHANNEL
1 DTC REGISTERS
174412
;DTC CHANNEL 1 CURRENT ADDRESS REG A

-WORD
- WORD

BOFRLs5. 177975,

DTCXO01:

;HAVE BOTH CHANNELS BEEN TESTED?

;CHANNEL 2 COMMANDS

170002,
mog
2696 014714
2697 0147
2698 0147
2699 014744
2700
2701 014754
2702
2703
2704 014754
2705 014756
2706 014762
2707 014766
2708 014770
2709 014774
2710 015000

;3 >> ERROR 106, CONTENTS OF DTC NOT CORRECT AFTER EOP

S
EL
1 COMMAND
;CHANN

(elel-To]

023237
001407

Thursday 03-Apr-86 14:11

2657 014524
2658 014530
2659 014532
014532
014540
014546
2660 014550

MACRO Y05.02

S333335R3ITT

KXJ11-CA FUNCTIONAL TEST
16
DMA FACILITY AMZ8016

2711 015002
2712
2713
2714
2715 015006
2716 015010
2717
2718
2719
2720 015014
2721
2722 015014
2723 015016
2724 015022
2725 015026

000030

000002
000030

003340

MACRO Y05.02

Thursday 03-Apr-86 14:11

30,3340

Page 74

;Channel mode register

; This transaction will try to transfer from a non-existant local
memory location.

001360

30,1360

;Chain reload word

; <SWR!HM>, <RELEOP!ITC!IEOP!+LIP>;Channel mode register

;Try some transfers to the Qbus

tinato:;Thusltrut\sactnon will try to transfer from a non-existant Q bus
:

177570
061022

ocation.

<CARA ! CARB 'BARA !BARB ! COP ' BOP ! MODE >
;Chain reload word
177420,177570
;Current Address Regnster A (dma source-- hold)
0.BUFR1
:Current Address Register B (dma destination)

177570

4
177420,177570

;Current op-count
;Base Address Register
A (dma source-- hold)

003340

4
30,3340

og
-count
Chm mode register

061022

0,BUFR1

Bae Address Register B

; This traensaction will try to transfer to a non-existant Q bus

000002
000030

e
2739 015054
2740 015056

001360

001602
000000
037400

001602
000000
037400
000004
000030

2751 015114
2752 015116
2753 015122
2754 0151
g;SS 0151

001602
000000
177400
000004
000030

000004
000030

001602

177400

061022
170000

001340
061022
170000

001360

;Chain reload word

;Channel mode register

177400

0,BUFR1

3‘)400 170000

;Chain reload uord

;Current Address Register
A (dma source)

;Current Address Register B (dma destination-- hold)
Current m_?fomt

SURQHM>
, <TTCHTEOR T TRU!
<CARA!CAR8!C¢P'I‘IIE>

0,BUFR1

3"400 170000

SRTCYS

scharnel mode register

;Chain reload word

;Current Address Register A (dma source)

sccm: mRognmr B8 (dma destination-- hold)

SSURQIH, <TTCITEOP
TR
INTLVIFLIP>

schannel mode register

061022
177570

<CARA!CARB ! COP ! MODE >

;Chain reload word

;busmssmom 7570

;Current

001340

<SWRQ!HM> ,<ITC!IEOP! TRWW!INTLV>

061022

177570

3761 01%1.50 000030 001360
278 015154 001602
2765 015162
2766 015166
2767 015170

30,1360

;CHECK THE CONTENTS OF THE CURRENT ADDRESS REGISTERS AND OP COUNT AFTER
;A TRANSFER THAT RESULTS IN A TIME-OUT

2741 015062
2742 015066
2743 015070
2744
2745 015074
2746 015076
2747 015102
2748 015106
2743 015110
2750

; 170 location.

0,BUFR1

_;Curnn address

<cmu-cm-cormwc>

;Curren

ister a

sCham reload word
ister a

<h)510'37400> 1"7570 ;Current
muo register b
;Current?nhoncount
<Sll!0'flb <ITC'IEW!TRW'INTLV'FL
<CARA ! CARB ! COP !MODE >

;Chain reload word

061022
177570

0,BUFR1

001350

<SWRQ!HM>, <ITC!IEOP! TRFUNL ! INTLV>

<QBUSI0!37400>,177570

;

;channel mode register

KXJ11-CA FUNCTIONAL TEST
T6
DMA FACILITY AMZ801c

2768
2769 015174
2770 015176
2771 015202
2772 015206

2773 015210

2774
2775 015214
2776 015264
2777 015334

2778 015403
2779 015452
2780 015532
2781 015612
2782 015651
2783 015700
2784
2785 015742
2786 015750
2787 015754

001602
000000

177400
000004
000030

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 75

iChain reload word

061022
177570

0,BUFR1
;GJSIO 137400>,177570

001370

<SWRQ!HM> , <ITC!IEOP!TRFUNL
!INTLVIF 15>

103
103
103
103
103
103
040
040
103

110
110
110
110
110
110
117

-~ 116

012737
005037
000400

002542

000214

105
105

174454

101
101
101
101
101
101

130
130

;

DTCXMi:
DTCXM2:
DTCXM3:
DTCXM4:
DTCXM8:
DTCXM9:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/CHAN X DMA XFER LOCAL MEM => LOCAL NXM/<CRLF>
/CHAN X DMA XFER LOCAL NXM => LOCAL MEM/<CRLF>
/CHAN X DMA XFER LOCAL MEM => QBUS NXM/<CRLF>
/CHAN X DMA XFER QBUS NXM => LOCAL MEM/<CRLF>
/CHAN X DMA FUNNEL XFER - LOCAL MEM => QBUS NXM/<CRLF>
/CHAN X DMA FUNNEL XFER - QBUS NXM => LOCAL MEM/<CRLF>

DEVENCXHE

.ASCIZ

/CONTENTS OF DTC NOT AS EXPECTED/<CRLF>

DTCXM5: .ASCIZ
DTCXM6: .ASCIZ

OMAEND: MOV

CLR
BR

/ EXPECTED EOP ON DMA TRANSFER/<CRLF>
/ EXPECTED CHAIN ABORT/<CRLF>

#DISMISS,DMAV

a#CMDR
TST7

; RESTORE VECTOR.
;RESET DTC_CHIP
: sNEXT TEST.

KXJ11-CA FUNCTIONAL TEST
17
Q-BUS INTERFACE

MACRO Y05.02

2789

Thursday 03-Apr-86 14:11

S a2 22 222 2 22 22 22 2 2 2 2 2 22 2 s

;#TEST 7

Page 76
e

st ees sy

Q-BUS INTERFACE

is tttttt;at’témtttttt“tt“tt.tttttt‘tttttttttt“ttttttttttttttt

015756

015760
015766
015770

015774
016002

016010
016014
016022

000004
032737
001410
012706
012737
005037
000402
000137
104415
000411

000340

177524

1577:

BIT

BEQ
MOV
MoV

001100

177777
044742

CLR

022134
016022

#340,89K2CSRC

;: IS THE ID SWITCH IN POSITIONS O OR 1?

EMPRE
300454

:; CLEAR ERROR PREFIX
33 SKIP NEXT.

30044
#STACK, SP
#-1, TRAPEX

300445: JP
TST10
30045¢: TSNAME, .+4

121

016044

;s SKIP THIS TEST IF IT IS
:s SET A CLEAN STACK
;: DISMISS BUS-ERRORS

:s BYPASS.
;3 PRINT TEST NUMBER AND NAME

3i...AND
SKIP OVER THE ASCII

300464:

; TEST THE UPPER ADDRESS BITS 16 THRU 21 ON THE QBUS
;FIRST WRITE TSTLOC IN QBUS MEMORY WITH ALL ONES.

;WRITE ZEROS TO TSTLOC IN QBUS MEMORY,

INTERFACE.

THEN ATTEMPT TO

BUT THIS TIME WITH ONE OF

s THE_ADDRESS BITS 16 THRU 21 SET. IF TSTLOC IS CLEAR AS A RESULT

;OF THIS WRITE THEN THE ADDRESS BIT DID NOT GET WRITTEN ONTO THE BUS.

IFIRST LET'S MAKE SURE THAT WE HAVE MORE THAN 16 QBUS ADDRESS BITS.
013701
032701
001415

177522

032701
001405

000002

BEQ
105$:

1028 :

1043

032701

NO, BRANCH

snoxcnes A az BIT JUMPER CONFIGURATION.

ggv
S

;THEN IT'S A 22 BITTER

:&gi

;INIT LOOP COUNTER

HERE IF BIT O1 = O AND BIT 02 = 1.

INDICATES AN 18 BIT JUMPER CONFIGURATION.

uR4

;INIT LOOP COUNTER

lé!E IF BIT 02= 0
611 #81701,R1

; IS BIT O1 = 1

ORES 1eRE IF BIT 01 = 1 snoi’méBR :

001763

012704
020437

000020
050736

So1411

050736

012737
012737
104107

016604
016536

00 41§

;GET BUS SIZE BITS IN K2CSRB
; IS BIT 02 = 1
: NO, BRANCH
; ISBITO1 = 1

;COMES HERE IF BIT 02 =1 AND BIT 01 =1, OR IF BIT
01 =0 AND BIT 02 = 0

nov

012704
012703
000411

820
2821 016 16
2822 016
016

1024

MOV

012704
012703
000416

8]
0
2818 016114

MOV
@9K2CSRB, R1
BIT
#8IT02,R1
BEQ
1044
;COMES HERE IF BIT 02 IS =1
8IT
#8IT01,.R1

Wm mn g BIT JUMPER CONFIGURA

1068:
044746
044752

103$:

cHP

R4, . ABUSW

BEQ

10i$

B
CWP

;D0ES IT MATCH WHAT mm SAYS?

103t
R4, . ABUSH

MOV msoiusnm
ERROR+107

NOLFLAG
;noés THIS MATCH WHAT ARBITER SAYS?
e

WRONG
107, NUMBER OF ADDRESS BITS CONFIGURED
i1 '>> ERROR
2s/7

KXJ11-CA FUNCTIONAL TEST
17
Q@-BUS INTERFACE

2828 016156
2829 016162
2830 016166
2831 016174
2832 016200
2833 016204
2834 016210
2835 016214

2845 016274
2846 016302
2847 016310
2848 016316
2849 016324
2850 01,332
2851 016340
2852 016346
2853 016352
2854 016360
2855 016366
2856
2857
2858
2859 016370
2860
2861
236§
2863 016376
016414

000137
012704
012737
005037
005037
012702
050237
005037
012737
005037

012737
012737
012737
013746
013746
013746
013746
012737
012737
012737
012737
012737
012737
042737
106427
012737
012737
000001

017106
000020
177777
001414
001416
000400
017044

174454

000111
174444
017016

MACRO Y05.02

001412

1008:
1018:

Thursday 03-Apr-86 14:11

P
MOV

000220
000222
000214
000216
174440
174454
177580 5%:
174454
174454
H

FIN22
216. R4

R2,AD1621+6

:LOAD SEGMENT FIELD

MOV
CLR
CLR
MOV

#-1,38TSTLOC
@ETSTLOC-2
SSTSTLOC+4
#400,R2

;INIT R4 WITH FIRST BIT TO BE TESTED

CLR

36CMDR

:RESET DTC CHIP

8IS

174470
174440
174454
174454

Page 77

MOV
CLR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIC
MTPS
MOV
MOV
WAIT

:MAKE TSTLOC = 1
:MAKE TSTLOC»2=
:MAKE TSTLOC+4 = 9
:INIT R2 WITH ADDRESS BIT 16 =1

#111, 38R
@¢CHA2H
#INITO, #CHA2L
#CLIE2. 34CMDR
#SCCCH2, 3#CMDR
@9DMAV2. -(SP)
FDMAV2+2, -(5P)
5DMAV1,- (SP)
DMAV1+2, -(SP)
#10$ , S8DMAV2
#PR7 . 38DMAV2+2
#214 . PDMAV1
#PR7.300MAV1 +2
#AD1621 , 96CHA2L
#SETIE2, 38CMDR
#BIT0S, 38K2CSRJ
20
#SCCCH2, 96CMDR
#SSRCH2
. 3#CMDR

:ENABLE DTC. NO CPU INTERLEAVE
;LOAD CHAIN ADDRESS
;DON'T ALLOW INTERRUPT FROM DTC
:ISSUE START CHAIN COMMAND CH2
:SAVE VECTORS
;
;
;SETUP
INTERRUPT HANDLER FOR DMA

;
:
;
:LOAD CHAIN ADDRESS
;ENABLE CH2 INTERRUPT
;:CLEAR SACK TIME-OUT BIT
:SET PRIORITY LEVEL TO ZERO
:ISSUE START CHAIN COMMAND CH2
; ISSUE SET SOFTWARE REQUEST COMMAND
:WAIT FOR INTERRUPT

;COMES HERE AFTER TRANFER FROM QBUS MEMORY TO TSTLOC+4

022737

001423
012737
012737
104110
000413

177777

016654
016572

001414 21$:

CWP

044746
044752

BEQ
254
MOV
4BADBIT.EMADR
MOV #BADBAL ,ESADR
ERROR+110
BR
25§

#-1,90TSTLOC+2

;IS K2 TSTLOC+2 = -1? IT SHOULD BE.

+
:

;;\\

IF _NOT_THEN EITHER THE ADDRESS
BIT IS BAD OR THE BACKPLANE DOES
NOT SUPPORT 22 BIT ADDRESSES.

iBRANCH IF OK

s >> ERROR 110, ONE OF THE UPPER ADDRESS BITS 16-21 IS BAD
33//

;BAIL OUT

:COMES HERE IF EOP (NXM) OCCURS ON TRANFER TO @ BUS MEMORY
032737
001007
012737
012737
104111

174458 fos:
017004
045206

044746
044752

BIT

BNE
MOV
MOV

481701, 80STAT2
$
900PS,EMADR
#NOSIG,ESADR

ERROR-111

;DID EOP OCCUR?
:3\\

;ERROR IF NO EOP

:; >> ERROR 111, SHOULD ONLY COME HERE ON EOP
s://

:SET UP FOR NEXT ADDRESS BIT IF ANY

a5 001414
040237

050237

017044
017044

25¢:

(SP)+,(SP)+

;FAKE AN RTI AND FIX THE STACK

iADD 1 10 R4

CLR
BIC

@PTSTLOC+2
R2,AD1621+6

ASL

INC
8IS

R2,AD1621+6

;CLEAR TSTLOC+2
;CLEAN UP
3

;LOAD SEGMENT FIELD

KXJ11-CA FUNCTIONAL TEST
17

MACRO Y05.02

Q@-BUS INTERFACE

2881 016470

012737

5&3 016476

077360

2885 016500
2886 016504
2887 016510
2888 016514
2889 016520

012C37
012637
012637
012637
042737

2890 016526
2891 016532
2892
2893

005037
000137

000055

000216
000214
000222
000220
077757

174454
017106

%3 016570

000207

2905 016572
2906 016574
2907 016600

010446
104401
104405

016776

2909
2910
2911 016604
2912 016654

116
102

125
101

2913 016703
2914 016726
2915 016760
2916 016776
2917 017004
2918
2919

104405
104401

200
200
040
040
104

001602
000020

2926 017030
g;; 017032

000001
000030

017036

2930
017036
2931 017040
2932
017044
2933
017046
2934 01
2935 017
2939 01

017044

016726

MOV
S08

#CLIP2, 30CMDR
R3,5%

;ISSUE CLEAR INTERRUPT COMMAND
;D0 IT SIX TIMES FOR 22 BITS, TWICE FOR

MOV
MOV
MOV
MOV
BIC
CLR
P

(SP)+ ,DMAV1+2
(SP)+.DMAV1
(5P)+.DMAV2+2
(SP)+ ,DMAV2

:RESTORE THE VECTORS

#+C<QBMEM!HOLD> , AD1621 +6
CLEAN UP
S0CMDR
;RESET DTC CHZP
FIN22
:SKIP OVER CHAIN TABLES

016760
050736
016703

016760

CNFGO1: MOV
TYPE
TYPDS
TYPE
MOV
TYPE
TYPDS
TYPE

R4,-(SP)

BADBAL: MOV

R4,-(SP)

RTS

TYPE

100020

001606
000020
100020
001412
000002
000220
000010

RTS

101
113
101
102
124

115
104
122
130
104
%‘1)%

GER:
BADBIT:
ARBSUP:
JMPSAY:
ADRBIT:
BIT:

00PS:

.EVEN

,JMPSAY

,ADRBIT

"ABUSW,-(SP)
.ARBSUP

ADRBIT

;

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

;PUSH NUMBER OF ADDRESS BITS KXJ IS JUMPERED FOR
: TYPE MESSAGE
;TYPE DECIMAL NUMBER
;PUSH NUMBER OF ADDRESS BITS ARBITER SUPPORTS
: TYPE MESSAGE
;TYPE DECIMAL NUMBER

,BIT

TYPDS

000207

2922 017016
ggsz 017016
017020

2925 017

268:

010446
104401
104405
104401
013746
104401

2908 016602

174454

Page 78

;ERROR ROUTINES

2894
2895 016536
2896 016540
2897 016544
2898 016
2899 016552
0165

2901 016562
2902 016564

Thursday 03-Apr-86 14:11

;PUSH NUMBER OF BAD ADDRESS BIT
: TYPE MESSAGE

;TYPE DECIMAL NUMBER

OF ADDRESS BITS CONFIGURED WRONG/
/BAD Q-BUS
LINE/
<CRLF>/ARBITER SUPPORTS /
<CRLF>/KXJ11-CA CONFIGURED FOR /
/ ADDRESS BITS/
7 BIT /

/DTC ERROR/

:W CHAIN TABLES FOR TESTING ADDRESS BITS 16-21
INITO: MRITE @ BUS MEMORY LOCATION WITH -1
001412

001412

000040

001416

100240

CCARAICARS1COPIMODE>

;W“em“ > TSTLOC

S CHAIN RELOAD oRD

3% (et

<SWRQ!HM>
, <TRWM!BUSHOG> ;MODE
AD1621 ;
70 START TEST OF
BITS 16

<K2MEMIMOLD>, TSTLOC+4

<GBMEMIHOLD>
SHORDTSTLOC

BHav2

LTIV hO0e, CHATN AELORD. HORD
;CARA

(SOURCE) WRITE 0

iCARB

(DEST)

;MODE-- NEEDS SOFTWARE REQ TO GO

KXJ11-CA FUNCTIONAL TEST
17
Q-BUS INTERFACE

2938 017060
2939 017060
2940 017062
2941 017066
2942 017072
2943 017074
2944 017076
2945 017102
2946
2947 017106

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 79

;READ ADDRESS TSTLOC IN QBUS MEMORY

001412
001414
001040
017036

<CARA!CARB ! COP ! TV !MODE ! CHAD>
<GBMEMPHOLD>,TSTLOC
;CARA

<K2MEMIHOLD>
. TSTLOC+2
1

DMAV1

:CARB
;CoP

0,AD1621

CHAIN RELOAD WORD
(SOURCE)
(DEST)

;MODE

;CHAIN ADDRESS

A
|

KXJ11-CA FUNCTIONAL TEST
b
-8US INTERFACE

2949

MACRO Y05.02

170000

5951
5952
595%
5954
5955
593
5957

Page 80

QBE1=170000
QBE2=170020
;QBUS EXERCISER TESTS F

170020

5950

Thursday 03-Apr-86 14:11

:K2 UNDER TEST

5959

5960
5961
5962
5963
5964
5965
5966
5067
5068
5969
5970
5971
597
597
5974

;Definitions for QBE CSRI bits
WRD=
1
;WORD TRANSFER
BYT=
O
:BYTE TRANSFER

000001
000000
000000
000002
000004
000006
000000
000020
000000
000040
000100
000140
000200
000400
000600

5975
5976
5977

HD=
RR=
RL=
LN=
DR=
AD=
HOG=
Bl=
B2=
B4=

0
2
4
6
0
20
O
40
100
140

DIN=

400

DATIO=

DOUT=

200

600

:HOLD DATA
:ROTATE DATA RIGHT
:ROTATE DATA LEFT
:LOAD NEW DATA
:QBE DATA REGISTER IS DATA SOURCE
:QBE ADDRESS REGISTER IS DATA SOURCE
:HOG MODE
;ONE TRANSFER PER DMG
:TWO
TRANSFERS PER DMG
:FOUR TRANSFERS PER DMG
:DATIO TRANSFER

:DATA IN TO QBE TRANSFER

;DATA OUT FROM QBE TRANSFER

:GBE CSR2 bit definitions

5978

000001

GO=

;SET GO BIT

5981

000010

000004

IR@6=

IENABLE INTERRUPT PRI b

40000
100000

;ASSERT
;ASSERT

5979

000002

000020
040000
100000

0
017106
017114
017120

012737
005737
100401

017122

000441

0 17126
3006 017132

005037

012737
012737
032737
001001
077005

1§ 017160
3013 017166

032737
001015

3014 017170

IRQ7=
Al6=
Al7=

000111
050760

174470

012737

3015 017176 0&‘13

QBETST:

174446
017200

000240
000001

174442
174454
174456

MOV

108:

000001

050760

11%:

;:ENABLE INTERRUPT PRI 7

BIT 16
BIT 17

iLoad DTC master mode register

&fi

g?‘

;Don't ,» go find out

CLR

iInit RO

BIT

BIT00,98STAT1

iWes TC bit set?

S0B
174456

'ENABLE INTERRUPT PRI S

#111,30MR

15T

50¢:

005000

3007 017140
3008 017146
3009 017154
3010 017156

3016
3017

Ihes- 4

fiifl

;Is thcrc a q bus exerciser
i...no CPU interleave

104

glé

fiITOI..flSTATl

MOV

81.0008€18

;Loop control
;Was EOP received?

'SET FLAG INDICATING THAT A QBE IS PRESENT
;

;Command chain to check for QBE at location 170000

KXJII CA FUNCTIONAL TEST

Q@-BUS INTERFACE

3018 017200
3019 017202
3020 017206
3021 017212
3022 017214
3022 017216
302
3025 017222
26

3031 017236
3032 017240
3033 017244
3036 017266
30%; 017270
30
3039 017272
3040 017300
3041 017302
3042 017310
3043
3044
3045 017312

MACRO Y05.02

24%:

1606

000140

005037

050760

1%:

CLR

I#QBE18

005737
100401
000436
005000
005037
012737
012737
032737
001001
077005

050756

2%:

@BE22

032737
001012
012737
000410
000602
177400
000001
000030

001410
170000

174446
017312
000240

000001

033737
404
004737

;hold source

;operation count

DMAV
30,140

174442
174454
174456

000002

174456

000001

050756

20%:

21%:

;destination is the Q bus exerciser on the LSI bus
; interrupt vector
;ichannel mode register

;NO 18 BIT QBE PRESENT

;IS THERE A Q22 BUS EXERCISER PRESENT?

BMI
BR
CLR
CLR
MOV

51¢
4%
RO
a#CHA1H
#25% ,98CHALL

Imt RO

gfIGT

g{TOO.flSTATl

Uu TC received?

SOB

RO,20$

iLoop control

3&:

;?ITOI.OOSTATI

;o5 EOP been received?

a'gv

:}.mzz

:SET FLAG INDICATING Q22 PRESENT

MOV

.Lo.d chain address register

mc&u.m

;Issue start chain command

égo-md chain to check for QBE at location 170020

170020
000140

3%:
4s:

050760
017412

Sé:

000001
017442

6%:

000001

io
306 017422

20, SOURCE

17'7400.&1

51%:

Page 81

;Chain load word

001606
000020
177400
000001
000214
000030

005037

602

iChain load word

30,140

177400,QBE2
1

antmotnon is the Q bus exerciser on the LSI bus.
:g count

1 mode register

CLR

39QBE22

;NO @22 BUS EXERCISER PRESENT

BIT

84QBE18,39QBE22

;ARE BOTH QBES PRESENT?

BEQ
JSR
JHP
BIT
BEQ
JSR
JP
%

S¢
?&?1822
IN
#B8IT00,30QBE1S8
64
W
IN
CBI_“ 700, 3#QBE22

017424
021000

7%:

JSR

PC,Q22BEX

017442
017424

Q1822:

JSR

PC,Q18BEX

3%9
3070

3071
307§
3073 017424
3074 017432

Thursday 03-Apr-86 14:11

BEF

;:BRANCH IF NOT
;GO TEST ALL QBE FUNCTIONS
;GO TO END OF PASS AFTER
QBE TESTS
tIS THERE »'an*s BIT @BE PRESENT?
;BRANCH IF
:GODOIOBIT&TESTS ONLY
;GOTO END OF PASS AFTER 18 BIT QBE TESTS
; 'mxrflng BIT QBE PRESENT?
;

GO DO 22 BIT QBE TESTS ONLY
180
70 END
OF PASS ROUTINE

:WIPETOMTIATEWWERSTWT’ENWS
012737
012737

170022

017670

017656
174442

Q22BEX: MOV

MOV

#QBE2+2,QBEGD+
10

SQBCHN2, 38CHALL

;GBE 22 STARTING ADDRESS
;LOAD CHAIN ADDRESS

3075 017440
3076 017442
3077 017450
2078
3079
3080 017456
3081 017462
3082 017470
017476
017504
3083 017506
3084 017514
3087 017530
3088
3089 017532

000406
012737
012737

005037
012737
012737
012737
000240
042737
012737
004737
005000
077001
012737

170002
017716

BR
MOV

174442

001410
044746
017572

017744
020513
045206

000002

177540
174354

174442
044746
044752
174454

RTS

§§§ggg

174456
174456

;SUBROUTINE TO CHECK STATUS OF DMA TRANSFER

gg
BIT
BEQ

fiwoo.aosnu
SEOP, 30STAT1
24

000001

174456

020451
045206

044746

2%:

044752

001410

gIc.aosnm

MOV

SDMAS ,EMADR

177420

'ccwxvo&

start

hold source

ation

Ealn Toss vord

;mucgzeaouxmmssw
3

ion count

@BE CSR 2

decHN: 1607

uTOl

100140
017646

;; >> ERROR 113, INCOMPLETE TRANSFER, EOP!TC NOT SET

337/

Command chain to

MORD

001507
000000

ONOSIG.ESADR

QBEGO: <CARA®
émv

000140

;:DID TRANSFER COMPLETE SUCCESSFULLY?

ERROR+113

RTS

i: >> ERROR 112, BAD TRANSFER

g:rlcT

MOV

;DID TRANSFER FINISH
:WAS THERE AN NXM?

s3//

= mi%xa

D
e

:SET UP FOR QBE 18 TESTS

:TELL IT T0 GO EXECUTE THE OPERATION

014000

=](e lele]

~oUn
s GIND -

@BEXER
#QBCHNS . 38CHALL

#QBE1+2,QBEGD+10

@BEXER: CLR
S9CHAIH
;CLEAR CHAIN ADDRESS SEGMENT/TAG
MOV
#1, 39SOURCE
MOV
#BDQXFR,EMADR ;; SET ERROR MESSAGE...
NOP
::...ERROR
WILL BE CALLED LATER.
BIC
#BIT0S, 38K2CSRJ
;CLEAR THE SACK TIME-OUT BIT
MOV
i,32CMDR
:ISSUE START CHAIN COMMAND
fl
PC.1$
;CHECK THAT TRANSFER MAS SUCCESSFUL
S08
RO, .
;GIVE IT TIME
;NOW CHECK THE RESULTS OF THE TRANSFER
MOV
SQBCHNA
, 3CHALL
MOV
#DMA4,EMADR
:; SET ERROR MESSAGE..
MOV #NOSIG.ESADR
::...AND SIGNATURE POINTERS..
NOP
i:...ERROR
WILL BE CALLED LATER.
MOV
#SCCCH1 , 38CMDR
;
JSR
PC.1$

017712

Page 82

;FIRST LOAD THE QBUS EXERCISER WITH DESIRED PARAMETERS, AND THEN

3%:

312

Thursday 03-Apr-86 14:11

017656 Q18BEX: MOV

1%:

017612
017614

3102

MACRO Y05.02

000240
017572

3093 017570
3094
3095 017572
3096
3097 017572
3098 017600
3099 017602
3100 017610
3101

Ii
e b
s s e —ot
ps s | > [y

KXJ11-CA FUNCTIONAL TEST
17
@-BUS INTERFACE

iChain load word
:

sLo.d Seven words

Q>, <CTC!
TR TNTC VS

vector

0,QBEGO

’

;Destination is the g22 bus exerciser
;Chain address

!F;Jll-CA FUNCTIONAL TEST

MACRO Y05.02

@-BUS INTERFACE

001607
000000

177400
SO0007

o214

017770
170000

Co-u\da.m to load GBE with data.
@BCHN3:
;Chain load word

@BETO1

;Source is

1"7400QBE1

;Destination is the ql8 bus exerciser

;Load Seven words

WV
;DMA vector
<SURQ!HM>
, <CTC! TRWW! INTLV>
0,QBEGO
;Chain address

100140
017646

Co-mdchamtotrmsfermdanchfmflbusmytolmmy
;Will search for end of data pattern 125252.

061022
061022

@BCHN4:

<CARA'CN!8‘CG"PITHSK'I‘I.'IE>
<@BMEM!UP>,BUFR1

0,BUFR1
1000
125252,0
31,344

000344

QBETO1:

QBETO2:

WRD!HD!DR!B1 !DOUT

;DATA FOR SECOND CSR

0
0

;LATENCY COUNTER/ READ ONLY
;MAX VALUE LATENCY COUNTER

:DMA TRANSFER ADDRESS
;WORD COUNT
;:DATA FOR QBE DATA REG

DATA
FOR FIRST CSR

:DATA FOR
SECOND CSR
DA TRANSFER ROORESS
iWORD COUNT

iDATA FOR QBE DATA REG

;LATENCY COUNTER/ READ ONLY
;MAX VALUE LATENCY COUNTER

WRD ! AD !HOG ! DOUT
400
TSTLOC+2
-100000

:DATA FOR QBE DATA REG

ADDRESS

sLATENCY COUNTER/ READ ONLY
;MAX VALUE LATENCY COUNTER

110
110

DATA Fm FIRST CSR

:WORD coun

110
110

:DATA F

0
0

125
110

;DATA FOR FIRST CSR

0
0

QBETO3:

;LSI MEMORY

;TOP MEMORY IS DESTINATION
;0P COUNT
;PATTERN /MASK
: <SWRQ!HM!
SNM> , <INTLV, STWM>

BUFR1
-1000
125252

3144 020006

115
115

58
3159 020513

Page 83

3124
3125
3126 017716
3127 017720
3128 017724
3129
017730
3130
017732
3131 017734
3132 017740
3133
3134
3135
3136 017744
3137 017746
3138 017752
3139 017756
3140 017760
3141 017764
3142
3143 017770
017770
017772
017774
017776

Thursday 03-Apr-86 14:11

IY(;JII-CA FUNCTIONAL TEST
@-BUS INTERFACE
3160 020562
3161 020601

3162 020627
3163 020661
3164 020716
3166 021000

104
200
123
105
104

MACRO Y05.02

101
101
103
120
103

Thursday 03-Apr-86 14:11

Page 84

/DMA DATA ERROR/
<CRLF>/BAD TRANSFER TO QBUS/
/SACK TIME-OUT BIT NOT SET/
/EOP NOT SET BY SACK TIME-OUT/
/DTC CONTENTS NOT AS EXPECTED AFTER SACK TIME-OUT/

KXJ11-CA FUNCTIONAL TEST
17
Q@-BUS INTERFACE

3172
3173
3174 021014
3175 021014
3176 021020
3177 021024
3178 021026
3179 021030

032777
001002
000137

021754

;NOW SEE IF THERE IS A KNOWN GOOD IOP IN THE SYSTEM
BIT
#8IT12,35WR
;IS THERE A KNOWN GOOD IOP
BNE
JP

GD$IOP
IOPEND

;KNOWN GOOD IOP MUST BE SET TO ID# 15 AND RESIDE AT ADDRESS 1775740

GD$IOP:

061022
010000
000002

3181 021036

001412
1777717

125252
052525
063636
036363
174454
000111
174444

012737
012737
004737
102767
012702
012737
012737
004737
102767
005737
001007
042737
022737
412

077224
012737
012737
104114

000137
012737
012737
012737
012737

3222 021276

160132

Page 85

;BO0OT/SELF TEST SWITCH SHOULD BE SET TO S OR 6.

3180 021034

3182 021042
3183 0.'046
3184 0-.07°0
3185 gs;usd
3186
021060
3187 021064
3188 021070
3189 021074
3190 021102
319 1
3192 021106
3193 021114
3194 021122
3195 021126
3196 021130
3197 021134
3198 021142

010000

Thursday 03-RApr-86 14:11

021356
000241
021512
000020
021416
000241
021512

174470
174440
174454

174440
174454

001412
000004

001414
001414

021756
045206

044746
044752

021754
021476
021502
021436

021442
021462

000241

004737
102761
004737

021622

012737
012737

021504
021510

2008:

210$:

177770

;INIT SOME STUFF IN LOCAL MEMORY.

MOV
$BUFR1,R1
;
MOV
24096. .R2
CLR
R3
199%:
MOV
R3,(R1)+
;
22.R3
ADD
S08
R2.199%
MOV
#TSTLOC,R2
;INIT MORE MEMORY LOCATIONS
MOV
#-1,(R2)+
CLR
(R2)+
MOV
#125252, (R2)+
MOV
#52525, (R2)+
MOV
#63636, (R2)+
MOV
#36363. (R2)
CLR
SCMDR
;RESET THE DTC
MOV
2111, 38R
:LOAD DTC MASTER MODE REGISTER
CLR
SOCHAH
;CLEAR CHAIN ADDRESS SEGMENT/TAG
;INIT GBUS MEMORY WITH KNOWN DATA
1%:
MOV
#230$ ,@9CHA2L ;LOAD CHAIN ADDRESS
MOV
#SCCCH2
;ISSUE START CHAIN COMMAND
#20,R2
$250$,@0CHA2L
#SCCOoH2
PC,CH2STA
$

BIC

#tC7,TSTLOC+2

SOB

R2,200%

tT”sct

95'6

212¢:

MOV
MOV
MOV
JSR
B8VS

MOV
MOV

zg%oc

gdénocoz

OKGNR,EMADR
ONOSIG,ESADR

ERROR+114
JHP
1

174454

021512

+4,251%+

;;GIVE THE KNOWN GOOD IOP 16 CHANCES
;LOAD CHAIN ADDRESS

:ISSUE START CHAIN COMMAND
sTRY AGAIN IF V BIT IS SET

;WAS TPRO OF THE KNOWN GOOD IOP = ZERO?
B

;STRIP OFF NON-STATUS BITS

; IS KNOWN GOOD IOP WAITING FOR A Q-BUS COMMAND?
:NO, TRY AGAIN UP TO 16 TIMES

3
;; >> ERROR 114, NO RESPONSE FROM KNOWN GOOD IOP

2477/

MOV
MOV

ozsu.»i%'i ;LOAD CHAIN ADDRESS
#SCCCH2,
:ISSUE START CHAIN COMMAND THAT WILL

JSR

PC,CH2STA

BVS

JSR

2144

PC, TPRCHK

;LOAD KNOWN GOOD IOP TPRS 2 & 3 WITH LOAD
wmmsks»omcormnwmn

;TRY AGAIN IF SACK TIME OUT OCCURRED

;KNOWN GOOD IOP HAS NOWM BEEN INITIALIZED
021442
021462

2114:

MOV
MOV

#256%,2514+4
;
#256$+4,2514+24 ;

%168
3169 021000
3170 021006
3171 021010

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST
17
@-BUS INTERFACE

3223 021304
3224 021312
3225 021320
3226 021324
3227 021326
3228 021332
3231
3232 021352
3233

3234 021356
3235 021356
3236 021360
3237 021364
3238 021370
3239 021372
3240
3241
3242 021376

3246 021412
3247
3248 021416
3249 021416
3250 021420

3251 021424
32S§ 021430
3253

021432

3255 021436
436

012737
012737
004737
102761
004737
012737
012737
004737
000137

001602
000000
100000
010000
000030

001602
000000
100000
000004
000030
001602

177400

000030
001602
000000
021476

177400

021436
000241

174440
174454

021622
017744
000241

174440
174454

021512

021754

2208:
230$:

061022
061022

Thursday 03-Apr-86 14:11

Page 86

MOV
MOV
JSR
BVS
JSR
MOV
MOV
JSR

#251$,88CHA2L
;LOAD CHAIN ADDRESS
#SCCCH2,@9CMDR ; ISSUE START CHAIN COMMAND
PC,CH2sTA
211$
PC,
$QBCHNG
, 99CHA2L ;CHECK THAT TRANSFER COMPLETED
#SCCCH2,39CMDR ; ISSUE START CHAIN COMMAND
PC.CH2STA

IOPEND

;TRANSFER DATA IN X2 LOCATIONS TO @ BUS MEMORY

<CARA ! CARB ! COP ! MODE >
“K2ME41UP>
, BUFR1
<QUMEMIUP> ,BUFR1

409
.

>
TRWM! INTLV>
Q!HM
, <CTC!
<SWR

100140

; TRANSFER DATA IN K2 LOCATIONS TO QBUS MEM
001416
001416

<CARA!CARB
! COP {MODE>
<K2MEM!UP> ,TSTLOC+4
:MELPLTSTLG:M

000140

<SWRQ!HM>, <TRWW! INTLV>

250%:

;CHAIN FILE TO READ TPRO AND TPR1 OF KNOWN GOOD IOP

001412

175740

<CARA
! CARB !COP tMODE>
<QBUSIO!37400!UP>, 175740
5!(2!911WP>, TSTLOC

000140

<SWRQ!HM>, <TRWW!INTLV>

251%:

;CHAIN FILE TO LOAD PARAMETERS INTO TPRS 2 € 3

<CARA ! CARB ! COP !MODE >
<K2MEM!UP>
.WORD
2554

5&1510!37000!&?). 175744

100140

<SWRQ!HM>, <CTC!TRWM!INTLV>

;ISSUE A DMA LOAD COMMAND

<wm!%50 4

021502
177400

175740

iMO!W‘OO!lP). 175740

000030

000140

<SWRQ!HM>, <TRWW!INTLV>

022054
022114
00000

:ADDRESS OF TPRO IN KGIOP

175744

001602
000000

3275
021506
3276 021510
3277
3278 021512
3279

MACRO Y05.02

2358
2564:

L G
WORD 2

(WORD
.m

KG4TO3
>
(m,

WORD

SCHAN
Toes TN 6 S08 remoRy
A L OAD COMMAND FOR KNOUN GOOD TOP TPRO
[

;DMA LOAD COMMAND FOR KNOWN GOOD IOP

CH2STA: ;SUBROUTINE TO POLL THE CHANNEL 2 STATUS REGISTER T0

:MIUTEH’B‘AMMSFMSEDWIFITMSW

I<7

KXJ11-CA FUNCTIONAL TEST
17
Q-BUS INTERFACE

3280 021512
3281 021520
3282 021522
3283 021530
3284
3285 021532
3286 021540
3287 021542
021550

032737
001774
032737
001420

014000
000002

174454
174454

032737
001007
012737
012737

000040

177540

020513
045206

021556 104115

5288 021560
1289 021566
3590 021570
3291 021572

3292 021600
3293 021602
021610
021616

3294 021620

3295

MACRO Y05.02

042737
000262
000413
032737
001007
012737
012737
104116
000207

044746
044752

nuv
MOV

#DMA4 , EMADR
fim.ssma

000040

177580 2%:

BIC

#81I705,39K2CSRS

;CLEAR THE SACK TIME-OUT BIT

000001

174454 1%:

g'xcr

gc,BESTAT2

;WAS TC SET?

044746

MOV

#DMA3,EMADR

020451
045206

177777

005037

001414

3302 021634
3307 021642
3304 021650

012737
012737
004737

021734
000241
021512

102767
737
001357
032737
001410
012737
012737
104117

331§ 8'5’1714
331
1722
3314 021730
3§4L5 021732
3
3317 021734
3318 021734
3319 021736

042737
022737
001341
000207

3311 021712

3320

3330 031746
3322 021750

3584 02175

021754
3325 021756

g!sg? 022016
3328
3329

000407

gg'
ouogg.aosrna
;LOOK FOR THE CAI!NAC BIT TO SET
gg
fi:opLBESTAT2
:MAS THE TRANSFER SUCCESSFUL?
; TRANSFER WAS NOT SUCCESSFUL . unsnmsrosn:xmcmm
gnos, @9K2CSRJ

012737

3305 021654
3306 021656
3307 021662
3308 021664
3309 021672
3310 021674
021702
1710

044752

174454

;; >> ERROR 116, TRANSFER INCOMPLETE, EOP!TC NOT SET
7

;SUBROUTINE TO CHECK TPRO & 1 OF THE KNOWN GOOD IOP AFTER

28:

;ISSUING A @QBUS COMMAND TO IT

MOV
CLR

#-1,TSTLOC
TSTLOC+2

MOV
MOV
JSR

SCHA2L
PC,CH2STA

;INIT TEST LOCATIONS

nwaemtmoe1ormmomsoooIopmnmsmccmrsm.

BVS
'T;ET

osc(:cre S¢CMDR ;ISSUE START CHAIN COMMAND
2¢
Iifl'oc

;:TRY AGIAN IF SACK TIME-OUT IS SET
;IS TPRO OF KNOWN GOOD IOP = ZERO

154000

001414

gswoo.rsnoc.z'

022016
045206

044746
044752

MOV
MOV

#KG.ER,EMADR
#NOSIG,ESADR

. em;%n

33//

177770
000004

001414

&Ig

#1C7,7STLOC+2

;STRIP OFF NON-STATUS BITS

001414

3%:
44

58:
175740

000002
000030

000140

113

MOV #NOSIG.ESADR
ERROR+116

:SET THE V BIT IN PSW

TPRCHK:

000000 001412

116

RTS

001412 1$:

174440

sa\\
1 ERROR 115, TRANSFER INCOMPLETE, EOP SET

001412

001602
140000

000467

Page 87

3299 021622

3300 021630

Thursday 03-Apr-86 14:11

116

RTS

;;\\
;; >> ERROR 117, KNOWN GOOD IOP ERROR

;CHECK TPR O £ 1 OF KNOWN GOOD IOP TO SEE THAT COMMAND WAS SUCCESSFUL

<CARA ! CARB ! COP ! MODE >
<
Lg'ns'uo

Ems

>, ¥stioc

; TRANSFER FROM TPRO & 1 OF KNOWN GOOD IOP

;TO K2 MEMORY

<SWRQ'HM>
, <TRWM! INTLV>

TOPEND:

117

BNE

#4,TSTLOC2
28

;:ANY ERRORS?

040 KGMR:
117

KG.ER:

15710

.ASCIZ

/KNOWN GOOD IOP COMMAND ERROR/

.ASCIZ /NO RESPONSE FROM KNOWN GOOD I0P/

'THE FOLLOMING CHAIN FTLES WILL BE LOADED BY THE KNOWN GOOD I0P.

KXJ11-CA FUNCTIONAL TEST
17
Q@-BUS INTERFACE

3330
3331 022054
3332 022054
3333 022056
3334 022062
3335 022066
gggg 022070

3338 022074
3339 022074
3340 022076
3341 022102
3342 022106
3343 022110
344
3345 022114
3346 022114
3347 022116
3348 022122
3349 022126
gggg 022130

001602
100000
000000
010000
000030

001602
100000
000000
000004
000030
001602
000020
100000
001000
000030

MACRO Y05.02

Thursday 03-Apr-86 14:11

KG$TO1:
061022
061022

<K2MEM!UP>, BUFR1

4096.

<SWRQ!HM>, <CTC!TRWW!BUSHOG>

KG$T02:

001416
001416

;INIT KNOWN GOOD IOP'S TSTLOCS WITH KNOWN DATA

<CARA ! CARB ! COP !MODE>
QBMEM!UP, TSTLOC-4
K2MEM!UP, TSTLOC-4

000040

<SWRQ!HM>, <TRWW!BUSHOG>

KG$TO3:

000040

;INIT KNOWN GOOD IOP‘'S MEMORY WITH KNOWN DATA

<@BMEM!UP>, BUFR1

100040

001416
061022

Page 88

;CAUSE THE KNOWN GOOD IOP TO TRANSFER TO QBUS

<CARA ! CARB ! COP !MODE >
<K2MEMHOLD>, TSTLOC+4

;g.puwn AUFR1

<SWRQ'HM>, <TRWW!BUSHOG>

;TRANSFER FROM KNOWN GOOD IOP MEMORY..

:..T0 @-BUS MEMORY

KXxJ11-CA FUNCTIONAL TEST

T10

MACRO Y05.02

SECOND SERIAL LINE NEC7201

3355

Thursday 03-Apr-86 id4:11

HE
s 22222 22 22 B 2 2 2 2 2 22 2 2 2 R T e e
s 2 S
;*TEST 10
SECOND SERIAL LINE NEC7201
222

022134

000004

022154
022162
022164
022170
022172

032777 000400 156756
001006
005777 157136
000240
102002

022136 012706 001100
022182 012737 177777 002426
022150 005037 044742

;
T

022174
022200

000137
104415

022204 000417
022206
040
3356

Page 89

022244

024602
022206

040

123

222 22

1§T10:

SCOPE

MOV
MOV
CLR
BIT
BNE
ST
NOP
BVC

2222 2 22222

22t

#STACK, SP
i 1 TRAPSY,
cem aSWR
30048%
$SL2
30048$

30047$: JMP
TST11
30048$: TSNAME,

e e T e T ey

ettt

eI T

I I TYTYY

:: SET A CLEAN STACK
:: DISMISS BUS:: CLEAR ERROR PREFIX.
:: FORCED ENTRY SELECTED ?7?
:: BR IF SO.
:: CHECK FOR VALID $SL2.
;3 SKIP NEXT IF OK.

:: BYPASS.
:: PRINT TEST NUMBER AND NAME..

B8R
3oom
.AND SKIP OVER THE ASCII.
ASCIZ \ SECOND SERIAL LINE NEC7201\

30049%
: —
;i kkkkkkkkkbkbknkbk kb bk kb khkhkkkkkkhkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
;#TEST 10.1
H sk

CLOCK GENERATOR 18254

kkkdbdbk kbbb bk

kkkhkkkkkk ok

kkkokkokkkkkkkkkkkkkkkkkkkhhkkkE

ho $54

ggzg

; INCLUDES AN INTEL 8254 TRIPLE PIT FOR BAUD RATE GENERATION.

3333

} NEC7201 SYNC/ASYNC (MULTI-PROTOCOL) SERIAL INTERFACE.

3361

; FIRST, SET UP THE BAUD GENERATOR, AND VERIFY THAT

3u§

; GENERAL PURPOSE TIMER 2 (800HZ) WORKS AS ADVERTISED.

336

3364 022244
022244

012737

022252

3366 022
3367 022264
3368 022266
3369 022272
370
ag
371 02
3§7§ ozssos
3373 022312

012737
000236
112715
112715
112715
013745
113715
013745

022344 002426

3365 oaaggg 012705 175736

3374 oass 6 113715
3375 022322 013745
337; 352
113715
3377

022332

005745

gs;g 3323433
7
101374
33
§3

001110

énwser

MOV
SPL
MOVB
MVB
MOVB
MOV
MOVB
MOV

000066

000166
000264
022474
022475
022476
022477
022476
022477
175720

18:

3305 GIIES0 OleT8r ok o O
022356

022364
022366
022372
022376
022404
3388 022412

;

012737

104120
000137
005037
8&%737
777
005001

045230

044752

024536
002426
38:
022470 000104
000200 156722

MOVB
MOV
MOVB
ST

o
BHI
BR

MOV

+6, $LPERR

ms’nsRS

924, TRAP&X
6
9066,(RS)
166, (R5)
%(m
+-C(RS)
HZB0O+1,(RS)
A4800, - (RS)

m gS)
,-(RS)
uggou.(as)
-(RS)

RS, 9175720
1%
3

eueee
.

#LA16,.ESADR

ERROR+120
JP
NEC.END
CLR
TRAP4X
MOV
#5$ ,PEVNT
BIS
98I17,95CSRA
CLR
R1

;3 LOOP HERE ON ERROR

i I

; SET A TRAP CATCHER.
: RAISE CPU.
; CHAN A'<TIMER-012-BYTES IMODE-3:8IN>.
; CHAN B <TIMER-1!
; 800HZ <TIMER-2! SAME EXCEPT MODE-25
: SET B0OMZ INTERVAL ==
; SET CHAN B
;...AND CHAN A FOR ASYNC 4800 (SYNC 76.8K).
; VERIFY THE REMAINING REGISTER ADDRESSES.

; SO FAR SO GOOD, SKIP OVER THE TRAPPER.
HH

:: >> ERROR 120, BUS ERROR AT 7201 OR 8254 ADDRESS

; RESET BUS-ERROR..
.SET PEVNT VECTOR.
; TORN IT ON.

i e ——. St o e —*j e e —

r——

156662
002542

3401
3402 022474
3403 022476

000002

044746
044752

175736
000104

4%:

; LOWER CPU.
; DELAY, PEVNT SHOULD INTERRUPT AND...
:...GIVE
A FEW TICKS (MORE THAN 1).

#NOSIG,ESADR

i >> ERROR 121, 8254 TIMER 2 (80OHZ) DOESN'T WORK

SNEC2, EMADR

33\

@$CSRA
#260, 32175736
#DISMISS, PEVNT

:...AND TIMER 2 (MODE-0).

INC+1, RTI

; ON INTERRUPT, TICK AND RETURN.

NEC. ASYNC

5%:

Page 90

RO
#PRO
m. R1
43

5 3§§E§§§

022444
3395 022446

047455

045206

[

3391 022422
3392 022424
3393 022426
3394 022430
022436

000000

3389 022414

3390 022416

Thursday 03-Apr-86 14:11

ETEL

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
T10.1
CLOCK GENERATOR 18254

:...RESET
THE VECTOR...

; DIVIDER YIELDS == SOHZ
; DIVIDER YIELDS ASYNC 4800 AND/OR SYNC 76.8K.

KXJ11-CA FUNCTIONAL TEST

T10.2

MACRO Y05.02

SYNC/ASYNC DATA

3‘05

Thursdesy 03-Apr-86 14:11

022500

000004
000005
177774
177776
000000
000002

34.1’23

%00

002
004
003
005
000
001

33:31 022516

177777

3436 022522
;: 7 02

002
004
006

000

wgggzs
%

umaé 02

344
3448
3449
§
u g

005

000
%

1779%

3458

ettt

T T T I

CHA=
CHX=
STAT=
RDB=
CTlRL=
XDB=

%4
#5
-4
-2
O
2

S. CHAN A, SYNC. DMA DRIVEN.

; DEDICATE R& AS "CHAN-A" AND...
:...R5 AS "CHAN-IN-TEST" PORT POINTERS.
; INDICES TO CHAN A/B STATUS...
:...RCVR DATA...
:...CONTROL.
..
:...AND XMTR DATA PORTS

030

024
104
301
152
020
036

030

024
040
000

A.SET:

FUNCTION

0, 030 ; COMMAND
2, 024
4. 104
3. 301
5. 152
0, 020
1. 036

'BYTE
.BYTE
‘BYTE
.g%

<CHANNEL RESET>,

; BUS INTERFACE <NON-VECTORED!PRI1!NO-DMA>.
; PROTOCOL.
<X16!ASYNC-1-STOP !NO-PARITY>.
; RCVR CONTROL <8-BPC!RX-ENAB>.
; XMTR CONTROL <8-BPC!TX-ENAB!PRTYX-B>.
; COMMAND
<RESET-EXT-INTS>,
; INT CONTROL <RXI-ON-ALL!CAV!TX-IE!NO-EXT-IE>.

| SYNC SET-UP R CODE
&.sET: .BYTE 0, 030 ;

'116

FUNCTION

2. 024 ; BUS INTERFACE <NON-VECTORED!PRI1!NO-DMA>.
4. 080 ; PROTOCOL
<X11SDLC ! SYNC INO-PARITY>,
6. 000 ; SYNC 1
<SE
A
-- UNUSED>.
;

'fi

3 SYNC 2

:;LAG 9%»

BYTE 5. 153 :mc,comau. <a-fi§rx-m5'u§cms TYX-B!CRC-ENAB>.

200
100

3§2

.BYTE

.BYTE
BYTE
‘BYTE
BYTE
BYTE
'BYTE

CODE

.BYTE
-BYTE

1, 03 ; INT (:um‘mn.I

<RESET TX-CRC-GEN>.
:assagim;’ s

<RXT-ON-ALL !CAV! TX-IE!NO-EXT-IE>.

.BYTE 1, 004 ; INT CONTROL <KEEP-CAV!DISABLE-ALL-ELSE>
BYTE 3. 300 ; RCVR
<RX-DISABLE>,
BYTE 5, 142 ; XMIR
<TX-DISABLE>.
3
ucc.ns%
MOV ”.ssl.no
; ASYNC MODE FIRST...

012700

NEC.SYNC:

022520

C.CLR:

Iansl

0, 200 ;m
g. ‘1& ;
COM

00
004
%08
900
005
142
177777
cfia%g &gozsoom

3454 022570 oo%m
72

1. CHAN B, ASYNC (4800 BAUD).
2. CHAN A. ASYNC (4800 BAUD).
3. CHAN B. SYNC (76.8K BAUD).
4. CHAN A. SYNC (76.8K BAUD).

; ASYNC SET-UP R

sszg
3438 022520

;
;
;
;
;

022500

T T YTt

: FIVE PASS SYNC/ASYNC DATA TEST (REQUIRES EXTERNAL LOOP-BACKS).

33:%3

02
3426
%7 02
8 022510
ugg 022512
3430 022514

it et e

SYNC/ASYNC DATA

a 2 222 222 2 222 22 22 2222 822 s

110.2::

3409
3410
3411
3412
2415
3416
3417
7418
3417
%’3

HERE L T2 222 2222222 P22 2222 2 22 22 2 g e

;+TEST 10.2

340:g

Page

MOV

7 83
5577% oooommm 156524 NECO1: a'?g'
022610 010037 023254
MOV

NECO1

#S.SET,RO

;...THEN, SYNC (SDLC) MODE...

RO, 8$

:"SAVE POINTER AS SYNC/ASYNC FLAG.

“%“cmi

REQUIRES <SYNCMA!-SYNCMB> IN CSRA

KXJ11-CA FUNCTIONAL TEST

T10.2

MACRO Y05.02

SYNC/ASYNC DATA

Thursday 03-Apr-86 14:11

3459 022614 012737 047531 044742

MOV

SNECCM,EMPRE

2461 022630

MOVB

R1,NECM

3460 022622 112737

000102 047536

#'B,NECC

:...CHAN B...

3462 022634 012737
3463 022642 012706
3464 022646 013704
3465 022652 062704
3466 022656 010405
3467 022660 062705

022642 001110
001100
00

#.+6, SLPERR
#STACK,
SP
$5L2,CHA
24, CHA
CHA, CHX
#10. CHX

:. .. ASYNC/SYNC

000010

MOV
MOV
MOV
ADD
MOV
ADD

:: LOOP HERE ON ERROR
; GET NEC7201
:...AND RAISE TO CHAN-A CONTROL PORT.
: COPY...
:...AND
RAISE TO CHAN-B CONTROL PORT.

116014 000001

MOVB

1(RO).(CHA)

; COMMAND <CHAN-A-RESET (INCLUDES INT LOGIC)>.

112015

MOVE

110137

3468 022664 111014
3469 022666

3470 022672

000240

3472 022700

112015

2471 022676

047541

3477 022716
3478 022720
3479 022722

2480 022724
3481 022726
ué 022
3483 022736
3484 022740
3485 022742
3486 022746
7 022
022
3489 8327
3490 2;95
349
2
349 8§§ooo
3493 023004
3494 023006

106427
112014
112014

112015
112015
105710

100374
012703
012700
005023
077002
012703
012702
37
37
005037
005037
012737
106427
005000
012701

MOVB

000240

3473 022702 000240 000240

3474 022706
3475 022712
3476 022714

MOVE

000200

240,240

MOVB

1%:

2s:

061022

000020

3$:

061022
037600
001124
001126
001130
001132
023674 000070

000000

000001

9
3035
727 023254 022520
33 023030
001405
023032
020127 011022
4$:

033035 Oo143%
oaggw 077004

ggg‘ 023042 000416
3505

3508

023054

105737

gfi 100410

110137

MIPS
MOVB
MOVBE

MOVB
MOVB

001132

418:

001124

43§%:

(RO),(CHA)

(RO)s,(CHX)

;

WAIT A MOMENT.

CRO)+.(CHX)

; COMMAND <CHAN-B-RESET>.

4PR4
(RO)+.(CHA)
C(RO)+.(CHA)

: RAISE CPU.
; POINT...
:...AND SET BUS-INTERFACE (CR2A ALWAYS).

(ROJ+.(CHX)
(RO)+.(CHX)
(RO)

;

WAIT AGAIN.

; POINT...
:...AND SET-UP THE REST.

BPL
MOV
MOV
CLR
S0B
MOV
MOV
CLR
CLR
CLR
CLR
MOV
MTPS
CLR
MOV

23
#BUFR1,R3
#16. ,RO
(R3)+
RO, 3¢
#BUFR1,R3
$FLT10.R2
$GDDAT
$BDDAT
$BDDAT +2
$BDDAT
+4
ONEC . I,NECV
PRO
RO
#1,R1

cHP
BEQ
cHP

84,95, SET
; SYNC MODE ?
414
:
: BR IF SO.
R1,8<18.#B178>:18. ; ASYNC -- 18 BYTES TRANSFERRED 77

MOVB
MOVB

; CLEAR SOME FREE SPACE.
; RCV BUFFER POINTER => R3.
; XMT BUFFER POINTER => R2.
; CLEAR FOR EXP'D...
:...AND REC’'D DATA...
;...AND FINAL STATUS.
; SET VECTOR...

:...LOMER CPU.

: INIT BYTE COUNTS (RCV=0, XMT=1)...

(R2)+,XDBCCHX) ;...XMIT 1ST BYTE...
#<3+BIT6>,(CHX) ;...AND COMMAND <RESET-IDLE/CRC-LATCH>.

BEQ
S08

44}
RO,4$

: BR IF SO.
; ELSE, HANG-AROUND.

BMI

TSTB

$BDDAT+4

; BR IF SO.

BEQ

aaé

: P‘&EED IF SO.

R1, $GDDAT

; SENT THIS MANY...

B8R

077004
012737 047625 044746
gw 2&5}3} 045610 044752
023072 020127 012022
42
000301

240,240

1STE

3495 023012 112265 000002
gog g‘gsou g 715 000300

3 01
3

S0B
MOV
MOV

43§

: ASYNC WAIT LOOP TIME-OUT.
; SYNC -- <EOF> RECEIVED 2?7

RO,41$
; ELSE, SAME-OLE-CRAP,
ONEC3A,EMADR
;;\\
cfrzéx.ésm
5 > ERROR 122, <EOF-SDLC> NOT RECEIVED
M‘
]
R1,#<20.#BIT8!18.> ; BYTE COUNTS RIGHT 7?
CMP

MOVB

SWAB

KXJ11-CA FUNCTIONAL TEST
T10.2
SYNC/ASYNC DATA

3514 023106
3515 023112
023120
023126

110137
012737
012737
104123

MACRO Y05.02

001126
047574
045556

Thursday 03-Apr-86 14:11

044746
044752

aas:

455:

000101
023254

;3 BR
NOP

MOV
MOV

MOV

$FLT10,R2
#BUFR1 .R3

BEQ
MOV
MOVB
MOVE

46%
R3, $GDADR
(R3),$BDDAT
(R2).$GDDAT

MOV

#EF2,ESADR

CMPB

MOV

044746
044752

022550

R1,$BDDAT
SNEC3,EMADR
#EF10.ESADR

ERROR+123

000240
012701

MOVE
MOV
MOV

(R3),(R2)

:...AND RECEIVED THIS MANY.
Stk
:: >> ERROR 123, LOOP TIME-OUT, DATA XFER INCOMPLETE

1327

; POINT TO XMT'D...
:...AND REC'D DATA BUFFERS.

: "RECV'D SAME AS THAT XMIT'D ??
: BR IF SO.

#NEC4,EMADR

i3 >> ERROR 124, RECEIVED DATA INCORRECT

46s:

CMPB

SOB

R1,45%

(R3)s+,(R2)s

: BUMP.
..

MOV

#C.CLR,RO

; DONE, CLEAN-UP TABLE POINTER => RO.

MOVB
TSTB

(RO)+.(CHX)
(RO)

:...AND CLEAR (RESET) AS NECESSARY.

64:

047536

7¢:

8s:

MOVB

BPL
P
BEQ
MOV
MOVB
ngv
ST
BR
o

A,SET

BEQ

022572

#18. ,R1

Page 93

(RO)s,(CHX)

CHX, CHA
7%
CHA, CHX
&' A.NECC
83,RO
(RO)+
1#
#S.SET,(PC)+
NEC.DMA

NEC . SYNC

:...AND LOOP

; POINT...

; BOTH CHANNELS DONE 7?7
: BR IF SO,
: ELSE, POINT TO CHAN A...
:...ADJUST ERROR PREFIX.
..
:...GET SET-UP
=>'RO..
:...BUMPAST THE CHAN-RESET..
3...AND GO 'ROUND ONCE.
; SYNC MODE DONE 2?7
; SKIP IF SO..

i...ELSE, DO IT NOM.

| NOW ONCE MORE USING DMA (ASSUMING THAT 8016 IS

; THE 7201 CHIP IS STILL SET-UP FOR “CHAN
A SYNC”

023272
000200
023316
000004

001110

NEC
. DMA:

1:
2¢:

016
061022

3%:

- AND WELL).
:

#.+6, SLPERR

;3 LOOP HERE ON ERROR.

MOV

024,R1

; ADJUST CHAN A SET-UP.

e
8

Re.s

E3§3°E%3

}i THE
PORND FOLLOWING
CHARGE 4 REGISTERS.

.BYTE

2, 025

; CHANGE BUS-INTERFACE TO <CHAN-A-DMA>

BYTE

1. 016

i "GHANGE INT CONTROL TO <RXI-ON-1ST-CHAR>

MOV

o4, R2

’.

BIE 5. 15

MOV

#BUFR1,RO

[

P ENAGTR,

{

KXJ11-CA FUNCTIONAL TEST

110.2

SYNC/ASYNC DATA

3566 023332 012701
3567 023336 005020
3568 023340 077102
3569 023342 012737
3570 023350 012737
3571 023356 005005
3572 023360 005065
3573 023364 012765
3574 023372 012765
3575 023400 012765
3576 023406 005065
3577 023412 005065
3578 023416 012765
3579 023424 012765
3580 023432 012765
3581 023440 012765
3582 023446 000420
3583 023450 001602
3584 023452

000000

000020
024026
047551
174454
000115
000074
000075
174446
174444
023450
023470
000240
000241

040020
000022
000020
001602
040020
000000

175703
061022

gggg 023

000000

001201

3504 023510

112714

000300

3506 023516
3597 023520

106400
032765

020000

3595 023514 005000

174470
174454
174454
174440
174442
174454
174454
43:

175707

001201

3 98
ozsggg 001001
077005
seox ozsgsz 016500 174462
ssog
ozs 00142
012737

000070
044742

037600

3585 023456
3586 023462
3587 023464
3588 023470
3589 023472
3500 023476

3591 023502 000024

MACRO Y05.02

000024

5%:

64:
174456

7%:

8s:

3607

044746

023602

104125

047574

g}u 023614 012702 000022
gjx
14

121011

3615 02

RIS

2 oosa 5
010137 001120

023646

023654

3618 023656

111037

001124

012737

045210 044752

12¢:

122021

8¢
RO,7$
comRS).no
ns

; OPK --- 20 BYTES (18 DATA + 2 CRC).

RO
#IP,STATL(RS)

;...LOWER CPU,
;...AND WAIT FOR CHAN1 (RCVR) DONE.

; GET RCVR (CHAN1) BYTES REMAINING.
: BR IF NONE (ALL RECEIVED).

céuon

MOV

ONEC3,EMADR

+125

i3//

#EF10.ESADR

OFLT10,RO
#BUFR1,R1

(RO).(R1)

MOV

; ELSE, CALCULATE BYTES RCVD (CHANL OP COUNT)...

m $GDDAT
COP2(RS), $GODAT ;...VERSUS BYTES XMTD (CHAN2 OP COUNT).

MOV
MOV

#18. ,R2

;3 >> ERROR 125, DMA DATA XFER INCOMPLETE

; CHECK DATA.

BEQ
MOV

13$
R1, $GDADR

SRR

MOV

13¢:

; FROM -- 7201 RDB(LB),
NO AUTO-INCR.
; T0 ---- BUFFER 1.

SUB

MOVB

MUY NS 0,
104126

BNE
S08
MOV
BEQ

MOV

118:

: T0 ---- 7201 XDB(LB), NO AUTO-INCR.
; OPK --- 18 BYTES.
; MODE -- SFT-REQ,IP-ON-TC!EOP,SNGL,BYTE-BYTE.

#<34BIT6>,(CHA) ; COMMAND <RESET-IDLE/CRC-LATCH>...

MIPS
BIT

; FROM -- DATA TABLE.

; MODE -- SAME AS ABOVE (EXCEPT NO SFT-REQ).

CLR

MOV
SUB

045556 044752

3609!
008 3604 012700 037600
3610 8§3610 012701 061022
1§

<K2I0!HOLD>, 175706+1
18.
SWRQ, 1201
1602
<K2I0IHOLD>, 175702+1
0, BUFR1

MOV

3605 023552 012737 000022 001124
ssog 023
166537 174460 001124
012737

0, FLT10

MOVB

Page 94

216. .R1
(RO)+
; CLEAR RECEIVING BUFFER.
R1,.-2
SIXIT+2,NECV
; CHANGE THE VECTOR CINTS DISMISSED).
SNECDM,
: CHANGE THE ERROR PREFIX.
RS
: SET-UP
THE DMA ENGINE.
CMDR(RS)
: CHIP RESET.
#115,MMR(RS)
: SET MASTER MODE <VI'WAIT!CPINTLV!ENAB>.
#40134,CMDR(RS) ; CLEAR IE'S...
#41134.CMDR(RS) ;.. .BOTH CHANNELS.
CHALH(RS)
: CLEAR HI CHAIN ADDRESS...
R5)
:...BOTH CHANNELS.
#4$,CHA2L(RS) ; SET CHAN 2 (XMT)...
#5$ .CHAIL(RS) ;...AND CHAN 1 (RCV) CHAIN ADDRESSES.
#SCCCH1, CMDRCRS) :ISSUE START CHAIN COMMAND CHAN 1 CRCVR).
#SCCCH2,CMDRCRS);ISSUE START CHAIN COMMAND CHAN 2 (XMTR).
6%
; CHAIN-LOAD ARA, ARB, OPK, AND CH-MODE.

0, 1201

001126

023574 012737

MOV
CLR
S08
MOV
MOV
CLR
CLR
MOV
MOV
MOV
CLR
CLR
MOV
MOV
MOV
MOV
BR
1602

20.

3604 oa546 160037 001126
023

Thursday 03-Apr-86 14:11

CMPB

} BR IF OK.

(RO),$GDDAT
#EF2,ESADR

(RO)+.(R1)+

; m

+126

15y ERROR 126, RECEIVED DATA (DMA) INCORRECT

h KXJ11-CA FUNCTIONAL TEST
T10.2

SYNC/ASYNC DATA

3619 023660
3620

MACRO Y05.02

077221
005077
005065
000460

155446
174454

Thursday 03-Apr-86 14:11

Page 95

SoB

R2,12%

i...AND LOOP.

CLR

@$CSRA

; ALL DONE -- FINALLY, CLEAR CSRA...

NEC.MDM

i...AND PROCEED TO MODEM CONTROL TEST.

SYNC/ASYNC INTERRUPT HANDLER (DATA TESTS ONLY).
BYTE COUNTS MAINTAINED IN R1 (LO=XMT, HI=RCV).

3642 023740

112764
116446
006016
103421
006016
103412

000002
000004

120127
001404
112265

000022

105201
000434
112715
000431

000010

NEC.I:

ITX:

(SP)
ISEXT

: BIT O => “C". ..
:...AND
BR IF SPEC/EXT (1, 3, S, OR 7).

BCS

IRX

:...AND
BR IF RCVR (2 OR 6)...

CMPB

R1,#18.

177776
000400

IRX:

116537
112715
116537
100407
012737
012737
104127
112715
112715

177774
000001
177774

001132

047655
045610

044746
044752

000060
000020
000070

BEQ

MOVB

000002

116523
062701
000424

000002

; INTERRUPT -- POINT TO SR2B...

ROR

1%:

112714

#2,10(CHA)

ROR
BCS

000050

005726

MOVB

MOVEB

001130

ISEXT:

(R2)+,XDB(CHX)

; BIT 1 => C», ..

; XMIT -- ANYTHING LEFT ??

; BR IF NOT.

IXIT

:...AND RETURN

MOVB

RDBCCHX),(R3)+

; RCVR -- STUFF THE CHAR...

#<S5sBIT3>,(CHX) ; XMIT DONE, COMMAND <RESET-TXIP>...

ADD
BR

#<1+BIT8>,R1
IXIT

MOVB
MOVEB

STAT(CHX),$BDDAT+2 ; SPECIAL/EXTERNAL, GET SRO...
#1,(CHX)

;...AND COUNT IT.

MOV

#NECS ,EMADR

STATCCHX),$BDDAT+4 ;...AND SR1.
1
;: JUST RETURN IF <SDLC-EOF>.
#EF11,ESADR

ERROR+127

:3\\

i >> ERROR 127, UNEXPECTED EXT OR ERROR INTERRUPT

13//

MOVB

#<6+BIT3>,(CHX) ; COMMAND <RESET-ERROR>...

(SP)+

MOVB

RTI

; SEND NEXT BYTE...

:...AND COUNT IT.

MOVB

:...ELSE FALL THRU (O OR 4).

%lm,

MOV

IXIT:

(SP)

MOVB
BMI
1%:

STAT+10(CHA).-(SP) ;...AND PUSH VECT/COND.

#<2#BIT3>,(CHX) ;...AND <RESET-EXTERNAL>.

; FIX THE STACK.

#<7#BIT3>,(CHA) ; SIGNAL <END-OF -INTERRUPT>,

:...AND RETURN,

fl
|

KXJ11-CA FUNCTIONAL TEST

7T10.3

MODEM CONTROLS

MACRO Y05.02

Thursday 03-Apr-86 14:11

sttt dnnaes t

;*TEST 10.3

222222 22 2 2

e sa s 2222222 2222 222 2

NEC
. MDM:

1%:

3669 024064
3670 024070
3671 024074
3672 024100
3673 024104
3674 024110
3675 024116
3676 024124
3677 024126
g],g 024130

112714
112715
112714
112715
012737
012737
005003
005000
106400

000021
000021
000005
000005
047721
024546

222 2

222222

eIy

; REDEFINE
RS AS CHAN B POINTER.

MOV
MTPS
MOV
ADD

8.+6, SLPEN®
#PR4
CHA,CHE
#10,CHB

:: LOOP HERE ON ERROR.
: RAISE CPU.

: SET CHAN B POINTER.

MOVB
MOVB
CALL

#<34BIT3>,(CHA) ; <CHAN-RESET>.
#<3+BIT3>.(CHB)
D100
DELAY 100US (MORE OR LESS).

MOVB

#<2+BIT3>11,(CHB)

MOV
MOV
CLR
CLR

SNECMM,EMPRE
SNEC.EX,NECV
R3
RO

MOVE

044742 2%:
000070

22 2

MODEM CONTROLS

710.3::
cHB=
#5

001110

222 2

Page 96

MOVB
MOVB

MTPS

#<2+BIT3>11,(CHA); <RESET-EXT>, POINT 70 CRi..

45.(CHA)
#5.(CHB)

:...AND SET <CAV!INT-ON-EXT>.

: LOWER CPU.

; SET ERROR PREFIX.
; SET THE VECTOR.
; *x% DEBUG, COUNT INTERRUPTS IN R3.
: 250 MSEC KEEP-ALIVE TIMER.

; FIRST, TEST <REQ-TO-SEND>, <CLR-TO-SEND> AND <RCVR-READY>.

3681
3682 024132
3683 024136

005037
005037

3686 024152

105737

077004

170
02417

012737
133;30

3689 0%:192
3690
1

012737

032737
001404

0242
0242

012737

01277/
10413,

is.

001126
001130
000005
000002
001126

4%:

045206

047746

044746
044752

000040

001126

001126
(45646

5$:

044746
044752

CLR

$BDDAT

; CLEAR A SPACE FOR SROCA)...

MOVB
MOVB

#5,(CHA)
#2,(CHA)

: POINT TO CRS(A)..
:...AND SET <REQ-TO-SEND>.

BNE
S0B
MOV
MOV

5$
RO,4$
&NEC6,EMADR
%Ié.eswa

; BR IF SO.
13\
T ERROR 130, STATUS INTERRUPT NOT RECEIVED

gg‘

z?ns.osoon

; SHOULD HAVE <CLR-TO-SEND>...

BIT
BNE
MOV
MOV

#BIT3,$BDDAT
74
ONEC7, m
#EF12

CLR

1ST8

$BDDAT +2
$BODAT

m’

m0131

.AND SRO(B).

; SHOULD GET SROCA) STATUS INTERRUPT.

;...AND <RCVR-READY>.
3\
:: >> ERROR 131, STATUS WRONG WITH REQ-TO-SEND SET
:3/7

! NEXT, TEST CSRA<TT108/2> AND <DATA-MODE> BITS.

98
36 005037 001130
g;”
3342 112777 000010 155064 %$:
3700

105737

001130

024260

012737

047746

3704 024276

032737

000010

3703

012737

045206

8s:

044746
044752

001130 9%:

CLR

$BDDAT.2
BDDAT+2

MOV
TSTB
BNE

oans @$CSRA

:gfn.woonoz : suu.o HAVE <DATA-MODE>.
..

s%v néos
MOV 1321é
ESADR

SET <TT108/2>.
: BR IF SO.

} SHOULD GET SROCB) STATUS INTERRUPT.

W
:: > ERROR 132, STATUS INT NOT RECEIVED

KXJ11-CA FUNCTIONAL TEST
710.3
MODEM CONTROLS

3706 024306
3707 024314
3708 024316
024316
024324
024332
3709
3710
3711
3712 024334
3713 024340
3714 024346
3715 02432
3716 024357
3717 024356

032737
001407

000040

012737
012737

050040
045646

104133

3733 024470
3734 024476

BIT

001130
044746
044752

Thursday 03-Apr-86 14:11

10%:

BEQ

MOV
MOV

Page 97

#BITS,$BDDAT+2 ;...AND NOT <INCOMING-CALL>.
11

#NECS,EMADR
#EF12.ESADR

ERROR-+133

;3\
:: >> ERROR 133, STATUS WRONG WITH TT108/2 SET

s3/7

; NEXT, TEST CSRA<TERM-IN-SERV>, CSRB<TT142> AND <INCOMING-CALL>.
005037
052777

105737
001010

024364
024372

3718 024374
3719 024402
3720 024404
3721 024412
3722 024414
024414
024422
024430
3723
3724
3725
3726 024432
3727 024440
3728 024444
3729 024450
3730 024454
3731 024460
3732 024464

MACRO Y05.02

001130
000020
00113¢

154766

047746
045206

044746
044752

000001

154734
001130

050110
045646

0:4746

044752

i1s:
12%:

CLR

$BDDAT+2

BIS
;fi{“

#BIT4,85CSRA
:ggonroz

S0B

RO,12%

MOV

#NEC6,EMADR

#NOSIG,ESADR

ERROR+134

; SET <TERM.IN-SERV>.
: SHOULD GET ANOTHER SRO(B) CHANGE.

:i\\
:;

>> ERROR 134, STATUS INT NOT RECEIVED

i://

134:

géa

:g{To.ascsaa

; SHOULD HAVE <TT142> IN CSRB...

BIT
BNE

#BITS, $BDDAT+2
15$

;...AND <INCOMING-CALL>.

&NEC9,EMADR

33\

’

MOV

MOV
#EF12.ESADR
ERROR+135

i: >> ERROR 135, STATUS WRONG WITH TERM-IN-SERV SET
7

; FINALLY, TURN ALL THAT STUFF OFF 11111
000010
037564

154674

fss:

BIC

#BIT3.B$CSRA

; CLEAR <TT108/2>

@$CSRA
D100
#5,(CHA)
#0,(CHA)

; CLEAR <TERM-IN-SERV>.
;
DELAY.
; POINT TO CRSCA)..
:...AND CLEAR <REQ-T0-SEND>.

CALL

D100

CALL

CLR
CALL
MOVE
MOVB

;

DELAY.

004737
112714
112714
004737
032737
001004
032737
001407

037564
000050

001126

3&{

D100

000050

001130

25}

oaxts BIT3,$BODAT+2 ;...AND <IC!DM> IN SRO(B) AS WELL.

012737
012737

050165
045646

044746
044752

MOV

ONEC10,EMADR

037564

112%14 000030
112715

012737
000416

002542

16%:

17¢:
000070

MOV

MOVE

DELAY.

00115'3113 $BODAT ; <CSIRR> IN SROCA) SHOULD BE CLEAR

ae;gz
LESADR

i 2 ERROR 136, STATUS WRONG WITH EVERYTHING OFF

0<3~3113>.(cung . ALL DONE, RESET THE CHIP...

MOVB

#<3»BIT73>,(CHB

TST11

NEC.END: MOV

;;\\

ooxsnxss NECV

;...AND THE VECTOR.

s sNEXT TEST.

: EXTERNAL (MODEM CONTROLS) INTERRUPT HANDLER.
005203
112714
112715
116437
116537
112714
000002

NEC.EX: INC

MOVB

177774
177774
000070

001126
001130

R3
@<

; »&% DEBUG, COUNT THE INTERRUPTS.

».(cung ; COMMAND <RESET-EXTERNAL>.

R
Ry
#<78IT3>.(CHA) ; S
<END-OF - INTI

nmu

o0 e

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
PARALLEL 1/0 PORT Z8036
Ti1

3754

Thursday CX-Apr-86 14:11

atnaaneae s

;+TEST 11
RSt 22 222 2 2

001100

177777
044742

TST11:

002426

154310

154472
026220
024654

3760 024714

3761 024722

3762 024726
3763 024732
3764 024736
3765 024744
3766
024750
3767 024752
3768 024756
3769 024764
3770
3771 024766

3772

377

024772

024776

3
3777 025010
3778
14

R 222

MOV
#STACK, SP
MOV
2-1, TRAPAX
CLR
EMPRE
BIT
7BITS,aSWR
BNE
30051¢
'rg
asPI0
BVC
30051 ¢
300508: JMP
TsTiz
30051%: TSNAME, .+4
B8R
300524
300525:

PARALLEL 1/0 PORT 28036

SCOPE

ASCIZ

3755
3756
3757
3758
3759 024706

2L L2 L2 2 2 2 222 222 2 2222 22

22 222 22

-EVEN

Page 98

Tty

T Y

YT}

:: SET A CLEAN STACK.
:: DISMISS BUS-ERRORS
::
CLEAR ERROR PREFIX.
FORCED ENTRY SELECTED 7?
:: BR IF SO.
:: CHECK FOR VALID $PIO.
;3 SKIP NEXT IF OK
:: BYPASS.
:: PRINT TEST NUMBER AND NAME..
.AND SKIP OVER THE ASCII.

PARALLEL I/0 PORT Z8036\

: ZILOG 8036 CHIP HAS 48 REGISTERS.
; RESET THE CHIP AND VERIFY THAT ALL REGISTERS RETURN ZERO.
012737
012737
012704
013705
005037
012737
112715
40
111537
023737
000410

005037

112715

024714
025044
000060
001330
001126
000001
000001

001126
001124

001110
002426

001124

(RS), $BDDAT

: READ IT BACK..

; IF IT TRAPS, WE'RE DEAD.
;...SHOULD
SEE THE 1 BIT.

¢-1,(RS)

$GDDAT

24:

g\.p
BEQ

(RS), $BDDAT
33

;...AND READS RETURN ZERO.
: BR IF OK.

#EF2,ESADR

'%v

MOV

002426

026046

: SET “CHIP-RESET” IN MICR.

1%:

044746
044752

cooln $BDDAT

#1.(RS5)

: CHECK IT AT 2%.
; EXPECT O FROM ALL THE REST.

3%:

001120
050232
045230

:; LOOP HERE ON ERROR
; SET TRAP RETURN.
; CHECK 48 REGISTERS..
:...STARTING' “RE.

BR
CLR

001126
001120
050257
045210

#.+6, $LPERR
24%, TRAPAX
248 R4
$PI0.RS
$BDDAT
#1, $GDDAT

MOVB

001126

001124
177777

MOV
MOV
MOV
CLR
MOV
MOVB
240
MOV

44:

ni
02, EMADR

ERROR+137
(R5)+
S0B
“
CLR
TRAP&X
18T

; WRITES SHOULD BE IGNORED...

;3 >> ERROR 137, RESET STATE INCORRECT

Y,
; rexv ADDRESS..
;.
LOOP ‘TIL DONE.
;
nesa TRAP CATCHER..

B8R
PIOT
MOV
MOV wim.
MOV
#LA16.ESADR

£ mS GO ON.
33\
;3 >> ERROR
140, BUS ERROR ON PIO ADDDRESS

JMP

: NEXT TEST

mom

ENDPIO

1377

KXJ11-CA FUNCTIONAL TEST
Ti1.1
COUNTER/TIMERS

MACRO Y05.02

3788

Thursday 03-Apr-86 14:11

ittt tdtndannt s t 22 L 2222 2

;%1EST 11.1
D

22222 22

COUNTER/TIMERS
e

e ST

TSR

MIC=
MCC=

CTv=
CIMsS=
C1CS=
CT71C=
CTCC=

000
002

; MASTER INTERRUPT
=
; MASTER CONFIGURATION CONTROL REG

010
070
024
054
040

;
;
;
;
;

TIMER(S) INTERRUPT VCTTOR REG.
1ST (OF 3) TIiiéR MODt SPEC REG.
1ST (OF 3) TIMER CMD/STATUS REG.
1ST (OF 6) TIME CONSTANT REG (3 PAIR).
157 {OF &) CURRENT COUNT REG (3 PAIR).

: VERIFY THAT EACH TIMER FUNCTIONS AS ADVERTISED.
; CHIP
IS “RESET”
ON ENTRY AND EXIT.

éIOT :

013705
142715
(10504

012703
005024
077302
112715
112765
112765

1%:

044742
050323
001110

$PIO0,RS5
RS.R4
#48. ,R3
(R&)+
R3,1%

; GET BASE ADDRESS.

MOVB

#PEVNT,CTV(RS)

; SET TO VECTOR THRU "PEVNT*.

MOVB

000010
000002

062705
012737
112737

MOV
BICB
MOV
MOV
CLR
S0B
MOVB

24:

000001

000240
012737

044746
044752

050356

044746

ONCE-ONLY..

MOV

#4,R1

; SET A 1 SECOND KEEP-ALIVE TIMER.

MOVB

#306,(R5)

i...AND SET -mscswca*

240
BITB
BNE
S0B
BR

oPR4

#40,(RS)

BITB

BEQ

MOV

; CLEAR "IUS!IP",.

i...TIMER SHOULD TAKE-OFFi
: TIMER RUNNING (CIP=1) n
: BR IF SO.

#PI03,EMADR
#NOSIG.ESADR

35\\
;; >> ERROR 141, TIMER DIDN'T START

2
RO,1$
74

#1,(R5)

RO,2$
ONOSIG.ESADR

= m,,?z

NOP

; RAISE CPU TO PIO LEVEL.

#1,(RS)

ERROR+141

MOV

3$:

:...CTMS = 0 = PULSE-OUT,

; SET VECTOR.

S0B

050342
045206

; ENABLE ALL 3 TIMERS..

ggo.vsvm

MOV
MOV

044746
044752

: SET "MASTER INT ENAB".

MOVB

050326
045206

#160,MCCCRS)

;...AND CLEAR ALL REGISTERS.

#CTCS.RS
SPITN.EMPRE
#'1,PITX
8. +6, $LPERR
#STACK,
SP
RS

MTPS

1%:

#200,(RS)

; CLEAR "CHIP-RESET"...

:...CTTC = 0 = TIME K 65536
; NOW RAISE RS TO 1ST TIMER CSR.
; SET ERROR PREFIX..
:...AND INIT ASCII TIMER NUMBER.
;1 LOOP HERE ON ERROR.
; SAVE CURRENT CSR ADDRESS.

ADD
MOV
MOVB
MOV
MOV
PIOT1: MOV

000104

#1,(RS)

oPIOS,EMADR

33//

: ABORT.

; TIMER DONE (CIP=0) ?7?

; BR IF SO.
id

;; >> ERROR 142, TIMER NEVER STOPS.

33//

; INTERRUPT -- SHOULD HAVE BEEN MASKED.

$3\\

3803 025102
3804 025104
3805 025110
3806 025112

Page 99

T11.1::

025072

3789
3790 3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801 025072
3802 025076

—

KXJ11-CA FUNCTIONAL TEST
Ti1.1
COUNTER/TIMERS

025316
025324
33333’3 025326

012737
104143
000416

3840 025330

012737
106427
000240
012737
012737
104144
000401

022626
012715
012715
005725

3852 025412
3853
3854 025414
38355 025422
3856

045206

M-CRO Y05.02

044752

Thursday 03-Apr-86 14:11

MOV
BR

025364

000104

050416
045206

044746

000000

44$:58:

MOV

7%:

cHP

MOV

050323
050323

00063

112777
012737

000001
002542

000104

153706

#6$ ,PEVNT

#PI06,EMADR

#NOSIG,ESADR

(SP)+,(SP)+

#40,(R5)

; INTERRUPT -- FIX THE STACK.
: CLEAR "TUS!IP!GCB".
.
.AND “IE" (TIMER OFF).
BUP TO NEXT TIMER O‘D/STAT
..BUMP ASCII T0O..

MOV

#160,(R5)

INCB
CcMPB

PITX
PITX,#'3
PIOT1

;...AND LOOP 'TIL ALL 3 DONE.

MOVB

#1,9¢PI0

TI'EN RESET THE CHIP..
..PEVNT VECTOR..
..AND FALL THRU TO DATA TEST.

TST

105237
123727
101665

:;/;> ERROR 143, PIO INTERRUPT LEVEL INCORRECT.

ERROR+144
SKP1

6%:
000160

MOV

240

044752

#NOSIG,ESADR

ERROR+143

Page 100

BLOS
MOV

(R3)+

#DISMISS,PEVNT

KXJ11-CA FUNCTIONAL TEST
T11.2
DATA PORTS

3858

MACRO Y05.02

Thursday 03-Apr-86 14:11

i s adhaatand e

;#TEST 11.2

st L2222

22222

222 22

Page 101

T Y

DATA PORTS

%iIt;tttttttttt‘tttttt‘tt“tt‘tttttttttt‘tttt‘ttttttttt‘tttttttt‘

1860
3861
2862
3863
2864

000004
000020
000032
000100
000102

2866
3867
3868
3869
3870
3871
1872
2873
3874

000022
000034
000120
000122
000014
000036
000140
164377
165400

;...CMD/STATUS. . .
:...DATA BUFFER..
:...MODE..
:...AND mswce SPEC.

PBHS=
PCOD=
PCDB=
XCVR=
AI.BO=
AD.BI=

122
014
036
140
<350#BIT8>!377
<353+BIT8>!0

:...AND HANDSHAKE SPEC.
; PORT C DATA DIRECTION..
:...AND BUFFER (HANDSHAKE BITS).
;: 1ST REGISTER ABOVE THE CHIP HOLDS..
;...XCVR CONTROL BITS TTL/ACIN)'BCOUT).
;
DITTO
TTLZACOUT
) !BCIN).

PBV=
PBCS=
PBDB=

03652 00504

3909

012703
005037

061022
037600
037576

PIOD3:

14:

MOV

MOV
MTPS
MOVB
MOV
MOV
CR
S08
MOV
MOV
CLR

(R5)

#AT,PIOAV

P(AII#EC DIRECTION ALWAYS "IN“.

#FLT10.R3

CLEAR SOME FREE SPACE.
o

3908

025624
001100
000200
000377
061022
000020

MOVB
MOVB
MOVB
MOVB
MOVB
MOV
BR
MOV
MOVB
MOVB
MOVB
MOV

wionvPAV(RS) ;
¢PI0BV ,PBV

012737
015706
106427
112765

PIOD2:

MOV
MOVB
MOVB

$PI0,RS

#1,(RS)

012757
112765
113768
112765
013763

BICB
MOV
MOV
MOV
MOV

PIOD1:

MOV

.;g? §§§§ :it

p10D:

013705
143715
013765
012765
012737
012737
012737
112763

e 006433
e
3804 033350

; PORT B VECTOR..
:...CMD/STATUS..
:...DATA BUFFER.
.

; CHIP
IS “RESET”
ON ENTRY AND EXIT.

119763
115768

5895 025360
3896 093366
3897 038574
3898 093602
3899
093610
3900
033616
16
3901
902
3%

006
022
034

: *s% DATA PORT(S) TEST REQUIRES EXTERNAL LOOP-BACK CONNECTOR ###

3688 053553 1157¢8
3809 033538 115708
3890 095836
91 053584

; PORT A VECTOR...

020
032
100
102

;3 258888

3875
3876
3877
3878
3879 025430
3880 095434
3881 095440
2 O
3885 093454
025468
8
3885 095470
s8s6 025476

004

PACS=
PADB=
PAMS=
PAHS=

3865

PAV=

80
Le

3859

025430

Y BiEEE o - 23
ufi%m. y

KxJ11-CA FUNCTIONAL TEST
T11.2
DATA PORTS

005037
005037
112715

CLR
CLR
MOVB
MOVB

001124

000002

112765

011022

037576
037577

045556

2%:

001124
001126
044746
044752
3s:

000100

026012

3932

026020

112715

005065
012737
013737

000001

002542
000160

000464

43:

; SET *MIE*.
..

:...AND

£ ALL THREE PORTS.

PADB(RS).RO

CLR
o
BEQ
S08
240
MOVB
MOVB
MOV
MOV

R2
:...DATA SHOULD START TO FLOM.
BYTES,#<18.sBIT8>1i8. ; 18 BYTES TRANSFERRED 2?
38
: BR IF SO.
R2,2$
; AANG-AROUND.
..
:...FOR A WHILE.
BYTES,$GDDAT
: SENT...
BYTES+1,$BDDAT ;...VS RECEIVED
#PIO07.EMADR
3\
#EF10.ESADR
:: >> ERROR 145, LOOP TIME-OUT, DATA XFER INCOMPLETE

PBDB(RS).RO

ERROR+145

NOP

: 227 DUMMY READ (FLUSH)...
:...BOTH DB'S 722

NOP

TSTB

PAMS(RS)

CLRB
CLRB

(RS)
MCC(RS)

BMI

000002

$GDDAT
$BDDAT
2200, (RS)
2224 MCC(RS)

Page 102

MOVBE

MOVB

3922 025744
3923 025746

3930

Thursday 03-Apr-86 14:11

; PORT A SENDING ?7?

: ALL DONE IF SO.

PIOD2

:...AND GO 'ROUND ONCE MORE

MOVB

#1,(RS)

CLR
000160
MOV
000164
MOV
ENDPIO:
BR
H

XCVR(RS)
#DISMISS,PIOAV
=T0AV,PI0BV
TST12

; ELSE, CLEAR MASTER
:...CONTROL REGISTERS

; DONE, RESET THE CHIP

:...XCVR CONTROLS.
..
;...AND RESTORE VECTORS.
:3...AND TAKE NEXT TEST.

; PORT INTERRUPT HANDLER(S).
H

012700

10576;

10040
000423

012700
105765
100401
000415
060500

037576

105237
000433
112760
000427

037576

060500
111014
105237

BI:

000034
000120

123727

001404
112310

AI:

000032
000100

000240

;fl

000022

18:

177766 28

LSB

oPADB, RO
13
3$
#PBDB, RO
P?S(RS)

; PORT A -- GET DATA BUFFER INDEX.
; CHECK DIRECTION.
;
OUTPUT
;
INPUT
; PORT B -- DITTO.

3¢

;

PAMS(RS)

ADD
CP8

RS,RO
BYTES,#18

; OUTPUT -- SET DB POINTER.
: ANYIgwm»:s LEFT 727

38:
037577

LENABL

MOV
1STB
BMI
BR
MOV
1ST8

%‘33 (RO)
*,

MOVB
BR

9040.-12(R0)

MOVB
INCB

(RO),(R4)
SYTESe1

ADD

OUTPUT
INPUT

p Esz ms%g' NEXT BYTE
H

'II.”'

m‘ ‘l..'

. ifENXHET DORE, CLEAR “IP*
;...Am%.

; INPUT -- SET DB POINTER.
: STORE
THE BYTE...
:...AND
BUMP THE COUNT.

3911 025672
3912 025676
3913 025702
3914 025706
3915 025714
3916 025720
3917 025724
3918 025730
3919 025732
3920 025740
3921 025742

MACRO Y05.02

H KXJ11-CA FUNCTIONAL TEST
H

[

T11.2

DATA PORTS

MACRO Y05.02 Thursday 03-Apr-86 14:11 Page 103

3965 026142 121464 156556

3966 026146 001416

3967 026150
3968 026154
3969 026160
3970 026166
026174

010437
111437
116437
012737
012737

3971 026208
3972 026206
3975 026210
3974 026216
3975

000240
005204
112760
000002

026202

3976

104145

000000

001120
001126
156556
047356
045210

001124
044746
044752
as:

000140

CPB

(R4),FLTI0-BUFRI(RA); COMPARE DATA XMTD/RCVD.

MOV
MOVB
MOVB
MOV
MOV

R4,S$GDADR
(R4),$BDDAT
FLTi0-BUFR1(R4),$GDDAT
#PI08,EMADR
33\\
#EF2,ESADR
:: >> ERROR 146, DATA INCORRECT

BEQ

177766

S8:

: BR IF IT'S RIGHT.

ERROR+146

NOP
INC
MOVB
RTI
.DSABL

PURFAIL = 0

R4
#140,-12(RO)
LSB

; BUMP RCVR POINTER.
; COMMON EXIT, CLEAR "IUS”...
:...AND RETURN.

KXJ11-CA FUCTIM TEST
T11.2
DATA PORTS

MACRO Y05.02

3978
3979

Thursday 03-Apr-86 14:11

Page 104

;QIRAK2 MAC

19-NOV-85

;#TEST 12

@-BUS INTERRUPT

et atntannet

st s L2222 2 222

222

2 222 2222 22 2222222 22222 22 222 2

001410
012706

005037
000402
000137
104415

000411
040

177524
001100
177777
044742

fér12:

002426

027412

scoPe

BIT
BEQ
MOV
MOV
CLR
BR

#340,@0K2CSRC
300534
#STACK, SP
#-1, TRAPAX
EMPRE
300544

300535: JMP
TST13
300545: TSNAME, .+4

026264

.ASCIZ

121

22 2

gttt

T YT T

;; IS THE ID SWITCH IN POSITIONS O OR 1?
i3 SKIP THIS TEST
IF IT IS
i3 SET A CLEAN STACK.
:; DISMISS BUS-ERRORS.
:; CLEAR ERROR PREFIX.
i3 SKIP NEXT.
:: BYPASS.
:; PRINT TEST NUMBER AND NAME..

ji--AND SKIP OVER THE ASCII.

Q-BUS INTERRUPT\

; VERIFY THAT THE QIR CAN INTERRUPT THE ARBITER, AND THAT
; THE POST-INTERRUPT PROCESS WORKS AS ADVERTISED.
012737

026314

001110

MOV

#.+6, $LPERR

;: LOOP HERE ON ERROR.

i FIRST, WRITE THE GIR AND SEE WHAT HAPPENS.
H

2%:

077001
012777
011537

152744

MTPS

CLR
MOV
MOV
MOV
CLR
S08
MOV
MOV

#PRS

TRAP4X
$CSR,RS
RS
(RS), $GDDAT
RO
RO, .
2QIRV, 3$QIR
CRS), $BDDAT

; RAISE CPU.

; CSR
ER (TO SPEED THINGS UP).
: CSR
SS..
:...AND EXP'D STATUS.
; TIMER, 200MS (MORE OR LESS).
; DELAY -- ENSURE TTY OUTPUT IS DONE.
: WRITE A VECTOR IN QIR<9:2>.
; GET CSR, QIREQ SHOULD BE SET.

:W BRQ4 SHOULDN'T GET POSTED UNTIL/UNLESS
THE ENABLE IS SET.
; ON BIACK, REQUEST GETS CLEARED AND IF ENABLED POSTS A
i

;

LOCAL INTERRUPT THRU VECTOR 130 (AT PRI 4).

IACKV= TBIACK

001124
001126

BRQ=
ACKEN=
BRQEN=
BIEN=

BIT14
BIT13
BIT12
BIT10

GITi:

BIS

#BRQ.$GODAT

044746
044752
001124
001124
4017

026436

BIT

1$:

615 ESADR
.

ERROR+ 147

BIC
Bl

g’s

* $B0DAT

9BRQ,$GDDA

; SET EXPECTED STATUS.
i

AND BR IF REQUEST IS SET.

ii > ERROR 147, BREQ DIDN'T SET

1377/

'mmnsnemmsrm
TRAP THROUGH
130. "

N
WM.ES(PGT
m'mmfl
xSETflIR

KXJ11-CA FUNCTIONAL TEST

112

MACRO Y05.02

@-BUS INTERRUPT

4018
4019 026442 105777
4020 026446 100375
4021 026450 017708
4022 026454 120427
4023 026460 001370
4024 026462 005000
4025 026464 005737
4026 026470 001023
4027 026472 077004
4028 026474 042715
4029 026500 012737
4030 026506

012737

Thursday 03-Apr-86 14:11

Page 105

030000
000001

LOOK FOR ARBITER'S ‘Y SIGNIFYING IT HAS RESPONDED.
sFX8JC
TSTB
@$TKS
; WAIT FOR CHAR FROM ARBITER.
{FXBUC
BPL
2%
: KEEP LOOKING.
{FX8UC
MOV
3$TKB, R4
: GET THE CHARACTER.
{FX9UC
CPB
R4,#'Y
: DID ARBITER SAY YES?
{FXBUC
BNE
2%
;: IF NO, KEEP LOOKING.
{FXBJC
CLR
RO
;: ARBITER SAYS IT RESPONDED.
{FX8JC
3%
TST
B9BFLAG
: DID TRAP
YET?
{FX8JC
BNE
43
: YES, CONTINUE.
{FX8JC
S0B
RO, 3$
: KEEP LOOKING FOR A WHILE.
sFX8JC
BIC
#BRQEN!ACKEN,
(RS); DISABLE INTERRUPTS WHILE REPORTING. :FXBUC
001352
MGV
#1,908FLAG
; AND SAY THEY'RE NOT EXPECTED EITHER. ;FX8UC

045206

044752

152476
152472

000131

001352
027257

044746

MOV

4031 026524

077001

4033 026540
4034 026544
4035 026552
4036 026554
026562
4037 026570
4038
4039
4040

011537 001126
43:
MOV
(RS), $BDDAT
: GET FINAL STATUS...
032737 040000 001126
BIT
m $BDDAT
:...REQUEST SHOULD BE GONE.
001407
BEQ
;: BR IF SO.
sFX8JC
012737 027210 044746
MOV
ms.m
:3\\
012737 045210 044752
MOV
#EF2.ESADR
:: >> ERROR 151, BREQ STILL SET, BIACK NOT RECEIVED
104151
ERROR+151
1377
H
; DO IT ONCE MORE USING THE ALTERNATE VECTOR.
; ARBITER WILL RESPOND WITH A "RESET”, WHICH SHOULD
; CAUSE A “BUS-INIT”
AND LOCAL TRAP THRU VECTOR
24.

4032 026532

4042 026572

4043 026572

052777

122737

000005

002000

000001

4044 026600 001007
4045 026602 005737 001174
4046 026606 001142

ERROR+150

077001

.MORD

152554

001206

BIS

4049 026620

052737

000100

026632

106427

000340

4054 026642

052737

140000

4‘83‘1) 026626

4053

042715

030000

026636 004737 001462

4055 026650
4056 026654
4057 026660
026664
4059 026672

177540

CMPB

BNE
ST
BNE

4047 026610 032777 000340 152522
4048 026616 001536

BIC

9<BRQEN!ACKEN>, (RS)

4064 026720 012777

000150

4065

4066

026726

000240

032737 040000 177530

4067 026736 001007
4068 026740

026746

152370

012737

026754 104152

027371

045206

044746

044752

#140000, 30PSW

;SET USER MODE

;SET UP USER STACK

;
:

CLR

SORFLAG

;TURN ON MU

MOV

#QIRV1,3$QIR

; POST Q-BUS REQUEST.

MOV

; SAY “EXPECTING A TRAR THROUGH 24."

#8IT14,99K2CSRD ;

15%

#DPR11,EMADR

ONOSIG.ESADR

ERROR+152

sFX9JC
iFX9JC
1FX9JC

SHOULD BE NON-MASKABLE.

o1, 30MMR0

BIT

1FX9JC

;INIT MMU REGISTERS

#177654 ,9OKIPART;

BNE

{FX8JC

..DISABLE IACK...wsss

; TRAP 24

MOV

NOP

{FX8JC

; ARH B-INIT TRAP.

@PR7

#140000,R6
89404, -(SP)
99406, -(SP)
$137, 90404
SRSTRAP, 904

8IS

:&g 026714 005037 001344

#81706,K2CSRJ

PC,MW

000001

177572

#<16+BIT4>,3$TCID; IF ID O OR 1..

JSR

052737

172356

; numms IN APT MODE?

i...JUST GET OUT.

BIS

MOV
MOV
MOV
MOV
MOV

177654

SAPTENV, $ENV

LOCAL -RESET.

; BUT ENABLE TRAP ON Q-BUS RESET.

QIEND

140000
000404
000406
000137 000404
002614 000406

4060 026700 012737

#2000, 3$CSR

BEQ

012706
013746
013746
012737
012737

4061 026706

SOB+1, RESET, SOB+l

, CONTINUE
; n-' 'APT AND NOT FIRST PASS
.
SKIP THIS PART OF THE TEST.

BIT

558:

;; >> ERROR 150, INT-ON-BIACK NOT RECEIVED

137/

55
$PASS
QIEND

MIPS

177776

#NOSIG,ESADR

:3\\

012737

026522 104150

MOV

#Qi4,EMADR

026514

;:\\

IS INTERRUPT POSTED?

;; >> ERROR 152, QIR NOT WRITTEN

13/

;FX8JC

KXJ11-CA FUNCTIONAL TEST
T12
Q-BUS INTERRUPT

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 106

4069 026756

052715

012000

15¢:

BIS

#<BIT12!BIEN>, (RS)

4071 026762
4072 026766
4073 026770
4078 026774
4075 027000
4076 027002
4077 027010

105777
100375
017705
120527
001370
012737
042737

152156

6%:

TSTB

@$TKS

000001

4079 037022
4080 027026

012637
042757

000404
140000

4082 027034
4083 027036
4084 037042
4085 027044
4086 027046
4087 027054
4088 027062
027070
027076

005000
005737
001024
077004
042737
012737
012737
012737
104153

152152
000131

177600

4078 027016 012637 000406

4091 027114
4092 027122
4093 027130
4094 027132
4095 027157
4096 027210
4097 027257
4098 027323
:ggg 027371

042737
012777
000530
102
121
042
111
124
121

172356
177572

177776
7%:

001344
002000
000001
027323
045206

177530
001344
044746
044752

000100
002000

152200
177540
152164

125
055

102
116
122

111

;ALLOM QBUS INTERRUPT

; WAIT FOR ARBITER TO SEND A ‘'Y SIGNIFYING IT HAS RESPONDED.

077001

123 QI1:

102
111

101
122

QI2:
QI3:
:
QIS:
DPR11:

sFX8JC

{FXB8UC

BPL
MOV
CMPB
BNE
MOV
BIC
MOV
MOV
BIC
CLR
TST
BNE
S08
BIC
MOV
MOV
MOV

6%
: KEEP LOOKING.
{FX8UC
3$TKB,RS
: GET THE CHARACTER.
{FX9UC
RS5.2'Y
: IS IT A YES?
sFX8UC
6%
: IF NOT, KEEP LOOKING
{FX8JC
#177600, 38KIPART;
#1,38MMR0
;
(SP)+, 38406
:RESTORE VECTORS
(5P)+, 88404
;
#140000, PSW
:SET KERNAL MODE
RO
: ARBITER HAS EXECUTED A BUS-RESET
;FX8JC
SURFLAG
: DID TRAP OCCUR YET?
{FX8JC
QIEND
: YES, CONTINUE.
FX8JC
RO,7$
; KEEP LOOKING FOR A WHILE.
FX8JC
#2000, 98177530 s DISABLE TRAPS WHILE REPORTING ERROR. :FX8JC
#1, BPRFLAG
; AND SAY THEY'RE NOT EXPECTED EITHER. ;FX8JC
#QiS,EMADR
:3\\
nlcgssm,ESADR
i5 > ERROR 153, BRESET TRAP THRU 24 DIDN'T HAPPEN

BIS
BIC
MOV
BR

#2000, 3$CSR
E TRAP ON Q-BUS RESET.
98IT06, 9OK2CSRJ
#2000, 3$CSR
:...AND CSR'S,
TST13
;:AND THAT'S ALL THERE IS TO IT.

.ASCIZ
[ASCIZ
I
.ASCIZ
.ASCIZ

/Q@-BUS REQUEST DIDN'T SET/
/“BIACK" NOT RECEIVED (Q-REQ STILL SET)/
/INTERRUPT (ON “BIACK”) NOT RECEIVED/
/TRAP THRU 24 NOT RECEIVED ON “BRESET"/
/QIR NOT WRITTEN/

.MORD

QIEND:

: WAIT FOR CHAR FROM ARBITER.

SOB+1, RESET, soé.x
B&LOCAL-RESET.

.ASCIZ /BUS TIME-OUT AT QIR /

sFX8JC
FX8JC

KXJ11-CA FUNCTIONAL TEST
TWO PORT REGISTERS
T13

MACRO Y05.02

4102

Thursday 03-Apr-86 14:11

it tansnnnnass

;#TEST 13

22222 222 2 2 S

Page 107

s 2222222 2 222222 2222222 222222822

027412
027414
027422
027424
027430

000340

001100
177777
044742
000400

02747~

027442
027450
027452
027456
027460
027462
027466
027472
027474
4103

04
4105
4106

177524

75T13:

002426

151470

151642
032124
027474
040

027522

30058:

SCOPE

ettty

TTTYY

BIT
BEQ
MOV
MOV
CLR
BIT
BNE
'Tg
BVC

#340,88K2CSRC ;; IS THE ID SWITCH IN POSITIONS O OR 17
30056$
:: SKIP THIS TEST IF IT IS
#STACK, SP
:: SET A CLEAN STACK.
8- 1 TRAP&X
:; DISMISS BUS-ERRORS
:: CLEAR ERROR PREFIX
oana aSWR
:: FORCED ENTRY SELECTED ??
300574
:: BR IF SO.
3$DPR
:: CHECK FOR VALID $DPR.
30057$

;3 SKIP NEXT IF OK.

30058$

::...AND SKIP OVER THE ASCII.

300568: JMP
TsT14
300574: TSNAME, .+4

124

TWO PORT REGISTERS

.ASCIZ
-EVEN

:: BYPASS.
:: PRINT TEST NUMBER AND NAME...

TWO PORT REGISTERS\

;s kkkkkkkkkkkkkkkhkkkkkkkkkkkkokkdkokkkkkkkkkkkkkkkkkkkkokkkkkkkkkkkk

;*TEST 13.1
I

o anmanane

f13.1::

027522

READ/WRITE ACCESS

s L L
T
T

; FIRST, DISABLE THE DPR AND VERIFY WRITE/READ

4107
4108 027322

027522

4109 027530
4110 027536

4111

;

012737
012737
012777

4112 027544
4113 027350
4114 027554
4115 027560

foPR1:

1%:

000002

564

4125 027632
4126 027636
4127 027640

001110
001124
151550

001320

28:

001120
001124

4118 027570
4119 027574
4120 027576
4121 027602
4122 027610
4123 027612

e
4124 0276
658

027530
177777
002000

001126
001124

001126

046533
045210

044746
044752

012737

o
046500
045230
032122

044746
044752

MOV
MOV
MOV
MOV
MOV
CMPB
BNE
ST
MOV

#.+6, SLPERR
#-1, $GDDAT
#2000, 3$CSR
$OPR, RO
#15. .R1
RO,82
24
(RO)s
RO, §

;3 LOOP HERE ON ERROR.
: SET EXPECTED DATA.
; EVERYTHING OFF BUT TRAP ON Q-BUS
; RESET.
; DPR BASE ADDRESS (LOCAL).

MOV
cHP

(RO)+,$BDDAT
$GDDAT, $BDDAT

;...AND READ IT BACK.

geg

:géon.cm:

;FX8JC
sFX8JC

; 0DT'S STATUS REG 7?7

: SKIP IF NOT.
: YES, DON'T WRITE IT.
: SET ADDRESS,
; WRITE ALL BITS...

Hemown
0EF2,ESADR

:: >> ERROR 154, LOCAL DPR WRITE-READ ERROR

TDPR2

;...AND PROCEED.

MOV

000411

FROM THE LOCAL (II) SIDE.

ERROR+154
S0B
R1,1$
CLR
TRAP4X
MOV

MOV

4DPR1,EMADR

#_A16.ESADR

ERROR+155

JMP

DPREND

ss/7
; RESET TRAPPER...
53\

z »smm1ss.wsmnummss

- wom TEST.

KXJ11-CA FUNCTIONAL TEST
T13.1
READ/WRITE ACCESS

MACRO Y05.02

4130

: NOW THE DPR IS FULL OF -1'S (EXCEPT
FOR WORD 1).
: READ ALL WORDS FROM THE @-BUS SIDE USING THE DMA ENGINE.

:gz

: EXPECT ALL ADDRESSES TO RESPOND (NO EOP), BUT DATA
= 0'S.

4135
4136
:ig;
fizg 027662

160000
175400
015400
017700 151452

LOGB=
HIGB=
LO2HI=
foPR2:

4141

160000 ; 162000
175400; 177400
HIGB-LOGB
MOV
@$TCID,RO

; LOW RANGE Q-BUS BASE ADDRESS (ID 0-7).
: HIGH
DITTO
(ID 8-F).
: OFFSET TO CHANGE FROM LO TO HI RANGE.
; GET CPU ID NUM (CSRC<7:4>).

;TEST THAT THE IOP ID DETERMINED BY THE ARBITER MATCHES THE ACTUAL

4142

4143 027666
4144 027670
4145 027674
4146 027700
4147 027702

027710

027716
4148 027720
4149 027724
4150 027726
4151 027732
4152 027740
4153 027742
4154 027746
4155 027750
4156 027752

010001
072127 177774
020137 050742
001407
012737

012737

031156

045206

104156
042700 177617
006300
063700 001322
032777 000200
001402
062700 015400
010027

000000
032737

000010

4157 027760
4158 027762
4159 027770
2{2‘1’ 027772
4162 030000
4163 030004
4164 030010

001404
052737
000403
042737
012701
012702
004737

061022
000020
031722

4167 osoozz

012737

046566

030036
4168 030040
4169 030042
4170 030046

104157
000431
012700 061022
012701 000020

030030

4171 030052
4172 030060
4173 030064
4174 030070

012737

:SETTING OF THE ID SWITCH REPRESENTED IN K2CSRC <7-4>

MOV
ASH
CMP
BEQ

044746

MOV

044752

MOV

10$:
151400

1%:

177522

@PR:

002000 027750
002000 027750 S%:

045222

4$:
044746

044752

027750 001120
001124
001122
24:
001126

030104

012737

045360

044752

4177 030114
4178 030122

062737
077120

000002

001120

4178 030076 013797 046633 044746
030112 104160

BEQ
BIS
BR
BIC
MOV
MOV
CALL
MOV

1$:

;
;
: IOP ID NUMBER SHOULD = SWITCH SETTING
;

#NOSIG.ESADR

;; >> ERROR 156, IOP ID NUMBER DOES NOT MATCH ARBITER CALCULA

SIDERR,EMADR

#BITO03, 99K2CSRB

53
$2000,Q0PR
44
#2000, QDPR
#BUFR1,R1
#16. ,R2
RQIO

#DPR3,EMADR

@#LA16M2,ESADR

ERROR+157
BR
TIPVL
MOV
#BUFR1,RO
MOV
#16. ,Ri
MOV
CLR
MOV
MOV

®%v

MOV

33%:

RO,R1
#-4,R1
R1,I0P.ID
104

ERROR+156
BIC
#1C160,R0
ASL
RO
ADD
$DPRQ.RO
BIT
#BIT7.8$TCID
BEQ
1$
ADD
#LO2HI RO
MOV
RO, (PC)+

MOV

013737
005037
010037
012037

4179

Page 108

4131
4132

TION

Thursday 03-Apr-86 14:11

PR
L
s*TEST 13.2

137/
; STRIPPED
TO <6:4> = NUM#16...
:...TIMES 2 = NUM&32...
:...PLUS BASE = @-BUS DPR ADDRESS.
; ID >= 8. 77
: NO.
: YES, ADJUST TO HIGH RANGE.
; savé
QDOPR ADDRESS. .

116" TI-E HI RANGE JUMPER INSTALLED?

;HI RANGE JUMPER INSTALLED
;HI RANGE JUMPER NOT INSTALLED

; SET LOCAL ADDRESS..
i...AND WORD COUNT.
; READ FROM 9-8US SIDE vn DMA.
‘

13 \\

;; >> ERROR 157, BUS ERROR ON Q-BUS DPR READ

337/

QDPR
$GODAT
RO, $BDADR
(RO)+,$BDDAT

: SRC ADDRESS(ES)...
;...SHOULD HA
ZERO.
; DST ADDRESS(ES)..
;...AND WHAT WE REALLY GOT.

9EF6,ESADR

soere.omoR

ERROR+160

;;\\

fi.zm‘

| 2'3 .

:: >> ERROR 160, NON-ZERO DATA ON @-BUS READ

T
T
T T TR
Q-BUS WRITE

R A

e 2 2

KXJ11-CA FUNCTIONAL TEST
T13.2
@-BUS WRITE

MACRO Y05.02

Thursday 03-Apr-86 14:11

H R

;

SO FAR,

Page 109

222222222 222222 2 2 2 e 2 e st et

T T T T eI

TITITI L]

4180 030124

713.2::

4181

: 1ST WRITE SHOULD FORCE A NON-MASKABLE RESTART TRAP (COMMAND INT).

4182

:i.gz

SO GOOD -- NOW WRITE ALL FROM THE Q-BUS SIDE.

; ALL OTHERS SHOULD APPEAR NON-EXISTANT (EOP).

4185 030124

030124
4186 030132
4187 030140
4188 030146

012737
012737
012737
012737

030132
031126
031134
031142

4190 030160
4191 030164
4192 030172
4193 030176
4194 030202
4195 030206
4196 030214
4197 030222
4198
4199
4200
4201 030230
4202 030236
4203 030242
4204 030246
4205 030252
4206 030256
4207 030262
4207 030270
4209 osogzs
4210 030

004737
052737
012706
013746
013746
012737
012737
012737

001462
140000 177776
140000
000404
000406
000137 000404
002544 000406
177654 172356

052737

000001

4189 030154

106427

013700
012701
012702
012711
010037
052737
005037
004737
102007

000340

001110
000120
000124
000134

177572

4212 030320 005737 001346
4213 030324 001007
030326

012737

030342
4215 030344
4216 030352
4217 030360
4218 030364
4219 030370
4220 030376
4221 030402
4222 030404
4223 030410
4224 030414

104162
012737
042737
012726
012726
012737
106427
00
012703
012702
010037

030334

030420

012737

004737

046700

045206

044746

012737

114:

000000

045230

as:

044752

JSR
8IS
MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
BIS
CLR
CALL
BVC

PC,MMU
:INIT MMU REGISTERS
#140000,84PSW
:SET USER MODE
#140000 .R6
:SET UP USER STACK
86404, -(SP)
32406, -(SP)
#137,38404
SNMITRP, 38406 :
#177654
. 98KIPART ;WILL CAUSE NON-MASKABLE INTERRUPT TO POINT
:..T0 PHYSICAL ADDRESS 404 RATHER THAN 1773004
:...WHICH IS THE FIRMWARE RESTART ADDRESS. GETS
:....AROUND
THE NEED TO HAVE FIRMWARE TO DO TEST
#1,38MMRO
;TURN ON MMU
QDPR, RO
: SET GLOBAL DPR ADDRESS
#BUFR1,R1
:...LOCAL ADDRESS..
#1,R2
:...AND WORD COUNT.
240, (R1)
: SET 1ST WORD = “NOP* COMMAND.
RO, $GDADR
981706, 88K2CSRJ ; ARM INTERRUPTS
0TPROTR
1SAY EXPECTING neser TRAP
WaIo
; WRITE DPR WORD
1$
. .SHOULD NOT wwe ABORTED.

@8TPROTR

#PR7

MOV
SDPR7,EMADR
MOV
#LA16,ESADR
ERROR+161

BNE
MOV

MOV

177600 172356 2%:
177572
000406
000404
000340 177776

327 030456 015737 046771 04446
030434

18:

000001

031732

#.+6, $LPERR
#IR4.DPRV4
#IR8 .DPRVS
SIR12.DPRVI2

8IS

044752

000017
000001
001120

MOV
MOV
MOV
MOV

MIPS

027750
061022
000001
001120
000100 177540
001346

031732
4211 ogg
012737 046774 044746
030310 012737 045230 044752
030316 104161
4214 030326

TIPVL:

4DPRS,EMADR

#NOSIG,ESADR

:; LOOP HERE ON ERROR.
: LEVEL 5 INTS suouu)
:...NOT HAPPEN..
:...... CYET)..
...

"COMMAND* INTERRUPT SHOULD.

et
i1 >> ERROR 161, TIME-OUT ON WRITE TO DPRO
337/

'6ID TRAP OCCUR?

1e\

;; >> ERROR 162, COMMAND INTERRUPT DOESN'T WORK

ERROR+162
37/
MOV
2177600, 30KIPAR?
;
8IC
&1, 30MMRO
.
MOV
nbs.gsm.
MOV
$404,(SP)+
;
MOV
$340. 90PSW
SET KERNEL MODE
MIPS
9PRO
; LOMER CPU.
CLR
R4
; CLEAR INT RECEIVED FLAG.
MOV
#15. ,R3
; SET LOOP FOR 15 MORE WRITES.
MOV
#1,R2
; ONE AT A TIME,
MOV
RO, $GDADR
CALL

®v

MOV

wafo

woeRe.oma0R
.

SLA16,ESADR

; WRITE NEXT FROM Q-BUS SIDE...

LIk

HE]

:: >> ERROR 163, Q-BUS DPR WRITE DIDN'T TIME-OUT

KXJ11-CA FUNCTIONAL TEST
T13.2
Q@-BUS WRITE

104163

4228 030444

S$:

047042
045206

4236
4237 030470
4238 030476
4239 030502

012777
013700
062700
012701
012703
010037

005004
012702

004737
102413

030327
001422
012737
012737
104165

002170
027750
000002
061024
00000,
001120

044746
044752

150616

IPve:

34:
044746
044752

047112
6s:
047112

047107
045206

044746
044752

R3, #<BIT1!BITS!BITY>
; TIME-QUT EXPECTED ??

BIT

BNE
BIT

NO, PROCEED.

oy
i3 >> ERROR 165, WRITE TO DPR DIDN'T TIME-OUT (NO EOP)
3377

9DPR7,EMADR
#LA16.ESADR

R3,48IT4

: YES, SO FAR SO GOOD.

i\
:: >> ERROR 166, WRITE TO DPR TIMED-OUT (EOP)

s://

; INTERRUPT 4 EXPECTED 7?7

WV
cHP

sco4.0eRo.s
R4 ,DPR9.3

BIT

ns.oana

; INTERRUPT 8 EXPECTED 77

BIT

ns.muz

R4,DPR9.3

MOV

#DPR9,EMADR

BNE

%vn
oY

BEQ

MOV

664

o'-oo DPR9+3
eh12

ASL

BNE

#NOSIC.ESADR

ERROR+167

7$:

; SET ALL ENABLES xuc Q-BUS RESET TRAP.;FX8JC
: SET Q ADDRESS..
:...FOR DPR1...
:...AND LOCAL ADDRESS.
: BIT = CURRENT WGRD UNDER TEST
: SET CURRENT DPR ADDR FOR ERROR
: CLEAR “INT RECVD" FLAG.
: SET MC...
:...AND WRITE A WORD.
: BR IF WRITE TIMED-OUT (EOP).

R3,#<BIT1!BITS!BITY> ; TIMED-OUT EXPECTED 2?7

ERROR+166

047112

031061
047112

s://

BIT

MOV
MOV

4%:

010000

se\
:: »> ERROR 164, INT HAPPENED WITH DPR DISABLED

22170, 3$CSR
QDPR, RO
#2,R0
#BUFR1+2,R1
#B8IT1,R3
RO, $GDADR
R4
#1,R2
uaio

MOV
#DPR6,EMADR
MOV
#LA16.ESADR
- emonz%ss

S$:

047112

NONE SHOULD HAVE INTERRUPTED ’

MOV
MOV
ADD
MOV
MOV
MOV
CLR
MOV
CALL
BVS
BEQ

oCOOCO0O

SEESEISEEES
itfeeits

0 030674

032060
047112

2DPRS,EMADR
#NOSIG.ESADR

;

m)mmwrsnuauSSA 8, AND 12.

044746
044752

000020

243;'“
TIPV2

NOW, ENABLE
THE DPR, »ommsx-xsm.
EXPECT EOP AT WORDS
1
AND 9,

001042

046774
045230

Page 110

33/7

ERROR+164

1%:

001042

ERROR+163

MOV
MOV

000001
031732

046771
045230

Thursday 03-Apr-86 14:11

BEQ
w—fes o we we we

030442

MACRO Y05.02

| VEE
sngCEIVED 7?
H

; NOPE.

P VB
Posi

;

os
e

12 EXPECTED 7?

.. .RECEIVED 77
; YUP.
W

.. >> ERROR 167, DPRXX INTERRUPT NOT RECEIVEC
s3//

SHIFT UP TO NEXT WORD (BIT)...

i.7OAND LOOP 'TIL ALL WORDS DONE.

KXJ11-CA FUNCTIONAL TEST
T13.2
Q-BUS WRITE
4275
4276
4277
4278
4279 030720
4280 030724
4281 030730

TIPV3:

001320

4287 030774
4288 030776
4289

4290 031004
4291 031010
4292 031012

010000
000154

150356
150352
150342

027371

045206

044746
044752

010000

150310

150134

4295
4296 031024

4298 031032
4299 031040

150254
044746
044752

012777

002000

150230

013700
015701

001320
000016

BIS

#8IT12,83CSR

;ENABLE Q BUS INTERRUPT

is:

TSTB

@$TKS

; WAIT FOR CHAR FROM ARBITER.

{FX8JC

CMPB

R3,#'Y

: IS IT A YES?

{FX8JC

cHP
BNE

36(R0),R1
28

3$:

012700

108:

4313 031120
4314 031124

010037
010037
000423

0001
0001

4316 03 1126

012704

032060

IR4:

4319 03]140 000403

034060

IR8:

‘gi
031156

012704
042777
000002
111

031061
000007
117

150140

33\

;; >> ERROR 170, QIR NOT WRITTEN
2144

WAIT FOR ARBITER TO SEND A 'Y SIGNIFYING IT HAS RESPONDED.

1§ 031114

4320 031142

11$

; SAVE DPR<15>.
; DISABLE Q BUS INTERRUPT
; SET Q-REQUEST..
; WAS QIR WRITTEN?
;: DELAY A SKOSH
;

113: _

005720
005020
077102

010037

#8IT14,85CSR

MOV
#NOSIG.ESADR
- mi‘l)"lo

BPL
MOV
BNE

010000
047144
045206

$DPR, RO

36(RO. . =1
#BIT12,38C5
#QIRV2,.3$QIR

#DPR11,EMADR

000036

4297 031030

MOV

MOV
BIC
MOV
8IT
NOP
BNE

MOV

150130
000131

4293 031016
4294 031022

4321 031146

Page 111

FINALLY, USE THE QIR FACILITY AND VERIFY THAT THE

030764
030772

4303 031064
4304 031070
4305 031074
4306 031076
4307 031100
4308 031102
4309
4310 031104
4311 031110

Thursday 03-Apr-86 14:11

ARBITER PROCESSOR CAN INDEED WRITE INTO THE DPR.

4282 030736
4283 030744
4284 030752
4285 030754
4286 030756

4302

MACRO Y05.02

14
@$TKB,R3

; KEEP LOOKING.
: GET THE CHARACTER.

; IF NOT, KEEP LOOKING.

:FX8JC
:FX8JC
{FX9JC
:FX8JC

;FX8JC

BIC
$BROEN,@$CSR
MOV
#DPR1IO,EMADR
MOV
#NOSIG,ESADR
ERROR+171

;...ARBITER SHOULD COMPLIMENT DPR<15>.
: BR IF IT DID.

; DISABLE REQUEST.
;FX8JC
;;\\
;; >> ERROR 171, ARBITER WRITE TO DPR<15> FAILS
1327

MOV

#2000, 3$CSR

; ALL DONE, CLEAR STATUS BUT ALLOW

sFX8JC

MOV
MOV
CLR
TST
CLR
S08

$DPR, RO
#14. Rl
(RO)+
(RO)+
(RO)+
R1,3$

; CLEAR DPRO...
:...SKIP DPR1...
;...AND CLEAR THE REST.

MOV
MOV
MOV
MOV
BR
gz
gz

#01
RO
RO,
RO,DPRVS
RO,DPRV12
ENDIRQ
#"04,R4
#"08,R4

MOV

#"12,R4

%‘I:

ASCIZ

87, 80CSR
/IOP ID ERROR/

: TRAP ON G-BJS RESET.

;...RESTORE VECTORS...
; DPRV4 INTERRUPT RECEIVED.
; DITTO DPRVS.
; DITTO DPRV
; *2% TEMP,

SURE REQ’S ARE CLEAR.

;FX8JC

KXJ11-CA FUNCTIONAL TEST
T13.2
Q-BUS WRITE

MACRO Y05.02

Thursday 03-Apr-86 14:11

4326 031174
4327

ENDIRQ:

031174

113.3::

4328
4329
4330
4331
4332 031174

4333 031202
4334 031206
4335 031212
4336 031220
4337 031226
4338 031234

;+TEST 13.3
T

Page 112

2 e

T T

ACCESS TPRS FROM QBUS AND LOCAL SINDES SIMUL TANEOUSLY

T Yo

:WTESTTMTTPRSCAN&ACCESSEDFRMTPELMSMUENT&ERE
;IS HEAVY Q-BUS ACTIVITY TO THEM.
012737
013746
013746

175000

012737
012737
012737
004737

175012

012701
077101
005037

MOV
MOV
MOV
MOV
MOV
MOV
JSR

#-1,34TPROO
¥4, -(SP)
a96, -(SP)
#8%,3%4
#340,3%6
#6,3%TPROS
PC,ARBDIS

MOV
%

#400,R1
R1,.
177766

;INIT TPRO WITH -1
;:SAVE TRAP VECTOR
:
;:LOAD NEW VECTOR
:
;POINT TO ARBITER ROUTINE IN TPRS
;GO TO ARBITER DISPATCH ROUTINE
i.. TPRS WILL BE ENABLED ON RETURN
.
;GIVE THE ARSITER TIME TO SET ULP
;CLEAR THE CPU ERROR REGISTER

;TEST THE TPRS WHILE THE ARBITER IS READING TPRO IN A TIGHT LOOP

RTR

012703
012702
012704
010324
010224
04

125252
052525
175000

1%:

28:

175040

MOV

R2.(R4).

MOV

4s:
s:

MOV
P
BNE
CP
BNE

#TPROO, R4
5%
R2.(R&)+
33

;POINT TO TPROO
;CHECK DATA
:BRANCH IF
:CHECK DATA
:BRANCH IF BAD

&96

:%zszsa.az

;DID WE TRY BOTH PATTERNS?

MOV
Hov

#TPROO, R4
uzszséégz

;RESET POINTER
sCHANGE PATTERN

MOV
QR

916. R3
-(R&)

BR
MOV

Bk
s e

an
(I

FESE

151

1400
4377 031404
4378 031406

4379 031412

001124

:MRITE CHECKER BOARD TC PR ARRAY
;DID WE RUN OUT OF TPRS YET?

001124
001126

R3,(R&)+

;INIT R3 WiiH DATA
;INIT R2 WITH DATA
:POINT TO FIRST TPR

flfiusoz.m

175000

175040
000020

#125252,R3
#52525,R2
$TPROO . R4

175040

175000

MOV
MOV
MOV

R3,(R4)+

gmxsoz.m

:DID WE CHECK ALL THE TPRS?

|
#TPR15+2,R4

;SET UP LOOP
:CLEAR TPROO TO SIGNAL ARBITER THAT

BNE

(R4)

;IS IT CLEAR

MOV

@$GDDAT

: ERROR CALL DATA

12¢:

EE
CLR

3%:

MOV

(R4),304800AT

R2,864G00AT

;

iACTUAL DATA

;ERROR CALL DATA

KXJ11-CA FUNCTIONAL TEST

MACRO YOS. 22

03-

-86 14:11

s O e bas PROM GBUS AND LOCAL < DES STmA TANEOUSL Y
4380 031414 010337 001124
4381 031420 014437 001126

4382 031424

010437

001122

031436

012737

045210

4383 031430

012737

031444 104172
:% 031446 000446

005554

S
68 -

044746

138:

044752

:3339

MOV
MOV

R3,3$$GDDAT
-(R4),38$BDDAT

MOV

STPRDER,EMADR

MOV

R4, 38$BDADR

#EF2,ESADR

ERROR+172
BR
10$

113

:GET BAD DATA
;:\\
::

;.. AND FAILING TPR ADDRESS

>> ERROR 172, BAD DATA IN TPRS

33
;0K?

;COMES HERE IF WE SHOULD GET A TIME-OUT WHILE TRYING TO ACCESS TPRS

4388 031450 022626

4389 031452
4390 031456
4391 031464
4392 031470

(SP)+,(SP)+

;FIX STACK

#8IT12,(R2)

;DON'T ALLOW BUS INTERRUPTS

38130, -(SP)
#7%,98130
#x2(SRD,R2
#8IT06,(R2)

4394 031500 012737 000110 177532
4395 031506 032712 040000
14$:

MOV
BIT

#110,88K2QIR
#81ITi4,(R2)

4397 031514 052712 030000
4398 031520 000234

BIS
SPL

$<BIT131BIT12>,(R2)
;ENABLE Q-BUS INTERRUPT & IACK INTERRUPT
4
;LOMER PRIORITY LEVEL

042712

4396 031512

001775

4399 031522

000001

4401 031526

042712

4400 031524 022626

4402 031532 012637

000130
031524 000130
177530
000100

8s:

MOV
MOV
MOV
BIS

4393 031474

013746
012737
012702
052712

010000

030070

000130

4403 031536 010437 001122
4404 031542
031550

012737
012737

031556 104173

7%:

031710
031600

4407 031564

012637

044746
044752

4412 ogisoo 042737 175000 001122
4413 031606 006237 001122
4414 031612 013746 001122
«15ogxs%o 104405
104401 031626
4419 osmo

114

124
117

14%

;FIX STACK

(5P)+, 88130

;RESTORE VECTOR

#30070, (R2)

MOV

Ra, $BOADR

#TPRTO,EMADR
#TPRNXM,ESADR

TPRNXM:

111 1$:
103 TPRTO:

CLR

34177766

MOV

(spg

MOV
JP

;TELL ARBITER TO COOL IT.
:DID THE QIR GET WRITTEN?

(SP)+,(SP)+

BIC

ERROR+173

108:

4408 031570 012637 000004
ggg 031574 000137 032122

un 0 1624 000207
4418 031
040

WAIT

cMP

MOV
MOV

000006

4411 031600

BEQ

MOV

4405 031560 005037 177766

“06

BIC

:SAVE VECTOR
;
;
;ENABLE TPRS

(SP)+,

:TURN OFF MASKABLE INTERRUPTS

:SAVE ADDRESS OF TPR CAUSING TIME-OUT

;:\\
;; >> ERROR 173, TIME-OUT ON SIMULTANEOUS ACCESS TO TPRS

37/

:ELEAR CPU ERROR REGISTER
;RESTORE STACK

;ERROR ROUTINE FOR TPR NXM

IC
ASR
MOV
TYPDS
TYPE

$175000, $BDADR
$BDADR
$BDADR,-(SP)

.ASCIZ

/LOCAL TPR/

;STRIP OFF UN-NEEDED BITS
;SHIFT IT OVER ONE
;

1
RTS
PC
.ASCIZ / TIMED-OUT WHILE ARBITER WAS ACCESSING FROM Q-BUS/

KXJ11-CA FUNCTIONAL TEST

T13.3

MACRO Y05.02

Thursdu* 03-

ACCESS TPRS FROM QBUS AND LOCAL SIDES SIMULTANE

-66 14:11

Page 114

4422
4423

;
; SUBROUTINE TO ACCESS THE Q-BUS I/0 PAGE USING THE DMA ENGINE.

4425

; ON RETURN, THEY CONTAIN UPDATED (TERMINAL) VALUES.

4424

;

zsg

ON CALL,

RO = QIO ADDRESS, R1 = LOCAL ADDRESS, R2 = WORD COUNT.

; IF ECP TERMINATION,

“V* BIT IS SET.

4428 031722 042737 000020 032116 RQIO:

BIC

#B8174,CM.2

; READ -- CLEAR "FLIP" BIT.

4430 031732
4431 031740
4432 031744

BIS

#BIT4,CM.2
JQA+2
R1,LA+2

WRITE -- SET "FLIP" BIT.
; SET Q-BUS I/0 ADDRESS.
; SET LOCAL ADDRESS.

4433 031750
4434
4435 031754

4436 031756

000403

052737
010037
(12137

010237
005005

012765

032100

174442

032120
000240

174442
174454

CNTNU:

020000

174456

1$:

000054

174454

000403

012765
012765

012765
000240
032765
001774
012765

4448 032050

016500

4450 032060

016502

4449 032054 016501
4451 032064

;
174470

4440 032004
4443 032022
4444 032030
4445 032032
4446 032040
4447 032042

032112

WQIO:

000115

012765
005065

4441 032006
4442 032014

032116

012765

4437 031764
4438 031772

4439 031776

000020
032104
032110

032765

usg 032072 001401
445% 032074 000262
zs; 032076 000207

000074
174446

000102

174412

174454

174402

174462

000002

174456

QA:

4459 032112 000000
5
4460 032114 000010 001340

WC:
CM:

4463

DPREND:

032106

000000

4461 032120

000000

032122

032122 000400

000000

R2,uC
$DMA,RS
RS

#115,MMR(RS)

QIOC:

; SET WORD COUNT.

; MODE = VI!WAIT!CPINTLV!ENABLE.

&Oififig)lfi(fi) ; CLEAR INTERRUPT ENABLES.

#QIO0C,CHALIL(RS) ; SET START CHAIN ADDRESS.

#QI0CC, CHAI.L(RS) ; SET CONTINUE CHAIN (DUMMY).

BIT

ugg
032100 001602
4457 032102 177400 000000

4458

SKP3

$3330°2333¢303363333

4429 021730

#240,CMDR(RS) ; CHAIN-LOAD (OR RELOAD 0) REGISTERS
#102,CMDR(RS)

; SET SOFT-REQ (START/CONTINUE DMA)..

I}P.STATI(RS)

;...AND WAIT FOR DONE/ABORT (IP=1).

#40114,CMDR(RS) ; OK,

174412(R5),R0°

174402(R5). m

174462(R5),R2

$E0P,STATI(RS)

BEQ
24
SEV
RETURN

CLEAR IUS AND IP.

; GET FINAL Q@ ADDR CARAL)...

:...LOCAL ADDR CARBL)...

:...AND WORD COUNT (OPK)

; “EOP" TERMINATION 2?

: SKIP IF NOT...
:...OTHERWISE, SET "V* IN PSW

1602
177400. 0

;; LOAD
CARA,
, COPK, AND CH MODE
Q-BUS 1/0 &ss (CARA

0
10, 1340

: WORD COUNT (COPK)
; CHAN MODE (1360 IF “FLIP” = 1)

LA:

0, 0

QIocc:

; LOCAL ADDRESS (CARB)

; DUMMY RELOAD TO CLEAR “NAC” AND CONTINUE

TST14

; sNEXT TEST

KXJ11-CA FUNCTIONAL TEST
T14
SHARED MEMORY MAPPING

MACRO Y05.02

4465

Thursday 03-Apr-86 14:11

i s s etaassat 2222222 222 2 2222 22

:4TEST 14
032737
001413
001410

000340

177524

050754
001100
177777
044742

002426

033174
032176

032176

040

032226
4466 032226
4467 032230
4468 032236
4473 032244
4474 032252
4475 032260
4476 032264
4477 032270
032274

032772

340
010450

000134
000136
000120
000122

000200
177771
000100

032572

012706

052737

172300

000001

172516
177572

St T

ety

£340,@9K2CSRC
30059%
MAXBLK
300554
#STACK, SP
-1, TRAPAX
EMPRE
30060%

ety

P e

T
I

e T Y

T TITITIY

;; IS THE ID SWITCH IN POSITIONS O OR 1?
:: SKIP THIS TEST
IF IT IS
::IS THERE ANY ROOM FOR SHARED MEMORY
::SKIP THIS TEST IF NOT
:: SET A CLEAN STACK.
:: DISMISS BUS-ERRORS.
:: CLEAR ERROR PREFIX
i
NEXT.
:: BYPASS.
:: PRINT TEST NUMBER AND NAME.

BR
300614
.AND SKIP OVER THE ASCII.
ASCIZ \ SHARED MEMORY MAPPING\

123

172352

0000
177676

BIT
BEQ
ST
BEQ
MOV
MOV
CLR
BR

222 22

30059%: JMP
TST15
30060%: TINAME, .+4

30061$:

032574

SCOPE

SHARED MEMORY MAPPING

HRE S22 222 22222 2 222222222

1ST14:

Page 115

SPL
MOV
MOV
MOV
MOV
JSR
MOV
ADD
ASH
MOV
SUB
MOV
JSR
MOV
MOV
MOV
BIS

7
;NO INTERRUPTS
$INT134, 34134
#PR7, 39136
#INT120, 38120
#PR7, 88122
PC,PROMLO
SKIPARS . RO
#200,R0
#-7,R0
#64. R1
RO,R1
R1.MAXWRT
PC.MMU
026.80172516
0UDPAR7
u’lzsoo
sp
#1,38MR0

; INTERRUPT ROUTINE ACDRESS
PRI 7
;FIGURE OUT THE MAXIMUM AMOUNT
; OF ALLOCATED
SHARED MEMORY THAT
: CAN BE WRITTEN WITHOUT CORRUPTING
; THE CODE RUNNING
IN THE K2
;
:
;THIS IS THE MAX
;60 INITIALIZE THE PDRS AND PARS
sDISABLE D SPACE
;SAVE THE STACK POINTER
:SET UP A STACK IN SUPR D PARS
;TURN ON MMU

;First we'll establish a checksum for the diagnostic stuff resident in
;the RAM
H

ROIiASTAO.RS

(Rno.uz
13
R2, 90177666
89175010
90177766
#81706

:SAVE CHECK SUM
:CLEAR
wg&n WIL!. INDICATE WHICH

177530

ADD
cMP
BGE
MOV
CLR
CLR
8IS

000130
000132
175012

MOV
g
MOV

MOV

0132, -(SP

;

1$:

012737
012737
0002 34
013737

CLR

!&!.y

051506

MOV

R3,R1

auso.—(sv)

¢38 mso
pi.amz
MAXWRT , 88175012

;R2 WILL HOLD SUM IGNORING CARRIES

AND INTERRUPTS FROM 134

i SAVE vecrm n 130
;

o
A
y
LEVEL
:PUT MAX WRITE VALUE IN TPRS
H OHER

KXJ11-CA FUNCTIONAL TEST

T14

SHARED MEMORY MAPPING

MACRO Y05.02

4510 032436
4511 032444
4512 032452
4513 032454
032462

012737
032737
001007
012737
012737

000404
040000

177532
177530

004700
045206

044746
044752

4514 032472

052737

030000

1./7530

:g%g 032500

000001

4518 032502
4519 032504
4520 032510
4521 032514
4522 032522
4523 032524

O,
012637
012637
032737
001407
012737

032540

104175

032470

4515

032532

4524 032542
4525 032550
4526 032556

4527
4528 032560

4529 032566
4530 032570
4531 032572

104174

3%:

000132
000130
040000

177530

004700

044746

045206

042737
052737
000001

020000
000040

177530
177530

052737

000030

177530

000000

2%:

Page 116

MOV
BIT
BNE
MOV
MOV

#404 , 3#C2QAIR
;LET ARBITER KNOW WERE READY
#8IT14,3%K2CSRD
;WAS VECTOR WRITTEN?
2%
#QIRER,EMADR
33\
#NOSIG,ESADR
;3 >> ERROR 174, QIR ERROR

BIS

#<BIT13!BIT12>,3%K2CSRD ;ENABLE QIR TO INTERRUPT ARBITER

ERROR+174

337/

i..AND NOTIFY VIA 130

WATT

012737

000001
000776

Thursday 03-Apr-86 14:11

044752

Ccw
MOV
MOV
BIT
BEQ
MOV

MOV

4%:

6%:
MAXWRT:

(SP)+,(SP)+
(SP)+,a#132
(SP)+,3#130
#B8IT14,38K2CSRD
4%
#QIRER,EMADR
i\
#NOSIG,ESADR

ERROR+175

BIC
BIS
WAIT
BIS

WAIT
BR

.WORD

#8IT13,3#K2CSRD
#BIT0S, 3#K2CSRD

;FAKE THE RTI
i
;RESTORE VECTOR
;WAS BIT 14 CLEARED BY IAK?

i >> ERROR 175, QIR REQUEST WAS NOT CLEARED BY IAK

i:s//

;DISABLE IAK INTERRUPTS
;ENABLE_INTERRUPTS VIA 134
;AND WAIT FOR IT TO INTERRUPT

; WITH START UP INFORMATION
#<BIT04!BIT03>,35K2CSRD ;ENABLE INTERRUPT FROM 124 & 120

64
O

;WAIT FOR ARBITER TO SIGNAL IT IS DONE
;

B10

KXJ11-CA FUNCTIONAL TEST
T14
SHARED MEMORY

MACRO Y05.02

4533

4534
4535
4536
4537
4538 032574
4539 032576

010046
010146

4542 032604

013700

4544 032612

MWTWIEHD.LACCEPTV&!ESPISSEDINWRSM&I? . THE NUMBER

G’WWYESPECTIVE.

013701

INTISC: MOV

175026

175030

010137

177534

4547 032624

020027

000100

4550 032634

062701

000200

4
032642
4553 032646
4554
4;55
4556

4557 032652
32660

4560 032662

:561 032666

162701
010137

14%:

072327

060203
005403
042703

050337

177771
177700

177536

012737

032740

s e

044746
044752

000374

177532

:g'li gg28 000002
200

116

125

032736

;SAVE REGS
;SAVE NUMBER OF BLOCKS TO SHARE
;ERROR IF ZERO
;AND STARTING Q@ BUS ADDRESS
;LOAD K2CSRF WITHSTARTING QBUS ADDR
; AND R3S FOR LATER USE

;SAVE NUMBER OF BLOCKS IN R2

gségsfll

;CALCULATE ENDING ADDRESS

’

#200,R1
R1,3#K2CSRH

ASH

;BUMP IT DOWN BY ONE BLOCK
;LOAD ENDING Q BUS ADDRESS

;

Ss:

#-7,R3

;SHIFT STARTING ADDRESS DOWN

R3
#1C77,R3

PUT NUMBER OF BLOCKS IN CSRH FORMAT
3STRIP OFF UNNEEDED BITS

ADD

R2,R3

BIS

RS.GQ(ZCSRH

g%s

z?ITOZ.OlKZCSRJ

MOV

#BLKER,EMADR

NEG
BIC

01
012601
012600
012737

4572

R2,-(SP)
R3,-(SP)
a#175026 ,RO
5%
a%#175030,R1
R1,3#K2CSRF
R1,R3
RO,#64.
5%
RO,R2

;CALCULATE NUMBER OF BLOCKS FIELD FOR K2CSRH

4566 il
32728 01260

4567 032722
4568
032724
4569 032726
: 72 0327

RO, -(SP

;

000407

032702

MOV
MOV
MOV
BEQ
MOV
MOV
MOV
cMP
BHI
MOV
SuUB
MOV

000200
177536

ng 032672 052737 000004 177540
'

Page 117

;0F BLOCKS TO BE ALLOCATED TO SHARED MEMORY AND THE STARTING Q@ BUS ADDRESS

455:2 032616

32622

Thursday 03-Apr-86 14:11

MOV

#NOSIG,ESADR

ERROR+176

BLKER:

;ADD NUMBER OF BLOCKS

;LOAD SHARED BLOCKS FIELD

;ENABLE SHARED MEMORY ONTO QBUS

33\

33 >> ERROR 176, NUMBER OF BLOCKS FIELD IS INCORRECT

i3//

(SP)+,R1

MOV
—

#374 ,80K2Q1IR

.ASCIZ

<CRLF>/NUMBER OF BLKS NOT VALID/

;TELL ARBITER THAT SHARED MEMORY IS
; ENABLED;
WRITE IT.

KXJ11-CA FUNCTIONAL TEST

T14

SHARED MEMORY MAPPING

4656
4657 032772
4658 039773
4659 035776
4660 033002
4661 073004
033006
46635 033010
4664 033014
4665 033020

033020

013706
013701
005701
001424
005301
072127
000161

000004
033020

012737

033076

MACRO Y05.02

INT120:

177676
175010

044746

033026

012737

045206

4667 033080
033046
033054
4668 033036
4669 033062
4670 033070

012737
012737
104200
005037
042737
005037

033144
045206

044746
044752

177530
000008
177572

177540

033074

000437

4673 033144

123

033034 104177
4666 033036 000407

4672 033076
4674

123

110

Thursday 03-Apr-86 14:11

1%:

044752

118

MOV
MOV
ST
BEQ
DEC
ASH
JMP

S0UDPAR7.SP
92175010.R1
R1
ENDSHM
Rl
#4.R1
13(RD

:RESTORE OLD STACK

MOV

SSHMIEMADR

::\\

MOV

#NOSIG,ESADR

;IS ARBITER REPORTING AN ERROR?
iND. MUST BE DONE TLSTING

ERROR+177
BR
ENDSHM

>> ERROR 177, SHARED MEMORY OUT OF ASSIGNED BOUNDRY

TST15

;

.ASCIZ

/SHARED MEMORY TIMED-OUT/

MOV
SSHM2.EMADR
::\\
MOy
(MOSTCESADR
;> ERROR 200, SHARED MEMORY TIMED-OUT
ERROR+200
ENDSHM: CLR
@8K2CSRD
‘AL INTERRWPTS OFF
BIC
#BIT02, @9K2CSRJ
s TURN OFF SHARED MEMORY
&
CLR
38RO
;MM OFF

101 SHM1:
101

Page

SHM2:

.EVEN

.ASCIZ /SHARED MEMORY (Uf OF ASSIGNED BOUNDRY/

D10

KXJ11-CA FUNCTIONAL TEST
T15
SHARED MEMORY LMGH

MACRO Y05.02

4676

Thursday 03-Apr-86 14:11

it eensanaesd

;*#TEST 15
T

033174

032737
001413
005737
001410
012706
012737
005037
000402
000137

104415
000413

000340

177524

TST15:

050754

001100
177777

044742

002426

037176
033246
040

Page 119

22 2222 22 22 222 22 222

SCOPE

T Y

BIT
BEQ
TST
BEQ
MOV
MOV
CLR
BR

#340,39K2CSRC
30062$
MAXBLK
30062$
#STACK, SP
#-1, TRAP4X
EMPRE
300634

;; IS THE ID SWITCH IN POSITIONS O OR 17
:: SKIP THIS TEST
IF IT IS
::IS THERE ANY ROOM FOR SHARED MEMORY
::SKIP THIS TEST IF NOT
:: SET A CLEAN STACK.
:: DISMISS BUS-ERRORS.
:: CLEAR ERROR PREFIX
;3 SKIP NEXT.

300644

:i...AND SKIP OVER THE ASCII.

ASCIZ

300644
:

A P

300628: JMP
1sT16
300635: TSNAME, .+4

123

SHARED MEMORY LMGH

.EVEN

:: BYPASS,
:: PRINT TEST NUMBER AND NAME.

SHARED MEMORY LMGH\

;s ¥kkkkkkkkkkkkkkkkkkkhkhhkkkkkkkkkkkkkkkkkkkkkkkkokkkkkkokkkkkkkkkk

;#TEST 15.1

DTC DMA ACCESSES TO SHARED MEMORY

f3tttt‘ttttttttt#tttttttttttttttttttttttt‘ttttttttttttttt‘ttttttt

; THE SHARED MEMORY MAPPING TEST MUST PASS PRIOR TO RUNNING THIS TEST

000004

177540

4683 033302

013737

050752

177534

013700
013702
00

050752
050752
000200
050752
050752
177771
177711

177536

177700
177536
000004

042737

COO0O0O0O0O0O0OO000

BIC

#BIT02, 3MK2CSRJY

;DISABLE SHARED MEMORY

;ENABLE ONE BLOCK OF SHARED MEMORY
; LOAD LOMEST Q BUS ADDRESS OF SHARED MEMORY

MOV
LOWLIM, 36177534
:SET LOW LIMIT OF SHARED MEMORY
;NOW FIGURE SHARED MEMORY'S HIGHEST QBUS ADDRESS LIMIT
MOV
LOWLIM,RO
;
MOV
LOWLIM,R2
ADD
#200,R0
;MAKE SHARED MEMORY ONE BLOCK LONG
MOV
LOWLTM, 38KK2CSRH
;LOAD HI LIMIT OF SHARED MEM IN CSRH
SUB
LGLIH RO
:GET NUMBER OF BLOCKS

ADD
NEG
BIC
BIS
8IS

177540

.éo
ao
nc'n.ao
RO, 80K2CSRH

;CLEAR AWAY UN-NEEDED BITS

; LOAD NUMBER OF BLOCKS FIELD

981702, 3¥C2CSRY

;ENABLE SHARED MEMORY

;INIT MEMORY TO BE SHARED FROM THE K2 (LOCAL) SIDE
; INCREMENTS 2Y 2 STARTING WITH ZERO AT THE LOWEST

4705 033410

004737
012737
012737

001462
000020
017600

172516
172352

052737
005000
012702
012701

000001

177572

i Sl
120000
010000
010022
i
34
062700
4711 O Mg 077104
47
12

JSR

MOV
MOV

926
90172516
#17600, 38KIPARS

CLR

MOV

RO, (R2)+

8IS

18:

Aoo

WITH A PATTERN THAT
SHARED MEMORY LOCATION

;mr MMU PARS AND ms

22 BIT ADDRESSING,{ D SPACE
.xgmsmmm
0 LAST 8KB BLOCK
MEMORY

21, 90MMRO

JENABLE MU

:40% égz

nm 4KW OF MEMORY

R1,1$

;LOOP CONTROL

WRITE MEMORY uxm CONTENTS OF RO

#2.R0

i INCREMENT RO BY
2

.NADTCWWEUTDEMTANMWYTOLMWY
S

., R

E10

MACRO Y05.02 Thursday 03-Apr-86 14:11
KXJ11-CA FUNCTIONAL TEST
T15.1
DTC DMA ACCESSES TO SHARED MEMORY
4713 033440

4718 033450
4719
4720
4721
4722 033454
4723
4724 033460
47 25
4726 033464
4727
4728
4729 033470

4730
4731 033474
4732
4733
4734
4735
4736
4737 033500
4738 033504
4739 033510
4740 033512
4741 033514

033522
0335
4742 033532
4

Page 120

012705

034546

MOV

#1004 ,R5

:OéNT T0 T&E THAT HOLDS DTC XFER

004737

034762

JSR

PC,SHMXFR

%BODW INE THAT LOADS PARAMETERS

004737

034510

012705

034564

004737

;RETURN HERE AFTER SUCCESSFUL DTC XFER.

JSR

PC,32%

034762

JSR

PC,SHMXFR

:%Jfl_EODWM THAT LOADS PARAMETERS

034510

JSR

PC,32%

;CHECK RESULTS OF TRANSFER FROM SHARED

012705

034602

004737

034762

;CHECK RESULTS OF TRANSFER FROM SHARED
;MEMORY TO LOCAL MEMORY
;D0 A DTC_CONTROLLED TRANSFER OF THE DATA IN SHARED MEMORY TO LOCAL MEMORY
;S0 THAT THE PHYSICAL ADDRESSES ARE THE SAME.
MOV
#101%,RS
.POINT TO TABLE THAT HOLDS DTC XFER

;MEMORY TO LOCAL SHARED MEMORY.

DOAMTRANSFERFRMOUSSHAREDWYTONSHAREDW
MOV

#1024 ,R5

F;OA%NT Tgngkfll.E THAT HOLDS DTC XFER

JSR

PC, SHMXFR

:G.I“TSODW INE THAT LOADS PARAMETERS

:CPECK RESULTS OF TRANSFER FROM SHARED MEMORY TO SHARED MEMORY;
CFECK 2048 WORDS OF DATA TRANSFERED.

012702
012703
022223
001407
012737
012737
104201

120000
130000

036544
045206

50‘:

MOV

#120000,R2

;POINT TO LOWER HALF OF SHARED MEM

51%:

gg%)'.(fl3)0

;DATA SHOULD BE THE SAME IN EACH HALF

MOV

044746
044752

MOV

S5e%:

077112

4744

MOV

OIW.RS

#LMGH3 , EMADR
#NOSIG,ESADR

ERROR+201
SoB
R1,51¢

;POINT TO UPPER HALF OF SHARED MEM
s\
;s

>> ERROR 201, DATA NOT TRANSFERED CORRECTLY

33//

;LOOP CONTROL

;NOW DO A TRANSFER FROM SHARED MEMORY TO SHARED MEMORY HAVING THE DTC

4746 033534

012705

034620

:746 033540

004737

034762

s TRANSFER DATA FROM THE LAST LOCATION IN MEMORY TO THE FIRST LOCATION ETC..
MOV
#1034 ,R5
;POINT TO TABLE THAT HOLDS DTC XFER
:PARAMETERS
JSR
PC,SHMXFR
:
;RETURN HERE TO CHECK TRANSFER FROM SHARED MEM TO SHARED MEM

012702
012703

022243

033574
4757 033576

001407
012737
012737
104202
077112

dss:.

120000
140000

036544
045206

S6$:
044746
044752

MoV

#120000,

;POINT TO BOTTOM OF SHARED MEMORY

CMP

ggZ)o.-(RS)

;

MOV

afiflv

MOV

57%:

#140000,R3

uLfinus EMADR
-

#NOSIG.ESADR

ERROR+202
SOB
R1,56%

;POINT TO TOP OF SHARED MEMORY

:; >> ERROR 202, DATA NOT TRANSFERED CORRECTLY

33//

F10

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
T15.1
DTC DMA ACCESSES TO SHARED

4759 033600
4760

Thursday 03-Apr-86 14:11

P age 121

60%:
-RGITDETOSETWFMTESTSWDGMMNGGDIW IRST IT MUST BE ENSURED

4761
4762
4763
4764
4765 033600

T HAS BEEN SHOWN IT WILL

:BE
010000

4766 033606
4767 033610
4768 033614

145332

; THE KNOWN GflflD IOP'fllalIT WILL TRANSFER 2K WORDS FROM THE KNOWN GOOD IOP BACK
:TO QBUS SHARED MEMORY.

4772 033632
4773 033640
4774 033646
4775 033654
4776 033662
4777 033664
4778 033672
4779 033674

033702
033710

4780 033712
4781 033714
4782 033722
4783 033724

033732

033740
:754 033742

037042

014000

174440
174454
174454
174454

000002

174454

020451
045206

044746
044752

000001

174454

020513
045206

044746
044752

034342

:786 033746
4788 033746

BIT

#8IT12,aSHR

JSR
&1.3

PC,PDPDTC
#<QBMEM!UP> , CARAHI
2663
, 9ECHA2L
#CLIE2, 94CMDR
#SCCCH2, 3#CMDR
#14000, 9#STAT2
63$
SEOP, 34STAT2
624

050752
036764

100000
174444
033746
000061
000241

K_WORDS FROH QBUS SHARED MEMORY TO

634:

MOV
MOV
MOV
BIT
BEQ
BIT
BEQ

MOV

62%:

#DMA3,EMADR

#NOSIG,ESADR

ERROR+203
BR
654
BIT
#TC,@0STAT2
BNE
644
MOV
MOV

#DMA4,EMADR
#NOSIG.ESADR
+204

354

004737

012737
012737

034322
000241

5%\

;:: >> ERROR 203,

;WAS TRANSFER SUCCESSFUL?
$5\\
;; >> ERROR 204,
537/

;O0F SHARED MEMORY

<K2MEM!UP>,CARAHI

¢m~w>.moros.2
<smmm>.<c7cmw-zmnv»
<CARA!CARB
! COP!MODE >

<SWRQ!HM>
, <TRWM! INTLV>

034654
034762

sNXM?

000140

012705

;WAIT FOR IT TO BE DONE

;CHAINS TO LOAD ADDRESSES IN QBUS MEMORY WITH STARTING ADDRESS

sm-wnxsnovoz

034762

;:DISABLE_INTERRUPTS
; ISSUE_START CHAIN COMMAND

664
:

037042
056516

004737

JMP

100140

010000
034636

;PUT_STARTING ADDRESS OF SHARED MEM
: INTO DTC FORMAT

65%:

037042
056476

012737
012705

;IS THERE A KNOWN GOOD IOP?

<K2MEM!UP> , CARAHI

001372

174440
174454

644:

704:

MOV

MOV
JSR
MOV
JSR

#10000, DCOUNT

;SET UP_A COUNT LOCATION TO BE DECREMENTED

sPOINT TO START OF TABLE WITH DTC

#1048 ,R5
PC, SHMXFR
#105$ ,R5
PC, SHMXFR

SGO TO _SUBROUTINE THAT LOADS PARAMETERS
:INTO DTC

;G0_TO SUBROUTINE THAT LOADS PARAMETERS
:INTO DTC

;COMES HERE AFTER TRANSFERS TO FROM KG IOP

MOV
MOV

#774 ,98CHA2L
#SCCCH2, 38CMOR

'ISSUE START CHAIN COMMAND

mners

emacsoreramt
o fmI——

610

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
MEMORY
SHARED
T15.1
TO
ACCESSES
DMA
UTC

014000

174454

000002

174454

4818 034074

000040

177540

4820 034104

020513
045206

044746
044752

000001

174454

020451
045206

044746
044752

4812 034050
4813 034056

4814 034060

4815 034062
4816 034064
4817 034072

032737
001774
005000
077001

4819 034102
034112
034120

4821 034122

4822 034124
4823 034132
4824 034134
034142
034150
4825 034152
4826 034156
4827 034160
4828 034166
4829 034170

001412

034176
034204
4830 034206
4831 034214

4832 034222

4833

4834 034224

4837 034240

012702
012703
012701
022223

140000

001414

022016
045206

044746
044752

177770
000004

001414
001414

120000
130000
004000

012737
012737

045206

BEQ
BIT
BNE

79%:

72%:

75%:

044752

021756

045206

177540

044746
044752

Page 122

214000, 39STAT2

;SPIN HERE

RO,.
SEOP, 38STAT2

;WAIT FOR LATE EOP
;EOP SET?

#BIT0S, 38K2CSRJ

;WAS EOP CAUSED BY SACK TIMING OUT?

783
RO
79
71%

MOV
2DMA4,EMADR
MOV
#NOSIG,ESADR
ERROR+205

76%:

000040
001372

BIT

BEQ
CLR
)
BIT

73%:

:ggg 034242 001407
4840 ng
012737 036544 044746
012737
104210
077112
000426
042737
005337
001255

785:

Thursday 03-Apr-86 14:11

71¢:

BR
BIT
BNE

80
#TC.38STAT2
73$

MOV
2DMA3,EMADR
MOV
#NOSIG,ESADR
ERROR+206
TST
TSTLOC

BNE
BIT
BEQ

71$
#140000, TSTLOC+2
72%

MOV
#KG.ER,EMADR
MOV
#NOSIG.ESADR
ERROR+207
BIC
#1C7,TSTLOC+2

;: >> ERROR 205,
s3//

;RETURN TO NEXT SERIES OF TESTS
;WAS TRANSFER COMPLETE?

33\

;IS TPRO OF KG IOP ZERO?

;:/;> ERROR 206,

;ANY ERRORS IN KGIOP?
$a\\
::

>> ERROR 207,

377

;:CLEAR_OFF UN-NEEDED BITS

cMP
84, TSTLOC+2
.IN WAITING FOR COMMAND STATE?
BNE
714
; TRANSFER WAS SUCCESSFUL
. GO CHECK RESULTS
MOV
#120000, R2
MOV
#130000.R3
MOV
#2048 ,R1
sINIT LOOP COUNTER

CHP

(Ra)o.tasy

BEQ

764

S08
BR

R1,75$
$

MOV
SLMGH3,EMADR
MOV
#NOSIG.ESADR
ERROR+210

:TOP 2 KWORDS OF SHARED MEM SHOULD =
; LOWER 2 KWORDS OF SHARED MEM.

:: >> ERROR 210, DATA NOT TRANSFERED CORRECTLY TO/FROM KG IOP
33//

;LOOP CONTROL

;CLEAR OUT SACK TIME OUT BIT
sGIVE IT A FEW CHANCES
WHEN DCOUNT GETS TO ZERO ITS HAD

sENOUGH TIME. FLAG AN ERROR

744

$3\\

.a/;) ERROR 211, KNOWN GOOD IOP WENT TO LUNCH
i

175740
001412
000140

77%:

<CARA ! CARB ! COP !MODE >
<@BUSIO!UP>, 175740

«aas P>, TsTioC
80%:

<SRO!M>.<TM!INTLV>

CHECK TO _SEE IF A Q-BUS EXERCISER IS PRESENT. CHECK FOR AN 18 BIT @BE AT

‘ADMESSWOOOOFRST IF NONE IS FOUND LOOK FOR A 22 BIT QBE AT ADDRESS

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
115.1
DTC DMA ACCESSES TO SHARED MEMORY

3.;;3
4860 034342
4861 034350
4862 034352
4863 034360
4864
4865 034362
4866 034366
4867 034372
4868 034374
4869 034402
4870 034404
4871 034412
4872 034414

4873 034422
4874

4875 034426
4876 034432
4877 034436
43;3 034442

022737 000001 050760
001011
023727 050752 007600
103005

004737
012705
000421
022737
001007
022737
101005
023727
000137

004737
012705
004737
004737

037052

034672

000001 050756

007600 050752
050736 000026

Thursday 03-Apr-86 14:11

Page 123

:17770020. IF BOTH ARE RESIDENT ONLY THE 18 BIT QBE WILL BE USED.
358:
CMP
#1,39QBE18
;IS THERE AN 18 BIT Q-BUS EXERCISER
BNE
364
o
LOWLIM, 7600
;IF LOMLIM IS OUT OF RANGE OF 18 BITS
BHIS
36%
: THEN BAIL OUT
;GET ADDRESS FORMAT OF LOWLIM FOR QBE18
JSR
PC,Q18ADR
MOV
#106$,RS
BR
37
36%:
CMP
#1,82GBE22
;IS THERE A 22 BIT QBE?
BNE
394
:NO QBES PRESENT
cMP
#7600, LOWLIM
:D0 WE NEED 22 BITS TO ACCESS SHARED
BHI
384
: MEMORY AND IF SO DOES THE SYSTEM
cHP
. ABUSM, #22
: SUPPORT IT?

035226

39§:

JMP

SHMXIT

037076
034726
034762
034762

385:

JSR
MOV
JSR
JSR

PC,Q22ADR
#1074 ,RS
PC, SHHXFR
PC.SHMXFR

;GET ADDRESS FORMAT OF LOWLIM FOR QBE22

374:

:
;LJAD POINTER WITH TABLE DATA
;

iCHECK TRANSFER FROM GBE TO SHARED MEMORY

4887 0
034472

012737
012737

4888 034502
4889 034504

077113
000137

034500 104212

036544
045206

035226

400$:
402¢:
044746
044752

CLR
S08
MOV
CWP
BEQ

MOV
MOV

4014
:

R2
R2,.
#120000,R2
(R2)+,$63636
4013
SLMGH3,EMADR
#NOSIG.ESADR

ERROR+212

aag 005002
omso 077201
012702 120000
ms osuss 022227 063636
4886 0
001407

R1,402¢

SHMXIT

;WAIT A BIT
;;\\
;; >> ERROR 212, BAD DATA TRANSFER FROM QBE TO SHARED MEM

i3//

:BAIL OUT AFTER ERROR

110

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
T15.1
DTC DMA ACCESSES TO SHARED MEMORY

4891
4892
4893
4894 034510

Thursday 03-Apr-86 14:11

Page 124

;SUBROUTINE TO CHECK TRANSFERS FROM SHARED MEM TO LOCAL
;COMPARE THE DATA TO ENSURE THAT THINGS WENT OK

320:

120000
061022
036544
045206

33s:
044746
044752

344:

MOV
MOV
cHP
BEQ

#120000,
R2
#BUFR1,R3
(R2)-,(R3).
34

MOV
#LMGH3.EMADR
MOV
#NOSIG.ESADR
ERROR+213

S0B

RTS

R1,33$

33\

;3 >> ERROR 213, DATA NOT TRANSFERED CORRECTLY
:3//
;R1 WAS INITIALLY LOADED WITH OP COUNT

KXJII-CA FUNCTIONAL TEST
T15.1

MACRO Y05.02
DTC DMA ACCESSES TO SHARED MEMORY

4902 034546
4903
4904
4905 034546
4906 034564
4907
4908
4909
4910 134564
4911 V34602
4912
4913

4914 034602
4915 034620
4916
4917
4918
4919 034620
4920 034636
4921
4922 034636
4923 034654

4927
4928 034672
49
49
4931 034710
4932 034726
4933
4934 034726
4935

4936
:937 034744

Thursdey 03-Apr-86 14:11

Page 125

:
100§

050752

100000

;---F IRST TRANSFER
;---DATA FOR TRANSFER FROM QBUS SHARED MEMORY TO LOCAL MEMORY---

LOWLIM, O,

<@BMEMIUP>,

LCLMEM, BUFR1,

<K2MEMIUP>,

;---omcnC
'Iroaem'msrsen FROM
LOCAL SHARED MEMORY TO QBUS SHARED
MEMORY--gi
SAME PHYSICAL ADDRESSES
===--e=-ceeeee-

172352

050752

100000

KIPARS, O,

<K2MEM!UP>,

LOWLIM, O,

<QBMEM!UP>,

;---THIRD TRANSFER
;---DATA FOR TRANSFER FROM QBUS SHARED MEM TO QBUS SHARED MEM---

108¢

LOWLIM, O,

<@BMEM!UP>,

LOWLIM, 10000,

<Q@QBMEM!UP>,

4096
4096.
2048.

; ---FOURTH TRANSFER

050752

000000

100000

;---NOW FOR SOMETHING COMPLETELY DIFFERENT; SOURCE ADDRESS INCREMENTS
; ---WHILE DESTINATION DECREMENTS
1064
LOWLIM, O,
<@BMEM!UP>,
KIPARS, 17776,
<K2MEM!'DOWN>,

172340

056466

100000

172340

056472

100000

172340

037142

172340

050760

172340

037142

172340

050756

;---TRANSFER PARAMETERS TO TPR2 AND 3 OF GOOD IOP
KIPARO, KG$TO4,

<QBMEM!UP>,

KIPARO, 175744,

;---TRANSFER COMMAND TO OMA LOAD CHAIN INTO KNOWN GOOD IOP
KIPARO, KG$TOS, <QBMEM!UP>,

KIPARO, 175740,

;---TRANSFER TO INIT THE 18 BIT QBUS EXERCISER
KIPARO, QBLOAD, <K2MEM!UP>,

000020

KIPAR7, 10000,

;---TRANSFER TO SET THE GO BIT IN CSR2 OF THE 18 BIT QBE

KIPARO, QBE18,

<K2MEM!HOLD>,

KIPAR7, 10002,

;---TRANSFER TO INIT 22 BIT QBUS EXERCISER
KIPARO, QBLOAD,

000020

<QBUSIO!UP>,

<K2MEM!UP>,

KIPAR7, 10020,

;---TRANSFER TO SET THE GO BIT IN CSR2 OF THE 22 BIT QBE
KIPARO, QBE22,

<K2MEM!HOLD>,

KIPAR7, 10022,

2048,
2

<QBUSIO!HOLD>,

<@BUSIO!UP>,

<QBUSIO!UP>,

SHMXFR:

;SUBROUTINE TO INITIATE AN DTC DMA TRANSFER TO/FROM SHARED MEMORY.

.
:
:
005037
012737
0050
012737

500

137
013737
01373;

013500

174454
000115

174470

035202

174442

036764
037042
037044
035206
035204

035204
035206

ON ENTRY:

CHAIN FILE THAT WILL BE LOADED INTO DTC CHIP.
TOP 8KB OF LOCAL MEMORY IS ENABLED AS SHARED MEMORY
T0 @BUS.

CLR

FOCMOR

MOV
MOV
JSR
MOV
MOV
DD
BIS
MOV

oegg SPCHALL
a(RS )+, RO
PC,POPDTC
CARAHI
, 26$
CARALO, 274
(nsgo.é'u
(R5)+,26$
a(RS)+,RO

15¢:

RS= START OF TABLE TO LOAD XFER PARAMETERS INTO A

sLisameR

RESET THE DTC

iSET UP THE DTC

;LOAD CHAIN ADDRESS
;PUT ADDRESS IN DTC FORMAT

K10

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
Ti5.1
DTC DMA ACCESSES TO SHARED MEMORY

035176
4976 035200
4977

035210
035212

035214
000240
000102
014000

174454
174454
174456

000002

174456

020513
045206

044752

000001

174456

020451
045206

044746
044752

044746

12%:

PC,PDPDTC
CARAHI
, 28
CARALO
. 29%
(R5)+,29%
(R5)+.28%
(R5)+.R1
R1,24%
#SCCCH1
, 28CMDR
#SSRCH1.38CMDR
#14000, 38STAT1
14
$E0P, 38STATL
12$

BNE

13§

Page 126

;PUT ADDRESS IN DTC FORMAT

;LOAD R1 FOR CHECK ROUTINES
;LOAD OP_COUNT
;ISSUE START CHAIN COMMAND CH1
;ISSUE SET SOFTWARE REQUEST COMMAND
;LOOK FOR CHAIN ABORT OR NAC

;WAIT FOR NAC TO SET
:DID WE GET AN EOP?

MOV
#DMA4,EMADR
#NOSIG,ESADR
MOV
ERROR+214
BIT
#TC,3#STAT1

MOV

13%:

4978
4979
4980
4981 035202
4982 035204

4983 035206
4984 035210
4985 035212
4986 035214
4987 035216
4988 035222
4989
4990 0352
4991 035232
4992 035240
4993 035246
4994
4995

14%:

JSR
MOV
MOV
ADD
BIS
MOV
MOV
MOV
MOV
BIT
BEQ
BIT
BEQ

RTS

#DMA3,EMADR

#NOSIG,ESADR

ERROR+215

;WAS TRANSFER SUCCESSFUL?
s3\\
;3

>> ERROR 215,

:CHAIN FILE FOR SHARED MEMORY TRANSFERS
25%:
264 :

274%:

28%:
29%:
244:

000240
035202

005037
042737
042737
005037

177572

000004

176000
037146

177540
037142

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

SHMXIT: CLR
BIC
BI
CL!

<CARA ! CARB ! COP ! MODE ! CHAD>
0
:SOURCE SEGMENT
0
: SOURCE OFFSET
0
;DESTINATION SEGMENT
0
;DESTINATION OFFSET

> . <TRWMIBUSHOGITEDP> '
<

>,<

’

<K2MEM>
, 25§

FMMRO
oanoa omacsna
6006

;OFF MMU
IDISABLE SHARED MEMORY

;CLEAR EXTENDED ADDRESS BITS

5 3 Aok oo ook sk e sk oo ool s ook skl s o sl gk ok ookl ol

;*TEST 15.2

TEST QHITS

sk ook ook ol Aok dokok

bttt
bttt
b i
et i
b

’us2t
177540
001412

174470

174454
175012
012737
032737

174454
174454

TEST THAT DMA STATE MACHINE TERM THAT HANDLES QHITS IS OK

8IS

g 338303037

4973 035152
4974 035160
4975 035162
035170

001407
012737
012737
104214
032737
001007
012737
012737
104215
000207

036764
037042
037044
035212
035210

1%:

—~

035142
035150

004737
013737
013737
062537
052537
012501
010137
012737
012737
032737
001774
032737

)

4959 035042
4960 035046
4961 035054
4962 035062
4963 035066
4964 035072
4965 035074
4966 035100
4967 035106
4968 035114
4969 035122
4970 035124
4971 035132
4972 035134

Thursday 03-Apr-86 14:11

0BIT02,BK2CSRJ

obses. Tercoe
#135, 36MMR

SOCHAZH

!CLIEZ 88CMDR

sENABLE SHARED MEMORY
VINIT TSTLOC WITH KNOWN DATA
iCLEAR DTC
iLOAD DTC MASTER MODE REG

iCHAIN SEG/TAG FIELD

o
H

Anao
#SCCCH2, a#CMDR
#14000,3#STAT2

"JELL ARBITER TO BANG ON SHARED MEMORY
;ISSUE START CHAIN COMMAND
;

L10

KXJ11-CA FUNCTIONAL TEST
T15.2
TEST QHITS

5009 035346
5010 035350
5011 035354
5012 035360
5013 035364
5014 035372
5015 035400
5016 035406

001774
013746
013746
013746
012737
012737
012737
012702

5018 035416
5019 035424
5020 035430
5021 035432

012737
032712
001775
052712

5023 035436

000234

5025 035442
5026 035444

022626
000234

5028 035450
50%3 035452
30
035456
5031 035462
5032 035466
5033 035474
5034 035476
035504

022626
012637
012637
012637
032737
001407
012737
012737

000120
000130
000132
035450
035442
000340
177530

5017 035412 042712 010000

5022

5024 035440

5027 035446

000110
040000

000001

000132
000130
000120
000002

174454

020513
045206

044746
044752

000001

174454

020451

044746

104216
032737
001007
012737

035540
Sogs 035542

104217
000410

5041 035546
50‘% 035552

000020
000400

001412
000000

000030

000140

012737

2840 035544 001602
504

03;556

5044 035560
5045 035564
5046

001000

045206

MOV
BIT
BEQ
BIS

#110,39K2QIR
#B8IT14,(R2)
14$
#30110,(R2)

;TELL _ARBITER TO STOP ACCESSING SHARED MEMORY
;DID THE QIR GET WRITTEN?

SPL

:LOIER PRIORITY LEVEL

7%:

CcHP
SPL

(SP)+,(SP)+
4

;FIX_STACK INTERRUPT VIA 130
;WAIT FOR INTERRUPT CAUSED BY ARBITER WRITING

63%:

CcMP

(SP)+,(SP)+
(SP)+,a#132
(SP)+,a3#130
(SP)+,a#120
$EOP , 34STAT2
24
#DMA4 , EMADR
#NOSIG,ESADR

BIC

14%:

WAIT
MOV

MOV

#1712, (R2)

ERROR+216
BIT
#TC,3%STAT2
BNE
3
MOV
#DMA3, EMADR

2%:

044752

MOV

10%:

#NOSIG,ESADR

ERROR+217
BR
15¢

:SAVE VECTOR
:SAVE VECTOR

;:LOAD TRAP HANDLER
:
:
:

;DON'T ALLOW BUS INTERRUPTS
;ENABLE Q@-BUS INTERRUPT,

IACK INTERRUPT,

ACCESSFRG‘IQBUSANSTPROAIERRUPT

;RESTORE THE VECTORS
:
i
;0ID EOP OCCUR?
i\
is >> ERROR 216,

i3//

;DID WE GET TC?

33 \\

;s >> ERROR 217, NO TC!EOP
i3/

<CARA!CARB ! COP !MODE >

<K2MEM!HOLD>, TSTLOC
<K2MEM!400:UP>, O

<SWRQ!HM>
, <TRWW ! INTLV>
15%:
5 5 koo sk sk o ok ool e bk oo o afolk oo e ok ol ok o o o s o o sl ol o ol o e ko e o ok o o o o o o o oo ook o ok ok
;*TEST 15.3

ACCESS SHARED MEMORY WITH LOCKED INSTRUCTIONS

* iutuututtnuntuunnuuntnutuutuutunuuunn

035606 012700 120000
012702

120000

012701 010000
007322
062700 000002
077104

soga 035632 012702 120000

615
MOV
8IS

981702,
maoo SMCIPARS
#1, 30MMRO

TEST THE SHARED

MOV

;ENABLE SHARED MEMORY
:TURN ON MMU

USING THE LOCK INSTRUCTIONS

iPOINT TO SHARED MEMORY

néoooo no

;

7322

;##4TEST WRTLCK INSTRUCTION
;
;LOOP CONTROL

120000 TO 137776
Y WITH PATTERN
smtoMEMOR
;INIT aKuMoVBLOCK
#4096 ,R1
;
MOV

1$:

JWORD

ADD
S0B

MOV

#2.R0
R1.1$

£120000,R2

TPR

;TPRO4 TO TELL K2 THAT IT'S STOPPED WRITING MEM.

1000

gg‘aa os§§fi 052737 000004 177540
gg« 035572 012737 017600 172352
50 osssos 052737 000001 177572
035616
5055 035622
5056 °§§2§3
5057 0

WAIT

MOV
MOV
BIT
BEQ
MOV

3$:

035564
7 03

035612

Page 127

13
%120, -(SP)
a#130,-(SP)
a#132,-(SP)
#6$,88120
#74,38130
#PR7,3%#132
#K2CSRD,R2

000120
000130
000132
177532

Thursday 03-Apr-86 14:11

BEQ
MOV
MOV
MOV
MOV
MOV
MOV
MOV

030110

035512
5035 035514
50
S22
5037 035524

MACRO Y05.02

;

M10

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

T15.3 ~ ACCESS SHARED MEMORY WITH LOCKED INSTRUCTIONS
5059 035636 012700 120000
5060 035642 012701 010000
5061 035646

S062 035650

020220

001410

5063 035652
035660

012737
012737

5064 035670
5065 035672
5066 035676
5067
5068 035700
%3 035704
5071
5072
5073
5074
5075

000442
062702 000002
077115
012701 010000
012702 120000

5078 035710

007222

035666

104220

036571
045206

2%:
044746
044752

Og 776
5093 035776
gggg

MOV
MOV

£120000, R0
24096 ,R1

;
:

R2.(R050
34

ZLMGH4.EMADR
#NOSIG.ESADR

ERROR+220

128

;IS PATTERN THERE?
:

;:\\
:: >> ERROR 220, PATTERN NOT CORRECT

37/

;EACH VIRTUAL ADDRESS = ITSELF +1

077102
012702
012701
012703
020321
001416
010337
014137
010137
012737
012737
104221
000403
062703
077223

4%:

010000
120000
120001

5%:

001124

001126

001120
036631 044746
045244

000002

5096
5097

044752

64:

JMORD

7222

508
R1,4$
MOV
#4096. ,R2
MOV
#120000,
R1
MOV
#120001 .R3
cHP
R3,(R1)+
BEQ
6
MOV
$GDDAT
MOV
-(kn $BDDAT
MOV
W
MOV
EMADR
MOV
9EF3,ESADR
ERROR»221
BR
7%
ADD
#2.R3
S0B
R2.5%

;%% TEST TSTSET INSTRUCTION

:LOOP CONTROL
;
;
;CHECK RESULTS
;GET EXPECTED DATA
:..AND ACTUAL DATA
:...AND FAILING ADDRESS

;;\\
i3 >> ERROR 221, TSTSET INSTRUCTION FAILED
3377
;BAIL OUT ON
;UPDATE DATA

74:
ARBLMGH
;CONDUCT SOME TESTS OF LMGH FROM THE ARBITER SIDE.

ITHE TESTS ARE nmweo8Y CAUSING AN INTERRUPT 70 THE ARBITER CPU

;VIA THE QIR. TPROS
OF THE INTERRUPTING IOP WILL CONTAIN A VALUE THAT
mweusenavnemmrmnemcmeoavmmmmmx

5098

iTO A TEST SUB-ROUTINE. TEST COMPLETION OR ERRORS ARE REPORTED VIA TPRO4

gggg

:OF THE IOP UNDER TEST.
H

siox

;igg
3105 035776 005737 050762
gmg 032883 001002

cHP

BEQ

BR
7%
38
ADD
#2,R2
S0B
R1,2$
;
;sNOW TEST THE TSTSET LOCK INSTRUCTION
MOV
#4096. ,R1
;
MOV
#120000,R2
;
;WRITE AN INCREMENTING PATTERN TO SHARED MEMORY STARTING
:AT VIRTUAL LOACTION 120000 WHICH IS INITIALIZED WITH THE
:VALUE 120000. THE TSTSET INSTRUCTION WILL READ THE VALUE
:120000 FROM VA 120000. IT WILL THEN OR THE LSB =1 AND
;WRITE IT BACK OUT. THE RESULT WILL BE THAT THE DATA IN

g_}g’

5079 035712
5080 035714
5081 035720
5082 035724
5083 035730
5084 035732
gggg 035734
035740
5087 035744
88 035750
035756
035764
9 035766
035770
035774

MOV
MOV

03-Apr-86 14:11

sieeey ool e

iNOW LET'S GET DOWN TO THE BUSINESS OF TESTING

;CAUSE ARBITER TO WRITE THE SHARED MEMORY USING THE BUS LOCK INSTRUCTIONS
ST
KDJ$
;IS THE ARBITER A KDJ
H

BNE

ioh
A Sy olrem vese ' MOV
My
gm 036026 01 703 120000

:sxxp THIS TEST IF n xs NOT.

SRRl
IOBMETo 1w o persIow
#120000,R0
;INIT RO AS A POINTER
°

reroR

—'_f

————

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

03-Apr-86 14:11

e A e ARED MEMORY WITH LOLKED INcTRUCTIONS . P
5112 036032
5113 036040

052737
005020

000001

177572

5115 036044

012737

036074

000120

5114 036042

£116 036052

5117 036056
5118
3%53 036064
5121 036070
5122 036072
5123
5124 036074
5125 036102
5126 036106
5127 036112
5128 036114
5129 036116
5130 036120
5131 036124
5132 036130

077102

005037

175010

012737 000002 175012
004737 036330
000234
000001

042737

000010

012701
012700
005002
020210
001415
010237
011037
010037

010000
001124
001126
001120

012737

045210

5133 036134

012737

036150
5134 036152
5135 036156
5136 036162
5137 036164
5133 036172
5139
5140 036174
141 036202
5142 036210

104222
062702 000002
062700 000002
077124
042737 000001 177572
022626
012737 036216 000120
012737
175012
004737 036330

036142

5143 036214

036667

177530

044746

044752

000001

10¢:

BIS
CLR

129

#1,3#MR0
(RO)+

;TURN ON MMU
;CLEAR OUT TOP OF MEMORY

6153 a#120

.SET UP INTERRUPT HANDLER

)

R1,10%

CLR

aflm

MOV

#WTLK,EMADR

MOV

:LOOP CONTROL

;CLEAR TPR4

MOV
22, 38TPROS
:INDEX VALUE THAT DISPATCHES ARBITER TO TEST..
:..
TPR READ ACCESSES FROM ARBITER SIDE.
JSR
PL,ARBDIS
:mnglcTE'T‘!) GENERATE AN INTERRUPT TO THE
SPL
4
:LOWER PRIORITY LEVEL
WAIT
;COMES HERE ON INTERRUPT FROM ARBITER WRITING TPRO4 AFTER DOING WRTLCK TEST
15$:
BIC
#BITO03,3#K2CSRD ;STOP INTERRUPTS FROM WRITES TO TPRO4
MOV
£4096. .R1
:SET UP FOR LOOP
MOV
#120000, R0
;INIT RO AS A POINTER
CLR
R2
;
20$:
CWP
R2,(RO)
:IS DATA CORRECT
BEQ
254
;
MOV
R2, $GDDAT
:GET EXPECTED DATA
MOV
(RO, $BDDAT
:GET ACTUAL DATA
MOV
RO, $GDADR
:GET FAILING ADDRESS
MOV

¢EF2,ESADR

> ERROR 222, ERROR WITH WRITE LOCK FROM ARB SIDE

ERROR +222
:
25%: ADD
#2.R2
;Aoo TWO TO DATA
ADD
#2.R0
;...AND TO ADDRESS
S0B
R1,20$
.Loop CONTROL
BIC
¢1.30MR0
P
(5P)+ (sp).
'FAKE THE RTI
sNOW SET UP TO CHECK TSTSET msrfiucuou FROM ARBITER SIDE
MOV
4304, 99120
INTERRUPT HANDLER
MOV
64, 98TPROS
POINTER T0 TSTSET TEST ON ARBITER SIDE
JSR
PC.ARBDIS
iWRITE VECTOR TO ARBITER
WAIT

COMES HERE ON INTERRUPT FROM ARBITER WRITING
5145 036216 042737 000010 177530 $08:
BIC
oanos u«zcsm :STOP INT

5146 036224
5147 036230
5148 ogggu
5149 036240
5150 036246
5151 036250
31 oggg
153 0
5134 036262

012701
012702
052737
020210
001415
010237
011037
010037

010000
000001

012700 120000
000001

177572

001124

001126
001120
5155 036266 012737 036726 044746
036274 012737 045210 044752
036302

104223

036304 062702 000002

40$:

036330

ARBDIS:

5157 036310
g: 8&3 4
1
16
5160 0
gigé 0
5163

356:

062700 000002
077124
022626
012637 0001
000137 037160

MOV
MOV
MOV
BIS
CMP
BEQ
MOV
MOV
MOV

MOV
MOV

ADD

uzoooéao

#1,R2
R2.(RO)
406
$GDDAT
(aé) $BDDAT
RO, $GDADR
o1,

:SET UP FOR LOOP
;INIT RO AS A POINTER
;
;TURN ON MMU
.IS DATA CORRECT
iGET EXPECTED
:GET ACTUAL DATA
;GET FAILING

o'fén
ésm

55N\
:: >> ERROR 223, ERROR WITH TEST SET FROM ARB SIDE

#2.R0
R1.35%
(SP)+,(SP)+
(5P)+. 86120
ENDLMG

:...AND
TO ADDRESS
;LOOP
CONTROL
;FAKE THE RTI
;RESTORE VECTOR

m.zzs

ADD
$08
o
MOV
JMP

TPRO4 AFTER DOING TSTSET TEST
TS FROM WRITES TO TPRO4

1377

{ADD TWO TO DATA

:SUB-ROUTINE TO CAUSE AN INTERRUPT TO THE ARBITER BY WRITING THE QIR OF

Bll

MACRO Y05.02
KXJ11-CA FUNCTIONAL TEST
T15.3
WITH LOCKED INS
ACCESS SHARED MEMORY

04273
013737
03273
001774
013746
012737

1$:

052737

26:

gi.77 036374

§m ENTRY:

0126
042737

177530

052737

177530

000234
000

BIS
BIC
HOV
BIT
BEQ
MOV
HOV
8IS

sPL
WAIT
O
MOV
BIC

TPROS CONTAINS A VALUE THAT THE ARBITER MILL USE TO
INDEX TO YHE DESIRED
TEST.

#81IT06,39K2CSRD
#81712,30K2CSRD
INTVEC,38K2QIR
#8IT14,98K2CSRD
1$

a#130,-(SP)
#2%,39130

;ENABLE TPRS
;DON'T ALLOW QBUS INTERRUPT
;WRITE THE QIR
;DID IT GET WRITTEN?
;BRANCH 'TIL IT DOES

;SAVE VECTOR
; TRAP_HANDLER

#<BIT12!BIT13>,8%K2CSRD ;THEN ENABLE Q BUS INTERRUPT AND

:IACK INTERRUPTS

(SP)+,(SP)»
(SP)+,3#130

;FIX STACK
;RESTORE VECTOR

#<BIT13!BIT12>,38K2CSRD ;DISALLOW QBUS INTERRUPTS AND

IACK INTERRUPTS

#BIT03,38K2CSRD ;ENABLE iNTWTS FROM TPRO4

BIS
SPL
RTS

sALLOW INTERRUPT

INTVEC:

.MORD

;HOLDS VECTOR TO BE WRITTEN TO QIR

(MGH1:

.ASCIZ

<CRLF>/TRANSFER TO SHARED MEMORY TIMED-OUT/

5176 036366

Page 130

;I0P WITH THE APPROPRIATE VECTOR

8888383 g

5165
5166
5167
5168
5169
5170 036330
5171 036336
5172 036344
5173 036352
5174 036360
5175 036362

03-Apr-86 14:11

(MGH2:

.ASC

<CH.F)\TRNGF? 70 Q-BUS 150 TIMED-OUT\

A
L. AScHs <CRLF>/BAD
<CRLF>/WRITE
LOCK TO SHARED MEM ERROR/
<&;>/TEST SET 10
MEM ERROR/

LMGHS:
WILK:
TSET:
.EVEN

.ASCIZ

.ASCIZ
.ASCIZ

>/ARBITER S

<CRLF>/ARBITER S

LOCK ERROR/

TEST SET ERROR/

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
T15.3
ACCESS SHARED MEMORY WITH LOCKED INSTRUCTI

5558‘1’ 036764
5202
5203
5204
5205
5206

03-Apr-86 14:11

Page 131

POPDTC:
;ROUTINE TO FORMAT A PDP/LSI11 PHYSICAL ADDRESS FOR DTC USE.
;TAKE THE STARTING ADDRESS (GLOBAL) OF THE FIRST 8KB BLOCK OF SHARED MEMORY.
;srmnmcsroncnm«mmenwmn:mcrmrnomorr
:THE BITS WHICH REPRESENT
ADDRESS BITS <13:13>, THE REWAINING
BITS WILL BE
:SET IN THE UPPER CURRENT ADDRESS REGIS
THEN SHIFT RO, WITH
ALL UPPER

5207

;ADDRESS BITS STILL SET, UNTIL THE CTONIF SCANT ADDRESS BITS HAVE BEEN SHIFTED

52"’9520&

+INTO RS. THEN R3 IS THE OFFSET ADDRESS OF THE @ BUS CGLOBAL) SHARED MEMORY.

5210
5211 036764
5212 036766
5213 036770
5214 036772
5215
5216 036776
5217 037000
5218 037004
5219 037006
5220 037012
5221 037014
5222 037016
5223 037020
5224 037022
5225 037026
5226 037032
5227 037034
5228 037036

010146
010246
010346
072027
010001
042701
005003
012702
000241
006200
006003
077203
010137
010337
012603
012602
012601

037040 000207

5231
5232
233
234

037042
037044
037046
037050

000000
000000
177600
000000

;

177776
140377
000010

404 :
037042
037044

MOV
MOV
MOV
ASH
MOV
BIC
CLR
MOV
CLC
ASR
ROR
S08
MOV
MOV
MOV
MOV
MOV
RTS

CARAHI: .WORD
CARALO: .WORD
STQBIO: .WORD
LCLMEM: .WORD

R1,-(SP)
R2.-(SP)
R3.-(5P)
#-2,R0
RO,R1
#t(37400,R1
R3
#10,R2
RO
R3
R2,40$
R1.CARAHI
R3.CARALO
(5P)+,R3
(SP)+.R2
(5P)+.R1

; BUMP IT RIGHT A COUPLE FOR DTC
:
ALIGNMENT
:SAVE IT IN R1
:MASK OUT THE NON-SEGMENT BITS
;INIT R3
;
:CLEAR THE C BIT
;SHIFT 8 TIMES
;LOAD CURRENT ADDR REG A HIGH WORD
:LOAD CURRENT ADDR REG A LOW WORD

O
©
177600
O

;START OF QBUS IO
:LOCAL MEMORY

D11

KXJ11-CA FUNCTIONAL TEST

T15.3

5236 037052
5237
5238
5239 037052
5240 037054
5241 037056
5242
5243
5244 037062
5245 037064
5246 037070
5247 037074
5248
5249 037076
5250
5251
5252
037076

5253

MACRO Y05.02

03-Apr-86 14:11

ACCESS SHARED MEMORY WITH LOCKED

037100

gggg 037102

5256
SZg'ol 037106
5258
037110
5259 037114
5260 037120
5261
526%
526
5264 037124
3265 037130
266
5267 037134
g
037136

3270

Q18ADR:

010246
010346
013702
010203
042702
072227
000407

050752

Q22ADR:

010246
010346
013702

050752

010203
042702
042703
072327

001777
176177
000006

050337
050237

;SUBROUTINE TO CONVERT AN ADDRESS TO A FORMAT USABLE BY THE QBUS
;EXERCISER

MOV
MOV
MOV

R2,-(SP)
R3,-(SP)
LOWLIM,R2

;SAVE THE REGISTERS THAT ARE..
: GOING TO BE USED BY THIS ROUTINE.
;PUT THE FIRST NON-EXISTANT MEMORY ADDRESS IN R2

MOV

R2,R3

: R2 AS WELL

G'SH

#4,R2

;ALIGN THEM

BIC

171777
000004

QADR:

R2,-(SP)
R3,-(5P)
LOWLIM,R2

;SAVE THE REGISTERS THAT ARE..
: GOING TO BE USED BY THIS ROUTINE.
.PUT nc FIRST NON-EXISTANT MEMORY ADURESS IN R2

MOV

nénsooo
#1C1600, ni

BIC
BIC
ASH

MOV

000207

79 037160 042737 010010 177530 ENOLIG: BIC
000004

177540

iSTUFF BITS 15-12 INTO QBE 22 WORD
;snrr BITS 21-16 INTO QBE 22 WORD
OR BITS 17-16 INTO QBE 18 WORD

IRESTORE REGISTERS

;DMA DATA

.MORD
WORD
WORD

042737
000400

; .ADDRESS BITS 15-13 OF THE QBE22 DESTINATION
.ADDRESS. R2 WILL CONTAIN ADDRESS BITS 21-16.

63636
O
O

g0 71§ 000000
7

5280
5281 037166
5282 037174

;WHEN THE ABOVE HAS COMPLETED RS WILL CONTAIN

;DATA OUT/ ONE XFER PER DMG/ WORD

000000

(SP)+.R2

;ALLIGN BITS

641

527

170000
063636

(SP)+,R3

JEXTRACT ans 21-16 OF ADDRESS
;:EXTRACT BITS 15-13 OF ADDRESS

;
&

3274 037150
75 037152

R3,QBLOAD+4
R2.QBLOAD

Eavrncumr IS ALSO THE FIRST SHARED

000641

037146

#6,R3

RTS

5271 037142

000000

;EXTRACT WHAT WILL BE ADDRESS BITS 17,16

MOV
MOV
MOV

MOV

012603
012602

#t(6000,R2

$ee ll'lICHBYTI'ElflY IS ALSO THE FIRST SHARED

;SUBROUTINE TO CONVERT THE FIRST SHARED MEMORY ADDRESS TO A FORMAT
;USABLE BY THE 22 BIT QBUS EXERCISER

BIS
BIS

037146
037142

Page 132

BIC

0
0

;CSR2
;ADDRESS BITS 15-0

#<BIT12!BIT03>,80K2CSRD ;DISALLOW INTERRUPTS TO QBUS AND

#B1T02, 30K2CSRJ

1ST16

;TURN OFF SHARED MEMORY

E1l

KXJ11-CA FUNCTIONAL TEST
FIRMWARE CHECKSUM
T16

MACRO Y05.02

5284

Thursday 03-Apr-86 14:11

it sttt anantas 2

;#TEST 16

22222

012706
012737
005037

001100
177777
044742

000137
104415
000412

037632
037232

1ST16:

002426

SCOPE

MOV
MOV
CLR
BR
300658: JMP

30066%: TSNAME,

106
300674:

S 22

FIRMWARE CHECKSUM

L 2 2 222 22 T 22 22 2 2 2 g

037176
037200
037204
037212

222 2 2 2222

Page 133

JASCIZ
-EVEN

g 2

T
T

I T I

#STACK, SP
#-1, TRAPAX
EMPRE
30066$
$EOP

:: SET A CLEAN STACK.
:; DISMISS BUS-ERRORS.
:: CLEAR ERROR PREFIX.
;3 SKIP NEXT.
:: BYPASS.

30067

::...AND
SKIP OVER THE ASCII.

.+4

;3 PRINT TEST

NUMBER AND NAME...

FIRMMARE CHECKSUM\

;CHECK OUT THE NATIVE FIRMWARE
;Module ROMTST
3

This module calculates the checksum of the native firmware
in PROM. It then compares the calculated checksum with the
checksum blasted into the the last location in the native
firmware PROM section. If they are equal the PROM is good.

‘

;Description:

The following algorithm is used to calculate the checksum:

CHECKSUM = 0

FOR I = number of PROM addresses to be checksumed DO

NEXT
I

5
3301 037256
5302 037262
3
037270
5

013746
012737

172354
021400

012702

017777

172354

NATIVE:

CHECKSUM = CHECKSUM + contents of address
CHECKSUM = ROTATE_LEFT_ONE_BIT

MOV

hov

39KIPARG,-(SP) ;Save contents of KIPAR6
:
#21400, 3¢KIPAR6 :Poir.\: gPARG to physical addresses starting

MOV

817777.R2

iCheck 8K words of PROM - 1

;Routine to calculate native firmware checksum and

;checksum value located in the last native firmware

it with the
word location.

:Inputs: R2 = Number of words of PROM to be checksumed minus 1 for the

5315
5316 037274
5317 037276
5318 037
319
037304
5321
3322 037306

3354 o373ie
3353
5326 037316
5327 037322

:
3

word which contains the PROM checksum value.
To checksum 16kB of native firmware PROM, R2 = 17777

;

KIPARG = 21400. Points to begining of PROM address space.

}

005004

032702

001002

170000

SUMCHK: CLR

BIT

BNE

MOV

R2,R1

108:

010201

000402
012701
160102
012703
062304

$170000,R2

Init checksum location.

iAre ony of the bits 18 thru 12 = 17
iBranch if any are set
3

rise

Load loop

trol with remaining

N eTeh w11 e 1e0e then 10000=
3

value in R2

010000

1¢:

26:

MOV

#10000,Ri

RiR2

:Smt:.ct the rusber. words of PROM being tested

140000

3%:

MOV

#140000,R3

:Mt‘l contents of address to checksum

ADD

(R3)+,Ré

Check 4K words of PROM
Point to KIPAR6

KXJ11-CA FUNCTIONAL TEST
T16
FIRMUWARE CHECKSUM

5328 037324
5329 037326
5330 037330
5331 037332
5332 037334
5333 037336
5334 037340
5335 037342

5336 037350
5337 037352
5338
5339 037354
5340 037356

5341 037362

000241
100001
000261
006104
077106
005702
001404
062737

000752
021304
001412
012637
012737

037370 012737

MACRO Y05.02

11%:

000200

172354

037412

045206

104224

5343 037402

012637

172354

5345 037412

120

122

5344 037406 000137 037632

5346

172354

4%:

037376

5342 037400 300402

Thursday 03-Apr-86 14:11

044746

R1,3$
R2
4%
#200, 3#KIPARG

;Clear the carry bit in psw
.Bru'lch if plus
..else set carry bit
.end around carry
L
control
;If
= zero all locations have been checked.
:Go see if checksum is
;O0therwise
to
the next 4k word

BEQ
MOV

S$
(SP)+,3#KIPAR6

;Restore KIPAR2

BR
cP

MOV

S$:

117

CLC
BPL
SEC
ROL
S0B
TST
BEQ
ADD

MOV

044752

B8:

PROMCK:

.EVEN

Page 134

114

104
(R3),.R4

#PROMCK ,EMADR

#NOSIG,ESADR

EWoZZQ

;... section of PROM.
:R3 now points to last user PROM address.
;Are checksums equal?
33\

33 >> ERROR 224, PROM CHECKSUM ERROR
3377/

;Return from error

MOV

(SP)o 3¥KIPAR6

.ASCIZ

/PRO! CHECKSUM ERROR/

JW _ $EOP

;Restore KIPARG

Gll

KXJ11-CA FUNCTIONAL TEST
T16
FIRMUARE CHECKSUM

5348
5349
5350
5351
5352
5353
5354
5355
5356
5357 037436
5358 037440
5359 037442
5360 037444
5361 037450

5366 037472
3369 037206
5370 037512
5371 037514
5372 037
5373 037524

MACRO Y05.02

Thursday 03-Apr-86 14:11

:KXJBUT . MAC
e W we we we W W

{

ON ENTRY, R1 = PAR FORMAT VIRTUAL ADDRESS.
ON EXIT, GAHI<S5:0> AND GALO<15:0> = GLOBAL ADDRESS<21:0>.

017777

037540

1$:

160000
037540
037536

MOV

GAHI:
GALO:

RO, -(SP)

MOV
MOV
8IC
cLC
.REPT
ROL
ROL
ROL
ROL
ROL
MOV
CLR
MOV
ASL

RO
RO
RO
RO
RO
KIPAROCRO),GALO ; GET PAR VALUE => GALO.
GAHI
: ZERO => GAHI.
#6,R0
GALO

BIC
ADD
ADC
MOV
MOV

#t¢17777.R1
R1,GALO
GAHI
(SP)+,R1
(5P)+.RO

ROL
S0B

RETURN

¥3 ovms

16-JAN-86

SUBROUTINE TO CONVERT 16 BIT (PAR FORMAT) VIRTUAL
ADDRESS TO A 22 BIT GLOBAL (PHYSICAL) ADDRESS.

A2GA:

172340
037536
000006
037540
037536

Page 135

R1,-(SP)
R1.RO
#17777.R0
S

GAHI
RO,1$

; COPY VA.
;: STRIP PAR NUMBER...
:...ROTATE IT AROUND TO AN INDEX.

; ROTATE PAGE TO BIT<21>...

i...STRIP VA<12:00>...
:...AND COMBINE THE PIECES.

; GA<21:16>
; GA<15:00>

; SUBROUTINE TO PUT TEST NUMBER IN THE LEDS.
001102
177760
141562

{NLEDS: MOVE
BIC

$TSTNM,RO

otC17,R0

RO, S$LEDS

; TEST NUMBER.

; STRIP THE NUMBER...

i.7.AND LITE THE LIfES.

RETURN

| SUBROUTINECS) TO DELAY IN S0US INCREMENTS.
000024

:
0D100:
050:

CALL
CALL
MOV
S0B
RETURN

@PC
&PC
#20..RO
RO,
.

; 200 USEC.
; 100 USEC.
:
50 USEC.
P
== 2.6US/COUNT

H11

KXJ11-CA FUNCTIONAL TEST
T16
FIRMUWARE CHECKSUM

MACRO Y05.02

5399
5400

FLOATING 1 AND O DATA TABLE.

; USED IN SERIAL LINE (DC319 AND NEC7201) AND PIO TESTS.

55:8% 037576

5403 037600
5404 037602
5405 037612
5406 037622
5407
5408
5450

Page 136

5398

Thursday 03-Apr-86 14:11

BYTES:

FLTO:

.BYTE

FLT10:
FLT1:

375
055

.ASCII
.BYTE

.SBTTL

; FLOATING 1.

376, 375, 373, 367, 357. . ¢
277 177
; FLOATING O.
7 --@--7<T>
; AND END WITH
* Z-X--<DING>".

ASCIZ
.-5
.EVEN
END OF PASS ROUTINE

VARC=

3 5 SRR

; BYTE COUNTS -- LOB XMTR, HIB RCVR.

<CR><LF>
; SYNC PAIR.
001, 002, 004, 010, 020, 040, 100, 200

; POINTS TO THE VARIABLE (3).

RAARRRAE R R AR AR ERRRERRARRRRRRRARRE
AR AR
R KRR AR KRR R KRR S

;#*INCREMENT THE PASS NUMBER ($PASS)
;#IF THERES A MONITOR GO TO IT
;#IF THERE ISN'T JUMP TO AGAIN
$EOP:

001102
001174

100000

001174

$EOPCT:
$ENDCT:

SCOPE

CLR
INC
BIC
DEC

.MORD

BGT

MOV

.WORD
$EOPCT

CLR
INC
MOV
MOV
MOV

TYPE

104405

TYPE
TYPE

104405

$TSTNM
$PASS
#100000, $PASS
(PC)+
1

$DOAGN

;;RESTORE COUNTER

$DEVCT
$ERTTL,-(SP)
$PASS, -(SP)
10P.I0,-CSP)

;TURN OFF THE LEDS
;; PUSH ERROR...
ii...AND PASS COUNTS.
3: .... AND IOP ID NUMBER

|, $EOPID,TYPOS
.$EOPP .TYPDS
.$EOPE ,TYPDS

TYPE
$CRLF
ESUMRY
ASMATL
cHP
SUIOPCNT, &1
BLE
43

177522

géz

BIC

177530
177532

177530
177530
177530
177530

177530
000134
177530

14:

5%:

;3 YES

(PC)+,@(PC)+

CALL

000001

:3ZERO THE T:ST NUMBER
: :INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
: :LOOP?

:zromacsm

;s PRINT ERROR SUMMARY IF REQ‘D.

:: UPDATE ARBITERS APT-MAIL-BOX.
:: IS THERE MORE THAN 1 I0P BEING TESTED?
i3 IF NOT JUST KEEP TESTING THIS

i3 IF T0P=0 OR 1 FORGET IT

9BIT12,80K2CSRD ;; TURN OFF QIR INTERRUPT

ONXTIOP, 90K2QIR

?‘I;

0%1714LB#K2CSRD ;; WAS VECTOR WRITTEN?

BIC

8IS

#B8IT12 “KZCSUNALLNOWS%W‘I

BIC

#BIT12,90K2CSRD :; NO

BIT

T
BIE

$81710,30K2CSRD ;; DON’T ALLOM

RESET INTERRUPT

gnuJBOK2CSRD ;; BIAK RECEIVED??

8240 sek3c

S 10 @ BUS

: COAD VECTOR 70 LET US_RETART

P: ALLOM INTERRUPT WHEN TPRi2 IS WRITTEN

111

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST

END OF PASS ROUTINE

040074

012716
000002
012637

040102
040106
040112

040116
040120
040122
040124

004710
000240
000240
000240

040126
040130

000137
003064

040132

5454 040136

377

200

013700
001405
000005

5456 040165
54

054

SPL

WAIT
HALT

040102

;COMES HERE WHEN ARBITER WRITES
2%:
:‘?IV
#3%,(SP)
:3SET UP STACK FOR FAKE RETURN

000134

2::

000042

$GET42: MOV

MOV
BEQ

RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:

377

000234
000001
000000

040066
040070
040072

Thursday 03-Apr-86 14:11

$RTNAD:
$ENULL:

JHP

.WORD
.BYTE
.EVEN

(SP)+,3#134

; sRSTORE VECTOR

a#42,R0
PC,(RO)

;;GET MONITOR ADDRESS
;;BRANCH IF NO MONITOR
;;CLEAR THE WORLD
;G0 TO MONITOR
; :SAVE ROOM
::FOR
;3ACT11

a(PC)+

; sRETURN

$DOAGN

AGAIN
-1,-1,0

;;NULL CHARACTER STRING

: END-PASS TEXT STRINGS.
{EOPID: .ASCIZ <CRLF>/KXJ11-CA ID# /
$EOPP:
$EOPE:

.ASCIZ
.ASCIZ
.EVEN

/, PASS /
/, TOTAL ERRORS /

s~ <

o S

S T

manins

J11

KXJ11-CA FUNCTIONAL TEST

SCOPE HANDLER ROUTINE

MACRO Y05.02

5467

Thursday 03-Apr-86 14:11

.SBTTL
B

Page 138

SCOPE HANDLER ROUTINE

R e
LT T T T
PP T P
e

;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08>
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

: $5W09=1
: $5W08=1
;*CALL

;%
040206

LOOP ON ERROR
LOOP ON TEST IN SWR<6:0>

SCOPE

¢SCOPE
:

104410

cHP
BHI
SUB
MOV

040210
040214
040216
040222

021627
101005
162716
012616
000137

040230

000416

$XTSTR: BR

040232
040236
040244
040250

013746
012737
005737
012637

040224

040254
040256
040260

000450
022626
012637
000436

040266

032777

040300
040304
040310

117716
042716
001414

040274

040312

JMP

(sp).uooo
.(sp)
(SP)+,(SP)

UNXTRP

;:TEST

FOR CHANGE IN SOFT-SWR

:: IOT CALL FROM TRAP CATCHER 2?
:: SKIP IF NOT.
:: ADJUST VECTOR...
::...POP IT ONCE...

::..AND DO SOMETHING !!

19000¢START OF CODE FOR THE XOR TESTER®#090

140644

00§423

02273

; : SCOPE=I0T

140634
000200
000016
001102

MOVB

@SWR,(SP)

; ;PICKUP THE DES,

BEQ
BLT
MOV
DEC

8¢
#16,(5P)
8¢
(SP), $TSTNM
(5P)

: ;BRANCH IF BAD TEST NUMBER IN SWR
| {CHECK THE NUMBER IN THE SWR
: ;BRANCH IF TEST NUMBER IS OUT OF RANGE
: JUPDATE THE TEST NUMBER
: ;BACKUP BY ONE

ASL
ADD

8s:

24:
140560

001172

;IF RUNNING ON THE "XOR" TESTER CHANGE

..THIS INSTRUCTION TO A “NOP* (NOP=240)

MOV
SERRVEC, -(SP) ;:SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
958 ,90ERRVEC ~ ;1SET FOR TIMEOUT
TST
32177060
; ;TIME OUT ON XOR?
MOV
(SP)+,@PERRVEC ;;RESTORE THE ERROR VECTOR
BR
$SVLAD
;360 TO THE NEXT TEST
5%:
cHP
(SP)+,(SP)+
: ;CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+.@%ERRVEC ;;RESTORE THE ERROR VECTOR
BR
7%
;;LOOP ON THE PRESENT TEST
68:;00000END OF CODE FOR THE XOR' TESTER®#00¢
BIT
#8IT08, 3SR
; ;LOOP %SPEC. TEST?
BEQ
2%
;3BR IF
CLR
-(sP)
;
A_TEMP. LOCATION
BIC

001106

7%:

SSSURMK,(SP)

EST NUMBER

UNDESIRED BITS

(SP)
i ISCALE THE TEST NUMBER AS AN INDEX
#3SUOBTBL,(SP) ;;FORM THE ADDRESS OF TEST POINTER

MOV
BR

8(SP)+,$LPADR
$OVER

;;SETLOOP ADDRESS T? DESIRED TEST
;360 LOOP ON THE TES

1STB

$ERFLG

::HAS AN ERROR OCCURRED?

BEQ
BIT
BEQ
MOV

BR
43:
CLRB
$SVLAD: INCB
MOVB
MOV

(5P)+

$SVLAD
9BIT09, aSWR
43

$LPERR, $LPADR

$
SERFLG
$TSTAM

$TSTNM,STESTN

(SP),SLPADR

; ;sCLEAN THE BAD TEST NUMBER OFF OF THE STACK

;B8R IF NO
:;LOOP ON ERROR?
::BR IF NO

;;SET LOOP ADDRESS TO LAST SCOPE
ZERO THE ERROR FLAG

$COUNT TEST NHBERS
1 iSET TEST

IN APT MAILBOX

:;SAVE SCOPE LOOP ADDRESS

011637
005037
112737
013777
013716
000002
000016
003162
003406
005654
011314
012510
013030

015760

001110
001160
000001
001102
001106

001115
140502

$OVER:

Thursday 03-Apr-86 14:11

$SWOBTBL:
.REPT

(SP), $LPERR
$ESCAPE

#1, SERMAX
$TSTNM,3DISPLAY

$LPADR, (SP)

Page 139

: ;SAVE ERROR LOOP ADDRESS

CLEAR THE ESCAPE FROM ERROR ADDRESS
;ONLY ALLOW ONEC1) ERROR ON NEXT TEST
; sDISPLAY TEST NUMBER
FUDGE RETURN ADDRESS

040414
040420
040424

MACRO Y05.02

[

SCOPE HANDLER ROUTINE

55855555555888 Z ag3ges

KXJ11-CA FUNCTIONAL TEST

TR
. L

K11

TST1+2
TST2+2
TST3+2
157442
T575+2
1ST6+2
TST7+2
TST10+2
TST11.2
TST12+2
TST13+2
7571442
TST15+2
TST16+2

; ;STARTING ADDRESS OF TEST 1
; ;STARTING ADDRESS OF TEST 2
; sSTARTING ADDRESS OF TEST 3
; s STARTING ADDRESS OF TEST 4
; sSTARTING ADDRESS OF TEST S
; sSTARTING ADDRESS OF TEST 6
; ;STARTING ADDRESS OF TEST 7
; ;STARTING ADDRESS OF TEST 10
: s STARTING ADDRESS OF TEST 11
: ;STARTING ADDRESS OF TEST 12

; s STARTING ADDRESS OF TEST 13
; ;STARTING ADDRESS OF TEST 14
: s STARTING ADDRESS OF TEST 15
; ;STARTING ADDRESS OF TEST 16

L11

KXJ11-CA FUNCTIONAL TEST
TYPE ROUTINE

MACRO Y05.02

Thursday 03-Apr-86 14:11

.SBTTL

5469

s e

Page 140

TYPE ROUTINE
22 22 222 22 22 2

s e s

Tey

;#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.

: #NOTE1 :
: #NOTE2:
: #NOTE3:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;%CALL:
:#1) USING A TRAP INSTRUCTION
.
TYPE
,MESADR
%

TYPE

MESADR

i¥

040502
040506

105737

001157

040516
040522

017600
122737

000002
000001

001206

040532

132737
001405
010037
004737
000000

000100

001207

040542
040546

$TYPE:

1%:

040552
042542
001207

618:
628:

24:

040574

040602
040610

062716
000002

000002

3827%

000011

122&2

000200

608:

38:

4%:

TSTB

040632
040636

040650
040654
040656
040662

105037

041032

000735
004737
123726

040714
001156

$TPFLG

;:IS THERE A TERMINAL?

O
SAPTCSUP,$ENVM

; tMESSAGE ADDRESS
;;APT CONSOLE SUPPRESSED

g:T.(SP)

: ;RETURN
: ;BRANCH IF <HT>

gza

gc‘:m.r.(sp)

; ;BRANCH IF NOT <CRLF>

T1ST

(SP)«

;3POP <CR»><LF> EQUIV
:3TYPE A CR AND LF

$CHARCNT

n&gzm CHARACTER COUNT

1(SP)

RS A AL

14
::BR IF YES
::HALT HERE IF NO TERMINAL
34
: sLEAVE
RO, -(SP)
: :SAVE RO
a2(sP),RO
:3GET ADDRESS OF ASCIZ STRING
&#APTENV,$ENV
;:RUNNING IN APT MODE
62$
::NO,GO CHECK FOR APT CONSOLE
#APTSPOOL,$ENVM ;;SPOOL MESSAGE TO APT
624
::NO,GO CHECK FOR CONSOLE
RO,61$
: :SETUP MESSAGE ADDRESS FOR APT
PC. $ATY3
::SPOOL MESSAGE TO APT

BNE
MOVB
BNE
ST
MOV
ADD

60
(RO)+,-(SP)
4
(5P)+
(5P)+,RO
#2,(sP)

.WORD
BITB

RTI
BEMQ

013746

001154

105366

000001

004737
105337

040714
041032

CLRB

S$:

6$:

BPL
HALT
BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR

I&F

; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

BR
JSR
CMPB
BNE
MOV

24
PC, $TYPEC
$FILLC.(SP)+
24
$NULL, -(SP)

BLT

DECB

JSR
DECB
BR

PC, $TYPEC
$CHARCNT
74

: 1 YES,SKIP TYPE OUT
: ;PUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK
; tRESTORE RO
: tADJUST RETURN PC

;
:GET NEXT CHARACTER
::60 TYPE THI
TER
3:IS IT TIME FOR FILLER CHARS.?
;:IF NO GO %E’“ CHAR.
;:GET @ OF
CHARS. 'NEEDED
HH

{0 BE TYPED?

::BR IF NO--GO POP THE NULL OFF OF STACK

;360 TYPE A NULL
;:00 NOT COUNT AS A COUNT
; ;LOOP

M11

KXJ11-CA FUNCTIONAL TEST

TYPE ROUTINE

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 141

;HORIZONTAL TAB PROCESSOR

040766
040772
040774
041002

105777
100375
116677
122766
00%803
105037
000406
122766
001402
105227
000000
000207

041012

0410
041034

140200
140174
177600
000021

102%:
10%:

140156

000002
000015

140150
000002

041032

000012

000002

1$:

8;’.$U'IARCNT
(SP)+

$TKS
10$
@$TKB, -(SP)
#177600, (SP)

#$XOF
, (SP)
F
102$

3$TKS
101+
a$TKB, (SP

; sREPLACE TAB WITH SPACE
PE
A SPACE
;:TY
H AT
IF NOT
; :BRANC
;:TAB STOP
;:POP SPACE OFF STACK
: ;sGET NEXT CHARACTER

;sGET
; ;STRIP EXTRANEOUS BITS
;;WAS CHAR XOFF
;:BR IF NOT
; sWAIT FOR CHAR
:;GET CHAR

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

;;FIX STACK
; sWAIT UNTIL PRINTER IS READY

PRI

005726

101%:

g 4 "358%2 238

040764

140220
177600
000023

,(SP)

PC,$TYPEC

-y

105777
100375
117716
042716
122716
001366

7578

BPL
MOV

040740
040744
040746
040752
040756
040762

$TYPEC:

140224

MOVB
JSR
BITB
BNE
TST
BR

105777
100022
017746
042716
122716
001012

041032

8%:
9%:

040714
040720
040722
040726
040732
040736

040714
000007

112716
004737
132737
001372
005726
000724

-«

040670
040674
040700
040706
040710
040712

::LOAD CHAR TO BE TYPED INTO DATA REG.
::IS CHARACTER A CARRIAGE RETURN?
; :BRANCH IF NO

;s YES--CLEAR CHARACTER COUNT

1 EXIT
;;1S CHARACTER A LINE FEED?
BRANCH IF YES

i \COUNT THE CHARACTER

§ {CHARACTER COUNT STORAGE

N1l

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
5471

Thursday 03-Apr-86 14:11

Page 142

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT

;#SIGNED DECIMAL (ASCII)
NUMBER AND TYPE IT. DEPENDING
ON WHETHER THE
;#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED

2%:

041242

34:

177777

~On

000001

—

45:

§O

000010

8%:

177777

177778

9¢:

STB

§ 3;

22222

. RE823

Rk aaas

INARY NUMBER ON THE STACK
ROUTINE

#$DBLK,R3

,(R3)-

$DTBL(RO),R1
R5

1(5?) -1(R3)

aé

na tm»
(RO)+

RO, 210
2
8

(SP),-2(R3)

;sBR IF DONE
; s INCREASE THE BCD DIGIT BY 1

; sADD BACK THE CONSTANT
nC"ECK IF BCD DIGIT=0
sFALL THROUGH IF 0
nSTILL DODG LEADING 0'S?
;sBR _IF
?
i3
;;BR IF NO
nYES--SET THE SIGN
;MAKE THE BCD DIGIT ASCII

} IMAKE IT A SPACE

IF NOT ALREADY A DIGIT
anm
IN THE OUTPUT BUFFER

TABLE INDEX

14:

—

22 R RRRRRRRERRRRRRR
R
T Ty
e T T e
83 e
SEVIERESEEVERRNS

N
Y

041252

Fa3

000001

geees:

000055

vorsaa
o%o. «
g v R

020200
000020

$TYPDS:

“r

naw

MOV
TYPDS

—oz-q EBaneaC33057R3333353
3333038 2382343 aagfigs af=

tCALL

‘BEFGETIVEFIRSTDIGIT(}'T!EW LEADING ZEROS WILL ALWAYS BE

G000 THE NEXT OTGIT

nE‘lTl'ELSD
; ;60 CHANGE TO ASCII
;;WAS THE LSD THE FIRST NON-ZERO?
.sflIFm
5--SET THE SIGN FOR TYPING

THE

s.P(P STACK

TOR

0 RS

;;POP STACK INTO R3
;:POP STACK INTO R2
nP(P STACK INTO R1

L e AL SR

Ble

KXJ11-CA

041222
041224
041230
041236
041240

041242
041244
041246
041250

g:;g

041552

FUNCTIONAL TEST

MACRO Y05.02

70 DECIMAL AND TYPE ROUTINE

012600
104401 041252
016666 000002 000004
012616
000002

023420
001750
000144
000012

$OTBL:

MOV
TYPE
MOV
MOV
RTI

10000.
1000.
100.
10.

$DBLK: .BIKM

(SP)+,RO
$DBLK
3(sP),a(sP)
(SP)+.(SP)

Page 143

:3POP STACK_INTO RO
:NOW TYPE THE NUMBER
:IADJUST THE STACK
; sRETURN TO USER

$//7///7/7/7/7/77777777777 OVERLAY PATCH AAALALALALLALLLALLLLLLLL LA

5474
5475

5478
041262
5479
041210
5480 041210 000424
mog‘z)sz
041262 105013
5483 041264 124327 000040
5484 041270 00100
5485 041272 112713 000177
5486 041276 050327 041252
5487 041302 101370
5488 041304 000742

55339

Thursday 03-Apr-86 14:11

; BACK UP AND PATCH $TYPDS TO REALLY NULL LEAD ZEROS
; INSTEAD OF REPLACING THEM WITH SPACES.

; NOTE: 100000(8) GETS PRINTED AS -0 (IT'S REALLY -32768.).

9:
$$TDX:

1%:

28:

SVPC=.
_=$DTBL-32
BR
$$TDX
. =SVPC
CLRB
(R3)
cMPB
-ms) 240
BNE
MOVB
orn (R3)
cHP
R3, #$0BLK
BHI
13
B8R
som-so

: SAVE PC..
:...AND POINT TO 9%.
; BR TO PATCH.

; SET STRING TERMINATOR.

3 SKIP IF NOT <SP>.
; ELSE, CHANGE TO A <NULL>.
; LOOP 'TIL DONE.
; RETURN TO 9%+2.

Cle

KXJ11-CA FUNCTIONAL TEST

BINARY TO OCTAL (ASCII) AND TYPE

MACRO Y05.02

5490

Thursday 03-Apr-86 14:11

Page 144

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

;#0CTAL (ASCII) NUMBER AND TYPE IT.
mm:os--—anm HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
’

g
%

" MoV

¥
¥

TYPOS
.BYTE
.BYTE

N
M

NUMBER TO BE TYPED
CALL _FOR TYPEOUT
;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
M=1 0R
O

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

1 ¥
L]

:tOTYPm----Bfl'ER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;#$TYPOS OR $TYPOC

MOV

TYPON

NUM, -(SP)

; sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT

:tOTYPOC-—-ENTfll HERE FOR TYPEOUT OF A 16 BIT NUMBER
;#CALL:

—

ZERREZRERRRRRER
REFLEECETERZ

i*
041531

MOV

TYPOC

$TYPOS: MOV

MOVB
MOVB

ADD

$TYPOC: MOVB

s§§§
OF ~J i

258R858c85s
53

041532

3%:

177770

;: sPICKUP THE MODE
:;LOAD ZERO FILL SWITCH
; sNUMBER OF DIGITS TO TYPE
3 sADJUST RETURN ADDRESS

1(SP),
$
(SP)+,$

92,(SP)
$TYPON

#1,30FILL

MOVB
NEG
ADD
MOVB

$OMODE+1,R4
R4
;
#6,R4
R4, $OMODE

MOV
CLR
ROL

12(SP),RS
R3
RS

R
ROL
ROV
ROL

DECB
BPL
BIC
BNE
75T

4%:

a(SP),-(SP)

#6, $OMODE
«1

MOVB

1s:

: sNUMBER TO BE TYPED
::CALL FOR TYPEOUT

MOVB

$TYPON: MOVB

04153
04153
041530

NUM, -(SP)

BEQ
INC

#5, $OCNT

$OFILL,R4

g
RS
RS,RS
g

$0MODE
7%
#177770,R3
4%
R4

33SET THE ZERO FILL SWITCH
:3SET FOR SIX(6) DIGITS
THE ITERATION COUNT
RS

:;GET THE NUMBER OF DIGITS TO TYPE
SUBTRACT IT FOR MAX. ALLOWED

:i%vs IT FOR USE

1Pl “t?%vw NUPBER
:%1&1‘:'glum”70 wer
T

THE ZERO FILL SWITCH

i 'FORM THIS DIGIT

GET LSB OF THIS DIGIT

: i TYPE THIS DIGIT?

RID OFO JNK
O
TEST FOR
S IS 07
i RRES
IF YES

i8R
PiDON'T SUPPRESS ANYMORE 0'S

0415
041532

000
000

000000

000002

000004

L
T

B8
8
S0

DO TR DO

S8
SE

T
T
T

DIGIT ISN'T A BLANK
AST DIGIT

016666

o:
B
afiggg *:
AERR&2 £

041514

[2604

TR DO

012605

BR
6%:
MOV
MOV
MOV
MOV
MOV
RTI
8%:
.BYTE
.BYTE
$OCNT :
.BYTE
SOFILL : .BYTE
$OMODE : .WORD

BLT

.88

$OCNT
2%

DECB

S0 B8

7%:

#'0,R3
.l
,R3
R3,8$

8IS
8IS

Page 145

041526
041530

5%:

104401
105337

000060
000040
041526

041466
041472

052703
052703
110337

Thursday 03-Apr-86 14:11

e
e
@éfi!d

041452
041456
041462

MACRO Y05.02

00000 ’\R

KXJ11-CA FUNCTIONAL TEST

BINARY TO OCTAL (ASCII) AND TYPE

AL 3

D12

TACK FOR RETURNING

RETURN
STORAGE FOR ASCII DIGIT

: INUMBER OF DIGITS TO TYPE

El2

KXJ11-CA FUNCTIONAL TEST

BINARY TO ASCII AND TYPE ROUTINE

MACRO Y05.02

>492

Thursday 03-Apr-86 14:11

.SBTTL
DB

Page 146

BINARY TO ASCII AND TYPE ROUTINE

Re
T

000

1%:

041606
041606

000002

000

000004

2%:

$BIN:

#'0,$BIN

R1
2%
$BIN
. $BIN

1%
(SP)+,R1

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

CHARACTER EQUAL TO THIS BIT

041606

ON THE STACK
INPUT NUMBER
" SO _CAN KEEP TRACK OF THE NUMBER OF BITS
TO AN ASCII “O".
-

000060

R1,-(SP)
6(SP),R1

]

112737

006101
001406
105537
104401
000241
000765
012601
016666
012612

$TYPBN:

000006

e
g 7

010146
016601
000261

TYPBN

°ig H

3 ¥

h8E 3

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT
;*BINARY-ASCII NUMBER AND TYPE IT
s#CPt L
%
MOV
NUMBER, -(SP)
NUMBE
_TO BE TYPED
R

. "Snd
KEEP TRACK OF BITS
;G0 DO THE NEXT BIT
:;POP THE_STACK INTO R1
; sADJUST THE STACK

: sRETURN TO USER
: ;STORAGE FOR ASCII CHAR. AND TERMINATOR

F12

KXJ11-CA FUNCTIONAL TEST
TTY INPUT ROUTINE

MACRO Y05.02

5494

Thursday 03-Apr-86 14:11

Page 147

.SBTTL

TTY INPUT ROUTINE

tnanaae et 2 2 2 22222 222222222222 222222t

ettt

-ENABL
S

sy s

I T

LSB
i

e L T T T

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.

s#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

041654
041660
041664
041670

104401
104401
013746
104402

041672

104401

5046

000176

001140

$CKSWR : cMP

BNE
TSTB
BPL
MOVB
BIC

137320

137314
177600
000007
001134

000001

042345
042352
000176

BEQ

105777

137236

041710
041714

117746
042716

137232
177600

041720

000025

041732

021627
001005
104401
062706

000006

20%:

041740

021627

000015

10%:

041772
042000
042012

123727
001003
012777
004737

9¢:

001135

000001

000100

137134

040714
000060

..STRIP-IFF THE ASCII

SWREG, -(SP)

..ECI‘D THE CONTROL-G (1G)
; TYPE CURRENT CONTENTS

.:SAVE SWREG FOR TYPEOUT
+:6G0_TYPE--OCTAL &II(N.L DIGITS)

: ;CHAR

HIF NOT TRY AGAIN
;sPICK UP CHAR
;3MAKE IT 7-BIT ASCII

042340

001163

--IF NO, DON'T WAIT AROUND
SAVE THE CHAR

154
$AUTOB,
#1
15$

7%:

137156

10“0%

#1C177,(5P)

#7.(SP)+

;;1IS THE SOFT-SWR SELECTED?
;: ;BRANCH IF NO
; ;CHAR THERE?

19%:

041702

041726

15%
$TKS
15%
3$TKB, -(SP)

. $CNTLG
. $MSWR

$GTSWR:

042363

#SWREG

11¢:
14%:

111 IT A CONTROL-U?

25323

022737
001074
105777
100071
117746
042716
022726
001062
123727
001456

£33 §z§§§§§azs

041610
041616
041620
041624
041626
041632
041636
041642
041644
041652

;#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
;#MHEN OPERATING IN TTY FLAG MODE.

+ 1 0BSCECHD CONTROL-U (+U)

} 1 TGNORE PREVIOUS

PILET'S TRY IT AGAIN

(sc;).us
4(SP)
11%

Z(SP).

:3IS IT A <CR>?
nm IF _NO

, IS IT THE FIRST CHAR?
IF YES

:énur

%nms o1

0100 +$TKS

csé).

$TYPEC

; ;:BRANCH IF

s sRE-ENABLE TTY KBD INTERRUPTS

;: sRETURN
: sECHO CHAR

;;CHAR < 02

; sBRANCH IF YES

G1l2

KXJ11-CA FUNCTIONAL TEST
TTY INPUT ROUTINE

042024
042030
042032
042036
042042
042044
042046
042050
042052
042056
042062
042064
042070

021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

MACRO Y05.02

Thursday 03-Rpr-86 14:11

000067
000060
000002

000002
177776

17%:

001162

18%:
.DSABL

cP
BGT
BIC
ST
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE
BR
LSB

Page 148

(SP),#67
18$%
#60,(SP)+
2(SP)
17¢%
(SP)
(SP)
(SP)
2(SP)
-2(SP),(SP)
74

;:CHAR > 772
; :BRANCH IF YES
; ;sSTRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
; ;BRANCH IF YES
;sNO, SHIFT PRESENT
;3
CHAR OVER TO MAKE
;3
ROOM FOR NEW ONE.
;;KEEP COUNT OF CHAR
::SET IN NEW CHAR
;3GET THE NEXT ONE

20%

; sSIMULATE CONTROL-V

» SQUES

;s TYPE 2<CR><LF>

3 s kkkkkkokkkkkokkkkkkkokkok
kokkkdkokkk ok kkkkkokkkokkk ok
kokdokkkokokkkkkokkkk

;#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s i#CALL .
«

P
i

RDCHR

;;INPUT A SINGLE CHARACTER FROM THE TTY

RETURN HERE

; ;CHARACTER IS ON THE STACK

; sWITH PARITY BIT STRIPPED OFF

1
105777

000004
137036

042110
042116

117766
042766
02662

137032
177600

042134

105777

137004

042142

117746

137000

042152

022627

000021

042102

0421

2716

000002

$RDCHR: MOV

1%:

000004
000004
000023
2¢:

(SP),-(SP)

; sPUSH DOWN THE PC

@$TKS

: sMAIT FOR

MOVE
BIC
cHP
BNE

@$TKB,4(SP)
$1C<177>,4(SP)
4(SP),#23
34

: sREAD THE TTY
;;GET RID OF JUNK IF ANY
::IS IT A CONTROL-S?
: ;BRANCH IF NO

BPL

CMP
g'fl?

(SP)+,#21
'fi

MOV

TSTB

BPL

TSTB

MOVB
BIC

177600

4(SP),2(sP)
1

@$TKS

000140

CMP
BLY
cMP

4(SP),9140
4%
4(SP),.#175

BGT
BIC
RTI

:;LOOP UNTIL ITS THERE

;1S iT A RANDOM XON?

4(SP),#$XON

000004

; sWAIT FOR A CHARACTER

3 :GET_CHARACTER
:sMAKE IT 7-BIT ASCII

cHP

000175

; ;A CHARACTER

@$TKB,-(SP)
#1C177,(SP)

000021 3%:

BEQ

: :SAVE THE PS

‘

#40,4(SP)

::IS IT A CONTROL-Q?
u%sm‘l’ DISCARD IT
]
NER‘E

;RANOO1

; ;BRANCH IF YES

:RANOO1

:3IS IT UPPER CASE?
; ;BRANCH IF YES
;3IS IT A SP%‘L CHAR?

; ;BRANCH IF
s3MAKE IT UPPER CASE
::G0 BACK TO USER

3 skkkkkkkkkkkkhbkkkhkkrhhkkkhkhkkhkhkkkhhhhhkkkkkkbkkbbhkhbkbkhhkkbkkkkhk

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

1%
1%
042222
042224
042230

010346
012703
022703

042330
042340

%l%flm

s3INPUT A S

33
i

$RDLIN: MOV

R3,-(SP)

::SAVE R3

2%:

#$TTYIN+B. R3S

;;BUFFER FULL?

1%:

MOV
cHP

#$TTYIN,R3

smmmemmoas

FROM

TTY

OF FIRST CHARACTER WILL BE ON THE STACK
TOR WILL BE A BYTE OF ALL 0'S

: ;GET_ADDRESS

it s

|St
e s

H12

KXJ11-CA FUNCTIONAL TEST
TTY INPUT ROUTINE

042234
042236
042240
042242
042246
042250
042254
042256
042262
042266
042272
042274
042300
042304
042306

042310
042316

042324

101405
104411
112613
122713
001003
104401
000763
111337
104401
122723
001356
105063
104401
012603
011646

016666
012766

23
042327

2
000
000

042340
042345
042352
042363

136
136
015
040

042330

MACRO Y05.02

Thursday 03-Apr-86 14:11

BLOS

MOVB
CMPB

(SP)+,(R3)
#177.(R3)

RDCHR
000177

10s:

001162

042326
042326
000015

34:

000004
042330

125
107
012
040

015
015
123
116

$TTYIN:
$CNTLU:
$CNTLG:
$MSWR:
$MNEW:

: sGET CHARACTER
::IS IT A RUBOUT

:sCLEAR THE BUFFER AND LOOP

#15,(R3)+

; sCHECK FOR RETURN

; sRETURN
: ;STORAGE FOR ASCII CHAR. TO TYPE

TYPE

mTYPE

CMPB

000002
000004

::BR IF YES

::G0 READ ONE CHARACTER FROM
THE TTY

BNE

BNE
CLRB
TYPE
MOV
MOV
MOV
MOV

177777
001164

Page 149

RTI
.BYTE

BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

,$QUES

(g‘.:»).%

2¢
-1(R3)
SLF
(SP)+,R3
(SP),-(SP)
4(SP),2(5P)
#$TTYIN,4(5P)

::SKIP IF NOT
::TYPE A * 2

; ;ECHO THE CHARACTER

::LOOP IF NOT RETURN
: sCLEAR RETURN (THE 15)
::TYPE A LINE FEED
: sRESTORE R3
; ;ADJUST THE STACK AND PUT ADDRESS OF THE
i
FIRST ASCII CHARACTER ON IT

O
: s TERMINATOR
8.
; sRESERVE 8 BYTES FOR TTY INPUT
/#Ur<15><12>
;;CONTROL "U*
/1G/<15><12>
;;CONTROL “G*
<15><12>/SWR = /
/ NEW = /

112

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

READ AN OCTAL NUMBER FROM THE TTY

5496

Thursday 03-Apr-86 14:11

.SBTTL

Page 150

READ AN OCTAL NUMBER FROM THE TTY

D b
T T T T
Yoy

;#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND

;»CHANGE IT TO BINARY.

;#THE INPUT CHARACTERS WILL BE_CHECKED
TO INSURED THEY ARE LEGAL

;#0CTAL DIGITS. IF AN ILLEGAL CHARACTER
IS READ A "?" WILL BE TYPED

;#FOLLOMED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
tTl-ENBERETYPED THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

" RDOCT
RETURN HERE

000004

: MOV

000002

1%:
042522

2%:

000067

177770

000012
042532

34:

45:

001162

S5$:

$HIOCT:

(SP),-(SP)

MOV
MOV
MOV
ROLIN
MOV
MOV
CLR
CLR
MOVB
BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
ST
MOV
MOV
MOV
MOV
MOV

4(SP),2(5P)
R1.-(SP)
R2.-(5P)
(SP)+,RO
RO,5$
R1
R2
(RO)+,-(SP)
33
#'0,(SP)
$
#'7,(SP)
43
R1
R2
R1
R2
R1
R2
#1C7.(5P)
(SP)+,R1
2%
(SP)+
R1,12(SP)
R2 tHI%T
ssho.
SP)+,R1
(SP)+.R0

ST
CLRB
TYPE

(SP)+
(RO)

TYPE

|, $QUES

RTI

JMORD

;;READ AN OCTAL NUMBER
;:LON ORDER BITS ARE ON TOP OF THE STACK
; sHIGH ORDER BITS ARE IN $HIOCT

..READ AN ASCIZ LINE

;:GET ADDRESS OF 1ST CHARACTER
..NO SAVE IT

: ;CLEAR DATA WORD

nPICKlP THIS CHARACTER

ZERO GET OUT
HAKE SURE THIS CHARACTER

.sIS AN OCTAL DIGIT

;%2
;i%4
;%8

::STRIP THE ASCII JUNK
nm IN THIS DIGIT
;LOOP

nCLEAN TERMINATOR FROM STACK
::SAVE THE RESULT

;;POP STACK INTO R2
;:POP STACK INTO R1
;sPOP STACK INTO RO

m
%M
PARTIALFmflm STACK

HTYPE IP THRU THE BAD CHAR.
“l?fl

lm.

:: TRY AGAIN

“U

; ;HIGH ORDER BITS GO HERE

J12

KXJ11-CA FUNCTIONAL TEST
APT COMMUNICATIONS ROUTINE

MACRO Y05.02

5498

.SBTTL
H

000001
000001

043000
042776

000001

043000

$ATY4:

$ATYC:

000001

001206

000100

001207

e 001166

042662

737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766
832746
737
000000

105737

1%:

001202

24:

001202
001204

177776
040502

001166

042710
000004

043000

104:

Q0757 001206
001413

11$:
001170
000004

124

s 2 222 222222 2 22

L S 2

TPTTYYY

MOVB
MOVB

21,$FFLG
21.$MFLG

::70 REPORT FATAL ERROR

MOVB

21, $FFLG

;370 ONLY REPORT FATAL ERROR

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
ST
BNE
MOV
1STB
BNE
SUB
ASR
MOV
MOV
BR
MOV
ADD
MOV
JSR
;g;a

TST

001166

001166
043000
042777
042776

38:

Page 151

APT COMMUNICATIONS ROUTINE

bt ttananananasst s

$ATY1:
SATY3:

042776

122737
001031
132737
001425
017600

Thursday 03-Apr-86 14:11

$ATYC

RO, -(SP)
;;PUSH
RO ON STACK
R1.-(5P)
;;PUSH R1 ON STACK
$MFLG
;:SHOULD
TYPE A MESSAGE?
5%
..l}' NOT:
BR
ZAPTENV, $ENV
;OPERATING UNDER APT?
33
..IF NOT:
BR
#APTSPOOL
, $SENVM ; s SHOULD mm MESSAGES?
34
34(SP),RO
; ;GET MESSAGE ADDR.
#2,4(5P)
; :BUMP RETURN ADDR.
$MSGTYPE
::SEE IF 60! W/ LAST XMISSION?
1%
;3IF NOT:
WAIT
RO, $MSGAD
; ;PUT ADDR IN MAILBOX
(RO
ND
END OF MESSAGE
;;FI
2%
$MSGAD,
RO
::SUB START OF MESSAGE
RO
:;GET MESSAGE _LNGTH IN WORDS
RO, $MSGLGT
+;PUT LENGTH IN MAILBOX
#4. $MSGTYPE
;s TELL APT TO TAKE MSG.
5%
B4(SP), 4%
l:PUTPGGAMINJSRLIN(AGE
#2,4(5P)
” RETURN ADDRESS
177776, -(SP)
6 M STACK
nPUSH 1
PC, $TYPE
:gu;

SENV

BEQ
T1ST
BNE
MOV
ADD

124
$MSGTYPE
11%
B4(SP), $FATAL
92,4(5P)

CLRB

$MFLG

ac
u.g

MOV
MOV

RTS
$MFLG:
.BYTE
$LFLG:
.BYTE
$FFLG:
.BYTE
-EVEN
APTSIZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

;370 TYPE A MESSAGE

:FFLG
$LFLG

(SP)+,R1
(5P)+.RO

PC
0O
0
O

: ;SHOULD REPORT FATAL ERROR?
;:IF NOT: BR
le UNDER APT?

tIF NOT:

;3IF NOT:

WAIT

nFMSl'ED LAST MESSAGE?
::GET m

ABT Y0 TAKECRROR
oi7eLL
:;CLEAR FATAL FLAG

nCLEM LOG FLAG
nP@ STACK INTO R1

: ;sCLEAR MESSAGE FLAG

STACK INTO RO
PW

n!ESSG.

;:L0G FLAG

:;FATAL FLAG

K12

KXJ11-CA FUNCTIONAL TEST

TRAP DECODER

MACRO Y05.02

5500

Thursday 03-Apr-86 14:11

.SBTTL
HER S

Page 152

TRAP DECODER

bttt

ittt dhtnanansanas s 2

2 T

222 22 2R L

TP T T Y

;#THIS ROUTINE WILL PICKUP THE LOMER 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.
043002
043006
043010
043012
043014
043016

043022

010046
016600
005740
111000
006300
016000

000200

STRAP:

000002

043036

MOV
MOV
ST
MOVE
ASL
MOV

RTS

RO,-(SP)
2(5P).R0
-(RO)
(RO).RO
RO
$TRPADCRO).RO

: sSAVE RO
iIGET TRAP ADDRESS
: iBACKUP BY 2
i IGET RIGHT BYTE OF TRAP
SPOSITION FOR INDEXING
iINDEX TO TABLE

:iG0 TO ROUTINE

;;THIS IS USE TO HANDLE THE “GETPRI” MACRO
043024

011646

043034

000002

043026

016666

000004

000002

STRAP2: MOV

MOV

RTI
.SBTTL

(SP),-(SP)

4CSP).2(SP)

: MOVE THE PC DOWN

iMOVE THE PSW DOWN
| SRESTORE THE PSW

TRAP TABLE

;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
'sBY THE "TRAP” INSTRUCTION.

043036 043024

043040
043042

040502
041332

043046
043050

041346
041036

043054

ROUTINE

{TRPAD: _WORD

$TRAP2

;;CALL=TYPE
1iCALL-TYPOC

TRAP+1(104401)
TRAP-2(104402)

STYPON
TYPDS

3iCALL-TYPON
iiCALL-TYPDS

TRAP+4(104404)
TRAP.S(104405)

041660

$GTSMR

;;CALL=GTSWR

TRAP.7(104407)

043056

041610

SCKSWR

;;CALL=CKSWR

TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR

gsoy

043062
043064

049222
042374

SROLIN
$ROOCT

i ;CALL-ROLIN
+CALL=RDOCT

TRAP.12(104412)
TTY TYPEIN STRING ROUT
TRAP+13(104413) READ AN OCTAL NUMBER

5 04

043072 044

043044 041306
043052 041534

043060 042072

§TYPE
STYPOC

$TYPOS

STYPBN iCALL=TYPBN

$ROCHR

AOGR

TRAP.3(104403)

TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL MFBER (WITH LEADING ZERGS)

TIPE OCTAL NUMBER (NO LEADING ZEROS)

TYPE OCTAL NUMBER (AS PER LAST CALL
TYPE DECIFAL NMBER (MITH STGN)

TYPE BINARY CASCII) NUMBER

GET SOFT-SWR SETTING

TRAP.11C104411) TTY TYPETN CHARACTER ROUTINE
TMY

ssoé 3066 043076
5 03 043070 043740

I$$SHR ;;CALL=ISSWR TRAP+14(104414) GET INITIAL SWITCH OPTIONS
Hihe AL TINE TaAp.13C10441s) PRINT TesT
AND TITLE

5505 043074

TOP$$TR ) CALL=IOPSTR

055746

AS$SMAIL ;iCALL=ASMAIL

TRAP-16(104416) UPDATE ARBITERS

APT MAIL-BOX

TRAP+17(104417) IOP INTERRUPT HANDLER

L12
TRAP TABLE

KXJ11-CA FUNCTIONAL

TEST

MACRO Y05.02

5507
5508

5513 043102
5514 043104
5515 043112
5516 043114
5517 043122
5518 043124
5519 043130
5520 043132

5521

5522
5523
5524

005737

001017
123727
001410
023727
003012
104401
104407
000406

I$$SUR:

000042

001206

000001

050746

000001

043152

1%:
i

012737

000370

001342

5529 043152
5530 043202
5531 043232
ssgg 043§

200
200
200
200
200
200

123
055
040
040
040
040

127
055
061
061
061
061

200
200
200
200

040
040
040
040
000

5534 043373

553
5 36 043514

5537 043566
5538 043621
5539 043667
gsszg 043736

153

; IF STAND-ALONE, DISPLAY SWITCH OPTIONS AND GET INITIAL SWR.

5525 043134

5526 043142
gggz 043150

DL
e
e
T
; ROUTINE TO CHECK OPERATING MODE AND ADJUST SET-UP ACCORDINGLY.

gg(l)g

5511 043076
5512 043076

Thursday 03-Apr-86 14:11

112737
000002

200
200

000001

040

001134

061
061

060
060
060

TST

BNE
cMPB
BEQ
cP
BGT
TYPE
GTSWR
BR

ana2

7%
$ENV, SAPTENV
6%
@#I0PCNT, #1
8%
. SWROPT
8$

ARERAARAR R AR AR AR R AR AR

; BR IF CHAINED UNDER XXDP/ACT.
;
;
;
;
;

KRR

BR_IF RUNNING IN APT MODE.
ARE_THERE MULTIPLE UNITS?
BR_IF MORE THAN ONE UNIT
DISPLAY SUPPORTED SWITCHES.
GET INITIAL SWITCH SETTING

R AR R AR

R AR AR R

R AR R

KRR

:FXC
AR

R AR

RR R

AR AR

; $QDLY FOR APT MODE DOUBLED FROM 62. TO 248. TO DECREASE
CHANCE OF TIMEOUT
; ERROR WHILE APT IS MONITORING.
JEANELL CUNNINGHAM, 30 MAY, 1984.
Rt t
vt
et ot S T T T T T T

64%:

MOV

#248. , $QDLY

SWROPT:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

<CRLF>'SWR
<CRLF>'--<CRLF>' 15
<CRLF>’' 14

7%:
8%:

MOVB
RTI

-ASC
.ASC

.ASCII
.ASC]
.ASCII
.ASCIZ

#1, $AUTOB

13
12

11
10

09
08
07

; APT MODE -- SET Q-DELAY FOR 40 SECONDS.
; APT OR CHAINED -- SET AUTO-MODE FLAG.
; RETURN.

OCTAL
-<-ce
100000
040000

020000
010000
004000
002000
001000
000400
000200

FUNCTION’
ccceee-o !
HALT ON ERROR’
INHIBIT ERROR SUMMARY'
INHIBIT ERROR REPORTS'
IOP ID# 15 KNOWN GOOD FOR TESTING'

TEST STAND ALONE IOP'

ENABLE EXTENDED MEMORY TESTS'
LOOP ON ERROR’
LOOP ON TEST IN SWR<6:0>'
INHIBIT TEST NUMBER/TITLE'

M12

KXJ11-CA FUNCTIONAL TEST
TRAP TABLE

5543
5544
5545
5546
5547
5548
5549
5550 043740

5551 043744
5552 043746

5553 043754
5554 043762
5555 043770
3556 043772
5557 043776
5558 044000

MACRO Y05.02

Thursday 03-Apr-86 14:11

Page 154

; ROUTINE TO PRINT TEST NUMBER AND NAME.
; ALSO, SETS TEST NUMBER IN CPU LEDS.
; IF SWR<7> = 1, DON'T PRINT ANYTHING.

; CALL: T$NAME, TXT-ADDRESS
004737
104416
042777
052777
032777
001023
113727

037542

000200

T$SNAME: CALL

135340
135332
135150

001102

; UPDATE ARBITERS COPY OF $MAIL.
; CLEAR RESET FLAG.
: SET TRAP ON Q-BUS RESET ENABLE.

BNE
MOVB

4%
$TSTNM, (PC)+

: BR IF TITLES SUPPRESSED..
; OTHERMISE, SAVE THE NUMBER..

. 300694

:: TYPE ASCIZ STRING

001102
2

017667

300684

MOvB

$TSTNM, -(SP)
,2!WZ

i...AND NUMBER.

MOV
TYPE
ADD

a(sP),2(PC)
,0
#2,(SP)

SET TITLE ADDRESS..
.AND TYPE IT Tw
: ADJ.ST RETURN PC..

062716
000002

TYPOS

000002

3%:
4%:

000002

#8IT7,3SWR

.WORD

TYPE

;:300?98:
113746
104403

; PUT CURRENT TEST NUMBER IN LEDS.

#BIT11,34CSR
#BIT10,3$CSR

BIT

1%:

104401

TNLEDS

ASMAIL
BIC
BIS

RTI

.ASCIZ

:...HERE.

; ;GET OVER THE ASCIZ

<CRLF>/TEST /

...AND RETURN

s S LT

; ROUTINE TO COPY SLAVE MAILBOX UP-LINE TO THE ARBITER.
; BYPASS IF SBC IS NOT A SLAVE (ID 1 OR 0) OR NOT APT MODE.
032777
001514

000001
5

013705
042705
000305
050537

012705

177524
177417
001172

000020
001166
044310
177400

BIT
BEQ
CMPB

BNE

3
3

:...DITTO.

IFX9UC

ool ok obolodeodde seodododok ool e ool ol ool ok kol ok sk i kool ook ok ok sk ok dkokokok ok sk

$FX9JC

MOV

@PK2CSRC ,RS

;:GET THE IOP ID NUMBER

ggga

gssn'esm

PUTI&’IDCMINHAILBOXSOTHATIEKW

MOV

#16. ,RS

; BYTE COUNT IN RS.

CLR
MOV

BIC

ADD
ASLB
ADC
S0B
3

JFX9UC
{FX9UC

NOW COMPUTE A CHECKSUM ON THE MAILBOX.

MOV
1$:

5<164BIT4>,@$TCID ; IF ID O OR 1...
8%
:...DON'T BOTHER.
S$ENV.OAPTENV
; iF NOT RUNNING UNDER APT...

deskodoolokodododok sofok sk s

BIC

NORoR

SEETEEEEE FRE

~J=~J
W
—O

001206

A$ $MATL:

;

&8sgoga

viuiuTuTVTUITUVTUTUTULTULTULTUTLTLUT
LYVLTI U

123727
001110

135264

:FX8JC
:FX8JC

#1C360,R5
S$MATL R4
(R4)+,R3

#1C377,R3

R3,
CHKSUM
CHKSUM
RS,1%

; MASK OFF OTHER BITS

;WHICH IOP IS REPORTING THE ERROR

; STARTING

IN R4,

;FX9JC

FX9JC

+ CLEAR ACCUMULATOR FOR CHECKSUM,
; GET A BYTE IN R3.

;FX9JC
;FX9JC

; OPERATE
ON THE BYTE.
:
:
; LOOP UNTIL DONE

sFX9JC
;FX9JC
sFX9JC
;FX9JC

; STRIP

HIGH BYTE IN R3.

1FX9JC

Routine has been modified to send 15 "tZ"'s if wait constent

expired and "tZ" was not echoed from arbiter or if “NACK” has
been received. After the third not echoed “tZ” the program still

|m———

134666

5¢:

134662
000006

6%:

000025

5633

044310
044312

7%:

RS,4$

MOVB
CALL
TST
TSTB

BPL
MOV
CMPB
BEQ

CHKSUM,(SP)
$TYPEC
(SP)+
@$TKS

S5$
9$TKB,RS
RS,#ACK
7%

CMPB

RS, #NACK

CLR

$MSGTYPE

BEQ
BR

8$:

RTI

CHKSUM:
CNTZ:

.WORD 0
.WORD O

2%
5$

0.
80
S0
S0
S8
B
S
N6
G0
B
W
G
BT
GE

$TYPEC

(R4)+,(SP)

S0B

044310
040714

001166

CALL

MOVB

4s:

224
#$MAIL ,R4
#16. ,R5

OTHERWISE STAY IN WAIT FOREVER

GET BYTE IN R3.
WAS IT THE <t2>?
NO, WAIT FOR IT.

GET A BYTE...

040714

BNE
MOV
MOV

WAIT UNTIL DELAY EXPIRED
DECREMENT "+Z* COUNTER
IF NOT 15 TIMES, SEND ONE MORE

WAIT FOR ARB TO ECHO <t2>

001166
000020

COUNTER FOR 15 "tZ"'S
SLAVE N APT MOCE -- PUSH...
... AND SEND <tZ>,
WAIT CONSTANT FOR "tZ*"

102¢:

@$TKB,R3
R3,832

134734
000032

MOVB
CMPB

044312

17-Sep-84

FIX STACK...
WAIT FOR CHARACTER TO COME BACK.

1024
RS,22%
CNTZ
200$

CALL $TYPEC
MOV
$177777.RS
TSTB
@$TKS

BMI
S08
DEC
gaa—:

200$:
101$:
228:

#17,ONTZ
$32,-(SP)

MOV
MOV

2%:

KXTFXD

044312

hangs in a wait loop.

000017
000032
040714
177777
134752

Page 155

5597

Thursday 03-Apr-86 14:11

GET THE CHARACTER IN RS.
WAS TRANSFER CORRECT?
YES. EXIT.
DID ARBITER SEND NACK?
YES, TRY AGAIN.

KEEP LOOKING FOR ACK OR NACK.

SAY "ARBITER'S MAILBOX HAS BEEN ...

MACRO Y05.02

N12

KXJ11-CA FUNCTIONAL TEST
TRAP TABLE

;COUNTER FOR "tZ"'S

B13

KXJ11-CA FUNCTIONAL TEST

ERROR HANDLER ROUTINE

MACRO Y05.02

Thursday 03-Apr-86 14:11

Pasge 156

.SBTTL ERROR HANDLER ROUTINE

5635

;#AND GO TO ERHAN ON ERROR

s#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

HALT ON
LOOP ON ERROR

ERROR

CKSWR
INCB
BEQ
MOV
INC
MOV

;;TEST FOR CHANGE IN SOFT-SWR
:3SET THE ERROR FLAG
73
3DON'T LET THE FLAG GO TO ZERO
$TSTNM, BDISPLAY ; ;:DISPLAY TEST NUMBER AND ERROR FLAG
$ERTTL
::INC THE ERROR COUNT
(SP), $ERRPC
;;GET ADDRESS OF ERROR INSTRUCTION

;

$ERROR:
7%:

134610
001116
001114

001116
001116

343 g

13333333333333333

044630

382737

000001

&g???

SUB
TYPE

tekmc
.16

33GET
PC AT TIME
OF FALSE TRAP

;mwoc

;G0 TYPE--OCTAL ASCIICALL DIGITS)

128
: JERROR IS TLLEGAL
TRAP
nmoeessucmmmmoaméhm
MoV

000000
104410
032777
001402
013716

108:
114:

12%:

001206

21$:

22%:

134402

$ERFLG

82 oémpc
@$ERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE
(sp).uboa ::IF RETURN PC LESS THAN 1002
$ERRPC,-(SP)

001110

134366

3%:

;;SAVE $ERRPC FOR TYPEOUT

#4,(SP)
(SP), $ERRPC
$ERRPC,-(SP)

: sGET FALSE TRAP VECTOR ADDR
;;SAVE $ERRPC FOR TYPEOUT

gflv

ggi:)’.(mo

;sPOP FALSE TRAP VECTOR PCEADDR

.ASCIZ
'33852

<200>'PC= ’
"
UNEXPECTED TRAP TO

;

JSR

PC,ERHAN

CMPB OAPTENV, $ENV

B
BPC,SATVAg,
JSR
.g%

224

gsm'

;360 TYPE--OCTAL ASCIICALL DIGITS)

;360 TO USER ERROR ROUTINE
RUNNING IN APT MODE

LN0,SGE
TSRO RO L

b REPORT FATAL ERROR TO RBT
APT ERROR LOOP

uuT m

CKSWR
BIT
#BIT09, 8SWR

TEST
2&% cH sm
: $LOOP

MOV

: :FUDGE RETURN FOR LOOPING

HALT

001000

: ;ADJUST PC

;i TYPE HEADER

SUB
MOV
MOV

;mmc

004737

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

SuB
MOVB
g&'

MOV

103
125

; 45W15=1
: $5W09=1

BEQ

$LPERR, (SP)

prp———

;#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

::BR IF m

KXJ11-CA FUNCTIONAL TEST
HANDLER ROUTINE

005737

001160

013716

001160

022737
001001
000000

040116

001402

4%:

000042

S$:

6%:

000002

Thursday 03-Apr-86 14:11
TS7T

Page 157

CHECK FOR AN ESCAPE ADDRESS
BR IF NONE

BEQ
MOV

54
$ESCAPE, (SP)

;FUDGE RETURN ADDRESS FOR ESCAPE

cHP
BNE
HALT

#$ENDAD
, 3942
6%

ACT-11 AUTO-ACCEPT?
BRANCH IF NO

RTI

; sRETURN

$///7//7//7/7/77/777777/777 OVERLAY PATCH AT

PATCH $ERROR TO UPDATE ARBITERS MAIL-BOX IF NECESSARY

; BEFORE TAKING THE APT-ERROR-STALL.
044606

000426

01;;46 134502

222%:

000005
012777

10441
00077
000741

002000

134472

2224

BACK UP TO THE "APT-ERROR-STALL"...
...AND CHANGE IT.

. =SVPC
MOV
RESET

3%CSR, -(SP)

; SAVE PRIMARY CSR (FOR DEBUG)...

MOV

#2000, 3$CSR

SVPC=,
.=22%
BR

044530

ASMAIL

...AND

TO ENSURE THERE AREN'T...

Fageh

044560
044564
044566

MACRO Y05.02

:FX8JC ‘

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST

ERROR HANDLER ROUTINE

005737
001402

0447

104401

000000
004737
000000

568? 044760

012600

9 0447
90 044774
5695 045006

200
040
040

ggga 044762

104401

;;

5 >

s2
i

E2-:

§ g .g2
=

sy’
LEH3 ,TYPOC

YPQS ,3!

:
2 4.g

104402

5?5'%»’1*
(SP)
TyPOS
.BQE_

L)
-

104403

044742

104401
000000

5681 044746
5682 044750
5683 044752

55233 0447

104403

001163

i...THE BASIC ERROR MESSAGE...

ESADR:

i...AND THE FORMATTED SIGNATURE.

ERXIT:

207

105
111
101

122
116
124

; PRINT ERROR PREFIX (IF ANY)...

3678 044740
5679 044742

0447
044736

044764
001102
044774
001116
045006
001163

-(SP)
$ITEMB (SP)

104401
113746
104401
013746
104401
104401

001114

001112
134260

TRCTR

5670 044670
5671 044700
5672 044704
5673 044714
5674 044720
5675 0447,

113716

051034
100000
020000

$ITEMB,RO
RO
ELOG(RO)
#B8IT15, $ERTTL
#8IT13,3SKR
ERXIT

005046

9 044654

001114

5668 044662

010046
113700
006300

ERROR SIGNATURE HANDLER.
LOG THE NUMBER OF OCCURENCES OF EACH ERROR IN "ELOG".
IF SWR<13> %PRINTAMMNDAMSICMESSNI
IN ONE OF SEVERAL SIGNATURE FORMAT SUBROUTINES.

333388 8 Zxzas B

W
B

042737
032777
001037

5657
5658
5659
5660 044630
5661 044632
5662 044636
5663 044640
044644
5665 044652
e 044660

76
77

Page 158

5
5

Thursday 03-Apr-86 14:11

EHL:
EH2:
EH3:

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

ERROR HANDLER ROUTINE

Thursday 03-Apr-86 14:11

Page 159

5694

)

Ssggg

; SUPPRESSED IF SWR<14> = 1 OR NO ERRORS LOGGED.

55233

; DISPLAY PC, ERROR NUMBER, AND THE NUMBER OF OCCURRENCES.

5695

; SUBROUTINE TO PRINT AN END-PASS ERROR SUMMARY.

5700 045016

032777

040000

5701 045024 001051
5702 045026 005737
g;lgz 045032 001446

001112

5705 045034

045152

104401

5706 045040
5707 045044
5708 045050
5709 045052
5710 045054
5711 045056
5712 045060
5713 045064
5714 045066
5715 045072
5716 045076
5717 045100
5718 045102
5719 045104
5720 045106
5721 045112

012700
012701
710
001434
011046
010002
162702
006202
052702
012703
022302
001376
005743
010346
042702
010246

051034
104000
002456

045114

104401

045203

132

104401

046131

134114

ESUMRY: BIT

BNE
ST
BEQ
TYPE

051034
000225

5734 045203
5735

011

040

,ESUML

; PRINT HEADING.

$E1.0G,
RO
#ELOGN,R1
(RO)
33
(RO),-(SP)
RO,R2
#EL0G,R2
R2
SERROR, R2
$TRAPE .R3
(R3)+,.R2
24
-(R3)
R3, -(SP)
SERROR, R2
R2,-(SP)

104403

TYPE

,TABO9 ,TYPOS ,3!WLZ ; PRINT ERROR NUMBER...

104405

TYPE

.SPAC4 .TYPDS

;...AND NUMBER OF HAPPENINGS.

<CRLF><11>
/ERROR
PC

TIMES/<CRLF>

1%:

24:

104000

104401 001163
005720
077140
000207
200
011
105
122

; DON'T IF SUPPRESSED...
;...0R IF THERE AREN'T ANY ERRORS.

MOV
MOV
TST
BEQ
MOV
MOV
SUB
ASR
BIS
MOV
CHP
BNE
ST
MOV
BIC
MOV

5 gxg 104401 046131 104402
29 04;140
§72
5728 045146
s; 045150
731 045152
57§§ 045154

#BIT14,3SWR

a$
$ERTTL
a$

TYPE

$CRLF
{RO)+
R1,1$

000

<11><40>

.ASCIZ
.EVEN

i...

-2= ERROR PC.

: PUSH ERROR PC.
; PUSH ERROR NUMBER.

.SPACA .TYPOC ' ;...ERROR PC...

TYPE
3%:
18T
S0B
as:
RETURN
ESUML: .ASCII
122
"ASCIZ
TABO9:

; ERROR N HAPPEN ?7?
: BR IF NOT
; PUSH NUMBER OF HAPPENINGS
; ERROR LOC...
i s
... / 2 = ERROR NUMBER.
: MAKE <EMT+N>.
; FIND THE ERROR CALL...

; NNN

PPPPPP

KXJ11-CA FUNCTIONAL TEST

ERROR HANDLER ROUTINE

MACRO Y05.02

5737

Thursday 03-Apr-86 14:11

g;gg

; SUBROUTINES TO ASSEMBLE AND PRINT VARIOUS ERROR SIGNATURES.

5780 045206
2325 045206

000207

5743 045210
5744 045214

104401
004737

001163
045230

EF2:

EF1:
NOSIG:

5747 045230
5748 045234

013746
104401

001120
045713

LA16:

RETURN
TYPE
CALL

5745 045220 000442
BR
5746 045222 162737 000002 001120 LA16M2: SUB

3;49 045242 000207

104402

573‘1’ 045244 104401 001163

EF3:

037436

GA22:

575§ 04
5753 04
5754 045256
5755 045262
5756 045266
5757 045272
5758 045276
5759 045300
5760 045306

5761 045310
5762
045314
5763 045320

004737
000424
004737
013746
013746
005766
100003
062766
006116
104401
104403
104403

045256

037540
037536
000002

100000 000002
045704
000403
000405

5764 ugs 4
207
5765 04
013746 001126
sng 045332 013746 001124

1%:

EF4:

MOV
TYPE

RETURN

TYPE

CALL
BR
CALL
MOV
MOV
ST
BPL
ADD
ROL

TYPE
TYPOS
TYPOS

104401
104401
104401
000207

001%63
045725
045735

772

013746

001126

104401
104401

001163
045747

104402

TYPE
TYPE

104401
104401

045767
046136

104402
104402

771 045360
045360

104402
104402

EFS:
EF6:

773 045364 013746 001122
774
;70 013746 001124
775 045374 013746 001120

gng g:
77

04
04

780 04
781 045432

104401
104401

g;a 045440 000207
784 045442
785 045446
5786 04 §
5787 04

5788

046136
001163

013746
013746
104403
104401

001120
001122
000403
045006

013746

001126

104401
104401

001163
046007

000207

104402

5792
5793

045476
045502

104405

$GDADR,-(SP)
,ADDRS ,TYPOC

; A 16 BIT (LOCAL) ADDRESS.

,$CRLF

; A 22 BIT ADDRESS WITH GOOD/BAD DATA.

EFa
#2, $GDADR

GA22
EF4
VA2GA
GALO, -(SP)
GAHI . -(SP)
2(5P)
1%
#8IT15,2(SP)
(SP)
,GADDRS
,3'WLZ
,S'WLZ

MOV

$BDDAT,-(SP)

MOV
MOV
MOV

$BDADR, -(SP)
mv.-gspg
$GDADR,- (SP

TYPE
TYPE

.COMMA ,TYPOC
,$CRLF

; FOR POST-INCR ADDRESSES.

; CONVERT FROM A 16 BIT VIRTUAL (R1).

; ADDR<15> SET 7?
: SKIP IF NOT, “C" = O...

;...ELSE CLEAR IT, "C" ='1.
; PRINT ADDR<21:15>
; PRINT ADDR<14:00>
; GOOD/BAD DATA.

; UNUSED.

; SRC-ADDR-DATA/DST-ADDR-DATA.

,$CRLF
,SADR ,TYPOC

; SOURCE ADDRESS...

TYPE
TYPE

.DADR ,TYPOC
.COMMA ,TYPOC

; DEST ADDRESS...
;...AND DATA,

MOV

$GDADR,-(SP)
$BDADR,-(SP)
,3'WLZ
,EW3 ,TYPOC

; BAD TRAP -- PC...
;...AND
VECTOR.
; PRINT
OR...
:...ANG PC AT TIME OF TRAP.

$BDDAT.-(SP)

; INTERRUPT SEQUENCE INCOMPLETE.

,$CRLF
.IEXPD ,TYPDS

; EXPECTED THIS MANY...

RETURN
EF8:

5791 045472 013746 001124

; A 16 BIT ADDRESS WITH GOOD/BAD DATA.

L $CRLF
.EXPD ,TYPOC
,RECD .TYPOC

TYPOS
TYPE

104402

,$CRLF
LA16

TYPE
TYPE
TYPE
RETURN

RETURN
EF7:

: SOME HAVE NO SIGNATURE AT ALL.

RETURN
MOV
$BODAT,-(SP)
MOV
$GDDAT, -(SP)

767 045336
768 045342
5769 045332
770 045356

5778
5779

Page 160

MOV

TYPE
TYPE

$GDDAT, -(SP)

;...AND DATA.

5794 045510
g;gz 045516

104401
000207

045735

5797 045520

013746

001122

104405
EF9:

104403
104403

104405
104405
EF11:

104403
104403
EF12:

5821 045672
5822 045702
582
24
825
5826 045704
827 045713
3829

8 045725
04573

3831 045767

046032
046051
gg S
7

3037 Odelos
saga 046116

5839 04613§
5840 04613

5841 0461%4
5842 046136

104401

104401
000207

046116

104403
104403

Page 161

TYPE

.RECD ,TYPDS

;...G0T THIS MANY.

MOV
MOV
TYPE

$BDADR, -(SP)
$GDADR, -(SP)
. $CRLF

; INTERRUPT SEQUENCE (VECTOR) ERROR.

TYPE
TYPE

EF10:

5820

Thursdey 03-Apr-86 14:11

MOV

MOV
TYPE

LVEXPD ,TYPOS ,3!WLZ
.RECD ,TYPOS ,3'WLZ

$BDDAT, -(SP)

$GDDAT, -(SP)
. SCRLF

MACRO Y05.02

ERROR HANDLER ROUTINE

G13

KXJ11-CA FUNCTIONAL TEST

; EXPECTED VECTOR...
i...RECEIVED VECTOR.

7201 OR 8036 BYTES RECEIVED..
..AND TRANSMITTED.

TYPE
.BXMTD ,TYPDS
;Ev;lem JRECD ,TYPDS

; SENT THIS MANY...
;...AND GOT THESE BACK.

MOV

; 7201 EXTERNAL OR SPECIAL STATUS.

$BDDAT+4,-(SP)

MOV
$BDDAT+2. -(SP)
TYPE
,$CRLF
TYPE
.OSRO ,TYPOS ,3'WLZ
TYPE
.OSR1 .TYPOS .3'WL.Z
RETURN
MOV

vae
TYPE
TYPE

RETURN

omroa -csm

; OBSERVED SRO...
:...AND SR1.

; 7201 MODEM STATUS SRO(B)..

‘
,-(SP
:...AND SRO(CA).
.OSROA ,TYPOS ,3'WLZ
; OBSERVED SROCA)...
,OSROB ,TYPOS .3!WLZ
;...AND SRO(B).

; BITS AND PIECES USED BY THE FORMATTERS.

107
101

105
104

111

126
102
123

123
040
040
040

040
054

114
104

130

040

123

116

105
131
122

12
040
040

000
000

117 GADDRS: .ASCII /GLOBAL /

104
120
122

ADDRS:
EXPD:
RECD:

.ASCIZ
.ASCIZ
.ASCIZ

1o
mn A
124 IEXPD: .ASC

103
124
060
123
060
123

VEXPD:
BXMTD:

.ASCIZ
.

OSRi:
OSROA:

.ASCIZ
.ASCIZ

OSRO:

:
SPAC4:
SPAC2:
SPACE:
COMMA:

.ASCIZ
.ASCIZ
.ASCII
.ASCII
.ASCIZ
.ASCIZ

/ADDRESS: /
/EXP'D: /
/ REC'D:
/

'/mmpfsexpo /
/VECTOR EXP'D:
/
/BYTES XMT'D: /
/SRO:

/ sru: /
/SROCA): 7/
/ SRO(B): /
/ 7
/ /
7 7
7./

Ll
|

h
!

H13

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

ERROR HANDLER ROUTINE

Thursday 03-Apr-86 14:11

Page 162

BASIC ERROR MESSAGES.

103

5849
5850 046217

5851

5853

125

102

112
114

DCJDM:
STF:

.ASCIZ
.ASCIZ

/SELF-TEST FAILURE/

105

UNXT:
CSRE:

.ASCIZ
.ASCIZ

/UNEXPECTED TRAP THRU VECTOR /
/BUS TIME-OUT AT KXCSR /

123
117

CLK1:

.ASCIZ

116

CLK4

.ASCIZ
.ASCIZ

.ASCIZ

/BUS TIME-OUT AT LINE CLOCK /
/CLOCK INTERRUPT NOT MASKED AT LEVEL 6/
/CLOCK INTERRUPT NOT RECEIVED/
/CAN'T DISABLE CLOCK INTERRUPT/

DPR1:
DPR2:
DPR3:
DPR4:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/BUS TIME-OUT AT LOCAL DPR /
/DPR LOCAL WRITE-READ ERROR/
/TDEWT(E(P)WQ-&ISREADATDPR/
/NON-ZERO DATA RETURNED ON Q-BUS READ/

DPR7:

.ASCIZ

/N0 /
/TIME-OUT (EOP) ON Q-BUS WRITE TO DPR /
/INTERRUPT RECEIVED WITH DPR DISABLED/

.ASCIZ
.ASCIZ

/DPRXX INTERRUPT NOT RECEIVED/
/ARBITER WRITE TO DPR (WORD 15) FAILS/

117

123
115
116
115

115
124
122
102

:
CLK3:
3

DPR8:

.0DD
DPR9:
DPR10:

/DCJ11 BASE INSTRUCTION TESTS/

/COMMAND INTERR(PT (DPRO) DIDN'T HAPPEN (OR DOESN'T WORK)/

e
5873 047211

5874 047217

875 047225
876 047§6
5877 047 §6
5878 0473

;CONSOLE SERIAL LINE ERROR MESSAGES

130

122

111

122

3880 ouraos
S 0475%1

102

§aas 047551

103

509§ 050004

5893 050040
3894 050110
gfi 050165

Ssggz 05023;
359 83031
3900
5901 050326

124

§LIx:

SLIS:

.ASCIZ

/XMTR /
/RCVR /
/INTERRUPT NOT MASKED AT LEVEL 4/
/INTERRUPT NOT RECEIVED/
/REQUEST STILL ACTIVE AFTER “IACK"/
/RECEIVED DATA INCORRECT/

NEC1:

.ASCIZ

\BUS TIME-OUT AT SYNC/ASYNC (OR I8254) \

NECCM:

.ASC

{é.g{”‘ SX CASYNC) /

102

%CM:

.ASCASCIZP

NEC9:

/800HZ

T (8254 TIMER 2) NOT RECEIVED/

.ASCIZ
.ASCIZ
SLIS
Z

.ASCIZ

/CHAN A
%fl“) /
/DATA TR
INCOMPLETE/
/<EQF - sm.c»
T RECEIVED/
; RECEIVED
DA A_INCORRECT.

\me
CTED WINTERRUPT\

/MODEM CONTROL

CRLF

/STA;{g
INWT RECEIVED/

/STA

H <RTS> SET/

\STATUS m WITH <T7108/2> IN CSRA SET\

/STATUS WRONG WITH <TERM-IN-SERV> IN CSRA SET/

NEC10:

.ASCIZ

PIO1:
PI02:

.ASCIZ
.ASCIZ

/BUS TIME-OUT AT PIO /
/PI0 RESET STATE INCORRECT/

.ASCIZ

/NOT RUNNING/

PITN:

116

NECh-

NEC3:
NEC3A:
NEC4=
g

123
123
123

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

SLIR:
SLI2:
SLI3:
SLI4:

PIO3

.ASCIZ
PITX=

/STATUS WRONG WITH ALL CONTROLS CLEAR/

/PI0 TIMER N /

19
KXJ11-CA FUNCTIONAL TEST
ERROR HANDLER ROUTINE
5902 050342
5903 050356

116
111

5905 050445
5906 050464
5907 050503
33?8

120
120
104
047356

5904 050416

111

MACRO Y05.02

Thursday 03-Apr-86 14:11

105
116

126
124

PIO4:
PI0S:

111
111
101

117
117
124

PORTBA: .ASCIZ
PORTAB: .ASCIZ
PI07:
.ASCIZ
PI108=
SLE%EN

116

124

PIO6:

.ASCIZ
.ASCIZ

.ASCIZ

163

/NEVER STOPS/
/INTERRUPT NOT MASKED AT LEVEL 4/
/INTERRUPT NOT RECEIVED/

/PIO PORT B=>A /
/PIO PORT A=>B /
/DATA TRANSFER INCOMPLETE/
; DATA INCORRECT.

J13

K¥J11-CA FUNCTIONAL TEST

BINARY TO ASCII DECIMAL ENCODER
5911

MACRO Y05.02

.SBTTL
HIE

Thursday 03-Apr-86 14:11

Page 164

BINARY TO ASCII DECIMAL ENCODER

G bttt
tttatnenteass s 2 T 22222 22 2 22 2 2

T T YT IS

;; CONVERT BINARY TO SIX CHARACTER ASCII DECIMAL STRING.
ii RANGE : -32768. TO +32767. (SIGNED) OR O TO 65535. (UNSIGNED).

is CALL: MOV NUM,RO

cnu. DECIMAL

000177

000053
000177
050720

DECIMAL: MOV

402
SDECIMAL: MOV
MOV

LZS:

050720
000177

000055
050634

14:

050720

24:
000002

000001

3%:

050552

050552
050552

5§:

64:
8%:

MOV
MOV
MOV
CMPB
BEQ
ST
BPL
NEG
MOVB
JSR
10000.
1000.
100.
10.
1.
T1ST
MOV
RETURN

INC
MOVB
cMP
BLO

INCB
SUB
BR

;s OR SDECIMAL (SIGNED).
;; RO POINTS TO STRING ADDRESS ON RETURN.

#177,-(SP)

" *, '(?)

#177,(PC)+

;3 UNSIGNED, PUSH
A NULL.

is MLL LEAD 0'S.

..s:—:usruwa(moa.)

; COPY NUMBER TO THE STACK..
.AND USE RO FOR THE STRING POINTER.

i1 GHECK SIGN BYTE..

::...AND BR IF UNSIGNED.

i3 %Mmposn

MAKE ABS VALUE.

Mcmnsmsxm 10 C-).

.s CMERT BINARY TO ASCII
:; 1014

. .RETURN POINTER TO CALLER.

;s POINT TO NEXT DIGIT...
33...AND SET IT TO O.
:3 ACCUMULATE THIS DIGIT.

cMP

i3 ALL DONE IF

CMPB
BNE
MOVB
402
CLR
BR
RTS

uaairm&sruzrwm

BEQ
15T
BEQ

.BLKB
.WORD

LAST DIGIT 2?

i 1 a1 NON 2
mu.mn.zsunm.
n L%FQSD
i

1 ST ROPERLY TERFINATED.
STRING BUFFER,..

5938 050772
5939 050774

177777
000000
000000
000000
000000
000000

OPATCH

e
w0

w0
86
S8

G0
S8
B0
BE
B

= KNOWN GOOD_IOP PRESENT
nuasa OF IOPS INDICATED BY ARBITER SNIFF ROUTINE

UNDER TEST FOR MULTIPLE UNITS

LOWEST QBUS ADDRESS THAT SHARED MEMORY CAN START AT
WMWN&WSWSHAREDWYTHAT

OOOOOOO; (=]

LAST ADDRESS UNDER 28K (IF NO MMU).

ADDRESS BUS WIDTH,

CAN RESIDE ON_THE QBUS
GE INDICATES THAT A 22 BIT QBUS EXERCISER IS
;RESIDENT IN THE SYSTEM AT ADDRESS 170020

177777

0
0

;ONE_INDICATES THAT AN 18 BIT QBUS EXERCISER IS
:QESIIENT IN THE SYSTEM AT ADDRESS 170000

: SNON ZERO IN ONE OF THESE INDICATES ARBITER CPU TYPE
/

:AREA FOR PATCHES

5937 050770

050732

000000

.
.

5929
5930 050756
5931
5932 050760
5933
5934 050762
5935 050764
5936 050766

.MSIZE:
.LSTPG:

5918 050734

Page 165

;THE FOLLOWING ARE ARBITER PARAMETERS NEEDED
BY THE K2

5917

000000
000000

Thursday 03-Apr-86 14:11

5913
5914 050730
5915 050732
5916

MACRO Y05.02

BOOOOO

KXJ11-CA FUNCTIONAL TEST

BINARY TO ASCII DECIMAL ENCODER

’§§§§§§ § § SulERNgE 55

K13

L13

KXJ11-CA FUNCTIONAL TEST

BINARY TO ASCII DECIMAL ENCODER
5942

5950 051034
ggss% 051506

Thursday 03-Apr-86 14:11

Page

166

5943
5944
5945
5947
5949

MACRO Y05.02

000225
051506

: EVERY THING BEFORE THIS IS LOADED INTO THE TARGET K2
: NOW ALL THE REST IS THE ARBITERS REMOTE LOADER AND VT -- NONE OF WHICH
: NEED BE COPIED DOWN TO THE SLAVE UNIT.
: DEFINE A SPACE FOR THE “ERROR LOG".
ELOGN= $EN.1
ELOG:
LASTAD:

.BLKW
.

FELOGN

; ERROR LOG (1WORD/ERROR).
: LAST LOAD-IMAGE ADDRESS.

M13

KXJ11-CA FUNCTIONAL TEST

BINARY TO ASCII DECIMAL ENCODER

MACRO Y05.02

5954
5955
5956
5957

S
5970 051544
5971 051552
5972 051556
5973
5974 051562
5975
5976 051566
5977 051572
5978 051574

5979 051600
5980 051602
5981 051606

3982

5983

5984 051612
5985
5986

;MEMORY TESTS).

012706
012737
012737
032777
001402

001100
000176
000176
004000

000137

056702

012737
004737
004737

000340
052160
052574

004737

005737
001003
104401
000000
004737
004737

054070
054202

004737

055310

001140
001142
127402

177776

ik kR bk kk

Rk kR kR kR k ARk ek

Rk kAR

ke k&

$$ARB:

:IF THE TEST IS RUN IN THE ARBITER THE FOLLOWING
;STUFF MAY BE OVER WRITTEN
O

MOV
MOV

#1100,R6
#176,3%SWR

JHP

REMOTE

MOV

#340, 3PS

MOV
BIT
BEQ

104:

;THE FOLLOWING STUFF OVERLAYS THE BUFFER AREA.

#176,38SWR+2
#8IT11,3SWR
10%

s T T

:SETUP THE STACK
;POINTER TO SOFTWARE SWITCH REGISTER

;AND DISPLAY REGISTER
;STANDALONE TEST?
;NOT DOING STAND ALONE IOP; GO TO
;ARBITER SETUP ROUTINES

:DOING STANDALONE TEST; SKIP OVER THE
:ARBITER STUFF

;PSW - SET KERNEL MODE

JSR
JSR

PC,ARBITR
PC, .SIZE

053412

JSR

PC,SNIFFR

;MEMORY THERE ARE
;FIND OUT HOW MANY AND WHAT TYPE OF IOPS

001244

;'SfT

{;EVH

;IS THERE AT LEAST ONE IOP?

052006

ITizLP;

+NORESP

; INFORM OPERATOR THAT NO IOPS WERE FOUND

JSR
JSR

PC,QBEX
PC, SHRMEM

;ARE THERE Q BUS EXERCISERS?
;GET INFORMATION FOR SHARED MEMORY TESTS

JSR

PC,SHOSYS

xmd SHOW WHAT WHAT IOPS ARE PRESENT

1%:

;FIND OUT WHAT TYPE OF ARBITER WE ARE
;FIND OUT HOW MANY KWORDS OF ARBITER
;ARE_IN THE SYSTEM

:SUCH AS AMOUNT OF EXISTING MEMORY AND THE
MJGER OF ADDRESS BITS SUPPORTED

;NOW SYNC UP THE IOP UNIT BEING TESTED WITH THE IOP ID NUMBER WHICH
;IS DETERMINED BY THE SETTING OF THE ID SWITCH ON THE KXJ1l MODULE

9 051616

599
3992 051616
399
994

kidkkkikk bk kdkk

Page 167

;THIS STUFF RUNS FIRST TO ESTABLISH WHAT TYPE OF ARBITER CPU IS
s PRESENT AND HOW MUCH MEMORY IS AVAILABLE (IMPORTANT FOR SHARED

5962 051510
5963 051514

Thursday 03-Apr-86 14:11

$AGAIN:
012737
012704
012737
0057 4

0015%1

o
302

016237
012 3;

737
O% 701
072127
060%37
032714
001403

000001
001256
000002

050740

050742

;THE IOPS IN THE SYSTEM.

MOV
MOV
TRYNXT: TST
BEQ

MOV

; YUP

MOV

1$:

1,I0P.UT
ozmpm
(R&)
NXT

6oua

;I0P UNDER TEST
iPOINT TO FIRST IOP TABLE ENTRY SET UP BY SNIFFR
;FIRST
IOP ID NUMBER; O AND 1 ARE STANDALONE
iIS THERE AN I0P HERE?
;G0 TRY THE NEXT POSITION IF NOT.

10P.UT,R2

Rsfm(nz) nove
“g LEFT ONE Posmon

g_i;
ADD
MOV

r{:.moua
#15000, JOPADR
10P.ID.R1

;xs THE I0P ID NUMBER >
;YES, SHIFT TO UPPER RANGE
;GET IOP ID NUMBER

; 1=LOW 2=HI

MOV

056730
052002
052002

;COMES HERE THE FIRST TIME THROUGH AND AFTER IT HAS TESTED ALL

ABO
BIT

BEQ

$160000, mé

fi'mpmn
#817T01,(R4)

%
OF mPs

S
;IS I0P IN HIGH RANGE OR LOW RANGE?

N13

KXJ11-CA FUNCTIONAL TEST
MACRO Y05.02
BINARY T0O ASCII DECIMAL ENCODER

Thursday 03-Apr-86 14:11

6011 051722 052737 002000 052002
6012 051730 010437 052004
28:
6013 051734 005737 052000
28{; 051740 001011
28%9

6020 051754

104401
104401

052136
001163

104405

gé 052006

6035 052032
6036 052036
6037 052042
6038 ogaou
6039 052052
6040 052056
6041 ogzoea
mg oggovo
604 8 072
6044
052076
6045 0 133
6046 052104
6047 052110
6048 052114
6049 8 156
60
122
6051
0 133
68 0 i
6053
052134

6034 05213

10P.ID, -(SP)

TYPE

REMOTE

JHP

6‘352

052002
2331 052004

MOV

TYPE

6‘355 051760 000137 056702
6025 051764
6026 051770
6027 051774
6053

$2000,I0PADR
R4, POINT
FRESH
33

;
:SAVE R4 IN LOCATION POINT
;IS THIS A NEW LOAD OF THE DIAGNOSTIC?
:BRANCH IF NOT

;ELSE LOAD THE DIAGNOSTIC INTO THE TARGET IOP

6018 051742 013746 050742
6019 051746

BIS
MOV
TST
BNE

Page 168

.LDING, TYPDS
.$CRLF

:IF THE DIAGNOSTIC HAS ALREADY BEEN LOADED INTO ALL IOPS THEN JUST RESTART

013700 052002
005060 000030
000137 056770
000000
000000
000000

200

012706
005037
005037
005037
005037
005237
023737
oogoos
013704
020427
oo%o
005237
005737
ooéoo;
005237
000635
062704
005237

200

116

001100
001166
001170
001172
001102
050740

MOV
CLR
JHP
FRESH: .WORD

IOPADR:
POINT:

.WORD
.WORD

NEXT1:

MOV
CLR
CLR
CLR
CLR
INC
cHP
BGT
MOV
cHP
BNE
INC
ST
BNE
INC
BR
ADD
INC
B8R

052004
001310
052000
052000
052000

2¢:

000002

NXT:

114

O
O

:GET ADDRESS OF IOP TO RESUME TESTING
:WRITE TO TPR12 TO KICK IT OFF
;LINK UP WITH THE IOP SERIAL LINE
;ZERO INDICATES THAT ALL IOPS ARE NOT L

;HOLD VIRTUAL ADDRESS OF IOP BEING TESTED
:HOLDS DEVICE DESCRIPTOR WORD ADDRSS

117 NORESP: .evsg‘z <CRLF>/NO IOPS INSTALLED/

050740 050746

050742

I0PADR, RO
30(R0)
LINK
O

18:

117 LOING:

#1100, SP
$MAIL
$MATL +2
SMAIL
o4
$TSTNM
10P.UT
TOP.UT,IOPCNT
24
POINT,R4
R4, #$0DM15
NXT
FRESH
FRESH
14
FRESH
$AGAIN
#2,R4
Iofi.m
TRYNXT

;SET UP THE STACK
;
: CLEAN UP APT MAIL BOX
;
:ZERO OUT THE TEST NUMBER
;IOP UNDER TEST (NOT ID NUMBER)
;IS IOP UT > NUMBER OF IOPS IN SYSTEM?
;
;RETRIEVE VALUE OF DEVICE DESCRIPTOR WORD
; DID WE HIT THE TOP?
i INDICATE THAT ITS NOT A NEW LOAD
:DON’'T LET IT INCREMENT TO ZERO
;
;
;POINT TO NEXT POSSIBLE IOP

:NEXT IOP ID NUMBER

.ASCIZ <CRLF>/LOADING 100 108 /

052450
000004
000006
052250
000340
177750

042700

177417

052737

000015

177746

000010

000012

050764

050770
050766

ot ried s

o o o oo
oy ot oy

o e et e o o

b =

croo OO

RE53SSRGRETE8$88333233332R2RRR208

050762

050772

s oo
015

012

101
113

113

Page 169

;ROUTINE TO FIND OUT WHAT KIND OF ARBITER CPU IS IN THE SYSTEM

=
o

104401
013746
013746
012737
012737
013700

Thursday 03-Apr-86 14:11

: zZ @333333972%325729E0ENARAAANBARIEEH N 333333

MACRO Y05.02
IONAL TEST
I DECIMAL ENCODER

B14

KXJ11-CA F
BINARY T0O

%.-gg;

;PUSH OLD VECTOR ONTO STACK

#5$, 304
oPR7, 206
3#177750,R0

$177417.R0
108

;LOAD NEM HANDLER ADDRESS
:%VE MAINTENANCE azsxsrg.a‘ 10 RO i e

#20,R0

;umnncm uuu“‘"—cwI mEuuu'S —
: IS
THE ARBITER CPU A KDJ11?
irITS NOTA KDJ BRANCH

‘

f})eams

PR, e Y

;MOVE A ONE TO KDJ TO INDICATE THE TYPE OF ARBITER

; NOT A KDU11

(srgo.(sp)o
.
(SP)+ .34

;RESTORE STACK
:RESTORE VECTORS
;

,.auo.~§spg
“12.‘ 9

:SAVE CONTENTS OF VECTOR
H

L $
258

’15"312

’

#J11,R0
114
#T11,R0
123

gg.m

ét&mu

#1,90011%

:IF THE ARBITER CPU IS A KDJ11
; THEN SKIP THE REST OF THIS
;LOAD IN NEW VECTOR

ILST 11 WILL EXECUTE A RESERVED INSTRUCTION TRAP
;Is IT A DCJ11 BASED CPU OTHER THAN KDJ11?
BRANCH IF YES
sIS IT A DCT11 useo CPU?
BRANCH
IF

:IS ITA ocru ensaa CPU?

.Ansmsa w me wmu
H

#1,907T114

; INDICATE T11 BASED CPU

i
i INDICATE AN F11 BASED CPU
gt
HERE VIA A RESERVED INSTRUCTION TRAP
INDICATES
AN LSI11 CPU

[Z
[Z
7

#1,90F114
o‘xga.m
11

; INDICATE AN LSI11

lsv)’.(sp)o

;ussms STACK

(s'uan.

(SP)+

sRESTORE VECTORS

<CR><LF>/ARBITER CPU TYPE IS /
/A KDJ11A/
/DCJ11 BASED.
/A KDF11/

Cl4

KXJ11-CA FUNCTIONAL TEST

BINARY TO ASCII DECIMAL ENCODER

€114 052524
6115 052545

6116 052556
6117

101
101

125

116
116

116

MACRO Y05.02

040
040
104

Thursday 03-Apr-86 14:11

DCT11:
.ASCIZ
LSI11:
.ASCIZ
UNKNLN: ASCIZ
.EVEN

/AN SBC1l/
/AN LSI11/

Page 170

D14

KXJ11-CA FUNCTIONAL TEST

16718722 BIT MEMORY SIZER

MACRO Y05.02

6119
6120
6121
6122
6123

.SBTTL

‘érze.

177572
000020
000004
000006

000114
000116

000116

000114
000116

-l

177572

052716

1%:

005712
702

{ o 005001

3%:

000514

012701

S nnaany
:‘éfififiafi
2gan

052724

000002

i °§z§

172340
172300
000010

LSIZKT:

077406

000200

177600

6165
03766

052770
052776

053046
172516
000020

1013

00000
010000
000004

7
-y

2%:

00%293

000773
162702

TR g 0388330333 BLE¥ZEAC03 358 2838 333333C

012737
2

Pub

S S

T T

T Y

T T

rerees

::WYPARITYMS(IFMY)KW

012737
012737
012737
012737

16/18/22 BIT MEMORY SIZER

ARE USED BUT NOT SAVED.
ALL GENERAL REGISTERS

005037
012737
013746
013746
013746
013746
010605

6167
21

Page 171

;; MEMORY SIZER FREELY ADAPTED FROM “.$SIZETM IN SYSMAC. SML (C3).
:; THIS ROUTINE MUST RESIDE WITHIN THE FIRST 24K (0-137776).

6124

Thursday 03-Apr-86 14:11

172516

000004

177572
140004

3FMMRO
#16., .ABUSH

a#114,-(SP)
a#116,-(SP)
SP.RS
#116,39114
#RTI,a#116
#14,004
#340, 396
MMRO

; ;ENSURE THAT MEMORY MANAGEMENT IS OFF!!!
;s ASSUME 16 BIT MSSIK‘
;s SAVE BUS-ERROR..
i...AND PARITY VECTORS.
i3 SAVE STACK POINTER IN RS.

;3 IGNORE PARITY ERRORS.
i3 SIZE USING "1$" IF KT ISN'T THERE.

33 FILLER FOR T11.
i OTHERMWISE, SIZE USING THE KT.

s3 NO KT -- SET TRAP CATCHER.
;; FIRST ADDRESS (0).
;3 SIZE FROM O UP...
IN 1K STEPS...

WE TRAP.
8802 UNTIL
i

R2 = LAST VIRTUAL ADDRESS.

33 R1 = O (PAF DOESN'T APPLY).
i

i3 1ST "PAR” ADDRESS. . .
AND IT'S
THERE

SIZING

nRSHILLCGlflTl'EK'S.

n ng 24 IFDO22?IIT SUPPORT .
; 22

MODE,

22
’rosurzzmmssxsm.
s sekbnks KT ON sssssbssssssissssssbbssss
n MUS

i3...TRAP

TRAP.
..

‘T WRAP -AROUND .

| E14

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST

6176 053040
6177 053044

6185 053100
6186 053100
6187 053106
6188 053110
6189 053114
6190 053120

3152

005037

000401
022626
012737

012704
000406
022626
012737
012704
012737
005011

005737
062711
005203
021104
103771
000401
022626
011100
012711
005037
010001
162701
012702

000026
177600

140000

000040

050736

BNE

TYPE

050736

1$:

053305

BR
CcHP
BNE

TYPE

053300
053317

3%:

24%:

000116
000114
000006

BRR38

000004

061
061
062
111
127

MOV
MOV

LSIZXIT: MOV
MOV
MOV
MOV
TYPE
TYPDS
TYPE
cHP

053312
000022

MOV

S5$:
.SIZMEM: MOV
CLR
1%:
757
ADD
INC
cMP
BLO
BR
2%:
cMP
3%:
MOV
MOV
CLR
MOV
SuB
MOV

010337
013746
104401

6214
og

34:

MOV
BR
cP

4%:

053130

104401
022737

2%:

CLR
BR
5,4

64%:

000022
007600

010137
010237

il s

Thursday 03-Apr-86 14:11

172516

16/18/22 BIT MEMORY SIZER

124

BR
TYPE

TYPE

MOV
MOV
MOV
MOV
MOV
RETURN

ANIG'

.ASCIZ

KWMEM:

.ASCIZ

ADR22:
ADRSUP:

.ASCIZ
.ASCIZ
.EVEN

MR3
64

Page 172

3; WRAP-AROUND -- MUST BE 18 BITS ONLY.

(SP)+,(SP)+

FIX STACK

(SP)+,(SP)+
#22. , . ABUSH

sFIX STACK

#18., .ABUSH
#7600,R4

#177600,R4

; SET THE BUS WIDTH = 18.
; SET SIZER LIMIT = 124K.

i3 WE HAVE A REAL 22 BIT ADDRESS SPACE.
33 SET SIZER LIMIT = 2048K.
;3 TRAP TO 2% WHEN DONE SIZING.
i SET PAR6 AT 1ST PAGE (0).
SIZE USING PAR6 (+0)...
..IN
1K STEPS.

3 REACHED LIMIT 2?
IF NOT.
i3 LOOP

#1400, (R1)

-y
240 ,R1

#3776.R2

R1,.LSTPG

-FIX THE STACK
SAVE FINAL PARG..

D% RESET IT TO BANK 6 (24K).

,;utnt KT OFF sdckkdkdkkdkkkkkkhkkhkkrkkk

;3 RECOVER SIZING RESULT.
:s R1 = LAST 1K PAGE (PAF).
;s R2 = LAST ADDR IN THAT PAGE.

R2. .LSTAD
RS, .MSIZE
MSIZE,-(sP)

i3 RETURN LAST PAGE (PAF)...
:3...LAST VIRTUAL ADDRESS...
:3...AND TOTAL MEMORY SIZE (K).
+; REPORT MEMORY SIZE

o KWMEM

; sMEMORY SIZE MESSAGE

. $CRLF

@22.,.ABUSW
1%

i sAFTER N.IMTI'TOAT. ARE WE SUPPORTING 22 BIT
i

iIYES, TYPE MESSAGE INDICATING 22 BIT ADDRESS
; sHOW ABOUT 18 BIT ADDRESSES?

: sNOPE, TYP$ MESSAGE INDICATING NO 22 BIT
’,.ll

3 RECOVER OUR STACK POINTER..
33...AND THE ERROR VECTORS.

..AND RETURN.

ARE SUPPORTED/
/KW OF ARBITER MEMORY INSTALLED/

F14

KXJ11-CA FUNCTIONAL TEST

16/18/22 BIT MEMORY SIZER

MACRO Y05.02

Thursday 03-Apr-86 14:11

SNIFFR:

;NOW FIND OUT HOW MANY AND WHAT ADDRESS THE IOPS ARE AT IN THE SYSTEM
T1STB

053734

283 233 I W 3a£3333d

001207

050770

TST

053766
001244

Page 173

SFSENVM
124

#5¢,9%4
#PR7,386
$DEVM
#4,R1
#6,R3

:SHOULD ME SIZE?

;SAVE VECTOR

ILOAD NXM TRAP HANDLER
:CLEAR THE DEVICE MAP

:LOAD $DEVM WITH VALUE IN Rl
:LOOP CONTROL

SIICEIWHITHANIDG'ONIHASITSINTERFACETOTFENJSDIS&BLED
‘LL SKIP OVER THOSE POSITIONS IN THE DEVICE DESCRIPTOR WORDS.

012737
012705
004737

000001
160100

6255 053502
6256 053
6257 053512
6238

012703
012705
004737

000010

{BASE ADDRESS FOR IOP ID# 2 OR OVER.

PC,1%

#10,R3

9175400RS

;BASE ADDRESS FOR IOP ID OF 8 AND OVER

:IS THE wITER T11 BASED
LSI11 BASED?
:IF NOT THEN SKIP THE NEXT FEW LINES
AS IT GETS HAIRY WITH MMU REGISTERS
IN F11 AND J11 ARBITERS. OCCUPYING
THE SAME I/0 ADDRESSES.
@8

T11$
104
L114
11%

IN E TABLE

626

050772

#1,34TSTLOC
#160100,R5

012737
012705
004737

001412

10%:

012703

il‘:
001244
053776

8%:

000131

000015
000116

001162
010000

125266

94%:

92,38TSTLOC
#162100,R5

PC,1#$

#10,R3

#177400,RS

PC,1$

®s

0353524

626§ 053530

593EggRgERAnaE u3d 4

6261

005737
001003
005737
001415

-l

6259 053516

6260 833522

053734

Rag

001412

;START OF DEVICE DESCRIPTOR WORDS

053464
6251
6252 053472
6232 053476

#$0DW2,R4

001256

012704

;BASE ADDRESS OF LOW RANGE IOPS

;BASE ADDRESS FOR IOP ID OF 8 AND OVER

;RESTORE VECTORS

'1S THERE AN TOP ID = 157
;GET CHARACTER

;IS RESPONSE YES?
;IS RESPONSE THE DEFAULT?

+IS RESPONSE NO

;ASK AGAIN
:SET BIT IN SWR

Gl4

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

16/18/22 BIT MEMORY SIZER
6290 053652
6291
6292
6293
6294 053654
6295
6296 053662
6297 053664
6298 053672

Thursday 03-Apr-86 14:11

000404

Page 174

:COMES HERE IN EITHER STANDALONE OR APT MODE
12¢:

BIT

BEQ
BIC
CLR
MOV
MOV
MOV
CLR
ROR
8CC
INC

7%:

6299 053676

6300 053704
6301 053710
6302 053714
6303 053720
6304 053722

15¢:
13s:

6305 053724
6306
6307 053730
6308 053732
309

14$:

SOB

RTS

#BIT12,3SWR

15%
$DDW15
#-1,39KG.
I0P
$DEVM,R1
#16. .R2
TOPCNT
R1
143
TOPCNT

#BIT1S, $DEVM

;IS IOP ID# 1S TO BE USED AS A
.. .KNOWN
GOOD DEVICE

u.emnwtoroevxcem

néCE DESCRIPTOR WORD

mxcner«mnmmpxsmesm
;LOAD
THE FINISHED DEVICE
MAP INTO R1
:INIT R2 AS A COUNTER
CLEAR THE IOP COUNTER
;ROTATE DEVICE MAP

:BRANCH IF LOW ORDER BIT WAS NOT SET
:%@ COUNTER IF LOW ORDER BIT

R2,13$

s SUBROUTINE
;CALLED BY SNIFFR
6314 053734
6315
053736

6316

3740

6317
6318 053744
2319 053;50

is:

18T

NOP
MOV

001412

001244
000002

(R5)

;IF TIME-OUT OCCURS THEN NO IOP AT

9TSTLOC, (R4)

;DATA IN WORD INDICATES IOP PRESENT

6
6330
053776
6331
63§§

:1=LOM RANGE ADDRESS,

2=HI Rm;e ADDRESS

:POINT TO NEXT IOP mu-: mv
;GET NEXT IOP ADDRESS

6323 053764
053766
6327 gg3770
6
3774

THIS ADDRESS

IN
'SET BIT IN DEVICE MAP

BIS
ADD
ASL
ADD

24:

;

;RETURN TO SNIFFR
R4)
#24,(SP)

053750

111

123

.ASCIZ

;ZERO BYTE INDICATES NO IOP AT ADDRESS
;PUT NEW RETURN ADDRESS ON STACK

<CRLF>#IS IOP ID #15 TO BE USED AS A KNOWN GOOD IOP? (Y/N) <Y>#

---------------------------------------------------------------

6333
054070
6334

'SAVE VECTORS ON THE STACK

054172
000
170000

000004

000001

050760

:LW( FOR

030760
170020

000001

imxcmre TIMEOUT
;V BIT SET

318 BIT QBUS
10%:
11%:

050756

ICATES

TIMEOUT
RESIDENT

iNO 18 BIT GBE

OBy
SEr TNDICATES TIMEOUT

122 BIT GBUS EXERCISER RESIDENT

H14

MACRO Y05.02

KXJ11-CA FUNCTIONAL TEST

16718722 BIT MEMORY SIZER
6347 054152
6348 054154
6349 054160
6350 054164
6351 054170

000402
005037
012637
012637
000207

050756
000006

Thursday 03-Apr-86 14:11

15%:
16%:

000004

BR
CLR
MOV
MOV

RTS

16¢
a%#@BE22
(SP)+ 286
'(’g)‘.fl‘

Page 175

:
;NO 22 BIT QBE

;RESTORE VECTORS

INTWTMERF(RTDENTNACCESSTOGBUSEXERCISER

000002

20$:

BIS

#81701,2(SP)

RTI

6369 054230
6370 054232
6371 054240
6372 054242
6373 054250
6374 054256
6375 054264
6376
6377 054272
6378 054274
6 379
6380 054302
6381
6382 054310
6383 054316
6384 054320
6
6386 054324

6 91 gz
6392 0543
6393 054360

6394

000026

050736

000022

050736

001600

050750

177600

050750

007600
050732
000040
000177

050750

054475

071027
010037

050754

6400 0

054420
054530
000340

uo§ 054475

070
116

5%:

050754

050750
050752
050754

#177600, $HILIM

MOV

#7600, $HILIM

ADD

SSLOWLIN

MOV

BIT

050754
050754

68:

BLO
CLR
TYPE
BR
MOV
SUB
MoV

MOV
MOV

7%
113
117

TYPE
TYPDS

SHMAMT:
NOSHMR:

;IS THIS AN 18 BIT SYSTEM?

;

ao.Ls’rPs.aiLou.m

ufi.uou.m

SOLOMLIM, $HILIM

050750

104401
000424
013737
163737
013701

3"3"

050752

396 854370

6401 g

15¢:

208:

10$
#18., .ABUSW
15¢
#1600, $HILIM
20$

#177,84LOMLIM

023737

005000

10$:

BEQ
CHP
BEQ
MOV
BR

BIC

050752

RETURN PSW TO INDICATE TIMEOUT OCCURRED.

;FIRST LET’S FIND OUT HOW MUCH SHARED MEMORY SPACE IS AVAILABLE
:ON THE Q@ BUS.
P
#22.,
. ABUSW
;IS THIS A 22 BIT SYSTEM?

BEQ
ADD

000177

103405
005037

050752

042737

050754
001163

6397
054374
376

050752
050752

;GOT HERE ON TIMEOUT. SET THE V BIT IN

54
$200, 30LOWLIM
6%
MAXBLK
NOSHMR
7%
$HILIM, MAXBLK
SLOWLIM, MAXBLK
MAXBLK,R1

Koo

RO, MAXBLK
MAXBLK, -(SP)
,$CRLF

;MOVE LAST PAGE TO LOWLIMO
:MAKE IT POINT TO FIRST NXM ADDR
;CHECK _AND MAKE SURE FIRST NXM
;PAGE IS A 8KB BOUNDRY.

;IF_NOT THEN MAKE IT THE NEXT HIGHER
;8KB BOUNDRY
;LOWLIM HOLDS THE FIRST NXM ADDRESS
;ON AN 8KB BOUNDARY
;MAKE SURE WE HAVE ENOUGH ROOM

;NO ROOM FOR SHARED MEMORY. CLEAR
;s MAXBLK
;CALCULATE THE AMOUNT OF
;
Q-BUS MEMORY SPACE USABLE

FOR SHARED MEMORY

IMAXIMUM NUMBER OF GBUS 8KB BLOCKS

iAVAILABLE FOR SHARED MEMORY.

IREPORT AMOUNT OF SHARED MEMORY

0ARB404 , 96404

MOV

9PR7, 30406

.ASCIZ

I&(BBLWKSNMWYSPACEAVAILMLE/

RTS

.ASCIZ

<CRLF>/NO ROOM FOR SHARED

114

KXJ11-CA FUNCTIONAL TEST

16718722 BIT MEMORY SIZER

MACRO Y05.02

6405
6406
6407
6408
6409 054530
6410 054534
6411 054536

Page 176

;THIS ROUTINE IS ENTERED WHEN THE K2 UNDER TEST SIGNALS THE ARBITER

;THAT IT IS READY TO ACCEPT THE DATA NEEDED TO CONFIGURE THE SHARED

000405
013737
005037

055300
055300

24429
§4%) 054672
034672 005237 055274
013760

013700

638274 000026

013760

055276

012701
077101
000002

000200

000030

000100
000100

3
=

000100

00200
162737
012737

83 3 33 3 £3® FPNYA3233333033R

]

.
sMEMORY

6413 034350

6432
6433 054676
6434 054702
6435
6436 054710
6437
6438 054716
6439 034722
6440 054724

Thursday 03-Apr-86 14:11

:SEE IF THIS IS THE FIRST TIME THRU

:(IT MAXTMUM WRITE VALUE
-

INIT
INIT REMAINING BLOCKS
INIT STARTING ADDRESS OF Q BUS NxM
SET UP VECTORS

;WHILE REMBLK ARE > 64

:SUBTRACT THE 64 BLOCKS TO BE TESTED
;INIT THE NUMBER OF BLOCKS OF
; QBUS MEMORY TO BE ALLOCATED

NBLKS

; INCREMENT NUMBER OF BLOCKS TO BE
;ALLOCATED
;GET BASE ADDRESS OF IOP BEING TESTED
;LOAD NUMBER OF BLOCKS TO BE SHARED

TOPADR, RO

NBLKS
, 26(R0)

;INTO K2 TPR11
:LOAD STARTING Q@ BUS ADDRESS INTO
;K2 TPR12; CAUSE INTERRUPT TO K2

@BSTRT, 30(R0)

3200.&1 ; dsbalet
L

; debnisl

ARB374:

000200
172346
055274
000200

077003
010137
162701
010137
012702

172350
000200
172354
055134

013746
012737
052737
052737
023727

000004
055072
000020
000001
055304

062702

000002

0057?%

6548 035064
6549 0;5066
2550 055070

005732
005732
000425

6552

062716

000002

013700
012760

052002
000001

000402
005732
000413

30%:

055276
172352

314%:

172516
177572

000001

374:

6556 055112

2§§a 055114
Gt
6559
O§§126
1

6562 055134

000002

000420

012716

:CALCULATE FIRST NXM AFTER SHARED
: . ..MEMORY
:LOOP CONTROL

:LAST SHARED MEMORY BLOCK

:SAVE VECTOR

4334, 904

020.80172516

;ENABLE 22 BIT ADDRESSES
;TURN ON MMV

FIéST.u

37
#2,R2

:SHOULD TIMEOUT
;HIGH NXM BOUNDARY SHOULD TIMEOUT

:SHOULD NOT TIME OUT
1]

;BUMP RETURN ADDRESS

33%:
344:
000010

e 000010

35%:

IOPADR,RO
#ARBER, 10(R0)
40%

IOPADR,RO
SARBER , 10(R0)

#4038,( §P)

055154

32%:

6322 8%%%36 iZOOOO
157776

;LAST NXM BEFORE SHARED MEMORY

077776

63565 055142
6

(}EIK THAT THE BOUNDARYS ARE BEING HONORED
@BSTRT,R1
;STARTING QBUS ADDRESS OF SHARED MEM

38%:

62:9 8?2832 012737 055114
055072

Page 177

HRITE THE SHARED MEMORY THAT HAS BEEN ALLOCATED TO THE QBUS

= wn

013701
010137
010103
162703
010337
013700
062701

6535 055002
6536 055006
6537 055014
6538 055022
6539 052830
6540 055036
6541 055040
6542 055044
6343 055046
6;:4 055050
g 5 055052

6553 055076
6554
6555 055100
055100
055104

Thursday 03-Rpr-86 14:11

6451 054726
6452
6521 054726
6522 054726
6523 054732
6524 054736
6525 054740
6526 054744
6527 054750
6528 054754
6
6530
054760
6531 054762
6532 054766
6533 054772
6534 054776

MACRO Y05.02

2333038 8330335y

16/18/32 BIT MEMORY SIZER

BISERI

J14

KXJ11-CA FUNCTIONAL TEST

77776

JSHARED MEMORY OUT OF BOUNDS

;tttt

SHARED MEMORY TIMED-OUT
;BAIL

11t

OUT AFTER ERROR

;LOW BOUNDARY NXM
;HIGH BOUNDARY NXM

FIRST SHARED MEM
157776 ;LAST SHARED MEM

6229 055144 012637 000004
6563 055150

000137

055164

36%:

6570 055154
6571 055160

012637
000137

000004
055234

408%:

{

RESTORE VEC

iBAIL OUT AFTER ERROR
e

h
’_—’———d

001012

055274
055274
055300

062737

5t o
&%S

6607 055302
6608 055304
6609 055306

055302

055276

000137

054530

000137

054672

013700
005060
005037
005000
012702
012701
010021
062700
077204
005037
005037
000002

052002
000010
177572

000007
172340
000200

002426
055304

NBLKS:
QBSTRT:
REMBLK
CURBLK

23737

FIRST:
MAX.WT:

Page 178

;NOW DETERMINE IF ALL BLOCKS HAVE BEEN TESTED. IF NOT THEN

;INITIALIZE THE VALUES NEEDED TO CONTINUE.
NBLKS, CURBLK

OCO0000

ARB400:

005737
001407

6600 05
6601 055272
660
660

Thursday 03-Apr-86 14:11

6574 055164
6575
6576
6577 055164
6578
6579 055172

MACRO Y05.02

SEE883330E02 3 3 & BatR 3

16/18/22 BIT MEMORY SIZER

§§§§5§

K14

KXJ11-CA FUNCTIONAL TEST

2%
NBLKS
REMBLK
25%

#20000,QBSTRT

;:DID WE TEST ALL THE BLOCKS IN THE
CURRENT 256KW SEGMENT?
;:CLEAR NUMBER OF BLOCKS TO BE ALLOCATED
;HAVE ALL BLOCKS BEEN TESTED?

:IF_YES THEN BAIL OUT
;ELSE
.GETPEXTSTARTIN;MADDRESS
OF NEXT
64 4KW BLOCKS
DOITAGAIN

;SIGNAL K2 THAT TEST IS DONE

;MMU_OFF

:INIT RO

:SET_UP FOR COUNT
;INIT R1

:INIT KIPARS

;POINT TO NEXT PAGE
;LOOP CONTROL

:DG{ WITH TEST

L14

KXJ11-CA FUNCTIONAL TEST

16718722 BIT MEMORY SIZER

MACRO Y05.02

6611

6612 055310
6613
6614 055310
6615 055314
6616 055316

Thursday 03-Apr-86 14:11

SHOSYS:

sNOW SHOM THE SYSTEM IOPS ON THE ARBITER'S CONSOLE

055510
050742

;s'}a
MOV
MOV
MOV
MOV
MOV

9asENVM
:SHOULD WE SIZE?
23DDM2. R4
;POINT TO FIRST IOP TABLE ENTRY
#6,R2
:LOOP CONTROL
#2000,38TSTLOC :BIT SET FOR HI RANGE
#160100, 224
:BASE ADDRESS OF IOPS
#2,10P.1D
:FIRST IOP ID NUMBER
PC.40$%

000010
175400
055430

055510

MOV
MOV

#8. ,R2
£175400, 224

;LOOP CONTROL
:BASE ADDRESS OF IOPS WITH ID# 8 OR OVER

000001

050760

ghmm

;IS THERE AN 18 BIT QBE IN THE SYSTEM

050756

31%:

TYPE
TYPE
%

.32
.35%
%smz

;IS THERE A 22 BIT QBE IN THE SYSTEM?

33%:

RTS

344

001207
001256

160100

000002

055430

055536
055551
000001

001412

055544

JSR

40%:

055510

001412

055510

(R4)

;

:h(m

;WHAT IS THE ADDRESS RANGE

g%s

;agsnoc.zzs

:SET HI RANGE FOR PRINT OUT

41%:

BIC

@8TSTLOC,22¢

;SET LO RANGE FOR PRINT OUT

18:

TYPE
MOV
TYPDS

74
ioP.1D,-(SP)

TYPE
MOV
LMORD
TYPOC
ADD
INC
ADD
sga

124
(PC)+,-(SP)

#2,R4
10P.1D
940,224
R2,40$

,ASCIZ
.ASCII
ASCIZ

<CR><LF>/18 /
<CR><LF>/22 /
/BIT QBUS EXERCISER RESIDENT/

ASCIZ

7/ IS A ‘/:A -

3%:
22%:
30%:

IYPE
TYPE

RTS

.ASC

666g 055641

30$

055620

033641

TYPE

fl"

001412

055605
050742

PC,40%

BEQ

000001

2224 055627

Page 179

.8%
,10%

;IF ZERO THEN NO IOP PRESENT

;TYPE IOP ID NUMBER
;INDICATE A KXJ11-CA

;TYPE IOP ADDRESS
;ADVANCE TABLE POINTER
iADD 1 TO I0P ID NUMBER
:POINT NEXT IOP ADDRESS

<CR><LF>/I0P ID# /

‘AT oA S
.

"ASCIZ

\ASCIZ

¥4

7 AT ADDRESS
/

7 IS PRESENT BUT NOT AVAILABLE/

m‘— T

Se———

M14

KXJ11-CA FUNCTIONAL TEST

16/18/22 BIT MEMORY SIZER

MACRO Y05.02

Thursday 03-Apr-86 14:11

6668

6669
6670 055656
6671 055662
6672 055666
6673 055672
6674 055676
6675 055702
6676 055706
6677 055712
6678 055716
6679 055722
6680 055726

6681 055732
6682 055736
6683 055742
6684
6685 055746
6686 055750
6687 055752
6688
6689 055756
6690 055760
6691 055764
6692 055770
6693 055774

6694 038000

6695 056002
6696 056006
6697

6698 056012
6699
6700 O

6702 832858
6730

Page 180

.EVEN

104417
104417
104417
104417
104417
104417
104417
104417
104417
104417
104417
104417
104417
104417

160100

10PV02:
10PV03:
I0PVO4:
I0PV0S:
I0PV06:
I0PVO7:
I0PVOB:
I0PV09:
I0PV10:
T0PV11:
I0PV12:
I0PV13:
T0PV14:
I0PV1S:

I0P$$T: MOV

010146
010046
017601
010100
072027
042700

062700
132710
001002
052701
016100

MOV
MOV
MOV
ASH
BIC
ADD
gga

177774
177741
001252
000001
002000
000012

032700
001004
062700
004770
005061

056044
000000
000010

012601
022626
000002
056464

056056

012600

IOP$TR,160100
IOPS$TR.160140
IOP$TR. 160200
IOP$TR. 150240
IOP$TR.160300
IOP$TR.160340
IOP$TR.175400
IOP$TR.175440
IOP$TR.175500
IOP$TR.175540
IOP$TR.175600
IOP$TR.175640
IOP$TR.175700
IOP$TR.175740

1%:

000001

208:

056150

25$:

BIS

R1,-(SP)

;SAVE GPRS

RO.-{5P)
aalsP).m1
R1,R0O
#-4,R0
#1C36,R0
#$0DWO., RO
gnoo (RO)

;
:GET LOW RANGE ADDRESS OF TPRO FROM

#2000,R1

;B00ST IT UP TO HIGH RANGE

; INTERRUPTING I0P.

:DETERMINE WHICH IOP INTERRUPTED
:MASK OFF BITS <4:1>

;GET DESCRIPTOR WORD
: IS THE IOP IN THE HIGH RANGE?

MOV
BIT
BNE
ADD
JSR
CLR
MOV
MOV
%11’

12(R1)
#1,R0
204
$254 ,R0
PC,a(RO
10(R1)
tspgo.
(5P)+.R1
(5P)+,(

;GO FIND OUT WHAT IT WANTS TO DO
; FROM THE DATA IN TPRS
;MAKE SURE ITS NOT ODD
;w OH, ITS ooo;BAIL OUT
POINTSTO THE ROUTINE
iINFORM K2 THAT WE ARE DONE
;RESTORE REGISTERS
;FAKE A RETURN FROM TRAP

.WORD

NOTST, WT.LCK, TST.ST, ARBTPR, Q$HIT

:TEST THAT SHARED MEMORY CAN BE ACCESSED FROM THE QBUS USING THE LOCK
; INSTRUCTIONS
:

013746
010046
8&0146

172352

052737
005000
012702

000001

01;701
007322
700
077104

010000

WT.LCK: MOV
MOV

013 ;37 050752 172352

7e
8754 0381%e

120000

‘

177572

SOKIPARS, no.-gsv)

;SAVE VALUE IN KIPARS
:SAVE REGISTERS

uujn

:POINTO SHARED MEMORY

MOV
m

.2"’ ’

BIS

21, 30RO

:TURN
ON MMU

" INITIALIZE RO

sINIT 40%9.00( OF smn'ég MEMORY WITH PATTERN 000000 TO 007776
18:

LMORD

ADD
S0B

m“-.

‘

#2,R0
R1.1

;
;LOOP CONTROL

7322

;##4TEST WRTLCK INSTRUCTION

—‘_——

N14

KXJ11-CA FUNCTIONAL TEST

16718/22 BIT MEMORY SIZER
6725 056126

6726 056134
6727 056136
6728 056140
6729 056142
2;3(1) 056146

6732

6733 056150

6734 056154

042737

012602
012601
012600
012637
000207
013746

010046

000001

MACRO Y05.02

Thursday 03-Apr-86 14:11

177572

BIC

MOV
MOV
MOV
MOV
RTS

172352

012701
012702

#1,9%#MR0

TST.ST: MOV

MOV

MOV
MOV
MOV
BIS

010000
120000

MOV
MOV

181

;OFF THE MU

(SP)..R2
(SP)+,.R1
(SP)+,.RO
(SP)+ ,3#KIPARS
PC

3
:
H
;RESTORE KIPARS

;NOW TEST THE TSTSET LOCK INSTRUCTION

172352

6735 056156 010146
6736 056160 010246
6737 056162 013737 050752 172352
6738 056170 052737 000001 177572

6739 056176
2;:(1) 056202

Page

I#KIPARS, -(SP)

RO, -(SP)

;SAVE VALUE IN KIPARS

;SAVE REGISTERS

R1.-(SP)
R2.,-(SP)
LOWLIM, 3#KIPARS
#1, 38RO

;POINT TO SHARED MEMORY

STURN ON MMU

#4096. .R1
#120000,R2

H
:

6742
6743

;WRITE AN INCREMENTING PATTERN TO SHARED MEMORY STARTING
;AT VIRTUAL LOACTION 120000 WHICH IS INITIALIZED WITH THE

6745

;000000 FROM VA 120000, IT WILL THEN OR THE LSB =1 AND

6744

:VALUE 120000. THE TSTSET INSTRUCTION WILL READ THE VALUE

6746
g;g
6749 056206

6750 056210
6751
056212
67
220
6753 056222
67
24
6755 056226
g; 086232
6758 056234
6759

;WRITE IT BACK OUT. THE RESULT WILL BE THAT THE DATA IN
;EACH VIRTUAL ADDRESS = ITSELF +1
007222

077102
042737 000001
012602
012601
012600
012637 172352
000207

177572

ARBTPR:

6760
056234
676
240
6762 056244
6763 0

013746
013746
012737
012737

000110
000112
056272 000110
000340 000112

6765 0

06427

000000

6764

6766 056264

005711

6767 °§2§9‘ 001376

2'7163
VORET: Wa—
2_7'32 056272 022626

677 m 012637 000112

677
012637 000110
g;;g 056304 000207
6776 056306
6777

6778 056306
6779 056310
6780 056312
6781
056316

010046
010146
013746 000004
013746 000006

JMORD

508
BIC
MOV
MOV
MOV
MOV
RTS

7222

R1,4$
#1,3#MMMRO
(SP)+,R2
(5P)+.R1
(SP)+.RO
(SP)+ . 88KIPARS
PC

s#a%+TEST TSTSET INSTRUCTION

;LOOP CONTROL
;
;
;

;OFF THE MMU

;RESTORE KIPARS

;LOOP ON READING TPRO UNTIL IT TURNS TO ZERO. THE LOCAL J11
:MILL ALSO BE ACCESSING THE TPR FILE, MAKING SURE NO NXMS OCCUR

MOV
MOV
MOV
MOV

80110, -(SP)
80112, -(5P)
924 ,98110
#340, 98112

MTPS

€0

BNE

)

;SAVE VECTOR
;NEW HANDLER

;R1 POINTS TO TPRO OF THE KXJ11 UNDER TEST
1$:

(R1)

;LOMER INTERRUPT LEVEL
;IS R1 ZERO YET?

COMES vg'hs on.vsir KXJ11 UNDER ’r's's'?T
RE AZEFAILUWE AND INTERRUPTS VIA 110
ém OP (SIS
FIX Hack
i3

MOV

Q$HIT:

;THIS ROUTINE WILL KEEP ON ACCESSING THE SHARED MEMORY CAUSING Q HITS
:ON THE xx.u%-cn.

MOV
RTS
MOV
MOV
MOV
MOV

(SP)+, 90112

(SP)+. 98110
PC
RO,-(SP)
R1,-(5P)
204, -(SP)
806, -(5P)

;AND VECTORS
;

;SAVE REGISTERS
;SAVE NXM VECTOR
;

e
i L

12 056464
681
2314

000207

I
7

NOTST:

RTS

#40000,3I0PADR ~ ;RESET THE IOP UNDER TEST
HALT ssssasssss

K2 INTERRUPTS ARBITER AFTER TESTING IS DONE

89KIPARS

;ALTER RETURN ADDRESS
;FIX UP STACK AFTER INTERRUPT
; RESTORE IT ALL

:RESTNE VECTORS
» 30RO

;TURN OFF MU

056474

KG$T04:

KG$T0S:
KG$TO06:

100140

<Sifl!fl‘|> <CTC‘TM!MLV>
KG$T07:

S
3

000030

TRANSFER FROM KNOWN GOOD IOP TO SHARED MEMORY

<m:u&:msm»
.WORD

L
B

030000

RTS

G oo

f?
8

177572

000001

042737
000207

036435 01
012600

8808

6809
ig 0

34:

000110
000006
000004

012637 172352
Oigess

g
;

012637
012637
012637

§ 036430

680 822:
6804
6805
6806

2%:

056430

012716

:
;

6801 056422

6799
6800 056422

173362

040000

;

012777

12
20

64:

6797
6798

6795 056412
679%

5%:

077%(7)2
000

14:

6793
6794

172352
177572

-«

050752
000001
000000

s
SPR7,306

013737
052737
106427

;SAVE VECTOR

SOKIPARS, -(SP)

5 2:

6787 056354
6788 056362
6789 056370

000110

Page 182

89110, -(SP)

b
w

000110
172352
056422

013746
013746
012737

S 838
L gl

6782 056322
6783 056
6784 056

Thursday 03-Apr-86 14:11

MACRO Y05.02

16/18/22 BIT MEMORY

738383373 #2x ’§2§§§%§§§§§§

B15

KXJ11-CA FUNCTIONAL T

000160

sSHARED MEMORY SEGMENT

<w'zu'>. 30006

<SWRQ'HM>
, <TRWM ! INTLVIFLIP>

C15

KXJ11-CA FUNCTIONAL TEST

MACRC Y05.02

Q-BUS INTERRUPT (QIR) SERVICE ROUTINES

Thursday 03-Apr-86 14:11

.SBTTL

6836
6837

Q-BUS INTERRUPT (QIR) SERVICE ROUTINES

* NOTE:

THE Q-BUS INTERRUPT SERVICE ROUTINES HAVE BEEN REVISED TO

COMPARE THE STACK POINTER MITH 1100. IF THE STACK POINTER
IS
HIGHER
THAN 1100, WE ASSUME APT IS IN THE LOAD PROCESS AND THE

*
+

EE 222222 2 2 22 22 22 2222 22 2 s

WE
W

6854

540

6856
056544
6857
056550
6838
056554
6859 056562
70

5
6853 056534

020627

101044

1
013746
013746

012737
012737

QREQ2:

001100

056572

000004

i G o

000002

056602
6867 056606
056612

000036

000404

013700
005160
000240

é‘ggs
056614 012637
70
012637
7

012600

74 056630

020627

;

00040

75 056634

101006

36 50000;

gg 056642
Oga‘b

056650

000340

000006

6891

6892

1%:

001100

7 001100

1. (QIRV)

-- DO NOTHING, JUST DISMISS.

3. (QIRV2) -- WRITE LAST WORD IN NON-ARBITER DUAL-PORT-RAMCS).

CMP

BHI
MOV
MOV
MOV
MOV
MOV
BR
BIS

RTI

SP, #1100

OFF
RO, -(SP)
3%4,-(SP)
396, -(SP)
815,904
9340, 3%
43
#2,2(SP)

; IS APT LOADING? (SP GREATER THAN 1100?)

; IF SO, DON'T DO THIS
: SAVE RO.
: SAVE ERROR VECTOR...
;...CHANGE IT...
;...AND SKIP NEXT 2
; ON BUS-ERROR
e,

:...AND oxsrusé

%
MOV
MOV
BR

36(R0)
(SP)+,396
(SP)+.RO
SAYYES

IOPADR, RO

; LAST DPR WORD INDEX.

QREQL:

BHI

CMP

SP,

RESET
BR

OFFSBC

SAYYES

: IF 50

CMP

SP,

SAYYES

i IF SO, SEND BREAK T0 I0P.

OFFSBC:

MOV

BHI

#1100

OFFSBC

RTI

; DPR<15> CPU
; RESTORE ERROR VECTOR.
; RESTORE RO.
; SEND 'Y OVER SERIAL LINE AND DISMISS. ;FX8JC
1S APT LDADDB?

(

Beeax0 106

TER THAN 11002)

; BUS
: SEND 'Y OVER SERIAL LINE AND DISMISS. ;FX8JC
IS APT LOADING?

(SP GREATER THAN 11007)

; SEND 'Y OVER SERIAL LINE AND DISMISS. ;FX8JC
; DISMISS INTERRUPT.

010146

SAYYES: MOV

R1,-(SP)

1057%
1003

18:

mui

: MAIT FOR READY.

o'v 6(R1)

i SEND A 'Y FOR “YES, I DID IT*.

112761

012601

T Ty

2. (QIRV1) -- EXECUTE BUS-RESET AND DISMISS.

28:
3$:

QREQ:

101001

56 013%01 056730
76

} ACCESS (READ-MOD-WRITE) WORD 15 IN Q-BUS DPR WINDOW.

} BB oo
6003

THESE ROUTINES ARE EXECUTED IN THE ARBITER PROCESSOR
IN RESPONSE TO ANY OF THREE Q-REQUESTS:

BE B

Page 183

000131

000006

MOV

g‘r.a

MOV
RTI

SLU2,R1

(SP)+.R1

SAVE R1.

| POINT TO SECOND SERIAL LINE.

: RESTORE R1.

; AND DISMISS INTERRUPT.

sFX8JC

PEXBUC

:;%

sFX8JC

M‘—

D15

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

REMOTE LOADER AND VIRTUAL TERMINAL (Vv4.0).

(MACRO-0ODT IN T11) AND MUST HAVE AT LEAST 16KW RAM AT ABSOLUTE 0.

T TP

TARGET MACHINE MUST BE CAPABLE OF EXECUTING IT'S OMN MTCRO-CDT
e

REMOTE: BR

MOV

BIC

000004
000004

BIS

176500
176520
176530
176540
176550
176560
176570
176600
176610
176620

LOAD

; NOP TO ENABLE SPEED CHANGER.

SPOMSK,4(RO)

; #+x IF SPEED PROGRAMMABLE

SLU2,.RO

SPDSET,4(R0)

LOAD

176500
O

176510

744

056746
0567
6926 0567
6927 056754
7
6928
0567
6929
6930
056762
6931
69
764
6933
056766

176630

; #%% SET SPEED = 9600 (OR AS NEEDED).
; 177560 =
; DEFAULT SLU2

; 176500 = MXV1l1 PORT 1..DLV11-J PORT 0
; 176510 = DLV11-J PORT i
; 176520 = DLV11-J PORT 2
;
5
:
;
;
;
;
;
3

i...175610 = DLV11-E,
; PBR BIT MASK (IF

SPDMSK: 177400

SPDSET: 164000

OR F OR WHATEVER,
DC319 DLART, U 72;

: SET PBR 9600 (IF DC319 DLART. UE 52

IN ORDER TO DISTINGUISH
séc
HALT (aa) FROM MASTER HALT (a).
000

057012
7014

2 G
{88 e
2 et

; k%

WHEN ECHOING 0DT'S

004
057006

e
TP

056742

69
69
69

USP CHANGED FROM BUFR2 TO 1100 TO PREVENT TOTAL WIPE-QUT
OF PROGRAM
WHEN STACK RUNS AWAY. JEANELL CUNNINGHAM, 30 APRIL 1984.

SLUL:
177560
SLU2:
.MORD
SLUADR: .MORD

g&
6951 832740

6944
29‘5

WDESTOLMTOHDMATMT&-HCPU

056730
056764
056766

6918 056732

694

T T

; ENTRY FROM 200G (AUTO-START UNDER XXDP OR APT).

6917 832758

6
6943

USP=1100

6916

6924
6925

69 4 056724

6922

REMOTE LOADER AND VIRTUAL TERMINAL (Vv4.0).

6903
6904
6905
6906
6907
6908
6909
6910 056702
6911 056704
6912 056710
6913 056716

695

Page 184

.SBTTL
W

6895
6896
6897
6898
6899
6900
6901
6902

Thursday 03-Apr-86 14:11

MTPS

#USP, SP

000032

BCC
%

4%
gg.osz

057774

&&L

lil"“

CMPB
BNE

RO, #'8
34

CALL

TTYOUT

001100
000000
057672

INK:
1$

000100

2%:

057646
057646
057702

38:

as:

MOV

CALL

TTYOUT

TTYIN

10 89,

3 RESET

STACK POINTER.

; LOMER EPU
; SBC'So
' sm

COMMAND <t2> 27

LR
;...ELSE, UPDATE ARBITERS COPY.

; SBC'S ODT PROMPT 27
; SKIP IF NOT...

;...ELSE, ECHO IT TWICE (83).

sFX8JC

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

REMOTE LOADER AND VIRTUAL TERMINAL (V4.0).

6952
057044 103355
6953 057046 120027 000033

6954 057052
6955 057054
6956 057060
6957 057062
6958 057066

001003
004737
000747
004737
000744

057522

057636

5%:

Thursday 03-Apr-86 18:11

8CC
cHPB
BNE
CALL
BR
CALL
BR

1%
RO, #33
5%
BRK
1%
SBCouT
is

Psge

185

: <ESC> 2?2
; SKIP IF NOT...
;...ELSE, SEND BREAK (SBC HALT).
; LOOP FOREVER.

F15

REMOTE LOADER AND VIRTUAL TERMINAL (V4.0).
KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

6960
2961

Page

186

.WELM--SETWHENBITERWGETINTWHITH“ESBC

6963 057070
6964 057074
6965 057102
6966 057104
6967 057112
6968 057120
g%g 057126

106427
027727
001406
012737
012737
012737
012737

000340
121000

000002

002542
000300
043002
000340

000100
000102
000034
000036

6971 057134

012706

001100

6973 057144
6974 057150
6975 057154
23?,‘-,‘ 057160

004737
004737
004737
004737

057522
057736
060264
060242

6972 057140

aall

Thursday 03-Apr-86 14:11

104401

6978

LON)

1%:

MTPS
cP
BEQ
MOV
MOV
MOV
MOV

RELOAD: MOV

TYPE

CALL
CALL
CALL
CALL

#PR7
3100,4RTI
1$
#DISMISS,a#100
#300,3#102
#5TRAP, 9434
#340,3%36

; RAISE CPU.
; BEVNT DISMISSED ??
;s SKIP IF SO.
; NO, SET TO DISMISS..
3. AT PRI 6.
H SET TRAP VECTOR..
;...FOR SYSMAC "TYPE" CALLS.

#USP, SP

; RESET STACK POINTER.

BRK
WAITOO
SETPSW
SETREGS

: BREAK TO THE SBC...
;...AND WAIT FOR HIS 3.
: RAISE PSW.
: SET MMU AND MAP-RAM OFF.

LHAIT1

$ NET..."

; OK, LOAD AND START THE mes LOADER VIA SBC'S ODT.
;

2331

m§ 057164 012746 077416

ADDR

6984 057170 012746 060550
6985 057174 012746 000125

MOV

MOV
MOV

057
016602
004737 057406
6988 057210
7
6989 057212 017602

1%:

MOV
CALL
BR
MOV

mi 057230

24:

CALL

6987 057204

6990 057216 062766 000002 000002
6991 057224 004737 057414
004737

057744

0572 005316

s832433

%8036

6997
057242
6998 057246

004737
004737

6999 057252 022626

<SP>

<LF>

; WHICH YIELDS AN EFFECTIVE LOAD RATE OF 45. WORDS/SEC AT 9600 BAUD.

ADD
CALL

DEC
057422
057736

#SLSTRT,-(SP)

; PUSH TARGET LOCAL smmm ADDRESS. .

4(SP),R2
OPNADR
23
aecsp

; TARGET ADDRESS => R2

WAIT40

#$LOAD,-CSP)
@$LSIZE,-(SP)

: XMIT ADDRESS<SLASH>

; NEXT DATA WORD => R2.

sfi)
DA
f

i...AND BUMP POINTER.
: XMIT DATA<LF>.

(SP)

; BUMP WORD COUNT...

&P-LR

'1‘3

CALL
CALL

DATACR
WAITOO

;...LOADER SOURCE ADDRESS..
;...AND WORD COUNT.

: WAIT FOR <SP> AFTER EACH..
:...ADDRESS IS OPENED IN THE SBC
:...AND

(SP)+,(SP)+

LOOP 'TIL ALL WORDS GONE.

; TERMINATE DATA SEQ WITH <CR>..
:...AND WAIT FOR ODT READY.

; OK, DISCARD WC AND SRC POINTER.

7000 O 7532 012602
7001 057
004737 060276
700;
700

MOV
(SP)+.R2
; POP TARGET LOCAL START ADDR => R2...
CALL
:...SET
HIS PC =
(R2)...
3 kkdkkkkkkdkkkkkkkkbkhkkhkhkkkkkhkkkhkkikkkkkkkkkkhhkhbkhkhkhhkkkkkkokkkkkkkk
:msemm:swnenromvn.msmxmmmsscwmsmm

7006 057262 012702

7007 057266

7“‘

004737

001100
060

7009 057272 012700 000120

7010 osvgg
;8i1 057

7ox§

;8%;

004737
004737

; PROCEED COMMAND.

CALL

7016 057306 004737 057672

#USP,R2
SETSP

; PUT USP INTO R2 TO SEND TO SBC
: ... SET SBC SP T0 (R2)

3 kkkkkkkkgkkkkkkgkkhkkbkhkkhkikikhhkkhkibkhhkhhbhhkshkhkhkhkkhkkhkbhis
bbbk hhhhb ks

MOV

057636
057752

MOV

JEANELL CUNNINGHAM, 7-JUN-84

CALL

¢'P,RO

;...AND XMIT THE PCROCEED)

WAITP

; WAIT FOR PCROCEED) ECHO.

SBCOUT

: NOW, THE TARGET MACHINE IS EXECUTING THE IMAGE LOADER.
H

+ IF KXT, HE'LL TRY A DMA LOAD FIRST.

is.

CALL

SBCIN

; MAIT FOR SOMETHING TO HAPPEN.

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

REMOTE LOADER AND VIRTUAL TERMINAL (V4.0).

7017 057312
7018 057314
7019 057320
7020 057322
7021 057326
7022 057330
;gz 057332
7025 057334
7026 057336

103375
120027
001426
120027
001402
000000
000700
005003
005002

7028 057342

004737

7027 057340

112200

000033
000034

43
057636

7029 057346
7030 057350
7031 057354
7032 057356

005203
032703 003777
001002
104401 060444

7034 057366
7035 057370

7038 057376

7033 057362 020227 051507
101764
004737

68:

057672

7%:

104401

060450

8s:

;339 057374 103375

7039 057402 000137 056770
7041
7042
7043

;g:g

Thursday 03-Apr-86 14:11

BCC
O%8
BEQ
CPB
BEQ
HALT
BR
CLR
CLR

38
8%
RO,234
4
RELOAD
R3
R2

CALL

sBcouft

MOVB

RO,#33

(R2)+,RO

Page 187

; IF <33> DMA LOAD WAS SUCCESSFWL...

:...SAY SO AND GET OUT.
: IF <34> DMA FAILED OR NOT SUPPORTED...
:...START A SERIAL LOAD.
:
W-T-F 319
; INIT 1KW MARKER...
:...AND ADDRESS POINTER.
; XFER A BYTE.

INC
BIT
BNE
TYPE

R3
#3777,R3
6%
KMARK

BLOS
CALL

5%
SBCIN

; LOOP 'TIL DONE.
: WAIT FOR DONE ACKNOMWLEDGE <34>.

,LOADED

;

cMP

BCC

TYPE

R2,8LASTAD+1

: BUMP WORD COUNT.
: 1KW DONE 27
: SKIP IF NOT.
; ELSE, MARK IT.

"SBC LOADED"

M
LINK
: ENTER LINK MODE.
H
; SUBROUTINE TO TRANSMIT ASCII ADDRESS AND/OR DATA FROM R2.
;
XMIT ADDR<SLASH> TO OPEN ADDRESS FOR INPUT.
;
XMIT DATA<LF> TO STORE DATA, AND OPEN NEXT ADDRESS.
;

OPNADR: MOV

#'/,-(SP)

; TERMINATE WITH SLASH...

7048 057414

012746

000012

DATALF: MOV

#12,-(SP)

: .. .LINE FEED...

7050

012746

000015

DATACR: MOV

#15,-(SP)

7049 057420 000402
057422

7051 0 'ugg
7052
057432
7
83"
7
7
7587444
70
7
7057

057450

012703 000006
012704 000001
000402
012704 000003
005001
006302
006101

402
402

1%:

28:

ogug 077403

7061 057462
?

7063

7064

7466

057472
057474

004737

103375

057636

057672

7069

037310 O1ses0

7070 057514

004737

;g;x 057520 000207
707

057636

ROL

ADD
MOV
38

7&2 og;gg 001404
7066
O
104401 060526
7067 05
000137 057134

MOV
MOV
402
MOV
CLR
ASL

S0B

7059
057454
062701 000060
7060 057460 oxo%oo

“

CALL

foirkiens
i

...RETURN,

96,R3
#1.R4

; IN ANY CASE, XMIT 6 DIGITS..
:...THE MSD BEING JUST 1 BIT..

#3,R4
Rl
R2
Rl
R4,24

:...AND 3 BITS EACH FOR THE REST..
; ASSEMBLE IN RI1.

sBtour

; XMIT NEXT CHAR.

#'0,R1
R1,R0

BCC
CP8
BEQ
TYPE
JMP

38
43
EXOERR
RELOAD

CALL

sBcout

b OB,

RO.R1

e
*

; ROTATE DTGIT TO R1<2:0>...
:...MAKE ASCII.

; ECHO CORRECT 7?

; BR IF SO,
; ELSE, "ASCII ECHO ERROR”..
:...AND RETRY.
H

XMIT TERMINATOR

RETURN
; AND RETURN.
; SUBROUTINE
TO SEND "BREAK" TO THE SBC.
H

XMIT DATA<CR> TO CLOSE WORD AND TERMINATE DATA SEQUENCE.

7046 057406 012746 000057
7047 057412 000402

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

Thursday 03-Apr-86 14:11

REMOTE LOADER AND VIRTUAL TERMINAL (V4.0).
.

7074

7075 057522 010546
7076 057524 013705 056730
7077 057530

116500

000002

112765

000060

BRK:

7078 057534 052765 000001 000004

7079 057542

7080 057550

105765

7082 057556
7083 057564

112765
105765

7086 057574
7087 057576
7088 057600

105715
100412
077103

7081 057554 100375

7084 057570 100375
7085 057572 005001

7097 057602
7098 057606
7099 057614
7100 057616

7101 057624

000004

000060
000004

000006

1%:

104401 060514
026627 000002 057070
103403
012766 057134 000002
042765

7102 057632 012605

000001

000004

;SAVE OLD RS VALUE ON STACK

;HEBOS

#1,4(RS5)

: SET "BREAK"...

; DUMMY READ (CLEAR RECEIVER).

sFX9JC

1STB

4(RS)

: TRANSMIT TWO CHARACTERS FOR TIMING.

: WAIT FOR READY.

:FX8JC

MOVB
T1STB

#'0,6(RS)
4(RS)

;

{FXBUC

#'0,6(R5)

114

223
R1

TYPE
cHP
BLO
MOV

HUNG
2(SP),#L0AD
34
SRELOAD,2(SP)

BIC

MOV

%83 057634 000207

2(R5),RO

BPL
CLR

TSTB
BMI
SOB

3$:

188

RS, -(SP)
SLU2,RS

BPL

226:

MOV
MOV
MOVB
BIS
MOVB

11:

RETURN

(RS)
3%
R1,1$

#1,4(R5)

(SP)+,R5

: SEND SECOND.
: WAIT FOR READY.

{FX8UC
sFX8JC

:
: WAIT VALUE

sFXBUC
sFXC

s \
:
>...AND WAIT FOR A RESPONSE.
s 4

: NO LUCK, TELL THE MAN !°
: CALLED FROM LOAD 2?
: JUST RETURN IF NOT...
;...ELSE, RETRY.
: ENSURE "BREAK" IS OFF.

;RESTORE RS

; sHEBO8

;igg

: CHARACTER OUTPUT TO TARGET SBC OR TTY:.

7107 057636 010546
7108 057640 013705 056730

SBCOUT: MOV
MOV

RS, -(SP)
SLU2,R5

:SAVE OLD RS VALUE

;HEBO8

7110 057646 010546
7111 057650 013705 056726

TTYOUT: MOV
MOV

RS, -(SP)
SLU1

;SAVE OLD RS VALUE

;HEBO8

7109 057644 000403

mg 057654

105765

7113 057660 100375
7114 057662 110065
7115 057
012605
-Hi? 057670 000207

000004

TTYZ:

T1STB

1TYZ

;HEB08

; CHARACTER INPUT FROM TARGET SBC OR KBD:.

7150 057672 010546

ésCIN: MOV

RS,-(SP)

?n
;'rgg 010
7154 0837704
013;3‘5. 056726

TTYIN MOV
%v

gfl(sr)
SLU1,RS

7{5 ogvgn 013705 056730

7710

105715

18 gt
057734

omo§
000207

;i
739 057736 012746 000100
7138 057742

MOV

TIYX:

;i 0 7;5 3‘020330 177600
7

; OUTPUT FROM RO...

;...RESTORE RS...
:...AND RETURN.

;ixg

7133

4(R5)

BPL
T1YZ
MOVE
RO,6(RS)
MOV
(SP).,
RETURN

000006

FX8UC

18:

1ST8

SLU2,RS

;SAVE OLD RS ON STACK

(RS)

B
1o
aég
#tC177,R0

;...smxgé..

RETURN

:...AND RETURN.

MOV

;HEBOB

(SP)+.RS

H
3

402

I ek SET O RBRSO RETURN B
H

.-.o
;RE fls sSTACK

'oc.

: SUBROUTINES TO WAIT FOR SPECIFIC RESPONSE FROM SBC.
WAITOO: MOV
#'8,-(SP)
; MAIT FOR ODT PROMPT <100>.
H

HEB08

;HEB08

115

| REMOTE LOADER AND VIRTUAL TERMINAL (V4.0).
KXJ11-CA FUNCTIONAL TESTM

7139 057744

7140 057750

7141 057752

7142 057756

000402

012746

004737

7143 057762 103375
7144 057764
120016
7145 057766 001373

7146 057770

Thursday 03-

for

-86 14:11

189

000040

WAIT40: MOV

#40,-(SP)

: WAIT FOR SPACE CHAR <040>.

000120

WAITP:

MOV

#'P,-(SP)

; WAIT FOR P(ROCEED) ECHO <120>.

BCC
CMPB
BNE

RO.(SP)

057672

1%:

005726

2%:

:m; 057772 000207
7149

402

CALL

RETURN

SBCIN

1%
13

(SP)+

: SUBROUTINE TO UPDATE ARBITERS COPY OF THE APT MAILBOX.

éfif

; CALLED IN LINK MODE IF/MHEN <tZ> IS RECEIVED
FROM SBC.

7152

;g}

;

7155 057774 010546

7156 057776
7157 060002
7158 060006
7159 060010
7160 060016
7161 060022
7162 060026
7163 060032
7164 060034
7165 060036

716

7167

013705
105765
100372
112765
012700
012701
005037
005002

UPAMB:

056730
000004

000032

060214
000021
060240

000006

1%:

105715
100402

060040 077203
060042

000451

7168 060044 016502 000002

34:

UPAMB REVISED FOR KXTFX9 TO INCORPORATED CHECKSUMS

MOV

RS, -(SP)

;SAVE RS

1ST8

(RS)
34

: WAIT FOR A BYTE ...
;

MOV
TSTE
BPL
MOVB
MOV
MOV
CLR
CLR

SLU2,RS
4(RS)
UPAMB
#32,6(RS)
#TMPMAI,RO
#17. ,R1
UPERR
R2

S0B

R2,2$

MOV

2(R5),R2

)

... TIMED-OUT ... SEND NACK.

; GET BUFFER CONTENTS AND FLAGS.

7171 060056

110220

4%:

717
7174 060062
7175 060066
7176 060070
7177 060074
7178 060100

005737
001037
012701
012704
005037

000020
060214
060236

; NOW CHECK FOR ERROR AND COMPUTE THE CHE
;
TST
UPERR
; WAS THERE A RECEIVER ERROR?
BNE
W
; YES, SEND
4
MOV
#16. ,R1
; BYTE COUNT IN RS.
MOV
STHPHAT R4
: STARTING
S IN
CLR
: CLEAR ACCUMULATOR FOR CHECKSUM

7180 060106

042703

177400

7182

060116

106337

060236

7184

060126

077112

112403

5%:

7181 060112 060337 060236
7183

060122

7185 060130

537

123737

060236

mg 060144 012701 001166
7189 060150 012702 000010

7190 0601
7191 060156

o%;ozx
077202

;io %}g 012700 000006
7194 060166 012700 000025

78:

8$:

7195 060172 oo§osv 060240

; STUFF TEMPORARY MAILBOX...

MOVB

(R4)+,R3

: GET A BYTE IN R3.

ADD

R3, ARBSUM

; OPERATE ON THE BYTE

BIC

#1C377,R3

ARBSUM
ARBSUM

i ... AND CONTINUE UNTIL DONE.

; STRIP OFF HIGH BYTE

;

S0B

R1,5$

; LOOP UNTIL DONE

BNE
MOV

74
STMPMAI, RO

; NO
NACK
; YES, UPDATE REAL MAILBOX

(RO)+,(R1)+
R2,6$

;
;

UPERR

; CLEAR ERROR FLAG BEFORE LEAVING.

CMPB

68:

: SET ERROR FLAG.

R1.,1$

ADC

060234

R2,(RO)+

S08

ASLB

060236

mg 060136
001013
7187 060140 012700 060214

MOVB

; BRANCH IF NO ERROR.

MOV
MOV

MOV
S08

ggv
MOV

CLR

ARBSUM,

S$MATL ,R1
8. ,R2

ggéx.
#NACK , RO

; DOES IT CHECK?

:
:

. . 8. WORDS...

: AND SEND ACK.
H
; SEND NACK.

7179 060104

060240

INC

: ... WITHIN REASON, OF COURSE ...

100002

7172 060060 077114

B8PL

;
; TELL SBC WE'RE READY BY ...
: ... ECHOING <t2>.
;
; POINT TO SCRATCH MAILBOX
: SET BYTE COUNT.
; AND CLEAR ERROR FLAG
; KEEP-ALIVE TIMER.

7169 060050

7170 060052 005237 060240

012746

MACRO Y05.02

J15
MACRO Y05.02
REMOTE LOADER AND VIRTUAL TERMINAL (V4.0).
KXJ11-CA FUNCTIONAL TEST

7196 060176

7197 060202
7198 060204

7199 060210

105765
100375
110065

012605

000004

Thursday 03-Apr-86 14:11

000006

7200 060212 000207
7502 060214

7503 060934

7504 060236
7505 060240

000000
000000

7507
7208
7510

012701
005002
004737
012701

7515 060260

005002

7217 060264

012701

7516 060262 000412
7518 060970

012702

7519 060974 000405
7320 060976 012701
7551 060302 000402

1222 060304

1FX9JC

MOV

(SP)e.R5

IRESTORE RS

i AND RETURN TO LINK ROUTINE

JFX9UC

: SCRATCH PAD" MAILBOX.

SEXOUC

O
O

; ACCUMULATOR FOR COMPUTING CHECKSUM.
: ERROR FLAG FOR OVERRUNS.

JFX9UC
FFX9UC

.BLKW

ARBSUM:
UPERR:

_MORD
MORD

_WORD

012701

.ENABL LSB

060370

SETREGS: MOV~
CLR
CALL
MOV

060310
060402

CLR

:
i SEND ACK OR NACK.

FEXOUC
TEX9UC

: LOM BYTE IS RECEIVED

7555
7526 060310

$340.R2

;.. PRI7.

SETPC:

; PC (SET IN R2 BY CALLER).

060424

SETSP:

MOV

#0SP.R1

; SP (SET IN R2 BY CALLER)

sRkkkkkkkkkkbkkhkkkkkkkkkkkkkkkkkkokokkkkkk ok xkkkkkdokkkkkhkkkkkkkkkkkkkkok ok ko

i INSURE THAT *ODT" ECHOES THE CHARACTERS CORRECTLY. . sFXBJC
1
move
(R
R
; SAVE BYTE IN R3 FOR COMPARE.

112103

057422

;fi

MOV

060420

001373
004737

;%23

.. .DISABLED CMAP-RAM OFF).

1%
#OPC.R1
1%

057134

7241 060366

B8R
MOV
B8R

7; S 060340 000137

123
060344
7837
060350
7538
060384
7539 060356
1840 0603623

B8R

: PSW...

057672

; PRIMARY CSR..

#0PS.R1

004737
103375
3
o17es

060334

T
: .. .DISABLED.

SETPSW: MOV

7237 060312
001414
7228 060314 110300
1289 060316 004737 057636
060322

20MM.R1
R2
1%
SOKX.R1

060414

000340

72 4

1234

; WAIT FOR TRANSMIT READY.

9%
RO,6(RS)

} SUBROUTINES
TO SET MMU. MAP-RAM,
PSW, AND PC
; IN PREPARATION FOR LOADING/STARTING THE SBC.

7511 060242
7512 060246
751% 060950
7514 060954

7280
75
75
75

190

4(RS5)

TMPMAI:

RCDSUM:

1ST8

BPL
MOVE

RETURN

000000

104401

004737
120027
004737

000207

2¢:

060526

BEQ
RoUB
CALL
CALL
8CC
CHP8
BEQ

SBCIN
2%
RO,R3
1%

;
.
; ECHO CORRECT?
: YES, CONTINUE
.

JHP

RELOAD

;

TYPE

037672
000040

3%:

057756

as:

RS.R0

: IF ZERO, STRING IS DONE.
: BYTE TO'RO FOR THE CALL.
'

CALL
CB
BNE
CALL
CALL

RETURN

,EKOERR

SBCIN
RO, 940
3%
DATACR
WAITOO

.DSABL LSB

; ELSE,

"ASCIT ECHO ERROR”

| OTHERMISE, WAIT FOR <SP> ...
.

:
i

... AND SET VALUE FROM R2.

: WAIT FOR @...

i ... AND RETURN.

7247 060370

067

067 OMM:

.ASCIZ '77777572/'

; OPEN MMU SRO F/dJ.

7249

122

123

057

.ASCIZ

: OPEN PSW.

7251 060424

122

123

067

066

067

037

OPS:

OPC:

037 OSP:
;

"ASCIZ

.ASCIZ

77777530/

'RS/’

'RI/*

.ASCIZ 'Ré/*

: OPEN K2CSRD

LEXBUC
FEXBUC
LFXBUC

LFXBUC
1FXBUC
FEXBUC
IFXBUC

FEXBUC

iFX

iFX
sFXBUC

IFXBUC
LFXBUC
IFXBUC

$FXBUC

F/uJ.

; OPEN PC.

: OPEN SP.

kkkkkkkkkkkkrkkkkkkbkkkhkkkhkkkkkkE

khskkhkt kbbb hhkhkbi bbb bbbk

060414

087

JFXBJC

: TEXT FOR MANIPULATING REGISTERS UNDER "0DT”.
H

067

GO TRY IT ALL AGAIN.

kkkk

bidbbiis

IK15

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

REMOTE LOADER AND VIRTUAL TERMINAL (v4.0).

7262

Page 191

: DIRECTIONS AND STATUS TEXT.
015

113

111
101

012

REER

7253
7254
7255
7256 060430
7257 060444
7258 060450
7259 060466
7260 060514
7261 060526

Thursday 03-Apr-86 14:11

007
111

103

WAIT1:

.ASCIZ

<CR><LF>'

LOADED:

.ASCII
-ASCIZ

‘..IOP LOADED' <7><CRLF>
<CRLF>'
USE <ESC> TO HALT'<CRLF>
*IOP HUNG' <CRLF>
ASCII ECHO ERROR' <CRLF>

.EVEN

IK'I<‘,>

WAIT...'

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02 Thursday 03-Apr-86 14:11

REMOTE LOADER AND VIRTUAL TERMINAL (V4.0).
1Y

Rttt st

Page 192

bt ssatiied

L Ll

LSSttt

TR T

; IMAGE LOADER FOR THE TARGET SBC.
; THE_ASCII (ODT) LOADER STUFFS THIS WTDEMOHESBC
AT THE TOP OF 16K, AND STARTS IT RUNNING AT PRI 7

AMA

; MAKE IT RELATIVE PIC.

$LOAD:

MOV
ST

PC,SP
-(5P)

DSABL

1%:

MOV
CLR
TST
BNE

SP,RO
-(RO)
RO
1%

: SET A STACK...

; DMA LOADER.

020000

174454
174456

1%:

174456
174454
000001

000033

817

BEQ

MOVB

177566

BR
24:

7308 060732

001340

21C
RO
$SLOAD

433, 80177566

$START

IS IOP IN STANDALONE ?

TPEN.MSTDOSER[AL LOAD

> SET CHAIN ADDRESS.

START 'EM UP..
..AND WAIT FOR DONE.
SAVE STATUS..

...AND RESET CHIP,
TERMINAL COUNT ??
NO, DMA FAILED.

YES, SEND DMA DONE <t[>.
..AND THAT'S ALL

174442

i
> SET_A TRAP CATCHER...
: /7 ...IN CASE CHIP IS DEAD.

e WL we &0

174446
000050

174470
174454

#$SLOAD.
-6.R0

PC.RO
RO, 384
#PR7, 306
$340., 38K2CSRC
$SLOAD
S3CMDR
#115. 99MR
#4034, 98CMDR
SCHALH
#2%-.-6.R0
PC.RO
, @0CMDR
#IP, BOSTATL
13
BESTAT1,RO

174454
000115

000006
177524

ADD
MOV
MOV
BIT
BEQ
CLR
MOV
MOV
CLR
MOV
ADD
MOV
MOV
BIT
BEQ
MOV

000340

ipLoAD: MOV

- WS B B8 B

000144

i5'70 IT 1!

CHAIN LOAD ARA, ARB, WC, AND CH MODE...

1602
%oogoo. 0

...SRC -- Q-BUS gg

<LASTAD+2>/2
, 1340

..AND START (SOFT-REQ).

% Loum‘m)"'

M15

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02 Thursday 03-Apr-86 14:11

REMOTE LOADER AND VIRTUAL TERMINAL (v4.0).

7310
7311

3
: SERIAL (BYTE) LOADER.

7312

7313
7314
7315 060736

7316 060740
7317 060744

7318 060752

005000
113701
112737

105737

7319 060756 100375

7320 060760

113720

7322 060770

101770

177562
000034

177560

177566

3 EFFECTIVE LOAD RATE IS 480. WORDS/SEC AT 9600 BAUD.
3
$SLOAD: CLR
RO
SERIAL LOAD FROM O TO LASTAD.
MOVB
@2177562,R1
DUMMY READ.
MOVB
#34,32177566
SEND READY MARK <t\>,
1%:
TSTB
28177560
NOW, WAIT FOR...

BPL

177562

MOVB

7321 060764 020027 051507

-71352 060772

112737

000034

cMP

BLOS

177566

7325

MOVB

32177562, (R0)+

RO, #LASTAD+1
1%

#34,38177566

; NOW ONE WAY OR T'OTHER,

;... TIL DONE.

SEND DONE MARK <t\>,

THAT SUCKER'S LOADED.

IT RUNNING.
; DELAY A SKOSH AND START
IT

000000

1%:

061016

7337

7338

077416

7339 061022

73:0 071022

RO,.
28206, 39202
#200,PC

BR
14
.EVEN
$LSIZE= <.-$LOAD>/2
$LSTRT= 100000-<
. - $LOAD>
$LSTRT= $LSTRT-1i0

DELAY.
DELETE “REMOTE" START ADDRESS.
START
HALT
v o R

IMAGE LOADER SIZE (IN WORDS)..
.AND LOCAL STARTING ADDRESS.
“#%% LOWER TO CLEAR T'S ODT STACK ##

" t‘tt"t‘tttt‘t‘#t‘tttt#‘#t#ttt‘tttt*tit#tttt#ttttt##t‘*“tt‘t‘t.‘#t‘##

BUFR1:

000001

HALT

7332

7333 061020 000776
7334
7335
000125
7336
077526

S08
MOV
MOV

{sTART: CLR

005000

7328 061000

7329 061002 077001
7330 061004 013737 000206 000202
7331 061012 012707 000200

:,Iggg

7341

Page 193

au-'az

.END

.BLKW
BLKW

2048,
2048,

;FX8JC

N15

KXJ11-CA FUNCTIONAL TEST

Symbol table

ABASE = 000000
002506
ABORT
ACDW1 = 000000
ACOW2 = 000000
000006
020000
000000
045713

000000
000000
000000
000000

ADDW13= 000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000

ADRSLP °§§m

ALL

AMA

?
LRV~
0

SEal

AGAIN

33 232

Ge33es

AMA

053300
053305
0533§6

002064

R16
ADR18
ADRe2

377

1374

MACRO Y05.02

APRIOR= 000000
APTCSU= 000040
APTENV= 000001
APTSIZ= 000200
APTSPO= 000100

ARBDIS 036330
ARBER = 000002
ARBITR 052160
ARBLMG 035776
ARBSUM 060236
ARBSUP 016703
ARBTPR 056234
ARBTYP 052450
ARB374 054726

Thursday 03-Apr-86 14:11

BIT13 = 020000
BITi4 = 040000
BIT1S = 100000
BIT2 = 000004
BIT3 = 000010
B8IT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7

= 000200

BIT8 = 000400
BIT9 = 001000
BLKER
032740
= 000020

055164
054530
054672
000000
000000
000000
000000
000000
000000
104416

BPTVEC= 000014
BRK
057522
BRQ_
= 040000
BR@EN = 010000
BUFR1
061022
BUFR2
071022
BUSHOG= 000040
= 000100
BUSTO
011030
BXMTD
046051
BYT
= 000000

022500
040000
00000
022476
016572
016654
000100
000040
022244
020601
000100
001352

B1
B2
= 000100
B4
= 000140
CA
CANT
012436
CARA = 001000
CARAHI 037042
CARAH1= 174432
CARALO 037044
CARAL1= 174412
CAR8 = 000400
CARBH1= 174422

000130
002000

CCR
CEOP

= 177746
= 020000

003042

CHAD

= 000001

044046

016776

BYTES

037576

CARBL1= 174402

CHA

=%000004

000001
000001
000002

CHAIN1
CHAIN2
CHAINS

000020
000040
000100
000200
000400

CHAING 014164
CHALH = 174446
CHALIL = 174442
CHAZH = 174444
CHA2L = 174440

000002
002000
004000

CHEKSU

001000

BITi2 = 010000

CHNQ10O

014042
014064
014104

010514
044310
015014

Page 194

CPQSTA

021512

CIE
= 100000
CKBYTE 014032
CKSUM
010712

CKSWR = 104410

CKTBL
CLIE1
CLIE2
CLIP1
CLIP2

=
=
=
=

013772
000060
000061
000054
000055

CMC
=
CMDR =
CNFGER
CNFGO1
CNTNU

040000
174454
016604
016536
032006

CLK1
CLK2
CLK3
CLx4
cM

CNTZ

046303
046337
046405
046442
032114

044312

COMMA
046136
COP
= 000200
COP1 = 174462

CoP2_ =
COUNT
CPEREG=
CPUER_
CPUTST=

174460
001364
177766
003556
000000

= 000015

CRLF =
CSRADR 004715
CSRDAT 004731
046254
CSRER
004662
CIC
= 100000
CTCC = 000040
CTCS = 000024
CTMS = 000070
CTRL = 000000
CTTC = 000054
CTV
= 000010
CURBLK 055302
C.CLR
CIFLAG 001404
CoFLAG 001406

DADR

045767

DATPR
DCF11

005046
052524

DATACR 057422
DATALF 057414
DATIO = 000200
DCJDM
DCJ11
DCT1i
DC.DAT

046140
052510
001372

012222

DC.RCV 011750
DC.XMT 011526
DDISP = 177570
DECIMA 050534
DIN
= 000400
DISMIS 002542
DISPLA 001142
DISPRE 000174
DMAC1
020102
DMAC2
020133
DMAC3
020170
DMAC4
020221
DMACS
020252
DMAC6
020303
DMAC7

020336

DMAV

000214

DMA1
DMA2
DMA3
DMA4
DMAS

020042
020413
020451
020513
020562

DPR1

046500

DMAEND
DMAV1
DMAV2

DOUT =
DOWN =
DPREND
DPRV12
DPRV4
DPRV8

DPR1O
DPR11

DPR2
DPR3
DPR4

DPRS
DPR6
DPR7
DPR8
DPR9

015742

000214
000220

000600
000010
032122
000134
000120
000124

047144
027371

046533
046566
046633

046700
046771
046774
047042
047107

= 000000
DSTART 000204
DSWR = 177570
CT0O

014204
005631

DTG ofaobs
TE0M 013403

e S
i

C
CXM9
TCX01

D100

015700

015452
015532
014754

037564

Page 195

172310

172312

172314
172316
060444

TR R e
g
g2k § i

RERLL

“
9353553

BgmaRnaEss

Thursdsy 03-Apr -86 14:11

LLLLLLL

MACRO Y05.02

= 104417

PAMS

LI|

3338989555

Symbol table

3855

KXJ11-CA FUNCTIONAL TEST

B16

= 0001

Cl6

KXJ11-CA FUNCTIONAL TEST

MACRO Y05.02

Symbol table

PAR

PARCHK
PARDEL

PARE

PARERR

001576

006752
006750

010733

011174

PATMSK= 000010
PAV
= 000004

PBCS
PBOB
PBHS
PBMS
PBV

= 000022
= 000034
= 000122
= 000120
= 000006

P
PCDD

POPDTC

= 000036
= 000014

PDR

PEVNT

036764

001562

000104

PIOAV
PIOBY

000160
000164

PIOD

025430

PIOD1

025470

i o

PIOT
PIOT1

025072
025166

P102

Ogg 57

PIO1

050232

PIO3

050503
= 047356

= 177776

PWRY

000024

PWRFAI= 000000

: 27o7e

RDOCT = 104413

READO

017060

RECD

QAR
@BCHN
@BCHNZ
@BCHNS
@BEFIN
@BEGO

RELOAD
REMBLK
REMOTE
REOP =
RESTAR
RESVEC=

032102

037114
017670
017716
017744
021000
017646

@BETST 017106
@BETOL 017770
@BETO2 020006
GBETO3 020024
@BEX
054070
@BEXER 017456
@BE1 = 170000
@BE18
050760
@BE2 = 170020
@BE22
050756
@BLOAD 0371482
@BMEM = 100000
@BSTRT 055276
@BUSIO= 140000

027750

035252

QIRV

000144

045735

RECDAT 001362

057134
055300
056702
002000
001622
000010

RFLAG
001344
RL
= 000004
RMC
= 004000
RPRI =
RQI0
031722
RR
=
RSTART
RSTRAP 002614
RTC
= 010000
RVEC = 000000
R6
=%000006
R7
=%000007
SACKER 020716
SACKTO 020627

SADR

045747

SAVSP?2
SAYYES
SBCIN

001402
056654
057672
057636

SAVSP1

001400

QIEND
027114
QI0C
032100
QIOCC
032120
QIR
= 177532
QIRER
004700

SBM

QIRVL

SCCCH2= 000241

000150

Q12
QI3
QIa
QIS
QREQ
QREQ1
a2
Q$HI
Q18ADR

027157
027210
027257
027323

534
306
8{3%

Q1822 017412
Q32068 011006
o17404
R
RAMTYT

RDLIN = 104412

PURVEC= 000024

3?'1“1'2
832%553
QI1
027132

PI07
PIOO
PIRQ

050326

PSuW

Thursday 03-Apr-86 14:11

RCS
ROB

SUM

011063

060234

=
= 177776

ROCHR = 104411

SDECTM
ARO= 172260

SDPARL= 172262
AR2= 172264
SDPAR3= 172266
SDPARA= 172270
SDPARS= 172272
SDPARG= 172274
SDPAR7= 172276
SDPDRO= 1
SDPDR1= i?

snvms-““z 172226222
SOPORS- 173535
SOPDR6= 172234

SDPDR7= 172236
SETIEl=
SETIE2= 000063

SETPC

SETREG

060276
060264
060242

Page 196

SETSP
SHLOCK

060304
035564

SSRCH2= 000103
STACK = 001100
START
STAT
STAT1
STAT2
STBB_

=
=
=
=

001622
177774

174456
174454
000005
STBOT = 001000

STF

046175

STFUNL= 000014
STKLMT= 177774
ST@BIO 037046
STWW = 000004

SUMCHK

SVPC
SWM

SWR

037274

= 044606
= 000002

001140

SWREG

SWROPT

SWRQ
SWO
SHWOO
SWO1
SWO2
SWO3
SWO4
SWOS
SWO6
SWO7
SWO8
SW09
SH1
SW10

SWil
SWi2
SW13
SWi4
Sk15
%

000176

=
=
=
=
=
=
=
=
=
=
=
=
=
=

043152

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

= 004000
= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
SW4
= 000020
SWS
= 000040
SW6
= 000100
SW7
= 000200
SW8
= 000400
SW9
= oogggo
SYSER
003571

?.SET
022520
ABO9
“52%
TBIACK %
a‘
TBITVE=
TBUF

Tgs
T

TOPR1

= 000001
= 000004

MACRO Y05.02

TOPR2
TIPVI
TIPVZ

013026
015756
057702

UDPDR7= 177636
UIPARO= 177640
UIPAR1= 177642

057710
057654

UIPAR3= 177646
UIPAR4= 177650

TYPBN = 104406

UIPARG= 177654

Symbol table

027662
030124
030470

1576
1877
TIYIN

TIPVZ

030720

TTYOUT

TNLEDS

037542

TVEC

TOPMEM
TPRCHK
TPRDER
TPRER
TPRI
=
TPRNXM
TPRTO
TPROTR
TPROO =
TPRO1 =
TPRO2
=

005650
021622
005554
005532
000006
031600
031710
001346
17
175002
17

TYPDS = 104405
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
TSNAME= 104415
T$$NAM 043740
710.1
022244 G
T710.2
022500 G
710.3
024034 G
T11
= 000004

UIPAR7=
UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7=
UNEXPI
UNKNWN

TPRO4
TPROS
TPRO6
TPRO7
TPRO8
TPRO9
TPR10
TPR11

175010
175012
175014
175016
175020
175022
175024
1750

Ti11.1
T11.2
T13.1
713.2
T13.3
T15.1
T15.2
T715.3

TKVEC = 000060
TMPMAI
214

TOEH

TPRO3

TPR12
TPR13
TPR14
TPR1S
TPVEC

RA!

011110

= 17

=
=
=
=
=
=
=
=

=
=
=
=
=

1750
175032
175034
175036
000064

002432

TRAPVE= 0000

TRAP4X

888386
1

TTYX
T1YZ

050770

T2.1
72.10
T2.2
72.3
T2.4

003466 G
005364 G
003620 G
004214 G
004740 G

T2.6

005220 G

T2.5
T2.7
73.1

13.2

TRTVEC=

73.4

TRYNXT

TSTLOC
TST.ST

1ST10
TST11
TST1
TST1

TST14

TST1S
T§T16

T Tg

1878

= 000000

051636

036726
001412
0
003160

022134

7412

124

033174
037176

3404

= 000004

Ti1$

TRFUNL= 000010

868360

057646

Thursdasy 03-Apr-86 14:11

73.3

025072 G
025430 G
027522 G
030124 G
031174 G
033274 G
035252 G
035564 G

005046 G

005316 G
006044 G

177660
177662
177664
177666

73.6

UDPAR4=
UDPARS=
UDPARG6=
UDPAR7=

007472 G

$FATAL
$FFLG

001170
043000

177656
177600
177602
177604
177606
177610
177612
177514
177616
003056
052556

$CPUDP
$CRLF
$CSR
$CSRA
$CSRB
$CSRC
$DBLK
$DDWO
$DDU1
$DDW1O
$0DW11

001214
001163
001314
001334
001336
001340
041252
001252
001254
001276
001300

UNXRES 002734
UNXT
046217
UNXTPR 002762
UNXTRP 002416
upP
= 000000
UPAMB
057774
UPERR
060240
USP
= 001100

$DDW13
$DDW14
$DDW1S
$DDW2
$ODW3
$DDW4
$DDWS
$0DW6

001304
001306
001310
001256
001260
001262
001264
001266

WAIT1

$DLOAD

UNXHLT

003015

VARC = 037625
VA2GA
037436
VEXPD
046032
WAITP
057752
WAITO0 057736

060430

WAIT40

WwZ

WT.LCK

057744

032112

031732

036667

= 000140

=
$AGAIN 051616
$APTHD 001000
$ATYC

$ATY1
$ATY3
$ATY4
$AUTOB

042534

UDPDR1= 177622
UDPDR2= 177624

$BDADR
$BDDAT

$BIN

001122
001126

041606

UDPDR6= 177634

$CHARC

041032

UDPDR3= 177626

$CM3 = 000000
SONTLG 042345
042340

177670
177672
177674
177676

001112
001160
001206

$CNTLU

WTLK

UDPARO=
UDPAR1=
UDPAR2=
UDPAR3=

$ERTTL
$ESCAP
SETABL

UIPARS= 177652

006752 G

007316 G

001336
041610
001332

$CMTAG

WRIOo

13.5

$CID
S$CKSWR
$CLK

UIPAR2= 177044

006376 G

006546 G

Page 197

$BASE

042552
001134

001100

$CPTYP

001312

$0DH12

001302

$DDW7
$DDW8
$ODW9
$DEVCT
$DEVM

001270
001272
001274
001176
001244

$DMA

001324

$ONPAR

007674

$ONWRD

010314

SETEND
$FILLC

$FILLS

001340

$MADR2
$MADR3
$MADR4
$MAIL
$MAMS1

001224
001230
001234
001166
001216

$MAMS3

001226

$LF
001164
SLFLG
042777
$LOAD
060550
$LPADR 001106
$LPERR 001110
$LSIZE= 000125
$LSTRT= 077416
$MADR1 001220

$MAMS2
$MAMS4
$MFLG

$OPRQ

001322

$DTBL
$EN

$ENDAD
$ENDCT
$ENULL
$ENV
$ENVM
$EOP
$EOPCT
$EOPE

001155

$LEDS

040

001320

001156

$GDADR 001120
$GDDAT 001124
$GET42 040106
$GTSWR 041660
$HD
= 000003
$HIBTS 001000
$HILIM 050750
$HIOCT 042532
$ICNT
001104
$INTAG 001135
$ITEMB 001114

$DOAGN

$DPR

001312

$MNEW

001222
001232

001002
042776

042363

001202

041242

$MSGLG

040116
037662
040132

$MSWR
$MTYP1
$MTYP2
SMTYP3

001217
001223

$PASTM

001006

$MSGTY

001

001227

001207
037632
037
040165

$MTYP4
SNULL
001154
$NWTST= 00000
$

$ERFLG

040155
001103

$
$PASS

$ERRTB

001312

$PNUM = 000010

:E%D
$ERMAX

040136
001

040432
001174

_—-4—_»

KXJ11-CA FUNCTIONAL TEST

E16

KXJ11-CA FUNCTIONAL TEST

Symbol table

$QDLY

$QIR

001342

$TN

$1PB

$TPFLG
$TPS

$STUP = 177777

101022

000000

Errors detected:

Thursday 03-Apr-86 14:11

$SVLAD 040376
$SVPC = 001000
$SHR
= 101400
$SWREG 001210
$SWRMK= 000200
$SWOBT 040446
$TCID
001340
$TESTN 001172

001316

$TKB
$TKS

. ABS.

MACRO Y05.02

000

001
O

Page 198

043002

$$STOX
SOFILL
$40CAT
.ABUSH
.LSTAD
.LSTPG

001146
001144

= 000017

001152

001157
001150

(RW,I,GBL,ABS,2VR)
(RW,I,LCL,REL,CON)

s++ Assembler statistics

Work file reads: 422
Work file writes: 347
Size of work file: 57336 Words ( 224 Pagu)
Size of core pool: 19402 Words ( 74 P.V“
Operating system:
RSX-11M/PLUS (Under AX/VMS)
E
: 00:03:03, 58
CZKXAA, CZKXM/CR/ SP=MACMAC.MLB/ML, CZKXAA

$$5W08= 000017

041262
041531
000000
050736
050734
050732