Digital PDFs

AH-T707B-MC

July 1984

97 pages

Original

4.9MB

view download

OCR Version

4.9MB

view download

Document:	CZKDKB0 KDJ11-A KDJ11 MEM MGT DIAG JUL 1984 bw
Order Number:	AH-T707B-MC
Revision:	000
Pages:	97
Original Filename:	CZKDKB0__KDJ11-A__KDJ11_MEM_MGT_DIAG__AH-T707B-MC__JUL_1984_bw.pdf

OCR Text

CZKOKEQ

AH-T707B-HC

FICHE 01 OF 01

o ifol ifta]]

fade

30A(1052)

20 MAR 84

11:31

PAGE

17 ST

USER DOCUMENTATION
MACYI1
KDJ11A,MAL
20-MAR 84 11:19

Bl
5EQ N001

o> LAY

.REM £

10
11
12
14

15
16
1 g

18
19
20
21
22
23
24
25
26
27
28
29
30

IDCNTIFICATION
PRODUCT

CODE:

PRODUCT

NAME
:

CZKDKBO kDJ11

MEMORY

MANAGEMENT

15 MAR 84

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

HENRY

ENMAN,

JIM PITTMAN,

BARRY

DIAGNOSTIC

IRRGANG

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TQ
CHANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT B8y DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY

FOR ANY

ERRORS

THAT

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

PRODUCT DATE:

33
34
35
36

17068

THE

FOLLOWING ARE

OIGITAL
DEC

(C)

MAY

APPEAR

THE
USE
SUPPLIED

OR
BY

THIS

DOCUMENT.

RELIABILITY
DIGITAL
OR

1984 BY DIGITAL FQUIPMENT CORPORATION

TRADEMARKS OF

PDP
CECuUS

DIGTTAL

FGUIPMENT

UNJBUS
DECTAPE

CORPORATION:

MASSBUS

OF
ITS

QBS?IR%VC*NVA‘SAONAR 34

??C{él

S0ALLO

!
)Y

00 MAR 84

1.7

PAGE

SEQ 0002

40
41
42

45
-1

48
49

50
S1
52
53
54
55

.REM ¢

HISTOR

0C'

FEB-84

REvV.
REV.

A
B

FIRST RELEA.E
CORRECTIONS MADE

TO:

i.
2.

CORRECY
PREVENT

3.
4.

TURN CACHE MEMORY SYSTEM OFF DURING NON-CACHE TESTS.
ENSURT THAT CPU ERROR REGISTER 1S CLEARED AFTER

SKIPPTMNG DESELECTED

TESTS.

PROBLEM
OF SYNC WHEN

COMPLFIION OF TFST THAT MIGHT CAUSE IT TO BE SET.
SAVE PC AND CONTENTS OF R6 ON UNEXPECTED INTERRUPIS

A DODITIONAL

1 .

VECTOR AREA MAINTENANCE
S$TESTN FROM GETTING OUT

TESTS Tu IMPROVE
NON FXISTANT MEMORY TRAP

TEST COVERAGE
TEST

INCLUDE:

BT RO

1AL o §HCI81 S0RC1052)

A(1052)

20 MAR 84

D1
:31

PAGE

SEQ ©003

REM &

o8
59
60
61
62
63
64
65
66
67

71
72
73
74
75
76
77
78

TABLE OF CONTENTS

1.0
1.1
1.2
1.3
1.4

1.5

2.0

GENERAL INFORMATION
PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AMD STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES

ASSUMPTIONS

OPERATING INSTRUCTIONS

2.1
2.2
2.3

LOADING AND STARTING PROCEDURE
PROGRAM OPTIONS
OPERATION UNDER APT

3.0

ERROR

4.0

PROGRESS REPORT

INFORMATION

USER DOCLMENTATION
??CI%I
KDJ11A
. MAC
20-MAR 84

30A(1052)

20 MAR B4

11:31

PAGE 4

E L
SEQ 0004

80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

.REMN €

1.0

GENERAL

1.1

PROGRAM ABSTRACT

THIS

INFOPMATION

IS AN APT COMPATIBLE

VERSION OF

THE KDJ11 MEMORY MANAGEMENT

DIAGNOSTIC. IT FOCUSES ON TESTING THE FUNCTIONALITY OF THE MEMORY
MANAGEMENT FEATURES. THE TEST REQUIRES 4 MEGABYTES OF
QBUS
MEMORY TO FULLY TEST THE MMU ADDER. A SUBSET OF THE ADDER IS
TESTED IF LESS THAN 4 MEGABYTES OF MEMORY IS AVAILABLE
(MINIMUM OF 28 KBYTES). IN ADDITION; FOR TESTING IN
QBUS SYSTEMS WITH ONLY 18 ADDRESS BITS, A MEANS IS PROVIDED TO
SKIP TESTS WHICH REQUIRE 22 BIT ADDRESSES. THIS FEATURE IS
IMPLEMENTED BY SETTING BIT 08 IN THE SOF TWARE SWITCH REGISTER
(LOCATION 176) TO A ONE. DEFAULT IS TO TEST 22 BIT ADDRESS
ES.
1.2

SYSTEM REQUIREMENTS

KDJ11-A PROCESSOR MODULE
ggSW’E‘E'T'gST HALT TRAP OPTION IS DISABLED (JUMPER W9 INSTALL
ED)
KW
Y

Q-22 BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAGE
)
SERIAL LINE UNIT AND CONSOLE TERMINAL (CONSOLE TERMINAL NOT
REQUIRED FOR APT)

1.3

RELATED DOCUMENTS AND STANDARDS

KDJ11-A MODULE SPECIFICATION REV 2.2
PDOP11 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 DIAGNOSTIC MUST RUN SUCCESSFULLTY PRIOR
TO RUNNING THE MEMORY MANAGEMENT TEST,

1.5
IT

THE

ASSUMPTIONS
IS ASSUMED THAT
XXDP+

THE DIAGNOSTIC OPERATOR IS FAMILIAR WITH

OPERATING SYSTEM AND

THE

U1l

2.0

OPERATING

2.1

LOADING AND STARTING PROCEEDURE

MICRO-0DT.

INSTRUCTIONS

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.

IDENTIFICATION MESSAGE WILL BE
OF THE COMPLETE PROGRAM,
2.2

PROGRAM OPTIONS

THE

TYPED AFTER

PROGRAM

THE FiRST PASS

USER DOCUMENTATION
??C{él
KDJ11A.MAC
20 -MAR 84

135
136
137
138
139

140
141
142
143
144
145
146
147
148
149

150
151
152
133
154
155
156
157
158
159

160
161
162

163

164
165
166
167
168
169
170
171

30A(1052)

180
181
182
183
184

PAGE S

SEQ 0005

THE FOLLOWING ASSIGNMENTS HAVE BEEN MADE FOR

Bl11015
-

THE

-8

-4

KDJ1l

*--

DON'T
g

-8

&--

ONLY

DEFAULT SETTINGS ARE TO TEST 22 BIT ADDRESSES.
NO CFFECT ON THE OPERATION OF THE PROGRAM,

ADDRESS

BEVENT
.8

18 BIT

TEST

EXTENDED
CACHE

TESTS

THE OTHER BITS HAVE

PRIOR TO EXECUTING THE FIRST PASS OF THE ODIAGNOSTIC THE OPERATOR
WILL BE DIRECTED TO SET THE SWITCH REGISTER TO INDICAT
E WHE THER
THE KOJ11-A UNDER TEST IS IN A SYSTEM CONFIGURED FOR
18 OR 22 BIT
ADDRESSING. AN 18 BIT ADDRESS CONFIGURATION SHOULD BE INDICATE
D IF
ANY 18 ADDRESS BIT ONLY MEMORY BOARDS RESIDE IN THE SYSTEM
OR IF
THE SYSTEM BACKPLANE DOES NOT SUPPORT 22 ADURES
S BITS.

TO CHANGE THE SWITCH REGISTER; MALT THE PROGRAM, AND
EITHER RESTART
THE PROGRAM AT 200 ANSWERING THE INITIAL QUESTIONS.
OR LOAD THE

SOF TWARE

RESTART

2.3

SWITCH REGISTER (ADDRESS 176) WITH THE DESIRED OPTIONS AND

THE PROGRAM USING

THE

J11 MICRO ODT

P COMMAND.

OPERATION UNDER APT

THERE ARE NO DIFFERENCES IN THE EXECUTION OF THIS
DIAGNOSTIC
WHEN OPERATING IN AN APT ENVIRONMENT. PROBLEMS CAUSED
BY THE
ASYNCHRONOUS HALTS OF THE DIAGNOSTIC BY THE APT MONITO
R HAVE
NOT BEEN NOTED.

3.0

ERROR

INFORMATION

ERRORS WILL CAUSE

THE FOLLOWING ERROR MESSAGE

TO BE

PRINTED:

ERROR DURING MMU TESTING
ERROR & = (UNIQUE ERROR NUMBER)
ERROR PC = (PC AT TIME OF ERROR)

175

179

11:31

DIAGNOSTIC SWITCH REGISTER BITS:

172
173
174

176
177
178

20 MAR B4

THE ERROR WILL
WILL HALT.
4.0

THEN BE REPORTED TO APT

AND

THE

PROGRAM

PROGRESS REPORT

THE END OF

EACH PASS

THE

DIAGNOSTIC NAME

AND PASS COUNT

ARE

PRINTED,

PROGRAM MEADER
KDJ11A.MAC
20

185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205

MAC+11

30A(1052)

20 MPR

11:31

.TITLE PROGRAM HEADER AND
.SBTTL
PROGRAM HEADER

PAGE

SEQ 000

TABLES

McaLL

NEWTST ,ERRDEF, .EQUAT, .KT11,.$40CAT,

-MCALL
MCALL

.HEADER, .SETUP, . $TRAP,BGNSUB
. $ACT11,
,END.SUB,
SAPTHDR
.$A
. SERROR,.
PTY
$TYPOCT,
PE,
. $READ

-MCALL

SEOP, . $APTBLS, SE TUP

-$TYPE. $TYPDEC,ERRDF ,BGNTST ,ENDTST,BGNM
OD , ENDMOD . CKL OOP

.TITLE
«KDJ11 A MEMORY MANAGEMENT DIAGNOSTIC
s#COPYRIGHT (C) MARCH, 1984

;«DIGITAL EQUIPMENT CORP.

: sMAYNARD,

MASS.

01754

HLJ
)

;«THIS PROGRAM WAS

ASSEMBLED USING

PDP-11 MAINDEC

JAN 19,

1977.

$TN=1
$SWR=160000

LOOP

TEST,

€20001
160000

THE

: #PACKAGE (MAINDEC-11-DZQAC-C3),
:sHALT

ON ERROR,

INHIBIT

SYSMAC

ERROR

TYPOUT

236
237
238
239

240
241
242
243
244
245
246
247

248
249

250
251
252
253
254
255
256
257
258
259
260
261

30A(1052)

11:19

20 MAR 84

kl:S

PROGRAM

PAGE

ADER

SEQ 0007

.TITLE GLOBAL AREAS
.S8TTL
GLOBAL EQUATES

<06
207
208
209
210
cll
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235

MACt111

20 MAR 84

SECTION

THE

GLOBAL

ARE USED

EQUATES

IN MORE

SECTION CONTAINS

THAN ON:

TEST,

PROGRAM EQUATES

THAT

GLOBAL AREAS
KDJ11A
. MAC

.-BTTL BASIC DEFINITIONS
001000

000011
000012
000015
000200
177776

177774
177772
177570
177570

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

THE

STACK POINTER

LF=

: ;CODE

CR=
CRLF =

15
200

LEQUIV

PS,PSW

PIRQ=-

177772

PS=

STKLMT=

OSWR=
DDISP=

FOR HORIZONTAL

::CODE FOR LINE FEED

177776

; sPROCESSOR

177774

$3STACK LIMIT REGISTER

177570
177570

: s HARDWARE SWITCH REGISTER
: tHARDWARE DISPLAY REGISTER

STATUS

PRO=
PR1=
PR2=

0
40
100

PR4 =
PRS =
PR6 =
PR7=

200
240
300
340

; sPRIORITY
: :PRIORITY
: sPRIORITY
: sPRIORITY

;¢ "SWITCH REGISTER”
SW1S=
100000
SW14=
40000
SW1320000

SWITCH DEFINITIONS

%0
sl
"2
%3
4
5
%6
u7
%6
7

;#PRIORITY

SW1z2=

SWll=
SW10=

SWO09 -

s sGENERAL REGISTER
; sGENERAL REGISTER
: sGENERAL REGISTER
; sGENERAL REGISTER
: sGENERAL REGISTER
+ sGENERAL REGISTER
3 tGENERAL REGISTER
: sGENERAL REGISTER
: i STACK POINTER
s :PROGRAM COUNTER

LEVEL

DEFINITIONS

140

10000

4000
2000

1000

WORD

: sPROGRAM INTERRUPT REQUEST REGISTER

i *GENERAL PURPOSE REGISTER DEFINITIONS

PR3=»

TAB

; ;CODE FOR CARRIAGE RETURN
:sCODE FOR CARRIAGE RETURN LINE FEED

000000
000040
000100
000140
000200
000240

100000
040000
020000
010000
004000
002000
001000

eas

: #MISCELLANEOUS DEF INITIONS

HY=

RO=
R1=
R2=
R3=
R4 =
R5=
R6=
R7=
SP=
PC=

000340

1000

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

000000
002001
000002
000003
000004
000005
000006
000007
000006
000007

000300

sse

s sPRIORITY LEVEL O
1 sPRIORITY LEVEL 1
;sPRIORITY LEVEL 2

; sPRIORITY LEVEL 3

LEVEL 4
LEVEL S
LEVEL 6
LEVEL 7

262
263
264
265
266
267
268
269

270

271
272
273
274
275

MACY11l 30A(1052)
20-MAR -84 11:19

000400
000200
000100
000040
000020
000010
000004
000002
000001

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
311

312
313
314
315
316
317

pr——t

GLOBAL AREAS

KDJ1.1A
MAC

20 MAR 84
PAGE 8
11 :31
BASIC DEFINITIONS

SWO8
SW07=
SWO6
=
SWOS5=
SWO4
=
=
SWO3
SW02=
SWo1-=
SWO0
=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

.EQUIV
EQUIV
.EQUIV

~“EQ 0008

400

200
100

20
10

2
1
SW09, SW9
SWO08, Sw8
SWO7,Su7
SW06, SW6
SWO5, SWS
SWO04, SWa
SWO3,S5u3
SuWo2, SW2
SWO01,SK1
SWO0, SWO

; *DATA BIT

DEFINITIONS (BITOO TO BIT15)
100000

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

BIT15=
8IT14BIT13BIT12=
8IT11BIT10=
BITO9=
8IT08=
BITO7B8IT06=
BITOS=
BITO4=
BITO3~
817102~
BITOl=
BITOO=
LEQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
JEQUIV
.EQUIV
.EQUIV
.EQUIV
EQUIV

000004
000010
000014
000014
000014
000020
00C024

ERRVEC= 4
RESVEC- 10
TBITVEC
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

40000

20000
10000

4000
2000

1000

400

200
100

20
10

2
1
8I709,8IT9
81708,8178
8IT07,8I77
BI106,81T6
B8IT05,BIT5
8IY04,.8174
B81703,8173
BIT02,.81IT2
B8IT01,BIT1
BI1700,8I70

; ¢BASIC “CPU” TRAP VECTOR ADDRESSES
;s TIME OUT

AND OTHER ERRORS

35R$SES¥$D AND ILLEGAL INSTRUCTIONS

; s TRACE

TRAP

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

: :POWER

FAIL

«eSCOPEse

GLOBAL AREAS
KDJ1.1A
MAC

318
319
320
321
322
323

MACY1l

20-MAR-84

000030
000034
000060
000064
000240

11:19

20 MAR 84
11:31
PAGE 9
BASIC DEFINITIONS

EMTIVEC=

000250

177572
177574
177576
172516

SEQ 0009

TRAP (EMT)

VECTOR

MMVEC=

250

$#KT11

STATUS

ADDRESS

ADDRESSES

177572
177574
177576
172516

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

UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606
UIPDR4= 177610
UIPDRS= 177612
UIPDR6= 177614
UIPDR7= 177616

:sUSER “D" PAGE DESCRIPTOR REGISTORS
177620

177622
177624
177626
177630

177632
177634
177636

UDOPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=
UDPDRS=
UDPDR6=
UDPDR7=

177620
177622
177624
177626
177630
177632
177634
177636

;¢USER "I PAGE ADDRESS REGISTERS
177640
177642
177644
177646
177650
177652
177654
177656

UIPARO= 177640
UIPARL1= 177642
UIPAR2= 177644
UIPAR3= 177646
UIPAR4= 177650
UIPARS= 177652
UIPAR6= 177654
UIPAR7= 177656

;sUSER
177660
177662
177664

UDPARO=
UDPAR1=
UDPAR2=

"D" PAGE ADDRESS REGISTERS
177660
177662
177664

#+ERRORe»

i: "TRAP" TRAP
$:7T7Y KEYBOARD VECTOR
;:TTY PRINTER VECTOR
3 ;PROGRAM INTERRUPT REQUEST

MEMORY MANAGEMENT DEFINITIONS

;#KT11

SRO=
SR1=
SR2=
SR3=

J1
: iEMULATOR

TRAPVEC=34
TKVEC=
o0
TPVEC=
64
PIRQVEC=240

.SBTTL

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
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373

30A(1052)

VECTOR

GLOBAL

AREAS

KDJ1.1A
MAC

374
375
376
377
378
379

380
381
382
383

384

385

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

400
401
402
403
404
405
406
407
408
409
410
411
412
413

414
415

416
417
418

419
420

421
422
423
424
425
426
427
428
429

MACY11

20 MAR

177666
177670
177672
177674

177676

30A(1052)

11:19

iK1

20 MAR 84
11: 31
PAGE 10
MEMORY MANAGEMENT DEF INITIONS
UDPAR3
=
UDPAR4
UDPARS
=
UDPARG6
=
=
UDPAR7

177666
177670
177672
177674
177676

s #SUPERVISOR
172200
172202
172204
172206
172210
172212
172214
172216

SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
=
SIPDR4
SIPDRS=
SIPDR6=
SIPDR7=

"I PAGE DESCRIPTOR REGISTERS

172200
172202
172204
172206
172210
172212
172214
172216

: sSUPERVISOR “D" PAGE DESCRIPTOR REGISTERS
172220
172222
172224
172226
172230
172232
172234
172236

SDPDRO=
SOPDR1
=
SOPDR2»
SDPDR3
=
=
SDPDR4
SDPDR5=
SOPDR6
=
SOPDR7=

172220
172222
172224
172226
172230
172232
172234
172236

i *SUPERVISOR “1I“ PAGE ADDRESS REGISTERS
172240
172242

172244
172246
172250
172252
172254
172256

SIPARO=
SIPAR]=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=
SIPAR6G=
SIPAR7=

172240
172242

172244
172246
172250
172252
172254
172256

s *SUPERVISOR “D” PAGE ADDRESS REGISTERS
172260
172262
172264
172266
172270
172272
172274
172276

SDPARO=
SDPAR]
=
SDPAR2=
SDPAR3
=
=
SDPAR4
SDPARS=
SDPARG
=
SDPAR7=

;#KERNEL
172300
172302
172304
172306

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=

172260
172262
172264
172266
172270
172272
172274
172276

“I" PAGE DESCRIPTOR REGISTERS
172300
172302
172304
172306

SEQ 0010

GLOBA.

AREAS

MACY11l

KDJ11A.MAC

20-MAR 84

430
a3y
432
433
433
435
436
437
438
439

172310
172312
172314
172316

440
441
442
443
a4a

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

467

172320
172322
172324
172326
172330

172332
172334
172336

30A(1052)

11:19

20 MAR 84

L1
11:31

KIPDR4=
KIPDRS=
KIPOR6=
KIPOR7=

172310
172312
172314
172316

;sKERNEL

“D”

SEQ 0011

PAGE

DESCRIPTOR REGISTERS

KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330

KOPDRS= 172332
KOPDR6= 172334
KDPDR7= 172336
"I”

PAGE

ADDRESS

REGISTERS

KIPARO= 172340
KIPARL1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPAR6= 172354
KIPAR7= 172356
;#KERNEL

“D“ PAGE

172360
172362
172364
172366
172370

KDPARO=
KOPAR1=
KDPAR2=
KDPAR3=
KDPAR4»

172374
172376

KDPARG6= 172374
KDPAR7= 172376

000000

ACO=

172372

MEMORY MANAGEMENT DEF INITIONS

s#KERNEL

172340
172342
172344
172346
172350
172352
172354
172356

PAGE

KDPARS=

ADDRESS REGISTERS

172360
172362
172364
172366
172370
172372

468
469
470
471
472
473
a7a
475
476
477
478

000002
000003
000004
000005
000006
000007

AC2AC3=
AC4-=
ACS=
AC6=
AC7=

%2
53
54
%5
%6
%7

000244

FPVEC=

244

481

177746

483
484

177752
17776€

i THESE ARE CACHE REGISTER EQUATES
177746
;CACHE CONTROL REGISTER
MSER=
177744
sMEMORY SYSTEM ERROR REGISTER

479
480
432

485

000001

1777244

s THESE Agg FLOATING POINT ACCUMULATOR EQUATES

AC1-

CCR=

HITMIS=
CPEREG=

177752
177766

sHIT/MISS REGISTER

;:CPU ERROR REGISTER

GLOBAL

AREAS

KDJU11A.MAC

486
487

20-MAR -84

30A(1052)

11:19

490

491
492
493
494
495
496

20-MAR 84
11:31
PAGE 12
MEMORY MANAGEMENT DEF INITIONS

RCSR=
RBUF =
XCSR=

“£Q 0012

177560
177562
177564

XBUF =
177566
ERRTN=
HALT
$TSTNU=1
ERRNUM= 1
ASWREG= 2000

002000

497
498
499
500

sMISCELANEOUS DEF INITIONS
BEVENT= 177546
;BEVENT CONTROL REGISTER

177546
177560
177562
177564
177566
000000
000001
000001

488
489

501
502
503
504
505
506
507
508
509
510
S11
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541

MACY11l

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

: THIS EQUATE DEFINES

001000
000000

.ASECT
.SBTTL

000000

ST80T=

1000

THE BOTTOM OF

THE

PROGRAM STACK

POINTER

TRAP CATCHER

.=0

i#ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN
i#A ",+2, TOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL

;#TRAPS AND INTERRUPTS

THAT MIGHT OCCUR.

i#THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT
;#TRAPS TO THE $SCOPE ROUTINE WHICH (IF THE RETURN PC IS
+#LESS THAN 1002) JUMPS TO THE $ERROR ROUTINE.
;#THE $ERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:

PC=YYYYYY

UNEXPECTED

TRAP

XXX

:#AND RETURN TO THE PROGRAM AT PC=YYYYYY.2

; #WHERE XXX=LOCATION OF ILLEGAL TRAP

YYYYYY=PC

TIME

TRAP

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

000000
000737

000004
000006
000174
000176

001604
000340
000174
000000
000000

000200

000137

$40CAT:

MALT
BR

.-100

.WORD
.uggg

START
340

DISPREG: .WMORD
001604

; sHALT
;;BRAngg TO 177700 € TIME OUT
131170
:;VECTOR TO STARTING ADDRESS
: sWITH PRIORITY LEVEL 7

SWREG:
.SBTTL

.WORD
O
STARTING ADDRES(ES)

.SBTTL

ACT11 HOOKS

JHP

@0START

;;GO

(NOT

: ; SOF TWARE DISPLAY REGISTER

: : SOFTWARE SWITCH REGISTER
TO START

OF PROGRAM

;;““““t‘..“‘t““t“““‘.‘t“‘

000046

0000S2

000204
000046
020026
000052
000000
000204

;HOOKS REQUIRED BY ACT11
$SX2C=.

; SAVE PC

isgDAD

:31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

.*52

. WORD

.SBTTL

0“‘t“““‘l““““““.‘“

. =$SVPC

APT PARAMETER BLOCK

:32)SET LOC.S2 TO ZERO
::

RESTORE PC

;;““‘.‘t“““““.“““‘A‘t“t“‘t‘t““

iSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

‘“““‘t“.““.“.‘

GLOBAL AREAS

¥DJ11A.MAC

542
543
544
545
546
547

548

549
550
551
552
353

MACY11l

20-MAR-84

30A(1052)

11:19

000024

000044

20 MAR 84
11:31
PAGE 13
APT PARAMETER BLOCK
R

000204
000024
000200
000044
000204
000204

J8X=,
.=24
200
.=44
$APTHDR
.5 8X
e

SEQ 0013
Y

s s SAVE CURRENT { OCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START WP
: sPOINT TO APT INDIRECT ADDRESS PNTR.
; ;POINT TO APT HEADER BLOCK
s sRESET LOCATION COUNTER

PPN

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
; INTERFACE SPEC.
000204
000204
000206
~00210
000212
000214
000216
000002
000004
000006

000000
001000
000001
000002
000000
000014
000204
000002
000000
000006
000004
000204
001000

SAPTHD:

$HIBTS:
$MBADR:

$TSTM:
$PASTM:
$SUNITM:
=8

=2
0
6

4
.=.8X

. 21000

WORD
.WORD

_WORD
_WORD
.WORD
.WORD

O
$MAIL

;: TWO HIGH BITS OF 18 BIT MAILBGX ADDR.
: sADDRESS OF APT MAILBOX (BITS 0-15)

1
:sRUN TIM OF LONGEST TEST
2
:sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK
VERIFY)
O
; ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIO
NAL UNIT
$SETEND -$MAIL/2 ;;LENGTH MAILBOX-ETABLE(WORDS)
:SAVE CURRENT LOCATION COUNT

:SET UP SOME VECTORS
;RESTORE LOCATION COUNT

GLOBAL

ARE AS

KDU11A .MAC

MACY11 30A(1052)
20 MAR 84 11:19

20 MAR 84

11:31

.SBTTL

$70
st

57%
<74

.SBTTL

581
582
583
584
585
586
587
588
589
590

591
592
593

594
599
596
597
598
599

THE

GLOBAL

IN MORE

DATA SECTION CONTAINS DATA

THMAN ONE

TEST.

THAT

ARE

USED

APT MAILBOX-ETABLE

'3.“‘.“..‘...‘.‘.O...‘.“.“.‘.‘

001000
00.000
001002
001004
001006
001010
001012
001014
001016

001020
001020
001021

V01022
001024
001026

.‘.“..‘...‘.‘...‘..‘.‘.“0.‘0.

.EVEN

$MAIL
$MSGTY:

_WORD

AMSGTY

s 3APT MAILBOX
; ;MESSAGE TYPE CODE

$TESTN:
$PASS:
SOEVCTY:
SUNIT:

.WORD
_MWORD
.WORD
_WORD

ATESTN
APASS
ADEVCT
AUNIT

;;TEST NUMBER
3 1PASS COUNT
;;DEVICE COUNT
11170 UNIT NUMBER

S$FATAL:

$MSGAD:
$MSGLG:

SETABLE ;

002000
000000
000000

001030

SENV:
$SENVM:
$SWREG:
SUSWR:
$CPUOP:

.WORD

.WORD
.WORD

.BYTE
. BYTE
.WORD
.WORD
,WORD

AFATAL

AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

;;FATAL

ERROR NUMBER

; ;MESSAGE
; ;MESSAGE

ADDRESS
LENGTH

3 1APT ENVIRONMENT TABLE

1 tENVIRONMENT BYTE
1 stENVIRONMENT MODE BITS
;3APT SWITCH REGISTER
1 tUSER SWITCHES
;,;CPU TYPE,OPTIONS

3 e
L
;e

BITS

)
ie
i e
SETEND:

BIT
BIT
BIT

15-11+CPU

TYPE
11/04+01,11/05202,11/20203,11/80:04,11/45:05
11/70=06,PDQ=07,Q:10
10-REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
8-MEMORY MANAGEMENT

JMEXIT

s THESE LOCATIONS ARE USED IN MORE TMAN ONE TEST TQ STORE VECTOR DATA
iWHEN THE TEST NEEDS TO MAVE AN ERROR CONDITION RESPOND DIFFERENTLY

w2
603

613
614
615
616
617
.18
619
620
621
622

GLOBAL DATA SECTION

500
01

604
605
606
607
608
609
610
611
612

SEQ 0014

'.0

578
576
577
578
579
580

GLOBAL DATA SECTION

Se7
S68

S69

PAGE

sFROM

THE

DEFAULT

RESPONCE.,

001030
001032

000000

SLOCOO:
SLOCO1:

001034
001036
001040
001042
001044
001046
001050
001052

000000
000000

EXPDAT:
RECDAT:
COUNT:

WORD
.WORD
,WORD

ERRCNT:

_WORD

1STORAGE FOR ERROR COUNT

DISPLAY: WORD
SERFLG: .WORD

DDISP
O

$1STORAGE FOR DISPLAY
tERROR FLAG

001054

000000
000000
000000
000000
000000

DCOUNT:

001056
001060
001062
001064

O
O

s THESE LOCATIONS ARE USED IN MORE THMAN ONE TEST TO STORE WORNKING DATA,

FLAG:
177570
177570

.WORD
.WORD

SWR:

.WORD

LWORD

DSuWR

;STORES EXPECTED (GOOD) DATA FOR COMPARISONS
sSTORES RECIEVED DATA TO BE VERIFIED
tERROR INDICATOR FOR FLOATING POINT TESTS

1USED TO STORE “FLAG" CONDITIONS

$STORAGE FOR SMITCH RESISTER ADDRESS

s THESE LOCATIONS ARE USED BY MORE

ALLCTR:

LOOPIN:
SAVSP1:
SAVSP2:

. WORD

WORD

.WORD
,WORD
.WORD

REGISYTER ADDRESS

THAN ONE TEST AS LOOP COUNTERS

0
¢
0

1STORAGE FOR UNEXPECTED
H
)

TRAP DATA

623
624
>S5
626
627
628
629
630
631

632
633
o34
635
636
637
638
639
640

MACY11

20-MAR 84

001066
001070
001072
001074
001076
001100
001110

001120
001120

30A(1052)

11:19

J0 MAR 84
A*figéx
APT M

SAVSUP:
SAVUSE:
SAVMRO:
SAVMR1:
SAVMR2:
FLOAT:

FLO:

g?ggléfi

_WORD
.WORD
.WORD
,WORD
. WORD
.BLKW
.BLKW

s H1LETHIS IS IT.

000002

TSTLOC:

.BLKW

3EQ 0019

LHOOCOOO

GLOBAL ARE AS
KDJ11A
. MAC

tUSED
+USED
1USED
tUSED
tUSED

tUSED

TO
TO
TO
TO
1O

STORE
STORE
STORE
STORE
STORE

TO STORE

SUPERVISOR
USER STACK
MMU STATUS
MMU STATUS
MMU STATUS

STACK VALUE
VALUE
REGISTER O DATA
REGISTER 1 DATA
REGISTER 2 DATA

VALUES FOR MMU

TESTS

1tUSED TO STORE VALUES FOR MMU TESTS

THE

PROGRAM

TEST

LOCATION

AND

WRITE

BUFFER!It110000000008gs

GLOBA
KDJ11

ARE

.MA

20 "HRR AT
S 20 MAR PR11580, BAGE
A

o041

.SBTTL

648
649
650

662
663
664
665
666
667
668
669
670
671

672

673

674

675

GLOBAL

S5€Q 0016

TEXT SECTION

;HE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

MESSAGES,

AND ASCII

THAN ONE

TEST,

INFORMATION

THAT

ARE

USED

642
643
644
645
646
e47

651
052
653
654
655
056
€57
658
659
660
661

; FORMAT STATEMENTS USED IN PRINT CALLS
001124

001132
001140
001146
001154
001162
001166
001174
001202
001210
001213
001220
001226
001234
001242
001246
001254

001262

001270
001276
001277
001304

005015
044502
020075
020122

052111
042524
005015
020105

046505

051117
015
051117
047111
020125

047111
005015
020122
0059015
020122
000
015
000
001306

042523
020124
020061
034061
051440
000115
040503
054523
042440
000
042412
042040
020107
042524
000107
051105
020043
051105
041520

020012

020040

020124

OPMSG2:

044103
052123
051122

ERRM
: SG
.ASCI
:
Z

<CR><LF>/CACHE SYSTEM ERROR/

051122
051125
046515
052123

MMUERR:

.ASCIZ

<CR><LF>/ERROR DURING MMU TESTING/

047522
000075
047522
036440

ERR1:

.ASCIZ

<CR><LF>/ERROR

ERRZ:

ASCIZ

<CR><LF>/ERROR PC

$CRLF:

_ASCIZ

<CR><LF>/

020070
047506
041040
051531

.ASCIZ

.EVEN

<CR><LF>/SET BIT 8

1 FOR

18 BIT

SYSTEM/

GLOBA:

AREAS

KDJL11A.MAC

MACY1l

20-MAR 84

30A(1052)
11:19

.0 MAR-84

11:31

076

.SBTTL

678

see

679

680
681
682

PAGE

GLOBAL ERROR REPORT

THE GLOBAL

USED BY

ERROR REPORT

THAN

SEQ 0017

SECTION

TEST

SECTION

SECTION CONTAINS MESSAGE

10 OUTPUT

ADDITIONAL ERROR

PRINTING

AREAS

INFORMATION.

GLOBA( ARE 1Y
KDJ11A, MAC

71i

712
713

714

11:19

.SBTTL

721

722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738

GLOBAL

SEQ 0018

SUBROUTINES SECTION

HEX2

;

THE GLOBAL SUBROUTINES SECTION CONTAINS

THAT

ARE

USED

IN MORE

THAN ONE

TEST.

THE SUBROUTINES

iMMU GLOBAL SUBROUTINES
;ROUTINE TO INITIALIZE MEMORY MANAGEMENT

001306
001310
001312
001314

001320
001324
001330

001334
001340
001344
001350
001354
001360
001364
001370
001376
001400
001402
001404

010046
010146
010246
012700
004767
00476/
004767
012700
004767
004767
004767
004767
004767
004767
012737
012602
012601
012600
000207

MMU :

MOV
MOV
MOV
MOV

177600
000062
000100
000074

JSR
JSR
JSR
MOV
JSR
JSR
JSR
JSR
JSR
JSR
MOV
MOV
MOV
MOV
RTS

172200

000042
000060
000054
000026
000044
000040
000027

715

716
717
718
719
720

20 MAR-84
11:31
PAGE 18
GLOBAL SUBROUTINES SECTION

172516

RO. -(SP)
R1,-(SP)
R2, -(SP)
#177600,R0

PC,PDR
PC,PAR
PC,PAR
@172200,R0
PC,POR
PC.PAR
PC,PAR
PC,.PDR
PC.PAR
PC,PAR
427,80172516
(SP)s ,R2
(SP)Y+ ,R1
(SP})+,RO

: SAVE CONTENTS OF REGISTERS

{INIT

:INIT
;s INIT

Oty

700
701
702
703
704
705
706
707
708
709
710

30A(1052)

AND D USER PDR'S
USER PAR'S
USER PAR'S

AND
s INIT
SUP
sINIT
SUP
s INITY
AND
s INIT
KER
s INIT
s INIT D KER
sINIT MMR3
OOt

683
684
685
686
€87
688
689
690
€91
692
693
094
695
696
697
698
699

MACY11

20 MAR 84

SUP POR

PAR'S
PAR'S

D KER PDR'S
PAR'S

PAR’S

:RESTORE REGISTERS

:RETURN

:ROUTINE TO INITIALIZE PDR’'S
001406
001410

001414
001420
001424
001426

005002
012720

062702
022702
001371
000207

077406
000001
000020

POR:

CLR

PDR1:

MOV
ADD

cHe

BNE

RTS
;ROUTINE

001430
001432
001434
001440
001444
001446
001452

005001
010120
062701
022701
001372
012720
000207

PAR:

000200
001600

177600

PAR]1:

477406 ,.(RO)21,R2

#16. ,.R2

;ARE

sBRANCH IF NOT
:RETURN

PDR1

ADD

4200.R1

cMP

BNE

MOV
RTS

DONE?

INITIALIZE PAR'S

CLR

MOV

s INIT CNTR
:INIT PDR
: INCREMENT CNTR

R1,(RO).

;SETUP TO INIT PAR
;INIT PAR
sGET READY FOR NEXT PAR

21600,R1

;REACHED A PAR?

9177600,(RO).
PC

:INIT PAR7?
sRETURN

PAR1

;BRANCH IF NOT

:TIME OUT ROUTINE
001454
001456

005205
000002

ADDTRP: INC
RTI

;s INCREMENT

;RETURN

TIME OUT FLAG

GLOBAL

ARE AS
KDJ11A .MAC

MACY1l

30 A(1052)
20-MAR 84 11

:19

20 MAR

739
740

741
742
743
744
745
746
747
748
749
750
751
752
753
754

755

756
757
758
759
760
761
762
763
764

001460
001466
001470
001472
001474
001476
001500
001504
001510
001514
001516
001520
001524
001530
001534
001340
001542
001546
001554
001562
001570
001574
001600
001602

026727
001403
104000
000001
001213
010046

013700
072027
020027
001001
000411
013700
072027
072027
020027
001002
005066
013767
013767
013767

005037

005067
012600
000002

177356

000001

11:3

PAGE

;MMU

TRAP

ROUTINE

MMUTRP: CMP

1$:

177776
177764
000002

8EQ
ERROR
. WORD
. WORD
MOV

MOV

ASH
cMP

177776
000002
177764
000002

000004
177572
177574
177576
177572
177242

NOTOK
:
oK1
:

177316
177312
177306

GLOBAL éuénOUTINES SECTION

BNE
BR

MOV
ASH
ASH

cMP
BNE
CLR

MOV

CLR
CLR

MOV
RTY

FLARG,
01

1
MMUERR
RO, (SP)
80177776
,R0O

5€Q 0019

sARE WE EXPECTING AN ABORT
:YES GO ON

sALL

ERRORS

TRAP

sUNIQUE ERROR NUMBER

;sADDRESS

TO EMT

OF ERROR MESSAGE

sSAVE CONTENTS OF REG O
iSAVE A COPY OF PSW

€ 14,R0O
RO, 82

;LOOK AT BITS<15:14>

NOTOK
ae17777
.,RO
6
22 ,R0

:YES CHANGE BITS TO 00
sSAVE A COPY OF PSW

£-14 RO

RO, &2
oK1
4(SP)
34177572 ,SAVMRO
84177574 ,SAVMR1
80177576 ,SAVMR2
80177572

FLAG

(SP).,RO

VECTOR

$WAS PS<15:14>=10

;NO GO ON

;LOOK AT BITS<13:12>

sWAS PS<13:12>=10

:NO GO ON

;CLEAR ILLEGAL MODE FFROM OLD PSW
sSAVE A COPY OF MMRO
sSAVE A COPY OF MMR1

sSAVE A COPY OF MMR2
;CLEAR ABORT BITS AND TURN MMU OFF
;CLEAR MMU ABORT FLAG
;:RESTORE ORIGINAL CONTENTS OF REG O

:RETURN

&bg??h.azéas Boqasal§43??gi852) 20 "Anéfafiflt1§8&R08?9§E§05ECTION
765
766

767
768
769
770

771

772

773

001604
001604
001612
001616

001624

001632

001640

012737
012706
012737

012737

000014
001000
022304

000030

021756

000034

000340

774
775
776
777
778
779
780
781
782
783
784

001646
001652
001660

005067
016767
105067

177134
016116
177166

001664
001670
001676
001704
001712
001720

013746
012737
012767
012767
022777
001012

000004
001724
177570
177570
177777

786
787

001722
001724

000403
012716

001732

012767
012767

000176
000174

785

788

789
790

;gé

001730

001732
001740

001746

000002

012637

177746

000004

000032

START:
.SBTTL

000004
177142
177136
177126

MOV

792
794
795

65%:

799

800
801
802

ggi
805
806
807
808
809

810

811
812
813
814
815
816
817
818
819
820

gg{;gG
4

001774
002002
002010
002014
002022
002026
002032
002034
002042
002044
002052
002054
002056
002060
002066

012767
012737
012737
005037
012767
104401

005737
001012
126727
001406
026727
001005
104406
000403
112767

001022

177052

022304
000340
177766
001460
001124

000020
000022

BR
MOV

654
#65%,(SP)

MOV
MOV

OSWREG, SWR
: sPOINT
@DISPREG,DISPLAY

;
67%:

TYPE

.SBTTL

176760

000001

176776

000176

000001

017666

TRAP CALLS

RTI

$1sAND

THE HARDWARE SWR IS NOT

: sBRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN
TO SOFTWARE

68%:
69%:

(SP)+ ,B0ERRVEC

$ARG1

@$SWREG, SWR

SuWR

$$SETMAIL
2$ARGL
CLR
$PASS
: sCLEAR PASS COUNT
BITB
QAPTSIZE, $ENVM ;; TEST USER SIZE UNDER APT

176226

000042

;;TRAP VECTOR FOR

.MACRO

.ENDM

177035

TO FORCE MISS

MOV

$ARG1:

177030
000200

CACHE

;;LEVEL 7

4340 ,84TRAPVEC+2;LEVEL 7

BEQ

005067
132767
001403

0340,80EMTVEC+2

@$TRAP ,B0TRAPVEC

MOV

001752
001756
001764

tSET

663 :

796

797
798

014 ,80CCR

CLR
$PASS
;s ;CLEAR THE PASS COUNT
MOV
$ENDCT, SEOPCT
: sSETUP END OF -PROGRAM COUNTER
CLRB
$ERFLG
$ ;CLEAR THE ERROR FLAG
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND
OR IT IS
+:EQUAL TO A ~-1”, SETUP FOR A SOFTWARE SWITCH REGISTE
R.
MOV
SO0ERRVEC, -(SP)
;;SAVE ERROR VECTOR
MOV
#64¢ ,80ERRVEC
3:SET UP ERROR VECTOR
MOV
#0SWR, SWR
$3SETUP FOR A HARDWARE SWICH REGISTER
MOV
@DDISP,DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
cMP
£-1,8SWR
: s TRY TO REFERENCE HARDWARE SWR
BNE
664
+ ;BRANCH IF NO TIMEQUT TRAP OCCURRED
64%:

177106
177102

5€0 0020

INITIALIZE THE COMMON TAGS
MOV
@STACK, SP
$:SETUP THE STACK POINTER
ss INITIALIZE A FEW VECTORS
MOV
#S$ERROR, BOEMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE

000036
016106

MOV

; ;RESTORE ERROR VECTOR

s YES,USE NON-APT SWITCH
: iNO,USE

APT

SWITCH REGISTER

$SSETMAIL

CLR
:381:]
BEQ

MOV

$PASS
QAPTSIZE, $ENVM
678

#4$SWREG, SWR

: ;CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
s sYES,USE NON-APT SWITCH

s sNO,USE APT SWITCH REGISTER

MOV
MOV
CLR
MOV
. OPMSG2

O$ERROR,®9I0TVEC
;sSET UP IOT VECTORS
#340,a0I0TVEC+2
;3370 GO TO ERROR ROUTINE
84177766
;CLEAR CPU ERROR REGISTER
HMMUTRP ,MMVEC
;OPERATOR MESSAGE 2

ST
BNE
cMPB
BEQ
cHpP
BNE
GTSWR
B8R
MOove

8042
68
$SENV, 21
683
SWR, #SWREG
694

GET VALUE FOR SOF TWARE SWITCH REGISTER

694$
91, SAUTOB

s ARE WE RUNNING UNDER XXDP/ACT?
: sBRANCH IF YES
1 sARE WE RUNNING UNDER APT?
; sBRANCH IF YES
3 s SOF TWARE SWITCH REG SELECTED?
i ;BRANCH IF NO
s :sGET SOFT-SWR SETTINGS

s iSET AUTO MODE

INDICATOR

GLOBAL ARt AS
KOJ11A MAC

821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839

840
841

84y
843
844
845
846

847
848
849
850
851
852
353
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876

002066
002072

MACY11l

30A(1052)

005067
012737

176712
000014

20 -MAR 84

11:19

20 MAR-84

1:31

GET VALUE FOR gSF?HARE SWITCH REGISTER

177746

RESTART:

.SBTTL

CLR
MOV

SEQ 0021

$TESTN
014 ,80CCR

MEMORY MANAGEMENT

sRESET

STESTM

TO ZERO

1SET CACHE TJ FORCE MISS
TESTS

$4040400004000804000

0000000008000000
005008
0000
008 400888
0000
884000
0000
008048
000

FO0ALLL80004800004000000004000

088000000800000000000804004080

BEGIN

MMU

00000840000b00008s

TESTING

§00000000000000
000
0080004
400
00000
000
000000080
000000000000
000
000000
000
0004
0
5488884080 0040480040480000 004000000008
0 00 0000000000000 000000000004000000
0044

002100

TSMMUL;

;;““.““‘0“‘0‘0“‘.‘.“““‘0t

;¢TEST

002100
002100
002104
002110
002114
002120
002124
002132
002134
002140
002144
002150
002154
002160
002164
002166
002170

002172

STATUS

“.“.“““““““‘t"‘t‘.“‘

TEST

Si0A4040AL00
0000000 00RR
000
8RR
040
AANSAS
040
LA0SARAANLER
000
LEEE

005267
005067
005037
005037
013746
012737
00500S
013701
013701
013701
013701
012637
020527
001403
104000
000002
001213

176700
175656
177572
001042
000004
001454

TST1:

INC
CLR
CLR
CLR

000004

177572
177574
177576
172516
000004
000000

MOV
MOV
CLR
MOV
MOV

804, -(SP)
SADDTRP, 294
RS
80177572.R1
80177574 ,R1

;s INCREMENT TEST NUMBER
;CLEAR CPU ERROR REGISTER
s TURN MMU OFF
sCLEAR MMU TRAP FLAG
:SAVE OLD VECTOR
;SETUP NEW VECTOR
:CLEAR FLAG
; TEST MMRO
;: TEST MMR1

MOV

88172516 ,R1

cHpP

RS, @0

MOV
MOV

BEQ
ERROR
. WORD

. WORD

002174

1$:

002174

TSMMU2
:

$TESTN
CPEREG
80177572
86FLAG

ae177576.,.R1

TEST MMR2

TEST MMR3

(SP)+,804

+RESTORE VECTOR

;NO, THEN BRANCH
sALL ERRORS TO TRAP TO EMT
;UNIQUE ERROR NUMBER

;DID WE TRAP

2
MMUERR
:YES,

VECTOR

;ADDRESS OF ERROR MESSAGE
TO ERROR

;;““‘A“““““““““““.t““A““

saTEST

002174
002174
002200
002204
002210
002214
002220
002224
002230
002236
002244
002252
002254
002260
002262
002266
002270
002274

ADDRESS

TEST

“““‘.“tt‘t“‘t““.‘

PARS,PDRS,

$50000800000000R00000000000000

005267
005067
005037
005037
013746
013746
013746
012737
012737
012737
005005
012700
005020
020027
001374
012700
005020

176604
175562
177572
001042
000244
000246
000004

000246

000002
001454

TST2:

172400

;: INCREMENT TEST NUMBER
;CLEAR CPU ERROR REGISTER

CLR
MOV

QOFLAG
80244, -(SP)

;:CLEAR MMU TRAP FLAG
$SAVE FP VECTOR

CcMP

MOV

&4177600,RO

MOV
CLR

BNE

177600
2%:

80177572

840246, -(5P)
8e4, -(SP)
2246 ,80244
22,80246
QADDTRP, 304
RS
#172200,R0
(RO
RO, 172400

CLR

1$:

REGS

$TESTN
CPEREG

MOV
MOV
MOV
MOV
MOV

172200

INC
CLR

CLR

000244
000246

AND

0000000008
0ttttn
20R00
ttttos
00000
sa

CLR

sMMU OFF

:SAVE TIME OUT VECTOR
;SETUP NEW FP VECTOR
H
;SETUP NEW TIME OUT VECTOR
;CLEAR TIMEOUT FLAG
iLOAD ALL PARS AND PDRS WITH ZERO
3
H

fRO)

919
920
921
922

923
924
925
926

927

928
929
930
931
932

002406
002412
002416
002420
002424
002430
002432
002434
002436

012704
012701
010102
072227
021427
001403
104000
000005

172200
000001

002440
002442
002444
002450
002452
002456
002460
002464
002470
002472
002474
002476

010224
005201
020427
001362
012704
010102
072227
021427
001403
104000
000006
001213

002500
002502
002504

010224
005201
02Ca27

000010
000000

RO ,4177700
23
0200

CLR
CLR
CLR
CLR

MOV

3$:

LOD
LDD
LOD
LDD
STD
STD
DIVD
STST

MOV

cMP
BEQ
ERROR
.WORD
.WORD
21s:

22§
:
44

172400

000010

64:

177700

(R0O),ACO
(RO),AC1
(RO),AC2
(RO),AC3
ACO,AC4
ACO,ACS
ACO,AC1
HFLO

oFLO,R4

(R4)+,04
21

3
MMUERR

4
MMUERR

S
MMUERR

MOV
INC

R2,(R4).
R1

cMp

R4,0172400

MOV
MOV
ASH

2177600,R4
R1,R2
€10,R2

BEQ
ERROR
.WORD
.WORD

INC

cMP

sLOAD

ACO

ACS5 WITH O

:LOAD FEC WITH 4 AND FEA WITH 23¢
.CHECK FEC FCR 4 AND FEA FOR 03

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

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

:CHECK

iWRITE

EACH PAR,

PDR

FOR

A UNIQUE NUMBER

THEN

010.R2
(R4), 00

ERROR
LMORD
.WORD

MOV

SEQ 0022

AND FP REGS

OFLOAT,RO

#172200,R4
#1.R1
R1,Re

cMpP

7%:

(RO).
(RO).
(RO).
(RO).

MOV
MOV
MOV

B8NE

177600

OF LOAT
RO

(R4a),03
22%

BEQ

PARS,PDRS,

cMP
BEQ
ERROR
.WORD
.WORD

ASH
cMP

001213

(R4), 00

6
MMUERR
R2,(R4).

R4,4177700

;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER

; ADDRESS OF ERROR MESSAGE
ws

002344

cMP
BNE
LDFPS

MOV

001100

001110
001110
000004

TEST

915
916
917
918

021427
001403
104000
000004
001213

000200
001100

PAGE 22

ADDRESS

903
904
905
906
S07
908
909
910
911
912
913
914

002372
002376
002400
002402
002404

170127

177700

11:31

901
902

012700
005020
003020
005020
005020
012700
172410
172510
172610
172710
174004
174005
174500
170337
012704
022427
001403
104000
000003
001213

020027
001374

892
893
894
895
896
897
898
899
900

002276
002302
002304
002310
002314
002316
002320
002322
002324
002330
002332
002334
002336
002340
002342
002344
002346
002352
002356
002362
002364
002366
002370

20 MAR 84

881
882
883
884
885
886
887
888
889
890
891

11:

879
880

30A(1052)

877

878

MACY11

20 MAR 84

®s

GLOBAL ARE AS
KDJ11A, MAC

$ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ARDDRESS OF ERROR MESSAGE

GLOBAL

AREAS
KDJ1.1A
MAC

933
934
935
936
937
938
939
940
941

942

943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959

960
961
9262
963
964
965
966
967
968
969

970

971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
9887
988

002510
002512
002516
002522
002524
002526
002530
002534
002540
002542
002544
002546
002550
002552
002554
002560

MACY11

20-MAR -84
001362
012704
012703

174014
172405
174013
012702
022327
001403
104000
000007
001213

002564
002566
002570
002572
002574
002600
002604
002606
002610
002612

005302
001370
012703
012713
172413
174005
172404
174013
012702
022327
001403
104000
000010
001213

002614
002616
002620
002624
002630
002632
002634
002640
002644
002646
002650
002652

005302
001370
012703
012713
172413
174004
012702
022427
001403
104000
000011
001213

002654
002656
002660
002664
002666
002672
002676
002700
002704
002706
002710
002712

005302
001370
012713
172413
012704
012702
174114
022427
001403
104000
000012
001213

002714
002716

005302
001370

30A(1052)

11:19

20-MAR -84
T2

11:31

PAGE 23

MOV
MOV

STD

000004
000000

8%:

001100
000006

000004
000000

10¢:

LDD
STD
MOV
cMP
BEQ
ERROR
.WORD

001100
000005

12%:

13s:
000001

000000

15¢%:

oFLO.R4
OF LOAT ,R3

ACO,.(Ra)

ACS,ACO
ACO,(R3)
@4 ,R2
(R3)+,00
93

. WORD

DEC
BNE
MOV
MOV
LOD
STD
LOD
STD
Ll

R2
8s
OFLOAT,R3
&6,(R3)
(R3),ACO
ACO,ACS
AC4,ACO
ACO,(R3)
44 ,R2

cMP
BEQ

(R3)+,#0
11¢$

10
MMUERR

DEC
BNE
MOV
MOV
LoD
STD

Re
10s

cMp

(R4)+,40

MOV

4FLOAT,R3

85,(R3)
(R3),AC0
ACO,AC4
24 ,R2

5€a 00z

sCHECK
:

AC5

FOR

ALL

ZEROES

THEN LOAD

H
H
:
:
:
sALL ERRORS TO TRAP TO EMT
;UNIQUE ERROR NUMBER

: ADDRESS OF ERROR MESSAGE

H
H
:
H
:

H
:CHECK AC4 FOR ALL ZEROES THEN LOAD A S
H

H
H

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

;
:
:
:
H
H

;:CHECK

ACO FOR

ALL

ZEROES

VECTOR

THEN LOAD

11
MMUERR

DEC
BNE

R2
128

H
H

LOD
MOV
MOV
STD

(R3),ACO
4FLO,R4
#4 ,R2
ACl,(Ra)

:
;CHECK AC1 FOR ALL ZEROES
H
:

B8EQ

15¢

cMpP

21,(R3)

(R4)+,00

VECTOR

:
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;sADDRESS OF ERROR MESSAGE

138

BEQ
ERROR
. WORD
.WORD

MOV

001110

7
MMUERR

ERROR
.WORD
. WORD

11¢:

ADDRESS TEST OF PARS,PDRS, AND FP REGS

BNE

001110
001100

iKe

THEN LOAD A 2

ERROR
. WORD
.WORD

12
MMUERR

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

DEC
BNE

R2
14¢

H
:

996
997
998
999

1000

1001
1002

1003
1004
1005
1006
1007

1008
1009
1010
1011
1012
1013
1014
1015
1016
101/
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044

002754
002 ’56
002760
002764
002766

005302

002772
002776
003000
003004
003006
003010
003012

003014
003016
003020
003024
003026

003032

001370
012713

172613
012704

012702

174314
022427
001403
104000
000014
001213
005302
001370
012713
172713
012704
170214
022714
001403
104000
000015

003034
003040
003042
003044
003046

001213

003050
003054
003060
003064
003066
003072
003074
003076
003100
00310¢c

170127
012704
012701
010102
072227
022402
001403
104000
000016
001213

003104
003106
003112
003114
003120
003122
003126
003130
003132

005201
020427
001364
012704
010102
072227
022402
001403
104000

000002
001110

000004

000000

16$:

178
000003

TEST

MOV

42,(R3)

LDD
MOV
MOV
STD

CHP
B8EQ
ERROR
. WORD
.WORD
DEC
BNE

MOV

MOV
MOV

18¢:

19¢:

STD
CcMpP
BEQ
ERROR
-WORD
. WORD

DEC
BNE

MOV

LOD
MOV
STFPS
cHp
8EQ
ERROR
. WORD
.WORD

001110

100204

000200
172200
000001
000010

172400

204
:

23%:

244:

177600
000010

25$:

ADDRESS

LDD

001110

000000

PAGE 2 4

LOFPS
MOV
MOV
MOV
ASH
cHp
BEQ
ERROR
. WORD
.WORD
INC

CcMP
BNE

MOV
MOV
ASH

cMP
BEQ
ERROR

PARS,PDRS,

AND FP

SEQ N0Oz4

REGS

(R3),AC1

#FL0,R4
24 ,R2
AC2,(R4)

1CHECK AC2 FOR ALL ZEROES THEN LOAD A 3
@

012713
172513
012704
012702
174214
022427
001403
104000
000013
001213

11:31

002720
002724
002726
002732
002736
002740
002744
002746
002750
002752

11 : 19

20 MAR-84

(R4)+,
20

20-MAR-84

30 A(1052)

17¢

989
990
991
992
993
994
995

MACY1l

iALL

ERRORS

TRAP

TO EMT

sUNIGQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

MMUERR

VECTOR

R2
16$
03,(R3)

(R3),AC2

4FLO,.R4
44 .R2
AC3,(R4)
(R4),
20

:CHECK AC3 FOR ALL ZEROES THEN LOAD A 4

14
MMUERR

:UNIGQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

:ALL ERRORS TO TRAP TO EMT VECTOR

R2
18
#4,(R3)

.
-

(R3),AC3

[

#FLO,.R4

(R4)

CHECK FPS FOR 100204

THEN LOAD IT WITH 200

2100204, (R4)

20$

:ALL ERRORS TO TRAP TO EMT VECTOR

15
MMUERR

:UNIQUE ERROR NUMBER

:ADDRESS OF

9200
4172200,R4
#1,R1
R1,R2
#10,R2

ERROR

MESSAGE

:CHECK PDR, PAR FOR UNIGUE NUMBERS

(R4)+ ,R2
243

;ALL ERRORS TO TRAP TQ EMT VECTOR

16
MMUERR

;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
-

GLOBAL AREAS
KDJ11A. MAC

R1
R4,4172400

238

#177600,R4
R1,R2
410,R2
(R4)+,R2
26$
;ALL ERRORS

TRAP

TO EMT

VECTOR

1070
1071
1072
1073
1074
1075
1076
1077

1078
1079
1080
1081
1082
1083
1084
1085

1086
1087
1088
1089
1090
1091
1092

1093
1094
1095
1096
1097
1098
1099
1100

000017
001213

003140
003142
003146
003150
003154
003160
003162
003164

003166
003172
003174
003176
003200

005201
020427
001364
012701
012704
174014
172405
174011
022127
001403
104000
000020
001213

003202
003206
003212
003214
003216
003220

012793
022127
001403
104000
000021
001213

003222
003224
003226
003232
003234
003236
003242
003244
003246
003250

005303
001370
012701

022127
001403
104000
000022
001213

000005

003252
003256
003262
003264
003266
003270

012703
022127
001403
104000
000023
001213

000003

003272
003274
003276
003302
003304
003306
003310

005303
001370
022427
001403
104000
000024
001213

003312
003316
003322
003324
003326
003330

012703
022427
001403
104000
000025
001213

172404
174011

177700

26$:

001100
001110

000006

000003
000000

29$:
001100

TEST

.WORD
.WORD

17
MMUERR

sADDRESS OF

INC
cMp

R1
R4,4177700

25
4FLOAT ,R1
OFLO,R4
ACO,(R4)
ACS5,ACO
ACO,(R1)

BEQ
ERROR
.WORD
.WORD

27s

MMUERR

MOV

03 ,R3

000001

33s:
34

(R1)+,46

cMP
8EQ
ERROR
.WORD
.WORD

21
MMUERR

DEC
BNE

R3
28

LDD
STD
cMP
BEQ
ERROR
. WORD
. WORD
308
31s:

OF PARS,PDRS,

BNE
MOV
MOV
STD
LoD
STD

MOV

32%:

000003
000000

ADDRESS

CcMpP

evs:
28%:

PAGE 25

MOV

cHP
BEQ
ERROR
. WORD
. WORD
DEC
BNE
Cmp
BEQ
ERROR
. WORD
.WORD
MOV
cMP
BEQ
ERROR
. WORD
. WORD

(R1)+,00
29¢

AND FP

SEQ 0025

REGS

;UNIQUE ERROR NUMBER

ERROR MESSAGE

:CHECK ACS FOR 06
@

003134
003136

11:31

11:19

20 MAR-84
T2

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

20 MAR-84

30A(1052)

1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055

MACY11

GLOBAL AREAS
KDJ11A
. MAC

;ALL ERRORS

TRAP

VECTOR

;ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
;ARDDRESS OF ERROR MESSAGE

4FLOAT ,R1

;CHECK AC4 FOR #S

22
MMUERR

sUNIQUE ERROR NUMBER

AC4,ACO
ACO,(R1)
(R1)+,45
30¢

TO EMT

;UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

;RLL ERRORS TO TRAP TO EMT VECTOR

; ADDRESS OF

ERROR MESSAGE

#3,R3

(R1)s,#0
328
23
MMUERR

R3
31
(RaY+,
M
33s
24
MMUERR
#3,R3
(R4)+,
450
354

25
MMUERR

;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE

:CHECK ACO FOR @1
;ALL ERRORS TO TRAP TO EMT VECTOR

:UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

;ALL ERRORS TO TRAP TO EMT VECTOR

iUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

GLOBAL

AREAS
KDJ11A.MAC

1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121

1122
1123
1124

1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150

1151
1152
1155
1154
1155
1156

MACY1l

20 MAR_84
T2

005303
001370

35%:

20-MAR

30 A(1052)
84 11:
1:19

003332
003334
003336
003342
003344
003350
003352
003354
003356

174111
022127
001403
104000
000026
001213

003360
003364
003370
003372
003374
003376

012703
022127
001403
104000
000027
001213

003400
003402
003404
003410
003412
003416
003420
003422
003424

005303
001370
012701
022127
001403
104000
000030
001213

000003

003426
003432
003436
003440
003442
003444

012703
022127
001403
104000
000031
001213

000003
000000

003446

003452
003456
003460
003464
003466
00347¢
003472

005303
001370
012701
174311
022127
001403
104000
000032
001213

003474
003500
003504
003504
0053510
025512

012703
022127
001423
104000
000033
001213

0033514
003516
003520
003524

005303
001370
020527
001403

003450

012701

174211

001100

DEC
BNE

cMP
BEG
ERROR
.WORD
.WORD
36$:
37s:

38¢:

001100

MOV

cMP
BEQ
ERROR
.WORD
.WORD
DEC
BNE
MOV
STOD
CcHP

BEQ

ERROR
. WORD

40$:

41s:

001100

000003

000000

(R1)+,02
36

26
MMUERR
#3,R3
(R1)+,40
384

27
MMUERR
R3
374
4FLOAT ,R1
AC2,(R1)

MOV

#3,R3

cHP
BEQ
ERROR
. WORD
. WORD
OEC
BNE

SEQ 002¢

:CHECK AC1 FOR #2
:

;ALL

ERRORS

TRAP

TO EMT

;UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

:ALL ERRORS TO TRAP TO EMT VECTOR

:UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

;CHECK AC2 FOR 43
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER

;ADDRESS OF

ERROR

MESSAGE

’

414

31
MMUERR
R3
40¢
SFLOAT ,R1
AC3,(R1)

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

:CHECK AC3 FOR 24

(R1)+,¢4

BEQ
ERROR
. WORD
.WORD

MMUERR

MOV

23,R3

BEQ
ERROR
.WORD
. WORD

33
MMUERR

;ADDRESS OF ERROR MESSAGE

DEC
BNE
CMP
8EQ

R3
43$
RS,#0
45%

:YES GO ON

cMp

VECTOR

(R1)+,03

. WORD

CcMP

424
43%:

R3
34
4FLOAT ,R1
AC1,(R1)

30
MMUERR

MOV
STD

000004

TgST OF PARS,PDRS, AND FP REGS

MOV
STD

000002

000003
000000

11:36
PA E_26
ADDRES

424

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

(R1)+,60

:ALL ERRORS TO TRAP TO EMT VECTOR
:UNIQUE ERROR NUMBER

:IS TIME OUT FLAG O

GLOBAL AREAS

KDJ11A.MAC

MACY11

20-MAR 84

1157
1158
1159
1160
1161
1162
:{22

003526
003530
003532

104000
000034
001213

003534
003540
003544

012637
012637
012637

1165

003550

1166

30A(1052)
11:19

000004
000246
000244

45%:

PAGE 27

ADDRESS

TEST

ERROR
.WORD
.WORD

34
MMUERR

MOV
MOV
MOV

(SP).,804
(SP).+,80246
(SP).,80244

OF PARS,PDRS,

5£Q NO27

AND FP REGS

$ALL ERRORS TO TRAP TO EMT
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iINO GO TO ERROR
JRESTORE TIME QUT VECTOR
tRESTORE FP VECTOR
]

VECTOR

130080000000000400800400000000000000000000

$oTEST

1162

003550
003550
003554
003560
003564
003570
003574
003600
003602
003606
003612
003616
003620
003624
003630
003632
003634
003636

005267
005037
005037
012703
012723
020327
001373
012703
012723
020327
001373
012703
022327
001403
104000
000035
001213

1188
1189
1190
1191

003640
003644
003646
003652

020327
001367
022327
001403

1193
%}3;

003656
003660

000036
001213

1196

003662

003654

003666
003670

000000006088800000080000

WRITE ALL PARS/PDRS WITH ONES

510000000000000800080000000000000000000800

1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
%igg

1197
1198

11:31

TSMMUS:

1167

1192

20 MAR 84

175230
177572
001042
172200
177777
172400

TST3:

14:

177600
177777

2%:

172200
177416

3s:

177700

172240

44 ;

177777

5%:

104000

020327

001367
022327

INC
CLR
CLR
MOV
MOV
cHP
BNE
MOV
MOV
cHpP
BNE
MOV
cre
8EQ
ERROR
.MWORD
.WORD

35
MMUERR

s INCREMENT TEST NUMBER
sMMU OFF
1CLEAR MMU ABORT FLAG
1LOAD ALL PARS AND PDRS WITH ONES
:
H
}
:
H
3
H
$CHECK SPDRS FOR ONES
:
H
tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
$ADDRESS OF ERROR MESSAGE

cHp
BNE
cHP
B8EQ

R3,0172240
33
(R3).,0177277
63

H
:
;CHECK
:

.MORD
.WORD

36
MMUERR

cHP

R3,0172300

ERROR

172300

177416

63:

7s:

1199
1200
1201
%ggg

003674
003676
003700
003702

001403
104000
000037
001213

1204
1205
1206
1207
1208
1209
%g%?

003704
003710
003712
003716
003720
003722
003724

020327
001367
022327
001403
104000
000040
001213

172340

8s:

177777

1212

003726

020327

172400

BNE
cHP

BEQ
ERROR
.WORD
.MORD

10¢:

THEN ZEROS

0000808000008000800000000

$TESTN
80177572
SOFLAG
#172200,R3
@177777,(R3).
R3,#172400
1
#177600,R3
8177777,(R3).
R3,0177700
24
#172200,R3
(R3).,0177416
a8

5%
(R3).,0177416
84

37
MMUERR

;ALL

SPARS FOR ONES

ERRORS

TRAP

TO EMT

sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

i
tCHECK KPDRS FOR ONES
:
tALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

cHP
BNE
cMP
BEQ
ERROR
.WORD
.WORD

40
MMUERR

$
i
sCHECK KPARS FOR ONES
i
$ALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
$ADDRESS OF ERROR MESSAGE

cHp

R3,0172400

R3,0172340
78
(R3).,0177777
10¢

VECTOR

wbg??h.agtflb 20"2 &léfisg?glgse) -0 HAR'g4 llzaélngfiELZSARS/PDRS WITH ONES THEN ZEROS

003776
004002
004004
004010
004014
004020
004022
004026
004032

.WORD

177640

12%:

177717

13%:

cMP
8NE
cHP
8EQ
ERROR
.WORD
.WORD

001213

004036
004040
004044
004050
004052
004054
004056

020327
001367
012703
012723
020327
001373
012703
012723
020327
001373
012703
022327
001403
104000
000043
001213

004060
0040€43
004066
004072
004076
004100
004102
004104

020327
001367
012703
022327
001403
104000
000044
001213

004106
004112

020327
001367

177700

14$:

cMP
BNE

172200

000000

172400

177600
000000
177700

MOV

15¢:

MOV
cHP
BNE
MOV

16¢%:

MOV

cHP
BNE
MOV
cHe
BEQ
ERROR
. WORD
. WORD

172200

000000

172400
177600

177700

004114

17s:

18%:

oy
o
BNE
MOV

19s¢:

cHP

8EQ
ERROR
.WORD
.WORD

20%:

cHP
BNE

1CHECK UPGRS FOR ONES

(R3).,0177416
12¢

'
i

$ALL

41
MMUERR

ERRORS

TRAP

IUNIQUE ERROR NUMBER
1tARDDRESS

R3,0177640
11¢
(R3).,0177777
144

ERROR

TO EMT

VECTOR

ML SSAGE

1CHECK UPARS FOR ONES
H

1ALL

42
MMUERR

ERRORS

TRAP

tUNIQUE ERROR NUMBER
1 ADDRESS

R3,0177700

TO EMT

VECTOR

ERROR MESSAGE

133

2172200,R3
00,(R3).
R3,0172400

;LOAD ALL

PARS

AND PDRS

WITH ZEROES

158

@177600,R3

@0,(R3).

R3,0177700
164
#172200,R3

;CHECK ALL PARS AND PDRS FOR ZEROES

(R3).,20
18

tALL

ERRORS

TRAP

TQ EMT

tUNIGQUE ERROR NUMBER
$ADDRESS OF ERROR MESSAGE

MMUERR

R3, 0172400
17%
9177600,R3

VECTOR

020327
001367
022327
001403
104000
000042

11%:

94
2177600,R3

003754
003760
003762
0035766
003770
003772
003774

BNE
MOV
cHP
BEG
ERROR

001367
012703
022327
001403
104000
000041
001213

(R3).,00
208

003782
003734
003740
003744
003746
003750
003752

“EQ 0GR

:ALL ERRORS TO TRAP TO EMT VECTOR

44
MMUERR

JUNIQUE ERROR NUMBER

:ADDRESS OF ERROR MESSAGE

R3,8177700
193

TSMMU4
;
;;.‘.00““““0“.tb‘““““.00.

soTEST

004114
004114
004120
004124
004130
004134
604140

...““0“.“““0“‘.‘..“‘0“

TEST FOR ADJACENT SHORTS

IN PARS/PDRS

33“.‘.‘.‘.‘..““t“‘.“““‘.“.‘..‘

005267
005037
005067
012700
012720
012720

174664
177572
174712
172200
052404
125012

TS7T4:

18:

.“0.‘.“".“......‘.“.“

INC

$TESTIN
av177572

CLR
CLR

FLAG

MOV

#52404,(R0O)
.
4125012,(RO).

MOV
MOV

#172200,R0

1 INCREMENT TEST NUMBER

iMMU OFF

1CLEAR MMU ABORT FLAG
;LOAD SPDRS WITH ALTERNATING PATTERN
H

Kb 1h.
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
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324

ARE
MA

004144
004150
004152
004156

004162

004166
004170
004174

004200

004204
004206
004212

004216
004222

004224
004230

004234

004240
004244
004246
004252
004256
004262

20 RA1B4 30118520 O MAR
B4 11:31 PAGE B9 nt SHORTS IN PARS/PDRS
020027

001871
012720
012720
020027
001371
012720
012720
020027
001371

012720

012720
020027
001371
012700
012720

012720
020027

001371
012720
012720
020027
001371

172240
125252
052525
172300

2%:

052404
125012
172340

3s:

125252
052525

177600

cMp

S$:

125252
052525
177700

6$:

004304
004310
004312
004314
004316

022327
001403
104000
000046
001213

125012

004320
004324

172240

004336
004340

020327
001361
022327
001403
104000
000047
001213

004342
004346
004350
004352
004354

022327
001403
104000
000050
001213

052525

004356
004362
004364
004370
004372

020327
001361
022327
001402
104000

172300

172200
052404

7%:

104000

000045

125252

052404

cMP
BNE
MOV

MOV

052404
125012
177640

001213

004326
004332
004334

MOV

172400

004264
004270
004274
004276
004300
004302

012703
022327
001403

cMP

BNE
MOV
MOV
cHe
BNE
MOV

8s:

9¢:

108

11%:

12¢:

138

BNE
MOV

MOV
MOV

cHe
BNE

MOV

RO, 0172240
1
2125252,(RO).
452525,(R0O)
.
RO, 0172300
28
952404,(RO)

2125012,(RO).
§0.0172S40

$
2125252,(R0O)
.
52525, (RO)
RO, 8172400
41
#177600,R0O
952404,(RO)
.
@125012,(R0O).
§0.0177640
s
0125252, (R0O).

MOV
CHP
BNE

#52525,(R0)
.
RO, 0177700
6

MOV
cHP
BEQG
ERROR
.WORD
-WORD

€172200,R3
(R3).,052404
8s

cHP
B8EQ
ERROR
.WORD
. WORD

CHP

BNE

cMP
B8EQ
ERROR
.WORD
. WORD

45
MMUERR

46
MMUERR

R3,0172240
7%

(R3).,012525%2
11¢
a7
MMUERR

50
MMUERR

crp

R3,0172300

CMP
BEQ

ERROR

]

1LOAD
!

SPARS WITH ALTERNATING PATTERN

1LOAD KPDRS WITH ALTERNATING PATTERM
i

1LOAD KPARS

WITH ALTERNATING PATTERN

;LOAD UPDRS WITH ALTERNATING PATTERN
3
H
3

:LOAD UPARS WITH ALTERNATING PATTERN

sCHECK SPDRS
3

:ALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

(R3).,0125012

CHp
8EQ
ERROR
.WORD
.WORD
BNE

SEQ N029

(R3)+,085252%
123

108
(R3).,052404
144

:ALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NIUMBER

sADDRESS

ERROR MESSAGE

:CHECK SPARS

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

:ALL ERRORS TO TRAP TO EMT VECTOR
$'NIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE
'
!

1 CHECK KPDRS
:

sALL ERRORS TO TRAP TO EMT VECTOR

GLOBAL

AREAS
KDJ11A.MAC

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
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367

1368
1369
1370

1371
1372
1373
1374
1375
1376
1377
1378
1379
1380

MACY1]1l

20 MAR 84

30A(1052)

11:19

20 MAR 84

004374
004376

000051
001213

004400
004404
004406
004410
004412

022327
001403
104000
000052
001213

125012

004414

020327
001361
022327
001403
104000
000053
001213

172340

15%:

125252

16%:

004420
004422
004426
004430
004432
004434

14%:

PAGE

004452
004456
004460
004464
004470
004472
004474
004476

020327
001361
012703
022327
001403
104000
000055
001213

172400

18%:

177600
052404

.19%:

004500
004504
004506
004510
004512

022327
001403
104000

cMP

(R3).,2125012

000056
001213

004514
004520
004522
0043526
004530
004532
004534

020327
001361
022327
001403
104000
000057
001213

004536
004542
004544
004546
004550

022327
001403
104000
000060

001213

004552
004556

020327
001361

125252

22%:

177700

23$:

24 :

TRAP

TO EMT

:
:
;sCHECK KPARS
H

.WORD
.WORD

53
MMUERR

;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

cMP

(R3).,852525

183

sALL

ERRORS

TRAP

TO EMT

VECTOR

ERRORS

TRAP

TO EMT

VECTOR

:
;sALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER

VECTOR

sALL

54
MMUERR

;sUNIQUE ERROR NUMBER
s ADDRESS 0OF ERROR MESSAGE

ce
BNE

R3,2172400
16

:
H

cme

(R3).,052404

MOV

9177600 ,R3

208

: CHECY

UPDRS

. WORD

55
MMUERR

;ADDRESS OF ERROR MESSAGE

cHe
BEQ

(R3):,0125012
213

:
H

.WORD
. WORD

56
MMUERR

cMP

R3,0177640

BNE

sALL

TRAP

TO EMT

TRAP

TQ EMT VECTOR

8EQ

238

. WORD

;sCHECK UPARS

;ALL ERRORS

tUNIQUE ERROR NUMBER

. WORD

MMUERR

: ADDRESS OF ERROR MESSAGE

oy
BEQ
ERROR
. WORD
. WORD

(R3).+,052525
243

:
:
sALL ERRORS TO TRAP TQO EMT
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

cMP

BNE

MMUERR
R3,0177700

223

;REVERSE ALTERNATING PATTERN

VECTOR

(R3)+,0125252

ERRORS

sUNIQUE ERROR NUMBER
;sADDRESS OF ERROR MESSAGE

193

cMp

VECTOR

; ADDRESS COF ERROR MESSAGE

.WORD
.WORD

ERROR

052525

R3,€172340
13
(R3),,08125252
17

ERROR

21s:

ERRORS

tUNIQUE ERROR NUMBER

cMP
BNE
cMP
BEQ

BEQ
ERROR
.WORD

177640

5S¢

;ALL

MMUERR

ERROR

208 :

153

.WORD

8EQ

125012

SEQ

sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

ERROR

17s:

IN PARS/PDRS

51
MMUERR

.WORD

052525

SHORTS

.WORD
.WORD

ERROR

022327
001403
104000
000054
001213

TEST FOR ADJACENT

BEQ

004442
004444
004446
004450

004436

11:31

E 35

VECIOR

0030

GLOBAL ARE AS
KDJU11
. MAC
A

1383
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392

1393
1394

1395
1396
1397
1398
1399

1400
1401
1402
1403
1404
1405
1406

1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436

004560
004564
004570
004574
004600
004602
004606
004612
004616
004620
004624
004630
004634
004636
004642
004646

MACY11

20 MAR 84

012700
012720

012720
020027

30A(1052)

11:19

172200
125012
052404
172240

004660
004664
004670
004674
004676
004702
004706
004712

001371
012720
012729
020027
001371
012720
012720
020027
001371
012720
012720
020027
001371
012700
012720
012720
020027
001371
012720
012720
020027
001371

004714
004720
004724
004726
004730
004732

012703
022327
001403
104000
000061
001213

172200
125012

004734
004740
004742
004744
004746

022327
001403
104000
000062
001213

052404

004754
004756
004762
004764
004766
004770

004750

020327
001361
022327
001403
104000
000063
001213

172240

004772
004776
005000
005002
005004

001403
104000
000064
001213

005006

020327

004652
004654

022327

20 MAR 84
T4

25%:

052525
125252
172300

268
:

125012
052404

27%:

172340

052525
125252

288

172400

177600
125012
052404
177640
052525

125252
177700

PAGE 31
11:31
TEST FOR ADJACENT

MOV
MOV
MOV
cMP
BNE

MOV
MOV

CcHP
BNE

MOV
MOV

cHe
BNE
MOV

MOV

cMP
8NE
29%:

MOV
MOV
MOV

cHP

30¢:

31s:

BNE
MOV
MOV

052525

125252

172300

32s:

33s:
344

35%;

36%:

25
#52525,(R0O)+
2125252, (RO).

RO, ©172300
264

#125012,(RO).

952404,(R0O).
RO, 2172340
273
#52525,(R0O).
29125252, (RO)
RO, 0172400

284

2125252,(RO).

sLOAD SPARS WITH REVERSE

PATTERN

;LOAD KPDRS WITH REVERSE PATTERN

;LOAD KPARS WITH REVERSE PATTERN

sLOAD UPARS WITH REVERSE

PATTERN

30¢

(R3).,0125012
323

cHP
8EQ
ERROR
-WORD
- WORD

(R3)+,852404

cMP

. WORD
.WORD

CcMp

052404,(R0O)
.~
RO,0177640
29¢
952525,(R0O)
.

4172200,R3

BEQ
ERROR
.WORD
.WORD

sLOAD SPDRS WITH REVERSE PATTERN

:LOAD UPDRS WITH REVERSE PATTERN

#125012,(RO).

MOV

cMP
BNE

SEQ 0031

IN PARS/PDRS

#177600,R0

RO, 9177700

ERROR

SHORTS

0172200,R0
€125012,(R0O)»
952404, (R0O).
RO, 0172240

cMP
BNE
cHp
BEQ

MMUERR

; CHECK SPORS

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

{ALL ERRORS TO TRAP TO EMT VECTOR
JUNIQUE ERROR NUMBER

MMUERR

;ADDRESS OF

R3,2172240

31
(R3),,252525
35$

:CHECK SPARS
:ALL ERRORS TO TRAP TO EMT VECTOR
:UNIQUE ERROR NUMBER

MMUERR

:ADDRESS OF

(i 3).,4125252
36

8EQ
ERROR
.WORD
+WORD

MMUERR

cHP

R3,8172300

ERROR MESSAGE

;ALL

ERRORS

ERROR MESSAGE

TRAP

sUNIQUE ERROR NUMBER

s ADDRESS

TO EMT

ERROR MESSAGE

VECTOR

GLOBAL

AREAS

KDJ11A, MAC

1437
005012
1438
005014
1439
005020
1440
005022
1441
005024
005026
1442
1443
1444
005030
1445
005034
1446
005036
1447
005040
1448
005042
1449
1450
005044
1451
005050
1452
005052
1453
005056
1454
005060
1455
005062
005064
1456
1457
1458
005066
1459
005072
1460
005074
1461
005076
1462
205100
1463
1464
005102
1465
005106
1466
005110
1467
005114
1468
005120
1469
005122
1470
005124
1471
005126
1472
1473
005130
1474
005134
1475
005136
1476
005140
1477
005142
1478
1479
005144
1480
005150
1481
005152
1482
005156
1483
005160
1484
005162
1485
005164
1486
1487
005166
1488
005172
1489
005174
1490
005176
1491
005200
1492

MACY11l

30A( 1052)
20 MAR 84 11:1 9

001361
022327
001403
104000
000065
001213

125012

20 MAR_84
14

37¢:

022327
001403
104000
000066
001213

052404

020327
001361
022327
001403
104000
000067
001213

172340

052525

404
:

022327
001403

383

125252

41%;

104000

012703
022327

001403
104000
000071

172400

177600
125012

43s:

001213

022327
001403
104000
000072
001213

052404

020327
001361
022327
001403
104000
000073
001213

177640

022327
001403
104000
000074
001212

Y1305 1PRBR ABuacent SHORTS IN PARS/PDRS
B8NE
cMp
8EQ
ERROR
.WORD
.WORD

cMP

BEQ
ERROR
.WORD
. WORD

000070
001213
020327
001361

052525

125252

454
;
464
:

478

cMP
8NE
cMP
BEQ
ERROR
. WORD
. WORD

cMP
BEQ
ERROR
.WORD
.WORD
CcMP
BNE

MOV

cMP
8EQ
ERROR
. WORD
.WORD

cHP
8EQ
ERROR

344
(R3)+,0125012
28
65

MMUERR

(R3).+,052404
39¢
66

MMUERR

(R3)+,052525

MMUERR

+ALL

ERRORS

TRAP

tUNIQUE ERROR NUMBER

1 ADDRESS

ERROR

TO EMT

VECTOR

MESSAGE

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

s CHECK KPARS
H

;ALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER

:ADDRESS

ERROR

MESSAGE

(R3).,8125252

423

:ALL ERRORS TO TRAP TO EMT VECTOR

70
MMUERR

:ADDRESS OF

R3,0172400C
404
#177600,R3

: CHECK UPDRS

(R3)+,012501°2

444

71
MMUERR
(R3)+,0852404
454
72
MMUERR

cHP

R3,0177640
43¢
(R3).,052525

cHp
BEQ
ERROR
.WORD
.WORD

:CHECK KPDRS

R3,2172340

.WORD
.WORD

BNE
cMp
BEQ
ERROR
.WORD
.WORD

SEQ oCc 7y

47%

73
MMUERR

:UNIQUE ERROR NUMBER

ERROR MESSAGE

:ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER

:ADDRESS OF

ERROR MESSAGE

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

:CHECK UPARS

:ALL ERRORS TO TRAP TO EMT VECTOR

{UNIQUE ERROR NUMBER
.ADDRESS OF ERROR MESSAGE

(R3).+,4125252

484
74

MMUERR

;ALL

ERRORS

TRAP

TO EMT

{UNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

VECTOR

GLOBAL

ARE AS

KDJ11A, MAC

1493

1494

005202
005206

1496

005210

1495

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
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548

MACY1]

20 MAR 847
020327
001361

30A(1052)
11:19

20 MAR 84

11:31

177700

TEST

;

PAGE

cHP
BNE

FOR

ADJACENT

SHORTS

IN PARS/PDRS

R3,0177700
464

€0 0033

3
:

TSMMUS
;
HA “““..““"‘““.“..t““‘.

;#TEST

TEST

MMRO

‘.“‘.“00‘.““.“““..‘.

ABORT

‘t.“

BITS

H g““‘.“““““““““““
“‘0“

005210
005210
005214
005222
005226
005232
005236
005242
005244
005246
005250

104000
000075
001213

005252
005256
005262
005266
005272
005274
005276
005300

005037
013700
042700
020027
001403
104000
000076
001213

005302
005310
005314
005320
005324
005326
005330
005332

012737
013700
042700
020027
001403
104000
000077
001213

120000
177572
000176
120000

005334

012737
013700
042700
020027
001403
104000
000100
001213

040000

005342
005346
005352
005356
005360
005362
005364
005366

005267
012737
005067
013700
042700
020027
001403

173570
160000
173614
177572
000176
160000

“““.“““““..““0“‘.‘

1STS:

177572

INC
MOV
CLR
MOV
8IC
gnz
E

$TESTN
4160000,84177572
FLAG
8SRO, RO
2176 ,RO
RO, 160000
1%

.WMORD

75
MMUERR

CLR

80177572

ERROR
.MORD

177572

1$:

177572
000176
000000

177572

MOV
BIC
gg:

2%:

005366

’

;LOAD MMRO=0

:SAVE SRO IN RO
:CLEAR UNDEFINED BITS FROM SRO
;CHECK MMRO
;

MOV
MOV
BIC
ggs

9120000,80177572
2OSRO, RO
©176,RO
53.0120000

;LOAD MMRO<15:13>2101
:SAVE SRO IN RO
;CLEAR UNDEFINED BITS FROM SRO.
:CHECK MMRO

MOV

MOV
8IC
cHe
BEQ
ERROR

.MORD
"WORD

;ADDRESS OF ERROR MESSAGE

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

JWORD

3$:

:UNIQUE ERROR NUMBER

MMUERR

1ADDRESS OF ERROR MESSAGE

040000,80177572

;LOAD MMRO<15:13>+010

80SRO, RO
€176 .RO
RO, 240000
a8

100
MMUERR

{SAVE SRO IN RO
;CLEAR UNDEF INED BITS FROM SRO.
;CHECK MMRO
:
;ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

H ;.t““““““.““".“.““...“‘“.“.“‘.

TEST MMR3 BITS 5-0

““‘.“.“‘.““‘

H ;““““.““‘0“““.‘.“““‘““0“‘

005267
005037
005067
012737

1576

173412

177572

173440
000077

0“““‘.““““.“‘“.

INC

CLR

172516

CLR
MOV

STESTN

3177572

FLAG
077.80172516

VECTOR

:ALL ERRORS TO TRAP TO EMT VECTOR

TSMMUG
:

;sTEST 6
005366
005366
005372
005376
005402

VECTOR

76
MMUERR

LMORD

177572

;ALL ERRORS TO TRAP TO EMT
;UNIQUE ERROR NUMBER

ERROR
L.MORD
.WORD

ERROR

177572
000176
040000

84SRO, RO
2176 .RO
go.eo

; INCREMENT TEST NUMBER
;LOAD MMRO<15:13>+111
iCLEAR MMU ABORT FLAG
;SAVE SRO IN RO
:CLEAR UNDEFINED BITS FROM SRO
;CHECK MMRO
3

: INCREMENT

iMMU OFF

TEST NUMBER

1CLEAR MMU ABORT FLAG
;LOAD MMR3¢S5:0>s°7

GLOBAL

AREAS

KDJ11A . MAC

1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574

1575

1576
1577
1578

1579

1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604

005410
005416
005420
005422
005424
005426
005432
005440
005442
005444
005446
005450
005456
005464
005466
005470
005472
005474
005502
005510
005512
005514
005516
005520

MACY11

20-MAR-84

023727
001403
104000
000101
001213
005037
023727
001403
104000
000102
001213
012737
023727
001403
104000
000103
001213
012737
023727
001403
104000
000104
001213

30A(1052)
11:19

172516

172516
172516

000052
172516

000025
172516

20 MAR-84
Té

11:31

000077

000000

172516
000052

172516
000025

1$:

2%:

3%:

TEST

PAGE

Mp
B8EQ
ERROR
.WORD
. WORD
CLR
cMP
BEQ
ERROR
.WORD
. WORD
MOV
cMe
BEQ
ERROR
.WORD
. WORD
MOV
cMp
8EQ
ERROR
.WORD
.WORD

MMR3 BITS

SEQ 0034

5 O

@e172516,077
14
101
MMUERR
80172516

86172516, 00

102
MMUERR
#52,80172516
80172516, 452
3s
103
MMUERR
425,80172516
890172516, 425
4as
104
MMUERR

sCHECK MMR3
'
tALL ERRORS TO TRAP TO €MT VECTOR
;sUNJQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
:LOAD MMR3<¢5:0>=0
s CHECIKC MMR3
H
tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:LOAD MMR3<¢S5:0>252
;CHECK MMR3
;
:ALL ERRORS TO TRAP TQ EMT VECTOR
sUNIGUE ERRUR NUMBER
;ADDRESS OF ERROR MESSAGE
:LOAD MMR3¢5.0>=25
s CHECK MMR3
:
$sALL ERRORS TC TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

005520

TSMM6A;

005520

saTEST 7
TEST MFPI (MOVE FROM PREVIOUS INST SPACE)
3800580080004 40400000 000000440080 0000 0004080008080 80880000008004%
T1S877:

Pi00504480 4000040040000 00 0800040000800 00000000080000

00088800000040

005520

005267

173260

005524
005530
005534
005542
005546
005552
005560
005564
005570
005576
005602
005610
005614
005620
005626
005634
005640
005644
005646
005654
005656
005660
005662

005037
005037
012737
012706
010637
012737
012706
010637
012737
004767
012737
013746
012746
012737
012767
012703
005237
006523
022737
001403
104000
000105
001213

177572
001042
140000
001000
001070
040000
001000
001066
030000
173504
000027
000234
177777
135072
077400
000244
177572

005664

005037

177572

030010

INC

177776
177776

177776

172516
000244
171764

177776

14:

$TESTN

CLR
CLR
MOV
MOV
MOV
MOV
MOV
MoV
MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
INC
MFPI
CHP
BEQ
ERROR
.WORD
. WORD

105
MMUERR

CLR

ael177572

80177572
SOFLAG
#140000,80177776
4ST1BOT, SP
R6, 80SAVUSE
#40000,84177776
251807, SP
R6 , BASAVSLP
430000,80177776
PC MU
927,80172516
80244, -(SP)
0177777, -(SP)
2135072,80244
477400, UDPDRO
9244 ,R3
80177572
(R3).
230010,80177776
1

; INCREMENT

TEST NUMBER

sMMU OFF
:CLEAR MMU ABORT FLAG
sPOINT TO USER SPACE
:INIT THE USER STACK POINTER
; SAVE USER SP
:POINT TO SUPERVISOR SPACE
:INIT THE SUPERVISOR STACK POINTER
:SAVE SUPERVISOR SP
;SETUP PSUW
sINIT MU
iSETUP MMR3
:SAVE DATA AT TEST LOCATION
;PUT KNOWN DATA ON TOP OF STACK
sSETUP DATA AT TEST LOCATION
1SETUP UDPDRO TO ABORT
{SETUP POINTER TO TEST LOCATION
s TURN MMU ON
: TEST INSTRUCTION
+IS PSW CORRECT
. ES GO ON
$ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADORESS OF ERROR MESSAGE
sNO GO TO ERROR
s TURN MMU OFF

GLUBAL AREAS
KDJ11A
. MAC

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
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660

005670
005676
005702
005704
005706
005710

MACY11l

20 MAR 84
012737
020637

001403
104000
000106

30A(1052)

11:19

140000
001070

20 MAR 84
17

177776

11:31

TEST

PAGE

MOV

005712
005720
005724
005726
005730
005732

012737
020637
001403
104000
000107
001213

040000
001066

005734
005742
005744
005746
005750

023727
001403
104000
000110
001213

000244

005752
005756
005760
005762
005764

020327
001403
104000
000111
001213

000246

005766
005772
005776
006000
006002
006004

005037
022627
001403
104000
000112
001213

177776
135072

006006

006012
006014
006016
006020

021627
001403
104000
000113
001213

177777

006022
006030
006036
006042
006046
006050
006056
006060
006062
006064

012737
012737
012701
005237
006511
022737
001403
104000
000114
001213

030017
173621
000244
177572

177776
000244

030011

177776

006066
006072
006100
006102
006104
006106

005037
023727
001403
104000
000115
001213

177776

100$:

2%:

177572
000244

173621

S$:

300
:

INST

5EQ 0035

SPACE)

106
MMUERR

tUNIQUE ERROR NUMBER
; ADDPESS OF ERROR MESSAGE

MOV

940000,80177776

cHP

R6, 80SAVUSE
100$

cMP
BEQ
ERROR
. WORD
.WORD

80244,0135072
2%

110
MMUERR

cMpP
B8EQ

R3,48246
3¢

.WORD
WORD

111
MMUERR

CLR

80177776

cHP
BEQ
ERROR
. WORD
.WORD

112
MMUERR

cHpP

(SP),e177777

(SP)., 0135072
44

BEQ
ERROR
. WORD
LHORD

113
MMUERR

MOV
MOV
MOV
INC
MFPI

#30017,80177776
#173621,80244
0244 ,R1
88177572
{(R1)

cMP
BEQ
ERROR
.WORD
.WORD

114
MMUERR

CLR
cHP

84177572
4244 ,4173621

BEQ
ERROR
.WORD
.WORD

3014

115
MMUERR

SPACE

iNO GO TO ERROR
;POINT

TO SUPERVISOR

SPACE

;IS SUPERVISOR SP CORRECT

200

107
MMUERR

TO USER

1 IS USER SP CORRECT
:YES GO ON
tALL ERRORS TO TRAP TO EMT VECTOR

R6,840SAVSUP

.WORD
.WORD

ERROR

3s:

FROM PREVIOUS

.WORD
.WORD

BEQ

200$:

(MOVE

sPOINT

ERROR

135072

€140000,84177776

cMP
BEQ
ERROR

001213

MFPI

$YES GO ON

;ALL

ERRORS

TRAP

TO EMT

VECTOR

+IS TEST DATA Ok
$YES GO ON
iALL ERRORS TO TRAP TO EMT
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

VECTOR

sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR

iNO GO

TO ERROR

+IS R3 CORRECT
$YES GO ON
;ALL ERRORS

TRAP

TO EMT

VECTOR

sUNIGUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
:SET PSW TO KERNEL MODE
;IS KERNEL STACK CORRECT
:YES GO ON
sALL ERRORS TO TRAP T(O EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR

:1S STACK CORRECT

;:YES GO ON
;ALL ERRORS TO TRAP T0Q EMT
+sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

VECTOR

:NO GO TO ERROR

:SETUP PSW
i1SETUP TEST LOCATION
$SETUP R1
;TURN MMU ON
;TEST INSTRUCTION

;IS PSW CORRECT
$YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

i1NO GO TO ERROR

s TURN MMU OFF
3IS TEST LOCATION CORRECT

s YES GO ON
sALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

VECTOR

GLOBAL AREAS

KDJ11A . MAC

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
1639

1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703

1704
1705
1706
1707
1708
%;?g
1711
1712
1713
1714
171S
1716

MACY1l

20-MAR 84

30A(1052)
11:19

006110
006114
006116
006120
006122

020127
001403
104000
000116
001213

000244

006124
006130

005037
022627

177776
173621

006134
006136
006140
006142

001403
104000
000117
001213

006144

021627

006150
006152
006154
006156

001403
104000
000120
001213

006160
006162
006166
006170
006176
006200
006202
006204

005003
005237
006503
022737
001403
104000
000121
001213

006206
006212

005037
020327

302¢:

303s:

11:31

IK3
PAGE 36

TEST MFPI

3044

177572

000004

177572
000000

006226
006232
006234
006236
006240

022627
001403
104000
000123
001213

000000

006242
006246
006250
006252
006254

022627
001403
104000
000124
001213

177777

006256

012637

000244

177776

6$:

7%:

8s%:

9s:

(MOVE

FROM PREVIOUS

cHP
BEQ
ERROR
.WORD
.WORD

116
MMUERR

CLR
cMP

0177776
(SP)+, 2173621

R1,40244
3023

BEG
ERROR
.WORD
.WORD

117
HMMUERR

cMP

(SP), 2177777

BEQG
ERROR
.WORD
.WORD

001403
104000
000122
001213

006262

301$:

177777

006216
006220
006222
006224

006262

20 MAR 84

303

304

120
MMUERR

CLR
INC
MFPI
CMP
BEQ
ERROR
.WORD
.WORD

R3
30177572
R3
04,80177776
6%

CLR
cHpP
8EQ
ERROR
.WORD
.WORD

80177572
R3,00

cHP
B8EQ
ERROR
.WORD
.WORD

(SP)+,20
83

121
MMUERR

122
MMUERR

123
MMUERR

cMP
BEQ
ERROR
.WORD
.WORD

124
MMUERR

MOV

(SP)s , 302448

(SP)+, 2177777
94

:NO GO

INST

5EQ 0036

SPACE)

TO ERROR
+IS Rl CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT
1UNIGQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
TO ERROR
;SET PSW TO KERNEL MODE
:IS STACK CORRECT

VECTOR

:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
;NO GO TO ERROR
: IS

STACK

CORRECT

$YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIGQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:SETUP SOURCE FOR NEXT TEST
:TURN MMU ON
i TEST INSTRUCTION
;1S PSW CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:TURN MMU OFF
:IS R3 CORRECT

:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
; IS STACK CORRECT
:YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
;IS STACK CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIGUE ERROR NUMBER
i ADDRESS OF ERRGR MESSAGE
:NO GO TO ERROR

;RESTORE

TEST LOCATION

TSMM6B:
PiNAAALALAANALL400A 0000080000 0408000 0000000000480 00000000080004¢
;+TEST 10
TEST MFPD (MOVE FROM PREVIOUS DATA SPACE)
i
L LL Y Y Y Y Y Y Y
T P
T
PO
S PP T
TST10:

GLOBAL AREAS
KDJU11A. MAC

1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1732
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772

006262
006266

MACY11

20-MAR 84

30A(10%2)

11:19

006272
006276
006304
00€310
006316
006322
006330
006334
006342
006346
006352
006360
006366
006372
006376
006400
006406
006410
006412
006414

005267
005037
005037
012737
010637
012737
010637
012737
004767
012737
013746
012746
012737
012767
012703
005237
106523
022737
001403
104000
000125
001213

006416
006422
006430
006434
006436
006440
006442

005037
012737
020637
001403
104000
000126
001213

177572
140000
001070

006444
006452
006456
006460
006462
006464

012737
020637
001403
104000
000127
001213

040000
001066

006466

000244

006500
006502

023727
001403
104000
000130
001213

006504
006510
006512
006514
006515

020327
001403
104000
000131
001213

000246

006520
006524
006530
006532
006534
006536

005037
022627
001403
104000
000132
001213

006474
006476

172516
177572
001042
140000
001070
040000
001066
030000
172752
000027
000244
177777
157002
077400
000244
177572
030010

20 MAR 84
T10

11:31

PAGE

TEST MFPD

INC
CLR
CLR

177776

MOV

MOV
MOV
MOV
MOV

177776
177776

JSR

172516

MOV
MOV
MOV
MOV
MOV
MOV

000244
171212

177776

157002

177776

157002

1$:

100$:

200$:

(MOVE FROM PREVIOUS DATA

$TESTN
86177572
80F LAG

2140000,80177776
R6, 80SAVUSE
#40000,80177776

R6,80SAVSUP
#30000,80177776

PC,MMU

INC

cMP
BEQ

930010,80177776
1

.WORD
.WORD

MMUERR

CLR

80177572

CMP
8EQ
ERROR
.WORD
.WORD

R6, 84SAVUSE

ERROR

177776

027,80172516
86244, (SP)
9177777, -(SP)
#157002,80244
€77400,UIPDRO
4244 ,R3
84177572

MFPD

177776

MOV

"
BEQG
ERROR
. WORD
. WORD
cHp
BEQ
ERROR
.WORD
.WORD

(R3).

125

#140000,34177776

1004

126

MMUERR
#40000,80177776

R6 ,80SAVSUP
200

127

MMUERR
80244 0157002

130

MMUERR

cHP
8EQ
ERROR
.WORD
.WORD

MMUERR

CLR
CcHP

80177776
(SP)+,2157002

BEQ
ERROR
.WORD
. WORD

R3,8246
3s

131

132

MMUERR

SEQ 0037

SPACE)

;s INCREMENT
iMMU OFF

TEST NUMBER

sCLEAR MMU ABORT FLAG
sPOINT TO USER SPACE
: SAVE USER SP
;:POINT TO SUPERVISOR

SPACE

:SAVE SUPERVISOR SP
;SETUP PSW
s INIT MU
;SETUP MMR3
:SAVE DATA AT TEST LOCATION

:PUT KNOWN DATA ON

TOP OF

STACK

:SETUP DATA AT TEST LOCATION
:SETUP UIPDRO TO ABORT
1SETUP POINTER TO TEST LOCATION
;s TURN MMU ON
s TEST INSTRUCTION
;IS PSW CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TD EMT VECTOR
:UNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
;TURN MMU OFF

;POINT TO USER SPACE
;IS USER SP CORRECT
:YES GO ON

;ALL ERRORS TO

TRAP

TO EMT

VECTOR

TO TRAP

TO EMT

VECTOR

;UNIGUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
:POINT TO SUPERVISOR SPACE
;IS SUPERVISOR SP CORRECT
:YES GO ON
;ALL ERRORS

;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
:IS TEST DATA 0K
;:YES GO ON

iALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:IS R3 CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
;SET PSW TO KERNEL MODE
+1S KERNEL STACK CORRECT
:YES GO ON
:ALL ERRORS

TRAP

TO EMT

tUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

VECTOR

AREAS

MAC

MACY11

20 MAR

30 A(1052)
84 1 1:19

20 MAR 84
T10

006540
006544
006546
006550
006552

021627
001403
104000
000133
001213

1777717

006554
006562
006570
006574
006600
006602
006610
006612
006614
006616

012737
012737
012701
005237
106511
022737
001403
104000
000134
001213

030017
103456
000244
177572

177776
000244

030011

177776

005037
023727
001403
104000
000135
001213

177572
000244

006642

020127
001403
104000
000136
001213

000244

005037

177776
103456

006656
006662
006666
006670
006672
006674

006676
006702
006704

022627
001403

Ss:

PAGE 38
11:31
TEST MFPD (MOVE FROM PREVIOUS DATA

CcMP
BEQ
ERROR
.WORD
.WORD

103456

301%:

CMP

430011,84177776

CLR
cMP
BEQ
ERROR
. WORD
.WORD

104000
000137
001213

177777

006706
006710

006712
006720
006726
006732
006736
006740
006746
006750
006752
006754

012737
012737
012701
005237
106541
022737
001403
104000
000141
001213

030017
113672
000246
177572

006756

005037

030011

177572

303s:

177776
000244

304

MMUERR

80177572
96244,0103456
301

135

MMUERR

136

MMUERR

CLR
cMP
BEQ

ae177776
(SP)+,21034a56
3034

cHP
8EQ
ERROR
.WORD
-WORD
MOV

MOV

MFPD

CcMP
BEQ
ERROR
.WORD
.WORD

400
:

134

.WORD
.WORD

MOV
INC

177776

3004

R1, 4244

ERROR
.WORD
.WORD

021627
001403
104000
000140
001213

(R1)

CcMP
BEQ

ERROR

302¢:

133

MMUERR

030017,a0177776
2103456 ,84244
0244 ,R1
30177572

INC
MFPD

300%:

(SP),a177777
5%

MOV
MOV
MOV

BEQ
ERROR
.WORD
. WORD

006620
006624
006632
006634
006636
006640
006646
006650
006652
006654

43
;

CLR

302¢

137

MMUERR

(SP), 8177777

304

140
MMUERR

SEQ 0038

SPACE)

:NO GO TO ERROR
:+ IS STACK CORRECT
;YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
;SETUP PSW

t1SETUP TEST LOCATION
:SETUP R1
s TURN MMU ON

s TEST

INSTRUCTION

;IS PSW CORRECT

:YES GO ON

;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

;:ADDRESS OF

:+NO GO TO ERROR

ERROR MESSAGE

s TURN MMU OFF

+IS TEST LOCATION CORRECT

sYES

GO ON

:ALL ERRORS TO TRAP

TO EMT

VECTOR

sALL. ERRORS

TO EMT

VECTOR

sUNIQUE ERROR NUMBER
;:ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
;IS R1 CORRECT
:YES GO ON
TO TRAP

sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
:SET PSW TO KERNEL MODE
:IS STACK CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
1S STACK CORRECT
sYES GO ON

sALL ERRORS TO TRAP TQ EMT VECTOR
sUNIQUE ERROR NUMBER

; ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
#30017,84177776
;SETUP PSW
#113672,3%244
sSETUP TEST LOCATION
9246 ,R1
sSETUP R}

80177572
-(R1)
230011,84177776
400¢
141
MMUERR

86177572

s TURN MMU ON
s TEST INSTRUCTION

;IS PSW CORRECT

s YES GO ON
$ALL ERRORS

TRAP

TO EMT

sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
s TURN MMU OFF

VECTOR

GLOBAL

AREAS

KDJ11A . MAC

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
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
iggg
1884

MACY11l

20-MAR-84

30A(1052)
11:19

006762
006770
006772
006774
006776

023727
001403
104000
000142
001213

000244

00,8
007004
007006
007010
007012

020127
001403
104000
000143
001213

000244

007014
007020
007024
007026
007030
007032

005037
022627
001403
104000
000144
001213

177776
113672

007034
007040
007042
007044
007046

021627
001403
104000
000145
001213

177777

007050
007052
007056
007060
007066
007070
007072
007074

005003
005237
106503
022737
001403
104000
000146
001213

007076
007102
007106
007110
007112
007114

005037
020327
001403
104000
000147
001213

177572
000000

007116
007122
007124
007126
007130

022627
001403
104000
000150
001213

000000

007132
007136
007140
007142
007144

022627
001403
104000
00015)
001213

177777

007146

012637

000244

20 MAR 84

T10

113672

000004

TEST

PAGE

cMP
BEG
ERROR
.WORD
.WORD
401¢:

4025%:

403$ .

4044 :

177572

11:31

177776

6$:

74:

8s:

9s:

cMP
BEG
ERROR
. WORD
.WORD

MFPD

39
(MOVE

N3
FROM PREVIOUS

0244,0113672
401
142
MMUERR
R1l, 64244
4024

143
MMUERR

CLR
cMP
BEQ
ERROR
.WORD
.WORD

86177776
(SP)+, 2113672
403

cMP
BEQ
ERROR
.WORD
.WORD

(SP), 6177777
404

144
MMUERR

145
MMUERR

CLR
INC
MFPD
CMP
BEQ
ERROR
.WORD
.WORD

R3
84177572
R3
04,80177776
64

CLR
cHe
BEQ
ERROR
.WORD
.WORD

ae177572
R3, 60
74

cMP
BEQ
ERROR
. WORD
-WORD

;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:SETUP SOURCE FOR NEXT TEST
:TURN MMU ON
: TEST INSTRUCTION

:NO GO

147
MMUERR
¢NO GO

150
MMUERR

cMP
BEG
ERROR
.WORD
.WORD

151
MMUERR

MOV

(SP)+,a0244

(SP)e, 0177777
9

SEQ 0039

SPACE)

+IS TEST LOCATION CORRECT
i YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
:IS Rl CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
:SET PSW TO KERNEL MODE
: IS STACK CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
: IS STACK CORRECT
s YES GO ON

146
MMUERR

(SP).,#0
8s

DATA

:NO GO

iNO GO

;IS PSW CORRECT
;YES GO ON
;ALL ERRORS TO TRAP TQO EMT
+UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
TO ERROR
:TURN MMU OFF
: IS R3 CORRECT
;:YES GO ON
sALL ERRORS TO TRAP TO EMT
;UNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE
TO ERROR
:IS STACK CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
TO ERROR
:IS STACK CORRECT
i YES GO ON
:ALL ERRORS TO TRAP TQ EMT
sUNIGQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
TO ERROR
:RESTORE TEST LOCATION

VECTOR

GLOBAL ARE AS
KDJU11A.MAC
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916

1917
1918
1919

1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940

MACY11 30A(1052)
20-MAR -84 11:19

20 MAR 84

110

007152

11:31

TEST MFPD (MOVE FROM PREVIOUS DATA SPACE)

".‘...00“...‘0..“..‘...‘0

soTEST

007152
007152
007156
007162
007166
007174
007200
007206
007212
007220
007224
007232
007236
007242
007246
007254
007262
007266
007272

007274

007302
007304

007306

007310

007312
007316
007324

007330

007332

007334
007336

007340
007346
007352
007354

007356

007360

007362
007370
007372
007374
007376
067400
007404
007406
007410
007412

5€0 0040

TSMM6C;
11

TEST

MTPI

0...‘0...0.‘..‘00..00.‘..

(MOVE

TO PREVIOUS

;".‘..‘..‘.‘0.....“0.0‘.0

005267
005037
005037
012737
010637
012737
010637
012737
004767
012737
013746
012746
012746
012737
012767
012703
005237
006623
022737
001403
104000
000152
001213

171626
177572
001042
140000
001070

040000
001066
030000

172062

000027
000244

177777
120413
1772777
077400
000244
177572
030010

INC

CLR
CLR
MOV

MOV
MOV

177776

MOV

177776

MOV

JSR
MOV
MOV

172516

MOV

000244
170336

MOV

INC

MIPI

177776

cHP
BEQ
ERROR
. WORD
. WORD

005037
012737
020637
001403
104000
000153
001213

177572
140000
001070

012737
020637
001403
104000
000154
001213

040000
001066

023727
001403

000244

17777

177776

1¢:

100¢:

MOV

cHe

BEQ
ERROR
.WORD
. WORD
120413

200s:

000155
001213

001212

CLR
MOV

cHp
BEQ
ERROR
. WORD
.WORD

104000

020327
001403
104000
000156

..0.“0.“‘..0..‘...““.‘0‘.

1ST11:

177776

000246

2%:

.‘.00..00000

INSTRUCTION SPACE)

cHp
8€Q
ERROR
.WORD
.WORD
ce

BEQ
ERROR
. WORD
. WORD

‘....0..0

STESTN
80177572
SF LAG

s INCREMENT
1MV OFF

TEST NUMBER

1CLEAR MMU ABORT FLAG

€140000,80177776

R6 , 80SAVUSE
#40000,80177776
R6, 80SAVSUP
030000,80177776

1POINT

TO USER

tPOINT

TO SUPERVISOR SPACE

1 SAVE USER SP

SPACE

1SAVE SUPERVISOR SP
1SETUP PSW

PC. MU

s INIT L
1SETUP MMRS
$SAVE DATA AT TEST LOCATION
sPUT KNOWN DATA ON STACK

027,80172516
88244, (SP)
0177777, (SP)
0120413, (SP)
#177777,80244
#77400,UDPDRO
9244 ,R3
80177572

s1PUT
sPUT

TEST DATA ON STACK
KNOWN DATA AT TEST

LOCATION

$1SETUP UOPDRO TO ABORT
tSETUP POINTER TO TEST LOCATION
1TURN MMU ON
s TEST INSTRUCTION
1IS PSW CORRECT

(R3).
:30010.80177776
$

1YES GO ON

tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
MMUERR
s ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
80177572
sTURN MMU OFF
#140000,80177776
iPOINT TO USER SPACE
R6 , 80SAVUSE
1 IS USER SP CORRECT
100¢
tYES GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
153
sUNIQUE ERROR NUMBER
MMUERR
1ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
040000,80177776
tPOINT TO SUPERVISOR SPACE
R6 ,80SAVSUP
1 IS SUPERVISOR SP CORRECT
2004
1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
154
tUNIQUE ERROR NUMBER
MMUERR
1 ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
80244,8120413
sIS TEST LOCATION CORRECT
152

155

MMUERR

R3,8246
3

1YES GO ON

tALL ERRORS

TRAP

TQ EMT

VECTOR

1YES
$ALL

TRAP

TO EMT

VECTOR

tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
1+ IS R3 CORRECT

156

MMUERR

1NO GO

GO ON
ERRORS

tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

TO ERROR

%%xh.mé
>

1941

ARE

007414

20 “S&"L‘Yl(*gs
M,

005037

30A

007420
007424
007426
007430
007432

021627
001403
104000
000157
001213

177777

1948
1949

007434
007442

012737
012746

030017
145121

1950
1951
1952
1953
1954
1955
1956
1957

1958
1959
1960
1961
1962

1963
1964

1965

1966
1967
1968
1969
1970
1971
1972
1973
1974
1975

1976
1977
1978
1979
1980
1981
1982

1983
1984
1985
1986
1987
1988
1989
1990
1991

1992

1993
1994
1995
199

007446
007452
007456
007460
007466
007470
007472

012701
005237
006611
022737
001403
104000
000160

030011

001213

007476
007502
007510
007512
007514
007516

005037
0623727
001403
104000
000161
001213

177572
000284

007520
007524
007526
007530
007532

020127
001403
104000
000162
001213

000244

007534
007540
007544

005037
021627
001403

177776
177777

007550
007552

000163
001213

007554
007562
007566

012737
012746
012701

007576
007600
007606
007610
007612
007614

006641
022737
001403
104000
000164
001213

007616
007622
007630
007632
007634
007636

005037
023727
001403
104000
000165
001212

007572

MAR

l?f n : ;éblpn%IA}HOVE TO PREVIOUS INSTRUCTION SPACE)
3s:

177776

4$:

000244
177572

007474

007546

177776

1942
1943
1944
1945
1946

1947

300%:

301%:

302%:

104000

005237

MOV
MOV

030017,80177776
0145121, -(SP)

177776

304s$:

177572

030011

177572
000244

122347

400%:

160

CLR
cHe
B8EQ
ERROR
.WORD
.WORD

80177572
80244,0145121
301
161
MMUERR

cHP
BEQG
ERROR
.WORD
.WORD

162
MMUERR

CLR
cvp
BEQ

80177776
(SP),e172777
3044

. WORD
.WORD

163
MMUERR

MOV
MOV
MOV

630017,80177776
0122347, (SP)
9246 ,R1

INC

177776

9244 ,R1
80177572
(R1)
#30011,80177776
300
MMUERR

MTPI
coe
BEQ
ERROR
. WORD
LHORD
CLR
cHe

BEQ

ERROR
. WORD
.WORD

1SET

(SP),e177777
43

.WORD

ERROR

030017
122347
000246

80177776

157
MMUERR

MOV
INC
MTPI
cHP
BEQ
ERROR
.WORD

177776

145121

CLR

cHe
BEQ
ERROR
. WORD
.WORD

R1,0244
302

80177572

-(R1)
030011,80177776
4004

164
MMUERR
80177572
80244,0122347
401

PSW

€0 noal

TO KERNEL

MOOE

1I5 KERNEL STACK CORRECT
tYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE

tNO GO TO ERROR

$1SETUP PSW
1SETUP TEST DATA
1SETUP R1
s TURN MMU ON
s TEST INSTRUCTION
$IS PSW CORRFCT
1 YES GO ON
sALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
s TURN MMU OFF
1 IS TEST LOCATION CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

VECTOR

sNO GO TO ERROR

:IS R1 CORRECTY
sYES GO ON
$ALL ERRORS TO TRAP TQO EMT VECTOR
sUNIQUE ERROR NUMBER
1ADORESS OF ERROR MESSAGE
i1NO GO TO ERROR
sSET PSW TO KERNEL MODE
:IS STACK CORRECT
sYES GO ON
sALL

ERRORS

TRAP

TO EMT

sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
$SETUP PSW
1SETUP TEST DATA
1SETUP R1

VECTOR

s TURN MMU ON

s TEST INSTRUCTION
: IS PSW CORRECT
1YES GO ON
3ALL ERRORS TO TRAP TO EMT
;UNIQUE ERROR NUMBER
1tADDRESS OF ERROR MESSAGE
3sNO GO TO ERROR
s TURN MMU OFF
3 IS TEST LOCATION CORRECT
1 YES GO ON

165
TMMMUERR
tNO GO

VECTOR

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
stRODRESS OF ERROR MESSAGE
TO ERROR

ul OBAL

ARE AS

KDJL11A .MAC

1997
1998
1999
2000
2001

007640
007644
007646
007650
007652

2002
2003
007654
2004
007660
2005
007664
2006
007666
2007
007670
2008
007672
2009
2010
007674
2011
007676
ed12
007702
2013
007704
2014
007712
2015
007714
2016
007716
2017
007720
2018
2019
007722
2020
007726
2021
007732
2022
007734
2023
007736
2024
007740
2025
2026
007742
2027
007746
2028
007750
2029
007752
2030
007754
2031
2032
007756
2033
2034
2035
007762
2036
2037
2038
2039
007762
2040
007762
2041
007766
2042
007772
2043
007776
2044
010004
2045
010010
2046
010016
2047
010022
2048
010030
2049
010034
2050
010042
2051
010046
2052
010052

MACY11 30A(1052)
20 MAR 84 11:19

020127
001403
104000
000166
001213

000244

005037
021627
001403
104000
000167
001213

177776
177777

005046
005237
006603
022737
001403
104000
000170
001213

20 MAR 84
T11

11:31

4018

TEST

PAG:

cHe

B8EQ

ERROR
.MORD
.WORD

4028 ;

CLR

BEQ

ERROR

.WORD
.WORD

4044 ;

177572

000004

005037
020327
001403
104000
000171
001213

177572
000000

022627
001403
104000
000172
001213

177777

012637

000244

CLR
INC

MTPI
cHP

177776

6%:

MTPI

(MOVE

TO PREVIOUS

5EQ

INSTRUCTION

SPACE)

R1, 0244

+IS

CORRECT

166
MMUERR

tALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
s1ADDRESS OF ERROR MESSAGE

4028

1YES GO ON

tNO GO TO ERROR

80177776

1SET

(SP),01777717

PSW

TO KERNEL

:15 STACK CORRECT

404

MODE

s YES GO ON

tALL

167
MMUERR

an177572

EMT

: TEST INSTRUCTION
:IS PSW CORRECT

iNO GO

cHP
8EQ
ERROR
LMORD
.WORD

R3,00
63

cMP
BEQ
ERROR
LHORD

(SP)+, 0177777
7

171
MMUERR

.WORD

172
MMUERR

MOV

(SP)., 30244

s YES GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
TO ERROR
;TURN MMU OFF
:IS R3 CORRECT
1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
;ADDRESS OF FRROR MESSAGE

sNO GO TO ERROR

;IS STACK CORRECT
$YES GO ON
sALL ERRORS TO TRAP TO EMT
;UNIQUE ERROR NUMBER

s ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
sRESTORE

TEST

LOCATION

H ;‘.“.0‘.“0“00“‘0‘.t““.00“0.‘0‘

TEST

MTPD

(MOVE

.‘0.““.“.“‘0006“.‘0‘.‘

TQ PREVIOUS

H 30“““0“.‘.‘.“‘0‘““‘00"A‘.
0‘.“A

005267
005037
005037
012737
010637
012737
010637
012737
004767
012737
013746
012746
012746

171016
177572
001042
140000
001070
040000

001066

030000
171252
000027
000244
177777
100004

TST12:

177776
177776

177776
172516

DATA

SPACE)

“.t‘.“‘.“““‘.‘.‘.“‘

INC
CLR
CLR

MOV
MOV
MOV
MOV

MOV
JSR
MOV
MOV
MOV
MOV

VECTOR

:TURN MMU ON

R3
84,80177776

CLR

TRAP

i1SETUP STACK FOR NEXT TEST

80177572

170
MMUERR

:NO GO TO ERROR

(sP)

BEQ
ERROR
LWORD
.WORD

ERRORS

sUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

TSMM6D
:
soTEST

VECTOR

$TESTN
80177572
86FLAG

s INCREMENT TEST NUMBER
tMMU OFF
stCLEAR MMU ABORT FLAG

2140000,80177776
R6 , 3#SAVUSE
940000,80177776

;POINT TO USER SPACE
$ SAVE USER SP
tPOINT TO SUPERVISOR SPACE

930000,80177776
PC.MY
#27,80172516
80244, -(SP)
Q177777, -(SP)
£€100004, -(SP)

1SETUP PSW
s INIT MU
1SETUP MMRS
$SAVE DATA AT TEST LOCATION
sPUT KNOWN DATA ON STACK
sPUT TEST DATA ON STACK

R6,B0SAVSUP

1 SAVE

SUPERVISOR

SpP

VECTOR

0042

GLOBAL

AREAS

KDJ11A.MAC

2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065

2066
2067
2068
2069
2070
2071

2072
2073
2074
2075
2076
2077
2078
2079
2080
2081

2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102

2103

2104
2105
2106
2107
2108

MACY11

20 MAR 84

304(1052)
11:19

010056
010064
010072
010076
010102
010104
010112
010114
010116
010120

012737
012/67
012703
005237
106623
022737
001403
104000
000173
001213

010122
010126
010134
010140
010142
010144
010146

005037
012737
020637
001403
104000
000174
001213

177572
140000
001070

010150
010156
010162
010164
010166
010170

012737
020637
001403
104000
000175
001213

040000
001066

010172
010200
010202

023727
001403
104000

000244

010204
010206

20 MAR 84

T12

177777
077400
000244
177572

000244
167506

030010

177776

100004

020327
001403
104000
000177
001213

000246

010224
010230
010234
010236
010240
010242

005037
021627
001403
104000
000200
001213

177776
177777

010244
010252
010256
010262
010266

012737
012746
012701
005237
106611

030017
100737
000244
177572

177776

010276
010300
010302
010304

001403
104000
000201
001217

030011

177776

010270

(€22737

TEST

PAGE 4?

MOV
MOV
MOV
INC
MTPD
cMP
BEG
ERROR
.WORD
.WORD

1$:

100%:

200$:

000176
001213

010210
010214
010216
010220
010222

11:31

2$:

3%:

4s:

CLR
MOV
cMP
B8EQ
ERROR
.WORD
.WORD
MOV
cHP
B8EQ
ERROR
.WORD
.WORD

cMP
8EQ
ERROR

MTPD

t 4
(MOVE

TO PREVIOUS DATA

0177777,80244
277400,UIPDRO
9244 ,R3
80177572
(R3).
€30010,30177776
1

173
MMUERR
0177572
2140000,80177776
R6, BOSAVUSE
1004
174
MMUERR
940000,80177776
R6, BOSAVSLP
200¢

80244, 0100004
23
176
MMUERR

cHP
BEQ
ERROR
. WORD
.WORD

R3,4246
34

sNO GO

:NO GO

177
MMUERR

CLR
cre
BEQ
ERROR
.WORD
.WORD

88177776
(SP),e177717
44

MOV
MOV
MOV
INC
MTPD

#30017,80177776
€100737, -(SP)
0244 ,R1
avwr77572
(R1)

BEQ
ERROR
.WORD
.WORD

300%

sNO GO

200
MMUERR
tNO GO

201
MMUERR

+PUT KNOWN DATA AT TEST LOCATION
$SETUP UIPDRO TO ABORT
1SETUP POINTER TO TEST LOCATION
s TURN MMU ON
: _TEST INSTRUCTION
+ IS PSW CORRECT
s YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
TO ERROR
i TURN MMU OFF
sPOINT TO USER SPACE

3 IS USER SP CORRECT
s YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR

175
MMUERR

.WORD
.WORD

cMP

sNO GO

SPACE)

1POINT TO SUPERVISOR SPACE
+ IS SUPERVISOR SP CORRECT
sYES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
TO ERROR
+ IS TEST LOCATION CORRECT
$YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
TO ERROR
;IS R3 CORRECT
s YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
TO ERROR
:SET PSW TO KERNEL MODE
;1S KERNEL STACK CORRECT
: YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
TO ERROR
:SETUP PSuW
;SETUP TEST DATA
iSETUP R1
s TURN MMU ON
s TEST INSTRUCTION

s IS PSW CORRECT

tNO GO

s YES GO ON
$ALL ERRORS TO TRAP TO EMT VECTOR
$UNIGUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
TO ERROR

560 1047

GLOBAL ARE AS
KDJU11A, MAC

010306
2109
2110
010312
010320
2111
elle
010322
2113
010324
2114
010326
2115
2116
010330
2117
010334
2118
010336
2119
010340
2120
010342
2121
2122
010344
010350
2123
2124
010354
2125
0103:-6
2126
010360
2127
010362
2128
2129
010364
2130
010372
2131
010376
2132
010402
2133
010406
2134
010410
2135
010416
2136
010420
2137
010422
2138
010424
2139
2140
010426
2141
010432
2142
010440
2143
010442
2144
010444
2145
010446
2146
2147
010450
2148
010454
2149
010456
2150
010460
2151
010462
2152
2153
010464
2154
010470
2155
010474
2156
010476
2157
010500
2158
010502
2159
2160
010504
2161
010506
2162
010512
2163
010514
2164
010522

MACY11

20 MAR 84

30A(1052)

11:19

005037
023727
001403
104000
000202

177572
000244

020127
001403
104000
000203

000244

005037
021627
001403
104000
000204
001213

177776
177777

20 MAR 84
T12

100737

300$:

301%:

001213

005037

023727
001403
104000

030017
156711
000246
177572
030011

177572

000244

302¢:

177776

3048
:

005037
021627
001403
104000
000210
001213

177776
177777

005046
005237
106603
022737
001403

156711

400%
:

4018

402%:

404

177572
000004

BEQ
ERROR
.WORD
.WORD

304

MOV
MOV
MOV

cMP
BEQ
ERROR
.WORD
.WORD

000206

000244

ae177776

INC

177776

202
MMUERR

CLR

CLR
cMP
BEQ
ERROR
.WORD
.WORD
cMp

R1,0244
302

(SP),e177777

204
MMUERR

401

206
MMUERR
R1,0244

207
MMUERR

CLR
cHP
BEQ

80177776
(SP),e177777
404

402

ERROR
.WORD
LWORD

210
MMUERR

CLR
INC

-(SP)
80177572

"
BEQ

s TURN MMU OFF

+IS TEST LOCATION CORRECT
1YES GO ON
sALL ERRORS TO TRAP (0 EMT VECTOR
1tUNIQUE ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
;IS R1 CORRECT
:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR

tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
:tNO GO TO ERROR
$SET PSW TO KERNEL MODE
1 IS STACK CORRECT
1 YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

; ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR
#30017,80177776
sSETUP PSu
#156711, -(SP)
;SETUP TEST DATA
4246 ,R1
iSETUP R1
39177572
s TURN MMU ON
-(R1)
:TEST INSTRUCTION
©30011,80177776
1 IS PSW CORRECT
4004
sYES GO ON
:ALL CRRORS TO TRAP TO EMT VECTOR
205
sUNIQUE ERROR NUMBER
MMUERR
s ADDRESS OF ERROR MESSAGE
:iNO GO TO ERROR
80177572
:TURN MMU OFF
80244 ,0156711
+1IS TEST LOCATION CORRECT

BEQ
ERROR
JWORD
.WORD

MTPO

5€Q 0044

TO PREVIOUS DATA SPACE)

301

203
MMUERR

CcHP

Fqg

80177572
80244,0100737

cMP
BEQ
ERROR
.WORD
.WORD

MTPD

001213

020127
001403
104000
000207
001213

CLR
cHp

BEQ
ERROR
.WORD
.WORD

001213

012737
012746
012701
005237
106641
022737
001403
104000
000205
001213

11:31
PAGE 44
TEST MTPD (MOVE

04,830177776
S5

:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
+ IS R1 CORRECT
{YES GO ON
;ALL ERRORS

TRAP

TO EMT

tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
;SET PSW TO KERNEL MODE
s IS STACK CORRECT
:YES

GO ON

VECTOR

$ALL ERRORS TO TRAP TQ EMT VECTOR
1IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
$SETUP STACK FOR NEXT

s TURN MMU ON

i TEST INSTRUCTION
;IS PSW CORRECT

s YES

TEST

GLOBAL ARE A5
KDJU11A, MAC

2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2173
2179
2180
2181
2182
2183
2184

2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199

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

010524
010326
010530

MACY11

20 MAR 84

30A(1052)

11::19

20 MAR 84
T2

1 s rPA¥Bo
Pmove
* 1o PREVIOUS DATA SPACE)

104000
000211
001213

ERROR
.WORD
.WORD

010532
010536
010542
010544
010546
010550

005037
020327
001403
104000
000212
001213

010552
010556
010560
010562
010564

022627
001403
104000
000213
001213

1771777

010566

012637

000244

177572

5$:

000000

CLR

cMP
8EQ

ERROR
.WORD
.WORD

6S$:

7%:

sALL

211

80177572
R3,00
6%

1ADDRESS OF

213
MMUERR

MOV

(SP)+,80244

TRAP

EMT

VECTOR

ERROR MESSAGE

1 TURN MMU OFF
sIS R3 CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

MMUERR

(SP).
, 0177777

ERROR NUMBER

$NO GO TO ERROR

212

CMP
BEQ
ERROR
. WORD
.WORD

ERRORS

tUNIQUE

MMUERR

StQ 00as

VECTOR

sNO GO TO ERRCR
3IS STACK CORRECT
$YES GO ON
sALL ERRORS

TO TRAP TO EMT
sUNIQUE ERROR NUMBER
: RDDRESS OF ERROR MESSAGE

:NO GO TO ERROR

;RESTORE

VECTOR

TEST LOCATION

TSHMUT:

010572

;g““““““““““““““““.“

;TEST
010572
010572
010576
010602
010606
010612
010616
010622
010626
010632
010636
010644
010650
010656

‘.“"“t““‘.“t“‘.~“.t‘

TEST NON-RESIDENT ABORT

;;.““““.‘.““‘.“‘.““‘l‘.‘0

005267
005037
005067
013746
013746
005067
005067
005067
004767
012737

012702
012737
004767

170206
177572
170234
000214
000216
170250
170246
170244

170450

030000
000200
077400
000164

‘0&““‘.“““““““‘.‘0t.“

TST13:

INC

CLR
CLR

MOV
MOV

177776
177600

CLR
CLR
CLR
JSR
MOV
MOV
MOV
JSR

$TESTIN

80177572
FLAG
86214, -(5P)

80216, -(5P)

SAVMRO
SAVMR1
SAVMR2
PC.MU
430000,80177776

2200,R2
977400,84177600

PC,TS7

s INCREMENT TEST NUMBER

sMMU OFF
sCLEAR MMU ABORT FLAG
i SAVE DATA AT TEST LOCATIONS
:

;sCLEAR STATUS REGS SAVE AREAS
:
:
s INIT MMU
;SETUP PSW

:
;SETUP FOR

AN ABORT

sCAUSE AN ABORT TO OCCUR AND
:THEN CHECK IF ABORT FLAG REGISTERED
sTHIS EVENT AND CHECK IF STATUS REGS

:CONTAINED EXPECTED VALUES.
010662
010670

012737
004767

077404
000152

177600

MOV
JSR

077404 ,84177600
PC,T57

:IF NO ABORT OCCURRED THEN GO TO ERROR
;1OTHERWISE CONTINUE.

;SETUP FOR AN ABORT
;CAUSE AN ABORT TO OCCUR AND
s THEN CHECK IF ABORT FLAG REGISTERED

s THIS EVENT AND CHECK IF STATUS REGS
sCONTAINED EXPECTED VALUES.
s IF NO ABORT OCCURRED THEN GO TO ERROR

010674
010700
010704
010706
010714
010722

012701
004767
005003
012767
012737
012737

000220
170402
000001
000001
100000

MOV

170126
177572
177776

JSR
CLR

MOV
MOV

MOV

4#220,R1

;1OTHERWISE CONTINUE.
:

PC. MU
R3

sINIT MU
$SETUP MMRL EXPECTED DATA

#1,80177572

s TURN MMU ON

o1 ,.FLAG

@100000,80177776

$tSETUP FLAG FOR AN ABORT

:SETUP PSW FOR AN ABORT ( TLLEGAL TMODE)D

oLOBA

ARE AS
KDJ11A, MAC

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
2253

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276

MACvY11

20 -MAR 84

010730
010732

012241
004767

010736
010742
010746
010752
010756
010764
010772
011000
011002

005067
005067
005067
012703
012767
012737
012737
006522
004767

-4

301ge2) 20 AR 84 11: 941 PR8R R8s 1oent ABORT
MOV

000240

170130
170126
170124
000022

011006
011014
011022
011026
011030
011032
011036

012737
012737
005037
006522
012603
012637
012637

000216
000214

011042

000167

000210

030000
077400
177572

JSR

CLR
CLR
CLR

170056
177572
177776

177776
177600

(R2)., (R1)
PC,TSM7?

011062
011064
011066
011074
011076
011100
011102

012767
012737
010701
006522
022767
001403
104000
000214
001213

SAVMR1
SAVMR2

JSR

PC,TSM7

011104
011110
011116
011120
o11122
011124

105067
022767
001403
104000
000215
001213

167762
100000

011126
011134
011136
011140
011142

026727
001403
104000
000216
001213

167742

011144
011150
011152
011154

026701
001403
104000
000217

167726

167766
177572

000000

167746

iS7:

JMP

TS7FIN

MOV
MOV
MOV
MFPI

crMe
BEQ
ERROR
. WORD
.WORD

CLR8
cMpP
BEG

167754

ERROR
. WORD
. WORD
000022

OKA7:

o
BEQ
ERROR

. WORD
.WORD

OKAY7:

cMP
8EQ
ERROR
.WORD

s TURN MMU ON

sSETUP PSW FOR AN ABORT

sIF NO ABORT OCCURRED THEN GO TO ERROR
;sOTHERWISE CONTINUE.
sSETUP PSW
:SETUP FOR AN ABORT
sMMU OFF

sTRY
;POP

NONRESIDENT

21 ,FLAG
21.,80177572
R7,R1

(R2)+

@0 ,.FLAG

oK?
214

MMUERR

2100000, SAVMRO

OKA7?
215

MMUERR

SAVMR1, 822
OKAY?
216

MMUERR

SAVMRZ,R1
OKAY7A

217

TO CAUSE AN ABORT
THE STACK

sRESTORE DATA AT TEST LOCATIONS

(SP)+,80214

SAVMRO

(ILLEGAL MODE
)

;CAUSE AN ABORT
sCHECK IF AN ABORT OCCURRED BY
;CHECKING ABORT FLAG AND STATUS REGS

€30000,80177776
#77400,80177600

80177572
(R2).
(SP)+,R3
(SP).,80216

MOV

1SETUP MMR1 EXPECTED DATA
:SETUP FLAG FOR AN ABORT

(R2)»

MFPI
MOV
MOV

CONTINUE.

1CLEAR STATUS REGS SAVE AREAS

€22,R3
41, ,FLAG
01,80177572
©20000,80177776

CLR

000001
000001

1OTHERWISE

SAVMRO

:ROUTINE TO CAUSE AND CHECK
011046
011054

iCAUSE AN ABORT
iCHECK IF AN ABORT QCCURRED Bv
s CHECKING ABORT FLAG AND STATUS REGS
+IF NO ~80RT OCCURRED THEN GO TO ERROR

MOV
MOV
MOV
MOV
MPI

MOV
MOV

SEQ 0046

ABORTS

;SETUP FOR AN ABORT
;TURN MMU ON
: SAVE PC
:CAUSE AN ABORT
:DID AN ABORT OCCUR
:IF YES GO ON

sALL ERRORS

TO TRAP

TO EMT

VECTOR

;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:IF NO GO TO ERROR
iSETUP EXPECTED DATA
i TEST MMRO FOR EXPECTED VALUE
:IF OK THEN CONTINUE
;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
i ADDRESS OF ERROR MESSAGE
s:NOT OK THEN GO TO ERROR
: TEST MMR1 FOR EXPECTED VALUE
1 IF OK THEN CONTINUE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
sNOT OK THEN GO TO ERROR
;

TEST

MMR2 FOR EXPECTED

VALUE

: IF OK THEN CONTINUE
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

GLOBAL AREAS
KDJ11A, MAC

2277
2278
2279
2280
2281
2282
2283

2284
2285
2286
2287
2268
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332

011156

011160
011164
011170
011174

MACY11

20-MAR -84

30A (1052)

11:19

20 MAR 84

11:

PAGE

001213

005067
005067
005067
000207

. WORD

107706
167704
167702

OKAY7A:

CLR
CLR
CLR

RTS

;ROUTINE

011176
011204
011206
011210
011212

104000
000220
c01213

011214
o11222
011230
011232
011234
011236

042737
022767
001403
104000
000221
001213

040377
100000

011240
011244
011246
011250

167630

011252

020367
001403
104000
000222
001213

011254

000207

022767
001403

000000

167636

001072
167642

TSM7:

TSMA:

TSMC:

011256
011256

iNOT

SAVMRC
SAVMR1
SAVMR?2

1 ADDRESS OF ERROR MESSAGE
THEN GO T0 ERROR

:CLEAR STATUS REGS SAVE AREAS
:
:

sRETURN

A NONRESIDENT

cMP
BEQ
ERROR
.WORD
.WORD

220
MMUERR

8IC
cMP

£40377,80SAVMRO
€100000, SAVMRO

BEQ

SEQ 0047

MMUERR

TO CHECK

ERROR

TSMB:

?éSY NSN RESIDENT ABOR!?

ABORT

@0,FLAG
TSMA

,0ID AN ABORT QCCUR
:IF YES GO ON
tALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

221
MMUERR

cp
BEQ
ERROR
.WORD
.WORD

R3,SAVMR1
TSMC

RTS

s SETUP EXPECTED DATA
s TEST MMRO FOR EXPECTED VALUE

:IF OK THEN CONTINUE

$ALL

ERRORS

TRAP

TO EMT

sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

VECTOR

:IF NO THEN GO TO ERROR

: TEST MMR1 FOR EXPECTED VALUE
s IF OK THEN CONTINUE
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

222
MMUERR

:IF NOT OK

THEN GO TO ERROR

sRETURN

TS7FIN:
TSMMUS
:
TR0 LILALNALAELAER0EELSAPLE0

;oTEST

011256
011256
011262
011266
011272
011276
011302
011306
011312
011316
011322
011330
011334
011342
011346
011354
011362
011364
011366
011374

VECTOR

:IF NO THEN GO TO ERROR

TSMB8

.WORD
.WORD

OCCURRED

TEST

READ

EEAAAEE00000000400000000000004

ONLY

ABORTS

BiN0NANR
0080000
AL
004044
0000040
40
0000004
40
0000000
00
8000000
00
0004s

005267
005037
005067
013746
013746

005067
005067
005067
004767
012737

012702
012737
012746
012767
012737
010701
006622
022767
001402

TST14:

167522
177572
167550
000244
000246
167564
167562
167560
167764
030000
000244
077402
000246
000001
000001

167466
177572

000000

167446

177776
177600

INC
CLR
CLR
MOV
MOV
CLR
CLR
CLR
JSR
MCV
MOV
MOV
MOV
MOV
MOV
MOV

MTPI
cHe
BEQ

$TESTN
80177572
FLAG
80244, -(SP)
an246, -(SP)
SAVMRO
SAVMR1
SAVMR2
PC,MMU
#30000,8¢177776
0244 ,R2
©77402,84177600
0246, (SP)
21 ,FLAG
01,80177572
R7.R1
(R2).
©0,FLAG
14

: INCREMENT TEST NUMBER
sMMU OFF
;CLEAR MMU ABORT FLAG
; SAVE DATA AT TEST LOCATIONS
:
;CLEAR STATUS REGS SAVE AKEAS
:
:
s INIT MMy
1SETUP PSW
3
1SETUP FOR AN ABORT
t1PUSH DATA ONTO THE STACK
1SETUP FLAG FOR AN ABORT
; TURN MMU ON
s SAVE PC

1 CAUSE ABORT
1DID ABORT OCCULR
:IF YES THEN GO ON

;IF NO THEN GO TO ERROR

GLCBAL AREAS
KDJ11A, MAC

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
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
N
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388

MACY11l

20-MAR-84

011376
011400
011402
011404
011410
011416

104000
000223
001213
105067
022767
001403

011420
011422
011424
011426
011434

104000
000224
001213
022767
001403

011436
011440
011442
011444
011450

104000
000225
001213
020167
001403

011452
011454
011456
011460
011466

104000
000226
001213
023766
001403

30A(1052)

11:19

167462
020000

011026

20 MAR 84
T14

167454

167440

167426

000244

PAGE 48
i1:31
TEST READ ONLY

1$:

CLRB

cMP
BEG

2%:

3s:

000002

ERROR
.WORD
. WORD

cMe
BEG

ERROR
. WORD
.WORD

cMP
BEQ

ERROR
. WORD
. WORD

cHP
BEWG

4
LEQ 0048

ABORTS
sALL

223

ERRORS

TRAP

tUNIQUE ERROR NUMSER

MMUERR
SAVMRO

: ADDRESS

TQO EMT

VECTOR

ERROR MESSAGE

iSETUP EXPECTED DATA

g2000O.SAVHRO

3+ TEST MMRO FOR EXPECTED VALUE
s IF OK THEN CONTINUE
;OTHERWISE GO TO ERROR
;ALL ERRORS TO TRAP TO EMT VECTOR

224

tUNIQUE ERROR NUMBER
; RDDRESS OF ERROR MESSAGE
+ TEST MMRL FOR EXPECTED VALUE
sIF OK THEN CONTINUE
iOTHERWISE GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

MMUERR

§11026.SAVHR1
$

225

MMUERR

R1,SAVMR2

TEST

MMR2 FOR EXPECTED

VALUE

IF OK THEN CONTINUE
;OTHERWISE GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

226

MMUERR
gode.?(SP)
$

;CHECK THAT ABORT BLOCKED WRITE
SERggCH IF CURRENT CONTENTSs SAVED

sEL

011470
011472
011474
011476
011504
011510
011512
011516

104000
000227
001213
012737
012746
006622
012637
012637

030000
000002

177776

Ss:

ERROR
.WORD
. WORD
MOV

MOV
MTPI

000246
000244

MOV
MOV

011522

;ERROR!

ABORT DIDN'T BLOCK

227

030000,30177776
@2, -(SP)

;SETUP PSW

MMUERR

:ADDRESS

ERROR MESSAGE

;PUSH DATA ONTO STACK
:TRY TO CAUSE ABORT

(R2).

(SP)+,80246
(SP)+, 30244

;RESTORE

DATA

TEST

LOCATIONS

TSMMUS
;
;;‘.“““‘.“““‘.““““t“

;+TEST 1S

011522
011522
011526
011532
011536
011542
011546
011552
011560
011564
011570
011574
011600
011606

ACCESS

;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

““““.‘tl‘“0““‘.““.‘.

.‘.“

TEST PAGE LENGTH ERROR ABORTS

;;..‘..“‘.‘.“.‘.“““‘t‘..“

005267

005037

005067
005067
005067
005067
012737
004767
012703
012701
012702
012737
004767

167256
177572
167304
167330
167326
167324
030000
167522
012072
012144
012214
000026
000050

T57T15:

177776

“““‘t“‘.““““‘.0‘.“““‘.‘

INC
CLR
CLR
CLR
CLR
CLR
MOV
JSR
MOV

MOV

172516

MOV

MOV
JSR

$TESTN
80177572

FLAG

SAVMRO
SAVMR}
SAVMRZ

#30000,80177776
PC,MMU
OPLFO,R3

¥BNO,R1

#ABORTO,R2
826,84172516
PC,TSMO

; INCREMENT TEST NUMBER

sMMU OFF

;:CLEAR MMU ABORT FLAG
;CLEAR STATUS REGS SAVE AREAS
i

sSETUP PSW
tINIT MU
sLET R3, R1, AND R2 POINT TO THE

tUPWARD EXPANSION TABLES

:DISABLE USER DATA SPACE
sTURN MMU ON
;D0 RELOCATIONS FOR THE DIFFERENT

;VALUES OF

THE PAGE

:BLOCK NUMBER.

LENGTH FIELD

AND

IF AN ABORT OCCURS

GL OBAL ARE AS
KDJ1.1A
MAC

2389
2390
2391

2392
2393
2394
2395
239%
2397
2398
2399

MACY11

20 MAR 84

30A(1052)

11:19

1< 4
20 MAR 84
T1S

11:31
PAGE 49
TEST PAGE LENGTH ERROR

iCHECK TC SEE IF IT WAS SUPPOSED TO,
1AND IF YES CHECK ABORT FTLAG AND
011612
011616
011622
011626

012703
012701
012702

004767

012264
012334
012402
000030

MOV
MOV
MOV
J5R

1STATUS REGISTERS,

OPLF1,R3
48N1,R1
#ABORT1 ,R2
PC,TSM9

iLET R3, R1, AND R2 POINT TO 1HE
sDOWNWARD EXPANSION TABLES
:

; TURN MMU ON

;00 RELOCATIONS FOR THE DIFFERENT

iVALUES OF

THE

;:BLOCK NUMBER.

sCHECK

2400

2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444

SEQ NnaY

ABORTS

011632
011636
011642
011646
011652
011654

006521
012605

011656

000167

005037
012703

012701
011337

177572
012274
012344
177600

CLR

MOV
MOV

MOV
MFPI

000566

84177572

JMP

TS9F IN

AND

IT WAS SUPPQOSED

TO,

FLAG

AND

sMMU OFF

;POINT TO A VALUE WHICH SHOULD CAUSE
;AN ABORT IF MMU IS ON.

(R3),30177600
(R1).

(SP)+,R5

LENGTM FIELD

IF AN ABORT OCCURS

;AND IF YES CHECK ABORT
sSTATUS REGISTERS.

PLF1+10,R3
08N1+10,R1

MOV

TO SEE

PAGE

: SETUP UIPDRO

;D00 A RELOCATION

;POP

THE

STACK

sROUTINE TO CAUZE AND CHECK PAGE LENGTH ERROR ABORTS
011662
011666
011670
011676
011704
011706
011710
011714
011716
011720
011726
011730
011732
011734

012337
010100
012767
012737
010704
006530
021227
001011
012605
022767
001403
104000
000230
001213

011736
011740
011746
011750
011752
011754

000435
022767
001403
104000
000231
001213

011756
011762
011770
011772
011774
011776

000232
001213

012000
012006
012010

022767
001403
104000

105067

022767
001403

177600
000001
000001

TSM9:

167144
177572

MOV
MOV
MOV

MFPI

000000

000001

167114

167074

167110
040000

MOV
MOV

167102

1%:

2%:

104000

B8R

CLRB
cmp
BEQ
ERROR
LWORD

167066

4s:

cHp
BEQ
ERROR

:SETUP FOR AN ABORT
;TURN MMU ON
:SAVE PC
;D0 A RELOCATION OPERATION
;WAS AN ABORT SUPPOSED TO OCCUR
:IF YES GO TO 2%

8(RO).

230
MMUERR

cre
BEQ
ERROR
LWORD
JMWORD

;SETUP UIPDRO
sSAVE A COPY OF R1

01,FLAG
01,30177572
R7.R4

cHP
BNE
MOV
cre
BEQ
ERROR
.WORD
.WORD

.WORD

000020

(R3).,80177600
R1,RO

(R2),00
-3]
(SP)+,RS
#1,.FLAG
1s

20,.FLAG
3

231
MMUERR
SAVMRO
£40000, SAVMRO
44

232
MMUERR

420, SAVMR1
Ss

;POP

THE

STACK

:DI0 AN ABORT OCCUR
:NO GO ON

;ALL ERRORS

;YES GO

TRAP

TQ EMT

tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

VECTOR

TO ERROR
H

;:0ID AN ABORT OCCUR
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
iSETUP EXPECTED DATA
i TEST MMRO FOR EXPECTED VALUE
s IF OK THEN CONTINUE
;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

iNOT OK

THEN GO TO ERROR
i TEST MMR1 FOR EXPECTED VALUE

; IF OK THEN CONTINUE

;ALL

ERRORS

TRAP

TQO EMT

VECTOR

GLOBAL ARE AS
KDJ11A, MAC

2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482

2483

2484
2485

2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500

MACY11

20 MAR-84

30A(105.)

11:19

012012
012014

000233
001213

012016
012022
012024
012026
012030

020467
001403
104000
000234
001213

167054

012032
012036
012042
012046
012052
012054
012056
012060
012062
012066
012070

005067
005067
005067
005067
005201
005201
005202
005202
021327
001275
000207

167004
167030
167026
167024

20 MAR 84
T15

i <
11:

%éSTpsfiEEseENGTH ERROR ABCRTS
.WORD

S$:

6$:

000777

233

.WORD

MMUERR

cHP

R4, SAVMR2

ERROR
.WORD
.WORD

234
MMUERR

CLR
CLR
CLR
CLR
INC
INC
INC
INC

FLAG
SAVMRO
SAVMR1
SAVMR2
R1
R1
R2
R2

RTS

B8EQ

cMP
BNE

(R3),4777
TSM9

: UPWARD EXPANSION TABLES
012072
012074
012076
012100

012102
012104
012106
012110

0l2112
012114
012116
012120
012122
012124
012126
012130
012132
012134
012136
012140
012142
012144
012146
012150
012152
012154
012156
012160
012162
012164
012166
012170
012172

070006
070006
070006
013406
020006
004006
040006
070006
024006
004006
014006
012006
002006
001406
004006
002006
000406
007406
001006
003406
000777
013000
016000
017000
202700
014000
002000
004000
007000
002000
000700
004000
001000

PLFO:

.WORD
. WORD
.WORD

70006
70006
70006

.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

20006
04006
40006
70006
284006
04006
14006
12006
02006
01406
04006
02006
00406
07406
01006
C3406
777
013000
016000
017000
002700
014000
002000

. WORD

BNO:

.WORD

.WORD
.WORD
.WORD
-WORD
.WORD

SEQ 0050

13406

004000

007000
002000
0N0700
004000
001000

tUNIQUE ERROR NUMBER

iNOT

i ADDRESS OF ERROR MESSAGE
THEN GO TO ERROR

i TEST MMR2 FOR EXPECTED VALUE
$IF OK THEN CONTINUE

$ALL ERRORS

TRAP

TO EMT

iUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

VECTOR

sNOT OK THEN GO TO ERROR
1CLEAR MMU ABORTY FLAG
;CLEAR STATUS REGS SAVE AREAS

:POINT TO NEXT ENTRY
H

{HAVE ALL ENTRIES BEEN TRIED
:NO REPEAT
:YES RETURN

2501
2502
2503

2504

OS05
< 506
<507
2508
2509
2510

2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522

2523

2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556

012174
012176
012200
012202
012204
012206
012210

012212
012214
012216
012220
012222
012224
012226
012230
012232
012234
012236
012240
012242
012244
012246
012250
012252
012254
012256
012260
012262

MACY11 30A(
20 MAR 84 11:

i i

1§52> 2o mar
84 1 8 1PPREe LencTH ERROR ABORTS

000300
000400

001400
000600
000200
001700
000300
000700
000000

000000
000001

ABORTO:

000000
000001
000001
000000
000000
000000
000000
000001
000000
000000
000001
000001
000001
000001
000000
000001
000000

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

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

000300
000400
001400
000600
000200
001700
000300
©00700

OO OOOOHHOrROD

AREAS
KDJ11AR.MAC

OrFrOFF

GLOBAL

:DOWNWARD EXPANSION TABLES
012264
012266
012270
012272
012274
012276
012300
012302
012304
012306
012310
012312
012314
012316
012320
012322
012324
012326
012330
012332
012334
012336
012340
012342
012344

000416
020016
024016
034016
074016
040016
020016
000016
030016
010016
014016
004016
002016
000416
000016
003416
001016
001416
000416
000777
000100
010000
006000
016000
016000

5LF1:

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

. WORD
.WORD
.WORD

BN1:

. WORD
. WORD
. WORD
. WORD
.WORD
-WORD
. WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD

00416
20016
24016
34016
74016
40016
20016
00016
30016

10016
14016

04016
02016
00416
00016
03416
01016
01416
00416

777
000100
010000
006000
016000
016000

SEQ 0051

GLOBAL AREAS
KDJL11A, MAC

2557
2558
2559
2560
2561

2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2384
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612

012346
012350

012352
012354
012356
012360
012362
012364
012366
012370
012372
012374
012376
012400
012402
012404
012406
012410
012412
012414
012416
012420
012422
012424
012426
012430
012432
012434
012436
012440
012442
012444
012446

MACY11l 30A(1052)
20 MAR 84 11:19

20-MAR 84
T1S

004000
000000
000000
004000
004000
004000
000000
000300
000000
000400
001000
000100
000400
000200
000000
000000
000000
000000
000001
000001
000001
000000
000001
000000
000000
000001
000001
000001
000000
000000
000001

11:31
PAGE 52
TEST PAGE LENGTH ERROR

.WORD
.HORD
.WCRD

ABORT1:

000000
000000

000000

004000
004000
004000
000000
000300
000000
000400
001000
000100
000400
000200

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
LWORD
.WORD

O
O
O
1
1
1
O
1
O
O
1
1
1
©
O
1

.MORD
.WORD

012450
012450

004000
000000

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

.WORD

SEQ 005,

ABORTS

O
O

TS9FIN:
TSMM10:
;;‘t“‘.“‘..““““““t“““t““"

;o TEST

012450
012450
012454
012460
012464
012470
012474
012500
012504
012510
012514
012522
012530
012536
012540
012542
012546

FUNCTIONAL

t‘#“0“““““‘#“““#‘

TEST OF BITS <6:1> OF MMRO

;3‘.‘.‘.““““.‘“A“A‘A““‘““"““‘t

005267

005037
005067

005067
005067
005067
004767
005037
012702
012737
012767
012737
010701
006522
012704
004767

TST16:

166330
177572
166356
166402
166400
166376
166602

177776
020200
077400

000001
000001

100003
000210

172302
166312
177572

t‘t‘t“‘tt“t““‘t“‘

INC
CLR
CLR
CLR
CLR
CLR
JSR
CLR

MOV
MOV
MOV
MOV
MOV
MFPI
MOV
JSR

$TESTN
80177572
FLAG
SAVMRO
SAVMR1
SAVMR2
PC,MMU
86177776

#20200,R2
#77400,84172302
21 .FLAG
21,30177572
R7,R1
(R2)+
#100003,R4
PC,TS10

; INCREMENT TEST NUMBER
MMU OFF
iCLEAR MMU ABORT FLAG
iCLEAR STATUS REGS SAVE AREAS
*

(INIT MMU

:INIT PSW:

PREVIOUS MODE

:SETUP KIPDR1 TO ABORT
;SETUP FLAG FOR AN ABORT

= KERNAL

s TURN MMU ON
: SAVE PC
;00 A RELOCATION VIA KIPAR1L
;SETUP EXPECTED DATA
;CHECK IF AN ABORT OCCURRED AND

R1¢

GL OBAL AREAS
KDU11A, MAC

2613
2614
2615
2616
2617
2618
2619
2620
2621
2622

2623

2024
2625
2626
2627
2628
2629
2630

2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
264}
2642
2643
2644
2645
2646
2647
2648
2649
250
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668

012552
012560
012564
012572
012600
012604
012612
012620

012622
012624
012630
012634
012642
012646
012654
012660
012666

012074
012676
012700
012704

MACY11

20 -MAR 84

012737
004767
012737
012737
012702
012767
012787
010701
106522

30A(1052)

11:19

030000
166522
077400
001600

160000
000001
000001

012704

100177
000126

012737
004767
012737
012702
012767
012737
010701
006522
012704
004767

010000
166440
077400
120000
000001
000001

004767

2.)

20 MAR 84
116

177776

MOV

177636

JSR
MOV

177676

MOV

MOV
MOV

166230

177572

MOV

010000,80177776

172212

MOV
MOV
MOV
MOV

JSR

012722

012726
012734
012742

012744
012746

012752

166364
040000
000001
000001

177776

166106
177572

004767

$ ADDRESSES

MOV
JSR
MOV
MOV
MOV
MOV

JSR

000167

000102

JMP

160000-177776

10O PHYSICAL

1SAVE PC

100 A RELOCATION VIA UDPAR7?
$SETUP EXPECTED DATA
$tCHECK IF AN ABORT OCCURRED AND

31IF

YES CHECK BITS

<6:1>

OF MMRO.

s INIT PSW: PREVIOUS MODE-= SUPERVISOR
s INIT My
$SETUP SIPDRS TO ABORT
$ACCESS PAGE 05
1SETUP FLAG FOR AN ABORT
1 TURN MMU ON

$ SAVE PC
;D0 A RELOCATION VIA SIPARS

$SETUP EXPECTED DATA:ABORT, PAGE 0S5
sCHECK IF AN ABORT OCCURRED AND
YES CHECK BITS

<6:1>

MMRO.

CAUSES MMU ABORT

420000,80177776
PC.My
#40000,R2
01,FLAG
21,80177572
R7,R1
(R2),
#100105,R4
PC.TS10

$INIT PSW:SET ILLEGAL PREVIOUS MODE
s INIT ML

$1SET UP ACCESS TO PAGE 2
sSETUP FLAG FOR AN ABORT

sTURN MMU ON

s SAVE PC

i00 A RELOCATION

1SETUP EXPECTED DATA:ABOR
°,

PROCESSOR MODE,

PAGE

ILLEGAL

sCHECK IF AN ABORT OCCURRED AND

sIF

012756

TO ABORT

MMRO.

« USER

]

R7,R1
(R2).
#100053,R4

MODE

1SETUP FLAG FOR AN ABORT
s TURN MMU ON

077400,80172212
2120000,R2
#1,FLAG
1,80177572

ILLEGAL

<6:1>

PREVIOUS MODE

1SET UDPAR? TO RELOCATE

s IF

THAT

YES CHECK BITS

$SETUP UDPODR?

PC,TS10

MFPD
MOV

100105

1 IF

$INIT PSW:
s INIT My

PC, MU

MOV
MFPI
MOV

SE Q

MRO

PC,. MU
@77400,80177636
21600,80177676

177776

166154
177572

«<6:1>

MFPD
MOV
JSR

100053
000052

020000

BITS

21,80177572
R7.R1
(R2).
2100177,R4
PC,TS10

s TEST

012737
004767
012702
012767
012737
010701
106522
012704

€160000,R2
©1.FLAG

MOV
MOV

012710
012716

11:31
PAGE 53
FUNCTIONAL TEST

YES CHECK BITS

<6:1>

MMRO,

T10F IN

1ROUTINE TO CHECK IF A MMU ABORT OCCURRED AND If
tCONTAINS EXPECTED DATA
012762
012770
012772
012774
012776

013000
013004
013006
013010
o13012

022767
001403
104000
000235
001213
020467
001403
104000
00023¢
001213

000000

166066

166052

1510:

1$:

crp

BEQ
ERROR
.WORD
.WORD
ce
BEQ
ERROR
. WORD

.WORD

00,FLAG
1

235
MMUERR
R4, SAVMRO
P4]

236
MMUERR

STATUS REG MMRO

10ID AN ABORT OCCUR
sYES GO ON

sALL ERRORS TO TRAP TQ EMT VECTOR
tUNIQUE ERROR NUMBER

1ADDRESS

tNC GO TO ERROR
s

TEST

ERROR MESSAGE

MMRO FOR EXPECTED DATA

10K GO ON

1ALL

ERRORS

TRAP

TO EMT

sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

VECTOR

0053

ehIPTh ARE~ 20 HRA AL E1 1852 o MAR, 8¢
<609

2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2080
2681
2682
2683
2684
gggg
2687
2688

013064
013064

2689

013014
013022
013024

000022

013026
013030

022767
001403
104000
000237
001213

013032
013036
013040
013042
013044

020167
001403
104000
000240
001213

166040

013046
013052
013056
013062

005067
005067
005067
000207

166020
166016
166014

166052

cHe
BEQ
ERROR
.WORD
. WORD

022,SAVMR1
3

237
MMUERR

cre
BEQ
ERROR
.WORD
.WORD

240
MMUERR

CLR
CLR
CLR
RTS

SAVMRO
SAVMR1
SAVMRZ2
PC

R1,SAVMR?
43

tNO GO TO ERROR

1 TEST MMR1 FOR EXPECTED DATA
10K GO ON
tALL ERRORS TO TRAP TO EM! VECTOR

tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
t1NO GO TO ERROR
1 TEST MMR2 FOR EXPECTED DATA
10K GO ON
1ALL ERRORS TO TRAP TO EMI VECTOR
IUNIQUE ERRCR NUMBER

JADDRESS OF ERROR MESSAGE
1NO GO TO ERROR
1CLEAR MMU STATUS REGS SAVE AREAS
3
3
sRETURN

T10FIN:
TSMMLL:

3300000000080 40000000000000000000000000080000080

3oTEST 17
013064
013064
013070
013074
013100

005267

2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
g;i?

013112
013116
013122
013126
013134
013140
013144
013150
013154
013162
013166
013172
013176

g;ig

013202

000167

013106

00000000000000080004

165714

177572
165742
030000
000026
177610
000021
000060
000000
000023
172310
000024
000032
010000
000025
172210
000022
000004

000130

80000060000400000800000

TST17:

INC

177776

g;{g

tROUTINE
013206
013212
013216
013222
013226
013234
013242
013244
013252

TEST DATA SPACE BITS MMR3

$30000000000000080000000000000000000800000

005037
005067
012737
012701
012703
012704
004767
012737
012701
012703
012704
004767
012737
012701
012703
012704
004767

2716
2717
2718
2719
2720
2721
2722
2723
2724

Of:

4% :

2691

2697

1 PP8R
e T OF BITS <6:1> OF MMRO

3s:

2690

2692
2693
2694
2695
2696

004767
010137
012713
012702
012767
012737
106522
022767
001403

166074
172516
077400
100000
000001
000001

165606
177572

000000

165570

TS11:

$TESTN

CLR
CLR
MOV
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
JSR

80177572
FLAG
#30000,80177776
926 ,R1
®177610,R3
#21,RA
PC,TS11
®0.,.80177776
423 ,R1
9172310,R3
924 ,R4
PC,TS11
#10000,80177776
#25,R}
2172210,R3
922 ,R4
PC,T511

T1IFIN

s INCREMENT

TEST

NUMBER

sMMU OFF
1CLEAR MMU ABORT FLAG
$SETUP PSW
$SETUP FIRST MMR3 VALUE
sPOINT TO UIPDR4
:SETUP SECOND MMR3 VALUE
s TEST ENABLE USER DATA SPACE BI?
;SETUP PSW
iSETUP FIRST MMR3 VALUE
;POINT TO KIPDR4
;SETUP SECOND MMR3 VALUE
3 TEST ENABLE KERNEL DATA SPACE BIT
sSETUP PSuW
$SETUP FIRST MMR3 VALUE
tPOINT TO SIPOR4
$SETUP SECOND MMR3 VALUE
+ TEST ENABLE SUPERVISOR DATA SPACE BIT

TO TEST ENABLE DATA SPACE BITS OF MMR3

JSR
MOV
MOV
MOV
MOV
MOV
MFPD
cHP
8tQ

PC. MUY
R1,80172516
€77400,(R3)
€100000,R2
21.FLAG
e1,80177572
(R2).
#0.FLAG
18

sINIT MU
1DISABLE DATA SPACE OF MODE UNDER
1SETUP IPDR TO ABORT
H
$1SETUP FLAG FOR AN ABORT
MU ON
s00 A RELOCATION
:DID AN ABORT OCCULR
$YES GO ON

TEST

KbOTTA. AREY
2725
2726
2727
2728
2729

2730
2751
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
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2717
2778
2779
2780

013254
013256
013260

013262
013266
013272
013300

013306

013310
013312
013320
013322
013324
013326

013330
013334

20TMARALAL305L 1952 0 MAR
8g

11: 3¢ 1PB%%a5%ace 811S Ms

104000
0090241
001213
010437
012702
012767
012737

106522
005726
022767
001403
104000
000242
001213
005067
000207

ERROR
. WORD
.WORD

172516
100000

0C0001
000001
000001

1¢:

165542
177572

MOV
MOV
MOV
MOV

MFPD

TST

165522

cHp
BEQ

ERROR
. WORD
.WORD

165506

2s:

CLR

RTS

tALL

241
MMUERR
R4,80172516

@100000,R2
01,FLAG

$ADDRESS

TQAP

ERROR

VECTOR

MESSAGE

TESTM

$1SETUP FLAG FOR AN ABORT

€1,80177572

;MMU ON

(R2).
(SP)+

1POP

$10ID AN ABORT OCCUR
iNO GO ON

100 A RELOCATION

01,FLAG

THE

STACK

sALL ERRORS

242
MMUERR
FLAG
PC

TO EMT

iNO GO TO ERROR
1ENABLE DATA SPACE OF MODE UNDER

TRAP

tUNIQUE ERROR NUMBER

T0 EMT

VZCTOR

s ADDRESS OF ERROR MESSAGE

1 YES GO T0 ERROR
sCLEAR MMU ABORT FLAG
sRETURN

]

013336
013336

ERRORS

tUNIQUE ERROR NUMBER

T11F IN:
TSMM12:
;3.“.‘.““““.““““““““.‘.‘.

$¢TEST 20
013336
013336
013342
013346
013352
013356
013362
013370
013374
013376
013402

005267
005037
005067
005067
004767
012737

013412
013420
013424
013432
013440
013444
013446
013452
013456
013464
013472
013476
013500

012703
012767
012737
010767
112142
004767

013504
013510
013516
013524
013530

..0‘.“.“““““.‘.‘.‘000

TEST

‘g..“““.“...0“.%“"".“‘““

012704
010401
012705
010502
012737
012737
012703
012767
012737
010767
112425
004767

013404

MMR1 FUNCTIONAL

012703
012767
012737
010767
114125

165442
177572
165470
165516
165724
030000
100200

TST720:

177776

100101
000020
077402
006414
000001
000001
165364

172516
172310

165410
177572

000206
175011
000001
000001
165332

165356
177572

000154
006771
000001

000001
165300

165324
177572

0“.““““““.““‘.‘.“.“

INC
CLR
CLR
CLR
JSR

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOve
JSR
MOV
MOV
MOV
MOV
MOvVEe
JSR

MOV
MOV
MOV
MOV
MOovB

$TESTN
80177572

t INCREMENT TEST NUMBER

SAVMR1

sCLEAR MMU ABORT FLAG
;CLEAR STATUS REG SAVE AREA

FLAG

PC .MU
#30000,80177776
#100200,R4
R4,R1
9100101,.R5
RS,R2
€20,80172516
877402, 80172310

96414 ,R3
#1,FLAG
#1,80177572
R7,5L0C00
(R4)+,(RS).
PC.TS12
#175011,R3

@1 ,FLAG
@1,80177572

R7,SL0CO0
(R1).,-(R2)

PC,TS12

96771,R3
91,FLAG
e1,80177572
R7,5L0C00

(R1),(RS).

MU OFF

s INIT MU

sINIT PSW
iSETP TEST LOCATIONS
H

sINIT MMR3
:SETUP XIPDR4 TO ABORY
$SETUP EXPECTED DATA FOR MMR1
sSETUP FLAG FOR AN ABORT
s TURN MMU ON

: SAVE PC

;100 A RELOCATION
;:CHECK IF AN ABORT OCCURRED AND IF

sYES IF MMR1 EQUALS EXPECTED DATA
:SETUP EXPECTED DATA FOR MMR]
1SETUP FLAG FOR AN ABORT

s TURN MU ON

$1SAVE PC

100 A RELOCATION

$CHECK IF AN ABORT OCCURRED AND IF

3YES

MMRL

EQUALS EXPECTED DATA

1SETUP EXPECTED DATA FOR MMR1
iSETUP FLAG FOR AN ABORTY

:TURN MMU ON

; SAVE PC

300 A RELOCATION

GLOBAL

ARE AS

KDJ1.1A
MAC

2781
2782
2783

2784

2785
2786
2787
2788
o789

2790
2791
2792

2793

2794

2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836

013532

MACY11l 30A(1052)
20 MAR 84 11:19

004767

11:31
PAGE 56
MMR]1 FUNCTIONAL

000122

013536
013542
013550
013556
013562
013564

004767

000070

013570
013574
013602
013610
013614
013616

012703
012767
012737
010767
012542
004767

171025
000001
000001
165214

013622
013626
013634
013642
013646
013650

012703
012767
012737
010767
014225
004767

012703
012767
012737
010767
112125

20 MAR 84
120

006411
000001
000001
165246

JSR
MOV
MOV
MOV
MOV
MOVB

165272
177572

165240
177572

000036

012762
000001
000001
165162

165206
177572

000004

ES
SEQ 0054

TEST

PC.TS12

1CHECK

1YES

06411,R3
21.FLAG
01,80177572
R7,SLOCOO
(R1)+,(RS5).

JSR

PC,T1S12

MOV
MOV
MOV
MOV
MOV
JSR

0171025,.R3
81,FLAG
21,80177572
R7,SL0C00
(RS)+, -(R2)
PC.TS12

MOV
MOV
MOV
MOV
MOV
JSR

€12762,R3
&1,.FLAG
01,80177572
R7,SLOCOO
-(R2).(R5).
PC,TS12

000167

000062

JMP

IF AN ABORT OCCURRED AND
MMR1

EQUALS

EXPECTED

1SETUP EXPECTED DATA FOR MMR]

DATA

s1SETUP FLAG FOR AN ABORT
1 TURN MMU ON
$ SAVE PC

300 A RELOCATION
iCHECK IF AN ABORT OCCURRED AND IF

1YES

MMR1

EQUALS EXPECTED DATA

1SETUP EXPECTED DATA FOR MMR1
;SETUP FLAG FOR AN ABCRT
s TURN MMU ON

1SAVE PC

100 A RELOCATION
+CHECK IF AN ABORT OCCURRED AND IF
1 YES IF MMR1 EQUALS EXPECTED DATA
1SETUP EXPECTED DATA FOR MMR1
$:SETUP FLLAG FOR AN ABORT
: TURN MMU ON

: SAVE PC
:00 A RELOCATION

iCHECK IF AN ABORT OCCURRED AND IF

:YES

013654

MMR1

EQUALS

EXPECTED DATA

T12F IN

;ROUTINE TO CHECK IF AN ABORT OCCURRED AND IF MMR1 EQUALS EXPECTED DATA
013660
013666
013670
013672
013674

2767
001403
104100
000243
001213

000000

013676
013702
013704
013706
013710

020367
001403
104000
000244
001213

165172

013712
013720
013722
013724
013726

026767
001403
104000
000245
001213

165112

013730
013734
013740

005067
005067
000207

165140
165136

013742
013742

165154

TS12:

18:

165156

23:

3s:

cHe
BEQ
ERROR
.WORD
.WORD
crp
BEQ
ERROR
.WORD
.WORD

80,FLAG
1
243
MMUERR
R3,SAVMR1
2s

244
MMUERR

cHp
8EQ
ERROR
.WORD
.WORD

245
MMUERR

CLR
CLR
RTS

SAVMR]
SAVMR?2
PC

SLOCOO0, SAVMR2
34

;:0I0 AN ABORT CCCUR

s YES GO ON

:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;sADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
s

TEST MMR1 FOR EXPECTED DATA

;0K GC ON

sALL

ERRORS

TRAP

TO EMT

sUNIQUE ERROR NUMBER
s ADDRESS OF ERRDR MESSAGE
+NO GO TO ERROR
i

TEST MMR2 FOR EXPECTED DATA

;0K GO ON
:ALL ERRORS TO TRAP TQ EMT VECTOR
sUNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE
tNO GO TU ERROR
;CLEAR STATUS REG SAVE AREA
3

1 RETURN

T12F IN:
TSMM13:
;;“““.“‘“““‘.““‘.““‘““““‘.“.“0

:¢TEST

ADDER RELOCATION

VECTOR

“...“.““‘.‘.C.

TEST PART

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

:(NEED 16 BITS OF MEMORY ADDRESSING)

“‘0‘...‘...“““".‘

GLOBAL

AREAS

KDJ11R,MAC

2837
2838
2839
2840
2841
2842
2843
2844

2845
2846
2847
2848
2849
2850

2851
2852
2853
28354
28355
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867

2868
2869
2870
2871
2872
2873
2874
2875
2876
2877

2878

2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2390

2891
2892

013742
013742
013746
013752
013756
013762
013766
013774
014000
014004
014006
014012
014014
014020
014024
014030
014034
014036
014044
014046
014050

014054
014056
014060

MACY11

20 MAR 84

30A(1052)

11:19

131

'1:3BoeR"REL3LarIon TEST PART A

“EQ 0057

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

005267
005037

005067
005037
004767
012737
012703
012701

012133
021127

001374
012703
012701
012702
012237
013305
012737
006531
012604
005037

020504
001403
104000

014062
014064

000246
001213

014066
014072
014074
014076
014100
014102
014104
014106
014110
014114
014116
014124
014132
014134
014136
014142
014146
014150
014152
014154
014156

021327
001356

000020
014164
014216

INC

CLR
CLR
CLR

172516
1$:

000333

014302
014250
014334
177776
000001

2%:

177572

JSR
MOV
MOV
MOV
MOV
cMP
BNE
MOV
MOV
MOV

MOV
MOV
MOV
MFPI
MOV

CLR

cMp
BEQ

ERROR
. WORD
. WORD

000111

3s:

005203
005203
005201
005201

005202
005202
012237
013305
012737
012737
106531
012604
005037
005037
020504
001403
104000
000247
001213

..00“‘.“‘00““..‘.“l‘.t.‘

TST121:;

165036

177572
165064
177776
165320

177776
000027
000001

172516
177572

177572
172516

014160
014160

20 MAR 84

cMP
BNE
INC
INC
INC
INC
INC
INC
MOV
MOV
MOV
MOV
W PD
MOV
CLR
CLR
cHe
BEQ
ERROR
.WORD
.WORD

$TESTN

FLAG
80177776
PC.MU
€20,80172516
OPARAD1
. R3
OPARVA1,R1

000202
sADDER

sSET POINTERS TO ADDER PART A
:+

+INIT PSW

TEST PART

ADORESS

:TURN MMU ON
iSAVE DATA AT RELOCATED VIRTUAL ADDRESS

8(R1).
(SP)+,R4
80177572
R5,R4
34

(R3),0111

TABLES.

:SAVE DATA AT PHYSICAL

01,80177572

2%
R3
R3

TEST

(R2)+,80177776
8(R3).,RS

MMUERR

VALUES

OPHY1 ,R3
4VIR1 ,R1
#MODE1 ,R2

246

TEST

s TURN MMU OFF

1IS DATA EQUAL TO EXPECTED
sYES GO ON

;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
sNO IT IS AN ADDER ERROR
1ARE WE READY TO TEST DATA SPACE
:NO GO TO 23
;POINT

YO DATA SPACE

VALUES

R1
R1
R2
R2

(R2).,80177776
8(R3)+,RS5

; INIT PSW
:SAVE DATA AT PHYSICAL ADDRESS

027,30172516

$ INIT MMR3

01,80177572
3(R1)»
(SP). R4
80177572
80172516
R5,R4

sTURN MMU ON
:SAVE DATA AT RELOCATED VIRTUAL ADDRESS
:POP THE STACK
s TURN MMU OFF
sCLEAR MMR3
;IS DATA EQUAL TO EXPECTED
:YES GO ON

247

MMUERR

T13FIN
A

TABLES

;ALL ERRORS

3 ARDDRESS OF

ERROR MESSAGE

TRAP

tUNIQUE ERROR NUMBER

tNO IT
JMP

$SETUP PARS WITH

(R1)+ ,8(R3).
(R1),0333
1$

000167

s INCREMENT TEST NUMBER
tMMU OFF
1CLEAR MMU ABORT FLAG
sINIT PSW
sINIT v
s INIT MMR3

80177572

IS AN ADDER ERROR

TO EMT

VECTOR

GLOBAL

AREAS
KDJ11A MAC

2893
2894
2895
2896
2897
2898
2899
2900
2901
2902

2903
2904
2905
2906
2907
£908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946

2947

2948

014164
014166
014170
014172
014174
014176
014200
014202
014204
014206
014210
014212
014214
014216
014220
014222
014224
014226
014230
014232
014234
014236
014240
014242
014244
014246
014250
014252
014254
014256
014260
014262
014264
014266
014270
014272
014274
014276
014300
014302
014304
014306
014310
014312
014314
014316
014320
014322
014324

014326
014330
014332
014334
014336
014340
014342

MACYI11

20 MAR 84

172240
177642
172252
177640
172242
172254
177652
177644
172246
177654
172250
177660

000333
000000
000010

30A(1052)
11:19

20 MAR 84
T21

PARAD]
-

PARVAL:

177777
177601

000010
000052
000070
000010
000010
000060
000000
000010
000333
000000
025000

PAGE 58
ADDER RELOCATION

. WORD
. WORD
.WORD
.WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
.WORD
.WORD
. WORD
. WORD
.4ORD

. WORD

VIRL:

135224

017700
033000

145252
121000
043000
075000
142000
117700
000111
007000

000000
006000
015124
000000
014000
012452
010000
004000
016000
010000
017700
000111
010000
010000
030000
010000
0X0000

11: 31

PHY1:

. WORD
. WORD
. WORD
. WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORC
. WORD

. WORD
.WORD
.WORD
.WORD
. WORD
. WORD
.WORD
. WORD
.WORD
. WORD
-WORD
.WORD
. WORD
. WORD
.WORD
. WORD
. WORD
-WORD
. WORD

MOOE1
:

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

. WORD
. WORD

172240
177642

172252
177640
172242
172254
177652
177644
172246
177654
172250
177660
333
000000
000010
177777
177601
000010
000052
000070
000010
000010
000060
000000
000010
333
000000
025000
135224
017700
033000

145252

121000
043000
075000
142000

117700
111
007000
000000
006000
015124
000000
014000
012452
010000
004000
016000
010000
017700
111
010000
010000
030000
010000
030000

G5
TEST

PART

SEQ 0058

GLOBAL

ARE AS

KDJ11A .MAC

2949
2950
2951
2952
2953
2954

2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982

2983
2984
2985
2986
2987
2988
2989
2990

2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004

014344
014346
014350
014352
014354
014356
014360
014362
014364

MACY1]

20 RER PR

30A(1052)

b1t
<0 MAR

18 1:XAoeh AREB8ar1oN TEST PART A
84

010000
010000

.WORD
_WORD

030000
030000
010000
030000
010000
000111
030000

.WORD
_WORD
.WORD
.WORD
.MORD
.WORD
-WORD

014366
014366

5tuG 0oyG

010000
010000
030000
030000
010000
030000
010000
111
030000

TL3FIN:
151822;
H ;““.““..“““‘..““-“““
“‘0“

“““““.““‘.“t“.“‘.

;oTEST 22

TEST 22718 BIT ADDRESS OPTION

H ;“‘.“““.“““.‘““..“‘..‘.‘“

‘.“‘.“““““‘.“.‘..0‘“

:CHECK THE SOF TWARE SWITCH REGISTER TO DETERMINE IF THIS IS A 22 BIT
OR AN
118 BIT ADDRESS SYSTEM. BIT 08 IN THE SWR=1 INDICATES AN 18
BIT SYSTEM.
sIF WE'RE IN A 22 BIT SYSTEM WE CAN PERFORM SOME EXTRA TESTS.
014366
014366
014372
014400
014402
014410

: g““““‘.““‘...“““"C““

005267

032777

001405

062737
000167

164412

000400
000001

TST22:

164446

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

INC

BIT

8€Q

001004

ADD

001472

JMP

$STESTN

; INCREMENT TEST NUMBER

100$

:BRANCH

oBIT08,aSWR
01,808 TESTN
T14FIN

;IS BIT 08 SET?
IF

ITS NOT

:KEEP TEST NUMBERS

:ADD 1 FOR
:SKIP OVER

IN ORDER

THE TESTS WE'RE SKIPPING
THESE TESTS IF IT IS

:IF THIS IS A 22 BIT SYSTEM CHECK THE 22/18 BIT ADDRESS OPTION

;TO TEST 22 BIT ADDRESSING WE DO THE FOLLOWING:

:
;
;
;

A.
8.
C.
D.

1008:

MOV
MOV
MOV
MOV
MOV

ENABLE 22 BIT ADDRESSING MODE
CLEAR ADDRESS 0
WRITE PHYSICAL ADDRESS 17000000 WITH ALL ONES
CHECK ADDRESS O

: IF ADDRESS O IS UNCHANGED (=0) OR A TIME OUT OCCURRED, IT INDICATES
:22 BIT MODE IS FUNCTIONING.
:IF ADDRESS O =177777 IT INDICATES THAT 22 BIT MODE IS NOT FUNCTIONING.
014414
014422
014430
014436
014444
014452
014460
014466
014472

012767
012767
005067
012737

014500

005767

013767
013767
012737
012737
012767

000004
000006
014514
000340
000020
170000
000001
163306
177777

163274

164406
164402
000004
000006
156044
155674
163104

140000

804,5L0C00
806 ,SLOCOL
013,804
0340, 806
420, SR3

MOV
MOV
CLR
MOV

0
8177777,80140000

014504

001407

BEQ

014506
014510
014512

104000
000250
001213

ERROR
.MORD
.WORD

250
MMUERR

{SAVE VECTOR
:SAVE VECTOR
:SET VECTOR FOR NXM TRAP
:
{ENABLE 22 BIT MODE ADDRESSING
;SET KIPAR6 FOR 1920-1924KW ADDR RANGE
:ENABLE MMU
;CLEAR ADDR O
sMOVE ALL ONES TO ADDR 17000000 VIA KIPAR6

;A TIME OUT ERROR OR

:ADDR O REMAINING CLEAR INDICATES

sTHAT 22 BIT ADDRESS MODE IS WORKING AND
1 THAT SOME FURTHER TESTS SHOULD BE PERFORMED
1IF ADDR O =177777
1ERROR! 22 BIT ADDRESS MODE BAD
1ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

GLOBAL AREAS
KDJ11A MAC

3005
3006

3007
3008
3009
3010
30.1
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039

3040
3041
3042

3043
3044
3045
3046
3047

3048
3049
3050
3051
3052

3053
3054
3055
3056
3057
3058
3059
3060

MACY11

20-MAR -84

30A(1052)

11:19

014514

012706

001000

014520
014524
014532
014540

005037
012737
042767
012767

177766
014564
000020
170000

20 MAR-84
122

000004

155756
155606

11:31
PAGE 60
TEST 22718 BIT ADDRESS OPTION

1s:

MOV

€S7B0T,SP

2%:

MOV

CLR

80177766

8IC
MOV

081704 ,5SR3
2170000 ,KIPARG

1GOT HERE AS A RESULT OF NxXxM TRAP
tCLEAN UP THE STACK
sCLEAR CPU ERROR REGISTER
iSET UP VECTOR FOR NXM TRAP
1SET 18 BIT ADDRESSING MODE IN SR3

034,804

$SET KIPAR6 SO THAT BITS

014546

012737

1777717

140000

MOV

@177777,80140000

014554
014562
014564

022737
001405
005067

177777

000000

cHP
BEQ
CLR

@177777,.300
44
SRO

014570
014572
014574

163002

3%:

104000
000251
001213

ERROR
.WORD
.WORD

SEQ NO6KO

18 21

SHOULD

1BE ASSERTED IF 22 BIT ADR WAS ENABLED

:TRY TO WRITE ADDR 17000000 VIA KIPAR
6
;ADDR O SHOWD = 177777. A TIME OUT
1OR ADDR O = ZERO INDICATES AN ERROR
;GO TO NEXT TEST IF ADDR 0=177777

;:DISABLE MMU BEFORE ERROR.

;ERROR!
sALL

251
MMUERR

18 BIT

ERRORS

ADDR OPTION IS N.G.

TRAP

sUNIQUE ERROR NUMBER
; ADDRESS

ERROR

TO EMT

VECTOR

MESSAGE

sTEST ADDRESS BITS 18 THRU 21
$

014576
014604
014612
014616
014624
014632
014636
014640
014644
014646
014650

052767
012767
005067
012767
012737
005767
001405
005067
104000
000252
001213

000020
014652
163162
010000

014652

012737
005067

014720
163114
020000
177777
163074

014660
014664
014672
014700
014704
014706
014712
014714
014716

012767
012737

005767
001405
005067
104000
000253

177777
163142

155712
163172

4s:

MOV
CLR
MOV
MOV

15553¢
140000

TST

BEQ
CLR
ERROR
.WORD
.WORD

162726

5%:

155462
140000

162660

001213

014766
014774

012737
005067

012737
005067
012767
012737
005767

001405
005067
104000
000254

014766
163046
040000

177777
163026

155414

162612

MOV

874,304

015034
163000

000004

7%:

284,304

ZERO

B8IT

18 DID NOT

ASSERT

:SET UP FOR NXM TRAP
sCLEAR ADDR O
s TEST ADDRESS BIT 19
ALL ONES

TO ADDR 2000000

SHOWD= ZERO

:DISABLE MMU BEFORE ERROR
iALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

;ERROR? BIT 19 DID NOT ASSER?
$SET UP FOR NXM TRAP

254

:BRANCH IF ADDRESS 00

Q177777,80140000

MOV

SHOULD

;OISABLE MMU BEFORE ERROR
;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

{WRITE

MMUERR

ADDRESS O.

:TEST ADOR 0.

240000, KIPARE

.WORD
. WORD

CLR

sERROR!

74
SRO

;:BRANCH IF ADDRESS 020

253

CLR

ERROR

:TEST

#20000,KIPARG
#177777,80140000

MMUERR

ADDRESS BIT

;WRITE ALL ONES TO ADDR 1000000

252

ERROR
. WORD
.WORD

TSY
BEQ

;TEST

MMUERR

0
63
SRO

MOV
MOV

140000

210000,KIPARG
e177777,84140000
0
S5
SRO

TST
BEQ

CLR

:ENABLE 22 BIT ADDRESSING MODE
;SET UP FOR NXM TRAP
;:CLEAR ADDRESS ©

86‘.304

CLR

64:

9BITO4,SR3

054 ,4

MOV
CLR
MOV

MOV

001213

014720
014726
014732
014740
014746
014752
014754
014760
014762
014764

BIS

;ERROR!

:CLEAR ADOR 0O
: TEST ADDRESS BIT 20
;WRITE ALL ONES TO ADDR 4000000
s TEST ADDR O. SHOULD =0
1BRANCH IF ADORESS O =0
1DISABLE MMU BEFORE ERROR
;ALL ERRORS TO TRAP TO EMT VECTOR
4
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

BIT

20 DID NOT ASSERT

sSET UP FOR NXM
;CLEAR ADDRESS 0

GLOBAL

AREAS

KDJU11A.MAC
3061
3062
3063
3064
3065
3066
3067

015000
015006
015014
015020
015022
015026
015030

3068
3069
3070
3071
3072
3073
§°;;

015034
015040
015044
015050
015056

3076

015064

3077

015032

MACY1l

20 MAR 84
012767
012737
005767
001405
005067
104000
000255

30A(1052)

11:19

100000
177777
162760

20 MAR 84

T22

155346
140000

001213
005067
005037
012706
013737
013737

. WORD

162532
177766
001000
001030
001032

8s:
000004
000006

3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116

CLR
CLR
MOV
MOV
MOV

2100000,KIPAR6
©177777,84140000
0
8s
SRO

255
MMUERR

SRO
80177766
4571807 ,R6
80SL0C00, 804
80SL0CO1,806

;s TEST ADDRESS BIT 21
$WRITE ALL ONES AT ADDR 10000000
s CHECK ADDRESS 0. SHOWD = O
$1BRANCH IF ADDR O = 0O
sDISABLE MMU
BEFORE ERROR
;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

:ERROR!

;ADDRESS OF ERROR MESSAGE
ADDR BIT 21 DID NOT ASSERT
1DISABLE MMy
;CLEAR CPU ERROR REGISTER
sRESET STACK POINTER
;:RESTORE VECTORS
H

TSMM14:

$10888006000840048040800800 8008000000000 0080044

040000000040400004

;oTEST 23
ADDER RELOCATION TEST PART B
1580808088 80080404840000008808080000800000480088800000040008048000
800004
;(NEED 22 BITS OF MEMORY ADDRESSING)

3081

3102
3103
3104

PAGE

TEST 22/18 BIT ADDRESS OPTION

MOV
MOV
TST
BEQ
CLR
ERROR
. WORD

162544

3078
3079
3080

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

11:31

$i000804000000000000008 000800008000 00000080840000

015064
015064
015070
015074
015100
015106
015114
015122
015130
015134
015142

005267
005037
005067
013737
013737
012737
012737
005037
012767
012737

163714
177572
162666
000004
000006
015620
000340
172340
077406
177500

015150
015156
0151€3
O0151/e

012767
012737
012737
005737

077406
000020
000001
157776

015176

015204
015212
015216
015222

015226
015234
015242
015250
015254
015260
015264
015272
015276
015302
015304
015310

013737

013737
005037
005037
004767

012737
012737
052737
012704
012701
012437
012737
012746
006671
006531
022726
001405

001030

001032
177572
001042
164060

010000
000020
001000
016022
016054
172246
000001
125252
000000

125252

7ST123:

001030
001032
000004
000006
155136
172354

155136
172516
177572
000004

0600006

INC
CLR
CLR
MOV
MOV
MOV
MOV
CLR
MOV
MOV

$TESTN
80SR0
CPEREG
804 ,80SL0OCO0
8#6,80SL.0C01
ONXMTRP, 804
2340,806
SO IPARO
077406 ,KIPDRO
9177500, 80KIPARG

CLR
CLR
JSR

830177572
8OFLAG
PC. M

;sINCREMENT TEST NUMBER
;TURN OFF MMy,
:CLEAR THE CPU ERROR REGISTER
$SAVE LOC 4 IN SLOCOO.
:SAVE LOC 6 IN SLOCO1.
:SET UP FOR TIMEOUT TRAP
;SET UP FOR TIMEOUT TRAP
$SET KER PARO FOR 1ST 4KW OF MEMORY.
:SET KER PDR FOR 4KW R/W ACCESS.
:SET UP KERNEL PAGE ADDR REG 6
;FOR HIGHEST 4K WORDS OF NON-I/0
;FOR 2 MEG WORDS OF MEMORY.
MOV
877406 ,KIPDR6
:SET KER PDR6 FOR 4KMW R/W ACCESS.
MOV
020 ,80SR3
tENABLE 22 BIT ADDRESSING.
MOV
21,805R0
sTURN ON THE MMuU,
TSY
B8157776
tATTEMPT TO ADDRESS LAST MEMORY ADDR.
j44s0s0ss0s0selILL TRAP TO 4 IF 2 MEG WORDS OF MEMORY NOT
AVAILABLEe+esssase
MOV
80SLOCO0, o4
sRESTORE LOC 4
MOV
§0SL0CO1,a06
;RESTORE LOC 6

177776
172516
177746

177572

80000000000000004

1s:

MOV
MOV
8IS
MOV
MOV
MOV
MOV
MOV
MTPI
MFPI
cMP
B8EQ

€10000,80177776
020,80172516
41000,80177746
OPARVAS R4
OVIR3 . R1

(R4). 80172246
*1,80177572
#125252, -(SP)
80(R1)
8(R1).
9125252,(SP )+
2%

;MM OFF
:CLEAR MMU ABORT FLAG
1 INIT MU

sINIT PSU
sINIT MMR3
;s TURN CACHE TEST FEATURE ON
iSET POINTERS TO INIT TABLES
H
s INIT SIPAR3
;TURN MMU ON
:PUSH BACKGROUND DATA ON TO THE STACK
tWRITE DATA TO PHYSICAL ADDRESS
sWRITE DATA AT PHYSICAL ADDRESS TQ STACK
: IS DATA EQUAL TO EXPECTED
s YES GO ON

GLOBAL

ARE A3
KDJ11A MAC

3117
3118
3119
3120
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
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172

015312
015316
015320
015322
015324
015330
015334

015336

MACYi1 30A(1052)
20-MAR 84 11:19

005037
1042000
000256

1771572

005037
021427
001351
012704
012701
012431
021127
001374
012704
012701
012702

177572
000333

2%:

015702
015652

012703
004767

015770
015736
016022
016054
000076

015402

021127

015406
015410
015412
015414
015416
015420
015426
015432
015436
015444
015446

015464
015470

123

001213

015342
015346
015350
015354
015356
015362
015366
015372
015376

015452
015460

20 MAR 84

3s:

000333

4as:

11:31

PAGE 62

RDDER RELOCATION

CLR
ERROR

ae177572

.WORD
LWORD

256
MMUERR

CLR

80177572

cHP
BNE

MOV
MOV
MOV

cMP

BNE
MOV
MOV
MOV
MOV

(R1),0111

001373
005201
005201
005204
005204
012737
012437
012746
012737

000027
177776
052525
000001

BNE
INC
INC
INC
INC
MOV
MOV
MOV
MOV

005037
012737
004767

177572
000020
000040

005037
004767

MTPD

CLR
MOV
JSR

172516

172516
000004

CLR
JSR

TRAP

TQ EMT

TO PAR

INIT

VECTOR

sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

1NOT EQUAL GO TO ERROR
i TURN MMU OFF

3
oMODE2,R4
SVIR2,R1
OPARVA3 R2
#VIR3 ,R3

cHP

SEQ 006y

B
t TURN MMU OFF
sALL ERRORS TO

(R1),0333

000111

106631

PART

OPARVA2 ,R4
OPARAD2.R1
(R4)+,8(R1)+

PC,TS514

177572

TEST

(R4),0333
14

JSR

172516

)

s ARE WE DONE
;iNO GO 70 1

1SET
H

POINTERS

sARE

TABLES

;INIT PARS
DONE

sNO, GO 10 3¢
:SET POINTERS
:
:
H

ADDER PART

TABLES

;sWRITE DATA TO PHYSICAL ADDRESS AND THEN
;CHECK IF DATA AT PHYSICAL ADDRESS IS
;EQUAL TO EXPECTED AND IF NOT DETERMINE
:IF IT IS AN ADDER ERROR OR A MEMORY ERROR
sHAVE WE DONE ALL THE 22 BIT MODE I SPACE
;:CASES
:NO GO

1
R4
R4
227,80172516

T0 4

;POINT TO 22 BIT MODE D SPACE CASE

H
:
:
; INIT MMR3

(R4).,.30177776

;s INIT PSW

01,80177572

s TURN MMU ON

952525, -(SP)

;PUSH DATA ONTO STACK

a(R1).

;WRITE DATA TO PHYSICAL ADDRESS

920,80172516
PC,T14

s INIT MMR3
;CHECK IF DATA

AT PHYSICAL

; INIT MMR3 FOR

18 BIT MODE

}e1?77572

s TURN MMU OFF

ADDRESS

IS EQUAL

;7O EXPECTED AND IF NOT DETERMINE IF JT
;IS AN ADDER ERROR OR A MEMORY ERROR

0172516

PC,TS14

iWRITE DATA

TO PHYSICAL

ADDRESS

AND

THEN

:CHECK IF DATA AT PHYSICAL ADDRESS IS
:EQUAL TO EXPECTED AND IF NOT DETERMINE IF
:IT IS AN ADDER ERROR OR A MEMORY ERROR

015474

000167

000406

JHP

T14F IN

;ROUYINE TO WRITE DATA TO PHYSICAL ADDRESS AND TO CHECK IF DATA AT

sPHYSICAL ADDRESS IS EQUAL TO EXPECTED AND IF NOT DETERMINE IF IT IS

;AN ADDER

015500
015504
015512
015516
015520
015524

012437
012737
012746

006631

005037
012737

177776

000001
052525

177572
010000

177572

177776

71514

ERROR

MOV

MOV
MOV
MTIPI

T14:

CLR

MOV

A MEMORY

ERROR

(R4).,80177776

21.89177572

852525, -(SP)

3(R1).
36177572

010000,84177776

s INIT PSMW
1 TURN MMU ON

{WRITE DATA ONTO STACK

tWRITE DATA TO PHYSICAL ADDRESS
i TURN MMU OFF

s INIT

PSUW

VIA STACK

GLOBAL

AREAS

KDJ11A.MAC =
3175
3178
3175

3176
3177
3178
3179
318
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193

3194

015532
015536
0155848

015550
015554

015556
015562
015566
015570
015572
015574

MACY11

20 MAR 84 11:19
012237
012737
006573

022726
001414
006573
022726
001404
104000
000257
001213

015576
015600
015600
015602
015608

104000
000260
001213

015606
015612
015614

005037
005203
005203

015616

30A(1052)

172246
000001
000000

20 MAR 84

103

052525

000000
125252

000403
18

177572

2s:

000207

3199
3200

3201

3202
3203

3204

Aboer BELSZaTION TEST PART B
(R2)+, 80172246
01.80177575
80(R3)
052525, (SP).
23
S0(R3)
8125252,(SP)»
1s

cHP
8EQ
MFPI
cHP
8EQ
ERROR
JWORD
'WORD

257
MMUERR

ERROR
WORD
"WORD

260
MMUERR

CLR
INC
INC

80177572
R3
R3

RTS

015620
015624
015630

015636

015644

015650

005037
012716
013737

013737
005037

177572
016106
001030

001032
177766

3
NXMTRP:

000004

000006

CLR
MOV
MOV

MOV

CLR

000006

805RO
OT14FIN. (SP)
805L0C00. 304

80SLOCO1 . 306

30177766

RTT

177646
177650
177652
172240
177640
177642

3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228

015670
015672
015674
015676
015700
015702
015708
015706
015710
015712
015714
015716
015720
015722

177644
172252
172352
177662
172242
000333
157700
137700
077700
176777
007600
167700
175700
177425

015666

PARAD2:

172244

.WORD
'MORD
WORD
'WORD
WORD
.MORD

177646
177650
177652
172230
177640
177642

.WORD
LWORD
. WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD

177644
172252
172352
177662
172242
333
157700
13770C
077700
176777
007600
167700
175700
177425

. WORD

PARVAZ:

;IT

;
{ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
IS A MEMORY ERROR
;
;ALL ERRORS TO TRAP TO EMT VECTOR
UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
IS AN ADDER ERROR
s TURN MMU OFF
:
:
:RETURN

s TURN OFF MMU.
iSET UP STACK WITH RETURN ADDR.
:RESTORE LOC 4

:RESTORE LOC 6

:CLEAR TIME OUT INDICATION FROM
:CPU ERROR REGISTER.

tRETURN FROM TRAP;

:ADDER TEST PART 8 TABLES
015652
015658
015656
015660
015662
015664

EQ 0063

TRAP ROUTINE

3208
3209
3210
3211
3212
3213

JINIT SIPARS
1 TURN MMU ON
:D0 RELOCATION
:IS DATA EQUAL TO EXPECTED
YES GO ON
iWHAT TYPE OF ERROR IS IT
:

:NON-EXISTANT MEMORY

gggg

3214

MOV
MOV
MFPI

177572

31%

1
3198

11:31

172244

GO TO NEXT

TEST.

GLOBAL

AREAS

KDJ11A MAC

3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3230
3251
3252

3253
3254
3255
3256
3257
3258
3259
3260

3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284

015724
015726
015730
015732
017734
015736
015740
015742
015744
015746
015750
015752
015754
015756
015760
015762
015764
015766
015770
015772
015774
015776
016000
016002

016004
016006
016010
016012
016014
016016
016020
016022

016024
016026
016030
016032
016034
016036
016040
016042
016044
016046
016050
016052
016054
016056
016060
016062
016064
016066
016070
016072
016074
016076
016100
016102

MACY11
20 MAR

177220
173700
176700
077400
000333
070000
110000
130000
000000
000000
030000
050000
052524
136000
130000
000111
030000
030000
030000
030000
030000
010000
030000
030000

010000
030000
010000
000000
000111
030000
010000
160000

140000
100000
176770
007600
170000
176000
177552
177400
174000
177000
007500
000333
060000
060000
060000
060700
060000
060000
060000
060024
060000
060000
060000
06C000

30A(1052)
11:19

20 MAR 84

11:31

123

VIR2:

MODE2:

PARVA3:

VIRS:

PAGE 64

ADDER

RELOCATION

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

177220
173700
176700
077400
333
070000
110000
130000
000000
000000
030000
050000
052524
136000
130000
111
030000
030000
030000
030000
030000
010000
030000
030000

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD

. WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

010000
030000
010000
000000
111
030000
010000
160000

140000
100000
176770
007600
170000
176000
177552
177400
174000
177000
007500
333
060000
060000
060000
060700
060000
060000
060000
060024
060000
060000
060000
060000

M5
TEST

PARTY

GLOBAL AREAS
KDJ11A, MAC
3285
3286
3287
3288
3289
3290
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
3338
3339

3340

016104

MACY1l

20-MAR 84

30A(1052)

11:19

20 MAR

11:31

123

PAGE

ADDER RELOCATION

000333

.WORD

016106

TEST

3€Q N06S

PART B

333

T14F IN:
$88045000000008000008000000080

000008000080000000000000000000

;«TEST 24

0004

TEST NON-EXISTANT MEMORY TRAP

FiNA0AAAARAAAALAAAANAA0RA0AALA

00AAANENEL0EA0AAA0000400000000

iWE ARE ASSUMING THAT THE NON EXISTANT MEMORY TIME OUT
:FEATURE IS WORKING SINCE WE CAN'T GUARANTEE THAT
:THE SYSTEM BEING TESTED HAS A NON-EXISTANT MEMORY LOCATION.

;AT

016106
016106
o16112
016116
016124
016132
016140
016146
016152
016156
016162

THIS

TIME

S bdbtmnnnd

005267
004767
012737
016767
016767
052767
005067
005067
005737
000423

162672
163170
177400
161654
000026
000001
161614
161620
157776

TST24:

172354
162676
161644
161424

1$:

WILL

LIIIII T

INC
JSR
MOV
MOV
MOV
BIS
CLR
CLR
TST
BR

ATTEMPT

LYY

TEST

Py Yy

$TESTN
PC,MMU
2177400, 80KIPARG
4,5L0C00
24%.4
#81IT00,SR0
CPEREG
PS
aN157776
NXMF IN

THE NXM FUNCTION

022767
001403
104000

000261
001213
022726
001403
104000
000262
001213
022726
001403
104000
000263
001213
005067
005067
016767

000040

161574

016162

3s:

000000

161334
161524
162562

016250

2%:

4% :

NXMFIN:

161534

cMP
BEQ
ERROR
. WORD
.WORD
cMe
BEQ
ERROR
LWORD
.WORD
iy o
BEQ
ERROR
.WORD
.WORD
CLR
CLR
MOV

#BITOS,CPEREG
3
261
MMUERR
€1¢,(SP)+
43

262
MMUERR
20,(SP).
NXMFIN

263
MMUERR
SRO
CPEREG
SLOCO00,4

DU,

: INCREMENT TEST NUMBER
sINIT THE MMU
:SET KIPAR6 TO RELOCATE TO HIGMEST MEMORY
: SAVE VECTOR
;LOAD VEC WITH ADDR OF TRAP HANDLER
;TURN ON THE MMU
;:CLEAR THE CPU ERROR REGISTER
;CLCAR THE PSW
:ACCESS PHYSICAL ADDR 17757776
:IF IT DOESN'T TRAP WE'LL ASSUME
;THAT

016164
016172
016174
016176
016200
016202
016206
016210
016212
016214
016216
016222
016224
016226
016230
016232
016236
016242

THIS

IA A 4

MEGABYTE

TSMM15:
FiRRRALANR A0 ARARRRARAAARANALARRSERARARAR

;+TEST 25

016250
016250
016254
016260
016264
016270

PAGE WRITTEN BIT TEST

ERRAAEALESN00A00004

SRR A04040800 0804000000000 04 0000000008000

005267
005037
005067
004767
005037

162530
177572
162556
163016
177776

TST2S:

INC
CLR
CLR
JSR
CLR

$TESTN
av177572
FLAG
PC,MMU
8177776

SYSTEM

:AND GO TO THE NEXT TEST
:IS CPU ERROR REGISTER CORRECT?
:
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;:ADDRESS OF ERROR MESSAGE
;IS CONTFNTS OF STACK CORRECT?
H
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
;IS CONTENTS OF STACK CORRECT?
;
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
:TURN OFF THE MMU
;:CLEAR THE CPU ERROR REGISTER
;RESTORE THE VECTOR

080 000000080080 048dd004

: INCREMENT TEST NUMBER
sMMU OFF
;:CLEAR MMU ABORT FLAG
s INIT MMU
;INIT PSU

GLOBAL AREAS
KDU11A MAC
3341

3342
3343
3344
3345
3346
334~
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
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396

MACY11

20 MAR 84

30A(1052)

11:19

20 MAR 84

125

11:31

PAGE

360

PAGE 66

WRITVYEN BIT

016274
016300

012704
004767

172300
000114

MOV

JSR

PC, 1515

016304

004767

000164

JSR

PC,T1S

SEQ OGRS,

TEST

#172300,R4

1SET POINTER

tNOT SET GO TO ERROR
100 RELOCATIONS AND TEST KDPDRS FOR

1PAGE

016310
016316
016322

012737
012704
004767

050000
172200
000072

177776

MOV

1 INIT

€172200,R4
PC,TS1S

004767

000142

JSR

0050387
012737
012704
004767

016354

004767

177776
170000
177600

016374
016400

016404
016410

005037
012704
004767
012704
004767

012704
004767

BEING

100 RELOCATIONS AND

AND

WRITTEN BIT

TEST

BEING

AND

80177776

000044

MOV
JSR

4177600,R4
PC.TS1S

1SET POINTER TO UPDRS
100 RELLOCATIONS AND TEST UIPDRS FOR
+PAGE WRITTEN BIT BEING SET AND IF

000114

JSR

PC,T15

100 RELOCATIONS AND

MOV

2170000,80177776

s INIT

177776
172300

CLR

000162

172200
000152

MOV

177600
000142

SET

AND

TEST

1FOR PAGE WRITTEN BIT BEING CLEARED
1AND IF NOT CLEARED GO TO ERROR

1SET POINTER

PC.T15A

MOV
JSR

TEST UDPDRS #OR

BEING

1SET FOINTER TO XPDRS
{EXPLICITLY WRITE TO KPDRS AND

0172200,R4

JSR

WRITTEN BIT

1SET GO TO ERROR
$INIT PSW TO A KNOWN STATE

0172300,R4
PC.T15A

sCXPLICITLY

TO SPDRS

WRITE

TO SPDRS

AND

TEST

1SET POINTER TO UPDRS
1EXPLICITLY WRITE TO UPDRS AND

TEST

1FOR PAGE WRITTEN BIT BEING CLEARED
$AND IF NOT CLEARED GO TO ERROR

0177600,R4
PC,T1SA

tFOR

PAGE

WRITTEN

BIT

BEING

CLEARED

$1AND IF NOT CLEARED GO TO ERROR
016414

000167

000170

JHP

TISFIN

sROUTINE TO DO RELOCATIONS AND TEST IPDRS FOR PAGE WRITTEN BIT BEING

$SET

016420
016422
016430
016436
016440
016444
016450
016452
016454
016456

000264
001213

016460
016464

062701
020127

005001

012737
012737
011111

005037
022427
001403
104000

]

000020
000001

172516
177572

1515:

1s:

177572
077506

020000
160000

AND

NOT

CLR

MOV
MOV
MOV

CLR

cMp

2%:

SET

REPORT

420,84172516
01.80177572
(R1),(R1)

80177572

(R4).,077506

BEQ
ERROR
.WORD
.WORD

264
MMUERR

ADD

920000,R1

cHP

AN ERROR

R1,0160000

1SET

POCINTER

TO VIRTUAL

1tINIT MMR3
1 TURN MMU ON
s00 A RELOCATION

ADDRESS

tTURN MMU OFF

1 IS DATA EQUAL

TO EXPECTED

s0K GO ON
$ALL ERRORS TO TRAP TQ EMT
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

tNO GO TO ERROR
tPOINT

NOT

PSW

iNOT SET GO TO ERROR

80177776

MOV
JSR

NOT

SDPORS FOR

SET

CLR

177776

NOT

SIPDRS FOR

SET

1SET GO TO ERROR
tINIT PSW TO A KNOWN STATE

+PAGE

016360
016364
016370

WRITTEN BIT

$SET GO TO ERROR

PC,T15

SET

PSW

1PAGE

016332
016336
016344
016350

BEING

1SET POINTER TO SPDRS
100 RELOCATIONS AND TEST

1PAGE

016326

WRITTEN BIT

1SET GO TO ERROR

050000,80177776

MOV
JSR

TO KPDRS

100 RELOCATIONS AND TEST KIPDRS FOR
1tPAGE WRITTEN BIT BEING SET AND IF

TO NEXT

3 ARE WE DONE

VIRTUAL

VECTOR

ADDRESS

NOT

KBOTTA.PAEY 20 ARR1AL01L 18520
At

339

ARLA

016470

MAC

)

Co
O MAR.
B 11:33 PAGE
62\ b1t recy
3

001357

3398 Oled7s 008337

3399
3300

3
sROUTINE

g:gx

2
3403
3404
3405
3406
3407
3408
3409

3410
3411
3412
3413
3414
3415
3416
3417

3418
3258

016474
016476
016502
016510
016516
016520
016522
016526
016532
016534
016536
016540

005001
062704
012737
012737
011146
106611
005037
022427
001403
104000
000265
001213

016542

062701

016546

016552
016554

020127

001356
000207

000002
000027
000001

H
115:

172516
177572

38426
3427
3428
3429
3430
343
3432
3433

3434

3835

3436

3437
3438

3439

177572

020000

2s:

160000

3444

3445
3446
3447

3448

3449
3450

345:
3452

NQ
GQ
TO
IRETORN'
0 !1

TO DO RELOCATTONS AND

CLR
ADD
MOV
MOV
MOV
MTPD
CLR
cHe
BEQ
ERROR
.WORD
.WORD

ADD

cHe

BNE
RTS

R1
02,R4
027,80172516
01,80177572
(R1), -(SP)
(R1)
80177572
(R&)+,077506
2
265
MMUERR

020000, R1

R1, 0160000

18
PC

TEST

DPDRS FOR PAGE

sROUTINE TO EXPLICITLY WRITE

WRITTEN BIT

BEING SET

1SET POINTER TO VIRTUAL ADDRESS
1POINT TO FIRST DPOR
1 INIT MMRS
1 TURN MMU ON
1PUSH DATA ONTO THE STACK
1DO A RELOCATION
i TURN MMU OFF
11S DATA EQUAL TO EXPECTED
10K GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
INO GO TO ERROR
+POINT TO NEXT VIRTUAL ADDRESS
1ARE WE DONE
1NO GO TO 1

1RE TURN

TO PDRS AND

TEST PAGE WRITTEN BIT FOR BEING

iCLEARED AND IF NOT CLEARED REPORT AN ERROR

016556

016560

011414

016562
016566
016570
016572
016574

022427
001403
104000
000266
001213

016576

005202

016604

001365

016600

016606

016610

[]

005002

020227

T1SA:

18:

077406

28:

000020

CLR

cHP
BEQ
ERROR
.MORD
.WORD

(R&).,0877406
28
266
MMUERR

INC

MOV

cHP

BNE

000207

T1SF IN:

RTS

R2,020

100 AN EXPLICIT WRITE

iNO GO

TO POR

:IS DATA EQUAL TO EXPECTED
10K GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
TO ERROR
1 INCREMENT POINTER
{ARE

DONE

iNO GO TO 1%

1RE TURN

$10000000000000008800000000004000000000400000000000000000000000000

1= TEST 26

016610
016610
016614
016620
016624
016630
016634
016642
016646
016652
016656

1CLEAR COUNTER

(R4),(R4)

3
TSMM16:

016610

3440

“‘1
3442
3443

1$;

077506

3421

3425

A&t¢

:AND IF NOT SET REPORT AN ERROR

g:gg
38424

005267
005037

162170
177572

005037
012704
004767

001042
017200
162452

005037
013746

177776
000010

012737

013746
013746

000037

000014
000016

TEST CSM (CALL SUPERVISOR MODE)

l;..‘.‘...“.“.0.‘.‘0.‘0.““..‘..‘.“.‘..“““..0‘
...“..0.‘.O
1ST26:
INC
STESTN
: INCREMENT TEST NUMBER

CLR

172516

80177572

1MMU OFF

CLR
MOV
JSR

DOFLAG
oTMM16E , R4
PC.MMU

1CLEAR MMU ABURT FLAG
2 INIT R4
sINIT MMy

CLR
MOV

80177776
8010, (SP)

15ET PS TO KER MODE
1 SAVE VECTORS

MOV

MOV
MOV

037,80172516

2014, -(SP)
8016, (SP)

1ENABLE CSM INSTRUCTION

:
:

RbITin. AREY
3453

3454
3455
3456
3457
2458
3459
3460
3461
3462
3463

3464

3465
3466
3467
3368
3469
3470
3474
3472
3473

3474
3475
3476
3477
3478
3479
3480

3481
3482
3483
3484
3485
3486
3487
3488
3489
3490

3491
3492

3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508

20"A
A4 390¢18
RA
52) 20 MAR
84

016662
016670
016676
016704
016706
016710
016712

012737
007014
104000
000267
001213

016714
016722
016730
016736
016740
016742
016744

012737
012737
012737
007014
104000
000270
001213

016746
016754
016762
016766
016770
016772
016774
016776
017004
017012
017016
017024
017030
017036
017040
017042
017042
017044
017046

012737
012737

005037

007014
104000
000271
001213

012737
012737
012706
012737
012706
012737
000277

017054
000137
017214

017110
000027
140000

017144

000027
177776

000010

MOV
MOV
MOV
. WORD
ERROR
. WORD
.WORD

000014
000016

000010

172516
177770

000010
172516

TSM16A:

TSM168:

177776

000014

000010

172516
177776

TSM16C:

007024

TSM16D:

104000
000272
001213
000167

000634

017054
017062
017070
017072
017074
017076

042737
022737
001403
104000
000273
001213

007777

005726
005726
000167
042737
022737
001403
104000
000274
001213

MOV

MOV
MOV
. WORD
ERROR
.WORD
. WORD
MOV
MOV

CLR
. WORD
ERROR
. WORD
. WORD

000037
040000
000700
140000

017050

017100
017102
017104
017110
017116
017124
017126
017130
017132

D6
11:9¢51P06h $BaLL suPeRrVISOR MODE)

177776
177776

TMM168:

MOV
MOV
MOV
MOV
MOY
MOV
SCC
. WORD
ERROR
-WORD
.WORD

177604
007777
030000

TMM16C:

7014

267
MMUERR
4TMM16C, 8010
927,80172516
9140000,80177776
7014

270

MMUERR

oTMM16D,8010
027,84172516
80177776
7014

271

MMUERR

037,030172516

040000,80177776
©700,R6
#140000,80177776

0600,R6

014,8010

NEW

]

VECTORS

s TEST INSTRUCTION
JALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

3GO TO ERROR IF NOT

TRAPPED

$sSETUP NEW VECTOR
10ISABLE CSM INSTRUCTION
1SET PS TO USER MODE
s TEST INSTRUCTION
tALL ERRORS TO TRAP TO EMT

tUNIQUE ERROR NUMBER

1 ADDORESS

1GO TO ERROR IF NOT

VECTOR

ERROR MESSAGE

TRAPPED

$SETUP NEW VECTOR
tDISABLE CSM INSTRUCTION
$sSET PS TO KER MODE
: TEST INSTRUCTION
sALL ERRORS TO TRAP TO EMT

tUNIQUE ERROR NUMBER

VECTOR

1 ADDRESS OF ERROR MESSAGE

;GO TO ERROR IF NOT TRAPPED
;ENABLE CSM INSTRUCTION
3SET PS TO SUP MODE
:INIT SUP SP
iSET PS TO USER MODE

: INIT USER SP

:SETUP NEW

VECTOR

;SET ALL CC BITS

7024

272

sUNIQUE ERROR NUMBER

MMUERR

VECTOR

TEST

;ALL

INSTRUCTIGN

ERRORS

1 ADDRESS OF

;GO TO ERROR IF NOT

TRAP

TO EMT

VECTOR

ERROR MESSAGE

TRAPPED

TM16A

8I1C

07777,80177776
00,80177776

; CLEAR UNMWANTED BITS
1 IS PS CORRECT

273

tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

cHP
BEQ

TST

157
177776
177776

OTMM1I6A,8016

1SETUP

JMP

ERROR
- WORD
. WORD

1¢:

@TMM168,8010
#137,8014

SEQ 0068

BIC

BEQ

ERROR

.WORD
. WORD

MMUERR

(SP).
(SP).
TSML6A

*7777,80177776

#30000,30177776
1

274

MMUERR

:YES GO ON

s ADDRESS OF

sNO GO TO ERROR

ERROR MESSAGE

stCLEAN UP STACK
H
sCONTINUE TESTING

1CLEAR UNWANTED BITS

1IS PS CORRECT
sYES GO ON

1ALL

ERRORS

TRAP

sUNIQUE ERROR NUMBER
s ADDRESS OF

TO EMT

ERROR MESSAGE

VECTOR

GLOBAL

ARE AS

KDJU11A .MAC

3509
3510
017134
3511
017136
3512
017140
017144
3513
3514
017152
3515
017160
3516
01.i62
3517
V17164
3518
017166
3519
3520
017170
3521
017172
3522
017174
3523
017200
3524
017202
3525
017202
3526
017204
3527
017206
3528
3529
017210
3530
017214
3531
017222
3532
017224
3533
017226
3534
017230
3535
3536
017232
3537
017236
3538
017240
3539
017242
3540
017244
3541
3542
017246
3543
017252
3544
017254
3545
017256
3546
017260
3547
3548
017262
3549
017270
3550
017272
3551
017274
3552
017276
3553
3554
017300
3555
017304
3556
017306
3557
017310
3558
017312
3559
3560
017314
3561
017320
3562
017322
3563
017324
3564
017326

MACY11

20 MAR 84

005726
005726
000167
042737
022737
001403
104000
000275
001213

005726
005726
000167
156430

30A(1052)

11:19

¢0 MAR 84
126

1s:

177602
007777

177776
177776

020627
001403
104000
000300
001213

177576

TMM16E:
TMM16F
:

000474
070017

023727

017200

022627
001403

104000

000304

001213

177776

000572

017202

022627
001403
104000
000303
001213

PAGE 69
TEST CSM (CALL

TST
TS7
JMP
8IC
cHe
BEG
ERROR
.WORD
.WORD
TST
TS7
JMP

.WORD

ERROR
.WORD
.WORD

020427
001403
104000
000301
001213

001403
104000
000302
001213

TMMI6D:

1s:

104000
000276
001213
000167
022737
001403
104000
000277
001213

11:31

TMM16A:

1s:

2%:

156430

3s:

JMF

cvp
BEQ
ERROR
.WORD
. WORD
cHpP
8EQ
ERROR
. WORD
. WORD

017042

S$:

(S:)o
(SP).

1CLEAN UP STACK
3

TSM168

sCONTINUE

TESTING

sCLEAR UNWANTED BITS

1YES GO ON

00,80177776

+IS PS CORRECT

sALL ERRORS

275

(SP).
(SP)e

TSM16C
156430

sALL ERRORS

TRAP

tUNIQUE ERROR NUMBER

+IS PS

CORRECT

s YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER

MMUERR

s ARDDRESS OF ERROR MESSAGE

sNO GO TO ERROR

+IS SP CORRECT

-3 ]

$YES GO ON

300

sUNIQUE ERROR NUMBER

sALL ERRORS TO TRAP TO EMT VECTOR

MMUERR

207""16E.0156430
$

.WORD
. WORD

302

MMUERR

(SP).,2156430

303

MMUERR

(SP)+,0TSM16D

304

MMUERR

VECTOR

s ADDRESS OF ERROR MESSAGE

277

301

TO EMT

;GO TO ERROR IF DION'T ABORT

VECTOR

sCONTINUE TESTING
s TEST LOCATION

€70017,86177776

R4 ,0TMMIGE .2

TO EMT

1 ADDRESS OF ERROR MESSAGE

MMUERR

R6,0572

TRAP

1NO GO TO ERROR
sCLEAN UP STACK
H

276

TM16A

tUNIQUE ERROR NUMBER

MMUERR

cHP
BEQ

cHP
8eqQ
ERROR
.WORD
. WORD

iNO GO TO ERROR

07777.,80177776

MMUERR

cMP
8EQ
ERROR
. WORD
. WORD

SEQ 0069

SUPERVISOR MODE)

crHpP
8EQ
ERROR
.WORD
. WORD

ERROR

156430

:NO GO

; ADDRESS OF

0 ERROR
:IS R4

ERROR MESSAGE

CORRECT

;YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

sNO GO TO ERROR

: IS TEST LOCATION OK
s YES GO ON
tALL ERRORS TO TRAP TO EMT

+UNIQUE ERROR NUMBER

VECTOR

{ ADDRESS OF ERROR MESSAGE

t1NO GO TO ERRQR

$1IS STACK CORRECT

:YES GO ON

tALL ERRORS TO TRAP TQO EMT
sUNIQUE ERRNOR NUMBER

1ADDRESS OF

iNO GO TO ERROR

VECTOR

ERROR MESSAGE

+IS STACK CORRECT

s YES GO ON
sALL ERRORS

3 ADDRESS OF

ERROR MESSAGE

TRAP

{UNIQUE ERROR NUMBER

TO EMT

VECTOR

GLOBAL AREAS
KDJ11A .MAC

3565
3566
3567
3568
3569
3570
3571
35872
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
610
3611
3612
3613
3614
3615
3616

3617
3618
3619
3620

017330
017334
017336
017340
017342

017344
017350
017356

017362
017364
017366
017370
017372
017400

017406
017414
017427

017424

017426
017434
017436
017440
017442
017444

MACY1l

20 MAR 84

022627
001403
104000
000305
001213

30A(1052)

11:19

012706
012737
020627
001403
104000
000306
001213

000700
140000
000600

012767
012737
012737
012737
010701
007014
022737
001403
104000
000307
001213

077400
017202
000001
000001

000000

64:

177776

152600
000016
001042
177572

001076

017460
017466
017470
017472
017474

023727
001403
104000
000311
001213

001072

017476
017504

012737
012737
012706
012737
012706
012737
012737
000277
007027
045712

000037
040000
000700
140000
000600
000014
017564

PAGE
TEST CSM

cHP
BE
i«
ERROR
.WORD
. WORD
MOV

MOV
cMP
BEQ
ERROR
. WORD
.WORD
as:

MOV

MOV
MOV
MOV
MOV
. WORD
cMP

001042

9¢:

cHP
8EQ

ERROR
. WORD

.WORD

100041

10¢:

cHP
BEG

ERROR
. WORD
. WORD

172516
177776

11%:

177776
000010
000016

MOV
MOV
MOV
MOV
MOV
MOV

MOV

TS16A:

104000
000312
001213
000167
022737

7%:

11:31

BEQ
ERROR
. WORD
. WORD

023701
001403
104000
000310
001213

017560
017564

126

140000

017450
017452
017454
017456

017512
017516
017524
017530
017536
017544
017546
017550
017552
017552
017554
017556

20 MAR 84

SCC
. WORD
.WORD

ERROR

.WORD
. WORD

000124

070017

177776

1S16:

JHP

cHe

70
(CALL

F6
5EQ 0070

SUPERVISOR MODE)

iNO GO

gSP)°.014000O
$

1 YES GO ON

305

tUNIQUE

1ADDRESS

2700,R6
#140000,80177776
R6, 4600

3C6
MMUERR
277400, SIPDRO
OTMM16F , 8016
01, B0FLAG
01,80177572

R7,R1
7014

+IS STACK CORRECT

;ALL ERRORS TO TRAP TO EMT VECTOR

MMUERR

TO ERROR

ERROR NUMBER

tNO GO TO ERROR

ERROR

MESSAGE

sRESTORE Sup sSP
1SET PS TO USER MODE
1IS USER SP CORRECT

s YES GO ON

$ALL ERRORS TO TRAP

:NO GO TO ERROR

1SETUP SIPDRO TO ABORT
iSETUP VECTOR
:SETUP FLAG FOR AN ABORT
: TURN MMU

:SAVE OLD PC
: TEST INSTRUCTION

00, BOFLAG
98

sDID AN ABORT OCCUR
:YES GO ON

307

sUNIQUE ERROR NUMBER

MMUERR
S0SAVMR2,R1

10%

310
MMUERR

88SAVMRO, #100041
113

311
MMUERR
037,30172516

240000,a0177776
#700,R6
0140000, 84177776

2600, R6

sALL ERRORS TO TRAP TQ EMT VECTOR

sADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

1 IS MMR2 CORRECT

i YES GO ON

:ALL

ERRORS

TRAP

TO EMT

VECTOR

10 ENT

VECTOR

: IS MMRO CORRECT

:YES GO ON
sALL ERRORS

TRAP

:UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR
sENABLE

CSM

iSET PSW TO SUP
1SETUP SUP SP
iSET PSW_TO USE

sSETUP USE SP

7027
as712

1 TEST

312

JUNIQUE ERROR NUMBER

M16A
#70017,30177776

VECTOR

iNO GO TO ERROR

:SETUP NEW VECTOR
sSETUP NEW VECTOR

TO EMT

UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

14,8010
07516,8016

MMUERR

TO EMT VECTOR

sUNIQUE ERROR NUMBER
1tADDRESS OF ERROR MESSAGE

:SET _ALL CC BITS

1ALL

INSTRUCTION

_ERRORS

1ADDRESS OF

TRAP

ERROR MESSAGE

1GO TO ERROR IF DION'T

3 IS PSW CORRECT

TRAP

LLOBAL AREAS
KDJ11A, MAC

3621
3622
3623
3624

3625
3626
3627
3628
3629
3630
3631
3032
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644

3645
3646

3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3558
3659
3660
3661
3662
3663
3664
3665
3666
3667

017572
017574
017576
017600
017602
017606

017610
017612
017614

20"3251545??‘: 1§52 20 Mar,
g4 1:385PREE baLL SUPERVISOR MODE)
001403
104000
000313
001213

020627
001403
104000
000314
001213

BEQ
ERROR
.WORD

.WORD

000572

022627
001403
104000
000315
001213

045712

017632
017636
017640
017642
017644

022627
001403
104000
000316
001213

017552

017662
017666
017674
017700
017702
017704
017706
017710
017714
017720
017724
017730
017734

022627
001403
104000
000317
001213

012706
012737
020627
001403
104000
000320
001213
005037
005067
005067
012637
012637
012637

cMP
BEQ

ERROR
. WORD
.WORD

017616
017622
017624
017626
017630

017646
017652
017654
017656
017660

2008
:

201¢:

202%:

140000

000700
140000
000600

177776
157652
152572
000016
000014
000010

203s:

177776

204%

cMP
BEQ
ERROR
.WORD
.WORD
cMp
BEQ
ERROR
. WORD
.WORD

cHP
BEQ
ERROR
.WORD
. WORD
MOV
MOV

cHP
BEQ
ERROR
- WORD
. WORD
TM16A:

CLR
CLR
CLR
MOV
MOV
MOV

2008

313

2034

s ADDRESS

TRAP

TO EMT

;ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
; ADDRESS

:NO GO TO ERROR

ERROR MESSAGE

sIS STACK CORRECT
:YES GO ON

;ALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER

;ADDRESS

+NO GO TO ERROR

R6, #600
TM16A

320

:UNIQUE ERRCR NUMBER

;ALL ERRORS TO TRAP TO EMT VECTOR

MMUERR

(SP).,a014

(SP),,ae10

VECTOR

ERROR MESSAGE

sRESTORE SUP SP
:SET PSW TO USER MODE
;IS USER SP CORRECT
:YES GO ON

SR3

VECTOR

;YES GO ON

MMUERR

(SP)., 8416

VECTOR

tNO GO TO ERROR
$IS STACK CORRECT

317

80177776
SRO

VECTOR

ERROR MESSAGE

$YES GO ON
;ALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

MMUERR

#700,R6
2140000,80177776

70O EMT

:iNO GO TO ERROR
+1S STACK CORRECT

316

(SP)+,0140000
204

ERROR MESSAGE

TRAP

1UNIQUE ERROR NUMBER

315
MMUERR

(SP)«,aTS16A

1 ADDRESS

$IS SP CORRECT
$YES GO ON
;ALL ERRORS TO

MMUERR

(SP).,045712

:NO GO TO ERROR

314

202

i1 YES GO ON
$ALL ERRORS

tUNIQUE ERROR NUMBER

MMUERR

R6,0572
2018

SEQ 0071

:NO GO

$ADDRESS OF

TO ERROR

ERROR MESSAGE

:SET PS TO KER MODE
:TURN OFF MMU

:TURN OFF 22 BIT ADDRESSING,

;RESTORE VECTORS
H
3

I & O SPACE

GLOBAL

ARE AS

KDJ11A .MAC

MACY11

20 MAR 84

30A(1052)

11:19

Fy
<O MAR 84
T26

3668

3669
3670
3671
3672
3673
3674
3675
3676
3677

3678

3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699

3700
3701
3702

3703
3704
3705

3706
3707

3708
3709
3710
3711
3712
3713
3714
3715
31716
3717
3718
3719
3720
3721

3722
3723

11:31
PAGE 72
TEST CSM (CALL

.MCALL
.SBTTL

SEQ 0072

SUPERVISOR MODE)

IDMSG,ENDPAS
END OF PASS RQUTINE

§58084080040000000000002000000

000000000000088080044000000000

s INCREMENT THE PASS NUMBER ($PASS)
:*INDLCATE END OF PROGRAM AFTER 1 PASSES THRU THE PROGRAM

017740

017740
017744

017746

017752
017752
017756
017764
017766
017770
017772
017774
017776

020000

020004
020010
020012
020016
020022
020024
020026
020030
020032
020034
020036
020036
020040
020042
020046
V20054
020062

020070

020076
020104
020112
020120
020125
020132
020140
020146

005767
001002
104401

005267
042767
005327
000001

003022
012737
000001
017766
104401

016746
104405
104401
013700
001405
000005
004710
000240
000240
000240

000137
002066
377
020046
005015
026513
042113
042515
046440
046505

044504

052123
015
045504
020104
021440
020152

;o¢IF

THERES

;IF

THERE

$EOQP:

161042
020046

161030
100000

SKIPID:
161022
$SEOPCT:

$ENDCT:

020125
160776

TST
BNE

TYPE

INC
BIC
DEC

.WORD

B8GT

$GET42:

$ENDAD:

$DOAGN:;

MONITOR
JUMP

RESTART

;ONl
Y TYPE MESSAGE AT END OF FIRST PASS
:IF >0 THEN SKIP THE ID MESSAGE
tELSE TYPE THE ID MESSAGE

$PASS
£100000, $PASS
(PCH.
1

$DOAGN

(PC)+ ,8(PC)
1

TYPE
MOV

. SENULL
8042 ,R0

BEQ

RESET
JSR
NOP

MSG2
$PASS,

$DOAGN

PC,(RO)

NOP
NOP

(SP)

: s INCREMENT THE PASS NUMBER
s3sDON'T ALLOW A NEG. NUMBER
3 :LOOP?

s YES

$ ;RESTORE

s $SAVE

COUNTER

$PASS FOR

TYPEOUT

::G0O TYPE- DECIMAL ASCII WITH SIGN
:3GET MONITOR ADDRESS

: sBRANCH IF NO MONITOR

1 ;CLEAR THE WORLD
:3GO TO MONITOR
: $SAVE ROOM

s sFOR
;:ACT1:

042113
020060
020061
054522
043501
020124
047516

MSG1:

.EVEN
<ASCIZ

045532
047105
051523

MSG2:

-ASCIZ

.EVEN
.SBTTL

TYPE ROUTINE

.BYEE

.MSG1

JMP
.WORD

SENULL :

$PASS
SKIPID

$SRTNAD:

377

MOV
,WORD
$EOPCTY
TYPE
MOV

TYPODS

020042
000042

055103
026502
030512
047515
047101
047105
043501
041511
041412
020102
040520
000

ISN'T

4000000

(PC).
RESTART

-1,-1,0

; :RETURN

s sNULL CHARACTER STRING

<CR><LF>/CZKDK B O KDJ11 MEMORY MANAGEMENT DIAGNOSTIC/

<CR><LF>/CZKDKB END PASS

$30000000000044000000000000004000000400000080080

000000000080008048

s#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;¢THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

GLOBAL ARE AS
KOJ11A MAC

L b
'~

MACYL]l 30A(1052)
20 MAR 84 11:19

20 MAR 84
11:31
PAGE
TYPE ROUTINE

3724

;oNOTEL:

73
SNULL

By 7
CONTAINS

THE

CHARACTER

USED

THE

FILLER

CHARACTER.

3725
3726
3227
3728
3729
3730
3731

; eNOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRE
D,
;sNOTES:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
;e
;sCALL:
;1) USING A TRAP TNSTRUCTION
;e
TYPE
.MESADR
1 sMESADR IS FIRST ADDRESS OF AN KSCIZ STRING
; «OR

3733
3734
3735

;s
;e

MESADR

$TYPE:

TST8B
8PL

37382

3736
3737

3738
3739
3740

3741

3742
3743
3744

3745
3746
3747

3748

3749
3750

3751
3752

3753
3754

3755

3756
3757
3758

3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774

g;;z

020152
020156

020160
020162
020164

020166

020172
020200
020202

020210
020212
020216

020222

020224
020232

020234
020236

105767
100002

000000
000430
010046

017600

122767
001011
132767

001405
010067
004767

000000

132767
001003

000001

160620

000100

160611

160567

61¢:
62%:

062716

000002
122716

001430

020260
020264
020266
020270
020272
020274
020300
020302
020306
020312
020314

122716
001006
005726
104401
001277
105067
000755
004767
126726
001350
016746

020320
020324
020326
020332

105366
002770
004767
105367

000770

000002

000011

as:

000202

000056
000206

S$:
6%:

000176

000001

BEQ
MOV
JSR

7%:

000032
000144

$TPFLG
1
3
RO, -(SP)

IF NO TERMINAL

$3NO,GO CHECK FOR CONSOLE
: :SETUP MESSAGE ADDRESS FOR
: ;SPOOL MESSAGE TO APTY

(RO).,-(SP)
43

ASCIZ

STRING

s sIRUNNING IN APT MODE
1:NO,.GO CHECK FOR APT CONSOLE
; ;SPOOL MESSAGE TO APT

1 ;sMESSAGE ADDRESS

s $PUSH CHARACTER TO BE TYPED ONTO STACK
$:BR IF IT ISN'T THE TERMINATOR

(SP).
(SP).,RO

$sIF TERMINATOR POP
1 iRESTORE RO

T, (SP)

1 :RETURN
: :BRANCH IF

82,(5P)
8s

24
PC,STYPEC
$FILLC,(SP).
24
SNULL, (SP)

DECB
BLY
JSR
DECB

1(sP)
6
PC,.S$TYPEC
$CHARCNT

QCRLF ,(SP)
St
(SP)e
$CHARCNT

OFF

112716

000040

8s:

MOVB

STACK

<HT>

: sBRANCH IF NOT

<CRLF>

1:POP
<CR><LF> EQUIV
1:TYPE A CR AND LF
s sCLEAR CHARACTER COUNT

:1GET NEXT CHARACTER
1360 TYPE THIS CMARACTER
$3IS IT TIME FOR FILLER CHARS.?
1sIF NO GO GET NEXT CHAR.
:31GET 0 OF FILLER CHARS. NEEDED
:3AND THE NULL CHAR,
+1DOES A NULL NEED TO BE TYPED?
$1:BR IF NO--GO POP THE NULL OFF OF STACK
;:GO TYPE A NULL
$ :00 NOT COUNT AS A COUNT

s :LOOP

(SP)

THE

s sADJUST RETURN PC

;HORIZONTAL TAB PROCESSOR
020340

APT

QAPTCSUP, $ENVM ; ; APT CONSOLE SUPPRESSED
604
;s YES,SKIP TYPE OUT

cMeg
8NE
TST
TYPE
SCRLF
CLRB
B8R
JSR
cMPB
BNE
MOV

s sHALT HERE
3 ;LEAVE
1 3SAVE RO

TERMINAL?

6283
RO,618
PC,$ATYS

MOVB
BNE

RTI
P8

THERE A
IF YES

33GET ADDRESS OF

QAPTENV, SENV
62%
QAPTSPOOL
, $ENVM

TST
MOV
ADD

;3IS
1:BR

82(SP).RO

. WORD

BIT8
BNE

BEQ

000200

g;;g
3779

cMPB
BNE
8IT8

000004
001622
000040

HAL Y
8R
MOV

MOV

604 :
3s:

020250
020252

020336

18:

2s:

005726
012600

020256

000002

112046
001005

020240
020242

020244

000343

TYPE

1 sREPLACE

TAB WITH SPACE

GLOBAL AREAS
KDJ11A MAC
3780
3781
3782
3/83

3784

378S

3786
3787
3788
3789
3790
3791
3792

3793
3794
3795

3796

3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835

020344

020350
020356

020360
020362
020364

020364
020370
020372
020376
020402
020406
020410
020410
020414
020416
020422
020426
020432
020434
020434
020436
020436
020442
020444
020452
020460
020462
020466
020470
020476
020500
020502
020504
020506
020510
020512
020514
020516
020517
020520
020521
020522
020523

MACY11

20 MAR 84

004767

132767

001372

30A(1052)

11:19

000014
000007

20 MAR 84

TYPF

000124

11:31

ROUTINE

9s:

005726
000724

105777
100022

017746
042716

122716
001012

105777
100375
117716

042716

122716
001366

$TYPEC:

000116

000112
177600
000023
101s:

000072
000066

177600
000021

1024
:

005726

105777
100375
116677
122766
001003
105067
000406
122766
001402
105227
000000
000207
177560
177562
177564
177566
000
002
012
0N
077
012
020526

10¢:

000050
000002
000015

000042
000002

000

000002

JSR
8IT8
BNE
TST

1$:

SEQ 0074

PC,STYPEC
@7, SCHARCNT
9s
(SP).

1:TYPE

SPACE

$ sBRANCH IF NOT AT
::TAB STOP
: :POP SPACE OFF STACK
$;GET NEXT CHARACTER

B8R

1ST8
BPL
MOV
8IC
crHPB
BNE

83 TKS
108
8$TKB, -(SP)
#177600,(SP)
OIXOFF ,(SP)
102

s+ sCHAR IN KYBD BUFFER?
:3:BR IF NOT

1S18
BPL
MOV8
8IC
P8
BNE

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

TST

:MJDOO1
sMJD001
;MJDOO1
:MJD001
s MJD001L
:MJDO0O1

;;GET CHAR
: : STRIP EXTRANEOQOUS BITS
; s WAS

CHAR

XOFF

;s sWAIT

FOR

CHAR

;3GET

CHAR

(SP).

s :FIX

STACK

TST18

88TPS

;sWALIT UNTIL PRINTER IS READY

MOVB
g:fl

2(SP),83TPB
:(‘:R ,2(SP)

CLRB

$CHARCNTY

i iLOAD CHAR TO BE TYPED INTO DATA REG.
::IS CHARACTER A CARRIAGE RETURN?
; iBRANCH IF NO
$13YES
CLEAR CHARACTER COUNT

cHPe

oL
, 2(SP)
F

:3IS CHARACTER A LINE FEED?

INCB

(PC)»

3 sCOUNT THE CHARACTER

8PL

000014
000012

PAGE

BEQ

$TYPEX

::BR

I NOT

:MJ0001L
; MUD001

s3STRIP IT
3 3WAS IT XON?
:3BR IF NOT

S$TYPEX

: :BRANCH IF

YES

; :CHARACTER COUNT STORAGE

$TKS:
$TKB:
$TPS:
$TPB:
$SNULL:
SFILLS:
$FILLC:
STPFLG:
$QUES:
$LF:

177560
177562
177564
177566
0
2
12
0
2~
«12>

$:7TY
3377y
+:TTY
+:TTY

LSBTTL

KDB STATUS
:MJDOO1
KBD BUFFER
:MJDOO1
PRINTER STATUS REG. ADDRESS
PRINTER BUFFER REG. ADDRESS

1 sCONTAINS NULL CHARACTER FOR FILLS

1 sCONTAINS @ OF FILLER CHARACTERS REQUIRED
+ 1 INSERT FILL CHARS. AFTER A "LINE FEED’
3 "TERMINAL AVAILABLE” FLAG (BIT<07>20=YES)
s sQUESTION MARK
t sLINEFEED

5388885005 00004000000000004000000080000000

s#THIS ROUTINE

IS USED

080400000000000000000000

CHANGE

16-BIT

BINARY

NUMBER

BINARY

NUMBER ON

A S-DIGIT

s¢SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHE THER THE
s SNUMBER IS POSITIVE OR NEGATIVE A 3PACE OR A MINUS SIGN WILL BE TYPED
;#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
i sREPLACED WITH SPACES.
;eCALL
;
HRd
MOV

;MJD0O1

s 3EXIY

$CHARCNTY: .WORD
$TYPEX: RTS
. WORD
. WORD
.WORD
.WORD
.BYTE
.BYTE
.BYTE
.BYTE
.ASCITI
LASCIZ
EVEN

sMJUD001
;MJDOO1
;:MJ0001
;MJCO001
:MJD0O1
;1J0001
:MJDOO1
;MJUD001

NUM, -(SP)

1iPUT

THE

STACK

GLOBAL

ARE AS
KDJ11A, MAC

3836
3837
3838
3839
3840
3841
3842
3843

3844

3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865

3866

3867
3868
3869
3870
3871
3872
3873
3874
387S
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888

3889
3890
3391

MACY11

20 MAR 84

30A (1052)

11:1
: 19

1<y
20 MAR 8a
11: 3 1
PAGE 75
C ONVERT BINARY TO DECIMAL
L

020526
020526
020530
020532
020534
020536
020540
020544
020550
020552
020554
020562
020564
020570
020574
020576
020602
020604
020606
020610
020612
020614
020616
020620
020622
020624
020626
020630
020636
020642
020646
020650

020652
020656
020660
020662
020664

020666
020670
020672
020700
020702
020704
020706
020710
020712
020714
020720
020726
020730
020732
020734
020736
020740

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005792
001002

$TYPDS:

020200
000020
000055

1s-

020742
000040

2%:

020732

3s:

4%
:

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
000002
023420

001750
000144
00C012

S$:
000001
000060
000040

TYPDS

MOV
MOV
MOV
MOV
MOV
MOV

MOV

000001

177777

6%:
78:

8PL
NEG
MOVB

CLR
MOV
MOVB
CLR
MOV
Su8
BLT
INC
B8R

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3, (SP)
R5, (SP)
920200, -(SP)

20(SP),RS
18

RS
&' -,1(5P)
RO
#4DBLK ,R3
&
,(R3).
R2
$0TBL(RO),R1
R1.RS
43

ASLB

177777

1(SP), -1(R3)

#'0,R2

(RO).

020742
000002

177776

i :PUSH R2 ON STACK
:1PUSH R3 ON STACK

$3PUSH RS ON STACK

$31SET BLANK SWITCH AND SIGN
s :GET THE INPUT NUMBER
;38R IF INPUT IS POS.
: 1MAKE
$ sMAKE

THE
THE

s sZERO THE CONSTANTS INDEX
$:SETUP THE QUTPUT POINTER
$sSET THE FIRST CHARACTER TO A BLANK
s sCLEAR THE BCD NUMBER
s:GET THE CONSTANT

1 :FORM

::BR

THIS BCD DIGIT

IF DONE

1:BR

$3YES

-SET THE SIGN

s sMAKE THE 8CD DIGIT
$3MAKE IT A SPACE IF
$3PUT THIS CHARACTER

sDTBL:

ASCII
NOT ALREADY A DTGIT
IN THE OUTPUT BUFFER

$ 3 JUST INCREMENTING
s sCHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
$:GO0 TO ExIY
::GET THE LSO
:3GO CHANGE TO ASCII

s iWAS

THE LSD

THE FIRST

NON ZERQ?

:sYES--SET THE SIGN FOR TYPING
s:SET THE TERMINATOR
: 3POP STACK INTO RS

:11POP STACK INTO R3
;sPOP STACK INTO R2
13POP STACK INTO R}
3 :POP STACK INTO RO
13NOW TYPE THE NUMBER
: :ADJUST THE STACK

000004

IF NO

::BR IF NO

9%:

BINARY NUMBER POS.
ASCII NUMBER NEG.

:1MSD?

RO, 010
2%
84
R5,R2
8s:

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

; :ADD BACK THE CONSTANT
; :CHECK IF BCD DIGIT=0
:sFALL THROUGH IF O
::STILL DOING LEADING 0°'S?
::BR IF YES

BNE
1S78
BMI

MOvB

SEQ 0075

ROUTINE

s s INCREASE THE BCOD DIGIT By

ADD
ST

8CC

TYPE

+3G0 TO THE ROUTINE

R2,(R3).
000010

AND

1 :RETURN

TO USER

GL OBAL AREAS
KDJL.1A
MAC
3892
3893

020742

MACY11

20 MAR

30 A(1052)
84 11:
1:19

000004

$0BLK ;

.BLKW

.SBTTL

3894

3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913

BINARY

AND TYPE ROUTINE

>£Q 0075

TO OCTAL (ASCII) AND TYPE

$58800400000000000000400000000

;#THIS ROUTINE IS USED
;#OCTAL (ASCII) NUMBER
;.éYYPOS--

ENTER

HERE

;oCALL:

MOV

000000000000008000000000080060

CHANGE

AND

TYPE

IT.

SETUP

NUM, -(SP)

TYPOS

808806

16-BIT

SUPPRESS

.BYTE

:sN=1

FOR

:sM=*1

]

021032
021034

021040

021044
021050
021054
021056

021060
021062
021064
021066

021070
021072
021074
021100
021102
021106
021110

017646
116667
112667
062716
000406
112767
112767
112767
010346
010446
010546
116704
005404
062704
110467
116704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105367
100016
042703
001002
005704

000001
000207
000002

000211

000001

000171
000165
000154

000005

$TYPOS:

---ENTER HERE
OR $TYPOC

MOV
TYPON

;8$TYPOC

020752
020756
020764
020770
020774
020776
021004
021012
021020
021022
021024
021026

MOV

TYPOC

$TYPON:

MOV

MOove

177770

TYPEOUT

NUM, -(SP)

ADD

MOVB
MOV

CLR

ROL
BR
ROL
ROL
ROL
MOV
ROL

DECB
8PL
BIC
BNE
TsT

WITH

FOR

(SP)+,$OMODE+1

R3,-(sSP)
R4, -(SP)
RS, -(SP)

THE

NUMBER

SAME

BIT

LEADING

DIGITS

FOR

PARAMETERS

THE

: :PICKUP THE MODE
$:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
: sADJUST RETURN ADDRESS

$3SET THE ZERO FILL SWITCH
:3SET FOR SIX(6) DIGITS
::SET THE ITERATION COUNT

: i SAVE R3

: iSAVE R4
: i SAVE RS

::GET THE ZERO FILL SWITCH
s 1PICKUP THE INPUT NUMBER

RS
3
RS
RS
RS
RS ,R3
R3

s ;:ROTATE MSB INTO
: ;GO DO MSB
s ;FORM THIS DIGIT

:1:GET THE NUMBER OF DIGITS TO TYPE
IT FOR MAX.

s:SAVE IT FOR USE

: sCLEAR THE OUTPUT WORD

:+3GET LSB OF

"C*

THIS OIGIT

13 TYPE THIS DIGIT?
::BR IF NO
$:GET RID OF JUNK
;:TEST FOR O

3 : SUPPRESS

TYPE

THIS 0?

TYPE

ZEROS

TYPED

$OFILL R4
12(SP),RS

$ OMODE
78
8177770,R3
44

TYPEOUT

;s iSUBTRACT

ZEROS

LEADING

$OMODE+»1,R4
R4
06 R4

R4, $OMODE

DIGITS

NUMBER

: sNUMBER TO BE

.;CALL

02,(SP)
$TYPON
21,80FILL
86, $OMODE - 1
45, $OCNT

000132
000125
000012

3s:

FOR

ADD
8R
MOVB
MOvB
MOVB

MOVB
NEG

000076

HERE

OUT

6-DIGIT

: sNUMBER TO BE TYPED
;;CALL FOR TYPEOQUT

3(SP), -(SP)
1(SP), $OFILL

000145

2%:

TYPE

MOV
MOVB

MOV
MOV

1s:

NUM, -(SP)

--ENTER

MOVB

$TYPOC:

; 10=SUPPRESS

;»CALL:
is
)

NUMBER

TYPED

;:1=TYPE

;o8TYPON
;#$TYPOS

TYPEOQUT

CR O

1 &

;«CALL:
;s

NUMBER

AND

1 sNUMBER TO BE

:;CALL

BINARY

ZEROS

3914

3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947

20 MAR 84
PAGE 76
11:31
c ONVERT BINARY 10 DECIMAL

ALLOWED

LAST

GLOBAL

AREAS

KDJ11A .MAC

3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966

3967
3968
3969
3970
3971
3972
3973

0211.2
021114
021116
021122
021126
021132
021136
021142
021144
021146
021150
021152
021154
021156
021160
021166
021170
021172
021173
021174
021175
021176

MACY11

20 MAR 84

001403
005204
052703
052703
110367
104401
105367
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

30A(1052)
11:19

20 MAR 84

000060
000G40
000040
021172
000032

5§

7%:

6s:
000002

000004

4000
4001
4002
4003

PAGE

BINARY 10 OCTAL (ASCII) AND TYPE

BEQ
INC

BIS
BIS
MOVB

TYPE
DECB

BGT
8LT
INC
8R
MOV
MOV
MOV

¢'0,R3
2
,R3
R3,8$
.88
$OCNT

2
63
R4
23
(SP)+,RS
(SP)+,.R4
(SP)+,R3

MOV
2(5P),4(SP)
MOV
(SP)+,(SP)
RTI
8s:
.BYTE
0
.BYTE
©
$OCNT:
.BYTE
O
$OFILL: .BYTE
O
$OMODE: .WORD
0
.SBTTL
TTY INPUT ROUTINE

SEQ 0077

::BR IF YES
:3DON'T SUPPRESS ANYMORE 0'S
: iMAKE
: sMAKE

THIS DIGIT ASCII
ASCII IF NOT ALREADY

1 ; SAVE FOR TYPING
$:6G0 TYPE THIS DIGIT
: tCOUNT BY 1

:13BR

IF MORE

TO DO

: 1BR IF DONE
: s INSURE LAST DIGIT ISN‘'T A BLANK
::GO DO THE LAST DIGIT
: sRESTORE RS
: sRESTORE R4

: sRESTORE

$:SET THE STACK FOR RETURNING

s sRETURN

:sSTORAGE FOR ASCII DIGIT

53 TERMINATOR FOR

TYPE ROUTINE

; s0CTAL DIGIT COUNTER
+:ZERQ FILL SWITCH
s iNUMBER OF DIGITS TO TYPE

H ;““““.“““t‘.““““.“‘t‘.“““

.ENABL.

3974

3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

11;31

i[w

“tt““‘..“-‘t“t‘t.t“

LSB

$30800000000 0400000000000 00000 000000
0000000

0RRAKA

1 #SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

+*ROUTINE

021200
021206
021210
021214
021216
021222
021226
021232
021234

021242

022767
001074
105777
100071
117746
042716
022726
001062
126727
001456

000176
177272

177266
177600
000007
000514

021244
021250
021254
021260
021262
021266
021270
021272
021276

104401
005046
005046
105777
100375

021743

021300
021304

117746
042716

177204
177600

104401
104401
016746
104402

157640

021725
021732

156716

TRAP HANDLER,

\bP50Se

AND WILL

s#SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
i *WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: CMP
@SWREG, SWR
;3IS THE SOFT-SWR SELECTED?
BNE
15¢
; ;BRANCH IF NO
7S78
8$TKS
; sCHAR THERE?
8PL
158
s:IF NO, DON'T WAIT AROUND
MOV
83TKB, -(SP)
i :SAVE THE CHAR

000001

$GTSWR:

19¢:

177210

IS ENTERED FROM THE

7%:

BIC
CcMP
BNE
)
BEQ

OtC177,(SP)
87,(SP)+

TYPE
TYPE

« $CNTLG

MOV

TYPOC
TYPE

CLR
CLR

TST8B

BPL

MovB

BIC

$SAUTOB,
21

. SMSWR

SWREG, -(SP)

« SMNEW
-(SP)
-(SP)

83 TKS

::STRIP-OFF THE ASCII

3:IS IT A CONTROL G?

:iNO,

RETURN TO USER

: sARE WE RUNNING IN AUTO MODE?
; :BRANCH IF YES

; sECHO THE CONTROL G (tG)

1: TYPE

3 :SAVE

CURRENT

CONTENTS

SWREG FOR

TYPEQUT

:16G0 TYPE--OCTAL ASCIICALL DIGITS)
: :PROMPT FOR NEW SWR
; sCLEAR COUNTER

;1 THE NEW SWR

;: ;CHAR THERE?
s3IF NOT TRY AGAIN

a83TKB, -(SP)
atC177,(SP)

s sMAKE

;:PICK UP CHAR
IT

7-BIT

ASCII

GLOBAL

AREAS

KDJ11A. MAC

4004
4005
4006

021310

4007
4008
4009
4010

021314
021316
021322
021326

4013

021330
021334
021336
021342
021344
021352
021356
021362
021370
021372
021400
02ia0¢
021406
021412
021414
021420
021422
021426
021432
021434
021436
021440
021442
021446
021452
021454
021460

4011
4012

4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4vcd
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042

4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
40353
4054
4055
4056
4057
4058
4059

MACY1

20 -MAR

021627
001005
104401
062706
000757
021627
001022
005766
001403
016677
062706
104401

126727
001003
012777

000002

004767
021627
002420
021627
003015
042726
005766
001403
00€316
00316
006316
005266
056616
000707
104401
000720

30A(1052)
11:19

0 MAR_84

000025

9s .

PAGE

cMP

BNE

021720
000006

20s:

000015

10%:

TYPE

157474

001277
000367

000001

000100

177106

176756
000060

11$:
14$:

15¢:
16$:

000067
000060

020522

18$:

.DSABL

10%

. SCNTLU

(SP), 015

TST
BEQ
MOV
ADD
TYPE
cMPB

a(spP)
11

JSR

PC, $TYPEC

BLY

184

BNE
MOV
RTI

cMP

17%:

(SP), 025

cHP

BEQ

000002
177776

SEQ 0078

26, SP
19

cMP
BGT
8IC

000002

ADD
BR

BNE

000002

MAR 8T 1RBOT R0l TRe 78
:

ASL
ASL
ASL

INC
8IS
BR
TYPE

B8R

LSB

16%

2(SP),85uR
#6,SP
. $CRLF
$INTAG01
,

15¢
€100,8$TKS

(SP), 060

(SP), 067
183
960,(SP).

2(SP)

17%

(SP)
(SP)
(SP)

2(SP)
-2(SP),(SP)
7
« SQUES

204

i3IS IT A CONTROL -U?
: sBRANCH IF NOT

$sYES,

ECHO

CONTROL

(tW)

; : IGNORE PREVIOUS INPUT

;3LET'S

TRY

AGAIN

::IS IT A <CR>?
: ;BRANCH IF NO
;s YES, IS IT THE FIRST CHAR?

s ;BRANCH IF YES
1 ;SAVE NEW SWR

s:CI.LEAR UP STACK
:sECHO <CR>

AND

«<LF>

; iRE-ENABLE TTY KBD INTERRUPTS?
; ;BRANCH IF NOT
;s sRE-ENABLE TTY KBD INTERRUPTS

: ;RETURN
; ;ECHO CHAR

;1CHAR < 0?
: ;sERANCH IF YES

s:CHRAR

7?2

; ;BRANCH IF YES
s :STRIP-OFF ASCII
:3IS THIS THE FIRST CHAR
; sBRANCH IF YES
$sNO, SHIFT PRESENT
33
CHAR OVER TO MAKE

HH
ROOM FOR NEW ONE.
s sKEEP COUNT OF CHAR
$sSET IN NEW CHAR

::GET THE NEXT ONE

;s TYPE

2<CR><LF>

: sSIMULATE CONTROL
-U

H ;““‘0."..tt““““"“t“‘““““‘

;#THIS ROUTINE WILL
s «CALL
i &

RDCHR

RETURN HERE

021462
021464
021472
021476
021500
021506
021514
021522
021524

011646
016666

105777
100375
117766
042766
026627
001013
105777

000004

177010

177004
177600
000004

176756

000002

$ROCHR:

1¢:

2s:

: s INPUT A SINGLE CHAPACTER FROM THE TTY
: :CHARACTER IS ON THE STACK

: iWITH PARITY BIT STRIPPED OFF
MOV
MOV

75718

BPL

MOvVB

000004
000004
000023

.““t“.t““‘0““““‘

INPUT A SINGLE CHARACTER FROM THE TTY

8IC
cMP
BNE
7578

(SP), -(SP)
4(SP)Y,2(SP)

IS TKS
1

8$TKB,4(SP)

#tC<177>,4(SP)
4(SP), 023
3
33 TKS

: :PUSH DOWN THE PC
; sSAVE THE PS
; sWAIT FOR

: 1A CHARACTER
;:READ THE TTY

;iGET RID OF JUNK IF ANY
s:IS IT A CONTROL S?
: :BRANCH IF NO

;:WAIT

FOR

A CHARACTER

GLOBAL

ARE AS

KDJ11A .MAC
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070

4071
4072

021530
021532
021536
021542
021546
021550
021552
021560
021562
021570
021572
021600

MACY1 1

3 OA(1052)
20 MAR 84 11:1 o
100375
117746
042716

022627
001366

000750
026627
002407
026627
003003
042766
000002

20 MAR 84

4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102

4103

4104
4105
4106
4107
4108
4109

4110

4111
4112
4113
4114

4115

PAGE

ROUTINE

8PL
MOVB

000004

000140

000004

000175

000040

000004

SEQ NO79

2¢
8T8,

®*C177,(SP)
(SP).,q21
g|

cre
BLT

4(SP), 9140
48

B8R

1 sMAKE

4(SP), 175

BIC

040,4(5P)

;oCALL:
1
1
1

021602
021604
021610
021614
021616
021620

021622
021626
021630
021634
021636
021642
021646
021652
021654

021660

021664
021666

021670
021676
021704

021706
021707
021710
021720
021725
021732
021740
021743
021750
021754
021755

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

SRDLIN:
18:
28:

021710

021720

ROUTINE

494

108:

020522

000044
021706
000015

000004
021710

MOV
MOV
ce

005015
006507
053523
000
047040
000040

YES

1160 BACK

UPPER

...““.“..‘.“.‘.‘...0‘0.‘.

STRING

...“.

FROM

THE

TTv

R3, -(SP)
OSTTYIN,RS
OSTTYINS, RS

s TERMINATOR

WILL

(SP).,(R3)
#177,(R3)
3
, SQUES

11GET CHARACTER
13IS IT A RUBOUT
13SKIP IF NOT
$3TYPE A ' 7

MOVB
TYPE

(R3),9s
99

13ECHO

.BYTE

OS$TTYIN,4(SP)

.ASCIZ

SAUTOB:
$INTAG:

.BYTE
.BYTE

0
0

NEW

TRAP DECODER

THE

0'S

THE CHARACTER

FIRST ASCII CHARACTER ON IT

1 sRETURN
13STORAGE FOR ASCII CHAR.

$MNEW:

ALL

13 TYPE A LINE FEED
1 1RESTORE R3
13ADJUST THE STACK AND PUT ADDRESS OF

4(5SP),2(SP)

053505

1 iCHECK FOR RETURN
13:LO0OP IF NOT RETURN
1 1CLEAR RETURN (THE 15S)

. SLF
(SP)s,R3
(SP),-(SP)

8.
/tUrec155¢12>
/1G/<15>¢12»
<155¢12>/SWR

BYTE

s sCLEAR THE BUFFER AND LOOP

015,(R3).
P] ]
-1(R3)

.BLKB
_ASCIZ
.ASCIZ
_ASCIZ

13GO READ ONE CHARACTER FROM THE

$TTYIN:
SCNTLU:
SCNTLG:
SMSWR:

1 1SAVE R3
11GET ADDRESS
11BUFFER FULL?

MOVB
cHP8
BNE
TYPE

MOV
RTI
.BYTE

CASE

TO USER

13:BR IF YES

B8R

ASCII

13INPUT A STRING FROM THE TTyY
1 1ADDRESS OF FIRST CHARACTER WILL BE ON

000
000012
020122

.SBTTL

1 1BRANCH IF

438

MOV

9s:

YES

8LO0S

TYPE
MOV
MOV

000002

1 1BRANCH IF

cMPE
BNE
CLRB

177777
020523

INPUT

BIT

$ sMAKE

ROL IN
RETURN HERE

ROCHR

000177

WILL

11IS IT A SPECIAL CHAR?

s |‘....‘“‘.“““‘.‘.‘C..‘.‘.

+¢THIS

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

cHP

RTI

$3LOOP UNTIL ITS THERE
$11GET CHARACTER

(SP)

8IC
cHp
BNE

B8GT
43

4074

4085

INPUT

176752
177600
000021

4073

4975
4076
4077
4078
4079
4080
4081
4082
4083
4084

TTy

ll:?l

1 1 TERMINATOR

3 1RESERVE
1 1CONTROL
1 1CONTROL

8 BYTES FOR
"y~
“G*

TTy

TYPE

INPUT

1 1AUTO MODE FLAG
1 s INTERRUPT MODE FLAG

5106560000000 00800000000000000000000000000000

000006800000080800004008

1¢THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP“ INSTRUCTION
i¢AND USE IT TO INDEX THROUGM THE TRAP TABLE FOR THE STARTING ADORESS

THE

STACH

R oA PRS0 MR B, dacgecpace oo
100fF
$¢GO

021756
021760
021764
021766
021770
021772
021776

022000
022002
022010

010046
016600
005740

THE DESIRED ROUTINE.
TO THAT ROUTINE
.

$TRAP:

000002

MOV

016000
000200

011646

016666
000002

000002

13 THIS

IS USE

$TRAP2:

MOV

$ TRPAD(RO),R0O

MOV

RTI

.MACRO

ADDRESS OBTAINED

1 1BACKUP BY 2
$1GET RIGHT BYTE OF

s 1POSITION FOR

ITM

Wit

THE

TRAP

INDEXING

$1 s INDEX TO TABLE
1:GO

TO HANDLE

THE

1 1SAVE RO
1iGET TRAP ADDRESS

(RO)
(RO),RO

MOvB
ASL
MOV
RTS

022012

000004

RO, (SP)
2(SP),RO

MOV
TSt

111000

THEN USING

TO ROUTINE

"“GETPRI” MACRO

(SP), -(SP)

4(SP),2(sP)

$sMOVE

THE PC DOWN

$3sMOVE THE PSW DOWN
3 sRESTORE THE PSW

SETTRAP A,B.MSG
R,B,\<TRAP+$
$$SET
,\$TRP,
TRP>
«MSG>

NLIST
$TRP=$TRP+1

.LIST
.ENDM
SETTRAP
.MACROC
$8SET
A,B8,C.D,COMNT
LIF EQ $TRP-1
.SBTTL
TRAP TABLE

s¢THIS
;#BY

TABLE CONTAINS

THE

}

"TRAP"

THE

STARTING

INSTRUCTION,

ADODRESSES OF

THE

ROUTINES

CALLED

ROUT INE

.ENOC
.1IF NOF GNS,

$TRAP2

NLIST
C
CIIF NDFBGNS..LIST
As

s sCALL =A

.ENDM
.MACRO

$3$SEY
TRMTIRP

.ENOM
.SBTTL

TRMTRP
TRAP TABLE

$TERM=,

TRAP.D(C)

CoMnT

$TRPAD

3¢ THIS TABLE CONTAINS THE STARTING
;#BY THE “TRAP“ INSTRUCTION.

ADDRESSES

THE

ROUTINES

TTY

TYPEQUT ROUTINE

CALLED

F
8

022012
022014
022016
022020
022022
022024

022000
020152
020776
020752
021012
02C¢526

$TRPAD:

,WORD

$ TRAP2

$TYPOS

$:CALL=TYPOC
3 sCALL = TYPOS
3 sCALL=TYPON

$TYPE
$TYPOC

$TYPON
$TYPDS

s 1CALL«TYPE

3 3CALL=TYPDS

TRAP+1(104401)

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

TRAP+5(104405)

TYPE OCTAL NUMBER (WITH LEADING ZERDS®
TYPE OCTAL NUMBER (NO LEADING ZEROS®
TYPE OCTAL NUMBER (AS PFR ( AST CALL)

TYPE DECIMAL MUMBER (WITH 4IGN)

20 R, pagy Pece o

FQ noB

4172

4173
4174
4175
4176
4177

4178

022026

021250

$GTSWR

022030
022032
022034

021200
021462
021602

$CKSWR
TRAP+7(104407)
1 1CALL ~CKSWR
$SROCHR
TRAP+10(104410)
3 sCALL *RDCHR
$ROL IN
s $CALL *RDLIN
TRAP+11(104411)
APT COMMUNICATIONS ROUTINE

.SBTTL

4179
4180

4181

4182
4183
4184
4185
4186
4187
4188
4189

4190
4191
4192
4193

4194

4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211

4212

4213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224

4225

4226
4227

022036
022044
022052
022054
022062
022062
022064
022066
022072
022074
022102
022104
022112
022114

022120

022126
022132
022134
022140
022142
022144
022150
022152
022156
022164
022166
022174
022202
022206
022212
022214
022214
022220
022222
022226
022230
022234
022236
022244
022252
022256
022262
022266
022272
022274
022276
022300

112767
112767
000403
112767
010046
010146
105767
001450
122767
001031
132767
001425
017600
062766
005767
001375
010067
105720
001376
166700
006200
010067

012767
000413

000001
000001
000001

000220

$ATY4:
SATYC:

156716

000100

156707

000002
156646

1s:

156654
28:

156644

156640

000004

000004
000002

105767
001416
005767
001413
005767
001375
017667
062766
005267
105067
105067
105067
012601
012600
000207

000062

MOV
MOV

000016

BEQ
cMPB
BNE
8Ite
BEQ
MOV
ADD
TST
BNE
MOV
1ST8
BNE
SUB
ASR

MOV

156614
3s:

155570
175740

MOV
BR
MOV
RADD
MOV
JSR
. WORD
TST8

156572

156544
000004
000002
156522
000020
000013
000006

MOvB
HOvVB
8R
MOv8

TST8

000001

TRAP+6(104406)

GET

SOFT

SWR

156536

12%:

SMFLG:

BEQ
T1S7
BEQ
TST
BNE
MOV
ADD
INC
CLRB
CLRB
CLRB
MOV
MOV

RTS

.BYTE

Q1,8FFLG

01,

SETTING

TEST FOR CHANGE IN SOFT SWR
TTy TYPEIN CHARACTER ROUTINE

TTY

TYPEIN STRING ROUTINE

'3‘0.“‘.“...‘.“..“..‘0““.

$SATYL:
SATYS.:

000206

017667
062766
016746
004767
000000

000

000236
000226

1 1CALL =GTSWR

“.‘.“.“‘.0“0‘0...0‘.0000.

MFLG

$ATYC
01,$FFLG

1170 ONLY

RO, -(SP)

31 3PUSH RO ON STACK

R1, -(SP)
SMFLG

REPORT

FATAL

ERROR

131PUSH R1 ON STACK
$3SHOULD TYPE A MESSAGE?

s3IF NOT:
BR
1 sOPERATING UNDER APT?
13IF NOT:
BR

34
84(SP),RO

$33IF NOT:

1 :PUT

IN MAILBOX

;APTENV.‘ENV
$
OAPTSP
, OOL
SENVM

‘0“.

;170 REPORT FATAL ERROR
1370 TYPE A MESSAGE

3 1SHOULD SPOOL MESSAGES?

;16F T MESSAGE ADDR.
1 ;BUMP RETURN ADDR.
$:SEE IF DONE W/ LAST XMISSION?
ssIF NOT:
WAIT

(RO).

s sFIND END OF MESSAGE

02.,4(5P)
$MSGTYPE

RO, $MSGAD

RO, $MSGLGT

o4, $MSGTYPE

S5
84(SP),4s

02,4(SP)
177776, -(SP)
PC.STYPE

$FFLG
128
SENV
128

$MSGT YPE

118
BA(SP), SFATAL
22,4(SP)
$MSGTVYPE

SFFLG
SLFLG
$MFLG

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

ADDR

11SUB START OF MESSAGE
$3GET MESSAGE LNGTH IN WORDS

33PUT LENGTH IN MAILBOX

33 TELL APT TO TAKE MSG.

$1PUT MSG ACDR IN JSR L INKAGE
s :BUMP RETURN ADDRESS
$3PUSH 177776 ON STACK
1 :CALL TYPE MACRO
1 1SHOULD REPORT FATAL ERROR?
BR
s3IF NOT:

$ sIRUNNING UNDER APT?
B8R
t1IF NOT:
$ sF INISHED LAST MESSAGE?
33IF NOT:
WAIT
11GET ERROR ¢
1 1BUMP RETURN ADDR.
$3sTELL APT TO TAKE ERROR
1 1CLEAR FATAL FLAG
1 sCLEAR LOG FLAG
1 sCLEAR MESSAGE FLAG
14POP STACK INTO R1
11POP STACK INTO RO

1 sRETURN

3 tMESSG.

FLAG

GLOBAL ARE AS
KDJ1.LA
MAC
4228
4229

4230

4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262

4263
4264
4265
4266
4267
4268
4269
4270
4271

022301
022302

MACY11

20-MAR -84

30A( 1052)

11: 19

20 MAR 84
11:31
PAGE 82
APT COMMUNICATIONS ROUTINE

000

$LFLG:
$FFLG:

000
022304
000200
000001

.BYTE
.BYTE

.EVEN

B/
SEQ NO82

(4]
0

:3LOG FLAG

1:FATAL

FLAG

APTSIZE =200
APTENV+=001
APTSPOOL =100
APTCSUP«=040

000100
000040

H 3.“‘.‘..“..‘0.““‘.“‘

““““““““.“““‘.“‘.0.“

‘.‘.‘.

sTHIS ROUTINE WILL INCREMENT THE ERROR COUNT AND THEN PASS THE
UMIQUE
;:ERROR NUMBER TO THE APT ERROR RO UTINE TO BE REPORTED TO THE
APT SYSTE

022304
022310
022312
022316
022322
022324
022332

022336

022342
022344
022352
022356
022362
022370
022372
022374
022400
022404
022410
022412
022416
022422
022424
022432
022434
022440

022442
022444
022446
022450
022452
022452

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

156542

$ERROR:

156526

001002

007777
001062
001064
000000
000072
000002
000000

000066

1%:

022372

100$:
1028 :

001262
000026

000001

24%:

177414
3s:

48 :

S5%:

s INCREMENT ERROR FLAG

sDON'T LET

ERRCNT
(sP),

MOV
MOV
MOV

07777,
3%
(SP).,&05AVYSPL
(SP)+,805AVSP2

B8R

MOV
MOV
ADD
MOV
TYPE
.WORD
ADD
TYPE
MOV
TYPOC
TYPE

MOV

156366

$ERFLG
$ERROR

INC
cHe

B8MI

000106

000002
001246
000030

INC
BEQ

TYPOC

cHP8
BNE
JSR

. WORD

HALY

RTI

101%:
.WORD
$PATCH:
;
.BLKW
.END

21002

a(sP),
3%
(SP),1018
02,
(sP)
a(sP),80102¢
Q
€2,(SP)
LERR1
3s,-(SP)
ERR2

1018, -(SP)

QAPTENV, SENV
5%
PC,
$ATY4

IT GO TO ZERO

s INCREMENT THE ERROR COUNT

115 ERROP FROM VECTOR AREA
1IF YES THEN

;REPORT

AN UNEXPECTED

TRAP

tSAVE UNEXPECTED TRAP DATA

1AND RESTORE

sELSE
;REPORT UNIQUE ERROR NUMBER TQ APT
$SAVE ERROR PC
iGET OVER UNIQUE ERROR NUMBER FOR RETURN
: TYPE

ERROR MESSAGE

;GET OVER ERROR MESSAGE

1PUSH UNIQUE ERROR NUMBER ON THE STACK

sTYPE

OCTAL

ERROR NUMBER

;PUSH ERROR PC ON THE STACK

sTYPE

THE

ERROR PC

;CHECK TO MAKE SURE WE'RE IN APT MODE
sIF YES THEN
;GO REPORT ERROR TO APT
: STORAGE FOR ERROR NUMBER
iLOOP HERE AFTER REPORTING ERROR TQO APT
s IF NOT APT THEN MALT

;ALLOW RECOVERY

FROM HALT

GLOBAL

ARE AS
KDJ11A MAC

ABASE = 000000
ABORTO
012214
ABORT1
012402
ACDW1 = 000000
ACDW2 = 000000
ACPUOP
= 000000
ADDTRP
001454
ADDWO -

ADDW] ADOW10+
ADOW11
ADOW12ADOW1 3+
ADDW14=
ADOW1SADDWe =
ADOW3 =
ADDW4 ADOWS =
ADDWG
ADOW?7

ADDOWS8
ADOW9

ADEVCT»
ADEVM
AENV
AENVM =
AFATAL
=
ALLCTR
AMADR]1
=

AMADR2
=
AMADR3»

AMADRA4
«

AMAMS]
=
AMAMS2
=
AMAM3S
AMAMS4Y
=

AMSGAD=
AMSGLG=

AMSGTY
=

AMTYP]
=
AMTYP2»
AMTYP3x
AMTYPA
=
APASS =
APRIOR
=

APTCSU=
APTENVY=
APTSIZ=
APTSPQASWREG
=
ATESTN=
AUNIT =
AUSWR =
AVECT]
=
AVECT2=

MAC111 SOA(IOSZ)
20 MAR 84 11:19

S76

2383
2394

576
576
576
7360
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
S76
576
576
618¢
S76
576
576

0O MAR

b/
84

84
CROSS 6EFERENCE TABLE
1

PAGE

25092
25710
591

840

869

582

587
588
579

576

576
576
576
576
576
576
S76

576
576
576
576
576
576
3749
3742
801
3744
4950
576
S76
576
576
576

584
585
578

581
42340
4190
42316
4192
576

580
583
590

42324
42330
589

4261

USER

SYMBOLS

Q@ 0082

GLOBAL ARt AS
KDJ11A
. MAC

BEVENT=
8IT0
=
81700 =
BITO1 »
81102 =
8IT03 =
BIT04 »
BITOS =
81706 =

177546
000001
000001
000002
000004
000010
000020
000040
000100

8IT07 = 000200
BIT08 « 000400
B8IT09 = 001000
8IT1
= 000002
BIT10 = 002000
8IT11 = 004000
B8IT12 = 010000
BIT13 = 020000
8IT14 « 040000
BIT1S = 100000
8IT2
= 000004
8IT3
= 000010
8IT4
= 000020
8ITS
= 000040
BIT6
= 000100
BIT?
= 000200
BIT8
= 000400
BIT9
= 001000
BNO
012144
BN1
012334
B0ARDT= 000001
BPTVEC= 000014
CACHET= 000001
CCR
=
CKSWR =
COUNT
CPEREG=
CPUTST=
CR
=
CRLF
=
DATRAM=
DCOUNT
DOISP =
DISPLA
DISPRE
DSWR
=
EMTVEC=

ERRCNT
ERRMSG
ERRNUM=

177746
104407
001040
177766
000001
000015
000200
000001
001054
177570
001050
000174
177570
000030

001044
001166
000321

MACY1l

20 MAR 84

30A (1052)

11 : 19

20 MAR

11:31

PAGE

CROSS REFERENCE

G/
85

TABLE

USER

SYMBOLS

5€Q 0084

4870

3084
298¢
2970
2960
295¢
2940
2930
2924
2912
2904
289¢
3070
28860
287¢
2869
285¢
2840
2834
3060
305¢
3040
3030
302¢

308
307
306
305
304
303
302
301
299

3304

3009
3311

3025

2970

3014

300¢
2990
2382
2393
1¢
3150
10
3666
4810
41756

6102

4840

14
2236
2249
10
6170
230¢
6140
5244
2290
3184
6120
6590

4940
942

10240
1091
11450
1217
1313

248990
2404
538

2552¢
637

668

185
3718

188
3970
822

206

538

623

640

653

659

668

765

836«
195
653
3759
810

861+
538

3085+
634
663

3305+
663
668

3311

3327
3706
673

3706

3714

3805

3817

8520

897
9738
1058
1111e

903

9069

913
9999
1076

766+

659
3817

614

782
7904

613

781
7716

743
9450
1032
1094¢
1149
1220¢
1316

7460
957
1035¢
1098
11520
1225
1319¢

782
790

770e
4241

849
9604
1044
1101¢
1157
12284
1324

970

10470
1108
11600
1242
13272

824
670

1184
12450
1330

9000
983
10610

1115
1187¢
1251
13330

9860

1065
1118¢
1192
12540
1338

10680
1125
1195¢
1296
13410

11280
1200
1299
1344

9160

10¢9
1079¢
1132
12030
1302

13472

809

926

10122
1083
11352
1208
1305«
1353

810

929¢

1021
10864
1142
121:90
1310

13508

GLOBAL AREAS
KDJ11A . MAC

MACY11 30A(1052)
20-MAR 84 11:19

1359
1435¢
1483
1554¢
1621

ERRTN =
ERRVEC=
ERR1
ERR2
EXPDAT
FLAG

FLO
FLOATY
FPPTST=
FPVEC =

GNS
=
GTSWR =
HITMIS=s
HT
=
HYBRID=
IOTVEC=
KDPARO=
KDPAR1=
KDPAR2:=
KOPAR3=
KDPAR4=
KOPARS=
KDPARG=
KDPAR7=
KDPDRO=

KOPOR1=

1667¢
1736
17796
1831
187Se¢
1944
1996¢
2068
2115¢
2165
22780
2352
245306
2811
3021¢
3186
34310
3516
3559¢
3614
3657¢
492¢
311e

000000
000004

001246
001262
001034
001042

6686
6700
6080
6lle

2192
2454s
2;3%0
3
6300
6294

001110
001100

000001

000244
ssssss

104406
177752

000011
000001

000020

1¢

4786
523

817
4834

2216
10

3164

172360
172362
172364
172366

4590
4600
4610
4620

172372
172374
172376
172320

4640
4650
4660
4370

172370

172322

4630

4380

20 MAR 84
11:31
PAGE 86
CROSS REFERENCE TABLE

1362¢
1440
14860
1557
16244

1671
1739¢
1787
18340
1878
19470
1999
20716
2118
21688
2288
2355¢
2660
28140
3033
3190¢
3457
35190
3562
36184

1367
14430
1489
1560¢
1627
16742
1744
1790¢
1837
1881¢
1955
2002¢
2075
2121¢
2172
2291¢
2359
26634
2817
30360
3313
3460¢
3524
3565¢
3622

13700
1446
1492¢
1563
1630¢
1677
17474
1794
18400
1910
19580
2006
20786
2125
2175¢
2295
23620
2666
28200
3044
33160
3465
35286
3568
36250

779

780»

791»

4255
4258

741

7624

838+

1373
14490
1508
15662
1634

1680¢
1751
17970
1844
1913¢
1962
20090
2081
21280
2178
22980
2424
26690
2823
30478
3318
34680
3532
3571
3628

863

SEQ N08S

USER SYMBOLS

13760
1454
1511¢
1569
1637¢
1686
17540
1800
18470
1918
1965¢
2015
20840
2136
21816
2301
24270
2672
28260
3055
33210
3473
35356
3576
36310

1172

1412
1457¢
1517
15726
1640
16890
1757
18036
1850
1921¢
1968
20180
2087
21390
2256
23040
2431
26756
2861
30580
3323
34766
3538
35794
3634

1265e

1415
1460
15200
1600
16430
1693
1760#
1807
18530
1925
1971¢
2022
20900
2143
22590
2333
24340
2678
28640
3066
33260
3485
35410
3588
3637¢

1503+

1418
14632
1526
16030
1651
1696¢
1763
18100
1859
19284
1975
20250
2094
21460
2263
23360
2438
2681¢
2883
30690
3391
34890
3544
35910
3640

1547«

14210
1469
1529¢
1608
1654¢
1699
17664
1813
18620
1931
19780
2028
2097¢
2149
22660
2340
24410
2725
28864
3118
33940
3496
35470
3594
36430

1581

2218+«
25998
2763«

22308
2607«
2770«

2250e¢
2620+
2777+

2254
2631+
2784«

2286
2644¢
2791s

2315«
2658
2798+

2326
2695+
2809

2330
2720s
2841»

2375«
2723
3103«

893s
880

894
885

934
935

978
948

991
963

1004
1051

1017
1071

1052
1104

1121

185

195

206

538

632

640

641

668

765

4167
41730

4168

4169

4170

4171

4173

4175

4176

4177

3757
500

3815
635

809

3678

3694

3706

3719

3970

4178

805+

806+

1426
14720
1535
16110
1658

17026
1770
18166
1866
1934¢
1986
20319
2105
21520
2269
23430
2444
27280
3002

31214
3412
34992
3550
3597¢
3646

1719+

24158
2731e
3338

1429¢
1475
1538¢
1615
16610
1705
17738
1824
18699
1937
19892
2060
21086
2156
22726
2340
24470
2737
30058
3181
34150
3506
35530
3600
36490

1892+

1432
14780
1551
16184
1664
1708¢
1776
1827¢
1872
1940¢
1993
20639
2112
21590
2275
23490
2450
27402
3018
31842
3428
3509¢
3556
36030
3654

2042«

2822
2735
3445

2429
2741
3582

3706

3718

1138

3665

GLOBAL

AREAS

MACY11

KDJ11A.MAC
KOPDR2
»

KDPDR3
-

20 MAR 84

172324
172326
172330
172332
172334
172336

449¢

4500
451¢
452¢
4530
4540
455¢
4260
4270
4289
4298
4300

172346
KIPARS
= 172350
KIPARS
= 172352
KIPARG
= 172354
KIPAR7= 172356
KIPORO= 172300
KIPDR1:= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4
= 172310
KIPDRS
= 172312
KIPDR6
= 172314
KIPDR7= 172316
LF
» 000012

MMTS12=
MMTS13=
MMTS14MMTS1Ss
MMTS16=
MMTS6As
MMTS68>
MMTSEC
=

S40888

LI YRYY)
LIXYY
¥ ¥

s88800
[T Y

(I
YY ¥

[T T YT
VY
84808

MMTS6D
Y Y
I
Y]
= XT
MMy
001306

MMUERR

MMUTRP
MMUTST=

ccccgcecccccc

MMT311=

001060
s8d0s

001213

001460
sessss

18797 <0 MAR B8cs AéPEreRAFE
1AL €

17
USER SYMBOLS

4390

KIPAR3»

MMTS10.

11:

4400
4410
4420
4430
44490
4480

KDPDR4
«
KDPDRS
«
KDPDR6
»
KOPDOR
7«
KIPARQO» 172340
KIPAR]
« 172342
KIPAR?
« 172344

LOOPIN

30A(

4310
4320
4338
22¢0
619¢

2592
2688
2745
2832
3076
3331
3438
1574
1712
1885
2035
6954
2716
6630
1023
1144
1312
1434
1553
1666
1778
1874
1995
2114
2277
2452
3020
3430
3558
3656
7410

3090+

2992

3010

3028

3039«

3050+«

3061s

3092«

3301«

653

659

663

668

670

673

3706

3714

3809

3817

1589

1725
2843
851
1046
1159
1326
1448
1565
1679
1796
1912

2048
3300

2138
3339
915

2216
3447
928

2321

2380

2603

2615

944
1093
1219

959
1100
1227
1369
1491
1629
1746
1839
1957
2077
2174

972

985
1117
1253
1414
1519
1642
1759
1852

3091«

3095+

1034
1151
1318
1442
1559
1673
1789
1880
2001
2120
2290
2662
3035
3459
3564

2127
2297
2668
3046
3467
3570

1898
3104
899
1060
1186
1332
1456
1571
1688
1802
1920
2017
2138
2303
2674
3057
3475
3578

808
195

538

2754

745

905

1067
1194
1340
1462
1602
1695
1809
1927
2024
2145
2335

1078
1202
1346
1471

1085
1210
1355
1477

3068
3488
3590

1610
1701
1815
1933
2030
2151
2342
2727
3120
3498
3596

1617
1707
1826
1939
2062
2158
2348
2739
3183
3508
3602

1361
1485
1623
1738
1833
1946
2070
2167
2354
2613
3189
3518
3017

653

663

668

689

1110
1244

1375
1510
1636

1753

2361
2819
3315
3527
3624

1846
1964
2083
2180
2426
2825
3320
3534
3630

1970
2089
2258
2433
2863
3325
3540
3636

808

809

810

2628

2642

998

1011

1127
1298
1420
1528

1653
1765
1861

1977

2096
2265
2440
2885
3393
3546
364¢

1134
1304

1428

1537
1660
1772
1868
1988
2107
2271
2446
3004
3414
3552

648

GLOBAL

ARE AY

KDJ11A

MAC

MMUTS
s
MMUTS2e
MMUTS3s

esesees

eeeses

eseess

MMUTSE>

esseas

MMUTST7s

MMUTS8
MMUTSO

MMVEC
MODE 1
MODE 2

20 MAR

esssse U

MMUTSAs

MMUTSSs

MACY11

sssses

ssesee

= 000250
014334
015770
MSER
= 177744
MSG1
020046
MSGe
020125
MXVDEL= 000001
NOTOK
001542
NXMFIN
016232
NXMTRP
015620
NXMTSTs sssses U

0
OKAY?7

001520
011144

OKAY7A
OxA?
oKl

011160
Ol1126é
001546

OPMSG2

001124

oK7

011104

PAR
PARAD1

001430

014164

PARAD2

015652

PARRAM= 000001
PARVA1
014216
PARVA2
015704
PARVAZ
016022
PAR1
001432
PDR
001406
PDR1
001410

PHY1
PIRQ

014302

177772

PIRQVE= 000240
PLFO
012072
PLF1
012264
PRO
= 000000
PR}
= 000040
PR2
= 000100

PR3
PRA
PRS

PR6
PR?

PS
PSu

=
=
=
=
=

=
=
PWRVEC+
QBUSE
X+
RBUF
=

000140
000200
000240
000300
000340

177776
177776
000024
000001
177562

11:19

20 MAR 84

CROSS

11:31

PAGE

REFERENCE

TABLE

USER

707

708

SrMBOLS

3970

830

855
1165

1258

1496

1540

sesess U

sessee

B0A(1052)

2185

2308

2368

327¢
2852
3130

4820
3680
3690
10
751
3308
3088
3290

750
2268

2274
2262
756

2255

6530
700

2845

3126

10
2846
3125
3108
7278
699
7180

2850

808+
29459
32478
37060
37140

757¢

31322
3198¢

33260

752¢
22734

2279¢
2267¢
758¢

22608
809
701

704

28930

32080

2906¢
32210
3132
730
703
721

32604

106

29328

228¢

3220
2381
2392
245¢
2466
247¢

2468¢
2403

25320

226

3306+

633

3667

248¢
2490
250¢

251¢
2520

2258
22660
317¢
1o
489¢

705

717¢

7260

SEQ no8?

GLOBAL

AREAS

KDJU11
. MAC
A

RCSR
» 177560
RDCHR = 104410
ROLIN = 104411
RECDAT
001036
RESTAR
002066
RESVEC- 000010

SAVMRO

SAVMR1
SAVMR2

SAVSP1
SAVSP2
SAVSUP
SAVUSE
SDPARO»
SDPAR1=
SOPAR2
=
SOPAR3
»
SOPAR4
SOPARS
=
SOPARG
=
SOPAR7
=
SOPDRO=
SOPDR1
=
SDPOR2=
SOPDR3
=

001072

001074

001076
001062
001064
001066
001070

172260
172262
172264
172266
172270
172272
172274
172276
172220
172222
172224
172226
SOPDR4
= 172230

SOPDRS
- 172232
SDPDR6
= 172234
SOPDR7
- 172236
SHMOO = 000001
SIPARO
- 172240
SIPAR]
= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPARA
= 172250
SIPARS= 172252
SIPARG6
= 172254
SIPAR7= 172256
SIPDRO- 172200
SIPDR1
= 172202
SIPDR2~ 172204
SIPDR3- 172206
= 172210
SIPDR4
SIPORS« 172212
SIPDR6= 172214
SIPDR?- 172216
SKIPID
017752
SLOCOO
001030

SLOCO1

SRO

SR1

001032
. 177572

177574

MACyY11

20 MAR 84

3B0A(1 05¢2)

11:1 9

20 MAR 84

</
11:31

PAGE

CROSS REFERENCE

TABLE

USER SYMBOLS

2226+
2600s
2227
2815
2228e
3592

22604
2664
2267
2827+
2273

2261

2682+
2280¢

3598
2299

2821

2195»
2455«
21969
2753
2197+
2828+

2281

1587+
1584+

1613
1606

17234
17219+

1749
1742

565

3706

382¢
383¢
384¢
385¢
3860
3870
388¢
389¢
3679
6049
3302s
6054
331¢
3097+
31220

3580+

2772»

2779«

3074
1513
3304+»

4880
4083
41770

6090
821e
3120
6269
24356
6270
2670
628¢
26844
6200
6214
6240
6250
415¢

SEG

OLRA

41760

3703

7584
2436
759+

2683s
7604

4245«
4246+«

2279

2292+

2293

2318«

2336

2337

2376«

2319

2343

2377«

2402

2456+

2601+

2320¢

2349

2378a

2448

2457

2602

2676

1896+
1894+

1923
1916

2046+
2044+

2073
2066

2786+

2793«

28004

2821

2987s

3073

3086+

3100

3200

3087«

3101

3326+

3659«

3201
2993«

3016s

3032+

3043

3054+

3065s

3070»

3084

4166
4176
4180
4190
4200
4210
4220

3930
3040
395¢
3960
397¢
398¢
399¢

4000
4049
405¢
4069
407¢
4080
409¢
4100
411e¢

36810
2765
3328
2988+
1504
3198+

1522

1531

GLOBA(

ARE AS

KDJL11
. MAC
A

SRe

SR3
STACK
START

177576

= 172516
= 001000
001604

STBOT = 001000
STKLMTs 177774
SWR
001046

SWREG
SWo
SWOO0

SWOL
SW02
SW03
SWO4
SWOS
SW06
SWO?
SW08

SW09

SwWi

=
=
=
+
=
=
=
=
=
=
=

000176
000001
000001

000002
000004
000010
000020
000040
000100
0C0200
000400

001000

= 000002

SW10
=
SW1ll
=
SWi2
=
SWi3
=
SW14
=
5W15
=
SWe
=
SW3
=
Swa
=
SWS
=
SWé
=
SW7
=
Sw8
=
SW9
=
TAGRAM=
TBITVE=

TKVEC =
TMM16A
TMM168
TMM16C
TMM16D
TMM16E
TMMI6F
TM16A
TPVEC =
TRAPVE
=
TRTVEC=
TSMA
TSMB
TSMC
TSMMUL
TSMMU2
TSMMUZ
TSMMUA
TSMMUS
TSMMUE

002000
004000

010000

020000
040000
100000
000004
000010
000020
000040
000100

000200
000400
001000
000001
000014
000060
017214
017054
017110
017144
017200
017202
017710
000064
000034
000014
011214

011240
011254
002100
002174
003550
004114
005210
005366

MACyY1l 30
20 MAR 84

101gee) 20 AR B8 1AéPlaehaF128,
E ¢
3330
3340
2160
521
4990
22760
6130

525
2800
2700
2690
2686
267¢
2669
2650
2649
2630
262¢
261¢
279¢
2600
259¢
2580
257¢
2560
255¢
2789
2774
2768
275¢
2740

2730
2726
2714
10
3136
3200
3455
3453
3461
3469
3446
3524¢
3490
3214

319¢
3149
2287
2294
2300
8300

8552
11650
1258¢
14964
15400

2991+
768
527

1583

781e

789

3009«

3025¢

3096+

3005

3072

783

7894

815

3980

3542

3548

3619

3653

803«

3993

277
276
275
274
273
272
271

810

772»

2292¢
2299¢
23050

USER SYMBOLS

5EQ 0089

3660+

76S¢

1586

280
279
278

3530¢
34930
35034
3513¢
35230
3581
3529

773

36580

815

2970

3980

4017

GLOBAL

AREAS
kDJ11A .MA

TSMMU?
TSMMUS
TSMMU9
TSMM10
TSMMLL
TSMML2
TSMML3
TSMM14
TSMM15

010572
011256
011522
012450
013064
013336
013742
015064
016250
TSMML6
016610
TSMM6A
005520
TSMM68
006262
TSMM6C
007152
TSHM6D
007762
TSM16A
016714
TSM168
016746
TSM16C
016776
TSM16D
017042
TSM7
011176
TSM9
011662
TSTLOC
001120
TST1
002100
1ST10
006262
TST1:
007152
TST12
007762
TST13
010572
T7ST14
011256
TST1S
011522
T1ST16
012450
TST17
013064
TST2
002174
TST20
013336
TST21
013742
TST122
014366
1ST123
015064
1ST24
016106
TS12S
016250
TST26
016610
T7ST3
003550
1574
004114
TSTS
005210
T5T6
005366
TS17
005520
7510
012762
TS11
013206
7512
013660
1S14
015500
TS15
016420
TS16
017564
TS16A
017552
151822
014366
157
011046
TS7FIN
011256
TS9F IN
012450
TYPDS = 104405
TYPE
= 104401

20maR14390¢1g52) 20 AR ROss 'Ai PtreRalE

12k ¢

USER

SEG 0090

SYMBOLS

21854
2308¢
23680
2592¢

2688¢

27450
28320
3076¢
33310
34384
1574¢
17120
18850
20350
34610
34694
34770
34852
2222
2385
6390
8340
1716¢
18899
20390
2189¢
2312¢
23720
259640
26924
8599

2749¢
28384
29680
30820
32984
3335¢
34420
11694
12620
15000
15449
15780
2612

2700
2767
3134
3342
3610
36144
29604
2202
2246
2409
3692
809

3502
3512
3522
3560
2234
2395

228640
2413¢

2625
2705
2774
3156
3350
36200
3638

2636
2710
2781
31674
3359

2209
2307#
25910

22500

41710
3680

3690

2463

2650
27164
2788

26580

2795

2802

28092

3762

3884

3953

33844

3693

3991

3992

3995

4008

4019

4038

GLOBAL

AREAS

KDJ11A.MAC

TYPOC =
TYPON TYPOS »
T10F IM
T11FIN
T12F IN
T13FIN

104402

104404

104403
013064
013336
013742
014366
T14
015524
T14F IN
016106
T15
016474
T15A
016556
T15FIN
016610
UDPARO= 177660
UDPAR1= 177662
UDPAR2= 177664
UDPAR3= 177666
= 177670
UDPAR4
UDPARS
= 177672
UOPARG= 177674
UOPAR7» 177676
UDPDRO= 177620
UDPDR1
= 177622
UDPDR2= 177624
UDPDR3= 177626
UOPDR4
= 177630
UDPDRS= 177632
UDPDR6
= 177634
UDPDR7
= 177636
UIPARO= 177640
UIPAR]1= 177642
UIPAR2= 177644
UIPAR3= 177646
UIPAR4
= 177650
UIPARS= 177652
UIPARG= 177654
UIPAR7= 177656
UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606
UIPDR4= 177610
UIPDRS= 177612
UIPDR6
= 177614
UIPDR7= 177616
VIR1
014250
VIR2
015736
VIR3
016054
XBUF
= 177566
XCSR
= 177564
$APTHD
000204
$ASTAT= Yy YPYY
$ATYC
022062
$ATY]
022036
$ATY3
022044
$ATY4
022054

MACY11l

20 MAR 84

30A(1052)

11:19

20 MAR 84

11:31
PAGE 92
CROSS REFERENCE TABLE

4087
3394

4090
41680

2653
2712
2805
2889
3152
2974
3345
3367
3379
3710
3728
3730
3740
375¢
3764
3770
3784
3490
3500
3510
352
3534
3544
3556
3564
3604
3610
3624
3634
3644
3654
3664
3674
33806
339
340
3410
3420
3430
3440
3450
2851
3131
3109

26870

41700
4169¢

4916
4904

547

4212
4183
41816
3747
41840

27446
28310
29596
3172¢
3161
3353
3371
3436%

4094
4257

4167¢
4260

3199
3362
3375

32890
3403¢
34244

1594+

19044+

1730+

20544

2919¢
32340
3133

32734

5534

4227
41850

4182¢
4263

4252

N7
USER SYMBOLS
4255

4258

SEQ 0091

GLOBAL AREAS
KDJ11A.MAC
SAUTOB

021754

SCHARC
SCKSWR

020502
021200

SCNTLG
SCNTLY

021725
021720

SCMTAGe

$CPUOP
$CRLF

$0BLKX

SOEVCT

$DOAGN

41040
4103¢

020742

3850

3884

3892¢

020036

3686

3695

37C1¢

001026
001277

001010

017774
020042
001020
001021

SEOPCT
SERFLG

017766
001052

SERROR

SETEND
SFATAL

$FFLG
SFILLC
$FILLS

SGET42
SGTSWR
$HD
=
$HIBTS

$INTAG
SLF

020026

017740

022304

001020

001030
001002

022302
020520
020517

020016
021250
000003
000204

021755
020523

768

5910
673

5824

$MSGTy
S$MSWR

SNULL
$NUTST=
SOCNT

$OMODE
$PASS

001014

001016

001000
021732

020516
000001
021174

021176
001006

805

42390

4240

559
579¢

598¢
4218+

4212

42214

4229¢

813

4181,
3767
38200

36940
3992¢
204
5540

4020
38240
555

3995

S840

585¢

5784
3992

3769
831¢
2593¢
3925
3920¢

S581¢

S57¢
4269¢

SROCHR

021462

4051¢

SRODEC*» se0sse y
SROLIN
021602

SROOCT»
$RDSZ »

se0ess y
000010

4214
4192

770

S86¢

000212
022452 G

020522

4190
3749

3689
4239

$PASTM
SPATCH

SQUES

4103

368S¢
776+

555¢
4182+

$MSGAD

4019

775+
6150

000206
022300

$MSGLG

3824

3742
3744

36770

38230

4178
40790

4178
40720

USER SYMBOLS

776

36880
37040
813
801

SMBADR
SMFLG

021743

38120

778
3693
5870
588¢

534

4222¢

SMNE W

3807¢

38880

022301

001000

3763

3781

3853

SLFLG
SMATL

774

41090

399}
4008

ss000e

$ENDCT
SENULL
SENV
SENVM

SETABL

3988

37746
4175

020732

SEOP

819

20 MAR 84
11:31
PAGE 93
CROSS REFERENCE TABLE

3764
3980¢

s0TBL

$ENDAD

MACY11 30A(1052)
20 MAR 84 11:19

3697¢

4184+
3821¢

4261

4173
205

4110¢
4094
4228¢

4103

559

S77e

798

4188

4223¢

4227¢

4198+

4201

4196
4105¢

420464

4107¢

4203¢

3819¢
8560
2689¢
39544
3924¢

7740

4038

4176

4177

1166¢

4216
1259¢

3742

4220
14970

15410

1575¢

1713¢

27468

28330

2835

2961¢

2963

3077¢

3929
800+

3932
3678

3943,
3682+

39690
3683

3691

3704

4087

4103

3967¢

18860

3079

20360
32900

21860
3292

23090
33820

23690
3439

GLOBAL

ARt AS

KDJ11A . MAC

MACYL1

20 MAR

SRINAD
020040
SR2A
= sess0e y
$SAVRE= esesee U

SSETUPs

ISTUP

$SVPC

000126

177777

SSWREG
$TESTN
$TkB
$TKS
$TN

160000

sTPB

$TPFLG

$TPS
$ TRAP

$TRAP2

$TRP
=
$TRPAD

020514

$XON

$$GET4=

SOFILL

$40CAT
.

.$ASTA:
.8X
=

PAGE

537
2050

170

777

2191
3682

2314
3696

2374
3702

2313e

2373«

2597¢

803
821

3795
3793
831

1575
23740
3290

1580¢
2593
3300¢

3736

3822¢

3818¢

835

38160
381S5¢
836¢

772

836

2598
3704

860

2693
3973
3973
856

776

177

4081

4098

4102¢

3838¢
37360
3766
3808
39230
3922
39180
5830
558¢
590¢
3790

4171
4159
3773
3810

4167
3780

4209
37850

4168
3925¢
4169

4170

3797

3817

36960

021175

3919«

022472

S18¢
503¢

5650
3819
4111

4182

S43¢

1170

2750+

3984
3982
86106

1171

2751
1263«

2839¢
4001
3998
1166

1264

2840
1501

2969¢

4055
4022+
11710

4173

4080
4172

556¢
4939

861

2694

41720

41700

774

41710

41690

sssses
000204

SYMBOLS

2036
27516

41680
41660

41300

000000

USER

18918
2746
344402

41590
4124

000021

TABLE

1886
26940
3439

000012
022012

021710
sessses U
020526
020152
020364
020504
020776
021012
020752
001012
000214
001024
000023

17184
2689
33370

3802
772

022000

1713
25988
3332

020512
021756

000000

532¢

3804»

$TSTM
000210
$TSTNU= 000001

STIYIN
$TYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$STYPON
$TYPOS
SUNIT
$UNITM
$USWR
$XOFF =

769

3788
3786
2040

020521

11:31

CROSS REFERENCE

S00e

5890
580¢

020510
020506
000027

.0 MAR 84

“EU OO

3703¢
4178
4178

204

001022
001004

11:19

500¢

=« 000204

$SWR

30A(1052)

810

1502

2970

1545

2972

4061
4053
1259

20410
2833

3682

1546

3084

1579«

3083
4059
12640

3975

1580

3300

1717

3299
1497

4109

1718

3337

3444

1891

2041

1890s

2040+

2190+

33364
15020

3443.
1541

2186
28400

2191
2961

2309
2970

23140
3077

417%

41760

41770

41780

3674

13460

2369
30840

3817¢
4119¢

4166

38130

41740

4024

3817

39234
519

3933
S23e

39680
5%2

566¢
3820
42300

6290
3821
4270¢

6300
3822

548

560

565

4185

533¢

6400
3823

5350

6750
3824

5370

3704
38250

543

37050
38920

5440

37180
3973

S460

3815
41020

5480

3816
4103

5600

3817
4109

S6lLo

3818
4110

<bo91a ATEAS LoMARA
5 AL
E0) O MAR R8s 1A¢PRreRBPE 128, ¢
ADOPMS
B8GNMOD
BGNSUB
BGNTST

CKLOOP
COMMEN
DEFPRG

ENOCOM
ENOMOD
ENDPAS
ENDSUB
ENDTST
ERRDEF
ERRDF

29600
189¢
1900
1890
2692
1890
3230

ESCAPE

FRONT
FRONTL

GETPRI
GETSWR
IDMSG

MeS13
MHMS14

MAT
NEWTST
NXMMS
POP

MACRO NAMES

SEQ 094

2963
823
834
2749

859
2838

1169
2968

1262
3082

3298

3335

1544

1578
3442

1716

1889

2039

2189

2312

2372

2596

853
2804

1164
2887

1257
3075

1495
3160

1538
3329

1572
3378

1710
3664

1883

2033

2183

2245

2367

2408

2652

743

849
1065
1208
1367
1517
1658
1787

897
1076
1217
1273
1526
1664
1794

903
1083
1225
1412
1535
1671
1800

913
1091
1242
1418

926
1098

942
1108
1296
1432
1563
1693
1824

957
1115
1302
1440
1569
1699
1831

1009
1149
1330
1469
1621

1021
1157

1032
1184
1344

2172

2068
2178
2438

2075

3465

3473

1500

3230
1890
36680
1900
1890
21
1880
1890
1044
1192
1353
1489
1640
1770

1878

ERROR

2015
2149
2352
2823
3391
3556
2170
1044
1192
1353
1489
1640
1779
1878
2015
2149
2352
2823
3391
3556
3230
10
10
3230
3230
36680
28320
30760
3230
1880
2592
32900
3230

3666
3690

1058
1200
1359
1508
1651
1776
1910
2022
2156
2359
2861
3412
3562
743

1058
1200
1359
1508
1651
1776
1910

2022
2156
2359
2861
3412
3562

1918

1925
2060

1931

1551
1677
1807
1937

2028
2165
2424
2883
3428
3568
849
1065
1208
1367
1517
1658
1787
1918
2028
2165
2424
2883
3428
3568

1925
2060
2172
2431
3002
3457
3576

2178
2438
3018
3465
3588

3594
913
1091
1242
1418
1551
1677
1807
1937
2075
2256
2444
3033
3473
3594

830
2745

a55
2832

1165
2960

1258
3076

4224

4225

2431
3002
3457
3576
897
1076
1217
1373
1526
1664
1794

3018

9203
1083
1225
1412

1535
1671
1800
1931

2256
2444
3033

1251

1426

1557
1686
1813
1944
2081
2263
2450
3044
3485
3600
926

1098
1251

1426
1557
1686
1813
1944
2081
2263
2430
3044
3486

1955

1962

2087
2269
2660
3055
3496
3614
942
1108
1296
1432
1563
1693
1824

2094
2275
2666
3066
3506
3622
957
1115
1302
1440
1569
1699
1831

2087
2269
2660

2094
2275
2666

3496
3615

3506
3622

1955

3055

1962

3066

970

1125

1310

1446
1600
1705
1837

1968

2105
2288
2672
3118
3516
3628
970
1125
1310
1446
1600
1705
1837
1968
2105
2288
2672
3118
3516
3628

983

1132
1316
1454
1608
1736
1844
1975
2112
2295
2678
3181
3524
3634

1142
1324
1460
1615
1744
1850

1986
2118
2301
2725
3186
3532
3640

1751
1859
1993

2125
2333
2737

1132
1316
1454
1608
1736
1844
1975
2112
2295
2678

1460
1615
1744
1850
1986
2118
2301
2725

3525
3634

3532
3640

3313
3538
3646
1009
1149
1330
1469
1621
1751
1859
1993
2125
2333
2737
3313
3538
3646

2035

2185

983

3181

1142

1324

3187

1338
1475
1627
1757
1866

1999
2136
2340
2811
3318
3544
3654
1021
1157
1338
1475
1627
1757
1866
1999
2136
2340
2811
3318
3544
3654

2308

1483

1634
1763
1872
2006
2143
2346
2817
3323
3550

1032
1184
1344
1483
1634
1763
1872
2006
2143
2346
2817
3323
3550

1850
810
3678
2835
3079
3230
2688
3292
3879

1496
3290

1540
3331

1574
3438

1712

1885

2308

GLOBAL ARt AS
KDJ11A HAC
PUSH
REPORT

SCOPE
SETPRI
SETTRA
SETUP
SK1P
SLASH
SPACE
STARS

SWRSY
TAIL
TRMTRP

TYPBIN

TYPDEC

TYPNAM

4043
3236
10
4156¢

3230

3230
3236

$$SETM
$$SKIP
-EQUAT
-HEADE
KT11
.SETUP
.3ACTY
. $APTB
. $APTH
.$APTY
. $EOP
. $ERRO

. $SREAD
. $TRAP

.$TYPD
.$TYPE
.$TYPO
. $40CA
ABS.

30A(1052)

11:19

20 MAR 84

CROSS

11:31

AérénenegevneLs

3338

4185

4187

4208

4159

4168

4169

4170

4171

540

242
1575
2595
3292
4180

549
1577
2689
3297
4235

1713
2691
3332

1166
2961
4169

1259
3077
4170

1497
3290

3230

530
1541
2371
3081
4072
7778
3668

767

1543
2593
3290

4113

575

s
SEQ 00YS

MACRO NAMES

4173

4175

4176

4177

1715
2746
3334

831

833
1886
2748
3439

856
1888
2833
3441

858
2036
2835
3671

1166
2038
2837
3721

1541
3332

1575
3439

1713

1886

2036

4176

a177

1168
2186

1261
2309
2967
3972

1497/
2311

3828

1259
2188
2963
3895

2186

2309

2369

2593

2961

3077

3975

3230

TYPOCY
TYPTXT

$$SET

218¢
3230
4134¢
1880
3236
3230
3230
32%e0
1499
2369
3079

3236

$$ESCA
SSNEWT

20 MAR 84

3230
323¢

TYPNUM
TYPOCS

MACY11l

3691

323¢

323¢
3230

2689

41400

793¢
3234
1884
190¢
188¢
1904
1909
188¢
1900
1910
188¢
191¢

191¢

190¢

18906
189¢
1910
1889
022472

ERRORS DETECTED:

3993

831

2746
4159

800

856
2833

4168

4171

4173

4175

<13
195
323
500
528

S73
538

4178

3669

3970

4111

3826
3719
3893
501
000
O

CZKDKB/EN:AB
. SEQ/CRF
S,C
/DOC/SO
ZKD
L/NL
KB
: TOC=SYSM

RUN-TIME: 297 115 5 SECONDS
RUN-TIME RATIO: 941/418:2.2

AC, SML /ML ,CZKDKB .MAC /ML ,KDJ11A , MAC

UL OBAL ARE AS
KDJ11A MAC

CORE

USED:

MACY11 30A(1052)
20-MAR 84 11:19

S2K

DOCUMENT PAGES:

(103 PAGES)

20 MAR B4
11:31
PAGE 98
CROSS REFERENCE TABLE

MACRO NAMES