Digital PDFs

AH-T709B-MC

July 1984

166 pages

Original

81MB

view download

OCR Version

108MB

view download

Document:	CZKDLB0 KDJ11-A KDJ11 FPP DIAG JUL 1984 bw
Order Number:	AH-T709B-MC
Revision:	000
Pages:	166
Original Filename:	CZKDLB0__KDJ11-A__KDJ11_FPP_DIAG__AH-T709B-MC__JUL_1984_gray.pdf

OCR Text

RBJET-ERE DIAG
CZKOLEBO

e TR
FICHE 01 OF 01

E0EEEED

30A(1052)

15-MAR-84

16:58

PAGE

O® -4

NB NN, re

USER JOCUMENTATION
MACY11l
KDJ1.1A
MAC
15-MAR-84 15:51

B1
SEQ 0001

.REM &

IDENTIFICATION
PRODUCT

CODE:

AC-T7088-MC

PRODUCT NAME:

CZKDLBO KDJ11 FLOATING POINT DIAGNOSTIC

PRODUCT DATE:

15-MAR-84

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

HENRY ENMAN,

THE

JIM PITTMAN, BARRY

INFORMATION IN THIS DOCUMENT

IRRGANG

SUBJECT

CMANGE WITHOUT

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

DIGITAL

DEC

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR IT3

1984 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

USER

KOJllg?gAC

UMENTAT ION
?gggll
15-MAR -84

30A(1052)

15-MAR-B84

16:58

Cl
PAGE

39
40

HISTORY

41
a2

S0
51

OC1-83

FEB-84

REV.,

REV.

A
B

FIRST

S5EQ 0002

.REM &

RELEASE

CORRECTIONS MADE TO:
1. CORRECT VECTOR AREA MAINTENANCE PROBLEM
. TURN CACHE MEMORY SYSTEM OFF DURING NON-CACHE TESTS,

44
45
46
47
48
49

ENSURE

THAT CPU ERROR REGISTER IS CLEARED AFTER

COMPLETION OF TEST THAT MIGHT CAUSE IT TO BE SET,
SAVE PC AND CONTENTS OF R6 ON UNEXPECTED INTERRUPTS
&

'L"SS?lxl.)fik'cfiNn\Iéc_)"AR 84

rfgcgp

30A(1052)

D1
15 MAR-84

16:58

PAGE

.REM &

53
54
55
56
57
58
59
60
61
62
63
64
65
66

UVbWN-O

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

CONTENTS

OPERATING INSTRUCTIONS

68
69

TABLE OF

SEQ 0003

ERROR INFORMATION

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

USER DOCUMENTATICON
HgC;ll
KDJ11A.MAC
15-MAR-84 15:51
71
72
73
74

75
76
77
78
79

80
81
82
83
84
85
86
87
88
89

30A(1052)

15-MAR-84

16:58

PAGE

SEQ 0004

.REM &

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS

IS AN APT

COMPATIBLE

VERSION OF

THE

KDJ11 FLOATING POINT

INSTRUCTION TESTS. IT FOCUSES ON TESTING THE KDJ11 FLOATING POINT
INSTRUCTION FUNCTIONALITY,
1.2

SYSTEM REQUIREMENTS

KDJ11-A PROCESSOR MODULE
gg&m:&e; HALT TRAP OPTION IS DISABLED (JUMPER W9 INSTALLED)

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

RELATED DOCUMENTS AND STANDARDS

KDJ11-A MODULE SPECIFICATION REV 2.2

POP11 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 AND MEMORY MANAGEMENT DIAGNOSTICS MUST

l'ilehsltgttCESSFlLLV PRIOR TO RUNNING THE FLOATING POINT
101
102
103
104
105

107
108
109
110

111
112

113
114
115
116
117
118
119
120
121
122
123
124
125
126

1.5

ASSUMPTIONS

IT IS ASSUMED THAT THE DIAGNOSTIC OPERATOR IS FAMILIAR WITH

THE XXDP+ OPERATING SYSTEM AND THE J11 MICRO-0DT,

2.0

OPERATING INSTRUCTIONS

2.1

LOADING AND STARTING PROCEEDURE

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

IDENTIFICATION MESSAGE WILL BE TYPED AFTER THE FIRST PASS
OF THE CCMPLETE PROGRAM,
2.2

PROGRAM OPTIONS

THE FOLLOWING ASSIGNMENTS HAVE BEEN MADE FOR THE KDJ11-A

DIAGNOSTIC SWITCH REGISTER BITS:
BITe15

Bosonnsy B o Wi

13
i B

12
e

nve Bin'n

11
v

e Qovonven @erccnmee @cccnaas Y

DON' T
TEST

BEVENT

18 BIT

EXTENDED

ONL Y

TESTS

ADDRESS

CACHE

USER DOCUMENTATION
Tgcgi
15-MAR-84

KDJ11A
. MAC

127
128
129
130
131
132
133
134
135
136
137
138
139

140
141
142
143
144

50A(1052)

PAGE 5

SEQ 0005

THE SOFTWARE SWITCH REGISTER HAS NO EFFECT ON THE OPERATION OF

2.3

OPERATION UNDER APT

THERE ARE NO ABNORMALITIES IN THE EXECUTION OF THIS DIAGNOSTIC
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 FPP TESTING
ERROR & = (UN1QUE ERROR NUMBER)
ERROR PC = (PC AT TIME OF ERROR)

146

152
153
154
155

16:58

THIS DIAGNOSTIC.

145

147
148
149
150
151

15-MAR-84

THE ERROR WILL
WILL HALT.

THEN BE REPORTED TO APT AND

4.0

PROGRESS REPORT

THE END OF EACH PASS

THE PROGRAM

THE DIAGNOSTIC NAME AND PASS COUNT ARE PRINTED.

PROGRAM

ADER Al

TABLES

KDITIA MAC DERENBaR B4t s, 51
156
157
158

MACY11

30A(10S2)

15-MAR-84

16:58

Gl
PAGE 6

SEQ 0006

.TITLE PROGRAM MEADER AND TABLES
SBTTL
PROGRAM HEADER

159

.MCALL

160

‘MCALL

161
162
16
164

'MCALL
"MCALL

NEWTST,ERRDEF, ,EQUAT,.KT11
. SEOP,
,,$40C
. $APTBLS,AT,
SETUP

.$TYPE,.$
,BGNTST,
TYP
ENDTST
DEC
. BGNMOD
,ER
, ENOMOD
RDF
. CKLOOP

.HEADER,
.$TRAP ,BGNSUB.ENDSU
.SET
B. . SACT11
UP,
. . $APTHOR
.S$APTYPE..SERROR..$TYPOCT
.. SREAD

165

166
167
168

.TITLE
KDJ11-A FLOATING POINT DIAGNOSTIC
:#COPYRIGHT (C) OCTOBER, 1983
:#DIGITAL EQUIPMENT CORP.
:4MAYNARD, MASS. 01754

169
‘

172

:#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SySMAC

173
175
176

: sPACKAGE (MAINDEC-11-DZGAC-C3), JAN 19,
;.

000001
160000

$TN=1
$SWR=160000

1977.

1 sHALT ON ERROR, LOOP ON TEST,

INHIBIT ERROR TYPOUT

GLOBAL

AREAS

KDJ11A
. MAC

15-haR 8278049720 13 MARSRBGRAR RRAOERCE

177

.TITLE GLOBAL AREAS
.SBTTL
GLOBAL EQUATES SECTION

178

179

180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232

SEQ 0007

+
i

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
ARE USED IN MORE THAN ONE TEST,

i--

.SBTTL

001000

000011
000012
000015
000200
177776

177774

177772
177570

BASIC DEFINITIONS

i*INITIAL ADDRESS OF THE STACK POINTER #4s

STACK=

.EQUIV
.EQUIV

1000

EMT,ERROR
I0T,SCOPE

; sBASIC DEFINITION OF ERROR CALL
1 1BASIC DEFINITION OF SCOPE CALL

; *MISCELLANEQUS DEFINITIONS

MHT=
LF=
CR=
CRLF=

11
12
15
200

PS=
.EQUIV

177776
PS,PSW

PIRG=
DSWR=

177772
177570

STKLMT=

177774

1:CODE
+:CODE
1:CODE
+sCODE

FOR HORIZONTAL TAB
FOR LINE FEED
FOR CARRIAGE RETURN
FOR CARRIAGE RETURN-LINE FEED

3 sPROCESSOR STATUS WORD
$sSTACK LIMIT REGISTER

: sPROGRAM INTERRUPT REQUEST REGISTER
s sHARDWARE SWITCH REGISTER

177570

DDISP=

000000

RO=

000002
000003
000004
000005
000006

R2=
R3=
R4=
RS=
R6=

000006
000007

SP=
PC=

000000
000040
000100
000140
000200

PRO=
PR1=
PR2=
PR3PR4=

0
40
100
140
200

s sPRIORITY
3 sPRIORITY
s sPRIORITY
3 tPRIORITY
s sPRIORITY

000300
000340

PR6=
PR7s=

300
340

1 tPRIORITY LEVEL 6
$1 sPRIORITY LEVEL 7

100000
040000
020000
010000
004000
002000

$¢"SWITCH REGISTER” SWITCH DEFINITIONS
SW1Ss=
100000
SWid=
40000
SW1i3=
20000
SWi2=
10000
SWil=
4000
SW10=
2000

000001

000007

000240

001000

177570

3 sHARDWARE DISPLAY REGISTER

; *GENERAL PURPOSE REGISTER DEFINITIONS

Rl=

R7=

s sGENERAL REGISTER

w2
3
%4
L -1
%6

3 sGENERAL REGISTER
3 sGENERAL REGISTER
3 sGENERAL REGISTER
1 sGENERAL REGISTER
s sGENERAL REGISTER

%6
7

13STACK POINTER
; ;sPROGRAM COUNTER

| 31

L ¥4

3 sGENERAL REGISTER

1 sGENERAL REGISTER

;SPRIORITY LEVEL DEFINITIONS

PRS=

SW09=

240

1000

1000 #se

LEVEL O
LEVEL 1
LEVEL 2
LEVEL 3
LEVEL 4

1 sPRIORITY LEVEL S

AREAS

MACY11

KDJ11A.MAC

15-MAR-84

233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249

000400
000200
000100
000040
000020
000010
000004
000002
000001

250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269

270
271
272
273
274
275
276
277
278
279
280
281
282
283
284

285
286
287
288

30A(1052)

15:51

15-MAR-84
16:58
PAGE 8
BASIC DEFINITIONS

SW08=
SWO7=
SW06
=
SWOS=
=
SWO04
SWO3=
SWo2=
SWOl=
SWO0=
.EQUIV
EQUIV

EQUIV
EQUIV
.EQUIV
EQUIV
.EQUIV
EQUIV
.EQUIV

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000010

000002
000001

000010
000014
000014
000014
000020
000024

I1
SEQ

400

200
100

20
10

SW09, SW9
SW08, SW8
SWO7,SuW7
SW06, SW6
SWOS, SWS
SW04, SWa
SWO3,SW3
SWo2, Sw2
SWO1,S5w1
SW00, SWo

3 OD‘TA BIT DEFINITIONS (BITOO TO BIT1S)

BIT1S=
BIT14=
BIT13BITi2=
BIT11=
BIT10BIT09=
BITO8=
BITO7=
BIT06=
BITOS=
BITO4=
BITO3=
B8ITO2=
BITO1=

B8IT00=
.EQULIV
.EQUIV
.EQUIV
.EQUIV

00000

IT09,8IT9

8I7107,8117
BIT06,.8IT6
BIT05,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT2
B8IT01,BIT1
BIT00,8ITO
P

GLOBAL

§#BASIC "CPU” TRAP VECTOR ADDRESSES
33 TIME OUT AND OTHER ERRORS
taR$S£=¥$o AND ILLEGAL INSTRUCTIONS

ERRVEC= 4
RESVEC= 10
TBITVEC+-14
TRTVEC*

BPTVEC~ 14
IOTVEC= 20

PWRVEC= 24

.lll

11 TRACE TRAP
1 1BREAKPOINT TRAP (BPT)
1 1 INPUTZ0UTPUT TRAP (CIOT) «aSCOPEes

1 1POMER FAIL

GLOBAL

AREAS

MACY1l

30AC1052)

KDJ11A.MAC = 15-MAR-84 15:51
289
290
291
292
293

000030
000034
000060
000064
000240

ggg

53?

000250

333(1;

302
303

304

gig

177616

177610
177612
177614

gig

326
335;

14KT11

STATUS

ADDRESS

ADDRESSES

177572
177574

177576

172516

VIPDRO= 177600
UIPDR1= 177602
UVIPDR2= 177604
VIPDR3= 177606

UIPDR4= 177610
VIPDRS= 177612
VIPDR6= 177614

VIPDR7= 177616

177632

UDPDRS= 177632

177636

UDPDR7= 177636

177630

177634

UDPDR4= 177630

UDPDR6= 177634

;8USER "I” PAGE ADDRESS REGISTERS

177640

ggg

177656

177654

3322

344

250

UDPDRO= 177620
UDPDR1= 177622
UDPDR2= 177624
UDPDR3= 177626

177542
177644
177646
177650
177652

342
343

MMVEC=

177620
177622
177624
177626

332
333
333
335
336
337

1 1EMULATOR TRAP (EMT) #4ERROR4+
11"TRAP" TRAP
14 TTY KEYBOARD VECTOR
11 TTY PRINTER VECTOR
i 1PROGRAM INTERR'PT REQUEST VECTOR

18USER “D” PAGE DESCRIPTOR REGISTORS

3233

331

VECTOR

SR2=

;4USER “I" PAGE DESCRIPTOR REGISTERS

313
314
315

324

MEMORY MANAGEMENT DEFINITIONS

;aKT11

SR3=

177600
177602
177604
177606

325

.SBTTL

172516

309
310
311
312

320
321
322
323

PAGE

EMTVEC= 30
TRAPVEC =34
TKVECs 60
TPVECs 64
PIRQVEC=240

SRO=
SR1=

ggg

16:58

sacrc BePINI T8RS

177572
177574

177576

382

15-MAR-84

177660
177662

177664

UIPARO= 177640

VIPAR1= 177642
UIPAR2+> 177644
UIPAR3= 177646

UIPARG= 177650

VIPARS* 177652
UIPARG= 177654
UIPAR7= 177656

;#USER “D” PAGE ADDRESS REGISTERS

UDPARO= 177660
UDPAR1= 177662
UDPAR2= 177664

SEQ 0009

GLOBAL AREAS

KDJ11A.MAC

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
374
375
376
377
378
379

381
382
383

MACY1l

IS-HSR-OQ 15:%1
177666
177670
177672
177674
177676

389
390
391
392
393
394
395
396
397
398
399

400

IK1

PA
H8HOR$6H$ 8NAGEMEN
T 1 8EFINITIONS

15-MAR-84

UDPAR3=

=
UDPAR4
UDPARS
=
UDPAR6
=
=
UDPAR7

177666
177670
177672
177674
177676

: #*SUPERVISOR

172200
172202
172204
172206
172210
172212
172214
172216

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

"I" PAGE DESCRIPTOR REGISTERS

172200
172202
172204
172206
172210
172212
172214
172216

: #SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS

172220
172222
172224
172226
172230
172232
172234
172236

SOPDRO=
SOPDR1=
SOPDR2=
SOPDR3=
SOPDR4
=
=
SOPDRS
SOPDR6=
SDPDR7=

172220
172222
172224
172226
172230
172232

172234
172236

1 #SUPERVISOR "I* PAGE ADDRESS REGISTERS
172240
172242
172244
172246
172250
172252
172254
172256

SIPARO=
SIPAR]1=
SIPAR2=
SIPARS=
SIPAR4=
SIPARS=
SIPARG=
SIPAR7=

172240
172242
172244
172246
172250
172252
172254

172256

; *SUPERVISOR “D“ PAGE ADDRESS REGISTERS

385

387

30A(1052)

172260
172262
172264
172266
172270
172272
172274
172276

SDPARO=
SOPAR1
=
SOPAR2=
SOPAR3
=
=
SDPAR4
SDPARS=
SDPARG=
SDPAR7=

172260
172262
172264
172266
172270
172272
172274
172276

s #KERNEL “I“ PAGE DESCRIPTOR REGISTERS
172300
172302
172304
172306

KIPDRO=
KIPDR1=

172300
172302
KIPDR2= 172304
KIPDR3= 172306

SEQ 0010

GLOBAL

AREAS

MACY11

KDJ11A.MAC

15-MAR-84

401
402
403
404
405
406
407
408
409
410
a11
412
413
a14
415
316
417
418
419
420
421
422
423
424
a2s
426
a27
428
429
430

172310
172312
172314
172316

431
432
433
434
435
436
437
438
439

440
441
442
443

444
4as
446
447
448
449
450
451
452
453
454
455
456

172320
172322
172324
172326
172330
172332
172334
172336

30A(1052)

15:51

15-MAR-84
16:58
PAGE 11
MEMORY MANAGEMENT DEFINITIONS

KLPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

172310
172312
172314
172316

i *KERNEL

"D"

KDPDRO=

KDPDR1=
KDPDR2=
KDPDR3=
KOPDR4=
KDOPDRS=
KDPDR6=
KDPDR7=

PAGE

SEQ 0011

DESCRIPTOR REGISTERS

172320

172322
172324
172326
172330
172332
172334
172336

i*KERNEL "I" PAGE ADDRESS REGISTERS
172340
172342
172344
172346
172350
172352
172354
172356

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG6=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

+#KERNEL "D" PAGE ADDRESS REGISTERS
172360
172362
172364
172366
172370
172372
172374
172376

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPARG6=
KDPAR7=

000000
000001
000002
000003
000004
000005
000006
000007

ACO=
ACl=
AC2=
AC3=
AC4=
ACS=
AC6=
AC7=

%0
sl
%2
3
)
.5
%6
7

000244

FPVEC=

244

177746
177744
177752
17776€

172360
172362
172364
172366
172370
172372
172374
172376

s THESE ARE FLOATING POINT ACCUMULATOR EQUATES

s THESE ARE CACHE REGISTER EQUATES
CCR=
177746
tCACHE CONTROL REGISTER

MSER=
HITMIS=

177744
177752

CPEREG= 177766

tMEMORY SYSTEM ERROR REGISTER
tHIT/MISS REGISTER

1CPU ERROR REGISTER

KDJIIA HAEAS 15 MRléG
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
486
487
488
489
430
491
492
493
494
495
496
497
498
499

500
501
502
503
504
505
506
507
508
509
510
511
5i2

30“(&052)

15-HAR"24

MORY16:niAGE#EETIBEFINITIONS

SEQ 0012

MISCELANEQUS DEFINITIONS

177546
177560
177562
177564
177566

éEVENT- 177546

:BEVENT CONTROL REGISTER

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

s INITIALIZE ERROR NUMBER COUNTER
iSWR FOR APT--NO BEVENT TESTING

RCSR=
RBUF =
XCSR=
XBUF=

000000
000001
000001
002000

177560
177562
177564
177566

: THIS EQUATE DEFINES THE BOTTOM OF THE PROGRAM STACK POINTER

001000
000000
000000

f—

STBOT=

1000

.SBTTL

TRAP CATCHER

. =0

i#ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN
i#A “,.+2, IOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL
:*TRAPS AND INTERRUPTS THAT MIGHMT OCCUR.
+#THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT
:#TRAPS TO THE $SCOPE ROUTINE WHICH (IF THE RETURN PC IS
+sLESS THAN 1002) JUMPS TO THE SERROR ROUTINE.
tOTHE $ERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:
PC=YYYYYY UNEXPECTED TRAP TO XXX

30AND RETURN TO THE PROGRAM AT PCs=YYYYYY.2

MHERE XXX=LOCATION OF ILLEGAL TRAP
VYYYVY-PC AT TIME OF TRAP

IMTE. THE PROCESSOR IS NOT AN 11705 THE PROGRAM
.
CAN BE STARTED AT ADDRESS O AS WELL AS ADDRESS 200.
000002

000174
000176
000200

$40CAT: HALT

000737

002200
000340
000174

LMORD

u?;g
DISPREG: . WORD
SWREG:

000137

002200

.SBTTL

.WORD

. =100
START

340
o

ssHALT

"fi%ts')' TO 177700 € TIME OUT (NOT ON

: 3VECTOR TO STARTING ADDRESS

+sWITH PRIORITY LEVEL 7
+ 1SOF TWARE DISPLAY REGISTER

1 1SOF TWARE SWITCH REGISTER

STARTING ADDRES(ES)
JMP
S@O0START ;;G0 TO START OF PROGRAM
ACT11 HOOKS

3198880880200 0000008000204800820008002400200800200000003000000000022

000204

000052

+HOOKS REQUIRED BY ACT11

036362
000052

$SVPC=
b4 ,

1SAVE PC

iegw

131)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

.WORD

000204

.SBTTL

.=*$SVPC

APT PARAMETER BLOCK

112)SET LOC.52 TO ZERO

i1+ RESTORE PC

1388848088880 000000000040000 00000000000 0020 003000000000 000 0000002

sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

GLOBAL AREAS

KDJ11A.MAC
513

514
515

516

000024

518

000044

517

519

520

nncux 3oA< 1052)

15-MAR-84

000204
000024

000200

000204

530

533
534
535

536

537

PAGE

SEQ 0013

APT PARAMETER BLO K
H ;0‘t‘00‘.“‘0‘.“““0‘.““““‘.0““““‘0“tt‘t“““ttt# Ly Y

.$X=.
.=24

;3;SAVE CURRENT LOCATION
1:SET POWER FAIL TO POINT TO START OF PROGRAM

. =44

1 sPOINT TO APT INDIRECT ADDRESS PNTR.

200

000204

$APTHDR

.=.$X

1 iFOR APT START UP

;;POINT TO APT HEADER BLOCK

;;RESET LOCATION COUNTER

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

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

ggg

531
532

16:58

000044

521

524
525
526
527
528
529

15-MAR-84

: INTERFACE SPEC.
000204
000204
000206
000210
000212
000214

000216

000002
000004
000006

000000
001000
000001
000002
000000

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$UNITM:

000204
000002

.=, X
.=2

000014

000000
000006
000004

0
S
a

001000

.=1000

000204

.=, 8X

.WORD
.WORD

O
$MAIL
1
2

.WORD

oerem mnxua s sLENGTH MAILBOX-ETABLE(WORDS)

.WORD
.WORD
.WORD

+ s TWO HIGH ans OF 18 BIT MAILBOX ADDR.
;;ADDRESS
OF APT MAILBOX (BITS 0-15)

:sRUN TIM OF LONGEST TEST
+sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
s sADDITIONAL RUN TIME (SECS)
OF A PASS FOR EACH ADDITIONAL UNIT

:SAVE CURRENT LOCATION COUNT

;SET UP SOME VECTORS

;RESTORE LOCATION COUNT

GLOBAL AREARS
KDJ11A.MAC

MACY11l 30A(1052)
15-MAR-84 15:51

538
539

15-MAR-84
16:58
PAGE 14
GLOBAL DATA SECTION
.SBTTL

SEQ 0014

GLOBAL DATA SECTION

540
541
542
543

X
1+ THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
t+ IN MORE THAN ONE TEST.
d i

546

1100000000000000000000000000000000000000000004000000080000000004048

g:-l
S

547
548

549
550
551
552

553
554
555
556
557
553

559

560
561

562

563

LSEBTTL

001000

001000
001002
001004
001006

001010
(001012
001014
001016
001020
001020

001021

001022
001024

001026

.EVEN

000000
000000
000000
000000

000
000

000000
002000

000000

564
565

566
567
568
569

g;g

$MAIL:

$MSGTY:
$FATAL:
$TESTN:
$PASS:

.WORD
.WORD
.WORD
.WORD

$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
SENV:
.BYTE

SENVM:

$SWREG:
SUSWR:

$CPUOP:

.BYTE

.WORD
.WORD

.WORD

AMSGTY
AFATAL
ATESTN
APASS

ADEVCT
AUNIT

AMSGAD
AMSGLG

AENV
AENVM

ASWREG
AUSWR
ACPUOP

P
ie

001030

1 3APT MAILBOX

;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
1 sPASS COUNT

;;DEVICE COUNT
131170 UNIT NUMBER

;;MESSAGE ADDRESS
; ;MESSAGE LENGTH
3 1APT ENVIRONMENT TABLS

1 stENVIRONMENT BYTE
1 sENVIRONMENT MODE BITS

;;:APT SWITCH REGISTER
1 1USER SWITCHES
;;CPU TYPE,OPTIONS

BITS 15-11-CPVU TYPE

11/04+01,11/05-02,11/20-03,11/40=04,11/45=05
11/70=06,PDQ=07,0-10

e
ie
ie

BIT 10-REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT B8-MEMORY MANAGEMENT

SETEND:

JMEXIT

572
573

574

APT MAILBOX-ETABLE

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

1FROM THE DEFAULT RESPONCE.,

575
g;g

001030
001032

000000
000000

SLOCOO:
SLOCOL:

S78
579
580
581

001034
001036

000000
000000

s THESE LOCATIONS ARE USED IN MORE TMAN ONE TEST TO STORE WORKING DATA.
EXPDAT: ,WORD
O
1STORES EXPECTED (GOOD) DATA FOR COMPARISONS
RECDAT: .WORD
©
3sSTORES RECIEVED DATA TO BE VERIFIED

582

001040
001042

000000
000000

COUNT:
FLAG:

.WORD
.WORD

.WORD
LMORD

O
O

1ERROR INDICATOR FOR FLOATING POINT TESTS
sUSED TO STORE "FLAG" CONDITIONS

583
584
585
586

001044
001046
001050
001052

000020
177570
177570
000C00

ERRCNT: .WORD
SWR:
.WORD
DISPLA
. WORD
Y:
SERFLG: .WORD

O
DSWR
ODISP
O

1STORAGE FOR ERROR COUNT
1STORAGE FOR SWITCH REGISTER ADDRESS
1STORAGE FOR DISPLAY REGISTER ADDRESS
1ERROR FLAG

588
589
S90
591
592
593

001054
001056
001060
001062
001064

000000
000000
000000
000000
00000C

DCOUNT:
ALLCTR:
LOOPIN:
SAVSP1:
SAVSP2:

O
©
O
O
O

1STORAGE FOR UNEXPECTED TRAP DATA
]
4
g
=
*

587

s THESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS
.WORD
.MORD
.WORD
.MORD
,WORD

001106

RECFEC:

001116
001126

000020

go.
-

.BLKW
.BLKW

RECST:
RECDST:

001136
001136

.BLKW
.BLKW
.BLKW

BTEXP:
BTRES:

HIS

001066
001076

1S-MARGRY k638 BOREL 4

594
595
596
597
598
599
600
601
602
603
604
005
606
607
608
609

1s"RAR1430814052)

(7,

KbITTR AREMS

.BLKW

Ce
SEQ 0015

1STORES EXPONENT DURING BIT TESTS
1STORES RECIEVED DATA FOR BIT TESTS
tRECIEVED FLOATING POINT EXCEPTION CODE
1RECIEVED FLOATING POINT STATUS
1DESTINATION ADDRESS FOR FLOATING POINT TESTS

15-MAR-84

610
611
612
613
614
615
616
617
618
619
620
621
622
623
624

123456
000000
000000
000001
055555
177777
145671
100000
003000
123456
000000
000000
055555
177777
000000
000000
043243
000000
000000
000000
162400

625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646

647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665

001176
001200
001202
001204
001206
001210
001212
001214
001216
001220
001222
001224
001226
001230
001232
001234
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316
001324
001326
001330
001332
001334
001336
001340
001342
001344
001346
001354
001356
001364
001366
001370

15:51

15-MAR-84

16:58

SEQ 0016

APT MAILBOX-ETABLE
TAB1:

TAB2:

TABS:

TABA4:

.WORD
.WORD
.WORD

. WORD

.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

123456

000000
0
1
055555

177777
145671
100000
003000
323456

.WORD

.WORD
.WORD
.WORD

.WORD

TABSA:

.WORD

.WORD
.WORD
.WORD

TABG6:

.WORD

TAB6A:

.WORD

. WORD
.WORD
.WORD

.WORD
.WORD
. WORD

TAB7:

.HORD

TABS:

.WORD

TAB10:

000002

.WORD

TABS:

TAB9:

003000

PAGE

.WORD
.WORD
.WORD

.WORD
.WORD
. WORD

. WORD

.WORD

.WORD
.HWORD

g 8§#O°§O°°§OO§=°OOOO°O

KDJ11A, MAC

30A(1052)

TAB11:

.WORD
+WORD
. WORD

TAB11A:

.WORD

30000, 3000,2,0

TAB12:

.WORD

16100,0,0,1

TAB13:

,WORD

. WORD

MACY11

OOOEOO

AREAS

GLOBAL

003000

000000

TAB13B:
TAB14:

TAB1S:

TAB16:

TAB17:
TAB18:

000000

TAB21:

000000

TAB22:

000000

TAB23:

000000

TAB24:

001100

000000

TAB2S:

100600

000000

TAB26:

001000

000000

TAB27:

000000

TAB28:

010100

000000

TAB29:

010100

000000

002000

TAB29A:

100400

000000 000000 }~30:
100400

000000

TAB31:

016000

000000

TAB32:

011600

000000

TAB33:

000640

000000

TAB34:

077600

000000

TAB4O:

+WORD
+WORD
. WORD
.WORD
. WORD

SRRRRRERRRRRRRE

140000
030000

.WORD
.WORD

0
1
30000, 3000,0, 140000

30000
0

25000
175363
123456
123456
30000
7020

0,0
23456
0

100200,0,0,0

100400,0,0,0

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

1100,0,0.0

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

600,0,0,0
10100,0,0,0

10100,0,2000,0

713
714
715
716
717
718
719
720
721

001576
001604
001606
001614
001616
001624
001626
001634
001636
001644
001646
001654

000000
000001
030000

15-MAR-84
&?I:SSX -E?figLé"
APT M

500,0,0,0

700
701
702
703
704
705
706
707
708
709
710
711
712

001372
001374
001376
001404
001406
001410
001412
001414
001416
001420
001422
001424
001426
001430
001432
001434
001436
001440
001442
001446
001450
001452
001454
001456
001464
001466
001474
001476
001504
001506
001514
001516
001524
001526
001534
001536
001544
001546
001554
001556
001564
001566
001574

SOgg é?SZ)
15-MAR-84 1

100400,0,0,0

666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699

MACY11

16000,0,0,0

AREAS
KDJ11A, MAC

11600,0,0,0

GLOBAL

640,0,0,0
77600,0,0,0

SEQ 0017

GLOBAL

AREAS
KDJ11A <MAC
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739

001656
001664
001666
001674
001676
001704

001706
001714
001716
001724
001726
001734
001736
001744
001746
001754
001756
001764

MACY11

30A(1052)

100200
000001
000340
000000
000077
177776
000577
177777
000577
000000
173737
012346
000000
012346

000000

TAB41l:

,WORD

100200,0,0,1

000000

TAB42:

.WORD

340,0,0,0

1777727

177777

TAB43:

.WORD

77,177777,177777,177776

177777

TABAS:

.WORD

577,-1,-1,-1

177777

000000

TAB46:

.WORD

577,-1,0,0

124242

052525

TAB47:

.WORD

173737,124242,052525,12346

000000

052525

TAB47A:

.WORD

0,0,052525,12346

124242

000000

TAB48:

.WORD

173737,124242,0,0

000000

TAB49:

.WORD

600,0,0,0

15-MAR-84

173737

000000
000600
000000

15:
15:51

15 AR BT MATIBOX-ETRGLE18
16:58

PAGE

SEQ 0018

GLOBAL AREAS
KDJ11A.MA 3

15HAR 84154920 15 MAR:BEe, 16120 SEER LN

740
741
742
743
744
745
746
747
748
749

750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766

767

768

.SBTTL

GLOBAL

G2
SEQ 0019

TEXT SECTION

THE GLOBAL

TEXT SECTION CONTAINS FORMAT

STATEMENTS,

+ MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
i MORE THAN ONE TEST.
i

FORMAT

STATEMENTS USED IN PRINT CALLS

001766
001774
002002
002010
002013
002026
002034
002042
002046
002054
002062
002070
002076
002077
002104

005015
020105
046505

040503
054523
042440

044103
052123
051122

ERRMSG
: .ASCIZ
:

<CR><LF>/CACHE SYSTEM ERROR/

051117
047111

042040

042412

FPPERR:

.ASCIZ

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

000107
051105
020043
051105
041520

051122
051125
050106
052123

047522
000075
047522
036440

ERR1:

.ASCIZ

<CR><LF>/ERROR &

ERR2:

.ASCIZ

<CR><LF>/ERROR PC

020012

020040

SCRLF:

.ASCIZ

<CR><LF>/

051117
015

020120
047111

005015
020122
005015
020122
000
015
000
002106

020107

.EVEN

GLOBAL AREAS
KDJ11A.MAC

769
770
771

772

;;2

MACY11l

15-MAR-84

30A(1052)
15:51

15-MAR-84

PAGE 20

GLOBAL ERROR REPORT

.SBTTL

H2
SEQ 0020

SECTION

GLOBAL ERROR REPORT

SECTION

THE GLOBAL

ERROR REPORT

SECTION CONTAINS MESSAGE PRINTING AREAS

USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION.

1=~

775

16:58

GLOBAL AREAS

KDJ11A. MAC

776
777
778
779
780
781
782

783

754
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR-84

PACE 21

SEQ 0021

GLOBAL SUBROUTINES SECTION
.SBTTL

GLOBAL SUBROUTINES SECTION

+
002106
002110
002112

002114
002116
002120

002122
002124
002126

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

THAT ARE USED IN MORE THAN ONE TEST,

{FPP COMMON SUBROUTINES

012600
012605
104000

WLDTRP:

002013
000110

MOV

MOV
ERROR

TRPFLG:
ERRFP:
:

000207
000207

(SP)+,RO

: SAVE PC

(SP)+,RS

JWORD
.WORD

1
FPPERR

.WORD
RTS
RTS

O
R7
R7

JMP

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

814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830

16:58

$SAVE _STATUS AND RESTORE STACK
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

(RO)

:GO BACK INLINE

SUBROUTINE DATA VERFICATION -

CALLED BY
:

JSR

R7,DATVER

(R4)=EXPECTED DATA

(R1)=RECEIVED DATA

:TNIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE

lsifiéfl. TO THE FOUR WORDS ADDRESSED BY (R1). THE CONTENTS OF R4, AND R1 ARE NOT
TURBED.
:
sLOCATION “COUNT* , IF NOT EQUAL TO O SIGNIFIES DATA ERROR
+IF THE STATUS IS FLOATING MODE, THE LAST TWO BYTES OF RECEIEVED
sARE SIMPLY CHECKED FOR ZEROS
$

002130
002132
002134
002142

002146
002150
002152
002160
002164
002166
002170
002172
002174
002176

010446
010146

012767
000167
010446
010146
012767
005367
001402
022421
001773
012601
012604
000207

DATVFR: MOV
000003
000012

MOV
MOV

176676

JMP

DATVER: MOV
176654

176660

MOV

DAT1:

:SAVE R4

DAL

sSET UP ITERATION COUNT
3

Ry, -(SP)
@3.COUNT
R4, -(SP)

R1,-(SP}

MOV

#5,COUNT

BEQ

DEC

cMP

24:

R4, -(SP)

COUNT

(R4)+,(R1)e

BEQ

DAT1

MOV

(SP)+,R4

MOV
RTS

:SAVE R1

:SAVE R4

:1SAVE R1

:SET UP ITERATION COUNT

1BRANCH IF DONE

(SP)+,R1

1RESTORE R1

1G0 BACK TO CALLING ROUTINE

iRESTORE R4

+IF DATA ERROR, COUNT NE O

GLOBAL AREAS
KDJ11A.MAC

831
832
833
834
835
836
837
838
839
840
841
842

843

844

845
846
847
848
849
850
851
852
853
854
855
856
gg'al

002200
002200

MACY1l 30A(1052)
15-MAR-84 15:51

012737

000014

002206

012706

001000

002212
002220
002226
002234
002242
002246
002254

012737
012737
012737
012737
005067
016767
105067

040046
000340
037530
000340
176540
034056
176572

002260
002264
002272
002300
002306
002314

013746
012737
012767
012767
022777
001012

000004
002320
177570
177570
177777

002316
002320
002324
002326
002334
002342

000403
012716
000002
012767
012767
012637

15-MAR-84
16:58
PAGE 22
GLOBAL SUBROUTINES SECTION

177746

000030
000032
000034
000036
034046

START:

MOV
€14 ,80CCR
$SET CACHE TO FORCE MISS
INITIALIZE THE COMMON TAGS
MOV
#STACK, SP
1 sSETUP THE STACK POINTER
: s INITIALIZE A FEW VECTORS
MOV
QS$ER
, 84EMTVEC
ROR ; ;EMT VECTOR FOR ERROR ROUTINE
MOV
0340,80EMTVEC+2 ;;LEVEL 7
MOV
O$TRAP ,80TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS
MOV
#340,80TRAPVEC+2;LEVEL 7
CLR
$PASS
1 sCLEAR THE PASS COUNT
MOV
$ENDCT, $EOPCT
1 sSETUP END -OF -PROGRAM COUNTER
CLRB
$ERFLG
3 sCLEAR THE ERROR FLAG

.SBTTL

+3EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER.

000004
176546
176542
176532

64%:
176512
176506

859

65%:

66%:
.MACRO

860
861

862
866
867
868

MOV
MOV
MOV
MOV
CMP
BNE

S0ERRVEC, -(SP)
964§ ,00ERRVEC
QDSUWR, SWR
ODDISP,DISPLAY
#-1,8SWR
664

BR
MOV
RTI
MOV
MOV
MOV

654
0654 ,(SP)

$ARG1L:
002346
002352
002360

005067
132767
001403

.ENDM

1764348
000200

176441

78ARG1

$PASS
OAPTSIZE,SENVM

3 sCLEAR PASS COUNT
;;TEST USER SIZE UNDER APT

MOV

@$SUWREG, SWR

3 sNO,USE APT SWITCH REGISTER

$ARG1

$$SETMAIL

CLR
BIT8
BEQ

%gggg

012767

001022

176456

871
872
873
874
g:llg

002370
002376
002404
002416
002414

012737
012737
005037
005067
012737

040046
000340
177766
176370
000014

000020
000022

MOV
MOV
CLR
RESTART: CLR
MOV

877

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

$$SETMAIL

g_6,g

177746

;;SAVE ERROR VECTOR
$3SET UP ERROR VECTOR
$3SETUP FOR A MARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
$3TRY TO REFERENCE HARDWARE SWR
1 sBRANCH IF NO TIMEOUT TRAP OCCURRED
3sAND
THE HARDWAR
SWR IS
E NOT
= -1
; sBRANCH IF NO TIMEOUT
$13SET UP FOR TRAP RETURN

CLR
8ITB

BEQ

863
864

865

SEQ 0022

13:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

002326
000176
000174
000004

MOV

$PASS
SAPTSIZE,$ENVM
67%

@3SWREG, SWR

QSERROR,B0IOTVEC
#340,800I0TVEC.2
80177766
$TESTN
214,80CCR

$3YES,USE NON-APT SWITCH

31 sCLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
$3sYES,USE NON-APT SWITCH

31 sNO,USE APT SWITCH REGISTER
+3SET UP IOT VECTORS
3370 GO TO ERROR ROUTINE
;:CLEAR CPU ERROR REGISTER
sRESET STESTN TO ZERO
:SET CACHE TO FORCE MISS

888088850080 004080080000000800000200002000200080000040030000000000000000033

878
879

.SBTTL
FLOATING POINT TESTS
1808840550800 008008880000082000040000000000000000008020000002220000000200000008

881
882
883
884

1860088888408 0008000002000000000000003008000080000000000000000000000000000%
(0888880400404 200000000000000008000002000000200000000000020200000000000000000
MBT1:
131808088804045048400440000000000000000000003020000000000000000000000

880

885
886

002422

BEGIN FLOATING POINT TESTING

;oTEST 1
FPP REGISTER BIT TESTS
FIS680040808440004000000004000000000000000000000000000000000000000

GLOBAL AREAS
KDJ11A. MAC

915
916
917
918
919
920
921
922
923

924

925
926

927
928
929
930
931
932
933
934
935
936
937
938
939
940
941

942

15-MAR-84

30A(1052)

15:51

15-HAng4

16:§SP s

SS§S?SR BIT TESTS

SEQ 0023

1R5=FPP POINTER

iR1=TEMPORARY COUNTER
1R2=POINTER TO EXPECTED DATA
:R3=POINTER TO RECEIVED DATA
;R4=0DD/EVEN COUNTER

002422
002422
002426
002430
002432
002436
002442
002444
002446
002450
002452
002454
002456
002460
002464

FIR80RRARARARAAA
AR RAA ALRALA
AR
RARAAALAA
RAAR
AA00ARRtt
RARR
ttts

005267
170011
005005
012702
012703
170400
174012
005004

TST1:

176356

104000

s INCREMENT TEST NUMBER

RS
OBTEXP,R2
OBTRES,R3
ACO
320.(R2)

1SETUP
sPOINT
;POINT
sSETUP
sCLEAR

ACO
AC1
AC2
AC3
AC4

sSETUP FPP REGISTER VALUES

MOV

R5,R1

ADD

OMACO,R1

sGET FPP AC NUMBER INTO R1
sALLOW 10 LOCATIONS FOR OPERATION
sSETUP JMP LOCATION

MACO:

LDD

BTEXP,ACO

MAC1:

JHP
LDD
STD

BTEXP,AC1
AC1,BTRES

MAC2:

LDD

BTEXP,AC2

MAC3:

LDD

MAC4:

LDD

MBT2A:

170400
170401
170402
170403
170404
170405

010501
070127
062701
000111
172467
174067
000167
172567
174167
000167
172667
174267
000167
172767
174367
000167
172467
174004
172404
000167
172467
174005
172405
000167
026767
001014
026767
001010
026767
001004
026767
001403

$TESTN

MBT2:

001066
001076

BTGO:

INC
SETD
CLR
MOV
MOV
CLRD
STD

CLR
CLRD
CLRD
CLRD
CLRD
CLRD

CLROD
000014
002500

MUL

176362
176366
000074
176346
176352
000060
176332
176336
000044
176316
176322

MACOA:

000030

STD

JMP

176302

177710
176266

MACS:

177674
176252

176260

176244

176252

176236

176244

176230

176236

MACE:

BTER:

014,R1

ACO,BTRES

MACE

AC2,BTRES
MACE

STD

AC3,BTRES
MACE

STD
LDD

JHP

BTEXP,AC3
BTEXP,ACO

ACO,AC4
AC4,ACO

MACOA

LDD

BTEXP,ACO

LDD
JMP
CMP
BNE
cMP
BNE
cMP
BNE
cCMP
BEQ

ACS,ACO
MACOA
BTEXP,BTRES
BTER
BTEXP+2,BTRES+2
BTER
BTEXP+4,BTRES+4
BTER
BTEXP+6,BTRES+6
MBTS

STD

ERROR

FPP ACC POINTER
TO TEST DATA
TO RECEIVED DATA
FPP REGISTER VALUES
EXPECTED VALUE

ACS

STD
JHP

887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914

MACY11

ACO,ACS

;LOAD TEST DATA INTO
sSAVE TEST RESULT
sGET OUT
;LOAD TEST DATA INTO
sSAVE TEST RESULT
:GET OUT
;LOAD TEST DATA INTO
sSAVE TEST RESULT
sGET OUT
:LOAD TEST DATA INTO
:SAVE TEST RESULT
;GET OUT

TEST REGISTER
TEST REGISTER

TEST REGISTER

;:LOAD TEST DATA INTO TEST REGISTER
sSAVE TEST RESULT
sGET OUT
;LOAD TEST DATA INTO TEST XFER REGISTER
:LOAD TEST REGISTER
:STORE RESULT INTO XFER FPP REGISTER
1GET OUT

1BRANCH IF REGISTER ERROR

1GOCD RESULT
tALL ERRORS TO TRAP

TO EMT VECTOR

GLOBAL EAS
KDJ1 IA MA
943
944
945
946
947
948
949
950
951
952
953
954
955
956

957
958
959
960
961
962
963
964
965
966
967
968
969

970
971
972
973
974
975
976
977
978
979
980

002652
002654

002656
002656
002660
002662
002664
002670
002672
002676
002702
002704

15 R
" léqSOA(é0$2)

16:FSP

000002
002013

598&5329 BIT TESTS

.WORD
.WORD

SEQ 0024

sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

FPPERR

iFPP AC LOADED

;NOW VERIFY THE OTHER REGISTERS REHAIP&D ZERO

002706
002710

005001
005705
001413
020527
100010
174067
004767
001403
104000
000003
002013

002712
002716
002720
002724
002730
002732
002734
002736

020527
001410
174167
004767
001403
104000
000004
002013

002740
002744
002746
002752
002756
002760
002762
002764

020527
001410
174267
004767
001403
104000
000005
002013

002766
002772
002774

981
982
983
984
985
986
987
988
989
990
991
992
993
994
995

003006
003010
003012

020527
001410
174367
004767
001403
104000
000006
002013

003014
003020
003022
003024
003030
003034
003036
003040
003042

020527
001411
172404
174067
004767
001403
104000
000007
002013

997
998

003044
003050

020527
001411

003000
003004

15-MAR
84

MBTS:

CLR
ST

BEQ
CMP
BPL
STD
JSR
BEQ
ERROR

000004

176200
000246

. WORD
. WORD

000001

MBTBA:

176152
000220

000002

MBT8B:

CHP
BEQ
STD
JSR
BEQ
ERROR
.WORD
.WORD

cHP

R1
RS

MBT8A
R5, 04

MBT8A

ACO,BTRES
R7,BTTST

MBT8A
3

FPPERR

RS,01
MBT8B

1BAD ACO

AC1,BTRES

R7,BTTST

MBTSEB
4

FPPERR

RS, 82
MBTSC

iBAD AC1

AC2 BTRES

176124
000172

*
BTTST

FPPERR

176076
000144

RS,03

iBAD AC2

'.Tw

irrsr
FPPERR

RS5,04
MBTSE
AC4,ACO

1BAD AC3

ACO,BTRES

R7,BTTST
M8 78E
7

FPPERR
000005

MBTBE:

3SEE IF TESTING FPP REGISTER AC2
sBRANCH IF R2 UNDER TEST
sSAVE AC TEST RESULT
sVERIFY THAT CONTENTS REMAINED ZERO
am IF GOOD

RS, 05
MBT8F

:WIGE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
sSEE IF R3 UNDER TEST

:ALL ERRORS TO TRAP TO EMT VECTOR

)

176046
000114

+SEE IF R1 UNDER TEST
sBRANCH IF R1 UNDER TEST
sSAVE AC TEST RESULT
sVERIFY THAT CONTENTS REMAINED ZERO
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

;:BRANCH IF R3 UNDER TEST
$1SAVE AC TEST RESULT
:VERIFY THAT CONTENTS REMAINED ZERO
:1BRANCH IF GOOD

BTRES

MBT8D:

1CLEAR TEMPORARY COUNTER
1SEE IF RO UNDER TEST
sBRANCH IF TEST ING RO
$SEE _IF TESTING FPP REGISTER >R4
1SKIP RO TESTING
1SAVE AC TEST RESWLT
s VERIFY THAT CONTENTS REMAINED ZERO
1BRANCH IF EXPECTED RESULT
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

ALL ERRORS TO TRAP TO EMT VECTOR

MBTSC:

INCORRECTLY

1BAD ACa

l\lllm! ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

:1SEE IF R4 UNDER TEST
1BRANCH IF R4 UNDER TEST
+MOVE REGISTER CONTENT
1SAVE AC TEST RESWLT
tVERIFY THAT CONTENTS REMAINED ZERO
1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
tADDRESS OF ERROR MESSAGE

+SEE IF RO UNDER TEST
tBRANCH IF RO UNDER TEST

GLOBAL AREAS
KDJ11A. MAC
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
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054

MACY11l

15-MAR-84

003052
003054
003060
003064
003066
003070
003072

172405
174067
004767
001403
104000
000010
002013

003074
003076
003100
003104
003106
003110
003112
003116
003122
003126
003130

005204
000241
042704
001401
000261

006112
006162
006162
006162
103402
000167

003134
003136
003142
003144

005205
020527
100016
000167

003150
003154
003156
003162
003164
003170
003172
003176

005767
001010
005767
001005
005767
001002
005767
000207

30A

(4052) 15-MAR:94 16:38, RRGE
TR BIT TESTS

176016
000064

LDD
STD
JSR
BEQ
ERROR

AES.ACO
ACO,BTRES
R7,BTTST

.WORD

FPPERR

MBT8F:

177776

000002
000004
000006

INC
CLC
BIC
BEOQ
SEC
MBT8FG: ROL
ROL
ROL
ROL

175716
175712
175706

s VERIFY THAT CONTENTS REMAINED ZERO

MBT8F
10

0177776 ,RA
MBT8FG

(R2)
2(R2)

4(R2)
6(R2)

1BAD ACS

1BRANCH IF GOOD
tALL ERRORS TO TRAP TC EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
s INCREMENT PATTERN COUNTER

+ TEST FOR ODD /EVEN
sBRANCH IF EVEN
+SET CARRY FOR TEST PATTERN SHIFT
sROTATE LSW OF TEST PATTERN
sROTATE 2 WORD OF TEST PATTERN

sRCTATE 3 WORD OF TEST PATTERN
sROTATE 4 WORD OF TEST PATTERN

B87TGO

MBT8I:

INC
cHP
BPL
JMP

RS
RS, 06
MBTE
MBT2A

3G0 TO NEXT REGISTER TEST
$sSEE IF THROUGH TESTING
sJUMP IF THROUGH
;CONTINUE TESTING WITH NEW PATTERN

TTST:

TSY

BTRES
BTISTE
BTRES+2
BTTISTE
BTRES.4
BTTSTE
BTRES+6

s VERIFY CONTENTS AS ZERO
sEXIT IF NOT ZERO
1 VERIFY CONTENTS AS ZERO
$EXIT IF NOT ZERO
1VERIFY CONTENTS AS ZERO
sEXIT IF NOT ZERO
sVERIFY CONTENTS AS ZERO
1GO BACK TO CALLING ROUTINE

177272

175722

iMOVE REGISTER CONTENTS
1SAVE AC TEST RESUL

8Cs
JMP

177314

000006

SEQ 0025

BNE
TST
BNE
ST
BNE
ST
BTTSTE: RTS

003200

MBTE:

003200

éFACUs

MBTSI

sJUMP IF THROUGH WITH TEST PATTERN
sCONTINUE WITH NEW TEST PATTERN

11000080008000000000800000000000000000000000000000008000000000000

s#TEST 2

TEST UNIQUENESS OF FPP ACCUMULATORS

$30040000000000000000000400008000000000000004800000000000000000800

s THIS TEST LOADS UNIQUE PATTERNS INTO EACH ACCUMULATOR SIMULTANEOUSLY.
1R2=POINTER TO EXPECTED DATA
sR3=POINTER TO RECEIVED DATA
3508888088800 80408280000008000000000200202000000000000000000000000

003200
003200

005267

003204
003206

170011
005000

175600

T1ST2:

INC

$TESTN

+ INCREMENT TEST NUMBER

1SETUP FPP ACC POINTER

MFA;

SETD

CLR

GLOBAL AREAS
KDJ11A.MAC =

1055

1056
1037

1058
1059
1060

1061

1062
1063

1064

1065
1066

003210

003212
003216

MACY1l 308(1052)
15-MAR-84
1

005004

012702
012703

003222
003230
003236

012767
012767
012767

003252
003256

172467
174005

003244

003260

003264
003270

001066
001076

000051
000052
000053

012767

000054

004567

000240

172467
174004

175610

15-MAR.84
T2

16: 38,
PAGE 26
TEST UNIQUENESS OF FPP ACCUMULATORS

CLR

MOV
MOV

175636
175632
175626

OBTEXP,R2
0BTRES,R3

MOV
MOV
MOV

175622

951 ,BTEXP
052 ,BTEXP+2
953 ,BTEXP +4

MOV

iMOVE DATA TEMPORARILY
1PUT DATA INTO TEST REGISTER

BTEXP,ACO
ACO,AC4

sMOVE DATA TEMPORARILY
sMOVE DATA INTO TEST REGISTER

JSR

RS,SUBT

JSR

RS,SUBT

sSUBTRACT 10 FROM TEST DATA WORDS

JSR

RS,SUBT

$GET NEXT SET OF UNIQUE DATA WORDS

;GET NEXT SET OF TEST DATAS
;LOAD TEST REGISTER
sGET NEXT SET OF TEST WORDS
;LOAD FINAL TEST REGISTER

LDD
STD

003272

004567

000226

1069

003302

004567

000216

1071
1072
1073
1074

003312
003316
003322
003326

004567
172567
004567
172467

000206
175544
000176
175534

JSR
LDD
JSR
LDD

RS,SUBT
BTEXP,AC1
RS,SUBT
BTEXP,ACO

1076
1077
1078
1079

003332
003336
003342
003344

174067
004567
001403
104000

175540
000246

STD
JSR
BEQ
ERROR

ACO,BTRES
RS,BFA
BFAC1

1070

1075

003276

003306

172767

172667

1080
{%é

003346
003350

000011
002013

1083

003352

004567

1084
1085
1086
1087

003356
003362
003366
003370

174167
004567
001403
104000

1088
1089

003372
003374

000012
002013

1091

003376

004567

1090
1092
1093

003402
003406

174267
004567

1094

003412

001403

1096
1097

003416
003420

000013
002013

1099
1100

003422
003426

004567
174367

1095

1098
1101
1102
1102

1104
1105

1106
1107

1108

1109
1110

003414

003432
003436
003440

175564

LDD

175554

LDD

175514
000222

000154

175470
000176

004567
001403
104000

000130
175444

004567

000104

003454

174367

175416

004567

BFAC3:

000152

003446

172704

JSR

STD
JSR
BEQ
ERROR

000124

’

RS,ADDT

AC1,BTRES
RS,BFA
8FAC2

JSR

RS,ADDT

sALL REGISTER CONTAIN UNIGUE TEST WORDS

+STORE ACO,RESULT
sCHECK RESULT
sBRANCH IF GOOD
;ALL ERRORS TO TRAP TO EMT VECTOR

Acz.ames
RS,BFA

sUNIQUE ERROR NUMBER
Al Aco;nooaess OF ERROR MESSAGE
H

;UPDATE EXPECTED RESULT

:STORE AC1 RESULT
:CHECK RESULT
:BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

:1BAD RESULT AC1

1UPDATE EXPECTED RESULT

:STORE AC2 RESULT
:CHECK RESULT

BEQ

BFAC3

:BRANCH IF GOOD

.MORD
.MORD

13
FPPERR

;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

JSR
STD

RS, ADDT
AC3,BTRES

JSR
8EQ
ERROR

BFAC4:

sSTORE INTO TEST REGISTER

11
FPPERR

12
FPPERR

STD
JSR

$STORE INTO TEST REGISTER

BTEXP,AC2

LMORD
.WORD

ERROR

000014
002013

003860

BFAC2:

104000

003442
003444

003452

BFAC1:

1SUBTRACT TEN FROM EACH EXPECTED DATA

BTEXP,AC3

.WORD
.MORD

000200

;

BTEXP,ACO
ACO,ACS

1067

1068

1SETUP EXPECTED DATA
;
:

454 ,BTEXP +6

LDD
STD

175576

sPOINT TO TEST DATA
+POINT TO RECEIVED DATA

RS,BFA
BFAC4

.MORD
.WORD

14
FPPERR

JSR

RS,ADDT

STD

ACS,BTRES

LDD
JSR

AC4,AC3

RS,BFA

;ALL ERRORS TO TRAP TO EMT VECTOR

;8AD AC2 RESLUT

:UPDATE EXPECTED RESULT
:SAVE TEST RESULT

:CHECK RESWLT
:BRANCH IF GOOD
:ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

:BAD AC3 RESULT
:UPDATE EXPECTED RESULT

1SAVE TEMPORARY

:STORE AC4 RESULT

:CHECK RESULT

SEQ 0026

GLOBAL

—

3 VYOV
D wWhy

Pt Pt et s et Pt it Pt [dadet
et ot ad ol ol
=
P P et et et et s s —

AREAS
KDJ11A.MAC

003464
003466
003470
003472

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR-84
T2

16:58
PAGE 27
TEST UNIQUENESS OF FPP ACCUMULATORS

001403
104000
000015
002013

003474
003500
003502
003506
003512
003514
003516
003520

004567
172605
174267
004567
001456
104000
000016
002013

003522

000452

003524
003532
003540
003546
003554
003556
003564
003572
003600
003606

162767
162767
162767
162767
000205
062767
062767
062767
062767
000205

003610
003616
003620
003626
003630
003636
003640
003646

026767
001013
026767
001007
026767
001003
026767
000205

BEQ

BFACS

.WORD

FPPERR

JSR

RS,ADDT

ERROR
.WORD
BFACS:

000056

LDD
STD
JSR
BEQ

175370

000076

ERROR
.WORD

000010
000010
000010
000010
000010
000010
000010
000010

175334
175330

SuUBT:

175302

ADDT:

175324
175320

175276
175272
175266

175252

175260

175244

175252

175236

175244

175230

175236

BFA:

BFB:

003650

BFAE
:

003650

TSFP1:

ACS,AC2
AC2,BTRES
RS,BFA
BFAE

.WORD

FPPERR

BF AE

SuUB
SuUB

SEQ

1BRANCH IF GOOD

1ALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

1BAD AC4 RESULT
sUPDATE EXPECTED RESWLT
1SAVE TEMPORARY COPY
tMOVE ACS RESULT
sCHECK RESULT
1BRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE
1BAD ACS RESULT

sEXIT MODULE

sUPDATE EXPECTED CONTENTS
sUPDATE EXPECTED CONTENTS

SUB
gtrlg

@10,BTEXP .4
%O.BTExflfi

ADD

010,BTEXP

RTS

cHp
BNE
cve
BNE
cMP
BNE
cHp
RTS

BTEXP,BTRES
BFB
BTEXP+2,BTRES.2
8F8
BYEXP+4 ,BTRES+4
BFB
BTEXP+6,BTRES 6
RS

sVERIFY CONTENTS
sEXIT IF NOT ZERO
sVERIFY CONTENTS
sEXIT IF NOT ZERO
sVERIFY CONTENTS
sEXIT IF NOT ZERO
sVERIFY CONTENTS
1G0 BACK TO CALLING ROUTINE

ADD
ADD
ADD

sUPDATE EXPECTED CONTENTS
sUPDATE EXPECTED CONTENTS
'

@10,BTEXP.2
010,BTEXP+4
010,BTEXP+6

sUPDATE EXPECTED CONTENTS

sUPDATE EXPECTED CONTENTS
sUPDATE EXPECTED CONTENTS
sUPDATE EXPECTED CONTENTS

3 |...“.‘.0......‘..0.‘...‘.“‘..0....‘.00“..0.‘..........‘.‘O‘.

3oTEST 3

003650
003650
003654
003660
003664
003670
003674
003700
003704
003710
003712

TEST LDFPS AND STFPS MODE O

3 |..0..‘..“.“.“.‘...0.‘...‘..‘.......“....“.......“....00..

005267
005037
012704
004767
012704
004767
012704
004767
004767

TST3;

INC

CLR

STESTN

S0TRPFLG

1 INCREMENT TEST NUMBER

iCLEAR TRAP FLAG

MOV
JSR
MOV
JSR
MOV
JSR

2105252 ,.R4
PC,.LOST
042505,R4
PC,LOST

1SETUP DATA TO BE LOADED
1LOAD AND STORE FPS WITH DATA
1SETUP DATA TO BE LOADED
1LOAD AND STORE FPS WITH DATA
1SETUP DATA TO BE LOADED
1LOAD AND STORE FPS WITH DATA

JSR

PC,LOST

iLOAD AND STORE FPS WITH DATA

CLR

147757 ,R4
PC,LOST

1SETUP DATA TO BE LOADED

0027

GLOBAL

ARE AS

KDJ11A .MAC

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176

1177

1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203

003716
003722
003724
003726
003730
003732
003734
003736
003740
003742

MACY11l

30A( A?SZ)

000167

000020

15-MAR-84

15:

IS-HAngd

16:?85‘9 A

L8FP€8AND STFPS MODE O

170104
170201

LOST:

020401
001403
104000
000017
002013
000207

18:

FINL:

JMP

FIN1

LDOFPS
STFPS

R4
R1

CMP
BEQ
ERROR
.WORD
.WORD

R4 ,R1
14

RTS

SEQ

1LOAD FPS WITH DATA

1LOAD R1 WITH (FPS)

1DID THE INSTRUCTIONS WORK

1YES GO ON
tALL ERRORS TO

17
FPPERR

TRAP TO EMT VECTOR

1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
s RETURN

003742

TSFP2:
110000000000 00000000000000000000000000000000080000000000080800

1oTEST 4

003742
003742
003746
003752
003756
003762
003766

003772
003776
004002
004004
004010
004014

80808848

TEST CFCC

F10000000000000000000000000000000000008000000000000000

005267
005037
012704
004767
012704
004767
012704
004767

175036
002122
000017
000032
000012
000022
000005
000012

004767

000004

000167

000030

005004

170104
170000

004016
004020
004024
004030

020401

004032
004034
004036
004040

001403
104000
000020
002013

004042
004044

000207

013701
042701

00800880888

TSTa:;

INC
CLR
MOV
JSR
MOV
JSR
MOV
JSR

$TESTN
S0TRPFLG
e17,.R4
PC,TSF2
012,R4
PC,TSF2
o5,.R4
PC,TSF2

JSR

PC,TSF2

JMP

FIN2

LOFPS
CFCC

cHp

R4 ,R1

BEQ
ERROR
LMORD
.MORD

1s
20
FPPERR

RTS

CLR

H
3

TSF2:
177776
177760

MOV
8IC

16:

FIN2:

. aNCPEMENT TEST NUMBER
s1CLEAR TRAP FLAG
$SETLU? DATA TO BE LOADED
sLOAD 7PS AND COPY CONDITION CODES
$SETUP DATA TO BE LOADED
1LOAD FPS AND COPY CONDITION CODES
sSETUP DATA TO BE LOADED
sLOAD FPS AND COPY CONDITION CODES
1SETUP DATA TO BE LOADED
1LOAD FPS AND COPY CONDITION CODES

80177776,.R1
®177760,.R1

TSFP3:
3000000000000 0800400000000000000000000000000000000000000000000000

s¢TEST 5

004044
004044
004050
004054

TESY SETF,

SETD,

SETI,

SETL

3300800000408 0000000000000000000000002000000200000000000000000000000

005267
005037
012704

174734
002122
000200

1S715;

INC
CLR
MOV

S$TESTN
BOTRPFLG
#200,R4

TO PS
TO PS
TO PS

sLOAD FPS
:1COPY CONDITION CODES TO PS
:SAVE PS TO R1
tMASK OUT UNMANTED BITS
tMAS CONDITION CODE BITS TRANSFERRED
1CORRECTLY
1YES GO ON
tALL ERRORS TO TRAP 70 EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
iNC GO TO ERROR
iRETURN

004044

TO PS

1 INCREMENT TEST NUMBER
1CLEAR TRAP FLAG
1SETUP DATA TO BE LOADED

0028

REOTTR. AREAS 1sM
1A, ARA
308C4P52) 15 MAR
g4 16: 985 rPBP% 2%k 1D, sETI. SETL
G

1223

AREAS

004060

170104

1552 004069 170691
1225

004064

1226

004066

1228

004074

1227

170201

020127

004072

001403

004076
004100

000021
002013

004102
004104

170011
170201

1235

004110

001403

004114
004116

000022
002013

004120

012704

004126

170002

1234

1236

1237
1238
1239

1240

1241

1242

1243

1242
1245
1246

1247
1248
1249

1250
1251

004106

004112

004124

004130

004132
004136
004140

004142
004144

004146

004150

000000

020127
001403
104000

BEQ

.WORD
"WORD

18:

SETD
STFPS

cMP

BEQ

104000

170201

STFPS

ERROR

020104

170104

cHP

104000

1229
1230
1231
1232
1233

FPS

50%F

ERROR

JMORD
'WORD

000100

2s:

MOV

38:

170201

22
FPPERR

#100,R4

STFPS

JMORD
'MORD

170012

R1,R4

cMe
BEQ
ERROR

000023
002013

21
FPPERR

LOFPS

SETI
000000

R1,00

SETL

STFPS

R1,00
s
23
FPPERR
Rl

SEQ 0029
S

LOAD

FPS

RRRE FBo
1STORE FPS

+IS FD=0

1YES GO ON

JALL ERRORS TO TRAP TO EMT VECTIR

JUNIGQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
yNO GO TO ERROR
{MAKE FD=1
1STORE FPS

1 IS FDe1

s YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sNO GO TO ERROR

sSETUP DATA TO BE LOADED
sLOAD FPS

{MAKE FL=0
sSTORE FPS

+IS FL*O
1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
{NO GO TO ERROR

JMAKE FL=1

1STORE FPS

1252

004152

020104

1255
1256

004160
004162

000024
002013

1258
1259

004164

as:

1261
1262

004164

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

1253
1254

1257

1260

004158
004156

001403
104000

1265

+IS FLe1

LMORD
'MORD

24
FPPERR

JUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

3oTEST &

004164

1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

sNO GO TO ERROR

TEST ILLEGAL OP CODES AND STST

350 0 0 0 0 2000000000000000200000000000008000000000000000000000000

004164
004170
004174
004200

005267
005037
012705
013746

174614
002122
170003
000244

1274
1275

004230
004236

012737
005003

004438

1ST6:

1270 004204 012737 004380 000244
1271 004212 013746 000008
1272 004216 012737 004424 000004
1273 004224 013746 000010
004280
004242
004244

1266
1267
1268
1269

1276
1277
1278

R1,R4

BEQ
ERROR

1263

1264

170103
005002
010537

004250

000010

INC
CLR
MOV
MOV

STESTN
omcm.s
onooos
-(SP)

+INCREMENT TEST NUMBER
:CLEAR TRAP FLAG
+INIT OP CODE
1SAVE FP VECTOR

MOV
CLR

oILLOP2,8010
R3S

1SETUP NEW VECTOR
:

MOV
MOV
MOV
MOV

D1:

LOFPS
CLR
MOV

om.oix
ln.-(sh
OTIMEOU, 504
uto.-(i‘n

R3
R2
RS,8002

1SETUP NEM VECTOR
1SAVE TIME OUT VECTOR
1SETUP NEM VECTOR
1SAVE ILLEGAL VECTOR

1CLEAR FPS
b

tSETUP THE

ILLEGAL

INST

GLOBAL AREAS

KDJ11A . MAC

1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
izsgg

1301

ggg

MACY11

15-MAR-84

004250
004252
004254
004256
004260
004262
004264
004266

000000
170000
005202
005202
170201
104000
000025
002013

004270
004274
004276
004302
004304
004310
004312
004314
004316
004320
004324

022705
001003
012705
000755
022705
001001
000402
005205
000747
012637
012637

1318
1319

004374
004376

005004
170304

1323
1324
1325
1326
1327
1328
1329

004400
004404
004406
004412
004412
004414
004416

104000
000030
002013

{g;é

004420

000167

1333

1334

004424

022704
001002
000167

Da:

D5:
D6:

000104

022626
170201
022701
001403
104000
000027
002013

1330

170077

000167

004354
004356
004360
004364
004366
004370
004372

Té

16:58

170013

004334

1310
1311
1312
1313
1314
1315
1316

1320
1321
1322

170010

012637

022716
001403
104000
000026
002013

15-MAR-84

D2:
D3:

004330

004340
004344
004346
004350
004352

1317

15:51

000010
000004
000244

1304
1305
1306
1307
1308

1309

30A(1052)

004252

D7:

H
3

ILLOP1:

TEST

PAGE 30

25
FPPERR

CMP
BNE
MOV
BR
CMP
BNE
BR
INC
BR
MOV
MOV
MOV

#170010,RS
DS
#170013,RS
D1
#170077,RS
D6
D7
RS
D1
(SP).,8010
(SP)+,804
(SP)+,80244

JMP

FING

CMP
BEQ
ERROR
LHORD
.WORD

oD3,(SP)
1s

26
FPPERR

STFPS
cHe
BEQ

(SP)e,.(SP)+
R1
€100000,R1
28

LMORD
.WORD

27
FPPERR

CLR
STSY

.1}
R4

cHP
BNE
JMP

22,.R4
3s
Da

ERROR
LWORD
.WORD

30
FPPERR

JMP

ERROR

000002
177656

177644
3

104000

TIMEOU;

ILLEGAL OP CODES AND

.WMORD
CFEC
INC
INC
STFPS
ERROR
.WORD
.WORD

1s:
100000

ERROR

SEQ 0030

5TST

O
R2
R2
R1

aHEHORv WORDS TO BE USED WITH
aExECUTION OF ILLEGAL
OP CODE
lSAVE FPS
sALL. ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE
3GO TO ERROR
sCOMPUTE NEXT OP CODE
:
’
'
:
'
3
3
:
sRESTORE VECTORS
1
s

sDID TRAP OCCUR ON TEST INST
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

sNO GO TO ERROR

sCLEAN UP STACK
1STORE FPS
+IS FPS CORRECT
s YES
ON

sALL ERRORS TO TRAP TO EMT VECTOR

.ucm ERROR NUMBER
3sADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

;INT R4 TO A m STATE
1STORE FEC AT R4

s IF THE RSYM!IN MODE IS IMPROPERLY
:DECODED
AN ODD ADDRESS TRAP TO &
$SHOULD OCCUR
|!S FEC CORRECT
iNO GO TO ERROR
:YES GO ON

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

1GO0 TO ERROR

1 THEN GO ON

tALL ERRORS TO TRAP TO EAT VECTOR

GLOBAL AREAS

KDJ11A . MAC

MACY11

30A(1052)

15-MAR-84 15:%1

15-MAR-84

Té

F3
16:

1335
1336
1337
lggg
1
1340
1341
1342
1343

004434
004434
004436
004440

1345
1346

004442
004444

1348

004444

TSFPS:

004444
004444
004450
004454
004460
004466
004472
004474
004476
004500
004502
004506

TST7:

1344

1347

1349
1350

004426
004430

000031
002013

004432

000006

.WORD
.WORD

1364
1365
1366

1367

004510
004512
004514

RTT

ILLOP2:

104000
000032
002013
000006

FINA:

005267
005037
013746
012737
012703
170103
170020
170000
170201
022701
001403
104000
000033
002013

004534

012637

1377
g;g

004540

1385
1386

004552
003554

1388

004554

1387

1389

1390

RTT

30 0 0 0 0 0

170304
022704
001403
104000
000034
002013

1384

32
FPPERR

%0 01

sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
1ERROR BECAUSE OF TRAP TO 4
sRETURN

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

1+ERROR BECAUSE OF TRAP TO 10
tRETURN

10080000 00000400000000000000000000008000408040000008008884064
14TEST 7
TEST FID (INTERRUPT DISABLE BIT)

004516
004520
004524
004526
004530
004532

004544
004544
004546
004550

ERROR
JWORD
.WORD

1368
1369
1370
1371
1372
1373
1374
g;g

1380
1381
1382
1383

31
FPPERR

1351

1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363

PAGE

?EST ILLE&&L OP CODES AND STST

000167

174334
002122
000244
004544
040000

000244

140000

000002

000244

18:

28:

0000 0000000400000 0000000000000000000000086480080488844

INC
CLR
MOV
MOV
MOV
LOFPS
.WORD
CFCC
STFPS
cHP
BEQ
ERROR
.WORD
.WORD

$TESTN
SOTRPFLG
80244, -(SP)
QILL ,80244
#40000,R3
RS3
170020

s INCREMENT TEST NUMBER
sCLEAR TRAP FLAG
$SAVE FP VECTOR
:SETUP NEW VECTOR
;SETUP DATA TO BE LOADED
;LOAD FPS, FID=1
sILLEGAL FP INSTRUCTION

R1
€140000,R1
1s

$SEE IF ERROR WAS RECORDED IN FPS
]
sYES GO ON

STST
cHp
BEQ
ERROR
.WORD
.

R4
#2,R4
2%

34
FPPERR

MOV

(SP)+ 80248

JMP

FINS

ERROR
.WORD
.WORD

35
FPPERR

33
FPPERR

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

iNO GC TO ERROR

;SEE IF FEC=2
H
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
sRESTORE VECTOR

000010
3

104000
000035
002013

ILL:

000006

FINS:

RTTY

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

1FID ERROR

iRE

TSFP6:

$5400085000088004000000000000000000000000000000000000000000000000

;sTEST 10

TEST LDD, STD FSRC AND FDST MODE 1

GLOBAL AREAS

pfSB.SSTD FSRC AND FDST HMODE 1

KDJ11A.MAC

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
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446

FIRAAAARARARAAAAARARRRAAAALRAARRARALARLL04000000

004554
004554
004560
004564
004566
004570
004572
004576
004604
004610
004612
004616
004620
004622
004624

005267
005037
005004
170104
170011
013746
012737
012704
172414
020427
001403
104000
000036
002013

012701
012703
022421
001403
104000
000037
002013

077306
012704
174014
020427
001403
104000
000040
002013
012701
012703
022421
001403
104000
000041
002013

174224
002122

000004
004750
004740

000167

004730
004732
004734
004736
004740
004742
004744
004746

177777
000000
052525
125252
177777
000000
052525
125252

$TESTN
B0TRPFL.G
R4
R4

000004

0T1SF6,0804
@TS6DAT,R4

(R4),ACO

004740

T:-OYS6DAT
36

FPPERR

004730

0TS6DA,R1
04 ,R3

(R4)+,(R1)»
3s
37

FPPERR

001136

3s:

STD

001136

004730

Ss:

077306
012637
004724

0000A40000004044

TST10:

000030

T560A:
TS6DAT:

5538555y ¢ %8 gagmese gm

1391
1392
1393
1394
1395
1396
1397
1398
1399

SEQ 0032

RS, 24
OTSTLOC,R4

ACO,(R4)

2:.OTSTLOC
40

FPPERR

@TS6DA,RL
04,R3

(R4)+,(R1)»

64
41

FPPERR
R3,58

FING

177777
000000
052525
125252
177777
000000
052525
125252

1 INCREMENT TEST NUMBER

sCLEAR TRAP FLAG

1SETUP TO LOAD DATA
1CLEAR FPS
sSET FD 70 1
$SAVE TIMEOUT VECTOR
1SETUP NEW VECTOR
$sSETUP POINTER TO DATA
3 TEST INSTRUCTION
IS R4 CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;sADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
sSETUP POINTER TO DATE
s INIT COUNTER
sWAS SOURCE DATA ALTERED
sNO GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESUAGE
:YES GO TO ERROR
sARE WE DONE
sSETUP POINTER FOR DATA
s TEST INSTRUCTION
3IS R4 CORRECT
sYES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR

1UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
iNDO GO TO ERROR
:SETUP POINTER TO DATA
s INIT COUNTER
3+ IS DESTINATION DATA CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

s ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
:ARE ME DONE
iRESTORE VECTOR

GLOBAL

AREAS

KDJL11A.MAC =
1447

1448

1449

1450
1451
1452
1453
1454
1455
1456

1‘57

004750

MACI1L

15-MAR-84"

3OAC1052)

15:5

1S-MAR.84

tsre:

104000

004752
004758

000042
002013

004756
004760

000006

FING:
:
TSFP7:

004760

1464

004760

004760 005267
004764 005037
004770 012708

004774

170104

012704

005024

005026

005032
005033
005040
005044

172401

174114
004767
012704
012701

TST11:

174020
002122
000200

1472

000004

174014
004767
012701
172511
170001
172401
170011
012704
174114

1488
1489

005110
005114

012701
174011

001136

005126

000167

000062

1496

005132

012703

1498
1499

005140
005142

001403
104000

1502

TRAP

TO EMT

VECTOR

005136

005144
005146

TEST LDD, LOF FSRC MODE O

022421

001136

000043
002012

000004

s INCREMENT TEST NUMBER
;CLEAR TRAP FLAG
sSETUP TO LOAD FPS

MOV
MOV
MOV
LDD
MOV
LDD

904, -(SP)
OTSF7,504
@TS7DA1,R4
(R4),ACO
#TS70A2,R1
(R1),AC1

sSAVE TIMEOUT VECTOR
sSETUP NEW VECTOR
1SETUP POINTER TO DATA
sCLEAR ACO
sSETUP POINTER TO DATA
sLOAD AC1 WITH DATA

MOV

#TSTLOC,Re

STD
JSR
MOV
LDD
SETF
LOF
SETD
MOV
STD

000054
005164

AC1,ACO

sLOAD FPS, FD=1

s TEST INSTRUCTION

AC1,CR4)
PC, CHECK?
#TSTLOC,Ra
OTS7DAZ .R1

;CHECK IF AC1 HAS BEEN ALTERED
:
;SETUP POINTERS FOR DATA
:

AC1.ACO
orsn.oc
5

I1SETUP POINTER TO DATA
;CLEAR AC1
iSET FD=0
:+ TEST INSTRUCTION
:SET FD=1
:SETUP POINTER TO DATA
:CHECK IF AC1 MAS BEEN ALTERED

orsn.oc R1
(nu

'
{CHECK IF ACO HAS CORRECT DATA

ACO,(R4)
PC, CHECK?
#TSTDAL,R1
(R1),AC1

sCtECK IF ACO RECEIVED CORRECT DATA

JSR
MOV

ét-t
flé lu

JSR
MOV

66
tsé)-.m

JMP

FIN?

CHECK7: MOV

#4,R3

+INIT COUNTER

CHK7

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

MOV
STD

1490 005116 004767 000010
1491 005122 012637 000004

1500
1501

JUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
;00D ADDRESS TRAP
s RETURN

$TESTN
SOTRPFLG
0200,R4

STD
JSR
MOV
MOV

1486 005100 004767 000026
1487 005108 012704 005204

1497

JALL ERRORS

INC
CLR
MOV

LDD

000072
001136
005174

005050
005052
005056
005062
005064
005066
005070
005072
005076

1493

RTT

LDFPS

001136

1477
1478
1479
1480
1481
1482
1483
1484
1485

1494

42
FPPERR

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

013746 000004
012737 005154
012704 005164
172414
012701 005174
172511

1473
1474
1475
1476

ERROR

%0 sess

H |“.““.“.““‘.“.““““".‘0.““.“““"...““‘..‘..‘..

1465 004776
1466 005002
1467 005010
1468 005014
1469 005016
1470 005022
1471

Pest L85, 2310 FSRC AND FDST MODE 1

1aTEST 11

1‘59

1461
1962
1463

PAGE

JWORD
'WORD

1458

1460

110

H3
16:38

A
1

CHEK?:

CMP

8EQ
ERROR

.WORD
'WORD

(R&)s,(R1)+

43
FPPERR

:
iSETUP POINTERS FOR DATA

:
{RESTORE VECTOR

+IS DATA OK

{UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

'NO GO TO ERROR

AREAS
KDJ11A
. MAC

005150
005152

15 HAR B4 54052) 15-MAR
84 16: 9851086,
30or Fsrc mooE o
077306
000207

S08

R3,CHEK?
PC

RTS

005154
005154
005156
005160

104000
000044
002013

005162

000006

005164
005166
005170
005172
005174
005176
005200
005202
005204
005206
005210
005212
005214

CHK7:
TSF7:

ERROR

.WORD
.WORD

44
FPPERR

RTT
3

TS7DA1:

000000
000000
000000
037641
065121
037373

TS7DA2:

022265

000000
000000
037373
022265

TS7DA4:

FIN7:

SE17

1ARE WE DONE

1 YES RETURN

1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE
10DD ADDRESS TRAP
sRETURN

.WORD

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

37641
65121
37373
82265

.WCRD
.WORD
.WORD

0
57373
22265

,WORD

005214

TSFP10:
138080480280080000000000840000000000008800080208080000800888848808

1«TEST 12

TEST STD,

STF FDST MODE O

88408

3300888000380 0840800020000000000000040000000000000400880008800088088008

005274

005312
005316
005322
005324
005326
005332
005334
005340

173564
002122

005267
005037
012704
170104
013746
012737
012704
172414
012701
172511
174100
012704
174114
004767
012704
012701
174014
004767
012701
172511
170001
174100
170011
012704
174114
004767
012704

TST12:

355844453y 583553585833580

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
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558

o000

GLOBAL

005410
005420
005430
001136
000072
001136
005430
005420

001136
000026
005440

S$TESTN
ROTRPFLG
9200,R4
R4
..‘.-(SP)

s INCREMENT TEST NUMBER
;CLEAR TRAP FLAG
sSETUP TO LOAD FPS

#7S10D1,R4
(R4),ACO

sSETUP POINTER TO DATA

OTSF10,804

R AL
AC1

ACO

$1STLOCe
PC.CHEC10

#TSTLOC,R4
#751002.R1

PC,

#751001,R1
(R1),AC1

AC1,ACO

OTSTLOC,
R4

AC1,(R4)

PC,CHEC10

@TS10D4
R4

:LOAD FPS, FD=1
;SAVE TIMEOUT VECTOR
1SETUP NEW VECTOR

;CLEAR ACO
1SETUP POINTER TO DATA
;LOAD AC1 MWITH DATA
:+ TEST INSTRUCTION
i

+CHECK IF AC1 HAS BEEN ALTERED
i

1SETUP POINTERS FOR DATA
:

1CHECK IF ACO RECEIVED CORRECT DATA
i

1SETUP POINTER TO DATA
1CLEAR AC1
1SET FD=0
i+ TEST INSTRUCTION
1SET FD=1
1SETUP POINTER TO DATA
tCHECK IF AC1 HAS BEEN ALTERED
L}

1SETUP POINTERS FOR DATA

0034

GLOBAL AREAS
KDJ11A .MAC

1559
1560
1561
1562

1563
1564
1565

1566
1567
1568
1569
1570
1571
1572
1573

1574
1575
1576
1577
1578
1579
1580
1581
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593

1594
1595
1596
1597
1598
1599
1600
1601

1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614

005344
005350
005352

MACY11l

30A(1052)

012701

001136

15-MAR-84
174011

15:51

005356

004767
012637

000010
000004

005362

000167

000062

005366
005372
005374
005376
005400
005402

012703
022421
001403
104000
000045
002013

005404
005406

077306
000207

16:58
PAGE 35
TEST STD, STF FDST MODE O
MOV

ACO,(R1)
PC,CHEC10
(SP)+,a04

JMP

FIN10O

CHEC10: MOV
CH10:
CMP
BEQ
ERROR
.WORD
.WORD

CHK10:

SOB

RTS

104000
000046
002013

005416

000006

TSF10:

ERROR

.WCRD
.WORD

04 ,R3
(R4)+,(R1)»
CHK10
45
FPPERR

R3,CH10

46
FPPERR

RTT
3

TS10D1:

000000
000000
000000
177777
111236
100045
003651
000000
000000
100045
003651

TS10D2:

TS10D4:

FIN10O:

.WORD
.MWORD
.WORD
MWORD
.WORD
LWORD

.WORD
LMORD
.WORD
.MORD
.WORD
.WORD

SEQ 0035

#TSTLOC,R1

STD
JSR
MOV

005410
005410
005412
005414

005420
005422
005424
005426
005430
005432
005434
005436
005440
005442
005444
005446
005450

000004

17-MAR-84
T12

1CHECK IF ACO HAS CORRECT DATA
i

+RESTORE VECTOR

s INIT COUNTER
+IS DATA OK
s YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
E
WE DONE
sAR
i YES RETURN
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
;0DD ADDRESS TRAP

0
O
O
O

177777

111236
100045
3651
O
O
100045
3651

005450

TSFP11:

$3088508882083000880008400000000008002280080820020002000000000003082

:oTEST 13

005450
005450
005454
005460
005464
005466
005472
005474
005476
005500
005504
005506
005512

TEST FDST SINGLE OPERAND MODE O

3390808088 04840040088400008008002080000004800000002000200800800000000

005267
005037
012704
170104
012704
172414
170400
170203
012704

174014

012701
022427

173330
002122
006200

TST13:

INC
CLR
MOV

LOFPS

STFPS

005550

MOV
LDD
CLRD

001136

MOV
18;

$TESTN
BO¢TRPFLG
9200,R4

#TS11D1,Re
(R4),ACO
ACO

:1SET FD=1

1SETUP POINTER TO DATA
1LOAD ALL ONES TO ACO
t+ TEST INSTRUCTION
iGET FPS

OTSTLOC,R4

94 ,R1

+ INIT COUNTER

STD

ACO, (R4 )

cMP

(R4).,00

MOV

s INCREMENT TEST NUMBER
:CLEAR TRAP FLAG
:SETUP TO LOAD FPS

1CHECK ACO FOR ALL ZEROES
i

GLOBAL

AREAS

MACY11l

005516
005520
005522
005524

001403
104000
000047
002013

005526
005530
005534
005536
005540
005542

077107
020327
001403
104000
000050
002013

30A(1052)

KDJ11A.MAC = 15-MAR-84 15:51
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625

1626

1627
1628

005544

{ggg

005544

1629
1632
1633
1634
1635
1636

005550
005552
005554
005556
005560

1638

005560

1637
1639

1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656

1657
1658
1659
1660

1661

000204

as:

24
47
FPPERR

S08
CMP
BEQ
ERROR
.WORD
.WORD

R1,1$
R3, 0204
34

JMP

FIN11

.WORD
. WORD
.WORD
.WORD

177777
177777
177777
177777

50
FPPERR

33:
000167

000010

i
i

177777
177777
177777
177777

TS1101:

FIN11:

e S

10K GO ON
|ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
t+ARE WE DONE
sCHECK FPS
30K GO ON
sALL ERRORS 70 IRAP TO EMT VECTOR
tUNIQUE ERROR NUMB!
s ADDRESS OF ERROR 'ESSAGE

iNO GO TO ERROR

TSFP12:

1080000 00840000040000000000000000880408080000800000584880888488

;oTEST 14

005560
005560
005564
005570
005574

173220
002122
040200

005604
005610
005612
005614
005616

005267
005037
012703
170103
170407
170204
170305
022704
001403
104000
000051
002013

005620
005624
005626
005630
005632

022705
001403
104000
000052
002013

000002

005576
005600
005602

TEST FDST SOP MODE O WITH ILLEGAL AC7

330080000 0008080000000000000000000000480008000400008080800288888088884
TST“:
INC
CLR
MOV
LOFPS
CLRD
STFPS
STST
cp
BEQ
ERROR
.WORD
.WORD

140200

18:

005634

2%:

1665

005634

TSFP13:

1669
1670

005634
005634

1666
1667
1668

' 7Rs1"PBEr 8 InaLe oPERAND MODE o

1662
1663

1664

IK3

16:

BEQ
ERROR
.WORD
.WORD

1640

1641
1642

15-MAR-84

cHe
BEQ
ERROR
.MORD
.WORD

S$TESTN
SOTRPFLG
#40200,R3
R3

AC7
R4
RS

#140200,R4
1s

S1
FPPERR
#2,.R5
2¢

52
FPPERR

s INCREMENT TEST NUMBER
sCLEAR TRAP FLAG
nSEflP TO LOAD FPS
:1SET FID=1, AND FD-1
s+ TEST INSTRUCTION
iGET FPS
;GET FEC

+IS FPS CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
1NO GO TO ERROR
+IS FEC CORRECT
1 YES
ON
i1ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

1508080060 0000000000040000048000000000000000000200000000000000020
ssTEST 15
TEST FDST SOP MODE 1
$30080800084000000000000008000800000000000000020000000004000000000

005267

173144

TST1S:

INC

$TESTN

1 INCREMENT

TEST NUMBER

005640
005644
0056352
005656
005662
005664
005670
005674
005700
005702
005706
005710
005712
005716
005720
005722
005724

001403
104000
000053
002013

005726
005732
005736
005740
005742
005744

012701
022227
001403
104000
000054
002013

005746
005750
005754
005756
005760
005762

077107
020327
001403

3s:

104000
000055
002013

005764

012637

005770

000167

013746
012737
005037
012702

000004
005774
002122
000200

012705
012704
012724
077503
012702
170412
170203

000004
001136
177777

020227

MOV

000004

100¢:

001136

006002

000006

1 SAVE TIMEOUT VECTOR
1SETUP NEW VECTOR

0TSF13,804
80TRPFLG
©#200,R2
R2
@4 ,R5
OTSTLOC,R4
0177777,(R4)+
R5,1004
@TSTLOC,R2

001136

FPPERR

(RZ)'0.0
3%

FPPERR

R1,2%
R3, 0204
44

FPPERR
a3

000010

1CLEAR TRAP FLAG

1SETUP TO LOAD FPS
$1SET FD=1
s INIT COUNTER
1SETUP POINTER TO TEST LOCATION
+MOVE ALL ONES TO TEST LOCATION
1ARE WE DONE
sSETUP POINTER TO DATA
s _TEST INSTRUCTION
;GET FPS

TSF13:

FIN1S:

006004

TSFP14;

;sADDRESS OF ERROR MESSAGE
sYES GO TO ERROR
s INIT COUNTER
sCHECK LOCATION FOR O
GO ON
;0K
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERRCR MESSAGE
;NO GO TO ERROR
MWE DONE
sARE
sCHECK FPS
GO ON
sOK
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
sRESTORE VECTOR

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

006004

sWAS R2 ALTERED

GO ON
iNO
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

FIN13

104000
000056
002013

SEQ 0037

(R2)

005774
005774
005776
006000

R3
R2,0TSTLOC
1¢

LIRS

170102

16:58
PAGE 37
TEST FDST SOP MODE

1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726

15:51

15-MAR-84
T15

1687

15-MAR-84

30A(1052)

“w

1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686

MACYil

AREAS
KDJ11A.MAC

GLOBAL

F58888500800008800000080000080000000000040300000000000000000000008

s #TEST 16

006004
006004
006010
006014
006022
006026

TEST FDST SOP MODE 2

3308884845500 0400088800000000000800000008000000000000000000000200000

005267
013746
012737
005037
012702

172774

000004
006150
002122
000200

TST16:

$TESTN
O0TSF14,804

SOTRPFLG
#200,R2

1 INCREMENT TEST NUMBER
1SAVE TIMEQUT VECTOR
1SETUP NEW VECTOR
1CLEAR TRAP FLAG
1SETUP TO LOAD FPS

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

30A(1052)

15-MAR-84 15:51

006032
006034
006040
006044
006050
006052
006056
006060
006062
006066
006070
006072
006074

170102
012705
012704
012724
077503
012702
170422
170203
020227
001403
104000
000057
002013

006076
006102
006106
006112
006114
006116

006120

012702
012701
022227
001403
104000
000060
002013

006122
006124
006130
006132
006134
006136

077107
020327
001403
104000
000061
002013

006140

012637

006144

000167

000004
001136
177777

15-MAR-84
T16

16:58

100§

001136

1773
1774
1775
1776
1777
1778
1779
1780
1781
1782

000006

Re
04 ,RS
@TSTLOC,R4
@177777,(R4)
.
R5,100%
#TSTLOC,R2

1SET FD=1

;GET FPS

s INIT COUNTER
$SETUP POINTER TO TEST LOCATION
tMOVE ALL ONES TO TEST LOCATION
tARE WE DONE
;sSETUP POINTER TO DATA
3 TEST INSTRUCTION

(R2)+

?%.OTSTLOCOIO
57

FPPERR

001136

SEQ 0038

SOP MODE 2

#TSTLOC,R2
04 ,R1

(R2)+,00
3

3IS R2 CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
sSETUP POINTER TO DATA
;sINIT COUNTER
sCHECK LOCATION FOR O
sYES GO ON

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

FPPERR

000204

33:

61
FPPERR
43

000010
TSF14:

FINLA:

006160

TSFP1S:

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

FIN14

FPPERR

[

006160

ERROR

R1,2%
R3, 0204
4%

~—

006156

soB
MOV
CLRD

104000
000062
002013

MOV
MOV
MOV

001146

006150
006150
006152
006154

TEST FDST

LDFPS

1758

1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772

PAGE 38

KDJ11A. MAC

MACY11l

-y

GLOBAL AREAS

1ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:0DD ADDRESS TRAP
iRETURN

$188880088583488000300400080000000000088020000000000008002000000000

s#TEST 17

006160
005160
006164
006170
006176
006202
006206
006210
006214

TEST FDST SOP MODE 3

3 308 8 050 00800008000000000000080000040000200000200000000000000200

005267
013746
012737
005037
012702
170102
012705
012704

172620

006370
002122
000200
000011
001136

TST17:

S$TESTN
804, -(SP)
OTSF15,004
SO0TRPFLG

#200,R2
R2
”. “

oTSTLOC,
R4

1 INCREMENT TEST NUMBER
1SAVE TIMEQUT VECTOR
:SETUP NEM VECTOR
iCLEAR TRAP FLAG
1SETUP TO LOAD FPS
1SET FD=1

1 INIT COUNTER
1SETUP POINTER TO TEST LOCATION

GLOBAL AREAS
KDJ11A.MAC

006220
006224
006226
006234
006240
006242
006244
006250
006252
006254

30A(1052)

15-MAR-84 15:51
012724
077503
012737
012702

170432
170203

020227
001403

15-MAR-84
T17

177777
001150
001136

16:58
PAGE 39
TEST FDST SOP MODE 3

100¢:

MOV

001136

001140

104000
000063
002013
012702
022227
001403

1$:

000004
177777

04,R1

(R2)e,0177777

000010
3

TSF15:

000006

B i 2 gEiite §§§3§§

78:

-y

6%:

006400

FIN1S:

006400

TSFP16:

_TEST INSTRUCTION

1IS R2 CORRECT

tALL ERRORS TO TRAP TO EMT VECTOR

sADDRESS OF ERROR MESSAGE

sNO GO TO ERROR

sSETUP POINTER 7O DATA

;IS DATA CORRECT

;YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

;sINIT COUNTER

IS LOCATION ALL ONES

sYES GO ON

sUNIQUE ERROR NUMBER

FPPERR

006376

sUNIQUE ERROR NUMBER

FPPERR

012637

104000
000070
002013

077107
020327
001403
104000
000067
002013

006370
006370
006372
006374

s YES GO ON

077107
012701
022227
001403
104000
000066
002013

000167

1GET FPS

(R2)+,0TSTLOC+12

104000

006364

R3
R2,6TSTLOC+2
1

@TSTLOC,R2

000064
002013

012701
022227
001403
104000
000065
002013

+ INIT TEST LOCATION
+ARE WE DONE
s INIT TEST LOCATION
s SETUP POINTER TO DATA

FPPERR

001136
001150

SEQ 0039

@177777,(R4)+
R5,1004
@TSTLOC+12,80TSTLOC
OTSTLOC,R2

8(R2)+

1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1852
1833
1834
1835
1836
1837
1838

MACY11l

R1,3$

#4,R1
(R2)+,00

sALL ERRORS TO TRAP TO EMT VECTOR

sADDRESS OF ERROR MESSAGE

sNO GO TO ERROR

sARE WE DONE

s INIT COUNTER
IS LOCATION O

3YES GO ON

66
FPPERR

sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

R1,58

RS, 0204

sALL ERRORS TO TRAP TO EMT VECTOR

iNO GO TO ERROR

sARE ME DONE

;CHECK FPS

;0K GO ON

;UNIQUE ERROR NUMBER

FPPERR

(SP)+,804

sALL ERRORS TO TRAP TO EMT VECTOR

;1ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

:RESTORE VECTOR

FIN1S

FPPERR

1ALL ERRORS TO TRAP TO EMT VECTOR

tUNIQUE ERROR NUMBER

;1ADDRESS OF ERROR MESSAGE

100D ADDRESS TRAP
1RETURN

GLOBAL AREAS
KDJ11A . MAC

MACY1l 30A(1052)
15-MAR-84 15:51

1839

006400
006400
006404
006410
006416
006422
006426
006430
006434
006440
006444
006446
006452
006454
006456
006462
006464
006466
006470

005267
013746
012737
005037
012702
170102
012705
012704
012724
077503
012702
170442
170203
020227
001403
104000
000071
002013

1862
1863
1864
1865
1866
1867

006472
006476
006502
006504
006506
006510

012701
022227
001403
104000
000072
002013

1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882

006512
006514
006520
006524
006526
006530
006532

077107
012701
022227
001403
104000
000073
002013

006534
006536
006542
006544
006546
006550

077107
020327
001403
104000
000074
002013

{ggg

006552

012637

000004

006556

000167

000010

1886

%g:;

1889
1890
1891
1892
1893
1894

SEQ 0040
00

TEST FOST SOP MODE 4

F100000000000000R0RR00000R000000000000000000000000008000

1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860

1883

16:58
PAGE 40
TEST FDST SOP MODE 4

1¢TEST 20

1841

1868

130000000000000000000000000000000000000000000000000000000008000

1840

1861

15-MAR-84
120

172400
000004
006562
002122
000200

000010
001136
177777

TST20:

1008:

001146
001136

000004
000000

000004
177777

000204

1%:
2s:

3s:
as:

5%:

68:

000000044

INC
MOV
MOV
CLR
MOV
LOFPS
MOV
MOV
MOV
S08
MOV
CLRD
STFPS
CHP
BEQ
ERROR
LMORD
.WORD

$TESTN
804, -(SP)
@TSF16,804
SO0TRPFLG
9200,R2
R2
#8. ,R5
@TSTLOC,R4
@177777,(R4).
R5,100%
@TSTLOC.10,R2
-(R2)
R3
R2,0TSTLOC
1

MOV
CHP
BEQ
ERROR
JMWORD
.WORD

04,R1
(R2)+,00
3s

71
FPPERR

72
FPPERR

S08
MOV
cHe
BEQ
ERROR
.MORD
.WORD

R1,2%
04,.R1
(R2)+,0177777
Ss

S08
cHe
BEQ
ERROR
LMORD
.,WORD

R1,4%
R3,0204
68

MOV

(SP)s 804

JMP

FIN1®

ERROR
LMORD
.HMORD

75
FPPERR

FPPERR

74
FPPERR

1 INCREMENT TEST NUMBER
1SAVE TIMEOUT VECTOR
1SETUP NEW VECTOR
1CLEAR TRAP FLAG
1SETUP TO LOAD FPS
1SET FD»1
1 INIT COUNTER
1SETUP POINTER TO TEST LOCATION
s INIT TEST LOCATION
1ARE WE DONE
$SETUP POINTER TO DATA
s _TEST INSTRUCTION
sGET FPS
31IS R2 CORRECT
sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

1NO GO TO ERROR

s INIT COUNTER
+IS LOCATION O
1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

sNO GO TO ERROR

1ARE WE DONE
s INIT COUNTER
+IS LOCATION UNCHANGED
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
sARE WE DONE
1CHECK FPS
10X GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

1RESTORE VECTOR

s
[

006562
006562
006564
006566

104000
000075
002013

006570

000006

TSF16:

RTT

1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
100D ADDRESS TRAP
1RE TURN

GLOBAL

ARE AS
KDJ11A, MAC

1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939

1940
1941
1942

1943
1944
1945
1946
1947
1948
1949
1950

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR-84

120

16:58

TEST

PAGE 41
FDST

SOP MODE

C4
SEQ N041

[

006572

FIN16:

006572

TSFP17:

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

1oTEST 21

006572
006572
006576
006602
006610
006614
006620
006622
006626
006632
006636
006640
006646
006652
006654
006656
006662
006664
006666
006670
006672
006676
006700
006702
006704

|;0‘0“..“.‘0‘.0‘..‘.0..“0““‘““00‘0“

005267
013746
012737
005037
012702

170102

012705
012704
012724
077503
012737
012702
170452

170203
020227

001403
104000
000076
002013

022227
001403
104000
000077

TST21:

172206

000004

006776
002122
000200

000004

000011
001136
1777727
001150
001140

100%:
001136

022227
001403
104000
000100
002013

006726
006730
006734
006740
006742
006744
006746

077107
012701
022227
001403
104000
000101
002013

012701

077107
020327
001403
104000
000102
002012

INC

804, -(SP)

CLR

80TRPFLG

MOV
LOFPS
MOV
MOV
MOV
S08
MOV
MOV
cHP

BEQ
ERROR
. WORD
.WORD

1$:

28:

3%:

6%:

OTSTLOC+12,80TSTLOC

OTSTLOC.2,R2
8-(R2)
RS3

R2,0TSTLOC

$1SETUP TO LOAD FPS
$SET FD=1
s INIT COUNTER
1SETUP POINTER TO TEST LOCATION
sINIT TEST LOCATION
sARE WE DONE
s INIT TEST LOCATION
sSETUP POINTER TO DATA

3 TEST INSTRUCTION
s1GET FPS

31IS R2 CORRECT

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

.WORD

FPPERR

MOV

84 ,R1

BEQ

sYES GO ON

.WORD

100

sUNIQUE ERROR NUMBER

S0B

(R2)e, 0177777

FPPERR
R1,38

MOV

o4 ,R1

BEQ

.WORD

101
FPPERR

S08
cHP
BEQ

R1,58
R3, 0204
74

ERROR
. WORD

000204

0200,R2
R2
9. .R5
@TSTLOC,R4
0177777,(R4).
RS,100¢

$1SETUP NEW VECTOR

1CLEAR TRAP FLAG

.WORD

LHORD

Ss:

1SAVE TIMEOUT VECTOR

OTSF17,804

cHp
BEQ

ERROR

1 INCREMENT TEST NUMBER

1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
76
sUNIQUE ERROR NUMBER
FPPERR
sADDRESS OF ERROR MESSAGE
sNO GO TO ERROR
(R2)+,08TSTLOC.12
3 IS DATA CORRECT
23
sYES GO ON

ERROR

000004
177777

$TESTN

MOV

CLRD
STFPS

001136

001150

00000.0.‘.0“0‘00‘00.0

MOV

002013

006706
006712
006716
006720
006722
006724

006750
006752
006756
006760
006762
006764

‘.“00‘

TEST FDST SOP MODE S

ERROR

HWCRD

.WORD

(R2)+,00

102

FPPERR

3ADDRESS OF ERROR MESSAGE

sNO GO TO ERROR
s INIT COUNTER

3IS LOCATION ALL ONES

sALL ERRORS TO TRAP TO EMT VECTOR

1ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR
sARE NE DONE

1 INIT COUNTER

IS LOCATION ©

:YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERRGR NUMBER

1 ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR
1ARE WE DONE
1CHECK FPS

10X GO ON
tALL ERRORS TO TRAP TO EMT VECTOR

tUNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

RbITIa ARE"S
195]
1953

1958
1956

1957

|s"HRA'44308C4952)

006766

012637

000004

78:

006772

000167

000010

006776

TSF17:

104000

007000
007002

000103
002013

1961

007004

000006

1962

16:
PAGE
58.
920p MooE

]

1958
1959

1960

15 MAR;B4

007006

FINL7:

1965

007006

TSFP20:

1%6

1969

1970
1971
1972
1973
1974

007006

007036
007042
007046
007052

012705
012708
012728
077503

000010
001136
177717

1981
1982

007060
007064

170462
170203

000007

1984
1985

007072
007074

1983

007034

007054

007066

170102

012702

020227

001403
104000

1986
1987

007076
007100

000104
002013

1989
1990

007102
007106

012702
012701

1988

1991

1992
1993
1994
1995

199
1997

1998
1999
2000
2001
2002
2003

2004
2005
2006

103
FPPERR

RTT

J1ALL ERRORS TO TRAP TO EMT VECTOR
JUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

;00D ADDRESS TRAP
sRE TURN

007112

007116
007120
007122
007124

007126

007130
007138
007140
007142
007144
007146

007150
007152

TEST FOST SOP MODE 6

F1000000000000000000000000000000000000000000000080000080006088004

171772
002122
000004
007176
000200

1980

ERROR

JRESTORE VECTOR

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

005267
005037
013746
012737
012702

1976
1977
1978
1979

FINL?

14TEST 22
007006
007012
007016
007022
007030

1975

JMP

SEQ 0042

1967

1968

(SP)+, 004

LWORD
'WORD

1963

1964

MOV

022227

001403
104000

TST22:

1008:

012701
022227
001403
104000

000004
000000

18:
2%:

38:

as;

000106
002013

077107
020327

000204

MOV
MOV
MOV
S08

8. RS
oTSTLOC,Re
0177777.(R8),
RS, 1004

CLRD
STFPS

7(R2)
RS

sINIT COUNTER
sSETUP POINTER TO TEST LOCATION
s INIT TEST LOCATION
sARE WE DONE
sSETUP POINTER TO DATA

s TEST INSTRUCTION
iGET FPS

:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

OTSTLOC1,R2

R2,0TSTLOC.1

LMORD
'MORD

104
FPPERR

MOV
MOV

#TSTLOC,R2
04,R1

BEQ
ERROR

000105
002013

077107

s INCREMENT TEST NUMBER
;CLEAR TRAP FLAG
sSAVE TIMEOUT VECTOR
sSETUP NEW VECTOR
1SETUP TO LOAD FPS

MOV

001137

177777

$TESTN
80TRPFLG
804, -(SP)
#TSF20,504
9200,R2

LOFPS

001137

001136
000004

INC
CLR
MOV
MOV
MOV

cHp

sSET FDe1

:IS R2 CORRECT

JUNIGUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

sNO GO TO ERROR

1SETUP POINTER TO DATA
1 INIT COUNTER

(R2)e, 0077727

:1IS DATA CORRECT

LMORD
'WORD

105
FPPERR

tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

S08

R1,24

MOV
cHe
8EQ
ERROR

04.R1
(R2).,00
S4

LWORD
'WORD

106
FPPERR

S0B
cMP

R1,44
RS, 0204

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

iNO GO TO ERROR

1ARE WE DONE

+INIT COUNTER
1IS DATA CORRECT
1YES GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR

1ARE WE DONE
115 FPS CORRECT

GLOBAL AREAS
KDJU11A .MAC

2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018

2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030

2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056

2057
2058
2059
2060
2061
2062

007156
007160
007162
007164

MACK1L
30AC1052)

15-MAR-

E4
15-MAR.
138

16:30

001403

PPBE1*%0p MoDE

BEQ

104000

ERROR
.WORD

000107
002013

007166

012637

000004

007172

000167

000010

6$:
H

SEQ 0043

1YES GO ON

sALL ERRORS TO TRAP TO EMT VECTOR
JUNIQUE ERROR NUMBER

107

.WORD

FPPERR

MOV

(SP).,804

JMP

FIN20O

1ADDRESS OF ERROR MESSAGE

sNO GO TO ERROR
sRESTORE VECTOR

007176
007176
007200
007202

104000
000110
002013

007204

000006

TSF20.:

ERROR
JWORD
'WORD

110
FPPERR

RTT

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

;00D ADDRESS TRAP
s RE TURN

007206

FIN20:

007206

TSFP21:

[

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

1aTEST 23

007206
007206
007212
007216

007222

007230
007234
007236
007242
007246
007252
007254
007262
007266
007272
007274
007300

TEST FOST SOP MODE

3 |;5;.‘.‘..“‘..“"..‘....‘0.‘0.0..0“‘....‘...‘.0‘.0..0.....0..

005267
005037
013746
012737
012702
170102
012705
012704
012724
077503
012737
012702
170472
170203
020227
001403

007302
007304
007306
007310
007314
007320
007324
007326
007330

007332

104000
000111
002013
012702
012701
022227
001403
104000
000112
002013

007334
007336
007342
007344

077107
022227
001403
104000

171572

002122
000004
007420 000004
000200
000010

001136

177777
:

001136 001146

1008:

001141
000005
001141

001136
000004

000000

001136

18:
23:

38:

INC

STESTN

CLR
MOV
MOV
MOV
LOFPS
MOV

SOTRPFLG
904, -(SP)
oTSF21,504
9200,R2

MOV
S08

nrmv (Ra).
1008

+INCREMENT TEST NUMBER

:CLEAR TRAP FLAG
iSAVE TIMEOUT VECTOR
1SETUP NEW VECTOR
:SETUP TO LOAD FPS
sSET FDe1
s INIT COUNTER

MOV

otsh.ocRe

I1SETUP POINTER TO TEST LOCATION

MOV

otinoc.utsnocoxo

{INIT TEST LOCATION

MOV
CLRD
STFPS
o
BEQ
ERROR

#TSTLOC+S,R2
@5(R2)
R3S
R2,0TSTLOC.S
18

MOV
MOV
cMp
BEQ
ERROR

#TSTLOC,R2
04,R1
(R2)»,80
EY)

LWORD
‘WORD

112
FPPERR

S08

R1,2$

JMORD
'MORD

cHP
8EQ
ERROR

111
FPPERR

(R2)+,0TSTLOC
as

sINIT TEST LOCATION
:ARE WE DONE

1SETUP POINTER TO DATA
$484TEST INSTRUCTIONess
1GET FPS
1IS R2 CORRECT
:YES GO ON
iNO GO TO ERROR
iALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

iSETUP POINTER TO DATA
+INIT COUNTER
1IS DATA CORRECT
1YES GO ON
+ALL ERROR
TO TRAP S
TO EMT VECTOR
tUNIQUE ERROR NUMBER
{ADDRESS OF ERROR MESSAGE

'NO GO 7O ERROR

1ARE WE DONE

+IS DATA CORRECT
1YES GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR

GLOBAL AREAS
KDJ11A
. MAC

007346
2063
2064
007350
2065
2066
007352
2067
007356
2068
007362
2069
007364
2070
007366
2071
007370
2072
2073
007372
2074
007374
2075
007400
2076
007402
2077
007404
2078
007406
2079
2080
007410
2081
2082
2083
007414
2084
2085
007420
2086
007420
2087
007422
2088
007424
2089
2090
007426
2091
2092
007430
2093
007430
2094
2095
2096
2097
007430
2098
007430
2099
007434
2100
007440
2101
007444
2102
007452
2103
007456
2104
007460
2105
007464
2106
007470
2107
007474
007476
2108
2109
007504
2110
007510
2111
007512
2112
007516
2113
007522
2114
007526
2115
007530
2116
007532
2117
007534
2118

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR-84
T23

F4
16:

000113
002013

012701
022227
001403
104000
000114
002013
077107
020327
001403
104000
000115
002013

as;
S$:

000003
177777

JWORD
'WORD

113
FPPERR

MOV
CMP

03,R1
(R2)+,0177777

BEQ

LMORD
.WORD

114
FPPERR

So8

R1,5$

ERROR
682

000204

012637

000167

q4
tes1 PAFBEr*d0p
mMoDE 7

000010

JUNIQUE ERROR NUMBER
{ADDRESS OF ERROR MESSAGE

1NO GO TO ERROR

+INIT COUNTER
1IS DATA CORRECT

1YES GO ON

1ALL ERRORS TO TRAP TO EMT VECTOR

JUNIGQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
'NO GO TO ERROR

1ARE WE DONE

R3, 2204

1CHECK FPS
sALL ERRORS TO TRAP TO EMT VECTOR

;0K GO ON

.WORD
.WORD

115
FPPERR

sUNIGQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

78:

MOV

(SP)+,804

JMP

FIN21

TSF21:

104000
000116
002013

cMP
BEQ
ERROR

SEQ 0044

ERROR
.MORD
.MORD

000006

116
FPPERR

RTT

NO GO TO ERROR

sRESTORE VECTOR

sALL ERRORS TO TRAP TO EMT VECTOR

sUNIGUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

;00D ADDRESS TRAP
;RETURN

FIN21:
TSFP22:
3 g..‘..‘.“...“.“‘.“‘.“‘.‘.““‘....‘.“‘..‘0.‘.....0

;4 TEST 24

.0....‘.

TEST FDST SOP MODE 3 GR7

3 ;;5:...“.“.‘..0...‘..‘.0.0‘.........O“..‘C“‘.“..

005267
005037
013746
012737
012702
170102
012705
012704
012724
077503
012737
170437
170203
012702
012701
022227
001403
104000
000117
002013

TST24:

171350
002122
000004
007606
000200
000010
001136
177777
001146
001136

001136
000004
000000

1008:

‘.‘...‘...‘

INC
CLR
MOV
MOV
MOV
LOFPS
MOV

STESTN
SOTRPFLG
904, -(SP)
OTSF22,904
#200,R2
Ra

s INCREMENT TEST NUMBER
:CLEAR TRAP FLAG
:SAVE TIME OUT VECTOR
;SETUP NEW VECTOR
:SETUP TO LOAD FPS
1SET FD=1
s INIT COUNTER

MOV

0177777.(R4).

+INIT TEST LOCATION

MOV

18;

:SETUP POINTER TO TEST LOCATION

S08

RS, 1008

CLRD
STFPS

®OTSTLOC
RS

nsn.oc R2
04 ,R1
<n2>-.oo
24

;GET FPS

117
FPPERR

IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

MOV

001136

orsh.oc Re

MOV
MOV
cHP
BEQ
ERROR
.WORD
.WORD

oTSTLOC+10,80TSTLOC

1ARE WE DONE

+INIT TEST LOCATION
+ TEST INSTRUCTION

1SETUP POINTER TO DATA
+INIT COUNTER
IS DATA CORRECT
1 YES GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR

iNO GO TO ERROR

GLOBAL
A
KDJ11A.

HAEAS 15 MRlédsgg(égsa) o"ARTS: —?ESTPPBET EOP MODE 3 GR7
007536
007540
007544
007550
007552
007554
007556

077107
012701
022227
001403
104000
000120
002013

007560
007562
007566
007570
007572
007574

077107
020327
001403
104000
000121
002013

007576

012637

007602

000167

000004
177777

000204

2s:
3s:

S0B8
MOV
cMP
BEQ

ERROR
.WORD
.WORD

as;

S08

CMP
BEQ

Ss:
000010

R1,1$

1ARE _WE DONE

1 INIT COUNTER
+IS DATA CORRECT
1YES GO ON
tALL ERRORS TO TRAP TO =MT VECTOR
tUNIQUE ERROR NUMBER

2?2)0.0177777
120

FPPERR

R1,3$
R3, 0204

ERROR
.WORD
.WORD

FPPERR

MOV

(SP)e+,804

JMP

FIN22

ERROR
.m
.WORD

122

1ADDRESS OF ERROR MESSAGE

sNO GO TO ERROR
1ARE WE DONE
1CHECK FPS
10K GC ON

sALL ERRORS TO TRAP TO EMT VECTOR

121

sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

iNO GO TO ERROR
sRESTORE VECTOR

007606
007606
007610
007612

104000
000122
002013

007614

000006

TSF22:

FPPERR

RTTY
3

007616

FIN22:

007616

TSFP23:

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
:0DD ADDRESS TRAP
sRETURN

[

1i80888000400800000000000000000000000020004080820000008000088080808008

;oTEST 25

007616
007616
007622
007626
007632
007640

TEST FDST SOP MODE 6 GR7

F38888000008082008200000000000800000000000000000000000000008080420

007644
007646
007652
007656
007662
007664
007670
007672
007676
007702
007706
007710
007712
007714

005267
005037
013746
012737
012702
170102
012705
012704
012724
077503
170467
170203
012701
012702
022227
001403
104000
000123
002013

007716
007720

077107
020327

171162
002122
000004
007744
000200
000004
001136

177777

TSTZS:

INC

CLR

MOV
MOV
MOV
LOFPS
MOV
MOV
MOV
S08

1008

171246

000004
001136
000000

000204

STESTN

SOTRPFLG
804, -(SP)

#TSF23,804

#200,R2
R2

#4.RS

OTSTLOC,R4
177777,(R4)»

CLRD

STFPS
MOV
MOV
cMP
BEQ
ERROR
. WORD
.WORD

18:

2%:

S0B

cMP
-~

2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
cl34
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
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174

SEQ 0045

#4,.R1

QTSTLOC R2

123

FPPERR

R1,18
R3, 0204

s INCREMENT TEST NUMBER
sCLEAR TRAP FLAG
sSAVE TIMEOUT VECTOR
sSETUP NEW VECTOR
sSETUP TO LOAD FPS

31SET FD=1
s INIT COUNTER
:SE‘H’ POINTER YO TEST LOCATION

sINIT TEST LOCATION
$ARE ME DONE
3 Ttsg’ENSTfluC!ION

sGETY

lINIt COUNTER

1SETUP POINTER TO DATA

IS Dltl CORRECT

1YES GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
+ARE WE DONE
1CHECK FPS

AREAS

MAC

007724

15 "

Yl& 30A(§052)

007730
007732

001403
104000
000124
002013

007734

012637

007740

000167

007744
007744
007746
007750

104000
000125
002013

007726

007752
007754

15-MAR54

16: 38

JWORD
'WORD

124
FPPERR

MOV

(SP)+,804

JMP

FIN23

TsFas:

ERROR

.MORD
'WORD

000006

1PPBE1*%0p MoDE 6 GR7

BEQ

ERROR

000010

FIN23:

125
FPPERR

RTT

SEQ 0046
;0K GO ON

1ALL ERRORS TO TRAP_TO EMT VECTOR
JUNIQUE ERROR NUMB
ADDRESS OF ERROR.HESSAGE

sNO GO TO ERROR

JRESTORE VECTOR

sALL ERRORS TO TRAP TO EMT VECTOR

{UNIGQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

;00D Aooaess TRAP

007754

TsFP2a;
F30084000000000000000000000400000040000080000000000880880000808880448

1aTEST 26

007754
007754
007760
007764
007770
007776
010002

2228
2229
2230

TEST FDST SOP MODE 7 GR7

';.‘.““‘.‘.‘..“‘....‘.‘..‘.“‘.““.0“.‘C.““‘..“‘Ct.““..

010004
010010
010014
010020
010022
010030
010034
010036
010042
010046
010052

005267
005037
013746
012737
012702
170102
012705
012704
012724
077503
012737
170477
170203
012702
012701
022227
001403

010054
010056
010060
010062
010064
010070

104000
000126
002013
077107
022227
001403

010072
010074
010076
010100
010104
010110
010112
010114

104000
000127
002013
012701
022227
001403
104000
000130

TST26:

171024
002122

000004
010146
000200

000010
001136
177777

001136
171112
001136
000004
000000

1008:
001146

INC
CLR
MOV
MOV
MOV
LDFPS
MOV

$TESTN
SOTRPFLG
904, -(SP)
OTSF24,904
0200,R2
na

s INCREMENT TEST NUMBER
:CLEAR TRAP FLAG
sSAVE TIMEOUT VECTOR
sSETUP NEW VECTOR
$SETUP TO LOAD FPS
sSET FDe1
sINIT COUNTER

MOV

0177777.C(RA).

sINIT TEST LOCATION

MOV

RS, 1008
@TSTLOC,BOTSTLOC+10

:ARE WE DONE
INIT TEST LOCATION

MOV
MOV
cHe

otsn.oc R2
o4 .R1
caz)o.oo

:SETUP POINTER TO DATA
s INIT COUNTER
+IS DATA CORRECT

BEQ

ERROR

001136

000003
177777

28:

38;
as:

sSETUP TEST LOCATION POINTER

S08
MOV

CLRD
STFPS

18:

nshoc.m

JMORD
"MORD

STSTLOC+10
RS

126
FPPERR

R1,18

JMORD
'WORD

127
FPPERR

BEQ

.WORD

130

MOV
cHP

RROR

:YES GO ON

:NO, GO TO ERROR

$08

cHe
8EQ
ERROR

188eTEST INSTRUCTIONess
i{GET FPS

(R2)+,0TSTLOC
38

o3,R1
(R2)+,0177777

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

1ARE WE DONE

:IS DATA CORRECT
:YES GO ON
1ALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
{ADDRESS OF ERROR MESSAGE

+INIT COUNTER
+IS DATA CORRECT
1YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER

GLOBAL AREAS
KDJ11A, MAC

2231
010116
2232
2233
010120
2234
010122
2235
010126
2236
010130
2237
010132
2238
010134
2239
2240
010136
2241
2242
010142
2243
2244
2245
010146
2246
010146
010150
2247
2248
010152
2249
2250
010154
2251
2252
010156
2253
2254
010156
2255
2256
2257
2258
010156
2259
010156
2260
010162
2261
010166
2262
010170
2263
010172
2264
010176
2265
010202
2266
010206
2267
010210
2268
010214
2269
010216
2270
010220
2271
010224
2272
2273
010226
2274
010230
2275
010232
2276
010234
2277
010240
2278
010244
2279
010250
2280
2281
010252
2282
010254
2283
010256
2284
010260
2285
010262
2286
010266

MACY

15- 1‘0(in1
3(§052) 15 Rg s?ESTPFSST‘SOP MODE 7 GR7
A

MA|

002013

077107
020327

001403
104000
000131
002013

000204

012637

000004

000167

000010

S¢:

.WORD

FPPERR

S0B
CMP

R1,48
R3, 0204

BEQ
ERROR
. WORD
.WORD

6$:
:

131
FPPERR

MOV

(SP)+,804

JMP

FIN24

ERROR
.WORD

132

SEC 0047

1+ADDRESS OF ERROR MESSAGE
tNO GO TO ERROR

tARE WE DONE

1CHECK FPS
10K GO ON
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE

1NO GO TO ERROR

+RESTORE VECTOR

TSF24:

104000
000132
002013

.WORD

000006

FPPERR

RTT

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

[}

TSFP2S:
130800000208000000000000000000000000802000000000000000080008808080888485

;oTEST 27

TEST CLRF

F30808000080800000000000000000000000000000000000000004600060000880

005267
005037
005002
170102
012705
012704
012724
077503
012702

170422
170203

020227
001403

104000
000133
002013
012702
012701
022227
001403

170622
002122
000004
001136
177777

1008:

001136

001136
000002
000000

000002
177777

INC
CLR
CLR
LDFPS
MOV
MOV
MOV
S08
MOV

CLRF
STFPS

001142

104000
000134
002013
077107
012701
022227

TST27:

cHp
BEQ

18;
2%

3s:

4%;

ERROR
LMORD
.HORD

MOV
MOV
cMP
BEQ

ERROR
.MORD
LHORD
S0B
MOV
cMP

$TESTN
S8OTRPFLG
R2
n?
o4,.RS
OTSTLOC,R4
#77777,(R4)»
RS,1008
.'sn.m R2

(R2)»
R3

R2,0TSTLOC.4
is

133
FPPERR

#TSLOC,R2
#2,.R1
(R2)+,00
3s

134
FPPERR

fll 2'
nt
(R?)O oML77777

s INCREMENT TEST NUMBER

sCLEAR TRAP FLAG

sSETUP TO LOAD FPS
3SET FD=0
sINIT COUNTER
sSETUP POINTER TO TEST LOCATION
sINIT TEST LOCATION

sARE ME DONE

JSEYUP POINTER TO DATA

7
' ;5;"?67“1!&

l!SflMC?
YES
GO ON

mo.eorom

N.LMSYOM!OEHTVECYM

-mxu NUMBER
+ADDRESS OF ERROR MESSAGE
lSEY\P POINTER TO DATA

s INIT COUNTER
;IS DATA CORRECT

1 YES GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1ARE WE DONE
1INIT COUNTER
1 IS DATA CORRECT

GLOBAL AREAS

KDJ11A, MAC

2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303

2304
2305

MACY1l

15-MAR-84

30A(1052)

15:51

15-MAR-84
T27

16:58
PAGE 48
TEST CLRF

010272

001403

BEQ

010274
010276
010300
010302
010304
010310

104000
000135
002013
077107
020327
001403

ERROR
JWORD
.WORD

135
FPPERR

CMP

R3,04

010312
010314
010316
010320

104000
000136
002013

Ss:

6$:

$08

SEQ 0048

;YES GO ON

tNO GO TO ERROR

R1,44

BEQ

ERROR
JWORD
.WORD

136
FPPERR

tALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER
3ADDRESS OF ERROR MESSAGE
sARE WE DONE
1CHECK FPS
30K GO ON
tNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

010320

TSFP26:
$10884000000000004000000000000000040000040000000880840480848408408

14TEST 30

8848

TEST TSTF AND TSTD

F30080200000000000404000000000044000008000000000800000080648888048848

010320
010320
010324
010330
010332
010334
010340
010342
010346

005267
005037
005004
170104
170567
170203
020327
001403

010350
010352
010354
010356
010362
010366
010372
010376
010400
010404

104000
000137
002013
012704
012702
004767
170537
170203
020327
001403

010406
010410
010412
010414
010420
010424
010430
010434
010436
010442

104000
000140
002013
012704
012702
004767
170567
170203
020327
001403

010444
010446
010450
010452
010456

104000
000141
002013
012704
012702

170460

TST30:

002122

LOFPS
TSTF
STFPS

000300

010640
010670

11:

010650

010660
010710

cHP
BEQ

RS, 04
1t

ERROR
JWORD
.WORD

137
FPPERR

sALL ERRORS TO TRAP TO EMT VECTOR
i{UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
:SETUP POINTERS TO DATA

ISTF

987S2601

.&ool’sgg INSTRUCTIONsse

RS, 010

MOV
MOV
JSR

ERROR
LMORD
‘WORD

9752600,
R4
oTS26D3,R2
PC,CHEC26
R3S

FPS

:Ofifl( IF DATA IS CORRECT

140
FPPERR

1S26D2

sCHECK IF DATA IS CORRECT
1004TEST INSTRUCTIONea«

#T526D1,R4
0752604 .R2
PC,CHEC26

STFPS

cMe
8EQ

RS, 00
33

ERROR
LWORD
‘WORD

141
FPPERR

MOV

0752605,
R2

MOV

GET

iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1SETUP POINTERS TO DATA

MOV
MOV
JSR

TSTF

s INCREMENT TEST NUMBER
sCLEAR TRAP FLAG
sSETUP TO LOAD FPS
$SET FD=0

1844TEST INSTRUCTIONs«s

8EQ
2s:

$TESTN
R4

8O0TRPFLG

R4
T1S2600
RS

SIFPS

000010

010650
010700
000166
000224

INC
CLR
CLR

0752602R4
,

l“o. GO TO ERROR
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1SETUP POINTERS TO DATA
H

GLOBAL

AREAS
KDJ11A, MAC

010462
010466
010472
010474
010500
010502
010506

004767
012704
170104
170537

170203

020327
001403

010510
010512
010514
010516
010522
010526
010532
010536
010540
010544

020327
001403

010546
010550
010552
010554
010560
010564
010570
010574
010576
010602
010604
010606
010610

104000
000143
002013
012704
012702
004767
170567
170203
020327
001403
104000
000144
002013

104000
000142
002013
012704
012702
004767

170567
170203

000130
000200

JSR
MOV
LOFPS

010640

TSTD
STFPS
CMP
BEQ

000204

ERROR
. WORD
010640

010670

000112
000210

010650
010700

. WORD

MOV
MOV
JSR
TSTD
STFPS

CMP
BEQ

PC,CHEC26
©200,R4
R4

80752600

R3
R3,#204
a8

142

FPPERR

@752600,R4
@152603,R2
PC,CHEC26
TS2601
R3
RS, 6210

143
FPPERR
#7526D1,R4
9752604 ,R2

S$:

PC,CHEC26

152602
R3
R3, 0200
6%

144

FPPERR

012701
022422
001403
104000
000145
002013

010634
010636

077106
0002C7

010640
010642
010644
010646
010650
010652
010654
010656

000177
177777
177777
177777

177777
000000
000000
000000

SEQ 0049

t1CHECK IF DATA IS CORRECT
1SETUP TO LOAD FPS
1SET FD=1
1#84TEST INSTRUCTIONs#+
sGET FPS
;CHECK FPS
10K GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
1SETUP POINTERS TO DATA
3

sCHECK IF DATA IS CORRECT

$#88TEST

INSTRUCTION#ss«

sGET FPS
;CHECK FPS
GO ON
;0K
sNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
sSETUP POINTERS TO DATA
:

s1CHECK IF DATA IS CORRECT

384sTEST

:GET FPS

INSTRUCTION

sALL ERRORS TO TRAP TO EMT VECTOR

tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
iNO GO TO

FIN26

o4 ,R1

(R4)+,(R2)»

145

FPPERR

R1,1$

33333388

010616
010622
010624
010626
010630
010632

000102

177
177777
177777
177777
177777
0

000167

010612

§§§§3§ 3

010612

2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398

RSB 15y 16: 38 1P185-“2n0 1510

0
0

s INIT COUNTER

1 IS DATA CORRECT

sYES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
sARE WE CONE
;RETURN

GLOBAL AREAS

KDJ11A. MAC

2399
2400

2401
2402
2403

2404
2405
2406
2407
2408
2409

2410
2411
2412
2413
2414
2415
2416
2417
2418
2419

2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452

2453
2454

010660
010662
010664
010666
010670
010672
010674
010676
010700
010702
010704
010706
010710
010712
010714
010716
010720

MACY11

15-MAR-84

30A(1052)

15:

077777
000000
000000
000000
000177
1777277
177777
177777

15-MAR-84

T30

16: 58

TS2602:

TS26D3:

177777

TS260D4
:

000000
000000
000000
Q77777
000000
000000
000000

TS26D5:

FIN26:

PAGE 50
TEST TSTF AND

.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
+WORD
.m

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

L4
SEQ@ 0050

TSTD

77777
0
0
0
177
177777

177777
177777
177777
0
0
0
7777

0
0
0

tsFP27:

010720

F1088000000000000000000000400000000000000000480080080808008600888884%

1#TEST

010720
010720
010724
010730
010732
010734
010740
010744
010750
010752
010754
010760
010762
010764
010770

TEST ABSF

$300000008000000000000000000000.0400000000000000000000880080808448

005267
005037
005005
170105
012701
012704
012703
012324
077102
012705
170615
170203
020527
001403

010772
010774
010776
011000
011004
011010
011014

002013
012702
004767
020327
001403

011016
011020
011022
011024
011030
011032
011034
011040

104000
000147
002013
012705
170625
170203
020527
001403

011042

104000

170060
002122
000014
001136
011204

TST31:

100%:

$TESTN
80TRPFLG
RS
RS
012.,.R1
@TSTLOC.R4
9752700

umo.(éa

R1,1008

#TSTLOC,RS

001136

(RS)

RS
RS, 0TSTLOC
13

001136

104000
000146

146

011234
000152

18:

FPPERR

0T1S27D03,R2

PC CNEC?T
20
147

00114¢€
001152

2%:

FPPERR

@TSTLOC»10,RS

(RS).

ge.OTSTLOCOIC

s INCREMENT TEST NUMBER
sCLEAR TRAP FLAG
$SETUP TO LOAD FPS
$SET FD=0
sINIT COUNTER
sSETUP POINTER TO TEST LOCATION
sSETUP POINTER TO TEST VALUE
sINIT TEST LOCATION
sARE WE DONE
:SETUP POINTER TO DATA
:190aTEST INSTRUCTIONess

3:GET FPS

+IS RS CORRECY
sYES GO ON
sNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
:SETUP POINTER TO DATA
:CHECK IF DATA IS CORRECT
:CHECK FPS
10K GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1+ADDRESS OF ERROR MESSAGE
1SETUP POINTER TO DATA
1444TEST INSTRUCTIONa2a

1GET FPS

1 IS RS CORRECT

+YES GO ON

iNO, GO TO ERROR
tALL ERRORS TO TRAP TQ EMT VECTOR

RBOTIR.AAES 1s"RARIALOP8(AE52) 15-MAR;GE 16:38. PARES!

2503
2504
2505
2506
2507
2508
2509
2510

011072
011074
011076
011100
011104
011110
o11112
011116

104000
000151
002013
012705
170665
170203
020527
001403

011120
011122
011124
011126
011132
011136
011142
011146

104000
000152
002013
012705
012702
004767
020327
001403

011150
011152
011154
011156

104000
000153
002013

011156

000167

011162
011166
011170

012701
022522
001403

011172
011174
011176
011200
011202

104000
000154
002013
077106
000207

011204
011206
011210
011212
011214
011216
011220
011222
011224
011226
011230
011232

177777
177777
177777
177777
000377
175436
136477
000001
000177
175436
136477
000001

000150

001146
011244
000076
000000

3s:

.WORD
. WORD

MOV
MOV

JSR

150

FPPERR
@TSTLOC+10,R5
2752704 ,R2
PC,CHEC27

R3,40

151

001136
000020

FPPERR
@TSTLOC,RS

gO(RS)

001136

RS5,0TSTLOC

5S¢

152

001156
011254

FPPERR

Ss:

@TSTLOC+20,R5
#7152705,R2
PC,CHEC27
R3,04
64

153

FPPERR

68:

000102

éticah
18:

28:

52700
TS2701:

353

2493
2494
2495
2496
2497
2498
2499
2500
2501
2502

002013
012705
012702
004767
020327
001403

’go .

2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492

011044
011046
011050
011054
011060
011064
011070

2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468

M4
IUNIQUE ERROR NUMBER

+ADDRESS OF ERROR MESSAGE

1SETUP POINTER TO DATA
}

+CHECK IF DATA IS CORRECT
1CHECK FPS
10K GO ON
sNO, GO TO ERROR
tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;+ADDRESS OF ERROR MESSAGE
sSETUP POINTER TO DATA
3#44TEST

sGET FPS

INSTRUCTION&s+

+IS RS CORRECT
sYES GO ON
;NO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
;SETUP POINTERS TO DATA
s

sCHECK IF DATA IS CORRECT
;CHECK FPS
;0K GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
3sADDRESS OF ERROR MESSAGE

FIN27

94 ,R1

: INIT COUNTER

:YES GO ON

CRS)s,CR2)+

3+IS DATA CORRECT

154

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

R1,1%
PC

;RETURN

FPPERR

177777

177777
177777
177777
377
175436
}!6‘77

Ts2702:

SEQ

177
175436
{36477

;ADDRESS OF ERROR MESSAGE
:1ARE WE DONE

0051

GLOBAL AREAS
KDJ11A. MAC

2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527

2528
2529
2530
2531
2532

2533
2534
2335
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566

011234
011236
011240
011242
011244
011246
011250
011252
011254
011256
011260
011262
011264

MACY11l

15-MAR-84

30A (%052)

15:51

077777
177777
177777
177777
000377
175436
136477
000001
000000
000000
136477
000001

1S-HARigg

16:?ESTPQSEF52

TS2703;

.WORD

TS2704;

TS270S:

N4
SEQ 0052

77777

177777
177777
177777
377
175436
136477
1
0
0

136477

FIN27:

011264

TSFP30:
P 108 08 0 0 0

1#TEST 32

RRAAA00000040 000000000004 0040400480488804858840044

TEST ABSD

PI0000RARRAAALRAARAAARLARAREL00000000000848000404080000808800044

011264
011264
011270
011274
011300
011302
011306
011312
011316
011320
011322
011326
011330
011332
011336

005267
005037
012705
170105
012701
012704
012703
012324
077102
012705
170615
170203
020527
001403

011340
011342
011344
011346
011352
011356
011362

104000
000155
002013
012702
004767
020327
001403

011364
011366
011370
011372
011376
011400
011402
011406

104000
000156
002013
012705
170625
170203
020527
001403

011410
011412
011414
011416
011422

104000
000157
002013
012705
012702

167514
002122
000200
000014
001136
011552

TST32:

$TESTN

80TRPFLG
9200,RS

RS
012. .R1

eTSTLOC, m

100¢:

#753000,R

(as».cfia

001136

R1,1008
#TSTLOC,RS

001136

25»#TSTLOC

cas:

155
011602
000152

1$:

215300
R
3

CHECS0

83 0200

156

001146
001156

2%:

FPPERR

@TSTLOC+10,R5
(RS).
R3
g?.OYSTLOCoao

157

001146
011612

FPPERR
@7STLOC+10,RS
0753004 ,R2

s INCREMENT TEST NUMBER
;CLEAR TRAP FLAG
sSETUP TO LOAD FPS
$sSET FD=1
;INIT COUNTER
sSETUP POINTER TO TEST LOCATION
$sSETUP POINTER TO TEST VALUE
sINIT TEST LOCATION
sARE WE DONE
$SETUP POINTER TO DATA
1084TEST INSTRUCTIONsss
sGET FPS
:+IS RS CORRECT
:YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR

aUNIGUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1SETUP POINTER TO DATA
;CHECK IF DATA IS CORRECT
;CHECK FPS
;0K GO ON
iNO, GO TO ERROR
;ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE
1SETUP POINTER TO DATA
1904TEST INSTRUCTIONa2e»
iGET FPS
1IS RS CORRECT
1YES GO ON
:ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1SETUP POINTERS TO DATA
:

2597
2598
2599
2600

2601

2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622

004767
020327
001403

011440

104200
000160
002013
012705
170665
170203

011442
011444
011446
011452
011456
011460
011464

020527
001403

011466
011470
011472
011474
011500
011504
011510
011514

104000
000161
002013
012705
012702
004767
020327
001403

011516
011520
011522
011524

104000
000162
002013

011524

000167

011530
011534
011536

012701
022522
001403

011540
011542
011544
011546
011550

104000
000163

011552
011554
011556
011560
011562

011564
011566
011570
011572
011574
011576
011600
011602
011604
011606
011610
o11612

15-MAR-84

16:58

000076
000200

001136
000020

PAGE 53

JSR

BEQ

a%;

ERROR
+WORD
. WORD
MOV
ABSD
STFPS

160

FPPERR

@TSTLOC,RS

20(R5)

BEQ

ERROR
.m
. WORD
MO
MOV
JSR
cHP
BEQ

161
FPPERR
@TSTLOC+20,R5
@T153005,R2
PC,CHECSO
R3,0204
64

162

FPPERR

68:

000102

SEQ 0053

1CHECK IF DATA IS CORRECT
1CHECK FPS
10K GO ON
iNO, GO TO ERROR
tALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1SETUP POINTER TO DATA
106oTEST

INSTRUCTIONsss

1GET FPS
+IS RS CORRECT
1YES GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
$SETUP POINTERS TO DATA
]

sCHECK IF DATA IS CORRECT
s1CHECK FPS
10K GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

FIN3O

CHECS0:
18:

002013
077106
000207

177777
177777
177777
177777
000377
175436
136477

000001
000177
175436
136477
000001
077777
177777
177777
177777
000377

PC,CHEC30

2%.0200

R3
RS,0TSTLOC
S

cHP

S58:

ABSD

cMP

001136

001156
011622

TEST

TS30D3:;

153004
;

04,R1

s INIT COUNTER
:IS DATA CORRECT
sYES GO ON

163

IUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sARE WE DONE

(R5)+,(R2).
28

3383333333238388

2595
2596

011426
011432
011436

15:51

2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
23590
2591
2592
2593
2594

15-MAR-84

30A(1052)

KDJU11A. MAC

MACY11l

GLOBAL AREAS

FPPERR

R1,1%

17777

sALL ERRORS TO TRAP TO EMT VECTOR

sRETURN

kbR ARE"S 1s"ARR1A4PB(APS2) 15-MAR;RE 16:38.PRGE,S

2645

2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678

o11614
o11616
011620
011622
011624
011626
011630
011632

175436
136477

.WORD
.WORD

000001
000000
000000
000000
000000

TS30DS: .WORD
FIN3O:
3

011632

TSFP31:
1100000000 000000000000000000000000800000000000000000000

1oTEST

011632
011632
011636
011642
011646

011654
011660
011662

011666
011670
011672
011674
011676
011702
011704
011706
011710
011712
011716
011722
011724

011726
011730

000088800848

TEST FDST SOP MODE 2 GR7

J10000000000000000000000000000000000000000000000000000800000008088

005267
005037
013746
012737
012702
170102
170527
000240
000240
000240
170203
020327
001403
104000
000164
002013

012702
022227
001403
104000
000165
002013

011732
011736
011742
011744
011746
011750

012701
022227
001403
104000
000166
002013

011752
011754

077107
012637

011760

000167

011764
011764
011766
011770

167146
002122
000004
011764
000200
000005

TST33:

TSD31:

MOV
MOV
MOV
LDFPS
TSTD

$TESTN
80TRPFLG
‘.‘.-(s’)

s INCREMENT TEST NUMBER
1CLEAR TRAP FLAG
$1SAVE TIMEOUT VECTOR

1SETUP TO LOAD FPS
sSET FD=1
300sTEST INSTRUCTIONess

OTSF 31,804
0200,R2
R2

R3
R3, 0204

000204

164
FPPERR
011664

000003
000240

18:

28:

3s;

4%:

000010
3

104000
000167
002012

INC
CLR

TSF31:

3 s B §§§§3§ §§§§3§

2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644

SEQ 0054

OTSDSIOZ.QZ

165

FPPERR

e3.R1

(flZ)0.0ZIO

asg

166
FPPERR
R1,3

(SP)+, 804

1SETUP NEW VECTOR

1GET FPS
sCHECK FPS
30K GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

sNO GO TO ERROR

1SETUP POINTER TO DATA

:1IS DATA CORRECT

1YES GO ON
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE

iND GO TO ERROR
sINIT COUNTER
:IS DATA CORRECTY
sYES GO ON
sALL ERRORS TO TRAP TQO EMT VECTOR

;UNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
iNO GO TO ERROR
$ARE WE DONE
sRESTORE VECTOR

FIN3L

167

FPPERR

s1ALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
tADDRESS OF ERROR MESSAGE
1000 ADDRESS TRAP

RbITTn ARE"S
7

5843

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
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734

011772

1sARA'A4508(4052)

15 MAR.Q4

16:38. PAGE;5S0p MoDE 2 GR7

000006
]

011774

FINS1:

011774

fsrpsa;

RTT

SEQ 2055
1 RE TURN

1100000000000 000000000000000000000000000000000000000080000

1eTEST 34

011774
011774
012000
012004
012006
012010
012014
012020
012024
012026
012030
012034

012036
012042
012046
012052

012056

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

005267
005037
005005
170105
012701
012704
012703
012324
077102
170767
170203
012705
012702
004767
020327
001403

012060
012062
012064
012066
012072
012074
012100
012104
012110
012114

012702
004767
020327
001403

012116
012120
012122
012124
012130
012132
012136
012142
012146
012152

104000
000171
002013
170767
170203
012705
012702
004767
020327
001403

012154
012156
012160
012162

104000
000172
002013

012162

000167

012166

000800s

TEST NEGF

104000
000170
002013

170767
170203
012705

012701

167004

TST34.

002122

000014
001136
012210

INC

CLR
CLR

LOFPS

1008:

167102

MOV
MOV
MOV
MOV
SO8

NEGF
STFPS

001136
012240
000114
000000

167054

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

18:

000010

2s;

012, ,R1
eTSTLOC, na
#T53200,R
(R3)., céa)o
R1,100

TSTLOC
RS

#TSTLOC,RS
0753203 ,R2
PC,CHECS2
.
18

ERROR
.MORD
"WORD

170
FPPERR

NEGF
STFPS

ERROR
167026

MOV
MOV
JSR
cHP
BEQ

MOV
MOV
JSR
P
8EQ

001146
012250

STESTN

80TRPFLG
RS

LMORD
‘MORD

NEGF
STFPS

TSTLOC+10
R3S

oTSTLOC+10,RS
0753204 ,R2’
PC,CHECS2
RS, 010
2s

171
FPPERR
TSTLOC+20
R3

s INCREMENT TEST NUMBER
sCLEAR TRAP FLAG

$SETUP TO LOAD FPS

$SET FD=0
s INIT COUNTER
$1SETUP POINTER TO TEST LOCATION
s 3ETUP POINTER TO TEST VALUE
s INIT TEST LOCATION
sARE WE DONE
$664TEST INSTRUCTIONess

1GET FPS

sSETUP POINTERS TO DATA
'

;CHECK IF DATA IS CORRECT
;CHECK FPS
sYES GO ON
sNO, GO TO ERROR

sALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
306oTEST INSTRUCTIONess
:GET FPS

$SETUP POINTERS TO DATA

ICMECK IF DATA IS CORRECT

3 CHECK

FPS
10K GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
3100oTEST INSTRUCTIONeee

MOV
MOV
JSR
e
BEQ

nsn.oceo RS
#153205,R
?c cn:csa
RS,
04
3

iGET FPS

ERROR
LMORD
‘WORD

172
FPPERR

IUNIGUE Efiflflfl NUMBER
1ADDRESS
OF ERROR MESSAGE

JHP

FIN32

CHEC32: MOV

04,R1

001156
012260
000020

3s:
000102
[

uSETtP POINTERS TO DATA

lC"fiCK Ifsbltl IS CORRECTY

L. ERRORS TO TRAP TO EMT VECTOR

t INIT COUNTER

GLOBAL

AREAS

Y11

KDJL1A.MAC ~ 15-MAR B4
2735
2736
2737
2738
2739
2740
2741
g;:g

012172
012174

022522
001403

012176
012200
012202
012204
012206

104000
000173
002013
077106
000207

2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758

012210
012212
012214
012216
012220
012222
012224
012226
012230
012232
012234
012236
012240
012242
012244

170000
003541
177777
172710
070000
003541
177777
172710
000177
100000
177777
177007
070000
003541
177777

2759
2760
2761

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

012246
012250
012252
012254
012256
012260
012262
012264
012266
012270

1585

TS3201:

TS3203:

TS3204:

TS3205:

2783

012324

077102

2785
2786
2787

012332
012334
012340

170203
012705
012702

012703

012324

166510
002122
000200

000014
001136
012506

2784 012326 170767 166604

2788
2789
2790

012344
012350
012354

004767
020327
001403

001136
012536
000114
000200

161985, PREEe5C

TS3200:

012270

012322

784

2$:

177777
172710
000000
000000
177777
177007

005267
005037
012705
170105
012701
012704

15-MAR-84

18:

172710
170000
003541

012270
012270
012274
012300
012304
012306
012312
012316

2782

30A(1052)

CMP
BEQ

(R5)+,(R2)+
24

ERROR
.WORD
.WORD
S08
RTS

173
FPPERR
R1,1$
PC

.WORD
.WORD
JWORD
.WORD
.WORD
+WORD
JWORD
WORD
JWORD
.WORD
MWORD
.MORD
.WORD
WORD
LHORD

170000
3541
177777
172710
70000
3541
177777
172710
177
100000
177777
177007
70000
3541
177777

JMORD
.WORD
JWORD

SEO 0ose
+IS DATA CORRECT
+YES GO ON
tNO, GO TO ERROR
|ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1ARE WE DONE
;RETURN

172710
170000
354}

LMORD
.MORD
.WORD
.LMORD
JHORD
LMORD

177777
172710
O
O
177777
177007

MOV

(RSJO.(N)O

FIN32:
3
TSFP33:
1310 80240 05 0600000000000000000000000000000000000000000000800080000
;oTEST 35
TEST NEGD
$30080000000800000050000000000800000000000000000000000000000000008
TST3S:
INC
STESTN
s INCREMENT TEST NUMBER
CLR
S0TRPFLG
sCLEAR TRAP FLAG
MOV
€200,R5
lSETW TO LOAD FPS
LOFPS
RS
1SET FD=1
MOV
012, ,R1
+INIT COUNTER
MOV
@TSTLOC,R4
:SETUP POINTER TO TEST LOCATION
MOV
07S33D0,R3
31SETUP POINTER TO TEST VALUE

100%:

S0B

1,100%

NEGD

JSR
CMP
BEQ

OTSTLOCRS
9TS33D3,R2
PC C'EC!S
3,0200
ll

STFPS
MOV
MOV

$INIT TEST LOCATION

1ARE ME DONE

1004 TEST INSTRUCTIONess

1GEY FPS
1SETUP POINTERS TO DATA
i

1CHECK IF DATA IS CORRECT
1CHECK FPS
10K GO ON

GLOBAL AREAS
KDJ11A.MAC

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
2837
2838
2839
2840
2841
2842

2843
2844
2845
2846

012414
012416
012420
012422
012426
012430
012434
012440
012444
012450

104000
000174
002013
170767
170203
012705
012702
004767

020327
001403

104000
000175
002013
170767

170203
012705

012702
004767

ERROR
.WORD

166556

1$:

001146
012546

000210

. WORD
NEGD
STFPS
MOV
MOV
JSR

174

FPPERR

TSTLOC+10
R3
@TSTLOC+10,RS
@TS3304,R2
PC,CHEC33
R3,0210
2

175

FPPERR

166530

;gfLOCoao

001156
012556

@TSTLOC+20,RS

@TS3305,R2
PC,CHEC3S

020327

23.0204

012452
012454
012456
012460

104000
000176
002013

176

012460

000167

012464
012470
012472

012701
022522
001403

012474

104000
000177

001403

012476
012500
012502
012504

077106
000207

012506
012510
012512
012514
012516
012520
012522
012524
012526
012530
012532
012534
012536
012540
012542
012544

170000
003541
177777
172710
070000
003541
177777
172710
000177
100000
177777
177007
070000
003541
177777
172710

FPPERR

3s:

000102

SEQ 0057

iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1+ADDRESS OF ERROR MESSAGE
1944TEST

tGET FPS

INSTRUCTIONsss

$SETUP POINTERS TO DATA
'

1CHECK IF DATA IS CORRECT
;CHECK FPS
;0K GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
3#8sTEST INSTRUCTIONsss

sGET FPS

$sSETUP POINTERS TO DATA
:

sCHECK IF DATA IS CORRECT

;CHECK FPS
sOK GO ON
sNO, GO TO ERROR

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

FIN33

CHECSS:

#4.R1

18:

(R5)+,.(R2).
28

002013

2%:

ts3300:
TS33D1:

2798
2799
2800
2801
2802
2803
2804
2805
2806

012356
012360
012362
012364
012370
012372
012376
012402
012406
012412

2791
2792
2793
2794
2795
2796
2797

15HAR 84 °§5:40°2) 13 TARRE 16:38 PABR,ST

177
FPPERR
R1,1%

170000

3541
177717

172710

70000

3541

177777

TS33D2:

172710
177

100000

177777

TS33D3:;

177007
70000
3541
177777
172710

sINIT COUNTER
3IS DATA CORRECTY
sYES GO ON
iNO, GO TO ERROR
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
: ARE

WE DONE

sRETURN

GLOBAL AREAS

KDJ11A, MAC

2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861

2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877

2878
2879
2880
2881
2882
2883

2884

2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902

012546
012550
012552

012554

012556
012560
012562
012564
012566

15
"SYLA‘SOA(§052)

170000
003541

lS—HARigg

16:?ESTPQEEDSB

TS33D4:

1772777

.WORD
WORD

170000
3541

WORD

172710

HORD

172710

000000

TS3305:

000000

000000
000000

.WORD
.WORD

.WORD
D

FIN3S:

G5
5EQ 0058

SYEET?

O
O

012566

MFSRCMO:
T10800000000000000004000000000000000008000000000000080808008

1+TEST 36

012566
012566
012572
012576
012600
012604
012606
012610
012614
012616
012620
012622

012624
012626
012632
012634
012636
012640
012642
012646
012650
012652
012654

TEST LDD MODE O,

00040004

ILLEGAL AC7

FI00000000000000 0000000000000 00 000000800000 00004800008

005267
012704

170104
012702

172407

170201

022701

001403
104000
000200
002013
170312
022722

001403
104000
000201
002013
022722

001403
104000
000202
002013

166212
047600
001106

TST36:

012604

INC
MOV

LOFPS
MOV

1$:

147600

000002

800880408884858

3s:

012656

MLDDM2:

R4
ORECFEC,R2

LDD

R7,ACO

STFPS

BEQ
ERROR
.WORD
.WORD

200
FPPERR

STST
cMp

(R2)
02.(R2)+

cMp

2%:

$TESTN
#47600,R4

BEQ
ERROR
LHORD
.WORD

cHp

BEQ
ERROR
JMORD
.HWORD

€147600,R1

201
FPPERR
213,(R2)»

202
FPPERR

s INCREMENT TEST NUMBER

sSETUP FPP STATUS

sLOAD FP STATUS
sPOINT TO RECEIVED FEC MEMORY
1#TEST INSTRUCTION
sLOAD ACO FROM ILLEGAL AC7
$SAVE FPP STATUS
sVERIFY FER BIT SET

$BRANCH IF GOOD ERROR CONDITION

tALL ERRORS TO TRAP TO EMT VECTOR

OUNIGUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
s THE FER lIY DIDNT SET
1SAVE FEC AND FEA
1VERIFY FEC CONTENTS
1BRANCH IF GOOD

&L ERRORS TO TRAP TO EMT VECTOR
UNIQUE ERROR NUMBER
lflDflESS OF ERROR MESSAGE
sFEC NE 2 (OPCODE ERROR
)

sVERFIY FEA CONTENTS
:BRANCH FI GOOD
sALL ERRORS TC TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
+ ADDRESS OF ERROR MESSAGE

1FEA NOT CORRECT ERROR ADDRESS

5190084080008 000082000000000000000004000000000000000000000000000000

soTEST 37

012656
012656
012662
012666
012672
012676
012700
012702

TEST LDD MODE2

3088880200800 00300800000000000000000040000202000000000000000000000

005267
012701
012704
012702

170102
172424
170203

166122
001126
001176
047750

1ST37;

INC
MOV
MOV
MOV
LDFPS
LDD
STFPS

S$TESTN
ORECDST,R1
#TAB1,R4
047750,R2
R2
(R4)+,ACO
RS

1 INCREMENT TEST NUMBER
sPOINT TO RECEIVED DATA LOCATION
1POINT TO GOOD DATA
1LOAD GOOD STATUS
1LOAD FPP STATUS - DOUBLE,ID
1004TEST INSTRUCTION - MODE 2ese
1SAVE TEST FPP STATUS

GLOBAL AREAS
KDJ11A. MAC

2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933

2934
2935
2936
2937
2938

2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958

MACY11l

15-MAR-84

30A(1052)

15:51

012704
012706
012710
012712
012714
012716

174021
020203
001403
104000
000203
002013

012720
012724
012726
012730
012732

022704
001403
104000
000204
002013

001206

012734
012740
012744
012750
012754

012704
162701
004767
005767
001403

001176
000010
167176
166064

012756
012760
012762
012764

104000
000205
002013

15-MAR-84

T37

16:58

PAGE 59

$SAVE TEST RESULT MODE 2

R2,.R3

s VERIFY FPP STATUS

. WORD
.WORD

203
FPPERR

1ADDRESS OF ERROR MESSAGE

cMP

OTAB1+10,R4

BEQ
ERROR
.WORD
. WORD

204
FPPERR

MOV
SUB

0TAB1,R4
010,R1

JSR

R7,.DATVER

BEQ

3s:

ACO,(R1).»

CMP

BEQ
ERROR

28:

SEQ 0059

TEST LDD MODEZ2

STD

1$:

ERROR
.WORD
'WORD

1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

+BAD FPP STSTUS
sVERFIY AUTO-INCR
$BRANCH IF GOCD
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
3 ADDRE SS OF ERROR MESSAGE
1BAD AUYO-INCR
sPOINT TO RECEIVED DATA

COUNT

205
FPPERR

sRETURN R1 TO PROPER VALUE
sVERFIY DATA FROM FPP
s SEE IF COUNTER=0
:BRANCH IF GOOD COMPARE
sBAD DATA FROM FPP
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

012764

MLDDM3:

3100000800000 0000000008000080000000000000000000080880088808088880

;oTEST 40

012764
012764
012770
012776
013002
013010
013014
013020
013022
013024
013026
013020
013034
013036
013040
013042

013044
013050
013052
013054
013056
013060
013064
013066
013070

TEST LDD MODE 3

330080800008 0800000000000000002000000000000000000080008800880880848008

005267
012737
012701
012737
012704
012702
170102
172434
170203
174031
022703
001403
104000
000206
002013

022704

001403

166014
001126
001140
001206
001136
047750

1ST40:

001140
001136

047740

001140

18:

104000
000210

RS
ACO,B(R1).
047740,R3

ERROR
LMORD
'WORD

206
FPPERR

BEQ

ERROR
JWORD

001142

28:

STESTN
ORECDST,90TSTLOC.2
#TSTLOC+2,R1
#TAB2,90TSTLOC
#TSTLOC,
R4
unso.nz
R2
8(R4)+,ACO

STFPS
STD
e

BEQ

104000
000207
002013

022701
001403

INC
MOV
MOV
MOV
MOV
MOV
LOFPS
LDD

#TSTLOC+2,R4

s INCREMENT TEST NUMBER
sPOINT TO RECEIVED DATA LOCATION
sSETUP STD IN MODE 3
sPOINT TO DATA TABLE
+POINT TO GOOD DATA

:LOAD GOOD STATUS

tLOAD FPP STATUS- DOUBLE,ID

100eTEST INSMYIOO HIE 2ese

1SAVE TEST FPP STATUS
:SAVE TEST RESULT IN MODE 3
sVERIFY FPP STATUS
1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER

aannaess OF ERROR MESSAGE
1BAD FPP STATUS

s VERFIY AUTO-INCR
18AD AUTO-DEC ON LDD

'MORD

207

FPPERR

tALL ERRORS TO TRAP TO EMT VECTOR
IUNIGUE ERROR NUMBER

cHp
8EQ

OTSTLOC 4,41
38

1 TEST STD AUTO-INC

ERROR
LWORD

210

1BRANCH IF GOOD
l‘LL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
-

GLOBAL

ARE AS
KDJ11A, MAC

2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974

013072

013074
013100
013104
013110
013114
013116
013120
013122

15-MAR
84 9540320 15 MAR:RY 16:38¢ PR Aloe
002013

012704
012701
004767

005767
001403
104000
000211
002013

001206
001126
167036
165724

FPPERR

MOV

@TAB2,R4
ORECDST,R1
R7,DATVER

MOV

JSR

TST
BEQ
ERROR
. WORD
. WORD

013124

MLODMA;

SEQ 0060

1ADDRESS
OF ERROR MESSAGE

1BAD AUTO- INCR
1POINT TO RECEIVED DATA
+POINT TO RECEIVED DATA
s VERFIY DATA FROM FPP

COUNT

s SEE IF COUNTER=0
1BRANCH IF GOOD COMPARE
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
1BAD DATA FROM FPP

21l

FPPERR

F10000000000000000000000000000000008000000000000000000

1#TEST 41

2975

SeRregsegsEnses
NN

3s:

.WORD

TEST LOF,

STD MODE 4

0000088088084

SN ANaNaNtANaNttitnttatttttttititnitittttesttisssessssssssss

013124
013124
013130
013134
013140
013144
013150
013152
013156
013160
013162
013164
013170
013172
013174
013200
013202
013204
013206

005267
012701
012704
012705
170127
172415
012702
170102
172444
170203
012702
170102
174041
022703
001403
104000
000212
002013

013210
013214
013216
013220
013222

022704
001403
104000
000213
002013

001216

013224
013230
013234
013240
013242
013244
013246

012704
004767
005767
001403
104000
000214
002013

001216
166712
165600

165654
001132
001222
001256

TSTAa1:

047550

047750

INC
MOV
MOV
MOV
LDFPS
LDD
MOV
LOFPS
LOF
STFPS

047540

$TESTN
ORECDST+4,R1
oTAB6,RS

?a’gS’
io

-um ACO

az um
7640

3SET FPP TO DOUBLE

RS
047750,R2

oTABS,R4

213

FPPERR

oTAB3,
R4

R7,DATVER
COUNT
38

<14

FPPERR

013250

3s:

013250

MLODMS;

1LOAD GOOD STATUS FLOATING

sLOAD FPP STATUS
- DOUBLE,ID

212

28:

s INCREMENT TEST NUMBER
+POINT TO RECEIVED DATA LOCATION
sPOINT TO GOOD DATA

soTEST INSMTIDC MODE &

sSAVE TEST FPP STATUS
$SET 70 DOUBLE MODE

1SAVE TEST RESWLT
sVERIFY FPP STATUS
:BRANCH IF GOOD
sALL ERRORS YO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sPDDRESS OF ERROR MESSAGE
iBAD FPP STATUS
sVERFIY AUTO-DEC
1BRANCH IF GOOD
3ALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE

] 8AD AUTO- INCR
sPOINT TO RECEIVED DATA
iVERFIY DATA FROM FPP
3:SEE IF COUNTER=0
:BRANCH IF GOOD COMPARE
:ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE
:BAD DATA FROM FPP

$1406000000000000000000000000000000000000000000000000000000000004

s¢TEST 42

TEST LDD MODE 5

GLOBAL AREAS
KDJ1.1A
MAC

3015
3016
3017
3018
3019

3020
3021
3022
3023
3024
3025
3026

3027
3028

3029
3030
3031
3032
3033

3034

3035
3036
3037
3038
3039

3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051

3052

3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR -84
T42

16:58

PAGE 61

JS
SEQ 0061

TEST LDD MODE S

FI0082000
0044000000
000
000 04 000000000
000
0000 000000ttet
004
tttittss
00

013250
013250
013254
013260
013264
013272
013276
013300
013302
013304
013306
013310
013312
013314
013316

020203
001403
104000
000215
002013

013320
013324
013326
013330
013332

022704
001403
104000
000216
002013

001136

013334
013340
013344
013350
013352
013354
013356

012704
004767
005767
001403
104000
000217
002013

001176

005267
012701
012704
012737
012702
170102

TST142;

165530

001126
001140
001176
047750

001136

172454
170203
174011

166602
165470

18:

28:

INC
MOV
MOV
MOV
MOV
LOFPS
LDD
STFPS
STD
CMP
BEQ
ERROR

JWORD
.WORD

215
FPPERR

cMP
BEQ
ERROR
.MORD
.WORD

OTSTLOC,.R4
24

216
FPPERR

MOV
JSR
ST
BEQ

OTAB1.R4
R7,DATVER
COUNT
33

ERROR
LMORD
.MORD

013360

3s:

013360

MLDDMG:

$TESTN
ORECDST,R1
OTSTLOC+2,R4
OTABL1,80TSTLOC
247750,R2
R2
8-(R4),ACO
R3
ACO,(R1)
R2,R3
1

217
FPPERR

s INCREMENT TEST NUMBER
1POINT TO RECEIVED DATA LOCATION
sPOINT TO GOOD DATA
$1SET UP MODE S POINTER TO DATA
1LOAD GOOD STATUS
1LOAD FPP STATUS
- DOUBLE,ID
1 »TEST INSTRUCYION MODE S
$sSAVE TEST FPP STATUS
$SAVE TEST RESULT
sVERIFY FPP STATUS
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sBAD FPP STATUS

sVERFIY AUTO-DEC
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sBAD AUTO-DEC
sPOINT TO EXPECTED DATA
sVERFIY DATA FROM FPP
sSEE IF COUNTER=0
sBRANCH IF GOOD COMPARE
sALL ERRORS YO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
iBAD DATA FROM FPP

$30880400000000000004800080000002000000000080000020000000000008000080808

soTEST 43

TEST LDD MODE 6

1008880002880 00000008000080000000000004004802008080800800088008800808

013360
013360
013364
013370
013374
013400
013402
013406
013410
013414
013420
013422
013424
013426

002013

013430
013434
013440
013444

162701
062704
004767
005767

005267
012701
012704
012702
170102
172464

170203
174061
022703
001403

165420
001326
001006
047750

TST43:

MOV

LDFPS
LDD

S -

177600
047740

000200
000200
166502
165370

INC
MOV
MOV

cHP

1%:

28:

S$TESTN
ORECDST 200, fl!
#TAB2-200,R4

S47750,R2

R2
200(R4),ACO

ACo,
-200(R1)
#47740,R3

BEQ
ERROR
.WORD
.WORD

220
FPPERR

SuUB

#200,R1

ADD
JSR
TST

#200,R4
R7,DATVER
COUNT

s INCREMENT TEST NUMBER
sPOINT TO RECEIVED DATA LOCATION
sSETUP R4 FOR MODE 6
:LOAD GOOD STATUS
sLOAD FPP STATUS
- DOUBLE,ID
1LDD MODE 6
:SAVE TEST FPP STATUS
:SAVE TEST RESWLY
iVERIFY FPP STATUS
l!fllfltfl IF GOOD

ALL ERRORS TO TRAP TO EMT VECTOR

:UN!GUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1BAD FPP STATUS
1R1=RECDST

1POINT TO EXPECTED DATA

1VERFIY DATA FROM FPP

1SEE IF COUNTER=0

GLOBAL AFERS
KDJ11A.MAC
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3122
312%
3126

013450

013452
013454
013456

15 MAR
Ba 5
MACY1l

30AC1052)

001403
104000
000221
002013

4952

15-MAR-84

a3 67851086 88oc
16:58

013460
013460

PAGE

BEQ
ERROR
.WORD
‘WORD

38
221
FPPERR

}BRANCH IF GOOD COMPARE
sALL ERRORS TO TRAP TO EMT VECTOR
JUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
1BAD DATA FROM FPP

MLDDM7;
H |...“‘.“‘.““‘.“.“““‘.‘.“..“‘.“...“.‘.““‘.“

{aTEST 44

013460
013460
013464
013470
013472
013500
013504
013506
013512
013514
013516
013520
013522
013524
013526
013530
013532
013534
013536
013540
013542
013546
013552
013556
013560
013562
013564

..“l“

TEST LDD MODE 7

3 ]...““‘..“‘.““.““..‘.“0‘.".‘.“““.‘..‘..O‘.

005267
012701

165320
001126

012727
012702

001176
047750

005004

170102
001136
170203
174011
020203
001403
104000
000222
002013
005704
001403
104000
000223
002013

TST44;

001403
104000
000224
002013

001176
166374
165262

$TESTN
ORECDST,R1

MOV
MOV

@TAB1,0TSTLOC
047750, R2

CLR

001136

172474

012708
004767
005767

‘.‘..‘.“‘

INC
MOV

LOFPS
STFPS
STD
cMP
BEQ
ERROR
JMORD
"WORD
ST
BEQ
ERROR
JWORD
'WORD
LDD

18:

2s:

MOV
JSR
ST

BEQ
ERROR
LMORD
'MORD

013566

3s:

013566

MLDM27:

R2
BTSTLOCCRA),ACO
RS
ACO, (R1)
R2,R3
18
222
FPPERR
R4
2
223
FPPERR

oTAB1,R4
R7,DATVER
COUNT

3%
224
FPPERR

s INCREMENT TEST NUMBER
sPOINT TO RECEIVED DATA LOCATION
1R4=0
sPOINTER FOR MODE 7 GOOD DATA
sLOAD GOOD STATUS
:LOAD FPP STATUS- DOUBLE. Io
sTEST INSTRUCTION- MODE
7

1SAVE TEST FPP STATUS
:SAVE TEST RESULT
IVERIF’ FPP STATUS
:BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
JUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
;BAD FPP STATUS
sVERFIY CONTENTS OF R4
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

+POINT TO RECEIVED DATA
:VERFIY DATA FROM FPP
1SEE IF COUNTER=0

:BRANCH IF GOOD COMPARE
;ALL ERRORS TO TRAP TO EMT VECTOR
JUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1BAD DATA FROM FPP

H '“‘.‘..‘.‘.‘0‘..“.‘.“.“.‘.‘....‘.........O.“.‘.‘..““.....

1#TEST 45
013566
013566
013572
013576
013602
013606
013610
013612
013616

TEST LDD MODE 27 - ONLY 16 BITS ARE LOADED OR STORED

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

005267
012701
012704
012702

005005
170102

172427

005205

165212
001126
001236
047750

043243

TST4S:

INC
MOV
MOV
MOV

STESTN
ORECDST,R1
#TABS, R4
047750,R2

INCREMENT TEST NUMBER
1POINT TO RECEIVED DATA LGCATION
tPOINT TO GOOD DATA
1LOAD GOOD STATUS

{LOAD FPP STATUS- DOUBLE.ID

CLR

LDD

95205,ACO

LOFPS

INC

SEQ ooe2

1RS=0

14TEST INSTRUCTION- MODE 27

GLOBAL

AREAS
KDJ11A.MAC

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
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182

15-MAR-84

013620
013622
013624
013630
013632
013634
013635

005205
005205
022705
001403
104000
000225
002013

013640
013642
013€44

170203
174011

30A(1?52)

15:5

T45

16:58
PAGE 63
TEST LDD MODE 27

000003

18:

047740

013652
013654
013656

022703
001403
104000
000226
002013

013660
013664
013670
013672
013674
013676

004767
005767
001403
104000
000227
002013

166262
165150

013650

15-MAR -84

INC
INC
CMP
BEQ
ERROR
.WORD
.WORD

RS
RS
©3,R5

STFPS
STD

R3
ACO,(R1)

2%:

ONLY

FPPERR

JSR
TST
BEQ
ERROR

R7,DATVER

1BAD MODE 27 LOAD
$1SAVE TEST FPP STATUS
$SAVE TEST RESULT
sVERIFY FPP STATUS
$BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIGUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sBAD FPP STATUS
sVERFIY DATA FROM FPP
$SEE IF COUNTER=0
$sBRANCH IF GOOD COMPARE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
3:BAD DATA FROM FPP

226

COUNT
3
227

FPPERR

013700

3s:

013700

MNNRM1:

TEST PROPER PC PATH

tVERIFY ONLY 3 PC INCREMENT
s1BRANCH IF PROPER PC ACTION
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s1ADDRESS OF ERROR MESSAGE

225

.WORD

SEQ

16 BITS ARE LOADED OR STORED

FPPERR

047740 ,R3

ERROR
. WORD

cMP
BEQ

$300000000000000000000000000048000000008000808000080808808008088848

;oTEST 46

013700
013700
013704
013710
013714
013720
013724
013726
013730
013732
013734
013740
013742
013744
013746

001403
104000
000230
002013

013750
013754
013756
013762
013766
013770
013772
013774

012701
174011
004767
005767
001403
104000
000231
002013

013776
014002

TEST ADDF, ADDD,

SUBF,

SUBD
- ACO=0 FSRC=0;

3“..“.“..“......‘...‘.‘..‘.“.“.‘00.‘...“...“...‘.‘.“O.

005267
012704
005067
005067
012702
170102
172414

172014
170203
022703

012702
170102

165100
001256
165216
165214

TSTCG:

‘

3127
3128
3129
3130
3131
3132
3133

MACY11

CLR
CLR

LOF
STFPS

040004

OTESTN
07‘.‘

iOQ

RECDSTOG
::0000.!2
(R4),ACO

(R4),ACO
R3
#40004 ,R3

230

FPPERR
001126

166164
165052

18:

ORECDST,R1

ACO,(R1)

R7,DATVER

COUNT
2t

231

FPPERR

040200

940200,R2
R2

s INCREMENT TEST NUMBER
sPOINT TO FSRC TEST DATA
sCLEAR OUT RECEIVED DATA TABLE
]

:SET UP GOOD STATUS
sLOAD FPP STATUS, FLOATING
sLOAD ACO WITH O
3100

3sSAVE STATUS

sVERIFY STATUS
:1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE
3BAD FPP STATUS
sPOINT TO RECEIVERD DATA
1SAVE DATA
iVERIFY DATA
L}

1BRANCH IF GOOD

tALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

1BAD DATA IN ACO
1LOAD FLOATING STATUS
3

0063

-MAR -84
3
P
HAE‘S 15-"&&*3‘ 30A
?s§§?52) T26 ” ?EST aggf?‘ADDD. SUBF, SUBD - ACO=0 FSRC=0;
ARE

014022
014024
014026

172414
172014
174011
170203
022703
001403
104000
000232
002013

014030
014034
014040
014042
014044
014046

004767
005737
001403
104000
000233
002013

014050
014052
014054
014056
014062
014064
014066
014070

172414
173014
170203
022703
001403
104000
000234
002013

014004
014006
014010
014012
014014
014020

014072
014074
014100
014104
014106
014110
014112

174011
004767
005767
001403
104000
000235
002013

014114
014120

170127
172414
173014
170203
174011
022703
001403

014122
014124
014126
014130
014134
014136
014140
014142

3231

3235

3236
3237
3238

014144
014150
014154
014156
014160
014162

LDD
ADDD

166112
001040

STD

ACO (R1)

CMP

040204.R3

STFPS

040204

3s:

040204

BEQ
ERROR
.MORD
.WORD

232
FPPERR

JSR

R7,DATVER

TST

LDD
SUBD
STFPS
cHP
BEQ
ERROR

(R4),ACO
(R4),ACO
R3
040204 ,R3
a4

014164

MNNRM2
;

;ADDRESS OF ERROR MESSAGE

.m IF GOOD

235
FPPERR

.mxu ERROR NUMBER
sADDRESS OF ERROR MESSAGE

LDFPS
LDD
SUBF
STFPS
STD

@0
(R4),ACO
(R4),ACO
R3
ACO,(R1)

COUNT

ALL ERRORS TO TRAP TO EMT VECTOR

1BAD ACO
1STORE FPP STATUS
sLOAD ACO

10-0

o4 RS
63

236
FPPERR

JSR
R7,DATVER
TST COUNT

ERROR
.WORD
"WORD

78:

ACO,(R1)

:BAD FPS

;SETUP DATA
;oTEST INSTRUCTION
s SAVE STATUS
sVERFIY STATUS
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

8EQ
ERROR
LMORD
.MORD

BEQ

014164

234
FPPERR

1BAD ACO

sSAVE ACO DATA
sVERFIY DATA

64:

233
FPPERR

sVERFIY DATA

sVERIFY RESULT
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

R7,DATVER

BEQ
ERROR
.MORD
.WORD
165776
164664

;BAD FPS

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

JSR
TST

Ss:

$BRANCH IF GOOD

S0COUNT

aas

STD

1LOAD ACO WITH O
1#TEST INSTRUCTION
1SAVE DATA
1 SAVE FPS
sVERFIY STATUS

BEQ
ERROR
.WORD
.WORD

LWORD
"WORD

166046
164734

(R4),ACO

(R4).ACO

237
FPPERR

1BAD FPS

sSAVE STATUS
1SAVE ACO
sVERFIY STATUS
;BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s+ADDRESS OF ERROR MESSAGE
3

sVERIFY DATAT

1BRANC IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

:8AD ACO

1ADDRESS OF ERROR MESSAGE

SEQ

0064

GLOBAL AREAS
KDJ11A. MAC

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
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294

15-MAR-84

30A
08(1952)

15-MAR.84

N5
16:38_ PA
63
BE
o

FSRC=0,

SEQ 0065

ACO NE 0

TIR080000000
000000000
0000
000
0000
000 000000000
0004
00000000
0bittbins

1+TEST 47

014164
014164
014170
014174
014200
014204
014210
014212
014214
014216
014220
014222
014224
014226
014232
014234
014236
014240

014242
014246
014252
014256

014260
014262
014264
014266
014272
014274
014276
014300
014302
014306
014310
014312
014314

014316
014322
014326
014332
014334
014336
014340

TEST ADDF, SUBD

- FSRC=0,

ACO NE O

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

005267
012701
012705
012704

170127

172415
005002
170102
172414
172015
170203
174011
022703
001403
104000
000240
002013
012704
004767
005767
001403
104000
000241
002013

164614
001126
01256
001206
000200

TST47:

.‘0‘.

INC

MOV
MOV
MOV
LOFPS
LOD
CLR
LOFPS
LOF
ADDF
STFPS
STF

CHP
BEQ

ERROR

$TESTN
ORECDST,R1
@TAB6,RS
0TAB2,R4
9200

s INCREMENT TEST NUMBER
tPOINT TO RECEIVED DATA TABLE
+POINT TO SOURCE DATA TABLE
1POINT TO ACO DATA
1SET TO DOUBLE FOR CLEAR

(R5),ACO

R2
R2

1SETUP FPP STATUS
1LOAD FPS
1LOAD ACO
3s#TEST INSTRUCTION
1SAVE STATUS
$SAVE ACO
sVERFIY NEGATIVE RESULT
3 BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

(R4),ACO
(RS),ACO

R3
ACO,(R1)
#0,R3

240

FPPERR

001226
165674
164562

1$:

1BAD FPS

0TAB4 R4
R7,DATVER

COUNT
24

FPPERR

170127
172414
173015
170203
174011
022703
001403

2%:

001226

165620
164506

014342

a%:

014342

MNNRM3
:

;ADDRESS OF ERROR MESSAGE
sPOINT TO EXPECTED DATA
sVERFIY ACO
sCHECK RESULT
IF
$1BRANCH
IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIGUE ERROR NUMBER

241

§§§§§§§ §§§§33§§§§

3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249

MACY11l

:1BAD ACO

9200

.Anoaess OF ERROR MESSAGE

$SET STATUS TO DUOBLE NODE

(R4),ACO

sLOAD ACO WITH A VALUE
3¢TEST INSTRUCTION
$SAVE FPP STATUS
31SAVE ACO

(R5),ACO
R3
ACO,(R1)
9200,R3
38

sVERIFY RESWLT

lfllANCH IF GOOD

ALL ERRORS TO TRAP "0 EMT VECTOR
UNIGUE ERROR NUMBER

242

FPPERR

.aoonsss OF ERROR MESSAGE
1BAD SuUBD
:POINT TO EXPECTED
tVERIFY ACO

#TABA R4

R7,DATVER
COUNT

:BRANCH IF GOOD ACO

sALL ERRORS TO TRAP TO EMT VECTOR

243

FPPERR

18AD ACO

tUNIOUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

10806008840 0004800000000000080004000000000000004000000000000000000000

s#TEST 50

TEST ADDD,

SUBF

- FSRC NE 0, AC0=0

1300840484000 00000080000000000000000000000000000000000020000000000

GLOBAL AREAS

KDJ11A.MAC

3295

3296
3237
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
3341
3342
3343
3344
3345
3347
3348
3349
3350

014342
014342
014346
014352
014356
014362
014366
014370
014372
014374
014376
014400
014404
014406
014410
014412
014414
014420
014424
014426
014430
014432
014434
014440
014442
014444
014446
014450
014454
014456
014460
014462
014464
014470
014474
014500
014502
014504
014506

MACY1l

30A(1052)

15-MAR-84 15:51
005267
012701
012705
012704
012702

170102
172415
172014

164436
001126
001256
001176
000200

15-MAR-84

TS50

16:58

TST50:

001403
104000

000210

001403

165526
164414

18:

000200

28:

173014

1SAVE STATUS

BEQ
ERROR

000200

JSR
TST

R7,DATVER
COUNT

ai;

014510

MNNRMA;

]

IUNIQUE ERROR NUMBER
8n0 "suflOOGESS OF ERROR MESSAGE
sVERFIY ACO
sCHECK RESULTY

1BRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR

245

sUNIQUE ERROR NUMBER

8%0 ‘co.mss OF ERROR MESSAGE

LOFPS
LOF

9200
(R5),ACO

$SET STATUS TO DUOBLE NODE
sLOAD ACO WITH A VALUE

R3S
ACO,(R1)
9200,R3

sSAVE FPP STATUS
$SAVE ACO
sVERIFY RESWLY

(R4),ACO

LMORD
.MORD

248
FPPERR

MOV
JSR
TSY

#TAB18,.R4
R7,DATVER
COUNT

ERROR
LHORD
LHORD

014510

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

FPPERR

BEQ

104000
000247
0020132

1SAVE ACO
sVERFIY NEGATIVE RESWULT

JHWORD

BEQ

3s:

1LOAD FPS
sLOAD ACO
$s¢TEST INSTRUCTION

420,(R1)
0210,R3

244
FPPERR

ERROR

001446
165452
164340

R2
(R5),ACO
(R4),ACO

LWORD
.HORD

STFPS
STF
c

000246
002013

001403

SUBD

104000

012704
004767
CO5767

STFPS

MORD

002013

001403

s INCREMENT TEST NUMBER
tPOINT TO RECEIVED DATA TABLE
1POINT TO ACO DATA TABLE
tPOINT TO FSRC DATA
1SETUP FPP STATUS

ERROR

000245

170203
174011
022703

$TESTN
ORECDST,R1
0TAB6,RS5
0TAB1,R4
#200,R2

BEQ

104000

170127
172415

INC
MOV
MOV
MOV
MOV

STD
cMP

000244
002013
004767
005767

TEST ADDD, SUBF - FSRC NE 0, ACO=0

LDFPS
LOD
ADDD

170203

174011
022703

PAGE 66

]

soTEST INSTRUCTION

3sBRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR

tUNIQUE ERROR NUMBER
3sADDRESS OF ERROR MESSAGE

3sBAD SuUBD

sPOINT TO EXPECTED DATA
sVERIFY aCO
]

47
FPPERR

$BRANCH It GOOD ACO

18AD ACO

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

350088800005 00000800000000000000000000000000000000000000000000000

soTEST S1
014510

014510
014514
014520

014522
013526

TEST

ADDF, SUBD - EXP(ACO) = EXP(FSRC)

§10008000800000008000080000200800000000000000000000000000000000000

005267

170102

012704
012705

164270
001276
001306

1S7151:;

INC

STESTN

LOFPS

MOV
MOV

OTAB7 R4
OTABS,RS

s INCREMENT TEST NUMBER
1SET FSRC
1SETUP ACO

0066

Cée

kbR AREAS | SMARA1A4SPA(4R52) 15-MAR:BA 16:3p. PAGE 67 o - EXP(ACO) = EXP(FSRC)

014570
014574
014600
014604
014606
014610
014612
014614
014620
014624
014626
014630
014632

012701

172415
172014
174011
012704
004767
005767
001403
104000
000250
002013
012704
012703
012702
170102
172413
061400
174011
004767
005767
001403
104000
000251

001126

MOV

LOD
ADDD
STD

001316
165372
164260

MOV
JSR

TST
BEQ
ERROR

.WORD
001306
001306
003200

O@RECDST,R1
(R5),ACO

1POINT TO RECEIVED DATA
1LOAD ACO

ACO,(R1)
0TAB9,R4
R7,DATVER

1SAVE TEST RESULT

(R4),ACO

E?UNY

250

FPPERR

251

FPPERR

014634

MXDF 1:

1ADDRESS OF ERROR MESSAGE

1BAD ADDO

sLOAD ACO
soTEST INSTRUCTION

COUNT

2%:

tALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER

(R3),ACO
(Ra)ACO

014634

ISETUP SAME ACO
1ROUND MODE

00,(R1)
oarv:a

002013

1POINT TO EXPECTED DATA
sVERIFY ACO DATA

#3200,R2

165326
164214

1#TEST INSTRUCTION

1BRANCH IF GOOD

@TABS,R4
0TABB,R3

1SAVE DATA
1 VERIFY ACO

$BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
1BAD ROUND RESWLT

1300000000040 000000000000000000000000000000000000000000000080000008

1oTEST S2

014634
014634
014640
014644
014646
014652
014656
014662
014664

014666
014670
014672
014676

014700
014702
014704

014706
014712
014715
014722
014724
014726

TEST ADD - EXP(FSRC) .GT. EXP(ACO)

$10080000200080000000000000000000000000000000800000000

005267
012702
170102
012704
012701
012705
172415

172014
170203
174011
022703
001403
104000

164144
003200

TSTS2:

001336
001126
001326

003200

001346
165230
164116

18:

STESTN
#3200,R2

DFPS
MOV
MOV
MOV
LDD
ADDO
STFPS

L
(RS),AC0
¢3200,R3

oTAB11,R4

uw.uco

STD

Aco (RL)

BEQ

ERROR
.WORD
. WORD

002013
012704
004767
005767
001403
104000
000253

00000000000¢e

%37

3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406

014532
014536
014540
014542
014544
014550
014554
014560
014562
014564
014566

3351
3352
3353
3354
3355
3356

SEQ 0067

MOV
JSR
1534

BEQ
ERROR
WORD

252

FPPERR
OTABL11A,
R4
.
R7,DATVER

COUNT
24

253

s INCREMENT TEST NUMBER
sR2+FPP STATUS
iLOAD FPS STATUS
sPOINT TO FSRC DATA
1POINT TO ACO RESWLT

sPOINT TO ACO DATA
sLOAD ACO DATA
toTEST INSTRUCTIONS
:SAVE FPP STATUS
$1SAVE ACO DATA

tVERIFY FPP STATUS
1BRANCH IF GLOD
sALL ERRORS TO TRAP TO EMT VECTOR

IUNIGUE em NUMBER

+ADDRESS
OF ERROR MESSAGE

1BAD FPP STATUS

1POINT TO EXPECTED DATA
1VERIFY CONTENTS OF ACO

1BRANCH IF GOOD ACO
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

GLOBAL ARE AS
KDJ1.1A
MAC
3407
3408
3409
3410
3411
3412
3413

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

3441
3442
3443
3444
3445
3446
3447
3448
3449

3450
3451
3452
3453
3454
3455
3456
3457
3458

3459
3460
3461
3462

014730
014732
014736
014740
014742
014746
014750
014754
014760
014762
014764
014766

HACV 11

15-M

SOA(
é052)

15 -MAR
gd

16:381PA86 ®®expcrsrey .G, EXP(ACO)

002013

012704
172415
172014
012704

174011

004767
005767
001403
104000
000254
002013

014770
014774
015000
015004
015006
015010
015012
015016
015020
015024
015030
015034
015036
015040
015042

004767
005767
001403
104000
000255
002013

015044
015050
015052
015054
015056
015060
015064
015070
015074
015076
015100
015102

012705
170102
172415
172014
174011
012704
004767
005767
001403
104000
000256
002013

012702
012704
012705

172415
170102
172014
170127
174011
012704

FPPERR

001356

28:

MOV

001376

165172

164060

@TAB12,R4

(R5).ACO
(R4),ACO
0TAB138,R4
ACO,(R1)

MOV

#3000,R2
0TAB14 R4
0TAB15,R5

(R5),ACO

FPPERR
#TAB16,RS

(R5).ACO
(R4),ACO
ACO,(R1)

eTABL7,R4

R7,DATVER

COUNT
Ss

256

FPPERR

015104

Ss:

015104

MNGOP
:

1FPP STATUS = FLOAT,

INTERRUPTS ENABLE

1BRANCH IF GOOD

255

001436
165056
163744

sGET FPP STATUS DATA
sPOINT TO FSRC DATA
sPOINT TO ACO DATA
sLOAD ACO

COUNT

LOF

1ADDRESS OF ERROR MESSAGE

1BAD ACO DATA

#TAB10,R4
R7,DATVER

ACO, (R1)

MOV

TO EXPECTED RESULT

$oTEST INSTRUCTION
sRESET T0 DOUBLE
sRECDST=ACO
;POINT TO GOOD DATA
sVERFIY CONTENTS OF ACO

9200

sPOINT

254

(R4),ACO

001426

TO FSRC DATA

+ACO
$s#TEST INSTRUCTION

1BRANCH IF GOOD DATA
1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

001326
165116
164004

tPOINT

R7,DATVER

COUNT
34

3s:

1ADDRESS OF ERROR MESSAGE

18AD ACO. SHOULD = FSRC

1SAVE ACO DATA INTO RECDATY
tVERIFY DATA

FPPERR

003000
001406
001416

SEQ 0068

sALL ERRORS TO TRAP TO EMT VECTOR

I\Nm ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

iBAD FLOAYI'G ADD

sPOINT TO ACO DATA
sFPP STATUS = FLOAT
sLOAD ACO
soTEST INSTRUCTION
3SAVE ACO

DATA

sPOINT TO GOOD DATA

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

1BAD FLOAYI'G ADD

$3900000008000000000000000004000000000000000000200000000000000000000

$oTEST 53

015104
015104
015110
015114
015116

TEST ADDD WITH NEGATIVE OPERANDS

§3008880000040800000000000000000000020000000002000000000000000000

005267
012702
170102
012704

163674

003200
001456

YSTSS:

STESTN

#3200,R2
R2

0TAB21,R4

t INCREMENT TEST NUMBER
1LOAD FPS VALUE
H

1DATA ADDRESS FOR ACO AND FSR

GLOBAL AREAS
KDJ11A.MAC

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
>399

3500
3501
3502
3503
3504

3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518

MACY11l

15-MAR-84
172414
172014
170203
012701
174011
022703
001403
104000
000257

30A(10S52)

15:51

015122
015124
015126
015130
015134
015136
015142
015144
015146
015150

002013

015152
015156
015162
015166
015170
015172
015174

012704
004767
005767
001403
104000
000260
002013

001466
164764

015176
015202
015206
015214
015216
015220
015222
015224
015226

012704
012701
012737
172411
172014
170000
104000
000261
002013

001456
001476
015230

015230
015232
015236
015240
015244
015246
015250
015252

170203
012701

174011
022703
001403
104000
000262
002013

015254
015256
015262
015264
015266
015270

012605
020527
001403
104000
000263
002013

015272
015274
015300
015304
015310
015312
015314
015316

005726
012704
004767
005767

001403
104000
000264
002013

15-MAR-84
153

16:58
PAGE 69
TEST ADDD WITH NEGATIVE OPERANDS

LDD
ADDD

STFPS
MOV
STD
CMP
BEQ

001126
003210

ERROR

18:

163652

(R4),ACO
(R4),ACO

1ACO0=100200 0 0 O
1#TEST INSTRUCTION
1SAVE STATUS
tPOINT TO RECEIVED DATA TABLE
1SAVE ACO DATA
1VERIFY STATUS
1BRANCH IF GOOD

R3
ORECDST,R1
ACO,(R1)

:?210.R3

sALL ERRORS TO TRAP TO EMT VECTOR

257

tUNIQUE ERROR NUMBER

FPPERR

1ADDRESS OF ERROR MESSAGE

0TAB22,R4
R7,DATVER

1POINT TO EXPECTED DATA
'

COUNT
24
260

FPPERR

2%:

100%:

1-FSRC! = 1ACO! |

0TAB21,R4
OTAB23,R1
€101 ,80FPVEC

(R1),ACO
(R4),ACO

261

001126

1018:

R3
ORECDST,R1

ACO,(R1)

103200

g%osaoo.ns

262
FPPERR
015220

3s:

(SP)+,RS
RS, 91008
1024

ADDRESS OF ERROR MESSAGE

sBAD ERROR RETURN ON STACK

(SP)»

JRESTORE STACK
{POINT TO EXPECTED DATA TABLE
:VERIFY DATA

#TAB24 ,R4
R7,DATVER

COUNT

264

FPPERR

!-ACO!

sPOINT TO FSRC DATA
sPOINT TO ACO DATA
sSETUP FP VECTOR
sLOAD ACO
3oTEST INSTRUCTION
sCOPY FPP CC
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
31GO TO ERROR
1SAVE FPP STATUS
sPOINT TO RECEIVED DATA TABLE
sSAVE ACO DATA
iVERIFY STATUS
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
*IDOIESS OF ERROR MESSAGE

263

102s:

sVERIFY DATA
;BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

1BAD STATUS
1GET ERROR PC
IVERIFY ERROR ADDRESS ON STACK
1BRANCH IF GOOD
iALL ERRORS TO TRAP TO EMT VECTOR
{UNIGUE ERROR NUMBER

FPPERR

001506
164642
163530

SEQ 0069

!FSRC!

1BRANC IF GOOD
1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1BAD ACO DATA

012704
012701
012737
012702
170102
172411
172014
170000
104000
000265
002013

001476
001456
015360
003200

15-MAR-8

015360
015362
015366
015370
015374
015376
015400
015402

174011
022703
001403
104000
000266
002013

015404
015406
015412
015414
015416
015420

012605
020527
001403
104000
000267
002013

015422
015424
015430
015434
015440
015442
015444
015446

005726
012704
004767
005767
001403
104000
000270

170203
012701

000244

103¢:

001126

1048

103200

015350

001506
164512
163400

012704
004767

?EST8807SITH NEGATIVE OPERANDS
MOV
MOV
MOV
MOV
LOFPS
LDD
ADDD
CFCC
ERROR
.WORD
.WORD

STFPS
MOV
STD
BEQ
ERROR
.WORD
.WORD

Ss:

105s:

001526
001516
003200

001126

003200

001536
164412

16:

cHP

002013

015450
012704
015454
012701
015460
012702
015464 . 170102
015466
012737
015474
172411
015476
172014
015500
170203
015502
012701
015506
174011
015510
020327
015514
001403
015516
104000
015520
000271
015522
002013

015524
015530

15-MAR
g‘

7%:

: §§§§35§§g§§g§§§- TR §§§§3§

3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574

015320
015324
015330
015336
015342
015344
015346
015350
015352
015354
015356

30“(
§052)

3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549

HACYll

GLOBAL AREAS
KDJ11A.MAC

#TAB23,R4
0TAB21,R1

tPOINT TO
tPOINT TO
1SETUP FP
1LOAD FPS

93200,R2
R2

sLOAD ACO DATA

$#TEST

265

266

FPPERR

RS5,0103%
105s
267
FPPERR

(SP)»

0TAB24 R4
R7,DATVER

INSTRUCTION

;COPY FPP CC
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

FPPERR

ACO,(R1)
ggoszoo.as

FSRC DATA
ACO DATA
VECTOR
VALUE

(R1),ACO
(R4),ACO

R3
O@RECDST,R1

SEQ 0070

s ADDRESS OF ERROR MESSAGE

1GO TO ERROR
s SAVE FPS
1SAVE ACO
'

s VERFIY STATUS
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRE SS OF ERROR MESSAGE
1BAD FPS STATUS
sGET ERROR PC
s VERIFY Eflflflfl ADDRESS ON STACK
IF GOCD
] BRANCH

1ALL ERRORS TO TRAP TO EMT VECTOR

IUNIOUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sBAD ERROR RETURN ON STACK
sRESTORE STACK
sPOINT TO EXPECTED DATA

COUNT

|!fiANCN IF

270

aUNIGUE ERROR NUMBER
3sADDRESS OF ERROR MESSAGE

FPPERR

t-FSRC! «

0TAB26,.R4
#TAB2S,.R1
#3200, R2

:BAD ACO
fACO!?

0246, 80FPVEC

1SETUP FP VECTOR

(R1),.ACO
(g‘)+ACO

iLOAD ACO DATA
1¢TEST INSTRUCTION
1SAVE STATUS
+POINT TO RECEIVED DATA TABLE
1SAVE ACO
iVERIFY STATUS
1BRANCH IF GOOD
+ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

ORECDST,R

ACO.
uui
R3S,
#3200

271

FPPERR

0TAB27,R4
R7,DATVER

sPOINT TO FSRC DATA
+POINT TO ACO DATA
:LOAD FPS VALUE

GOOD

ALL ERRORS TO TRAP TO EMT VECTOR

1BAD FPS

1ADDRESS OF ERROR MESSAGE

1POINT TO EXPECTED DSATA
1VERIFY DATA

GLOBAL AREAS
KDJ11A .MAC

3575

3576

3577

3578
3579

3581

3582
3583
3584

3585

3586

3587
3588

015534

MACY1l 30A(1052)
15-MAR-84 15:51

005767

015540

001403

015544
015546

000272
002013

015542

015564

015566

015572

3589 015574

170203

012701

3607
3608

015620

005767

015630
015632

000274
002013

015646
015650

3609
3610

015652
015656

3612
3613

015664
015666

3611

015660

001403
104000

012704
012701
172411

172014
170203

012701
174011

020327

001403
104000

001536
164326

001556
001546

015674

012704

001566

3619
3620

015704
015710

005767
001403

163130

3622
3623

015714
015716

000276
002013

3625
3626

015720

3627

3628

3629

3630

004767

9s:

108:

164242

oTAB27,R4
R7,DATVER

TST

COUNT

JMORD
‘WORD

274
FPPERR

1-FSRC! «

118:

ORECDST,R1
ACO,(R1)

B8EQ
ERROR

114

104000

1SAVE ACO

sVERIFY STATUS

sBRANCH IF GOOD

;ALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
aap Fps' "ODRESS OF ERROR MESSAGE
]

;

MOV

OTAB29A, R4

sPOINT TO EXPECTED DSATA
sVERIFY DATA

sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

1BAD ACO
1ACO!

;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

sPGINT TO FSRC DATA
sPOINT TC ACO DATA
sLOAD ACO DATA

;sTEST INSTRUCTION
:SAVE STATUS

sPOINT TO RECEIVED DATA TABLE
1SAVE ACO

#3200

275
FPPERR

;VERIFY STATUS

:BRANCH IF GOOD
+ALL ERRORS TO TRAP TO EMT VECTOR

UNIQUE ERROR NUMBER
gap rps "DORESS OF ERROR MESSAGE
H

R7,DATVER

:POINT TO EXPECTED DATA

ST
BEQ

COUNT
124

:VERIFY DATA
:
1BRANCH
IF GOOD

LMORD
'WORD

276
FPPERR

1UNIQUE ERROR NUMBER
{ADDRESS OF ERROR MESSAGE

ERROR

128;

RS,

JMORD
"MORD

JSR

sPOINT TO RECEIVED DATA TABLE

(R4).ACO
R3

MOV
STD
e

1SAVE STATUS

108

#TAB29,R4
#TAB28.R1
(R1),ACO

sPOINT TO FSRC DATA
sPOINT TO ACO DATA
1LOAD ACO DATA

16TEST INSTRUCTION

MOV
JSR

ADDD
STFPS

1-AC!

ACO, (R1)

273
FPPERR

MOV
MOV
LDD

(R4).ACO

JMORD
‘WORD

BEQ
ERROR

003200

3617

015712

STFPS

BEQ

001126

000275
002013

3621

0TAB2S, R4
0TAB26 .R1
(R1),ACO

STD

163214

015670
015672

015700

MOV
MOV
LOD

ADDD

3614
3615

3618

ERROR

012704
004767

015634
015640
015644

IFSRC!

104000

015610
015614

3608
3605
3606

R3, #3200

3595
3596

3602
3603

JUNIQUE ERROR NUMBER
JADDRESS OF ERROR MESSAGE

sALL ERRORS TO TRAP TO EMT VECTOR

cHP

000273
002013

3600
3601

272
FPPERR

020327 003200

174011

015604
015606

015624
015626

JWORD
'WORD

ORECDST,R1

3592
3593

3598
3599

BRANCH IF GOOD

MOV

001403

3597

8s:

ERROR

001516
001526

COUNT

S5EQ 0071

BEQ

001126

015600

015602

16: 58
PAGE
TEST A DD HITH NEGATIVE OPERANDS

172014

3590

3591

163300

104000

015550 012708
015554 012701
015560 172411

015562

lS-HAR-g4
TS53

1ALL ERRORS TO TRAP TO EMT VECTOR

;

015720

MSB

150 80 0 0 0 0000000000000000000000000000000000000000000000000000

GLOBAL AREAS

KDJ11A. MAC

3631
3632

3633
3634

3670

3676
3677

MACY11

15-MAR-84

30A(1052)

15:5 1

15-MAR-84
TS4

16:58

EST

H6
PAG

1+TEST S4

US ufrn EXP[ACO)=EXP[FSRC])
7

SEQ 0072

TEST SUB WITH EXP[ACC)=EXP[FSRC])

FI0800040000
00000000
0000
00000 00000000
0000
00000000
0000
0000000b
00
es

015720
015720
015724
015730
015732
015736
015742
015744
015746
015750
015752
015756
015760
015762
015764

005267
012702
170102
012704
012701
172414
173014
170203
174011
022703
001403
104000
000277
002013

015766
015772
015776
016002
016004
016006
016010

012704
004767
005767
001403
104000
000300
002013

001256
164150
163036

016012
016016
016020
016022
016024
016026
016032
016034
016036
016040

012704
172414
173014
170203
174011
022703
001403
104000
000301
002013

001406

016042
016046
016052
016056
016060
016062
016064

012704
004767
005767
001403
104000
000302
002013

163060

TSTS4;

INC

MOV
LOFPS
MOV
MOV
LDD

003200
001456
001126

SUBD
STFPS
STD

(R4).ACO
R3
ACO, (R1)

8EQ

cHP

003204

ERROR

18:

2s:

003204

38:

277
FPPERR

MOV
JSR
ST
BEQ

#TAB6,
R4
R7,DATVER
COUNT
2

ERROR
.MORD
'WORD

300
FPPERR

MOV
LDD
SUBD
STFPS
STD
cMe
BEQ

oTAB14
(R4), Aéo
cn).aco
RS
ACO, (R1)
03204 ,RS
34

301

MOV

oTABG,
R4

JSR
ST
BEQ

ERROR
LWORD
'MORD

016066

0165066

MNRM
;

s INCREMENT TEST NUMBER
;LOAD FPS DATA

sLOAD FPS
sPOINT TO FSRC DATA
sPOINT TO ACO RECEIVED DATA TABLE
sLOAD ACO
$#TEST

s SAVE STATUS

FPPERR

INSTRUCTION

$SAVE ACO INTO RECDST
s1VERIFY STATUS
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

03204 ,R3

LWORD
'WORD

'WORD

001256
164074
162762

STESTN

03200,
R2
R2
0TAB21,R4
ORECDST,R1
(R4),ACO

s ADDRES S OF ERROR MESSAGE
$BAD FPS STATUS
+POINT TO EXPECTED DATA
sVERIFY ACO
H

1BAD AC0

+BAD ACO

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

sPOINT TO FSRC AND ACO DATA
sLOAD ACO DATA
s#TEST INSTRUCTION
1SAVE FPS
3SAVE ACO INTO RECDST
iVERIFY FPS
1BRANCH IF
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

R7,DATVER
COUNT
as

sPOINT TO EXPECTED DATA
:VERIFY ACO

302
FPPERR

SUNIGUE ERROR NUMBER

llRlNCN IF GOOD

ALL ERRORS TO TRAP TO EMT VECTOR

:1BAD ACO

1ADDRESS OF Elflfll MESSAGE

3600080880888 0000000000800083000000000082000000000000000000000000

1#TEST S5

016066
016066
016072
016076

TEST NORMALIZE

33088088000080000000000000000000000000000000202200000000000000000

005267
012702
170102

162712
003200

TSTS5:

INC
MOV
LOFPS

$TESTN
#3200,R2

UI'CHEFGNT TEST NUMBER
iLOAD FPS
:

GLOBAL AREAS
KDJ11A. MAC

3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742

15:51

016100
016104
016110
016112

012705
012701

016114
016116
016122
016124
016130
016134
016140
016142
016144
016146

170203
012704
174014
012701
004767
005767
001403
104000
000303
002013

016150
016154
016160
016162

012701
012705
172411
173015

001616
001626

016164
016170
016172
016176
016202
016204
016206
016210

012701

001126

172411
173015

174011
004767
005767
001403

15-MAR-84
1S5

16:58

001606
001576

PAGE

MOV

MOV
LDD
SUBD

STFPS

001126

16
SEQ 0073

TEST NORMALIZE

001636
164012
162700

©TAB31,RS
©TAB30,R1

sPOINT TO FSRC DATA
1POINT TO ACO DATA
+LOAD ACO
1#TEST INSTRUCTION
311 LEFT SHIFT
1 SAVE STATUS
sPOINT TO
RECD:{S

(R13,ACO
(R5),AC0O

R3
ORECDST,R4
ACO,(R4)
0TAB34,R1
R7,DATVER

sPOINT TO EXPECTED DATA
sVERIFY DATA

1$:

FPPERR

303

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
s UNIQUE EflfiOR NUMBER
s ADDRESS
OF ERROR MESSAGE

oTAB32, RL
OTAB33
R

sACO DATA
sFSRC DATA

(RS).ACO

;8TST INSYHUCTION
156 LEFT SHIFTS
;SAVE DATA

(R1), Aé

sLOAD ACO

ORECDST,R1

ACO,(R1)

163750
162636

R7,DATVER

COUNT
24

104000
000304
002013

sALL ERRORS TO TRAP TO EMT VECTOR

304

sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

FPPERR

016212

2$:

016212

MUVAD:
110800080008 202000000000000000000000000000000040000000008000008080862080

3o TEST 56

016212
016212
016216
016222
016224

016230
016234
016236
016240
016242

016246
016250
016254
016256
016260
016262

016264
016270
016274

TEST ADDD MITH OVERFLOW AND UNDERFLOMW

1395808080000 00000000800000000000000000000800000000000080080808080808

005267
012702
170102
012704
012701

172411
172014
170203
012701
174011
022703

001403
104000
000305
002013
012704

004767
005767

162566

1S7S6:

001646
001646

001126
0C0206

359§g§§§§§x

3724
3725
3726

15-MAR-84

30A(1052)

STESTN
#200,R2

001256
163652
162540

18;

s INCREMENT TEST NUMBER
sSETUP FLOATING POINT STATUS
1LOAD FPS
3POINT TO FSRC DATA
sPOINT TO ACO DATA
sLOAD ACO WITM TEST DATA
1oTEST INSTRUCTION

#TABAO, R4
#TAB4O.R1

(R1),AC0

(ga)JACO

i1SAVE FPS

ORECDST,R1

a’oxut TO RECEIVED DATA TABLE

ACO,(R1)

iSAVE ACO

305
FPPERR

3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723

MACY11l

4TAB

G
R
R7 oni

COUNT

RESWLT

:VERI’Y STATUS
+BRANCH IF GOOD
3ALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER

1BAD FPS

1ADDRESS OF ERROR MESSAGE

iPOINT TO EXPECTED DATA

IVERIFY DATA

GLOBAL AREAS
KDJ11A.MAC
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
3780

3781

3782
3783
3784
3785
3786

3787

3788
3789
3790
3791
3792

3793
3794

3795
3796

3797
3798

016300
016302
016304
016306

016310
016314
016316
016322
016326
016330
016336
016340
016342
016344
016346
016350
016352
016356
016360
016364
016366
016370
016372

MACY11l

15-MAR-84

15:51

15-MAR-84
756

001403
104000
000306
002013

012702
170102
012704
012701
172411

012737

172014
170000
104000
000307
002013

170203
012701
174011
022703

001403

016410

012600
022700
001403
104000
000311
002013

016412
016414
016420
016424
01643¢C
016432
016434
016436

012600
012704
004767
005767
001403
104000
000312
002013

. WORD
. WORD

2s:

001646
001646
016350

000244

101206

016340

012704
012701
172411

172014
170203

012701

174011

022703
001403

MOV
ADDD
CFCC
ERROR

438 ,80FPVEC
(R4),ACO

sPOINT TO ACO DATA
sLOAD ACO WITH TEST DATA
sCHANGE TRAP VECTOR
+¢TEST INSTRUCTION

LWORD
'WORD

307
FPPERR

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

STFPS

STD
e

ACO, (R1)
0101206 ,R3

ERROR
.MORD
'WORD

310
FPPERR

MOV

BEQ
as:

Ss:

MOV

cwe
B8EQ
MOV

MOV
JSR
ST
8EQ

ERROR
LHORD
‘MORD

002106
001276
001656

001126
000204

MOV

(SP)s,RO
©234,R0
51
311
FPPERR

(SP)+,RO
oTABG, R4
R7,DATVER

COUNT

312
FPPERR

0200,R2

ADDD
STFPS

(R4),ACO
RS

MOV
STD
cMe
BEQ

tFAILED TO TRAP ON OVERFLOW

ORECDST,R1

LOFPS

MOV
MOV
MOV
LDD

sSETUP FLOATING POINT STATUS

;LOAD FPS
sPOINT TO FSRC DATA

(R1),ACO

JUNDERFLOW TRAPS DISABLED

7%:

1BAD ACO

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

€1200,R2
R2
#TAB4O,R4
©TAB4O,R1

ERROR
JMORD
‘WORD

001256
163522
162410

306
FPPERR

SEQ 0074

MOV
LOFPS
MOV
MOV

LDD
23s:

001126

;OVERFLOW TRAPS ENABLED

001200

012702

170102
012737

16:58
PAGE 74
TEST ADDD WITH OVERFLOW AND UNDERFLOW

BEQ
ERROR

104000
000310
002013

016374
016376
016402
016404
016406

016440
016444
016446
016454
016460
016464
016466
016470
016472
016476
016500
016504

30A(1052)

SMLDT
, 9OFPVEC
RP
oTABY,R4
eTABA1,R1
(R1),ACO

ORECDST,R1
0204 ,RS
8t

ACO, (R1)

:1BAD FPS

s SAVE FPS
sPOINT TO RECEIVED DATA TABLE
sSAVE ACO RESULT
sVERIFY STATUS
1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

1CHECK STORED PC
3

sBRANCH IF RETURN ADDRESS IS GOOD

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

1BAD RETURN ADDRESS
:CLEAN UP_ STACK
sPOINT TO EXPECTED DATA
sVERIFY DATA

+BAD ACO

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
sSETUP FLOATING POINT STATUS

iLOAD FPS
sREPLACE MWILD TRAP VECTCR
i1POINT TO FSRC DATA
sPOINT TO ACO DATA
;LOAD ACO WITH TEST DATA

1¢TEST INSTRUCTION
1SAVE FPS
1POINT TO RECEIVED DATA TABLE
+SAVE ACO RESWLT

1VERIFY STATUS

1BRANCH IF GOOD

AREAS

KDO11A.MAC ° 15 MAR
B4 15 85
3799 016506

MACY1l

016510
016512

000313
002013

3803

016514

012704

3807

3808
3809

3810
3811

3812
3813

3814
3815
3816
3817

3818
3819

3820

016520
016524
016530

004767
005767
001403

016534
016536

000314
002013

016532

016540

016544

016546
016554
016560
016564

016566
016570

016572

3826
3827
3828

016606
01661C
016614

174011
022703
001403

3830
3831

016620
oOl6622

000316
002013

3833

016624

012605

3837
3838

016636
016640

000317
002013

3840

016642

005726

016654

005767

3834
3835
3836

3839
3841
3842
3843

3848
3845

3846
3847

3848
3849
3850

3851

3852
3853

3854

016616

016626
016632
016634

016644
016650

016660
016662
016664
016666

012701

118:

001126
102210

104000

020527
001403
104000

012708
004767

001403
104000

128:

016570

138:

001246
163272
162160

000200

016676
016704

012737
012704

002106
001656

012701

313
FPPERR

MOV

#TAB6, R4

001666

sALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
onp Fps' ADDRESS OF ERROR MESSAGE
H

sPOINT TO EXPECTEC DATA

JSR
ST
BEQ

R7,DATVER
COUNT
9%

sBRANCH IF GOOD

JWORD
'WORD

314
FPPERR

JUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

MOV

JVERIFY DATA

1ALL ERRORS TO TRAP TO EMT VECTOR

;BAD ACO

#2200, R2

sSETUP FLOATING POINT STATUS
REPOSITION TRAP VECTOR
sPOINT TO FSRC DATA
sPOINT T0 ACO DATA
3LOPD ACO WITH TEST DATA

LOFPS

;LOAD FPS

ADDD
CFCC

(R4).ACO

s TEST INSTRUCTION
;COPTY FPP CC

ERROR

0118, 80FPVEC
oTAB7,R4
oTABA1,R1
(R1),ACO

.MORD
'WORD

315
FPPERR

SIFPS

STD
e
8EQ

ACO,(R1)
0102210,R3
124

LMORD
'MORD

316
FPPERR

MOV

(SP)+,RS

MOV

ERROR

sALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

sFAILED TO TRAP ON UNDERFLOW
sSAVE FPS

ORECDST,R1

cHe
8EQ
ERROR

RS, 2108
134

JMORD
.MORD

317
FPPERR

TST

CSP)e

MOV
JSR

#TABSA,
R4
R7,DATVE

8EQ
ERROR

148

000320
002013

170102

JWORD
'WORD

MOV
MOV
MOV
LDD

012702

016710

000244

108:

016670

016674

104000

170203

JUNDERFLOW TRAPS ENABLED

172014
170000

016600

PAGE

Test ABGD BITH OVERFLOW AND UNDERFLOW

ERROR

016600
001276
001656

3824

3829

8s:

163422
162310

012737
012704
012701
172411
000315
002013

016602

001256

002200

170102

16:58

ERROR

012702

016574
016576

3825

104000

3821
3822

3823

15-MAR-84

104000

3800
3801
3804
3805
3806

30AC1052)

COUNT

LMORD
'WORD

320
FPPERR

LOFPS

sPOINT TO RECEIVED DATA TABLE
sSAVE ACO RESULT
JVERIFY STATUS
sBRANCH IF GOOD

;ALL ERRORS TO TRAP TO EMT VECTOR

{UNIQUE ERROR NUMBER
aap Fpg!"OORESS OF ERROR MESSAGE

;GET ERROR PC

iVERIFY ERROR ADDRESS ON STACK
1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

84D

JUNIQUE ERROR NUMBER
mmss OF ERROR MESSAGE

RETURN ON STACK

{RESTORE STACK

:POINT TO EXPECTED DATA
IVERIFY DATA

JBRANCH IF GOOD
1ALL ERRORS TO TRAP TO EMT VECTOR

IUNIQUE ERROR NUMBER
m.mss OF ERROR MESSAGE

lm
sUNDERFLOW WITH TRAPS DISBLED - NON-ZERO RESWLT
148:
MOV
9200,R2
+SETUP FLOATING POINT STATUS
000244

MOV
MOV
v

GLOBAL

OWLDTRP , 9OFPVEC
#TABA1, R4
#TAB42,R1

1LOAD FPS

{RESTORE TRAP VECTOR
+POINT TQ FSRC DATA
tPOINT TO ACO DATA

GLOBAL AREAS

KDJ11A . MAC

Yil

016714
016716
016720
016722
016726
016730
016734
016736
016740
016742

172411
172014
170203
012701
174011
022703
001403
104000
000321
002013

3866
3867
3868
3869

016744
016750
016754
016760

012704
004767
005767
001403

3871
3872

016764
016766

000322
002013

3874

3875
3876

052)

1S-HSR g

3855
3856
3857
3858
3859
3860
3861
3862
3863
3“38645

3870 016762

30“(

15-MAR-84

001126
000204

001256
163172
162060

15¢:

104000

16:

L6
PA

?SST ASSD WITH OVERFLOW AND UNDERFLOW
LDD
ADDD
STFPS
MOV
STD
CMP
BEQ
ERROR
.WORD
.WORD

321
FPPERR

MOV
JSR
ST
BEQ

@TAB6,R4
R7,DATVER
COUNT
164

.WORD
WORD

322
FPPERR

ERROR

(R1),ACO
(R4),ACO
R3
ORECDST,R1
ACO,(R1)
€204 ,R3
158

012702
170102

102200

sLOAD ACO WITH TEST DATA
1 oTEST INSYRUCTIW
1SAVE FPS
t1POINT TO RECEIVED DATA TABLE
1SAVE ACO
RESWULT
sVERIFY STATUS
1BRANCH IF GOOD
;ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
8AD ”sumss OF ERROR MESSAGE

sPOINT TO EXPECTED DATA
sVERIFY DATA

sBRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
saD aco!"OORESS OF ERROR MESSAGE

JUNERFLOW MITH TRAPS ENABLED - NON-ZERO RESULT
]

016770
016774

0076

168:

MOV
LOFPS

0102200, R2
R2

sSETUP FLOATING POINT STATUS
sLOAD FPS

3877 016776 012737 017030 000244
3878
017004
012704
001656
3879 017010 012701 001666

MOV
MOV

3881
3882
3883
3884
3885

017016
017020
017022
017024
017026

172014
170000
104000
000323
002013

ADDD
CFCC
ERROR
.WORD
'MORD

(R4).ACO

;oTEST INSTRUCTION

323
FPPERR

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

3887

017030

170203

SIFPS

STD

MOV

ACO,(R1)

;SAVE ACO

cHe

0174.R0

(SP).

sCLEAN UP STACK

194

:BRANCH IF
3~.L ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

3880

3886
3888

017014

017032

MOV

172411

012701

3889

017036

3891

017042

005726

3893
3894
3895
3896

017050
017052
017054
017056

001403
104000
000324
002013

3898

017060

022703

174011

LOD

178:

001126

18;:

3890 017040 012600

TSTY

3892 017044 022700 017020

3897
3899

017064

001403

3900
3901
ggg

017066
017070
017072

104000
000325
002013

3904
3905
3906

017074
017100
017104

012708
004767
005767

3908
3909
3910

017112
017114
017116

3907

017110

001403

104000
000326
002013

102204

001676
163042
161730

rov

19¢:

208 :

0188, DOFPVEC
OTAB41 R4
0TABA2.R1
(R1), Aé

sNO TRAP ON UNDERFLOMW
i:SAVE FPS

;POINT TO RECEIVED DATA TABLE

csvSo.ao

326
FPPERR

9102204 ,RS

325
FPPERR

MOV
JSR
ST

#TABAS R4
R7,.DATVER
COUNT

ERROR
. WORD
.WORD

326
FPPERR

214

RESULT

1SAVE STACK CONTENTS
sVERIFY RETURN ADDRESS

1BAD RETURN ADDRESS

VERIFY STATUS

208

ERROR
WORD
.WORD

BEQ

sLOAD ACO WITH TEST DATA

ORECDST,.R1

BEQ
ERROR
JNORD
'NORD

BEQ

{RESTORE TRAP VECTOR
sPOINT TO FSRC DATA
sPOINT TO ACO DATA

JBRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
8AD "slmss OF ERROR MESSAGE

.
]

:POINT TO EXPECTED DATA
sVERIFY DATA

{BRANCH IF GOOD

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

GLOBAL AREAS

KDJ11A.MAC

3911
3912
3913
3914
3915

3916

MACY1l

15-MAR-84

30A(1052)
15:51

214;

017120

MLDC:

16:58

PAGE

017120

TEST LDCFD,

1STS7:

017124

012702

000300

017132
017136
017142

012704
012701
172411

001706
001256

MOV
MOV
LDD

3928 017146

012701

001126

MOV

3930
3931
3932

022704
001403
104000

001712

cMP
BEQ
ERROR

3924
3925
3926

017130

3927

017144

3929

017152

3933
3934
3935

3936
3937

3938

3939
3940

3941
3942

3943

3944

3945

3946

3947
3948
3949
3950

3951
3952
3953

017154
017160
017162

174011

017170
017174

012704
004767

017200

005767

017210
017212

000330
002013

017214
017216

001403
104000

001716
162746

017234
017240
017242

020427
001403
104000

001716

3957

017250

3959

017256

170203

012701

001126

3960
3961
3962

017260
017264
017266

022703
001403
104000

000000

ggg;

017272

002013

3966

017270

017274

18:

174011

0300,R2

sSETUP FLOATING POINT STATUS

ACO, (R1)

sSAVE ACO

LWORD
'MORD

327
FPPERR

MOV
JSR

0TAB46 R4
R7,DATVER

BEQ
ERROR

LOFPS

e
8EQ
ERROR

ORECDST,R1

330
FPPERR

as:

sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sBAD AUTO-INC

sPOINT TO EXPECTED DATA
;VERIFY DATA

sBRANCH IF GOOD
;ALL ERRORS TO TRAP TO EMT VECTOR
1BAD ACO

;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

1SETUP FLOATING POINT STATUS

:LOAD FPS

(R4)+,ACO

1#TEST INSTRUCTION

#TABAS R4
#TAB16,R1
(R1),AC0

:POINT TO FSRC DATA
sPOINT TO ACO DATA
;LOAD ACO WITH TEST DATA

R4, 0TABAS+10

STFPS

STD

ACO, (R1)

cMe
BEQ
ERROR

RESULT

sVERIFY AUTO-INC
sBRANCH IF GOOD AUTO-INC
sALL ERRORS TO TRAP TG EMT VECTOR

COUNT

331
FPPERR

MOV

sPOINT TO RECEIVED DATA TABLE

0TAB4S+4,R4
14

JMORD
.WORD

LWORD

001756

sPOINT TO FSRC DATA
sPOINT TO ACO DATA
;LOAD ACO WITH TEST DATA

STD

LOCOF

38;

sLOAD FPS

0TABAS,R4
0TAB6,R1
(R1),ACO

1oTEST INSTRUCTION

MOV
MOV
LDD

000332

012704

s INCREMENT TEST NUMBER

(R4 )+,ACO

000331
002013

017252

3963

LOCFD

24:

001706
001426
:

177424

LOFPS

$TESTN

sAUTO-INC DOUBLE MODE

012704
012701
172811

017232

MOV

LWORD
'WORD

005002
170102

INC

s TRUNCATE

161634

017220
017224
017230

017244
017246

3958

177424

000327
002013

3954
3955

3956

170102

017164
017166

017204
017206

LDCOF

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

161660

3922

SEQ 0077

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

005267

3923

M6
JBAD ACO

017120

3921

TEST ADDD WITH OVERFLOW AND UNDERFLOW

JaTEST 57

3918

3920

017120

3917

3919

15-MAR-84

iVERIFY AUTG-INC
:BRANCH IF GOOD
:ALL ERRORS TO TRAP TO EMT VECTOR
JUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

18AD AUTO-INC ON DOUBLE
1SAVE FPS

ORECDST,R1

1POINT TO RECEIVED DATA TABLE
1SAVE ACO

#0,R3
as
332

.WORD

FPPERR

MOV

0TAB49,R4

RESWLT

JVERIFY STATUS
1BRANCH IF GOOD
:ALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER

o, "s.mess OF ERROR MESSAGE
§

{POINT TO EXPECTED DATA

GLOBAL AREAS
KDJ11A. MAC
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

4000
4001
4002

4003

4004
4005
4006
4007
4008
4009
4010
4011
4012

4013
4014
4015
4016
4017
4018
4019
4020

4021
4022

017300
017304
017310
017312
017314
017316

017320
017324
017326
017330
017334
017336
017340
017342
017346
017350
017352
017354

ACY11l

15- H R-84
004767
005767
001403
104000
000333
002013
012702
170102
005003
177427

005203
005203

005203
022703
001403
104000
000334
002013

017356
017362
017364
017370
017374
017376
017400
017402
017406
017410
017414
017416
017420
017422

012702
170102
012704
012701
172411
177414
170203
012701
174011
022703
001403
104000
000335
002013

017424
017430
017434
017440
017442
017444
017446

012704
004767
005767
001403
104000
000336
002013

017450
017454
017456
017462
017466
017470
017472
017474
017500
017502

C12702
170102
012704
012701
172411
177414
170203
012701
174011
022703

(49527 15-MAR:BY 16:98¢P0BEFE® Locor

30A(

162642

161530

000200

JSR

R7,DATVER

BEQ
ERROR
JWORD
.WORD

:LDCFD GR7

S$:

043243

MOV

LOFPS
CLR
LDCFD

INC
INC
INC
CMP

000003

BEQ
ERROR
.WORD
‘WORD

001126
000210

001746
162512
161400

74:

333
FPPERR

8s:

334
FPPERR

MOV
STD
e
8EQ

(R4).ACO
R3

ORECDST,R1
ACO,(R1)
#210,R3
74

001256
001746

001126

000204

1#TEST

335
FPPERR

MOV

#TABAS,
R4

1BRANCH
IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

:BAD PflOGRlH FLOW

1SETUP FLOATING POINT STATUS
sLOAD FPS
sPOINT TO FSRC DATA
sPOINT TO ACO DATA
sLOAD ACO WITH TEST DATA
s¢TEST _INSTRUCTION
3 SAVE

9200,R2
oTABS, m
0TAB4S,R
(R1), Aéo
um.nco
R3
ORECDST,R1
ACO, (R1)
0204 ,R3
R2

FPS

sPOINT TO RECEIVED DATA TABLE
sSAVE ACO

RESULT

sVERIFY STATUS
:1BRANCH IF GOOD

1BAD FPS

R7,DATVER
COUNT
83
336
FPPERR

INSTRUCTION

+IF LDCFD WORKED, R3 SHOULD=3
s VERIFY CORNECT PROGRAM FLOW

0TABA7,
R4
0TABAS,R1
(R1),ACO

ERROR
JMORD
‘MORD

1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1SETUP FLOATING POINT STATUS
1LOAD FPS

LOCFD
STFPS

MOV
LOFPS
MOV
MOV
LDD
LOCFD
STFPS
MOV
STD
cHP

1BAD ACO

R3
R3
R3
03,R3

MOV
MOV
LDD

;LOAD A ZERO

1BRANCH IF GOOD

0200,R2

ERROR
LMORD
.MORD

1 VERIFY DATA

R2
R3
#5203,ACO

LOFPS

JSR
ST
BEQ

SEQ 0078

COUNT

{NEGATIVE OPERANDS
001726
001706

1BAD ACO

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

sPOINT TO EXPECTED DATA
:VERIFY DATA

1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE
1SETUP FLOATING POINT STATUS
:LOAD FPS
:POINT TO FSRC DATA
;POINT TO ACO DATA
;LOAD ACO WITH TEST DATA
1oTEST INSTRUCTION
1SAVE FPS

sPOINT TO RECEIVED DATA TABLE
:SAVE ACO RESWLY
iVERIFY STATUS

GLOBAL AREAS
KDJ1.1A
MAC
4023
4024
4025
4026

4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041

017506
017510
017512
017514

017516
017522
017526

017532

017534
017536
017540

MACY11

30A( 1052)
15-MAR-84 15:5 1

15-MAR-84

4048

4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060

4061
4062
4003
4064

4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078

16:58

001403
104000

BEQ

000337
002013
012704
004767
005767
001403
104000
000340
002013

PAGE

001256
162420
161306

9s:

10%:

017542

MCMPD:

€0 007

.WORD
.WORD

337
FPPERR

MOV

0TAB6,R4

JSR

R7,.DATVER

BEQ
ERROR
.MWORD
.WORD

108

TST

017542

TEST LDCFD, LDCOF
ERROR

1BRANCH IF GOOD

tALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
8AD FPSMDD“ESS OF ERROR MESSAGE
sPOINT

TO EXPECTED DATA

sVERIFY DATA

COUNT

340
FPPERR

1BAD ACO

1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

|'.“...‘."...‘....‘.0.“‘0‘...‘...0“..“‘.‘......0‘...‘0..‘000

1oTEST 60

4042

4043
40448
4045
4046
4047

1S?7

017542
017542

001042
000152

017602
017610
017614
017622
017624
017632
017634
017636

000001
000114

017674
017700
017706
017710
017716
017720

TST60:

161236

017546
017552
017556
017564
017566
017574
017576
017600

017640
017644
017650
017656
017660
017666
017670
017672

TEST CMPD

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

001042

000000

000023

001042
012346

012346
000000

000210

004767
077777
177777
077777
177777
000200

INC

. WORD
. WORD

177777

s INCREMENT TEST NUMBER
1SIGNAL THAT ACO REMAINS CONSTANT
sROUTINE TO TEST DATA

200
204

1FPS AT START (D)
1FPS AT END

01 ,80FLAG

sSIGNAL THAT ACO WILL

.MORD

0,0,0,125252

sACO AT START

.WORD

100,22,123,123

1FSRC AT START

.WORD

200

3FPS AT START (D)

JSR

.HORD

R7,.CMPRTN

400,12346,12346,23

1ACO REMAINS UNCHANGED
sROUTINE TO TEST DATA

. WORD

200,0,0,0

1tFSRC AT STARY

LHWORD

200

1FPS AT START (D)

CMPD WITH EXP[FSRC)«0, EXP[ACO)=0
MOV

R7,CMPRTN

WORD
204
CMPD FSRC>EXP[ACO])=0
CLR
SFLAG

LHORD

000030
177777

STESTN

CMPD WITH FRSC=ACO=0
CLR
SOFLAG
JSR
R7,.CMPRTN

JSR

000123

005037
004767

0.“.

tFPS AT END

210

s CMPD FSRC=ACO>0
JSR
R7,CMPRTN
. WORD
77777,-1,-1,-1
.WORD

TP11%,2%

.WORD

200

sROUTINE TO TEST DATA

1ACO AT START

+FPS AT END

tROUTINE TO TEST DATA

tACO AT STARY
1iFSRC AT

START

1FPS AT START (D)

= O

GLOBAL ARE
A
KDJ11A .MAC
4079

4080
4081
4082
4083
4084
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
4116
4117
4118

15 HAR'84308(4952) 15-MAR:84 16:38; PARE,8O

017722

017 724

204
HOP44

1tFPS AT

END

tHOP OVER SUBROUT INE
OXEXOXEX0X

paXaXaXaXaXaXaXaXaXaXaXaXaXaXoXXOXEXOXAXAXEXOXOXOXOXOXOXSX

1COMPARE ROUTINE DATA TABLES
ACO
SRC

FPS BEFORE EXECUTION
FPS AFTER EXECUTION

(FEC)

jeXaXaXaXaXaXaXaXaXoXaX0XOXOXOXOXAXAXOXOXSXOXOXAXOXOX
XX oX
jeXaXaXaXaXaXaXaXaXaXaXoXaXo
XXX XXX
XaXoXoX
XOXEXEX
X
0
3

017730
017732
017736
017740
017742
017746
017750
017752
017756
017760
017762
017764
017770
017772
017776

012605

012702

170102
010504
062704
010501
172411
016502
170102
173414
170203
012702
170102
012701
174011
026503
001403

020010

000341
002013

020014

005737
001403
012704
000401
010504
004767
005767
001403

4120
4121
4122
4123
4124
4125
4126
4127
4128
4129
410
4131

4133
4134

. WORD
JMP

000126

SEQ 0080

jeXaXaXaXaXaXaXaXaXoXaXoXEXAXEXOXEXAXAXOXOXEXOXOX

4119

4132

000204
000167

000200

CMPRTN: MOV

(SP)+,RS

3+ RETURN ADDRESS TO USE AS POINTER
$SET TO DOUBLE MODE FOR LOAD
sLOAD FPS
sPOINT T0 FSRC DATA

0200,R2

RS,.R4
010,R4

000010

RS,R1
(R1),ACO

20(RS),R2

R2
(R4),ACO

18:

R3
#200,R2

Re2

;

tPOINT TO ACO DATA
tLOAD ACO WITH TEST DATA
sGET TEST FPS
sLOAD TEST FPS
soTEST gls‘STMTIOJ

$SAVE F
1SET FPP TO DOUBLE

ORECDST,R1

Acohgax)

22(R5),R3
24

001042

2%:

33:

MOV

1BAD FPS

001256
162110

160776

JSR

000342
002013
000165

HOPA44 ;

020056

MDIVF:

JMP

1BAD ACO

s+POINT TO RECEIVED DATA TABLE
$SAVE ACO RESWLT
sVERIFY STATUS
s1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
$SEE IF ACO REMAINS UNCHANGED
1BRANCH IF ACO STAYS THE SAME
sACO=0
1GO VERIFY DATA
1POINT TO EXPECTED DATA
iVERIFY DATA

1BRANCH IF GOOD
1ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1RETURN

310 80 080 0 0000000000000000000000000000000000000000000000000000

GLOBAL

AREAS

KDJ11A MAC
4135
4136
4137
4138
4139

15”&5&!3.3gg§é?52)

020056
020056

005267

160722

012737
004767
000100
000000
000100

000002
000706
000027
000000
000027

140000
000004

4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160

020116
020124
020130
020134
020140
020144
020146
020150

012737
004767
000000
000100
000000
000000
100000
000004

020152
020156
020162
020166

005037
004767
000177
004100
000000
007400
007404

4165

4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184

4187

4188

4189
4190

040000

000001
000652

020312
020314

TSTé1:

TEST

DIVF

001042

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

INC

MOV

JSR

001042

000001

1 TRAPS ENABLED

MOV
JSR

005037
004767
077760
077760
040200
007414
007400

001042
000534
177777
000000
104210

104210
104210

1NO INTERRUPT, BUT FEC

1ACO

100 TEST

1FSRC
IRESULT

TEST FPS

tRESULT FPS

FEC

o1 ,800FLAG
R7.DVFSUB

s INTERRUPT
$D0 TEST

CLR
JSR

SOFLAG
R7,0VFSUB

100 TEST

\MORD
JMORD
'MORD
'WORD

4100,0
0,0
7400
7404

LMORD
JWORD
'WORD
'MORD
‘WORD
'MORD

001042

1 INCREMENT TEST NUMBER

02,80FLAG

R7,DVFSUB

"WORD
100,27
'WORD
0,0
‘WORD
100,27
.WORD
40000
. WORD
140000
4
'WORD
12/AC=EXP[FSRC)=0

LMORD

012737
004767
040200
000125
040200
007557
107557
000004

$TESTN

117EXP[AC)=FSRC=0

1 3/FSRC>ACO=0

0,0
100,0
O,
O
100000
4

177,234

14/ACO>EXP[FSRC
) =0

. WORD

c‘goo 104210

.m“ ;ggéo.mzxo
.m' &107557
JWORD

001042
000504
052525
052525

4185
4186

SEQ 0081

.'0‘..‘.000‘.‘..“‘.“““‘.‘.‘0.0‘.‘00‘0‘0000

020062
020070
020074
020100
020104
020110
020112
020114

4162
4163
4164

l6x?gsrP695r61

1#TEST

4140
4141
4142
4143
4144
4145
4146
4147
4148
4149

4161

lS-HARigt

000000

1S/EXPAC
] =EXP{FSRC)

CLR
JSR

LWORD

.MORD
JMORD
"MORD
16/AC=FSRC

BOFLAG
R7,0VFSUB
77760,

-1

4020C, 104210
7414
7400

JMORD
.WORD
'WORD
'WORD

52525.52525
40200.0
7400
7400

LWORD

$2525%,5252%

:D0 TEST
ACO

GLOBAL

AREAS
KDJ11A.MAC
4191
4192
4193
4194

4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206

020316
020322
020326
020332
020336
020342
020344

4212

4213

4214

4215
4216

4217
4218
4219

4220

001042
000454
125252
000000
070707

005037
004767
055377

001042
000424

4221

4228

001042
000344
156024
000000
156024

020516
020532
020534
020536
020552
020556
020562
020564

005037
004767
160077
040417
157651

001042
000314
101010
101010
020167

001042
000101
177777
143527

000010
005037
004767
060100
040300
000040
000040

1 7/FSRC>0<ACO,

CLR
JSR
.WORD
.WORD
.WORD
.WORD
‘WORD
18/AC>0<FSRC
CLR

JSR

001042
000234
000177
000124

£/

BOFLAG
R7,DVFSUB
77777,125252
40300,0
77652,070707
7400

7400

80FLAG

R7,DVFSUB

55377,
-1
55300.0
40252.125252
O
0

CLR
JSR

SOFLAG
R7,0VFSUB

19/FSRC>AC>0

SEQ 0082

ROUND

.MORD
\WORD
'WORD
MORD
. WORD

125252

005037
004767
012345

140511
140072
000057

16:?8ST96?SF82

177777

001042
000374
000001
000000
000001

005037
004767

15~Hhflig:

000000

005037
004767
064600
066600
036200
000000
000000

044745
000017

4222
4223
4224
4225
4226
4227

4237
4238
4239
4240
4241
4242
4243
4244
4245
4246

005037
004767
077777
040300
077652
007400
007400

15-MAR-84

040252
000000
000000

4207

4236

3?25%?52)

055300

4208
4209
4210
4211

4229
4230
4231
4232
4233
4234
4235

MACY11

tNO INTERRUPT

1D0 TEST

sRESULT
_TEST FPS

tRESUWLT FPS

iNO INTERRUPT
;D0 TEST

1ACO

sFSRC

sRESULT
s+ TEST FPS
tRESULT FPS

iNO INTERRUPT
;D0 TEST

.WORD
'MORD
‘MORD
'MORD
MORD

64600,
1
66600.0
36200.1
O
©

’

JSR

R7,0VFSUB

SFLAG

sNO INTERRUPT

:1107AC>FSRC>0
CLR

LMORD

.MORD
'MORD
JMORD
JMORD
111/FSRC<0

12345, 156024

.MORD
.MORD

140511,101010
140072.20167

57
S50

CLR
JSR

SOFLAG
R7,0VFSUB

.WORD
160077,101
JMORD
40817,-1
.MORD
157651,143527
7
JMORD
.MORD
10
s13/TRUNCATE TEST

LWORD
"WORD
.MORD
‘WORD
'WORD

sD0 TEST

40422,101010

JMORD
‘WORD

CLR
JSR

sRESULT FPS

17
O

SOFLAG
R7,DVFSUB

3127AC<0

TEST FPS

05600.0
44745156024

CLR
JSR

LMORD

SOFLAG
R7,0VFSUB

60100,177
40300.0
60000, 124
40
40

RESULT

: TEST FPS

tRESULY FPS

1NO INTERRUPT
100 TEST
1ACO
1FSRC
1RE SULT
s+ TEST FPS
1RESULT FPS

GLOBAL AREAS
KDJ11A.MAC
4247
42a8
4249

4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262

4263

4264
4265
4266

4267
4268

4269

4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280

4281

4282

4283

4284

4285

4286
4287

4288
4289
4290
4291
4292
4293
4294
4295
4296

4297

4298
4299
4300
4301
4302

MACY11

15-MAR-84

30A(1052)

15:51

IS-HARig:

F7
16:58
PAGE 83
TEST DIVF

SEQ 0083

114/ROUND TEST
020566
020572
020576
020602
020606
020612

005037
004767
060100
040300
060000
000000
000000

001042
000204
000177
000000
000125

020616
020624
020630
020634
020640
020644
020646
020650

012737
004767
177700
000200

000001
000152
000000
000000

020614

BOFLAG
R7,0VFSUB
60100,177

tNO INTERRUPT
100 TEST
sACO

'WORD

60000, 125

JRESULT

.MORD
.WORD

200,0
137700,0

.WORD

001042

137700
001100
101112

000000

000002
000116
000000
000000
000000

001042

020664
020670
020674
020700
020702
020704

012737
004767
000200
177700
000000
041100
041104
000010

020706
020714
020720
020724
020730
020734
020736
020740

012737
004767
100200
040377
100000
002000
102014
000012

000001
000062
000000
177777
000001

001042

020742
020750
020754
020760
020764
020770
020772
020774

012737
004767
030325
076777
071525
002537
102500
000012

000001
000026
025252
023456
157716

001042

020652
020660

CLR
JSR
.WORD

1100

JWORD
101112
JMORD
10
116/0VERFLOW, TRAPS DISABLED

MOV
JSR

02, 80FLAG
R7.DVFSUB

.MORD

177700,0

LMORD

000167

000242

sFSRC

JRESULT

s TEST FPS

(RESULT FPS
sFEC

sNO INTERRUPT
;00 TEST

200,0

$1ACO

JMORD
JMORD
JMORD
JMORD

0,0
41100
41104
10

JRESULT
: TEST FPS
IRESULT FPS
{FEC OVERFLOW

MOV
JSR

01, 80FLAG
R7.DVFSUB

1 17/UNDERFLOW, TRAPS ENABLED, UV RESULT

.MORD

100200,0

sFSRC

s INTERRUPT
;00 TEST
1ACO

.MORD
40377,
-1
sFSRC
JMORD
100000,
1
JRESULT
'MORD
2000
:+ TEST FPS
JMORD
102014
IRESULT FPS
JMORD
12
+FEC
: 18/7UNDERFLOW,
TRAPS ENABLED, ROUND

MOV
JSR

LMORD
JMORD
JMORD
JMORD
JMORD
JMORD

01,80FLAG
R7.DVFSUB

s INTERRUPT
100 TEST

3032S,25252
76777.23456
71525,157716
2537
102500
12

s TEST
JRESULT FPS
FEC

HOP10

16O TO NEXT TEST

020776

;FSRC

.WORD
0
1 YTEST FPS
.WORD
0
tRESULT FPS
115/0VERFLOW, INTERRUPTS ENABLED
MOV
@1 ,80FLAG
s INTERRUPT
JSR
R7,0VFSUB
1DO0 TEST
. WORD
177700,0
sACO

.WORD

000010

40300,0

1ACO
1FSRC
"g:sut

jeXaXaXaXaXaeXaXaXa)oXoXeXaXaXaXaXoXoaXaXaXoXoXaXo
X0 XaX0XOXOX
jaXeXaXoXoXeXaXoXaXaXoXaXaXoXaXoXaXaXeXoXaXoXaXoXaXaXaXaXaX

sDIVF SUBROUTINE:
ACO

FSRC
FPS BEFORE EXECUTION
::gcf TER EXECUTION

GLOBAL AREAS

MACY11l

30A(1052)

KDJI1A.MAC ° 15 AR
Ba 15 8%

15-MAR-84

ie1

16:

PAGE 84

st ot

SEQ 0004

4303

4304

.ox-x.x‘x.xaXoxoxox‘x.xox.xoxaxaxoxox.xox.x.xox.x.x.x.xax.x

4305

4306

4307

4308
4309

4310
4311
4312
4313
4314

:giz
4317
:gig

;ox.Xox‘xox.xoXoXox.x.XoXoXoXoxtxoXoXtXchXoXoXoXoXcX.X.x.x

021002

021004
021012

021016
021020
021022
021026

021030

021034

012605

012737
012702

170102
010504
062704
172415

016502

170102

021064
000200

021042
021050
021052
021054
021056

032737
001426
104000
000343
002013

000001

:335;

021060

000167

000042

4330
4331
4332
4333
4334

4335
4336
4337

4338

4339
4340
4341
4342
4343

:33:;

4346

4347

4348

U001042

(SP)+,RS

1+ RETURN ADDRESS TO USE AS POINTER

0504 ,80FPVEC
#200,R2

LDFPS
MOV
ADD
LDD

R2
RS,R4
@4,R4
(RS) ACO

LOFPS

DIVF
SETF

(R4),ACO

MOV

4321
4322
4323
4324
4325

4329

MOV
MOV

000014

174414
170001

4326

DVFSLB: MOV

000004

021036
021040

4320

000244

tREDIRECT TRAP VECTOR
1SET TO DOUBLE MODE FOR LOAD

sLOAD FPS
tPOINT TO FSRC DATA

sLOAD ACO WITH TEST DATA
tGET TEST FPS

IQ(RS) R2

;LOAD TEST FPS

$¢TEST INSTRUCTION
sWAIT FOR POSSIBLE FPA TRAP.

uINSYMTIW DIDNT TRAP
BIT
BEQ
ERROR
.WORD
.WORD

343
FPPERR

JMP

01,80FLAG
24

WERIFV A NO TRAP CONDITION
sBRANCH
IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sWIflE ERROR NUMBER
% ADDRESS OF ERROR MESSAGE

s INSTRUCTION SHOULD MAVE TRAPPED
sREJOIN CODE

021064
021072
021074
021076
021100
021102
021106

021110

021112
021116
021120
021122
021124

032737
001005
104000
000344
002013
000167
012604

005726

022704
001403
104000
000345
002013

000001

001042

s INSTRUCTION TRAPPED

S08:

BIT
BNE
ERROR
WORD

.WORD

000020

S18:
021040

JP
MOV

cHe
BEQ
ERROR
LMORD
.WORD

®1,80FLAG
S1s

344

FPPERR

23
(SP)+ ,Rae

021130

4349
4350
4351

021134
021136
021142

4353
4354
4355
:32_6,

021150
021152
021154
021156

001403
104000
000346
002013

4358

021160

010504

170102
012701
174011

:REJOIN CODE
aSEE IF PC =

000200

2%:

STFPS

MOV

LOFPS
MOV
STD

001126

4352 021144 026503 000016

INSTRUCTION

CLEM UP STACX

345
FPPERR

lm GOOD COMPARE
sALL ERRORS TO TRAP TO EMT VECTOR
umu ERROR NUMBER
3;ADDRESS OF ERROR MESSAGE

#135,.R4
2%

iPC WAS INCORRECT

;COMMON CODE FOR TRAP AND ND TRAP

170203

012702

% ADDRESS OF ERROR MESSAGE

s INSTRUCTION WASNT SUPPOSE TO TRAP

(SP)e

021126

$SEE IF EXPECTING A TRAP
sBRANCH IF EXPECTING A TRAP
sALL ERRORS TO TRAP TO EMT VECTOR
IWIO.E ERROR NUMBER

#200,R2

R2
ORECOSY.M
(R1)

sPOINT TO RECEIVED DATA TABLE
1SAVE ACO
RESWLTY

uuiS) RS

BEQ
ERROR
.WORD
.WORD

346
FPPERR

MOV

RS,R4

:SAVE FPS

:SET FPP TO DOUBLE

tVERIFY STATUS

1BRANCH IF GOOD
1ALL ERRORS YO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
8AD "s.mess OF ERROR MESSAGE
]

1POINT TO EXPECTED DATA

GLOBAL

AREAS

KDJ11A.MA
4359
4360
4361

021162

lSvA

V}&‘Sgg§§?52)

021166
021172
021176
021200
021202
021204

062704
004767
005767
001403
104000
000347
002013

000010

021206
021212
021214
021220
021222
021226
021230
021232
021234
021236

005737
001002
000165
170301
016504
020401
001403
104000
000350
002013

001042

021240

000165

H 7
IS-HARigt

16:?ESTPBQSF85

ADD

as:

160736
157642

000020
000020

R7,0ATVFR

BEQ
ERROR
LWORD
.WORD

347
FPPERR

SOFLAG

BNE
JMP
STST
MOV
cHP
8EQ

68:

78:

JSR
ST

SEGQ

1+VERIFY DATA

COUNT

1BRANCH IF GOOD

1BAD ACO

64
20(RS)
R1
20(RS).R4
R4, R1
78

ERROR
.WORD
‘WORD

350
FPPEPR

JMP

22(RS)

1SEE IF NEED TO CHECK FEC
1BRANCH IF NEED 70 CHECK

sRETURN FROM TEST

s SAVE FEC
sGET FEC

sVERIFY FEC

sBRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE
3BAD FEC
;RETURN FROM TEST

aOPlO:

021244
021244

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

MDIVD:

$300000008800000000040000000000000000000800000000000048000008080800088

;4TEST 62
021244
021244

4410
4412

4413
4414

TEST DIVD -

138000008020 000000000000000000000005800800000000000000000008808808

005267

021250
021256
021262
021270
021272
021300
021302
021310
021312
021314
021316

012737
004767
000000
000001
000100
000000
000000
000001
040000
140000
000004

021320
021326
021332
021340
021342
021350
021352
021360
021362
021364
021366

012737
004767

021370
021374
021400

005037
004767
034300

TST62:

157534
000516

001042

INC
MOV
JSR

STESTN
02,90FLAG
R7,DVDSUB
0,0,0.1

sACO

.MORD

100,0,0,0

1FSRC

.MORD

0,0,0,1

sRESWLT

LMORD
.MORD
LHORD

40000
140000
4

s+ TEST FPS
sRESULT FPS
FEC

MOV
JSR

01, 90FLAG
R7,0VOSUB

.MORD

12/FSRC=0,

TRAPS ENABLED

.MORD

001042
000400

: INCREMENT TEST NUMBER

11/AC=FSRC=0 TRAPS DISABLED

iNDO INTERRUPT

3 INTERRUPY

402,0,0,0

.MORD

0,0,0,0

1FSRC

.MORD

402,0,0,0

LMORD

200

CLR
JSR

SOFLAG
R7,0VOSUB

3 3/ROUND

.WORD
JWORD

LMORD

100200
&

34300,0,0,1

;D0 TEST

;00 TEST

iRESWLY
s+ TEST FPS
iRESULT FPS
FEC
iNO INTERRUPT
;00 TEST
1ACO

008%

GLOBAL AREAS

KDJ11A, MAC
4415
4416
4417
4418
4419
4420
4421
4422
4423

4424
4425

4426

4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445
4446
4447
4448
4449

4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461

4462
4463

4464
4465
4466
4467
4468
4469
4470

021406
021410
021416
021420
021426
021430
021432
021434
021440
021444
021452
021454
021462
021464
021472
021474
021476
021500
021504
021510
021516
021520
021526
021530
021536
021540
021542
021544
021550
021554
021562
021564
021572
021574
021602
021604
021606
021610
021614
021620
021626
021630
021636
021640
021646
021650
021652
021654
021662
021666
021674

MACY11l

30A(1052)

15-MAR-84 15:51

15-MAR-84

162

16:58

PAGE 86

TEST DIVD

L7
SEQ 0086

000001
140300

000000

.WORD

140300,0,0,0

1FSRC

13420(1)

000000

. WORD

134200,0,0.,1

sRESULT

.WORD
. WORD

200
210

: TEST FPS
tRESULT FPS

80FLAG
R7,0VDSUB
34300,0,0,1

iNO INTERRUPT
;DO TEST
1ACO

000200
000210
005037
004767
03430(1)

001042
000334
000000

000000

:14/TRUNCATE
CLR
JSR
.WORD

140300

000000

.WORD

140300,0,0,0

sFSRC

134200

000000

.WORD

134200,0,0,0

sRESULT

000940

000250

LMORD

WORD

001042

(l,zzggi

000000

051242

000000

CLR

: TEST FPS

{RESULT FPS

SFLAG

iNO INTERRUPT

+S/ROUND ‘NEGATIVE AC, FSRC

005037

004767 000270

240

250

JSR

R7,0VOSUB

177642,0,0,151

;ACO

000000

.WORD

166600,0,0,123

;FSRC

000000

.WORD

51242,0,0,0

. WORD
. WORD

200
200

s TEST FPS
sRESULY FPS

SFLAG
R7,DVOSUB
177642,0,0,151

sNO INTERRUPY
;D0 VEST
;ACO
;;FSRC

000200
000200

.WORD

:6/TRUNCATE NEAGTIVE AC. FSRC

:00 TEST

sRESULT

005037
004767
177642

001042
000224
000000

000000

CLR
JSR
LMORD

000000

.WORD

166600,0,0,123

g_}?”'%

1777277

11 mtn?

.WORD

Si241,-1,.-1,-1

.WORD
.WORD

240
240

s TESTY FPS
sRESULY FPS

BOFLAG
R7,DVDSUB

iNO INTERRUPT
;:D0 TEST

000240
000240
005037
004767

001042
000160

055521

047621

100333

055521

047621

100333

040200

000000

posart

007700
012737

000001

001042

100200
000000

000000

004767 000112

3 7/AC=FSRC
CLR
JSR

LWORD

sRESULTY

55521,47621.100338,-1

;ACO

JMORD

55521,47621,100333,-1

;FSRC

.WORD

40200,0,0,0

iRESULTY

WORD

7700

JMORD

7717

: TEST FPS

JRESWLT FPS

18/UNDERFOW TRAPS ENABLED, UV RESULT
MOV

JSR

. WORD

81 ,.80FLAG

R7.DVOSUB

100200,0,0,0

1 INTERRUPT

00 TEST

1ACO

GLOBAL AREAS

30A(1052)

021676
021704
021706
021714
021716
021720
021722

077777
000000
140400
100201
002200
102210
000012

000000

.WORD

77777,0,0,0

100200

.WORD

140400, 100200, 100200,100201

.WORD

2200

021724
021732
021736
021744
021746
021754
021756
021764
021766
021770
021772

012737
004767
077000
000525
000303
140001
036650
064003
001700
101702
000010

000001

001042

123465

KDJ11A. MAC
aa7
4472
4473%
4474
4475
4476

aa77
aa78
4479
4480
4481
4482

4483
4484
4485

4386
4487
4488
4489
4490
4491
4492
4493
4494
4495

MACY11l

15-MAR-84 15:51

163002

15-MAR-84
T62

16:58
PAGE 87
TEST DIVD -

.WORD
102210
.WORD
a9IOVERFL0H TRAPS ENABLED
MOV

1FSRC
sRESULT

+ TEST FPS

tRESULT FPS
FEC

@1,80FLAG

s INTERRUPT

012346

JSR
.WORD

R7,DVDSUB
77000. 123465, 12346,525

140000

.WORD

303,1,140000, 140001

sFSRC

103645

.WORD

36650,163002,1C3645,64003

sRESULT

.WORD
.WORD
.WORD

1700
101702
10

JMP

HOP11

021774

SEQ 0087

000167

;D0 TEST

sACO

i+ TEST FPS
sRESULT FPS
sFEC
sHOP OVER SUBROUT INE

|oxox.x.ontx.x.x‘x‘x.xoxoxoxox.xOXAXox.hx.x‘x.xohx.x‘x.x

saXaXeXaXaXaXaXaXaXaXaXaXoXoXoXoXoXo
X0 X0 Xo X0 X0
XoXeXo
X0 XXX
H

:DIVD SUBROUTINE:

3
3
5

ACO
FSRC
FPS BEFORE EXECUTION

FPS AFTER EXECUTION

(FEC)

: sXaXaXaXaXaXeXaXaXaX0XoXaXoXeXoX0XaX0 X0 XoXo X0 X0 XoXoXoXa XX

jeXaXaXaXoXa
X0XaXa
X0 XAXOXAXo
XoXe
X0 XX XXX
XaXe
XoXO XXX
Xo

022000
022002
022010
022014
022016

022026
022032

012605

012737
012702
170102
010504
062704
172415
016502
170102

022034
022036

174414
170000

022040

022054

032737
001426
104000
000351
002013

022056

000167

022062

000244

DVDSUB: MOV
MOV

MOV
LOFPS
MOV

ADD

000010

000030

U000001

001042

#200,R2

RS,R4

016

LOD
MOV

RS3 AC
aé).na

DIVD
CFCC

(R4),ACO

LOFPS
i

(SP)+,RS
9508 ,00FPVEC

amsvaucuou DIDNT TRAP
BIT
01,80FLAG

BEQ
ERROR
. WORD

-1 ]

.WORD

FPPERR

JMP

-4 )

351

s+ RETURN ADDRESS TO USE AS POINTER
sREDIRECT TRAP VECTOR

1SET TO DOUBLE MODE FOR LOAD
sLOAD FPS
sPOINT TO FSRC DATA

sLOAD ACO WITH TEST DATA
i:GET TEST FPS
sLOAD TEST FPS

;oTEST INSTRUCTION
sWAIT FOR POSSIBLE FPA TRAP,
iVERIFY A NO TRAP CONDITION

1BRANCH IF GOOD
:ALL ERRORS TO TRAP TO EMT VECTOR
;UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

aINS!M?IM SHOULD HAVE TRAPPED

iREJOIN CODE

GLOBAL

AREAS

KDJ11A . MAC

MACY11l

30A(1052)

15-MAR-84 15:%1

723

15-MAR-

4527

4528
4529
4530
4531
4532
4533

4534
4535

4536
4537
4538
4539

4540
4541
4542

:;2

4545

4546
4547
4548
4549
4550
4551
4552

4553
4554

022062
022070
022072
022074
022076

032737
001005
104000
000352
002013

000001

022100

000167

000020

022104
022106
022110
022114

022116
022120
022122

012604
005726
022704
001403

022124
022126
022132
022134
022140
022142
022146

022150
022152

170203
012702
170102
012701
174011
026503
001403

022156
022160
022164
022170
022174
022176

010504
062704
004767
005767
001403
104000

4569

4570
4571
4572
4573
4574

022200

022202

022204

022036

JMP

MOV
TST
cMP
BEQ

ERROR
.WORD
.WORD

(SP)+,R4
(SP).
o148 ,R4
24

353
FPPERR

1SEE IF EXPECTING A TRAP
1BRANCH IF EXPECTING A TRAP
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
1 INSTRUCTION WASNT SUPPOSE TO TRAP
+REJOIN CODE

$SEE IF PC = INSTRUCTION
sCLEAN UP STACK
3
sBRANCH IF GOOD COMPARE

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

s1PC WAS INCORRECT

005737

022220
022224
022226

016504
020401
001403

022216

022230
022232

:g;z

022236

4579
4580

022242
022242

;:COMMON CODE FOR TRAP AND NO TRAP

000200

28:

001126
000032

170301

000020
157756
156644

38:

001042

Ss:

000034

68;

FPPERR

STSTY

MOV
cw
BEQ

000036

7%:

sPOINT TO RECEIVED DATA TABLE
$SAVE ACO
RESWLT

sVERIFY STATUS

sBRANCH IF GOOD

sALL ERRORS TO TRAP T0 EMT VECTOR
sUNIQUE ERROR NUMBER
8r0 ”ssnoontss OF ERROR MESSAGE

FPPERR

.MORD

BNE
JP

1 SAVE FPS
:SET FPP TO DOUBLE

354

RS.R4
€20,R4
R7,DATVER
COUNT
Ss

ERROR
.MORD

002013

R3
#200,R2
R2
O®RECDST ,R1
ACO,(R1)
32(RS),.R3
3%

MOV
ADD
JSR
ST
BEQ
ERROR

.HORD

104000
000356

000165

STFPS
MOV
LOFPS
MOV
STD
cHe
BEQ

ERROR
.MORD
.WORD

002013

001002
000165

022234

4581

S1%:

000355

022210
022212

:g;z

4582

s INSTRUCTION TRAPPED
50%:
BIT
@1,80FLAG
BNE
S1¢
ERROR
.WORD
352
.WORD
FPPERR

104000
000354

4557
4558
4559
4560
4561
4562

4566

>EQ 0088

002013

4567
4568

001042

104000
000353
002013

022154

4563

?ESY P B%D 88-

:ggz

:552;

16:

I<
7

TO EXPECTED DATA

sVERIFY DATA
;BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

355

SFLAG

;POINT

8D .co.mss OF ERROR MESSAGE
31SEE IF NEED TO CHECK FEC

6
S4(RS)

sBRANCH IF NEED 7O CHECK
iRETURN FROM TEST

34(RS),.Ra
R4 .R1
78

1GET FEC
:VERIFY FEC
1BRANCH IF GOOD

356

.WORD

FPPERR

JMP

36(RS)

1SAVE FEC

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

.wnooae’_gg OF ERROR MESSAGE
H

iRETURN FROM TEST

HOP11:
MMULF
;

$10600000000000000000000000000000000000000000000000000000000000000

soTEST 63

TEST MWLF

GL OBAL

AREAS

KDJ11A MAC

4583
4584
4585
4586
4587
4588

4589

4590

4591
4592
4593
4594
4595
4596
4597

4598
4599

4600
4601
4602
4603
4604
4605

4606
4607
4608
4609
4610
4611

4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633

4634
4635
4636
4637
4638

022242
022242
022246

022252
022256
022262
022266
022272
022274
022276
022302
022306
022312
022316
022322
022324

TR I

022406
022412
022416
022422
022426
022432
022434

005267

156536

005037
004767
000000
000000
000000
007517
007504

001042
000564

SEQ 0089
‘.“..“‘."

TST63:

INC
$TESTN
+ INCREMENT TEST NUMBER
11/ACO=FSRC=0 -INTERRUPTS DISABLED
CLR
8OFLAG
iNO INTERRUPT
JSR
R7,MLFSUB
100 TEST
.WORD
0,0
1ACO

.WORD

0,0

.WORD
. WORD

7517
7504

.WORD

12/AC>FSRC=0 CLR
JSR
LWORD
.WORD
WORD

005037
004767

;1FSRC

0,0

INTERRUPTS ON
80FLAG
R7,MLFSUB
200,0
$1ACO
0,0
1FSRC
0,0

JSR

R7,MLFSUB

iNO INTERRUPT
;00 TEST

.WORD
.WORD

300,0
0,0

.WORD

040177
040177

005037
004767
040177
040177

005037
004767
040100
040100

022466

005037
004767
017500
023652

000012

001042
000454
000000
177777

177777

001042
000424
177777
000000
177777

001042
000374
000000
000000
000000

001042
000344

125252

iNO INTERRUPT
100 TEST

1RESULT
s+ TEST FPS
sRESULTANT FPS

4
.WMORD
:3/AC=0 FSRC>0 CLR
SOFLAG

005037
004767

sRESULT
s+ TEST FPS
tRESULTANT FPS

.WORD

022436
022442
022446
022452
022456
022462
022464
022472
022476
022502

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

022326
022332
022336
022342
022346
022352
022354
022356
022362
022366
022372
022376
022402
022404

100,0

sACO

1FSRC

7500

sRESULT
s TEST FPS
sRESULTANT FPS

86FLAG
R7.,MLFSUB

1NO INTERRUPT
;D0 TEST

.WORD
7504
14/AC=1 >FSRC - ROUND

CLR
JSR

.WORD
LHMORD
.WORD

.MORD
.MORD
3S/TRUNCATE

40200,0 ;ACO
40177,-1
40177,-1

O
O

1FSRC

sRESULT
s TEST FPS

sRESULTANT FPS

CLR
JSR

SFLAG
R7,MLFSUB

.HWORD
MORD
.WORD
.WORD

40200,0 ;FSRC
40177,
40
40

CLR
JSR

SWLAG
R7,MLFSUB

.MORD

40100,0 ;FSRC

.WORD
.WORD

12
O

CLR
JSR

SOFLAG
R7,.MLFSUB

tNO INTERRUPT
;100 TEST

LWORD

23652,125252

1FSRC

16/NORMALIZE

LHORD

. WORD

s 7/ROUND

.WORD

sNO INTERRUPT
:D0 TEST
sACO
sRESULT
: TEST FPS

iRESULTANT FPS
sNDO INTEIRUPT

;D0 TEST

40100,0 ;ACO

17500,0 ;ACO

tRESULT
1 TEST FPS
tRESULTANT FPS

022516
022522
022526
022532
022536
022542
022544

005037
004767
040342
176543
176711
007500
007510

001042
000314
177777

022546

005037
004767
144600

040300
022742
022744

100077
001117
101116
000010

022746
022754

012737
004767

33333

154000,0
29400.0

: IOIAC(FSR‘C‘. ROUND

001042
000234
000000
177776
177776

1ACO
1FSRC

;D0 TEST

JRESULT
3+ TEST FPS
tRESULTANT FPS

3 TEST FPS
sRESULT FPS

60000,0
140377,177776

iNO INTERRUPT
;D0 TEST
1ACO

{$0177.177776

1117AC>0

001042
000204
000000
177776
177776

140877,177776
160177,17777%
7547
7550

» NO INTERRUPTS
92,80FLAG
R7,MLFSUB

+ 13/0VERF

001042

177777
000000
177777

000062

SOFLAG

R7,MLFSUB
60000.0

001042

000001
000116

» TRUNCATE

001042

177777

4687

iNO INTERRUPT

012737
004767

80FLAG
R7,MLFSUB
144600,0

4680
4681
4682
4683
4684
4685
4686

CLR
JSR

19/IAC<FSRC<0, ROUND

001042
000264
000000
000000
000000

012737
004767
000200
000200
040200
042117
142100
000012

4677
4678
4679

4688
4689
4690
4691
4692
4693
4694

025252
067324

-~
~

005037
004767
060000
140377
160177
007547
007550

iNO INTERRUPT

4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675
4676

80FLAG
R7,MLFSUB
40342,
-1
176543,025252
176711,67324
7500
7510

4660

CLR
JSR
WORD
.WORD
.WORD
.WORD
WORD

18/AC>0>FSRC ROUND

s&smflgifiiifi

005037
004767
060000
140377
160177
000017
000010

tRESULTANT FPS

§£§§

4658
4659

| TEST FPs

7400

: .r,.

4657

WORD

154000

060400
000017
000000

417’

‘WoRp

4647
4648
4649
4650
4651
4652
4653
4654
4655
4656

177777

4646

003177
007417
007400

SEQ 0090

4644
4645

022506
022512
022514

4639
4640
4641
4642
4643

AR 15y 16138, PAGE, %0

KB4

AREAS
.MA

101116
10
+14/0VERFLOW NO TRAP
MOV
92, 80FLAG
R7,MLFSUB
JSR

1 INTERRUPT
100 TEST
3ACO
RESULT

: TEST FPS

iRESULT FPS
iFEC
iNO INTERRUPT
:00 TEST

GLOBAL AREAS
KDJ11A. MAC
4695
4696
4697
4698

4699

4700
4701
4702

4703

4704

4705

4706
4707

4708
4709
4710
4711
4712
4713
4714
4715
4716
a717
4718
4719

022760
022764
022770
022774
022776
023000

077700
077700
000000
040117
040106
000010

023002
023010
023014
023020

012737
004767

023032
023034

123465
100022
123465
004000
104000
000014

023036

000167

023024

023030

000000
000000
000000

001042

.WORD
.WORD
.WORD
.WORD
.WORD
‘MORD

77700,0
77700,0
0,0
40117
40106
10

MOV
JSR
.WORD
.WORD
.WORD
WORD
.WORD
WORD

01 ,80FLAG
R7,MLFSUB
123465,0

100022,0
123465,0
4000
104000
14

JMP

HOP12

ACO

(FEC)

aXaXaXaXaXaXaXaXoXoaXoXaXaXoXaXoXOXAX
XXX XXX XEXE XX EX
jaXaXaXaXaXaXeXeXaXaXaXaXaXeXoXoXoXaXa
XXX XeXoXoX XXX X
012605
012737
012702
170102

MLFSUB: MOV

023124

172415

010504
062704
016502
170102

4738
4739
4740

032737

4750

s INTERRUPT
100 TEST
sACO
1FSRC
sRESULLT
: TEST FPS
tRESULT FPS
:FEC

FSRC
FPS BEFORE EXECUTION
FPS AFTER EXECUTION

171014
170001

4741
4742
4743
4744
4745
4746
4747
4748
4749

_TEST FPS

iaXaXaXaXaXaXaXaXaXaXaXaXaXoXoXaXAXAXEXEX0
XX EX XX
XeXo
EXeX

4736

4737

tRESULT FPS

:15/UNDEF INED VARIABLE IN FSR®, | RAP ENABLED

4720

4735

SEQ 0091

jaXaXaXaXaXaXaXaXaXaXaXoXaXaX0XaXeX0XaXo
XXXXAXEXE
XX 0 X 0X

4721
4722
4723

4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734

001426

000014

000001

001042

000042
000001

(Re),ACO

001042

SETF

8IT

;

032737
001005
104000

MULF

{INSTRUCTION DIDNT TRAP

104000
000357
002013
000167

050
, §OFPVEC
8
v
R2
(RS),ACO
RS,R4
24.R4
14(RS),R2

LDFPS

18:

(SP)+,RS

MOV
MOV
LDFPS
LOD
MOV
ADD
MOV

01.90FLAG

BEQ

LWORD
'MORD

357
FPPERR

JMP

s INSTRUCTION TRAPPED

S0$:

BIT

BNE
ERROR

€1,80FLAG

S1s

3 RETURN ADDRESS TO USE AS POINTER
sREDIRECT TRAP VECTOR
sSET TO DOUBLE MODE FOR LOAD
:LOAD FPS
;LOAD ACO WITH TEST DATA
:POINT TO FSRC DATA
:GET TEST FPS
1LOAD TEST FPS
+*TEST _INSTRUCTION
tMAIT FOR POSSIBLE FPA TRAP.
iVERIFY A NO TRAP CONDITION
:BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
ADDRESS OF ERROR MESSAGE

s INSTRUCTION SHOULD MAVE TRAPPED
+REJOIN CODE

1SEE IF EXPECTING A TRAP

1BRANCH IF EXPECTING A TRAP

tALL ERRORS TO TRAP TO EMT VECTOR

GLOBAL AREAS

KDJ11A.MAC
4751
4752

023136
023140

4754

023142

4753

4755

023146

MACY1l

15-MAR-84

000167

012604

023150

005726

4758
4759

023156
023160

001403
104000

4760
4761

:;g

4764

023152

023162
023164

4769
4770

023202
023204

4772
4773

:;;;
4776
4777

4778

4779
4780

4781
4782

:;gz
4785
4786
4787

47938

4789

4790

4791
4792
4793
4794

:;:GS

022704

000020

S1¢:
023100

4800

4803
::g;
4806

360
FPPERR

JMP

MOV

TST

.WORD
.WORD

023176

023210

023212
023214

023216

023220
023222

023226

023232
023236

023240
023242

023244

023246
023252
023254
023260

023262

023266
023270
023272
023274

023276

170203
012702
170102

SEQ 0092

(SP)+,R4

tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE
1tINSTRUCTION WASNT SUPPOSE TO TRAP
sREJOIN CODE

1SEE

(SP).

IF PC

INSTRUCTION

1CLEAN UP STACK

014 ,R4

1BRANCH IF GOOD COMPARE
1ALL ERRORS TO TRAP TO EMT

361
FPPERR
WAS

tUNIQUE ERROR NUMBER
s ACORESS OF ERROR MESSAGE

VECTOR

INCORRECT

012701

174011
026503

001403

;COMMON CODE FOR TRAP AND NO TRAP

000200

28:

001126

BEQ

104000
000362

ERROR
.WORD

002013
010504
062704

004767

005767
001403

.WORD

000010

156676

155602

3s:
4%

104000
000363

170301

016504

020401
001403
104000
000364

S5%:

000020

1SAVE FPS
1SET FPP TO DOUBLE

ORECDST,R1

tPOINT

ACO,(R1)
16(RS),R3

ST
BNE
JHP

68:

STSY

MOV

ce
BEQ
ERROR
.WORD

002013

. WORD

023304
023304

HOP12:
MMULD:

sPOINT TO EXPECTED DATA
sVERIFY DATA
sBRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

363

FPPERR

SOFLAG
64
20(RS)

20(RS) R4
R4 ,R1
7

364

FPPERR

22(RS)

]

- .co.mss OF ERROR MESSAGE

1SEE IF NEED TO CHECK FEC
sBRANCH IF NEED TO CHECX
sRETURN FROM TEST
1SAVE FEC

1GETY FEC

1VERIFY FEC
1BRANCH IF GOOD
tALL ERRORS TO TRAP TD EMT VECTOR
UNIGUE ERROR NUMBER

.moa;gg OF ERROR MESSAGE

JRETURN ROM TEST

$38000080000000000000000000000000000000000002000000000000000000000

023304
023304
023310

31¢TEST 64

TEST MULD

TST64;
ieib INC

S$TESTN

CLR

BOFLAG

10800080 000000000000000000000000000080000000000000000000000

005267
005037

155474
001042

11/AC=

VECTOR

8rD ”s.mss OF ERROR MESSAGE
]

R7,DATVFR

sVERIFY ERROR STATUS

000020

sBRANCH IF GOOD

FPPERR

COUNT
Ss

TABLE

sALL ERRORS TO TRAP TO EMT
sUNIQUE ERROR NUMBER

362

TST
BEQ

JSR

TO RECEIVED DATA

1SAVE ACO
RESWLT
sVERIFY STATUS

RS,.R4
010,R4

.WORD

001042

f3
9200,R2
R2

MOV
ADD

ERROR
.WORD

002013

005737
001002
000165

STFPS
MOV
LOFPS
MOV

STD
cMpP

000016

4801

4802

. WORD
.WORD

cMP

000361
002013

TEST MULF

BEQ
ERROR

4797 023300 000165 000022

4798
4799

PAGE 92

1PC

023166
023170
023174

4771

T63

16:58

4765
4766
4767

4768

15:51

15-MAR-84

000360
002013

4756

4757

30A(1052)

s INCREMENT
iNO INTERRUPT

TEST NUMBER

GLOBAL
A
KDJ11A. MA

MENS s 15 AR 16:3g AL

4833
4834

4835

4836
4837
4838
4839

4840
4841
4842
4843
4844

4845

4846
4847
4848
4849
4850
4851
4852
4853
4854

023372
023374

023402

023404
023412
023414
023416
023420
023424
023430
023436
023440
023446
023450
023456

023460

023462

023464
023470
023474
023502
023504
023512
023514
023522
023524
023526

4862

023574
023600

4860
4861

106

1ACO

177777

§§E RRE §§§§

023354
023360
023364

4859

4856
4857
4858

JSR
.WORD

411,-1,0,1

1FSRC

0,0,0,0

tRESWLT

200
204

s TEST FPS
tRESULTANT FPS

80FLAG

iNO INTERRUPT
DO TEST
1ACO

000000

023352

023530
023534
023540
023546
023550
023556
023560
023566
023570
023572

4855

000554
000000

12/FSRC=0
CLR

005037
004767
077777
000000
000000
000000
000000
000000
007700
007704

001042
000510

005037

001042
000444
000000

000000

177777
177777

004767
040200
000000
000277
177777
000277
177777
007717
007700
005037
004767
065500
000001
037577

177776
065077
177777
007717
007700
005037
004767

n.osw

JSR

R7,MLDSUB
77777,0,0,0

DO TEST

0,0,0,0 ;FSRC

IRESULT

7700
7704

SOFLAG
R7,MLDSUB
40200,0,0,0

iNO INTERRUPT
sD0 TEST
;ACO

177777

2770"0".‘1

1FSRC

177777

2770 ‘1. "o -1

137AC=1

14/7AC>F

001042
000400
000000

000000

177777
177777

7717
7700
TRUNCATE
lOleG

TEST FPS

tRESULTANT FPS

sRESWLTY

s TEST FPS

sRESULTANT FPS

65306,0-0. 1

sNO INTERRUPT
3sD0 TEST
1ACO

177777

37577,-1,-1,-2

1FSRC

177777

‘”’,. 't; "o 't

$S/7AC<F

3 TEST FPS
sRESULTANTY FPS

BOFLAG

iNO INTERRUPT

177777

000000

165400,0,0,1

065000
000000
007717
007700

000000

65000,0,0.0

005037
004767

001042
000270

16/AC>F SRC>0
CLR
JSR

sRESWLY

7717
7700

001042
000334
177777

137577
177776
165400
000001

’

o.o.o.o

i*géi

4823
4824
4825
4826
4827
4828
4829
4830
4831
4832

004767
000100

'§£§§

4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822

023314

023320
023326
023330
23336
023340
023346
023350

4807

4808

SEQ 0093

R7,MLOSUB

137577, -1,-1, -2 1ACO

100 TEST

1FSRC

iIRESWLY

717
7700

S0FLAG

iNO INTERRUPTY
100 TESY

R7,M.DSUB

TEST FPS

tRESULTANT FPS

KDJI
4863
4864
4865
4866

4867

4868
4869
4870
4871
4872
4873
4874
4875
487¢
4877
4878
4879
4880
4881
4882
4883
4884

AL 1s"RRRNALPBI4R5S) 15 MAR;RY 16138 PAGENS
023604
023612
023614
023622
023624
023632

123652
125252
103177
1772777

000000

.WORD

17500,0,0,0

125252

.WORD

123652,125252, 125252, 125252

177777

.WORD

103177,-1,-1,-1

«WORD
LWORD

200
210

000200
000210

012737
004767
100277
177777
100300
000001
040417
000000
002217
102200
000012
005037
004767
177777
177777
040200

489%

4897

4898

4899

177777

024066

SEQ 0094

000000

: 7/UNDERFLOW,

005037
004767
000300
000252
000377
000003
000000
000000
005740
005744

4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895

4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918

017500
000000

CLR

040001

177777

s _TEST FPS
tRESULTANT FPS

8OFLAG

sNO INTERRUPT

.WORD

377.1.2.3

1FSRC

.WORD

0,0,0,0

D0 TEST

SRESWLT
s TEST FPS
tRESULT FPS

MOV
JSR

01 ,80FLAG
R7,MLDSUB

s INTERRUPT
1D0 TEST

.WORD

100300,1,1,1

1FSRC

JHORD

40417,40001,77408,0

sRESULT

s TEST FPS
tRESULT FPS
IFEC

iND INTERRUPT

177777

JSR
.WORD

R7,MLDSUB
~1,-1,-1,-1

;D0 TEST
sACO

177777

. WORD

mo"o'to’1

sFSRC

000000

012737
004767
157700
025252
167700
000000
007420
117777
001240
101242
000010

001042

LMORD
6740
LMORD
6746
110/70VERFLOM, TRAPS ENABLED
MOV
91, 80FLAG

s TEST FPS
sRESULT FPS

1 INTERRUPT

JSR

R7,MLOSUB

000000

.MORD

167700,0,0.0

117777

LHORD

7420,017777.117777,.
117777

LHORD
.MORD
LWORD

1240
101242
10

025252

017777

tRESULTY

R7,MLDSUB

.MORD
2217
LMORD
102200
LHORD
12
:1970VERFLOW, TRAPS DISABLED
CLR
SIFLAG

000000
000000
006740
006746

1FSRC

JSR

.MORD
5740
JWORD
5744
18/7UNDERFLOW, TRAP ENABLED

000001
000156
000001

001042
000110
177777

TRAPS DISABLED

1ACO

.HORD

157700,2%252,25252,25252

100 TESY

1ACO

1FSRC

1+ TEST FPS
IRESULT FPS
FEC

RESWLY

GLOBAL AREAS
KDJ11A .MAC

024070

15-MAR-84
000167

30A(1052)

15:51

15-MAR-84

JMP

4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967

4969
4970

4971
4972
4973
4974

ACO

FSRC

FPS BEFORE EXECUTION
FPS AFTER EXECUTION

(FEC)

jaXaXaXaXaXaXaXaXaXaXaXoXaXaXoX0XOXOXAXAXAXOXEXOXEXEXEX0XK0X

jaXaXaXaXaXaXaXaXaXaXaXoXaXaXaXoXoXo
X0 XX XeXXeX0XeX
XoXoXo

024074
024076
024104
024110
024112
024114
024116
024122
024126

024130
024132

012605
012737
012702
170102

024156
000200

000244

MLOSUB: MOV

170102

000010
000030
i

171011
170011

18:

sREDIRECT TRAP VECTOR
1SET TO DOUBLE MODE FOR LOAD

LDD
MOV
ADD
MOV

(R5),ACO
R5,R1
#10.R1
30(RS),R2

sLOAD ACO WITH TEST DATA
sPOINT TO FSRC DATA

LOFPS

MULD
SETD

(R1),ACO

104000
000365
002013

024152

000167

024156
024164
024166
024170
024172

032737
001005
104000
000366
002013

024174
024200
024202
024204
024210
024212
024214
024216

000167
012604
005726
022704
001403
104000
000367
002013

024220
024222

170203
012702

032737

001426

000001

001042

+INSTRUCTION DIDNT TRAP
BIT
01,800FLAG

BEQ
ERROR

001042

S0%:

S1s:
024132

.HORD
JMORD

365
FPPERR

JHP

sLOAD FPS

1GET TEST FPS

1LOAD TEST FPS

s¢TEST INSTRUCTION
IWAIT FOR POSSIBLE FPA TRAP.
sVERIFY A NO TRAP CONDITION
1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

1 INSTRUCTION SHOULD MAVE TRAPPED

1REJOIN CODE

;

024134
024142
024144
024146
024150

s RETURN ADDRESS TO USE AS POINTER

0504, 80FPVEC
0200,R2

LOFPS

172415

010501
062701
016502

(SP)+.RS

MOV
MOV

4953
4954
4955

HOP13

peXeXaXaXaXaXaXaXaXaXoXaXOXAXAXOXAXEXOXA
X0
XAXEXEXo
XX EX XX

.g-

4943
4944
4945
4946
4947
4948
4949
4950
4951

SEQ 0095

peaXaXaXaXaXaXaXaXaXaXeXaXAXEXAXOXOXAXAXAXEXEXOX
XX
OXOX
EXSX

4930

4933
4934
4935
4936
4937
4938
4939
4940
4941

PAGE 95

TEST MULD

000242

4929

4931
4932

16:58

T64

4919
4920
4921
4922
4923
4924
4925
4926
4927
4928

MACY11l

8IT
BNE
ERROR

81,80FLAG
S18

1SEE IF EXPECTING A TRAP
sBRANCH IF EXPECTING A TRAP
tALL ERRORS TO TRAP TO EMT VECTOR

LMORD
.HORD

366
FPPERR

JMP

TSY

(SP)e

3sCLEAN UP STACK

BEQ

1BRANCH IF GOOD COMPARE

LWORD
.WORD

367
FPPERR

IUNIQUE ERROR NUMBER
ADDRESS OF ERROR MESSAGE

STFPS

MOV

ERROR

(SP)+,.Ra

IUNIQUE ERROR NUMBER
;Mss OF ERROR MESSAGE

1INSTRUCTION MASNT SUPPOSE TO TRAP

sREJOIN CODE

1SEE IF PC = INSTRUCTION

sALL ERRORS TO TRAP TO EMT VECTOR

\PC WAS INCORRECT
:comou CODE FOR TRAP AND NO TRAP

000200

2%:

MOV

0200,R2

1SAVE FPS

1SET FPP TO DOUBLE

GLOBAL AREAS

KDJ11A,
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986

4987
4988
4989
4990
4991
4992
4993

4994
4995
4996
4997
4998
4999

5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014
5015
S016
5017
5018
5019

5021

5023

5030

MAC © 15MAR 84 15.89°2) 15-MAR:82
024226

-MAR -

024242
024244
024246
024250

170102

LDFPS

38:

024260
024264

004767
005767

024272
024274
024276

104000
000371
002013

024300

005737

024304 001002
024306 000165 000034

Ss:

024312

170301

68:

024324
024326
024330

104000
000372
002013

024332

000165

024270 001403

024314 016504
024320 020401
024322 001403

024336

155662
154550

001042

000034

MOV
STD
cHP

001403
104000
000370
002013

024252 010504
024254 062704 000020

as:

024336

ORECDST,R1
32(RS),R3

ACO, (R1)

370
FPPERR

MOV
ADD

RS,R4
020,R4

JSR
ST

B8EQ

SEQ 0096

BEQ
ERROR
.WORD
'WORD

1BAD FPS

7%:

1POINT TO EXPECTED DATA
sVERIFY DATA

371
FPPERR

8OFLAG

1BAD ACO

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE
+SEE IF NEED TO CHECK FEC
iBRANCH IF NEED TO CHECK
sRETURN FROM TEST

BNE
JHP

64
34(RS)

STST

sSAVE FEC
sGET FEC
sVERIFY FEC
sBRANCH IF GOOD

372
FPPERR

sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
L BAD FEC
tRETURN FROM TEST

sVERIFY ERROR STATUS

HOP13:

tPOINT TO RECEIVED DATA TABLE
1SAVE ACO RESULT
s VERIFY STATUS
1BRANCH IF GOOD
1ALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE

R7,DATVER
COUNT

ERROR
WORD
'WORD

MOV
cP
8EQ

ERROR
JWMORD
'MORD

000036

16:38. PAGE
%6

024230 012701 001126
024234
174011
024236 026503 000032

34(RS),R4
R4,R1
7s

;ALL ERRORS TO TRAP TO EMT VECTOR

36(RS)

MMODF

$30008080000000000000000080000020000000000000000000080000000080080

024336

;4TEST 65

005267

154442

024342
024346

005037
004767

001042
000554

024352
024356
024362
024366
024372
024374

000100
012346
000000
000000
000013
000004

000000
177777
000000
000000

024376
024402

005037
004767

001042
000520

000000
000000
000000
000002
000004

000000
00000G
000000

024412
024416
024422
024426
024430

TEST MOOF

3300800400088 000000000000080000000000080000000000000030000

024336

024406

5027
5028

MACY1]

012356

177777

TST6S:

000808880

ING

$TESTN

CLR
JSR

SOFLAG
R7,MOFSUB

:17AC=0 FSRC=0
JMORD
JHORD
'MORD
JWORD
JMORD
'MORD

$+2/FSRC=0

100,0
12346,
0,0
0.0
13
4

CLR
JSR

SOFLAG
R7,MOF

'MORD
'MORD
JMORD
'WORD
- WORD

0,0
0.0
0.0
3
4

JMORD

1286,
-1

s INCREMENT TEST NUMBER

;ACO

sNO INTERRUPT
;D0 TEST

1FSRC

1FRACTI ONAL RESWLT

' INTEGER RESWLT
3 TEST FPS
tRESULTANT FPS

iNO INTERRUPY
+FSRC

1ACO

100 TEST

tFRACTIONAL RESWLY

1 INTEGER RESWLT
1 _TEST FPS

sRESULTANT FPS

GLOBAL

KDJ11A

5031
5032
5033

5034
5035
5036
5037
5038

5039
5040

5041
5042
5043
5044
5045

5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
S057
5058
5059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5059
5070

AES SBRRp 15w 784 163851 PAB-°7

024464

005037
004767
000000
177777
000000
000000
007500
007504

024466
024472
024476
024502
024506
024512
024516
024520

005037
004767
046252
040300
000000
046377
000013
000004

001042
000430
125252
000000
000000

024522
024526
024532
024536
024542
024546
024552
024554

005037
004767
077652
040300
C00000
077777
000000
000004

001042
000374

024556
024562
024566
024572
024576
024602
024606
024610

005037
004767

001042

147400

024432
024436
024442
024446
024452
024456

024462

5071
5072
5073
S074
5075
5076
5077
5078
5079
5080

5081
5082
5083
5084
5085
5086

001042
000464
000000

177777

000000
000000

177777

125252
000000
000000
177777

CLR
JSR
WORD
WORD
'WORD
'WORD
"WORD
‘WORD

80FLAG
R7,MDFSUB
0,0
1,-1
0,0
0.0
7500
7504

JSR
.WORD

R7,MOF SUB
46252, 125252

18/AC>FSRC>0
CLR

SOFLAG

.WORD

40300,0 ;FSRC

'WORD
‘WORD
'MORD
'WORD

1S/AC>FSRC>0

CLR
JSR

LWORD
JMORD
MORD
WORD
MORD
MORD

77652, 125252
40300.0 :FSRC
0,0
77777,-1
©
4

:6/7AC>0<FSRC, INTEGERS

170000
007400
007404

025700

'MORD

170000,25700

005037
004767
100227

001042

005037
004767

040300
046377
000053

001042
125252
177777

RESULT

1 INTEGER RESULT
+ _TEST FPS
tRESULT FPS

iNO INTERRUPT
;D0 TEST

1ACO

iNO INTERRUPT
;00 TEST

LMORD
.muoao

000010

sFSRC
tFRACTIONAL

BOFLAG
R7,MOF SUR

025700

021251

tNO INTERRUPT
31DO TEST
1ARCO

sRESULTANT FPS

SOFLAG
R7,MOFSUB

177777

SEQ 0097

0,0
46377,
-1
13
4

CLR
JSR

104061

024672
024676
024700

13/AC=0

LG8

60600,0
%azm.zsvoo

1FRACTIONAL RESULT

s INTEGER RESULT

s+ _TEST FPS

sACO

;1FRACTIONAL RESULT
s INTEGER RESWLTY

TEST FPS

sRESULTANT FPS

iND INTERRUPT
;D0 TEST
sACO
sFSRC

sFRACTIONAL

RESWLT

s INTEGER RESWLT
3 TEST FPS
iRESULT FPS

.MORD
"MORD

7400
7404

A iorae

JMORD
"MORD
.MORD
JMORD
.WORD

44025,25252
104061,21251
0,0
O
10

: INTEGER RESWLY

CLR
JSR

BOFLAG
R7,MOF SUB

iNO INMTERRUPT

3 7/AC<0<FSRC, FRACTIONAL

LWORD

100227-1
,

18/7AC<0>FSRC, TRUNCATE
.WORD
.MORD
'WORD
.MORD
'WORD
'WORD

46252,125252
40300.0
0,0
46377,
-1
S3
44

19/ROUND INTEGER

iNO INTERRUPT
;D0 TEST
:ACO
:1FSRC

sFRACTIONAL

RESWULT

1 TEST FPS

sRESWLT FPS
1D0 TEST

1FSRC

1ACO

1FRACTIONAL RESWLT
1 INTEGER RESWLT
i TEST FPS
iRESWLY FPS

GLOBAL ARE AS
KDJ11A.MAC

5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098

5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
S111
S112
5113
S114
5115
S116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129

5130
5131

5132
5133
5134
5135

5136

5137
5138
5139
5140
5141
5142

024702

15 MAR 84 15:40°2 15°MAR;R4 16:38 PRGR.

024706
024712
024716
024722
024726
024732
024734

005037
004767
046252
040300
000000
046377
000013
000004

024736
024742
024746
024752
024756
024762
024766
024770

005037
004767
040777
040200
040177
040740
000000
000000

024772
024776
025002
025006
025012
025016
025022

005037
004767

025026
025032
025036

005037
004767
040225
066652

001042
000070

066707
007027
007004

025160

001042
000214
125252
000000
000000
177777

001042

000160
177777
000000
177770
000000

000167

JSR

R7,MOF SUB

. WORD
.WORD
.WORD
'WORD
'WORD

40777-1
,
40200,0
40177,177770
40740.0
O

JSR

R7,MOFSUB

'MORD
O
:111/ROUND INTEGER
CLR
89F LAG

001042

012737
004767
076000
076000
000000
033600
001000
101006
000010

80FLAG
R7,MDFSUB

46252, 125252
40300,0
0,0
46377,
-1
13
4
1 10/TRUNCATE FRACTION
CLR
80FLAG

025024

000000

CLR
JSR
.WORD
.WORD
.WORD
.WORD
.WORD
'WORD

_WORD
'MORD
'MORD
MORD
JMORD
JMORD

0,0
0.0
0.0
0.0
©
4

CLR
JSR

SOFLAG
R7,MOFSUB

112/7ROUND FRACTION
LWORD
JMORD

40225,125252
66652.52525

'mm 25‘7’07 25160

001042

JMORD
"MORD
+ /OVERFLOM

#1,00FLAG
nimrsul

JMORD
JMORD

0,0
33600,0

JMP

HOP14

.MORD
JMORD
'MORD
H

7027
7004

MOV
JSR

'uoao”

000310

;sooo'g

1000
101006
10

SEQ 0098

iNO INTERRUPT
1D0 TEST

1ACO

1FSRC
tFRACTIONAL

RESULT

s INTEGER RESULT
1+ TEST FPS
tRESULT FPS

sNO INTERRUPT
100 TESY
sACO
sFSRC

sFRACTIONAL

s+ INTEGER RESULT
s+ TEST FPS
sRESULT FPS

RESWLT

sNO INTERRUPY
;D0 TEST

sACO
sFSRC

tFRACTIONAL

RESULT

s INTEGER RESWLT
3 TEST FPS
sRESULTY FPS

iNO INTERRUPT
;D0 TEST
sACO
sFSRC
sFRACTIONAL RESWLT
s INTEGER RESWLT
s TEST FPS
sRESULY FPS

i INTERRUPT

sACO
sFSRC

3:D0 TEST

sFRACTIONAL RESWLT
s INTEGER RESWLT
3+ TYEST FPS
sRESULT FPS
sFEC

joXaXeXaXaXoXaXoXoXaXaXa
XX
XaXoXaXo
XAXAXOXOXOXo
aXeXo
X0XOXAX
jaXaXaXeXaXaXoXsXaXoXoXaXoXaXaXoXaXaXaXoXaX0XoXOXAXOXOXOXAX

ACO

F SRC
FRACTIONAL RESWLT

INTEGER RESWLT

FPS BEFORE EXECUTION

GLOBAL AREAS
KDJ11A.MAC

MACY1l 30A(1052)
15-MAR-84 15:51

15-MAR-84
T65

5143

gl‘g

5153
5154
5155
5156
5157

5158
2123

1
5161
glgg
1

5164

5165
5166
5167
5168
5169
5170

g%;é

jaXaXaXaXaXeXaXeXaXaXaXaXaXaXAXOXEXOXOXOXAXOXOXOXOX0X0X0X0X
.oXnXoxox-xox-x-xax:onoXoxox:x-x‘xox.XoXox.onoxoxoxoxoxox

025126
025130
025136
025142
025144
025146
025152
025154
025156

012605
012737
012702
170102
172415
012701
172511
010501
062701

025216
000200

016502
170102

025170
025172

171411
170001

025174
025202
025204
025206
025210

032737
001426
104000
000373
002013

000001

025212

000167

000042

5180
5181
5182
5183
5184
5185
5186
5187

025234
025240
025242
025244
025250
025252
025254
025256

000167
012604
005726
022704
001403
104000
000375
002013

000020

5195
5196
5197
5198

001082

MOV
LDOFPS
MODF
SETF

(SP)+,RS
0508 ,80FPVEC
0200,R2
R2
(RS5),ACO
OMODGAR,R1
(R1),AC1
RS,R1
04, ,R1

1+ RETURN ADDRESS TO USE AS POINTER
sREDIRECT TRAP VECTOR
$1SET TO DOUBLE MODE FOR LOAD
;1LOAD FPS
sLOAD ACO WITH TEST DATA
;LOAD KNOWN INTO AC1
i
sPOINT TO FSRC DATA

20(RS),R2
R2

;GET TEST FPS
sLOAD TEST FPS

(R1),ACO

ssTEST INSTRUCTION
sWAIT FOR POSSIBLE FPA TRAP.

cINSTMtIOI DIDNT TRAP
BIT
BEQ
ERROR
.WORD
.WORD

373
FPPERR

JNP

01,80FLAG
24

iVERIFY A NO TRAP CONDITION
1BRANCH IF GOOD
sALL ERRORS TO TRAP T0O EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
s INSTRUCTION SHOULD HAVE TRAPPED

sREJOIN CODE

000001

5191
5192
5193
5194

LDD
MOV
LDD
MOV
ADD

000020

032737
001005
104000
000374
002013

5190

norsua: MOV
MOV
MOV
LDFPS

000004

025162
025166

025216
025224
025226
025230
025232

g{:g

000244

025426

5173
5174
5175
5176
5177
5178

2179

(FEC)

5146
S147

SEQ 0099

FPS AFTER EXECUTION

5148
5149
5150
5151
5152

16:58
PAGE 99
TEST MODF

001042

s INSTRUCTION TRAPPED
SO$:
8IT
01 ,.80FLAG
BNE
S1s
ERROR
JHORD
374
.WORD
FPPERR

S518:

025172

JMP
MOV
TST
cP
BEQ
ERROR
.MORD
.WORD

23
(SP)+,R4
(SP)»
#1%,R4
2t

375
FPPERR

[}

025260
025262
025266
025270

170203
012702
170102
012701

025274
025276
025302

174011
026503
001403

3sSEE IF EXPECTING A TRAP
sBRANCH IF EXPECTING A TRAP
sALL ERRORS TO TRAP TO EMT VECTOR
.uuu ERROR NUMBER
3 ADDRESS OF ERROR MESSAGE

JINSTRUCTION WASNT SUPPOSE TO TRAP

1PC WAS INCORRECT

;COMMON CODE FOR TRAP AND NO TRAP

000200
001126
000022

2%:

sREJOIN CODE
3SEE IF PC = INSTRUCTION
sCLEAN UP STACK
3
:BRANCH IF GOOD COMPARE
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

STFPS
MOV
LOFPS
MOV

RS
9200,R2
R2
ORECDST ,R1

1SAVE FPS
sSET FPP TO DOUBLE

STD
cMpP
BEQ

ACO,(R1)
22(&5).R3
3%

1SAVE ACO RESWLT
1VERIFY STATUS
1BRANCH IF GOOD

sSAVE FRACTIONAL RESULT

1POINT TO RECEIVED DATA TABLE

GLOBAL AREAS
KDJU11A, MAC
5199
5200
5201
5202
5203
5204
5205

025304

025306
025310

MACY11

15-MAR-84 15:51

15-MAR-84
T65

16:58
PAGE 100
TEST MODF

104000
000376
002013

010504
062704
004767
005767
001403
104000
000377
002013

5207

30A(1052)

174111
010504
062704
004767
005767
001403
104000
000400
002013
005737
001002
000165

ERROR

.WORD
.WORD

000010
154604
153510

JSR

R7,DATVFR

.WORD
.WORD

Ss:
000014

154554
153460

001042

6$:
78:

377
FPPERR

COUNT

177777

1ADDRESS OF ERROR MESSAGE

sPOINT TO EXPECTED DATA

$sVERIFY DATA
1BRANCH IF GOOD

1BAD ACO

tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
VE AC1 RESULT

s POINT TO EXPECYED

R7,DATVFR

sVERIFY DATA

BEQ
ERROR
.WORD
.WORD

$BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

TST

SOFLAG

JHP

2‘(35)

BNE

STST

MOV

400
FPPERR

sBAD AC1

+SEE IF NEED TO CHECK FEC
tBRANCH IF NEED TO CHECK
tRETURN FROM TEST

2‘(05).

cHpe

R4.R1

.WORD

401

26(RS)

'lo"o“o"

.WORD

8s:

1BAD FPS

5S¢

AC1,.(R1)
RS,R4
214 ,R4

BEQ
ERROR

000026

tUNIQUE ERROR NUMBER

COUNT

STD
MOV
ADD

JSR

sALL ERRORS TO TRAP TO EMT VECTOR

@10,R4

;sSAVE INTEGER RESULT

016504
020401
001403
104000
000401
002013

177777
177777

R5,R4

BEQ
ERROR

170301

000165

MOV

TST

SEQ 0100

376
FPPERR

3s:

ADD

FPPERR

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE
3BAD FEC
iRETURN FROM TEST

sXKNOWN DATA FOR AC1

HOP14:
MMODD
:

$300880824008000008000280008000000000000000000000000000000000000004

14TEST 66

TEST MODD

350008000580 0000800800000000000000000000000000000000000000000000008

005267

025470
025472
025500

005037
004767
012345
177777
000100
000000
000000
000000

TST66:

153342

INC
CLR
JSR

S$TESTN
SOFLAG
R7,MODSUB

1234S,-1,-1,-1

iNC INTERRUPT
100 TEST
1ACO

117AC>FSRC
=0

+ INCREMENT TEST NUMBER

001042
001164
177777

177777

000000

LNORD

100,0,0,0

1FSRC

000000

LMORD

0,0,0,0

1tFRACTIONAL RESWLT

JMORD

000000

025516
025522
025526
025534
025536
025544
025546
025554
025556
025564
025566
025570

001042
001110
000000

<8
16:?E PA

000000

.WORD

. WORD
.WORD
12/AC=0<FSRC
CLR
JSR
.WORD

558

025502
025510
025512
025514

15-MAR
g‘

177777

000000
000000

025572
025576

125250
040300
000000

000000
000000

056377
177774

13/AC>FSRC>0

163777
125726
000210
000204
005037
004767
056200
000001
040340
000000
000000
000000
056340
000001
000213
000204

0,0,0,0

200

SEQ 0101

s INTEGER RESULT

i TEST FPS

204

tRESULTANT FPS

8OFLAG

iNO INTERRUPT

1234,-1,0,0

1FSRC

0,0,0,0

sFRACTIONAL RESULT

0,0,0,0

s INTEGER RESULT

7717
7704

1 TEST FPS
sRESULTANT FPS

@OFLAG

{NO INTERRUPT

sFRACTIONAL RESULT

R7,MDDSUB

1D0 TEST

125252

000000

R7,MODSUB
;00 TEST
56252, 125252, 125252, 125250
sACO
40300,0,0,0
sFSRC

000000

0,0,0,0

177777

$6377,-1,-1,-4

001042
000760
000000

000000

204
BOFLAG
R7,MDDSUB
140240,0,0,0

146314

133572

000000

177777

162531

000213
0002¢4
005037
004767
140240
000000
063714
167737
000000
000000

0101

001042
001034
125252

CLR
JSR

213

|.IAC¢O)&

' §§2

5257
5258
5259

15-MAR-84

SOA(
gOS?)

s INTEGER RESULT
: TEST FPS

JRESULTANT FPS
sNO INTERRUPT
:DO0 TEST
;ACO

63714,146314,133572,167737
0,0,0,0

sFSRC

sFRACTIONAL RESWLT
s INTEGER RESWLT

1S7AC>F

: §g§.

5255
5256

MACY1l

AREAS
KDJ1.1A
MAC

210
204

s _TEST FPS
tRESULTANT FPS

SOFLAG

iNO INTERRUPT
;D0 TEST

R7,MDDSUB

56200,0,0,1

40340,0,0,0

1FSRC

0,0,0,0

(FRACTIONAL RESWLT

56340,0,0.1
-

GLOBAL

213
204

s INTEGER RESWLT

i TEST FPS
tRESULTANT FPS

GLOBAL

MACY

30A

025776
026002
026006
026014

005037
004767
056252
125252

001042
000630
125252

125252

16/TRUNCATE
CLR
JSR
JWORD

000000

.WORD

40300,0,0,0

000000

.WORD

0,0,0,0

177777

.MORD

56377,-1,-1,-1

.WORD
.WORD

253
244

s+ TEST FPS
sRESULT FPS

CLR

SOFLAG

sNO INTERRUPT

WORD

23352, 125252, 125252, 125252

KDJI1A.MAC > 15 MAR-Ba 05¢4052)
S311
5312
5313
5314
5315

5316

026016

040300

5317
5318
5319
5320
S321
5322
5323

026024
026026
026034
026036
026044
026046
026050

000000
000000
000000
056377
177777
000253
000244

5325

026052

005037

5327

026062

5324

5326

5328
5329
5330
5331
5332
5333
5334

026056

026070
026072
026100
026102
026110
026112
026120

004767

023252

125252
040300
000000
023377
177777
000000
000000

5335
5336

026122
026124

000253
000240

5338
5339

026126
026132

005037
004767

5337
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349

026136
026184
026146
026154
026156
026164
026166
026174
026176
026200

5351
5352

026202
026206

5354
5355
5356
5357
5358
5359
5360
5361
5362

026220
026222
026230
026232
026240
026242
026250
026252
026254

052525
040300
000000
040177
177740
041636
000000
007700
007700

5364
5365

026256
026264

012737
004767

5350
5353

5363
5366

AREAS

026212

026270

S2)

S-MAR-84

iee 16:3fs1PABEo PA

102

JSR

SEQ 0102

OFLAG
1NO INTERRUPT
R7,MDDSUB
;D0 TEST
56252, 125252, 125252, 125252

1 7/TRUNCATE FRACTION

001042

000554

R7,MODSUB

3sFSRC
sFRACTIONAL

RESULT

s INTEGER RESULT

DO TEST

125252

000000

.MORD

40300,0,0,0

sFSRC

177777

LMORD

23377,-1,-1,-1

JFRACTIONAL

000000

.MORD

0,0,0,0

s INTEGER RESULT

(MORD
"WORD

253
240

: TEST FPS
;RESULT FPS

CLR
JSR

SOFLAG
R7,MOOSUB

{NO INTERRUPT
;00 TEST

001042
000500

:8/7ROUND ' INTEGER

076600
125252
040300

000000

.MORD

40300,0,0,0

000000

.MORD

0,0,0,0

076700
177777
000200
000204

000000

LMORD

76700,0.,0,
-1

. WORD
. WORD

200
208

3 TEST FPS
iRESULT FPS

005037
004767

001042
000424

CLR
JSR

SOFLAG
R7,MDOSUB

iNO INTERRUPT
100 TEST

000000

041525

177777

4ACO

LMORD

76600,0,0,125252

19/7ROUND THROUGM FRACTION

JFRACTIONAL

000000

.HORD

40300,0.0,0

177777

17171717

.WORD

40177,-1,-1,177740

000000

.MORD

41636,0,0,0

LMORD
.MORD

7700
7700

MOV
SR

01,80FLAG
R7.MDDSUB

177777

001042
177777

RESULT

41525,052525,52525,52525

s /OVERFLOM, TRAPS ENABLED
.WORD

1ACO

s INTEGER RESULT

052525

000001
000346

RESULT

+FSRC

052525

LMORD

;ACO

“1,-1,-1,-1

+ACO

1FSRC
tFRACTIONAL
+INTEGER RESULT

: TEST FPS
JRESULT FPS

+ INTERRUPT
100 TEST

1RCO

RESWLT

KDITTA.MAC"® 1s"RAR:E4PPEIAE5) 15-MARGER 16:3. PAGEo10°
5367
5368
5369
5370
5371
5372
S373
5374
S375
5376
5377
5378

5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394

5395
5396
5397
5398
5399
5400
5401
5402

5403
5404
5405
5406
5407
5408
5409
5410
5411
5412
5413
5414
5415
5416
5417
5418
5419
5420
5421
5422

026276
026300
026306
026310
026316
026320
026326
026330
026332

177777
040400
000000
000000
000000
100177
177777
007700
107706
000010

005037
004767
056700
177777
044440
177777
000000
000000
063161
040775
000200
000204

000000

.WORD

0,0,0,0

177777

.WORD

100177,-1,-1,-1

.WORD
.WORD
.WORD

001042
000270
000000

000000

177777

7700
107706
10
1 /INTEGER CHOPPED TO S6 BITS
CLR
0FLAG
JSR
R7,MDDSUB
.WORD
56700,0,0,-1

SEQ 0103

tFRACTIONAL

1+ _TEST FPS
tRESULT FPS
iFEC
iNO INTERRUPT
3100 TEST
sACO

.WORD

0,0,0,0

100000

.WORD

63161,100000,1,40775

.WORD
.WORD

200
204

JSR

R7,MDDSUB

:/OVERFLOW, TRAPS DISABLED
MOV
#2,80FLAG

004767

015200
000000
047700
147706
000010

000001

001042

000001

000002

s INTEGER RESULY

3 _TEST FPS
sRESULT FPS

sNO INTERRUPT

:00 TEST

sACO

.WORD

66600,0,0,0

sFSRC

.WORD

0,0,0,0

+JWORD

15200,0,0,0

LMORD
LMORD

47700
147706

sFRACTIONAL

RESULT

s INTEGER RESULT

s TEST FPS
sRESULT FPS

iFEC

MOV

#2,800FLAG
R7,MDDSUB

;D0 TEST

.WORD

100300,1,1.,1

1FSRC

+WORD

0,0,0,0

tFRACTIONAL

.WORD

0,0,0,0

1 INTEGER RESWLY

JSR

000010

RESULT

66600,0,0,0

. WORD

100300
000001

tFRACTIONAL

.MORD

:/UNDERFLOM, TRAPS DISABLED

012737
004767
100277
177777

RESULT

s INTEGER RESULT

000000

012737

012737
004767
100277
177777

iNO INTERRUPT

+MORD
5200
1 TEST FPS
LHORD
S204
1RESULT FPS
.MORD
10
FEC
s /UNDERFLOW TRAPS ENABLED, UV AS RESWLY

MOV
SR

.MORD

@1 ,.80FLAG
R7,MDDSUB

100277,1,2,-1

RESWLT

1 INTERRUPT
100 TEST

1ACO

AREAS

KDJ11A . MAC

5423
5424
5425
5426
5427
5428

026574
026602
026604
026612
026614
026622

MACY11

15-MAR-84

100300
000001
040417
000000
000000
000000

5429
5430
5431

026624
026626
026630

002200
102200
000012

5434

026632

000167

3433

5435

SOA(
gosa)

15-MAR-84

T66

040001

077403

.WORD

40417,40001,77403,0

000000

.WORD

0,0,0,0

s INTEGER RESULT

.WORD
.WORD
.WORD

2200
102200
12

1+ TEST FPS
tRESULT FPS
'FEC

JMP

HOP1S

1JUMP OVER SUBROUTINE

000300

: ox-x.xatxoXoxox.xuoxox.xox‘xox.xohxcxox.x‘x.xnwuxoxox

026726
000200

5454

026656

012701

025426

026654

026662
026664

172415

172511
010501

5457

026666

062701

5459

(©26676

170102

026672

026700

026702

016502

mosw: MOV
MOV
MOV
LOFPS

LDD

MOV

171411

170011

10:

032737
001426
104000
000802
002013

000001

g:;“l,

026722

000167

000042

001042

(SP)+,RS
0508 ,00FPVEC
€200,R2
R2

s RETURN ADDRESS TO USE AS POINTER
;REDIRECT TRAP VECTOR
sSEY TO DOUBLE MODE FOR LOAD
sLOAD FPS

OMODGAR, R1

sLOAD KNOWN INTO AC1

(RS),ACO

LDD
MOV

(R1),AC1
RS,R1

MOV

40(RS),R2

MODD

(R1),ACO

ADD

000040

026704
026712
026714
026716
026720

5474
5475
5476
5477
5478

000244

000010

5465
5466
5467
5468
5469

5473

FSRC
FRACTIONAL RESULT
INTEGER RESULT
FPS BEFORE EXECUTION
FPS AFTER EXECUTION
(FEC)

; aXaXaXaXaXaXaXeXaXaXaXaXaXaXoXaXoXaXoXeXoXaXo X0 X0 X0 XaX0XoX
012605
012737
012702
170102

S470

RESULT

ACO

:
H
:
:
3
z

026636
026640
026646
026652

5464

sFRACTIONAL

aXaXaXaXaXaXaXaXaXaXaXasXaXaXeXoXaXA
XXX EX XXX
XEXEXE
0 X o)X
:

5449
S450
5451
5452

1FSRC

paXaXaXaXaXaXaXaXaXaXaXaXoXAXAXAXEXEXAXEXEXEXEXEXEXaX0XEXEX

5446

5461

SEQ 0104

100300,1,1,1

5447

5460

104

.WORD

S438

5458

MODD

000001

5439
S440
5441
5442
5443
5“54“5

5455
5456

PAGE

TEST

000001

54;6
5437

5453

16:58

LOFPS

SETD

8IT
BEQ
ERROR
.WORD
.WORD

01,890 LAG
23

JMP

402
FPPERR

026726
026734
026736
026740
026742

032737
001005
104000
000403
002013

000001

001082

; INSTRUCTION TRAPPED

S0$:

BIT

sLOAD ACO WITH TEST DATA

3
sPOINT TO FSRC DATA

010,R1

aINSMTIOC DIDNT TRAP

§5d°

GLOBAL

21,80FLAG
S1s

403

FPPERR

sGET TEST FPS

sLOAD TEST FPS
3¢TEST INSTRUCTION

$WAIT FOR POSSIBLE FPA TRAP.

sVERIFY A NO TRAP CONDITION
:1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIGQUE ERROR NUMBER
;1ADDRESS OF ERROR MESSAGE

aINSMTtN SHOULD HAVE TRAPPED
sREJOIN CODE

1SEE IF EXPECTING A TRAP
1BRANCH IF EXPECTING A TRAP

tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

026744
026750
026752
026754
026760
026762
026764
026766

MACY11

'OM
§052)

000167

000020

15-MAR -84

012604
005726
022704
001403
104000
000404
002013

026770
026772
026776
027000

012701

027004
027006
027012
027014
027016
027020

174011
026503
001403
1.04000
000405
002013

027022

010504
062704
004767
005767
001403
104000
000406
002013

(27024
(27030

027034

€27040
027042
027044
027046

027050
027¢52
027054
027060
027064
027070
027072
027074
027076

027100
027104
027106
027112
027114
027120
027122
027124
027126
027130
027132

170203
012702
170102

062704
004767
005767
001403
104000
000407
002013
005737
001002
000165
170301
016504
020401
001403
104000

S514:

026702

001126

153112
152000

16:56
PAGE 105
TEST MODD

JMP
MOV

24
(SP)+,R4

cMP

014 ,R4

BEQ
ERROR
.WORD
'WORD

(SP)e

SEQ 0105

1 INSTRUCTION WASWT SUPPOSE TO TRAP
1REJOIN CODE
1SEE IF PC = INSTRUCTION
1CLEAN UP STACK
L

1BRANCH IF GOOD COMPARE

404
FPPERR

IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

tALL ERRORS TO TRAP TO EMT VECTOK

1PC WAS I’CMCT

CODE FOR TRAP AND NO TRAP
STFPS
RS

MOV

1SAVE FPS
$SET FPP TO DOUBLE

0200,R2

LOFPs

cHP

42(65) R3

ORECDST,R1
\SAVE FRACTIONAL aesc.u
STD
(R1)

3s:
48

BEQ
ERROR
.MORD
'MORD

405
FPPERR

MOV
ADD
JSR
ST
BEQ

RS,R4
020,Ra
R7,DATVER
COUNT
Ss

ERROR
LMORD
'MORD

+POINT TO RECEIVED DATA TABLE

1BAD FPS

1SAVE ACO RESWLT
tVERIFY STATUS
1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

1POINT TO EXPECTED DATA
sVERIFY DATA

cum IF GOOD

ALL ERRORS TO TRAP TO EMT VECTOR
.uctu ERROR NUMBER
o.mss OF ERROR MESSAGE

406
FPPERR

1SAVE INTEGER RESWLT

174111

010504

15-MAR
- 64

Noe
o

AREAS
+MAC

S$:
000030
153062
151750

001042

68:
78:

STD

MOV
ADD
JSR
ST
BEQ

AC1,(R1)

RS,R4
030,Re
R7,DATVER
COUNT
68

ERROR
LWORD
'MORD

407
FPPERR

BOFLAG

P
STST

44(RS)
R

HNE

MOV
e
BEQ

VE ACL RESWLT

1POINT lO EXPECTED

iVERIFY DATA
:

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

1BAD AC1L

44(RS),Re
8

R4 ,R1

000410
002013

ERROR
LMORD
'WORD

410
FPPERR

000165

46(RS)

1ADDRESS OF ERROR MESSAGE

1SEE IF NEED TO CHMECX FEC
1BRANCH IF NEED TO CHECK
tRETURN FROM TEST
1SAVE FEC
1GET FEC

tVERIFY FEC

1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
'MID
'gg OF ERROR MESSAGE

1RETURN

;B
FROM TEST

GLOB
KDJ11A

5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545

5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
3558
5559
35560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571

5572
5573

5574
5575
5576
5577
5578
5579

5580
5581

5582
5583
5584
5585
5586
5587
5588
5589
5590

ARERS
. MA

15 HAR 14a 8141520 15-MAR;RY 16:38, PhGhy 100

CY
SEQ 0106

AOPXS:

027136
027136

MSFD:

'|.“‘......“.““..‘..‘0‘.““..“‘.0‘...00‘0..

1oTEST

027136

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

027136

005267

151642

027142
027146
027154
027156
027164
027166
027170

004767
000177
000001
000000
000000
047557
047544

000170
000000

027172
027176
027204
027206
027214
027216
027220

004767
077577
177777
077577
000000
007540
007540

000140
177777

1777277

027222
027226
027234
027236
027244
027246
027250

004767
100377
000000
100377
000000
007517
007510

000110
177777

027252
027256
027264
027266
027274
027276
027300

004767
100000
000000
000000
C00000
007757
007744

027302
027306
027314

004767
125252

027316

027324
027326
027330

‘.“.000‘.‘..“00000000

TST67:

11/AC=0

000000

INC

$TESTN

1 INCREMENT

JSR
.WORD

R7,SFDSUB

100

0177,0,0,1

1ACO

TEST NUMBER

TEST

.WORD

-WORD

47557
27544

s+ _TEST FPS
tRESULT FPS

177777

JSR
.WORD

R7,SFDSUB
77577.'1.-1.~1

;D0 TEST

000000

.WORD

77577,-1,0,0

127AC>0,

100000

TRUNCAT

.WORD
.WORD
13/7AC<0, ROUND
JSR
.WORD

177777

14/AC=-0

7540
7540

s+ TEST FPS
tRESULT FPS

R7,SFDSUB

100 TEST

100377,-1,0,0

;RESWLTY

. WORD
.WORD

7510

7517

JSR
.WORD

SACO
sRESULT

. WORD

TEST FPS

tRESWLY FPS

R7,SFOSUB

100 TEST

100000,0,0,0

1ACO

.WORD

000030
125252

1S5/7AC<0
125252

.WORD
.WORD

7757
7744

JSR

R7,SFDSUB

. WORD

‘25252.125252.0.0

.WORD
.WORD

JMP

HOP16

.WORD

125252

027332

‘.0.‘.0.0.00‘00‘

TEST STCFD

000120

s TESY FPS
sRESULT FPS

100 TEST

125252,125252, 125252, 125252

s:ACO

I“ESUL'
TEST FPS

sRESWLT FPS
1GET OVER SUBROUTINE

soXaXsXeXaXaXeXaXoXoXoXoXaXoXoXaXoXaXoXoXeXoXoXaXoXaXaXoXaX

jeXaXaXaXo
XXXXaXoX
X0 XOXOXOXOXOXO
oXoXo
XOXOXOXOXAXOXe
XOXOX

3sSTCFD
3
’

ACO

RESWLT

GLOBAL AREAS
KDJ11A
. MAC

5591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638

5639

5640
5641
5642
5643
5644
5645
5646

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR-84

16:58

167

PAGE

107

TEST STCFD

'
:

$€0 o107

FPS BEFORE EXECUTION
FPS AFTER EXECUTION

1 THERE CAN BE PO TRAPS WITH THE STCFD INSTRUCTION

jeXaXaXaXaXaXaXaXaXaXaXoXaXOXEXOXAXAXOXAXA

XSXEXOXOXEXOXEXoX
jeXaXaXaXaXaXaXaXaXaXoXoXaXAXAXOXAXAXOXAXEXAXOXO
XXX SX6X
XO

027336

027340

012605
012737
012702

027444
000200

000244

SFDSUB:

MOV
MOV
MOV
LOFPS
LDD

MOV
MOV
LOFPS

(SP)+,RS
0504 , BOFPVEC
9200,R2
R2
(RS),ACO

ORECDST,R1
20(RS),R2
R2

i RETURN ADDRESS TO USE AS POINTER
;REDIRECT TRAP VECTOR
1SET_TO DOUBLE MODE FOR LOAD
iLOAD FPS
1LOAD ACO WITH TEST DATA
1POINT TO RESULT AREA
1GET TEST FPS
iLOAD TEST FPS

STCFD

ACO,(R1)

1o TEST

027346
027352
027354
027356
027362
027366

016502
170102

027370

176011

408:

170203
016502

iVERIFY STATUS
28:
STFPS
MOV

170102
172415
012701

001126
000020
3

:INSTRUCTION DIDNT TRAP

027372
027374
027400
027402
027404
027406
027410

001403
104000
000411
002013

027412
027414
027420
027424
027430
027432
027434
027436

010504
062704
004767
005767
001403
1C3000
000412
002013

027440

000165

027444
027444
027446
027450

104000
000413
002013

027452

000165

000010

152522
151410

411
FPPERR

38:

MOV

RS,R4

as:

JSR

R7,DATVER

BEQ

ADD

ERROR

Ss:

HOP16:

C27456

MSDF
;

]

010,R4

sVERIFY STATUS
sBRANCH IF GOOD
;ALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
o rps.nooasss OF ERROR MESSAGE

sPOINT TO EXPECTED DATA

sVERIFY DATA

COUNT

$BRANCH IF GOOD

.WORD
.MORD

412
FPPERR

24(RS)

ERROR
.MORD
.MORD

413
FPPERR

24(RS)

027456

:GET EXPECTED STATUS

R2,R3
LT

gg?STNUtIION TRAPPED
:

$SAVE FPS

22(RS),R2

cHP
BEQ
ERROR
MORD
.MORD

INSTRUCTION

sALL ERRORS TO TRAP TO EMT VECTOR

tUNIQUE ERROR NUMBER
b ‘coanooatss OF ERROR MESSAGE

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

1 INSTRUCTION WASNT SUPPOSE TO TRAP

tRETURN FROM TEST

'|‘0..“0.‘...."..00.0..‘0.000...0O...0..00“00...0.00.‘.0....

s#TEST

TEST

.‘

STCOF

] .0;30..‘t"0‘0....‘.‘0.‘..0‘.....0‘.0‘..‘.00..“‘00.‘...‘0‘00.

027456
027456

151322

005037

001042

TS770:;
‘

027462

S INC

STESTN

CLR

SOFLAG

1 INCREMENT TEST NUMBER
INO INTERRUPT

GLOBAL AREAS
KDJ11A.MAC
5647
5648

5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5859
5660
5661
5662
5663
5664
5665
5666
5667

5669
5670
5671

MACY1l

30A(1052)

027466
027472
027500
027502
027506
027510

004767
000177
000000
000000
000200

000220
000000

027512
027516
027522
027530
027532
027536
027540

005037
004767
100000
000100
000000
007777
007744

15-MAR -84

15:51

15-MAR-84

000000

177777
055555

000240
000240

012737
004767
077777

000000
000000
001200

001042
000170
000300

12/AC=-0

000200

000000

001042
000140
055555

137AC>0,

177777

001042
000056
125252

012737
004767
077777
000000
000000
006700
006706

000002
000024

CLR
JSR
.WORD

80FLAG
1NO INTERRUPT
R7,SDFSUB
sDO TEST
100000, 300,200,100
sACO

.WORD
. WORD
.WORD

0,0
7777
7744

sRESWLT
s TEST FPS
sRESULT FPS

SOFLAG

iNO INTERRUPT

TRUNCATE

CLR

S55555,55555

sACO

‘Rfisu.t

JSR
.WORD

R7,SDFSUB
77777. 1.100000,0

3 TESTY FPS

125252

0,0

s TEST FPS
iRESWLT FPS

CLR
JSR

S LAG
R7,SDF SUB

sND INTERRUPT
;D0 TEST

.WORD

125252, 125252,125252, 125252
125252,125253

7700
7710

MOV
JSR

92.90FLAG
R7,SDFSUB

.MORD
.WORD
LWORD

0,0
6700
6706

sRESWLT
s+ TEST FPS
sRESULT FPS

JMP

HOPL7

1GET OVER SUBROUTINE

. WORD

77777,-1,-1,0

000232
H

3:ACO

r‘:fiu'

.WORD
.WORD

:16/7ROUND TO UV, TRAPS DISABLED

000000

sACO

sRESWLT

1200
101206

.WORD

177777

100 TEST

. WORD
.WORD

000167

sDO TESTY

55555,55555, -1, -1

240

1S/7AC<0, ROUND

001042

R7,SDFSUB

JRESULT
3+ TEST FPS
tRESULT FPS

.WORD

.MORD

125253

177777

0,0
200
204

;D0 TEST
31ACO

.WORD
240
sRESULT FPS
14/AC<0, ROUND TO UNDEF INED V“I“LE
MOV
01 ,80FLAG
s INTERRUPT

000000

005037
004767
125252
125252
125252
007700
007710

SEQ 0108

.WORD
.WORD
.

.WORD

100000

101206

R7,SDFSUB
177,0,0,0

.HORD

001042

JSR
.WORD

JSR

055555

000001
000106
177777

TEST ?SD}

000000

000204

005037
004767
055555

T70

16:58

s TESY
sRESULT FPS

3 INTERRUPT
D0 TEST

sACO

joXaXeXoXeXXX
XaXaX
XX XXX
aXoXa
XXX XAXOXOXOXOXA
XoXo
X
.o#extx.x.x.x.xololoxmox‘xcxox-xoXoxox.xolshxox-xcx.xoxox

3
H

STCOF

ACO
RESULT

GLOBAL AREARS
KDJ11A.MAC

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR-84
T70

5703
5705
5706
5707
5708
5709
5710

5711
5712
5713
5714
5715
5716

S717
5718
5719
5720
5721
5722
S723
5724
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758

16:58
PAGE 109
TEST STCOF

5704

SEQ 0109

FPS BEFORE

l
.A

F9
EXECUTION

FPS AFTER EXECUTION

TRAP CAN ONLY OCCUR

IF ROUNDING CAUSES OVERFLOW

jaXaXaXaXaXaXaXaXaXaXeXoXaXOXOXOXAXAXOXOXAXXOXOXEX0XEX0XeX
;ox.xoXox:Xax.x.x.x.x.x.xox.x.x.x.xoXoXoXoXoXoXoo
noXoXoXox

027712
027714
027722
027726

027730
027732
027736
027742

012605
012737
012702
170102
172415
012701
016502
170102

027744
027746
027750

176011
170327

027752
027760
027762
027764
027766

032737
001426
104000
000414
002013

027770

000167

027774
030002
030004
030006
030010

001005
104000
000415

030012
030016
030020
030022
030026
030030
030032
030034

000167
012604
005726
022704
001403
104000
000416
002013

030036
030040
030044

170203
016502

030050
030052
030054

032737

027774
000200

000244

SDFSUB: MOV
MOV
MOV
LOFPS

40%:
1%:

001042

MOV
MOV
LOFPS

ORECDST,R1
14(R5),R2
R2

sPOINT TO RESULT AREA
1GET TEST FPS
tLOAD TEST FPS

STCOF

ACO,(R1)

1#TEST INSTRUCTION

STST
WORD

ERROR

000001

001042

(RS),ACO

1LOAD ACO WITH TEST DATA

(PC)»
O

tWAIT FOR POSSIBLE FPA TRAP.
$1STORE STATUS HERE.

BINSTRUCTION DIDNT TRAP
BIT
01 ,80FLAG
BEQ
2%

50¢:

002013

020203
001403
104000
000417
0020132

i RETURN ADDRESS TO USE AS POINTER
+REDIRECT TRAP VECTOR
1SET TO DOUBLE MODE FOR LOAD
1LOAD FPS

L.DD

001126
000014

000001

(SP)+,RS
€508 ,00FPVEC
9200,R2
R2

.WORD
.WORD

414
FPPERR

JMP

BIT

BNE
ERROR

Sis:

cHpP

027746

BEQ
ERROR
.MORD
.WORD

IUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

IINSYMYIGC SHOULD MAVE TRAPPED
sREJOIN CODE

@1,80FLAG

415

MOV
157

sALL ERRORS TO TRAP TO EMT VECTOR

1SEE IF EXPECTING A TRAP

S18

.WORD

sVERIFY A NO TRAP CONDITION

1BRANCH IF GOOD

FPPERR

1BRANCH IF EXPECTING A TRAP
sALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER

s ADDRESS OF ERROR MESSAGE
aINSl’MI‘!OO WASNT SUPPOSE TO TRAP

sREJOIN CODE

(SP).,Ra
(SP)e

sSEE IF PC = INSTRUCTION
sCLEAN UP STACK

o183 ,R4

]
1BRANCH IF GOOD COMPARE
sALL ERRORS TO TRAP TO EMT VECTOR

416
FPPERR

.uau ERROR NUMBER
ADDRESS (F ERROR MESSAGE

RS
16(R5),R2

1SAVE FPS
1GET EXPECTED STATUS

1PC MWAS iuconecr
:COHHDN CODE FOR TRAP AND NO TRAP
s VERIFY STATUS

000016

2%:

STFPS
MOV

cMP
BEQ
ERROR
.WORD
.WORD

R2,R3
3

417
FPPERR

1BAD FPS

iVERIFY STATUS
1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

GLOBAL AREAS

KDJ11A.MAC

MACa
1, 308C1052)

15:51

5759
5760
5761
5762
5763
5764
5765
5766

030056
030060
030064
030070
030074
030076
030100
030102

010504
062704
004767
005767
001403
104000
000420
002013

5768
5769
5770
5771
5772
5773

030104
030110
030112

005737
001002
000165

001042

030116
030122
030124
030130
030132
030134
030136

012704

001106

000421
002013

030140

000165

5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814

170314
021427
001403
104000

15-HAR
g4
.

16:38

3s:
4%;

PAGE

MOV
ADD

JSR

TST
BEQ

ERROR
.WORD
.WORD

Ss:

TST
BNE
JMP

iVERIFY FEC
78:
MOV

000010

8s:

SEQ 0110

310

R5,R4
@10,R4
R7,DATVFR

1POINT TO EXPECTED DATA
sVERIFY DATA

COUNT
Ss

420
FPPERR

80FLAG
78

1BAD ACO

1BRANCH IF GOOD
1ALL. ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE
1SEE IF NEED TO CHECK FEC
1BRANCH IF NEED TO CHECK

20(RS)

tRETURN FROM TEST

ORECFEC,R4

sPOINT TO FEC AREA
$SAVE FEC
sVERIFY FEC FOR OVERFLOW
$BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

STST
cMP
BEQ
ERROR
.WORD
.WORD

421
FPPERR

JMP

20(R5)

(R4)
(R4),010
84

sADDRESS OF ERROR MESSAGE
3BAD FEC

tRETURN FROM TEST

030144
030144

HOP17:
MSFDI:

100000000020 0800000000080000000000008080000028000080000088800888058

soTEST 71

TEST STCFD - USING ILLEGAL ACCUMULATOR

§50000800000000200000000000000008000000000000008000200080000008008

030144
030144
030150
030154
030156
030160
030162
030164
030170
030172
030174
030176

002013

030200
030204
030206
030210
030212

022703
001403
104000
000423
002013

005267
012701
170101
176006
170202
170303
022702
001403
104000

150634

TST71:

040000

140000

18:

0808

INC
MOV
LDFPS
STCFD
STFPS
STSTY
cHP
BEQ
ERROR
. WORD
WORD

5767

000010
152040
150744

BEQ

STESTN
#40000,R1
R1

ACO,AC6
R2

R3
#140000,R2

422

FPPERR

2.R3
24

423

FPPERR

030214

28:

030214

MCLRD:

s INCREMENT TEST NUMBER
1DISABLE INTERRUPTS
3

soTEST ILLEGAL INSTRUCTION
sSAVE STATUS
:SAVE FEC
sVERIFY FER SETY
sBRANCH IF ERROR RECEIVED
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
:FER BIT NOT SET ON ILLEGAL INST.
sVERIFY FEC = FLOATING OPCDOE ERROR
B BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1FEC INCORRECT

3188008800000 8800000000000000000000000000000000000000000000000000

soTEST

030214
030214

TEST CLRD

§3000600080000000008000000000000000000000800000000000000000000000

005267

150564

TST172:

INC

$TESTN

1 INCREMENT TEST NUMBER

GLOBAL ARE AS
KDJ11A.MAC

5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841

5842
5843
5844

5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864

5865
5866

5867
5868
5869
5870

030220
030224
030230
030232
030234

030240
030242
030244

15-MAR-84

30A(1052)

15:51

15-MAR-84

T72

16:58

TEST

PAGS

CLRD

111

012701
012704

001726
000200

0TABA7,R1
©200,R4
R4

012701

001126

ORECDST,R1
ACO,(R1)

001256
151672
150560

@TAB6,R4
R7,DATVER

170104
172411

174011
170411
012704
004767
005767
001403
104000

030250
030254
030260
030262
030264
030266

000424
002013

030270
030272
030276
030300
030302
030304

170202
020227
001403
104000
000425
002013

SEQ 0111

iPOINT TO DATA

1SET FPP STATUS TO DOUBLE

(R1),ACO

sPOINT TO DATA BUFFER
1STORE GARBAGE
1CLEAR DATA BUFFER
iVERIFY BUFFER =0

(R1)

E?UNY

424
FPPERR

18:

STFPS

R2
R2,0204

i
[

1BRANCH I RECDST = 0O
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
1 ADDRESS OF ERROR MESSAGE
tRECDST NOT CLEARED
;SAVE STATUS
sVERIFY STATUS

sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

425
FPPERR

030306

28:

030306

MCLRI:

3 ADDRESS

+BAD STATUS

OF ERROR MESSAGE

1100008008000 0000000000000000000000000000000000000000880080000008080

soTEST 73

TEST CLRD,

ILLEGAL ACCUMULATOR

$30600800000280000000000000000080000000000000000000000800000000080

030306
030306
030312
030316
030320
030322
030324
030326
030332
030334
030336
030340

000426
002013

030342
030346
030350
030352
030354

022705
021403
104000
000427
002013

005267
012704
170104

170203
170305
022703
001403
104000

150472

TST7S:

' 5 3 o83

5815
5816
5817
5818

| 17
MACY11l

STFPS

STST

140200

18:

BEQ

STESTN
#40200,R4

sLOAD STATUS
soTEST INSTRUCTION WITH ILLEGAL ACC
i SAVE STATUS
sSAVE FEC

:}m.fls

426

FPPERR

”2,R5
a4

tALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE
ERROR NUMBER
t%ss OF ERROR MESSAGE
ERROR IN

:VERIFY'ECQMM
AN
IF
CH
GOOD

tALL ERRORS TO TRAP TO EMT VECTOR

427
FPPERR

030356

28:

030356

MLS1:

sUNIQUE ERROR NUMBER

:ADDRESS OF ERROR MESSAGE

18AD FEC

130000000800000000000000000000000000000800000400000000000000000000

307‘5'

030356

TEST LOFPS,

STFPS MODE

FI068300080000000000000000000000000000000000000000000000000000002

75174,

GLOBAL AREAS
KDJ11A, MAC

5871
5872
5873

5874

5875
5876

5877

5878
5879
5880
5881
5882
5883
5884
5885
S88¢€
5887

58838
5889
5890
5891
5892
5893
58%4

5895
5896

5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910

5911
5912
5913
5914
5915
5916
5917
5918
5919

5921
5922
5923
5924
5925
5926

030356
030362
030366
030372
030376

1TM

15 HAR 84054952 15-MAR
g4 16: 281" CBFpd 25 1rps moDE 1

030404
030406
030410
030414
030416
030420
030422

005267
012704
012714
012701
012737
170114
170211
020427
001403
104000
000430
002013

030424
030430
030432
030434
030436

020127
001403
104000
000431
002013

001116

030440
030446
030450
030452
030454

023727
001412
104000
000432
002013

001116

030456

000167

000012

030462
030464
030466
030470
030472

150422

001136

147757

001116
030462

000244

001136

18:

INC
MOV
MOV
MOV
MOV
LDFPS
STFPS
cMP
BEQ
ERROR
WORD
WORD

430
FPPERR

cHp
BEQ

R1,0RECST
24

S$TESTN
@TSTLOC,R4
0147757,(R4)
ORECST,R1
@108 ,80FPVEC

012600
012605
104000

2%:

cHe
BEQ
ERROR
. WORD
WORD

431

FPPERR
SORECST
, 0147757
3%

432

FPPERR

JHP

MOV
MOV

(SP)»,RO
(SP)+,RS

ERROR
.WORD
.HORD

000433
002013

030474

3s:

030474

19.

1SET BUFFER FOR RECEIVED STATUS
1SETUP TRAP VECTOR
1#TEST INSTRUCTION

1#TEST

R4,0TSTLOC
18

sUNEXPECTED TRAP

10%:

s INCREMENT TEST NUMBER
1POINT R4 TO RAM
1SETUP EXPECTED STATUS

(R4)
(R1)

ERROR
WORD
.MORD

147757

SEQ 0112

433
FPPERR

INSTRUCTION

tVERIFY R4

1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
IUNIQUE ERROR NUMBER

+ADDRESS OF ERROR MESSAGE
sVERIFY R1

AD R1
18

iBRANCH IF GOOD
+ALL ERRORS TO TRAP TC EMT VECTOR
IUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

sVERIFY STATUS
1BRANCH F GOOD
sALL ERRORS TO TRAP TO EMT YECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
1BAD STATUSA
sGET OVER TRAP

sSAVE PC
;sSAVE PS
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE
sUNEXPECTED TRAP

30008000800 000000000000000000000000000000000000000048000000000000

soTEST 75

030474
030474
030500
030504
030510
030514
030522
030524
030526
030532
030534
030536
030540

030542
030546

TEST LOFPS, STFPS MODE 2

31800800883 000000000000000000000802000000000000000000000080000000

005267
012704
012714
012701
012737
170124
170221
020427
001403
104000
000434
002013
020127

001403

150304
001136
145557

TST7S:

000

INC
MOV
MOV

MOV

001116
030600

MOV
LOFPS
STFPS

cMP
BEQ

001140

ERROR
.MORD
.MORD

001120

18:

cHP
BEQ

S$TESTN
STSTLOC,.R4
9145557,.(Ra)

MRECSY .fll

€108 ,00FPVEC
(R4).
(R1).

R4, #TSTLOC2
i

1 INCREMENT TEST NUMBER
;POINT R4 TO RAM
sSETUP EXPECTED STATUS
1SET BUFFER FOR RECEIVED STATUS
1SETUP TRAP VECTOR
soTEST INSTRUCTION
s1oTEST INSTRUCTION

434
FPPERR

tVERIFY R4
$BRANCH IF GOOD
1ALL ERRORS TO TRAP TO EMT VECTOR
1UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

R1,0RECST.2
24

1BRANCH IF GOOD

iVERIFY R1

GLOBAL AREAS
KDJ11A.MAC
5927
5928
5929
5930
5931
5932

5933

5934
5935
5936
5937
5938

5939
5940
5941
5942

5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954

5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982

030550
030552
030554

MACY1l

15-MAR-84

30A(1052)

15:51

15-MAR -84

175

16:58
PAGE 113
TEST LDFPS, STFPS MODE 2

104000
000435
002013

ERROR

. WORD

023727
001412
104000
000436
002013

001116

030574

000167

000012

030600
030602
030604
030606
030610

012600
012605
104000
000437
002013

145557

2%:

sALL ERRORS TO TRAP

435

.WORD

030556
030564
030566
030570
030572

SEQ 0113

FPPERR

CMP
BEQ
ERROR
.WORD
.WORD

436
FPPERR

JMP

MOV
ERROR
.WORD
.WORD

(SP)+,RS

BORECST, 2145557
33

8AD A1

030612

3s:

030612

MLS3:

TO EMT

VECTOR

1+ADDRESS OF ERROR MESSAGE

sVERIFY STATUS
1BRANCH F GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
1BAD STATUS\
iGET OVER TRAP

tUNEXPECTED TRAP
108:
MOV
(SP)+,R0O
437
FPPERR

sUNIQUE ERROR NUMBER

s SAVE PC

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

sUNEXPECTED TRAP

3000000000000 00000000000008000000000000000000000088008883080088

:1«TEST 76

030612
030612
030616
030622
030630
030636
030642
030650
030656
030660
030662
030666
030670
030672
030674
030676
030702

TEST LDFPS, STFPS MODE 3

110000000000000000000000000000000000000000000000000000602000808888

005267
012704
012737
012737
012701
012737
012737
170134
170231
020427
001403
104000

1ST76:

150166

001136

INC

$TESTN

MOV

s INCREMENT TEST NUMBER

STSTLOC, R4

001142
147501

001136
001142

MOV
MOV

001116

001146

MOV

ORECST,80TSTLOC+10

RA,OTSTLOC2

001146

030734

MOV

000244

MOV
LODFPS
STFPS

001140

002013

001150

030704
030706
030710

020127
001403
104000
000441
002013

030712
030720
030722
030724
030726

023727
001412
104000
000442
002013

001116

030730

000167

000012

030734

012600

1s:

147501

2%:

OTSTLOC+4,80TSTLOC
0147501.80TSTLOC .4

OTSTLOC+10,R1

s TSTLOC= DEFERRED ADDRESS
sSETUP EXPECTED STATUS
sR1 POINTS TO TSTLOC.10

2108 ,80FPVeC
B(R4).
8(R1)»

1SETUP TRAP VECTOR
:oTEST INSTRUCTION
soTEST INSTRUCTION

$+SET DEFERRED BUFFER FOR RECEIVED STATUS

sVERIFY Ra

BEQ
ERROR
LHORD
.WORD

440
FPPERR

sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRZSS OF ERROR MESSAGE

R1.0TSTLOC.12

sVERIFY R1

BEQ
ERROR
WORD
LHORD

441
FPPERR

SORECST, 9147501

.WORD
LWORD

442
FPPERR

JMP

MOV

(SP)+ ,RO

B8EQ
ERROR

sUNEXPECTED TRAP

10%;

;POINT R4 TO RAM

1BAD

1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
" 1ADDRESS OF ERROR MESSAGE
iVERIFY STATUS

1BRANCH F GOOD
tALL ERRORS TO TRAP TO EMT VECTOR

1UNIQUE ERROR NUMBER
*lDOIESS OF ERROR MESSAGE

1BAD STATUS\

1GET OVER TRAP

1SAVE PC

GLOBAL AREAS
KDJ11A.MAC
5983
030736
5984
030740
5985
030742
5986
030744
5987
5988
030746
5989
5990
5991
030746
5992
5993
5994
5995
030746
5996
030746
5997
030752
030756
5998
5999
030764
6000
030770
6001
030776
6002
031000
6003
031002
6004
031006
6005
031010
6006
031012
6007
031014
6008
6009
031016
6010
031022
6011
031024
6012
031026
6013
031030
6014
6015
031032
6016
031040
6017
031042
6018
031044
6019
031046
6020
6021
031050
6022
6023
031054
6024
031056
6025
031060
6C26
031062
6027
031064
6028
6029
031066
6030
6031
6032
031066
6033
6034
6035
6036
031066
6037
031066
6038
031072

IS-HER-G4 15:%1 2)
MACY11l

30A(105

15-MAR -

K9
6:58

%6 0 38s PPA0BFet a s rrps MoDE 3
MOV
ERROR

012605
104000

000443
002013

.WORD
‘WORD

5eQ o114

(SP)+ RS

1 SAVE PS
1ALL ERRORS TO TRAP TO EMT VECTOR

443
FPPERR

JUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

JUNEXPECTED TRAP

3s:
MLSY:

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

14TEST 77

TEST LOFPS,

‘.““

STFPS MODE 4

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

0052¢€7
012704
012737
012701
012737
170144
170241
020427
001403
104000

150032
001140
147757
001120
031054

1ST77:

001136
000244

002013

001116

023727

001116

001412
104000

18:

147757 28:

$TESTN
#TSTLOC+2,R4
0147757,88TSTLOC
ORECST+2,R1
0108 , BOFPVEC

STFPS

-(R1)

000012

012600
012605
104000
000447
002013

s INCREMENT TEST NUMBER
;POINT R4 TO RAM
s TSTLOC= STATUS ADDRESS
sSET BUFFER FOR RECEIVED STATUS
1SETUP TRAP VECTOR

-CR4)

cMe
BEQ
ERROR

R4,0TSTLOC

.MORD
'WORD

444
FPPERR

e
BEQ
ERROR

R1,ORECST
2s

.MORD
'MORD

445
FPPERR

cve
BEQ

SORECST, 0147757
3

LMORD
'MORD

446
FPPERR

JHP

MOV
ERROR

(SP)+.RS

ERROR

002013
000167

INC
MOV
MOV
MOV
MOV

LOFPS

001136

020127
001403
104000
000445
002013

““‘

;¢TEST INSTRUCTION

18TEST INSTRUCTION

sVERIFY R4
sBRANCH IF GOOD
;ALL ERRORS TO TRAP TO EMT VECTOR

;UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

]

JUNIQUE ERROR NUMBER
R ;ADDRESS OF ERROR MESSAGE
1

447
FPPERR

IVERIFY STATUS
;BRANCH F GOOD

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

1BAD STATUS\

:GET OVER TRAP

;UNEXPECTED TRAP
108:
MOV
(SP)+,RO
.MORD
'MORD

sVERIFY R1
sBRANCH IF GOOD
;ALL ERRORS TO TRAP TC EMT VECTOR

1SAVE PC

1SAVE PS
;ALL ERRORS TO TRAP TO EMT VECTOR

$UNEXPEC

{UNIQUE ERROR NUMBER
&ngoaess OF ERROR MESSAGE

TRAP

MLSS:
] |“......“‘.““.‘..‘..‘.....‘.‘......‘.“..“..‘.‘...‘...‘..0.

;#TEST 100

TEST LOFPS, STFPS MODE S

H |“‘.“‘.“.“..“..“....‘..‘.“...‘..‘..“‘..‘..‘...“........

005267
012704

147712
001140

TST100;

INC

MOV

STESTN

0TSTLOC+2,R4

1 INCREMENT TEST NUMBER
tPOINT R4 TO RAM

GLOBAL AREAS
KDJ11A .MAC
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049

6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064

6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086

MACY11l

15-MAR-84 15:51

031076
031104
031112
031116
031124
031132
031134
031136
031142
031144
031146
031150

012737
012737
012701
012737
012737
170154

001142
147501
001150
001116
031210

020427
001403
104000
000450
002013

001136

031152
031156
031160
031162
031164

020127
001403
104000
000451
002013

001146

031166
031174
031176
031200
031202

023727

001412
104000
000452
002013

001116

031204

000167

031210
031212
031214
031216
031220

012600
012605
104000
000453
002013

170251

15-MAR-84

T100

16:58

001136
001142
001146
000244

PAGE 115

TEST LDFPS,

147501 28:

s TSTLOC= DEFERRED ADDRESS
1SETUP EXPECTED STATUS
sR1 POINTS TO 412
1SET DEFERRED BUFFER FOR RECEIVED STATUS
1SETUP TRAP VECTOR

cCMP
8EQ

R4 ,0TSTLOC
18

sVERIFY R4
1BRANCH IF GOOD

.WORD
'WORD

450
FPPERR

cHP
ERROR

R1,0TSTLOC+10

®-(R4)
®-(R1)

8EQ

451
FPPERR

cHe
BEQ

SORECST, 0147501
38

.MORD
'WORD

452
FPPERR

JMP

JUNEXPECTED TRAP

108:

031222

MOV

MOV
ERROR
LMORD
'MORD

{UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

{VERIFY R1
sALL ERRORS TO TRAP TO EMT VECTOR
1BRANCH IF GOOD
b
H

sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

JVERIFY STATUS
:BRANCH F GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE

sBAD STATUS\

:GET OVER TRAP

(SP)+,RO

1SAVE PC

(SP)+.RS
453
FPPERR

14TEST INSTRUCTION
1#TEST INSTRUCTION

1ALL ERRORS TO TRAP TO EMT VECTOR

LMORD
.WORD

ERROR

000012

SEQ 0115

STFPS MODE S

OTSTLOC+4,80TSTLOC
0147501, 80TSTLOC +4
0TSTLOC+12,R1
ORECST,®0TSTLOC+10
0104 , 9OFPVEC

LOFPS
STFPS

18:

MOV
MOV
MOV
MOV
MOV

ERROR

031222

:SAVE PS
sALL ERRORS TO TRAP TO EMT VECTOR

sUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE

{UNEXPECTED TRAP

MLS6:
3 .‘.....O“.‘.O‘.““..‘..".‘.“."..‘.‘...‘.‘..O.‘..‘...“.....

;#TEST 101

TEST LDFPS, STFPS MODE 6

3 ..“‘“0““‘.‘.“.“..‘.““"..‘.0.‘."...‘.‘0.“‘..“‘.0.0.0‘

6067
6088
6089
6090
6091

031222
031222
031226
031232
031240
031244
031252
031256
031262
031266
031270
031272
031274

001403
104000
000454
002013

6094

031276
031302

020127
001403

6092
6093

30A(1052)

005267
012704
012737
012701
012737

170164
170261
020427

147556
001136
140001

031334

TST101:

001142
000244

177700
001136

001246

INC
MOV
MOV
MOV
MOV

+INCREMENT TEST NUMBER
:POINT R4 TO RAM
1SETUP EXPECTED STATUS
tR1 WILL POINT TO TESTLOC.10
:SETUP TRAP VECTOR

-100(R1)

{VERIFY R4
1BRANCH IF GOOD
1ALL ERRORS TO TRAP TO EMT VECTOR

LOFPS

4(R4)

cHP
BEQ
ERROR

R4, 0TSTLOC
18

STFPS

18;

$TESTN
#TSTLOC, R4
0140001 .80TSTLOC+4
@TSTLOC+110,R1
0108 ,DOFPVEC

.WORD
'WORD

454
FPPERR

cMP
BEQ

R1,0TSTLOC+110
2

;4TEST INSTRUCTION

1#TEST INSTRUCTION

{UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

{VERIFY R1
1BRANCH IF GOOD

GLOBAL
A

ACS 15 MAR Ba 98040520 15-MARGES, 16:30.
POBFeL Sstres MosE 6

SEQ 0116

KDJ11A.MA

6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133

6134
6135
6136
6137
6138
6139
6140
6141
6142
6142
ol44
6145
6146
6147
6148
6149
615¢C

031304
031306
031310

104000
000455
002013

031312
031320
031322
031324
031326

023727
001412
104000
000456
002013

031330

000167

031334
031336
031340
031342
031344

012600
012605
104000
000457
002013

ERROR

WORD

001146

140001

2%:

455

FPPERR

cMP

OOTSTLOC01°.0140001

BEQ
ERROR

3s:

031346

MLS7:

s VERIFY STATUS

JBRANCH F GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

456

"WORD

FPPERR

JMP

MOV

JUNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

/BAD STATUS\

1GET OVER TRAP

(SP)+,RO

sSAVE PC

(SP)+.RS

ERROR
.WORD
‘WORD

031346

8Ap py ‘MODRESS OF ERROR MESSAGE

{UNEXPECTED TRAP

108:

JUNIQUE ERROR NUMBER

.WORD

JWORD

000012

sALL ERRORS TO TRAP TO EMT VECTOR

457
FPPERR

1SAVE PS

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

JUNEXPECTED TRAP

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

1oTEST 102

TEST LOFPS, STFPS MODE 7

118880 a‘.“.‘.“.‘.““““‘.‘.‘“““.‘.‘.“.“‘.‘..“.‘0‘...‘0

031346
031346
031352
031356
031364
031372
031376
031404
031412
0314:6
031422
031426
031430
031432
031434

002013

031436
031442
031444
031446
031450

020127
001403
104000
000461
002013

031452
031460
031462
031464
031466

023727
001412
104000

031470

000167

031474

012600

005267
012704
012737
012737
012701
012737
012737
170174

170271
020427
001403

147432
001236

001142
145501
001046
001146
031474

177700
000072
001236

TST102:

001136
001142
001140
000244

MOV
MOV
MOV
MOV
MOV

104000

001046

INC
MOV

18:

145501

28:

002013

000012

:TSTLOC= DEFERRED ADDRESS
sSETUP EXPECTED STATUS
sR1 POINTS TO TSTLOC+10
3
:SETUP TRAP VECTOR

{UNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

8-100(R4)
§72(R1)
R4, #TSTLOC+100
18

LMORD
'MORD

460
FPPERR

o
8EQ
ERROR

R1,0TSTLOC-70
2
461

CMP

BOTSTLOC+10,0145501

FPPERR

34TEST INSTRUCTION
14TEST INSTRUCTION
IVERIFY R4
:BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

IVERIFY R1
:BRANCH IF GOOD
+ALL ERRORS TO TRAP TO EMT VECTOR

JMORD

IUNIQUE ERROR NUMBER

orD A1 ;ADDRESS OF ERROR MESSAGE

IVERIFY STATUS

BEQ
ERROR
LMORD
"WORD
JMP

FPPERR
38

1BRANCH
F GOOD
1ALL ERRORS TO TRAP TO EMT VECTOR
{UNIQUE ERROR NUMBER
L su*mss OF ERROR MESSAGE
[
{GET OVER TRAP

MOV

(SP)+,RO

1SAVE PC

462

JUNEXPECTED TRAP

10%:

s INCREMENT TEST NUMBER
;POINT R4 TO RAM

OTSTLOC+4,98TSTLGC
0145501, 80TSTLOC +4
#TSTLOC-70,R1
otsn.ocozo.utsnocoa
0108, BOFPVE

LDFPS
STFPS
ce
BEQ
ERROR

.WORD

001146

$TESTN
oTSTLOC+100,R4

GLOBAL

AREAS

KDJ11A.MAC
6151

6152

6153
6154
6155
6156
6157
6158
6159
6160

MACY1l

15-MAR 84 15 85

031476

012605

031502
031504

000463
002013

031500

30AC1052)

15-MAR-84

6167

6168

6169

6170
6171
6172
6173
6174
6175
6176

6177
6178
6179

031506

38:

031506

MLDC2:

031506

031506
031512
031514

005267
005001
012704

007700

031522

012737

031562

031520

031530

031532
031534
031536
031540
031542
031546
031550

031552
031554

170104

177027

005201
005201
005201
005201
020127
001412
104000

6185

031572

002013

031570

031574
031600
031604
031606

012704
012701
174011
004767

6192
6193

0©31616
031620

001403
104000

6194
6195

6196

6197
6198
6199
6200
6201
6202

031622
031624

6206

(SP)+,RS

JWORD
'WORD

463
FPPERR

SAVE PS

JALL ERRORS TO TRAP 0 EMT VECTOR

JUNIQUE ERROR NUMBER
sADDRESS OF ERROR MZSSAGE
JUNEXPECTED TRAP

103

TEST LOCLD MODE 27

INC
CLR
MOV

$ (ESTN
R1
97700,R4

000012

005767

LOFPS

LOCLD

CR7)+,ACO

MOV

000003

R1
R1
R1
Rl
R1,03
14

JWORD
.MORD

464
FPPERR

JMP
MOV
MOV
ERROR

13
(SP)+,RO
(SP)+.RS

BEQ
ERROR

108:

LMORD

001266
0013126

18:

150334

147222

000466
002013

OTABGA,R4
SRECDST,R1
ACO,(R1)
R7,DATVER

BEQ
ERROR

LWORD
'WORD

;

sSETUP WILD TRAP

s#TEST INSTRUCTION

:
;
;
;
s VERIFY
sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
;ADDRESS OF ERROR MESSAGE
S INSTRUCTION FAILED

;JUMP OVER WILD TRAP
1SAVE PC
sSAVE PS
JALL ERRORS TO TRAP TO EMT VECTOR

465

MOV
MOV
STD
JSR
ST

s INCREMENT TEST NUMBER
JINIT R1
iFPS=DOUBLE, LONG

0108 , 9OFPVEC

INC
INC
INC
INC
cHe

-WORD

{UNIQUE ERROR NUMBER

;ADDRESS OF ERROR MESSAGE

JMILD TRAP ON INSTRUCTION

sPOINT TO exwecreo DATA
+POINT TO DATA BUFFER
sVERIFY DATA
;

COUNT

466
FPPERR

am IF GOOD DATA
ALL ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
:ADDRESS OF ERROR MESSAGE

1BAD DATA

031626

28:

031626

MLCF:
3 .““..‘.....“‘.‘.“.‘...‘...‘.‘....‘.‘“‘...“‘.‘...‘..‘.....‘

6203
620‘
6205

000244

000465

6187
6188
6189
6190

031612

TST103:

147272

000464
002013

000167
012600
012605
104000

6191

MOV

e 0117

3 |.‘.‘.“.“‘“.“...".“.““‘.‘.‘..“““‘.“..".““‘.““..

031556
031562
031564
031566

6186

117

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

14TEST

6180
6181
6182
6183
6184

PAGE

EST LOFPSL STFPS MODE 7

ERROR

6162

6163

16:58

104000

6161

6164
6165
6166

1102

;#TEST 104

031626

005267

147152

TEST LOCIF, LOCLF

] ".."..‘“‘..‘.‘.‘.‘..‘.““‘.‘..‘.‘.““.‘...“‘......‘.‘.“‘.
TST104:

INC

$TESTN

1 INCREMENT TEST NUMBER

000440

031712
031716
031722
031726
031730

004767
040000
043600
000017
000000

031732
031736
031742
031746
031750

004767
000000
040200
000117
000100

+37LONG=0

JSR

147 INT =40000
JSR

'7lm'lo

004767
140000
143600
000007

000010

387INT=.

004767

177777

140200
000007
000010

004767
125252

143652
000007

000300
125252
126000

=P
$97INT

000010

004767

000260

1 107LONG

100

TEST

IRESUWLT
1+ TEST FPS
tRESUWLT FPS
100 TEST

TEST FPS

tRESULT FPS

R7,LCFSUB

DO TEST

0,0
0,0

100
104

R7,LCFSUB
40000,0

TEST

s TEST FPS
tRESWLT FPS
100 TEST
sFSRC
sRESULT
s TEST FPS
sRESULT FPS

16/ INT =P,

1FSRC

1S/LONG=

SEQ 0118

1FSRC
JRESULT

43600,0
17

031752
031756
031762
031766
031770
031772
031776

004767
000000
000000
000100
000104

3333

031672
031676
031702
031706
031710

0,0

. WORD

ey 2 TR2 i

6262

000460
177777
000000

R7,LCFSUB

$FSRC

100 TESTY

sRESWLT
s

TESY FPS

sRESWLT FPS
sFSRC

100 TEST
RESWLTY

s TESY "S

sRESULT FPS

sFSRC

100 TEST

sRESWUL T
s+ TESY FPS
IRESWLT FPS

6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261

004767
000000
000000
007440
007444

JSR
. WORD
.WORD
. WORD
.WORD
127INT=0-1
,
JSR

6240
6241
6242
6243
6244
6245
6246
6247
6248

031652
031656
031662
031666
031670

117INT=0

6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239

000500
00000
€3C000

16:58
P AGE 118
11
TEST LDCIF, LDCLF

[
1

6220
6221
6222

031642
031646
031650

004767
000000
000622
000000
000004

031632
031636

15-MAR-84 (5:51

DLV
15-MAR-84
T104

6217
6218
6219

3DA(1052)

R7,LCFSUB

128252, 125252

143652, 126000

6207
6208
6209
6210
6211
6212
6213
6214
6215
6216

MACY11l

AREAS
KDJ1.1A
MAC

G 8

GLOBAL

10
R7,LCFSUB

100 TESTY
F RC
1FS
sRESWLY
s+ TEST FPS

tRESULT FPS

100 TEST

KDUTTA.MAC> 15"ARR!84 8(4052) 15 MAR;4, 16:98¢ PRBE1A1%
peyr
6263
6264

6265
6266
6267
6268
6269
6270
6271
6272
6273
6274

6275

6276
6277

6278
6279

032056
032062
032066
032070

000100

032072
032076
032102
032106
032110

004767
000000
040200
007557
007540

000240
000001

032112
032116
032122
032126
032130

004767
000000
042052
007557
007540

000220

032132
032136
032142
032146
032150

004767
140000
147600
000107
000110

032152
032156
032162
032166
032170

004767
177777
140200
007500
007510

000160
1777727
000000

004767
125252

000140

040000

047600
000117

000000
000000

032172
032176
032202
032206
032210

000105
000110

032212
032216
032222
032226
032230

004767
077177
047777
000117
000100

000120
177500
177777

032232
032236
032242
032246
032250

004767
040000

047600
007502
007500

000100
000100
0C0001

032252
032256
032262
032266
032270

004767
040000
047600
007557
007540

000060
000100
000000

032272
032276
032302

004767
100000
144000

000040

147652

125252
125253

‘WORD

47600.8

100

.WORD

CiV

117

1117LONG=1
JSR
R7,LCFSUB
.WORD
0,1
.WORD
40200,0
7557
.MORD
.WORD
7540
1127LONG=PATTERN
SR
R7,LCFSUB
.WORC
0,252
.HORD
42052,0
.MWORD
7557
.WORD
7540

LWORD
.MORD
'MORD
'WORD

-40000,0
147600.0
107
110

JSR

R7,LCFSUB

1 147LONG=-1

LWORD
.MORD
- WORD
JMORD

-1.-1
140200,0

+15/LONG*PATTERN

7510

JSR

R7,LCFSUB

MORD
JMORD

147652.125253
105

JSR

R7,LCFSUB

LWORD

125252,125252

JMORD
110
116/LONG=77777,177500

"WORD

40000, 100

JMORD
47600.1
JWORD
7502
.MORD
7500
+ 18/LONG*40000,
100 - TRUNCATE

JSR

éSULT

| TEST FPS
tRESULT FPS

1FSRC
tRESULT

R7,LCFSUB

LWORD
"WORD
JWORD
.MORD

40000, 100
47600.0
7557
7540

JSR

R7,LCFSUB

119/INT= MOST NEGATIVE

1DO TEST

TEST FPS

tRESULT FPS

1FSRC
tRESULT

D0 TEST

TEST FPS

tRESULT FPS

1DO TEST
1FSRC
sRESULT
s TEST FPS
sRESULT FPS

1FSRC

100 TEST

IRESULT
s TEST FPS
sRESULT FPS
sDO TEST

1FSRC
sRESULTY
3 TEST FPS
IRESULT FPS

100 TESTY
+F SRC

77777,177500

MORD
A7777.177777
JMORD
117
JMORD
100
mam.‘-gooo.:gg N

LWORD

SEQ 0119

‘RESUL!

3 TESY FPS

sRESWLT FPS
;D0 TEST

sRESWLY

sFSRC

TEST FPS

sRESULT FPS

GLOBAL AREAS
KDJ11A.MAC

6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331

6332
6333
6334
6335
6336
6337
5338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374

MACY11l

15-MAR-84

032306
032310

000007
000010

032312
032316
032322
032326
032330

004767
100000
150000
000107
000110

30A(1052)

15:51

000020

15-MAR-84

T104

16:58

PAGE

(S
W V)

120

TEST LDCIF,

.WORD
.WORD

7
10

1 _TEST FPS
tRESULT FPS

JSR
.WORD
.WORD
.WORD
.WORD

R7,LCFSUB
100000,0
150000,0
107
110

1D0 TEST
1FSRC
JRESULT
1 _TEST FPS
IRESULT FPS

JMP

HOP18

1GET OVER SUBROUTINE

120/LONG= MOST NEGATIVE

032332

000167

000126

SEQ 0120

LDCLF

jeXaXaXaXaXa
X0 X0 XaXOXOXOXO
XoXa
XOXXXAXOXE
XaXa
XEXEXOXoX0
Xo
X

jeXaXaXaXaXeXaX
X0 X0aXaXa
XXX X0XOXO
XaXoX
XX XX XX
aXa
0X0X

:LOCIF, LDCLF
:

FSRC

RESWLT
FPS BEFORE EXECUTION

FPS AFTER EXECUTION

iNO TRAP CAN OCCUR

ieXeXaXaXaXo
X0XaXaXo
X0 X0 X0 X0 XA X0 X0
XoX0X0
XXX X0XX0X0X
Xe
X

032336
032340
032346
032352
032356
032360

012602
012737
012701
016200
170100
010204

032362

177014

032364
032366
032372

170203
012700
170100
174011
016200
020003
001403

032374
032376

032404
032406
032410
032412

000467
002013

032414
032416
032422
032426
032432
032434
032436
032440

010204
062704
004767
005767
001403
104000
000470
002013

jeXaXaXaXaXa
X0XaXa
X0 X0Xa X0 XXX
XoXa
X0 XXX
XoXa
X0 XaX0X0X
Xo
H

032446
001126
000010

LCFSUB: MOV

408:

SOFPVEC
césr Rl
10(R2),RO
RO
R2,R4
CR4).ACO

MoV
LOFPS
STD
MOV
e
8EQ

STFPS

9200,R0
RO
ACO,(R1)
12(R2),R0
RO,R3
38

JMORD
'WORD

467
FPPERR

MOV
ADD
JSR

R2,R4
04.R4
R7.DATVFR

BEQ
ERROR

IVERIFY STATUS

28:

000012

ERROR

147502
146406

3s:
as:

(sno.az

MOV
MOV
MOV
LOFPS
MOV
LOCIF

TST

,MORD
"WORD

+ RETURN ADDRESS TO USE AS POINTER

;REDIRECT TRAP VECTOR
sPOINT TO RESULT AREA
i:GET TEST FPS
;LOAD TEST FPS
sPOINT TO TEST DATA

s#TEST INSTRUCTION (ACCORDING TO MODE)

1SAVE FPS

i1SET FPP STATUS TO DOUBLE
[
:SAVE TEST RESULT INTO RECDST
1GET EXPECTED STATUS
{VERIFY STATUS
{BRANCH IF GOOD

l-|. ERRORS TO TRAP TO EMT VECTOR

JUNIQUE ERROR NUMBER
rpg! AODRESS OF ERROR MESSAGE

COUNT

470
FPPERR

+POINT TO EXPECTED DATA
\VERIFY DATA

1BRANCH IF GOOD
1ALL ERRORS TO TRAP TQ EMT VECTOR

1BAD ACO

1UNIQUE ERROR NUMBER
1ADDRESS
OF ERROR MESSAGE

GLOBAL

AREAS
KDJ1.1A
MAC

6375
6376
6377
6378
6379
6380
6381
6382
€383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406
6407
6408
6409
6410
6411
6412
6413
6414
6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430

032442

MACY11l 30“?%252)
15-MAR-84 15
000162

000014

IS-HAnga.

lb:?gsrPCSE

Ss:

JMP

1}21L0CLF

SEQ 0121

14(R2)

tRETURN FROM TEST

032446
032450
032452
032454
032456

012600,
012605
104000
000471
002013

032460
032464

000167

1 INSTRUCTION TRAPPED

S0$:

177756

032464

MOV
MOV
ERROR
.WORD
.WORD

(SP)+,R0O
(SP)+,RS

471
FPPERR
Ss

HOP18:

1 SAVE PC
;SAVE PS
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
;1ADDRESS OF ERROR MESSAGE

IINSTRUCTION WASNT SUPPOSE TO TRAP
s CONTINVE

MLCD:
P10 000000000000000000000000000000000000000000000000800088

loTEST 105
032464
032464
032470
032474
032500
032506
032510
032512

0800048

TEST LOCID, LDCLD

1108200300 000000000000000000000000000000000000000000000000080888

005267

146314

004767
000000
000000
000000

000264
000000
000000

007313
007304
004767
000000
040200

000280
000001
000000

007757
004767

8‘000003600

000214

177777

000000

007617
007600
004767
140000

000170
177777

007600
007610
004767
040000

047600

000144
000000

000000

007757
007740
204767

000000

000120

000001

$TESTN

s INCREMENT

JSR
.WORD
.WORD

R7,LCOSLVB
0,0
0,0,0,0

1FSRC
sRESULT

.MORD
.MORD

7313
7304

3 TEST FPS
tRESULT FPS

JSR
.WORD
.WORD

R7.LCDSLB
0,1
40200,0,0,0

sFSRC

327INT=0

.MORD

007740

040000

TS7105:
IADS gnc

.WORD
+ 37INT=40000
JSR

7757

7740

300 TESTY

1D0 TEST
sRESULY

3 TEST FPS

tRESUILT FPS

R7,LCOSUB

.oo TESTY

LMORD

40000,
-1

LMORD
.MORD

7617
7600

JSR
.WORD

R7,.LCDSUB
-80000, -1

.MORD
LWORD

7600
7610

s TEST FPS
sRESULTY FPS

JSR
.WORD

R7,LCOSUB
40000,0

1FSRC

.WORD
.MORD

7757
7740

3 TEST FPS
iRESULT FPS

JSR

R7,LCOSUB

.WORD

;‘Imf'-m

+S/LONG=40000

. WORD

$6/LONG=1

. WORD

sFSRC

43600,0,0,0

47600 0 0,0

0.1

:&Slkt

s+ YEST FPS
sRESULT FPS
;D0 TEST
sFSRC

1FSRC

;D0 TEST

sRESULTY

100 TEST

TEST NUMBER

GLOBAL AREAS
KDJ11A, MAC
6431
6432

6433
6434
6435
5436
6437
€438
6439

6440
6441
6442
6443

6444
6445
6446
6447
6448
6449
6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460

MACY11

15-MAR-84

[ AV

30A

032644
032652
032654
032656

040200
000000
000300

000000

032660

004767

000074
177776

000000

000300

032664
032670
032676
032700
032702

177777
140400
000000
007300
007310

032704
032710
032714
032722
032724
032726

004767
000000
000200
000210

032730
032734
032740
032746
032750
032752

004767
125252
147652
000000
000300
000310

123456
143661

40200,0,0,0

LWORD

.
+ 7/LONG-2
=
JSR

300
R7,LCOSUB
-1.-2

FSRC

.WORD
‘WORD
187INT=PATTERN

7300
7310

i TEST FPS
JRESULT FPS

000167

000126

.MORD

143661,122000,0,0

D0 TEST

LMORD
JMORD

200
210

JSR

R7,LCOSUB

JMORD

147652125252, 126000,0

LWORD

TEST FPS

123456, 176543

1FSRC

SRESULT

: TEST FPS
JRESULT FPS

:D0 TEST

125252, 125252

sFSRC

JRESULT

LMORD
'MORD

300
310

: TEST FPS
{RESULT FPS

HOP19

sGET OVER SUBROUTINE

032754

JRESULT FPS
D0 TEST

R7,LCOSUB

.WORD

126000

300

sRESULT

JSR

+9/LONG=PATTERN
125252
125252

SEQ 0122

.WORD

"WORD

000050
176543
122000

6461

6462
6463
6464
6465
6466
6467
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486

Y 16: %8s 1" 08E 18%° ocLo

jeXaXeXaXaXa
X0 XXX XXX
XaXa
X0 X0X0 XXX
XaXa
X0 X0 XEX0X
Xo
X

isXaXaXaXaXaXeXoXoXaXaXaXaXeXoXaXaXoXo
XXX X0 XoXoXoXeXo0XoX

;LDCID, LDCLD
:
3
B
3

FSRC
RESWLY

FPS BEFORE EXECUTION
FPS AFTER EXECUTION

sNO TRAP CAN OCCUR

jeXaXaXeXaXoXoXaXaXaXaXoXoXoXaXoXaXaXaXo
X0
XoXoXaXe
XoXoXOXOX
jeXeXaXoXaXaXeXsXoXoXaXoXaXoXaX2XaXoXaXoXoXoXoXaXoXoXo
XXX

032760
032762
032770
032774
033000
033002

012602
012737
012701
016200

033004

177014

170100
010204

033070
001126
000014

LCOSUB: MOV

HOV

408:

(SP)s.R2

0508 ,DOFPVEC

OV
MOV
LOFPS
MOV

ORECOST,R1
14(R2),RO
RO
R2,R4

+POINT TO RESULT AREA
1GET TEST FPS
1LOAD TEST FPS
{POINT TO TEST DATA

LOCID

(R4),ACO

1#TEST INSTRUCTION (ACCORDING TO MODE)

033006
033010
033014

170203
012700
170100

JVERIFY STATUS

000200

24;

+_RETURN ACORESS TO USE AS POINTER
{REDIRECT TRAP VECTOR

STFPS

LOFPS

MOV

9200,R0

1SAVE FPS

iSET FPP STATUS TO DOUBLE

GLOBAL AREAS
KDJ11A.MA

6487
6488
6489
6490

6491
6492

6493
64934
6495
6496
6497
6498
6499
6500

6501
6502
6503
6504
6505
6506
6507
6508
6509
6510

6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522

6523
6524
6525
6526
6527
6528
6529

6530
6531
6532
6533
€534
6535
6536

6537
6538
6539
6540
6541
6542

sTEERH BT

033016
033020
033024
033026
033030
033032
033034

174011
016200
020003
001403
104000
000472
002013

033036
033040
033044
033050
033054
033056
033060
033062

010204
062704
004767
005767
001403
104000
000473
002013

033064

000162

033070
033072
033074
033076
033100

012600
012605
104000
000474
002013

033102

000167

(CRRY)

1508, 1630PO
STD

000016

MOV
cHP

BEQ
ERROR
.WMORD
.WORD

147076
145764

472
FPPERR
R2,R4

qs:

JSR
TST

R7,DATVER
COUNT

50:

1SAVE TEST RESULT INTO RECDST
;GET EXPECTED STATUS
tVERIFY STATUS

16(R2),R0O
RO,R3

MOV

ADD

SEQ 0123

ACO,(R1)

3s:

BEQ
ERROR
.WORD

000020

1BAD FPS

04 R4

473
FPPERR

JMP

20(R2)

1BAD ACO

lINSTRUCTION TRAPPED

S08:

177756

MOV

(SP)+,RO

ERROR
LMORD
.WORD

474
FPPERR

JMP

MOV

(SP)+,RS

033106

HOP19:

033106

MLXP:

sPOINT TO EXPECTED DATA

sVERIFY DATA

.WORD

1BRANCH IF GOOD
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE

sBRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
sRETURN FROM TEST

$SAVE PC

s SAVE PS
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
sADDRESS OF ERROR MESSAGE
s INSTRUCTION WASNT SUPPOSE TO TRAP
s CONTINUE

$30080000000000000000000000000000000000000000000000000808008

L4TEST 106
033106
033106

080808808

EST LDEXP DOUBLE

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

005267

033112
033116
033122
033130
033132
033134
033142
033144
033146

123456
171717
000010
142056
171717
007757
007750

033150
033154
033160
033166
033170
033172
033200
033202
033204

005037
004767
023456
000001
000177
077656
000001
067700
007700

005037
004767

41106

145672

"IN

sTESTN

INCREMENT TEST NUMBER

17EXP=10 - ACSNEG
CLR
BOFLAG
JSR
R7.LXPSUB

001042
001140
067012
067012

MORD

N0 INTERRUPTS
100 TEST
123456,67012,25252,171717
:ACO

.WORD
‘WORD

EXP
1420%6,67012,25252
17171}
,

oRD

7737

WORD

2P
T
CLR

ACO PN
SOFLAG

SRESULT

: TEST FPS

IRESULT FPS

001042
001102
070123

100000

JSR
"WORD

070123

100000

LMORD
MORD

177
17656, 701283, 100080, 1

.MORD
"WORD

7700
7700

R7.LxPSUB
23456, 70128, 100000, 1

\NO INTERRUPTS
iD0 TEST

: TEST FPS
IRESULT FPS

+ACO

JRESWLT

GLOBAL AREAS
KDJ11A. MAC
6543
6544
6545
6546
6547
6548
6549
6550
6551
6552
6553
6554

6555
6556
6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572

6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589

6590
6591
6592
6593
6594
6595
6596
6597
6598

033206
033212
033216
033224

033226
033230
033236
033240
033242
033244
033250
033254
033262
033264
033266
033274
033276
033300

SRR 15 7986 " ng LD EPlsoueLE
-

005037
004767
055555
022222
000056
053555
022222
007757

044444

005037
004767

100077
177776
177623
104677
177776
007757
007750

007700
007700

033340
033346
033352
033360
033362
033364
033372
033374
033376
033400

012737
004767
030131
073031
177600
000131
073031
007740
107744
000012

033333
033333

. WORD
'WORD

56
tEXP
53555,44
33335
444,
22222

033402
033410
033414
033422
033424
033426
033434
033436
033440
033442

012737
004767
000000
000001
100000
040000

177777

MORD
'WORD

.WORD
"WORD
1SZEXP=-177
CLR
JSR
WORD

177777

000377

177777

MORD
7757
.WORD
7740
18/EXP=-151, ACOSUV
CLR'
BOFLAG
JSR
R7.LXPSUB

001042
001006
1777277

000001
000710
032334

032334

MORD

.MORD

200

SOFLAG
R7.LXPSUB
177,-1,-1,-2

sNO INTERRUPTS
100 TEST
1ACO

-177

JEXP

7700

: TEST FPS

1100

IRESULT FPS

et bLaG

035363

'WORD

181,32334,35363,
735031

MORD
'MORD

7740
107744

MOV

®1,80FLAG

000123

000456

000123

000456

001042

100000

: INTERRUPTS

RIL
100 TEST
30i31,32334,35363,
73031
JACO

2/EXPLARGEST NECATIVE
.

JRESULT

s TEST FPS
IRESULT FPS

JSR
MORD

001042

100000

oexpa

sNO INTERRUPTS
100 TEST

-155
JEXP
104677,-1,-1,-2

7757
7730

,RESULT

, TEST FPS
tRESULT FPS

001042

102200
000012

012737
004767
111111

SEQ 0124

8OFLAG
tNO INTERRUPTS
R7.LXPSUB
100 TEST
55555,4444
33333, 22222
4,
1ACO

001042
000750

177776

MLV

CLR
JSR
"WORD

005037
004767
000177

177776
177601

1 3/EXP =56

007740

033302
033306
033312
033320
033322
033324
033332
033334
033336

033444
033452
033456

001042
001044
044444

JRESULT

: TEST FPS
IRESULT FPS

JEXPECT INTERRUPTS

JSR

RT.LXPSUB

i00 TEST

.MORD
'MORD

100000
JEXP
40000,128.456,1

JRESWLT

JMORD
'WORD

2200
102200

MOV'

@1,BOFLAG

8/EXP=-300, NEG--ACO
JSR
WORD

: TEST FPS
IRESULT FPS

+ INTERRUPTS

R7.LXPSUB
100 TEST
111i111,100000,100000,
-1
+ACO

GLOBAL

AREAS

MACY1l

6599
6600
6601
6602
6603
6604
6605

033464
033466
033470
033476
033500
033502
033504

177777
177600
100111
177777
002217
102214
000012

6607
6608

033506
033514

012737
004767

6610
6611
6612
6613
6614
6615
5516

033526
033530
033532
033540
033542
033548
033546

000123
176035
000000
000000
005700
005704
000012

6618
6619

033550
033556

012737
004767

30A(1052)

KDJ11A.MAC ~ 15-MAR
84 1555

6606

100000

15-MAR-84

i10e

100000

000002
000542

001042

000000

6609 033520 123456 012346 012346

0617
6620
6621
6622
6623
6624
6625
6626
6627

033562
033570
033572
033574
033602
033604
033606
033610

000377
000001
161162
074577
000001
047700
147700
000012

6629
6630

033612
033616

005037
004767

6632

033630

177777

6628

000002
000500

001042

123456

065432

123456

065432

033632
033638
033642
033648
033646

000177
177777
177777
007700
007710

6639
6640

033650
033658

005037
004767

6638

177777

001042
000802

177777

033660
033666
033670
033672
033700
033702
033708

000200
000300
000150
072000
000300
007717
007700

000100

000200

000100

000200

6649

033706

012737

000001

001042

6651
6652
6653
6658

033720
033726
033730
033732

177777
177777
000200
100177

177777

6650

033714

004767

000342

.WORD
.WORD

-200
1EXP
100111,100000,100000, -1

JMORD
'WORD
'WORD

2217
102214
12

MOV
JSR

92,80FLAG
LXPSUB

sRESULT

: TEST FPS
JRESULT FPS
{FEC

19/EXP=-1743, FIU=0

INO INTERRUPTS
100 TEST

. WORD

12&56 12346, 12346, 123

JMORD
'WORD

-1743
0,0,0,0

JEXP
JRESULT

LMORD
'MORD
MORD

5700
5704

: TEST FPS
IRESULT FPS

MOV
JSR

02, DOFLAG
R7.LXPSUB

JMORD
JWORD

-16616
JEXP
74577,123456,65432,
1

LMORD
'WORD
JMORD

47700
147700
12

CLR
JSR

uru\c

\MORD

sACO

JFEC

1107EXP =-16616, FID=1

377,123456,65432,1

sNO INTERRUPTS
;00 TEST
;ACO

SRESULT

: TEST FPS
JRESULT FPS
‘{Ec

iND INTERRUPTS
00 TEST

. WORD

106117.-1.3s-3

JMORD
MORD

177
-1,-1,-1,-1

JEXP

LMORD
'MORD

7700
7710

s TEST FPS
JRESULT FPS

CLR
JSR

SOFLAG
R7,LXPSUB

IND J%TERRUPT
100 TEST

:127EXP=150 ACO=POS

6641
6642
6643
6644
6645
6646
6647

6648

PAGE

‘23 DLk BousLe

1117EXP=177, ACOSUNDEFINED VARI

001042
000440

6631 033622 100177 177777 177777

6633
6634
6635
6636
6637

11V
16:58

.MORD

200,100,200,
300

:ACO

JRESULT

+ACO

LHORD
.WORD

150
JEXP
72000,100,200,
300

MORD
"WORD

7717
7700

113/EXP=200, ACO=NEG
MOV

JSR

JMORD

LMORD

.MORD

: TEST FPS
(RESULT FPS

o1, B0FLAG

R7.LXPSUB

;D0 TEST

-1,-1,-1,-1

200

100177,-1,-1,-1

JRESULT

1ACO
JEXP

{RESUL
T

0125

GLOBAL AREAS
KDJ11A.MAC
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664

6665

6666

6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697

6698

6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709

6710

033740
033742
033744
033746

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR -84

T106

177777
007705
107716
000010

126

'WORD

000002
000300
177777

001042

1777277

177776

034012
034020
034024
034032
034034

000000
000236
177777

001042

000000

034046
034050

012737
004767
177773
177775
011011
000000
000000
006700
006706

034052
034060
034064
034072
034074
034076
034104
034106
034110
034112

012737
004767
123456
000200
077777
137656
000200
007740
107752
000010

034114
034120
034124
034132
034134
034136
034144
034146
034150

005037
004767

000444
000050
152056
000444
007500
007510

034152
034160
034164
034172
034174
034176
034204
034206
034210

012737
004767
000333
000666
177600
000133
000666
007500
107504

1777%

177776

000001
000176
000100

000100

001042

000555

023465

000555

000001
000076

:114/EXP=400,

SEQ 2126

7708

107716
FID

TEST FPS

sRESULT FPS

JFEC

MOV
.
JSR
_WORD

+ INTERRUPT
100 TEST
1ACO

. WORD

400

tEXP

LMORD
. WORD
'WORD

47700
147702
10

MOV
JSR

00, BOFLAG
R7.LXPSUB

LMORD
.WORD

11011
0,0,0,0

11S/EXP=11011 FIU=0
JMORD

i TEST FPS
tRESULT FPS
JFEC

iNO INTERRUPT
;00 TEST

177773, -1,-2.-3

LMORD
6700
.MORD
6706
116/EXP=LARGEST POSITIVE

sACO

JEXP
JRESULT
:+ TEST FPS
JRESULT FPS

nov
JSR

n.umc

JMORD

77777

JEXP

7740
107752
10

: TEST FPS
IRESULT FPS
FEC

SFLAG

iNO INTERRUPT

. WORD uhss
100, 100, 200

MORD
LMORD
JMORD
.MORD
1 17/FLOATING
CLR

001042
000136
023465

J1U

EST LDEXP DOUBLE

. WORD

012737
004767
000555
177775
000400
040155
177775
047700
147702
000010

123456

PAGE

.WORD

033750
033756
033762
033770
033772
033774
034002
034004
034006
034010

034036
034044

16:58

+ INTERRUPT
:D0 TEST

:ACO

137656100, 100,200

JRESULT

JSR

R7,LXPSUB

LMORD
JMORD

SO
;EXP
152056,23465,555,444

JMORD

7500

000555

MOV
JSR
_WORD

01,90FLAG
R7.LXPSUB
sss.a« $55,666

1 INTERRUPT
:00 TEST
1ACO

000555

LMORD
'MORD

JEXP
133,444,555,666

JRESULT

LMORD
JWORD

7500
107504

001042

LHORD

123456,23465, 555,444

.MORD
7510
118/FLOATING UNDERFLOW

:D0 TEST

:ACO
JRESULT

s TEST FPS

JRESULY FPS

: TEST FPS
JRESULT FPS

GLOBAL AREAS
KDJ11A, MAC

6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724

6725

6726
6727
6728
6729
6730

MACY1l

IS-HSR-OO lS:gl

034212

000012

034214
034222
034226
034234
034236
034240
034246
034250
034252
034254

012737
004767
012346
000456
000400
040146
000456
007400
107402

30A(1052)

15, 15188r DSBS Bhumee
MAR
-

.WORD

000001
000034
000123

000345

000123

000345

001042

6756
6757
6758
6759
6760

6761

6762
6763
6764
6765
6766

000010

000167

iFEC

.WORD

12346.123.345.456

.WORD
.WORD

400
1EXP
40146,123,345, 456

+WORD
.WORD
.WORD

7400
107402
10

JMP

HOP20

034256

SEQ 0127

119/FLOATING OVERFLOW
MOV
01,80FLAG
JSR
R7,LXPSUB

000250

s INTERRUPT
100 TEST
;ACO
sRESULT

3 TEST FPS
tRESULT FPS
4FEC
iGET OVER SUBROUTINE

seXaXaXaXaXaXaXaXaXaXaXaXaX0XAXAXEXAXEXEXEXEXXX
EXEXEX
0X0X
jaXaXaXaXaXaXaXaXaXaXaXaXaXoXoXoXAXEXAXXAXEXEXAX
XX XeX0X

:LDEXP
H

ACO
EXPONENT
RESULT

6731

6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755

IN1LV

FPS BEFORE EXECUTION
FPS AFTER EXECUTION

(FEC)

saXaeaXaXaXaXeX
XXX X0 oXoXa
Xo X0 XaXoXeXaXaX
XaXaX
AXEX0 XXX
o
eXaXaXaXaXaXaXoXaXaX
X0 aXaXo
X0 XXX XoXoX0X
XoXoX
X0oX0
XoXEX

034262
034264
034272
034276

034304
034306
034310
034314
034316
034322
034324
034326

012602
012737
012701
012700
170100
010204
172414
016200
170100
016204

LXPSUB: MOV

034352
001126

000022

000010
H

176404
170327

408:

18:

(SP)+,R2

0508 , DOFPVEC
ORECDST,R1
0200 .RO
RO
R2,R4
(R4),ACO
22(R2).RO
RO
10(R2),R4

sREDIRECT TRAP VECTOR
sPOINT TO RESULT AREA
+SET FPS TO DOUBLE
3
:POINT TO ACO DATA
sLOAD ACO
1GET TEST FPS
;LOAD TEST FPS
sPOINT TO TEST DATA

LDEXP

R4,ACO

s4TEST INSTRUCTION (nccouon(; TO MODE)

LMORD

1STORE STATUS HERE

IST

(PG

034330
034336
034340
034342
034344

000475
002013

034346

000167

000042

034352
034360

032737
001005

000001

032737
001426

000001

001042

{INSTRUCTION DIDNT TRAP

BIT
8EQ
ERROR

01,90FLAG
24

.MORD
.MORD

475
FPPERR

s INSTRUCTION TRAPPED

500:

+ RETURN ADDRESS TO USE AS POINTER

MOV
MOV
MOV
LDFPS
MOV
LDD
MOV
LOFPS
MOV

BIT

#1,80FLAG

518

iMAIT FOR POSSIBLE FPA TRAP

{VERIFY A NO TRAP CONDITION
1BRANCH IF
1ALL ERRORS TO TRAP TO EMT VECTOR

uuu ERROR NUMBER
* SS OF ERROR MESSAGE

1 INSTRUCTION SHOULD HAVE TRAPPED

{REJOIN CODE

1SEE IF EXPECTING A TRAP
1BRANCH IF EXPECTING A TRAP

GLOBAL AREAS
KDJ11A.MAC

6783

6784

6785

6786

6787

6788
6789
6790
6791
6792
6793
6794
6795
6796
6797
6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815

6816
6817
7818
6819
6820
6821
6822

104000
000476
002013
000167
012604

005726
022704
001403
104000
000477
002013

000020

S1$:

034324

ERROR
. WORD
. WORD

476
FPPERR

JMP
MOV
TST

28
(SP)+,R4
(SP)+

BEQ
ERROR

cMP

.WORD
.WORD

L10O

o1% R4

034414
034416
034422
034424
034426
034432
034434
034436
034440
034442

034444
034446
034452
034456

170203

016200

2%:

000024

001403
104000
002013

034464
034466
034470

010204
062704
004767
005767
001403
104000
000501
002013

034472
034476
034500

005737
001002
000162

001042

034504
034510
034512
034516
034520
034522
034524

012704

001106

002013

03450

000162

170314
021462
001403
104000

tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

1ADDRESS OF ERROR MESSAGE

lINSTRUCTION WASNT SUPPOSE TO TRAP
+REJOIN CODE
1SEE IF PC = INSTRUCTION
lCLEAN UP STACK
IBRANCH IF GOOD COMPARE
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
s ADDRESS OF ERROR MESSAGE

1PC WAS INCORRECT

+COMMON CODE FOR TRAP AND NO TRAP
;VERIFY STATUS

012700

170100
174011

SEQ 0128

477

FPPERR

000012
145470
144356

3s:
48

STFPS

LOFPS
STD
MOV

#200,RO

RO,R3
33

500

TST

BEQ

FPPERR

:§2R;‘

1FPS=200

1GET RESULT
sGET EXPECTED STATUS

sVERIFY STATUS
:BRANCH IF GOOD

sALL ERRORS TO TRAP TO EMT VECTOR
sUNIGUE ERROR NUMBER

1BAD FPS

sVERIFY FEC

7%:

MOV

1BRANCH IF GOOD

lOFLAG

31BAD ACO

034532

HOP20:

034532

MSCD:

:SEE IF NEED TO CHECK FEC

s1BRANCH IF NEED TO CHECK
:flETURN FROM TEST

ORECFEC,R4
(R8)

;:POINT TO FEC AREA
$SAVE FEC

:BRANCH
IF GOOD

:VEflIFY FEC FOR OVERFLOMW

sALL ERRORS TO TRAP TO EMT VECTOR
iUNIQUE ERROR NUMBER

FPPERR

JMP

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

astaa)

502

8s:

sPOINT TO EXPECTED DATA
sVERIFY DATA

COUNT

(R4),26C(R2)

000030

sADDRESS OF ERROR MESSAGE

R7,DATVER

S01
Ss:

$SAVE FPS

1SETUP FPS

ACO,(R1)
24(R2),RO

g8d 58

6782

16:58_
PAGE 128
EST LDEXP DCUBLE

6779
6780
6781

034370
034374
034376
034400
034404
034406
024410
034412

15-MAR-84 15:51

15-MAR-84
T106

6769
6770
6771
6772
6773
6774
6775
6776
6777
6778

034362
034364
034366

30A(1052)

IwE

6767
6768

MACY11

30(R2)

1ADDRESS OF ERROR MESSAGE

BAD FEC

1RETURN }ROH TEST

$580404084000088048000800080000002000000000000080000000000000000002

s¢TEST 107

TEST STCOI,

STCOL

§50808808000800800008000000020000000080000000000000000000000000000

KbITIR.AAC"® 1s"M
B B(4052)
AR 15-MARGER, 16430 PAGELY s rco
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832
6853
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6369
6870
6871
6872
6873
6874
6875
6876
6877
6878

034532
034532

005267

144246

034536
034542
034546
034554
034556
034562
034564

005037
004767
000177
000000
000000
007640
007644

001042
000610
000000

034566
034572
034576
034604
034606
034612
034614

005037
004767

001042
000560
177777

034616
034622
034626
034634
034636
034642

100177
177777
000000
007700
007704

TST107:

iNO INTERRUPTS
:DO TEST

.WORD
.WORD
.WORD

0,-1
7640
7644

tRESULT
i+ TEST FPS
sRESULT FPS

0177,0,0,0

127/AC0=-0, LONG
CLR
80FLAG
JSR
R7,SCOSUB

.WORD

100177,-1,-1,-1

.WORD

0,0

.WORD

CLR

001042

000500
177777

075757

157737

173757

0,0

300

001000
007700
007700

sRESULT

3+ TEST FPS
sRESULT FPS

sNO INTERRUPT
;D0 TEST
sACO

sRESULT

s+ TEST FPS

sRESULT FPS

1 INTERRUPT

LMORD

0,0

sRESWLY

.WORD

7704

sRESULT FPS

7700

;D0 TEST

SOFL
1 INTERRUPT
R7,SCOSUB
ioo TEST
47667,75757,157737,16777

WORD
MORD
LMORD

S55675,173757
TM17
7700

CLR
JSR

SOFLAG

.WORD

sRESULT
;3 TEST FPS
tRESULT FPS

iNO INTERRUPT
;D0 TEST

R7,5CDSUB
1000.0

sRESUWLY

7700

sRESULT FPS

7700

;77/LONG, EXP>24432

MOV
JSR

21 ,80FLAG
R7,SCOSUB

.WORD

0,0

sACO

: TEST FPS

CLR
JSR
.WORD

.MORD
001042

;D0 TEST
sACO

140177,177777,1.1

:67LONG, EXP=2s232

005037
004767

s INTERRUPT

R7,SCOSUB

.MORD

+S7LONG

1ACO

JSR

.WORD

001042

1 INCREMENT TEST NUMBER

20000,0,0,0

.WMORD
304
147EXP=200, BAISED O, INT,

007700

012737
004767
077607

8OFLAG
R7,SC0OSUB

.HORD

007700
007704
005037
004767
047667
167773
055675
007717

CLR
JSR

.WORD
7700
. WORD
7704
137/EXP=100, LONG
CLR
BOFLAG
JSR
R7,SCOSUB

005037
004767
020000
000000
000000
000300
000304
005037
004767
140177
000001

$TESTN

.WORD

177777

SEQ 0129

INC

:11/AC0=0, INT

177777

MLO

3 TESTY FPS

1 INTERRUPT
100 TEST
tRESULT

sACO

GLOBAL AREAS
KDJ11A. MAC
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911

6912
6913

6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934

MACY1l

15-MAR-84

035004
035006

007700

035010
035014
035020
035026
035030
035034
035036

005037
004767
043200
000000
010000
007600
007600

012737
004767
077777
177777
000000
007600
107605

035072
035100
035104
035112
035114
035120
035122

012737
004767
043300
000000
000000
047700
047700

035124
035132
035136
035144
035146
035152
035154

012737
004767
143300
177777
177777
007300
007310

035156
035164
035170
035176
035200
035204
035206

012737
004767
050100
000000
000000
047700

035242
035246
035252
035260
035262

IS-HARiOO
107

107705

035040
035046
035052
035060
035062
035066
035070

035210
035216
035222
035230
035232
035236
035240

30A(1052)

187INT,

001042
000336
000000

177777

000001
000304
177777

001042

177777

001042

000220
177777

001042
177777

000002
000166
000000

001042

050377
177777

000000
007300
007305

000000

005037
004767

001042
000104
177777

000000

100200
177777

CLR

R7,SCDSUB
43200,0,0,0

.WORD
.WORD
.WORD

10000, -1
7600
7600

MOV
JSR
.WORD

@1 ,80FLAG
R7,SCDSUB
77?77,-1,-1,-1

EXP>2-015

LWORD
O,-1
.WORD
7600
.WORD
107605
:1107INT, EXP>22215, FID
gga
00 lOFLAG

. WORD

iooo 0,0

.WORD
.WORD
.WORD

0,14000
47700
47700

177777

+ TEST FPS
tRESULT FPS

i1NO INTERRUPTS
;D0 TEST
sACO

RESULT

» TEST FPS

{RESULT FPS

s INTERRUPT
;D0 TEST
;ACO
sRESULT
3+ TEST FPS
sRESULT FPS
sNO INTERRUPT
;D0 TEST

sACO
sRESULT
3 TEST FPS
sRESULT FPS

sNO INTERRUPT

;00 TEST
sACO

-1,163741

.WORD
.WORD

7300
7310

JSR

R7,SCOSUB

.WORD

0,0

WORD

147705

:127LONG, EXP>24832, FID
MOV
92,.80FLAG

50100,0,0.0

47700

:13/LONG, EXP>24432, FIC=0
MOV
JSR

.WORD

sRESULTY
:+ TEST FPS

;RESULT FPS

90,BFLAG
R7

iNO INTERRUPT
;D0 TEST
1ACO

S0377,-1,-1,-1

WORD
0,0
. WORD
7300
.WORD
7305
SICILONGé
EXP<0
SOFLAG

177777

SEQ 0130

USR
RY.ScOSS
. WORD hoo
=

.MORD

001042

80FLAG

JSR
. WORD

.WORD

000000

000000
000134
177777

197INT,

N1O

. WORD
7700
. WORD
107705
EXP=24415

.WORD

163741

147705

012737
004767

16:58
PAGE 130
TEST STCDI, STCDL

iRESULT
1 TEST FPS
(RESULT FPS

1NO INTERRUPTS
100 TEST
100200, -1,-1,-1
1ACO

R7,5C0OSuUB

0.0

;RESULT

GLOBAL

ARE AS
KDJ1.1A
MAC

6935

6936
6937
6938

6939
6940
6941

6942
6943

6944

6945
6946

6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989
6990

MACY1l

15-MAR-84 15:51

035266
035270

007757
007744

035272
035276
035302
035310
035312
035316
035320

005037
004767
037700

035322
035326
035332
035340
035342
035346

035350

L4
2
1

30A(1052)

177776
000000

007600
007604
005037
004767
004377
177777
000000
007600
007604

001042
000054

17272727

15 MMR -84
1107

1157INT,

177272727

.WORD
. WORD

7757
7744

1 _TEST FPS
tRESULT FPS

CLR
JSR

BOFLAG
R7,SCOSUB

37700,-1,-1,-2

tNO INTERRUPTS
100 TEST
sACO

. WORD
.WORD
.WORD

0,-1
7600
7604

JRESULT
1 TEST FPS
tRESWLT FP3

CLR
JSR

iNO INTERRUPTS

. WORD

80FLAG
R7,SCDOSUB
4377,-1,-1,-1

. WORD
.WORD
.WORD

0,-1
7600
7604

tRESULT
s TEST FPS
tRESULT FPS

JMP

HOP21

1GET OVER SUBROUT INE

EXP<O

. WORD

1777

001042
000024

16:58
PAGE 131
TEST STCDI, STCOL

1167INT, EXP~10
17777

177777

035352

000167

000244

sD0 TEST

sACO

teXeXaXaXaXaXeXaXaXoXoX0X0X0XOXOXOX
XXX XOXOXEXOX
OXOXOXO
0X

jeXaXeXaXoXa
X0 X0 XXX XaXe
XXX XoXo X0
XoXo
XoX0XoX0 X0Xa
XXX

1STCOI, STCOL, STCFI, STCFL
3

i
3
:

ACO
RESWLT
FPS BEFORE EXECUTION

FPS

(FEC)

AFTER

EXECUTION

:TRAP ON CONVERSION FAILURE

035356
035360
035366
035372
035376
035402
035406
035410
035412
035414
035420

012602
012737
012701
012711
012741
012700
170100
010204
172414
016200
170100

035422
035424
035426

175411
170327

joXaXaXoX
X0 X0 X0 X0
aXe
X0 X0 X0 XX
XoX
XX Xa oXa
X0 X0 Xo X0 X0
Xo
XXX
jeXaXeXaXeXaXoXeXoXoXaXoX
X0
oXoXo
XoXoXoX
XoX0X
oXaXoXeX0X0X
oXo
s

035452
001130
177777

000244

SCDSUB: MOV

1777277

9508 ,80FPVEC
ORECDST2,R1
#-1,(R1)

1+ RETURN ADDRESS TO USE AS POINTER
iREDIRECT TRAP VECTOR
sPOINT TO RESULT AREA
1PRELOAD RECEIVE DATA BUFFER

MOV

#200,R0

1SET FPS TO DOUBLE

MOV

000200

000014
3

18:

®-1,-(R1)

LOFPS
MOV
LDD

RO
R2,R4
(R4),ACO

LDFPS

14(R2),RO

s1POINT TO ACO DATA
1LOAD ACO
sGET TEST FPS
sLOAD TEST FPS

STCDI

ACO,(R1)

1oTEST INSTRUCTIONCACCORDING TO TMODE>

.MORD

MOV

40%:

(SP)s ,R2

MOV
MOV
MOV

STSTY

(PC)»

IWAIT FOR POSSIBLE FPA TRAP,
1STORE STATUS MERE.

035430
035436
035440

032737
00142€
104000

000001

001042

s INSTRUCTION DIDNT TRAP
gé;

;%.l‘fLflG

iVERIFY A NO TRAP CONDITION

1BRANCH IF GOOD
tALL ERRORS TO TRAP TQ EMT VECTOR

KbOVTh AREAS 1s"ARA'4a 08140520 15 MAR:RS, 16:38 PAGE$325 0
6991
6992
6993

035442
035444

000503
002013

6994
6995

035446

000167

6997

035452
035460
035462
035464
035466

032737
001005
104000
000504
002013

000001

035470
035474
035476
035500
035504
035506
035510
035512

000167
012604
005726
022704
001403
104000
000505
002013

000020

503
FPPERR

JMP

S5EQ 0132

tUNIQUE ERROR NUMBER

ADDRESS OF ERROR MESSAGE

L INSTRUCTION SHOULD HAVE TRAPPED
1REJOIN CODE

6996

6998
6999

.WORD
.WORD

“ild

001042

s INSTRUCTION TRAPPED

50%:

BIT

S1¢

.WORD
.WORD

S04
FPPERR

JMP

ERROR

S1¢:

MOV
TST

CMP

035424

@1,80FLAG

BNE

BEQ
ERROR
.WORD

.WORD

(SP)+,R4
(SP).

014 ,R4

505

FPPERR

1SEE IF EXPECTING A TRAP
1BRANCH IF EXPECTING A TRAP
tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER

sADDRESS OF ERROR MESSAGE
s INSTRUCTION WASNT SUPPOSE TO TRAP
1REJOIN CODE
1SEE IF PC = INSTRUCTION
sCLEAN UP STACK
L

1BRANCH IF GOOD COMPARE
sALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
+PC WAS INCORRECT

:COMMON CODE FOR TRAP AND NO TRAP
035514
035516
035522
035524
035526
035530
035532
035534
035536
035542
035546
035552
035554
035556
035560

035562
035566
03557¢

iVERIFY STATUS

000016

STFPS

000010

144362
143266

001042
000020
001106

035616

000020

MOV
cHP
BEQ
ERROR

16(R2),.RO
RO,R3
33

.MORD

FPPERR

3s:

MOV

R2,R4

as:

JSR

R7,DATVFR

BEQ
ERROR

.MORD

035574
035600
035602
035606
035610
035612
035614

035622

28:

Ss:

ADD
ST

8OFLAG

8s:
3

HOP21
:

7
20(R2)

MOV

ORECFEC,R4

cMP
BEQ
ERROR

(R4),06
8s

STST

tUNIQUE ERROR NUMBER

aei ”s;nomess OF ERROR MESSAGE

]

(R4)

.WORD
.WORD

510
FPPERR

JMP

20(R2)

sPOINT TO EXPECTED DATA
JVERIFY DATA

COUNT

S07
FPPERR

BNE
JHP

sGET EXPECTED STATUS
JVERIFY STATUS
;BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR

010,R4

LHMORD
.HMORD

JVERIFY FEC

506

1SAVE FPS

:BRANCH IF GOOD
;ALL ERRORS TO TRAP TO EMT VECTOR

]

JUNIQUE ERROR NUMBER
. ‘coamss OF ERROR MESSAGE

1SEE IF NEED TO CHECK FEC

:BRANCH IF NEED TO CHECK
iRETURN FROM TEST
1POINT TO FEC AREA

1SAVE FEC

IVERIFY FEC FOR OVERFLOM
+SRANCH IF GOOD
tALL ERRORS TO TRA® TO EMT VECTOR
tUNIQUE ERROR NUMBER
;wnoonsrég OF ERROR MESSAGE

{RETURN FROM TEST

KbIYTh. MAC

ARE AS

7047

7048

7049
7050
7051
7052
7053
7054

705S

7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067

7068
7069
7070

7071
7072
7073

15 HAR'8a *[EL4Y5)

15 MAR:QY, 16:38¢ PAGELE 335 coL

SEQ

035622

MSCF
;
110000000000000000000000000000000000000000

1oTEST 110

0000000
000000000
000
000

STCFL

F000000A00R0RRARRARAR0RERANLAIRGARIRALRRRR

035622
035622

005267

143156

035626
035632
035636
035644
035646
035652
035654

005037
004767
044541
177777
000003
007517
007500

001042

035656
035662
035666
035674
035676
035702
035704

005037
004767
002300
177777
000000
007400
007404

001042

035706
035714
035720
035726
035730
035734
035736

012737
004767
070000

000001
177436
177777

000000
007540
107545

000000

035740
035744
035750
035756
035760
035764
035766

TEST STCFI,

177777

005037
004767
052000
177777
000000
047000
047005

177520
052525

INC
$TESTN
117/LONG EXP =30
CLR
OFLAG

177777

102525

177470
177777

JRESULT
1 TEST FPS
tRESULT FPS

R7,SCOSuUB

80FLAG

iNO INTERRUPTS

.WORD

O,-1

IRESULT

7400
7404

R7,SCOSUB

.MORD

0,0

.MORD

107545

MORD

:4/7INT EXP=5, FIC=0, FID=1

CLR

3+ TEST FPS
1RESULT FPS

t INTERRUPT

sD0 TEST

70000.4.-1.-1

7540

sACO

;D0 TEST

01,80FLAG

JSR

.WORD

177777

1D0 TEST

JSR

MOV

1777727

J35770

3,102525
7517
7500

:13/LONG, EXP>>2s032

177777

001042
000000

.WORD
WORD
WORD

.WORD
.WORD

001042

1NO INTERRUPTS

R7,SCOSLB
44541,52525,-1,
-1

CLR

177777

s INCREMENT TEST NUMBER

JSR
«WORD

127INT, EXP<O

177777

177406

AANANEIALANGRANAESLS

TST110:

llCO
sRESWLY

s TEST FPS

sRESWLT FPS

JSR
.HORD

R7,SCOSUB
52“0.0. -1,-1

SOFLAG

sNO INTERRUPTS

.WORD
.HORD
.WORD

O,-1
47000
47005

sRESWLY
: TEST FPS
iRESWLT FPS

3sD0 TEST
llCO

MSXP:
§30600580040800000800000480000000000000000080000000000000000

soTEST 111

035770
035770
035774
036000
036006
036010
036012
036014

0000000400

TEST STExP

3508800080000 080000000000000008000000000000000000000000000

143010
000154

TST111:

0000000

INC

STESTN

3 INCREMENT TEST NUMBER

JSR

R7,SXPSUB

100 TEST

s 17EXP=100

.WORD
-100
. WORD
7740
. WORD
7750
12/7EXP=201 FLOAT, NEG

sRESWLTY
1 TEST FPS
IRESWLT FPS

013%%

GLOBAL AREAS
KDJ11A . MAC

MACY1l 30A(1052)
15-MAR-84 15:51

7103
7104
7105

036016
036022
036030

000000

7107
7108

036034
036036

007500
007500

7110
7111

036040
036044

004767
000177

036054

177600

7106

7109

7112

7113

7114

036032

036052

036056

004767
140377

000001

177777

036060

007710

7117

036062

004767

7118

036066

020000

7120
7121
7122

7123
7124
7125

036076
036100
036102

177700
040200
040210

036104
036110

004767
040000

7127
7128
7129

036120
036122
036124

000000
007700
007704

7131

036126

004767

7119

7126

7130

7132
7133

7134
7135

7136

7139

7140

036074

036116

036132
036140

036142
036144

b ok
16:?8
PA?E,‘ASQ
€EST S
JSR
.WORD

177777

000110
177777

.WORD

177707

177777

000000

000177
177777

14/EXP=-100

000044
000000

000000

.WORD

. WORD
.HORD
.WORD
1 S7EXP=200
JSR
.WORD

177777

000010

036150

000167

177600
7710

R7,SXPSUB

-100
40200
40210

sACO

TEST

sRESULT
s+ TEST FPS
tRESULT FPS

R7,SXPSUB
40000,0,0,0

;D0 TEST
sACO

sRESULT
3 TEST FPS
1RESULT FPS
300 TEST

177,-1,-1,-1

177600
O

;ACO
sRESWLT
3 TEST FPS

sRESULT FPS

HOP22

3GET OVER SUBROUTINE

joXeXaXaXeXoXoXaXoXaXoXoXaXoXoXoXoXoXoXaXoXoXoXoXoX0Y o X0X0X

;s STEXP
B

ACO

7144
7145
%:91

3
:
3

7148

sNO TRAPS CAN OCCUR

EXPONENT RESWLTY
FPS BEFORE EXECUTION
FPS AFTER EXECUTION

7149

jeXaXeXaXoXaXeXaXeXaXoXoXaXa X0 Xo X0 XX

;go

7155
7156
7157
7158

sD0

20000,0,-%,-1

joXaXaXaXaXa
XXX X0 XoXaXoXoX
XaXe
0X0Xo
XoXa
X0 X0 X0 X X0Xa
X0XX

7141

_TEST FPS

sRESULT FPS

R7,SXPSUB

.WORD

7142
7143

7152
7153
7154

JSR

.WORD

;D0 TEST
sACO
tRESULT

7700

O
7700
7704

«WORD
.MORD

000120

s+ TEST FPS
tRESULT FPS

.MORD
.WORD
.WORD

$6/7EXP=0

000022

177777

JSR

177777

177600
000000

036146

R7,SXPSUB
177,-1,-1,-1

. WORD

;D0 TEST
1ACO

tRESULT

JSR
. WORD
.WORD

000000

1
7500
7500

.WORD

000065

R7,SXPSUB
140377,-1,-1,0

.WORD
.WORD

1 3/EXP=-177

007700

7115

7116

000132
177777

15-MAR-84
L3 %5

XOXAXOXOXOXOXAXOXO XX

jeXaXaXaXoXaXeXeXoXaXaXaXoXoXoXaXoXoXaXaXoXaXaXaXaXaXeXa XX

036154
036156
036164

036170
036174
036176
036200

012602
012737
012701

012700
170100
010204
172414

036256
001126
000200

000244

SXPSUB: MOV
MOV
MOV

MOV
LOFPS
MOV
LDD

(SP).,R2
0508 ,80FPVEC
ORECDST,R1
#200,R0
RO
R2,.R4

(R4),ACO

3 RETURN ADDRESS TO USE AS POINTER
tREDIRECT TRAP VECTOR
1POINT TO RESULT AREA
1SET FPS TO DOUBLE
3
tPOINT

TO ACO DATA

1LOAD ACO

GL OBAL AREAS
KDJ11A .MAC
7159
7160
7161
7162

7163
7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185
7186
7187
7188
7189
7190
7191
7192
7193
7194

MACY11

30A(§052)

036202
036206

016200
170100

000012

036210

175011

40s:

036212
036214
036220
036222
036224
036226
036230

170203

016200
020003
001403
10400C
000511
002013

000014

24:

036232
036236
036242
036244
036246
035250

016204
020437
001403
104000
000512
002013

000010
001126

036252

000162

000016

15-MAR- 84

15:51

Sl N

RP
MOV
LDFPS

12(R2),R0O
RO

STEXP

1LOAD TEST FPS

ACO.(R1)

1#TEST

{VERIFY STATUS

3s:

STFPS
MOV

RO,R3
33

MOV

10(R2),R4

S11
FPPERR

cHP
BEQ

R4, BORECDST
Ss

.MORD
'WORD

512
FPPERR

16(R2)

036256
036260
036262
036264
036266

012605
104000
000513
002013

036270

000167

s INSTRUCTION TRAPPED

012600

S0$:

177756
H

036274

HOP22:

MOV

(SP)+,RO

ERROR
.MORD
'MORD

513
FPPERR

MOV

1GET TEST FPS

RS
14(R2),RO

cHP
BEQ
ERROR
JWORD
'WORD

ERROR

SEQ 0135

(SP)+.RS

INSTRUCTIONCACCORDING

10 MODE)

1 SAVE FPS
sGET EXPECTED STATUS
sVERIFY STATUS
1BRANCH IF GOOD

1BAD FPS

1BAD ACO

tALL ERRORS TO TRAP TO EMT VECTOR
tUNIQUE ERROR NUMBER
1ADDRESS OF ERROR MESSAGE
sPOINT TO EXPECTED EXPONENT
s VERIFY EXPONENT
1BRANCH IF GOOD
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
+ADDRESS OF ERROR MESSAGE

sRETURN FROM TEST
$SAVE PC
31SAVE OLD PS
sALL ERRORS TO TRAP TO EMT VECTOR
sUNIQUE ERROR NUMBER
i ADDRE SS OF ERROR MESSAGE

iWILD TRAP DURING STEXP

sREJOIN CODE

GLOBAL AREAS
KDJ11A.MAC

MACY11l

15-MAR-84

30A(1052)

15:51

15-MAR-84
T111

7195

.MCALL
.SBTTL

7196

7197
7198
7199

7212
7213
7214

7215

7216

7217
7218
7219

7220
7221
7222
7223
7224
7225
7226
7227
7228
7229
7230
7231
7232
7233
7234
7235
7236
7237
7238
7239
7240
7241
7242
7243
7244
7245
7246
7247
7248
7249
7250

SEQ 0136

IDMSG,ENDPAS
END OF PASS ROUTINE

TI0000A000000000000000R0000RRRARARARARARARRARARARAASAA

RARIARALLAS

7200

7209
7210
7211

+#INCREMENT THE PASS NUMBER ($PASS)
i *INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM
;¢IF THERES A MONITOR GO TO IT
i1#IF THERE ISN'T JUMP TO RESTART

7201
7202

7203
7204
7205
7206
7207
7208

IS W

16:58
PACE 136
TEST STEXP

036274
036274
036300
036302
036306
036306
036312
036320
036322
036324

036330
036332
036334
036340
036344
036346
036352
036356
036360

036364
036366
036370
036372
036372
036374
036376
036402
036410
036416

036432
036440
036446
036454
036456
036464
036472
036500

005767
001002
104401
005267
042767
005327
000001
003022
012737
000001
036322
104401
016746

104405
104401

013700
001405
000005
004710
000240
000240
000240

000137
002410
377
036402
005015
026514
042113
046106
043516

052116

C47107
000103
005015
041114
050040
000043

SEOP:

142506
036402

142474
100000

——
K
H

142466

SEOPCT:

036456
142442
036376
000042

TST

BNE

TYPE

INC
BIC
DEC

.WORD

BGT

055103

SRTNAD:

THE

ID MESSAGE

13 YES

+MSG2
$PASS, -(5P)

« SENULL

$DOAGN

PC.(RO)

NOP
NOP
JMP

TYPE

$DOAGN

8042,R0

$DOAGN:

>0 THEN SKIP THE ID MESSAGE

tELSE

1 s INCREMENT THE PASS NUMBER
s3DON'T ALLOW A NEG. NUMBER
::LO0OP?

SGET42: MOV

BEQ
RESET
$SENDAD: JSR

s IF

$PASS
€100000, $PASS
(PC)e
(PC)+ ,8(PC)e
1

TYPE

sONLY TYPE MESSAGE AT END OF FIRST PASS

+MSG1

MOV
S$ENDCT: .WORD
SEOPCT
TYPE
MOV
TYPDS

NOP

377

$PASS

SKIPID

1 sRESTORE COUNTER

1 sSAVE SPASS FOR TYPEOUT
1:G0 TYPE--DECIMAL ASCII WITH SIGN
13GET MONITOR ADDRESS

1 sBRANCH IF NO MONITOR
s sCLEAR THE WORLD
33GO TO MONITOR

s sSAVE ROOM

:3:FOR
13ACT11
&(PC)»

1 sRETURN

-1,-1,0

s sNULL CHARACTER STRING

.WORD

RESTARTY

MSG1:

-ASCIZ

<CR><LF>/CZXDL-B-0 XKDJ11 FLOATING POINT DIAGNOSTIC/

MSG2:

+ASCIZ

<CR><LF>/CZKDLB END PASS @&/

.EVEN
.SBTTL

TYPE ROUTINE

SENULL : 225

030512
040517

042040
051517
055103
042440
051501

15000000400 00000000000000000000000000008000000000000000000000000000

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

B RPN At 1
7251
7252

;1 *NOTEL
i *NOTE2:

72;;:

;om
18

7259
7260

7273
7274

7275

7276
7277

7278
7279
7280
7281
7282

7283

7284
7285
7286

7287

7288

036502
036506
036510
036512
036514
036516
036522
036530
036532
036540

036542
036546

036552

036554
036562

105767
100002
000000
000430
010046
017600
122767
001011

132767
001405

010067
004767

000000
132767
001003

036564
036566
036570
036572
036574

112046
001005
005726
012600
062716

036602
036606
036610

122716
001430
122716

036600

036614

036616

000002

001006

036620
036622
036624
036630
036632
036636
036642
036644

104401
002077
105067
000755
004767
126726
001350
016746

7298

036650

105366

7299
7300
7301

036654
036656
036662

036666

000343

142270

000100

142261

$STYPE:

T1STB
BPL
HALT
BR
MOV
MOV
CcMPB
BNE

000004

CHARACTER

TO FILL

AFTER,.

000040

142237

61%:

62%:

28:

000002

60%:
3s:

000011

4%:

000200

002770
004767
105367

000770

Ss:
68;:

000176

000001

78;:

000032
000144

$TPFLG
18

313IS THERE A TERMINAL?
13BR IF YES
s sMALT MERE IF NO TERMINAL
1 sLEAVE
1 $SAVE RO
13GET ADDRESS OF ASCIZ STRING
s tIRUNNING IN APT MODE
13NO,GO CHECK FOR APT CONSOLE

JSR

PC,SATYS

LHMORD

BITB
BNE

MOVB
BNE
TST
MOV
ADD
RTI

CHP8
BEQ
cMP8

000056
000206

1 tMESADR

BITB
BEQ

BNE

000202

+MESADR

RO, -(SP)
82(SP),R0O
OAPTENV, SENV
624
QAPTSP
, OOL
SENVM
624

MOV

001034

RO,618
O

IS FIRST

ADDRESS OF

;;
MESSAGE TO APT
13ND,GO CHECK FOR CONSOLE

llSEil’ MESSAGE ADDRESS FOR APT
33SPOOL MESSAGE

TO APT

s sMESSAGE ADDRESS

QAPTCSUP, SENVM ; ;APT CONSOLE SUPPRESSED
608
s3YES,SKIP TYPE OUT

(RO)+,-(SP)
43
(SP).
(SP)+ RO
2,.(SP)

MY, (SP)
as
OCRLF ,(SP)
S8

3 3PUSH CHARACTER TO BE TYPED ONTO STACK
$3BR IF IT ISN'T THE TERMINATOR
33IF TERMINATOR POP IT OFF THE STACK
s sRESTORE RO
1 3sADJUST RETURN PC

3 sRETURN

1 sBRANCH IF <NT»

1 sBRANCH IF NOT <CRLF>

(SP).

13POP

SCHARCNY
2%
PC.ATYPEC
SFILLC.(SP).
28
SNULL, -(5P)

31 3CLEAR CHARACTER COUNT
33GET NEXYT CHARACTER
13G0 TYPE THIS CHARACTER
33IS IT TIME FOR FILLER CHARS.?
33IF NO GO GET NEXT CHAR.
1:GEY @ OF FILLER CHARS. NEEDED

CECB

1(SP)

BLY
JSR
DECB

6
’E..TVPF.C
s
T

<CR><LF> EQUIV

3:TYPE A CR AND LF

1sAND THE NULL

13DOES A NULL NEED

TO BE TYPED?

1:8R IF NO--GO POP THE NULL OFF OF STACK
1160 TYPE
NULL
1:00 NOT COUNT AS A COUNT

sHORIZONTAL TAB PROCESSOR
036670

112716

000040

8%:

AN ASCIZ STRING

TYPE
SCRLF
CLR8
8R
JSR
cPB
BNE
MOV

;%
7306

TYPE
MESADR

1$:

000002
000001

TYPE

i
ie

005726

7289
7290
7291
7292
7293
7294
7295
7296

7297

THE

i141) USING A TRAP INSTRUCTION

752;
7

7271
7272

$FILLC CONTAINS

e
:oCALL
:

7256

7263
7264
7265
7266
7267
7268
7269
7270

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

1 *NOTES:

72
7255

MOVB

,(SP)

1sREPLACE

TAB WITHM SPACE

7320
7321
7322
7323

036732

036736
036740
036740
036744
036746
036752
036756
036762
036764
036764
036766
036766
036772
036774
037002
037010
037012
037016

037020
037026
037030
037032
037034

037036
037040
037042
037044
037046
037047
037050
037051
037052
037053

7355
7357

7358
7359

7361
7362

132767

001372
005726
000724

105777

100022
017746
042716
122716
001012

105777
100375
117716
042716
122716

001366

000014
000007

000124

$TYPEC:

000116
000112
177600

000023

101¢:

000072

000066
177600

000021

102¢:

005726

108:

105777
100375
116677
122766

000015

105067

000014

001003
000406
122766
001402
105227
000000
000207

177560
177562
177564
177566
000
002
012
000
077

012
037056

9s:

000012

JSR

PC,S$TYPEC
@7, SCHARCNT
9

8ITB
BNE
TST
BR

(SP).
24

1ST8

88 TKS
104
88TKB, -(SP)

BPL
MOV
8IC
CcMPB
BNE
TST8

23538

7317
7318
7319

036714
036720
036722
036726

004767

1 R it 138

18:

$CHARCN
S$TYPEX:
$TKS:
$TKB:
$TPS:
s$TPB:
SNULL
:
SFILLS:
SFILLC:
$TPFLG:
SQUES:

SLF:

13 TYPE

SPACE

1 1BRANCH IF NOT AT
11 TAB STOP
1 1tPOP SPACE OFF STACK
11GET NEXT CHARACTER
1 sCHAR IN KYBD BUFFER?

sMJDOC1

131BR IF NOT
11GET CHAR
1sSTRIP EXTRANEOUS BITS

sMJDOO1

;sMJDOO1

1 iWAS CHAR XOFF

3BR IF NOT

88TKS
101¢
83TKB, (SP )
€177600,
( SP)

1 sWAIT FOR CHAR

;MJDOO1

13GET CHAR

;MJDO01

13STRIP IT

@$XON, (SP )

13WAS IT XON?

(SP).

13FIX STACK

817
108
2(5P),98TPB

$ sWALT UNTIL PRINTER IS READY

1018

TST

131BR IF NOT

sMUDOO1

$CHARCNT

13LOAD CHAR TO BE TYPED INTO DATA REG.
$3IS CHARACTER A CARRIAGE RETURN?
1 sBRANCH IF NO
"Efii -CLEAR CHARACTER COUNT

(PC)e
0

331IS CHARACTER A LINE FEED?
13BRANCH IF YES
31 sCOUNT THE CHARACTER
3 sCHARACTER COUNT STORAGE

:sfl.?(SP)

000002

SEQ 0138

102¢

fisg T

7314
7315
7316

036674
036700
036706
036710
036712
036714

8
$TYPEX

7307
7308
7309
7310
7311
7312
7313

GLOBAL AREAS
KDJU11
. MAC
A

177560
177562
177564
177566

.BYTE

2
12
0

.ASCIZ

«12>

n?n

33T7TY XKDB STATUS

33T7TY KBD BUFFER

:MJD001

sMJD001

33 7TY PRINTER STATUS REG. ADDRESS
3377Y PRINTER BUFFER REG. ADDRESS

s sCONTAINS ML CHMARACTER FOR FILLS
3 sCONTAINS @ OF FILLER CHARACTERS REQUIRED
11 INSERT FILL CHARS. AFTER A “LINE FEED"
33 “TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES)
1 QUESTION MARK
1sLINEFEED

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
138088800002 0800404000040000800000000000000200000000000000000000000

34THIS ROUTINE IS USED TO CMANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
+#SIGNED DECIMAL (ASCII) NUMBER AND YYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
1#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS MILL ALMAYS BE
s sREPLACED WITH SPACES.

;eCALL
MOV
;e

NUM, -(SP)

11PUT THE BINARY NUMBER ON THE STACK

GLOBAL

AREAS
KDJ1.1A
MAC

MACY11l

15-MAR-84

30A(1052)

15:51

JAoL
15-MAR -84
16:58
PAGE 139
CONVERT BINARY TO DECTMAL AND TYPE ROUTINE

7363

e
037056
037056
037060
037062
037064
037066
037070
037074
037100
037102
037104
037112
037114
037120
037124
037126
037132
037134
037136
037140
037142
037144
037146
037150
037152
037154
037156
037160
037166
037172
037176
037200
037202
03720€
037210
037212
037214
037216
037220
037222
037230
037232
037234
037236
037240
037242
037244
037250
037256
037260
037262
037264
037266
037270

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723

016001
160105

000774
060105
005702
001002
105716
100407
106316
103003
116663

052702
110223
005720
020027
002746

$TYPDS:

020200
000020

000055

000001

037272
000040

18:

28:

037262

38:

012605
012603
012602
012601
012600
104401
016666
012616

023420
001750
000144
000012

MOV

as:

000001
000060
000040

177777

68:

78:

MOV

@3DBLK,R3

MOVB
CLR

177777

177776

9s:

037272
000002

$OTBL:

@' ,(R3).
R2

1 1MAKE THE ASCII NUMBER NEG.
1 1ZERO THE CONSTANTS INDEX

11SETUP THE OUTPUT POINTER

13SET THE FIRST CHARACTER TO A BLANK
1 1CLEAR THE BCD NUMBER

$OTBLCRO),R1
R1,RS
a8

;;GET THE CONSTANT
1sFORM THIS BCD DIGIT
13BR IF DONE

ADD

R1,RS

BNE

+3ADD BACK THE CONSTANT

1iFALL THROUGH IF O

8MI

33BR IF YES

TST

ASLB

(SP)

: 1 INCREASE THE BCD DIGIT BY 1

3 sCHECK IF BCD DIGIT=0

+3STILL DOING LEADING 0’ S?

(SP)

3 1MSD?

usn.-uas)

31YES--SET THE SIGN

MOVE

R2,(R3).

+1PUT THIS CHARACTER IN THE OUTPUT BUFFER

e
BLY

RO, 910
28

11CHECK TME TABLE INDEX
13G0 DO THE NEXT DIGIT

8CC

BIS

8IS

8GT
MOV

8s:

@'-,1(SP)
RO

11PUSH RO ON STACK

11PUSH R1 ON STACK
11PUSH R2 ON STACK
1 1PUSH R3 ON STACK
11PUSH RS ON STACK
;3SET BLANK SWITCH AND SIGN
1iGET THE INPUT NUMBER
1iBR IF INPUT IS POS,
1 {MAKE THE BINARY NUMBER POS.

MOV
SUB
8LT

000010

RO, -(SP)

R1,-(SP)
R2,-(SP)
R3, -(SP)
RS, -(SP)
020200, -(SP)
20(SP).RS
18
RS

IST8

Ss:

13GO0 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
8PL
NEG

ggc

010502

105726
100003
116663
105013

TYPDS

8R
IST8
8PL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE
MOV
MOV

RTI
10000.

1000,
100,
10.

0.R2
Yo

(1]
RS.R2

64
(SP)
9
-1(SP),-2(RS)
(R3)
(SP)+.RS
(SP)s+,R3
(SP)s+,R2
(SP)s,R1
CSP)+.RO
, $DBLK
2(SP),4(SP)
(SP)+,(SP)

11BR IF NO

3 iMAKE THE BCD DIGIT

ASCII
1sMAKE IT A SPACE IF NOT
ALREADY A DIGIT

1 3JUST INCREMENTING

33G0 TO EXIT
13GET THE LSD

+3GD CHANGE TO ASCII
118R IF NO
11VES--SET THE SIGN FOR TYPING
11SET THE TERMINATOR
11POP STACK INTO RS
13POP STACK INTO R3
11POP STACK INTO R2
13POP STACK INTO R1
1 1POP sm:x INTO RO
1iNOW TYPE THE NUMBER
11ADJUST THE STACK

23MAS THE LSD THE FIRST NON-ZERQ?

1 1RETURN TO USER

SEQ 0139

GLOBAL AREAS

KDJ11A .MAC
7419
7420
7421
7422
7423
7424

037272

MACY1l

30A (gOS?)

15-MAR-84 15 191

15-MAR

000004

7462

7469
7470
7471

7472
7473
7474

.BLKW

.SBTTL

SEQ 0140

BINARY TO OCTAL (ASCII) AND TYPE

PIRAAAAAAAAMARAAASAAAAARAAARAAAAAAAAAARSAERREAAAAASAAA

AASAAEE0440

1#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
+#0CTAL (ASCII) NUMBER AND TYPE IT,

7425

7463
7464
7465
7466
7467
7468

ég‘uvefi???m:ec?o‘agcxnu AND TYPE ROUTINE
$DBLK:

1#$TYPOS
- -ENTER
- HERE

7426

7427
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
7442
7443
7444
7445
7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461

N1 1

1#CALL:

e
s
e

MOV

TYPOS
.BYTE
BYTE

TO SETUP

NUM, -(SP)
N
M

SUPPRESS ZEROS AND NUMBER OF

TYPE

1:CALL FOR TYPEOUT
1sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
3sM=1 OR O
LEADIMG

1 $0=SUPPRESS

: iINUMBER TO BE TYPED

+31=TYPE

DIGITS

ZEROS

LEADING

ZEROS

:¢OTYPW----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

14$TYPOS OR

:#CALL:
e
MOV

$TYPOC

TYPON

NUM, -(SP)

1 sNUMBER TO BE TYPED

31 3CALL FOR TYPEOUT

a‘é:{tOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
&

037302
037306
037314
037320
037324
037326
037334
037342
037350
037352
037354
037356
037362
037364
037370
037374
037400
037404
037406
037410
037412
037414
037416
037420
037422
037424
037430
037432
037436
037440

017646
116667
112667
062716

112767
112767
112767

010346
010446
010546
116704

062704

110467
116704
016605

000001
000207

000001

000211

MOV

TYPOC

$TYPOS: MOV
MOVB
MOVB

ADD

000171

000165
000154

$TYPOC: MOVB

000076

177770

33SET THE ZERO FILL SWITCH

313SAVE R3
313SAVE R4

ADD

@1,80FILL

3 $ADJUST RETURN ADDRESS

R3,-(SP)
R4, -(SP)

MOVB

2%:

:a;.(sfi)

MOV
MOV

000132

006105
006105
006105
010503
006103
105367
100016
042703
001002
005704

13PICKUP THE MODE
13LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

33SET FOR SIX(6) DIGITS

MOV
MOVB

18:

8(SP),-(SP)
1(SP), SOFILL
(SP)+,30MODE+1

1:CALL FOR TYPEOUT

@6, $0MODE 1

000145

006105

: siNUMBER TO BE TYPED

MOVB

$TYPON: MOVB

000012

NUM, -(SP)

95, SOCNT

RS, -(SP)
$OMODE +1,R4
o6 ,R4

R4, $OMODE

MOVB
MOV
CLR
ROL
B8R
ROL
ROL

SOFILL,.R4
12(SP),RS
R3
RS
3
RS
RS

ROL

DECB
BPL
BIC

BNE
TST

RS,RS
.

$OMODE
7

33SET THE ITERATION COUNT

331SAVE RS
13GET THE NUMBER OF DIGITS TO TYPE
13SUBTRACT IT FOR MAX. ALLOWED

$13:SAVE IT FOR USE

13GET THE ZERO FILL SWITCH
131PICKUP THE INPUT NUMBER
13CLEAR THE OUTPUT MORD
1 sROTATE MSB INTO “C*
1:G0 DO MSB
:3FORM THIS DIGIT

313GET LSR OF THIS DIGIT

11 TYPE THIS DIGIT?
1:BR IF NO

2177770,R3

11GET RID

1 1SUPPRESS THIS 0?2

1+ TEST FOR O

JUNK

GLOBAL AREAS
KDJ11A, MAC
7475
7476
7477
7478
7479
7480
7481
7482
7483
7484
7485
7486
7487
7488

7489
7490
7491
7492
7493
7494
7495
7496
7497
7498
7499

7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518

7519

7520
7521
7522
7523
7524
7525
7526

7527
7528
7529

7530

MACY11

30A( §g52)

15-MAR-84 15:

037442
037444
037446
037452
037456
037462
037466
037472
037474
037476
037500
037502
037504
037506
037510
037516
037520
037522
037523
037524
037525
037526

TAL (&géll) AND TYPE

000060
000040
000040
037522
000032

Ss:

74:

BEQ
INC

BIS
BIS

6%:
000004

8s%:
S$OCNT:
SOFILL:
$OMODE:
.SBTTL

SEQ 0141

131BR IF YES

©'0,R3
@' ,R3

1 tMAKE THIS DIGIT ASCII
1 tMAKE ASCII IF NOT ALREADY

1 3DON'T SUPPRESS ANYMORE 0'S

MOvVB

R3,8%

1 1SAVE FOR TYPING

DECB
BGT

$OCNT
2

1 sCOUNT BY 1
11BR IF MORE TO DO

TYPE

BLT

000002

L11

IS-HARéga“R%6f88°CPAGE

.84

THIS DIGIT

11BR IF DONE

$+1GO DO THE LAST DIGITY

INC

MOV

(SP)+,RS

11GO TYPE

1+ 1 INSURE LAST DIGIT ISN'T A BLANK
1 tRESTORE RS

MOV
MOV
MOV
MOV

(SP)+,R4
(SP)+,R3
2(SP),4(5P)
(SP)+,(SP)

1 tRESTORE R4
i tRESTORE R3
$131SET THE STACK FOR RETURNING

BYTE

1 sSTORAGE FOR ASCII DIGIT

RTI

.BYTE
O
.BYTE
O
.BYTE
O
.WORD
O
TRAP DECODER

1 sRETURN

1 s TERMINATOR FOR TYPE ROUTINE
1 30CTAL DIGIT COUNTER
+s2ERD FILL SWITCH
: sNUMBER OF DIGITS 7O TYPE

PI0800000A0000000000000000000000000000080000000008000000080800004

14THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION
i*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:#0F THE DESIRED 'WTM. THEN USING THE ADDRESS OBTAINED IT WILL
:9G0 TO THAT ROUTINE.
037530
037532
037536
037540
037542
037544
037550

016600
005740
111000

STRAP:

016000

MOV

MOV
ST
MOVE
ASL
MOV
RTS

RO, -(SP)

+1SAVE RO

33G0 TO ROUTINE

205p),
3 3GET TRAP ADDRESS
-CRO)
+ $BACKUP BY 2
(RO).RO
13GET RIGHT BYTE OF TRAP
RO
3 sPOSITION FOR INDEXING
$TRPADCRO)
RO ;; INDEX TO TABLE

33 THIS IS USE TO MANDLE THE “GETPRI” MACRO
037552
037554
037562

011646
016666

$TRAP2: MOV

MOV
RTI

.MACRO

(SP), -(SP)

a(sP),2(sP)

11MOVE THE PC DOMN

1iMOVE THE PSW DOWN

1 ;RESTORE THE PSM

SETTRAP A,B,MSG
$S$SET
A.B,\<TRAP+$TRP> ,\$TRP, <MSG>

NLIST
$TRP=$TRP+1

.LIST
.ENDM

. MACRO

SETTRAP
$S$SET

A,B8,C,0,COMNT

.IF EQ $TRP-1
.SBTTL
TRAP TABLE

1#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

GLOBAL AREAS

MACY1l

KDJT1A.MAC ° 15-MAR-34°98(4952)

30A(1052)

15-MAR-

;ggé

;

iRie BBEBBeR"ACE 142

7533

ROUTINE

- Shhvuuye

7535

$TRPAD:

7537

.IIF NDF GNS, .NLIST

7536

.WORD

.ENDC

7538
7539

$TRAP2

Aw
C
.IIF NDF GNS,.LIST

7540
7541
7542
7543
7544

B8
.ENDM
$$SET
.MACRO
TRMTRP
$TERM=, - $TRPAD
.ENDM
TRMTRP

;;S
6

.SBTTL

7547

13CALL=A

TRAP+D(C)

COMNT

TRAP TABLE

1#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;gg

:#BY

7550

7552
7553
7554
7555
7556
ggz

80 ne2

1#BY THE "TRAP" INSTRUCTION.

7534

7551

ML11

037564
037566
037570
037572
037574
037576

THE

037552
036502
037326
037302
037342
037056

$TRPAD:

"TRAP"

INSTRUCTION.

ROUTINE
.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

$TRAP2
13CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT 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)

7559

75675601

7562

.SBTTL

7563
7564

037600
037606

7566
7567
7568
7569
7570
7571
7572
7573
7574
7575
7576

037616
037624
037624
037626
037630
037634
037636
037644
037646
037654
037656

010046
010146
105767
001450
122767
001031
132767
001425
017600

000004

037670

005767

141104

7565

7577

7578

7579

7580
7581
7582
7583
7584
7585
7586

037614

037662
037674

037676
037702
037704
037706
037712
037714
037720

310 8480 8 0440088000000040004080000000000804008008008008480000080888

112767
112767

000001
000001

000236
000226

$ATY1l:
$ATY3:

112767

000001

000220

$ATY4:
SATYC:

000403

062766

001375

010067
105720
0013276
166700
006200
010067
012767

000206
000001

141154

000100

141145

000002

000004

141112

141076
000004

1$:
2%:

141102
141052

APT COMMUNICATIONS ROUTINE
MOVB
MOVB

01,.8FFLG
o1, MFLG

31370 REPORT FATAL ERROR
33:TO TYPE A MESSAGE

MOVB

@1,FFLG

3370 ONLY REPORT FATAL ERROR

MOV
MOV
TST8
BEQ
cMPB
BNE
81T
BEQ
MOV

RO, -(SP)
R1,-(SP)
MFLG
Ss
OAPTENV, SENV
3
OAPTSPOOL
, SENVM
3
SA(SP),RO

:131PUSH RO ON STACK
313PUSH R1 ON STACK
$1:SHOULD TYPE A MESSAGE?
313IF NOT:
BR
1 sOPERATING UNDER APT?
:3IF NOT:
BR
; ; SHOULD SPODL MESSAGES?
33IF NOT:
BR
3 3GET MESSAGE ADDR.

SMSGTYPE

3 +SEE IF

ADD

BNE

MOV
1578
BNE
SUB
ASR
MOV
MOV

SATYC

92,4(5P)
1

RO, $MSGAD
(RO)
2%
$MSGAD,RO
RO
RO, SMSGLGT
94, SMSGTYPE

3 1BUMP RETURN ADDR.

33IF NOT:

W/ LAST XMISSION?

WAIT

1:PUT ADDR IN MAILBOX
1:FIND END OF MESSAGE
1:SUB START OF MESSAGE
13GET MESSAGE LNGTH IN WORDS
1 1PUT LENGTH IN MAILBOX
13 TELL APT TO TAKE MSG.

GLOBAL AREAS
KDJ11A. MAC
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
7604
7605
7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617

037726
037730
037736
037744
037750
037754
037756
037756
037762

037764
037770
037772
037776
040000

040006
040014
040020
040024
040030

040034
040036
040040
040042
040043
040044

MACY11

30A(1052)

15-MAR-84
000413
017667
062766
016746
004767
000000

105767
001416
005767
001413
005767
001375
017667
062766
005267
105067
105067
105067
012601
012600
000207
000
000
000
040046
000200
000001
000100
000040

15:51

000004
000002
140026
176526

15-MAR-84

000016
000004

3$:

g::

000062

PAGE

141002
140774
000004

143

N11
SEQ 0143

ICATIONS ROUTINE

BR
MOV
ADD
MOV
JSR
.WORD

10%:

141030

000004
000002
140760
000020
000013
000006

APT C

16:58

TST8
BEQ
TST
BEQ
11%:
TST
BNE
MOV
ADD
INC
12%:
CLRB
CLRB
CLRB
MOV
MOV
RTS
SMFLG:
.BYTE
SLFLG:
.BYTE
$FFLG:
.BYTE
.EVEN
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040

1 sPUT MSG ADDR IN JSR LINKAGE

3 1BUMP RETURN ADDRESS

1 1PUSH 177776 ON STACK
1+ 1CALL TYPE MACRO

1SHOULD REPORT FATAL ERROR?
+IF NOT:
BR
sRUNNING UNDER APT?
:IF NOT:
BR
sFINISHED LAST MESSAGE?
WAIT
s IF NOT:

;GET ERROR ¢
A&lBUHP RETURN ADDR.

13 TELL
APT TO TAKE ERROR
1 sCLEAR FATAL FLAG
1 sCLEAR LOG FLAG

sLOG FLAG
3

130044080800 2224880080800000000000000000204008848808040080408084088488

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

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

141000

005267
021627
101010
012767
012637
012637
000430
017667
011667
062716
017637
104401
000000
062716
104401
016746
104402
104401
016746
104402

140764
001002

001775

$ERROR:

007777
001062
001064

000106

000000
000072
000002
000000

000066

1%:

040134

1008:

000002
002046
000030

002062
000026

102¢:

INC

SERFLG

s INCREMENT ERROR FLAG

INC
cHP
BHI
MOV
MOV
MOV
B8R
MOV
MOV
ADD
MOV
TYPE
MORD
ADD
TYPE
MOV
TYPOC
TYPE
MOV
TYPOC

ERRCNT
(SP),
#1002
13
7777,
3%
(5P)+,80SAVSPL
(S’)'."SAVSPZ

s ZNCREMENT THE ERROR COUNT

BEQ

$ERROR

.(SP).
33
(SP),101$
o2,
(SP)
8(SP),.801024
O
02.(SP)
+ERR1
3%,-(SP)

+ERR2
1014, -(SP)

:DON'T LET IT GO TO ZERO

IIS ERROR FROM VECTOR AREA
:IF YES THEN

:ELSE

sREPORT UNIQUE ERROR NUMBER TO APT
:SAVE ERROR PC
tGET OVER UNIQUE ERROR NUMBER FOR RETURN
1 TYPE ERROR MESSAGE

tGET OVER ERROR MESSAGE

:PUSH UNIQUE ERROR NUMBER ON THE STACK
1 TYPE OCTAL ERROR NUMBER

:PUSN ERROR PC ON THE STACK

1TYPE THE ERROR PC

GL OBAL AREAS
KDJ11A <MAC
7643
7644
7645
7646
7647
7648
7649
7650
7651

7652

7653

040166
040174
040176
040202
040204
040206
040210
040212
040214
040214

MACY11l

30A(1052)

122767
001004
004767
000000
000777
000000
000002
000000

000001

IS-HSR-BQ lS:gl

000010
000001

177414

ASY C

15-MAR-84

140624

6:58

2%
3s:

Ss:

1018:

$PATCH:
:

.END

PA
ICAT

CMPB
BNE
JSR

. WORD

HALT
RTI

S S

Fond*Rour ne

SEQ 0144

g?PTENV.lENV

1CHECK TO MAKE SURE WE'RE IN APT MODE

#C,
0
a8

1GO REPORT ERROR TO APT
1STORAGE FOR ERROR NUMBER
1LOOP HERE AFTER REPORTING ERROR TO APT

$ATY4

1 IF

YES THEN

s IF NOT APT

.WORD

BLKW

THEN MALT

1ALLOW RECOVERY FROM HAL
T

KDOTIA.
MAE " 15da84p52)
ABASE =
ACDW1 =
ACOM2 =
ACPUOP
=

ADDT

ADDWO
ADOW1

=
=

£2

ADDW10=
ADDW11=
ADDW12=
ADDW13=
=
ADDW14
ADDW15=
ADDW2
ADDwW3

AFATAL
=

ALLCTR

AMADR]
=
AMADRZ
AMADR3
=
AMADRA
=
AMAMS]
=
AMAMS2
=
AMAMS3
=
AMAMSAY
=
AMSGAD
=
AMSGLG=
AMSGTY=
AMTYP]1=
AMTYP2=
AMTYP3=
AMTYP4
=
APASS =
APRIOR=
APTCSU=
APTENV
=
APTSIZ=
APTSPO=
ASWREG=
ATESTN=

AUNIT

AUSHR =
AVECT1=
AVECT2=

BEVENT
=
BFA

547
547
547
547

1083
547
547
547

15 MAR RS s 'RéPBre REFE 1 ACE
562
1091

1099

1107

76140

7643

A G

USER SYMBOLS

1116

11320

1110

1119

547

547
547
547

S47

547
547
547
547
547
547
547
547
547
547
547

547

547
5898
547
547
547
547
547
547
547
547
547
547

553
558
559
550

555
556
549

552
76160

7572

76130
7574

560
551
554
547

1085

7615¢

561

1093

1101

11380

SEQ 0145

OLOBAL

AREAS

BFAC1

0033
9933

KDJLIA.MAE ~

Bracs

BFACS
BFACA
8FACS
BFAE

003646

BITO
= 000001
BITOO = 000001
BITOL = 000002
BITO2 = 000004
BITOS = 000010
BITO4 = 000020
BITOS = 000040
BITO6 = 000100
BITO7 = 000200
BITO8 = 000400
BITO9 = 001000
BITL
= 000002
BIT10 = 0C2000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BITIS = 100000
BIT2
= 000008
BITS
= 000010
BIT4
= 000020
BITS
= 000040
BIT6
= 000100
BIT7
= 000200
BIT8
= 000400
BIT9
= 001000

BOARDT= 000001

BTEXP

BTRES

BTTST
BTTSTE
BT1

CHECK7
CHEC10
CHEC26
CHEC27
CHEC30
CHEC32
CHEC33

1139

2790
5690
5680
67
2660
Sese
Seae
2630
2620
2610
260
5780
259¢
2580
557
2560
2550
2540
5770
3760
2750
5730
573e
572e
3710
5700

1099¢
11070
11160
1125

1141

11480

1143

11450

606

761

279
278
277
276
275
274
273
272
271
270

936

002450

1058+
1130«
9028

1059+
1132+
1017

1060+
1133«

980«

990+

1000+

1025

1026

1028

5 9;0

156

003150
003176

ssssse U

= 177746

005132
005366
010616
011162
011730
012166
012464

2860

S9%6e

597¢

1118+«
954
883

452¢

1474
1545
2321
2441
2549
2701
2788

SEQ 0146

10830
18812

934

CACHET= 000001

CCR

1094
1102
1111
1120

15 MAR-R4 1858
PABE AS/e . usen SYMBOL S
-

002650

001076

1078
1%s6

509

001066

BTGO

BPTVEC- 000014

BTER

15 HAk'Ba (8147590

003422
003446
003474
003650

8F8

MAC)

897

898

1138
953

832+

1478
1549
2332
2459
2567
2712
2799

938

913

914

1140
972

%410

916

1061+
11344
917

919

1062
1135
920

1027

922

1065
1138
923

925

1068
1140
933

1029

1031

1030

1142
981

10320

1144
991

1001

10250

159

177

509

594

609

1490
1561
2356
24890
25960
27340
28210

14960
15670
2367

23810

875+

1486
1557
2343
2477
2585
2723
2810

929

1070
1142
935

933

1072
1144
937

935

1074

939

937

1127+
953e

939

1128«
962

1056

1129«
971

1057

1076+

1084

1092«

1100«

1109«

761

831

874

7194

7245

CLRD

CLRI

CMPD
=
CMPRTN

COUNT

CPEREG=
CPUTST=
CR
=
CRLF
=
DATRAM=
DATVER

DATVFR
DAT1
DCOUNT
DDISP =
DISPLA
DISPRE
DIVD
=
DIVF
=
DSWR
=
DVDSUB
DVFSUB

D1
D2
D3
D4
DS
D6
D7
EMTVEC=
ERR
ERRCNT

ERRFP

005136
005404
005150
005372
sesess

esseee

ssseas
017730

15-MAR -84

(77766
000001
000015
000200
000001
002146

GC4a236
004250
004252
004270
004304
004314
004320
000030
002126
001044

002124

ERRMSG
001766
ERRNUM= 000514

:%1

1498

001040

002130
002160
001054
177570
001050
000174
sseses
assssse
177570
022000
021002

30A (1052)

14972
1569

1568¢
5809
5840

4039
4047
S581¢

15-MAR-84

4056
817

166
752
7286

200¢

4250
1275¢
1278+
1280¢
12880
1289
1293
1294
289
7940

5830
793¢

7520
4650

993

1115
1254
13440

1429

1619¢
1708
1801¢

1873

PAGE

SEQ 0187

1574

10
1940
195¢
10
820¢
3281
3596
3967
815¢
818
588¢
201¢
585¢

4389
4141

16:58

1503
15744
1503¢

3229
3550
2906
S517

495¢
4381
4133

Cilc

CROSS SEFERENCE IABEE .o USER SYMBOLS

3211
3512
3868
5506

455¢

CHEK?
CHK10
CHK?
CH10

MACY11l

cccec

GLOBAL AREAS
KDJL11A MAC

874
2918
3312
3618

4005
4360

823¢

4065

4073

40950

822+
3263
3575
3938
5622

823+
3282
3597
3968
5762

2919
3313
3619
4006
5824

2964
3332
3651
4030
6191

3004
3357
3670
4122
6369

4361
6498

6797

4779
7026

509
756

603
761

756
763

877
766

7233
7233

7241

7332

7344

2963
3331
3650
4029

3003
3356
3669
4121

3039
3370
3696
4559

3069
3402
3710
4986

3143

3193
3475

6368

3779
5516

3174
3443

5761

3105
3414
3741
5505

5621

4446
4185

4457
4193

4201

4480
4209

9590
1087
1211¢
1314
1384¢
1506
1661¢
1752
18230
1919

4778

5205

847
4413
4160

4424
4168

4435
4177

4285

4307¢

941
1006¢
1175
12870
1371
1452¢
1652
17400
1813
1883¢

9450
1079
11780
1306
13740
1499
1655¢
1745
1816¢
1889

956
1082¢
1208
1309¢
1380
1502¢
1658
17480
1820
1893¢

5216

3040
3371
3697

7025

3070
3403
3711

3106
3415
3742

3144
3431
3780

3175
3444

3194

3476
3843
5217

4987

5206

5823

3210
3511
3867
6190

3228
3549
3905
6497

6796

45060
4217

4225

4233

4241

983

9862
1112
12492
1340

3262
3574
3937

585
848e
856
584

4401
4151

4258
1291

1279¢
1304
1325

1292¢
1295¢
1297¢
8362+

:ggz

4276

13351

837«

7623+

785
9960
1121

1257¢
1364
14320
1623
17120
1805
187640

788¢
1003
11240
1284
1367¢
1448
16260
1737
1805¢
1880

974

1098¢
1236
13300
1412
1573¢
1692
1765
1858
1928¢

9772

1103
123%¢
1333
14815¢
1577
1695¢
1791
18619
1932

11062
1246

13372

1421
1581¢
1699
17942
1865

19352

14242

1616

1702#
1798

1868+
1940

GLOBAL AREAS
KDJ11A.MAC

MACY11l

15-MAR -84

30A(1052)

15:51

1943¢
2017
2089¢
2185
22760
2351
24570
2562
26600
2792
2887¢
2966
3045¢
3139
3208
3284
3376

3478
35392
3613
3702¢
3782
38480
3932
4003¢
4332

45340
4759
49709

5199
54889
5630
5779¢
5880
5936
6011
60712
6144
63740
6776
70110

ERRTN = 000000
ERRVEC= 000004
ERR1
002046

ERR2
EXPDAT
FACU

FIN1

FIN1O
FIN11
FIN13

FIN14
FIN1S
FIN16

FIN17

FIN2

4630
2820

002062
001034
ssssss

003742

005450
005560
006004

006160
006400
006572

007006

004044

7610
7630
579¢

1040
1169
1565
1630
1706
1759
1827
1887
1954
1199

15-MAR-84

16:58

PAGE

CROSS REFERE NCE

1947

2021¢

19500

2048

1956

20510

149
TABLE

1960@

2055

2115
21892
2281
23540
2463
2565¢

21180
2216
22840
2362
24660
2571

2123
2219¢
2289
2365¢
2472
2574¢

2795¢

2803

28060

2969¢

2992

2995¢

2998

31420

3146

31490

3168

3287¢

3308

33110

3315

2664

2906

3063
3213

2667¢

2909¢

30660

2674

2912

3072

21260
2223
22920
2372
24750
2580

26780
2814

29150

30750

32160

3224

3397
34810

33000
3489

3405
3492¢

34080
3498

36160
3713
3785¢

3621
37160
3799

36240
3736
3802¢

3645
37390
3807

39430

3953

3543

3862

3935¢

4008

43350

35460

3865¢

3940

40110

434}

3552

3870

4024

43440

4540

45430

4553

4980

49830

4989

47620

52020

5499

56340

5796

S883¢

5941

60140

6089

6147¢

6380

4772

S208

5502¢

5726

5729¢

S735

SS08

5964

S889%¢

6017

60200

6152

6155¢

49920

55110

58050
5892

59570

6025

857+

25830
2705
2817¢
2922
3001¢
3094
3171¢
3231
33180
3417
35010
3569
36480
3744
3810¢

2384
24840
2589
27080
2825
2925¢
3006
3097¢
3177
32340

2001
20720
2169
22394
2327
24404

2545
26034
2727
28744
2951
30314
3108
3192¢
3265

33370

3517¢
3591
36670
3766

38320

3973¢

4124
43770
4741
4952¢

Si176

2008
20794
2176
22494
2338
24484

2553
26530
2738
2881¢
2957
3037¢
3131

3199¢
3276
33625
3470
3530¢
3599

3773
3839¢
3908
3987¢
4323
4750
49610

S470¢

5185
S5479¢

5853
59240

57672
5859
59302

5615

69930
7176

64940

846

2130
22260
2296
23754
2481

19884
2062
213340
2229
22994

6799
7031¢

6491

845

1985
20584

6176

60980

67930
7028

SEQ 0148

-- USER SYMBOLS

6057¢
6132
61960

6095

6790
7022¢

11800
15960
16360
17150
17680
18360
18960
19630

4354

45560

S219

6779¢
7019
7637
7640

40270

s211¢

59440

63830

38730

4781

5802

6092¢

35550

4775¢

5799¢

S886

32270

60632
6138
63652
6767

7002¢
7185

2011¢
2085
2179¢
2273
23410
2454
25564
2657
2741%
2884
29600
3042
31344
3205
32794
3373
34730
3535

3602¢
3699
37762
3845
3911¢

4000
43269
4531
47538
4967

51882
5485
56272
S776
S862¢
5933
60082
6068
61412
6371
677
7008
71882

-‘:bb’?‘{h.fi‘.fi‘c‘“" 15’73‘5%45??(:;?52) 15'"“RésasslgéPERschEEv&RPe -~ USER SYMBOLS
FIN20O
FIN21
FIN22
FIN23
FIN24
FIN26
FIN27
FIN3O
FIN31
FIN32
FIN33
FING
FINS
FING

FIN?7

FLAG

007206
007430
007616
007754
010156
010720
011264
011632
011774
012270
012566
004444
004554
004760

2015
2083
2137
2183
2243
2379
2487
2594
2672
2732
2819
1302
1378
1437

20240
209240
21460
2191¢
22520
24150
2523
2630¢
26810
2768¢
2855¢
13464
1386
14540

001042

5828

4046+

005214

1494

002013

43882
4595«
4702+

4400«
4603«
4739

4232«

4412«
4611+
4748

5096+
5325+
S662+
6585+

5105«
5338«
S670«
6596+

6906+

6914

1114
1343

1618

1800

1942
2088
2275

U
)

1123
1366

1625

1807

1949
2117
2283

S299¢
5646+
6568s
6702¢

5312
5654+
65744
6713+

7055+

7063+

7071s

S174
5391+
5733
6639+

5223
S405¢
5768
6649«

5247«
S419s
6524
6660+

S260¢
5465
6534¢
6671¢

6922«

6930«

6938¢

6946+

6988

6997

7032

6803
944

1177
1373

1654

1815

1959
2125
2291

6826«
958

5014+

6834+
967

1210
1383

1230
1406

1822

1832

1660

1987
2132
2298

5023«

6842+
976

5032+

6858+

985

995

1238
1414

1248
1423

1256
1431

1860

1867

1875

1687

1694

1995
2142
2318

2003
2171
2329

1701

3775

3784

6493

6502

509

596

7030

6103
7042

1286
1451

2050
2218
2364

5169
5532
S83S
5978

6097

1005

2020
2188
2353

S003
5521
S828
5972

4564

6866

2010
2178
2340

4991
5510
5804
5966

4555

S050+

1739

4982
5501
5798
5943

3746

4275+

1711

4969
5487
5778
5935

3738

S041s

6850+

3902
4126

166

S286¢
5523
6554+
6692+

5165
5378«
S724
6629+

3896
4114

5273s¢
S474
6544+
668le

5123«
33640
e«
6618+

4993

3885
4034

1152
1527

4587+
4693«
4895+

S114s
S351e
5678«
6607+

4956

3872
4026

7021

4566
4684
4883

4520
4667+
4861+

3864
4010

7010

4529
4675+
4872+

4479
4659+
4850+

3847
4002

6382

8200+

44674
4651¢
4839+

4266+

1882

484+

4192+

4456+
4643+
4828+

2555
2740
2959
3133
3278
3472
3601

6091

4176+

4445+
4635+
4817

2547
2729
2953
3110
3267
3448
3593

4542

4167+«

4434+«
4627+
4806+

2495
2718
2947
3102
3259
3435
3579

3715

4159+

4423»
4619+
4785

4257«

2483
2707
2924
3096
3233
3419
3571

6373

ssssss
ssesss

787

4150+

4249«

2474
2677
2914
3074
3226
3407
3554

6070

FPTS] =
FPTS10=

6765

4140+

4240+

2465
2666
2908
3065
3215
3399
3545

4533

4947

4116

2456
2659
2886
3044
3207
3375
3538
3701

ssesss

4064+

4224+«

756¢

FPPTST=

4055+«

4216+

6756
FPPERR

1525¢

42082

49062+

N8 0

4284

S060+

6874+
1081

1308
1501

4321

5069«

6882+
1089

1316
1509

4330

S078+

6890«

4367

S087s

6898«

7079

1097

1105

1329
1572

1336
1580

1747

1754

1764

1793

2057
2225
2374

2064
2231
2386

2071
2238
2439

2078
2248
2447

1892

1921

1927

1934

2564
2794
2968
3141
3286
3480
3615

2573
2805
2994
3148
3310
3491
3623

2582
2816
3000
3170
3317
3500
3647

2591
2827
3008
3179
3328
3507
3655

3910
4325

3934
4334

3942
4343

3955
4356

3964
4365

3972
4376

398¢
4524

S178
5617
5855
5986

S187
5626
5861
6007

S$201
5633
5882
6013

S210
S728
5888
6019

S221
5737
5894
6027

5232
S746
S$902
6050

5469
S1S?
5923
6056

S478
5766
5929
6062

6511

6760

6769

6778

6792

6801

6813

6392

609

610

756

761

782

877

7233

3759

4578

6111
nn

3768

4743

6134

7178

4752

6140
7187

4761

6146

3801

4774

6154

3809
4783

6178

3822
4795

6185

2602
2873
3030
319,
3356
3516
3666
3831

4951

6195

2652
2880
3036
3198
3361
3529
3674
3838

4960

6364
7001

v‘i‘fi%?fi.m& . 15-M a*&asxswf s
ARE

FPTS11=
FPTS12=

FPTS13=

eessee
seesss

MAC

OA(1052)

U
U

1598
1638

FPTS14=

sseese

sessea U

1665

FPTS1S=
FPTS16=
FPTS17=
FPTS2 =
FPTS2C=

sesese
ssssse
sssnse
seessas
sesess
eecsae
sasess
sssseas
ssssss
eassss
sasese
sessess

1770
1838
1898

U
U

1182
1965

FPTS21=
FPTS22=
FPTS23=
FPTS24=
FPTS2S=
FPTS26=
FPTS27=
FPTSS

2026

2093
2148
2193
2254
2302
2417

ssssss

FPTS30=
FPTS31=
FPTS32=
FPTS33=

esseas
ssease
esasss
assens

FPTSA
FPTSS

U
U
U
U

=
=

sesesess
asssasas

2525
2632
2683
2770

U
U

1261

FPTS6

FPTS7

essasse

sssssa U

FSRCMO=

GNS

HITMIS=

HOP10
HOP11

HOP12
HOP13

sessss U
sassss U

177752

021244
022242

023304

024336

4490

5150+
64752

2857
494

454%

4294
4492

5585

HOP22

036274

H
=
11
HYBRID= 000001

ILL
ILLOP1
ILLOP2
IOTVEC=
KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=

004544
004340
004434
000020
172360
172362
172364
172366
172370

5434

5695
6329
6459
6725
6955

7139

1356
1270
1274
2879
4300
431¢
4320

4330
4340

3561«

3754«

3789«

S711s
7153

S875«

5916+

7553

7554

7555

7556

7557

604

874

7205

7221

3814s

3852¢

5959«

6000«

6043«

3877+

43084

7233

7246

7497

7560

6084+

43800
45792

S238¢

027456

3521e

5599«
6971+

4798¢

4919

HOP16

030144
032464
033106
034532
035622

3485+

5450+
6740«

4712

S133

HOP17
HOP18
HOP19
HOP20
HOP21

SEQ 0150

1348
13%:

025436
027136

151
caoss SE?ERENPAGE
CE n&aLs -- USER SYMBOLS

1215

HOP14

HOP1S

e
a—

16;

1717

U
U
U
U
U
U

FPVEC = 000244

15-MAR-84

50069

55360

5637¢

5782¢
6385¢
6515¢
68170
70460

7192¢
471

1380¢
13040
13400
871s

872+

4507+

6127+

4726+

6168+

4934

6346

VL VORL

ARL

KDJ11A . MAC
KDPARS=
KDPARG6=
KDPAR7=

KDPDRO=

KDPDR1=

KDPDR2=

KDPDR3=
KDPDR4=
KDPDRS=
KDPDR6=

AALT

15-MAR -84

172372
172374

JQUALLIOUODE)

15:51

172376

172324

KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=

172356
172300
172302
172304
172306

4260
397¢
398¢
399¢
400¢

KIPDRS=
KIPDR6=
KIPDR7=

172312
172314
172316

402¢
403¢
4048

172336

LDDM3

172352
172354

172310

= sssses U

6387

6394
6201
6208

= ssssss U

6286
3915

2928

= ssssse y
= sscsse U
sessss U

sssses U

LS3

= ssssss U

5948

LSS
LS6

= ssssss U
= sssses U

6032
6075

= sssses U

6517

LS7

LXpP
LXPSUB

MACE
MACO

U
U
U
U
U

003722

= sssess U
= sssess U

sssess U

034262

002610
002500

6429

6436

6443

6450

6474¢

6214

6220

6226

6232

6238

€244

6250

6256

6262

Tob

723%

.241

7336

7344

6586

6597

6608

6619

6292

6298

6304

6310

6316

6322

63450

6268

6274

6280

0040

6650

6159
2891

LS1

LS4

6422

401¢

ssssse
sssess
sssses
ssssss
ssssss
000012
001060

LS2

6415

0151

424¢
4258

LDDME =
LDOMS =
LDDM6 =
LDDM7 =
LDM27 =
LF
=
LOOPIN

LOST

6408

SEQ

USER SYMBOLS

4150

LCOSUB
032760
LCF
= assese U
LCFSUB
032336

LDC2
LDDM2

6401

4100

4190
4200
4210
a22e
4232

LDC

152

TABLE

409¢

172340
172342
172344
172346
172350

LCD

PAGE

4080

172322

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=

KIPDR4=

16:58

CROSS REFERENCE

4370

172320

4116
412¢
4130
4140

KIPARS=
KIPAR6=

MAR-84

4350
4360

172326
172330
172332
172334

KDPDR7=

2972
3012
3048
3078
3114
193¢
590¢

1160

5866

752

756

76%

1162

1164

1166

1171¢

6555

6565

5907
5991

6116

6525

6661
915
911

6535

6672
918
9130

6545

6682
921

6693
924

6708
9330

6575

€714

673892

GLOBAL AREAS
KDJ11A.MAC
MACOA

MAC1
MAC2
MAC3
MAC4
MACS

002504

002514
002530
002544
002560
002574

MACY11l 30A(1052)
15-MAR-84 15:51
9144

928

1037¢

9162
919¢
922¢
925¢
929¢

MBTE
MBT1
MBT2

003200
002422
002430

1021
883¢
896

MBT8

002656

940

MBT2A

002442

15-MAR-84
16:58
PACF 153
CROSS REFERENCE TABLE

899¢

1022

9470

e b

USER

SEQ 0152

SYMBOL.S

932

MBT8A
MBT8B
MBTBC
MBT8D
MBTBE
MBT8F
MBT8FG
MBT8I
MCLRD
MCLRI
MCMPD
MDDSUB

002712
002740
002766
003014
003044
003074
003110
003134
030214
030306
017542
026636

950
9%1
970
979
988
998
1010
1016
S5809¢
58402
40392
5248

952
964
973
82
992
1002
1012¢
10192

955
92690
978¢
987¢
9974
1007¢

5261

5274

5287

5300

5313

5379

MDFSUB

025126

gg:g.

5024

5033

5042

5051

5061

5106

MDIVD
MDIVF

021244
020056

4381¢
41332

003200

1040¢

4818
4596

4829
4604

4840
4612

4851
4620

4362
4628

49332
4668

MFA

MFACU

MFSRCM

MLCD
MLCF
MLDC

003206
012566

032464
031626
017120

MLDC2
MLDDM2
MLDDM3
MLDDM4
MLDDMS
MLODM6
MLDDM7
MLDM27
MLDSUB
MLFSUB

024074
023042

MLS1
MLS2
MLS3
MLS4
MLSS
MLS6
MLS7
MLXP

030356
030474
030612
030746
031066
031222
031346
033106

MMODD
MMODF
MMULD

031506
012656
012764
013124
013250
013360
013460
013566

025436
024336
023304

5420

5449¢

960¢

1054¢

28572

6387¢
62012
3915¢

6159¢
28912
2928¢
23728
3012¢
30480
30780
31140
4807
4588

4694
58669
5907¢
59484
5991¢
60320
60759
61160
6517¢
52404
S5007¢

47994

4703

47250

-l

GLOBAL AREAS
KDJ11A.MAC

MMULF

MACY11 50“(%052)
15-MAR-8

022242

MMUTST= 000001
MMVEC = 000250

MNGOP

MNNRM1
MNNRM2
MNNRM3
MNNRM4

MNRM

MODD
=
MODF
=
MODGAR

MSB
MSCD
MSCF

MSDF
MSER

MSFD
MSFDI
MSG1
MSG2
MSXP
MUAD

MULF

MUVAD
MXDF 1

015104

013700
014164
014342
014510

016066

asasss U
ssssaa U
025426

5537¢
5783¢
7207
7217
7089¢

MXVDEL= 000001

NGOP
NNRM1
NNRM2
NNRM3
NNRM4

NRM

= asssss U
= sasess U
= sassas U
= ssesse U
= ss288a U

= ssssss U

PARRAM= 000001
PIRQ
= 177772
PIRQVE= 000240

RECFEC

001106

2978

301P

2054

3C34

7233

7497

72338
72412

18
199¢
293¢

RCSR
= 177560
RECDAT
001036
RECDST
001126

877

3679

PWRVEC= 000024
QBUSEX= 000001
RBUF
= 177562

5454

8.4

2220

= 177776

782

3454
3152
3238
3291
3341

= 000300

PSW

761

37192
3380¢

PR6

177776

756

4799

2169
217¢
218¢
2192
2200

= 000340

752

4580

000000
000040
000100
000140
000200

PR7

52364

595

4530

=
=
=
=
=

= 000240

509

7048¢

PRO
PR1
PR2
PR3
PR4

PRS

166

3679¢

S240
S007
5154

027136
030144
036402
036456
035770

016212
014634

SYMBOLS

34540

5639¢

2s2es22 U

SEQ 0153

USER

31522
3238¢
32910
33410

027456

= ssea22 U
=

1¢
2982

3629¢
6819¢

177744

45800

015720
034532

035622

15-MAR-84
16:58
PAGE_ 154
CROSS REFERENCE TABIE

2219

2238

196¢

197

288¢
16
4600

602

197¢

459¢
580¢
6008

3297
3762

4976
5984

2897

3351
3795

5194
2865

2934

3389
3825
5494
5772

2962

3466
3858

5603
6807

3494
3888
S71S
7036

3.
3928

3565
3958

6138

3587
3996

6347

3120

3609
4020
6476

3159«

3638
4108
6741

3160«

3693
4350
6972

3172

3244

7154

7174

3708
4549

3732
4768

GLOBAL AREAS
KDJ11A.MAC
RECST

MACY11l

15-MAR-84 15:51

001116

LI T YY)

SCF
=
SOF
=
SDF SUB
SDPARO=
SDPAR1
=
SDPAR2=
SOPAR3=
SDPAR4=
SDPARS=

SDPAR6
=
SDPAR7=
SDPDRO=
SDPDR1
=
SDPDR2=
SDPDR3=

CYYYYYY
[YYYYYY

027712
172260
172262
172264
172266
172270
172272
172274
172276
172220
172222
172224
172226
172230
172232
172234
172236

SDPDR4
=
SDPDRS=
SDPDR6=
SDPDR7=
SFD
= sassee
SFDI
= ssssae
SFOSuUB
027336
SHMOO = 000001
SIPARO= 172240
SIPAR1= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPAR4
= 172250
SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256
SIPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDR6= 172214
SIPDR7= 172216
SKIPID
036306
SLOCoO 001030
SLOCO1
001032
SRO
177572
SR1
177574
SR2
177576
SR3
172516

SCD
= LLLYY
SCDOSuB
035356

599¢
6058
8740
283¢
S591¢
592¢
3629
6819
6827
6931

5639
5647

7048

%86¢
3870

15-MAR-84
16:58
PAGE 155
CROSS REFERENCE TABLE
5874

Lid

5884

5890

5915

5925

5931

5958

5974

5999

6835
6939

6843
6947

6851
69700

6859
7056

6867
7064

6875
7072

6883
7080

6891

6899

5655

5663

5671

5679

5687

57100

5552
536

5560
7233

5568

5576

5598¢

6015

6042

6915

6923

7230

7627+

7628+

391¢
392¢
3932
3640

365¢
366
3672
3682
3692
3700
3710
5537
5783
S544
1@
375#
3764

SEQ 0154

-- USER SYMBOLS

3882
389
390¢

=4
~4

RESTAR

002410
RESVEC= 000010
SAVSP1
001062
SAVSP2
001064

30A(1052)

3770
3789
379¢
3802

3819
382¢

353¢&
354¢
355¢

357¢

72084

6907

GLOBAL AREAS
KDJ11A.MAC

STACK

START

MACY11l 30A(1052)
15-MAR-84 15:51

= 001000

002200

498

8314

003524
001046

1064
S584¢

1067
847+

1069
849

= 000001

251¢

SuBT
SWR

SWREG

SW00
SWO01
SW02
SWO03
SW04
SWOS
SW06
SWO07
SW08
SW09
SW1
SW10
SW1l
SW12
SW13
SWi4
SW15

SuW2
SuW3
Swa
SWS
SWé
SW7
Sw8
SW9
SXP

SXPSUB

TAB1

TAB10

000176

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

=
=
=
=
=
=
=
=
=

000004
000010
000020
000040
000100
000200
000400
001000
ssasss |

036154

001176

001326

TAB11

001336

TAB12
TAB13
TAB138

001356
001366
001376

TAB11A

TAB14

TAB1S
TAB16
TAB17
TAB18

TAB2
TAB21

TAB22
TAB23

001346

001406
001416
001426
001436
001446

001206
001456
001466
001476

TAB24

001506

TAB26

001526

TAB25

TAB27

7AB28

834

492

STBOT = 001000
STKLMT= 177774

SWO

187¢

15-MAR-84
16:58
PAGE 156
CROSS REFERENCE TABLE

001516

001536

001546

470¢
198¢

496¢

2410
2400
239¢
2380
2370
236¢
235¢
2342
2338
232¢
2509
231¢
2302
229¢
2288
227¢
2268

2498
2480
2472
2469
2458
2442
2430
2420
7089

7096

855

7103

2898

6564

3388

6608

662¢
664¢
668¢

6706

6740
678¢
682¢
6850

3390

7110

2910
3429

3412

3422

3423
3437
3442
3330

3055
3520

3246
3637

3657
3948

2961
3483

695¢

3510

3548

3474
3484

3558

699¢

3557

7034

3605

7014

7124

3020

3409

2936
3462

6974

7117

2916

3401

6140
689¢

691¢
69346

1073
869+

SEQ 0155

USER SYMBOLS

11274

251
250
249
248
247
246
245
244
243
242

61086

652¢

1071
8552

L Wt

3573

3519

3582

3583
3595

7131

3038

71522

3086

3104

3299

N12

GLOBAL
AR

KDJ11A.MA
TAB29
TAB29A

TAB3
TAB30
TAB31
TAB32
TAB33
TAB34

TAB4

TAB40O
TAB41
TAB42
TAB43
TAB45
TAB46
TAB47
TAB47A

TAB48
TAB49
TABS
TABSA
TAB6

TAB6A
TAB?7
TAB8
TAB9
TAGRAM=
TBITVE=
TIMEOU
TKVEC =
TPVEC =
TRAPVE
=
TRPFLG
TRTVEC=
TSD31
TSFP1
TSFP10
TSFP11
TSFP12
TSFP13
TSFP14

TSFP1S
TSFP16
TSFP17
TSFP2
TSFP20
TSFP21
TSFP22
TSFP23
TSFP24
TSFP2S
TSFP26
TSFP27

EAS 157325}&45gg£§g52) 15'"““6335513é?gneze ETngE -- USER SYMBOLS

001556
001566
001216
001576
001606
001616
001626
001636
001226
001646
001656
001666
001676
001706
001716
001726
001736
001746
001756
001236
001246
001256

001266
001276
001306
001316
000001
000014
004424
000060
000064
000034
002122

000014
011662
003650
005214
005450
005560
005634
006004
006150
006400
006572
003742
007006
007206
007430
007616
007754
010156
010320
010720

705¢
707¢
618¢
7100
712¢
7140
716¢
7184

6224
7204

722¢
7244
7268
728&
730¢
7324
7349

736¢

7380

6264
6300
6340

4028
638¢
6429
6464

650&

2848
1272
2912
292¢
290¢

792¢
1778»
2689+
285¢

26430
1152&
1527¢
1598¢
1638¢
16654
1717¢
17702
18382
18984
1182#
1965¢
20264
20934
21484
2193¢#
22549
23024
24174

3604
3617
2979
3688
3687
3703
3704
3695
3261
3727
3791

3854

3904
3924

3936

2996

3002

3280
3728
3816
3879

3751
3853

3752
3878

3930

3947

3951

3992

3298

3649

1267«
2032+

2099+

3991

5815

4004

4016

4118

3158
S822

3245

3790
3363

3815
3364

839»
1188+
1906+

1221»
1971+

3966
3121
3841
2980

6187
3349
3350
3355
874

3668

SEQ 0156

3740

3778

3803

3866

3925

4015

1462+

1533«
2260+

1604+
2308+

1644+
2423+

1673=
2531

26382

13330
838+
1158»
1846+
2776+
2654

1354+

1394«

2154«

2199«

1725+

-—
-

GLOBAL AREAS
KDJ1.1A
MAC

TSFP3
TSFP30
TSFP31
TSFP32
TSFP33

004044
011264
011632
011774
012270

TSFP4

004164

TSFP6
TSFP7

004554
004760

TSFPS

TSF10

TSF13
TSF14

TSF15
TSF16

004444

005410

005774
006150

006370
006562

TSF17
TSF2
TSF20
TSF21

006776
004014
Q07176
007420

TSF23

007744

T1SF22

007606

TSF24

010146

TSFé

004750

TSTLOC

001136

TSF31

TSF?7

011764

0Cs154

MACY11l

15-MAR-84

30A(1052)

15:51

1215¢
2525
26320
26830
27700
12610
1348¢
1388¢
14560
1537
1672
1724
1777
1845
1905
1190
1973
2034
2101
2156
2201
2640
1399
1466

15-MAR -84
16:58
PAGE 158
CROSS REFERENCE TABLE

1577¢
1708¢
1761¢
1829¢
18890
1956¢
1192
2017¢
2085¢
21390
2185¢
2245¢
26740
14480
1506¢
1417
1683
1856

2045

TST1
TSTI0

002422
004554

TST101
TST102
TST103
TST104
TST105
TST106
TST107
TST11
TST110
TST111

031222
031346
031506
031626
032464
033106
034532
004760
035622
035770

TST100

031066

TST12
IST13
TST14
TST1S
TST16
TST17

005214
005450
005560
005634
006004
006160

75720

006400

TST12

003200

2211
2469
2699
2935
5919
6040
6124+«

1194

1196

SEQ 0157

USER SYMBOLS

1201¢

1475

1735
1914

2719
5956+

6130

1484

1741
1917
2108«
2270
2542
2721
2955
5957

6052

6136

1488

1782
1923
2109«
2276
2556
2780
3019
5958«

6081

6142

1555

1789
1983
2163¢
2434

2574

2795
3086
5997
6087

1559

1795

1989
2166

2577
2797
5998+
6093

1611
1796

2038
2205
2451
2583
2806«
5872
6099

1677

1850

2041
2208+
2457

2693
5878
6038

6122

RBOYTR.AREY® 1s"HiRA'4a 308140520
AL

1s121

12155

572

083308

1ST23
1ST24
1ST35
1ST26

007206
007430
007616
007754

1ST3S
TST30
TST31
TST32
TST33
TST3a
TST35
1ST36
TST37
TSTa
1ST40
TSTa1
TST42
TST43
TST44
TST4S
TST46

003650
010320
010720
011264
011632
011774
012270
012566
012656
003722
012764
013124
013250
013360
013460
013566
013700

1ST27

TSTa7
TSTS
TSTSO

TSTS1

TSTS2

TSTS3
TSTSé
TSTSS
TSTS6
TSTS7
TST6
TST60

TST61
1ST62

010156

Ola164
004044
014342

‘

20300
20970
21520
21970

22580

11560
23060
24210
25290
26360
26870
27740
28610
28950
11860
29320
29760
30160
30520
30820
31180
31560

32320
1219¢
32950

015104
015720
016066
016212
017120
004164
017542

34580
36330
36830
37230
39190
12650
40430

33840

41370
43850

TST63
TST64
TST65

022242
023304
024336

45830
48030
50110

TST67
TST7

027136
004444

55410
13520

1ST66

TST70
TST71

1ST72
TST73
1ST74
TST75
1ST76
1ST77

751001
151002

751008
751101

025436

027456
030144

030214
030306
030356
030474
030612
030746

005420
005430

005440
005550

MARCRA. 18aBBo. RABE AR9:

19020

33450

020056
021244

19650

014510

014634

52440

56430
57870

58130
58440
58700
59112
59520
59950

1538
1540

1558
1607

1550
1547

15920
16320

15840
15880

USER SYMBOLS

‘

SEa mS5s

GLOBAL

ARE AS
KDJ1.1A
MAC

152600
TS26D1
TS26D2
1S26D3
1S26D4
TS2605
TS2700
TS2701
1S2702
TSC703
T1S27D4
TS27D5
TS3000
TS3001
TS30D2
TS3003
TS3004
TS3005
753200
753201
TS3203
753204
TS3205
TS33D0
TS33D1
TS33D2
TS3303
TS33D4
TS3305
TS6DA

TS6DAT
TS7DAL1
TS7DA2
TS7DA4

TYPDS

TYPE
TYPOC

TYPON

TYPOS

UDPARO=
UDPAR1=
UDPAR2
=
UDPAR3=
UDPARS=
UDPARS
=
UDPARG=
UDPAR7=
UDPDRO=
UDPDR1
=
UDPDR2=
UDPDR3
=
UDPDR4
=
UDPDRS
=
UDPDR6=
UDPDR7=
JIPARO=

010640
010650
010660
010670
010700
010710
011204
o11214
011224
011234
011244
011254
011552
011562
011572
011602
o11612
011622
012210
012220

MACY11

15-MAR -84

012240
012250
012260 012506
012516
012526
012536
012546
012556

004730
004740
005164
005174
005204
104405
104401
104402
104404

104403
177660
177662
177664
177666
177670
177672
177674
177676
177620
177622
177624
177626
177630
177632
177634
177636
177640

30A(1052)

15:51
2311
2322
2333
2320
2331
2342
2428
25030
2507¢
2440
2458
2476
2536
26100
26140
2548
2566
2584
2694
27488
2700
2711
2722
2781
28350
28392
2787
2798
2809
1408
1400
1467
1469
1487
7219
7207

7554¢

7556
75..0
3429
3430
3440
3450
3460
3470
3480

3490
3200
3210
322¢
3230
3240
325¢
3260
3270
3310

15-MAR-84

16:58

PAGE

160

CROSS REFERENCE TABLE

2319
2330
2341
2355
2366
24110
2499

2346
2357
2368
240350
24074

2354
2365
23990

23910
23950

7289

7411

SEQ 0199

-- USER SYMBOLS

2511¢
2515¢
2519¢
26060
2618¢
26220
26269
27440

2756@
27600
27640
2831¢
28430
28478
28510
1425
1402
1479
1476
1521
7557¢
7217
7639

14392
14432

1513¢
15170
7220

7642

7480

755350

7634

7637

7640

GLOBAI.

AREAS

UIPARL=
UTTMAR2=
VIPAR3=
UIPAR4=
UIPARS=
UIPAR6=
UIPAR7=
UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3~:
UIPDR4=
UIPDRS=
UIPDRG=
UIPDR7=

177642
177644
177646
177550
177652
177654
177656
177600
177602
177604
177606
177610
177612
177614
177616

MACY

KDJ11A.MAC = 15 MAR
84 15. 89>

UVAD

WLOTRP

XBUF
=
XCSR
=
XDF1L
=
$APTHD
SASTAT=
SATYC
$ATY)
SATY3
SATY4

$CHARC

assesa

002106

177566
177564
sesesss
000204
sssssas U
037624
037600
037606
037616

037032

SCKSWR= sesasss U
SCMTAG= ss28ea U
SCPUOP
001026

SCRLF
$DBLK

$DEVCT
SDOAGN

$DTBL

002077
037272

001010
036372

037262

SENDAD
SENDCT
SENULL

036362
036330
036376

SENVM

001021

SENV

SEOP

SEOPCT
SERFLG
SERROR

SETABL
SETEND
$SFATAL

SFFLG
SFILLC

SFILLS

001020

036274

036322
001052
040046

001020
001030
001002

040044
037050

037047

SGET42
036352
SGTSWR= ssssss U

$HD

SHIBTS

SLF
SLFLG

= 000003
000204

037053
040043

30A(1052)

15-MAR-84

16:

cROss 'REPEReNPAGE
CEE TABLE - user symeoLs

3320
3332
3342
335¢
3360
337¢
338¢
309¢
310@
3112
3122
3132
3140
315¢
3160
3719

7832

4620
4610
3380
518
7594
7565
7563¢
7274
75669

7291+

3789

3852

S24¢
7609

75678

7564¢
7645

7301«

7308

840

842

7664
7377

7290
7411

7351
74198

7380

74150

7222

72280

7560
834
5622

553¢
7213

S05
841
7220

558¢

559¢

72049

72240
72150
7231¢

7269
867

841»
586¢
836

7212@
842+
871

7563+
7294

5690
7600
7566+
73480

S57¢
530
550¢

73470

72210
7559

175

176

7351¢
7604+

76100

5250

7572

7334+

73390

7596

7643

7271

7276

7216
7621
7621@

7622

7594

7603+

574

76110

%0 0 o160

GLOBAL AREAS
KDJ11A.MAC
SMATL
$MBADR
SMFLG
$MSGAD
$MSGLG
$MSGTY
SNULL
SNWTST
=

MACY11l

15-MAR-84

001000
000206
040042
001014
001016
001000
037046
000001

30A(1052)

15:51

526
5260

7564+

555
556¢
S549¢
7296
8840
1639¢
24180
3153¢

4581¢

SSWR

sssnse

YTy

FYYY

YTV Y

7452+
7447«

€CCcc

037524
037526
001006
000212
040214
037052

60330

036374
sessse
ssasen

000126
177777
000204
160000

SOCNT
$OMODE
$PASS
$PASTM
SPATCH
$QUES
$ROCHR
=
$RDDEC=
$ROL IN=
$RDOCT=
$RTNAD
SR2A
=
$SAVRE
=
$SETUP=
SSTUP =
$SVPC =

5529
S28e

$TKB
$TKS
STN

037040
037036
= 000112

530

5484

859

7570
7580+

7605«
7583

76090

7578
73460

7586+

7598

7602+

10410
1718¢
26330
32920

11530
18392
27710

33810
5538¢
62020

CROSS

7585~

886
16660
25268
32390

"R PERENCE TABLE - - USER SYMBOLS

6076¢

6117¢

840+

866+

7459«
7205

7470
7209+

835

836

838

840

508
1760
1644
2423
3158
4586
6038

843
1671
2531
3244
4805
6081

895
1723
2638
3297
S013

1050
1776
2689
3347
5246
6165

869
874«
1670+
2530
3243e

894
1722«
2637«
3296+

7481+
7451«

5008¢

749490
7456

SEQ 0161

7269

1043
17710
26840
33420
S241¢
61600

48009

S’

PAGE

1183¢

18990
28580
3455¢
56400
63884
74960

7210+

12164
19664
28920
36300
57844
65184

12624
20274
29290
36800
58100
68200

7218

7231

13494
20940
29730
37200
58414
704940

13894

21499
30130
39160
58674
70900

14574
21949
30494

40404

5908¢

1528
22550
30794

1599¢
23036
3115#

41340
59499

43824

1462
2199

1533
2260

4045

4139

7201

7209

1532+
2259«
3083«

1603»
2307
3119+

59924

7560
7560
7230¢
7560

7560

471
471¢

S03¢
175
1604
2308
3120

5997

001022
001004

-84

7651¢
73500
7560
7560

4387
S$SWREG
STESTN

15-MAR

7223

5609
S551¢
1643+
2422+
3157+
4585+
6037+
7315
7313

175¢
1349
1671¢

2094
25310
2973
32449
3720

4805¢
5841

60814

7229

4804+

7231

5012+

6122

1049«

177Se

2688
3346+
5245+

2775
3385+
5542«

6164+

6206e

884
13540
1718
2099¢
2633
29780
3292

895¢
1389
1723¢
2149
2638¢
3013
3297¢

1041
13940
1771
21540
2684
3018¢
3342
39210
S241
S872¢

1050¢
1457
17768
2194
26890
3049
3347¢
4040
52460
5908

37254
5008
58460
6117

3916
S0130
5867
61220

6160

7054

1157

6121+

73430
73420

2978
3725

1843.

6080+
7322
7320

1354

61650

1353«
2098+
2977«
3724+
5845

1393
2153+
3017«
3920«
S5871e

1188¢
1599
19040
2303
28630
3115

1216
1604¢

7053«

1158¢

40450

59130

6202

18440
2255
27768
3079
33860
4134
55430

5949

62070

4382

S645¢

6393¢

7094«

23082
2892
312090
3630
43879
S784
59972
6518

1394
2154
3018
3921
5872
7095

1461+
2198+
3053»

3044

5912«

5913

4138+

5953+

12218
163¢
19712
2418
28972
3153

1262
16442
2027
24232

4581

45862

57892
6033

65232

31582

S810
6038¢

4386+
S996+

12672
1666
20322
293a2
3239
3685¢

4800

58152
6078
68252

LLOBAL AREAS
KDJ1.1A
MAC

$TPB
$TPFLG
$TPS
$TRAP
$TRAP2
=
$TRP
$ TRPAD
$TSTM
STSTNU=
$TYPBN=
$TYPDS
$TYPE
STYPEC
$TYPEX
$TYPOC

037044
037051
037042
037530
037552
000006
037564
000210
000001
LYTTYey

037056
036502
036714
037034
037326
$TYPON
037342
$TYPOS
037302
SUNIT
001012
SUNITM
000214
SUSKWR
001024
SXOFF = 000023
$XON
= 000021
$SGET4= 000000
SOFILL
037525
S40CAT
000000
040234

7049
7331+
7263
7329

838

4200

. $X

000204

70542
73450
73490
73440
7505¢

7090

70954

75544
7552¢

75554

75564

7553

7591
7312¢

7516¢
7545¢
7510
S27¢
4640

7552

7365@
7263¢
7293

7557
7545
7300
7337
7554
7452¢
7555

7558

7335
74502
7449
74459

5540
S529¢
5612

7317
7324
72238
7446+

489¢

4742

536¢

7344

.SASTA=
=

'8a°18:80%%7 12 AR eRGs s REPEReRcAR
E®

7564
,5142

7307

73400

USER

75574

75584

S04¢
S598¢
7348

S506¢
5990

SEQ 0162

SYMBOLS

7556

7344
7344

7450+
490

5379

7345
7567

519

7460
4940

74958

7346

503
5970
7347

531

536

5960

7349

S08¢
6000

7350

514
6090

7351

515¢
7680

73520

S17¢

7231
74192

519¢

7232¢
76122

531¢

7342

76522

5322

7343

LLOBAL AREAS
KDJ11A MAC

B8GNMOD
BGNSUB
BGNTST

CxkLOOP
COMMEN

DEFPRG
ENDCOM
ENDMOD
ENDPAS
ENDSUB
ENDTST

ERRDEF
ERRDF

1608
161¢
1600
1774
2861
3683
5870
160¢
29428
1¢
2948
1602
7195¢
161&
160¢
1825
2889
3718
5905

159¢
1602
1175

1404

1699
1880
2062
2245
2463
2705
2951
3139
3315
3514
3699
3870

4112

4750

5208
5744
S2%e¢7
6089
6500
ERROR

7176

188¢
1175
1404
1699
1880
2062
2246

2463
2705
2951
3139
3315
3514

MACY11 30A(1052)
15-MAR-84 15:51

15-MAR -84

16:58

PAGE

165

CROSS REFERENCE TABLE

SEQ 0163

-- MACRO NAMES

876

893
1842
2895
3723
5911

1048
1902
2932
3919
5952

1156
1969
2976

4043

5995

1186
2030
3016

4137

6036

1219
2097

3052
4385

6079

1265
2152

3082
4584

6120

1352
2197
3118

4803

6163

1392
2258
3156
5011
6205

1460
2306
3242
5244
6391

1531
2421
3295
5541
6521

1602
2529
3345
5643
6823

1642
2636
3384
5787

1669
2687
3458
5813

1721
2774
3633
5844

1662
2670
3452
5807

2730
3626

1704

1757
2817
3677

7052

7093

7194
7217

1038
1885
2926
3913
5946
785

1208
1412
1708
1889
2069
2273
2472
2716
2957
3146
3326
3527

3713

3883

1150
1952

2971
4037

5989
941
1228
1421
1737

1919

2076
2281
2481

2727
3168
3334
3536
3736
3894
4323

4124
4759

4772

6509

5764
5941
6101
6758

1412
1709

942
1228
1421
1737

5219
5755
5933
7185
785

1890
2069
2273
2472
2716
2957
3146
3326
3527

1919

2076
2281
2481
2727

3168
3334
3536

1300
2181
3113
4711
6157

1791

7087

7138

1103
1364
1658
1858
2017
2223
2437
2657

i112
1371
1685
1865
2048
2229

3100
3276

3108

3653
3836
4562

S176

6371

7028

1103
1364
1658
2018
2223
2437
2657
2912
3100
3489

3653

2445

3498

3845
4573

5185
5726
5900

7040

1112

1371
1685
1865
2229
2445
2922
3108
3284
3398

1121
1380
1692
1873
2055
2236
2454
2674
2945
3131
3308
3672
4032
4741

5199
S735
5921

6491
7169

1121
1381
1692
1873
2055
2236
2454
2675
2945
3131
3308
3505
3672

GLOBAL AREAS
KDJ11A.MAC

3699
3870

4112
4750

5208
5744
S927
€089
6500
ESCAPE

FPP1MS

FPP2MS
FRONT
FRONT1

GETPRI
GETSWR
IDMSG
MULT
NEWTST

POP
PUSH
REPORT
SCOPE

SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

7176

2948

883

1040¢
1¢
1&

2944
2948
71952
2942
159¢

1717
2770
3630
5841
2942
2942
2942
1892

2942
7520¢
159¢
2942
2942
2942
2942
1185
1639
2029

2633
3015
3381

SWRSU
TAIL
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM

TYPOCS

TYPOCT
TYPTXT
$SESCA

4136
5784
6035
7049
2948
12

75422
294¢
2944
2944
2944

2944

2944
2944
2944

MACY11

SOA(IQSZ)

3713
3883

3736
3894
4323
4772
5230
5764
5941
6101
6758

15-MAR-84

4124
4759

5219
5755
5933
6095
6509
7185

15:5

15-MAR

58
PAGE
ENCE TkBLE -- MACRO NAMES
'RéFER
cRoss

3744
3900
4332
4781

5467
5776
5964
6109

6767

3757
3908
4341
4793
5476
5796

5970
6132
6776

3766

3932

4354
4949

5485
5802
5976
6138
6790

3773
3940
4363

4958

5499
5826
5984
6144
6799

3782
3953
4374
4967
5508
5833
6005

3799
3962
4522

4980

6811

5519
5853
6011
6176
6990

1261
2148
3079

1348
2193
3115

6152

SEQ 0164

3807
3970
4531
4989
5530
5859
6017
6183
6999

3820
3984
4540
5001

5615

5880
6025
6193

7008

3829

4000

4553
5167
5624
5886
6048
6362

7019

3836

4008
4562

5176
5631
5892

3845

4024
4573

5185
5726
5900

6371

6380

1598

1638
2632
3381

7028

7040

3862

4032
47a1

5199
5735
5921

6058
6491
7169

886
1043

1562
7205

2948
1770
2858

5867
7406
7365

7545
2942

S01
1216
1641

2635
3049
3383

4382
5786
6076
7051
8432
7195

7218

1838
2892

1041
1898

1152
1965
2973

3720
5908
7606
7567

3916
5949
7607

4040

7569

7590

7554

7555

7556

833

5992

1182

3013

4134
6033

4581
6117

6160

1389
1773

1391
1839

1666
3051
3455
4384

3153
5008

6202

1456

1527
2417

5241
6388

5538
6518

2302
3239

3342

5784

7049

1665
2683
3455
5810
7090

7557

S11

1218

1388

3153

5810

6078

7422

2257

2892
3155
3720
5010
5908
7499

1047
1528
1901
2418
3918
5538
5951
6518

1153
1530
1966
2420

2973

5540

5992

€520

1155

1183
1601
2027
3013
3344

4134

6033
€822

GLOBAL AREAS
KDJ11A.MAC
$SNEWT

$SSET
$SSETM
$ $SKIP

.EQUAT
.HEADE
JKT11
.SETUP

.$SACT1

.$APTB

. $APTH

. $APTY
. SEOP
. $ERRO

. $SREAD

. $TRAP

.$TYPD
.$TYPE

.$TYPO
. $40CA

ABS.

MACY11l

30A(1052)

15-MAR-84 15:51

2942

1771
2858
3680
5867

75264
859¢
2940

1592
161¢
1592
161&

1612

159¢

161¢

162¢
159¢
162¢

162¢

161¢

1602
1602

1622
159¢

040234

ERRORS DETECTED:

884
1839
2892

3720
5908
7545
866

1041
1899
<929
3916

5949

7554

15-MAR-84
16:58
PAGE 167
CROSS REFERENCE TABLE

1153
1966
2973
4040
5992
7555

1183
2027
3013
4134
6033
7556

1216
2094
3049

4382

6076
7557

1262
2149
3079
4581
6117

SEQ 0165

-- MACRO NAMES

1349
2194
3115
4800
6160

1389
2255
3153
5008
6202

1457
2303
3239
5241
6388

184
166
294

471
499

544
509
7560
7196
7497
7353
7246
7420
472

000
©

CZKDLB/EN:ABS,CZKDLB.SEQ/CRF /DOC/SOL/NL : TOC=SYSMAC . SML /ML , CZKDLB
. MAC/ML ,KDJ11A . MAC
RUN-TIME: 249 141 10 SECONDS
RUN-TIME RATIO: 539/400=1.3
CORE USED:
52K
(103 PAGES)
DOCUMENT PAGES:

165

1528

2418
3292
5538
6518

1599
2526
3342
6820

1639
2633
3381

5784
7049

1666
2684
3455
5810
7090

1718
2771
3630
5841