Digital PDFs

AH-T707B-MC

July 1984

97 pages

Original

47MB

view download

OCR Version

63MB

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

OCR Text

CZKOKEQ

AH-T707B-HC

FICHE 01 OF 01

o ifol ifta]]

fade

G NO O O O

8 0 PO U 1D T T PO D N N 1Y 0 02 e s gt 3t s o o

oqomguwwoooqgmuum»ooaqombmmwzoauombmu»

USER DOCUMENTATION
MACY11
KDJ11A
. MAC
20-MAR-84 11:19

30A(1052)

20 MAR-84

11:31

PAGE

B1
S5EQ N001

.REM £

IDENTIFICATION
PRODUCT

CODE:

AC-T7068B
-MC

PRODUCT NAME
:

CZKDKBO KDJ11

PRODUCT DATE:

15-MAR-84

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

HENRY ENMAN,

THE

MEMORY

MANAGEMENT

JIM PITTMAN, BARRY

INFORMATION IN THIS DOCUMENT

NOTICE

AND

SHOULD

IRRGANG

SUBJECT

CHANGE WITHOUT

NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.

DIGITAL

RESPONSIBILITY FOR ANY ERRORS

EQUIPMENT CORPORATION ASSUMES NO

THAT MAY

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

DIAGNOSTIC

APPEAR

THE
USE
SUPPLIED

OR
BY

THIS DOCUMENT.

RELIABILITY
OF
DIGITAL
OR ITS

DEC

TRADEMARKS OF DIGTTAL FGUIPMENT CORPORATION:
PDP

CECUS

UNTBUS

DECTAPE

MASSBUS

335'1‘18‘.’5&?“'“55‘%« - rlfl‘lcul

30AC10° ')

20 MAR 84

[1:71

PAGE

Cl
SEQ 0002

.REM &

a1
a2

a3
44
as
36
47
a8
a9

50
51
52
53

0C'-83

FEB-84

REV.

FIRST

REV.

CORRECTIONS MADE TO:
i. CORRECT VECTOR AREA MAINTENANCE PROBLEM
2. PREVENT S$TESTN FROM GETTING OUT OF SYNC WHEN
SKIPP'NG DESELECTED TESTS.
3. TURN CACHE MEMORY SYSTEM OFF DURING NON-CACHE

RELEASE

ENSURE

CPU ERROR REGISTER

COMPLETION OF

TFST

TESTS

THAT MIGHT CAUSE

IMPROVE

NON-EXISTANT MEMORY

TRAP

TEST

TESTS.

IS CLEARED AFTER

TO BE SET.

SAVE PC AND CONTENTS OF R6 ON UNEXPECTED

ADDITIONAL

THAT

COVERAGE

INTERRUPIS

INCLUDE
:

KE5T 1 ROGKEENTALIO
. 4o
N YHCI41 30A(1052)

20 MAR 84

11:31

D1
PAGE 3

SEQ 0003

.REM £

57
8
9

TABLE OF

CONTENTS

1.0

66
67

1.2

1.3
1.4

1.5

RELATED DOCUMENTS AMD STANDARDS
DIAGNOSTIC MIERARCHY PREREQUISITES

70
71
72
8

2.0
2.1
2.2

2.3

OPERATING INSTRUCTIONS
LOADING AND STARTING PROCEDURE
PROGRAM OPTIONS
OPERATION UNDER APT

3.0

ERROR INFORMATION

4.0

PROGRESS REPORT

1.1

GENERAL INFORMATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

ASSUMPTIONS

USER DOCUMENTATION
HACY;I
KDJ11A.MAC
20-MAR-84 11:1

30A(1052)

20-MAR-84

11:31

E1l

PAGE
4

80
81
82
83
84
85
86
87
88
89
20
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

SEQ

.REM &

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS 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 AVAILA
BLE

(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 ADDRESSES.
1.2

SYSTEM REQUIREMENTS

KDJ11-A PROCESSOR MODULE
gg&bflfi%‘f HALT TRAP OPTION IS DISABLED (JUMPER
W9 INSTALLED)
Y

Q-22 BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAG
E)
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
PDP11 MAINDEC SYSMAC PACKAGE
J11 CONTROL CHIP SPECIFICATION 21-17679-00
J11 DATA CHIP SPECIFICATION 21-17677-00

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

THE KDJ11 CPU DIAGNOSTIC MUST RUN SUCCESSFULLY
PRIOR

TO RUNNING THE MEMORY MANAGEMENT

1.5

TEST.

ASSUMPTIONS

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

2.0

OPERATING INSTRUCTIONS

2.1

LOADING AND STARTING PROCEEDURE

LOAD PROGRAM INTO MEMORY USING STANDARD XXDP+ PROCEEDURES.
THE PROGRAM IS STARTED BY LOADING ADDRESS 200 AND
USING
THE J11 MICRO-ODT G COMMAND TO START. THE PROGRAM
IDENTIFICATION MESSAGE WILL BE TYPED AFTER THE FIRST PASS

OF THE COMPLETE PROGRAM,
2.2

PROGRAM OPTIONS

0004

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

135
136
137
138
139
140

141
142
143
144
145
146
147

148

149
150
151
152
153
154
158
156
157
158
159
160

161

162
163
164
165
166
167
168
169

170
171
172
173
174
£7S
176
177
178

179

180
181
182
183
184

30A(1052)

20-MAR-84

11:31

PAGE
S

SEQ

THE FOLLOWING ASSIGNMENTS HAVE BEEN MADE FOR

DIAGNOSTIC SWITCH REGISTER BITS:
BIT#15
4 ------- R

13
S

12
e

SR T

THE KDJ11-A

DON'T
TEST
Bovcormca PR @rmcsnan Wi

.00 2

BEVENT

ik Boamneama oo dsiem "

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

8
SIS

18 BIT
EXTENDED
ADDRESS
CACHE

ONLY

OO B~

TESTS
de

e .

THE OTHER BITS HAVE

PRIOR TO EXECUTING THE FIRST PASS OF THE DIAGNOSTIC THE
OPERATOR
WILL BE DIRECTED TO SET THE SWITCH REGISTER TO INDICATE
WHETHER
THE KDJ11-A UNDER TEST IS IN A SYSTEM CONFIGURED
FOR 18 OR 22 BIT

ADDRESSING.

AN 18 BIT ADDRESS CONFIGURATION SHOULD BE INDICATED IF

ANY 18 ADDRESS BIT ONLY MEMORY BOARDS RESIDE IN THE SYSTEM OR
THE SYSTEM BACKPLANE DOES NOT SUPPORT 22 ADDRESS BITS.

TO CHANGE THE SWITCH REGISTER; HALT THE PROGRAM, AND EITHER
RESTART
THE PROGRAM AT 200 ANSWERING THE INITIAL QUESTIONS,
OR LOAD THE
SOFTWARE SWITCH REGISTER (ADDRESS 176) WITH THE DESIRED OPTIONS
AND
RESTART THE PROGRAM USING THE J11 MICRO-ODT P COMMAND
.

2.3

OPERATION UNDER APT

THERE ARE NO DIFFERENCES IN THE EXECUTION OF THIS DIAGNO
STIC
WHEN OPERATING IN AN APT ENVIRONMENT. PROBLEMS CAUSED BY
THE
ASYNCHRONOUS HALTS OF THE DIAGNOSTIC BY THE APT MONITOR
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

THE ERROR WILL
WILL HALT.

(PC AT

TIME OF ERROR)

THEN BE REPORTED TO APT AND

4.0

PROGRESS REPORT

THE END OF EACH PASS

THE DIAGNOSTIC NAME

THE PROGRAM

AND PASS COUNT

ARE PRINTED.

0005,

PROGRAM MEADER AND

KDJ11A.MAC

TABLES

20-MAR-84 11:19

185

MACY11

30AC1052)

van

20-MAR-

Gl
8

SEQ 0006

SBTTL PROGRAM HEADER
.MCALL NEMTST,ERRDEF, .EQUAT..KT11,.$40CAT, .SEOP, . $APTBLS,
SE TUP
.MCALL
.$TYPE,.$
.BGNTST
TYP
,ENDTST
DEC
.BGNMOD
,ER
, ENDMOD
RDF
| CKLOOP
.MCALL _HEADER,.SETUP, .$TRAP,BGNSUB.ENDSUB. . $SACT11 . $APTHOR

191

"MCALL

193
194

195
196

. $APTYPE..S
.$TYPOCT
ERROR
.. SREAD
,

.TITLE KDJ11-A MEMORY MANAGEMENT DIAGNOSTIC
:sCOPYRIGHT (C) MARCH,1984

197

;sDIGITAL EQUIPMENT CORP.

199
200

g
i

202

s sPACKAGE

198

: sMAYNARD, MASS. 01754

501

205

ek .

.TITLE PROGRAM MEADER AND TABLES

186
188
189
190

204

;4THIS

090001

160000

$TN=1

PROGRAM WAS

ASSEMBLED

USING

(MAINDEC-11-DZQAC-C3),

$SWR=160000

:sHALT ON ERROR,

THE

PDP-11

JAN 19,

1977,

LOOP ON TEST,

MAINDEC

SYSMAC

INHIBIT ERROR TYPOUT

H1
SEQ 0007

.TITLE GLOBAL AREAS
.SBTTL
GLOBAL EQUATES SECTION

; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
; ARE USED IN MORE THAN ONtE TEST.
s

.SBTTL
001000

000011
000012
000015
000200
177776

228
229

235
236
237
238
239
240
241

242
243

177774
177772

177570
177570
000000
002001
000002
000003
000004
000005
000006
000007
000006
000007

244

245
246
247
248
249

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

000000
000040
000100
000140
000200
000240
000300
000340
100000
040000
020000
010000
004000
002000
001000

BASIC DEFINITIONS

;*INITIAL ADDRESS OF

STACK=
.EQUIV
.EQUIV

1000
EMT,ERROR
IO0T,SCOPE

THE STACK POINTER #¢«

1000 sas

: sBASIC DEFINITION OF ERROR CALL

: sBASIC DEFINITION OF SCOPE CALL

s *MISCELLANEOUS DEF INITIONS

HT=
LF=

11
12

CR=
CRLF=

15
200

.EQUIV
STKLMT=
PIRQ=
DSWR=
DDISP=

PS,PSW
177774
177772
177570
177570

PS=

177776

::CODE FOR HORIZONTAL
::CODE FOR LINE FEED

::CODE FOR CARRIAGE RETURN
+sCODE FOR CARRIAGE RETURN-LINE FEED

s sPROCESSOR STATUS WORD

:3STACK LIMIT REGISTER
+ sPROGRAM INTERRUPT REQUEST REGISTER

: sHARDWARE SWITCH REGISTER
s tHARDWARE DISPLAY REGISTER

i *GENERAL PURPOSE REGISTER DEFINITIONS
RO=
%0
: sGENERAL REGISTER
R1=
L 31
: sGENERAL REGISTER

R2=

: sGENERAL REGISTER

R4 =

: sGENERAL REGISTER

R6=

SP=

R3=

RS=
R7=

PC=

: sGENERAL REGISTER

; sGENERAL REGISTER

: sGENERAL REGISTER

:sSTACK POINTER

: sPROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

0
40
100
140
200
240
300
340

:sPRIORITY
1 sPRIORITY
; sPRIORITY
:sPRIORITY
: sPRIORITY
s sPRIORITY
::PRIORITY
: sPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;#"SWITCH REGISTER” SWITCH DEF INITIONS
SW15=
100000

SWi4=
SW13=
SW12=
SW1l=
SW10=
SWO09-=

40000
20000
10000
4000
2000
1000

TAB

O
1
2
3
4
S
6
7

GLOBAL AREAS
KDJ11A.MAC

262
263
264
265
266
267
268
269
270
271
272
273
274
275

MACY11 30A(1052)
20-MAR-84 1 1: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

20-MAR-84
11: 31
PAGE 8
BA SIC DEFINITIONS

SWO8=
SWO7=
SWO6=
SWO5=
SWO04
=
SWO3=
SWO2=
SWO1=

SWO00=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

I1
SEQ 0008

400

200
100

20
10
4

2
1
SW09, SW9
SWO08, SW8
SWO7,SuW7
SW06
, SW6

SWOS, SW5
SWO4,SWa
SWO3,SW3
SW02, SW2
SWO1,SW1
SW00, SWo

;#DATA BIT DEFINITIONS (BITOO TO BIT1S)
BIT15=
100000
40000
BIT14=
BIT1320000
BIT12=
10000
4000
BIT11=
BIT10=
2000
BIT09=
1000
400
BIT08=
BITO7=
200
BIT06=
100
40
BITOS=
BITO4=
20
BITO3=
10
4
BITO2=
BITO1=
2
BITOO=
1
.EQUIV B81709,BIT9
.EQUIV B8I708,BI78
.EQUIV BIT07,BIT7
.EQUIV
BIT06.8IT6
.EQUIV
BIT0S5,BITS
.EQUIV
B8IT04,BIT4
.EQUIV
BIT03,BIT3
.EQUIV
BIT02,BIT2
.EQUIV
BITO1,BIT1
.EQUIV
BIT00,BITO

000010
000014
000014
000014

000020
000024

; $BASIC “CPU” TRAP VECTOR ADDRESSES
4
3 TIME OUT AND OTHER ERRORS
RESVEC= 10
8UR$SES¥$D AND ILLEGAL INSTRUCTIONS
ERRVEC=

TBITVEC=14
TRTVEC= 14

BPTVEC= 14
IOTVEC= 20

PWRVEC= 24

: s TRACE

TRAP

: ;BREAKPOINT TRAP (BPT)

3 s INPUT/0UTPUT
; sPOMER FAIL

TRAP (IOT)

«eSCOPEss

GLOBAL AREAS
KDJ11A.MAC

318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373

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

000030
000034
000060
000064
000240

20-MAR-84
11:31
PAGE 9
BASIC DEFINITIONS
EMTVEC= 30
TRAPVEC=34
TKVEC=
o0
TPVEC=
64
PIRQVEC=240

.SBTTL

000250

J1
SEQ 0009

: sEMULATOR TRAP (EMT) «+ERROR4#

::"TRAP" TRAP
:3TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR
; :PROGRAM INTERRUPT REQUEST

MEMORY MANAGEMENT DEFINITIONS

;#KT11

VECTOR

MMVEC=

250

ADDRESS

s#KT11 STATUS REGISTER ADDRESSES

177572
177574
177576
172516

SRO=
SR1=
SR2=

SR3=

177572
177574
177576
172516

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

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

177600
177602
177604
177606
177610
177612
177614
177616

; *USER “D" PAGE DESCRIPTOR REGISTORS
177620
177622
177624
177626
177630
177632
177634
177636

UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4
=
UDPDRS5=
UDPDR6
=
UDPDR7=

177620
177622
177624
177626
177630
177632
177634
177636

s #USER “I" PAGE ADDRESS REGISTERS
177640
177642

177644

177646

177650
177652
177654
177656

UIPARO=
UIPAR1=
UIPAR2=
UIPAR3=
UIPAR4=

177640
177642
177644
177646
177650
UIPARS= 177652
UIPARG= 177654
UIPAR7= 177656

;s *USER “D” PAGE ADDRESS REGISTERS
177660
177662
177664

UDPARO= 177660
UDPAR1
= 177662
UDPAR2= 177664

VECTOR

GLOBAL AREAS

KDJ11A.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

MACY11

30 A(1052)
20-MAR-84 1 1:19

177666
177670
177672
177674
177676

IK1

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

UDPAR3=
=
UDPAR4
UDPARS=
UDPARG6
=
UDPAR7
=

177666
177670
177672
177674
177676

i *SUPERVISOR “I" PAGE DESCRIPTOR REGISTERS
172200
172202
172204
172206
172210
172212
172214
172216

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

172200
172202
172204
172206
172210
172212
172214
172216

+*SUPERVISOR “D" PAGE DESCRIPTOR REGISTERS
172220
172222
172224
172226
172230
172232
172234
172236

SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
=
SDPDR4
SDPDRS=
SDPDR6=
SDPDR7=

172220
172222
172224
172226
172230
172232
172234
172236

:*SUPERVISOR “I* PAGE ADDRESS REGISTERS
172240
172242
172244
172246
172250
172252
172254
172256

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=
SIPAR6=
SIPAR7=

172240
172242
172244
172246
172250
172252
172254
172256

:*SUPERVISOR “D" PAGE ADDRESS REGISTERS

418
419

424
425
426

427

428
429

172260
172262
172264
172266
172270
172272
172274
172276

SDPARO=
SDPAR1
=
SDPAR2=
SDPAR3=
SDPAR4=
SDPARS=
SDPARG6=
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

GLOBAL AREAS
KDJ11A.MAC
430
431
432

433

434
435
436

437
438
439

440
441
442

443

444
445
446

447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485

MACY11

20-MAR-84

172310
172312
172314
172316

30A(1052)

11:19

ZO-HARFEM
11:31
PAGE 11
MORY MANAGEMENT DEF INITIONS
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

SEQ 0011

172310
172312
172314
172316

;*KERNEL “D” PAGE DESCRIPTOR REGISTERS
172320
172322
172324
172326
172330
172332
172334
172336

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

KDPDR4= 172330

KDPDRS=

172332

KDPDR6= 172334
KDPDR7= 172336
s#KERNEL

172340
172342
172344
172346
172350
172352
172354
172356

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=

172370

ADDRESS REGISTERS

172340
172342
172344
172346

KIPAR4= 172350
KIPARS= 172352
KIPAR6= 172354
KIPAR7= 172356
;#KERNEL

172360
172362
172364
172366

“I" PAGE

"D“ PAGE

ADDRESS REGISTERS

KDPARO= 172360
KDPAR1= 172362
KDPAR2= 172364

KDPAR3= 172366

KDPAR4= 172370

172372
172374
172376

KDPARS=

000000
000001
000002
000003
000004
000005
000006
000007

ACO=

172372

KDPAR6= 172374
KDPAR7= 172376

s THESE % FLOATING POINT ACCUMULATOR EQUATES

AC1=

AC2-

AC4=

Lo)

AC7=

000244

FPVEC=

244

177746
177744
177752
177766

CCR=

AC3=

AC5=
AC6=

%5
%6

; THESE ARE CACHE REGISTER EQUATES

MSER=
HITMIS=

CPEREG=

177746

177744
177752

177766

;CACHE CONTROL REGISTER

sMEMORY SYSTEM ERROR REGISTER
tHIT/MISS REGISTER

;CPU ERROR REGISTER

GLOBAL AREAS

KDJ11A.MAC

486
487

MACY11l

30A (1052)

20-MAR-84 11 :19

SEQ 0012

sMISCELANEOUS DEFINITIONS

177546
177560
177562
177564
177566

488
489
490
491
492
493
494

20-MAR-84
11:31
PAGE 12
ME!MORY MANAGEMENT DEF INITIONS
BEVENT= 177546

RCSR=
RBUF =
XCSR=
XBUF =

;BEVENT CONTROL REGISTER

177560
177562

177564
177566

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

495
496
497
498

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

; THIS EQUATE DEFINES THE BOTTOM OF THE PROGRAM STACK POINTER
.ASECT
.SBTTL

STBOT=

1000

TRAP CATCHER

‘.o

s#ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN
;#A “.+2, IOT” SEQUENCE TO CATCH AND PROCESS ILLEGAL
:*TRAPS AND INTERRUPTS THAT MIGHT OCCUR.
;#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 SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:

PC=YYYYYY

UNEXPECTED

TRAP

YYYYYY=PC

TRAP

XXX

;#AND RETURN TO THE PROGRAM AT PC=YYYYYY.2
s #WHERE XXX=LOCATION OF ILLEGAL TRAP

TIME

;#NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM

go
000000
000002

000004
000006

000174
000176
000200

$40CAT:

000737
001604
000340
000174

000137

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

MALT

.-100

.MORD
.uggg

START
340

DISPREG: .MORD
001604

SWREG:
.SBTTL

.SBTTL

: sHALT

;:gg;gg? TO 177700 €& TIME OUT (NOT ON

::VECTOR TO STARTING ADDRESS
: sWITH PRIORITY LEVEL 7

.WORD
O
STARTING ADDRES(ES)

JMP
@O0START
ACT11 HOOKS

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

;;G0 TO START OF PROGRAM

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

000204
000046

000052

...“‘.“".

;HOOKS REQUIRED BY ACT11
$SVP
“C=,

:SAVE PC

020026
000052

ieggno

000204

. =$SVPC
APT PARAMETER BLOCK

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

MORD

.SBTTL

RESTORE PC

3g“0“““‘.“““‘..““““““‘.“““0“...““.““

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

‘.0‘l“‘

GLOBAL AREAS
®DJ11A.MAC
s‘?

543
544
545

000024

S47

000044

546

548
5‘9

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

000204
000024

200

000204

$APTHDR

SEQ 0013

.=44

.=.$X

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

;;SAVE CURRENT LOCATION
;;SET POWER FAIL TO POINT TO START OF PROGRAM
::FOR APT START UP

;;POINT TO APT INDIRECT ADDRESS PNTR.
;;POINT TO APT HEADER BLOCK

;;RESET LOCATION COUNTER

F 3““““‘.““.“‘.“.‘.““.“.‘....“.“‘t“““

““‘..“‘.“

sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

ggé

: INTERFACE SPEC.

553
S54
555
556
557
S58
559

000204
000204
000206
000210
000212
000214
000216

562
563
564

000002
000004
000006

565
566

.$X=.
.=24

000200

000204

FH 3.‘.““‘..“..““.“‘...‘..“““.‘0““‘““‘

000044

550

560
561

20-MAR-88
11:31
PAGE 13
APT PARAMETER BLOCK

000000
001000
000001
000002
000000
000014

000204
000002
000000
000006
000004

000204
001000

$APTHD:
SHIBTS:
$SMBADR:
$TSTM:
$PASTM:
SUNITM:

.= 8X
=2

0
6
a

.= 8X
.=1000

.WORD
.WORD
_WORD
.WORD
.WORD
.WORD

O
::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
$MAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
1
:3RUN TIM OF LONGEST TEST
2
:sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
O
: sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-S$MAIL/2 ;;LENGTH MAILBOX-ETABLE(WORDS)

:SAVE CURRENT LOCATION COUNT

:SET UP SOME VECTORS

;:RESTORE LOCATION COUNT

GLOBAL

AREAS
KDJ1.1A
MAC
Se7

578
S79
580

581
582
583
S84
585
586

587

588
589
590
591
592
593
594
595
596
597
598
599

607
608
609
610
611
612
613
614
615
616
617
<18
619
620
621
622

SEQ 0014

GLOBAL DATA SECTION

THE

IN MORE

GLOBAL

DATA SECTION CONTAINS DATA

THAN ONE

TEST,

THAT

ARE

USED

.SBTTL

APT MAILBOX-ETABLE

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

001000
003000
001002
001004
001006
001010
001012
001014
001016

001020
001029
001021

v01022
001024
001026

.EVEN
SMAIL :

$MSGTY:
$SFATAL:
$TESTN:
$PASS:
SDEVCT:
SUNIT:
$MSGAD:
SMSGLG:

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

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

SETABLE :
SENV:
.BYTE

SENVM:
$SWREG:
SUSWR:
SCPUOP:

_BYTE
.WORD
.WORD
.WORD

001030

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV

AENVM
ASWREG
AUSWR
ACPUOP

1 3APT MAILBOX

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

$ sAPT ENVIRONMENT TABLE
1 sENVIRONMENT BYTE

: sENVIRONMENT MODE BITS
;3;APT SWITCH REGISTER
;;USER SWITCMES
;;CPU TYPE,OPTIONS
BITS

ie
i
i
i
ie

BIT
BIT
BIT

SETEND:

15-11=CPU

TYPE

11/04=01,11/05-02,11/20:03,11/40=048,11/45:05
11/70=06,PDQ@=07,Q=10
10=REAL TIME CLOCK
9sFLOATING POINT PROCESSOR
8=-MEMORY MANAGEMENT

MEXIT

500
- 01

w02
603
604
605
606

11:19

574

577

20-MAR-84

20-MAR-84
11:31
PAGE 14
GLOBAL DATA SECTION

.SBTTL

568
569
570
§71
572
573
575
576

MACY11l 30A(1052)

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

sWHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY

001030
001032

001034

001036

001040
001042
001044
001046
001050
001052
001054
001056
001060
001062
001064

sFROM THE DEFAULT RESPONCE.

SLOCOO:
SLOCO1:

.
.

0
0

s THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE
WORKING DATA.
EXPDAT: .WORD
©
:STORES EXPECTED (GOOD) DATA FOR COMPARISONS
RECDAT: .WORD
©
1STORES RECIEVED DATA TQ BE VERIFIED
COUNT:
.WORD
O
;ERROR INDICATOR FOR FLOATING POINT TESTS

FLAG:

ERRCNT:

SWR:

.WORD

.HORD

DISPLAY: .WORD

tUSED TO STORE "FLAG" CONDITIONS

DSWR

1STORAGE FOR SWITCH REGISTER ADDRESS

DDISP

1STORAGE FOR ERROR COUNT

1 STORAGE FOR DISPLAY REGISTER ADDRESS

SERFLG:

.WORD

1ERROR FLAG

DCOUNT:
ALLCTR:

.WORD
.WORD

O
O
O
¢
O

1STORAGE FOR UNEXPECTED TRAP DATA
:
.
y
"
.

s THESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS

LOOPIN:
SAVSP1:
SAVSP2:

.WORD
.,WORD
.WORD

GLOBAL AREAS
KDJ11A
. MAC

FLOAT:

HIS

0
0

tUSED
tUSED

0
0

tUSED TO STORE MMU STATUS REGISTER 1 DATA
tUSED TO STORE MMU STATUS REGISTER 2 DATA

0o
4
)

IT.

.BLKW

000002

8::

—t
e

001120
001120

WORD
WORD
WORD
WORD
WORD
.BLKW
.BLKW

FLO:

ree

640

001066
001070
001072
001074
001076
001100
001110

623
624
625
626
627
628
629
630
631
632
633
034
635
636
637
638
639

TO STORE SUPERVISOR STACK
TO STORE USER STACK VALUE

VALUE

1USED TO STORE MMU STATUS REGISTER O DATA

tUSED
tUSED

TO
TO

STORE
STORE

VALUES FOR MMU
VALUES FOR MMU

TESTS
TESTS

THE PROGRAM TEST LOCATION AND WRITE BUFFER! 11108
0000800

KBITL .MA
ARE

653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669

670
671
672
673
674
675

20 HAR A0 11418527 20-MARPRL 1584, BRGE
AR

0w
we

.SBTTL

GLOBAL

S5€EQ 0C16

TEXT SECTION

THE GLOBAL

TEXT

SECTION CONTAINS FORMAT

MESSAGES, AND ASCII
MORE THAN ONE TEST.

STATEMENTS,

INFORMATION THAT ARE USED

041
642
643
644
645
646
647
648
649
650
651
052

s 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

020124
020070
047506
041040
051531

OPMSG2:

044103
052123
051122

ERRMSG
: .ASCIZ
:

<CR><LF>/CACHE SYSTEM ERROR/

051122
051125
046515
052123

MMUERR:

.ASCIZ

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

ERR1:

.ASCIZ

<CR><LF>/ERROR

041520

047522
000075
047522
036440

ERR2:

.ASCIZ

<CR><LF>/ERROR PC

020012

020040

$CRLF:

.ASCIZ

<CR><LF>/

042412
042040
020107
042524
000107
051105
020043

051105

.ASCIZ

.EVEN

<CR><LF>/SET BIT 8

1 FOR

18 BIT SYSTEM/

GLOBAL

AREAS

MACY11

30A(1052)

KDJ11A.MAC ~ 20-MAR-84 11:19
676
.

678
679

680
682

20-MAR-84

11:31

PAGE

GLOBAL 'ERROR REPORT SECTION
.SBTTL

GLOBAL ERROR REPORT SECTION

swé

;

THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTIN

AREAS
: USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMAGTION.

»e 5

GLOBAL ARE AS
KDJ11A.MAC

707

708
709
710
7ii
712
713
714
715
716
Tir
718
719
720
721
722
723
724
725
726

727
728
729
730
731
732
733
734
735
736
737

738

11:19

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

.SBTTL

SEQ 0018

GLOBAL SUBROUTINES SECTION

300

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

THAT

ARE

USED IN MORE

THAN ONE

TEST.

sMMU GLOBAL SUBROUTINES
:
H

;ROUTINE

001306
001310
001312

001314

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

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

MMU :

177600
000062
000100
000074
172200
000042
000060
000026
000044
000040
000027

TO
MOV
MOV

RO, -(SP)
R1,-(SP)

MOV
JSR
JSR
JSR
MOV
JSR
JSR
JSR

£177600,R0
PC,PDR
PC,.PAR
PC,PAR
€172200,R0
PC,.PDR
PC,.PAR
PC,PAR

JSR
JSR
JSR
MOV
MOV
MOV
MOV
RTS

172516

INITIALIZE MEMORY MANAGEMENT

PC,.PDR
PC.PAR
PC,.PAR
927,80172516
(SP)+,R2
(SP)+,R1
(SP)+,RO
PC

: SAVE CONTENTS OF REGISTERS
H
H

s INIT
s INIT
s INIT

OrHM

700
701
702
703
704
705
706

30A(1052)

AND D USER PDR'S

USER PAR'S
USER PAR’S

AND
s INIT
s INIT
SUP
SUP
s INIT
AND
s INIT
KER
sINIT
s INIT D KER
s INIT MMR3
OHFHOMMH

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

MACyY11

20-MAR-84

D SUP PDR'S

PAR'S
PAR'S

D KER PDR'S
PAR'S

PAR’'S

;RESTORE REGISTERS
:
:

;RETURN

sROUTINE TO INITIALIZE PDR'S
001406
001410
001414
001420
001424
001426

005002
012720
062702
022702
001371
000207

077406
000001
000020

PDR:
PDR1:

CLR
MOV

ADD

cHP
BNE

RTS
H

sROUTINE

001430
001432
001434
001440
001444
001446
001452

005001
010120
062701
022701
001372
012720
000207

000200
001600

PAR:
PAR1:

a1,R2

016. .R2
PDR1

: INIT CNTR
sINIT PDR
: INCREMENT CNTR

sARE WE DONE?

:BRANCH IF NOT

sRETURN

TO INITIALIZE PAR'S
CLR
MOV

ADD

cMP
BNE
MOV

177600

R2
977406,(RO)»

RTS

R1
R1,(RO).

21600,R1

PAR1
9177600,(RO)

;SETUP TO INIT PAR
:INIT PAR
;:GET READY FOR NEXT PAR
;REACHED A PAR?
:BRANCH IF NOT
; INIT PAR7
;RETURN

s TIME OUT ROUTINE
001454
001456

005205
000002

ADDTRP:

INC
RTI

s INCREMENT TIME OUT FLAG

:RETURN

KDJT1A

AREAS
.MAC

20MAR 84011952 w’“&M‘MfiE&?xcnm

739

740
741
742
743
744
745

746
747
748
749
750
751
752
753
754
755
756
797
758
759
760
761
762
763
764

SEQ 0019

sMMU TRAP ROUTINE

001460
001466
001470
001472
001474
001476
001500
001504
001510
001514
001516
001520
001524
001530
001534
001540
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

MMUTRP:

1%:

177776
177764
000002

ASH

177776
000002
000002

177572
177574
177576
177572
177242

177316
177312
177306

NOTOK:
OK1i:

FLAG,#1

MMUERR

RO, -(SP)
ae177776,RO

CcMP
BNE
BR
MOV

RO, &2
OK

cMP
BNE
CLR
MOV
MOV
MOV
CLR
CLR
MOV

RO, &2
OK1
4(SP)
88177572, SAVMRO
84177574, SAVMR1

ASH
ASH

177764

000004

CMP
BEQ
ERROR
.WORD
. WORD
MOV
MOV

RTI

NOTOK
8817777
,RO
6
#2,R0
#-14,RO

a8177576,SAVMR2
80177572

FLAG

(SP).,RO

sARE WE EXPECTING AN ABCRT

:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
sSAVE CONTENTS OF REG O
i1SAVE A COPY OF PSW
;LOOK AT BITS<15:14>

1WAS PS<15:14>=10

:NO GO ON
:YES CHANGE BITS TO 00
:SAVE A COPY OF PSW
;LOOK AT BITS<13:12>

iWAS PS<13:12>=10

:NO GO ON
:CLEAR ILLEGAL MODE FFROM OLD PSW
:SAVE A COPY OF MMRO
:SAVE A COPY OF MMR1
:SAVE A COPY OF MMR2
;:CLEAR ABORT BITS AND TURN MMU OFF
;CLEAR MMU ABORT FLAG
:RESTORE ORIGINAL CONTENTS OF REG 0

:RETURN

GLOBAL

AREAS
KDJ11A, MAC
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

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

816
817
818

819
820

001604
001604

001612
001616

001624
001632
001640
001646
001652
001660
001664
001670
001676
001704
001712
001720
001722
001724
001730
001732
001740
001746

MACY11

20 han 343911852
012737

30A(

000014

012706

001000

012737
012737
012737

022304
000340
021756

012737
005067
016767
105067
013746
012737
012767
012767
022777

001012
000403

000340
177134

016116

177166

000004
001724
177570
177570
177777

g(l)g&l)g

001732

012767
012767
012637

000176
000174
000004

.
88l 1408ro0
I TReR e C T 0N

20-MAR-

177746

000030
000032
000034

START:

.SBTTL

000036
016106

002026
002032
002034
002042
002044
002052
002054
002056
002060
002066

000004
177142
177136
177126

177106
177102

177030
000200

177035

012767

001022

177052

012737
012737
005037
012767
104401

022304
000340
177766
001460
001124

000020
000022

005737

000042

126727

176760

000001

026727

176776

000176

001406

001005
104406
000403
112767

000001

TO FORCE MISS

MOV

@STACK, SP

MOV
MOV
MOV
MOV
CLR
MOV
CLRB

@SERROR, BPEMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
9340, 80EMTVEC+2 ; ;LEVEL 7
#$TRAP,B0TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
©340,80TRAPV
+2; LEVEL
EC 7
$PASS
1 ;CLEAR THE PASS COUNT
$ENDCT,$EOPCT
;;SETUP END-OF -PROGRAM COUNTER
S$ERFLG
: sCLEAR THE ERROR FLAG

MOV
MOV
MOV
MOV
cMP

80ERRVEC, -(SP)
£64$ ,890ERRVEC
#DSUR, SWR
@DDISP,DISPLAY
#-1,3SWR

BNE
BR

11SETUP THE STACK POINTER

176226

017666

664

;;SAVE ERROR VECTOR
:13SET UP ERROR VECTOR
$3SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
:3TRY TO REFERENCE HARDWARE SWR

3 :BRANCH IF NO TIMEOUT TRAP OCCURRED

:13AND

65$

THE HARDWARE

SWR

: sBRANCH IF NO TIMEOUT

64%:

FRKT)V{

#65%,(SP)

65%:

MOV
MOV
MOV

OSUWREG, SWR
: sPOINT TO SOFTWARE SWR
ODISPREG,DISPLAY
(SP)+ ,80ERRVEC
;;RESTORE ERROR VECTOR

66$:

BEQ
MOV

cMPB

QAPTSIZE, SENVM
$ARG1
@$SUWREG, SWR

: sCLEAR PASS COUNT

;;TEST USER SIZE UNDER APT
$sYES,USE NON-APT SWITCH
3 sNO,USE APT SWITCH REGISTER

$PASS
QAPTSIZE,$ENVM

3 sCLEAR PASS COUNT
;;TEST USER SIZE UNDER APT

#$SWREG, SWR

:3sNO,USE APT SWITCH REGISTER

67$

::SET UP FOR TRAP RETURN

: s YES,USE NON-APT SWITCH

SENV, 21

: sBRANCH IF YES

3 sARE WE RUNNING UNDER APT?

BEQ

68%

1 sBRANCH IF YES

BNE
GTSWR
BR

69s

: sBRANCH IF NO
:3sGET SOFT-SWR SETTINGS

cMP

?$ARG1

IS NOT

MOV
@S$ERROR,8#IOTVEC
:sSET UP IOT VECTORS
MOV
#340,30I0TVEC+2
::70 GO TO ERROR ROUTINE
CLR
80177766
:CLEAR CPU ERROR REGISTER
MOV
OMMUTRP ,MMVEC
. OPMSG2
sOPERATOR MESSAGE 2
GET VALUE FOR SOF TWARE SWITCH REGISTER
T1ST
8042
$:ARE WE RUNNING UNDER XXDP/ACT?

BNE

ggi:

$PASS

$SSETMAIL

CLR
BITB

TYPE
.SBTTL

$$SETMAIL

CLR

BIT8
BEQ
MOV

.ENDM

005067
132767

001012

1SET CACHE

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

NPty

001403

SEQ 0020

MOV
014,80CCR
INITIALIZE THE COMMON TAGS

;s INITIALIZE A FEW VECTORS

.MACRO

001752
001756
001764
001766
001774
001774
002002
002010
002014
002022

MOvVB

SWR, #SWREG

41, SAUTOB

3 s SOF TWARE SWITCH REG SELECTED?

$3SET AUTO-MODE INDICATOR

-1

GLOBAL

AREAS

MACY11

30AC1052)

KDJ11A.MAC = 20-MAR-84 11:19
821

822

002066

002072

005067

012757

176712

000018

20-MAR-84

177746

824

002100

002104

002132

850
851
852
353
854
855
856

860
861
862
863
864
865
866
867
868
869

002124

002134
002140
002144

002150
002154
002160
002164
002166

002170
002172

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

005267

005067

005037
005037
013746

012737

005005

013701
013701
013701

013701
012637
020527
001403
104000

176700

INC

175656

177572
001042
000004

001454

CLR

000004

80177572
8OFLAG
804, -(SP)

: TURN MMU OFF
:CLEAR MMU TRAP FLAG
:SAVE OLD VECTOR

CLR

:CLEAR FLAG

80172516 .R1
(SP)+.B04
RS, 20
13

: TEST MMR3
:RESTORE VECTOR
:DID WE TRAP
iNO, THEN BRANCH
:ALL ERRORS TO TRAP TO EMT VECTOR

MOV
MOV
MOV

172516
000008
000000

MOV
MOV
cHP
BEQ
ERROR

000002
001213

s INCREMENT TEST NUMBER

:CLEAR CPU ERROR REGISTER

CLR
CLR
MOV

MOV

177572
177574
177576

STESTN

CPEREG

JWORD
WORD

GADDTRP, 804

iSETUP NEW VECTOR

80177572.R1
80177574 .R1
80177576 .R1

: TEST MMRO
: TEST MMR1
: TEST MMR2

2
MMUERR
:YES.

{UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
GO TO ERROR

002174

TSMMU2:
;'....“‘.“.‘..““‘..“““.“‘.““..“.“....““‘.......‘

;#TEST 2

002174

002174
002200
002204
002210
002214
002220
002224
002230
002236
002244

005267
005067
005037
005037
013746
013746
013746
012737
012737
012737

176604
175562
17757
001045
000244
000246
000004
000246
000002
001454

002254

012700

172200

872

002260

876

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

TST1:

18:

002252

873
874
875

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

STATUS REGISTER TEST

002174

870

871

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

TSMMUL:

857

858
859

BEGIN MMU TESTING

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

841

845
846
847
848
849

$TESTM TO ZERO

MEMORY MANAGEMENT TESTS

:4TEST 1

002110
002114
002120

84z
843
844

sRESET

1SET CACHE TO FORCE MISS

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

002100

837
838
839

840

$TESTN

214, 80CCR

833

835

CLR

MOV

SEQ 0021

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

832

836

RESTART:
.SBTTL

828
629

834

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

827

830

GET VALOE FoR"S5F THARE SWITCH REGISTER

825
626

331

11:31

002262
002266
002270
002274

005005

005020

020027
001374
012700
005020

172400
177600

ADDRESS TEST OF PARS,PDRS, AND FP REGS

.“

".‘..‘.“““‘..“‘.‘.“......“‘.......““.“.“.........‘...‘
1sT2:

000244
000246
000004

INC
CLR
CLR
CLR
MOV
MOV
MOV
MOV
MOV
MOV

STESTN
CPEREG
80177572
8OFLAG
80244, -(SP)
80246, -(SP)
804, -(SP)
0246, 80244
02,0246
0ADDTRP, 904

MOV

0172200,R0

CLR

18:

2s:

CLR

cHp
BNE
MOV
CLR

: INCREMENT TEST NUMBER
:CLEAR CPU ERROR REGISTER
sMMU OFF
:CLEAR MMU TRAP FLAG
iSAVE FP VECTOR

:SAVE TIME OUT VECTOR
:SETUP NEW FP VECTOR
:
:SETUP NEW TIME OUT VECTOR

:CLEAR TIMEOUT FLAG

(RO

RO, 0172400
18
#177600,R0
(RO)+

sLOAD ALL PARS AND PDRS WITH ZERO

3
:
:
"

GLOBAL AREAS
KDJ11A.MAC

877

878
879
880

881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
9202
903
904
905
9206
907
908
209

910
911

912
913
914
915
916
917
918
919
920
921
922
923
924
925
926

927

928
929
930
931
932

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

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

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

002372
002376
002400
002402
002404

021427
001403
104000
000004
001213

002406
002412
002416
002420
002424
002430
002432
002434
002436

012704
012701
010102
072227
021427
001403
104000
000005
001213

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
020427

020027
001374

20-MAR-84

177700
000200
001100

001100

001110
001110

3s:

11:31

PAGE 22

ADDRESS

TEST OF PARS,PDRS,

cMP
BNE
LDFPS
MOV
CLR
CLR
CLR
CLR
MOV
LDD
LDD
LDD
LDD
STD
STD
DIVD
STST
MOV

RO, #177700

CcMP
BEQ

ERROR

.WORD
.WORD

002344

21s:

cMP
BEQ

ERROR
.WORD
.WORD

172200

000001

000010

22%:
4%:

MOV
MOV
MOV

ASH

cMP
BEQ
ERROR

.WORD

S$:

172400
177600
000010

6$:

0200
OFLOAT,RO

(RO)+
(RO)»
(RO)«
(RO).

(RO),AC3
ACO,ACa
ACO,ACS
ACO,AC1
S6FLO
&FLO,R4

(R4)+,04

2ls

MMUERR
(R4),e3s

224
4

MMUERR

9172200,R4
21,R1

R1,R2

#10,.R2

(R4),00

-1

R2,(R4).
R1
R4,4172400
43
€177600,R4
R1,R2
#10,R2

cMP

:LOAD ACO-ACS WITH O

(RO),ACO
(RO),AC1
(RO),AC2

MOV
INC
CMP
BNE
MOV
MOV

MOV
INC

SEQ 0022

AND FP REGS

OFLOAT,RO

MMUERR

cHP
BEQ
ERROR
.WORD
. WORD

177700

.WORD

ASH

7%:

;LOAD FEC WITH 4 AND FEA WITH #3$

sCHECK FEC FCR 4 AND FEA FOR 43¢
4

;
:

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

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

:CHECK EACH PAR, PDR FOR O THEN

iWRITE A UNIQUE NUMBER

H
:

:
H

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

(R4),00
74

6
MMUERR
R2,(R4).
R1
R4,4177700

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

952
953
954

955

956
957

958

959
960
91
962
963
964
965
966
967
968
969

970
971
972
973
974
975
976
977
978
979
980
981
982

983
985
986
987
988

000004
000000

LDD
STD
MOV
CMP
BEQ

STD

8s%:

ERROR

9s:

001100

10¢:

001213

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

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

11%:

001100

128:

13s:

145

15s:

6%
4FLO,R4
OFLOAT ,R3
ACO,.(R4)
ACS5,ACO
ACO, (R3)
&4 ,R2
(R3)+,40
9s

-WORD
.WORD

7
MMUERR

DEC
BNE
MOV
MOV
LDD
STD
LDD
STD
MOV

R2
8s
OFLOAT,R3

cMP
BEQ
ERROR
.WORD
. WORD
DEC
BNE
MOV
MOV
LDD
STD
MOV
cMpP
BEQ
ERROR
. WORD
.WORD

sCHECK ACS FOR ALL ZEROES THEN LOAD A 6
@

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

BNE
MOV
MOV

002550
002552
002554

001110
001100

SEQ 0023

AND FP REGS

001362
012704
012703
174014
172405
174013
012702
022327
001403
104000
000007
001213

11:31
PAGE 23
ADDRESS TEST OF PARS,PDRS,

002510
002512
002516
002522
002524
002526
002530
002534
002540
002542
002544
002546

20-MAR-84
T2

933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951

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

GLOBAL AREAS
KDJ11A.MAC

sALL ERRORS

TRAP

;UNIQUE ERROR NUMBER

TO EMT

VECTOR

:ADDRESS OF ERROR MESSAGE

#6,(R3)
(R3),ACO

ACO,ACS
AC4,ACO
ACO,(R3)
&4 ,R2

;CHECK AC4 FOR ALL ZEROES THEN LOAD A S

(R3)+,00
118

MMUERR

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

10$

OFLOAT ,R3
#5,.(R3)

(R3),ACO
ACO,AC4

04 ,.R2

CHECK ACO FOR ALL ZEROES THEN LOAD A 1

{UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

(R4)+,00
138

MMUERR

DEC
BNE
MOV
LDD
MOV
MO v
STD
CMP
BEQ
ERROR
.WORD
.WORD

MMUERR

DEC
BNE

R2
14

:ALL ERRORS TO TRAP TO EMT VECTOR

12¢
#1,(R3)
(R3),ACO

OFLO,R4
&4 ,R2

CHECK AC1 FOR ALL ZEROES THEN LOAD A 2

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

AC1,(R4)
(R4).,00
15¢

GLOBAL AREAS
KDJ11A. MAC

989
990
991
992
993
994
995
996
997
998
999

1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
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

MACY11l

20-

-84 11:19

002720
002724
002726
002732
002736
002740
002744
002746
002750
002752

012713
172513
012704
012702
174214
022427
001403
104000
000013
001213

002754
002756
002760
002764
002766
002772
002776
003000
003004

003012

005302
001370
012713
172613
012704
012702
174314
022427
001403
104000
000014
001213

003014
003016
003020
003024
003026
003032
003034
003040
003042
003044
003046

005302
001370
012713
172713
012704
170214
022714
001403
104000
000015
001213

003050
003054

170127
012704
012701
010102

003006
003010

003060

30A(1052)

072227
022402
001403

20-MAR-84

PAGE 24

MOV
MOV

16$:

17s:
000003
001110

18¢:

13
MMUERR

DEC
BNE
MOV
LDD
MOV
MOV
STD

R2
16$
#3,(R3)
(R3),AC2
oFLO,.R4
€4 R2
AC3,(R4)

BEQ
ERROR

19¢

CcMP

000200
172200
000001
000010

R2
18¢
€4,(R3)
(R3),AC3
#FLO,R4
(R4)
#100204,(R4)

cMP

208
:

23$:

15
MMUERR

LDFPS
MOV
MOV
MOV
ASH

4200
#172200,R4
#1.R1
R1,R2
#10,R2

BEQ

248

172400

24s:

177600
000010

25%:

THEN LOAD A 3

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

sCHECK AC3 FOR ALL ZEROES THEN LOAD A 4
:
:

:
;ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE

CHECK FPS FOR 100204 THEN LOAD IT WITH 200

208

ERROR
.WORD
.WORD

cHP

DEC
BNE

BEQ

sCHECK AC2 FOR ALL ZEROES
H

(R4).+,80

MMUERR

MOV
STFPS

100204

" oo

:
H

AC2,(R4)
(R4)+,40
17$

.WORD

MOV
LDD

001110

#2,(R3)
(R3),AC1
#FLO,R4
&4 ,R2

STD
cMP
BEQ
ERROR
. WORD
.WORD

.WORD

19%:

ADDRESS TEST OF PARS,PDRS, AND FP REGS

MOV
LDD

104000
000016
001213

005201
020427
001364
012704
010102
072227
022402
001403
104000

11: 31

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

:
;CHECK PDR,
H
:
:

PAR FOR UNIQUE NUMBERS

(R4).,R2

ERROR
.WORD
.WORD

16
MMUERR

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

INC
CMP
BNE
MOV
MOV
ASH

R1
R4, 4172400
238
#177600,R4
R1,R2
#10,R2

cMP
BEQ
ERROR

(R4)+,R2
26%

:
:
:
H
:
:

:
:

ALL ERRORS TO TRAP TO EMT VECTOR

20-MAR-84

003134
003136

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
172404
174011
022127
001403
104000
000022
001213

003252
003256
003262
003264
003266
003270

012703
022127
001403
104000
000023
001213

003274
003276
003302
003304
003306
003310

003272

005303
001370
022427
001403
104000
000024
001213

003312
003316
003322
003324
003326
003330

012703
022427
001403
104000
000025
001213

30A(1052)

11:19

20-MAR-84
12

11:31
PAGE 25
ADDRESS TEST OF PARS,PDRS,
.WORD
.WORD

177700

26$%:

001100
001110

000006

000003
000000

27%:
28$:

000005

308:
31s:

32%:

000001

000003
000000

33s:
34

4FLOAT,R1
&FLO,R4
ACO,(R4)
AC5,ACO
ACO,(R1)

3,R3

cMP
BEQ
ERROR
. WORD
.WORD
MOV
CMP
BEQ
ERROR
. WORD

CHECK ACS FOR #6

(R1)+,46

sALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE

(R1)+,20

29¢

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

MMUERR

R3
28$

;

OFLOAT,R1

;CHECK AC4 FOR #5

AC4,ACO

ACO,.(R1)

(R1)+,85
30¢

:ALL ERRORS TO TRAP TO EMT VECTOR

22
MMUERR

:UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

#3,R3

328

.WORD

MMUERR

DEC
BNE
CMP
BEQ
ERROR
-WORD
.WORD

MMUERR

MOV
CMP
BEQ

#3,R3
(R4):+,40
35

ERROR
.WORD
.WORD

ERROR MESSAGE

25%

MOV

STD

:ADDRESS OF

R1
R4,4#177700

MMUERR

CMP
BEQ
ERROR
.WORD
.WORD

;UNIQUE ERROR NUMBER

MMUERR

STD
LDD
STD
CcMP
BEQ
ERROR
.WORD
.WORD

DEC
BNE
MOV
LDD

001100

000003
000000

INC

CcCMP
BNE
MOV
MOV

SEQ 0025

AND FP REGS

1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
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

MACY11

GLOBAL AREAS
KDJ11A.MAC

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

(R4).,01
33

:CHECK ACO FOR @1

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

i
i
:

tALL ERRORS TO TRAP TO EMT VECTOR

MMUERR

;UNIQUE ERROR NUMBER
1 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
1153
1154
1155
1156

20 PR 849118720 20-MAR:84 11:31 PAGE 26 OF PARS,PDRS, AND FP REGS

003332
003334
003336
003342
003344
003350
003352
003354
003356

005303
001370
012701
174111
022127
001403
104000
000026
001213

003360

003370
003372
003374
003376

012703
022127
001403
104000
000027
001213

003400
003402
003404
003410
003412
003416
003420
003422
003424

005303
001370
012701
174211
022127
001403
104000
000030
001213

003426
003432
003436
003440
003442
003444

012703
022127
001403
104000
000031
001213

003446
003450
003452
003456
003460
003464
003466
003470
003472

005303
001370
012701
174311
022127
001403
104000
000032
001213

003474
003500
003504
003506
005<10
0035512

012703
022127
00127
104000
000033
001213

003514
003516

005303
001370
020527
001403

003364

003520
003524

35¢:
001100

DEC
BNE

MOV
STD
CcMP

36%:
37%:

38s%:
001100
000003

000003

39%:
40%:

41s:

001100

000003

42%:
43%:

4FLOAT ,R1
AC1,(R1)

BEQ

(R1)+,02
364

. WORD
-WORD

26
MMUERR

MOV
CMP
BEQ
ERROR
.WORD
.WORD

#3,R3

ERROR

000003

R3
343

DEC
BNE
MOV
STD
CMP
BEQ
ERROR
.WORD
.WORD

MOV
CcMP
BEQ
ERROR
. WORD
. WORD
DEC
BNE
MOV
STD
cMP
BEQ
ERROR
.WORD
.WORD
MOV
cMP
BEQ
ERROR
.WORD
.WORD
DEC
BNE
CMP
BEQ

(R1)+,40
38¢

SEQ 0026

sCHECK AC1 FOR #2
;
a

ALL ERRORS

TRAP

;UNIQUE ERROR NUMBER

TO EMT

VECTOR

;ADDRESS OF ERROR MESSAGE
i
i

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

R3
378

MMUERR

OFLOAT,R1
AC2,(R1)

(R1)+,03
39¢

MMUERR

:CHECK AC2 FOR 43
:
:

.ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE

#3,R3

(R1)+,20

MMUERR

R3
40%
OFLOAT,R1
AC3,(R1)

(R1)+,04

MMUERR

:ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

:CHECK AC3 FOR 04

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

#3,R3

(R1)+,40

444

:ALL ERRORS TO TRAP TO EMT VECTOR

MMUERR

sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

R3
43¢
RS, #0
45%

;IS TIME OUT FLAG O
sYES GO ON

GLOBAL AREAS

KDJ1.1A
MAC

s gt pen =
e
s

§o—nu

Ll BT

Vs wn -0

NN~ ~N NN NN

P Pt et et et et et et s et e P

1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168

003526
003530
003532

003534
003540
003544

MACY11

20-MAR-84

30A(1052)

11:19

20-MAR -84
L

11:31
PAGE 27
ADDRESS TEST OF PARS,PDRS,

104000

ERROR

000034
001213

012637

012637
012637

.WORD

000246
000244

003550

45%:

MOV
MOV
MOV

SEQ

AND FP REGS
tALL ERRORS TO TRAP

1UNIQUE ERROR NUMBER

MMUERR

TO EMT

1ADDRESS OF ERROR MESSAGE

1NO GO TO ERROR

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

tRESTORE TIME OUT VECTOR
tRESTORE FP VECTOR
'

TSMMUS
.
]3‘........“‘.‘.‘.“0‘.......‘.

;oTEST

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

003640
003644
003646
003652
003654
003656
003660

003662
003666
003670
003674
003676
003700
003702

VECTOR

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

WRITE ALL PARS/PDRS WITH ONES THEN ZEROS

'|.....“..‘..‘.....‘....‘..‘.“

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

175230
177572

TSTS:

177600
177777
177700
172200
177416

18:

2%:

3s:

000035
001213

020327
001367
022327
001403
104000
000036
001213

172240

4%;

177777

Ss:

020327
001367
022327
001403
104000
000037

172300

001213

003726

020327

020327
001367
022327
001403
104000
000040

MOV
MOV

cMP
BNE

MOV
MOV

cMP
BNE
MOV

cMP

BEQ

177416

63:
7%:

177777

172400

9s:

10$:

23.0172400

BEQ

cMP

BNE

cvP

cMP

BNE

cMHP

3 INCREMENT TEST NUMBER
sMMU OFF
1CLEAR MMU ABORT FLAG

1LOAD ALL PARS AND PDRS WITH ONES
:

#172200,R3

CHECK SPDRS FOR ONES

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

g?S)o.0177416
H

22.0172240

cHP

‘0

4
@177600,R3
@177777,(R3).
R3,0177700

cHP

BNE

.WORD
.WORD

8%:

MMUERR

BEQ
ERROR

172340

$TESTN

80177572
80FLAG

ERROR
.WORD
.WORD

001213

003704
003710
003712
003716
003720
003722
003724

INC

CLR
CLR

001042

172200
177777
172400

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

sADDRESS OF ERROR MESSAGE
H
:

(R3)s, 0177777

$CHECK SPARS FOR ONES

tALL ERRORS TO TRAP TQ EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

MMUERR

R3,0172300
S$

H
i

(R3).,0177416

1CHECK KPDRS FOR ONES

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

R3,0172340
78

MMUERR

(R3).,0177777
108

BEQ
ERROR
.WORD
. WORD

40
MMUERR

cMP

R3,0172400

$1CHECK KPARS FOR ONES
:

tALL ERRORS

TRAP

tUNIQUE ERROR NUMBER

TQO EMT

tADDRESS OF ERROR MESSAGE

VECTOR

0027

RBI
TR T ARE"S 2oMARA
1213
1214
1215
1216
1217
1218

1219
1220
1221
1222
1223

1224
1225
1226
1227
1228
1229
1230
1231
1232

1233
1234

1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268

003732

AL 300¢ 18527 20 MAR.ga 1 Ay 1B REL 2Bars PORS WITH ONES THEN ZEROS

003734
003740
003744
003746
003750
003752

001367
012703
022327
001403
104000
000041
001213

003754
003760
003762
003766
003770
003772
003774

020327
001367
022327
001403
104000
000042
001213

003776
004002
004004
004010
004014
004020
004022
004026
004032
004036
004040
004044
004050
004052
004054
004056

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

004060
0040€4
004066
004072
004076
004100
004102
004104

020327
001367
012703
022327
001403
104000
000044
001213

004106
004112

020327
001367

020327

001367

177600
177416

118:

BNE
MOV
CcHP
BEQ

9%
@177600,R3

.WORD
. WORD

41
MMUERR

CcMP
8NE
cMP
BEQ
ERROR
.WORD
WORD

R3,0177640

ERROR

177640

177777

177700

128:

133:

145

172200
172400
177600
000000
177700

15%:

16%:

172200

17¢:

172400

18s%:

177600

198:

177700

004114

208
:

CcMP
BNE
MOV
MOV
CcMP
BNE
MOV
MOV
CcHP
BNE
MOV
cMP
BEQ
ERROR
WORD
.WORD

cMP

MOV
cMP
BEQ
ERROR
.WORD
CMP
BNE

SEG

1CHECK UPDRS FOR ONES

(R3).,0177416
12%

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

118
(R3)., 0177777

1CHECK UPARS FOR ONES

14%

tALL

ERRORS

TRAP

TO EMT

tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

MMUERR

R3,0177700

VECTOR

133

]

;LOAD ALL PARS AND PDRS WITH ZEROES
5

158

@177600,R3

00,(R3).

R3,0177700

168
2172200,R3
(R3).,00
18¢

:CHECK ALL PARS AND PDRS FOR ZEROES
i

tALL ERRORS

TO TRAP

TO EMT

tUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

MMUERR

VECTOR

R3,0172400
178
2177600,R3

(R3)+,00
208

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

44
MMUERR

R3,0177700
198

TSMMUA;
3'..“““...0."...““..“.‘.‘..‘.O.‘.‘..

s «TEST 4

004114
004114
004120
004124
004130
004134
004140

TEST FOR ADJACENT

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

SHORTS

IN PARS/PDRS

g'......‘....“‘.0.“"..“‘.‘...O.‘.“‘

005267
005037
005067
012700
012720

012720

174664
177572
174712
172200
052404
125012

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

TST4:

$TESTN
80177572

18:

FLAG
@172200,R0

952404,(RO)»
©125012,(R0).

3 INCREMENT TEST NUMBER

1MMU OFF

s1CLEAR MMU ABORT FLAG

s:LOAD SPDRS WITH ALTERNATING PATTERN
:
3

0028

gbfi??k.%fiEAs 20”“5&5643??5}852) QO-HARi’A 11:?é5lppfis iBJACENT SHORTS IN PARS/PDRS

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

004144
004150

004152
004156
004162
004166
004170
004174

88?8;;

172240

012720
012720
020027
001371
012720
012720
020027
001371
012720

125252
052525
172300

2%:

052404
125012
172340

3s:

125252
052525
172400

4%:

004200
004204
004206
004212
004216
004222
004224
004230
004234
004240
004244
004246
004252
004256
004262

012720
020027
001371

004264
004270
004274
004276
004300
004302

012703
022327
001403
104000
000045
001213

172200
052404

004304
004310
004312
004314
004316

022327
001403
104000
000046
001213

125012

004320
004324
004326
004332
004334

020327
001361
022327
001403
104000
000047

172240

012720
020027
001371
012700
012720
012720
020027
001371
012720

177600
052404
125012
177640

125252
052525
177700

MOV
MOV
cMP
BNE
MOV
MOV
CMP
BNE
MOV
MOV

cMP
BNE

Ss:

68:

7%:

MOV
MOV
MOV
CMP
BNE
MOV

RO, 0172240

13
2125252,(R0O).
252525, (R0O).

32.0172300

952404, (RO)
2125012,(R0O).

§2.0172340

#125252,(R0O)+
252525, (RO)«
RO, #172400

a8
#177600,R0

9125252,(R0O).
052525, (R0O)

22.0177700

125252

001213

004342
004346
004350
004352
004354

022327
001403
104000
000050
001213

052525

004356
004362
004364
004370

020327
001361
022327
001402
104000

172300

9s:

10%:

0172200,R3

823)0.052404
45
MMUERR

(R3).,0125012

?3.0172240

(R3).,0125252
118

(R3).,052525
123
50

MMUERR

052404

128

13$:

i
:

iLOAD KPDRS WITH ALTERNATING PATTERY
i
i
i

1LOAD KPARS WITH ALTERNATING PATTERN
i

3
i

;LOAD UPDRS WITH ALTERNATING PATTERN
i
H
i
3

iLOAD UPARS WITH ALTERNATING PATTERN
:

;CHECK SPDRS
:
H

47
MMUERR

118:

1LOAD SPARS WITH ALTERNATING PATTERN

46
MMUERR

004336
004340

004372

SNE

gfi%’ §§§§3§ Aed

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

SEQ 0029

R3,0172300

10$
(R3).,052404
148

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
H
:

;ALL ERRORS

TRAP

sUNIQUE ERROR NUMBER

TO EMT

VECTOR

sADDRESS OF ERROR MESSAGE
:
:

:CHECK SPARS
:

tALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
8
H

$ALL ERRORS TO TRAP TQ EMT VECTOR
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
i
:

1 CHECK KPDRS
:

;ALL

ERRORS

TRAP

TO EMT

VECTOR

GL OBAL

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

004374
004376

MACyY1l

20-MAR-84

30 A(1052)

:19
11:1

20-MAR-84

000051

001213

004400
004404
004406
004410
004412

104000
000052
001213

004414
004420
004422
004426
004430
004432
004434

020327
001361
022327
001403
104000
000053
001213

004436
004442
004444
004446
004450

022327
001403
104000
000054
001213

052525

004452
004456
004460
004464
004470
004472
004474
004476

020327
001361
012703
022327
001403
104000
000055
001213

172400

18s:

177600
052404

.19%:

004500
004504
004506
004510
004512

022327
001403
104000
000056
001213

125012

004514
004520
004522
004526
004530
004532
004534

020327
001361
022327
001403
104000
000057
001213

177640

21%:

125252

22%:

004536
004542
004544
004546

052525

004550

022327
001403
104000
000060
001213

004552
004556

020327
001361

177700

022327
001403

125012

14%:

172340

15¢:

125252

16%:

11:31

PAGE

E3
30

TEST FOR ADJACENT SHORTS IN PARS/PDRS
.WORD
.WORD

51
MMUERR

cMP
BEQ

(R3).,2125012
15%

ERROR
.WORD
.WORD

S2
MMUERR

cMP
BNE
cMP
BEQ

R3,0172340
138
(R3)+,8125252
17%

.WORD

53
MMUERR

ERROR
.WORD

17s:

CcMP

54
MMUERR

cMP
BNE

R3,2172400
168

23%:

24%:

S5
MMUERR

cHP
BEQ

(R3).,0125012
218

.MORD
. WORD

Sé
MMUERR

cMP
BNE
cMP
BEQ
ERROR
.WORD
.WORD

R3,0177640
19
(R3).,0125252
234
57
MMUERR

cHP
BEQ

(R3).,052525
243

60
MMUERR

cMP

R3,0177700

22%

;REVERSE ALTERNATING PATTERN

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

VECTOR

:
:
:CHECK KPARS
H
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
:+ADDRESS OF ERROR MESSAGE

i
v

H
sALL ERRORS TO TRAP

TO EMT

;UNIQUE ERROR NUMBER
i ADDRESS OF ERROR MESSAGE
:

ERROR
.WORD
.WORD

BNE

MOV
cMP
BEQ
ERROR
.WORD
.WORD

sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

H
:

(R3).,852525

BEQ
ERROR
.WORD
.WORD

ERROR

H
H
sCHECKX UPDRS
H
H

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

:
:

sALL ERRORS

VECTOR

TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

H
:
;CHECK UPARS
:
;ALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
;:ADDRESS OF ERROR MESSAGE
H

:
H
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
3

fo%

GLOBAL AREAS
KDJ11A, MAC

1381
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

MACY11l

30A(1052)

20-MAR-84 11:19

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

172200
125012
052404
172240

20-MAR-84

25%:

125252

172300

27%:

004624
004630
004634
004636
004642
004646
004652
004654
004660
004664
004670
004674
004676
004702
004706
004712

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

004750
004754
004756
004762
004764
004766
004770

020327
001361
022327
001403
104000
000063
001213

172240

33s:

052525

34%:;

004772
004776
005000
005002

125252

005004

022327
001403
104000
000064
001213

005006

020327

172300

052404
172340
052525
125252
172400

28s:

177600
125012
052404
177640
052525
125252
177700

30¢:

31s:

PAGE 31

TEST FOR ADJACENT SHORTS

MOV
MOV
MOV

CcMP

052525

125012

11:31

BNE
MOV
MOV
CMP
BNE
MOV
MOV

cMP
BNE
MOV

MOV
CcMP
BNE
MOV
MOV
MOV

cMP
BNE
MOV
MOV

€125252,(R0O)+

268

€125012,(R0O)+
952404, (RO)
RO, 2172340
27%

#52525,(R0)
.
#125252,(R0O).
RO, 2172400
28%
#177600,R0

(R3)+,0125012
328

MMUERR

(R3).,052404
33%

i
5

iLOAD SPARS WITH REVERSE PATTERN
4

iLOAD KPDRS WITH REVERSE PATTERN
i

:
B

iLOAD KPARS WITH REVERSE PATTERN
B

:LOAD UPDRS WITH REVERSE PATTERN
H

:
H

sLOAD UPARS WITH REVERSE PATTERN

;CHECK SPDRS
:
:

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
H
H

R3,0172240
31

(R3).,852525
35$

MMUERR

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

(i 3).,0125252

368
64

MMUERR

36%:

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
i ADDRESS OF ERROR MESSAGE

MMUERR

35%:

sLOAD SPDRS WITH REVERSE PATTERN

RO, #172300

61
32%:

IN PARS/PDRS

R3,0172300

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

SEQ 0031

GLOBAL AREAS

KDJ11A.MAC

MACY11l

20-

30A(1052)

-84 11:{9

20-MAR-84

1437
1438
1439
1440
1441
14:%

005012
005014
005020
005022
005024
005026

001361
022327
001403
104000
000065
001213

1444
1445
1446
1447
{::g

005030
005034
005036
005040
005042

022327
001403
104000
000066
001213

052404

1450
1451
1452
1453
1454
1455

005044
005050
005052
005056
005060
005062

020327
001361
022327
001403
104000
000067

172340

39s:

052525

40%:

{:g?

005064

001213

1458
1459

005066
005072

022327
001403

1460
1461
{:2%

005074
005076
005100

104000
000070
001213

1464
1465
1466
1467

005102
005106
005110
005114

020327
001361
012703
022327

1468

1469
1470

{:;é

005120

005122
005124

005126

001403

125012

125252

37s:

38s:

41%:

172400

42%:

177600
125012

43s:

11:

G3
P
?ésr ?88 RSJACENT SHORTS IN PARS/PDRS
BNE
cMP
BEQ
ERROR
.WORD
.WORD

cMP
BEQ
ERROR
.WORD
.WORD

cMP
BNE
cMP
BEQ
ERROR
.WORD

1473
1474
1475
1476
{:;z

005130
005134
005136
005140
005142

022327
001403
104000
000072
001213

052404

1479
1480
1481
1482
1483
1484
{:gz

005144
005150
005152
005156
005160
005162
005164

020327
001361
022327
001403
104000
000073
001213

177640

45%:

052525

468 :

1487
1488
1489
1490
1491
1492

005166
005172
005174
005176
005200

022327
001403
104000
000074
001212

125252

44 ;

47s:

MMUERR

R3,2172340
378
(R3)+,052525
41

(R3).+,0125252
423

ERROR
.WORD
.WORD

70
MMUERR

CcMP
BNE
MOV
cMP

R3,2172400
40
#177600,R3
(R3)+,0125012

cMP
BEQ
ERROR
.WORD
.WORD

H
:

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

72
MMUERR

R3,0177640
43
(R3).,052525
47%

CcMP
BEQ
ERROR
.WORD
.WORD

(R3)+,0125252
484

:
H
;CHECK UPDRS
H

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

MMUERR

cMP
BNE
cMP
BEQ
ERROR
.WORD
.WORD

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

443

(R3)+,052404
453

:
;CHECK KPDRS
B
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

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

cMP
BEQ

.WORD

(R3)+,052404
39¢

MMUERR

ERROR
.WORD

001213

65
MTMMMUERR

.WORD

BEQ

104000
000071

348
(R3).+,8125012
383

:ADDRESS OF ERROR MESSAGE

:
H
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
:
3
:CHECK UPARS
:
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

MMUERR
H

74
MMUERR

H
H
iALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
:+ ADDRESS OF ERROR MESSAGE

0022

. o

GLOBAL AREAS
KDJ1 1A, MAC
1493
1494
1495
1496
1497
1498

005202
005206

MACY11

20-

-84

020327
001361

30A(1052)

11:19

20-MAR-84

005210

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

H3
P

!éST Pgs ADJACENT SHORTS IN PARS/PDRS

48s:

177700

cMP

BNE

R3,0177700

3€Q 003

TSMMUS
;
P800 080000
000000
00
000000
00
0 008
00
0000000
00
0 000000
04
000ten
00
ttts

;+TEST S

1499

1500
1501

11:31

005210
005210
005214
005222
005226
005232
005236
005242
005244
005246
005250

005252
005256
005262
005266
005272
005274
005276
005300

005267
012737
005067
013700
042700
020027
001403
104000
000075
001213

005037
013700
042700
020027
001403
104000

173570
160000
173614
177572
000176
160000

TSTS:

INC

177572

MOV

CLR
MOV
BIC
ggz
ERROR

.WORD
.WORD

177572
177572
000176

1s:

CLR
MOV

001213

012737
013700
042700
020027
001403
104000
000077
001213

120000
177572
000176
120000

005334
005342
005346
005352
005356
005360
005362

012737
013700
042700
020027
001403
104000
000100
001213

040000
177572

177572

28:

000176
040000

005366

80177572
8#SRO,RO

MOV
MOV

2120000,84177572
24SRO,RO

BC'E%

22.0120000

;UNIQUE ERROR NUMBER

:ADDRESS OF ERROR MESSAGE

;LOAD MMRO=0
:SAVE SRO IN RO

:CLEAR UNDEFINED BITS FROM SRO
;CHECK MMRO
:

;ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER

;ADDRESS (OF ERROR MESSAGE
:

;:LOAD MMRO<15:13>=101
:SAVE SRO IN RO

€176, ,RO

;CLEAR UNDEFINED BITS FROM SRO.
:CHECK MMRO
:

sALL ERRORS TO TRAP TO EMT VECTOR

.WORD

MMUERR

MOV
MOV

€40000,80177572
80SRO,RO

iUNIQUE ERROR NUMBER

:ADDRESS OF ERROR MESSAGE
:

€176 ,RO

:LOAD MMRO<15:13>=010
:$SAVE SRO IN RO

:CLEAR UNDEFINED BITS FROM SRO.

RO, 240000

BEQ
ERROR

.WORD

MMUERR

.WORD

sALL ERRORS TO TRAP TO EMT VECTOR

MMUERR

cMP

;CLEAR MMU ABORT FLAG
:SAVE SRO IN RO
;:CLEAR UNDEFINED BITS FROM SRO

.WORD

B8IC

;CHECK MMRO

.WORD

3s:

?2.0160000

FLAG
84SRO,RO
#176,RO

.WORD

ERROR

i INCREMENT TEST NUMBER

;LOAD MMRO<15:13>=111

2176 ,R0O
RO, #0
28

B8IC

177572

$TESTN

€160000,84177572

BIC
cMP
BEQ

ERROR

000076

005302
005310
005314
005320
005324
005326
005330
005332

005364
005366

TEST MMRO ABORT BITS

Bt L

; CHECK MMRO

100

H
;ALL ERRORS TO TRAP

;UNIQUE ERROR NUMBER

TO EMT VECTOR

s ADDRESS OF ERROR MESSAGE

TSMMUG:
P30508005080004000000000800080000¢000000

;«TEST 6
005366
005366
005372
005376
005402

TEST MMR3 BITS S5-0

00000002008000000000000000

FIRAARAAAAR0004000048440400000000004000004

005267
005037
005067
012737

173412
177572
173440
000077

TST6:

172516

00000000000000000000040

INC
CLR
CLR

MOV

$TESTN
ani77572
FLAG

: INCREMENT TEST NUMBER
tMMU OFF
;CLEAR MMU ABORT FLAG

sLOAD MMR3<5:0>=77

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

MACY11l

30A(1052)

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

172516

20-MAR-84

11:19

20-MAR -84
T6

11:31
PAGE 34
TEST MMR3 BITS 5-0

000077

BEQ
ERROR
.WORD
.WORD

1s:

172516
172516

CLR
CcMP

BEQ

ERROR

000052
172516

172516
000052

.WORD
.WORD
MOV
cMP
BEQ
ERROR
.WORD
.WORD
MOV
cMP
BEQ
ERROR
.WORD
.WORD

2%:

104000

000103
001213
012737
023727
001403
104000
000104
001213

000025

172516

000025

3s:

SEQ 0034

ae172516,077

;CHECK MMR3

sALL ERRORS

101
MMUERR

TO TRAP

TO EMT VECTOR

iUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

8172516
80172516,
#0

;LOAD MMR3<5:0>=0
;CHECK MMR3

sALL ERRORS

102
MMUERR
#52,80172516
8017251852
6,
3

TRAP

TO EMT

sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

VECTOR

:LOAD MMR3<¢S5:0>s52

;CHECK MMR3
3

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

103
MMUERR
#25,80172516
80172516,
025
43

:LOAD MMR3<5:0>=25

;CHECK MMR3
H

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

104
MMUERR

:ADDRESS OF ERROR MESSAGE

TSMM6A:
;;“.“.‘.‘.‘.““..“‘.“..“".0.‘.‘

;#TEST

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

TEST MFPI (MOVE FROM PREVIOUS INST SPACE)

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

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

173260
177572
001042
140000
001000
001070
040000
001000
001066
030000
173504
000027
000234
177777

TST7:

177776

177776
177776
172516

135072

000244
171764

030010

177776

077400
000244
177572

INC
CLR
CLR
MOV
MOV

R6,88SAVUSE
€40000,80177776
#ST80T,SP
R6, 34SAVSUP
#30000,80177776
PC,.MMU
027,80172516
80244, -(SP)
@177777,-(SP)
2135072,80244
£77400,UDPDRO
#244 ,R3
80177572

cMP
BEQ

#30010,80177776
1s

.WORD
.WORD

105
MMUERR

CLR

ae177s72

ERROR

177572

1$:

$TESTN
80177572
BOFLAG
#140000,80177776
#STBOT,SP

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
INC

MFPI

001213

005037

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

(R3).

;s INCREMENT TEST NUMBER
sMMU OFF

;:CLEAR MMU ABORT FLAG
;POINT TO USER SPACE

: INIT THE USER STACK POINTER
: SAVE USER SP
sPOINT TO SUPERVISOR SPACE
sINIT THE SUPERVISOR STACK POINTER
: SAVE SUPERVISOR SP
:SETUP PSW
sINIT MMU
;SETUP MMR3
:SAVE DATA AT TEST LOCATION

:PUT KNOWN DATA ON TOP OF STACK
$SETUP DATA AT TEST LOCATION
:SETUP UDPDRO TO ABORT
:SETUP POINTER TO TEST LOCATION
:TURN MMU ON
: TEST INSTRUCTION
:IS PSW CORRECT

..ES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
: TURN MMU OFF

GLOBAL AREAS
KDJ11A .MAC

1605
1606
1607
1608
1609

1610
1611
1612
1613

MACY11

30A(1052)

012737
020637
001403

140000
001070

20-MAR-84

005670
005676
005702
005704
005706
005710

104000
000106
001213

005712
005720
005724
005726
005730
005732

012737
020637
001403
104000
000107
001213

1614
1615
1616
1617
1618
1619
005734
1620
005742
1621
005744
1622
005746
1623
005750
1624
1625
005752
1626
005756
1627
005760
1628
005762
1629
005764
1630
1631
005766
1632
005772
1633
005776
1634
006000
1635
006002
1636
006004
1637
1638
1639
006012
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
006106

11:19

040000
001066

20-MAR-84
17

100s$:

106
MMUERR

MOV

€40000,80177776

cMP
BEQ

R6 ,80SAVSUP
200¢

. WORD

107

.WORD
000244

020327
001403
104000
000111
001213

000246

005037
022627
001403
104000
000112
001213

177776
135072

135072

2008
:

3s:

80244 ,0135072
2%

.WORD

110

.WORD

MMUERR

cMP
BEQ
ERROR

R3,8246
3

.WORD
.WORD

111
MMUERR

CLR
cMP
BEQ
ERROR
.WORD

80177776
(SP)+,0135072
44

.WORD

021627
001403
104000
000113
001213

177777

012737
012737
012701
005237
006511
022737
001403
104000
000114
001213

030017
173621
000244
177572

177776
000244

030011

177776

4%:

cMP

BEQ
ERROR

S$:

173621

(SP), 8177777

113
MMUERR

MOV
MOV

@30017,80177776
#173621,80244

MOV

0244 ,R1

sPOINT TO USER SPACE
:IS USER SP CORRECT
:YES GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR
;:POINT

TO SUPERVISOR SPACE

s+ IS SUPERVISOR SP CORRECT
:YES GO ON

sALL ERRORS

TO TRAP

;UNIQUE ERROR NUMBER

s ADDRESS OF ERROR MESSAGE

sALL ERRORS

TRAP

;UNIQUE ERROR NUMBER

sALL ERRORS 1O TRAP

;:ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR

;IS STACK CORRECT

:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR

:SETUP PSW
:SETUP TEST LOCATION

:SETUP R1

300%

:YES GO ON

.WORD
.WORD

114
MMUERR

CLR
cMP

80177572
898244 ,0173621

301¢

115
MMUERR

TO EMT VECTOR

:NO GO TO ERROR
:SET PSW TO KERNEL MODE
:IS KERNEL STACK CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER

BEQ

ERROR
.WORD
.WORD

VECTOR

;UNIQUE ERROR NUMBER
;:ADDRESS OF ERROR MESSAGE

;TURN MMU ON
s TEST INSTRUCTION

BEQ

TO EMT

;ADDRESS OF ERROR MESSAGE
;:NO GO TO ERROR
:IS R3 CORRECT
sYES GO ON

80177572
(R1)

030011,82177776

TO EMT VECTOR

;NO GO TO ERROR
:IS TEST DATA 0K
;:YES GO ON

INC
MFPI

cMP

300¢$:

112

MMUERR

.WORD
.WORD

ERROR

177572
000244

MMUERR

cMP
BEQ

ERROR

2%:

2140000,80177776
R6 , 80SAVUSE
100$

.WORD
.WORD

ERROR

023727
001403
104000
000110
001213

005037
023727
001403
104000
000115
001213

PAGE 35

TEST MFPT (MOVE FROM PREVIOUS INST SPACE)

MOV
cMP
BEQ
ERROR

177776

11:31

;IS PSW CORRECT

;ALL ERRORS TO TRAP TO EMT VECTOR

tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR

i TURN MMU OFF
:IS TEST LOCATION CORRECT

:YES GO ON

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

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
1689
1690
1691

1692
1693
1694
1695

1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
{;23

1711
1712
1713
1714
1715
1716

MACY11l

20-MAR-84

30A(1052)
11:19

006110
006114
006116
006120
006122

020127
001403
104000
000116
001213

000244

006124
006130
006134
006136

005037
022627
001403
104000

177776
173621

006140
006142

000117
001213

006144
006150

021627
001403

104000
000120
001213

006160
006162
006166
006170
006176
006200
006202
006204

005003
005237
006503
022737
001403
104000
000121
001213

006206
006212
006216
006220
006222
006224

005037
020327
001403
104000
000122
001213

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

006262

301%:

302%:

177777

006152
006154
006156

006262

20-MAR-84

303s:

11:31

K3
PAGE 36

TEST MFPI

cMP
BEQ
ERROR
.WORD
.WORD

3045:

000004

177776

6$:

7%:

8$:

9s:

R1,4244
302
116
MMUERR

CLR
CMP
BEQ
ERROR
.WORD
.WORD

117
MMUERR

CMP
BEQ

(SP),@177777
304

ERROR
.WORD
.WORD

177572

(MOVE FROM PREVIOUS

80177776
(SP)+,#173621
303s

120
MMUERR

CLR
INC
MFPI
cMP
BEQ
ERROR
.WORD
.WORD

R3
88177572
R3
04 ,80177776
64

CLR
cMP
BEQ
ERROR
.WORD
.WORD

80177572
R3, 20
7%

cHP
BEQ
ERROR
.WORD
.WORD

121
MMUERR

122
MMUERR
(SP)+,20
8s

123
MMUERR

cMP
BEQ
ERROR
.WORD
.WORD

124
MMUERR

MOV

(SP).+,a0244

(SP)s, 0177777
9

INST

SEQ 0036

SPACE)

iNO GO TO ERROR
+IS R1 CORRECT
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
;SET PSW TO KERNEL MODE
+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
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:SETUP SOURCE FOR NEXT TEST
s TURN MMU ON
; TEST INSTRUCTION
:IS PSW CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
s TURN MMU OFF
:IS R3 CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT
:UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

VECTOR

:NO GO TO ERROR
:IS STACK CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:+ IS STACK CORRECT
:YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
sRESTORE TEST LOCATION

;
TSMM6B:
FiSARRASR44444440084004000040000000000000000000000480000000000000408
;+TEST 10
TEST MFPD (MOVE FROM PREVIOUS DATA SPACE)
PR
400800400000000000000004080000000000000000000000808004
TST10:

GLOBAL AREAS
KDJ11A .MAC

1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736

1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
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
006272
006276
006304
006310
006316
006322
006330
006334

MACY11

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

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

172516
177572
001042
140000
001070

040000
001066
030000
172752
000027
000244
177777
157002
077400
000244
177572

030010

20-MAR-84
T10

PAGE 3 37
TEST MFPD (MOVE FROM PREVIOUS DATA SPACE)

INC
CLR
CLR
MOV
MOV
MOV
MOV
MOV

177776

JSR

172516

MOV
MOV
MOV
MOV
MOV
MOV
INC

000244

171212

MFPD

CcMP

177776

BEQ
ERROR

.WORD
.WORD

005037
012737
020637
001403
104000
000126
001213

177572
140000
001070

012737
020637
001403
104000
000127
001213

040000

023727
001403
104000
000130
001213

000244

020327
001403
104000
000131
001213

005037
022627
001403
104000
000132
001213

177776

1s:

CLR
MOV
cMP
BEQ

ERROR

.WORD
.WORD

001066

177776

100$:

MOV

CcMP

BEQ
ERROR
.WORD
.WORD
157002

11:31

200%:

cMP
BEQ
ERROR
.WORD
.WORD

000246

2%:

cMP
BEQ
ERROR
.WORD
.WORD

177776
157002

3s:

CLR
cMP
BEQ

ERROR
.WORD
.WORD

$TESTN
80177572
80FLAG
2140000,80177776
R6 , 80SAVUSE
#40000,84177776
R6, 30SAVSUP
#30000,82177776

PC,MMU

927,80172516
86244, -(SP)
®177777,-(SP)
2157002, 80244
€77400,UIPDRO
9244 ,R3
84177572
(R3).

SEQ 0037

: INCREMENT TEST NUMBER
iMMU OFF
;:CLEAR MMU ABORT FLAG
:POINT TO USER SPACE
: SAVE USER SP

;POINT

TO SUPERVISOR SPACE

:SAVE SUPERVISOR SP
;SETUP PSUW
s INIT MMU
;SETUP MMR3

:SAVE DATA AT TEST LOCATION
:PUT KNOWN DATA ON TOP OF

STACK

:SETUP DATA AT TEST LOCATION
:SETUP UIPDRO TO ABORT
$+SETUP POINTER TO TEST LOCATION
; TURN MMU ON

s TEST INSTRUCTION
:IS PSW CORRECT
1$
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
125
;UNIQUE ERROR NUMBER
MMUERR
;ADDRESS OF ERROR MESSAGE
;iNO GO TO ERROR
80177572
; TURN MMU OFF
#140000,84177776
;POINT TO USER SPACE
R6 , 39SAVUSE
:IS USER SP CORRECT
100¢
;:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
126
;UNIQUE ERROR NUMBER
MMUERR
s ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
#40000,80177776
sPOINT TO SUPERVISOR SPACE
R6,80SAVSUP
:IS SUPERVISOR SP CORRECT
2004
:YES GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
127
:UNIQUE ERROR NUMBER
MMUERR
;ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
86244,2157002
:IS TEST DATA OK
24
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
130
sUNIQUE ERROR NUMBER
MMUERR
;:ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
R3, 8246
:IS R3 CORRECT
3s
:YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
131
;UNIQUE ERROR NUMBER
MMUERR
:ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
80177776
sSET PSW TO KERNEL MODE
(SP)+, 2157002
:IS KERNEL STACK CORRECT

132
MMUERR

:YES GO ON

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

AREAS
.HAC

20-"2R-&4 11:19
MACY11l

30A(1052)

006540
006544
006546
006550
006552

021627
001403
104000
000133
001213

177777

006554
006562
006570
006574
006600
006602
006610
006612
006614
006616

012737
012737
012701
005237
106511
022737
001403
104000
000134
001213

030017
103456
000244
177572

006620
006624
006632
006634
006636
006640

005037
023727
001403
104000
000135
001213

177572
000244

006642
006646

000244

006654

020127
001403
104000
000136
001213

006656
006662
006666
006670
006672
006674

005037
022627
001403
104000
000137
001213

177776
103456

006676
006702
006704
006706
006710

021627
001403
104000
000140
001213

177777

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

006650
006652

030011

T10

20-MAR-84

4%:

177776
000244

S5s:

11: 31

TEST AQSD 3?HOVE FROM PREVIOUS DATA SPACE)

cMP
BEQ
ERROR
.WORD
.WORD

MMUERR

MOV
MOV
MOV
INC

#30017,a0177776
2103456, 84244
#244 ,R1
an177572

CcMP

#30011,a4#177776

MFPD

177776

BEQ
ERROR
.WORD
.WORD

103456

300%:

301¢:

CLR
CMP
BEQ
ERROR
-WORD
.WORD

CcMP
BEQ

(SP), 0177777
S5s
133

(R1)

300¢

134

MMUERR

88177572
80244 ,0103456

301
135

MMUERR

R1, 6244

302¢

136

MMUERR

302%:

80177776

(SP)+,#103456
3034
137

MMUERR

303%:

(SP),e177777
304
140

MMUERR

030011

177572

177776

000244

3045

177776

4004
:

030017,80177776
#113672,3%244
9246 ,R1

;NO GO TO ERROR
:+IS STACK CORRECT
:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
+NO GO TO ERROR
:SETUP PSW
:SETUP TEST LOCATION
;SETUP R1
;TURN MMU ON

; TEST INSTRUCTION
;IS PSW CORRECT

:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;:ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
;TURN MMU OFF
;IS TEST LOCATION CORRECT
:YES GO ON
;ALL 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 TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
;NO GO TO ERROR
:SET PSW TO KERNEL MODE

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

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE
:iNO GO TO ERROR
:SETUP PSMW

;SETUP TEST LOCATION
;:SETUP R1
80177572
;TURN MMU ON
-(R1)
: TEST INSTRUCTION
#30011,80177776
:+ IS PSW CORRECT
4008
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
141
sUNIQUE ERROR NUMBER
MMUERR
: ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
80177572
;:TURN MMU OFF

SEQ 0038

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
1882
1883
1884

MACY11l

20-MAR-84

30A(1052)

11:19

006762
006770
006772
006774
006776

023727
001403
104000
000142
001213

000244

00/C00
007004
007006
007010
007012

025127
001403
104000
000143
001213

000244

007014
007020
007024
007026
007030
007032

005037

177776
113672

104000
000144
001213

007034
007040
007042
007044
007046

021627
001403
104000
000145
001213

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

007116
007122
007124
007126

022627

022627
001403

20-MAR- 84

113672

4015$:

11:31

PAGE
3

TEST MFPD CMOVE FROM PREVIOUS DATA SPACE)

cMP
BEQ
ERROR
.WORD
.WORD

142
MMUERR

CMP

R1, 4244

4024

.WORD
.WORD

143
MMUERR

CLR

177776

BEQ
ERROR
.WORD
.WORD

403

CMP

177777

403s:

404

177572
000004

CLR
INC

R3
aN177572

CMP
BEQ

000000

6%:

7%:

001403
104000
000150

007130

001213

007136
007140
007142
007144

007132

022627
001403
104000
000151
001213

177777

007146

012637

000244

9¢:

144
MMUERR

145
MMUERR

ERROR
.WORD
.WORD

177572

(SP)+,#113672

cMP
BEQ
ERROR
.WORD
.WORD

MFPD

177776

a0244,0113672
401

BEQ

ERROR

402%:

CLR

(SP),#177777
404

04 ,80177776
64
146
MMUERR

aw177572

cHP
BEQ
ERROR
.WORD
.WORD

147
MMUERR

cMP
BEQ

(SP)+,00
8s

R3,90
74

ERROR
.WORD
.WORD

150
MMUERR

cMP
BEQ

(SP)+, 0177777
9

ERROR
.WORD
.WORD

151
MMUERR

MOV

(SP)+,80244

SEQ 0039

+IS TEST LOCATION CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR

;IS R1 CORRECT

s YES GO ON

;ALL ERRORS TO

TRAP

TO EMT VECTOR

;UNIQUE ERROR NUMBER
; ADDRESS OF ERROR MESSAGE

:NO 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
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

iNC GO TO ERROR
:SETUP SOURCE FOR NEXT TEST
;TURN MMU ON
i

_TEST INSTRUCTION

;IS PSW CORRECT
:YES GO ON

;ALL 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

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
i ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR
:IS STACK CORRECT

:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
sRESTORE TEST LOCATION

AREAS

.MAC

MACY11l

20-MAR -84

30A(1052)

1 1:19

20-MAR -84
T10

007152

PAGE 40
11:31
TEST MFPD (MOVE FROM PREVIOUS DATA SPACE)

SEQ 0040

TSMM6C:
".‘.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

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

171626
177572
001042
140000
001070
040000
001066
030000
172062

000027
000244

$ 7777
120413
177777
077400
000244
177572

030010

(MOVE

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

TO PREVIOUS

.“‘.0.‘0.‘0

S$TESTN
80177572
SOFLAG

177776

R6, 80SAVUSE

s INCREMENT TEST NUMBER
1MMU OFF
1CLEAR MMU ABORT FLAG
1POINT TO USER SPACE
1 SAVE USER SP

R6 , 80SAVSUP

$SAVE SUPERVISOR SP

2140000,80177776

177776

040000,80177776

177776

tPOINT

230000,80177776
PC,.MMU
027,80172516

172516

1SAVE DATA AT

e177777,-(SP)
0120413, -(SP)
0177777,80244

000244
170336

1 TURN MMU ON

(R3).
:30010.80177776
$

000152
001213

152

MMUERR

007330
007332
007334
007336

007340
007346
007352
007354
007356
007360

012737
020637
001403
104000
000154
001213

040000

007362
007370
007372
007374
007376

023727
001403
104000
000155
001213

000244

0G7400
007404
007406
007410
007412

020327
001403
104000
000156
001212

000246

18:

80177572

iNO GO

#140000,80177776

ERROR

R6, 80SAVUSE
100¢

153

MMUERR

001066

177776

1008
:

040000,80177776

iNO GO

R6 , 30SAVSUP
2008

154

MMUERR

120413

2008
:

80244,0120413
28

tNO GO

155

MMUERR
2%:

ERROR

R3,0246
38

156

MMUERR

TEST LOCATION

;PUT KNOWN DATA ON STACK
1PUT TEST DATA ON STACK
$1PUT KNOWN DATA AT TEST LOCATION
1SETUP UDPDRO TO ABORT
$SETUP POINTER TO TEST LOCATION

@77400,UDPDRO
9244 ,R3
80177572

177776

TO SUPERVISOR SPACE

1SETUP PSW
s INIT MU
1SETUP MMR3

80244, -(SP)

177776

0‘

INSTRUCTION SPACE)

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

1ST11:

104000

177572
140000
001070

007316

TEST MTPI

.'.......“.‘.‘....‘.‘.“.‘

005037
012737
020637
001403
104000
000153
001213

007324

tNO GO

: TEST INSTRUCTION
:1IS PSW CORRECT
1YES GO ON
tALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
TO ERROR
s TURN MMU OFF
sPOINT TO USER SPACE
1 IS USER SP CORRECT
s YES GO ON
sALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
TO ERROR
t1POINT TO SUPERVISOR SPACE
1 IS SUPERVISOR SP CORRECT
1YES GO ON
sALL ERRORS TO TRAP TO EMT
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
TO ERROR
:IS TEST LOCATION CORRECT
1YES GO ON
tALL ERRORS TO TRAP TO EMT
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
TO ERROR
+IS R3 CORRECT
1 YES GO ON

VECTOR

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

RbOTTh AREYS SoMARAAL 3001852
1941
1942
1943
1944
1945
1946
1947
1948

1949
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
1996

007414
007420
007424

007430
007432

005037
021627
001403
104000
000157
001213

007434
007442
007446
007452
007456
007460
007466
007470
007472
007474

012737
012746
012701
005237
006611
022737
001403
104000
000160
001213

007476
007502
007510
007512
007514
007516

005037
023727
001403
104000

000161
001213

007520
007524
007526
007530
007532

020127
001403
104000
000162
001213

000244

007540
007544
007546
007550
007552

007534

005037
021627
001403
104000
000163
001213

177776
177777

007554
007562
007566
007572
007576
007600
007606
007610
007612
007614

012746
012701
005237
006641
022737
001403
104000
000164
001213

012737

030017
122347
000246
177572

007616
007622
007630
007632
007634
007636

005037
023727
001403
104000
000165
001213

007426

20 MAR
pe

177776

177777

Ca
1: 3¢5 1PA
1 *dmove
PE TO PREVIOUS INSTRUCTION SPACE )
CLR
cMP
BEQ

ERROR
.WORD
.WORD

030017
145121
000244
177572
030011

177572
000244

177776

4s:

MTPI

177776

145121

MOV
MOV
MOV
INC

3008

301s:

80177776
S%P).Ol?????

157

MMUERR

80177572
(R1)

CMP
BEQ
ERROR
.WORD
.WORD

MMUERR

CLR
CMP

80177572
80244,0145121

@30011,80177776

300
160

BEQ
ERROR
.WORD
.WORD

MMUERR

cHP

R1,0244

BEQ
ERROR

301
161

302

162

MMUERR

302%:

80177776

(SP),e177777
304
163

MMUERR

030011

177776

3048

030017,80177776
0122347, -(SP)
0246 ,R1
80177572

-(R1)

177776

@30011,80177776
4004

164

MMUERR

177572
000244

122347

400§
:

80177572

80244 ,0122347

401

165

MMUERR

S5EQ

$1SET PSW TO KERNEL MODE
1 IS KERNEL STACK CORRECT

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

1SETUP TEST DATA

1SETUP R1

1 TURN MMU ON

s TEST INSTRUCTION
1 IS PSW CORRECT

1YES GO ON

t1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
i TURN MMU OFF

+IS TEST LOCATION CORRECT

:YES GO ON

sALL ERRORS TO TRAP

tUNIQUE ERROR NUMBER

TO EMT VECTOR

3$ADDRESS OF ERROR MESSAGE
;iNO GO TO ERROR
:IS R1 CORRECT
sYES GO ON

tALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
sSET PSW TO KERNEL MODE

:IS STACK CORRECT

:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
1SETUP PSUW

:SETUP TEST DATA
1SETUP R1

s TURN MMU ON

s TEST INSTRUCTION
1IS PSW CORRECT

:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
s TURN MMU OFF

3 IS TEST LOCATION CORRECT

1 YES GO ON

sALL ERRORS

TO TRAP

TO EMT VECTOR

tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
iNO GO TO ERROR

N04

oL 0BAL

ARE AS

KDJ11A .MAC

1997
1998
1999
2000
2001

2002
2003
2004
2005

007640
007644
007646
007650
007652
007654
007660
007664
007666
007670

2007
2008
007672
2009°
2010
007674
2011
007676
2012
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
007762
2035
2036
2037
2038
2039
007762
2040
007762
2041
007766
2042
007772
2043
007776
2044
010004
2045
010010
2046
010016
2047
010022

2048

2049
2050
2051
2052

010030
010034

010042
010046
010052

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

020127

001403
104000
000166
001213
005037
021627
001403
104000
000167
001213

005046
005237
006603
022737
001403
104000
000170
001213

20-MAR-84
T11

000244

11:31
PAGL 42
TEST MTPI (MOVE

4018:

402%:

177776
177777

177572
000004

1 IS R1

.WORD
.WORD

166
MMUERR

1UNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

CLR

80177776

BEQ

4044

.WORD
.WORD

167
MMUERR

CLR

-(SP)

cMP

INC

BEQ

ERROR

.WORD

005037
020327
001403
104000
000171

177572
000000

022627
001403
104000
000172
001213

177777

012637

000244

S$:

001213

6$:

4023

80177572

1SET PSW TO KERNEL MODE

+IS STACK CORRECT
1YES GO ON

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

:NO GO TO ERROR
1SETUP STACK FOR NEXT TEST

s TURN MMU ON

3 TEST INSTRUCTION
;IS PSW CORRECT

:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR

170

CLR

80177572

cMP
BEQ
ERROR
.WORD
.WORD

171
MMUERR

cMP

(SP)e, 0177777

BEQ
ERROR

iNO GO TO ERROR

R3
24 ,80177776

MMUERR

R3,00
6

sUNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE

sNO GO TO ERROR
sTURN MMU OFF
:IS R3 CORRECT
:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
3+ IS STACK CORRECT

:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

172

.WORD

MMUERR

MOV

(SP).,80244

CORRECT

1YES GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR

(SP),0177777

.WORD

7%:

INSTRUCTION SPACE)

R1, 0244

MTPI
cMP

177776

TO PREVIOUS

CMP

BEQ
ERROR

ERROR

4044 :;

sUNIQUE ERROR NUMBER

;:ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR

;RESTORE TEST LOCATION

TSMMED:
;3‘0.0.‘0...‘..‘..“00.‘....‘00O‘.“0

;soTEST 12

..‘.‘.0..0‘.0..‘.0...0000‘.‘

TEST MTPD (MOVE TO PREVIOUS DATA SPACE)

330‘0.‘...‘00‘0.“0“0.‘.“.‘........‘0‘.0‘0.

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:

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

INC

$TESTN

s INCREMENT TEST NUMBER

80FLAG

;CLEAR MMU ABORT FLAG

MOV

#40000,80177776

1POINT TO SUPERVISOR SPACE

MOV

930000,80177776

:SETUP PSW

CLR

177776
177776

177776
172516

CLR

MOV
MOV

MOV

JSR
MOV

MOV
MOV
MOV

80177572

2140000,80177776
R6 , 30SAVUSE

R6 , 30SAVSUP

PC.MMU
927,80172516

80244, -(SP)
0177777, -(SP)
0100004, -(SP)

1MMU OFF

;:POINT TO USER SPACE
: SAVE USER SP

1SAVE SUPERVISOR SP

sINIT MMU
1SETUP MMR3

3 SAVE DATA AT TEST LOCATION
:PUT KNOWN DATA ON STACK
sPUT TEST DATA ON STACK

EQ 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

010056
010064
010072

010076
010102
010104
010112
010114
010116
010120

MACY11

20-MAR-84

012737
012767
012703
005237
106623
022737
001403

30 4(1052)

1 1:19

20-MAR-84

T12

177777
077400
000244
177572

000244
167506

030010

177776

104000
000173
001213

010122
010126
010134
010140
010142
010144
010146

104000
000174
001213

010150
010156
010162
010164
010166
010170

012737
020637
001403
104000
000175
001213

040000
001066

010172
010200
010202
010204
010206

023727
001403
104000
000176

000244

001213

010210
010214
010216
010220
010222

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
010270
010276
010300
010302
010304

012737
012746
012701
005237
106611
022737
001403
104000
000201
001212

030017
100737
000244
177572

177776

030011

177776

005037

012737
020637
001403

177572
140000

001070

177776

100004

1$:

100$:

200%:

28:

3s:

11:31

TEST MTPD 4 CMOVE TO PREVIOUS DATA SPACE)
MOV
0177777.80244
sPUT KNOWN DATA AT TEST LOCATION
MOV
©77400, UTPDRO
1SETUP UIPDRO TO ABORT
MOV
0244 ,R3
1SETUP
POINTER TO TEST LOCATION
INC
80177572
:TURN
MMU
ON
MTPD
(R3).
3 TEST INSTRUCTION
cHP
030010,80177776
+IS PSW CORRECT
8EQ
18
1YES GO ON
ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
LMORD
173
{UNIQUE
ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

TWORD

MMUERR

CLR
MOV
cHP
B8EQ
ERROR

20177572
2140000,80177776
R6 , 8OSAVUSE
1008

sNO GO TO ERROR

.MORD
'WORD

174
MMUERR

MOV
cHP
8EQ
ERROR

040000,80177776
R6 , BOSAVSUP

;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
iNO GO TO ERROR

200$

LMORD
'WORD

175
MMUERR

cHe
BEQ
ERROR

80244, 2100004
2s

JMORD
TMORD

176
MMUERR

cHe
8EQ
ERROR

R3, 0246
33

LMORD
'WORD

177
MMUERR

CLR
cre
B8EQ
ERROR

90177776
(SP),0177777
as

'MORD

MMUERR

MOV
MOV
MOV
INC
MTPD
cHP
8EQ
ERROR

030017,80177776
0100737, -(SP)
0244 ,R1
80177572
(R1)
030011,80177776
300

.MORD

.WORD
WORD

200

201
MMUERR

s TURN MMU OFF
sPOINT TO USER SPACE
:IS USER SP CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

iPOINT TO SUPERVISOR SPACE
;IS SUPERVISOR SP CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

{UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR

:IS TEST LOCATION CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

1UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR

:IS R3 CORRECT
:YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

:SET PSW TO KERNEL MODE
:IS KERNEL STACK CORRECT
:YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR

1SETUP PSW
:SETUP TEST DATA
:SETUP R1
:TURN MMU ON
s TEST INSTRUCTION
+IS PSW CORRECT
:YES GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

:NO GO TO ERROR

0047

e Aees

GLOBAL AREAS
KDJ11A, MAC

2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127

2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164

MACY11

20-MAR-84

30A(1052)

11:19

010306
010312
010320
010322
010324
010326

005037
023727
001403
104000
000202
001213

177572
000244

010330
010334
010336
010340
010342

020127
001403
104000
000203
001213

000244

010344
010350
010354
0103=6
010360
010362

005037
021627
001403
104000
000204
001213

177776
177777

010364
010372
010376
010402
010406
010410
010416
010420
010422
010424

012737
012746
012701
005237
106641
022737
001403
104000
000205

030017

010426
010432
010440
010442
010444
010446

005037
023727
001403
104000

001213

010450
010454
010456
010460
010462

020127
001403
104000
000207
001213

000244

010464
010470
010474
010476
010500
010502

005037
021627
001403
104000
000210
001213

177776
177777

010504
010506
010512
010514
010522

005046
005237
106603
022737
001403

20-MAR-84

T12

100737

300%:

11:31
PAGE 44
TEST MTPD (MOVE

CLR
cMP
BEQ

ERROR
.WORD
.WORD

156711

301%:

302s:

177776

304s:

000246
177572

030011

80177776

BEQ
ERROR
.WORD
.WORD

304

INC

cMP
BEQ
ERROR

001213

177572
000244

CLR

MTPD

177776

156711

4008
:

401s:

402%:

4045
:

177572
000004

177776

R1,&244
302%

(SP),e177777

-(R1)

CLR
cHP
BEQ

80177572
80244,0156711
401
206
MMUERR
R1,0244

BEQ
ERROR

402%

.WORD

MMUERR

CLR
cHP
BEQ

8e177776
(SP),e177777
404

ERROR
.WORD
.WORD

210
MMUERR

CLR
INC

-(SP)
0177572

MTPD
CMP

BEQ

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

tALL ERRORS TO TRAP TO EMT VECTOR

iUNIQUE ERROR NUMBER
: ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:SET PSW TO KERNEL MODE
3+ IS STACK CORRECT
:YES GO ON

:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
©30017.80177776
sSETUP PSW
156711, -(SP)
;SETUP TEST DATA
9246 ,R1
;SETUP R1
80177572
;TURN MMU ON

205

cMP

s TURN MMU OFF

204
MMUERR

.WORD

ERROR
.HWORD
.WORD

000206

202
MMUERR

203
MMUERR

MOV
MOV
MOV

TO PREVIOUS DATA SPACE)

80177572
80244,0100737
301

cMP
BEQ
ERROR
-WORD
.WORD

cHMP

R3
04,30177776

s TEST

INSTRUCTION

:IS PSW CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:TURN MMU OFF
:+IS TEST LOCATION CORRECT
;YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
sIS R1 CORRECT
:YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
sSET PSW TO KERNEL MODE
+IS STACK CORRECT
:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
1tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR

;SETUP STACK FOR NEXT TEST

s TURN MMU ON

; TEST INSTRUCTION
: IS PSW CORRECT

;:YES GO ON

5EQ 0044

GLOBAL

AREAS
KDJ11A, MAC

2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176

2177
2178
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

MACY11

30A(1

20-M -A‘ 11:1852

010524
010526
010530

104000
000211
001213

010532
010536
010542
010544
010546
010550

005037
020327
001403
104000
000212
001213

177572

010552
010556
010560
010562
010564

022627
001403
104000
000213
001213

177777

010566

012637

000244

)

20-MAR-84

T12

11:

ERROR
.WORD
.WORD

S5s:

CLR

cMP
BEQ

ERROR

.WORD
.WORD

6$:

78:

?éSl fi?fio ?HOVE TO PREVIOUS DATA SPACE)
P

211
MMUERR

anL77572
R3,40
63
212

MMUERR

CMP
BEQ
ERROR
.WORD
.WORD

MMUERR

MOV

(SP)+,a0244

(SP)+, 2177777

213

SEQ 0045

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

:ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:+IS STACK CORRECT
sYES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
;RESTORE

TEST LOCATION

010572

TSMMU7
:
;3‘00“‘.t‘.‘.‘“‘...‘.....“‘.“.

;+TEST 13

010572
010572
010576
010602
010606
010612
010616
010622
010626
010632
010636

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

010650
010656

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

010662
010670

012737
004767

077404
000152

010644

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

TEST NON-RESIDENT ABORT

TST13:

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

INC
CLR
CLR

MOV
MOV
CLR

177776

177600

$TESTN
an177572

FLAG

86214, -(SP)
80216, -(SP)
SAVMRO

CLR
CLR
JSR
MOV
MOV
MOV
JSR

SAVMR1
SAVMR2
PC,MMU

MOV
JSR

077404,80177600
PC,TS7

s INCREMENT TEST NUMBER
sMMU OFF
;CLEAR MMU ABORT FLAG
;SAVE DATA AT TEST LOCATIONS
i

:CLEAR STATUS REGS SAVE AREAS
H
:

sINIT MMU
;SETUP PSW
:

: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
:CONTAINED EXPECTED VALUES.
:IF NO ABORT OCCURRED THEN GO TO ERROR
;OTHERWISE CONTINUE.
:SETUP FOR AN ABORT
sCAUSE AN ABORT TO OCCUR AND
s THEN CHECK IF ABORT FLAG REGISTERED
: THIS EVENT AND CHECK IF STATUS REGS

010674
010700
010704
010706
010714
010722

012701
004767

000220
170402

012737
012737

000001
000001
100000

005003
012767

170126
177572
177776

MOV
JSR
CLR
MOV
MOV
MOV

#220,R1
PC,.MMU
R3
@1 ,FLAG

#100000,80177776

:CONTAINED EXPECTED VALUES.
+IF NO ABORT OCCURRED THEN GO TO ERROR
1OTHERWISE CONTINUE.
:

s INIT MMU
:SETUP MMR1 EXPECTED DATA
$1SETUP FLAG FOR AN ABORT
: TURN MMU ON
$SETUP PSW FOR AN ABORT (ILLEGAL MODE)

GLOBAL AREAS
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

010730
010732

20 AR 34391¢18°2 20-MAR:RT 11:31c,PA8R.28<1oent ABORT
012241
004767

010736
010742
010746

MOV

000240

170130
170126
170124

010752
010756
010764
010772
011000
011002

000022
000001
000001
020000

170056
177572
177776

PC,TSM7

CLR
CLR
CLR

SAVMRO
SAVMR1
SAVMR2

MOV
MOV
MOV

#1,FLAG
01,80177572
©20000,3#177776

(R2).

:TRY

000216
000214

011042

000167

000210

JMP

CLR

(R2)+

80177572

011104
011110
011116
011120
011122
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

000001
000001

167766
177572

000000

167746

167754

000022

1S7:

OK7:

OKA7:

OKAY7:

MOV
MOV
MOV
MFPI

CLRB

SAVMRO

BEQ
ERROR
.WORD
.WORD

OKA7

215
MMUERR

cMP

SAVMR1, 022

@0,FLAG
oK?7

100000, SAVMRO

:SETUP FOR AN ABORT
:TURN MMU ON
:1SAVE PC
:CAUSE AN ABORT
;:DID AN ABORT OCCUR
:IF YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:IF NO GO TO ERROR
1SETUP EXPECTED DATA
i _TEST MMRO FOR EXPECTED VALUE
+IF OK THEN CONTINUE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
i ADDRESS OF ERROR MESSAGE

sNOT OK THEN GO TO ERROR
+

OKAY7

ERROR
.WORD
.WORD

216
MMUERR

CMP
BEQ

SAVMR2,R1
OKAY7A

.WORD

217

ERROR

NONRESIDENT ABORTS

@1 ,FLAG
21,80177572
R7,R1
(R2)+

214
MMUERR

BEQ

TO CAUSE AN ABORT

;POP THE STACK
;RESTORE DATA AT TEST LOCATIONS

TS7FIN

cHP
BEQ
ERROR
.WORD
.WORD

CcMP

:MMU OFF

(SP)+,R3
(SP).,80216
(SP)+,80214

;ROUTINE TO CAUSE AND CHECK
012767
012737
010701
006522
022767
001403
104000
000214
001213

s TURN MMU ON

©#30000,80177776
#77400,80177600

MOV
MOV
MOV

011046
011054
011062
011064
011066
011074
011076
011100
011102

:SETUP MMR1 EXPECTED DATA
:SETUP FLAG FOR AN ABORT

MOV
MOV

MFPI

]

@22,R3

PC,TSM7

012737
012737
005037
006522
012603
012637
012637

177776
177600

JSR

011006
011014
011022
011026
011030
011032
011036

030000
077400
177572

iCAUSE AN ABORT
+CHECK IF AN ABORT OCCURRED BY
sCHECKING ABORT FLAG AND STATUS REGS
+ IF NO ABORT OCCURRED THEN GO TO ERROR
1OTHERWISE CONTINUE.
1CLEAR STATUS REGS SAVE AREAS

sSETUP PSW FOR AN ABORT ( ILLEGAL MODE
)
;CAUSE AN ABORT
;CHECK IF AN ABORT OCCURRED BY
sCHECKING ABORT FLAG AND STATUS REGS
sIF NO ABORT OCCURRED THEN GO TO ERROR
;OTHERWISE CONTINUE.
;SETUP PSW
;SETUP FOR AN ABORT

MFPI

000170

(R2)+,-(R1)

JSR

MOV

SEQ 0046

iNOT OK

_TEST MMR1 FOR EXPECTED VALUE

+IF OK THEN CONTINUE
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

THEN GO TO ERROR

i TEST MMR2 FOR EXPECTED VALUE
s IF OK THEN CONTINUE

sALL ERRORS

TO TRAP

sUNIQUE ERROR NUMBER

TO EMT

VECTOR

GLOBAL AREAS
KDJ11A, MAC

22177
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287

2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
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

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

”

0 -MAR -

Ygg - ?éSY afifi-agSIDENY ABORT

001213

005067
005067
005067
000207

.WORD

167706
167704
167702

OKAY7A:

CLR
CLR
CLR

RTS
H

sROUTINE

011176

022767
001403

011204
011206
011210
011212

104000
000220
001213

011214
o11222
011230
011232
011234
011236

042737
022767
001403
104000
000221
001213

040377
100000

011240
011244
011246
011250
011252

020367
001403
104000
000222
001213

167630

011254

000207

167636

TSM7:

001072

TSMA:

167642

cMP
BEQ
ERROR
.WORD
.WORD
BIC

CcMP

BEQ
ERROR

TSMB:

cMP
BEQ

ERROR
.WORD
.WORD

TSMC:

RTS

[

SEQ 0047

MMUERR

SAVMRO
SAVMR1
SAVMR2

iNOT OK

1ADDRESS OF ERROR MESSAGE
THEN GO TO ERROR

iCLEAR STATUS REGS SAVE AREAS

TO CHECK

.WORD
.WORD

011256
011256

s1RETURN

A NONRESIDENT

ABORT OCCURRED

@0,FLAG
TSMA

;DID AN ABORT OCCUR
+IF YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
220
sUNIQUE ERROR NUMBER
MMUERR
s ADDRESS OF ERROR MESSAGE
:IF NO THEN GO TO ERROR
©40377,80SAVMRO
$SETUP EXPECTED DATA
€100000, SAVMRO
: _TEST MMRO FOR EXPECTED VALUE
TSMB
:IF OK THEN CONTINUE
+ALL ERRORS TO TRAP TO EMT VECTOR
221
;UNIQUE ERROR NUMBER
MMUERR
;ADDRESS OF ERROR MESSAGE
:IF NO THEN GO TO ERROR
R3,SAVMR1
i _TEST MMR1 FOR EXPECTED VALUE
TSMC
:IF OK THEN CONTINUE
sALL ERRORS TO TRAP TO EMT VECTOR
222
sUNIQUE ERROR NUMBER
MMUERR
s ADDRESS OF ERROR MESSAGE
+IF NOT OK THEN GO TO ERROR
PC
;RETURN

TS7FIN:
TSMMUS:
'3“‘...‘.“.‘......‘.‘.‘..“““"0

;oTEST

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

TEST READ ONLY

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

ABORTS

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

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

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

INC
CLR
CLR

MOV
MOV

177776
177600

CLR
CLR
CLR
JSR
MOV
MOV
MOV
MOV

S$TESTN
80177572
FLAG

80244, -(SP)
80246, -(SP)

SAVMRO
SAVMR1
SAVMR2
PC,.MMU
#30000,80177776
9244 ,R2
€77402,80177600
@246, -(SP)

MOV
MOV
MOV

@1,.FLAG
01,80177572
R7.R1

cMP
BEQ

MTPI

(R2)»

: INCREMENT TEST NUMBER
sMMU OFF

;CLEAR MMU ABORT FLAG

:SAVE DATA AT TEST LOCATIONS

:CLEAR STATUS REGS SAVE AKEAS
H
:

sINIT MMU
$SETUP PSW
:

1SETUP FOR AN ABORT
1PUSH DATA ONTO THE STACK
1SETUP FLAG FOR AN ABORT
; TURN MMU ON
:SAVE PC

: CAUSE ABORT
:DID ABORT OCCUR

:IF

YES THEN GO ON

:IF NO THEN GO TO ERROR

GLOBAL AREAS

KDJ1.1A
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

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

20-MAR-84
T14

167454

i1:31
PAGE 48
TEST READ ONLY

18:

ERROR
.WORD
. WORD
CLRB

cMP
BEQ

223

MMUERR

SAVMRO
QZOOOO.SAVHRO
5

224

011026

167440

2%:

MMUERR
;}IOZG.SAVHRI

3s:

MMUERR
R1,SAVMR2
43

225

167426

226

000244

000002

MMUERR

4s:

SEQ 0048

ABORTS

g:ZJQ.Z(SP)

sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMSER
:PDDRESS OF ERROR MESSAGE
:SETUP EXPECTED DATA
3+ TEST MMRO FOR EXPECTED VALUE
:IF OK THEN CONTINUE
1OTHERWISE GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
i+ TEST MMR1 FOR EXPECTED VALUE
;IF OK THEN CONTINUE
;OTHERWISE GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
; TEST MMR2 FOR EXPECTED VALUE
:IF OK THEN CONTINUE
;OTHERWISE GO TO ERROR
;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
;CHECK THAT ABORT BLOCKED WRITE

‘2322CH IF CURRENT CONTENTS= SAVED
:

011470
011472
011474
011476
011504
011510
011512
011516

011522

& 78
2379

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

2380
2381
2382
2383
2384
2385
2386
2387
2388

20-MAR-84

011376
011400
011402
011404
011410
011416

2366
2367
2368
2369
2370

2371
2372
2373
2374
2375
2376
2377

MACY11

104000
000227
001213
012737
012746
006622
012637
012637

030000
000002

177776

S$:

ERROR
.WORD
. WORD
MOV
MOV

MTPI

000246
000244

MOV
MOV

;ERROR! ABORT DIDN'T BLOCK ACCESS

227

MMUERR

030000,80177776
@2, -(SP)

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

;:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;:ADDRESS OF ERROR MESSAGE
;SETUP PSW
:PUSH DATA ONTO STACK

:TRY

TO CAUSE ABORT

;:RESTORE DATA AT TEST LOCATIONS
3

TSMMU9:
3".‘...‘..“..“...“‘.‘“.‘.‘.‘0‘..‘.‘.

:#TEST 15

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

TEST PAGE LENGTH ERROR ABORTS

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

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

TST1S:

177776

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

INC
CLR
CLR
CLR
CLR
CLR
MOV
JSR
MOV
MOV

172516

MOV
MOV

JSR

$TESTN
80177572

FLAG

SAVMRO
SAVMR1
SAVMR2
#30000,80177776
PC,.MMU
OPLFO,R3
98NO,R1

#ABORTO,R2
026,80172516
PC,TSM9

: INCREMENT TEST NUMBER
sMMU OFF

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

:SETUP PSwW

s INIT MMU
iLET R3, R1, AND R2 POINT TO THE
tUPWARD EXPANSION TABLES
3

1DISABLE USER DATA SPACE
s TURN MMU ON
;D0 RELOCATIONS FOR THE DIFFERENT

i VALUES OF

THE PAGE LENGTH FIELD AND

:BLOCK NUMBER.

IF AN ABORT OCCURS

GLOBAL

AREAS
KDJ1.1A
MAC

2389
2390
2391
2392
2393
2394
2395
2396
2397
2398

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

20-MAR-84

T1S

<4
11:31

PAGE 49

tCHECK TC SEE IF IT WAS SUPPOSED TO,
tAND IF YES CHECK ABORT FLAG AND

011612
011616
011622
011626

012703

012701
012702
004767

012264
012334
012402
000030

MOV
MOV
MOV
JSR

OPLF1,.R3
#8N1,R1
#ABORT1.R2
PC,TSM9

2399

2400
2401

SEQ 0049

TEST PAGE LENGTH ERROR ABORTS

2402
011632
2403
011636
2404
011642
2405
011646
2406
011652
2407
011654
2408
2409
011656
2410
2411
2412
2413
011662
2414
011666
2415
011670
2416
011676
2417
011704
2418
011706
2419
011710
2420
011714
2421
011716
2422
011720
2423
011726
2424
011730
2425
011732
2426
011734
2427
2428
011736
2429
011740
2430
011746
2431
011750
2432
011752
2433
011754
2434
2435
011756
2436
011762
2437
011770
2438
011772
2439
011774
2440
011776
2441
2442
012000
2443
012006
Faa4a
012010

iSTATUS REGISTERS.

iLET R3, R1, AND R2 POINT TO THE
:DOWNWARD EXPANSION TABLES
:

; TURN MMU ON
;00 RELOCATIONS FOR THE DIFFERENT
i1VALUES OF THE PAGE LENGTH FIELD AND
:BLOCK NUMBER.
IF AN ABORT OCCURS
+CHECK TO SEE IF IT WAS SUPPOSED TO,
;AND

005037
012703
012701
011337
006521
012605

177572
012274
012344
177600

000167

000566

CLR
MOV
MOV
MOV
MFPI
MOV

ae177572
4PLF1+10,R3
#BN1+10,R1
(R3),80177600

JMP

TSOFIN

(R1).
(SP)+,RS

YES CHECK

:STATUS REGISTERS.

ABORT FLAG AND

sMMU OFF

;POINT TO A VALUE WHICH SHOULD CAUSE
;AN ABORT IF MMU IS ON.
; SETUP UIPDRO
;D0 A RELOCATION
;:POP THE STACK

;sROUTINE TO CAUCE AND CHECK PAGE LENGTH ERROR ABORTS
012337
010100
012767
012737
010704
006530
021227
001011
012605
022767
001403
104000
000230
001213

177600
000001
000001

TSM9:

167144
177572

MOV
MOV
MOV
MOV
MOV

(R3)+,80177600
R1,RO
21 ,.FLAG
@1,80177572
R7.R4

cMP
BNE
MOV
CMP
BEQ
ERROR
.WORD
.HORD

(R2),00
2s
(SP)+,RS
#1.FLAG
1s
230
MMUERR

MFPI

167114

000435
022767
001403
104000
000231
001213

167074

105067
022767
001403
104000
000232
001213

167110
040000

022767
001403
104000

000020

167102

1$%:

2%:

3s:

cHP
BEQ
ERROR
.WORD
. WORD

231
MMUERR

CLRB
cHP

SAVMRO
#40000, SAVMRO

BEQ

ERROR
.WORD
. WORD

167066

4%:

8(RO)+

CMP
BEQ
ERROR

90 ,.FLAG
3s

232
MMUERR
420, SAVMR1
Ss

:SETUP UIPDRO
:SAVE A COPY OF R1
;SETUP FOR AN ABORT
; TURN MMU ON
:SAVE PC
;00 A RELOCATION OPERATION
;WAS AN ABORT SUPPOSED TO OCCUR
sIF YES GO TO 2
;POP THE STACK
;:DID AN ABORT OCCUR
:NO GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;:ADDRESS OF ERROR MESSAGE

;:YES GO TO ERROR
]

:DID AN ABORT OCCUR
:YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

tNO GO TO ERROR

i SETUP EXPECTED DATA
i _TEST MMRO FOR EXPECTED VALUE
+IF OK THEN CONTINUE
+ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:NOT OK THEN GO TO ERROR
:

_TEST MMR1 FOR EXPECTED VALUE

i IF OK THEN CONTINUE
sALL ERRORS TO TRAP TQ EMT VECTOR

GLOBAL AREAS

KDJ11A.MAC =
2445
2446
5447

_ MACY11

20-MAR-84 11:19

012012
012014

000233
001213

2448 012016
2449 012022
2450 012028

020467
001403
104000

2451
2452
5453

012026
012030

2454 012032
2455 012036
2456 012042
2457 012046
2458 012052
2459 012054
2460 012056
2461 012060
2462 012062
2463 012066

2464

012070

2476

2477

2478

2479
2480

2481
2482
2483

2484
2485
2486

2487
2488
2489

2490
2491
2492
2493
2494
2495
249
2497
2498
2499
2500

167054

20-MAR-84

its

Ss:

000234
001213

005067 167004
005067 167030
005067 167026
005067 167024
005201
005201
005202
005202
021327 000777
001275

65:

000207

2466
2468
2469
2470
2471
2472
2473
2474
2475

30A(1052)

11:3]

PAGE

¥l PREe PencTH ERROR ABORTS
.MORD
IMORD

233
MMUERR

cHe
8EQ
ERROR

R4, SAVMR2
63

JWORD
TWORD

234
MMUERR

CLR
CLR
CLR
CLR
INC
INC
INC
INC
cHP
BNE

FLAG
SAVMRO
SAVMR1
SAVMR2
R1
R1
R2
R2
(R3),8777
TSM9

RTS

:UPWARD EXPANSION TABLES

012072
012074
012076
012100
012102
012104
012106
012110

012112

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

PLFO:

024006

004006
012006
002006

016000
017000
002700
014000
002000
004000
007000
002000
000700
004000
001000

24006

'MORD

14006

'WORD
'WORD
'MORD

000406
007406
001006

'MORD
'WORD
.MORD

BNO:

70006
70006
70006
13406
20006
04006
40006
70006

'MORD

'MORD
MORD

001406
004006
002006

003406
000777
013000

.WORD
'WORD
.MORD
'MORD
'WORD
.WORD
'WMORD
MORD

'MORD

014006

'WORD
JWORD
.WORD

'WORD
'WORD
WORD
"WORD
"WORD
WORD
'MORD
IWORD
TWORD
'WORD
JWORD

04006

12006
02006

01406
04006
02006

00406
07406
01006

03406
777
013000

016000
017000
002700
014000
002000
004000
007000
002000
000700
004000
001000

SEQ 0050

JUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
iNOT OK THEN GO TO ERROR

: TEST MMR2 FOR EXPECTED VALUE
1IF OK THEN CONTINUE
sALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
iNOT OK THEN GO TO ERROR

sCLEAR MMU ABORT FLAG
sCLEAR STATUS REGS SAVE AREAS
.
iPOINT TO NEXT ENTRY
"
"
.
iHAVE ALL ENTRIES BEEN TRIED
iNO REPEAT

:YES RETURN

012234
012236
012240
012242
012244
012246
012250
012252
012254
012256
012260
012262

gggg
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

ABORTO:

000300
000400

000300
000400
001400
000600
000200
001700
000300
000700
000000
000000
000001
000000
000001
000001
000000
000000
000000
000000
000001
000000
000000
000001
000001
000001
000001
000000
000001
000000

2529

012174
012176
012200
012202
012204
012206
012210
012212
012214
012216
012220
012222
012224
012226
012230
012232

L
)

2501
2502
2503
2504
2505
2506
2307
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528

JHH R

RBOT1R . MAENS 20 MAR843011852 20-maR.a4 11: 3t 1P PREc>LencTH ERROR ABORTS

;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

PLF1:

BN1:

.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

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

KDJ11A. 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
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612

1:19

T1S

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

1
PREE
l
2ENGTH ERROR ABORTS
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ABORT1:

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

SEQ 0052

004000
000000
000000
004000
004000
004000
000000
000300
000000
000400

001000
000100
000400
000200
0
O
O
O
1
1
1
O
1
O
O
1
1
1
O
O
1
O
O

012450

TSOFIN:
TSMM10:

012450

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

;#TEST

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

FUNCTIONAL

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

TEST OF BITS <6:1> OF MMRO

g;‘.“...‘...““““““““‘0“““

TSTi16:

166330
177572
166356
166402
166400
166376
166602

177776
020200

077400
000001
000001

172302
166312
177572

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

INC
CLR
CLR
CLR
CLR
CLR
JSR

CLR
MOV

MOV
MOV
MOV

MOV

100003

000210

MFPI
MOV

JSR

$TESTN
8e177572
FLAG
SAVMRO
SAVMR1
SAVMR2
PC,MMU

80177776
©20200,R2

#77400,80172302
#1.FLAG
21,80177572

R7,R1

(R2)+
#100003,R4

PC,TS10

: INCREMENT TEST NUMBER
tMMU OFF
;CLEAR MMU ABORT FLAG
:CLEAR STATUS REGS SAVE AREAS
3
:

s INIT MMU
+ INIT PSW: PREVIOUS MODE = KERNAL
3

;SETUP KIPDR1 TO ABORT
;SETUP FLAG FOR AN ABORT
;TURN MMU ON
:SAVE PC

;D0 A RELOCATION VIA KIPARL

:SETUP EXPECTED DATA
;CHECK IF AN ABORT OCCURRED AND

GLOBAL AREAS

KDJ1.1A
MAC

2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629

2630
2631

2632
2633
2634
2635
2636
2637
2638
2639

2640

2641
2642

2643
2644
2645
2646

2647
2648

2649

2650
2651

MACY11

20-MAR -84

30A(1052)

11:19

20-MAR -84
T16

012552
012560
012564
012572

012737
004767
012737
012737

030000
166522
077400
001600

177636
177676

012600
012604
012612
012620
012622
012624
012630

012702
012767
012737
010701
106522
012704
004767

160000
000001
000001

166230
177572

012634
012642
012646
012654
012660
012666
012674
012676
012700
012704

012737
004767
012737
012702
012767
012737
010701
006522
012704
004767

177776

172212
166154
177572

100053
000052
s TEST

012722
012726
012734
012742
012744
012746

012737
004767
012702
012767
012737
010701
106522
012704

012752

004767

012756

000167

020000

166364
040000

000001
000001

FUNCTIONAL

177776

MOV
MOV
MOV
MOV

@160000,R2
@1 ,FLAG
e1,80177572

R7,.R1

MOV
JSR

PC,TS10

000102

<6:1> OF

+INIT PSW: PREVIOUS MODE = USER

s INIT MMU

1SETUP UDPDR7 TO ABORT
1SET UDPAR? TO RELOCATE TO PHYSICAL
1ADDRESSES 160000-177776
:

1SETUP FLAG FOR AN ABORT
1 TURN MMU ON
1SAVE PC
100 A RELOCATION VIA UDPAR?
1SETUP EXPECTED DATA
sCHECK IF AN ABORT OCCURRED AND

(R2).

MOV
JSR
MOV
MOV
MOV
MOV
MOV

R7,.R1

MOV
JSR

PC,.TS10

1IF YES CHECK BITS <6:1> OF MMRO.

910000,80177776

s INIT PSW: PREVIOUS MODE= SUPERVISOR
sINIT MMU
$SETUP SIPDRS TO ABORT
sACCESS PAGE 05
1SETUP FLAG FOR AN ABORT

P. C
MMU
©77400,80172212
€120000,R2
#1,FLAG
01,80177572

1 TURN MMU ON

1 SAVE PC
3100 A RELOCATION VIA SIPARS
1SETUP EXPECTED DATA:ABORT, PAGE 05
1CHECK IF AN ABORT OCCURRED AND

(R2).

€100053,R4

s IF

THAT

ILLEGAL

MODE

SEQ 0053

MMRO

+IF YES CHECK BITS <6:1> OF MMRO.

@100177,.Ra

JSR
MOV
MOV
MOV
MOV
MFPD
MOV

100105

TEST OF BITS

MOV

166106
177572

MOV
JSR
MOV
MOV

MFPI

012710
012716

PAGE 53

MFPD

100177
000126
010000
166440
077400
120000
000001
000001

11:31

YES CHECK BITS

<6:1>

CAUSES MMU ABORT

920000,80177776

¢ INIT PSW:SET

ILLEGAL PREVIOUS MODE

PC. MM

s INIT MU
$SET UP ACCESS TO PAGE 2
$SETUP FLAG FOR AN ABORT
1 TURN MMU ON

(R2).
€100105,R4

100 A RELOCATION

#40000,R2
#1,FLAG
01,80177572
R7,R1

JSR

PC.TS10

JMP

T10F IN

OF MMRO.

1SAVE PC

1SETUP EXPECTED DATA:ABOR
", ILLEGAL

+ PROCESSOR MODE, PAGE 02
1CHECK IF AN ABORT OCCURRED AND
s IF YES CHECK BITS <6:1> OF MMRO.

sROUTINE TO CHECK IF A MMU ABORT OCCURRED AND IF STATUS REG MMRO
sCONTAINS EXPECTED DATA
012762
012770
012772
012774
012776

022767
001403
104000
000235
001213

013000
013004
013006
013010
013012

020467
001403
104000
00023¢
001213

166052

TS10:

cHP
BEQ
ERROR

. WORD
.WORD

166066

18:

cMpP
BEQ
ERROR
. WORD
. WORD

235

MMUERR

R4, SAVMRO
24

236

MMUERR

1DID AN ABORT OCCUR

1YES GO ON
tALL ERRORS TO TRAP TQ EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
s+ TEST MMRO FOR EXPECTED DATA
10K GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
$ADDRESS OF ERROR MESSAGE

<bOF T AREAS 20 MR 84 301( 18527 20-MAR
B4 1 A
669
2670

2671

2672
2673
2674
2675
2676
2677
2678
2679
2080
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697

2698
2699

2700
2701
2702
2703
2704
2705
2706
2707
2708

2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
272%
2724

013014
013022
013024
013026
013030

022767
001403
104000
000237
001213

000022

013032
013036
013040
013042
013044

020167
001403
104000
000240
001213

166040

013046
013052
013056
013062

005067
005067
005067
000207

166020
166016
166014

166052

bt B

3s:

T 88RAC
1EST OF BITS <6:1> OF MMRO

cMP

BEQ
ERROR
.WORD
.WORD

240
MMUERR

CLR

RTS

MMR1

FOR EXPECTED DATA

1 ADDRE SS OF ERROR MESSAGE

iNO GO TO ERROR
i TEST MMR2 FOR EXPECTED DATA
10K GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERRCR NUMBER
s ADDRESS OF ERROR MESSAGE
i1NO GO TO ERROR
1CLEAR MMU STATUS REGS SAVE AREAS

SAVMRO

SAVMR1
SAVMR2

i
B

sRETURN

013064
013064

_TEST

10K GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

237
MMUERR

.WORD
.WORD

CLR
CLR

R1,SAVMR2
a3

SEQ

tNO GO TO ERROR

€22,SAVMR1

CMP
BEQ

ERROR

T10F IN:

TSMM11:

H '.‘.‘.........."“....‘.‘.......“‘0.‘

1oTEST

TEST

DATA

..0..“..O...‘0‘....‘..00

SPACE BITS MMR3

310000000000000000000000000000000000

013064
013064
013070
013074
013100
013106
013112
013116
013122
013126
013134
013140
013144
013150
013154
013162
013166
013172
013176

004767
012737
012701
012703
012704
004767
012737
012701
012703
012704
004767

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

013202

000167

000130

005267
005037
005067
012737

012701
012703
012704

TST17:

177776

00000000000000000400800000000

INC
CLR
CLR

$TESTN
80177572
FLAG

MOV
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
JSR

230000,80177776
026.R1
@177610,R3
021,R4
PC.TS11
00,.80177776
@23,R1
0172310,R3
024 ,R4
PC,TS11

MOV
MOV
MOV
JSR

025,R1
0172210,R3
022 ,R4
PC,TS511

JMP

T11FIN

MOV

210000,80177776

s INCREMENT TEST NUMBER

sMMU OFF
sCLEAR MMU ABORT FLAG
1SETUP PSW

1SETUP FIRST MMR3 VALUE

1POINT TO UIPDR4
$SETUP SECOND MMR3 VALUE
s TEST ENABLE USER DATA SPACE BIT

;SETUP PSW

1SETUP
;POINT
;SETUP
: TEST

s SETUP

FIRST MMR3 VALUE
TO KIPDR4
SECOND MMR3 VALUE
SgABLE KERNEL DATA SPACE BIT
W

s SETUP FIRST MMR3 VALUE
:POINT TO SIPDR4
1SETUP SECOND MMR3 VALUE
s TEST ENABLE SUPERVISOR DATA SPACE BIT

sROUTINE TO TEST ENABLE DATA SPACE BITS OF MMR3
013206
013212
013216
013222
013226
013234
013242
013244
013252

004767
010137
012713
012702
012767
012737
106522
022767
001403

166074
172516
077400
100000
000001
000001

165606
177572

000000

165570

TS11:

JSR
MOV
MOV
MOV
MOV
MOV

PC.MMU
R1,80172516
©77400,(R3)
€100000,R2
01,FLAG
01,80177572

cMP
BEQ

@0,.FLAG
1

MFPD

(R2).

s INIT MMU
1DISABLE DATA SPACE OF MODE UNDER TEST
1SETUP IPDR TO ABORT
:

1SETUP FLAG FOR AN ABORT

;MMU ON

100 A RELOCATION
10ID AN ABORT OCCUR

:YES GO ON

N0S4

KISTh.MAEAS oo"ARAAL300¢1852) 20 MAR
a4 11: 38 1 PBRFa5%ace BITS MRS
2725

2726
2727
2728
2729
2730
2731
2732
2733
2734
2735

2736

2737

2738

2739
2740

2741

013254
013256
013260

104000
000241
001213

013262
013266
013272
013300
013306
013310
013312
013320
013322
013324
013326

010437
012702
012767
012737
106522
005726
022767
001403
104000
000242
001213

013330
013334

005067
000207

2742
2743
2744
013336
2745
013336
2746
2747
2748
2749
013336
2750
013336
2751
013342
2752
013346
2753
013352
2754
013356
2755
013362
2756
013370
2757
013374
2758
013376
2759
013402
2760
013404
2761
013412
2762
013420
2763
013424
2764
013432
2765
013440
2766
013444
2767
013446
2768
2769
013452
2770
013456
2771
013464
2772
013472
2773
013476
2774
013500
2775
2776
013504
2777
013510
2778
013516
2779
013524
2780
013530

ERROR
.WORD
.WORD

172516

100000

000001

18:

165542

177572

MOV
MOV
MOV
MOV

MFPD

000001

165522

cMP

BEQ
ERROR
.WORD
.WORD

2‘:

165506

CLR

RTS

SEQ 00S5

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
1ENABLE DATA SPACE OF MODE UNDER TEST

241
MMUERR
R4 ,80172516
€100000,R2
@1,FLAG

1SETUP FLAG FOR AN ABORT

21,80177572

iMMU ON

(R2)«
(SP).

100 A RELOCATION
1POP THE STACK
;10ID AN ABORT OCCUR
iNO GO ON

@1,.FLAG
2%

sALL ERRORS

242
MMUERR

TO TRAP

TO EMT VZCTOR

tUNIQUE ERROR NUMBER
;1ADDRESS OF ERROR MESSAGE

:YES GO TO ERROR
;CLEAR MMU ABORT FLAG
sRETURN

FLAG
PC

T11FIN:
TSMM12:
"..‘.‘.‘.".“““.‘.‘.‘.‘..“.“.0‘

soTEST 20

MMR1 FUNCTIONAL

3.0““““.‘.‘.0“0%“".‘..““.

TEST

005267

005037
005067
005067
004767

012737
012704

010401
012705
010502
012737
012737
012703
012767
012737
010767
112425
004767
012703
012767
012737
010767
112142
004767
012703
012767
012737
010767
114125

165442
177572
165470
165516
165724
030000
100200

TST20:

177776

000020
077402
006414
000001
000001
165364

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

INC
CLR
CLR
CLR
JSR

MOV

MOV
MOV

100101

172516
172310
165410
177572

$TESTN
80177572
FLAG
SAVMR1

PC. MMV

#30000,80177776
9100200,R4
R4 ,R1
€100101,R5
RS,R2
020,80172516
#77402,80172310

06414 ,R3
@1 ,.FLAG
91,80177572
R7,SL0OCOO

(R4)+,(RS5).

000206

PC,T7S12

175011
000001
000001
165332

#175011,.R3

165356
177572

006771
000001
000001
165300

01,FLAG
@1,80177572
R7,SLOCO0

(R1)+,-(R2)
PC,TS12

000154
165324
177572

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

06771,R3

@1,FLAG

01,80177572

R7,SLOCOO
-(R1),(RS).

1 INCREMENT TEST NUMBER
sMMU OFF
;CLEAR MMU ABORT FLAG
:CLEAR STATUS REG SAVE AREA
sINIT MMU
: INIT PSu
sSETUP TEST LOCATIONS
:
:
:

sINIT MMR3
:SETUP KIPDR4 TO ABORT
1SETUP EXPECTED DATA FOR MMR1
:SETUP FLAG FOR AN ABORT
;TURN MMU ON
:SAVE PC
;00 A RELOCATION

:CHECK IF AN ABORT OCCURRED AND IF

:YES IF MMR1 EQUALS EXPECTED DATA
:SETUP EXPECTED DATA FOR MMR1
1SETUP FLAG FOR AN ABORT

s TURN MMU ON
$1SAVE PC
100 A RELOCATION
1CHECK IF AN ABORT OCCURRED AND IF
sYES IF MMR1 EQUALS EXPECTED DATA
1SETUP EXPECTED DATA FOR MMR1
:SETUP FLAG FOR AN ABORT
: TURN MMU ON
i SAVE PC

300 A RELOCATION

GLOBAL

AREAS
KDJ1.1A
MAC

2781
2782
2783

2784
2785
2786
2787

2788
2789
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

MACY11

20-MAR-84

30A(1052)

11:19

013532

004767

000122

013536
013542
013550
013556
013562
013564

012703
012767
012737
010767
112125
004767

006411
000001
000001

013570
013574
013602
013610
013614
013616

012703
012767
012737
010767
012542
004767

013622
013626
013634
013642
013646
013650

012703
012767
012737
010767
014225
004767

20-MAR -84
120

11:31
PAGE S6
MMR1 FUNCTIONAL

JSR

PC,TS12

MOV
MOV
MOV
MOV
MOVB
JSR

06411,R3
@1,.FLAG
01,80177572
R7,SLOCOO
(R1)+,(R5).
PC,.TS12

000036

MOV
MOV
MOV
MOV
MOV
JSR

€171025,R3
@1 ,.FLAG
01,80177572
R7,SLOCOO
(R5)+, -(R2)
PC,.TS12

012762
000001
000001
165162

MOV
MOV
MOV
MOV

@12762,R3
01 ,FLAG
01,80177572
R7,SL0C00

165246

165272
177572

000070
171025
000001
000001
165214

165240
177572

165206
177572

MOV
JSR

000004

SEQ 0056

TEST

sCHECK IF AN ABORT OCCURRED AND IF
1YES IF MMR1 EQUALS EXPECTED DATA
1SETUP EXPECTED DATA FOR MMR1
1SETUP FLAG FOR AN ABORT
1 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
1SETUP FLAG FOR AN ABCRT
s TURN MMU ON
1SAVE PC
;00 A RELOCATION
sCHECK IF AN ABORT OCCURRED AND IF
s YES

sSETUP FLAG FOR AN ABORT
;TURN MMU ON

:SAVE PC
;00 A RELOCATION
sCHECK IF AN ABORT OCCURRED AND IF

-(R2),(R5).
PC,.TS12

;:YES

013654

000167

000062

JMP

IF MMR1 EQUALS EXPECTED DATA

1SETUP EXPECTED DATA FOR MMR1

MMR1 EQUALS EXPECTED DATA

T12FIN

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

22767
001403
104100
000243
001213

000000

013676
013702
013704
013706
013710

020367
001403
104000
000244
001213

165172

013712
013720
013722
013724
013726

001403
104000
000245
001213

026767

165112

013730
013734
013740

005067
005067
000207

013742
013742

165140
165136

165154

TS12:

1%:

165156

2%:

3s:

cHe

@0 ,.FLAG

BEQ
ERROR
.WORD
.WORD

243
MMUERR

cMP

R3,SAVMR1

BEQ
ERROR
.WORD
.WORD

cMP
BEQ
ERROR
.WORD
.WORD
CLR

CLR

RTS

:0DID AN ABORT OCCUR

244
MMUERR

SLOCOO0, SAVMR2
3
245
MMUERR
SAVMR1

SAVMR2

1YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
s+ TEST MMR1 FOR EXPECTED DATA
;0K GC ON
:ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
: TEST MMR2 FOR EXPECTED DATA
10K GO ON
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
;:CLEAR STATUS REG SAVE AREA
:

;RETURN

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

s¢TEST 21

ADDER RELOCATION TEST PART A

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

;(NEED 16 BITS OF MEMORY ADDRESSING)

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

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

AREAS

.MAC

MACY11

30A (1852)

20-MAR-84 11:1

005267
005037
005067
005037
004767
012737
012703
012701
012133
021127
001374
012703
012701
012702
012237
013305
012737
006531
012604
005037
020504
001403
104000
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
005203
005203
005201
005201
005202
005202
012237
013305
012737
012737
106531
012604
005037
005037
020504
001403
104000
000247
001213

165036
177572
165064
177776
165320
000020
014164
014216

1ST121:

O sy

INC
CLR
CLR
CLR
MOV
MOV

18:

2%:

177572

(R1),0333

MOV

MOV
MOV
MOV
MFPI

CLR

BEQ

ERROR

3s:

000027
000001

172516
177572

1
OPHY1,R3
@VIR1,R1

O&MODE1,R2

(R2)+,80177776
8(R3).,RS
1,80177572
8(R1).

(SP)+,R4

80177572

RS,.R4
3

246
MMUERR

cMP

(R3),0111

VALUES

H
:SET POINTERS TO ADDER PART A
;s TEST TABLES.

sINIT
:SAVE
;TURN
:SAVE

PSW
DATA AT PHYSICAL ADDRESS
MMU ON
DATA AT RELOCATED VIRTUAL

ADDRESS

s TURN MMU OFF

:+IS 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
;:ARE WE READY

TO TEST DATA SPACE

INC
INC
MOV
MOV
MOV

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

:
H
s INIT PSW
sSAVE DATA AT PHYSICAL ADDRESS
s INIT MMR3

MFPD
MOV

a(R1).
(SP)..R4

:SAVE DATA AT RELOCATED VIRTUAL ADDRESS
:POP THE STACK

80172516
RS.R4

:CLEAR MMR3
:IS DATA EQUAL TO EXPECTED

CLR

BEQ

ERROR

. WORD

s INIT MMR3
1SETUP PARS WITH TEST

sNO GO TO 2%
;POINT TO DATA SPACE VALUES
H
:

CLR
cMP

000202

s INIT MMU

28
R3
R3
R1

21.,80177572

80177572

247

.WORD

MMUERR

JMP

TL3FIN

000167

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

BNE
INC
INC
INC

MOV

177572
172516

(R1)+,8(R3).

.WORD
.WORD

INC

177776

#20,80172516
OPARAD1.R3

cCMP

cMP

000111

PC,.MMU

4PARVAL1,R1

MOV

177572

$TESTN
anL77572
FLAG
80177776

MOV

BNE
MOV
MOV

014302
014250
014334
177776

000001

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

JSR

172516

000333

014160

2891
2892

31 1 2BoeR"8EL3%ar1on TEST PART A
:

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

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

014160

20-MAR =

sADDER TEST PART A TABLES

s TURN MMU ON

:TURN MMU OFF

:YES GO ON

:ALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE
iNO IT IS AN ADDER ERROR

HRIHE

PARVA1L:

NE! WU T

VIRL:

3a8884E
333333555555555555888858588 S

2948

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

PARAD1
:

PHY1:

5. ek TN

014232

014234
014236
014240
014242
014244

172240
177642
172252
177640
172242
172254
177652
177644
172246
177654
172250
177660
000333
000000
000010
177777
177601
000010
000052
000070
000010
000010
000060
000000
000010
000333
000000
025000
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
030000

MODE1:

A&OERAEELOCAYION TEST PART A

014164
014166
014170
014172
014174
014176
014200
014202
014204
014206
014210
014212
014214
014216
014220
014222
014224
014226
014230

11: .

2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903

20-

20-MAR- 84
T21

KDJ11A MAC

Y11 30A(1 052)
-84 1 1:1 9

ORI, B, AL, A

GLOBAL AREAS

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

SEQ n058

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

S
014344
014346
014350
014352
014354
014356
014360
014362
014364

o RSP 20y 1 R BoeR RE82at1ON TEST PART A
010000
010000
030000
030000
010000
030000
010000
000111
030000

GLOBAL
KDJ11A,

SEG 0059

010000
010000
030000
030000
010000
030000
010000
111
030000

014366
014366

T13FIN:
TS1822:
;‘“.‘.‘...‘.“.".0““"..“...“..‘

soTEST 22

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

TEST 22718 BIT ADDRESS OPTION

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

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

:CHECK THE SOF TWARE SWITCH REG ISTER TO DETERMINE IF THIS IS A 22 BIT OR AN
:18 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

005267
032777
001405
062737

164412
000400

164446

000001

001004

014410

000167

001472

TST22:

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

INC
BIT
BEQ
ADD

$TESTN

s INCREMENT TEST NUMBER
;IS BIT 08 SET?

@1,808TESTN

+KEEP TEST NUMBERS IN ORDER

JMP

T14FIN

081708, aSWR
100$

:BRANCH IF ITS NOT

sADD 1 FOR THE TESTS WE'RE SKIPPING
i SKIP OVER 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.

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

i22 BIT MODE IS FUNCTIONING.

:IF ADDRESS O =177777 IT INDICATES THAT 22 BIT MODE
014414
014422
014430
014436
014444
014452
014460
014466
014472

013767
013767
012737
012737
012767
012767
012767

005067
012737

000004
000006
014514
000340
000020
170000
000001
163306
177777

014500

005767

163274

014504

001407

014506
014510
014512

104000
000250
001213

MMUERR

164406
164402

100%:

804 ,5L0C00
806,5L0C01
015,304

156044
155674
163104
140000

340,306
€20, SR3
€170000,KIPAR6G
#1,SRO
0
@177777,80140000

250

IS NOT FUNCTIONING.

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

tMOVE ALL ONES TO ADDR 17000000 VIA KIPAR6
:A TIME OUT ERROR OR
+ADDR O REMAINING CLEAR INDICATES
s THAT 22 BIT ADDRESS MODE IS WORKING AND

1 THAT SOME FURTHER TESTS SHOULD BE PERFORMED

+IF ADDR O =177777
1ERROR! 22 BIT ADDRESS MODE BAD
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

GLOBAL AREAS
KDJ1.1A
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

MACY11

20-MAR-84

30A(1052)

11:19

20-MAR-84

T22

014514

012706

001000

014520
014524
014532
014540

005037
012737
042767
012767

177766
014564
000020
170000

000004
155756
155606

014546

012737

177777

140000

014554
014562
014564

001405

014570
014572
014574

104000
000251
001213

022737

005067

177777

1s:
2%:

000000

163002

11:31

PAGE 60

SEQ 0060

TEST 22718 BIT ADDRESS OPTION

MOV

@ST80OT,SP

CLR
MOV
BIC
MOV

30177766
3% ,804
oBIT04,SR3

€170000,KIPARG

1SET KIPAR6 SO THAT BITS 18-21 SHOULD

MOV

@177777,80140000

:TRY

cMP

3%:

+BE ASSERTED IF 22 BIT ADR WAS ENABLED

ERROR
.WORD
.WORD

MMUERR

TO WRITE ADDR

17000000 VIA KIPARG

+ADDR O SHOUWLD = 177777. A TIME OUT
1OR ADDR O = ZERO INDICATES AN ERROR
;GO TO NEXT TEST IF ADDR 0=177777
:DISABLE MMU BEFORE ERROR.
;ERROR! 18 BIT ADDR OPTION IS N.G.
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

@177777,800

BEQ
CLR

+GOT HERE AS A RESULT OF NXM TRAP--1CLEAN UP THE STACK
+CLEAR CPU ERROR REGISTER
iSET UP VECTOR FOR NXM TRAP
sSET 18 BIT ADDRESSING MODE IN SR3

SRO

251

: TEST ADDRESS BITS 18 THRU 21

014576
014604
014612
014616
014624
014632
014636
014640
014644
014646
014650

014652
014660
014664
014672
014700
014704
014706
014712
014714
014716

052767
012767
005067
012767
012737
005767

001405
005067

104000
000252
001213
012737
005067
012767
012737
005767

001405
005067

104000
000253
001213

014720
014726
014732
014740
014746
014752
014754
014760
014762
014764

104000
000254
001213

014766
014774

012737
005067

000020
014652
163162
010000
177777
163142

4s:

15553C
1400600

014720
163114
020000
177777
163074

CLR

ERROR
.WORD
.WORD
000004

Ss:

155462
140000

162660

014766
163046
040000
177777
163026

005067

162612

015034
163000

BIS
MOV
CLR
MOV
MOV
TST

BEQ

162726

012737
005067
012767
012737
005767

001405

155712
163172

MOV
CLR
MOV
MOV
TST

63:

155414
140000

063,304
0

ERROR
.WORD
.WORD
MOV
CLR

;ERROR! BIT

920000, KIPAR6

sWRITE ALL ONES TO ADDR 2000000

SRO

253

074,304
(o]
940000,KIPARG

81 77777,80140000
78

SRO
254

MMUERR
084,304

18 DID NOT ASSERT

:SET UP FOR NXM TRAP
:CLEAR ADDR 0
s TEST ADDRESS BIT 19

8177777.“140000

MMUERR

CLR

7%:

252

MMUERR

ERROR
.WORD
. WORD

BEQ

000004

0
5S¢
SRO

MOV
CLR
MOV
MOV
TST

;ENABLE 22 BIT ADDRESSING MODE
:SET UP FOR NXM TRAP
:CLEAR ADDRESS 0
:TEST ADDRESS BIT 18
sWRITE ALL ONES TO ADDR 1000000
+ TEST ADDRESS O. SHOULD = ZERO
:BRANCH IF ADDRESS 0=0
+OISABLE MMU BEFORE ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

210000,KIPARG
@177777,80140000

BEQ
CLR

000004

oBIT04,SR3

85!.4

:ERROR?

: TEST ADDR 0. SHOULD= ZERO
tBRANCH IF ADDRESS 0=0
:DISABLE MMU BEFORE ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

B8IT 19 DID NOT ASSERT

:SET UP FOR NXM TRAP
:CLEAR ADDR 0
+: TEST ADDRESS BIT 20
tWRITE ALL ONES TO ADDR 4000000
1 TEST ADDR 0. SHOWD =0
1BRANCH IF ADDRESS O =0
+DISABLE MMU BEFORE ERROR
sALL ERRORS TO TRAP TO EMT VECTOR "
tUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

;:ERROR! BIT 20 DID NOT ASSERT
:SET UP FOR NXM
;:CLEAR ADDRESS 0O

GLOBAL

AREAS
KDJ11A. MAC

3061
3062
3063
3064
3065

015000

MACY11

20 -MAR- 84

015032

012767
012737
005767
001405
005067
104000
000255
001213

015034
015040
015044
015050
015056

005067
005037
012706
013737
013737

015006

015014
015020
015022
015026
015030

30AC1052)

1 1:19

100000
177777

162760

20-MAR-84
¢

82 1138135518
%11 AoORESS OPTION

155346
140000

MOV
MOV
TST
BEQ

162544

CLR
ERROR

162532
177766

8s:

001000
001030
001032

015064

2100000, KIPARG
@177777,84140000
0
8s

255
MMUERR

CLR

SRO

CLR

: TEST ADDRESS BIT 21

sWRITE

ALL ONES AT ADDR

10000000

+CHECK ADDRESS 0. SHOULD = 0

+BRANCH IF ADDR 0 = 0O

SRO

.WORD
.WORD

MOV
MOV
MOV

SEGQ

;ERROR!

30177766

9STBOT,R6
805L0C00,
844
80SL0CO806
1,

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

ADDR BIT 21 DID NOT

ASSERT

1DISABLE MMU
iCLEAR CPU ERROR REGISTER

;RESET STACK POINTER

sRESTORE VECTORS
i

TSMM14:
;;.“....‘..‘.“.““..‘.““..

;+TEST 23

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

ADDER RELOCATION TEST PART B

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

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

:(NEED 22 BITS OF MEMORY ADDRESSING)

015064
015064
015070
015074
015100
015106
015114
015122
015130
015134
015142

g3..‘.““.‘““.‘.“.....“‘.‘

005267
005037
005067
013737
013737
012737
012737
005037
012767
012737

163714
177572
162666
000004
000006
015620
000340
172340
077406
177500

TST23:

001030
001032

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

INC
CLR
CLR
MOV
MOV

$TESTN
80SR0O
CPEREG
804 ,80SL0C00
806,86SL0C01

CLR
MOV
MOV

3O0KIPARO
€77406 ,KIPDRO
9177500,
30K IPARG

MOV
MOV

155136
172354

s INCREMENT TEST NUMBER

s TURN OFF MMU.

;:CLEAR THE CPU ERROR REGISTER
iSAVE LOC 4 IN SLOCOO.
:SAVE LOC 6 IN SLOCO1.
:SET UP FOR TIMEOUT TRAP
:SET UP FOR TIMEOUT TRAP
1SET KER PARO FOR 1ST 4KW OF MEMORY.
iSET KER PDR FOR 4KW R/W ACCESS.
:SET UP KERNEL PAGE ADDR REG 6

ONXMTRP
, 804
0340,806

:FOR HIGHEST

015150
015156
0151€4
01517e

015176
015204
015212
015216
015222
015226
015234
015242
015250
015254
015260
015264
015272
015276
015302
015304
015310

012767
012737
012737
005737
013737
013737
005037
005037
004767
012737
012737
052737
012704
012701
012437
012737
012746
006671
006531
022726
001405

077406
000020
000001
157776
001030
001032

177572
001042
164060
010000

000020
001000
016022
016054
172246
000001
125252
000000
125252

155136
172516
177572
000004
000006

MOV
MOV
MOV
TST

177776
172516
177746

177572

@77406 ,KIPDR6
920,805R3
#1,80SR0
80157776

isssssssssssssllILL

1%:

MOV
MOV
CLR
CLR
JSR
MOV
MOV
BIS
MOV
MOV

MOV
MOV
MOV

MTPI
MFPI

cMP
BEQ

TRAP

TO 4

NON-I/O

tENABLE 22 BIT ADDRESSING.

(R4).,80172246
01,80177572
4125252, -(SP)

2125252,(SP).
24

WORDS

:SET KER PDR6 FOR 4KW R/W ACCESS.

86SL0CO0,
804
80SLOCO806
1,
80177572
SOFLAG
PC,.MMU
#10000,8¢177776
020,80172516
©1000,80177746
OPARVA3,
R4
OVIR3,R1

80(R1)
8(R1).

:FOR 2 MEG WORDS OF MEMORY.

MEG

:TURN ON THE MMU.
;ATTEMPT TO ADDRESS LAST MEMORY

ADDR.
WORDS OF MEMORY NOT AVAILABLE#+sssssss

:RESTORE LOC 4
sRESTORE LOC 6

:MMU OFF

:CLEAR MMU ABORT FLAG
s INIT MU
sINIT PSUW
s INIT MMR3
: TURN CACHE TEST FEATURE ON
:SET POINTERS TO INIT TABLES
i

:INIT SIPAR3

:TURN MMU ON

:PUSH BACKGROUND DATA ON TO THE STACK
tWRITE DATA TO PHYSICAL ADDRESS
iWRITE DATA AT PHYSICAL ADDRESS TQ STACK
:IS DATA EQUAL TO EXPECTED

:YES GO ON

0061

GLOBAL AREAS

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

MACY11

20-MAR-84

30A(1052)

11:19

015312
015316
015320
015322

005037
102000
000256
001213

177572

015324
015330
015334

177572
000333

015342
015346
015350
015354
015356
015362
015366
015372
015376

005037
021427
001351
012704
012701
012431
021127
001374
012704
012701
012702
012703
004767

015770
015736
016022
016054
000076

015402

021127

000111

015336

015406
015410
015412
015414
015416
015420
015426
015432
015436
015444
015446
015452
015460

001373
005201
005201
005204
005204
012737
012437
012746

012737

106631
005037
012737

20-MAR-84

123

2s:

000333

004767

177572
000020
000040

015464
015470

005037
004767

000004

015474

000167

000406

256
MMUERR

CLR

80177572

cHP
BNE

as:

MOV
MOV
cHP
BNE
MOV
MOV
MOV
MOV

172516

177572

172516

TO EMT VECTOR

+UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
#NOT EQUAL GO TO ERROR
;TURN MMU OFF

OPARAD2,R1
(Ra)+,8(R1)+

(R1),0333
33
OMODE2,
R4
oVIR2,R1
OPARVA3,
R2
oVIR3,R3

(R1),0111

CLR

s TURN MMU OFF
sALL ERRORS TO TRAP

1SET POINTERS TO PAR INIT TABLES

OPARVA2,R4

cHP

CLR
MOV
JSR

172516

SEQ 0062

sARE WE DONE

PC,TS14

MTPD

PART

(Ra), 0333
1%

JSR

BNE
INC
INC
INC
INC
MOV
MOV
MOV
MOV

TEST

80177572

ERROR
.WORD
.MORD

MOV

3s:

PAGE 62

ADDER RELOCATION

CLR

015704
015652

000027
177776
052525
000001

11:31

as
R1
R1
R4
R4
027,80172516
(Ra)+,80177776
952525, -(SP)
21,80177572

8(R1)»

80177572
#20,80172516

PC,T14

80172516

JSR

PC,T7S14

JMP

T14FIN

iNO GO TO 1
:

:INIT PARS

;ARE WE DONE

sNO, GO TO 3s
:SET POINTERS TO ADDER PART B TABLES
:

i
H

;WRITE
;CHECK
;EQUAL
;IF IT
sHAVE

DATA TO PHYSICAL ADDRESS AND THEN
IF DATA AT PHYSICAL ADDRESS IS
TO EXPECTED AND IF NOT DETERMINE
IS AN ADDER ERROR OR A MEMORY ERROR

DONE

ALL

THE

22 BIT

MODE

; CASES
sNO GO TO 43
;POINT TO 22 BIT MODE D SPACE CASE

SPACE

H
:

s INIT MMR3
s INIT PSW
:PUSH DATA ONTO STACK

;TURN MMU ON
;WRITE DATA TO PHYSICAL ADDRESS
;TURN MMU OFF
s INIT MMR3
;CHECK IF DATA AT PHYSICAL ADDRESS IS EQUAL
: 7O EXPECTED AND IF NOT DETERMINE IF IT
:IS AN ADDER ERROR OR A MEMORY ERROR
sINIT MMR3 FOR 18 BIT MODE
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

sROUTINE 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 ERROR OR A MEMORY ERROR

015500
015504
015512
015516
015520
015524

012437
012737
012746
006631
005037
012737

177776
000001
052525

177572
010000

177572

TS14:

MOV

€1,80177572
052525, -(SP)

CLR

30177572

MTPI

177776

T14:

(R4). 80177776

MOV
MOV

MOV

8(R1)+

210000,84#177776

+INIT PSW
s TURN MMU ON
sWRITE DATA ONTO STACK

sWRITE DATA TO PHYSICAL ADDRESS VIA STACK
:TURN MMU OFF

s INIT PSW

GLOBAL

AREAS

_ MACY1l

30A(1052)

KDJ11A.MAC = 20-MAR-84 11:19

3173
3174

3175

3176

3177
3178

3179
318G
3181

015532
015536

015584

015550

015554
015556

015562
015566
015570

012237
012737

006573

022726

001414
006573

022726
001404
104000

3182
3183

015572
015574

000257
001213

3185

015576

000403

3184

3186

3187

015600

015602
015604

000260
001213

3191
3192
3193

015606
015612
015614

005037
005203
005203

3194

015616

000000

103

3199
3200
3201

125252

18:

177572

2s:

%0 9%e3

sINIT SIPAR3
1 TURN MMU ON

cHp

952525, (SP).

:IS DATA EQUAL TO EXPECTED

cHP
BEQ
ERROR

0125252, (SP)»
18

.
:
1ALL ERRORS TO TRAP TO EMT VECTOR

R0CR3)

.MORD
WORD

257
MMUERR

B8R

ERROR
.WORD
"WORD

260
MMUERR

CLR
INC
INC

80177572
R3
R3

RTS

sD0 RELOCATION

23
S0CR3)

1 YES GO ON
{WHAT TYPE OF ERROR IS IT

{UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

;IT IS A MEMORY ERROR
:

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

:IT IS AN ADDER ERROR

;TURN MMU OFF
:
:
{RETURN

{NON-EXISTANT MEMORY TRAP ROUTINE

015620

015624
015630
015636

005037

012716
013737
013737

015644

005037

3204

015650

000006

3206
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228

(R2)+,80172246
01.80177572

BEQ
MFPI

000207

3202

3203

R REL88aTION TEST PART B

MFPI

000000

MOV
MOV

052525

31%

3198

11:3]

177572

104000

3188
3189

3190

172246
000001

20-MAR-84

177572

016106
001030
001032
177766

NXMTRP: CLR

MOV
MOV
MOV

000004
000006

CLR

80SRO

OT14FIN, (SP)
80SL0CO0, 304
80SLOCO1 . 806

20177766

RTT
H

:ADDER TEST PART B TABLES
015652
015654
015656
015660
015662
015664
015666
015670
015672
015674
015676
015700
015702
015704
015706
015710
015712
015714
015716
015720
015722

177646
177650
177652
172240
177640
177642
172244
177644
172252
17235
177662
17224>
000333
157700
137700
077700
176777
007600
167700
175700
177425

PARAD2:

PARVA2:

.WORD
'MORD
'WORD
"WORD
'MORD
'WORD
'WORD
TMORD
JWORD
JMORD
'WORD
'WORD
‘WORD
.WORD
'WORD
'WORD
'WORD
'HORD
‘WORD
JMORD
'WORD

177646
177650
177652
172240
177640
177642
172244
177644
172252
172352
177662
172242
333
157700
137700
077700
176777
007600
167700
175700
177425

:TURN OFF MMU.

:SET UP STACK WITH RETURN ADDR.
:RESTORE LOC 4
:RESTORE LOC 6

:CLEAR TIME OUT INDICATION FROM
:CPU ERROR REGISTER.

iRETURN FROM TRAP; 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
3250
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 30A(1052)
20-MAR-84 11:19

177220
173700
176700
077400
000333
070000
110000
130000
000000
000000

20-MAR-84
123

VIR2:

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
060000

11:31
PAGE 64
ADDER RELOCATION TEST PART B

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

333
070000
110000
130000
000000
000000

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

050000
052524
136000
130000
111
030000
030000
030000
030000
030000
010000
030000
030000

.WORD

MODE2:

PARVA3S:

VIR3:

.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

177220
173700
176700
077400

030000

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

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

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

20-MAR-84

123

11:31

000333

.WORD

333

A&DER ELOCATION TEST PART B

[

3EQ 006

016106

T14FIN:
P38848
000000
00
8000000
0 000 0000
00
0000
40
0000
00
0
000000
08
00

;«TEST 24

TEST NON-EXISTANT MEMORY TRAP

P38804000000 0000000040000 0 00040

00 RRARAARAAEAAARARAREAAR0000004a

;WE ARE ASSUMING THAT THE NON-EXISTANT MEMORY TIME OUT
sFEATURE IS WORKING SINCE WE CAN'T GUARANTEE THAT
:THE SYSTEM BEING TESTED HAS A NON-EXISTANT MEMORY LOCATION.
;AT THIS TIME WE WILL ATTEMPT TO TEST THE NXM FUNCTION
016106
016106
016112
016116
016124
016132
016140
016146
016152
016156
016162
016164
016172
016174

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

005267
004767
012737
016767
016767
052767
005067
005067
005737
000423

162672
163170
177400
161654
000026
000001
161614
161620
157776

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

000040

Rt L
PPN

TST24:

172354
162676

MOV
MOV
MOV
BIS

161644
161424

161574

016162

INC

JSR

CLR
CLR

:SET KIPAR6 TO RELOCATE TO HIGHEST MEMORY
:SAVE VECTOR
;LOAD VEC WITH ADDR OF TRAP HANDLER
;TURN ON THE MMU

CPEREG
PS

80157776
NXMF IN

2%:

gg:

;?ITOS.CPEREG

016250

#177400, 3#KIPAR6
4,5L0C00
2%.4
#BIT00,SRO

TST
BR

3s:

161534

;sINCREMENT TEST NUMBER

1$:

ERROR
.WORD
.WORD
ggs
ERROR
.WORD

161334
161524
162562

$TESTN

PC,MMU

s+ACCESS PHYSICAL ADDR 17757776
:IF IT DOESN’'T TRAP WE'LL ASSUME
: THAT THIS IA A 4 MEGABYTE SYSTEM

:AND GO TO THE NEXT TEST

:IS CPU ERROR REGISTER CORRECT?

261
MMUERR
:}3.(59)0

;ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:IS CONTENTS OF STACK CORRECT?

262

;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

MMUERR

BEQ

NXMF IN

ERROR
.WORD
.WORD
NXMFIN: CLR
CLR
MOV

;CLEAR THE CPU ERROR REGISTER
;CLCAR THE PSW

.WORD

cMP

;INIT THE MMU

20,(SP).

263
MMUERR
SRO

CPEREG
SLOC00,4

sADDRESS OF ERROR MESSAGE

: IS CONTENTS OF STACK CORRECT?

sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
;:TURN OFF THE MMU
;CLEAR THE CPU ERROR REGISTER
;RESTORE THE VECTOR

TSMM1S5:
FIR0AR045
00000000
040
00000 40000000
00A
880

;#TEST 25

016250
016250
016254
016260
016264
016270

PAGE WRITTEN BIT TEST

000
0000000000000000
000
00088

8858000804000 0008000000000000008000000000

005267
005037
005067
004767
005037

162530
177572
162556
163016
177776

TST12S:

8008000000080000800004

INC

CLR
CLR

JSR

CLR

$TESTN

s INCREMENT TEST NUMBER

177572
FLAG

tMMU OFF
;CLEAR MMU ABORT FLAG

aniL77776

s INIT PSW

PC,MMU

s INIT MMU

GLOBAL

AREAS

KDJ11A.MAC

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

3354
3355
3356
3357
3358
3359
3360
3361
3362

3363

016274
016300

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

172300
000114

016304

004767

000164

016310
016316
016322

012737
012704
004767

050000
172200
000072

016326

004767

000142

016332
016336
016344
016350
016354

005037
012737
012704
004767
004767

20-MAR-84
125

177776
170000
177600

11:31
PAGE 66
PAGE WRITTEN BIT

MOV
JSR

177776

000114

€172300,Ra
PC,TS15
PC,T15

MOV
MOV
JSR

JSR

PC,T1S

MOV
JSR

000044

JSR

SEQ

TEST

JSR

CLR
MOV

177776

B6
1SET POINTER TO KPDRS
1D0 RELOCATIONS AND TEST KIPDRS FOR

1PAGE WRITTEN BIT BEING SET AND IF
tNOT SET GO TO ERROR

100 RELOCATIONS AND TEST KDPDRS
1PAGE WRITTEN BIT BEING SET AND
1SET GO TO ERROR
1 INIT PSW
1SET POINTER TO SPDRS
100 RELOCATIONS AND TEST SIPDRS
1PAGE WRITTEN BIT BEING SET AND
+SET GO TO ERROR
100 RELOCATIONS AND TEST SDPDRS

80177776
€170000,80177776

@177600,R4
PC,TS15

PC.T1S

1PAGE WRITTEN BIT BEING SET

AND

+PAGE WRITTEN BIT BEING SET

AND

005037
012704
004767

177776
172300

CLR

MOV
JSR

000162

80177776

0172300,R4
PC,T15A

FOR
IF NOT
FOR

IF NOT

1SET GO TO ERROR
$INIT PSW TO A KNOWN STATE
s INIT PSW
1SET POINTER TO UPDRS
100 RELOCATIONS AND TEST UIPDRS FOR
IF

sNOT SET GO TO ERROR
1D0 RELOCATIONS AND TEST UDPDRS FOR

+PAGE WRITTEN BIT BEING SET AND

016360
016364
016370

FOR
IF NOT

IF NOT

$SET GO TO ERROR
s INIT PSW TO A KNOWN STATE
1SET FOINTER TO XPDRS
(EXPLICITLY WRITE TO KPDRS AND TEST

1FOR PAGE WRITTEN BIT BEING CLEARED

016374

016400

012704
004767

172200
000152

MOV
JSR

2172200,R4
PC.T15A

tAND IF NOT CLEARED GO TO ERROR

1SET POINTER TO SPDRS

tEXPLICITLY WRITE TO SPDRS AND TEST

tFOR PAGE WRITTEN BIT BEING CLEARED

016404
016410

012704
004767

177600
000142

MOV
JSR

9177600,R4
PC,T1SA

1AND

IF NOT CLEARED GO

TO ERROR

1SET POINTER TO UPDRS
tEXPLICITLY WRITE TO UPDRS AND TEST

1FOR PAGE

WRITTEN BIT

BEING CLEARED

tAND IF NOT CLEARED GO TO ERROR
016414

000167

000170

JMP

T1S5FIN

sROUTINE TO DO RELOCATIONS AND TEST IPDRS FOR PAGE WRITTEN BIT BEING
$SET AND IF NOT SET REPORT AN ERROR
016420
016422
016430
016436
016440
016444
016450
016452
016454
016456
016460
016464

005001

012737
012737
011111
005037
022427
001403
104000
000264
001213

062701
020127

000020
000001

172516
177572

TS15:

CLR

18:

MOV

177572
077506

R1
920,80172516
01,80177572

(R1),(R1)
80177572
(R4).,077506
28
264

MMUERR

020000
160000

2%:

ADD

920000,R1

R1,0160000

1SET POINTER TO VIRTUAL ADDRESS
1 INIT MMR3
1TURN MMU ON
:D0 A RELOCATION
1 TURN MMU OFF
1 IS DATA EQUAL TO EXPECTED
10K GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER

1 ADDRESS OF ERROR MESSAGE

tNO GO TO ERROR

1POINT TO NEXT VIRTUAL ADDRESS
$ARE WE DONE

006¢

Cé

:
KBOTIA. MAEYS ooMARAM305
BL 852) 20 MAR:8S 11:3h.c
PORE
%N 81T rEST
OBAL

3397

AREAS

(

}95:

MAR

016470

001357
3398 016479 008337

3399

3300

.;81
2
3303

3404
3505

3406
3407

016474

016476
016502

005001

062704
012737

000002
000027

012737
011146

000001

3409
3410

016522
016526

005037
022427

177572
077506

3312

016534

3411

016520

016532

106611

001403

016536
016540

000265
001213

3416
3417
3418

016542
016546
016552

062701
020127
001356

33:53

016554

sAND IF NOT SET REPORT AN ERROR
3
T15:
CLR
R1

172516
177572

000207

016556

000266
001213

3432
3433
3834

016576
016600
016604

005202
020227
001365

016570

016606

3436

016610

3438

016610

3439

T1S5A:

18:

077406

104000

3443
3444

3445

3446
3447
3448

3449

3450
345!
3452

265
MMUERR

ADD
cMe
BNE

220000,R1
R1, 2160000
18
PC

sPOINT TO FIRST DPDR
JINIT MMR3

1TURN MMU ON
1PUSH DATA ONTO THE STACK

100 A RELOCATION

1 TURN MMU OFF
1IS DATA EQUAL TO EXPECTED
10K GO ON

1ALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

INO GO TO ERROR

sPOINT TO NEXT VIRTUAL ADDRESS
1ARE WE DONE
iNO GO TO 18
s RE TURN

CLR

28:

000020

000207

T1SFIN:

100 AN EXPLICIT WRITE TO PDR
:1S DATA EQUAL TO EXPECTED
;0K GO ON

.MORD
.MORD

266
MMUERR

JUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

INC
cHe
BNE

R2
R2,020
13

RTS

016624
016630
016634

012708
004767
012737

017200
162452
000037

013746
013746

000010
000014

016646
016652
016656

iNO GO TO ERROR

+ INCREMENT POINTER
:ARE WE DONE
tNO GO TO 18
s RE TURN

1300000000000 0000000000000000000000000000000000000000000000000000

005267
005037

016642

1ALL ERRORS TO TRAP TO EMT VECTOR

TSMM16:

016610
016614

016620

1CLEAR COUNTER

(R4),(R&)
(R&).,077406
23

;e TEST 26

016610

MOV
cMe
8EQ

ERROR

3440
ml
3442

(R1)

.WORD
.WORD

RTS

005002

016572
016574

3437

80177572
(R&)+,077506

1SET POINTER TO VIRTUAL ADDRESS

:CLEARED AND IF NOT CLEARED REPORT AN ERROR

3429
3430

3435

IREoRNTO ! 1

sROUTINE TO EXPLICITLY WRITE TO PDRS AND TEST PAGE WRITTEN BIT FOR BEING
011414
022827
001403

343)

CLR
cHP

016560
016562
016566

3428

01,80177572
(R1),-(SP)

BEQ

020000
160000

02,.R4
027,80172516

MOV
MOV

ERROR

sszgg

3425
3426
3427

ADD
MOV

MTPD

3421

3424

1$:

104000

3413
3414

3315

sROUTINE TO DO RELOCATTONS AND TEST DPDRS FOR PAGE WRITTEN BIT BEING SET

016510
016516

3408

0067
€£Q 0067

56Q

005037

013746

162170
177572

INC
CLR

001042

177776

000016

TEST CSM (CALL SUPERVISOR MODE)

l'......‘...‘.‘.‘.‘.‘..‘...“..‘..‘.‘.....‘.‘......‘......“.....
1ST26:

CLR

172516

$TESTN
80177572

SOFLAG

MOV
JSR
MOV

o0TMM16E R4
PC.MMU
#37,80172516

MOV
MOV

8010, -(SP)
8014, -(SP)

CLR

MOV

80177776

8016, -(SP)

s INCREMENT TEST NUMBER
tMMU OFF

1CLEAR MMU ABORT FLAG

2INIT R4
aINIT MMy
+ENABLE CSM INSTRUCTION
1SET PS TO KER MODE
1SAVE VECTORS

RBOTIR.ARETMS 20"ARA!AaSP0(1852) 20-maR;gg
3453
3454
3455
3456
3457
%458

3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469

3470

3471
3472
3473
3474
3475
3476
3477

3478
3479
3480

3481
3482
3483
3484
3485
3486
3487
3488
3489
3490

3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501

3502

3503
3504
3505
3506
3507
3508

016662
016670
016676
016704
016706

017054
000137
017214

016712

012737
012737
012737
007014
104000
000267
001213

016714
016722
016730
016736
016740
016742
016744

012737
012737
012737
007014
104000
000270
001213

017110
000027
140000

016746
016754

012737
012737
005037
007014

017144

016710

016762
016766
016770
016772
016774

016776
017004
017012
017016
017024
017030
017036

000010
000014
000016

MOV

MOV
MOV
. WORD

ERROR
.WORD
.WORD

000027
177776

000010

172516
177776

000010

172516

TSM16A:

TSM168B:

104000
000272
001213

017050

000167

017054
017062
017070
017072
017074
017076

042737
022737
001403
104000
000273
001213

017100

005726

005726
000167
042737
022737
001403
104000
000274
001213

MOV
MOV

. WORD
ERROR
.WORD
.WORD

000271
001213

012737
012737
012706
012737
012706
012737
000277
007024

MOV
MOV
MOV
. WORD
ERROR
.WORD
.WORD

CLR

104000

017040
017042
017042
017044
017046

017102
017104
017110
017116
017124
017126
017130
017132

D6
11 ‘9¢s1P86R PBaLL SUPERVISOR MODE)

000037
040000
000700
140000
000014

172516
177776

TSM16C:

177776
000010
TSM16D:

000634

007777

177776
177776

H
3
TMM168:

MOV
MOV
MOV
MOV
MOV
MOV
SCC
.WORD
ERROR
.WORD
.WORD

@TMM16B,8010
0137,8014
OTMM16A,8016
7014

1SETUP NEW VECTORS

7014

030000

177776
177776

TMM16C:

TEST

INSTRUCTION

+ALL ERRORS TO TRAP TO EMT VECTOR
270
tUNIQUE ERROR NUMBER
MMUERR
s ADDRESS OF ERROR MESSAGE
1GO TO ERROR IF NOT TRAPPED
0TMM16D,8010
sSETUP NEW VECTOR
927,80172516
tDISABLE CSM INSTRUCTION
80177776
$SET PS TO KER MODE
7014
3 TEST INSTRUCTION
sALL ERRORS TO TRAP TO EMT VECTOR
271
sUNIQUE ERROR NUMBER
MMUERR
1ADDRESS OF ERROR MESSAGE
;GO TO ERROR IF NOT TRAPPED
037,00172516
sENABLE CSM INSTRUCTION
040000,80177776
1SET PS TO SUP MODE
#700,R6
:INIT SUP SP
#140000,80177776

#600,R6

014,8010
7024
272

MMUERR

TM16A
07777,80177776
00,80177776
1$

273

177604
007777

3 TEST INSTRUCTION
tALL ERRORS TO TRAP TO EMT VECTOR
267
tUNIQUE ERROR NUMBER
MMUERR
1 ADDRESS OF ERROR MESSAGE
1GO TO ERROR IF NOT TRAPPED
@TMM16C, 8010
1SETUP NEW VECTOR
227,80172516
1DISABLE CSM INSTRUCTION
2140000,80177776
1SET PS TO USER MODE

MMUERR

18:

SEQ

(SP).
(SP).
TSM16A
07777,80177776
020000.'80177776
1
274

MMUERR

+SET PS TO USER MODE

s INIT USER SP
$1SETUP NEW VECTOR
sSET ALL CC BITS
3 TEST INSTRUCTION

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
:GO TO ERROR IF NOT TRAPPED

;CLEAR UNMWANTED BITS
: IS PS CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
31ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
sCLEAN UP STACK
)

sCONTINUE TESTING
1CLEAR UNWANTED BITS
1IS PS CORRECT

:YES GO ON

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

N068

GLOBAL

AREAS

KDJ11A . MAC

3509

3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527

3528

MACY11

20-MAR-84

017134
017136
017140
017144
017152
017160
017i62
017164
017166

005726
005726
000167
042737
022737
001403
104000
000275
001213

017170
017172
017174
017200
017202
017202
017204
017206

005726
005726
000167
156430
104000
000276
001213

30A(1052)
11:19

177602
007777
000000

177776
177776

TST
TST
JMP
TMM16D: BIC
CHP
BEQ
ERROR
.WORD
.WORD
TST
TST
JMP
TMM16E: .WORD
TMM16F :
ERROR
.WORD
.WORD

177576

000167
022737
001403
104000
000277
001213

000474
070017

017232
017236
017240
017242
017244

020627
001403
104000
000300
001213

000572

3542
3543
3544
3545
3546

017246
017252
017254
017256
017260

020427
001403
104000
000301
001213

017202

3548
3549
3550
3551
3552
3553

017262
017270
017272
017274
017276

023727
001403
104000
000302
001213

017200

017300
017304
017306
017310
017312

022627
001403
104000
000303
001213

156430

017314
017320
017322
017324
017326

022627
001403
104000
000304
001213

017042

3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564

TEST

PAGE 69

18:

017210
017214
017222
017224
017226
017230

3547

126

11:31

18:

3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540

3541

20-MAR-84

177776

JMP
TMM16A: CMP
BEQ
ERROR
.WORD
.WORD

18:

2s:

156430

3$:

4%:

S$:

cMP
BEQ
ERROR
.WORD
.WORD
cHP
BEQ
ERROR
.WORD
.WORD
cMP
BEQ
ERROR
.WORD
.WORD

cMP
BEQ
ERROR
.WORD
.WORD
CMP
BEQ
ERROR
.WORD
.WORD

CSM

(CALL

E6
SEQ 0069

SUPERVISOR MODE
)

(SP).
(SP)e.
TSM16B
07777,80177776
00.80177776
18

iNO GO TO ERROR

(SP).
(SP)e.
TSM16C
156430

1CLEAN UP STACK
'
sCONTINUE TESTING
1CLEAR UNWANTED BITS
1 IS PS CORRECT
1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
sCLEAN UP STACK
:
:CONTINUE TESTING
s+ TEST LOCATION

276
MMUERR

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

275
MMUERR

TM16A
#70017,86177776
1s

277
MMUERR
R6,0572
2
300
MMUERR

R4 ,0TMM16E .2
33
301
MMUERR
80TMM16E, 2156430
43

302
MMUERR

(SP)+,0156430
Ss
303
MMUERR
(SP)s,0TSM16D
63

304
MMUERR

3GO TO ERROR IF DIDN'T ABORT

+IS PS CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
:1IS SP CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

:IS R4 CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

+IS TEST LOCATION OK
:YES GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR

3IS STACK CORRECT
:YES GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
+IS STACK CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

3613
3614

3617
3618
3619
3620

001403
104000
000305
001213

017344
017350
017356
017362
017364
017366
017370

012706
012737
020627
001403
104000
000306
001213

000700
140000

017372
017400
017406
017414
017422

077400
017202
000001
000001

017426
017434
017436
017440
017442

012767
012737
012737
012737
010701
007014
022737
001403
104000
000307
001213

017444
017450
017452
017454
017456

023701
001403
104000
000310
001213

001076

017460
017466
017470
017472
017474

023727
001403
104000
000311
001213

001072

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

012737
012737
012706
012737
012706
012737
012737
000277
007027
045712

000037

001213

017560
017564

000167
022737

017424

022627

140000

65:

PAGE

cMP
BEW

ERROR
.WORD
.WORD

177776

7%:

MOV
MOV

cMP

BEQ
ERROR

152600
000016
001042
177572

MOV

001042

TEST CSM (CALL

§§9)0.0140000

000700
140000
000014
017564

100041

172516
177776

10¢:

11%:

MOV
MOV
MOV
MOV
MOV
sCC

177776
000010
000016

TS16A:

104000
000312

ERROR

:YES GO ON

$:YES GO ON

3C6
MMUERR
#77400,SIPDRO
0TMM16F ,8016
@1,80FLAG
01,80177572

80SAVMR2
,R1

10¢

310

MMUERR

177776

TS16:

sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
1SETUP SIPDRO TO ABORT
sSETUP VECTOR
$SETUP FLAG FOR AN ABORT
;TURN MMU ON
:SAVE OLD PC
i TEST INSTRUCTION

:DID AN ABORT OCCUR

:YES GO ON

sALL ERRORS TO TRAP TOQ EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
:IS MMR2 CORRECT
s YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
80SAVMRO, 2100041
:IS MMRO CORRECT
118

311

MMUERR

7027
as712

312

MMUERR

000124
070017

i1NO GO TO ERROR
3+IS STACK CORRECT

s1ALL ERRORS TO TRAP TO EMT VECTOR
305
sUNIQUE ERROR NUMBER
MMUERR
31ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
©700,R6
sRESTORE SUP SP
#140000,89177776
1SET PS TO USER MODE
:?.0600
+IS USER SP CORRECT

MMUERR

9s:

SEQ 0070

SUPERVISOR MODE)

307

3584
3585

017330
017334
017336
017340
017342

11:31

3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583

20-MAR-84
126

g-: 3'§§§§§ 58

KDJ11A.MAC

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

55 R

GLOBAL AREAS

TM16A

270017,30177776

:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
$ENABLE CSM
:SET PSW TO Sup

1SETUP SUP SP
:SET PSW TO USE
:SETUP USE SP
sSETUP NEW VECTOR
:SETUP NEW VECTOR
:SET ALL CC BITS
s TEST INSTRUCTION

tALL ERRORS TO TRAP TO ENMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
3GO TO ERROR IF DIDN'T TRAP
: IS PSW CORRECT

GLOBAL

AREAS
KDJ11A.MAC

20 Man 3a300¢1852) 20-MaR.g4 1:9851P88R {8aLL supervIsor MODE )

3621
017572
001403
3622
017574
104000
3623
017576
000313
3624
017600
001213
3625
3626
017602
020627
3627
017606
001403
3628
017610
104000
3629
017612
000314
3630
017614
001213
3631
3632
017616
022627
3633
017622
001403
3634
017624
104000
3635
017626
000315
3636
017630
001213
3637
3638
017632
022627
3639 017636
001403
3640
017640
104000
3641
017642
000316
3642
017644
001213
3643
3644
017646
022627
3645
017652
001403
3646
017654
104000
3647 017656
000317
3648
017660
001213
3649
3650
017662
012706
3651
017666
012737
3652
017674
020627
3653
017700
001403
3654
017702
104000
3655
017704
000320
017706
001213
017710
017714
017720
017724
017730
017734

005037
005067
005067
012637
012637
012637

BEQ
ERROR
. WORD
.WORD

000572

2008
:

201%:

017552

202%:

R6,0572

.WORD
.WORD

314

203s:

177776
157652
152572
000016
000014

000010

177776

2045

TM16A:

MMUERR

CMP
BEQ

(SP)+,aTS16A
203

(SP)+,045712

202%
315

.WORD
-WORD

MMUERR

cMP
BEQ

(SP)+,#140000
204

.WORD
.WORD

MMUERR

ERROR

000700
140000

201%

cMP
BEQ
ERROR
.WORD
.WORD

ERROR

140000

313

MMUERR

cMP
BEQ

ERROR

045712

200

MOV
MOV
cMP
BEQ
ERROR
.WORD
. WORD

CLR
CLR
CLR
MOV
MOV
MOV

316

317

SEQ 0071

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

sALL ERRORS TO TRAP TO EMT VECTOR
stUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
3+ IS STACK CORRECT
sYES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
1 IS STACK CORRECT
s YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER

; ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR

sIS STACK CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
:UNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
#700,R6
sRESTORE SUP SP
€140000,82177776
:SET PSW TO USER MODE

R6, 600
TM16A

320

MMUERR

80177776

SRO
SR3
(SP). 8016

(SP)+,a010

:IS USER SP CORRECT

:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR

;sUNIQUE ERROR NUMBER

3 ADDRESS OF ERROR MESSAGE
:NO GO TO ERROR
:SET PS TO KER MODE

s TURN OFF MMU
s TURN OFF 22 BIT ADDRESSING, I & D SPACE
+RESTORE VECTORS

20-MAR-84

30A(1052)

11:19

20-MAR-84

3668

3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721

3722
3723

IDMSG,ENDPAS
END OF PASS ROUTINE

§58000000000004000800000000000

000000000000000000000000000000

00000

s« INCREMENT THE PASS NUMBER ($PASS)

+*INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM
:#IF THERES A MONITOR GO TO IT
;+IF THERE ISN'T JUMP TO RESTART

3674
3675

3700
3701

PAGE

TEST CSM (CALL SUPERVISOR MODE)

.MCALL
.SBTTL

3669
3670
3671
3672
3673

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

126

11:31

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
020054

020062
020070
020076
020104
020112
020120
020125
020132
020140
020146

005767
001002

$EOP:

161042

104401

020046

005267
042767
005327

161030
100000

161022
SEOPCT:

003022
012737
017766
104401
016746
104405
104401
013700
001405

$SENDCT:

020125

160776

020042
000042

$GET42:

004710
000240
000240
000240

000137
002066

377
020046
005015
026513
042113
042515
046440
044504
052123
015
045504
020104
021440
020152

SENDAD:

$DOAGN:

SRTNAD:
$SENULL:

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

TST
BNE

$PASS
SKIPID

TYPE

;ONLY TYPE MESSAGE AT END OF FIRST PASS
sIF >0 THEN SKIP THE ID MESSAGE

.MSG1

INC
BIC
DEC

;ELSE

$PASS
£100000, $PASS
(PC).

.WORD

B8GT

$DOAGN

MOV

.WORD
SEOPCT
TYPE
MOV
TYPDS

TYPE

MOV

(PC)+,8(PC).
1

MSG2
$PASS, -(SP)

« SENULL

8042,R0

BEQ
RESET

$DOAGN

JSR

PC,(RO)

NOP
NOP

TYPE

THE

ID MESSAGE

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

: s YES

1 sRESTORE COUNTER

: sSAVE $PASS FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SIGN
:sGET MONITOR ADDRESS

: sBRANCH IF NO MONITOR
: :CLEAR THE WORLD

:3GO TO MONITOR

s sSAVE ROOM
:3FOR

NOP

:3ACT11

JMP

a(PC).

.WORD
.BYTE

RESTART
-1,-1,0

042113
020060
020061
054522
043501
020124
047516

MSG1:

.EVEN
-ASCIZ

045532
047105
051523

MSG2:

-ASCIZ

.EVEN
.SBTTL

TYPE ROUTINE

;s sRETURN
s sNULL CHARACTER STRING

<CR><LF>/CZKDK-B-0 KDJ11 MEMORY MANAGEMENT DIAGNOSTIC/

<CR><LF>/CZKDKB END PASS &/

5888800000050 40008004000000004400000008000000

00000000800000000004

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.

MACY11

W
m

GLOBAL AREAS
KDJ11A MAC

GLOBAL AREAS

D 200 bt

KDJ11A.MAC
3724

3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
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
3775
3776
3777
3778
3779

;#NOTE1:
;*NOTE2:

SEQ 00773

SNULL CONTAINS THE CHARACTER TO BE USED AS
THE FILLER CHARACTER,
$SFILLS CONTAINS THE NUMBER OF FILLER CHARA
CTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE3:
L

;oCALL:

:#1) USING A TRAP INSTRUCTION
TYPE
+MESADR
;«0OR

YYPE

MESADR

1 sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

105767
100002
000000
000430
010046
017600

000343

$TYPE:

1s:

122767

000002
000001

160620

132767

000100

160611

001011

001405
010067
004767
000000

001622

132767
001003
112046
001005
005726

012600
062716
000002
122716
001430
122716
001006
005726
104401
001277
105067
000755

004767
126726

001350

160567

61%:
62%:

2%:
60¢:
33:

000011

4s;

B8R

MOV
MOV

cMPB
BNE
BITB
BEQ
MOV
JSR
.WORD
BIT8
BNE
MOVB
BNE

ST
MOV
ADD
RTI
cMPB

BEQ
cMP8
B8NE
ST
TYPE
SCRLF

000200

Ss:
68:

016746
105366
002770
004767
105367
000770

TSTB

BPL
HALT

7%:

CLRB
B8R
JSR
cMPB

BNE
MOV

DECB

BLT
JSR
DECB
BR

$TPFLG

:3IS THERE A TERMINAL?
1:BR IF YES

1sHALT HERE

3 sLEAVE

IF NO TERMINAL

1 $sSAVE RO
3 sGET ADDRESS OF ASCIZ STRING
@APTENV, SENV
3 sSRUNNING IN APT MODE
624
1:NO,GO CHECK FOR APT CONSOLE
@APTSPOO
, SENVM
L : sSPOOL MESSAGE TO APT
62$
33NO,GO CHECK FOR CONSOLE
RO,61$
::SETUP MESSAGE ADDRESS FOR APT
gC.SATYS
: sSPOOL MESSAGE TO APT
s sMESSAGE ADDRESS
@APTCSUP, SENVM
: sAPT CONSOLE SUPPRESSED
60
s sYES,SKIP TYPE OUT
(RO)+,-(SP)
s 3PUSH CHARACTER TO BE TYPED ONTO STACK
44
$1:BR IF IT ISN'T THE TERMINATOR
(SP).
13IF TERMINATOR POP IT OFF THE STACK
1 sRESTORE RO
@2,(SP)
: sADJUST RETURN PC
: sRETURN
aHT ,(SP)
s 3BRANCH IF <MT>
8s
@CRLF ,(SP)
: sBRANCH IF NOT <CRLF>
82(SP),RO

Ss
(SP)e.

$CHARCNT
2s
PC,S$TYPEC
5:ILLC.(SP)0

1(SP)

6%
PC,STYPEC
$CHARCNT
74

1:POP

<CR><LF> EQUIV

::TYPE A CR AND LF

: :CLEAR CHARACTER COUNT
:3GET NEXT CHARACTER
13GO TYPE THIS CHARACTER
33IS IT TIME FOR FILLER CHARS.?
:3IF NO GO GET NEXT CHAR.
:3GET @ OF FILLER CHARS. NEEDED
:3AND THE NULL CHAR.
+:D0ES A NULL NEED TO BE TYPED?
13BR IF NO--GO POP THE NULL OFF OF STACK
:3GO TYPE A NULL
1300 NOT COUNT AS A COUNT
::LOOP

;HORIZONTAL TAB PROCESSOR
112716

8s:

MOVB

,(SP)

1 sREPLACE

TAB

WITH SPACE

GLOBAL AREAS

KDJ1.1A
MAC

3780
3781
3782
3783
3784
3785
3786
3787
3788
3789

3790
3791
3792
3793
3794
3795
3796

3797
3798
3799

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

3824

020514
020516
020517
020520
020521
020522
020523

MACY11

20-MAR-84
004767

132767
001372
005726
000724
105777
100022
017746
042716
122716
001012

105777
100375
117716

042716

122716

001366

30A(1052)

11:19

000014
000007

20-MAR-84
11:31
PAGE
TYPE ROUTINE

000124

$TYPEC:

000116
000112
177600
000023

101%:

000072

177600
000021
102%:

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

9s:

10%:
000002
000015

000042
000002

000014

000012

000002

1s:

JSR

BITB
BNE
TST
BR
TST8

BPL
MOV
BIC
cMPB
BNE
TST8

BPL
MOVB
BIC
cMPB
BNE

.SBTTL

S5EQ 0074

PC,.S$TYPEC
@7, SCHARCNT
9s

(SP).

83TKS
10$
88TKB, -(SP)

#177600,(SP)
@$XOFF ,(SP)

13 TYPE £ SPACE
1 sBRANCH IF NOT AT
;:TAB STOP
::POP SPACE OFF STACK
1 3GET NEXT CHARACTER

:3CHAR IN KYBD BUFFER?
::BR IF NOT

:3GET CHAR
: ;STRIP EXTRANEOQUS BITS
; sWAS CHAR XOFF

102

;sBR I NOT

83TKS
101$
88TKB,(SP)

:sWAIT FOR CHAR

#177600,(SP)
@$XON, (SP)

101¢

:sGET CHAR
33STRIP IT

:3WAS

XON?

::BR IF NOT

TST

(SP).

:3FIX STACK

1ST8

83TPS
10%
2(SP),asTPB

: sWAIT UNTIL PRINTER IS READY

BPL
MOVB
cMPB
BNE
CLRB
BR

cHPB8

BEQ
INCB

$CHARCNT
: . WORD
Y
$TYPEX: RTS
$TKS:
$TKB:
$TPS:
$TPB:
SNULL:
SFILLS:
SFILLC:
$TPFLG:
SQUES:
SLF:

Job

.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.BYTE
.BYTE
.ASCII
.ASCIZ
.EVEN
CONVERT

:ER.?(SP)

$CHARCNT
$TYPEX
OLF ,2(SP)
$TYPEX

(PC)»
Y

177560
177562
177564

377566

2
12

n?n

12>

BINARY

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

: sBRANCH IF NO

3 sYES--CLEAR CHARACTER COUNT
s sEXIT
:3IS CHARACTER A LINE FEED?
: :BRANCH IF YES

: sCOUNT THE CHARACTER

s ;CHARACTER COUNT STORAGE
:37TY KDB STATUS

:MJDO0O1

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

::TTY PRINTER BUFFER REG.

ADDRESS

s sCONTAINS NULL CHARACTER FOR FILLS
+ :CONTAINS @ OF FILLER CHARACTERS REQUIRED
1 sINSERT FILL CHARS. AFTER A "LINE FEED"

3 “TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES)

; sQUESTION MARK
: ;LINEFEED

TO DECIMAL AND TYPE ROUTINE

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

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

3831
3833
3834
3835

+#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
s¢SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
+*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
i *REPLACED WITH SPACES.

;eCALL:
L
MOV

13PUT

THE BINARY

NUMBER ON THE

STACK

GLOBAL

ARE AS
KDJ1.1A
MAC

3836
3837
3838
3839

3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852

3888
3889
3890
3891

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

20-MAR

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

010046
010146
010246
010346
010546
012746
016605
100004

005405
112766
005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005792
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616
000002
023420

001750
000144

000012

$TYPDS:

020200
000020

000055

000001
18:

020742
000040

2%:

020732

3s:

4%:

S$:
000001

177777

000040

68:
7%:

<6
31
PAGE 75
BINARY TO DECIMAL AND
TYPDS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOvVB

CLR
MOV
MOvVB
CLR
MOV
SuB
BLT
INC
BR
ADD
TST
BNE
TST8
BMI
ASLB

8CC
MOVB
BIS
8IS
MOvB
TST

000010

CMP
BLY
B8GT
MOV
BR

1578

177777

177776

9s:

B8PL
MOV
CLRB
MOV

MOV

020742
000002

MOV
MOV
MOV

000004

:3GO0 TO THE ROUTINE
RO, -(SP)
R3,-(SP)
RS, -(SP)
20200, -(SP)

f?(SP).RS

RS
@' -,1(SP)
RO
#$DBLK,R3
&' ,(R3).
R2
$OTBL(RO),R1
R1.RS
44
R2

R1,R5
R2

54
(SP)
78

(sP)
63

1(SP), -1(R3)

#'0,.R2
@' .R2
R2,(R3).

(RO).
RO, 210
2%

::PUSH RO ON STACK
1 :PUSH R1 ON STACK
:sPUSH R2 ON STACK
:sPUSH R3 ON STACK
:sPUSH RS ON STACK
:3SET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER
:3iBR IF INPUT IS POS.

: sMAKE
i1 sMAKE

THE BINARY NUMBER POS.
THE ASCII NUMBER NEG.

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

::FORM THIS BCD DIGIT

::BR IF DONE
: s INCREASE THE BCD DIGIT By 1

: :ADD BACK THE CONSTANT
; sCHECK IF BCD DIGIT=0
;sFALL THROUGH IF O
:sSTILL DOING LEADING 0'S?
:3BR IF YES
::BR IF NO
ssYES--SET THE SIGN
ssMAKE THE BCD DIGIT ASCII

$3MAKE

IT A SPACE

A DIGIT

THIS CHARACTER IN THE OUTPUT BUFFER

s3WAS

THE LSD THE FIRST NON-ZERO?

3 3JUST INCREMENT
ING
: sCHECK THE TABLE INDEX
::GO DO THE NEXT DIGIT
3:G0 TO EXIT
::GET THE LSD
:3G0 CHANGE TO ASCII

:3BR IF NO

:3YES--SET

:3SET
:3POP
:3POP
:sPOP
3 :POP
:sPOP
:1sNOW

THE

SIGN FOR

THE TERMINATOR
STACK INTO RS
STACK INTO R3
STACK INTO R2
STACK INTO R1
STACK INTO RO
TYPE THE NUMBER

1 sADJUST THE STACK

RTI

1sRETURN TO USER

10000.
1000.
100.
10.

IF NOT ALREADY

$3PUT

TYPE
MOV

MOV

sDTBL
:

SEQ NO7S

TYPE ROUTINE

TYPING

GL OBAL AREAS
KDJ11A, MAC
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936

3937

3938
3939
3940
3941
3942
3943
3944
3945
3946
3947

020742

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

20-MAR-84
1*:3%
PAGE 76
CONVERT
BINARY TO DECIMAL AND TYPE ROUTINE

000004

SDBLK:
.SBTTL

SEQ 0076

.BLkWw
4
BINARY TO OCTAL (ASCII) AND TYPE

$38800000000000000000400000000

008800000000000000000000000000

00004

i#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;#0CTAL (ASCII) NUMBER AND TYPE IT.

;.ézlPOS---ENTER HERE

L
is

MOV

TYPOS

.BYTE

SETUP

NUM, -(SP)

SUPPRESS

ZEROS

AND NUMBER

DIGITS

TYPEOUT

:iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

:sM=1 OR O

:31=TYPE

LEADING ZEROS

: :0=SUPPRESS LEADING ZEROS

1#3TYPON----ENTER HERE
;#8TYPOS OR $TYPOC

;+CALL:

is
T

MOV
TYPON

TYPE

NUM, -(SP)

OUT

WITH

THE

SAME PARAMETERS AS

THE LAST

: sNUMBER TO BE TYPED
::CALL FOR TYPEOUT

:AE:IPOC-—-ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER

is
s

020752
020756
020764
020770
020774
020776
021004
021012
021020
021022
021024
021026
021032
021034
021040
021044
021050
021054
021056
021060
021062
021064
021066
021070
021072
021074
021100
021102
021106
021110

017646
116667
112667
062716

112767
112767
112767
010346
010446
010546
116704
062704
110467
116704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105367
100016
042703
001002
005704

000207
000002

000001

000145

000211

000171
000165
000154

NUM, -(SP)

MOV

a8(SP), -(SP)

MOVB
MOVB
ago

3s:

; sNUMBER TO BE TYPED
;sCALL FOR TYPEOUT
: ;PICKUP THE MODE

1(SP), $OFILL
(SP)+,$OMODE+1
:%;53:)

3:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
: sADJUST RETURN ADDRESS

@1,80FILL
#6, $OMODE + 1
@5, SOCNT
R3,-(SP)
R4, -(SP)
RS, -(SP)
;?WEOI.‘“

33SET THE
:3SET FOR
:sSET THE
:sSAVE R3
:sSAVE R4
;s sSAVE RS
::GET THE

ADD
MOVB
MOVB

06 ,.R4
R4, $OMODE
$OFILL R4

:1 sSUBTRACT IT FOR MAX. ALLOWED
:3SAVE IT FOR USE
::GET THE ZERO FILL SWITCH

CLR
ROL
BR

R3
RS
3¢

MOV

28:

177770

MOV
TYPOC

$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
Q‘V;B

1$:

000076

$TYPOS:

000132
000125
000012

TYPE

: sNUMBER TO BE TYPED

::CALL FOR

12(SP),RS

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

: sPICKUP THE INPUT NUMBER

: sCLEAR THE OUTPUT WORD
: sROTATE MSB INTO "C"
;GO DO MSB

ROL
ROL
ROL
MOV
ROL
DECB
BPL

RS
RS
RS
RS,R3
R3
$OMODE
74

:3GET LSB OF THIS DIGIT
;s TYPE THIS DIGIT?
::BR IF NO

BNE
TsT

4
R4

::TEST FOR O
3 s SUPPRESS THIS 0?

BIC

#177770,R3

s :FORM THIS DIGIT

$sGET RID OF JUNK

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
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983

021112
021114
021116
021122
021126

021132
021136
021142

20 AR
Ba
MACY11

30A(1052)
11:19

20 gt Rart 18 oct

001403

4s:;

005204
052703
052703
110367
104401

105367

:3DON’'T SUPPRESS ANYMORE 0'S

S$:

BIS
MOVB

& ,R3
R3,8$

3 sMAKE ASCII IF NOT ALREADY
1:SAVE FOR TYPING

7%:

DECB

$OCNT

000002

BIS

TYPE

BGT
BLT
INC
BR
MOV

MOV
MOV

MOV

021172
021173
021174
021175
021176

::BR IF YES

68:

021156
021160
021166
021170

INC

021144

021146
021150
021152
021154

BEQ

M6
AGE 77
AL (ASCII) AND TYPE

#'0,R3
.88

: sMAKE THIS DIGIT ASCII

:1:GO TYPE

1 sCOUNT BY

THIS DIGIT

2%
6
R4
2
(SP)+,RS

:3BR IF MORE TO DO
;3sBR IF DONE
: s INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
: sRESTORE RS

(SP)+,R4
(SP)+,R3

: sRESTORE R4
: sRESTORE R3

2(SP),4a(SP)

:3SET THE STACK FOR RETURNING

8s:

MOV
RTI
.BYTE

;s sRETURN
: sSTORAGE FOR ASCII DIGIT

SOCNT:
SOFILL:
$SOMODE:

.BYTE
.BYTE
.WORD

0
0
O

:sOCTAL DIGIT COUNTER
:13sZERO FILL SWITCH
: s{NUMBER OF DIGITS TO TYPE

.SBTTL

.BYTE

(SP)+,(SP)

TTY INPUT ROUTINE

: s TERMINATOR FOR TYPE ROUTINE

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

.ENABL.

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

LSB

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

“““““‘.t&‘i‘.t‘t‘

021200
021206

021210
021214
021216
021222
021226
021232

021234
021242
021244
021250

022767
001074
105777
100071
117746
042716
022726
001062
126727
001456

021254
021260
021262
021266
021270
021272
021276

104401
104401
016746
104402
104401
005046
005046
105777
100375

021300
021304

042716

117746

000176

157640

SCKSWR:

177272

177266
177600
000007
000514

021725
021732
156716

$GTSWR:

OSWREG, SWR

:3IS THE SOFT-SWR SELECTED?

TST8
BPL
MOVB

asTKS
15%
8$TKB, -(SP)

;s sCHAR THERE?
ssIF NO, DON'T WAIT AROUND
1 3SAVE THE CHAR

7%:

15¢

; sBRANCH IF NO

BIC
cMP
BNE

@tC177,(SP)
87,(SP).
15s

::STRIP-OFF THE ASCII
::IS IT A CONTROL G?
::iNO, RETURN TO USER

BEQ

: :BRANCH IF YES

TYPE
TYPE

. $CNTLG
» SMSWR

:;ECHO THE CONTROL
-G (tG)
13 TYPE CURRENT CONTENTS

MOV

TYPOC

19%:

177204
177600

CMP

BNE

cMPB

021743

177210

+#SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
s#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
s #WHEN OPERATING IN TTY FLAG MODE.

TYPE

CLR

$AUTOB, 21

SWREG, -(SP)
« SMNEW

-(SP)

: sARE WE RUNNING IN AUTO-MODE?

1 sSAVE SWREG FOR TYPEOUT

+3G0 TYPE--OCTAL ASCIICALL DIGITS)
: sPROMPT FOR NEW SWR

: siCLEAR COUNTER

;3 THE NEW SWR

TST8B
BPL

BSTKS
7$

: :CHAR THERE?
:3IF NOT TRY AGAIN

MOVB
BIC

asTKB, -(SP)
@tC177,(SP)

::PICK UP CHAR
;s sMAKE IT 7-BIT ASCII

KDJ11A.

4035
4037
4038
4039
4040
4041
4042
4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059

M HRCTISD i g
021310
021314
021316
021322
021326

021627
001005
104401
062706
000757

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

021627
001022
005766
001403
016677
062706
104401
126727
001003
012777

9s:

cHP

BNE
20s:

10¢:

157474
000001

177106

000002

004767
021627
002420
021627
003075
0427:26
005766
001703
006316
005316
006316
005266
056616
000707
104401
000720

PAGE
78
ROUT INE

11%:
148:

15%:
16$:

000002
177776

17%:

020522

18s:
.DSABL

(SP), 025

10%

TYPE
ADD
BF

. SCNTLU
06 ,SP
193

cHP
BNE
TST
BEQ

(SP),#15
16$
4(sSP)
11$

ADD

#6,SP

MOV

2(SP),aSuR

TYPE
CMPB
BNE
MOV
RTI
JSR
cMP
BLT
cMP
BGT
BIC
ST
BEQ

960,(SP)+
2(SP)
17$

INC
BIS
BR
TYPE

2(SP)
-2(SP),(SP)
$
. SQUES

ASL
ASL
ASL

B8R

LSB

PC, $TYPEC

SEQ 0078

:3IS IT A CONTROL-U?
1 :BRANCH IF NOT

33 YES,

ECHO CONTROL-U (tu)

: : IGNORE PREVIOUS INPUT

:3LET'S TRY

::IS IT A <CR>?

; :BRANCH IF NO

:sYES, IS IT THE FIRST CHAR?
: sBRANCH IF YES

: sSAVE NEW SWR
: sCLEAR UP STACK
:sECHO <CR> AND <LF>

: sRE-ENABLE TTY KBD INTERRUPTS?

: iBRANCH IF NOT

: sRE-ENABLE TTY KBD INTERRUPTS

: sRETURN

(SP), 260

; sECHO CHAR
:sCHAR < 0?

(SP), 067

;sCHAR > 72

183

18$

(SP)
(SP)
(SP)

204

IT AGAIN

: sERANCH IF YES

: iBRANCH IF YES
: :STRIP-OFF ASCII
:3IS THIS THE FIRST CHAR
: sBRANCH IF YES
3sNO, SHIFT PRESENT
¥
CHAR OVER TO MAKE
i3
ROOM FOR NEW ONE.
;s sKEEP COUNT OF CHAR
:3:SET IN NEW CHAR
:sGET THE NEXT ONE

:sTYPE

2<CR><LF>

: sSIMULATE CONTROL
-V

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

‘..“..‘.““‘.‘ EEEE
RS S

;#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
;&CALL
:

is
H

RDCHR
RETURN HERE

i sWITH PARITY BIT STRIPPED OFF

021462
021464
021472
021476
021500
021506
021514
021522
021524

011646
016666
105777
100375
117766
042766
026627
001013
105777

000004
177010

$ROCHR:
1$:

177004
177600
000004
176756

28:

+ s INPUT A SINGLE CHARACTER FROM THE TTY
+ sCHARACTER IS ON THE STACK

MOV
MOV
TST8

BPL
MOve
BIC
cMP
BNE
TST8

(SP),-(SP)
4(SP),2(SP)
s TKS

1s
83TKB,4(SP)
@*tCc177>,4(SP)
4(SP),a23
33
s TKS

s :PUSH DOWN THE PC
: sSAVE THE PS
: sWAIT FOR

:3A CHARACTER
:sREAD THE TTY

:3GET RID OF JUNK IF ANY
3:IS IT A CONTROL -S?

; :BRANCH IF NO
; sWAIT FOR A CHARACTER

GLOBAL

ARE AS

KDJ11A .MAC

4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070

4071

4072
4073

021530
021532
021536

021542

021546
021550
021552
021560
021562
021570
021572
021600

MACY11l 30A(1052)

20-MAR-84

100375
117746
042716
022627
001366
000750
026627

002407
026627

003003
042766
000002

11:1°

20-MAR-84

000004

000140

000004

000175

000040

000004

4085

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

33%:

B8PL
MOVB
BIC
cMP
BNE
BR
cMP
BLT
cMP

B8GT
8IC
RTI

43%:

SEQ 0079

2
88TKB, -(SP)
etC177,(SP)
(SP).,a21
4 ]
1
4(SP), @140

$3LOOP UNTIL ITS THERE
131GET CHARACTER
1sMAKE IT 7.BIT ASCII
13IS IT A CONTROL -Q?
13IF NOT DISCARD IT
131 YES, RESUME
13IS IT UPPER CASE?

48
4(SP),0175
4%
040,4(5P)

31 1BRANCH IF YES
13:IS IT A SPECIAL CHAR?

1 :BRANCH IF YES
1sMAKE IT UPPER CASE
31160 BACK TO USER

000000000000000000000000000000

00000

;oézfs ROUTINE WILL INPUT A STRING FROM THE TTY

4076

4079

INPUT ROUTINE

110000000000000000000000000000

4074

4080
4081
4082
4083
4084

PAGE

TTYy

176752
177600
000021

4075
4077
4078

11:31

ROLIN

13INPUT A STRING FROM THE

RETURN HERE

1 sADDRESS OF FIRST

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

$ROLIN: MOV
18:
MOV
28:
o
BLOS
RDCHR
MOVB
108:
cMpP8
BNE
4%
TYPE
B8R
38:
MOVB
TYPE
cMPB

021710
021720

000177

020522
000044
021706
000015

BNE

177777
020523

000004
021710

005015
006507

053523
000
047040
000040

+ s TERMINATOR

R3, -(SP)
OSTTYIN,RS
OS$TTYIN.S, ,R3
4%

053505

SMNEW:

.ASCIZ

$AUTOB:
$INTAG:

.BYTE
.BYTE

0
0

000
000012

.SBTTL

ALL

8.
/tUu/ci15><12>
/7tG/<15>¢12»

€15>¢12>/SWR

WILL

1 iRETURN
13STORAGE FOR ASCII CHAR.
3 s TERMINATOR

s sRESERVE 8 BYTES FOR TTY
1 sCONTROL “U*
1 sCONTROL “G*

TO TYPE

INPUT

7
1 $AUTO MODE FLAG
s s INTERRUPT MODE FLAG

PICKUP

THE

TTy

§50000000006000000000000000000000000000000000000

14THIS ROUTINE

0'S

13CLEAR RETURN (THE 15)
1sTYPE A LINE FEED
3 sRESTORE R3
$3ADJUST THE STACK AND PUT ADDRESS OF
83
FIRST ASCII CHARACTER ON IT

O
0

TRAP DECODER

BYTE

33LOOP IF NOT RETURN

-1(R3)
« SLF
(SP)+,R3
(SP),-(SP)
4(SP),2(SP)
OSTTYIN,4(SP)

NEW »

+ sCHECK FOR RETURN

020122

000002
000004

1 :SAVE R3
13GET ADDRESS
1 sBUFFER FULL?
131BR IF YES
13G0 READ ONE CHARACTER FROM THE
1sGET CHARACTER
33IS IT A RUBOUT
$3SKIP IF NOT
13TYPE A ' 7
1sCLEAR THE BUFFER AND LOOP
1 3ECHO THE CHARACTER

(SP)+,(R3)
0177,(R3)
3
. SQUES
18
(R3),9%
.98
015,(R3).

CLRB
TYPE
MOV
MOV
MOV
MOV
RTI
9s:
.BYTE
.BYTE
STTIYIN: .BLKB
SCNTLU: .ASCIZ
SCNTLG: .ASCIZ
$MSWR:
.ASCIZ

WILL

TTy

CHARACTER WILL

THE

LOWER BYTE

s*AND- USE IT TO INDEX THROUGH THE

00460000000080000400

THE

“TRAP~

INSTRUCTION

TRAP TABLE FOR THE STARTING ADDRESS

THE

STACK

R M

2oMARNED 20 AR, BagdheqPice o0

4116

1¢0F THE DESIRED 'ltl'Oéfln(.
:¢G0 TO THAT ROU

4117
4118

4119

4120
4121
4122
4123
4124
4125

4126

021756
021760
021764
021766
021770
021772
021776

010046
016600
005740
111000

016000
000200

$TRAP:

000002

MOV

022000
022002
022010

011646
016666
000002

000004

000002

$TRAP2:

ADDRESS OBTAINED

WIii

13SAVE RO

RO
$ TRPAD(RO),RO
RO

MOV

(SP), -(SP)

MOV

4(SP),2(sP)

RTI

.MACRO
.NLIST

13GET TRAP ADDRESS
1 sBACKUP BY 2
13GET RIGHT BYTE OF TRAP
:1POSITION FOR INDEXING
13 INDEX TO TABLE

1:G0 TO ROUTINE

$sMOVE THE PC DOWN
13MOVE THE PSW DOWN

s sRESTORE

THE

PSW

SETTRAP A,B,MSG
$S$SET

A,B,\<TRAP:+$TR
,\$TRP, <MSG>
P>

$TRP=$TRP.1

.LIST
.ENDM
SETTRAP
.MACRO
$SSET
A,B,C.D,COMNT
.IF EQ $TRP-1
.SBTTL
TRAP TABLE

1#THIS

TABLE

CONTAINS

THE

STARTING ADDRESSES OF

1eBY THE “TRAP” INSTRUCTION.

4146

4147
4148
4149

THE

ROUTINES CALLED

$ TRAP2

4150
4151

.IIF NDF GNS,.NLIST

4152

4153
4154
4155
4156
4157
4158
4159
4160

.IIF NDF.GNS..LISY
L
=A
13sCAL
.ENDM
$3$SETY
.MACRO
TRMTRP

TRAP.D(C)

COMNT

$TERM=
- $ TRPAD
,

.ENDM
.SBTTL

4161
4162
4163

4171

THE

+:THIS IS USE TO HANDLE THE “GETPRI“” MACRO

4137
4138
4139
4140
4141
4142
4143
4144
4145

4164
4165
4166
4167
4168
4169
4170

THEN USING

RO, -(SP)
2(SP),.RO
-(RO)
(RO),RO

MOV
TST
MOve

ASL
MOV
RTS

022012

4127
4128
4129

4130
4131
4132
4133
4134
4135
4136

TRMTRP
TRAP TABLE

s#THIS TABLE CONTAINS THE STARTING ADDRE
SSES OF
;*BY THE “TRAP" INSTRUCTION.

022012
022014
022016
022020
022022
022024

022000
020152
020776
020752
021012
02Cs526

TRPAD:

.WORD

$TYPDS

$TRAP2

$3CALL=TYPE
3 :CALL=TYPOC
3 sCALL=TYPOS
1 sCALL=TYPON

33CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

THE ROUTINES CALLED

TTY TYPEQUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

KBTI ARETM 20"ARA'44500(1852> 20 MAR:A4, faasi PAGE 81

D7
SEQ 0081

a172

4173
4174
4175
4176
4177
4178
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

022026

021250

SGTSWR

1 1CALL =GTSWR

TRAP+6(104406)

GET

022030
022032
022034

021200
021462
021602

$CKSWR
$ROCHR
SROLIN

1 3CALL ~CKSWR
1 sCALL =RDCHR
1 sCALL=RDLIN

TRAP+7(104407)
TRAP+10(104410)
L:APtll(IOQQII)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

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

.SBTTL

112767
112767
000403
112767

105767
001450
122767
001031
132767
001425
017600
062766
005767
001375
010067
105720
001376
166700
006200
010067

012767
000413

017667
062766
016746
004767
000000

105767
001416

005767
001413
005767
001375
017667

062766

005267
105067
105067
105067
012601
012600
000207
000

3 '“..“..‘.‘.“.‘..‘.‘..‘.‘.
.‘.".

000236
000226

$ATYL:
SATYS:

000220

$ATY4:

010046
010146

APT COMMUNICATIONS ROUTI

S$ATYC:

MOvB
HOvB

MOvVB

156716
156707

000002

156646

18:

156654

28:

RO, -(SP)

BEQ
CMPB
BNE
8IT8
BEQ
MOV

ADD

TST
BNE
MOV
T1ST8

156644

156640

000002

156572
156544
000002
156522
000020
000013

OAPTSPOO
, SENVM
L

3
84(SP),RO
02,4(SP)

:?SGTYPE

113

156536
12%:

BNE
MOV
ADD
INC
CLRB
CLRB
CLRB
MOV

MOV

SMFLG:

RTS

.BYTE

ERROR

13IF NOT:

33IF NOT:

13IF NOT:

::IF NOT:

WAIT

3 1SHOULD SPOOL MESSAGES?

:3G"T MESSAGE ADDR.
1 :BUMP RETURN ADDR.
1:SEE IF DONE W/ LAST XMISSION?

$:PUT ADDR IN MAILBOX
s sFIND END OF MESSAGE

$MSGAD,RO
RO

131SUB START OF MESSAGE
$3GET MESSAGE LNGTH IN WORDS
$3PUT LENGTH IN MAILBOX
33TELL APT TO TAKE MSG.

177776, -(SP)
:C.OTVPE
TST8
BEQ
TST
BEQ
TST

3370 ONLY REPORT FATAL

RO, $MSGAD
(RO).

02,4(SP)

Ss:
10¢:

A MESSAGE

1 sOPERATING UNDER APT?

43:

TYPE

OAPTENV, SENV

34(SP) .48

155570
175740

1170

$MFLG

;‘.‘HSGTVPE

3s:

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

1170 REPORT FATAL ERROR

13PUSH RO ON STACK
13PUSH R1 ON STACK
3 3SHOULD TYPE A MESSAGE?

RO, $MSGLGT

156614
000016

01,8FFLG
01,8MFLG
SATYC
01,$FFLG

MOV
MOV

TST8

000100

SOFT-SWR SETTING

$FFLG
12
SENV
128

$SMSGTYPE
118
84(SP), SFATAL
02,4(SP)
SMSGTYPE

$FFLG
SLFLG
SMFLG
(SP)+,R1

(SP)+,RO

PC
(4]

$1PUT MSG ADDR IN JSR LINKAGE
:;BUMP RETURN ADDRESS
13PUSH 177776 ON STACK
3 :CALL TYPE MACRO
1 $SHOULD REPORT FATAL ERROR?

s3IF NOT:

$ tIRUNNING UNDER APT?
t13IF NOT:
BR
3 stFINISHED LAST MESSAGE?

$3IF NOT:
WMWAIT
13:GET ERROR ¢

: :1BUMP RETURN ADDR.

:13TELL APT TO TAKE ERROR

31 3CLEAR FATAL FLAG
13CLEAR LOG FLAG
1 sCLEAR MESSAGE FLAG
331POP STACK INTO R1

3 sPOP STACK

INTO RO

1 sRETURN
1 sMESSG. FLAG

GLOBAL

AREAS

30A(1052)

11:19

KDJ1:A .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

20-MAR-84

022301
022302

1:31

PAGE 82

APT C&N.NICATI(.NS ROUT INE
SLFLG:
$FFLG:

.BYTE

.EVEN

e
SEQ

0
0

13L0G FLAG

13FATAL

FLAG

APTSIZE =200
APTENV=001
APTSPOOL =100
APTCSUP=040

130080000000000000000400000000000000

s THIS ROUTINE WILL

INCREMENT

0000000000000000000000800480080400

THE ERROR COUNT AND

THEN PASS

THE UNIQUE

+ERROR NUMBER TO THE APT ERROR ROUTINE TO BE REPORT
ED TO THE APT SYSTEM,
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

000106

001064

000000
000072
000002
000000

000066
022372

100$:
102$:

000002
001246
000030

cHP
BHI
MOV
MOV
MOV
BR

MOV

MOV
ADD
MOV

TYPE

.WORD
ADD

156366

ERRCNT
i%P).

21002

@7777,

(SP).,&80SAVSP1
g%P)o.BOSAVSPZ
a(sP),
3s
(SP),1018

02,

(spP)

a(SP),801028

MOV

+ERR2
1018, -(SP)

TYPOC

177414

101§:
Z
$PATCH: :
.BLKW
.END

;ELSE
sREPORT UNIQUE ERROR NUMBER TO APT

$SAVE ERROR PC

$GET OVER UNIQUE ERROR NUMBER FOR RETURN

;GET OVER ERROR MESSAGE
:

1PUSH UNIQUE ERROR NUMBER ON THE STACK

OAPTENV, SENV
Ss

#C.

s INCREMENT ERROR FLAG
sOON'T LET IT GO TO ZERO
s INCREMENT THE ERROR COUNT
+IS ERROR FROM VECTOR AREA
1 IF YES THEN
sREPORT AN UNEXPECTED TRAP
$SAVE UNEXPECTED TRAP DATA
1AND RESTORE SP

s TYPE ERROR MESSAGE

MOV

TYPOC
TYPE

000026

$SERFLG
$ERROR

0
@2,(SP)
+ERR1
3%,-(sSP)

TYPE

001262

000001

1s:

INC
BEQ
INC

$ATY4

sTYPE OCTAL ERROR NUMBER
H

:PUSH ERROR PC ON THE STACK

sTYPE

THE ERROR PC

sCHECK TO MAKE SURE WE'RE IN APT MODE
sIF YES THEN
:GO REPORT ERROR TO APT
:STORAGE FOR ERROR NUMBER
:LOOP HERE AFTER REPORTING ERROR TO APT

:IF NOT APT THEN HALT
sALLOW RECOVERY FROM HALT

0082

GLOBAL

AREAS

KDJ1.1A
MAC

ABASE = 000000
ABORTO
012214
ABORT1
012402
ACOW1 = 000000
ACOW2 = 000000
ACPUOP
= 000000
ADDTRP
001454
ADDWO =

ADDW1 =
ADOW10=

ADOW11
=

ADDW12=
ADOW13=

AENV

AENVM =

AFATAL
=

ALLCTR

AMADR1
=

AMADR2
=
AMADR3
=
AMADR4
=
AMAM1S
=
AMAMS2
=
AMAMS3
=
AMAMS4
=
AMSGAD
=
AMSGLG=
AMSGTY
=
AMTYPL=
AMTYP2
=
AMTYP3=
AMTYP4
=
APASS =
APRIOR=
APTCSU=
APTENV
=
APTSIZ=
APTSPQO=
ASWREG
=
ATESTN=

AUNIT =
AUSWR =

AVECT1=
AVECT2=

MACY11l 30A(1 052)
20-MAR-84 11:1 9

576

2383

2394
576
576
576

7360

576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
618¢
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
576
3749
3742
801
3744
4950
576
576
576
576
576

20-MAR -84

CROSSl&égéREEESEYggLE -- USER SYMBOLS

25092
25710
591
840

869

587
579

585
578

581
42340
4190
4231¢
4192
576

580
583
590

423206
42330

589

4261

SEQ 0083

GLOBAL AREAS
KDJ1.1A
MAC

BEVENT= 177546
BITO
= 000001
BITO0 = 000001

BITO1 = 000002
BIT02 = 000004
BITO3 = 000010

BITO4 = 000020
BITOS = 000040

BITO6 = 000100
BITO7 = 000200

BITO8 = 000400
BIT09 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
B8IT14 = 040000
BIT15 = 100000
BIT2
= 000004
BIT3
= 000010
BIT4
= 000020
BITS
= 000040
BIT6é
= 000100
BIT7
= 000200

= 001000

20 -MAR -

30A

115%852)
308¢
298¢
297¢
29640
295¢
2944
2930
292¢
291¢
2902
2894
307
288¢
287¢
2864
285%
2844
2834
306¢
305¢
3040
3032
302¢
3014
3004
299¢

012144
012334
000001
000014
000001

2382
2393

CCR
=
CKSWR =
COUNT
CPEREG=
CPUTST=
CR
=
CRLF
=

177746
104407
001040
177766
000001
000015
000200

4814
41750

DCOUNT 001054
DDISP = 177570

DISPLA
001050
DISPRE
000174
DSWR
= 177570

EMTVEC= 000030

ERRCNT

001044

ERRMSG
001166
ERRNUM= 000321

3 31

CR0551Aé

PAGE 85
FERENCE TABLE

G7
--

USER

SYMBOLS

5EG 0084

4870

BNO
BN1
BOARDT=
BPTVEC=
CACHET=

DATRAM= 000001

20-MAR-84

14
315¢
10
3666
6102
4844
10
2230
2244
18
6170
230¢
61406
S524¢
2290
318¢
612%
6590

494¢
942

10244
1091
1145¢
1217

13134

308
307
306
305
304
303
302
301
300
299

24890
2404
538

3304

3009
3311

3025

2970

2552¢
637

668

185
3718

188
3970
822+

206

538

623

640

653

659

668

765

836+
195
653
3759
810

861+
538
659
3817

3085«
634
663

3305+
663
668

3311
824
670

3327s
3706
673

3706

3714

3805

3817

614

782
790+

613

781
771«

8520

897
9730
1058
1111¢
1184
12450
1330

9000
983
10610

903
9860
1065
1118¢
1192
12540
1338

906@

913
9992
1076
1128¢
1200

766+

7824
790

770+
42414

743
9450
1032
10944
1149
12200
1316

7460

957
1035¢
1098
115260
1225
13190

849
960¢
1044
1101¢
1157
1228¢
1324

970

10476
1108
11602
1242
13274

1115
11872
1251
13330

10680
1125
1195¢
1296
13410

12992
1344

916

10C9
10792
1132
12032
1302

13472

809

810

926
10122
1083
11352
1208
1305¢
1353

1021
10862
1142
12112
1310
13502

9292

GLOBAL AREAS
KDJ11A.MAC

ERRTN =
ERRVEC=
ERR1
ERR2
EXPDAT
FLAG

MACY11

20-MAR-84

30A(1052)

11:19

1359
1435¢
1483
1554¢
1621
16670
1736
1779¢
1831
1875¢
1924
19964
2068
2115¢
2165
22789
2352
2453¢
2811
3021¢
3186
3431¢
3516
35594
3614
3657¢
492¢

001246
001262
001034
001042

311
668¢
670¢
6080
6110
2192+

001110
FLOAT
001100
FPPTST= 000001
FPVEC = 000244
GNS
TM V)
= YTy
GTSWR = 104406
HITMIS= 177752
HT
= 000011
HYBRID= 000001
IOTVEC= 000020
KDPARO= 172360
KDPAR1
= 172362
KDPAR2= 172364
KDPAR3= 172366
KDPAR4
= 172370
KDPARS
= 172372
KDPARG
= 172374
KDPAR7= 172376
KDPDRO
= 172320
KDPDR1
= 172322

11:31

PAGE 86

CROSS REFERENCE TABLE

1362¢
1440
1486¢
1557
16244
1671
1739¢
1787
18340
1878
1947¢
1999
2071¢
2118
2168¢
2288
2355¢
2660
28140
3033
31908
3457
3519¢

1367
14430
1489
1560¢
1627
16740
1744
1790¢
1837
1881¢
1955
2002¢
2075
21210
2172
2291¢
2359
26638
2817
3036¢
3313
3460¢
3524

3565¢
3622

3568
3625¢

779
4255
4258

780+

791

3562
3618¢

741

762+

13700
1446
1492¢
1563
1630¢
1677
17470
1794
18402
1910
1958¢
2006
2078¢
2125
2175¢
2295
23620
2666
2820¢
3044
33160
3465
3528¢

838«

1373
14490
1508
1566¢
1634
1680¢
1751
17970
1844
19132
1962
20090
2081
21280
2178
22980
2424
26699
2823
30470
3318
34689
3532

35712
3628

863s

H /7
SEQ 008S

-- USER SYMBOLS
13760
1454

1511¢
1569
16370
1686
1754¢
1800
18470
1918
1965¢
2015
208440
2136
2181¢
2301
2427¢
2672
28260
3055
33210
3473
3535¢
3576
36310

1412

1457¢
1517
15720
1640
1689¢
1757
18030
1850
19210
1968
20180
2087
21390
2256
23044
2431
26750
2861
30584
3323
34760
3538
35794
3634

1415
1460
15200
1600
16430
1693
17600
1807
18530
1925
1971¢
2022
20900
2143
2259¢
2333
24344
2678
28644

1418
14630
1526
16030
1651
16960
1763
1810¢
1859
19280
1975
20250

14210
1469
1529¢
1608
16540
1699
17660
1813
18620
1931
19780
2028
2097¢
2149
22668
2340
24410

2725
28864
3118
33942
3496
3547
3594
36430

1426
14720
1535
16110
1658
1702¢
1770
18166
1866
19342
1986
2031¢
2105
21520
2269
23434
2844
27280
3002
3121
3412
34992
3550
35972
3646

2108¢
2156
22724
2340
24472
2737
30054
3181
34152
3506
3553¢
3600
3649¢

1719
2415«
2731
3338+

1892s
2422
2735
3445+

33264
3485
35410
3588
3637¢

21460
2263
23360
2438
26814
2883
3069¢
3391
34892
3544
35914
3640

1503+
2326+
2695
2809

1547
2330
2720+
2841«

1581+
237Ss
2723
3103«
1121

2218+
2599+
2763«

2230+
2607«
27708

2250«
2620+
2777«

2254
2631s
2784+

1172»
2286
2644+
2791«

893«
880
185

894
885
195

934
935
206

978
948
538

991
963
632

1004
1051
640

1017
1071
641

1052
1104
668

817

4167
41730

4168

4169

4170

4171

4173

4175

4176

4177

2216
1¢
3160

3757
500
805+

3815
635
806+

809

3678

3694

3706

3719

3970

4178

2454+

FLO

20-MAR-84

2752+
3586
6300
6290
1¢
4780

523

4830

4590
4600
4610
4620
4630
46440
4650
4660
4370
4388

1265
2315«

2658

27982

765

1429¢
1475
1538¢
1615
16610

1705
1773¢
1824
1869¢
1937
1989¢

3706

1432
14784
1551
1618%
1664
1708¢

1776
1827¢
1872
1940¢
1993
20630
2112
21592
2275
23498
2450
27408
3018
31842
3428
3509¢
3556
36032
3654

2042+«

2429

2741+«

3582+

3718

GLOBAL AREAS
KDJ11A.MAC

20 min 84°9118%2 20-MAR R8s AéPlaeRlBT
BEe

KDPDR2
=
KDPDR3
=
KDPDR4
=
KDPDRS
=
KDPDR6
=
KDPDR7
=
KIPARO=
KIPAR]
=
KIPAR?
=
KIPAR3=
KIPARS
=
KIPARS
=
KIPARG
=
KIPAR7
=
KIPDRO=

172324
172326
172330
172332
172334
172336
172340
172342
172344
172346
172350
172352
172354
172356
172300
KIPDR1
= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4
= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316
LF
. 000012
LOOPIN
001060

MMUERR

4500

451¢
452¢
453¢
4548
4554
4260
4274
4284
4294
4300
4310

2220
619¢
2592
2688
2745
2832

3028+

3039«

3050+

3061+

3092«

3301«

659

663

668

670

673

3706

3714

3809

3817

2138
3339
915

2216
3447
928
1085
1210

2321

2380

2603

2615

944
1093
1219

959
1100
1227
1369
1491
1629
1746
1839

972

985
1117
1253
1414
1519
1642
1759
1852
1970
2089
2258
2433
2863
3325
3540

3091«

2452

3020
3430
3558
3656

653

3076

3331
3438
1574
1712
1885
2035
695¢
2716
6630
1023
1144
1312
1434
1666
1778
1874
1995
2114
2277

sessss

3010+

4320

001213

001460

2992+

4330

1553

MMUTRP
MMUTST=

USER SYMBOLS

4390
4400
4410
4420
4430
44490
4480
4490

cCccccccececee

MMTS10= sssses
MMT511= ssnsss
MMTS12= LYYYYYS
MMTS13= LYYYYYS
MMTS14= LYYYYY
MMTS15= CTYY YT
MMTS16= FYYYYYY
MMTS6A= FYYYYYS
MMTS6B
= FYYYYYS
MMTS6C
= LYYYYYY
MMTS6D
= ssssss
MMU
001306

7418

1589
2754
745

1034
1151
1318

1442

1559
1673
1789
1880
2001
2120
2290
2662
3035
3459
3564
808
195

1078

1346
1471
1610
1701
1815
1933

1355
1477
1617
1707
1826
1939

2151
2342
2727
3120

2158
2348
2739
3183

3596
663

1361
1485
1623
1738
1833

1946
2070
2167

1957

2077

1110
1244
1375

1510
1636

1753

1846
1964
2083
2180

3602

2354
2813
3189
3518
3617

2174
2361
2819
3315
3527
3624

2426
2825
3320
3534
3630

668

689

808

809

2628
1127
1298
1420
1528
1653
1765
1861

1977

3636

2265
2440
2885
3393
3546
3642

810

824

2642

1011

1134

1304

1428

1537
1660
1772
1868
1988
2107
2271
2446
3004
3414
3552
3648

GLOBAL ARE AS

MACY11l

30A(1052)

KDJ11A.MAC = 20-MAR-84 11:19
MMUTS1*

essese U

MMUTS2= essess U
MMUTS3= ssssse U
MMUTS4+: ssssss U
MMUTSS= sssses U

MMUTSE=
MMUTS7=

sssess
sessse U

MMUTS8= ssssse U
MMUTSO= ssssse U
MMVEC = 000250

MODE 1

014334

MODE2

MSER

MSG1
MSG2

015770
177744

NXMFIN

830

1540
2185

2308
2368
327¢

2852
3130

482¢

001542

751

3308

808+

29452
32470

37060
37140
757¢

3322

3088
3290

3198¢

OKAY7

011144

2268

22738

OxA?
oK1

011126
001546

2262
756

001520

OKAY7A

011160

750

2274

2279¢

22679
758¢

011104
001124

2255
653

22608
809

PARAD1

014164

2845

2893¢

PARRAM=
PARVAL
PARVA2
PARVA3Z

000001
014216
015704
016022

10
2846
3125
3108

29064
3221¢
3132

001430

PARAD2

PAR1
PDR

PDR1

PHY1

PIRQ

PS
PSu

001432
C01406

001410

014302

3126

727¢
699

7180

701

704

730
703

721

32600

706

29329

000240
012072
012264
000000

3220
2381
2392
2450

24680
2403

25320

= 177776
= 177776

2250
2260

226

3306¢

1¢
489¢

633

3667

=
=
=
=
=
=
=

PWRVEC=

177772

000040
000100
000140
000200
000240
000300
000340

000024

QBUSEX= 000001
RBUF
= 177562

2289

246¢
247¢
2488
2490
2500
251¢
2520
3170

705

3208¢

2850

PIRQVE=
PLFO
PLF1
PRO
=

PR1
PR2
PR3
PR4
PRS
PR6
PR7

015652

700

33260

7528

o7
OPMSG2

PAR

CROSS ‘REFERENCE TRBLE -- USER SYMBOLS

NXMTRP
015620
NXMTST= ssssse U

PAGE 88

855
1165
1258
1496

3680
3690

016232

11:31

3970

020046
020125

MXVDEL= 000001

NOTOK

20-MAR -84

717¢

707

708

7264

%e oo

GLOBAL AREAS

KDJ11A.MAC

RCSR

177560
104410
104411
RECDAT
001036
RESTAR
002066
RESVEC= 000010
SAVMRO
001072
RDCHR =
ROLIN =

SAVMR1

001074

SAVMR2

001076

SAVSP1
SAVSP2
SAVSUP
SAVUSE
SDPARO=
SOPAR1=
SDPAR2=

SDPAR3=
SDPAR4=
SDPARS
=
SDPARG
=

001062
001064
001066
001070

172260
172262
172264
172266
172270
172272
172274
172276
172220
172222
172224
172226
172230
172232
172234
172236

SDPAR7=
SDPDRO
=
SDPDR1=
SDPDR2
=
SOPDR3
=
SDPDR4
=
SDPDRS
=
SDPDR6
=
SDPDR7=
SHMOO = 000001
SIPARQ
- 172240
SIPAR]= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPAR4= 172250
SIPARS
= 172252
SIPAR6
= 172254
SIPAR7= 172256
SIPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDR6
= 172214
SIPDR7- 172216
SKIPID 017752
SLOCoO 001030

SLOCO1
001032
SRO
= 177572
SR1

177574

ACY11 30A(1052)
20
- MAR-84
11:19
4880
4083
41776
6090

821¢
3120
6260
24354
6270
2670
628¢
2684+
6200
6210
6240
6250

20-MAR -84
11: 31
PAGE 89
CROSS RE FERENCE TABLE

I<
7
--

SEQ

USER SYMBOLS

0088

41760

3703
758+

2195s

2261
2682+
2280+

2279
3598
2299

2293

2318s

2336+

2337

23764

2319«

2343

2377«

2422

2456+

2601+

2821

2260+
2664
2267
2827+
2273

2292+

2196+
2753s
2197+
2828+

2226+
2600+
2227+
2815
2228+
3592

2281+

2320+

2349

2378+

2448

2457«

2602+

2676

1587+
1584+

1613
1606

1723«
1721«

1749
1742

1896+
1894+

1923
1916

2046+
2044+

2073
2066

565

3706

382¢
3830
3840
385¢
3860
387¢
388¢
389¢

3580+

415¢

2436

759+
26832

760+

4245+
42464

2455+

4160
4170
4180
4192
4200
4214
4224

3930
394¢
395¢
396¢
397¢
398¢
3992

4009

4049
405¢
4064
407¢
4084
4090
4100
4110

3679
6044
3302+
605
3310
3097
3320

36810
2765

2772+

2779+

2786+

2793«

2800+

2821

2987

3073

3086+

3100

3200

1504

3074
1513

3087«
1522
3326+

3101
1531
3659«

3201
2993

3016+

3032«

3043«

3054+

3065+

3070+

3084,

3328
2988+

3198+

3304+

GLOBAL

AREAS

KDJL11
. MAC
A

SR
SR3

=
=

177576
172516

STACK = 001000
START
001604
STBOT = 001000
STKLMT= 177774

SWR
SWREG

SWO
SKOO
SWO1
SWo02
SWO3
SWO4
SWO5
SWOé6
SWO7
SW08
SW09
SW1
SW10
SW1l
SWi2
SW13
SW14
SW15
SW2

SW3

SW4
SWS
SW6
SW7
SW8

SW9

001046
000176

= 000001
= 000001
= 000002
+ 000004
= 000010
= 000020
= 000040
= 000100
= 0C0200
= 000400
= 001000
= 000002
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
= 000004

= 000010

=
=
=
=
=

000020
000040
000100
000200
000400

= 001000

TAGRAM= 000001
TBITVE= 000014
TKVEC = 000060

TMM16A

017214

TMM168
017054
TMM16C
017110
TMM16D
017144
TMM16E
017200
TMM16F
017202
TM16A
017710
TPVEC = 000064
TRAPVE= 000034

TRTVEC=
TSMA
TSMB
TSMC
TSMMUL
TSMMU2
TSMMU3
TSMMU4
TSMMUS

TSMMUE

000014
011214
011240
011254
002100
002174
003550
004114
005210
005366

20 MR 840141952 eo'mé%sslfié?énezc?tz&e -- USER SYMBOLS
3330
3340
2160

2991+
768

3009«

4990

1583

1586

521

2270
613¢
S525¢
2800
2700
2690
268¢
267¢
2669
2650
2644
2638
262¢
261¢
279¢
2600

259¢
2584
257¢
2564
255¢
2784
2774
2769
275¢
274%
2738
2726
271¢

10
313¢
3200
3455
3453
3461
3469
3446
3524¢
3490
3210
319¢
3140
2287
2294
2300
830¢
855¢
1165¢
12584
14964
15404

527

781+
789

3025+

3096+

3005

3072

783

789+

815

3980

3542

3548

3619

3653

803+
3993

810

772+

2292¢
2305¢

3660«

765&

280
279
278
277
276
275
274
273
272
271

3530¢
34930
3503¢
3513¢
3523¢
3581
3529

SEQ 0089

773+

36584

815

2970

3980

4017+

6T
1A
MAENS zomtbsg‘x“ {852 20'""“683551&&?&5&?12&_5 -- USER SYMBOLS

TSM16B
TSM16C
TSM16D
TSM7
TSM9
TSTLOC
TST1
TST10
TST1i
TST12
TST13
TST14
TST1S
TST16
TST17
TST2

TST20

TST21
TST122
TST23
TST24
TST25
TST26
TST3
TST4
TSTS
TST6
TST7
1510
TS11
TS12
1514
TS15
TS16
TS16A
TS1822

010572
011256
011522
012450
013064
013336
013742
015064
016250
016610
005520
006262
007152
007762
016714
016746
016776
017042
011176
011662
001120
002100
006262
007152
007762
010572
011256
011522
012450
013064
002174
013336
013742
014366
015064
016106
016250
016610
003550
004114
005210

013660
015500
016420
017564
017552
014366
TS7
011046
TS7FIN
011256
TSOFIN
012450
TYPDS = 104405
TYPE
= 104401

21854
2308¢
23680
25920
2688¢
27450
28324
30760
33310
34384
1574¢
1712¢
1885¢
2035
3461
34699
34770
3485¢
2222
2385
639¢
8340
17166
1889¢
20394
21894
23124
23720
25964
26924
8594
2749¢
28384

3502
3512
3522
3560
2234
2395

2286¢
2413¢

2705
2774
3156
3350

2636
2710
2781
31674
3359

SEQ 0090

2463

2650
27164
2788

26580
2795

2802

2809¢

3762

3884

3953

33844

3638
2209
2307#
25914

41714

22500

3690

3693

3991

3992

3995

4008

4019

4038

GLOBAL AREAS

KDJ11A.MAC

TYPOC = 104402
TYPON = 104404
TYPOS = 104403
T10F IM
013064

T11FIN

T12FIN
T13FIN
T14
T14FIN
T1S
T15A
T15FIN

013336
013742
014366
015524
016106
016474
016556
016610

UDPARO= 177660
UDPAR1
= 177662
UDPAR2= 177664
UDPAR3= 177666
UDPAR4
= 177670
UDPARS
= 177672
UDPAR6
= 177674
UDPAR7= 177676
UDPDRO= 177620
UDPDR1
= 177622
UDPDR2= 177624
UDPDR3= 177626
UDPDR4
= 177630
UDPDRS
= 177632
UDPDR6
= 177634
UDPDR7= 177636
UIPARO= 177640
VIPAR]L= 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
UVIPDR7= 177616
VIR1
014250
VIR2
015736
VIR3

XBUF

016054

= 177566
XCSR
= 177564
$APTHD
000204
$ASTAT=
$ATYC
$ATY1
SATY3
$ATY4

022062
022036
022044
022054

MACY11

20-MAR-84

30A(1052)

11:19

4087
3394
41700

20-MAR-84

11:31

PAGE 92

CROSS REFERENCE TABLE

4090
41680

4257

4094

4167¢
4260

26874
27444
28314
2959%
3172¢
3161
3353
3371

3199
3362
3375

3289¢
34034
34244

1594+

1904+

4169¢

2653
2712
2805
2889
3152
2974
3345
3367
3379
3710
3728
3734
3740
3756
3764
3770
3784
3494
3500
351¢
352#
3530
3544
3554
3564
360
3614

362¢
3634
3640
365¢
3660
3674
3384
3394
3400
34146
3420
3430
3442
3454
2851
3131
3109
4916
4904

547

4212
4183
41814
3747
41842

3436%

1730

2919¢
32349
3133
5534

4227
4185¢

41824
4263

32730

4252

N7
-- USER SYMBOLS
4255

4258

SEQ 0091

GLOBAL AREAS

KDJ11A.MAC

MACY11l

20-MAR-84

SAUTO8
021754
$CHARC
020502
$CKSWR
021200
$CMTAG= 00800 v
SCNTLG
021725
SCNTLY
021720
sCPLUOP
001026
$CRLF
001277
$DBLK
020742
SDEVCT
001010
$DOAGN
020036
$DTBL
020732
$ENDAD
020026
SENDCT
017774
SENULL
020042
SENV
001020
SENVM
001021
SEOP
017740
SEOPCT
017766
SERFLG
001052
SERROR
022304
SETABL
001020
SETEND
001030
SFATAL
001002
$FFLG
022302
SFILLC
020520
SFILLS
020517
SGET42
020016
$GTSWR
021250
$HD
» 000003
$HIBTS
000204
$INTAG
021755
SLF
020523
SLFLG
022301
SMAIL
001000
$MBADR
000206
SMFLG
022300
$MNE
W
021743

$MSGAD
$MSGLG
SMSGTY

001014

001016

001000
021732
SNULL
020516
SNWTST= 000001

768
3991
4008

5910
6730

3988
3774«
4175

41090

774
41040
41030

776

3763
3884

3824
38920

3695
38880
36970
36880
37040
813
801

37010

3685¢
776+

805

598¢
4218

4184+«

38210

41100
4094
42280

38120

4019

4103

4190

4214
4192

3749

7092

4261

3689

4239
42390

4240

4212

4221+

42290

813

4103

559

577

793

4188
4107¢
4198«

4223

4227¢

4177
U

3742
3744

3807«

SEQ

USER SYMBOLS

205

4038
4176

db8800

3781

4173

774+«

021602
000010

819«
37644
39800

11:31
PAGE 93
CROSS REFERENCE TABLE

3819¢
856¢
2689¢
3954+
3924

021174
021176
001006
000212
022452
020522
021462
sssses

11:19

20-MAR-84

4203
4196
41050

SMSWR

SOCNT
$OMODE
$PASS
SPASTM
$PATCH
SQUES
$ROCHR
$RDDEC
=
$RDL IN
$RDOCT
=
$RDSZ -

30A(1052)

3742

4201
4204+

4216

42200

11660
27460
3967¢
3929
800s

12590
28330

14970
2835

29616

3932«
3678

3943,
3682+

3683¢

4087

4103

15410

39690

157S5¢

1713%¢

2963

30770

3691

3704

18860
3079

20360
32902

21860
3292

230920
33320

23692
34392

GLOBAL

ARE AS

KDJ11A.MAC

MACY11

20-MAR-84

$RTNAD
020040
SR2A
= ey U
$SAVRE
- ssssse v
$SETUP
= 000126
$STUP » 1777727
$SVPC = 000204
SSWR
= 160000
$ SWREG
$TESTN

$TKB
$TKS
$TN

001022
001004
020510
020506
. 000027

$TPB
$TPFLG
$TPS
$ TRAP
$TRAP2
$TRP
=
$ TRPAD
$TSTM
$TSTNU=
$STTIYIN
$TYPBN=
$TYPDS
$TYPE

020514
020521
020512
021756
022000
000012
022012
000210
000001
021710
sssess

020526
020152
$TYPEC
020364
$TYPEX
020504
$TYPOC
020776
$TYPON
021012
$TYPOS
020752
SUNIT
001012
SUNITM
000214
SUSWR
001024
S$XOFF = 000023
$XON
= 000021
$SGET4= 000000
SOFILL
021175
$40CAT
000000
022472

. $ASTA=

.8X

000204

30A(1052)

11:19

20 -MAR -84

PAGE 94
11:31
CROSS REFERENCE TABLE

C8
SEQ

-- USER SYMBOLS

0097

37030

4178
4178

S00¢
S00¢
532¢
204
2191
3682
5890
S80¢

2313e

3788
3786
2040

1575
23740
3290
3804+
3736

3802

772
41300
41590
4124

5560

769

537
205¢
2314
3696
803
821e
2373

770

772

774

776

777

810

3682

3975

4109

777

836

861
2694

1171
2751

1264
2840

1502
2970

1546
3084

3300

1580

1718
3337

1891
3444

2041
3674

1170e
2750

2839«

1501

1545
2972

1579«
3083+

1717«
3299+

3336«

1890+

2040+
3443,

2190e

2833

4059
12640
2186
28400

1497
21910
2961

1502¢
2309
29700

1541
23140
3077

15460
2369
30842

2374
3702

3704

835
2597+
38160
3815¢
8360
1713
25980
3332

860+
2693e
3973
3973
856
17180
2689
33370

26940
3439

3998
1166
1891¢
2746
34440

41690

41709

41710

41726

4173

41740

4175

41760

41770

4178¢

4081

4098

41020

4171
4159
3773

4167
3780

4209

5350
6750
3824

5370
3704
38250

543
37050
3892¢

5440
37180
3973

5460
3815

54890
3816

5609
3817

3795
3793

831
1580¢
2593
33000
3818¢
3822¢
3817¢

41192
4166
41680
41660

3982
8610

1263+

4001

2969«

4055

4022+«
1171¢
2036
27510

4061
4053

1259

204140

4930

3810

4168

3925¢

4169

3813¢

37852

4024

4170

3817

3923s

3933

39680

519
5660
3820

S23¢
6290
3821

532
6300
3822

560

565

42300
4185

548

42700

5330
6400
3823

41020

4103

4109

S561@
3818

4110

Kb
ADOPMS
B8GNMOD
BGNSUB

BGNTST

CkLOOP
COMMEN

DEFPRG

ENDCOM
ENDMOD
ENDPAS
ENDSUB
ENDTST
ERRDEF
ERRDF

ERROR

ESCAPE
FRONT
FRONT1
GETPRI
GETSWR
IDMSG
MMMS13
MMMS14

MULT
NEMWTST
NXMMS

AREAS ooMARAALSPN(1852) 20 MAR'CRB
AePereRBEE1RB
sse
29608
1892
190¢
189¢
2692

189¢

D8
MACRO NAMES

SEGQ 0094

2963
823

834
2749

859
2838

1169
2968

1262
3082

1500
3298

1544
3335

3442

1578

1716

1889

2039

2189

2312

2372

2596

1538
3329

1572
3378

1710
3664

1883

2033

2183

2245

2367

2408

2652

913

926

970

983
1132
1316
1454
1608
1736
1844
1975
2112
2295
2678
3181
3524

1009
1149
1330
1469
1621
1751
1859
1993
2125
2333
2737
3313
3538

1032
1184
1344
1483
1634
1763
1872

3230
10

3230
189¢
3668¢
190¢
189¢
2711
188¢
189¢
1044
1192
1353
1489
1640
1770
1878
2015

2149
2352
2823
3391
3556
2176
1044
1192
1353
1489
1640
1770
1878
2015
2149
2352
2823
3391
3556
3230
10
10
3230
3230
36680
2832¢
30768
3230
188¢
2592
32900
3230

3690

853
2804
743

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

1164
2887

849

1065

1091
1242
1418
1551
1677
1807
1937
2075
2256
2444
3033
3473
3594
913
1091
1242
1418
1551
1677
1807

1367
1517
1658
1787
1918
2028
2165
2424
2883
3428
3568
849
1065
1208
1367
1517
1658
1787
1918
2028
2165
2424
2883
3428
3568

1251

1426

1557
1813
1944

942

1108
1296
1432

1563

1693
1824
1955
2087
2269
2660
3055
3496
3614
942

1108
1296
1432

1563
1693
1824
1955
2087

1937
2256
2444
3033
3473
3594

957

1115
1302
1440

1569

1699
1831
1962
2094
2275
2666
3066
3506
3622
957

1115
1302
1440

1569
1699
1831
1962
2094

2269
2660
3055
3496
3615

2275
2666
3066
3506
3622

1540
3331

1574
3438

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
3525
3634

1142
1324
1460
1615
1744
1850
1986
2118
2301
2725
3187
3532
3640

1009
1149
1330
1469
1621
1751
1859
1993
2125
2333
2737
3313
3538
3646

1021
1157
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

1712

1885

2035

2185

2308

1125
1310
1446
1600
1705
1837
1968
2105
2288
2672
3118
3516
3628
970

3634

1142
1324
1460
1615
1744

1850

1986
2118

2301
2725
3186
3532
3640

3646

1850
810
3678
2835
3079

3230
2688
3292
3879

830
2745

855
2832

4224

4225

1165
2960

1258
3076

1496
3290

2143
2346
2817
3323
3550

1032
1184
1344
1483
1634
1763
1872
2006

2143

2346
2817
3323
3550

GLOBAL AREAS
KDJ1.1A
MAC
PUSH
REPORT

SCOPE
SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

20-MAR -84

3230
3230

2180
3230
4134¢
188¢
3230
3230
3230
32%0
1499

2369
3079

SWRSU
TAIL
TRMTRP

TYPBIN
TYPDEC
T YPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
$SESCA
SSNEWT

$SSET
$SSETM
$$SKIP

.EQUAT
.HEADE
KTl
.SETUP
.$ACT1

.S3APTB

. $APTH
.SAPTY
. SEOP

. $SERRO

. SREAD

. $TRAP

.$TYPD
.STYPE
.$TYPO
. $40CA
.

ABS.

MACY11

4043

3230
10
4156¢
3232
3230
3230
323¢
3232
3230
3230
3230
3230

2689

4140¢
793¢
3239

1882
190¢
188¢
190¢
1909

188¢

1900
191¢
188¢

191¢

190¢

189¢
189¢
191¢
188¢
022472

ERRORS DETECTED:

nye zo‘mégass‘aééénszc?r&e 53 MACRO NAMES

3338

4185

4187

4208

4159

4168

4169

4170

540
1543
2593
3290

1575
2595
3292

542

549
1577
2689
3297

3238

530
1541
2371
3081

4072
7770

767

4113

4180

4235

856
2833

1166
2961

1259
3077

4171

575

1713

2691
3332

SEQ 0095

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

3439

1575

1713

1886

2036

4175

4176

4177

1168
2186

2961

1259
2188
2963
3895

1261
2309
2967
3972

2186

2309

2369

3828

1497

2311

3077
3975

3668

3691

3993

831
2746

4159
800

4168

4169

4170

1497
4171

4173

<13
195
323
500

528

573
538
4178

3669

3970

4111

3826
3719
3893
501

000
©

CZKDKB/EN:ABS,CZKDKB
. SE Q/CRF/DOC/SOL /NL : TOC=SYSMAC

RUN-TIME: 297 115 5 SECONDS
RUN-TIME RATIO: 941/418=2.2

., SML /ML , CZKDKB . MAC /ML , KDJ11A . MAC

2593

GLOBAL AREAS
KDJ11A.MAC
CORE USED:

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

DOCUMENT PAGES:

(103 PAGES)

20-MAR-84
11:31
PAGE 98
CROSS REFERENCE TABLE

F8
--

MACRO NAMES

SEQ 0096