Digital PDFs

AH-T711B-MC

July 1984

88 pages

Original

44MB

view download

OCR Version

60MB

view download

Document:	CZKDMB0 KDJ11-A KDJ11 CACHE MEM SYS JUL 1984 bw
Order Number:	AH-T711B-MC
Revision:	000
Pages:	88
Original Filename:	CZKDMB0__KDJ11-A__KDJ11_CACHE_MEM_SYS__AH-T711B-MC__JUL_1984_gray.pdf

OCR Text

KOJL11-R

kOJ11 CACHE MER 5¥5

_ CZKOMBO

FICHE 01 OF 01

P OO® IO VBl
e

USER ODOCUMENTATION
MACY11 30A(1052)
KDJ11A
. MAC
O3-APR-84 11:36

O4-APR-84

10:38

PAGE

Bl
SEQ 0001

.REM &

IDENTIFICATION
PRODUCT CODE:

AC-T7108-MC

PRODUCT NAME
:

CZxDMBO KDJ11 CACHE MEMORY DIAGNOSTIC

PRODUCT DATE:

15-MAR -84

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

HENRY ENMAN, JIM PITTMAN, BARRY IRRGANG

THE

INFORMATION IN THIS DOCUMENT

SUBJECT

CMANGE 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.
NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
WUSE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

DIGITAL
DEC

TRADEMARKS OF DIGITAL EQUIPMENT

roP
DECUS

UNIBUS
DECTAPE

CORPORATION:

MASSBUS

USER JOCUMENTAT &%R P mul
KDJ11A.MAC
0

a1
a2
R
aa

30A(1052)

O04-APR-84

10:38

PAGE 2

HISTORY
R

OCT-83

FEB-84

REV.

S5EQ 0002

.REM &

15, 4w

FIRST RELEASE
CORRECTIONS MADE

TO:

CORRECT VECTOR AREA MAINTENANCE PROBLEM
ALLOW DIAGNOSTIC

ENVIRONMENT.

TO EXECUTE PROPERLY

IN APT

3. ALLOW DIAGNOSTIC TO BE EXECUTED IN SYSTEMS WITH

51
52
53

MXV11-A/B MODULES. REQUIRES DELETION OF TESTS
WHICH CAUSE KDJ11-A CACHE PARITY ABORTS.
4. ENSURE THAT CPU ERROR REGISTER IS CLEARED AFTER

55
56

COMPLETION OF TEST THAT MIGHT CAUSE IT TO BE SET.

SAVE PC AND CONTENTS OF R6 ON UNEXPECTED INTERRUPTS
&

USER OOCL"NIAI&%R

KDJ11A.MAC

HA(::ul

-84 11

30A(1052)

04 APR-84

D1
10:38

PAGE

SEQ 0003

60
61
62
63
64
65

66
67
68

623

.REM &
TABLE OF CONTENTS

1.0
1.1
1.2

1.3

1.4

2.C

;5
74

75
76

1.5

2.1

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

KDJ11-A MODWE SPECIFICATION REV 2.2

PDP11 MAINDEC SYSMAC PACKAGE
J11 CONTROL CHIP SPECIFICATION 21-17679-00
J11 DATA CHIP SPECIFICATION 21-17677-00
1.4

DIAGNOSTIC HIERARCY PREREQUISITES

THE KDJ11 CPU,

MEMORY MANAGEMENT AND FLOATING POINT DIAGNOSTICS

SHOUWLD RUN SUCCESSFULLY PRIOR TO RUNNING THE CACHE MEMORY
SYSTEM TESTS.

1.5

ASSUMPTIONS

IT IS ASSUMED THAT THE DIAGNOSTIC OPERATOR IS FAMILIAR WITH
THE XXDP+ OPERATING SYSTEM AND THME J11 MICRO-0DT.

2.0

OPERATING INSTRUCTIONS

2.1

LOADING AND STARTING PROCEEDURE

LOAD PROGRAM INTO MEMORY USING STANDARD XXDP+ PROCEEDURES.
THE PROGRAM IS STARTED BY LOADING ADDRESS 200 AND USING
THE J11 MICRO-ODT G COMMAND TO START. THE PROGRAM

IDENTIFICATION MESSAGE WILL BE
OF THE COMPLETE PROGRAM,
2.2

PROGRAM OPTIONS

TYPED AFTER

THE FIRST PASS

USER DOCUMENTATION
??C;{l’l 30A(1052)
KDJ11A
. MAC
0 -APR -84
140
141
142
143
144
145
146
147
148
149
150

151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170

171
172
173
174
175
176
177
178
179
180
181

182
183
184
185
186
187
188
189
190
191
192
193
194
195

O4-APR-84

10:38

PAGE 5

F1
SEQ

THE FOLLOWING ASSIGNMENTS HAVE BEEN MADE FOR

DIAGNOSTIC SWITCH REGISTER BITS:

BIT#15

THE KDJ11-A

DON'T

18 BIT

EXTENDED

$orcocona @cccca--e Secnznian B s o Brsosme Bonswiame @ccocana

TEST

BEVENT

ADDRESS

ONLY

CACHE

TESTS

Becovans @-cocaaa @-c-u-ua Becoaman Bemcnccse = = $-rcacna B soweme

DEFAULT SETTINGS ARE TO TEST 22 BIT ADDRESSES AND NOT DO THE
EXTENDED CACHE TESTS.
PRIOR TO EXECUTING THE FIRST PASS OF

THE DIAGNOSTIC

THE OPERATOR

WILL BE DIRECTED TO SET THE SWITCH REGISTER TO INDICATE WHETHER
THE KDJ11-A UNDER TEST

IS IN A SYSTEM CONFIGURED FOR

18 OR 22 BIT

ADDRESSING AND WHETHER CACHE RAM DATA RELIABILITY TESTS ARE TO BE
EXECUTED. AN 18 BIT ADDRESS CONFIGURATION SHOULD BE INDICATED IF

ANY 18 ADDRESS BIT ONLY MEMORY BOARDS RESIDE IN THE SYSTEM OR IF
THE SYSTEM BACKPLANE DOES NOT SUPPORT 22 ADDRESS BITS. THE CACHE
RAM DATA RELIABILTY TESTS REQUIRE APPROXIMATELY 35 MINUTES TO

EXECUTE AND SHOULD ONLY BE SELECTED IF PROBLEMS WITH CACHE DATA
CORRUPTION OR RETENTION ARE SUSPECTED.
TO CHANGE THE SWITCH REGISTER; HALT THE PROGRAM AND RESTART

AT 200 ANSWERING THE INITIAL QUESTIONS.

2.3

OPERATION UNDER APT

OPERATION IN THE APT ENVIRONMENT REQUIRES SOME SPECIAL CONSIDERATIONS DUE TO THE ASYNCHRONOUS MALTS OF THE DIAGNOSTIC BY THE APT
MONITOR. IF THE EFFECTS OF THESE MALTS ARE NOT ANTICIPATED, FALSE
ERRORS MAY BE REPORTED. THEREFORE, WHEN OPERATING IN THE APT ENVIRON;ENLOPEI% FOLLOWING DIFFERENCES IN THE EXECUTION OF THE PROGRAM SHOULD

1. CERTAIN CACHE TESTS WHICH RELY ON THE INTEGRITY OF DATA IN THE

HIT/MISS REGISTER OR THE WAY IN WHICH THE CACHE IS ALLOCATED WILL
JUMP TO A SUB-ROUTINE IF AN ERROR IS ENCOUNTERED. THE SUBROUTINE
DETERMINES IF THE DIAGNOSTIC IS OPERATING IN APT ENVIRONMENT. IF

IT IS IN APT ENVIRONMENT IT WILL RETRY THE FAILING TEST ONE TIME.
IF THE TEST PASSES ON THE SECOND ATTEMPT THE FIRST ERROR WILL BE
CONSIDERED TO BE APT INDUCED. IF IT FAILS ON THE SECOND ATTEMPT
THE ERROR ROUTINE WILL BE CALLED.

2.4
A.

EXECUTION TIMES
THE LONGEST

TEST

THE LONGEST TEST IS THE TAG RAM DATA RELIABILITY TEST WMICH TAKES
APPROXIMAELY 25 MINUTES TO EXECUTE. FOR THIS REASON THE DATA RELIABILLTY
TESTS ARE NORMALLY DE -SELECTED.

8.
THE

FULL PASS TIME
TIME

FOR A FULL

PASS WITH

THE

DATA RELIABILITY

TESTS DE-SELECTED

0005

USER DOCUMENTAT
KDJ11A
. MAC
0
196

$%er
84 1 1:

chgl

30A(1052)

IS APPROXIMATELY S5 SECONDS.

197

TAKES ABOUT

199
200
201
02
203
204
205
206
207
208
209
210
211
ele
213
214
215

3 .0

198

O4-APR-84

35 MINUTES.

10:38

WITH ALL

PAGE
6

SEQ 0006

TESTS SELECTED A FuULL PASS

ERROR INFORMATION

ERRORS WiLL CAUSE

THE FOLLOWING ERROR MESSAGE TO BE PRINTED:

CACHE SYSTEM ERROR

ERROR & = (UNIQUE ERROR NUMBER)
ERROR PC = (PC AT TIME OF ERROR)
THE ERROR WILL
WILL HALT,

THEN BE REPORTED

4.0

PROGRESS REPORT

THE END OF EACH PASS

THE

TO APT AND THE PROGRAM

DIAGNOSTIC NAME

AND PASS COUNT

ARE

PRINTED.

PROGRAM HEADER AND

KDJ11A,.MAL

TABLES

03-APR -84 11:36

216
g!;
1
219

MACY11

30A(1052)

H1
O4-APR-84

10:38

PAGE

SEQ 0007

.TITLE PROGRAM HEADER AND TABLES
.SBTTL
PROGRAM HEADER

.MCALL

ETXT1,ETXT2,ETXT3,ETXT4,ETXTS,ETX
,ETXT8,ETXT9
T6,ETXT7

220
221
222

.MCALL
.MCALL
.MCALL

ETXT10,ETXT11,ETXT12,ETXT13,ETXT14,ETXT1S,ETXT16,ETXT17
ETXT18,ETXT19,ETXT20,ETXT21,ETXT22,ETXT23,ETXT24
,ETXT25
ETXT726,ETXT27,ETXT28,ETXT29,ETXT30,ETXT31,ETXT32,ETXT33

224
225
226

.MCALL
.MCALL
.MCALL

ETXT42,ETXT43,ETXT44 ETXT4S,ETXT46,ETXT47 ,ETXT48 ,ETXT49
ETXTS0,ETXTS1,ETXTS2,ETXTS3,ETXTS4,ETXTSS,ETXTS6,ETXTS?
ETXTS8,ETXTS9,ETXT60,ETXT61,ETXT62

228
229
230
231
232
233
234
235
236
237
238
239
::?

.MCALL
.MCALL
.MCALL
.MCALL
.MCALL
.MCALL
.MCALL
.MCALL
.MCALL
-.MCALL
.MCALL
-MCALL
.MCALL

ERRF8,ERRF9,ERRF10,ERRF11,ERRF12,ERRF13,ERRF14,ERRF15
ERRF16,ERRF17,ERRF18,ERRF19,ERRF20,ERRF21,ERRF22,ERRF23
ERRF24,ERRF25,ERRF26,ERRF27,ERRF28,ERRF29,ERR
30, ERRF31
F
ERRF32,ERRF3
35,ERRF
3,ERRF
36 ,ERRF 37,ERRF
34,ERR
38, ERRFF
39
ERRF40,ERRF41,ER
,ERRFA4
RFA42,ER
,ERRFAS,ERRF46
RF43
,ERRF47
ERRF48,ERRF49,ERRFS0,ERRFS1,ERRF52,ERRF53,ER
,ERRFSS
RFS4
ERRF56,ERRF57,ERRFS8,ERRFS9,ERRF60,ERRF61,ERRF62,ERRF63
ERRF64,ERRF65,ERRF66,ERRF67 ,ERRFO1,ERRF02,ERRFO3, ERRFO4
ERRFOS,ERRFO06,ERRFO7,ERRFO8,ERRF09,SFTERR,EXITST
NEWTST,ERRDEF,.EQUAT,.KT11,.$40CAT,.
. $APTBLS,
$EOP,
SETUP
.S$TYPE,.$TYPDEC,ERRDF ,BGNTST,ENDTST,BGNMOD , ENDMOD , CKLOOP
.HEADER, .SETUP,.$TRAP,BGNSUB,E
. $ACT11,
NDSUB,
. $APTHDR
.$APTYPE,.S$ERROR,.S$TYPOCT,
. $READ

223%

.MCALL

227

.MCALL

ETXT34,ETXT35,ETXT36,ETXT37,ETXT38,ETXT39,ETXT40,ETXT41

ERRF1,ERRF2,ERRF3,ERRF4 ,ERRFS,ERRF6,ERRF7

242

243
244
245
246
247
248
249
250

.TITLE
KDJ11-A CACHE MEMORY SYSTEM TEST
:#COPYRIGHT (C) MARCH, 1984
ssDIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754
I
e
;¢THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC

ggé

253

254

; *PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.

000001

160000

$TN=1

$SWR=160000

:sHALT ON ERROR, LOOP ON TEST,

INHIBIT ERROR TYPOUT

GLOBAL

AREAS

KDJ1.1A
MAC

235
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310

MAC111

03-APR -84

30A(1052)

04-APR-84

10:38

PsGES

SEQ

PROGRAM HEADE

.TITLE GLOBAL AREAS
.SBTTL
GLOBAL EQUATES SECTION
s..

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES

ARE USED IN MORE THAN ONE TEST.

.SBTTL
001000

000011
000012
000015
000200
177776
177774

177772
177570

17757¢C

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340

100000
040000
020000
010000
004000
002000
001000

THAT

BASIC DEFINITIONS

;#INITIAL ADDRESS OF
STACK=
1000
.EQUIV
EMT,.ERROR
.EQUIV
IOT,SCOPE

THE STACK POINTER #4s

1000 ##s

: sBASIC DEFINITION OF ERROR CALL
: sBASIC DEFINITION OF SCOPE CALL

; *MISCELLANEQUS DEF INITIONS

HT=
LF=

11
12

CR=
CRLF=

15
200

.EQUIV

PS,PSW

PIRQ=

177772

PS=

STKLMT=

DSWR=

DDISP=

177776

: :CODE FOR HORIZONTAL
; ;CODE FOR LINE FEED

: :CODE FOR CARRIAGE RETURN
:sCODE FOR CARRIAGE RETURN-LINE FEED
; sPROCESSOR STATUS WORD

177774

:sSTACK LIMIT REGISTER

177570

: sHARDWARE SWITCH REGISTER

177570

; :PROGRAM INTERRUPT REQUEST REGISTER
: tHARDWARE DISPLAY REGISTER

; *GENERAL PURPQOSE REGISTER DEFINITIONS
RO=
%0
: sGENERAL REGISTER
R1=
L 31
: sGENERAL REGISTER
R2=
R3=

2
3

; sGENERAL REGISTER
; sGENERAL REGISTER

RS=
R6=

L
%5

: sGENERAL REGISTER
s sGENERAL REGISTER

SP=
PC:

%6
7

1 sSTACK POINTER
: :PROGRAM COUNTER

R4:=
R7=

s sGENERAL REGISTER
: sGENERAL REGISTER

s*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=
PR3=

0
40
100
140

s sPRIORITY
:sPRIORITY
;1 sPRIORITY
: sPRIORITY

PRS=
PR6=
PR7=

240
300
340

;1 sPRIORITY LEVEL S
; sPRIORITY LEVEL 6
s 3PRIORITY LEVEL 7

PR4=

200

LEVEL
LEVEL
LEVEL
LEVEL

100000

SWi4=
SW13=

40000
20000

SW1ll=
SW10=

4000
2000

SwWi2=
SW09=

10000
1000

O
1
2
3

: sPRIORITY LEVEL 4

;¢"SWITCH REGISTER"” SWITCH DEFINITIONS

SW15-=

TAB

0008

GLOBAL AREAS
KDJ11A.MAC
311
312
313
314
315
316

317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340

341
342
343
344
345
346
347

348
349

MACY11

03-APR-84
000400
000200
000100
000040
000020
000010
000004
000002
000001

11:36

04-APR-84

10:38

100000
040000
020000
010000
004000
002002
001000
000400
000200
000100
000040
000020
000010
000002
000001

PAGE 9

J1
SEQ 0009

BASIC DEFINITIONS
SWo8=
SWO7=
SWO06
=
SWOS5=
SWO4
=
SWO3=
SWO2=
SWO1=
SWOO=
.EQUIV
.EQUIV
.EQUIV
.EQULIV
.EQUIV

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

350
351

352
353
354
355
356
357
358
359
360
361
362
363
364
365
366

30A(1052)

3 ODATA

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BITO8=
BITO7=
BITO6=
BITOS=
BITO4=
B8IT03=
B8IT02=
BITO1=
BITOO=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

400

200
100
40
20
10
4

2
1
SWO09, SW9
SWO8,SW8
SWO7,SuW7
SW06
, SW6
SWOS, SW5

, SW4
SWO04
SWO3,SW3
SW02, SWe
SWo1,SwWl
SW00, SWO

BIT DEFINITIONS (BITOO TO BIT1S)
100000
40000

20000

10000
4000

2000
1000

400

200
100

20
10

2
1
81709,81I79
B81708,.8IT8

BI1T107,BIT7
BIT06,BIT6
BIT05,BITS
BIT04,.BIT4
BIT03,BIT3
BIT02,BIT2
8I701,.BIT1
B8IT00,.BITO

s #BASIC “CPU” TRAP VECTOR ADDRESSES

000010
000014
000014
000014
000020
000024

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14

BPTVEC= 14
IOTVEC= 20
PWRVEC=

;s TIME OUT AND OTHER ERRORS

"R$5E2¥$D AND ILLEGAL INSTRUCTIONS

"”

: s TRACE

TRAP

s ;BREAKPOINT TRAP (BPT)
s s INPUT/0UTPUT
s sPOWER FAIL

TRAP (IOT) 24SCOPEs»

GLOBAL AREAS

KDJ11A.MAC

MACY11

30 A(1052)
03-APR-84 1 1:36

000030
000034
000060
000064

000240

04-APR-84

10:38
P AGE 10
BASIC DEFINITIONS

K1
SEG 0010

EMTVEC= 30
: sEMULATOR TRAP (EMT) «+ERROR4+4
TRAPVEC=34
::"TRAP" TRAP
TKVEC=
33 TTY KEYBOARD VECTOR
60
TPVEC=
:3T7TY PRINTER VECTOR
64
PIRQVEC=240
;: sPROGRAM INTERRUPT REQUEST VECTOR
.SBTTL
MEMORY MANAGEMENT DEFINITIONS

;#KT11 VECTOR ADDRESS
000250

MMVEC=
;#KT11

177572
177574
177576
172516

250
STATUS REGISTER

SRO=
SR1=
SR2=
SR3=

ADDRESSES

177572
177574
177576
172516

;#USER "I“ PAGE DESCRIPTOR REGISTERS
177600
177602
177604
177606
177610
177612
177614
177616

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
=
UIPDR4
UIPDRS=
UIPDR6=
UIPDR7=

177600
177602
177604
177606
177610
177612
177614
177616

:#USER “D“ PAGE DESCRIPTOR REGISTORS
177620
177622
177624
177626
177630
177632
177634
177636
407
409
410
411
412

413
414
415
416
417
418
419
420
421
422

UDPDR3=
=
UDPDR4
UDPDRS5=
UDPDR6
=
UDPDR7=
3#USER

177640
177642
177644
177646
177650
177652
177654
177656

UIPARO=
UIPAR1=
UIPAR2=
UIPAR3=
UIPAR4=
UIPARS=
UIPARG=
UIPAR7=

177620
177622
177624
177626
177630
177632
177634
177636
“I“ PAGE ADDRESS REGISTERS

177640
177642
177644
177646
177650
177652
177654
177656

s*USER “D" PAGE ADDRESS REGISTERS
177660
177662
177664

UDPARO= 177660
UDPAR1
= 177662
UDPAR2= 177664

GLOBAL AREAS
KDJ11A.MAC
423
424
425
426

427

428
429
430
431
432
433
434
435
436

437
438
439
440
441
442
443
444
445

446

447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466

467

468
469
470
471
472
473
474
475
476
477
478

MACY11l

03-

-84

30A(1052)

11:

O4-APR-84
10:38
PAGE 11
MEMORY MANAGEMENT DEF INITIONS

177666

UDPAR3= 177666

177672

UDPARS=

177670

177674
177676

UDPAR4= 177670
177672

UDPAR6= 177674
UDPAR7= 177676
s #SUPERVISOR

"I* PAGE DESCRIPTOR REGISTERS

172200

SIPDRO= 172200

172204
172206

SIPDR2= 172204
SIPDR3= 172206

172202

172210
172212
172214
172216

SIPDR1= 172202

SIPDR4=
SIPDR5=
SIPDR6=
SIPDR7=

172210
172212
172214
172216

;s #SUPERVISOR “D* PAGE DESCRIPTOR REGISTERS

172220
172222
172224
172226

SOPDRO=
SDPDR1=
SCPDR2=
SDPDR3=

172232

SDPDRS= 172232

172230
172234
172236

172220
172222
172224
172226

SDPDR4= 172230
SDPDR6= 172234
SDPDR7= 172236
s #SUPERVISOR "I* PAGE ADDRESS REGISTERS

172240
172242
172244
172246

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=

172240
172242
172244
172246

172250

SIPAR4= 172250

172254
172256

SIPAR6= 172254
SIPAR7= 172256

172252

SIPARS= 172252

:#SUPERVISOR

172260

172262

172264
172266
172270
172272
172274
172276

SDPARO= 172260

SDPAR1= 172262

SDPAR2= 172264
SDPAR3= 172266

SDPAR4=
SDPARS=
SDPAR6=
SDPAR7=

s *KERNEL

172300
172302
172304
172306

"D” PAGE ADDRESS REGISTERS

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=

172270
172272
172274
172276

“I” PAGE DESCRIPTOR REGISTERS

172300
172302
172304
172306

SEQ 0011

GLOBAL AREAS

KDJ11A.MAC

479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499

500
501
502
503
504
505
506
507
508
509
510
S11
512
513
514
515
516

517

518
519
520
52l
S22
523
524
55
526
527
528
529
530
531
532
533
534

MACY11

30A(1052)

03-APR-84 11:36

172310
172312
172314
172316

04-APR-84

10:38

KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

M1
SEQ 0012

172310
172312
172314
172316

KDPDRO=

“D” PAGE DESCRIPTOR REGISTERS

172320

KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS= 172332
KDPDR6= 172334
KDPDR7= 172336
;#KERNEL

172340
172342
172344
172346
172350
172352
172354
172356

MEMORY MANAGEMENT DEFINITIONS

;#KERNEL

172320
172322
172324
172326
172330
172332
172334
172336

PAGE

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

“I” PAGE ADDRESS REGISTERS

172340
172342
172344
172346
172350
172352
172354
172356

;#KERNEL

“D" PAGE ADDRESS REGISTERS

172360
172362
172364
172366
172370
172372
172374
172376

KDPARO= 172360
KDPAR1= 172362

000000
000001
000002
000003
000004
000005
000006
000007

ACO=
AC1AC2=
AC3=

%0
sl
2
u3

AC5=
AC6=

%5
%6

000244

FPVEC=

177746
177744
177752
177766

CCR=

177746

sCACHE CONTROL REGISTER

HITMIS=

177752

sHIT/MISS REGISTER

KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPAR6=

172364
172366
172370
172372
172374

KDPAR7= 172376

;sTHESE ARE FLOATING POINT ACCUMULATOR EQUATES

AC4-=

AC7=

4
7

244

; THESE ARE CACHE REGISTER EQUATES

MSER=

CPEREG=

177744

177766

sMEMORY SYSTEM ERROR REGISTER

:CPU ERROR REGISTER

GLOBAL AREAS
KDJ11A.MAC
535
536
537

MACY11 SOA( 052)
03-84 11

1o
PAGE
13
Y MANAGEMENT DEF INITIONS

SEQ 0013

sMISCELANEOUS DEFINITIONS

177546

177560
177562
177564
177566
000000

538
539
540

OAAPRM

BEVENT= 177546

;BEVENT CONTROL REGISTER

$TSTNU=1
ERRNUM= 1
ASWREG= 2000

;INITIALIZE ERROR NUMBER COUNTER
;:SWR FOR APT--NO BEVENT TESTING

RCSR=
RBUF =
XCSR=
XBUF =
ERRTN=

000001
000001
002000

177560
177562
177564
177566
HALT

; THIS EQUATE DEFINES THE BOTTOM OF THE PROGRAM STACK POINTER

001000
000000

.ASECT
.SBTTL

000000

STBOT=

1000

TRAP CATCHER

.=0

;#ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN
;#A ", +2, TIOT” SEQUENCE TO CATCH AND PROCESS ILLEGAL
;#TRAPS AND INTERRUPTS THAT MIGHT OCCUR.

:#THE

IOT

TRAP WHICH IS

;#TRAPS TO THE

TAKEN ON

THE

ILLEGAL

$SCOPE ROUTINE WHICH (IF

TRAP/INT

THE RETURN PC

;#LESS THAN 1002) JUMPS TO THE SERROR ROUTINE.

;#THE
e

S$ERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:
PC=YYYYYY UNEXPECTED TRAP TO XXX

;AND RETURN TO THE PROGRAM AT PC=YYYYYY+2
sSWHERE XXX=LOCATION OF ILLEGAL TRAP

YYYYYY=PC

TIME

TRAP

;#NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM
L
CAN BE STARTED AT ADDRESS O AS WELL AS ADDRESS 200.
000000
000002

000000
000737

$40CAT: HALT
BR

000174
000176

001716
000340
000174
000000
000000

. WORD
.WORD
.=174
DISPREG: .WORD
SWREG:
.WORD

000200

000137

001716

.SBTTL
.SBTTL

.-100
START
340

O
O

ssHALT
s.g‘:l/\ggt; TO 177700 &€ TIME OUT (NOT ON
‘s

;s VECTOR TO STARTING ADDRESS
;sWITH PRIORITY LEVEL 7

: s SOF TWARE DISPLAY REGISTER
; ;SOF TWARE SWITCH REGISTER

STARTING ADDRES(ES)
,
JMP
_@OSTART ;;GO0 TO START OF PROGRAM
ACT11 HOOKS

;3.‘.“...‘.“0‘.0‘00.‘0...‘..‘..“.‘.‘..00....‘..‘.‘.‘.‘...‘0.00

000052

000204
004046
011034
000052
000000
000204

;HOOKS REQUIRED BY ACT11

.SBTTL

$SVPC-=.
.=46
$ENDAD
. =52
.WMORD
O
.=8SVPC

APT PARAMETER BLOCK

:SAVE PC
:31)SET LOC.46 TO ADDRESS OF SENDAD IN . SEOQP

332)SET LOC.52 TO ZERO
:: RESTORE PC

1382088828208 0088820008800000088000000200000080000000800000000000000

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR

APT

GLOBAL AREAS

KDJ11A . MAC

MACY11 30A(1052)

O03-APR-84 11:36

591

592

593

000204

594

000024

596
597
538

000044

595

604

10:38

000204
000204

SX=,

.=24

200

.=44

000204
000204

13SAVE CURRENT LOCATION

13SET POMER FAIL TO POINT TO START OF PROGRAM
13FOR APT START UP

11POINT TO APT INDIRECT ADDRESS PNITR.

000000

$APTHD:
SHIBTS:

.WORD

13 TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

000001

$TSTM:

_WORD

$3RUN TIM OF LONGEST TEST

606
607
608
609

000212
000214
000216

000004
000000
000014
000204

$PASTM:
SUNITM:

611
612
613

000002
000004
000006

000000
000006
000004

0
6
4

614
615

SEQ 0014

$SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGMOSTIC
s INTERFACE SPEC.

001000

$APTHDR ;;POINT TO APT HEADER BLOCK
.= 8X
13RESET LOCATICN COUNTER
31909040 0 08408840400000004000040000808380020000000000000080800000000

000206

605

PAGE

$59008008000800000000000300000000004002R200000800000000000000000000

000200

000044

APT PARAMI TER BLOCK

000024

599
“69?
602
603

O4-APR-84

000210

000002

000204
001000

$MBADR:

.= 83X

.= 84X
.*=1000

.MWORD

.WORD
_WORD
.WORD

$MAIL

3 :ADDRESS OF APT MAILBOX (BITS 0-15)

4
$3RUN TIME IN SECS. OF 1ST FASS ON 1 UNIT (QUICK VERIFY)
0
1 sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND
- $MAIL/2 ;;LENGTH MAILBOX-ETABLE(WORDS)
1 SAVE CURRENT LOCATION COUNT

sSET UP SOME VECTORS
sRESTORE LOCATION COUNT

A" os"aBRNAG 1S

04 APR:BEea1%R0a SEEF AR
.SBTTL

SEQ 0015

GLOBAL DATA SECTION

HEE
4

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

IN MORE

THAN ONE

TEST.

.SBTTL

APT MAILBOX-ETABLE

350 8 8 028 088800480482004000000800000000000000000000000000

001000
001000
001002
001004
001006
001010
001012
001014
001016
001020
001020
001021
001022
001024
001026

000000000

.EVEN

S$MAIL :

$MSGTY:
$SFATAL:
$TESTN:
SPASS:
$DEVCT:
SUNIT:
$MSGAD:
$MSGLG:

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

SETABLE :
SENV:
.BYTE
SENVM:
$SWREG:
SUSWR:
$CPUOP:

_BYTE
.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV

AENVM
ASWREG
AUSWR
ACPUOP

657
658
659
660
661

663
665
667
668
669
670
671

ie
i®
i®
SETEND:
JMEXIT

$ 3APT _ENVIRONMENT TABLE
3 tENVIRONMENT BYTE

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

BIT
BIT
BIT

15-11<CPU

10=REAL TIME CLOCK
9sFLOATING POINT PROCESSOR
8+=MEMORY MANAGEMENT

;sTHESE LOCATIONS ARE USED IN MORE

001030
001032

SLOCO0O:
SLOCO1:

001034
001036
001040
001042
001044
001046
001050
001052

EXPDAT:

001054
001056
001060
001062
001064

TYPE

11/704=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,Q=10

THAN ONE

TEST

TO STORE VECTOR DATA

sWHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY
sFROM THE DEFAULT RESPONCE.
.
.

650
651
652
653
654
655

;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
1 sPASS COUNT
;;DEVICE COUNT
13170 UNIT NUMBER
; ;MESSAGE ADDRESS
;;MESSAGE LENGTH

BITS

g
ie

001030

1 3APT MAILBOX

0
0

s THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA.

RECDAT:
COUNT:

FLAG:

ERRCNT:

.WORD

.WORD
.WORD

O
O

.MORD

.WMORD

s STORES EXPECTED (GOOD) DATA FOR COMPARISONS

;STORES RECIEVED DATA TO BE VERIFIED
;ERROR INDICATOR FOR FLOATING POINT TESTS

sUSED TO STORE "FLAG" CONDITIONS
1STORAGE FOR ERROR COUNT

SWR:

.WORD

DSWR

1STORAGE FOR SWITCH REGISTER ADDRESS

SERFLG:

.WORD

1ERROR FLAG

ALLCTR:
LOOPIN:
SAVSP1:
SAVSP2:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

1STORAGE FOR UNEXPECTED TRAP DATA
:
¥
"
g
-

DISPLAY: .WORD

DDISP

1STORAGE FOR DISPLAY REGISTER ADDRESS

s THESE LOCATIONS ARE USED BY MORE TmAN ONE TEST AS LOOP COUNTERS
DCOUNT: .WORD
O

674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
€89
690
691
692
693
694
695
696

001066
001070
001072
001074
001076
001100
001102
001104
001106
001110
001112
001114
001116
001120

001122
001122

FUWDSEQ:

ADDLSB:
RITEDA:
NEMWDAT ;
CURDAT:

FSTADD:

LSTADD

CURADD
LOWADD
GOODAD:

TSTADD:
NEWADD
:

SOF TER:
SOFTRE:

OCO0O00O000CO0OO0CO0O

67
67

saasaEaaaacs

KbORI AREAS os"RPA'A401(3852) O4-APRIBY \A0:8Bx BOREL2C

: & 58

000020

De
SEQ 0016

tUSED TO INDICATE DIRECTION OF ADDRESSING
1STORES LEAST SIGNIFICANT BIT FOR RAM TESTS
1STORES WRITE DATA FOR RAM TESTS

1DATA STORE FOR RAM TESTS

1DATA STORE FOR RAM TESTS
1STORES FIRST ADDRESS IN ADDRESSING SEQUENCE
1STORES LAST ADDRESS IN ADDRESSING SEQUENCE
1STORES CURRENT ADDRESS FOR RAM TESTS
sSTORES LOW ADDRESS FOR RAM TESTS
1STORES GOOD ADDRESS FOR RAM TESTS
s ADDRESS STORE FOR RAM TESTS
sADDRESS STORE FOR RAM TF:ST
sUSED TO STORE SOFT ERROR COUNT
3USED TO HOLD RETRY ADDRESS ON SOFT ERRORS

GLOBAL AREAS

KDJ11A . MAC

MACY11

30A(1052)

03-APR-84 11:36

O04-APR-84

697
698

10:38

E2
S

GLOBAL TEXT SECTION
.SBTTL

699
700

5EQ 0017

GLOSAL TEXT SECTION

goe
s THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

701
702
703

s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
: MORE THAN ONE TEST.
g

705

704

;8-‘}

708
709

001162

005015

042523

020124

711
712
713

001176
001204
001212

020075
020122
052111

020061
034061
051440

047506
041040
051531

042523
020124
020061
040503

710

714

715
716
717
718
719
720
721
722
723
724
725

726
727
728

729

730

731
732
733
734
735
736
737

FORMAT

STATEMENTS USED

IN PRINT

CALLS

001170

001220

001224
001232
001240
001246
001254
001262
001270
001276
001304
001312
001320

001325
001332
001340

044502

042524

005015
044502
020075
020122
020105
047101
020107
040504
046105
044514
051505

015
042510
042524

020124

000115

040522
020104

040522
040524
040511
054524
051524

041412
051440
020115

OPMSG2:

.ASCIZ

<CR><LF>/SET BIT 8 =

1 FOR

020124
020071
047506
044103

OPMSG3:

.ASCIZ

<CR><LF>/SET BIT 9 =

1 FOR CACHE RAM AND TAG RAM DATA RELIABILITY

041501
051531
051105

ERRMSG::.ASCIZ

<CR><LF>/CACHE SYSTEM ERROR/

047522

020070

020115
040524
020115
051040
044502
052040
000

001346

047522

000122

001360
001366
001374
001402
001403

020122
005015
020122
000
015

020043
051105
041520

000075
047522
036440

ERR1:

.ASCIZ

<CR><LF>/ERROR @ =/

ERR2:

LASCIZ

<CR><LF>/ERROR PC

020012

020040

S$CRLF:

.ASCIZ

<CR><LF>/

001352

001410

005015

000
001412

051105

.EVEN

18 BIT

SYSTEM/

TESTS/

GLOBAL AREAS

KDJ11A.MAC
738

739
740
741
;‘g
4
744

MACY11 30A(1052)

03-APR-84 11:36

O4-APR-84

F2
10:38

PAGE 18

GLOBAL ERROR REPORT SECTION
.SBTTL

GLOBAL ERROR REPORT SECTION

3o
: THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS
;s USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION.
$--

SEQ 0018

AREAS
.MA

o BRI 04 - APR BBl %4C8ro0
T The secrron

745
746

.SBTTL

747

771

772
773
774
775
776

777
778

SEQ 0019

GLOBAL SUBROUTINES SECYION

748
749
750
751

752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

THAT ARE USED

IN MORE

THAN ONE

TEST.

§--

;..

; FUNCTIONAL DESCRIPTION:
3
SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS
;

INPUTS:

OUTPUTS:

NONE

; SUBORDINATE ROUTINES USED: LOAD PARS

LOAD

PDRS

s FUNCTIONAL SIDE EFFECTS: NONE
i CALLING SEQUENCE:
001412
001416
001422
001426
001432
001436
001442
001446

001452
001456
001462
001466
001472
001476
001502
001506
001512
001516
001522
001526
001532
001536
001542
001546
001552

012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
012701
004767
000207

172240
000132
172260
000122
172340
000112
172360
000102
177640
000072
177660
000062
177600
000102
177620
000072
172300
000062
172320
000052
172200
000042
172220
000032

INITMM: MOV

JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR

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

RTS

JSR

9172240,R1

PC,
LDPARS
#172260,R1
PC,
LDPARS
2172340,R1
PC,
LOPARS
2172360,R1
PC,
LDPARS
€177640,R1
PC,
LDPARS

€177660,R1
PC,
LOPARS
#177600,R1
PC,
LDPDRS
#177620,R1
PC,
LDPDRS
2172300,R1
PC,
LOPDRS
2172320,R1
PC,
LDPDRS
€172200,R1
PC,
LDPDRS
@172220,R1
PC.
LDPDRS
PC

PC,INITMM
:BASE ADDRESS OF SIPARS

sBASE ADDRESS OF SDPARS

:BASE ADDRESS OF KIPARS
:BASE ADDRESS OF KDPARS

:BASE ADDRESS OF UIPARS

:BASE ADDRESS OF UDPARS

1BASE ADDRESS OF UIPDRS
;BASE ADDRESS OF UDPDRS
:BASE ADDRESS OF

KIPDRS

:BASE ADDRESS OF KDPDRS
:BASE ADDRESS OF SIPDRS
:BASE ADDRESS OF SDPDRS
:RETURN

MACY11

30AC1052)

03 APR
34 51 38

04-APR-84

10:38

He2

GLosAl *408R
TRES oUT
SECTION

SE@ 0020

'..

: FUNCTIONAL DESCRIPTION:
i
SUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISTERS (PARS).

:
"

:
H

;

THIS ROUTINE WILL

INITIALIZE 8 PARS STARTING AT A BASE

SUPPLIED BY THE CALLING ROUTINE.

ADDRESS

PARS 0-5 WILL BE MAPPED FROM

ADDRESS O TO ADDRESS 137777 (0-24K).

PAR 6 WILL BE MAPPED FROM

ADDRESS 200000 T0 217777 AND PAR 7 WILL BE MAPPED T0 THE 1/0
.

INPUTS:

R1 CONTAINS

THE BASE

ADDRESS OF

THE

8 PARS

TO BE

INITIALIZED

: OUTPUTS: NONE
; SUBORDINATE ROUTINES USED: NONE

; FUNCTIONAL SIDE EFFECTS: NONE
: CALLING SEQUENCE:

819

001554
001560
001562
001564
001570
001572
001576
001602

012702 000006
010321
062703 000200
077204
012721 002000
012711 177600

005003

000207

LDPARS: MOV
CLR
18:
MOV
ADD
S08
MOV
MOV

RTS

JSR

06,
R2
R3
R3,
(R1)+
0200,
R3
R2,
18
02000, (R1).
9177600, (R1)

PC.LDPARS

LET LOOP COUNTER COUNT FIRST 6 PARS
s INITIALIZE INDEX VALUE
:LOAD PARS
:INDEX IN 4K INCREMENTS
iLOAD FIRST SIX PARS
:LET PAR6 MAP TO 200000
{LET PAR7 MAP TO I/0 PAGE

:RETURN

GLOBAL

AREAS

KDJ11A.MAC

MACY11

30A( 1052)

03-APR-84 11:36

820
821
822
823
824
825
826

O4-APR-84

12
10:38

PAGE 21

;s FUNCTIONAL DESCRIPTION:

SUBROUTINE TO INITIALIZE ALL THE MMU PAGE DECRIPTOR REGISTERS (PDRS).

THIS ROUTINE WILL

0
w0
@0

NOTE:

;

A BASE ADDRESS

4K READ/WRITE BYPASS AND PDRS 6 AND 7 WILL BE INITIALIZED TO
4K READ/WRITE NO BYPASS.

829

INITIALIZE 8 PDRS STARTING AT

SUPPLIED BY THE CALLING ROUTINE. PDRS 0-5 WILL BE INITIALIZED TO

827
828

830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846

SEQ 0021

GLOB AL SUBROUTINES SECTION

THERE IS NO NEED TO BYPASS ON I/0 PAGE REFERENCES BECAUSE

THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES.

INPUTS:

R1 CONTAINS

THE BASE

ADDRESS OF

THE NEXT 8 PDRS

TO BE

INITIALIZED

: OUTPUTS: NONE
: SUBORDINATE ROUTINES USED: NONE
s FUNCTIONAL SIDE EFFECTS: NONE

001604
001610
001614
001616
001622

001626

012702
012721
077203
012721
012711
000207

177406

077406
077406

: CALLING SEQUENCE:

JSR

LOPDRS: MOV

1$:

MOV
SOB
MOV
MOV
RTS

06,

2177406,(R1)+
R2,
1$
@77406, (R1)+
277406, (R1)
PC

PC.LDPARS
sLET LOOP COUNTER COUNT FIRST 6 PARS

:LOAD PDRS WITH
:LOAD FIRST SIX
;LET PAR6 BE 4K
sLET PAR7 BE 4K
:RETURN

4K READ/WRITE BYPASS
PDRS
READ/WRITE NO BYPASS
READ/WRITE NO BYPASS ALSO

GLOBAL AREAS
KDJ11A.MAC

MACY11l

03-APR-84 11:36

847
848
849
850
851
852
853
854
855
856
857

O04-APR-84

10:38

PAGE 22

Je
SEQ 0022

GLOBAL SUBROUTINES SECTION
e

; FUNCTIONAL DESCRIPTION:

SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAM TESTS.

INPUTS:

MEMORY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE

OUTPUTS:

NONE

; SUBORDINATE ROUTINES USED: NONE

858
859
860
861
862
863
864

865
866
867
868
869
870
871

30A(1052)

s FUNCTIONAL SIDE EFFECTS: NONE

: CALLING SEQUENCE: CALLED BY PARITY ABORT

:
:

MOV
MOV

001325

.WORD
.WORD

001636

000002

RTI

RAMPAR:

;SAVE CONTENTS OF PARITY ABORT VECTOR
:LET VECTOR POINT TO PARITY ABORT ROUTINE

(CACHE PARITY ERROR OCCURS)

001630
001630
001632
001634

104000

a0114,
SLOCOO
#DSPAR, 39114

ERROR

1
ERRMSG

;ALL ERRORS TO TRAP TO EMT VECTOR
:UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

;RETURN

;CACHE SYSTEM ERROR

03-APR-84

30A (1052

11:36

04-APR-84

we
e
W
Be
G0
G0
B2

879
880

®s

881
882
883
884
885
886
887
888
889
890

204
905
206
907
908

SEQ 0023

DESCRIPTION

SUBROUTINE TO HANDLE SOFT ERRORS THAT MAY BE CAUSED BY

APT SYSTEM MONITORING DURING THE CACHE TEST. FOR EXAMPLE:
IF A TEST IS USING THE HIT/MISS REGISTER TO MONITOR CACHE
ACTIVITY, AND APT BREAKS IN, THE HIT/MISS REGISTER WILL BE
MODIFIED. WHEN THE TEST RESUMES, A FALSE ERROR MAY BE CAUSED Bf
THE CORRUPTED HIT/MISS REGISTER. LIKEWISE, A TEST MAY INITIALIZE

CACHE TO A KNOWN STATE (ALLOCATED/NOT ALLOCATED); AN APT
BREAK MAY CAUSE CACHE STATE TO ALTER AND THE TEST TO FAIL.

: INPUTS
:
SOFTRE CONTAINS RETURN ADDRESS TO BEGINNING OF TEST
;
TEST AGAIN ON ERROR

+4 TO

;OUTPUTS: NONE
;SUBORDINATE ROUTINES USED:

891

898
899
900
9201
202
903

PAGE 23

FUNCTIONAL

877
878

897

IK2

GLOBAL SUBROUTINES SECTION

872
873
874
875
876

892
893
894
895
896

10:38

)

KDJ11A.MAC

MACY11

GLOBAL. AREAS

NONE

sFUNCTIONAL SIDE EFFECTS: NONE

:CALLING SEQUENCE:
001640
001646
001650
001654
001656
001662
001666
001672
001676
001702
001710
001714

122767
001022
005767
001017
062706
005267
005037
005037
005037
012737
000177
000207

000001

177152

APTSFT:

177242

000002
177230
177744
177572
177766
000400
177204

CMPB

BNE
TST

1$:

OAPTENV, SENV

SOFTER

BNE
ADD
INC
CLR
CLR

1$
#2,R6
SOF TER
S6MSER
80SR0O

MOV
JMP

9B1T08,30CCR
aSOF TRE

CLR

177746

JSR

RTS

80CPEREG

PC.APTSFT

sARE WE

IN APT MODE?

$NO SOFT ERRORS IF NOT IN APT MODE

sHAS A SOFT ERROR ALREADY OCCURRED?

:IF YES GO TO ERROR
:CLEAN UP THE STACK TO RETRY TEST
s INCREMENT THE SOFT ERROR COUNTER
;:CLEAR THE MSER
;TURN OFF MMU
:CLEAR THE CPU ERROR REGISTER
iFLUSH THE CACHE, CLEAR THE CCR
sRETRY TEST
sGO TO ERROR. ERROR OCCURRED MORE
: THAN ONCE OR NOT IN APT MODE.

GLOBAL AREAS

KDJ11A.MAC =
909

910

001716

MACY11 30AC1052)

O3-APR-84 11:36
012737

000014

O04-APR-84

10:38

PAGE 24

GLOBAL SUBROUTINES SECTION

177746

START:

8N 00e

MOV

214, 80CCR

65$:

MOV

OSWREG, SWR

: sPOINT TO SOFTWARE SWR

668:

MOV

(SP)+,80ERRVEC

; ;RESTORE ERROR VECTOR

937
938
939
940
941

LMACRO

943

$ARG1:

$$SETMAIL
2$ARG1
CLR
$PASS
BITB
OAPTSIZE,S$ENVM
8EQ
$ARG1
MOV
@$SWREG, SWR

911
912
913
914
915
916
917
918
919
920
921
952
923
924
925
926
927
928
929
930
931
932

933
934

335

001724
001730

001736

012706
012737

012737

001000
013314

000340

000030

000032

001744
001752
001760
001764

012737
012737
005067
016767

012766
000340
177022
007012

007002

001776
002002
002010
002016
002024
002032

013746
012737
012767
012767
022777
001012

000004
002036
177570
177570
177777

000004
177030
177024
177014

002034
002036
002042

000403
012716
000002

001772

105067

002044

012767

002060

012637

002052

012767

177054

000034
000036

002044

000176

000174

000004

176774

176770

942
944
945
946

002064
002070
002076

005067
132767
001403

176723

002100

012767

001022

176740

949

002106

012737

013314

000020

951
952
953

002122
002126
002132

005037
104401
104401

177766
001162
001224

955
956
957
958
959
960
961
962
963

002136
002142
002144
002152
002154
002162
002164
002166
002170

005737
001012
126727
001406
026727
001005
104406
000403
112767

000042

954

964

002114

002176

012737

000340

000022

.SBTTL
000001

176666

000176

000001

010566

MOV

685:

695:

ODISPREG,DISPLAY

$S$SETMAIL

CLR
BITB
BEQ

$PASS
OAPTSIZE,S$ENVM
673

MOV

O$ERROR, 80IOTVEC

MOV

TYPE

176650

1SET CACHE

TO FORCE MISS

INITIALIZE THE COMMON TAGS
MOV
9STACK, SP
131SETUP THE STACK POINTER
s s INITIALIZE A FEW VECTORS
MOV
O$ERROR, BOEMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
MOV
0340, B0EMTVEC+2 ; jLEVEL 7
MOV
#$TRAP, B0TRAPVEC ;3 TRAP VECTOR FOR TRAP CALLS
MOV
0340, 90TRAPVEC +2;LEVEL 7
CLR
$PASS
1 ;CLEAR THE PASS COUNT
MOV
SENDCT,$EOPCT ; ;SETUP END-OF -PROGRAM COUNTER
CLRB
$ERFLG
1 1CLEAR THE ERROR FLAG
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
11EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
SOERRVEC, -(SP)
;;SAVE ERROR VECTOR
MOV
064% ,80ERRVEC
;;SET UP ERROR VECTOR
MOV
2DSWR, SWR
13SETUP FOR A HARDWARE SWICH REGISTER
MOV
0DDISP,DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
cHP
-1,85uR
11 TRY TO REFERENCE HARDWARE SWR
BNE
665
1:BRANCH IF NO TIMEOUT TRAP OCCURRED
:1AND
THE MARDWARE SWR IS NOT = -1
BR
654
: 1BRANCH IF NO TIMEOUT
64s:
MOV
0653, (SP)
:1SET UP FOR TRAP RETURN
RTI

LENDM

176716
000200

347

950

.SBTTL

@$SWREG, SWR

0340, 90T10TVEC»2

: iCLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
:YES,USE NON-APT SWITCH
1 iNO,USE APT SWITCH REGISTER
: ;CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
1 3YES,USE NON-APT SWITCH

1NO,USE APT SWITCH REGISTER
+3SET UP TOT VECTORS

1370 GO TO ERROR ROUTINE

CLR
80177766
;CLEAR CPU ERROR REGISTER
,0OPMSG2
;OPERATOR MESSAGE 2
TYPE . ,OPMSG3
sOPERATOR MESSAGE 3

GET VALUE FOR SOF TWARE SWITCH REGISTER

ST
BNE
CMPB
8EQ
cMP
BNE
GTSWR
BR
MOVB

8042
683
SENV,01
683
SWR , OSWREG
693
693
o1, $SAUTOB

1 1ARE WE RUNNING UNDER XXDP/ACT?
1 1BRANCH IF YES
11ARE WE RUNNING UNDER APT?
1 iBRANCH IF YES
11SOF TWARE SWITCH REG SELECTED?
: 1BRANCH IF NO
:1GET SOFT-SWR SETTINGS
3 sSET AUTO-MODE INDICATOR

AREAS
.MAC

002176
002202

oSIRIUAPD
005067
012737

176602
000014

-APR -84

0:38

25
GET VkLUE FORPAGE
SOFTWARE SWITCH REGISTER

177746

RESTART:

CLR
MOV

SEQ 0025

$TESTN
©14,80CCR

sRESET STESTN TO ZERO
:SET CACHE TO FORCE MISS

$38440
40800000
444
ARARARRRAA
408
RRE R AR 00000
000
0 ARR000000
08
4

;#TEST

CACHE REGISTER ACCESS

TEST

$38544
000000
884
RRRRARRRRRA
848
RE AR
800
RRRARAARRA
000
RRRLRA0A04
0
4

sCHECK REGISTER ACCESS - THIS TEST WILL VERIFY EACH OF THE THREE
sCACHE MEMORY SYSTEM REGISTERS CAN BE ACCESSED WITHOUT A TRAP TO

8%2C?£§$204£22N-EXISTANT ADDRESS TRAP) OCCURRING.
:

:
H

CACHE CONTROL
MEMORY SYSTEM ERROR

HIT/MISS

THE REGISTERS TO

17777746
17777744

17777752

:EACH REGISTER WILL BE ACCESSED WITH A WRITE CYCLE.
i

sBGNTST
:SAVE CONTENT OF LOCATION 4
;LET LOCATION 4 POINT TO ERROR ROUTINE
;sTEST THE CACHE REGISTERS
;RESTORE CONTENTS OF LOCATION 4
TST
sEXIT

987
988
989

;CACHE REGISTER ADDRESSES
H
CCR=
17777746
H
MSER=
17777744

3
HITMIS= 17777752
;ERROR ROUTINE: ERROR IN CACHE SYSTEM
H

RETURN

sENDTST

002210
002210
002214
002222
002230
002234
002242
002246
002252
002256
002262
002266
002272
002276

33 ‘.000‘.0‘.“.0.“.".“‘..0“‘..‘“.““0‘..“‘.‘..0‘....0“...

005267
013767
012737
013704
012737
005037
005037
005037
010437
005037
005037
005037
000167

176570

000114
001630
000004
002302

TST1:

176606
000114

177746
177744
177752
000004
177744
177766

INC
MOV
MOV
MOV
MOV

$TESTN
80114,SL0CO0
ARAMPAR, 80114
804 R4
#ERROUT , 304

;sINCREMENT TEST NUMBER
:SAVE PARITY INTERRUPT VECTORS
sSET UP TRAP CATCHER FOR PARITY ERRORS.
:SAVE CONTENTS OF VECTOR 4
:LET VECTOR 4 POINT TO ERROR ROUTINE

CLR
CLR
MOV
CLR
CLR
CLR
JMP

SoMSER
SOHITMIS
R4 ,304
SOMSER
80CPEREG
80SOFTER
TST2

; TEST ACCESS TO MEMORY SYSTEM ERR REG
s TEST ACCESS TO HIT MISS REGISTER
;RESTORE VECTOR
;:CLEAR THE MEM SYS ERROR REG
;:CLEAR THE CPU ERROR REGISTER
;:CLEAR THE SOFT ERROR COUNT
:JUMP OVER DATA TABLES OR SUBROUTINES

CLR

001116
000010

84CCR

: TEST ACCESS TO CACHE CONTROL REG

:TO NEXT

002302
002302
002304
002306

001325

ERROR
.WORD
.WORD

002310

000002

RTI

104000

ERROUT:

2
ERRMSG

TEST

sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:CACHE SYSTEM ERROR
;CONTINUE FROM ERROR

OBAL. AREAS

KDJ11A ,MA

002312

SEQ 0026

CcTsT2:!

L Yy
T VYT Y
I
rrrrrrrYYTMm

1#TEST 2

TEST CACHE CNTRL REG BITS

BAMAAARAAAMAMARARARARIAAARARARARARAAANARAARARARANANARANIASAAANS

léCfl l!GIlT!lng TEST - THIS TEST WILL VERIFY THAT EACH READ/WRITE BIT OF
ONTROL REG!!TIR AN BE SET AND CLEARED INDIVIDUALLY AND THAT
IIITS 15 - 11 AND BIT8
WAYS READ AS ZEROS.
1BGNTST
VINITIALIZE GOOD DATA TO 41
|CLEAR CCR
iDO UNYIL ALL BITS TESTED
DATA TO CCR

°
y °‘N B

8000 DATA NOT EQUAL TO BITS¢15-11> OR BIT 8 THEN

ERROR IN CA SYSTEM

ENDIF

o
;

lfltsl IN CACHE SYSTEM

ENDIF
ATE TO NEXT BIT

JENDTST

";;“.“.“.‘.‘.““““‘.“““““““‘.““.‘.‘...‘.““.““

Hox

18:

fib

000400

177746

Sfi'

IWRITE

¢t

:}74400.01

1CLEAR

CCR

DATA TO CCR

l¥:!£CR NOT EQUAL GOOD DATA

:;FCCR EQUAL TO ZERO

uI:‘GOOO DATA NOT BITS<15-11> OR 8

«WORD

ERRMSG

aUN

as;

MP
NE
MOV

#2000, 80CCR
S¢
0400,84CCR

1WAS LAST r
WRITE WRONG TAG PAR?
1 IF NOT
LEFT AND DO NEXT TEST,
.rLusn
to Glt RID OF WRONG

ROL

uUP Art ro NEXT BIT

177746

éfi

BR
!lngs
’

002000

INCREMENT TEST NUMBER

s INITIALIZE GOOD DATA TO #1

nALL ERRORS TO TRAP TO EMT VECTOR
uUN QUE ERROR Ng:l!
SS OF ERROR
MESSAGE
1CACHE SYSTEM ERROR
1ENDIF

£
a8
M
Y~

]

3
ERRMSG

104000

STESTN

'
'

o
28
N

1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044

o8 APR BaT1 4320 O04-APR.O4 1043
. RECTEren
2 ACCESSCVEST

1021
1022

8CC

tALL ERRORS TO TRAP TO EMT VECTOR
ERROR NUMBER

SS OF ERROR MESSAGE

CACHE SYSTEM ERROR

100 UNTIL ALL BITS TESTED

GLOBAL AREAS

30A(1052)

KDJ11A.MAC

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

11:36

O4-APR-84

002414

10:38

PAGE 27

SEQ 0027

TEST CACHE CNTRL REG BITS

CT1ST3:;
$10600080404000000000400080000000000000000000000000000000000000800048

3soTEST 3

TEST FORCE MISS FUNCTION

119088004060000000040080040000000000000000800000000000000000008000

sFORCE MISS TEST - THIS TEST WILL VERIFY THAT ALL REFERENCES MADE

sWITH EITHER BIT<3> OR BIT<2> OF THE CCR SET CAUSE A CACHE MISS AND

sLEAVE THE CACHE ENTRY UNCHANGED. FIRST WRITE A TEST ADDRESS WITH
1BITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA PATTERN
sINTO THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH
sNEW DATA. NEXT CLEAR BITS<3:2> AND READ THE TEST ADDRESS, THE DATA

$1SHOULD EQUAL TO PATTERN 1. FINALLY READ THE TEST ADDRESS WITH BIT<3>
sSET, THE DATA SHOULD EQUAL PATTERN 2. A LAST WRITE MUST BE DONE WITH
3B0TH FORCE BITS CLEARED BECAUSE THE CACHE AND MAIN MEMORY HAVE

:DIFFERENT DATA,
H
H

T
:1BGNTS
tWRITE TEST ADDRESS WITH PATTERN 1

:SET CCR BITS<3:2>

= 0,1

sWRITE TEST ADDRESS WITH PATTERN 2
sCLEAR CCR BIT<3>
sREAD TEST ADORESS
1SAVE HIT/MISS REGISTER DATA
:COMPARE RECEIVED DATA TO PATTERN 1
:IF DATA NOT EQUAL THEN
8ERROR IN CACHE SYSTEM
sENDIF
sSET CCR<3:2>

1,0

sREAD TEST ADDRESS
3$SAVE HIT/MISS REGISTER DATA
;COMPARE RECEIVED DATA TO PATTERN 2
s IF DATA NOT EQUAL THEN
s
ERROR IN CACHE SYSTEM
;ENDIF
sCLEAR CCR<3:2>

sWRITE TEST ADDRESS

sENDTST
H

$30000000000000000000000000060000000000008000000000000000080008008840

002414
002414
002420
002426

005267
012737
005037

002550

001122

000114

002432
002440

012767
012737

000004
177777

002446

012767

000200

002454
002460
002462
002464
002466
002470

013701
005701
001403
104000
000005
001325

001122

176364

TST3:

INC

MOV

S$TESTN

OFMPARR, 80114

CLR

80TSTLOC

175306
001122

MOV
MOV

#BIT02, CCR
©177777,80TSTLOC

175272

MOV

@200,

MOV

80TSTLOC,R1

CCR

1 INCREMENT TEST NUMBER

1SETUP PARITY VECTOR TO POINT TO HANDLER

tWRITE TEST LOCATION WITH PATTERN 1
sALLOCATES CACHE AND MEMORY WITH ZEROS

1SET CCR BITS<3:2> = 0,1(FORCE CACHE MISS)
sWRITE TEST LOCATION WITH PATTERN 2

sWRITES MEMORY WITH ONES, CACHE STILL ZEROS
1CLEAR CCR BIT 3 (CLEAR FORCE MISS)

tAND SET PARITY ABORTS
tREAD TEST ADDRESS (SHOULD READ ZEROS IN CACHE)

TST

1COMPARE RECEIVED DATA

.WMORD
.WORD

S
ERRMSG

tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

BEQ
ERROR

TO PATTERN

1 IF DATAS NOT EQUAL THEN
;ALL ERRORS TO TRAP TO EMT VECTOR

GLOBAL.

AREAS

KDJ11A,MAC

1133

1134
1135
1136
1137
1138
1139

1140
1141
1142
1143
1144

1145

1146

1147

1148
1149

1150
1151
1152
1153
1154
1155
1156
1157
1158
1159

002472
002500
002504
002510
002512
002514
002516

002520
002524
002530
002534
002540
002544
02550
002550
002552
002554

MACY11

30A(1052)

052767

000010

175246

03 APR 84 11536
013701
020127

001403
104000
000006
001325
005067

005037
005037
005037
005037
000167

001122
177777

175222

001122
177744
177766
001116
000006

1$:

BIS

MOV
cMP

002556

)

oBITO3,

CCR

80TSTLOC,R1
R1,
0177777

SEQ 002
0028
1CACHE SYSTEM ERROR

1SET CCR BITS <3:2>

1,0(FORCE CACHE MISS)

sREAD TEST LOCATION (SHOULD READ ONES IN MEMORY)
1COMPARE RECEIVED DATA TO PATTERN 2

BEQ
ERROR
.WORD
.WORD

6
ERRMSG

+IF DATAS NOT EQUAL THEN
1ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

CLR

CCR

1CLEAR CCR BITS<3:2>

CLR
CLR
CLR
CLR
JMP

FMPARR :

104000
000007
001325

Test FBRcE nrss FUNCTION

10:

2s:

ERROR
.WORD
.WORD

80TSTLOC
@OMSER
B0CPEREG
80SOF TER
TSTa

7
ERRMSG

1CACHE SYSTEM ERROR

iWRITE TEST ADDRESS
1CLEAR THE MEM SYS ERROR REG
1CLEAR THE CPU ERROR REGISTER
1CLEAR THE SOFT ERROR COUNT
1JUMP OVER DATA TABLES OR SUBROUTINES
:TO NEXT TEST

tPARITY ERROR ON FORCE MISS
sALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

CTSTa:
3308088808000 000000:100000000000000000000000000000000000000000008000

1oTEST 4

TEST MIT MISS REGISTER

$390808000880000280000000000000000000000000000000000080000000080040048

1160

sHIT/MISS REGISTER TEST PART 1 - THIS TEST WILL VERIFY THAT THE HIT/MISS
sREGISTER CORRECTLY LOGS MITS AND MISSES.FIRST WRITE A TEST ADORESS WITH
1BITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA PATTERN INTO
sTHE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH NEW DATA.
sNEXT CLEAR CCR BITS<3:2> AND READ THE TEST ADDRESS, THE HIT/MISS REGISTER
$SHOULD MAVE LOGGED A HIT. FINALLY READ THE TEST ADDRESS PLUS 20000(8) THE
sMIT/MISS REGISTER SHOULD MAVE LOGGED A MISS.

1161
1162
1163
1164
1165

1166
1167
1168
1169

1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188

APR-

H
H

sBGNTST
sWRITE TEST ADDRESS WITH PATTERN 1
$SET CCR BTTS¢3:2> = 0,1
sWRITE TEST ADDRESS WITH PATTERN 2
sCLEAR CCR BIT<3>
;READ TEST ADDRESS
s IF HIT/MISS REGISTER BIT 3 NOT SET THEN

i
ERROR IN CACHE SYSTEM
sENDIF
sREAD TEST ADDRESS + 20000(8)
:IF HIT/MISS REGISTER BIT 3 SET THEN
.
ERROR IN CACHE SYSTEM
sENDIF
:ENDTST

002556
002556
002562
002570

3508800388048 00000000000000000080080000000000000000000000000000000

005267
012737

005037

176222
002702

001122

TST4:

000114

INC
MOV
CLR

STESTN
OHMPARR, 80114
80TSTLOC

1 INCREMENT TEST NUMBER
sSETUP PARITY VECTOR TC POINT TO HANDLER

tWRITE TEST LOCATION WITH PATTERN 1

GLOBAL AREAS
KDJ11A «MAC

1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244

MACY11

03-APR-84

30A(1052)

11:36

04-APR -84
T4

10:38

PAGE 29

D3
SEQ 0029

TEST HIT MISS REGISTER

iWRITE CACHE ANL MEMORY WITH ZEROS

002574
002602

012767
012737

000004

177777

175144
001122

MOV
MOV

@BIT02,

CCR

0177777,86TSTLOC

002610

012767

000200

175130

MOV

9200,

CCR

002616
002622
002630
002632
002634
002636

013701
032737
001003
104000
000010
001325

001122
000010

MOV

80TSTLOC,R1
:gITOS. SOHITMIS

002640
002644
002652
002654
002656
002660

013701
032737

021122
000010

000011
001325

002662
002662
002666
002672
002676

005037
005037
005037
000167

002702
002702
002704
C02706

104000
000012
001325

002710

001403
104000

177752

BIT
BNE
ERROR
. WORD
.WORD
18:

MOV

BIT
BEQ

177744
177766
001116
000006

2s:

i+ AND SET PARITY ABORTS
tREAD TEST ADDRESS (SHOULD BE CACHE MIT)
;%:EnIT/HISS REGISTER BIT 3 NOT SET
'

sALL ERRORS TO TRAP TO EMT VECTOR

10
ERRMSG

tUNIQUE ERROR NUMBER

86TSTLOC.8192.
,R1
5?1703. SOHITMIS

sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
sREAD TEST LOCATION + 20000(8) SHOULD MISS
‘¥:E:IT/"ISS REGISTER BIT 3 SET
:

ERROR

.WORD

11
ERRMSG

CLR

SO0MSER
84CPEREG
80SOFTER
TST5

.WORD

1SET CCR BITS<3:2> = 0,1(FORCE CACHE MISS)
IWRITE TEST LOCATION WITH PATTERN 2
tMEMORY =-1, CACHE STILL ZERO
1CLEAR CCR BIT 3 (CLEAR FORCE “MISS)

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR

tCLEAR THE MEM SYS ERROR REG
;CLEAR THE CPU ERROR REGISTER
;CLEAR THE SOFT ERROR COUNT
sJUMP OVER DATA TABLES OR SUBROUTINES
s TO NEXT TEST

HMPARR

sPARITY ERROR DURING HIT/MISS REGISTER

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

12
ERRMSG

CT1STS:
$35000000000000000000000000000000000000000000000830040000000800808

soTEST S

TEST HIT MISS REGISTER BITS

$30680048000000000000000000000000800000000000000000400000000008088

sHIT/MISS REGISTER TEST - THIS TEST WILL VERIFY THAT THE MIT/MISS
sREGISTER CORRECTLY LOGS CACHE HITS AND MISSES.
s THAT EACH BIT OF

THE REGISTER IS UNIQUE.

IT WILL ALSO VERIFY

THIS WILL BE DONE BY

sFLOATING A ZERO THROUGH A FIELD OF ONES. THE ROTATING WILL BE DONE
1BY EXECUTING A TST 80MHM (WHERE HM IS THE ADDRESS OF THE HIT/MISS
+REGISTER) AT SUCCESSIVE POSITIONS IN A SET OF FOUR NOPS. THE READ
:OF THE I/0 PAGE ADDRESS OF THE MIT/MISS REGISTER SHOULD CAUSE A
sMISS TO BE RECORDED.
]

sBGNTST

s INITIALIZE LOOP INDICATOR
sINITIALIZE EXPECTED DATA
;00 UNTIL LOOP INDICATOR = SEVEN
H
.
i.
3.

PUT BACKGROUND DATA INTO EXECUTION BUFFER
PUT TST INSTRUCTION INTO TEST LOCATION
JUMP TO EXECUTE BUFFER
IF EXPECTED DATA NE RECEIVED DATA THEN
ERROR IN CACHE

SYSTEM

TEST

GLOBAL ARE AS

KDJ11A.MAC

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

1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274

1275
1276
1277
1278
1279
1280
1281

1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300

MACY11

03-APR-84

30A(1052)

11:36

O4-APR-84

PAGE 30
10:38
TEST HIT MISS REGISTER BITS

.
.

ENDIF
INCREMENT LOOP INDICATOR
UPDATE EXPECTED DATA

sEXIT

5EQ 0030

TST

;BACKGROUND DATA:

3
;

NOP
NOP

:
:

NOP
NOP

MOV

RTS

:ENDTST

3508888088000

002710
002710
002714

002722
002726
002732
002736
002744
002746
002752
002756
002762
002764
002766
002772
002774

003002
003004
003010
003012
003012
003020
003024
003026
003030

005267
012737
005067
012703
012704
026727
001432
012705
012701
012702
012122
077502
005763
005723
004767
022405
001003
005267
000752
012737
004767
104000
000013
001325

003032
003032
003036
003042
0030436

005037
000167

003052
003054
003056
003060
003062
003066

000240
000240
000240
000240
013705
000207

005037
005037

176070

001630

176132

020000
003070

176116

T1STS:

000450402080808 000000804800 08800 800000000000 0040800000

INC

MOV

000007

MOV
MOV
cMP

€20000,R3
QEXPTBL
R4
LOOPIN, @7

MOV
MOV
MOV
MOV
S08
TST
ST
JSR

07.RS
®BACDAT,R1
#TSTLOC,R2
(R1)e,
(R2).
RS,
2
TSTLOC(R3)
(R3)»
PC,
TSTLOC

CLR

18:

28:

001122

176122
176050

3‘
001120

BEQ

cMP
BNE
INC
BR

ENDHRT
;

177752

LOOPIN

ENDHRT

(R4).,
3¢
LOOPIN
1s

@T575.4,80S0
TRE
F
PC.APTSFT

.WORD

ERRMSG

s INCREMENT TEST NUMBER
:SET UP VECTOR FOR UNEXPECTED PARITY ERROR
s INITIALIZE LOOP INDICATOR
;LOAD R3 WITH 1ST ADDR IN 2ND BANK OF MEM,
;GET ADDRESS OF EXPECTED DATA TABLE
;D0 UNTIL LOOP INDICATOR EQUALS 7
s THEN EXIT
sLOAD R2 WITH 7
sPUT BACKGROUND DATA INTO
sEXECUTION BUFFER
sLOOP FOR SEVEN WORDS

sSETUP MISS ON FETCH OF INSTRUCTION
:INC R3 BY 2
:GO EXECUTE TEST CODE
:IF EXPECTED DATA NOT EQUAL TO
sRECEIVED DATA THEN
;s INCREMENT LOOP COUNTER
:

+MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

+CACHE SYSTEM ERROR

CLR
CLR
CLR

SOMSER
80CPEREG
AOSOF TER

,WORD
.WORD
.WORD
.WORD

NOP
NOP
NOP
NOP

JMP
BACDAT:

ORAMPAR, 80114

MOV
JSR
ERROR

.WORD

177744
177766
001116
000034

$TESTN

000114

000007
003052
001122

002714
176614

80HM RS
PC

MOV
RTS

1576

SOHITMIS
RS
PC

;:CLEAR THE MEM SYS ERROR REG
:CLEAR THE CPU ERROR REGISTER
tCLEAR THE SOFT ERROR COUNT
:+JUMP OVER DATA TABLES OR SUBROUTINES
s TO NEXT TEST

$SAVE CONTENTS OF HIT/MISS REGISTER

1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311

1312
1313
1314
1315
1316
1317

1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356

003070
003072
003074
003076
003100
003102
003104

003106

os AR e TT1g52) 0a-APR_gs 10:39 PAGE Alss REGISTER BITS
000077

000037
000057
000067
000073
000075
000076

EXPTBL:

.WORD

GLOBAL AREAS
KDJ11A,.MAC

77
37
57
67
73
75
76

CTST6:
5888880400405 0480000004048040200880880080800004000800

;+TEST 6

TEST BYTE ALLOCATION OF CACHE

00000000000400e

P88 00404004
0004800008080
0044
004000000040
8000
800040840000
000
0008

:BYTE ALLOCATION TEST- THIS TEST WILL VERIFY THAT THE CACHE SYSTEM CORRECTLY
+HANDLES BYTE ACCESSES. THE TEST WILL FIRST CHECK THAT A WRITE ACCESS WHICH
+IS A MISS DOES NOT UPDATE THE CACHE. THIS WILL BE DONE BY FIRST ASSURRING
sA MISS AT A TEST LOCATION. THEN A WRITE BYTE ACCESS WILL BE DONE. FINALLY
s THE LOCATION WILL BE READ. THE WRITE BYTE SHOULD NOT HAVE ALLOCATED THE
sADDRESS. NEXT THE TEST WILL VERIFY THAT IF A WRITE BYTE ACCESS IS A HIT
s THAT THE CACHE LOCATION IS UPDATED.

THE

TEST WILL FIRST WRITE A TEST LOCATION

+WITH A PATTERN TO ALLOCATE THE ADDRESS. THEN A SECOND PATTERN WILL BE WRITTEN
:7O THE HIGH BYTE OF THE TEST LOCATION. THE TEST LOCATION WILL THEN BE READ.
+IF THE HIGH BYTE OF THE TEST LOCATION IS EQUAL TO THE SECOND PATTERN THEN THE
lkggggggg WAS UPDATED. THE SECOND TEST WILL BE REPEATED TO TEST LOW BYTE
'

sBGNTST
sSAVE VECTOR 114
;LET VECTOR 114 POINT TO BYTE PARITY ROUTINE

:SET PARITY ABORT BIT IN CACHE CONTROL REGISTER

sREAD TEST LOCATION + 4K
sWRITE LOW BYTE TO TEST ADDRESS
sREAD LOW BYTE OF TEST ADDRESS
s IF HIT/MISS REGISTER BIT 3 SET THEN
'éNDIF ERROR IN CACHE SYSTEM
:

sWRITE PATTERN 1 TO TEST LOCATION
sWRITE BYTE PATTERN 2 TO TEST LOCATION-1
sIF BIT1 NOTSETIN HIT/MISS REGISTER THEN
b»
ERROR IN CACHE SYSTEM
sELSE
e
READ TEST LOCATION

g
'émrr

IF RECEIVED DATA NOT EQUAL TO EXPECTED DATA THEN
.
ERROR IN CACHE SYSTEM

sWRITE PATTERN 1 TO TEST LOCATION
sWRITE BYTE PATTERN 2 TO TEST LOCATION LOW BYTE
sIF BIT1 NOTSETIN HIT/MISS REGISTER THEN
¥a
ERROR IN CACHE SYSTEM
sELSE

5
§
'éNDIF
H

READ TEST LOCATION
IF RECIEVED DATA NOT EQUAL TO EXPECTED DATA THEN
ERROR IN CACHE SYSTEM

AREAS

05 AR B T

A32) 04-APR.ge 10:38 BTV SR iocaTIon o CACHE

SEQ 0032

sCLEAR CACHE CONTROL REGISTER
sRESTORE VECTOR 114

EXIT

TST

;BYTE PARITY ROUTINE:

sENDTST

$088828808482880

003106
003106
003112
003120
003126

012767
005767

105067
105767
032737

175672

003374
000200
015770

003132
003136
003142
003150
003152
003160
003164
003166
003170

104000
000014
001325

003172
003176
003204
003212
003214
003222
003226
003230
003232

005067
152737
032767
001011
012737
004767
104000
000015
001325

003234
003236
003244

003260
003262
003264

000414
022737
001410
012737
004767
104000
000016
001325

003266
003272
003300
003306

005067
152737
032767
001011

175630
000377
000010

003310
003316
003322
003324
003326

012737
004767
104000
000017
001325

003112
176316

003330
003332

000407
022737

003246
003254

1407
1408
1409
1410
1411
1412

005267

012737

001410
012737
004767

175764
175760
000010
003112
176454

175724
000377
000010

003112
176412

TSTE:
000114

174620

001120

001123
174540

001122

003112
176360

001120

000377

1$:

001122
174444

28:

3s:

001120

oo01122

INC
MOV
MOV
ST

CLR

B8ISB

BIT
BNE
MOV
JSR
ERROR
.WORD
.WORD

001120

177400

0044888820804 0 0000000040000 4 040000000000
0dtis
0t

CLRB
TST8
BIT
BEQ
MOV
JSR
ERROR
.WORD
.WORD

177752

SAVE MSER
RETURN

B8R

cMP
BEQ
MOV
JSR
ERROR
.WORD
.WORD

CLR

STESTN
#BYPARR, 80114
oBIT07, CCR
TSTLOC+8192.

TSTLOC
TSTLOC
#BITO3, SMHITMIS
18
#7ST6+4 ,80S0F TRE
PC.APTSFT

14
ERRMSG
TSTLOC

0377,

80TSTLOC-1

#BITO3, HITMIS
28
@TST6+4,80S0F
TRE
PC.APTSFT

15
ERRMSG

€177400,84TSTLOC
3s
0TST6+4,80S0F
TRE
PC.APTSFT

16
ERRMSG
TSTLOC

BISB
BIT
BNE

€377,
80TSTLOC
OBITO3, HITMIS
43

MOV
JSR
ERROR
.WORD
.WORD

07ST6+4,80S0
TRE
F
PC.APTSFT

cMP

;READ TEST LOCATION

sON NEXT ACCESS OF TSTLOC
sWRITE LOW BYTE OF

TO CAUSE MISS

TEST LOCATION

;READ LOW BYTE OF TEST LOCATION
:IF BIT3 OF HIT/MISS REGISTER NOT SET
: THEN BRANCH
:MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;sADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
sWRITE PATTERN 1 TO TEST LOCATION

;WRITE PATTERN 2 TO HIGH BYTE
‘¥;E=IT3 NOTSETIN HIT/MISS REGISTER
:

:MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
sELSE
:IF TEST LOCATION NOT EQUAL TO

sPATTERN 2 THEN

+MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR

sWRITE PATTERN 1

TO TEST LOCATION

sWRITE PATTERN 2 TO LOW BYTE
:IF BITO3 SET IN HIT/MISS REGISTER
létgg BRANCH; WE GOT A HIT,
:

sMOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE

sALL ERRORS TO TRAP TO EMT VECTOR

17
ERRMSG
0377,

: INCREMENT TEST NUMBER
sLET VECTOR 114 POINT TO ABORT ROUTINE
:SET PARITY ABORT BIT IN CCR

tUNIQUE ERROR NUMBER
s+ADDRESS OF ERROR MESSAGE
:CACHE SYSTEM ERROR

aeTSTLOC

s IF TEST LOCATION NOT EQUAL TO

Gsmm. AREAS
KDJ11A.MA

1413
1414
1415
1416
1417
1418
1419
1420
1421
1422

1423
1424
1425

1426
1427
1428
1429
1430

1431
1432
1433
1434
1435
1436
1437
1438
1439

1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454

1455

1456
1457

1458
1459

1460
1461
1462

1463
1464
1465
1466
1467
1468

003340
003342
003344
003346
003350
003354
003360
003364

003370
003374
003374
003376
003400

003402

OS-lSR-& 11:&6
MACY11

30A(1052)

O4-APR-84

%gST ‘B‘%E 33ALLOCATION OF CACHE

10:

001403

104000

000020
001325
005067

005037
005037
005037
000167

104000

BEQ

.WORD
.WORD

20
ERRMSG

CLR

CCR

ERROR

174372

177744
177766
001116
000006

Ss$:

CLR
CLR
CLR
JMP

BYPARR:

ERROR

000021
001325

.WORD
.WORD

—
;PATTERN 2 THEN

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

;CACHE SYSTEM ERROR
1CLEAR CCR BEFORE EXIT

S4MSER
a0CPEREG
80SOFTER
TST17

:CLEAR THE
;CLEAR THE
;CLEAR THE
iJUMP OVER
:TO NEXT

MEM SYS ERROR REG
CPU ERROR REGISTER
SOFT ERROR COUNT
DATA TABLES OR SUBROUTINES

TEST

;PARITY ERROR DURING BYTE ALLOCATION TEST
sALL ERRORS TO TRAP TO EMT VECTOR

21
ERRMSG

sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

C1517:
(3888544080008 04400008000 8800008050000

;oTEST

TEST CACHE BYPASS

8 00000040000 04040040000440

(MMU)

$30884888408808080008800000000040880000800000000000000000080004844

sPDR BIT15 (BYPASS) TEST - THIS TEST WILL VERIFY THAT WHEN BIT<15> IS SET
:IN A PDR AND AN ACCESS IS MADE TO A LOCATION MAPPED BY THE SELECTED PDR
s THAT WOULD NORMALLY CAUSE A CACHE ACCESS, THE CACHE IS BYPASSED (I.E. THE
:CACHE LOCATION IS INVALIDATED AND A MAIN MEMORY IS READ. THIS WILL BE DONE
:8Y FIRST WRITING A TEST LOCATION WITH A KNOWN PATTERN TO ALLOCATE THE ADDRESS.
s THEN THE LOCATION WILL BE WRITTEN AGAIN WITH THE MMU ENABLED AND BIT <15> SET
+IN THE CONTROLING PDR WITH A NEW PATTERN. THE LOCATION WILL THEN BE READ
sAND A MISS SHOULD BE LOGGED IN THE HIT/MISS REGISTER. THIS READ WILL ALSO

:BRING VALID DATA INTO CACHE FROM MEMORY. THE MMU WILL AGAIN BE ENABLED
sWITH BIT <15> SET AND A READ CYCLE DONE. THIS SHOULD INVALIDATE THE CACHE.
sNEXT THE MMU WILL BE DISABLED AND THE LOCATION READ FOR A THIRD TIME. THIS

sWILL BE DONE WITH BIT<15> STILL SET. A MISS SHOULD ALSO BE LOGGED. LASTLY
:8IT<15> WILL BE CLEARED AND THE MMU ENABLED AND THE LOCATION AGAIN READ.
;THIS TIME A CACHE HIT SHOULD BE LOGGED.
[

;BGNTST
$SETUP MMU REGISTER
sWRITE TEST LOCATION WITH PATTERN 1
:SET BIT<15> IN PDR FOR TEST LOCATION
;:ENABLE MMU
sWRITE TEST LOCATION WITH PATTERN 2
;DISABLE MMU AND CLEAR BIT<15> IN PDR
;READ TEST LOCATION

:IF HIT/MISS REGISTER BIT<1> SET THEN

i
sENDIF

ERROR IN CACHE SYSTEM

;SET BIT<15> IN PDR FOR TEST LOCATION
;ENABLE MMU
sREAD TEST LOCATION (SHOULD INVALIDATE CACHE)
sDISABLE MMU
sREAD TEST LOCATION
; IF HIT/MISS REGISTER BIT<1>» SET THEN

GLOBAL AREAS
KDJ11A .MAC

MACY11l

03-APR-84

30A(1052)

11:36

O4-APR-84
17

1469
1470
1471

1485

1488
1489

1490
1491
1492
1493
1494
1495
1496
1497

1498

1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509

1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524

SEQ 0034

(MMU)

sENDIF
;CLEAR BIT<15> IN PDR
ON MMU
;TURN
sREAD TEST LOCATION

s IF HIT/MISS REGISTER BIT<1> NOT SET THEN

i.
sENDIF

1477

1486
1487

ERROR IN CACHE SYSTEM

1472
1473
1474
1475
1476
1478
1479
1480
1481
1482
1483
1484

10:38
PAGE 34
TEST CACHE BYPASS

ERROR IN CACHE SYSTEM

;TURN OFF MMU

;ENDTST
:

§i0

003402
003402
003406
003414
003420
003424
003432
003440
003446
003452
003460
003464
003472
003474
003502
003506
003510
003512

005267
012737
004767
005037
052767
052737
012737
005067
042767
013701
032767
001410
012737
004767
104000
000022
001325

003514
003522
003530
003534
003542
003546
003552
003560
003562
003570
003574
003576
003600

052767
052737
005767
042767
005067
005737
032767
001410
012737
004767
104000
000023
001325

003602
003610

052737
005737

000001
001122

177572

003614
003622
003624
003630
003636
003642
003644

032767
001012
005067
012737
004767
104000
000024

000010

174130

175376
001630
175772
001122
100000
000001
177777
174120
100000
001122
000010
003406
176132

100000
000001
175366
100000
174024
001122
000010
003406
176044

173742
003406
175776

288880880420 04 0000040000000

TST7:

000114
166646
177572
001122

166620

174260
001120

166556
177572

2s:

166536

INC
MOV
JSR
CLR
BIS
BIS
MOV
CLR
8IC
MOV
BIT
BEQ
MOV
JSR
ERROR
.WORD
.WORD

$TESTN
ORAMPAR, 80114
PC,
INITMM
80TSTLOC
#8IT15, KIPDRO

BIS
BIS
TST
8IC
CLR

#B8IT1S, KIPDRO
@8IT00,80SRO

TST

174172
001120

001120

@B1T00,84SRO

@177777,86TSTLOC

SRO
@B8IT15, KIPDRO
80TSTLOC,R1
gITO& HITMIS

QTST7+4,80S0F TRE

PC,APTSFT
22
ERRMSG

TSTLOC

#8IT1S5, KIPDRO
SRO
80TSTLOC
;gITOS. NITMIS

BIT
BEQ
MOV
JSR

@1ST77+4,80S0F TRE
PC.APTSFT

.WORD
.WORD

23
ERRMSG

BIS
TST

#81700,80SRO
80TSTLOC

BIT

:?ITOS. HITMIS

CLR

SRO
#TST7+4,80S0F TRE
PC.APTSFT

ERROR

3s:

MOV
JSR
ERROR
.WORD

AR AR

RA00 R0

RRL0 000000000000t ats

s INCREMENT TEST NUMBER
iSET UP FOR UNEXPECTED PARITY ERROR
s SETUP MEMORY MANAGEMEMT REGISTERS
;WRITE TEST LOCATION WITH PATTERN 1
:SET BIT1S IN PDR FOR TEST LOCATION
s TURN ON MEMORY MANAGEMENT
sWRITE TEST LOCATION WITH PATTERN 2
;sTURN OFF MEMORY MANAGEMENT
sCLEAR BIT15 IN PDR FOR TEST LOCATION
:sREAD TEST LOCATION
l¥:'E:IT/HISS REGISTER BIT 3 SET
:

+MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
+SET BIT15 IN PDR FOR TEST LOCATION
:TURN ON MEMORY MANAGEMENT
sREAD TEST LOCATION, BYPASS CACHE
:TURN OFF CACHE BYPASS ON KERNEL PAGE 0.
i TURN OFF MMU
:READ TEST LOCATION-SHOUWLD BE CACHE MISS
8%&:17/’1155 REGISTER BIT 3 SET
H

+MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

sCACHE SYSTEM ERROR
s TURN ON . 'MORY MANAGEMENT
tREAD TEST LOCATION ONE MORE TIME.
sPREVIOUS READ SHOULD HAVE ALLOCATED
1CACHE SO WE'RE EXPECTING A CACHE HIT
l%&“IT/HISS REGISTER BIT 3 NO/ SET
:

1 TURN OFF MMU BEFORE ERROR ROUTINE.

+MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

GLOBAL AREAS

KDJ11A,.MAC
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536

MACY11 30A(1052)

03-APR-84 11:36

003646

001325

003650
003656
003662
003666
003672

042767
005037
005037
005037
000167

000001
177744
177766
001116
000000

O4-APR-84

173714

003676

10:38

4s:

PAGE 35

J3
SEQ 0025

TEST CACHE BYPASS (MMU)
.WORD

ERRMSG

BIC
CLR
CLR
CLR
JMP

#BITO0, SRO
SOMSER
80CPEREG
84SOFTER
TST10

s ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR

: TURN OFF MMU
:CLEAR THE MEM SYS ERROR REG
;CLEAR THE CPU ERROR REGISTER
;CLEAR THE SOFT ERROR COUNT
iJUMP OVER DATA TABLES OR SUBROUTINES
; TO NEXT TEST

CTST10:

1088800488048 040 000000000000 000400080000040000000000000000000000

1537

:#TEST 10

1538

TEST CACHE FLUSH

1188888404208 044000 0080000484800 00ARRRRRRAAARARARARRRARASAREARS

1539
1540
1541
1542

sFLUSH CACHE TEST - THIS TEST WILL VERIFY THAT WHEN CCR BIT<8> IS
:SET, THE ENTIRE CACHE IS INVALIDATED. FIRST 8K BYTES OF ADDRESSES
sWILL BE READ TO ALLOCATE CACHE. THEN THE CACHE WILL BE FLUSHED.
;THE SAME SET OF ADDRESS WILL THEN BE READ AND THE HIT/MISS REGISTER

1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556

sBGNTST
:GET FIRST ADDRESS OF 8KB BUFFER
;INITIALIZE LOOP COUNTER TO 4KWORD COUNT
;D0 UNTIL LOOP COUNTER = O
b
READ BSADDRESS+
;:ENDDO
:GET FIRST ADDRESS OF 8KB BUFFER
sINITIALIZE LOOP COUNTER TO 4KWORD COUNT
sINITIALIZE MISS COUNT
sFLUSH CACHE
;D0 UNTIL LOOP COUNTER = O
3
READ BADDRESS»

;CHECKED AFTER EACH READ FOR A MISS TO BE LOGGED.

1322

1557

1558
1559
1560
1561
1562
1563
1564

1565
1566
1567

1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580

IF HIT/MISS REGISTER BIT<1> SET THEN

¥
2
DECREMENT MISS COUNT
g
ENDIF
;ENDDO
s IF MISS COUNT NOT EQUAL TO 4096. THEN
.
ERROR IN CACHE SYSTEM
sENDIF
;:ENDTST

003676
003676
003702
003706
003712

003716
003722
003730
003732
003734
003740
003744
003750
003756

005267
004767
005067
012701
012702
052737
005721
077202
012701
012702
012703
012767
005721

:
3100000488880 00000000800000400000800408000000000000800000000480000048
TST10:
INC
$TESTN
;sINCREMENT TEST NUMBER
JSR
PC.
INITMM
sINITIALIZE MMU
CLR
KIPARG
sLET PAR6 POINT TO LOW 4K
MOV
2140000,R1
;GET ADDRESS OF 8K BYTE BUFFER

175102
175504
166442
140000
010000
000001

177572

140000
010000
010000
000400

173770

1$:

2%:

MOV
BIS
TST
S08
MOV
MOV
MOV
MOV
TST

€4096., R2
#B8IT00,80SRO
(R1).
R2,
1s
#140000,R1
€4096., R2
€4096., R3
€400,
CCR
(R1).

;INIT LOOP COUNTER TO 4K WORD COUNT
:ENABLE MMU
sREAD ADDRESS TO ALLOCATE CACHE
;00 UNTIL ALL LOCATIONS ALLOCATED
sGET ADDRESS OF 8K BYTE BUFFER
s INIT LOOP COUNTER TO 4K WORD COUNT
sPRE-LOAD MISS COUNT WITH 4096,
sFLUSH CACHE
sREAD ADDRESS

GLOBAL AREAS

MACY11

30AC1052)

003760

032737

000010

003766

001401

003770
003772

005303
077207

KDJ11A, MAC

1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592

1593
1594
1595
1596

1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636

03-APR-84

1 1:36

O04-APR-84
T10

10:38
PAGE 36
TEST CACHE FLUSH

177752

3s:

IK3
SEQ 0036

BIT

4BITO3,80HITMIS

sSHOULDN'T GET HITS AT (R1)
+IF BITO3 IN HIT/MISS REG INDICATES A MISS

BEQ

DEC
sSoB

R3
R2,

:BRANCH TO 3%
:ELSE

: THEN

005067
022703
001410

173572
010000

CLR
cMP
BEQ

SRO
#4096.,
5%

THE MISS COUNT

sDECREMENT MISS COUNT IF WE GET A WIT
sLOOP UNTIL ENTIRE CACHE CHECKED
iFALLING

003774
004000
004004

--DON'T DECREMENT

THROUGH SOB

INDICATES

THAT

:CACHE LOCATIONS HAVE BEEN CHECKED.

ALL

; TURN OFF MMU

+ IF_ MISS COUNT NOT EQUAL TO 4096.
s THEN IT

INDICATES

THAT NOT ALL CACHE

1LOCATIONS WERE FLUSHED
004006
004014
004020
004022
004024

000025
001325

004026
004032
004036
004042
004046

005037
005037
005037
005037
000167

004052

012737
004767

104000

003702

175620

177572
177744
177766
001116

001120

S$:

MOV
JSR
ERROR

@TST10+4,80SOF
TRE
PC.APTSFT

.WORD

ERRMSG

.WORD

CLR
CLR
CLR
CLR
JMP

80SRO
SOMSER
80CPEREG
80SOFTER
TST11

sMOVE RETRY ADDRESS TO SOFT RETURN
3GO TO SOFT ERROR SUBROUTINE

;ALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
:TURN OFF MMU
;:CLEAR THE MEM SYS ERROR REG
;CLEAR THE CPU ERROR REGISTER
;CLEAR THE SOFT ERROR COUNT
iJUMP OVER DATA TABLES OR SUBROUTINES
:TO NEXT TEST

CTST11:
$I048884400004008004000000408400080000004800000800808000080040000404

s+TEST

TEST UNCONDITIONAL CACHE BYPASS

$388044888000000004084800000000400000000800040808880800000080008004044

sUNCONDITIONAL BYPASS TEST - THIS TEST WILL VERIFY THAT WHEN CCR
:8IT<9> IS SET, A MEMORY REFERENCE IS FORCED TO MAIN MEMORY. THIS
sWILL ALSO VERIFY THAT READ AND WRITE HIT INVALIDATE THE CACHE
;LOCATIONS WHEN BYPASS IS SET.
:

sBGNTST
sREAD TEST LOCATIONS TO SETUP POSSIBILITY OF MIT

:SET CCR BIT<9>
;READ FIRST TEST LOCATION

s IF HIT/MISS REGISTER BIT<1> NOT SET THEN
'énoxr
ERROR IN CACHE SYSTEM
H

sWRITE SECOND TEST LOCATION
sIF HIT/MISS REGISTER BIT<1> NOT SET THEN
'éNDIF

ERROR IN CACHE SYSTEM

;CLEAR CCR BIT«9»>
;READ FIRST LOCATION
;IF HIT/MISS REGISTER BIT<1> SET THEN
Bix
ERROR IN CACHE SYSTEM

;ENDIF
;READ SECOND LOCATION
s IF HIT/MISS REGISTER BIT<1> SET THEN
N
ERROR IN CACHE SYSTEM

GLOEAL AREAS

KD.'11A.MAC

1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692

MACY11

03-APR-84

30A(1052)

11:36

O4-APR-84
T11

10:38
PAGE 37
TEST UNCONDITIONAL CACHE BYPASS

SEQ 0037

;ENDIF
sENDTST
3
[

005267
005737
005737
052767
005737
032767
001010
012737
004767

104000

174726
001122
001124
001000
001122
000010
004056
175516

Rttt

TST11:

173652
173644
001120

000026
001325

005037
001124
013703
177752
012704
004134
012702
001124
042704
177701
042702
177701
020204
001004
032703
000010
001014 ~
000403
032703
000004
001010

004252
004254
004262
004266
004272
004276
004302

004310
004312

012737
004767
104000
000027
001325

004056
175424

005737
032767
001410
012737
004767
104000
000030
001325

001122
000010

005037
016703
012704
012702
042704
042702
020204
001004
032703

001124
173464
004262
001124
177701
177701

2s:
100¢:

INC
TST
TST
BIS
TST
BIT
BNE
MOV
JSR
ERROR
.WORD
.WORD

CLR
MOV
MOV
MOV
8IC
8IC

LSRR

$TESTN
847STLOC
80TSTLOC.2

#8IT09, CCR

86TSTLOC
;21703. HITMIS
#TST11+4,80SOFTRE
PC.APTSFT

26
ERRMSG
80TSTLOC.2
SOHITMIS,.R3

€100$,R4
@TSTLOC+2,R2
#177701,R4
#177701,R2
R2,R4

101¢
08ITO3, R3
33
102$
#8IT02,R3
3¢

101%:
001120

102%:

0TST11+4,80STRE
OF

PC,.APTSFT
27
ERRMSG

004056
175370

173516

3s:

80TSTLOC
:?ITOS. HITMIS

001120

275711+4,84SOF
TRE
PC.APTSFT

30
ERRMSG

000010

80TSTLOC+2
HITMIS,R3
02004 ,R4
#TSTLOC+2,R2
#177701,R4

2004
:

9177701 ,R2

BIT

R2,.R4
201¢
0BIT03,

YT T

LTIy

rrTYYYYYTY

s INCREMENT TEST NUMBER
sALLOCATE FIRST TEST LOCATION
+ALLOCATE SECOND TEST LOCATION
+SET CCR BIT 9 (CACHE BYPASS)
;READ FIRST TEST LOCATION
'¥:EnIT/HISS REG. BIT 3 NOT SET
:

+MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
sWRITE SECOND LOCATION
;SAVE CONTENTS OF HIT MISS
sMOV ADDR OF MOV INST TO R4
:

sSTRIP OFF UNNEEDED BITS
H

sARE THEY EQUAL?
;BRANCH IF NOT

:IF HIT/MISS REG.

;s THEN

BIT 3 NOT SET

sIT WAS A MISS, GO TO ERROR
sTEST BITO2
;BRANCH IIF IT WAS A HIT

:MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
sREAD FIRST TEST LOCATION
8¥:EnIT/HISS REG. BIT 3 SET
3

+MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
;WRITE SECOND LOCATION
1SAVE CONTENTS OF HIT MISS REG
;

L]
:

tARE

THEY EQUAL

:BRANCH IF NOT

s IF HIT/MISS REG. BIT 3 NOT SET

GLOBAL AREAS
KDJ11A.MAC

1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704

1705

1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748

004316
004320
004322
004326
004330
004330
004336
004342

MACY11l

03-APR-84

001414
000403
032703
001410

30A(1052)

11:36

M3
O04-APR-84

T11

10:38

PAGE

TEST UNCONDITIONAL CACHE BYPASS

BEQ

201$:

000004

012737
004767
104000
000031
001325

004056
175276

005067
005037
005037
005037
000167

173372
177744
177766
001116

BR
BIT

BEQ

MOV

001120

JSR

ERROR
.WORD
.WORD

Ss$:

202%
#BITO2,.R3
S

N0 S0
; THEN EXIT

TEST

s THEN EXIT

TEST.ELSE GO TO ERROR

sELSE;EXPECTED A MISS GO TO ERROR
s+IF HIT/MISS REG. BIT 2 NOT SET

#TST11+4,30S0OFTRE

+MOVE RETRY ADDRESS TO SOFT RETURN

31
ERRMSG

;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

PC,APTSFT

:GO TO SOFT ERROR SUBROUTINE

CLR
CLR
CLR

CCR
SOMMSER
3OCPEREG

;CACHE SYSTEM ERROR
;CLEAR BYPASS BIT BEFORE EXIT
;CLEAR THE MEM SYS ERROR REG
;CLEAR THE CPU ERROR REGISTER

JMP

TST12

;JUMP OVER DATA TABLES OR SUBROUTINES

CLR

000000

80SOFTER

;CLEAR THE SOFT ERROR COUNT

s TO NEXT TEST

CTsST12:
FIRRAARAREAAAAA
AR AARARRAARARE
AAARR
A00000000000
RAAER
00%004
E

:»TEST 12

TEST WRITE WRONG DATA PARITY

P AAAAAARA
AR
AARAAARRRARE
AARA
044400440000
ALLR
0 00 00000000048
ER

sWRITE WRONG DATA PARITY TEST- THIS TEST WILL VERIFY THAT WHEN CCR
iBIT<6> = 1 AND CCR BITS<7,0> = 0,1, A READ MISS OCCURS AFTER A
sWRITE. THE WRITE WITH CCR BIT<6> = 1 TO A LOCATION WILL CAUSE A
:CACHE UPDATE AND WRONG PARITY TO BE WRITTEN SO WHEN THE LOCATION
:IS READ INSTEAD OF A HIT BEING RECORDED THE CACHE PARITY ERROR
sWILL CAUSE A CACHE MISS. THIS TEST WILL BE DONE A BYTE AT A TIME.
sNOTE: IF BOTH ERRORS OCCUR CCGA MOST LIKELY BAD.
:
IF ONLY ONE ERROR OCCURS CCGA LEAST LIKELY.
:

sBGNTST
:SAVE CONTENTS OF VECTOR 114
sLET VECTOR 114 POINT TO ABORT ROUTINE
sCLEAR MSER
;IF MSER NOT CLEAR THEN
3.
ERROR IN CACHE SYSTEM
;ENDIF
sWRITE TEST LOCATION
;SET BITS<6,0> IN CCR
tWRITE TEST LOCATION LOW BYTE
sCLEAR CCR BIT<6> (WRITE WRONG DATA PARITY)
sINITIALIZE ERROR INDICATORS
sREAD TEST LOCATION LOW BYTE
+IF BIT<1> SET IN HIT/MISS REGISTER THEN
'éLSE
ERROR IN CACHE SYSTEM
3

b
IF MSER BITS <7:5> ZERUC THEN
s
ERROR IN CACHE SYSTEM
ENDIF
5
;:ENDIF
sCLEAR MSER
sIF MSER NOT CLEAR THEN
b

sENDIF
:SET CCR BIT<6>

ERROR IN CACHE SYSTEM

GLOBAL AREAS
KDJ11A.MAC

MACY11

03-APR-84

30 A(1052)
1 1:36

O04-APR -84
T12

1749

1753

1754
1755
1756

IF MSER BITS <7:5> ZERO THEN

£
;:ENDIF

ENDIF

ERROR IN CACHE SYSTEM

;:DATA PARITY ABORT ROUTINE:
B
ERROR IN CACHE SYSTEM

1766

1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804

;RESTORE CONTENTS OF VECTOR 114
:IF ERROR INDICATORS SET THEN
8.
ERROR IN CACHE SYSTEM
;ENDIF
sEXIT
TST

1765

1790

ERROR IN CACHE SYSTEM

1764

1787
1788
1789

;ELSE

1757
1758
1759
1760
1761
1762
1763

1783
1784
1785
1786

SEQ 0039

sWRITE TEST LOCATION HIGH BYTE
sCLEAR CCR BIT<6>
;READ TEST LOCATION HIGH BYTE
;IF BIT<1> SET IN HIT/MISS REGISTER THEN

1750
1751
1752

1767
1768
1769
1770
1771
1772
1773
1774
1773
1776
1777
1778
1779
1780
1781
1782

10:38
PAGE 39
TEST WRITE WRONG DATA PARITY

RETURN

sENDTST

%;?Is‘.‘..“““..““‘.“‘.‘.‘0“““““‘t‘t.“‘.““.‘t“‘tt.t

004374
004374
004400
004406
004414
004420
004424
004426
004430
004432

005267
013767
012737
005067
005767
001403
104000
000032
001325

174404
000114
004706
173324
173320

004434
004440

005037
012767

001122
000101

004446
004454
004462
004466
004474
004476
004504
004510
004512
004514

112767
042767
105737
032767
001410
012737
004767
104000
000033
001325

000377
000100
001122
000010
004490
175130

001120

004516
004524
004526
004530
004532

032767
001003
104000
000034
001325

000340

004534
004540
004544

005067
005767
001403

173204
173200

INC
MOV
MOV
CLR
TST
BEQ
ERROR
.WORD
.WORD

32
ERRMSG

CLR
MOV

86TSTLOC
€101,
CCR

174446
173264

MOVB
BIC

9377,
#BIT06,

173256

BIT
BEQ
MOV

174422
000114

173300

1%:

T1S18

2s$:

3s:

807STLOC

TSTLOC
CCR

JSR

#BITO3, HITMIS
2%
0T1ST12+4,80S0F
TRE
PC.APTSFT

.WORD
.WORD

33
ERRMSG

BIT
BNE
ERROR
.WORD
.WORD

€340,
3
34
ERRMSG

CLR
TST

MSER
MSER

ERROR

173220

$TESTN
80114,
SLOCOO
#DAPABO, 84114
MSER
MSER
1$

BEQ

MSER

: INCREMENT TEST NUMBER

:SAVE CONTENTS OF VECTOR 114
;LET VECTOR POINT TO ABORT ROUTINE
;CLEAR MSER
s IF MSER NOT CLEAR
s THEN
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
sWRITE TEST LOCATION TO ALLOCATE CACHE
:SET BITS<6,0> IN CCR
;WRITE WRONG DATA PARITY; IGNORE PARITY INTERRUP
sWRITE LOW BYTE WITH BAD PARITY
:CLEAR WRITE WRONG DATA PARITY BIT
;READ LOW BYTE OF TEST LOCATION
s?fiSfiCT A MISS; IF BIT 3 SET IN HIT/MISS REGISTE
;

+MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
:UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

:CACHE SYSTEM ERROR
: IF MSER BITS <7:5> ZERO

s THEN

;ALL ERRORS TO TRAP TO EMT VECTOR
s+JNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
;CLEAR MSER
;s IF MSER NOT CLEAR
;s THEN

GLOBAL AREAS

KDJ11A
. MAC

1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860

MACY11 30A(1052)
03 APR- 84 11:36

004546
004550
004552

104000
000035
001325

004554
004562
004570
004576
004602
004610
004612
004620
004624
004626
004630

052767
112737
042767
105737
032767
001411
012737
004767
104000
000036
001325

004632
004634
004642
004644
004646
004650

000407
032767
001003

004652
004660
004666
004666
004672

000100
000377
000100
001123
000010

173164
001123
173150

004400
175014

001120

000340

PAGE 40
TEST WRITE WRONG DATA PARITY

43;

012767
016737

000400

005037
005037
005037

177744
177766

000167

004706
004706
004710
004712

104000
000040
001325

004714

000002

174144

173066
000114

ERROR
.WORD
.WORD

35
ERRMSG

8IS
MOVB

oBIT06,
0377,

BIC

1ST8
BIT

173142

173102

10:38

BEQ
MOV
JSR

S$:

68:
%

001116
000010

DAPABO:

#1706,

SEQ 0040

1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
CCR
80TSTLOC.1

CCR

80TSTLOC.1
@BITO3, HITMIS

Ss
@TST12+4,80S0F TRE

PC.APTSFT

1CACHE SYSTEM ERROR

1SET CCR BIT 6 (WRITE WRONG PARITY)
sWRITE HIGH BYTE OF TEST LOCATION

1CLEAR WRITE WRONG PARITY BIT

1READ HIGH BYTE OF TEST LOCATION
s IF BIT 3 SET IN MIT/MISS REGISTER

3 THEN
tMOVE RETRY ADDRESS TO SOFT RETURN
1GO

TO SOFT

ERROR

SUBROUTINE

ERROR
.WORD
.WORD

36
ERRMSG

1ALL ERRORS TO TRAP TO EMT VECTOR
1tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

1GO TO NEXT

BIT

104000
000037
001325

004676
004702

004716

O04-APR-84
T12

@340,

MSER

$1IF BITS

1CACHE SYSTEM ERROR

TEST

«7:5>

IF NO HALT ON ERROR

ZERO

BNE
ERROR
.WORD
.WORD

37
ERRMSG

: THEN
1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

MOV
MOV

oBIT08,CCR
SLOCOO, 80114

sFLUSH CACHE, CLEAR CCR BEFORE EXIT
sRESTORE CONTENTS OF VECTOR 114

CLR
CLR
CLR
JMP

SOMSER
80CPEREG
80SOF TER
TST13

;CLEAR THE MEM SYS ERROR REG
;:CLEAR THE CPU ERROR REGISTER
sCLEAR THE SOFT ERROR COUNT
1 JUMP OVER DATA TABLES OR SUBROUTINES
s TO NEXT TEST

ERROR
.WORD
.WORD

40
ERRMSG

;CACHE SYSTEM ERROR

;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s+ADDRESS OF ERROR MESSAGE

RTI

;CACHE SYSTEM ERROR

CTST13:
110000000000000004000000000040400000000000000000000000000000000000048

3oTEST 13

TEST WRITE WRONG TAG PARITY

$300000000000000000000000004000000000000800000000000000000000000000

IWRITE WRONG TAG PARITY - THIS TEST WILL VERIFY THAT A READ MISS
1OCCURS AFTER A WRITE WILL CCR<10> = 1 AND CCR<7,0> = C,1. THE WRITE
37O THE LOCATION WILL CAUSE A CACHE UPDATE BUT THE TAG WILL BE
IWRITTEN WITH THE WRONG PARITY. WHEN THE LOCATION IS READ INSTEAD
lg;Sg CACHE HIT OCCURRING THE PARITY ERROR SHOULD CAUSE A CACHE
3

$BGNTST
$SAVE CONTENTS OF VECTOR 114
sLET VECTOR 114 POINT TO ABORT ROUTINE
;CLEAR MSER

RbITTa AREAS 0s"ABA'A4 30118520 04 -APR:84
1861
1862

C4
10:
PAGE
38.
81 coNG TAG PARITY

3SET WRITE WRONG TAG PARITY BIT<10>
sWRITE TEST LOCATION
sCLEAR CCR BIT<10> AND SET ABORT DISABLE BIT<O>
:READ TEST LOCATION
sIF BIT<1> SET IN HIT/MISS REGISTER THEN
s
ERROR IN CACHE SYSTEM
;ELSE
b i
&
ERROR IN CACHE SYSTEM
1ENDIF

1863
1864
1865
1866
1867
1868
1869

1870
1871
1872
1873

sRESTORE VECTOR 114
sEXIT
ST
H
:TAG PARITY ABORT ROUTINE:

1875
1876

:
iENDTST

1874

1877

1878

1879

1880

004716

005267

174062

H
3

004722
004730
004736
004742
004750
004754
004762
004766
004774
004776
005004
005010
005012
005014

013767
012737
005067
012767
005037
012767
005737
032767
001414
012737
004767
104000
000041
001325

1899
1900
1901
1902
1903

005016
005020
005020
005022
005024

000403

104000
000042
001325

1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916

005026
005034
005042
005046
005052
005056

012767
016737
005037
005037
005037
000167

005062
005062
005064
005066

104000
000043
001325

1904

INC

$TESTN

100084080048 80004004222028

1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897

1898

ERROR

IN CACHE

SYSTEM

13000000000 0000000800000000000000000000000000000000000000000000048

T5T13:

1881
1882

1883

S5€EQ 0041

000114
005062
173002
002001
001122
000001
001122
000010

174100
000114

004722
174630

001120

TEST NUMBER

10084000000 00088000000000000000008000000480000000080800

172776
172764

172756

172712
000114

1 INCREMENT

040000000000 0000000000000

DON’'T SINGLE STEP THIS CODE USING THE ODT P COMMAND!!!
PARITY ERRORS WILL OCCUR.

1$:

000400
173770
177744
177766
001116
000010

NOTE

2%:

TAPABO:

MOV
MOV
CLR
MOV
CLR
MOV
TST
BIT
BEQ
MOV
JSR
ERROR
.WORD
. WORD

80114,
SLOCOO
OTAPABO,80114
MSER
#2001,
CCR
80TSTLOC
#8IT00, CCR
80TSTLOC
eBITO3, HITMIS
29
OTST13+.4,80S0F TRE
PC.APTSFT
41
ERRMSG

s SAVE CONTENTS OF VECTOR 114
sLET VECTOR POINT TO ABORT ROUTINE
1CLEAR MSER
$1SET WRITE WRONG TAG PARITY & NO PARITY INTERRUP
sWRITE LOCATION WITH BAD TAG PARITY
1CLEAR BIT 10 AND SET NO PARITY INTERRUPTS
sREAD TEST LOCATION
;IF BIT 3 SET IN HIT/MISS REGISTER
1 THEN
tMOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
tALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

B8R

1ELSE

ERROR
.WORD
.WORD

42
ERRMSG

:ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

MOV
MOV
CLR
CLR
CLR
JMP

#81708,CCR
SLOCOO, 8o114
SOMSER
80CPEREG
80SOFTER
TST14

ERROR
. WORD
.WORD

43
ERRMSG

sCACHE SYSTEM ERROR

1FLUSH CACHE, CLEAR CCR BEFORE EXIT
tRESTORE CONTENTS OF VECTOR 114
:CLEAR THE MEM SYS ERROR REG
1CLEAR THE CPU ERROR REGISTER
1CLEAR THE SOFT ERROR COUNT
3
1JUMP OVER DATA TABLES OR SUBROUTINES
37O NEXT TEST

tALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
1APDRESS OF ERROR MESSAGE

KbJT1h AREAS 0s"APA'A430114852) 04-APRig4 10:3
PAGE 82 0onG
. TAG PARITY
1917

1918

1919
1920
1921

1922

005070

000002

CACHE SYSTEM ERR

RTI

005072

330008004080 088000008000000000000000000000088000000000000000000000s

;+TEST 14

1924

TEST PARITY INTERRUPT

1590800004800 000000000800000000200800000008800800 208000000000 0000000

1925

sPARITY INTERRUPT TEST

1926
1927

THIS TEST WILL VERIFY THAT WHEN CCR<7,0>

30,0, A PARITY INTERRUPT OCCURS AFTER EXECUTION OF
s THAT HAS BEEN WRITTEN WITH WRONG PARITY.

1928
1929
1930
1931
1932

INSTRUCTION

H
:BGNTST
31SAVE CONTENTS OF 114
:SETUP VECTOR 114 TO POINT TO INTERRUPT ROUTINE
sCLEAR EXPECTING INTERRUPT FLAG

1933

sWRITE TEST ADDRESS WITH BAD PARITY

1935

:READ TEST ADDRESS

1934

:SET EXPECTING INTERRUPT FLAG

1936

s+IF INTERRUPT FLAG NE O THEN
Ba
:ENDIF

ERROR IN CACHE SYSTEM

{g:g

sEXIT

TST

1937
1938
1939

sRESTORE CONTENTS OF VECTOR 114
5

1942
1943
1944
1945

;s INTERRUPT ROUTINE:
H
3
H

1946

1947

IF EXPECTING INTERRUPT FLAG NE 1 THEN
’
ERROR IN CACHE SYSTEM
ELSE
5
CLEAR (EXPECTING) INTERRUPT FLAG
ENDIF

3
H

2
ENDIF

1948
1949

1950
1951
1952
1953

IF SAVED PC NE TO UPDATED PC THEN

:
H
:
:

1954
1955

ERROR IN CACHE SYSTEM

IF MSER NE 0340 THEN
X
ERROR IN CACHE SYSTEM
ENDIF
RE TURN

:
sENDTST

1956
1957
1958
1959

005072
005072
005076

005267
004767

173706
174310

1961
1962

005102
005110

012767
012737

001600
140000

165244
001122

MOV
MOV

#1600,KIPAR6
©9140000,807STLOC

1964
1965
1966
1967
1968
1969
1970
1971
1972

005116
005124
005126
005134
005140
005144
005150
005156
005164

052767
005001
052767
005077
005067
005037
013767
012737
005101

000001

172446

000100
173762
172602
177744
000114
005244

172612

BIS
CLR
BIS
CLR
CLR
CLR
MOV
MOV
coM

oBIT00,SRO
R1
#BIT106, CCR
8TSTLOC
CCR
SOMSER
80114,5L0C00
QINTERR,80114
R1

1963

CTST15:

1923

1960

SEQ 0042

3580880000080 00000080000000080000000000000000008000000000000000002
TST14:
INC
$TESTN
1 INCREMENT TEST NUMBER
JSR
PC,INITMM
s INIT MMU; PAGE ZERO REFERENCES WILL

173652
000114

18YPASS CACHE.

1SET PAR6 TO RELOCATE TO BANK 7
$1SET UP TEST LOCATION TO OBTAIN

1PHYSICAL ADDR VIA KIPARG.

s TURM ON MMU
tCLEAR EXPECTING INTERRUPT FLAG
1SET WRITE WRONG DATA PARITY
tWRITE CACHE LOCATION O WITH BAD DATA PARITY
sCLEAR WRITE WRONG DATA PARITY
1 INIT MSER
31SAVE CONTENTS OF VECTOR 114
sLET VECTOR POINT TO INTERRUPT ROUTINE,
$SET EXPECTING INTERRUPT FLAG

GLOBAL AREAS
KDJ11A.MAC

1973

005166

MACY11 30A(1052)
03-APR-84 11:36

005777

173730

1974
1975
1976

005174

001403

1978
1979

005200
005202

000044
001325

1981
1982
1983
1984

005204
005212
005216
005224

016737
005067
012737
005037

173620
172354
000400
177744

1986

005234

005037

001116

1977

1980

1985

1987

i.ggg

005172

005176

005230

005240

005701

005037

000167

005244

005701

1993
1994

005252
005254

000045
001325

1996

005256

000401

1995

1997

1998

1999

2000

005246
005250

005001

005266

001403

005270

021627

005272
005274

000046
001325

2004

005276

022767

2005
2006

005304
005306

001403
104000

2007
2008

005310
005312

000047
001325

gg{g

005314

000002

2009
2012

2013

2014
2015
2016

2017

2018

2019

2020
2021
2022

2023
2024
2025
2026
2027

005316

000114

1$:

177746

177766

BEQ

tRETURN HERE FROM INTERRUPT
+IF _INTERRUPT FLAG NOT EQUAL ZERO
+THEN WE DIDN'T GET A PARITY INTERRUPT.

.WORD
.WORD

44
ERRMSG

tUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

MOV
CLR
MOV
CLR

SLOCOO, 84114
SRO
oBITO8,80CCR
SOMSER

;RESTORE VECTOR 114
s TURN OFF MMU
sFLUSH CACHE, CLEAR CCR
;CLEAR THE MEM SYS ERROR REG

CLR

80SOF TER

;:CLEAR THE SOFT ERROR COUNT

JMP
INTERR:

18:

005172

2s:

172840

4$:

80CPEREG

TST1S

;CACHE SYSTEM ERROR

:CLEAR THE CPU ERROR REGISTER

:JUMP OVER DATA TABLES OR SUBROUTINES

:TO NEXT TEST

:IF EXPECTING INTERRUPT FLAG NOT SET

.WORD
.WORD

45
ERRMSG

;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

;ELSE

CLR

cMP
BEQ

ISP,
a8

.MORD
.MORD

46
ERRMSG

cHP

2340,

BEQ
ERROR
.WORD
.WORD

S$:

;ALL ERRORS TO TRAP TO EMT VECTOR

TST

BNE
ERROR

ERROR

000340

tREAD TEST LOCATION; SHOULD GET PARITY INTERRUPT

CLR

000052

arsTLOC

SEQ 0043

ERROR

104000

2001
2002

2003

INTRPC: TST

001004
104000

005260

005262

E4
10:38
PAGE 43
TEST PARITY INTERRUPT

104000

1990

1991
1992

O©4 -APR-84
T14

RTI

47
ERRMSG

s THEN
;ALL ERRORS TO TRAP TO EMT VECTOR

@INTRPC .4

;CACHE SYSTEM ERROR

sCLEAR (EXPECTING) INTERRUPT FLAG

:IF SAVED PC NOT EQUAL TO UPDATED PC
; THEN

;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

MSER

;CACHE SYSTEM ERROR

s IF MSER NOT EQUAL TO EXPECTED VALUE

: THEN
;ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

;RETURN

;CACHE SYSTEM ERROR

CIST17:

5908 8 80 08048400400400000408040000000028080000480000000004000000000000008
;#TEST 1S
TEST THAT PARITY ERRORS BLOCKED BY NXM ABORT
] |‘t..‘....‘.“.‘.0.‘000“‘““‘..‘0.‘.0.......‘..“0““.““.‘0

1CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT - THIS TEST WILL
sVERIFY THAT IF A PARITY ERROR OCCURS ON THE SAME ADDRESS REFERENCE AS A

sNON-EXISTENT MEMORY ERROR THAT THE CACHE DATA PATH GATE ARRAY BLOCKS THE

;PARITY ERROR TO THE J-11 CHIP SET. THIS WILL BE DONE BY USING THE DIAGNOSTIC
:BIT TO CAUSE A PARITY ERROR IN A CACHE REFERENCE TMAT DOES NOT MAVE A
;CORRESPONDING ADDRESS IN MAIN MEMORY. THE ADDRESS WILL THEN BE READ CAUSING

;BOTH A CACHE PARITY ERROR AND A NON-EXISTENT MEMORY ERROR. TO AVOID MAVING
:TO SIZE THE ENTIRE MEMORY TO FIND A NON-EXISTENT MEMORY ADDRESS THIS TEST
sWILL USE THE LARGEST NON-I/0 ADDRESS (17757776). THE TEST WILL FIRST READ

: THIS ADDRESS AND IF A NXM TRAP OCCURS THE TEST WILL BE DONE.
:TO THIS ADDRESS DOES NOT TRAP THEN THE TEST WILL BE SKIPPED.
H

IF THE ACCESS

GLOBAL AREAS
KDJ11A
. MAC

MACY11

03-APR-84

30A(1052)

11:36

O04-APR-84
T15

2029
2030
2031
2032

THAT PARITY ERRORS BLOCKED BY NXM ABORT

sLET VECTOR 4 POINT

TO CONTINUE

SEQ 0044

TESTING (A:)

sLET PAR6
#177400
sACCESS ADDRESS 157776 (PHYSICAL 17757776)
:IF NO TRAP THEN
3.

;ENDIF

GOTO ENDTST

sA:

sSET DIAGNOSTIC AND WRITE WRONG PARITY BITS IN CCR
;WRITE ADDRESS 157776
:CLEAR CCR
:SET PARITY ERROR ABORT BIT IN CCR

sLET VECTOR 4 POINT TO CONTINUE TESTING (B:)
sLET VECTOR 114 POINT TO NXM-PARITY ERROR ROUTINE
sREAD ADDRESS 157776
:IF NO TRAP THEN

2046
2047

2063

TEST

PAGE 44

;sBGNTST
:SAVE CONTENTS OF VECTOR 4
sSAVE CONTENTS OF VECTOR 114

2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062

10:38

IENDIF

ERROR IN CACHE SYSTEM

1:H

;CLEAR CCR
sRESTORE CONTENTS OF VECTOR 114
sRESTORE CONTENTS OF VECTOR 4
sEXIT

TST

:
:

sNXM-PARITY ERROR ROUTINE:
:
:

sENDTST

005316
005316
005322
005326
005334
005342
005350
005356
005364
005370
005372
005376
005404
005410
005416
005424
005432

005440
005442
005444

005446
005452

RESET STACK AFTER TRAP
ERROR IN CACHE SYSTEM
GOTO B:

35080808 80 8 80008080080000000008080880820000002002080000000008004

005267
013704
013767
012737
012767
012767
052737
005737
000435
062706
012767
005037
012767
012737
012737
005737
104000
000050
001325
000407
005067
104000

TST1S:

173462

000004
000114
005372
177400
000020
000001

157776

000004
000102

157776

000200
005460
005446

157776

172120

173474

000004

165004
165140
177572

172342

1$:

172330

000004
000114

INC
MOV
MOV
MOV
MOV
MOV
BIS
1ST
B8R
ADD
MOV
CLR
MOV
MOV
MOV

TST
ERROR

100s:

$TESTN
204 R4
80114,

@20,SR3

#81700,80SR0O
80157776
33

04,
@102,

SP
CCR

€200,

CCR

80157776

a2,
804
£100¢%,80114

80157776

. WORD
.WORD

ERRMSG

B8R
CLR

33
SRO

ERROR

SLOCOO

o1,
804
€177400,KIPARG

: INCREMENT TEST NUMBER
sSAVE CONTENTS OF VECTOR 4
:SAVE CONTENTS OF VECTOR 114
;LET VECTOR 4 POINT TO CONTINUE TESTING
sLET PAR6 = OFFSET TO HIGHEST MEMORY
:ENABLE 22 BIT ADDRESSING.
sENABLE MMU
+ACCESS ADDRESS 17757776
sIF IT DOESN'T TRAP THEN SKIP THIS TEST
sRESET STACK AFTER TRAP
:SET DIAG. AND WRITE WRONG DATA PARITY BITS
sWRITE TO ADDRESS 17757776

sCLEAR CCR AND SET PARITY ABORT BIT
sLET VECTOR 4 POINT TO CONTINUE TESTING
sLET VECTOR 114 POINT TO ERROR ROUTINE

sREAD ADDRESS 17757776 (SHOULD TRAP)
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
:1GO EXIT TEST
: TURN OFF MMU BEFORE ERROR
sALL ERRORS TO TRAP TO EMT VECTOR

GLOBAL AREAS
KDJ11A.MAC

2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140

MACY11

03-APR-84

005454
005456

000051
001325

005460
005464
005470
005474
005502
005506
005512
005516
005522

062706
005067
010437
016737
005067
005037
005037
005037
000167

005526

30A(1052)

11:36

04-APR-84
T15

2%:
3s:

172256
173330
172064
177744
177766
001116

10:38
PAGE 45
TEST THAT PARITY ERRORS BLOCKED BY NXM ABORT

.WORD
.WORD

51
ERRMSG

ADD
CLR
MOV

a4
CCR
R4,

CLR

SRO

MOV

000114

SEQ 0045

tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

;CACHE SYSTEM ERROR

sRESET STACK AFTER TRAP
sCLEAR CCR FOR EXIT
sRESTORE VECTOR 4

SLOCOO, a#114

sRESTORE VECTOR 114

1 TURN OFF MMU BEFORE EXITING.

CLR

S8OMSER

1CLEAR THE MEM SYS ERROR REG

CLR
JMP

@0SOF TER
TST16

;CLEAR THE SOFT ERROR COUNT
i JUMP OVER DATA TABLES OR SUBROUTINES

CLR

840CPEREG

1CLEAR THE CPU ERROR REGISTER
:TO NEXT TEST

CTST20:
$38880440080000
000044048080
00884
0 0 0048004084000
00080
000000880000
00
0

1+TEST 16

TEST MULTIPROCESSING INSTRUCTIONS

130884048000 80080088008400800000000000000008880840200000000000000048

sMULTIPROCCESSING INSTRUCTION TESTS - THIS TEST WILL VERIFY THAT THE MULTIsPROCCESSING INSTRUCTIONS DO A BYPASS OF THE CACHE. THIS TEST WILL NOT VERIFY
s THE REST OF THE FUNCTIONALITY OF THESE INSTRUCTIONS BECAUSE THAT WILL ALREADY
sHAVE BEEN CHECKED IN THE BASE INSTRUCTION TESTS.
sTHE TEST FOR TSTSET AND WRTLCK WILL FIRST ALLOCATE AN ADDRESS IN CACHE WITH
sKNOWN DATA, THEN FORCE CACHE MISS WILL BE ENABLED AND THE SAME ADDRESS WILL
:BE WRITTEN WITH WITH DIFFERENT DATA. THIS WILL SET UP CACHE WITH DATA 1 AND
:IT'S ASSOCIATED MEMORY LOCATION WITH DATA 2., FORCE CACHE MISS WILL THEN BE
;DISABLED AND THE TSTSET/WRTLCK INSTRUCTION WILL BE EXECUTED. THIS INSTRUCTION
sWILL CAUSE CACHE TO BE BYPASSED AND AN ACCESS TO MAIN MEMORY WILL BE MADE. IN
;ADDITION THIS INSTRUCTION WILL CAUSE CACHE TO BE RE-ALLOCATED WITH THE CORRECT:DATA.
:THE TEST FOR ASRB INSTRUCTION DIFFERS SLIGHTLY. FIRST THE CACHE WILL BE
sALLOCATED, THEN AN ASRB INSTRUCTION WILL BE DONE AT THAT ADDRESS.
sA HIT SHOULD BE RECORDED ON THE ACCESS. NEXT, THE ADDRESS WILL BE READ AND
sA MISS SHOULD BE RECORDED BECAUSE THE FORCED BYPASS ON THE ASRB INSTRUCTION
:SHOULD HAVE INVALIDATED THE CACHE ENTRY, AND BECAUSE IT'S A BYTE WRITE; CACHE
sWILL NOT BE RE-ALLOCATED.
.

26088N0TEs 2020

+IF THE TSTSET OR WRTLCK ISTRUCTIONS ARE ASSEMBLED SO THAT BITS
:5-0 OF THE ADDRESS OF THE INSTRUCTION FOLLOWING THE TSTSET/WRTLCK INSTRUCTION
sARE EQUAL TO BITS 5-0 OF THE TSTLOC ADDRESS THE TEST WILL FZIL. THIS IS CAUSED
:BY THE NEED OF AN ADDITIONAL FETCH WHEN THE PRE-FETCH BUFFER IS INVALIDATED
sWHEN BITS S-0 OF AN ADDRESS WRITTEN TO ARE EQUAL TO BITS S-0 OF THE ADDRESS
:+IN THE PREFETCH BUFFER, THE ADDITIONAL FETCH CAUSES THE REQUIRED DATA TO BE
sSHIFTED OUT OF THE RANGE OF THE HIT/MISS REGISTER. PADDING THE FRONT OF THE
agga;s¥lffl NOPS MAY BE REQUIRED TO REMEDY THIS PROBLEM.
H

;READ TEST LOCATION TO ALLOCATE CACHE
;D0 TSTSET INSTRUCTION
;IF HIT/MISS REGISTER BIT 3 NOT SET

i
ERROR IN CACHE SYSTEM
sENDIF
sREAD TEST LOCATION
:IF HIT/MISS REGISTER BIT 3 SET THEN
3.
ERROR IN CACHE SYSTEM
;:ENDIF

THEN

AREAS

MAC

MACY11l 30A(1052)

03-‘3“-84 11:56

04-APR -84

T16

H4
10:

%gST MTISROCESSIM; INSTRUCTIONS
PAGE 4

SEQ 0046

sREAD TEST LOCATION TO ALLOCATE CACHE
;D0 WRTLCK INSTRUCTION
s IF HIT/MISS REGISTER BIT 3 NOT SET THEN
fa

sENDIF

ERROR IN CACHE SYSTEM

sREAD TEST LOCATION

:IF HIT/MISS REGISTER BIT 3 SET THEN
ERROR IN CACHE SYSTEM
i

:ENDIF
sREAD TEST LOCATION TO ALLOCATE CACHE
;D0 ASRB INSTRUCTION

+IF HIT/MISS REGISTER BIT 3 NOT SET
ERROR IN CACHE SYSTEM
§s

THEN

sENDIF
sREAD TEST LOCATION

: IF HIT/MISS REGISTER BIT 3 SET THEN
ie

;:ENDIF
sENDTST

005526
005526
005532

10 40 040 20

005536
005544

005267
005067
012767
012737

173252
173364
000004
177777

005552

005037

177746

005556
005560
005562
005564
005572
005574
005602

005610
005612

ERROR IN CACHE SYSTEM

007237
001122
001415
032767
001014
012737
004767
104000
000052
001325

TST16:

172202
001122

0080 4800200820008 0 0080000000004 000 000000000000 000040

INC
CLR
MOV
MOV

$TESTN
TSTLOC
#81102,CCR
@177777,80TSTLOC

CLR

80CCR
TSTSET
TSTLOC
7237
TSTLOC
100¢
:?ITOS JHITMIS

000040

172160

005532
174032

001120

005614
005616
005616
005620
005622

104000
000053
001325

005624
005632

022767
001015

177777

005634
005642
005644
005652
005656
005660

032767
001014
012737
004767
104000
000054

000020

172110

005532
173762

001120

000403

100¢:

173270

18:

.WORD
. WORD
BEQ
BIT
BNE
MOV
JSR
ERROR
.WORD
.WORD

52
ERRMSG

ERROR
.WORD
.WORD

53
ERRMSG

cMP
BNE

200$

BIT
BNE
MOV
JSR

ERROR
.WORD

@TST16+4,80S0F TRE
PC,APTSFT

#177777,7TSTLOC

gITO‘. HITMIS
#7ST16+4,80S0F TRE
PC,APTSFT
54

: INCREMENT TEST NUMBER
‘WRITE TEST LOCATION TO ALLOCATE CACHE
:SET CACHE TO FORCE MISS
sWRITE TO MEMORY BUT NOT TO CACHE.
sCACHE=000000; TSTLOC=177777
:CLEAR FORCE MISS
300 TSTSET INSTRUCTION
s THESE NEXT TWO LOCATIONS ARE THE TSTSET
: INSTR. BECAUSE THL ASSEMBLER WAS NOT READY
:IF = O THEN CACHE WAS NOT BYPASSED
+ IF HIT/MISS REGISTER BIT S IS SET

s THEN GO TO
:MOVE RETRY
:GO TO SOFT
sALL ERRORS

NEXT TEST.
ADDRESS TO SOFT RETURN
ERROR SUBROUTINE
TO TRAP TG EMT VECTOR

i{UNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
:ERROR! BIT S IN HIT MISS REG WAS NOT SET.
s+RECOVER FROM ERROR
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
3sCACHE SYSTEM ZRROR
;ERROR! CACHE WAS NOT BYPASSED BY TSTSET
sREAD TEST LOCATION (ALSO ALLOCATES CACHE FOR WR
$1CACHE SHOULD BE RE-ALLOCATED WITH
3177777 AS A RESULT OF TSTSET INSTRUCTION.
l%&:IT/HISS REGISTER BIT 4 SET (SHOWLD BE)
§

sMOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

GLOBAL AREAS

KDJ11A.MAC

2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212

2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252

03 AR
B4 11536
MACY11

30A(1052)

O04-APR-84

T16

001325
000403

200$:

104000
000055
001325
012767
005067
005000
005067

007337
001122
001015
032767
001014
012737
004767
104000
000056
001325

000004
173214

172044

172032

ERRMSG

ERROR
.WORD
.WORD

5
ERRMSG

MOV

#81T02,CCR

TSTLOC
RO
CCR

7337
TSTLOC
3004
#BITOS5,

#T5T16+4,80SOF
TRE

000040

172022

005532
173674

001120

MOV

BNE

300%:

173134
000020

005532
173626

3s:

171754

001120

000403
4004
:

104000
000061
001325
173066

173060

000020

171702

005532
173554

001120

HITMIS

JSR
ERROR
.WORD
.WORD

PC.APTSFT

ERROR
.WORD
.WORD

57
ERRMSG

BNE

Sé6
ERRMSG

TSTLOC

4004

BIT
BNE
MOV
JSR
ERROR
.WORD
.WORD

#BIT04, HITMIS
4%
@TST16+4,890S0F
TRE
PC.APTSFT

ERROR
.WORD
. WORD

61
ERRMSG

60
ERRMSG

ST
NOP

TSTLOC

BIT

#BITO4, HITMIS

ASPB

TSTLOC

BNE

JSR

PC.APTSFT

MOV

1ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1+ADDRESS OF ERROR MESSAGE
:CACHE SYSTEM ERROR
:ERROR! CACHE WAS NOT RE-ALLOCATED
:1SET FORCE CACHE MISS.

sCACHE=177777;

TSTLOC=000000

;:CLR RO
sCLEAR FORCE CACHE MISS.
;00 WRTLCK INSTRUCTION
s THESE NEXT TWO WORDS ARE THE WRTLCK
s INSTR. BECAUSE THE ASSEMBLER WAS NOT READY

TSTLOC

SEQ 0047

s ADDRESS OF ERROR MESSAGE
i CACHE SYSTEM ERROR
sRECOVER FROM ERROR

CLR
CLR
CLR

. WORD
.WORD
BNE
BIT

104000
000057
001325

005767
000240
106267
032767
001010
012737
004767

.WORD

WRTLCK

000403

005767
001015
032767
001014
012737
004767
104000
000060
001325

2%:

10:38
PAGE 47
TEST MULTIPROCESSING INSTRUCTIONS

#TST16+4,80S0OF
TRE

s%:E:IT/HISS REGISTER BIT S NOT SET
:

{MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
sRECOVER FROM ERROR
sALL ERRORS 70 TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1+ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
+ERROR! CACHE WAS NOT BYPASSED BY WRTLCK.
;READ TEST LOCATION
:

8¥:E:IT/HISS REGISTER BIT 4 SET

:MOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
;RECOVER FROM ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
$UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
3CACHE SYSTEM ERROR
tERROR! CACHE WAS NOT RE-ALLOCATED
tREAD TEST LOCATION TO ALLOCATE CACHE
sNOP PAD FOR ASRB HIT/MISS CALC
1D0 ASRB INSTRUCTION
l¥:E:IT/HISS REGISTER BIT 4 NOT SET
4

tMOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE

GLOBAL AREAS
KDJ11A
. MAC

2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308

MACY11

03-APR-84

006064
006066
006070

000062

006072
006076

005767
032767

006104
006106
006114
006120
006122
006124
006126
006126
006132
006136
006142

006146

30A(1052)

11:36

O04-APR-84

T16

10:38

J4
PAGE 48

104000

ERROR

001325

.WORD

001410
012737
004767
104000

.WORD

173024
00001C

005532
173520

171646

5%:

57
BIT

BEQ
MOV
JSR
ERROR

001120

000063

.WORD

001325

.WORD

sALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER

ERRMSG

s ADDRESS OF ERROR MESSAGE

sCACHE SYSTEM ERROR

TSTLOC
@BITO3,

HITMIS
64
@TST16+4,80SCF TRE
PC.APTSFT

177744
177766
001116
000000

sREAD TEST LOCATION
s IF HIT/MISS REGISTER BIT

3 SET
: THEN
:MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER

ERRMSG

s ADDRESS OF ERROR MESSAGE

005037
005037
005037
000167

SEQ 0048

TEST MULTIPROCESSING INSTRUCTIONS

1CACHE

CLR
CLR
CLR
JMP

SOMSER
80CPEREG
80SOF TER
TST17

SYSTEM ERROR

;:CLEAR THE MEM SYS ERROR REG
;CLEAR THE CPU ERROR REGISTER
;CLEAR THE SOFT ERROR COUNT
:JUMP OVER DATA TABLES OR SUBROUTINES
:TO NEXT TEST

crsTt21:
$38888000440500
00000400000
00408
88 0000088000
50000
8000080040
000
00848

;#TEST

TEST

CACHE

DATA RAMS

$3088204508008000004000000800040000000800080000000080048005000008008

:DATA STORE RAM TESTS - THERE ARE TWO TESTS FOR THE DATA STORE RAM.

:THE FIRST TEST WILL BE A NO DUAL ADDRESSING TEST AND THE SECOND

s TEST WILL BE A DATA RELIABILITY TEST. THE NO DUAL ADDRESSING TEST
sWILL FIRST WRITE EACH WORD OF THE CACHE RAM WITH ITS WORD ADDRESS
sAND VERIFY THE CONTENTS WITH A READ OF EACH ADDRESS. THEN EACH
sBYTE WILL BE WRITTEN WITH ITS ADDRESS AND CHECKED. THE DATA
sRELIABILITY TEST THAT WILL BE USED IS A TEST CALLED MOVING INVERSIONS.
:

sBGNTST 1
sSETUP MMU REGISTERS TO HAVE BYPASS ON KERNAL SPACE AND NO
H
BYPASS ON USER SPACE
sLET PS EQUAL KERNAL FOR CURRENT MODE AND USER FOR PREVIOUS
:

sENABLE MMU
;GET FIRST ADDRESS OF 4K WORD DATA BUFFER
:CLEAR DATA TO BE WRITTEN
:SET DIAGNOSTIC BIT (BIT<1>) IN CCR
;D0 UNTIL DATA TO BE WRITTEN EQUALS 20000(8)
i.
e

WRITE DATA TO ADDRESS
ADD 2 TO ADDRESS

i.
i

IF RECEIVED DATA NE EXPECTED DATA THEN
ERROR IN CACHE SYSTEM

.
ADD 2 TO DATA TO BE WRITTEN
sENDDO
$SAVE CONTENTS OF VECTOR 114
sLET VECTOR 114 POINT TO DATA STORE PARITY ABORT ROUTINE
:GET FIRST ADDRESS OF 4K WORD DATA BUFFER
;CLEAR EXPECTED DATA
;D0 UNTIL EXPECTED DATA EQUALS 20000(8)
3.
READ ADDRESS

GLOBAL
KDJ11A,

2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364

-84
T17

10:38
PAEE 49
TEST CACHE DATA RAMS

SEQ 0049

ENDIF
T
s
ADD 2 TO EXPECTED DATA
s
ADD 2 TO ADDRESS
;ENDDO
sGET FIRST ADDRESS OF 8K BYTE DATA BUFFER

sCLEAR DATA TO BE WRITTEN
;D0 UNTIL ALL BYTES CHECKED
.
i

WRITE DATA TO ADDRESS
ADD 1 TO ADDRESS
ADD 1 TO DATA TO BE WRITTEN

i
g

IF RECEIVED DATA NE EXPECTED DATA THEN
ERROR IN CACHE SYSTEM

;ENDDO
:GET FIRST ADDRESS OF 8K BYTE DATA BUFFER
sCLEAR EXPECTED DATA
;D0 UNTIL EXPECTED DATA EQUALS 20000(8)
bs
READ ADDRESS
ENDIF
g
$s
ADD 1 TO EXPECTED DATA
s
ADD 1 TO ADDRESS
s ENDDO
;RESTORE VECTOR 114
sENDTST
H

006146
006146
006152
006156
006164
006172
006200
006204

3 ;.‘.“““..““.“.“..“‘.....‘“.“‘...‘.“.‘.“‘0.“‘.‘.....

005267
004767

006214
006220
006222
006224
006230
006232
006240
006246

012767
042767
052737
012702
005001
052767
020127
001404
010122
062701
000771
013767
012737
042767

006310

012702
005001
020127
001430
005712
032737
001010
012737
004767

006314
006316

104000
000064

TST17:

164170
164324
177572
171532

000114
001630
000002

172570
000114
171472

18:

2%:

140000
020000

3s:

INC
JSR
MOV
8IC
BIS
MOV
CLR
BIS
cHP
BEQ
MOV

ADD
BR
MOV
MOV
BiC
MOV
CLR

cMP

BEQ
TST

000010

177752

BIT

006152
173324

001120

MOV
JSR

BNE

ERROR
.WORD

$TESTN
PC,
INITMM
€1600,
KIPAR6
#BIT02,SR3
#8IT00,84SRO
€140000,R2
R1
#8IT01,CCR
R1,
220000
28
R1,
(R2).

; INCREMENT TEST NUMBER
sSETUP MMU REGISTERS/FORCE CACHE BYPASS PAGES O;LET PAR6 MAP TO ADDRESS 160000
;DISABLE KERNEL D SPACE.
s TURN ON MEMORY MANAGEMENT
sGET FIRST ADDRESS OF 4K WORD BUFFER
;INIT DATA TO BE WRITTEN
:SET DIAGNOSTIC BIT
;D0 UNTIL ALL ADDRESSES WRITTEN
;IF DONE GO CHECK DATA
sWRITE DATA TO ADDRESS

86114,
SLOCOO
ORAMPAR, 80114
#BIT01,CCR

s SAVE CONTENTS OF VECTOR 114
sLET VECTOR 114 POINT TO ABORT ROUTINE
;:CLEAR DIAGNOSTIC BIT. ALL FURTHER

92,
1s

:UPDATE DATA BY 2 (WORD BOUNDARY)
: ENDDO

;REFERENCES TO PAGE 6 SHOULD BE CACHED.

#140000,R2
R1

:GET FIRST ADDRESS OF 4K WORD BUFFER
;sINIT DATA TO BE CHECKED

:IF DONE GO DO BYTES

R1,

€20000

3100 UNTIL ALL ADDRESSES CHECKED

(R2)

1CHECK THAT CACHE WAS

1SHOULD HAVE HIT

sALL ERRORS TO TRAP TO EMT VECTOR
:UNIQUE ERROR NUMBER

OBITO3,B9HITMIS

OTST17+4,80S0F TRE
PC,APTSFT

s ALLOCATED

sMOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
sCACHE SYSTEM ERROR

;EXPECTED A MIT; GOT A MISS

GLOBAL AREAS

KDJ11A. MAC

2365
2366
2367
2368
2369
2370
2371

2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399

2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414

2415
2416
2417
2418
2419
2420

MACY11 30A(1052)
03-APR-84 11:36

006320
006322
006326
006332
006334
006336
006340

001325
012267
020167
001403
104000
000065
001325

006342
006346

062701
000745

04-APR-84

172510

4%:

172504

000002

100¢:

10:38

PAGE 50
TEST CACHE DATA RAMS

. WORD
MOV
CMP
BEQ
ERROR
.WORD
.WORD

ERRMSG
(R2)+,
R1,
100$

ADD
BR

#2,R1

RECDAT
RECDAT

SEQ 0050

; ADDRESS OF ERROR MESSAGE

;READ TEST LOCATION
'¥:ESECEIVED DATA NOT EQUAL TO EXPECTED
:

;ALL ERRORS TO TRAP TO EM: VECTOR
;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
;UPDATE EXPECTED DATA BY 2
:ENDDO

65
ERRMSG
3¢

;24aNOW CHECK BYTES##a4s

:SINCE CACHE IS ALREADY ALLOCATED; WRITE BYTES WILL HIT
sAND WRITE THROUGH CACHE TO MEMORY.

006350

006356
006362

006370
006372
006374
006402

006410

052737
012702
005001
020127
001404
110122
062701
000771
012702
005001

105712
032737
001010
012737
004767

104000
000066
001325
112267
120167
001410
012737
004767
104000
000067
001325

005201
020127
001342
005067
005067
016737
005037
005037
005037
000167

000002
140000

177746

020000

S$:

6%:

000001

140000

78:

000010

177752

006152
173204

001120

172370
172364
006152
173152

BIS
MOV
CLR
CMP
BEQ
MOVB
ADD
BR
MOV
CLR
TSTB

BIT
BNE
MOV

JSR

o81IT01,84CCR

3{40000.?2

R1,
7$
R1,

a1,

(R2)
0BIT03,30HITMIS

101$
@TST17+4,80S0F
TRE

PC,APTSFT

g%.

001120

(R2)+

#140000,R2
R1

66
ERRMSG
(R2)+,

101s$:

#20000

RECDAT

0T1ST17+4,80S0F
TRE

PC.APTSFT

67
ERRMSG
9$:

020000

171236
171056
172310
177744
177766
001116
000000

10$:
000114

R1
R1,£20000
8%

CLR
CLR

MOV

CLR
CLR
CLR

CCR

SRO
SLOCOO, asiia
SOMSER
80CPEREG
80S0F TER
TST20

:+SET DIAGNOSTIC MODE IN CCR
;GET FIRST ADDRESS OF 4K WORD BUFFER
;INIT DATA TO BE WRITTEN
3D0 UNTIL ALL ADDRESSES WRITTEN
;IF DONE GO CHECK DATA
sWRITE DATA TO ADDRESS
;UPDATE DATA BY 1 (BYTE BOUNDARY)
;:ENDDO
:GET FIRST ADDRESS OF 4K WORD BUFFER
sINIT DATA TO BE CHECKED
:00 UNTIL ALL ADDRESSES CHECKED
;CHECK THAT CACHE WAS ALLOCATED
;1SHOULD BE A i
:

sMOVE RETRY ADDRESS TO SOFT RETURN
;GO TO SOFT ERROR SUBROUTINE
;:CACHE SYSTEM ERROR

sEXPECTED A HIT; GOT A MISS
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
;READ TEST LOCATION
a%:EzECIEVED DATA NOT EQUAL TO EXPECTED
3

:MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:CACHE SYSTEM ERROR
sUPDATE EXPECTED DATA BY 1
;IF ALL ADDRESS HAVE NOT BEEN TESTED
:THEN GET NEXT ADDRESS
sELSE EXIT TEST
;CLEAR THE CCR

s TURN OFF MMU

sRESTORE VECTOR 114
;CLEAR THF MEM SYS ERROR REG
;CLEAR T+
CPU ERROR REGISTER
;iCLEAR T+ SOFT ERROR COUNT

i JUMP Ovin DATA TABLES OR SUBROUTINES

GLOBAL AREAS

KDJ11A.MAC

2421
2422
2423

2‘2‘

2425

2426

MACY11 30A(1052)

03-APR-84

11:36

O04-APR-84

T17

10:38

PAGE S1

SEQ 0051

TEST CACHE DATA RAMS

;TO NEXT
006542

TEST

CTST22:

H ;‘.‘00.“.000.‘00“0“.“.“.0“‘.“““..“".000.....““....0

;#TEST 20

CACHE DATA RAM DATA RELIABILITY

TEST

F ;C“““.O.‘.O““““‘0.““‘.“0“.‘0‘...“.00‘0““0“.‘.‘0“

2427
2428
2429
2430
2431
2432
2433

:MOVING INVERSIONS TEST FOR DATA RAMS - THE TEST IS STARTED AFTER LOADING THE
:RAM STORE WITH 0'S. EACH ADDRESS IS READ AND VERIFIED TO BE ALL 0'S. THEN A
i1 IS SUBSTITUTED IN A BIT POSITION AND THE NEW WORD IS WRITTEN. NEXT THE
sADDRESS IS READ TO VERIFY THE NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF
s THE WORD LEAVING THE ARRAY FILED WITH 1'S. THE WHOLE PROCESS IS REPEATED
+PLUGGING IN 0‘'S TO THE 1'S AND REPEATED TWICE MORE ADDRESSING IN THE DOWNWARD
:DIRECTION. FINALLY EVERYTHING IS REPEATED FOR EACH BIT POSITION BEING THE

24;2
24
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446

sONLY A SINGLE BIT AT A TIME EVERY FOURTH BIT WILL BE DONE CONCURRENTLY.
H
:BGNTST
;SETUP AND ENABLE MMU
;SETUP CCR TO ABORT PARITY ERRORS
;:CLEAR CACHE
;LET FWDSEQ = o1
;LET ADDLSB = #1
;D0 UNTIL ADDLSB EQ @0
:.
LET CURDAT = 0
i,
LET RITEDA = 01
;.
LET NEWDAT = o1

2448

2434

2447

;LSB. TO SAVE TIME AND KNOWING THE LAYOUT OF THE RAM CHIPS INSTEAD OF DOING

IF FWDSEQ = &1 THEN

2451
2452
2453

:.
:.
i.

%
Z
ENDIF

2455

LET DCOUNT

g:;g

2454

2456

2457

2458
2459
2460
2451
2462
2463

:.
;.

LET FSTADD EQUAL FIRST ADDRESS OF 8K BYTE BUFFER

LET LASTAD EQUAL LAST ADDRESS OF 8K BYTE BUFFER

LET FSTADD EQUAL LAST ADDRESS OF 8K BYTE BUFFER
LET LASTAD EQUAL FIRST ADDRESS OF 8K BYTE BUFFER

LET CURADD = FSTADD
= 20

SAVE CONTENTS OF VECTOR 114

LET VECTOR 114 POINT TO DATA STORE PARITY ABORT ROUTINE

;.
;.
;.
;.
¥
;.

DO UNTIL DCOUNT EQ 210
¥
LET RECDAT = ®CURADD
‘
IF RECDAT NE CURDAT THEN
ERROR IN CACHE SYSTEM
:
ENDIF
i
IF DCOUNT GT @3 THEN

2465

ELSE

2467

‘

ENDIF

2464

2466

LET SCURADD = SCURADD CLEARBY RITEDA

LET SCURADD = 8CURADD SETBY RITEDA

2468
2469
2470
2471

i
:.
;.
.

5
LET RECDAT = BCURADD
2
IF RECOAT NE NEWDAT THEN
ERROR IN CACHE SYSTEM
:
ENDIF

2473
2474

:.
;.

2476

2472

2475

IF CURADD EQG LASTAD THEN
.

IF RITEDA = 0210 THEN
3
IF DCOUNT NE @7 THEN
s

LET CURDAT

LET RITEDA

2377

= @21

OBAL

KDJ11A.MA

oL o 80 10 2R BRrA%RAM DATA RELIABILITY TEST

2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487

§a
&
e
e

2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503

.
.
.
-

5
»
.
"

£
3.
3.

.
.
"

:
.

5
§
s
i.

"
1
.
.

g
.
ELSE
.

ELSE
.

"
ENDIF

P
ENDIF

LET NEWDAT

#2356

LET CURDAT = NEWDAT
ROTATE RITEDA
IF DCOUNT GT &3 THEN
e

LET NEWDAT

NEWDAT

CLEAREDBY

)
ENDIF

LET NEWDAT

NEWDAT

SETBY

RITEDA

INCREMENT DCOUNT
LET CURADD = FSTADD
IF FUDSEQ = &1 THEN
LET CURADD = CURADD + ADDLSB
IF CARRY THEN
.
LET CURADD = CURADD +
ENDIF

ELSE

.
.

ENDIF

SEQ 0052

ENDIF

LET CURADD = CURADD - ADDLSB
IF CARRY THEN
LET CURADD = LASTAD .
LET CURADD = CURADD ENDIF

ADDLSB
#1

ENDDO
IF FWDSEQ EQ @1 THEN
LET FWDSEQ = 20
ELSE
i
ROTATE ADDLSSB
a
LET FWDSEQ = @1

ENDIF

;ENDDO
sRESTORE VECTOR 114
sENDTST
;RO=CURADD (CURRENT ADDRESS)
sR1=WORKING REGISTER
sR2=RECDAT (RECEIVED DATA)
sR3=RITEDA (DATA TO BE WRITTEN)

;R4=NEWDAT (EXPECTED DATA)

sR5=CURDAT (CURRENT DATA)

006542

$:8808888888884082000808080080
8482008044800
4838084808
000000000004
0802

006546
006554
006556
006562

005267
032777
001002
000167
004767

172236
001000

006566
006574
006602
006610

012767
052737
052767
012700

000200
000001

TST20:

172272

000454
172624

140000

100$:

163560
177572
171136

INC
BIT
BNE

$TESTN
#81T09,3SWR
100$

JMP

EXTST

MOV
BIS
BIS
MOV

JSR

PC.

INITMM

s INCREMENT TEST NUMBER
sARE DATA RELIABILITY TESTS SELECTED?
+IF BITO9 IN SWR = 1; DO RELIABILITY TEST
sELSE SKIP IT
:SETUP MEMORY MANAGEMENT
sPAGES 0 THRU S BYPASS CACHE
sPAGES 6 AND 7 DON’'T BYPASS CACHE
sLET KIPAR6 RE-LOCATE TO 20000-37777
s TURN ON MMU
sENABLE PARITY ABORTS
3---8

GLOBAL AREAS
KDJ11A.MAC

2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550

006614

006712
006714
006722
006730
006734
006740
006746
006750
006752
006754
006756
006760
006762
006764
006772

006774
006776
007000
007002
007004
007006
007010
007012
007014
007016
007022
007024
007030
007032
007040
007042
007046
007052
007056
007060
007062
007064
007072
007074

MACY11l 30A(1052)

03-APR-84 11:36

012701
005020
077102
012767
012767
013767
012737

005002
005005
012703
012704
005767
001407
012767
012767
000406
012767
012767
016700
005067
022767
001511
111002
120205
001403
104000
000070
001325

000001
000001
000114
001630

172234

172230
172162
000114

172174
172170

157777
140000
172144
172114

172156

172152
172106

2%:
BGNTLP:

MOV

CLR

soB
MOV

CLR

022703
001013

000210

172014
000377
000021
000356

000003

171762

@21,
021,

R3
R4

«CLEARING CACHE
I___»

1 INIT UPWARD ADDRESSING INDICATOR
1 INIT LSB AND DO LOOP UNTIL SHIFTED OuT

1SAVE CONTENTS OF VECTOR 114

1LET VECTOR POINT TO ABORT ROUTINE
1 INIT RECDAT.
1+ INIT CURRENT DATA
s INIT DATA TO BE WRITTEN
s INIT EXPECTED DATA
1 IF ADDRESSING UPWARD
1 THEN

MOV
BHR?V

€140000,FSTADD
g}S?TN.LSTADD

1LET FIRST ADDRESS EQUAL LOWEST VALUE
IEE;ELAST ADDRESS EQUAL HIGHEST VALUE

MOV

@157777 ,FSTADD

sLET FIRST ADDRESS EQUAL HIGHEST VALUE

MOV
MOV

CLR
CMP
BEQ

cHP

BGE
8ICB
BR

(RO),P2

R2,
18

DCOUNT

sALL ERRORS TO TRAP TO EMT VECTOR
stUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
agfcg'.‘oov COUNT GREATER THAN 3

DCOUNT

70
ERRMSG

o3,

2%
RS,
3

(RO)

RS,
(RO)
(RO),R2
R2,
R4

ERROR
LMORD
.WORD

71
ERRMSG

cHP

RO,

BNE
cHe
BNE
cP
BEQ

MOV
BR
MOV

ROL

cMP

8GE
BIC

84
@210,
Ss
a7,
74

LSTADD

R3
DCOUNT

@377,
21,

RS
R3
R4

R4,

03,

DCOUNT

R3,

0356,
7¢

R3
64

)

sLET LAST ADDRESS EQUAL LOWEST VALUE
sLET CURRENT ADDRESS EQUAL FIRST ADDRESS
s INIT LOOP COUNTER
;100 LOOP 8 TIMES (4 TIMES TO WRITE 1'S
tAND 4 TIMES TO WRITE BACK 0'S)
1FIRST READ LOCATION
1 IF RECIEVED DATA NOT EQUAL TO EXPECTED

BISB
MOVB
cMP8

MOV
MOV
S$:

1s
FWDSEQ

o1,
ADDLSB
80114,
SLOCOO
ORAMPAR, 80114

FWDSEQ

BEQ

172060

R1,
e,

TST

MOV
MOV

ERROR
.WORD
.WORD

2%:
38:

(RO)»

cMP8
BEQ

1%:

210000, R1

CLR

MOVB

172062

SEQ 0053

CACHE DATA RAM DATA RELIABILITY TEST

BEQ

13:

PAGE 53

MOV
MOV
MOV
TSTLUP:

140000
157777

000010

10:38

1%:

000021
000021
172172

020067

022767
001420
012705
012703
012704
000411
010405
006103
022767
002002
040304

120

010000

022767
002002
140310
000401
150310
111002
120204
001403
104000
000071
001325

001034

O4-APR-84

;DATA THEN

1CLEAR TEST DATA BY WRITE DATA
:ELSE
iSET TEST DATA By WRITE DATA
;D0 READ AFTER WRITE
+IF RECIEVED DATA NOT EQUAL TO EXPECTED
1DATA THEN
tALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1+ADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
sgismem ADDRESS EQUALS LAST ADDRESS
H

1AND IF WRITE PATTERN EQUALS LAST

tPATTERN THEN

t1AND TEST IS NOT ON LAST LOOP
: THEN
1SET UP TO WRITE 0'S

$ELSE

1SET UP FOR NEXT DATA PATTERN

I‘Y\ENIF DOWNWARD ADDRESSING
:

1LET NEW DATA BE CLEARED By WRITE DATA

RbITh.ARE"S os"RPA'ANSPRNAE52)
3

2330

2589

2591
2592

7100 050303
7076

007102
007106

2593

007112

2595

007120

2594

007114

)

00040

005267
016700

171746
171766

005767

171746

171742
160000

000426

001412

04-APR;88 10330 PABRR*RAM DATA RELIABILITY TEST
-

6%:

7%:

8s:

INC
MOV
BR

R3,

DCOUNT
FSTADD, RO
108

JELSE

iLET NEWDAT BE SET By WRITE DATA

tUPDATE LOOP COUNTER
tREINIT FIRST ADDRESS FOR THIS PASS
+ELSE

FWDSEQ

ADD
CcMP
BGT
SuUB
ADD

ADDLSB, RO
©160000,R0
108
920000, RO
o1,
RO

1CALCULATE NEXT MIGHER ADDRESS
1 IF CURRENT ADDRESS HAS BEEN INCREASED
1ABOVE HIGHEST ADDRESS THEN
;ROLL ADDRESS BACK

BEQ

+ IF ADDRESSING UPWARD

i THEN

2596
2597
2598
2599
2600

007122
007126
007132
007134
007140

066700
022700
003016
162700
062700

020000
000001

2602
2603

007146
007152

166700
022700

171716
140000

9s:

suB
cMP

ADDLSB, RO
$140000,R0

;CALCULATE NEXT LOWER ADDRESS
+ IF CURRENT ADDRESS HAS BEEN DECREASED

2605
2606
2607
2608

007160
007164
007170
007172

062700
162700
000663
005767

020000
000001

20000, RO
01,
RO
BGNTLP
FWDSEQ

+ROLL ADDRESS BACK

171670

ADD
SuUB
108:
BR
ENDTLP: TST

2610
2611
2612
2613

007200
007204
007210
007216

005067
000167
012767
006167

171662
177446
000001
171646

CLR
JMP
MOV
ROL

FWDSEQ
TSTLUP
o1,
ADDL S8

BEQ
JMP

EXTST
TSTLUP

CLR
CLR
CLR
CLR
JMP

SRO
SOMSER
80CPEREG
89SOF TER
TSsT21

2601

2604

2609

2614

2615
2616
2617
2618

007144

007156

007176

007222

007230
007232
007236
007244

2619
2620
2621
2622
2623

007250
007254
007260
007264
007270

2625
2626

007274

2624

2627

2628

2629

2630
2631
2632

ggj

000411

003404

001404

022767

001402
000167
016737
005067

005067
005037
005037
005037
000167

020000

177420

171566
170476

BLE

BEQ

171650

1$:

171640

ENDLUP: CMP

000114

EXTST:

170316
177744
177766
001116
000000

MOV
CLR

108

;BELOW LOWEST ADDRESS THEN

; ENDDO
+ IF ADDRESSING UPWARD FINISHED
: THEN

100 ADDRESSING DOWNWARD
FWDSEQ

220000, ADDL SB

SLOCOO,
CCR

;ELSE

8e114

1SET ADDRESSING UPWARD INDICATOR
sUPDATE LSB TO NEXT POSITION
;WE ONLY GO AS FAR AS 10000

:ENDDO

tRESTORE VECTOR 114
sINIT CCR FOR EXIT

i TURN OFF MMU
;:CLEAR THE MEM SYS ERROR REG
;:CLEAR THE CPU ERROR REGISTER
;CLEAR THE SOFT ERROR COUNT
:JUMP OVER DATA TABLES OR SUBROUTINES

:TO NEXT TEST

CTST23:
$300080080800080000080080000402000080000400000000804000000000000000¢

soTEST 21

TAG RAM DUAL ADDRESS TEST

$15000086800000080080048000000000000000000000080000000080004000800000

s TAG STORE RAM TESTS - THERE ARE TWO TESTS FOR THE TAG STORE RAMS. THE FIRST
sTEST IS AN ADDRESSING TEST TO ENSURE NO DUAL ADDRESSING OF THE TAG STORE.
s THE SECOND TEST IS A “GALLOPING ONES AND ZEROS" TEST THAT CHECKS THE DATA
sRELIABILITY OF THE TAG RAMS.
3

2635
2636
2637
2638
2639

sOUAL ADDRESSING TEST - THIS WILL BE DONE BY FIRST FLUSHING THE CACHE, THEN
s THE FIRST 256(10) LOCATIONS (BLOCK O) WILL BE WRITTEN WITH ADDRESSES THAT
sWILL CAUSE A INCREMENTING PATTERN TO BE STORED IN THOSE LOCATIONS OF THE TAG
:STORE RAM, NEXT THE ENTIRE 4K ADDRESS RANGE WILL BE READ. THE MIT/MISS
sREGISTER SHOULD ONLY REPORT MITS ON THE ADDRESSES THAT WERE ALLOCATED. THIS

2642
2643
2644

sINITIALIZE LOW ADDRESS
:SETUP AND ENABLE MMU
s INITIALIZE BLOCK COUNTER

+PROCESS WILL BE REPEATED FOR EACH BLOCK FOR A TOTAL OF 16 (10) BLOCKS.
H

RS A0

b1 AREYS 0s"ABR'ALSPT(4E32) 04 APR.84 1038 PAGE
SR ADDRESS TEST
AL

AREA

2645
S646
2647
2648
2649
2650

400 UNTIL ALL BLOCKS TESTED (16 TIMES
H
FLUSH CACHE ANDSET DIAGNOSTIC BIT
.
LET CURRENT ADDRESS = LOW ADDRESS
b
INITIALIZE ALLOCATION COUNTER
s
DO UNTIL ENTIRE BLOCK ALLOCATED (256 TIMES)
;.
IF CURRENT ADDRESS < 32K THEN

;

2651
2652

b
;.

2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672

b
;.
2
5
;.
4
;.
:.
;.
;.
.
.
;.
;.
;.
;i
;.
;.
‘.
-

2673
2674
2675
2676

;.
¥
‘.
%

2677

2678
2679
2680
2681
2682
2683
2684
2685
2686
2687

2688

2689

007274

005267

171504

007300

032777

000400

2692

007310

000167

000404

2693

.
ELSE

READ CURRENT ADDRESS

.
.
:
.

.
.
.
.

:
ENDIF
ENDIF
UPDATE GOOD ADDRESS (ADD 02)
UPDATE CURRENT ADDRESS

)
:
WRITE CURRENT ADDRESS
ENDIF
:
UPDATE CURRENT ADDRESS (ALSO ADD 200 TO PAR)
ENDDO
INITIALIZE GOOD ADDRESS
INITIALIZE CURRENT ADDRESS
INITIALIZE LOCATION COUNTER
SAVE CONTENTS OF VECTOR 114
LET VECTOR 114 POINT TO TAG STORE PARITY ABORT ROUTINE
DO UNTIL ALL LOCATIONS CHECKED (256 TIMES)
.
INITIALIZE CHECK COUNTER
.
DO UNTIL ADDRESS IN EACH BLOCK CHECKED
.
.
READ CURRENT ADDRESS
IF HIT THEN
IF CURRENT ADDRESS NE GOOD ADDRESS THEN
ERROR IN CACHE SYSTEM
4
:
:
ENDIF
!
;
ELSE
:
:
"
IF CURRENT ADDRESS EQUAL GOOD ADDRESS THEN
.
.
:
ERROR IN CACHE SYSTEM
.

ENDDO

007306
007314

_
¢

130008080000000000000000000400000000000000000004000000004000000884

2690
2691

"
:

ye
£
UPDATE LOW ADDRESS (ADD 22000)
L«
ENDDO
:ENDDO
:DISABLE MMU
sRESTORE VECTOR 114
1ENDTST
sR3=GOODAD
3RS =CURADD
007274

SEQ 0055

001402
012767

140000

1sT21:

171540
171564

INC

08108, 3SWR

JHP

108

BEQ

3008:

STESTN

8IT

MOV

s INCREMENT TEST NUMBER

+IS THIS AN 18 BIT SYSTEM?

300%

100 THIS TEST IF IT ISN'T

+INITIALIZE LOW ADDRESS (USE PAR6)

1ELSE: JUMP TO END OF TEST

2694
2695

007322
007326

004767
012767

172064
000020

163162

JSR
MOV

PC,
INITHM
020,5R3

2697

007342

INITIALIZE MMU
1ENABLE 22 BIT ADDRESSING

012767

177760

171510

MOV

©-16.,

100 UNTIL ALL BLOCKS TESTED

2696

2698
2699
2700

007334

007350
007356
007364

052737

012737
012737

016705

000001

002000
000402
171516

177572

172354
177746

BIS

1$:

MOV
MOV
MOV

0BIT00,805R0

LOOPIN

02000.80KIPAR6
0402,
®OCCR
LOWADD, RS

1ENABLE MMU

1SET KIPAR6 RELOCATION CONSTANT
sFLUSH CACHE AND SET DIAG ETT

sGET FIRST ADDRESS

TO PAGE 8

IN CURREMT BLOCK

GLOBAL AREAS

KDJ11A. MAC

2701
2702
2703
2704
2705
2706
2707
2708
2709
2710

2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
27232
2729
2138
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756

007370
007376

007400
007404
007412
007416

MACY11 30!(&52)
03-APR- 84 11:

04 -APR -84
121

012767

177400

171460

062705
062737
005267

000002
000200
171440

172354

005015

001367

3s:

43:

10:

?26 PAGE
RAM DUAL.

ADDRESS TEST

MOV

©-256.,

ALLCTR

ADD
ADD
INC

02,

CLR

BNE

(RS)

€200,

g%LCTR

840KIPARG

SEQ 0056

+D0 UNTIL ALL ADDRESSES ALLOCATED
tWRITE CURRENT ADDRESS
1UPDATE CURRENT ADDRESS
1ADD 200 TO KIPAR6 TO INC TAG CONTENTS
+IF ALL ADDRESSES ALLOCATED

+ENDDO

s sADDRESSES HAVE NOW BEEN ALLOCATED. NEXT WE'LL CHECK THAT
3+ s THERE WAS NO DUAL ADDRESSING.
007420
007424
007430
007436

016703
012705
012737
013767
012737

171462
140000
002000
000114
001630

172354
171364
000114

007452
007460
007466
007470

012767
012767

177400
177761

171376
171366

013702

177752

007444

005015

MOV
MOV
MOV
MOV
MOV

LOWADD, R3

:GET FIRST ADDRESS

;D0 UNTIL ALL LOCATIONS CHECKED
1DO UNTIL ADDRESS IN EACH BLOCK CHECKED

80114,
SLOCOO
ORAMPAR, 80114

Ss$:

MOV
MOV

©-256.,

205%:

MOV

SOHITMI
,R2
S

6%:

CLR

s INITIALIZE GOOD ADDRESS

ALLCTR

(RS)

sRESET KIPAR6
$SAVE VECTOR
sLET VECTOR POINT TO RAM ABORT ROUTINE

sWRITE RS

:SAVE THE CONTENTS OF THE HIT/MISS REG

s THE FOLLOWING CODE IS TO CHECK FOR EXTRA FETCHES CAUSED BY THE PRE-FETCH
:BUFFER BEING OVER WRITTEN WHEN BITS 1-5 OF THE PREVIOUS WRITE
+ADDRESS (THE EFFECTIVE ADDRESS OF CLR (RS)) ARE EQUAL TO BITS 1-5
:OF THE CURRENT INSTRUCTION FETCH ADDRESS. (ADDRESS OF MOV @0HITMIS,R2 INST)

:THE EXTRA FETCH CAUSES THE HIT MISS REGISTER CONTENTS TO BE SHIFTED.

007474
007500
007502

012704

005104
074504

007470

007504
007510

042704
022704

177701
000076

007514
007516

007522

007524
007526
007532

001404

032702

001416
000403
032702

001412

007534
007536
007540
007546

020503
001422

007552
007554
007556
007560
007562
007564
007572

104000
000072
001325
020503
001010

012737
004767

000010

2208:

2308:
001120

9205¢ ,R4
R4
R5,R4

B8IC
cHpP

9177701 ,R4
@76 ,R4

001120

BIT

2204
eBIT02,R2

BIT

2304
oBITO3,R2

BEQ
BR
BEQ

CMP
BEQ
MOV
JSR

78:
007300
172042

coM
XOR

BEQ

000004

007300
172066

MOV

ERROR
.WORD
. WORD
cMP
BNE
MOV
JSR

RS,

8
@TS721+4,80S0F
TRE

PC,APTSFT

ERRMSG
RS,
R3
8s
@15721+4,80S0F TRE
PC,APTSFT

:SAVE ADDRESS OF MOVE INST IN R4
;COMPLIMENT R4
sIF ANY OF BITS 1-5 IN RS ARE EQUAL
:TO ANY OF BITS 1-S IN R4 THEN THE
sADDRESSES WERE NOT EQUAL
iONLY CONCERNED WITH BITS S5-1
:IF R4=76 THEN BITS S5-1

iWERE COMPLIMENTS
:IF

IN R4 AND RS

THEY'RE NOT

:THEN CHECK FOR BIT2 SET IN HIT/MISS REG.
+IF ACCESS WAS A CACHE MISS THEN GO TO 7%
tELSE IT WAS A HIT; GO TO 230
;ELSE CHECK FOR BIT3 SET IN HIT/MISS REG.
;éFSéTS NOT A HIT THEN GO TO 7%
sEL

s IF CURRENT ADDRESS NOT EQUAL TO GOOD
;1ADDRESS THEN

i+MOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
:CACHE SYSTEM ERROR
31GOT A CACHE MISS WHEN EXPECTING A NIT.
sALL ERRORS TO TRAP TO EMT VECTOR
1tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

s#’i E‘MENT ADDRESS EQUAL GOOD ADDRESS
H

tMOVE RETRY ADDRESS TO SOFT RETURN
:GO TO SOFT ERROR SUBROUTINE
:CACHE SYSTEM ERROR

2757

2758

2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782

007576
007600
007602

007604
007610
007614
007616
007622
007626
007632
007640
007644
007646
007654
007660
007662
007666
007672
007700
007704
007710
007714
007720

30A(1052)

-APR -84 11:&6

104000
000073
001325
062705
005267
002724
062703
042705
062705
062737
005267
002705
062767
005267
002002
000167
005067
016737
005037
005037
005037
000167

04-APR-84
T21

KDJ11A.MAC

MACY11

RROR

57
DUAL ADDRESS TEST

.WORD
.WORD
ADD
INC
BL T
AD 0
8 IC
ADD
ADD
INC
8 LT
ADD
INC

001000

171240

000002
017000
000002
000200
171212
001000
171200

177462
167700
171132
177744

172354
171232

BGE
000114

9s:

177766

001116
000000
108

JMP
CLR
MOV
CLR
CLR
CLR
JMP

SEQ 0057

3GOT A CACHE HIT WHEN EXPECTING A MISS.

GLOBAL AREAS

ERRMSG
21000,
DCOUNT
63

.2.
€17000,
02,
€200,

ALLCTR
5S¢

1000,

LOOPIN
9
1$

RS
RS
S4KIPAR6

LOWADD

SRO
SLOCOO, aell4
86MSER
80CPEREG
80SOFTER
TST122

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
tUPDATE TO NEXT BLOCK
s IF ADDRESS NOT CHECKED FOR EACH BLOCK

;:ENDDO
;UPDATE GOOD ADDRESS
s+UPDATE ADDRESS TO BE CHECKED
; IF ALL ADDRESSES CHECKED
sENDDO

sUPDATE TO NEXT BLOCK TO BE ALLOCATED

s+IF ALL BLOCKS WERE TESTED
s ENDDO
i

:DISABLE MMU
sRESTORE ABORT VECTOR
;:CLEAR THE MEM SYS ERROR REG
;:CLEAR THE CPU ERROR REGISTER
;:CLEAR THE SOFT ERROR COUNT
:JUMP OVER DATA TABLES OR SUBROUTINES
;sTO NEXT TEST

GLOBAL

S o RTD ouren 121

-84

KDJ11A.MAC

2783
2784
2785

10:38

.DSABL
007720

TAG RAR DAL ADDRESS TEST
PAGE S8

N e

AMA

CTST24:
3 ;.“‘...‘..‘.“.0“..“.‘.““...““.“....““.‘.““

;4 TEST

007720
007720
007724
007732
007734
007740
007746
007750
007756
007760
007764
007772
010000
010004
010010
010016
010024
010032
010036
010042
010046
010054
010056
010060

.0“....‘

TAG RAM DATA RELIABILITY

TEST

3 ;.‘..‘..‘.0“‘..““...‘..“...‘..‘.“‘...“.‘...‘.“..

005267
032777
001002
000167
032777
001404

012767
000402

005067
013767
012737
005037
004767
042767
012767
012767
012701
012702
012700
012767
012221
077002
000137

TST22:

171060
001000

171114

000772
000400

171100

177777

171064

171056
000114
000116
000116
171402
100000
000020
001600
100000
000000
010000
000001

171036
000114

10008:

INC
BIT
BNE
JMP
BIT
BEQ

$TESTN
08IT09,8SWR
1000$
XXX
081708, 8SWR
1001$

; INCREMENT TEST NUMBER
1ARE DATA RELIABILITY TESTS SELECTED?
+IF BITO9 IN SWR = 1 ;THEN DO TEST
;ELSE GO TO END.
;IS THIS AN 18 BIT SYSTEM?
:IF BITO8 IN SWR=0 BRANCH TO 1001

CLR
MOV

FLAG
@0114,5L0CO0

1SET UP INDICATOR FOR 22 BIT SYSTEM
:SAVE OLD PARITY ERROR VECTOR

ggv

10018:
10028:

28;

JSR

BIC
MOV

162274
162472
162316

167516

.‘...0‘.‘

1008:

110064

MOV
MOV
MOV
MOV
MOV
MOV
S08
JMP

:g;zn.mc

:SET UP INDICATOR FOR 18 BIT SYS
H

:}fi’g“u‘

:PUT

PC,

INITMM

TRAP CATCHER

IN FOR CACHE PARITY ERRORS

s INITIALIZE MMU

@BIT15,KIPDRS
020,SR3

:CLEAR CACHE BYPASS ON PDRS
;ENABLE 22 BIT ADDRESSING.

(R2)+,(R1)+
RO, 100¢
801014 +100000

:MOVE ALL THE COCE IN FIRST 4KW TO BANK 7
:
sSTART EXECUTING OUT OF BANK 7

91600, KIPARA
©100000,R1
00,R2
94096, ,RO
01,SRO

:SET KIPAR4 TO RELOCATE TO BANK 7 OF MEM.
:SET UP R1 AS POINTER TO BANK 7 VIA KIPARA4
:SET UP R2 AS POINTER TO BANK 0
1SET UP RO AS COUNTER
:TURN ON MMU

iWE ARE NOW OPERATING FROM PHYSICAL MEMORY IN BANK 7 (160000-177776)
010064
010070
010074
010102
010106
010110
010112
010120

012701
005037
042737
012702
005721
077202

140000
172354

100000
010000

010124

012737
012701
012706

000002
110672
120000

010130

012702

140002

012137

172352

010134

[

1018:

1%:
:

2140000,R1

:SETUP TO INIT CACHE TAG STORE TO ZEROS

OBIT15,80KIPDRO

sALLOW CACHE REFERENCE ON PAGE ZERO

CLR

SOKIPARG

MOV

910000, R2

B8IC

172300

177746

MOV

TSTY

(R1).

S08

R2,

MOV
MOV

#8I701,80CCR
@TAGAD1+100000,R1

+SET KIPAR6 TO RELOCATE TO PAGE 0
s INITIALIZE 4K WORDS

:CLEAR TAG STORE

:LOOP UNTIL ALL OF TAG STORE INITIALIZED
+SET DIAGNOSTIC BIT IN CCR
sMAKE R1 A POINTER TO TABLE OF DATA.

MOV

9120000,R6

MOV

9140002,R2

tUSING R6 TO SPEED UP TEST LOOP
tR2 WILL BE USED TO INDEX THRU THE CACHE.

MOV

(R1)+,30KIPARS

s+MOVE RELOCATION OFFSET

:SET UP TEST ADDRESS IN Ré6

s START TESTING
s THE OBJECT OF THIS TEST IS TO TRY EVERY POSIBLE DATA COMBINATION AT A
sGIVEN ADDRESS WHMILE ALL OTHER ADDRESSES ARE SET TO ALL ZEROS. ONCE A
sCHANGE IN THE DATA AT A PARTICULAR ADDRESS MAS BEEN MADE; ALL OTHER
sADDRESSES ARE CHECKED TO ENSURE THAT DATA HAS NOT BEEN ALTERED. WHEN ALL
:DATA COMBINATIONS HAVE BEEN CHECKED AT A PARTICULAR ADDRESS; THAT ADDRESS
+IS RESET TO ZEROS AND THE NEXT CONSECUTIVE ADRESS IS TESTED. THIS IS DONE
$UNTIL ALL 4096 LOCATIONS HAVE BEEN TESTED.
FLDO:

(DATA

THAT wWiliLL

2839
2840
2841

2842
2843
2844
2845
2846
2847
2848
2849

2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860

-ASR-O‘ 11:&6

MACY11l

010140
010144
010146
010154
010156
010162
010164
010166
010170
010172

005767
001403
042737
005016
013703
005703
001403
104000
000074
001325

010174
010174
010176
010204
010206
010210
010212

005716
032737
001003
104000
000075
001325
012700
012704
012705
020502
001410

30A(1052)

170000

172352

177752

10:38
PAGE 59
TAG RAM DATA RELIABILITY

170676

TST
BEQ
18:

BIC
CLR
MOV
TST

FLDOA:

000010

005722

010236
010242
010244
010246
010250
010252

030437
001407
077007
104000
000076
001325

177752

010254
010260
010262
010264
010270

042702
000765
010203
162703
020306

037776

010272
010274
010276
010300

001403
104000
000077
001325

€10302
010304

005711
001313

010306
010312

022706
001410
062706
062702

010000

160000

177752

1$:

2%:

101¢:

020002

102s:
3s:

137776
000002
000002

Ss:

(R6)
@OHITMIS,R3

iLOAD TAG RAMS WITH DATA PATTERN.
+SAVE CONTENTS OF HIT/MISS REG IN R3

+MODIFY FOR 18 BIT SYSTEM

.WORD

ERRMSG

:BRANCH TO FLDOA
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
;ERROR!! WE GOT A CACHE HIT- WANTED A MISS

TST

(R6)
@BITO3,30HITMIS
100$

sCHECK THAT CACHE WAS PROPERLY ALLOCATED.
sWE'RE LOOKING FOR A HIT THIS TIME.

MOV
MOV

MOV
CcMP
BEQ
TST

BIT
BEQ

ERROR

.WORD
4%

tBE IN THE TAG RAMS) TO KIPARS,
+IS THIS AN 18 BIT SYSTEM
1BRANCH IF NOT

R3
FLDOA

BIT
BNE
ERROR
.WORD
. WORD

100¢:

SEQ 0059

TEST

BEQ

ERROR
.WORD

010214
010220
010224
010230
010232
010234

010314
010320

T22

O4-APR-84

%fi 32375 §8

GLOBAL AREAS
KDJ11A.MAC

75
ERRMSG
94096. .RO

98IT02,R4
2160000,RS
R5,R2
102$

(R2).

R4 ,80HITMIS

3
RO,1$
76

ERRMSG

#37776,R2

R2,R3
#20002,R3
R3,.R6

tHIT MISS REGISTER SHOULD BE CLEAR

:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
:CACHE SYSTEM ERROR
:ERROR!
s INIT RO TO COUNT 4KWORDS.
:LOAD DATA INTO R4 TO SPEED UP BIT INST.
:LOAD DATA INTO RS TO SPEED UP CMP INST.
:IF TOP OF CACHE HAS BEEN REACHED
;GO RESET R2 TO 140000
sENSURE THAT OTHER CACHE LOCATIONS
sWERE UNAFFECTED.

sALL CACHE LOCATIONS SHOULD HIT.
;KEEP GOING UNTIL WE GET A MISS
s TEST THE NEXT CACHE LOCATION
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
;ERROR! WE SHOULD HAVE GOTTEN A MISS
:BEFORE FALLING THRU SOB
sRESET R2 TO 140000
i

ERRMSG

:SAVE CONTENTS OF R2 IN R3
sSUBTRACT 20002 FROM CONTENTS OF R3
:SHOULD BE EQUAL. IF NOT; THEN THE
:CACHE RAM HAS BEEN ALTERED
:GO TO NEXT TEST
tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

(R1)

tHAVE WE

1ST
BNE

FLDO

BEQ

FLD1

ADD

2,R2

2137776
,R6

02,R6

sCACHE SYSTEM ERROR

TRIED ALL PATTERNS AT

THIS LOC?

:GO GET NEXT ADDRESS IF YES.
+IF NOT GO DO THE NEXT DATA PATTERN,

sHAVE WE TESTED ALL 4KW CACHE LOCATIONS:
:IF YES THEN GO TO NEXT TEST
sELSE GET THE NEXT ADDRESS...

:BUMP R2

GLOBAL AREAS
KDJ11A, MAC

2895
2896
2897
2898
2899
2900
2901
2902
290%

010324
010330

MACY11 30A(1052)
03-APR-84 11:36
012701
000167
012701
012737

140000
077600

010346
010352
010354
010362
010370
010374
010376
010400
010404
010410
010414
010420
010424
010426
010434
010436
010442
010444
010446
010450
010452

005767
001406
042737
012737
012702
005021
077202
012701
012706
012702
012137
005767
001403
042737
005016
013703
0057C3
001403
104000
000100
001325

170470

010454
010454
010456
010464
010466
010470
010472

005716
032737
001003
104000
000101
001325

010474
010500
010504
010506
010510

012700
012705
020502
001412
005022

010000
160000

010512
010516
010522
010524
010526
010530
010532

013703
032703
001407
077011
104000
000102
001325

177752

042702
000763
012704
010267

10:38

110672
177600

010334
010340

010534
010540
010542
010546

04-APR-84
122

170000

000002
010000

172354

172354
177746

110704
120000
140002
172352
170416

170000

FLD1:

100%:
1%:

FLD1A:
172352

177752

18:

PAGE 60

TAG RAM DATA RELIABILITY

000010

177752

1$:

@TAGAD1 +100000,R1
FLDO

+RESET DATA POINTER

MOV
MOV

1 INIT R1

TST
BEQ
BIC
MOV
MOV

FLAG

S0B
MOV
MOV
MOV
MOV
.TST
BEQ

R2,1$
#TAGAD2+100000,R1
€120000,R6
#140002,R2

CLR

B8IC
CLR
MOV
TST
BEQ

TST

BIT

100$

100%:

102%:

103%:;

CLR

BIT
sS08
ERROR

1DATA IN KIPAR6 WILL CAUSE
+70 BE SET TO ALL 1°S.

TAG RAMS

:IS THIS AN 18 BIT SYSTEM?
+BRANCH IF NOT
+MODIFY FOR 18 BIT SYSTEM

#4096. ,R2

sSET UP TO FILL 4KW OF CACHE WITH ONES

e8IT01,a0¢CCR
(R1)+

(R1)+,80KIPARS

21700
80K
00,
IPARS

(R6)
SOHITMIS,R3
R3
FLD1B

100
ERRMSG

(R6)
BITO3,0HITHIS
100$

94096. ,.RO
€160000,R5

2%:

100 IT AGAIN

101
ERRMSG

101$:

SEQ 0060

TEST

MOV
JMP

ERROR
.WORD
.WORD
FLD1B:

RS5,R2
104
(R2)»

SOHITMIS,R3
#81702,R3
105$

RO,28

102
ERRMSG

037776

104
:

BIC

#37776,R2

010512
170332

105¢:

MOV
MOV

#1024 ,R4
R2,CURADD

101

sSET DIAGNOSTIC BIT IN CACHE CONTROL REG

sWRITE THE CACHE
i

1SET UP R1 AS A POINTER TO DATA
1SET UP TESTADDRESS

TABLE

$SET UP R2

:DATA IN KIPARS WILL BE WRITTEN INTO TAG RAM
:IS THIS AN 18 BIT SYSTEM?
1BRANCHIF NOT
:MODIFY FOR 18 BIT SYSTEM

;WRITE TAG RAM WITH TEST DATA
sSTORE CONTENTS OF HIS MISS REGISTER

sHIT/MISS REGISTER SHOULD BE CLEAR

;BRANCH IF IT WAS A MISS

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
s TEST ADDRESS SHOULD NOW BE ALLOCATED IN CACHE
;0ID IT HIT?
:BRANCH IF YES
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
:+ADDRESS OF ERROR MESSAGE
;CACHE SYSTEM ERROR
sINIT RO TO COUNT 4 KWORDS
:STORE DATA IN RS FOR FASTER CMP INST.
:IF THE TOP OF CACHE HAS BEEN REACHED
:THEN GO RESET R2 TO 140000
;CHECK THE OTHER CACHE LOCATIONS TO
:SEE THAT THEY STILL WIT.
:SAVE MIT MISS REG IN R3
:DID IT HIT?
:KEEP TESTING UNTIL A MISS OCCURS
sTEST THE NEXT CACHE LOCATION
sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

1CACHE SYSTEM ERROR
;ERROR! SHOULD NOT MAVE FALLEN THRU
:S0B INST BEFORE GETTING A MISS
iRESET R2 TO 140000
:

:SAVE ADDR OF MOV INSTRUCTION IN R4

$1SAVE R2 IN CURADD

GLOBAL AREAS
XDJ11A.MAC

2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963

MACY11

03-APR-84 11:36

010552
010560
010566
010572
010576
010600
010604
010606
010610
010612
010616
010620
010622
010624

162767
042767
042704
020467
001004
032703
001401
000746
010203
162703
020306
001403
104000
000103
001325

010630

005711
0014090

010626
010632

30A(1052)

000002
177701

177701
170306

04-APR-84
T22

10:38
PAGE 61
TAG RAM DATA RELIABILITY

170324
170316

Su8

©#2,CURADD

CcMP
BNE

R4 ,CURADD
33

BEQ
BR
MOV
SuB
cMP

3s
103$
R2,R3
#20002,R3
R3,R6

BIC
BIC

000010

BIT

38:

020002

BEQ
ERROR
.WORD
.WORD

4%:

TST

BEQ

SEQ 0061

TEST

177701, CURADD
@177701,R4

1SUBTRACT 2 FROM R2
tONLY INTERESTED IN BITS 1-5
iSTRIP OFF UN-NEEDED BITS
l%fealfs 5-1IN R4 AND CURADD ARE EQUAL?

@BITO3,R3

s TEST BITO3 IN HIT MISS REG

a¢

103
ERRMSG
(R1)

+IF ITS A HIT THEN DO THE NEXT ADDR
i

1STORE CONTENTS OF R2 IN R3
:SUBTRACT 20002 FROM R3
+IS R3= TO THE TEST ADDRESS.
:BRANCH IF THEY ARE EQUAL
sALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
sCACHE SYSTEM ERROR
sWAS

THIS

THE LAST PATTERN FOR

sGO GET NEXT ADDRESS IF YES

THIS LOCATION?

sCHECK TO SEE IF ALL LOCATIONS HAVE BEEN TESTED. IF NOT, GENERATE THE NEW
;ADDRESS, RESET THE DATA POINTER AND TEST THE NEXT CACHE LOCATION.

010634
010640
010642

010646
010652
010656
010662
010666

022706
001412
005062
062706
062702
012701
000167
000137

137776

68:

177776
000002
000002
110704
177526
010716

7%:

8%:

cHP
BEQ

CLR
ADD

0137776,R6

8s
-2(R2)

:IF

02,R6

ADD
MOV
JMP
JMP

02,R2
@TAGAD2+100000,R1
FLD1A

.WORD

104200
010400

SO0TSEND

010672
010674
010676
010700
010702
010704
010706
010710
010712
010714

010716
010722
010726
010732
010740

104200
010400
121000
042000
000000
073400
167200
056600

TAGAD1:

TAGAD2:

135600

000000

005037
005037

012706
016737
016737

177746
177572
001000
170072
170066

TSEND:

000114
000116

XXX 3

. WORD
. WORD
.WORD
. WORD

.WORD

.WORD
.WORD
. WORD
.WORD

CLR

MOV

sHAVE WE TESTED ALL 4KW CACHE LOCATIONS?
YES THEN GO TO END OF

121000
042000
000000
073400
167200
056600

135600
000000
80CCR
80SRO

:CLEAR THE CCR

@STBOT.R6

SLOCOO,
SLOCO1,

ae114
80116

TEST

;ELSE WRITE ONES IN THE LOCATION LAST TESTED
:GET THE NEXT ADDRESS...
:BUMP R2
sRESET DATA POINTER
1D0 IT AGAIN
iJUMP OUT OF BANK 7

:TURN OFF MMU

;RESTORE STACK POINTER
sRESTORE VECTOR

GLOBAL AREAS
KDJ1.1A
MAC

3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013

3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026

3027

03-!8“-64 11:%6
MACY11

30A(1052)

O©4-APR-84

122

IKS

PAGE
TAG RAM DATA RELIABILITY TEST

10:38

.MCALL
"SBTTL

—
eo

IDMSG.ENDPAS
END OF PASS ROUTINE

3]‘.‘.‘..“..“..“..‘..‘.“..‘....“‘.‘..‘...““.‘..“

...‘...“

:4INCREMENT THE PASS NUMBER ( $PASS)
:»INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM
:oIF THERES A MONITOR GO TO IT
;¢IF THERE ISN'T JUMP TO RESTART
010746
010746
010752
010754
010760
010760

005767
001002
104401

011030
011032
011034
011036
011040
011042

005267
042767
005327
000001
003022
012737
000001
010774
104401
016746
104405
104401
013700
001405
000005
004710
000240
000240
000240

011050

000137
002176
377

010764
010772
010774
010776
011000
011002

011004
011006
o11012
011016
011020
011024

011044
011044
011046

011054
011062
011070
011076
011104
011112
011120
011126
011134
011135
011142
011150
011156

011054
005015
026515
042113

040503
042515
051440
020115
047516
000
015
046504
020104
021440
011162

SEOP:

170034

011054
170022
100000

SKIPID:
170014

TYPE

INC
DEC
$EOPCT: .WORD
8GT
MOV

SENDCT:
011135

$PASS

sONLY

TYPE MESSAGE AT END OF FIRST PASS

,MSGL

1ELSE

TYPE

SKIPTD

: sSAVE $PASS FOR TYPEOUT
::GO TYPE--DECIMAL ASCII WITH SIGN

$PASS, -(SP)

$GET42: MOV

TYPE

, $ENULL

BEQ
RESET

8042 .R0

$DOAGN

:sGET MONITOR ADDRESS

SENDAD: JSR

PC.(RO)

13160 TO MONITOR

$DOAGN:
SRTNAD:
SEMAL:

: sBRANCH IF NO MONITOR
1 :CLEAR THE WORLD
: :SAVE ROOM

: sFOR

NOP

ID MESSAGE

,MSG2

.WORD
$EOPCT
TYPE

NOP

055103
026502
030512
044103
047515
051531

THE

: s INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
1 :LOOP?
§ 3 YES
;;RESTORE COUNTER

2100000, $PASS

NOP

377

:IF >0 THEN SKIP THE ID MESSAGE

$PASS
(PC)e
1
$DOAGN
(PC)+,8(PC)s

BIC

MOV
TYPDS

167770

011050
000042

BNE

:3ACT11

a(PC)+

3 sRETURN

.WORD
BYIE

RESTART
-1.-1.0

MSG1:

.ASCIZ

<CR><LF>/CZKDM-B-0 KDJ11 CACHE MEMORY SYSTEM DIAGNOSTIC/

MSG2:

.ASCIZ

<CR><LF>/CZKDMB END PASS @/

.EVEN
.SBTTL

TYPE ROUTINE

: sNULL CHARACTER STRING

052123

041412
020102
040520
000

1360400054000 00000000484000000000000000000000008004000000000000000

:#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

GLOBAL

AREAS

KDJ11A.MAC

03-:8“-84 30A(1052)
11:!6
MACY11

O04-APR-84

3058
3059
3060
3061
3062
3063
3064
3065
3066

3067
3068
3069
3070
3071
3072
3073
3074
3075
3076

3110
3111
3112
3113

TYPE

10:38

s#THE

ROUTINE

TINE

PAGE 63

;*NOTE1:
;#NOTE2:
;¢NOTES:
R

WILL

SEQ 0063
INSERT

A NUMBER OF

NULL

CHARACTERS AFTER A LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

soCALL
:

;#1) USING A TRAP INSTRUCTION
;om
TYPE
.MESADR
g

)

TVPE

MESADR

011162
011166
011170
011172
011174
011176
011202
011210
o11212
011220
011222
011226
011232
011234
011242
011244
011246
011250
011252
011254
011260
011262
011266
011270
011274
011276
011300
011302
011304
011310
011312
011316
011322
011324

132767
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001403
105067
000755
004767
126726
001350
016746

011330
011334
011336
011342
011346

105366
002770
004767
105367
000770

105767
100002
000000
000430

010046
017600

122767
001011
132767

001405
010067
004767
000000

$TYPE:

000343

18:

000002
000001

167610

000100

167601

001622
000040

167557

$TPFLG

618:

62$:

60§ :

cMPB
BNE
BEQ
MOV

624
RO,61$

:sNO,GO CHECK FOR CONSOLE
: sSETUP MESSAGE ADDRESS FOR APT

.WORD

: sMESSAGE ADDRESS

JSR

1 sRUNNING IN APT MODE
3 sNO,GO CHECK FOR APT CONSOLE

@APTSPOOL
, $SENVM ; ; SPOOL MESSAGE TO APT

PC,$ATY3

: :SPOOL MESSAGE TO APT

BITB
BNE
MOVB
BNE

OAPTCSUP, SENVM
60$
(RO)+, -(SP)
43

; ;APT CONSOLE SUPPRESSED
:3YES,SKIP TYPE OUT
: sPUSH CHARACTER TO BE TYPED ONTO STACK
$3BR IF IT ISN'T THE TERMINATOR

MOV

(SP)+,RO

;s sRESTORE RO

TST

(SP)e«

+3sIF TERMINATOR POP IT OFF THE STACK

ADD

02,(SP)

31 :ADJUST RETURN PC

4s:;

gvega

:HT.(SP)

1 ;BRANCH IF <HT>

B'Ecm

SOC‘RLF.(SP)

(SP)s

RTI

TYPE

$CRLF

000202

5$:
68:

000176

7$:
000032
000144

:3BR IF YES
s sHALT HERE IF NO TERMINAL
: sLEAVE
; sSAVE RO
s sGET ADDRESS OF ASCIZ STRING

3s:

000200

000206

::IS THERE A TERMINAL?

3
RO, -(SP)
82(SP),RO
GAPTENV, SENV
624

BITB

28:

000011

TSTB

BPL
HALT
BR
MOV
MOV

1 sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

CLRB
BR

$CHARCNT
28

JSR
cMPB

PC,.STYPEC
$FILLC,(SP).

DECB
BLY

1(SP)
6%

BNE
MOV

JSR
DECB
BR
sHORIZONTAL

28
$NULL, -(SP)

PC,STYPEC
$CHARCNT
74
TAB PROCESSOR

s sRETURN

: sBRANCH IF NOT <CRLF>
:sPOP

<CR><LF> EQUIV

:3TYPE A CR AND LF

: sCLEAR CHARACTER COUNT
:3GET NEXT CHARACTER

3:GO TYPE THIS CHARACTER
33IS IT TIME FOR FILLER CHARS.?

33IF NO GO GET NEXT CHAR.
:1:GET & OF FILLER CHARS. NEEDED

;1 sAND THE NULL CHAR,

:+sDOES A NULL NEED TO BE TYPED?
3:BR IF NO--GO POP THE NULL OFF OF STACK

33GO TYPE A NULL
3300 NOT COUNT AS A COUNT
: :LOOP

GLOBAL AREAS

KDJ11A.MAC
3114
3115
3116
3117
3118
3119

3120

011350
011354
011360
011366
011370
011372

011374

3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
gi.:g

011374
011400
011402
011406
011412
011416
011420
011420
011424
011426
011432
011436
011442
011444
011444
011446
011446
011452
011454
011462
011470
011472
011476
011500
011506
011510
011512
011514

3150
3151
3152
3153
3154
3155
3156
3157
3158
3159

011516
011520
011522
011524
011526
011527
011530
011531
011532
011533

3160

3161
3162
3163
3164
3165
3166
3167
3168
3169

MACY11l 30A(1052)

03-APR-84 11:36
112716
004767
132767
001372
005726
000724

105777
100022
017746
042716
122716
001012
105777
100375
117716
042716
122716
001366

000040
000014
000007

O04-APR-84

000124

000116

011536

: sREPLACE TAB WITH SPACE
:13TYPE A SPACE

TSTB
BPL
MOV
BIC
CMPB
BNE

83TKS
10%
8$TKB, -(SP)
#177600,(SP)
@$XOFF ,(SP)
102

: sCHAR IN KYBD BUFFER?

1STB
BPL
MOVB
BIC
CMPB
BNE

83TKS
101
88TKB,(SP)
€177600,(SP)
@$XON, (SP)
101

1 sWAIT FOR CHAR

TST

(SP).

1 3FIX STACK

TST8B
BPL
MOVB
CMPB
BNE
CLRB
B8R
1$:
cMPB
BEQ
INCB
$CHARCNT: .WORD

83TPS
108
2(SP),84TPB
#CR,2(SP)
1$
$CHARCNT
$TYPEX
OLF,2(SP)
$TYPEX
(PC)e
O

: sWALIT UNTIL PRINTER IS READY

$TKS:
$TKB:
$TPS:
$TPB:
$NULL:
SFILLS:
SFILLC:
$TPFLG:
$QUES:
$LF:

177560
177562
177564
177566
O
2
12
O
2~
<12>

000066
177600
000021

102s:
10s:

000050

000002
000015

000042
000002

000014

000012

000002

$TYPEX: RTS

000

SEQ 0064

o' ,(SP)
PC,STYPEC
97, $CHARCNT
9s
(SP).
2%

101$:

000072

PAGE 64

MOVB
JSR
BITB
BNE
TST
BR

000112
177600
000023

000207

177560
177562
177564
177566
000
002
012
000
077
012

8s:
9s:

$TYPEC:

005726
105777
100375
116677
122766
001003
105067
000406
122766
001402
105227
000000

10:38

TYPE ROUTINE

.SBTTL

WORD
MORD
WORD
WORD
.BYTE
.BYTE
.BYTE
.BYTE
.ASCII
.ASCIZ

.EVEN

i1 sBRANCH IF NOT AT
::TAB STOP
: :POP SPACE OFF STACK
:3GET NEXT CHARACTER

;iBR IF NOT
::GET CHAR

: :STRIP EXTRANEOUS BITS
; sWAS CHAR

:3BR IF NOT

XOFF

:3GET CHAR
13STRIP IT
:sWAS IT XON?
:3:BR IF NOT

::LOAD CHAR TO BE TYPED INTO DATA REG.
33IS CHARACTER A CARRIAGE RETURN?

;s sBRANCH IF NO

lléi?i-CLEAR CHARACTER COUNT

33IS CHARACTER A LINE FEED?
: ;BRANCH IF YES
: sCOUNT THE CHARACTER
i sCHARACTER COUNT STORAGE

:3T7TY KDB STATUS
;MJDOO1
::TTY KBD BUFFER
;MJDOO1
::TTY PRINTER STATUS REG. ADDRESS

::TTY PRINTER BUFFER REG. ADDRESS
: sCONTAINS NULL CHARACTER FOR FILLS
s tCONTAINS @ OF FILLER CHARACTERS REQUIRED
+ s INSERT FILL CHARS. AFTER A "LINE FEED"

i+ 3 “TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES)

: sQUESTION MARK
s sLINEFEED

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

1388480488000 8000800484004000400800488800048400000000080000008004408

+#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
+*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

: #REPLACED WITH SPACES.
;oCALL:

;MJDOO1
;MJDOO1
:MJD0O1
;MJDO01

GLOBAL AREAS

KDJ11A.MAC

3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181

3182
3183
3184
3185
3186
3187
5188
3189
3190
3191
3192
3193
3194
3195
3196
3197
319¢
3199
3200
3201
3202
3203

MACY11

30A(1052)

03-APR-84 11:36

04-APR-84

10:38

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
HE

]

011536
011536
011540
01.542
011544
011546
011550

011554

011560
011562
011564
011572
011574

011600

011604
011606
011612
011614
011616
011620
011622
011624
011626
011630
011632
011634
011636
011640
011646
011652
011656
011660
011662
011666
011670
011672
011674
011676
011700
011702
011710
011712
011714
011716
011720
011722
011724
011730
011736
011740
011742
011744
011746

010046
010146
010246
010346
010546
012746
016605

$TYPDS:

020200
000020

005405
112766

000055

012703
112723

011752
000040

016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616

011742

023420
001750
000144

000001

1$:

28:

177777

000040

NUM, -(SP)

::PUT _THE BINARY NUMBER ON THE STACK
:3G0 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
RS, -(SP)
©20200, -(SP)

::PUSH RO ON STACK
: :PUSH R1 ON STACK
: :PUSH R2 ON STACK
:sPUSH R3 ON STACK
:iPUSH RS ON STACK
:;SET BLANK SWITCH AND SIGN
:sGET THE INPUT NUMBER

MOV
BPL
NEG
MOVB
CLR
MOV
MOVB
CLR
MOV

20(SP),RS
1$
RS
@' -,1(SP)
RO
#3DBLK,R3
&' (R3).
R2
$DTBL(RO),R1

BLT

suB

4%
:

INC
BR
ADD

6%:
7%:

TST
BNE
TST8
BMI
ASLB

T7ST8

011752
000002

9$:

BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
TYPE

000004

MOV
MOV
$DTBL
:

R2
S$
(SP)
7%
(SP)

BLT

MOV

177776

R2
3
R1,RS

63
1(SP), -1(R3)
#'0,R2
o .R2
R2,(R3).
(RO)»

B8GT

177777

R1,R5

8CC
MOVB
BIS
BIS
MOVB
TST

cHP

000010

MOV
TYPDS

3s:

S$:

000001

PAGE 65

RTI
10000.
1000.

100.

RO,210
8s

R5,R2

(SP)+

93
-1(SP), -2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP).,R2
(SP)+,R1
» $DBLK

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

;sBR IF INPUT IS POS.

: sMAKE THE BINARY NUMBER POS.

1 sMAKE THE ASCII NUMBER NEG.

3 sZERO THE CONSTANTS INDEX
:3SETUP THE OUTPUT POINTER
+3SET THE FIRST CHARACTER TO A BLANK
: sCLEAR THE BCD NUMBER
:sGET THE CONSTANT
:sFORM THIS BCD DIGIT

::BR IF DONE

: s INCREASE THE BCD DIGIT BY

; sADD BACK THE CONSTANT
; sCHECK IF BCD DIGIT=0

:sFALL

THROUGH IF O

:sSTILL DOING LEADING 0'S?

:13BR IF YES

:sMSD?

33BR IF NO

:3sYES--SET THE SIGN
: sMAKE THE BCD DIGIT ASCII
:3MAKE IT A SPACE IF NOT ALREADY A DIGIT
3:PUT THIS CHARACTER IN THE OUTPUT BUFFER
: sJUST INCREMENTING
1 sCHECK THE TABLE INDEX
:3GO DO THE NEXT DIGIT
:3GO TO EXIT

3ssGET THE LSD
: GO CHANGE TO ASCII

s sWAS THE LSD THE FIRST NON-ZERO?
::BR IF NO
1:YES--SET THE SIGN FOR TYPING
:sSET THE TERMINATOR
::POP STACK INTO RS

3:POP STACK INTO R3

;:POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO
:sNOW TYPE THE NUMBER
; sADJUST THE STACK

s3;RETURN TO USER

GLOBAL AREAS

KDJ11A MAC

3226
3227
3228
3229

3230
3231
3232
3233
3234
2235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257

3279
3280
3281

011750
011752

MACY11 30A(1052)
03-APR-84 11:36

04-APR-84
10:38
PAGE 66
CONVERT BINARY TO DECIMAL

000012
000004

SDBLK:

.SBTTL

10.
.BLKW
BINARY

B6
SEQ 0066

AND TYPE ROUTINE

TO OCTAL (ASCII) AND TYPE

130000000000 0000000000000000000000000000000800000000

000004800000000

3#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
1#0CTAL (ASCII) NUMBER AND TYPE IT,
lOEHPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
38

;e
ie

MOV

NUM, -(SP)

.BYTE

TYPOS
.BYTE

1 tNUMBER TO BE TYPED

1;CALL FOR TYPEOUT
i1sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

1iM=1

OR O

131=TYPE

LEADING

130=SUPPRESS

198TYPON-- -ENTER MERE
:1#$TYPOS OR $TYPOC

soCALL:

ie
ie
e

MOV
TYPON

TYPE

NUM, -(SP)

OUT

WITH

THE

SAME

ZEROS

LEADING

PARAMETERS

ZEROS

THE

1 tNUMBER TO BE TYPED
313CALL FOR TYPEQUT

IO::HPOC---ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER

i®

011762
011766
011774
012000
012004
012006
012014
012022
012030
012032
012034
012036
012042
012044
012050
012054
012060
012064
012066
012070
012072
012074
012076
012100
012102
012104
012110
012112
012116

000001
000207

000211

000001

000171
000165
000154

TYPOC

MOVB
MOVB
ADD
B8R

$TYPOC: MOV

MOVB
$TYPON: MOVB
MOV

28:

38:

8(SP), -(SP)

1(SP),SOFILL
(SP)+,$0MODE+1
02,(SP)
$TYPON
@1,80FILL

33SET

THE ZERO FILL SWITCH

13GET THE NUMBER OF DIGITS TC TYPE

MOV

12(SP),RS

31 3SAVE R4
1 1SAVE RS

1sSUBTRACT IT FOR MAX. ALLOWED
13SAVE IT FOR USE

SOFILL R4

33GET THE ZERO FILL SWITCH

313CLEAR THE OUTPUT WORD

ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB

RS
3s
RS
RS
RS
R5,.R3
R3
$OMODE

BIC

@177770,R3

BNE

33LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
31 sADJUST RETURN ADDRESS

;‘onooe.x.m

06 ,R4
R4, $OMODE

BPL

13sPICKUP THE MODE

$3SET FOR SIX(6) DIGITS
13SET THE ITERATION COUNT
31 1SAVE R3

ADD
MOVB
CLR

1 sNUMBER TO BE TYPED

:13CALL FOR TYPEOUT

&6,30M0DE -1
85, S0CNT
R3, -(SP)

R4, -(SP)
RS, -(SP)

MOVB

18:

NUM, -(SP)

MOV
MOV

"258

000132
000125
000012

177770

MOV

$TYPOS: MOV

000145

000076

14}

$11PICKUP THE INPUT NUMBER

1 sROTATE MSB INTO “C*
13GO DO MSB
s sFORM THIS DIGIT

$3GET LSB OF THMIS DIGIT
s TYPE THIS DIGIT?

13BR IF NO

13GET RID OF

s3TEST FOR O

JUNK

LAST

Co
KbITTh AREAS os"ABA 14430148527 04 APR 04 R 30i8%cPABE
RIc1T) anD TYPE

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

012120
012122
012124
012126
012132
012136
012142
012146
012152
012154
012156

012160

012162

012164
012166
012170
012176
012200
012202
012203
012204
012205
012206

005704
001403
005204
052703
052703
110367
104401

105367
003347

1ST

43;

000040
000040
012202

000032

BEQ
INC

BIS

S58:

BIS

7%:

DECB

65:

MOV

MOVB

002402

005204
000744
012605
012604
012603
016666
012616

000002
000
000
000
000
000000

8s:

RTI

.BYTE
.BYTE
SOCNT:
.BYTE
SOFILL: .BYTE
$OMODE: .WORD

.SBTTL

R4
S
R4
@'0,R3
@'
,R3
R3,8¢

.88

SOCNT
23
64
R4
2
(SP)+,RS

(SP)+.R4
(SP)+,R3
2(SP),a(sSP)
(SP)+,(SP)
0000

328
328
3284
3285
3286
3287
3288
3289
3290

TTY INPUT ROUTINE

SEQ 0067

1 1SUPPRESS THIS 07?

13GR IF YES

1 sDON’'
T SUPPRESS ANYMORE 0'S

1 tMAKE

THIS DIGIT

ASCII

1sMAKE ASCII IF NOT ALREADY
13SAVE FOR TYPING
1:GO TYPE THIS DIGIT
13COUNT BY 1
131BR IF MORE TO DO
1:BR IF DONE
3 s INSURE LAST DIGIT ISN'T A BLANK
:3GO DO THE LAST DIGIT
1 sRESTORE RS

1 sRESTORE R4
: sRESTORE R3

13SET THE STACK FOR RETURNING
s sRETURN

1 sSTORAGE FOR ASCII DIGIT
: sTERMINATOR FOR TYPE ROUTINE
130CTAL DIGIT COUNTER
1 3ZERO FILL SWITCH
i iNUMBER OF DIGITS TO TYPE

3300080800000 0000000000000000000000000000004000000800080000000080

.ENABL

LSB

150000000000000000000000000000000000000000000008008000080000000008

012210
012216
012220
012224

012226

012232
012236
012242
012244

012252

012254
012260

022767
001074
105777
100071
117746
042716
022726
001062
126727
001456

000176

166630

177272

3#SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
sSROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
+*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
s OWHEN OPERATING IN TTY FLAG MODE.
SCKSWR: CMP
OSUWREG, SWR
13IS THE SOFT-SWR SELECTED?
BNE
158
31 sBRANCH IF NO
1578

8PL
MOVE
8IC
cHP
BNE
cHP8
BEQ

177266
177600

000007

000514

012264
012270
012272
012276
012300
012302
012306

104401
104401
016746
104402
104401
005046
C05046
105777
100375

012735
012742
165706

012310
012314

11774¢
042716

177204
177600

012753
177210

000001

SGTSWR:

TYPE
TYPE

MOV

TYPOC
TYPE

19%:

CLR

78:

1S718

CLR

88TKS
15%
88TKB, -(SP)
0tC177,(SP)
07,(SP).

158

SAUTOB,
01
15

1 1CHAR THERE?

13IF NO, DON'T WAIT AROUND
131SAVE THE CHAR
313STRIP-OFF THE ASCII

33IS IT A CONTROL G?
3sNO, RETURN TO USER

1 1ARE WE RUNNING IN AUTO-MODE?

1 1BRANCH IF YES

« SCNTLG

3 3ECHO THE CONTROL
-G (*G)

SWREG, -(SP)

11SAVE SWREG FOR TYPEOUT

« SMSUR

13 TYPE CURRENT CONTENTS

1360 TYPE--OCTAL ASCIICALL DIGITS)

11PROMPT FOR NEW SWR

1:CLEAR COUNTER
13 THE NEW SWR

1 1CHAR THERE?

BPL

13 IF NOT

MOVB
BIC

1iMAKE

TRY AGAIN

131PICK UP CHAR
IT

7-BIT

ASCII

GO MRS o MBN R RIABD
021627
001005
104401
062706
000757

012340

021627
001022
005766
001403
016677
062706
104401
126727
001003
012777
000002
004767
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

012344
012346
012352

012354

012362
012366
012372
012400
012402
012410
012412
012416
012422
012424
012430
012432
012436
012442

012444
012446
012450
012452
012456
012462
012464
012470

SEQ 0068

000025

9s:

012730
000006

(SP),e25
10$

208
:

#6,SP
19%

000015

000002

10%:

166464

001403
000367
000100

176756

13IS IT A CONTROL -U?
1 1BRANCH IF NOT
131 YES, ECHO CONTROL
-U (tu)
1 s IGNORE PREVIOUS INPUT

« SCNTLU

$3LET'S

(SP),e15

13IS

2(SP),8SuWR
“.9

IS IT

THE FIRST

CHAR?

131SAVE NEW SWR
1:CLEAR UP STACK

« $CRLF

RTI
JSR

IT A <CR>?

$13YES,

131ECHO <CR> AND <LF>
1 sRE-ENABLE TTY KBD INTERRUPTS?
1 ;BRANCH IF NOT
1 sRE -ENABLE TTY KBD INTERRUPTS

15¢

15s:
16$:

IT AGAIN

31 sBRANCH IF YES

$INTAG,
01

177106

TRY

1 sBRANCH IF NO

16%
4(SP)
11$

012320
012324
012326
012332
012336

0 APRiBS (451onhGR
o0

3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379

€100,88TKS

1 sRETURN

PC,STYPEC

: sECHO CHAR
:iCHAR < 07
: sBRANCH IF YES
:sCHAR > 77
1 sBRANCH IF YES

(SP),#60
184
(SP), 867
18¢
#60,(SP).

1 3STRIP-OFF ASCII

33IS THIS THE FIRST CHAR
1 tBRANCH IF YES

000002
177776

178:

011532

18%:

.DSABL

$3NO, SHIFT PRESENT
i
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
1 sKEEP COUNT OF CHAR
13SET IN NEW CHAR

INC

313GET

THE NEXT ONE

13 TYPE 2<CR><LF>
s sSIMULATE CONTROL
-V

B8R
LSB

3 0 080 80 8 88808808200200000000000028080000000000000000008000020

1#THIS ROUTINE WILL

soCALL:
RDCHR
;e
;e

INPUT

SINGLE

RETURN HERE

012510
012516
012524
012532

011646
016666
105777

100375
117766

042766
026627
001013

000004
177010
177004
177600
000004

$ROCHR:

18:

TTY

13 INPUT A SINGLE CHARACTER FROM THE TTY
1 sCHARACTER IS ON THE STACK

313:WITH PARITY BIT STRIPPED OFF

i e

012472
012474
012502
012506

CHARACTER FROM THE

MOV

MOV
1ST8
BPL

MOvVB
BIC
cMP
BNE

(SP),-(SP)

4(SP),2(SP)
88 TKS
1s

9$TKB,4(SP)

01C<177>,4(SP)
4(SP), 023
3s

131PUSH DOWN THE PC
13SAVE THE PS

1 sWAIT FOR

s 3A CHARACTER

33READ THE TTY

13GET RID OF JUNK IF ANY
33IS IT A CONTROL -S?

1 3BRANCH IF NO

GLOBAL AREAS
KDJ11A.MAC
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413

3414
3415
3416
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440

3441
3442

3443
3444
3445
3446
3447
3448
3449

012534
012540
012542
012546
012552
012556

012560
012562
012570
012572
012600
012602
012610

037:555343%3252) O4-APR.OY AR 8o0 The ©°
105777
100375
117746
042716
022627
001366
000750
026627
002407
026627
003003
042766

000002

176756

28:

176752
177600

000021

000004

000140

000004

000175

000040

3s%:

T1STB

BPL
MOVB
BIC
CMP
BNE
BR
cMP
BLT
cMP
BGT
B8IC

RTI

SEQ 0069

83TKS
28
83TKB, -(SP)
0tC177,(SP)
(SP).+,021
2s
1$
4$SP).OIQO

: tWAIT FOR A CHARACTER

1:LO0OP UNTIL ITS THERE
:13GET CHARACTER
1 iMAKE

7-BIT

ASCII

13IS IT A CONTROL -Q?
33 IF NOT DISCARD IT
131 YES, RESUME
13IS IT UPPER CASE?

31 1BRANCH IF YES

4(SP),0175

1:IS IT A SPECIAL CHAR?
1 iBRANCH IF YES

1 tMAKE

IT UPPER CASE

13GO BACK TO USER

13980804000 404800800480000000008000000080000080000000000

00040000408

;#THIS ROUTINE WILL INPUT A STRING FROM THE TTY
;#CALL:

L
L

RDLIN

13 INPUT A STRING FROM THE TTY
: sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
: s TERMINATOR WILL BE A BYTE OF ALL 0'S

RETURN HERE

012612
012614
012620
012624
012626
012630
012632
012636
012640
012644
012646
012652
012656
012662
012664
012670
012674
012676
012700
012706
012714
012716
012717
012720
012730
012735
012742
012750
012753
012760
012764
012765

010346
012703
022703
101405
104410
112613
122713
001003
104401
000763
111367
104401
122723
001356
105063
104401
012603
011646
016666
012766
000002
000
000
000010
052536
136
005015
020075
040
036440
000
000

$ROLIN:
18:

012720
012730

2%:

000177

10%:

011532

000044
012716
000015

3s:

177777
011533

BLOS
RDCHR
MOVB
cMPB
BNE

8rR

cHP

TYPE

@STTYIN+8. ,R3

(SP)+,(R3)
0177,(R3)
3
. $QUES

1 $SAVE R3
1 sGET ADDRESS
1 :BUFFER FULL?
:3BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
1 :GET CHARACTER
:3IS IT A RUBOUT
:1sSKIP IF NOT

ssTYPE A

' 2

MOVB

(R3),9¢

: sCLEAR THE BUFFER AND LOOP
1 ;ECHO THE CHARACTER

CMPB
BNE
CLR8

@15,(R3).
24
-1(R3)

1 sCHECK FOR RETURN
::LOOP IF NOT RETURN
1 sCLEAR RETURN (THE 15)

MOV
MOV
MOV

(SP)+,R3
(SP),-(SP)
4(SP),2(SP)

TYPE

MOV

9s:

047040
000040

R3, -(SP)
@$TTYIN,R3

TYPE

000004
012720

005015
006507
053523

MOV
MOV

RTI

.98

o SLF

:3TYPE A LINE FEED

: tRESTORE R3
1 sADJUST THE STACK AND PUT ADDRESS OF THE

OS$TTYIN,4(SP)

FIRST ASCII CHARACTER ON IT

1 ;RETURN

$STTYIN:
SCNTLU:
$CNTLG:
$MSWR:

.BYTE
.BYTE
.BLKB
LASCIZ
ASCIZ
LASCIZ

0
: sSTORAGE FOR ASCII CHAR. TO TYPE
0
1 s TERMINATOR
8.
s sRESERVE 8 BYTES FOR TTY INPUT
/7tU/7¢15>¢12>
1 sCONTROL “U”
/7tG/<15><12>
<15>¢<12>/SWR = /

$MNEW:

ASCIZ

$AUTOB
:
$INTAG:

.BYTE
.BYTE

0
0

.SBTTL

NEMW =

TRAP DECODER

7
: sAUTO MODE FLAG

3 3 INTERRUPT MODE FLAG

1398880888008 088004000808000080000800000000800000000000000000000800

+*#THIS ROUTINE

WILL PICKUP

THE

LOWER BYTE

THE

“TRAP”

INSTRUCTION

GLOBAL

AREAS

KDJ11A.MAC

3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484

MACY11

30A(1052)

-APR -84 11:&6

04-APR ’

Fo6

7
rS“» 6&38&1P.
.

s#AND USE

INDEX

SEQ 0070
THROUGH

:#0F THE DESIRED ROUTINE.
:#GO TO THAT ROUTINE.

012766
012770
012774
012776
013000
013002
013006

010046
016600
005740
111000
006300

016000
000200

$TRAP:

000002

013010
013012
013020

011646
016666
000002

000004

TST

-(RO)

1 1BACKUP BY 2

IS USE

RO
$ TRPAD(RO),RO
RO
TO HANDLE

MOV

RTI

THE

STARTING

ADDRESS

13GET TRAP ADDRESS

(RO),.RO

$TRAP2: MOV

.MACRO

FOR

: $SAVE RO

2(SP).RO

ASL
MOV
RTS

000002

TABLE

RO, -(SP)

MOVB

33 THIS

TRAP

MOV

013022

THE

THEN USING THE ADDRESS OBTAINED IT WILL

THE

$3GET RIGHT BYTE OF TRAP

1 :POSITION FOR INDEXING
: s INDEX TO TABLE
::GO0 TO ROUTINE

“GETPRI" MACRO

(SP),-(SP)

4(SP),2(SP)

:sMOVE THE PC DOWN

:3sMOVE THE PSW DOWN
1 sRESTORE

THE PSW

SETTRAP A,B,MSG
$$SET

.NLIST

A,B,\<TRAP+$
,\$TRP,
TRP>
<MSG>

STRP=$TRP+1
.LIST

.ENDM
MACRO

SETTRAP
$$SET
A,B,C.D,COMNT

.SBTTL

TRAP TABLE

.IF EQ $TRP-1
s#THIS

TABLE CONTAINS

THE

STARTING ADDRESSES OF

:#BY THE “TRAP" INSTRUCTION.

3485
3486

ENDC

THE ROUTINES CALLED

$TRAP2

LIIF mr‘cus. .u.ésr

3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497

LiIF mracns. .LIST

.ENDM

.MACRO

$SSET

;:CALL=A

TRAP.D(C)

COMNT

TRMTRP

$TERM=, - $TRPAD

.ENDM

.SBTTL

TRMTRP

TRAP TABLE

3#THIS TABLE CONTAINS THE STARTING ADDRESSES
;#BY THE "TRAP" INSTRUCTION.

013022
013024
013026
013030
013032

013010
011162
012006
011762
012022

ROUT INE

-------

$TRPAD:

.WORD

$TRAP2

$TYPOC
$TYPOS
STYPON

;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON

$TYPE

3 sCALL=TYPE

TRAP+1(104401)

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

THE ROUTINES CALLED

TTY TYPEOUT ROUTINE

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

GLOBAL AREAS
KDJ11A.MAC

MACY11

30A(1052)
03-APR-84 11:36

04-APR -84

TRAP

10:38

TABLE

3553
3555
3556
3557
3558
3559
3560
3561

G6
71

SEQ 0071

013034

011536

$TYPDS

3 ;CALL=TYPDS

TRAP+5(104405)

TYPE DECIMAL NUMBER (WITH SIGN)

013036

012260

$GTSWR

1 sCALL=GTSWR

TRAP+6(104406)

GET

013040
013042
013044

012210
012472
012612

$CKSWR
TRAP+7(104407)
3 sCALL =CKSKR
$RDCHR
TRAP+10(104410)
1 1CALL =RDCHR
$ROLIN
TRAP+11(104411)
3 sCALL=RDLIN
APT COMMUNICATIONS ROUTINE

013046
013054
013062
013064
013072
013072
013074
013076
013102
013104
013112
013114
013122
013124
013130
013136
013142
013144
013150
013152
013154
013160
013162
013166
013174
013176
013204
013212
013216
013222
013224
013224
013230
013232
013236
013240
013244
013246
013254
013262
013266
013272
013276
013302
013304
013306

112767
112767
000403
112767

.SBTTL
13908 8 84 0

3551

PAGE

000236
000226

$ATY1:
SATY3:

000220

$ATY4:
SATYC:

010046
010146

105767
001450
122767
001031
132767

001425
017600
062766
005767
001375
010067

105720
001376
166700
006200

010067
012767
000413
017667
062766
016746
004767
000000

105767
001416
005767
001413
005767
001375
017667
062766
005267
105067
105067
105067

012601
012600
000207

165706
000100

165677

000004
000002

165636

1%:

165644

2s:

165634

165630
000004
000004
000002
164560
175740

165604
000016

S$:
10%:

165562

165534

165512

000013

BITB
BEQ
MOV
ADD
TST

BNE
MOV

1ST8

BNE
SUB

118

165526
128

MOV
MOV
BR
MOV
ADD
MOV
JSR
.WORD
1ST8

&1, $FFLG
01, 8MFLG

::70 TYPE A MESSAGE

21, $FFLG

::T0 ONLY REPORT FATAL ERROR

$ATYC

R1,-(SP)
$MFLG
S$

::70 REPORT FATAL ERROR

:3PUSH RO ON STACK
1:PUSH R1 ON STACK

:;SHOULD TYPE A MESSAGE?
BR
:3IF NOT:
QAPTENV, SENV
: sOPERATING UNDER APT?
34
BR
:3IF NOT:
@APTSPO
, SENVM
OL s sSHOULD SPOOL MESSAGES?
3s
BR
::IF NOT:
84(SP),RO
:sGET MESSAGE ADDR.
82,4(SP)
: :BUMP RETURN ADDR.
:?SGTYPE
:3sSEE IF DONE W/ LAST XMISSION?
WAIT
:13IF NOT:
RO, $MSGAD
3 sPUT ADDR IN MAILBOX
(RO).
3 sFIND END OF MESSAGE
28
$MSGAD,RO
RO
RO, $MSGLGT
;:.‘HSGTYPE

84(SP),.4¢
92,4(SP)

177776, -(SP)

SC.STYPE
$FFLG

13SUB START OF MESSAGE
3 sGET MESSAGE LNGTH IN WORDS
:3PUT LENGTH IN MAILBOX

ssTELL APT

TO TAKE MSG.

$3PUT MSG ADDR IN JSR LINKAGE
3 :BUMP RETURN ADDRESS
$sPUSH 177776 ON STACK
::CALL TYPE MACRO

; sSHOULD REPORT FATAL ERROR?

BEQ

128
$ENV
12%

:3IF NOT:

BNE
MOV
ADD
INC
CLRB
CLRB
CLRB

11$
84(SP), SFATAL

33IF NOT:
WMAIT
13GET ERROR ¢

TST
BEQ
ST

MOV
MOV

RTS

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

02 8888880040080 0 0020800040000 00000000000kttt
tdts

MOV
MOV
TST8
BEQ
cMPB
BNE

ASR

000062

000002

MOVB
MOVB
BR
MOVB

SOFT-SWR SETTING

$MSGTYPE

02,4(SP)
$MSGTYPE
$FFLG
SLFLG
$MFLG

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

: sRUNNING UNDER APT?
13IF NOT:
BR
3 sFINISHED LAST MESSAGE?
:

3 ;BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
31 3CLEAR FATAL FLAG
3 sCLEAR LOG FLAG
s sCLEAR MESSAGE FLAG
:3POP STACK INTO R1

;3POP STACK
3 sRETURN

INTO RO

GLOBAL
KDJ11A,

3562
3563
3564
3565
3566

MAE> o3 APR 84307¢1952) 04-AeR g4 COFINICAT ToNS2ROUT INE
013310
013311
013312

000
000
000
013314

SMFLG:

SLFLG:
$FFLG:

3574
3575
3576
3577

3605

0
0o
o

SEQ 0072

: sMESSG. FLAG
:1:L0OG FLAG

;1 sFATAL FLAG

APTSIZE=200
APTENV=001
APTSPOOL =100

3567
3568
3569
3570
3571
3572

3573

.BYTE
.BYTE
.BYTE
.EVEN

APTCSUP=040

1388808848000 00000000808080008840008080000000

00000000000000000040

s THIS ROUTINE WILL INCREMENT THE ERROR COUNT AND THEN PASS THE UNIQUE

;ERROR NUMBER TO THE APT ERROR ROUTINE TO BE REPORTED TO THE APT SYSTEM.

013314
013320
013322
013326
013332
013334
013342
013346
013352
013354
013362
013366
013372
013400
013402
013404
013410
013414
013420
013422
013426
013432
013434
013442
013444
013450
013452
013454
013456
013460
013462
013462

005267
001775
005267
021627
101010
012767
012637
012637
000430
017667
011667
062716
017637
104401
000000
062716
104401
016746
104402
104401
016746
104402
122767
001004
004767
000000
000777
000000
000002
000000
000010
000001

165532

$ERROR:

INC

165516
001002

007777
001062
001064
000000
000072
000002
000000

000106

177414

#1002

87777,

MOV

a(sP),
3s
(SP),101$
02,

(SP)

8(SP),.80102%
0
@2,(SP)

g:PTENV.OENV

o
10

:IF YES THEN

;:REPORT AN UNEXPECTED TRAP
:SAVE UNEXPECTED TRAP DATA

;AND RESTORE SP
sELSE
:REPORT UNIQUE ERROR NUMBER

TO APT

: SAVE ERROR PC
:GET OVER UNIQUE ERROR NUMBER FOR RETURN

: TYPE ERROR MESSAGE

sPUSH UNIQUE ERROR NUMBER ON THE STACK

ERR2
101%, -(SP)

PC.,

;IS ERROR FROM VECTOR AREA

3%,-(sSP)

165356

;s INCREMENT ERROR FLAG
sOON'T LET IT GO TO ZERO
: INCREMENT THE ERROR COUNT

:GET OVER ERROR MESSAGE

+ERR1

001366
000026
000001

1008:
102%:

000002
001352
000030

ERRCNT
i%P).

(SP)+,80SAVSP1
g%P)O.EOSAVSPE
18:

013402

$ERFLG
$ERROR

$ATY4

;TYPE OCTAL ERROR NUMBER

:PUSH ERROR PC ON THE STACK

:TYPE

THE ERROR PC

:CHECK TO MAKE SURE WE'RE IN APT MODE

:+IF

YES THEN

;GO REPORT ERROR TO APT
i STORAGE FOR ERROR NUMBER
:LOOP HERE AFTER REPORTING ERROR TO APT
:IF NOT APT THEN HALT
sALLOW RECOVERY FROM HALT

GLOBAL AREAS
KDJ11A . MAC

MACY11 30A(1052)
03-APR-84 11:36

ABASE =
ACOW1 =
ACDW2 =
ACPUOP=
ADDLSB
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=
ADDW13=
ADDW14=
ADDW15=
ADDW2 =
ADDW3 =
ADDW4 =
ADDWS =
ADDW6 =

000000
(00000
000000
000000
001070
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

625
625
625
625
6730
625
625
625
625
625
625
625
€25
625
625
625
625
625

ADDW8 =
ADDW9 =
ADEVCT=
ADEVM =
AENV
=
AENVM =
AFATAL=
ALLCTR
AMADR1=
AMAD2=
R
AMADR3=
AMADR4=

000000
000000
000000
000000
000000
000000
000000
001056
000000
000000
000000
000000

625
625
625
625
625
625
625
667¢
625
625
625
625

ADDW7

= 000000

AMAMS1=
AMAMS2=
AMAMS3=
AMAMS4=
AMSGAD=

000000
000000
000000
000000
000000

AMSGLG= 000000

AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=
APTCSU=
APTENV=
APTSFT

000000
000000
000000
000000
000000
000000
000000
000040
000001
001640

APTSIZ= 000200
APTSPO= 000100
ASWREG= 002000

ATESTN=
AUNIT =
AUSWR =
AVECT1=

000000
000000
000000
000000

O4-APR-84
10:38
PAGE 74
CROSS REFERENCE TABLE

640
2537+

2596

2602

2613+

2705+

2717«

2768s

3525
1376
1816

35674
1386
1894

3596
1395
2175

I6
--

SEQ 0073

USER SYMBOLS

2614

625

625
625
625
625
625

625

625
625
625
625
625

625
625
3084
896
89%6¢
1699
2746
945
3079
S444
625
625
625
625

631
636
637
628

2701+

633
634
627

630
35690
3077
1282
1791
2755
35669
3527
625
629
632
639

3568¢
638

1406
2194

1495
2217

1509
2234

1522
2252

1596

2261

1650
2360

1670
2395

1679
2405

GLOBAL AREAS
KDJ11A
. MAC
AVECT2= 000000

BACDAT
BEVENT=
BGNTLP
BITO
=
BITO0 =
BITO1 =
BIT02 =
BITO3 =

BITO4 =
BITOS =
BIT06 =
BIT07 =
BITO8 =
BITO09 =
BIT1L
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT1S =
BIT2
=
BIT3
=
BIT4
=
BITS
=
BIT6
=
BIT7?7
=
BIT8
=
BIT9
=
BOARDT=
BPTVEC=
BYPARR
CACHET=
CCR

003052
177546
006740
000001
000001
000002
000004
000010

000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000001
000014
003374
ssssas

= 177746

CKSWR = 104407
COUNT
001040
CPEREG= 177766
CPUTST=
CR
=
CRLF
=
CTST10
CTST11

CIST12
CTST13
CTST1S
CTIST17
CTST2
CTST20
CTST21

000001
000015
000200
003676
004052

004374
004716
005072
005316
002312
005526
006146

MACY11l

30A(1052)

03-APR-84 11:36

625
1269
S360
2553¢
357¢
3470
3460
3450
3440
1663
3430
3420
3410
3400
3390
3380
3560
337¢
3360
335¢
3340
3330
3320
355¢
3540
3530

04-APR-84

PAGE 75
10:38
CROSS REFERENCE TABLE

J6
SEQ 0074

-- USER SYMBOLS

12944

2607
357
356
355
354
1676
353
352
351
350
349
348

1487
2342
1122
1134
1692
2191
2172
1786
1368

2231

1514
2380
1666
1203
1813
2249

1527
2823
1695
1373
1891

1809

1811

1966

1645

1828
2523

1905
2791

1486

1490

1500

587

693

730

14259
219

244

905+
1142+
18872
2342s

910«

904+
2268+
244

1501
2350
1190
1196

1573

1889

1964

2068

2339

2530

1383

2338
1492
2392

2737
1506
2740

2862
1518
2854

2938

2258

2206
1402
2357

1983

2690

2794

1503

2803

2818

587

672

696

709

715

730

751

952

1190s
1889+
2350«

966+
1193«
1905+
2380+

1002+
1368«
1966+
2414+

1052+
1418«
1968+
2531

1053«
1983»

1054
1645+

2618e

2072

2699+

1056
1704«
2074+
28232

1070
1783«
2089+
2904«

2164«
2994+

1007«
2418+
587

1145+
2621+
690

1211
2777

1289+

1420+

1529

1603

1706

1832«

968

3040
735

3040

3049

3140

3152

1788

2214

2904
2164

1581
2925

2696
1647
2956

352¢

351¢
350¢
349¢
3480
10

3640
136:
3040
5300

1134«
1828+
2209
3510¢
6590

5330
2094+
1¢
2724
2730
1535¢
1609¢
1711¢
18462
19219
2013e
1022¢

2101¢
22750

709

715
3152

726

730
730

732

1579+

1072«

1786+

969

1122+
1809«
2167+

1125+
1811
2206+

1908+

1985«

GLOBAL

AREAS

Cr1st22
Cr1s123
CT15724
CTST3
C1sT14
CTS5T5
C1ST6
crsr7
CURADD
CURDAT
CAPABO
DATRAM=
CCOUNT
DDISP =
DISPLA
DISPRE
DSWR
=
EMTVEC=
ENDHRT
ENDLUP
ENDTLP
ERRCNT
ERRMSG

006542
007274

KDJ11A MAC

007720
002414
002556
002710
003106
003402
001104
001076
004706
s0sssa

001054
177570
001050
000174

177570

000030
003032
007222
007172
001044
001325

ERRNUM= 000104

MACY11

03-APR-84

30A(1052)

11:36

04 -APR -84

PAGE 76
10:38
CROSS REFERENCE TABLE

26264
278560
1078¢
11560
12230
1312¢
14322
6790
6760
1774
715
66660

2794
6630
5734

2782
367¢
1267
26140
2554
661%
7264
1589
1780

18374
953
2552+
663
926+
934
914+«
1287¢

2608
3576+

EQ 007

2951+

2952+

2954

2423
2553

2562

2578

2586

2591«

2718+

2762+

1062
1416
1807
2178
2408

1068
1428
1819
2185
2560

1132
1498
1826
2197
2572

1140
1512
1840
2203
2751

1153
1525
1897
2220
2760

1200

1599
1903
2226
2849

1207
1653
1916
2237
2858

1219
1673
1979
2243
2873

1285
1682
1994
2255
2886

1379
1702
2002
2264
2921

1013
1201¢
1407
1600¢
1798
19040

1016

1060
1208¢
1414
16540
1805
1917¢
2176
22388
2406
2859¢

10630
1217
14170
1671
1808¢
1977
2179¢
2241
24092
2871

1066
12208
1426
16740
1817
1980¢
2183
22440
2558
28742

1069¢
1283
14292
1680
1820¢
1992
2186%
2253
25610
2884

1130
1286¢
16832
1824
1995¢
2195
22569
2570
28874

11332
1377
1499¢
1700
1827¢

1138
13802
1510
17038
1838
20039
2201
2265
2749
29224

1141¢
1387
15132
1778
1841¢
2006
22042

730

751

968

3040

926
934+
925
9154

1015

1398
1794

1409

2371
2943

2400

1792
1898¢

2078

2221¢
2369
2761¢
002302
000000
000004
001352
001366
001034
003070
007236
001042
FLDO
010134
FLDOA
010174
FLD1
010334
FLD1A
010414
FLD1B
010454
FMPARR
002550
FPPTST= 000001
FPVEC = 000244

-- USER SYMBOLS

24236

11540
1396

ERROUT
ERRTN =
ERRVEC=
ERR1
ERR2
EXPDAT
EXPTBL
EXTST
FLAG

1012¢

1800

8700
1198
13992

1597
1795¢
1901
2081¢
2224
2372¢
2847
29440

923
3590
3593

1301¢
2615
2796+
2889
2852¢
28984

22270
2398
28500
2963

14100
1651
1801¢
1914
2087¢
2235
24010
2856
29660

1496

935

2617¢

2798+

2896

2840

2901

2912

696

697

2979

29230
1150¢
244

587

2198¢
2262
25732
2919

2363
2752¢
2927

GLOBAL AREAS

KDJ11A.MAC

MACY11l

O3-APR-84

001100
FSTADD
001066
FWDSEQ
GNS
= ssssse U
GOODAD
001110
GTSWR = 104406
HITMIS= 177752
HMPARR
002702
HT
= 000011
HYBRID= 000001

INITMM
INTERR
INTRPC
IOTVEC=
KDPARO=
KDPAR1
=

001412
005244
005166
000020
172360
172362
KDPAR2= 172364
KDPAR3= 172366
KDPAR4
= 172370
KDPARS
= 172372
KDPARG6
= 172374
KDPAR7
= 172376
KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS
= 172332
KDPDR6
= 172334
KDPDR7= 172336
KIPARO= 172340
KIPAR]
= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS
= 172352
KIPARG
= 172354
KIPAR7= 172356
KIPDRO= 172300
KIPDR]= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4
= 172310
KIPDRS
= 172312
KIPDR6= 172314
KIPDR7= 172316
LDPARS
001554
LDPDRS
001604
LF
. 000012
LOOPIN
001060
LOWADD
001106

30A(1052)

11:36
6770
6720
572
6810
%61
532¢
1656
2392
1187
270¢
10

1394
1707
2260
3054

7670
1971

19734
365¢
508¢
S09¢
5104
S11#
512¢
5134
S514¢
5154

PAGE 77
10:38
CROSS REFERENCE TABLE

O04-APR-84

2546+
2536+
3502
35080
1004+«
1676
2720
1216¢
3092
549
1405
1790
2269
3305
1484

1990¢
1998

L6
SEQ 007¢

-- USER SYMBOLS

2549+
2544
3503

2551
2594
3504

2592
2608
3505

2610+
3506

2612«
3508

3510

3511

3512

1196
1685
2844

1203
1788
2854

1298
1813
2868

1373
1891
2916

1383
2172
2925

1402
2191
2937

1492
2214

1506
2231

1518
2249

1581
2258

1647
2357

691
1494
1833
2394

872
1508
1893

1008

1530
1986
2622

1146
1595
2095
2745

1212
1604
2174
2754

1281
1649
2193
2778

1290
1669
2216
3012

1375
1678
2233
3028

1385

2404

952
1521
1909
2419

1698
2251
3040

1959

2336

2526

2694

2802

2698+

27044

2713s

2767+

2817+

2899+

2903

3040

3049

3144

3152

3150
684
1421
1815

2359
3513
1569

9492

950+

2805+
2838+
1570+

2842+
1961+

2911»
2066+

2914+
2337+

2529+

4759
4760

1486+

1490«

1500+

1503«

2818+

4800

2803+
770
782

772

774

776

1263«

1266

1278+
2711

726

730
26974
2770+

778
790
732

4864
487¢
4884
4896
4904
491¢
4924
4930
4970
4980
4990

500
S01¢
5024
5034
5040

4774
478%
4794

4810
4829
768
780

2716
6684
6809

709

2693«

784
715

2700

2771»

8120
8410
735

GLOBAL AREAS

KDJ11A . MAC

LSTADD

MACY11

30A(1052)

03-5“-&‘ ll:lb

001102

6780

MMUTST= 000001

MMVEC

= 000250

MSER

MSG1

3760

177744

531¢

1796

011054

MSG2

011135

OPMSG2
OPMSG3

001162
001224

PARRAM= 000001
PIRQ
= 177772
PIRQVE= 000240

2550«

2574

244

587

687

709

730

751

952

954

902

1003«

1006+

11444

1210+

1288+

1419+

1528+«

1802+«

3024

30492

709¢
715¢

952
953

1921

000000
000040
000100
000140
000200
000240

PR7
= 000340
PS
= 177776
PSW
= 177776
PWRVEC= 000024

3014
2744
2750
3660

RAMPAR

86640

999

3418
3512¢

3511¢

PR6

=
=
=
=
=
=

= 000300

001630

= 177562
= 177560

RDCHR =
ROLIN =

RECDAT
RESTAR
RESVEC=
RITEDA
SAVSP1
SAVSP2
SDPARO=
SDPARL1=
SDPAR2=
SDPAR3=
SDPAR4=
SDPARS=
SDPAR6=
SDPAR7=
SDPDRO=
SOPDR1=

SDPDR2=
SDPDR3=
SDPDR4=
SDPDRS=
SDOPDR6=
SDPDR7=
SHMOO =

538¢
5374

104410
104411

001036
002176
000010
001072
001062
001064
172260
172262
172264
172266
172270
172272
172274
172276
172220
172222

172224
172226
172230
172232
172234
172236
000001

1822

1831«

1886+

1907#

2013

300¢

QBUSEX= 000001

RBUF
RCSR

1803

30404

14
2770
3710
2940
295¢
2964
297¢
2984
2994

PRO
PR1
PR2
PR3
PR4
PRS

6586
965¢
3610

6740

669¢

6706
4649
4650

4660
4670
4684
469
4704
4710
4429
4430
4440
4450
4460
4476
4484
4494
14

e aT?

2547+

2776+

1¢
6830
6750

10;

P
7
C%SS géggflfim“g
etfigLE -- USER SYMBOLS

2620+
3014

MXVDEL= 000001
NEWADD
001114
NEWDAT
001074

O04-APR-

275

689

2366+
3037

3001

1262

1483

2349

2367

2401

2402

3580+

3581+

614

3040

2539

2715

1969+

1984+

968
1602+

2004

3040
1705

2093+«

3305
1775«

2267«

1776

2417

GLOBAL AREAS
KDJ11A . MAC

SIPARO=
SIPARL1=
SIPAR2=
SIPAR3=
SIPARA=
SIPARS=
SIPAR6=
SIPAR7=
SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
SIPDR7=
SKIPID
SLOCOO

172240
172242
172244
172246
172250
172252
172254
172256
172200
172202
172204
172206
172210
172212
172214
172216
010760
001030

SLOCO1
SOFTER

001032
001116

SOFTRE

001120

MACY11 30A(1052)

03-APR-84

11:36

177572

SR1
=
SR2
=
SR3
=
STACK =
START
STBOT =
STKLMT=
SWR
SWREG
SWo
=
SWO0
=
SWO1
=
SW02
=

177574
177576
172516
001000
001716
001000
177774
001046
000176
000001
000001
000002
000004

4530
4540
4550
4560
457¢
458¢
459¢
4600
4314
4320
4330
4340
4350
4360
4370
4364
3013
6534
2617
6540
684¢
1986+
6859
1678+
2404s
380¢
1982+
3814
382¢
383¢
2654
570
S48
2768
6624
5749
3290
3192
3180
3170

000100
000200
000400
001000
000002
002000
004000

3130
3120
311¢
310¢
328
309¢
308¢

SRO

SWO3
SW04
SWOS

SW0é
SWO07
SW08
SW09
SWl
SW10
SWil
SWi2
SW13
SW1l4
SW1S
Swe
Su3

= 000010
= 000020
= 000040

=
=
=
=
=
=
=
=
=
=
=
=
=

010000
020000
040000
100000
000004
000010

3160
315¢
3140

307¢
3064
305¢
3040
3278
3268

O4-APR-84

10:38

PAGE

CROSS REFERENCE

30154
998+
2714+
2998
898
2095+
906
1698+
2745+
903
2068+

TABLE

N6
--

SEQ 0078

USER SYMBOLS

1773»
2775

1829
2799+

1884+
2997

1906

1970=+

1981

2064+

2091

2348+

2416

25384+

901+
2269+
1281+
1790+«
2754«
1487+
2083+«

1008+
2419s
1375+
1815+

1146+
2622+
13852+
1893«

1212+
2778+
1394»
2174s

1290+

1421+

1530+

1604+

1707+

1833

1909+

2193+

2216+

2233+

2251+

2260«

2359+

23944

1489+
2092«

15012
2339+«

1504+
2415+«

15142
2530+«

1520#+
2619+

1527+
2696+

1573+
2774+

1590+
2809+

1601+
2995a

1964+

2067+
912
576
2996

2338

2695«

2804+

925+
933

927
959

933s
3315

947«
3328

959

2523

2690

2791

2794

3315

3352+

329
328
327
326
325
324
323
322
321
320

14054

14944

1508

1521»

1595+

1649s

909¢

1669+

GLOBAL

AREAS

MACY11

SOA(1052)

KDJ11A.MAC =~ OS-APR-84 11:36
SWe

* 000020

SWS
SWe

= 000040
= 000100

SW8

= 000400

SW?

= 000200

SW9
« 001000
TAGADL
010672

2895

29830

715

953

2776

1885

TPVEC » 000064

TRAPVE«
TRTVEC=
TSEND
TSTADD

TSTLOC

000034
000014
010716
001112

001122

3620

2978

19130

29880

2781

2783

1127
1381s
1644

1135
1382s
1646
1962+

1143s
1392
16556

3690

3700

3680
3630
2980
6820

6950
1369
1505
1810+
2229

916¢

917

29940

1120s
1371s
1515
1812
2246

1123¢
1372
1643

1888
2248s

1890
2257

1967¢

TSTLUP
1ST1
1ST10
TST11
1ST12
1ST13

006656
002210
003676
004052
004374
004716

25410
3960
1531
1605
1708
1834

2611

2616

15670
16410
17710
18780

1595
1649
1790
1893

1669
1815

1678

1698

1ST1S
1ST16
1ST17
1572

005316
005526
006146
002312

1987
2096
2270
1009

20610
21610
23380
10490

2174
2359

2193
2394

2216
2404

2233

15721

007274

5623

2ee80

2745

2754

1147
1213

11850
12600

1281

1422

14810

1494

1508

1385

1394

1405

953
3422

3014
3425

3024
3429

3027
35020

3097
3587

15714

005072

15720

006542

15722

007720

1ST3.

002414

1ST4
1STS

002556
002710

1ST6

1ST7

TYPDS

TYPE

TYPOC

003106
*

003402

104405

= 104401

TYPON =
TYPOS =
UDPARO=
UDPAR1*
UDPAR2=
UDPARS=
UDPARA=

104402

104404
104403
177660
177662
177664
177666
177670

JOPARS: 177672
UDPARG+ 177674
UDPAR7= 177676
UDPDRO= 177620

3510

005062

= 000060

SEQ

CROSS REFERENCE TABLE -- USER SYMBOLS

3200
2824

TAPABO

TBITVE+ 000014

3520

5908

TKVEC

PAGE 80

3250

010704

Aeates
U

10:38

3540
3330

TAGADZ

04-APR-84

1910

1957

2420

25210

2779

2789

11170

1291

3026

952
3373

3329

35050
35040
2200
4210
a220
4230
4280

4250
4260
4370
3980

1365¢

35060

35030

1375

3592

3595

1521

1188s
1400s
1658

1191+
1401s
1675

1973

2163«

2251

2260

3219
3590

3288
3593

1195
1412
1684+

1202
1485«
1687

1270
1488e
1782e

1273
1491
1785«

1275
1o03
1789

2165+

2170

2188

3507¢

531a

3326

3327

3330

3343

3354

0079

KDOTTA.HAE > o3 APk
Ba 001052 )
GLOBAL

UDPDR1+
UDPDR2=
VOPDR3+=
UDOPDR4=
UVDPDRS=
UVOPDR6+=
UDPDR7=
UIPARO=
VIPARL1=
UVIPAR2=
UVIPAR3=
UIPAR4=
UIPARS+*
UIPARG6*
UVIPAR7+=
UVIPDRO=
UIPDR1=
VIPDR2=
UVIPDR3=
VIPDR4=
VIPDRS=
VIPDR6=
UIPDR7=
XBUF
=

177622
177624
177626
177630
177632
177634
177636
177640
177642
177644
177646
177650
177652
177654
177656
177600
177602
177604
177606
177610
177612
177614
177616
177566

XXX

010732

XCSR

SAPTHD
SASTAT=
SATYC
$ATYL
$ATYS
$ATYS
SAUTOB

SCHARC

177564

000204
sssnss U
013072
013046
013054
013064
012764

011512

SCKSWR

012210

SCNTLG
SCNTLU
$CPUOP

$DBLK

SDEVCT

$DOACN

3999
4000
4010
4020
4030
4040
4050
4020
4100
4110
4120
4130
4140
4150
4160
3879
3880
389¢
390¢
391¢
3920
393¢
3940
5400

5390

2793

596
3547
3518
35160
3082
3519¢
963s

3099+

2997¢

6020
3562
35200

3517¢
3598
3323

3109

34440

3116

34390
3438¢

011752

3185

3219

32270

011044

3020

3029

3035¢

011034

583

001403

001010

011002
011050
001020

$SFATAL

Q.
cROss 'REPERe
RFE
1RBLe - user svmBOLS

3326
3343
6400

SENDCT
SENULL
SENV

SEOPCT
SERFLG
$ERROR
SETABL
SETEND

04-APR-

012735
012730
001026

011742

SENVM
SEOP

3510

$OTBL

SENDAD

30A

3315¢

SCMTAG= sessee U

$CRLF

MACY11

001021
010746

010774
001052
013314
001020
001030
001002

912

7350

6310

3188

918

3098

32230

3142+

31472

3354

3438

3525

920

3159

30310

919
3027
6360

30220
3038¢
896

945

3079

957

3077

919+
6640
914
635¢
608

3019¢
920
949

3023
3574«
35740

3575

6370
3011@

628

6470
3553

3084

3527

3549

3596

SEQ 0080

b9V 1k AREAS o3 Abd'4s 301 4852 04-APR:R8s< 'RePPreREEE
1RBL e

SOCNT
$OMNDE
$PASS
$PASTM
SPATCH
$QUES

$ROCHR

$RDDEC
=
SROL IN
$RDOCT=
$RDSZ =
$RTNAD
$R2A
=
$SAVRE
=
$SETUP=
$STUP =
$SVPC =
$SWR
=
$SWREG
STESTN

$TKB
$TKS
$TN

$TPB
$TPFLG
$TPS

013312
oxxgb
o

3547

011527
011024
012260
000003
000204
012765
011533
013311
001000
000206
013310

3556+

SEQ 0081

USER SYMBOLS

35640

3438

012753
001014
001016
001000

6260

937

3558+

35620

3077

3536

3539+

012742
011526
000001

1023¢
1538
22760
33022

012204
012206
001006
000212
013462
011532
012472

944

3422

3551

3555+

1025
1610¢@
2278

10792
1612
24240

1081
1712¢
2426

1157
1714
26270@

1159
1847¢
2629

3267+
3012

3278«
3016+

33040
3017

3025

3038

12240
1849
2786%

1226
1922¢

13132
1924

1315
2014¢

2016

14332

3438

sss0sa

012612
sessse

000010
011046
LYY YTM
e

000126
177777
000204
160000

001022
001004
011520
011516
= 000023

011524
011531
011522

L ~{ =

$FFLG
$FILLC
SFILLS
$GET42
$GTSWR
$HD
SHIBTS
$ INTAG
SLF
SLFLG
SMAIL
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
$MSWR
SNULL
SNWTST=

913

914

918

920

921

954

3016

3310

3444

2540
1959

2063

921

1051
2336

1119
2523

1187
2690

1262
2791

1367
3008

1483
3016

1569
3030

1643
3036

1773
3038

997s
2162+
3151¢
31500

1118
2522+
3319
3517
1023
13670
15692
1815
2163¢

1186+
2689+
3336
3333

1261+
2790+
3390
3357«

1366+

1482«

1563+

164.'»

1772+

1879«

1157
1419
1649
1907
2251
26900

11872
1433
1669

1209
14832
1678
19592

947

965
2062+
3130
3128
969
1281
1521
1712
2063
2359
27910
31530
3157¢
3152¢

1287
1528
17730
2093
2394

2417

1051¢
1375

1595
1830
2174
2424

1079
1385

1602
1847
2193
25230

3396

11190
1394

1610
1880¢
2216
2620

3394
1144
1405
1643¢

1893
2233

2627

1922
2260
2745

2266
2754

1224

1494

1698
1984
2276

2776

GLOBAL

AREAS

$ TRAP
$ TRAP?2
$TRP
=
$ TRPAD

012766
013010
000012

KDJ11A.MAC

013022
$TSTM
000210
$TSTNU
= 000001
$TTYIN
012720

$TYPBN= s0ss00
$TYPDS
011536

$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SXOFF =
$XON
=
$3CET4=
SOFILL
$40CAT

.3ASTA=

011162
011374
011514
012006
012022
011762
001012
000214
001024
000023
000021
000000
012205
000000
013502

bbb

000204

P20 Martd oo 04 -APR R0ss 10:38
REFERENCE TABLE -- USER SYMBOLS
PAGE

916

34650
34940
3459
6050
542¢
3415
3507
31736
3071
3101
3143
32580
7e27
22530
6320
6078
6390
3125
3132
3030¢
3254+
5670

5524

6140

3156
3605¢
3517
592¢

34540
3501
35032
35012

3416
3506
3494
3108
3145
3503
32600
3504

35040

35052

3433

34372

3502
3115
31480

3544
3120¢

35068

SEQ 0082

35072

3508

35092

3510

35110

35120

35130

5844
30394
32272

586¢
30532
3308

592
3150
34370

593
3151
3438

595&
3152
3444

597¢
3153
3445

609¢
3154
3446

3359

3505

3152
3152
3258+

3268

3303¢

568
615¢
3157

5720
6960
3158

581

3159

3520
597

509

614

7372

582¢
3038
31600

610¢
3155
3565¢

GLOBAL AREAS
KDJ11A.MAC
A

BGNMOD
BGNSUB

BONTST

CCHMS2
CCHMS3
CCHMS4
CCHMSS
CCHMsS6

CxLOOP
CMSG1

12816

18936

2380
239¢
2380
2334
102106
10786
11560
12230
13110

238¢
9694

CMSG10
CMSG11
CMSG12
CMSG13
CMSG1S
CMSG17
CMSG20
CMSG21
CMSG22
CMSG23

1535¢
16090
17110
18460
19214
20136
2101¢
2275¢
24236
26260

ENDCOM
ENDMOD

3724
2384

CMSG?7
COMMEN

ENDPAS

ENDSUB
ENDTST
ERRDEF
ERRDF

14326
3724

3002¢

2396
2386

1405¢

14940

15080

15210

1595¢

16490

16690

21740

2193¢

22160

22330

22510

22600

23590

23940

24040

27450

27540

1678¢

16980

17900

18150

996
2521

1049
2688

1117
2789

1185

1260

1365

1481

1567

1641

1771

1878

1957

2061

2161

9%67

1025
1081
1159
1226
1315

971

1538
1612
1714
1849
1924
2016
2104
2278
2426
2629

1435

3000
3024

1019

1076

2781

2999

1155

1221

1309

1430

1533

1607

1710

1844

1920

2012

2098

2272

1817

866
1414
1824

1013
1426
1838

1060
1496

1066
1510

1198
1671

1205
1680
2006

1217
1700

1283
1778

1377
1792

1387
1798

2241
2919

1138
1597
1977

1151
1651

2235
2884

1130
1523
1914

1396
1805
2195

2378
2380
1407

236

2360

ERRFO7

2368

ERRF1
ERRF10
ERRF11
ERRF 12
ERRF13

227¢
2280
2280
228¢
2286

ERRF 14
ERRF1S
ERRF 16
ERRF17

13942

SEQ 0083

-- MACRO NAMES

2625

ERRF 06

ERRF 08
ERRFO9

13850

2422

ERRFO3
ERRF04
ERRFO5

13756

O04-APR-84
10:38
PAGE 85
CROSS REFERENCE TABLE

2201
2847
235
2350
235¢
235¢

ERRFO1
ERRFO2

MACY11 30A(1052)
03-APR-84 11:36

2218
2856

2174
2193

2216

2233

2366
2366

2359
2394

22806
228¢
2299
229¢

1494
1508
1521
1595

1012
1385
1394
1405
1414

2224
2871

1895

1901

2253
2927

2262
2941

1992

2363
2963

2000

2369

2398

2078

2406

2084

2558

2176

2570

2183

2749

2758

GLOBAL AREAS

KDJ11A .MAC

ERRF18
ERRF19
ERRF2
ERRF20
ERRF21
ERRF22
ERRF23
ERRF 24
ERRF25
ERRF 26
ERRF27
ERRF28
ERRF29

2298
2290
2270
2290
2294
229¢
2290
2300
2300
2300
2300
2300
2300

ERRF 30
ERRF 31
ERRF 32

2300
2300
231¢
231¢
2314
2314
231¢
231¢
231
231@
2274
232¢
2324
232¢&
232¢

ERRF 3

ERRF33

ERRF 34
ERRF 35
ERRF 36

ERRF37

ERRF 38
ERRF39
ERRF4
ERRF40
ERRF41

ERRF42
ERRF43

ERRFA44

2274

2326
232¢
232¢
2338
2332

ERRFS50
ERRFS51

2330
2336

ERRFS2
ERRFS3
ERRFS4
ERRFS5
ERRF56
ERRFS7
ERRFS8
ERRFS9
ERRF6
ERRF60
ERRF61
ERRF62
ERRF63
ERRF 64
ERRF65
ERRF66
ERRF67
ERRF?

1649
1668
1060

1678
1697
1778
1790
1798
1805
1815
1824
1837
1065
1893
1900
1913

1977

1992

1130
2006

232¢

ERRF45
ERRF46
ERRF47
ERRF48
ERRF49

ERRFS

03-

y1i1 30!(%252)

2278

2330
233¢
233¢
2330
2340
23446
2340
2340
2279
2340
23408
2340
2348
235¢
2350
2358
2350
227e

2078

2182
2200
1138
2223
2240
2251

2369

2404

2570
2745
2754
1198
2847
2856
2871
2919
2927
2941
2963
1205

11:

04 -APR 84

CROSS

10:38

PAGE 86

REFERENCE TABLE -- MACRO NAMES

SEQ 0084

GLOBAL AREAS

KDJ11A.M

ERRF8
ERRF9
ERROR

ESCAPE
ETXT1
ETXT10
ETXT11
ETXT12
ETXT13

2280
2280
2660
1407
1817
2201
2847
372¢
219¢
2200
2200
2200
2200

ETXT1S

2208

ETXxT14

ETXT16
ETXT17
ETXT18
ETXT19
ETXT2
ETXT20
ETxT21
ETXT22
ETXT23
ETXT24
ETXT2S

ETXT26
ETXT27
ETXT28
ETXT29
ETXT3
ETXT30

2200

2204
2204
2214
2214
219¢

ETXT35
ETXT36
ETXT37

2238
223¢
2236

ETXT39
ETXT4
ETXT40
ETXT41

223¢
219¢
2234
223

ETXTA2
ETXT43
ETXT44
ETXT4S
ETXT46
ETXT47
ETXT48
ETXT49
ETXTS
ETXTSO
ETXTS1
ETXTS2

1280
1375
867
1414
1824
2218
2856
992

1342
1346
1351
1355
1461
1469

1475
1562
1623

2214
2216
2210
2229
2220
2220
2220
219¢
2224

222¢
2229
2228

ETXT38

o3 APk 340111052 o"mésasslséggaezc‘ger%w -- MACRO NAMES

2210
2214
221%

ETXT31
ETXT32
ETXT33

ETXT34

223¢

223&

2240
2248
2249
2248
2240
2240
2240
2248
219¢
2258
2259
225¢

1937
1943
1948
1103
1951

2047
2057
2135
2139
1110
2144
2148
2153

1013

1426
1838

2224
2871

1060
1496
1895
2235
2884

1066
1510
1901
2241
2919

1130
1523
1914
2253
2927

1138
1597
1977
2262
2941

1151
1651
1992
2363
2963

1198
1671
2000
2369

SEQ 0085

1205
1680
2006
2398

1217
1700
2078
2406

1283
1778
2084
2558

1377
1792
2176
2570

1387

1798
2183

2749

1396
1805
2195
2758

GLOBAL

AREAS

KDJ1.1A
MAC

ETXTSS

ETXTS4
ETXTSS
ETXTS6

ETXTS?
ETXTS8
ETXTS9
ETXTé
ETXT60
ETXT61
ETXT62
ETXT?
ETXT8
ETXT9
EXITST
FRONT
FRONT1
GETPRI

GETSWR
IDMSG

MULT

NEWTST

POP

PUSH

REPORT
SCOPE
SETPRI
SETTRA
SETUP
SFTERR
SKIP
SLASH
SPACE

STARS

2250

2250
2250
225¢

2250
2264
2260
2192
2260
2268
2260
219¢
219¢
219¢
2360
2620
1¢
14
372¢
3720
3002¢

372¢

2370
2101
3720
372¢

372¢
2678
3720
34690
2374
236¢
1815
372¢
3728
372¢
372¢

1157
1610
2102
SWRSU

3720

TAIL
TRMTRP
TYPBIN
TYPDEC

1¢
3491¢
3720
3720

TYPNUM

372¢

TYPNAM

TYPOCS
TYPOCT
TYPTXT
$SESCA
$SFTER

SSNEWT

372¢

3728
3720
3720
3720
12819

18930
372¢

2276

MACY11l 30A(1052)

-APR -84 ll:§6

04-APR 84
10:38
PAGE 88
CROSS RE FERENCE TABLE

L7
--

SEQ 0086

MACRO NAMES

2157
2308
2325
2461
2470
2668
2672
1176

1180
1244
1337
1006
2776

1144

1209

1287

1419

1528

1602

1705

1830

1907

1984

2093

2266

2417

372¢
2275
3214
3173

969
2423
3559
3520

1022

1078
2785

1156

1223

1312

1432

1535

1609

1711

1846

1921

2013

3522

3543

3494
372@
1281
1893

3503
911
1375
2174

3504

3505

3508

3510

3511

3512

1385
2193

1394
2216

1405
2233

1494
2251

1508
2260

1521
2359

2394

1595

1649
2404

1669
2745

1678
2754

1698

1790

579

589
1184
1640
2160
3230

591
1224

598
1226
1714
2278
3310

624
1259
1770
2333
3378

969
1313
1847
2424
3407

1364
1877
2520

1025
1435
1924
2629

1048
1480
1956
2687

1079
1536
2014

3515

1023
1433
1922
2627
3570

2786

1081
1538
2016
2788

1116
1566
2060
3005

1405¢
22334
1157

14940
22519
1224

22600

1595¢
23940
1536

16490
24040
1610

16694
27458
1712

1678
27540
1847

16982

17902

18152

1922

<014

2102

216¢
954
3012

1159
1612
2104
3163

921¢
3002

1712

2276
3307

971

1315
1849

2426
3448

995

3025

3328

1375¢
21749
969
2424

1385¢
2193¢
1023
2627

13940

22160

1079

2786

15084

1313

1521¢
2359¢
1433

GLOBAL AREAS
KDJ11A.MAC

$S$SET

MACY11 30A(1052)
O03-APR-34 11:36

3475¢

3494

.EQUAT
.HEADE
KT11
.SETUP
.$ACT1
. $APTB
. SAPTH
.SAPTY

2374
2390
2379
239¢
2390
2370
239¢
2400

262
244
372
549
577
622
587
3513

. $ERRD
. SREAD
. $TRAP
.$TYPD
.STYPE
.3TYPO
. $40CA

2400
24006
2390
2384
238¢
240¢
2379

3305
3446
3161
3054
3228
550

$$SETM
$$SKIP

. SEOQP

ABS.

9370
3720

237¢

013502

ERRORS DETECTED:

944

3503

04-APR-84
10:38
PAGE 89
CROSS REFERENCE TABLE

3504

3505

3506

3508

J7
--

SEQ 0087

MACRO NAMES

3510

3511

3512

3003

000
O

CZKDMB/EN:ABS ,CZKDMB . SEQ/DOC/SOL /CRF /NL : TOC=SYSMAC . SML /ML , CZKDMB . MAC /ML ,KDJ11A . MAC
RUN-TIME: 748 109 S5 SECONDS
RUN-TIME RATIO: 1286/864=1.4
CORE USED:
S8K
(115 PAGES)

DOCUMENT PAGES: