Digital PDFs

XX-2AE2B-0F

July 1985

448 pages

Original

157MB

view download

OCR Version

174MB

view download

Document:	CVMJAA0 MSV11-J MSV11-J MEMORY DIAG AH-U136A-MC JUL gray
Order Number:	XX-2AE2B-0F
Revision:	0
Pages:	448
Original Filename:	CVMJAA0__MSV11-J__MSV11-J_MEMORY_DIAG__AH-U136A-MC__JUL_1985_gray.pdf

OCR Text

MSV11-J

MSV11-J MEMORY DIAG

CVMJAAD

AH-U136A-MC

10F3 JUL 1985

Hlfin
MADE IN USA

MSV1 1 'J

MSV11-J MEMORY DIAG

CVMJAAQ

AH-U136A-MC

20F3 JUL 1985

Hman
MADE IN USA

MSV1 1 ‘J

MSV11-J MEMORY DIAG

CVMJAAOQ

AH-U136A-MC

30OF3

JUL 1985

Hmum

MADE IN USA

> w
e

| A ;;CVMJUAAOQ MSV11-u MEMORY DIAG.

Bl
MACRO V05.01b Fridey 15-Feb-85 16:10

Page 3

SEQ 0001

.TITLE CVMJAAQ MSV11-J MEMORY DIAG.
.NLIST TOC
.REM
IDENTIFICATION
PRODUCT CODE:

AC-U135A-MC

PRODUCT NAME:

CVMJAA MSV11-J MEMORY DIAGNOSTIC

PRODUCT DATE:

MARCH 1985

MAINTAINER:

E.S.D.

The information
without notice

METHODS

in
this
document
is
subject
to
change
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 manual.

The software described
in this document is furnished to
the
purchaser
under
a
license
for
use
on a single computer
system
and can be
copied
(with
inclusion of Digital's

cogzru
t notice) only for use in such system, except as may
otherwise be provided in writing by Digital.

Digital Equipment Corporation assumes no responsibility for
the use or relin@n!otx of its software on equipment that is
not supplied by Digital.

1985 Digital Equipment Corporation

CVMJAAQ MSV11-J MEMORY DIAG.
42
43
a4

MACRO V05.01b Friday 15-Feb-85 16:10

Page 4

OPERATIONAL SWITCH SETTINGS
SWITCH REGISTER DEFINITIONS
*

SWITCH

XK=

emmmme

+
.

15
12

HALT ON ERROR
LOOP ON TEST

o
|

.
.

11
10

QUICK VERIFY
BELL ON ERROR

.
.

.
.
.

13
12

9
8
7

5
3
3
2
1
0

USE
|

eesssccsssssssssame--

INHIBIT ERROR TYPEOUTS
INHIBIT RELOCATION

LOOP ON ERROR
HALT PROGRAM (UNRELOCATED
DETAILED ERROR REPORTS

INHIBIT CONFIGURATION MAP

;

RESTORE LOADERS)

LIMIT MAX ERRORS PER BANK
FAT_TERMINAL (132 COLUMNS OR BETTER)
TEST MODE - SEE DOCUMENT
TEST MODE - SEE DOCUMENT
TEST MODE - SEE_DOCUMENT
DETECT SINGLE BIT ERRORS

70
71
72
73
74

Page 5

SEQ 0003

TABLE OF CONTENTS

65
66
67
68
69

MACRO V05.01b Friday 15-Feb-85 16:10

VBUNE © N © N © © Wk © NBWN- © UubW- ©

CVMJAAQ M5V11-J MEMORY DIAG.

GENERAL PROGRAM INFORMATION
Program Purpose (Abstract)
System Requirements
Related Documents And Standards

Diagnostic Hierarchy Prerequisites
Assumptions

OPERATING INSTRUCTIONS
Looding and Starting Procedures
Default
Test Sequence
Special Environments

Program Options

Execution Times
ERROR INFORMATION

Error Reportin
Error Abbreviations
Error Halts
PROGRESS REPORTS

CSR INFORMATION TABLES
MSV11-J CSR
MSV11-L/P CSR

SUB-TEST SUMMARIES
Tests
Patterns

PROGRAM FEATURES
Fast Data Access Rates

Bank Zero Testing
Memory Configuration Map
Everything You've Always Wanted To Know About SUPERMAC ...

Memory Management Mapping

MACRO V05.01b Friday 15-Feb-85 16:10

[V F

Page 6

1.0

GENERAL PROGRAM INFORMATION

1.1

Program Purpose (Abstract)

SEQ 0004

a. ;ntingeg for use on all PDP-11/23/238/73's which

meet

the

conditions

in1.2.1.

b. This program will be used by system

managers

and

operators to

determine the correct operation of main memory and also it will
be primarily used by field service and manufacturing
to
isolate

ooPO

- et Bt B

s e et e et ot Pt e

N -2 12 et ot ot et et Pt ot i

NCVIBWN-O

CVMJAARQ MSV11-J MEMORY DIAG.

failures
to the memory and to
to the correct card.

isolate failures within the memory

c. The object of this software is to functionally
all main memory functions as fast as possible.

test

and

d. There is the capability of testing mixed configurations
and MSV11-P) on the system.
e.

1.2
1.2.1

verify

(MSV11-L,

It has a special maintenance mode (Field Service Mode) to provide
specific functional capabilities.

System Requirements
Hardware Reguirements PDP-11/23/238/44/83/84 CPU with 18/22 bit addressing

and at

least 64K (16 Bit Words) of Memory and Memory Management.
kkkkkk NOTE skkkkk

Like memory txpes must be on 16K word boundaries
starting at physical address 0.

REFERENCE KTJll document for proper configuration
of unibus memory for 11/84

- CVMJUARO MSV11-J MEMORY DIAG.

MACRO V0S5.01b Friday 15-Feb-85 16:10

Page 7

SEQ 0005 |

1.2.2

Software Requirements -

This program is designed to run
following monitors:

stand

alone

under

any

XXDP+

ACT
APT

1.4

Microcomputers and Memories (EB-20912-20)

PDP-11/23 User's Guide

MSV11-J Users guide

Related Documents And Standards

MSV11-L Users Guide

1.3

MSV11-P Technical Manual

Diagnostic Hierarchy Prerequisites

If the program in any way misbehaves, then:

Inhibit relocation (reference section 2.4.1)

Try CPU Diagnostics

it again with Cache off (reference Section 2.4.3.1)

Try Memory Management Diagnostics

Try

Try Cache Diagnostics (where applicable)

Try QBUS Map Diagnostics (where applicable)

the

——

- CVMJUAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 8

SEQ 0006

Assumptions

1.5

This progran
assumes
the
correct
Menagement,
Cache,
and
the
QBUS

(initially) Bank 0 (0-16K).

2.0

OPERATING INSTRUCTIONS

2.1

2.1.1

operation of
the
CPU,
Memory
Map.
This program occupies

The XXDP+ loaders are

bank 1.

Starting Procedures

Quick Starting -

Load address 200

Set switch register for options (normally 0)
Start

NOTE

BE SURE
that the peripheral page jumper (where applicable)
is in
place;
failure to do
so sends
the diagnostic to
Never-Never Land.

Stopping -

2.1.2

Set SW8, and/or

Type control "C" (Reference section 2.4.4.1).

2.1.3

Restarting (Preserve Configuration Table) 1.

Load address 202

Set switch register for options (Normally 0)

Start

—

o ——

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 9
SEQ

251

252
253
254
255
256
gg;

259

260
261

2.1.4

SWITCH

eeeeee

Switch Register Options |

USE

eececceccceccscncoea-

262

HALT ON ERROR

264

INHIBIT ERROR TYPEOUTS

263

265

266

267
268

269
270
271
272
273
274
275
276
277

14
12

10
9

8
7
6
5
4
3
2
1
0

LOOP ON TEST

INHIBIT RELOCATION

QUICK VERIFY

BELL ON ERROR
LOOP ON ERROR

HALT PROGRAM (UNRELOCATE RESTORE LOADERS)
DETAILED ERROR REPORTS
INHIBIT CONFIGURATION MAP
LIMIT MAX ERRORS PER BANK
FAT TERMINAL (132 COLUMNS OR BETTER)
TEST MODE - SEE DOCUMENT
TEST MODE - SEE DOCUMENT
TEST MODE - SEE DOCUMENT
DETECT SINGLE BIT ERRORS

0007

CVMJUAAQ MSV11-J MEMORY DIAG.

,
!

MACRO V05.01b Friday 15-Feb-85 16:10

Page 10

SEQ 0008

279
280
281
282

283
284
285

2.2

288
289
290
291

The following two lists 9ive the test protocol for parity and ECC
Memory.
Tests marked with a "*" are not normally run except under ACT
or APT,
or through a Field Service Ccmmand (Reference Section
2.4.4.8).

587

292
293
294
ggz
297
ggg

300
301
302
303
304
305

2.2.1

Default Test Sequence

Test Protocol For MSV11-L/P
Test

Test Name

34
6
17

Soft Error Test
Initial Data Test
Holding 1's and 0's Test
Address Bit Test
Address Test
Complement Address Test

<1
<1
<1

Notating 1's Test

306
307

7
1
2
3
-

309

308

310
311

312
313

Parity Memory -

35
* 22

* 23
26

Time (sec/16K)

3 XOR 9 Test
Rotating 0's Test

Marching 1's and 0's Test

<1
<1
<1

1
1

Worst Case Noise Parity Test
Refresh Test

n/a
10

Shifting
Random

Di
Data

al Test
Test

10
<1

314

* 24

Fast Galloping Pattern Test

316

* 32

Write Recovery Test

315
317

318

319

320
321
322

* 31

* 33

Sob-a-long Test

Branch Gobble Test

Soft Error Test

- CVMUAAO MSV11-J MEMORY DIAG.

5
i

MACRO V05.01b Friday 15-Feb-85 16:10

Page 11

SEQ 0009

324
325

326
327

ggs

2.2.2

Test Protocol for MSV11-J ECC Memeory

ggg

Pattern

332
333
334

34
6

Rotating 1's Test
Soft Error Test
Initial Data Test

1
<1
<1

336
337
338
339
340
341
342
343
344

14
45
36
20
37
41
42
43
46

Basic Double Bit Error test
Syndromes in CSR on DBE test
Correction code test
Syndromes in CSR on SBE test
Check ECC Disable Test
Address to CSR on DBE test
Extended address to CSR test
Byte write test
Check SBE with ECC Disable test

<1
<1
1
1
<1
1
<1
<1
<1

349

Address Test

335

345
346
347
348

47
10
17
7

Pattern Name

Shifting check bits thru the CSR

No CSR update on SBE with DBE test
Byte Address Test
Holding 1's and 0's Test
Address Bit Test

350
351

2
4

Complement Address Test
Rotating 0's Test

353

Marching O's and 1's Test

Random Data Test

352

354

* 22

356

* 24

358
359

* 32
* 33

355
357

360

i
ggz
365
366
367

* 31

Time (sec/16K)

Rotating 1's Test

<1
<1
<1
<1

<1
1
1

Refresh Test

Fast Galloping Pattern Test

Write Recovery Test
Branch Gobble Test

<1
35

Sob-a-long Test

Soft Error Test

@ - Run only on the first Pass when under ACT or APT
At the end of each Pass the program will run cleanup Patterns
#30, and #27 for all banks.

. CVMUAAO MSV11-J MEMORY DIAG.
369
370
371
372
373
374
375
376
377
378

MACRO V05.01b Friday 15-Feb-85 16:10

2.3

Page 12

SEQ 0010

Special Environments
XXDP+

2.3.1

The first pass will be a quick verify pass
chain mode.

2.3.2

ACT

if and only

the

I1st

APT Automatic Mode -

The program will not create double bit errors (DBE's)

after

pass.

2.3.2.1

APT Execution Times -

Here are some measured execution times for an 11/23B under APT
1st QV Pass

2nd Pass

1024K MSV11-J

30 min

256K

MSV11-L

20 min

128K

MSV11-P

20 min

The first pass will be a quick verify pass

NOTE
Even though the first pass is a QV
pass
it
takes
longzz
than
the
subsequent
non-QV pesses
to the fact that it is
running
more
patterns,
some
of which

(patterns #24 and #33 for example)
be extrememly time consuming.

can

onward

| CVMUAAQ MSV11-J MEMORY DIAG.

l
!

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 13

SEQ 0011

422

2.3.2.2

424
425
426
427
428
429
430
431
432
433
434
435
436
437
438

The following table gives some of the standard settings
for
the
E-Table.
They may be modified as noted as the user sees fit.

423

APT Environment Table -

FIRST PASS RUN TIME:

This parameter should be set according to the amount and type

APT

memory to be tested.
The above table (APT Execution Times)
gives some
measured times.
For any patterns deleted (through use of the Device
Descriptor Words) reference section 2.2 for individual pattern times.
NOTE
The times given in section 2.2
are
for
16K chunks of memory, not 128K boards!

439

440
441
442
443
444
445
446
447
448
449
450
451
452
453

454
455

456

457

458
459
460
461
462
463
464
465

LONGEST TEST TIME:
This parameter should be set to the execution time of the longest
Battcrn being run.
for the default case this is 35 seconds for
attern #33.
ADDITIONAL RUN TIME:

Not Used By Program.

SOF TWARE ENVIRONMENT
:

For APT auto mode this parameter should be set

dump mode set this to a "0",

SWITCH 2:

This switch, if set to any non-zero number, is used to limit

amount

passes

APT

will

468
469
470
471
472
473
474
475

CPU OPTIONS:
Not Used By Program.

a77

a78

"1".

For

SWITCH 1:
The default setting of this switch is "101".
APT
uses
this
as
the switch register for the program.
Reference section 2.4.1 for more
information on switch settings.

count has been reached.

476

ENVIRONMENT MODE:
When this garaneter is set to_a "0" the
program does
it's
own
sizing.
If the users sets bit #7 however, he must specify the types
and amounts of memory to be tested.

466

467

MEMORY TYPE n

log

make.

the

The program will hang after this

(n=1 to 4)

If bit #7 of ENVIRONMENT MODE is set these four words are used to
the different types of memory to be tested.
If bit #7 is not set

these location are not used.
MAXIMUM ADDRESS n

(n=1 to 4)

These four words are used in conjuntion

with

the

corresponding

- CVMJAAQ MSV11-J MEMORY DIAG.

481

MEMORY TYPE
occupies.

words

Page 13-1

SEQ 0012

indicate the highest address that memory type

482

483

484
485
486
487
488
489
490
491
492
493

494
495
496

497
498

NOTE
The above two parameters do not actually

have

configuration

represent

program
looks
for
of memory amount!

memory.

accurate

All

the

is an accurate tally

INTERRUPT VECTOR n
(n=1 to 2)
Not Used By Program.

BUS PRIORITY n

(n=1 to 2)

Not Used By Program.

BASE ADDRESS:
Not Used By Program.
DEVICE MAP:
Not Used By Program.

CONTROLLER DESCRIPTOR CODE n
Not Used By Program.

s e

Lok« BT 4% F

s e p

47 1.5}

511

vttt

479

480

MACRO V05.01b Fridey 15-Feb-85 16:10

520

(n=1 to 2)

DEVICE DESCRIPTOR CODES:
The Device Descriptor codes are used bx the program to determine
which patterns it will run.
The default values of these words are all
“1"'s, indicating that all of the patterns shown in section 2.2 are
executed (save for exceptions as noted there).
Each set of words
controls a table in the program as follows:

DD WORDS

PROGRAM TABLE (Symbolic location)

Words 0-1

MKCSRT

Words 2-3

MKPAT

Words 4-5

MJPAT

Bit #0 set in the first word indicates that the first pattern
in the
table will be executed, bit #1 the second, bit #2 the third,...
bit
#0 of the second word indicates that the 17th entry in the table will

be executed,

and so on.

——

¢ VMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

2.3.3

Page 14

No SBE Free Banks -

If the program cannot find any SBE (Single Bit Error)
free locations
(in non-protected ECC nenorx) it will print out an error message and

continue testing by-passing the ECC logic tests.

2.3.4

Mixed Parity

ECC Configurations -

The program will
function normally
in mixed environments.
The
sequence of testing may seem strange due to the recursive test mode
algorithm (reference sections 2.4.1.1, 2.4.1.2,
2.4.1.3).

SEQ 0013

— ——

—

——————
—

{

CVMJAAQ MSV11-J MEMORY DIAG.
550
551

MACRO V05.01b Friday 15-Feb-85 16:10

2.4
2.4.1

Page 15

SEQ 0014

Program Options
Switch Register Details -

If a hardware switch register
is not
available then the
software
switch_ register
is
in location 176.
IF under APT if BIT7 is set in
the E-TABLE s
lic location "$ENVM" the APT software switch register
will be used
(location $SWREG).
To change the software switch register contents:
T;fla
“control
G".
This
will
cause
display the current value of the
and prompt for
the octal input of the new SWR value from the terminal.
This
routine
will
ignore you
(not respond to control “G") if you have a hardware
switch register.

SW15S

= HALT ON ERROR
(100000)

Continuin? from this halt will first check for a chan
in the software switch register ("Control G"
input buffer) then it will
continue testing.

Sui4

in the TTY

= LOOP ON TEST
(40000)
This will cause looping on the

present test or

pattern

(back
to last scope trap).
If in a pattern then the
looping will be for an entire bank of 16K addresses.
SH13

= INHIBIT ERROR TYPEQUTS
(20000)
This will cause returns from the error routine
without
the
typed messages.
Other on error functions are not
affected.

SW12

= INHIBIT RELOCATION

(10000)

This prevents the program from moving and
prevents
the
program
from
testing
at

consequent1¥
least 32K o

memory
.

SW11

= QUICK VERIFY
(4000)
If this switch is selected approximately one 64th of
the possible combinations of SBE's DBE's are tested.
Each pass complete typeout will

preceding the pass number with

indicate this

"QV".

mode

CVMJUAAQ MSV11-J MEMORY DIAG.

€04

ggz
607
608
609

610
gié

MACRO V05.01b Friday 15-Feb-85 16:10

SW10

SW9

613
gi;

616
617

Page 16

SEQ 0015 i

= BELL ON ERROR
(2000)

This causes a bell (or beep or
trap

click)

each

error

= LOOP ON ERROR
(1000)

This will cause looping from failure point back to the
last co ~ectly initialized area of the current test.

SuW8

= HALT PROGRAM
(400)

618
gég

This

ggg

If program is relocated it moves back to bank zero.

ggz

Flush out all possible DBE's.

ggz

Turns off Memory Management.

gg;

Restore loaders.

g§3

Unmap the Unibus Map (if there is one).

235

Halt if under APT or ACT branch sel.

633
634

635
ggg

SW7

638

initiates the following sequence:

= DETAILED EK.20R REPORTS
(200)
After any normal error

typed

this

2:1

RX. R1, R2, R3, R4, RS, SP, "CONTROL", "CPUERR"

SWé

646

652
653
ggg

option

of the following registers to be

ped:

= INHIBIT CONFIGURATION MAP
(100)
This

g:;

649
2%?

contents

:aus:s

643
2:;

the

report

gzg

inhibits the printing of a map

configuration - reference section

SWS

showing the

7.3

memory

= LIMIT MAX ERRORS PER BANK
(40)
This will limit the number of error typecuts per bank.
The default
is 10.
DECIMAL, however this can be
changed by changing location "ERRMAX" manually.

——

————
.

————

Page 17

= FAT TERMINAL

SW4

(20)

This

informs the program that the console terminal

a width of at least
SW3-1

has

132 columns (LA36 with wide paper).

= TEST MODE

Test modes determine the recursion algorithm to be used
during pattern tests.

~NoONBH WO

= NHBNNO
BN
O

MODE NAME DESCRIPTION
e lalalalelalale

CVMJAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

—

BAFPAF

Banks forward, patterns forward

PAFBAW
PARBAF
PARBAW

Patterns forward, banks worst first
Patterns reverse, banks forward
Patterns reverse, banks worst first.

BAFPAR
BAWPAF
BAWPAR
PAFBAF

Banks forward, patterns reverse
Banks worst first, patterns forward.
Banks worst first, patterns reverse.
Patterns forward, banks forward

So: ?oge details reference section 2.4.1.1, 2.4.1.2 and
= DETE%I)SINGLE BIT ERRORS (SBE's)

SWo

For manufacturing purposes this switch should always be

on.
For
field
always be off.

service

purposes

this switch

This switch will allow all ECC Single Bit errors to
reported by disabling error correction.

SEEor printouts of SBE's are not
's.

distinguishable

from

NOTE

If Double Bit Errors are found in the memory,
this switch should be set to make sure that new
data can be written to the DBE locations.

2.4.1.1
Ex

and

Test Mode Example -

le analysis of mode 5 "PAFBAW".
anks 2,3,4, S are MSV11-L.

Assume Banks 0

are

MSV11-J

—

725

726

727
728
729
730
731

732

733
734
735
736
737
738
739
740
741
742
743
744
745
746

—————————
. ——

Page 18

Assume also that Bank 3 is known bad by the
program
via
the
sizing
routine or previous runs The testing sequence would be as follows:

; TEST MSV11-J MEMORY TYPES FIRST
; TEST KNOWN BAD MEMORY (BANK 3)
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

2,
4

el,
20,
22,
26,

BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK

WWWNWNWONWNW

711
- 712
713
714
715
716
717
718
719
720
721
722
723
724

MACRU V05.01b Friday 15-Feb-85 16:10

: TEST PRESUMED GOOD MEMORY (BANKS 2,4,5)
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

BANK
BANK
BANK
BANK
BANK
BANK

BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK

vV
a s A aabaaaaNNNNDN

CVMJAAQ MSV11-J MEMORY DIAG.

———

SEQ 0017

764
765

766
767
768

769

770
771
772
773
774
775

776
777

778
779
780
781

782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801

SEQ 0018

;RELOCATE
TEST
1,
TEST
2,
TEST
3,
TEST
4,
TEST
S.
TEST 26,
TEST
1,
TEST
2.
TEST
3,
TEST
4,
TEST
5,
TEST 26,

TEST PROGRAM SPACE (BANK 0 & 1)
BANK
BANK
BANK
BANK
BANK
BANK
BANK

BANK
BANK
BANK

BANK
BANK

e e OO0 0000

{
;
,

Page 19

- CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

NOTE
This

example

not

actual

sequence.

The test sequence was forward (the simple patterns first,
complex
tests last)
sequence of patterns (MSV11-L = 17, 7, 1, 2, 4, 5, 21,
20, 22, 26)(MSvii-U =1, 2, 3, 4, 5, 26).
If the bank selection is forward the
following order:
.

banks

will

tested

the

Egg)banks that are not protected or program space (from 0

Parity banks that are not program space (from 0 to 167).
The program now relocates

tests:

Egg)banks that were protected or program

space

(from

Parity banks that were program space (from 0 to 167).

If bank selection is worst
first the configuration table
consulted and banks will be tested in the following order.

will

ECC banks that are known bad and are not protected or program

space (from 0 to 167).

Parity banks that are known bad and

(from 0 to 167).

ECC banks that are presumed good and

are

not

program

space

protected

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

817

Page 20

SEQ 0019

program space (from 0 to 167).

818
819
820
821
822
823

Parity banks that are presumed good and are not program space

(from 0 to 167).

The program now relocates

tests:

ECC banks that are known bau and were
space (from 0 to 167).

protected

program

Parit{ banks that are known bad and were program space
0 to 167).
ECC banks that
are
presumed good
program space (from 0 to 167).

and

Parity banks that are presumed good and

were

(from 0 to 167).

e.4A.1.2
MODE 0

were

protected
program

space

"BAFPAF" banks forwerd, patterns fo. ward
is the default and simplest mode.

This mode tests each bank

completely

except those requiring relocation#.

from

While testin’ each bank the patterns are run

simple ones
=

167

with

the

167

with

the

first building to the more complex.

"BAFPAR" = banks forward, patterns reverse
This mode tests each bank

completely

except those requiring relocations.

from

While testing each bank the patterns are run

most complex ones first, working to the simple ones.
MODE 2

Test Mode Details -

This

MODE 1

(from

"BAWPAF" = Banks worst first, patterns forward
This mode first tests each known bad bank
completely
from
O to 167 except those requiring relocation*, then
presumed good banks are tested from 0 to
167
except
those requiring relocationx.

While testin? each bank the patterns are run with
simple ones
first, building to the more complex.
MODE 3

the

"BAWPAR" = Banks worst first, patterns reverse

This mode first tests each known

bad

bank

completely

CVMJAAO MSV11-J MEMORY DIAG.
.
|

MACRO V05.01b Friday 15-Feb-85 16:10

While testing each bank the patterns are run
with
the
most complex ones first, wo'king to the simple ones.

877

MODE 4

887

922

923
924

banks forward

This mode tests each pattern completely with the simple

While testing each pattern the banks are run from 0
167 except those requiring relocations.
MODE 5

"PAFBAW" = Patterns forward,

banks worst first

This mode tests each pattern completely with the simple

ones first, building to the more complex.

While testing each pattern first each known
bad bank
from 0
to
167
except those requiring
relocation* is
run, then presumed good banks are run
from 0
to 167
except those requiring relocationk.

894
895

896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921

"PAFBAF" = Patterns forward,

ones first, building to the more complex.

883
884
885
886

888
889
890
891
892
893

SEQ 0020

from
O to 167 except those requiring relocation*, then
presumed good banks are tested from
0
to
167
except
those requiring relocations.

872
873
874
875
876

878
879
880
881
882

Page 21

MODE 6

"PARBAF" = Patterns Reverse, Banks Forward
This mode tests each pattern completely with
the
complex ones first, working to the simple ones.
While testingoeoch pattern the banks are run from 0

167 except those requiring relocations.

MODE 7

most
to

"PARBAW" = Patterns Reverse, Banks Worst First
This mode tests each pattern completely with
the
complex ones first, working to the simple ones.

most

While tcsting each pattern first each
known
bad
bank
from
O to 167 except those that require relocation* is
run, then presumed good banks are run
from
0
to
167
except those requiring relocationk.

NOTE
* Relocation is
required to
test
the
bank(s)
in program space
and also to
test
any
ECC
banks
protected
by
diagnostic
checkmode
with
the inhibit
mode pointer off (zero)!

| CVMJARQ MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 22

SEQ 0021

926

927
928
929
930
931
€32
933
934
935
936
937

2.4.1.3
1.

Test Mode Applications To verify

“BAFPAF“?

correct operation of the memory system use

Advantages:

it may take a long

To get detailed error information on known bad
by sizing routine) use Mode 2 "BAWPAF",
Seeks Bad Banks.

get good error

“PAEEAF s

info on any

Adventages:

Covers all banks fast.

Banks

(found

Easy to understand.

Dis.dv.nt.ges:
Failures other than zeros
long time to find
To

memory

ones may

take

To find any problem fast use Mode 7

problem fast use Mode

Easy to understand.

Disadvantages:
Failures from only complex patterns may
a long time to find.

Advantages:

Easy to understand.

Disadventages:
In case of a failing Bank,
time to find the failure.

Advantages:

Mode

take

"PARBAW".

Covers all Banks fast.

Disadvantages:

Difficult to understand failures reported are

not necessarily the most basic failure modes.

| CVMUAAQ MSV11-J MEMORY DIAG.
i
!

968
969
970
971
972
973
974
975
976
977
978
979
980

MACRD v05.01b Fridey 15-Feb-85 16:10

2.4.2

Page 23

Software Switch register -

A software switch register exists

2.4.3
2.4.3.1

SEQ 0022 i

in location 174,

Special Memory Locations CACHE Constant -

The CACHE constant is located at symbolic location "CACHK" and is used

to enable CACHE.

NOTE
Bit 0
in
the
CACHE constant hes no
effect since
it is unconditionally set
by the
prggr.n whenever
it
tries
to

enable CACHE.

2.4.3.2

Configuration Table

The configuration table is located at symbolic location
has the following format:

CONFIG:

“CONFIG"

and

First 16K Configuration words (2 each)
2nd
16K Configuration words (2 each)
------------------------

200th 16K configuration words (2 each)
Configuration Words:
LOW:

MED:

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

ERRORS PRESENT
MEMORY EXISTS
RESERVED
5
SKIP ECC LOGIC TESTS FLAG (1=SKIP)
6
PROTECTED REGION OF AN ECC MEMORY
7
PROTECTED (PROGRAM SPACE)
8-11
CSR CODE
12-15 RESERVED
0-7
NUMBER OF ERRORS
8-10 MEMORY TYPE
11
CSR TESTED OK
12
RESERVED
13
"BACKGROUND PATTERN VALID" FLAG
0
1
2-4

BIT 14

BIT 15

BANK SELECTED FOR TEST BY FIELD SERVICE MODE

LOADERS HOME BANK

This table is used as the source for the configuration
Map (reference. section 7.3).

SEQ 0023

Terminal Commands -

2.4.4.1

Control "C"

This command will:

If Switch 8 (Halt Program)

the program.

If Switch 8

1034
1035
1036
1037
1038
1039

2.4.4

Page 24

Flush out any DBE's.

1025
1026
1027
1028
1029
1030
1031
1032
1033

MACRO V05.01b Friday 15-Feb-85 16:10

Turn off Memory Management.

CVMJAAQ MSV11-J MEMORY DIAG.

HALT

in the switch register is set halt

is not set, unrelocate

if program was relocated.

This command will only be recognized at the completion of the

test or pattern, or at the end of a line of an error message.

2.4.4.2

current

Control "K" (Kill error printout and skip pattern)

This command will allow Kou to stop an error grintout and skip to
the
next
pattern.
This is
handy, for example, when you have a whole bank
full of errors, have gotten enough information, and wish
to
skip
to
the next pattern.

2.4.4.3

Control "T" (Tell me what's happening)

This command will print out the information
register.
This
is
mainly
intended
for

display register.

encoded in
the
display
CPU's without a hardware

Example:

BANK = 17 TEST = 46
RELOCATED BANK= 0 PAT= 26

By use of Field Service Command 17 "Trace” can be set so that it

will

automatically type out the bank and pattern number- as each pattern is
run.
(Reference section 2.4.4.8.18).

—

———
—

CVMJUAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 25

SEQ 0024

1080
1081
1082
1083
1084

1085
1086
1087

1088
1089
1090
1091
1092

1093

=2 b o et o bt s et bt e © O o
BUNFOVENOWUVIBLINFOOV® ~

Control "S" (Stop)

This command will stop typeout (soon) and will wait for a Control “Q".

2.4.4.5

Control "Q" (Quintinue)

This command will continue typine that has

"S",

there

ignored.

2.4.4.6

has

been

stopped

Control

Control "S" typed then this command is

Control "F" (Field Service mode)

This command will cause you to
commands.

enter

mode

which

looks

for

sub

When the program is looking for a sub command any number that_is not a

legal command will cause a mini help messnge to be typed.
when in doubt type 99 (CR) and you will get help.

Therefore

NOTE

e et et e e et e et s et e et e

[

ol ol ol ol

1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106

2.4.4.4

is a default

s e

e et et $

s et

s e

Typing just carriage return
command 0.

2.4.4.7.1

Field Service Command 0 (Exit)

This command will exit Field Services Mode and return
to whatever task

was

return

prior

typing control “F”.

is a default Command 0.

Note typing just carriage

. CVMJUAAO MSV11-J MEMORY DIAG.
:
1126
1127
1128
1129
1130
1131

MACRO V05.01b Friday 15-Feb-85 16:10

Page 26

SEQ 002S

iigg

2.4.4.7.2

iigg

This command will typeout the contents of the CSR.

1136
1137
1138

If there is more than one CSR on the CPU (or if the uflr ram has not
determined the CSR status yet), it will Ask you "WHICH CSR(0-F)" to
which you must respond with an Hexidecimal number from O to F.
Note

1141

If the CSR

iizg

1142

1143
1144

Field Service Command 1 (Read CSR)

typing just carriage return is a default 0.

you select causes a trap to 4 the program will

CSR DOES NOY EXIST".

1145

"THIS

NOTE

1146

1147
1148
1149
1150
1151
1152

type

CSR references are
with section 5.0.

done

accordance

iigz

2.4.4.7.3

iigg

This command will enable you to load the CSR.

1157
1158
1159

If there is more than one CSR on the CPU (or if the program has not
yet determined the CSR status yet) it will ask you "WHICH CSR(0-F)" to
which you must respond with an Hexidecimal number from O to F.
Note

1162

1163

If the CSR

iigz

The CSR will be read and displayed as in command 1.

iigg

1167

ii:g

1170

11N
1172
1173
1174
1175

Field Service Command 2 (Load CSR)

typing just carriage return is a default 0.

you select causes a trap to 4 the

CSR DOES NOY EXIST.

program will

.. -

"THIS

The program will then ask you for the “CSR?" to which you must respond

sith

Octal number.

Note typing just carriage return is a default

The program will then load the CSR and Read it
nen contents.

again

displaying

its

ot etaticiaioliatielatat
oBt et e

s et et et

et et e e o s s et P
900000Bt EERDB®me
NN~

8“20"00-80& flguguuzg L B

| CVMJAROD MSV11-J MEMORY DIAG.

1197

MACRO V05.01b Friday 15-Feb-85 16:10

2.4.4.7.4

Page 27

SEQ 0026

Field Service Command 3 (Examine Memory)

This commend will allow you to examine any physical address

end

the necessary memory nanagement mapping for you.

The
program will ask you for the “PHYSICAL
ADDRESS
which you must respond with an Octal number.

If the address access causes

trap

“TIMEOUT
TRAP",
If
the
address
program will type “PARITY ABORT".

access

the

causes

does

(0-17757776)"

program

will

a trep to 114

t{::

The co~tents of your physical address will be typed.

2.4.4.7 5

Field Service Commend 4 (Modify Memory)

This command allows you to modify .nx physical address
necessary memory management mapping for you.

The
program will ask you for the "PHYSICAL
ADDRESS
which
you must respond with an Octal number.

and

does

the

(0-17757776)"

If the address access causes a trap to 4 the progrem will
txg:
"TIMEOUT
TRAP",
If
the
address
access causes
a trap to 114
program will type “PARITY ABORT".

The program will type “OLD DATA WAS" and the contents of your physical

address.

The program will then type "INPUT NEW DATA" to which zou must respond
3ith
an Octal number.
Note typing just carriage return is a default

The pfogron will attempt to write this new data

into

your

address after which it will read it again and type "DATA IS
the new contents of your physical address.
NOTE

If you cen’'t change the data, that would
indicate
that
you have
a Double Bit
Error in that double word pair.

asicol

" and

CVMJAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 28

SEQ 0027

1229

2.4.4.7.6

Field Service Command 5 (Select Bank

Test)

This command allows you to run any bank with any pattern forever.

The program will ask

Octal

number.

you "BANK(0-177)" to which

the bank

you must respond

is not accessible.

type “BANK NOT ACCESSIBLE" and ask question over.
The program will then ask
with an Octal number.

"TEST (0-47)" to which you

with

The program will

must

respond

NOTE
Any pattern can be run

including

those

that
ere
not part
of the APT E-TABLE
defaults (reference section 6.2.1).
If

you select Pattern 0, the
ask "TEST O DATA IS?"
to

program will
ich
you

must respond with an Octal number.

If the Bank
you selected requires relocation the program will
txpe
"BANK REQUIRES RELOCATION” and exit this command.
Note normally this
is true for Bank 0.
The
“TO

program will then arm the console keyboard for
ESCAPE TYPE ANY KEY!",

The test pattern will be entered

depressed to escape this loop.

2.4.4.7.7

and

run

until

interrupts and type
a

console

key

Field Service Command 6 (Type Configuration Map)

This ccmmand types the configuration map.
This is useful after a long run (overnight) to see all the banks

are marked as bad.

that

(Especially if your console is a video terminal).

For a detailed explanation of the map reference section 7.3.

1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292

SEQ 0028

2.4.4.7.8

Field Service Command 7 (SOB-A-LONG TEST)

This
command allows
execution of
the
SOB-A-LONG
Test
.
all
non-protected
Banks
reference
Section
6.2.2.26.
Operation
is
identical to command S5 except that no Pattern or Bank is entered and

each pass causes a Bell.

2.4.4.7.9

Field Service Command 8 (Error Summary)

This command types out the rumber of passes and the
total
number
of
errors.
If there were any errors it will type out the Banks and the
number of errors per bank up to 255 DECIMAL.

This becomes useful after long runs (all
video console terminal.

2.4.4.7.10

night)

systems

with

Field Service Command 9 (Refresh TEST)

This command allows execution of the Refresh Test on all non-protected

Banks reference Section 6.2.2.19.
Operation is identical to command S5
except that no Pattern or Bank is entered and each pass causes a Bell.

2.4.4.7.11

Field Service Commaend 10 (Set Fill Count)

This command allows settin9 of the terminal fill count (necessarx

LA30’'s,
VT52's,

ASR33's, and VT05’'s).

VT100's,

2.4.4.7.12

etc.

for

is normally set to zero for LA36's,

Field Service Command 11 (Enter Kamikaze Mode)

This command allows xou to_run patterns that are normally not executed

unless under APT or

ACT.

They are usually very time consuming and can

result in failures that are fatal to the progron.
In effect
you are
trying to
find
e hardware
failure regardless of the consequences.

Note
is

that most crashes do not wipe out the display

telling

you

what the

program

information which

was do:ng gust prior to failure.

There are two ways to die here - Impatience and

(Lrashes.

. ce——

Page 29

—

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Pege 30

SEQ 0029

1334
1335
1336

2.4.4.7.13

Field Service Command 12 (Exit Kamikaze Mode)

Return to the default mode of testing (undo Command 12).

2.4.4.7.14

Field Service Command 13 (Turn Cache Off)

;hissc?gnges the Cache constant to

2.4.4.8.15

cache

(reference

section

Field Service Command 14 (Turn Cache On)

;hissc?gnges the

2.4.4.7.16

bypass

Cache

constant

use

cache

(reference

section

Field Service Command 15 (Test Only Selected Banks)

This command allows you to center the test effort on only those
banks
that
you
are
troubleshooting.
You may also test banks that require
relocation and were inaccessable via command 5.

2.4.4.7.17

Field Service Command 16 (Resume Testing All Banks)

Return to the default mode of testing (undo Command 15).

2.4.4.7.18

Field Service Command 17 (Resume Testing All Banks)

Enable "Trace”.

After exiting field service mode,

the

type out the bank and pattern numbers as each pattern

2.4.4.7.19

program

is run.

Field Service Command 18 (Resume Testing All Banks)

Disable “Trace”.

(undo Command 17).

will

1391
1392
1393
1394
1395
1396
1397

Page 31

SEQ 0030

2.5

Execution Times

2.5.1

Typical (System) -

Execution time depends on
many
measured times on an 11/23B:

variables;

however

here

are

K words of MSV11-J Memory

Normal Pass
Quick Verify

Kamikaze Mode
Kamikaze QV

Min
Min
Min
Min

Sec
Sec
Sec
Sec

K words of MSV11-L Memory
Min
Sec
Min
Sec
Kamikaze Mode
Min
Sec
Min
Kamikaze QV
Sec

Normal Pass
Quick Verify

K words of MSV11-P Memory
Min
Sec
Min
Sec
Min
Kamikaze Mode
Sec
Min
Kamikaze QV
Sec

Normal Pass
Quick Verify

1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439

2.5.2

Calculations (System)

Normal Pass
Add
Add
Add

Quick Verify Pass
Add
Add
Add

Kamikaze Mode
Add 10 min.

Sec per 16K BANK of MSV11-P
Sec per 16K BANK of MSV11-L
Sec per 64K BANK of MSV11-J

Sec per 16K BANK of MSV11-P
Sec per 16K BANK of MSV1l1-L
Sec per 64K BANK of MSV11-J
per 128K words for approximate pass times.

—————

MACRO V05.01b Fridey 15-Feb-85 16:10

———————
—

CVMJAAQ MSV11-J MEMORY DIAG.

1467

1468
1469
1470

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

——

——
e —————
—

Typical (Tests)
Description

A AAN

ot fd o

AAAN

MT0000
MT0001
MT0002
MT0003
MT0004
MT0005
MT0006
MT0007
MT0010
MT0014
MT0017
MT0020
MT0021
MT0022
MT0023
MT0024
MT0026
MT0027
MT0030
MT0031
MT0032
MT0033
MT0034
MTCO35
MT0036
MT0037
MT0041
MT0042
MT0043
MT0044
MT0045
MT0046
MT0047

b o ot ot ot

Test Time

1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466

2.5.3

ot e

1447

1448
1449
1450

Page 32

SEQ 0031

1441
1442
1443
1442
1445
1446

MACRO V05.01b Friday 15-Feb-85 16:10

CVMJAAO MSV11-J MEMORY DIAG.

SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC

SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC

DATA PATTERN TEST
ADDRESS TEST

COMPLEMENT ADDRESS TEST

3 XOR 9 WORST CASE NOISE TEST
ROTATING ZEROS TEST
ROTATING ONES TEST

INITIAL DATA TEST
ADDRESS BIT TEST

BYTE ADDRESSING TEST
BASIC DOUBLE BIT ERROR TEST
HOLDING 1'S 0'S TEST
SYNDROMES TO CSR ON SINGLE BIT ERROR TEST

MARCHING 0'S
1'S TEST
REFRESH TEST
SHIFTING DIAGONAL TEST
FAST GALLOPING PATTERN TEST
RANDOM DATA TEST
UNIQUE BANK TEST
FLUSH OUT DBE'S TEST
SOB-A-LONG TEST
WRITE RECOVERY TEST

BRANCH GOBBLE TEST
SOFT ERROR TEST
WORST CASE PARITY TEST
CORRECTION CODE TEST
CHECK ECC DISABLE TEST
ADDRESS TO CSR ON DBC TEST
EXTENDED ADDRESS TO CSR ON ERROR TEST
WRITE BYTE TEST

SHIFTING CHECKBITS THROUGH CSR TEST
SYNDROME BITS TO THE CSR ON A DBE TEST
CHECK SINGLE BIT ERRORS WITH ECC DISABLED TEST

NO CSR UPDATE WITH EXISTING DBE TEST

- CVMUAAO MSV11-J MEMORY DIAG.
|
|

1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500

MACRO V05.01b Friday 15-Feb-85 16:10

Page 33

SEQ 0032
3.0

ERROR INFORMATION

3.1

Error Reporting

Most errors are reported using the EMT trag and hendler provided b
SYSMAC.SML.
Most errors will be of the "MEMORY DATA ERROR" type
whicl
will be described here.
MEMORY DATA ERRORS will also cause
the
bank
to be marked as Bad in the configuration table.

Other errors are best explained by referencing
and if necessary the program listing.
Example 1:
MEMORY DATA ERROR
PC
BANK
VADD
022132
37 060006

022132
022132
022132

37
37
37

060006
060006
060006

PADD
03700006
03700006
03700006
03700006

GOOD
000000
000000
000000
000000

BAD
000100
000100
000100
000100

the

specific

XOR
CSR MTYP
000100 O
E
000100 O
E
000100 O
E
000100 O
E

typeout

PAT
06

06
06
06

While testing Bank 37 at virtual address 60006 (virtual addresses are
always between 60000 and 157776 for nappiqg _purposes), physical
address 3700006 (that's Bank 37 phxsncal
6 within the Bank) with

Pattern

(Initial

Data Test),

the good data expected was 0 but the

data actually read (BAD) was 100, the exclusive OR at Good_
Bad
%ields 100 which
indicates onlx
failing bit(s) (Bit 6).
It is an
SV11-J (ECC) Memory. The CSR is
located at 172000.
Example 2:
ME
Y DATA ERROR

022132
022132
022132

BANK
35
35
35

VADD

060000
060002
060006

PADD

03500000
03500002
03500006

GOO0D

00000G
000000
000000

BAD

000001
000100
000100

XOR

000001
000100
000100

CSR MTYP
O
O
0

E
E
E

PAT
06
06
06

While testing Bank 35, virtual address 60000, physical address 3500000
with Pattern 6 (Initiel Data Test), the good data expected was 0 but

the date actually read (BAD) was
1, the exclusive OR at Good
Bad
ields 1 which indicates only failing bit(s) (Bit 0).
It is an MSV11-J

YECC) Memory and the CSR is located at 172000.
NOTE
Subsequent errors of the
not type a new heading.

same

test

—

' CVMJAAQ MSV11-J MEMORY DIAG.

|
.

MACRO V0S.01b Friday 15-Feb-85 16:10

—

S—————————————————
— S——
. .

——

—

Page 34

1534

1535
153
1537
1538
1539

3.2

Error Abbreviations

The following
# OF ERRORS

1ST ADD

ARRAY
APT#
APTCORE
APTM';S
BAC

BAD-WD1
BAD-WD2
BAD-CHK
BANK

8D-CC
CHKBITS
CONTRL
CPUERR
CSR
CSRNO
DATARG
DBE
DEV ADD
ECC
GD-CC
GD-CHK
GD-WD1
GD-WD2
G0OoD
LSIZE
MEMERR

MMRO
MMR1
MMR2
MMR3
MTYP
PADD
PAT
PC

SBE
VADD
WROTEL"
WROTE?2
XOR
AUT

is a list of all abbreviations used in error reports.
Number of Errors that were detected.
First Address that failed.

The
The
APT
APT
Bad

array number that was locked up in the MS11-M CSR.
# of CPU's APT expects on the system.
Core size.

MOS size.

date.

Bad Word #1 of a double word data value.
Bad Word #2 of a double word data value.
Bad Check Code Bits.

The Bank number.
Banks are 16K words long.
Bad Check Code Bits.
The 7 bit value of the Check Code Bits.
The CACHE Control register.
CPU Error register.
Control and Status Register.

CSR NUMBER (0-F Hexidecimal).
The CACHE Data Register.

Double Bit Error (uncorrectable error).
Device Address.
Error Correctable Code.
Good Check Code Bits.
Good Check Code Bits.
Good Word #1 of a double word data value.
Good Word #2 of a double word data value.
Good data.
MSV11-J Size.
;
Memory Error register.

Memory Management Register #0.
Memory Management Register #1.
Memory Management Register #2.
Memory Management Register #3.
Memory Type (MSV11-J,MSV11-L, or MSV11-P).
Physical Address (asserted by the program after mapping).

Pattern number.
Program Counter at the time the error occurred.

Single Bit Error (correctable error).
Virtual Address (asserted by the program before mapping).

The data that was written into the lst half of a double word.
The data that was written into the 2nd half of a double word.
Exclusive OR of the good and bad data.
Shows the bad bits.
Address under test

SEQ 0033

| CVMUAAQ MSV11-J MEMORY DIAG.

|
.

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 35

SEQ 0034

1584

1585
1586
1587

3.3

Error Helts

There are several Helts

in the program.

All unused trap vectors contain a trap catcher (.WORD
An undefined TRAP

.+2,HALT).

instruction halts at symbolic location "$HALT2".

The APT down load sequence will halt at symbolic location "APTHLT”".

Halt on Error option (SW15 Set) at symbolic location "$HALT".
Halt program (SW8 Set) at symbolic location "$EXHALT".
Power Fail will nornollaNhalt at the end of

(symbolic location "“$DOWN").

the

shut

down

sequence

Power Fail has a fatal Halt
at symbolic location "$ILLUP" which can be

caused by power up occurring before power down seguence completed or
by power down before a power up sequence is completed.

' CVMJAAO MSV11-J MEMORY DIAG.
1609
1610
1611
1612

1613

1614
1615
1616
1617
1618

1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638

1639
1640

1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660

MACRO V05.01b Friday 15-Feb-85 16:10

4.0

Page 36

SEQ 0035

PROGRESS REPORTS

Pass complete typeouts as follows:
END PASS
END PASS
END PASS

#
#
#QV

0
1
2

NOTE
Pass 2 was flagged

Pass.

(Because of a change

Quick

Verify

in SWS)

To obtain progress reports while executing, typing a Control
printEout {he information encoded in the
display register.

"T"

will

xample:

BANK= 2 TEST= 34
Reference Section 2.4.4.7.18 for more

5.0

information on Tracing.

CSR INFORMATION TABLES

The folloui:g is a picture view of the current control status
registers
ich cen be tested by this program.
It shows bit

assignments and definitions to provide & handy reference, and
shows the similarities and differences between each one:
NOTE
All unused bits

in each CSR are equal to zero.

—

——

' CVMJUAAQ MSV11-J MEMORY DIAG.

|
.

———

MACRO V05.01b Friday 15-Feb-85 16:10

Page 37

SEQ 0036

1662

1663

1664
1665
1666
1667
1668
1669
1670
1671
1672

5.1

1673
1674
1675
1676
1677
1678
1679
1680

.2
0!
*
&

MSV1il-J CSR

X
IEA:
& 3

F°3
¢
2
F

I £ 8.2
!DE!EA!SI!
S 3 3T R

3
!
8-

1.5
5
o
!DE!EA!SI :
G
o

2.8
-5
ADDRESS
5 ¥0
%

322 2.3
CHECK BITS
3% 3 %3

4
3

%
%

&
5
2.
8
8
1
!SE!IP!DC!EC!EE!
F
PR
"E
&3

L. X 5 & &8 %
!SE!IP!DC!EC!EE!
3-% 5N 8 3

1681
1682

1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699

(III)

Bt
e

W
I
SYNDROMES
@
W
B

R
R LUK X8
SE!IP!DC!EC!EE!
- o
ol o

i5 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00

Bit assignments are defined
as follows:
BIT15 UNCORRECTABLE ERROR
On a read to memory (ECC Disable
Bit = 0), this bit is set if
a double error occurs.
The

1704

error address is stored in the
CSR.
Setting this bit also
turns on a red LED at the rear of
the card for a visual indication.
This bit is also set in ECC

1706

occurs.

1700
1701

1702
1703
1705
1707

1708

1709
1710
1711
1712

1713
1714
1715

Disable Mode if a SERR or DERR

BIT14 EUB ERROR ADDRESS
With Bit 14 = 1, a read to the (SR
will fetch address A2l
through Al18.
When Bit 14 = 1,
di:g:ostic data may not be
loaded into the syndrcme
register.

—

CVMJUAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

——

. ————————————
S—

-——

Page 38
A

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

1765

1766
1767
1768
1769
1770

BIT13

SET INHIBIT MODE

When this bit

is set to

a 'l”, it enables the inhibit
mode pointer to inhibit
either the first or second

16K from ever goinB into the
Diag Check or
ECC
Disable

BITS05-10 CHECK BIT STORAGE (CSR II)
Check Bit Storage (Diag CK
Bit 2 = 1)
When in the diagnostic check
mode these bits are used to store
the check bits to be written
into memory or the check bits
read from memory.
If a double
error or single error occurs
when in the diagnostic check
mode and ECC disable Bit 1 = 0,
then the check bits are stored
in the CSR together with
the double or single error
bit.
These bits are writeable
in diagnostic mode.

"1"

is stored in Bit 11 if CSR
02, CSR 13, and CSR 14 ere
set to indicate that the
memory under test

is a MSV11-J.

BITS05-11 QBUS ADDRESS STORAGE (CSR I)
(Diag
Ck Bits 2 = 0, ECC
Disable Bit 1 = 0)
If a double or single error
occurs on
a Read cxcle. then
address Bits All thr

Al7 ere stored in these bits
These bits are read only on
the condition that SERR (CSR 4)

or DERR (CSR 15) is set but
CSR 14 is not set.

EQB Address Storage (Di
Bit 2 = 0), ECC Disable
1=0o0r1).

Ck
Bit

If a double or single error
occurs on a Read cxcle.
"
address Bits Al7 t
All are stored in CSR
Bits
11 through 5 and address
Bits A21 through Al8 are

PR]

;CVHJAAO MSV11-J MEMORY DIAG.
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
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

MACRO V05.01b Friday 15-Feb-85 16:10

Page 39

SEQ 0038
stored in & backup register.
The EQB Error Address
Retrieval Bit (CSR 14) is
used to obtain the total
error address as follows:

With CSR Bit 14 = 0 & read to

the CSR will obtain A17
through A1l from CSR Bits 11
through S.

CSR Bit 14 cen then be set

to @ "1” and & read to the
CSR will then read A2l
through A18 from CSR Bits 8
thr
S and 0's from CSR
Bits 11 through 9.

Address Bits A21 through

All are obtained
to locate the double
error to a 1K segment of
memory
.

The EQEB address A2l

through Al8 is read only
whenever CSR 14 = 1.

BITO5-10 SYNDROME STORAGE (CSR III)
If a double or single error
occurs on a read or write

byte cycle, and if CSR bit
2 is set to a "0" syndrome
and stored in CSR bits S
through 10.
To read the
syndrome bits from CSR, Bit
you must read the error
address, then set 2 of

the CSR must be st to
a "1" (diagnostic mode) and

‘

the CSR read
in.
This operation
will sllow syndrome bits
for a single or double
failure to be reed instead

of the address bits normally
read when CSR 02

is set to

BITO4 SINGLE ERROR

If on a read to memory a
SBE occurs, the error
address A2i-All end

the zrror syrdromes will

"0".

[}

CVMUAAQ MSV11-J MEMORY DIAG.

1827
1827

1826
1829

MACRO V05.01b Fridey 15-Feb-85 16:10
,

)

Page 40

SEQ 0039

be logged in
i CSR Bits S-11

unless the uncorrectable error
CSR 15 is set.
The error

1930
1831
1932
i:gg

address will be 1
unconditionally in
the ECC
Disable Mode.
This bit is not
gt lI)I'_\hlbl: Hod.m D(Bit

iggg

=1)
is se
Mode (Bit 02 = 1)

1837

BITO3 INHIBIT MODE POINTER

1839

with the Set Inhibit

1841

to a 1,
a 16K

1838

1840

This bit works

(Bit 13).

iagnostic
is set.

in con

tion

When Bit 13 is set
portion of

128

memory is inhibited from

m‘:

Mode or

1843

operating

in the ECC Disable

Diagnostic Check Mode.

184
1841

The Inhibit Mode Pointer
indicates which 16K is being

js82

the first 16K of memory

1321

second 16K of memory

1834
1854

With
Bit
i
i 13 set to a 0,

1831
1857

Bgto.'»i
i

j830

193¢

1633

1839
1859
1860

1861
1%6¢
1863

1864
1863
1866
jee7
1868

inhibited,

Bit 3 = 1,

inhibited.

3 becomes inoperative.

the

Bit

Bit 13, therefore allows & 16K
in
i con i

tion
with
i

chunk of memory to alweys have
ECC coverage.
The systems
diagnostic can therefore
;:o_u_k m'thns protected
or tion of memory and can

disable ECC_and/or run the
Di
tic Check Mode in the
rest of memory without itself
becoming vulnerable to single
errors.
This bit is a Read/Write

1870

bit reset by power up and BUS

187¢
1872

BITO2 Diagnostic
i
i Check Mode

forcing a single or double

1870
1873

INIT.

This mode allows & means of

1
1873

error in a desired location.
It elso provides s means of

1879

the syndrome in & given
location.

examining the check bits and

CVMJAAO MSV11-J MEMORY DIAG.

MACRO VO0S.01b Fridey 15-Feb-85 16:10

Page 41

SEQ 0040
The check bits desired for o

iven data pattern are written
into Bits 5 through 11 of

the CSR. A word or write byte
memory will write the check bits
from the CSR
to the MOS arre

(CSR 2 = 1) instead of the check

bits generated on the data
to be written.
Single errors

on the read portion of the DATOB
cycle are corrected.
A read to the memory will
read the check bits stored
memory
end clock them into

the CSR.

If a double error or single
error occurs the DERR or
SERR bit in the CSR is set
and the error syndrome bits
read from ECC are stored in

907
909

CSR Bits 10-5 as well as the
address bits.
In Diagnostic
Check Mode the error syndrome
bits will be read when CSR
Bits 10-5 are read.
I:;s.bit
is

ista Read/Write bi:

reset

BUS INIT.

power

BITO1 DISABLE CORRECTION MODE
If this bit is set, no single
errors will be corrected.
A
single error will set CSR 4

and CSR 15 or a double error
will set CSR 15 and assert
BUS PBL if CSR 00 is asserted.
The 1K block of address
where
the error occurs will also
be stored in the CSR.
The
priority of a SERR and DERR
will be the same, i.e., the

last error information will
always be stored unless a DERR

precedes a SERR.
If a double
error occurs during a write byte

cycle, the write portion of

the cxclc will not be aborted.

The check bits written will

1943

1944
1945
1946
1947

Page 42

data written.
This means that
if a single or double error
existed in the location accessed,
it would be cleared (unless the
errors were hard).
This bit

is a diagnostic aid

to allow writing and reading
data from memory without
interference from the error
correction logic.
BITO0 UNCORRECTABLE ERROR
INDICATION ENABLE
If a double error occurs with
ECC enabled or a single error
or double error with ECC
disabled, on a Read cycle to the
nnor‘ and this bit

then

is set,

BUS PBL will be asserted.

——

have been generated on the

1935
1936
1937
1938
1939
1940
1941
1942

MACRO V05.01b Friday 15-Feb-85 16:10

——

- CVMJAAO MSV11-J MEMORY DIAG.

—

CVMJUAAQ MSV11-J MEMORY DIAG.
1960
1961
1962
1963
1964
1965
1966

1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981

-—

MACRO V0S5.01b Friday 15-Feb-85 16:10
5.2

Page 43

SEQ 0042

MSV11-L/P CSR

2
2.8
wEie
s
3
35

¥
@
4

F
!
%

5
4
ADDRESS

3
!
3

1
3
3

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00
Bit assignments are defined as follows:
BIT15 PARITY ERROR

BIT14

EQB

memory

isS

RETRIEVAL

ERROR

the

Extended QBUS,
when
BIT14 is zero, the low
order
failing
addresses
are
available
(Bits
11-17);
when BIT14 is
one,
the
high order
failing addresses
are
available
(Bits 18-21

of address).

the

memory is on a
QBUS,
o_gu-per disables this
bit
so that it is read
only, and equal to zero.

BITS
11-5
ADDRESS
MWith

ERROR
BITi4

set, they contain
the
high
order porit{ error
address
Bits

21-18
of
address);
with
BIT14
cleared,
they
contain
the low
order parity error address
(Bits
17-11 of

address).

BIT02

PARITY

(odd)
other

WRITE

Normal

when
parity

when set.

WRONG

parity

clear;
(even)

BITOO ACTION ENABLE No
action
when
clear;
trap to vector
114

when set.

CVMJAAO MSV11-J MEMORY DIAG.
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037

MACRO V05.01b Friday 15-Feb-85 16:10

Page 44

SEQ 0043

6.0

SUB-TEST SUMMARIES

6.1

Tests

TEST

BIT TEST OF ALL CSR'S/MATCH ALL CSR'S WITH MEMORY

(CSR Access may cause wrong Type of Traps)

TEST

2
TEST BANK O ACCESSES
Failures are fatal.

TEST

3
TEST BANKS 1-177 (OCTAL) FOR ZEROS AND ONES
Errors are not typed here - only logged in
the configuration table

TEST

ECC INHIBIT MODE POINTER TEST
TEST

DIAGNOSTIC MODE DISPATCH ROUTINE
This test runs all the patterns in the
mode selected.
TEST

UNIQUE BANK TEST

Pattern 27

is run

l
!
'

MACRO V05.01b Friday 15-Feb-85 16:10

Page 45

SEQ 0044

2063
2064

2065
2066
2067
2068
2069
gg;g

6.2.1

2072
2073

Actual Tests are identified by symbolic locations "MTPXYY" where X
may be anx sub program indicator (A,B,C,etc) or 0 and YY will be the

6.2

Tests
General Test Information

gg;g

number of the test.

2076

Setup

2079
2080
2081
2082
2083
2084
gggg

Tests reside in 4 scripts that are scanned for execution.
Symbolic
location
"MKCSRT"
is a table of tests that can run once for each
ECC bank. Symbolic location
"MKPAT” is a table of tests that
can run on each Bank of ECC memory.
Symbolic location "MJPAT" is a table of tests that can run on each
Bank of Parity
memory.
Symbolic location
"“FSPAT"”
is a table of
tests that can
run in Field Service Mode (command 5).

2087

The 1st 3 scripts are congletelnogontrolled by the APT

gggg

(1) with APT, or (2) manually.

sg;g

2088

procedures for each test are identified by

"MTOOYY" where YY will be the number of the test.

not

gggé

running

under APT).

symbolic locations

E-table

Example E-table Segment:

2093
gggg

; THE FOLLOWING LOCATIONS SPECIFY WHICH TESTS
;ARE TO BE RUN FOR PARTICULAR MEMORIES

2096
2097
gggg

;REFERENCE THE TABLE LISTED BELOW TO RELATE BITS TO TESTS.
;BITO SET WILL RUN THE FIRST ENTRY IN THE TABLE, BITO SET
;IN THE SECOND WORD WILL RUN THE 17TH ENTRY IN THE TABLE...

2100
2101
2102
2103

;NOTE**NULL TESTS DO NOT TAKE ANY TIME
;
$DDWO:
.WORD
177777
$DDW1:
.WORD
177777

2105
2106

$DDW3:
$DDW4 :

2104

gig;

(even

ifications to this table can be made

$DDW2:

$DDWS:

.WORD

.WORD
.WORD
.WORD

RECOMMENDED VALUE
;ECC CSR TESTS
177777 TABLE = MKCSRT:
;ECC CSR TESTS
177777 TABLE = MKCSRT:

177777

;ECC TESTS

177777

;PARITY TESTS

177777
177777

;ECC TESTS
;PARITY TESTS

103777 TABLE = MKPAT:

177777 TABLE = MKPAT:
003777 TABLE = MJPAT:
177774 TABLE = MJPAT:

———————— ————

- CVMJAAO MSV11-J MEMORY DIAG.

' CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 46

SEQ 0045

2110
2111
elle
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129

2130
2131
2132
2133
2134
2135
2136
2137
2138
2139

6.2.2

Specific Tests

6.2.2.1

Test 0

Basic Data Test

Writes

Reads R2

into a 16K Bank.

This is used for Zeros and Ones testing end in Field Service Mode
any console selected Test.
It can execute out of the USER Instruction PAR’'s.

NOTE
It is
frequently
modified dynamically
such that
(1) it returns after writing

only

(the 1st NOP is

RETURN)

(2)

(the code PERRO2 and

with INC @#PATERR).

—

replaced

with

only counts Errors

NOP

are

replaced

for

2141
2142
2143
2144
2145
2146
2147
2148
2149
2150

2151
2152

MACRO V05.01b Friday 15-Feb-85 16:10

Page 47

SEQ 0046

6.2.2.2

Test 1

Writes

Reads

Address Test
an

incrementing

addressed into a 16K Bank.

pattern

equivalent

It can execute out of the USER Instruction PAR's.

physical

— e

| CVMJARO MSV11-J MEMORY DIAG.

—

| CVMJAAO MSV11-J MEMORY DIAG.
2160
2161
2162
2163
2164
2165
2166

2167
2168
2169
2170
2171
2172
2173

MACRO V05.01b Friday 15-Feb-85 16:10

Page 48

SEQ 0047

6.2.2.3

Test 2

Complement Address Test

Writes the complement of the physical address from high

addresses

This provides the complement of the coverage of Test 1
pattern and addressing sequence.

in both data

low (write down) and reads from low addresses to high (read up).

It can execute out of the USER Instruction PAR's.

s——

| CVMJAAQ MSV11-J MEMORY DIAG.

Ja4

MACRO V05.01b Friday 15-Feb-85 16:10

Page 49

SEQ 0048

2175
2176
2177
2178
2179
6.2.2.4
Writes
change.

Test 3

Reads a Test that complements as

This test

Zeros,

the 401

3 XO0R 9

is run 4 times (1) with Zeros

(3)

with 401

address
Ones,

Ones, and (4) with Ones

is to force a the parity bits to become

(2)

bits

401.

with

and

Ones

The test of

involved.

It can execute out of the USER Data PDR's, the User Instruction PAR's,
the Kernel Data PAR's and the Supervisor Data PAR's.

————

CVMJAAQ MSV11-J MEMORY DIAG.

IK4

MACRO V05.01b Friday 15-Feb-85 16:10

Page 50

SEQ 0049

2194
2195
2196

6.2.2.5

Test 4

Roteting Zeros Test

Writes a background pattern of Ones.
Rotates a Zero
Carry
Bit
left
thru each par of bltes (18 times) and then checks that the carry is
Zero and the word (2 bytes) is still all Ones.

It can execute out of the User Data PAR's and the Kernel Data PAR's.
NOTE
It is not uncommon to observe
the
?ood
data
equal
to
the bad data.
his
indicates that the carry was
not
clear

after 18 ROLB's.

—

| CVMJAAQ MSV11-J MEMORY DIAG.

—

L4
MACRO V0S5.01b Friday 15-Feb-85 16:10 Page 51

|
SEQ

2219

2220
2221
2222
2223
2224
gggz

6.2.2.6

2227
2228
gggg

Writes a background pattern of Zeros.
Rotates a One carry bit left
thru each pair of bytes (18 times) and then checks that the Carry is a
One and the Word (2 Bytes) is still all Zeros.

gggg

This provides the complement of the coverage of Test 4 in data.

ggg}

It can execute out of the User Data PAR's and the Kernel Data PAR's.

Test 5

Rotating Ones Test

2235
2236

NOTE

2237
2238
2239

It is not uncommon to observe the
data equal the bad data.
This indicates

gg:é

ROLB's.

2240

that the Carry

was

not

set

after

0050

| CVMJAAQ MSV11-J MEMORY DIAG.

2245
2246
2247
2248
2249
2250
2251

MACRO V05.01b Fridey 15-Feb-85 16:10

6.2.2.7

Test 6

Page 52

Initial Data Test

Writes Reads a double word first with all bits 0 except 1 (for every
bit_tpo.;tion).
Second with all bits
1 except
1
(for every bit
position).

This

is a very quick check of the data paths.

SEQ 0051

| CVMJAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 53

SEQ 0052

6.2.2.8

Test 7

Address Bit Test

Writes a background of all Zeros.
Read Address 1 for a O Byte.

Complement Address 1.

Read Address 1 for
a non
O Byte.
For each Address Bit position from Bit 1:
Virtual (2, 4, 10, 20, 40, 100, 200, 400,

1000,

60000, 20000)
Phssécul (60002, 60004, 60010,
60020,
60040,
61
, 62000, 64000, 70000, 140000, 100000)

2000,

60100,

4000,

10000,

60200,

60400,

Read Address for a 0 word.

Complement Address contents.

Read Address for a non-zero word.
This

is a very quick check of the address bit unigueness.

CVMJAAQ MSV11-J MEMORY DIAG.

BS5

MACRO V05.01b Friday 15-Feb-85 16:10

Page 54

2286

2287
2288
2289
6.2.2.9

Test 10

Byte Addressing Test

With ECC Disabled.
Writes all ones to a double word.
For each of the 4 Bytes in the Double Word.

Clears one byte.
Reads all 4
bytes from double word.
Checks for only proper byte clear.
All other bytes set to all ones.

This

is only done on one double word address.

NOTE
This

is run for ECC memory only

SEQ 0053 |

CVMJAAQ MSV11-J MEMORY DIAG.
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320

MACRO V05.01b Fr iday 15-Feb-85 16:10

Page 55
SEQ 0054

Test 14

6.2.2.10

Basic Double Bit Error Test

Write the CSR to enable diag mode with a double bit error
check bits of 110011 and Uncorrectable Error Indication
enabled.

Write first AUT

in a 16k bank with data of all zero's.

Read address, this should cause a double bit error.
BUS PBL
is asserted and we check for a parity trap to occur.

Read the CSR for check bits

Write ones to the high byte of the address under test.

Read address and check for a Parity trap to occur as a result of (5)

This will write the check bits

Indicator.

in (1)

in (1) and Uncorrectable Error
Since

a DBE exsists at this address the write should be aborted.

Repeat 5 and 6 for data of ones
write abort and parity trap.
This test checks to see

in the low byte and check for

if a double bit error will be aborted and a

byte write of a double bit error will be aborted.
NOTE
This test

is only run for the MSV11-J

' CVMJARO MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 56
SEQ 0055

6.2.2.11

Test 17

Holding 1's

UWrite a 16K Bank with

0's Test

alternating

writing a Byte at a time.

Bytes

Read each Word for correct Test.

Do (1-2) again for a complement Test.

This checks the memory for the capability of holding 0's

Zeros

1's.

Ones

2406

Test 20

6.2.2.12

Syndrome Bits to the CSR on a SBE Test

Write CSR with check bits to correct bit 0 of the first AUT

Write AUT with data of 0's creating a SBE.

Clear CSR.

16k bank from a 0 to a 1 with diag mode.

Read the AUT to clock the address and syndromes

2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405

Page 57

Read the CSR for the SBE

CVMJAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-F2b-85 16:10

Write the CSR to diag mode to clock the syndrome bits into
CSR bits 5-11.

into the CSR.

indicator, bit 4.

Read the CSR for the proper syndrome bits.
Repeat 1-7 for all 16 data bits.
Repeat 1-8 for data of ones so that a correction will occur
from a 1 to a zero.
This test checks to see that the EDC chip can detect Single Bit
errors for all 16 data bits by checking for CSR bit#4 and
that
the proper syndrome bits are placed in the CSR.

NOTE
This test

is only run for the MSV11-J

——

| CVMUARO MSV11-J MEMORY DIAG.

———

MACRO V05.01b Friday 15-Feb-85 16:10

————

———

Page 58

SEQ 0057

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
2455
2456
2457

6.2.2.13

Test 21

Marching 0's

1's Test

Write a Background of alternating Bytes of Zeros

For
(a)
(b)
(c)

the 16K Bank addressing Down
Read check a word
Byte Swap a word

Read check a word

For the 16K Bank addressing Up

For the 16K Bank addressing Up
(a) Read check a word

(a) Read check a word
(b) Byte Swap a word
(c) Read check a word

(b) Byte Swap a word
(c) Read check a word

For the 16K Bank addressing Down

(a) Read check a word
(b) Byte Swep a word
(c) Read check a word

This checks the

integrity of the 32 Bit Double Words.

It cen execute out of the User Data PAR's.

NOTE
It is not uncommon to see
a
misleading
error typeout because the second test in
each case is based upon
a byteswap of
the first test which may or may not have
failed.
If the error
report
indicates
errors
in pairs with the bad bit in the
second
report being
the
same
bit
position
relative
to
a byte then you
should ignore the second error report.

Ones

————————
w—

CVMJAAQ MSV11-J MEMORY DIAG.
2459
2460
2461
2462
2463
2464
2465
2465
2467
2468
2469
2470
2471
2472

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0058

6.2.2.14

Test 22

Refresh Test

UWrite a diagonal Test of ones on every KDIAG(TH) stripe

write zeros elsewhere.
This Test

is on addresses not bit positions.

Example:
Address

MSB's

LSB's

2473
2474
2475
2476
2477
2478
2479

2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496

Page 59

'00010001
'00100010
'01000100
110001000
'00010001
100100010
'01000100
110001000

NOTE
Example uses KDIAG of value 4 more typical

is a value

of
8.
Consult the symbolic definition of "KDIAG"
the program listing to be sure.

Disturb each row for > 3.2ms
Read check diagonal pattern

Do (1-3) KDIAG times moving the
placement
stripe to cover all address positions.

Do (1-4) for & complement pattern
(zeros in a background of ones)

NOTE
This

test

not

except under
APT
invoked VIR Field

(Kamikaze Mode).

normally

executed

or
ACT.
It may be
Service
Command
13

the

diagonal

&
e

Page 60

—

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0059

2513
2514

2515
2516
2517

6.2.2.15
Similar

Test 23

Shifting Diagonal Test

in overall operation toc test 22 except

for refresh and disturb rows.

does

NOTE
This

test

not

except under
APT
invoked VIA Field
(Kamikaze Mode).

normally

executed

or
ACT.
It may be
Service
Command
13

not

delay

—

| CVMUARO MSV11-J MEMORY DIAG.

—

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 61

SEQ 0060

2535
2536
2537
6.2.2.16

Test 24

Fast Galloping Pattern Test

This does a classical galloping

pattern

except

incremented by 400 Octal (every 64th double word)

that

NOTE
This

test

not

except
under
APT
invoked VIA
Field
(Kamikaze Mode).

normally

executed

or
ACT.
It may be
Service
Command
13

addressing

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 62

SEQ 0061

2556

6.2.2.17

Test 26

Write Random Data

Random Data Test
in a 16K Bank while

incrementing the Addresses.

Read check Random Data.

This routine regenerates the same random numbers

using

the

same

seed
as the write sequence.
After the read check the seed is updated
so that the next use of this pattern will not invoke the same sequence
of random numbers.
If you wish to change the random sequence so that it is different than
any other run in the same configuration then there are 2 ways of doing
SO.

2587

Modify symbolic locations "SEEDHI" and "SEEDLO" to any number
you like.

Enter Field Service Mode and execute this Test (command S5)
on some (any good) bank for a short time (30 sec or so).

This can execute out of the User Data PAR's,

and the Supervisor Data PAR's.

the

Kernel

Data

PAR's,

CVMJUAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 63
SEQ

2589
2590

2595
2597

6.2.2.18

Test 27

Unique Bank Test

This Test uses Test 0 to write

read the Bank

number

each

2598

bank.

2600

It does not test Banks that require relocation to test.

2602

It does'not run as part of any script but rather is always run after

2603

normal pattern tests are complete.

0062

—

| CVMUAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 64

SEQ 0063

2607
2608
2609

6.2.2.19

Test 30

Flush Out DBE's Test

This Reads each location then moves the old value back

done b?lgh

in.

This

ECC Disabled and therefore corrects any DBE's or SBE's (if

possible

It does not run as part of any script but rather is
always run
just
prior
to the
End of
Pass
Code,
as
part of
a Control "C" (Boot)
command, as part of End of Pass shutdown for ACT or XXDP
Chain Mode,
as part of hanging sequence after an error if under ACT or APT, and as
part of a shutdown sequence directed by Switch 8 (Halt Program)

[CVHJAAO MSV11-J MEMORY DIAG.
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2630
2651
2652
2653

MACRO V05.01b Friday 15-Feb-85 16:10

6.2.2.20

Test 31

Page 65

SEQ 0064

SOB-A-LONG Test

Rationalization

In order to concentrate the memory cycles of a test into a particular
address,
we must
cut the overhead cycles to a minimum.
Frequently,
the
instruction itself
meI
provide adequate
data or
set
up
a
background in which any complemented bit may find it hard to survive.
The SOB instruction is the only
PDP-11
instruction
that
is
(1)
a
single operand, (2) can be repeatedly executed at the same PC and, (3)
can escape this repetitious loop.

Hence, it can be possible to SOB a MOS cell
to death
(or
at
leasst
brain wash him), and to SOB a core into over-heating (or at least warm
discomfort).
The SOB Routine will be loaded and called with RO set equal to the SOB

constant
"“SOBK",
Rl
Instruction "100776".

set

equal

the

complement of a "“SOB RO,."

Simplified SOB Example:
1%:

2%:

S0B
MOV
CMP
BEQ
SOBFAIL
S0BMOV1
S0BMOV2
SOBMOV3
S0BMOV4
..
SOBMOV.

RO,1$
R1,1$
R1,1$
2%

;S0B till RO underflows
;Write complement of SOB
;Read check not SOB
;Skip if OK
;Trap report error
;Code to
get self moved

;Forward 1 word and run again

The value of the SOB constant can be found at symbolic location "SOBK"

(typical 25 decimal).

This test is not in the normal script of execution but na¥ be
added
via the
APT
E-TABLE, reference symbolic locations "MKPAT", "MJPAT",
"$DDW2-5".
Field Service Mode command 8
is the normal
method of
running this pattern.

NOTE
This

test

not

except
under APT
invoked VIA Field
(Kamikaze Mode).

normally

executed

or
ACT.
It may be
Service
Command 13

| CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 66

SEQ 0065

2679
2680
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

6.2.2.21

Test 32

Urite Recovery Test

This test causes a WRITE,

end
if
the
1st,
the 2nd, 4th, 6th,

out the error.

WRITE, READ,

Write Recover¥ Test
This test differs from other tests

...

to occur

memor

1
in that

it consists

of a small test program actually running in the bank under test.
The progrua is self nodifyung and may be difficult to debug.

To aid in
the dcbuY. remember that the
bank and margin are being
giozlgygg.dThis will allow the user to at least see which memory
ank

Tailed.

The test consists of 1/2 of the bank stored with "MOV R2,-(PC)"

and the other 1/2 containing "177667". "177667" is the complement
of "JMP (RO)" instruction.
R2 contains “COM -(R1)” instruction
:: :ng:xkto the bank and R1 contains the highest test address
a

If you understand this so far the rest is easy.
The test execution is as follows:
1. The "MOV R2,-(PC)" instruction executes storingu.
the contents of R2 in the address it vacated (
to -(PC).
2. Since
R2 contains a "COM -(R1)" instruction it complements
the highest address under test.

this address contained

"177667" so after the COM -(R1) it equals 110
cleverly this is the "JMP (RO)" instruction.
3. This sequence continues until the "MOV R2,-(PC)"
instructions reach the middle of the test bank.

then the "JMP (RO)" instruction is met
and executed. RO contained the return address back
to test 13.
4. These steps are repeated for each bank under test.

217

2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728

READ,

3rd, Sth, ...READ is bad the pro?ran may bomb or i
...
READ is bad the progrem will
gracefully
type

NOTE
This

test

not

except
under
APT
invoked VIR
Field
(Kamikaze Mode).

normally

or
ACT.
Service

executed

It may be
Command
13

f
|

CVMJAAQ MSV11-J MEMORY DIAG.

MACRC V05.01b Friday 15-Feb-85 16:10

Page 67

SEQ 0066

2733

2733
2734
2735
2736
2737
2738
2739
2740
2741
2742

2743

2744
2745
2746

6.2.2.22

Test 33

Branch Gobble Test

This test loads & small routine
into
the
-e-orz
under
test.
The
routine
moves itself along in memory one word after each pass so that

when it reaches the end every
location with the exception

instruction has executed from cverz
of
the beginning and end of each tes

area.

The Branch Gobble's general format after you eliminate setup code

code to move the program along is as follows.
BGTEST:
BRGOBB:

1%:

24:

3%:
44:
This

O
SEC
ADCB
BMI
INCB
BR
BVS
ERROR
CLV
INCB
BCS
BVC
BMI
ERROR
RETURN

code

; TEST WORD
BGTEST
14
BGTEST+1
BRGOBB
24

;INC LOW BYTE
;END LOOP AFTER 128 TIMES
;INC HIGH BYTE
;LOOP 128 TIMES
;BRANCH IF V-BIT SET (SHOULD BE)
;ERROR TRAP
;CLEAR V-BIT
;INC HIGH BYTE ONE LAST TIME
;BRANCH IF C-BIT SET (SHOULD NOT BE)
;BRANCH IF V-BIT CLEAR (SHOULD NOT BE)
;BRANCH IF N-BIT SET (SHOULD BE)
;ERROR TRAP

BGTEST
3%
3%
44

origionoll¥

came

from

Exerciser DZQKA-A.
he first
section of that diagnostic and
exerciser ever since.

the

PDP-11

Family

test

not

except
under
APT
invoked VIA
Field
(Kamikaze Mode).

Instruction

MOS memorys fell succeptable to this
it has been an
important memory

NOTE
This

and

normally

executed

or
ACT.
It may be
Service
Command
13

' CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 68

2780
2781
2782

2783

2784

2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797

2798
2799
2800
2801
2802
2803
2804

6.2.2.23

Test 34

Soft Error Test

Rationalization

MOS chips have a failure mode in which they can randomly pick or_
drop
bits.
~This is ceaused by Alpha particles bombarding the cell.
If the
cell is very small (and they are) then the electrons displaced by the
Alpha particle
are sufficient to cause the cell to change from a one
to a zero or from a zero to a one.

This test

is controlled bg the main

The configuration table

create
est

ram.

Test

invalidated

background.
This Test

125252

because

and

program so

52525

that

used

on alternate passes of the

is used to flag banks that have

another

Test

was written over this

is nothing more than a clever use of Test 0.

to
the

' CVMJARO MSV11-J MEMORY DIAG.

MACRO V0S5.01b Friday 15-Feb-85 16:10

Page 69

SEQ 0068

2806

2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829

2830
2831
2832
2833
2834

6.2.2.24

Test 35

Worst Case Parity Test

Force Write Wrong Parity
Under Test.

in each 1K word block of the

Read with Parity Trapping enabled, making sure

that

Memory

trap

occurrs.

Make sure error address bits are set correctly.
Write good parity without trapping,
occurrs when read.

and

make

NOTE
This test is run for parity memory which
is not controlled by the same CSR as the
program.

sure

- CVMJUAAQ MSV11-J MEMORY DIAG.

Page 70

2836
2837

Test 36 Correction Code Test

6.2.2.25
1.

MUrite CSR with check bits to correct bit 0 of the first address
in a 16k bank from a 0 to a 1 with diag mode.

}fl&ul\)

MACRO V05.01b Fr iday 15-Feb-85 16:10

Write AUT with data of 0's.
Read AUT for correction of bit O from a 0 to a 1.

Repeat 1-3 for all 16 data bits.
Repeat 1-4 for data of ones so that a correction will occur
from a 1 to a zero.

This test checks to see that the EDC chip can correct Single Bit
Errors for all 16k data bits froma 1 to a 0 and visa versa.

NOTE
This test

is only run for the MSV11-J

SEQ 0069

-l

——

| CVMJAAO MSV11-J MEMORY DIAG.
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875

gg;g

2880
2881
2882
2883
2884
2885
2886
2887
2888

MACRO VO0S.01b Friday 15-Feb-85 16:10

6.2.2.26

Test 37

Page 71

SEQ 0070

Check ECC Disable Test

UWrite CSR with ECC disable, Diag mode, and SBE check bits
of 000010.

MWrite AUT with data of zero's.

This should write check bits to

3. Read AUT for data of zeros insuring no correction was made.
NOTE
This test is run on the MSV11-J only.

| CYMJAAO MSV1i1-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 72

SEQ 0071

2890
2891

6.2.2.27

Test 41

Address to CSR on DBE Test

Write AUT with data of zeros creating a DBE.

Read AUT to detect DBE and to clock address

Write CSR with ECC disable, Diag mode, and Double Bit error
check bits of 010011

Read CSR for correct address

Increment address by lk and repeat i-4 until 16k

This test

in bits 5-11.

insures that the correct address appears

NOTE
This test

into CSR

is run on a MSV11-J onliy.

is done.

in CSR bits 5-11 on a DBE

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 73

SEQ 0072

Test 42

Extended Address to CSR on Error Test

Write CSR with SBE check bits of 000010 with Diagnostic Mode.
n

2927
2928
2929
2930
2931
2932

6.2.2.28

g;éte low address

o0AW

2919
2920
2921
2922
2923
2924
2925
2926

Clear the CSR.

in a 16k bank with data of zeros creating a

Read address to detect SBE.
Read CSR for correct address and the SBE

indicator bit #4.

Enable CSR bit 14 to check the Extended address bits.
Read CSR for correct address bits
Repeat 1-7 with a test address that

is the highest

in a 16k bank.

This test checks to see that the correct address bits apppear in the CSR.
This is also repeated for the Extended Address function in the CSR.

NOTE
This test

is only run for the MSV11-J

—)

- CVMJUARO MSV11-J MEMORY DIAG.

———

MACRO V05.01b Friday 15-Feb-85 16:10

Page 74

SEQ 0073

|
6.2.2.29

Test 43

Urite Byte Test

Write CSR to Dieg mode with check bits of 001100.
correspond to data of zeros.
Write first AUT with data of one in bit zero.
effectively creates a SBE in byte 0.

These

The write

Clear the CSR
Write byte 1 of the AUT with data of all ones.
Read CSR to check for SBE

indication.

Write the CSR to Diag mode.

Read the AUT to check for the correct data -- all ones
and all zeros in low byte.

in high byte

Read the CSR to check for correct check bits corresonding to the data
read in (7).
These check bits are 000110.

Repeat (1)-(8) this time creating an error in byte 1 (2) and writing
byte 0 in (4)
This test checks to see that a SBE will be corrected during the read portion of the

byte write and that correct checkbits will be generated on the write.

NOTE
This test

is only run for the MSV11-JU

MACRO V05.01b Friday 15-Feb-85 16:10

Page 75

SEQ 0074

6.2.2.30

Test 44

Shifting Checkbits through the CSR Test

Write CSR to Diag Mode to Enable Checkbit register.
Write CSR with check bits of 000001, ECC diseble and Diag mode.
Write memory with data of zeros.
&

Complement check bits pattern and write CSR as

Read CSR for complement check bit pattern.

Read memory to read check bits written

This should write the check bits

Read CSR for corret check bits written

into memory.

Shift check bit pattern and repeat (1-7) till CSR bits 5-10 are done.

| CVMJAAO MSV11-J MEMORY DIAG.

Complement check bit pattern

10.

through a field of ones.

in (2)
in (2).

in (2).

into CSR.

in (2) and repeat (1-8) shifting

Repeat 1-9 for every 100 octal locations

a zero

in 16k

This test checks the ability to read check bits from the CSR to memory and back.
The test is done twice. Once shifting a field of a one thr
a field of zeros

and a8 zero thr
a field of ones.
This tests the Checkbit/Syndrome bit register
and Check bit RAM's.
This test is done for every 100 octal locations in 16K.
NOTE
Tnis test

is only run for the MSV11-J

MACRO V05.01b Friday 15-Feb-85 16:10

Page 76

SEQ 0075

Write CSR with DBE check bits of 110011 with Diag mode.
Write memory with data of zeros creating a DBE.

Clear CSR.
Read memory to detect DBE.
indicator.

Read CSR for Uncorrectable error

Write CSR to Diag mode to read Syndrome bits

Write CSR with Diag mode to enable Check/Syndrome bit Register.

Syndrome Bits to the CSR on a DBE Test

Test 45

¢.2.2.91

Read CSR for correct Syndrome bits of 111111.

CVMJAAQ MSV11-J MEMORY DIAG.

into CSR.

Repeat (1-8) with Muliple Bit Error check bits of 111100 and
corresponding Syndrome Bits of 110000.

This test checks the abilitz of the CSR to_detect a DBE and read for the proper

Syndrome bits g‘ncrated by the EDC chip.
This test
bits corresponding to a Multiple Bit error.

is then repeated with check

NOTE
This test

is only run for the MSV11-J

' CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V0S.01b Fridey 15-Feb-85 16:10

Page 77

SEQ 0076

3078

6.2.2.32

Test 46

Check Single Bit Errors with ECC Disabled Test

Write CSR with check bits to correct bit 0 of the first address

Write AUT with data of 0's thus creating a SBE.

Read AUT to detect SBE.

Check to see that no trap occured.
is set.

Read CSR to see that uncorrectable error (CSR15)
Repeat 1-6 for all 16 date bits.

Write the CSR to ECC disable.

in a 16k bank from a 0 to a 1 with diag mode and ECC disabled.

Repeeat 1-7 for data of ones so that a correction will occur
from a 1 to a zero.

Repeat 1-8 except in steps (3) the CSR is written to ECC Disable
and BUS PBL enable and (5) we check for traps.

s s s e

This test checks to see that SBE are treated a uncorrectable errors with ECC

The test is repeated 2 times, once with traps disabled and again
Disable.
with it enabled.
this is done for all 16 possible SBE
conditions.

NOTE
This test

is only run for the MSV11-J

—

| CVMJARO MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 78

3116
3117
3118

=
N

Write the CSR with DBE check bits of 110011 and Diag mode.
Write memory with data of zeros creating a DBE.
Write CSR with SBE check bits of 000010 and Diag mode.
Write memory 4k above address

in (3) creating a SBE.

Read memory with address

Clear CSR.

Read CSR for correct address and Uncorrectable error

Write the CSR to Diag mode to enable Checkbit/Syndrome bit Register.

NO CSR Update On SBE with exsisting DBE test

Test 47

6.2.2.33

in (3) to detect DBE.

Read memory with address

indicator

in (5) to detect SBE.

10. Bco?aSSR for SBE indicator and no change

in DBE status in CSR

This test checks to see that no update will occur

memory when a DBE already exists.

in the CSR with a SBE

NOTE
This test

is only run for the MSV11-J

—

——

ICVHJAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 79

3151
3152
3153
3154
3155
3156
gigg

6.2.2.34

gizg

This is an

3161
gigg

This test replaces any real tests when the APT E-Table does
specify a test to be run.

SEQ 0078

Test 999 Null Test
instant return added to preserve the software structure.

not

CVMJAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

|
Page 80

SEQ 0079

3165
gigg

7.0

PROGRAM FEATURES

gigg

7.1

Feast Data Access Rates

3170
3171
317
317
3174
3175
gi;g

One of the main areas of concern
in testing memory
in systems
environments
is speed.
One of the prime reasons that system programs
like RSTS,IAS and MUMPS can crash due to memory Ffailures not
detectable by memory diagnostics (0-124K,0-2 MEG,etc.) is because of
multiple NPR devices contending for the bus.
After some delay & NPR
device becomes bus master and does several memory transfers at memory
data rates.

3178
3179
3180

On the other hand most diagnostics when writing readi
and/or
checking patterns spend most of their time fetching instructions and
operands out of their program space and proportionally little time

318§
3184

This
diagnostic’'s error detecting abilities
have been optimized around
the prnnorz design criteria of speed.
To this end the following steps

gigl

accessing the memory under test.

3185
3186
3187
3188
3189

have been

gigg

7.1.1

3192

Utilization of Memory Menagement Registers

3194

and Data

3193
3195

gigg
3198

3199

3200
gggé

QBUS,

taken.

Fast City

Bipolar Memory.
Space

UIPAR's,

UDPAR's,

The

program

runs

Memory

Bus,

Non

KDPAR's,

SDPAR's

end

executed

from

with some Bit Pattern

restrictions the UIPDR's, UDPDR’'s, KDPDR's, and SDPDR's.

Supervisor

Kernel

mode

mode for g.ppnng purposes.

and

Patterns

3205

this

NOTE

3207

18-Bit PDP-11's cannot execute from

3208

PAR's

3210

Mode.

3209

because

bits wide;

3211

their

SO0B's

the

PAR's are only 12

they also have no Supervisor

Therefore,

executed
in memory,
(reference Section

7.1.2

eare

all
:

executed

All core patterns and some MOS

Patterns are
subroutines
that
are
moved
referred to in the program as Fast City.

3206

sgEcEcs

Non

is never used, then subroutines can

the

3203
3204

[« BT AV R X7 1.V

Since User Mode is only used for relocation

patterns

using

User

are

Mode

Bipolar

region

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 81

Utilization of the
full
PDP-11
Instruction
algorithms (principally the S0B).

7.1.3

SEQ 0080
Set

speed

pattern

CACHE

CACHE is used between pattern tests to decrease program pass times.
CACHE can be defeated by the operator (reference section 2.4.3.1).

7.2

Beank Zero Testing

Bank Zero has been traditionally neglected by memory
the following reason.

diagnostics

for

The vector space exists there and
ALL
traps must
not
access
test
pattern data.
If the area is tested the diagnostic must not use any
traps, and it is against the rules for power to fail.

Systems with Memory Management can overcome this because all traps are
to Kernel Virtual space even if the power should fail (caution must be
observed because power up goes to phgsncol
address 24
(because the
Memory Management Unit comes up off)).
However, Catch 22 is that the di
mode because APT Accesses Physical

stic is not APT compatible in this
Memory Locations.

The PDP-11/83 can over come this because the QBUS Map can fool APT.

Because of the previous arguments this program does not relocate
in
the true since of the word (i.e.
no position independent code was
written (at least not on purpose)), but rather this ?rogrnn moves and
remaps
(hereafter
referred to as
relocates).
his enables
the
complete testing of Bank Zero or any other pro?ron space or privileged
space exactly
as all other banks are tested.
(The conditional test to
see if a bank
is protected is complemented when relocated).
NOTE
The program will relocate
only
in
the
first
pass
under APT;
after this, the
grogram will remain fixed in Banks 0 and

7.3

Memory Configuration Map

- CVMJUAAQ MSV11-J MEMORY DIAG.

!
!

3275

3276

3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 82

SEQ 0081
This map

is printed out

immediately after sizing.the memory unless SW6

is set (reference section 2.4.1).
It can also
printed at any later
time in Field Service Mode (reference section 2.4.4.8.7)
Example:

—

MEMORY CONFIGURATION MAP
16K BANKS

012345672%23456701234567012345670123456701234567012345670123

MEMTYPE EEEEEEEPPPPPPPPPPPPPPPPPPPPPPPPEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
CSR
0000000011111111222222225222222244444444444444444444444444‘4
PROTECT PP
——

1
0

1
1

1
2

1
3

1
4

1
5

456701234567012345670123456701234567012345670123456701234567

MEMTYPE EEEE

CSR

PROTECT

4444

Displayed are Banks 0-77 Octal (1 meg words).
If
the Fat
Terminal
Switch
was _set (reference section 2.4.1) then all Banks (0-177) would
be shown.
If this was an 18-Bit PDP-11 (eg - 11/23), only Banks 0-7
would be printed.

The fields:

ERRORS:
The si7 'ng routine could not write zeros and ones
10
11, nence they are marked as bad with X's.

Banks

ERRORS:
MEMTYPE:

Banks 0-7 are Henorg Txpe E (MSV11-J), and Banks
10-37
are
Henorx Tgpe P
(MSV11-L/P)
and Banks 40-77 are memory type
E(MSV11-J).
Banks 100-167 do not exist.

CSR:

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Page 83

SEQ 0082

Banks 0-7 are assi
d to CSR 172100, 10-17 to CSR
172102,
and 20-37 to interleaved CSR's 172104 and 172106 and banks
40-77 are assigned CSR 17210.

PROTECT:

Banks 0 and 1 are protected because they are program
space.
Bank
0
and 1 can also be protected because they are in the
bottom 16K of an MSV11-L/P CSR.
The protection is hierarchical

and program space
overshadows MSV11-L/P protection.
Banks 0
and 1 will not be tested until the program
relocates.

7.4

Everything You've Always Wanted To Know About SUPERMAC

SUPER-MAC

is a

set

programs to be written

As a general

rule,

structured

programming

SUPER-MAC

statements

in a high level,

most

macros

...

that

allows

easily understood language.

can

single-line

statements or multiple-line (nested) block statements.
A single-line
statement must be completed on one source line;
no continuation lines
are
allowed.
Single-line statements should be as short and si-gle as
possible.
Comments naz_also be included on a source
line.
All
the
neral

rules,

conditions,

etc.,

that

govern MACRO-11 also govern

UPER-MAC.
Spacing on a source lne is very important.
The elements
should be separated by a comma or a space.
Tabs should never be used

for
spacing.
For
example:
different than A + B.

The

expression

A+B

interpreted

All the conditional statements can be written as multiple-line

nested

blocks.
Each level of nesting within a block must be terminated with
an associated END statement.
ach level of nesting should be indented
two spaces.

User written macros or assembly language instructions may be
included
in
a program if desired.
As a de
ing aid, if the symbol LST$$ is
defined, it
will cause
generated code and labels to be
listed.
All
programs must begin with

SUPER-MAC.

All

in SUPER-MAC.

the macro call SMACIT.

This call

initializes

legal PDP-11 source and destination operands are legal

3368

3369
3370
3371

Page 84

SEQ 0083
7.4.1

CHIOMMOOM>®

3372
3373

3374
3375
3376
3377
3378
3379
3380
3381
3382

—

MACRO V05.01b Fridey 15-Feb-85 16:10

Semple Source File -

3
L ABS
.ENABL AMA
.MCALL .SUPER
.SUPER
;LST$4$=0
BITS=40
0
0
0
0
0
0
0
0
0
0
.PAGE

;LET EXAMPLES
LET
LET
LET
LET
LET
LET

; IF EXAMPLES

RO := A
B :=C + D
E :=F «
1
G :=H +
2
J :=J +
01
A :B= B

IF A IS TRUE
MOV
23,0
END ;OF IF A
IF B IS FALSE
MOV
34
E
END ;OF IF B
IF AEQ B THEN LET C := D
IF
ALTB
C.D
MOV
ELSE
E.D
MOV
END ;OF IF A
IF
AEQ B AND C NE D
F,G
MOV
END ;OF IF A
IF
AEQBORCNED
F.G
MOV
END ;OF IF A
IFB AEQ B AND C EQ 1
H,J
MOV
ELSE
MV
E.J
END ;OF IFB A
IFB A EQ B ANDB C EQ 1
MOV
H,J
ELSE
MOV
€.

' CVMJAAQ MSV11-J MEMORY DIAG.

—

| CVMJAAO MSV11-J MEMORY DIAG.

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

——

MACRO V05.01b Friday 15-Feb-85 16:10

Page 85

END ;OF IFB A
IF RESULT IS EQ
MOV
A,B
END ;OF IF RESULT
IF BITS SET.IN A
Mov _ B8,C
END ;OF IF BITS
IF
BITS OFF.IN A
Mov _ C,D
END ;OF IF BITS
;ON.ERROR IS LIKE AN IF STATEMENT ON THE C-BIT
;ON.ERROR EXAMPLES
ON.ERROR
MOV
A,B
ELSE
Mov
_C,B
END ;OF ON.ERROR
ON.NOERROR
MOov
C.B
ELSE
MOV
_A,B
END ;OF ON.NOERROR
ON.ERROR THEN LET A :B= B

;FOR EXAMPLES
FORI :=
-5T0
INC
A
END ;OF FOR I
FOR RO := 0 TO

3452
3453
3454
3455
3456
3457
3458
3459
3460

140 BY 4
DEC _ A(RO)
END ;OF FOR_RO
FOR I := 133 DOWNTO 3 BY
ADD
A.,B
END ;OF FOR I
;BEGIN EXAMPLES
BEGIN ALPHA
FOR RO := 0 TO 167

3465
3466
3467
3468
3469

IF B GE O THEN LEAVE ALPHA
END ;OF FOR RO
END ALPHA
: $RETURN EXAMPLES
$RETURN

3461
3462
3463
3464

3470
3471
3472
3473
3474
3475

SEQ 0084

Move
ACRO),B
IF B LT O THEN LEAVE ALPHA
END ;OF FOR RO
FOR RO := 400 TO 567

$RETURN ERROR
$RETURN NOERROR
;CASE EXAMPLES
MOV
A.RO
CASE RO
A

—

. CVMUAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

Pege 86

SEQ 0085

3477
3478
3479
3480
3481
3482
3483

B
C
D
E
F

END ;OF CASE RO

.END
Samp le Listing File (with No ExBanded Macros) -

HACRO M1111 01 APR-79 16:41

WONOUVNHWN
-

7.4.2
.MAIN.

000000

PAGE 2

.ENABL ABS
.ENABL AMA
.MCALL .SUPER
.SUPER

000000
000000
000002
000004
000006
000010
000012
000014
000016
000020
000022

;LST$4=0

000040
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

MACRO M1111

A:
B
C
D
E
F
G
H
I
J

O01-APR-79 16:41

000136
000136
000154
000164
000172

BIT5=40
0
0
0
0
0
0
0
0
0
0

PAGE 3

;LET EXAMPLES

000024
000030
000044
000056
000072
000100
000106
000114
000122
000122
000130

LET RO
:
LET B := C +D
LET E :»F »
)
LETG :=H .+
2
LET J :=J +
01
LET A :B= B

:IF EXAMPLES
012737

000023

000006

012737

000034

000010

013737

000004

000006

IF A IS TRUE
MOV
23,0
END ;OF IF A
IF B IS FALSE
MOV
34,E

END ;OF IF B
IF A EQ B THEN LET C := D
IF
ALTB
Mov
C.D
ELSE

000362
000362
000372
000400
000400
000410
000416

000416
000420
000426
000430

000456
.MAIN.
75
76
77
78
79

000006

013737

000012

000014

013737

000012

000014

013737

000016

000022

013737

000010

000022

013737

000016

000022

013737

000010

000022

013737

000000

000002

013737

000002

000004

013737

000004

000006

IF A EQ
MOV
END ;OF
IF A EQ
MOV
END ;OF
IFB A EQ
MOV
ELSE
MOV

CNED

CNED
AND C EQ

a
END ;OF
ANDB C EQ
IFB A EQ
MOV
ELSE
MOV
END ;OF
A
IF RESULT IS EQ

MOV

A,B

END ;OF IF RESULT
BITS SET.IN A
IF
MOV
B,C
END ;OF IF
BITS
IF
BITS OFF.IN A
MOV
C.D
END ;OF IF BITS

;ON.ERROR IS LIKE AN IF STATEMENT ON THE C-BIT
;ON.ERROR EXAMPLES
013737

000000

000002

013737

000004

000002

013737

000004

000002

013737

000000

000002

MACRO M1111

O01-APR-79 16:41

000456

000466
000474
000500
80 000514
81 000516
000522
83 000534

MOV

END ;OF

H'flQH.TiQHm

000010

M-

013737

000174
000202
000202
000222
40 000230
41 000230
42 000250
43 000256
44 000256
45 000276
46 000304
47 000306
000314
000314
000334
000342
000344
000352
000352
000354

o _c
o

36
37
38
39

SEQ 0086 |

I
=M
« OM-

3831

3532
3533

Page 87

-m
M-

MACRO V05.01b Friday 15-Feb-85 16:10

Wo.

' CVMJARO MSV11-J MEMORY DIAG.

ON.ERROR
MOV
A.B
ELSE
MOov
_C,B
END ;OF ON.ERROR
ON.NOERROR
MOV
C.B
ELSE
MOV

_A,B

END ;OF ON.NOERROR

PAGE 3-1
ON.ERROR THEN LET A :B= B

;FOR EXAMPLES
005237

000000

005360

000000

FORI :=
-5T0
A
INC
END :0F FOR I
FOR RO :=
0 TO

DEC _ A(RO)
END ;OF FOR RO
FOR I

140 BY

133 DOWNTO

3 BY

' CVMJUAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

3585

84 000542

3586
3587

85 000550
86

3588
3589
3590
3591
3592
3593

87
88
89
90
91
92

3594

000566
000566
000570
000576
000604
000614

063737

116037

Page 88

000000

SEQ 0087

000002

ADD

BEGIN ALPHA
FOR RO :=
0 TO
167
MOVB
ACRO),B
IF B LT O THEN LEAVE ALPHA
END ;0F FOR RO
FOR RO := 400 TO S67

000002

93 000620

3595
3596

A,B

END ;OF FOR I
;:BEGIN EXAMPLES

IF B GE

94 000626
95 000636

O THEN LEAVE ALPHA

END ;OF FOR RO
END ALPHA

3597

; SRETURN EXAMPLES

3600
3601

99 000644
100

$RETURN NOERROR
;CASE EXAMPLES

3603

102 000654

3598
3599

3602

97 000636
98 000640

101 000650

3604

103 000664

2606

105 000670

3605
3607

$RETURN
$RETURN ERROR

013700

000000

MOV

CASE RO

000000

104 000666

000002

106 000672

000006

A,RO

000004

3608

107 000674

108 000676
109 000700

000012

F
END ;OF CASE RO

ggig

111

000001

.END

3609
3610
3611
3614

3615

3616
3617

110

7.4.3

MACRO M1111

O01-APR-79 16:10

.MCALL .SUPER

3621

4 000000

3623

000040

3625
3626
3627
3628
3629
3630
3631
3632
3633

8 000002
9 000004
10 000006
11 000010
12 000012
13 000014
14 000016
15 000020
16 000022

000000
000000
000000
000000
000000
000000
000000
000000
000000

3624

3634
3635

3636

7 000000

.MAIN.

.ENABL ABS

3622

PAGE 2

1 000000

3619

3620

Semple Listing File (with Expanded Macros) -

.MAIN.

3618

000010

.ENABL AMA
.SUPER

000000
000000

MACRO M1111

O1-APR-79 16:10

LST$$=0

B:
C:
D:
E:
F:
G:
H:
I:
J:
PAGE 3

BIT5=40
0

0
0
0
0
0
0
0
0
0

“s
.
o

3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681

25
26 000106
000106

000112

27 000114
28 000122
000122
29 000122
000122
000126
30 000130
31 000136
000136
32 000136
000136
000144
000146
000154
33 000154
000154
000162
34 000164
35 000172
000172
000174
36 000174
37 000202
000202
38 000202
000202
000210
000212
000220
39 000222
40 000230

013737
005237

000012
000010

000010

013737
062737

000016
000002

000014
000014

062737

000001

000022

113737

000002

000000

005737
001403
012737

000000
000023

: IF EXAMPLES

000006
LO:

005737
001003
012737

000002
000034

000010
L1:

023737
001003
013737

000000

023737
002004
013737

000000

000002

000004

000006

000010

000006

000002

000006

Le:

000403

013737

L3:
L4:

023737
001007
023737
001403
013737

000000

000002

000004

000006

000012

000014

000002
000002

000004
000006

013737
063737

ET RO := A
MOV A,RO
LETB :=C + D
MOV C.B
ADD
LET
MOV
INC
LET
MOV
ADD
G
LET
ADD
LET
B3=
B
MOVB B,A
ITOmMMmMo

000000

013700

iLET EXAEPLES

LI
.

3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669

18
19 000024
000024
20 000030
00003¢C
000036
21 000044
000044
000052
22 000056
000056
000064
23 000072
000072
24 000100
000100

Page 89

3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651

IK7

MACRO V05.01b Friday 15-Feb-85 16:10

>»

:CVHJAAO MSV11-J MEMORY DIAG.

IF A IS TRUE
TST A
BEQ LO
MOV
23,0
END ;OF IF A

IF B IS FALSE

T1ST B
BNE L1
MOV
34.E
END ;OF IF B

IF A EQ B THEN LET C
CMP A,B
BNE L2
MOv D.C

IF
ALTB
CMP A,B
BGE L3
MOV
C,D
ELSE
BR L4
MOV
E,D
END ;OF IF A

IF
AEQ B AND C NE D
CMP A,B
BNE LS
CMP C,D
BEQ LS
MOV
F,G
END ;OF IF A

:= D

' CVMJAAO MSV11-J MEMORY DIAG.

3690

3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702

3703
3704
3705
3706
3707
3708

MACRO V05.01b Friday 15-Feb-85 16:10

Page 90

SEQ 0089
000230

41 000230

000230
000236
000240
000246

.MAIN.

LS:

023737
001404
023737
001403

MACRO M1111

000250
42 000250
43 000256

000000

000002

000004

000006

O1-APR-79 16:10

013737

000012

000014

000256

44 000256

000256
000264
000266
000274
45 000276
46 000304
000304
000306
47 000306
48 000314
000314
49 000314
000314
000322
000324
000332
50 000334
51 000342
000342
000344
32 000344
53 000352
000352
000352
000352
55 000354
56 000362
000362
57 000362
000362
000370
58 000372
59 000400
000400
60 000400
000400

BEQ L7

PAGE 3-1
L6:

L7:

123737

001010
023727
001004
013737

000000

000002

000004

000001

000016

000022

000010

000022

00040,

013737

L10:

L1l:

123737
001010
123727
001004
013737

000000

000002

000004

000001

000016

000022

000010

000022

000403
013737

Li2:

L13:

001003
013737

000000

000040

000000

000002

000004

L1S:

032737

000040

000000

MOV
F,G
END ;OF IF A

IFB A EQ B AND CEQ
CMPB A,B
BNE L10
CMP C, 1
BNE L10
H,J
MOV
ELSE
BR L11

MOV
E.J
END ;OF IFB A
IFB A EQ B ANDB C EQ
CMPB A,B
BNE L12
CMPB C, 1
BNE L12
H,J
MOV
ELSE
BR L13
MOV
E,J
END ;OF IFB A

IF RESULT IS EQ
BNE L14
MOV

000002
L14:

032737
001403
013737

IF
AEQB ORCNED
CMP A,B
BEQ L6
CMP C,D

_A,B

END ;OF IF RESULT

IF BITS SET.IN A
BIT BITS.,A
BEQ L15
Mov__
B8.C
END ;OF IF
BITS
IF

BIT

BITS OFF.IN A

BITS,A

éCVHJAlO MSV11-J MEMORY DIAG.
3744
3745
3746
3747

MACRO V05.01b Friday 15-Feb-85 16:10

Page 91

SEQ 0090
61 000410

62 000416
000416
63
64
65 000416
000416
66 000420
67 000426
000426
000430
68 000430

013737

000004

Lle:

103004

013737

000000

L17:
000004

000002

71
72

73
74
75

L20:

MACRO M1111

000436

O01-APR-79 16:10

103404
013737

103003

78
79

3791

3795

81
82

BITS

000002

000000

000002

MOV

A.B

Mov

C.B

ELSE
BR L20

END

;OF ON.ERROR

ON.NOERROR

PAGE 3-2

Lel:

L22:
- 113737

76
77

000004

000403

013737

END ;OF IF

BCC L17

000002

000403

013737

C.,D

;ON.ERROR IS LIKE AN IF STATEMENT ON THE C-BIT
;ON.ERROR EXAMPLES
ON.ERROR

69 000436
000436
70 000436
.MAIN.

MOV

000006

BCS L21
MOV
c.B
ELSE
BR L22
MOV
A,B
END ;OF ON.NOERROR
ON.ERROR THEN LET A :B= B

BCC L23

000002

L23:

MOVB B.A

;FOR EXAMPLES

012737

177773

005237

000000

005237
023727
003770

000020
000020

000020

FOR I

BO:

000023
EO:

005000

005360

000000

062700
020027

00000-.
000140

Bl:

-5ST0

A
INC
END ;OF FOR I
INC I
CMP I, 23
BLE BO
FOR RO :=
CLR RO

0T0O

DEC
A(RO)
END ;O0F FOR RO
ADD 4,RO
CMP RO, 140

1408BY

3797
3798
3799

MACRO V05.01b Fridey 15-Feb-85 16:10

000532
000534
83 000534
000534
000542
84 000542
85 000550

000550

Page 92

003771
012737

El:

000133

063737

162737
023727
002366

000020

000002

000002
000020

89 000570

91 000604

92 000614
000614
.MAIN.

000003
E2:

B3:
005000

005737
002415

99 000644

B4:

000002

005200
020027
003766

000167

012700

000400

E4:

O1-APR-79 16:10

FOR I

MOV

133,I

ADD

133 DOUNTO

3 BY

A,B

END ;OF FOR I
suB 2,1
CMP I, 3
BGE B2

005737
002004

BEGIN ALPHA
FOR RO :=

CLR RO

000241
000207

A(RO),B

IF B LT
O THEN LEAVE ALPHA
TST B
BLT E3
END ;OF FOR RO
INC RO
CMP RO, 167
BLE B4
FOR RO

400,RO

000002

IF B GE
TST B

400 T0

567

O THEN LEAVE ALPHA

BGE E3
END ;OF FOR RO

000567
ES:

INC RO
CMP RO, 567
BLE B5

END ALPHA

; SRETURN EXAMPLES

000261
000207

167

PAGE 3-3

E3:

000207

0 T0

MOovB

MOV

BS:

95 000636

98 000640

000002

116037

005200
020027
003771

97 000636

BLE B1

;BEGIN EXAMPLES

MACRO M1111

93 000620

B2:

000020

87 000566
88 000566

SEQ 0091

$RETURN
RTS PC
$RETURN ERROR
SEC
RTS PC
$RETURN NOERROR
CLC

RTS PC

- em——

| CVMJAAQ MSV11-J MEMORY DIAG.

—

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

100
101 000650
102 000654
000654
000656
000660
103 000664
104 000666

3851
38

385

3854
3855
3856

3857

105 000670
106 000672
107 000674
108 000676
109 000700

110
111
7.5

7.5.1

~NOOVNAWN-O

PAR

7.5.2
PAR
NONB WO

000700
000700
000702
000704

013700

010046
006316
004737
000000
000002
000004
000006
000010
000012

Page 93

000000

SEQ 0092

;CASE EXAMPLES

MOV
A.RO
CASE RO
MOV RO, -(SP)

ASL asP
JS: PC,L24

000700

062616
013646
004736

TMmooOo®

L24:

000001

END ;0F CASE RO
ADD (SP)+,asP
MOV @(SP)+,-(SP)
JSR PC,a(SP)+
.END

Memory Management Mapping

Memory Management Mapping For The 11/83 -

SUPERVISOR

USER
Dst
Src
Src
Src
Dst
Dst
Dst
Dst

Program
Test
Ares
Test Area

Test Area
Test Area
Perif Page

Bk/Fst
Bk/Fst
Bk/Fst
Bk/Fst
Bk/Fst
Bk/Fst
Bk/Fst
Bk/Fst

Mem
Mem
Mem
Mem
Mem
Mem
Mem
Mem

Memory Management Mapping For QBUS-11's With Supervisor Mode (eg 11/23B)

SUPERVISOR

USER

Test
Area
Test Area
Test Area
Test Area
Perif Page

Dst Bk
Src Bk
Src Bk
Src Bk
Dst Bk
Dst Bk
Dst Bk
Dst Bk

Mep to CSR's
Perif Page

-—

CVMJAAQO MSV11-J MEMORY DIAG.
,

MACRO V05.01b Friday 15-Feb-85 16:10

- ——
.————

Page 94
SEQ

3902

g&s

7.5.3

3905
3906
3907

PAR
.0

KERNEL
eeeeeProgram

USER
Program/Dst Bk

6
7

Map to CSR's
Perif Page

Test Area/Dst Bk
Perif Page/Dst Bk

3908
3909
3910
3911
3912
3913
3914

1
2
3
4
S

Memory Management Mapping For QBUS-11's W/o Supervisor Mode (eg 11/23) -

Program
Program
Program
Program
Program

Program/Src Bk
Program/Src Bk
Test Area/Src Bk
Test Area/Dst Bk
Test Area/Dst Bk

0093

-l

—
————

CVMJAAQ MSV11-J MEMORY DIAG.
3918
3919 000000
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939 000000

MACRO V05.01b Friday 15-Feb-85 16:10

Page 96

SEQ 0094
.LIST
TOC
.ENABL
ABS
AMA
(ENABL
.DSABL
GBL

:NOTE:
CVMJAO.SML IS THE SUPER.MAC SOURCE AND IS RELEASED WITH
:THIS PROGRAM.
ALL THESE .MCALL STATEMENTS REFERENCE THAT FILE.
"MCALL
.MCALL

SMACIT,..PUSH,..POP,..TAG,..BRAN,
.EMIT, .EMITN, .EMITL, .EMITR
.IFOPR,.IS,.GENBR,.OPADD,.0PSUB,CLEAR,SET,CLEARB,SETE

.MCALL
'MCALL

1IF,.OR,.IFARI,.LERVE,.GOTO,OR,AND,
THEN,ELSE , WHILE ,CASE
FOR.TO.DOMNTO.REPEAT,UNTIL
.
THRU,END,BEGIN

"MCALL

'MCALL
.MCALL

000000
163000
000001

NLIST
LIST
.NLIST
LST$$=
$SWR=
.3}12(':11

RNE,REQ.RLT.RGE,RGT,RLE,RPL,RMI.RHI,RLOS,RHIS,RLO,RCS,RCC
$$END,LEAVE, JUMPTO,GOTO,PUSH,POP,LET

.SIMPLE, .ARITH,ORB,ANDB,IFB,UNTILB,WHILEB,ON.ERROR, ON. NOERROR
$CALL, $RETURN
:
TTM
MC,SYM
MD,CND,ME
0
163000
1

;I WANT FAT PAPER!
;LIST MACRO CALLS, SYMBOL TABLE
:DON’T LIST MACRO DEFS & CONDITIONALS & EXPANSIONS
;:DEFINED TO LIST SUPERMAC EXPANSICNS
;USE THESE SYSMAC SWITCHES
;FIRST TEST NUMBER TO ONE(1)

——

CVMJAAC MSV11-J MEMORY DIAG.

DEFINE

TRAPS

_—

. —

MACRO V05.01b Friday 15-Feb-85 16:10

Page 98

SEQ 0095

.SBTTL

3942
3943
3944
3945
3946
3947
3948
3949
3950

— e —————
. —

DEFINE

TRAPS

;ALL ENTRIES HERE MUST HAVE A CORRESPONDING ENTRY IN THE
;TRAP TABLE "$TRPAD” (NEAR END OF PROGRAM).

;*TRAP DEFINITIONS

:I'ERE IS HOW TRAPS WORK IN THIS PROGRAM
:ALL TRAPS EXECUTE A "TRAP" INSTRUCTION WHICH TAKES THE PROGRAM
;TO SYMBOLIC LOCATION "$TRAP"

:AT $TRAP THE PROGRAM PICKS UP THE RIGHT BYTE OF THE TRAP INSTRUCTION

;AND INDEXES INTO A TABLE AT LOCATION "$TRPAD" WHICH SENDS THE PROGRAM TO
;THE SPECIFIC ROUTINE TO HANDLE THAT SPECIFIC TRAPS TASK.

;THE ULTIMATE DESTINATION OF A TRAP INSTRUCTION CAN BE GUESSED AT AS FOLLOMWS

:EXA?PLE :
;

NOP

NOP
NOP
D'S(E)SNEL

;ENTER KERNEL MODE

ADD A DOLLAR SIGN TO THE SYMBOLIC NAME AND CHECK THE CRF FOR SOMETHING CLOSE
IN THIS CASE THE CRF HAS $KERNE LISTED AS 032546
AT LOCATION 32546 YOU FIND THE ROUTINE $KERNEL

NOTE THAT CRF SYMBOLS ARE TRUCNATED TO 6 CHARACTERS
SYMBOLIC NAMES GREATER THAT 6 CHARACTERS ARE USED SO I CAN
REMEMBER WHAT THEY MEAN!

ALL GOOD TRAP ROUTINES RETURN VIA AN "RTI* INSTRUCTION

%YPEIT* 104401

::TTY _TYPEOUT ROUTINE

104401
104402
104403

TYPOC=
TYPOS=

104402
104403

;3 TYPE OCTAL NUMBER (WITH LEADING ZEROS)
;:TYPE OCTAL NUMBER (NO LEADING ZEROS)

104405

TYPDS=

104405

;s TYPE DECIMAL NUMBER (MWITH SIGN)

104407
104410

GTSWR=
CKSWR=

104407
104410

; sGET_SOFT-SWR SETTING
; s TEST FOR CHANGE IN SOFT-SWR

104411
104412
104413
104414

RDCHR=
RDLIN=
RDOCT=
RDDEC=

104411
104412
104413
104414

::TTY TYPEIN CHARACTER ROUTINE
::TTY TYPEIN STRING ROUTINE
: sREAD AN OCTAL NUMBER FROM TTY
: ;READ A DECIMAL NUMBER FROM TTY

104415
104416

RESREG= 104416

SAVREG= 104415

; :SAVE _RO-RS ROUTINE

104417

KERNEL= 104417

;ENTER KERNEL MODE

104420
104421
104422

ENERGIZE=104420
DEENERGIZE=104421

;TURN ON MEMORY MANAGEMENT & TRAPS
; TURN OFF MEMORY MANAGEMENT & TRAPS

104423
104424

; TYPON= 104404

; TYPBN= 104406

KMAP=

104422

CACHON= 104423

CACHOFF=104424

;s TYPE OCTAL NUMBER (AS PER LAST CALL)
;s TYPE BINARY (ASCII) NUMBER

; ;RESTORE RO-R5 ROUTINE

;MAP KERNEL 1 T0 1

;:TURN ON CACHE

; TURN OFF CACHE

—

——

CVMJAAO MSV11-J MEMORY DIAG.

DEFINE
]

]

3999

4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011

4012

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

4041
4042

4043
4044
4045
4046
4047
4048
4049
4050
4051

4052
4053
4054
4055

TRAPS

MACRO V05.01b Friday 15-Feb-85 16:10

Page 98-1

SEQ 0096

104425

LOADCSR=104425
READCSR=104426

;LOAD CORRECT CSR
;READ CORRECT CSR

104427
104430
104431
104432
104433
104434
104435
104436
104437

PERRO1=
PERRO2=
PERRO3=
PERRO4=
PERRO7=
PERR10=
PERR11=
PERR12=
PERR13=
PERR14=
PERR15=
PERR16=
PERR17=
PERR20=
PERR21=
PERR22=
PERR23=

;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR

104426

104440
104441
104442
104443
104444
104445
104446
104447

104450
104451
104452
104453
104454
104455
104456
104457
104460
104461
104462
104463
104464
104465
104466

104467
104470
104471
104472
104473
104474
104475
104476
104477
104500
104501
104502
104503
104504
104505
104506
104507
104510
104511
104512

PERR24=
PERR25=
PERR26=
PERR27=
PERR30=
PERR31=
PERR32=
PERR33=
PERR34=
PERR35=
PERR36=
PERR37=
PERR40=
PERR41=
PERR42=
PERR43=

104427
104430
104431
104432
104433
104434
104435
104436
104437
104440
104441
104442
104443
104444
104445
104446
104447

104450
104451
104452
104453
104454
104455
104456
104457
104460
104461
104462
104463
104464
104465
104466
104467

ECCDIS= 104470
ECC1DIS=104471
ECCINIT=104472
ECC1INIT=104473
104474
CBCSR=
CB1CSR= 104475
WASSBE= 104476
WAS1SBE=104477
WASDBE= 104500

WAS1DBE=104501

CLRCSR= 104502

CLR1CSR=104503
CHKDIS= 104504
CHK1DIS=104505
ENASBE= 104506
ENA1SBE=104507
TSTREAD=104510
INVALID=104511
ERRGEN =104512

; PROGRAM DETECTED ERROR

;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR

; PROGRAM DETECTED ERROR

;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
;PROGRAM DETECTED ERROR
:PROGRAM DETECTED ERROR

:PROGRAM DETECTED ERROR
; PROGRAM DETECTED ERROR
:PROGRAM DETECTED ERROR
;DISABLE ECC ON ALL CSR'S
;DISABLE ECC ON 1 SELECTED CSR
;INITIALIZE ALL ECC CSR'S
;INITIALIZE 1 SELECTED ECC CSR
;WRITE GENERATED CHECKBITS IN ALL CSR'S
;WRITE GENERATED CHECKBITS IN 1 SELECTED CSR
;WAS THERE A SBE ON ANY CSR?
;WAS THERE A SBE ON 1 SELECTED CSR?
;WAS THERE A DBE ON ANY CSR?
;WAS THERE A DBE ON 1 SELECTED CSR?
;CLEAR ALL CSR'S
;:CLEAR 1 SELECTED CSR

;DISABLE ECC & WRITE CHECKBITS FROM ALL CSR'S

;:DISABLE ECC & WRITE CHECKBITS FROM 1 SELECTED CSR
;ENABLE TRAPS ON SBE'S FROM ALL CSR'S
;ENABLE TRAPS ON SBE'S FROM 1 SELECTED CSR

;TEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES)

; INVALIDATE BACKGROUND PATTERN ON "BANK"
:CHECK ERROR ADDRESS

' CVMJUAAO MSV11-J MEMORY DIAG.
' DEFINE
TRAPS

4056
4057

104513
104514

MACRO V0S.01b Friday 15-Feb-85 16:10

Page 98-2

SEQ 0097
CBREG
=104513
SYNREG
=104514

;ENABLES CHECKBIT REGISTER
;ENABLES SYNDROME BIT REGISTER

————

—

————

| CVMJAAO MSV11-J MEMORY DIAG.
'DEFINE BASIC PDOP11 STUFF
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
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

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0098
.SBTTL

002000
002000
000740
000700

Page 100

DEFINE

BASIC PDP11 STUFF

;*INITIAL ADDRESS OF THE STACK POINTER

104000
000004
177776

STACK=
2000
KERSTK= STACK
SUPSTK= 740
USESTK= 700
ERROR=EMT

; sFIRST ADDRESS OF THE STACK
; sKERNEL STACK
; sSUPERVISOR STACK
: sUSER STACK
; ;BASIC DEFINITION OF ERROR CALL

PSW=

177776

; ;PROCESSOR STATUS WORD

177570
177570
177546

DSWR=
DDISP=
LKS=

177570
177570
177546

; sHARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER
;sLINE CLOCK (KW11-L) STATUS REGISTER

000011
000012
000015
000200
000007

HT=

SCOPE=IO0T

;STKLMT=177774
;PIRQ= 177772

; sBASIC DEFINITION OF SCOPE CALL

; sSTACK LIMIT REGISTER
; ;PROGRAM INTERRUPT REQUEST REGISTER

; *MISCELLANEQUS DEFINITIONS

LF=
CR=
CRLF=

MFPT=

; ;CODE FOR HORIZONTAL TAB

; ;CODE FOR PROCESSOR TYPE INSTRUCTION

12
15
200

; ;CODE LINE FEED
; ;CODE CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN-LINE FEED

; *GENERAL PURPOSE REGISTER DEFINITIONS

: SP=R6
;KSP=SP

; ;STACK POINTER
; ;KERNEL STACK POINTER

;PC=R7

; ;PROGRAM COUNTER

000006
000006

SSP=SP
USP=SP

100000
040000
020000
010000

SW15=
SWi4=
SW13=
SWi2=
SWil=
SW10=
SW9=
SW8=
SW7=
SW6=
SWS=
SW4=
SW3=
SW2=
SWl=
SWO=

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

; ; SUPERVISOR STACK POINTER
; ;USER STACK POINTER

;*"SWITCH REGISTER” SWITCH DEFINITIONS
100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1

;*DATA BIT DEFINITIONS (BITOO TO BIT1S5)

BIT15=
BIT14=
BIT13=
BITi2=
BITi1=
BIT10=
BIT9=
BIT8=

100000
40000
20000
10000
4000
2000
1000
400

| DEFINE

4117
4118
4119
4120
4121
4122

4123

4124

4125
4126
4127
4128
4129
4130
4131
4132
4133

4134

4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173

BASIC PDP11 STUFF

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0099

000200
000100
000040
000020
000010
000004
000902
000001

BIT7=
BIT6=
BITS=
BIT4=
BIT3=
BIT2=
BITi=
BITO=

000004
000010

ERRVEC= 4
RESVEC= 10

200
100
40
20
10
4
2
1

;*BASIC "CPU" TRAP VECTOR ADDRESSES

;;TIME OUT AND OTHER ERRORS
; ;RESERVED AND ILLEGAL INSTRUCTIONS

; TBITVEC=14
; TRTVEC=

000020
000024
000030
000034
000060

;BPTVEC=

IOTVEC= 20

PWRVEC= 24

;LKVEC= 100

;;LINE CLOCK (KW11-L) VECTER

PARVEC=CACHVEC

000250

MMVEC=

177746
177750

CONTRL = 177746
MAINT
= 177750

177754

DATARG

177766

.SBTTL
DEFINE
CPUERR = 177766

; ;CACHE ERROR INTERRUPT VECTOR

;PIRQVEC=240

; ;PROGRAM INTERRUPT REQUEST VECTOR

250
.SBTTL

;MEMERR = 177744

DEFINE

: UDPDRO=
;UDPDR1=
: UDPDR2=

; ;CACHE ERROR REGISTER

; sHIT MISS REGISTER "1" IMPLIES HIT IN CACHE

= 177754

: ;DATA REGISTER

DEFINE

CPU REGISTERS
; ;CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED
MEMORY MANAGEMENT REGISTERS

; *MEMORY MANAGEMENT STATUS REGISTER ADDRESSES

177572
177574
177576
172516

UIPDRO= 177600

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

; sMEMORY MANAGEMENT VECTOR
CACHE REGISTERS

; sMEMORY CONTROL REGISTER
; sMEMORY MAINTENENCE REGISTER

;HITMIS = 177752

;*USER

177600

; ;sINPUT/0UTPUT TRAP (IOT) #*SCOPE*#
;i "TRAP" TRAP
;3 TTY KEYBOARD VECTOR
::;TTY PRINTER VECTOR

CACHVEC=114

MMRO=
MMR1=
MMR2=
MMR3=

; s TRACE TRAP

; ;:BREAKPOINT TRAP (BPT)

; ;EMULATOR TRAP (EMT) **ERROR*=*

TRAPVEC=34
TKVEC=
60
; TPVEC= 64

.SBTTL

1257 XY

; ;POWER FAIL

EMTVEC= 30

000114
000114

177572
177574
177576
172516

Page 100-1

"I" PAGE DESCRIPTOR REGISTERS

177602
177604
177606
177610
177612
177614
177616

;*USER "D" PAGE DESCRIPTOR REGISTORS
177620
177622
177624

— e a—

| CVMJUAAO MSV11-J MEMORY DIAG.

" CVMJUAAO MSV11-J MEMORY DIAG.
DEFINE MEMORY MANAGEMENT REGISTERS

MACRO V05.01b Friday 15-Feb-85 16:10

4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185

4186
4187
4188
4189

4191
4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215

4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230

SEQ 0100

; UDPDR3=
; UDPDR4 =
; UDPDR5=

177626
177630
177632

177634

; UDPDR6=

177636

; UDPDR7=

;*USER “I" PAGE ADDRESS REGISTERS

177640
177640
177642
177644
177646
177650
177652
177654

UIPARO=
UIPAR1=
UVIPAR2=
UIPAR3=
UIPAR4=
UIPARS=
UIPAR6=

177660

UDPARO= 177660

177676

; UDPARG=
UDPAR7= 177676

172200

SIPDRO= 172200

4190

Page 100-2

FASTCITY=UIPARO

;UIPAR7=

177640
177642
177644
177646
177650
177652
177654

177656

;PATTERN
;PATTERN
;PATTERN
;PATTERN
;PATTERN
;PATTERN
;PATTERN

PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM

SPACE
SPACE
SPACE
SPACE
SPACE
SPACE
SPACE

;PATTERN PROGRAM SPACE

;*USER "D" FAGE ADDRESS REGISTERS

;UDPAR1=
; UDPAR2=
; UDPAR3=
; UDPAR4 =
; UDPARS=

177662
177664
177666
177670
177672
177674

;PATTERN PROGRAM SPACE

;PATTERN PROGRAM SPACE
;:PATTERN PROGRAM SPACE
;PATTERN PROGRAM SPACE
;PATTERN PROGRAM SPACE
;PATTERN PROGRAM SPACE

;PATTERN PROGRAM SPACE
;PATTERN PROGRAM SPACE

; *SUPERVISOR "“I" PAGE DESCRIPTOR REGISTERS

; SIPDR1=
; SIPDR2=
; SIPDR3=
: SIPDR4 =
; SIPDRS=
; SIPDR6=
; SIPDR7=

172202
172204
172206
172210
172212
172214
172216

:*SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS
172220
172222
172224
; SOPDR2=
172226
: SOPDR3=

; SOPDRO=
: SOPDR1=

: SDOPDR4 =
: SOPDRS=
: SDPDR6=
; SDPDR7=

172240
172246
172252
172254

SIPARO=

; SIPAR1=
: SIPAR2=

172230

172232
172234
172236

;*SUPERVISOR “"I" PAGE ADDRESS REGISTERS
172240

172242
172244

SIPAR3=

172246

SIPARS=
SIPARG=
:SIPAR7=

172252
172254
172256

: SIPAR4 =

172250

; TEST AREA

; TEST AREA
; TEST AREA
; TEST AREA

CVMJAAO MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
DEFINE MEMORY MANAGEMENT REGISTERS

4231

4232

4233

172260

4234

4235
4236

4237
4238

:gzg
4241
4242
4243
4244
4245
4246
4247
4248
:ggg

SDPARO=

172276
172300

SDPAR7=

172276

SDPARS=
SDPAR6=

KIPDRO=
;KIPDR1=
;KIPDR2=
;KIPDR3=
;KIPDR4=
;KIPDRS=
;KIPDR6=
;KIPDR7=

; KDPDR2=

172340

KIPARO=
;KIPAR1=

;KIPAR2=

172350
172352
172354

172360

4274

;*KERNEL

"D" PAGE DESCRIPTOR REGISTERS
172320

172322
172324

172326
172330
172332
172334

172336

172374

172376

;*KERNEL "I" PAGE ADDRESS REGISTERS
172340
172342
172344

;KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=

172346
172350
172352
172354

;KIPAR7=
KDPARO=
;KDPAR1=
;KDPAR2=

4275
4276

:ggg

"I" PAGE DESCRIPTOR REGISTERS
172300
172302
172304
172306
172310
172312
172314
172316

;KDPDR7=

4264

4277
4278

;*KERNEL

;KDPDR3=
;KDPDR4 =
; KDPDRS=
; KDPDR6=

:gzg

4272
4273

172272
172274

;KDPDR1=

4255
4256
4257
4258

4271

172264

172266
172270

4254

4253

:ggg

172262

; SDPAR3=
; SDPAR4 =

; KDPDRO=

4265
4266
4267
4268

172260

; SDPAR1=

4251
4252

4261
4262
4263

;*SUPERVISOR “D" PAGE ADDRESS REGISTERS

; SDPAR2=
172272
172274

172356
;*KERNEL

"D" PAGE ADDRESS REGISTERS

172360
172362
172364

;KDPAR3=
;KDPAR4 =

172366
172370

KDPAR7=

172376

;KDPARS=
KDPAR6 =

Page 100-3

172372
172374

SEQ 0101

CVMJAAQ MSV11-J MEMORY DIAG.
' DEFINE Q-BUS MAP REGISTERS
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306

4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0102
.SBTTL

170200
170202
170204

Page 102

MAPLO
MAPHO
MAPL1
;MAPH1
;MAPL2
:MAPH2

;MAPL3
;MAPH3

;MAPL4
; MAPH4
;MAPLS
;MAPHS

;MAPL6

;MAPH6

;MAPL7
;MAPH7

;MAPL10
;MAPH10
;MAPL11
;MAPH11
;MAPL12
;MAPH12
;MAPL13

;MAPH13
;MAPL14
;MAPH14

;MAPL15

;MAPH15

;MAPL16

;MAPH16
;MAPL17
;sMAPH17

;MAPL20
;MAPH20
;MAPL21
;MAPH21
;MAPL22
;MAPH22
:MAPL23
;MAPH23

;:MAPL24
; MAPH24

;MAPL2S
;sMAPH25
;MAPL26

;:MAPH26
;MAPL27
;MAPH27

;MAPL30
;MAPH30
;MAPL31

;MAPH31

;MAPL32

;MAPH32

DEFINE

Q-BUS MAP REGISTERS

;*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED 'MAPLXX'
;*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED 'MAPHXX'
170200
170202
170204
170206
170210
170212
170214
170216
170220
170222
170224
170226
170230
170232
170234
170236
170240
170242
170244
170246
170250

170252
170254
170256
170260
170262
170264
170266
170270
170272
170274
170276
170300
170302
170304
170306
170310
170312
170314
170316
170320
170320
170324
170326
170330
170332
170334
170336
170340
170342
170344

170346
170350
170352

- CVMJUAAQ MSV11-J MEMORY DIAG.

' DEFINE

4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354

4355
4356
4357
4358

Q-BUS MAP REGISTERS

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 102-1

SEQ 0103

:HAPLS%

:MAPL34.
;MAPH34

;MAPL3S5

170354
170356
170360
170362
170364
170366
170370
170372
170374
170376

000174
000176

.SBTTL
DISPREG=174
SWREG=
176

DEFINE

SOFTWARE SWITCH & DISPLAY REGISTERS

172100

.SBTTL
CSRADD=172100

DEFINE

CONTROL STATUS REGISTERS

.SBTTL

DEFINE

PARAMETERS

060000
157776
040000

FIRST=60000

LAST=157776
SIZE=40000

;START OF THE 16K TEST PATTERN AREA

;END OF THE 16K TEST PATTERN AREA
;SIZE OF THE 16K TEST PATTERN AREA (FOR SOB INSTRUCTIONS)

CVMJAAO MSV11-J MEMORY DIAG.
DEFINE PARAMETERS
4365
4366

MACRO V05.01b Fridey 15-Feb-85 16:10
LIST
.SBTTL

MD
MACRO

Page 104

SEQ 0104
;BE NICE TO SEE MY DEFINITIONS

FATAL

:ggz

,t.tttttttttttttttttt.t FATAL stsssxsssssssnststststtten

4369

FATAL IS USED TO REPORT FATAL ERRORS (ERRORS THAT PREVENT

4372
4373
4374
4375
4376
4377

:tttttttttttttttttttttt‘ttt.ttttttttttttttttttttttttt
.MACRO FATAL
ARG
; **%MACRO***MACRO***MACRO*#*#
.NLIST
.DSABL
CRF
LIIF DF LST$$ .LIST
ME
.ENABL
CRF

:g;g

4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388

4389
4390
4391
4392
4393
4394
4395
4396

4397
4398
4399
4400
4401

;

THE PROGRAM FROM CONTINUING).

L4187
INC
ERROR
.DSABL
JIIF DF
.ENABL
.ENDM
.SBTTL
.MACRO
NLIST

FATAL $
+ARG
CRF
LST$$ .NLIST
CRF
FATAL
MACRO
TYPE

.DSABL CRF
.JIF DF LST$$
.ENABL CRF
LIST
.IF B ARG
TYPEIT
IFF
TYPEIT
ARG

TYPE

TYPE
ARG

.LIST

.ENDC
.DSABL CRF
LIIF DF LST$$ .NLIST
.ENABL CRF

.ENDM

;SET FATAL INDICATOR

323 §§§§§§

CVHMJAAQ HSV 1 J MEMORY DIAG.
| MA
CRO

MACRO V05.01b Fridey 15-Feb-85 16:10

.SBTTL

MACRO

Page 106

NEWTST

sesssssssstssssststssss NEWTST sssessssssssssstesnen

s'CHTST IS USED AS THE FIRST INSTRUCTION OF A TEST.

sIT WILL:

:1) GENERATE A TEST NUMBER FOR THE LABEL OF THIS TEST
32) PUT STARS BEFORE AND AFTER A MESSAGE
s ARGUMENTS
31) ASCII -- THIS IS THE MESSAGE THAT MILL APPEAR
;
ON THE LISTING
32) ICOUNT -- TIF NON-BLANK AND BIT 11 OF $SWR = 1 IT WILL BE
;
THE NUMBER OF ITERATIONS TO MAKE ON THIS TEST
;3) RETURN -- IF NON-BLANK WILL BE THE ADDRESS TO
;
WHICH THE NEXT SCOPE STATEMENT MWILL
;
LOOP BACK TO.
;4) COMAND -- IF NON-BLANK WILL BE THE FIRST
:
INSTRUCTION OF THE TEST
;
IF BLANK SCOPE WILL BE THE
:
FIRST INSTRUCTION
RIS

d 2RI T3 2

;g?ang

T2 222 RS2

NEWTST

S22 2333313323233
133

ASCII,ICOUNT,RETURN,COMAND

$NWTST=0
NLIST MC
-IF B <COMAND>
$ }}‘E‘"EST

\$TN,<ASCII>,SCOPE

$ SNEWTEST

\$TN, <ASCII>, <COMAND>

ENDC

NLIST

.IF N8B ICOUNT

-IF LE <ICOUNT-1>

MOV

. IFF
HOE;,DC

#1,$TIMES

::00 1 ITERATION

#ICOUNT,$TIMES

;D0 ICOUNT ITERATIONS

.ENDC

.IF NB RETURN

Hg'voc

4446
4447
4448
4449
4450
445]

.ENDC
.NLIST
.LIST
.LIST
.NLIST
.ENDM

#RETURN, SLPADR

ME
NEWTST

;;SET SCOPE LOOP ADDRESS

SEQ 0105 |

- MACRO
|

|
|

$ INEWTEST

£y

MACRO V05.01b Friday 15-Feb-85 16:10

Page 108

SEQ 0106

.SBTTL
MACRO
$$NEWTEST
.MACRO
$$NEWTEST
A,ASC,COMND
.IRP
ASCI, <ASC>
IF EQ $NWTST
$NUWTST=1
.SBTTL
T'A’
ASCI
.NLIST
LIST
ME
LIST

4454
4455
4456
4457
4458
4459
4460
4461
4462

;*TEST A

I OO
TM

ASCI

IFF

ASCI

.ENDC
.ENDM

I
T
T

TST'A:

COMND

.NLIST
ME
$TN=$TN+1
.ENDM
$$NEWTEST
.SBTTL

MACRO

SUBTST

shkkkkkkehkkkk SUBTST skkddkkrdhbrbhbhrhhhbebbhrthbhds

; THIS MACRO WILL FORMAT A SUBTEST HEADING WITH STARS
;A .SBTTL WILL BE FORCED & .NLISTED FOR THE TABLE OF CONTENTS.
; ARGUMENT :
s1) TXT --

:
THIS IS THE MESSAGE THAT WILL APPEAR IN THE TABLE OF CONTENTS & LISTING.

;EXAMPLE :

SUBTST

<<THIS IS A FUN SUBTST>>

shkkkkbkkhkkbkkkkk
bbbk kb kk kb
kS

4487
4488
4489
4490
4491
4492

4493

4494

4495
4497

4498

4500
4501
4502
4503
4504
4505
4506

.MACRO
.NLIST
$SUBTST
.LIST
.ENDM

SUBTST
ASCII
MC
<ASCII>
MC
SUBTST

.SBTTL
.MACRO
.IRP
.SBTTL
.NLIST
.LIST
LIST

MACRO _ $SUBTST
$SUBTST ASC
ASCI, <ASC>
ASCI
HME

; *SUBTEST

.ENDM

ASCI

LT
T
T

.NLIST
.ENDM

ME
$SUBTST

- m——l

CVMJAAO M5V11-J MEMORY DIAG.

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO

4509
4510
4511
4512
4513
4514
4515
4516
4517
4518
4519
4520
4521

4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546

TYPOCT

MACRO V05.01b Friday 15-Feb-85 16:10

.SBTTL

MACRO

Page 110

SEQ 0107

TYPOCT

tttt‘ttttttttttttttt TYPOCT stsssekrshbkhbbhkhhd

TYPOCT IS USED TO CHANGE A BINARY NUMBER

;

TO A 6 DIGIT OCTAL NUMBER AND TYPE IT

| ARGUMENTS:

i1)

i2)

NUM

THE NUMBER TO BE TYPED

REMARK ALLOWS A COMMENT TO BE MADE

:ROUTINES REQUIRED
i1)
CONVERT BINARY TO OCTAL AND TYPE (.$TYPOCT)

i2)

TYPE AN ASCIZ STRING (.$TYPE)

EXAMPLES:

1)
i3)

TYPOCT HILMT,<TYPES THE CONTENTS OF HILMT>

TYPOCT

B
shk k k k k k

#5.<TYPES '

kb kk kb kb

.MACRO
.NLIST
.DSABL
LIIF DF
.ENABL
.LIST

MOV

TYPOCT
CRF
LST$$
CRF

000005’
>

.DSABL
JIIF DF
.ENABL
.ENDM

NUM,REMARK
.LIST

NUM, -(SP)

: sSAVE NUM FOR TYPEOUT

.IIF NB <REMARK>,

TYPOC

kb bk

CRF
LST$$ .NLIST
CRF
TYPOCT

; REMARK

;:G0 TYPE--OCTAL ASCII(ALL DIGITS)
ME

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO

4549

TYPOCS

MACRO V05.01b Friday 15-Feb-85 16:10

.SBTTL MACRO

Page 112

SEQ 0108

TYPOCS

:ggg

tttttttttt.ttt.ttttt

TYPOCS ##sssssdrsssserdsns

4552
4553
:gg;

iTYPOCS IS USED TO CHANGE A BINARY NUMBER TO AN OCTAL
;
NUMBER AND TYPE 1 T0 & DIGITS
;
WITH OR WITHOUT LEADING ZEROS.

4556

| ARGUMENTS:

4557

;

i1)

NUM

NUMBER TO BE TYPED

:ggg

:2)

REMARK

ALLOWS A COMMENT TO BE MADE

:ggg

:3)

NUMBER OF DIGITS (1 TO 6) TO BE TYPED

4564

:4)

BLANK=SUPPRESS LEADING ZEROS (TYPES SPACES)

:gg;

:ROUTINES REQUIRED

:ggg

i1)

CONVERT BINARY TO OCTAL AND TYPE (.$TYPOCT)

23;5

:2)

TYPE AN ASCIZ STRING (.$TYPE)

:ggg

:ggz

4573

;

EXAMPLES:

4574
4575

i1)
i2)

:g;g

; hkkkkk ko

:339

4580
4581

NON-BLANK=TYPE LEADING ZEROS

:3)

TYPOCS
TYPOCS

#12345,<TYPES "S">,1
#004,<TYPES "04">,2,X

TYPOCS

#004.<TYPES “ 4">.2

kk kb kok ok

kkkk ok ok k ko k ko kk kkkkkkkk kb kkkkk

.MACRO
INLIST

TYPOCS

"ENABL

CRF

4586

MOV

NUM, -(SP)

4588

7YPOS

4590

'BYTE

;s TYPE N DIGIT(S)

4592

BYTE

::TYPE 6 DIGITS

4595

BYTE

;s TYPE LEADING ZEROS

‘BYTE

; ; SUPPRESS LEADING ZEROS

4582
4583
4584

4585

4587

4589
4591

4593
4594

459

4597

4598
4599
4600
4601
4602

NUM,REMARK,N,Z

'DSABL CRF
"IIF DF LST$$ .LIST

.LIST

; ;SAVE NUM FOR TYPEOUT

.IIF NB <REMARK>,
.IF NB N

JIFF

“ENDC
IF NB Z

JIFF

-ENDC
'DSABL
CRF
IIF DF LST$$
"ENABL
CRF

.ENDM

TYPOCS

.NLIST

;360 TYPE--OCTAL ASCII

; s REMARK

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO

4605

TYPDEC

MACRO V05.01b Fridey 15-Feb-85 16:10

.SBTTL

MACRO

Peage 114

SEQ 0109

TYPDEC

nuuuuu“uuu TYPDEC #%kkkkkkkkkkhkkkkkhk

4608
4609

iTYPDEC IS USE TO CHANGE A BINARY NUMBER TO A SIGNED
;
DECIMAL NUMBER AND TYPE IT REPLACING LEADING ZERO

:gig

;

4614

| ARGUMENTS:

:2{9

i1)

4610
4611

4615
:gig

;
iNOTE:

:
H

i2)

WITH SPACES.
IF THE NUMBER IS NEGATIVE A

MINUS SIGN WILL BE TYPED.

NUM

NUMBER TO BE TYPED

REMARK ALLOWS A COMMENT TO BE MADE

:ggg

:ROUTINES REQUIRED

:ggg

i1)

:gs;
:ggg

i2)
TYPE AN ASCIZ STRING (.$TYPE)
: EXAMPLES

4628

:ggg

‘631

4632

4633
4634
4635
4636
4637
4638

i1)

i2)

CONVERT BINARY TO DECIMAL AND TYPE (.$TYPDEC)

TYPDEC

LMACRO
NLIST
.DSABL
IIF DF
.ENABL
LIST

MOV

4641

TYPDS

4642
4643
4644

4645

#-10.,<TYPE A MINUS TEN>

;ttttt“‘t‘t#‘tt‘.‘tt‘.t‘*‘.t‘i*#t.‘ttttt‘ttt“t‘tttt‘ttt‘tttttt.

4639
4640

SIZE,<TYPE THE CONTENTS OF SIZE>

TYPDEC

NUM,REMARK

CRF
LST$$ .LIST
CRF

NUM, - (SP)

: sSAVE NUM FOR TYPEOUT

.IIF NB <REMARK>,

.DSABL CRF
JIIF DF LST$$ .NLIST
"ENABL CRF

.ENDM

TYPDEC

; s REMARK

;:60 TYPE--DECIMAL ASCII WITH SIGN
ME

4647

4648
4649

4650
4651
4652
4653

4654

4655
4656
4657
4658

4659
4660

4661
4662

BMOV

Page 115

SEQ 0110
.SBTTL

MACRO

BMOV

sekktktkktkkkkkdk BMOV skdkkkkbkkkkkkrkkhkkkhkkkkk
5

; THIS MACRO MOVES A BLOCK OF DATA.
;

; ARGUEMENTS
:

i1)

FROMHERE

THE FIRST ADDRESS OF THE SOURCE BLOCK.

i2)

TOHERE

THE FIRST ADDRESS OF THE DESTINATION BLOCK.

SIZE

THE SIZE OF THE SOURCE BLOCK.
IF BLANK A 16 WORD TRANSFER IS ASSUMED.

:
;
;

i3)
E

;

IF BLANK THE 1ST ADDRESS OF THE USER INSTRUCTION
PAR'S IS USED (FASTCITY).

"WHY DEFAULT TO 16 WORDS?" YOU ASK!

H
;
;

"BECAUSE THAT'S HOW MANY WORDS TO THE USER PAR
REGISTERS & THAT'S WHERE I INTEND TO MOVE LOTS
OF STUFF." I REPLY!
ke o o e ok o e o e o ool o ok ok ol o ol ok sl ok ool ok ol ke s sl ok ool ok ook ok ok ook ok kokokokok ok ok

.MACRO_ BMOV
FROMHERE
, TOHERE , SIZE
.IF B_TOHERE
.NLIST
CRF
.DSABL
LIIF DF LST$$ .LIST
ME
CRF
.ENABL
.LIST
JSR R3,BLOCK1
FROMHERE
CRF
.DSABL
LIIF DF LST$$ .NLIST
ME
CRF
.ENABL
.MEXIT
.ENDC
.IF B _SIZE
-NLIST

.DSABL
CRF
LIIF DF LST$$ .LIST
CRF
.ENABL
.LIST
JSR R35,BLOCK2
TOHERE

FROMHERE

CRF
.DSABL
LIIF DF LST$$ .NLIST
ME
CRF
.ENABL
.MEXIT
.IFF
.NLIST
CRF
.DSABL
LIIF DF LST$$ .LIST
ME
CRF
.ENABL
.LIST
JSR RS5,BLOCK3
SIZE

——————d)

' CVMJARO MSV11-J MEMORY DIAG.

' MACRO

MACRO V05.01b Friday 15-Feb-85 16:10

| CVMJAAO MSV11-J MEMORY DIAG.
| MACRO
BMOV
4704
4705
4706
4707
4708
4709
4710

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 115-1

SEQ 0111
TOHERE
FROMHERE

.DSABL

CRF

.ENABL

CRF

LIIF DF LST$$

.ENDC
.ENDM
BMOV

.NLIST

' CVMJAAO MSV11-J MEMORY DIAG.

'MACRO

4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738

4739

4740
4741
4742
4743
4744
4745

4746
4747
4748
4749

MAP

MACRO V0S.01b Friday 15-Feb-85 16:10

Page 117

SEQ 0112
.SBTTL

MACRO

MAP

shkkkkkkkkkhhthbkk MAP skkdkkbkkbhdbkbhhbkkkhhkhhkkd

i THIS MACRO MAPS A MEMORY BANK (16K) INTO THE

; TEST PATTERN AREA (SUPERVISOR VIRTUAL (60000-157777)).

: ARGUEMENTS:
i1)
BANK

THE BANK OF 16K WORDS TO BE MAPPED.

;

THERE ARE 120 BANKS OF 16K WORDS

' EXAMPLES
:
MAP

LOC

;

MAP

;LOCATION “LOC" CONTAINS THE # OF THE BANK TO MAP

#28.

;BANK 34 (OCTAL) WILL BE MAPPED

sRkdkokkokokkkokdkokkkkkdokkokkokkokkkk
ko kkkk ok ok kokkkkkkkkkkk k¥

.MACRO
PUSH

MAP
R3

.NLIST
.DSABL
CRF
LIIF DF LST$$
CRF
.ENABL
.LIST
.IF B BANK

MOV

BANK

.LIST

#200,R3

. IFF
MOV
.ENDC
CALL
.DSABL
LIIF DF
.ENABL

MAPPER
CRF
LST$$ .NLIST
CRF

.ENDM

MAP

POP

BANK,R3

! CVMJAAQ MSV11-J MEMORY DIAG.
| MACRO
SUPERVISOR
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771

4772
4773

4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784

4785
4786
4787
4788
4789
4790

4791
4792
4793

MACRO V05.01b Friday 15-Feb-85 16:10

Page 119

SEQ 0113

.SBTTL

MACRO

SUPERVISOR

sakkkkskkskhkkhtkk SUPERVISOR #kdddkkkddikkkhkbkhks

| THIS MACRO SWITCHES TO SUPERVISOR MODE.
: ARGUEMENTS: NONE.

4
3 Stk ook

ok ook ok ok sk ook ook ook ok ook ok dokok ook okokokokokokokok ok kokok ok

.MACRO
.NLIST
.DSABL
LIIF DF
.ENABL
.LIST

BIS

SUPERVISOR

CRF
LST$$
CRF

.LIST

#B8IT14,PSW

.DSAGL
.IIF DF
.ENABL
.ENDM

CRF
LST$$ .NLIST
CRF
SUPERVISOR

.SBTTL

MACRO

sRkkkokkkkokokkkkkkkk USER

;GO TO SUPERVISOR MODE
ME

USER

skkkkkkkkkkkkkkkkkkkkkhkkk

| THIS MACRO SWITCHES TO USER MODE.
: ARGUEMENTS: NONE.

H
3 dokokkkokokokok ook ok kokokok dok ok dok kb ok ok ok kkok ok kkok ok kok ok ok ok ok ok ke ok

.MACRO
NLIST
.DSABL
.IIF DF
.ENABL
.LIST

BIS

.DSABL
.IIF DF
.ENABL
.ENDM

USER

CRF
LST$$
CRF

.LIST

#BIT15'81T14 PSW

CRF
LST$$ .NLIST
CRF
USER

;GO TO USER MODE

| CVMJAAO MSV11-J MEMORY DIAG.

'MACRO

4795

4796
4797

4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814

TESTAREA

MACRO V05.01b Friday 15-Feb-85 16:10

.SBTTL

MACRO

Page 120

SEQ 0114 |

TESTAREA

sesnnsbnnshdiishks TESTAREA sddsddsttrbbdnbsknbbhnd

: THIS MACRO SWITCHES TO THE SPECIFIED TEST MODE.
:ARGlEFENTS: NONE .

B
sek k k k k

kk ko

ko kkkkkk kb kkkkkkk k¥

TESTAREA

.MACRO
-NLIST
.DSABL
LIIF DF
.Egg?L

CRF
LST$$
CRF

BIS
.DSABL
LIIF DF
.ENABL
.ENDM

TESTMODE ,PSW
CRF
LST$$ .NLIST
CRF
TESTAREA

.LIST

ME
;GO TO SYSTEM TEST MODE

'MACRO

4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829

4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4838
4859

SET4 & RES4

MACRO V05.01b Friday 15-Feb-85 16:10

Page 122

SEQ 0115

.SBTTL

MACRO

SET4 & RES4

shkkkhkkaktdhkhhkk SETE £ RESE #skkvbnbskkkhbdssrs
. W ws we we

CVMJAAQ MSV1_-J MEMORY DIAG.

THESE MACROS SET & RESTORE VECTOR 4(TIMEOUT TRAP)
IN IT'S RESTORED MODE TRAPS ARE REPORTED AS SUCH.

; ARGUEMENTS
:

LOC

; THE LOCATION TO VECTOR TO (ONLY USED IN “SET4" NOT

:I USE THE SET4 AND RES4 MACROS AROUND CODE THAT I EXPECT TO TRAP TO 4

"RES4")

WHENEVER CODE IS NOT
;LIKE LOOKING FOR ALL POSSIBLE CSR'S AND ETC.
; SURROUNDED BY SET4 AND RES4 THEN ANY TRAPS TO 4 WILL CAUSE AN ERROR
;PRINTOUT THAT SAYS "UNEXPECTED TRAP TO 4" AND ALL THE ASSOCIATED REGISTER JUNK
B

.MACRO
.NLIST
.DSABL

SET4

.ENABL
.LIST

CRF

.1IF DF LST$$

MOV

1014:

ARG
.LIST

.NLIST

.LIST

4
ARG,

.DSABL
.IIF DF
.ENABL
.ENDM

CRF
LST$$
CRF
SET4

.MACRO
.NLIST
.DSABL
.IIF DF
.ENABL
LIST
MOV
CMP
BNE
CLR

RES4

CRF
LST$$
CRF

#TIMEOUT,4
#5,PROTYP
1014

;IS THIS AN 11/83/84 ?
;BRANCH IF NOT

: THAT A EXPECTED TRAP COULD HAVE SET

CPUERR

.DSABL
.IIF DF LST$$
.ENABL
CRF
RES4
-ENDM

.NLIST

;CLEAR OUT THE CPU ERROR REGISTER BITS

HME

—

——

C VMJAAO MSV11-J MEMORY DIAG.
|
M ACRO
DLEFT
|
!
!

——

MACRO V05.01b Friday 15-Feb-85 16:10

.SBTTL

4862

4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885
4886
4887
4888 000000
4889 000004
4890
4891
489
489

4894

4895
4896
4897
4898
4899

MACRO

Page 124

DLEFT

;sesssssistsnsttts DLEFT #tssstsrssrkrsrssbntnssss

: THIS MACRO DOES A DOUBLE WORD LEFT SHIFT
; ARGUEMENTS :

LOC

;THE LOCATION TO BE SHIFTED LEFT (CARRY TO LOC+2)

’

skkkkkkkkkk kb k kb

.MACRO
.NLIST
.DSABL
JIIF DF
.ENABL
LIST
ROL
ROL
.DSABL
.IIF DF
.ENABL
.ENDM_
.NLIST

k kb

k ko
k&

DLEFT

ARG

CRF
LST$$
CRF

.LIST

.NLIST

ARG
ARG+2

CRF
LST$$
CRF
DLEFT
MD

;DON'T NEED TO SEE THEM ANY MORE

shkkkkkkkkkkk bk kkkkk kb kkokkkkkkokk ko

.SBTTL

kkkkkkkkkkk

ABORT ROUTINE FOR ORION UFD MODE (VMK)

LT
T

105737
001420
013737
013737
104042
012760
013700
005037
000137
000207

ABORT:

056732

003706
003710

000030
000032

177777
000042
000042
014042

000042

TSTB

BEQ
MOV
MoV
EMT
MOV
ABORT1: MOV
CLR
JMP
ABORT2: RTS

$0DW7

ABORT2
SAV30,30
SAV32,32
+42
#-1,42(RO)
42,R
2.,RO
42
$ENDAD
PC

;TEST FOR USER FRIENDLY MODE

:IF NOT UFD THEN CONTINUE NORMAL OPERATION
;RESTORE EMT LOCATION (30)
;RESTORE EMT PRIORITY LOCATION (32)
;GET DCA LOCATION INTO RO FROM MONITOR
;SET A -1 INTO LOCATION DRSERR IN MONITOR
:AND PUT THE MONITOR RETURN ADDRESS IN RO
;CLEAR MONITOR RETURN FLAG
;RETURN TO MONITOR-DO NOT PUSH STACK HERE
:IF NOTUFD RETURN TO MAINLINE

SEQ 0116

' CVMJARQ MSV11-J MEMORY DIAG.

"“TRAP CATCHER

4902

4903

000000

:383

000177

4904 000000

000000

MACRO V05.01b Fridey 15-Feb-85 16:10
TRAP CATCHER

.WORD

0,0

.SBTTL

ACT11 HOOKS

.=0

000000

.REPT

4910

4911
4912

177

;. WORD

i*
i*

1)L0C.46

4916

2)L0C.52

4920
4921
4922
4923

i*
i*
i*
i*

4915

4917
4918
4919

4924

i*
i*
i*

000046

0140;5

OEggAD

4928 000052
4929

000020

.WORD
.SBTTL

000024
000200
000042

.=24
200
.=42

4934

000044

.=44

4936

000200

4939

000300

4941 000304

000137

4935 000044
4937 000200
4938 000202

4940 000300
4942 000310
000310

4943 000316
4944

—
-

002000

STACK

056750

012737

000137
002000

MODIFIED BY ACT1l.

PROGRAM NEEDS HOOK

BIT 15=1 PROGRAM SHOULD BE POMWER
FAILED WHILE RUNNING
=0 NO POWER FAIL

MUST BE ZERO'S

:s1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP
BIT4
APT11 HOOKS

:32)SET LOC.52 TO INDICATE MEMORY SIZE DEPENDANT

; ;SET POWER FAIL TO POINT TO START OF PROGRAM
: ;FOR APT START UP
;S0 RT11 CAN START WITH RUN COMMAND

: ;POINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ;;POINT TO APT HEADER BLOCK

. =200

000437
000442

005037

“END--OF -PASS"” HOOK
=ADDRESS OF END OF PASS ROUTINE

BITS 12-0

.=46

4930
4931 000024
4932
4933 000042

.+2,HALT

BIT 14=1 PROGRAM MEMORY SIZE DEPENDENT
=0 NOT MEMORY SIZE DEPENDENT
BIT 13=1 PROGRAM REQUIRES MANUAL INTERVENTION
=0 MANUAL INTERVENTION NOT REQUIRED

4925

:zgg 000046

SEQ 0117

;#THE HOOKS REQUIRED BY ACT11 ARE DEFINED AND SETUP BELOW:
i*
DEFINITIONS:

4913
4914

.SBTTL

Page 126

003670
177777

START1
START2

START1: CLR

RESTART

START2: SET

RESTART

.=300

002626

003670

START3: BR
BR

JMP

002626

; "NORMAL" START
;RESTART (SAVE ERROR ACCOUNTING)

START

JMP
START
.=STACK

MOV

#-1,RESTART

| CVMJAAO MSV11-J MEMORY DIAG.
MACRO V0S5.01b Friday 15-Feb-85 16:10
VARIABLES
INITIALIZED T0 ZERO
4947

4948
4949
go
002000
4952 002002
4953 002004
4
002006

4955 002010

4957 00201
4
00201
4959 002014

4960 002015

4961 002016
4962 002020

4963

.SBTTL

VARIABLES

000000
000000
000000
000000

DIAGFLAG:0
KAMIKAZE:0

000000

SKIPKAMI: O

sNEXT TWO BYTES
$PATMAR: .BYTE
$BANK:
.BYTE
$ERFLG: .BYTE

000
000
000

000

000000
000000

;USED TO SKIP RESTORING KAMIKAZE MODE WHEN MODIFIED

$ITEMB: .BYTE

; sCONTAINS ITEM CONTROL BYTE
;CONTAINS PC OF ERROR

LASTERROR: .WORD 0O
ERRPC:
.WORD
O

.WORD

4965 002026

000000

BADSP:

.WORD

4970 002040

4971 002044

000000

4972 002046
4973 002050

000000
000000

4976 002056

000000

4974 002052
4975 002054

ERRSP:

000000
000000
000000
000000

000000
000000

.WORD

ERRPSW: .WORD

000000

BADPSW: .WORD
ADDRESS:.WORD
PADDRESS: .WORD

PHYADD: .WORD

;CONTAINS SP OF ERROR

;CONTAINS PSW OF ERROR FOR TYPEOQUT

O
O
O

;CONTAINS PSW OF ERROR
; ;CONTAINS ADDRESS OF 'BAD'
; ADDRESS ,OF PARITY ERROR

0,0

; sCONTAINS ’GOOD' DATA

BAD:
BAD2:
BAD3:

LWORD
.WORD

O
O
O

; sCONTAINS 'BAD' DATA
; ;CONTAINS 'BAD2' DATA
; ;CONTAINS 'BAD3' DATA

GOOD2:
GOOD3:

.WORD
.WORD

.WORD

4986 002102
4987 002104

000000
000000

BANK:
O
BAM(ImEX 0

NONEM:

O
O
O
O

; sCONTAINS 'GOOD2'
; s CONTAINS 'GOOD3’'

DATA
DATA

;XOR OF GOOD & BAD = BAD BITS!
; ;AUTOMATIC MODE INDICATOR FOR APT,ACT, & XXDP
;FATAL ERROR INDICATOR
;USED TO SKIP ERROR MESSAGE IN "$ERRGEN"
;NON-EXISTANT MEMORY COUNTER (HOLES)
;PARITY ERROR COUNTER
;PATTERN ERROR COUNTER
;NO PARITY ERROR MODE INDICATOR
;NO NON-EXISTANT MEMORY (HOLES) MODE INDICATOR

;MEMORY BANK UNDER TEST
;USED TO INDEX INTO CONFIG TABLE

4989 002110

000000
000000

MUT:

4991
4992
4993
4994
4995
4996
4997
4998

002114
002116
002120
002122
002124
002126
002130
002132

000000
0000C0
000000
000000
000000
000000
000000
000000

KPFLAG:
ACFLAG:
MKFLAG:
PFLAG:
RRFLAG:
RLFLAG:
BMFLAG:
EQFLAG:

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

O
O
O
O
O
O
O
O

;:PROGRAM IS RELOCATED FLAG
: "BANK IS IDENTIFIED AS BAD MEMORY" FLAG
; "BANK HAS EQB MEMORY" FLAG

S000 002136
5001 002140

000000
000000

INTFLAG: .WORD
INT64K: .WORD

O
O

; "BANK IS INTERLEAVED" FLAGuuutuuuu“u““““o 2 e
; "BANK IS 64K INTERLEAVED" FLAG###sssssssssssssssssstss ? .

S003 002144

000000

4990 002112

4999 002134

5002 002142

000000

CPUBIT:

.WORD
.WORD
.WORD
.WORD
0
O
0
0

O
O

DATA

;22 BIT PHYSICAL ADDRESS

BADXOR:
$AUTO:
FATAL$:
SKPERR:
NEMCNT:
PARCNT:
PATERR:
NOPAR:

4988 002106

;CONTAINS SP OF ERROR FOR TYPEOUT

.WORD

000000
000000
000000
000000
000000
000000
000000
000000
000000

;:NUMBER OF ERRORS ON LAST PASS
;CONTAINS PC OF ERROR FOR TYPEOUT

GOO0D:

4977 002060
4978 002062
4979 002064
4980 002066
4981 002070
4982 002072
4983 002074
4984 002076
4985 002100

INITIALIZED TO ZERO

ARE DISPLAYED IN THE DISPLAY REGISTER
O
;PATTERN NUMBER
O
© ;BANK & SIGN
O
; sCONTAINS ERROR FLAG

BADPC:

4967 002032
4968 002034
4969 002036

;SET FOR SHIFTING DIAGONAL TEST
:SET FOR KAMIKAZE MODE TESTING

000000

4966 0020

SEQ 0118

;#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;#USED IN THE PROGRAM.
$CMTAG:
::START OF COMMON TAGS
UFDSET:0
;USER FRIENDLY FLAG
SELONLY:0
;SELECT ONLY BANKS MARKED BY FIELD SERVICE MODE FLAG

002022

4964 002024

Page 128

PATTERN:O

TMFLAG: .WORD

PMEMFLG: .WORD

;CONTAINS 1 BIT TO IDENTIFY CPU TO CONFIGURATION TABLE
;MEMORY UNDER TEST FLAG

ABORTFLAG: .WORD 0O

;PATTERN NUMBER UNDER TEST

;BANK IS PROTECTED REGION OF ECC
;BANK CAN BE ACCESSED BY THIS CPU
;IF SET INDICATES MSV11-J OR MF11S-K UNDER TEST#sssssssss ?
;BANK IS IN PROGRAM SPACE
;BANK IS WHERE PROGRAM RELOCATION IS REQUIRED TO TEST

"TYPE OF MEMORY TO TEST" FLAG; O = PARITY, 1 = ECC

"HEHORY UNDER TEST IS A MSV11-JU" FLAG

;"ABORT OCCURED" FLAG

—

)

——

CVMJAAO MSV11-J MEMORY DIAG.

. VARIABLES

5004 002146

INITIALIZED TO ZERO

000000
000000
000000
000000

Page 128-1

SEQ 0119

CTLKVEC: .WORD
CSR:
.WORD
CSRNO:
©
SAVCSR: .WORD

O
O

;HOLDS OLD KERNAL STACK POINTER IN CASE OF CNTL/K

:DATA TO OR FROM CSR

;:CSR ADDRESS NUMBER (4 LSB'S)
;LOCATION TO SAVE CSRNO DURING FS COMMAND
.WORD
O
;0LD CSR_NUMBER(USED IN INH PTR TEST)
: THESE LOCATIONS STORE GPR'S DURING SUPERVISOR TESTS

000000

OLDCSR:

000000
000000
000000
000000
000000
000000
000000
000000

SUPDRO: 0
SUPDR1: 0
SUPDR2: 0
SUPDR3: 0
SUPDR4: 0
SUPDRS: 0
SUPDR6: 0
DUMMY: O
;:DUMMY LOCATION FOR ADDRESS PASSING
; THESE LgCATIONS STORE GPR'S & PSW DURING DETAILED ERROR PRINTOUTS
DETRO:
DETR1: 0
DETR2: 0

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

DETR3: 0
DETR4: O
DETR5:
0
DETSP: 0
DETPSW: 0
DETFLAG:0
CONTFLAG:0
TOTCSRS: .WORD

000000
000000
000000
000000
000000
000000

CSRFIRST:.WORD
CSRLAST: .WORD
CSRFBANK: .WORD
CSRLBANK: .WORD
CSRINT:
.WORD
SPLTCSR: .WORD

O
O
O
O
O
O

000000
000000
000000
000000

002306
002310
5054 002312
5055 002314
5056 002316
5057 002320
5058 002322
5059 002324
5060 002326

C10

MACRO V05.01b Fridey 15-Feb-85 16:10

000000
000
000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000

DATBUF:
TSTDAT:
SBEMSK:
DBEMSK:

.WORD
.WORD
.WORD
.WORD

SUPDOADD: .WORD
PASFLG: .BYTE
UPPFLG: .BYTE
PASSNO: .WORD
SAV4:
_WORD
SAVPAR: .WORD
SAVMON: .WORD
MONFLG: .WORD
REALPAT: .WORD
OLDCACHE: .WORD
PARTHERE: .WORD
FSSTACK: .WORD
NEWBANK: .WORD
SOURCE: .WORD
CHECK:
.WORD
CBITS:
.WORD
MASK:
.WORD
CSR1S:
.WORD
BITNO:
.WORD
PCBUMP:

.WORD

0,0
0,0
0,0
0,0

0
0
0
O
O
O
O
O
O
0
0
O
O
O
O
O

O
O
O
O

;:DETAILED REPORT FLAG
;:CSR'S HAVE BEEN TESTED FLAG
;1 BIT PER EXISTING CSR, EG;CSR 0 REPRESENTED BY BIT 15, ETC.
;FIRST ADDRESS UNDER CONTROL OF THIS CSR

;:TWO WORD DATA BUFFER
;:TWO WORD TEST DATA
;THO WORD SINGLE BIT ERROR MASK
;TWO WORD DOUBLE BIT ERROR MASK
;ADDRESS OF SUBROUTINE TO EXECUTE IN SUPERVISOR MODE
;:LOCAL LOOP PASS CONTROL
;LOCAL LOOP PASS CONTROL
;LOCAL LOOP PASS CONTROL
;USED TO SAVE KERNAL PAR 5
s:I.L.C.;REV
;USED TO SAVE KERNAL PAR 5
;XXDP MONITOR RETURN ADDRESS
;:RETURN TO MONITOR FLAG
;REAL PATTERN UNDER TEST
;BACKED UP VALUE OF CACHE CONTROL REGISTER
;PARITY TRAPS SOMETIMES GO TO ADDRESS STORED HERE

;STACK SAVED HERE IF IN FIELD SERVICE MODE
;USED FOR RELGCCATION TO A NEW BANK

; SOURCE _OF DATA WORDS FOR CHECKBIT GENERATION SUBROUTINE

;CHECKBITS TO BE LOADED INTO CSR
;CHECK BITS TO BE WRITTEN
;:BIT MASK FOR CSR
:CSR ALL 1'S PATTERN
:BIT POINTER

;VALUE TO BUMP THE PC BY TO RECOVER AFTER A PARITY TRAP

D10

MACRO V05.01b Fridey 15-Feb-85 16:10
CVMJAAQ MSV11-J MEMORY DIAG.
INITIALIZED TO ZERO

5061 002330
5062 002332
5063 002334
5064 002336
5065 002340
5066 002342
5067 002344
5068 002346
5069 002350
5070 002352
5071 002354
5072
5073 002356
5074 002357
5075 002360
5076
5077 002362
5078 002364
5079 002366
5080 002370
5081 002372
5082 002374
5083 002376
5084 002400
5085 002402
5086 002404
5087 002406
5088 002410
5089 002412
5090 002416
5091 002420
5092 002422
5093 002424
5094 002426
5095 002430
5096 002432

5097 002434

5098 002436
5099 002440
5100 002442
5101 002444
5102 002446
5103 002450
5104 002452
5105 002454
5106 002456
5107 002460
5108 002462
002470
002476
5109 002502
002510

CSRINC: .WORD
CSRLOOP
: . WORD
SUCCESS:
. WORD
ZEROS:
.WORD
TIME:
.WORD
SKIPMK: .WORD
NULLFLAG:
. WORD
QVFLAG: O

OCOO0O0O00O0

VARIABLES

ACTFLAG:0
APTFLAG:0
XXDPCHAIN:
O

Page 128-2

SEQ 0120

;VALUE TO INCREMENT ADDRESS BY TO REMAIN IN THE SAME CSR
;LOOP CONTROL FOR CSR TESTING
:FLAG SET BY SUCCESSFULL TASK OR SUBROUTINE

;FOR AID IN "MOV* INSTRUCTIONS

;SECONDS THAT BATTERIES SHOULD LAST

;FLAG TO SKIP MKCONTROL SUBROUTINE

:SET WHEN RUNNING NULL PATTERNS

:FLAGS QUICK VERIFY PASS UNDER APT,

‘

ACT, OR XXDP CHAIN MODE

:FLAGS ACT AUTOMATIC MODE PROGRAMMING RULES

:FLAGS APT AUTOMATIC MODE PROGRAMMING RULES

:FLAGS XXDP CHAIN MODE PROGRAMMING RULES
;NOTE: THESE THOOBYTES MUST STAY TOGETHER
$NULL:
.BYTE
; sCONTAINS NULL CHARACTER FOR FILLS
$FILLS: .BYTE
O
; ;CONTAINS # OF FILL CHARACTERS
$TPFLG: .BYTE
0
;s "TERMINAL NOT AVAILABLE" FLAG

000000
000000
000000
000000

.EVEN
$ESCAPE:
0
EVEN:
O
STRIPES:0
O
COUNT:
NOTAB:
O
O
BSIZE:
KSIZE:
O
O
LSIZE:
MSIZE:
O
PSIZE:
O

TOOMANY
:0
READONLY:0
TESTADD:0,0
UNITOP: O

000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000

STOPOK: 0

000000

000000
000000
000000
000000

000000
000000

000000

APTPAR: .WORD
©
APTECC: .WORD
O
NOF SMODE : 0
NOERROR:
0
LOADBANK
:0
TEMP:
O
QUICK:
O
NOSCOPE:
0
FSINFLAG:0
APTSIZE:0
FS7FLAG:0
CONFGERROR:
0
I:
0
N022BIT:0
NOSUPER:
0
ERRADD: .WORD
O
CSRINFO0:0,0,0,0,0,0,0,0

LINK1:
LINK2:
CSRHOLD:
KFLAG:

; ;ESCAPE ON ERROR ADDRESS
;USED FOR ALTERNATE DATA PATTERNS
;COUNTS DIAGONAL STRIPES
;BACKED UP COPY OF STRIPES
;NO TABLE BEING PRINTED - NOW
;SIZE OF 11/45 MOS MEMORY IN K WORDS#*sxsssssssssss 7 ssssss
;SIZE OF MF11S-K MEMORY IN K WORDS##sssssssssssssts 7 sostss|
:SIZE OF MSV11-L/P MEMORY IN K WORDS
;SIZE OF MSV11-J MEMORY IN K WORDS
;SIZE OF Q-BUS PARITY MEMORY IN K WORDS
;FLAGS WHEN TOO MANY ERRORS HAVE BEEN PRINTED FOR A BANK
;FLAG TO PATTERNS TO READ ONLY
; THE ADDRESS TO RUN CSR TESTS ON
;HIGHEST ACCESSABLE BANK OF MEMORY THRU @-BUS MAP
;FLAG TO ALLOW STOPPING WITH SWITCH REGISTER
;AMOUNT OF PARITY MEMORY ACCORDING TO APT
;AMOUNT OF ECC MEMORY ACCORDING TO APT
;FLAG TO DISABLE FIELD SERVICE MODE
; "THIS IS NOT AN ERROR” FLAG
;BANK LOADERS ARE RELOCATED TO
;USED FOR JUNK
;QUICK STOP FLAG FOR APT POWER FAIL
; "NO SCOPE LOOP ALLOWED" FLAG
; "FIELD SERVICE - NO INTERNAL INTERLEAVE"” FLAG
;APT SIZING INFO FLAG
; TRUE WHEN IN FIELD SERVICE COMMAND 7

;CONFIGURATION ERROR FLAG
;USED FOR GENERAL PURPOSE INDEXING
;NO 22-BIT MODE FLAG
;NO SUPERVISOR MODE FLAG
;HOLDS THE CSR'S ERROR ADDRESS
;USED TO STORE INFORMATION ABOUT THE 16

0,0,0,0,0,0,0,0

;POSSIBLE CSR'S

O
O
0
O

;USED TO HOLD LINKS TO PATTERNS WHICH
;CAN EXECUTE IN THE PAR/PUR'S CR NOT
;USED TO STORE CSR VALUES FOR CSR TESTS

;USED TO FLAG MF11S-K MEMORY TO TESTSsessesessssssssnsnsnss

|
:
.

CVMJAAO MSV11-J MEMORY DIAG.

VARIABLES

5114 002532
5115 002536
5116 002540
5117 002542
5118 002544

E10

MACRO VO0S.01b Fridey 15-Feb-85 16:10

INITIALIZED T0 ZERO

000000
000000
000000
000000

000000

PGMCSR: .WORD
0,0
INHECC: .WORD
O
INHBANK: (WORD
O
FULLREL:.WORD
O
$CMTGE: :+END OF COMMON TAGS

Page 128-3
;POINTS TO PROGRAM CSR
:FLAGS INHIBIT ECC TESTS ON RELOCATION
;

SEQ 0121

F10

CVMJAAO MSV11-J MEMORY DIAG.
INITIALIZED TO NON ZERO

MACRO V05.01b Fridey 15-Feb-85 16:10

- VARIABLES

000401
001014
040000
000012
000177

TESTMODE : 40000

ENDADD: 160000

ENDFLG: 0
SWRFLG: 0
PASCNT: 0

WORST:
177777
SEEDHI: 176543
SEEDLO: 123456
MSEEDH: 176543
MSEEDL: 123456
HEADER: 177777
ONES:
177777
FLIPLOC:3
SOFTPAT:52525
$LPADR: .WORD
$LPERR: .WORD
RESTART:0
$ERTTL: .WORD

o
wv
n

177400

.WORD
.WORD

177570

177570
177560
177562

012

;HIGHEST BANK OF MEMORY+1 (IN PAR FORMAT)

;END FLAG
;USED TO BUMP STACK ON FIRST CALL TO GTSMWR
;PASS COUNTER

i
i
|

;ENDING ADDRESS

: STACK BEGINNING

;HOME BANK OF LOADERS

;:SET IF TESTING BANKS IN WORST FIRST MODE(1ST PASS)
;WORKING SEED HI (USED FOR RANDOM NUMBER GENERATOR)
;WORKING SEED LO (USED FOR RANDOM NUMBER GENERATOR)
;MASTER SEED HI (USED FOR RANDOM NUMBER GENERATOR)
;MASTER SEED LO (USED FOR RANDOM NUMBER GENERATOR)
;USED TO PRINT HEADINGS ONLY ONCE
;FOR AID IN "MOV" INSTRUCTIONS
;COUNTER FOR FLIPING DATA ON WORST CASE NOISE TEST
O
O
O

;PATTERN FOR SOFT ERROR BACKGROUND TESTS
; sCONTAINS SCOPE LOOP ADDRESS
; ;CONTAINS SCOPE RETURN FOR ERRORS
;RESTART (START ADD 202) FLAG
; ;CONTAINS TOTAL ERRORS

sRkkkkkkdokokkkkkkkkkkkkkk NOTE THESE TWO LOCATIONS MUST STAY TOGETHER tttttttttttt

BAKPAT:
SWAPAT:

0v0377

177564
177566
012
207
000
077
015

;HIGHEST BANK OF MEMORY

:S0B _CONSTANT

LOADHOME : 1

5140 002612
5141 002614
5142 002616
5143 002620
5144 002622
5145 002624
5146 002626
5147 002630

25.

KSTACK: STACK

5137 002604

5164 002661
5165

;MAX & OF ERRORS PER BANK WITH SwWi1l

LASTBLOCK:177000

SOBK:

INITIALIZED TO NON ZERO
;CACHE CONSTANT (MOVED TO CONTRL TO TURN ON CACHE)
;CACHE CONSTANT (MOVED TO CONTRL TO TURN OFF CACHE)

;USED TO SELECT THE PROPER TEST MODE FOR A PATTERN RUN

LASTBANK:177

5138 002606
5139 002610

5161 002653
36

VARIABLES

ERRMAX: 10.

5131 002570
5132 002572
5133 002574
5134 002576
5135 002600
5136 002602

5
5150 002632

SEQ 0122

.SBTTL
CACHKN: 401,0
CACHKF: 1014

000000

177000
160000

o
b-b-hohu—:;s-ho&-h—
(=4

5121

5122 002544
5123 002550
5124 002552

vuUuuTuLIULTULITULYTUILY

|
|

Page 13¢

377

377
177400

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$FILLC: .BYTE
$BELL:
.ASCIZ

DSWR
DDISP

$QUES:
$CRLF:
$LF:

2/
<«15>
<12>

.ASCII
.ASCII
.23&52

;BACKGROUND PATTERN
; SWAPPED BAKPAT
A

A PP

; ; ADDRESS OF SWITCH REGISTER
; ; ADDRESS OF DISPLAY REGISTER
;3 TTY KBD STATUS
::TTY KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
12
;s INSERT FILL CHARS. AFTER A "LINE FEED"
<207><377><377> ;;CODE FOR BELL
; sQUESTION MARK
; ;CARRIAGE RETURN
; sLINE FEED

—

' CVMJAAO MSV11-J MEMORY DIAG.
' CONFIGURATION TABLE
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181

—————————
———
.

—

G10

MACRO V05.01b Friday 15-Feb-85 16:10

Page 132

.SBTTL

CONFIGURATION TABLE

2ND

16K CONFIGURATION WORDS (2 EACH)

200TH

16K CONFIGURATION WORDS (2 EACH)

.CWIG FIRST 16K CONFIGURATION WORDS (2 EACH)

CONFIGURATION WORDS:
LOW:

HIGH:

5190 002664
5193 003670

000201

CONFIG: .REPT
CONFIEND:

201

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

ERRORS PRESENT
MEMORY SUCESSFULLY ACCESSED
RESERVED
SKIP ECC LOGIC TESTS FLAG (1=SKIP)
PROTECTED REGION OF ECC MEMORY
PROTECTED (PROGRAM SPACE)

CSR_CODE

RESERVED
NUMBER OF ERRORS
MEMORY TYPE
RESERVED
RESERVED
"BACKGROUND PATTERN VALID" FLAG
BANK SELECTED FOR TEST BY FIELD SERVICE MODE
LOADERS HOME BANK

SEQ 0123 |

CVMJAAQ MSV11-J MEMORY DIAG.

H10

MACRO V05.01b Friday 15-Feb-85 16:10

Cansssnsnssssssssssstss MAIN ssssssssssssssssssssststss

|
|

5195
5196 003670

LSBTTL
SUBTST

START:

SEQ 0124

skkkkkkkkkkkkhkbhhhkhk MAIN skdkdkkrsbbktrdbehbtddobbns
<<INITIALIZE VARIABLES

; *SUBTEST
.

Page 133

TO ZERO>>

T T T

I I T T

INITIALIZE VARIABLES TO ZERO

RT
LI
L

5197
5198 003670

SUBTST

<<SAVEMT>>

shk k kok kd kkkkkkokkkokkkkkkkkkkkkkkkkkkkkokkkkkkkkk
ko
k kb k kb ke kb k&

;i*SUBTEST

SAVEMT

’

5199
5200
5201
5202 003670
5203 003676
5204 003704
5205 003706
5206 003710
5207 003712
5208 003716
5209 003720
5210 003722
003722
5211 003726
5212 003732
5213 003736
5214 003742

5215 003744
5216 003750

5217 003752
5218 003760

bbbt

btttk

013737
013737
000402
000000
000000

000030
000032

105737

056666

005037
010637
013706
012700
005020
022700
001374
012737

002276
002274
002574
002000

001001
000005

003706
003710

MOV

SAV30:
SAV32:

VMKOR:

NORES:

BR
.WORD
. WORD
TSTB
BNE
RESET
CLEAR

MOV
MOV

14:

002544

000177

EMTSAV: MOV

002556
R

MOV

CLR
CMP
BNE
MOV
SUBTST

; *SUBTEST
R

5219
5220
S221
5222 003760
5223 003766
5224 003770

5225 003772
5226 003774
5227 004000

5228 004002
5229

ettt sstaatdd

;SAVEMT SAVES THE EMULATOR AND PRIORITY LOCATION
;UNDER THE NAMES OF SAV30 AND SAV32.

012737
005000
000241
005520
020027

000001

005037

002076

103773

002076

2%:

160000

; sSAVE EMULATOR ADDRESS
; sSAVE EMULATOR PRIORITY LEVEL
; sGET AROUND TAG AREA
: ;PUT EMULATOR INFO HERE
; ;PUT PRIORITY LOCATION HERE

30,SAV30
32,5AV32
VMKOR
0
0
$ENV
NORES
MONFLG

: sCLEAR RETURN TO MONITOR FLAG

SP,SAVMON
KSTACK,
SP
#$CMTAG,RO

; ;SAVE XXDP MONITOR RESTART ADDRESS
;3SETUP THE STACK POINTER
; ;FIRST LOCATION TO BE CLEARED
; ;sCLEAR MEMORY LOCATION
; ;DONE?
;LOOP BACK IF NO
;RESTORE LASTBANK (THIS MUST BE DONE PRIOR TO SYSTEM SIZING)

(RO)+

#$CMTGE ,RO

#177,LASTBANK

CLR

MONFLG

<<CLEAR NON-PROGRAM SPACE>>

L L

bihbetstemtnd

CLEAR NON-PROGRAM SPACE

bbbttt

bttt

Ty T
e

; THIS ATTEMPS TO GET RID OF ANY PARITY ERRORS BY WRITING INTO
;EVERY LOCATION THAT IS NOT LOADED INTO BY THE PROGRAM OR ALLOCATED
; TO THE XXDP LOADERS

MOV
CLR
CLC
ADC
CMP
BLO
CLR

#1,NOPAR
RO

(RO)+
RO, #160000
2¢
NOPAR

;PARITY ACTION = COUNT & IGNORE

;RESTORE DEFAULT PARITY ACTION

- CVMJAAQ MSV11-J MEMORY DIAG.

! CLEAR NON-PROGRAM SPACE

110

MACRO V05.01b Friday 15-Feb-85 16:10

5231 004006

SUBTST

; *SUBTEST

5232 004006
5233 004010
5234 004012
004012
5235 004020

5236 004026
5237
5238
5239

5240
5241 004030
5242 004032
5243 004040
004040

000401
000000
012737

004074

000004

012737

004032

000010

000007

000406
012737

047122

104401

071474

000034

000000
012737
110037

000012
004010

000010

012737

004074

000004

5248 004066

005737

177746

5249 004072
5250 004074
5251 004100
5252 004106
5253 004114
5254 004116
004116

000447
005037
012737
022737
001436

TYPE OF SYSTEM SIZER

T
e

Tty

;SKIP OVER VARIABLE LOCATION

MOV

#14,10

;TRAPS TO 10 = BAD PROCESSOR TYPE

BR
MOV
TYPE
TYPEIT

2%
#$TYPE, 34
MSG130
,MSG130

HALT
MOV
Move
SET4
MOV

#12,10
RO,PROTYP
#3$
#34.4

MFPT

2%:

SYSSIZ
O
#3$
332.4

.DSABL

5244 004044
5245 004046
5246 004054
5247 004060
004060

SEQ 0125

«<TYPE OF SYSTEM SIZER>>

BR
PROTYP: .WORD
SYSSIZ: SET4
"ggABL

1%:

Page 134

CRF

.DSABL.. CRF

TST

CONTRL

; TYPE OF-PROCESSOR TEST: THIS INSTRUCTION
; CAVAILABLE ON NEWER PROCESSORS ONLY) PLACES
;A CODE _IN THE LOWER BYTE OF RO THAT
; INDICATES THE PROCESSOR TYPE. 1=11/44
:3=11/23, 5=11/83/84 (Orion)

;LOAD TRAP VECTOR
; TELL THEM BAD PROCESSOR TYPE
;NO NEED TO GO ON
;RESTORE TRAPS TO 10
;MOV THE CODE TO PROTYP
;

;SEE IF CACHE REGISTER RESPONDS

000005

060342
004010

012737

004146

000004

BR
CLR
MOV
CMP
BEQ
SET4
HggABL

5255 004124
5256 004130
5257 004136

005037
052737
032737

172516
000020
000020

172516
172516

CLR
BIS
BIT

MMR3
#8174 ,MMR3
#BIT4 ,MMR3

;SEE IF THERE IS 22-BIT ADDRESSING
:
:

5259 004146
5260 004152
5261 004160
5262 004166
5263 004172
5264 004176
5265 004202

005237
012737
012737
005237
005037
005037
005037

002454
000007
140000
002456
060212
060352
060214

INC
MOV
MOV
INC
CLR
CLR
CLR

N022BIT
#7,LASTBANK
#140000, TESTMODE
NOSUPER
DT5+10
DT14.10
DT5+12

:SET FOR NO 22 BIT ADDRESSING
;HIGHEST BANK OF MEMORY
;MAKE TESTMODE USER
:
;CLEAR SOME ERROR DATA TAGS
;
i

BIS
SET4
"ggABL

#BIT4,MMR3
#7$
832.4

:SET UP 22 BIT ADDRESSING
;TRAPS GO TO 4%

CPERRF

;:CLEAR THE FLAG

#-1,CPERRF

: YES-TRAPPED

5258 004144

5266 004206
5267 004212
5268 004220

001005

002556
002552

060354
000005

004010

052737

000020

172516

012737

004254

000004

5271 004236

005037

052314

5273 004246

012737

177777

5269 004222
5270 004230
004230

5272 004242
5274 004254

005037
022737
001003

002544
002336

005737

177766

34:

4%:
5%:

6%:
22%:

BNE

CLR
CMP
BNE

CLR

052314

TST

7%:

MOV

RES4

6%
CACHKN
#ZEROS,DT14
#5,PROTYP
64
#4$
8::.4

;BRANCH IF CACHE AVAILABLE
:NO CACHE ON SYSTEM
;D0 NOT PRINT CONTRL ERROR MESSAGES
;IS THIS A 11/83/84
;:YES - BRANCH
:

DT14+12
#5,PROTYP
224

177766

;BRANCH IF 22-BIT RELOCATION

:
:CPU TYPE = 11/83/84
;NO_BRANCH

;IS THERE A CPU ERROR REGISTER?
;ENABLE TRAPS TO 4

%g;g

5275

012737
022737
001002
005037

034114
000005
177766

000004
004010
-

MOV
CMP
BNE

#TIMEOUT, 4
#5,PROTYP
101§

.DSABL

CRF

CLR

CPUERR

;IS THIS AN 11/83/84 ?
;BRANCH IF NOT

;CLEAR OUT THE CPU ERROR REGISTER BITS
; THAT A EXPECTED TRAP COULD HAVE SET

—t

004254
004262
004270

SEQ 0126

Page 134-1

YPE OF SYSTEM SIZER

J10

MACRO V05.01b Friday 15-Feb-85 16:10

VMJAAQ MSV11-J MEMORY DIAG.

CVMJAAQ MSV11-J MEMORY DIAG.

' TYPE OF SYSTEM SIZER

K10

MACRO V05.01b Friday 15-Feb-85 16:10

Page 136

SEQ 0127

SUBTST

5278 004276

<<INITIALIZE VARIABLES TO NON ZERO>>

; *SUBTEST

INITIALIZE VARIABLES TO NON ZERO

Rt
L L
T
T T T T

5279 004276
004276

5280 004304
5281 004312
004312
5282 004320
5283 004326
5284 004334
5285 004342
5286 004350
5287 004356
5288 004364

012737
012737

177777
000003

002600
002616

012737
012737
012737
013737
013737
012737
012737

177777
176543
123456

002612
002606
002610
002602

000377
177400

002632
002634

002606
002610

skw

SET

WORST

MOV
SET

#3,FLIPLOC
HEADER

MOV
MOV
MOV
MOV
MOV
MOV
SUBTST

#176543 ,MSEEDH
#123456 ,MSEEDL
MSEEDH, SEEDHI
MSEEDL
, SEEDLO
#377,BAKPAT
#177400, SWAPAT

5289 004364
5290 004372
5291 004400
5292 004406
5293 004414
5294 004422
5295 004430
5296 004436
5297 004444
5298 004452
5299 004460
5300 004466
5301 004474

5302 004502
5303 004510

5304 004516
5305 004524

#-1,HEADER

;PRIME THE RANDOM NUMBER GENERATOR
;BOTH HIGH AND LOW WORDS

<<INITIALIZE VECTORS>>

okkkgkkkkkkkkkkkkk ok kk ko

; *SUGTEST

MOV

kkkkkk ko ko kk ko

kR kR

kb kb bk

INITIALIZE VECTORS

skkkkkkkkkkokkkkkkkkkkkk
ok kkk ko kkkkkkkkkkkkk ok kkkkkkkkkkkk ko k
kb k kb k bk kkk k&

012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737

012737
012737
012737
012737
012737
104423

051146

000340

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CACHON

#$SCOPE, IOTVEC
#340,I0TVEC+2
#$ERROR ,EMTVEC
#340,EMTVEC.2
#$TRAP, TRAPVEC
#340, TRAPVEC+2
#$PWRDN, PWRVEC
#340,PURVEC+2
#PARITY,PARVEC
#340,PARVEC+2
#PDP1105,RESVEC
#340,RESVEC+2
#TIMEOUT ,ERRVEC
#340,ERRVEC.2
#MMTRAP ,MMVEC
#340,MMVEC.2

;:JOT _VECTOR FOR SCOPE ROUTINE
;sLEVEL 7
; sEMT _VECTOR FOR ERROR ROUTINE
:sLEVEL 7
; ; TRAP VECTOR FOR TRAP CALLS

;LEVEL 7
; sPOMER FAILURE VECTOR
;sLEVEL 7
;GET READY FOR PARITY ERRORS

;RESERVED INSTRUCTION TRAP
:SETUP_TIMEOUT ERRORS
;:SET _PRIORITY OF ERROR TRAPS
;VECTOR FOR MEMORY MANAGEMENT

: TURN CACHE ON

L10

' CVMJAAO MSV11-J MEMORY DIAG.
INITIALIZE VECTORS

l
|

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0128

5308 004526

SUBTST

5309

5328 004612
5329 004614
5330 004620
5331 004624

5332 004630
5333 004632
5334 004636
gggz 004642

<<INITIALIZE PATTERNS>>

I
T
T
T
T
TmMmmmmTTTTMTTMTTM

; *SUBTEST
5310
5311
5312
5313 004526
5314 004532
5315 004534
5316 004540
5317 004544
5318 004550
5319 004552
5320 004556
5321 004562
5322 004564
5323 004570
5324 004574
5325 004600
5326 004602
5327 004606

Page 138

INITIALIZE PATTERNS
N

MMM

;THE APT E-TABLE DETERMINES WHICH PATTERNS ARE GOING TO BE RUN.

012700
012001
012703
012702
004737
012001
012702
004737
012001
012703
012702
004737
012001
012702
004737

012001
012703
012702
004737
012001
012702
004737
000417

;EACH BIT SET REPRESENTS A PATTERN TABLE ENTRY THAT IS TO BE LEFT
;ALONE (7O BE RUN).
EACH BIT CLEARED REPRESENTS A PATTERN TABLE ENTRY
; THAT IS TO BE OVERLAYED WITH THE ADDRESS OF A NULL PATTERN.
MOV
#$DDWO,RO
MOV
(RO)+,R1
MOV
#MKCSRT,R3
MOV
#16.,R2
CALL
PATPLUG
MOV
(RO)+,R1
MOV
#8.,R2
CALL
PATPLUG
MOV
(RO)+,R1
MOV
#MKPAT ,R3
MOV
#16. ,R2
CALL
PATPLUG
MOV
(RO)+,R1
MOV
#8.,R2
CALL
PATPLUG

056734

017014
000020
004644
000010
004644
017244
000020
004644
000010
004644
017430
000020
004644

MOV
MOV
MOV
CALL
MOV
MOV
CALL
BR

000010
004644

5337 004644

(RO)+,R1
#MJPAT ,R3
#16. ,R2
PATPLUG

(RO)+,R1
#8.,R2
PATPLUG
SUBAAA

PATPLUG:SUBTST

<<SUBR

PLUG IN NULL PATTERNS>>

; *SUBTEST

SUBR

PLUG IN NULL PATTERNS

e
e e
T
T
MMM

5338 004644

004644
004652

012737

000001

5339 004652
5340 004654

006001

5341 004656
S$342 004662

012713

024220

5343 004662
5344 004666
004666
004672
004676

062703

000002

005237
023702
003765

002452
002452

004654

004662

004700
5345 004700

103402

000207

002452

FOR I := #1 TO R2
ROR
R1
ON.NOERROR
MOV #MT0999,(R3)
END ;OF ON.ERROR
ADD #2,R3
END ;OF FOR

RETURN

MOV #1.1
BO::::55:5

;IF CARRY CLEAR

BCS LO

LO:ss::::
INC I
CMP I.R2
BLE BO

€EO:;::5:5:3

—

— a—

CVMJAAQ MSV11-J MEMORY DIAG.
PLUG IN NULL PATTERNS
SUBR

M10

MACRC V05.01b Friday 15-Feb-85 16:10

SEQ 0129
SUBAAA: SUBTST

5348 004702

bbbttt

;*SUBTEST
T

5349
5350
5351
5352 004702
004702

004706
5353 004710
5354 004714

5355 004716

5356 004722
5357 004724
004724
5358
5359 004724
5360 004732

Peage 140

<<CLEAR THE CONFIGURATION TABLE>>
E L

ittt it

CLEAR THE CONFIGURATION TABLE

T I T L

; THIS ZEROS (UNLESS WE STARTED AT ADDRESS 202) THE CONFIG TABLE
;WHICH IS FULLY DISCRIBED AT LOCATION "CONFIG".

005737
001006
012700

005020

.ENABLE LSB
IF RESTART IS FALSE

002626

002664

022700
001374

003670

012737

000002

1%:

002106

TST RESTART

BNE L1

MOV
CLR
CMP
BNE
END ;OF

#CONFIG,RO
(RO)+
#CONFIEND,RO
1%
IF RESTART

.DSABL

LSB

SUBTST

<«<SIZE FOR A HARDWARE SWITCH REGISTER>>

MOV
R

#B8IT1,CPUBIT

; *SUBTEST

;SET ID BIT

SIZE FOR A HARDWARE SWITCH REGISTER

shkkkkkkkkkkkkdkkkkkkkkkkkokkkkk
bk kb kkkkk kb k
kb k Rk kR kb ek kb k kbbb ket bk

:sIF NOT _FOUND OR IT IS
:sEQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER.

5361
5362
5363

5364 004732
004732
5365 004740
5366 004746
5367 004754
004754
004762
5368 004764
5369 004766
5370 004772
5371 004774
004774
005002
005010
005012
005016
5372 005016
5373 005024
5374 005032
005032
5375

012737

004766

000004

012737
012737

177570
177570

002636
002640

022777
001023
000403
012716
000002

177777

175654

012737
022737
001002
005037

34:

004774

034114
000005

.ENABL
LSB
SET4
#3$
MOV
#3%.4
CRF
.DSABL
MOV
#DSWR, SWR
MOV
#DDISP,DISPLAY
IF #-1 EQ aSWR

000004
004010

2%:

1618

177766

BR
g?¥

2%
#2%,(SP)

RES4
MOV
CMP
BNE
CLR

#TIMEOUT,4
#5,PROTYP
1014
CPUERR

:TRAPS TO 4 GOTO 3¢
::SETUP FOR A HARDWARE SWITCH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
:IF NO TRAP FROM REFERENCE TO @SWR AND aSWR = #-1
CMP &#-1,3SWR
BNE L2
; sBRANCH IF NO TIMEOUT
; sSET UP FOR TRAP RETURN

;RESET TRAPS TO 4 TO DEFAULT
;IS THIS AN 11/83/84 ?
;BRANCH IF NOT
;CLEAR OUT THE CPU ERROR REGISTER BITS

; THAT A EXPECTED TRAP COULD HAVE SET

012737
012737

000176
000174

002636
002640

CRF
.DSABL
MOV #SWREG, SWR
: sPOINT TO SOFTWARE SWR
MOV _ #DISPREG,DISPLAY
END ;OF IF #-1
"
.DSABL

LSB

c VMJAAQ MSV11-J MEMORY CIAG.

N10

MACRO V05.01b Fridey 15-Feb-85 16:10

| SIZE FOR A HARDMARE SWITCH REGISTER
5378 005032

5379
5380
5381 005032
5382 005036
005036

005102
005110

5390 005132
5391 005140

SUBAAB: SUBTST

<<SETUP ACT, APT, & XXDP>>

; *SUBTEST

SETUP ACT, APT, & XXDP

SRR

056654

132737

000040

056667

012737

177777

002360

001403

132737

000200

056667

012737

177777

002444

001403

005100
5389 005102

SEQ 0130
JEER

005037

123727
001023

056666

000001

012737
012737
012737

177777
177777
177777
177777
040720
056670

002352
002346
002062

012737
012737
012737

002436

000024
002636

Page 142

ERRR

AR RRNERERRRE RN
bttt

RER LR R R RRERRRRRERRRRR RN R RN

R R

bR
L

bbbt b

;THIS SETS UP A BUNCH OF FLAGS TO TELL THE PROGRAM EVERYTHING
;IT CARES TO KNOW ABOUT APT, ACT, & XXDP.

CLR
$PASS
IFB #BITS SET.IN $ENVM
SET

$TPFLG

; INDICATE NO TERMINAL

IFB #BIT7 SET.IN $ENVM
APTSIZE

END ;OF IFB #BIT7
IFB $ENV EQ #1

SET

MOV
MOV

T T T T T )

;CLEAR PASS COUNT

END ;OF IFB #BITS

SET

bbbt

APTFLAG,QVFLAG, $AUTO,QUICK

#APTDOWN,PWRVEC
#$SWREG,
SWR
;USE APT SWR

BITB #BITS, $ENVM
BEQ L3
MOV

@-1,$TPFLG

L3:s35:5333

BITB #BIT7,$ENVM
BEQ L4

MOV

#-1,APTSIZE

L8:5:::33
CMPB $ENV,#1
BNE LS
MOV
MOV
MOV
MOV

#-1,APTFLAG
#-1,QVFLAG
#-1,$AUTO

—

- ———

R R

Bll

MACRO V05.01b Fridey 15-Feb-85 16:10

Pege 142-1

ELSE

000430

132

833727

001421

012737

177777
177777

002346
002062

023727
001004

000042

014042

012737

1777717

002350

IF 42 NE 9STACK AND 42 NE 90

000042

883160 oo%gg; 000042
012737

000403

012737

1777717

SEQ 0131

5392 005146
46

002354

SET QVFLAG, $AUTO
IF 42 EQ #$ENDAD

SET

ACTFLAG

ELSE

SE7

XXDPCHAIN

END ;OF IF 42
END ;OF IF 42
END ;OF IFB $ENV

BR L6
LS::33:33:
CMP 42,0STACK
BEQ L7
TST 42
BEQ L7

MOV
MOV

@-1,QVFLAG
@-1,$AUTO

CHP 42, 8$ENDAD
BNE L10
MOV

@-1,ACTFLAG

BR L11
L10:3355333
MOV
Lid:5333833

L7:3335333
L6:335333

#-1,XXDPCHAIN

CVMJAAQ MSV11-J MEMORY DIAG.
SETUP ACT, APT, & XXDP

Cll

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0132

SUBTST

5403 005230

ettt

; *SUBTEST
5404 005230
5405 005236
5406 005244
005244
5407

5408
5409
5410

5411

<<PROTECT PROGRAM & LOADERS>:
L

000200
000200

002664
002670

022737
001412

014042

000042

005737
001405

002454

012737
104064

217777

et e

BIS

#BIT77,CONFIG

SET

MONFLG

TYPE
MSGO00
TYPEIT
,MSGO0O

071422

CRF

.DSABL
END

5413

END ;0F IF #$ENDAD

5414
5415

SUBTST
SERERRRR R R R R

; *SUBTEST
T

005500

005737

177746

012737

005412

5421
5422
5423
5424
5425
5426

005737
013746
012737
032737
001415

000004
005400
001000

104401

071100

5427
5428
5429

052737
042737

000400
000077

104401

071547

5430 005372
5431 005376
5432 00540°
5433 005404
005404

012637
000411
012637

000004
000004

104401

071112

000004

177750

R R

AR R R

SET4
MOV
.OSABL

#1%
#14%.4
CRF

177730
177734

124:

MMR3

4,-(SP)
#14% .4
#BIT9,3#177750
14%

.DSABL

CRF

TYPE
TYPEIT

NOUBMT
,NOUBMT

BR
MOV

44
(SP).,4

BIS
BIC

.DSABL
MOV

14%:

CONTRL

MOV
MOV
BIT
BEQ

TYPE
TYPEIT

L12::::35:3
RN

E SRRk Rk

CHECK FOR CACHE AND MEMORY MANAGEMENT

#34.4
CRF

TST

172516

<«<CHECK FOR CACHE AND MEMORY MANAGEMENT>>
R AR

MOV
.DSABL
18T

L14::5:::;

R kbR

bR kSRR R

;# THIS FIGURES OUT IF THERE IS A CACHE AND MEMORY MANAGEMENT
§512N TH§3§YSTEH. AND WHETHER IT IS ENABLED OR DISABLED.

012737

5419
5420

;PROTECT LOADER SPACE (BANK 1)
;NOT ACT-11?
CMP #$ENDAD,42
BEQ L12
:
TST N022BIT
BEQ L13
;RETURN TO XXDP MONITOR
MOV
#-1,MONFLG
;ILLEGAL PROCESSOR
H
BR L14
L13:5:5:5:5
; TYPE PROGRAM TITLE

ERROR +64
ELSE

000402

;PROTECT PROGRAM SPACE (BANK 0)

IF NO22BIT NE #0

5412

5416
5417
5418

BIS
#BIT7,CONFIG+4
IF #$ENDAD NE 42

002276

PROTECT PROGRAM & LOADERS

052737
052737

104401

Page 143

M1i84
,M1184

#BIT8,a3#177730
#77,a8#177734

CRF
(SP).,4

MSG117
,MSG117

;IS THERE A CONTROL REGISTER?

;IS THERE A MMR3 REGISTER?

;:V
;:V
;3V
::V

SAVE OLD TIME OUT
PASS ON KTJ11
TEST FOR 1184
ELSE REPORT 1183
::V REPORT 1184

:3V SET ABILITY TO CLEAR
; 3V UNIBUS MEMORY ACCESS

::V TO UNIBUS

..V AND REPORT NO UNIBUS

:V MEMORY ACCESS AND CONTINUE
..V ALSO RESTORE OLD TIME OUT
;

11783

TP T T

a
T

D11

CVMJUAAQ MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
CHECK FOR CACHE AND MEMORY MANAGEMENT
5434 005410
5435 005412
005412
5436 005420
5437 005422
5438 005430
5439 005436
5440 005444
5441 005446
5442 005454

012737
104064
052737
042737
032737
001004
032737
001413

005456

104401

5443 005456
5444 005462

5445 005464

5446 005472
5447 005476
5448 005500
005500
5449 005504
005504

.DSABL

000404

104424

177777

002276

000014
000014
000004

177746
177746
177746

000010

177746

002544

104401

071124

104401

071133

005037
000404

002544

45%:

74%:

071154

013737

1%:

002546

4%
MONFLG

ERROR
BIS
BIC
BIT
BNE
BIT
BEQ

+64
#BIT2!BIT3,CONTRL
#BIT2!BIT3,CONTRL
#BIT2,CONTRL
74
#BIT3,CONTRL
64

TYPE

6%:

MSG121

TYPEIT
,MSGl2l
CRF
.DSABL
CACHOFF

CLR
BR
TYPE
TYPEIT
.DSABL
TYPE
TYPEIT
.DSABL

SEQ 0133

CRF

BR
SET

MOV
3:

Page 143-1

CACHKN, CACHKN-+2

CACHKN
8¢
MSG119
,MSG119
CRF
MSG120
,MSG120
CRF

;PROCESSOR NOT SUPPORTED BY THIS DIAGNOSTIC
MOV #-1,MONFLG
;NO_MEMORY MANAGEMENT
:SET CACHE DISABLE BITS
;CLEAR CACHE DISABLE BITS
;IS THE BIT SET?
;:BRANCH IF THE BIT IS SEi
;IS THE BIT SET?
;BRANCH IF THE BIT IS SET

; CACHE BYPASSED

;SAVE _INFG ABOUT CACHE

;CACHE CANNOT BE USED - IT'S BYPASSED
;
;
NO
;CACHE AVAILABLE

E1l1

CVMJAAQ MSV11-J MEMORY DIAG.
CHECK FOR CACHE AND MEMORY MANAGEMENT

MACRO VO05.01b Friday 15-Feb-85 16:10

SEQ 0134

SUBTST

5451 005510

5468
5469 005556

104421
005737
001011

002456

042737
052737

030000
010000

012746
006606

000740

052737

030000

012746
006606

000700

8%:

ittt

ettt

DEENERGIZE
187
NOSUPER
BNE
54

bttt

L L

;TURN OFF MEMORY MANAGEMENT
;IS THERE A SUPERVISOR MODE?
;NO-SKIP SUPERVISOR SETUP.

;SET PREVIOUS MODE TO SUPERVISOR

177776
177776

177776

<<SETUP USER & SUPERVISOR STACK>>
SETUP USER & SUPERVISOR STACK

; *SUBTEST
5452 005510
5453 005512
5454 005516
5455
5456
5457 005520
5458 005526
5459

Page 144

5%:

BIC
BIS

#BIT13:!BIT12,PSW
#B8IT12,PSW

PUSH

#SUPSTK

MTPI

sSSP

MOV #SUPSTK,-(SP)

;SET PREVIOUS MODE TO USER

BIS

#BIT13!'BIT12,PSUW

PUSH

#USESTK

MTPI

UsP

SUBTST

<<GET SOFTWARE SWITCH REGISTER IF NECESSARY>>

MOV #USESTK,-(SP)

R
T
T
I
TM

; *SUBTEST

GET SOFTWARE SWITCH REGISTER IF NECESSARY

B T
T
T T T I T I

5470 005556
005556
005562
5471 005564
005564
005572
5472 005574
005574
5473 005602
5474 005604
5475 005610

IF $AUTO IS FALSE

005737
001012

002062

023727
001006

002636

000176

012737

177777

002566

104407
005037

;IF NOTCAPT OR ACT)
TST

IF SWR EQ #SWREG

SET

SWRFLG

GTSWR

; sGET SOFT-SWR SETTINGS

CLR SWRFLG
END ;0F IF SWR

002566

;;CLEAR IT FOR REST OF PROGRAM
L16:;:::::;

END ;OF IF $AUTO

5477
5478 005610

SUBTST
PR

R ARk

010346
012703
004737

005624
5481 005626

012603
104420

KMAP
MAP

104422
000200
035716

MOV

CALL
.DSABL

ENERGIZE

kR Rk

GET MEMORY MANAGEMENT READY

5479 005610
5480 005612
005612
005614
005620

L1S::5::::

<<GET MEMORY MANAGEMENT READY>>

R R R

; *SUBTEST

$AUTO

BNE L1S
;IF SOFTWARE SWITCH REG SELECTED
CMP SWR, #SWREG
BNE L16
;3SET FLG TO BUMP STACK
MOV #-1,SWRFLG

#200,R3

kR kR Rk Rk kR

e b ek ke

;MAP KERNEL SPACE 1 T0 1
;MAP SUPERVISOR SPACE (TEST AREA) 1 10 1
MOV R3,-(SP)

MAPPER
CRF

;TURN ON MEMORY MANAGEMENT

MOV (SP)+,R3

CVMJAAO MSV11-J MEMORY DIAG.
GET MEMORY MANAGEMENT READY

F11

MACRO VO05.01b Fridey 15-Feb-85 16:10

5484 005630

NEWTST

Page 146

SEQ 0135

«<<BIT TEST OF ALL CSR'S>>

e
e
I
T T T T T T T MM I

;#TEST 1

BIT TEST OF ALL CSR'S

T
T
T T
T
T
T
TMM
M

5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496

005630

000004

1ST1:
SCOPE
;s THE FIRST PART OF THE CONFIGURATION ANALYSIS DOES THE FOLLOWING:
.t
1) FINDS WHICH CSR'S RESPOND, AND PUTS THEM INTO THE CSR INFORMATION
i#
TABLE, AND STORES ANOTHER BIT FOR "TOTCSRS".
i*
2) TESTS THE CSR BITS COMMON TO ALL CSR'S.
i*
3) FIGURES OUT IF THE MODULE IS A ECC, OR PARITY MEMORY
i
4) TESTS THE BITS PARTICULAR TO THAT TYPE OF CSR.
i
S) IF ANY BITS TEST BAD IN THE CSR UNDER TEST, THE CSR OK BIT IN THE
i
CSR INFORMATION TABLE IS CLEARED.
;# THE INFORMATION BITS ONE THROUGH THREE FORM A CODE WHICH GIVES THE TYPE
;*# OF CSR:
i¥
ECC
i
TYPE
BITO

5497

i¥

5498

g;gg

i %

gggé

MSV11-L/P

MSV11-J

PARITY

ECC

;* THIS MEMORY CODE WILL BE USED IN THE SECOND PART OF THIS ANALYSIS
i ¥

S503 005632

5504 005634

5505 005636
5506 005642
5507 005650
005650

5508 005656
005656
5509 005656

sgzo 005660
5511 005664
5512 005666
5513 005674
5514 005702
5515 005704

005005

005000

172100
000001

002076

012737

006024

000004

005713

052705

005004
042760
052760
005013

000006
000030

005710
005714

032713
001403

020000

5524 005752

005752

5525 005752
5526 005756

MOV
MOV
SET4
MOV

#CSRADD,R3
#1,NOPAR
#CSRBMP
#CSRBMP
,4

;R3 HAS THE CSR ADDRESS
; IGNORE PARITY ERRORS

.DSABL

052760
005013
004737
026027
100004
016037
104021
062700
062703

000001

;RO IS A TABLE INDEX

CRF

Bl:;:::::

;DOES THIS CSR RESPOND???

BIS #1,R5
;MARK IT IN CSR MAP
CLR R4
;CLEAR THE LAST CSR INDICATOR
BIC #6,CSRINFOCRO) ;CLEAR UNUSED BITS
BIS #BIT4!BIT3,CSRINFOCRO) ;YES-MARK IT IN CSR INFORMATION TABLE
CLR (R3)
;CLEAR THE CSR UNDER TEST
LET (R3):= #BIT13
;IS THIS AN ECC MEMORY???

002462
002462

IF #BIT13 SET.IN (R3);IS BIT 13 SET
002462

002462

000030

002462

002052

MOV #BIT13,(R3)
BIT #BIT13,(R3)
BEQ L17

BIS #BITO, CSRINFO(RO);MARK IT IN THE TABLE AS BEING A ECC MEMORY

END

L17:5::5:3
CLR (R3)
;CLEAR CSR UNDER TEST
CALL RWCSR
;BIT TEST OF ALL BITS IN CSR'S
IF CSRINFO(RO) MI #30 ;D0 WE HAVE A LEGAL CONFIGURATION?
CMP CSRINFO(RO),#30
BPL L20

006220

000002
000002

TST (R3)

000001

020000

5518 005724
005724
5519 005724
5520 005726
5521 005732
005732
005740
5522 005742
5523 005750

;RS IS THE TOTAL CSR NUMBER

REPEAT

012713

5517 005716

CLR

012703
012737

005704

5516 005710

CLR

MOV CSRINFO(CRO), BAD ;MOVE IN BAD DATA
ERROR +21
END
:
NXTCSR:

ADD #2,.RO
ADD #2,R3

;GO TO NEXT CSR
;GO TO NEXT CSR

L20:3353833

| CVMUAAQ MSV11-J MEMORY DIAG.
{73
BIT TEST OF ALL CSR’'S

5527 005762
5528 005764
005764
5529 005766
5530 005770
005770
5531 005770
005770

MACRO V05.01b Friday 15-Feb-85 16:10

RS
ASL
ON.ERROR

103001
005204

INC R4
END

UNTIL RO EQ #40

020027
001330

006005
005704

5537 006014
5538 006020
006020
5539
5540 006024
5541 006030
5542

ROR
TST
RNE

100000

010537
004737

002224
006034

000137

006714

062706
000137

000004
005752

Page 146-1

SEQ 0136

006305

001402
052705

G1l1

22%:

RS
R4
224

;SHIFT CSR MAP
;IS THERE A CSR 0
:
;YES-SET CSR PRESENT FLAG

L2l:ss3:3:
;UNTIL ALL CSR'S ARE DONE
CMP RO, #40

;RESYNC RS
;WAS THERE A CSR 0?
;BRANCH IF NOT EQUAL

BNE Bl
€l:s::3331

#BIT15,R5
BIS
LET TOTCSRS := RS

;:YES SET IT IN CSR TABLE
;STORE CSR MAP IN TOTCSRS

CALL CSRMAP
JUMPTO
CTEST

;PRINT CSR MAP

CSRBMP: ADD
JMP

#4 ,SP
NXTCSR-

BCC L21

BEQ 224
MOV RS, TOTCSRS

JMP CTEST

;FIX STACK POINTER FOR NON-EXISTANT CSR TRAP
;GO ON TO NEXT CSR

SEQ 0137
CSRMAP: SUBTST

5544 006034

; *SUBTEST

5547 006042
006042

5548 006046
5549 006050
006050
5550 006050
5551 006052
5552 006056
5553 006060
5554 006064
5555 006070
5556 006074
006074
5557 006100
006100
5558 006104
5559 006106
006106
006112
006114
5560 006114
006114

5561 006120
006120
5562 006120
006120
006124
5563 006126
006126
006134
5564 006136
5565 006144

006144
006146
3566 006146
5567 006154
006154

5568 006154
006154
006156
5569 006156
5570 006164
006164
5571 006164
006164

<<PRINT CSR REGISTER MAP>>

T
T
I
I
IOIIOTOTmmsnnmmmmTTMTM

005000

104401

071370

104401

066064

CLR
TYPE
TYPEIT
.DSABL
TYPE
TYPEIT
.DSABL
CLR
REPEAT

005001
010102
022702
100002
062702
062702

PRINT CSR REGISTER
MAP

’

5545 006034
5546 006036
006036

Page 147

000011

110237

000007
000060
066062

104401

066062

104401

066060

14:

005201

020127
001356

000020

104401

065544

MOV
CMP
BPL
ADD

MSGO08

;CLEAR CSR INFO POINTER
;PRINT TITLE

MSGO16

;PRINT CSR NUMBERS

,MSG008
CRF

,MSG016

—

H11

MACRO V05.01b Friday 15-Feb-85 16:10

CRF
R1

R1,R2
#9.,R2
1$
#7,R2

{ JUMP AROUND NEXT INSTRUCTION
:MAKE IT ASCII

ADD
#60,R2
MOVB R2,MSGO15
TYP E MSGO15
TYPEIT
,MSGO15
.DSABL
CRF
TYP E MSGO14
TYPEIT
,MSG014
.DSABL
CRF
INC R1
UNTIL R1 EQ #16.

; TYPE SINGLE SPACE

CMP R1,#16.
BNE B2

: TYPE MEMTYPE

TYPE
MSGO09
TYPEIT
,MSG009
.DSABL
CRF
REPEAT

-------

IF CSRINFOCRO) NE #0 ;IS CSR NONEXSISTANT??22?

005760
001414

002462

032760
001404
112737

000001

002462

000105

066062

000120

066062

000403

112737

104401

MOVB

BIT #BIT0,CSRINFO(RO)
BEQ L25

;IT IS A MSV11-J

#'P,MSGO15 ;IT IS A MSV11-L/P

ELS E

000403

112737

END

#'E,MSGO15

TST CSRINFO(RO)

BEQ L24

IF #BITO SET.IN CSRINFO(RO)
MOVEB
ELSE

000040

066062

END

MOVB #'

,MSGO15

TYP E MSGO15S
.MSGO015
TYPEIT

———

CVMJUAAO MSV11-J MEMORY DIAG.
BIT TEST OF ALL CSR’'S

Le7::533:3

; TYPE MEMORY TYPE

5572 006170
006170

5573 006174
5574 006176
5575 006202
006202
006206
006210
5576 006210
006210
5577 006214
5578 006216

066060

000240
062700

000002

020027
001344

000040

104401

071471

000207

CRF

TYPE MSGO14

TYPEIT
,MSGO14
CRF
.DSABL
NOP
ADD
#2,RO
UNTIL RO EQ #40

TYPE
MSG129
TYPEIT
,MSG129

TRACE:

.DSABL
RETURN
.WORD

CRF

; TYPE SPACE

;POINT TO NEXT ENTRY

CMP RO,#40
BNE B3
E3:3513333

—

SEQ 0138
.DSABL

104401

Page 147-1

———————————

CVMJAAQ MSV11-J MEMORY DIAG.

' PRINT CSR REGISTER MAP

111

MACRO V05.01b Friday 15-Feb-85 16:10

| CVMJAAQ MSV11-J MEMORY DIAG.

| PRINT CSR REGISTER MAP

J11

MACRO V05.01b Friday 15-Feb-85 16:10

Page 148

SEQ 0139

5580 006220

SUBTST

<<READ AND WRITE ALL CSR BITS>>

; *SUBTEST

READ AND WRITE ALL CSR BITS

T
T T I I I

; THIS ROUTINE “RWCSR” CHECK TO SEE THAT THE CSR CAN BEWRITTEN ON CORRECTLY
; BY WRITING AND CHECKING FOR THE FOLLOWING PATTERNS:

;
H
H
;
5590 006220
5591 006220
006220
006222
006224
5592 006230
006230
5593 006232
5594 006234
006234
5595 006240
006240
5596 006244
006244
006252
5597 006254
006254
5598 006260
006260
006262
5599 006262

RWCSR:

010446
010546
013746

177640

002152

010337

002034

032760
001403

000001

012705

017740

002462

000402

012705

070032

012737
040537

177777

002322

011304
040504
005704
001410

002044

010437
104035

002150

042760

000010

AND UIPARO ON STACK

MOV R4,-(SP)

MOV
;:GET CSR NUMBER FOR POSSIBLE ERROR
MOV
ASR RS
i
LET CSRNO := RS
i
MOV
LET ADDRESS := R3
;GET ADDRESS FOR POSSIBLE ERROR
MOV
IF #BITO SET.IN CSRINFO(RO) ;WHAT KIND OF MEMORY IS THIS?2?
BIT
BEQ
;MASK FOR MSV11-J
LET RS := #017740
MOV
ELSE
;IT IS A MSV11-L/P

;MASK FOR MSV11-L/P

LET CSR1S := #177777

;SET CSR1S TO ALL ONES

BIC R5,CSR1S
LET (R3) := #0

;CLEAR BITS FOR GOOD DATA

4 i >CSR

LET R4 := (R3)

;MASK OUT UNWANTED BITS

BIC R5,R4
IF R4 NE #0

;
;D0 WE HAVE A CORRECT READ
:= #0

LET CSR := R4

;GOOD DATA=0'S

;BAD DATA=CSR

ERROR +35
ENgIC #BIT3,CSRINFO(RO)

;BIT SET ERROR
;CLEAR CSR OK BIT

LET (R3)

;ONES--->(R3)

:= CSR1S

UIPARO,-(SP)
RO,RS
RS,CSRNO
R3,ADDRESS

;GET BIT MASKS FOR D

#BITO,CSRINFO(RO)
L31
#017740,RS

BR L32

palaiaivic
MOV #070032,RS

END

LET GOOD

002462

;SAVE R4,RS5,

:= RO

LET RS := #070032

005013

005037

PUSH R4,RS5,UIPARO

LET RS

010005
006205

010537

1-ZEROS
2-0NES
3-SHIFTING A ONE THROUGH A FIELD OF ZEROS
4-SHIFTING A ZEROS THROUGH A FIELD OF ONES

MOV #177777,CSR1S

CLR (R3)
MOV (R3).R4

TST R4

BEQ L33

CLR GOOD
MOV R4,CSR

L33:55544s

| CVMJUAAO MSV11-J MEMORY DIAG.
' READ AND WRITE ALL CSR BITS
006332
5613 006336
006336

5614 006340
5615 006342
5616 006344
006344
006350
5617 006352
006352
5618 006360
006360
5619 006364
5620 006366
5621 006374
006374
5622 006374
006374
5623 006400

013713

K11

MACRO V05.01b Friday 15-Feb-85 16:10

002322

011304
005013
040504

020437
001411

002322

013737

002322

010437
104010
042760

002150

005037

002264

000010

002044

002462

006400

5624
5625 006400
5626 006404
006404
5627 006412
006412
006420
5628 006422
006422
5629 006426
006426

006430

5630 006430
006430
5631 006434

005237

002264

012737

177777

177640

023727
001003

002264

000001

012702

000001

006474
006502
5638 006504
5639 006510
006510

CLR
(R3)
BIC RS5,R4
IF R4 NE CSR1S

;CLEAR OUT CSR
;
;WAS PATTERN WRITTEN CORRECTLY?

MOV (R3).R4

CMP R4,CSR1S
BEQ L34
LET GOOD := CSR1S
;GOOD DATA = ALL LEGAL BITS SET IN CSR
MOV CSR1S,GO0D
LET CSR := R4
;BAD DATA=CSR
MOV R4,CSR
ERROR +10
;BIT CLEAR ERROR
BIC #BIT3,CSRINFO(RO) ;CLEAR CSR OK BIT
END
;
L38:;;:;:;::;
LET PASFLG := #0
;SET UP LOOP COUNTER
CLR PASFLG
REPEAT
;REPEAT WITH A FIELD OF 1'S THROUGH 0'S

012702

177776

177640

023727
001006
032760
001002
042702

002264

000001

002462

032760
001002
042702

040000

010213

000002

000001

002462

;
0'S THROUGH 1'S
; INCREMENT LOOF COUNTER
;USE USER PAR FOR BIT COUNTER
MOV #-1,UIPARO
;PASS 1
CMP PASFLG,#1
BNE L35
il----- >FIELD OF ZEROS
MOV #1,R2
;PASS 2
BR L36

;0----- >FIELD OF ONES

END

REPEAT

;00 BITS 0-4 AND 13-15

L3S:;:::35:

MOV #177776,R2

L36:;:::::
-

INC UIPARO
;INCREMENT BIT POINTER
IF PASFLG EQ #1 AND #BITO OFF.IN CSRINFO(RO) ;

END

002264

040004

IF PASFLG EG #1

LET R2 := #177776

005237

023727
001006

LET UIPARO := #-1

ELSE

000402

006510

5640 006510

;MASK OUT CORRECT FIELD

LET R2 := #1

006464

5637 006464
006464
006472

MOV CSR1S,(R3)

LET R4 := (R3)

INC PASFLG

006434

006440
006446
006450
006456
5635 006460
5636 006464

SEQ 0140

B4:35::::

5632 882:3:

5633 006434
5634 006440

Page 148-1

BIC #BIT14,R2

CMP PASFLG,#1
BNE L37
BIT #BITO,CSRINFO(RO)
BNE L37
;IF THIS IS PASS 1 ON A MSV1i1-L/P,CLEAR BIT 14
:

L37:5::3:5

IF PASFLG EQ #2 AND #BITO OFF.IN CSRINFO(CRO) ;

END

BIC #BIT14!BIT2,R2

LET (R3)

;

:= R2

CMP PASFLG,#2
BNE L40

BIT #BITO,CSRINFO(RO)
BNE L40
;IF THIS IS PASS 2 ON A MSV11-L/P, CLEAR ECRSRD BIT AND

;WRITE DATA

La0:;55:3:
MOV R2,(R3)

o ————

_—

—— —

———

CVMJAAQ MSV11-J MEMORY DIAG.
' READ AND WRITE ALL CSR BITS
'
'

5641 006512
006512
5642 006514
5643 006516
5644 006520
5645 006522

L11

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0141
LET Rl

010201
040501

011304
040504
020104
001416
010137

002044

010437

002150

023727
001002
104035

002264

000001

000401

562
5655 006562
006562
006570
5656 006572
5657 006574
006574
006576
5658 006576
5659 006600
5660 006602

023727
001002
006302

:= R2

000010

002264

002462

000001

;GET GOOD DATA
;GET DATA THAT IS READ

BIC R5,R4
IF R1 NE R4

;MASK OUT CSR BITS
;IS DATA CORRECT???

LET GOOD := R1

;BAD DATA = CSR CONTENTS

LET CSR

;GET GOOD DATA

:= R4

;BIT SET ERROR
;PASS 2

BIC #BIT3,CSRINFO(RO)
IF PASFLG EQ #1
R2

SEC

ENDROL R2

023727
001311

177640

000017

023727
001267

002264

000002

MOV R1,GOOD

ERROR +35
ELSE

ASL

000261
006102

CMP R1,R4
BEQ L41

;SELECT ERROR DEPENDING ON PASS

;BIT CLEAR ERROR

UNTIL UIPARO EQ #15.

UNTIL PASFLG EQ #2

;CLEAR CSR OK BIT

;GET DATA FOR_NEXT LOOP

;SET CARRY

MOV R4,CSR
CMP PASFLG,#1
BNE L42

BR L43

L82:553:33

L43
L81:553:5:3
CMP PASFLG,#1
BNE L44

;SHIFT 1 ACROSS 0'S

MOV R2,R1

MOV (R3),.R4

IF PASFLG EQ #1

ELSE

000402

;GET GOOD DATA AND MASK IT 0OUT

BIC RS,R1
LET R4 := (R3)

ERROR +10

104010
042760

Page 148-2

BR L4S
L44:;;:;::;

;ROTATE A O ACROSS A FIELD OF ONES

;UNTIL ALL BITS ARE DONE

LAS:;:;5::::
-

CMP UIPARO,#15.
BNE BS

CMP PASFLG,
#2
BNE B4

;DONE WITH 2 PASSES

2383088

032760
001402
000137

000001

012713

140005

011302
042702

037772

020227

140005

006700

002462

IF #BITO SET.IN CSRINFO(CRO) THEN JUMPTO DONE ;IF MSV11-L/P DO ONE LAST WRITE
BIT #BITO,CSRINFO(RO)
BEQ LS50
JMP DONE

LET (R3) := #140005
LET R2 := (R3)

;READ CSR FOR CORRECT BITS

BIC #37772,R2
IF R2 NE #140005

;CLEAR UNWANTED BITS
;WAS WRITE CORRECT

MOV #140005,(R3)
MOV (R3),R2

CMP R2,#140005

—

' CVMJAAO MSV11-J MEMORY DIAG.

{ READ AND WRITE ALL CSR BITS

006654
5668 006656
006656
5669 006664
006664

5670 006670
5671 006672
5672 006700
006700
5673 006700
006700
5674 006702
006702
006706
006710
5675 006712

M11

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0142

001411

012737

140005

010237
104010
042760

002150
000010

012637
012605

LET GOOD := #140005

002044

LET CSR := R2

177640

BEQ LS1
e 2

;GOOD DATA

;BAD DATA
.

LET (R3) := #0

;CLEAR OUT CSR

POP UIPARO,RS,R4

;RESTORE UIPARO,R4,

RETURN

9003.000

MOV R2,CSR

ERROR +10
;BIT CLEAR ERROR
ENDelc #BIT3,CSRINFOCRO) ;CLEAR CSR OK BIT!

002462

:
DONE

005013

Page 148-3

LS1::::::3
AND RS

CLR (R3)
MOV (SP)+,UIPARO
MOV (SP)+,RS
MOV (SP)+,R4

c—

CVMJAAQ MSV11-J MEMORY DIAG.

READ AND WRITE ALL CSR BITS
5678
5679
5680 006714

5681 006716

N1l

MACRO V05.01b Friday 15-Feb-85 16:10

Page 150

SEQ 0143

; THE FOLLOWING ROUTINE DETERMINES WHICH CSR CONTROLS PROGRAM SPACE
104424
012737
012737
012701

177777

002532
172350

¢1esT:

002412
002414

CACHOFF
MOV
MOV
MOV
MOV
MOV
CLR

#177777 ,PGMCSR

#2000,KIPARS

#TESTADD,R1

#100000, TESTADD
3&00002.TESTADD~2

CSRNO

TOTCSRS,R3

4%:

14:

#2,R0
RO, CSRNO
R3

5697 007010
5698 007012
5699 007014
5700 007022
5701 007024
702
703
704
705

2%:
002462

O?ITO.CSRINFO(RO)
5
#B8172,CSRADD(RO)
#123456,3(R1)
#123456,32(R1)

172100
000000
000002

007032
007040
007046
007032

172100
000000
000002
172100
002462

S5$:

6%:

CSRADD(RO)
64
#0,CSRADD(RO)
#123456,3(R1)
#123456,82(R1)
#2000
, CSRADD(RO)
6
a(R1)
CSRADD(RO),R4
g?ITO.CSRINFO(RO)
R4

000720

84
14

:SET UP MAP REGISTER

;:CLEAR CSR COUNTER

;OBTAIN CSR MAP
:DEBUG _AID
;PUT HIGH ORDER BIT INTO C BIT
;:BRANCH IF CSR EXISTS
;UPDATE CSR COUNTER
;IS MAP EMPTY?
;BRANCH IF SO
;:DEBUG AID
;CLEAR CARRY
;IS THIS PARITY MEMORY?
;BRACH IF NOT
;SET WRITE WRONG PARITY
;WRITE DATA

;RESTORE CSR

;:CLEAR THE CSR UNDER TEST
;WRITE DATA
;SET_DIAG CHECK MODE
;WRITE CHECKBITS TO CSR
;WRITE CSR TO R4
;PARITY MEMORY?
;:BRANCH IF NOT
;PARITY ERROR?
;:BRACH IF SO

: TRY NEXT CSR

e —

SRITE AL Con BITS"
000240

888

e
P e e

8
F

~
N

e e e

MSV

SISRRUNEISST

quauuauEEEIERAUY

5733 007226

072427
042704
01272
020204
001307
010037
40
304
12771
01277

Bl2

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0144

74:

177773
177700
000040

NOP

ASH
BIC

8%:
3s:

002532
000000
000000
002532

000000
000002
177777

01273

001000

172350

104401

071264

005037

002532

m:g;7 007232

Page 150-1

FINTS$:

¢-S,R4

#tC77.R4

;DEBUG AID

MOV
#40,R2
cHP
R2,.R4
BNE
1$
MOV
RO,PGMCSR
NOP
CLRCSR
MOV
#0,3(R1)
MOV
#20,32(R1)
cMP
PGMCSR, #177777
BEQ
FINTS
JMP
CLRMEM
MOV
#1000,KIPARS
TYPE
MSG126

;LOAD IN CORRECT CHECK BITS FOR MSV11-J
;CORRECT CHECKBITS?
;BRANCH IF NOT

CLR

;:SET TO DEFAULT OF 0

TYPEIT
.DSABL

,MSG126
CRF

PGMCSR

;DEBUG AID

;CLEAR ALL CSR'S
;RESTORE TEST LOCATIONS
;:IF PROGRAM CSR NOT FOUND GO TO FINT
;GO TO SIZING ROUTINE IF FOUND
:
;ERROR - PROGRAM CSR NOT FOUND!

CVMJAAQ MSV11-J MEMORY DIAG.

READ AND WRITE ALL CSR BITS

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0145

SUBTST

5735 007232

il d

st 22t

; *SUBTEST

5743 007240
5744 007244
5745 007252
5746 007260
5747 007264
5748 007270
5749 007272
5750 007300
5751 007302
5752 007306
5753 007310
5754 007312
5755 007320
5756 007326
5757 007330
5758 007334
5759 007340
5760 007342
5761 007344
5762 007350
007350
007356
007364
007366
007372

<<CLEAR ALL MEMORY SPACE FROM BANK 2 ON>>

22 22 22

2222 222 222

5736
5737
5738
5739
5740
5741
5742 007232
007232

Pege 151

2 22 222

a2t

CLEAR ALL MEMORY SPACE FROM BANK 2 ON

22222222 2222

d i

d ittt

:THIS ROUTINE CLEARS ALL MEMORY SPACE BEGINNING AT ADDRESS 200,000 AND

T T IT Lt
T YIS

;CONTINUES UNTIL THERE IS NO MEMORY LEFT. IT SHOULD CLEAR ANY PARITY ERRORS
;CREATED BY THE LAST ROUTINE, AND CLEAN UP ANY JUNK LEFT HANGING AROUND IN
;HIGHER MEMORY.
012737

007342

005037
012737
012737
012701
020127
001003
012737
005021
005737
001001
000765
062737
022737
001405
005037
012701
000751
000240
005037

006216
000001
002000
100C00
117776

012737
022737
001002
005037

1777717

000004

002076
172350

MOV

1%:
006216

006216
000200
177600

CLRMEM: SET4
MOV
.DSABL
CLR
MOV

172350
172750

2%:

34:

006216
100000

CLREX:

006216

034114
000005
177766

MOV
CMP
BNE

MOV

CLR

#100000,R1
R1,#117776
2%
#-1,TRACE

(R1)«

TRACE
3

ADD

#200,KIPAR4

CMP
BEQ
CLR
MOV
BR
NOP
CLR

MOV

101$:

#2000, KIPARS

TST
BNE

RES4

000004
004010

#CLREX
#CLREX,4
CRF
TRACE
#1,NOPAR

#177600,KIPARS
CLREX
TRACE
#100000,R1
1$

: IGNORE PARITY ERRORS
;:SET UP MAP TO START AT BANK 2
;R1 MAPS TO KIPAR4
;WHOLE 16K BANK DONE?
;KEEP_GOING IF NOT
;USE TRACE FLAG TO FLAG END OF BANK
;:CLEAR CONTENTS & INCREMENT
;EOB FLAG SET?
;G0 TO NEXT BANK IF SO
:SET MAP FOR NEXT BANK
;ARE WE AT THE PERPHERIAL PAGE
: YES-GO _ON
;RESET FLAG
;RESET R1
;CLEAR NEXT BANK

TRACE

#TIMEOUT,4

CcMP

#5,PROTYP

.DSABL

CRF

BNE
CLR

;NONEM TRAPS GO TO CLREX

101¢
CPUERR

;IS THIS AN 11/83/84 ?
;BRANCH IF NOT
;:CLEAR OUT THE CPU ERROR REGISTER BITS
; THAT A EXPECTED TRAP COULD HAVE SET

CVMJUAAQ MSV11-J MEMORY DIAG.

D12

HAC&(} V05.01b Friday 15-Feb-85 16:10

Page 153

CLEAR ALL MEMORY SPACE FROM BANK 2

5765 007372

ANA2:

JERERRR R

SUBTST

; *SUBTEST
A

5766

R R AR

SEQ 0146

<<MATCH ALL CSR'S WITH MEMORY>>

R RR

R R RR

KRRk Rk

MATCH ALL CSR'S WITH MEMORY
R

kb kb kb kbbb kbbb kb kbbb
R

T STt 1113313}

;# THE SECOND PART OF THE ANALYSIS MATCHES UP THE CSR'S WITH THE MEMORY, AND

5767
5768
5769
5770
5771
5772
5773
5774
5775
5776
5777

;#
;*#
;*#
;*
;*
;*
;*
;*
:*
;#
;*

g;_’;g

INSTALLS ALL THE INFORMATION FOUND IN THE CONFIGURATION TABLE.
FOR ECC,
THIS IS DONE BY TAKING EACH CSR FOUND IN THE PREVIOUS SECTION SEQUENTIALLY
AND CHECKING THROUGH ALL OF MEMORY, ONE BANK AT AT TIME, TO SEE WHICH BANKS
RESPOND TO THE CSR IN QUESTION. THE FIRST DOUBLE WORD PAIR IN EACH BANK IS
WRITTEN WITH DATA AND DIAGNOSTIC CHECK MODE SET IN THE CSR AND ARE CHECKED
FOR EACH BANK THROUGH USE OF TESTADD AND KERNEL INSTRUCTION PAGE ADDRESS
REGISTERS 4 AND S. IF WE GET THE PROPER CHECKBITS BACK, WE HAVE A MATCH.
IF NOT, THE ROUTINE CHECKS FOR SINGLE OR DOUBLE BIT ERRORS.
IF ONE OR THE OTHER IS FOUND, THE ERROR ADDRESS IS CHECKED
TO SEE IF IT IS THAT BANK.
IF IT IS, WE HAVE A MATCH.
AT THE END OF EACH
BANK PASS, FOR EACH CSR PASS, THE PROGRAM COMES UP WITH A NUMBER, STORED IN

;¢ "I", WHICH DENOTES THE FOLLOWING:
i %

g;’gg

MEMORY DESCRIPTION

5782
5783

i
ik

0
1

NON-EXISTANT MEMORY
MSV11-L/P MEMORY

5787

;* NOTE THAT PARITY MEMORY WRITES WRONG PARITY TO THE DOUBLE WORDS, THEN LOOKS

i ¥

5784

eesscccccccccccces

MSV11-J MEMORY

1 ¥

g;gg

;* FOR THE PARITY ERROR BIT TO BE SET.

5790 007372

007372

012737

010444

5791 007400
5792 007404
5793 007410

005037
012701
013703

002314
002412
002224

5796 007420

005737

002454

5794 007414
5795 007416

$797 007424
5798 007426
5799 007432

005000
005005

001403
005037
000413

022737

000177

5802 007444
5803 007450

013702
005202

002556

010237
012702
005037
012737

002560
000004
002564
001000

5804 007452

5805 007456
5806 007462
5807 007466
5808 007472
5809 007500

5810 007506

5811 007510
5812 007512
5813 007516
5814 007522
5815 007524
5816 007526

001407
072227

012737

006303

103420
062700
010037
005703
001370
012737

002556

7%:

000011

001000

g&gfl .4

#1004

;NE MEMORY TRAPS GO TO 100¢

CLR
MOV
MOV

CHECK
#TESTADD,R1
TOTCSRS,R3

;CLEAR CHECK
;SET UP THE VIRTUAL ADDR. POINTER
;MOVE CSR MAP INTO R3

NO22BIT

;D0 WE HAVE 22 BIT ADDRESSING ?

CLR
CLR

RO
RS

BEQ
CLR
BR

7%
LASTBLOCK
14

CMP

1$:
172350

172352

172350

24%:

;CLEAR THE CSR POINTER
;CLEAR THE PROGRAM CSR STATUS POINTER
;BRANCH IF WE DO
;ADJUST LASTBLOCK INDICATOR FOR 124K MACHINE
;BRANCH OVER NEXT PIECE OF CODE

#177 ,LASTBANK

;1S THERE Q-BUS MEMORY ABOVE 17776000?

MOV
INC

LASTBANK,R2
R2

;SET UP A NEW LAST BLOCK INDICATOR

MOV
MOV
CLR
MOV

R2,LASTBLOCK
#4 ,R2
ENDFLG
#1000,KIPAR4

;R2 IS INDEX FOR CONFIG TABLE
;CLEAR END OF MEMORY FLAG
;SET KIPAR4 FOR BANK 1

ASL

;:DOES THIS CSR EXIST?

BEQ
ASH

000002
002152
001000

SET4

WE HAVE A MATCH.

HggABL

002560

5800 007434

5801 007442

000004

IF THE BIT IS SET,

MOV

BCS
ADD
MOV
15T
BNE
MOV

;BRANCH IF NOT

#9.,R2

#1000,KIPARS

33
#2,RO
RO,CSRNO
R3
24

#1000,KIPAR4

;SET KIPARS FOR BANK 1

;BRANCH IF IT DOES EXIST
; INCREMENT THE CSR POINTER
;STORE IT IN CSRNO ALSO
;ARE THERE ANY MORE CSR'S TO DO?
;:BRANCH IF ALL CSRS NOT DONE

;RESTORE KIPAR4

CVMJAAQ MSV1l-J MEMORY DIAG.

MATCH ALL CSR'S WITH MEMORY

S817 007534
5818 007542
5819 007546
5820 007552
5821 007556
5822 007560
5823 007562
5824 007570
5825 007576
5826 007604
5827 007606
5828 007612
5829 007616
5830 007622
5831 007626
007626
007632
5832 007636
5833 007644
5834 007646
5835 007654
5836 007662
5837 007670
5838 007674
5839 007676

017146
017146
032760
001014
052760
012771
012771
005060
000411
012771

5841 007712
S842 007714
5843 007716
5844 007720
5845 007724
5846 007726

104503
104475
000240
005771
104426
000240

5840 007704

5847 007730
5848 007734
5849 007736
5850 007742
5851 007744

012737
013706
000137
010037
104424
000240
012737
012737
032762
001402
000137
005037
005771
005237

012771

013704
000240
010437
104503

007744
007750

012671
012671

5854 007764

005704

5852 007754
5853 007762

032760
001004

5855 007766
5856 007770
S837 007774

100420
000137
072427

5859 010004
5860 010012
5861 010014

012737
000240
023704

S858 010000

5862 010020

5863 010022
gggg 010024

042704
000240

001402
000137

ElC2

MACRO V05.01b Friday 15-Feb-85 16:10

001200
002574
010454
002152

172352

100000
120002
000040

002412
002414
002664

3$:
13%:

010342
002452
000000
002452
000000
000002
000001

43%:
4:

002462

000004
123456
123456
172100

172100
000000
000002

123456

000000

123456

45%:

000002

000000

34%:

41%:

002150

000001

MOV
MOV
JMP
MOV
CACHOFF
NOP
MOV
MOV
BIT
BEQ
JMP
CLR
TST
INC
PUSH

#1200,KIPARS
KSTACK, SP
SUBAAS
RO, CSRNO

;RESTORE KIPARS
;RESTORE STACK
;JUMP TO SUBAAS IF ALL CSR'S ARE DONE
;MAKE SURE CSRNO IS UPDATED
;TURN THE CACHE OFF

#100000, TESTADD
#120002, TESTADD+2
#BITS,CONFIG(R2)
43
6%
I
a(R1)
3
a(R1),a2(R1)

BIT
BNE
BIS
MOV
MOV
CLR
BR
MOV

#BIT0,CSRINFO(RO)
344
#BIT2,CSRADD(RO)
#123456,a(R1)
#123456,82(R1)
CSRADD(RO)
41%
#123456,a(R1)

;SET UP VIRTUAL ADDRESS TO KIPAR4
;SET UP VIRTUAL ADDRESS TO KIPARS
;IS THIS A BANK TO SKIP ECC/LOGIC TESTS?
;NO - BRANCH AROUND NEXT INSTRUCTION
;YES - GO TO END OF BANK
;CLEAR THE MEMORY CONFIGURATION COUNTER
;TEST TO SEE THAT THERE IS MEMORY PRESENT
;MEMORY PRESENT
;SAVE THE LOCATIONS UNDER TEST
MOV a(R1),-(SP)
MOV a@2(R1),-(SP)
;IS THIS PARITY MEMORY?
;NO - BRANCH
;SET WRITE WRONG PARITY
;SET THE FIRST LOCATION UNDER TEST
;SET THE SECOND LUT
;CLEAR THE CSR
; TEST LOCATIONS
;SET THE FIRST LOCATION UNDER TEST

MOV

000040

002316

;SET THE SECOND LUT

;RESET CSR
;SET DIAG. CHECK MODE IN CSR UNDER TEST
;DEBUG AID
;READ THE FIRST LUT TO WRITE CKBITS. INTO CSR
;READ THE CSR UNDER TEST
;DEBUG AID

BIT
BNE

#BITO,CSRINFO(RO)
424

;IS THIS PARITY MEMORY?
;NO - BRANCH

424:

BMI
JMP
ASH

25%
6%
#-5,R4

;YES - FILL IN CONFIG TABLE
;NO - JUMP TO END OF BANK
;MANIPULATE THE CSR BITS

#40,CBITS

77%:

MOV
NOP
CMP

CBITS,R4

;MSV11-J CHECK BITS
;DEBBUGGING AIDE

BEQ

25$%

TST

177700

#123456,a82(R1)

CLR1CSR
CB1CSR
NOP
TST
a(R1)
READCSR
NOP

;GET THE CHECKBITS FROM THE CSR
;DEBUG AID
;SAVE IN TEMP FOR LATER
;RESET CSR
;RESTORE LOCATIONS UNDER TEST

002462

010342
177773

SEQ 0147

MOV
CSR,R4
NOP
MOV
R4, TEMP
CLR1CSR
POP
82(R1),a(R1)

002434
000002
000000

Page 153-1

002316

010170

BIC

NOP

JMP

#1C77,.R4

224

;:DID WE GET A PARITY ERROR?

;INTO A USABLE FORM.

;00 THE CHECKBITS COMPARE TO WHAT WAS WRITTEN?
;DEBBUG AIDE

;BRANCH IF THERE IS A MATCH

;ELSE BRANCH IF NOT THE SAME

ggg{;
5868 010030
5869 010032

;* WE COME HERE IF THERE IS A MATCH
1 ¥

010004
000240

25%:

MOV
NOP

RO,R4

MOV (SP)+,32(R1)
MOV (SP)+,a(R1)

;GET THE CSR NUMBER
i

CVMJAAQ MSV11-J MEMORY DIAG.

MATCH ALL CSR’'S WITH MEMORY

:
!

5870 010034

5871 010036
5872 010040
5873 010044
5674 010050
5875 010054
5876 010060
gg;; 010062

F12

MACRO V05.01b Fridey 15-Feb-85 16:10

006204

000304
042704
050462
016004
042704
000304
050462

ASR

170377
002664
002462
177770

15%:

002666

SWAB
BIC
BIS
MOV
BIC
SWAB
BIS
i %

ggzg

Page 153-2

R4
#170377,R4
R4,CONFIG(R2)
CSRINFO(RO),R4
#tC7,R4
R4
R4,CONFIG+2(R2)

SEQ 0148

;SET IT UP FOR USE IN THE

; CONFIGURATION TABLE.
;CLEAR OFF EXTRANEOQUS BITS
;PUT CSR NUMBER IN CONFIG. TABLE
;GET MEMORY TYPE
;CLEAR OFF THE EXTRANEOUS BITS
;:MOVE INTO PROPER POSITION
;SET IT INTO THE CONFIG TABLE

;% THIS SECTION IS EXECUTED ONLY WHEN THE BANK=1
i %

5881 010066
5882 010074
5883 010076

022737
001402
000137

5885 010110
5886 010112
5887 010116
5888 010122
5889 010126
5890 010130
5891 010136
5892 010142
010142
5893 010150
5894 010156
5895 010164
gggg 010166

001417
013704
072427
022704
003010
052762
105262

5884 010102

032737

012737
053737
053737
000240
000465

001000
010342

100020

172350

24%:

002434

30%:

002434
177767
000001
000001
002666

002664

177777
002670
002672

002450
002664
002666

10%:

CMP
BEQ
JMP

#1000,KIPAR4
30¢
64

;IS THIS BANK 1 ?
;BRANCH IF TRUE
;ELSE JUMP TO END OF THIS BANK

BEQ
MOV
ASH
CMP
BGT
BIS
INCB
SET

10$
TEMP,R4
#-9.,R4
#1,R4
10¢
#BITO,CONFIG(R2)
CONFIG+2(R2)
CONFGERROR

BIS
BIS
NOP
BR

CONFIG+4,CONFIG
CONFIG+6,CONFIG+2

;BRANCH IF NOT
;GET CSR CONTENTS
;MAKE ERROR ADDRESS INTO BANK #
;ERROR IN BANKS 0 OR 1?
;BRANCH IF NOT
;SET ERROR FLAG IN CONFIG TABLE
;ADD ONE TO BANK ERROR COUNT
;PRINT CONFIG TABLE
MOV #-1,CONFGERROR
;SET UP INFORMATION IN BANK ZERO

BIT

i ¥

gggg

#BIT1S5!BIT4,TEMP

;WAS THERE A SBE OR DBE?

;DEBUG AID
; BRANCH

;*# IF CHECKBITS DID NOT MATCH, WE COME HERE

i %

5900 010170
5901 010176
5902 010200
5903 010202
5904 010206
5905 010214
010214
010216

5906 010220

032737
001001
000460
013704
042764
010046
010146

016401

S907 010224
5908 010230

072127
042701

5910 010242
5911 010246
5912 010254
5913 010260
5914 010262

016400
042764
042700
006300
006300

5909 010234

5915 010264
5916 010266
$917 010270

010270
010272
5918 010274

5919 010300
5920 010304
5921 010306

052764

100020

002150

002152
000006

172100

020437
001001
000403

8%:

172100

177773
177600

040000

172100
040000
177037

060001
010104

012601
012600
072427

22%:

#BIT15!BIT4,CSR
84
6%
CSRNO,R4
#6,CSRADD(R4)
RO,R1

MOV

CSRADD(R4) ,R1

ASH
BIC

172100

BIS

MOV
BIC
BIC
ASL
ASL

172100

27%:

000005
172350

BIT
BNE
BR
MOV
BIC
PUSH

ADD
MOV
POP
ASH
CMP
BNE
BR

;SBE OR DBE FLAGS SET?
;BRANCH IF TRUE
;CHECK TO SEE IF IT IS MSVil1-u
;GET CSRNO
;:TURN OFF DIAG CHECK & ECC DISABLE
;SAVE RO € R1

;GET CSR INFORMATION

#-5,R1
#1C177,R1

;SET UP ERROR ADDRESS

CSRADD(R4),RJ
#BIT14,CSRADD(R4)
#tC740,RO
RO
RO

;READ FROM CSR
;TURN OFF EQB BIT
;SET UP EXTENDED BITS

#B1T714,CSRADD(R4)

RO,R1
R1,R4
R1,RO

#5,R4
R4 ,KIPAR4
284
354

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

;GET EXTENDED ERROR ADDRESS BITS

;SET UP TOTAL ERROR ADDRESS
;SAVE IN R4
;RESTORE RO & R1

MOV (SP)+,.R1
MOV (SP)+,RO
;SET ERROR ADDRESS UP IN PAR NOTATION
;DOES IT EQUAL KIPAR4?
;BRANCH IF FALSE
;YES - MARK INFO IN CONFIG TABLE

' CVMJAAQ MSV11-J MEMORY DIAG.
'MATCH ALL CSR’S WITH MEMORY

{

5922 010310

5923 010314

5924 010316
5925 010324
5926 010330
010330

ggsz 010336

G12

MACRO V05.01b Friday 15-Feb-85 16:10

020437

172352

052762
105262

000001
002666

002664

177777

002450

001012

012737

000137

010030

Page 153-3

SEQ 0149

28%:

CMP

R4 ,KIPARS

;DOES IT EQUAL KIPARS?

35%:

BIS
INCB
SET

#BIT0,CONFIG(R2)
CONFIG+2(R2)
CONFGERROR

;SET BANK ERROR FLAG
; INCREMENT BANK ERROR COUNTER
;PRINT CONFIG TABLE

BNE

JMP
i %

33233

254

;BRANCH IF FALSE

MOV _ #-1,CONFGERROR

;YES - MARK INFO IN CONFIG TABLE

;*END OF BANK ROUTINE

5931 010342
5932 010344
5933 010350
5934 010352
5935 010356
5936 010364
5937 010372
5938 010400
5939 010402

104503
005737
001021
062702
062737
013737
022737
001005

5940 010410
5941 010414

000137
023737

007562
002560

5943 010424
5944 010430
5945 010434
5946 010436

000137
062700
000240
104423

007562
000002

010402

5942 010422

012737
101402

002564
000004
001000
172350
177000

172350
172352
172350

177777

002564

gg:; 010440

000137

007462

5949 010444

062706

000004

5950 010450

000137

64:

010342

172350

70%:
19¢:

CLR1CSR
TST
ENDFLG
BNE
704
ADD
#4,R2
ADD
#1000,KIPAR4
MOV
KIPAR4 ,KIPARS
CMP
#177000,KIPARS
BNE
70$
SET
ENDFLG

;CLEAR THE CSR UNDER TEST
;ARE WE AT TOP OF MEMORY?
;IF SO THEN EXIT
;UPDATE CONFIGURATION POINTER
;UPDATE KIPAR4 TO NEXT BANK
;AND UPDATE KIPAR4
;ARE WE AT BANK 177
;BRANCH IF NOT
;WERE AT LAST BANK

JMP
CMP

454
LASTBLOCK,KIPAR4

;
;HAVE WE DONE THE WHOLE MEMORY SPACE?

JMP
ADD
NOP
CACHON

454
#2,R0

BLOS

JMP
100¢:

ADD

JMP

MOV

19$

;BRANCH IF DONE

;JUMP TO TRY NEXT CSR

#4 ,SP

;JUMP IF NOT DONE
; INCREMENT CSR POINTER
;DEBUG AID
;TURN ON THE CACHE
;RESTORE STACK

;GO TO END OF BANK ROUTINE

#-1,ENDFLG
;R-C

;R-C

iR-C

CVMJAAO MSV11-J MEMORY DIAG.

'MATCH ALL CSR’S WITH MEMORY

|
'

5952 010454

5953 010456
5954 010460

H12

MACRO V05.01b Friday 15-Feb-85 16:10

Page 154

SEQ 0150

104423

SUBAAS: CACHON
;MAKE SURE THE CACHE IS ON
; TRAP ON DOUBLE BIT ERRORS (NORMAL)
ECCINIT
<<TEST BANK O ACCESSES>>
NEWTST

104472

skkkkkkkkkkkkkkkkkkkkkkkkk

;#TEST 2

TEST BANK O ACCESSES

sRkkkkkkkkkkkkkkkkkkkkkk
bk kR
kb kR
ke kR Rk kb

TST2:!

010460

SCOPE
; THIS DOES A "TST” INSTRUCTION ON EVERY LOCATION IN BANK #0 TO SEE

;IF IT GETS ANY PARITY TRAPS.

;SINCE EVERY LOCATION IS EITHER LOADED OR WRITTEN INTO BY THE PROGRAM
;PRIOR TO THIS POINT - THEN A PARITY ERROR IMPLIES THAT THERE IS A

960
5961 010462

5962 010466
5963 010474
5964 010500
5965 010506
010506

5966 010514
5967 010516
5968 010522
5969 010524
5970 010526
5971 010530
5972
5973 010532
5974 010536
5975 010540
010540
010544
5976 010546
5977 010552
5978 010554
5979 010562
010562
010566
5980 010570
5981 010576
010576
010604
010612
010614
010620

;HARDWARE FAILURE IN THE MEMORY.

002072
000001

; THESE ERRORS ARE COUNTED AND A FATAL ACTION IS TAKEN

005037
012737
005037
012737

002070
000001

002100

012737

034050

000004

005000
012701
104424
005720
077102
104423

002076

040000
1¢:

CLR
MOV
CLR
MOV
SET4
MOV
.DSABL
CLR
MOV
CACHOFF
gg;

agog;

CACHON

;SEE IF ANY FAILURES

005737
001403

002072

005237
104003

002064

005737
001406
162737

002070

005237
104004

002064

053737

002106

002664

012737
022737
001002
005037

034114
000005

000004
004010

000002

TST
BEQ

FATAL
INC

24:
002034

177766

3$:

1014:

5982
5983 010620

ERROR
.DSABL
TST
BEQ
§2$AL

PARCNT
24

3
FATAL ¢
+3
CRF
NEMCNT
34
:Z.ADDRESS

FATAL $
+4
CRF
CPUBIT,CONFIG

;CLEAR PARITY ERROR COUNTER
;SET THE NO PARITY ERROR FLAG
;CLEAR NON-EXISTANT MEMORY ERROR COUNTER
;SET_THE NON-EXISTANT MEMORY ERROR MODE TO COUNT
; TRAPS TO 4 GOTO NONEXIST

; TURN CACHE OFF
;SEE IF I CAN DO A READ ACCESS WITHOUT A PARITY TRAP
; TURN CACHE ON
; ANY PARITY ERRORS?
;NO - SKIP
:SET FATAL INDICATOR
: ANY NON-EXISTANT MEMORY (HOLES)?
;SKIP IF EQUAL
;UPDATE 1ST ADDRESS FAILURE FROM AUTO INCREMENT #

INC
ERROR
.DSABL
BIS
RES4
MOV
CMP
BNE
CLR

#TIMEOUT,4
#5,PROTYP
1014
CPUERR

.DSABL

CRF

;SET FATAL INDICATOR

SUBTST

<<ENABLE ECC FOR CORRECT TRAPS>>

;SET_CORRECT ACCESSED BIT ON BANK 0
;RESET TRAPS TO 4 TO DEFAULT
;IS THIS AN 11/83/84 ?
;:BRANCH IF NOT
;CLEAR OUT THE CPU ERROR REGISTER BITS

;THAT A EXPECTED TRAP COULD HAVE SET

skkkkokkkkkkkkkkkkkkokkkkkkkkkkkokokokkokkkkkkkkkkkkkkk
kb kkkkk kb kb
kb bbbk r bkttt

; *SUBTEST
5984 010620
010620
010626

PARCNT
#1,NOPAR
NEMCNT
#1,NONEM
#NONEXIST
#NONEXIST,4
CRF
RO
#SIZE,R1

032777
001003

000001

172010

ENABLE ECC FOR CORRECT TRAPS

kkokkkokkkk ok kokkkkkkkokkokkkkkkkkkokkkkkkkkkkkkkkk
ki
bk kb
e kbbbt d b b i bt

IF #SWO SET.IN @SWR OR ACTFLAG IS TRUE

BIT #SWO,aSWR
BNE L52

———

' CVMJAAO MSV11-J MEMORY DIAG.

| ENABLE ECC FOR CORRECT TRAPS
010630
010634

010636
5985 010636
5986 010640
010640

005737
001402

104506
000401

010642 104472
5987 010642

5988 010644

010644

—-————

MACRO VO05.01b Fridey 15-Feb-85 16:10

002350

Page 154-1

SEQ 0151 !
TST ACTFLAG
BEQ L53

ENASBE

ELSE

ECCINIT

END ;OF IF #SWO

L32:333333
; TRAP ON SINGLE BIT ERRORS

BR LS54

L53:355341

; TRAP ON DOUBLE BIT ERRO&S (NORMAL.)
LS8::;5::::

|
|

CVMJAAO MSV11-J MEMORY DIAG.
" ENABLE ECC FOR CORRECT TRAPS

J12

MACRO V05.01b Friday 15-Feb-85 16:10

kkkkkkk bk

SEQ 0152 i

<<TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES>>

NEWTST

5991 010644

Page 156

kk kb

;#TEST 3

kk ko ko

kkkkkk ko k

TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES

%;;;ttt.;ea;gttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

;EACH BANK IS TESTED FOR EXISTANCE AND IF IT EXISTS
;ggggp%T IS TESTED FOR ZEROS & ONES.
i

PROTECTED BANKS (WHERE THE PROGRAM IS) ARE ONLY TESTED BY

"TST" INSTRUCTIONS LIKE BANK #0
;ANY BAD BANKS ARE LOGGED IN THE CONFIGURATION TABLE.

CESIS Rogxfiae IS ONLY DOING A SMART SIZE - NOT ACTUAL TESTING!

010646
010652
010660
010666
010666

005037
012737
012737

002102
000001
000002

002076
002100

012737

034050

000004

010674
010702
010710
010714
010722
010724
010730
6010 010732
010734
010740
010744
010750
6015 010754

012737
012737
005237
023737
103451
013701
006301
006301
010137
005037
005037
005037

011420
011422
002102
002556

002522
002524

010346
013703
004737

010754
010756
010762

010766

6016 010770

6017 010774
6018 010776
6019 011004
6020 011010
6021 011012
6022 011016
6023 011020
6024 011022
6025 011024
011024

6026 011032
6027 011036
6028 011040
6029 011042
6030 011044
6031 011046
6032 011052
011052
011060

012603
105761
100542

002102

MOV
MOV
SET4
MOV
.DSABL
MOV
MOV
INC
CMP
BLO
MOV

#1,NOPAR
#2 ,NONEM
#NONEXIST
#NONEXIST,4
CRF
#MTST3+4,LINK1
#MTST3+6,LINK2
BANK
LASTBANK , BANK
TAG2$
BANIC,R1

002104
002074
002072
002070

MOV
CLR
CLR
CLR

R1,BANKINDEX
PATERR
PARCNT
NEMCNT

002102
035716

MOV

CALL
.DSABL

MAPPER
CRF

002664

TST8
BMI

CONFIG(R1)
TSTBANK

012777
012700
010004
012701
010103
005002
104424

000207
060000

053737

002552

004737
104417
104423
000240
000416
005037

011414

002102

012737
022737

034114
000005

002102

TAG9$:

ASL
ASL

MAP

171516

WARN1l:

MOV
MOV

MOV
MOV
MOV
CLR
CACHOFF

040000

TESTAREA

177776

BIS

2$:

TAG2¢:

000004

004010

.DSABL
CALL
KERNEL
SSSHON

R1
R1

BANK

BANK,R3

#207, SLINK1
#FIRST,RO
RO,R4
#SIZE,R1
R1,R3
R2
TESTMODE ,PSW

CRF
MTST3

TAG3$

BANK

MOV

#TIMEOUT,4

CMP

;SET UP LINKS
;DONE?
;YES - SKIP TO NEXT TEST
;BANK * 4

;CLEAR PATTERN ERROR COUNTER
;CLEAR PARITY ERROR COUNTER
;CLEAR NON-EXISTANT MEMORY COUNTER (HOLES)
;MAP SUPERVISOR SPACE (TEST AREA) TO BANK
MOV R3,-(SP)

MOV (SP)+,R3
;IS THIS BANK PROTECTED?
;YES - GO TEST BANK SPECIAL

;PUT "RETURN" INSTRUCTION AFTER WRITE ROUTINE

;:DATA IS ZEROS
: TURN CACHE OFF

;ENTER SUPERVISOR MODE

;GO TO SYSTEM TEST MODE

:ENTER KERNEL MODE
; TURN CACHE ON

CLR

RES4

;SET NO PARITY ERROR FLAG
;SET_NON-EXISTANT MEMORY MODE TO EXIT TEST LOOP
;TRAPS TO 4 GOTO NONEXIST

#5,PROTYP

; SKIP NEXT INSTRUCTION
;RESET TRAPS TO 4 TO DEFAULT
;IS THIS AN 11/83/84 ?

—

c—

——

CgHJAAO MSV11-J MEMORY DIAG.

K12

MACRO V05.01b Friday 15-Feb-85 16:10

TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES

011066

011070

001002

005037

177766

to1s,

BNE
LR

Page 156-1

101$

CPUERR

g
6033 011074
6034 011100
6035 011102
6036 011106
6037 011110
6038 011112
6039 011114
011114

005037
000557
005737
001401
000677
104424

002076

053737

002552

6040 011122
6041 011126
6042 011130
6043 011132
6044 011134
6045 011140
6046 011142
6047 011146
6048 011150
6049 011154
6050 011156

004777
104417
104423
000240
005737
001032
005737
001027
005737
001024
012700

171376

6051 011162
6052 011164
6053 011170
6054 011172
6055 011176
6056 C11204
6057 011206

010004
012701
010103
013702
012777
104424

011206

6058 011214
6059 011220
6060 011222
6061 011224
6062 011226
6063 011232
6064 011236
6065 011240
6066 011244
6067 011246
6068 011252
6069 011254

6070 011262
011262
6071 011270
6072 011276
6074
6075 011302

011302
6076 011304

6077 011312
6078 011316

002070

TAG3$:
18:

177776

002074
002072

002070
060000

002614
000240

171316

053737

002552

177776

004737
104417
104423
000240
013700
005737
001006
005737
001003
005737
001406
052760

011414

012737
053760
000137

010146
012737
012700
012701

002104
002074

2¢:

002072
002070
000001

002664

3$:

177777
002106
010710

002450
002664

4%:

060000
020000

002100

;THAT A EXPECTED TRAP COULD HAVE SET

CLR
NOPAR
BR
SUBAAI
15T
NEMCNT
BEQ
1%
BR
TAGY$
CACHOFF
TESTAREA
BIS
| LESTMODE,PSu

; INDICATE DEFAULT PARITY ACTION

CALL
KERNEL
CACHON
NOP
15T
BNE
15T
BNE
15T
BNE
MOV

;FINISH PATTERN
;ENTER KERNEL MODE
; TURN CACHE ON
:DEBUG AID
;ANY PATTERN ERRORS
;YES - SKIP
:ANY PARITY ERRORS
;YES - SKIP
;ANY NON EXISTANT MEMORY
:YES - SKIP

aLINK2

PATERR
2%
PARCNT
23
NEMCNT
$
#FIRST,RO
RO,R4

BIS
o

JESTMODE.PSW

CALL
KERNEL
CACHON
NOP
MOV
15T
BNE
15T
BNE
15T
BEQ
BIS

MTST3

BANKINDEX
, RO
PATERR
38
PARCNT
3

SET

NEMCNT
4$
#8IT0,CONFIGCRO)
CONFGERROR

BIS
JHP

CPUBIT,CONFIG(RO)
TAGY$

;TEST A PROTECTED BANK
TSTBANK:PUSH
R1

000001

;BRANCH IF NOT

:CLEAR OUT THE CPU ERROR REGISTER BITS

MOV
MOV
#S1Z€E,R1
MOV
R1,R3
MOV
ONES,R2
MOV
#000240,SLINK1
CACHOFF
TESTAREA

040000

SEQ 0153

MOV
MOV
MOV

#1,NONEM

#FIRST,RO
#20000,R1

;ANY TRAPS?
iNO - SKIP
iNOW - TRY NEXT BANK
:TURN CACHE OFF
;ENTER SUPERVISOR MODE
;G0 TO SYSTEM TEST MODE

;DATA IS ONES
:PUT “NOP* INSTRUCTION BACK IN SUBROUTINE
: TURN CACHE OFF
:ENTER TEST MODE

:GO TO SYSTEM TEST MODE

;D0 _IN MEMORY IF NOT
;ENTER KERNEL MODE
: TURN CACHE ON
:DEBUG AID

;ANY PATTERN ERRORS?
:YES - SKIP
;ANY PARITY ERRORS?
:YES - SKIP

:ANY HOLES?
:NONE - SKIP
:SET ERROR BIT IN THIS BANK
;FORCE PRINTING OF CONFIGURATION TABLE
MOV #-1,CONFGERROR
;SET ACCESSED BIT

MOV R1,-(SP)
;SET NON-EXISTANT MEMORY TO COUNT

—

———
—
—

L12

- CVMJUAAQ MSV11-J MEMORY DIAG.
MACRO V05.01b Fridey 15-Feb-85 16:10
13
TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES
6079 011322
6080 011324
011324

6081 011332
6082 011334
6083 011336
6084 011340
6085 011342
6086 011350
011350
6087 011352
011352
011356
6088 011360
6089 011366
011366
6090 011374
011374
6091 011374
011374
011400
6092 011402
6093 011410
011410
6094 011410

6095 011414
6096 011416
6097 011420
6098 011422
6099 011424
6100 011426
6101 011430

6102 011434

6103 011436

104424

053737
005720
077102
104417
104423
012737

002552

CACHOFF
TESTAREA

177776
44:

000002

002100

012601
002072

000001

002664

012737

177777

002450

002070

000137
010220
077102
000240

010710

012401
020102
001402
005237
077306
000207

002106

ST
S0B
KERNEL
CACHON
MOV
POP

(RO)R1,4$

BIS
SET

#2 ,NONEM
R1

; TURN CACHE OFF
;ENTER TEST MODE

;GO TO SYSTEM TEST MODE

;ENTER KERNEL MODE
;TURN CACHE ON
;RESET NON-EXISTANT MEMORY TO EXIT TEST LOOP
MOV (SP)+,R1

#BITO,CONFIG(R1)
CONFGERROR

MOV

BIS
CPUBIT,CONFIG(R1)
END ;OF IF NEMCNT

MTST3:

34:

JMP
MOV
S0B
NOP

MOV
CMP
BEQ
INC
S0B
RETURN

TAG9$
R2,(RO)+
R1,MTST3

(R4)+,R1
R1,R2
34
PATERR

R3,2$

#-1,CONFGERROR

LSS:;55::::

IF NEMCNT EQ #0
002664

TST PARCNT
BEQ LSS

;ERROR BANK

END ;OF IF PARCNT

24:
002074

EngHODE.PSU

SEQ 0154

IF PARCNT NE #0

005737
001406
052761

005737
001003
053761

ngABL

Page 156-2

TST NEMCNT
BNE LS6

;ACCESSED BANK

LS6:::::::

;WRITE MEMORY TO PATTERN
;00 TILL DONE
;THIS IS EITHER A NOP OR RETURN

;READ DATA
;DOES IT MATCH ?
:
;IF NOT COUNT ERRORS

;ANY WAY DO ALL MEMORY
;OONE.
.. .RETURN

M12

MACRO V05.01b Friday 15-Feb-85 16:10

| € Vv MJAAQ MSV11-J MEMORY DIAG.
TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES

' 73

SEQ 0155

SUBAAI: SUBTST

6105 011440

Page 157

Hid d tbtasadt

; #SUBTEST

<<FIND SHADOW INHIBIT MODE POINTERS>>

it I

2222

222222 2

i adddd

6106
6107
6108

6109 011440
6110 011444
6111 011450
6112 011454
011454
011460
011462
011466
6113 011470
6114 011474

6115 011502
6116 011510

td ad

FIND SHADOW INHIBIT MODE POINTERS
L

LTI

T
I

;# THIS SECTION LOOKS FOR INTERLEAVED MSV11-J MEMORIES AND FIGURES OUT
;* WHERE THE SHADOW INHIBIT MODE POINTERS ARE LOCATED.
THESE AREAS

005037
004737
013700

002102
040052
002104

005737
001414
005737
001411
062702
062737
052760

002116

;* ARE THEN MARKED AS PROGRAM SPACE.

SHADL1:

CLR

BANK

;RESET BANK TO ZERO

CALL
EXBANK
;SET BANK PARAMETERS
MOV
BANKINDEX,RO
IF ACFLAG IS TRUE AND INTFLAG IS TRUE

002136
000040
000020
000200

TST INTFLAG

002102

002664

ADD
ADD

ELgés

#40,R2
#20,BANK

#BIT7,CONFIG(RO)

;POINT TO BANKINDEX + 8
;POINT TO BANK + 16

002102

023737
002347

002556

002102

BEQ LS7

;MAKE NEW BANK PROGRAM SPACE

000402
005237

TST ACFLAG

BEQ LS7

BR L60
LS7:::::3:

INC
BANK
END; OF IF ACFLAG

;G0 TO NEXT BANK

CMP
BGE

;HAVE WE DONE ALL THE BANKS?
;BRANCH IF NOT

LASTBANK , BANK
SHADL1

T T

)

—

——

I CVMJAAO MSV11-J MEMORY DIAG.

N12

MACRO V05.01b Fridey 15-Feb-85 16:10

! FIND SHADOW INHIBIT MODE POINTERS

NEWTST

6123 011526

Hidad

st i 22

;tTEST 4

1574

000004

<<ECC INHIBIT MODE POINTER TEST>>

22 22 22 22 222 22 2222t

Hidddtddddssss

011526

Page 159

2 22 d

a3ttt

ECC INHIBIT MODE POINTER TEST

it 222222222 22222222222

22 2

E e

T
T

I Tt
T

T T T

SCOPE

;THE MSV11-J OR MF11S-K INHIBIT ECC DISABLE AND DIAGNOSTIC CHECK MODE
;ON THE BOTTOM FIRST OR SECOND 16K WORDS CONTROLLED BY A CSR.
THIS
;IS CONSIDERED

;QUITE

7TO BE A

PROTECTED BANK

COMPLEX TO DETERMINE ON A

:gSNKS CAN BE PROTECTED;

; THIS ROUTINE ATTEMPS TO

;OF EVERY ECC BANK.
;IN_PROTECTED BANKS
; THE PROGRAM IS.

BY THE

GIVEN SYSTEM

PROGRAM.

IT MAY BE

CONFIGURATION WHICH

CREATE A DOUBLE BIT ERROR IN ADDRESS 0 & 2

ECC HARDWARE WILL PREVENT THIS FROM HAPPENING
WHICH SHOULD ALWAYS INCLUDE BANK ZERO - WHERE

v
w
o

wviun

;==u=4b¢>
$ERa
3333

1777717

005037

002102

012701
004737
013700

060000
040052
002104

005737
001436

002116

005737
001433

002120

005737

002342

2 oo
2
~n

002156

MOV
MOve

ASL

BIC
MOV
002156

002152

002156

002122

011750

:= #0 TO LASTBANK

IF SKIPMK IS FALSE

002152

000100

FOR BANK

IF MKFLAG IS TRUE

177741
002152

023737
001413

CACHOFF
MOV
#-1,0LDCSR

MOV
#FIRST,R1
CALL EXBANK
BANKINDEX,RO
MOV
IF ACFLAG IS TRUE

000002
002665

an
=R&

bt s b pt e e s s e
It et e bt et e et e pn

\n,:uuuo-<>
~Jg=

——

104424
012737

011602

OCO00O00O0000

uuuLIUIU

;
IN CASE OF HARDWARE FAILURE IT IS COMMON THAT A DOUBLE BIT ERROR
;
WILL BE CREATED ON THE KERNEL STACK & "CRASH" THE DIAGNOSTIC
;DURING THIS ROUTINE.
YOUR ONLY CLUE IS THAT YOU CAN GET AS FAR AS
; THIS ROUTINE BUT NOT PAST IT!

002664

#2,R3
CONFIG+1(RO),R2

:TURN CACHE OFF

CLR BANK
B6:;5:53:

;SET UP VIRT ADDR POINTER

TST ACFLAG
BEQ L61

TST MKFLAG

BEQ L62

TST SKIPMK

BNE L63
:SET INDEX COUNTER

#1C36,R2
R2,CSRNO

IF CSRNO NE OLDCSR

MOV
CSRNO,OLDCSR
IF PFLAG IS FALSE

BIS #BIT6,CONFIG(RO)
END; OF IF PFLAG
IMPTEST
CALL
END; OF IF CSRNO

CMP CSRNO,OLDCSR

BEQ L64

TST PFLAG

BNE L65S
L65:;5:5::3
L68:;:::::

——

MACRO V05.01b Fridey

TER TEST

"oy

6164 Oii
6165 8{1662 005237 002102
oties 023737 002102

011674
011676
6166 011676
011676
011700
011704
011710
6167 011712
6168 011716
011716
011724
01{7 6

0117
011734
61?’ 0117
6170 0117
0117
81}740
6175 11740
6172 011742
011742
6173 011742
6174 011744

Pege

159-1

SEQ 0157

END; OF IF SKIPMK

6162 01
011
6163 811663

011

B13

15-Feb-85 16:10

003723

L63::3:3::

END; OF IF MKFLAG

L62::33:::

END; OF IF ACFLAG

L6l:3:33:3

END; OF FOR BANK

INC BANK
CMP BANK,LASTBANK
BLE B6
E6:3::::38

002556

:MAP TEST SPACE TO BANK

MAP

010346
012703
004737

000200
035716

012603
005037

MOV
CALL
.DSABL

002102

BANK
CLR
IF #SW0 SET.IN @SWR OR ACTFLAG IS TRUE

032777
001003
737
001402

000001

170712

#200,R3
MAPPER
CRF

002350

104506

BIT
BNE
ST
Leq. ... BEQ

#SWO,3SWR
L 66
ACTFLAG
L67

;TRAP ON SINGLE BIT LRRORS

ENASBE
ELSE

000401

MOV (SP)«,R3

BR L70
L67:za&aas

104472

ECCINIT
END; OF IF #SW0

;TRAP ON DOUBLE BIT ERRORS (NORMAL)

104423
000137

CACHON
JMP

;TURN THE CACHE BACK ON
:JUMP OVER THE SUBROUTINE

012172

SUBAAR

L70 IRER
R R ]

6176 011750

6177 011752
011752
011754
011760
011764

6178 011766
6179 011770
6180 011776
011776
6181 012004
012004
6182 012006
6183 012010
012010
6184 012012
6185 012014
6186 012016
6187 012020
6188 012022
6189 012024
6190 012026
6191
6192
6193
6194 012030
012030
6195 012032

6196 012040
6197 012042
6198 012046
6199 012050
6200 012052
6201 012054
012054
6202 012056
6203 012060
6204 012066
6205 012070
6206 012072
6207 012074
6208 012076
6209 012100
012100
6210 012102

012104
012112
012114
012116
012120
012122
012124
012124
6218 012124
012124

6211
6212
6213
6214
6215
6216
6217

005004
010346

013703
004737

SEQ 0158

IMPTEST:CLR

MAP BANK

002102
035716

012603
005005
012737

020000

002150

053737

002552

177776

011146
104505
010411
160301
010411
104503
005711

:MAP SUPERVISOR SPACE (TEST AREA) TO BANK

MOV
CALL
.DSABL

BANK,R3
MAPPER
CRF

CLR
MOV

RS
#BIT13,CSR

BIS
.DSABL

TESTMODE ,PSW
CRF

ADD
PUSH

R3,R1
(R1)

TESTAREA

PUSH

011146
060301

Page 160

MOV (SP)«,R3

;:ENTER TEST MODE
;GO TO SYSTEM TEST MODE

:SAVE TEST LOCATION

(R1)

;INDEX _TO NEXT LOCATION
:SAVE TEST LOCATION

CHK1DIS
MOV
R4,(R1)
SuB
R3,R1

MOV

R4,(R1)

MOV (R1),-(SP)

;DISABLE ECC & WRITE CHECKBITS FOR 1 CSR
;WRITE CHECKBITS (ALL ZEROS)
;:CLEAR CSR
;READ CHECKBITS INTO REAL CSR

CLRICSR
TST
(R1)
WAS1DBE

104501

MOV (R1),-(SP)

;WAS THERE A DOUBLE BIT ERROR

; THIS MAKES SURE THAT SBE'S DON'T LOOK LIKE PROTECTED AREAS
103435
012737
104505
013711
104503
005711
104501
103423
104513
012737
104505

ON.NOERROR ;1
020000

002150

002614

;DISABLE ECC & WRITE CHECKBITS FOR 1 CSR

;CLEAR CSR

TST
(R1)
WAS1DBE

;WAS THERE A DOUBLE BIT ERROR

ON.NOERROR ;2

023140

002150

010411

104503

BCS L72

CBREG

;ENABLE CHECK/SYNDROME BIT REGISTER
;WRITE DBE'S IN CSR
;DISABLE ECC & WRITE CHECKBITS FOR 1 CSR

MOV #23140,CSR

CHK1DIS
MOV R4,(R1)
CLR1CSR

104501

TST (R1)
WAS1DBE

103411
104513

CBREG

005711

012737
104505
010411
104503
005711
104501

BCS L71

#BIT13,CSR
MOV
CHK1DIS
MOV
ONES,(R1)
CLRICSR

;CLEAR CSR
;WAS THERE A DOUBLE BIT ERROR

ON_NOERROR ;3

023604

002150

BCS L73

;ENABLE CHECK/SYNDROME BIT REGISTER
;WRITE DBE'S IN CSR
;DISABLE ECC & WRITE CHECKBITS FOR 1 CSR

MOV #23604,CSR

CHK1DIS

MOV

CLR1CSR

R4,(R1)

TST
(R1)
WAS1DBE
END ;OF ON.NOERROR

END ;OF ON.NOERROR ;2

;:CLEAR CSR
;3

;WAS THERE A DOUBLE BIT ERROR

Li3:335333:
L72:3335333

———

MACRO V05.01b Friday 15-Feb-85 16:10

ECC INHIBIT MODE POINTER TEST

——————

CVMJAAQ MSV11-J MEMORY DIAG.

Lokl

D13

CVHJAAO MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
ECC INHIBIT MODE POINTER TEST
6219 012124
012124
6220 012124
012124
6221 012126
6222 012130

012130
6223 012130
6224 012132
6225 012134
6226 012136
6227 012140
6228 012142
6229 012144
6230 012146
6231 012152
6232 012156
6233 012160
012160
6234 012162
6235 012164
012164

6236 012166
gggz 012170

6239 012172
012172

Page 160-1

END ;OF ON.NOERROR ;1

ON.ERROR

103001
005205

104471
010411
060301
010411
104503
005705
001405
050560
105260
104036

INC
RS
END ;OF ON.ERROR

002664
002666

_
14:

012611
160301

ECC1DIS
MOV
ADD
MOV
CLRICSR
TST
BEQ
BIS
INCB
ERROR
POP
suB
POP

012611

104417
000207
012737

R4,(R1)
R3,R1
R4,(R1)
RS
14
RS,CONFIG(RO)
CONFIG+2(RO)
+36
(R1)
R3,R1
(R1)

KERNEL
RETURN
177777

002420

SUBAAR: SET

STOPOK

SEQ 0159
L71:553:533
BCC L74
;IDENTIFY AS BAD BANK

L78:;::::3
;DISABLE ERROR CORRECTION
;CLEAR OUT DOUBLE BIT ERROR!
;INDEX TO SECOND WORD
;CLEAR OUT DOUBLE BIT ERROR!

;RESTORE TEST LOCATION (2ND
MOV
;G0 BACK TO FIRST WORD
;RESTORE TEST LOCATION (1ST
MOV

;PROGRAM CAN NOW BE HALTED

MOV

WORD)
(SP)+,(R1)
WORD)
(SP)+,(R1)

#-1,STOPOK

CVMJUAAO MSV11-J MEMORY DIAG.

ECC INMIBIT MODE POINTER TEST

6242 012200

SUBTST

Page 162

SEQ 0160

<<LEGAL CONFIGURATION CHECK>>

T
T T T
T hTTmmmmmmmTT

; *SUBTEST

LEGAL CONFIGURATION CHECK

I
T
T T
T
T
MM

6243 012200
6244 012204
6245 012210
6246 012212
6247 012214
012214
012220
6248 012220
25;3 012224

6251 012230
012230
012234
6252 012236
6253 012242
6254 012246
6255 012250
6256 012254
012254
012260
6257
6258 012262

012700
012701

000020
002462

005037

002102

004737

040052

005737
001444
116003
042703
006303
005263

002116

005021
077002

013700

005737
001432

14:

CALL

002104

6262 012276
6263 012302
6264 012306
6265 012312
012312
012314

6266 012316
6267 012324
6268 012332
012332

6269 012334

005737
001423
116003
010304

042703
072427
042704
020304
001007

042760
042760

IF ACFLAG IS TRUE

002665
177760

MOvB
BIC
ASL
INC
IF MKFLAG

002462

002120

012334
012336
6271 012336
012336
6272 012340
012340
6273 012340

012340

6274 012346
012346
6275 012346

0123‘6

CONFIG+1(RO),R3
#1C17,R3
R3
CSRINFO(R3)
IS TRUE

IF INTFLAG IS TRUE

002136

002665

177760
177774
177760

014000
170000

BIC
#BIT11!'BIT12,CONFIG+2(RO)
BIC
#170000,CONFIG(RO)
LEAVE LEGALCSR
END; OF IF R3
ELSE

000401

LEAVE

000403

LEGALCSR

END; OF IF INTFLAG

177777

TST INTFLAG
BEQ L77

IF R3 EQ R4

002666
002664

002450

SET

CONFGERROR

END

LEGALCSR

END ;0F IF MKFLAG

TST MKFLAG
BEQ L76

B10:::::::

MOVB
CONFIG+1(RO),R3
MOV R3,R4
BIC #tC17.R3
ASH #-4,R4
BIC #tC17.R4

000405

012737

TST ACFLAG
BEQ L75

;MAKE SURE THAT EACH BANK HAS NO MORE THAN 2 CSRS
BEGIN
LEGALCSR

012334

6270 012334

EXBANK

CLR BANK
B7:5:::::

MOV BANKINDEX,RO

012262

6259 012262
012262
012266
6260 012270
6261 012274

MOV
#16. ,RO
MOV
#CSRINFO,R1
CLR
(R1)+
S0B
RO,1$
FOR BANK := #0 TO LASTBANK

CMP R3,R4
BNE L100

BR E10

L100:;::::::
BR L101
L77::3:3:3:
BR E10
L101:::::::

MOV
€10:33533::

L76=..-oc-

#-1,CONFGERROR

ca——

E1S

MACRO V05.01b Friday 15-Feb-85 16:10

——

CVMJAAQ MSV11-J MEMORY DIAG.
LEGAL CONFIGURATION CHECK

012362
6278 012362

012362
012364
6279 012366
6280 012370
6281 012372
6282 012374
6283 012400
6284 012406
6285 012410
6286 012416
6287 012420
6288 012424

010546
010046
005000
005001
005005
005037
022761
002043
022761
002003
004737
000434

6290
6291
6292
6293

032705
001415
042705
072527

6289 012426

012432
012436
012440
012444

6294 012450
6295 012452
6296 012454
6297 012462
6298 012464
6299 012472

6300 012476
6301 012502

016005

020501
001007
032760
001003
012737
062700

022700
001351

6302 012504
6303 012510
6304 012512
6305 012516
6306 012520
6307 012524
6308 012530

005737
001402
004737
005000
005037
062701
022701

012536
012540

012600
012605

6309 012534
6310 012536
6311 012542
6312 012546
6313 012552
6314 012560

6315 012562
6316 012566

001321

005037
012700
032760
001003

002102
002102

002462

000010

002462

2%:

012724

002664

3%:

000002

170377
177771

010000

002666

000001
000004
000340

012602

45:

012602
012724

5¢:

012602
000002
000040

002664

6%:

6317 012570
6318 012572
6319 012574

6321 012602

000000

MBERR:

005000

SKUJ:

6322 012604

6323 012606

000402

000000

————————

SEQ 0161
L?S:3353333

000004
7%:
002556

PHEBE:

E7:55:33:3
; SAVE CONTENTS OF RS, RO

PUSH

RS5,RO

CLR
CLR
CLR
CLR
CMP
BGE
CMP
BGE
CALL
BR
MOV
BIT
BEQ
BIC
ASH
CMP
BNE

RO
R1
RS
MBERR
#177,CSRINFO(R1)
54
#10,CSRINFO(R1)
38
ILLCSR
S$
CONFIG(RO),R5
#BIT1,RS
4%
#1C7400,R5
#-7,RS
R5,R1
44

;CLEAR REGISTERS

15T

MBERR
54
ILLCSR
RO
MBERR
#2,R1
#40,R1

;ERRORS FOUND?
; TRY NEXT CSR IF NOT
;CALL ERROR ROUTINE
;REINITIALIZE CONFIG COUNTER
;CLEAR ERROR INDICATOR
;UPDATE CSR COUNTER
;ALL CSR'S DONE?

BIT
BNE
MOV
ADD
CMP
BNE

BEQ
CALL
CLR
CLR
ADD
CMP
BNE
POP
CLR
MoV
BIT
BNE

SuB
BR
ASR
ASR
MOV
BR

.WORD 0O

.WORD O

CLR

#BIT12,CONFIG+2(RO)
44
#1,MBERR
#4 ,RO
#340,R0
34

2%
RO,RS

MBERR
#774,R0
#BIT1,CONFIG(RO)
7%
#4,RO
6%
RO
RO
RO,LASTBANK
SKUJ

‘
i
|

INC BANK
CMP BANK,LASTBANK
BLE B7

002556

012602
000177

012602
000774
000002

————————.
. —
.

Page 162-1

END; OF FOR BANK

162700
000771
006200
006200
010037

6320 012600

MACRO V05.01b Friday 15-Feb-85 16:10

END ;OF IF ACFLAG
005237
023737
003717

F13

6276 012346

012346
6277 012346
012346
012352
012360

—

{
|

MOV RS, -(SP)
MOV RO, -(SP)

i
'

;CLEAR ERROR INDICATOR
;IS CURRENT CSR <= 177
;BRANCH IF SO
;IS CURRENT CSR < 10
;BRANCH IF SO
;CALL ERROR ROUTINE
; TRY NEXT CSR
;MOVE LOW WORD TO RS
;DOES MEMORY EXIST HERE?
;BRANCH IF NOT
; ISOLATE CSR NUMBER IN
;REGISTER S
;IS IT THE CURRENT CSR?
; TRY NEXT WORD OF CONFIG IF NOT

;IS IT INTERLEAVED?
;BRANCH IF SO
;SET ERROR INDICATOR
;UPDATE CONFIG COUNTER
;CONFIG TABLE ALL DONE?
;BRANCH IF NOT

;BRANCH IF NOT
;RESTORE REGISTERS

MOV (SP)+,RO
MOV (SP)+,RS

;RESET ERROR INDICATOR
;INDEX TO TOP OF CONFIG TABLE
;MEMORY PRESENT?
;BRANCH IF SO

;R-C
;R-C
;R-C

; TRY NEXT LOWER ENTRY IN CONFIG TABLE
;R-C

;R-C

;SAVE SPACE FOR ERROR INDICATOR

;R-C
;DIVIDE INDEX BY 4 TO GET BANK #;R-C
;STORE IN LASTBANK
:R-C

;SAVE SPACE FOR ODD BOUNDARY INTERLEAVED INDICATOR
;:CLEAR CONFIG COUNTER

CVMJUAAQ MSV11-J MEMORY DIAG.
' LEGAL CONFIGURATION CHECK

|
'
|

G13

MACRO V05.01b Friday 15-Feb-85 16:10

6324 012610
6325 012614

005037
032760

012604
000002

002664

6327 012624
6328 012632
6329 012634
6330 012640

032760
001005
005237
062700

010000

002666

012604
000004

6332 012646

023727

012604

000010

6334 012656

023727

012604

000030

023727

012604

000050

6338 012676

023727

012604

000070

6340 012706

005037

012604

6342 012714
6343 012722

012737
000421

000001

6346 012730

022702

000012

6326 012622

6331 012644

6333 012654

6335 012664

6336 012666
6337 012674

6339 012704
6341 012712

6344 012724
6345 012726

6347 012734
6348 012736

6349 012742
6350 012746
6351 012752
012752

6352 012756
012756
6353 012764

001431

000763

001417

001413
001407

001403
000403

010102
006202

100002
062702

000060
071210

104401

071174

012737
000207

177777

2%:

012604

PHEBE
#BIT1,CONFIG(RO)

;CLEAR _COUNTER
;IS THERE MEMORY PRESENT?

BIT
BNE
INC
ADD

#BIT12,CONFIG+2(RO)
2%
PHEBE
#4 ,RO

;IS IT INTERLEAVED?
:BRANCH IF SO
; INCREMENT COUNTER
; INCREMENT CONFIG COUNTER

CMP

PHEBE, #10

BEQ

CMP

BEQ

CLR

MOV
BR

PHEBE, #30
PHEBE, #50
4%

PHEBE
54

#1,PHEBE
SUBAAP

BPL
ADD

14
#7,R2

#10. ,R2

ADD
MOovB

#60,R2
R2,MSGA122

.DSABL

CRF

TYPE
TYPEIT

SET

RETURN

: TRY_NEXT BANK

;IS THE COUNTER EQUAL TO...

;ONE_OF THE SPECIAL VALUES.

+IF IT 1S...

;BRANCH TO 4¢

PHEBE, #70

R1,R2
R2

1%:

;BRANCH IF NOT

ILLCSR: MOV
ASR

CMP

002450

3¢

BEQ

CMP

45:
54:

SEQ 0162

CLR
BIT

CMP

3$:

000007

062702
110237

15:

Page 162-2

MSGl22
,MSGl22

CONFGERROR

;CLEAR INDICATOR
;SET_INDICATOR
;BRANCH TO NEXT SUBTEST

iR2 HAS CSR_NUMBER
;MAKE ACCEPTABLE FOR PRINTING

;PUT NUMBER INTO ERROR MESSAGE

MOV

#-1,CONFGERROR

j
'

6356 012766

SUBAAP: SUBTST
SRR ER AR

PRRRRR AR AR

6357 012766

012766
012772
6358 012776
6359 013002
6360 013004
6361 013006
013006
013010

005037
005037
013702
006302
006302

CLEAR

002400
002402
002556

— 8%%818 033761 002106 002€64

013016
6363 013020
013020
013026
6364 013030
013030
6365 013034
013034
013036
6366 013036
013036

6367 013042
013042
6368 013042

001411

032761
001403

000400

005237

002402

002666

6370

6371 013052
6372 013056
013056
013060

062701
020102
003757

000004

005037

002452

O 0 W—
IF #BIT8 SET.IN CONFIG+2(R1)

END;IF BIT8

END ;OF FOR ALL BANXS IN TABLE

CLR
'
FOR R1 := #0 TO #10 BY #2

005001

002374
002374
002374
002374

013106
013112
013116
013120
6379 013120
013120
013122
6380 013122

062701
020127
003760

000002
000010

013130

001402

6381 013132

ARk

END; OF IF CPUBIT

006361
006361
006361
006361

013122

R ARk Rk kR R

LSIZE,MSIZE

LET LSIZE := LSIZE + #!

002400

6373 013060
6374 013064
6375 013070
6376 013074

6377 013100
6378 013106

PRINT CONFIGURATICN DETAILS

ARk

ELSE

013042

6369 013042
013042
013046
013050
,
013052

AR RNk
R kR kbR R A&

LET MSIZE := MSIZE + #1

000402
005237

MOV
LASTBANK,R2
ASL
R2
ASL
R2
FOR R1 := #0 TO R2 BY #4

005001

066137

002374

002452

002106

002064

BSIZE(R1)
BSIZE(R1l)
BSIZE(R1)
BSIZE(R1)

ADD
BSIZE(R1),I
END; FOR R1

FOR R1

005001

033761

ASL
ASL
ASL
ASL

SEQ 0163

<<PRINT CONFIGURATION DETAILS>>

AR AR

; *SUBTEST

Page 164

:= #0 TO #200 BY #4

IF CPUBIT SET.IN CONFIG(R1)
LET UNITOP

:= UNITOP + #1

R AR

CLR
CLR

LSIZE
MSIZE

CLR R1
Bll:;::::

BIT CPUBIT,CONFIG(R1)
0

BEQ L102

BIT #BIT8,CONFIG+2(R1)
BEQ L103
INC MSIZE

BR L104
L103:;:;:::::
INC LSIZE
L104:;;:;:;;;
L102:;;:::::

ADD #4,R1
CMP R1,R2
BLE Bl1
Ellz:s:35:3:

CLR R1
Bl12:;;::::

;BSIZE(R1) := BSIZE(R1) =* 1l6.
;I <- I + BSIZE(R1)
ADD #2,R1
CMP R1,#10
BLE Bl12
El2::::::3:

CLR R1
B13::::5::

BIT CPUBIT,CONFIG(R1)

BEQ L10S

————

H13

MACRO V05.01b Friday 15-Feb-85 16:10

————

' CVMJAAQ MSV11-J MEMORY DIAG.
' LEGAL CONFIGURATION CHECK

| CVMJUAAQ MSV11-J MEMORY DIAG.
. PRINT CONFIGURATION DETAILS

013132

6382 013136

005237

113

MACRO V05.01b Friday 15-Feb-85 16:10

002416

013176
013200

013206
6389 013206
013206

000004
000200

006337
006337
006337
006337

002416
002416
002416
002416

023737

002452

002416

002452

002003
013737
104401

002660

6390 013212
6391 013216
6392 013220
6393 013226
6394 013230

005737
001414
022737
001003
162737

002400

013236
013242

013746
104405

6395 013236

ASL
ASL
ASL
ASL
IF I LT

24:

002400

000004

002400

124:

.DSABL

071025

6397 013250
6398 013254
6399 013256
6400 013264

005737
001414
022737
001003

002402
004000

34
002402

$CRLF
,$CRLF

CMP I,UNITOP

LSIZE
34
#2048. ,LSIZE
124
#4 ,LSIZE

MOV
TYPDS

LSIZE,-(SP)

TYPDEC

LSIZE
CRF

TYPE
TYPEIT

MSG112
,MSG112

TST
BEQ
<MP
BNE

MSIZE
54
#2048
. ,MSIZE
13$

.DSABL

L106:;;:::3:;

CRF

TST
BEQ
CMP
BNE
SuB

.DSABL

104401

UNITOP
UNITOP
UNITOP
UNITOP
;UNITOP := UNITOP * 16.
UNITOP THEN LET I := UNITOP

ADD #4,R1
CMP R!,#200
BLE B13
E13:;:::::::

BGE L106
MOV UNITOP,I

TYPE
TYPEIT

004000

6396 013244
013244

L10S:;;:::3::

END; OF FOR R1

062701
020127
003765

SEQ 0164

INC UNITOP

END; OF IF CPUBIT

013136

6383 013136
013136
013142
013146
013150
6384 013150
6385 013154
6386 013160
6387 013164
6388 013170
013170

Page 164-1

CRF

; SUBTRACT 4K FOR THE I/0 PAGE

; ;SAVE LSIZE FOR TYPEOUT
;:G0 TYPE--DECIMAL ASCII WITH SIGN

CVMJAAQ MSV11-J MEMORY DIAG.

' PRINT CONFIGURATION DETAILS
6401 013266

162737

000004

013274
013300

013746
104405

002402

6402 013274

6403 013302
013302

6404 013306
6405 013314
6406 013316
6407 013324
013324
013330
6408 013332
013332
6409 013336
013336
013344
6410 013346
6411 013352
013352

J13

MACRO V05.01b Friday 15-Feb-85 16:10

002402

071057

022737
001003
162737

004000

002452

000004

002452

013746

002452

104401

070127

032777
001002
004737

TYPDEC

MOV
TYPDS

.DSABL

104401

104405

134:

000100
032722

5%:
6%:

167272

; SUBTRACT 4K FOR THE 1/0 PAGE

MSIZE,-(SP)

; sSAVE MSIZE FOR TYPEOUT
;60 TYPE--DECIMAL ASCII WITH SIGN

CRF

MSG113
,MSG113

CMP
BNE
SuB
TYPDEC
MOV
ngRgL

#2048.,1
6%
#,1
I

TYPE
TYPEIT

MSGO70
,MSGO70

.DSABL

SEQ 0165 |

#4 ,MSIZE

MSIZE

TYPE
TYPEIT

.DSABL

Page 164-2

CRF

; SUBTRACT 4K FOR THE I/0 PAGE

I,-(SP) ;;SAVE I FOR TYPEOUT
CRF

::G0 TYPE--DECIMAL ASCII WITH SIGN

CRF

IF #5W6 OFF.IN @SWR
CALL PCONFIG
END; OF IF #SW6

BIT #SW6,aSWR
BNE L107
L

tiisaag

——

- CVMJAARQ MSV11-J MEMORY DIAG.
PRINT CONFIGURATION DETAILS

K13

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0166

6414 013352

SUBTST

;*SUBTEST
6415 013352

6416
6417
6418

005737
001475
005737
001472
005037
012700

6420
6421
6422

002352

6432 013442
6433 013444
6434 013450
6435 013454
013454
013462
6436 013464
6437 013470
013470
6438 013470
013470
013476
6439 013500
6440 013504
013504
6441 013504
6442 013510
013510
6443 013510
013510
013512
013516
013520

CHECK APT SIZING

002444

002434
056676

CLR

105760
001441
111001
042701

000001

005760
002002
000261

000002

TEMP

MOV
#$MAMS1,RO
FOR R2 := #0 TO #4

IFB 1(RO) NE #0
MOVB
(RO),R1
BIC
#177400,R1
IF 2(RO) LT #0

177400

SEC
ELSE

000401

<<CHECK APT SIZING>>

CLC
END ;OF IF 2(RO)

006101
005201
006301
006301
006301
006301
163701
010137

ROL

002434
002434

ASL
ASL
ASL

R1
R1
R1

126027

000001

060137

002422

126027
001002
060137

000001
002424

ADD
R1,APTECC
END ;0F IFB 1(RO)

062700

000004

ADD

005202
020227
003730

{gf

SuB
TEMP,R1
R1,TEMP
MOV
IFB 1(RO) EQ #3

000003

ADD

TST
BEQ
TST
BEQ

APTFLAG
L110
APTSIZE
L110

CLR R2
Bl14:;;:;::::
TSTB 1(RO)
BEQ L111

TST 2(RO)
BGE L112
BR L113

000241

001002

IF APTFLAG IS TRUE AND APTSIZE IS TRUE

005002

6419

Page 166

R1,APTPAR

; TO COMPENSATE FOR 4 BANKS BEING (0-3)

CMPB 1(RO),#3
BNE L114

END ;OF IFB 1(RO)

IFB 1(RO) EQ #4

000004

#4 ,RO

END ;OF IFB 1(RO)
END

;OF FOR R2

CMPB 1(RO),%4
BNE L11S
L11S::::5:535
Lild:;:3:33

INC R2

CMP R2,.%4

BLE Bl4

CVMJAAQ MSV11-J MEMORY DIAG.
. CHECK APT SIZING
6444 013520
013520
013526
013530
013536

6445 013550
6446 013552
013552
6447 013552
013552

023737
001010
023737
001004
023737
001401
104046

MACRO V05.01b Friday 15-Feb-85 16:10

Page 166-1

SEQ 0167

002422

002400

002424

002402

002424

002404

IF APTPAR NE LSIZE OR APTECC NE MSIZE OR APTECC NE PSIZE
CcMP APTPAR,LSIZE
BNE L116
cMP APTECC,MSIZE
BNE L116
CcMP APTECC,PSIZE
BEQ L117
L116::335::3
ERROR
+46
END ;OF IF APTPAR
L117:5:35:::
END ;OF IF APTFLAG
L110:;:::5::3

| CVMJAAO MSV11-J MEMORY DIAG.

' CHECK APT SIZING

M13

MACRO V0S.0ib Fridasy 15-Feb-85 16:10

6449 013552

LOOP:

NEWTST

HRlddd it

i 22

;#TEST S
013552
6450 013554

3 ERR

000004
005037

002222

042700

177761

6451 013560

017700

6453 013570
6454 013574

TST5:

2222

SCOPE
CLR

Page 167

<<DIAGNOSTIC MODE DISPATCH ROUTINE>>
2 22

22 2 et a2ttt

a2t a2

DIAGNOSTIC MODE DISPATCH ROUTINE

R R R AR ER R R

RN AR LR R

CONTFLAG

RR RR

RN R ERRER

ARk

R kbRt kbR

167052

MOV

@SWR,RO

;GET SWITCHES

6455 013600
6456 013602
6457 013604
6458 013606
6459 013610
6460 013612
6461 013614
2:2% 013616

004770
000137

014262
014370
014476
014626
014756
015106
015260
015410

013600
013620

CALL
JMP

aDISPTBL(RO)
MEMDONE

;DISPATCH TO ROUTINE THROUGH NEXT TABLE
;GO _TO NEXT TEST

g::; 013620

004737

014162

6452 013564

BIC

DISPTBL :BAFPAF
BAFPAR
BAWPAF
BAWPAR
PAFBAF
PAFBAW
PARBAF
PARBAW

MEMDONE : CALL

#1C16,R0

:MASK TO ONLY MODE BITS

;MODE 0;BANKS FORWARD, PATTERNS FORWARD
;MODE 1;BANKS FORWARD, PATTERNS REVERSE
;MODE 2;BANKS WORST FIRST, PATTERNS FORWARD
;MODE 3;BANKS WORST FIRST, PATTERNS REVERSE
;MODE 4;PATTERNS FORWARD, BANKS FORWARD
;MODE 5;:PATTERNS FORWARD, BANKS WORST FIRST
;MODE 6;:PATTERNS REVERSE, BANKS FORWARD
;MODE 7;PATTERNS REVERSE, BANKS WORST FIRST

DOBACK

; CHECK BACKGROUND PATTERN

NEWTST<<UNIQUE BANK TEST>>

6466 013624

BRI

;#TEST 6

UNIQUE BANK TEST

R R

SR R

R R

] ]

sRkkkkkkkkkkkhkkkkkkkkkkkkkkkk
bk kb
kkkkkkkkkkkkkkkk kb
krkk kb ek bk kbt kbt

013624

000004

6469 013626
013626
013632

005737
001015

002002

013634
013642

012737
012737

177777
177777

002612
002110

177777

002612

6467
6468

6470 013634

6471 013650
6472 013654
013654

6473 013662
6474 81;222

2::"3 013666

004737
012737

TST6:

021610

005037

002110

004737

014162

6480 013672

SCOPE

;MAKE SURE THAT EACH BANK CAN HAVE UNIQUE DATA
;WRITE AND READ THE BANK NUMBER IN EACH BANK (EXCEPT WHERE THE PROGRAM IS)

IF SELONLY IS FALSE

SET

HEADER,MUT

CALL
SET

MT0027
HEADER

TST SELONLY
BNE L120

CLR _ MUT
END ;OF IF SELONLY

FLUSH:

CALL

DOBACK

SUBTST

«<<FLUSH QUT DBE'S>>

:*SUBTEST

;RESTORE BACKROUND PATTERN
e te

FLUSH OUT DBE'S

shkkkkkrkkkkbkkkkkk
ok kkk b hkkkdokkkokkk ok ek kb

6481 013672

004737

022200

CALL

MT0030

MOV
MOV

#-1,HEADER
@-1,MUT

MOV

#-1,HEADER

SRR

T
kkkkkkkk bk

d bk kbbb

kb kbbb kbbb

—

VMJAAQ MSV11-J MEMORY DIAG.

ND OF PASS ROUTINE

002630
056654
100000

6503
6504

6505
014012

002346

104405

014036

012600

6515 014042
6316 014044
6517 014046
6518 014050
6519 014052

6520
6521
6522
6523

056654

005037

013746

013700
001456
022700
001453

END OF PASS ROUTINE

it 2t 22

222 2 22222 a2 2

22222

222

dd d

1%:

002016

056654

166660

CLR

MOV
BIC
ADD

CMP
BLE
MOV
INC
BIC

FSINFLAG

#CONFIG+2,R0O

#B8IT13,(RO)
#4,R0O

056654
000042
002000

T T T )

RO, #3620
14

;MOVE 2ND WORD OF CONFIG TO RO
;CLEAR BACKGROUND VALID BIT
;INCREMENT TO NEXT BANK
;DONE?
;NO - BRANCH

$ERTTL ,LASTERROR
$PASS
; ; INCREMENT THE PASS NUMBER
2100000, $PASS
;;DON'T ALLOW A NEG. NUMBER
TYPE
MSGO77
;s TYPE "END PASS #"
,MSGO77
TYPEIT
.DSABL CRF
IF #SW11 SET.IN @SWR OR QVFLAG IS TRUE OR $PASS EQ #1

#SW11,3SWR

BNE Li21
TS7 QVFLAG
BNE L121
91
CMP $PASS,
BNE L122

002346

067273

010046
004737

6514 014040

004000

104401

6506 014014
6507 014020
6508 014022
6309 014026
6510
6511 014030
014030
651

651

$EOP:

070251

032777
001007
005737
001004
023727
001004

i il et dd

;INCREMENT THE PASS NUMBER ($PASS)
;#INDICATE END-OF-PROGRAM AFTER EACH PASSES THRU THE PROGRAM
;#TYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER)
;#IF THERES A MONITOR GO TO IT
;#IF THERE ISN'T _JUMP TO LOOP

002442
002666
020000
000004
003620

6497 013724
6498 013732
6499 013736
6500 013744
013744

Page 169

SEQ 0169
i

6492 013702
6493 013706
6494 013712
6495 013716
6496 013722

6502

MACRO V05.01b Friday 15-Feb-85 16:10

.SBTTL

6484
6485
6486
6487
6488
6489
6490
6491 013676

6501

N13

000001
TYPE
TYPEIT

MSGO35
,MSGO3S

TYPDEC

$PASS

; Qv

.DSABL CRF
CLR
QVFLAG
END ;OF IF SWi1l

MOV

TYPDS

.DSABL
MOV
BEQ
$ZAP42: CMP
BEQ

L121:5:35:533

L122:::::::

$PASS, -(SP)

; ;SAVE $PASS FOR TYPEOUT

CRF
42,R0
$DOAGAIN
#STACK,RO
$DOAGAIN

;;GET MONITOR ADDRESS
; ;BRANCH IF NO MONITOR
;ARE WE UNDER RT11
;:YES - BRANCH

;G0 TYPE--DECIMAL ASCII WITH SIGN

;WE ARE UNDER (HEAVEN HELP US) XXDP!

040636

PUSH

CALL

SHUTUP

POP

RESET

$ENDAD: CALL
(RO)
NOP
NOP
NOP
$DOAGN: ;UNDO SHUTUP STUFF

i
:
i
i

MOV RO, -(SP)

:;CLEAR THE WORLD

;:G0 TO MONITOR
; ; SAVE ROOM
;;FOR
::ACT11

RESTORE STACK
ENERGIZE Q-BUS MAP & 22 BIT ADDRESSING
ENERGIZE MEMORY MANAGEMENT
PUT LOADERS BACK HOME

MOV (SP)+,RO

EN0 0F

—

3;1 -J fim DIAG.
013706
005

B14

MACRO vV05.01b Fridey 15-Feb-85 16:17

002574
002454
000060

172516

002576
000001
037442

002352

056672

056654

056656

KSTACK, SP
NO22BIT

8IS

OBITS!BIT4
., MR3

2%:

;TURN ON MEMORY MANAGEMENT
sDESTINATION BANK
:SOURCE BANK

ENERGIZE
LOADHOME , RO
MOV
MOV
CALL
BANKMOV
IF APTFLAG IS TRUE

TST APTFLAG

BEQ L123

CMP SUSHR, $PASS
BNE L124

MOV #50,R1
S0B RO,2#
ADD #1,$DEVCT
ADC $UNIT
S0B R1,2%
INC $PASS
APTHANG

END ;OF IF $USWR

1
6543 0141

L124:;;::::4:

END ;0F IF APTFLAG

000137

013552

SEQ 0170

;IS THIS AN 11/83,11/23-8 OR 11/2%3?

IF SUSUR EQ $PASS

056654
APTHANG :

000001
056660

MOV
15T

BNE

14:

Page 169-1

$DOAGAIN: JMP

LOOP

;RETURN

L123:3:3::4

CVMJUAAO MSV11-J MEMORY DIAG.
ENY OF PASS ROUTINE

Cl4

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0171

DOBACK: SUBTST

6546 014162

6547 014162
6548 014166
014166
014172
6549 014172
6550 014176
014176
014202
014204
014210
6551 014212
014212
014220
6552 014226

6553 014232
6554 014236

014236
6555 014244
014244
6556 014244
014244
014250
014256
014260
6557 014260

002112

005037

002102

004737

040052

005737
001420
005737
001015

002116

012737
012737
004737
005037

177777
177777
017104
002110

012737

177777

005237
023737
003745

000207

<<WRITE BACKGROUND PATTERNS>>

it d 2 2 2t 22 2

;*SUBTEST
005037

Page 171

a2t 2t 2 2

a i

A2 22 222222 222 222222 222 222 22222 2222

CLR

EXBANK
CALL
IF ACFLAG IS TRUE AND RRFLAG IS FALSE

002124

002102
002102

002110

002612

T T T I

)

e T I I T I

PATTERN

FOR BANK := #0 TO LASTBANK

002612

WRITE BACKGROUND PATTERNS

SET

HEADER,MUT

CALL
CLR
SET

MKTEST
MUT
HEADER

END ;OF IF ACFLAG

END ;OF FOR BANK

002556
RETURN

CLR BANK
B1S:::::::
TST
BEQ
TST
BNE

MOV

; CALL

ACFLAG
L125
RRFLAG
L125

#-1,HEADER

MJTEST WOULD ALSO WORK

MOV

#-1,HEADER

L125::::::3:

INC BANK
CMP BANK,LASTBANK
BLE B15

CVMJAAQ MSV11-J MEMORY DIAG.

MTEST MODES

D14

MACRO V05.01b Friday 15-Feb-85 16:10

ggg?

.SBTTL

6562 014262

Page 173

SEQ 0172

MTEST MODES

BAFPAF: SUBTST

<<BANKS FORWARD,PATTERNS FORWARD

; *SUBTEST

BANKS FORWARD,PATTERNS FORWARD

**RECURSIVE
##>>

I
I I
I
OO

**RECURSIVE
*+

I
I
T
T
T T T
TMTMTM

6563 014262
6564
6565 014266
6566 014272
6567 014276
6568 014300
6569 014304
6570 014306
6571
6572 014312
6573
6574 014316
6575 014322
6576
6577 014324
6578 014330
6579 014334
6580
6581 014336
6582 014342

6583 014344
6584 014346
6585 014352
014352
014354

014336

6586

6587 014356
6588 014362
6589 014366

005037

002102

004737
005737
001412
005737
001007
005037

040052
002116

002112

004737

015562

004737
001373

040474

005037
004737
002354

002222
040520

005737
001401
000207

002126

004737

002124

036402

103001
000207

004737
004737
000207

014262
037214

1¢:

2%:

S$:

CLR
BANK
;:SET BANK TO 0
;START OF BANK LOOP
CALL
EXBANK
;EXAMINE BANK
TST
ACFLAG
;CAN WE ACCESS THIS BANK?
BEQ
4%
;NO - GO TO BANK LOOP TERMINATION
TST
RRFLAG
;RELOCATION REQUIRED?
BNE
4%
:YES - GO TO BANK LOOP TERMINATION
CLR
PATTERN
;SET PATTERN T0 0
;START OF PATTERN LOOP
CALL
MTEST
;GO0 TEST CORRECT MEMORY
; TERMINATION OF PATTERN LOOP
CALL
INCPAT
;GO SEE IF THIS IS THE LAST PATTERN
BNE
2%
;NO - LOOP ON THIS PATTERN
; TERMINATION OF BANK LOOP
CLR
CONTFLAG
CALL
INCBNK
;NEXT HIGHER BANK
BGE
13
;IF NOT DONE - LOOP ON THIS BANK
;END OF LOOPS
187
RLFLAG
;HAVE WE BEEN RELOCATED?
BEQ
5%
;NO - SKIP

RETURN
CALL
RELOCATE
ON.ERROR THEN $RETURN

; #*NOTE+* RECURSIVE CALL

CALL
CALL
RETURN

BAFPAF
UNRELOCATE

;YES - RETURN
;MOVE & MAP PROGRAM

BCC L126
RTS PC
L126:::::::

;CALL SELF
;UNMOVE & UNMAP PROGRAM

' CVMJUAAQ MSV11-J MEMORY DIAG.
' BANKS FORWARD,PATTERNS FORWARD

6592 014370

E14

MACRC V05.01b Friday 15-Feb-85 16:10
#*RECURSIVE
**

BAFPAR: SUBTST
RE

22222222 22

; *SUBTEST
6593 014370
6594
6595 014374
6596 014400
6597 014404
6598 014406
6599 014412
6600 014414

6602 014420
6603
6604 014424
6605 014430
6606
6607 014432
6608 014436
6609 014442
6610
6611 014444
6612 014450
6613 014452
6614 014454
6615 014460
014460
014462
014464
6616
6617 014464
6618 014470
6619 014474

005037

002102

004737
005737
001412
005737
001007
004737

040052
002116

040510

004737

015562

005337
100373

002112

005037
004737
002354

002222
040520

005737
001401
000207
004737

002126

103001
000207

004737
004737
000207

SEQ 0173

<<BANKS FORWARD,PATTERNS REVERSE

22 222 22

a2ttt

BANKS FORWARD,PATTERNS REVERSE

**RECURSIVE#+>>

**RECURSIVE#+

14:

2%:

44:

CLR

BANK

;:SET BANK TO 0

CALL

EXBANK

;EXAMINE BANK

BEQ
TST
BNE
CALL

4%
RRFLAG
4%
SETPAT

;NO - GO TO BANK LOOP TERMINATION
;RELOCATION REQUIRED?
;YES - GO TO BANK LOCP TERMINATION
:SET HIGH PATTERN FOR CORRECT MEMORY

CALL

MTEST

;GO _TEST CORRECT MEMORY

DEC
BPL

PATTERN
28

;IS THIS THE LAST PATTERN?
;NO - LOOP ON THIS PATTERN

CLR
CALL
BGE

CONTFLAG
INCBNK
1

;NEXT HIGHER BANK
:IF NOT DONE - LOOP ON THIS BANK

;START OF BANK LOOP

TST

ACFLAG

;START OF PATTERN LOOP

; TERMINATION OF PATTERN LOOP

; TERMINATION OF BANK LOOP

;END OF LOOPS

5§:

;CAN WE ACCESS THIS BANK?

TST
RLFLAG
BEQ
5$
RETURN
CALL
RELOCATE
ON.ERROR THEN $RETURN

;HAVE WE BEEN RELOCATED?
:NO - SKIP
:YES - RETURN
;MOVE & MAP PROGRAM
BCC Lic7

RTS PC

014370
037214

T Tttt ]

R
T
T Ittt

002124

036402

Page 175

; **NOTE** RECURSIVE CALL

CALL

gé%bRN

BAFPAR

UNRELOCATE

;CALL SELF

;UNMOVE & UNMAP PROGRAM

—

CVMJAAQ MSV11-J MEMORY DIAG.
' BANKS FORWARD,PATTERNS REVERSE

|
!

——

F14

MACRO V05.01b Friday 15-Feb-85 16:10
**RECURSIVE **

BAWPAF: SUBTST

6622 014476

JEERERR R R R

s RRRRRE AR

; #SUBTEST
6623 014476
6624

6625 014502

005037
004737

6626 014506
6627 014512

005737
001415

6629 014520
6630 014522

001412
005737

6632 014530

6634 014534

6628 014514

6631 014526
6633
6635

6636 014540

6637 014544

6638

002102
040052

BANK

R R

EXBANK

R R R R R

;SET BANK TO 0O

##*RECURSIVE#*#*>>

R ARk RS

R Rk

b b bbbk bk ek

#+RECURSIVE##
Rk Rk

kbbb

002112

CLR

004737

015562

004737

040474

001007

001373

004737

18T

BNE
2%:

MTEST

;YES - GO TO BANK LOOP TERMINATION
5SET PATTERN TO O

;GO TEST CORRECT MEMORY

; TERMINATION OF PATTERN LOOP

INCPAT

;G0 SEE IF THIS IS THE LAST PATTERN

;NO - LOOP ON THIS PATTERN

; TERMINATION OF BANK LOOP

CLR

CONTFLAG

INCBNK
14

;NEXT HIGHER BANK
;IF NOT DONE - LOOP ON THIS BANK

002600

CoM
BNE

WORST
54

;IS THIS AN EVEN NUMBERED PASS?
;YES - SKIP

014476

CALL

BAWPAF

;CALL SELF

RLFLAG
6$

;HAVE WE BEEN RELOCATED?
;NO - SKIP

;END OF LOOPS

; **NOTE** RECURSIVE CALL

002126

54:

6651 014604
6652 014610

004737

036402

6$:

103001
000207

000207

PATTERN

014476
037214

;IS THIS BAD MEMORY (WORST FIRST)?

CALL
BGE

000207
005737
001401

004737
004737

CALL

6647 014572
6648 014574
6649 014600

000207

;START OF PATTERN LOOP

BNE

44:

BMFLAG

;EXAMINE BANK

005037

6646 014566

6656 014624

NO - GO TO BANK LOOP TERMINATION
RELOCATION REQUIRED?

005137
001003

6654 014614
6655 014620

BANKS WORST FIRST,PATTERNS FORWARD

R AR AR R

;START OF BANK LOOP

CALL

002124

6643 014560
6644 014564

6653

R R R R R R R

43
RRFLAG

040520

014610
014612
014614

R R RR

BEQ
TST

002130

004737
002351

6650 014602

.CAN WE ACCESS THIS BANK?
;NO - GO TO BANK LOOP TERMINATION

6640 014552
6641 014556
6645

<<BANKS WORST FIRST,PATTERNS FORWARD

ACFLAG
4%

6639 014546 005037 002222

6642

14:

SEQ 0174

ST
BEQ

005737

002116

CLR

Page 177

RETURN
TST
BEQ

RETURN

CALL
RELOCATE
ON.ERROR THEN $RETURN

; **NOTE#* RECURSIVE CALL

CALL
CALL

RETURN

BAWPAF
UNRELOCATE

;YES - RETURN

."OVE & MAP PROGRAM
BCC L130
RTS PC
L130:;;::::3;

;CALL SELF
;:UNMOVE & UNMAP PROGRAM

b &
&

—
<

————
—
.
—

—

Gl4

CVMJAAQ MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
BANKS WORST FIRST,PATTERNS FORWARD #sRECURSIVE#*#

6659 014626

Page 179

BAWPAR: SUBTST

<<BANKS WORST FIRST,PATTERNS REVERSE

; *SUBTEST

BANKS WORST FIRST,PATTERNS REVERSE

SEQ 0175

#+RECURSIVE#*#*>>
#**RECURSIVE#*»

L
L

6660 014626
6661

6662 014632

6663 014636
6664 014642
6665 014644
014650
6667 014652
6668 014656
6669 014660
6670
6671 014664
6672
6673 014670
6674 014674
6675
6676 014676
6677 014702
6678 014706
6679

005037

002102

004737

040052

005737
001415
005737
001412
005737
001007
004737

002116
002130
002124
040510

004737

015562

005337
100373

002112

005037
004737
002351

002222
040520

6680 014710
6681 014714

005137
001003

002600

6683 014716
6684 014722
6685 014724
6686 014730
6687 014732

004737
000207
005737
001401
000207

014626

014740
014742

103001
000207

6682

6688 014734
6689 014740

6690

014744

6691 014744
6692 014750
6693 014754

004737

004737
004737
000207

1s$:

2%:

4%:

5¢:

036402

6%:

;SET BANK TO 0

CALL

EXBANK

;EXAMINE BANK

COM
BNE

WORST
5¢

;IS THIS AN EVEN NUMBERED PASS?
;YES - SKIP

CALL
RETURN
TST
BEQ
RETURN

BAWPAR

;CALL SELF

RLFLAG
64

;HAVE WE BEEN RELOCATED?
iNC - SKIP
;YES - RETURN
;MOVE & MAP PROGRAM

ST
ACFLAG
;:CAN WE ACCESS THIS BANK?
BEQ
4%
iNO - GO TO BANK LOOP TERMINATION
TST
BMFLAG
;IS THIS BAD MEMORY (WORST FIRST)
BEQ
44
NO - GO TO BANK LOOP TERMINATION
18T
RRFLAG
;RELOCATION REQUIRED?
BNE
44
;YES - GO TO BANK LOOP TERMINATION
CALL
SETPAT
;SET HIGH PATTERN FOR CORRECT MEMORY
;START OF PATTERN LOOP
CALL
MTEST
;GO TEST CORRECT MEMORY
; TERMINATION OF PATTERN LOOP
DEC
PATTERN
;IS THIS THE LAST PATTERN?
BPL
24
;NO - LOOP ON THIS PATTERN
; TERMINATION OF BANK LOOP
CLR
CONTFLAG
CALL
INCBNK
;NEXT HIGHER BANK
BGE
1$
;IF NOT DONE - LOOP ON THIS BANK
;END OF LOOPS
; **NOTE** RECURSIVE CALL

002126

014626
037214

CLR
BANK
;START OF BANK LOOP

CALL
RELOCATE
ON.ERROR THEN $RETURN

; **NOTE+* RECURSIVE CALL

CALL
CALL
RETURN

BAWPAR
UNRELOCATE

BCC L131
RTS PC

L131:53:3:3

;CALL SELF
;UNMOVE & UNMAP PROGRAM

CVMJAAQ MSV11-J MEMORY DIAG.
' BANKS WORST FIRST,PATTERNS REVERSE

H14

MACRO V05.01b Friday 15-Feb-85 16:10
PAFBAF:

6696 014756

ERRR

SUBTST

AR R AR

; *SUBTEST

6697 014756

6698
6699 014762
6 700
6701 014766

6702 014772
6703 014776
6704 015000
6705 015004
6706 015006
6707 015012
6708 015014
6709

6710 015020
6711 015024
6712 015030
6713
6714 015032
6715 015036
6716
6717 015040
6718
6719 015044
6720
6721 015046
6722 015052

6723 015054

6724 015060
6725 015062
6726 015064
6727 015070
015070
015072
015074
6728
6729 015074
6730 015100
6731 015104

Page 181

#*
#*RECURSIVE

SEQ 0176

<<PATTERNS FORWARD,BANKS FORWARD

R AR R

R AR AR R

R R

*+«RECURSIVE#+>>
R

PATTERNS FORWARD,BANKS FORWARD

Rk Rk

002112

005037

002102

004737
004737
001010
005737
001405
005737
001002
004737

040052
040456

CLR

PATTERN

;SET PATTERN TO O

1%:

CLR

BANK

;SET BANK TO O

2%:

CALL

EXBANK

;EXAMINE BANK

ACFLAG

;CAN WE ACCESS THIS BANK?

;START OF PATTERN LOOP
;START OF BANK LOOP

CALL
BNE

BANKOK
4%

BEQ
TST
BNE
CALL

44
RRFLAG
4%
MTEST

CLR
CALL
BGE

CONTFLAG
INCBNK
2%

;NEXT HIGHER BANK
;IF NOT DONE - LOOP ON THIS BANK

002116
002124

015562

.CORRECT MEMORY FOR THIS BANK?
;:NO - GO TO BANK LOOP TERMINATOR
;NO - GO TO BANK LOOP TERMINATION
;RELOCATION REQUIRED?
;YES - GO TO BANK LOOP TERMINATION
;GO TEST CORRECT MEMORY

; TERMINATION OF BANK LOOP

005037
004737
002356

002222
040520

004737
001351

040474

CALL
BNE

INCRPT
14

;NEXT HIGHER PATTERN
;0K - LOOP; ELSE CONTINUE

005137

002134

COM

TMFLAG

;COMPLEMENT TYPE OF MEMORY

BEQ

;YES - SKIP

CALL

PAFEAF

;CALL SELF

RLFLAG
6%

;HAVE WE BEEN RELOCATED?
NO - SKIP
;YES - RETURN

44:

; TERMINATION OF PATTERN LOOP

;END OF LOOPS

001403

; **NOTE** RECURSIVE CALL

014756
002126

5¢:

036402

6$:

103001
000207
004737
004737
000207

kb bk

shkkkkkkkkkkkkkkkkkkk
kb kR kbbb
kb bk r kRO

005037

004737
000207
005737
001401
000207
004737

**RECURSIVE
#*

RETURN
TST
BEQ
RETURN

CALL

RELOCATE

ON.ERROR THEN $RETURN

;IS THIS AN EVEN NUMBER PASS?

HOVE & MAP PROGRAM

BCC L132
RTS PC

014756
037214

; **NOTE#+* RECURSIVE CALL

CALL
ge%bRN

PAFBAF
UNRELOCATE

;CALL SELF
;UNMOVE & UNMAP PROGRAM

CVMJAAO MSV11-J MEMORY DIAG.

' PATTERNS FORWARD,BANKS FORWARD

6734 015106

114

MACRO V05.01b Friday 15-Feb-85 16:10

+#RECURSIVE*+
PAFBAW:

SEQ 0177

SUBTST

ERERRRRRE R

002112

6737 015112
6738
6739 015116
6740 015122
6741 015126
6742 015130
6743 015134
6744 015136
6745 015142
6746 015144
6747 015150
6748 015152
6749
6750 015156
6751 015162
6752 015166
6753
6754 015170
6755 015174
6756
6757 015176
6758
6759 015202
6760
6761 015204

005037

002102

004737
004737
001013
005737
001410
005737
001405
005737
001002
004737

040052
040456

6762 015210
6763 015212
6764 015216
6765
6766 015220
6767 015224
6768 015226
6769 015232
6770 015234
6771 015236
6772 015242
015242
015244
015246

6773
6774 015246
6775 015252
6776 015256

2%:

CALL
CALL
BNE

EXBANK
BANKOK
44

BEQ
TST
BEQ
TST
BNE
CALL

44
BMFLAG
4%
RRFLAG
4%
MTEST

CLR
CALL
BGE

CONTFLAG
INCBNK
2$

CALL
BNE

INCRPT
14

;NEXT HIGHER PATTERN

COoM

TMFLAG

BEQ

;COMPLEMENT TYPE OF MEMORY
;IS THIS AN EVEN NUMBER PASS?
:YES - SKIP

CALL

PAFBAW

;CALL SELF

COM
BNE

WORST
64

;4TH PASS?

004737
000207
005737
001401
000207
004737

CALL

PAFBAW

;CALL SELF

TST
BEQ
RETURN

RLFLAG
74

;HAVE WE BEEN RELOCATED?

036402

RELOCATE

;MOVE & MAP PROGRAM

103001
000207

004737
004737
000207

;START OF BANK LOOP

TST

ACFLAG

RETURN

; **NOTE** RECURSIVE CALL

6$:
74:

;EXAMINE BANK

;CORRECT MEMORY FOR THIS BANK?
iNO - GO TO BANK LOOP TERMINATOR
;CAN WE ACCESS THIS BANK?
iNO - GO TO BANK LOOP TERMINATION
;IS THIS BAD MEMORY (WORST FIRST)
iNO - GO _TO BANK LOOP TERMINATION
;RELOCATION REQUIRED?
:YES - GO T0 BANK LOOP TERMINATION

;NEXT HIGHER BANK
;IF NOT DONE - LOOP ON THIS BANK
;sTERMINATION OF PATTERN LOOP

; **NOTE** RECURSIVE CALL

5§:

bbb

;GO TEST CORRECT MEMORY
; TERMINATION OF BANK LOOP

;END OF LOOPS

015106

002126

;START OF PATTERN LOOP

bk r

;SET BANK TO O

015106
002600

BANK

001403

004737
000207
005137
001003

CLR

44:

002134

st 2ttt

**RECURSIVE
##

14:

015562

005137

ARk

;SET PATTERN TO 0

002124

040474

**RECURSIVE*%>>

R R R AR R R

PATTERN

002130

004737
001346

R R

CLR

002116

005037
004737
002353

PATTERNS FORWARD,BANKS WORST FIRST

AR 22 222222 2222

005037

6736

<<PATTERNS FORWARD,BANKS WORST FIRST

R R R AR R R R R

; *SUBTEST

6735 015106

Page 183

RETURN

CALL

ON.ERROR THEN $RETURN

;0K - LOOP; ELSE CONTINUE

:YES - SKIP

iNO - SKIP

;:YES - RETURN

BCC L133

RTS PC

015106
037214

; **NOTE** RECURSIVE CALL

CALL
CALL
RETURN

PAFBAW
UNRELOCATE

;CALL SELF
;UNMOVE & UNMAP PROGRAM

kb b

T e T T T Y]

J14

MACRO V05.01b Friday 15-Feb-85 16:10
CVMJAAO MSV11-J MEMORY DIAG.
' PATTERNS FORWARD,BANKS WORST FIRST
#+sRECURSIVE*#*
;R

R RRRERRER LR R ER RN ERRRRR RN

; *SUBTEST

6780 015260
6781
6782 015264
6783
6784 015270
6785 015274
6786 015300
6787 015302
6788 015306

6789 015310
6790 015314
6791 015316

6792
6793 015322
6794 015326
6795 015332
6796
6797 015334
6798 015340
6799
6800 015342
680 1
680% 015346
680

6804 015350
6805 015354
6806 015356
6807 015362
6808 015364
6809 015366
6810 015372
015372
015374
6811

015376

6812 015376
6813 015402
6814 015406

IRRRRERERRER R

004737

040510

005037

002102

1$:

004737
004737
001010
005737
001405
005737
001002
004737

040052
040456

2%:

CALL

002124

015562

005037
004737
002356

44:

R AR

R R R RN RE

HIPAT

AR R AR R

AR R

;START OF PATTERN LOOP

AR R

*+RECURSIVE+#+>>

R RR R R AR RN

PATTERNS REVERSE,BANKS FORWARD

CLR
BANK
;START OF BANK LOOP
CALL
EXBANK
CALL
BANKOK

AR R

RN R

;SET HIGHTEST PATTERNS

R AR

BNE

BEQ
TST
BNE
CALL

4%
RRFLAG
44
MTEST

;NO - GO TO BANK LOOP TERMINATION
RELOCATION REQUIRED?
;YES - GO TO BANK LOOP TERMINATION
:GO TEST CORRECT MEMORY

CLR

CONTFLAG

BGE

ACFLAG

; TERMINATION OF BANK LOOP

CALL

INCBNK

;NEXT HIGHER BANK

;IF NOT DONE - LOOP ON THIS BANK

; TERMINATION OF PATTERN LOOP

DEC
BPL

PATTERN
1$

;NEXT LOWER PATTERN
;0K - LOOP; ELSE CONTINUE

005137

002134

COM

TMFLAG

; COMPLEMENT TYPE OF MEMORY

BEQ

CALL
RETURN
TST
BEQ
RETURN

PARBAF

;CALL SELF

RLFLAG
6$

;HAVE WE BEEN RELOCATED?
;NO - SKIP
;YES - RETURN

;END OF LOOPS

001403

004737
004737
000207

; **NOTE** RECURSIVE CALL

015260

002126

S$:

036402

6%:

CALL
RELOCATE
ON.ERROR THEN $RETURN

;IS THIS AN EVEN NUMBER PASS?
;YES - SKIP

;MOVE & MAP PROGRAM

BCC L134

RTS PC

015260
037214

.CAN WE ACCESS THIS BANK?

002112

103001
000207

RS R R SRR e R

;SET BANK TO O

005337
100351

004737
000207
005737
001401
000207
004737

R R SRR bbb bbb bbb bR

**RECURSIVE
#»

;EXAMINE BANK
;CORRECT MEMORY FOR THIS BANK?
sNO - GO TO BANK LOOP TERMINATOR

TST

002116

SEQ 0178

<<PATTERNS REVERSE,BANKS FORWARD

PARBAF: SUBTST

6779 015260

Page 185

; *#*NOTE** RECURSIVE CALL

CALL
Se%hnn

PARBAF
UNRELOCATE

L134:;;::::;
;CALL SELF
;UNMOVE & UNMAP PROGRAM

bR
o b o s

' CVMJARO MSV11-J MEMORY DIAG.

- PATTERNS REVERSE,BANKS FORWARD

!
|

6817 015410

K14

MACRO V05.01b Friday 15-Feb-85 16:10
#*sRECURSIVE
#*
PARBAW:

SUBTST

i dd

; *SUBTEST
6818 015410
6819
6820 015414
6821
6822 015420
6823 015424
6824 015430
6825 015432
6826 015436
6827 015440
6828 015444
6829 015446
6830 015452
6831 015454
6832
6833 015460
6834 015464
6835 015470
6 836
6837 015472
6838 015476
6839
6840 015500
6841
6842 015504
6843
6844 015506

6845 015512
6846 015514
6847 015520
6848
6849 015522
6850 015526
6851 015530
6852 015534
6853 015536
6854 015540
6855 015544
015544
015546
015550
6856
6857 015550
6858 015554
6859 015560

004737

040510

005037

002102

004737
004737
001013
005737
001410
005737
001405
005737
001002
004737

040052
040456

222

222 22222222

Page 187

SEQ 0179

<<PATTERNS REVERSE,BANKS WORST FIRST
2

ittt

PATTERNS REVERSE ,BANKS WORST FIRST
22 22 22222222 22 2t

id i

#+RECURSIVE##*>>

E E

;SET HIGHTEST PATTERN

1%:

CLR

BANK

;SET BANK TO 0O

2%:

CALL
EXBANK
;EXAMINE BANK
CALL
BANKOK
;CORRECT MEMORY FOR THIS BANK?
BNE
a8
;:NO - GO TO BANK LOOP TERMINATOR
TST
ACFLAG
;CAN WE ACCESS THIS BANK?
BEQ
4%
;NO - GO TO BANK LOOP TERMINATION
TST
BMFLAG
:IS THIS BAD MEMORY (WORST FIRST)
BEQ
4%
;NO - GO TO BANK LOOP TERMINATION
TST
RRFLAG
;RELOCATION REQUIRED?
BNE
43
:YES - GO TO BANK LOOP TERMIMATION
CALL
MTEST
;60 TEST CORRECT MEMORY
; TERMINATION OF BANK LOOP
CLR CONTFLAG
CALL
INCBNK
;NEXT HIGHER BANK
BGE
28
;IF NOT DONE - LOOP ON THIS BANK

002116

002130
002124
015562

; START OF BANK LOOP

002222
040520

005337
100346

002112

DEC
BPL

PATTERN
14

005137

002134

CoM

TMFLAG

BEQ

CALL
RETURN

PARBAW

;CALL SELF

COM
BNE

WORST
64

;4TH PASS?
:YES - SKIP

CALL

PARBAW

;CALL SELF

RLFLAG

;HAVE WE BEEN RELOCATED?

44:

; TERMINATION OF PATTERN LOOP

;END OF LOOPS

001403

004737
000207
005737
001401
000207
004737

S5$:

; **NOTE** RECURSIVE CALL

015410
002126

036402

103001
000207
004737
004737
000207

; **NOTE** RECURSIVE CALL

015410
002600

HIPAT

005037
004737
002353

004737
000207
005137
001003

CALL

;START OF PATTERN LOOP

6%:
74:

RETURN
TST

BEQ

RETURN

CALL
RELOCATE
ON.ERROR THEN $RETURN

;NEXT LOWER PATTERN
;0K - LOOP; ELSE CONTINUE
;COMPLEMENT TYPE OF MEMORY

;IS THIS AN EVEN NUMBER PASS?
;YES - SKIP

;NO - SKIP

:YES - RETURN

;MOVE & MAP PROGRAM
BCC L135

RTS PC

015410
037214

; **NOTE** RECURSIVE CALL

CALL
gé%bRN

PARBAW
UNRELOCATE

#+RECURSIVE#+

;CALL SELF
;UNMOVE & UNMAP PROGRAM

L14

CVHJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10
#sRECURSIVE
##*
PATTERNS REVERSE,BANKS WORST FIRST
|

MTEST:

6862 015562

SUBTST

b bantnts

; *SUBTEST

<<SUBR
T

SUBR

Page 189

SEQ 0180

SETUP MEMORY TEST>>
bbb

ibiraennas et

SETUP MEMORY TEST

T I

sRsktkkkkkbkk kb
kR kA kR
kR ekt kR ek

6863 015562
015562
6864 015570

015570
6865 015576
6866 015602
6867 015606
6868 015610
015610
6869 015610
015610
015614
6870 015616
015616
015622
6871 015624
6872 015630
015630
6873 015630
015630
6874 015630
6875 015634
6876 015636
6877 015642
6878 015646
015646
6879 015654

012737

177777

002612

012737
005037
005737
001413

177777
002264
002120

002110

005737
001005

002222

005737
001007
00477

002342

004737
000402
004737
005037
012737
000207

; INITIALIZE HEADER MESSAGE TYPEOUT

SET

MUT

;INDICATE THERE IS A MEMORY UNDER TEST

CLR

PASFLG

BEQ
BEGIN

MT1
HOLDLOOP

MKFLAG

017324
002110

MT1:
MT2:

002612

CALL
BR
CALL
CLR
SET

MKTEST
MT2
MJTEST
MUT
HEADER

RETURN

MOV

#-1,MUT

TST CONTFLAG
BNE E16
TST SKIPMK

BNE L136

MKCONTROL
CALL
END; OF IF SKIPMK

HOLDLOOP

#-1,HEADER

B16:;::::::

IF SKIPMK IS FALSE

END

MOV

;ECC?
iNO - SKIP

IF CONTFLAG IS TRUE THEN LEAVE HOLDLOOP

017104

—

HEADER

TST

015656

177777

SET

16:533533

;YES - DO ECC TESTS

;D0 PARITY TESTS
;NOW - NO MEMORY UNDER TEST
;ALLOW HEADERS NORMAL

| CVMJAAQ MSV11-J MEMORY DIAG.
' SUBR
SETUP MEMORY TEST
s

M14

MACRO V05.01b Friday 15-Feb-85 16:10

Page 191

SEQ 0181

MKCONTROL : SUBTST

6882 015656

i il i dd

22 2

SUBR

; *SUBTEST

TEST ECC CSR LOGIC DISPATCH>>

<<SUBR

a2 222222 22

2 2t

dd t

i a i

dad

add

a it

r EE Y

TEST ECC CSR LOGIC DISPATCH

sERERRRRRRERERRRERRRRRERE
AR AR ER R R
R RRER R R RN RN RN R R RN SRR R RS R bbb bbbkttt et bbb e

6883
6884
6885
6886 015656
015656
015662
015664

015666
6887 015666

015666
015672
015674
015676
6888 015676

015710
6889 015712

6890 015720
6891 015726
6892 015732
6893 015736
6894 015742
6895 015746
6896 015752
6897 015754
6898 015760
6899 015762
6900 015766
6901 015772
6902 015774
€903 016000
6904 016006
6905 016012

; THE NEXT TWO MODULES SOLVE THE PROBLEM OF

;HOW TO RUN THE CSR TESTS ON EACH ECC MEMORY

005737
001401
000207

002002

005737
001401
000207

002536

013746
010046
010146
010246
010346
012737
012737
005037
005037

002102

IF INHECC IS TRUE THEN $RETURN

PUSH

002232
002234

MOV
MOV
CLR
CLR
CLR
MOV
MOV
SWAB
BIC
ASL
MOV
18T
BEQ
INC

002136

6906 016016

002234

ASH

14
002152
002152

016476

013737
010346
013703
004737

002232

MOV
%:g

MOV

177775
160777
002526
002526
177741

BANK,RO,R1,R2,R3

#FIRST,CSRFBANK
#LAST, CSRLBANK
CSRINT
SPLTCSR
CSRLOOP
BANKINDEX,RO
CONFIG(RO),R1
R1
#tC17,R1
R1
R1,CSRHOLD
INTFLAG
14
SPLTCSR

TST INHECC

MKLOOP: MOVB
BIC

;STORE IN THE LOW BYTE

;IS THIS BANK INTERLEAVED?

;BRANCE IF NOT INTERLEAVED

:g.CSRHOLD

;STORE IT IN CSRHOLD'S UPPER BYTE

CSRHOLD(R3),CSRNO
#1C36,CSRNO

;CLEAR ANY UNNECESSARY BITS

:= #0 TO CSRINT

FOR CSRFIRST

MOV
CALL

; AND ZERO THE LOOP COUNTER
;GET THE BANK INDEX
;GET CSR NUMBER

;GET THE INTERLEAVE CSR NUMBER

FOR MKCNT

002226

MOV R2,-(SP)
MOV R3,-(SP)
;SET FIRST TEST ADDRESS TO FIRST ADDR.

CONFIG(RO),R1
#tC17000,R1

g{g

MOV BANK,-(SP)
MOV RO, -(SP)

;WE MUST LOOP TNICE FOR AN INTERLEAVED BANK

#-3.R1

BIC

RTS PC
L140:;;::::;

#120000, CSRLBANK
Egg&ggP

MAP BANK
002102
035716

RTS PC
L137:5:::::

BEQ L140

002526
002240
120000
002332
002236
002664

TST SELONLY

BEQ L137

177760

6907 016022
6908 016026
6909 016032
6910 016036

6911 016040
6912 016046
6913 016054
016054
016060
6914 016060
016060
016066
6915 016066
016066
016070
016074

060000
157776
002236
002240
002332
002104
002664

F SELONLY IS TRUE THEN $RETURN

BANK,R3
MAPPER

CLR MKCNT
Bl7:::::::

:= CSRFBANK TO CSRLBANK BY #4000

MOV CSRFBANK,CSRFIRST

B20:::::::
;MAP TEST SPACE TO BANK
MOV R3,-(SP)

—

——

N14

MACRO V05.01b Fridey 15-Feb-85 16:10
AG
I CVMJAAO MSV11-J MEMORY DIAG.
TEST ECC CSR LOGIC DISPATCH
| SUBR

016100
6916 016102
6917 016104
016104
6918 016104
6919 016110
016110
016114
016116
016122
6920 016124

6921 016132
6922 016140
016140
016146
6923 016146
6924 016154
6925 016160
6926 016162
6927 016170
6928 016172
6929 016200
6930 016204
016204
6931 016206
6932 016210
6933 016214
016214
016220
6934 016220
016220
6935 016226
6936 016232
016232
6937 016236
016236
6938 016240
6939 016244
6940 016252
6941 016256
016256
6942 016260
016260

6943 016274
6944 012%76

.DSABL

012603

104511

002334

005737
001503
005737
001100
013737
062737

002116

002226
004000

002230
002230

013737

002226

002412

013737
005737
001404
062737
000403
062737
004737

002412
002240

002414

040000

002414

000002
016500

002414

002076

005037

002452

012737
005037

177777

002264

013700

002452

010346
010637
162737
004737

002146
000002
017004

016314

002452
002452

177777

CSRFIRST,CSRLAST

MOV
TST
BEQ

TESTADD, TESTADD+2
SPLTCSR

14:
eé:

#40000, TESTADD+2

BR
24
ADD
#2,TESTADD+2
CALL
SBETEST
ON.NOERROR
CACHOFF
NOPAR
CLR

FOR I

SET

002612

:= @0 TO #27

HEADER

CLR
PASFLG
LET RO := I
PUSH

MOV
SP,CTLKVEC
SuB
#2,CTLKVEC
CALL CSRCASE

002146

POP

END ;OF FOR I

000027
CACHON
SET

002334

SUCCESS

LEAVE CSRSTUFF

002412
002230

END

MOV CSRFIRST,TESTADD
B22::::::3

ADD

END ;OF ON.NOERROR

002412

BNE L141

ADD
#4000,CSRLAST
FOR TESTADD := CSRFIRST TO CSRLAST BY #4

104423

062737
023737

TST ACFLAG
TST RRFLAG

012603

012737

B21l:;:::::

BEQ L141
MOV

MOV (SP)+,R3
; INVALIDATE BACKROUND PATTERN

002124

103440
104424
005037

023727
003752

SEQ 0182

CLR
SUCCESS
IF ACFLAG IS TRUE AND RRFLAG IS FALSE

000407

06
6947 016306
016306

CRF

INVALIDATE
BEGIN CSRSTUFF

005037

005237

Page 191-1

;OF FOR TESTADD

BCS L142

: TURN CACHE OFF
; INDICATE PARITY ACTION
CLR I

MOV

#-1,HEADER

MOV I,RO

:SAVE LOOP COUNTER

MOV R3,-(SP)

;SAVE VECTOR IN CSR OF tK
;RESTORE LOOP COUNTER

MOV (SP).,R3

INC I
CMP I,027
BLE B23
E23::::::5:3
: TURN CACHE ON

MOV

#-1,SUCCESS

BR E21
L142:;:::::
ADD #4,TESTADD

CMP TESTADD,CSRLAST

|
1

B15

MACRO V05.01b Fridey 15-Feb-85 16:10

SR Tested
eS8 Lodlc bISPATCH
016322
16

6948 01:

Page 191-2

SEQ 0183

003711

END ;OF IF

R
R R R

———

©O

33§

END CSRSTUFF

067207

TYPEIT

.DSABL

CRF

013746

002102

MOV

BANK, -(SP)

104403
003

TYPOS
.BYTE
BYTE
.DSABL
TYPEIT

067245

.DSABL

004737

004000
002226

3
O
CRF

002236

000001

002232
002240

CRF

PERBNK
CALL
END ;OF IF SUCCESS

L143:;::::4:
ADD #4000,CSRFIRST

BLE B20
E20::3:3333

€17

ADD

MOv

002332
016040

;s TYPES BANK NUMBER

::60 TYPE--OCTAL ASCII
::TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS

TYPE
MSGB34
,MSGB34

INC
SPLTCSR
END; OF FOR MKCNT

016476
016476

: ;SAVE BANK FOR TYPEOUT

CMP CSRFIRST,CSRLBANK

;

0l
01
01647
6969 016474
6970 01647

BANK,<TYPES BANK NUMBER>,3

002234

002240

177777
002240

TYPOCS

END; OF FOR CSRFIRST

002226

TST SUCCESS

BNE L143

TYPE
MSGA34
,MSGA34

104401

E2l::::33:

IF SUCCESS
IS FALSE

005737
001012

BLE B22
R
EE R

14:

002222

002102
MKCNT:

INC MKCNT
CMP MKCNT,CSRINT
BLE B17
SRR RET

#2, CSRFBANK

#1,SPLTCSR

CLR
POP

SPLTCSR
R3,R2,R1,R0,BANK

RETURN
JHORD

CMt
R3,CSRLOOP
BGY
1%
JMP
MKL
ECCINIT
i TRAP ON DOUBLE BIT ERRORS (NORMAL)
CONTFLAG
SET

MOV
MOV
MOV
MOV
MOV
MOV

;COUNTER FOR MKLOOP

#-1,CONTFLAG
(SP)+,R3
(SP).,R2
(SP)+,R1
(SP)+,RO
(SP)+,BANK

CVMJAAQ MSV11-J MEMORY DIAG

SUBR

C15

MACRO V05.01b Fridey 15-Feb-85 16:10

TEST ECC CSR LOGIC DISPATCH

6973 016500

SEQ 0184

SBETEST:SUBTST

<<CHECK FOR SBE FREE LOCATIONS>>

; *SUBTEST

CHECK FOR SBE FREE LOCATIONS

23;;

Page 193

T TN

;WRITE ZEROS WITH ECC DISABLE

6977
23.7,3

;IF NOT ZEROS THEN RETURN ERROR

6980

;WRITE ZEROS WITH ECC ENABLED BUT TRAPS DISABLED

2333

;READ ZEROS BACK

;IF NOT ZEROS THEN RETURN ERROR

698

;READ ZEROS BACK

6984
gggg

;TEST THE LOCATION FROM THE PAR'S (WITH NO PROGRAM FETCHES)
;IF THERE WERE ANY SBE'S OR DBE'S THEN RETURN ERROR

6987

;COMPLIMENT ZEROS TO ONES WITH ECC DISABLE

6988
gggg

;:READ ONES BACK
;IF NOT ONES THEN RETURN ERROR

6991
699
699

;WRITE 100,,100000,00000 (CHECKBITS COMPLIMENT OF BEFORE)
;__WITH ECC ENABLED BUT TRAPS DISABLED
;TEST THE LOCATION FROM THE PAR’'S (WITH NO PROGRAM FETCHES)

gg:g

;IF THERE WERE ANY SBE'S OR DBE'S THEN RETURN ERROR

6996
6997

:IF NONE OF THE ABOVE FORCES A RETURN ERROR THEN RETURN NO.ERROR
.ENABL LSB

6998 016500
016500
016502
016504

6999 016506
7000 016512
7001 016516
016516
016524

010046
010146
010446

013701
013704

002412
002414

053737

002552

104424

7003 016526
7004 016530
016530
016532
7005 016534

005011
005014
005711

7007 016540

005714

7006 016536

;883 016542

7010 016544
7011 016546

104471

177776

PUSH

RO,.R1,R4

MOV
MOV

TESTADD,R1
TESTADD+2,R4

CACHOFF

: TURN CACHE OFF

ECC1DIS
CLEAR
(R1),(R4)
TST

BNE

SBENT

001105

BNE

SBENT

104503

CLRICSR
CLEAR
(R1).(R4)

TST

001100

BNE

SBENT

7015 016560

001076

BNE

SBENT

104510

TSTREAD

7014 016556

7017 016562

005714

TST

CLR
CLR

(R1)
(R4)

CLR
CLR

(R1)
(R4)

(R4)

7013 016554

18T

;:DISABLE ECC ON 1 SELECTED CSR

(R1)

001107

005711

MOV RO, -(SP)
MOV R1,-(SP)
MOV R4, -(SP)

;ENTER TEST MODE
;GO TO SYSTEM TEST MODE

005011
005014

7012 016552

;PUSH RO,R1,R4 ONTO STACK

TESTAREA
ngmL EE?THODE PSW

016546
016550

7016

T L L

;

6976

7002

T T

;IN ORDER TO DETERMINE IF A LOCATION IS SBE FREE I DO THIS

(R1)

;CLEAR 1 SELECTED CSR

(R4)

;TEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES)

CVMJAAQ MSV11-J MEMORY DIAG.
CHECK FOR SBE FREE LOCATIONS
7018 016564

100020

002150

016574

012737
104512
013700
072027
042700

177777

002066

016620
016624

7025 016626
016626
7026 016626
7027 016630
7028 016632
7029 016634
7030 016640
7031 016642
7032 016646
7033
7034 016650
7035 016652
7036 016654
7037 016660
7038 016662
7039 016664
7040 016670
7041
7042 016672
7043 016674

104471
005111
005114
023711
001046
023714
001043
104503
005011
012714
005711
001035
022714
001032

002460
177774

177600

002102

002614

100000

CMP
BNE

002150

016704

012737
104512
013700
072027
042700

177777

002066

016736
016740
016742
016744

023700
001410

104417
104473
104423

016744
016740
016750

012604
012601
012600

016752
016754

000241
000207

7056 016752

002460

177774
177600

002102

CMP BANK,RO

BEQ SBENT

ade

;DISABLE ECC ON 1 SELECTED CSR

(R1)
(R4)
ONES, (R1)
SBENT
ONES, (R4)
SBENT

;CLEAR 1 SELECTED CSR

(R1)
SBENT

#BIT1S,(R4)
SBENT
;TEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES)

IF #BIT15!BIT4 SET.IN CSR
SET SKPERR

BIT #BIT15!8174,CSR
BEQ L145
;DISABLE ERRGEN'S ERROR PRINTOUT
MOV

ERRGEN
ERRADD,RO
MOV
ASH

#-1,SKPERR

R
R

TSTREAD

104510

MOV

ERRGEN
MOV
ERRADD.RO
ASH
#-4,R0
#tCi77.RO
BIC
IF BANK EQ RO THEN GOTO SBENT

ST
BNE

100000

gé; OgITIS'BITl.CSR

;:DISABLE ERRGEN'S ERROR FRINTOUT

CLR1CSR
CLR
(R1)
MOV
#BIT15,(R4)

100020

016730
016734
7050 016736
016736
7051

SET SKPERR

ECC1DIS
COM
COM
CMP
BNE
CMP
BNE

032737
001415

016712
016714
016720
016724
016730

IF #BIT15!BIT4 SET.IN CSR

END; OF IF #BIT1S

016674
016702

7044 016704

7057

023700
001454

Page 193-1

SEQ 0185

032737
001415

7020 016602
7021 016604
7022 016610
7023 016614
7024 016620

7052
7053
7054
7055

MACRO V05.01b Friday 15-Feb-85 16:10

016564
016572

7019 016574

7045
7046
7047
7048
7049

D15

#-1,SKPERR

#-4,R0O

BIC.
#tC177.RO
IF BANK EQ RO THEN GOTO SBENT
END; OF IF #BIT1S
KERNEL

ECCLINIT
CACHON
POP
R4,R1,RO

$RETURN NOERROR

CMP BANK,RO
BEQ SBENT
L145:;;::;:;
;ENTER KERNEL MODE

;INITIALIZE 1 SELECTED CSR
;TURN CACHE ON
;POP RO,R1 & R4 FROM STACK
MOV (SP)+,R4
MOV (SP)+,R1
MOV (SP).,RO
CLC

RTS PC

CVMJAAQ MSV11-J MEMORY DIAG.
CHECK FOR SBE FREE LOCATIONS
7058 016756

104503

016760
016762

005011
005014

7063 016772
016772
016774
016776

012604
012601
012600

017000
017002

000261
000207

7059 016760

7060 016764
7061 016766
7062 016770

7064 017000
7065

104417
104473
104423

E15

MACRO V05.01b Fridey 15-Feb-85 16:10
SBENT:

CLRICSR
CLEAR

KERNEL
ECCLINIT
CACHON

POP

(R1),(R4)

R4,R1,RO

$RETURN ERROR
.DSABL

LSB

Page 193-2

SEQ 0186
;CLEAR 1 SELECTED CSR

CLR
CLR

;ENTER KERNEL MODE
;INITIALIZE 1 SELECTED CSR
:TURN CACHE ON

(R1)
(R4)

;POP RO,R1 & R4 FROM STACK
MOV (SP)+,R4
MOV SP)+.R1
MOV (S5P)+.RO

SEC
RTS PC

CVMJUAAQ MSV11-J MEMORY DIAG.
CHECK FOR SBE FREE LOCATIONS

E
: SUBTST
CSRCAS

7068 017004

; *SUBTEST

017074
017074
017076
017100

7103 017102

kR kR kR

kR Rk

kbR

T I Ittt

kbR ke r bR d b

ASL asP

017074

;WARNING IF YOU CHANGE THIS TABLE ALSO
;CHANGE "$DDWO" - "$DDWS" (THE PATTERN BIT MAP)
MKCSRT:

; PAT
MT0006

TIME

;<1 SEC

JSR PC,L146

DESCRIPTION
INITIAL DATA TEST

MSV11-J ECC TESTS

020320

024220
024220
024220
024220
024220
024220
024220
024220
024220
024220
024220
062616
013646
004736
000207

MT0044
MT0014
MT0045
MT0036
MT0020
MT0037
MT0041
MT0042
MT0043
MT0046
MT0047
MT0010
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999

END ;OF CASE RO

024024
020354
024104
023560
020456
023622
023660
023740
023774
024134
024164

SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC

7100 017070
7101 017072
7102 017074

017060
017062
7098 017064
7099 017066

Rk kR

CASE RO

017056

CSR PATTERN CASE STATEMENT

kbR

017026
017030
017032
017034
017036
017040
017042
017044
017046
017050
017052
017054

020222

7070
7074
7072
7073
7074 017014
7075
7076
7077
7078
7079 017016
7080 017020
7081 017022
7082 017024

010046
006316
004737

017004
017006
017010

k bk

7069 017004

<<CSR PATTERN CASE STATEMENT>>

22ttt

Page 195

SEQ 0187

o COOCOOCOOOOOH
I
i b b s s = U

F15

MACRO V05.01b Friday 15-Feb-85 16:10

SHIFTING 1/0'S THROUGH CHECK BITS
BASIC DOUBLE ERROR TEST
SYNDROMES TO CSR _ON DOUBLE BIT ERROR TEST
CORRECTION CODE TEST
SYNDROMES TO CSR ON SINGLE BIT ERROR TEST
ECC DISABLE TEST

ADDRESS TO CSR ON DOUBLE BIT ERROR
EXTENDED ADDRESS TO CSR ON ERROR TEST
WRITE BYTE CLEARS SBE TEST
CHECK SINGLE BIT ERRORS WITH ECC DISABLED TEST
NO CSR UPDATE ON SBE WITH EXSISTING DBE
BYTE ADDRESSING TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
NULL TEST
ADD (SP)+,asP

RETURN

MOV @(SP)+,-(SP)
JSR PC,a(SP)«

CVMJAAQ MSV11-J MEMORY DIAG.
' CSR PATTERN CASE STATEMENT

G15

MACRO V05.01b Friday 15-Feb-85 16:10

7106 017104

<<SUBR

ECC TEST DISPATCH>>

; *SUBTEST

SUBR

ECC TEST DISPATCH

017104
017112
017114
017120
017122

032777
001003
005737
001402

017124
017126

000401

7108 017122
7109 017124

7110 017126
7111 017130

000001

104470

104502

012737

000002

7114 017144

013700

002112

7115 017150

7116 017152

017152
017160
017162
017170

7117 017172
7118 017174
017174

7119 017174

7120 017200
7121 017206

7122 017212

017212
017220
017222
017226
017230

7123 017230
7124 017232
017232
017234

7125 017234
7126 017236

017236
7127 017236

;{gg 017242

163524

012737

006300

026027
001405
026027
001401

000002

002076
002326

162737
004770
032777
001003
005737

001402

017244

023346

017244

024220

002146

000002
017244

002146

000001

163416

7135 017246

7136 017250
7137 017252
7138 017254

BIT #SWO0,aSWR
BNE L147
TST ACTFLAG
BEQ L150
L147:;;:::::

;CLEAR ALL CSR'S

BR L151
L1S0:;::::5::

MOV

#2 ,NOPAR

L1S1:5:::::
;INDICATE PARITY ACTION

MOV

PATTERN RO

;GET PATTERN NUMBER

MOV

#2,PCBUMP

;TRAPS ADD 2 TO PC

;MAKE IT A WORD ADDRESS

IF MKPAT(RO) NE #M70034 AND H(PAT(RO) NE #MT0999

MOV

SuB
CALL

SP,CTLKVEC

#2,CTLKVEC
aMKPAT(RO)

CMP MKPAT(RO),#MT0034
BEQ L152
CMP MKPAT(RO),#MT0999
BEQ L152

; INVALIDATE BACKGROUND PATTERN ON "BANK"
L1S2:;:::::

;SAVE VECTOR IN CASE OF tK

;INDEX OFF TABLE

IF #SWO SET.IN @SWR OR ACTFLAG IS TRUE

BIT #SW0,aSWR
BNE L153
TST ACTFLAG

BEQ L154
L153:::::::

ENASBE

;TRAP ON SINGLE BIT ERRORS

BR L155

LAS8:a2aias

ECCINIT
END ;OF IF #SuWO

002076

CLR

RETURN

NOPAR

; TRAP ON DOUBLE BIT ERRORS (NORMAL
)

L155:;::::::
;INDICATE PARITY ACTION

;WARNING IF YOU CHANGE THIS TABLE ALSO
;CHANGE "$DDWO" - "$DDWS" (THE PATTERN BIT MAP)

020256
017544
017640

CLRCSR
END ;OF IF

ELSE

104472

023346
020434

A AN

002350

7130
7131

7132
7133 017244
7134 017244

;DISABLE ERROR CORRECTIW

INVALIDATE

000401

000207

ECCDIS
ELSE

END ;OF IF MKPAT(RO)

104506

005037

IF #SWO0 SET.IN @SWR OR ACTFLAG IS TRUE

ASL

104511

010637

002350

017130
7112 017130

7113 017136

SEQ 0188

MKTEST: SUBTST
B

7107 017104

Page 197

- MKPAT:

:PAT
TIME
DISCRIPTION
NOTE MT0034 MUST BE FIRST & LAST
HT0034
;<1 SEC
;:SOFT ERROR - BACKGROUND PATTERN TEST

MTO0017

MT0007
MT0001
MT0002

:<1 SEC

;<1 SEC
;<1 SEC
;<1 SEC

;HOLDING 1'S € 0'S TEST

;ADDRESS BIT TEST
; ADDRESS TEST
;:COMPLEMENT ADDRESS TEST

CVMJAAQ MSV11-J MEMORY DIAG.
'SUBR
ECC TEST DISPATCH

H15

MACRO V05.01b Friday 15-Feb-85 16:10

020070
020140

MT0004
MT0005

7142
7143
7144
7145

021026
021332
021124
022454

MT0022
MT0026
MT0024
MT0031

023160
023346

MT0033
;35 SEC
;BRANCH GOBBLE TEST
MT0034
;<1 SEC
:SOFT ERROR - BACKGROUND PATTERN TEST
;NOTE MT0034 MUST BE FIRST & LAST
MT0999
; O SEC
:NULL TEST
MT0999
; O SEC
:NULL TEST
MT0999
; O SEC
.
:NULL TEST
MT0999
; O SEC
:NULL TEST
MT0999
; O SEC
:NULL TEST
MT0999
; O SEC
:NULL TEST
MT0999
; O SEC
iNULL TEST
MT0999
; O SEC
:NULL TEST
MT0999
; O SEC
:NULL TEST

017264
017266
017270
017272

7146 017274

7147 017276
7148 017300
7149
7150 017302
7151 017304
7152 017306
7153 017310
7154 017312
7155 017314
7156 017316
7157 017320
7158 017322

020536

022644

024220
024220
024220

024220
024220

024220
024220
024220
024220

1 SEC
1 SEC

SEQ 0189

7139 017256
7140 017260

7141 017262

:
:

Page 197-1

MT0021

; 1 SEC

MT0032

;<1 SEC

;10
;<1
;20
; 3

SEC
SEC
SEC
SEC

;ROTATING ZERQS TEST
:ROTATING ONES TEST

;MARCHING 0'S & 1'S TEST

;REFRESH & SHIFTING DIAGONAL
;RANDOM DATA TEST
:FAST GALLOPING PATTERN TEST
:S0B-A-LONG TEST

:WRITE RECOVERY TEST

TEST

CVMJAAQ MSV11-J MEMORY DIAG.
ECC TEST DISPATCH
SUBR

115

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0190
MJTEST: SUBTST

7161 017324

S22

222 22 22

; *SUBTEST
A

7162
7163
7164
7165
7166

017324
017332
017340
017346
017354

7167 017360

7168 017362

017362
017370
017372
017400

7169 017402
7170 017404

7171
7172
7173
7174
7175
7176
7177
7178
7179

017404

017404
017410
017416
017422
017426

7180
7181 017430

7182 017430
7183 017432
7184 017434
7185 017436
7186 017440
7187 017442
7188 017444
7189 017446

7190 017450

7191 017452
7192 017454
7193 017456
7194 017460
7195 017462
7196 017464
7197 017466
7198 017470
7199 017472
7200 017474
7201
7202 017476
7203 017500
7204 017502
7205 017504
7206 017506

012737
012737
012737
012737
013700

002076
002326
002412
002414

010637

162737
004770
005037

000207

22 2

ASL

017430

023346

017430

024220

PARITY TEST DISPATCH>>

<<SUBR

SUBR

222222 22 a2

MOV
MOV
MOV
MOV
MOV

006300

026027
001405
026027
001401
104511

addd d

017430
002076

Edd da d

PARITY TEST DISPATCH
a2 d a2

#2 ,NOPAR
#2,PCBUMP
#FIRST,TESTADD
#FIRST+2,TESTADD+2
PATTERN,RO
RO

MOV

SUB
CALL
g%?uau

002146

023346
020222
020434
020256
017544
017640
017754
020070
020140
020536
023446
021026
021060
021332
021124
022454
022644
023160
023346
024220
024220
024220
024220
024220

)

CMP MJUPAT(RO),#MT0034
BEQ L156
CMP MJPAT(RO),#MT0999

;INDEX OFF TABLE
:INDICATE PARITY ACTION

;PAT

TIME

PISCRIPTION

MTO0034
MT0006
MTO017
MT0007
MT0001
MT0002
MT0003
MT0004
MT0005
MT0021
MT0035
MT0022
MT0023
MT0026
MT0024
MT0031
MT0032
MT0033
MT0034

;<1
;<1
;<1
;<1
;<1
;<1
; 1
; 1
; 1
; 1
;<1
;10
;10
;<1
;20

; 3
;<1
;35
;<1

SEC
SEC
SEC
SEC

;SOFT ERROR - BACKGROUND PATTERN TEST
:INITIAL DATA TEST
;HOLDING 1'S €& 0'S TEST
;ADDRESS BIT TEST
;ADDRESS TEST
;COMPLEMENT ADDRESS TEST
;3 XOR 9 WORST CASE NOISE TEST
;ROTATING ZEROS TEST
;ROTATING ONES TEST
;MARCHING 0'S € 1'S TEST
;WORSE CASE NOISE PARITY TEST
;REFRESH TEST
:SHIFTING DIAGONAL
TEST
;RANDOM DATA TEST
;FAST GALLOPING PATTERN TEST

;S0B-A-LONG TEST
;WRITE RECOVERY TEST
;BRANCH GOBBLE TEST
;SOFT ERROR - BACKGROUND PATTERN TEST

MT0999
MT0999
MT0999
MT0999
MT0999

;
;
;
;
;

SEC
SEC
SEC
SEC
SEC

;NULL
;NULL
:NULL
;NULL
;NULL

:NOTE MT0034 MUST BE FIRST & LAST

;NOTE MT0034 MUST BE FIRST & LAST
O
O
O
O
O

T T I I

;MAKE IT A WORD ADDRESS

;SAVE VECTOR IN CASE OF #K

#2. CTLKVEC
@MJPAT(RO)
NOPAR

T 112222

;GET PATTERN NUMBER

BEQ L156
; INVALIDATE BACKGROUND PATTERN ON “BANK"
e

SP,CTLKVEC

SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC

;WARNING IF YOU CHANGE THIS TABLE ALSO
;CHANGE "$DDWO" - "$DDWS" (THE PATTERN BIT MAP)
MJPAT:

;INDICATE PARITY ACTION
; TRAPS ADD 2 TO PC

IF MJUPAT(RO) NE #MT0034 AND MJPAT(RO) NE #MT0999

INVALIDATE
END ;OF IF MJPAT(RO)
002146
000002

Page 199

TEST
TEST
TEST
TEST
TEST

CVMJAAOQ MSV11-J MEMORY DIAG.

PATTERNS
f

J15

MACRO V05.01b Friday 15-Feb-85 16:10

;ggg

L7210

7211 017510

PATTERNS

.SBTTL

MEMORY TEST SETUP ROUTINES

; #SUBTEST
7212 017510
7213 017514
7214 017520
7215 017524

7216 017530

7217 017536
7218 017542
7219 017544

005037
012700
012701
004737

002300
060000
040000
032470

004737
000207

024446

012737

024640

skt

002262

7230 017612
7231 017616
7232 017620
7233 017624
7234 017632
7235 017636

012737
012700
012701
005737
001005
023737
001007
000404
023737
001002

012701
005002
004737
012737
004737
000207

000001
060000
040000
002456

002300

CLR
MOV
MOV
CALL

CALL
RETURN
MT0001: SUBTST

172252

172254

177652

177654

030000
032470
024664
024446

shkkkkkkkb

2%:

34:
4s:
002262

SETUP DATA PATTERN TEST>>

MTO000

T2 352

SETUP DATA PATTERN TEST

MOV
MOV
MOV
ST
BNE
cMP
BNE
BR
CMP
BNE

REALPAT
#FIRST,RO
#SIZE,R1
REGCOPY

MOV
CLR
CALL
MOV
CALL
RETURN

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

#MTP0O00, SUPDOADD

;ELSE DO PATTERN IN MAIN MEMORY

SUPDO3

<<MT0001

SETUP ADDRESS TEST>>

R Rk Rk

i *SUBTEST

7220 017544
7221 017552
7222 017556
7223 017562
7224 017566
7225 017570
7226 017576
7227 017600
7228 017602
7229 017610

<<MT0000

kb kb
kR
kR kb k bkt bbb ekt b bR R a

MOV

sRER

SEQ 0191

.SBTTL
MT0000: SUBTST
A

Page 200

MT0001
kb

k kR kR

kR kbR bk

SETUP ADDRESS TEST

kb kb bbbk kb

kk kb kbbb kb kb kb k kR kb kkkkk

#1,REALPAT
#FIRST,RO
#SIZE,R1
NOSUPER
28
SIPARS, SIPARG
4
34
UIPARS,UIPARG
4

#30000,R1
Rz
REGCOPY
#MTPOO1 , SUPDOADD
SUPDO3

kbbbt kb b bbb bbbt

bk bk kb kb bk r kb b kb et bR

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

:SET UP CALLING ADDRESS

K15

MACRO V05.01b Friday 15-Feb-85 16:10
SETUP COMPLEMENT ADDRESS TEST

CVMJUAAQ MSV1l1-J MEMORY DIAG.

-MT0002

7236 017640

MT0002:

SUBTST

Page 200-1

SEQ 0192

<<MT0002

SETUP

COMPLEMENT

ADDRESS

TEST>>

ettt
ittt
L
T
Y T L L

; *SUBTEST

7237 017640

7238 017646
7239 017652
7240 017656
7241 017662

7242 017666
7243 017672
7244 017674
7245 017702
7246 017704
7247 017706
7248 017714
7249 017716
7250 017722
7251 017726
7252 017732
7253 "17736
7254 (17740
72355 017746
7256 017752

012737
012700
012701
012704
012705
005737
001005
023737
001013
000404
023737
001006
012701
012700
012705
012702
010103
012737
004737
000207

000002
160000
040000
060000
100001
002456

002300

172252

172254

177652

177654

030000
140000
120001
000001
024716
024446

002262

MOV
MOV
MOV
MOV
MOV
TST

CMP
2%:

CMP

MOV

44:

MOV

MT0002

SETUP COMPLEMENT ADDRESS TEST

#2,REALPAT

#LAST+2,R0

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

#SIZE,R1
#FIRST,R4
#100001,R5

NOSUPER
2%

2}PARS.SIPAR6

34
2}PARS.UIPAR6
#30000,R1
#140000,R0
#120001,R5
#1,R2
R1,R3
#MTP0O02, SUPDOADD
SUPDO3

;SET UP CALLING ADDRESS

CVMJAAO MSV11-J MEMORY DIAG.

MT0002

LAY

MACRO V05.01b Fridey 15-Feb-85 16:10

7259 017754

SEQ 0193
MT0003:
R

SUBTST

Ad Al

; *SUBTEST
AL

7260 017754

017754
017760
017762
017764

7261 017764

7262 017772

7263 017776
7264 020002
7265 020006
7266 020012
7267 020016
7268 020022
7269 020026
7270 020030
7271 020036
7272 020042
7273 020044
7274 020052
7275 020056
7276
7277 020064
7278 020066
7279
7280 020070

7281 020070
7282 020076
7283 020104
7284 020110
7285 020114
7286 020120
7287 020124
7288 020132
7289 020136
7290 020140

i E
2

002132

7300 020212
7301 020220

SETUP 3 XOR 9 WORST CASE NOISE TEST>>

012737
005037
004737
012701
012703
072327
012702
012705
104415
012737
004737
104416
012737
004737
022737

000003
002326
032500
060000
020000
177770
000004
000100

002300

024750
024446

002262

025010

002262

T T I

T T T

SETUP 3 XOR 9 WCRST CASE NOISE TEST

TST EQFLAG

BEQ L157

1%:
2%:

MOV
CLR
CALL
MOV
MOV

#3 ,REALPAT
PCBUMP
FLIPWARN
#FIRST,R1
#20000,R3

MOV
MOV
SAVREG
MOV
CALL
RESREG
MOV
CALL
CMP

#4,R2
#64. ,R5

ASH

002616

4¢:

001344
000207

BNE
RETURN

RTS PC
L157:::::33

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
; TRAPS DO NOT ADD TO PC
;SETUP WARNING CONSTANTS & R2
:R1 <-- STARTING ADDRESS

#-8.,R3

;R3 <-- R3 / 256.

#MTPAQ3, SUPDOADD
SUPDO3

;D00 IT IN MAIN MEMORY

#MTPBO3, SUPDOADD
SUPDO4
#3,FLIPLOC

;DUNE WITH 4 PATTERNS

;SMALL LOOP SIZE
;MEDIUM LOOP SIZE

;&80.1135;7):(177777.0):(401.177777);(177777.401)17

MTO0004: SUBTST

<<MT0004

SETUP ROTATING ZEROS TEST»>>

skkdkkkkdkkbkkkkkbbkkkk
kb
bk bk kkk kb bk kbR kb kR kbbb ket h kb kR b bk R R R R RS

012737
012737
013702
004737
012700
012701
012737
004737
000207

002300
002326

024462

shkkkkkk

kb tkbd

MOV
MOV

MOV

CALL
MOV
MOV
MOV
CALL

002262

RETURN

MT0005: SUBTST
s ERRER

012737
012737
005002
004737
012700
012701
012737
012737
004737
012737
000207

000005
000004

002300
002326

032630

024462
025122

002262
025160
025160

MTO004

kbbb kb

MOV
MOV

CLR
CALL
MOV
MOV
MOV
MOV
CALL
MOV

k kb

kb kb

kk ki bk kR k kR bbbkt R ke Rk Rk k kR Rk b bRk bR RN

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
; TRAPS ADD 4 TO PC

ONES,R2

BACKGND
#FIRST,RO
#SIZE,R1
#MTPAO4
, SUPDOADD
SUPDO4
<<MT0005
E

MTO005

kbbb kb kb kR

RETURN

SETUP ROTATING ZEROS TEST

#4 ,REALPAT
#4 ,PCBUMP

kAR kR kAR R

shkkkbkkkdk

020154
020156
020162
020166
020172
020200
020206

MTO003

; *SUBTEST
7291 020140
7292 020146

<<MT0003

IF EQFLAG IS TRUE THEN $RETURTM

005737
001401
000207

024462
000003

; *SUBTEST

7293
7294
7295
7296
7297
7298
7299

Page 202

SETUP COMPLEMENT ADDRESS TEST

R R R

;WRITE BACKGROUND OF ONES
:SET UP LINKS
SETUP ROTATING ONES TEST>>

AR R R Rk R R R

R kR kR Rk

SETUP ROTATING ONES TEST

bbbk kR kb kb kb ke Rk Nk bk kb

#5,REALPAT
#4 ,PCBUMP

R2
BACKGND
#FIRST,RO
#SIZE,R1
#MTPOOS, SUPDOADD
#MTP005+14 ,MTPB04+16
SUPDO4
#MTPAO4+14 ,MTPBO4+16

kR R R SRk R RN ke e b SRS e e Rk SR

nk kb ke kR Rk ke R e R

kbR R NS

R e

;SETUP PATTERN NUMBER FOR TYPEQUT & DISPLAY
; TRAPS ADD 4 TO PC

;WRITE BACKGROUND OF ZEROS
:SET UP LINKS

;RESET TEST'S ORIGINAL VALUE

—

——

CVMJAAO MSV11-J MEMORY DIAG.

' MT0005

M15

SETUP ROTATING ONES TEST

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 204

SEQ 0194
MT0006:

7304 020222

SUBTST

<<MT0006

SETUP INITIAL DATA TEST>>

e
T
L
T T I Lt

;*SUBTEST
7305 020222
7306 020230
7307 020236
7308 020242
7309 020250
7310 020254
7311 020256

012737
012737
012701
012737
004737
000207

002300

002412

025216
024446

MOV

002326

MOV
MOV
MOV
ge#bflfl

002262
MT0007:

SUBTST

MT0006

SETUP INITIAL DATA TEST

ettt

; *SUBTEST

7312
020256
7313
020264
7314 020266
7315 020272
7316 020276
7317 020302
7318 020304
7319 020312
7320 020316
7321 020320

012737
005002
004737
012701

000007

002300

032630
060000
000001

025416

023446

002262
MT0010:

E?x

<<MT0007

020320
020326
020334
020340
020346
020352

MT0007

012737
012737
013704
012737
004737
000207

000010
000004
002412
025516
024446

002300
002326
002262

<<MT0010

R R

R AR A

R R

SRR RSSO R R Rt

L T T T

T T

;:SETUP PATTERN NUMBER FOR TYPFOUT & DISPLAY
;OF ZEROS

;D0 IT IN SUPERVISOR MODE
SETUP BYTE ADDRESSING TEST>>

bk kb kb bk kb kkkkkkkk kb

;D0 17 IN SUPERVISOR MODE

SUBTST

MOV
MOV
MOV
MOV
Se%bflfl

: TRAPS ADD 4 TO PC

SETUP ADDRESS BIT TEST

BACKGND
#FIRST,R1
#1,R2
R2,R1
#MTPOO7, SUPDOADD
SUPDO3

MT0010

SETUP ADDRESS BIT TEST>>

gZ.REALPAT

sekkbkkkbhkbhbbkk

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

R R AR R

CALL
MOV
MOV
BIS
MOV
SE#bRN

; *SUBTEST

7322
7323
7324
7325
7326
7327

#4,PCBUMP
#TESTADD,R1
#MTPQ06
, SUPDOADD
SUPDO3

SEERRRRRRRRRRERRR RS R RR R RN R R R R
T

6 ,REALPAT

kkkkkkkk kb

kkkk kb kb kR bk k kb kb ke kbbb

SETUP BYTE ADDRESSING TEST

#10,REALPAT
#4 ,PCBUMP
TESTADD,R4
#MTP010, SUPDOADD
SUPDO3

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
; TRAPS ADD 4 TO PC
;D0 IT IN SUPERVISOR MODE

—

CVMJUAAQ MSV11-J MEMORY DIAG.

MT0010

N15

MACRO V05.01b Friday 15-Feb-85 16:10

SETUP BYTE ADDRESSING TEST

7330 020354

MT0014:
D

SUBTST

bbbttt

; #*SUBTEST
7331 020354

7332 020370

020370
020374

820376
20400

7334 020400
7335 020406
7336 020412
7337
7338
7319
7340

020412

020416
020422
020426
020432

MT0014

SEQ 0195

SETUP BASIC DOUBLE BIT ERROR TEST»>>
ettt

SETUP BASIC DOUBLE BIT ERROR TEST

T
T I I

005737
001003
005737
001404

005737
001401
000207

IF ACTFLAG IS TRUE OR APTFLAG IS TRUE

002350

TST ACTFLAG

BNE L160

002352

TST APTFLAG

BEQ L161

IF $PASS NE #0 THEN $RETURN

056654

END; OF IF ACTFLAG

012737
004737

000014
037740

012701
004737
004737
004737
000207

100000
032674
025624
040026

L160:;;:::3

TST $PASS

BEQ L162

7333 020400

020400

<<MT0014
2

Page 206

002300

MOV

CALL

LET R1

RTS PC
L162:::::::

L1l

914 ,REALPAT

;SETUP PATTERN NUMGER
FOR TYPEOUT & DISPLAY

:= #100000

iSETUP TEST ADDRESS

MAPKERNAL

CALL ‘GETCSR

CALL MTPO14
Sg%baNUNHAP

'MAP KERNAL SPACE

MOV #100000,R1

sGET CSR_INFO FROM CONFIGURATION TABLE
;00 BASIC DOUBLE BIT ERROR TEST
;UNMAP KERNAL SPACE

CVMUAAQ

MT10014

SEYUP BASIC DOUBLE

B1€

mcao V05.01b Fridey 15-Feb-85 16:10

SEQ 0196

7343

7344 020434

MT0017: SUBTST

<<MTO017

;998898895988 88 455

s *SUBTEST

Peage 208

002300
002262

MT0017

A d 2 2 2 2l 2222 2t il

MOV
MOV

CALL
RETURN

S R

SETUP HOLDING 1'S & 0'S»

LRERNRANLR

RN RLES

TN RN R

RN RNE RN

IR NG RO O RS

SETUP HOLDING 1'S € 0'S

dddd ddd a2 2ttt

#17,REALPAT

um'rou SUPDOADD

i d

S ddd i

T T

]

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

;00 IT IN SUPERVISOR MODE

cvmm

ST0017° SETOP HOLDING 175 € 05

MACRO V0S5.01b Fridey

7351 020456

7352 020456

020456

020462

7353

020472

0472
020476

0205002

7354 838382
2

7;;3 0

osu

020

7360 020

C16

15-Feb-85 16:10

<<MT0020

; $SUBTEST

MT0020 SETUP SYNDROMES TO CSR ON SINGLE BIT ERROR

005737

002350

737

002352

005737
001401

056654

001404

000207

S RN RN R

i 222222 2 222 2

22222 2222

REENRRRRRRE R ARV RARTRRN RN RN LR NSRS

22 2t

R RO R E RO @

T T

TST ACTFLAG

BNE L163

TST APTFLAG

IF $PASS NE 20 THEN $RETURN

END; OF IF ACTFLAG

004737

037740

MOV

012701

100000

004737
004737

026126
040026

CALL GETCSR

gb 020 34 000207

SETUP SYNDROMES TO CSR ON SINGLE BIT ERROR>>

RSN

IF ACTFLAG IS TRUE OR APTFLAG IS TRUE

012737 000020 002300

004737 032674

SEQ 0197

MT0020: SUBTST
;8588598854

884003

Page 210

CALL

#20,REALPAT

WKERNAL

LET R1:= #100000
CALL MTPO20
CALL UNMAP

RETURN

BEQ L1664
L163::::::s

TST $PASS
BEQ L16S

RTS PC
SRR

L164:; }' :

;SETUP PATTERN NUMBER 0& *YPEOUT & DISPLAY
;MAP KERNAL SPACE

:SETUP TEST ADDRESS

MOV #100000,R1

;GET CSR INFO FROM CONFIGURATION TA‘L

;D0 SYNDROMES TO CSR ON SINGLE ERROR TEST
;UNMAP KERNAL SPACE

CVMJAAQ MSV11-J MEMORY DIAG.

MT0020

D16

MACRO V05.01b Fridey 15-Feb-85 16:10

7363 020536

MT0021: SUBTST

<<MT0021

i 22t 222 222 2

22222

; $SUBTEST

MOV

020552 013702 002632

020556

004737

7368 020562 010203
7399
000303

7370

7371 020572
7372 020574
7373 020600
7374 02606
7375 020610
7376 020616
7377 020620
7378 020626
7379 020630

7380 020634
7381 020636
7382 020644
7383 020646
7384 020652
7385 020654
7386 020662
7387 020666

MOV

032630

CALL

MOV
SWAB

012701 160000

010105
012704
022737
001450
022737
001407
022737
001003
012701

MOV

060000
000005 004010

000003 004010

000007 002102
140000
000177 002102 3$:
140000
026442 002262 5%:

010105
022737
001003
012701
010105
012737
004737 024446
012737 026472 002262

7388 020674

004737

024462

7391 020710

004737

024462

7389 020700 010401

7400
020754
7401 020760
7402
020766

012737
004737
000434
022737
001003
012701
010105
012737

004737
012737
004737

024462

000177 002102 1%:
140000
026442 002262 44:
002262

7403 020772 010401
7404 020774 012737 026526 002262
7405 021002 004737 024462
7406 021006 012737 026562 002262
7407 021014
7408 021020
7409 021024

004737
005037
000207

024462
002440

RERR

#21,REALPAT
.

BAKPAT,R2

SUPDOD4

mipcu SUPDOADD

#MTPD21
, SUPDOADD
2
#177,BANK
43
#140000,R1
R1,RS
#MTPA21, SUPDOADD
SUPDO4

SUPDO3
—#MTPB21,SUPDOADD
SUPDO4

R4 ,R1
#MTPC21, SUPDOADD
SUPDO4

#MTPD21
, SUPDOADD

SUPDO4
NOSCOPE

S R

R R AR R

ssa

RN AR

R R

RN S

;SETUP PATTERN NUMBER so'a’o¥w§'
out*nnscooe
& DISPLAY

SLAST+2,R1

R1,RS
oFIRST,R4
#5,PROTYP
13
#3,PROTYP
38
27 .BANK
3$
#140000,R1

R RRRRRRRRRRRRA RN RN R

R2.R3
R3

SUPDO4

RETURN

BACKGND

CALL

CALL
CLR

EREFERER R AR

R4,R1

CALL
MOV
CALL

MT0021 SETUP MARCHING 0'S & 1'S TEST

MOV

MOV
MOV
CALL
MOV
24:

R1,RS
#177 BANK
5%
#140000,R1
R1,RS
#MTPA21, SUPDOADD
SUPDOD3
#MTPB21, SUPDOADD

MOV
CALL
BR
CMP
BNE
MOV
MOV
MOV

SEQ 0198

SETUP MARCHING 0°'S & 1'S TEST>>
a2

MOV
CMP
BNE
MOV
MOV
MOV
CALL
MOV

MOV

026562 002262

024446
026472
024462

MOV
MOV
CHMP
BEQ
CMP
BEQ
CMP
BNE
MOV

CALL

7390 020702 012737 026526 002262

7392 020714
7393 020722
7394 020726
7395 020730
7396 020736
7397 020740
7398 020744
7399
020746

22 22

SET NOSCOPE

7365 8535’24‘ 35333 333331’ 885%

7367

222

9SSR RS

7364 020536

7366

Page 211

SETUP SYNDROMES 710 CSR ON SINGLE BIT ERROR

;IS THIS AN 11/83
:BRANCH IF IT IS
:IS THIS AN 117247
:BRANCH IF SO

—

CVMJAAQ MSV11-J MEMORY DIAG.

MT0021

El6

MACRO V05.01b Fridey 15-Feb-85 16:10

SETUP MARCHING 0'S € 1°'S TEST

7411 021026

004737

021032
021034
021036
7414 021036

103001
000207

7415 021044
7416 021052

;:i; 021056

<<MT0022

;*SUBTEST

MT0022

I EESEER

7412 021026
7413 021032

MT0022: SUBTST

012737

012737
004737

000207

026612
024446

CALL

002300

MOV

002262

MOV
CALL

RETURN
MT0023: SUBTST
D

004737

051064
021066
021070

103001
000207

7422 021070

012737

CALL

002300

012737

026612

002262

012737

177777

002004

7426 021116
7427 021122

005037
000207

004737

024446

002004

R R

SR SRR O

RO 64

KAMITEST

;CHECK FOR KAMIKAZE MODE

#22 ,REALPAT

BCC L166
RTS PC
LlGG::axas*
;SETUP PATTERN NUMBER FOR TYPEOQUT & DISPLAY

#MTP022, SUPDOADD
SUPDO3
<<MT0023

;IF NOT IN KAMIKAZE MODE RETURN

;00 IT IN SUPERVISOR MODE
SHIFTING DIAGONAL TEST>>

MT0023

SHIFTING DIAGONAL TEST

KAMITEST

ON.ERROR THEN $RETURN

7423 021076
7424 021104
021104

7425 021112

RN RN RN

T
T
T T
T e
T s T T,
MM,
TmTmTTTTTTTTM

024234

000023

R TR SRR RRERRERRRRERRER

SETUP REFRESH & SHIFTING DIAGONAL TEST

L L L
PP

;*SUBTEST
7420 021060

SETUP REFRESH & SHIFTING DIAGONAL TEST»>»>

EIERR SRR TR

ON.ERROR THEN $RETURN

7419 021060

7421 021064

SEQ 0199

T
T
T
T
S
N
T T, TN TN

024234

000022

A E SRR SRR

Page 212

MOV

MOV
SET

CALL

CLR
RETURN

;CHECK FOR KAMIKAZE MODE

;IF NOT IN KAMIKAZE MODE RETURN

BCC L167
RTS PC
L167:zs;:3%

#23 ,REALPAT

;SETUP PATTERN NUMBER FNPR

SUPDO3

;IDENTIFY DIAGONAL TEST TO MTPO22
MOV #-1,DIAGFLAG
;00 IT IN SUPERVISOR MODE

#MTP022, SUPDOADD
DIAGFLAG
DIAGFLAG

TYPEQUT & DISPLAY

CVMJAAO MSV11-J MEMORY DIAG.

MT0023

SHIFTING DIAGONAL TEST

F16

MACRO V05.01b Friday 15-Feb-85 16:10

7429 021124

MT0024: SUBTST

Page 213

<<MT0024

SEQ 0200

SETUP FAST GALLOPING PATTERN TEST>>

D
T T
T

; #*SUBTEST

MT0024

SETUP FAST GALLOPING PATTERN TEST

T
T
T
TII
ETTTTTTTMTM

7430 021124
7431 021130

021130
021132
021134

004737

024234

CALL
KAMITEST
ON.ERROR THEN $RETURN

103001
000207

7432 021134

7433 gsifi; 8%5;33 égzz;z 885%88
7434 021150

7435 021154

7436 021160
7437 021162
7438 021164
7439 021166
7440 021172
7441 021176
7442 021204
7443 021206
7444 021214
7445 021216
7446 021224

013702

004737

010203
010304
000304
012701
012705
022737
001426
022737
001406
022737
001002

7447 021226
7448 021232
7449 021240

012705
022737
001003

7451
7452
7453
7454

010105
104415
012737
000412

7450 021242
021246
021250
021252
021260

7455 021262
7456 021270
7457 021272
7458 021276
7459 021300
7460 021306
7461
7462 021312
7463 021314
7464 021316
7465 021320
7466 021324
7467 021330

012701

032630

004010

000003

004010

000007

002102

137776
000177

002102

002262

000177

002556

137776

002440

’
BAKPAT ,R2

MOV
MOV
SWAB
MOV
MOV
CMP
BEQ
CMP
BEQ
CMP
BNE

R2,R3
R3,R4
R4
#FIRST,R1
#LAST,RS
#5,PROTYP
1
#3,PROTYP
34
#7,BANK
34

002262

7%:

14:
4%:
2%:

#24 ,REALPAT

BACKGND

MOV
CMP
BNE

#137776,RS
#177 ,BANK
7%

MOV
SAVREG
MOV
BR

R1,R5

MOV

027326

024462

005037
000207

3%:

137776

104416
000302
000303
004737

MOV

CALL

060000
157776
000005

027326
024462

NOSCOPE

MOV

002632

022737
001002
012705
104415
012737
004737

SET

#137776,R1

#MTPB24
, SUPDOADD

2%
#177 ,LASTBANK
44
#137776,RS

CMP
BNE
MOV
SAVREG
MOV
#MTPB24
, SUPDOADD
CALL
SUPDO4
;00 IT AGAIN FOR COMPLEMENT DATA
RESREG
SWAB
R2
SWAB
R3
CALL
SUPDO4

CLR
RETURN

NOSCOPE

;CHECK FOR KAMIKAZE MODE
;IF NOT IN KAMIKAZE MODE RETURN

BCC L170
RTS PC
L170::3:333

SETUP PATTERN NUMBER F020¥ YPgabimSCOPE
& DISPLAY

CVMJUAAQ MSV11-J MEMORY DIAG.

MT0024

Gl6

MACRO V05.01b Friday 15-Feb-85 16:10

SETUP FAST GALLOPING PATTERN TEST

7470 021332

MTO0026:
L

SUBTST

; *SUBTEST

7471 021332
7472 021340
7473 021344
7474 021350
7475 021354
7476 021356
7477 021360
7478 021364
7479 021370
7480 021376
7481 021400
7482 021406
7483 021410
7484 021416
7485 021420

7486 021424

012737
005037
013703
013702
010305
010204
012701
012700
022737
001445
022737
001406
022737
001002
012700

7495
7496
7497
7498
7499

7501 021522
7502 021526

012700
104415

7504 021536
7505 021544
7506 021550
7507 021554
7508 021562
7509 021570
7510 021572
7511 021576

012737
004737
005037
012737
012737
104416
004737
010337

7512 021602
7513 021606

002102

014000

027364
027360
024446
027410
027400

012737
104416
004737
000432
022737

7503 021530

000007

012737
012737
004737
005037
012737

021474
021502
021504
021510
021512

7500 021520

004010

014000

104415

021442
021450
021456
021462
021466

000003

012700

7489 021440

7490
7491
7492
7493
7494

004010

000177

001002

012737

010237
000207

002300

060000
020000
000005

022737

7487 021432
7488 021434

000026
002326
002604
002602

027374

002102

027464
002262

3%:
74%:

027464
002262

002102

014000

027364

027360
024446
027410
027400
027374
024446
002604
002602

027464

SETUP RANDOM DATA TEST>>

CcMP

MOV

SAVREG

MOV
MOV
CALL
CLR
MOV

45:

2%:

MOV
CALL
CLR
MOV
MOV
RESREG
CALL
MOV

BNE

MOV

MOV
RETURN

SETUP RANDOM DATA TEST

BNE

MOV
SAVREG

027464
002262

MT0026

SEQ 0201 |

ettt

#26 ,REALPAT
PCBUMP
SEEDLO,R3
SEEDHI ,R2
R3,R5
R2,R4
#FIRST,R1
#SIZE/2,R0
#5,PROTYP
13
#3,PROTYP
34
#7,BANK
3¢
#14000,R0

1%¢:

002262

<<MT0026
L

MOV
CLR
MOV
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
CMP
BEQ
CMP
BNE
MOV

MOV
RESREG
CALL
BR
CMP

024446
000177

Page 215

L T

; TRAPS DO_NOT ADD TO THE PC
; INITIALIZE RANDOM NUMBERS

;D0 WE HAVE AN 11/83 ?
;:BRANCH IF WE DO
;117247
;BRANCH IF SO

#177,BANK

#14000,R0

#MTPA26+4 ,MTPD26+14
#MTPA26
, SUPDOADD
SUPDO3
RANODD
#MTPB26+4 ,MTPD26+14

#MTPB26, SUPDOADD

;FOR ERROR REPORTING
;SET UP NEXT LINK

SUPDO3
2%
#177,BANK

#14000,R0

#MTPA26+4 ,MTPD26+14

#MTPA26, SUPDOADD
SUPDO3
RANODD
#MTPB26+4,MTPD26+14
#MTPB26
, SUPDOADD
SUPDO3
R3,SEEDLO
R2,SEEDHI

;FOR ERROR REPORTING
;SET UP NEXT LINK

;UPDATE FOR NEW RANDOM NUMBERS

CVMJAAQ MSV11-J MEMORY DIAG.

'MT0026

SETUP RANDOM DATA TEST

H16

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0202

7516 021610

MT0027: SUBTST
SEFRERR R

;*SUBTEST
A

7517
7518

7519 021610

012737

104502
012737

000027

002300

024446

002522

021626

012737

177777

002426

021634
021642

012737

000001

002452

021642
021646

005037

002102

004737

040052

005737
001436
005737
001033
104511

002116

7520 021616
7521 021620
7522 021626

7523 021634

7524 021642
7525 021646
7526 021652

021652
021656
021660

021664

7527 021666
7528 021670

021670

7529 021674
7530 021700
7531 021702
7532 021706
7533 021710

021710
021716
7534 021720
7535 021726
7536 021732
021732
7537 021732

021732
021710
7538 021742
7539 021750
7540 021754
021754
7541 021754
021754
7542 021754
021754

7543

022

7544 022004

013702
012700
010004
012701
010103

023727
001005
012737
004777

023727

001005
012737
004737

Page 217

UNIQUE BANK TEST>>

<<MT0027
R R

EE IR R

MT0027

R R

R RN

R R

222 2222 222 222 22 222222 222t

ettt

STAR27: FOR I

MOV
MOV
MOV

027704

002262

002452

000002

027712

002262

r AR R R

T T It

#-1,NOFSMODE

CLR BANK
B2S::::::3
TST ACFLAG

MOV
IF I EQ #1

#MTP034, SUPDOADD
MOV
CALL
aLINK1
END ;OF IF

IF I EQ #2
MOV

#MTP034+6,SUPDOADD

SUPDO3
CALL
END ;OF IF

END ;OF FOR BANK
002556
END ;OF FOR I

TST RRFLAG
BNE L171

; INVALIDATE BACKGROUND PATTERN ON "“BANK"

#FIRST,RO
RO,R4
#SIZE,R1
R1,R3

END ;OF IF

002452
002452

ek e e

MOV #1.1
B24:;:::::

:= #0 TO LASTBANK

INVALIDATE
LET R2 := BANK

000001

005237
023727
003717

BEQ L171

002452

002102
002102

MOV

:= #1 TO #2

CALL EXBANK
IF ACFLAG IS TRUE AND RRFLAG IS FALSE

040000

005237
023737
003727

sty

SET NOFSMODE

FOR BANK

002102
060000

024446

E R

;MAKE SURE THAT EACH BANK CAN HAVE UNIQUE DATA
; WRITE AND READ THE BANK NUMBER IN EACH BANK (EXCEPT WHERE THE PROGRAM IS)
MOV
#27 ,REALPAT
;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
CLRCSR
;:CLEAR CSRS
MOV
#SUPDO3, LINK1
;SET UP LINK

002124

160570

AR R

UNIQUE BANK TEST

MOV BANK,R2

CMP I,#1
BNE L172

CMP I,#2
BNE L173

L173:5:35:33

L171::55333
INC BANK
CMP BANK,LASTBANK
BLE B25
INC I

CMP 1,42
BLE B24

000002

IF FS7TFLAG IS TRUE

CVMJAAQ MSV11-J MEMORY DIAG.
UNIQUE BANK TEST

MT0027

022004
022010

7545 022012
7546 022016
7547 022020

005737
001403
005037
000207

116

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0203

002446

TST FSTFLAG

002426

CLR
NOFSMODE
RETURN
END ;OF IF FS7FLAG

022020

7548 022020

022020
022026

012737

000001

002452

022026
022034

013737

002556

002102

004737

040052

022040
022044
022046
022052

005737
001436
005737
001033

002116

022054

013702
005102
012700
010004
012701
010103

7549 022026
7550 022034
7551 022040

7552 022054
7553
7554
7555
7556
7557

022060
022062
022066
022070
022074

7558 022076
022076
022104

7559 022106
7560 022114
7561 022120

023727
001005
012737
004777

FOR I

022120
022126

7563 022130
7564 022136
7565 022142

023727
001005
012737
004737

002124
LET R2 := BANK

002102

COM
R2
MOV
#FIRST,RO
MOV
RO,R4
MOV
#SI1ZE,R1
MOV
R1,R3
IF I EQ #1

060000
040000

002452

000001

027704
160402

002262

002452

000002

027712
024446

002262

022142

7569 022172

7570 022176

002102
002102

003237
023727
003716

002452
002452

005037
000207

002426

TST ACFLAG

TST RRFLAG

MOV
#MTPO34, SUPDCADD
CALL
aLINK1
END ;OF IF

IF I EQ #2

MOV
#MTPO34+6, SUPDOADD
CALL
SUPDO3
END ;OF IF
END

005337
023727
002327

MOV LASTBANK,BANK
B27:::::33

BEQ L175

022142

:= LASTBANK DOWNTO #0

CALL EXBANK
IF ACFLAG IS TRUE AND RRFLAG IS FALSE

7566 022142

7567 022142

BEQ L174

:= #1 TO #2

FOR BANK

022120

7562 022120

Page 217-1

;OF IF

END ;OF FOR BANK

000000
END ;OF FOR I
000002

CLR

RETURN

NOF SMODE

BNE L175

MOV BANK,R2

CMP I,#1
BNE L176

CMP I,%2
BNE L177

L177:355333
L175:::::33

DEC BANK
CMP BANK, #0
BGE B27

E27::5553353

INC I
CMP I,#2
BLE B26
E26:::3:333

CVMJAAQ MSV11-J MEMORY DIAG.
MT0027
UNIQUE BANK TEST

J16

MACRO V05.01b Friday 15-Feb-85 16:10

7573 022200

MT0030:
SRR

SUBTST

; #SUBTEST

7574 022200
7575 022204

022204

7576 022212
7577 022220
7578 022226
7579 022234
7580 022242
7581 022244

022244
022252
7582 022260
022260
022264

005037

012737

012737
012737
012737
012737
104470
.

177777

012737
012737

177777
177777

005037

002102

004737

040052

022270
022274

005737
001414

002120

022276
022302
022304
022310

005737
001411
005737
001006

002116

7583 022264
7584 022270
7585 022276

7586 022312
7587 022316
7588 022322

7589 022326
022326
7590 022326
022326
7591 022326
022326

022332
022340

022342

7592 022342

022342
022346
7593 022350
022350

012701
012700
004777

005237
023737
003751

002102
002102

005737
001032

002264

012737
104502

177777

103010

022370
022374
022400

005037
005037
005037

002426
002440
002542

013737

002310

022406

7601 022406

AR AR

MT0030

SETUP FLUSH OUT DBE'S TEST>>
R

R AR AR

R R R

002300
002076
002522
002262

002426
002440

MTA030:

CLR
SET

PASFLG
FULLREL

MOV
MOV
MOV
MOV
ECCDIS
SET

#30,REALPAT
#1 ,NOPAR
#SUPDO3,LINK1
#MTP0O30, SUPDOADD

R R R

R R

NOF SMODE
, NOSCOPE

#SIZE,R1
#FIRST,RO
aLINK1

END ;OF IF ACFLAG

E30:35335543

TST PASFLG
BNE L202

SET PASFLG
CLRCSR
CALL
RELOCATE

;CLEAR CSRS

ON.ERROR

MOV

NEWBANK,BANK

#-1,PASFLG

BCC L203

; TRAP ON DOUBLE BIT ERRORS (NORMAL)
NOF SMODE , NOSCOPE
, FULLREL

RETURN
END ;0F ON.ERROR
002102

TST ACFLAG
BEQ L201
TST RRFLAG
BNE L201

INC BANK
CMP BANK,LASTBANK
BLE B30

IF PASFLG IS FALSE

ECCINIT
CLEAR

TST MKFLAG
BEQ L200

L200:;;::::

002556

036402

&-1,NOFSMODE
#-1,NOSCOPE

L201:;:;::::

END ;OF FOR

002264

MOV
MOV

CLR BANK
B30:;;:::::

IF ACFLAG IS TRUE AND RRFLAG IS FALSE

CALL

&-1,FULLREL

;DISABLE ERROR CORRECTION

FOR BANK := #0 TO LASTBANK

MOV
MOV

MOV

;SETUP PATTERN NUMBER FOR TYPEQUT & DISPLAY
;INDICATE COUNT PARITY ERRORS

CALL
EXBANK
IF MKFLAG IS TRUE

104472

000207

R R AR R R R

SETUP FLUSH OQUT DBE'S TEST

END ;0F IF MKFLAG

022364

7599 022404
7600 022406

002542

040000
060000
160174

004737

7597 022366
7598 022370

002124

7594 022356
7595 022360
7596 022364

<<MT0030

SEQ 0204

T LL
T T T L L T LT T
v ur

002264

000030
000001
024446
027466

Page 219

CLR
CLR
CLR

L203:;:;:35:5::

NOFSMODE
NOSCOPE
FULLREL

CVMJAAQ MSV1l1-J MEMORY DIAG.

MT0030

K16

MACRO V05.01b Friday 15-Feb-85 16:10

SETUP FLUSH OUT DBE'S TEST

7602 022414
7603 022420

7604 022424
7605 022426
7606 022432

7607 022434

022434

004737
004737

104472
004737
000207

7608 022434

104472

022436
022442
022446

005037
005037
005037

7609 022436

7610 022452

000207

040052
022212

037214

CALL
CALL

EXBANK
MTA030

ECCINIT
CALL
UNRELOCATE
RETURN

Page 219-1

; TRAP ON DOUBLE BIT ERRORS (NORMAL)

END ;OF IF PASFLG

ECCINIT
002426
002440
002542

CLEAR

RETURN

SEQ 0205

L202:::::::

;TRAP ON DOUBLE BIT ERRORS (NORMAL)

NOFSMODE,NOSCOPE,FULLREL

CLR
CLR
CLR

NOFSMODE
NOSCOPE
FULLREL

—l

——
—

L16

MACRO V05.01b Friday 15-Feb-85 16:10
SETUP FLUSH OUT DBE'S TEST

CVMJAAQ MSV11-J MEMORY DIAG.

MTO0030

7613 022454

MT0031:

SUBTST

Page 221

SEQ 0206

<«<MT0031

SETUP SOB-A-LONG TEST>>

I
T T I I
T
T
NI
TMMMTTTTTTMTM

]

; #*SUBTEST
7614 022454
7615 022460

7616

004737

024234

7617
7618
7619

022512

010346
013703
004737

022516

012603

022520

053737

002552

022526
022532
022534
022536

004537
000027
060000
027476

041024

7622 022540
7623 022542
7624 022546
7625 022550
7626 022554
7627 022560
7628 022566
7629 022574
7630 022600
7631 022602
7632 022610
7633 022612
7634 022614
7635 022622
7636 022624
7637 022632
7638 022636

104417
013702
010200
012701
012705
012737
012737
005737
001005
023737
001405
000407
023737
001003
012737
004737
005037
000207

7620 022520

7621 022526

7639 022642

I T

I T T T

KAMITEST

CN.ERROR THEN $RETURN

002440

002300

172254

177652

177654

1%:

140000
024462
002440

002522

2%:
3$:

;IF NOT IN KAMIKAZE MODE RETURN

BCC L204

RTS PC
L204:;;:::::

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

BANK

;MAP FIRST SO BLOCK MOVE WORKS

CLR

NOPAR

MOV
CALL
.DSABL

BANK,R3
MAPPER
CRF

MOV
MOV
MOV

R2,R0
#100776,R1
#FIRST+SOBLENGTH,RS

15T
BNE

NOSUPER
14

BEQ
BR

2%
34

BNE
MOV
CALL
CLR

34
#140000,LINK1
SUPDO4
NOSCOPE

MOV
MOV

172252

;CHECK FOR KAMIKAZE MODE

#31 ,REALPAT

FIRST
MTPO31
.DSABL
CRF
KERNEL
MOV
SO0BK,R2

002262
002522

N MMM

MOV

BIS
TESTMODE ,PSW
CRF
.DSABL
BMOV
MTPO31,FIRST,SOBLENGTH/2
JSR RS,BLOCK3
SOBLENGTH/2

002572

NOSCOPE

TESTAREA

177776

SET

MAP

002102
035716

100776
060056
060002
160000
002456

SETUP SOB-A-LONG TEST

CALL

103001
000207
012737 177777
012737 000031
005037 002076

MT0031

CcMP

CMP

RETURN

#FIRST+2,SUPDOADD
#LAST+2,LINK1

SIPARS,SIPARE

UIPARS,UIPAR6

MOV

&-1,NOSCOPE

;SETUP PARITY ACTION

MOV R3,-(SP)

;ENTER TEST MODE

MOV (SP)+,R3

;GO TO SYSTEM TEST MODE

;ENTER KERNEL MODE

; COMPLEMENT OF INSTRUCTION "“SOB RO,DOT"

- CVMJAAQ MSV11-J MEMORY DIAG.

'MT0031

SETUP SOB-A-LONG TEST

M16

MACRO V05.01b Friday 15-Feb-85 16:10

7642 022644

MT0032: SUBTST
A2 Ad i

;#SUBTEST
7643 022644

004737

022650
022652

103001
000207

7644 022650

022654

7645 022654

024234

RRR RN R R AR R

CALL

<<MT0032
R

MT0032

SETUP WRITE RECOVERY TEST

KAMITEST

002440

NOSCOPE

CLR
MAP

NOPAR
BANK

BANK,R3

022654

012737

177777

7647 022670
7648 022674

005037

002076

022674
022676

010346
013703

002102

MOV

022706

012603

CALL
.DSABL

MAPPER
CRF

010247
177667
020000
002522
060000

MOV
MOV
MOV
MOV
MOV

#10247,R0
#177667,R1
#SIZE/2,R2
R2,LINK1
#FIRST,R3

7649
7650
7651
7652
7653

7654
7655
7656
7657

022710
022714
022720
022724
022730

004737
012700
012701
012702
010237
012703

022734
022740
022744
022750

012704
005037
005737
001005

7659 022760

001405

7661 022764
7662 022772
7663 022774

023737
001011
012704

7658 022752

7660 022762

023737

000415

MoV

035716

160000
002524
002456

172252

172254

177652

177654

7664 023000
7665 023004
;229 023010

012702
010237
012737

140000
014000
002522
000001

002524

7668 023016
023016

053737

002552

177776

7669
7670 023024
7671 023026

010023
010144

1$:

24:

3$:

;g;g 023030 077203

000005

004537

040770

7273 023050

104417

7680 023052
7681 023056

012702
012700

027554

#LAST+2,R4
LINK2
NOSUPER
14

BEQ

CMP
BNE
MOV

UIPARS,UIPARG
3
#140000,R4

MOV
MOV
MOV

004010

S$:

005141
023156

AR R AR AR R

I TS

R RNk

;CHECK FOR KAMIKAZE MODE

32333333,

d bbb d

;IF NOT IN KAMIKAZE MODE RETURN

BCC L20S
RTS PC

L20S::::::3

MOV

@-1,NOSCOPE

;:SETUP PATTERN NUMBER FOR TYPEOU* & DISPLAY
:SETUP PARITY ACTION
;MAP FIRST SO THAT THE BLOCK MOVE WORKS

MOV R3,-(SP)

MOV (SP)+,R3

;OP CODE OF INSTRUCTION "MOV
R2,-(PC)"
;OP CODE OF COMPLEMENT OF INSTRUCTION "JMP (RO)"
;USED FOR 1/2 BANK LOOP

SIPARS,SIPAR6

#14000,R2
R2,LINK1
#1,LINK2

TESTAREA
ngnaL ES&THODE,PSW

;ENTER TEST MONE
;GO TO LYSTEM TEST MODE

;MOVE TEST TO MEMORY UNDER TEST
MOV
RO,(R3).
MOV
R1,-(R4)

S0B

022737
001003

R R RR R R RR R R R R R R R

#32 ,REALPAT

MOV
CLR
TST
BNE

CMP

44:

7674 023032
7675 023040
7676
7677 023042
023042
023046

RN RN AR R RE R AR R R

SET

SEQ 0207

SETUP WRITE RECOVERY TEST>>
R

ON.ERRDR THEN $RETURN

7646 022662 012737 000032 002300
022702

Page 223

R2.4$

CMP
#5,PROTYP
BNE
S$
;MOVE LAST PART OF TEST TO FASTCITY
BMOV
MTPO32
JSR RS,BLOCK1
MTPO32
CRF
.DSABL
KERNEL
;ENTER KERNEL MODE

MOV
MOV

#5141 ,R2
#10$,R0

OP CODE OF INSTRUCTION "COM
ADDRESS TO RETURN TO IN RO

-(R1)"

| CVMJAAO MSV11-J MEMORY DIAG.
MACRO V05.01b Fridesy 15-Feb-85 16:10
| MT0032 SETUP WRITE RECOVERY TEST

7682 023062

012701

7683 023066

012737

7685 023100
7686 023102
7687 023106
7688 023112
7689 023116
7690 023122

001402
012701
004737
012703
012705
012704

7684 023074

7691 023126

7692 023132
7693 023134
7694 023140
7695 023146

7696 023152

7697 023156

7698
7699

005737

001402
012703
012737
004737

005037

000207

160000

060000
002524

002262

MOV

#LAST+2,R1

TST

LINK2

MOV

060000

BEQ
MOV
CALL
MOV
MOV
MOV

014000
027554
024462

BEQ
MOV
MOV
CALL

140000
024462
020000

6%:

000110

002524

002440

TST

002262

7%:
9%:

104:

CLR

RETURN

Page 223-1

#F IRST, SUPDOADD

SEQ 0702

:TOP OF BANK

6%
©140000,R1
SUPDO4
#SIZE/2.R3
#110,R5
#FIRST
R4

LINK2

74
#14000,R3
#MTP032, SUPDOADD
SUPDO4
NOSCOPE

: THIS RETURN ACTS AS A NORMAL RETURN FROM MT0032
;ALSO A RETURN FROM THE "CALL

SUPDO4"“ ABOVE

7702 023160

MT0033: SUBTST

<<MT0033

; *SUBTEST

MT0033

Page 225

SEQ 0209

SETUP BRANCH GOBBLE TEST>>

e
I
T

SETUP BRANCH GOBBLE TEST

T
T
TSI

7703 023160
7704 023164

004737

023164
023166
023170

103001
000207

023170

012737

7707 023204
7708 023210

005037

7705 023170

7706 023176

024234

177777

012737

000033

023210
023212
023216

010346
013703
004737

002102
035716

7700 023222

012603

7710 023224

023224

7711 023232

023232
023236
023240

002076

053737

002552

004537
000037
060000

041024

023242

027606

;;ig 023244

104417

7714 023246
7715 023252
7716 023260
7717 023264

012705
012737
012701
012702

060076
060004
060002
060003

7719 023276
7720 023302
7721 023304
7722 023312
7723 023314

005737
001005
023737
001405
000407

002456

7725 023324

001003

7718 023270

7724 023316

;;gg 023326
7728 023334
7729 023340

;;gg 023344

012737

CALL
KAMITEST
ON.ERROR THEN $RETURN

002440

002300

NOSCOPE

MOV

#33 ,REALPAT

CLR
MAP

NOPAR
BANK

MOV
CALL

BANK,R3
MAPPER

TESTAREA

177776

172254

023737

177652

177654

1$:

012737

140000

002522

2%:

004737
005037

024462
002440

MT0034:

023346
023354
023360
023364

012737
012700
012701
013702

000034
060000
040000
002620

002300

ST
BNE
CMP
BEQ
BR

NOSUPER
1
SIPARS,SIPARG
2%
3$

#LAST+2,LINK1

CcMP

UIPARS,UIPAR6G

MOV

#140000,LINK1

BNE

CALL
CLR

SUPDO4
NOSCOPE

SUBTST

<<MT0034

MOV
MOV
MOV
MOV

;GO TO SYSTEM TEST MODE

;ENTER KERNEL MODE

#FIRST+GBLENGTH,RS
#FIRST+4,SUPDOADD
#FIRST+2,R1
#FIRST+3,R2

; *SUBTEST

7733
7734
7735
7736

CRF

MOV
MOV
MOV
MOV

I
T

;ENTER TEST MODE

MTPO33,FIRST,GBLENGTH/2

RETURN

7732 023346

MOV (SP)+,R3

JSR RS5,BLOCK3
GBLENGTH/2
FIRST

MOV

3$:

MOV R3,-(SP)

BMOV

KERNEL

172252

#-1,NOSCOPE

;SETUP PARITY ACTION
;MAP FIRST SO THAT BLOCK MOVE WORKS

EE?THODE.PSH

.DSABL

002522

MOV

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

B%gABL

MTPO33

002262

BCC L206
RTS PC
L206:;::::::

CRF

.DSABL

160000

000207

SET

;CHECK FOR KAMIKAZE MODE
;IF NOT IN KAMIKAZE MODE RETURN

MT0034

SOFT ERROR - BACKGROUND PATTERN TEST»>>
T oo

SOFT ERROR - BACKGROUND PATTERN TEST

#34 ,REALPAT
#FIRST,RO
#SIZE,R1
SOFTPATM ,R2

————

MACRO V05.01b Friday 15-Feb-85 16:10

SETUP WRITE RECOVERY TEST

———————

CVMJAAQ MSV11-J MEMORY DIAG.

MT0032

CVMJAAO MSV11-J MEMORY DIAG.

MT0034

MACRO V05.01b Friday 15-Feb-85 16:10

SOFT ERROR - BACKGROUND PATTERN TEST

7737 023370

010103

7739 023376

010004

023400

032765

020000

002666

7742 023410

012737

027712

002262

023422

000410

7738 023372

7740 023400
7741

023406

7743 023416
7744 023422

023424

013705

001406
004737

7745
7746 023424
7747 023432
7748 023436
7749 023444

012737
004737
052765

;;gg 023444

000207

002104

024446

027704
024446
020000

MOV

R1,R3

MOV

RO,R4

MOV

Page 225-1

;

BIT #BIT13,CONFIG+2(RS)
BEQ L207

;BACKGROUND PATTERN IS VALID

MOV

CALL
ELSE

#MTP034+6,SUPDOADD

SUPDO3

023444

MT0035: SUBTST
sk k k k k k k

; *SUBTEST

L207:5:3333

L210:333:33

<<MT0035

SETUP WORST CASE NOISE PARITY TEST»>>

ko kkkkkkkkokkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
kb kkk kb
kb kb k&

MT0035

SETUP WORST CASE NOISE PARITY TEST

shkkkkkkkkkokkkkhkkdokkkkkkkkkkkkk
ko kkkokk ko kk kb
k
kb
kb kb

7753 023446
7754 023454

7755 023460

7756 023464

7757
7758
7759
7760

023466
023472
023474
023500

7761 023506
7762 023510
7763 023512
7764 023516
7765 023522
7766 023530
7767 023534
023534
023540
023542
023544

7768
7769
7770
7771

023544
02354€
023552
023556

012737
013703

000035
002104

016301

002664

042701
0063201
010137
023737

177760

000301

001001
000207
012702
004737
012737
004737
005737
001401
000207
005102
004737
004737
000207

002152
002152

002300

MOV

SWAB

002346

032630
024462

BIC
ASL
MOV
CMP

002532

052524

032630
027730
024446

MOV
MOV

1$:
002262

#35,REALPAT
BANKINDEX,R3
CONFIG(R3),R1

COM
CALL
CALL
RETURN

;SET UP TEST NUMBER FOR DISPLAY

#1tC17,R1
R1
R1,CSRNO
CSRNO,PGMCSR

BNE
1$
RETURN
MOV
#52524 ,R2
CALL
BACKGND
MOV
#MTPO35, SUPDOADD
CALL
SUPDO3
IF QVFLAG IS TRUE THEN $RETURN

R2
BACKGND
SUPDO4

|
BR L210

RETURN

;READ IT

;BACKGROUND PATTERN HAS BEEN INVALIDATED
MOV
#MTP034,SUPDOADD
CALL
SUPDO3
BIS
#BIT13,CONFIG+2(RS)
;VALIDATE IT
END ;0F IF #BIT13

002666

:
|

BANKINDEX,RS

IF #BIT13 SET.IN CONFIG+2(RS)

002262

7752 023446

SEQ 0210

;WRITE BACKROUND OF ALMOST ALT.

1'S AND 0'S

TST QVFLAG
BEQ L211
RTS PC
Lll:sss:3:
;WRITE COMPLEMENT PATTERN INTO MUT

CVMJAAQ MSV11-J MEMORY DIAG.

MT0035

MACRO V05.01b Friday 15-Feb-85 16:10

SETUP WORST CASE NOISE PARITY TEST

7773 023560

SEQ 0211
AR

; *SUBTEST

7774
7775
7776
7777
7778

023560
023566
023572
023576
023600

7779 023604
7780 023610
7781 023614

7782 023620

<<MT0036

MT0036: SUBTST
SERERER

012737
004737

005037

005000
012701
004737
004737
004737
000207

000036

032674
002264

100000
037740
030072
040026

002300

Page 226

MOV
CALL
CLR

CLR

MOV

CALL
CALL
CALL

RETURN

R AR

MT0036
et

SETUP CORRECTION CODE TEST>>

R R R R AR R R R R R R R R R R AR

RR Rk bRk

SETUP CORRECTION CODE TEST
g

#36,REALPAT
GETCSR
PASFLG
RO
#100000,R1
MAPKERNAL
MTPO36
UNMAP

L T

T T Y

;SET UP TEST NUMBER FOR TYPEQUT AND DISPLAY
;GET CSR _INFO FROM CONFIG TABLE
;CLEAR LOOP COUNTER

;GET TEST DATA
;:GET FIRST ADDRESS IN BANK
:MAP KIPARS AND & TO BANK

;EXECUTE TEST

;REMAP KERNAL SPACE

CVMJAAO MSV11-J MEMORY DIAG.

M10036
|

MACRO V05.01b Friday 15-Feb-35 16:10

SETUP CORRECTION CODE TEST

SEQ 0212
sE R ERER R

]

;*SUBTEST
7785 023622
7786 023630
7787 023634
7788 023636
7789 023642
7790 023646
7791 023652
7792 023656

012737
012701
005000
004737
004737
004737
004737
000207

AR R

R ERREREAERERIRRR R

000037
100000
037740
032674
030316
040026

002300

MOV
MOV
CLR
CALL
CALL
CALL
CALL

RETURN

SETUP ECC DISABLE TEST>>

<<MT0037

MT0037: SUBTST

7784 023622

Page 227

MT0037

AR RN RN R R R R R

SETUP ECC DISABLE TEST

#37 ,REALPAT
#100000,R1
RO
MAPKERNAL
GETCSR
MTPO37
UNMAP

AR R RN Rk

kb bk kbbb kb bR

L L T

T T

b e
T

;SETUP PATTERN AND NUMBER FOR TYPEQOUT AND DISPLAY
:SET UP TEST_ADDRESS
;CLEAR DATA TO BE WRITTEN
;MAP THIS TEST TO KERNEL SPACE

;GET CSRINFO FROM CONFIG TABLE
;CHECK ECC DISABLE
;REMAP KERNEL SPACE

|
'

CVMJAAQ MSV1l-J MEMORY DIAG.
MT0037
SETUP ECC DISABLE TEST

MACRO V05.01b Friday 15-Feb-35 16:10
MT0041:

7794 023660

SUBTST

sERERER R AR AR

; *SUBTEST
012737
004737

000041
032674

002300

023672

012737

030370

002262

023700

012701

060000

023704
023712
7800 023714
023714

023727
001004

002102

000177

012737

000014

002570

7798 023700

7799 023704

7801 023722

023722
023724

000403

023724
7803 023732
023732

012737

7802 023724

7804 023732
7805 023736

004737
000207

Page 228

SETUP ADDRESS TO CSR ON DOUBLE BIT ERROR TEST>>

<<MT0041
R R RR R

MTO041

SEQ 0213

R RR R

R R R RR R

R R R

ER R

Rk R

bRk b kbbb kb r bbb bbb o

SETUP ADDRESS TO CSR ON DOUBLE BIT ERROR TEST

shkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
kR kb
kR
kbR
kR kR ek R

7795 023660

7796 023666
7797 023672

000020
024446

002570

MOV
#41 ,REALPAT
GETCSR
CALL
LET SUPDOADD
::= #MTPO41

:SETUP PATTERN AND NUMBER FOR TYPEQUT AND DISPLAY
:GET CSR_NUMBER AND ADDRESS FROM CONFIGURATION TABLE

LET R1

;SET UP FIRST ADDRESS

:= #FIRST

IF BANK EQ #177
LET PASCNT

:= #12.

ELSE

LET PASCNT
END

CALL SUPDO3

RETURN

:SET UP TEST ADDRESS

;ARE WE AT BANK 177?

MOV #MTPO41,SUPDOADD

MOV #FIRST,.R1

CMP BANK,#177
BNE L212
MOV #12.,PASCNT

BR L213
:= #16.
L213:533333

EXECUTE ADDDRESS T0 CSR TEST IN SUPVISIOR MODE

CVMJAAO MSV11-J MEMORY DIAG.

'MT0041

H1
MACRO v05.01b Frid.;Tl.S-Feb-OS 16:10

SETUP ADDRESS TO CSR ON DOUBLE BIT ERROR TE

7807 023740

7808 023740
7809 023746

012737
012701

7811 023756
7812 023762
7813 023766

004737
004737
004737

7810 023752

7814 023772

<<MT0042

; #SUBTEST

MT0042

MT0042: SUBTST

004737

000207

000042
100000

037740
032674
030542
040026

002300

Page 229

SEQ 02 14

SETUP EXTENDED Q-BUS ADDRESS TO CSR TEST>>

SETUP EXTENDED Q-BUS ADDRESS TO CSR TEST

T
L
T
T T T
T I

MOV
MOV

CALL

CALL
CALL
CALL

RETURN

#42 ,REALPAT
#100000,R1
MAPKERNAL
GETCSR
MTPO42
UNMAP

;SETUP PATTERN AND NUMBER FOR TYPEOUT AND DISPLAY
;SET UP TEST ADDRESS

:MAP TO KERNEL SPACE

;SET UP CSRINFO FROM CONFIGURATION TABLE
;CHECK EXTENDED Q-BUS ADDRESS TO CSR
;REMAP KERNEL SPACE

CVMJAAOQ MSV11-J MEMORY DIAG.

'MT0042

MACRO V05.01b Fridey 15-Feb-85 16:10

SETUP EXTENDED Q-BUS ADDRESS TO CSR TEST

7816 023774

MT0043:
P

SUBTST

<<MT0043

012737

000043

7818 024002

004737

037740

024006

012701

100000

7819 024006

7820 024012
7821 024016

7822 024022

7823 024024

7824 024024
7825 024032
7826 024036

004737
004737
000207

002300

031224

002262

024044

012701

060000

024050
024056

023727
001004

002102

000177

024060

012737

120000

002562

024066

000403

7830 024066

054070

7831 024070

024070
7832 024076
024076
7833 024076
7834 024102
7835 024104

7836 024104

7837 024112
7838 024116
024116
7839 024122
7840 024126
7841 024132

7842 024134

012737

160000

004737

024446

012737

000045

012701
004737
004737

100000
031546
040026

004737

000207

037740

012737

004737

7846 024152

004737

024146

7847 024156

7848 024162

012701

004737

000207

037740

100000

031734

040026

;MAP TO KERNEL SPACE

;PERFORM WRITE BYTE TEST
;REMAP KERNEL SPACE

MT0044

e T T T T

MOV
#44 ,REALPAT
CALL
GETCSR
LET SUPDOADD := #MTP044

;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY
;GET CSR NUMBER AND ADDRESS FROM CONFIGURATION TABLE
;:SET UP TEST ADDRESS
s IL

LET R1

;SET UP FIRST ADDRESS

:= #FIRST

MOV #MTPO044,SUPDOADD
MOV #FIRST,.R1

;ARE WE AT BANK 177?

BR L215
L214:;::::::

MOV #160000,ENDADD

END

L215:;;:::3:3:
;EXECUTE ADDDRESS TO CSR TEST IN SUPVISIOR MODE

RETURN
MT0045: SUBTST

<<MT0045

; *SUBTEST

MT0045

ok ok

;

koo

MOV #120000,ENDADD

LET ENDADD := #160000

CMP BANK,#177
BNE L214

ELSE

CALL SUPDO3

ook ookl kool

kool kok kol

CALL
LET R1

okokok kool ook kR kR Rk

ook

ok ok ok

#45 ,REALPAT

MOV

CALL
LET R1

Rk Rk

Rk &

MOV #100000,R1
;PERFORM SYNDROMES TO CSR ON DOUBLE BIT ERROR
;REMAP KERNEL SPACE
ok ok kR ok

ok ok

R R

R R R

R SRR

SETUP CHECK SINGLE BIT ERRORS WITH ECC DISABLED TET

#46 ,REALPAT

CALL UNMAP

RETURN

R R

SETUP CHECK SINGLE BIT ERRORS WITH ECC DISABLED TET>>

MAPKERNAL
:= #100000

CALL MTPO46

;MAP TO KERNEL SPACE
;SET UP TEST ADDRESS

ok ok ok ok ok ook ok

ok R

R R kA R E R &

;

<<MT0046

MT0046

kR kR

;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY

MAPKERNAL
:= #100000

RETURN

ok kR Rk

SETUP SYNDROMES TO CSR ON DOUBLE BIT ERROR

ook ok ook ok ook

MOV

SETUP SYNDROMES TO CSR ON DOUBLE BIT ERROR>>

CALL MTPO4S
CALL UNMAP

002300

LET ENDADD := #120000

SETUP SHIFTING 1/0'S THROUGH THE CHECK BITS TEST

IF BANK EQ #177

002300

MOV #100000,R1

SETUP SHIFTING 1/0'S THROUGH THE CHECK BITS TEST>>

MT0046: SUBTST

000046

;SET UP TEST ADDRESS

; *SUBTEST

7843 024134

:= #100000

L L

§ sk ook ok kol

7844 024142
7845 024146

T T

;SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY

<<MT0044

002562

000207

T I T

#43 ,REALPAT

MAPIKERNAL

MT0044: SUBTST
D

012737

7829 024060

CALL

RETURN

024036

7828 024050

MOV

CALL MTP043
CALL UNMAP

002300

T T

SETUP WRITE BYTE CLEARS SBE TEST

I
I
MY

031030
,040026

000244
032674

7827 024044

MT0043

LET R1

012737
004737

SEQ 0215

SETUP WRITE BYTE CLEARS SBE TEST»>>

;#SUBTEST
7817 023774

Page 230

:SET UP TEST NUMBER FOR TYPEOUT AND DISPLAY

;MAP TO KERNEL SPACE
;SET UP TEST ADDRESS

MOV #100000,R1

;PERFORM TRAPS DECTECTED ON SBE WITH ECC DISABLED TE

;REMAP KERNEL SPACE

;

|
;

f
l

—
e
—

CVMJAAO MSV11-J MEMORY DIAG.

MT0046

MACRO V05.01b Friday
15-Feb-85 16:10
SETUP CHECK SINGLE BIT ERRORS WITH ECC DISABLED TET
MT0047:

7849 024164

SUBTST

000047
037740

024176

012701

100000

024202
7854 024206

012702
004737
004737
000207

120000
032274
040026

7855 024212
7856 024216

SETUP NO CSR UPDATE ON SBE WITH EXSISTING DBE TEST>>

MT0047

SETUP NO CSR UPDATE ON SBE WITH EXSISTING DBE TEST

shkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
kb k kb kb bk kR &

012737
004737

7853 024202

SEQ 0216

; *SUBTEST
7850 024164
7851 024172
7852 024176

<<MT0047

Page 230-1

002300

MOV
CALL
LET R1

#47 ,REALPAT
MAPKERNAL
:= #100000

;SET UP TEST NUMBER FOR TYPEOQUT AND DISPLAY
;:MAP TO KERNEL SPACE

;SET UP TEST ADDRESS

“ SECOND

MOV #100000,R1

TEST ADDRESS

LET R2 := #120000

;

CALL MTPO47
CALL UNMAP

;PERFORM NO UPDATE TO CSR ON SBE WITH DBE

RETURN

:REMAP KERNEL SPACE

MOV #120000,R2

—

. ———
—

CVMJAAO MSV11-J MEMORY DIAG.

'MT0047
2
|

MACRO V05.01b Frida

SETUP NO CSR UPDATE ON SBE WITH EXSISTING

15-Feb-85 16:10

MT0999: SUBTST

7859 024220

024224

;86% 024232
86

005037

002300

012737
000207

177777

TEST

MT0999

Page 232

SEQ 0217

SETUP NULL TEST>>

<<MT0999

it i 222222222222 222 22222 2

;*SUBTEST
7860 024220
7861 024224

a2ttt

SETUP NULL TEST

ettt

Attt

]

sk kkkkkktkkkkkkkkkkkkkkkkkkkkkkkk
ko
kkk ke
kbR e

CLR

002344

SET

REALPAT

NULLFLAG

MOV

RETURN

#-1,NULLFLAG

KAMITEST:SUBTST <<CHECK FOR KAMIKAZE MODE>>

7864 024234

T
T
T
T T

; *SUBTEST

CHECK FOR KAMIKAZE MODE

e
L
T T

7865 024234

024234
024240
024242
024246

024250
024254
024256

7866 024256

005737
001006
005737
001003
005737
001403

024256
024260

000241
000207

024262
024264

000402

024264
024266
7869 024270
024270

000261
000207

7867 024262
7868 024264

002006

IF KAMIKAZE IS TRUE OR ACTFLAG IS TRUE OR APTFLAG IS TRUE

TST KAMIKAZE

BNE L216

TST ACTFLAG

002350

BNE L216

TST APTFLAG

002352

BEQ L217

$RETURN NOERROR
ELSE

$RETURN ERROR

END ;OF IF KAMIKAZE

;:RUN THE TEST

L216:;::::5:

CLC
RTS PC

BR L220

- CVMJAAQ MSV11-J MEMORY DIAG.
- CHECK FOR KAMIKAZE MODE
|
|

MACRO V05.01b Friday 15-Feb-85 16:10

SUPDO1: SUBTST

7872 024270

s8R

AR AR

; *SUBTEST

024270
024272
024276

010346
013703
004737

002102
035716

024302

012603
004737

051430

024310
024314

013746
013746
010037
012700
010120
010220

7874 024304
7875 024310

EXECUTE PATTERN IN SUPERVISOR>>

SUBR

EXECUTE PATTERN IN SUPERVISOR

7876
7877
7878
7879
7880

024320
024324
024330
024332
024334

7885 024350

7886 024356
7887 024364

7888 024370
7889 024372

7890 024374
7891 024376
7892 024400
7893 024402
7894 024404
7895 024406
024406
7896 024414

7897 024420
7898 024422
7899 024426
7900 024430
7901 024432
7902 024434

024434
024440

7903 024444

014006
014005
014004
014003
014002
014001
014000

MOV
CALL
.DSABL

BANK ,R3
MAPPER
CRF

MOV
MOV
MOV
MOV

010320

MOV

002160
024364
002622
002176

052737

040000

012706
104424
004737
104423
104417
000004

000740

012637
012637
000207

002622
002624

177640

002622
002624

177776

TAG4$:

kk kb

BANK

PUSH

002624
002622
002160
002162

R R

MAP

SUPDO2: CALL

AR ER

kkkk Rk

GETDIS

$LPERR, $LPADR

RO, SUPDRO
#SUPDR1,RO
R1,(RO)+
R2,(RO)+

R4,(RO)RS,(RO)+
SP,(RO)+
SUPDRO,RO

MOV

-(RO),SP

CACHOFF
FASTCITY
CALL
CACHON

RETURN

kR kR

R R

kb Rk

kbR kbt e b b kbbb

kbR kR

R bR

;:MAP SUPERVISOR SPACE (TEST AREA) TO BANK

MOV (SP)+,R3
MOV $LPERR,-(SP)

MOV $LPADR, -(SP)

#TAG4$, $LPADR
$LPADR, $LPERR
#SUPDR6+2,R0O

MOV
-(RO),RS
MOV
-(RO),R4
MOV
-(RO),R3
MOV
-(RO),R2
MOV
-(RO),R1
MOV
-(RO),RO
SUPERVISOR
#BIT14,PSW
BIS
CRF
.DSABL
MOV
#SUPSTK,
SSP

KERNEL
SCOPE
POP

R R R R R R RR R R R R R R R R

R3,(R0O)+

MOV
MOV
MOV
MOV
MoV
MOV
MOV

SEQ 0218

<<SUBR

skt kkskkkkktk bk

7873 024270

Page 234

$LPADR, $LPERR

;ENTER SUPERVISOR MODE
;GO TO SUPERVISOR MODE

; TURN CACHE OFF
;CALL TO THE USER INSTRUCTION PAR'S
; TURN CACHE ON
;ENTER KERNEL MODE
MOV (SP)+,$LPADR
MOV (SP)+,$LPERR

C
| 9

AAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

EXECUTE PATTERN IN SUPERVISOR

SUPDO3: MAP

7906 024446

024446
024450
024454

MOV
CALL
.DSABL

002102
035716

024460

051430

7907 024462
7908 024466

SUPDO4: CALL
PUSH

002624

024466

024472

MOV
MOV
MOV
MOV
MOV
MOV
MOV

7909 024476
7910 024502
7911 024506

791

7913

024310

024512

7914 024514
7915 024516
7916 024520
7917 024522
7918 0245;2
7919 024§:

002160
024542
002622
002176

002622
002624

053737

002552

177776

005737
001403
012706
000402
012706
104424
004777
104423
104417
000004

002456

TBG4$:

014000

7931 024600

7932 024604
7933
024606
7934
024612
7935 024614
7936 024620
7937

7938
7939

0246

7940 024636

012637

012637
000207

000700
000740

155442

002622
002624

1$:
2%:

BANK

RETURN

;MAP SUPERVISOR SPACE (TEST AREA)

MOV (SP)+,R3

GETDIS
$LPERR, $LPADR

MOV $LPERR,-(SP)
MOV $LPADR,-(SP)

RO, SUPDRO
#SUPDR1,RO
R1,(RO)+
R2,(RO)+
R3,(RO)+
R4,(RO)+
R5,(RO)+

$LPADR, $LPERR

MOV R3,-(SP)

BANK ,R3
MAPPER
CRF

MOV
SUPDRO,
RO
MOV
#TBG4$, $LPADR
MOV
$LPADR, $LPERR
MOV
#SUPDR6+2,R0
-(RO),SP
MOV
-(RO),RS
MOV
MOV
-(RO),R4
-(RO),R3
MOV
MOV
-(RO),R2
MOV
-(RO),R1
MOV
-(R0O),RO
TESTAREA
BIS
TESTMODE ,PSW
.DSABL CRF
TST
NOSUPER
BEQ
1$
MOV
#USESTK ,USP
BR
2%
, SSP
#SUPSTK
MOV
CACHOFF
CALL
@SUPDOADD
CACHON
KERNEL
SCOPE
POP

Page 236

;ENTER SUPERVISOR MODE
;GO TO SYSTEM TEST MODE

; TURN CACHE OFF

; TURN CACHE ON
;ENTER KERNEL MODE
MOV (SP)+,$LPADR
MOV (SP)+,$LPERR

| CYMJAAO MSV11-J MEMORY DIAG.

| MEMORY TEST PATTERN ROUTINES

MACRO V05.01b Fridey 15-Feb-85 16:10

.SBTTL

7943

;
;
;
;
;
;

RO
R1
R2
R3
R4
RS

FIRST ADDRESS OF PATTERN (FIRST,LAST+2,ETC)
NUMBER OF ADDRESSES IN PATTERN (SIZE)
DATA FOR PATTERN (ONES,S52525.ETC)
COPY OF R1 (IF NECESSARY)
COPY OF RO (IF NECESSARY)
COPY OF R2 (IF NECESSARY)

MTPO0O: SUBTST

024644

1%:

010220
077102

7 024646
7958 0246

2%:

7959 024652

7960
7961
7962
7963
7964

e s e

<<MTP00O

BASIC DATA TEST>>

YT )

T
T T T

MTPOOO

s *SUBTEST
7954
024640
7955 024642

PATTERN REGISTER CONVENTIONS

7953 024640

SEQ 0220

MEMORY TEST PATTERN ROUTINES

;

Page 238

MOV

34:
MTPOO1:

R2,(R0O)+

S08
NOP
MOV
CHP
BEQ

R1,MTPO0O

PERRO2

0246
0246
024660
024662
024664

BASIC DATA TEST

NOP
S0B

RETURN
SUBTST

:V177640

(R4)+,R1
R1,R2
34

:V177642
;V177644
; V177646
:V177650
;V177652

R3,24

;1V177656
:V177660

;V177654

; V177662
ADDRESS TEST>>

<<MTPQO1

shkkkkkkkkkkkkkkkkkkkkkkkk
ok ko kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kbbb kbbb kb bk kb

; *SUBTEST

MTPOO1

MOV

R2,(R0O)+
#2,.R2
R1,3$

14:

MOV

(R‘)o RO

ADDRESS TEST

skkkkkkkkkkkkdokkdkkkkkkkkkkk
kb kkkkkkkkkkkkkkkkkkkkkk kb k kb
kb kbbb kbbb bk &

7965 024664
796* 8 4666
796
4672
7968
4674
4976

010220

062702
077104

000002

0 Os 00

7971
797
797
7974
7975
7976

2705

000002

000207

24%:

ADD

MTPOO2:

RETURN
SUBTST

; *SUBTEST

010540

062705

000002

162702

000002

34:

1s:

7333 834742
7907 030746

;:V177654
;1 V177656
:V177660
:V177662
;1V177666
;V177672

#2,R5
R3,1$

<<MTP0Q02

ittt

MTPOO2

shbkkkkkkkkkkkkkhkk

977
7
197
7
7
797
7’00 @47;8

;V177652

0 4703

47
O 4712
024714
024716

; V177640
;V177642
;:V177646
; V177650

2%:

MOV
ADD
S08
NOP
SuB
MOV
CMP
BEQ

PERRO2

S0B
RETURN

#2,R2
(R4)+,R1
R1,R2
28
R3,1¢

ittt

COMPLEMENT ADDRESS TEST (WRITE DOWN, READ UP)

kb ko k bk

RS,-(RO)
#2,R5
R1,3$

COMPLEMENT ADDRESS TEST (WRITE DOWN, READ UP)>>

ittt

ko k kb k kb k kb kkk kb k kb bk kb d bbb b bbb

:V177640
iV177642
iV177646
;V177650
:V177652
;V177656
:V177660
;1V177662
:V177664

:V177666
;V177670

TPOO2

IAG.
MACRO V05.01b Fridey 15-Feb-85 16:10
COMPLEMENT ADDRESS TEST (WRITE DOWN, READ

®)

MTPAO3:

SUBTST

<<MTPAO3

(RN RN RN A NN

i $SUBTEST

SRR

RN RN

:R1
iR2
iR
iRa
iRS

7997 024750
7998 02475¢
7999 024754

1$:

8000 024756

WARN2:

012705
077317

000100

WARN3:

000207

12
8013 025010

MTPBO3:
skt

RN R RLRRRL RN R RN RN REER RN RN R RN RN RN RNtk t Rt bbbttt

3 XOR 9 WORST CASE NOISE TEST (WRITE)

RN RN R ENRRRE LR RNNRRR RSB RRRRERRERE

=
=
=
=
=

‘ENABL
MOV
MOV
S0B
COM
BIS
401
MOV
S0B
COM
BIS
401
MOV
SOB
RETURN
'DSABL
SUBTST

SEQ 0221 |

3 XOR 9 WORST CASE NOISE TEST (WRITE)»>>

RN R RAR RN

MTPAO3

Page 240

RN LN SRR R RN RSttt bt Rttt bbbt b

ADDRESS
SMALL LOOP CONSTANT
NUM OF ADD TO TEST (LARGE LOOP)
GOOD DATA
MEDIUM LOOP CONSTANT
LSB
R4,(R1)s
R4.(R1)
R2.1%
R4
(PC)+.R4

:V177640
V177642
V177644
V177646
V177650
iV177652 WARNING LOCATION IS MODIFIED BEFORE LOADING
V177634
V177660
V177662
V177664
1V177666 WARNING LOCATION IS MODIFIED BEFORE LOADING
V177670
V177674
V177676

04,R2
RS.18$
Ra
(PC)+.R4
964..RS
R3,if
LSB
<<MTPBO3

3 XOR 9 WORST CASE NOISE TEST (READ)>>

kiRt R kRt kbbbt h kR

i #SUBTEST

MTPBO3

18:

I
S0B
COM
BIS

@eMTPCO3
R2,1$
R4
(PC)e,R4

COM

#4,R2
RS.1$
R4

Rk kb kbbb kR bk

kR kbR kb

kbbb bk

bR R kR

3 XOR 9 WORST CASE NOISE TEST (READ)

;‘....‘.‘E;;;:“':;;.““‘.“..‘.......“‘....““‘““.“.‘.‘..“...‘.‘..“.....

8014
8015 025010
8016 025014
8017 025016

000137
077203

025050

005104

052704

012702
077511
005104
052704

000004

012705
077317
000207

000100

000401

WARNG:

WARNS:

401
MOV
SOB

BIS
401

MOV

(PC)+,.R4

#64. ,RS5

S0B

R3,1$

"DSABL

LSB

RETURN

:V177640
V177644
V177646
V177650

GO TO V172360

iV177652 WARNING LOCATION IS MODIFIED BEFORE LOADING
V177654
V177660

V177662

;V177664

:V177666 WARNING LOCATION IS MODIFIED BEFORE LOADING

:V177670
:V177674
V177676

CVMJAAQ MSVil-J MEMORY DIAG.
3 XOR 9 WORST CASE NOISE TEST (READ)

MACRO V05.01b Friday 15-Feb-85 16:10

' MTPBO3

SEQ 0222

MTPCO3: SUBTST

8031 025050

; *SUBTEST

8032 025050
8033 025052
8034 025054
8035 025056
8036 025060

8037 025062
8038
8039 025066

<<MTPCO3

TEST DATA SUBPROGRAM>>

MTPCO3

TEST DATA SUBPROGRAM

I I I L

ittt
L
T T IL

CcHP

020421
001401

104431
005141
005111
000137

14:
025066
MTPDO3:

BEQ
PERRO3

COoM

000137

1%:
025014

-(R1)

:V172366

SUBTST

<<MTPDO3
L

:V172362
:V172364

:V172370
:V172372

GO TO V172260

TEST DATA SUBSUBPROGRAM>>

MTPDO3

TEST DATA SUBSUBPROGRAM

CMP
BEQ

R4,(R1)+
1

:V172260
:V172262

ComM

(PC)-

:V172266

001401
104431
005127
000000
001363

:V172360

(R1)
a#MTPDO3

020421

R4,(R1)-

CoM
JMP

; *SUBTEST
8040 025066
8041 025070
8042 025072
8043 025074
8044 025076
8045 025100
8046 025102

Page 242

PERRO3

0
BNE
JMP

MTPCO3
a#MTPBO3+4

:V172264

:V172270
iV172272
;V172274

GO TO V172360
GO TO V177644

MACRO V0S5.01b Fridey 15-Feb-85 16:10
CVMJAAQ MSV11-J MEMORY DIAG.
MTPDO3
TEST DATA SUB SUBPROGRAM

8049 025106

MTPAO4:

SUBTST

;*SUBTEST

8059 025136
8060 025140
8061

SEQ 0223

ROTATING ZEROS TEST>>

T T
T

8050 025106
8051 025112
8052 025114
8053 025116
8054 025122
8055 025126

<<MTPAO4

Page 244

012705
010504
000241
000137
016004
103402

000010

1%:

025142
177776

020204
001401
104432
077115
000207

MTPBO4:

8062 025142

MOV
MOV
CLC
JMP

#8..R5
R5.R4

BCS
CMP
BEQ
PERRO4
S0B
RETURN

2%
R2,R4
34

SUBTST

<<MTPBO4

MOV

2%:
3%:

ROTATING ZEROS TEST

MTPAO4

asMTPBO4

-2(R0O),R4

R1,1$

T T T

:V177640
:V177644
:V177646
:V177650

:V177654

:V177660
:V177662
;V177664
:V177666
:V177670
:V177672
SUBR

ROTATING BIT>>

L
T
T
T
T TT

;*SUBTEST

MTPBO4

SUBR

ROTATING BIT

1%:

ROLB
S0B

(RO)
RS,1$

:V172360
;V172362

2%:

ROLB
S0B
ROLB

(RO)
R4,2%
(RO)+

AsMTPAOS+ 14

;V172366
:V172370
;172372

;V172374

SUBTST

<<MTPQOS

ROTATION ONES TEST>>

Rttt
et ettt T
T e

8063 025142
8064 025144
8065 025146
8066 025150
8067 025152
8068 025154
8069 025156
8070
8071 025162

106110
077502
106120
106110
077402
106120
000137

ROLB

JMP

025122
MTPOOS:
R

(RO)-

; *SUBTEST

MTPOO5

1%:

MOV
MOV
SEC

#8.,R5
R5,R4

BCC
CMP
BEQ
PERRO4

2%
R2,R4
3¢

8072 025162
8073 025166
8074 025170
8075 025172
8076 025176
8077 025202
8078 025204
8079 025206
8080 025210
8081 025212
8082 025214

012705
010504
000261
000137
016004
103002
020204

001401

104432
077115
000207

000010

JMP
MOV

025142
177776

2%:

34:

S08

RETURN

; V172364

L T

aesMTPBO4
-2(R0O),R4

R1,1$

ROTATION ONES TEST
e

T
T

T TR T
T

T P

T T
T T T

;V177640
:V177644
; V177646

:V177650
;V177654

:V177660 IF THIS HAPPENS THE GOOD & BAD MATCH
:V177662
;V177664
:V177666

;V177670

;V177672

CVMJAAO MSV11-J MEMORY DIAG.

MTPOOS

ROTATION ONES TEST

MACRO V05.01b Friday 15-Feb-85 16:10

8085 025216

MTPO06: SUBTST
sRE RE

: #SUBTEST
JERER R

R Rk

R AR

<<MTP006

FPage 246
INITIAL DATA TEST>>

AR AR R Rk Rk Rk

MTPOO6

R R AR

R R R R

SEQ 0224

INITIAL DATA TEST
RR

R RR

R R

kR Rk

RR R

kb ke
Rk

kb kb

8086
8087
8088 025216
8089 025224
8090 025230
8091 025236
8092 025244
8093 025250
8094 025254
8095 025256

013771
017102
023702
001401
104433

002244
000000
002242

8097 025260
8098 025264
8099 025270
8100 025272

017102
023702
001401
104434

000002
002244

28:

MOV
CHP
BEQ
PERR10

82(R1),R2
DATBUF +2,R2
34

8102 025274
8103 025300
8104 025302
025302
025306

005737
100405

002244

006137
006137

002242
002244

18T
BMI
DLEFT
ROL
ROL

DATBUF +2
43
DATBUF
DATBUF
DATBUF
+2

sHAS LAST BIT BEEN TESTED ?
:MINUS MEANS BIT 31
iNO, SHIFT TEST BIT LEFT

;60 WRITE NEW TEST DATA
sNOW GOING TO SHIFT A O IN DATA DIRECTION
;PUT A 0 IN BIT 0

8105 025312
8106
8107 025314

012737

005037
013771

000001

002244
002242

002242

000000
000002

MOV

1%:

000746

CLR
MOV
MOV
MOV
CMP
BEQ
PERRO7

012737
012737
013771
013771
017102

177776
177777
002242
002244
000000

8113 025354
8114 025356

001401
104433

8116 025360
8117 025364
8118 025370
8119 025372

017102
023702
001401
104434

000002
002244

8121 025374
8122 025400
8123 025402

005737
100005

002244

025402
025406

006137
006137

002242
002244

8124 025412
8125 025414

000746
000207

002242
002244
000000

000002

4$:
5%:

8112 025350 023702 002242

;NOW_READ SECOND WORD
:BR_IF OK
:ERROR TRAP

.DSABL

CRF

MOV
MOV
MOV

#177776,DATBUF
#-1, DATBUF+2
;AND 1'S IN ALL OTHERS
DATBUF ,@(R1)
;WRITE THE DATA
DATBUF +2,32(R1) ;2 WORDS WORTH
a(R1),R2

8108 025322
8109 025330
8110 025336
8111 025344

;
THIS TEST CHECKS THE DI/DO LINES BY
;
SHIFTING A 1 THROUGH THE WORD.
#1,DATBUF
;SET THE FIRST TEST BIT
DATBUF +2
:CLEAR 2ND_WORD
DATBUF,@(R1)
;WRITE TEST WORD 1
DATBUF +2,32(R1) ;AND TEST WORD 2
a(R1),R2
DATBUF ,R2
;NOW READ THEM
24
:BR IF FIRST 16 OK
;ERROR TRAP

MOV
MOV
BEQ
PERRO7

CcMP

DATBUF ,R2

;NOW_READ FIRST WORD

64 :

MOV
CHP
BEQ
PERR10

82(R1),R2
DATBUF +2,R2
7%

;NOW, READ SECOND WORD
:BR IF OK

7%:

TST
BPL
DLEFT

DATBUF +2
84
DATBUF

.DSABL

CRF

ROL
ROL
8¢:

BR
RETURN

iBR IF OK

;TESTED BIT 31 YET?
iBR IF YES, WE'RE DONE

DATBUF
DATBUF
+2
53

;KEEP GOING

CVMJAAQ MSV11-J MEMORY DIAG.

MTPO06

INITIAL DATA TEST

8128 025416

MACRO V05.01b Friday 15-Feb-85 16:10

MTPOO7: SUBTST

<<MTPQO7

; *SUBTEST

MTPOO7

Page 248

ADDRESS BIT TEST>>

es
T e T T
L

ADDRESS BIT TEST

i
L
I I

8129
8130
8131
8132
8133 025416
8134 025420
8135 025422
gigg 025424

111100
105700
001401
104435

8138 025426
8139 025430
8140 025432
8141 025434
gi:g 025436

105111
111100
105700
001001
104436

14:

8144 025440
8145 025442
8146 025444
8147 025446
8148 025450
8149 025452
gigg 025454

040201
006302
050201
011100
005700
001401
104437

2%:

8152 025456
8153 025460
8154 025462
8155 025464
gigg 025466

005111
011100
005700
001001
104440

34:

8158 025470
8159 025474
8160 025476
8161 025502
8162 025504
8163 025506
8164 025512
8165 025514

022702
001407
022702
001356
006302
012701
000752
000207

MOvB
1578
BEQ
PERR11

100000

45:

010000
160000
S$:

:
THIS TEST CHECKS TO SEE THAT EACH ADDRESS
;
BIT IN EACH 16K BANK CAN BE ASSERTED UNIQUELY.
;
IT CHECKS FOR ADDRESS BITS THAT MAY BE STUCK
3
HIGH, STUCK LOW OR STUCK TOGETHER.
(R1),RO
RO
;READ AND COMPARE FOR ZEROS
14
;BR IF OK

coMB
Move
TSTB
BNE
PERR12

(R1)
(R1),RO
RO
2%

;COMPLEMENT THE BYTE

BIC
ASL
BIS
MOV
TST
BEQ
PERR13

R2,R1
R2
R2,R1
(R1).RO
RO
34

;MASK OFF THE ASSERTED BIT
;SHIFT R2 FOR NEXT BIT
;SET THE NEW BIT INTO R1

CoM
MOV
TST
BNE
PERR14

(R1)
(R1).RO
RO
43

;COMPL THE WORD

CMP
BEQ
CMP
BNE
ASL
MOV
BR
RETURN

#100000,R2
54
#10000,R2
2%
R2
#160000,R1
24

;:READ FOR NON ZEROS
;BR IF OK

;READ THE NEW ADDRESS
;READ FOR ZEROS

;READ IT AGAIN

;CHECK FOR MSB IN 4K BANK
;NOT LAST BIT, BRANCH

SEQ 0225

MTP010:

8168 025516

SUBTST

; *SUBTEST
R

8169
8170
8171 025516

8172 025520
8173 025522
8174 025526
8175 025532
8176 025540
8177 025542
8178 025544
8179 025546
8180 025550
8181 025552
8182 025554
8183
8184 025556
8185 025562
8186 025564
8187
8188 025566
8189 025570
8190 025572
8191 025574
8192 025600
8193 025602
8194
8195 025604
8196 025606
8197 025610
8198 025614
8199 025616
8200 025620
8201 025622

8202

<<MTPO10

010402
010403
062702
012713
012763
105013
010401
020201
001420
020301
001007
111100

022700
001401
104435

005201
000765
111100
122700
001401

MOV

000004
177777
177777

000002

1%:

2%:

;R4 HAS LOWEST ADDRESS

#4,R2
#-1,(R3)
#-1,2(R3)
(R3)

;POINT
;WRITE
;THE 4
;CLEAR

MOV

R4,R1

L L

;PUT IT IN R3 ALSO

R2 TO LAST BYTE -1
ALL_ONES IN
TEST BYTES
A BYTE

; INITIALIZE R1 FOR EACH PASS

CMP
BEQ

EQUAL, JUST READ LAST BYTE
IF EQUAL
THIS THE BYTE OF ZEROS
IF NOT

#0,RO
34

;IT IS, COMPARE FOR ZEROS

INC
BR

R1
24

;NEXT BYTE
;RETURN

BEQ

5§

5¢:

ggc

;MOVE TO NEXT BYTE

6%:

Move
INC
CMP
BNE

#-1,(R3)
R3
R3,R2
14

;RESTORE 1'S TO BYTE JUST TESTED
;INC TO NEXT BYTE
;WAS THAT JUST THE LAST ONE?
;:BR IF NO

; WARNING IF YOU OPTOMIZE CHANGE THE PCBUMP FOR THIS ERROR INCASE OF TRAPS

PERR11

34:

43%:

MOve
CMPB
PERR12

177777

bbb bbbt trbbivbbtttitbrsrtmttttd
L L LT

R4 R2

R4 .R3

CMP
BEQ
CMP
BNE
Move

BYTE ADDRESSING TEST

;TEST 3 TFTS TEST CHECKS FOR PROPER
BYTE ADDRESSING WITH ECC DISABLED

MOV

ADD
MOV
MOV
CLRB

BYTE ADDRESSING TEST>>
e

;IF
;BR
;IS
;BR

000000

177777

SEQ 0226

R2,R1
6%
R3,R1
4%
(R1),RO

104436

005201
000756
112713
005203
020302
001347
000207

MTPO10

Page 250

RETURN

(R1),RO
#-1,R0

;ITS NOT THE BYTE OF 0'S, READ 1'S

MACRO V05.01b Friday 15-Feb-85 16:10

———————

CVMJAAQ MSV11-J MEMORY DIAG.
- MTPQO7 ADDRESS BIT TEST

CVMJAAQ MSV11-J MEMORY DIAG.

MTPO10

BYTE ADDRESSING TEST

MACRO V05.01b Friday 15-Feb-85 16:10

MTPO14: SUBTST

8205 025624

SRR

R R

;*SUBTEST

<<MTPO14

R R R

R RRRR R AR R

MTP014

Page 252

SEQ 0227

BASIC DOUBLE BIT ERROR TEST»>>

R R R R R R

R R R R R R R R RN R R

R RS R R

R R e

b bkttt

bbb

BASIC DOUBLE BIT ERROR TEST

—-—

IRERERERRRE AR AR ER AR RN AR AR AR R R AR AR R R RN R R R RS AR SRR R R AR RO OO o

8207
8208

; THIS TEST CHECKS THAT A DOUBLE ERROR WILL BE DETECTED
; A BYTE WRITE WITH A DOUBLE ERROR ON A MSV11-P

gggg

; WILL BE ABOTRED.

8211 025624
8212 025626
025626
8213 025632
025632
8214 025640
025640
8215 025646
8216 025650
025650
8217 025656
8218 025660
025660

8219 025666
025666
8220 025670
8221 025672
025672
025700
8222 025702
8223 025704
025704

8224 025704
8225 025706
8226 025714
025714
025722
8227 025724
025724

8228 025732
025732

8229 025740
8230 025742

025742
8231 025742
8232 025744
8233 025750
025750
8234 025750
8235 025752
8236 025756
8237 025762

104424
005037

002072

012737

000001

002076

012737
104513

060000

002034

012737

003145

002150

012737

103145

002044

104425

005011

005711
023727
001401
104055

104426
042737

002072

020000

002150

023737
001407

002150

002044

012737

177777

002612

013737

002150

002052

104065

104473
005037

;SET PARITY ACTION

LET ADDRESS := #FIRST

;SET ADDRESS FOR ERROR REPORT

CBREG
LET CSR := #3145

LOADCSR
LET GOOD := #103145

LET (R1) := #0

TST (R1)
IF PARCNT NE #1

112711

000377

025770
025776

023727
001411

002072

ERROR +55

READCSR
BIC #BIT13,CSR
IF CSR NE GOOD THEN

SET HEADER

000001

CLR PARCNT
MOV #1,NOPAR

MOV #FIRST,ADDRESS
;ENABLE CHECK/SYNDROME BIT REGISTER
;DBE CHECK BITS FOR CSR
MOV #3145,CSR
;WRITE DBE CHECK BITS TO CSR
:GOOD DATA
MOV #103145,G00D

;WRITE ZEROS AND DBL ERROR CHK BITS A=0
CLR (R1)
;READ A=0 TO GET DOUBLE BIT ERROR
;:WAS BUSPBL ASSERTED????
CMP PARCNT,#1
BEQ L221
;ERROR CALL ;;MISSED EXPECTED TRAP
;
L221:5:3:333

;READ CSR FOR CORRECT CHECK BITS AND DBE INDICATOR
;CLEAR INHIBIT MODE POINTER FROM DATA IF IT EXSISTS1
;CHECK IF DOUBLE ERROR BIT IS SET
CMP CSR,GOOD
BEQ L222
.
MOV #-1,HEADER

LET BAD := CSR

;BAD DATA

ERROR +65

:
:

ECC1INIT
CLR PASSNO
REPEAT

002266

025762

8240 026000

LET NOPAR := #1

END

002266
002072

105711

; TURN OFF CACHE
;:CLEAR PARCNT

END

104473
005237
005037

8238 025766
8239 025770

000001

CACHOFF
LET PARCNT := #0

;ENABLE BUSPBL
;CLEAR LOOP COUNTER
:

MOV CSR,BAD
L222:;::::5::

ECC1INIT
INC PASSNO
CLR PARCNT
LET (R1) :B= #377

B31:::::::
;ENABLE BUSPBL
;sINCREMENT LOCP COUNTER
;CLEAR PARITY ACTION COUNTER
;WRITE BYTE SHOULD BE ABORTED

TSTB (R1)
IF PARCNT NE #1

;READ R1 TO SEE IF IT IS STILL O
:WAS WRITE ABORTED???

SET HEADER

MOVB #377,(R1)

CMP PARCNT,#1
BEQ L223

CVMJAAO MSV11-J MEMORY DIAG.

MTPO14

BASIC DOUBLE BIT ERROR

026000
8241 026006
026006
8242 026012
026012
8243 026020
8244 026022
22

012737

1777717

005037

002044

012737
104056

000377

8245 026024
852822 005201

8246

026024

026032
026034
8247 026034

8248 026036
8249 026040
8250 026044
8251 026046
8252

023727

001346
005041
104503
005037
104423
000207

002266

002072

1'5'2?"0 V05.01b Fridey 15-Feb-85 16:10
002612

002052

000002

Page 252-1

LET GOOD := #0

;GOOD DATA

LET BAD := #377

;BAD DATA

ERROR +56

SEQ 0228

CLR GOOD
MOV #377.BAD

L223:::::::

;AND REPEAT ON HIGH BYTE
:

CLR
-(R1)
CLRICSR
CLR
PARCNT
CACHON

;CLEAR LUT
;CLEAR CSR
;CLEAR PARITY TRAP COUNTER
;TURN ON CACHE

|
‘

INC
R1
UNTIL PASSNO EQ #2

RETURN

CMP PASSNO,
#2
BNE B31
E31:::3:::

CVMJAAQ MSV11-J MEMORY DIAG.

' MTPO14
]
|

MACRO V0S.01b Fridey 15-Feb-85 16:10

BASIC DOUBLE BIT ERROR TEST

SEQ 0229
MTPO17:

8255 026050

SUBTST

;*SUBTEST

8256
8257
8258
8259
8260
8261
8262 026050
8263 026054
8264 026056
8265 026062
8266 026066
8267 026070

8268 026072
8269 026074
8270 026076
8271 026100
8272
8273 026102
8274 026104
8275
8276 026106
8277 026110
8278
8279 026112
8280 026114
8281 026116
8282 026120
8283 026122
8284
8285 026124
8287

;%(1)

i %

;+(2)
;#(3)

012701
010104
012705
012700
010003
000303
110021
110321
020105
103774
014102
020002

060000

160000
000377
1$%:

2%:

;NOTE:
MOV
MOV
MOV
MOV
MOV
SWAB
MOVB
MOVB
CMP
BLO
MOV
CMP

BEQ

001401
104446

000300
001763
000207

RETURN

101372
000303

<<MTPO17

HOLDING 1'S &€ 0'S TEST>»>

MTPO17

HOLDING 1'S &€ 0'S TEST

L
L L

T T
T T

3$:

T T I
T T

THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY
OF HOLDING 1'S AND 0'S BY WRITING A BACKGROUNC
OF 000377 AND READING IT
MEMORY IS WRITTEN USING A BYTE AT A TIME
STEPS 1 & 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN

THIS TEST WRITES BYTES & READS WORDS
#FIRST,R1
R1,R4
#LAST+2,RS
#377,R0
;GET THE PATTERN INTO RO
RO,R3
R3
RO,(R1);WRITE A BYTE
R3,(R1)+
;WRITE THE MEMORY WITH THE BYTE STORED IN BAKPAT.1
R1,R5
;COMPARE TEST LOC TO TOP + 2

RO,R2

;BRANCH IF LOMWER

; TEST THE MEMORY TO SEE IF IT CONTAINS

;THE WORD STORED IN BAKPAT

R1,R4

;KEEP ON TESTII, THE MEMORY UNTIL

;CHANGE THE DAVA PATTERN

PERR22

CMP
BHI
SWAB
SWAB
BEQ

020104

Page 254

2%
1$

;R1 EQUALS THE LOWEST ADDRESS

;IF THE DATA PATTERN DOES NOT HAVE LOW

; BYTE =0 THEN FALL THRU

CVMJAAO MSV11-J MEMORY DIAG.

MTPO17

HOLDING 1'S & 0'S TEST

MACRO V05.01b Friday 15-Feb-85 16:10

8289 026126

MTP020:

SUBTST

<<MTP020

Page 256

SEQ 0230

SYNDROMES TO CSR ON SINGLE BIT ERROR TEST>>

; *SUBTEST

pon

MTP020

SYNDROMES TO CSR ON SINGLE BIT ERROR TEST

L L L L

8291
8292

;
;

gggz

;

8295 026126
8296 026130
8297 026132
8298 026136
8299 026140
026140
8300 026140
026140
8301 026144
026144
8302 026150
026150
8303 026154
026154
026162
8304 026164
026164
8305 026170
8;2{;2

8306 026172
026172

8307 026176

104424
005000
105037
104513

105237

002264

012704

177777

005037

002324

123727
001003

002264

012705

000001

LET R4

012705

8317 026230
8318 026232
8319 026234

8320 026236
8321 026244
026244

005237

LET RS := #177776

002324

005204
116402

030276

072227
052702

000005
000004

010237
104425

002150

042737

177757

002150

026252

023727
001407

002150

000020

026254

012737

000020

8322 026254

8323 026262

002044

B32:3:::::
; INCREMENT LOOP COUNTER
INCB PASFLG
;INDEX TO SINGLE BIT ERROR TABLE
MOV #-1,R4
;CLEAR INNER LOOP COUNTER
CLR BITNO

;SELECT DATA TO BE CORRECTED BY PASSNO
CMPB PASFLG,#1

BNE L225
;DATA=_;BIT TO BE CORRECTED IS A ONE
MOV #1,RS
:
2
BR L226

;DATA=177776;B1T TO BE CORRECTED IS A ZERO

END

REPEAT

MOV #177776.RS

L226:;:::::

INC BITNO
LET R4 := R4 + #1

B33:;:::::
; INCREMENT BIT POINTER
;POINT TO NEXT SET OF CHECK BITS

LET R2 :B= PTABLE(R4)

;GET NEXT SET OF CHECK BITS

ASH #5,R2
BIS #BIT2,R2
LET CSR := R2

;SHIFT TO LINE UP IN CSR
;ENABLE DIAG MODE
;GET CHECK BITS TO BE WRITTEN
MOV R2,CSR
;LOAD CSR WITH DATA
;WRITE DATA TO TEST ADDRESS
MOV RO,(R1)

LOADCSR
LET (R1) := RO

010011

104503
005711
104426

IFB PASFLG EQ #1

ELSE

026176

8308 026176
026176
8309 026176
8310 026202
026202
8311 026204
026204
8312 026210
8313 026214
8314 026220
026220
8315 026224
8316 026226
026226

:= #-1

LET RS := #1

177776

;:TURN OFF CACHE
;CLEAR DATA
;CLEAR PASFLG
;ENABLE CHECK/SYNDROME BIT REGISTER
:

LET BITNO := #0

000402

ALL 16 DATA BITS.

LET PASFLG :B= PASFLG + #1

000001

T T

THIS TEST CHECKS TO SEE IF THE SINGLE BIT ERRORS CAUSE THE SBE
BIT IN THE CSR TO BE SET AND CORRECT SYNDROME BITS ARE GENERATED FOR

CACHOFF
CLR RO
CLRB PASFLG
CBREG
REPEAT

002264

CLR1CSk
TST (R1)
READCSR

BIC #tC20,CSR
IF CSR NE #20

INC R4

MOVB PTABLE(R4),R2

;CLEAR CSR
;CORRECT SBE
;READ CSR FOR CORRECT SBE BIT AND SYNDROMES

;CLEAR ALL BUT SBE INDICATOR
;WAS DATA CORRECTED???
CMP CSR, #20

LET GOOD := #20

;

LET BAD

:= CSR

BEQ L227

MOV #20,G00D

CVMJAAQ MSV11-J MEMORY DIAG.

MTP020

MACRO V0S.0ib Friday 15-Feb-85 16:10

SYNDROMES TO CSR ON SINGLE BIT ERROR TEST

026262
8324 026270
8325 026272

013737
104060

8326 026272
8327 026274
8328 026276
8329 026304

104514
104426
042737

174033

116403
072327
052703

026422
000005
000004

020337
001411

002150

012737

177777

010337

002044

013737
104042

002150

8330 026310
8331 026314
8332 026320
8333 026326
8334 026334
8335 026340
8336 C
8337 026350

8338 026350
8339 026352
8340 026362
8341 026364

026366
026366
8342
8343 026370
8344 026372
026372
8345 026372
026372
026400
026402
8346 026402
8347 026404

002052
END

1237
001
006305

READCSR
BIC #1C3744,CSR
LET R3 :B= SBESYN(RA)

002150

ASH #5,R3

BIS #BIT2,R3
IF R3 NE CSR

002612

002052

END

002264

000001

SEC

8348 026414
8349 026416
8350 026420
8351

104503
104423
000207

002264

000002

CLR1CSR
CACHON
RETURN

013
026
034

046

054

023
031
043

051
061

;
:

MOV R3,GO0OD
MOV CSR,BAD

L230:5:53:3
;CLEAR LUT
;SHIFT NEW DATA DEPENDING ON PASFLG
CMPB PASFLG,#1
BNE L231
;SHIFT BITNO TO THE LEFT

BR L232
L231:::::::
;SET CARRY BIT AND......
;ROTATE LEFT

;UNTIL ALL BITS ARE DONE

CMP BITNO,#16.
BNE B33
E33::;5:3:3
;COMPLEMENT DATA AND REPEAT
;UNTIL 2 PASSES ARE COMPLETE!
CMPB PASFLG,
#2
BNE B32
E32:::55::3
;CLEAR CSR
; TURN CACHE

MSV11-P SINGLE BIT ERROR SYNDROME BIT TABLE

éBESYN: .BYTE

CMP R3,CSR
BEQ L230

;

COM RO
UNTILB PASFLG EQ #2

;
016

UNTIL BITNO EQ #16.

000020

005100

123727
001252

;

ENDROL

002324

;SHIFT _INTO POSITION

MOVB SBESYN(R4),R3

;SET DIAG MODE IN DATA
;D0 SYNDROME BITS AGREE

LET BAD

ERROR +42

L227:3:::3

'GET SYNDROMES FROM CSR
iMASK_SYNDROME BITS
‘GET GOOD SYNDROMES

;

:= CSR

MOV CSR,BAD

;ENABLE SYNDROME BIT REGISTER

LET GOOD := R3

ASL

006105

;NO ERROR
3

‘

ELSE

000261

SEQ 0231

SET HEADER

CLR (R1)
IFB PASFLG EQ #1

000402

023727
001276

ERROR +60

SYNREG

005011

026404

026412
026414

002150

Page 256-1

16,13,23,25,26,31,32,34,43,45,46,51,52,54,61,64

;

MACRO VOS.0lb Fridey 15-Feb-85 16:10
- CVMJAAQ MSV11-J MEMOR YD 1 AG.
{ MTPO20 SYNDROMES T0 CSR ON SINGLE BIT ERROR TEST
MTPA21: SUBTST

8357 026442

;AR

; *SUBTEST

14:

8370 026464
8371 026466
8372 026470
8373
8374 026472
8375 026472
8376 026474
8377 026476
8378 026500
8379
8380 026502

8381 026504
8382 026506
8383 026510
8384 026512
8385
8386 026514
8387 026520
8388 026522
8389 026524
8390
8391 026526
8392 026526
8393 026530
8396
8397 026536
8398 026540
8399 026342

34:

MOV

CcHP

MTPA21

14%:

2%:

062701
020501
001363
000207

MTPC21:

1s:

SWAB

(R1)

:V177650

2%:

000002

3¢:

:V177646

(R1),R0 ;V177652
;V177654
R3,RO0
34
:V177656
;V177660

CMP

R4,R1

BNE

;V177662

:V177664
: V177666

;DONE?
;NO - LOOP
;YES - RETURN

;READ,BYTESWAP-MODIFY,READ,UP

MOV

(R1),R0 ;V177640

CMP
BEQ

R3,R0
2

SWAB
MOV
CMP
BEQ

(R1)
(R1),R0
R2,R0
34

; V177650
;V177652
;V177654
:V177656

ADD
CMP
BNE

#2,R1
RS,R1
14

;V177662
;V177666
:V177670

;V177642
V177644

:V177646

:V177660

:V177672

;DONE?
;NO - LOOP

:YES - RETURN

;READ,BYTESWAP-MODIFY,READ,UP

MOV
CMP
BEQ

(R1),R0 ;V177640
R2,RO0
;V177642
:V177644
24

SWAB

PERR17

000311
011100
020300
001401
104444

;V177642

MOV
CHP
BEQ
PERR20

RETURN

011100
020200
001401
104443

001363
000207

34:

-(R1),R0;V177640

R2,RO0

;V177644

PERR17

000002

PERR20

000311
011100
020200
001401
104443

062701
020501

8406 026560

MTPB21:

MARCHING 1'S & 0'S PATTERN TEST

BEQ

RETURN

011100
020300
001401
104444

MARCHING 1'S & 0'S PATTERN TEST>>

<<MTPA21

DOWN
,READ,AP
TESW
-MODIFY
;READ,BY

PERR17

2%:

SEQ 0232

R AR R REEREERRRERRRRRRERRNERRRER
RN RN RN RE RN RN R RSN R
Bt Rttt bt bn e

8358
8359 026442

Page 257

: V177646

MOV
CMP
BEQ
PERR20

(R1)

(R1),RO ;V177652
R3,R0
;V177654
33
; V177656
;V177660

:V177650

ADD
CMP
BNE

#2,R1
R5,R1
1$

;V177662
;V177666
:V177670

RETURN

:V177672

;DONE?
NO - LOOP

;YES - RETURN

T T I LI L

VMJAAO MSV11-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

MARCHING 1'S € 0'S PATTERN TEST
014100

8413 026570
84 14
8415 026572

8416 026574
8417 026576
8418 026600
8419 026602
8420
8423 026610
8424

020300
001401
104444

MTPD21:

14:

000311
011100
020200
001401

2%:

020401
001365
000207 . .

3$:

104443

Page 259

SEQ 0233

;READ,BYTESWAP -MODIFY ,READ , DOWN
-(R1),R0;V177640

MOV
cHP
3EQ
PERR20
SWAB
MOV
CHP
BEQ
PERR17

CHP
BNE
RETURN

R3,R0

;V177642

;V177644

; V177646

(R1)
; V177650
(R1),RO ;V177652

R2,R0
3¢

;V177654
:V177656
;V177660

R4,R1
14

;V177662
;V177664

;V177666

0ooP

YES - RETURN

| CVMJAAO MSV11-J MEMORY DIAG
MTPA21

MARCHING 1°'S €

MACRO V05.01b Fridey 15-Feb-85 16:10

0'S PATTERN TEST

8427 026612

SEQ 0234
MTP022: SUBTST

<<MTP022

L bbbttt
T
T T T L

Dttt 2L

; *SUBTEST
R

000010
012737

KDIAG=8.

000001

002364

000001

013702

002336

013703

002614

013703

002336

005037

012701

060000

020127
101032

157776

005737
002003
012737

002370

026734

010211

8451 026734

000007
000374

T TR

III I

;HOW OFTEN A DIAGONAL STRIPE OCCURS (MUST BE A POMER OF 2)
FOR EVEN := #1 TO #2
;FOR DATA & COMPLEMENT DATA

MOV @1,EVEN
B34:;;:::::

IF EVEN EQ #1

CMP EVEN,
1
BNE L235
MOV ZEROS.R2

MOV ONES,R3

BR L236
L235:::::5::

LET R2 := ONES

MOV ONES,R2

LET R3 := ZEROS

MOV ZEROS,R3

END ;OF IF EVEN
FOR STRIPES

L236:535:3:

:= #0 TO #KDIAG-1

;FOR THE NUMBER OF STRIPES
CLR STRIPES
835:5::33:

002370

CACHON
LET COUNT := STRIPES

: TURN CACHE ON
MOV STRIPES,COUNT

LET R1 := #FIRST

MOV #FIRST,R1

WHILE R1 LOS #LAST

IF COUNT LT #0 THEN LET COUNT

:= #KDIAG-1

002370

IF #374 OFF.IN R1 THEN LET COUNT

002370

WE WRITE A DIAGONAL PATTERN IN MEMORY (MWITH CACHE ON).
IF A REFRESH TEST WE DISTURB ALL ROMS FOR > 2 MS (WITH CACHE ON).
WE READ & CHECK FOR CORRECTNESS THE DIAGONAL PATTERN
(WITH CACHE OFF).

;WRITE LOOP

002366

005737
001404

REFRESH & SHIFTING DIAGONAL TEST

ELSE

002366

013737

032701
001002
005337

:(1)
:(2)
:(3)
P

MTP022

LET R3 := ONES

104423

8449 026714
026714
026720
026;22
026726
8450 026726
026726
026732

REFRESH & SHIFTING DIAGONAL TEST>>

LET R2 := ZEROS

000404

013702

Page 261

IF COUNT NE #0
LET

(R1)

:= R2

836:::ssé:
MP R1,#LAST
BHI L237

COUNT

L240:;;:::::
:= COUNT - #1

L241:5:33353

L240
#KDIAG-1,COUNT
#374 ,R1

L2841
COUNT

TST COUNT
BEQ L242
MOV

R2,(R1)

CVMJUAAO MSV11-J MEMORY DIAG.

| MTPO22

MACRO V05.01b Fridey 15-Feb-85 16:10

REFRESH & SHIFTING DIAGONAL TEST

8452 026736
026736
8453 026742
026742
026744
8454 026744
744

8456 026752
026752
8457 026;52

8459 026762
026762
026764
026764
8461
8462 026764
026764
026770
026772
026776
8463
8464 026776
026776
8465 027004
027004
8466 027010

010261

SEQ 0235
LET 2(R1)

000002

MOV R2,2(R1)

BR L243

LET (R1)

010311

005337

:= R2

ELSE

000403

010361

Page 261-1

:= R3

LET 2(R1)

000002

L242:::::::

MOV R3,(R1)

:= R3

MOV R3,2(R1)

END ;OF IF COUNT
LET COUNT

002370

LET R1

062701

END

000743

L243:;:::::

:= COUNT - #1

DEC COUNT

:=R1 « #4

ADD #4,R1

;OF WHILE

BR B36
L237::5:333

;END OF WRITE LOOP

005737
001002
004737

IF DIAGFLAG IS FALSE THEN $CALL REFRESH

002004

027166

;READ LOOP

013737

002366

012701
104424

060000

TST DIAGFLAG

BNE L244
JSR PC,REFRESH

002370

LET COUNT

:= STRIPES

MOV STRIPES,COUNT

LET R1 := #FIRST
CACHOFF

: TURN CACHE OFF

MOV #FIRST,.R1

8468 027012
027012

Page 262

WHILE R1 LOS #LAST

027012 020127 157776

027016
8469 027020
027020
027024
027026
027034
8470 027034
027034
027040
027042
027046
8471 027046
027046
027052
8472 027054
027054
8473 027056
027056
027060
8474 027062
8475 027064
027064
8476 027064
027064
8477 027070
027070
027072

8478 027074
8479 027076
027076
8480 027076
027076

027100

8481 027100

027100

8482 027102
027102
027104

8483 027106
8484 027110

101046

005737
002003
012737

000374

005737
001412

002370

011100
020200
001401
104443

016100

000002

020200
001401

C€01401

104444

027122

005337

LET RO := 2(R1)

IF R2 NE RO

PERR20
END ;OF IF R3
000002

LET RO := 2(R1)
IF R3 NE RO
PERR20
END ;OF IF R3
END ;OF IF COUNT

002370

LET COUNT
LET Rl

MOV 2(R1),RO
CMP R2,RO
BEQ L252

L252:::3::3
BR L253

IF R3 NE RO

020300

BHI L24S

TST COUNT
BGE L246
MOV #KDIAG-1,COUNT
L246:;::::::
IF #374 OFF.IN R1 THEN LET COUNT := COUNT - #1
BIT #374,R1
BNE L247
DEC COUNT
L247:;:::::
IF COUNT NE #0
TST COUNT
BEQ L250
LET RO := (R1)
MOV (R1),.RO
IF R2 NE RO
CMP R2,RO
BEQ L251
PERR17
END ;0F IF R2
L2S1:::::::

LET RO := (R1)

011100

016100

IF COUNT LT #0 THEN LET COUNT := #KDIAG-1

ELSE

000411

B37:::::::

EHP R1,LAST

PERR17
END ;OF IF R2

104443

020300
001401
104444

8491 027126

000007

032701
001002
005337

027110
8485 027110
027110
8486 027114
027114
027116
8487 027120
8488 027122
027122
8489 027122
027122
8490 027122

002370

SEQ 0236

:= COUNT - #1

:= R1 « %4

L250:;:::::

MOV (R1).RO

CMP R3,RO

BEQ L254
L254:;;:::::

MOV 2(R1),RO
CMP R3,RO
BEQ L255
L2SS:;:::5:3

L253:;3:::353

DEC COUNT

— ————

REFRESH & SHIFTING DIAGONAL TEST

—————

MTP022

MACRO V05.01b Fridey 15-Feb-85 16:10

CVMJAAO MSV11-J MEMORY DIAG.

027126

8492 027132
027132
027134
027134

062701

100004

SEQ 0237

ADD #4,R1

END ;OF WHILE

000727

g:gz

8495 027134
027134
027140
027146
027150
8496 027150
027150
027154
027162
027164
g:g; 027164

Page 262-1

BR B37
L24S:;:::::
E37:::55:3::

;END OF READ LOOP
005237
023727
003643

002366
002366

005237
023727
003616

002364
002364

000207

END ;OF FOR STRIPES

INC STRIPES
CMP STRIPES, #KDIAG-1
BLE B35
E3S::s535333

000007

END ;OF FOR EVEN

INC EVEN
CMP EVEN, #2
BLE B34
E34:;::::::

000002
RETURN

8499 027166

REFRESH:SUBTST

<<SUBR

REFRESH DELAY>>

; *SUBTEST

SUBR

REFRESH DELAY

; Rk koA
kR Rk kR Rk R KRRk h

I
T
T T e T
T
e
MmN memMmMm
OTM

8500
8501 027166
027166
027172
8502 027172
8503 027176
027176
027202
027206
027210

012700

060000

004737

027236

062700
020027
003771

000004
060374

012700

120000

027214

020027

020372

8506 027222
8507 027226

004737

027236

062700

000004

8504 027210
027210
8505 027214
027214
027220

027226
8508 027232
027232

027234
027234
8509 027234
8510 027236

|
|

8511 027242
8512 027246
8513 027250
8514 027252
8515 027254
8516 027256
8517 027260
8518 027264

101005

000770

000207
012704
062700
005140
005120
005110
005110
077405
162700
000207

000640
000002

000002

;DISTURB EACH ROW FOR > 3.2 MS
FOR RO := #FIRST TO #FIRST+374 BY #4

CALL REFSUB
END ;OF FOR RO

LET RO := #FIRST+BIT14

WHILE RO LOS #LAST+BIT14.374

MOV #FIRST,RO
B40:;;::::
ADD #4,RO
CMP RO,#FIRST+374
BLE B40
E40:;;;:::::

MOV #FIRST+BIT14,R0
B4l:;;;::;

CMP RO, #LAST+BIT14.374

CALL REFSUB
LET RO := RO +» #4
END ;OF WHILE

RETURN
REFSUB: MOV
ADD
14:
COM
CoM
COM
COM
S0B
SuB
RETURN

BHI L256

ADD #4,RO
BR B4l

L2S6:;::::::
E41:;;::::;
#640,R4
#2,R0
-(RO)

(RO)+
(RO)
(RO)
R4,1$
#2,R0

;TIME FOR A > 3.2 MS LOOP

————

MACRO V0S5.01b Friday 15-Feb-85 16:10

REFRESH & SHIFTING DIAGONAL TEST

——————————
—

CVMJAAQ MSV11-J MEMORY DIAG.

MTP022

CVMJAAQ MSV11-J MEMORY DIAG.
- SUBR
REFRESH DELAY

8521 027266

MACRO V05.01b Friday 15-Feb-85 16:10

MTPA24: SUBTST

<<MTPA24

ettt

FAST GALLOPING PATTERN TEST

8540

iR3

BAKPAT

iRS

LAST

;R4

gg:g
gg:;

SWAPAT

;:NOTE THE PATTERN STARTS AT MTPB24!!!:tittirsran

;UIPAR'S

8547 027266
8548 027270
8549 027272
gggg 027274

011100
020004
001401
104447

14:

MOV
CMP
BEQ
PERR23

(R1),RO
RO,R4
2%

;V177640
; V177642
:V177644
:V177646

;:READ 'A’
;CHECK 'A’
;BR IF 0K
;:REPORT ERROR

8552 027276
8553 027300

011200
020003

2%:

MOV
CMP

(R2),R0
RO,R3

:V177650
:V177652

;READ 'B’
;CHECK 'B’

8554 027302

001401

8557 027306

062702

000400

8561 027316
8562 027322

062701
000137

000002
027326

gggz 027304
8558 027312
ggzg 027314

T T

BEQ

104450

020205
101764

PERR24

33:

ADD

;1 V177654

;:BR_IF OK

:V177656

;REPORT ERROR

CMP
BLOS

R2,R5
1

#400,R2

:V177660

;BUMP 'B’

ADD
JMP

#2,R1
MTPB24

:V177670
iV177674

;BUMP 'A’
;GOTO V177260

;V177664
:V177666

;AT END YET?
;BR IF NO

;THE TOTAL TEST (INCLUDING SETUP) IS AS FOLLOWS
;#(1)
THIS TEST WRITES THE MEMORY WITH A BACK GROUND PATTERN
i*
STORED AT LOCATION BAKPAT
;#(2)
TEST BEGINS AT LOWEST LOCATION BEING TESTED
i*
(LETS NAME IT 'A’')
;#(3)
LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS 'B'.
:#(4)
SWAPS BYTES FOR LOCATION 'A'.
;*(5)
READS 'A', READS 'B'
;#(6)
'B' = 'B'+400
(ADDS 64 DOUBLE WORDS TO 'B')
:#(7)
REPEATS STEPS 5 AND 6 UNTIL 'B' IS GREATER THAN THE
;#(8)
END OF THE BANK A2
;*(9)
REPEATS STEPS 3-8 UNTILL 'A' REACHES THE END OF THE BANK
t(lO) AFTER EXECUTING THE TEST DATA IS COMPLEMENTED
AND STEPS 1-9 ARE REPEATED
REGISTERS ARE USED AS FOLLOWS
RO
TEST DATA
Rl
‘A’
iR2
'8’

8541

8546

MTPA24

SEQ 0238

FAST GALLOPING PATTERN TEST>>

; *SUBTEST
8522
8523
8524
8525
8526
8527
8528
8529
8530
8531
8532
8533
8534
8535
8536
8537
8538
8539

Page 264

FAST GALLOPING PATTERN TEST

SEQ 0239
MTPB24: SUBTST

8565 027326

<<MTPB24

MTPB24

FAST GALLOP PART B

:tttttttt;a;:ar;tttttttttttttttttttttttttttttttttttttttttttttttttttt‘tt‘tttt.t.t

010411
020105
001001
000207
000137

027342

1%:

MOV
CMP
BNE
RETURN

R4,(R1)
R1,R5
14

JMP

: V172260
:V172262
:V172264
:V172266

a#MTPC24

MTPC24: SUBTST

:V172270

;WRITE ‘A’
;DONE?
;:BR _IF NO
:YES - RETURN

;GOTO V172360

FAST GALLOP PART C>>

<<MTPC24

shkkkkkkdkokkkkkdokkkkkkkokkkkkkkkkkkk
ko kkkkk ko ke
ke kb

; #*SUBTEST

8574
8575 027342
8576 027344
8577 027346
8578 027350
8579 027352
8580 027354
8581

FAST GALLOP PART B>>

et
et L
L T L T L T T
P

; #SUBTEST
8566
8567 027326
8568 027330
8569 027332
8570 027334
8571 027336
8572
8573 027342

Page 266

MTPC24

FAST GALLOP PART C

;.ttttt‘t‘5;;;‘;‘tt#ttttt#*ttt‘tt.ttt###t#‘ttttt‘.t‘ttt*tt.ttt‘t‘*.‘.“#.‘tt‘t.‘

;K
MOV
MOV

010102
011100
020004
001401

104447
000137

CMP

BEQ

027306

1¢:

PERR23
JMP

R1,R2
(R1).RO

;:V172360
;1 V172362

;RESET 'B'
;READ 'A’

: V172366

;BR IF 0K

"RO,R4

a#MTPA24+20

;:V172364
; V172370
;V172372

<--- 'A’

;CHECK 'A’
;REPORT ERROR
;GOTO V177660

—————

MTPA24

MACRO V05.01b Fridey 15-Feb-85 16:10

——————

- CVMJUAAO MSV11-J MEMORY DIAG.

CVMJAAO MSV11-J MEMORY DIAG.

'MTPC24
|

FAST GALLOP PART C

MACRO V05.01b Friday 15-Feb-85 16:10

Page 268

SEQ 0240
MTPA26:

2584 027360

8585 027360
8586 027364
8587 027366
8588 027370
8589 027372
8590
8591 027374

SUBTST

<<MTPA26

RANDOM DATA (WRITE)>>

000137
010221
010321
077005
000207

027430

T T

; *SUBTEST

MTPA26

14:

IMMTPC26
R2,(R1)+
R3,(R1)RO,1$

:V177640
:V177644
:V177646
:V177650

<<MTPB26

RANDOM DATA (READ)>>

JMP
MOV
MOV
S0B

RETURN

MTPB26: SUBTST
2 2 2t

RANDOM DATA (WRITE)

MTPB26

T I

I I 1

:V177652

22222 22223 22222 2223222t

; *SUBTEST

GOTO V172360

d a2t

RANDOM DATA (READ)

d i

ittt

LT
T T

8592
8593
8594 027374
8595 027400
8596 027402
8597 027404
8598 027406
8599 027410

027430

14:

.DSABL
.ENABL
JMP
CMP
BEQ

PERR25

2%:
CoM
RANODD: 0
CMP
BEQ

8600 027412
8601 027414
8602 027416
8603 027420
8604 027424
8605 027426

177764

34:

8606

8607

8608
8609 027430

PERR2S
COM

S0B
RETURN
.DSABL
.ENABL

MTPC26: SUBTST
D

; *SUBTEST
D

8610
8611
8612

8613

8614

8615 027430
8616 027434
8617 027436
8618 027440
8619 027442
8620 027446
8621

073427
060305
005504
060204
062705
000240

000007

001057

8627 027462

GOTO V172360

:V177650

(PC)+

:V177652
:V177654
:V177656
:V177660

R3,(R1)+
34

FOR ERROR REPORTING

:V177662
;V177664

RANODD
RO,1$

:V177670
iV177672

LSB
AMA

<<RANDOM NUMBER SUBPROGRAM>>

RANDOM NUMBER SUBPROGRAM

ittt

ataat s T

;CALLER MUST SETUP
SEEDLO,R3
MOV
;
SEEDHI,R2
MOV
;
:

MOV

ASHC
ADD
ADC
ADD
ADD
NOP

#7.R4
R3,RS
R4
R2,R4
#1057,RS

MOV

T T

R3,RS5

R2,.R4

;V172360
;V172364
:V172366
; V172370
;V172372
;V172376

GOTO V172260

<<RANDOM NUMBER SUBSUBPROGRAM>>

L bt

; *SUBTEST

8623 027450
8624 027452
8625 027456
8626 027460

:V177640
:V177644
: V177646

L ettt
T T T T T T T T )

MTPD26: SUBTST

8622 027450

AMA
LSB
a#MTPC26
R2,(R1)2%

005504
062704
010503
010402
000137

047401

027364

ADC
ADD

MOV
MOV
JMP

RANDOM NUMBER SUBSUBPROGRAM

et L

R4
#47401,R4

RS,R3
R4 ,R2
J4MTPA26+4

:V172260
:V172262

i V172266
:V172270
;172272

GOTO V177644

—

—
e —

CVMJAAQ MSV11-J MEMORY DIAG.

RANDOM NUMBER SUBSUBPROGRAM

8630 027466

135

MACRO V05.01b Friday 15-Feb-85 16:10

MTP030: SUBTST

<<MT0030

:#SUBTEST

MT0030

sEERRESEE R R RN R RE R
sERERER R R AR R

8631 027466
8632 027470
8633 027472
8634 027474

011002
010220
077103
000207

is:

8636 027476

R R R

R AR AR

Page 270

R R R R RR

FLUSH OUT DBE'S>>
RN

R R R SRR R R R

FLUSH OUT DBE'S

R R R R R

SEQ 0241

R RR

R R

R RN

R Rk bk bk bk

MOV
MOV
S0B
RETURN

(RO),R2
R2,(RO)«
R1,1$

:V177640
V177642
V177644
V177646

MTPO31: SUBTST

<<MTPO31

SOB-A-LONG TEST>>

; #SUBTEST

MTPO31

8642 027512
8643 027514
8644 027516

000000
077001
005167
020167
001403
104454
010167

8647
8648 027530
8649 027532
8650 027534
8651 027536
8652 027542

010503
005725
010504
020537
001001

177772
177766
177756

8645 027522 005167 177752
8646 027526 010200

gggz 027544

8655 027546
8636 027550
8657 027552
8658
8659

ke
bk
bbb bk

shkkkbkkkkkkkkkkkkkkkkkkkkkkk
ko ko
k ok
k kb kb
kb kb kbbb

SOB-A-LONG TEST

shkkkkkkkkkbkkkkkk kb kkkkkkk kb kk kb

8637
8638 027476
8639 027500
8640 027502
8641 027506

kbbb kb

13:

24:

COM
MOV

;UPDATE
MOV
157
MOV
CMP
BNE

002522

000207

014344
001376
000752
000056

.DSABL
0
S0B
CoM
CMP
BEQ
PERR30
MOV

RETURN

AMA

RO,1$
14
R1,1$
2%
R1,1$

13
R2,R0O

MOVE REGISTERS
RS,R3
(R5)+
RS, R4
RS, 38LINK1
33

MOV
-(R3),-(R4)
34
BNE
1
BR
H=
. -MTP031
SOBLENGT
.ENABL AMA

kb kbbb kb kb

;MOVE_TERMINATOR
:SO0B_TILL RO UNDERFLOMWS
:WRITE COMPLEMENT OF SOB
;READ & CHECK FOR NOT “SOB RO,DOT"
;0K - SKIP

;CORRECT SOB_INSTRUCTION
;REINITIALIZE SOB CONSTANT
;BUMP (SAFELY) BY 2
;DONE?
iNO - SKIP
: YES

- CVMJAAQ MSV11-J MEMORY DIAG.

' MTPO31

]

SOB-A-LONG TEST

8687 027554

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0242
MTP032:

SUBTST

sERERRRRERR

Page 272

; *SUBTEST

<<MTP032

WRITE RECOVERY TEST>>

AR RRRERRRR R RN

RN RERRRERR R

MTP032

R RN R R R kbR

kbbb

kb e

WRITE RECOVERY TEST

e
L
T T T T T T TP T

8688
8689
8690
8691
8692
8693 027554

8694 027556
8695 027560
8696 027562
8697 027564
8698 027566

8699 027572
8700 027574
8701 027576
8702 027600
8703 027602
8704 027604

;THE TEST ACTUALLY EXECUTED ALREADY IN THE MEMORY UNDER TEST.
; THIS CODE INSURES THAT IT CHANGED MEMORY TO HAVE

012401
020102
001401

104430
077305
013703
012400
020005
001401
104427
077305
000207

;172 BANK OF #5141
;172 BANK OF #110

WHICH IS A “COM -(R1)" INSTRUCTION AND
WHICH IS A “JMP (RO)"
INSTRUCTION.

MOV
CMP
EQ

(R4)+,R1
R1,R2
24

3$:

S0B
MOV
MOV
CMP
BEQ

R3,1$
a#LINK1,R3
(R4)+,RO
RO,RS5
4%

45:

S0B

R3,3$

;V177640
:V177642
:V177644
:V177646
; V177650
: V177652
: V177656
:V177660
iV177662
;V177664
;V177666

14:

002522

24:

PERRO2

;GET_DATA FROM LOWER 1/2 BANK
;IS IT #51417
;YES - SKIP
iNO - TAKE ERROR TRAP
;LOOP FOR 1/2 BANK
;RESTORE LOOP SIZE
;:GET _DATA FROM UPPER 1/2 BANK
;IS IT #1107
;YES - SKIP
;NO- TAKE ERROR TRAP
;LOOP FOR 1/2 BANK

CVMJAAQ MSV11-J MEMORY DIAG.

' MTPO32

WRITE RECOVERY TEST

8707 027606

MACRO V05.01b Fridey 15-Feb-85 16:10

MTPO33: SUBTST
D

; *SUBTEST

8708
8709 027606

8710 027610
8711 027612
8712 027614
8713 027616
8714 027620
8715 027622

8716
8717
8718 027624

8719 027626
8720
8721 027630
8722 027632
8723 027634
8724 027636
8725 027640
8726 027642

8730 027644
8731 027646

000000
000000
000261

BGTEST: 0
BRGOBB: SEC
ADCB
BMI
INCB
BR

105511

100402

105212
000773

MTPO33

(R1)
14
(R2)
BRGOBB

000242
105212
103402
102001
100401
104461

2%:

34:

CLv
INCB
BCS
BVC
BMI
PERR3S

010701

4%:

MOV

PC,R1

MOV
INC

R1,.R2
R2

8732 027652
8733 027654
8736 027656
8737 027660
8738 027662

010503
005725
010504

8741 027664
8742 027670
8743 027672
8744
8745
8746 027674
8747 027676
8748 027700
8749 027702

020537
001001
000207
014344
001376
005011
000743
000076

T T

PERR3S

; TEST WORD (TWO BYTES)
;SET CARRY (TO BE_ADDED TO_ “BGTEST")
; INCREMENT LOW BYTE OF "BGTEST"
;BRANCH WHEN BIT7 IS SET
: INCREMENT HIGH BYTE OF "BGTEST"
;LOOP 128 TIMES

;BR IF V-BIT SET (SHOULD BE)

;NO - REPORT ERROR AND ABORT TEST

;COND CODES NOT EQUAL TO 1010

(R2)
34
34
44

;CLEAR V-BIT
: INCREMENT HIGH BYTE OF “BGTEST" ONCE MORE
;BR IF C-BIT SET (SHOULD NOT BE)
;BR IF V-BIT CLEAR (SHOULD NOT BE)
;BR IF N-BIT SET (SHOULD BE)
;NO - REPORT ERROR AND ABORT TEST
;COND CODES NOT EQUAL TO 1010

SuUB

#5$-BGTEST,R1

;UPDATE MOVE REGISTERS

;DONE?

CMP
BNE

RETURN

64:

YT T

;MOVE TERMINATOR

;UPDATE TEST POINTERS

MOV
ST
MOV

002522

T T

;NOW CHECK FOR CORRECT CONDITION CODES

BVS

5%:

BRANCH GOBBLE TEST

AMA

1%:

000036

SEQ 0243

BRANCH GOBBLE TEST>>

102401
104461

162701
010102
005202

8750
8751

.DSABL
0

<<MTPO33

Page 274

R5,R3
(RS)+
RS5,R4

;BUMP (SAFELY) BY 2

RS, @#LINK1
64

;DONE?
;:NO - SKIP

;YES - RETURN

;MOVE CODE 1 LOCATION

MOV
-(R3),-(R4)
BNE
6%
CLR
(R1)
BR
BRGOBB
GBLENGTH=, -MTP033
AMA
.ENABL

;CLEAR TEST WORD "BGTEST"
;RUN MOVED CODE AGAIN

— ———
.
—

CVMJAAQ MSV11-J MEMORY DIAG.

' MTPO33

BRANCH GOBBLE TEST

MACRO V05.01b Fridey 15-Feb-85 16:10
MTPO34:

8753 027704

I I

22 22 2 22 2

; *SUBTEST
;R

8754 027704
8755 027706
8756 027710
8757 027712
8758 027714
8759 027716
8760 027720
8761 027722
8762 027724
8763 027726

010220
077102
000207
012401
020102
001402

104430
000240
077306
000207

1s:
2%:

EER

MOV

22t

MTPO34
R

soB
RETURN
MOV
CMP

SOFT ERROR - BACKROUND PATTERN TEST>>

22 2 a2 d

R1,MTPO34

RRRRER R AR R ER R RN RN

;:V177640

BEQ

(R4)+,R1
R1,R2
34

NOP
S0B

R3,2%

:V177656
;V177660

RETURN

SEQ 0244
e

SOFT ERROR - BACKROUND PATTERN TEST

R AR EER

R2,(RO)+

;V177642
:V177644
;V177646
:V177650
;V177652

PERRO2

34:

<<MTP034

SUBTST

223

Page 275

;V177654

;V177662

RRR R AR R R R AR R E RN RN

e bR b 0 d

' CVMUAAQ MSV11-J MEMORY DIAG.

| MTPO34

MACRO V05.01b Friday 15-Feb-85 16:10
SOFT ERROR - BACKROUND PATTERN TEST

MTPO35:SUBTST

8765 027730

8767

8768 027736
027736
027742
8769 027742
8770 027750
8771 027752
8772 027760
8773 027762
8774 027764
8775 027770
8776 027772
8777 027776
8778 030004
8779 030006
8780 030010
8781
8782 030012
8783 030014
8784 030016
8785 030024
8786 030026
8787 030034

012737

R RN RN ERRRRERRERERRRREEERRRRR
RN R R AR R R
kR R R R kRt Rk d bbb bttt Rd R e

sEERRRR AR R

012737

104425
012737

MOV

002076

MTPO35

WORST CASE NOISE PARITY TEST

R R AR R R R R R RR R R R R ERR I RN R R R R R R R RS R R RN R R R R R R R ke R SRR

#3,NOPAR

000005

002150

ngocsgfllTZEBITO.CSR

030006

002304

MOV
MOV
TST
MOV
ERROR
CALL
BIT
BNE

002034

050446
002000

002666

000001

002150

030040

002304

002034

050446
004000

READCSR
ERRGEN

2%:

CLR1CSR
MOV
(RO),(RO)
#BITO,CSR
MOV
LOADCSR
MOV
#3$,PARTHERE

3$:
4%:

002076

MOV OFIRST,RO

B42:;:::::

;:SET WRITE WRONG PARITY & PAR. TRAPS INTO CSR

;CLEAR WRONG PARITY IN MEMORY

(RO)

4%
BR
MOV
RO, ADDRESS
ERROR +50
CALL
PERBNK
END; OF FOR

ADD #4000,R0O

157776

005037
000207

bbb bbb e

#14$ ,PARTHERE
(RO),(RO)
;WWP TEST LOCATION
(RO)
RO,ADDRESS
+50
PERBNK
#BIT10,CONFIG+2(R3)
2%

14:

TST

;SET PARITY TRAPS TO RETURN TO "“PARTHERE"

FOR RO := #FIRST TO #LAST BY #4000

012700

8788 030036
8789 030040
8790 030044
8791 030046

8792 030052
030052
030056
030062
030064
8793
8794 030064
8795 030070

000003

WORST CASE NOISE PARITY TEST»>

sRER R R R SRR

; *SUBTEST

8766 027730

<<MTPO35

Page 276

CMP RO, #LAST
BLE B42

CLR

RETURN

NOPAR

;RESET PARITY TRAP ACTION

CVMJAAO MSV11-J MEMORY DIAG.

MTPO3S

MACRO VOS.01b Fridey 15-Feb-85 16:10

WORST CASE NOISE PARITY TEST

MTP036: SUBTST

8797 030072

<<MTPO36

;#*SUBTEST

;08888

8798

Page 277

MTPO36

SEQ 0246

CORRECTION CODE TEST>>

CORRECTION CODE TEST

R RN RN RN RN R RN

RN RRRERR

LR REREERERRERERRN RN

T
RN 0NN

R Rttt

8799
8800

; THIS TEST CHECKS TO SEE THAT EACH BIT OF A DATA WORD
; CAN BE CORRECTED INDIVIDUALLY FROM A ZERO TO A ONE AND

8801

8802 030072
8803 030074

8804 030100

8805 030102

030102
8806 030102
030102
8807 030106

030106
8808 030112
030112
8809 030116
030116
030124
8810 030126
OSOIgO
8811 030132
030132
030134

8812 030134
030134

8813 030140

104424
105037

104513

; VISA VERSA.

002264

105237

002264

0127084

177777

005037

002324

123727
001003

002264

012705

000001

8819 030152
8820 030156
8821 030162

072227
052702

000005
000004

010237
104425

002150

030146

030162
030166
030170
030170
8824 030172
8825 030174
030174
030176
8826 030200
030200

8822
8823

116402

000001

ELSE

LET RS := #177776

030206

010237

002314

030212

010537

002246

002034

INCB PASFLG
;INDEX TO SINGLE BIT ERROR TABLE
MOV #-1,R4
;CLEAR INNER LOOP COUNTER
CLR BITNO
;SELECT DATA TO BE CORRECTED BY PASSNO
CMPB PASFLG,®1
BNE L257
;DATA=0;BIT TO BE CORRECTED IS A ONE
MOV #1.RS
:
BR L260
L2S7:;:53:5::

;DATA=177776;B1IT TO BE CO&RECTED IS A ZERO

REPEAT

MOV #177776,.RS

L260:;;::::

B44:;;:::;

LET R2 :B= PTABLE(RS)

; INCREMENT BIT POINTER
;POINT TO NEXT SET OF CHECK BITS
INC R4
;GET NEXT SET OF CHECK BITS

ASH #5,R2
BIS #BIT2,.R2
LET CSR := R2

;SHIFT TO LINE UP IN CSR
;ENABLE DIAG MODE
;GET CHECK BITS TO BE WRITTEN

TST (R1)
IF (R1) NE RS

021105
001412

B43:;:::::

;INCREMENT LOOP COUNTER

- LOADCSR
LET (R1) := RO

010011
005711

;ENABLE CHECK/SYNDROME BIT REGISTER

END

INC BITNO
LET R4 := R4 » #1

030276

060000

8828 030212

IFB PASFLG EQ #1

LET RS := #1

002324

012737

8827 030206

:= #-1

LET BITNO := #0

030140

005204

LET R4

8814 030140
oaLs 030140

005237

REPEAT

LET PASFLG :B= PASFLG + #1

177776

8816 030140
8817 030144
0301“
8818 030146

;TURN OFF CACHE
;:CLEAR PASFLG

CBREG

000402
012705

CACHOFF
CLRB PASFLG

LET ADDRESS := #60000

MOVB PTABLE(R4),R2

MOV R2,CSR
;LOAD CSR WITH DATA
;sWRITE DATA TO TEST ADDRESS
¢
MOV RO,(R1)
;:CORRECT 3BE
;WAS DATA CORRECTED??7?
CMP (R1),RS
BEQ L261
;MOV ERROR INFORMATION IN
MOV #60000,ADDRESS

LET CHECK := R2

LET TSTDAT := RS

LET TSTDAT+2 := (R1)

MOV R2,CHECK
MOY RS,TSTDAT

; ON CODE TEST

CVMJAAO MSV11-J MEMORY DIAG.
c1I
C

MTPO36

030216

011137
104052

MACRO V05.01b Fridey 15-Feb-85 16:10

002250
END

005011

123727
001002
006305

002264

000001

000402

000261
006105

023727
001331

030270
8842 030270
8843 030272
8844 030274
8845
8846
8847
8848 030276
030301
030312

030315

ASL
ELSE

;SHIFT BITNO TO THE LEFT
H

002264

000002

CLRICSR
CACHON
RETURN
3

007
032
020
052
040

83;
057
045
075

PTABLE:

:SET CARRY BIT AND......
;ROTATE LEFT
:

L263::::::3
;UNTIL ALL BITS ARE DONE
CMP BITNO,#16.
BNE B44
E44:;;:::;
;COMPLEMENT DATA AND REPEAT
;UNTIL 2 PASSES ARE COMPLETE!
CMPB PASFLG,
#2
BNE B43

;CLEAR CSR
; TURN CACHE
3

E43:;::::3

MSV11-P SINGLE BIT ERROR CHECK BIT TABLE

.BYTE

BR L263

L262:::::3:

COM RO
UNTILB PASFLG EQ #2

104503
104423
000207

002
031
026
051
046
070

ROL

UNTIL BITNO EQ #16.

000020

MOV (R1),TSTDAT.2

;:NO ERROR
:

L26bl::s::::
;CLEAR LUT
;SHIFT NEW DATA DEPENDING ON PASFLG
CHPBLgegFLG.OI

END

002324

SEQ 0247

CLR (R1)
IFB PASFLG EQ #1

SEC

005100

123727
001305

ERROR +52

Page 277-1

2,7.37,31,32,25,26,20,57,51,52.45,46,40,75,70

CVMJAAQ MSV11-J MEMORY DIAG.

| MTPO36

’

CORRECTION CODE TEST

MACRO V05.01b Friday 15-Feb-85 16:10

8850 030316

MTPO37: SUBTST

<<MTPO37

; *SUBTEST

MTP037

Page 278

SEQ 0248

CHECK ECC DISABLE TEST>>

e
T
T, I
I, .,

I L

T T

CHECK ECC DISABLE TEST
T

T I

N T T T

T T T

gggz

; NO CORRECTION TAKES PLACE WITH ECC DISABLED.

8852

; THIS TEST CHECKS THAT ECC CAN 3E DISABLED AND THAT

8855 030316

8856 030320
030320
8857 030324
030324
8858 030330
8859 030332
030332
8860 030340

8861 030342
030342
8862 030344
030344
030346
8863 030350
030350

8864 030354
030354

8865 030362
8866 030364
030364

8867 030364
8868 030366

104424
005037

002044

005037
104475

002314

012737
104475

000100

002314

LET CHECK := #0

;CLEAR CHECK BIT FIELD

CBICSR
LET CHECK := #100
CB1CSR
LET (R1)

:= #0

IF (R1) NE #0

005711
001406
011137

002052

012737

060000

104423
000207

;TURN OFF CACHE

LET GOOD := #0

005011

104037

CACHOFF

LET BAD := (R1)

;:GOOD DATA FOR ERROR PRINT OuT

CLR CHECK
;ENABLE SYNDROME/CHECK BIT REGISTER
;SBE CHECK BITS
MOV #100,CHECK
;WRITE CHECK BITS TO CB REGISTER
;WRITE CHECK BITS TO MEMORY

;WAS CORRECTION MADE??2?
;YES IT WAS..... ERROR

LET ADDRESS := #60000 ;

002034

END

ERROR +37

CACHON
RETURN

CLR GOOD

:
3
;TURN ON CACHE
:

CLR (R1)
TST (R1)
BEQ L266
MOV (R1),BAD

MOV #60000,ADDRESS
L266:5:::::

CHECK ECC DISABLE TEST

8871 030370

MTPO41:

SUBTST

GERERRERRERE R

; #*SUBTEST

Page 280

<<MTP041

ADDRESS

R AR RR R SR ER R

MTPO41

SEQ 0249
TO CSR ON DOUBLE BIT

RERRERE R R R RN R RN R R RN R R R

ERROR TEST>>

R R SRR RN RN kR bR R

bRk bt kbt bk

ADDRESS TO CSR ON DOUBLE BIT ERROR TEST

SVERRRRRERRRRRERRRRRE
AR R ER R R R R R R R R R R R R R R R
R R R RN R R Rk Rk kR
R r b kb kb

8872
8873
8874
8875
8876 030370

8877 030374
8878 030400
8879 030404

8880 030410
8881 030420
030420
8882 030424
8883 030430
8884 030432
030432
8885 030432
8886 030436
030436
8887 030442
030442
8888 030446
030446
8889 030454

8890 030456
030456
8891 030460
8892 030462
8893 030464
8894 030466

030466
8895 030472
8896 030476
030476
8897 030500
8898 030502
8899 030

030506
8900 030510
030510
8901 030514
030514
8902 030520
8903 030522
030522
8904 030522
030522
8905 030524
8906 030526

THIS TEST CHECKS TO SEE IF THE CORRECT ADDRESS APPEARS

IN CSR BITS 5-11 ON A DOUBLE ERROR.

013704
072427
042704

002102
000011
170037

012700

177740

012701

060000

105037
005037
104475

002264
002314

105237

002264

062700

000040

062701

004000

012737
104475

001340

162701

;CLEAR OFF EXTRANEOQUS BITS
;INIT CSR ADDRESS TO 0 - 1K (BIT 5 = 1K ADD.)

:= #FIRST - #4000 ;GET LOW ADDRESS IN BANK

LET PASFLG :B= #0

CLR CHECK
CB1CSR
INCB
PASFLG
LET RO := RO + #40
LET R1
002314

002150
170037

002052

010537
104455

002044

MOV &FIRST,R1
SUB #4000,R1

CLRB PASFLG
;:CLEAR CHECK BIT FIELD TO BE LOADED
;ENABLE CHECK/SYNDROME BIT REGISTER
:INC LOOP COUNTER
;:INC CSR ADDRESS TO BE EXPECTED

:= R1 + #4000

LET CHECK := #1340

;DOUBLE ERROR CHECK BITS

ADD #40,RO
3
ADD #4000,R1

CLR1CSR
TST (R1)

MOV #1340,CHECK
;WRITE DOUBLE ERROR CHECK BITS
;WRITE DATA AND D.E. CHK BITS AT A=0
CLR (R1)
;CLEAR CSR
;READ ADDRESS TO GET DOUBLE ERROR

LET RS :=.CSR

BIC #tC7740,RS
LET R2 := RO

:
;GET CORRECT ADDRESS

ADD R4,R2

;ADD STARTING BANK TO DOUBLE BIT ADDRESS

CB1CSR
LET (R1)

:= #0

;READ CSR FOR CORRECT ADDRESS

NOP
IF R2 NE RS

010237

;INIT PASFLG

MOV #-40,RO

READCSR

020205
001405

104475

BIC #tC7740,R4
LET RO := #-40
LET R1

MOV BANK,R4

;SHIFT INTO POSTION TO MATCH ADDRESS IN CSR

REPEAT

010002
060402
000240

005011

;GET STARTING BANK NUMBER

:= BANK

ASH #9.,.R4

004000

005011
104503
005711
104426

013705
042705

LET R4

END

;DEBUG AIDE
;00 ADDRESSES AGREE?

LET BAD := R2

LET GOOD := RS

PERR31

;NO ERROR
H

LET (R1)

CB1CSR

:
:= #0

UNTILB PASFLG EQ PASCNT

MOV CSR,RS
MOV RO,R2

CMP R2,RS
BEQ L267
MOV R2,BAD
MOV RS,GOOD
L267:333333

CLR (R1)

;ENABLE CHECK/SYNDROME BIT REGISTER
;D0 16K AT A TIME

. ———— . 4

, MTPO37

MACRO V05.01b Friday 15-Feb-85 16:10

—

CVMJAAQ MSV11-J MEMORY DIAG.

- CVMJAAQ MSV11-J MEMORY DIAG.

'MTPO41
|
|

|
!

MACRO V05.01b Friday 15-Feb-85 16:10
ADDRESS TO CSR ON DOUBLE BIT ERROR TEST

030526
030534
030536
8907 030536
8908 030540
8909

123737
001336
104503
000207

002264

Page 280-1

SEQ 0250

002570

CLRI1CSR

RETURN

:
:

CMPB PASFLG,PASCNT
BNE B4S
E4S:;:::::

8912 030542

MTP042:
R

SUBTST

ettt

<<MTPO42

SEQ 0251
EXTENDED ADDRESS TO CSR ON ERROR TEST>>

: *SUBTEST

Page 282

ettt bttt

MTP042

EXTENDED ADDRESS TO CSR ON ERROR TEST

e
T I L L

8913
8914
8915
8916
8917
8918 030542

8919 030544
0 30544
8920 030550
030550

0
8923 030570

030570
8924 030576
030576
8925 030576
8926 030602
8927 030606
8928 030612
8929 030620
030620
8930 030624
030624
8931 030630
8932 030634
8933 030640
8934 030644
8935 030646
030646
8936 030646
8937 030652
030652
8938 030660
8939 030662
030662
8940 030664
8941 030666
8942 030670
8943 030672
8944 030700
030700
030704
8945 030706

8948 030722

: THIS TESTS THE EXTENDED Q-BUS ADDRESS IN THE

; CSR BY CAUSING A SINGLE ERROR, ENABLING BIT # 14, THEN CHECKING

; FOR THE PROPER ADDRESS IN THE CSR.

;

104424

013704

002102

023727

002102

000177

012737

000001

002570

001004

000403

012737

000002

042704
072427
052704
062737

177607
000002
040000
000400

105037

002264

013705
042705
072527
052705
104513

002102

172352

MOV BANK,R4

IF BANK EQ #177
LET PASCNT

:= #1

LET PASCNT

000104

020000

;CLEAR OFF LOWER BITS

;SHIFT TO LINE UP WITH CSR

ADD #400,KIPARS

:SET UP PAR TO POINT TO TOP OF A BANK

BIS #BIT14,R4

LET PASFLG :B= #0
:= BANK

013737

002150

010537
104023

002044

;INIT LOOP COUNTER

CLRB PASFLG

;RS GETS THE BANK NUMBER

MOV BANK,RS

;ROTATE INTO POSTION

;SET UP SBE INDICATOR ;;DATA TO BE EXPECTED
;ENABLE CHECK/SYNDROME BIT REGISTER
°

INCB PASFLG
LET CSR := #104
LOADCSR
LET (R1)

;SET EXTENDED ADDRESS BIT

;CLEAR ALL BUT THE LOWER BITS

ASH #9.,RS

002150

L272::::::

ASH #2,R4

BIS #BIT4.RS
CBREG

002150

MOV #2,PASCNT

END

BIC #tC7,RS

002150

MOV #1,PASCNT

BR L272
L271:::::3:

:= #2

REPEAT

012737
104425

CMP BANK,®#177
BNE L271

;00 ONCE IN LAST BANK

ELSE

LET RS

000011
000020

002264

023705
001406

; TURN OFF CACHE MEMORY
;:GET BANK NUMBER TO FIGURE OUT EXTENDED ADDRESS

BIC #tC170,R4

177770

105237

005011
104503
005711
104426
042737

002570

CACHOFF

LET R4 := BANK

:= #0

86::::3:3
;INCR LOOP COUNTER
;WRITE CHECK BITS TO CSR WITH DIAG MODE
MOV #104,CSR
;LOAD CSR WITH DATA
;WRT ZEROS AT A=0 AND SINGLE ERRgfnflfgi)

CLR1CSR

;CLEAR CSR

BIC #BIT13,CSR

;CLEAR POSSIBLE INHIBIT MODE IN DATA “CSR"

TST (R1)
READCSR

IF CSR NE RS THEN

002052

END

;READ A=0;DATA BIT O SHOULD BE CORRECTED TO A 1
;READ CSR FOR DATA

LET BAD := CSR

;HAS SINGLE ERROR BITS SET IN CSR?
CMP CSR,RS
BEQ L273
:

LET GOOD := RS

ERROR +23

3
3

MOV CSR,BAD

MOV RS,GOOD

——————

MACRO V05.01b Friday 15-Feb-85 16:10
CVMJAAO MSV11-J MEMORY DIAG.
ADDRESS TO CSR ON DOUBLE BIT ERROR TEST

'MTPO41

————————

MACRO V05.01b Friday 15-Feb-85 16:10
EXTENDED ADDRESS TO CSR ON ERROR TEST

' CVMJAAQ MSV11-J MEMORY DIAG.
'MTP042

030722
8949 030722
030722
8950 030730
8951 030732
8952 030734
8953 030742
030742
030746
8954 030750
030750
8955 030756
030756
8956 030762
030762
8957 030770
8958 030772
030772
8959 030772
030772
8960 030774
030774
8961 031000
8962 031004
8963 031010
8964 031012
031012
031020
031022
8965 031022
8966 031024
8967 031026

012737

040000

002150

104426
042737

020000

002150

104425

023704
001411

002150

013737

002150

010437

002044

012737
104023

177777

:= CSR

LET GOOD

:= R4

002612

123737

002264

;WRITE EQB BIT TO CSR

LET R1

:= #0

:= #137776

MOV #40000,CSR

;CLEAR INHIBIT MODE POINTER IN DATA
;READ EQB ADDRESS

CMP CSR,R4
BEQ L274
MOV CSR,BAD

MOV R4,GOOD
MOV

;CLEAR LUT
:SET UP NEW ADDRESS

ADD #740,R5
BIS #BIT9,.R4

002570

L2?3:5:::33

;READ FOR CORRECT EXTENDED Q-BUS ADDRESS

ERROR +23

LET (R1)
137776
000740
001000

104503
104423
000207

LET BAD

SEQ 0252

SET HEADER
END

012701

001312

LOADCSR
READCSR
BIC #BIT13,CSR
IF CSR NE R4 THEN

002052

005011

062705
052704
104513

LET CSR := #40000

Page 282-1

#-1,HEADER

CLR (R1)
MOV #137776.R1

;ADD TO GET NEW ADDRESS
;SET BIT 9 SINCE WE ARE ASSERTING Al ON PASS2
CBREG
;ENABLE CHECK/SYNDROME BIT REGISTER
UNTILB PASFLG EQ PASCNT ;LOOP 2 TIMES

CMPB PASFLG,PASCNT
BNE B46

CLR1CSR
CACHON
RETURN

;CLEAR CSR
;TURN ON CACHE

E46:::::::

——————
— ————

Page 283

SEQ 0253

8969 031030

MTP043: SUBTST <<MTP043 WRITE BYTE CLEARS SINGLE BIT ERROR TEST>>

B T L

T
T
T T
T T
T
T
T
MM

; *SUBTEST

8971
8972

MTP043

WRITE BYTE CLEARS SINGLE BIT ERROR TEST
T T L L g

T T

; THIS TEST CHECKS TO SEE IF A SINGLE BIT ERROR WILL BE CORRECTED DURING
; THE READ PORTION OF A WRITE BYTE AND THAT THE CORRECT CHECK BITS WILL

gg;}

; BE GENERATED ON A WRITE.

8975 031030

8976 031032
8977 031034
8978 031040
031040
031042
8979 031044
031044
8980 031050
031050
8981 031050
8982 031054
031054
8983 031062
8984 031064
031064
8985 031066
8986 031070
031070
8987 031074

8988 031076
8989 031104
031104
031112
8990 031114
031114
8991 031122
031122
8992 031130
8993 031132
031132

8994 031132
8995 031134
8996 031136
8997 031140

8998 031146
031146
031154
8999 031156
031156
9000 031164
031164
9001 031172

031172

9002 031200
9003 031202

031202

9004 031202

104424

104513
105037

CACHOFF

CBREG
CLRB PASFLG
LET R2 := R1 + #1

002264

010102
005202
012704

000001

105237

002264

012737
104425

000604

LET R4 := #1

REPEAT

002150

010411

104503
000377

177757

002150

023727
001407

002150

000020

012737

000020

002044

013737
104060

002150

002052

002150

023727
001412

002150

000300

012737

177777

002612

012737

000300

002044

013737

002150

002052

005302

READCSR
BIC #tC20,CSR
IF CSR NE #20

END

174037

104061

LOADCSR
LET (R1) := R4

CLRICSR
LET (R2) :B= #377

112712
104426
042737

104513
005711
104426
042737

INCB PASFLG
LET CSR := #604

;ENABLE CHECK/SYNDROME BIT REGISTER
;CLEAR LOOP COUNTER
;:R2 POINTS TO HIGH BYTE
MOV R1,R2
INC R2
;INITIAL DATA = 1
MOV #1,R4
:
B47:;;::::
; INCREMENT LOOP COUNTER
;WRITE CHECK BITS CORRESPONDING TO DATA OF 0O
MOV #604,CSR
;WRITE CSR
;WRITE DATA OF 1 CREATING A SINGLE BIT ERROR
MOV R4,(R1)
;WRITE CSR TO NORMAL MODE
;WRITE BYTE OF WORD
MOVB #377,(R2)
;READ CSR

;SEE IF SBE INDICATOR IS SET
;IS SBE SET?22??2?

LET GOOD := #20

;

LET BAD := CSR

}

ERROR +60

:
:

CBREG
TST (R1)
READCSR
BIC #tC3740,CSR
IF CSR NE #300
SET HEADER
LET GOOD := #300

END

;TURN OFF CACHE

MOV #20,G00D

MOV CSR,BAD
L276:;:::::

;WRITE CSR TO DIAG MODE
;READ SAO FOR CORRECT CHECK BITS
;READ CSR
;MASK OUT CHECK BIT FIELD

:WERE CORRECT CHECK BITS GENERATED??72?
CMP CSR,#300
BEQ L277
;
MOV #-1,HEADER
;
MOV #300,G00D

LET BAD := CSR

;

ERROR +61

:
:

DEC R2

CMP CSR, #20
BEQ L276

MOV CSR,BAD
L277:333333

;POINT TO HIGH BYTE AND REPEAT

s S———

MACRO V05.01b Friday 15-Feb-85 16:10

EXTENDED ADDRESS TO CSR ON ERROR TEST

—————————

CVMJAAQ MSV11-J MEMORY DIAG.

| MTPO42

- CVMJAAO MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
'MTP043
WRITE BYTE CLEARS SINGLE BIT ERROR TEST

9005 031204
031204
9006 031210
031210
031216
031220

9007 031220
9008 031222

012704

000400

123727
001314

002264

104423
000207

LET R4 := 2400

000002

Page 283-1

;B8IT 0 OF HIGH BYTE

UNTILB PASFLG EQ #2

;00 HIGH AND LOW BYTE

CACHON
RETURN

;:TURN ON CACHE
:

SEQ 0254

MOV #400,R4

CMPB PASFLG,#2
BNE B47

E47:;:::::

- CVMUAAO MSV11-J MEMORY DIAG.

'MTP043

]

MACRO V05.01b Friday 15-Feb-85 16:10

WRITE BYTE CLEARS SINGLE BIT ERROR TEST

9010 031224

MTP044: SUBTST

<«<MTP044

;*SUBTEST

MTP044

PEERERRR AR AR R

9012
9013
9014

;
;
;
;

ggig

031254
9029 031254
031254
9030 031260
031260
9031 031262
031262

9032 031266
9033 031270
031270

9034 031272
9035 031274
9036 031276
9037 031300
9038 031302
9039 031304

031304
9040 031310
9041 031312
9042 031314
031314
9043 031320
9044 031324
031324
031326
904S 031330

031330

9046 031334

SEQ 0255

SHIFTING CHECK BITS THROUGH THE CSR TEST»>»>

T L LL
T
T
T T T T

9017 031224
031224
9018 031224
9019 031226
031226
9020 031232
031232
9021 031236
9022 031240
031240
9023 031244
031244
9024 031244
031244
9025
9026
9027 031250
031250
9028 031254

Page 284

SHIFTING CHECK BITS THROUGH THE CSR TEST

AR AR AR AR

AR AR R R AR

105037

002264

012705
104475

174037

012702

000046

105237

002264

005037

002266

005237

002266

010204

010237
104425

002150

005011

005105
010546
040416
040504
052604
010437
104425
104426

002150

013703
042703

002150
020000

020304
001412
010137

002034

AR AR

RS R R AR R

AR R R R R RS

THIS TEST CHECKS THE ABILITY TO READ AND WRITE CHECKBITS INTO MEMORY
BY SHIFTING A ONE BIT THROUGH A FIELD OF ZEROS. THE CSR IS READ FOR THE
CORRECT PATTERNS. THE TEST IS THEN REPEATED ON A ZERO BIT THROUGH A
FIELD OF ALL ONES.
REPEAT

104424

;ILC;;REV B

BSO:::::::

CACHOFF
LET PASFLG :B= #0

;TURN OFF CACHE
;INIT PASFLG

LET RS := #174037

;CHECK BIT MASK FOR CSR

CB1CSR
LET R2 := #46
REPEAT
LET PASFLG :B= PASFLG + #1

LET PASSNO := #0
REPEAT

LET PASSNO := PASSNO + #1

LET R4 := R2
LET CSR := R2

LOADCSR
LET (R1) := #0
COM RS
MOV RS, -(SP)
BIC R4,(SP)
BIC RS,R4
BIS (SP)+,R4
LET CSR := R4
LOADCSR
READCSR
LET R3 := CSR
BIC #BIT13,R3
IF R3 NE R4 THEN

CLRB PASFLG

MOV #174037,RS
;ENABLE CHECK/SYNDROME BIT REGISTER
;SET UP INITIAL CSR DATA
MOV #46,R2
BS1::::35:3
;INC LOOP COUNTER
INCB PASFLG
;CHK BITS = 1
;DISABLE ECC;DIAG CHK SET
;INIT PASSNOCINNER LOOP COUNTER)
CLR PASSNO

BS2:::::::
;INC LOOP COUNTER
INC PASSNO
;COPY R2 TO R4
MOV R2,R4
;GET CSR DATA TO BE WRITTEN
MOV R2,CSR

;WRITE SBE CHECK BITS TO CSR
;WRITE DATA AND CHECK BITS AT A=0
; COMPLEMENT MASK
;SAVE RS ON STACK
;CREATE AN XOR FUNCTION
:
:
:

CLR (R1)

MOV R4,CSR
;LOAD CSR WITH COMPLEMENT CHECK BITS
:READ CSR FOR COMPLEMENT CHECK BITS
;COPY CSR DATA TO R3
MOV CSR,R3
;CLEAR ANY POSSIBLE INHIBIT MODE POINTER
;READ CSR FOR PROPER CHECK BITS
CMP R3,R4
BEQ L301

LET ADDRESS := R1

LET GOOD := R4

MOV R1,ADDRESS

' CVMJAAO MSV11-J MEMORY DIAG.
SHIFTING CHECK BITS THROUGH THE CSR TEST

MACRO V05.01b Friday 15-Feb-85 16:10

. MTPO44

031334
9047 031340
031340
9048 031344
031344
9049 031352
9050 031354
031354
9051 031354
9052 031356
9053 031360
9054 031362
9055 031264
9056 031370
031370
9057 031372
9058 031374
031374
031400
9059 031402
031402
9060 031406
031406
9061 031414
031414
9062 031420
031420
9063 031426
9064 031430
031430
9065 031430

9066 031432
031432
031440
9067
9068 031442
9069 031444
031444

031446
9070 031446
9071 031450

9072 031452
9073 031454
9074 031456
9075 031460
9076 031462
9077 031464
9078 031466
9079 031470

9080 031472
9081 031474
031474
9082 031474
031474
9083 031500
031500
031506

010437

002044

010337

002052

012737
104463

177777

005105
005711
000240
104426
040537

SEQ 0256
LET BAD := R3
SET HEADER

002612
END

PERR37

020437
001413

002150

010437

002044

013737

002150

010137

002034

012737
104464

177777

BIC RS,R4
IF R4 NE CSR

LET GOOD:= R4

LET BAD:= CSR

002052

LET ADDRESS := R1
SET HEADER

002612

000001

PERR40

BIC R5,R2
IFB PASFLG EQ #1

ASL R2

006302

ELSE

000413

COM RS
MOV RS, -(SP)
BIC R2,(SP)
BIC R5,R2
BIS (SP)+,R2

005105

010546

MOV

;ERROR CALL

;MASK OUT CHECK BIT FIELD
;GET CHECK BITS THAT WERE WRITTEN
MOV R2,R4

;MASK OUT CHECK BIT FIELD

;ARE CHECK BITS THE SAME?

CMP R4,CSR
BEQ L302

MOV R4,GOOD

)

MOV CSR,BAD

MOV R1,ADDRESS

MOV

:ERROR CALL

:SELECT FUNCTION

;D0 A FIELD OF ZEROS--->ONES
;SHIFT CHECK BITS
;D0 A FIELD OF ONES --->ZEROS

BR L304
L303:;;::::;

:TAKE OUT CHECK BIT FIELD

040216
040502
052602
005105

BIC R2,(SP)
BIC R5,R2
BIS (SP)+,R2
COM RS

:COHPLEHENENT DATA PATTERN

000006

123727

002266

001262

LET R2:= R2 + #6
000006

UNTILB PASSNO EQ #6

;:ILC; ;REVB

CMPB PASFLG,#1
BNE L303

:SHIFT CHECK BITS

END

#-1,HEADER

L302:;:::::3
;SHIFT CHECK BITS AND CREATE NEW DATA FOR CSR

ASL R2

062702

::ILC; ;REVB

L301:;::::3

040216
040502
052602
006302

010546

#-1,HEADER

:READ CSR FOR CORRECT CHECK BITS

END

002264

MOV R3,BAD

READCSR

BIC RS,CSR
LET R4 := R2

040502

)

TST (R1)

NOP

002150

MOV R4,GOOD

; COMPLEMENT MASK
:READ CHECK BITS AT A=0 INTO CSR

COM RS

010204
040504

123727
001002

Page 284-1

;PUT BACK CHECK BIT FIELD

L304:;

;ADD 6 SO THAT WRITE ON CSR WILL ENABLE DIAG MODE

;D0 ALL CHECK BITS

ADD #6,R2

#6
CMPB PASSNO,
BNE BS52

MACRO VO05.01b Fridasy 15-Feb-85 16:10
' CVMJAAQ MSV11-J MEMORY DIAG.
'MTP044
SHIFTING CHECK BITS THROUGH THE CSR TEST

031510

9084 031510

031510

9085 031514
031514
031522
031524
9086 031524
9087 031526

9088 031530

9089 031534

031534

9091 031544

012702

003706

123727
001250

002264

104503
005011
062701
020137
001231

104423
000207

000100
002562

LET R2
000002

:= #3706

UNTILB PASFLG EQ #2

CLR1CSR
CLR (R1)
ADD #100,R1
UNTIL R1 EQ ENDADD

CACHON
RETURN

Page 284-2

SEQ 0257
ES2:3:33:::
;REPEAT WITH FIELD OF ONES
MOV #3706,R2

CMPB PASFLG,#2
BNE BS1
ES1:::::::

;ALL 256 TO ADDRESS
:

;TURN ON CACHE
:

+ILC; ;REVB
C;;REVB

CMP R1,ENDADD

BNE
ESO:3:3::3

B850

- CVMJAAQ MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
' MTPO44
SHIFTING CHECK BITS THROUGH THE CSR TEST
9093 031546

MTPO4S: SUBTST

<<MTP04S

PEEAREREREEEREREARRRRERR LR ER R

;*SUBTEST

MTP04S

9095
9096
%Z

9101 031552
031552
9102 031556
031556
9103 031564
031564
9104 031572
031572
9105 031572

9106 031576
9107 031600

031600
9108 031602
9109 031604

9110 031606

9111 031610

031610

031616
9112 031620
031620

104424
104513
002266

012737

003744

002044

012737

003144

002150

005237

002266

104425

002150

177777

002612

013737
104063

002150

002052

9116 031636

104514

9120 031652
031652
031660

9121 031662
031662
9122 031670
031670
9123 031676

9124 031700

031700
9125 031700
9126 031702

104426
000240
042737

174033

002150

023737
001407

002150

002044

013737

002150

002052

012737
104042

177777

002612

012737

003604

002044

031710

012737

003004

002150

031716

023727

002266

000002

9128 031716

;TURN OFF CACHE
;ENABLE CHECK/SYNDROME BIT REGISTER
;CLEAR LOOP COUNTER
CLR PASSNO
;GOOD DATA
MOV #3744,G00D
;DBE CHECK BITS FOR CSR
MOV #3144,CSR
;

:= #0

BS3:::::::

;WRITE DBE CHECK BITS TO CSR

;WRITE ZEROS AND DBL ERROR CHK BITS A=0

CLR (R1)
;CLEAR CSR OUT
;READ A=0 TO GET DOUBLE BIT ERROR

;WAS UNCORRECABLE ERROR BIT SET?7?

SET HEADER

;

LET BAD := CSR

ERROR +63

;BIT NOT SET
:

BIT #BIT15,CSR
BNE L310

MOV

#-1,HEADER

MOV CSR,BAD
L310:;:;:::3

SYNREG

;ENABLE SYNDROME BIT REGISTER

IF CSR NE GOOD THEN

;CHECK IF DOUBLE ERROR BIT IS SET
CMP CSR,GOOD
BEQ L311

READCSR
NOP
BIC #1C3744,CSR

LET BAD := CSR

END

005011

RRRERERRERERREREERRRREAERAERA NSRRI RS R ER0E

IF #BIT1S OFF.IN CSR ;

END

031702

9127 031710

REPEAT

READCSR

012737

9117 031640
9118 031642
9119 031644

LET CSR := #3144

CLR1CSR
TST (R1)

9113 031626
031626
9114 031634
9115 031636
031636

LET GOOD := #3744

LET (R1)

100000

THIS TEST CHECKS TO SEE IF THE DOUBLE BIT ERROR INDICATOR IS SET
ON A DOUBLE BIT ERROR AND THE CORRECT SYNDROMES ARE LATCHED INTO THE
CSR. THIS TEST IS THEN REPEATED WITH MULTIPLE ERROR CHECK/SYNDROME BITS

LOADCSR

104426

001007

SYNDROMES TO CSR ON DOUBLE BIT ERROR TEST

INC PASSNO

005011
104503
005711

032737

SYNDROMES TO CSR ON DOUBLE BIT ERROR TEST>>

CACHOFF
CBREG
LET PASSNO := #0

005037

SEQ 0258

TL
e
T
T
T

;
;
;

9099 031546
9100 031550

Page 285

;READ CSR FOR CORRECT SYNDROME BITS
;DEBUG AIDE
;MASK SYNDROMES OUT

;BAD DATA

SET HEADER

ERROR +42

MOV CSR,BAD
MOV

;

CLR (R1)
LET GOOD := #3604

L311:5::5:5:
;CLEAR LUT
;REPEAT WITH MULTIPLE ERROR SYNDROMES

LET CSR := #3004

;MULTIPLE ERROR CHECK BITS

UNTIL PASSNO EQ #2

#-1,HEADER

MOV #3604,G00D
MOV #3004,CSR
CMP PASSNO,
#2

CVMJAAQ MSV11-J MEMORY DIAG

MTPO4S

SYNDROMES TO C

031724
031726
9129 031726
9130 031730
9131 031732

V0S.01b Fridey

Y
ON DOUBLE BIT ERROR TEST

15-Feb-85 16:10

001322
104503
104423
000207

CLRI1CSR
CACHON
RETURN

Page

285-1

SEQ 0259 i
BNE B53
ES3::3::::

CVMJUAAO MSV11-J MEMORY DIAG.

MTPO4S

MACRO V05.01b Fridey 15-Feb-85 16:10

SYNDROMES TO CSR ON DOUBLE BIT ERROR TEST

9133 031734

;*SUBTEST

MTP046

SEQ 0260

CHECK SINGLE BIT ERRORS WITH ECC DISABLED>>

9135
9136

T T

CHECK SINGLE BIT ERRORS WITH ECC DISABLED
T

T I

; THIS TEST CHECKS TO SEE THAT FOR EACH BIT OF A DATA WORD THAT A SBE
; IS TREATED LIKE A UNCORRECTABLE ERROR WITH ECC DISABLED AND TRAPS

;ig;

; ARE DETECTED.

9139 031734
9140 031740
9141 031742

031742
9142 031742
031742
9143 031746
9144 031750
9145 031754
9146 031756
031756
9147 031756
031756
9148 031762
031762
9149 031766
031766
9150 031774

031774
9151 032000
032000
032006
9152 032010
032010
9153 032014
032014
032016

9154 032016
032016
9155 032022

032022
9156 032022
032022
9157 032022
032022
9158 032026
9159 032032
032032
9160 032034
032034

<<MTP046

—

MTP046: SUBTST

Page 286

005037
104424

005237

002266

005000
105037

002264

105237

002264

012704

177777

012737

000001

005037

002324

123727
001003

002264

012705

000001

104513

000402

012705

005037
005237

177776

002072
002324

005204
116402

030276

032050

010237

002150

032056

010011

9161 032040
9162 032044
9163 032050

072227
052702

9164 032054
9165 032056

104425

9166 032060

002266

000005
000006

CLR PASSNO
CACHOFF
REPEAT

;CLEAR OUTER LOOP COUNTER
;TURN OFF CACHE
:

LET PASSND := PASSNO + #1

CLR RO
CLRB PASFLG

;:CLEAR DATA
;:CLEAR PASFLG

CBREG
REPEAT

LET PASFLG :B= PASFLG + #1
LET R4

002076

000001

:= #-1

LET NOPAR := #1

LET BITNO := #0

IFB PASFLG EQ #1
LET RS := #1
ELSE

LET RS := #177776

BS4:::::::
INC PASSNO

;ENABLE CHECK/SYNDROME BIT REGISTER
:
BSS:::::::
; INCREMENT LOOP COUNTER
INCB PASFLG
;INDEX TO SINGLE BIT ERROR TABLE

;ENABLE PARITY ACTION

MOV #-1,R4

MOV #1,NOPAR
;CLEAR INNER LOOP COUNTER
CLR BITNO
;SELECT DATA TO BE CORRECTED BY PASSNO
CMPB PASFLG,#1
BNE L313
;DATA=0;BIT TO BE CORRECTED IS A ONE
MOV #1,RS
3
BR L314
L313:::::33

END

;DATA=177776;B1IT TO BE CORRECTED IS A ZERO
MOV #177776,RS
;

REPEAT

LET PARCNT := #0
INC BITNO
LET R4 := R4 + #1
LET R2 :B= PTABLE(R4)
ASH #5,R2
BIS #BIT2!BIT1,R2
LET CSR := R2
LOADCSR
LET (R1)

:= RO

IF PASSNO EQ #1

L314:;:;;::::

BS6:;::::3
;CLEAR PARITY COUNTER
CLR PARCNT
; INCREMENT BIT POINTER

;POINT TO NEXT SET OF CHECK BITS
INC R4
;:GET NEXT SET OF CHECK BITS
MOVB PTABLE(R4),R2
;SHIFT TO LINE UP IN CSR
;ENABLE DIAG MODE
;GET CHECK BITS TO BE WRITTEN
MOV R2,CSR
;LOAD CSR WITH DATA
:WRITE DATA TO TEST ADCRESS
;WRITE CSR

MOV RO,(R1)

032060
032066
9167 032070
9168 032072
032072
032074
9169 032074
9170 032076
032076
9171 032076
9172 032100
9173 032104
9174 032106
032106
032114
9175 032116
032116
9176 032124
032124
9177 032132
9178 032134

032134

9179 032134
9180 032136

9181 032140
032140
032146
9182 032150
9183 032152
032152
032154
9184 032154
9185 032156
9186 032160
032160
9187 032160
032160
032166
032170
9188 032170
9189 032172
032172

032212
9191 032212
9192 032214
9193 032216
9194
9195
9196 032220
032220
032226

9197 032230

023727
001002

002266

SEQ 0261

000001

104471

ECC1DIS
ELSE

000401

104507
005711
004737
104426

032220

032737
001007

100000

002150

013737

002150

002052

012737
104045

177777

002612

002264

000001

BR L316

;SECOND PASS ;ECC DISABLE. SBL ENABLED
’

;CORRECT SBE

L316:

iCHECK FOR CORRECT TRAP
IREAD THE CSR FOR UNCORRECTABLE ERROR
iIS UNCORRECTABLE ERROR BIT SET?2777

BIT 8BIT1S5,CSR
BNE L317
MOV CSR.BAD

MOV

ERROR +45

CLRICSR
CLR (R1)
IFB PASFLG EQ #1
ASL

&-1,HEADER

L317:5:533533
;:CLEAR LUT
;:SHIFT NEW DATA DEPENDING ON PASFLG
;SHIFT BITNO TO THE LEFT

CMPB PASFLG,#1
BNE L320
BR L321

L320::58838

SEC

006105

END

002324

000020

005100

123727

002264

000002

023727
001254

002266

000002

ROL

UNTIL BITNO EQ #16.

COM RO
UNTILB PASFLG EQ #2

RETURN

002266

000301

:SET CARRY BIT AND......
;ROTATE LEFT
;UNTIL ALL BITS ARE DONE

CHKTRP: IF PASSNO EQ #1
IF PARCNT EQ #1

CMP BITNO,#16.
BNE BS6

ES6: 333883

;COMPLEMENT DATA AND REPEAT
;UNTIL 2 PASSES ARE COMPLETE!

#2
CMPB PASFLG,
BNE BSS
ESS::5:::

UNTIL PASSNO EQ #2

CLRICSR
CACHON

104503
104423
000207

023727
001011

;ECC DISABLE.NO PBL

SET HEADER

000261

001266

;FIRST PASS

CMP PASSNO,
81
BNE L315

LET BAD := CSR

ELSE

000402

023727
001315

ENA1SBE

TST (R1)
CALL CHKTRP
READCSR
IF #BIT1S OFF.IN CSR

END

104503
005011

123727
001002
006305

Page 286-1

CMP PASSNO,
#2
BNE BS54
ES4:;::::::

:TURN CACHE
;PASS 1 CHECK FOR NO TRAP

CMP PASSNO,
#1
BNE L325

——————

MACRO V05.01b Friday 15-Feb-85 16:10

CHECK SINGLE BIT ERRORS WITH ECC DISABLED

—————————

CVMJAAQ MSV11-J MEMORY DIAG.

MTP046

—

MACRO V05.01b Fridey 15-Feb-85 16:10
CHECK SINGLE BIT ERRORS WITH ECC DISABLED

CVMJAAO MSV11-J MEMORY DIAG.

"MTP046
|
|

032230
032236
9198 032240
32240
9199 032246

032250
9202 032252
032252
032260
9203 032262
032262
9204 032270
9205 032272

032272
9206 032272
032272

9207 032272

023727
001004

002072

000001

012737
104057

177777

002612

SET HEADER
END

023727
001404

002072

G00001

012737
104064

177777

002612

IF PARCNT NE #1

SET HEADER
END
END
RETURN

—

.
s

Page 286-2

SEQ 0262 ‘l
CMP PARCNT,#1
BNE L326
MOV

@-1,HEADER

L326:::::::

ELSE

000410

000207

ERROR +57

ERROR +64

BR L327
L325::::::5:

CMP PARCNT, 81

BEQ L330

)
|

9209 032274

MTPO47:
A2

SEQ 0263
NO CSR UPDATE ON SBE WITH EXSISTING DBE>>

<<MTP0O47

SUBTST

22222222 222 22 222t

; *SUBTEST

MTP0O47

2 d

T T T I

NO CSR UPDATE ON SBE WITH EXSISTING DBE

TI
I
gy

9210
9211
4

9215 032274
9216 032276
032276
9217 032302
9218 032306
9219 032312
9220 032316
9221 032320
032320
9222 032326

9223 032330
032330

9224 032332

032332
9225 032340
9226 032342
032342
9227 032344
9228 032346
9229 032350
9230 032352
9231 032360
032360
032364
9232 032366
032366

9233 032374
00
9235 032406
9236 032410
032410
9237 032410
9238 032414
9239 032416
9240 032420
9241 032426
032426
032432
9242 03243:

9245 032454
9246 032456

THIS TEST CHECKS TO SEE THAT THE CSR _CONTENTS MWILL NOT CHANGE
WITH A SINGLE BIT ERROR WHEN A DOUBLE BIT ERROR ALREADY

EXISTS.

;

CACHOFF

104424
013704
072427
042704
052704
104513

002102

012737
104425

003144

LET R4

ASH #9.,R4

170037
100000
002150

005011
012737
104425
005012
104503
005711
104426
042737

000104

020000

002150

013737

002150

010437

002044

012737

177777

052704
005712
104426
042737

002150

BIC #tC7740,R4
BIS #BIT15,R4
CBREG
LET CSR := #3144

002150

023704
001411

002150

013737

002150

010437

002044

012737
104051

1771777

MOV #3144 ,CSR

:= #104

;WRITE SBE CHECK BITS

LOADCSR
LET (R2)

:= #0

BIC #BIT13,CSR
IF CSR NE R4

;READ DBE LOCATION

;:READ FOR CSR DBE INDICATOR
;CLEAR INHIBIT MODE POINTER
CMP CSR,R4
BEQ L331
MOV CSR,BAD
MOV R4 ,G0O0D

SET HEADER

READCSR

LET BAD := CSR

002052

LET GOOD := R4

SET HEADER

002612

END

MOV

ERROR +63

BIC #BIT13,CSR
IF CSR NE R4

ERROR +51

MOV #104,CSR

CLR (R2)

;:CLEAR CSR

LET GOOD := R4

BIS #20,R4
TST (R2)

CLR (R1)

:WRITE SBE CHECK BITS AT ADDRESS + 4K

LET BAD := CSR

002612

002150

;:SET UP GOOD DATA
;:ENABLE CHECK/SYNDROME BIT REGISTER
;CHECK BITS FOR DOUBLE BIT ERROR

LET CSR

READCSR

MOV BANK,R4

;MASK OUT UNWANTED BITS

:URITE DBE CHECK BITS

END

020000

;SHIFT INTO PLACE

:= #0

002052

000020

: TURN OFF CACHE
;:GET BANK NUMBER

LOADCSR
LET (R1)

CLRICSR
TST (R1)

023704
001411

104063

:= BANK

#-1,HEADER

L331::::::

;SET BIT IN GOOD DATA
;READ SBE

;READ CSR FOR NO CHANGE

;CLEAR INHIBIT MODE POINTER

)

CHP CSR,R4
BEQ L332
MOV CSR,BAD
MOV R4 ,G0O0D
MOV

————

Page 287

—————

MACRO V05.01b Friday 15-Feb-85 16:10
CVMJAAQ MSV11-J MEMORY DIAG.
MTPO46
CHECK SINGLE BIT ERRORS WITH ECC DISABLED

MACRO V05.01b Fridey 15-Feb-85 16:10

NO CSR UPDATE ON SBE WITH EXSISTING DBE

032456
9247 032456

104503

9248 032460
9249 032462

005011
005012

9251 032466

000207

9250 032464

104423

Page 287-1

SEQ 0264

CLRICSR

;CLEAR 1 CSR

CACHON

;TURN ON CACHE

CLR (R1)
CLR (R2)
RETURN

:
:

L332:;:::::

————————
w— a—

- CVMJUAAO MSV11-J MEMORY DIAG.

' MTPO47

CVMJAAQ MSV11-J MEMORY DIAG.

' MISC SUBROUTINES

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0265

gggz

.SBTTL

9255 032470

9256 032470
9257 032472
9258 032474
ggzg 032476

<<SUBR

COPY RO TO R4,R1 TO R3, & R2 TO RS>

; #*SUBTEST

SUBR

COPY RO TO R4,R1 TO R3, & R2 TO RS

010004
010103
010205
000207

MOV
MOV
MOV
RETURN

FRRERRRRR
L

010046
005237
042737
022737
001414
022737
001413
022737
001414
005000
013704
000414

005000
005004
000411

002616
177774
000001

002616
002616

000002

002616

000003

002616

002614

1%:

000401
002614

24:

9279 032574
9280 032600

012700
013704
000404
012700
012704

000401
000401

34:

9282 032610
9283 032614
9284 032620

010037
010037
010037

024776
025022
025036

032624
9286 032626

012600
000207

9281 032604

9285 032624

L D

Tt L

RO,R4
R1,R3
R2,R5

FLIPWARN:SUBTST <<FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS»>>
R R R AR

; *SUBTEST

9274 032554
032554
032556
9275 032560
9276 032562
9277 032566
9278 032572

MISC SUBROUTINES

REGCOPY:SUBTST
D

9261 032500

9262 032500
032500
9263 032502
9264 032506
9265 032514
9266 032522
9267 032524
9268 032532
9269 032534
9270 032542
9271 032544
9272 032546
9273 032552

Page 288

010037

024762

4s:

PUSH

AR R

INC
BIC
CMP
BEQ
CMP
BEQ
CMP
BEQ
CLR
MOV
BR
CLEAR

FLIPLOC
#1C3,FLIPLOC
#1,FLIPLOC
1$
#2,FLIPLOC
24
#3,FLIPLOC
34
RO
ONES,R4
44
RO,R4

BR
MOV
MOV
BR

4%
#401,R0
ONES,R4
4%

MOV

RO, WARN2

MOV
MOV
MOV

POP

RETURN

AR R AR

AR R

R AR R AR

FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS

MOV
MOV

AR AR R

R R R
T T

R
T

MOV RO, -(SP)

CLR
CLR

RO
R4

#401,R0
#401,R4

RO, WARN3
RO, WARN4
RO, WARNS

MOV (SP)+,RO

e
e

MACRO V05.01b Friday 15-Feb-85 16:10
| CVMJUAAQO MSV11-J MEMORY DIAG.
' FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS

9288 032630

BACKGND : SUBTST
2222

;*SUBTEST

<<SUBR

222222222222

SUBR

ettt

9289
9290 032630

9291 032632
9292 032636

9293 032642
9294 032650
9295 032656
9296 032662
9297 032670
9298 032672
9299

104415
012700
012701
012737
012737
004737
012737
104416
000207

Page 289

WRITE BACKGROUND>>
222 22 222t

000207
024640

024644
002262

000240

024644

CALL
MOV
RESREG

nemanaea

RETURN

#FIRST,RO
#SIZE,R1
#207 ,MTP000+4
#MTPOQO, SUPDOADD

SUPDO3

22t

WRITE BACKGROUND

;WRITES DATA FROM R2

SAVREG
MOV
MOV
MOV
MOV

SEQ 0266

#240,MTP000+4

Pttt

TT T T
e

T T

‘

;WARNING PUTTING "RETURL" AFTER WRITE
;RESTORE

'NOP'

AFTER WRITE

L
)

| CVMJAAD MSV11-J MEMORY DIAG.
' SUBR
WRITE BACKGROUND
9301 032674

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 290

SEQ 0267

GETCSR: SUBTST

<<SUBR

GET CSR INFORMATION FROM CONFIGURATION TABLE>>

; #*SUBTEST

SUBR

GET CSR INFORMATION FROM CONFIGURATION TABLE

D ettt

R LI
I T I T
T T T MMM

9302
9303
9304
9305
9306 032674
9307 032700
9308 032704
9309 032706
9310 032710
9311 032714
9312 032720

;INPUTS : NONE

;OUTPUT : CSRNO = CSR NUMBER
013702

002104
002664

MOV
MOV

177741

BIC

002152

SWAB
ASL

gg\{lRN

BANKINDEX,R2
CONFIG(R2),R3

;GET INDEX INTO CONFIG TABLE
;MOV IT INTO R3

R3
R3

:
H

R3,CSRNC

;SAVE CSR NUMBER

#1C36,R3

;CLEAR OFF SOME BITS

MACRO V05.01b Fridag 15-Feb-85 16:10
X VMJAAO MSV11-J MEMORY DIAG.
'SUBR
GET CSR INFORMATION FROM CONFIGURATION TABL

9315 032722

<<SUBR

PRINT CONFIGURATION MAP>>

; #SUBTEST

SUBR

PRINT CONFIGURATION MAP

A2t 2222 222222222 22222 222222222 22232222232ttty
e T T It}

9316 032722
032722
032726

013746
013746

000060
000062

9317
9318
9319
9320
9321
3;55

032734
032740
032746
032754
032760
032766

010637
012737
012737
017700
042737
052777

033334
033302
000340
147664
000200
000100

9324 032774
032774

104401

065123

9325 033000
033000

104401

065205

033004

104401

065262

9327 033010
9328 033016
9329
9330 033020
033020
033026

022737
002006

000060

002556

000020

147610

033030

032777
001402
000137

033242

9331 033034

012700

000074

9333 033042
033042
033044
9334 033046

005001
005003

9326 033004

033034

9332 033040

010046

010004

000060
000062
177776
147646

kR kR

kR kR kR

PUSH

TKVEC,TKVEC+2,RO

MOV
MOV
MOV
MOV
BIC
BIS

SP,PCONFS
#PCONF2, TKVEC
#340, TKVEC+2
2$TKB,RO
#BIT7.PSW
#BIT6.$TKS

TYPE
TYPEIT
.DSABL
TYPE
TYPEIT

MSGOO1
,MSGOO1
CRF
MSGOO2
,MSG002

.DSABL
iYPE

CRF
MSG0O3

.DSABL

CRF

TYPEIT

NOOJ:

#60. ,RO

MOV

066076

TYPEIT

9340 033076
033076

104401

065570

9341 033102
033102

104401

002660

104401

066076

9339 033072
033072

033106

.DSABL
TYPE

CRF
M3G017

.DSABL
TYPE
TYPEIT
.DSABL
TYPE
TYPEIT
.DSABL

CRF
MSG11A
,MSG11A
CRF
$CRLF
,$CRLF
CRF

TYPE

TYPEIT

BIT #SW4,3SWR
BEQ L333
JMP PCONF1

L333::;:::::

R1.R3

104401

002556

MOV RO, -(SP)

RO,R4

002660

033336
000060

;KILL ANY OLD INTERRUPT
:LOWER CPU PRIORITY TO 140
:ENABLE KEYBOARD INTERRUPTS

MOV

TCONFIG
#60, LASTBANK
PCONF2
$CRLF
,$CRLF

004737
022737
002106

;SAVE LAST GOOD SP

CALL
CMP
BGE
TYPE
TYPEIT

9335 033052
9336 033056
9337 033064
9338 033066
033066

Rk kb kR bk kb

MOV TKVEC, -(SP)
MOV TKVEC+2, -(SP)

#60, LASTBANK
NOOJ
PAPER ON TERMINAL GOTO 1$
SET.IN @SWR THEN JUMPTO PCONF1

MSGOO4
éggcom

065367

kb kR

,MSGOO3

TYPE
ng%l

104401

CMP
BGE
;IF FAT
IF #5W4

CLEAR

033046

9342 033106

SEQ 0268

PCONFIG:SUBTST

sk kkkkk kbt k kb

032732

Page 292

,MSGO17

MSGO17

,MSGO17

CLR
CLP

Rl
R3

;GO TYPE CONFIGURATION (1ST HALF)

;PRINT SPACE(S)

—

———

;CVHJAAO MSV11-J MEMORY DIAG.

'SUBR

‘

PRINT CONFIGURATION MAP

9343 033112
033112

MACRO V05.01b Friday 15-Feb-85 16:10 Page 292-1
.DSABL CRF

104401

065656

033116

104401

002660

9345 033122
033122

104401

066076

033126

104401

065744

9347 033132
9348 033136

012701
010103

000360

iYPE
TYPEIT
.DSABL
TYPE
TYPEIT
.DSABL
TYPE
TYPEIT
.DSABL
TYPE
TYPEIT
.DSABL
MOV

9350 033144

022737

033336

CALL

9344 033116

9346 033126

9349 033140
9351 033152
9352 033154

004737
002053

000170

MOV
002556

NOOJ1:

CMP

MSGO11
,MSGO11
CRF
$CRLF
,$CRLF
CRF
MSGO17
,MSGO17
CRF
MSGO12
,MSGO12
CRF
#60. #2+2,R1
TCONFIG

#170, LASTBANK

BGE
TYPE

PCONF2
$CRLF

.DSABL

CRF

104401

002660

9353 033160
033160

104401

066076

033164

104401

066041

9355 033170
033170

104401

002660

TYPE
TYPEIT

9356 033174
033174

104401

066076

TYPE
TYPEIT

MSGO17
,MSGO17

066043

TYPE
TYPEIT

MSG11C
,MSG11C

9357 033200
033200

104401

TYPEIT

TYPE
TYPEIT

.DSABL
TYPE

TYPEIT

,$CRLF

MSGO17
,MSGO17

,MSG11B

CRF

.DSABL

CRF

$CRLF
,$CRLF

.DSABL

CRF

.DSABL

CRF

104401

002660

TYPE
TYPEIT

9359 033210
033210

104401

066076

TYPE
TYPEIT

MSGO17
,MSGO17

9360 033214
033214

104401

066045

TYPE
TYPEIT

MSG11D
,MSG11D

9361 033220

012701

000740

9362 033224
9363 033226
9364 033232
9365 033234
3;29 033240

010103
012700
010004
004737
000420

9368 033242
9369 033246
9370 033250

012700
010004

033250
033252

005001
005003

000010

033336
000170

.DSABL
MOV

MOV
MOV
MOV
CALL
BR

PCONF1: MOV
MOV
CLEAR

;PRINT SPACE(S)

CRF

9358 033204
033204

.DSABL

;PRINT SPACE(S)

CRF
MSG11B

.DSABL

;PRINT SPACE(S)

R1,R3

033154

9354 033164

SEQ 0269

$CRLF
,$CRLF
;PRINT SPACE(S)

CRF

CRF
#740,R1

R1,R3
#8. ,RO
RO,R4
TCONFIG
PCONF2
#120.,R0O
RO,R4

R1.R3

CLR
CLR

Rl
R3

' CVMJAAQ MSV11-J MEMORY DIAG.
PRINT CONFIGURATION MAP
' SUBR
9371 033254
033254

104401

066060

104401

065656

033264

104401

065367

9374 033270
033270

104401

065744

004737
000721

033336

013706
042777
117700

033334
000100
147324

012600
012637
012637

000062
000060

9372 033260

033260

9373 033264

9375 033274
9376 033300
9377
9378 033302
9379 033306
9380 033314
9381 033320
033320
033322
033326
9382 033332
9383
9384 033334

000207

000000

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 292-2

SEQ 0270
TYPE

TYPEIT
.DSABL

MSGO14

: SPACE

PCONFS,
SP

;RESTORE STACK

TYPE

TYPEIT
.DSABL

TYPE

TYPEIT
.DSABL

TYPE

TYPEIT
.DSABL
CALL
BR
147326

PCONF2: MOV
BIC
MOvB
POP

#BIT6,3$TKS
a$TKB,RO

RO, TKVEC+2, TKVEC

;READ CHAR TO KILL FLAG

MOV (SP)+,RO
MOV (SP)+,TKVEC.2
MOV (SP)+,TKVEC

RETURN

PCONFS: 0

;STACK SAVED HERE!

| CVMJAAO MSV11-J MEMORY DIAG.

f SUBR

PRINT CONFIGURATION MAP

MACRO V05.01b Friday 15-Feb-85 16:10

9387 033336

SUBTST

Page 294

SEQ 0271

<<SUBR

TYPE CONFIGURATION>>

SUBR

TYPE CONFIGURATION

T
T
sy’
MY

;*SUBTEST

9388

OrOrrrrsysys=s" st

eI
rys:s’’’*s NI

9389
9390
9391
9392
9393
9394

;CALL:
3
]
5
3
s

3;32

MOV
MOV
MOV
MOV
CALL
RETURN

#N,RO
RO,R4
#K.R1
R1,R3
TCONFIG

9397

012737

000340

033344

104401

065475

9402 033350
9403 033356
9404 033360
033360

032761
001403

000001

104401

066056

9405 033364
9406 033366
033366

000402
104401

066060

9407
9408
9409
9410

062701
077014
010400
010301

000004

033372
033376
033400
033402

shkkkkk kR

9398
9399
9400 033336

9401 033344

;N=NUMBER OF CHARACTERS
;:BACKUP
; INDEX CONSTANT
; BACKUP
;ACTUAL CALL
;ONLY RETURN

177776

;#% ERROR *=*
;R kR
TCONFIG:MOV
#340,PSW

TYPE

MSGOOS

BIT
BEQ
TYPE
TYPEIT
.DSABL

#BIT0,CONFIG(R1)
24
MSGO13
,MSGO13

ngsgl
002664

14:

2%:

34:

BR
TYPE
ngigl
ADD
SoB
MOV
MOV

;DISABLE INTERUPTS

cHSGOOS
;ERROR ON THIS BANK?
NO - SKIP
;PRINT X"

CRF

34
MSGO14
6226014
#4,R1
RO,1$
R4,RO
R3,R1

;PRINT SPACE

;BUMP POINTER
;LOOP UNTIL DONE

CVMJAAQ MSV11-J MEMORY DIAG.

SUBR

TYPE CONFIGURATION

MACRO V05.01b Fridey 15-Feb-85 16:10

9413

9414
9415
9416
9417 033404
9418 033412
9419 033420

s etttk

012737
112737

000340
000040

104401

066062

005737
033430 001401
033432- 000207

002372

033420

9420 033424
033424

033434

9421 033434
::gg 033436

177776
066062

SEQ 0272

;#% INTERLEAVE ==
I
T
;THIS IS AN ENTRY POINT FROM ERROR REPORTS
TCFIG1: MOV
#340,PSW
;DISABLE INTERUPTS
MOVB
#' ,MSGO1S
;MOVE A BLANK IN TO BE PRINTED
TYPE
MSGO15
TYPEIT

,MSGO1S

CRF

.DSABL

IF NOTAB NE #0 THEN $RETURN

010400
010301

MOV
MOV

L334:;;:::::

AIIII
I T TI I Y

9426

kkk Rk kK

9428 033440

TYPE

MSGO09

9425

TST NOTAB
BEQ L334
RTS PC

R4,RO
R3,R1

9424

;*% MEMORY TYPE *x

9427

033440

104401

065544

9429 033444

033761

002106

033454
033460

016105
000305

002666

03
9435 033472
9436 033474

020527
003022

000003

033474
033500

032705
001413

000001

033306

032705
001404

000002

9430 033452

9432
9433

Page 296

033462

9437 033502
033502

9438 033510
9439 033516

001432

042705

112737

033516

000403

9440 033520
944]1 03 3526
g

112737

033526
033530

000403

0;352

9442 033526

9443 033530
9444 03!336

112737

“CS 0

000403

9«7 03

033546

9448 033552

033552

002664

000105

LSB

TIY)FS’%E

6336009

TCFIG2: BIT

CPUBIT,CONFIG(R1)

BEQ

174

MOV
SWAB

177770

000120

.ENABL

CONFIG+2(R1),RS
RS

BIC

#1C7,RS

CcCMP
RS, #3
BGT
17$
IF #BITO SET.IN RS
IF #BIT1 SET.IN RS

066062

MOVB

#'P,MSGO15

ELSE

066062

MOVB
END

#'E,MSGO1S

ELSE

000120

112737

000040

104401

066062

005737

002372

066062
066062

17§%:

#'P,MSGO1S
8¢

TYPE

HSGOlS

TI;'S,%I

BIT #BITO,RS
BEQ L335

;IS IT A MSV11-P OR A MSV11-U?777
BIT #BIT1,RS

BEQ L336

;IT IS A MSV11-P
:

BR L337

;IT IS A MSV11-J
;

L336::5:3:3

L337:555543
BR L340
L335::5:533

;IT IS A MSV11-L/P
:

L340:;;:;::4

MOVB

;IS IT A LEGAL MEMORY TYPE
:IF IF SO BRANCH!
!t 11}
;IS IT AN ECC MEMORY??1??

;

MOVB
END

8¢:

;GET MEMORY TYPE

;CLEAR NON INTERESTING BITS

,MSGO15

CHSGOIS

IF NOTAB NE #0 THEN $RETURN

15T MNCTAB

i —

CVMJAAO Hegél-d MEMORY DIAG.

SUBR

CONFIGURATION

033556
033560
033562
9449 033562
9450 033566
9451 033570
9452 033572
9453

—

MACRO V05.01b Friday 15-Feb-85 156:10

062701
077052
010400
010301

000004

104401

066064

112737
016105
032705
001414
042705
000305
022705
100002
062705
062705
110537

000040
002664
000002

000007
000060
066062

033650

104401

066062

9471 033654
033654
033660
033662

005737
001401
000207

002372

9472 033664
9473 033670
9474 033672
g:;z 033674

062701
077035
010400
010301

000004

9459 033600
9460 033606
9461 033612
9462 033616
9463 033620
9464 033624
9465 033626
9466 033632
9467 033634
9468 033640
9469 033644
9470 033650

033664

9477

9478

SEQ 0273

001401
000207
ADD
S0B
MOV
MOV
.DSABL

9454
9455

9456
9457
9458 033574
033574

Page 296-1

#4 ,R1
RO, TCFIG2
R4,.RO
R3,.R1
LSB

;BUMP POINTER
;LOOP UNTIL DONE

seeRRRkEs
;%% CSR ##
sERERRkERR
TYPE
MSGO16

T;;Egl
066062

170377
000011

TCFIG3: MOVB
MOV
BIT
BEQ
BIC
SWAB
_CMP
BPL
ADD
10$:
ADD
MOVB
16%:
TYPE

TYPEIT
.DSABL

6255016

#' ,MSGO1S
CONFIG(R1),RS
#BIT1,RS
164
#tC7400,RS
RS
#9..R5
10$
#7,RS
#60,RS
RS,MSGO15
MSGO1S

;MAKE ASCII
;PLUG INTO MEMORY

,MSGO15

CRF

IF NOTAB NE #0 THEN $RETURN

ADD
S0B
MOV
MOV

#4 ,R1
RO, TCFIG3
R4,RO
R3,R1

;BUMP POINTER

RIIIT
I
T T2

9479

PROTECTED

#*»

sekbRRkR
Rk d bRk

9480 033676
033676

104401

065556

9481 033702

105761

002664

9482 033706
9483 033710
9484 033716
033716

100006
112737

000120

104401

066062

9485 033722
9486 033724
033724

000402

104401

066060

9487 033730
9488 033734

062701
077016

000004

BEQ L341
RTS PC
L341::35333:

11$:
066062

13$:

TYPE
ngggl

MSGO10
éngOIO

TSTB

CONFIG(R1)

BPL
MOVB
TYPE
TYPEIT

.DSABL

14$:
15¢:

14$
#'P,MSGO1S
MSGO15
,MSGO1S

;BANK PROTECTED?

;NO - SKIP

CRF

BR
TYPE
T;gEgT

15%
MSGO14
é2?6014

;PRINT SPACE

ADD
soe

#4 ,R1
RO,11$

;BUMP POINTER
;LOOP UNTIL DONE

TST NOTAB
BEQ L342
RTS PC
L342:;;::::

CVMJAAQ MSV11-J MEMORY DIAG.
'SUBR
TYPE CONFIGURATION

9489 033736 010400

9490 033740
9491 033742

010301
000207

Coé

MACRO V05.01b Fridey 15-Feb-85 16:10

MOV

MOV
RETURN

R4,RO
R3.R1

Page 296-2

SEQ 0274

' CVMJUAAO MSV11-J MEMORY DIAG.

' TRAP

PARITY ERROR HANDLER

MACRO V05.01b Fridey 15-Feb-85 16:10

9494

.SBTTL

9‘95

TRAP

Page 298

SEQ 0275

PARITY ERROR HANDLER

JEERRRRERERRERERERERER
R
R R R R R R R AR R R R R R Rk
Rk Rk
kb b

9496

;VECTOR TO HERE FROM TRAPS TO 114

g:gg

;tttttttttttttt.ttttttttttttttt.tt‘ttttttttt#tttttttttttttttttt.ttttttttttttt‘t‘

9497

; IGNORE ERRORS BUT COUNT IF NOPAR FLAG = 1.

9500
9501

;
;

CODE
-

9503
9504
gggz

;
:
;

1
2
3

9502

9507 033744
9508 033752
9509 033754
9510 033760
9511 033762
9512 033770
9513 033772
033772
9514 034000

9515 034004

9516 034010

9517 034016
9518 034020

9519 034026
9520 034030
9521 034034
9522 034036
9523 034042
034042
034046

;

022737
001003
005237
000002
022737
001013
012737
004737
063716

042766

000002
022737

001003
013716
000002
004737
005237
104032

000001

002076

002072

000002

002076

177777
034152

002144

000004

000002

000003

002076

002326

002064

PRINT UNEXPECTED PARITY TRAP

COUNT ERROR
SET "ABORT" / SETUP "BADPC" / RETURN VIA PCBUMP
RETURN VIA “PARTHERE
"

PARITY: CMP
BNE
INC
RTI

#1,NOPAR
14
PARCNT

;COUNTING PARITY ERRORS?
;NO - SKIP
;PARITY ERROR COUNTER + 1

CMP
BNE
SET

#2,NOPAR
24
ABORTFLAG

;ACTION CODE = 2 ?
;NO - SKIP
:YES

CALL

BADSTACK

MOV #-1,ABORTFLAG
;FIND BAD SP,PC,PSW OFF STACK

BIC

#BIT12,2(SP)

;:SHOW FAILURE BY .NE.

#3,NOPAR

;ACTION CODE = 3 ?

BADSTACK
32
FATALS
+32

;FIND BAD SP,PC,PSW OFF STACK

1%:

ADD

2%:

002304
034152

ACTION
et

RTI
CMP

BNE
MOV
RTI
CALL
FATAL
INC
ERROR

.DSABL

PCBUMP, (SP)

34
PARTHERE, (SP)

CRF

;UPDATE RETURN PC

;NO - SKIP

;SET FATAL INDICATOR

MACRO V05.01b Friday 15-Feb-85 16:10
CVMJAAQ MSV11-J MEMORY DIAG.
- TRAP
NON-EXISTANT MEMORY (HOLES) HANDLER
|

.SBTTL

9526
DR

TRAP

Page 300

SEQ 0276

NON-EXISTANT MEMORY (HOLES) HANDLER

;VECTOR TO HERE (SOMETIMES) FROM TRAPS TO 4
;
CODE _IN NONEM DETERMINES ACTION AS FOLLOWS:
: 1)
IGNORE ERRORS BUT COUNT IF NONEM (NO NON-EXISTANT MEMORY) FLAG = 1.

: 2)

TO EXIT PATTERN © DURING SIZING IF NON-EXIST MEM ERROR

P YT
L

022737
001011
005237
022737
001002

010037
000002
005237
012701
000002

000001

002100

002070
000001

002070

002034

002070
000001

NONEXIST:CMP
BNE
INC
CMP
BNE

#1,NONEM
2$
NEMCNT
#1 ,NEMCNT
14

;COUNTING NON-EXISTANT MEMORY ERRORS?
:NO - SKIP
;BUMP NON-EXISTANT MEMORY COUNTER
;FIRST ERROR?
:NO - SKIP

;BUMP NON-EXISTANT MEMORY COUNTER
;:DUMMY UP R1 FOR A FORCED SOB EXIT

g?¥

RO, ADDRESS

2%:

INC
MOV

NEMCNT
#1,R1

;ASSUME RO CONTAINS THE ADDRESS ACCESSED

et
L
e
T
T T T
T

9547 034114
9548 034120
034120
034124
9549
9550

004737

034152

005237
104006

002064

.SBTTL

9553
9554 034140
9555 034144
034144
034150

034152

MMTRAP:

005237

002064

004737

034152

INC
ERROR
.DSABL
.SBTTL
PDPIIOS:E:%kL

005237
104005

002064

CALL
FATAL

034152
034156
034164
034172
034200

bbb

BADSTACK
7

FATALS
+7
CRF
TRAP

BADSTACK
5

bbb

bbbttt

L T

010637
062737
016637
016637
000207

002026
000002
000002
000004

002026
002022
002032

MOV
ADD
MOV
MOV

RETURN

T T

;FIND BAD SP,PC,PSW OFF STACK

;SET FATAL INDICATOR
RESERVED INSTRUCTION HANDLER

;FIND BAD SP,PC,PSW OFF STACK

FATAL ¢
+5
CRF

MEMORY MANAGEMENT (TRAP TO 250) HANDLER

:SET FATAL INDICATOR

BADSTACK:SUBTST <<FIND BAD SP, PC, & PSW FROM STACK>>

: *SUBTEST
9564
9565
9566
9567
9568

;FIND BAD SP,PC,PSW OFF STACK

;SET FATAL INDICATOR

TRAP

INC
ERROR
.DSABL

9556
9562
9563 034152

TIMEQOUT (TRAP TO 4) HANDLER

FATAL $
+6
CRF

.SBTTL

004737

104007

ERDSTACK

INC
ERROR
.DSABL

9551 034126
9552 034132
034132
034136

TRAP

TIMEOUT:CALL
FATAL

el L

FIND BAD SP, PC, & PSW FROM STACK
et

SP,BADSP
#2,BADSP
2(SP),BADPC
4(SP),BRDPSW

T TR P

CVMJAAQ MSV11-J MEMORY DIAG.

| TRAP

KERNEL TRAP HANDLER

MACRO V05.01b Fridey 15-Feb-85 16:10

9571

9572

9573

9578

9579
9580 034212

042766
000002
052737

000002

9583
9584 034222
9585 034230

042737
000002

9586

9587
9588 034232
9589 034236

9590 034240
9591 034246
9592 034254
9593

9594

9595 034256
9596 034262
9597
9598 034264
9599 034272

KERNEL TRAP HANDLER

9581 034220
2

TRAP

SEQ 0277
T

;KERNEL IS A TRAP THAT COMES HERE

gg;g

9576 034202
9577 034210

.SBTTL

Page 302

005737
001406
013737
052737
000002

140000

000002

$KERNEL:

RTI

000001

177572

.SBTTL
$ENERGIZE:BIS

RTI

T T

BIC

177572

et T

002544
000001

177746
177746

.SBTTL
TRAP
DEENERGIZE TRAP HANDLER
$DEENERGIZE:BIC #BITO,MMRO
RTI

.SBTTL
$CACHN: TST
BEQ
1%:

MOV
BIS
RTI

T T T T T T T T T

TRAP
ENERGIZE TRAP HANDLER
#BITO,MMRO

002544

#140000,2(SP)

000001

TRAP
CACHKN
13

CACHON TRAP HANDLER
;IS THERE A CACHE
;NO_- RETURN

CACHKN,CONTRL
#BITO,CONTRL

T T T T

T T T

T T T T T

;SETUP CACHE AS PER CONSTANT (USUALLY 1 = FULLY ON)
;DISABLE TRAPS (BUT NOT ABORTS)

et
T
L
T T T T
PP

005737
001403

002544

053737
000002

002550

.SBTTL

177746

TRAP

CACHOFF TRAP HANDLER

$CACHF: TST
CACHKN
;1S THERE A CACHE?
BEQ
14
iNO - RETURN
;DISABLE TRAPS (NOT ABORTS), FORCE MISSES, FLUSH, BYPASS
BIS
CACHKF
, CONTRL
14:
RTI

LOAD CSR TRAP HANDLER

9602
9603
9604
9605 034274
034274
034276
9606 034300

9607 034304

034304
034310
9608 034312
9609 034316
9610 034320
9611 034324
9612 034330
9613 034334
9614 034336
9615 034344
9616 034346
9617 034354
9618 034362
034362
034364
9619 034366
9620
9621
9622
9623 034370
034370

9624 034372
9625 034376
9626 034404

034404
9627 034406

MACRO V05.01b Friday 15-Feb-85 16:10

Page 304

SEQ 0278

.SBTTL

TRAP

LOAD CSR TRAP HANDLER

;LOAD CORRECT CSR WITH DATA IN CSR
;PROGRAM CSR'S ASSERT INHIBIT MODE POINTER WHEN LOADED

010046
010146
013700

005737
001021
005737
100007

113701

042701
020137
001404
123737
001003
052737
013760

$LOADC: PUSH

002152

RO,R1

: SAVE REGISTERS

MOV
CSRNO,RO
IF INHECC IS TRUE THEN GOTO 3¢

002536
002532

TST

PGMCSR

Move
BIC
CMP
BEQ
CMPB
BNE

PGMCSR+1,R1
#1C37,R1
R1,CSRNO
2%
PGMCSR, CSRNO
3¢

POP

R1,RO

BPL

002533
177740
002152
002532

002152

1%:

020000
002150

002150
172100

2%:
3%:

012601
012600
000002

BIS
MOV

1¢

#BIT13,CSR
CSR,CSRADD(RO)

;:CREATE CSR ADDRESS
;DON'T WANT INH. MODE POINTER ON

TST INHECC
BNE 3¢
;PROGRAM IN INTERLEAVED SPACE?
;:BRANCH IF NOT
;CHECK SECOND CSR
;CLEAR_UNNECESSARY BITS
;IS THIS THE CURRENT CSR?
;:BRANCH IF IT IS
;IS THIS THE CURRENT CSR?
:BRANCH IF NOT
;SET THE INHIBIT MODE POINTER TO 1ST 16K
;LOAD THE CSR
;RESTORE REGISTERS

RTI

.SBTTL _ TRAP

MOV RO, -(SP)

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

READ CSR_TRAP HANDLER

;READ THE CORRECT CSR INTO LOCATIONS CSR

010046
013700
016037

012600
000002

$READC: PUSH

002152
172100

002150

MOV

CSRNO,
RO

POP

MOV
RTI

CSRADD(RO),CSR

MOV RO, -(SP)

;READ IT
MOV (SP)+,RO

—————— —————

| CVMJARO MSV11-J MEMORY DIAG.

| TRAP

MACRO V0S5.01b Friday 15-Feb-85 16:10
' CVMJAAQ MSV11-J MEMORY DIAG.
' TRAP
TEST (R1) € READ CSR CAREFULLY

.SBTTL
$TSTRD: PUSH

9629
9630 034410
034410
034412
034414
9631 034416
9632 034422
9633 034426

172100
002152

MOV

002532

TST

ADD

CLR

BPL

MOovB

002533

002532

9642 034464
9643 034470

9644
9645 034474
034474
034476

002152

020000
034542

012603
012602
012600

032737
001410
032737
001004
052766

9647 034522
9648 034530
034530
034532
9649 034532
9650 034540
034540
9651 034540
9652
9653 034542
9654 034544
034544

053737

9655 034552
9656 034554
9657 034562
9658 034566

011037
000207

000020

002150

100000

002150

000001

000002

000001

;:CREATE CSR ADDRESS

PGMCSR

PGMCSR+1,R3

2%:
3$:
5%:

POP

R3,R2,R0

; IF SINGLE BIT ERROR ONLY - SET CARRY BIT

IF #BIT4 SET.IN CSR AND #BIT15 OFF.IN CSR

BIS
ELSE

000403
042766

#CSRADD,RO

CSRNO,RO

#BIT7,R3
R3,CSRNO
24
PGMCSR, CSRNO
3¢
#BIT13,R2
TSTRD1

16:

SEQ 0279

TRAP
TEST (R1) & READ CSR CAREFULLY
RO,R2,R3

BIC
CMP
BEQ
CMPB
BNE
MOV
CALL

002152

Page 305

#BIT0,2(SP)

MOV (SP)+,R3
MOV (SP)+,R2
MOV (SP)+,RO
BIT
BEQ
BIT
BNE

#BIT4,CSR
L343
#BIT15,CSR
L343

BR L344

BIC _ #BITQ,2(SP)
END ;OF IF #BIT4

000002

RTI

000002
TSTRD1:

010210

002552

177776

140000
002150

177776

MOV
R2,(RO)
TESTAREA
BIS
TESTMODE ,PSW
CRF
.DSABL
TST8
(R1)
BIC
#B8IT15!BIT14,PSW
MOV
(RO),CSR

RETURN

;G0 TO SYSTEM TEST MODE

' CVMJAAO MSV11-J MEMORY DIAG.

' TRAP

MACRO V05.01b Friday 15-Feb-85 16:10

ECC DISABLE ALL CSR'S TRAP HANDLER

9661
9662 034570
9663 034576
9664 034602
9665
9666 034604
9667 034612
9668 034614
9669
9670 034616
9671 034624
9672 034630
9673
9674 034632
9675 034640
9676 034642
9677
9678 034644
9679 034652
9680 034656
9681

9682 034660
9683 034666
9684 034670
9685
9686 034672
9687 034700
9682 034706
9689 034712
9690

9691 034714
9692 034722
9693 034730
9694 034732

Page 307

SEQ 0280

.SBTTL TRAP
ECC DISABLE ALL CSR'S TRAP HANDLER
$ECCDIS:MOV
#B8IT1,CSR
CALL
CSROUT
RTI
.SBTTL TRAP
ECC DISABLE OF 1 SELECTED CSR TRAP HANDLER
$ECC1DIS:MOV
#BIT1,CSR
LOADCSR
RTI
.SBTTL TRAP
INITIALIZE ALL CSR'S TRAP HANDLER
$ECCINIT:MOV
#BIT0,CSR
CALL
CSROUT
RTI
.SBTTL TRAP
INITIALIZE 1 SELECTED CSR TRAP HANDLER
$ECC1INIT:MOV _ #BITO,CSR
LOADCSR
RTI
.SBTTL TRAP
ENABLE SBE PARITY TRAPS ON ALL CSR'S
$ENASBE:MOV
#BITO!BIT1,CSR
CALL
CSROUT
RTI
.SBTTL TRAP
ENABLE SBE PARITY TRAPS ON 1 SELECTED CSR
$ENAL1SBE:MOV
#BITO!BIT1,CSR
kg;DCSR

012737
004737
000002

000002
035314

002150

012737
104425
000002

000002

002150

012737
004737
000002

000001
035314

002150

012737
104425
000002

000001

002150

012737
004737
000002

000003
035314

002150

012737
104425
000002

000003

002150

013737
052737
004737
000002

002314
000006
035314

002150
002150

$CBCSR: MOV
CHECK,CSR
BIS
#BIT1!BIT2,CSR
CALL CSROUT
RTI

;BITS 11-5
; CHECK MODE

013737
052737
104425
000002

002314
000006

002150
002150

$CB1CSR:MOV
CHECK,CSR
BIS
#BIT1!BIT2,CSR
LOADCSR
RTI

;BITS 11-5
; CHECK MODE

.SBTTL

TRAP

WRITE CHECKBITS THRU ALL CSR'S TRAP HANDLER

.SBTTL

TRAP

WRITE CHECKBITS THRU 1 SELECTED CSR TRAP HANDLER

CVMJAAQ MSV11-J MEMORY DIAG.

'TRAP

‘

MACRO V05.01b Friday 15-Feb-85 16:10

WAS THERE A SBE ON ANY CSR TRAP HANDLER

9697

9698 034734

034734

034736
9699 034740
9700 034744
9701 034746
034746
9702 034746
034746
034752
9703 034752
9704 034754
034754
9705 034756
9706 034760
034760
034766
9707 034770
034770
9708 034774
034774
9709 034776

.SBTTL

010146

010446
013701
005004

005037

002224

002152

006301

ASL
ON.ERROR

103010
104426
032737
001403

000020

012704

177777

SET

035022
035024
9716 035026
035026
9717 035030
9718 035036
035036
035040
9719 035040
9720 035046
035046
9721 035046
9722
9723
9724 035050
9725 035052
9726 035060
9727 035066

9728 035070

;GET CSR'S BYTE

000002
002152

002152
000036

EMD ;O0F FOR CSRNO

ROR
POP

012604
012601
103004
052766

ON.ERROR
000001

000002

000403

042766

000001

000002

000002
104426
042766
032737
001403
052766

R4
R4 ,R1

000001
000020

000002
002150

000001

000002

BIS
ELSE

#BIT0,2(SP)

BIC
#BIT0,2(SP)
END ;OF ON.ERROR

BCC L34S
BIT #BIT4,CSR
BEQ L346
#-1,R4

L345:;;::::;
TST R1
BEQ ES7

ADD #2,CSRNO
CMP CSRNO, #36
BLE B60
€60:::::35:3

END LWSBE

006004

CLR CSRNO
B60:;;::::

L346:;:;:::::

;OF ON.ERROR

IF R1 EQ #0 THEN LEAVE LWSBE

005701
001407

BS7:::5::3

BR ES7

END ;OF IF #BIT4
END

MOV R4, -(SP)

MOV

LEAVE LWSBE

000411

062737
023727
003755

MOV R1,-(SP)

READCSR
IF #BIT4 SET.IN CSR

002150

SEQ 0281

WAS THERE A SBE ON ANY CSR TRAP HANDLER

FOR CSRNO := #0 TO #36 BY #2

9710 034776

035002
035010
035016
035020
9713 035020
035020
9714 035020
9715 035022

R1.R4

MOV
TOTCSRS,R1
CLR
R4
BEGIN LWSBE

034776

034776
9711 034776
034776
035000
9712 035002

TRAP

$WASSBE : PUSH

Page 309

;SET C BIT FOR ERROR

ES7:;5:::::
MOV (SP)+,R4
MOV (SP).+,.R1
BCC L347
BR L350
L347:;;:::::

L350:;;:::::
RTI
.SBTTL TRAP
WAS THERE A SBE IN 1 SELECTED CSR TRAP HANDLER
;ON RETURN IF CARRY IS SET THERE WAS A SBE
$WAS1SBE
: READCSR
BIC
#BIT0,2(SP)
;CLR C BIT ON STACK
BIT
#BIT4,CSR
BEQ
1%
BIS
#B8170,2(SP)
;SET C BIT ON STACK

| CVMJAAO MSV11-J MEMORY DIAG.

' TRAP

_ MACRO V0S5.01b Friday 15-Feb-85 16:10

WAS THERE A SBE IN i SELECTED CSR TRAP HANDLER

9729 035076 000002

1%:

RTI

Page 309-1

SEQ 0282

]

—
. —

MACRO V05.01b Friday 15-Feb-85 16:10
' CVMJAAO MSV11-J MEMORY DIAG.
' TRAP
WAS THERE A DBE ON ANY CSR TRAP HANDLER

9733 035100
035100
035102
9734 035104
9735 035110
9736 035i12

010146
010446
013701
005004

002224

035142
035144
9747 035146
035146
035154
035162
035164
9748 035164
035164

9749 035164
9750 035166

005037

9760 035216
9761 035222
9762 035224
9763 035232

SEQ 0283

WAS THERE A DBE ON ANY CSR TRAP HANDLER

;:GET CSR'S BYTE

#0 TO #36 BY #2

012704

177777

IF #BIT15 SET.IN CSR

002150

SET

END

062737
023727
003755

002152
000036

BIT #BIT1S5,CSR
BEQ L352
#-1,R4

L352:::::4:3

IF R1 EQ #0 THEN LEAVE LWDBE

000002
002152

CLR CSRNO
B62:::::::

BR E61

;OF IF #BIT4

END ;OF ON.ERROR

005701
001407

B61l:::::::

MOV

LEAVE LWDBE

000411

MOV R1,-(SP )
MOV R4, -(SP )

BCC L351

READCSR

100000

L351:55:5:3:
TST R1

BEQ E61

END ;OF FOR CSRNO

ADD #2,CSRNO

CMP CSRNO, #36
BLE B62
END LWDBE
ROR
POP

006004

103004

9759 035214

ASL
ON.ERROR

032737
001403

035172
9752 035174
9753 035202

9758

002152

103010
104426

012604
012601

9755 035212
035212
9756 035212
9757

FCR CSRNO

006301

035166
035170

9751 035172

R1.R4

MOV
TOTCSRS,R1
R4
CLR
BEGIN LWDBE

035112

9737 035112
035112
035116
9738 035116
9739 035120
035120
9740 035122
9741 035124
035124
035132
9742 035134
035134
9743 035140
035140
9744 035142
035142
9745 035142
035142
9746 035142

TRAP

.SBTTL
$WASDBE
: PUSH

9732

Page 311

052766

000001

000002

000001

000002

BIS
ELSE

BCC L353

#BIT0,2(SP’

BR L354

BIC
#BIT0,2(SP)
END ;OF ON.ERROR
RTI

000002

104426
005737
100004
052766
000002

MOV (SP)+,R4
MOV (SP)+,R1

ON.ERROR

000403
042766

;:SET C BIT FOR ERROR

R4
R4 ,R1

.SBTTL

TRAP

L354:;;:::;

WAS THERE A DBE ON 1 SELECTED CSR TRAP HANDLER

;ON RETURN IF CARRY IS SET THERE WAS A DBE

$WAS1DBE :READCSR
TST

002150
000001

000002

BPL
BIS
RTI

CSR

3$
#B8170,2(SP)

;DBE?
;NO - SKIP
;SET C BIT ON STACK

|
|

$VHJAAO MSV11-J MEMORY DIAG.

RAP

MACRO V05.01b Fri

WAS THERE A DBE ON 1 SELECTED CSR TRAP

9764 035234
9765 035242

042766
000002

000001

000002

34:

BIC

RTI

15-Feb-85 16:10
ER

#B8170,2(SP)

Page 311-1

;:CLR C BIT ON STACK

V0S5.01b Fridey 15-Feb-85 16:10
CVMJAAQ MSV11-J MEMORY DIAG.
TRAP
CLEAR ALL ECC CSR’'S TRAP HANDL

9768
9769 035244

035244
9770 035250
9771 035254
9772
9773 035256
035256
9774 035262
9775 035264
9776
9777
9778 035266
9779 035274
9780 035300
9781
9782
9783 035302
9784 035310
9785 035312

005037
004737

000002

005037
104425
000002

052737
004737
000002
052737
104425
000002

002150
035314

TRAP

CALL

CSROUT

.SBTTL

TRAP
CSR

RTI

$CLRICSR:CLEAR

002150

000006
035314

.SBTTL

$CLRCSR:CLEAR

LOADCSR
RTI
.SBTTL
_TRAP

002150

$CHKDIS:BIS
E?EL

002150

CLR

CSR

CLR

CSR

CLEAR 1 SELECTED CSR TRAP HANDLER

ECC_DISABLE, CHECK MODE, & WRITE CHECKBITS IN ALL CSR'S TRAP HANDLER

#8IT1!BIT2,CSR
CSROUT
TRAP

SEQ 0285

CLEAR ALL ECC CSR'S TRAP HANDLER

;CHECKBITS ALREADY IN LOC “CSR"

.SBTTL

000006

CSR

Page 313

;ECC DISABLE & DIAG CHECK MODE

ECC DISABLE, CHECK MODE, & WRITE CHECKBITS IN 1 SELECTED CSR

;CHECKBITS ALREADY IN LOC "CSR"
$CHK1DIS:BIS
#8IT1!BIT2,CSR
;ECC DISABLE & DIAG CHECK MODE
LOADCSR

RTI

S ——

’

———

————

[

—

——

—

gvv‘gno MSV11-J MEMORY DIAG.
MACRO V05.01b Fri
R
ECC DISABLE, CHECK MODE, & WRITE CHECKBITS

9788 035314

15-Feb-85 16:10
IN 1 SELECTED

CSROUT: SUBTST

«<<SUBR

Page 315

WRITE IN ALL CSR'S>>

L
T
T

; *SUBTEST

9789 035314
035314
9790 035316
9791 035322
035322
9792 035322
035322
035326
9793 035326
9794 035330
035330
9795 035332
9796 035334
035334
9797 035334
035334
035336
9798 035340
035340
035346
035354
035356
9799 035356
035356

9800 035356
035356

gggé 035360

SUBR

010146
013701

005037

PUSH

002224

002152

ASL
ON.ERROR

103001
104425

035404
035406

9810 035410

CLR CSRNO
B64:;:::::

BCC L35S
L35S:::::::

IF R1 EQ #0 THEN LEAVE LCSROUT

005701
001407
000002
002152

TST R1
BEG E63

END ;OF FOR CSRNO

002152
000036

ADD #2,CSRNO
CMP CSRNO, #36
BLE B64
E64:;::5:::3

END LCSROUT

POP

012601

000207

E63:;:::::
MOV (SP)+,R1

RETURN

$INVALID:

SUBTST

<<TRAP

INVALIDATE BACKGROUND PATTERN>>

TRAP

INVALIDATE BACKGROUND PATTERN

T
T
e T
T T TN,
T

9805 035366
9806 035372
9807 035374
9808 035376
9809 035404

B63:;:::::

LOADCSR
END ;OF ON.ERROR

; #*SUBTEST
035362
035364

MOV R1,-(SP)

;GET CSR’S BYTE

FOR CSRND := #0 TO #36 BY @2

006301

062737
023727
003764

MOV
TOTCSRS,R1
BEGIN LCSROUT

9803 035362
9804 035362

WRITE IN ALL CSR'S

SR EERREERERRRERRRERREEAR
SRR
REERRERRRRARESE SRR ISR RNR
R LRSS RELOE0000S00 000

010046
010146

013701
006301
006301
042761

012601
012600

000002

002102
020000

002666

I T

PUSH

RO,R1

MOV
ASL
ASL
BIC
POP

BANK,R1
R1
R1
#BIT13,CONFIG+2(R1)
R1,RO

RTI

T ,h,m,mmMmm

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

MOV (SP)+,R1
MOV (SP)-,RO

MACRO V05.01b Fridey 15-Feb-85 16:10
| CVMJAAD MSV11-J MEMORY DIAG.
| TRAP
INVALIDATE BACKGROUND PATTERN

9812 035412

SUBTST<<TRAP

$ERRGEN:

a2t 222222 22 2222 222 22 22 2

; *SUBTEST

TRAP

2222 2222222 22 22222

9813 035412
035412
035414

035416
035420
9814 035422
9815 035426

177646
177773
002132

9821 035452
9822 035456
9823 035460

9824 035464
9825 035466
9826 035470
9827 035472
9828 035474
98%3 035500
98
9831 035502

9832 035506
9833 035512
9834 035516
9835 035522
9836 035524
9837 035530
9838 035532
035532
9839 035534
9840 035540
9841 035546
9842 035552
9843 035560
9844 035564
9845 035566
9846 035570

9858 035630
9859 035634

Attt

64:

BNE
MOV
BR
MOV

64
SIPAR3,RO
7%
UIPAR3,RO

1$:

BIC
SWAB

2ttt

e Ty

T T

MOV R3,-(SP)

NOSUPER

ASH
TST
BNE

#-5,R0
EQFLAG
14

ASR
ASR
ASR

R1
R1
R1

#1C177,R0
R1

;:GENERATE WHAT ERRCR ADDR SHOULD BE

;GET CURRENT ADDRESS BITS 11 AND 12

042701
060100

177775

BIC

ADD

R1,RO

013701
072127
042701
005737
001024
005737
001421

002150
177773
177600
002454

MOV

CSR,R1

BIC
TST
BNE
TST
BEQ
PUSH

#1C177,R1
NO22BIT

2%
EQFLAG
2%
RO

;IS THIS AN 11/83,11/23-B OR 11/23 ?
;BRANCH IF NOT NECESSARY
;IS IT EQB?
;BRANCH IF NOT
:SAVE GENERATED ERROR ADDRESS

MOV
BIS
MOV
BIC
BIC

CSRNO,R2
#B8I714,CSRADD(R2)
CSRADD(R2),R0
#B81714,CSRADD(R2)
#tC740,R0

;GET CSR NUMBER
:TURN ON EQB BIT CAREFULLY
:GET CSR CONTENTS
;TURN OFF EQB BIT CAREFULLY
;CLEAR EVERYTHING BUT ERROR ADDR

010046
013702
052762

002152

177037

172100
172100

2%:

RO
RO
RO,.R1
RO

CMP
BEQ

RO,R1
54

BEQ
ADD

000100
002140

002066

ASL
ASL
ADD
POP

TST

002136

000100

#1C2,R1

;ADD THEM TO THE ADJUSTED PAR VALUE
;GET ERR OR ADDRESS FROM CSR UNDER TEST

002132

9847 035572
035572
9848 035574

9849 035576
9850 035600
9851 035604
9852 035606
9853 035612
9854 035616

BANKINDEX,R3

7%:

177600

MOV

172246

GENERATE AND TEST ERROR ADDRESS>>

22 22t 22t

RO,.R1,R2,R3

TST

SEQ 0287

GENERATE AND TEST ERROR ADDRESS

PUSH

002104
002456

9816 035432
9817 035434
9818 035440
9819 035442
9820 035446

Page 316

4%:

INTFLAG

34
#100,R0

INT64K

BNE

BEQ
TST
BNE

5$
SKPERR
5%

ADD
CMP

MOV RO, -(SP)

;SHIFT ADDR BITS 18-21 INTO POSITION
;ADD TO CURRENT ERROR ADDRESS
MOV (SP)+,RO

;COMPARE REAL AND GENERATED ERR. ADDR.
;BRANCH IF THEY ARE THE SAME
; INTERLEAVED?
;NO - WE HAVE AN ERROR
;64K INTERLEAVED MEMORY?

#100,R0
RO,R1

;ARE WE SUPPOSED TO SKIP ERROR P.0.?
;YES - SKIP ERROR PRINTOUT

|
|

9860 035636

9861 035640
9862 035644
9863 035650
035650
035652
035654
035656
332; 035660

104462

010137
005037

002460
002066

9868 035666

9869 035674
3g;g 035676

$CBREG: SUBTST

005037

052737

104425
000002

002150

000004

<<TRAP

SEQ 0288

:ELSE PRINT ERROR ADDRESS ERROR

;SAVE CSR'S ERROR ADDRESS
;ENASLE THE ERROR PRINTOUT AGAIN
;RESTORE REGISTERS
MOV (SP)«,R3
MOV (SP)«.R2
MOV (SP)+,R1
MOV (SP)+,RO

ENABLE CHECKBIT REGISTER>>

; *SUBTEST

ENABLE CHECKBIT REGISTER

TRAP

T I

D
L
L
T T T LI L)

CLR

002150

CSR

BIS

LOADCSR
RTI

;

#B8IT2,CSR

;ENABLE DIAGNOSTIC MODE
:LOAD CSR REGISTER
;

$SYNREG: SUBTST <<TRAP

ENABLE SYNDROME BIT REGISTER>>

; *SUBTEST

ENABLE SYNDROME BIT REGISTER

T
e L
L T T
T T
T T TP
L

9873 035700

005037

9875 035712
9876 035714

104425
000002

9877

R1,ERRADD
SKPERR
R3,R2,R1,RO

RTI

9872 035700

9874 035704

MOV
CLR
POP

012603
012602
012601
012600
000002

9866 035662

9867 035662

PERR36

5%:

Page 316-1

052737

002150

040004

002150

CLR

BIS

LOADCSR
RTI

TRAP

CSR

#BIT14:!BIT2,CSR

;

;ENABLE DIAGNOSTIC MODE
;LOAD CSR REGISTER
;

— ———

GENERATE AND TEST ERROR ADDRESS

———————

TRAP

MACRO V05.01b Friday 15-Feb-85 16:10

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10
CVMJAAD MSV11-J MEMORY DIAG.
TRAP
El NABLE SYNDROME BIT REGISTER

SUBTST<<SUBR

9880 035716

Hidididanata
e

SUBR

SEQ 0289

MAPPER>>

t i 2222222222 22 22

; *SUBTEST

Page 318

2222222

MAPPER

2222

e
L

T I

TS I

]

;THIS SUBROUTINE MAPS THE MEMORY BANK (16K WORDS = 1 BANK)
;IN R3 TO THE TEST PATTERN AREA (SUPERVISOR VIRTUAL (60000 - 157777) FOR
;THE 11/83 ; USER VIRTUAL (60000 - 157777) FOR ALL OTHERS.

9881
9882
9883

;CALL
;

035716
035716

035720
035722
035724
035726
035730
035734

035740
035744
035750

010046
010146
010246
010446

010546

012700
012701
012704
005737
001404

035752
035756
035762
035766
035772
035774
035776
036000
036004
036012
036014
036020
036024
036030

012701
012704
012702
012705
012021
010224
077503
012741
022737
001007
012704
012705
052724
077503

036032
036036
036040

022703
001516
072327

036044
036050
036054
036056
036062
036066
036070
036074
036076
036102
036104
036110
036112

012701
005737
001402
012701
012702
010321
062703
077204
005737
001442
162701
010102
062702

MOV
CALL

;

RETURN

MAPPER:

PUSH

MOV
MOV
MOV

177640
177600
077406
000010

MOV
MOV
MOV
MOV

177600
000005

004010

30%:

172206
000004
100000

354:

000200

40%:

000011

172246
002456

177646

000004

000200
002240

000010
000004

2%:

RO,R1,R2,R4,R5

MOV RO, -(SP)

MOV R2,-(SP)
MOV R4,-(SP)
MOV RS, -(SP)

;FIRST AREA TO MAP TO
;FIRST ADDRESS REGISTER
;FIRST DESCRIPTOR REGISTER

BEQ

: YES, BRANCH

MOV
MOV
S0B
MOV
CMP
BNE
MOV

(RO)+,(R1)+
R2,(R4)+
R5,1%
#177600, -(R1)

MOV

ggg

NOSUPER

;CAN WE USE SUPERVISOR MODE?

#UIPARO,R1
#UIPDRO,R4
#77406,R2
#8.,R5

;FIRST ADDRESS REGISTER
;FIRST DESCRIPTOR REGISTER
;CONSTANT FOR 4K PAGE, UP, R/M
; COUNTER

#5,PROTYP

;IS THIS A 11/737?

404
#SIPDRO+6,R4
#4.,R5

ggI;%?.(R4)0

;PUT IN SUPERVISOR ADDRESS
;PUT _IN SUPERVISOR DESCRIPTOR
;LOOP TILL DONE
;CORRECT LAST FIELD FOR PERIPHERALS PAGE
;BRANCH IF NOT
;POINT TO PDR 3
;COUNTER=4

;SET UNCONDITIONAL CACHE BYPASS IN PDR3-6

;SET UP SUPERVISOR/USER FOR TEST AREA

CMP

#200,R3

:MAP NOTHING (1 TO 1)?

ASH

#9.,.R3

;BANK 1 STARTS AT 100,000 LESS 6 LSB'S

MOV

#SIPAR3,R1

;SETUP FOR AUTO INCREMENTING

; YES - BRANCH

MOV

R3,(R1)+

;PLUG IN PAR INFO

S0B

R2,24

;LOOP TILL DONE

BEQ

TST

NOSUPER

MOV
MOV

#UIPAR3,R1
#4 ,R2

BEQ

5%:

;ONLY RETURN

#KIPARO,RO
#SIPARO,R1
#SIPDRO,R4

TST

1$:

;SET UP BANK ARGUEMENT
;ACTUAL CALL

; SET SUPERVISOR/USER UP FOR 1 TO 1 MAP

172340
172240
172200
002456

4%:

BANKNO,R3
MAPPER

ADD

TST
BEQ
SuB
MOV
ADD

#200,R3

SPLTCSR
94
#10,R1
R1,R2
#4 ,R2

:YES - SKIP

;FOR MEMORY MANAGEMENT = 1000

;D0 WE HAVE SUPERVISOR MODE?

;SETUP FOR AUTO INCREMENTING
; COUNTER
;:BUMP ADDRESS 4K

——
—

| CVMJAAO MSV11-J MEMORY DIAG.
MAPPER
'SUBR

|
|

9929 036116

9930 036124
9931 036126
9932 036130
9933 036132
9934 036134
9935 036136
9936 036140
9937 036144
9938 036150
9939 036152
9940 036156
9941 036160
9942 036164
9943 036170
9944 036172
9945 036176
9946 036200
9947 036204
9948 036206

9954 036210
9955 036216
9956 036220
9957 036224
9958 036226
9959 036234
9960 036236
036240
9962 036246
9963 036250

9964 036254
9965 036256
9966 036264

9967 036266
9968 036274
036274

036304
9969 036306
9970
9971 036310
036310
036312
036314
036316

9974 036330
9975 036334

022737

001403
010200
010102
010001
012122
011112
013700
005737

001403
012700
000402
012700
005737

001403
012701
000402
012701
060021
060011

022737
001010
005737
001423
022737

001017

000404
022737
001012
005737
001404
013737
000403
013737

000001

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0290

002240

10%:

002104
004000
010000
002456

114:
12%:

177652

172252

134:
144:

002556

9%:

002454
000007

002102

000177

002102

002456

7%:
8%:

177652

177654

172252

172254

012605
012604
012602

TST
BEQ
MOV
BR
MOV
TST
BEQ
MOV
BR

INT64K
114
#4000,R0
124
#10000,R0
NOSUPER
134
#UIPARS,R1
144

MOV
ADD

6%:

$KMAP:

172340
077406

172300

BANKINDEX,RO

#SIPARS,R1
RO,(R1)+
ADD
RO,(R1)
;IF WE ONLY HAVE AN 124K SYSTEM, WE DON'T WANT TO TEST THE

;LAST 4K, WHERE THE Q-BUS DEVICE PAGE IS. INSTEAD, THE
;PROGRAM WILL REMAP THE LAST 4K TO 8-12K. ALSO, IF THERE
;IS A BANK 177 ON AN 11/83, THE PROGRAM WILL REMAP THE LAST
;4K TO 8-12K FOR THE SAME REASON.

gng

gz.LASTBANK

TST
BEQ
CMP

N022BIT
34
#7 ,BANK

ggi

CcMP

#177 ,BANK

BNE
TST
BEQ

MOV
POP

RETURN

010046

012703

#1,SPLTCSR
10$
R2,R0
R1,.R2
RO,R1
(R1)+,(R2)+
(R1),(R2)

ggv

012601
012600
000207

010146
010246
010346
010446
005000
012701
012702

cMP
BEQ
MOV
MOV
MOV
MOV
MOV

MOV

002140

000007

Page 318-1

;11/83,11/23-B OR 237
;:BRANCH IF SO
;:BANK 72

:NO - BRANCH

34
NOSUPER
64

g§PAR5.UIPAR6
SIPARS,SIPAR6

RS,R4,R2,R1,R0

.SBTTL
PUSH

TRAP
MAP KERNEL (ALMOST 1 TO 1) TRAP HANDLER
RO,R1,R2,R3,R4

CLR
MOV
MOV

RO
#KIPARO,R1
#77406,R2

MOV

#KIPDRO,R3

MOV
MOV
MOV
MOV
MOV

(SP)+,RS
(SP)«.R4
(SP)+,R2
(SP)+,R1
(SP)+,RO

MOV
MOV
MOV
MOV
MOV

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4,-(SP)

;1ST AREA TO MAP TO
;FIRST ADDRESS
;CONSTANT FOR 4K PAGE,UP,R/MW

:1ST PAGE DESCRIPTOR REGISTER

————————— ————

' CVMJAAO MSV11-J MEMORY DIAG.

| TRAP

MACRO V05.01b Friday 15-Feb-85 16:10

MAP KERNEL C(ALMOST 1 70 1) TRAP HANDLER

9976 036340
9977 036344
9978 036346
9979 036350
9980 036354
9981 036356
9982 036362

012704 000010
010021
010223
062700 000200
077405
012741 177600
012741 177400

036366
036370
036372
036374
036376
9990 036400

012604
012603
012602
012601
012600
000002

9989 036366

1%:

MOV
MOV
MOV
ADD
SOB
MOV
MOV
POP

RTI

Page 318-2

#8. R4
RO,(R1)+
R2,(R3)+
#200,R0
R4,1$
#177600, -(R1)
#177400, -(R1)
R4,R3,R2,R1,R0

;

SEQ 0291 i

;COUNTER
:PUT IN KERNEL ADDRESS
;PUT IN KERNEL DISCRIPTOR
;ADD ADDRESS CONSTANT FOR 4K CHANGE
;LOOP TILL DONE
; THE PERIPHERALS PAGE TO KIPAR?
;AND NEXT LOWER PAGE TO KIPAR6
MOV
MOV
MOV
MOV
MOV

(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

|
|

:
‘

' CVMJAAQ MSV11-J MEMORY DIAG.

' TRAP

MACRO V05.01b Friday 15-Feb-85 16:10

MAP KERNEL (ALMOST 1 TO 1) TRAP HANDLER

9993 036402

SRR EERREA AR AR R AR R

; *SUBTEST

036430
036432
9996 036432
036432
036436
036440

036442
036444
9997 036444
036444
9998 036444

032777

001402

010000

10000 036452
10001 036456
036456
036462
036464

036470
036472
036476
10002 036500
10007 036504
10004 036510

10005 036514
10006 036520
10007 036524
10008 036530
10009 036536
10010 036544

036544
10011 036546

R R AR R R AR RN R AR

RELOCATE PROGRAM

T T T T

005737
001003
005737
001405
005737
001402
000261
000207

144226

IF APTFLAG IS TRUE OR ACTFLAG IS TRUE

002350
IF $PASS NE #0 THEN $RETURN ERROR

056654

END; OF IF APTFLAG

BEGIN LOADERBANK
000001

004737

040052

005737

002116

001431
005737

001026
005737
001023
013700
010037
013701

004737
004737
013701
052761
042761

002666
002666

032777
001002

020000

A R

R n

T T TN T T

BIT #SW12,aSWR
SEC
RTS PC
L356:::::::
TST
BNE
TST
BEQ
L357:335333

APTFLAG
L357
ACTFLAG
L360

TST $PASS
BEQ L361
SEC
RTS PC
L361::::::
L360:;;:::::

B65:::::33
MOV #1,BANK
B66:::5:::

BNE L362
TST BMFLAG
BNE L362

MOV
BANK,RO
MOV
RO, LOADBANK
MOV
LOADHOME
,R1
CALL
BANKMOV
CALL
NEWLOAD
;MAP NEW LOADER BANK IN KERNEL
MOV
BANKINDEX,R1
BIS
#BIT15,CONFIG+2(R1)
:MARK LOADER
BIC
#BIT13,CONFIG+2(R1)
; INVALIDATE BACKGROUND PATTERN
LEAVE LOADERBANK
END ;OF IF ACFLAG

036546

036562
036570

T T

R R AR

BEQ L362
TST PFLAG

‘

002130

002102
002102

TT T

R AR R

CALL EXBANK
IF ACFLAG IS TRUE AND PFLAG IS FALSE AND BMFLAG IS FALSE
TST ACFLAG

000416

005237
023737
003734

FOR BANK := #1 TO LASTBANK

002102

002122

002102
002432
002576
037442
037774
002104
100000
020000

AR AR R R

BEQ L3356

002352

012737

R R

T T

000261
000207

10012 036546
036546
036552
036560
036562
10013 036562

R AR

IF #SW12 SET.IN @SWR THEN $RETURN ERROR

036444

9999 036444
036444
036452

SEQ 0292

RELOCATE:SUBTST <<RELOCATE PROGRAM>>
T

9994 036402
036402
036410
036412
036414
036416
9995 036416
036416
036422
036424

Page 320

END ;0F FOR BANK
002556

144046

IF #SW13 OFF.IN QSWR

BR E65

L362:::35::3
INC BANK
CMP BANK,LASTBANK
BLE B66

E66:::::353

BIT #SW13,3SWR
BNE L363

' CVMJAAQ MSV11-J MEMORY DIAG.

' RELOCATE PROGRAM
10014 036572
036572

104401

MACRO V05.01b Friday 15-Feb-85 16:10

TYPE

070176

TYPEIT

.DSABL

10015 036576
000261
000207

83322}2

10023 036616
036616
036624
10024 036626
036626
036634
10025 036636
036636
036644

013702

002556

012701

000004

032761
001035

000201

002664

032761
001031

100000

002666

033761
001425

002106

002664

006302
006302

MOV

000400

002666

032761
001405
032761
001001

000100

002664

000200

002664

036676

000447

036700
036704
10032 036706
036706
10033 036714
10034 036720

B67:;:::::

LASTBANK ,R2

005737
001005

002536

012737
010137

177777
002540

IF #BIT8 OFF.IN CONFIG+2(R1) THEN LEAVE FINDBANK ;IF PARITY
BIT #BIT8,CONFIG+2(R1)
BEQ E67
IF #BITS SET.IN CONFIG(R1) AND #BIT7 OFF.IN CONFIG(R1)
BIT #BIT6,CONFIG(R1)
BEQ L367
BIT #BIT7,CONFIG(R1)
BNE L367
.

SET

INHECC

MOV
R1,INHBANK
END; OF IF INHECC

END ;OF IF CPUBIT
END ;OF IF #BIT1S
END ;OF IF #BIT7

036720
062701
020102

000004

HOV #2+2,R1

;IF NO ERRORS & NOT PRmAH SPACE
BIT #BIT7!BITO,CONFIG(R1)
BNE L3654
IF #BIT15 OFF.IN CONFIG+2(R1) ;IF NOT LOADER BANK
BIT #BIT15,CONFIG+2(R1)
BNE L365
IF CPUBIT SET.IN CONFIG(R1) ;IF ACCESSABLE
BIT CPUBIT,CONFIG(R1)
BEQ L366

IF INHECC IS FALSE

002536

IF #BIT7!BITO OFF.IN CONFIG(R1)

END ;OF IF #BIT6

10037 036720

036720
036724

E6S:::::::

;IF 1ST PROTECTABLE ECC BANK
LEAVE FINDBANK

036720
10035 036720
36720
10036 036720
036720
10038 036720

SEC
RTS PC

ASL
R2
ASL
R2
;R2 <- R2 * 4
FOR R1 := #2%2 TO R2 BY #4

032761
001460

10030 036700
036700
10031 036700

L363:;::::35:

BEGIN FINDBANK

10026 036646
036646
036654
10027 036656
036656
036664
036666
036674

10028
10029 036676

CRF

END LOADERBANK

10018 036602

10020 036606
10021 036610
10022 036612

;RELOCATION NOT POSSIBLE

$RETURN ERROR

036602

036602
10019 036602

MSGO7S

SEQ 0293

END ;OF IF #SW13

036576

10016 036576
036576
036600
10017 036602

,MSGO75

Page 320-1

END ;OF FOR

BR E67

L367:533::3
TST INHECC
BNE L370
MOV

#-1,INHECC

L370::5:::3

L366:5:3333
L365::35::33
L368:;:;::::
ADD #4,R1
CMP R1,R2

- CVMJAAQ MSV11-J MEMORY DIAG.

' RELOCATE PROGRAM

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 320-2

SEQ 0294
003733

10045 036762
036762
10046 036762
036762
10047 036762
10048 036766
036766
036774
10049 036776
10050 037004
10051 037006
037006

10052 037012
037012
10053 037012
037012
037014
10054 037016
037016
10055 037016
037016
10056 037022
10057 037030
10058 037032
10059 037036
037036
10060 037042
10061 037050
10062 037054
037054

10063 037062
037062
037066
037070
037072

10064 037074
10065 037076
10066 037104
10067 037110
10068 037114
10069 037116

10070 037120

005737
001012

002542

005737
001407
013701
023727
001421
000420

002536
002540
002300

BLE B70
E70::33::33

IF FULLREL IS FALSE

TST FULLREL

BNE L371

IF INHECC IS TRUE

MOV
INHBANK,R1
CMP
REALPAT, #30
BEQ
RELENT1
BR
RELENT1
END; OF IF INHECC

000030

TST INHECC
BEQ L372

;IS THIS PATTERN 307

;YES - SKIP MESSAGE

L372:::::::

END; OF IF FULLREL

005037

002536

032777
001006
023727
001402

020000

143642

002300

000030

104401

070176

CLR
INHECC
IF #SW13 OFF.IN aSWR
CMP
BEQ
TYPE

TYPEIT

,MSGO75

REALPAT, #30
SKUB
MSGO75

L37:353:33

;MAKE SURE FLAG IS TURNED OFF!

;IS THIS PATTERN 30?
;YES - SKIP MESSAGE
;RELOCATION NOT POSSIBLE

CRF
.DSABL
END ;OF IF #SW13

SKUB:

000261
000207

$RETURN ERROR

SEC

RTS PC

END FINDBANK

005037
042761
005000
071027

000004

010037
013737
004737

002310
002532
037610

002534

052737

140000

177776

002536
020000

002666

RELENT1:

RELOC1:

041024

002664

177572

E67:;:::::

;IF WE RELOCATED PRO&E&LY. THIS SHOULD BE OFF!

CLEAR

INHECC

BIC
CLR
DIV

#BIT13,CONFIG+2(R1)
RO
#4 ,RO

LET NEWBANK

KERNEL

JMPRL1: BIC
CALL
MOV
ASL
ASL

MOV

CRF

#81T0,MMRO
NEWKERNEL
, RO
NEWBANK

RO
RO

CLR

CONFIC(RO),R2

INHECC

; INVALIDATE BACKGROUND PATTERN

:= RO

MOV
PGMCSR,PGMCSR+2
USERMAP
CALL
USER
BIS
#BIT15!BIT14,PSW
CRF
.DSABL
BMOV
0,100000,SIZE
JSR R5,BLOCK3
SIZE
300000

.DSABL

000001
037672
002310

BIT #SW13,aSWR
BNE L373

; SAVE CURRENT PGM. CSR
;MAP NEWBANK TO USER PAR
;ENTER USER MODE
;GO 70 USER MODE

MOV RO, NEWBANK

;MOVE PROGRAM

;ENTER KERNEL MODE
;:DEENERGIZE MEMORY MANAGEMENT

;RO <- RO = 4

CVMJAAQ MSV11-J MEMORY DIAG.

- RELOCATE PROGRAM

10071 037124
10072 037126
10073 037132

10074 037134

10075 037142
10076 037146
10077 037154
10078 037156
10079 037162
10080 037166
10081 037172
10082 037176
10083 037202
037202
10084 037210
037210
037212

000302
042702
006302

052737

MACRO V05.01b Fridey 15-Feb-85 16:10

177760

000001

010237
032760
001412
016002
042702
072227
052702
050237

002664
007777
177775
100000
002532

012737

177777

000241
000207

iK'/

002532
010000

177572

002126

SWAB
BIC
ASL

R2
#1tC17,R2
R2

MOV
BIT
BEQ
MOV
BIC
ASH
BIS
BIS
SET

R2,PGMCSR
#BIT12,CONFIG+2(RO)
14
CONFIG(RO),R2
#1C170000,R2
#-3,R2
#BIT15,R2
R2,PGMCSR
RLFLAG

BIS

002666

1%:

Page 320-3

#B81T0,MMRO

$RETURN NOERROR

SEQ 0295

;ENERGIZE MEMORY MANAGEMENT

;PUT_NEW PGM. CSR_INTO PGMCSR
;IS THE NEW BANK INTERLEAVED?
;:BRANCH IF NOT INTERLEAVED

MOV

#-1,RLFLAG

CLC
RTS PC

- CVMJAAQ MSV11-J MEMORY DIAG.

' RFLOCATE PROGRAM

MACRO V05.01b Friday 15-Feb-85 16:10

10087 037214

UNRELOCATE : SUBTST

sEERRRERRERRRREER R

; #SUBTEST

SRR

10038
10089 037214
037214
10090 037216

10091 037222
10092 037226

10093 037232
10094 037236
037236
10095 037242
10096 037250
10097 037254

10098 037260
10099 037266
10100 037274
10101 037300
10102 037304
10103 037312
037312
10104 037316
s 037316

RRR R R R RE R R R R R R R R R R AR

010046
013701
013700
004737
004737

002432
002576
037442
037774

013746
013737
004737
013701
042761
013737
004737
013701
042761

002102
002432
040052
002104
100000
002576
040052
002104
020000

012637

002102

005037

002536

002102

002666
002102
002666

MOV
CALL
MOV
BIC
MOV
CALL
MOV
BIC
POP

LOADBANK
, BANK
EXBANK
BANKINDEX,R1
#BIT15,CONFIG+2(R1)
LOADHOME
, BANK
EXBANK
BANKINDEX,R1
#BIT13,CONFIG+2(R1)
BANK

CLEAR

INHECC

002310
037610

037340

052737

140000

10111 037346
037346
037352
037354

004537
040000
100000

041024

000000

10112 037360
10113 037362
10114 037370
10115 037374
10116 037402
10117 037410
10118 037414
10119 037420

104417
042737
004737
013737
052737
005037
012700
042710

KERNEL
BIC
CALL
MOV
BIS
CLR
MOV
BIC

012600
000207

R RN

AR AR R R kR R R

Rk kR

bbb
kb

kb kbR bbb bbb

kR kRt

002666

177776

002666
020000
000004
003620

002532
177572
1$:
28:

;CLEAR LOADER FLAG

; INVALIDATE BACKGROUND PATTERN
MOV (SP)+,BANK
;MAKE SURE ECC TESTS ARE NOT INHIBITED!
CLR INHECC

;MAP NEWBANK TO USER PAR
;ENTER USER MODE
;G0 TO USER MODE

gg§115931114.vsu

0,100000,SIZE
JSR RS,BLOCK3
SIZE
100000

ADD
CMP
BLE
POP

RETURN

CRF

#8ITO,MMRO
.
NEWKERNEL
PGMCSR+2 , PGMCSR
#BITO, MMRO
RLFLAG
#CONFIG+2,R0
#BIT13,(RO)

#4,RO
RO, #3620
24
RO

MOV BANK, -(SP)

CALL
USER
ngABL

USERMAP

;MAP NEW LOADER BANK IN KERNEL SPACE

; INVALIDATE BACKGROUND PATTERN

BMOV

177572

;RESTORE BANK 0
BIC
#BIT13,CONFIG+2
LET NEWBANK := #0

.DSABL

000001
037672
002534
000001
002126

e bbb

MOV RO, -(SP)

LOADBANK
, R1
LOADHOME
, RO
BANKMOV
NEWLOAD
BANK

005037
004737

062700
020027
003771

R R

MOV
MOV
CALL
CALL
PUSH

020000

10120 037424
10121 037430
10122 037434
10123 037436
037436
%8{5; 037440

R R

R R R

;RESTORE LOADERS
PUSH
RO

042737

037356

SEQ 0296

<<UNRELOCATE PROGRAM>>

R R RRRRERRER AR RN R

UNRELOCATE PROGRAM

10106
10107 037322
10108 037330
037330
10109 037334

10110 037340

Page 322

CLR NEWBANK

;MOVE PROGRAM

;ENTER KERNEL MODE
;DEENERGIZE MEMORY MANAGEMENT
;RESTORE PREVIOUS PGM. CSR
;ENERGIZE MEMORY MANAGEMENT
;MOVE 2ND WORD OF CONFIG TO RO
;CLEAR BACKGROUND VALID BIT
; INCREMENT TO NEXT BANK
;DONE
?
iNO - BRANCH
MOV (SP)+,RO

| CVMJAAQ MSV11-J MEMORY DIAG.

' UNRELOCATE PROGRAM

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0297

BANKMOV:SUBTST

10128 037442

<<MOVE BANKS>>

; *SUBTEST
10129
10130
10131
10132
10133 037442
10134 037444
10135 037450
10136 037452
10137 037454

MOVE BANKS
e

10138 037460
10139 037464
igizg 037470
10142 037474
10143 037476
10144 037500
igizz 037502

010122
060301
010122
060301

MOV
ADD
MOV
ADD

R1,(R2)+
R3,R1
R1,(R2)+
R3,R1

10147 037504
10148 037506
10149 037510
igigg 037512

010022
060300
(010022
060300

MOV
ADD
MOV
ADD

RO,(R2)+
R3,RO
RO, (R2)+
R3,RO

037610
000011
000011
177650
000200

037514

052737

140000

10153 037522
037522
037526
037530
037532

004537
020000
140000
100000

041024

igig; 037534

104417

igigg 037536

012702

10158 037542
10159 037544
10160 037546
igigé 037550
10163 037552
10164 037554
10165 037556

177776

USER

ngABL

BMOV

177650

CRF

#UIPAR4 ,R2

010122
060301
010122
060301

MOV
ADD
MOV
ADD

R1,(R2)+
R3,R1
R1,(R2)+
RZ R1

010022
060300
010022

MOV
ADD
MOV

RO,(R2)+
R3,RO
RO,(R2)+

052737

140000

10169 037570
037570
037574
037576

004537
010000
140000

041024

177776

ADD

R3,RO

USER
ngflflL

ggngS!BITl4.PSH

BMOV

;GO TO USER MODE

;MOV 1ST HALF BANK

;ENTER KERNEL MODE

100000, 140000,SIZE/4
JSR R5,BLOCK3
SIZE/4
140000

:MAP 1ST HALF BANK
;BUMP BY 4K

MOV

10168 037562
037562

100000, 140000,SIZE/2
JSR RS,BLOCK3
SIZE/2
140000
100000

KERNEL

060300

ggngS!BIT14.PSU

.DSABL

igigg 037560

;MOVE 3/4 OF A BANK
;CALLING SEQUENCE
;RO = DESTINATION BANK
;R1 = SOURCE BANK
SAVREG
CALL
USERMAP
RESREG
SAVREG
ASH
#9.,R0
ASH
#9.,R1
MOV
#UIPAR4 ,R2
MOV
#200,R3

104415
004737
104416
104415
072027
072127
012702
012703

10152 037514

Page 324

;MAP 2ND HALF BANK
;BUMP BY 4K

;GO TO USER MODE
;MOV 3ND FOURTH OF BANK

I I L

| MOVE BANK

CVMJUAAQ HgVII-J MEMORY DIAG.

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 324-1

SEQ 0298

037600

100000

10170 037602
10171
10172 037604
10173 037606

104417

100000
.DSABL
KERNEL

104416
000207

RESREG
RETURN

CRF

;ENTER KERNEL MODE

CVMJAAQ MSV11-J MEMORY DIAG.
MOVE BANKS

MACRO V0S5.01b Friday 15-Feb-85 16:10

SEQ 0299

10176 037610

USERMAP
: SUBTST

012701
012702
012703
012704
012705
012221
011423
077503

177640
172340
177600
172300
000004

013700
072027

002310
000011

012705
010021
062700
011423
077505
000207

1%:

24:

SUIPARO,R1
#KIPARO,R2
®UIPDRO,R3
#KIPDRO,R4
#4,RS5
(R2)+,(R1).
(R4),(R3).
RS,1%

MOV

RO
NEWBANK,

MOV
MOV
ADD
MOV
S0B

#4 ,R5
RO,(R1)+
#200,R0
(R4),(R3).
R5,24

bttt

10206 037730
037730
037732
037734
10207 037736
10208
10209 037740

010046
010146
010546
012700
013701
072127
012705
010120
062701
077504

2222 223

172340
002310

1%:

000200

10213 037750
10214 037756
10215 037762
10216 037766
10217 037772

T T

#KIPARO,RO
NEWBANK ,R1

MOV
MOV

#4,R5
R1,(RO)+

S08

R3,1$

a2 d d

MOV RS, -(SP)

:BANK 1 STARTS AT 100,000 LESS 6 LSB'S
;FOR MEMORY MANAGEMENT = 1000

#9..R1

;SETUP KIPAR(0-3)

#200,R1

R5,R1,RO

MOV (SP)+,RS
MOV (SP)+,R1

MOV (SP)+,RO

RETURN

MAPKERNAL
: SUBTST <<SUBR MAP KERNAL PARS 4 AND 5 TO A BANK>>
R
sk

10212 037744

SETUP KERNEL PAR'S FOR NEW BANK>>

SETUP KERNEL PAR'S FOR NEW BANK
R

MOV
MOV

: *SUBTEST

10210
10211 037740

SUBR

RO,R1,RS

ADD

:SETUP UIPAR(4-7)
;:BUMP ADDRESS 4K
:SETUP UIPDR(4-7)

bttt

PUSH

POP

012605
012601
012600
000207

:BANK 1 STARTS AT 100,000 LESS 6 LSB'S
:FOR MEMORY MANAGEMENT = 1000

P 22ttt

ASH

000011

LIt}

;COPY KERNEL PAR'S & PDR'S (0-3)

<<SUBR
L

T T TSI

L ettt
L T T T T T
I L

NEWKERNEL : SUBTST
R

ittt

#9..RO

RETURN

10203 037720
10204 037722
10205 037726

22 22t

MAP USER TO NEW BANK

MOV
MOV
MOV
MOV
MOV
MOV
MOV
soe
ASH

000200

SUBR

MAP USER TO NEW BANK>>
22222

S anaa gt

; *SUBTEST
10197 037672
037672
037674
037676
10198 037700
10199 037704
10200 037710
10201
10202 037714

<<SUBR

A2 22222 22 22 222 22 22 2 2

:*SUBTEST

10177 037610
10178 037614
10179 037620
10180 037624
10181 037630
10182 037634
10183 037636
10184 037640
10185
10186 037642
10187 037646
10188
10189 037652
10190 037656
10191 037660
10192 037664
10193 037666
10194 037670
1€195
10196 037672

Page 326

013705
072527
013737
010537
062705
010537
000207

002102
000011
172350

172350

000200
172352

kbbb k

ke kb Yk

MOV BANK,RS
002272

e T

MAP KERNAL PARS 4 AND 5 TO A BANK

SUBR

ASH #9. ,RS

MOV KIPAR4,SAVPAR
MOV RS,KIPAR4

ADD #200,RS5
MOV RS,KIPARS
RETURN

kR kR

Rk kR kb kb Rk

;MOV_BANK NUMBER TO RS
;RS ENTERS 100000 LESS SHIFT TO CREATE MAPPING
:SAVE OLD PAR
;GET NEW PAR’'S

- CVMJAAO MSV11-J MEMORY DIAG.

' SUBR

10218

MACRO V0S5.01b Friday 15-Feb-85 16:10

Page 326-1

MAP KERNAL PARS 4 AND 5 TO A BANK

10219 037774

NEWLOAD:SUBTST

<<SUBR

SETUP KERNEL PAR'S FOR NEW LOADER BANK>>

; #SUBTEST

SUBR

SETUP KERNEL PAR'S FOR NEW LOADER BANK

GERER R RER

R R AR

sRERRRERR R R R R R

10220
10221 037774

037774

010046

10222 040000

012701

10224 040010
10225 040012
10226 040016
10227 040020
040020

010021
062700
010021

037776

010146

172350

MOV

R R R

R RR

R R R

R R

AR R

R R

Rk Rk kR kb

R R

AR R

bk bk
AR

kb bbbk

bbb S

ek b kbbb

000200

UNMAP:

SUBTST

shkkkkkbkkkk

; #*SUBTEST

shkkkkkkkkb

;SETUP KIPARS
MOV (SP)+,R1
MOV (SP)+,RO

002272
000200
002272

172350
002272
172352

MOV
ADD
MOV
RETURN

<<SUBR

UNMAP KERNAL PAR'S 4 AND 5>>

SUBR

UNMAP KERNAL PAR'S 4 AND S

kkkkkkkkkkk kb
kb

;SETUP KIPAR4

RETURN
k ok

kkkkkkkkkk bk

SAVPAR,KIPAR4
#200, SAVPAR
SAVPAR,KIPARS

kkkkkkkkk kb
kb kb kb

kk kb kb

;RESTORE KIPAR4
;:ADD 200 FOR NEXT PAR
;RESTORE KIPARS
:

kbbb kbbb

kbbb

;BANK 1 STARTS AT 100000 LESS 6 LSB'S (1000)

RO,(R1)+
#200,R0
RO,(R1)+
R1,RO

MOV RO,-(SP)

Mu? R1,-(SP)

#9.,R0

MOV
ADD
MOV
POP

012601
012600
000207

013737
062737
013737
000207

R R R

AR R R R R R R

#KIPARS ,R1

ASH

10230 040026

10231 040026
10232 040034
10233 040042
10234 040050

R R

;RO CONTAINS THE DESTINATION BANK
PUSH
RO,R1

10223 040004 072027 000011

040022
igggg 040024

SEQ 0300

CVMJAAQ MSV11-J MEMORY DIAG.
MACRO V05.01b Fridey 15-Feb-85 16:10
- SUBR
UNMAP KERNAL PAR’S 4 AND S

10237 040052

EXBANK: SUBTST

<<SUBR

; *SUBTEST

SUBR

PR ERE R

R R

AR AR R

Page 328

EXAMINE BANK>>

R R SRR AR R R AR

SEQ 0301
R

AR R R

R AR R R

AR R AR AR

EXAMINE BANK

I
T T
T T T I I T T
T
T
T
T

10238
10239
10240
10241
10242
10243
10244

;DO0ES
;(1)
;(2)
;(3)
;(4)
;(5)
;(6)

THE FOLLOWING:
SETS UP "BANKINDEX" AND R1 BASED ON VALUE OF "BANK".
SETS THE "MKFLAG" IF THE BANK IS ECC.
SETS THE "KPFLAG" IF THE BANK IS THE PROTECTED REGION OF ECC MEMORY.
SETS THE "ACFLAG" IF THE BANK CAN BE ACCESSED BY THIS CPU.
SETS THE "PFLAG"” IF THE BANK IS IN PROGRAM SPACE.
SETS THE
"“RRFLAG" IF RELOCATION IS REQUIRED TO TEST THIS BANK; HOWEVER,

;
;
;
;(7)
:

NECESSARY FOR THE USE OF THE RECURSIVE "MODE"” SUBROUTINES). THE "RRFLAG"
IS ALWAYS SET TO DISABLE TESTING IF FIELD SERVICE MODE
"SELECTED BANKS*"
ARE BEING TESTED AND THIS BANK IS NOT SELECTED.
SETS THE "BMFLAG" IF THE BANK IS A BAD MEMORY;
HOWEVER, IT COMPLEMENTS
THIS FLAG IF THE "WORST” FLAG IS NOT SET
(THIS IS NECESSARY FOR THE USE

10245

10251
10252
10253
10254
10255
10256
10257 040052

:
OF THE RECURSIVE "MODE" SUBROUTINES).
;(8) SETS THE "INTFLAG"” IF THE BANK IS INTERLEAVED.
;(9) SETS THE "INT64K" FLAG IF THE BANK IS INTERLEAVED ON 64K WORD BOUNDS.
;(10) SETS THE "SKIPMK" FLAG IF THIS BANK IS INTERLEAVED, AND HAS ALREADY
:
BEEN TESTED.
3
PUSH
RO,R1,R2

10246
10247
10248
10249
10250

040052

010046

MOV RO,-(SP)

040054
040056
10258 040060
040060
040064
10259 040070
040070

005037
005037

002120
002114

012737

177777

040076
040102
040106

005037
005037
005037

002122
002124
002130

040112
040116
040122

005037
005037
005037

002136
002140
002342

10260 040076

10261 040112

10262 040126
10263 040132
10264 040134
10265 040136
10266 040142

10267 040150
10268 040152
040152
10269 040160
10270 040164
040164
040170
040172
040176
10271 040200
10272 040204
040204

010146
010246

013701
006301
006301
010137
032761
001403

002116

002102

002104
000100

012737
012700

177777
000002

030037
001405

002106

005037

002116

030061
001002

IT COMPLEMENTS THIS FLAG IF THE RELOCATION FLAG "RLFLAG" IS SE{ (THIS IS

002664
002114

CLEAR

MKFLAG,KPFLAG

SET

ACFLAG

CLEAR

PFLAG,RRFLAG,BMFLAG

CLEAR

INTFLAG,INT64K,SKIPMK

MOV
ASL
ASL
MOV
BIT

BANK,R1
R1
R1
;R1 <- Rl % 4
R1,BANKINDEX
#BIT6,CONFIG(R1)
;PROTECTED REGION OF ECC MEMORY?

BEQ
SET
1$:

MOV R1,-(SP)
MOV R2,-(SP)

14
KPFLAG

CLR
ACFLAG
END ;OF IF RO

MKFLAG
KPFLAG

MOV

#-1,ACFLAG

CLR
CLR
CLR

PFLAG
RRFLAG
BMFLAG

CLR
CLR
CLR

INTFLAG
INT64K
SKIPMK

MOV

#-1,KPFLAG

;NO - SKIP

MOV
#BIT1,RO
IF RO SET.IN CPUBIT AND RO OFF.IN CONFIG(R1)

002664

CLR
CLR

BIT RO,CPUBIT
BEQ L374
BIT RO,CONFIG(R1)
BNE L374
L374:;;:::::

CVMJAAO MSV11-J MEMORY DIAG.

SUBR

EXAMINE BANK

10273 040204

10274 040210

10275 040212
10276 040216

005737

002116

016102
000302

002666

020227

000003

001415

10277 040220

042702

10279 040230

003405

040232

012737

10278 040224

10280 040232
10281 040240
10282 040244
10283 040252

10284 040254

000137
032761

001403

040254

012737

10286 040270
10287 040272
040272
040300
10288 040306

001406

10285 040262

177777
177777
002126

005737
001002
005137

040364

005737
001407
032761
001003

040366

10297 040350
040350
040354
040356

177777

012737
012737
005737

10294 040336
10295 040342
10296 040344

10292 040326
10293 040330
040330

177777

040446
000400

000200

001402
005137
032761
001403
012737

MACRO V05.01b Friday 15-Feb-85 16:10

TST

BEQ

MOV
SWAB

177770

032761

10289 040312
10290 040314
10291 040320

BIC

002130

002666
002120

002664

002122
002124

002124
000001

002664

177777

002130

002600
002130

002666

012737

177777

002124

10300 040374
10301 040402

032761
001421

010000

002666

040404

012737

177777

002136

10304 040420
10305 040422
040422

001403

10299 040374
040374

10302 040404

10303 040412

10306 040430
10307 040436

10308 040440
040440
10309 040446
040446
040450
040452
10310 040454

032761

012737

004000

002666

032761
001403

000040

177777

002140

012737

177777

002342

012602
012601
012600
000207

3$:

5%:

6%:

8%:
94:

002002
040000

10298 040366

2%:

002664

ACFLAG

CONFIG+2(R1),.R2
R2
#1C7,R2

CMP

R2,#3

SET

BMFLAG

BLE

Page 328-1

;ACTIVE MEMORY?
;:BRANCH IF NOT

; ISOLATE MEM TYPE BITS

;IS THIS AN ILLEGAL MEM TYPE?
;BRANCH IF NOT

;SET BAD BANK FLAG

MOV

#-1,BMFLAG

MOV

#-1,MKFLAG

MOV
MOV

#-1,PFLAG
#-1,RRFLAG

JMP
BIT

ENEXBK
#BIT8,CONFIG+2(R1)

;JUMP OVER REST OF FLAG TESTS
:IS THERE ECC THERE?

SET

MKFLAG

;YES - SET MKFLAG

BIT

#BIT7,CONFIG(R1)

BEQ

;NO- SKIP

;BANK = PROGRAM SPACE?

BEQ
SET

S$
PFLAG,RRFLAG

TST

RLFLAG

;IS PROGRAM RELOCATED?

BEQ
SET

8¢
BMFLAG

;NO - SKIP

15T
BNE
coM

WORST
94
BMFLAG

;IS THIS A WORST FIRST PASS?
;YES - SKIP
iNO - COMPLEMENT BAD MEMORY FLAG

BEQ
COM
BIT

6%
RRFLAG
#BITO,CONFIG(R1)

;NO - SKIP

;NO - SKIP
;YES - COMPLEMENT RELOCATION REQUIRED FLAG
;ERRORS PRESENT IN THIS BANK?
MOV

IF SELONLY IS TRUE AND #BIT14 OFF .IN CONFIG+2(R1)

SET

RRFLAG

END ;OF IF SELONLY

#-1,BMFLAG

TST SELONLY
BEQ L375
BIT #BIT14,CONFIG+2(R1)
BNE L375
MOV

#-1,RRFLAG

L37S:::::::

BIT
BEQ

#BIT12,CONFIG+2(R1)
ENEXBK

;IS THIS BANK INTERLEAVED?
;BRANCH IF IT IS NOT

BIT

BEQ
SET

#BIT11,CONFIG+2(R1)

10§
INT64K

;IS THIS BANK INTERLEAVED WITH 64K BOARDS?

BIT
BEQ

#BITS,CONFIG(R1)
ENEXBK

;SHOULD THIS BANK BE TESTED?
;BRANCH IF IT SHOULD

R2,R1,RO

;RESTORE REGISTERS

SET

10%:

SEQ 0302

SET

ENEXBK: POP

RETURN

INTFLAG

SKIPMK

MOV

#-1,INTFLAG

MOV

#-1,INT64K

MOV

#-1,SKIPMK

;BRANCH IF IT IS NOT

MOV (SP).,R2
MOV (SP)+,R1
MOV (SP)+,RO

CVMJAAO MSV11-J MEMORY DIAG.
EXAMINE BANK
SUBR

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0303

10313 040456

10314
10315
10316
10317 040456
10318 040462
10319 040464
10320 040470
10321 040472
10322
10323 040474
10324 040474

BANKOK: SUBTST

<<SUBR

; *SUBTEST

SUBR

bttt 2 L

T
i

L L

T T

T
T

LI
T T

;IS OF THE TYPE WE ARE TESTING "TMFLAG".

013700
005100
013701
074001
000207

002134

MOV
COM
MOV

002120

INCRPT:
INCPAT:
L

005237
022737
000207

TMFLAG,RO
RO
MKFLAG,R1

XOR

RO,R1

SUBTST

<<SUBR

RETURN

L L

002112
000030

002112

SETPAT:

INC
CMP
RETURN

PATTERN
#30,PATTERN

SUBTST

<<SUBR

bbbttt

AP,

ittt tiittttititisse it LTI

bbbttt

MOV

002112

RETURN

; *SUBTEST

002102

:SET UP CONDITION CODES
;NOT EQUAL TO ZERO IS GOOD (NO OVERFLOW)

SET HIGHEST PATTERN TESTING TYPE>>
e

SUBR

002102
002556

INCREMENT PATTERN TESTING

bbbttt

INCBNK: SUBTST

005237
023737
000207

T L T T T T L L

SUBR

ettt

000027

INCREMENT PATTERN TESTING »>>

HIPAT:

012737
000207

;0K = (=0K)

; INCREMENT _THE PATTERN & SET UP THE CONDITION CODES
;RESULT - Z BIT SET INDICATES OVERFLOW

10337
10338 040520
10339 040524
10340 040532

bttt st t

BANK OK?

;RESULT IS RETURNED IN THE CONDITION CODES (OK = (=0)).

; *SUBTEST
10333 040510
10334 040516
10335
10336 040520

BANK OK?>>

;TEST TO INSURE THAT THE TYPE OF MEMORY IN THE PRESENT BANK

10327 040474
10328 040500
10329 040506
10330
10331 040510
10332 040510

ettt ibttiats ettt

; *SUBTEST

10325
10326

Page 330

bihbitttatt

#27 ,PATTERN

T T

;SET HIGHEST PATTERN

<<SUBR

INCREMENT BANK & TEST>>

SUBR

INCREMENT BANK & TEST

e bt
T T T
I
L]

bbbttt

s I

;RESULTS RETURNED IN CONDITION CODES

INC
CMP
RETURN

T T

SET HIGHEST PATTERN TESTING TYPE

BANK
LASTBANK , BANK

;TOO FAR?

T e

———
—
—l - ——

' CVMUAAO MSV11-J MEMORY DIAG.

' SUBR

INCREMENT BANK & TEST

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0304

10343 040534

QUIT:
R

SUBTST
et

; *SUBTEST

10344
10345
10346
10347
10348
10349

10350 040534
10351 040536
040536
10352 040544
040544
040550
040552
040556
10353 040556
10354 040562
10355 040564
10356 040570
10357 040572
10358 040600
10359 040602
10360

012737

040600

005737

002126

004737
104421
005737
001003
042737
000005
000000

<<QUIT ROUTINE>>
et

QUIT ROUTINE

bttt

ettt

)

;sINITIALIZE ALL CSR'S
;UNRELOCATE IF NECESSARY
;FLUSH OUT ANY DBE'S
;TURN OFF MEMORY MANAGEMENT
;TURN OFF THE Q-BUS MAP
;HALT
ECCINIT
; TRAP ON DOUBLE BIT ERRORS (NORMAL)

104472

001402
004737

Page 332

SET4
#QUIT1
;TRAPS TO 4 GOTO QUIT1
#QUIT1,.4
MOV
CRF
.DSABL
IF RLFLAG IS TRUE THEN $CALL UNRELOCATE

000004

037214
022200

002454
000040

172516

IT1:

CALL
MT0030
DEENERGIZE
TST
NO22BIT
BNE
QUIT1
BIC
#BITS,MMR3
asng

TST RLFLAG

BEQ L376
JSR PC,UNRELOCATE
L376::::::3

;FLUSH OUT DBE'S
;TURN OFF MEMORY MANAGEMENT
;IS THIS AN 11/83,11/23-B OR 11/23?
;:TURN OFF THE Q-BUS MAP

—

)

——
—
—

CVMJAAQ MSV11-J MEMORY DIAG.
QUIT ROUTINE

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0305
EXIT:

10363 040604

SUBTST

<<HALT PROGRAM>>

10367 040626
040626
040630
10368 040630
10369 040632
10370 040636
040636
10371
10372 040636

004737

040636

005737
001003
005737

002352

001402

040664

10400 040720
040720

TST APTFLAG

TST ACTFLAG

L377:::::33

BR
ELSE

$EXHALT:

003670

BR L401
L400:;;::::

HALT
JMP

END

START
;OF IF APTFLAG

SUBTST

ook

L401:;;:::::

<<SHUTDOWN DIAGNOSTIC>>

ookl ok kR

ok Rk kR

ok ko okok ok

ook ok dokok

SHUTDOWN DIAGNOSTIC
ok kR

ok ok ok ok Rk

;INITIALIZE ALL CSR'S
;UNRELOCATE
;FLUSH OUT DBE'S
;RESTORE LOADERS
; TURN OFF MEMORY MANAGEMENT
;UNMAP THE Q-BUS MAP

ok kol

ok kR

002126

kR kR kR

Rk kR Rk

TST RLFLAG

BEQ L402
JSR PC,UNRELOCATE

037214

L402:;;::::

IF QUICK IS FALSE

005737
001002
004737

002436
022200

CALL
MTO0030
END ;0F IF QUICK

;FLUSH OUT DBE'S

012700
013701
004737
104421
005737
001003
042737
000207

000001
002576
037442

MOV
#1,R0
MOV
LOADHOME ,R1
CALL
BANKMOV
DEENERGIZE
TST
NO22BIT
BNE
14

;DESTINATION BANK
; SOURCE BANK

002454

172516

1%:

BIC
RETURN

TST QUICK

#BITS,MMR3

; *SUBTEST

APT SHUTDOWN SEQUENCE

R Lt

MAP

L403:;;:;:::;

; TURN OFF Q-BUS MAP

<<APT SHUTDOWN SEQUENCE>>

BNE L403

; TURN OFF MEMORY MANAGEMENT
;DOES THIS PDP-11 HAVE 22-BIT ADDR?
;BRANCH IF NOT

APTDOWN:SUBTST
L

010346

ECCINIT
; TRAP ON DOUBLE BIT ERRORS (NORMAL)
IF RLFLAG IS TRUE THEN $CALL UNRELOCATE

104472

000040

ImMmMTTM

BEQ L400

SHUTUP:

10399 040720

002350

; Rk

10387 040664
10388 040670
10389 040674
10390 040700
10391 040702
10392 040706
10393 040710
10397 040716
10398

BNE L377

000403

005737
001402
004737

CALL
SHUTUP
IF APTFLAG IS TRUE OR ACTFLAG IS TRUE

EXIT2:

; *SUBTEST

10373
10374
10375
10376
10377
10378
10382 040636
10383 040640
040640
040644
040646
040652
10384 040652
040652
040656
10385 040660
10386 040664

I
IO
I

000777

000137

HALT PROGRAM

; *SUBTEST

10364 040604
10365 040610
040610
040614
040616
040622
040624
10366 040624

Page 334

e
L

L L

T
Ly

bbb

;:MAP SUPERVISOR SPACE (ngz :gElgs;g BANK 20

| CVMJAAQ MSV11-J MEMORY DIAG.

| APT SHUTDOWN SEQUENCE
040722
040726

012703
004737

040732
10401 040734
040734

012603

10402 040742

10406 040766

MACRO V0S5.01b Friday 15-Feb-85 16:10

Page 334-1

SEQ 0306

000000
035716

MOV
CALL
.DSABL

053737

002552

177776

012737
012737
012737
104417
000000

040720
000340
000000

060024
060026

120720

#0,R3
MAPPER
CRF

MOV (SP)+,R3

TESTAREA
;ENTER TEST MODE
BIS
TESTMODE ,PSW
;GO TO SYSTEM TEST MODE
CRF
.DSABL
MOV
#APTDOWN,FIRST+24
MOV
#340,FIRST+26
MOV
#0,FIRST+APTDOUWN
KERNEL
;ENTER KERNEL MODE
APTHLT: HALT

10409 040770

MACRO V05.01b Friday 15-Feb-85 16:10
SUBTST

EEERRRRR

: #SUBTEST

SRR

<<BLOCK MOVE SUBROUTINE>>
RE R

R ERE R R

ERE

R R R R R R R R R R AR R R R R

BLOCK MOVE SUBROUTINE

sERERERRRRRRRR XX R EREEREEERERE

10410

Page 336

R R R

SEQ 0307

R R AR R

R R

XX ER RN R R RN R R R R AR AR Rk Rk R R

kbbbt
kbR

kbt

b bk kbbb

;BLOCK3 HAS 3 ARGUEMENTS

10411

:BLOCK2 HAS 2 ARGUEMENTS

{8:{%

;BLOCK1 HAS 1 ARGUEMENTS

10414
10415
10416 040770
040770
040772
040774
10417 040776
10418 041002
10419 041006

10421 041010
041010

010046
010146
010246
012702
012701
000413

010146
010246
012701
000404

10425 041024
041024
041026
041030
10426 041032

010046
010146
010246

10430 041040
10431 041042
10432 041044
041044
041046
041050

10433 041052
10434

177640
000020

012501
012502
012500

012022
077102
012602
012601
012600

000205

MOV
MOV
BR
BLOCK2: PUSH

010046

041012
041014
10422 041016
10423 041022

10427 041034
10428 041036

:ALL ARE CALLED BY THE BMOV MACRO
.ENABL LSB
BLOCK1: PUSH
RO,R1,R2

000020

#FASTCITY,R2
#16..R1
3
RO,R1,R2

MOV
BR

#16..R1
23

BLOCK3: PUSH

RO,R1,R2

MOV
MOV
MOV

(RS)+,R1
(RS5)+.R2
(R5)+.RO

MOV
SOB
POP

(RO)+,(R2)+
R1,1$
R2.R1,RO

RTS
.DSABL

RS
LSB

2:
3.
18:

MOV RO, -(SP)
MOV R1,-(SP)
MOV R2,-(SP)

MOV RO, -(SP)

MOV R1,-(SP)
MOV R2,-(5P)

MOV RO, -(SP)
MOV R1,-(SP)
MOV R2,-(SP)

MOV (SP)+,R2
MOV (SP)+.R1
MOV (SP)+.RO

——
" ————

' CVMJAAO MSV11-J MEMORY DIAG.

' APT SHUTDOWN SEQUENCE

CVMUAAQ MSV11-J MEMORY DIAG.

FIELD SERVICE MODE

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ 0308

.SBTTL

10437

10438 041054

<<SUBR

SERRRRRRERRERRREREE AR R R R

R R

041056

10441
10442 041062
041062
041066

041070
041074
041076
10443 041076
041076
10444 041102
10445 041104
10446 041106
041106
10447 041106
10448 041112
10449 041114
041114
10450 041120
041120
041124
10451 041130
10452 041132
041132
10453 041140
041140

10454
10455
10456
10457
10458

10459
10460

10461 041174
10462 041176
10463 041200
10464 041202

10465 041204
10466 041206
10467 041210

104415
066116

005737
001003
005737
001404

002126

104401

067557

222222

.DSABL

R RN R

002544

013746

177746

013746
013746
104424

002152
002006

012737

177777

104401

067007

a2 22

222

MSG020
,MSG020

104401

066137

000766

14:

RRR R R

a2t

002006

FS1:

:SAVE CACHE STATUS

PUSH

CSRNO, KAMIKAZE

:SAVE CSR & KAMIKAZE STATUS

SET

KAMIKAZE

TYPE
TYPEIT

MSGO26

TYPE
TYPEIT

MSG026

CRF
RO

; TURN CACHE OFF
: COMMAND:
;:READ A DECIMAL NUMBER
;COMMAND --> RO

RO, #18.
13

e e

TST RLFLAG

MOV CONTRL,-(SP)

MOV CSRNO, -(SP)
MOV KAMIKAZE,-(SP)
MOV

#-1,KAMIKAZE

MOV (SP)+,RO

MSG021
,MSGO21

CRF
.DSABL
BR
FS1
CASE RO

FSCMDO
FSCMD1
FSCMD2
FSCMD3
FSCMD4
FSCMD5
FSCMD6

BNE L404
TST NOFSMODE
BEQ L40S
L404:;;:::::
;NOT AVAILABLE NOW - TRY LATER!

PUSH

CMP
BLOS

;FIELD SERVICE COMMAND MODE

CACHKN
14
CONTRL

.DSABL

r Rk kbbb

Sttt

TST
BEQ

CACHOFF

14:
041242

CRF

TYPE
MSGO48
TYPEIT
,MSG048
.DSABL
CRF
RESREG
RETURN
END ;OF IF RLFLAG

RDDEC
POP

000022

RRR RRR R

IF RLFLAG IS TRUE OR NOFSMODE IS TRUE

104414
012600
020027

FIELD SERVICE COMMAND MODE>>

FIELD SERVICE COMMAND MODE

002426

005737
001402

010046
006316
004737
041252
041354
041464
041632
042106
042426
043344

2 222

TYPE
TYPEIT

104416
000207

101403

SUBR

SAVREG

104401

FIELD SERVICE MODE

FIELDSERVICE:SUBTST

; *SUBTEST

10439 041054
10440 041056

Page 337

;EXIT FIELD SERVICE COMMANDS
;READ CSR
;LOAD CSR
;EXAMINE MEMORY
;MODIFY MEMORY
;SELECT BANK & PATTERN
; TYPE CONFIGURATION MAP

MOV RO, -(SP)
ASL asP
JSR PC,L406

—

' CVMJAAQ MSV11-J MEMORY DIAG.

SUBR

———

MACRO V05.01b Friday 15-Feb-85 16:10

FIELD SERVICE COMMAND MODE

10468 041212
10469 041214
10470 041216
10471 041220
10472 041222
10473 041224
10474 041226

043352
043644
044072
044364
044412
044434
044454

10475 041230
10476 041232
10477 041234
10478 041236
10479 041240

044476
044514
044600
044642
044656

041242
041244
041246
10481 041250

062616
013646
004736
000733

10480 041242
041242

FSCMD7
FSCMD8
FSCMD9
FCMD10
FCMD11
FCMD12
FCMD13

FCMD14
FCMD1S
FCMD16
FCMD17
FCMD18

END ;OF CASE

FS1

Page 337-1

SEQ 0309

;SOB-A-LONG TEST
;ERROR SUMMARY
;REFRESH TEST
;SET FILL COUNT
;ENTER KAMIKAZE MODE
;EXIT KAMIKAZE MODE
;TURN CACHE OFF
;TURN CACHE ON
;TEST ONLY SELECTED BANKS
;RESUME TESTING ALL BANKS
;ENABLE TRACE
;DISABLE TRACE
L406:;::;:3:3
ADD (SP)+,asP
MOV a(SP)+,-(SP)
JSR PC,a(SP)+

| CVMJAAO MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
' SUBR
FIELD SERVICE COMMAND MODE

10484 041252

10485 041252

070535

10486 041256
10487 041262
041262
041266
10488 041270
10489 041274
10490 041300
041300
041302

062706

000002

005737
001405
062706
005037

002010

10494 041312

10495 041316
10496 041320
041320
041326
10497 041330
10498 041334
041334
041336

10499 041336
10500 041342
10501 041344
041344
10502 041350

041350
10503 041350
igggg 041352

<<COMMAND O

EXIT>>

;*SUBTEST

COMMAND 0

EXIT

TYPE

MSG103

;LEAVING FIELD SERVICE MODE

.DSABL

CRF

N
T
T
T T TN mTmMm
MMM

104401

041302
10492 041306
041306
10493 041306
041306

FSCMDO: SUBTST

S EEEEREEAREEREER A SRS AR ERRESERRERERRR RN ERRERERERRRRERRR S RRER AR RS RSN RBERO RS

041252

10491 041302

Page 339

TYPEIT

ADD
#2,SP
IF SKIPKAMI IS TRUE

000002
002010

000402
012637

012637

005737
001414

023737
001003
062706

002006

002544

002550

000405

002544

012637

177746

#2,SP
SKIPKAMI

POP

KAMIKAZE

BR L410
L407:;:::::

;RESTORE OLD KAMIKAZE FLAG

MOV (SP)+,KAMIKAZE

POP

CSRNO

T1ST

CACHKN

L410:;;:::::

MOV (SP)+,CSRNO

BEQ
RESO
IF CACHKN EQ CACHKF

000002

005737
001402

ADD
CLR
ELSE

TST SKIPKAMI
BEQ L407
; THROW AWAY OLD KAMIKAZE FLAG

END ;OF IF SKIPKAMI

002152

002544

,MSG103

ADD
ELSE

#2,SP

TST
BEQ

CACHKN
RESO

POP

;IF CACHE IS OFF

; THROW AWAY CACHE STATUS

BR L412
L411:;;:::::

CONTRL

;RESTORE CACHE STATUS

END ;OF IF CACHKN

RESO:

104416
000207

10506 041354

CMP CACHKN, CACHKF
BNE L4131

MOV (SP)+,CONTRL

L412:;;:::::

RESREG
RETURN

FSCMD1: SUBTST

<«<FS

COMMAND 1

READ CSR>>

: *SUBTEST

COMMAND 1

READ CSR

I
T

e
L
T T T
T

10507 041354
10508 041360
10509 041364

004737
010637

044670
002306

041364

012737

041430

10510 041372
10511 041374
041374
10512 041402
10513 041404
041404

104426

041412

041420

000004

012737
104026

177777

002430

012737
022737
001002

034114
000005

000004
004010

CALL
MOV
SET4

WHICHCSR
SP,FSSTACK
#RES1

.DSABL

CRF

ERROR
RES4
MOV
CMP
BNE

+26

MOV

#RES1.4

;TRAPS TO 4 GOTO RES1

READCSR
SET
NOERROR

#TIMEOUT,4
#5,PROTYP
101¢

;USE ERROR ROUTINE FOR PRINTOUT
;RESET TRAPS TO 4 TO DEFAULT

;IS THIS AN 11/83/84 ?

;BRANCH IF NOT

MOV

#-1,NOERROR

i
|

! CVMJAAQ MSV11-J MEMORY DIAG.
FS

COMMAND 1

READ CSR

gi:gfi

177766

005037

10514 041426

000207

041430

104401

066763

10516 041434
10517 041440
041440

013706

002306

012737

034114

041454
aizzg

001002
005037

10515 041430

MACRO V05.01b Fridey 15-Feb-85 16:10

saas

RES1:

000004

041446 022737 000005 004010

10518 041462

000207

177766

CLR

CPUERR

.DSABL

CRF

TYPE

MSG025

MOV
RES4
MOV

FSSTACK,SP

RETURN
T;PEIT

ésFSGOZS

#TIMEOUT,4

CMP

#5,PROTYP

.DSABL

CRF

BNE
CLR

RETURN

1014
CPUERR

Pege 339-1

;CLEAR OUT THE CPU ERROR REGISTER BITS
;THAT A EXPECTED TRAP COULD HAVE SET

;THIS CSR DOES NOT EXIST

;RESET TRAPS TO 4 TO DEFAULT

;IS THIS AN 11/83/84 ?

;:BRANCH IF NOT
;CLEAR OUT THE CPU ERROR REGISTER BITS
; THAT A EXPECTED TRAP COULD HAVE SET

SEQ 0311

—

——

B9
e VMJAAQ MSV11-J MEMORY DIAG. CSRHGCRO V05.01b Friday 15-Feb-85 16:10 Page 341
F

COMMAND 1

READ

FSCMD2: SUBTST

10521 041464

; *SUBTEST
10522 041464
10523 041470
10524 041474
041474

10525 041502
10526 041504
041504
10527 041510
041510
10528 041516
10529 041520
041520
041526
041534
041536
041542
10530 041542
041542

10531 041546
10532 041550
041550
10533 041554

004737
010637

044670
002306

012737

041576

177777

002430

012737

034114
000005

000004
004010

104401

h
.

067036

10536 041564
041564
10537 041572
10538 041574
10539 041576

012737
104026
000207

177777

041576

104401

066763

10540 041602
10541 041606
041606
041614
041622
041624
041630

013706

002306

012737
022737

034114
000005

001002
005037

000207

177766

WHICHCSR
SP,FSSTACK
ORES2

O#RES2,4

LOAD CSR>>

COMMAND 2

TYPE
TYPEIT

MSG027
,MSGO27
CRF
NOERROR

ERROR
RES4
MOV
cMP
BNE

+26

.DSABL
37

CLR

.DSABL
TYPE
TYPEIT
.DSABL
RDOCT
POP

104413

104401

COMMAND 2
2t L L

LOAD CSR

LOADCSR
READCSR

RES2:

T T T

T T

I 1
LI

;USE_ERROR ROUTINE FOR PRINTOUT
;RESET TRAPS TO 4 TO DEFAULT

MOV

#-1,NOERROR

;IS THIS AN 11/83/84 ?
:BRANCH IF NOT
;CLEAR OUT THE CPU ERROR REGISTER BITS
: THAT A EXPECTED TRAP COULD HAVE SET
;FIRST CSR WORD
;READ AN OCTAL NUMBER
;PUT IN IN LOC "CSR"

CRF
NOERROR

§2$32N

+26

;USE FOR PRINTOUT - NOT AN ERROR

TYPE
TYPEIT

MSG025
,MSGO25

; THIS CSR DOES NOT EXIST

MOV (SP)+,CSR

,MSGO28

CRF
FSSTACK,SP

BNE
CLR

#TIMEOUT,4
#5,PROTYP
101¢
CPUERR

.DSABL

CRF

RETURN

;TRAPS TO 4 GOTO RES2

.DSABL
SET

cMP

sons

CSR

MSG028

.DSABL
MOV
RES4
MOV

000004
004010

CRF
MSGO23
,MSGO23
CRF

TYPE

TYPEIT

002430

#TIMEOUT,
4
#5,PROTYP
1014
CPUERR

.DSABL
CRF
READCSR

066747

041560

MOV

—

177766

002150

10542 041630

000004

012737
104026

CALL
MOV
SET4

067021

012637
104425
104426

10534 041556
10535 041560

104426
104401

<<FS

b datd

SEQ 0312

MOV

#-1,NOERROR

;RESET TRAPS TO 4 TO DEFAULT

;IS THIS AN 11/83/84 ?

;:BRANCH IF NOT
;CLEAR OUT THE CPU ERROR REGISTER BITS
; THAT A EXPECTED TRAP COULD HAVE SET

CVMJAAQ MSV11-J MEMORY DIAG.

'FS

COMMAND 2

LOAD CSR

MACRO V05.01b Friday 15-Feb-85 16:10

10545 041632

FSCMD3: SUBTST
SERERRRRRERRRE

<<FS

COMMAND 3

; #SUBTEST

COMMAND 3

R R R R R EER LR RN R R

SERRRRRERERRRRRE R R

10546 041632
041632

041636
041642

041646
10547 041652

10548 041660
041660
10549 041664
041664

10550 041670
10551 041672
10552 041700
041700
10553 041702
10554 041704
10555 041706
10556 041712

10557 041714
10558 041716
10559 041724

10560 041726
10561 041732
10562 041736
10563 041740
10564 041744
10565 041746
10566 041754
041754

10567 041762

041762

041764
041770
041774

10568 041776
041776
10569 042004
10570 042006
10571 042010
042010
042012
042014
042015

013746

013746
013746
013746
012737

PUSH

002102

000004
000002
067052

104401

067111

104413
013737

056146

002076

MOV

14:

002102

012737

042026

000004

060000
000001
157776

iYPE
T;gggl

MSGO31
6325031

;PHYSICAL ADDRESS (0-17775776)2?

RDOCT
MOV
POP

$HIOCT, BANK
RO

RO
BANK,LASTBANK
14
#FIRST,RO
#BIT0,RO
14
RO, #LAST

BANK

002102
035716

MOV
CALL

BANK,R3
MAPPER

002552

TESTAREA
asgABL Esgrnoos.vsu

.DSABL

177776

MOV
KERNEL
TYPOCS
MOV

000

067151

kb R b

34:

MOV 4,-(SP)

;EXAMINE MEMORY

;READ OCTAL NUMBER ONTO STACK & $HIOCT
;PUT MSB'S IN BANK
;PUT LSB'S IN RO

MOV (SP)+,RO

RO
BANK

MAP

010146
104403
006

104401

MOV BANK, -(SP)

MSG029
éggcoa

14
#3$ PARTHERE
24
833"

011001
104417

10574 042020
042020

Rk kR bk k kbR bbbk bk

BANK,NOPAR,PARTHERE
.4

BHI
MOV
SET4
nggABL

012603

000410

EXAMINE MEMORY

RERRRRER R R R R R R R R R RN R kR Rk

TYPE
T;IS’%I

ROR
CMP
BGT
ADD
BIT
BNE
CMP

002556

002304

igg;g 042016

R R R R Rk ke kb r kb kb kb ket kb

;INDICATE PARITY ACTION

ROL
ROL
cLC

002102

042020

053737

R R

#2,NOPAR

CcLC

062700
032700
001352
020027
101347
012737

013703
004737

R R R KRR R

;CHECK FOR BANK TOO HIGH
:BRANCH IF TRUE

;CHECK FOR ODD ADDRESS
;BRANCH IF ODD ADDRESS
;CHECK FOR ADDRESS OVER 16K

:BRANCH IF OVER 16K
;INCASE OF ABORTS
:TRAPS TO 4 GOTO 4%

;MAP SUPERVISOR SPACE (TEST AREA) TO BANK
MOV R3,-(SP)

CRF

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

TYPOS
.BYTE
BYTE
.DSABL
BR

6
0
CRF
EXCMD3

TYPE
TYPEIT

MSGO32
,MSGO32

;ENTER TEST MODE

MOV (SP)+,R3

;GO TO SYSTEM TEST MODE

;ENTER KERNEL MODE
;sSAVE R1 FOR TYPEQUT
::6G0 TYPE--OCTAL ASCII
::TYPE 6 DIGITS

: ;SUPPRESS LEADING ZEROS

;PARITY ABORT

!
|

EXAMINE MEMORY>>

MOV NOPAR, -(SP)
MOV PARTHERE,-(SP)

012600
000241

010346

SEQ 0313

002076
002304

104401

006100
006137
000241
006000
023737
003357

Page 343

MACRO V05.01b Friday 15-Feb-85 16:10
c VMJAAQ MSV11-J MEMORY DIAG.
FS
EXAMINE MEMORY
COMMAND 3
|

10575 042024
10576
10577 042026
10578 042032
042032
10579 042036
10580
10581 042040
10582

10583

10584

.DSABL

000405
062706

000004

104401

067170

4s:

104417

012637
012637
012637
012737
022737
001002
005037

000207

CRF

POP

002102
034114
000005

177766

000004
004010

1085

#4 ,SP

.DSABL

EXCMD3: KERNEL

000004
002304
002076

CRF

MSGO33

; TIMEOUT TRAP

EXCMD3
;ENTER KERNEL MODE

4 ,PARTHERE ,NOPAR , BANK

#TIMEOUT,
4
#5,PROTYP
101¢

.DSABL

CRF

RETURN

;FIX STACK

,MSGO33

RES4
MOV
CMP
BNE

CLR

SEQ 0314

EXCMD3

TYPE

TYPEIT

000400

012637

ADD

Page 343-1

CPUERR

;RESET TRAPS TO 4 TO DEFAULT

MOV (SP).,.4
MOV (SP)«,PARTHERE
MOV (SP)+,NOPAR

MOV (SP)«,BANK

;IS THIS AN 11/83/84 ?
;BRANCH IF NOT

;:CLEAR OUT THE CPU ERROR REGISTER BITS
: THAT A EXPECTED TRAP COULD HAVE SET

MACRO V05.01b Friday 15-Feb-85 16:10
- CVMJUAAO MSV11-J MEMORY DIAG.
EXAMINE MEMORY
COMMAND 3
FS

FSCMD4: SUBTST

10587 042106

«<<FS

AL 22 22 222 2222 22 22 2 2

10588 042106
042106
042112
042116
042122
10589 042126

013746
013746
013746
013746
012737

000003

042134

104401

067276

10590 042134
10591 042140
042140
10592 042144
10593 042146
10594 042154
042154
10595 042156
10596 042160
10597 042162
10598 042166
10599 042170
10600 042172
042172
042200
10601 042202
10602 042206
042206

042212
10603 042214

042214
042220
10604 042222

10605 042230
042230
10606 042236

104413
013737
012600
000241
006100
006137
000241
006000
023737
003357
062700

002102
002076
002304

002076

1%:

22t i

002102

TYPEIT

,MSGO31

.DSABL
TYPE

CRF
MSGO31

CRF

$HIOCT, BANK
RO

ROL
ROL

RO
BANK

ROR

CLC

002556

020027
101347
012737

157776
042270

002304

012737

042276

000004

MOV
SET4
MOV
.DSABL

002102
035716

012603
104511

#3$ ,PARTHERE
#4$
#44,4
CRF

MAP

BANK

MOV
CALL
.DSABL

BANK,R3
MAPPER
CRF

042264
042266

104417
000410

KERNEL
BR

5¢

TYPE
TYPEIT
.DSABL

MSGO32
,MSGO32
CRF

104401

MOV Blflzé-(SP)
MOV NOPAR,
- (SP)

MOV 4,-(SP)

;PHYSICAL ADDRESS (0-17775776)7?

;READ OCTAL NUMBER ONTO STACK & $HIOCT
:PUT MSB'S IN BANK
;PUT LSB’'S IN RO

MOV (SP)+,RO

;CHECK FOR BANK TOO HIGH
CMP BANK,LASTBANK
BGT 1$
;CHECK FOR ODD ADDRESS

gfig :gITO.RO

177776

;CHECK FOR ADDRESS OVER 16K
CMP RO, #LAST
BHI 1$
; INCASE OF ABORTS
;TRAPS TO 4 GOTO 4
;MAP SUPERVISOR SPACE (TEST AREA) TO BANK

MOV R3,-(SP)

MOV (SP)+,R3

;ENTER TEST MODE

;GO TO SYSTEM TEST MODE

;GETTING HERE MEANS WE GOT LUCKY - NO TRAPS

067151

IF RO HI #LAST THEN GOTO 1$

011001

042270

T T TR gt

:MODIFY MEMORY

ADD
#FIRST,RO
IF #BITO SET.IN RO THEN GOTO 1¢

042262

042270

MODIFY MEMORY

sINDICATE PARITY ACTION

IF BANK GT LASTBANK THEN GOTO 1§

060000

002552

#3 ,NOPAR

MSGO36
,MSGO36

RDOCT
MOV
POP

002102

000001

053737

BANK ,NOPAR ,PARTHERE , 4

TYPE
TYPEIT

.DSABL

032700
001352

010346
013703
004737

MOV

cLC

002102

MODIFY MEMORY>>
P

MOV PARTHERE,-(SP)

067111
056146

COMMAND 4

INVALIDATE
TESTAREA
BIS
TESTMODE ,PSW
.DSABL
CRF
MOV
(RO),R1

10607 042252
10608 042254
10609
10610
10611
10612
10613
10614

104401

PUSH

SEQ 0315

COMMAND 4

A2 i 2222222 222 22 2222 2 2222t

; *SUBTEST
|

Page 345

38:

;ENTER KERNEL MODE

;PARITY ABORT

MACRO V0S5.01b Fridey 15-Feb-85 16:10
I CVMJAAO MSV11-J MEMORY DIAG.
MODIFY MEMORY
COMMAND 4

'Fs

|
|

10615 042274
10616
10617 042276
10618 042302
042302
10619 C42306
10620
10621 042310
042310
10622 042314
042314

000431

062706

000004

104401

067170

000424

104401

042316
042320
042321

010146
104403
006
000

10623 042322
042322

104401

10624 042326
10625 042330
042330
10626 042332
042332
10627 042340
10628 042342
10629 042344
10630 042346
042346

10631 042352
042352
042354
042356
042357
10632
10633 042360
10634 042362
042362
042366
042372
042376
10635 042402
042402
042410
042416
042420
042424

10636 042424

4%:

S$:

067315

TYPE
TYPEIT

MSGO37
,MSGO37

TYPOCS

CRF

.BYTE
.BYTE
.DSABL

067352

002552

177776

067334

010146
006
000

104417
012637

000004
002304
002076
002102

012737
022737
001002
005037

034114
000005

177766

CRF

TESTMODE ,PSW
CRF
R1,(RO)
(RO).R1

::60_TYPE--OCTAL ASCII

; INPUT NEW DATA
:READ ON OCTAL NUMBER ONTO THE STACK
;GET NEW NUMBER
;ENTER TEST MODE

MOV (SP)+,R1

;GO TO SYSTEM TEST MODE

;PUT IT IN MEMORY
;READ IT AGAIN

.DSABL
TYPOCS
MOV

CRF
R1
R1,-(SP)

: sSAVE R1 FOR _TYPEOUT

.BYTE
.BYTE
.DSABL

6
O
CRF

RES4

101¢:

;PRINT IT

;ENTER KERNEL MODE
;:DATA IS NOW

EXCMD4: KERNEL
POP

000004
004010

;0LD DATA WAS

MSG038

TYPOS

104403

;EXIT

;s TYPE 6 DIGITS
; ;SUPPRESS LEADING ZEROS

KERNEL
TYPE
TYPEIT

;FIX STACK
;sTIMEOUT TRAP

6
0
CRF

RDOCT
POP

BIS
.DSABL
MOV
MOV

;EXIT

; sSAVE R1 FOR TYPEOUT

MSGO39
,MSGO39

TESTAREA

SEQ 0316

R1,-(SP)

TYPE
TYPEIT

.DSABL

104417

000207

#4,SP
MSGO33
,MSGO33
CRF
EXCMD4

TYPOS

010110
011001

012637
012637
012637

ADD
TYPE
TYPEIT
.DSABL
BR

MOV

012601

104401

EXCMD4

.DSABL

104413

053737

Page 345-1

,MSGO38

360 TYPE--OCTAL ASCII

;s TYPE 6 DIGITS
; :SUPPRESS LEADING ZEROS

;ENTER KERNEL MODE
4 ,PARTHERE ,NOPAR , BANK

MOV
CMP
BNE
CLR

#TIMEOUT,4
#5,PROTYP
101§
CPUERR

.DSABL

CRF

RETURN

;PRINT IT

;RESET TRAPS TO 4 TO DEFAULT

MOV
MOV
MOV
MOV

(SP)..4
(SP)+,PARTHERE
(SP)+,NOPAR
(SP)+,BANK

;IS THIS AN 11/83/84 ?
;BRANCH IF NOT
;:CLEAR OUT THE CPU ERROR REGISTER BITS

; THAT A EXPECTED TRAP COULD HAVE SET

—
——

CVMJAAO MSV11-J HEHORY DIAG.

'FS

COMMAND 4

MACRO V05.01b Fridey 15-Feb-85 16:10

MODIFY MEMORY

10639 042426

FSCMDS: SUBTST
GEERRERR

; SUBTEST

R R

SRR R AR R R

10640 042426
042426

042432

042436
042442
042446
042452
10641 042456
10642 042462
042462
10643 042466
042466

10644 042472
10645 042474
042474
10646 042500
042500
s 042506

10648 042510
10649 042514
10650 042516
10651 042520
042520
042526
10652 042530
042530

10653 042534

042534

10654 042536
10655

013746

002102

013746
013746
013746
013746
010637

002412
002326
000060
000062
002306

104401

067374

013746

104401

PUSH

10657 042542
10658 042544

042544
10659 042550
042550
042556
10660 042560
042560
042564
10661 042566
042566

10662 042572
10663 042574
042574

1%:

067072

012637

002102

023737
003367

002102

013701
006301
006301

002102

033761
001003

002106

104401

067420

002556

COMMAND S

SELECT BANK & PATTERN

Rk Rk kR

kR kR kR

kR kbR

BANK,PATTERN, TESTADD,PCBUMP, TKVEC, TKVEC+2

MOV
TYPE
TYPEIT

SP,FSSTACK
MSGO40
,MSGO40

TYPE
ngsgl

MSGO30
éggsoso

RDOCT
POP

BANK

.DSABL

CRF

TYPE
TYPEIT
.DSABL

MSGO41
,MSGO41

;BANK NOT ACCESSABLE

24:

067445

023727
003367

002112

005737
001004

002112

104401

067463

kR kRS

MOV BANK, - sp)

000047

TYPE
ngfigl

MSGO42
eR§°°‘2

RDOCT
POP

PATTERN

IF PATTERN GT #47 THEN GOTO 2%
IF PATTERN EQ #0
TYPE
ngfigl

BIT CPUBIT,CONFIG(R1)
BNE L413

CRF

BR 14

END ;OF IF

002112

;BANK(0-177)7?

GOTO 1$

012637

kR bk

MOV TESTADD.-(SP)
MOV PCBUMP, -(SP)
MOV TKVEC,-(SP)
MOV TKVEC+2, -(SP)
;SAVE LAST GOOD STACK POINTER
:SELECT BANK & PATTERN TEST

MOV
BANK,R1
ASL
R1
ASL
R1
IF CPUBIT OFF.IN CONFIG(R1)

002664

104413

012602

SELECT BANK & PATTERN>>

R RNk
kbbbt kb kbt kb &

;READ AN OCTAL NUMBER ONTO THE STACK
:PUT IT IN BANK
MOV (SP)+,BANK
IF BANK GT LASTBANK THEN GOTO 1$
;CHECK FOR BANK TOO HIGH
CMP BANK,LASTBANK
BGT 1%

000754

104413

COMMAND S

ARk kR

SEQ 0317

MOV PATTERN, -(SP)

104413

104401

R R R

002112

042536

10656 042536
042536

<<FS

Page 347

MSGO43
62§G°43

RDOCT
POP
R2

L413:;;:::::

;PATTERN(0-45)?
;READ AN OCTAL NUMBER ONTO THE STACK
:PUT IT IN PATTERN

MOV (SP)+,PATTERN
;CHECK FOR PATTERN TO HIGH
CMP PATTERN, #47
BGT 2%

;PATTERN O DATA IS?

TST PATTERN
BNE L414

;READ AN OCTAL NUMBER CNTO THE STACK
:PUT IT IN R2

MOV (SP).,R2

10664 042576
042576
10665

END ;OF IF

10667 042576
042576
042600
042604

MAP

10666

042610
10668 042612
10669 042614
10670 042620
042620
042624
10671 042626
042626

010346
013703
004737

012603
104511
004737

002102
035716

002124

104401

067617

10672 042632
10673 042636
042636
10674 042636
042636

000137

043246

104401

067505

10675 042642
10676 042650
10677 042654
10678 042660
10679 042664
10680 042670
10681 042674
10682 042676
10683 042702
10684 042710
10685 042716
10686 042722
10687 042730
10688
10689
10690 042736
042736
042744
10691 042752
042756
042760
042762
042766
042772
10697 043000
10698 043006
043006
043014
10699 043016
10700 043022
043022
043024
043030

013737
013702
072227
016203
072327

002152
002102
000002
002664
177770
177760

012737
012737
013701
006301
006301
005037
005037
012737
012737

002152
043246
000340
137722
000200
000100

177777
177777
002102

TYPE
TYPEIT

000060
000062

;MAP SUPERVISOR SPACE

002612
002110

CMDSB:

MSG046
,MSGO46

CRF
CSRNO, SAVCSR

ASH

#-10,R3

CONFIG(R2),R3

BIC
ASL
MOV
MOV
MOV
MOV

#tC17,R3
R3
R3,CSRNO
#CMDSC, TKVEC
#340,TKVEC+2
3$TKB,RO

BIS

#B176,3$TKS

SET
MOV
ASL
ASL

INC

MOV
CALL

AREA)

TO BANK

MOV R3,-(SP)

MOV (SP)+,R3
;SET NEW MARGINS
TST RRFLAG

BEQ L415

;BANK REQUIRES RELOCATION

Lals
;:TO ESCAPE TYPE ANY KEY!

;SAVE OLD CSR NUMBER
H

;GENERATE INDEX INTO CONFIGURATION TABLE

;R3 = LOW WORD OF CONFIGURATION TABLE FOR THIS BANK
;POSITION CSR CODE IN BITS 0-3

;CLEAR ALL BUT THE CSR CODE
;ADJUST CSR NUMBER
:

#BIT7,.PSW

HEADER,MUT
BANK,R1

;KILL ANY OLD INTERRUPT

;LOWER CPU PRIORITY TO 140

;ENABLE KEYBOARD INTERRUPTS

MOV
MOV

#-1,HEADER
#-1,MUT

R1
R1

SPLTCSR
CLR
CLR
PASFLG
MOV
#FIRST,TESTADD
MOV
#FIRST+2,TESTADD+2
IF #BIT12 SET.IN CONFIG+2(R1)

MAP

(TEST

BANK,R3
MAPPER
CRF

ASH

BIC

177776
137704

002666

002102
035716

BANK

BANK ,R2
#2,R2

MOV

010000

010346
013703
004737

.DSABL
MOV
MOV

002154

002412
002414

002240

L414:;;;::;;

TYPE
MSGO49
TYPEIT
,MSGO49
.DSABL
CRF
JMP CMDSC
END ;OF IF RRFLAG

002240
002264
060000
060002

032761
001413
005237

SEQ 0318

INVALIDATE
CALL
EXBANK
IF RRFLAG IS TRUE

040052

005737
001404

052777

MOV
CALL
.DSABL

Page 347-1

SPLTCSR

BANK

BANK ,R3
MAPPER

c—————

MACRO V0S5.01b Friday 15-Feb-85 16:10
CVMJAAQ MSV11-J MEMORY DIAG.
SELECT BANK & PATTERN
COMMAND 5

——

BIT #BIT12,CONFIG+2(R1)

BEQ L416

MOV R3,-(SP)

CVMJUAAQ MSV11-J MEMORY DIAG.
SELECT BANK & PATTERN
C OMMAND S

'FS
!

043034
10701 043036
10702 043044
043044

012603
012737

10703 043044
043044 032777
043052 001402
10704 043054 104470
10705 043056
043056 000405
043060
10706 043060
043060 013746
10707 043064 104502
10708 043066
043066 012637
10709 043072
043072
10710 043072 012737
10711 043100 012737
10712 043106 013700
10713 043112 006300
10714 043114 004770
10715 043120 005037
10716 043124 000712
10717
10718 043126 017510
10719 043130 017544
10720 043132 017640
10721 043134 017754
10722 043136 020070
10723 043140 020140
10724 043142 020222
10725 043144 020256
10726 043146 020320
10727 043150 024220
10728 043152 024220
10729 043154 024220
10730 043156 020354
10731 043160 024220
10732 043162 024220
10733 043164 020434
10734 043166 020456
10735 043170 020536
10736 043172 021026
10737 043174 021060
10738 043176 021124
10739 043200 024220
10740 043202 021332
10741 043204 021610
10742 043206 022200
10743 043210 022454
10744 043212 022644
10745 043214 023160
10746 043216 023346
10747 043220

023446

SEQ 0319
CRF

.DSABL

120000

000001

002414

MOV

END; OF IF #BIT12

L416:;:;:::::

IF #SW0 SET.IN aSWR

137564

PUSH

002152

POP

BIT #SWO,3SWR
BEQ L417

;DISABLE ERROR CORRECTION

BR L420
L817:;:::::3

CSRNO

CLRCSR

002152

002112

MOV (SP)«,.R3

#120000,TESTADD+2

ECCDIS
ELSE

000002

Page 347-2

CSRNO

;CLEAR CSRS

MOV (SP)+,CSRNO

END ;OF IF

MOV
MOV
MOV

002076
002326

ASL

043126
002076

CALL
CLR
BR
FSPAT:

MT0000
MT0001
MT0002
MT0003
MT0004
MTO000S
MT0006
MT0007
MT0010
MT0999
MT0999
MT0999
MT0014
MT0999
MT0999
MT0017
MT0020
MT0021
MT0022
MT0023
MT0024
MT0999
MT0026
MT0027
MT0030
MT0031
MT0032
MT0033
MT0034
MT0035

#2 ,NOPAR
#2,PCBUMP
PATTERN,RO

MOV CSRNO, -(SP)

;PARITY ACTION

; TRAPS ADD 2 TO PC

aF SPAT(RO)
NOPAR
CMDSB

;<1 SEC
;<1 SEC
;<1 SEC
; 1 SEC
; 1 SEC
; 1 SEC
;<1 SEC
;<1 SEC
;<1 SEC
;<1 SEC
;<1 SEC
;<1 SEC
; 1 SEC
;<1 SEC
;<1 SEC
;<1 SEC
; 1 SEC
; 1 SEC
;10 SEC
;10 SEC
;20 SEC
;<1 SEC
;<1 SEC
; 1 SEC
; 1 SEC
; 3 SEC
;<1 SEC
;35 SEC
; 1 SEC
;<1 SEC

;LOOP TILL KEYBOARD INTERRUPT
DATA PATTERN TEST
ADDRESS TEST
COMPLEMENT ADDRESS TEST
3 XOR 9 WORST CASE NOISE TEST
ROTATING ZEROS TEST
ROTATING ONES TEST
INITIAL DATA TEST
ADDRESS BIT TEST

BYTE ADDRESSING TEST
NULL TEST TO KEEP TABLE ORDER
NULL TEST TO KEEP TABLE ORDER

NULL TEST TO KEEP TABLE ORDER
BASIC DOUBLE BIT ERROR TEST
NULL TEST TO KEEP TABLE ORDER
NULL TEST TO KEEP TABLE ORDER
HOLDING 1'S & 0'S TEST
SYNDROMES TO CSR ON SBE TEST

MARCHING 0'S &€ 1'S TEST
REFRESH & SHIFTING DIAGONAL TEST

SHIFTING DIAGONAL TEST

FAST GALLOPING PATTERN TEST

NULL TEST TO KEEP TABLE ORDER
RANDOM DATA TEST
UNIQUE BANK TEST
FLUSH OUT DBE'S TEST
SOB-A-LONG TEST
WRITE RECOVERY TEST
BRANCH GOBBLE TEST
SOFT ERROR TEST
WORST CASE NOISE PARITY TEST

e ———

MACRO V0S5.01b Friday 15-Feb-85 16:10

043326
10766 043330

10767 043334
10768 043342

002306
000100

012637
012637

000062
000060

012637

137362

137350

002326

CMDSC:

et U] et e ot ot ot ot

[y P

A
A

MT0036
MT0037
MT0999
MT0041
MT0042
MT0043
MT0044
MT0045
MT0046
MT0047

013706
042777

117700

15-Feb-85 16:10

LI TN T

023560
023622
024220
023660
023740
023774
024024
024104
024134
024164

ANK € PATICRN

TR TR T

10751 043230
10752 043232
10753 043234
10754 043236
10755 043240
10756 043242
10757 043244
10758
10759 043246
10760 043252
10761 043260
043260
043264
10762 043270
10763 043274
043274
043300
10764 043304
043304
043310
10765 043314
043314
043316
043322

MACRO V0S5.01b Fridey

10748 043222
10749 043224
10750 043226

SELECT B

COMMAND 5

' CVMUAAO MSV11-J MEMORY D IAG.

'FS

347-3

SEQ 0320

CORRECTION CODE TEST
ECC DISABLE TEST
NULL TEST TO KEEP TABLE ORDER

ADDRESS TO CSR ON DOUBLE BIT ERROR TEST

EXTENDED Q-BUS ADDRESS TEST
WRITE BYTE CLEARS SBE TEST
SHIFTING 1/0'S THROUGH THE CHECK BITS
SYNDROMES TO CSR ON DBE TEST
CHECK SINGLE BIT ERROR WITH ECC DISABLED TEST
NO CSR UPDATE WITH SBE ON DBE TEST

FSSTACK,
SP
#BIT6,3$TKS
TKVEC+2, TKVEC

;RECOVER OLD STACK POINTER

MOvB
POP

a$TKB,RO
PCBUMP, TESTADD

;GET CHARACTER TO GET RID OF FLAG

POP

PATTERN, BANK

MAP

BANK

002412

012637
012637

002112
002102

010346
013703
004737

002102
035716

MOV
CALL
.DSABL

BANK ,R3

040052
002154

CALL

EXBANK
SAVCSR, CSRNO

002152

MOV
BIC
POP

012637

012603
004737
013737
000207

Page

RETURN

MOV (SP)+,TKVEC+2
MOV _(SP)«,TKVEC
MOV (SP)+,PCBUMP
MOV (SP)+,TESTADD

;REMAP OLD BANK

MOV (SP)+,PATTERN
MOV (SP)+,BANK
MOV R3,-(SP)

MAPPER

CRF

MOV (SP)+,R3

;RESTORE CSRNO.

MACRO V05.01b Friday 15-Feb-85 16:10
| CVMJAAQ MSV11-J MEMORY DIAG.
FS
COMMAND 5
SELECT BANK & PATTERN

10770 043344

FSCMD6:
D

SUBTST

bttt

; *SUBTEST
10771 043344
ig;;g 043350

004737
900207

032722

<<FS

ittt

CALL

RETURN

SEQ 0321

ettt

COMMAND 6

nbannaaat

PCONFIG

Page 348

COMMAND 6

TYPE CONFIGURATION MAP>>
bttt

TYPE CONFIGURATION MAP

N Y

T I I

i
|

T T

L L T

CYMJARO MSVLL.J MEMORY DIAG.

'FS

COMMAND 6

MACRO VOS.Olb Fridey 15-Feb-85 16:10

TYPE CONFIGURATION
MAP

10776 043352

;

FSCMD7: SUBTST
JERRRRRRRERER R

: #SUBTEST

10777 043352
043352
043356

013746
013746

002102
002112

043362

013746

000060

043372

013746

002076

043366

10778 043376
10779 043402
043402

10780
10781 043406
043406
043414
10782 043416
10783 043420
043420

043422
10784 043422
10785 043424
043424
10786 043424

013746

RR R

<<FS

R R R RN

AR R R

R AR

PUSH

COMMAND 7

RREE R R R R AR R R

COMMAND 7

R R

010637

002306

104401

067671

032777
001402
104470

000001

MOV
TYPE
TYPEIT

SP,FSSTACK
MSGOS5
,MSGO5S

IF #SWO SET.IN @SWR

137222

ECCDIS
ELSE

104502

CLRCSR
END ;OF IF

CRF

10788 043430
043430

104401

067505

TYPE
152551

MSGO46
cnscoae

10789 043434
10790 043442

012737
012737

043560
000340

000060
000062

MOV
MOV

#CMD7C, TKVEC
#3840, TKVEC+2

10792 043454

042737

000200
000100

177776

137152

012737
012737

177777
177777

002612
002110

043504

005037

002102

10799 043510
10800 043514
043514
043520
043522
043526
10801 043530
10802 043532
10803 043536

004737

040052

005737
001406
005737
001003
104511
004737

002116

10791 043450 017700 137170

043536

10804 043536

bRk

bkt

kR b

R R

bR
e

R b

d by
bbb ®

MOV BANK, -(SP)
MOV PATTERN (sp)

MOV NOPAR, - ( SP

;SAVE LAST GOOD STACK POINTER
:S0B-A-LONG TEST

BIT #SWO,@SWR
BEQ L421
;DISABLE ERROR CORRECTION

;CLEAR CSRS

L421:;::::;

422--:--:.
;BELL = EACH PASS COMPLETE

;KILL ANY OLD INTERRUPT

BIS

#BIT6,8$TKS

:ENABLE KEYBOARD INTERRUPTS

#BIT7.PSW

;LOWER CPU PRIORITY TO 140

HEADER, MUT

FOR BANK := #0 TO LASTBANK
CALL EXBANK
IF ACFLAG IS TRUE AND RRFLAG IS FALSE

INVALIDATE
CALL MT0031
END ;OF IF ACFLAG
END ;OF FOR BANK

;TO ESCAPE TYPE ANY KEY!

3$TKB,RO

SET

CMD7B:

MSGOS6
,MSGOS6

002124
022454

MOV

BIC

10795

043510

R R kR A kAR

BR L4822

.DSABL

10798 043504

R R R

CRF

.DSABL

067712

043470
. 043476

MOV TKVEC+2 (59)

104401

10796 043470

R R R R R R R R AR

R R R

SOB-A-LONG TEST

MOV TKVEC, -(SP

000401

052777

SOB-A-LONG TEST>>

R R R R R

000062

043424

ig;g} 043462

SEQ 0322

BANK,PATTERN,
TKVEC, TKVEC+2,NOPAR

TYPE
TYPEIT

Page 350

MOV
MOV

@-1,HEADER
@-1.MUT

CLR BANK

B71:;5:::::

ST ACFLAG
BEQ L423
1ST RRFLAG
BNE L423

L823::::3::

CVMJAAQ MSV11-J MEMORY DIAG.
MACRO V05.01b Friday 15-Feb-85 16:10
1 FS
COMMAND 7
SOB-A-LONG TEST

10806 043556
. 043556
10807
10808 043560
10809 043564
10810 043572
10811 043576
043576
043602
043606
043612
043616
10812 043622
043622

005237
023737
003757

002102
002102

104401

002653

002306
000100
137046

012637
012637
012637
012637
012637

002076
000062
000060
002112
002102

010346
013703
004737

012603
004737
000207

SEQ 0323

002556
TYPE

$BELL

.DSABL
GOTO

CRF
CMD7B

MOV
BIC
MOVB

FSSTACK, SP
#BIT6,3$TKS
a$TKB,RO

TYPEIT

000752
013706
042777
117700

Page 350-1

137050

MD7C:

POP

,$BELL

BR CMD78B
;RECOVER OLD STACK POINTER

NOPAR, TKVEC+2, TKVEC,PATTERN,
BANK

MAP

BANK

002102
035716

MOV
CALL
.DSABL

BANK,R3
MAPPER
CRF

040052

CALL

EXBANK

RETURN

;RING BELL

INC BANK
CMP BANK,LASTBANK
BLE B71
EN:sssssas

;READ CHAR TO KILL FLAG
MOV
MOV
MOV
MOV
MOV

(SP)«,NOPAR
(SP)+,TKVEC+2
(SP)+,TKVEC
(SP)+,PATTERN
(SP)+,B

;MAP SUPERVISOR SPACE (TEST AREA) TO BANK

MOV R3,-(SP)

MOV (SP)«,R3

CVMJUAAQ MSV11-J MEMORY DIAG.

'FS

;
!

COMMAND 7

MACRO V0S5.01b Friday 15-Feb-85 16:10

S0B-A-LONG TEST

10817 043644
10818 043644

10819 043656

013737

056654

10820 043664

005337

002434

043670

013746

002434

10822 043676
10823 043704

013737
012737

172350
001000

043712

104401

071242

043674

10824 043712
10825 043716

043716
043722

10826 043724
043724

10827 043730
043730

043734

10828 043736
10829 043742
043742

043746
10830 043746
10831 043752
10832 043756
043756
043762

10833 043764
043764
043770
10834 043772
043772
10835 043776

043776
10836 044004

COMMAND 8

ERROR SUMMARY>>

;sSUBTEST

COMMAND 8

ERROR SUMMARY

PUSH

043632 o13766 002102

10821 043670

««<FS

A2 2 I 2222221 2232 22222 2222 2222222 232 2

50 RRERR R

010046
010246

104405

002434

R R

DEC

MOV

KIPAR4,SAV4
#1000,KIPARS

TYPE

MSG12S

.DSABL

CRF

$ERTTL,-(SP)

TYPEIT
TYPDEC

TYPEIT

002334

005037

002102

013703
070327

002102
000004

105763
001424

002666

005737
001005

002334

104401

070230

012737

177777

044004

013746

044010

104403

10838 044014

116300

044012
044013

002102

TYPE

MSGO79

N RN RN

.DSABL

CRF

SRR RN RN RN

e bR

L)
R OO0

;PASSES COMPLETED

: sSAVE $ERTTL FOR TYPEOUT

::6G0 TYPE--DECIMAL ASCII WITH SIGN

;ERROR(S) DETECTED

,MSGO79

TST $ERTTL

BEQ L424
CLR BANK

B72:::::3

TSTB CONFIG+2(R3)
BEQ L425

TYPE
MSGO76
,MSGO76

;BANK

ERRORS

TST SUCCESS
BNE L426

CRF

SET SUCCESS

MOV

END ;OF IF SUCCESS

MOV

T T I

:3:1.L.C.;REV B
:3:1.L.C.;REV B

IF SUCCESS IS FALSE

002334

::SAVE TEMP FOR TYPEOUT

MOV BANK,R3
MUL #4,R3
IFB CONFIG+2(R3) NE #0

.DSABL

;:G0 TYPE--DECIMAL ASCII WITH SIGN

CLR
SUCCESS
FOR BANK := #0 TO LASTBANK

TYPEIT

HOV BANK. (2P)

IF SERTTL NE #0

BYIE
g;x&

002666

$ERTTL

TYPOS

006
000

XL RN RN

MOV RO,-(SP)
MOV R2,-(SP)

,MSG125

TIY)'S’DAEL

044004

10837 044004

TEMP, -(SP)

MOV
MOV

070265

005037

TEMP

104401

002630

R LR RR LR R

TEMP

T;gggL

MOV

001445

3t i

$PASS, TEMP

002630

005737

ERERERR

RO,R2,R3,BANK

MOV

013746
104405

SRR

TYPDEC

002270
172350

SEQ 0324

FSCMD8: SUBTST
R

043644
043646

Page 352

TYPOCS

BANK,3

BANK, -(SP)

L426::3::353
Hgl\IE BANK FOR TYPEOUT
i

6
8"
MOVB

;360 TYPE--OCTAL ASCII

::TYPE 6 DIGITS
; sSUPPRESS LEADING ZEROS

CONFIG+2(R3),RO

#-1,SUCCESS

| CVMJAAO MSV11-J MEMORY DIAG.
ERROR
' FS
c OMMAND 8

10839 044020
10840 044024

042700

SUMMARY

MOV
TYPDS
.DSABL

104405

TYPEIT
.DSABL

104401

#1C377.R0
TYPDEC
RO
RO, -(SP)
::SAVE RO FOR TYPEOUT

CRF

TYPE

, $CRLF

::G0 TYPE--DECIMAL ASCII WITH SIGN

$CRLF

CRF
END ;OF IFB CONFIG(R3)

002102
002102

SEQ 0325

BIC

177400

010046

005237
023737
003737

B10
P
352-1
-

MACRO V05.01b Fridey 15-Feb-85 16:10

END ;OF FOR BANK

L42S:;:::::
INC BANK
CMP BANK,LASTBANK
BLE B72
EM2:3353333

002556
END ;OF IF $ERTTL

013737

002270
002102

172350

MOV
POP

RETURN

SAV4 ,KIPAR4
BANK ,R3,R2,R0

s:I1.L.C.;::REV B

L424:;;:;:::;

MOV
MOV
MOV
MOV

(SP)+.BANK
(SP)+,R3
(SP)+,R2
(SP)+,RO

—

]

———
—

CVMJAAQ MSV11-J MEMORY DIAG.

'FS
.

COMMAND 8

€10

MACRO V05.01b Friday 15-Feb-85 16:10

ERROR SUMMARY

10850 044072

FSCMD9: SUBTST

««<FS

;*SUBTEST

P RERER R

R AR R

10851 044072
044072
044076

044102

044106
044112
10852 044116
10853 044122
044122
10854
10855 044126
044126
044134
10856 044136
10857 044140
044140
044142

10858 044142
10859 044144

013746
013746

002102
002112

013746
013746
010637

000062
002076
002306

104401

070160

032777
001402
104470

000001

013746

000401

104502

067505

10863 044154
10864 044162
10865 044170
10866 044174
iggg; 044202

012737
012737
017700
042737
052777

044300
000340
136450
000200
000100

000060
000062

012737

177777

002612

012737

177777

005037

002102

10873 044234
044234

004737

040052

005737

002116

044242
044246

005737
001003

002124

10874 044250
10875 044252
10876 044256
044256
10877 044256

044256

001406
104511
004737

005237

021026

002102

AR R

REFRESH TEST»>»>
AR AR

AR AR AR

REFRESH TEST
T

SRS

R b 08

T TmMmMmTTTmTTTTTTTM

MOV BANK, -(SP)
MOV PATTERN, -(SP)

MOV TKVEC.2,-(SP)
MOV NOPAR,-(SP)
;SAVE LAST GOOD STACK POINTER
;REFRESH TEST

,MSGO73
CRF

BIT #SW0,aSWR
BEQ L427
;DISABLE ERROR CORRECTION

ECCDIS
ELSE

104401

044240

IF #SWO SET.IN aSWR

136502

177776
136432

BR L430
La27:::::::

CLRCSR
END ;OF IF

;CLEAR CSRS

TYPE

MSGO0S6

:BELL = EACH PASS COMPLETE

.DSABL

CRF

TYPE
T;gggl

MSG046
és§6046

MOV
MOV
MOV
BIC
BIS

#CMDIC, TKVEC
340, TKVEC+2
« $TKB,RO
% 3IT7,PSU
#6176,3$TKS

SET

HEADER ,MUT

TYPEIT

10861

044224
044230
10872 044230

COMMAND 9

SP,FSSTACK
MSGO73

TYPEIT
.DSABL

10862 044150
044150

10871 044224

BANK ,PATTERN,
TKVEC, TKVEC+2,NOPAR

MOV
TYPE

067712

10870 044216

R RN

SEQ 0326

MOV TKVEC, -(SP)

104401

044210

COMMAND 9

R AR

000060

044144

10869 044210

PUSH

044144

10860 044144

AR AR R

Page 354

L430:;;:::3:;

,MSGOS6

:TO ESCAPE TYPE ANY KEY!

;KILL ANY OLD INTERRUPT
;LOWER CPU PRIORITY TO 140
;ENABLE KEYBOARD INTERRUPTS
MOV

002110

MOV

CMD9B:

FOR BANK := #0 TO LASTBANK
y

CALL EXBANK
IF ACFLAG IS TRUE AND RRFLAG IS FALSE

#-1,HEADER

#-1,MUT

CLR BANK
B73:::35533

TST ACFLAG

BEQ L431

INVALIDATE
CALL MT0022
END ;OF IF ACFLAG
END ;0F FOR BANK

TST RRFLAG
BNE L431

Le31:::35:33

INC BANK

CVMJAAQ MSV11-J MEMORY DIAG.

'FS

!
|

D10

MACRO V05.01b Friday 15-Feb-85 16:10

COMMAND 9

REFRESH TEST

044262

023737

002102

104401

002653

044270
044272
10878 044272
044272
10879 044276
10080 044276

003757

044354

012603

10886 044356
10887 044362
10888

CMP BANK,LASTBANK

TYPE
TYPEIT

.DSABL

CMDOC:

;RING BELL

CRF

CMD9B

MOV
BIC
MOVB
POP

FSSTACK,SP
;RECOVER OLD STACK POINTER
#B176,3$TKS
3$TKB,RO
;READ CHAR TO KILL FLAG
NOPAR, TKVEC+2, TKVEC,PATTERN,
BANK
MOV (SP)+,NOPAR
MOV (SP)e«,TKVEC+2
MOV (SP)+,TKVEC
MOV (SP)+,PATTERN
MOV (SP)+,BANK
BANK
;MAP SUPERVISOR SPACE (TEST AREA) TO BANK
MOV R3,-(SP)
BANK,R3
MAPPER

002306
000100
136326

012637
012637
012637
012637
012637

002076
000062
000060
002112
002102

010346
013703
004737

002102
035716

MOV
CALL

040052

CALL
RETURN

136330

$BELL
,$BELL

BLE B73
E73::::335333

GOTO

013706
042777
117700

004737
000207

SEQ 0327

002556

000752

10881 044300
10882 044304
10883 044312
10884 044316
044316
044322
044326
044332
044336
10885 044342
044342
044344
044350

Page 354-1

MAP

.DSABL

CRF

EXBANK

BR CMD9B

MOV (SP).,R3

E10

MACRO V05.01b Friday 15-Feb-85 16:10

CVMJAAO MSV11-J MEMORY DIAG
REFRESH TEST
c OMMAND 9

SEQ 0328

FCMD10: SUBTST

10891 044364

; *SUBTEST
R

10892 044364
044364
10893 044366
044366

10894 044372
10895 044374

10896 044376
10897 044402

10898 044406

10899 044410
10900
10901 044412

070311

104413
012600
042700
110037

044416
044424

10904 044432
10905

177760

002357

012600
000207

BIC
MOvB
POP

#1C17,R0
SO.SFILLS
0

FCMD11:

SUBTST

SET FILL COUNT

104401

070456

012737
012737
000207

177777
177777

TYPE
TYPEIT

.DSABL
SET

002006
002010

MOV RO, -(SP)

COMMAND 11

104401
005037

002006

012737
000207

177777

SUBTST

TYPE
TYPEIT

002010

ENTER KAMIKAZE MODE

MSG101
,MSG101

.DSABL
CLR
SET

T T

CRF
KAMIKAZE
, SKIPKAMI

MOV

<<FS

COMMAND 12

EXIT KAMIKAZE MODE>>

COMMAND 12

EXIT KAMIKAZE MODE

#-1,SKIPKAMI

T T T

T T

MSG102
,MSG102

;LEAVING KAMIKAZE MODE

CRF
KAMIKAZE
SKIPKAMI

<<FS

#-1,KAMIKAZE

MOV

RETURN

FCMD13: SUBTST

;ENTERING KAMIKAZE MODE

070506

ENTER KAMIKAZE MODE>>
L

RETURN
FCMD12:

MOV (SP)+,RO

COMMAND 11

MOV (SP)+.RO

ettt

;FILL COUNT(OCTAL)?

<<FS

COMMAND 13

#-1,SKIPKAMI

TURN CACHE OFF>>

e ettt
T T e T T T

; *SUBTEST

044454

104401

070634

044460
044462
044470
044474

104424
013737
005037
000207

002544
002544

044476

SET FILL COUNT>>

RETURN

10912 044454

10914
10915
10916
10917
10918
10919

POP

10913 044454

COMMAND 10

MSGO8S
,MSGO85S
CRF

; *SUBTEST

10908 044440
10909 044444
044444
10910 044452
10911

TYPE
TYPEIT
.DSABL

RDOCT

10906 044434

10907 044434
044434

10903 044416

COMMAND 10

PUSH

; *SUBTEST
10902 044412
044412

«<<FS

010046

104401

Page 356

002546

COMMAND 13

et L

TYPE
TYPEIT

MSG106
,MSG106

MOV

CACHKN, CACHKN-+2

TURN CACHE OFF
L

CRF
.DSABL
CACHOFF

; TURN CACHE OFF

CLR

;KEEP CACHE OFF

RETURN

CACHKN

;SAVE OLD CACHE ON STATE

FCMD14: SUBTST

<«<FS

COMMAND 14

TURN CACHE ON>>

; *SUBTEST

CuMMAND 14

TURN CACHE ON

;CACHE IS OFF

T e

-l

——————

10920 044476
044476

104401

070652

10921 044502
10922 044510
10923 044512

013737
104423
000207

002546

10924

002544

bttt

TYPE
TYPEIT
.DSABL
MOV

CACHON
RETURN

Page 356-1

SEQ 0329
TT

MSG107

,MSG107
CRF

CACHKN+2, CACHKN

;CACHE IS ON (EXCEPT DURING ACTUAL PATTERNS)

;RESTORE OLD CACHE ON STATE
;TURN CACHE ON

—————
—
—

F10

HAC&(: V05.01b Friday 15-Feb-35 16:10
' CVMJAAO MSV11-J MEMORY DIAG.
'FS
TURN CACHE
o OMMAND 14

G10

MACRO V05.01b Fridey 15-Feb-85 16:10
' CVMUAAQ MSV11-J MEMORY DIAG.
FS
COMMAND 14
TURN CACHE ON

10937

10938 044514

FCMD1S: SUBTST
SERRRERRER R ER

10939 044514
044514
10940 044520
10941 044524
044524
10942 044524
044524
10943 044524
044524

10944 044530
10945 044532
044532
10946 044534
044534
044540
044542
044544
044546
10947 044546
044546
10948 044550
044550

10949 044550
10950 044552
10951 044554
10952 044562
044562
044564

<<FS

COMMAND 15

; #SUBTEST

R R R R

070561

004737

044610

TYPE
TYPEIT

MSG105
,MSG105

.DSABL

TEST ONLY SELECTED BANKS>>
RR R

Rk kR

104401

.DSABL

104413

020127
003002
005701
002001

kR kR Rk kR

000177

CRF

TYPE
TYPEIT

MSG110
,MSG110

SET

SELONLY

044564

012737

000207

070727
177777

10958 044600

002002

.DSABL

CMP
BGT
TST
BGE

<<FS

: *SUBTEST

044600

104401

070773

igggg 044604

005037

002002

10962
10963 044610
10964 044614

013702
006302

002556

BR E74

;R1

<- Rl * 4

LR BN

;ONLY SELECTED BANKS WiLL
BE TESTED
MOV

COMMAND 16

RESUME TESTING ALL BANKS>>

COMMAND 16

RESUME TESTING ALL BANKS

#-1,SELONLY

ke o o ool o ook s o ook ok ko dokok ok dokokokokokok ok okokokolok ok ok kb kokok ok ok ok kb ko kok ok k ok k ok

e ook ok oo ek ok ok ok e kool

TYPE

TYPEIT
.DSABL
CLR

MSG111

ko ok ok

,MSG111
CRF
SELONLY

kb k kk k k¥

dkokokokokokok kol ok koo kokok ok ok kool okokok kb ok ko kok ok k bk kk kb kk kb bk k¥

;ENTRY POINT FROM CMD15
CMD16A: MOV
LASTBANK,R2
ASL
R2
ASL

R1,#177
L432
R1
L433

CRF

FCMD16: SUBTST
3

006302

MOV (SP)+,R1

RETURN
3 ek ool e e o o s

kR k

;READ AN OCTAL NUMBER ONTO THE STACK
;PUT IT IN R1

ASL R1
ASL Rl
BIS #BIT14,CONFIG+2(R1)
END ;OF REPEAT

002666

:BANK(0-177)?

END ;OF IF Rl

040000

B74:;:;:::::

LEAVE CMD16LOOP

000760

104401

Rk kb

IF R1 GT #177 OR R1 LT #0

000406

006301
006301
052761

r kb kb bk kb kR

;ERASE OLD SELECTIONS

RDOCT
POP R1

012601

;ENTER BANKS IN OCTAL - USE NUMBER OUTSIDE RANGE TO TERHINAT;

TYPE
MSG030
TYPEIT
,MSGO30

067072

TEST ONLY SELECTED BANKS

REPEAT

10954 044564
044564

10965 044616

SEQ 0330

kb kR kR

CRF

END CMD16L0OOP

10959 044600

CALL
CMD16A
BEGIN CMD16L0OP

10953 044564

10955 044570
044570
igggg 044576

ER R R R R R R RN R

skkkkkkkkkkkkk kb kkk ko k

104401

Page 357

;ALL BANKS WILL BE TESTED

10966 044620
044620

MACRO V0S5.01b Fridey 15-Feb-85 16:10

RESUME TESTING ALL BANKS

Page 357-1

FOR R1 := #0 TO R2 BY #4

005001

10967 044622
10968 044630
044630
044634
044636

042761

040000

062701
020102
003771

000004

10969 044640

000207

002666

BIC
#BIT14,CONFIG+2(R1)
END ;OF FOR R1

RETURN

SEQ 0331

CLR Rl
B76::::::3

ADD #4,R1
CMP R1,R2
BLE B76
E76::::5::33

e ——

COMMAND 16

T
—————————

CVMJAAQ MSV11-J MEMORY DIAG.

H10

' CVMJUAAQ MSV11-J MEMORY DIAG.

'FS

110

MACRO V05.01b Friday 15-Feb-85 16:10

RESUME TESTING ALL BANKS

10972 044642

FCMD17: SUBTST

<<FS

; #SUBTEST

JERRRERRE R

GEERRR R

10973 044642
044642

104401

071331

10974 044646 012737 177777 006216
10975 044654 000207

R R R

R R R R

R R

TYPE
TYPEIT
.DSABL

R R RR

R R

Page 359

COMMAND 17

SEQ 0332

ENABLE TRACE>>

R R R R R RNk
k ke
ke

COMMAND 17

RR R R R

MSG127
,MSG127
CRF

MOV
#-1, TRACE
RETURN

R R

KRR

ENABLE TRACE

R ARk

kR bk

I
3

—r

- ——

| CVMUAAO MSV11-J MEMORY DIAG.

| FS
,

COMMAND 17

ENABLE TRACE

10978 044656

10979 044656

J10

MACRO V05.01b Friday 15-Feb-85 16:10

Page 361

FCMD18: SUBTST

<«<FS

COMMAND 18

; *SUBTEST

COMMAND 18

JEREERRRRERRRERRRE AR RRER AR R R R R R R
I

044656

104401

071350

10980 044662
10981 044666

005037
000207

006216

TYPE

MSG128

.DSABL

CRF

TYPEIT
CLR
RETURN

,MSG128

TRACE

SEQ 0333
R

T I

DISABLE TRACE>>
R

R R Rk

DISABLE TRACE
TT

T T

I T T

I TTTTTTMMmTTTM

. CVMUAAQ MSV11-J MEMORY DIAG.

'FS

COMMAND 18

K10

MACRO V05.01b Friday 15-Feb-85 16:10

DISABLE TRACE

10984 044670

10985 044670

10986 044674

013700

001003
005037

002152

10991 044710
044710

104401

066725

10992 044714
10993 044716
044716
10994 044720
10995 044722
10996 044726
10997 044730
10998 044734
10999 044736
11000 044742
11001 044746
11002 044750

11003 044754

; #SUBTEST

DETERMINE CORRECT CSR

100000

10987 044700
10988 044702

igggg 044706

DETERMINE CORRECT CSR>>

000207

104412

020027
101370

022700
103002
162700
162700
006300
010037
000207

000007
000060

002152

MSG022
,MSGO22

ROLIN
POP

;GET CHARACTER
;PUT IN RO

(RO),RO

;PUT CHAR IN RO

CMP
BHIS
suB
SuB
ASL
MoV
RETURN

#BIT15,R0

CRF

RO, #106
13

#'A,RO
2%
#7,R0
#60,RO
RO
RO, CSRNO

TYPE
TYPEIT

CMP
BHI

2%:

14
CSRNO

MOV

000101

BNE
CLR

.DSABL

000106

TOTCSRS,RO

RETURN

1%:

SUBR

MOV

CHMP

012600

011000

002224

SEQ 0334

WHICHCSR:SUBTST <<SUBR
B

022700

Page 363

PP
T

;GET CSR'S FLAG

T T I T T

;CSR 0?

:NO - SKIP
;YES - SET IT uP
;WHICH CSR(0-F)

MOV (SP)+,RO

;CHECK LIMIT
;IF BAD LOOP TILL HE TYPES IT RIGHT

L10

MACRO V05.01b Friday 15-Feb-85 16:10

- CVMJAAQ MSV11-J MEMORY DIAG.
| ERROR DATA (SUPERVISOR) SETUP STUFF

11469
11470 044756
A
044756
044762
11471 044770
044770
044774
11472 044776
044776

11473 045004
045004
11474 045012
11475 045014
045014
11476 045014
045014

11477 045022
045022
11478 045026
045026
045030

11479 045030
045030
11480 045034
045034
11481 045034
11482
11483 045040

SEQ 0335

.SBTTL ERROR DATA (SUPERVISOR) SETUP STUFF
$PER25: LET ADDRESS := R1 - #2

010137
162737

002034
000002

005737
001007

002144

053737

002552

177776

016137
104417

177776

002052

002034

177654

010237

002044

;ENTER TEST MODE

KERNEL

;ENTER KERNEL MODE

002044

000137

050212

LET GOOD

PERRA3:

045046
045052
11485 045052
045052
11486 045054
11487 045060
11488 045062
045062
11489 045070
11490 045072
11491 045074
11492 045076
11493 045102
11494 045104
11495 045110
11496 045114
045114
11497 045120
11498 045124
045124

:= R2

002022

BR L436
L43S:;:::::
MOV R3,GO0D
L436:;:::::

JMP

PERRAW

SUBTST

<<DATA WAS 3 WORDS>>
s

bbbttt triditt sttt

IF BADPC EQ #0 THEN $CALL BADSTACK

PUSH

002150

053737

002552

005711
104417
104426
013700
104503
072027
042700

002150

010137
005037

002034
002044

053737

002552

177776

CSR
CLR
CHK1DIS
TESTAREA
, PSW
TESTMODE
BIS
.DSABL CRF
TST
(R1)

KERNEL
READCSR

177776

LTI

T I

TST BADPC
BNE L437
JSR PC,BADSTACK
L437:;::::3

MOV RO, -(SP)

;MAKE SURE CSR BIT HOLDER IS CLEAR
;:DISABLE ECC & WRITE CHECKBITS FROM 1 SELECTED CSR
;GO TO SYSTEM TEST MODE

;READ LOCATION TO READ CHECKBITS INTO CSR

BIC
#1C177,R0
LET ADDRESS := R1

ASH

#-35,R0

;GET _CSR CONTENTS
;SAVE CSR CONTENTS IN RO
;RETURN CSR TO NORMAL MODE
;MOVE CHECK BITS TO BOTTOM OF WORD
;CLEAR OFF EXTRANEOUS GARBAGE
;SAVE VIRTUAL ADDRESS FOR PRINTOUT

CLR

GOOD

;FIRST TEST WORD WRITTEN SHOULC ALWAYS BE ZERO

BIS

, PSUW
TESTMODE

MOV
CSR,RO
CLR1CSR

177773
177600

DATA WAS 3 WORDS

034152

010046
005037

104505

MOV R2,GO0D

;OF IF

it L

005737
001002
004737

TST 177654
BNE L435

LET GOOD := R3
END

MOV -2(R1),BAD

La34:;;:;::::

ELSE

045040
045044

;GO TO SYSTEM TEST MODE

IF 177654 EQ #0

000402
010337

TST ABORTFLAG
BNE L434

TESTAREA

BIS
TESTMODE ,PSW
.DSABL
_CRF
LET BAD := -2(R1)
END ;OF IF ABORTFLAG

005737
001003

MOV R1,ADDRESS
SUB #2,ADDRESS

IF ABORTFLAG IS FALSE

; *SUBTEST

11484 045040

Page 377

TESTAREA

MOV R1,ADDRESS

;ENTER TEST MODE

;GO TO SYSTEM TEST MODE

002052
002054

011137
011437

M10

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0336
.DSABL
MOV
MOV
KERNEL
MOVB
CLRB
CALL
ERROR

002056

002057
050446

POP

012600

032777
001402
104506
000401

11510 045200
11511 045202
045202
11512 045202

Page 377-1

000001

135444

CRF
(R1),BAD
(R4),BAD2
RO,BAD3
BAD3-1
PERBNK
+33
RO

;GET BAD DATA FROM MUT - FIRST WORD
;AND SECOND WORD
;ENTER KERNEL MODE
;MOVE BAD CHECKBITS FOR PRINTOUT
;CLEAR OFF THE OTHER UNUSED BITS
;MARK BANK AS BAD IN CONFIG TABLE
;RESTORE RO

MOV (SP)+,RO

IF #SWO0 SET.IN aSWR
ENASBE
ELSE

104472

ECCINIT
END; OF IF #SWO

000002

RTI

;TRAP ON SINGLE BIT ERRORS

BIT @SWO,aSWR
BEQ L440
BR L441

L440:;;:::;:;

; TRAP ON UNCORRECTABLE ERRORS

La41:;;::::;

CVMJAAQ MSV11-J MEMORY DIAG.
DATA WAS 3 WORDS

N10

MACRO V05.01b Fridey 15-Feb-85 16:10

005737
001007

002144

045230

053737

002552

177776

017737
104417

134572

002052

000137

050212

11518 0452

11519 045236
045236
11520 045244
11521 045246
045246
1152; 045246
1152
11524 045252

002044

011637

002034
000016

163737

002034

SUB 16,ADDRESS

TST ABORTFLAG

;ENTER TEST MODE

TESTAREA
TESTMODE ,PSUW

11525 045252

002552

011037
104417
005037
013706

002052
002144
045350

012637
012637

000114
000004

;GO TO SYSTEM TEST MODE

R R R

<<GET DATA FROM ABORTED AREA IF POSSIBLE>>
ittt

1%:

R AR

PUSH

RO.4,114

MOV
MOV

SP,GETDA1
#14.4
#1$,114
ADDRESS,RO

BIS
.DSABL
MOV

TESTMODE
, PSW
CRF
(RO),BAD

CLR
MOV

ABORTFLAG
GETDA1,SP

KERNEL

POP

RETURN
GETDAL1: 0

ittt

GET DATA FROM ABORTED AREA IF POSSIBLE

R AR R

TESTAREA

177776

MOV SADDRESS,BAD

L442:;;:::::

JMP PERRAW

; *SUBTEST

053737

BNE L442

;ENTER KERNEL MODE

KERNEL

JER ERER

012600
000207
000000

MOV (SP),ADDRESS

IF ABORTFLAG IS FALSE

012737
013700

SEQ 0337
MOV R1,G00D

END ;OF IF ABORTFLAG

000004
000114
045350
045330
045330
002034

LET ADDRESS := (SP) - 16

GETDATA:SUBTST

Page 379

$PER30: LET GOOD := R1

11515 045204
045204
11516 045210
045210
045214
11517 045222
045222
0452;8

010137

114,4,R0

R R R KRR R

AR AR

R R

R R AR

R
R

E R

RSk R bR bR bbb b

MOV RO, -(SP)
MOV 4,-(SP)
MOV 114, -(SP)

;GO TO SYSTEM TEST MODE

;RESTORE KNOWN GOOD STACK POINTER
MOV (SP).,114

MOV (SP).,4
MOV (SP)+,RO

VMJAAQ MSV11-J MEMORY DIAG.

OMER FAIL AUTO RESTART

MACRO V05.01b Fri

11540
11541

11542

11543
11544 045352

11552

005737
001403

11556 045364
11557 045366
11558 045374

104423
012737
012737

046300
000340

11559 045402
045402
045404
045406
045410
045412
045414
045416
11560
11561 045422

010046
010146
010246
010346
010446
010546
013746

002152

012700

177700

1156

8:;:;%

014046

11564 045434
11565
11566 045436
11567 045442

077102

11571 045456
11572 045460

012701

005737
001013
012700
012701

014046

000021

172300
000020

5S$:

004737

046306

11 573
11574 045472
11575 045476
11576 045502
11577 045506
11578 045512

012700
012701
012702
012703
011021

172300
177600
172200
000040

012022
077303

381

POMER FAIL AUTO RESTART
ROUTINE POMWER DOWN AND UP
T T

187
BEQ

CACHKN
S$

CACHON
MOV
MOV

;TURN CACHE ON
#$ILLUP,PURVEC ;;SET FOR FAST UP
#340,PURVEC.2
;:PRIO:7

PUSH

—

RO,R1,R2,R3,R4,RS,CSRNO

;SAVE USER PAR'S & PDR7
MOV
#177700,R0

1$:

MOV

PUSH

#17..,R1
-(RO)

S0B
R1,1$
; SAVE SUPERVISOR PAR’'S
18T
NOSUPER
BNE
PD1

2%:

MOV
MOV
PUSH

#172300,R0
#16.,R1
-(RO)

R1,24
S0B
IF RLFLAG IS TRUE THEN $CALL WOOPS

077102
005737
001402

11579 045514
11580 045516

000024
000026

002456

045460
045464

045466
045472

.SBTTL
.SBTTL

;SAVE CACHE STATUS

002544

— gzggzg 013746 177746

11568 045444
11569 045450
11570 g:g:g:

15-Feb-85 16:10

;POMER DOWN ROUTINE
$PWRDN:

11553 045352
11554 045356

1156§ 045426

Bll

002126

PD1:

34:

égePY KERNEL MAP TO USER & SUPERVISOR
#KIPDRO,RO
MOV
#UIPDRO,R1
MOV
#SIPDRO,R2
MOV
#32.,R3
MOV
(RO),(R1)MOV
soB

(RO)+,(R2)+
R3,3$

MOV CONTRL,-(SP)
MOV RO, -(SP)
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV R4,-(SP)
MOV RS, -(SP)
MOV CSRNO,-(SP)

R
T
TM S
v -

MOV -(RO),-(SP)

TST RLFLAG
BEQ L443

JSR PC,WO00PS
L4483:;;;:;:;;

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE POWER DOWN AND uP

11582
11583 045520
045520
1 1584 045526
11
11

11587 045534

SEQ 0339

052737

140000

177776

BIS

.DSABL
MOV
KERNEL

010600

104417

010046
005737
001006

PUSH

002456

BIS
.DSABL
MOV

010600
104417
010046

005037

002152

74:

;SAVE ECC REGISTERS
LCSRSAVE

FOR CSRNO

ON.ERROR

READCSR
PUSH

002150

11614 045662

;:GET CSR'S

CSR

IF R1 EQ #0 THEN LEAVE LCSRSAVE

000002

002152

END ;OF FOR CSRNO

002152

013746
013746
013746
005737
001002

177572
177574
177576
002456

000036

013746

172516

012700
012701

172400
000020

PUSH

MMRO,MMR1 ,MMR2

TST

NOSUPER

BNE
PUSH
8¢:
43:

CLR CSRNO
B100:;;:::::
BCC L444

END ;OF ON.ERROR

005701
001407

014046
077102

;ENTER KERNEL MODE

;:SAVE MMRO,1,2.3

11611 045650
11612 045654
11613 045660
045660

;:ENTER SUPERVISOR MODE
;GO TO SUPERVISOR MODE

:= #0 TO #36 BY #2

ASL

103003
104426

062737
023727
003762

TOTCSRS,R1

BEGIN

006301

013746

MOV RO, -(SP)

MOV

;G0 TO USER MODE

MOV CSR,-(SP)

L444:;;;;;;
TST R1

BEQ E77

ADD #2,CSRNO

CMP CSRNO,#36
BLE B100
E100:;;::::::

E77:5:33:3
MOV MMRO, -(SP)
MOV MMR1,-(SP)
MOV MMRZ2,-(SP)

8$
MMR3

;:SAVE KERNEL PAR'S

MOV
MOV

#172400,R0
#16.,R1

SoB

R1,4$

PUSH

-(RO)

;ENTER KERNEL MODE

#BIT14,PSW
CRF
SSP,RO

KERNEL
PUSH

002224

CRF
USP,RO

TST
NOSUPER
BNE
7%
SUPERVISOR

177776

013701

#BIT15!'BIT14,PSU

END LCSRSAVE

11610

Page 382

;SAVE USER & SUPERVISOR STACK POINTERS

052737

11590 045550
11591 045552
11592 045554
045554
11593
11594 045556
11595 045562
045562
11596 045562
045562
045566
11597 045566
11598 045570
045570
11599 045572
11600 045574
045574
045600
11601
045600
11602 045600
045600
045602
11603 045604
045604

Cil

MACRO V05.01b Fridey 15-Feb-85 16:10

MOV -(RO),-(SP)

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE POWER DOWN AND UP

D11

MACRO V05.01b Friday 15-Feb-85 16:10

11615

;SAVE Q-BUS MAP REGISTERS

11616 045664 022737 000005 004010
11617 045672 001004

11618 045674
045674
045700
11619
11620 045704
045704
11621

013746
013746
017746

CHP
BNE

PUSH

170202
170200
134726

11622 045710 010637 046304
11624 045714 012737 045726 000024

11625 045722

000000

000776

#5,PROTYP
93

MAPHO,MAPLO

SEQ 0340

;IS THIS AN 11/83 ?
:BRANCH IF NOT

;SAVE POSSIBLE SOFTWARE SWITCH REGISTER
PUSH
aSWR
;SAVE STACK POINTER

11623

11626 045724

Page 382-1

$DOWN:

MOV
SP, $SAVRG
; ;SAVE SP
:NOW SET UP REAL VECTOR
MOV
#$PURUP,PWRVEC ;;SET UP VECTOR
HALT

$DOWN

; ;HANG UP

MOV MAPHO, -(SP)
MOV MAPLO, -(SP)
MOV @SWR,-(SP)

CVMJAAQ MSV11- J MEMORY DIAG.
ROUTINE POWER DOWN AND ULP

11629
11630
11631 045726
11635 045726
11636
11637 045734

11655 046030
11656 046034
11657 046040

046040
11658 046040
046040
046046
11659 046046
11660 046050
046050
11661 046052
046052
11662 046056
11663 046068
04606
11664 046060
046060
046062

11665 046064

046064
046072
046100
046102
11666 046102
046102
11667
11668 046102
11669 046106

22222 22222

;POMER UP ROUTINE

000024

046304
046304
046304

012620
012722
077104

012637

172516

012637
012637
012637

177576
177574
177572

013701
042701

002224
177400

000036

" MoV

10§:
6%:

222 2

#172340,R0
#KIPDRO,R2
#16.,R1
(RO)+

MOV

#77406,(R2)+

S0B

R1,6%

TST
BNE
POP

NOSUPER
114
MMR3

11%:

POP

MMR2,MMR1,MMRO

;RESTORE_ECC REGISTERS

MOV
TOTCSRS,R1
BIC
#177400,R1
BEGIN LCSRRESTORE

002152

ON.ERROR
POP

002150

T T

MOV (SP)+,MMR2
MOV (SP)+,MMR1
MOV (SP)+,MMRO

:GET CSR'S

R1
CSR

LOADCSR
END ;OF ON.ERROR

002152

MOV (SP)«,3SWR

MOV (SP)+,MMR3

IF R1 EQ #0 THEN LEAVE LCSRRESTORE

172300
177600

MOV (SP)+,(RO)-

END

;OF FOR CSRNO

END LCSRRESTORE
012700
012701

FOR CSRNO:= #36 DOWNTO #0 BY #2
ASR

000002
002152

;RESTORE MMR3,2,1,0

005701
001407

002362

#$ILLUP,PURVEC ;;SET FOR FAST DOWN

MOV
MOV
MOV
POP

103003

162737
023727

222

MOV
$SAVR6,
SP
;;GET SP
CLR
$SAVR6
; sWAIT LOOP FOR THE TTY
..HAIT FOR THE INC
INC
$SAVR6
;OFA WORD
BNE
13
RESTOREagagslflLE SOFTUARE SWITCH REGISTER
POP

006201

012637
104425

Rg 22 22 222 222

;RESTORE STACK POINTER

077406
002456

012737

$PURUP

1%:

134660
172340
172300
000020

005737
001002

Page 384

SEQ 0341
Hidid

012701

0
11653 046014
046014
046020
046024
11654

Ell

MACRO V05.01b Fridey 15-Feb-85 16:10-

;COPY KERNEL MAP TO USER & SUPERVISOR

MOV
MOV

#KIPDRO,RO
#UIPDRO,R1

BCC L445
MOV (SP).,CSR

L445:;;;::::
TST R1

BEQ E101

SuB #2,CSRNO
CMP CSRNO,
#0
BGE B102

E102:::335333

E101:535:5333

]

11670 046112
11671 046116
11672 046122
11673 046124
11674 046126

012702
012703
011021
012022
077303

172200
000040

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 384-1

SEQ 0342

83333

CVMJAAQ MSV11-J MEMORY DIAG.
' ROUTINE POWER DOWN AND UP

F11

#SIPDRO,R2

#32..R3

(RO),(R1).
(RO)+,(R2)+

R3,3$

CVMJAAQ MSV11-J MEMORY DIAG.

' ROUTINE POWER DOWN AND LP

11676
11677 046130
11678 046134
11679 046136
046136
11680 046140
046140

052737

11681 046146
11682 046150

010006
104417

046152
11684 046154
046154

012600

11683 046152

11685 046162
11686 046164
11687
11688 046166
11689 046172
11690 046176
046176
11691 046200
11692
11693 046202

005737
001006

052737

040000

012700
012701

172240
000020

012700

077102

177636

002012
002012

012637

002152

012605
012604
012603
012602
012601
012600

012737

045352

046260

104401

067652

005737
001402

002544

012637

177746

11708 046300
11709 046302

ii;ig 046304

8%:

012620

013777
013737

000002

000000
000776

000000

SEQ 0343

SUPERVISOR
ngABL gggT14.PSU

MOV (SP).,RO
;ENTER SUPERVISOR MODE
;G0 TO SUPERVISOR MODE

MOV
KERNEL

;ENTER KERNEL MODE

RO, SSP

POP

USER
ngABL

ggngSEBIT14.PSH

;GO TO USER MODE

MOV
RO, USP
KERNEL
;ENTER KERNEL MODE
;RESTORE SUPERVISOR PAR'S
MOV
#172240,R0
MOV
#16.,R1
POP
(RO)+

MOV
POP

#17.,R1
(RO)+

S08
R1,8%
;RESTORE POSSIBLE SOFTWARE DISPLAY REGISTER
MOV
$PATMAR, 8DISPLAY
MOV
$PATMAR,DISPREG
POP
CSRNO,R5,R4,R3,R2,R1,R0

134414
000174

000024

MOV
TYPE

#$PWRDN,PWRVEC
MSGOS1

.DSABL

CRF

TYPEIT

,MSGOS1

;;SET UP_THE POWER DOWN VECTOR
;REPORT THE POWER FAILURE

;RESTORE CACHE STATUS
TST
CACHKN
BEQ
94
POP
CONTRL
9¢:

RTI

$ILLUP: HALT
BR

$SAVR6 : 0EVEN

$ILLUP

MOV (SP)+,(RO)-

MOV (SP)+,(RO)«

MOV (SP)+,CSRNO

MOV
MOV
MOV
MOV
MOV
MOV

(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

MOV (SP)+,CONTRL
; ; THE_ POWER UP SEQUENCE WAS STARTED
;; BEFORE THE POWER DOWN WAS COMPLETE

; ;PUT THE SP HERE

.
i

{
MOV (SP)+,RO

S08
R1,7%
;RESTORE USER PAR’'S & PDR7
MOV
#177636,RO

000021

046236
046240
046242
046244
046246
046250

11707 046276

74:

012620
077102

11696 046214
11697
11698 046216
11699 046224
11700 046232
046232

11703
11704 046264
11705 046270
11706 046272
046272

177776

010006
104417

012701

11701 046252
11702 046260

177776

13s:
140000

Page 385

;RESTORE SUPERVISOR & USER STACK POINTERS
TST
NOSUPER
BNE
13
POP
RO

002456

012600

11694 046206
11695 046212
046212

MACRO V05.01b Friday 15-Feb-85 16:10

' CVMJAAQ MSV11-J MEMORY DIAG.

' ROUTINE POWER DOWN AND UP

[
'

H11

MACRO V05.01b Fridey 15-Feb-85 16:10

11723 046306

WOOPS:

SUBTST

- 8:2382 013746 002102

0463

11727 046332
046332
11728 046340
11729 046346
11730 046354
046354
046360
046362
046364

005037

002102

010346
013703
004737

R ER R R RN R R R AR R RN R Rk

R R

R RR

R R

R RN R

Rk
R

kb kbt
R AR R

BANK
BANK

002102
035716

MOV
CALL

BANK,R3
MAPPER

052737

040000

177776

SUPERVISOR
ngABL Eggrxc.rsu

013737
013737

060024
060026

046704
046706

004537
000105
046710
126472

041024

MOV
MOV
BMOV

FIRST+PWRVEC, WOOPSAV
FIRST+PWRVEC+2,WOOPSAV+2
FIRST+WOOPUP,WOOPSAV+4,WOOPEND-WOOPUP/2+12.
JSR R5,BLOCK3
WOOPEND
- WOOPUP/2+12.
WOOPSAV
+4
Fgg%cuoopupw

060024
060026

MOV
MOV
BMOV

#WOOPUP
, FIRST +PWRVEC
#340,FIRST+PWRVEC+2
WOOPUP,FIRST+WOOPUP
, WOOPEND-WOOPUP/2
JSR RS,BLOCK3
WOOPEND
- WOOPUP /2
FIRST +WOOPUP
WOOPUP

.DSABL

012603

012737
012737

046472
000340

004537
000071
126472
046472

041024

11734 046414
11735 046420
11736 046424

012700
012701
012702

172340
126654
000010

11738 046432
11739 046434
11740 046440
11741 046442
11742 046446
11743 046452
11744 046456

077202
005737
001002
013721
013721
013721
013721

11737 046430 012021

104417

012637
000207

18:

002456
172516
177576
177574
177572
002102

24:

MOV
MOV
MOV

MOV

SOB
TST
BNE
MOV
MOV
MOV
MOV

KERNEL
POP
RETURN

kR e

;MAP SUPERVISOR SPACE (TEST AREA) TO BANK
MOV R3,-(SP)

CRF

.DSABL

R R

MOV BANK

CLR
MAP

11731 046366
11732 046374
11733 046402
046402
046406
046410
046412

11745 046462
11746 046464
046464
11747 046470

R R R R R

POMER FAIL WHILE RELOCATED

SRR RRERREERREERERE R R

11725 046312
11726 046316
046316
046320
046324

SEQ 0344 |

<<POMER FAIL WHILE RELOCATED>>

SEERRRRRERRRERREREREEERR R R

: $SUBTEST

Page 386

MOV (SP)+,R3

;ENTER SUPERVISOR MODE
;GO TO SUPERVISOR MODE

CRF

#KIPARO,PO
#FIRST +4OO0PEND , R1
#8. ,R2

(ROJ+,(R1)+

R2,1$
NOSUPER
2$
MMR3,(R1)+
MMR2,(R1)+
MMR1,(R1)+
MMRO, (R1)+
BANK

;ENTER KERNEL MODE
MOV (SP)+,BANK

CVMJAAQ MSV11-J MEMORY DIAG.

' POWER FAIL WHILE RELOCATED

111

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0345
WOOPUP:

11750 046472

SUBTST

sREER RS R R

; *SUBTEST
012700
012701
012703
012702
012021
012723
077204

005737
001002
012037
012037
012037
012037
013706
013746

046572
046576
11768 046600
046600
11769 046606
11770 046614
11771
11772
11773 046622
11774 046626

11775 046632
11776 046636

ii??? 046640

11779 046642
11780 046644
046644

11781 046650

1%:

002456

002102
035716

3%:

040000

177776

013737
013737

046704
046706

060024
060026

012700
012701
012702
012022
077102

046710
000105
126472

000014

1 785 046704 000107

002102
045726

#8.,R2

2%:

kR k&
T Tt s}

;

#KIPDRO,R3

‘

MOV
MOV
S0B

(RO)+,(R1)+
#77406,(R3)+
R2,1%

BNE

MOV

MOV
MOV
MOV
MOV

NOSUPER

(RO)+,MMR3

(RO)+,MMR2
(RO)+,MMR1
(RO)+,MMRO
$SAVR6
, SP

PUSH

BANK

CLR

BANK

MOV

BANK,R3

CALL
.DSABL

052737

012637
000137

R RNk kR

POWER UP FROM BANK O TO RELOCATION

MOV

MAP

012603

104417

#WOOPEND, RO
#KIPARO,R1

181

172516
177576
177574
177572
046304

010346
013703
004737

<<POWER UP FROM BANK O TO RELOCATION>>

R R R R R LR R

MOV
MOV

MOV

077406

005037

R R

22222 2222222222 222222222222ttt

046654
172340
172300
000010

002102
002102

Page 388

MOV BANK, -(SP)

BANK

;MAP SUPERVISOR SPACE (TEST AREA) TO BANK

MAPPER
CRF

SUPERVISOR

;ENTER SUPERVISOR MODE

KERNEL
POP

;ENTER KERNEL MODE

MOV (SP)+,R3

BIS
#BIT14,PSW
;GO TO SUPERVISOR MODE
.DSABL
CRF
MOV
WOOPSAV,FIRST+PWRVEC
MOV
WOOPSAV+2,FIRST+PWRVEC+2
;SIMULATE THE FOLLOWING BLOCK MOV BUT WITH NO STACK ACCESSES
;BMOV WOOPSAV+4,{"IRST+WOOPUP, WOOPEND-WOOPUP/2+12.
MOV
#WOOPSAV+4
RO
MOV
#WOOPEND-W0OOPUP/2+12.
,R1
MOV
#FIRST+WOOPUP
,R2
MOV
(RO)+,(R2)+
soB
R1,2%

JMP
WOOPEND: .REPT
WOOPSAV: .REPT

BANK

$PUWRUP
12

WOOPEND -WOOPUP/2+12. +2

MOV (SP)+,BANK

| CVMJAAQ MSV11-J MEMORY DIAG.

' I0 SUBROUTINES

J11

MACRO V05.01b Friday 15-Feb-85 16:10

Page 390

ii;g?

.SBTTL

I0 SUBROUTINES

ii;gg

.SBTTL

ROUTINE TYPE

11794

11795
11796
11797
11798

T T

SEQ 0346

T T T T

;#*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
; *NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

ii;gg

;#*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

i ¥

11801
11802
11803
11804

;#CALL:
;%1) USING A TRAP INSTRUCTION
i¥
TYPE
MESADR
;*0R

11806

MESADR

$TYPE:

TSTB
BMI
MOV
MOV
MOVB
BNE
TST

11805

;¥

11808
11809 047122 105737 002360

11810 047126
11811 047130
11812 047132
11813 047136
11814 047140
11815 047142

11816 047144
11817 047146

11818 047152
11819 047154
11820 047160
11821 047162
11822 047166
11823 047172

11824 047174
11825 047176
047176

11826 047200
11827 047202
11828 047206
11829 047210
11830 047214
11831 047220
11832 047222

100407
010046
017600
112046
001005
005726

012600
062716

000002
122716
001002
112716

45:

000002

S5$:
64:

000011

74:

000040
000200

114:

MOV
ADD

RTI
CMPB
BNE
MOVB

$TPFLG
6%
RO, -(SP)
@2(SP),RO
(RO)+,-(SP)
74
(SP)+

; ;RESTORE RO
; :ADJUST RETURN PC

#HT,(SP)
11§
¥ .(SP)
#CRLF,(SP)
8%

;REPLACE TAB WITH SPACE
; ;BRANCH IF NOT <CRLF>

002660
105037
000753
004737
123726
001346
013746

$CRLF
CLRB
BR
CALL
CMPB
BNE
MOV

$CHARCNT
44
$TYPEC
$FILLC,(SP)+
44
$NULL, -(SP)

DECB
BLT

1(SP)
94

MOVB
TST

4(SP),R1
CACHKN

047250

010146

11843 047262

001402

105366
002770

116601
005737

.DSABL

047434

047250

002652

8¢:
9¢:

002356

(SP)«

10¢:

047250
047434

CALL
$TYPEC
DECB
$CHARCNT
BR
10§
XOCHAR: .WORD 0O
$TYPEC: PUSH
R1

BEQ

; sRETURN
;BRANCH IF NOT <HT»

;:POP <CR><LF> EQUIV
;s TYPE A CR AND LF

CRF

000001

000004
002544

;:1S THERE A TERMINAL?
;BR IF NO
; :SAVE RO
:;GET ADDRESS OF ASCIZ STRING
; :PUSH CHARACTER TO BE TYPED ONTO STACK
;;BR IF IT ISN'T THE TERMINATOR
;;IJF TERMINATOR POP IT OFF THE STACK

(SP)+,R0
#2,(SP)

104401

004737
105337
000770
000000

11841 047252
11842 047256

14:

TYPE

CMPB
BNE
TST
TYPE
TYPEIT

122716
001006
005726

11833
11834 047226
11835 047232
11836 047234
11837 047240
11838 047244
11839 047246
11840 047250

000002

; sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

; ;CLEAR CHARACTER COUNT
; sGET NEXT CHARACTER
;;G0 TYPE THIS CHARACTER
;3IS IT TIME FOR FILLER CHARS.?
;:IF NO GO GET NEXT CHAR.
;;GET # OF FILLER CHARS. NEEDED

;;AND THE NULL CHAR.
;;DOES A NULL NEED TO BE TYPED?
;;BR IF NO--GO POP THE NULL OFF OF STACK
;:6G0 TYPE A NULL
; ;00 NOT COUNT AS A COUNT
; :LOOP
MOV R1,-(SP)

CVMJAAQ MSV11-J MEMORY DIAG.

' ROUTINE TYPE

K11

MACRO V05.01b Friday 15-Feb-85 16:10

' 11845
— 047270
8:3%2: 013746 177746

047270
11846 047272
11871 047274
11872 047300
11873 047302
11874 047306
11875 047312
11876 047314
11877 047322

010046
104424
105777
100375
005037
105777
100032
117737
042737

11879 047336
11880 047340
11881 047344
11882 047346
11883 047354
11884 047362
047362
047370
11885 047372
11886 047374
047374
047376
11887 047376
11888 047400

001020
105777
100375
117737
042737

11878 047330

047400

11889 047400
11893 047404
11894 047412
11895 047414

11896 047420
11897 047422
11898 047430
11899 047432
11900 047434
11901 047436

023727

023727
001002
000402

133346

133324
177600

047246

047246
047246

000023

133276
133272
177600

047246
047246

047246

000021

000002

047434

000012

005737
001402

002544

047446
11905 047452

012637

177746

11906 047454
11907 047456

000207

012601

——

MOV CONTR

a$TPS
3%
XOCHAR
d$TKS
NC
a$TKB, XOCHAR
#1C177,X0CHAR

XOCHAR, #023

; TURN CACHE OFF
; sWAIT UNTIL PRINTER IS READY

000002

MOVB
CMPB
BNE
CLRB

;;WAS IT A CONTROL S?
; :BRANCH IF NOT
; ;WAIT FOR CHARACTER

; ;GET CHARACTER
:;STRIP OFF ASCII
;s IF IT IS A tQ

BR
CMPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: POP

BR L447
L446:;;::;:::
L447:;:::::

;:;LOAD CHAR TO BE TYPED INTO DATA REG.
;:IS CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
; s YES--CLEAR CHARACTER COUNT

$TYPEX
#LF,2(SP)
$TYPEX
(PC)+
O
RO

s sEXIT
::1IS CHARACTER A LINE FEED?
; ;BRANCH IF YES
; ;COUNT THE CHARACTER
; ;CHARACTER COUNT STORAGE

TST
BEQ
POP

CACHKN
24
CONTRL

;IS THERE A CACHE?
;BRANCH IF NOT
;POP CACHE STATUS

POP

1¢:

24:

CMP XOCHAR, #21
BNE L446

R1,3$TPB
#CR,2(SP)
18
$CHARCNT

MOV RO,-(SP)

; sCHECK FOR XOFF
; ;SKIP IF NO CHARACTER
: sSAVE THE CHARACTER
;;STRIP OFF ASCII

BR
CONTS3
END ;OF IF XOCHAR

133244
000015

SEQ 0347

BNE
NC
CONTS3: TSTB
3$TKS
BPL
CONTS3
MOVB
a$TKB, XOCHAR
BIC
#1C177 ,X0CHAR
IF XOCHAR EQ #21

000760

000406
122766
001402
105227
000000

CACHOFF
TSTB
BPL
CLR
7578
BPL
MOVB
BIC

CMP

000401

110177
122766
001003
105037

PUSH

BR
ELSE

012600

047452

34:

047246
133330

047436

11902 047440
11903 047444
11904 047446

Page 390-1

MOV (SP)+,RO

MOV (SP)+,CONTRL
MOV (SP)+,R1

RETURN
SUPLIMIT:;
it
0000 THIS IS THE LIMIT ON SUPERVISOR MAPPED TO MUT SPACE

12585
12586
12587
12588
12589

L11

MACRO V05.01b Friday 15-Feb-85 16:10

Page 405

SEQ 0348
.SBTTL
0 W0 B0 V0 WE S0 80 W0 W0 W0 S W0 W0 W W SE W BT Ve WE TE WE TE BT TE S W W Ve VS TE Vs T We We Ve Ve We Ve W W Ve WE T TS Ve S8 VL W W W G+ Ve W G G

CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR DATA SETUP

USE THIS
PERRO1

PERRO2

ERROR DATA SETUP
IF THIS CONDITION DISCRIBES THE ERROR
TRAP

BAD DATA_IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY -(R4)
GOOD DATA IN RS
TRAP

BAD DATA IN R1 UNLESS ABORTED

THEN BAD DATA IS POINTED TO BY -(R4)
GOOD DATA IN R2
PERRO3

PERRO4

TRAP

BAD DATA IS POINTED TO BY -(R1)
GOOD DATA IN R4
TRAP

BAD DATA_IN R4 UNLESS ABORTED

THEN BAD DATA IS POINTED TO BY -2(RO)

GOOD DATA IN R2
PERROS

JSR
PC
BAD DATA IS POINTED TO BY -(RO)
GOOD DATA IN R2

RETURN AFTER SETTING UP GOOD,BAD,ADDRESS

PERRO6

JSR
PC
BAD DATA IS POINTED TO BY -(RO)
GOOD DATA IS ZERO

RETURN AFTER SETTING UP GOOD,BAD,ADDRESS

PERRO7

PERR10

PERR11

TRAP

BAD DATA IN R2 UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IN DATBUF
TRAP

BAD DATA_IN R2 UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY 2(R1)
GOOD DATA IN DATBUF+2
TRAP

BYTE TEST
BAD DATA IN RIGHT BYTE OF RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IS A ZERO BYTE

PERR12

TRAP

BYTE TEST
BAD DATA IN RIGHT BYTE OF RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IS A BYTE OF ONES

PERR13

TRAP

BAD DATA IN RO UNLESS ABORTED

——

—

——————

—

Page 405-1

e W WE W WS W BE WS S Ve W WS W WE VL Ve WS WE W+ W Ve s _We S8 W

THEN BAD DATA IS POINTED TO BY (R1)

GOOD DATA IS ZERO
PERR14

PERR15

PERR16

TRAP

BAD DATA IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IS ONES
TRAP

BAD DATA_IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IN TSTDAT
TRAP

BAD DATA_IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IN TSTDAT.2

PERR17

TRAP
BAD DATA_IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IN R2

PERR20

TRAP
BAD DATA_IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IN R3

PERR21

TRAP
7 BIT BYTE TEST
BAD DATA IN RIGHT BYTE OF RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)

e W
6 W BE WL G

12642
12643
12644
12645
12646
12647
12648

SEQ 0349

00 S0 S0 W0 T S8 WE S S0 S0 B0 W0 WE VO Ve W S

|ERROR DATA SETUP

—

M11

MACRO V05.01b Friday 15-Feb-85 16:10

BT N0 00 05 Te W0 W

| CVMJAAO MSV11-J MEMORY DIAG.

—

GOOD DATA IS A 7 BIT BYTE ON ONES
PERR22

TRAP

BAD DATA_IN R2 UNLESS ABORTED

THEN BAD DATA IS POINTED TO BY (R1)

GOOD DATA IN RO
PERR23

PERR24

PERR25

TRAP

BAD DATA_IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R1)
GOOD DATA IN R4
TRAP

BAD DATA IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY (R2)
GOOD DATA IN R3
TRAP

BAD DATA POINTED TO BY -(R1)
GOOD DATA IN R2 UNLESS LOC V177654 IS SET
THEN GOOD DATA IS IN R3

PERR26

TRAP

BAD DATA IS DOUBLE WORD POINTED TO BY R1 AND IN LOW 7 BITS OF RO
GOOD DATA IS 000000, ,100000,,100

12699
12700
12701
12702
12703

N1l

MACRO V05.01b Friday 15-Feb-85 16:10

Page 405-2

SEQ 0350
el
A

CVMJAAQ MSV11-J MEMORY DIAG.
| ERROR
DATA SETUP

PERR27

PERR30

TRAP

BAD DATA IS DOUBLE WORD POINTED TO BY R1 AND IN LOM 7 BITS OF RO
GOOD DATA IS 000000,,000000,,077
TRAP

BAD DATA IS POINTED TO BY -16(SP)
GOOD DATA IS IN R1

PERR31

TRAP

PERR32

TRAP

PERR33

TRAP

PERR34

PERR35

SPECIAL ECC FAILURE HANDLER
SPECIAL ECC FAILURE HANDLER
SPECIAL ECC FAILURE HANDLER
TRAP

SPECIAL ECC FAILURE HANDLER
TRAP

SPECIAL BRANCH GOBBLE FAILURE HANDLER

SELqLI'G SEQUENCE FOR TRAP TYPES
24
;NO - ERROR,BRANCH FOR CARD
PERRXX
;TRAP TO ERROR ROUTINE
INSTRUCTION
;CONTINUE TESTING
NEXT

B12

CVMJAAQ MSV11-J MEMORY DIAG.
ERROR DATA
SETLP
12729 047456

12730 047462
12731 047470
12732 047474

010437

ig;’gz 047500

000137

000002
002052
002044

12735 047504

010437

002034

12736 047510
12737 047516
12738
047522

162737
010137
010237

12741 047532

010137

i.g;zo 047526

12742 047536
12743 047544
12744 047550

000137

162737
010437
016137

MACRO V05.01b Fridey 15-Feb-85 16:10

002034

162737
010037
010537

—

002034

050212

002034

050212

002034

050212

12747 047562

010037

002034

12748 047566
12749 047574
12750 047600
ig;Sl 047604

162737
010437
010237
000137

000002
002052
002044
050212

12754 047614

014037

002052

002034
002052

002034

127§§ 047610 010237 002044
12755 047620
12756 047624
12757 047630
ig;gg 047634
12760 047636

ig;gé 047642
12763 047644

12764 047650
12765 047654
ig;:g 047662

047700

010237

002052

013737

002244

010137

002034

010037

002052

ig;;é 047712

12773 047716
047716
12774 047722
047722
12775 047726
047726

{g?’;g 047732

12778 047736

$PERO4: MOV

000137

005037

000137

#2, ADDRESS
R4,BAD
R2,G00D
PERRAW

PERAOS: MOV

-(R0),BAD

PERROS: MOV

002044

R2,G00D

MOV
RO, ADDRESS
ADD
#2,R0
BADSTACK
CALL
RETURN

002044

MOV
MOV
JMP

002034

002044

GOoD

R1,ADDRESS

R2,BAD
DATBUF ,GOOD
PERRAW

LET BAD := R2
LET GOOD := DATBUF+2

JMP

PERRAW

$PER11: LET ADDRESS := Rl
.

LET BAD := RO
LET GOOD := #0

JMP

;RESTORE RO

PERAQS

$PER10: LET ADDRESS := R1 + #2

050212

050264

RO, ADDRESS

SuB
MOV
MOV
JMP

$PERO7: MOV

002034
000002

#2, ADDRESS
R4,G0O0D
-2(R1),BAD

JMP PERRAW

002034

010137
062737

12770 047704
047704

R1,ADDRESS

SuB
MOV
MOV

PERRO6: CLR

047666
047672

12769 047700

$PERO3: MOV

002044

002052
002242
050212

R4, ADDRESS

@2, ADDRESS
R1,BAD
R2,G00D

005037

010137

92, ADDRESS
RO,BAD
RS,G00D

SuB
MOV
MOV

002034
000002
034152

010237
013737
000137

12768 047666

$PERO2: MOV

010037
062700
004737
000207

000764

R4, ADDRESS

JMP PERRAW

000002
002044
177776

000137

SuB
MOV
MOV

SEQ 0351

JHP PERRAW

000002
002052
002044

ig;:z 047556

$PERO1: MOV

Page 407

PERRAB

$PER12: LET ADDRESS

:- R1

MOV R1,ADDRESS
ADD #2,ADDRESS
MOV R2,BAD

MOV DATBUF+2,G00D

MOV R1,ADDRESS
MOV RO,BAD
CLR GOOD

047736
12779 047742
047742
12780 047746
047746
12781 047754

010137

002034

010037

002052

012737
000137

000377
050264

MACRO V0S.01b Friday 15-Feb-85 16:10

Page 407-1

SEQ 0352
LET BAD := RO
002044

LET GOOD := #377
JMP

PERRAB

MOV R1,ADDRESS

MOV RO,BAD
MOV #377,G00D

—— ———

CVMJAAQ MSV11-J MEMORY DIAG.
ERROR DATA SETULP

CVMJAAQ MSV11-J MEMORY DIAG.

ERROR DATA SETUP

12784 g:;;gg

010137

002054

12785 047764
047764
12786 047770
047770
{g;g: 047774

010C37

002052

005037
000137

002044
050212

12789 850000

—

30000

D12

MACRO V05.01b Friday 15-Feb-85 16:10

$PER13: LET ADDRESS := R1
LET BAD := RO
LET GOOD := #0
JMP

PERRAW

$PER14: LET ADDRESS := R1

Page 409

SEQ 0353

MOV R1,ADDRESS

MOV RO,BAD
CLR GOOD

—
V

12790 050004
050004
12791 050010
050010
ig;;g 050016

010037

002052

013737
000137

002614
050212

12794 osoogs

p——

500

LET BAD := RO
002044

LET GOOD := ONES
JMP

PERRAW

$PER1S: LET ADDRESS := R1

MOV RO,BAD
MOV ONES,GOOD

—
V

12795 050026
050026
12796 050032
050032
ig;gz 050040

010037

002052

013737
000137

002246
050212

12799 050044
050044
12800 050050
050050

010137

002034

010037

002052

050054

013737

002250

010137

002034

010037

002052

010237

002044

050102

010137

002034

050106

010037

002052

050112
iggig 050116

010337
000435

002044

010137

002034

010037

002052

012737

000177

12801 050054

igggg 050062
12804 050064
050064
12805 050070
050070
12806 050074
050074

iggg; 050100
12809 050102
12810 050106
12811 050112

12814 050120
050120
12815 050124
050124
12816 050130
050130
isgiz 050136

12819 050140

000453

000444

000477

LET BAD := RO
002044

LET GOOD := TSTDAT
JMP

PERRAW

$PER16: LET ADDRESS := R1

LET BAD := RO
002044

LET GOOD := TSTDAT+2

PERRAW

$PER17: LET ADDRESS := R1

LET BAD := RO
LET GOOD := R2

PERRAW

$PER20: LET ADDRESS := R1
LET BAD := RO
LET GOOD := R3
BR

PERRAW

$PER21: LET ADDRESS := R1
LET BAD := RO

002044

LET GOOD := #177
BR

PERRA7

$PER22: LET ADDRESS := Rl

R1,ADDRESS

MOV RO,BAD
MOV TSTDAT,GOOD

MOV R1,ADDRESS
MOV RO,BAD
MOV TSTDAT.2,GO0D

MOV R1,ADDRESS

MOV RO,BAD
MOV R2,GO0OD

MOV R1,ADDRESS
MOV RO,BAD
MOV R3,G0O0OD

MOV R1,ADDRESS
MOV RO,BAD
MOV #177,G00D

——

CVMJAAQ MSV11-J MEMORY DIAG.
ERROR DATA SETUP

050140
12820 050144
0501 44
12821 050150
050150
12822 050154
12823
12824 050156
050156
12825 050162
050162

12826 050166
050166

12827 050172
12828
12829 050174
050174
12830 050200

050200
12831 050204
050204
12832 050210

010137

002034

010237

002052

010037
000416

002044

010137

002034

010037

002052

010437
000407

002044

010237

002034

010037

002052

010337
000400

002044

————
.
———
.

—

——

El2

MACRO V0S.01b Fridey 15-Feb-85 16:10

Page 409-1

SEQ 0354
LET BAD := R2

LET GOOD := RO

PERRAW

$PER23: LET ADDRESS := R1

LET BAD := RO
LET GOOD := R4
BR

PERRAUW

$PER24: LET ADDRESS := R2

LET BAD := RO
LET GOOD := R3

PERRAW

MOV R1,ADDRESS

MOV R2,BAD

MOV RO,GOOD

MOV R1,ADDRESS
MOV RO,BAD
MOV R4,GO0OD

MOV R2,ADDRESS

MOV RO,BAD
MOV R3,GO0OD

CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR DATA SETULP

Fi2

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0355
PLRRAW:

12834 050212

SUBTST

; *SUBTEST
12835 050212
12836 050216

12838 050242
12839 050246
050246
050252
12840 050254
12841 050256
050256
050260
12842 050260
12843 050262
050262
12844 050262
12845
12846 050264

050446

005737
001402
004737

002144

050276

050302
12849 050302
050302

050306
050310
050314
12850 050314

12851 050320

12852 050326
12853 050330
050330
050332
12854 050332
12855 050334
050334
12856 050334

034152

004737

050422

005737
001002
104011

002144

IF BADPC EQ #0 THEN $CALL BADSTACK

002022

104012

ERROR +12
END ;OF IF ABORTFLAG

000002

RTI

PERRAB:

SUBTST

et L
R

005737
001402
004737

002144

034152

004737

050422

005737
001002

002144

104014

000401

TST ABORTFLAG

BNE L452
BR L453
La52:;::55:533
L&53:;::::::

<<DATA WAS A BYTE>>
L ettt
T
T T T T

DATA WAS A BYTE

bttt

002022

PERBNK
CALL
IF ABORTFLAG IS TRUE THEN $CALL GETDATA

045252

005737
001002
004737

TST BADPC

CALL
PERXOR
IF ABORTFLAG IS FALSE

000401

050446

TST ABORTFLAG

BEQ L4S0
JSR PC,GETDATA
L450:;;:::3::

BNE LA4S1
JSR PC,BADSTACK

ERROR +11
ELSE

004737

eT
T
Ty

045252

005737
001002
004737

T T

DATA WAS A WORD

CALL
PERBNK
IF ABORTFLAG IS TRUE THEN $CALL GETDATA

; *SUBTEST
12847 050264
12848 050270
050270
050274

<<DATA WAS A WORD>>

004737

Page 410

CALL
PERXOR
IF ABORTFLAG IS FALSE
ERROR +14
ELSE

104015

ERROR +15
END ;OF IF ABORTFLAG

000002

RTI

T T I I

TST ABORTFLAG

LASS
IF BADPC EQ #0 THEN $CALL BADSTACK

BEQ L454
JSR PC,GETDATA

TST BADPC
BNE L455
JSR PC,BADSTACK
L455:;;:::::

TST ABORTFLAG

BNE L456

BR L457

L456:;:::33:

L457:::::3:

CVMJUAAQ MSV11-J MEMORY DIAG.
' DATA WAS A BYTE
|

|
‘

G12

MACRO V05.01b Friday 15-Feb-85 16:10

12859 050336

PERRA7: SUBTST

SRR RR R R R R
; *SUBTEST

12860 050336
050336
050342

050344

050350

12861 050350
12862 050354
12863 050360
igg:; 050362
12866 050364
050364
12867 050372
050372
15323 050400
12870 050404
12871 050410
050410
igg;g 050416

sERERER R R R

005737
001002

Page 412

004737

034152

004737
004737
104022
000002

050422
050446

012737

100000

002046

012737
000137

000100
045040

002050

005037

002046

012737
000137

000077
045040

R RNk kR kR Rk kR kAR Rk Rk

DATA WAS A 7 BIT BYTE

R R R AR AR AR

R R Rk

kR kR kR

ke Rk

1ST BADPC
BNE L460

JSR PC,BADSTACK

CALL
CALL
ERROR
RTI

002050

12874 050422

L460:;;:::3:

PERXOR
PERBNK
+22

$PER26: LET GOOD2 := #100000

MOV #100,50003

JMP PERRA3
$PER27: CLR
GOOD2
LET GOOD3 := #077

MOV #077,G00D3

JMP PERRA3

PERXOR: SUBTST

<<DETERMINE XOR OF GOOD & BAD>>

; #SUBTEST

DETERMINE XOR OF GOOD & BAD

kb kkkkkkkkkk kb

k ko kkkkkkkkkkkk ko kkkkkk ok

k ke kk kb ok

shkkkkkkkkkkkkkkkkkkkkkkk
ko k kb kkkkkkokkkkkkkkkkkkkkkkkdkokkkkkkkkkkkkkk ke kb kb

12875 050422
050422

12876 050424

12877 050430
12878 050436
12879 050442
050442

12880 050444

010046

013700

013737
074037
012600

000207

002044

002052
002060

002060

PUSH

MOV

GOOD, RO

MOV
XOR
POP
RETURN

BAD,BADXOR
RO,BADXOR
RO

.
|

:
;

MOV #100000,G00D2

LET GOOD3 := #100

shkkkkkkkkkkkkk kb k bk

|
|

<<DATA WAS A 7 BIT BYTE>>

IF BADPC EQ #0 THEN $CALL BADSTACK

002022

SEQ 0356

MOV RO, -(SP)

MOV (SP)+,RO

CVMJAAQ MSV11-J MEMORY DIAG.
" DETERMINE XOR OF GOOD & BAD

|
:

H12

MACRO V05.01b Friday 15-Feb-85 16:10

12883 050446

(EERRRRRR

R R R

; *SUBTEST

JEEERERRRRERE R

050450
12886 050452
12887 050456
12888 050460
12889 050462
12890 050470
12891 050474
12892 050476
12893 050502
12894 050510
12895 050512
050512
12896 050520
050520
050522
igggz 050524

12899 050526
12900 050532
050532
050540

12901 050542
12902 050550
050550
050552

010146
013701
006301
006301

052761
105261
001002
105361
126137
101403
012737

002102

000001
002666

002664

002666
002666

002554

177777

002406

012601
012600
000207

010037

002052

023737
001004
013737

002034

002412

002246

002044

000403

002250

12905 050560
12906 050564

004737

050422

012737

177777

002612

023727
001001

002300

000041

050564

12909 050574

050574
050602

12910 050604
12911 050606

050606
12912 050606
050606
050612
050614

050620
12913 050620
12914 050624

050624
050632

12915 050634
12916 050636

000207

002044

104023

R R R R R R R R

R R

R RR R

12%:

114:

MOV
ASL
ASL
BIS
INCB
BNE
DECB
CMPB
BLOS
SET

BANK,R1
R1
R1
#BITO,CONFIG(R1)
CONFIG+2(R1)
124
CONFIG+2(R1)
CONFIG+2(R1),ERRMAX
114
TOOMANY

POP

R1,R0O

RN R

R R R R R

R R

R R Rk Rk ekt

R R Rk

kbbb

b kbbb

b ®

MOV R1,-(SP)

;BUMP BANK COUNTER
;NO OVERFLOW - SKIP
;SET BACK TO 255.
;IS IT PAST MAX?
;:NO - SKIP
; YES

PERECC: MOV
RO,BAD
IF ADDRESS EQ TESTADD

MOV TSTDAT,GOOD
ELSE

MOV
TSTDAT.2,G00D
END ;OF IF (R1)
CALL
SET

002022

004737

050526

023727
001001

002300

PERXOR
HEADER

RETURN
$PER31: IF REALPAT EQ #41

END

005737
001002
004737

104037

R RRR R RN R R R R R R R

LOG ERROR ON BAD BANK

RETURN

013737

iggg; 050572

R R RERRRERERE R

sWHILE WE'RE HERE LET'S MARK THE BAD BANK IN THE CONFIGURATION TABLE
PUSH
RO,R1
o

12903 050552
12904 050560
050560

SEQ 0357

PERBNK: SUBTST<<LOG ERROR ON BAD BANK>>

|
12884
12885 050446

Page 414

ERROR +23

IF BADPC EQ #0 THEN $CALL BADSTACK

034152

000011

CALL
PERECC
IF REALPAT EQ #11
ERROR +37
END ;OF IF REALPAT

MOV

#-1,TOOMANY

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

CMP ADDRESS,TESTADD
BNE L461
BR L462
L461::::::3
L462:;:::::

MOV

#-1,HEADER

CMP REALPAT,#41
BNE L463
L463:;;;::::

TST BADPC
BNE L464
JSR PC,BADSTACK
L4648:;;:::::

CMP REALPAT,#11
BNE L465

' CVMUAAQ MSV11-J MEMORY DIAG.
'LOG ERROR ON BAD BANK
050636
12917 050636
050636
050644
12918 050646
12919 050650
050650
12920 050650
050650

050656
12921 050660
12922 050662
050662
12923 050662
050662
12924 050670

023727
001001

002300

112

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0358

000015

104043

023727
001001
104044

012737
000002

IF REALPAT EQ #15
ERROR +43
END ;OF IF REALPAT

002300

000016

IF REALPAT EQ #16
ERROR +44
END ;OF IF REALPAT

177777

Page 414-1

002612

SET HEADER
RTI

L46S:;:;:::::

CMP REALPAT,#1S
BNE L466
L866:;:;:::::

CMP REALPAT,#16
BNE L467
L867:;;:::::

MOV

#-1,HEADER

CVMUAAQ MSV11-J MEMORY DIAG.
LOG ERROR ON BAD BANK

12927 050672
72

12928 050704
12929 050710
12930 050714
12931 050720
050720
12932 050726
12933 050730
2
12936 050740
050740
050744
050746

050752
12937 050752
12938 050756
12939 050762
12940 050766
12941 050774
12942 051000
051000

12943 051006
12944 051010

051010
12945 051016
12946
12947 051020
051020

12948 051032
051032
051040
12949 051042
12950 051044
051044
051046
12951 051046
12952 051050
051050
12953 051050
12954
12955
12956 051052
12957 051056
12958 051062
12959 051070
12960 051076
12961 051100
12962 051104

J12

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0359
$PER32:

005737
001002
004737

034152

010137
010037
010237

002034
002052
002044

012737
104040

177777

002612

012737
000002

177777

002612

005737
001002
004737

002022
034152

010137
010037
105037
012737
004737

002034
002052
002053
000377
050422

012737
104041

177777

002612

012737
000002

177777

002612

005737
001002
004737

002022

032737
001002
104016

002022

IF BADPC EQ #0 THEN $CALL BADSTACK

MOV
MOV
MOV
SET

R1,ADDRESS
RO,BAD
R2,G00D
HEADER

ERROR
SET

+40
HEADER

RTI

002044

MOV
MOV
CLRB
MOV
CALL
SET

R1,ADDRESS
RO,BAD
BAD+1
#377,G00D
PERXOR
HEADER

ERROR
SET

+41
HEADER

$PER34:IF BADPC EQ #0 THEN $CALL BADSTACK

MOV

#-1,HEADER

MOV

#-1,HEADER

MOV

#-1,HEADER

TST BADPC

BNE L472
JSR PC,BADSTACK

002150

L472:5::3::

IF #BIT15!BIT4 OFF.IN CSR

104001

ERROR +1
END ;OF IF #BIT15!BIT4

000002

RTI

000207

#-1,HEADER

TST BADPC

RTI

ERROR +16
ELSE

050446
034152
002032
000012

MOV

BNE L471
JSR PC,BADSTACK

034152
100020

TST BADPC

BNE L470
JSR PC,BADSTACK
L470:::::::

$PER33: IF BADPC EQ #0 THEN $CALL BADSTACK

000401

004737
004737
013737
012737
104047
062706

Page 416

BIT #BIT15!BIT4,CSR
BNE L473

;NO SBE OR DBE

BR L474
L473:5:3;3:3
;EXPECTED SBE SO DBE MUST HAVE GOTTEN SET
L474:;;:::::

;DURING BRANCH GOBBLE THE CONDITION CODES WERE WRONG

002052
002044

$PER35: CALL
CALL
MOV
MOV
ERROR
ADD

RETURN

PERBNK
BADSTACK
BADPSW,BAD
#12,G00D
+47
#4,SP

;FIX STACK FROM TRAP

;RBORTING TEST

CVMJAAQ MSV11-J MEMORY DIAG.

LOG ERROR ON BAD BANK
12963

12964 051106

12965 051112
12966 051116

010037

K12

MACRO V05.01b Fridey 15-Feb-85 16:10

002044

$PER36: MOV

SEQ 0360

RO, GOOD

010137

002052

051116
12967 051124

012737
104023

177777

002612

051126
ig;gg 051134

012737
000002

177777

002612

12971 051136
igg;g 051140

104053
000002

$PER37: ERROR
RTI

+53

;ILC::REV B
;ILC;;REV B

12974 051142
12975 051144

104054
000002

$PER40: ERROR
RTI

+54

+ILC:;REV B
+ILC;;REV B

12968 051126

MOV
SET

Page 416-1

ERROR

SET

R1,BAD
HEADER

+23

HEADER

RTI

MOV

@-1,HEADER

MOV

@-1,HEADER

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE SCOPE HANDLER

L12

MACRO V0S5.01b Fridey 15-Feb-85 16:10

12978

.SBTTL

12979

12980
12981
12982
12983
12984
12985
12986
12987 051146

12988 051152
051152
12989 051154
12990 051160
12991 051164

051164
12992 051164
12993 051166
12994 051172
12995 051174
12996 051200
12997 051200
12998 051204
12999 051206
13000 051214
13001 051222

13002 051224
13011 051226
051226
051232
051234
051242

13012 051244
13013 051250
13014 051254

051260

13016 051262
13017 051264

005237

056656

002004
005037
105237

056656
056660

104410
005737
001402
004737

005737
001410
013737
032737
001401

006216
055152

052314
177766
000001

052312
052312

104177

051264
051272

13019
13020 051274
13021
13022 051276

13023 051302
13024 051310
13025 051314
13026 051320
13027 051322
13028 051326
13029 051334
13030 051336

ROUTINE SCOPE HANDLER

005737

001410
032777
001404

005037
000137

005737
001401

002420
000400

;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE DISPLAY DATA INTO THE DISPLAY REGISTER
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;#SW14=1
LOOP ON TEST
;#SW9=1 LOOP ON ERROR
;*CALL
3
SCOPE
; s SCOPE=I0T
$SCOPE: INC
$DEVCT
:TELL AP1 WE ARE ALIVE
IF RESULT IS LT
BGE LA47S
CLR
$DEVCT
INCB
$UNIT
END ;OF IF RESULT
L47S:;:::::
CKSUR
;3 TEST FOR CHANGE IN SOFT-SWR
TST
TRACE
BEQ
NOTRCE
CALL
CONTT
: TRACE
NOTRCE:
ST
CPERRF
;IS THERE A CPU ERROR REGISTER?
iR-C
BEQ
SKJ
;BRANCH IF NOT
;R-C
MOV
a#177766 ,CPSAVE ;GET CONTENTS OF ERROR REGISTER
iR-C
BIT
#BITO,CPSAVE
;IS THE POWER FAIL MONITOR BIT SET?
;R-C
BEQ
SKJ
;BRANCH IF NOT
;iR-C

SKJ:

002420
040604

CLR
STOPOK
EXIT
JMP
END ;OF IF STOPOK

002440

IF NOSCOPE IS TRUE

RTI
END ;OF IF NOSCOPE
040000

131344

000425
013746
012737
005737
012637
000430
062706
022737
001002
005037

000004
051322
177060
000004
000004
000005
177766

000004

004010

;R-C
;R-C
TST STOPOK

BEQ L476
BIT #SW8,aSWR
BEQ L476

000002

032777
001051

ERROR
+177
;REPORT IF SO
IF STOPOK IS TRUE AND #SW8 SET.IN aSWR

131374

051264

13018 051264

SEQ 0361

e
L L o,
. T TN,

051254

13015 051254
051254

Page 418

14:

IF #SWi14 SET.IN aSWR THEN GOTO $OVER

L476:;:::::

TST NOSCOPE
BEQ L477
L477:5;55:5:3
BIT #SW14,aSWR
BNE $OVER

; #8888START OF CODE FOR THE XOR TESTER###&48
$XTSTR: BR
2%
::IF RUNNING ON THE "XOR" TESTER CHANGE
;s THIS INSTRUCTION TO A “NOP"” (NOP=240)
MOV
ERRVEC, -(SP)
;;SAVE THE CONTENTS OF THE ERROR VECTOR

1$:

MOV
TST
MOV
BR
ADD
CMP
BNE
CLR

#1$ ,ERRVEC
;:SET FOR TIMEOUT
177060
;;TIME OUT ON XOR?
(SP)+,ERRVEC
; sRESTORE THE ERROR VECTOR
$SVLAD
;360 TO THE NEXT TEST
#4,5P
;FIX STACK FROM TRAP
#5,PROTYP
;IS THIS AN 11/83 ?
64
;BRANCH IF NOT
CPUERR
;RESET CPU ERROR REGISTER

—

' CVMJAAQ MSV11-J MEMORY DIAG.

' ROUTINE SCOPE HANDLER

13031 051342

012637

000004

13034 051350
13035 051354
13036 051356
13037 051364
13038 051366
13039 051374
13040 051376
13041 051402
13042 051406
13043 051412
13044 051416

105737
001412
032777
001404
013737
000410
105037
011637
011637
005037
004737

002014

13046 051426

000002

13032 051346 000407
13033 051350

MACRO V05.01b Friday 15-Feb-85 16:10

6%:

MOV

B8R

(SP)+ ,ERRVEC

Page 418-i

;;RESTORE THE ERROR VECTOR

::LOOP ON THE PRESENT TEST

$ERFLG
$SVLAD
#5W9, 3SWR
S$
SLPERR,$LPADR
$OVER
$ERFLG
(SP), $LPADR
(SP). $LPERR
$ESCAPE
GETDIS

:;HAS AN ERROR OCCURRED?
::BR IF NO
::LOOP ON ERROR?
::BR_IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

2:;80000END OF CODE FOR THE XOR TESTER#0800

131252

002624

002622

13045 051422 013716 002622

——————
. —

M12

001000

002014
(02622
002624
002362
051430

TSTB
BEQ
BIT
BEQ
4%:
MOV
BR
5
CLRB
$SVLAD: MOV
MOV
CLR
$OVER:
CALL

MOV
RTI

$SLPADR, (SP)

: :ZERO THE ERROR FLAG
: :SAVE SCOPE LOOP ADDRESS
: :SAVE ERROR LOOP ADDRESS
::CLEAR THE ESCAPE FROM ERROR ADDRESS

; ;FUDGE RETURN ADDRESS
: iFIXES PS

SEQ 0362

| CVMJAAQ MSV11-J MEMORY DIAG.

| ROUTINE SCOPE HANDLER

N12

MACRO V05.01b Fridey 15-Feb-85 16:10

13048 051430

13049 051430
13050 051436
13051 051444

13052

1444

113737
113737
010046

002102
002300

002013
002012

051446

005737

002126

13054 051454
13055 051462
13059 051462

052737

100000

002012

013777
013737

002012
002012

131150
000174

13053 051452

13060 051470
13061 051476

051476
13062 051500

001403

012600
000207

Page 419

GETDIS: SUBTST

<<SUBR

DISPLAY>>

;#SUBTEST

SUBR

DISPLAY

222222 222 2222 2 22 22

1222 2222

;RS

E R R RN

a2 22

LR ERR R R RN R RN RN RRR

BANK
, $BANK
REALPAT, $PATMAR
RO

TST

RLFLAG

;ARE WE RELOCATED?

BIS

#BIT15, $PATMAR

;YES - SET MSB

MOV
MOV
POP

$PATMAR, 3DISPLAY
$PATMAR,DISPREG
RO

RETURN

T T

RN R RN RN RNt

MOVB
MOVB
PUSH
BEQ

14:

SEQ 0363
T It

R Rt Rttt RO et

MOV RO, -(SP)

;NO - SKIP

; SOFTWARE DISPLAY REGISTER
MOV (SP)+,RO

B13

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 421

SEQ 0364

13065
13066
13067
13068

.SBTTL

ROUTINE ERROR HANDLER
e

T T

;#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

13069
13070
13071
13072
13073
13074
13075
13076
13077
13078
13079 051502
13080 051506
13081 051510
13082 051514
13083 051520
051520
051524
13084 051526
13085 051530
13086 051530
13087 051534
13088 051536
13089 051542
13090 051550

13091 051556
13092 051560
051560

13093 051564
051564
13094 051570
13095 051574
051574
13096 051576
13097 051604
051604
13098 051604
051604
13099 051604
13100 051610
13101 051616
13102 051622
13103 051630
13104
13105 051636

051662

;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

;#AND GO TO $ERRTYP ON ERROR

;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;#SH15=1
;#SH13=1

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

;#SH10=1
BELL ON ERROR
;*SW9=1 LOOP ON ERROR
;#CALL
i*
ERROR
N
; ;sERROR=EMT AND N=ERROR ITEM NUMBER
105737
001402
004737
105037

056666

$ERROR:

000000
052310

NOAPT:

005737
001027
104410

002430

105237
001775
004737
013737
032777

002014

001404

104401
104401

005237

100003

012737

051430
002012
002000

BACK:
1$:
056652

131060

4
LSB
TSTB
$ENV
BEQ
NOAPT
3
JSR
PC,ABORT
CLRB
IBSAVE
IF NOERROR IS FALSE

CKSHWR
$ERFLG
1§
GETDIS
$PATMAR,$TESTN

BEQ

002653

TYPE
TYPEIT

066060

TYPE
TYPEIT

.DSABL

2%:

002630

077777

002630

;s TEST FOR CHANGE IN SOFT-SWR

INCB
BEQ
CALL
MOV

BIT

;ARE WE RUNNING IN APT MODE ?
;:YES - DO UFD ABORT
;GOTO UFD ABORT

#SW10,3SUWR

:3:SET THE ERROR FLAG
;:DON'T LET THE FLAG GO TO ZERO
;:SETUP DISPLAY STUFF
;FOR APT

MSGO14
,MSGO14

;CONTROL Z

; ;COUNT THE NUMBER OF ERRORS
BPL LS501

MOV #77777,$ERTTL

END ;OF IF RESULT

LSOY::5::::

END ;OF IF NOERROR

011637
162737
010637
016637
117737

002020

130164

002030
002015

122737

000177

002015

001431
105737
001024
005737
001423
013737

032737

002020

052310

177766

000001

052312
052312

LS00:;;5:3::

MOV
SuB
MOV
MOV
MOVE

(SP),ERRPC
#2,ERRPC
SP ,ERRSP
2(SP),ERRPSU
3ERRPC, $ITEMB

;;STRIP AND SAVE THE ERROR ITEM CODE

CMPB
BEQ

#177,81TEMB
10014

;IS THIS THE POWER FAIL CALL?
;BRANCH IF SO

;iR-C
iR-C

1000¢

:BRANCH IF SO

;R-C

TSTB

IBSAVE

TST

CPERRF

BNE

052314

:R-C

;NO - SKIP

..RING BELL

CRF
.DSABL
- INC
$ERTTL
IF RESULT IS MI

TST NOERROR
BNE LS00

:.BELL ON ERROR?

$BELL
,$BELL

CRF

;:R-C

BEQ
MOV
BIT

1001¢
177766 ,CPSAVE
#BIT0,CPSAVE

;;GET ADDRESS OF ERROR INSTRUCTION

;2ND ERROR CALL?

;IS THERE A CPU ERROR REGISTER?

;BRANCH IF NOT
; SAVE CONTENTS
;:POWER MONITOR BIT SET?

iR-C

;iR-C
sR-C
iR-C

Y T T

CVMJAAO MSV11-J MEMORY DIAG.

' ROUTINE ERROR MANDLER

13113 051676 001414

13114 051700
13115 051706
13116 051714

13117 051722
13118 051724
13119 051730

042737
112737
112737

000402
105037

000001
002015
000177

BEQ

177766
052310
002015

052310

BIC
MOVB
MOVB
1000$:
1001$:

BR
CLRB

1001$

#B170,177766
#$ITEMB,IBSAVE
#177,$1ITEMB
1001¢
IBSAVE

13122 051744
13123 051752
13124 051760
13125 051766
13126 051774
13127 052000

013737
162737
013737
013737
005037

002022
000002
002026
002032
002022

002020
002020
002024
002030

MOV BADPC,ERRPC
SuB #2,ERRPC
MOV BADSP,ERRSP
MOV BADPSW,ERRPSW
CLR BADPC
END ;IF

13128 052000
13129 052006
13130 052012
052012

013737
004737

002020
050446

056650

032777

020000

130616

MOV
ERRPC, $FATAL
CALL PERBNK
IF #SW13 SET.IN aSWR

052000

052020

13131 052022
13132 052024

001401

000420

052032
052034
052040

032777
001404
005737
001401

052042

000410

13134 052042
13135 052044

000040

052044

052050
052054
13139 052056

13140 052062

13141 052064
052064

130604

;FOR APT
::LOG ERROR ON BANK

005737
001403
013706

002276

000207

002274

MOV

END

RTS

SAVMON,
SP

LS03:555353:
BIT #SW13,aSWR
BEQ LS04

IF #SWS SET.IN aSWR AND TOOMANY IS TRUE

CALL
$ERRTYP
IF MONFLG IS TRUE

iR-C
iR-C
iR-C

BEQ LS03

LS04:;;:;::::
BIT #SWS,aSWR
BEQ LS50S
TST TOOMANY
BEQ LS50S
BR 3$

LS0S:;:::::

END ;OF IF NOERROR
052316

;iR-C
:R-C
;iR-C

TST BADPC

END ;OF IF #SWS

(04737

sR-C

TST NOERROR

GOTO 3$

052044

o—
.

BNE LS02

002406

13136 052044
13137 052044
13138 052050

;CLEAR THE BIT
;MAKE IBSAVE NON-ZERO FOR DUAL CALL
;SET S$ITEMB TO POWER FAIL POINTER

BR 3¢
END ;OF IF #SW13

052024

13133 052024
052024

SEQ 036S

;BRANCH IF NOT

IF BADPC NE #0

002022

001416

Page 421-1

005737

051742

——
——
<

MACRO VO0S.01b Fridey 15-Feb-85 16:10

— ggi;gg
005737 002430
051734 001043

13121 051736
051736

LS02:;:::::

::G0 TO USER ERROR ROUTINE
; :SHOULD WE RETURN TO XXDP MONITOR???
;;GET MONITOR ADDRESS

TST MONFLG
BEQ L506

::G0 TO MONITOR

LS06:;:::::

————————— —————

—

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE ERROR HANDLER

|
I

13143 052064

052064

052070
13144 052072
13145 052076
13146 052100
13147 052102
13148 052104
052104
052110
052112
052120
13149 052122
13150 052126
052126
13151 052126
13152 052132
13153 052134
13154 052140
052140
052144
13155 052146
13156 052154
13157 052156
13158 052162
052162
052166

052170
052174
052176
052202
052204
13159 052204

13160 052212
13161 052216

005737

001072
005777
100002
000000
104410
005737
001006
032777
001402
013716
005737
001402
013716
005737
001043
022737
001002
005037

005737
001006
005737
001003
005737
001405

012737
000137

D13

MACRO V05.01b Fridey 15-Feb-85 16:10

3s:

002430
130540

$HALT:
7%:

002440

001000

130516

002362

187
$ESCAPE
BEQ
9%
MOV
$ESCAPE, (SP)
IF DETFLAG IS FALSE

002362

9%:

002220

004010

177766
002350

002352
002064

056646

005737

001414
023727
101410

002630

052234

104401

070051

13164 052240
13165 052244
13166 052250

013700
005037
000137

000042
000042
014022

13163 052234

13167 052254
052254
13168 052254
052254
13169 052254
052254
052256
13170 052256

052256

13171 052264

000020
TYPEIT
.DSABL

TYPE

,MSGO66

CRF

MOV
CLR
JMP

MSGO66

END ;OF IF XXDPCHAIN

ELSE

177777

;FOR APT

002612

SET

LS13:;::::

TST XXDPCHAIN

BEQ LS514
CMP S$ERTTL,#20
BLOS LS514

;ERROR COUNT EXCEEDED 20 - ABORTING FOR XXDP CHAIN

42,R0O
42
$ZAP42

END ;OF IF DETFLAG

012737

BIT #SW9,aSuWR
BEQ LS510

TST DETFLAG
BNE LS11

IF XXDPCHAIN IS TRUE AND $ERTTL HI #20

000403

TST NOSCOPE
BNE LS10

LS10:::::::
; ;CHECK FOR AN ESCAPE ADDRESS
; sBR IF NONE
; :FUDGE RETURN ADDRESS FOR ESCAPE

MOV
#1, $MSGTY
EXIT
JMP
END ;OF IF ACTFLAG

002354

052222
052224
052232

:;FUDGE RETURN FOR LOOPING

BNE L507

CMP #5,PROTYP
;IS THIS AN 11/83 ?
BNE 114
CLR CPUERR
11$: IF ACTFLAG IS TRUE OR APTFLAG IS TRUE OR FATALS$ IS TRUE
TST ACTFLAG
BNE LS12
TST APTFLAG
BNE LS12
TST FATALS
BEQ LS13
LS12:;:::::

052216

13162 052216
052216

TST NOERROR

TST
ISWR
:;HALT ON ERROR
BPL
7%
::SKIP IF CONTINUE
HALT
; sHALT ON ERROR!
CKSWR
;s TEST FOR CHANGE IN SOFT-SWR
IF NOSCOPE IS FALSE AND #SW9 SET.IN aSWR

MOV $LPERR,(SP)
END ;OF IF NOSCCPE

000001
040604

SEQ 0366

IF NOERROR IS FALSE

002624

000005

Page 422

HEADER

END ;0OF IF NOERROR

LS14:;;:::::
LS11:353553

BR L515
LSO7:;:::353:

MOV

#-1,HEADER

CVMJAAQ MSV11-J MEMORY DIAG.

' ROUTINE ERROR HANDLER

052264

13172 052264
052264
052270
13173 052274

13174 052300
13175 052302

13176 052306
13177 052310
13178 052312
13179 052314

13180

005037
005037
105737

001402
000137

000002
000000
000000
000000

002406
002430
052310

051530

E13

MACRO V05.01b Friday 15-Feb-85 16:10

104:

CLEAR

2138:
RTI
IBSAVE: .WORD O
CPSAVE: .WORD 0O
CPERRF: .WORD O

.DSABL

CLR TOOMANY
CLR NOERROR
;POWER FAIL ERROR CALL? ;R-C

IBSAVE

213$
BACK

LSB

SEQ 0367

LS15:::5::::

TOOMANY ,NOERROR

1578

BEQ
JMP

Page 422-1

; ;RETURN

;JUMP IF SO

iR-C
:R-C

;R-C
iR-C
;R-C

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE ERROR MESSAGE TYPEOUT

F13

MACRO V05.01b Friday 15-Feb-85 16:10

igig}

.SBTTL

13185

13186
13187

Page 424

SEQ 0368

ROUTINE ERROR MESSAGE TYPEOUT

bt it

bttt

;#THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE WHICH
;#*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE" ($ERRTB),

igigg

;#*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

13190 052316

13191 052320
052320

104415

$ERRTYP: SAVREG
TYPE
ngfigl

$CRLF
ééERLF

; : "CARRIAGE RETURN" & "LINE FEED"

002015

CLR
BISB
BNE

RO
$ITEMB,RO
13

; ;PICKUP THE ITEM INDEX

002020

MOV

104401

002660

005000
153700
001004

052334

013746

052340

104402

13197 052342
13198 052344
13199 052350
13200 052352
13201 052356
13202 052360
13203 052362

000511
122700
001003
012700
000406
005300
006300

13192 052324
13193 052326
13194 052332
131
13196 052334

13204 052364
13205 052366
13206 052370
13207 052374
13208 052400
13209 052402
13210 052406

13211 052410
13212 052414
13213 052416
13214 052422
13215 052424
052424
13216 052430
052430

006300
006300
062700
012037
001417
005737
001003

000177

100¢:

057274
052432

104401

070120

002064

104401

13217 052432
13218 052434
052434

000000
104401

002660

13219 052440

012037

052464

13223 052454
13224 052460
13225 052462
052462

005737
100004

13222 052452

001003

104401

1104:

002430

002612

001412
005737

1%:

052626

005737
100011
005737
001402

13220 052444
13221 052446

TYPOCT

::6G0 TYPE--OCTAL ASCII(ALL DIGITS)

BR
CMPB
BNE
MOV
BR
DEC
ASL

114
#177,R0
1004
#PFECWS,RO
110
RO
RO

: 3GET OUT
;POWER MONITOR CALL?
;BRANCH IF NOT
;MOV ADDRESS OF PFE BIT ERROR TO RO

ASL
ASL
ADD
MOV
BEQ
TST
BNE

2%:

TYPE
TYPEIT

002430

.DSABL

WORD
TYPE
ngfigl
MOV

13¢:

RO
RO
#$ERRTB,RO
(RO)+,3%
44
NOERROR
124

HEADER
4%
FATAL$
2¢
MSG067
,MSGO67
CRF

CRF

: :FORM TABLE POINTER
: ;PICKUP "ERROR MESSAGE" POINTER
: sSKIP TYPEOUT IF NO POINTER
;IS THIS REALLY AN ERROR?
:YES - SKIP

; TYPE HEADER?
:NO - SKIP
;WAS IT A FATAL ERROR?
;NO_- SKIP
;FATAL

::; TYPE THE "ERROR MESSAGE"
;s "ERROR MESSAGE"” POINTER GOES HERE
;s "CARRIAGE RETURN" & "LINE FEED"

(RO)+,5%

; ;PICKUP “DATA HEADER" POINTER

64
NOERROR

TST
BPL
TYPE
TYPEIT

HEADER
64

.DSABL

: ;ADJUST THE INDEX SO THAT IT WILL
i
WORK FOR THE ERROR TABLE

O
$CRLF
éagRLF

BEQ
TST

BNE

002612

; ;SAVE_ERRPC FOR TYPEOUT

; sERROR_ADDRESS

CRF

124:

4%:

ERRPC, -(SP)

T;gggL

TST
BPL
TST
BEQ
TYPE
TYPEIT

34:

::IF _ITEM NUMBER IS ZERO, JUST
;s TYPE THE PC OF THE ERROR
ERRPC, <ERROR ADDRESS>

13%

CRF

: ;SKIP _TYPEOUT IF 0O
;IS THIS REALLY AN ERROR?
;YES - SKIP

; TYPE HEADER?
iNO - SKIP
; :TYPE THE "DATA HEADER"

iR-C
iR-C
iR-C
iR-C
iR-C

iR-C

13226 052464
13227 052466
052466

000000

13228 052472
13229 052474
13230 052476

012001
001427
012002

104401

Page 424-1

SEQ 0369

S$:

00260
6%:

. WORD

0
$CRLF

:: "DATA HEADER" POINTER GOES HERE
:: "CARRIAGE RETURN" & "LINE FEED"

.DSABL
MOV
BEQ
MOV

CRF
(RO)+,R1
10$
(RO)+,R2

; ;PICKUP "DATA TABLE" POINTER
;:BR _IF NO DATA TO BE TYPED
; ;:PICKUP "DATA FORMAT" POINTER

TYPE
TYPEIT

, $CRLF

- c———

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE ERROR MESSAGE TYPEOUT

G13

MACRO V05.01b Friday 15-Feb-85 16:10

13233 052500
13234 052502
13235 052504
13236 052510
13237 052512
13238 052514
13239 052516
13240 052520
13241 052522
13242 052524
13243 052526
13244 052530
13245 052532
13246 052534
13251 052536
13252 052542
13253 052544
13254 052546
052546

112203
006303
004773
000412
052736
052746
052756
053026
053066
053100
053112
053156
053164
053244
062701
005711
001403

13255 052552
13256
13257 052554
13258 052560
13259 052562
13260 052566
13261 052570
052570
052576
052600
052604
052606
052612

000752

13262 052614

13263 052620
052620
13264 052620

104401

000002

13265 052624

000207

13267 052626
052634
13268 052636

052636
052732
120
105
115
111
122
111
106
116
123
000
124
124
040
122

9%:

10$:

002612

114:

130040

002220

002430

053266

117
122
117
124
040
124
117
104
105
105

116
040
122

TAG704
TAG71$
TAG72$
TAG73$
TAG744
TAG75¢
TAG764
TAG77$
TAG78$
TAG79¢
ADD

TST
BEQ

(R2)+,R3
R3
9%

#2,R1

;UPDATE DATA TABLE POINTER

MSGO018

;TYPE 2 SPACES

(R1)
10$

.DSABL
BR

,MSG018
CRF
74

TST
BEQ
INC

MUT
114
HEADER

RESREG

;MAKE IT A WORD ADDRESS

38$(R3)

; ;1S THERE ANOTHER NUMBER?
;:BR IF NO

; :LOOP

;IS THERE A MEMORY UNDER TEST
;NO - SKIP
;YES - BUMP HEADER FLAG

IF #SW7 SET.IN @SWR AND DETFLAG IS FALSE AND NOERROR IS FALSE
BIT #SW7,aSWR
BEQ L3516
TST DETFLAG
BNE L516

BNE LST6

DETAIL
CALL
END ;OF IF #SW7
TYPE
TYPEIT

070557

052672

MOVB
ASL
CALL

TYPE
TYPEIT

066107

000200

104401

052641
052644
052647
052652
052655
052660
052663
052666
052671
13269 052672
052675
052700
052703

8%:

032777
001410
005737
001005
005737
001002

052620

13266

052512

002110

004737

MSG104

,MSG104

CRF

.WORD

PFECEM,PFECDH,PFECDT,PFECDF

;R-C
iR-C

;R-C

052722

PFECWS:

127

PFECEM:

.ASCIZ

“POWER MONITOR BIT FOUND SET"

PFECDH:

.ASCIZ

"TESTNO

040
116

117

102
040

125

040
124

123
117
105

040

L516::::::3

;CONTROL Z

.DSABL

RETURN
.EVEN

——————

SEQ 0370
7%:

005737
001402
005237
104416

Page 426

———
—

' ROUTINE ERROR MESSAGE TYPEOUT

H13

MACRO V05.01b Friday 15-Feb-85 16:10

—

' CVMJAAQ MSV11-J MEMORY DIAG.

ERR PC

CPUERR"

- ROUTINE ERROR MESSAGE TYPEOUT

052706

052711
052714
052717

13270
13271 052722
052730

13272 052732
052735

13273

120

122
056652
000000

000
000

113

MACRO V05.01b Fridey 15-Feb-85 16:10

103
103
105
000

040
120
122

002020

052312

000

PFECDT:

.EVEN
.WORD

PFECDF: .BYTE

Page 426-1

‘

SEQ 0371

$TESTN,ERRPC,CPSAVE,O

iR-C
iR-C

0,0,0,0

iR-C

——

- CVMJAAQ MSV11-J MEMORY DIAG.

' CVMJAAQ MSV11-J MEMORY DIAG.
' ROUTINE ERROR MESSAGE TYPEOUT

13276
13277
13278
13279 052736
052736
052742

13280 052744
13281
13282
13283
13284
13285 052746
052746
052752

SEQ 0372
;%% OCTAL #**x
L
T It

TAG70$:

017146

104402

TYPOCT

a(R1)

MOV

000207

;:TYPE AN OCTAL NUMBER

a(R1),-(SP)

TYPOC
.DSABL
RETURN

; ;SAVE @(R1) FOR TYPEQUT

* ;:6G0 TYPE--OCTAL ASCIICALL DIGITS)

CRF

I
I
T
IO

;%% DECIMAL #*#%
I
T
TTTIIImmmTM

017146
104405

TAG71$:

000000

TYPDEC

MOV

TYPDS

.DSABL

000207

010146
010546
013701
070127

002102
000004

012737

177777

053000

104401

066060

004737
005037

033404
002372

13296 053004
13297 053010
13298 053014
053014
053016
13299 053020

Page 428

R
LR LR
R
I

13286 052754
13287
13288
13289
13290
13291 052756
052756
052760
13292 052762
13293 052766
12294 052772
052772

13295 053000

MACRO V05.01b Friday 15-Feb-85 16:10

RETURN

@a(R1)

;s TYPE A DECIMAL NUMBER

a(R1),-(SP)

::SAVE @(R1) FOR TYPEQUT

;G0 TYPE--DECIMAL ASCII WITH SIGN

CRF

sRkkkkkokokokokkokokok ko koo ok ko ko

Rk R AR AR

;%kk INTERLEAVE ***
3 dedokokodokokokok ok ok okokokokokok ok okokokokokokokokkkkok ko kkkkkkkkkkk gk

TAG72%:

002372

104401

13300 053024

000207

PUSH

R1,R5

MOV
MUL

BANK,R1
#4,R1

TYPE
TYPEIT

MSGO14
,MSGO14

SET

.DSABL
CALL
CLR
POP

012605
012601

053020

TYPE
TYPEIT

066060

.DSABL

RETURN

kk kbbb kb ek dd kst bt a

NOTAB

053026
053030
13306 053032
13307 053036
13308 053042

CRF
TCFIG1
NOTAB
RS,R1

MOV (SP)+,RS

MSGO14
,MSGO14

MOV (SP)+,R1

;1 SPACE

CRF

053042
13309 053050
13310 053054
13311 053060
053060
053062
13312 053064

3 dokkkokkokk ko ok kR ok

010146
010546

013701
070127

002102
000004

012737
004737
005037

177777
033600

012605
012601
000207

002372

MOV
MUL

002372

R1,RS

k ok

BANK ,R1
#4,R1

SET

NOTAB

CALL
CLR
POP

TCFIG3
NOTAB
R5,R1

RETURN

;INDICATE NO TABLE TO BE PRINTED - NOW

skkk CSR *%x
’

TAG73¢: PUSH

bbb b b kbR b

MOV R1,-(SP)

3 e sk e o s e ok e o ook ool o ol ol o e ok ok ok ook ok ok sk ok ok ok ok ok kok skokok ok ok ok b ok ok ok ok kokok kb

1
13305 053026

SRR eSS R b bbb O bbbt b b b

k ook Rk

ok ok kR

Rk ko

kR ok

bk ok k ok ko k ko

Rk kR Rk kR

k kR

kR Rk Rk

k kb kb

k k&

MOV R1,-(SP)
MOV RS, -(SP)

MOV

#-1,NOTAB

MOV (SP)+,RS

MOV (SP)+,R1

CVMJAAQ MSV11-J MEMORY DIAG.

' ROUTINE ERROR MESSAGE TYPEOUT

13313

K13

MACRO V05.01b Friday 15-Feb-85 16:10

1331‘

sRERER

13316

PRARERA AR

13315

AR R

R R

R kR Rk

;#%% PATTERN ##

13317 053066

002300

AR AR

TAG74%: TYPOCS

053066

013746

MOV

053072
053074
053075

104403
002
001

TYPOS
BYIE
.BYTE

iggig 053076

000207

RETURN

.DSABL

AR R

Page 428-1

SEQ 0373
kR

AR AR

REALPAT,<TYPE (0-77)>,2.2

E AR

REALPAT,-(SP)

;:%egg ?gk#;;T FOR TYPEOUT

2
|

;:G0 TYPE--OCTAL ASCII
::TYPE 2 DIGIT(S)
;s TYPE LEADING ZEROS

CRF

AR R

R Rk

a S a

13320
13321

L LL
T T T LTI
;%% BANK %%

13323 053100
053100

013746

TAG7S$: TYPOCS
MOV

053104
053106
053107

104403
003
000

TYPOS
.BYTE
BNIIE

13324 053110

000207

RETURN

13322

I
T T
T T
TN

002102

.DSABL

CRF

::G0 TYPE--OCTAL ASCII
;s TYPE 3 DIGIT(S)
; :SUPPRESS LEADING ZEROS

CVMJAAQ MSV11-J MEMORY DIAG.

. ROUTINE ERROR MESSAGE TYPEOUT

13326
13327
13328
13329 053112
053112
053114
13330 053116

13331 053122
13332 053126
053126

13333 053134
053134

13334 053140
13335 053144
13336 053150
053150
053152
13337 053154
13338
13339
13340
13341
13342 053156
053156
13343 053162
44

L33

MACRO V05.01b Friday 15-Feb-85 16:10

Page 429

SEQ 0374
it

22 2222 2222 22222222t

a2 2

2222

T T TRt

;%% MTYPE #%=%
I
L
T
T,

TAG76%:

010146
010546
013701
070127

002102
000004

012737

177777

104401

066112

004737
005037

033444
002372

002372

012605
012601
000207

PUSH

R1.R5

MOV
MUL
SET

BANK ,R1
#4 ,R1
NOTAB

TYPE
TYPEIT
.DSABL
CALL
CLR
POP

MSGO19
,MSGO19
CRF
TCFIG2
NOTAB
R5.,R1

MOV RS,-(SP)

MOV (SP)+,RS

MOV (SP)«,R1

RETURN
sk

kokkkkokdkok ko

dokkkok ok dkokkkok ok kkkkokkokkokkkkkkkkkkkkkkkkkkkkkkkkk
kb bk kb ek bk kb e

;#k% UNKNOWN DATA #*x

104401

067767

3 Bk

okokokok ok ok ok ok dkokokokokokokok ok okok ko

TAG77$:

TYPE
TYPEIT

.DSABL
RETURN

000207

sk ko

koo

ok ok ok ok ok okok ok ok ok okok ok k ok ok k ok kkkkkkkkkk kb kb k

kb k

kb kb bk &

MSGO61
,MSGO061

CRF

ok ok

kkokok kokokdokkokokokokok kkkokkkk ok dokkkkkkkkkkkk ko kkkk ko

ke kk

kbbb

;#%% PHYSICAL ADDRESS #*#x
R

013737
162737
013737
006237

002034
060000
002102
002042

002040
002040
002042

052737
012746
004737
062706

100000
002040
056526

002040

053236

104401

056634

053242

000207

103003

TAG78$: MOV

SUB
MOV

1%:

000002

ADDRESS
, PHYADD

#FIRST,PHYADD
BANK
, PHYADD +2

ASR
BCC
BIS
MOV
CALL
ADD

PHYADD+2
1%
#BIT1S5,PHYADD

TYPEIT
.DSABL
RETURN

,$0CT8
CRF

TYPE

#PHYADD, - (SP)
$DB20

#2,5P

$0CT8

;POINTER TO DOUBLE WORD ON STACK
;CALL DOUBLE PRECISION CONVERSION ROUTINE
:FIX STACK

shkkkkkkkkkkkkkkkkokkkkokkkk
ko kkokkkkkkkkkkk kb kkk ko kkkkkk kb
kkk kbbb kb bbbk b bbbk s

;*%x OCTAL BYTE %%x
e
T
r

13363 053244
053244

104401

066107

053250

017146

000000

053257

104403
003
001

13364 053250

TAG79%:

TYPE
TYPEIT

.DSABL
TYPOCS

MOV

TYPQS
.BYTE
.BYTE

MSGO18
:2 SPACES
,MSGO18
CRF
a(R1),<TYPE BYTE>,3,Z

a(R1),-(SP)

3
1

;:SAVE a(R1) FOR TYPEOUT

::TYPE BYTE

;:60 TYPE--OCTAL ASCII
::TYPE 3 DIGIT(S)
;;TYPE LEADING ZEROS

———

——

| CVMJAAQ MSV11-J MEMORY DIAG.

| ROUTINE ERROR MESSAGE TYPEOUT

M13

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0375
.DSABL

13365 053260
053260

104401

13366 053264

000207

066060

Page 429-1

TYPE
TYPEIT

.DSABL
RETURN

CRF

MSGO14

,MSG014

CRF

; SPACE

———

| CYMJAAQ MSV11-J MEMORY DIAG.

'ROUTINE ERROR MESSAGE TYPEOUT

N13

MACRO VO0S.01b Fridey 15-Feb-85 16:10

13410 053266

13411 053266
13412 053272
13413 053300
13414 053302
13415 053310

—

DETAIL: SUBTST
Al

- 3323 012737 177777 002612
13418 §§§3§2 005037 002110

053372
13430 053400

010037
012700
010120
010220
010320
010420
010520
013720
013720
013700
012737
104013

002200
002202

053404
053404

177777

002430

013746

2¢:

002612

13433 053414
053414 012737
177777
002110
005037
134 4 053422

002612

13435 053426
053426

012737

177777

1 43 8

022737

000005 004010

005037

177766

012637
012637

002110
002612

004737
000207

053266

13438
lm’g
13440

10403

44 oogooa

053452
0

1344}
xs«g 053462
13443 053466

22 2

DETAILED ERROR REPORT>>

221 2222 222

W——

gl
CLR

MUT

ERROR

053410 013746 002110

msg 0

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
SET

002024
002030
002200

1 435 053402 000423
13432

<<SUBR

2222 22222

SEQ 0376

212 22

DETAILED ERROR REPORT
SUBR
; sSUBTEST
;RS ER RS R R SR RN RN RR R RN LR R RRR RN RR RN LR R RN AR RRE RN RN RN R RNt
005237 002220
INC
DETFLAG
022737 000003 002220
cHP
#3,DETFLAG
101473
BLOS
4%
022737 000002 002220
CHP
92, DETFLAG
001435
BEQ
23

gig
013746 002612
316 013746 002110

13419
053 34
mgo gw
13421
xg:a;
246
13423 053350
13424
053352
13425 gs
13426
053 56
13427
053362
1 23 0
13429 053372

Page 432

SET
CLR

HEADER
MUT

ERROR

+31

CMP

14:

MOV @-1,HEADER
)

MOV

#-1,NOERROR

HEADER,MUT

BNE
CLR
POP

d bt bbbt e

MOV
HEADER, -(SP)
MOV MUT,-(SP)

+13

PUSH

SET

002430

RO,DETRO
ODETR1,RO
R1,(RO).
R2.(RO)+
R3.(RO)+
R4, (RO)+
RS.(RO)+
ERRSP, (RO)+
ERRPSW, (RO)+
DETRO,
RO
NOERROR

YTt

MOV HEADER, -(SP)

MOV MUT,-($P)

NOERROR

#5,PROTYP
13

MOV

#-1,HEADER

MOV

@-1,NOERROR

;IS THIS AN 11/83 ?

CPUERR

, HEADER
MUT

WARNING RECURSIVE
ALL
DETAIL
RETURN

MOV (SP)+,MUT
MOV (SP)..HEADER

————
.

——

CVMJAAO MSV11-J MEMORY DIAG.

SUBR

DETAILED ERROR REPORY

13446

{g::; 053470
13449
13450 053474
053474
053500

053504

13451 053506
053506

004737

013746
013746

010146

Bl4

MACRO V05.01b Friday 15-Feb-85 16:10

055152

4%:

;SIMULATE CONTROL *T*

CALL

CONTT

002150
002152

TYPE

MSGOS8

067745

TYPEIT
.DSABL

CRF

053512

104401

002660

13453 053516
13454 053522
053522
13455 053522
053522
053526
13456 053
13457 0535
053530
13458 053532

013701

002224

TYPEIT
.DSABL

,$CRLF
CRF

13459 053534

005037

TYPE

002152

006301
103006

104426

$CRLF

READCSR
MOV
T;gggL

13460 053542
053542

104401

066107

TYPEIT
.DSABL

13461 053546

TYPOCT

BCC LS17

CSR

CSR, -(SP)
CRF

TYPE
MSGO18
,MSGO18

::SAVE CSR FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
;2 SPACES

CRF

062737

003757

000002

002152

END ;OF FOR CSRNO

13465 053570

POP

012601
012637
012637

BLE B104
E108:;:;5:::::
E103:;:::::3

R1,CSRNO,CSR

MOV (SP)+,R1
MOV (SP)+,CSRNO
MOV (SP)+,CSR

002152
002150
;sTYPE STACKS
PUSH
RO,R1

053602
053604
13469 053606

010046
010146

053606

104401

070336

13470 053612
13471 053616

013701
162701

002574
000002

TST R1
BEQ E103

CMP CSRNO, #36

END DUMPCSRLOOP

053570

LS17::335:33

ADD #2,CSRNO

002152 000036

13464 053570

13467
13468 053602

CLR CSRNO
B104:;;;::::

IF R1 EQ #0 THEN LEAVE DUMPCSRLOOP

005701
001407

053560 023727

053570
053572
13466 053576

B103:;::::::

END ;OF ON.ERROR

053546

053566
053570

MOV R1,-(SP)

,MSGOS8

ASL
ON.ERROR

002150

13463 053552
053552

MOV CSR,-(SP)
MOV CSRNO,-(SP)

FOR CSRNO := #0 TO #36 BY #2

013746
104402

053546
053350

MOV
TOTCSRS,R1
BEGIN DUMPCSRLOOP

053534
053540

13462 053546

SEQ 0377
;DISPLAY "DISPLAY" INFO

s TYPE CONTENTS OF ALL CSR'S
PUSH
CSR,CSRNO,R1

104401

13452 053512

Page 434

TYPE

TYPEIT
.DSABL
MOV
suB

MSGO088

,MSGO88
CRF
KSTACK,R1
#2.R1

;KERNEL STACK

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

- CVMJAAQ MSV11-J MEMORY DIAG.
DETAILED ERROR REPORT
SUBR
13472 053622
053622

010600

13473 053624
053624

104401

053624

13474 053630
053630

010046

13475 053634
053634

104401

053632

13476 053640

011046
104402

13477 053644
053644
053650
053652

062700
020001
003764

053654

13482 053670
13483 053676
13484 053700
053700
053702

13485 053704
053704

13486 053710
053710
053714

13487 053716

FOR

005737
001036
042737
052737
006506

020027
002016

13489 053722
053722
053724

13490 053726
053726

13491 053732
053732
053734
13492 053736

053736
053742
053746

104401

002456

030000
010000

070354
000740

TYPE
TYPEIT

,MSGO18

MSGO18

.DSABL

CRF

MOV
ngggL

(RO),-(SP)
cap

(RO)

177776
177776

:2 SPACES

:sSAVE (RO) FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

ADD #2,RO
CMP RO,R1
BLE B10S5

E105:;5::53:3

;SET PREVIOUS MODE TO SUPERVISOR
TST
NOSUPER
BNE
DET1
BIC
#BIT13!BIT12,PSW

BIS
MFPI
POP

#BIT12,PSW
sSSP
R1.RO

TYPE
TYPEIT

MSG089
,MSGO89

.DSABL

002660

;SUPERVISOR STACK

TYPE
TYPEIT ,$CRLF

$CRLF

TYPE

TYPEIT

.DSABL

,MSGO18

MSGO018

B106:::::;:;

;sSAVE RO FOR TYPEOUT
;360 TYPE--OCTAL ASCIICALL DIGITS)

;2 SPACES

CRF

TYPOCT
(RO)
MOV
(RO),-(SP)
TYPOC

000002
000736

CMP RO, #SUPSTK
BGE LS20

CRF

RO
TYPOCT
MOV
RO, -(SP)
T;gggL cRF
066107

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

CRF

IF RO LT #SUPSTK

.DSABL

;G0 TYPE--OCTAL ASCIICALL DIGITS)

FOR RO := RO TO #SUPSTK-2 BY #2

011046
104402

003763

T;S%L

;: ;SAVE RO FOR TYPEOUT

END ;OF FOR RO

000002

104402

062700
020027

CRF

TYPOCT

010046

104401

S$CRLF
,$CRLF

.DSABL

066107

MOV SP,RO

B10S:;:::::

TYPOCT
RO
MOV
RO, -(SP)

012601
012600

104401

Page 434-1

RO := SP TO R1 BY #2

TYPE
TYPEIT

002660

053716

13488 053716
053716

MACRO V05.01b Friday 15-Feb-85 16:10

104402

053640
053642

13478
13479 053654
13480 053660
13481 053662

C14

CRF
.DSABL
END ;OF FOR RO

:3SAVE (RO) FOR TYPEOUT
;:G0 TYPE--OCTAL ASCIICALL DIGITS)
_

ADD #2,R0O
grg 3?6:SUPSTK-2

CVMJAAD MSV11-J MEMORY DIAG.
SUBR
DETAILED ERROR REPORT
053750
13493 053750
053750
053752
13494 053752
053752

13495 053756
053756
13496
13497
13498
13499
13500
13501 053774
053774
054000
13502 054002
054002
13503 054002
054002

13504 054006
054006
054010
13505 054012

054012

13506 054016
054016
054020

13507 054022
054022
054026
054032
054034
13508 054034
054034
054036
13509 054036
054036

13510 054042
054042
13511 054042
054042
13512 054046
13513 054052
054052
13514 054054

D14

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0379

052737
006506

030000

104401

070376

020027
002016

000700

104401

002660

066107

000002
000676

177776

DET1:

LS2l::::5:5::

;SET PREVIOUS MODE TO USER

BIS

#B8IT13!BIT12,PSW

MFPI
POP

USsP
RO

TYPE
TYPEIT

MSG090
,MSGO90

;USER STACK

_CRF
.DSABL
IF RO LT #USESTK

MOV (SF)+,RO

CMP RO, #USESTK

:= RO TO #USESTK-2 BY #2

TYPE
$CRLF
TYPEIT
,$CRLF
CRF
.DSABL
TYPOCT
RO
MOV
RO, -(SP)
TYPOC
.DSABL
CRF
TYPE
MSGO18
TYPEIT
,MSGO18

.DSABL

BR LS21
LS20:::::::

BGE L522

: sSAVE RO FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
;2 SPACES

CRF

CRF
.DSABL
END ;OF FOR RO

; ;SAVE (RO) FOR TYPEQUT
;360 TYPE--OCTAL ASCII(CALL DIGITS)
ADD #2,R0O

CMP RO, #USESTK-2
BLE B107
ELSE

000402
070412

104401

002660

005037

002220

012600
000207

;IS EMPTY

CRF
.DSABL
END ;OF IF RO

TYPOCT
(RO)
MOV
(RO),-(SP)
TYPOC

011046
104402

104401

MSGO91
,MSGO91

FOR RO

010046
104402

062700
020027
003763

TYPE
TYPEIT

070412

012600

104401

E106:;:::::::

ELSE

000402

104401

Page 434-2

TYPE
TYPEIT

MSGO91
,MSG091

TYPE
TYPEIT

$CRLF
$CRLF
CRF
DETFLAG

.DSABL
CRF
END ;OF IF RO

.DSABL
CLR

POP

RETURN

;IS EMPTY

LS23:::::::

MOV (SP).,RO

El4

CVMJAAQ MSV11-J MEMORY DIAG.
' ROUTINE BINARY TO OCTAL (ASCII) AND TYPE

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0380
.SBTTL

13552

13553

Page 437

ROUTINE BINARY TO OCTAL (ASCII) AND TYPE

L L

T T

T T T T T

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

T TP

;#0CTAL (ASCII) NUMBER AND TYPE IT.
;#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
;#CALL:
MOV
i*
: ;NUMBER TO BE TYPED
i¥
TYPOS
:;:CALL FOR TYPEOUT
i *
BYTE
::N-110'6 FOR NUMBER OF DIGITS T0 TYPE
BYTE
i¥

¥
' ¥
&

::1=TYPE LEADING ZEROS

: 10=SUPPRESS LEADING ZEROS

:tSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

;#$TYPOS OR $TYPOC

;#CALL:
MOV
B
i*

TYPON

NUM, -(SP)

; sNUMBER TO BE TYPED
::CALL FOR TYPEOUT

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
;*CALL:
NUM, -(SP)
MOV
i*
: sNUMBER TO BE TYPED
TYPOC
ik
:;CALL FOR TYPEOUT

13577 054056
13578 054062
13579 054070
13580 054074
13581 054100
13582 054102
13583 054110
13584 054116
13585 054124
13586 054126
13587 054130
13588 054132
13589 054136
13590 054140
13591 054144
13592 054150
13593 054154
13594 054160
13595 054162
13596 054164
13597 054166
13598 054170
13599 054172
13600 054174
13601 054176

13605 054212
13606 054214

13607 054216
13608 054220

017646
116637
112637
062716

112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
006105
006105
006105
010503
006103
105337
100016
042703
005704
001403
005204

054303
000002

000001
000005

054301

054301
054303
054300

$TYPOS:

a(SP),-(SP)
1(SP), $OFILL
(SP)+, $OMODE -1
#2,(SP)
$TYPON
#1,$0FILL

$TYPOC:

#6, $OMODE -1
#5, $OCNT

$TYPON:

$OMODE+1,R4

054303

054301
000012

054302

1$:

ROL

2%:

ROL

3$:

ROL

177770

TST
BEQ
INC

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

; ;SAVE R3
; ;SAVE R4
; :SAVE RS

;;GET THE NUMBER OF DIGITS TO TYPE

#6,R4

; sSUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE

12(SP).RS

; ;PICKUP THE INPUT NUMBER
; ;CLEAR THE OUTPUT WORD

R4, $OMODE
$OFILL R4

054302

; ;PICKUP THE MODE
;sLOAD ZERO FILL SWITCH
: sNUMBER OF DIGITS TO TYPE
: ;ADJUST RETURN ADDRESS

R3
RS

3¢

RS
RS
RS
R5,R3
R3
$0MODE
64
#177770,R3
4%
R4
5§
R4

;3GET THE ZERO FILL SWITCH

; ;ROTATE MSB INTO “C"

;:G0 DO MSB
; ;FORM THIS DIGIT

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

::GET RID OF JUNK
;s TEST FOR O
: ; SUPPRESS THIS 0?
:;:BR IF YES

:;DON'T SUPPRESS ANYMORE 0'S

pes

CVMJAAQ MSV11-J MEMORY DIAG.

F14

MACRO V05.01b Friday 15-Feb-85 16:10

| ROUTINE BINARY TO OCTAL (ASCII) AND TYPE

13609 054222
13610 054226

052703
052703

110337

054276

054236

104401

054276

13613 054242
13614 054246

105337
003347

054300

13611 054232
13612 054236

13615 054250

005204

13618 054256
13619 054260
13620 054262
13621 054264
13622 054272

012605
012604
012603
016666
012616

13624 054276
13625 054277
13626 054300
13627 054301

000
000
000
000

13623 054274

13628 054302

5§:

6%:

000000

7%:
000002

000004
8%:

R3,8%
8¢

.DSABL

CRF

DECB
BGT

,8%

; sMAKE THIS DIGIT ASCII
; sMAKE ASCII IF NOT ALREADY

: sSAVE FOR_TYPING
- 3:6G0 TYPE THIS DIGIT

$OCNT
2%

::COUNT BY 1
;:BR IF MORE TO DO

INC

; sINSURE LAST DIGIT ISN'T A BLANK

MOV
MOV
MOV
MOV
MOV

(SP)+,RS
(SP)+,R4
(SP)+,R3
2(SP),4(SP)
(SP)+,(SP)

RTI

.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE:

#'0,R3
#' ,R3

MOVB
TYPE

BLT

000744

000002

BIS
BIS

TYPEIT

002402

13616 054252
13617 054254

000060
000040

Page 437-1

.WORD

0
0
0
O
O

; ;BR_IF DONE

::G0 DO THE LAST DIGIT

; sRESTORE RS
; sRESTORE R4
; sRESTORE R3
::SET THE STACK FOR RETURNING
; sRETURN

: sSTORAGE _FOR ASCII DIGIT
: s TERMINATOR FOR TYPE ROUTINE
; ;0CTAL DIGIT COUNTER
;s ZERO FILL SWITCH
; iNUMBER OF DIGITS TO TYPE

SEQ 0381

Gl4

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10

ROUTINE CONVERT BINARY TO DECIMAL AND TYPE

13630

.SBTTL

‘
13631
13632

Page 438

SEQ 0382

ROUTINE CONVERT BINARY TO DECIMAL AND TYPE

JEFREERRRRREERREEERERRRRERRREERRRE R R AR R RRRERERE R R R AR SRR NNk E e bbb et
:#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

13633
13634
13635
13636

;#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;#BEFORE_THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:#REPLACED WITH SPACES.

13639
13640 054304
054304
054306
054310
054312
054314
13641 054316
13642 054322
13643 054326
13644 054330
13645 054332
13646 054340
13647 054342
13648 054346
13649 054352

i*
TYPDS
$TYPDS: PUSH

13637
13638

13650 054354
13651 054360
13652 054362
13653 054364

13654 054366
13655 054370
13656 054372
13657 054374
13658 054376

s#CALL:
P
MOV

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000

012703
112723
005002
016001
160105
002402
005202

13659 054400
13660 054402
13661 054404
13662 054406
13663 054414
13664 054420
13665 054424
13666 054426

000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720

13668 054434
13669 054436
13670 054440
13671 054442
13672 054444

002746
003002
010502
000764
105726

13674 054450

116663

020200
000020
000055

000001

054520
000040

1%:
2:

054510

as:

5%:
000001
000060
000040

177777

64:
7%:

13667 054430 020027 000010

13673 054446

100003

13675 054456 105013

13676 054460

054460
054462
054464
054466
054470

012605
012603
012602
012601
012600

177777

177776

9s:

RO,R1,R2,R3,RS

:;PUT_THE BINARY NUMBER ON THE STACK
1360 TO THE ROUTINE

MOV RO, -(SP)
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(5P)
MOV RS, -(SP)

MOV
MOV
BPL
NEG
MOVB
CLR
MOV
MOVB
CLR

#20200,-(SP)
20(SP) RS
1
RS
#'-,1(SP)
RO
#$DBLK,R3
&' ,(R3).
R2

BR
ADD
TST
BNE
1ST8
BMI
ASLB
BCC
MOVE
BIS
BIS
MOVB
ST

38
R1,RS
R2
53
(SP)
7%
(SP)
5%
1(SP),-1(R3)
#'0,R2
# ,R2
R2,(R3)+
(RO)+

BLT
BGT
MOV
BR
TSTE

24
8$
RS,R2
6%
(SP).

::60 DO THE NEXT DIGIT
::60_TO EXIT
::GET THE LSD
::6G0_CHANGE TO ASCII
:iWAS THE LSD THE FIRST NON-ZERO?

MOVB

-1(SP),-2(R3)

;;YES--SET THE SIGN FOR TYPING

MOV
SUB
BLT
INC

CMP

8s:

NUM, -(SP)

BPL

CLRB

POP

$DTBL(RO),R1
R1,RS
4%
R2

RO, #10

(R3)

RS,R3,R2,R1,R0

n bbb d

;;SET BLANK SWITCH AND SIGN
;iGET_THE INPUT NUMBER
::BR IF INPUT IS POS.
: iMAKE THE BINARY NUMBER POS.
: iMAKE THE ASCII NUMBER NEG.
: :ZERO_THE CONSTANTS INDEX
:;SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER

;;GET THE CONSTANT
: sFORM_THIS BCD DIGIT
::BR_IF DONE
: ;INCREASE THE BCD DIGIT BY 1

;;ADD BACK THE CONSTANT
: sCHECK IF BCD DIGIT=0
: iFALL THROUGH IF 0
::STILL DOING LEADING 0'S?

::BR IF YES
:1MSD?
::BR IF NO
;;YES--SET THE SIGN
: sMAKE THE BCD DIGIT ASCII
:sMAKE IT A SPACE IF NOT ALREADY A DIGIT
:iPUT_THIS CHARACTER IN THE OUTPUT BUFFER
: :JUST INCREMENTING

: sCHECK THE TABLE INDEX

:iBR _IF NO

::SET THE TERMINATOR

MOV (SP)+,RS
MOV (SP)+.R3
MOV (5P)s+,R2
MOV (SP)..R1
MOV (5P).,R0

EEEER————
D
e=

H14

CVMJAAQ MSV11-J MEMORY DIAG.

MACRO V05.01b Friday 15-Feb-85 16:10
! ROUTINE CONVERT BINARY TO DECIMAL AND TYPE

13677 054472
054472

104401

054520

13678 054476
13679 054504
13680 054506
13681 054510
13682 054512
13683 054514
13684 054516
13685 054520
054526

016666
012616
000002
023420
001750
000144
000012
000000
000000

000002

$DBLK

.DSABL

CRF

TYPEIT

MOV
MOV

000004
$DTBL :

000000

TYPE

000000

$DBLK:

RTI
10000.
1000.
100.
10.
.WORD

Page 438-1

:;NOW TYPE THE NUMBER

,$DBLK

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

0,0,0,0

; sADJUST THE STACK
; sRETURN TO USER

SEQ 0383

— ——

———————
—

-y

——

——
—

CVMJUAAQ MSV11-J MEMORY DIAG.

. ROUTINE TTY INPUT

———

MACRO V0S.01b Friday 15-Feb-85 16:10

13727 054704
054704
13728 054710
054710
054714

——

Page 439

SEQ 0384
.SBTTL

ROUTINE TTY INPUT

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
;#*ROUTINE IS ENTERED FRCM THE TRAP HANDLER, AND WILL
;#*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
;*WHEN OPERATING IN TTY FLAG MODE.

13694 054530

13718 054646
13719 054652
13720 054654
13721 054662
13722 054664
13723 054670
13724 054672
13725 054676
13726 054700
054700

—————
.
———
.

114

13687
13688
13689
13690
13691
13692
13693

13697 054536
13698 054542
13699 054546
13700 054552
13701 054556
13702 054560
13703 054564
13704 054570
13705 054574
13706 054576
13707 054602
13708 054606
13709 054610
13710 054614
13711 054620
13712 054622
13713 054626
13714 054630
13715 054634
13716 054640
13717 054642
054642

—

$CKSWR:

047246

055152
000003
000023

2%:

055226
000013

17§:

126060
177600
000006
041054
000024

104401

055144

013706

002146

000207
022737
001075

022716
001072
005737
001067
104401
104401

017746
104402

13729 054716
054716

104401

13730 054722
13731 054724
13732 054726

005046
005046
105777

TST

BEQ
MOV
CLR
JMP
TSTB
NOCH:
BPL
MOove
BIC
CONTS1: CMP
BNE
CALL
14:
CMP
BNE
CALL
164:
CMP

047246
047246
054570
126064

001005

.ENABLE LSB

000176

9?.(SP)

1
FIELDSERVICE
#24,(SP)
164

CONTT

#3,(SP)
54
#23,(SP)
17¢
CONTS
0%3.(SP)
6
$CNTLK

, $CNTLK

002636

.DSABL

TYPOCT
MOV
TYPOC

125722

.DSABL

055766
3$:
44:

TYPE
TYPEIT
.DSABL

CLR
CLR

TSTB

;IS IT CONTROL T?
;NO - SKIP
;YES - CALL CONTROL T ROUTINE
;IS IT CONTROL C?

;YES EXIT ##%%%xNOTE#**%% STACK IS SCREWED UP!

;IS IT CONTROL S?
;NO - SKIP
;YES - CALL CONTROL S ROUTINE
;IS IT CONTROL K?
;NO - SKIP

;TYPE A tK

$CNTLG

; ;ECHO THE CONTROL-G (tG)

, SCNTLG

$GTSWR: T

; ;CHAR THERE?
;;IF NO, DON'T WAIT AROUND
; ;SAVE THE CHAR
;;STRIP-OFF THE ASCII
;IS IT CONTROL F?
;NO SKIP

CKEND
#7,(SP)
CKEND
$AUTO

CKEND

055750

; ;SOMETHING THERE?
;: GO ON IF NOT
;3 USE IT

;RESET KSP TO AFTER PATTERN EXEC ROUTINE
;RETURN TO PATTERN EXEC ROUTINE
;:1S THE SOFT-SWR SELECTED?
; ;BRANCH IF NO
::IS IT A CONTROL G?
::NO, RETURN TO USER
;ARE WE RUNNING IN AUTO-MODE?

#SWREG, SWR

6%:

002062

125710

XOCHAR

CONTS1
3$TKS
SWREND
a$TKB, -(SP)
#1C177,(SP)

CRF
,
CTLKVECSP

000007

055755

XOCHAR

NOCH
XOCHAR, -(SP)

;BRANCH IF YES

CRF
$MSWR

; s TYPE CURRENT CONTENTS

CRF
aSWR
aSuWR, -(SP)

; ;SAVE @SWR FOR TYPEOUT

, $MSWR

CRF
$MNEW
. SMNEW
CRF
-(SP)
-(SP)
F$TKS

;;0F THE SWR

;:G0 TYPE--OCTAL ASCII(CALL DIGITS)

; ;PROMPT FOR NEW SWR

: ;CLEAR COUNTER
; s THE NEW SWR
; ;CHAR THERE?

—

——

CVMJAAQ MSV11-J MEMORY DIAG.

'ROUTINE TTY INPUT

—

Jl4

MACRO V05.01b Fridey 15-Feb-85 16:10

SEQ

13733 054732
13734 054734
13735 054740
13736 054744
13737 054750
13738 054752
054752

100375
117746
042716
021627
001006

125704
177600
000003

104401

055736

13739 054756
13740 054762
13741 054766
13742 054772
13743 054774
054774

062706
000137
021627
001005

000006
040534
000025

104401

055743

13744 055000
13745 055004
13746 055006
13747 055012
13748 055014
13749 055020
13750 055022
13751 055030
055030
055034
13752 055036
13753 055042

062706
000746
021627
001024
005766
001403
016677

000006

8%:

000015

9¢:

005737
001403
062706

002566
000006

000402

13754 055044
13755 055050
055050
13756 055050
055050

062706

13757 055054

000002

104401

5%:

7%:

000004

000002

000010

002660

Page 439-1

125606

10%:

BPL
MOvB
BIC
cMP
BNE
TYPE

43
3$TKB, -(SP)
#tC177,(SP)
(SP),#3
7%
$CNTLC

.DSABL
ADD
JMP

CRF
#6,SP
QUIT

TYPEIT

CMP

,$CNTLC

(SP),#25

BNE
9¢
TYPE
$CNTLU
TYPEIT
,$CNTLU
.DSABL
CRF
ADD
#6,SP
BR
3¢
CMP
(SP),#15
BNE
13
TST
4(SP)
BEQ
104
MOV
2(SP),aSWR
IF SWRFLG IS TRUE
ADD
ELSE

#6,SP

;:IF NOT TRY AGAIN

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

::IS IT A CONTROL-C?
; ;BRANCH IF NOT
::YES, ECHO CONTROL-C (tC)

: ;CLEAN UP STACK
; ;CONTROL-C HALT
;IS IT A CONTROL-U?
; ;BRANCH IF NOT
::YES, ECHO CUNTROL-VU (tu)

; ; IGNORE PREVIOUS TNPUT
;3LET'S TRY IT AGAIN
:3IS IT A <CR>?
; ;BRANCH IF NO
:3YES, IS IT THE FIRST CHAR?
; ;BRANCH IF YES
; ;SAVE NEW SWR
TST SWRFLG

: sCLEAR UP STACK

BR L525

ADD

#10,SP

: sCLEAR UP STACK

TYPE
TYPEIT

$CRLF
,$CRLF

;;ECHO <CR> AND <LF>

END

.DSABL
SWREND: RTI

BEQ L524

CRF

; sRETURN

LS2S:::::::

0385

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE TTY INPUT

13758 055056
13759 055062
13760 055064
13761 055070
13762 055074

13763 055076

062706
000002
004737
021627
002420

021627

13764 055102
13765 055104
13766 055110
13767 055114
13768 055116
13769 055120
13770 055122

003015
042726
005766
001403
006316
006316
006316

13772 055130
13773 055134
13774 055136
055136

056616
000674

13771 055124

13775 055142
13776 055144
13777

13778

055147

MACRO V05.01b Friday 15-Feb-85 16:10

000002

CKEND:

047250
000060

13%:

000067

000002

104401

002657

000716
136

113

145:

177776

000

15%:

#2,5P

$TYPEC
(SP),#60
15¢

;FIX STACK
;RETURN
: ;ECHO CHAR
; ;CHAR < 07
: ;BRANCH IF YES

BGT
BIC
TST
BEQ
ASL
ASL
ASL

154
#60,(SP)+
2(SP)
144
(SP)
(SP)
(SP)

; ;BRANCH IF YES
; sSTRIP-OFF ASCII
::1S THIS THE FIRST CHAR
; ;BRANCH _IF YES
:iNO, SHIFT PRESENT
;s
CHAR OVER TO MAKE
;s
_ROOM FOR NEW ONE.

BIS
BR
TYPE
TYPEIT

-2(SP),(SP)
4%
$QUES
,$QUES

INC

.DSABL

015

$CNTLK:

Page 439-2

ADD
RTI
CALL
cMP
BLT

CMP

000060
000002

005266

012

K14

BR
.ASCIZ
.EVEN

.DSABL

(SP),#67

2(SP)

CRF

8¢
/tK/<15><12>

LSB

;:CHAR > 7?2

; sKEEP_COUNT OF CHAR
: :SET IN NEW CHAR
: sGET _THE NEXT ONE
i s TYPE 2<CR><LF>

; ;SIMULATE CONTROL
-V
;CONTROL K ASCII STRING

SEQ 0386

——
- —

CVMJAAQ MSV11-J MEMORY DIAG.

'ROUTINE TTY INPUT

L14

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0387

CONTT:

13781 055152

SUBTST

13793 055160

055160
055164
13794 055166
055166

13795 055172
055172
13796 055172
055172

JERERRRERRRRR R R

PUSH

010046

104401

002660

005737
001402

002126

104401

070424

070440
002102

055205

013746
104403
003
000

13798 055206
055206

104401

070446

13799 055212
055212
055216
055220
055221

013746
104403
002
000

002300

13803 055222
055222
13804 055224
13805

CONTROL T
R RRRRE

RN RN RN RN RN

R ER R R R R R

R RN RN AR RAR R AR AR AR

R R RN R

RN RN R R R R AR

012600
000207

AR RN ARkt R Rttt e bRt bbbt e g

R Rt R R bR Rt b

TYPE
MSG092
TYPEIT
,MSG092
.DSABL
CRF

;RELOCATED

TYPE
TYPEIT

;:BANK=

MSG093
,MSG093

kst

MOV RO,-(SP)

TYPE
$CRLF
TYPEIT
,$CRLF
.DSABL
CRF
IF RLFLAG IS TRUE

END ;OF IF RLFLAG

104401

13797 055176
055176

<<CONTROL T>>

GEERRRRA AR RRREERR AR LR RE R

; *SUBTEST

13782 055152
055152
13783 055154
055154

Page 441

TST RLFLAG
BEQ LS26

LS26:::::::

CRF
.DSABL
TYPOCS
BANK, ,3
; TYPE 3 DIGITS
MOV
BANK, -(SP)
FOR TYPEOUT
BANK
; s SAVE
TYPOS

.BYTE
.BYTE
.DSABL

3
0
CRF

TYPE
TYPEIT

MSGO95
,MSGO95

POP

::60_TYPE--OCTAL ASCII
;s TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS
;PAT=

CRF
.DSABL
REALPAT, .- |
TYPOCS
;TYPE 2 DIGITS
MOV
REALPAT, -(SP)
.-SAVE REALP“T FOR TYPEOQUT
TYPOS
;;6G0 TYPE--OCTAL ASCII
;3 TYPE 2 DIGIT(S)
S
2
0
.BYTE
; ; SUPPRESS LEADING ZEROS
CRF
.DSABL

RETURN

MOV (SP)+,RO

—

| CVMJUAAQ MSV11-J MEMORY DIAG.

| CONTROL S & CONTROL Q

M14

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0388

CONTS:

13806 055226

G ERER

SUBTST

<<CONTROL S & CONTROL Q>>

RERRRRRR TR

;#SUBTEST

13807 055226

Page 441-1

AR EREREXRRRERREERERRRRR
RN RR RN RN E R RN LR R RN RN RN RO d Rt e e

CONTROL S & CONTROL Q

;EERFEERRRRRERERRRRERERERERERRRRRERRREXRRERRLRRERRRRRRRE
R AR AR R SRR R RN bbbt O
e

012600

105777
100375
117716

POF

125406

042716

125402
177600

021627

000021
054570

CONTS2: TST8B
BPL
MOVB
BIC
IF (SP)
JMP

ELSE

;GET RID OF RETURN ADDRESS FROM STACK

3$TKS

;WAIT FOR CHARACTER

CONTS2
@$TKB, (SP)
#1C177,(SP)
EQ #21
CONTS1

BR
CONTS2
END ;OF IF (SP)

;REPLACE OVER OLD CHARACTER ON STACK
;STRIP ALL BUT ASCII
;IF IT IS A CONTROL Q
CMP (SP),021
BNE LS27
BR LS30
LS27:35:3:533
LS30:;:::::

—

Y DIAG.

:OIHIE ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

SEERREREEE

i *

" RDCHR

RETURN HERE

233333333
33353558

000004

125342

]

3§u§§§§§§3

iAW
o

125336
177600
000004

000002

000023

125310

2%:

MOV
MOV
1578
BPL
Move
BIC
CMP

(SP),-(SP)
4(SP),2(SP)

1578

3$TKS

BNE
BPL

BIC
cHP

000004

000021

000004

000140

000004

000175

34:

44:

33$TKS

1%
8$TKB,4(SP)
#1C<177>,4(SP)
4(SP), 823
34

MOovB

125304
177600
000021

000040

@$TKB, -(SP)
#1C177,(SP)
(SP)+,%21

BNE
BR

24
1$

CMP
BLT
CMP
BGT
BIC

4(SP),#140
as

CMP
BEQ

RTI

4(SP),#21
13

4(SP),#175
4%
#40,4(SP)

:3INPUT A SINGLE CHARACTER FROM THE TTY
: ;CHARACTER IS ON THE STACK
; ;WITH PARITY BIT STRIPPED OFr

; ;PUSH DOWN THE PC
;sSAVE THE PS
:;WAIT FOR
:sA CHARACTER

;;READ THE TTY
;3GET RID OF JUNK IF ANY
:3IS IT A CONTROL-S?
; ;BRANCH IF NO
; sWAIT FOR A CHARACTER
;3LO0P UNTIL ITS THERE
:;GET CHARACTER
:sMAKE IT 7-BIT ASCII
;3IS IT A CONTROL-Q?
;3IF NOT DISCARD IT
;;YES, RESUME
:3IS IT A RANDOM CONTROL-Q?
; sBRANCH BACK IF SO
;:IS IT UPPER CASE?
; ;BRANCH IF YES
::IS IT A SPECIAL CHAR?
; iBRANCH IF YES

;iR-C
;R-C

:sMAKE IT UPPER CASE

::G0 BACK TO USER

i
bt
L
T T T T T T T

;#THIS ROUTINE WILL INPUT A STRING FROM THE TTY

;#CALL:

i ¥

ROLIN
RETURN HERE

P339
Sos

$RDLIN: MOV

SAUAaviT

—OV®IoWm
VBN

-0

Page 442

SEQ 0389

;sCAL

O0OO0O0O0CO000000O

g“gEgages....3..
ug 133333 £
Ol Gl Ol

N14

MACRO V05.01b Fridey 15-Feb-85 16:10

L
L L L
T T L LT

Sug EEEE
33tSKREDE

e
s et

s e et s Pt e
Ol
G
0 5t e
Pt
ot P
s o
s
s e
s
s
s
Bt
B

—

2
gguas
3D2
§§
e
RRRROREE 3 8

14:
2$:

055712
055736

000003

55444

000137
122713

002420
040604
040534
000177

R3,-(SP)
-(SP)
#$TTYIN,R3
.
,R3
#$TTYIN+20
8¢

MOvB
CMPB
BNE

(SP)+,(R3)
#3,(R3)
34

.DSABL
TST
MOV
BIT
BEQ

CRF
(SP)+
(SP)+,R3
#BIT8,3SWR
114
STOPOK

BLOS
ROCHR

TYPE
TYPEIT

055736

000400

CLR
MOV
CMP

125154

CLR

11%:
3$:

JMP

JMP
CMPB

$CNTLC
,$CNTLC

EXIT

QUIT
#177,(R3)

;:INPUT A STRING FROM THE TTY
; s ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
; ; TERMINATOR WILL BE A BYTE OF ALL 0'S
: ;SAVE R3

; ;CLEAR THE RUBOUT KEY
; ;GET ADDRESS
; ;BUFFER FULL?
::BR IF YES
;:G0 READ ONE CHARACTER FROM THE TTY
;s sGET CHARACTER
331IS IT A CONTROL-C?
; ;BRANCH IF NO
;3 TYPE A CONTROL-C (tC)

; ;CLEAN RUBOUT KEY OFF OF THE STACK
; sRESTORE R3
::IS THERE A HALT FLAG SET IN THE SWR?
; ;BRANCH IF NOT TO HALT ROUTINE
;;GET READY TO HALT PROGRAM
; ;G0 HALT PROGRAM
;;G0TO CONTROL-C HALT
::IS IT A RUBOUT

8&#3385°¢ LoNTRoL
G

DIAG.

13873 055504
13874 055506
13875 055510
13876 055512
13877 055520
055520

001022
005716
001007
112737

000134

104401

055710

13878 055524
13879 055530
13880 055532

012716
005303
020327
103434

177777

13881 055536
13882 055540
13883 055544
055544

104401

055710

13884 055550
13885 055552
13886 055554
13887 055556
13888 055564
055564

000725
005716
001406
112737

000134

104401

055710

13889 055570
13890 055572
13891 055576
13892 055600
055600

005016
122713
001003

000025

104401

055743

13893 055604
13894 055606
13895 055612
13896 055614
13897 055616
055616

000705

13898 055622
055622

13899 055626
13900 055630

001011

4%:

.DSABL
MOV
DEC
cHP
BLO
MOve
TYPE
TYPEIT

S$:

055710

..IS THI%OTHE FIRST RUBOUT?
iBR IF

$TYPE A BACK SLASH

23.0$TTYIN

(R3),10%

.DSABL
BR
TST
BEQ
MOvB

;:BR IF NO
::TYPE A BACK SLASH

; ;CLEAR THE RUBOUT KEY
;IS CHARACTER A CTRL U?
::BR IF NO

;s TYPE A CONTROL

7%:

#22,(R3)
9%

(R3)

105013

104401

002660

104401

055712

$CRLF

. $CRLF
CRF

002657

13901 055634

000671
111337

055710

104401

055710

122723

000015

8¢:

9$:

177777
002661

"u"

::6G0 START OVER
;:IS CHARACTER A "tR"?
; ;BRANCH IF NO
;;CLEAR THE CHARACTER
:sTYPE A "CR" & "LF"

$TTYIN

;s TYPE THE INPUT STRING

2%
$QUES

::TYPE A

LSTTYIN
CRF

000676
104401

::SET THE RUBOUT KEY
: ;BACKUP BY ONE
;sSTACK EMPTY?
;3:BR IF YES
; sSETUP TO TYPEOUT THE DELETED CHAR.
::G0 TYPE

;:G0 READ ANOTHER CHAR.
; ;RUBOUT KEY SET?

6%:

000022

055630

13904 055646
13905 055652
13906 055654
13907 055660
55660

::BR IF NO

757
BNE
MOVB
TYPE
TYPEIT

055710

055712
055710

Page 442-1

SEQ 0390
BNE

111337

122713

B15

MACRO V05.01b Fridey 15-Feb-85 16:10

, $QUES

CRF
14
(R3),10¢
104
, 104
CRF
#15,(R3).
2%

::6G0 PICKUP ANOTHER CHACTER
' 2

; ;CLEAR THE BUFFER AND LOOP
; sECHO THE CHARACTER

; sCHECK FOR RETURN
;:LOOP IF NOT RETURN
; sCLEAR RETURN (THE 15)
::TYPE A LINE FEED

: ;CLEAN RUBOUT KEY FROM THE STACK

13910 055670
13911 0SSe72

; sRESTORE R3
000004

000002

; ;ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT

CVMJAAQ MSV11-J MEMORY DIAG.
CONTROL S & CONTROL @
]
|

13912 055700
13913 055706
13914 055710
13915 055711
13916 055712
13919 055736
055741
13920 055743
055746
13921 055750
055753

13922 055755
055760
055763
13923 055766
055771
13924

055774

012766

000002
000
000
000024
136
012

055712

C15

MACRO V05.01b Friday 15-Feb-85 16:10

Page 442-2

SEQ 0391

000004

MOV

#$TTYIN,4(SP)

0
0

9?é/<15><12>

;:STORAGE FOR ASCII CHAR. TO TYPE
; s TERMINATOR
: ;RESERVE SIZE BYTES FOR TTY INPUT
: ;CONTROL "C"

RTI

: sRETURN

103

015

$TTYIN:
$CNTLC:

.BYTE
.BYTE
.REPT
.ASCIZ

136

125

015

$CNTLU:

.ASCIZ

/tU/<15>¢<12>

; ;CONTROL "U"

136
012
015
127
075
040
105

107

015

$CNTLG:

.ASCIZ

/tG/<15><12>

; ;CONTROL "G"

012
122

123

$MSUR:

.ASCIZ

<15><12>/SWR

116
040

$MNEW:

.ASCIZ

012

075

10¢%:

127
040

.EVEN

NEW = 7/

CVMJAAQ MSV11-J MEMORY DIAG.

D15

MACRO V05.01b Friday 15-Feb-85 16:10

ROUTINE READ AN OCTAL NUMBER FROM THE TTY
13926

.SBTTL

Page 443

SEQ 0392 !

ROUTINE READ AN OCTAL NUMBER FROM THE TTY

13927

13928
13929
13930
13931
13932

;#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;#*CHANGE IT TO BINARY.
;#THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*0OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED
;#*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

13935
13936
13937
13938 056000
13939 056002
13940 056010
056010
056012
056014
13941 056016
13942 056020
13943 056022
13944 056026
13945 056030
13946 056032
13947 056034
13948 056036
13949 056042
13950 056044

3%
RDOCT
i%
RETURN HERE
i¥
$RDOCT: MOV
(SP),-(SP)
MOV
4(SP),2(SP)
PUSH
RO,R1,R2

;;READ AN OCTAL NUMBER
;:LOW ORDER BITS ARE ON TOP OF THE STACK
; sHIGH ORDER BITS ARE IN $HIOCT
; ;PROVIDE SPACE FOR THE
; s INPUT NUMBER

14:

; ;READ AN ASCIZ LINE
;;GET ADDRESS OF 1ST CHARACTER
; ;AND SAVE IT
; ;CLEAR DATA WORD

iggg}

T T T

T I

LI I

:tgnfr BE RETYPED. THE INPUT IS TERMINATED BY TTYPING A CARRIAGE RETURN.
i¥

011646
016666
010046
010146
010246

104412
012600
010037
005001
005002
112046
001420
122716
003026
122716

13951 056050
13952 056052
13953 056054
13954 056056
13955 056060
13956 056062
13957 056064
13958 056066

002423
006301
006102
006301
006102
006301
006102
042716

13960 056074
13961 056076
13962 056100
13963 056104
13964 056110

000756
005726
010166
010237

13959 056072

056110
056112
056114
13965 056116

13966 056120
13967 056122
13968 056124

062601

13969 056126

000000

13971 056134

056134

2%:
000060
000067

177770

000012
056146

005726
105010
104401

000002

056126

012602
012601
012600
000002

056124

13970 056130
056130

000004

3$:

S5¢:
067776

104401

070016

RDLIN
MOV
MOV
CLR
CLR
MOVB
BEQ
CMPB
BGT
CMPB

(SP)+,RO
RO,5¢
R1
R2
(RO)+,-(SP)
34
#'0,(SP)
43
#'7,(5P)

BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC

4%
R1
R2
R1
R2
R1
R2
#tC7,(SP)

BR
18T
MOV
MOV
POP

2%
(SP)+
R1,12(SP)
R2, $HIOCT
R2,R1,RO

ADD

44:

104401

RTI
TST

CLRB
TYPE

TYPEIT
.DSABL

.WORD

(SP)+,R1

(SP)«
(RO)

MSGO62
,MSGO62
CRF

TYPEIT

,MSGO63

TYPE

; ;PICKUP THIS CHARACTER
::IF ZERO GET OUT
; sMAKE SURE THIS CHARACTER
;1S AN OCTAL DIGIT

;%2
;%4

; ;%8

;:STRIP THE ASCII JUNK
;;ADD IN THIS DIGIT
; :LOOP
; ;CLEAN TERMINATOR FROM STACK
;:SAVE THE RESULT

; ;RETURN
; ;CLEAN PARTIAL FROM STACK

;:SET A TERMINATOR
;:TYPE UP THRU THE BAD CHAR.

CRF

TYPE
TYPEIT
.DSABL

MSGO063

MOV RO,-(SP)
MOV R1,-(SP)
MOV R2,-(SP)

; INPUT MUST BE A

;N OCTAL

MOV (SP)+,R2
MOV (SP)+,R1
MOV (SP)+,R0O

CVMJAAQ MSV11-J MEMORY DIAG.

E15

MACRO V05.01b Friday 15-Feb-85 16:10

ROUTINE READ AN OCTAL NUMBER FROM THE TTY

13972 056140
056140
13973 056144
13974 056146
%;3;2

104401

070027

000724
000000

13977

13978
13979
13980
13981
13982
13983
13984
13985

CRF

.DSABL

CRF

MSG064
,MSGO64

SEQ 0393

:NUMBER

BR
$HIOCT: .WORD
.SBTTL

1%
..TRY AGAIN
O
;HIGH ORDER BITS GO HERE
ROUTINE READ A DECIHAL NUMBER FROM THE TTY

RETURN HERE

T T I

;*THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND
;#CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR _ANY ILLEGAL CHARACTERS
;#ARE READ A “?" FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED.
;*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE
;*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS
;#*POSITIVE 32767 TO NEGATIVE 32768.
;#CALL:
i*
RDDEC
; sREAD A DECIMAL NUMBER

igggg

13988
13989 056150
13990 056152
13991 056160
056160
056162
056164

13992 056166
13993 056170
13994 056172

011646
016666
010046
010146
010246
104412
012600
010037

13995 056176
13996 056200
13997 056202
13998 056206
13999 056210
14000 056212
14001 056214
14002 056216
14003 056222
14004 056224
14005 056230
14006 056232
14007 056236
14008 056240
14009 056242
14010 056244
14011 056246
14012 056250

005046
005002
122710
001001
112002
112001
001424
122701
003032
122701
002427
032716
001024
006316
011646
006316
006316
062616

14014 056254
14015 056260
14016 056262

162701
060116
102412

14013 056252

14017
14018
14019
14020
14021
14022

.DSABL

TYPE
TYPEIT

Page 443-1

056264
056266
056270
056272
056274
056300

102416

000752
005702
001401
005416
012666

000004

000002

$RODEC: MOV
MOV
PUSH

ItH
056316

2%:
000060
000071
170000

000060

(SP)+,RO
RO,6%

Move
Move
BEQ
CMPB
BGT
CMPB
BLT
BIT
BNE
ASL
MOV
ASL
ASL
ADD
BVS

(RO)+,R2
(RO)+,R1
33
#'0,R1
S5
#'9,R1
54
#1C7777,(SP)
S$
(SP)
(SP),-(SP)
(SP)
(SP)
(SP)+,(SP)
S5$

SuB
ADD
BVS

34:

000012

ROLIN
MOV
MOV

CLR
CLR
CMPB
BNE

000055

4s:

(SP),-(SP)
4(SP),2(SP)
RO,R1,R2

BR
TST
BEQ
NEG
MOV
POP

-(SP)
R2
#'-,(RO)
2%

#'0,R1
R1,(SP)
5$

2%
R2
4%
(SP)
(SP)+,12(SP)
R2,R1,RO

: sNUMBER IS ON TOP OF THE STACK

; sPROVIDE SPACE FOR
: s THE INPUT NUMBER

: sREAD AN ASCIZ LINE
: ;ADDRESS OF 1ST CHAR.
: s SAVE_INCASE OF BAD INPUT

: sCLEAR DATA WORD
: :SIGN SET POSITIVE
::SEE_IF A MINUS SIGN WAS TYPED
::BR IF NO MINUS SIGN
; :SAVE FOR LATER USE
; sPICKUP THIS CHARACTER
;sGET OUT IF ZERO
; sMAKE SURE THIS CHARACTER
::IS A DIGIT BETWEEN 0 & 9
;sDON'T LET NUMBER GET TO BIG
;;BR IF NUMBER WOULD OVERFLOW
ii%2
; sSAVE FOR LATER
ii%4
;%8
;:#10.

; sOVERFLOW ISN'T ALLOWED

; sSTRIP AWAY THE ASCII JUNK
; sADD IN THIS DIGIT
; sOVERFLOW ISN'T ALLOWED

; ;LOOP
; sCHECK IF NUMBER IS NEG
;:BR_IF NO
: s YES--NEGATE THE NUMBER
; sSAVE THE RESULT

MOV RO, -(SP)
MOV R1,-(SP)
MOV R2,-(SP)

F15

056300
056302
056304
14023 056306
14024
14025 056310
14026 056312

005726
105010

056314

104401

14028 056316
14029 056320
056320

000000

14027 056314

SEQ 0394

333

012602
012601
012600
000002

Page 443-2

S$:

RTI

; sRETURN

TST

; sCLEAN PARTIAL NUMBER FROM STACK
;sSET A TERMINATOR
::TYPE THE INPUT UP TO BAD CHAR.

TYPE
TYPEIT

6$:

104401

067776

11030 056324
056324

104401

070037

14031 056330
056330

104401

070027

14032 056334

000714

.DSABL

; sPOINTER GOES HERE
: INPUT MUSST BE A

TYPE
TYPEIT

.DSABL
TYPE
TYPEIT
.DSABL
TYPE
TYPEIT
.DSABL
BR

MSG065

,MSG065
,MSGO64

CRF
14

; DECIMAL
;NUMBER
; s TRY AGAIN

328

MACRO VUS5.01b Friday 15-Feb-85 16:10
CVMJAAQ MSV11-J MEMORY DIAG.
- ROUTINE READ A DECIMAL NUMBER FROM THE TTY

CVMJAAQ MSV11-J MEMORY DIAG.

' ROUTINE SAVE AND RESTORE RO-RS

G15

MACRO V05.01b Friday 15-Feb-85 16:10

i:gg;

.SBTTL

Peage 444

SEQ 0395

ROUTINE SAVE AND RESTORE RO-RS

14036

A
T T T T T T T T LI

14037
14038

;#*SAVE RO-RS
;#CALL:

i:g:g

OUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

14042
14043

tTOP---(016)
i* +2---(+18)

14045
14046
14047
14048
14049
14050
14051 056336
14052 056336
056336
056340
056342
056344
056346
056350

e +6---R4
* +8---R3
tolO---Rz
i#012---R1
i*%+14---RO

14039

14044

14053 056352

14054 056356
14055 056362
14056 056366
14057 056372
14058
14059
14060
14061
14062 056374
14063 056374

14064 056400
14065 056404
14066 056410
14067 056414

056414
056416
056420
056422
056424
056426
14068 056430

SAVREG

;% +4---RS

$SAVREG:
010046
010146
010246
010346
010446
010546
016646

016646
016646
016646
000002

000022

000022
000022
000022

PUSH

RO,R1,R2,R3,R4,R5

MOV

22(SP),-(SP)

MOV
MOV
MOV
RTI

22(SP),-(SP)
22(SP),-(SP)
22(SP),-(SP)

; sSAVE PS OF MAIN FLOW

MOV RO, -(SP)
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV R4,-(SP)
MOV RS, -(SP)

; sSAVE PC OF MAIN FLOW
; sSAVE PS OF CALL
: iSAVE PC OF CALL

; *RESTORE RO-RS
;*CALL:
RESREG
i*

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

MOV
MOV
MOV
MOV
POP

RTI

(SP)+,22(SP)
; ;RESTORE PC OF CALL
(SP)+,22(SP)
; ;RESTORE PS OF CALL
(SP)+,22(SP)
; sRESTORE PC OF MAIN FLOW
(SP)+,22(SP)
; ;RESTORE PS OF MAIN FLOW
R5,R4,R3,R2,R1,R0

MOV
MOV
MOV
MOV
MOV
MOV

(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP).,R2
(SP)+,R1
(SP)+,RO

CVMJAAOQ MSV11-J MEMORY DIAG.

' ROUTINE RANDOM NUMBER GENERATOR

|
'

H15

MACRO VO0S.01b Fridey 15-Feb-85 16:10

14070

.SBTTL

14071

Page 445

SEQ 0396

ROUTINE RANDOM NUMBER GENERATOR

14072

T
T
T
T T M
MY

14073
14074
14075
14076

;#THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
;*WITH A RANGE OF O TO 2#%%(+33)-1.
;#CALL:
i*
CALL
$RAND
:;CALL THE ROUTINE

14078
14079

i
i¥

14077

14080
14081 056432
056432
056434
056436

14082 056440

14083 056444
14084 056450
14085 056454

14086 056456
14087 056460

14088 056462
14089 056466
14090 056470
14091 056474
14092 056500
14093 056502

14094 056506
14095 056512
14096 056516
056516
056520
056522

14097 056524

010046
010146
010246

013700

013701
012702
006300

006101
077203

063700
005501
063701
062700
005501
062701

010037
010137
012602
012601
012600

000207

002604

002602
000007

002604
002602
001057

047401

002604
002602

RETURN

$RAND:

PUSH

RO,R1.R2

MOV

SEEDLO,RO

;SET RO WITH LOW

ROL
S0B

R1
R2,1$

;: ;ROTATE CARRY INTO R1 AND

MOV
MOV
POP

RO, SEEDLO
R1,SEEDHI
R2,R1,RO

MOV
MOV
ASL

ADD
ADC
ADD
ADD
ADC
ADD

RETURN

: ;RETURN HERE THE RANDOM

; sNUMBER WILL BE IN
; s SHINUM, $LONUM

SEEDHI,R1
#7,R2
RO

SEEDLO,RO
R1
SEEDHI,R1
#1057,R0
R1
#47401,R1

;SET R1 WITH HIGH
;SET SHIFT COUNT
;sSHIFT RO LEFT AND

;ADD NUMBER TO MAKE X 129
; ;PROPOGATE CARRY
;ADD NUMBER TO MAKE X 129
; ;ADD LOW CONSTANT
; ;PROPOGATE CARRY
; ;ADD HIGH CONSTANT

;:SAVE RO
;SAVE R1

MOV RO, -(SP)
MOV R1,-(SP)
MOV R2,-(SP)

115
Page
447
-

MACRO Y05.0ib Fridey 15-Feb-85 16:10
ROUTINE DOUBLE LENGTH BINARY TO OCTAL ASCII C

CVMJAAQ MSV11-J MEMORY DIAG.

|
|
}

ONVERT

.SBTTL

ROUTINE DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT

14100
14101
14102
14103
14104

;#UNSIGNED OCTAL ASCIZ
;#CALL

14106
14107

i*
i*

14112 056534
14113 056540
14114 056544
14115 056550
14116 056552
14117 056554
14118 056556
14119 056560
14120 056562
14121 056564
14122 056566
14123 056570
14124 056572
14125 056576
14126 056600
14127 056602

14128 056604
14129 056606
14130 056610
14131 056612
14132 056614
14133 056616

14134 056620
14135 056622
14136 056626
14137 056630
14140

it d 2 222 2222 22 222 22 22 22 2 2

2 2

22 d dd

T T T T

;#THIS ROUTINE WILL CONVERT A SZ-BIT UNSIGNED BINARY NUMBER TO AN

14105

14108
14109
14110 056526
14111 056530

SEQ 0397

104415
016601
012705
012704
012703
012100
012101
005002
110245
010002
005304
003007
001405
005205
010566
104416
000207
006203

000002
056645
000014
177770

MOV

$0B20:

SAVREG
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOVB
MOV
DEC
BGT
BEQ
INC
MOV
RESREG
RETURN
ASR

1%:

000002

2%:
34:

006001
006000
006001
006000
006001
006000

040302
062702
000753
000016
056634

000060

CALL
RETURN

ROR
ROR
ROR
ROR
ROR
ROR

BIC
ADD
BR
$OCTVL: .REPT
L
$0CT8=$0CTV-4

#PNTR, -(SP)
$0B20

2(SP),R1
#$0CTVL+13.
,RS
#12..R4
#1C7.R3
(R1)+,RO
(R1)+,R1
R2
R2,-(R5)
RO,R2
R4
34
2%
RS
R5,2(SP)

R3
R1
RO

R1
RO
R1
RO
R3,R2
#'0,R2
13
14,

; ;POINTER 70 LOW WORD OF BINARY NUMBER
;;CALL THE ROUTINE
;;THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK
: ;SAVE ALL REGISTERS
; ;PICKUP THE POINTER TO LOW WORD
; ;POINTER TO DATA TABLE
;:00 ELEVEN CHARACTERS
; sMASK
; sLOWER WORD
; sHIGH WORD
; s TERMINATOR
; ;PUT CHARACTER IN DATA TABLE
::GET THIS DIGIT
; ;COUNT THIS CHARACTER
::BR IF NOT THE LAST DIGIT
:3BR IF IT IS THE LAST DIGIT
;;ALL DIGITS DONE-ADJUST POINTER FOR FIRST
;sASCIZ CHAR. & PUT IT ON THE STACK
; sRESTORE ALL REGISTERS
; ;RETURN TO USER
; ;POSITION THE MASK FOR THE LAST DIGIT
;;POSITION THE BINARY NUMBER FOR
THE NEXT OCTAL DIGIT

; sMASK OUT ALL JUNK

i ;MAKE THIS CHAR.

ASCII

;360 PUT IT IN THE DATA TABLE
: ;RESERVE DATA TABLE
;POINTER TO 11 DIGIT NUMBER

CVMJUAAQ MSV11-J MEMORY DIAG.

TABLES

14142
14143
14144
14145 056646
14146 056646
14147 056650
14148 056652
14149 056654
14150 056656
14151 056660
14152 056662
14153 056664
14154 056666
14155 056666
14156
14157
14158

14159 056667

14160
14161 056670
14162 056672
14163 056674
14164
14165
14166

14167
14168
14169
14170 056676
14171 056677
14172

14173
14174
14175
14176
14177 056700
14178
14179 056702
14180 056703
14181 056704
14182 056706
14183 056707
14184 056710
14185 056712
14186 056713
14187 056714
14188 056716
14189 056720
14190 056722
14193 056726
14194 056730
14195 056732

i:igé 056724

J15

MACRO V05.01b Fridey 15-Feb-85 16:10

.SBTTL

000000
000000
000000
000000
000000
000000
000000
000000
000

000
000101
000000
000000

001
004

Page 448

SEQ 0398

TABLES

.SBTTL APT MAILBOX-ETABLE
$MAZL:
$MSGTY: .WORD
O
: sMESSAGE TYPE CODE
$FATAL: .WORD
O
: ;FATAL_ERROR NUMBER (ERROR PC)
$TESTN: .WORD
O
:; TEST PATTERN NUMBER
$PASS:
.WORD
O
: :PASS_COUNT
$DEVCT: .WORD
O
: ;DEVICE_COUNT
SUNIT:
.WORD
O
::1/0 UNIT NUMBER
$MSGAD: .WORD
O
; sMESSAGE ADDRESS
$MSGLG: .WORD
O
; ;MESSAGE _LENGTH
$ETABLE :
: ;APT_ENVIRONMENT TABLE
$SENV:
.BYTE.
0
; ;ENVIRONMENT BYTE
:SET _T0 A 1 FOR APT AUTO MODE
sNOTE:
IF BIT #7 IS SET IN $ENVM THE TABLE BELOW (BEGINNING AT $MAMS1 AND
;
ENDING AT $MADR4) MUST BE FILLED IN TO INDICATE THE PROPER AMOUNT OF
;
EACH TYPE OF MEMORY.

$ENVM:

.BYTE

$SWREG:
$USWR:
$CPUOP:
i
i
i
i
i
i

.WORD
.WORD
.WORD

101
O
O

$MAMS1:
$MTYP1:
i

.BYTE
.BYTE

1
4

;ENVIRONMENT MODE

:BIT7(200)=USE_APT SIZE INFO ;BITS(40)=NO CONSOLE
i ;APT SWITCH REGISTER
;USED TO LIMIT THE NUMBER OF PASSES
: ;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PD@=07,Q=10

BIT 10=REAL_TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
: ;HIGH ADDRESS,M.S. BYTE ;DEFAULT = 64K
: sMEM. TYPE,BLK#1
MEM.TYPE BYTE

(HIGH BYTE)

000000
000000
000000
000000

i
i
i*
P
$MADR1:
.
$MAMS2:
$MTYP2:
$MADR2:
$MAMS3:
$MTYP3:
$MADR3:
$MAMS4:
$MTYP4:
$MADR4:
$VECT1:
$VECT2:
$BASE:

.WORD
.WORD
.WORD
.WORD
.WORD

: ;DEVICE MAP

000000
000000
000000

$COW1:
$COW2:
$DDW7:

.WORD
.WORD
.WCRD

O
O
O

;UFD MODE FLAG 1=UFD MODE

177776
000
000
000000
000
000
000000
000
000

000000

$DEVM:

.WORD

177776

.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE

0
O
O
O
O
O
O
O

O
O
O
O

900 NSEC CORE=001
300 NSEC BIPOLAR=002
PARITY M0S=003
ERROR CORRECTING M0S=004
;;HIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “TYPE" ABOVE
: sHIGH ADDRESS,M.S. BYTE
: ;MEM.
TYPE , BLK#2
; sMEM.LAST ADDRESS,BLK#2
; sHIGH_ADDRESS,M.S.BYTE
; sMEM.
TYPE , BLK#3
: sMEM.LAST ADDRESS,BLK#3
: sHIGH ADDRESS,M.S.BYTE
; sMEM.
TYPE , BLK#4
: sMEM.LAST ADDRESS,BLK#4
: : INTERRUPT VECTOR#1,BUS PRIORITY#1
; : INTERRUPT VECTOR#2BUS PRIORITY#2
: ;:BASE_ADDRESS OF EQUIPMENT UNDER TEST

CVMJUAAQ MSV11-J MEMORY DIAG.

' APT MAILBOX-ETABLE

K15

MACRO V05.01b Friday 15-Feb-85 16:10

Page 449

SEQ 0399

14197
i:igg

;THE FOLLOWING LOCATIONS SPECIFY WHICH PATTERNS
;ARE TO BE RUN FOR PARTICULAR MEMORIES

14200

;REFERENCE THE TABLE LISTED BELOW TG RELATE BITS TO PATTERNS.

i.:ggg

;IN THE SECOND WORD WILL RUN THE 17TH ENTRY IN THE TABLE ...

14201

14204
14205

14206 056734
14207 056736

;BITO SET WILL RUN THE FIRST ENTRY IN THE TABLE, BITO SET

177777
177777

;NOTE#+ NULL TESTS DO NOT TAKE ANY TIME
;
;FIELD SERVICE VALUE

$DDWO:
$DDW1:

.WORD
.WORD

177777
177777

;ECC CSR TESTS
;ECC CSR TESTS

177777
177777

TABLE = MKCSRT:
TABLE = MKCSRT:

.WORD

177777

;;ECC PATTERNS

177777

TABLE = MKPAT:

14208 056740

177777

$DDW2:

.WORD

14210 056744

177777

$DDW4:

.WORD

177777

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

O
$MAIL
35.
700.
O.
$ETEND-$MAIL/2

14209 056742

1421) 056746
14215 056750
14216
14217
14218
14219 056750
14220 056750
14221 056752
14222 056754
14223 056756
14224 056760
14225 056762

177777

000000
056646
000043
001274
000000
000041

$DDW3:

177777

;ECC PATTERNS

;PARITY PATTERNS

103777

003777

TABLE = MKPAT:

TABLE = MJUPAT:

$0DWS:
.WORD
177777
;PARITY PATTERNS
177774
TABLE = MJUPAT:
$ETEND:
;SETUP_APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
; INTERFACE SPEC.

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

:: TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
; sADDRESS OF AFT MAILBOX (BITS 0-15)
:sRUN TIM OF LONGEST TEST
;sRUN TIME IN SECS. OF 1ST PASS ON 128K (QUICK VERIFY)
: ;EXTRA RUN TIME OF A PASS FOR EACH ADDITIONAL 128K (Qv)
;;LENGTH MAILBOX-ETABLE(WORDS)

CVMJAAQ MSV11-J MEMORY DIAG.

ROUTINE TRAP DECODER

L15

MACRO V05.01b Friday 15-Feb-85 16:10

14227

.SBTTL

Page 450

SEQ 0400 |

ROUTINE TRAP DECODER

;#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" TNSTRUCTION

;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STAXTING ADDRESS
;#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINFN IT WILL

;#G0 TO THAT ROUTINE.

14235 056764
14236 056766
14237 056772
14238 056774
14239 056776
14240 057000
14241 057004
14242
14243
14244
14245
14246 057006
14247 057010
14248 057016
14249
14250 057020
057020

14251 057024

010046

005740
111000
016000
000200

$TRAP:

000002

MOV

RO, -(SP)

; sSAVE RO

TST

-(RO)

: sBACKUP BY 2

MOV

MOVB
057026

2(SP),RO
(RO),RO

ASL

RTS

MOV

$TRPAD(RO),RO

: ;GET TRAP ADDRESS
: ;GET_RIGHT BYTE OF TRAP
; sPOSITION FOR INDEXING

;;INDEX TO TABLE
::60 TO ROUTINE

;s THIS IS USE TO HANDLE THE "GETPRI" MACRO
011646
016666
000002

000004

104401

065507

000000

000002

$TRAP2: MOV

MOV
RTI

(SP),-(SP)

4(SP),2(SP)

$NOTRAP: TYPE

MSGO06

.DSABL
$HALT2: HALT

CRF

TYPEIT

,MSGO06

; sMOVE THE PC DOWN

; sMOVE THE PSW DOWN
; sRESTORE THE FSW

;UNDEFINED TRAP INSTRUCTION

CVMJAAQ MSV11-J MEMORY DIAG.
TRAP TAELE

14254
14255
14256
14257
14258
14259
14260
14261 057026
14262 057030
14263 057032

14264 057034
14265 057036
14266 057040
14267 057042
14268
14269 057044
14270 057046
14271
14272 057050
14273 057052
14274 057054
14275 057056
14276
14277 057060
14278 057062
14279
14280 057064
14281 057066
14282 057070
14283
14284 057072
14285
14286 057074
14287 057076
14288
14289 057100
14290 057102
14291

14292 057104
14293 057106
14294 057110
14295 057112
14296 057114
14297 057116
14298 057120
14299 057122
14300 057124
14301 057126
14302 057130

14303 057132
14304 057134
14305 057136
14306 057140
14307 057142
14308 057144
14309 057146

14310 057150

M15

MACRO V05.01b Friday 15-Feb-85 16:10

Page 452

SEQ 0401

.SBTTL

TRAP TABLE

;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;#BY THE “TRAP" INSTRUCTION.
ROUTINE

057006
047122
054102
054056
057020
054304
057020

:TRPAO: g WORD

$TRAP2
$TYPE
;CALL=TYPEIT
TRAP+1(104401)
TTY TYPEOUT ROUTINE
$TYPOC
;CALL=TYPOC
TRAP+2(104402)
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
$TYPOS
;CALL=TYPOS
TRAP+3(104403)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
$NOTRAP; $TYPON_ ;CALL=TYPON
TRAP+4(104404)
TYPE OCTAL NUMBER (AS PER LAST CALL)
$TYPDS
;CALL=TYPDS
TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN)
$NOTRAP; $TYPBN
;CALL=TYPBN
TRAP+6(104406)
TYPE BINARY (ASCII) NUMBER

054704
054530

$GTSWR
;CALL=GTSWR
$CKSWR ; CALL=CKSWR

TRAP+7(104407) GET SOFT-SWR SETTING
TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR

055264
055414
056000
056150

$RDCHR ; CALL=RDCHR
$ROLIN
;CALL=ROLIN
$RDOCT ; CALL=RDOCT
$RDDEC ; CALL=RDDEC

TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)

056336
056374

$SAVREG ;CALL=SAVREG
$RESREG ;CALL=RESREG

TRAP+15(104415) SAVE RO-RS ROUTINE
TRAP+16(104406) RESTORE RO-RS ROUTINE

034202
034212
034222

$KERNEL
;CALL=KERNEL
TRAP+17(104417) ENTER KERNEL MODE
$ENERGIZE ; CALL=ENERGIZETRAP+20(104420) TURN ON MEMORY MANAGEMENT & TRAPS
$DEENERGI ; CALL=DEENERGITRAP+21(104421) TURN OFF MEMORY MENAGEMENT & TRAPS

036310

$KMAP

; CALL =KMAP

034232
034256

$CACHN
$CACHF

; CALL=CACHON
: CALL=CACHOFF

TRAP+23(104423) TURN CACHE ON
TRAP+24(104424) TURN CACHE OFF

034274
034370

$LOADC
$READC

; CALL=READCSR

; CALL=LOADCSR

TRAP+25(104425) LOAD CORRECT CSR
TRAP+26(104426) READ CORRECT CSR

047456
047504
047532
047562
047644
047666
047716
047736
047760
050000
050022
050044
050064
050102
050120
050140
050156
050174

$PERO1
$PERO2
$PERO3
$PERO4
$PERO7
$PER10
$PER11
$PER12
$PER13
$PER14
$PER1S
$PER16
$PER17
$PER20
$PER21
$PER22
$PER23
$PER24
$PER25

; CALL=PERRO1
; CALL=PERRO2
; CALL=PERRO3
; CALL =PERRO4
: CALL=PERRO7
;CALL=PERR10
;CALL=PERR11
;CALL=PERR12
;CALL=PERR13
;CALL=PERR14
; CALL=PERR15

TRAP+27(104427)
TRAP+30(104430)
TRAP+31(104431)
TRAP+32(104432)

044756

; CALL=PERR16

; CALL=PERR17

; CALL=PERR20
; CALL=PERR21
: CALL=PERR22
; CALL=PERR23
; CALL=PERR24
;CALL=PERR25

TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
READ A DECIMAL NUMBER FROM TTY

TRAP+22(104422) MAP KERNEL 1 70 1

PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM

DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

TRAP+33(104433)
TRAP+34(104434)
TRAP+35(104435)
TRAP+36(104436)
TRAP+37(104437)
TRAP+40(104440)
TRAP+41(104441) PROGRAM DETECTED ERROR
TRAP+42(104442) PROGRAM DETECTED ERROR
TRAP+43(104443) PROGRAM DETECTED ERROR
TRAP+44(104444) PROGRAM DETECTED ERROR
TRAP+45(104445) PROGRAM DETECTED ERROR
TRAP+46(104446) PROGRAM DETECTED ERROR
TRAP+47(104447) PROGRAM DETECTED ERROR
TRAP+50(104450) PROGRAM DETECTED ERROR
TRAP+51(104451) PROGRAM DETECTED ERROR

| CVMJAAO MSV11-J MEMORY DIAG.
' TRAP TABLE

N15

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 452-1

14311 057152
14312 057154
14313 057156
14314 057160
14315 057162
14316 057164
14317 057166

050364
050404
045204
050574
050672
050740
051020

$PER26
$PER27
$PER30
$PER31
$PER32
$PER33
$PER34

;CALL=PERR26
;CALL=PERR27
;CALL=PERR30
;CALL=PERR31
;CALL=PERR32
;CALL=PERR33
;CALL=PERR34

TRAP+52(104452) PROGRAM DETECTED ERROR
TRAP+53(104453) PROGRAM DETECTED ERROR
TRAP+54(104454) PROGRAM DETECTED ERROR
TRAP+55(104455) PROGRAM DETECTED ERROR
TRAP+56(104456) PROGRAM DETECTED ERROR
TRAP+57(104457) PROGRAM DETECTED ERROR
TRAP+60(104460) PROGRAM DETECTED ERROR

14319 057172
14320 057174
14321 057176
14322 057200
14323 057202
i:gg; 057204

051106
051136
051142
057020
057020
057020

$PER36
$PER37
$PER4O0
$NOTRAP
$NOTRAP
$NOTRAP

;CALL=PERR36
;CALL=PERR37
;CALL=PERR40
;CALL=PERR41
;CALL=PERR42
;CALL=PERR43

TRAP+62(104462) PROGRAM DETECTED ERROR
TRAP+63(104463) PROGRAM DETECTED ERROR
TRAP+64(1044<1) PROGRAM DETECTED ERROR
TRAP+65(104465) PROGRAM DETECTED ERROR
TRAP+66(104466) PROGRAM DETECTED ERROR
TRAP+67(104467) PROGRAM DETECTED ERROR

14326 057206
14327 057210
14328 057212
14329 057214
14330 057216
14331 057220
1433% 057222
14333 057224
14334 057226
14335 057230
14336 057232
14337 037234
14338 057236
14339 057240
14340 057242

034570
034604
034616
034632
034672
034714
034734
035050
035100
035214
035244
035256
035266
035302
034644

$ECCDIS ;CALL=ECCDIS
$ECCIDIS;CALL=ECCIDIS
$ECCINIT;CALL=ECCINIT
$ECCLINIT;CALL=ECC1INIT
$CBCSR
;CALL=CBCSR
$CB1CSR ;CALL=CB1CSR
$WASSBE ;CALL=WASSBE
$WAS1SBE
; CALL=WAS1SBE
$WASDBE ;CALL=WASDBE
$WAS1DBE;CALL=WAS1DBE
$CLRCSR ;CALL=CLRCSR
$CLRICSR;CALL=CLRICSR
$CHKDIS ;CALL=CHKDIS
$CHK1DIS;CALL=CHKIDIS
$ENASBE ;CALL=ENASBE

14318 057170

051052

14341 057244
14342 057246
14343 057250
14344 057252
14345 057254
14346 057256
14347 057260
14348 057262
14349 057264
14350 057266
14351 057270
14352 057272

034660
034410
035362
035412
035662
035700
057020
057020
057020
057020
057020
057020

14355

177776

$PER3S

;CALL=PERR3S

SEQ 0402

|
|
|
;
|
|

TRAP+61(104461) PROGRAM DETECTED ERROR

|
;;ILC;REV B
;;ILC;REV B

TRAP+70(104470) DISABLE ECC ON ALL CSR'S
TRAP+71(104471) DISABLE ECC ON 1 SELECTED CSR
TRAP+72(104472) INITIALIZE ALL MK11 CSR'S
TRAP+73(104473) INITIALIZE 1 SELECTED MK1i1 CSR
TRAP+74(104474) WRITE GENERATED CHECKBITS IN ALL CSR'S
TRAP+75(104475) WRITE GENERATED CHECKBITS IN 1' SELECTED CSR
TRAP+76(104476) WAS THERE A SBE ON ANY CSR?
TRAP+77(104477) WAS THERE A SBE ON 1 SELECTED CSR?
TRAP+100(104500)WAS THERE A DBE ON ANY CSR?
TRAP+101(104501)WAS THERE A DBE ON 1 SELECTED CSR?
TRAP+102(104502)CLEAR ALL CSR'S
TRAP+103(104503)CLEAR 1 SELECTED CSR
TRAP+104(104504 )DISABLE ECC & WRITE CKBITS FROM ALL CSR'S
TRAP+105(104505)DISABLE ECC & WRITE CKBITS FROM 1 CSR
TRAP+106(104506 JENABLE TRAPS ON SBE'S FROM ALL CSR'S

$ENA1SBE ; CALL=ENA1SBE
$TSTRD ;CALL=TSTREAD
$INVALID;CALL=INVALID
$ERRGEN ;CALL=ERRGEN
$CBREG ;CALL=CBREG
$SYNREG ;CALL=SYNREG
$NOTRAP
$NOTRAP
$NOTRAP
$NOTRAP
$NOTRAP
$NOTRAP

TRAP+107(104507)ENABLE TRAPS ON SBE'S FROM 1 SELECTED CSR
TRAP+110(104510)TEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES
TRAP+111(104511)INVALIDATE BACKGROUND PATTERN ON BANK
TRAP+112(104512)TEST ERROR ADDRESS
TRAP+113(104513)ENABLE CHECK BIT REGISTER
TRAP+114(104514)ENABLE SYNDROME BIT REGISTER

;:STATUS REGISTER

177776

{
|
!

|
|

14358
14359
14360
14361
14362
14363
14364
14365
14366
14367
14368
14369
14370
14371
14372 057274
14373 057274

.SBTTL

TABLE

;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;#LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF $ITEMB IS O THE ONLY PERTINENT DATA IS (ERRPC).
;#NOTE1:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOMS:
; #NOTE2:

; sPOINTS TO THE ERROR MESSAGE
: sPOINTS TO THE DATA HEADER
: sPOINTS TO THE DATA
; sPOINTS TO THE DATA FORMAT

i
i*
i*
i

EM
DH
DT
DF

$ERRTB:

;ERROR

14402

14411 057372

ERROR POINTER

——
—

SEQ 0403

14374 057276
14375 057300
14376 057302
14377
14378 057304
14379 057306
14380 057310
14381 057312
14382
14383 057314
14384 057316
14385 057320
14386 057322
14387
14388 057324
14389 057326
14390 057330
14391 057332
14392
14393 057334
14394 057336
14395 057340
14396 057342
14397
14398 057344
14399 057346
14400 057350
14401 057352
14403 057354
14404 057356
14405 057360
14406 057362
14407
14408 057364
14409 057366
14410 057370

Page 456

— ——————

CVMJAAQ MSV11-J MEMORY DIAG.
ERROR POINTER

TABLE

Bi6

MACRO V05.01b Fridey 15-Feb-85 16:10

CVMJUAAQ MSV1l1-J MEMORY DIAG.
TABLE

|
|

ERROR POINTER

14414

MACRO V05.01b Fridey 15-Feb-85 16:10

;ERROR

14415 057374
14416 057376
14417 057400
14418 057402
14419
14420 057404
14421 057406
14422 057410
14423 057412

061247
063741
060234
060616

EM11
DH7
DT7
DF3
;ERROR
EM11
DH7
D17
DF4

14425 057414
14426 057416
14427 057420
14428 057422

061271
064051
060264
060557

EM12
DH10
DT10
DF2

14430 057424
14431 057426
14432 057430
14433 057432
14434
14435 057434
14436 057436
14437 057440
14438 057442

061247
063741
060234
060631
061247
063741
060234
060644

EM11
DH7
DT7
DFS
;ERROR
EM11
DH7
DT7
DF6

14440 057444
14441 057446
14442 057450
14443 057452

061315
064172
060320
060701

EM13
DH13
DT13
DF11

14445 057454
14446 057456

061347
064172

EM14
DH13

14424

14429

14439

14444

14447 057460
14448 057462
14449
14450 057464
14451 057466
14452 057470
14453 057472
14454
14455 057474
14456 057476
14457 057500
14458 057502

14459

14460 057504
14461 057506
14462 057510
14463 057512
14464
14465 057514

14466 057516
14467 057520
14468 057522

061247
063741
060234
060603

Cl6

060320
060701
061413
064172
060320
060701

;ERROR

EMSS
DH26
DT26
DF2

061461
063741
060234
060631

EM17
DH7
DT7
DFS
:ERROR
EMS0

063042
064566
060434
060712

063222
064752
060510
060557,

SEQ 0404

;ERROR

DT13
DF11
;ERROR
EM15
DH13
DT13
DF11
;ERROR

Page 458

;ERROR 22

DH23
DT23
DF13

CVMJUAAQ MSV11-J MEMORY DIAG.
TABLE

ERROR POINTER

14471

D16

MACRO V05.01b Friday 15-Feb-85 16:10

;ERROR

14472 057524
14473 057526
14474 057530
14475 057532

061521
064172
060320
060701

EM19
DH13
DT13
DF11

14477 057534
14478 057536
14479 05754C
14480 057542

061573
064172
060320
060701

EM20
DH13
DT13
DF11

14482 057544
14483 057546
14484 057550
14485 057552
14486
14487 057554
14488 057556
14489 057560
14490 057562
14491
14492 057564
14493 057566
14494 057570
14495 057572
14496
14497 057574
14498 057576
14499 057600
14500 057602

000000
064165
060314
060557

0
DH12
DT12
DF2
;ERROR
EM21
DH11
DT11
DF2
;ERROR
EM22
DH13
DT13
DF11
;ERROR
0
DH14
DT14
DF2

14476

14481

14501
14502 057604
14503 057606
14504 057610
14505 057612
14506
14507 057614
14508 057616
14509 057620
14510 057622
14511
14512 057624
14513 057626
14514 057630
14515 057632

061652
064147
060306
060557
061706
064172
060320
060701

000000
064267
060342
060557

061733
063615
060202
060557

062041
064346
060360
060657
062066
064465
060410
060603

;ERROR
EM23
DHS
DTS
DF2
;ERROR
EM25
DH15
DT16
DF7
;ERROR
EM26
DH16
DT17
DF3

Page 460

:NO MESSAGE

;NO MESSAGE

SEQ 0405

CVMJAAO MSV11-J MEMORY DIAG.
ERROR POINTER

TABLE

14518
14519 057634
14520 057636
14521 057640
14522 057642

14525 057646
14526 057650
14527 057652
14528
14529 057654
14530 057656
14531 057660
14532 057662
14535 057666
14536 057670
14537 057672
14538
14539 057674
14540 057676
14541 057700
14542 057702
14543
14544 057704
14545 057706
14546 057710
14547 057712
14548

14549 057714
14550 057716
14551 057720
14552 057722
14553
14554 057724
14555 057726
14556 057730
14557 057732
14558
14559 057734
14560 057736
14561 057740
14562 057742
14563
14564 057744

14565 057746
14566 057750
14567 057752

063146
064714
060476
060557

062137
064465
060410
060672
062634
063741
060234
060603
062227

063741
060234
060603
062311
063741
060234
060631
063343
064507
060434
060712
062421
063741
060234
060603

062526
063741
060234
060603
063076
064645
060456
060722

062721
063674
060220
060557

E16

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 462

SEQ 0406
35

)

' CVMUAAQ MSV11-J MEMORY DIAG.
TABLE

ERROR POINTER

14570

14571 057754
14572 057756
14573 057760
14574 057762
14575

14576 057764
14577 057766
14578 057770

063243
064770
060516

F16

MACRO V05.01b Friday 15-Feb-85 16:10

;ERROR

EM40
DH2
DT20
DF2
;ERROR

EMS6
DH27
D127

14579 057772

060556

14581 057774
14582 057776
14583 060000
14584 060002

063405
064645
060456
060722

EM61
DH24
DT24
DF14

14586 060004
14587 060006
14588 060010
14589 060012

062227
064172
060320
060701

EM29
DH13
DT13
DF11

14591 060014
14592 060016
14593 060020
14594 060022

062041
065044
060536
060740

EM25
DH30
DT30
DF16

14596 060024
14597 060026
14598 060030
14599 060032

063275
065044
060536
060740

EMS7
DH30
DT30
DF16

14601 060034
14602 060036
14603 060040
14604 060042

061573
064645
060456
060722

EM20
DH24
DT24
DF14

14606 060044
14607 060046
14608 060050
14609 060052

061573
065044
060536
060740

EM20
DH30
DT30
DF16

14611 060054
14612 060056
14613 060060
14614 060062

061521
064645
060456
060722

EM19
DH24
D124
DF14

14616 060064
14617 060066
14618 060070
14619 060072

061315
064507
060434
060712

EM13
DH20
D123
DF13

14621 060074
14622 060076
14623 060100

062311
064507
060434

EM30
DH20
DT23

14580

14585

14590

14595

14600

14605

14610

14615

14620

062770
063536
060416
060557

14624 060102
14625
14626 060104

060712

061573

DF1

;ERROR

DF13
;ERROR
EM20

Page 464

SEQ 0407

CVMJUAAQ MSV11-J MEMORY DIAG.
TABLE

ERROR POINTER

14627 060106
14628 060110

146233 060112

146

14631 060114

064645

060456
060722

G16

MACRO V05.01b Fridasy 15-Feb-85 16:10

Page 464-1

SEQ 0408
DH24
DT24

CVMJAAO MSV11-J MEMORY DIAG.
ERROR DATA TAGS (DT)

14646
14647 060144
060152
14648 060156
14649 823{95

002034
000000
000000
002036

002044

DT1:

.SBTTL
.WORD

ERROR DATA TAGS (DT)
ERRPC,ADDRESS,GOOD,BAD,O

002072

DT2:
DT3:

.WORD
.WORD

ERRPC,0
ERRPC,PADDRESS,PARCNT,0

002020
000000
002020
177576
000000
002020
002424
002020
002176
002060
002176

002034

002070

DT4:

.WORD

ERRPC,ADDRESS,NEMCNT,O

177572
172516

177574
177766

DTS:

.WORD

ERRPC,MMRO,MMR1,MMR2,MMR3,CPUERR,0

002422
002402
002176
002044

002400
000000
002034
002052

DT6:

.WORD

ERRPC,APTPAR,LSIZE,APTECC,MSIZE,O

DT7:

.WORD

ERRPC,DUMMY,ADDRESS,DUMMY,GOOD,BAD,BADXOR

002176

.MORD

DUMMY,DUMMY
DUMMY ,DUMMY , 0

002200
002206
002214
002020
002150
002020

002176
000000
002202
002210
002216
002150
000000
002176

DT10:

.WORD

DETRO,DETR1,DETR2,DETR3,DETR4,DETRS,DETSP,DETPSW,0

DT1l:
DT12:
DT13:

.WORD
.WORD
.WORD

ERRPC,CSR,0
CSR,0
ERRPC,DUMMY,ADDRESS,DUMMY,TSTDAT,TSTDAT+2,CHECK,CSR,0

177746

177572

177574

DT14:

.WMORD

CONTRL,MMRO,FMFR1,MMR2,MMR3,CPUERR,0

.WORD

ERRPC,DUMMY,DUMMY,GOOD,GOOD2,G00D3

.WORD

BAD,BAD2,BAD3,DUMMY,DUMMY,0

002044

002176
002050
002056
000000
000000

DT16:

002020
002020

002176
002046
002054
002176
002176

DTi7:
DT20:

.WORD
.WORD

ERRPC,DUMMY,O
ERRPC,GOOD,BAD,O

002020
002020
002052
002176
002020

002176
002176
002176
002176
002176

000000
002044
002176
000000
002150

DT22:
DT23:

.WORD
.WORD

ERRPC,DUMMY,0
ERRPC,DUMMY,GOOD,BAD,DUMMY,DUMMY,DUMMY,DUMMY,O0

DT24:

.WORD

ERRPC,DUMMY,CSR,DUMMY,DUMMY,DUMMY,DUMMY,O

002150

DT25:

.WORD

ERRPC,GOOD,CSR,CSRNO,O

000000
002034

DT26:
DT27:

.WORD
.WORD

ERRPC,BAD,O
ERRPC,DUMMY,ADDRESS,DUMMY,DUMMY,DUMMY,DUMMY,O

002176
002150

DT30:

.WORD

ERRPC,DUMMY,DUMMY,GOOD,BAD,CSR,DUMMY,O0

002176
002314

060350
060356
14660 060360
060366
14661 060374
060402

177576
000000
002020
002044
002052
002176

14662 060410
14663 060416
060424

14664 060426
14665 060434
060442
060450
14666 060456

000000

002034
002250
000000

172516

177766

002176
002176
002020
002152
002020
002020
002176

002176
000000
002044
000000
002052
002176
002176

060544

002044

002052

060552

002176
002020
002176

002204
002212
000000
000000

002246
002150

060464
060472
14667 060476
060504
14668 060510
14669 060516
060524
060532
14670 060536

Page 465

002020
002052
002020
883858

14650 060172
060200
14651 060202
060210
060216
14652 060220
060226
14653 060234
060242
060250
14654 060252
060260
14655 060264
060272
060300
14656 060306
14657 060314
14658 060320
060326
060334

14659 060342

H16

MACRO V05.01b Friday 15-Feb-85 16:10

000000
002176

000000

002052

002176

SEQ 0409

14687 060740
060743
060746

Page 467

SEQ 0410
.SBTTL
.BYTE
.BYTE

DF3:

.BYTE

DF4:

.BYTE

0,5,0,8.,0,8.,8.,3,6,2.4

DFS:

.BYTE

0,5.0.8.,9..9.,9..3.6,2.4

DF6:

.BYTE

0,5,0,8.,9.,8.,8.,3,6,2.4

DF7:

.BYTE

0,5,8.,0,0,9.,0,0,9.,2.4

DF8:
DF9:

.BYTE
.BYTE

0.5
0.,1,1,1.1

DF11:

.BYTE

o.s.o.a. .o.o.ololo

DF13:

.BYTE

°.5|0000306020‘

DF14:

.BYTE

°.S.°,3'6.2l4

000

DF1S:

.BYTE

0,5,0,8.,3,6.4

010
003

DF16:

.BYTE

0,5,8.,0,0,3.,4

& g & g 85 g 888 883888

DF1:
DF2:

010

010
011
011

g §8383 8

060665
060670
14681 060672
14682 060674
060677
14683 060701
060704
060707
14684 060712
060715
060720
14685 060722
060725
060730
14686 060731
060734
060737

116

MACRO V05.01b Friday 15-Feb-85 16:10

002

060655

14680 060657
060662

§88582252882888888589388383888

14673
14674 060556
14675 060557
060562
060565
060570
060573
060576
060601
14676 060603
060606
060611
060614
14677 060616
060621
060624
060627
14678 060631
060634
060637
060642
14679 060644
060647
060652

8835888 5888888888

CVMJUAAQ MSV11-J MEMORY DIAG.
ERROR DATA FORMATS (DF)

ERROR DATA FORMATS (DF)
0

0-0.0.0.0.0.0-0-°o°-°.°.°.0.0.0.0.0.0.0

i °.5.°'8I .ol000l3'6l2l4

CVMUAAQ MSV11-J MEMORY DIAG.
ERROR MESSAGES (EM)
14690
14696 060747

103

047
123
040
040
124

117
040

040

122
120
111

14697

040
122

101
124
105
062
102
040
104
111
115
063
101

124
105
117
123

111
102
113
000

117
105
123

14698

116

115
117

040

117
123

111
102

113

000

114
107
040
040
123
126
040
123
125

14700

14701

J16

MACRO V05.01b Friday 15-Feb-85 16:10

Page 469

SEQ 0411
116
040
124
062
111

115
105
116
115
000
122
131
122
122

EM2:

.SBTTL
.ASCIZ

ERROR_MESSAGES (EM)
/CAN'T SET 22 BIT MODE IN MMR3/

EM3:

.ASCIZ

/PARITY ERROR(S) IN BANK 0/

EM4:

.ASCIZ

/NON-EXISTANT MEMORY (HOLES) IN BANK 0/

EMS:

.ASCIZ

/ILLEGAL OR RESERVED INSTRUCTION (TRAP TO 10)/

EM6:

.ASCIZ

/UNEXPECTED TRAP TO 4/

EM7:

.ASCIZ

/MEMORY MANAGEMENT (TRAP TO 250)/

051
116
101
040

116

130

124
124
105
122
050

114
051
116
101
040
114
101

117

122
105
105
111

124
103
117
050
101
124

061
000
105
105

105
124
120
117
000
115
131

CVMJAAQ MSV11-J MEMORY DIAG.
ERROR MESSAGES (EM)
061215

[}
|

040
116
105
116
050
101
124

115
101
115
124
124
120

K16

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 469-1

SEQ 0412
101
107
105
122

117

EM11:

.ASCIZ

/MEMORY DATA ERROR/

06
14703 061271

EM12:

.ASCIZ

/DETAILED ERROR DUMP/

EM13:

.ASCIZ

/MISSING EXPECTED SBE FLAG/

EM14:

.ASCIZ

/WRITE BYTE FAILEDC TO CLEAR SBE FLAG/

14706 061413

EM1S:

.ASCIZ

/FAILED TO GET INTERRUPT WITH DBE FLAG/

14707 061461

EM17:

.ASCIZ

/7MEMORY DATA ERROR IN CHECK BITS/

14704

SRR
28252828§E§E§E§E§E§Ehfl-0-b.t.h3

14702 061247

337

14705

CVMJAAQ MSV11-J MEMORY DIAG.

ERROR MESSAGES (EM)

061464
061467
061472
061475

L16

MACRO V05.01b Friday 15-Feb-85 16:10

Page 469-2

SEQ 0413

131
101
040

122

105

1517

EM19:

.ASCIZ

/SBE-DBE CAUSED PARITY TRAP WHEN INHIBITED/

EM20:

.ASCIZ

/SBE-DBE DID NOT CAUSE PARITY TRAP WHEN ENABLED/

14710

EM21:

.ASCIZ

/SBE-DBE ON MASTER TEST WORD/

14711

EM22:

.ASCIZ

/MISSING EXFECTED DBE/

061570
14709 061573
061576
061601
061604
061607
061612

061615
061620
061623

CVMJAAO MSV11-J MEMORY DIAG.
' ERROR MESSAGES (EM)
14712 061733
061736
061741
061744
061747
061752
061755
061760
14713 061762

M16

MACRO V05.01b Fridey 15-Feb-85 16:10

061765
061770
061773
061776

125
130
103
104
101
124
124
120
122

105
105
104
040

116
120
124
040
122
131
122
000
105
111
104
102
106

126
040
105
114

14714 062041

103

062047
062052
062055
062060
062063

102
040

124
105
117

Page 4£93-3

105
105
105
120
111
040
101

EM23:

_ASCIZ

/UNEXPECTED PARITY TRAP/

103

EM24:

.ASCIZ

/RECEIVED DBE FLAG WHEN EXPECTING ONLY SBE FLAG/

110

105

EM25:

.ASCIZ

/CHECK BIT DATA ERROR/

111
104

101
122
122

124
101
040
122
000

104
123
120
111

EM26:

.ASCIZ

/ADDRESS PARITY ERROR DID NOT CAUSE ABORT/

103

EM27:

.ASCIZ

/ECC INHIBIT MODE POINTER FAILURE - DID NOT PROTECT BANK/

14715 062066
062071
062074
062077

101
122
123
101

104
105
040
122

14716 062137

105

103

SEQ 0414

CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR MESSAGES (EM)
062203

111
116
040

117
103
102
13
103
122
124
116
101
125

14717

040

124
105

040
101

105
117

106
103
040

14718
062317
062322

062325

062330
062333
062336
062341
062344
062347
062352
062355
062360
062363

062366
062371
062374
14719 062375
062400
062403
062406
062411
062414
062417
14720 062421
062424
062427
062432
062435
062440
062443
062446

105
127
124
102
105

111
040
103
116

114

040
111
104

117

114
122
101
040
200
106
103
040

105
117
124
116
115

102
063
054
062
040
124
105

—

104
117
120
124
124

101
000

117
105

111
040
111
122

127

110
103
105
102
104
116

MACRO V0S5.01b Friday 15-Feb-85 16:10

122
103
117
106
114
105
111
040
103

111
040
124

126
043
060
122
053
111
040

110
103

EM30:

.ASCII

/WRITE BYTE WITH ECC ENABLED FAILED TO CLEAR DATA AT/<CRLF>

.ASCIZ

/FORCED SBE LOCATION/

.ASCIZ

/MOVB #360,(R2)+ WITH ECC ENABLED CHANGED DATA AT FORCED DBE LOCATION/

105
102
104
101
105
124
103
101
104
101
124

117

127

/CORRECTION FAILURE WITH ECC ENABLED ON FORCED SBE/

127

122
104
102
114
101
117

040
066
050
051

.ASCIZ

110
103

117
105
123

040
103
111
000

EM29:

116

105
131

124
105
040
101
105
106
114
040
040
105
040
124
101

SEQ 0415

124
122
105
040
116

117
105
123

040

114
040
040
122
104
102

000
122

Page 469-4

103

EM32:

062451
062454
062457
062462
062465
062470
062473
062476

14721 062526

040

101
105
103
116
104
101
040
040
122
104
102
114
101
117
115
040
067
060
050
051
111
040

103

062606
062611
062614
062617
062622
062625
062630
062633

14722 062634
062637

116
114
040
101
105
104
101

124

105
102
104
110
107
040
124
101
106
103
040
105
117
124
116
117
043
067
060
122
040
124
105
040
101
105
103
116
104
101
040
040
122
104
102
114
101
117

MACRO V05.01b Friday 15-Feb-85 16:10

103
104
101
105
116
117
105
123
000

SEQ 0416

116

114

40
101
105
104
101

124
117
105
104

040

103

111

116
120
124
040
122
103

117
127
110

Page 469-5

103
111

122
102

EM33:

.ASCIZ

/MOV #177400,(R1) WITH ECC ENABLED CHANGED DATA AT FORCED DBE LOCATION/

EM35:

.ASCIZ

/UNEXPECTED CORRECTION WITH ECC DISABLE ON FORCED SBE/

——————— —————

CVMJAAQ MSV11-J MEMORY DIAG.
- ERROR MESSAGES (EM)

—

CVMJAAO MSV11-J MEMORY DIAG.
ERROR MESSAGES (EM)
14723 062721
062724
062727
062732
062735
062740
062743
062746
062751
062754
062757
062762
062765
14724 062770
062773
062776
063001
063004
063007
063012
063015
063020
063023
063026
063031
063034
063037
14725 063042
063045
063050
063053
063056
063061
063064
063067
063072
063075
14726 063076
063101
063104
063107
063112
063115
063120
063123
063126
063131
063134
063137
063142
063145
14727 063146
063151
063154
063157
063162
063165

101

040

132
104
101
105
040
124
120
107
115
111
116
102
116
040
102
105
101
105
103
104
111
040
104
040
123
102
040
122
040
104
123
107
105
124
000
106
107
116
040
124
116
117
105
125

117
105
105
123

000
102
040
124
122
122
116

120
123
105
111
107
105
127
110
122
122
040
132
107
122
103
107
102

040
111

104
117
111
117
103
105
124
124
101
105
117
101
122
123
105
122
105

114
123
117
123

040
040
122
104
116
122
103
104
102

111
123
040
122
040
040

MACRO V05.01b Friday 15-Feb-85 16:10

124
111
040
123
122
123
111
040

—

—————
—
—

Page 469-6

EM36:

.ASCIZ

/APT SIZE DISAGREES WITH PROGRAM SIZING/

EM40:

.ASCIZ

/BRANCH GOBBLE FAILED CONDITION CODES TEST/

EMS0:

.ASCIZ

/BAD ERROR ADDRESS GENERATED/

EMS51:

.ASCIZ

/FLAGS NOT SET ON FORCED UNCORRECTED SBE/

EMS2:

.ASCIZ

/BIT SET ERROR IN CSR/

117

101
123
111
000
101
110
117
114
106
114
040
116
124
116
117
123
105
000
104
122
122
104
105
040
116
101
104
101
040

124
105
117
106
103

040

103

122
124
040
105

124

105
105
117
111

103

SEQ 0417 {

CVMJAAQ MSV11-J MEMORY DIAG.
ERROR MESSAGES (EM)
|

063170
14728 063173
063176
263201

063220
14729 063222
063225
063230
063233
063236
063241
14730 063243

14731 063275

14732 063343

14733 063405

14734 063426

123
102

040

105
040
122
040
040
122
111
105

114
123
124
105
102
040
122
131
122
040
116
101
104
127
116
103
103
102
040
101
102
113
122
040
115
131

127

116
123
104
115
102
123
105
040
124

122
111
103
101
105
117
111
103
000
114
107
040
122

131

000
101
120
111
040
101
107

105
124

000
122
107
110
113
111
122
104
101
040

117
115
117

000
122
107
131
122

MACRO V05.01b Friday 15-Feb-85 16:10
000
124
114
122

Page 469-7

EMS3:

.ASCIZ

/BIT CLEAR ERROR IN CSR/

114
101
103
040
120

EMSS:

.ASCIZ

/ILLEGAL CSR TYPE/

104
101
124

EMS6:

.ASCIZ

/BAD PARITY TRAP GENERATED/

EMS7:

.ASCIZ

/WRONG CHECK BIT READ BACK FROM MEMORY/

EM60:

.ASCIZ

/WRONG SYNDROME BITS READ INTO CSR/

122
122
116
123

i24

120
105
122
105

117
040

105
040
124
105
040

103
106
115
105
122

117

040
116

117

123

040
124
122
104
116
040
122

123
125
101
040
122

122
120
124
105
117

EM61:

.ASCIZ

/CSR UPDATE ERROR/

122
105

117
123

EM62:

.ASCIZ

/PROCESSOR NOT SUPPORTED BY THIS DIAGNOSTIC/

105

111
040
101
111

117

000

SEQ 0418

CVMJAAQ MSV11-J MEMORY DIAG.
ERROR MESSAGES (EM)

l
I

123
040
124
125

117
105
102
124
123
111
116
124

000

117
116
040
120
122
104
131
110
040
101
117
111

MACRO V05.01b Friday 15-Feb-85 16:10

122
117
123
120
124

040
040
111
104

107
123
103

Page 469-8

SEQ 0419 }

MACRO V05.01b Friday 15-Feb-85 16:10

Page 471

SEQ 0420

DH1:

.ASCIZ

.SBTTL

ERROR DATA HEADERS (DH)
/7

DEV ADD

DH2:

.ASC1IZ

GD-CC BD-CC/

DH3:

.ASCIZ

1ST ADD

063600
063603
063606
063611
063614
14741 063615

DHS:

MASCIT

MMRO

MMR1

MMR2

MMR3

14742

DH6:

.ASCIZ

APTPAR

LSIZE

APTECC

MSIZE/

14737
14738 063501
063504
063507
063512
063515
063520
063523
063526
063531
063534
14739 063536
063541
063544
063547
063552
063555
063560
14740 063561
063564
063567
063572

040

103
040
126

040
040

104

040

120

GOOD

BAD/

105

104
040

117

040
102
000
040
040
107

103

# OF ERRORS/

063575

105
101

105

CPUERR/

——n.

CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR DATA HEADERS (DH)

' CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR DATA HEADERS (DH)
14743 063741
063744
063747
063752
063755
063760
063763
063766
063771
063774
063777
064002

040

103

040

CRO V05.01b Fridey 15-Feb-85 16:10
.ASCII

.ASCIZ

DH10:

.ASCIZ

120

DH11:

.ASCIZ

CSR/

123

DH12:

.ASCIZ

/ CSR/

120
040
102
113
126

DH13:

.ASCII

120

040

DH7:

BANK

SEQ 0421
PADD

VADD

GOO0D/

102

14744 064005

064010
064013
064016
064021
064024
064027
064032
064035
064040
064043
064046
14745 064051
064054
064057
064062
064065
064070
064073
064076
064101
064104
064107
064112
064115
064120
064123
064126
054131
064134
064137
064142
064145
14746 064147
064152
064155
064160
064163
14747 064165
064170
14748 064172
064175
06420C
064203
064206

Page 471-1

XOR

BAD

BANK

CSR

VADD

MTYP INT PAT/

PADD

WROTE1

WROTE2/

PSW/

——

CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR DATA HEADERS (DH)
101
040
040
101
040
040

117

061

14749

127
124

113
124

103

14750

14751

14752

MACRO V05.01b Friday 15-Feb-85 16:10

Page 471-2

SEQ 0422

104
040
040
104
040

127

124
040
122
105
103
102
123
040
123

117

122
040
115
040
040
122
040
115
062
040
115
040
103
105

.ASCIZ

/ CHKBITS

DH14:

.ASCIZ

/CONTRL

MMRO

MMR1

MMR2

MMR3

CPUERR/

DH1S:

ASCITI

BANK

PADD

GD-WD1

GD-WD2

GD-CHK/

.ASCIZ

/ BAD-WD1 BAD-WD2

CSR/

BAD-CHK INT PAT/

CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR DATA HEADERS (DH)

f
|

064461

120

101

064464

000

064470
064473
064476
064501

103
040
101
000

064 505

103

000

064512
064515
064520
064523
064526
064531
064534
064537
064542
064545
064550
064553
064556
064561

103
040
101
040
055
122
050
122
040
122
115
120
116
040

040
040
116
107
103
040
103
051
103
040
124
040
124
120

14756 064566

040

14753 064465

14754 064502

14755 064507

064564

064571
064574
064577
064602
064605
064610

040

MACRO V05.01b Friday 15-Feb-85 16:10

120

DH16:

.ASCIZ

040

120

DH19:

.ASCIZ

PC/

120

DH20:

.ASCIZ

BANK GD-CSR

CSR

MTYP INT

PAT/

120

DH23:

.ASCIZ

BANK GD-ERR BAD-ERR CSR

MTYP INT

PAT/

DH24:

.ASCIZ

BANK

(CSR) CSR

DH2S5:

.ASCIZ

GD-DAT

(CSR)

040

124

000

103
040
101
040
055
122

040
040
116
107
105
040

040

104
122
103
040
124
040
124
120

040
102
113
104
123
040
123
040
123
040
131
111
040
101

040
102
113
104
122
102

064653
064656
064661
064664
064667
064672
064675
064700
064703
064706
064711

040
101
040
103
051
123
040
131
111
040
101

040
116
040
123
040
122
115
120
116
040
124

102
113
050
122
103
040
124
040
124
120
000

064717
064722

103
040

040
040

040
107

124

000

103

040

(CSR)

055
122
123

040

BANK/

040
102
113

040

14757 064645

14758 064714

040
040
116

101
105
040
122
115
120
116
040

064650

SEQ 0423 |

124

064613
064616
064621
064624
064627
064632
064635
064640
064643

Page 471-3

040

131

111
040
101

120

040

120

MTYP INT

CSRNO/

PAT/

CVMJAAQ MSV11-J MEMORY DIAG.
' ERROR DATA HEADERS (DH)
064725
064730
064733
064736
064741
064744
064747
14759 064752

064755
064760
064763
064766
14760 064770
064773

104
101
040
123
040
103
116
040
103
102
103
105
040
103
040
101
040
101
040
040
101
040
103
040

124

14761

040
124
040
103
040
101
040
120
104
040
122

105

040
105
040
123
040
124

055
124
050
122
040
123
117
040
040
101
117

iK1

MACRO V05.01b Friday 15-Feb-85 16:10
104
040
103
051
040
122
000
120
040
104
104

120
040
102
113
126
104
040
120
104
040
122

Page 471-4

DH26:

.ASCIZ

BADCODE/

DH27:

.ASCIZ

BANK

DH30:

.ASCIZ

BANK

VADD

SEQ 0424

PADD

CSR

MTYP PAT/

115
120
101

120
040
102
113
040
104
040
127
124
040
122
104
103
040
101

PADD

WROTE

READ

CSR

PAT/

' CVMJAARQ MSV11-J MEMORY DIAG.

HESSAGES
14764

14765 065123

065126
065131
065134
065137
065142

200

040

040
040
040
040
040

MACRO V05.01b Fridey 15-Feb-85 16:10

.SBITL MESSAGES

040

MSGOO1: .ASCIZ

<CRLF>/

MEMORY CONFIGURATION MAP/

<CRLF>/

16K WORD BANKS/

040
040
040
040
040

14766 065205

200

120

000

040

MSGO02: .ASCIZ

14767 065262

200

040

MSGOO3: .ASCII <CRLF>/

14768 065324

040

.ASCIZ

065203

Page 473

SEQ 0425 |
|

—

CVMJAAQ MSV11-J MEMORY DIAG.
| MESSAGES
|

]

14769 065367
06537

200

040

MACRO V05.01b Friday 15-Feb-85 16:10
MSGOO4:

.ASCII <CRLF>/

Page 473-1

SEQ 0426

012345670123456701234567/

063

.ASCIZ

/012345670123456701234567012345670123/

MSGOOS:

.ASCIZ

<CRLF>/ERRORS

MSGO06:

.ASCIZ

<CRLF>/UNDEFINED TRAP INSTRUCTION/<32>

MSG009:

.ASCIZ

<CRLF>/MEMTYPE /

:MEMORY TYPE

MSGO010:

.ASCIZ

<CRLF>/PROTECT /

;MEMORY PROTECTED

MSG11A:

.ASCIZ

14770 065430
065433
065436
065441
065444
065447
065452
065455

14771 065475
06

14772 065507
065512
065515
065520
065523
065526
065531
065534
065537
065542
14773 065544
065547
065552
065555
14774 065556
065561
065564
065567
14775 065570
065573
065576
065601
065604
065607
065612
065615
065620
065623
065626

14776 065656

14777 065744

14778 066041
14779 066043
14780 0660‘3

ERg 83282 RR22RRRRRERRRRRRERE

Page 473-2

SEQ 0427

———

MESSAGES

MACRO V05.01b Friday 15-Feb-85 16:10

——————————————

CVMJAAQ MSV11-J MEMORY DIAG.

MSGO11:

.ASCIZ

MSGO12:

.ASCIZ

/456701234567012345670123456701234567012345670123456701234567/

MSG11B:
MSG11C:

.ASCIZ
.ASCIZ
.ASCIZ

/Y/

MSGO13:

.ASCIZ
.ASCIZ
.BYTE
.ASCIZ

/X/
Zzd
0,0

MSG11D:

MSGO14:
MSGO1S:
MSGO16:

/1/
701234567/

<CRLF>/CSR

:SPACE

;FOR SINGLE ASCII CHARACTERS & TERMINATOR

———

|c VMJAAQ MSV11-J MEMORY DIAG.
| HESSAGES

066075
14785 066076
066101
066104

MACRO V05.01b Friday 15-Feb-85 16:10

.ASCIZ

M5G018:
MSG019:

.ASCIZ
.ASCIZ

/
7/
/7

MSG020:

.ASCIZ

<CRLF>/FS COMMAND MODE/

MSGO21:

.ASCII

<CRLF>/COMMANDS AVAILABLE:/

.ASCII

<CRLF>/70 = EXIT/

.ASCII

<CRLF>/1 = READ CSR/

040
114
104
123

.ASCII

<CRLF>7/2 = LOAD CSR/

040

.ASCII

<CRLF>/3 = EXAMINE MEMORY/

040

.ASCII

<CRLF>/4 = MODIFY MEMORY/

.ASCII

<CRLF>/S = SELECT BANK & TEST/

.ASCII

<CRLF>/6 = TYPE CONFIG MAP/

14786 066107
14787 066112
066115
14788 066116
066121
066124
066127

117

066142
066145
066150
066153
066156
066161
14790 066163
066166
066171
14791 066174
066177
066202
066205
066210
14792 066211
066214
066217
066222
066225

14796 066322
066325
066330

:8 SPACES
;2 SPACES
:3 SPACES

114

122

123

14793 066226
066231

066234
066237
066242
066245
066250
14794 066251
066254
066257
066262
066265
066270
14795 066273
066276
066301
066304
066307
066312
066315
066320

SEQ 0428

MSGO17:

040

066135
14789 066137

Page 473-3

105
115
105
105
122

115

111
040

115
131

123
105
040
116
046

124

120

105

040
124
105

CVMJAAQ MSV11-J MEMORY DIAG.
' MESSAGES

066333
066336
066341
066344
14797 066346
066351
066354
066357
066362
066365
066370
14798 066372
066375
066400
066403
066406
066411
14799 066414
066417
066422
066425
066430
066433
14800 066435
066440
066443

040
116
107
101
200
075

MACRO V05.01b Friday 15-Feb-85 16:10

Page 473-4

117
111
115
040

ASCII

<CRLF>/7 = SOB-A-LONG TEST/

040

.ASCII

<CRLF>/8 = ERROR SUMMARY/

075

.ASCII

<CRLF>/9=

060
123
040
114
103
116

.ASCII

<CRLF>/10= SET FILL COUNT/

061

.ASCII

<CRLF>711= ENTER KAMIKAZE MODE/

062

.ASCII

<CRLF>/12= EXIT KAMIKAZE MODE/

14803

063
124
116
101
105
106

.ASCII

<CRLF>/13= TURN CACHE OFF/

14804

064

.ASCII

<CRLF>/14= TURN CACHE ON/

066451
14801

14802

117
101
117

040

123
200

075

122
122
125
101
200
040
105
105
040
123
200
075
105
106
114

117
124

200
075
116
122
101
113
105
117
200
075
130
040
115
101

123
055
114
107
105

105
117
123
115
131

122
122
110
105

105
105
113
111
132
115
105
105
124
101
113
105
117

124
116
101

REFRESH TEST/

SEQ 0429 !

' CVMJAAQ MSV11-J MEMORY DIAG.

| MESSAGES

066576

14805 066604

066601

Page 473-5

110

105

200

061

065

.ASCII

<CRLF>/15= TEST SELECTED BANKS/

061

066

LASCII

<CRLF>/16= TEST ALL BANKS/

061

075
105
040
114
124
040
116

066637
066642
066645
066650
066653

075
105
040
114
101

14807 066657

MACRO V05.01b Friday 15-Feb-85 16:10

103

040

066607
066612
066615
066620
066623
066626
066631

14806 066634

200

040
123
123
105
105
102
113

040
123
101
040
116

116

124
124
105
103
104
101
123

124
124
114
102
113

066662
066665
066670
066673

075
116
114
124

040
101
105
122

067

105
102
040
101

.ASCII

<CRLF>/17= ENABLE TRACE/

14808 066700

200

061

070

.ASCII

<CRLF>/18= DISABLE TRACE/

14809 066722
14810 066725

015
200

012
127

000
110

.BYTE_
MSGO22: .ASCIZ

15,12,0
<CRLF>/WHICH CSR(0-F)? /

066733

040

103

MSGO023: .ASCIZ

<CRLF>/CSR WORD? /

MSG025: .ASCIZ

<CRLF>/CSR DOES NOT EXIST/

<CRLF>/COMMAND:/

066703
066706
066711
066714
066717

066730

066736
066741
066744

14811 066747

066752
066755

066760

200

117

075
111
102
040
101
111

122
117

040
122

127
104

200

067012
067015

067020

14814 067021

067024
067027
067032
067035
14815 067036

103

123

077

040

000

122
117

040
105

104
123

124
130

040
111

040

067005

123

122
055
077

066774

14813 067007

110

060
051
000

200

066777
067002

103

104
101
105
122
105

050
106
040

14812 066763

066766
066771

040
123
114
124
103

103

116

123

117

105
123

124

000

115
116

115
104

101
072

117

MSGO26: .ASCIZ

117

040
122
101

114

103
040
123

MSGO27:

.ASCIZ

~cRLF>/0LD CSR WAS/

103

123

MSG028:

.ASCIZ

<CRLF>/CSR IS NOW/

200
000

200

104
123
127
000
200

103

SEQ 0430

067041
067044
067047
14816 067052

067055
067060
067063
067066
067071
14817 067072
067075
067100

067103
067106
14818 067111
067114
067117

067122
067125
067130
067133
067136
067141
067144
067147
14819 067151
067154
067157
067162
067165
14820 067170
067173
067176
067201
0£7204

14821 Ce7207

067212
067215
067220
067223
067226
067231
067234
067237
067242
14822 067245
067250
067253
067256
067261
067264
067267
067272
14823 067273
14824 067276
067301
067304

122

123
117
200
101
116

115
117

000
200
116
060
067
077
200
121
103
040
104

060
067
067
066
040
200
122
131
102
124
200
115
125
124
120
200
120
123
107
103
124
124

117

102
113
040
105
117
102
114
101
117
000
121
200
104
131

040
040

127
105
115
105
105
122
102
113
055
067
040
120
123
101
101

MACRO V05.01b Friday 15-Feb-85 16:10
111
116
000

Page 473-6

130
111
040
115
131

MSG029:

.ASCIZ

<CRLF>/EXAMINE MEMORY/

101
050
061
051
000
110
111
114
104
105
050
061
065
067
077

MSGO30:

.ASCIZ

<CRLF>/BANK(0-177)? /

MSGO31:

.ASCIZ

<CRLF>/PHYSICAL ADDRESS(0-17757776)? /

101
124
101
122
000
111

MSGO32:

-ASCIZ

<CRLF>/PARITY ABORT/<32>

MSGO33:

.ASCIZ

<CRLF>/TIMEOUT TRAP/<32>

MSGA34:

.ASCIZ

<CRLF>/BYPASSING ZCC TESTS ON BANK /

MSGB34:

.ASCIZ

/ DUE TO SBE LOCATIONS/

MSGO35:
MSGO36:

.ASCIZ
.ASCIZ

/QVv/
<CRLF>/MODIFY MEMORY/

117

040
101
000
131
123
116

105

040

123

040
040
116
000
125
124
123
040
103
111
123

117
106
115

SEQ 0431

— .
- 4

CVMJAAQ MSV11-J MEMORY DIAG.

MESSAGES

—

]

—
e
——

' CVMJAAQ MSV11-J MEMORY DIAG.

| MESSAGES
i

067307
067312
14825 067315
067320
067323
067326
067331
14826 067334
067337
067342
067345
067350
14827 067352
067355
067360
067363
067366
067371
14828 067374
067377
067402
067405
067410
067413
067416
14829 067420
067423
067426
067431
067434
067437
067442
14830 067445
067450

105
122
200
104
101

040

123
200
124
111

040
124

MACRO VO05.01b Friday 15-Feb-85 16:10

114

127
040
104
101
123

124

077

103

120
124

MSGO37:

.ASCIZ

<CRLF>/0LD DATA WAS /

MSGO38:

.ASCIZ

<CRLF>/DATA IS NOW /

MSGO39:

.ASCIZ

<CRLF>/INPUT NEW DATA? /

MSGO040:

.ASCIZ

<CRLF>/SELECT BANK & TEST/

MSGO041:

.ASCIZ

<CRLF>/BANK NOT ACCESSABLE/

MSGO42:

.ASCIZ

<CRLF>/TEST(0-47)? /

MSG043:

.ASCIZ

<CRLF>/TEST O DATA IS? /

MSG046:

.ASCIZ

<CRLF>/T0 ESCAPE TYPE ANY KEY/<CRLF><12><12>

MSGO47:

.ASCIZ

<CRLF>/TEST COMPLETE/

117

124
040
123
105
040
116
046
105
000
102
113
117
101
105
101
105
124
124
055
051
000

101

Page 473-7

117

000
111
125
116
040

067453
067456

067461
14831 067463
067466
067471
067474
067477
067502
14832 067505
067510
067513
067516
067521
067524
067527
067532
067535
14833 067540
067543
067546
067551
067554

115
131
117

124
040

124
111
040
124
105
101
040
120
101
040
131
012
124
124

117

114

105

105
116

105

115
105

SEQ 0432

067562

067565

067570
067573
067576
067601
067604
067607
067612

067615
14835 067617
067622
067625
067630
067633
067636
067641
067644
067647

14836
14837 067652
067655
067660
067663
067666
14838 067671
067674
067677
067702
067705
067710
14839 067712
067715
067720
067723
067726
067731
067734
067737
067742

14840 067745

067750
067753
067756
067761
067764
14841 067767
067772
067775
14842 067776
070001
070004
070007
070012
070015
14843 070016

040
124

126
114
114
116
040
124

040

124

041
200
116
122

125
105
122
117
124
116

116
040
101
101
105

117

117
101
111
102
040
127

Page 473-8

MSG048:

.ASCIZ

/ NOT AVAILABLE NOW - TRY LATER!/

055
122
114
105
000
102
113
105
111
123
105
103
111
000

040

101
040
121
122
040
114
101
117

MSG049:

.ASCIZ

<CRLF>/BANK REQUIRES RELOCATION/

117

127
040
103
105

MSGOS1:

.EVEN
.ASCIZ

/POWER RECOVERY/

117
101

MSGOSS:

.ASCIZ

<CRLF>/S0B-A-LONG TEST/

MSGO056:

.ASCIZ

<CRLF>/BELL

MSGO58:

.ASCIZ

<CRLF>/

MSGO61:

.ASCIZ

/21U

MSGO62:

.ASCIZ

/INPUT MUST BE A/

MSGO63:

.ASCIZ

/N OCTAL /

122
105
126
131
123
055

114
107
105

000

102
114
040
103
120
123
117
114
105

131
101
122

000

117

040

123

105

040

= EACH PASS COMPLETE/

105
110
101

040

115
105

000
040
122
040

123
056
000
077
077
120

CSR

123
102
101

117

CSR .../

—

14834 067557

MACRO V05.01b Friday 15-Feb-85 16:10

SEQ 0433

- CVMJAAQ MSV11-J MEMORY DIAG.

! MESSAGES

| CVMJAAQ MSV11-J MEMORY DIAG.

| MESSAGES

070021
070024
14844 070027

070032
070035
14845 070037
070042
070045
070050
14846 070051
070054
070057
070062
070065
070070
070073
070076
070101
070104
070107
070112
070115
14847 070120
070123
070126
14848 070127
070132
070135
070140
070143
070146
070151
070154
070157
14849 070160
070163
070166
070171
070174
14850 070176
070201
070204
070207
070212
070215
070220
070223
070226
14851 070230
070233
070236
070241
070244
070247
14852 070251
070254
070257

103
114
116
102
200
040
103
101
000
200
122
123

040
040

101
122

124

040

MACRO V05.01b Friday 15-Feb-85 16:10
101
000
115
122

Page 473-9

MSG064:

.ASCIZ

/NUMBER/ <CRLF >

105
115

MSGO65:

.ASCIZ

/ DECIMAL /

105
117

122
122
076
060
040

MSGO66:

.ASCIZ

<CRLF>/ERRORS > 20 - ABORTING FOR XXDP CHAIN/

124
107
117
130
120
110
116

111
040
122
130
040
101
000
124
040

MSGO67:

.ASCIZ

/FATAL /

040
122
040
040

127
104
117
115
117

MSGO70:

.ASCIZ

/K WORDS OF MEMORY TOTAL/<CRLF>

125
105
000
104
111
114

040
062
055
102

101
114

115
131
117
114

040

117

040
124

200

122
122
110
105
000
122

105
105
040
123

MSGO73:

.ASCIZ

<CRLF>/REFRESH TEST/

MSGO75:

.ASCIZ

<CRLF>/RELOCATION NOT POSSIBLE/<32>

124
116

205
103

111
040
124

040
116
040
122

MSGO76:

.ASCIzZ

<CRLF>/

116
120
123

MSGO77:

.ASCIZ

<CRLF>/END PASS #/

117

120
123
114
000
040
101
040
122
122
000
105
040
123

117

111
105

BANK

ERRORS/<CRLF>

123

SEQ 0434

| CVMJAAQ MSV11-J MEMORY DIAG.

' HESSAGES

070262
14853 070265
070270

070273
070276
070301

14854

040

043
105

117
123
104
105
105

000
106
114
117
124

103
114

14855

14856

040
113
116
040
101
000

000
122
122
051

Page 473-10

MSG079:

.ASCIZ

/ ERROR(S) DETECTED/<CRLF>

MSGO8S:

.ASCIZ

<CRLF>/FILL COUNT(OCTAL)? /

MSG088:

.ASCIZ

<CRLF>/KERNEL STACK/

MSG089:

.ASCIZ

<CRLF>/SUPERVISOR STACK/

MSG090:

.ASCIZ

<CRLF>/USER STACK/

105
103
104

111
040
125
050
124
051
000
105
105

123
103

123
105
111
122
124
113
125
122
124
113
111
105
124

125
122
123
040
101
000
123
040
101
000

123
115
131

MSGO91:

.ASCIZ

/ IS EMPTY/

105
103
105

114
101
104
000
116
000
124
124

MSG092:

.ASCIZ

/RELOCATED

MSG093:

.ASCIZ

/BANK=/

MSG095:

.ASCIZ

MSG101:

.ASCIZ

<CRLF>/ENTERING KAMIKAZE MODE/

MSG102:

.ASCIZ

<CRLF>/LEAVING KAMIKAZE MODE/

040
101

14863

MACRO V05.01b Friday 15-Feb-85 16:10

075
040
123
000
105
105
116
113
111
132
115
105
114
126
107
101
113
105

116

122
107
101
113
105
117

000

105

111
040
115
101
040

TEST=/

SEQ 0435

| CVMJAAQ MSV11-J MEMORY DIAG.
| MESSAGES
|
|

070530
070533

14864 070535

070540
070543
070546
070551
070554.

14865 070557.
14866 070561
070564
070567
070572
070575
070600
070603
070606
070611
070614
070617
070622
070625
070630
070633

115
105

117
000

104

101
116
106
115
105

126
107
123
117
200

111
040
040
104
000

200

032
200

124
040
116
040

200

070663

040

32,0
;CONTROL Z
<CRLF>/ENTER BANKS - USE NUMBER 200 TO TERMINATE/

101

MSG106: .ASCIZ

<CRLF>/CACHE IS OFF/

103

101

MSG107: .ASCIZ

<CRLF>/CACHE IS ON (EXCEPT DURING ACTUAL PATTERNS)/

117

116

MSG110: .ASCIZ

<CRLF>/ONLY SELECTED BANKS WILL BE TESTED/

MSG111:

<CRLF>/ALL BANKS WILL BE TESTED/

105
102
113
055

122
101
123
040

060
117
105
111

040
040
122
116

103

119
111
117
000

103
040

110
111

040
130
120
104
111
040
124
114

14869 070727

200

070762
070765
070770

105
105
105

14870 070773

MSG104: .BYTE_
MSG105: .ASCIZ

103
040
040
106

070666
070671
070674
070677
070702
070705
070710
070713

070732
070735
070740
070743
070746
070751
070754
070757

116

000
105

124

14868 070652

070716
070721
070724

<CRLF>/LEAVING FS MODE/<CRLF>

101

000

200

070655
070660

MSG103: .ASCIZ

123
116
102
040

060
124
124
115

Page 473-11

105

114

125
040
115
122

14867 070634
070637
070642
070645
070650

MACRO V05.01b Friday 15-Feb-85 16:10

050
103
124
125
116
101
125
040

105
125
105
062

105

105
123
106

105
123

105
105
040
122
107
103
101
120

101
105
123

124
122
051

124
116
000

114
123
105
105
102
113
127
114

131
105
103
104
101
123
111
040

040
114
124
040
116
040
114
102

200

101

114

117

040
123
104

116

124
124
000

.ASCIZ

SEQ 0436 |

——

e
el

| CVMJAAQ MSV11-J MEMORY DIAG.

MESSAGES
1

070776
071001
071004
071007
071012
071015
071020
071023
14871 071025
071030
071033
071036
071041
071044

071047
071052
071055
14872 071057
071062
071065
071070
071073
071076
14873 071100
071103
071106
071111
14874 071112

071115

071120
071123
14875 071124
071127
071132
14876 071133
071136
071141
071144
071147
071152
14877 071154
071157
071162
071165
071170
071173
14878 071174
071177
071202
071205
14879 071210
14880 071211
071214

071217
071222
071225
071230

114
101
123
111
040
040
123

040
116
040

114
102
124
124
000
040
040
102
040
122
131
105
122
000
040
040
103
105
122
000

MACRO V05.01b Friday 15-Feb-85 16:10

Page 473-12

102
113

127

114

105
105
105
117
121
125
120
111
040
115
131

MSG112:

.ASCIZ

/K OF Q-BUS PARITY MEMORY/<CRLF>

117
105

MSG113:

.ASCIZ

/K OF ECC MEMORY/<CRLF>

040
061
070

040
061
064

M1184:

.ASCIZ

<CRLF>"

11/84"

040
061
070

040
061
063

MSG117:

.ASCIZ

<CRLF>"

11/83"

040
116

040
117

MSG119:

.ASCIZ

<CRLF>/

NO/

103
110
101
111
102
000
103
110
102
101
105

101
105
126

MSG120:

.ASCIZ

/ CACHE AVAILABLE/

101
105
131
123
104

MSGl21:

.ASCIZ

/ CACHE BYPASSED/

103
040
115
122

123
116
102
040

MSG122:

.ASCII

<CRLF>/CSR NUMBER /

103
124
114
124

117
122
123
117
115
131

040
116

040
115
131

114
114

MSGA122:
. BYTE

.ASCIZ

/ CONTROLS TOO MANY BANKS/

SEQ 0437

——

| CVMJAAO MSV11-J MEMORY DIAG.
| MESSAGES

071233
071236
071241
14881 071242
071245
071250
071253
071256
071261
14882 071264
071267
071272
071275
071300
071303
071306
071311
071314
071317
071322
071325
071330
14883 071331
071334
071337
071342
071345

14884 071350
071353
071356
071361
071364
071367

14885 071370
071373
071376
071401
071404

071407
071412
071415
071420
14886 071422
071425
071430
071433
071436
071441
071444
071447
071452
071455
071460
071463
071466
14887 071471
14888 071474

040
116
000
040
123

123
117
114
105
200
117
101
103

040

125
040
124
105
105
122
116
000
200
101
040
101
105
200
101
C40
123
114
040

MACRO V05.01b Fridey 15-Feb-85 16:10

102
113

101
123

120

101
105
103
120
124
000
122
122

123

040

115
105
104
120
107
115
123
103
114

—

——

————————
—

Page 473-13

SEQ 0438

MSG125:

.ASCIZ

/ PASSES COMPLETED/

MSG126:

.ASCIZ

<CRLF>/PROGRAM CSR COULD NOT BE DETERMINED/

MSG127:

.ASCIZ

<CRLF>/TRACE ENABLED/

MSG128:

.ASCIZ

<CRLF>/TRACE DISABLED/

MSGO08:

.ASCIZ

<CRLF><CRLF>/

MSG000:

.ASCIZ

<CRLF>" CVMJAO

MSG129:
MSG130:

.ASCIZ
.ASCIZ

<CRLF><CRLF>
/PROCESSOR NOT SUPPORTED BY THIS DIAGNOSTIC/

040

122
117
104

117
102
104
105
111
104
122
105
116
114
000
122
105
111
102
104

CSR MAP/<CRLF>

ECC/PARITY MEMORY DIAGNOSTIC"

—

e el

| CVMJAAQ MSV11-J MEMORY DIAG.

| MESSAGES

071477
071502
071505
071510
071513
071516
071521
071524
071527
071532
071535
071540
071543
071546
14889 071547
071552
071555
071560
071563
071566
071571
071574
071577
071602

071605

14890

071610

14896 071612
14897 071612
14898 071612

14902

103
123
040
124
125

117
105
102
124
123
111

105
117
116
040
120
122
104
131
110
040
101

124

111

200

125
102
040
115
131
111

116

000
111

123
105
122
127

114
117
102

124
124
200

010322
000200

117

040
124

105
105
105

000

MACRO V05.01b Fridey 15-Feb-85 16:10

Page 473-14

123
122
117
123
120
124
040
040
111
104
107
123
103

116
125
115
117
040
114
116
040
040
123
104

NOUBMT:

END:

.ASCIZ

<CRLF>/UNIBUS MEMORY WILL NOT BE TESTED/<CRLF>

.EVEN
$$END

.PRINT 60000-SUPLIMIT
.END START3

;SUPERVISOR ADDRESSES LEFT

SEQ 0439

| CVMJAAO MSV11-J MEMORY DIAG.
| Symbol tebl ¢

ABORT

ABORTF

ABORT1
ABORT2
ACFLAG

000000

BSIZE

000032
100046
002116

B1
810
8100

002144

MACRO V05.01b Friday 15-Feb-85 16:10
035112

CPUERR= 177766

DH13

064172

005656
012262
045566

B63
864
B65

035322
035326
036444

CRLF = 000200
CSR
002150
CSRADD= 172100

DH1S
DH16
DH19

064346
064465
064502

8101

046040

ANA2
APTDOW
APTECC

007372
040720
002424

8103
B104
B10S

053522
053526
053624

APTFLA
APTHAN
APTHLT
APTPAR
APTSIZ

BACK
BACKGN
BAD
BADPC
BADPSW
BADSP
BADSTA
BADXOR

002352
014126
040766
002422
002444

051530
032630
002052
002022
002032
002026
034152
002060
002054
002056
014262

014370
002632
002102
BANKIN 002104
037442
040456
014476
014626
027610
002324
= 000001
= 000002
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000
040770
041010
041024
002130

027612

8102

8106
B107
B11
B12
813

046046

053716
054002
013010
013060
013122

Bl4
B1S
B16
B17
B2
B20
B21
B22
B23
B24

013400
014172
015610
016060
006050
016066
016104
016146
016220
021642

B26
B27
B3
B30
B31
B32
B33
B34
B35S
B36
B37
B4
B40
B4l
B42
B43
B44
84S
B46
B47
BS
850
BS1
BS2
853
BS54
855
856
BS7
B86

022026
022034
006120
022264
025750
026140
026176
026620
026656
026672
027012
006400
027172
027214
027742
030102
030140
030432
030646
031050
006434
031224
031244
031254
031572
031742
031756
032022
034746
011544

B2S

860

SEQ 0440 '

B61

004652

002350

002034

Page 473-15

002374

ACTFLA

ADDRES

021646

034752

B62
B66

035116

036452

B67

036602

B72
B73
B74
B7S
B76

043746
044230
044524
044524
044622

B7
B70
B71

012220
036616
043510

B77
045562
CACHKF 002550
CACHKN 002544
CACHOF= 104424
CACHON= 104423
CACHVE= 000114
CBCSR = 104474
CBITS
002316
CBREG = 104513
CB1CSR= 104475
CHECK

002314

CPUBIT

002106

CHKDIS= 104504
CHKTRP 032220
CHK1DI= 104505
CKEND
055056
CKSWR = 104410
CLRCSR= 104502
CLREX
007342
CLRMEM 007232
CLR1CS= 104503
CMD16A 044610
CMD16L= 000074
CMDSB
042752
CMDSC
043246
CMD7B
043504
CMD7C
043560
CMD9B
044224
CMD9C
044300
CONFGE 002450
CONFIE 003670
CONFIG 002664
CONTFL 002222
CONTRL= 177746
CONTS
055226
CONTS1 054570
CONTS2 055230
CONTS3 047340
CONTT
055152
002370
COUNT
CPERRF 052314
CPSAVE 052312

= 000015

CSRBMP

006024

CSRFBA
CSRFIR
CSRHOL

002232
002226
002526

CSRCAS

CSRINC
CSRINF
CSRINT
CSRLAS
CSRLBA

017004

002330
002462
002236
002230
002234

CSRLOO 002332
CSRMAP 006034
CSRNO
002152
CSROUT 035314
CSRSTU= 000021
CSR1S
002322
CTEST
006714
CTLKVE 002146
DATARG= 177754
DATBUF 002242
DBEMSK

002256

DH12

064165

DDISP = 177570
DEENER= 104421
DETAIL 053266
DETFLA 002220
DETPSW 002216
DETRO
002200
DETR1
002202
DETR2
002204
DETR3
002206
DETR4
002210
DETRS
002212
DETSP
002214
DET1
053756
DF1
060556
DF11
060701
DF13
060712
DF14
060722
DF1S
060731
DF16
060740
DF2
060557
DF3
060603
DF4
060616
DFS
060631
DF6
060644
DF7
060657
060672
DF8
DF9
060674
063501
DH1
064051
DH10
DH11
064147

DHi14
DH2

DH20

DH23
DH24
DH2S

DH26
DH27
DH3
DH30
DHS

064267

063536

064507

064566
064645
064714

064752
064770
063561
065044
063615

DH6
063674
DH?
063741
DIAGFL 002004
DISPLA 002640
DISPRE= 000174
DISPTB 013600
DOBACK 014162
DONE
006700
DSWR = 177570
D71
060144
D710

060264

EM13

061315

DT11
060306
DT12
060314
DT13
060320
DT14
060342
DT16
060360
D117
060410
DT2
060156
D720
060416
D122
060426
D723
060434
D724
060456
D125
060476
DT26
060510
D127
060516
DT3
060162
DT30
060536
D74
060172
DTS
060202
D76
060220
D17
060234
DUMMY
002176
DUMPCS= 000103
ECCDIS= 104470
ECCINI= 104472
ECC1DI= 104471
ECC1IN= 104473
EMTSAV 003670
EMTVEC= 000030
061247
EM11
EM12
061271

CVMJAAQ MSV11-J MEMORY DIAG.
Symbol teble
EM14
EM1S
EM17

EM19
EM2
EM20

EM21

EM22

EM23

EM24
EM2S
EM26
EM27
EM29
EM3
EM30
EM32
EM33
EM3S
EM36
EM4
EM40
EMS
EMS0
EMS1
EMS2
EMS3
EMSS
EMS6

EMS7
EM6
EM60
EM61
EM62
EM7
ENASBE=
ENA1SB=
END
ENDADD

ENDFLG
ENERGI=
ENEXBK
EQFLAG
ERRADD
ERRGEN=
ERRMAX
ERROR =
ERRPC
ERRPSH
ERRSP

061347
061413
061461

061521
060747
061573

061652

061706

061733

061762
062041
062066
062137
062227
061005
062311
062421
062526
062634
062721
061037
062770
061105
063042
063076
063146
063173
063222
063243
063275
061162
063343
063405
063426
061207
104506
104507
071612
002562
002564
104420
040446
002132
002460
104512
002554

EO
El
E10
E100
E101
E102
E103
E104
E105
E106
E107
E1ll
El2
E13

El4
E15

E16
E17
E2
E20
E21
E22
E23
E24

E25

E26

E27
E3
E30
E31

042040
042360
040604
040610

004700
005776
012346
045622
046102
046102
053570
053570
053654
053750
054034
013052
013120
013150
013520
014260
015630
016414
006114
016374
016324
016324
016274
022004
021770
022172
022156
006210
022342

02€034

026414
026402
027164
027150
026764
027134
006622
027210
027234
030064
030270
030256

030536

104000
002020
002030
002024
ERRVEC= 000004
EVEN
002364
EXBANK 040052
EXCMD3
EXCMD4
EXIT

MACRO V05.01b Fridey 15-Feb-85 16:10

€6l

031022
031220
006612
031542
031524
031510
031726
032212
032202
032170
035020
011676
035020
035164

E62
E63
E64
E6S
E66

E67
E7
E70
E71
E72
E73
E74
E7S
E76
E77

035164
035356
035356
036602
036562
037016
012362
036730
043552
044050
044272
044564
044564

044640
045622
FASTCI= 177640
FATAL$ 002064
FCMD10
044364
FCMD11
FCMD12

FCMD13
FCMD14
FCMD15
FCMD16
FCMD17
FCMD18
FIELDS
FINDBA=
FINT$
FIRST =
FLIPLO
FLIPWA

044412
044434
044454
044476
044514

FLUSH

FSCMDO
FSCMD1
FSCMD2
FSCMD3
FSCMD4
FSCMDS
FSCMD6
FSCMD7
FSCMD8
FSCMD9
FSINFL
FSPAT
FSSTAC

FS1
FSTFLA
FULLRE

GBLENG=
GETCSR
GETDAT
GETDA1
GETDIS
G00oD

G0OoD2
GO0D3

Page 473-16

GTSWR =
HEADER
HIPAT
HOLODLO=

104407
002612
040510
000016
HT
= 000011
002452
1
IBSAVE 052310
III1
= 177777
ILLCSR 012724
IMPTES 011750
INCBNK 040520
INCPAT 040474
INCRPT 040474
INHBAN 002540
INHECC 002536
INTFLA 002136
INT64K 002140
INVALI= 104511
IOTVEC= 000020
JMPRL1 037076
KAMIKA 002006
KAMITE
024234
KDIAG = 000010
KDPARO= 172360
KDPAR6= 172374
KDPAR7= 172376
KERNEL
= 104417
KERSTK= 002000
KFLAG
002530
KIPARO= 172340
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPDRO= 172300
KMAP
= 104422
KPFLAG
002114
KSIZE
002376
KSTACK
002574
= 157776
LAST
LASTBA 002556
LASTBL
002560
LASTER 002016
LBLSO
000530
000107
LBLS1
LBLS2
LBLS3
LBLS4
LBLSS
LBLS6
LCSROU=

LCSRRE=

LCSRSA=

LEGALC=
=
LF
LINK1

002050

LINK2
LKS
= 177546

LOADBA 002432
LOADCS= 104425
LOADER= 000065
LOADHO 002576
LOOP
013552
LSIZE
002400
LST$$ = 000000
LWDBE = 000061
LWSBE = 000057
LO
004662
L1
004724
005222
L10
L100
012334
012340
L101
013042
L102
L103
013036
013042
L104
L105
013136
L106
013206
013352
L107
L11
005230
013552
L110
013510
L111
013426
L112
0134320
L113
013470
L114
013504
L115
L116
013550
013552
L117
L12
005300
013666
L120
Li21
013776
L122

L123

L124

L125
L126
L127
L13
L130
L131
L132
L133
L134
L135
L136
L137
L14
L140
L141
L142
L143
L144
L145
L146
L147
L1S

014006
014156
014156
014244
014356
014464
005274
014614
014744
015074

015246
015376
015550
015630
015666
005300
015676
016324
016306
016356
016626
016736
017074
017122
005610

| CVMJAAO MSV11-J MEMORY DIAG.
| Symbol table
L150
L151

L15¢2

L153
L154
L155
L156
L157
L16
L160
L161
L162
L163
L164
L165
L166
L167
L17
L170
L171
L172
L173
L174
L175
L176
L177
L2
L20
L200
L201

L202

L203
L204

L205
L206
L207
L21
L210
L2ll
L2l2
L213

—

——————

L214
L21S
L216
L217
L220
L221
L222
L223
L225
L226
L227

L230
L231
L232
L235
L236

017126
017130

017174

017230
017234
017236
017404
017764
005610
020370
020400
020400
020472
020502
020502
021036
021070
005724
021134
021754
021732
021754
022020
022142
022120
022142
005032
005752
022326
022326

022434

022406
022464
022654
023170
023424
005770
023444
023544
023724
023732
024070
024076
024256
024264

024270
025704
025742
026022
026172
026176
026272
026350
026366
026372
026642
026652

L237
L24
L240
L241
L242
L243
L244
L245
L246
L247
L25
L250
L251
L252
L253
L254
L2535
L256
L257
L26
L260
L26l
L262
L263
L266
L267

L27
L271
La72

L273
L274
L276
L277
L3
L301
L302
L3063
L304
L31
L310
L311
L313
L314
L315
L316
L317
L32
L320
L321
L325
L326
L327
L33
L330
L331
L332
L333

MACRO V05.01b Fridey 15-Feb-85 16:10

026764

L334

033434

Page 473-17

L416

043044

006156
026714
026726

L335
L336
L337

033530
033520
033526

L417
L42
L420

0430:0
00655.
04307

026752
026776
027134
27034
27046
006146
027100
027064
027076
027122
027110
027122
027234
030134
006154
030140
030224
030242
030246
030364
030522
006164
030570
030576
030722
030772
031132
031202
005054
031354
031430
031446
031474

L340
L341
L342
L343
L344
L345
L346
L347
L35
L350
L351
L352
L353
L354
L355
L356
L357
L36
L360
L361
L362
L363
L364
L365
L366
L367
L37
L370
L371
L372
L373
L374
L375

033536
033562
033664
034532
034540
034776
034776
035040
006430
035046
035142
035142
035204
035212
035334
036416
036432
006434
036444
036444
036546
036576
036720
036720
036720
036700
006464
036720
036762
036762
037012
040204
040374

L422
L423
L424
L425
L426
L427
L43
L430
L431
L432
L433
L434
L435
L436
L437
L44
L440
L441
L442
L443
L444
L445
L446
L447
L45
L450
L451
L452
L453
L454
L455
L456
L457

043424
043536
044050
044034
044004
044142
006554
044144
044256
044546
044550
045014
045030
045034
045052
006576
045200
045202
045246
045472
045600
046060
047376
047400
006602
050230
050242
050260
050262
050302
050314
050332
050334

026744

006262
031636
031700
032016
032022
032074
032076
032134
006266
032154
032160
032252
032250
032272
006332
032272
032410
032456
033034

L34

L376
L377
L4
L40
L400
L401
L402
L403
L404
L405
L406
L407
L4l
L410
L411
L412
L413
L414
L415

006374

040556
040624
005072
006510
040630
040636
040652
040664
041076
041106
041242
041302
006562
041306
041336
041350
042536
042576
042636

L4a21

L460
L461
L462
L463
L464
L465
L466
L467
L470
L471
L472
L473
L474
L475
L476
L477
LS
L50
L500

043422

050350
050552
050560
050606
050620
050636
050650
050662
050704
050752
051032
051046
051050
051164
051254
051264
005150
006636
051604

SEQ 0442
L501
L502
L503
L504
L505
L506
L5307
L51
L3510
L5311
LS12
L513
L514
L515
L3516
L3517
L32
L520
L521
L3522
L523

L524

L3525
L526
L3527
LS3
L530
L54
LSS
L56
LS57
L6
L60
L6l
L62
L63
L64

L65
L66
L67
L7
L70

L71
L72
L73

L74
L7S

L76
L77
MAINT =
MAPHQ =
MAPKER
MAPLO =
MAPL1 =
MKPPER
MASK

MBERR

011516
011662
011662
011662

011662
011656
011734
011740
005230
011742
012124
012124
012124
012130

012346
012346
012336
177750
170202
037740
170200
170204
035716
002320
012602

CVMJAAO MSV11-J MEMORY DIAG.
' Symbol table

MACRO V05.01b Friday 15-Feb-85 16:10

| MEMDON

067315
067334
067352
067374
067420
067445
067463
067505
067540
067557
067617
067652
067671
067712
067745
067767
067776
070016
070027
070037
070051
070120
070127
070160
070176
070230
070251
070265
070311
070336
070354
070376
070412
070424
070440
070446
070456
070506

=
MFPT
MJPAT
MJTEST
MKCNT
MKCONT
MKCSRT
MKFLAG
MKLOOP

MKPAT
MKTEST
MMRO

013620
000007
017430
017324
016476
015656
017014
002120
016040
017244
017104

177572
177574
177576
172516

034126
000250
002276
002606
002610
071210
067207
067245
071422
065123
065205
065262
065367
065475
065507
071370
065544
065556
065656
065744
066056
066060
066062
066064
066076
066107
066112
066116
066137
066725
066747
066763
067007
067021
067036
067052
067072
067111
067151
067170
067273
067276

MSGO37
MSGO38
MSGO39

MSG040
MSGO41

MSGO42
MSG043
MSG046

MSGO47
MSGO048
MSG049
MSGOS51

MSGOS5

MSGO56

MSGOS8

MSGO61
MSG062
MSG063

MSG092
MSGO93
MSGO95
MSG101
MSG102

MSG103
MSG104
MSG105

MSG106

MSG107

MSG11A
MSG1iB
MSG11C
MSG11D
MSG110
MSG111
MSG112
MSG113
MSG117
MSG119
MSG120
MSG121
MSG122
MSG125

070535
070557
070561
070634
070652
065570

066041
066043
066045
070727
070773
071025
071057
071112
071124
071133
071154
071174
071242

MSG126
MSG127
MSG128
MSG129
MSG130
MSIZE
MTA030
MTEST
MTPAO3
MTPAO4
MTPA21
MTPA24
MTPA26
MTPBO3
MTPBO4
MTPB21
MTPB24
MTPB26
MTPCO3
MTPC21
MTPC24
MTPC26
MTPDO3
MTPD21
MTPD26
MTP0O0O

MTPOO1
MTPOO2
MTPOOS
MTPO06
MTPOO7
MTPO10
MTPO14
MTPO17
MTP020
MTPO22
MTPO30
MTPO31
MTPO32
MTPO33
MTPO34

MTPO35

MTPO36
MTPO37
MTPO41
MTPO42
MTP043
MTP0O44
MTPO45
MTP0O46
MTP0O47
MTST3
MT0000
MT0001
MT0002
MT0003
MT0004

071264
071331
071350
071471
071474
002402
022212
015562
024750
025106
026442
027266
027360
025010
025142
026472
027326
027374
025050
026526
027342
027430
025066
026562
027450
024640
024664
024716
025162
025216
025416
025516
025624

Page 473-18

MT0005
MT0006
MT0007
MT0010
MT0014
MT0017
MT0020
MT0021
MT0022
MT0023
MT0024
MT0026
MT0027
MT0030
MT0031
MT0032
MT0033
MT0034
MT0035
MT0036
MT0037
MT0041
MT0042
MT0043
MT0044
MT0045
MT0046
MT0047
MT0999
MT71

026050
026126
026612

027466
027476
027554
027606
027704
027730
030072
030316
030370
030542
031030
031224
031546
031734
032274
011414
017510
017544
017640
017754
020070

OLDCAC

020140
020222
020256
020320
020354
020434
020456
020536
021026
021060
021124
021332
021610
022200
022454
022644
023160
023346
023446
023560
023622
023660
023740
023774
024024
024104
024134
024164
024220
015636
015642
002110
071100
047400
002070
002310
037672
037774
051514
054552
002430
002426
002100
034050
033034
033144
002076
003722
002440
002456
002372
051200
071547
002454
002344
005752
002302

SEQ 0443
OLDCSR
ONES
PADDRE

002156
002614
002036
PAFBAF
014756
PAFBAW
015106
PARBAF
015260
PARBAW
015410
PARCNT
002072
PARITY
033744
PARTHE
002304
PARVEC= 000114
PASCNT
002570
PASFLG
002264
PASSNO
002266
PATERR
002074
PATPLU 004644
PATTER
002112
PCBUMP 002326
PCONFI
032722
PCONFS
033334
PCONF
1
033242
PCONF2
033302
PDP110
034140
045472
PD1
PERAOS
047614
PERBNK
PERECC
050526
PERRAB
050264
PERRAW
050212
PERRA3
PERRA7
050336
PERRO1= 104427
PERRO2= 104430
PERRO3= 104431
PERRO4= 104432
PERROS
047610
PERRO6
047636
PERRO7= 104433
PERR10= 104434
PERR11= 104435
PERR12= 104436
PERR13= 104437
PERR14= 104440
PERR15= 104441
PERR16= 104442
PERR17= 104443
PERR20=
PERR21=
PERR22=
PERR23=
PERR24=
PERR25=
PERR26=
PERR27=
PERR30=
PERR31=
PERR32=

104445
104446
104447
104450
104451
104452
104453
104454
104455
104456

| CVMJAAO MSV11-J MEMORY DIAG.
Symbol table

| PERR33= 104457
104460
PERR3S5= 104461

| PERR34=

PERR36= 104462
PERR37= 104463
PERR40=
PERR4 1~
PERR42=
PERR43=
PERXOR

PFECOF
PFECDH
PFECDT
PFECEM
PFECWS
PFLAG

104414
104412

104413
104426

002410
002300
027166
027236
032470
037022
036402
037036
104416
002626
000010
041350
041430
C41576
002126
002124

RTNVAL =%000000

SAVCSR

006220

002154
002274
SAVPAR 002272
SAVREG= 104415

——

MACRO V05.01b Friday 15-Feb-85 16:10

003706
SAV30
003710
SAV32
002270
SAV4
SBEMSK 002252
SBENT
016756
SBESYN 026422
SBETES 016500
SCOPE = 000004
SDPARQ= 172260
SDPARS= 172272
SDPAR6= 172274
SOPAR7= 172276
SEEDHI 002602
SEEDLO 002604
002002
SELONL
SETPAT 040510
SHADL
1 011444
SHUTUP 040636
SIPAROQ= 172240
SIPAR3= 172246
SIPARS= 172252
SIPAR6= 172254
SIPDRO= 172200
= 040000
SIZE
SKIPKA 002010
SKIPMK 002342
051226
SKJ
002066
037012
012606
002572
000056
002620
002312

SSP

START1
START2
START3
STAR27
STOPOK
STRIPE
SUBAAA
SUBARB
SUBAAI
SUBAAP
SUBAAR
SUBAAS
SUCCES
SUPDOA
SUPDO1
SUPDO2
SUPDO3
SUPDO4

002240

=%000006
177776
002000
003670
000300
000310
000200
021634
002420
002366
004702
005032
011440
012766
012172
010454
002334
002262
024270
024304
024446
024462

SUPDRO
SUPDR1
SUPDR2
SUPDR3
SUPDR4
SUPDRS
SUPDR6
SUPLIM
SUPSTK=
SWAPAT

002160
002162
002164
002166
002170
002172
002174
047456
000740
002634

002636
000176
055054
002566
000001
000002

000200
000400
001000

104514

004012
011046
011102
024364
052736
052746
052756
053026
053066
053100

053112
053156
053164
053244
010710
024542
033404
033444
033600
033336
002434
002412
002552
002340
TIMEQU
034114
TKVEC = 000060

Page 473-19

002134
002406
002224
006216
000034
TSTBAN 011302
TSTDAT
002246
TSTRD1
034542
TSTREA= 104510
TST1
005630
TST2
010460
TST3
010644
1574
011526
TSTS
013552
TST6
013624
TYPDS = 104405
TYPEIT= 104401
TYPOC = 104402
TYPOS
104403
TYPSO
000000
TYPS1
000002
TYPS2
000000
TYPS3
000000
TYPS4
000000
TYPSS
000000
TYPS6
000002
177660
177676
002000
177640
177642
177644
177646
177650
177652
177654
177601
002416
040026
037214
002265
USERMA 037610
USESTK= 000700
USP
=%000006
VMKOR
003712
WARN1
010776
WARN2
024762
WARN3
024776
WARN4
025022
WARNS
025036
WASDBE
= 104500
WASSBE
= 104476
WAS10B= 104501
WAS15B= 104477
WHICHC
044670
WOOPEN
046654
WOOPS
046306
TMFLAG
TOOMAN
TOTCSR
TRACE
TRAPVE=

SEQ 0444
WOOPSA

WORST

XOCHAR
XXDPCH

ZEROS
$APTHD
$AUTO
$BANK
$BASE
$BELL
$CACHF
$CACHN
$CBCSR
$CBREG
$CB1CS
$COW1
$CDW2
$CHARC
$CHKDI
$CHK1D
$CKSWR
$CLRCS
$CLR1C
$CMTAG
$CMTGE

$CNTLC
$CNTLG
$CNTLK
$CNTLUY

$CPUOP
$CRLF

$DBLK
$0820
$0DWO

$DDW1
$0DW2
$DDW3
$0DW4
$0DWS
$00W7
$DEENE
$DEVCT
$DEVM
$DIDDO=
$DOAGA
$DOAGN
$DOWN
$DTBL
$ECCDI
$ECCIN
$ECC1D
$ECCLI
$ENASB
$ENALS
$ENDAD
$ENERG

046704
046472

002600
047246
002354

002336

056750
002062
002013
056722
002653
034256
034232
034672
035662
034714
056726
056730
047434
035266
035302
054530
035244
035256
002000
002544
055736
055750
055144
055743
056674
002660
054520
056526
056734
056736
056740
056742
056744
056746
056732
034222
056656
056724
014156
014052
045722
054510
034570
034616
034604
034632
034644
034660
014042
034212

| CVMJAAO MSV11-J MEMORY DIAG.

' Symbol table

$ENV

056666
$ENVM
056667
$EOP
013676
$ERFLG 002014
$ERRGE 035412
$ERROR 051502
$ERRTB 057274
$ERRTY 052316
$ERTTL 002630
$ESCAP 002362
$ETABL 056666
$ETEND 056750
$EXHAL 040630
$E$
= 000001
$FATAL 056650
$FILLC 002652
$FILLS 002357
$F$
= 000000
$GTSWR 054704
$HALT
052100
$HALT2 057024
$HIBTS 056750
$HIOCT 056146
$ILLUP 046300
$INVAL 035362
$ITEMB 002015
$I$
= 000001
$KERNE 034202
$KMAP
036310
$K$
= 000103
$L
= 000110
$LF
002661

. ABS.

071612
000000

Errors detected:

MACRO V05.01b Friday 15-Feb-85 16:10

$LL

= 000106
$LOADC 034274
$LPADR 002622
$LPERR 002624
$L$
= 000000
$MADR1 056700
$MADR2 056704
$MADR3 056710
$MADR4 056714
$MAIL
056646
$MAMS1 056676
$MAMS2 056702
$MAMS3 056706
$MAMS4 056712
$MBADR 056752
$MNEW
055766
$MSGAD 056662
$MSGLG 056664
$MSGTY 056646
$MSWR
055755
$MTYP1 056677
$MTYP2 056703
$MTYP3 056707
$MTYP4 056713
$NOTRA 057020
$NULL
002356
$NWTST= 000001
$OCNT
054300
$0CTVL 056630
$0CT8 = 056634
$OMODE 054302
$OVER
051416

000
001

(RW,I,GBL,ABS,0VR)
(RW,I,LCL,REL,CON)

++s Assembler statistics

Work
Work

file reads: 1286
file writes: 949

Size of work file: 25487 Words
Size of core pool: 17688 Words
Operating

system: RSX-11M/PLUS

Elepsed time: 00:32:57.57

( 100 Pages)
( 68 Pages)

NL
,CVMJAO.MAC
VMJAO/
: TOC=CVMJAO/ML
CVMJAO.BIN,C

$0$

$PASS
$PASTM
$PATMA
$PERO1
$PERO2
$PERO3
$PERO4
$PERO7
$PER10
$PER11
$PER12
$PER13
$PER14
$PER1S
$PER16
$PER17
$PER20
$PER21
$PER22
$PER23
$PER24
$PER2S
$PER26
$PER27
$PER30
$PER31
$PER32
$PER33
$PER34
$PER35
$PER36

= 000000

056654
056756
002012
047456
047504
047532
047562
047644
047666
047716
047736
047760
050000
050022
050044
050064
050102
050120
050140
050156
050174
044756
050364
050404
045204
050574
050672
050740
051020
051052
051106

Page 473-20
$PER37

051136
$PER40 051142
$PWRDN 045352
$PWRUP 045726
$QUES
002657
$R
= 177777
$RAND
056432
$RDCHR 055264
$RDDEC 056150
$RDLIN 055414
$RDOCT 056000
$READC 034370
$RESRE 056374
$SAVRE 056336
$SAVR6 046304
$SCOPE 051146
$STN = 000001
$SVLAD 051402
$SV$ = 000000
$SWR = 163000
$SWREG 056670
$SYNRE 035700
$T
= 000531
$TESTN 056652
$TKB
002644
$TKS
002642
$TN
= 000007
$TPB
002650
$TPFLG 002360
$TPS
002646
$TRAP
056764

SEQ 0445

$TRAP2

057006
$TRPAD 057026
$TSTM
056754
$TSTRD 034410
$TTYIN 055712
$TYPDS 054304
$TYPE
047122
$TYPEC 047250
$TYPEX 047436
$TYPOC 054102
$TYPON 054116
$TYPOS 054056
$T1
= 000000
$T2
= 000530
$UNIT
056660
$UNITM 056760
$USWR
056672
$VECT1 056716
$VECT2 056720
$WASDB 035100
$WASSB 034734
$WAS1D 035214
$WAS1S 035050
$XTSTR 051274
$Y$
= 000000
$ZAP42 014022
$Z¢
= 000000
$$S
= 000000
$$T
= 000512
$3TT = 000520
$OFILL 054301