Digital PDFs

AH-F295B-MC

February 1981

367 pages

Original

13MB

view download

OCR Version

11MB

view download

Document:	CZMSDB0 MS11-L,MS11-M MS11-L-M MEMORY FEB 1981 bw
Order Number:	AH-F295B-MC
Revision:	000
Pages:	367
Original Filename:	CZMSDB0__MS11-L,MS11-M__MS11-L-M_MEMORY__AH-F295B-MC__FEB_1981_bw.pdf

OCR Text

MS11-L/M MEMORY

1 ore2 @i HIENIED
Picu

OO OIS
A

MS11-L/M MEMORY

CIMSDBO

PHCREIZBNC, arwitroo: HIENIED
AH-F295B- MC

FEB

1981

all

SEQUENCE 1

IDENTIFICATION
PRODUCT

CODE:

AC~F294B-MC

PRODUCT NAME:

CIMSDBO MS11-L/M MEMORY DIAGNOSTIC

DATE CREATED:

OCTOBER 1980

MAINTAINER:

BASE

SYSTEM DIAGNOSTIC ENGINEERING

"AUTHOR:

MICHAEL D BIBEAULT

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE
AND SHOULD NOT BE
CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
CORPORATION.
FOR ANY ERRORS THAT MAY APPEAR IN THIS DNCUMENT.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER
A LICENSE
AND MAY
ONLY
BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH
L1CENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
SEE}ABXLITY
1AL.

ITS

SOFTWARE

EQUIPMENT

THAT IS NOT SUPPLIED BY

SEQ 0001

(G
Page 2 SEQUENCE

(Abstract)

Related Documents And Standards

MS11-M User's Guide

Programming Practices

System Macro Manual

SUPER-MAC Reference Guide (130-380-007-00)
Standard

PDP-11/44 User's Guide

APT

(175-003-009-02)

(MAINDEC-11-DXQAC-C-D)

System

PDP-11

Diagnostic

Hierarchy Prerequisites

then:

Inhibit relocation (reference section 2.4.1)

.
.
.

Try it again with Cache off

1.
N

the program in any way misbehaves,

Intertface

ACT11/XXDP Programming Specification (AUTOCAT-11-QZAUB-B-D)

Diagnostic

(EK-11044-UG)

(EK-MS11M-UG-001)

(APT/11-317-07-09

1.4

(EB9340)

(¥ o

PDP=-11/04/34/45/55/60 Processor Handbook

1.3

(reference Section 2.4.3.1)

Try CPU Diagnostics

Try Memory Management Diagnostics
Try Cache Diagnostics

(where applicable)

Try UNIBUS Map Diagnostics

(where applicable)

SEQ 0004

Fo1

Page 5 SEQUENCE
1.5

Assumptions

This
program
assumes
the
correct
operation
of
the
(PU,
Memory
Management,
(Cache,
and
the
UNIBUS
Map.
This
program
occupies
(initially) Bank 0 (0-16K).
The XXDP loaders are in
ban

2.0

OPERATING

INSTRUCTIONS

2.1

Loading & Starting Procedures
Quick Starting -

2.1.1
1.

Load address

200

Set switch register for options (normally 0)

Start

NOTE

It on an 11/24 using
MS11-L
Memory
BE
SURE
that the peripheral page jumper is
in place;
failure to do
so
sends
the
diagnostic to Never-Never Land.

2.1.2

Stopping -

1. Set SW8, and/or
2.

2.1.3

Type control ''C"" (Reference section 2.4.4.%).

Restarting (Preserve Configuration Table) 1.

Load address 202

Set switch register for options (Normally 0)

Start

SEQ 0005

Page 6 SEQUENCE 6

2.1.4

Switch Register Options -

O =NINES NN

OO =MNIWESsW

SWITCH
HALT

ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INRIBIT 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 BIT1 ERRORS

SEQ 0006

Page 7 SEQUENCE 7
2.2

Detfault Test Sequence

The tfollowing two lists qive the test protocol for parity and EC(
Memory.
Tests marked with a
"+'' are not normally run except under A(T
8r«

2 éi

2.2.1

through

Ffield

Service

C(ommand

(Reference

Test Protoccl for Parity Memory Pattern

34
6

17
7
1

2
3

r
+
*
+
+
r

S
21
35
22
23
26
24
31
32
33
34

Pattern Name

Time

Soft Error Test
Initial Data Test

Holding 1's and 0's
Address Bit Test
Address Test

Test

Complement Address Test
3 XOR 9 Test

Rotating 0's

Test

Rotating 1's Test
Marching 1's and 0's Test
Worst (ase Noise Parity Test
Refresh Test
Shifting Diagonal Test
Random Data Test
Fast Galloping Pattern Test
Sob-a-long Test
Write Recovery Test
Branch Gobble Test
Soft Error Test

(sec/16K)

<1
<1

<1
<1
<1

<1
1
1

1
1
n/a
10
10
<1
20
3
A
35
<1

Section

SEQ 0007

Page 8 SEQUENCE 8

2.2.2

Test Protocol For ECC Memory Pattern

@
+a
+a
+9
1+a
+a
+@

5
25
11
12
13
14
15
16
34
6
10
17

7
1

a
v

v
+
v
+r

21
20
22
26
24
31
32
33
34

Pattern Name

Time

Rotating 1's Test
Interrupt Enable Test
Single
Bit Error Test
Write Byte Clears SBE Test
(reate
Double Bit Error Test
write Inhibit DATIP w/DBE Test
Write Inhibit of Byte w/DBE Test
Write Inhibit of Word w/DBE Test
Soft Error Test
Initial Data Test
Byte Address Test

1
<1
<?
<1
1
1
1
<1
<1
<
<1

Address Bit Test

Holding 1's and 0's

Test

Address Test

(sec/16K)

Complement Address Test

Rotating 0's Test

Rotating 1's Test

Marching 0's and 1's Test
Marchin 0's and 1's in (B's Test
Refresh Test
Random Data Test
fFast Galloping Pattern Test
Sob-a-long Test
Write Recovery Test
Branch Gobble Test
Soft Error Test

1
<1
10
<1
20

3
<1
35
<1

® = Run only on the first Pass when under A(CT or APT
+ - Run twice

for each

16K Bank

[nterleaved

X - Run only for MF11S-K

#30,

At the end of each Pass
and #27 for all banks.

the program

will

run

cleanup

Patterns

SEQ 0008

Page 9 SEQUENCE 9

2.3

Special Environments

2.3.1

XxpP -

The tirst pass will be a quick verify pass

chain mode.

2.3.2

it and only

the

1st

ACT & APT Automatic Mode -

The program will not create double bit errors

(DBE's)

after

pass.

2.3.2.1

APT Execution Times -

Hg;e are some measured execution times
A

for an 11/44 with

1st QV Pass

cache

2nd Pass & onward

128K MS11-M (non-interleaved)

10 min 15 sec

7 min 40 sec

128K MS11=|

9 min S0 sec

7 min 30 sec

256K MS11-M (interleaved)

19 min 50 sec

14 min 45 sec

The tirst pass will

be a quick verify pass

NOTE

Even though the first pass is a QV

pass

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

can

it
takes
Llonger
than
the
subsequent
non=-0V passes
due to the fact that it is
running more
patterns,
some
of which

under

SEQ 0009

1
K
Page 10 SEQUENCE 10

2.3.2.2

APT Environment Table -

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

APT

FIRST PASS RUN TIME:

This garameter should be set according to the amount and type of
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

for
The times given in section 2.2 are
16K chunks of memory, not 128K boards!

LONGEST TEST TIME:

This parameter should be set to the execution time of the longest

being

pattern

Pattern #33.

tor

run.

the

default

case

this is 35 seconds for

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

"1'.

for

:
ENVIRONMENT MODE

When this parameter is set to a ''0'' the program does it's own
sizing.
1t the users sets bit #7 however, he must specify the types

and amounts of memory to be tested.
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.

SWITCH 2:
This switch, if set to any non-zero number,

amount

passes

will

APT

count has been reached.

make.

is used to Limit
the
The program will hang after this

CPU OPTIONS:
Not Used By Program.

MEMORY TYPE n

log

(n=1

to &)

It 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)

SEQ 0010

L1
Page 11 SEQUENCE 11

These four words are used in conjuntion

MEMORY

1TYPE

words

with

the

corresponding

indicate the highest address that memory type

occupies.

NOTE

The above two parameters do not actually
have

configuration

represent

program
looks
for
of memory amount!

memory.

accurate

AlLL

the

is an accurate tally

(n=1 to &)

INTERRUPT VECTOR n

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.

(n=1 to 2)

DEVICE DESCRIPTOR CODES:

The Device Descriptor codes are used b{ 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)

vords 0-1

MKCSRT

Words 2-3

MKPAT

Words 4-5

MJPAT

Bit #0 set in the first word indicates that the first pattern 1in the
table witl 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.

SEQ 0011

Page 12 SEQUENCE 12

2.3.3

No SBE free Banks =

It the program cannot find any SBE
(in

non-protected

ECC @emorl)

continue testing by-passing the ECC

2.3.4
The

(Single Bit Error)
will

logic

out

tests.

free

locations

an error message and

Mixed Parity & ECC Configurations program

sequence

will

function

testing

normally

mixed

environments.

The

may seem strange due to the recursive test mode

algorithm (reference sections 2.4.1.1, 2.4.1.2, ¢ 2.4.1.3).

SEa 0012

Page 13 SEQUENCE 13
2.4

Program Options

2.4.1
Switch Register Details .
It 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 symbolic location ‘'SENVM'' the APT software switch register
will be used (location $SWREG).

To change the software switch register contents:

Type

‘‘control

G''.

This
will
cause
display the current value of the SWR and prompt for
the octal input of the new SWR value from the terminal.
This
routine

will

ignore

you

switch register.

SW15

(not respond to control ''G'") if you have a hardware

= HALT ON ERROR
(100000)

Continuin$ from this halt will first check for a chan?e
in the software switch register (“’Control G'' in the TTY
input buffer)

SW1é

then

it will

continue testing.

= LOOP ON TEST
(40000)
This will cause
(back
to
Llast

Looping on the present test or
pattern
scope trap).
If in a pattern then the

looping will be for an entire bank of 16K addresses.

SW13

= INHIBIT ERROR TYPEOUTS
(20000)
This will cause returns

the

typed

affected.

SW1?2

messages.

from the error routine

Other on error functions are not

= INHIBIT RELOCATION

(10000)

This prevents the program from moving and

prevents
memory.

the

without

program

from

testing

consequently

Lleast 32K of

SEQ 0013

Page
N"AR

14 SEQUENCE 14

= QUICK VERIFY
(4000

It this switch is selected approximately
one 64th of
the possible combinations of SBE's § DBt's are tested.
Each pass complete typeout will

indicate this

preceding the pass number with ‘'Qv'’,

“SW10

mode

= BELL ON ERROR
(2000)
This causes a bell

(or beep or

click)

each

error

trap

last correctly initialized area of the ¢

= HALT PROGRAM

rrent test.

the

(400)

This

following seguence:
it moves back

to bank

Flush out all possible DBE's.
Turns off Memory Management.
kestore

Unmap the Unibus Map (if there is one).
Halt

1f program is relocated

the

initiates

(¥, ]

{398

This will cause tooping from failure point back

= LOOP ON ERROR
(1000

Sw9

loaders.

if under APT or ACT

branch sel.

zero.

SEQ 0014

c
2
Page 15 SEQUENCE 15
SW7

DETAILED)ERROR REPORTS
(200
After any normal error
report
1is
typed
this
opticn
causes
the
contents
of the following registers to be
typed:

RE, R1, R2, R3, R4, RS, SP, "'CONTROL'', ''CPUERR''
Swé

INHIBIT CONFIGURATION MAP
(100)
This

inhibits

the printing of a mag show‘ng the

configuration - reference section
SW5

/7.3

LIMIT MAX ERRORS PER BANK
(4C)
This will Limit the number of error typeouts per
The
default
1is
10.
DECIMAL,
however
this

SW4

memory

FAT

changed by changing location "'ERRMAX'' manually.

bank,
can be

G
This

informs the pro?ram that

a width of at

least

the console terminal

has

132 columns (LA36 with wide paper).

SEQ 00°5

Page 16 SEQUENCE

SwW3-1

TEST MODE

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

(0)
(2)
(4)
(6)
10
(12)
14)
(16)

NN SN
= O

MODE NAME DESCRIPTION

BAF PAF

BAFPAR
BAWPAF
BAWPAR
PAFBAF
PAFBAW
PARBAF
PARBAW

Banks forward, patterns forward

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

Soz ?oge details reference section 2.4.1.1, 2.4.1.2 and
SW0

= DETEE})SINGLE BIT ERRORS

(SBI's)

For manufacturing purposes this switch should aluals be
on.
for
field
service
purposes
this switch should
always be off.
This switch will allow all ECC Single Bit errors to
reported by disabling error correction.

Error printouts of SBE's are not
DBE's.

distinguishable

NOTE

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

from

SEQ 0016

Page 17 SEQUEN(CE 17
2.4.1.1

Test Mode Example -

Example analysis of mode 5 ''PAFBAW''.
and

Banks 2,3,4,8 5 are MS11-M,

Assume Banks 0 &

Assume also that Bark 3 is known bad by the
program
via
‘routine or previous runs The testing sequence would be as

s TEST MS11-M MEMORY TYPES FIRST

:TEST KNOWN BAD MEMORY
"PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN

17,
7,
1,
2,
4,
S,
21,
20,
22,
26,

BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK

(BANK 3)

3
3
3
3
3
3
3
3
3
3

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

PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTER
PATTERN
PATIERN
PA(TERN
PATTERN
PATTERN
PATTERN
PATTERN

17,
7,
1,
2.
&,
S,
21,
20,
22,
26,
17,
7,
1,
2,
&,

S,
21,
20,
22,
26,
17,
7,

1,
2,
&,
S,
21,
20,
22.
26,

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

2
2
2
2
2
2
2
2
2
2
&
&
&
&
&

&
&
&
&
4
5
§
S
§
§
5
S
S
S
§

are

MS11-L

the
sizing
follows:

SEQ 0017

Page 18 SEQUENCE

;RELOCATE & TEST PROGRAM SPACE
PATTERN
PATTERN

1,
2,

PATTERN
PATTERN

1,
2,

PATTERN
3,
PATTERN
&,
PATTERN
S,
PATTERN 26,
PATTERN

PATTERN
&,
PATTERN
S,
PATTERN 26,

(BANK 0 _& 1)

BANK 0
BANK 0

BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK
BANK

0
0
0
0
1
1
1
1
1
1

NOTE
This

sequence.

example

not

actual

SEQ 0018

Page 19 SEQUENCE

first,

complex

tested

the

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

Parity banks that are not program space (from 0 to 200).

The program now relocates & tests:

Ség)banks that were protected or program

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

The pattern sequence was

forward

(the simple pattern s

atterns
lLast)
sequerce of patterns (MS11-M = 17, ?l 1! 2' ."0 S' 21!
0, 22, 26)(MS11=-L =1, 2, 3, 4, S5, 26).

It the bank selection is torward the

following order:

1t bank selection is worst

first

banks

the

will

space

configuration

(from

table

consulted and banks will be tested in the following order.
banks

that

are known bad and are not

will

ECC

Parity banks that are known bad and

are

not

program

ECC banks that are presumed ?ood and

are

not

protected

Parity banks that
(trom 0 to 200).

The program now relocates & tests:

ECC banks that are known bad and were
space (from 0 to 200).

ParitS banks that are known bad and were program space
0 to
200).

ECC banks that

Parity banks that are presumed good and

space (from 0 to 200).
(from 0 to 200).

program space

(from 0 to 200).

are presumed good and are not

are

presumed

(from 0 to 200).

(from 0 to 200)

protected or program

good

were
were

program space

protected

and

space

program

(from

protected
program

space

SEQ 0019

H
2
Page 20 SEQUENCE 20

2.4.1.2
MODE

Test Mode Details -

"'BAFPAF'' banks forward, patterns forward
This

the default

and simplest mode.

This mode tests each bank

200

while testin?_each bank the patterns are run
with
simple ones
tirst building to the more comp.ex.

the

except

MODE

completely

those requiring relocatione,

While testing each bank the
most

"'BAFPAR'' = banks forward, patterns reverse
This mcde tests each bank
completely
except those requiring relocationr,

MOCE

from

complex

ones

first,

"'BAWPAF'' = Banks worst
This mode first

from

patterns are run

working to

the

200

with

the

simple ones.

first, patterns forward

tests each known

bad

bank

completely

from O to 200 except those requiring relocationt, then
presumed good banks are tested from
0
to
200
except
those requiring relocationr,
while testin?_each bark the patterns are run
with
simplte ones
tirst, building to the more complex.
MODE

"'BAWPAR'' = Banks worst
This mode

first

the

first, patterns reverse

tests each known

bad

bank

completely

from 0 to 200 except those requiring relocationt, then
presumed good banks are tested from
0
to
200
except
those requiring relocatione,

While testing each bank the

patterns are run

with

most complex ones first, working to the simple ones.

MODE

“PAFBAF'' = Patterns

forward,

banks

the

forward

This mode tests each pattern completely with the simple
ones first, building to the more comptex.

white testing each pattern the banks are run from 0
200 except those requiring relocatione,

SEQ 0020

[

Page 21
MODE

"'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
200
except those requirin
relocationt is
run, then presumed good banks are run
to 209
except those requiring relocation*,
JDE 6

"'PARBAF'' = Patterns Reverse, Banks forward
This mode tests each pattern comgletglylwith

complex ones first, working to t

simple

the

while testina each pattern the banks are run from 0
0
200 except those
requiring relocation,
MODE

"'PARBAW'' = Patterns Reverse, Banks Worst

most

ones.

fFirst

This mode tests each pattern comgtetglyluith
the
complex ones first, working to t e simple ones.

most

bank
While testing each pattern first each known
bad.
7
from
0 to 2 0 except those that require relocationt is
to
200
run, then presumed good banks are run
from

except those requiring relocationt,
NOTE
* Relocation

required

test

the

bank(s)
1in
program
space
and also to
test
any
ECC
banks
rotected
by
diagnostic
checkmode wit
the inhibit
mode pointer off

(zero)!

SEQUENCE 21

SEQ 0021

Page 22 SEQUENCE 22
Test Mode Applications To verify correct operation of
"BAFPAF'',
Advantages:

Easy

the memory system use

To get detailed error

it may take a long

information on known bad

by s1z2ing routine) use Mode 2 'BAWPAF'',
Seeks Bad Banks.

Banks

take

info on any memory problem fast use Mnde

long time to find.

Advantages:

(found

Easy to understand.

Disadvantages: Failures other than zeros § ones may
TgA ER good error

to understand.

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

Advantages:

Mode

(Covers

all

Disadvantages:
Ffailures
a long time to find.

banks

fast.

Easy

to understand.

from only complex patterns may

take

To find any problem fast use Mode 7 ''PARBAW''.
Advantages:

C(overs all Banks

Disadvantages:

fast.

Difficult to understand failures reported are

not necessarily the most

basic

tailure modes.

SEQ 0022

K
2
Page 23 SEQUENCE 23

2.4.2

Display Register -

A software display register exists in location 174 in addition to

any

hardware display existence.

Display fields are as follows:

15 Y16

Relocated ;

12
11
10
Bank
#

8'!'7
6
5'4&
; Not Used
;

Pattern #

PATTERN # = The number of the pattern presently being run. AlL

patterns are described in section 6.2.
Any pattern can be
found in the Diagnostic b Looking up the symbolic Tags
"MTOONN'' and "MTPONN'' - where 'NN
is the Pattern number.
MTOONN refers to the routine that sets up for the test
Pattern whereas MTPONN is the actual pattern itself.
NOTE

The pattern #
is
not
necessarily
indication ot degree of difficulty.

BANK

= The number of the Bank (16K) of memory under test (0-200).
these bits directly map to physical address bits (21:15),

RELOCATED = This bit indicates that the program is relocated and no
longer in Bank 0.
It will be relocated to the first
known good non-protected memory bank indicated on
the configuration map (reference section 7.3).

NOTE

Another way to obtain
this
information
is
to
type
a (ONTROL/T at the console
(reference Section 2.4.4.5).

2.4.3

Special Memory Locations -

SEQ 0023

L
¢
Page 24 SEQUENCE 24
2.4.3.1

CACHE Constant -

The CACHE constant
to enable CACHE.

Located at symbolic

location "'CACHK'' and is used

NOTE

Bit 0
in_
the C(ACHE
conctant
has
no
it is unconditionally set
effect
since
by the
program
whenever
it
tries
to
CACH
enable

2.4.3.2

Configuration Table

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

CONFIG:

location

‘'CONFIG'

and

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

SKIP ECC LOGIC TESTS FLAG (1

_=SKIP)

PROTECTED REGION OF AN ECC MEMORY
wn

I N0
NN —

b b 2 2 OO
—

MEMORY EXISTS
RESERVED

—_—y
) —
[=]

2O NOWNN—=O

ERRORS PRESENT

—4

e St Pued Pt Pumep

et =4 —§ —
et e
o
e o
)

Pt Srmmp Dumg St § oy Pumt) S
Dumg oy P

MED:

LOW:

) ot

Configuration Words:

(o X0
XaéFoodooReoRooRoodooRoodoo
ooRoodo o Qoo

200th 16K configuration words (2 each)

PROTECTED (PROGRAM SPACE)
CSR CODE
INTERLEAVED CSR CODE
NUMBER OF ERRORS
MEMORY TYPE
CSR TESTED OK

INTERLEAVE ENABLED

"BACKGROUND PATTERN VALID'' FLAG
BANK SELECTED FOR TEST BY FIELD SERVICE MODE
LOADERS HOME SANK

This table is used as tne source for the configuration
Map (reference. section 7. 3).

SEQ 0024

M
2
Page 25 SEQUENCE

2.4.4

Terminal Commands -

2.64.4.1

Control "'C"

If Switch 8 (Halt Program)
the program,

If Switch B is not set, unrelocate if program was relocated.

e
&
&
e

[ SRV, TRV L SEEVY R

1.
N]

This command will:

fFlush out

in the switch

is set

any DBE's.

Turn off Memory Management.

Attempt to Boot RKOS Drive 0.
Failing &, attempt
Failing 5,

to Boot RKO4 Drive 1.

go to 4.

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

ha.t

current

Control 'D' (Debug)

This command to enter a modified version of ODT has been deleted.

2.4.4.3

Control 'E'' (procEEd)

This command would allow you
deleted.

2.4.4.4

Control 'X'

exit

ODT,

has

also

been

(Kill error printout and skip pattern)

This command will allow ‘ou to stop an error gr1ntout and sk1g
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.

SEQ 0025

N 2
Page 26 SEQUENCE 26

2.4.4.5

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

This command wiil print out the information
register,
This
1is
mainly
intended
for

display register.

encoded
in
the
display
(PU's
without a hardware

Example:

r~ CCATED BANK= 23 PAT= 26

By use of Field Seruvice Command 17 "'Trace'’ can be set so that it

will

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

Contro'! ''S"" (Stop)

2.4.4.6

This command will stop typeout

(soon) and will wait for a Control ''Q''.

Control ‘'Q" (Quintinue)

2.6.4.7

This command will continue typ\ng that has

's''.

ignored.

there

has

been

stopped

Control

ontrcl ''S"’ typed then this command is

SEQ 0026

Page 27 SEQUENCE 27
2.4.4.8

Control "F'' (Field Service mode)

This command will
commands.

cause you to

enter

mode

which

Llooks

for

sub

When the program is Looking for a sub command any number that is not a
legal command will cause a mini help message to be typed.
Therefore
when in doubt type 99 (CR) and you will get
help.
NOTE

Typing just carriage return is a default
command 0.

2.4.4.8.1

field Service Command 0 (Exit)

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

was_

return

prior

is a default

2.4.4.8.2

typing control 'F''.

Command 0.

Field Service Command 1

This command will

typeout

Note typing just carriage

(Read (SR)

the contents of

the (SR.

1t there is more than one (SR on the (PU (or if the program has not
determined the (SR status yet), it will Ask you "WHICH CSR(0-F)'"
to
whith you must respond with an Hexidecimal number from 0 to F.
Note
typing just carriage return is a default 0.

If the CSR you select causes a trap to 4 the program will

CSR DOES NOT EXIST'.

NOTE

(SR references are
with section 5.0

done

accordance

type

'‘THIS

SEQ 0027

Page 28 SECUENCE 28

field Service Command 2 (Load (SR)

2.4.4.8.3

This command will

enable you to

load

the (SR.

1t there is more than one (SR on the (PU (or if the
program
has
not
yet determined the (SR status yet) it will ask you "'WHICH
CSR(0=-F)" to
which you must respond with an Hexidecimal number from 0 to
F.
Note
typing just carriage return is a default 0.

1f the CSR {ou select causes a trap to &4 the program will
EXIST',

(SR DOES NOT

The (SR will be read and displayed as

type

in command 1.

The program will

then ask you for the ''CSR?'’ to which you must

The program will

then

|6ith

new

Octal number.

respond

Note typing just carriage return is a default

Load the (SR and Read it

again

displaying

its

contents.

2.4.64.8.4

Field Service Command 3 (Examine Memory)

This command will allow you to examine any physical address
the necessary memory management mapping for you.

The grogram will ask you for the "PHYSICAL

which

''THIS

you must respond with an Octal number.

It the address access causes

trap

The contents of

address will

“‘TIMEOUT
TRAP'',
It
the
address
program will type ‘‘PARITY ABORT''.
your physical

access

ADDRESS

the

causes

and

(0-17757776)'"

program

typed.

will

does

type

a trap to 114 the

SE@ 0028

Page 29 SEQUENCE 29

2.6.4.8.5

Field Service Command 4

(Modify Memory)

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

address

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

l1f the address access causes

trap

"TIMEOUT
TRAP'',
If
the
address
program will type "'PARITY ABORT'',
‘The program will
address.

accecs

the

causes

ard

does

(0-17757776)'"

program

will

a trap to 114

type
the

type ‘'OLD DATA WAS'' and the contents of ycur physical

The program will then type ''INPUT NEW DATA'' to which you myst

aith

the

Octal number.

Note typing

just

carriage return

The program will attempt to write this new

data

into

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

indicate

Error

that

you

have

that would

Double Bit

in that double word pair.

your

physical

"DATA |S NOW'

NOTE

If you can't change the data,

respond

is a default

and

SEQ 0029

Page 30 SEQUENCE 30

2.6.4.8.6
This

Field Service Command 5 (Select Bank £ Pattern)

command allows

you to

The program will ask
an
Octal
number.

run any bank with any pattern

forever.

you ‘BANK(0-200)'" to which you must respond
with
f
the bank is not accessible.
The program will

type 'BANK NOT ACCESSIBLETM and ask question over.
The program will

then ask ''PATTERN (0-37)"' to which you

with an Octal number.

must

respond

NOTE

Any pattern can be run
including
those
that
are
not
part
of the APT E-TABLE

defaults (reference section 6.2.1).
It
you
select
Pattern 0, the program will
ask "'PATTERN 0 DATA [S?'" to which
you
must

respond with an Octal

number.

1f the Bank
you selected requires relocation
the program will
type
‘BANK
REQUIRES RELOCATION'' and exit this command.
Note normally this
is true for Bank 0.

lThe
““TO

rogram will then arm the console keyboard for
ESCAPE TYPE ANY KEY''',

The test pattern will be entered

depressed to escape this

loop.

and

run

wuntil

interrupts and type

console

key

SEQ 0030

F
3
Page 31 SEQUENCE

2.6.4.8.7

Field Service Command 6 (Type (onfiguration Map)

This command types

This

is useful

the configuration map.

after a

are marked as bad.

long run

‘for a detai.ed explanation of

2.4.4.8.8
This

(overnight)

to see all the banks

that

(Especially if your console is a video terminal).
the map reference section 7.3.

Ffield Service Command 7 (SOB=-A-LONG TEST)

command

allows

execution

the

SO0B-A-LONG

Test

all

non-protected
Banks
reference
Section
6.2.2.26.
~Operation
is
identical to command S except that no Pattern or Bank is
entered
and
each pass causes a Bell.

SEQ 0031

6.3

Page 32 SEQUENCE

2.4.64.8.9
This

field Service (ommand 8 (Error Summary)

command

types out

the number

of passes

and

the

errors,
It
there were any errors it will type out
number of errors per bank up to 255 DECIMAL.
This becomes useful atter
videc consove terminal.

2.4.4.8.10

long runs

Banks reference Section 6.2.2.19.
that no Pattern or Bank

2.4.4.8.11

ASR33's, and VT0S5's).

systems

with

the Refresh Test on all

non-protected

Operation is identical to command 5

is entered and each pass causes a Bell.

the terminal

VI52's, VI100's. etc.

2.4.4.8.12

Field Service Command 10 (Set Fill Count)

This command allows setting of

LA30's,

night)

number

the Banks and the

Ffield Service Command 9 (Refresh TEST)

This command allows execution of

except

(all

total

Field Service Tommand 11

count

(necessary

for

(Enter Kamikaze Mode)

This command allows you to run patterns that

unless under APT or ACT.

fill

It is normally set to zero for LA36's,

are normally not

executed

Tney are usually very time consuming and can

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

Note that most crashes do not wipe out the display
information which
is
telling
you what
the program was doing
just prior to failure.
There are two ways to die here -

2.64.4.8.13

Impatience and

Crashes.

Ffield Service Command 12 (Exit Kamikaze Mode)

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

SEQ 0032

H_3
Page 33 SEQUENCE

2.64.64.8.14

Field Service Command 13 (Turn Cache Off)

EhZSBc??nges the Cache constant

2.6.4.8.15

bypass

Field Service Command 14

BhZSSc??nges the

2.4.4.8.16

Cache

constant

cache

(reference

(Turn Cache On)
wuse

cache

(reference

you to center

the

test

effort

on only

those

that
you
are
troubleshooting.
You may also test banks that
relocation and were inaccessable via command 5.

the bank

2.64.4.8.19

testing

(undo (ommand 15).

Field Service Command 17 (Resume Testing All Banks)

Enable ''Trace'’.
type out

banks

require

field Service Command 16 (Resume Testing ALl Banks)

Return to the default mode of

2.4.4.8.18

section

Ffield Service Command 15 (Test Only Selected Banks)

This command allows

2.64.4.8.17

section

After exiting field service mode,
and pattern numbers

the

as each pattern

program
run,

Field Service Command 18 (Resume Testing All Banks)

Disable ''Trace''.

(undo Command 16).

will

SEQ 0033

Page 34 SEQUENCE

2.5

Execution Times

2.5.1

Typical

(System) -

Execution time depends on manl
measured times on an 11/44 wit

variables;

d ache:

nowever

frere

are

128K words of MS11-L Memory
Normal Pass
0 Min
50 Sec
Quick Verify
0 Min
50 Sec
Kamikaze Mode
10 Min
5 Sec
Kamikaze QV
10 Min
5 Sec
128K words of MS11-M Memory (Non-Interleaved)
Normal Pass
2
Min 25 Sec
Quick Veritfy
1
Min
0 Sec
Kamikaze Mode
11
Min
0 Sec
Kamikaze Qv
10 Min 30 Sec
128K words of MS11-M Memory

Normal Pass
Quick Veritfy
Kamikaze Mode
Kamikaze QV

3
1
22
20

Min 55 Sec
Min 50 Sec
Min
0 Sec
Min
5 Sec

2.5.2

Calculations

Normal

Pass
Add

Add

Kamikaze Mode

(System)

18 Sec per BANK of Non=Intereaved MS11-M
15 Sec per BANK of Interleaved MS11-M
6 Sec per BANK of MST11-L

Quick Verify Pass

Add
Add

(Interleaved)

8 Sec per BANK of Non-Interleaved MS11-M
7 Sec per BANK of Interleaved MS11-M
6 Sec per BANK of MS11-L

Add 10 min.

per

128K words

for approximate pass times.

some

SEQ 0034

J
3
Page 35 SEQUENCE
2.5.3

Typical

Pattern Time

{Patterns)
Description

MT0000
MT0001
M10002

;<1
;<1
;<1

SEC
SEC
SEC

DATA PATTERN TEST
ADDRESS TEST
COMPLEMENT ADDRESS

M10022
M10023
MT10024
MT10025
M1002¢

;10
;10
;20
;<1
;<1

SEC
SEC
SEC
SEC
SEC

REFRESH TEST
SHIFTING DJAGONA! TEST
FAST GALLOPING FATTERN TEST
INTERRUPT ENABLE TEST
RANDOM DATA TEST

MT70003
M10004
m10005
MT10006
MT0007
MT0010
MT0011
MT0012
MT0013
M10014
MT001S
MT0016
M10017
M10020
MT0021

; 1
; 1
,; 1
<1
:<1
;<1
;<2
;<1
; 1
; 1
; 1
;<1
;<1
<1
; 1

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

TEST
3 XOR 9 WORST CASE NOISE TEST
ROTATING ZEROS TEST
ROTATING ONES TEST
.
INJTIAL DATA TEST
ADDRESS BIT TEST
BYTE ADDRESSING TEST
CREATE SINGLE BIT ERROR TEST
WRITE BYTE CLEARS SBE TEST
CREATE DOUBLE BIT ERROR TEST
WRITE INHIBIT DURING DATIP WITH DBE
WRITE INHIBIT OF BYTE WITH DBE
WRITE INHIBIT OF WORD WITH DBE
HOLDING 1'S & 0°'S TEST
MARCHING 1°S & 0°'S IN CHECK BITS
MARCHING 0'S & 1°S TEST

M10027
MT10030

:
.,

1
1

SEC
SEC

UNIQUE BANK TEST
FLUSH OUT DBE'S TEST

MT0032
MT00s3
MT0034
MTOC3S

;<1
;35
;<1
;<1

SEC
SEC
SEC
SEC

WRITE RECOVERY TEST
BRANCH GOBBLE TEST
SOFT ERROR TEST
WORST CASE PARJTY TEST

MT0031

;

3 SEC

SOB-A-LONG TEST

SEQ 0035

K
3
Page 36 SEQUENCE

3.0

ERROR

INFORMATION

3.1

Error Reporting

Most errors are reported using the EMT trap

SYSMAC.SML.

and

handler

provided

Most errors will be of the "MEMORY DATA ERROR'' tyge whic
the
bank

will be described here.
MEMORY DATA ERRORS will also cause
to be marked as Bad in the configuration table.
Other errors are best explained by referencing
and if necessary the program

Listing.

the

specific

typeout

Example 1:
MEMORY

022132
022132
022132
022132

DATA ERROR

BANK

37
37
37
37

VADD

060006
060006
060006
060006

PADD

03700006
03700006
03700006
03700006

600D

000000
000000
000000
000000

BAD

000100
000100
000100
000100

XOR

000100
000100
000100
000100

(SR MTYP

0
O
0
0

TM
M
M
M

[NT PAT

06
06
06
06

While testing Bank 37 at virtual address (0006 (virtual addresses are
always between 60000 and
157776
for mapping purposes), Ehy51gal
address 3700006 (that's Bank 37 physical
6 within
the Bank)
with
Pattern 6
(Initial
Data Test), the gond data expected was 0 but the
data actually read (BAD) was 100, the exclusive OR
at
Gocd & Bad
ields
100
which
indicates
only
failing
bit(s) (Bit 6).
It is an
1;;668 (ECC) Memory and it's not interleaved.
The (SR is
located
at

SEQ CO036

Page 37 SEQUENCE

Example 2:
-

MEMORY

PC
022132

022132

DATA ERROR

BANK VADD
35 060000
35

060002

060006

PADD
03500000

GOO0D
000000

BAD
000001

XOR
(SR MTYP
000001
O
M

[NT PAT
1
06

03500006

000000

000100

03500002

000000

000100

while testing Bank 35, virtual address 60000, physical address 3700000
with Pattern 6 (Initial Data Test), the good data expected was 0 but
the data actually read (BAD) was 1, the exclusive OR
at
Good & B8ad
yields 1 which indicates only failing bit(s) (Bit 0).
It is an MS11-M
(ECOH Henorz and it's interleaved;

so since Address

asserted, the CSR is located at 172000.

Bit

was

not

While also in Bank 35, virtual addresses 60002 and 60006 were expected
to have 0, but the data read was 100, the exclusive OR of Good
& Bad
yields 100 which indicates one failing
bit
interleaved MS11-M memory, and Address Bit

(Bit
6).
Since
it
1 is asserted, the (SR

located at 172102 (CSR number 1 under the INT column)
NOTE

Subsequent errors of the

not

type a new heading.

same

test

s
is

SEQ 0037

M3
Page 38 SEQUENCE 38

3.2

Error Abbreviations

The

following is a

list of all

abbreviations used

in error

reports.

¥ OF ERRORS
1ST ADD
ARRAY
APTH
APTCORE
APTMOS
BAD

Number of Errors that were detected.
First Address that failed.
The array number that was locked up in the MS11-M (SR,
The # of CPU's APT expects on the system.
APT Core size.

BAD=~CHK
BANK
BD-CC
CHKBITS

Bad Check Code Bits.

BAD-WD1
BAD-WD2

CONTRL
CPUERR
CSR

CSRNO
DATARG
DBt
DEV ADD
eCC
6D0-CC
GD-CHK

GD-wWD1
GD-WD2
600D
INT

LSIZE

MEMERR
MMRO
MMR1
MMR2

MMR3

MSIZE
MTYP
PADD
PAT
PC
SBE
VADD

WROTE
WROTE?2
XOR

APT MOS size.

Bad data.

B8ad Word #1 of a double word data value.
Bad Word #2 of a double word data value.
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 (O-F Hexidecimal).
The CACHE Data Register.

Double Bit Error
(uncorrectable error).
Device Address.
Error Correctable Code.
Good (heck (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.
Interleaved (Address Bit 1 asserted)
MS11-L Size.
Memory Error register.
Memory Management Register #0.
Memory Management Register #1.

Memory Management Register #2.
Memory Management Register #3.
MS11-M

Size.

(SR number.

Memory Type (MS11-L ,MS11-M MF11S-K,BIPOLAR or UNIBUS Parity).
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 1st half of a double word.
The data that vas written into the 2nd half of a double word.
Exclusive OR of the good and bad data.
Shows the bad bits.

SEQ 0038

PageN39BSEOUENCE 39
?fizreE;:grs:S:::l Halts in the program,
ALL unused trap vectors contain a trap catcher

(.WORD ,+2,HALT).

An undefined TRAP instruction halts at symbolic

location "'SHALTZ'.

The APT down load sequence will halt at symbolic

location "APTHLT'',

Halt on Error option (SW15 Set) at symbolic

Halt program (SW8 Set) at symbolic

location '"'SHALT''.

locatiocn "'SEXHALT'',

Power Fail will normally halt at the end of

(symbolic location '‘SDOWN'").

the

shut

down

sequence

Power Fail has a fatal Halt at symbolic location "'SILLUP'' which can be
caused by power up occurring before power down sequence completed or
by power down before a power up sequence is completed.

4.0

PROGRESS REPORTS

Pass complete typeouts as

END PASS
END PASS

’
’

END PASS

#Qv

follows:

0
1

NOTE

Pass 2 was flagged
as
a Quick
Verify
Pass.
(because of a change in SW5)

To obtain progress reports whilr egecuting, t{ping a Control "'T""
print out

the

Example:

information encoded

in the

display register.

BANK= 2 PAT= 34
Reference Section 2.4.4.8.18 for more information on Tracing.

will

SEQ 0039

B &
Page 40 SEQUENCE 40
5.0

CSR

INFORMATION TABLES

The following

is a picture view of the
registers which can be tested by this
assignments and definitions to provide
shows the similarities and differences

current control status
program.
[t shows bit
a handy reference, and
between each one:

NOTE

ALl unused bits

5.7

in each (SR are equal

to zero.

(ORE/MOS PARITY REGISTER

S0 U

OV U

111

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
BITS 11-5

ADD-

ERROR

RESS
High
order addaddress
of
ress bits

17-11

parity error (Bits
of address).

BITOZ

WRITE

other

parity

PARITY
(odd)

Normal
when

when set.

WRONG

parity
clear;

(even)

BITOO ACTION ENABLE No
action when clear trap
when
114
to vector
set.

SEQ 0040

Page 41

5.2

MOS BIPOLAR PARITY REGISTER (USED IN THE 11/45-59%)

13 12 11

10 09 08 07 06 05 04 03 02 01

Bit assignments are defined as follows:

BIT1S5 PARITY ERROR

BITO?

WwRITE WRONG PARITY

(odd)
parity
Normal
other
clear;
when
parity (even) when set

BITOO ACTION ENABLE No
action when clear trap
to
vector
114
when
set.

SEQUENCE 41

SEQ 0041

4
D.

Page 42 SEQUENCE 42
5.3

MF11S-Kk (SR

i
15 14 13 12 11

111 3i1°71°1

10 09 08 07 06 05 04 03 02 01

BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS:

BIT15 DOUBLE ERROR Set
whenever

occurs.

the
error
It 81T2=0,
address will be stored
in Bits 11=-5,
It BIT2
=1,
the
check
bits

read will

BITS 11-5.

be stored

SET
13
INHIBIT
MODE
When this bit is
set to a 1, it enables
Mode Pointer
Inh
the
to inhibit either
the
or
first
second 16K
BIT

from ever

going

into

or
Check
mode.
ECC
Disable
When
this
bit is set
to
2ero,
the
entire
memory
operates in in
or
Check
Diagnostic
ECC Disable Mode.
the

Diag.

BITS

11-5

ERROR

BIT02
contain
cleared
they
order error
high
the
17-11);
(Bits
address
set
they
with BIT02
bits
check
contain the

ADDRESS

for ECC.

BITO4 SINGLE ERROR Set
whenever
single error
ocecurs

SEQ 0042

4
E
Page 43 SEQUENCE &3

BITO3

INHIBIT

MODE

POINTER
The
Inhibit
Mode Pointer works
in

conjunction with
the
Set Inhibit Mode
bit.
When BIT13 is set to a

1, a
16K
portion
of
memory
1is
inhibitted
from operating in
the

or
Disable mode
ECC
Diagnostic Check mode.
the
Inhibit
Mode
Pointer

which 16K
hibited;

BIT

indicates

is being ine.g.-when

=1, the second

16K of memorl

in-

hibitted.
When BIT 13
is set to a 0,
BIT
3
becomes inoperative.

BIT02 DIAGNOSTIC CHECK
MODE
When set
read-write
of

enables
check

11-5).

Bits

bits(see

in
cccurs
DBE
1f
BIT1
(with
mode
this
(SR
=0), BIT15 in the
a

is
set
but the check
bits from
memory
are

stored

11-5 and not

(SR

address bits.

BITO1

the

DISABLE

Bits
UBE

ERROR

CORRECTION When set no
single
error
correction
takes
place and

the error

ged

is not

1in the csr;

Llog-

cor-

rect
check
bits
are
still
written
to the

memory however.

81700

DOUBLE

ERROR

ENABLE
When
set
to vector
enables trap
114 on double error.

SEQ 0043

4
f
Page &4 SEQUENCE

5.4

MS11-L (SR

I
r
o111
1
1
‘PEIEV!
!
!
ADDRESS
.V
111111111111t
15 14 13 12 11

111"/
WP
AR
1
1
11

10 09 08 07 06 05 04 03 02 01

Bit assignments are defined as follows:

BITi5 PARITY ERROR
BIT14

RETRIEVAL

EuB

ERROR

memory
is
on
UNIBUS, when
Extended
BIT14 is zero, the low

failing

order

addresses

available

(Bits

11=-17);

when BIT14

failing

addresses

one,

the

high

order

(Bits 18-21
available
If
of address).

memory is on a UNIBUS,

a jumper disables this
bit so that it is read
only, and equal to zero.

BITS

ADDRESS

set,

high
ror

ERROR

11-5

With

they contain

BIT14

order parity eraddress
(Bits

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

WRITE

BIT02

PARITY
(odd)

Nourmal
when

parity

other

when set.

WRONG

parity
clear;

(even)

BIT00D ACTION ENABLE No
clear;
when
action
trap

vector

when-set .

SEQ 0044

Page 4«5 SEQUENCE 45
MS11-M (SR

5.5
LY

11111711

15 164 13 12 11

10 09 08 07 06 05 04 03 02 01 00

Bit assignments are defined as follows:
BIMS
ERROR

UNCORRECTABLE
This bit is set

if a DBE
occurs,
and
error
address 1s
the
1in
CSR.
stored
is also set
This
bit
in
the
ECC
Disable
mode
if an SBE or DBE
occurs.

ERROR
EuB
[f the memExtended
ory is on an

BIT14

RETRIEVAL

wher BIT14 is
BIT4
either
is
a
15
one,
BIT
or
failing
the low order
availabare
addresses
when
le (Bits 11-17);
high
the
one,
BIT14 is
addressorder failing
es are available (Bits

UNIbus,

2ero and

18-21 of address).
on
the
memory

UNIBUS, a jumper disables this bit so that
it is read
only,
equal to zero.

and

BIT13 SET INHIBIT MODE
When
this
bit is set
to a 1, it enables the
to
Inh Mode Pointer
the
inhibit
either
16K
or
first
second
into
going
from ever
or
Check
the
Diag.
mode.
Disable
ECC
this
bit is set
When
the
to ¢« 0, it allows
mode
Diaq.
Disable.__
..
ECC
ard/oe.
mode

the entire

the board.

operate over
memory

SEQ 0045

H
&
Page 46 SEQUENCE

ERROR
11-5
BITS
ADDRESS
With
BIT102
cleared and BIT14 set,

contain the high
they
order
error
address
(Bits
21-18);
when

BIT02

and

cleared,
low
the

address

BIT14

are

they contain
error
order

(Bits 17-11);

when BIT02 is set they
contains
check
bits
for ECC.

BITO& SINGLE ERROR Set

single error

whenever
occurs.

BITO3

INHIBIT

MODE

POINTEK
The
[Inhibit
Mode Pointer works
in

conjunction with
the
Set Inhibit Mode
bit.
when BIT13 is set to a

1, a
16K
portion
of
memory
is
inhibitted
from operating in
the

or
Disable mode
ECC
Diagnostic check mode.
the
Inhibit
Mode
Pointer
indicates
which 16K is being inhibited;
e.g.-if BIT3
=1,
the second 16K of
memory
is
inhibitted.

when

BIT13 is set to a

BIT3

inoperative.

becomes

BIT02 DIAGNOSTIC CHECK

MODE
When set enables
read-write
of
check

bits(see Bits
11-5).
1in
occurs
DBE
a
It
this mode (with BIT1=0
), BIT1S is
set,
but
the
check
bits
read
are
stored
1in
Bits
11-5,

not

address bits.

the

OBE

SEQ 0046

4
l
Page 47 SEQUENCE 47

ERROR
DISABLE
BITO1
CORRECTION When set no
single error correcti-

takes

place.

set

BITO4

and

set

set BIT1S and as-

single bit error

will

BITYS

and asse~t BUS
PBL
.
it
BITO0 is asserted;
a
double
error
will

if
L
PBL
BUS
sert
8IT00
is
asserted.
The error

address

generated

and

stored in the (>R, and
correct check bits are
on

stored

write.

81100

UNCORRECTABLE

ERROR
ENABLE When set
enacles trap to vector
114

error.

uncorrectable

SEQ 0047

&
J
Page 48 STQUENCE 48

6.0

SUB-TEST

€.

Tests

TEST

SUMMARIES

B1T

TEST OF

ALL CSR'S/MATCH ALL CSR'S WITH MEMORY

(CSR Access may cause wrong

TEST

Type of

Traps)

2
TEST BANK O ACCESSES
failures are fatal.

TEST

3
TEST BANKS

1-200

(OCTAL)

FOR ZEROS AND ONES

Errors are not typed here - only
the configuration table
TEST

ECC
TEST

logged

INHIBIT MODE POINTER TEST

5
DIAGNOSTIC MODE DISPATCH ROUTINE
This test runs
mode selected.

TEST

all

UNIQUE BANK TEST
Pattern 27 is run

the patterns

the

SEQ 0048

Page 49 SEQUENCE 49

6.2

SEQ 0049

Patterns

6.2.1

General Pattern Information

Actual patterns are identitied by symbolic locations "MTPXYY'' where
X
may
be
anz sub program indicator (A,B,(,etc) or 0 and YY will be the

‘number of

Setup

pattern,

procedures for each pattern are identified by symbolic

locations

Patterns reside in & scripts that are scanned for execution.

Symbolic

ECC bank (twice for interleaved MS11-M's).

''MKPAT"

‘'MTO00YY'' where YY will be the number of

location
is

°'MKCSRT''

table

1is

the pattern.

a table of patterns that can run once for each

patterns

that

can

Symbolic location

run on each Bank of ECC memory.

Symbolic Location MJPAT'' is a table of patterns that can run on each
Bank of Parity memory.
Symbolic
‘'acation ''FSPAT'' is a table of
patterns that can be run in Field Ser. .e Mode (command 5).
The 1st 3 scripts are completely
controlled by the APT
E-table
(even
it
not
running
under APT).
Moditications to this table can be made
(1) with APT, or (2) manually.

Examole E-table Segment:
:THE
¢ARE

FOLLOWING LOCATIONS SPECIFY WHICH PATTERNS
TO BE RUN FOR PARTICULAR MEMORIES

:REFERENCE THE TABLE LISTED BFLOW TO RELATE BITS TO PATTERNS.
;BITO SET WILL RUN THE FIRST ENTRY [N THE TABLE, BITO SET

;IN THE SECOND WORD WILL RUN THE 17TH ENTRY IN THE TABLE...

INOTE*eNULL TESTS DO NOT TAKE ANY TIME
-

$ODWO0:
$00W1:
$00W2:
$00W3:
$0DWS $DDWS :

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

127777
177777
177777
177777
177777
177777

RECOMMENDED

JECC CSR TESTS
;ECC CSR TESTS
JECC PATTERNS
JECC PATTERNS
;PARITY PATTERNS
;PARITY PATTERNS

VALUE

177777
177777
103777
177777
003777
177774

TABLE
TABLE
TABLE
TABLE
TABLE
TABLE

_=
_=
_=
_=
_=
_=

MK(SRT:
MK(SRT:
MKPAT:
MKPAT:
MJPAT:
MJPAT:

Page 50 SEQUENCE

6.2.2

6.2.2.1

Specitic Patterns

Pattern 0

Writes & Reads R?2

Basic Data Test
into a 16K Bank.

‘This is used for leros and Ones testing and in Field Service Mode

-any console selected pattern.

‘for

It can execute out of the USER Instruction PAR's,
NOTE

It is
frequently modified dynamically
(1) it returns after writing
that
such
only (the 1st NOP
is
replaced
with
a
RETURN)
or
(2)
it
(the code PERROZ2 and
with INC G#PATERR).

6.2.2.2

Pattern 1

Address

only counts Errors
NOP
are
replaced

Test

Writes
& Reads
an
incrementing
addressed into a 16K Bank.

pattern

equivalent

physical

It can execute out of the USER Instructior PAR's,.

6.2.2.3

Pattern 2

Complement Address Test

Writes the complement of the physical address from high
addresses
low (write down) and reads from Low addresses to high (read up).
This provides the complement of the coverage of Pattern 1
pattern and addressing sequence.

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

in both data

SEQ 0050

Page 51

6.2.2.4

Pattern 3

3 XOR 9

Writes & Reads a pattern that complements as
change.

address

bits

and

This pattern 1s run &4 times (1) with Zeros § Ones,
(2)
with
Ones
&
leros,
(3)
with 401 & Ones, and (&) with Ones & 401.
The pattern of
the 407 is to force a the parity bits to become involved.

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

6.2.2.5

Pattern &

Writes a background
thru each par
of

lero and the word (2

Rotating leros Test
pattern of Ones.
bytes (18 times)

bytes)

Rotates a lero
(arry
Bit
left
and then checks that the carrv is
is still all Ones.

[t can execute out of the User Data PAR's and the Kernel Data PAR's.
NOTE

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

that

the carry was

after 18 ROLB's.

not

good
his

clear

SEQUENCE

51_

SEQ 0051

Page 52 SEQUEN(CE

6.2.2.6

Pattern 5

Rotating Ones Test

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
Une and the Word (2 Bytes) is still all Zeros.
This provides the complement of

the coverage of Pattern &

in data.

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

is not uncommon to observe

data equal

the bad data.

that the Carry

ROLB's.

was

not

This

set

the good
indicates

after

SEQ 0052

Page 53 SEQUENCE 53
6.2.2.7

Pattern 6

Initial Data Test

Wwrites § Reads a double word first with all bits 0 except 1 (for every
bit position),
Second
with
all
bits
1
except
1
(for every bit
position).
This

is a very quick

6.2.2.8

check of

Pattern 7

the data paths.

Address Bit

iast

Writes a background of all Zeros.
Read Address
tora 0 Byte.

Complement Address 1
Read Address 1 for a non 0 Byte.

for each Address g8it position from Bit

virtual (2,

60000, 20000)

&, 10, 20, 40, 100, 200, 400

Phbsical (60002, 60004, 60010,

60020,

1000, 62000, 64000, 70000, 140000,
Read Address for a 0 word.

1000,

60040,

100000)

2000,

4000,

10000,

60100,

60200,

60400,

Complement Address contents.
Read Address for a non-zero word.

This

is a very quick check of

6.2.2.9

Pattern 10

the address bit uniqueness.

Byte Addressing Test

With ECC Disabled.
writes all ones to a double word.
fFor each of the & Bytes in the Double Word.
Clears one byte.

Reads all &
tes from double word.
Checks for only proper b{te clear.
AlLL other bytes set to
L ones.

This

is only done on one double word address.

NOTE

This

run

for ECC memory only

SEQ 0053

Page 54 SEQUENCE

6.2.2.10

Pattern 11

Single Bit Error Test

(reate a Single Bit Error.
Read data Uncorrected

(with ECC Disable).

Check that SBE and DBE
is

flags are set,

latched.

o~N
O

(¥,]

Read First Word of data corrected

and the

address

(with ECC Enabled)

Check tinat the (SR Single Bit Error flag
error address was latched.
Clear SBE

error

was

set,

and

Flag.

Read Second word of data corrected (with ECC Enabled).
Check that the (SR Single Bit Error flag was set.

Do (1-7)

for a Single Bit Error in each of 32 positions of

double word.
i.e.
(32 TIMES)
10.

(32 X 32 = 1024 Times

Do (1-9)

for complemented data (1 Bit clear

positions of a double word).
i.e.
(1024 X 2 = 2048 Times)

This

It not in Quick Verify Mode then Do (1-8) for data consisting
of 1 bit set in each of 32
positions of a double word.
i.e.

the

(32 X 2 = 64 Times

each

(Cuick Verify))

12.

Do (1-7) for & double word equal to (000000,000000), and all
possible
Single Bit Error combirations forced into the (Check
Bits (CSR bits S5-11).

13.

(lear

insures

any errors out

that

all

Single Bit

test

locations.

Errors can be corrected and detected.

NOTE

This

test

run

for ECC memory only

SEQ 0054

Page 55 SEQUENCE

(reate a Single Bit Error,
Write a Byte of Double Word to Ones.
Read a Byte of Double Word.

It this is MS11-M, the SBL
If this is MF115-K the SBE
byte with the error.

—

Test

Write Byte (lears SBE

Pattern 12

6.2.2.11

flag chould be SET.
flag should be SET if this is

The Byte should have been equal

the

to Ones.

Do (1-5)

fur each of the 4 Bytes of the Double Word

Do (1-6)

for a Single Bit Error in each of 32 positions of

Double Word
i.e.
(32 Times)

If not in Quick Verify Mode then do (1-7)

for data consisting

of 1 Bit set in each of 32 ?ositions of a double word.
i.e.
(32 x 32 = 1024 Times
9.

This

Clear any errors out of test

insures that single bit

errors

locations.
in

the

data

portion

(not

checkbits)
can be cleared by writing the corresponding byte and that
writing any other byte does not change the existing single bit error.
NOTE
This

test

run

for

ECC memory only.

SEQ 0055

Page 56 SEQUENCE 56

6.2.2.12

Pattern 13

(reate Double Bit Error Test

(reate a Double Bit Error.

Access the Data

(TST

instruction),

Check that the (SR DBE Flag is set, and the error address

»
wn

Access the Data (TST

Check that a parity trap occurred.

Do (1-6) for the 2nd Bit of each Double Bit Error in each of
32 positions of a double word Less the one position of the

Initialize CSR to allow parity traps on DBE's.

latched.

Instruction).

1st Bad Bit.

i.e.

(31

Times)

If not in Quick Verity Mode then Do (1=7) for the 1st Bit of
eacg of Double Bit Error in each of 32 positions of a double
wor

i.e.

(31

Do 51-8)
wor

x 32 = 992 Times)

for complemented data (Ones versus Zeros

Double

i.e.
(992 X 2 = 1984 Times)
or (31 X 2 = 62 Times (Quick Verity))
10.

Do (1-6) for a double word equal to (000000,000000), and all
possible Double Bit Error combinations forced into each of
the check bits ((SR bits 5-11).

Clear any errors out of test

locations.

This insures that all Double Bit Errors can be

~and cause traps.

created

NOTE

This test is only run during
the
first
(QV)
PASS when under ACT or APT, and is
run

for €ECC memory only.

and

detected

SEQ 0056

Page 57 SEQUENCE 57
6.2.2.13

Partern 14

udrite Inhibit During DATIP wWith DBE Test

Create a Double Bit

¢.

Do ASRB on Test Location,

Check that Double Word is STILL Bad (unchanged-with DBE).

Do (2-3)

Do (1-4) for the 2nd bit of each Double Bit Error in each
of
32
positions
of
a Double Word lLess the cne position of the
1st
i.e.

If not

in Quick Verify Mode then Do (1-5)

each

Double

i.e.

(32 X 32 = 922 Times)

Do é;-é)
Word).

i.e.

on all & Bytes of Double Word.

Bad Bit.
(31 Times)

word.

Error.

(31

Bit

Error

in each of 32 positions of a double

tfor complemented data

(922 X 2 =

for the 1st Bit

(Ones versus Zeros

1in

Double

1984 Times)

X 2 = 62 Times

(Quick Verify))

Do (1-4) for
a double word equal to (000000,000000), and all
ossible Double Bit Error ccmbwnat1ons forced into the Check
its(CSR bits 5-11).

(lear any errors out of test

locations.

This insures that the Double Bit Error can be cleared by
any affected Byte.

NOTE

This test is only run during
the
first
(Qv)
pass when under ACT or APT, and is
run for MF11S-K only.

DATIP

StQ 0057

Page 58 SEQUENCE
2

6.2.2.14

Pattern 15

write Inhibit Of Byte With DBE

Check that Double Word is still Bad (unchanged-with DBE).

(¥,

~No

Do a MOVB immediate to test byte.

(reate a Double Bit Error,

Do (2-3) on all &4 Bytes of Double Word.

Do (1-4) for the <nd Bit of each Double Bit Error in each of
32
ositions of a double word Less the one position of the
1st
i.e.

Bad Bit.
(31 Times)

If not in Quick Verify Mode then Do (1-5) for the 1st Bit of
eacg Double Bit
Error
in each of 32 positions of a Double

word.

i.e.

(31

x 32 = 922 Times)

Do é}-b) for Complemented Data (Ones versus leros
word).

i.e.

Double

(992 X 2 = 1984 Times)

or (31 x 2 = 62 Times (Quick Verify))

Do (1-4) for a double word equal to (000000,000000), and all
ossible Double Bit Error combinations forced into the Check
its (CSR bits S5=-11).

(lear any errors out of test

locations,

This insures that no Double Rit Error can be cleared by a MOVB to

affected Byte.

NOTE

This test is only run during
the
first
(Qv)
pass when under A(CT or APT, and is
run

for

ECC

memry only.

any

SEQ 0058

Page 59 SEQUENCE 59

6.2.2.15

Pattern 16

wWrite Inhibit Of Word With DBf

Check that Double word

Do (2-3) on both Double Words.
Do (1-4) tor the 2nd Bit of each Double Bit Error in each
of
32 positions
of
a Double Word lLess the one position ot the

Do MOV

&»

(reate a Double Bit Error.

Test

IMMEDIATE on test

location.

is STILL Bad

(unchanged-with DBE).

1st Bad Bit,
i.e.
(31 Times)

It not in Quick Verify Mode then Do (1-5) for the 1st Bit
of
eacg Double Bit
Error
1in each ot 32 positions of a Double

word.

i.e.

(32 X 32 = 992 Times)

Do é;-b)

word).

i.e.

for Complemented Data (Ones versus Zeros

Double

(592 X 2 = 1984 Times)

or (31 X 2 = 62 Times (Quick verify))
Do (1-4) for a double word equal to (000000,000000), and
possible

Double Bit Error comhinations

gits (CSR bits 5-11),
9.
This

(lear any errors out of test

insures

that

no Double Bit

Error

all
forced into the (heck

locations.
can be

cleared

a MOV

any

Zeros

Ones

affected word.
NOTE

This
(QV)

run

6.2.2.16

test is only run during
the
first
pass when under ACT or APT, and is

for ECC memory only.

Pattern 17

Holding 1's § 0's Test

Write a 16K Bank with alternating
writing a Byte at a time.

Bytes

Read each Word

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

for correct pattern.

This checks the memory for the capability ot holding 0's & 1's,

SEQ 0059

Page 60 SEQUENCE 60

6.2.2.17

Pattern 20

Marching 0's ¢ 1°'s In Check Bits Test

wWrite Double Wwords of 000000,,000000 which causes check

It in Quick verify Mode then Go to Step (5).

Read Double Words & check while

to equal 077 while address1n? increments,
(Write Up/077 ==> check bits

writing

addressing decrements.
\Down/077 -=> 100)
This

fiips all

Read

Double

Read Double Words &

check

Read

Read Double Words & check while Addressing
(Up/077)

000000,,100000

and

the checkbits.

Words

addressing increments.
(Up/100 -=> 077)

addressing increments.
(Up/077 -=> 100)

Double

bits

Words

addressing decrements.
(Down/100 --> 077)

check

while

check

writ‘ng

writing

while

leros

while

000000, .100000

writing

Zeros

while

increments.

I This checks the integrity ot the MOS chips that store the checkbits.

SEQ 0060

Page 61

6.2.2.18
1.

Pattern 21

Marching 0's & 1's Test

Write a Background of

alternating Bytes of

Zeros & Ones

the 16K Bank addressing Down

Read check

a word

Read check

a word

Byte Swap a word

For the 16K Bank addressing Up
(a)
(b)
(c)

Read check

a word

Read check

a word

Byte Swap a word

for the 16Kk Bank addressing Up
(a) Read check a word
(b) Byte Swap a word
(c) Read check a word

Ffor the 16K Bank addressing Down
(a) Read check a word
(b) Byte Swap a word
(c) Read check a word

This checks the integrity of

the 32 Bit Double Words.

It can 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.
1f the error
report
indicates

errors
second

1in pairs with the bad bit in the
report
being
the
same
bit

position
relative
to
a
byte then you
should ignore the second error report.

SEQUENCE

SEQ 0061

e c——

Page 62 SEQUENCE 62

6.2.2.19
1.

Pattern 22

Refresh Test

Wr-te a diagonal

pattern of ones on every KDJAG(TH)

write zeros elsewhere.

This pattern

is on addresses not

stripe

bit positions.

Example:

Address

MS8's

LSB's

. 00010001
.00100010
01000100
100601000
00010001
'00100010
'01000100
.10001000

NOTE

Examgle uses KDIAG of value & more typical

is a value
Consult the symbolic definition of ''KDIAG'' in

the program listing to be sure.

Disturb each row for > 3.2ms

Read check diagcnal pattern

Do (1-3) KDIAG times moving the placement

Do (1-4)

stripe to cover all
(zeros

address positions.

for a complement pattern

in a background of ones)

NOTE

This

test

1is

not

except
under
APT
invokea VIA
Field
(Kamikaze Mode).

normally

or
AC(T.
Service

executed

It may be
C(ommand
13

the

diagonal

SEQ 0062

Page 63 SEQUENCE 63

6.2.2.20
Similar
for

Pattern 23

Shifting Diagonal Pattern Test

in overall operation to pattern 22 except

retresh and disturb rows.

does

not

Jdelay

NOTE
This

test

1is

not

except
under
APT
invoked VIA
Field
(Kamikaze Mode).

6.2.2.21

Pattern 24

normally

or
A(T,
Service

executed

It may be
C(ommand
13

fast Galloping Pattern Test

This does a classical galloping
pattern
except
incremented by 400 Octal (every 64th double word)

that

NOTE

This
test
1is
not
normally
except
under
APT
or
AC(T.

invoked VIA

Ffield

(Kamikaze Mode).

Service

executed
It may be

(ommand

addressing

SEQ 0063

Mm
S
Page 64 SEQUENCE 64

6.2.2.22

Pattern ¢5

Interrupt Enable Test

WWN
S
W

Access Test Double Words.

Check that no SBE Trap occurred.

Write a SBE

Disable CSR Traps.

Access Test Double Words.
Check that no Traps occurred.

Enable CSR for SBE Traps.

12.

Access Test Double Words.

13.

Check to Insure Trap Occurred.

14.

Do (7-13) for the 3 other Bytes in the Double Word.

15.

Create a DBE

16.

Disable CSR Traps.

17.

Access the Test Double Word.

18.

Check that no Traps occurred.

19.

Enable CSR for DBE Traps.

20.

Access the Test Double Word.

21.

Check to Insure Trap Occurred.

22.

Enable (SR for SBE Traps.

23.

Access the Test Double Word.

Check to Insure Trap Occurred.

25.

Do (15-24) for the 3 other Bytes in the Double Word.

—

Enable CSR for SBE Traps.

Access Test Double Words.

Set (SR to Allow Uncorrectable Error Traos.

—

Check that no Uncorrectable Error Trap occurred.

in 1 Byte.

This insures that SBE's & DBE's give the correct type of traps.
NOTE

SEQ 0064

This test

6.2.2.23

Pattern 26

run for ECC memory only.

SEQ 0065

Random Data Test

Write Random Data in a 16K Bank while
Read check Rarndom Data.

incrementing the Addresses.

This routine regenerates the same random numbers

wusing

the

same

8 6
Page 65 SEQUENCE 65
seed

as the write sequence.

After the read check the seed is updated

so that the next use of this pattern will not
of random numbers.

invoke the same sequence

It you wish to change the random sequence so that it is different than
any other run in the same configuraticn then there are 2 ways of doing
-

so.

Modify symbolic
you

like.

locations ‘'SEEDHI'" and "'SEEDLO'’ to any number

Enter Field Service Mode and execute this

pattern (command 5)

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,

SEQ 0066

Page 66 SEQUENCE 66

6.2.2.24

Pattern 27

Unique Bank Test

ghi: pattern uses Pattern 0 to write £ read the Bank
ank

number

each

It does not test Banks that

require relocation to test.

It does not run as part of any

normal

pattern

6.2.2.25

Pattern 30

This Reads each

done_brigh

script but rather is always

tests are complete,

run

after

flush Out DBE's Test

location then moves the old value back

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 Mcde,
as part of hanging sequence after an error if under ACT or ATMT, and as
part of a shutdown sequence directed by Switch 8 (Halt Program’.

SEQ 0067

Page 67 SEQUENCE 67
6.2.2.26

Pattern 31

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
itselt
ma{
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

1is

(1)

single operand, (2) can
be repeatedly executed at the same PC and,

~can escape this repetitious
Hence,

loop.

tan be possible to SOB a MO5 cell

death

(or

brain wash him), and to SOB a core into over-heating (or at
discomfort).

(3)

least

least warm

‘The SOB Routine will be loaded and called with RO set equal to the SOB
constant ‘'SOBK'',
Rl
Instruction ''100776"".

Simplifisd

1%:

equal

the

complement of a ''SOB RO,."

SOB Example:

S08
MOV

RO,1$
R1,1%

CMP

2%:

set

;S08 till RO underflows
;Write complement of SOB

R1,1$%

B8EQ
SOBFAIL
SOBMOV1
SOBMOV2
SOBMOV3

;Read & check not S08

;Skip if OK
:Trap £ report error
;Code to get self moved
;Forward 1 word and run again

SOBMOV4
SOBMOV...

The value of the SOB constant can be found at symbolic

location ''SOBK''

This test

may

(typical 25 decimal).

is not

in the normal

script of execution but

via the APT E-TABLE, reference symbolic
"'$DDW2-5''.
Field Service Mode command 8
running this pattern.

This

test

not

(Kamikaze Mode).

normally

or
A(T,
Service

added

locations 'MKPAT'', 'MJPAT",
1is
the normal method of

NOTE

except
wunder
APT
invoked VIA
Ffield

executed

It may be
Command
13

SEQ 0068

E
6
Page 68 SEQUENCE 68
6.2.2.27

Pattern 32

This test

causes a WRITE,

and

the

READ, WRITE,

READ,

...

to occur

memory

1st, 3rd, 5th, ...READ is bad the p(o?ram may bomb or it

the 2nd, 4th, 6th,

out

Write Recovery Test

the error.

...

READ s bad the program wil

gracefully

type

Write Recovery Test

This test differs from other tests in that it consists
of a small test program actually running in the bank under test.
The program is self modify1ng and mag be difficult to debug.
To aid in the debug, remember that the
bank and margin are being
diselayed. This will allow the user to at lLeast see which memory
bank
failed.
The test consists of 1/2 of the bank stored with MOV R2,-(P()"’

and the other 1/2 containing ‘'"177667''. "'177667'' is the complement
of "JMP (RO)'' instruction.
R2 contains ''(OM -(R1)' instruction
on entry to the bank and R1 contains the highest test address in
that

bank,

It you understand this so far the rest is easy.
The test execution

follows:

The 'MOV R2,-(PC)'" instruction executes storing
the contents of R2 in the address it vacated (due to =(P(C).

2. Since R2 contains a ''(OM -(R')'' instruction it complements
the highest address under test. this address contained
*"177667'" so after the COM -(R1)

it equals 110

instructions reach the m.ddle of

the test bank.

cleverly this is the ''JMP (RO)'' instruction.
3. This sequence continues until the 'MOV R2,-(PC)"

then the ''JMP (R0O)'' instruction is met
and executed. RO contained the return address back
to test 13.
These steps are repeated

for each bank under

NOTE

This

test

1is

not

except
under
APT
invoked VIA
Ffield
(Kamikaze Mode).

normally

gr
A(T.
Service

executed

[t may be
(ommand
13

test.

SEQ 0069

F
6
Page 69 SEQUENCE 69

6.2.2.28

Pattern 33

Branch Gobble Test

This test loads
a smallL routine
into
the
memory
under
test.
The
routine
moves itself along in memory one wcrd after each pars so that
instruction
has
when it reaches the end every
executed
from
every

with

location

the

exception

the beginning and end of each test

area.

The Branch Gobble's general

format

after you eliminate setup code

code to move the program along is as

BGTEST:
BRGOBB:

SEC
ADCB

BGTEST

JINC LOW BYTE

INCB

BGTEST+1

;INC HIGH BYTE

BVS

This

;ERROR TRAP

sCLEAR V-BIT
;INC HIGH BYTE ONE LAST TIME
;BRANCH [F C-BIT SET (SHOULD NOT BE)
;BRANCH [F Vv-BIT CLEAR (SHOULD NOT BE)

BGTEST
3%
3%
31

BCS
BvC
BMI

ERROR

(%:

;LOOP 128 TIMES
:BRANCH [F V=-BIT SET (SHOULD BE)

BRGOBB

ERROR
CLv
INCB

31%:

:END LOOP AFTER 128 TIMES

2%:

;BRANCH [F N-BIT SET

;ERROR TRAP

RETURN

code

origionally

came

fFamily
Instruction
from
the
PDP-11
MOS memorys fell succeptable to this
memory
important
an
it
has

The
first
020K -A.
Exerciser
section of that diagnostic
and
exerciser

ever

and

;TEST WORD

BM!
1%:

follows.

since.

NOTE

This
test
1is
not
except
under
APT
invoked VIA
field
(Kamikaze Mode).

normally
executed
may be
[t
or
A(T.
Service
13
Command

(SHOULD BE)

SEQ 0070

Page 70 SEQUENCE

6.2.2.29

Pattern 34

Soft Error Test

Rationalization

MOS chips have a failure mode in which theg can randomly pick or
drop
bits.
This is caused by Alpha particles bcmbarding the cell.
1f 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.

Thicg test is controlled by the main program so
that
it
1is used
to
create
flattern of 125252 and 52525 on alternate passes of the
program.
The configuration table is used to flag banks that have
the

attern \nval1da'eo because another pattern was written over this
ackground.

This pattern is nothing more than a clever use of pattern 0.

$.2.2.30
1.

Pattern 35

wWorst (ase Parity Test

force Write Wrong Parity in earch 1K word block ot the
Under

Memory

Test.

Read with Parity Trapping enabled, making sure

that

trap

sure

trap

occurrs,

Make sure error address bits are set correctly.

Write good parity without
occurrs when read.

trapping, and

make

NOTE

This test is run for parity memory which
1s not controlled by the same (SR as the
program.

SEQ 0071

Page 71

6.2.2.31
This

is an

Pattern 999 Null Test
instant

return added

This pattern replaces

any

rea!

specity a pattern to be run.

to preserve
patterns when

the

software structure.

the APT

E-Table does

not

SEQUENCE 71

SEQ 0072

Page 72 SEQUENCE 72
7.0

PROGRAM FEATURES

7.1

Ffast

Data Access Rates

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
failures not

detectable

memory diagnostics (0-124K,0-2 MEG,etc.)

multiple NPR devices contending for

gevice
ata

the bus.

is because of

After some delay

NPR

becomes bus master and does several memory transfers at memory

rates.

On the other
hand most
diagnostics
when writing
reading
and/or
‘checking patterns
spend most of their time fetcnhing instructions and
operands out of their program space and proportionally
Llittle
time
accessing the memory under test.

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

_have been taken.

7.1.1
)

Ffast

(City

Utilization of Memory Management Registers

Non

Memory

restrictions the UIPDR's,

and SDPDR's.

Bus,

Non

UNIBUS, Bipolar Memory.
Since User Mode is only used for relocation
and Data Space is never used, then subroutines can be executed
from
the UIPAR's,
UDPAR's,
KDPAR's,
SDPAR's
and with some Bit Pattern
UDPDR's,

KDPDR's,

The
program
runs
in
Kernel
mode
and
Patterns
are
executed
in
Supervisor mode for mapping purposes.
All core patterns and some MOS
Patterns are
subroutines
that
are moved
to
this Bipolar
region
referred to

in the program as Fast

(ity.

NOTE
18-8it

PAR's

PDP=-11's cannot execute

because

executed

from

the

PAR's are only 12

they also have no Supervisor

bits wide;

Mode.

their

Therefore,

memory,

(reference Section

all

patterns

using

/7.5).

User

are

Mode

SEQ 0073

6
J
Page 73 SEQUENCE 73
7.1.2

SO0B's

Utilization of the

full

PDP-11

algorithms (principally tnhe S0B).

7.1.3

Set

pattern

pattern tests to decrease program pass times.
by the operator (reference secticn 2.4.3.1).

Bank lero Testing

Bank Zero has been traditionally neglected by memory
the

speed

C(ACHE

CACHE is used between
CACHE can be defeated

‘7.2

Instruction

diagnostics

for

following reason.

The vector space exists there and

ALL

traps

must not

access

test

If the area is tested the diagnostic must not use any
pattern data.
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 (cauticn must be
observed because power up goes to ph{sical address 24 (because the

Memory Management Unit comes up off)).

However, (atch 22 is that the qia?nostic is not APT compatible in this
mode because APT Accesses Physical

Memory Locations.

The PDP=-11/44 can over come this because the UNIBUS 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 program moves and
This enables the
remaps (hereafter referred to as relocates).
complete testing of Bank Zero or any other program space or privileged
(lhe conditional test to
space Q'GCt£I as all other banks are tested.
see if a ba

is protected is complemented when relocated).
NOTE

The program will relocate only
in the
the
this,
after
APT;
under
pass
tirst
?rogram will remain fixed in Banks 0 and

SEQ 0074

Page 74 SEQUENCE 74
7.3

Memory Configuration Map

This map is printed out immediateLy after siz1ng the memory unless Swé
is set (reference section 2.6.1).
1t can also
e pr1nted at any later

time in field Service Mode (reference section 2.4

Example:

carons

MEMORY

CONF JGURATION MAP
16K BANKS

7
6 2345070123
5
4
3
¢
1
56701
01234
34567
67012
12345
45670
©123¢567012345670123

CPU MAP 11111111111111111111111111111111
INTRLV =--ceccccceccena- 3333333333333333

MEMTYPE LLLLLLLLMMMMMMMMMMMMMMMMMMMMMMMM

CSR

00000000111111112222222222222222

ERRORS

0
2
3
4
5
6
456701234567012345670123456701234567012345670123&56701234567

PROTECT PP

CPU MAP
INTRLV
MEMTYPE
CSR
PROTECT

Displayed are Banks 0-73 Octal

(2 meg words).

the

Fat

Terminal

Switch was set (reference section 2.4.1) then all Banks (0-167) would
be shown.
I[f this was an 18-Bit PDP-11 (eg - 11/34), only Banks 0-7

would be printed.
The fields:
ERRORS:

The sizing routine could not write zeros and ones
10 £ 11,
hence they are marked as bad with X's,

Banks

C(PU MAP:

The CPU was able to access banks 0-37 (512 K words).
INTRLV:

There is interleaving on Banks 20-37, with
(SR 2
(172104)
controllin
the
Address Bit 1 Non-Asserted addresses, and
(SR 3
(172106)
controlling the Address Bit
1
Asserted
addresses.

ERRORS:
MEMTYPE:

Banks 0-7 are Memory Tyge L (MS-11L), and

Banks

10-37 are

Memory
Type M
(MS11while Banks 40-167 do not exist.
Memory Type K would indicate MF11S-K, Memory
Type
P
would
indicate UNIBUS Parity, and Hemory Type B would indicate

SEQ 0075

11/45-type Bipolar memory.

SEQ 0076

(SR:

?
10-17 to
(SR
Banks (=7 are assigned to (SR 172 100,
and 20-37 to interleaved (SR's 17 2104 and 172106.

172102,

PROTECT:

Banks 0 and 1 are protected because they are program
space.
Bank
0
and 1 can also be protected because the‘ are in the
bottom 16Kk of an MS11-M (SR.
The protection is hierarchical

and

and 1

pro?ram

will not

sgace

overshadows MS11-M protection.

be tested until the

program

Banks 0

relocates.

Page 75 SEQUENCE 75
any bank is protected by MS11-M (or MF115-K)
it is in program space 1t will have an "'I''
row.

This

and not because
typed
in
this

s to point out where the protected banks start

for each ECC CSR.
Note the 'P''
at Bank 30;
This points out
the ‘‘'Shadow'' protection which occurrs
when
two MS11-M
memories are interleaved.
Therefore, Bank 30 witl
not
be
tested until the program has relocated.

7.4

Everything You've Always Wanted To Know About

SUPER-MAC is a

set

of structured

programs to be written in a high

programming

SUPERMAC

macros

level, easily understood

...

that

allows

language.

As a general

rule,
most
SUPER-MAC
statements
can be 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 simple as
possible.
Comments may also be included on a source
Line.
ALl
the
eneral
ruiles,
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:
The expression A+B
s
interpreted

different than A + B.

ALL the conditional statements can be written as multiple-lLine

nested

biocks.
Each level of nestin? 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 debugging aid, if the symbol LST$$ is
defined, it will cause generated code and labels to be
listed.,
All
programs must begin with
the macro call SMACIT.
This call initializes
SUPER-MAC.
ALl
legal PDP-11 source and destination operands are legat
in SUPER-MAC.

SEa 0077

N_6
Page 76 SEQUENCE 76
7.4.1

Sample Source file .ENABL ABS
LENABL AMA

.SUPER

OOOOCOOOOOOO

CreXTOTMOND>»

LMCALL
.SUPER

.PAGE

sLET EXAMPLES

ELSE

MOV
END ;OF
IF A EQ
MOV

END

;OFf

A EQ

MOV

11}

)

T
L
RV
|
XM
NP
M

MOV

EN LET

D CNED
C NED

—

END ;OFf
IFB A EQ

«
D TM
o0
OoO»
O
W
» >
2>
Z >

END ;OF
IF A EQ
IF A LT

M
=4
00—
MNP TNV D

MOV

D o=
D o
M
el
N

MOV

END ;OF
IF B IS

A
IF
END OF
IFB A EQ B ANDB C EQ
H

END

;0F

4
|

RESUL 1

MOV
END OF

[+ o X S

ELSE
MOV

ND C EQ

MOV

—

;1F

LET B :
LET E :
LET G :
LET J :
LET A :
EXAMPLES
IF A IS

(o]

= A

LET RO :

A
|

SEQ 0078

IfF

BITS SET.IN A

MOV
END ;OF

.
IF

mov

(,D

BITS

BITS OFF.IN A

BITS
END ;OfF If
;ON.ERROR 1S LIKE AN [F STATEMENT ON THE (-BIT
;ON."RROR EXAMPLES
ON.ERROR
MOV
A,B
ELSE
mov
(.8

END ;OF ON.ERROR

ON . NOE RROR

SEQ 0079

Page 77 SEQUENCE

MOV

A,B

END ;OF ON.NOERROR
ON.ERROR THEN LET A

:FOR EXAMPLES

FOR ] : =
=5 710
A
INC
END ;OF FCR |
FOR RO : =
0 7O

DEC

K(RO)

ADD

A.B

:B_= B

23
140 BY

END ;OF FOR RO
FOR | :_=
133 DOWNTO
END

;OF

;BEGIN EXAMPLES

FOR

3 BY

BEGIN ALPHA
FOR RO :_=
MOVB

0 TO
167
A(RO),B

O THEN LEAVE ALPHA
IF B LT
END ;OF FOR RO
FOR RO

IF 8 GE

400 TO

END ;OF FOR RO
END ALPHA

:SRETURN EXAMPLES
$RE TURN
$RETURN ERROR

$RETURN NOERROR

:CASE EXAMPLES
MOV

A,RO

TMOAND
>

CASE RO

END ;OF

S67

O THEN LEAVE ALPHA

CASE RO

SEQ 0080

Page 78 SEQUENCE 78
7.4.2

Sample Listing File

MAIN.

MACRO M1111

2
3

(with No Erpanded Macros)

"01-APR=-79 16:41

PAGE 2

000000

.ENABL ABS

.ENABL AMA
.MCALL .SUPER

4& 000000

7
8
9
10
11
12
13
14
15
16

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022

- -

.SUPER

000040

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

JLSTSS =0

A
B
(
D
t
f
G
H
[
J

BITS_=40
0
0
0
0
0
0
0
0
0
0

SEQ 0081

Page 79 SEQUENCE
MACRO M1

01-APR-79 16:41

PAGE 3

000416

000416
000420
000426
000430
000436
000436
000440

000012

000014

013737

000012

060014

013737

000016

000022

013737

000010

000022

013737

000016

000022

013737

000010

000022

013737

000000

000002

013737

000002

000004

013737

000004

Q00006

ony—

+
+

“xrTme

oo
"W

A FQ

MOV

END

;OF

A EQ

MOV
END ;OF

IFB A EQ

MOV

END ;OF
[FB A EQ

MOV

ELSE

NED

ND C

MOV

ELSE

CNED

Z >

013737

MOV

END

:_= D

000006

[o o X 58

000010

ANDB C EQ

—

013737

MOV

ELSE

00D
»—
,.,

000006

THEN LET

D +— M

000004

34 ,E

D >

013737

MOV

END ;OF
1f A EQ
IF A LT

Mo
sl
D "NMe
—
o0
o»
O
> >
>
Z >

000010

23,0

END ;OF IF A
IF B IS FALSE

000034

A IS TRUE

MOV

012737

e iasl
O "

000006

000023

012737

MOV
J
END ;OF IFB A
IF RESULT IS EQ
MOV
A,B
END ;OF IF RESULT
TMm

000276
000304
000306
000314
000314
000334
000342
000344
000352
000352
000354
000362
000362
000372
000400
000400
000410

LET AA :B_= B

:1F EXAMPLES

b TY

000256

RO : = A
B :_
£ :_
G
J :

LET
LET
LET
LET
LET

;LET EXAMPLE S

000024
000030
000044
000056
000072
000100
000106
000114
000122
000122
000130
000136
000136
000154
000164
000172
000174
000202
000202
000222
000230
000230
000250

BITS SET.IN A

MOV

8.C
BITS
END ;OF IF
BITS OFF.IN A
If
MOV
.0
BITS
END ;OfF IF

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

013737

000000

013737

000004 000002

013737

000004

000002

ON. ERROR

B0V

“Mov

C.B

END ;OF ON.ERROR

ON.NOERROR

Mov

(.8

SEQ 0082

72 000446

73 000450

74 000456

013737

000000

000002

ELSE

MOV

END

;OF

A,B

ON.NCERROR

SEQ 0083

Page 80 SEQUENCE 80

MACRO M1111

01-APR-79 16:41

000456

ON.ERROR THEN LET A :B_= B

:FOR EXAMPLES

000474
000500

005277

000000

000516

005360

000000

000514

000522
000534

000542
000550

063737

000000

FOR I

116037

000000

000002

000626
000636

000700

FOR RO : =

0 TO

140 BY

K(RO)

END :OF FOR RO
FOR I :_= 133 DOWNTO

ADD
"A,B
END ;OF FOR |
;BEGIN EXAMPLES
BEGIN ALPHA

O THEN LEAVE ALPHA

$RE TURN
$RETURN ERROR
$RETURN NOERROR
;CASE EXAMPLES
A,RO
MOV
CASE RO
A

000000

000001

MmO
D

000000
000002
000004
000006
000010
000012

END ;Of CASE RO
-

FOR RO :_= 0 TQ 167
MOVB
A(RO),B
IF B LT O THEN LEAVE ALPHA
END ;OF FOR RO
FOR RO : = 400 T0 567

-$RETURN EXAMPLES

013700

3 BY

END ;Of FOR RO
END ALPHA

000636
000640
000644

000664
000666
000670
000672
000674
000676

IF B GE

000620

000650
000654

-5 10

DEC

000566

000566
000570
000576
000604
000614

:_=

"A
INC
END ;OF FOR |

.END

000466

PAGE 3-1

SEQ 0084

H
7
Page 81 SEQUENCE

Sample Listing File (with Expanded Macros)
MACRO M1111
"C1-APR-79 16:1
PAGE 2
000900

000000
000002
nNO004
000006
000010
000012
000014
000016
000020
000022

- =

.ENABL AMA
JMCALL .SUPER
.SUPER

000000

000040
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000

LST$S_=0

BIT5_=40
OOOOOOOOOO

000000

SEQ 0085

.ENABL ABS

Cre X O TMOAD
P

b
b
md

amd
d il

—

2O VIOD NON N

—

7.64.3
JMAIN.

........
c

7
I
Page 82 SEQUENCE 82
MAIN,

MACRO M1111

000024
000024
000030
000030
000036
000044

000044
000052
22 000056
000056
000064
23 000072
000072
24 000100
000100
25
26 000106
000106
000112
27 000114
28 000122
000122
29 000122

30
31
32

000122
000126
000130
000136
000136
000136
000136
000144
000146
000154
000154
000154
000162

34 000164
35 000172
000172
000174
36 000174
37 000202
000202
38 000202
000202
000210
000212
000220
39 000222
40 000230
61

000230
000230
000230

01-APR-79 16:10

;LET EXAMPLES
LET RO :_= A

013700

000000

013737
063737

000004
000006

000002
000002

013737
005237

000012
000010

000010

013737
062737

000016
000002

000014
000014

062737

000001

000022

113737

000002

000000

005737
001403
012737

PAGE 3

MOV A,RO
LET B :_=C
Mov (C.B
ADD D,B
LETE :_=F
MOV F,E

INC E

LET G

IST

000006

000004

023737
002004
013737

000000

000002

000004

000006

000010

000006

000403

000000

000002

000004

000006

000012

000014

L2:

000000

000002

;OF

23,D
IF A

IF B IS FALSE
B

END

;OF

34
E

IF A EQ B THEN LET
(MP A,B

mov D.(

ALT B

CMP A,B

BGE L3

L3:

Mov

C.,D

MOV
END ;OF

E.D
If A

ELSE
BR L&

IF A EGB AND C NE D
CMP A.B

BNE LS

CMP (D

geo L6
MOV

LS:
023737

BNE L2

Lé&:

023737
001007
023737
001403
013737

MoV

000010

000002

A IS TRUE

BNE L1
L1:

013737

END
1ST

000000

BEQ LO
MOV

000006

023737
001003
013737

:_= H +

;1F EXAMPLES

000002

000034

ADD
2.6
LET J :_= J +
ADD
O01,J
LET A :B_= 8B

LO:

005737
001003
012737

MOV H,G

000000

000023

+ D

END OF

F.G

IF A EQ B OR C NE D

(MP A.B

: .- D

SEQ 0086

000256

000240

000246

001404

023737

001403

000004

000006

BEQ L6

(MP (,D

BEQ L7

SEQ 0087

7
K
Page 83 SEQUEN(CE 83
.MAIN,

MACRO M1111

000250
000250
43 000256
000256
L4 000256
000256
000264
00026¢
000274
45 000276
46 000304
000304
000306
47 000306
48 000314
000314
49 000314
000314
000322
000324
000332
000334
000342
000342
000344
000344
000352
000352
000352
000352
000354
000362
000362
000362
000362
000370
000372
000400
000400
000400
000400
000406
61 000410

01-APR-79 16:10

013737

000012

PAGE 3-1

000014

L7:

123737
001010

023727
001004
013737

000000

000602

000004

000001

000016

000022

000403

013737

000010

000022

123737
001010

123727
001004
013737

000000

000002

000004

000001

000016

000022

000403

013737

000010

000022

000000

000430

BNE L10

000000

000002

000004

ELSE

L10:

000040

000000

000004

000006

H,J

BR L11
Mov

END ;OF

E,J

IFB A

IFB A EQ B ANDB C EQ

(MPB A,B

MOV

ELSE

L12:

H,J

Mov

END ;CF

E,J

[fB A

If RESULT
BNE L14

END ;OF

IS EQ

A,B

IF RESULT

BITS SET.IN A
IF
BIT BITS,A
BEQ L15
Mov

END ;OF

B,(

mov

C.,D

END ;OF

IfF

000403

ON.ERROR

BCC L17
MOV

000002

ELSE

L17:

BITS

BITS OFF.IN A
IF
BIT BITS,A
BNE L16

;ON "ERROR IS LIKE AN
;ON "ERROR EXAMPLES

000000

BR L13

MOV

L16

103004
013737

BNE L12
(MPB (, 1
BNE L12

L15:
032737
001003
013737

MOV

000002

000040

IFB A EQ B AND C EQ

(MP C,

L14:

032737
001403
013737

F,G

CMPB A,B

L13:
001003
013737

MOv

END ;OF

BNE L10

L11:

62 000416 °
000416
63

65 000416
000416
66 000420
6/ 000426
000426

Lé:

BR L20

A.B

BITS

If STATEMENT ON THE C-BIT

SEQ 0088

68 000430
69 000436
000436

70 000436

G13757

000004

000002

mov
L20:

(.B

END ;OF ON.EPROR
ON.NGERROR

SEQ 0089

Page 84 SEQUENCE 84
MAIN,

MACRO M1

000436

n 000440
72 000446

000446

000450
73 000450
74 000456
000456

75 000456
000456
000460
000466
76
77 000466

78
79

80
81
82

000466
000474
000474
000500
000500
000504
000512
000514
000514
000514
000516
000516
000522
000522
000526
000532
000534
000534

000534
000542
84 000542
85 000550
000550
000556
000564
000566

86
87 000566
000566
88 000566
000566

000570
89 000570
90 000576

000612

01-APR-79 16:10

103404

013737

000004

PAGE 3-2

000002

000403

013737

000000

BCS L21

000002

mov

L21:
L22:

103003
113737

000002

000000

012737

177773

000020

005237

000000

005237
023727
003770

000020
000020

062700
020027
003771

000004
000140

012737

000133

000020

063737

000000

000002

162737

000002
000020

023727
002366

A,B

ON.ERROR THEN LET A

:B_= B

MOVB B8.A

FOR

80:

B1:

000000

MOV

END ;OF ON.NOERROR

L23:
:FOR EXAMPLES

FO:

005360

BR L22

BCC L23

000023

005000

(.8

ELSE

Mov

INC
END .OF
INC I

A
FOR

FOR RO
CLR RO

B2:

E2:

C TO

140 BY

A(RO)
DEC
END ;OF FOR RO
4,RO

C(MP RO, 140
BLE B1

FOR 1

Mov

133,1

ADD
END :OF

SUB 2.1
3
MP 1,

000020
000003

-5 10

(MP 1, 23
BLE B0

ADD

E1:

:_=

-5,1

133 DOWNTO

A.B
FOR

3 BY

BGE B2

;BEGIN EXAMPLES
BEGIN ALPHA
83
005000
116037

200000

005737
002415

000002

005200
020027
003766

000167

000002

:
B4

FOR RO :_=
CLR RO

MOovB
IF B LT

IST B

0 TO

A(RO).B
O THEN LEAVE ALPHA

BLT E3
END ;OF FOR RO
INC RO
(MP RO, 167
BLE B4

167

SEQ 0090

000614

92 000614

000614

E4:

012700

000400

FOR RO : =

Mov

400,R0

400 T0

567

SEQ 0091

Page 85 SEQUENCE 85
MACRO M1

000620
93 000620
000620
000624
94 000626
000626
000639
000634

000636

01-APR-79 16:10

85:

005737
002004

005200
020027
003771

000002

£S-

E3:

000636

000636
98 000640
000640
000642
99 000644
000644

100

020646

101 000650
102 000654

—

000654
000656
000660
103 000664
104 000666
105 000670
106 000672
107 000674
108 000676
109 000700
000709
000700
000702
000704

IF B GE

1ST B

000567

95 000636

96
97 00V636

PAGE 3-3

O THEN LEAVE ALPHA

BGE E3
END .OfF FOR RO
INC RO
CMP RO, 567
BLE B5
END ALPHA

SRETURN EXAMPLES

SRETURN

000207

RTS PC

SRETURN ERROR
SEC

009261

000207

RTS PC

SRETURN NOFRROR

000241
000207

013700
010046
006316
004737
000000
€00002
000004
000006
000010
000012

062616
013646
004736

000001

CLC
RTS PC

000000

:CASE EXAMPLES
MOV

A,RO

CASE RO
MOV RQ,=(SP)
ASL

aSP

JSR PC,L24

000700

TMO A

MAIN,

L24:

END :OF CASE RO
ADD (SP)+,aSP
MOV @(SP)¢,=(SP)
JSR PC,a(5P)+
.END

SEQ 0092

Page 86 SEQUENCE 86
7.5

Memory Management Mapping

7.5.1

Memory Management Mapping for

The 11/44 -

PAR

SUPERVISOR

KERNEL

USER

0
1
2
3
4
5

Program
Program
Program
Test Area
Test Area
Test Area

Program
Program
Program
Program
Program
Program

Dst
Src
Src
Src
Dst
Dst

Perif Page

Perit Page

Dst Bk/Fst Mem

7.5.2

Test Area

Map to (SR's

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

Dst Bk/Fst Mem

Memory Management Mapping for UNIBUS-11's With Supervisor Mode (eq 11/45) -

PAR

SUPERVISOR

KERNEL

USER

Program

Dst Bk

2
3

Program
Test Area

Program
Program

Src Bk
Src Bk

p)
6
4

7.5.5

Program

Test Area

Test Area
Test Area

Perif Page

Program

Map to (SR's
Perif Page

KERNEL

USER

Program

Program/Dst Bk

2
3

Program
Program

Program/S~c Bk
Test Area/Src Bk

S
6

Src Bk

Dst Bk

Dst Bk
Dst Bk
Dst Bk

Memory Management Mapping for UNIBUS-11's W/o Supervisor Mode (eg 11/34) -

PAR

Mem
Mem
Mem
Mer
Mem
Mem

Program

Prugram

Program
Map to (SR's
Perif Page

Program/Src¢ Bk

Test Area/Dst Bk

Test Area/Dst Bk
Test Area/Dst Bk

Perif Page/Dst Bk

SEQ 0093

CIMSDBO MSil1-L/M DIAGNOSTIC
CONTENTS

0D
8
07-0CT-80 18:01 SEQUENCE 87

OPERATIONAL SWITCH SETTINGS

:SWITCH REGISTER DEFINITIONS

SWITCH
[N
Y

B
%

%
%

O =MW
NN N

%
%

TR
TI
T

%
%

EYE YR

%
IR

AR I

:
I

¢P

;

]

OO NN

57
58
59
60
61
62
63
64
65
66
67
68

TRV

TABLE

MACRO M1113

DEFINE
DEFINE
DEFINE
DEFINE

USE

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEQUTS
INHIBIT RELOCATION
QUICK VERIFY

BELL ON ERROR
LOOP ON ERROR
HALT PROGRAM (UNRELOCATED & 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

TRAPS
BASIC PDP11 STUFF
CACHE REGISTERS
CPU REGISTERS

DEFINE
DEFINE

MEMORY MANAGEMENT REGISTERS
UNIBUS MAP REGISTERS
SOFTWARE SWITCH & DISPLAY REGISTERS
CONTROL STATUS REGISTERS

MACRO
MACRO
MACRO

FATAL
TYPE
NEWTST

MACRO
MACRO
MACRO
MACRO
MACRO
MACRO
MACRO
MACRO
MACRO
MACRO

SUBTST
$SUBTST
TYPOCT
TYPOCS
TYPDEC
BMOV
MAP
SUPERVISOR
USER
TESTAREA

DEFINE

PARAMETERS

SSNEWTEST

MACRO

SET4 & RESG

MACRO

MACRO
DLEFT
TRAP CATCHER

ACT11
APT11

HOOK
HOOKS

VARIABLES
INITIALIZED TO ZERO
VARIABLES
INITIALIZED TO NON ZERO
CONF JGURATION TABLE
ttesceseneanneanenener

MAJN

tcecencccentececececettete

INI"IALIZE VARIABLES TO ZERO
CLEAR NON-PROGRAM SPACE
TYPE OF

SYSTEM SIZER

INITIALIZE VARIABLES TO NON ZERO

SEQ 0094

CIMSDBO MSil1-L/M DIAGNOSTIF

TABLE OF

64~
6666~
68-

MACRO M1113

CONTENTS

16471

1495
15264

1535
68- 1547
701=
71727272~
74~

07-0(T-80 18:01

INITIALIZE VECTORS
INITIALIZE PATTERNS
SUBR
PLUG IN NULL PATTERNS
CLEAR THE CONFIGURATION TABLE
SIZE FOR A HARDWARE SWITCH REGISTER
SETUP ACT, APT, & XXDP
PROTECT PROGRAM & LOADERS
CHECK SYSTEM FOR CACHE
SETUP USER & SUPERVISOR STACK
GET SOFTWARE SWITCH REGISTER [F NECESSARY
GET MEMORY MANAGEMENT READY
"

BIT

TEST OF

ALL CSR'S

CLEAR ALL MEMORY SPACE FROM BANK 2 ON

MATCH ALL CSR'S WITH MEMORY
T2
TEST BANK O ACCESSES
ENABLE ECC FOR CORRECT TRAPS

TEST BANKS 1-200 (OCTAL)

FIND SHADOW
T4
ECC

FOR ZEROS & ONES

INHIBIT MODE POINTERS
INHIBIT MODE POINTER TEST

LEGAL CONFIGURATION CHE(K

CONFIGURATION DETAILS

CHECK APT SIZING
15
DIAGNOSTIC MODE DISPATCH ROUTINE
16

UNIQUE

BANK

TEST

FLUSH OUT DBE'S
END OF PASS ROUTINE
WRITE BACKGROUND PATTERNS

do\l\fll.'d—‘*o\l\-flvd

D
b
b
d
e
e
b
b
o
od e
e
b

2 b
=
NN WINHMNONINININ)
&S~ w
]
|I ]

—

MTEST MODES

BANKS
BANKS
BANKS
BANKS

FORWARD ,PATTERNS FORWARD
FORWARD,PATTERNS REVERSE
WORST FIRST ,PATTERNS FORWARD
WORST FIRST ,PATTERNS REVERSE

PATTERNS FORWARD ,BANKS FORWARD
PATTERNS FORWARD ,BANKS WORST FIRST
PATTERNS REVERSE ,BANKS FORWARD
PATTERNS REVERSE,BANKS WORST FIRST
SETUP MEMORY TEST
SUBR
TEST ECC CSR LOGIC DISPATCH
SUBR
CHECK FOR SBE FREE LOCATIONS
CSR PATTERN CASE STATEMENI
ECC TEST DISPATCH
SUBR

SUBR

¢*RECUKRSVEwe
**RECURSIVE
«
#+RECURSIVE®e
«+*RECURS[VE+e
**RECURSIVE
¢+
««RECURSIVE®e
**RECURS[VE
e
+«RECURSIVE®e

PARITY TEST DISPATCH

PATTERNS
MEMORY TEST

MTO0000
MT0001
MT0002

MT0003

MT0004
MT0005
MT0006
MT0007
MT0010
MT0011

M10012
MT0013
MT0014

SETUP ROUTINES
SETUP DATA PATTERN TEST
SETUP ADDRESS TEST

SETUP
SETUP
SETUP
SETUP
SETUP
SETUP
SETUP
SETUP
SETUP
SETUP
SETUP

SEQUENCE 88

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
CREATE SINGLE BIT ERROR TEST
WRITE BYTE CLEARS SBE TEST
CREATE DOUBLE BIT ERROR TEST
WRITE INHIBIT DURING DATIP WITH DBE

SEQ 0095

CIMSDBO MSii-L/M DIAGNOSTIC
4139
6147
4155
4162
4307
4354
4362
4372

)

wnd

171- 4916
4934
4942

— —

@ VYWY

SETUP MARCHING 0'S &
1'S IN CHECKBITS TEST
1'S TEST
SETUP MARCHING 0'S &
SETUP REFRESH & SHIFTING DIAGONAL TEST

SHIFTING DIAGONAL TEST
SETUP FAST GALLOPING PATTERN TEST
SETUP INTERRUPT ENABLE TEST
SETUP RANDOM DATA TEST
UNIQUE BANK TEST

4414

151- 44624
153~ 4471
155- 45642
157- 4587
159- 4616
161- 4680
161- 4730
161- 4760
163- 4762
163- 4767
165- 4775
169~ 4846
169- 4856
169- 4867
169- 4879
171- 4893
N NNN~NNI~N
O ODO000
-~ NN = O NN NN
[
'

BYTE WITH DBE
SETUP WRITE [N HIB I" 0
SETUP WRITE IN?!? 1T OF
WORD WITH DBE
L0 S
SETUP HOLDING
ed

142142~
142~
144~
147148148149149-

CONTENTS

4952
4965
4974

4988

5031
5071

5107
5248

§330
5420
5528
56c7
5729
5762
5836

SETUP FLUSH OUT DBE'S TEST

SETUP SOB-A-LONG TEST
SETUP WRITE RECOVERY TEST
SETUP BRANCH GOBBLE TEST
SOFT ERROR - BACKGROUND PATTERN TEST
SETUP WORST CASE NOISE PARITY TEST
SETUP NULL TEST
CHECK FOR KAMIKAZE MODE
SUBR
EXECUTE PATTERN IN SUPERVISOR

MEMORY

MTP0O00
MTPO01
MTPO02
MTPAQJ
MTPBO3
MTPCO3
MTPDO3
MTPAQ4
MTPBO&
MTPOOS
MTP006
MTPO07
MTPO10
MTPO1
MTP0O12
MTPO13
MTPO14
MTPO15
MTPO16
MTPO17
MTP020
MTPA21
MTP022
SUBR
MTPA24
MTPB24
MTPC24
MTP025
MTPA26
MTPB26

TEST PATTERN ROUTINES
BASIC DATA TEST
ADDRESS TEST

COMPLEMENT ADDRESS TEST

TEST DATA SUBPROGRAM
TEST DATA SUBSUBPROGRAM
ROTATING 2EROS TEST

SUBR

(WRITE)
(READ)

ROTATING BIT
TEST

INITIAL DATA TEST
ADDRESS BIT TEST
BYTE ADDRESSING TEST
SINGLE BIT ERROR TEST
WRITE BYTE CLEARS SBE TEST
CREATE DOUBLE BIT ERROR TEST
WRITE INHIBIT DURING DATIP WITH DBE TEST
WRITE INHIBIT OF BYTE WITH DBE
WRITE INHIBIT OF WORD WITH DBE
HOLDING 1°'S & 0'S TEST
MARCHING 1°'S & 0°'S IN CHECK BITS TEST
MARCHING 1°S & 0°'S PATTERN TEST
REFRESH & SHIFTING DIAGONAL TEST
REFRESH DELAY

FAST GALLOPING PATTERN TEST
FAST GALLOP PART B
FAST GALLOP PART (

INTERRUPT ENABLE TEST

RANDOM DATA (WRITE)
RANDOM DATA (READ)

RANDONM NUMBER SUBPROGRAM
RANDOM NUMBER SUBSUBPROGRAM

M70030
K1PO31
MTPO32
MTPO33

(WRITE DOWN, READ UP)

3 XOR 9 WORST CASE NOISE TEST
3 XOR 9 WORST CASE NOISE TEST

ROTATION ONES

FLUSH OUT DBE'S

SOB-A-LONG TEST
WRITE RECOVERY TEST
BRANCH GOBBLE TEST

07-0CT-80 18:01 SEQUENCE 89

—

TABLE OF

MACRO M1113

SEQ 0096

(ZMSDBO MSi1-L/M DIAGNOSTIC

TABLE OF

CONTENTS

6326
6338
6370
6372
6378
6405
6425
6477
6637
6669
6689
6693
6696
6706
6714
6722
6726
6730
6737
6745
6764
6772
6809
6813
6817
6821

¢522564~
254~
256~
254~
256256~
257~
259~
263263265~

6825
6829
6833
6838
6845
6870
6880
6905
6916
6920
6924
6929
6936
6951
6960

7015
7084
7169
7192
7298
7~
26
267~ 7343

269- 7356
2N- 7404
- 7424
271
7437
7
2
273~ 7449
275- 7540
275~ 7551
275~ 7559
275- 7563
277-

7570

MACRO M1113

07-0(T-B80 18:01

6 &
SEQUENCE 90

MIPO34
SOFT ERROR - BACKROUND PATTERN TEST
MTPO35
WORST CASE NOISE PARITY TEST
MISC SUBROUTINES

SUBR

COPY RO TO R4&,R1 TO R3, & R2 TO RS

SUBR
SUBR
SUBR

WRITE BACKGROUND
PRINT CONFIGURATION MAP
TYPE CONFIGURATION

TRAP

MEMORY MANAGEMENT

FLIP WARNING CONSTANTS

TRAP
TRAP
TKAP
TRAP

[N WORST

CASE

NOISE

TESTS

PARITY ERROR HANDLER
NON-EXISTANT MEMOPY (HOLES) HANDLER
TIMEQUT (TRAP TO 4) HANDLER
RESERVED

(TRAP TO 250)

INSTRUCTION HANDLER

HANDLER

FIND BAD SP, PC, & PSW FROM STA(K
TRAP
KERNEL TRAP HANDLER
TRAP
ENERGIZE TRAP HANDLER
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP

DEENERGIZE TRAP HANDLER
CACHON TRAP HANDLER
CACHOFF TRAP HANDLER
LOAD CSR TRAP HANDLER
READ CSR TRAP HANDLER
TEST (R1) & READ (SR CAREFULLY

TRAP
TRAP
SUBR

ECC DISABLE, CHECK MODE, & WRITE CHECKBIY l ALL CSR'S TRAP HAND_ER
ECC DISABLE, CHMECK MODE, & WRITE CHECKBITS
IN 1 SELECTED (SR
WRITE IN ALL CSR'S
.

TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP
TRAP

TRAP
TRAP

SUBR
SUBR
TRAP

RELOCATE

ECC DISABLE ALL CSR'S TRAP HANDLER
ECC DISABLE OF 1 SELECTED CSR TRAP HANDLER
INITIALIZE ALL CSR'S TRAP HANDLER
INITIALIZE 1 SELECTED CSR TRAP HANDLER
ENABLE SBE PARITY TRAPS ON ALL CSR'S
ENABLE SBE PARITY TRAPS ON 1 SELECTED CSR
WRITE CHECKBITS THRU ALL CSR'S TRAP HANDLER
WRITE CHECKBITS THRU 1 SELECTED CSR TRAP HANDLER
WAS THERE A SBE ON ANY (SR TRAP HANDLER
WAS THERE A SBE IN 1 SELECTED CSR TRAP HANDLER
WAS THERE A DBE ON ANY (SR TRAP HANDLER
WAS THERE A DBE ON 1 SELECTED CSR TRAP HANDLER
CLEAR ALL ECC CSR'S TRAP HANDLER
CLEAR 1 SELECTED CSR TRAP HANDLER

INVALIDATE BACKGROUND PATTERN
GENERATE AND TEST ERROR ADDRESS

GENERATE CHECK BITS
MAPPER
MAP KERNEL (ALMOST 1
PROGRAM

TO 1)

TRAP HANDLER

UNRELOCATE PROGRAM
SETUP LOWER 16K OF UNIBUS MAP
MOVE BANKS

SUBR

MAP USER TO NEW BANK

SUBR
SUBR

EXAMINE BANK
BANK 0K?

SUBR
SUBR

SETUP KERNEL PAR'S FOR NEW BANK
SETUP KERNEL PAR'S FOR NEW LOADER BANY

SUBR
INCREMENT PATTERN TESTING
SUBR
SET HIGHEST PATTERN TESTING TYPE
INCREMENT BANK & TEST
SUBR
BOOTSTRAP ROUTINE

SEQ 0097

CImSDBO MSi1-L/M DIAGNOSTIC
TABLE OF CONTENTS
279279~
279~
281~
282~
282284284~
286~
<88290~
292~
293295~
297299301~
301301301~
301302~
302~
3043063083233233253273273323s54336336-

7599
7608
7635
7645
7672
7674
7724
7746
7761
7785
7827
7879
7991
7997
8038
8068
8109
8119
8124
8130
8137
8156
8176
8190
8196
8202
8770
8784
8825
8841
8842
9030
9057
9097
9099

351- 9892
356-10141

356-10153
358-10166
358-10181
360-10190
364-10279
365-10343
367-10360
370-10451
378-10666
383-10808

384-10886
385-10943
387-11038
387-11063
389-11181
389-11230
390-11289
391-11325
393-11355
394-11397

MACRO M*113

(07-0C7-80 18:01 SEQUENCE N

SEQ 0098

HALT PROGRAM
SHUTDOWN DIAGNOSTIC
APT SHUTDOWN SEQUENCE
BLOCK MOVE SUBROUTINE
FIELD SERVICE MODE
SUBR
FIELD SERVICE COMMAND MODE
ExIT
COMMAND O
FS
COMMAND 1
READ CSR
FS
COMMAND 2
LOAD (SR
EYAMINE MEMORY
COMMAND 3
FS
FS
COMMAND 4
MODIFY MEMORY
FS
COMMAND 5
SELECT BANK § PATTERN
FS
FS

COMMAND 6
COMMAND 7

TYPE CONFIGURATION MAP
SOB=-A-LONG TEST

)

COMMAND 8

ERROR SUMMARY

FS
FS

COMMAND 12
COMMAND 13

EXIT KAMIKAZE MODE
TURN CACHE OFF

FS
FS
FS
£S
£S
FS

COMMAND 9
COMMAND 10
COMMAND 11
COMMAND 14
COMMAND 15
COMMAND 16

REFRESH TEST
SET FILL COUNT
ENTER KAMIKAZE MODE
TURN CACHE ON
TEST ONLY SELECTED BANKS
RESUME TESTING ALL BANKS

FS
COMMAND 17
ENABLE TRA(E
FS
COMMAND 18
DISABLE TRACE
DETERMINE CORRECT (SR
SUBR
ERROR DATA (SUPERVISOR) SETUP STUFF
DATA WAS 3 WORDS
GET DATA FROM ABORTED AREA If POSSIBLE
POWER FAIL AUTO RESTART
ROUTINE POWER DOWN AND UP
POWER FAIL WHILE RELOCATED
POWER UP FROM BANK O TO RELOCATION
10 SUBROUTINES
ROUTINE TYPE
ERROR DATA SETUP
DATA WAS A WORD

DATA WAS A BYTE
DATA WAS A 7 BIT BYTE
DETERMINE XOR OF GOOD & BAD
LOG ERROR ON BAD BANK
ROUTINE SCOPE HANOLER
DISPLAY
SUBR
ROUTINE ERROR HANDLER
ROUTINE ERROR MESSAGE TYPEOUT
DETAILED ERROR REPORT
SUBR
ROUTINE BINARY TO OCTAL (ASCII) AND TYPE

ROUTINE
ROUTINE
CONTROL
CONTROL
ROUTINE
ROUTINE
ROUTINE
ROUTINE
ROUTINE
TABLES

CONVERT BINARY TO DECIMAL AND TYPE
TTY [NPUT
1
S & CONTROL Q
RcAD AN OCTAL NUMBER FROM THE TTv
READ A DECIMAL NUMBER FROM THE TTY
SAVE AND RESTORE RO-RS
RANDOM NUMBER GENERATOR
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT

- .

CIMSCBO MSi1-L/M DIAGNOSTIC

TABLE OF

CONTENTS

394-11399
396-11481
398-11508

402-11611
612-11912
414-11951
616-11969
418-12039
420-12073

MACRO M1113

07-0(T-80 18:01

8
I
SEGUENCE 92

Sea 0099

APT MAILBOX-ETABLE
ROUTINE TRAP DECODER
TRAP TABLE

TABLE
ERROR POINTER
ERROR DATA TAGS (DT)
ERROR DATA FORMATS (DF)
ERROR MESSAGES (EM)
ERROR DATA HEADERS (DH)
MESSAGES

8
J
PAGE 20 SEQUENCE 93

07-0(7-80 18:01
LTITLE
REM

SEQ 0100

CZMSDBO MS11-L/M DIAGNGSTIC
7
IDENTIFICATION

PRODUCT

CODE:

AC-F294B-M(
(ZMSDBO MS11-L/M MEMORY DIAGNOSTIC

PRODUCT DATE:

DECEMBER 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

[ ], P

= OOV

PRODUCT NAME:

MACRO M1113

e S

—
NPWNEWN =200~V BN NP

CIMSDBO MSi1-L/M DIAGNOSTIC

THE

INFORMATION

WITHOUT

NOTICE

BY DIGITAL
CORPORATION
MAY APPEAR

THIS

DOCUMENT

SUBJECT

(HANGE

AND SHOULD NOT BE CONSTRUED AS A (CMMITMENT

EQUIPMENT
DIGITAL
CORPORATION.
EQUIPMENT
THAT
ERRORS
ANY
FOR
RESPONSIBILITY
NO
ASSUMES

IN THIS MANUAL.

THE SOF TWARE DESCRIBED [N THIS DOCUMENT IS FURNISHED TO
THE
PURCHASER
UNDER
A
LICENSE
FOR
USE
ON A SINGLE COMPUTER

SYSTEM AND (AN BE
COPIED
(WITH INCLUSION OF DIGITAL'S
(OPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY

OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
THE

NOT

USE OR RELIABILITY OF

SUPPLIED BY DIGITAL.

(C)

ITS SOFTWARE ON EQUIPMENT

1979 DIGITAL EQUIPMENT CORPORATION

THAT

FCR

(07-0CT-80 18:01

K
8
PAGE 22 SEQUENCE 94

SEQ 0101

REVISION HISTORY
e

-------

==~

CHANGES

REVISION

01-DEC-79

MICHAEL D BIBEAULT

01-0C7-80

MICHAE.

D BIBEAULT

NONE=NEW PROGRAM
=

MACRO M1113

)
)

(IZMSDBO MSil-L/M DIAGNOSTIC

)

COMPATIBLE WITH 11/24
SIING ROUTINE WILL ACCEPT ALL
LEGAL MEMORY CONFIGURATIONS
ALL

FIELD

OPERATIVE

SERVICE

CGCMMANDS

CIMSDBO MSi1-L/M DIAGNOSTIC
OPERATIONAL SWITCH SETTINGS

MACRO M1113

07-0CT-80 18:01

L_8
PAGE 23 SEQUENCE 95

57
58
59

.SBTTL
.SBTTL

LSBTTL

OPERATIONAL SWITCH SETTINGS
;SWITCH REGISTER DEFINITIONS
;e

SBITL

;¢

JSBTITL ;v

62
63
64
65
66
67
68
69
70
7
72
73
74
75
76
77

LSBTTL
SBTTL
LSBITL
LSBTITL
LSBTTL
LSBTTL
LSBTTL
SBTTL
SBITL
LSBTITL
LSBTTL
LSBITL
LSBTTL
LSBTTL
LSBITL
LSBTTL

;»
;¢
;¢
;¢
;v
;»
;+
;¢
;v
;+
;»
;v
;»
o«
;¢

SWITCH

e===ee

15
14
13
12
n
10
9
8
7
6
s
4
3
2
1
0

SEQ 0102

USE

eccccccccacccccce---

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT RELOCATION
QUICK VERIFY
BELL ON ERROR
LOOP ON ERROR
HALT PROGRAM (UNRELOCATED & 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

CZMSDBO MSi1-L/M DIAGNOSTIC

. ¥

MACRO M1113

07-0CT-80 18:01

DETECT SINGLE BIT ERRORS

80 000000
81
82

PAGE 25 SEQUENCE 96

83
84
85
86
87
88
89
90
91
g%

.ENABL
.ENABL
.DSABL

ABS
AMA
GBL

;NOTE:
(ZMSDB.SML IS TWE SUPER.MAC SOURCE AND IS RELEASED WITH
;THIS PROGRAM,
ALL THESE .MCALL STATEMENTS REFERENCE THAT FILE.
LMCALL SMACIT,..PUSH,..POP,..TAG,..BRAN,
.EMIT, EMITN, .EMITL, .EMITR
.MCALL
.IFOPR,.1S,.GENBR,.OPADD,.OPSUB,CLEAR,SET,CLEARB,SETB
.MCALL RNE,REQ,RLT,RGE
,RGT,RLE,RPL ,RM] ,RHI ,RLOS ,RHIS,RLO,RCS,RCC
.MCALL [IF,.OR,.IFAR],.LEAVE,.GOTO,0R,AND,
THEN, ELSE ,WHILE, CASE
.MCALL FOR,TO,DOWNTO,REPEAT ,UNTIL,THRU,END ,BEGIN
.MCALL S$SEND,LEAVE,JUMPTO,GOTC ,PUSH,POP,LET
.MCALL
.SIMPLE,.ARITH,ORB,ANDB,IFB,UNTILB,WHILEB,ON.ERROR,ON.NOERROR
.MCALL S$CALL,SRETURN

NLIST

.NLIST

TTM
MC,SYM

97
98
99

100 000000

LIST

163000
000001

MD,CND,ME

.LST$8= D
$SWR=
163000
$TN=
1
SMACIT

SEQ 0103

;1 WANT-FAT PAPER.

;LIST MACRO CALLS, SYMBOL TABLE

;DON'T LIST MACRO DEFS & CONDITIONALS & EXPANSIONS
;DEFINED TO LIST SUPERMAC EXPANSIONS
;USE THESE SYSMAC SWITCHES
;FIRST TEST NUMBER TO ONE(1)

CIMSDBO MSil1-L/M DIAGNOSTIC
DEFINE TRAPS

MACRO M1113

103

(07-0CT-80 18:01
.SBTTL

DEFINE

PAGE 27 SEQUENCE 97

SEQ 0104

TRAPS

104

;ALL ENTRIES HERE MUST HAVE A CORRESPONDING ENTRY IN THE

}8?

;*TRAP DEFINITIONS

105

:TRAP TABLE "'STRPAD'' (NEAR END OF PROGRAM).

NOWNEWN=O000NO VNS WA 20000

;TO SYMBOLIC LOCATION ''$TRAP"

:AT STRAP 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

WOV

NN R N AN W N

TRAPS TASK.

sEXAMPLE :
;

NOP

NOP
NOP

KERNEL

sENTER KERNEL MODE

NOP

ADD A DCLLAR SIGN TO THE SYMBOLIC NAME AND CHECK THE CRF FOR SOMETHING CLOSE

IN THIS CASE THE CRF HAS SKERNE LISTED AS 032546

AT LOCATION 32546 YOU FIND THE ROUTINE S$KERNEL

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

ALL GOOD TRAP ROUTINES RETURN VIA AN 'RTI'* INSTRUCTION

104401

104402
104403

TYPEIT= 104401

;2 1TY TYPEOUT ROUTINE

:TYPBN=

::TYPE

TYPOC=
TYPOS=
:TYPON=
TYPDS=

104402
104403
104404
104405

104407
104410

GISWR=
CKSWR=

104407
104410

::GET SOFT-SWR SETTING
L:TEST FOR CHANGE IN SOFT-SWR

104411
104412
104413
104414

RDCHR=
ROLIN=
RDOCT=
RODEC=

104411
104412
104413
104414

:sTTY TYPEIN CHARACTER ROUTINE
SSTTY TYPEIN STRING ROUTINE
SREAD AN OCTAL NUMBER FROM TTY
SSREAD A DECIMAL NUMBER FROM TTY

104415
104416

SAVREG= 104415
RESREG= 104416

: :SAVE RO-RS ROUTINE
. SRESTORE RO-RS ROUTINE

104417

KERNEL= 104417

;ENTER KERNEL MODE

104420
104421
104422

ENERGIZE=104420
DEENERGIZE=104421
KMAP=
104422

:TURN ON MEMORY MANAGEMENT & TRAPS
“TURN OFF MEMORY MANAGEMENT § TRAPS
“MAP KERNEL 1 TO 1

104423

CACHON= 10646423

:TURN ON CACHE

104405

104406

S3TYPE
S:TYPE
S:TYPE
S:TYPE

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)
BINARY

(ASCII)

NUMBER

VWV

VIV

OWNO NS NN 2O OO N

S DSBS B0

NEWN 2O OO NN

SPECIFIC ROUTINE TO HANDLE THAT SPECIFIC

:THE ULTIMATE DESTINATION OF A TRAP INSTRUCTION CAN BE GUESSED AT AS FOLLOWS

AN NI NI NI NI NI NI RI NI NI N =

— i el el i D i D el d e o wd i ) D el h D d wnd b b b — — D d erd ond D rd e d D i o D D e D o D e ed d D D nd D d D

b b cd cd od b b b b (=l

"HERE IS HOW TRAPS WORK IN THIS PROGRAM
SALL TRAPS EXECUTE A "'TRAP'' INSTRUCTION WHICH TAKES THE PROGRAM

104424

CACHOFF=104424

:TURN OFF CACHE

READCSR

;PROGRAM
s PROGRAM
:PROGRAM

;PROGRAM

104433

;PROGRAM
; PROGRAM
;sPROGRAM

104434
104435
104436
104437
104440
1044461
104442
104443
104444
104445
104446
104447
104450
104451
104452
104453
104454
104455
104456
104457
104460

;PROGRAM
;PROGRAM

s PROGRAM
;sPROGRAM
: PROGRAM
;PROGRAM
. PROGRAM

;PROGRAM
;PROGRAM

;PROGRAM

: PROGRAM DETECTED
;PROGRAM DETECTED
:PROGRAM DETECTED

; PROGRAM DETECTED
;PROGPAM DETECTED

; PROGRAM

; PROGRAM
; PROGRAM

104503

104504
104505
104506
104507
104510
104511
104512

:PROGRAM
s PROGRAM

104466

;PROGRAM

;PROGRAM
;PROGRAM
sDISABLE
;sDISABLE

E
E
E
E
E
E
TE
3

QOO OOOOO

;PRC AM DETECTED
sPRUGRAM DETECTED
;sPROGRAM DETECTED

104461

104470
104471
104472
104473
1064474
104475
104476
104477
104500
104501
104502

SEQ 0105

:LOAD CORRE
;READ CORRE

LOADCSR

104427
104430
104431
104432

104462
104463
104464
104465
104466
104467

SEQUENCE 98

>»

199

104425
104426

—t—t—4

el
il
D
D
i
D
D
d
el
d
d e
e

b —
b
D
d
d
—ed
b
b d
b e

N NNN~NN~N~N
O 0 O 0O O O O O OO 0000000000000
NN
O NO NS NN =0V~ O VS WNN 2O 000NN

160
161
162
163
164
165
166
167

PAGE 27-1

Attt

DEF INE

TRAPS

(07-0CT-80 18:01

CIMSDBO MSi1-L/M DIAGNOSTIC

MACRO M1113

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERRIR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

LL CSR'S

SELECTED CSR

SINITIALIZE ALL ECC CSR'S
SINITIALIZE 1 SELECTED ECC CSR
;WRITE GENERATED CHECKBITS IN ALL CSR'S
;WRITE GENERATED CHECKBITS IN 1 SELECTED (SR
;MAS THERE A SBE ON ANY (SR?
;WAS THERE A SBE ON 1 SELECTED (SR?
;WAS THERE A DBE ON ANY CSR?
;WAS THERE A DBE ON 1 SELECTED CSR?
cCLEAR ALL CSR'S
;CLEAR 1 SELECTED CSR
;DISABLE ECC & WRITE CHECKBITS FROM ALL CSR'S
;DISABLE ECC & WRITE CHECKBITS FROM 1 SELECTED (SR
;ENABLE TRAPS ON SBE'S FROM ALL CSR'S
;ENABLE TRAPS ON SBE'S FROM 1 SELECTED (SR
sTEST LOC

(RY) € TST FOR SBE

(WITHOUT FETCHES)

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

(7-0CT-80 18:01

.SBTTL
002000
002000
000740
000700

104000

000004

177776

DEFINE

9
c
PAGE 28 SEQUENCE 99
BASIC PDP11

2000

SEQ 0106

STUFF

;*INITIAL ADDRESS OF THE STACK POINTER

STACK=

;;FIRST ADDRESS OF

THE

STA(K

ERROR=EMT
SCOPE=]0T

: :KERNEL STACK
;s SUPERVISOR STACK
; sUSER STACK
;.BASIC DEFINITION OF ERROR (ALL
;:BASIC DEFINITION OF SCOPE CALL

;STKLMT=177774

;s STACK LIMIT REGISTER

KERSTK= STA(CK

SUPSTK= 740
USESTK= 700
PSuW=

177776

;PIRQ=

177772

177570
177570
177546

DSWR=
DDISP=
LKS=

000011
000012

HT=

177570
177570
177546

; ;PROCESSOR

STATUS WORD

;. PROGRAM INTERRUPT REQUEST REGISTER
; sHARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

;sLINE CLOCK (KW11-L) STATUS REGISTER

:'MISCEL%?NEOUS CEFINITIONS
;;CODE FOR HORIZONTAL TAB
12

;;CODE LINE FEED

200

.;CODE FOR CARRIAGE RETURN-LINE FEED

000015
000200
000007

LF=
(R=
CRLF=
MFPT=

000006
000006

; *GENERAL PURPOSE REGISTER DEFINITIONS
*SP=R6
;s STACK POJINTER
.KSP=SP
;;KERNEL STACK POINTER
=SF
SSP
;s SUPERV]ISOR STACK POINTER
SP
USP=
;sUSER STACK POINTER

SW15=
SW14=
SW13=
SW12=
SWi
SW10=
SW9=
Sw8=
SW7=

QOO = e ed o e s >
N O=NINESWN—
Moo

)

—4 O
—
g =
el

040000
020000
010000
004000
002000
001000
000400

., CODE FOR PROCESSOR TYPE

: ;PROGRAM COUNTER

100000
40000

20000

10000
4000

SW5=

Py Gt Pt Gy Pt Bt b

100000

CARRIAGE RETURN

SWé=

040000
020000
010000
004000
002000
001000
000400
000200
000100
200040
000020
006010
000C04
000002
000001

. CODE

;%' 'SWITCH REGISTER'' SWITCH DEFINITIONS

—

100000

;PC=R7

o
1V

232

MACRO M1113

DODDOODOD@ADLO.-

-0 OO ~NO NN
=200 [0 -]

N =
WN AIMNOMNOACAININININS

[aS 18][ASI1aSI, ST N1 ST ST, 81 N1, 01, 81,01 §]

CIMSDBO MSit1-L/M DIAGNOSTIC
BASIC PDP11 STUFF
DEFINE

BINlTIONS (B1700 T0 BIT1S)

INSTRUCTION

CIMSDBO MSi1-L/M DIAGNOSTIC
BASIC PDP11 STUFF
DEFINE

275
276
277
278
279
280
281
282
283
284

MACRO M1113

07-0CT-80 18:01

SEQUENCE

100

SEG 0107

BIT?=
BIT6=
BITS=
BIT4=
BIT3=
BIT2=
BIT1=
BITG=

000004
0c00n10

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES
ERRVEC= 4
;:TIME QUT AND OTHER ERRORS
RESVEC= 10
::R%fiEgYED AND ILLEGAL INSTRUCTIONS

000020
000024
00030
000034
000060

200
100
40
20
10
&
P4
1

;TBITVEC=14
:BPTVEC(C=
1I0TVEC= 20

;:TTY
:;TTY

CACHVEC=114

"PIRQVEC=240

250
.SBTTL
DEFINE
;MEMERR = 177744

CONTRL = 177746

177754
177766

CPUERR = 177766

.SBTTL

KEYBOARD VECTOR
PRINTER VECTOR

;:LINE CLOCK (KW11-L) VECTER
;s CACHE ERROR INTERRUPT VECTOR

JLKVEC= 100

MAINT
= 177750
JHITMIS = 177752
DATARG = 177754

; PROGRAM INTERRUPT REQUEST VECTOR
. ;MEMORY MANAGEMENT VECTOR
CACHE REGISTERS

:.CACHE ERROR REGISTER

; ;MEMORY CONTROL REGISTER

; ;MEMORY MAINTENENCE REGISTER

;sHIT MISS REGISTER *"1"' IMPLIES HIT

;;DATA REGISTER
DEFINE

C(PU REGISTERS

MMRO=
MMR1=
MMR2=
MMR3=

177600C

UIPDRO= 177600
;UIPDR1=

;*USER '‘I'" PAGE DESCRIPTOR REGISTERS

:UIPDRS:=
:UIPDR6=
:UIPDR7=

;UDPDRO:=
:UDPDR1=

:UDPDR2:

17760°

177604
177606
177610

177612

177614
177616
;*USER '’
P

177620
177622

177624

[N CACHE

;;CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED

MEMORY MANAGEMENT REGISTERS
.SBTTL
DEFINE
s *MEMORY MANAGEMENT STATUS REGISTER ADDRESSES
177572
177574
177576
172516

177572
177574
177576
172516

:UIPDR2=
:UIPDR3=
:UIPDR&=

««SCOPEwe

::"'TRAP'' TRAP

JTPVEC= 64

MMVEC=

: :BREAKPOINT TRAP (BPT)

2 INPUT/OUTPUT TRAP (J0T)

:EMULATOR TRAP (EMT) «+ERRORt+

TRAPVE(C=34
TKVEC=
60

000250

TRAP

;;POWER FAIL

EMTVEC= 30

PARVEC=CACHVEC

;s TRACE

PWRVE(C= 24

000114
000114

177746
177750

WA
= O OO
N SN
=

00200
000100
000040
000020
000010
000004
000002
00000"

;TRTVEC=

AN AN N N AN N N N N N NN
RN — d d md ) ) md mnd —b

PAGE 28-1

CIMSDBO MSil1-L/M DIAGNOSTIC

DEFINE

MACRO M1113

MEMORY MANAGEMENT REGISTERS

07-0(CT-80 18.01

E 9
PAGE 28-2 SEQUENCE 101

Sea 0108

;UDPDR3=
;sUDPDR4=
:UDPDRS=
;UDPDR6=
:UDPDR?7=
177640
177640
177642
177644
177646
177650
177€52
177654

177660

: *USER "1'' PAGE ADDRESS REGISTERS

FASTCITY=U]IPARO

UIPARQ= 177640
UIPAR1= 177642
UIPARZ2= 177644
UIPAR3= 177646
UIPARL= 177650
UIPARS= 177652
UIPARG= 177654
;UIPAR7=

;UDPAR2=

;UDPAR4=
:UDPARS=

177676

*UDPARG=
UDPAR7= 177676

172200

sIPDRO= 172200
:SIPDR1=

177664
177666
177670
177672
177674

;PATTERN
;PATTERN
;PATTERN
;PATTERN
;PATTERN

PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM

;PATTERN PROGRAM SPACE

SPACE
SPACE
SPACE

SPACE
SPACE

: SDPDRO=
:SDPDR1=
; SDPDR2=

: SDPDR3-=
; SDPDR4=

172202

172204

172206
172210
172212
172214
172216

;SIFDR3=
: SIPDRé=
;SIPDRS=
: SIPDR6=
. SIPDR7=

; *SUPERVISOR ''D'' PAGE DESCRIPTOR REGISTERS
172220
172222
172224

; SDPDRS=
; 3DPDR6=
:SDPDR7=

172252
172254

SPACE
SPACE
SPACE
SPACE
SPA(E
SPACE
SPA(CE
PROGRAM SPACE

: *SUPERVISOR ''I'' PAGE DESCRIPTOR REGISTERS

:SIPDR2=

172246

PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
;PATTERN

; *USER "D'' PAGE ADDRESS REGISTERS
;PATTERN PROGRAM SPACE
UDPARO= 177660
177662
;PATTERN PROGRAM SPACE
;UDPAR1=
;UDPAR3=

172240

177656

;PATTERN
;PATTERN
;PATTERN
;PATTERN
;PATTERN
:PATTERN
;PATTERN

172226
172230

172232
172234
172236

; *SUPERVISGR ''I'* PAGE ADDRESS REGISTERS
SIPARD= 172240

:SIPAR1;SIPA

SIPARB- 172246
. SIPARG=
SIPARS= 172252
SIPARG= 172254
;SIPAR?=

172242
172244

172250
172256

STEST AREA
;TEST AREA
;TEST AREA
<TEST AREA

420
«21
422
423
L24
425
426
427
428
429
430

3
L32
433
4346

435
436
437
438

OO~ 10

nonOrONY

[pS1,S1,01,8}

ek
o

— ek
OB

d = OO o
COoNs ~n

NN
AN AN NN N

N AN

NN INLAIND
PO NN
oo
ESNVO T

D
b
—

AGE DESCRIPTOR REGISTERS

N N

:KDPDR4

:KDPDRS
:KDPDR6
:KDPDR?7

;KDPDR?2
*KDPDR3

NONO

;*KERNEL "'

b
b
—
b
)

:KDPDRO
:KDPDR1

~N~NNNN~NN

—

;KIPDR?7

;KIPDRS
;KIPDR6

;K1PDR1

;KIPDR3

172340

~NSNNN

;
*KERNEL "'1'' PAGE DESCRIPTOR REGISTERS
KIPDRO= 172300
nnnann

~N~~

AW NN

: SDPARG=

6
6
é
7

SDPARS= 17
SDPARG= 17
SDPAR?= 17

:KIPDR&

617

618
19

;SDPAR1=

;KIPDR2

614
415
416

102

- «SUPERVISOR ''D'' PAGE ADDRESS REGISTERS

SDPARO= 172260
:SDPAR2=
: SDPAR3=

172300

F
9
PAGE 28-3 SEQUENCE

07-0CT-80 18:01

400
«01
402
403
404
405
406
407
408
409
410
3N
4612
413

172260

—

389
390
N
392
393
394
395
396
397
398
399

MEMORY MANAGEMENT REGISTERS

~N~~

DEFINE

MACRO M1113

SNSNSNSNSNNNN

CIMSDBO MSi1-L/M DIAGNOSTIC

; *KERNEL ''I'' PAGE ADDRESS REGISTERS

KIPARQ= 172340
:KIPAR1=
:KIPAR2=
:KIPAR3=
K1PAR4L= 172350
K]PARS= 172352
KIPAR6= 172354

:KIPAR7=

172342
172344
172346

172356

:*KERNEL ‘'‘D'' PAGE ADDRESS REGISTERS

KDPARO= 172360

:KDPAR1=

172362

:KDPAR2=
;KDPAR3=

172364
172366

. KDPARS=

172372

;KDPAR4=

KDPARG= 17

KDPAR7= 17

172370

SEQ 0109

CIMSDBO MSi1-L/M DIAGNOSTIC
DEFINE UNIBUS MAP REGISTERS
(AR
442
443

AN
445
446
447
448
449

450

170200
170202
170204

MACRO M1113

07-0C7-80 18:01

LSBTTL
DEFINE
UNIBUS MAP REGISTERS
;*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXX'
:*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ‘'MAPHXX'

MAPLO = 170200
MAPHO = 170202
MAPL1 = 170204
:MAPH1 = 170206
;MAPL? = 170210
MAPH2 = 170212
JMAPLY

170214

451

:MAPH3 = 170216

453
454
455
456
457
458
459
460
461

:MAPHGL = 170222
:MAPLS = 170224
:MAPHS = 170226
:MAPL6 = 170230
;MAPH6 = 170232
:MAPL7 = 170234
:MAPH? = 170236
;MAPL10 = 170240
JMAPH10 = 170242

452

462

463

;MAPLGL = 170220

JMAPL11
;MAPH11

= 170244
=

170246

464
465

;MAPL12 = 170250
*MAPH12 = 170252

470

JMAPL1S = 170264

472

MAPL16 =

466
L67
468
469

473
474
475
476

4«77

478
479
480
481

482

483
(84
485

486
487

488
489
490
491
49?2
493
494

495
496
497

G 9
PAGE 30 SEQUENCE 103

:MAPL13
:MAPH13
:MAPL14
:MAPH14

=
=
=
=

170254
170256
170260
170262

JMAPHIS = 170266

JMAPH16
:MAPL17
:MAPH17
JMAPL20

=
=
=
=

170270

170272
170274
170276
170300

JMAPH20 = 170302

sMAPL21 = 170304
:MAPH21 = 170306
;MAPL22 = 170310
JMAPHZ2 =

170312

:MAPHZ23 =
:MAPL24 =
JMAPH24 =

170316
170320
170320

MAPL26
JMAPH26
MAPL27
MAPH27
MAPL30
:MAPH30

170330
170332
170334
170336
170340
170342

JMAPLZ2Y = 170314

JMAPL2S = 170324
;MAPH2S = 170326

=
=
=
=
=
=

;HAPLS} =

170344

MAPH31 = 170346
:MAPL32 = 170350
:MAPK32 = 170352
A

SEQ 0110

CIMSDBO MSi1-L/M DIAGNOSTIC
DEFINE UNIBUS MAP REGISTERS
498
499
500
501

07-0CT-80 18:01

;MAPL33
;MAPH33
;MAPL3G4
:MAPH34

502
503
504
505
506
ggg

509

MACRO M1113

;MAPL3S
:MAPHS,
<MAPL36
;MAPH36
;MAPLE?
:MAPH3?

=
=
=
=

PAGE 30-1 SEQUENCE

104

170354
170356
170360
170362

= 170364
170366
= 10370
= 170372
= 170374
= 170376

510
g};

000174
000176

DISPREG=174
SWREG= 176

LSBTTL

DEFINE

SOFTWARE SWITCH R DISPLAY REGISTERS

513
g}g

172100

LSBTTL
CSRADD=172100

DEFINE

CONTROL STATUS REGISTERS

060000
157776
040600

FIRST=60000
LAST=157776
SIZ2€=40000

.SBTTL

DEFINE

PARAMETERS

516

517
518
519

SEQ O 11

:START OF THE 16K TEST CPATTERN AREA
:END OF THE 16K TEST PATTERN AREA
;SIZE OF THE 16K TEST PATTERN AREA (FOR SCB INSTRUCTIONS)

CIMSDBO MSil1-L/M DIAGNOSTIC
DEFINE PARAMETERS

MACRO M1113

(07-0CT-80 18:01

525

526
527
528
529

2%9
532
533

534
535
536
537
538

539

LAIST

.SBTTL

MACRO

srRaenrennernenntrterte

FATAL

.MACRO

CNLIST
.DSABL
LIIF DF
.ENABL
LLIST

INC

FATAL
(Rf

546

LSBTTL

MA(CRO

548

NLIST

.MACRO

.DSABL

551

.ENABL

557
558

559
560
561

JSET FATAL

.DSABL
CR¥
JI1F DF LSTSS . NLIST

JIIF

+ARG

549

554
555
556

(ERRORS THAT PREVENT

;x ¢ tMACROv**MACRO***MACRQe*e

FATALS

(RF
FATAL

552
553

ARG

LSTSS .LIST
C(CRF

.ENABL
.ENDM

550

teennnvenanetnanentnnneene

E'tttt'ttttt'tt"t'ttt"t't'ttt'tt'ttatttttatttttatt'

543
544

547

FATAL

SEQ 0112

;BE NICE TO SEE MY DEFINITIONS

THE PROGRAM FROM CONTINUING).

ERROR

545

FATAL

IS USED TO REPORT FATAL ERRORS

540

5461
542

1. 9
PAGE 32 SEQUENCE 105

TYPE

(R¥F

LSTEE

TYPE

ARG
LIST

LSTSS . NLIST
C(RF
TYPE

(RF

LLIST
.IF B ARG

TYPE]T
AFF
TYPEIT

.ENDC
.DSABL
JJIF DF
.ENABL
.ENDM

ARG
CR¢¥

INDICATOR

(IMSDBO MSi1-L/M DIAGNOSTIC

MACRO

564
565
566
567
568
569

570
SN
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
%96
597
598
599
600
601
60?2
603
604

605
606
607
608
609
610
611

NEWTST

MACRO M1113

07-0CT-80 18:01
LSBTTL

PAGE 34 SEQUENCE

MACRO

;evervanannrnvesvteente

NEWTST
NEWTST

106

SEQ 0113

retneeneenenacenerener

NEWTST 1S USED AS THE FIRST INSTRUCTION OF A TEST.

JIT MILL:
GENERATE A TEST NUMBER FOR THE LABEL OF THIS TeST
;2)
PUT STARS BEFORE AND AFTER A MESSAGE

+ARGUMENTS

;1)

ASCII

:2)

ICOUNT =-

:3)
:
.

RETURN --

;

;4)

:
;
;

COMAND =--

B2 XXX

THIS

IS THE MESSAGE

ON THE LISTING

THAT WILL APPEAR

IF NON-BLANK AND BIT 11 OF $SWR = 1

THE NUMBER OF

|F NON-BLANK WILL BE THE ADDRESS TO
WHICH THE NEXT SCOPE STATEMENT WILL
LOOP BACK TO.
IF

NON-BLANK WILL BE

THE

FIRST

INSTRUCTION OF THE TEST
1f BLANK SCOPE WILL BE THE
FIRST INSTRUCTION

2220222222222

.MACRO

[T WILL BE

ITERATIONS TO MAKE ON THIS TEST

NEWTST

$STN=1
SNWTST=0
NLIST
M(C
.IF B <COMAND>
SSNEUTEST
.1F
SSNEWTEST

RRRRRRRRRARRARRA]

ASCII,ICOUNT,RETURN,COMAND

\$TN,<ASCII>,SCOPE

\$TN,<ASCII>,<COMAND>

.ENDC

CNLIST
LIST
LLIST

.1F NE 4OOO&$SWR
.1F

[COUNT

.JF LE <ICOUNT-1>
M?!F
#1,$TIMES

;;D0 1

MOV

;:DC ICOUNT

ITERATIONS

;;SET SCOPE

LOOP ADDRESS

.ENDC
.ENDC

.1F

MOV

#ICOUNT,STIMES

NB RETURN

.ENDC
.ENDC

NLIST

LIST
LIST
LNLIST

.ENDM

#RETURN,SLPADR

ME
NEWTST

ITERATION

MACRO M1113

(IMSDBO MSi1-L/M DIAGNOSTIC
MACRO
SSNEWTEST

07-0CT-80 18:01

R 22

107

SEQ 0114

SSNEWTEST
MACRO
.SBTTL
SSNEWTEST
A,ASC,COMND
+MACRO
ASCL,<ASCH
.IRP
.IF EQ SNWTST
SNWTST=1
ASCI
T'A!
.SBTTL
.NLIST
ME
LIST
LLIST

J*TEST A

TST'A:

K
9
PAGE 36 SEQUENCE

RS SR R

JFF
ASCI

R R R R R

R R

R R R X

R R R

X R R

RRARRRRRRRRRRRRRRR

ASCI

ENDC
.ENDM

2222222222222

COMND

R X

R R R R

S R R

R R

R R R REREXERXERRRLRRARRRRRRRRARER
D)

ME
CNLIST
$TN=STN+1

.ENDM

SONEWTEST

.SBTTL

MACRO

sexenenarannnene

SUBTST

vrevvanvcoventnnnnnnennntentnnnnt

“THIS MACRO WILL FORMAT A SUBTEST HEADING WITH STARS

;A .SBTTL WILL BE FORCED & .NLISTED FOR THE TABLE OF CONTENTS.

- ARGUMENT:

;1) TXT --

THIS 1S THE MESSAGE THAT WILL APPEAR IN THE TABLE OF

"EXAMPLE:

SUBTST

CONTENTS & LISTING.

<<THIS IS A FUN SUBTST>>

:t'ttt'lltttttt"""'"'ttittt"'i'l'tt.ttt"ttit"tt't

ASCII
.MACRO
SUBTST
MC
.NLIST
$SUBTST <ASCII>
MC
LLIST
SUBTST
.ENDM

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

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

233222222222 22223 2222222222 2 2R R0
R R RRRRRRRA)

LeSUBTEST

.ENDM

ASCI

;t.'..t"t'.."i""""'.I'i"."tt.'l'.ti"'."'!'l"lt!t't't'tti!ttt't"'!'t'

NLISY
.ENDM

$SUBTST

CIMSDBO MSi1-L/M DIAGNOSTIC

MACRO

669
6TM
671
672
673
674
675
676
677
678

679

680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699

700
/01
702
703
704
705
706

TYPOCT

MACRO M1113

07-0CT-80 18:01
.SBTTL

MACRO

seereneenrrnnranereee

PAGE 38 SEQUENCE 108

SEQ 0115

TYPOCT

veenvnanenseenecones

TYPOCT ) USED TO CHANGE A BINARY NUMBER
:
TO
A 6 DIGIT OCTAL NUMBER AND TYPE

{ ARGUMENTS:

‘)
NUM
THE NUMBER TO BE TYPED
REMARK ALLOWS A COMMENT TO BE MADE
12)
*ROUTINES REQUIRED
)

CONVERT BINARY TO OCTAL AND TYPE (.$TYPOCT)

TYPE AN ASCIZ STRING (.$TYPE)
52)
L EXAMPLES:
’

;'ttt'."ti"."t't"""t"itii'ittt't...t.i"'t"".""t.""'

TYPOCT

NUM, REMARK

.MACRO
CNLIST
.DSABL
JIIF DF

LSTSS .LIST

MoV

NUM, - (SP)

.DSABL
JIIF DF
.ENABL
LENDM

(CRF
LSTSS . NLIST

.ENABL
LLIST

(REf

(RF

ME
;. SAVE NUM FOR TYPEOUT

s s REMARK
::G0 TYPE--OCTAL ASCII(ALL DIGITS)

.I1F NB <REMARK>,
TYPOC
(Rf
TYPOCT

CIMSDBO HS?\-%/H DIAGNOSTIC

MACRO

709
710
m

712
713

714
715
716
0"y
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
(41
742

743
7464

745
746

747
748
749
750
751
752
753
754

MACRO M1113

07-0CT-80 18:01
.SBTTL

MACRO

sanennrennnrannnttecne

TYPOCS

:
:

M9
PAGE 40 SEQUENCE 109

SEQ 0116

TYPOCS

TYPO(S

veenennnaveecaneanne

IS USED TO CHANGE A BINARY NUMBER TO AN OCTAL

NUMBER AND TYPE 1 T0 6 DIGITS
WITH OR WITHOUT LEADING ZEROS.

- ARGUMENTS:

NUM

NUMBER TO BE TYPED

)

REMARK

ALLOWS A COMMENT TO BE MADE

:3)

NUMBER OF DIGITS (1 TO 6) TO BE TYPED
BLANK=SUPPRESS LEADING ZEROS (TYPES SPACES)

;

NON-BLANK=TYPE LEADING ZEROS

"ROUTINES REQUIRED

)
‘)

CONVERT BINARY TO OCTAL AND TYPE (.$TYPOCT)
TYPE AN ASCIZ STRING (.$TYPE)

"EXAMPLES:

1)
Q)
'3)

TYPOCS

TYPOCS
TYPOCS

#12345,<TYPES *'S'">,1
#004,<TYPES ''04'">,2.X
#004 .<TYPES '* 4''>.2

;t'tttl'ltii.itt""i""'t""".I'i"t!Q'ttt'"tt""ttttt't"l

.MACRO
TYPOCS
NUM,REMARK,N,Z
NLIST
CRF
.DOSABL
LIIF DF LSTSS .LIST
ME
.ENABL
LLIST

MOV

C(RFf

NUM,-(SP)

; sSAVE NUM FOR TYPEOUTY

.11F NB <REMARK>,

TYPOS

.JF NB N

;.60 TYPE--OCTAL ASCII

.?zgf

:sTYPE N DIGIT(S)

.BYTE

;sTYPE 6 DIGITS

.?:;E

;s TYPE LEADING ZEROS

.BYTE

;s SUPPRESS LEADING ZEROS

LENDC

JIF NB Z

JENDC
.DSABL

(RF

JIIF DF LSTSS _NLIST
LENABL
.ENDM

(Rf
TYPOCS

; ¢ REMARK

CIMSDBO MSil1-L/M DIAGNOSTIC

MACRO

765

766
767
768
769
770
m
172
773
774
775
776
77
778
779
780
781
782
783

784

785
786

787

788
789
790
9N
792
793
794
795
796
97
798
799

800
801
802
803
804
805

MACRO M1113

07-0CT-80 18:01

MACRO

TYPDEC

IS USE

TO CHANGE A BINARY NUMBER TO A SIGNED

TYPDEC

vesveneenennnnannnns

DECIMAL NUMBER AND TYPE IT REPLACING LEADING ZERO

WITH SPACES.

MINUS SIGN WILL BE

SNOTE:

SEQ 0117

LSBTTL

sntnnneaneneenevttteer

TYPDEC

N 9
PAGE 42 SEQUENCE 110

IF THE NUMBER IS NEGATIVE A
TYPED.

éARGUMENTS:
NUMBER TO BE TYPED
NUM
51)
REMARK ALLOWS A COMMENT TO BE MADE
22)
éROUTlNES REQUIRED
21)

CONVERT BINARY TO DECIMAL AND TYPE (.$TYPDEC)

TYPE AN ASCIZ STRING (.S$TYPE)
22)
éEXAHPLES
L

.'t'tttttttttit"'ttt'tt'i""itt'tt.i'.lt'.tit'tt"t'it.ttt"t'tt

.MACRO
«NLIST
.DSABL
JIIF DF
.ENABL
LLIST

TYPDEC

NUM,REMARK

(Rf
LSTSS .LIS!
(RF

Mov
NUM, - (SP)
.I1F NB <REMARX>,
TYPDS
.DSABL

CRF

.ENABL
.ENDM

(Rf
TYPDEC

JIIF DF LSTSS _NLIST

:;SAVE NUM fOR TYPEOUT
;.60 TYPE--DECIMAL

. - REMARK

ASCI! WITH SIGN

(IMSDBO MSi1-L/M DIAGNOSTIC

MACRO

BMOV

MACRO M1113

(07-0CT-80 18:01
.SBTTL

MACRO

D
d

NN —

d
i
d
b
e
—

00 ~NON NS

0o 0o 0o 0o 00 0o 00 OO

rkvrnnennenwnnttt

B_10
PAGE 43 SEQUENCE

BMOY

111

SEQ 0118

BMOV

roeevrrvrnnnnnnnnantunnntnn

* THIS MACRO MOVES A BLOCK OF DATA.
: ARGUEMENTS:
‘1)

FROMHERE

THE FIRST ADDRESS OF

THE SOURCE BLOCK.

)

TOMERE

THE FIRST ADDRESS OF

THE DESTINATION BLOCK.

If BLANK THE 1ST ADDRESS OF THE USER INSTRUCTION

PAR'S

:3)

SIZE

IS USED

THE SIZE OF

(FASTCITY).

THE

SOURCE BLOCK.

IF BLANK A 16 WORD TRANSFER IS ASSUMED.
"WHY DEFAULT TO 16 WORDS?'' YOU ASK!
"'BECAUSE THAT'S HOW MANY WORDS TO THE USER PAR
REGISTERS
'8 THAT'S WHERE I INTEND TO MOVE LOTS
OF STUFF.'¥1 REPLY!

2322222222222
22 2222802202220
000 R0ltRRRRRtd

.MACRO

BMOV

.1F B TOHERE
NLIST
.DSABL

FROMHERE
, TOHERE ,SIZE
CRF

LIIF DF LST$S .LIST

.ENABL
LLIST

CRF

JSR R5,BLOCK1

FROMHERE
.DSABL

CRt

JIIF DF LSTSS _NLIST
CRF
.ENABL
MEXIT

.ENDC

JIF B SIZE
.NLIST
.DSABL

CRF

JIIF DF LST$SS .LIST
.ENABL
LIST

CRE

JSR R5,BLOCKZ
TOHERE
FROMHERE

.DSABL

CRF

.ENABL
MEXIT
JAFF
.NLIST
.DSABL

CRF

.ENABL
LIST

CRE

JIIF DF LST$SS .NLIST

CRF

JIIF DF LST$S .LIST

JSR R5,BLOCKS
SIZE

CIMSDBO MSii-L/M DIAGNOSTIC
MACRO
BMOV
864
865
866
867
868

869
870

MACRO M1113
-

07-0CT-80 18:01

.10
PAGE 43-1 SEQUENCE 112

TOHERE
FROMHERE
.DSABL
CRF
JIIF DF LSTSS _NLIST
. ENABL
CRF

.ENDC
.ENDM
BMOV

SEQ 0119

CIMSDBO MSi1-L/M DIAGNOSTIC

MACRO

873
874
875
876
877
878
879

MAP

MACRO M1113

07-0CT-80 18:01
.SBTTL

0D 10

PAGE 45 SEQUENCE

MACRO

HAP

113

MAP

122282220 RRRARRRRRRRS DDA

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

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

+ ARGUEMENTS:

‘1)

BANK

THE BANK OF 16K WORDS TO BE MAPPED.
THERE ARE 120 BANKS uF 16K WORDS

"EXAMPLES
MAP

Loc

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

MAP

#28.

;BANK 34 (OCTAL) WILL BE MAPPED

R332222X2322X22228222222022222R0R2RRRRRRARRRRRRRRRE)

BANK

.MACRO
PUSH
NLIST

MAP
R3

LIIF DF

LST$S .LIST

MOV

BANK,R3

.DSABL

(CRF

(RF
.ENABL
LIST
.1F B BANK
MoV
#120.,R3
.IFF
.ENDC
CALL
.DSABL

MAPPER
CRF

.ENABL
poP
.ENDM

(RF
R3
MAP

LIIF DF

LST$SS NLIST

SEQ 0120

CIMSDBO MSi1-L/M DIAGNOSTIC
MACRO
SUPERVISOR
912

MACRO M1113

07-0CT-80 18:01
.SBTTL

E_10

PAGE 47 SEQUENCE 114

MACRC

SEQ 0121

SUPERVISOR

913

sxenrnennnnernwnwnrer

914

Nne

:ARGUEMENTS: NONE.

919

:-'tt"ttttttttt'tttittiiitti11ttt'ttttit'ttttt't'vt

312

THIS MACRO SWITCHES

920
921

.MACRO

922
923
924
925

NLIST
.DSABL
JIIF DF
.ENABL

926

LLIST

927
928
929
930
3%;
933

SUPERVISOR

TO SUPERVISOR MODE.

SUPERVISOR

(RF
LSTSS
CRF

.LIST

BIS
#BIT14,PSW
.DSABL
CRF
JIIF DF LSTSS NLIST
.ENABL
(Rf
.ENDM
SUPERVISOR
.SBTTL

MACRO

AR rrt

[JSER

;60 TO SUPERVISOR MODE
ME

USER

934

e ARk

935
3%9

;
;

g%g

;ARGUEMENTS:

940

:-*nttn\n*tnuttnnttt'tttttnuntt'tnnunttn:n

941
942
943

AR AR

vreveennenesranennnnen

THIS MACRO SWITCHES TO USER MODE.
NONE.

USER

944

.MACRO
NLIST
.DSABL

946
947

.ENABL
LLIST

CRF

945

948

949
950
951
952
953

Sttt vt avtun et ittt

JIIF

BIS

CRf

LSTS® .LIST

#BIT15.BIT14,PSW

.DSABL
CRF
LIIF DF LST$S .NLIST
LENABL
CRf
.ENDM
USER

;G0 TO USER MODE

CIMSDBO MSi1-L/M DIAGNOSTIC

MACRO

955

TESTAREA

MACRO M1113

07-0CT-80 18:01
LSBTTL

PAGE 48 SEQUENCE 115

MACRO

SEQ 0122

TESTAREA

956

seerneennvennnnert

957
ggg

:
;

%60

ARGUEMENTS: NONE.

962

:-ttttttttt'tttttttttttt'itttt'ttttntttttfitittitfittt

963
964
965
966
967
968
969

JESTAREA

THIS MACRO SWITCHES TO THE

.MACRO
.NLIST
.DSABL
LIIF DF
.ENABL
LLIST

CRF
LSTSS .LIST
CRF

BIS

972
973

LIIF DF LSTS® _NLIST
.ENABL
(RF

974

.DSABL

.ENDM

SPECIFIED TEST MODE.

TESTAREA

970
971

ttevetnanennanatennanesn

TESTMODE ,PSW
CRFf

TESTAREA

;GO TO SYSTEM TEST MODE
ME

CIMSDBO MSi1-L /M DIAGNOSTIC
l

MACRO

977

SET4 £ RECSS

MACRO M1113

G 10

07-0CT-80 18:01

LSBTTL

PAGE 50 SEQUENC.

MACRN

SEQ 0123

SET4L & RESG

978

seevevnnnnnnnnneee

979

; THESE MACROS SET & RESTORE VECTOR &4(TIMEQUT TRAP)

gg?

RESL

reeerencenennnenerer

;

gg%

;

ggg

;ARGUEMENTS:

986

SETL

116

IN IT'S RESTORED MODE TRAPS ARE REPORTED AS SUCH.
LOC

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

;1 USE THE SET4 AND RES4 MACROS AROUND CODE THAT | EXPECT TO TRAP T0 4

WHENEVER (ODE IS NOT

987

;LIKE LOOKING FOR ALL POSSIBLE CSR'S AND ETC.

989

;PRINTOUT THAT SAYS "'UNEXPECTED TRAP TO &'' AND ALL THE ASSOCIATED REGISTER JUNK

988

990

;SURROUNDED BY SET4 AND RES4 THEN ANY TRAPS T0 & WILL CAUSE AN ERROR
R

AR RN RN R RN

E R

RN R R

991
992
993

.MACRO
LNLIST

SET4

995

LIIF DF

LSTS® .LIST

994

.DSABL

(RFf

.ENABL
LLIST
MOV
.DSABL

1001

.ENABRL

(Rf

.MACRO
NLIST
.DSABL
JIIF DF
.ENABL
LLIST

RESS4

CMP
BNE

#1,PROTYP
101%

.ENDM

1007

1008
1009

1010

1011
1012

]'8]‘2

1015

(RF

ARG,4
CR¥f

LIIF DF LSTSS _NLIST

1002
1003
1004
1005
1006

1018

(R¥
LSTSS .LIST
CR¥f

MOV

#TIMEQUT
4

CLR

CPUERR

.DSABL

(Rf

1018

.ENABL

(RF

1019

JIIF DF LSTSS _NLIST
.ENDM

R RN RN

SET4

1016

1017

AN R NN

ARG

996
9G7
998
999

1000

RES&

;1S THIS AN 11/447
;BRANCH IF NOT

:CLEAR OUT THE CPU ERROR REGISTER BITS
:THAT A EXPECTED TRAP COULD HAVE »>ET
ME

CIMSDBO MSil-L/M DIAGNOSTIC
MACRO
DLEFY
1022

MACRO M1113

(07-0CT-80 18:01
LSBTTL

WACRC

AALRAAL AR

1024
}8%2

:
:

}85;

JARGUEMENTS:

1029

;tttt'ttttitttt"'t"""t"'it'ttt"ttt'ttt"tt"t

etrevceernntttnnnenenntnete

THIS MACRO DOES A DOUBLE WORD LEFT

LOC

1030
10N

.MACRO

1033

.DSABL

1034

DLEFT

NLIST

C(R¥

ARG

LSTSS

.LIST

1036
1037
1038
1039
1040

LLIST
ROL
ROL
.DSABL
JIIF DF

ARG
ARG+2
(R¥F
LSTSS

NLIST

1042
1043

.ENDM
LNLIST

DLEFT
MD

1041

.ENABL

CRF

(Rf

SHIFT

:THE LOCATION TO BE SHIFTED LEFT (CARRY TQO LO(C+2)

1035

JIIF

DLEFT

SEQ 0124

DLEFT

1023

1032

H 10

PAGE 52 SEQUENCE 117

;DON'T NEED TO SEE

THEM ANY MORt

CIMSDBO MSi1-L/M DIAGNOSTIC

TRAP

CATCHER

1046
1047
1048
1049
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076

000000

1080

Q7-0CT-80 18:01

GO000O

’

000046
000052

000624

000200
000202
000300
000304
000310
000316

TRAP CATCHER

"WORD

0,0

i
v
;v
;*
it
i
v
it
i
*
P+

LSBTTL

ACT11 HOOKS

177

;. WORD

HOOKS REQUIRED BY

000046
014430
000052
000020

[

PAGE 54 SEQUENCE 118

.sgrrL

CREPT
;*THE

1077 000042
1078
1079 000044

1081
1082
1086
1087
1088
1089
1090
1095

000000
000000
000177

MACRG M1113

DEF INITIONS:

ACT11

.42, HALT

ARE DEFINED AND SETUP BELOW:

“END-OF -PASS'* HOOK

1ILOC.46

=ADDRESS OF END OF PASS ROUTINE
MODIFIED BY ACT11.
PROGRAM NEEDS HOOK
2)L0C. 52
BIT 1521 PROGRAM SHOULD BE POWER
FAILED WHILE RUNNING
=0 NO POWER FAIL
BIT 14=1 PROGRAM MEMORY SIZE DEPENDENT
=0 NOT MEMORY SIZE DEPENDENT
BIT 13=1 PROGRAM REQUIRES MANUAL INTERVENTION
=0 MANUAL INTERVENTION NOT REQUIRED
BITS 12-0 MUST BE ZERO'S

»
o=l

;iV)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP

SENDAD

;:2)SET LOC.52 TO INDICATE MEMORY SIZE DEPENDANT

.WORD

BIT4

000024
000200
000042

=24
200,

;;SET POWER FAIL TO POINT TO START OF PROGRAM
iiFOR APT START UP

000044
062566
000200
000437
000442
000300

=44
;;POINT TO APT INDIRECT ADDRESS PNTR.
SAPTHDR [ POINT TO APT HEADER BLOCK

_SBTTL

HOOKS

:S0 RT11

STACK

002000

START3: BR
o
BR.

005037
000137

002566
003630

000137

003630

002000

APT11

START1:
START2:

{LR
JMP
SET
JMp
.=STACK

START?
START
RESTART
START
RESTART
START

CAN START WITH RUN COMMAND

;"'NORMAL'' STAR”
RESTART (SAVE ERROR ACCOUNTING)

SEQ 0125

MACRO M1113
INITIALIZED TO ZERO

CIMSDBO MSi1-L/M DIAGNOSTIC
1098

.SBTTL

VARIABLES

119

SEQ 0126

INITIALIZED TO ZERO

000
000

000

000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000090
000000
000000
000000
000000
000006
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
0000C0

SCMTAG:

;. START OF

COMMON TAGS

$PATMAR: .BYTE
$BANK:
.BYTt

;PATTERN NUMBER

SELONLY:0
;SELECT ONLY BANKS MARKED BY FIELD SERVICE MODE FLAG
DIAGFLAG:{
;SET FOR SHIFTING DIAGONAL TEST
KAMIKAZE: 0
;SET FOR KAMIKAZE MODE TESTING
SKIPKAMI :0
;USED TO SKIP RESTORING KAMIKAZE MODE WHEN MODIFIED
THE DISPLAY REGISTER
IN
DISPLAYED
:NEXT TWO BYTES ARE

000000
000000
000000
000000

SERFLG: .BYTE
SITEMB: .BYTE
LASTERROR: .WORD

ERRPC:
BADPC:

ERRSP:
BADSP:

€00000

.WOPRD
.WORD
.WORD
.WORD

ERRPSW: .WGRD
BADPSW: .WORD
ADDRESS: .WORD
PADDRESS: .WORD
PHYADD:

600D :
GO0D2:
GOOD3:
BAD:
BADZ:
BAD3:
BADXOR:
SAUTO:

FATALS:

.WORD

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

SKPERR: .WORD

OCOOOOOOOOOOCOOOOOOOOOOOO0OO

1101 002000
1102 002000
1103 002002
1104 002004
1105 002006
1106
1107 002010
1108 002011
1109 002012
1110 002013
1111 002014
1112 002016
1113 002020
1114 002022
1115 002024
1116 002026
1117 002030
1118 002032
1119 002034
1120 002036
1121 002042
1122 002044
1123 002046
1124 002050
1125 002052
1126 002054
1127 002056
1128 002060
1129 002062
1130 002064
1131 002066
1132 002070
1133 002072
1134 002074
1135 002076
1136 002100
1137 002102
1138 002104
1139 002106
1146 002110
1141 002112
1142 002114
1143 002116
1144 002120
1145 002122
1146 002124
1147 002126
1148 002130
1149 002132
1150 002134
1151 002136
1152 002140
1153 002142
1154 002144

J 10
PAGE 56 SEQUENCE

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THE PROGRAM.

1099
1100

;BANK & SIGN
;;CONTAINS ERROR FLAG
::CONTAINS ITEM CONTROL BYTE
:NUMBER OF ERRORS ON LAST PASS
;COMTAINS PC OF ERROR FOR TYPEOQUT

;CONTAINS PC OF ERROR
;CONTAINS SP OF ERROR FOR TYPEOUT
;CONTAINS SP OF ERROR
;CONTAINS PSW OF ERROR FOR TYPEOQUT
;CONTAINS PSW OF ERROR
;: CONTAINS ADDRESS OF 'BAD' DATA
;ADDRESS OF PARITY ERROR
;22 BIT PHYSICAL ADDRESS
;s CONTAINS 'GOOD' DATA
;s CONTAINS 'GOOD2' DATA
;s CONTAINS 'GOOD3' DATA
;;CONTAINS 'BAD' DATA
;;CONTAINS °'BADZ' DATA
:;CONTAINS 'BAD3' DATA
:XOR OF GOOD & BAD = BAD BITS
; sAUTOMATIC MODE INDICATOR FOR APT,ACT, & XXDP
;FATAL ERROR INDICATOR

;USED TO SKIP ERROR MESSAGE IN ''SERRGEN'

NEMCNT: 0

;NON-EXISTANT MEMORY COUNTER (HOLES)

NOPAR:
NONEM:
BANK:

;NO PARITY ERROR MODE INDICATOR
;NO NON-EXISTANT MEMORY (HOLES) MODE
;MEMORY BANK UNDER TEST

PARCNT:
PATERR:

0
0

;PARITY ERROR COUNTER
;PATTERN ERROR COUNTER

0
0
0

BANKINDEX:0
CPUBIT: 0
MUT:
0
PATTERN:0
KPFLAG:
ACFLAG:
MKFLAG:
PFLAG:
KRRFLAG:
RLFLAG:

BMFLAG:
EUFLAG:
TMFLAG:

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

.WORD
.WORD
.WORD

INTFLAG: .WORD
INT64K: .WORD

ABORTFLAG: .wORD
CTLKVEC:.WORD

CSR:

.WORD

INDICATOR

;USED TO INDEX INTO CONFIG TABLE
;CONTAINS 1 BIT TO IDENTIFY CPU TO CONFIGURATION TABLE

OO OOOOOOO0OOOO

VARTABLES

(07-0CT-80 18:01

;MEMORY UNDER TEST FLAG
:PATTERN NUMBER UNDER TEST

:BANK IS PROTECTED REGION OF ECC
:BANK CAN BE ACCESSED BY THIS CPU

SIF SET INDICATES MS11-M OR MF11S-K UNDER TEST
:BANK IS IN PROGRAM SPACE

:BANK IS WHERE PROGRAM RELOCATION IS REQUIRED TO TEST
:PROGRAM IS RELOCATED FLAG

:"BANK IS IDENTIFIED AS BAD MEMORY'' FLAG
:"BANK HAS EUB MEMORY'' FLAG
:*'TYPE OF MEMORY TO TESTTM FLAG; 0 = PARITY, 1 = ECC
:"BANK IS INTERLEAVED' FLAG
S*BANK IS 64K INTERLEAVEDTM' FLAG
:""ABORT OCCURED"' FLAG
:HOLDS OLD KERNAL STACK POINTER IN CASE OF CNTL/K
:DATA TO OR FROM CSR

CIMSDBO MSil1-L/M DIAGNOSTIC

VARIABLES

1155 002146

(SRNO:

OLDCSR:

002152

000000

SUPDRO: 0

b o ord d o

o e

d e

d D e

D e

D D D D D D DD D

b D BB d el

DD D DD DD D2

000000

— and vd b ad b D il b nd el b —— — e d od ad D d e d D D D D D o il D o D d d D e D D D D D o
D
VOOV O OVOO OO0 NNNNNNNNNNOOCOPTORPOONON
N NN (V]
~NO VS NN = OOV NO WV
NN 2OV
NN
WOV
NONWNE NN O 000~

o e e omd o

INITIALIZED TO ZERO

07-0(T-80 18:01

6 002150

SUPDR1:
SUPDR2:
SUPDR3:
SUPDR&4:
SUPDRS:
SUPDRG:
DUMMY:

002172
002174
002176
002200
002202
002204
002206
902210
002212

000000
000000
000000
000000
000000
000000
000000
000000
000000

DETRO:
0
DETR1:
0
DETR2:
0
DETR3:
0
DETR4:
0
DETRS:
0
DETSP:
0
DETPSW: 0
DETFLAG:C

002216

000000

002214

002220
002222
002224
002226

002272

000000

002254
002256
002257
002260
002262
002264
002266
002270

b o e e

207 002316
208 002320
209 002322
210 002324

000000
000000
000000
000000

000000
000000
000000
000000
000000
000000

000000
000
000
000000
000000
000000
000000
000000

0
0
0
0
0
0
O

000000
000000
000C00
000000

CONTFLAG:O0

SEQ 0127

;CSR ADDRESS NUMBER

(4 LSB'S)

;OLD CSR NUMBER(USED IN INH PTR TEST)

:DUMMY LOCATION FOR ADDRESS PASSING
.

e
~<

(SRFIRST:.WORD
CSRLAST: .WORD
CSRFBANK
: .WORD
CSRLBANK
: .WORD

0
0
0
0

CSRINT:
.WORD
SPLTCSR: .WORD
DATBUF: .WORD
TSTDAT: .WORD
SBEMSK: .WORD
DBEMSK: .WORD

SOURCE: .WORD

SUPDOADD: .WORD
PASFLG: .BYTE
UPPFLG: .BYTE
REALPAT: .WORD
OLDCACHE:.WORD
PARTHERE: .WORD
FSSTACK: .WORD
NEWBANK: .WORD
CHECK:
.WORD
PCBUMP: .WORD

000000
000000
000000
000000

QVFLAG: 0
ACTFLAG:0
APTFLAG:0
XXDPCHAIN:0

CSRINC: .WORD
CSRLOOP: .WORD
SUCCESS:.WORD
ZEROS: .WORD
.WORD
TIME:
SKIPMK: .WORD
NULLFLAG:.WORD

;DETAILED REPORT FLAG

TOTCSRS: .WORD

000000
000000

000000
000000
000000
000000
000000
000000
000000

SEQUENCE 120

:THESE LOCATIONS STORE GPR'S & PSW DURING DFTAILED ERROR PRINTQUTS

000000

002230
002232
002234
002240
002244
002250

K 10

PAGE 56-1

: THCSE LOCATIONS STORE GPR'S DURING SUPERVISOR TESTS

000000
000000
000000
000000
000000
000000
000000

8 002274
9 002276

PAR!

.WORD

002154
002156
002160
002162
002164
002166
002170

200 002300
201 002302
202 002304
203 002306
204 002310
205 002312
206 002314

b d ad nd e e

MACRO M1113

0,0
0,0
0,9
0,0

0
0
O
0
0
0
0
0

0
0

0
0
0
O
0
0
O

:CSR'S HAVE BEEN TESTED FLAG

;1 BIT PER EXISTING CSR, EG-

:CSR O REPRESENTED BY BIT 15, ETC.
;FIRST ADDRESS UNDER CONTROL OF

THIS (SR

*7WO WORD DATA BUFFER

;TWO WORD TeST DATA
:TWO 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
;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 RELOCATION TO A NEW BANK

:SOURCE OF DATA WORDS FOR CHECKBIT GENERATION SUBROUTINE
;CHECKBITS TO BE LOADED INTO CSR
;VALUE TO BUMP THE PC BY TO RECOVER AFTER A PARITY TRAP

:VALUE TO INCREMENT ADDRESS BY TO REMAIN IN THE SAME (SR
: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 SUBRJUTINE
;SET WHEN RUNNING NULL PATTERNS

;FLAGS QUICK VERIFY PASS UNDER APT, ACT, OR XXDP (HAIN MODt
:FLAGS ACT AUTOMATIC MODE PROGRAMMING RULES
:FLAGS APT AUTOMATIC MODE PROGRAMMING RULES
;FLAGS XXDP CHAIN MODE PROGRAMMING RULES

sNOTE: THESE TWO BYTES MUST STAY TOGETHER

MACRO M1113
CIMSDBO MSi1-L/M DIAGNOS TIC
VARIABLES
INITIALL lED 10 ZERO

1212 002326
1213 002327

000
000

1216 002332
1217 002334
1218 002336
1219 002340
1220 002342
1221 002344
1222 002346
1223 002350
1224 002352
1225 002354
1226 002356
1227 002360
1228 002362
1229 002366
1230 002370
1231 002372
1232 002374
1233 002376
1234 002400
1235 002402
1236 002404
1237 002406
1238 002410
1239 002412
1240 002414
1241 002416
1246 002420

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

}%}g 002330

1247 002422
1¢48 002424
1249 002426

1250 002430
1251 002432
002440

002446
1252 002452
002460
002466
1253 002472
1254
1255
1256
1257
1258
1259
1260
1298

002474
002476
002500
002502
002506
002510
002512
002514

$NULL:
$FILLS:
$TPFLG:

000

000000
000000
000000
000000
000000

(00000
(000000
000000
000000
000000
0CLO00
000000

.BYTE
.BYTE
.BYTE

.EVEN

L1 0

PAGE 56- 2 SEQUENCE

0
O
O

KSIZE:

LSIZE:

STOPOK: 0
APTPAR: ,WORD
APTECC: .UORD
NOF SMODE : 0
NOERROR:0

0
0

LOADBANK: 0
TEMP:

000000

LINK1:
0
LINK2:
O
CSRHOLD:0

0
.WORD

INHECC: .WORD
INHBANK : .WORD

;AMOUNT OF PARITY MEMORY ACCORDING 70 APT
;AMOUNT OF ECC MEMORY ACCORDING TO APT
;FLAG TO DISABLE FIELD SERVICE MODE
:'THIS IS NOT AN ERROR'' FLAG

SIZING

INFO FLAG

:TRUE WHEN IN FIELD SERVICE COMMAND 7

0,0,0,0,0,0,0,0

KFLAG:
PGMCSR:

:FLAG TO PATTERNS TO READ ONLY
;THE ADDRESS TO RUN CSR TESTS ON
;HIGHEST ACCESSABLE BANK OF MEMORY THRU UNIBUS MAP
;FLAG TO ALLOW STOPPING WITH SWITCH REGISTER

;APT

ERRADD: .WORD
0
CSRINF0:0,0,0,0,0,0,0,0

000000
000000

;CONTAINS # OF FILL CHARACTERS
:;'TERMINAL NOT AVAILABLE' FLAG

:'FIELD SERVICE = NO INTERNAL INTERLEAVE'' FLAG

NG22BI11:0
NOSUPER:0

000000
000000

;. CONTAINS NULL CHARACTER FOR FILLS

:BANK LOADERS ARE RELOCATED T0
:USED FOR JUNK
;QUICK STOP FLAG FOR APT POWER FAIL
:''NO SCOPE LOOP ALLOWED'' FLAG

QuUIck:
0
NOSCOPE: 0
FSINFLAG:0
APTSIZE:0
FS7FLAG:0
EONFGERRgR:O

000000
000000
000000
000000
000000
000000

SEQ 0128

;SIZE OF MF11S-K MEMORY IN K WORDS
;SIZE OF MS11-L MEMORY IN K WORDS
;SIZE OF MS11-M MEMORY IN K WORDS
;SIZE OF UNIBUS PARITY MEMORY IN K WORDS
;FLAGS WHEN TOO MANY ERRORS HAVE BEEN PRINTED FOR A BANK

MSIZE:
0
PSIZE:
0
:0
TOOMANY
READONLY: 0
TESTADD: 0 ,C
UNITOP: 0

000000

121

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

$ESCAPE: 0
EVEN:
0
STRIPES:0
COUNT:
O
NOTAB:
O
BSIZ2E:
O

000000
000000
000000

07-0CT-80 18:01

0.0

0
0

FULLREL : .WORD
0
$SCMTGE: ,*END OF COMMON TAGS

. 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

;POSSIBLE CSR'S
;USED TO HOLD LINKS TO PATTERNS WHICH
:CAN EXECUTE IN THE PAR/PDR'S OR NOT
;USED TO STORE CSR VALUES FOR CSR TESTS
;USED TO FLAG MF11S~K MEMORY TO TESTS
;POINTS TO PROGRAM CSR

;FLAGS INHIBIT ECC TESTS ON RELOCATION

CIMSOBO MSi1-L/M DIAGNOSTIC

VARIABLES
1301

INITIALIZED TO NON ZERO

1302 002514
1303 002520
1304 002522
1305 002524
1306 002526
1307 002530
1308 002532

000001
001415
040000
000012
000167
170000
000031

1310 002536
1311 002540
1312 002542
1313 002544
1314 002546
1315 002550
1316 002552
1317 002554
138 002556
1319 002560
1320 002562
1321 002564

000001
177777
176543
123456
176543
123456
177777
177777
000003
052525
000000
000000

1309 002534

132 002566

jéé; 002570

MACRO M1113

.SBTTL

000000

CACHKN: 1,0
CACHKF: 1415
TESTMODE : 40000
ERRMAX: 10.
LASTBANK:167
LASTBLOCK:170000
SOBK:
25.

002000

KSTACK:

000000

VARIABLES

STACK

M 10

PAGE 58 SEQUENCE 122
INITIALIZED TO NON ZERO

:STACK BEGINNING

0
0

: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
:PATTERN FOR SOFT ERROR BACKGROUND TESTS
:; CONTAINS SCOPE LOOP ADDRESS
;. CONTAINS SCOPE RETURN FOR ERRORS

$ERTTL:

;- CONTAINS TOTAL ERRORS

.WORD

;RESTART (START ADD 202) FLAG

000377
177400

sxeraanenenveveevecvvers NOTE THESE TWO LOCATIONS MUST STAY TOGETHER tevtwenttaes
BAKPAT: .WORD
377
;BACKGROUND PATTERN
*
SWAPAT: _WORD
177400
: SWAPPED BAKPAT
.

1333 002576
1334 002600
1335 002602
1536 002604
1337 002606
1338 002610

177570
177570
177560
177562
177564
177566

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566

DSWR
DDISP

1340 88%2}2

886

$BELL:

.ASCIZ

<207><377><377> ;;CODE FOR BELL

$QUES:
$CRLF:
$LF:

.ASCII
L.ASCII
LASCIZ

/?/
<15
12>

133

1332

1329 002612

1341 002617
1342 002620
1343 002621
1344

012

077
015
012

.‘tititti'tttiiitttttttt*itt'*iiiitiiiit'*ii*ttiifitfittttiiQtttt"i"i""t"'t"'t

377

000

377

$FILLC: .BYTE

.EVEN

SEQ 0129

; CACHE CONSTANT (MOVED TO CONTRL TO TURN ON CACHE)
:CACHE CONSTANT (MOVED TO CONTRL TO TURN OFF CACHE)
ZUSED TO SELECT THE PROPER TEST MODE FOR A PATTERN RUN
:MAX # OF ERRORS PER BANK WITH SWw11
sHIGHEST BANK OF MEMORY
‘HIGHEST BANK OF MEMORY+1 (IN PAR FORMAT)
;SOB CONSTANT

LOADHOME : 1
WORST:
177777
SEEDHI: 176543
SEEDLO: 123456
MSEEDH: 176543
MSEEDL: 123456
HEADER: 177777
ONES:
177777
FLIPLOC:3
SOF TPAT:52525
SLPACR: .WORD
SLPERR: .WORD

RESTART:0

000000

1328
1329 002572
1330 002574

(07-0CT-80 18:01

; ;ADDRESS OF SWITCH REGISTER
. ;ADURESS OF DISPLAY REGISTER
;:TTY kBD STATUS
;. TTY KBD BUFFER
;. TTY PRINTER STATUS REG. ADDRESS
;. TTY PRINTER BUFFER REG. ADDRESS

..INSERT FILL CHARS. AFTER A ''LINE FEED"
;s QUESTION MARK
. : CARRIAGE RETURN
;;LINE FEED

CIMSDBO MSi1-L/M DJAGNOSTIC

CONF IGURATION TABLE
1347

1348

MACRO M1113

07-0CT-80 18:01

N 10

PAGE 60 SEQUENCE 123

.SBTTL

CONFIGURATION TABLE

:CONF1G:FIRST 16K CONFIGURATION WORDS (2 EACH)

}ggg

2ND

16K CONFIGURATION WORDS (2 EACH)

}%25

200TH

16K CONFIGURATION WORDS (2 EACH)

1353
1354
1355
1356
1357
1358
1359
1360
1361

; CONF IGURATION WORDS:
:
LOW:
:
;
;
;
:
;
:

1362
1363
1364
1365

:
;
:
:

1366
1367

1368
1369 002624

1372 003630

HIGH:

:
;

000201

CONFIG: .REPT
CONF IEND:

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

BIT
BIT
BIT
BIT

O
1
2-4
§
6
7
8-11
12-15

0-7
8-10
11
12

BIT 13
BIT 14

201

BIT 15

ERRORS PRESENT
MEMORY SUCESSFULLY ACCESSED
RESERVED
SKIP ECC LOGIC TESTS FLAG (1=SKIP)
PROTECTED REGION OF ECC MEMORY
PROTECTED (PROGRAM SPACE)
(SR CODE
INTERLEAVED CSR CODE
NUMBER OF ERRORS
MEMORY TYPE

INTERLEAVED BOARD TYPE (0=128K, 1=64K)
INTERLEAVE ENABLED
"BACKGROUND PATTERN VALID'' FLAG
BANK SELECTED FOR TEST BY FIELD SERVICE MODE
LOADERS HOME BANK

SEQ 0130

CZMSDBO MSi1-L/M DIAGNOSTIC

MACRO M1113

07-0CT-80 18:01

tertrnareaeenennnntene MAIN atevencennenecntanenaatant
1374

1375 003630

START:

JSBTTL

SUBTST

:*SUBTEST

1379
1380
1386
1387
1388
1589

003630
003632
003636
003642
003644
003650

1390 003652

1391 003660

000005
013706
012700
005020
022700
001374

012737

002534
002000

1$:

002514

000167

002526

<<CLEAR NON-PROGRAM SPACE>>

teennceeeecaecesnneterteny

INITIALIZE VARIABLES TO ZERO

SUBTST

;*SUBTEST

#167 ,_ASTBANK

1394

003670
003672
003674
003700

1401 003702

012737
005000

000001

JRESTORE LASTBANK (THIS MUST BE DONE PRIOR TO SYSTEM SIZING)

020027

160000

005037

002074

000241
005520
103773

.70 THE XXDP LOADERS

002076
2%:

MOV
CLR

Le
AD(
(MP
BLO

CLR

#1,NOPAR
RO

R
R

A
A

AR
A

;PARITY ACTION = COUNT & IGNORE

(RO)+
RO,#160000
2%

NOPAR

;s SETUP THE STACK POINTER
ssFIRST LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION
: :DONE?
:LOOP BACK IF NO

CLEAR NON-PROGRAM SPACE
R

ARl
AR

;THIS ATTEMPS TO GEY RID OF ANY PARITY ERRORS BY WRITING INTO
JEVERY LOCATION THAT IS NOT LOADED INTO BY THE PROGRAM OR ALLOCATED

1395 003660
1396 003666

1397
1398
1399
1400

MAIN

KSTACK,SP
#$CMTAG,RO
(RO) ¢
#$CMTGE , RO
1%

1392
1393

eecevcrenreecnneeennne

SEQ 0131

<<INITIALIZE VARIABLES TO 2ER0>>

RESET
MOV
MOV
CLR
(MP
BNE

Mov
R

B 1
SEQUENCE 124

PAGE 61

JRESTORE DEFAULT PARITY ACTION

CZMSDBO MSit1-L/M DIAGNOSTIC

CLEAR NON-PROGRAM SPAC(E
1411

MACRO M1113

003706

07-0CT-80 18:01
SUBTST

¢
PAGE 62 SEQUENCE 125

<<TYPE OF

SEQ 0132

SYSTEM SIZER>>

;"itfi'Qtt'ttttttt""""t't""t'tttQQtt't'tt'tt""t"tt'tt't"t't't'tt't't't

;*SUBTEST

TYPE OF SYSTEM SIZER .

:ttt"tt"'tttttt"tt't"'tt""t'It't'Qtt'Qt'ttt'tt"'tt't't'ttt't'ttt"tt't"Q

1412
1413
1414
1415

003706
003710
003712
003720

1416 003724
16417 003732
1418 003736
1419 003740
1420 003746

1421 003750

1422 003754

1423 003762

000401
000000
005737

177746

005737
000411
012737
000405

177750

005037

012737

000014
002514

002306

1424 003770

005737

172516

1426 004000
1427 004006
1428 004014
1429 004016

052737
032737
001024
000411

000020
000020

004C20
004026
004032
004036

012737
005237
005037
005037

140000
002426
063652
064012

1436 004042

005237

002424

1425 003774

1430
1431
1432
1433
1434
1435

1437 004046
1438 004054
1439 004060
1440
1441 C04064
1442 004066
1443 004074
1444

005037

012737
005037
005037

172516

000007
063654
064014

PROTYP:
SYSSIZ:

002520
064002

9%:
A ¥
5%:

002526

000417

CLR

SYSS1?
O
#43
CONTRL

:SKIP OVER VARIABLE LOCATION

CACHKN

:NO CACHE ON SYSTEM

#9%
MAINT
5%
#14, CACHKE
5%

7s.

1449 004102
145C 004110

1451 0064112
}452 004116

1454 004124

IF CACHE REGISTER RESPONDS
:YES = CO WE HAVE 11/44 TYPE CACHE
:0R 11760 TYPE CACHE?
JBRANCH IF 11744 TYPE CACHE
:TURN OFF CONSTANT FOR 11/60 CACHE

#1EROS,DT14

TST

MMR3Y

;D0 WE HAVE AN MMR3?

BIS
BIT
BNE
BR

#8174 ,MMR3
#B1T4L,MMRY
10%
7%

:SEE IF THERE IS 22-BlT MODE

SET4

MMR3

INC

N022BI11T

8R
SET4

8%
#8%

MOV
CLR
CLR

MFPT

#7,LASTBANK
DTS+12
DT14+12

1445
1446

1447
1448 004076

;SEE

MOV

;0 11/34 TYPE MACHINES ENTER HERE
6%:
MOV
#140000, TESTMODE
INC
NOSUPER
CLR
DTS+10
CLR
DT14+10
-+ 11/45 TYPE MACHINES ENTER HERE

10%:

000007

SET4
183
BR
MOV
BR

CLR

172516
172516

002522

BR
.WORD
SET4
TST

;DO NOT PRINT CONTRL ERROR MESSAGES
;YES WE DO

JsBRANCH [F 22-BIT RELOCATION

:BRANCH IF MMR3 BUT NO 22-BIT RELOC.
;MAKE TEST MODE USER
:NO SUPERVISOR MODE

;NO 22 BIT MODE

;124K MEMORY MAX. MEMORY SIZE
;DO NOT TRY TO PRINT ERROR REGISTER
;ERROR MESSAGES, BECAUSE THERE IS
;1S NO ERROR REGISTER!

:TYPE OF PROCESSOR TEST: THIS INSTRUCTION
: (AVAILABLE ON NEWER PROCESSORS ONLY) PLACES
: A CODE IN THE LOWER BYTE OF RO THAT

: INDICATES THE

110037
022737
001005

005237
012757

003710
060003

003710

MOVB
cMP

RO,PROTYP
#3,PROTYP

002426
140000

002522

INC
MOV

NOSUrER
#140000, TE STMODE

BNE

8$:

RES&

PROCESSOR TYPE. 1=11/44

: 3211724
;MOV THE CODE TO PROTYP

;1S THIS AN 11/24?
:BRANCH IF NOT - WE HAVE AN 11/44
;NO SUPERVISOR MODE
;MAKE TEST MODE USER

)

CIMSDBO MSi1-L/M DIAGNOSTIC
TYPE OF SYSTEM SIZER

MACRO M1113

1457 04146

07-0CT-80 18:01
SUBTST

D N
PAGE 64 SEQUENCE 126

<<INITIAI
IZE VARIABLES TO NON ZER0>>

:tt""t""'i""""""""""'iQ'."."""Q'""'t."'.""""' (2 XA X322 K 2]

:*SUBTEST

INITIALIZE VARIABLES TO NON ZERO

;'tt"""Q'.'Q""'Q""Q""""Q"""'Q.Q".'Qt"'."Q""Q"t"""'."""

1458 004146

SET

WORST

1459 004154

012737

000003

002556

MOV

1461 004170
1462 004176

012737
012737

176543
123456

002546
002550

MOV
MOV

#176543, MSEEDH
#123456 , MSEEDL

16465 006220
1466 006226

012737
012737

000377
177400

002572
002574

MOV
MOV

#377 ,BAKPAT
#177400, SWAPAT

1460 004162

1463 0064206
1464 0064212
1471

004234

013737
013737

002546
002550

002542
002544

SET

MOV
MOV

SUBTST

#3,FLIPLOC
HEADER

MSEEDH,SEEDHI
MSEEDL.SEEDLO

.
;PRIME THE RANDOM NUMBER GENERATOR
:BOTH HIGH AND LOW WORDS

""ttQt"Q".t"""'t""'Qtt"'tttt'"'itt"t't'tQ't'Q"t"'.""""""'."'

:*SUBTEST

INITIALIZE VECTORS

;tttttttt"ttt"t""""t"""ii.""Qi'."t""tt't'.tt"'it'."""""""'

1472 004236
1473 004242

012737
012737

055334

000020

MOV

#$SCOPE, IOTVEC :;10T VECTOR FOR SCOPE ROUTINE

1475
1476
1477
1478
1479
1480
1481

012737
012737
012737
012737
012737
012737
012737

055642

000340
062602
000340
051524
000340
027720
000340

000020

MOV

FSERROR ,EMTVEC ;:EMT VECTOR FOR ERROR ROUTINE

1474 004250

004256

006264
004272
004300

004306
004314
004322

012737

1482 004330

012737

1484 004346
1485 004352
1486 004360

012737
012737
012737

1483 004336

1487 004366

1492 004374

012737

012737
104423

000340

040114

000340
040070
000340
040102

000340

000022

000032
000034
000036
000024
000026
000114
000116

000010
000012
000004
000006
000250

000252

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

MOV
MOV
MOV
MOV

MOV

CACHON

#340,10TVEC+2

:;LEVEL 7

#360,EMTVEC+2
;;LEVEL 7
#$TRAP, TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS
#340,TRAPVEC+2;
LEVEL 7
#$PWRDN ,PWRVEC ; ;POWER FAILURE VECTOR
#340,PWRVEC+2
:;LEVEL 7
#PARITY,PARVEC;GET READY FOR PARITY ERRORS
#340,PARVEC+2

#PDP{105 ,RESVEC;RESERVED INSTRUCTION TRAP
#340,RESVEC+2

#TIMEOUT ,ERRVEC; SETUP TIMEQUT ERRCRS
#340,ERRVEC+2
;SET PRIORITY OF ERROR TRAPS
FMMTRAP MMVEC
:VECTOK FOR MEMORY MANAGEMENT

#340,MMVEC+2

:TURN CACHE ON

SEQ 0133

¢ I{MSDBO MS11-L/M DIAGNOSTIC
l NITIALIZE VECTORS

1495 004376

MACRO M1113

07-0CT-80 18:01

EN
PAGE 66 SEQUENCE

127
’

SUBTST

<CINITIALIZE

PATTERNS>>

:tt't".ti't.t""'"""""""t"Q'""Q'QQ""""""""Q"i".".""!"'

;*SUBTEST

INITIALIZE PATTERNS

;ttt'ttt"tlt"""""'"'i"""i""Ql"""'Qfi""".""'t""""""'""

:THE APT E-TABLE DETERMINES WHICH PATTERNS ARE GOING TO BE RUN.

1496

;EACH BIT SET REPRESENTS A PATTERN TABLE ENTRY THAT IS TO BE LE'T

1497
1498

-=O

)
e

2OV
NN

[ 1,01, G T, Y, § PR

—

NOWVE LW

b
d
b
e

(VAR VARV AV LV LV LV RV LV, LV RV SV LV LV, ]V, ]

1499
1500
1501
1502
1503

;ALONE (T0 BE RUN).

004376
004402
004404
004410
004414
004420
004422
004426
004432
004434
004440
004444
004450
004452
004456
004462
004464
004470
004474
004500
004502
004506
004512

062552

017366
000020
004514

MOV
MOV
MoV
CALL

000010
004514

CALL

020002
000020
004514

000010
000417

;THAT

MoV

004514

MOV
MOV

MOV
MOV
MOV
CALL
MOV
MOV
CALL
MOV
MOV
MOV
CALL
MoV
MOov
CALL

EACH BIT CLEARED REPRFSENTS A PATTERN TABLE ENTRY

IS TO BE OVERLAYED WITH THE ADDRESS OF A NULL PATTERN,
#$00W0,
RO
(RO) +,R1
FMKCSRT,R3
#16..,R2
PATPLUG
(RO)+ ,R1

8. .R?

PATPLUG

(RO)+,R1
#MKPAT ,R3

#16.,R2

PATPLUG
(ROY+,R1

#8.,R?

PATPLUG
(RO) +,R1

#MJPAT ,R3
#16..R2
PATPLUG

(RO)+ ,R1

#8.,R?

PATPLUG
SUBAAA

PATPLUG:SUBTST

<<SUBR

. *SUBTEST

SUBR

PLUG

IN NULL

PATTERNS>>

;tfi"ttt'tti""""""'ii't't'ttttiiil't'llitt'.'t't!tttit"t'tt't't'tt't"t't

PLUG IN NULL PATTERNS

WIN NN NN NI A
N = O V00 ~NO W

b
b
b

W, AW, TV, LV, k¥,
IV

ad
ad
—

(VL

;'l'fittfi'.'..t'i't"t"""ttt"ttil'ttttt'lt.'ttt't"'Q'Q'i'ttt'tt'tItt"t"'t'

004514
004522

004524
004526
004532
004532
004536
004550

006001

012713

026354

062703

000002

000207

FOR | :=
#1 T0 R2
R}
ROR
ON.NOERROR
MOV #MT0999, (R3)
END ;OF ON.ERROR
ADD #2,R3
END .OF FOR
RETURN

;1F

CARRY CLEAR

SEQ 0134

CZMSDBO MSii~L/M DIAGNOSTIC

SUBR

PLUG IN NULL PATTERNS

MACRO M1113

1535 004552

SUBAAA:
R

SUBTST

PAGE 68 SEQUENCE 128

<<CLEAR THE CONFIGURATION TABLE>>

; *SUBTEST

SEQ 0135
R

)

CLEAR THE CONFIGURATION TABLE

;.tt"'t'ltt'."""""""""'.Q.'""'QQ"Q""".""'"'Qt""""""'Q"

1536
1537

1538
1539
1540
1541
1542
1543
1544
1545
1546
1547

07-0CT-80 18:01

:THIS 2EROS (UNLESS WE STARTED AT ADDRESS 202) THE CONFIG TABLE
iWHICH IS FULLY DISCRIBED AT LOCATiON "‘CONFIG''.

004552
004560
004564
004566
004572
004574

004574
004602

012700
005020
022700
001374

002624

012737

000002

18:

003630

002104

.ENABLE LSB
IF RESTART IS FALSE
MOV
#CONFIG,RO
CLR
(RD)+
CMP
#CONFIEND,RO
BNE
1%
END ;OF IF RESTART
.DSABL
LSB
MOV
#B1T1,CPUBIT
SUBTST
<<SIZE FOR A HARDWARE

;SET ID BIT
SWiTCH REGISTER>>

:'tt"t't""t""""'t""""'t"tti.t"'t.t"tt.".'t"""'"Q""'."""'

SIZE FOR A HARDWARE SWITCH REGISTER

:*SUBTEST

:'t'it"'tt."t""i""""'t"""...'QQ'.'.'."'"""Q"""Q""Q"""'.'Q

1548

;;1F NOT FOUND OR IT

1549

S'EQUAL TO A ''=1'",

1550

1551 004602
1552 004610
1553 004616
1554 004624
1555 004634
1556 004636
1557 004642

1558 004644

1559 004666
1560 004674
1561 004702
1562

_ENABL

012737
012737

177570
177570

000403
012716

004644

012737
012737

000176
000174

000002

002576
002600
38:
002576
002600

LSB

SETUP FOR A SOFTWARE SWITCH REGISTER.

SET4
#38
MOV
#DSWR, SWR
MOV
#DOISP,DISPLAY
IF #-1 EQ aSWR
BR
2%
MOV
RT]

RES4

MOV
MOV
END ;OF
.DSABL

#28,(SP)

;TRAPS T0 4 GOTO 3$
::SETUP FOR A HARDWARE SWITCH REGISTER
::AND A HARDWARE DISPLAY REGISTER
:1F NO TRAP FROM REFERENCE TO @SWR AND aSWR = #-1
*;BRANCH IF NO TIMEOUT
:'SET UP FOR TRAP RETURN

;RESET TRAPS TO 4 TO DEFAULT

#SWREG,SWR
:;POINT
#DISPREG,DISPLAY
If #-1
LSB

TO SOF TWARE

SWR

C(IMSDBO MSii-L/M DIAGNOSTIC

S1Zt FOR A HARDWARE

MACRO M1113

SWITCH REGISTER

(07-0CT-80 18:01

SUBAAB:

1565 004702

SUBTST

XXX

S «SUBTEST

¢ 1

PAGE 70 SEQUENCE

129

SEQ 0136

<<SETUP ACT, APT, & XXDP>>

R R R X R

AR AR 2R

SETUP ACT, APT, & XXDP

R RN ARARRARARRARRARRRRRRRRRARR
RN R 2]

;'t't"'t'ti"Q""""'it""""""'..Qt't"""'i'tt."."""Q'QQ'Q""."'

1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1527

;THIS SETS UP A BUNCH OF

004702
004706
004716
004724

062474

004724

004734
004742
004742
004752
005002

1578 005010

1579
1580
1581
1582
1583
1584
1585
1586
1587
1588

005037

005016
005020
005036
005052
005062
005070
005072
005100
00570C
005100

012737

045210

062510

F_AGS TO TELL

THE PROGRAM EVERYTHING

.17 CARES TO KNOW ABOUT APT, ACT, & XXDP.
;CLEAR PASS COUNT
$PASS
CLR
SENVM
SET.IN
IFB #BITS
SET
STPFLG
;INDICATE NO TERMINAL

000024

002576

END ,OF IFB #BITS
IFB #BIT7 SET.IN SENVM
SET
APTSIZE
END ;OF IFB #BIT7
IFB SENV EQ M
APTFLAG,QVFLAG,$AUTO,QUICK
SET
MOV

MOV

ELSE

#APTDOWN,PWRVE(

#SSWREG,SWR

;USE APT SWR

IF 42 NE #STACK AND 42 NE #0
SET QVFLAG,$AUTO

IF 42 EQ #SENDAD

SET
ELSE
SET

END ;OF

ACTFLAG

XXDPCHAIN

IF 42

END ;OF IF &2
END ;OF IFB SENV

CIMSDBO MSil1-L/M DIAGNOSTIC
SETUP ACT, APT, & XxXDP

MACRO M1113

(07-0CT-80 18:01

SUBTST

1590 005100

H 11
PAGE 71 SEQUENCF

130

SEQ 0137

<<PROTECT PROGRAM & LOADERS>>

;"'t""'.t""""""""""'t"'Q".l'tt""'"""t""."""""""""

;*SUBTEST

PROTECT PROGRAM & LOADERS

;t't""""t"""""'""t"'t'.QQtt't.l""""""'."Q"'."'Q""""Q"'

1591
1592
1593
1594
1595
1596

005100
005106
005114
005124
005130

052737
052737

000200
000200

BIS
#B117,CONFIG
#B1T7,CONFIG*L
BIS
IF #SENDAD NE 42

0026¢4
002630

TYPE
MSGOOO
END ;OF IF W#SENDAD

SUBTST

1597 005130

;PROTECT PROGRAM SPACE (BANK 0)
;PROTECT LOADER SPACE (BANK 1)
JNOT ACT=-11?
;TYPE PROGRAM TITLE

<<CHECK SYSTEM FOR CACHE>>

;t"t"'t""""fi'"i"""i""'ttt't.Q..t"'""'t't""t""""""'...".'

;*SUBTEST

CHECK SYSTEM FOR CACHE

;"tiQQ"'t't.t""""""("""t’t'.'t't"t"lt"""'"."'QQ""""""'Q.

1598
1599
1600
1601 00513C
1602 005136

—

1603 005142
1604 005150
1605 005154
005162
005166
005172

005174
005200
005202
005206
005214
005222
005230
005232
005240
005242
005246
005250
005256
005262
005264
005270

;* THIS FIGURES OUT If THERE IS A CACHE ON THE SYSTEM,
:* WHAT TYPE OF SYSTEM IT IS, AND WHETHER [T IS ENABLED

005737

177746

005737

177750

005737

177754

.* OR DISABLED.
#33
SET4
TE;‘

1%:

000402

052737
042737
032737
001004
032737
001413
104424

013737
005037
000404

000014
000014
000004

177746
177746

000010

177746

2%:
A ¥

177746

;1S THERE A CONTROL REGISTER?

TST
SET4
ST
TYPE
BR
TYPE
BR
TYPE

MAINT
”ns
DATARG
MSG117
4%
MSG116
4%
MSG118

;1S THERE A MAINTENANCE REGISTER?

BIC
BIT

#BIT2'BIT3,CONTRL
#BIT2,CONTRL

;CLEAR CACHE DISABLE BITS
;1S THE BIT SET?

BIT
BEQ

#BiT3,CONTRL
69

;1S THE BIT SET?
;BRANCH |F THE BIT

81§
BNE

7%:

002514
002514

ngTRL

000405

(LR

1 ¥
6%:

’

#BIT12'8]T3,CONTRL
7%

TYPE
MSG121
FF
CACHO

MoV

002516

BR
TYPE
TYPE

;1S THERE
. 117464

;

11734

11760

;SET CACHE DISABLE BITS

;BRANCH [F
.

THE BIT

CACHE BYPASSED

CACHKN, CACHKN+?

;SAVE

MSG119
MSG120

.
:

g:CHKN

A DATA REGISTER?

[S SET

INFO ABOUT CACHE

;CACHE CANNOT BE USED - IT'S BYPASSED
NO
CACHE

AVAILABLE

CIMSDBO MSil-L/M DIAGNOSTIC

CHECK SYSTEM FOR CACHE

MACRO M1113

1672 005274

XXX

SUBTST

LeSUBTEST
S

1673
1674
1675
1676
1677
1678
1679
1680

005274
005276
005302

005737
001011

002426

005304
005312

042737
052737

030000
010000

1681 005320
1682 005324
1683
1684

1685 005326
1686
1687 005334
1688 005340
1689
1690 005342

104421

030000

2ZZ2 XXX

8s:

d
i

R R Z RS R

R X

R R

AR R

SETUP USER & SUPERVISOR STACK
R

R R

R X

R R

;TURN OFF MEMORY MANAGEMEN"
1S

THERE

RRRRRRRA])

A SUPERVISOR MODE?

INO-SKIF SUPERVISOR SETUP.

#BIT13'B1T12,PSW
#BIT12.PSW

PUSH
MIP]

#SUPSTK
SSP

PUSH
MTP]

#USESTK
USP

SUBTST

<<GET SOFTWARE SWITCH REGISTER [F NECESSARY>>

:it't"'t't".t"."t"'"'"""QQQ.Q'.Q'Q."Q"'QQ'Qtt.""""'t""""""'
2

GET SOF TWARE SWITCH REGISTER [F NECESSARY

2222222222222 22X

22X

XX 22

IF $AUTO IS FALSE
IF SWR EQ #SWREG
GTSWR

104407

END ;OF IF SWR
END ;OF IF $AUTO
SUBTST

<<GET MEMORY MANAGEMENT

S22

RRRRRRRRRRRARRRRR)

;IF NOT(APT OR ACT)
:1F SOFTWARE SWITCH REG SELECTED
;;GET SOFT-SWR SETTINGS

READY>>

X22223232222x32222222X2
2222222222222 2R 000
R
RRRRRRRRRRRRRRRRRRR A

~N N~

BIC
8IS

: «SUBTEST
—

;SET PREVIOUS MODE TO USER
B1S
#BIT13'B1T12,PSW

177776 S$:

006606

1702
1703 005362

005362
005364
005400

;SET PREVIOUS MODE TO SUPERVISOR

177776
177776

1697 005362
1698 005362

:*SUBTEST
1694 005342
1695 005350
1696 005360

NOSUPER

BNE

5£0 0138

<<SETUP USER & SUPERVISOR STA(K>>

DEENERGIZE

006606

052737

I 1
PAGE 72 SEQUENCE 131

07-0CT-80 18:01

104422

104420

KMAP
MAP
ENERGIZE

GET MEMORY MANAGEMENT READY
R

;MAP KERNEL SPACE 1 10 1
;MAP SUPERVISOR SPACE (TEST AREA)
;TURN ON MEMORY MANAGEMENT

TO 1

RLL Y

CZPSDBO MSi1-L/M DIAGNOSTIC
GET MEMORY MANAGEMENT READY

MACRO M1113

1715 005402

07-0CT-80 18:01
NEWTST

005402

<<BIT TEST OF

ALL (SR'S>>

;"tt.tt"tttt'Q"'t't't"t't"tttttt'tt"'ttttt'nnt't'ttt"ttttt"""t'ttt"t'

LeTEST

1716

J 1
PAGE 74 SEQUENCF 132

BIT

TEST

ALL (SR'S

"'fitt'tttt't"t't't""'t'tt't"'tttt'ttttttttt'tt'tt"ttttt't"t"t"t't"ttt'

0C0004

TST1:

SCOPE

1) FINDS WHICH CSR'S RESPOND, AND PUTS THEM INTO THE CSR INFORMATION

;* THE FIRST PART OF

1717

1718
1719
1720
1721

ot
o
N
i

1722
1723

1724
1725
};59

THE CONFlGURATION ANALYSIS DOES THE FOLLOWING:

TABLE, AND STORES ANOTHER 8IT FOR "'TOT(CSRS''
2) TESTS THE CSR BITS COMMON TO ALL CSR'S.
3) FIGURES OUT IF THERE IS AN EUB BIT, AN ECC BIT, AND THE EXISTANCE
OF THE ERROR ADDRESS BITS, AND MARKS THIS IN THE (SR

M
.

INFORMATION TABLE.
TESTS THE BITS PARTICULAR TO THAT TYPE OF

(SR.

M
§) IF ANY BITS TEST BAD IN THE (SR UNDER TEST, THE (SR OK BIT IN THE
B
CSR INFORMATION TABLE IS CLEARED.
X 8?Ecé:FORMATION BITS ONE THROUGH THREE FORM A CODE WHICH GIVES THE TYPE

1728
1729

.t
o

1730
173
1732
1733
}ggg

TYPE
UNIBUS PAR]ITY
MS11-L
MF11S-K
MS11-M

;*
o
i
o
;* 11/45 BIPOLAR

ERR. ADDR.
BIT2

1
1
1
1
0

PARJTY
BIT
1
1
0
0

NOT EUB
BITO
1
0
1
0

CODE TOTALS
7
6
5
4

};gg

;* THIS MEMORY CODE WILL BE USED IN +*HE StCOND PART CF
B

1738
1739
1740
1741
1742
1743
1744
1745
1746

005404
005406
005410
005414
005422
005430
005432
005436
005440

1747 005446
1748 005454
1749 005460
1750 005462
1751 005466
1752 005472
1753 005474
1754 005502
1755 005504
1756 005510
1757 005514
1758 005516

1759 005524

1760 005530
1761 005534
1762 005536
1763 005542
1764 005546
1765 005550

005005
005000
012703
012737
005713
052705
005004
052760

052760
004537
100001
012713
032713
001403
042760
005013
012713
032713
001417
042760

012713

004537
000010
012713
004537
000022
012713

172100
000001

002074
1%:

000001
000007

000030
006010

002432

040000
040000
000001

002432

020000
020000
000002

020000

006010
020000
006010
020000

002437

THIZ ANALYSIS

]

LLR
CLR
MOV
MOV
SET4
TST
BIS
CLR
BIS

RS
;RS 1S THE TOTAL CSR NUMBER
RO
:RO IS A TABLE INDEX
#CSRADD,R3
:R3 HAS THE (SR ADDRESS
#1 ,NOPAR
:IGNORE PARITY ERRORS
2%
(R3)
;DOES THE CSR RESPOND?
#1,RS
R4
;CLEAR THE LAST CSR INDICATOR
#7,CSRINFG(RO)
;SET ALL THE MEMORY INFO BITS

MOV

081113.(R3)

BIS
JSR
.WORD
MOV
BIT
BEQ
BIC
(LR
MOV
BIT
BEQ
BIC

JSR
.WORD
MOV
JSR
.WORD
MOV

#BIT4'BITS,CSRINFOCRO)
;YES-MARK IT IN CSR INFORMATION TABLE
RS,TEST
:TEST BIT 0 AND 15
81T15!8110
#1114, (RY)
;IS THERE A BIT 14 RESPONDING
#B1T14, (R3)
;CIT*S THE EUB BIT)
3%
:BRANCH IF NO EUB BIT
#BITO,CSRINFOCRO) ;CLEAR EUB INFO IN THE (SR TABLE
(R3)
;CLEAR THE CSR UNDER TEST
#BIT13,(RY)
;:DOES BIT 13 RESPOND
#BIT13,(RY)
:(T0 TEST FOR ECC CSR)
4
;BRANCH JF NOT ECC CSR
#BIT1,CSRINFO(RO) :CLEAR PARITY INFO IN THE (SR TABLE

RS, TEST
BIT}
01713, (RY)
RS, TEST
BIT4!'BITY
#BIT13,(RY)

SEI THE INHIBIT MODE POINTER TO 1ST 16k
;TEST BIT 3

JTEST BIT 1 AND &

SEQ 0139

—

MSDBO MSi1-L/M DIAGNOSTIC

BIT TEST OF ALL CSR'S

1767 005554

1768 005560
1769 005562

1770 005564
1771 005570
1772 005574
1773 005576
1774 005602
1775 005604
1776 005606
1777 005614
1778 005622
1779 005624
1780 005632
1781

1782
1783
1784
1785
1786
1787
1788
1789

004537

006010

052713
032713
001404
004537
007740
000403
042760
032760

007740
007740

000004
005013

001014
032760
001410

000004
000002

002432
002432

000001

002432

012713
022713
001403
042760
005013
022760
100004
016037

007760
007760

1791 005676

1793 005706
1794 005714

1792 005704

000001

002432

000040

002432

002050

032760

000004

002432

032760
001404

000002

002432

104021

001016

1795 005716
1796 005724

032760
001006

000001

002432

002050

1799 005736
1800 005742
1801 005746

005060
062700
062703

002432
000002
000002

1797 005726
1798 005734

1802 005752

1803 005754
1804 005756
1805 005760
1806 005764
1807 005766

1808 005770
1809 005772
1810 005774
1811 005776
1812 006002
1813 006006
1814
1815 006010

1816 006012

1817 006014
1818 006016
1819 006020
1820 0060264
1821 006030
1822 00603¢
1823 006036

016037
104021

006305

JSR

5$:
6%:

BIS
BIT
BEQ
JSR
LWORD
BR
BIC
BIT

7%:

10%:

11$:

28:

103001

005204
022700
001221

000040

8$:

000241

006005
005704
001402
052705
010537
000437

LWORD
CLR

BNE
BIT
BEQ

100000
002216

9% :
TEST:

050113

002146
002042
100020

K 11
PAGE 75 SEQUENCE 133

RS, TEST

BIT2
(R3)

SEQ 0140

;TEST BIT 2

#7740, (R3)
:ARE THERE ERROR ADDRESS BITS?
#7740, (R3)
5$
:BRANCH IF NO ERROR ADDR. BITS.
RS,TEST
STEST BITS S5=>11
7740
6%
:SKIP OVER THE INFORMATION REPORTING
#B172,CSRINFO(RO) ;REPORT THAT THERE ARE NO ERROR ADDRESS BITS.
#BIT1.CSRINFO(RO) ;1S THIS CSR AN ECC CSR?

78
:BRANCH [F NOT
#B1TO,CSRINFO(RO) ;IS THE EUB BIT SET?
7
:BRANCH IF IT IS
_WE MUST NOW TEST FOR MSi1-M ON THE UNIBUS

MOV
CMP
BEQ
BIC
CLR
CMP
BPL
MOV

ERROR

#7760, (R3)

;PUT PATTERN § SBE BIT INTO BITS 4=->11
<ARE THEY STILL THERE?
*YES - BRANCH FOR MF11S-K (SR
#B1TO,CSRINFO(RO) ;NO - SET EUB BIT FOR MS11-M
(R3)
:CLEAR CSR
#60,CSRINFO(RO) ;IS THIS A LEGAL CONFIGURATION?
10$
:BRANCH IF [T'S LEGAL
CSRINFO(RO) ,BAD

#7760, (R3)
7%

+21

;ILLEGAL TYPE ERROR

:BRANCH IF TRUE

BIT

#BIT2,CSRINFO(RO) :DOES THIS CSR HAVE ERROR BITS

BIT
BEQ

#BIT1,CSRINFO(RO) ;ARE THE OTHER 2 BITS SET?
11
-BRANCH IF NOT

BNE
BIT
BNE

#B1T0,CSRINFO(RO)
2%

CLR
ADD
ADD
ASL
BCC
INC
CMP
BNE

CSRINFO(RO)
#2.R0
#2,R3
RS
8$
R&
#40,R0
1%

MOV
ERROR

cLe

012501

030113
001013
011337
010137
032713
001004
104035

(07-0CT-80 18:01

L$:

006010

005634
005640
005644
005646
005654
005656
005564
005665

1790 005674

MACRO M1113

CSRINFO(RO) ,BAD
+21
:ILLEGAL TYPE ERROR

sCLEAR THE CSR INFO=IT WILL NOT EXIST IN THE PROGRAM
- INCREMENT TO NEXT CSR TABLE
*INCREMENT TO NEXT CSR
;1S THERE A CSR 0?
SYES - SET CSR PRESENT FLAG
:ARE WE DONE?
;BRANCH IF MORE 10 (O

ROR
RS
:RESYNC RS
TST
R&
;WAS THERE A (SR 0?
BEQ
9%
:BRANCH [F NOT
BIS
#BIT15,RS
“YES - SET IN THE CSR TABLE
MOV
RS, TOTCSRS
:STORE RS IN TOTCSRS
BR
CTEST
:JUMP GVER SUBROUTINE
:THIS SUBRCUTINE TESTS THE CSR BITS
MOV
(RS)+,R1
;GET THE BIT TO TEST

BIS

BIT
BNE
MOV
MOV
BIT
BNE
ERROR

R1, (RY)

SSET THAT IN THE CSR UNDER TEST

R1,(R3)
*1S THE BIT STILL THERE?
13
:BRANCH IF STILL THERE
(R3),CSR
:READ CSR
R1,G0O0D
#BITIS'BIT4,(R3);
1S IT BECAUSE OF A SBE OR DBE?
1%
:BRANCH [F IT IS
+35
:BIT SET ERROR

B1T TEST OF

[o T ) [0 Yo Yo -To To Yo Jo To Jo ]
NN AN WA
NI NI NI NI N
PV
[ 8] — O 000 ~O~ (.

D e

006040
006046
006050
006052
006054
006060
006064
006070
006072
006074
006102
1835 006104

—— D

—
i

MsoBs0 MSi1-L/M DIAGNOSTIC

ALL CSR'S

042760
040113
030113
001413
011337
010137
032713
001004

104010
042760
000205
0C0000

000010

MACRO M1113

002432

07-0CT-80 18:01

L1
PAGE 75-1 SEQUENCE

#BIT3,CSRINFO(RO)

1%:

;CLEAR (SR OK BIT

;CLEAR THE SELECTED BIT

2%
(R3),CSR

‘BRANCH IF
‘READ CSR

R1.(R3)

R1,6000

002432

2%:

TRACE
:

SEQ 0141

R1, (R$)

;1S

#BiT15'81T4, (R3);1S

000010

134

IT CLEARED?

1S CLEARED

IT BECAUSE OF

'BRANCH [F

TRUE

A SBE OR DBE?

‘BIT CLEAR ERROR
+10
ngr},csaxuro<no> :CLEAR CSR OK BIT
.WORD

9 MSDBO MSi1-L/M DIAGNOSTIC
"
BIT TEST OF ALL CSR'S

MACRO M1113

1
1839 006106
1840 006110
1841 006116

CTEST:

177777
002000

MOV
MOV
MOV

100000
100002

CLR
CLR

002146
002216

1847 006152

000002
002146

1%:

2$:

012771
012760
00577
016004
032760
001403
005704

000002

002472

000004
123456
123456
172100

172100
000000
000002

000000
123456
123456
020006
000000
172100
000002

172100
000000
000002
172100

5%:

002432

023727
001402
000137

7%:

177773
177600

000157
8%:

002502
000000
000000

002502
007004

000000
000002
177777

MOV
NOP
ASL
BCS
ADD
MOV
TST
BEQ

#177777,PGMCSR
#2000,KIPARSL
#TESTADD ,R1"
#100000,TESTADD
:AOOOOZ.TESTADD'Z
CSRNOC
TOTCSRS,R3

SEQ 0142

sBRANCH [F CSR EXISTS

;IS MAP EMPTY?
;BRANCH [F SO

;UPDATE (SR COUNTER

#2,R0
RO,CSRNO
R3

#BIT1,CSRINFOCRO)

BIT
BEQ
TST
BMI
BR

NOP
ASH
BIC
CMP

BNE

MOV

NOP
CLRCSR
MOV
MOV
CMP

BEQ
JMP

INTO C BIT

BIT
BEQ
BIS

MOV
MOV
MOV
MOV
ST
MOV

;CLEAR CSR COUNTER

;PUT HIGH ORDER BIT

CLR
BR

- ¢SET UP MAP REGISTER

;OBTAIN CSR MAP
;DEBUG AID

NUP.
CLC

MOV
MOV

100411

000720
000240
072427
042704
022704
001310
010037
000240
104502
01271
01271

CACHOFF

MOV

002362

006124
006130
006136
006144
006146

1848 006156
1849 006160
1850 006162
1851 006164
1852 006170
1853 006174
1854 006176
1855 006200
1856 006202
1857 006204
1858 006206
1859 006214
1860 006216
1861 006224
1862 006232
1863 006240
1864 006244
1865 006246
1866 006254
1867 006262
1868 006270
1869 006276
1870 006302
1871 006306
1872 006314
1873 006316
1874 006320
1875 006322
1876 006324
1877 006326

nn
PAGE 76 SEQUENCE 135

:THE FOLLOWING ROUTINE DETERMINES WHICH CSR CONTROLS PROGRAM SPA(E

1842
1843
1844
1845
1846

07-0(T-80 18:01

5%
¥B112,CSRADD (RO)

#123456.,a(R1)

#123456.32(R1)

CSRADD (RO)
6%
20,

CSRADD (RO)

#123456,a(R1)

#123456.22(R1)
#20006, CSRADD (RO)
a(R1)

, R4
DD
(RO)
CSRA

#BIT1,CSRINFO(RO)
7%
R4

8s
is

#-5, R4
#Ci77.R4
$157,Ré
1%
RO,PGMCSR
#0,3(R1)

#0,82(R1)

PGMCSR, #177777
FINT

CLRMEN

: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
JWRITE CSR TO R4
JPARITY MEMORY?
;BRACH IF NOT
!PARITY ERROR?

:BRACH IF SO

;sTRY NEXT

:DEBUG AID

CSR

;CORRECT CHECKBITS?
;BRANCH [F NOT
;DEBUG AID

:CLEAR ALL CSR'S
sRESTORE TEST LOCATIONS

;1F PROGRAM (SR NOT FOUND GO TO FINT
:GO TO SIZING ROUTINE IF FOUND

CZMSDBO MSi1-L/M DIAGNOSTIC
BIT TEST OF ALL CSR'S

1897 006426
1898 006434
1899 006436

1900 006442
1901 006446

1902
1903
1904
1905

006452
006456
006460
006462

1906 006464
1907 006466

27 006604
28 006610

;TO FIND IT FOR

01271
012771
062737
000766
012700
013703
062700
010037
006303
103403
005703
001405
000767
012760
000763

123456
123456
010000

012700
012737
005771
062700
010037
022700
001515
016004
072427
042704
022704
001401
000757
110037

177776
002000
000000
000002
002146

012700
013703
062700

177776

010037
006303

000000
000002
172350

2s:

177776
002216
000002
002146

020006

INT:
$:

3%:

172100

5%:

17235C
:
63

000040

Pl
2

°§
33

~NO

39
40
1941
1942
1943
1944
1945
1946

006652
006656
006662
006666

006670
006674
006700
006704

005703
001405
000767
012760
000763
012700
005771
062700
010037
022700
001442
016004
072427
042704
022704

7%:

002216
900002
002146

000002
000002
002146
000040
172100
177773
177600

000157

MOV

SET4

MOV
MOV
TST
ADD
MOV

MOV
ASH
8IC
CMP

002502

177776

MOV
MOV
ADD
BR
MOV
MOV
ADD
MOV
ASL
BCS
TST
BEQ
BR

CMP

172100
177773
177600
000157

020006

SETé

BEQ

23$:

103403

—‘—.-‘—.‘—lddddd—.d-‘-fl_‘—.—l-‘—.—.-J—J—l—l—l—a_.—‘—b—.-‘

V00000000 V000 VOOV OOL OV OOV OOV OOVO VOV OOVO

AORNVPNVPNVPTONIN)
b cd ed b e b ek ek =2 O
VIS W
= O OVONO VS WN—-2OO

1908 006470
006476
006500
006506
006512
006520
006524
006530
006534
006540
006542
006546
006552
006556
006562
006564
006566
006572

07-0CT-80 18:01

N 11

PAGE 77 SEQUENCE 136

SEQ 0143

: IF PGMCSR WAS NOT FOUND BY THE PRECEEDING ROUTINE, THIS ROUTINE TRIES
—

1890
18N
1892
1893
1894 006404
1895 006412
1896 006420

MACRO M1113

172100

:
248

BEQ
B8R

Move

SET4

MOV
MOV
ADD
MOV
ASL

BCS
1ST
BtQ
BR
MOV

25%:

MOV

8%:

ADD
MOV

TST

CMP
BEQ
MOV
ASH

BIC

(MP

INTERLEAVED MEMORIES

”?2s
#123456,a(R1)
#123456,82(R1)
qIOOOO.KIPARk

;NE MEMORY TRAPS GO TO 2%
;WRITE DATA AT FIRST LOCATION OF BANK 2 [N BOARD
;WRITE DATA AT SECOND LOCATION OF BANK 2 [N BOARD
:UPDATE PAR4 TO POINT TO UPPER BOARDS

#-2,R0
TOTCSRS,R3
#2,R0
SO.CSRNO

;PUT (SR MAP [N R3
;UPDATE (SR COUNTER

;KEEP GOING TILL NO MORE MEMORY

;UPDATE CSRNO

;BRANCH [F (SR EXISTS
;ANY (CSR'S LEFT?

3%
#20006 .CSRADD (RO)
3s
#6$
#-2,R0
#2000,K1PAR4
3(R1)
#2.R0
RO . CSRNO

#40.R0
10%

O)
CSRADD(R,R4

¥-5,R4

#°C177
R4
#157 ,Ré
7%
6$
RO,PGMCSR
#8%

TOTCSRS,R3
#2,R0
RO, CSRNC
R3
24$
R3
25%
23%
#20006,CSRADD(RO)

23%

#-2,R0
22(R1)

;BRANCH IF NOT
;LOOK FOR NEXT CSR
;SET DIAGNOSTIC CHECK MODE IN CSR
;LOOK FOR NEXT (SR
;NE MEMORY TRAPS NOW GO T0 6%
sRESET CSR POINTER
;REMAP PAR4 TO POINT TO BANK ¢

;TEST NONASSERTED LOCATIONS
;UPDTAE CSR POINTER
sNOT FOUND?
:BRANCH IF NOT
;GET CSR CONTENTS

;CLEAR ALL BU1 CHECKBITS
:PROPER CHECKBITS?

;BRANCH IF SO

:TRY NEXT CSR IF NOT

WRITE NON-ASSERTED CSR # IN PGMCSR
:NE TRAPS GO TO 8%

;PUT CSR MAP [N R3

sUPDATE CSR COUNTER
;UPDATE CSRNO

;BRANCH IF CSR EXISTS
:ANY CSR'S LEFT?
:BRANCH [F NOT
:LOOK FOR NEXT CSR
;SET DIAGNOSTIC CHECK MODE IN CSR
;LOOK FOR NEXT CSR
;TEST ASSERTED LOCATIONS

RO, CSRNO

2.6,
R0
10

CSRADD (RO) ,R&
;PROPER CHECKBITS?

MS11-L/M DIAGNOSTIC

BIT TEST OF

006710
006712
006714
006720
006726
006730
3 006736
006744
006752
006760
006766
006770
006772
006774
007000

ALL CSR'S

001401
000757
110037

052737

002503

MACRO M1113

100000

002502

012737

002000

172350

012771
012771
062737
000766

000000
000000
010000

000000
000002
172350

104502

104423
000404

005037

9%:

1¢-

129%:

002502

10%:

07-0CT-80 18:01

B_12
PAGE 77-1 SEQUENCE 137

BEQ
BR

BIS
CLRCSR

#BIT15,PGMCSR

Mcve

8$
RO,PGMCSR+1

MoV

#2000,KIPARS

MOV
MOV
ADD

:}QOOO.KIPARL

SET&

#12$
#0,a(R1)
#0 ,a2(R1)

CLRMEM

MSG125
PGMCSR

SEQ 0144

;BRANCH [F

;TRY NEXT CSR IF NOT
;WRITE ASSERTED CSR # [N PGM(SR
sSET

INTERLEAVED

INDICATOR

IN PGMCSR

;NE MEMORY TRAPS GO TO 12%
;WRITE DATA AT FIRST LOCATION OF BANK 2 IN BOARD
;WRITE DATA AT SECOND LOCATION OF BANK 2 [N BOARD

;UPDATE PAR4 TO POINT TO UPPER BOARDS
;ERROR = PROGRAM (SR NOT FOUND.
;SET TO DEFAULT OF 0

CIMSDBO MSi1-L/M DIAGNOSTIC
"
BIT TEST OF ALL CSR'S

MACRO M1113

07-0CT-80 18:01

SUBTST

1963 007004

¢ 12
PAGE 78 SEQUENCE 138

SEQ 0145

<<CLEAR ALL MEMORY SPACE FROM BANK 2 ON>>

:tt"t"""""""""""""""t"'."""t""Q'i't""'t't""t'.""".'

CLEAR ALL MEMORY SPACE FROM BANK 2 ON

s *SUBTEST

:it"t""i'tt""""""tt"t"".".t"""ti'Qttt't"Q't"'t't"""""""

1964
1965

:THIS ROUTINE CLEARS ALL MEMORY SPACE BEGINNING AT ADDRESS 200,000 AND

1967
1968
1969

;CONTINUES UNTIL THERE IS NO MEMORY LEFT. IT SHOULD CLEAR ANY PARITY ERRORS
:fi?EaESDHELO;HE LAST ROUTINE, AND CLEAN UP ANY JUNK LEFT HANGING AROUND IN

1966

1970 007004
1971 007012
1972 007016

1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988

007024
007032
007036
007042
007044
007052
007054
007060
007062
007064
007072
007076
007102
007104
007106
007112

005037
012737
012737
012701
020127
001003
012737
005021
005737

001001
000765
062737
005037
012701
000755
000240
005037

006104
000001
002000

100000
177776

177777

:NONEM TRAPS GO 10 CLREX

MOV

#1 NOPAR

:1GNORE PARITY ERRORS

MOV

#100000,R1

:R1

CLR

002074

172350

MOV
1$:

006104

172350

28:

3%:

100000

006104

#CLREX

CLRMEM: SET4

006104

001000
006104

CLREX:

CMP

BNE

MOV
CLR
ST
g:e

TRACE

#2000,KIPARPL
R1.#177776

#-1,TRACE
(R15+
TRACE
?z

ADD
CLR
MOV
BR

#1000,KIPARG
TRACE
#100000,R1
1%

(LR
RES&

TRACE

NOP

:SET UP MAP TO START AT BANK 2
MAPS TO KIPAR&

TWHOLE 16K BANK DONE?
*KEEP GOING IF NOT

‘USE TRACE FLAG TO FLAG END OF BANK
“CLEAR CONTENTS & INCREMENT
“EOB FLAG SET?
160 TO NEXT BANK

:SET MAP FOR NEXT BANK
‘RESET FLAG
SRESET R1
;CLEAR NEXI BANK

(ZMSDBO MSil-L/M DIAGNOSTIC
MACRO M1113
CLEAR ALL MEMORY SPACE FROM BANK 2 ON
1991 007134

07-0CT-80 18:01

ANA2:
R

SUBTST

;*SUBTEST

D 12
PAGE 80 SEQUENCE 139

<<KMATCH ALL CSR'S WITH MEMORY>>
T

MATCH ALL CSR'S WITH MEMORY

SEQ 0146
TR R

R R

.‘ttt'tt"Q."l"'t""t""""tt'QQtt""'fi"t"""'t'tt't't"'t'tt""t't""

1992
1993
1994
1995
1996
1997
1998
1999

;*
;*
;*
;*
;*
;*
;*
;*

2002
2003
2004
2005
2889

;* INE CHECKS FOR SINGLE OR DOUBLE BIT ERRORS.
o
IF ONE OR THE OTHER IS FOUND, THE ERROR ADDRESS IS CHECKED

2000
2001

THE SECOND PART OF THE ANALYSIS MATCHES UP THE CSR'S WITH THE MEMORY, AND
INSTALLS ALL THE INFORMATION FOUND IN THE CCNFIGURATION TABLE.
FOR ECC,
THIS 1S DONE BY TAKING EACH CSR FOUND IN THE PREVIOUS SECTION SEQUENTIALLY
AND CHMECKING THROUGH ALL OF MEMORY, ONE BANK AT AT TIME, TC SEE WHICH BANKS
RESPOND TO THE CSR iIN QUESTION. THE FIRST DOUBLE WORD PAIR IN EACH BANK ARE
WRITTEN WITH DATA AND DIAGNOSTIC CHECK MODE SET IN THE CSR IN ORDER TO A(COMPLISH THIS. ALL POSSIBLE CONFIGURATIONS OF DOUBLE WORD PAIRS (NON-INTERLEAVED, 64K INTERLEAVED, OR 12BK INTERLEAVED) ARE CHECKED FOR EACH BANK

;* THROUGH USE OF TESTADD AND KERNEL INSTRUCTION PAGE ADDRESS REGISTERS 4 AND
;* 5. IF WE GET THE PROPER CHECKBITS BACK, WE HAVE A MATCH. IF NOT, THE ROUT-

;v 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
;v 'I'', WHICH DENOTES THE FOLLOWING:

2008

2010
2011

i
i

2009

2012
2013
2014

MEMORY DESCRIPTION

0
1

NON-EXISTANT MEMORY
NON-INTERLEAVED MEMORY

128K INTERLEAVED, A1 ASSERTED MEMORY

‘.
X
i

2
3
4

64K INTERLEAVED, A1 NOT ASSERTED MEMORY
128K INTERLEAVED, A1 NOT ASSERTED MEMORY
64K INTERLEAVED, A1 ASSERTED MEMORY

58}2

%8};

2019
585?

:* NOTE THAT PARITY MEMORY WRITES WRONG PARITY TO THE DOUBLE WORDS, THEN LOOKS
;% FOR THE PARITY ERROR BIT TO BE SET.
IF THE BIT IS SET, WE HAVE A MATCH,

2022 007134
2023 C€07142
2024 007146
2025 007152
2026 007156
2027 007160

2028 007162

2029 007166

203C 007170
2031 007174
2032 007176

2033 007204
2034 007206
2035 007212
2036 007214
2037 007220
2038 007224

005037

002274

005737

002424

005037
000413
022737

002530

012701
013703
005000
005005

001403

001407
013702
005202
072227
010237
012702

002362
002216

000167

2041 007244
2042 007246
2043 007250
2044 007254

012737

002526

006303
103420
062700
010037

7%:

002526
000011
002530
000004

001000

000002
002146

SFT4
CLR
MOV
MOV
CLR
CLP

#6$
CHECK
#TESTADD,R1
TOTCSRS,R3
RO
RS

:NE MEMORY TRAPS GO T0 &
;CLEAR CHECK
;SET UP THE VIRTUAL ADDR. POINTER
;MOVE CSR MAP INTO R3
;CLEAR THE (SR POINTER
:CLEAR THE PROGRAM (SR STATUS POINTER

BEQ

;BRANCH IF IT IS

1ST

2039 007230 012737 001000 172350
2040 00723%6

NOTE = 1=2 THROUGH 1=5 CAN ONLY OCCUR WITH MS11-M MEMORY.

172352

1$:

2%:

NO22BI1T

CLR
BR
(MP

LASTBLOCK
1%
#167,LASTBANK

MOV

#1000, K 1PARS

BEQ
MOV
INC
ASH
MOV
MOV

MOV

ASL
BCS
ADD
MOV

1%
LASTBANK ,R2
R2
9. ,R
R2,LASTBLOCK
# R2

#1000,K1PARS
R3
3%
#2,R0
RO, CSRNO

;IS THIS AN 11/44 OR 11/24?

;ADJUST LASTBLOCK INDICATOR FOR 124K MACHINE
;BRANCH OVER NEXT PIECE OF CODE
;1S THERE UNIBUS MEMORY ABOVE 170000007
;BRANCH IF NOT
;SET UP A NEW LAST BLOCK INDICATOR

;R2 IS INDEX FOR CONFIG TABLE

;SET K{PAR4 FOR BANK 1

;SET KIPARS FOR BANK 1

;DOES THIS (SR EXIST?
;BRANCH IF 1T DOES EXISY
; INCREMENT THE (SR POINTER
;STORE IT [N CSRNO ALSO

(ZMSDBO MSil1-L/M DIAGNQSTIC
MATCH ALL CSR'S WITH MEMORY

2045 007260
2046 007262
2047 007264

005703
001370
012737

2049 007300
2050 007304
2051 007310
2052 007314
2053 007316
2054 007320

013706
000137
010037
104424
000240
012737

2048 007272

2055 007326

2056
2057
2058
2059

007334
007342
007344
007350

2060 007354

2061 007360

2062 007364
2063 007374
2064 007402
2065 007404

2066 007412
2067
2068
2069
2070
2071
2072

007420
007426
007432
007434
007442
007450

2073 007452
2074 007454

172350

;ARE THERE ANY MORE (SR'S 10 DO?
;BRANCH IF ALL CSRS NOT DONE
;RESTORE KIPAR4

KSTACK,SP
SUBAAS
RO, CSRNO

JRESTORE STA(K
;JUMP TO SUBAAS IF ALL CSR'S ARE DONE
;MAKE SURE CSRNO IS UPDATED
;TURN THE CACHE OFF

100000

002362

MOV
JMP
MoV
CACHOFF
NOP
MOV

032762
001402
000137
005037

000040

G02624

005237

002422

012737

005771

001000

001200

002534
010474
002146

120002

172352

002364

010420
002422

45§:

002432

000004

172100

012771
005060
000411
012771
012771
104503

123456
172100

000002

123456
123456

000000
000002

000240

2079 007472
2080 007474
2081 007500
2082 007502
2083 007512
2084 007520

000240
010437
104503

104426

013704

000000

a(R1),82(R1)
#BIT1,CSRINFO(RO)
349
#B1T12,CSRADD (RO)

;SAVE THE LOCATIONS UNDER JEST
;IS THIS PARITY MEMORY?
:NO - BRAN(CH
;SET WRITE WRONG PARITY

MoV
CLR
BR
MOV
MOV
CLR1CSR

#123456,32(R1)
CSKADD(RO)
419
#123456,3(R1)
#123456,32(R1)

;SET THE SECOND LUT
;CLEAR THE CSR
sTEST LOCATIONS
;SET THE FIRST LOCATION UNDER TEST
;SET THE SECOND LUT
;RESET CSR

MOV
34%:

L18:

5832 007552

000137

010100

TST

READCSR

MOov

002404

2085 007522
2086 007524
2087 007526
2088 007532
2089 007536
2090 007542

NOP

002144

000002

002432

010420
177773
177600

42%:

NOP
MOV
CLR1CSR
POP
BIT
BEQ

TST
BMI
JMP
ASH
BIC
NOP

(MP
BEQ

000157

JMP
MR

7123456 a(R1)

;SET UP VIRTUAL ADDRESS TO KIPARS

JSET THE FIRST LOCATION UNDER TEST

;SET DIAG. CHECK MODE IN CSR UNDER TEST
a(R7)
CSR,R&
R4, TEMP

82(R1),a(R1)
#BIT1,CSRINFO(RD)
42%
R4
25%
6%
#-5,R4
#0177 ,R4

#157,R4
25%
22%

.DEBUG AID

;READ THE FIRST LUT TG WRITE C(KBITS. INTO (SR
;READ THE CSR UNDER TEST

;DEBUG AID

:GET THE CHECKBITS FROM THE (SR

;DEBUG AID
;SAVE IN TEMP FOR LATER
JRESET (SR
;RESTORE LOCATIONS UNDER TEST
;IS THIS PARITY MEMORY?
;NO = BRANCH

;01D WE GET A PARITY ERROR?
;YES = FILL IN CONFIG TABLE
+NO = JUMP TO END OF BANK
:MANIPULATE THE CSR BITS
;INTO A USABLE FORM,
;DEBUG AID

;D0 THE CHECKBITS COMPARE TO WHAT WAS WRITTEN?
:BRANCH IF THERE IS A MAT(H
;ELSE BRANCH IF NOT THE SAME

;* WE COME HERE If THERE IS A MAT(CH

5832

2097 007556
2098 007500
2099 007562
2100 007564
2101 007570

PUSH
BIT
BEQ
BIS

INC

(B1CSR

032760
001404
005704
100414
000137
072427
042704
000240

022704
001402

a3(R1)

;IS THIS A BANK T0 SKIP?
sNO - BRANCH AROUND NEXT INSTRUCTION
:YES - GO TO END OF BANK
;CLEAR THE MEMORY CONFIGURATION (LOUNTER
;TEST TO SEE THAT THERE IS MEMORY PRESENT

TST

104475

000240

#B1TS,CONFIG(R2)
439
6%
l

#120002,TESTADD¢+2

* ®

010004
006204
000304
042704
032737

25%:

170377
000004

002422

MOV
ASR
SWAB
BiC
BIT

SEQ 0147

;RESTORE KIPARS

sSET UP VIRTUAL ADDRESS TO KIPAR4

BIT
BEQ
JMP
CLR

123456 000000

#1200, ,KIPARS

#100000,TESTADD

MOV

43%:
48:

000000
000002

012771

MOV

3%:
13%:

(032760
001414
052760

2077 007464

2091 007544
2092 007550

E 12
PAGE 80-1 SEQUENCE 140

R3
2%
#1000,K1PARG

005771

2078 007466

(07-0(T-80 18:01

18T
BNE
MOV

2075 007456
2076 007462

MACRO M1113

RO,R&
R&
R4
#170377,R4
I, 1

;GET THE CSR NUMBER
SSET IT UP FOR USE IN THE
. CONFIGURATION TABLE.
;CLEAP OFF EXTRANEOUS BITS
INTERLEAVED A1 ASSERTED MEMORY FOUND’

(IMSDBO MSil1-L/M DIAGNOSTIC
MATCH ALL CSR'S WITH MEMORY
2102 007576
2103 507600
2104 007604
2105 007610
2106 007614
2107 007620
2108 007622
2109 007626
2110 007634
2111 007636
2112 007644

001402
072427
050462
016004
042704
000304
050462
022737
001431
052762
010204

2114 007654
2115 007656
2116 007664
2117 007670
2118 007672
2119 007676
2120 007704
%}gg 007712

001006
052762
062704
000402
062704
052764
056264
056264

2113 007646

032737

MACRO M1113

BEQ

000004
(02624
002432
177770

158:

002626
000001

002422

010000

002626

000001

002422

004000
000020

002626

000040
000040
002624
002626

002624
002624
002626

5% ;
16%:

172350

24%:

010260
100020

002404

30%:

2134 007762
2135 007770
2136 007774
2137 010002
2138 010010
2139 010016
2140 010020
2141 010026
2142 010030
2145 010034
21644 010040
2145 010046

052762
105262

000001
002626

002624

053737
053737
000240
022737
001002
000137
012704
032737
001402

002630
002632

002624
002626

000001

002422

010420
000020
000001

002422

053764

002624

g}g? 010076

5%
:BRANCH IF TRUE
#BIT11,CONF1G+2(R2)
:SET 64K INTERLEAVED FLAG IN CONFIG
#20,R4
*SET NEW BANK POINTER TO & BANKS AMEAD
16$
“JUMP OVER NEXT INSTRUCTION
#40,R4
“SET NEW BANK POINTER 8 BANKS AHEAD
#BITS,CONFIG(R4)
:SET SKIP ECC LOGIC TESTS FLAG
CONFIG(R2) ,CONFIG(R4)
:SET OTHER INFO INTO THAT BANK
CONFIG+2(R2) ,CONF 1G+2(R4)

:PUT (SR NUMBER IN INTERLEAVED (SR SLOT
:PUT CSR NUMBER IN CONFIG. TABLE
:GET MEMORY TYPE
:CLEAR OFF THE EXTRANEQUS BITS
:MOVE INTO PROPER POSITION
SSET IT INTO THE CONFIG TABLE
*WAS THIS NON-INTERLEAVED MEMORY?
:BRANCH IF IT WAS
“SET THE INTERLEAVED BIT
SAVE THE CURRENT BANK INDEX

*WAS THIS 128K INTERLEAVED?

001000

2148 010062
2149 010070

BNE
BIS
ADD
BR
ADD
BIS
BIS
BIS

#Bi10,1

;BRANCH 1f NOT

i+ THIS SECTION IS EXECUTED ONLY WHEN THE BANK=1

022737
001402
000137
032737
001417
013704
072427
022704

2147 010054

15%
i R
R4, CONF1G(R2)
CSRINFO(RO),R4
#5C7,R4
R4
R4, CONF1G+2(R2)
n,
24$
#BIT12,CONF1G+2(R2)
R2,R4

. %

2125 007720
2126 007726
2127 007730
2128 007734
2129 007742
2130 007744
2131 007750
2132 007754

2146 010050

PAGE 80-2 SEQUENCE 141

ASH
BIS
MOV
BIC
SWAB
BIS
CMP
BEQ
BIS
MOV

BIT

g}%z

2133 007760

07-0CT-80 18:01

003010

002404
177767
000001

062704

000020

053764
052764

002626
000040

000470

002624

002626
002624

CMP
BEQ
JMP
BIT
BEQ
MOV
ASH
CMP

#1000, K IPAR4
308
33
#BIT15'BIT4, TEMP
108
TEMP, R4
#-9. R4
" ,RG

;1S THIS BANK 1 2
BRANCH IF TRUE
“ELSE JUMP TO END OF THIS BANK
*WAS THERE A SBE OR DBE?
:BRANCH IF NOT
GET CSR CONTENTS
*MAKE ERROR ADDRESS INTO BANK #
*ERROR IN BANKS 0 OR 17

BIS
INCB
SET
BIS
BIS
NOP
CMP
BNE
JMP
MOV
BIT
BEQ

#8170, CONF 1G(R2)
CONFIG+2(R2)
CONF GERROR
CONF 1G+4 ,CONF1G
CONF 1G+6,CONF
1G+2

*SET ERROR FLAG IN CONFIG TABLE
:ADD ONE TO BANK ERROR COUNT
:PRINT CONFIG TABLE
SET UP INFORMATION IN BANK ZERO

BIS

CONF 16, CONF [G(R4)

BGI

10$:

468:

26%:

10$

n,1
46%
6%
#20,Ré

ADD

¥8170,1
26$
#20,R4

BIS
BIS

CONFIG+2,CONF1G+2(R&)
#B1T5,CONFIG(R4)

338

:BRANCH IF NOT

;DEBUG AID
*WAS THIS NON-INTERLEAVED MEMORY
INO - BRANCH OVER NEXT STMT.
TYES - JUMP TO END OF THIS BANK

*SET UP COUNTER FOR 64K INTERLEAVED
:WAS IT 128K INTERLEAVED?
:BRANCH IF NOT
*SET UP COUNTER FOR 128K INTERLEAVED
“SET OTHER BANK WITH SAME [NFORMATION
:AS IN BANK 0
*SET SKIP ECC LOGIC TESTS FLAG
:BRANCH

* &

%}2%

‘e IF CHECKBITS DID NOT MATCH, WE COME HERE
b

2154 010100
2155 010106
2156 010110

032737
001001
000463

100020

2158 010116

042764

000006

2157 010112 013704 002146

002144

172100

22%:

8$:

BIT
BNE
BR

#BIT1S'BIT4, (SR
8$
33¢

:SBE OR DBE FLAGS SET?
:BRANCH IF TRUE
TCHECK TO SEE [F 1T IS MS11-M

BIC

#6,CSRADD (R4)

“TURN OFF DIAG CHECK & ECC DISABLE

MOV

CSRNO, R4

:GET CSRNO

SEQ 0148

/M 0 JAGNOSTIC
(IMSDBO MSil-L

MATCH ALL CSR'S W l TH MEMORY

R AN NN NI NI AN N AN NI A NI AN NI NI

016401
072127
042701
005737

010254

172100
177773
177600

C02424

040000

172100

040000
177037

172100

000005

105262

000001
002626

000137

007556

002624

35%:

15T

NO22BIT
27s

:BRANCH IF NOT

CSRADD(R4) ,RO

;READ FROM (SR

z6C740.R0

;SET UP EXTENDED BITS

ASL
ASL
ADD

MoV
POP
ASH
(MP
BNE
BR
CMP

BNE
BIS
INCB
SET
JMP

;SAVE RO § R1

#-5,R1
2°C177,R1

;SET UP ERROR ADDRESS

;1S THIS AN 11/44 OR 11/242

#BIT14,CSRADD(R&)

;GET EXTENDED ERROR ADDRESS BITS

#BIT14,CSRADD (R4)

;TURN OFF

EUB BIT

RO,RY
R1,R4
R1.RO
#5,R4
R4 ,KIPARG

;SET UP TOTAL ERROR ADDRESS
;SAVE IN Ré
;RESTORE RO & RI1
;SET ERROR ADDRESS UP [N PAR NOTATION
;DOES IT EQUAL KIPAR4?

#B1T0,CONFIG(R?)

;SET BANK ERROR FLAG

28%
35%
R4 ,KIPARS
33%

;BRANCH [F FALSE
;YES = MARK INFO IN CONFIG TABLE
;DOES IT EQUAL KIPARS?
;BRANCH [F FALSE

; INCREMENT BANK ERROR COUNTER
;PRINT CONFIG TABLE
;YES = MARK INFO IN CONFIG TABLE

CONF1G+2(P2)
CONFGERROR
25%

]

;* MS11-M MEMORY.

33%:

000003

002432

000004

002432

00C00

002422

000002
004000
007354
000004

002364

000002

002422

062737
000137
022737

004000
007354
000003

172352

20%:

002422

12%:

062737
062737

000002
000002
004000
007354

032760
001054
032760
001450
022737

103410
162737

062737
000137
022737
001404
022737
103405

103413

162737

000137

002422

BIT

6
gngZ.CSRINFO(RO)

CMP
BLO
SuB

n,l
18%

ADD

18%:

002362
002364

JMP
CMP
BEQ
CMP
BLO
ADD

JMP
(MP
BLO
ADD
ADD

172352

lElTO!BIT1,(SRINFO(RO)

BNE

BIT
BEQ

172352

SuB
P

#2,TESTADD+?2

#4000,K1PARS
4%
0,1

208

#2,1
12%

-+«

;1S THIS MS11-M MEMORY?

;NO - GO TO END OF BANK
;1S THIS 1ST TIME
<BRANCH [F NOT

THROUGH?

:TRY AS 64K INTERLEAVED

;A1 NON-ASSERTED MEMORY
:TRY TO MATCH AGAIN
;4TH TIME THROUGH?

;YES - BRANCH

3,1
6%
#2 ,TESTADD

;¢ND TIME THROUGH
;NO - BRAN(CH
:TRY AS 128K INTERLEAVED
;TRY TO MATCH AGAIN
;THIRD TIME THROUGH?
;NO - BRANCH
:TRY TESTING THE BANK

#6000,KIPARS
4%

;64K INTERLEAVED MEMORY
;TRY TO MAT(CH AGAIN

#4000,K1PARS
4

#2,TESTADD+?2

;AS A1 ASSERTED

“«END OF BANK ROUTINE
;t

172350

6%:
A

062702
062737
013737

0V0004
001000

N O

104503

~N N

010260
010266
010270
010276
010300
010306
010310
010316

[a S 1, 8]

W
= OO

;GET CSR INFORMAT]ON

i+ THIS SECTION SETS UP ALL THE POSSIBLE CCNFIGURATIONS OF

—

O 0 O O 00 OO 0000 0o oo
NO VNS WN—=2O0VoO~N o

=B
o
e
e
D
b and
b
- ed

NN
AN
NN
—
OOOO0

2198

SEQ 0149

CSRADD (R&) ,R1

BIC
BIC

28%:

172352

142

RO,R1

MOV

172350

6 12

PAGE 80-3 SEQUENCE

PUSH
MOV
ASH

BNE
BIS

27%:

072427
020437
001001
000403
020437
001012
052762

(07-0CT-B0 18:01

BIC

(281N 1,8 ORIV NINIAINIMNINIAI N

D oD e

D oD rd

(9,

D e

001015
052764
016400
042764
042700
006300
006300
060001
010104

MACRO Mi1113

CLRICSR

ADD
ADD

MOV

¥ R2

21000, X 1PARS

K IPARL K [PARS

:CLEAR THE CSR UNDER TEST

*UPDATE CONF IGURATION POINTER

“UPDATE KIPAR4G TO NEXT BANK
TAND UPDATE KIPARS

(2MSDBO MSi1-L/M DIAGNOSTIC
MATCH ALL CSR'S WITH MEMORY
2216 010442

000240

2218
2219
2220
2221
2222
2223

002002
000137
062700
000240
104423
000137

2217 0106444

010452
010454
010460
010464
010466
010470

023737

002530
007320
000002

00722¢

MACRO M1113

07-0(T-80 18:01
NOP

172350

(MP

19%:

BGE
JMP
ADD
NOP
CACHON
JMP

H 12

PAGE 80-4 SEQUENCE 143

LASTBLOCK ,KIPARSL
19%
45%
#2 ,R0

;DEBUG AID

:HAVE WE DONE THE WHCLE MEMORY SPA(E?
;BRANCH [F DONE
:JUMP [F NOT DONE
;INCREMENT (SR POINTER
;DEBUG AID
:TURN ON THE CACHE
:JUMP TO TRY NEXT (SR

SEQ 0150

CIMSDBG MSil1=-L/M DIAGNOSTIC
NN

MATCH ALL CSR'S WITH MEMORY

225 010474
226 010476
227 010500

MACRO M1113

SUBAAS:

104423
104472

010500

1812

000004

(ACHON
ECCINIT

NEWTST

;*TEST
R

(07-0CT-80 18:01

PAGE 81

SEQUENCE

144

SEQ 0151

;MAKE SURE THE CACHE IS ON
;TRAP ON DOUBLE BIT ERRORS (NORMAL)

<<KTEST BANK O ACCESSES>>

TEST BANK O ACCESSES
R

SCOPE

;THIS DOES A "'TST'" INSTRUCTION ON EVERY LOCATION IN BANK #0 TO SEE

JIF

IT GETS ANY PARITY TRAPS.

JSINCE EVERY LOCATION IS EITHER LOADED OR WRITTEN INTO BY THE PROGRAM
;PRIOR TO THIS POINT = THEN A PARITY ERROR IMPLIES THAT THERE
;HARDWARE FAILURE
;THESE ERRORS ARE

010502
010506
010514
010520
010526
010534
010536
010542
010544
010546
010550

005037
012737
005037
012737

010552
010556
010560
010566
010572
010574
2252 010602
2¢53% 010610
2254 010616
2255
2256 010640

005737
001403

002070

005737

002066

162737

000002

002032

053737

002104

002624

005000
012701
104424
005720
077102

002070
000001
002066
000001

002074

002076

PARCNT
#1 ,NOPAR
NEMCNTY
#1 ,NONEM
#NONEXIST

MOV

#SI1ZE.R1

CLR

040000

1$:

104423

001406

CLR
MOV
CLR
MOV
SET4

2%:

3%:

[N THE MEMORY.
COUNTED AND A FATAL ACTION

CACHOFF
1ST

(RO%;

R1,
S08
CACHON
JSEE IF ANY FAILURES
1ST
PARCNT

IS A

TAKEN

sCLEAR PARITY ERROR (OUNTER
;SET THE NO PARITY ERROR FLAG
;CLEAR NON-EXISTANT MEMORY ERROR COUNTER
;SET THE NON-EXISTANT MEMORY ERROR MODE TO (OUNT
;TRAPS TO & GOTO NONEXIST
;TURN CACHE OFF
JSEE IF I CAN DO A READ A(CCESS WITHOUT A PAR!TY TRAP
:sTURN CACHE ON
JANY PARITY ERRORS?

;NO - SKIP

BEQ

TST

NEMCNT

;ANY NON-EXISTANT MEMORY (HOLES)?

Eg?A

ZZ,ADDRESS

;JUPDATE 1ST ADDRESS FAILURE FROM AUTO INCREMENT #

FATAL

BEQ

BIS

RES&

SUBTST

CPUBIT,CONFIG

JSKIP IF EQUAL

;SET CORRECT ACCESSED BIT ON BANK 0
JRESET TRAPS T0 4 TO DEFAULT

<<ENABLE ECC FOR CORRECT TRAPS>>

:"itt'ti't'tt'.""""""""""t't'l.t"tt"'t"t'ttt"."tt"l"""'.'t"

ENABLE ECC FOR CORRECT TRAPS

., *SUBTEST

;t.'t't.tfit.'t""""'ii""""itt'.fi"t'ittt'titt'tt'tt"t'.fi"t'.tt"""."

2257 010640
2258 010656
2259 010660
2260 010662
2261 010664

104506
104472

If #SW0 SET.IN @SWR OR ACTFLAG IS TRUE
€ E?ASBE
:TRAP ON SINGLE BIT ERRORS
L

ECCINIT

END ;OF

IF #SWO

;TRAP ON DOUBLE BIT ERRORS (NORMAL)

(ZMSDBO MSi1-L/M DIAGNOSTIC
-ENABLE ECC FDR CORRECT TRAPS

MACRO M1113

2264 010664

07-0CT-80 18:01
NEWTST

J 12

PAGE 83 SEQUENCE 145

SEQ 0152

<<CTEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES>>

;t'tt'tttttt.ttt""ttt"'t't"'t"ttttttt"t""tt't'ttt'tt"t'ttt'tt't""ttt'

TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES

;*TEST 3

:tt'tt'tttttttttttt'tt't'ttt""'tQtttQt'tQQ't"'Q't't"t't""ttttt"t""'tt"

2265
2266
2267
2268
2269
2270
2271

010664

2272 010666

2273 010672
2274 010700
2275 010706
2276 010714
2277 010722
2278 010724
2279 010732
2280 010740
2281 010742
2282 010750
2283 010756
2284 010764
2285 010770
2286 010776
2287 011000
2288 011004
2289 011006
2290 011010
2291 011014
2¢92 011020

2293 011024
2294 011030
2295 011044
2296 011050
2297 011052
2298 011060

2299 011064
2300 011066
2301 011072
2302 011074
2303 011076

2304 011100
2305 011106
2306 011114
2307 011116
2308 011122

2309 011124

2310 011130
2311 011132
2312 011134

2313 011136
2314 011142

2315 011164
2316 011170

000004

1ST13:

005037

002100

012737
012737

00000t
000002

002074
002076

022737
(01407
012737
012737

000001

003710

011522
011524

002472
002474

012737
012737
005237
023737
103457
013701
006301
0063M
010137
005037
005037

177644
177646
002100
002526

002472
002474

105761
100555

002624

012700
010004
012701
010103
005002
104424

060000

000411

005037

012777

022737

001403
004737
000402

1%:
TAGOS:

002102
002072

002070

002066

000207. 171412
(40000

000001

WARN1:

005037

002100

005037
000564

002074

MOV
MOV
SET4
cMP
BEQ
MOV
MOV
BR
BMOV .
MOV
MOV
INC
(MP
8LO
MOV
ASL
ASL
MOV
CLR
CLR

CLR
MAP
1ST8B
BM]
MOV
MOV

MoV
MOV
MOV
CLR
CACHOFF

BANK

#1 ,NOPAR
#2 ,NONEM
#NONEXIST
#1,PROTYP
1%
MMTSTIe4, L INKY
#MTST3+6,LINK2
TAG9S
MTST3
#UIPARZ,LINK]
#UIPARZ,LINK?
BANK
LASTBANK ,BANK
TAGZS
BANK ,R1
R1
R1
R1,BANKINDEX
PATERR
PARCNT

NEMCNT
BANK
CONFIG(RY)
TSTBANK
#207,8LINK1
#FIRST,RO
RO,R&
#S12€,R1
R1,R3
R2

TESTAREA
#1,PROTYP
(MP

003710

011516

177640

;EACH BANX IS TESTED FOR EXISTANCE AND IF [T EXISTS
;THEN IS IS TESTED FOR ZEROS & ONES.
EerPT ;
PROTECTED BANKS (WHERE THE PROGRAM I[S) ARE ONLY TESTED BY
"'TST'" INSTRUCTIONS LIKE BANK #0
ANY BAD BANKS ARE LOGGED IN THE CCNFIGURATION TABLE.
:THIS ROUTINE IS ONLY DOING A SMART SIZE - NOT ACTUAL TESTING!

CLR

002100

004737

104417
104423
000416

002100

SCOPE

1%:

2$:
TAG2S:

BEQ
CALL
BR

CALL

KERNEL
CACHON
BR
(LR
RES&

CLR
B8R

1%
MIST3
2%

FASTCITY
TAG3S

BANK

NOPAR
SUBAAI

:SET NO PARITY ERROR FLAG
;SET NON-EXISTANT MEMORY MODE TO EXIT TEST LOOP
:TRAPS TO 4 GOTO NONEXIST
1S THIS AN 11/44?
:BRANCH IF TRUE
:SET UP LINKS
:PUT [N FAST MEMORY
;SET UP LINKS
:DONE?
JYES - 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) T0O BANK
;1S THIS BANK PROTECTED?
:YES - GO TEST BANK SPECIAL
;PUT "RETURN'' INSTRUCTION AFTER WRITE ROUTINE

;DATA [S Z2EROS
:TURN CACHE OFF
JENTER SUPERVISOR MODE

;1S THIS AN 11/44?
;BRANCH [F TRUE

;CALL TO THE USER INSTRUCTION PAR'S
;ENTER KERNEL MODE
:TURN CACHE ON
:SKIP NEXT INSTRUCTION

;RESET TRAPS T0 & 10 DEFAULT

:INDICATE DEFAULT PARITY ACTION

WU~ D000~

005737
001401
000671

002066

004777

171256

OO ~NO WV

L4
@
[ ]

NIFORIAINI
NN NN NI NN
N AN N N AN AN N L NN
N AN N
IN)
b b
ORI

—

Wiy

MACRO M11i3
07-0(T-80C 18:01
NKS 1-200 (OCTAL) FOR ZEROS & ONES

M DIAGNOSTIC

005737
001040
005737
001035
005737
001032
012700
010004
012701
010103
013702
012777

002072

KERNEL
CACHON
TST

002070

TST

002554
000240

171200

022737
001403
004737
000402
004737

000001

003710

TAG3S:

104424

104417
104423

104424

104417
104423

1%:

CACHOFF

TESTAREA

06000(

IST

NEMCNT

Mov

#FIRST,RO

5%:
6%:

2%:

002072
000001

002624

b1 ¥

053760
000137

002104
010764

002624

002070

BEQ
CALL
B8R

104417
104423

012737
052761

000002

000001

002076

002624

FASTCITY

BNE

;ANY PATTERN ERRORS

JYES - SK]IP

*ANY PARITY ERRORS

JYES - SKIP

;ANY NON EXISTANT MEMORY

JYES - SKIP

;DATA IS ONES

;PUT 'NOP’' INSTRUCTION BACK

:TURN CACHE OFF
;ENTER TEST MODE
;BRANCH IF

:TURN CACHE

;DO IN MEMORY IF NOT
;JUMP OVER NEXT INSTRUCTION
;CALL TO THE USER INSTRUCTION PAR'S
;ENTER KERNEL MODE

;ANY PATTERN ERRORS?

TST

PARCNT

;ANY PARITY ERRORS?

TST

NEMCNT

BEQ

SET

CONF GERROR

B1S

BIS
JMP

#B170,CONFIG(RO)

CPUBIT,CONFIG(RO)
TAG9S
A PROTECTED BANK
R1

#1 NONEM
MOV
Mov
#FIRST,RO
#20000,R1
MCV
CACHOFF
TESTAREA
ST
(RO)+

S08

R1,4%

MoV

#2 ,NONEM

KERNEL
CACHON

FOP

IF PARCNT NE ¥#0
#BITO,CONFIG(RY)
BIS
CONFGERROR
SE1

I[N SUBROUTINE

;1S THIS AN 11/44?

PATERR

TSTBANK: PUSH

4(%:

005720
077102

5%
MTST3
6%

BANKINDEX,RO

TST

.TEST

002076

#1,PROTYP

CALL
KERNEL
CACHONM
MOV

BNE

002066

JENTER KERNEL MODE
;TURN CACHE ON

#SIZE R

TESTAREA

CMP

SKIP

;NOW = TRY NEXT BANK
:TURN CACHE OFF
:ENTER SUPERVISOR MODE

RO,R&

MoV
R1,R3
MOV
ONES,R2
INK1
#000240,aL
MOV
CACHOFF

011516

000001
060000
020000

MOV

177640

:FINISH PATTERN

és

MOov

040000

TRAPS?

aLINK?

PARCNT

BNE

;ANY

SEQ 0153

JNO -

BNE

1406

1%
TAGYS

PATERR

BNE

013700
005737
001006
005737
001003
005737
001406
052760

012737
012700
012701
104424

NEMCNT

TST

BEQ
BR

CALL

002066

K 12
PAGE 83-1 SEQUENCE

;YES - SKIP
JYES - SKIP

;ANY HOLES?
sNONE - SKIP

:SET ERROR BIT IN THIS BANK
:FORCE PRINTING Of CONFIGURATION TABLE
;SET ACCESSED BIT

;SET NON-EXISTANT MEMORY TO COUNT

:TURN CACHE OFF
SENTER TEST MODE

;ENTER KERNEL MODE
: TURN CACHE

JRESET NON-EXISTANT MEMORY TO EXIT TEST LOOP
;ERROR BANK

MST11=L/M DIAGNOSTIC

MACRO M1113

07-0CT-80 18:01

TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES

011476
011476
011504
011512
011512

011516
011520
011522
011524
011526
011530
011532
011536
011540

053761

002104

000137

010764

010220
077102
000240
012401
020102
001402
005237
077306
000207

002624

MTST3:
2%:

002072

L_12
PAGE B83-2 SEQUENCE

END ;OF IF PARCNT
IF NEMCNT £Q #0
BIS
(PUBIT,CONFIG(RT)
END ;OF IF NEMCNT
JMP
TAG9S

MOV
S08
NOP
MOV
CMP
BEQ
INC
S0B
RETURN

R2.,(RO)+
R1,M1ST3
(R&)+,R1
R1,R2
3%
PATERR
R3,2%

147

;sACCESSED BANK

:V177640
V177642
V177644
V177646
V177650
V177652
V177654
V177660
V177662

SEQ 0154

-4

4 MSDBO MSi1-L/M DIAGNOSTIC

MACRO M1113

07-0CT-80 18:01

TEST BANKS 1-200 (OCTAL) FOR ZEROS & ONES

2389 011542

M2
PAGE 84 SEQUENCE 148

SUBAA]l: SUBTST

<<FIND SHADOW INHIBIT MODE POINTERS>>

;*SUBTEST

FIND SHADOW INHIBIT MODE POINTERS

SEQ 0155

:ttt'QQttt"t"'tt"t"'Q"'tt""'t't'.t"t"ttt't'ttti"t"'ttt"'t"'t"""'

:t't'tt't'itt'tt'tt"t't't'tt""t"'ttt"t"'ttt""Qt'tttt""""'t'tt"'t'tt

2390
2391

2392
2393 011542
2394 011546
2395 011552
<396 011556
2397 011572
2398 011600
2399 011604
24600 011612

2401 011614
2402 011620

2403 011626
2404 011626

2405 011634
2606 011636
2407 011642
2408 011642
2409 011650

:* THIS SECTION LOOKS FOR INTERLEAVED MS11-M MEMORIES AND FIGURES OUT
:* WHERE THE SHADOW INMIBIT MODE POINTERS ARE LOCATED.
THESE AREAS
;* ARE THEN MARKED AS PROGRAM SPACE.

005037
004737
013706

002100
044240
002102

062700
062737

0000¢0
000010

002100

062702
062737

000040
000020

002100

052760

0002Q0.

C0262¢4

005237

002100

023737
002336

002526

002100

CLR
BANK
:RESET BANK TO ZERO
SHADL1: CALL
E XBANK
;SET BANK PARAMETERS
MOV
BANKINDEX,RO
IF ACFLAG 1S TRUE AND INTFLAG IS TRUE
IF INT64K IS TRUE
ADD #20,R0
;POINT TO BANKINDEX + &
ADD #10,BANK
;POINT TO BANK + 8
ELSE

ADD #40,R2
ADD #20,BANK

END; OF IF INT6H4LXK
BIS
#3177,CONFIG(RO)

ELSE
INC
BANK
END; OF If ACFLAG

CMP
BGE

LASTBANK ,BANK
SHADL

;POINT TO ZANKINDEX + 8
;POINT TO BANK ¢+ 16
;MAKE NEW BANK PROGRAM SPACE
;GO TO NEXT BANK

:HAVE WE DONE ALL THE BANKS?
;8RANCH [F NOT

—

CIMSDBO MSi1-L/M DIAGNOSTIC

N i2

MACRO M1113 07-0CT-80 18:01 PAGE 86 SEQUENCE 149

SEQ 0156

FIND SHADOW INHIBIT MODE POINTERS

NEWTST

2612 011652

<<ECC INHIBIT MODE PCINTER TEST>>

;""t"'t"t""""t""t"""""t"""""".."'Q"'Q"Q.""'Q"""""

ECC INHIBIT MODE POINTER TEST

JeTEST &

:'t't"."'ttt""'t"i"""'t"'.'Q"t""Q"tt"'"..'Q"'QQ""'Q"Q""""

TST4:

SCOPE

;THE MS11-M OR MF115-K INHIBIT ECC DISABLE AND DIAGNOSTIC CHECK MODE
;ON THE BOTTOM

;BANKS CAN BE PROTECTED;

;S0

;THIS ROUTINE ATTEMPS TO

;OF
;IN

; THE

EVERY ECC BANK.
PROTECTED BANKS
PROGRAM

[S.

012737
012701
004737

060000
044240
002102

013700

012703
012737

040000
000001

012703

000002

116002

002625

006302
042702
010237

(CREATE A DOUBLE BIT ERROR IN ADDRESS 0 & 2

IN CASE OF HARDWARE FAILURE IT IS COMMON

002150

THAT

A DOUBLE

BIT

ERROR

THE KERNEL STACK & ''CRASH'' THE DIAGNOSTI(
YOUR ONLY CLUE IS THAT YOU CAN GET AS FAR AS

:THIS ROUTINE BUT NOT PAST IT.

172777

PROGRAM.
[T MAY BE
(CONFIGURATION WHICH

ECC HARDWARE WILL PREVENT THIS FROM HAPPENING
WHICH SHOULD ALWAYS INCLUDE BANK ZERO - WHERE

: MWILL BE CREATED ON
;DURING THIS ROUTINE.
104424

THIS

FIRST OR SECOND 16K WORDS CONTROLLED BY A (SR.

;1S CONSIDERED TO BE A PROTECTED BANK BY THE
;QUITE COMPLEX TO DETERMINE ON A GIVEN SYSTEM

CACHOFF
MoV
#-1,0LDCSR
FCR BANK := #0 TO LASTBANK
#FIRST,R1
MOV
EXBANK
CALL

;TURN CACHE

OFF

JSET UP VIRT ADDR POINTER

MOV
BANKINDEX,RO
IF ACFLAG IS TRUE

d e

000004

b
D
i o
d e
D
D e
D oD
e

2443
2444
2445
2446
2447
2448
2449
2459
24651
2452
2453
24654

2435

2436
2437
2438
2439
24640
24
2442

[eleolelalelelalelelelelelalalelele
o]

011652
2613
2614
2615
2616
2617
2618
2419
2420
242
2422
2423
2424
2425
2426
2427
2428
2429
2430 011654
2431
2432
2433
2434

002232

IF MKFLAG IS TRUE
IF SKIPMK IS FALSE
IF INTFLAG IS TRUE
MoV
#40000,R3
MOV
#1,SPLTCSR
ELSE
Mov
#2,R3
END; OF IF INTFLAG

MovB
ASL

CONFI1G+1(RO;
,R2
R2

BIC

177741

002146

013737

002146

002159

052760

000100

002624

004737

012160

#4036 ,R2

MOV
R2,CSRNO
If CSRNO NE OLDCSR
Mov
CSRNO,OLDCSR
If PFLAG IS FALSE

BIS

END; OF
CALL

#BIT6,CONFIG(RO)
If PFLAG
IMPTEST

;SET INDEX COUNTER
:MAP AS INTERLEAVED BANK

;SET INDEX COUNTER

MACRO M1113
CZMSDBO MSil1-L/M DIAGNOSTIC
T4
ECC INHIB!T MODE POIMTER TEST
2456 012020
2457 012036
2458 012042
2'5y 012046
2460 012052
2461 012056
2462 (112062
2663 C °066
2464 01-072
2465 012072
2466 012072
2467 012072
2468 012072
2669 012072
2470 012106
2471 012122
2472 012126
2473 012144
2474 012146
2475 012150
2476 012152
2477 012152
2478 012154

07-0CT-80 18:01
IF

813
PAGE 87 SEQUENCE 150

INTFLAG IS TRUE

MOVB
ASH

CONFIG+1(R0O),R2
#-3,R2

MoV

R2,CSRNO
#2.R1
IMPTEST

Bic

ADD
CALL

#~C36.R2

SPLTCSR
(LR
END; OF IF INTFLAG
END; OF IF CSRNO
END; OF IF SKIPMK
END; OF IF MXFLAG
END; OF IF ACFLAG
END: OF FOR BANK

005037

002100

104506

CLR

BANK

ECCINIT

END; OF
012422

;MAP TEST SPACE TO BANK 0

IF #SWO SET.IN aSWR OR ACTFLAG IS TRUE
;TRAP ON SINGLE BIT ERRORS
ENASBE

ELSE

104472

104423
000137

MAP

;FIX POINTER FOR A1 ASSERTED HALF

CACHON
JMP

[F #SuW0

SUBAAR

;TRAP ON DOUBLE BIT ERRORS (NORMAL)
;TURN THE CACHE BACK ON
;JUMP OVER THE SUBRCUVINE

SEG 0157

WIWNWNWLWNI
NN = =200 VOO
oSO
NOONSOOoOOoNY

D ek
ad
e
D
i
d
e
D e
s
e
d
i
b

MAURNIN NN AN NI NN NN
NN
AN
NININI NI NI NININI N b b —a

~NO OO\
NN S I
OO LSOO
NO
~
P

NL3]SI, S I,ST,S1,ST.NT,N1,87,8)
~nNo
LSS LN NN N NN,V

e
D
)
D
—

amd

(V]

005004

005005
012737

NPV

342

)

) e

D il i

D ol il

ST ST, ST N1 ST NI N, ST ST ST ST NI ST
2 AL A Wb W AN W N A AN N
O OO O VWAL
AW
S2rNOOOCS S
NO

D el

D D o
D o

336

—d cd e

NV
NOWVE WA =00
=2O O
OB W

) Dl

0000000000000 O0O0O0O0O0O0O0O00O00O

RS
PO NINI

A AU
VLAV LA VLA VAWM NN TN W
W AN AN AN AN AN AN NNV NI RPN N PONI RO NI = b = b b b 2
N VLA

IMPTEST:CLR

CLR

MAP BANK

020000

002144

060301

010411

MOV

R4, (RT)

010411

MOV

R4, (R1)

005711

TST
WAS1 DBE

CHK1 DIS

160301

CLR1 CSR

104503
104501

SEQ 0158
SPACE

(TEST

AREA)

TO BANK

SENTER TEST MODE

;SAVE TEST LOCATION
; INDEX TO NEXT LOCATION
;SAVE TEST LOCATION

;DISABLE ECC & WRITE CHECKBITS FOR 1 (SR
;WRITE CHECKBITS (ALL ZEROS)

R3.R1

suB

*51

;MAP SUPERVISOR

#BIT13,CSR
MOV
TEST AREA
PUSH
(R1)

R3,R1
(R1)

104505

c 13

PAGE 88 SEQUENCE

ADD
PUSH

012737
104505
013711
060301
013711

160301
104503

020000

002144

002554
002554

005711
104501

012737

PLRLNIAL RV RLRNLNLINI NI AL AINI NI NN NI NIAL NI

07-0(7-80 18:01

;CLEAR (SR
;READ

(R1)

;WAS

CHECKBITS

INTO REAL

(SR

THERE A DOUBLE 8IT ERROR

s THIS MAKES SURE THAT SBE'S DON'T LOOK LIKE PROTECTED AREAS
[elelalelelalelolalels)

2480
2481
248¢
2483
2484
2485
2486
2487
2488
2489
2490
249N
2492
2493
2494
2495
2496
2497
2498
2499

[eleleleololololeolelelololalol
e

MACRO M1113
(2 MSDBO MSi1-L/M DIAGNOSTIC
14
ECC INHIBIT MODE POINTER TEST

104505
010411

CN.NOERROR ;1
#BIT13,(SR
MOV
CHKIDIS
ONES,(R1)
MOV
R3,R1
ADD
ONES, (R1)
MOV
R3,R1
SUB
CLR1CSR
ST

027400

002144

060301
010411

MOV R4, (R1)

CLR1CSR
TST (R1)
WAS1DBE

104501

012737
104505
010411
060301
010411

074000

ON.NOERROR ;3

002144

104471

010411
060301

MOV
ADD
MOV

R4, (R1)

SuB
TST
WAS10BE

005711

005205

#74000,CSR

CLRICSR

104503
160301
104501

Mov

CHKADIS

R4, (R1)

R3,R1
(R1)

_END ;OF ON.NOERROR ;3
END ;OF ON.NOERROR ;2
END ;0F ON.NOERROR ;1
ON.E RROR

INC

END ,0f ON.ERROR
ecal DIS
R4, (R1)
MOV
ADD

;WAS THERE A DOUBLE BIT ERROR

;DISABLE ECC & WRITE CHECKBITS FOR 1 (SR
;ADD

INDEX

TO GET

TO SECOND WORD

;SUBTRACT INDEX TO FIRST WORD
;CLEAR (SR

SuB R3,R1

005711

;CLEAR (SR

(RD)

WAS1DBE
ON.NOERROR ;2
MOV #27400,CSR
CHK1DIS
MOV R4, (R1)
ADD R3,R1

160301
104503

;DISABLE ECC & WRITE CAECKBITS FOR 1 (SR

;WAS

THERE

A DOUBLE BIT ERROR

;DISABLE ECC & WRITE CHECKBITS FOR 1 (SR
; INDEX TO SECOND WORD
;CLEAR (SR
;GO BACK TO FIRST WORD

;WAS THERE A DOUBLE BIT ERROR

;IDENTIFY AS BAD BANK

;DISABLE ERROR CORRECTION
;CLEAR OQUT DOUBLE B!T ERROR'
. INDEX TO SECOND WORD

MACRO M1113

ECC INHIBIT MODE POINTER TEST

2537 012366
2538 012370
2539 012372
2540 012374
2541 012376
2542 012402
2543 012406
2544 012410
2545 012412
2546 012414
2547 012416
2548 012420

010411
104503
005705
001405
050560
105260
104036
160301
104417
0000207

002624
002626

1%:

07-0CT-80 18:01

MOV
CLR1CSR
TST
BEQ
BIS
INCB
ERROR
POP
SuB
POP
KERNEL
RETURN

D 13
PAGE 88-1 SEQUENCE 152

R4, (RY)
RS
1%
RS,CONFIG(RD)
CONFIG+2(RD)
+36

(R1)

R3,R1
(R1)

SEQ 0159

;CLEAR OUT DOUBLE BIT ERROR!

;RESTORE TEST LOCATION (2ND WORD)
.60 BACK TO FIRST WORD
;RESTORE TEST LOCATION (1ST WORD)

$£HSDBO MSi1-L/M DIAGNOSTIC

CZHSDBO MSi1-L/M DIAGNOSTIC
MACRO M1113
€CC INHIBIT MODE POINTER TEST
2892
2893 012422

07-0(T-80 18:01

SUBAAR:

SET

STOPOK

E 13
PAGE 94 SEQUENCE 153

;PROGRAM (AN NOW BE HALTED

SEQ 0160

C2MSDBO MSil-L/M DIAGNOSTIC

ECC

MACRQ M1113

INHIBIT MODE POINTER TEST

2896 012430

F 13
PAGE 96 SEQUENCE

(07-0CT-80 18:01

SUBTST

1564

SEQ 0169

<<LEGAL CONFIGURATION CHECKX>>

;'tt"ttn"tt't"i""t"""'Qttttt.t't't't'ttttDt'ttt'tt reeeRtRRRERNRRACTRRRRRROROERY

LEGAL CONFIGURATION CHE(K

;*SUBTEST

;tt'ttQQtttttt't'tt"""t"'t"'t'tt"t'Q."Qtt"'t""'t""tQ"'t't"""""

2897
2898
2899
2900
2904
2905
gggg

012430
012434
012440
012442
012444
012450
012454

2929 012460

2930 012466

2931 012472
2932 012476
2933 012500
2934 012504
2935
29%6 0125172
2937 012512

2938 012520
2939 012524

2940
2941
2942
2943
2944
2945

012526
012532
012536
012542
012546
012554

2946 012562

012700
012701
005021
077002

000029
002432

004737
013700

044240
002102

116003

002625

042703
006303
005263

177760

002625

042703
072427
042704

177760
177774
177760

042760
042760

014000
170000

ACFLAG IS TRUE

MOVB

CONFIG+1(RJ)
,R3
#°C17,R3
R3
CSRINFO(R3)

BiC
ASL
INC

002432

116003

010304

MOV
6. RO
MOV
#CSRINFO,R
CLR
(R1)+
So8
RO,1$
FOR BANK := #0 TO LASTBANK
CALL
E XBANK
MOV BANKINDEX,RO

IF MKFLAG IS TRUE
:MAKE SURE THAT EACH BANK HAS NO MORE
BEGIN
LEGALCSR
[F (NTFLAG IS TRUE

MOVB

CONFI1G+1(R0O)
,R3

MOV R3,R4

BIC #~C17,R3
ASH #-4,R4
BIC #~C17,R4
IF R3 EQ R4
BIC
#8JT11!BIT12,(ONFIG+2(RO)
BIC
#170000,CONFIG(RO)

002626
002624

LEAVE LEGALCSR

2947 012564

END; OF IF R3

2949 012572
2950 012574

LEAVE
END; OF

2948 012564

I[F

2951 012574

006303

2953 012600
2954 012604

005263
005264

2952 012576

2955 012610
2956 012612
2957 012614

006304

012630
012636
012636
012636
012636

005000

2969 012664

005037

2971 012676

002043

2967 012660
2968 012662

2970 012670
2972 012700
297% 012706

00500
005005

002632
002432

013074

IS FALSE

LEGALCSR
IF KFLAG

ASL Ré&

INC CSRINFO(RY)
INC CSRINFO(R&)
ELSE
LEAVE
LEGALCSR
END; OF IF [NTFLAG
TYPE
MSG124
TYPOCS BANK,<TYPE BANK #>.,3
SET
CONFGERROR
LEGALCSR
END
END ;OF 1f MKFLAG
END ;OF IF ACFLAG
END; OF FOR BANK

2965 012652
2966 012656

KFLAG

ASL R3

2958 012614
2956 012620
2960
2961
2962
2963
2964

THAN ¢ (SRS

PUSH
(LR

RS,RO
RO

:SAVE CONTENTS OF RS, RO
:CLEAR REGISTERS

(LR

MBERR

:CLEAR ERROR INDICATOR

:BRANCH [f SO

(LR
(LR

(22761

000010

002432

022761
002003

000020

002432

2%:

:# OF (SR'S 1S WRONG

(MP

BGE

CMP
BGE

R1
RS

#10,CSRINFO(RY)
#20,CSRINFO(RY)
b33

;1S CURRENT (SR <= 10
;1S CURRENT (SR < 20
:BRANCH IF SO

CIMSDBO MSi1-L/M DIAGNOSTIC
LEGAL CONFIGURATION CHECK

004737
000434

2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
3002
3003
3004
3005
3006
3007

016005
032705
001415

042705
072527

752
754
762
774

005037
005001
005000
032760
001404
005201
062700
000770
062701
010137
000402
000000
000000
005009
005037
032760
001431
032760
001005
005237
062700
000763
023727
001417
023727
001413
023727
001407

b
md o
D D el
D
d d id i
b b ach

[elelelelelelelelelalelelalelelalalele
o)

3008

3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
301%
3020
3041

020501
001007
032760
001003
012737
062700
022700
001351
005737
001402
004737
005000
005037
062701
022701
001321

200

023727
001403
005037
000403
012737

MACRO M1113

(07-0CT-80 18:01

013216
002624
000002

170377
177771

002626

000001
000004
000340

013074

BIT
BEQ
BIC

(MP
BNE

BIT

013074

013216

5%:

013074
600002
000040

BNt
MOV
ADD

CMP
BNE
TST
BtQ
CALL
CLR
(LR
ADD

cMp
BNE
POP

013074

002626

6%:

000004

CLR
CLR
(LR

BIT

BEQ
INC

SEQUENCE.155

7%:

002526

MBERR:
:
PHEBE
:
SKUJ

013076
000002

002624

010000

002626

1%:

013076
000004

ADC

MOV

BR
.WORD 0

.WORD 0

CLR
CLR

BIT
BEQ
BIT
BNE
INC

ADD

013076

000010

013076

000030

013076

000050

013076

000070

2%:

8tQ
(MP
BEQ

1%:

013076
01307¢

BR
CMP
BEQ
(MP

(MP
8eQ

(LR
BR

MOV

SEQ 0162

;CALL ERROR ROUTINE

JLLCSR
5%
,RS
CONFIG(RD)

JTRY

(SR

;MOVE LOW WORD TO RS
:DOES MEMORY EXIST HERE?

#B1T1,RS
4%
#*C7400,R5
»-7,RS
RS.R1
31

;BRANCH F NOT

;ISOLATE CSR NUMBER [N

;REGISTER S

;IS IT THE CURRENT (SR?
;TRY NEXT WORD OF

'3
#1 ,MBERR
¥4 ,R0
#340,R0

;BRANCH IF

MBERR

;ERRORS FOUND?
;TRY NEXT

CSR

MBERR
#2,R1

8.0, P

;BRANCH

RO,RS

;CLEAR

;RESTORE REGISTERS
;RESET ERROR INDICATOR

s COUNTERS

;MEMORY PRESENT?
;BRANCH [F NOT

;ADD ONE BANK TO COUNT
;UPDATE COUNTER
: TRY

BANK

sADJUST COUNT

RO
PHEBE

;CLEAR CONFIG COUNTER
;CLEAR COUNTER

PHEBE
#4,R0
1%

PHEBE ,#10

PHEBE ,#30
3

PHEBE
, #50

;STORE

COUNT

;SAVE SPACE FOk ERROR INDICATOR
;SAVE SPACE FOR ODD BOUNDARY INTERLEAVED INDICATOR
;1S THERE MEMORY PRESENT?

:BRANCH [F

NOT

;1S IT INTERLEAVED?
;BRANCH IF SO
; INCREMENT COUNTER

; INCREMENT CONFIG COUNTER
: TRY NEXT BANK

;1S THE COUNTER EQUAL T0...
;ONE OF THE SPECIAL VALUES.
JIE AT IS..,
;BRANCH TO 4%

PHEBE ,#70

49
PHEBE

;CLEAR INDICATOR

#1 ,PHEBE

;SET INDICATOR

NOT

-1,R1
R1,LASTBANK
SKUJ

521112,C0NF1602(R0)

;CALL ERROR ROUTINE
JREINITIALIZE CONFIG COUNTER
:CLEAR ERROR INDICATOR
;UPDATE (SR COUNTER
;ALL CSR'S DONE?

§21T1,CONFIG(R0)

NOT

:BRANCH [F NOT

5%
ILLCSR

R1
RO
#B1T1,CONFIG(RO)
7%

IFf

:SET ERROR INDICATOR
JUPDATE CONFIG COUNTER
;CONFIG TABLE ALL DONE?

MBE RR

CONFIG

;1S IT INTERLEAVED?

#BIT12,CONFIG+2(RO)

ADD

177777

000001

MOV

ASH

010000

000002

CALL
BR

6 13

PAGE 96-1

CIMSDBO MS
1 1-L/M DIAGNOSTIC

LEGAL CONFIGURATION CHECK
3034 013214
3035 013216
3036 013220
3037 013222

3038 013226
3039 013230
3040 013234

3041 013240

3042 013244
3043 013250
3044 013256

000421
010102
006202
022702
100002
062702
062702

110237

000207

MACRC M1113

07-0CT-80 18:01

000012

BR
5%:
ILLCSR: MOV
ASR
(MpP

000007
000060

1%:

074767

RPL
ADD
ADD

Move

TYPE
SET
RE TURN

H 13

PAGE 96-2 SEQUENCE 156

SUBAAP
R1,R2
R2
#10.,R2
1%
27 ,R2
#60,R2

R2,M5GA122

MSG122
CONF GERROR

SEQ 0163

:BRANCH TO NEXT SUBTEST
:R2 HAS (SR NUMBER
;MAKE ACCEPTABLE FOR PRINTING
)

;PUT NUMBER [NTO ERROR MESSAGE

CIMSDBO MSi1-L/M DIAGNCSTIC

LEGAL CONFIGURATION CHEC(K

MACRO M1113

3047 013260

1 13
PAGE 98 SEQUENCE 157

(07-0CT-80 18:01

SUBAAP:

SEQ 0164

<<PRINT CON?t IGURATION DETAILS>>

SUBTST

;lt""fi'.t!'ti""'""""""Q"'QQ"."'Q"t.t"".t't""'Q"""'Q""'Q"

;*SUBTEST

CONFIGURATION DETAILS

;tttttfi't"tt'fi"'"""""""Q'li"""'Q"Qtt"""""'.'t'."'.""'."".

3048
3249
3050
3051
3052
3053
3054
3055

013702
006302
006302

CLEAR

LASTBANK,R2
R2
R2
:= #0 T0 R2 BY #4

c0R R1
IF CPUBIT SET.IN CONFIG(R1)
IF #BIT10 SET.IN CONFIG+2(R1)
IF #BIT8B SET.IN CONFIG+2(RY1)

If #B1T9 SET.IN CONFIG+2(R1)
LET PS I2E := PSIZE + N

3056
3057

3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
30N
3072
3073
3074

BSIZE ,KSIZE,LSIZE,MSIZE,PSIZE

MoV
ASL
ASL

002526

ELSE
LET KS [2€
END;IF B 119
ELSE

:= KSIZE + M

IF #BIT9 SET.IN CONFIG+2(R1)

LET LS I2E
ELSE
LET MS I2E

END; IF BIT9
END;IF BIT8

:= LSIZE + N

:= MSIZE + N

ELSE

IF #B1T9 SET.IN CONFIG+2(R1)
IF #BIT8 SET.IN COMFIG+2(R1)
LEY BS 1€ := BSIZE + M
END; OF IF #B]IT8

END;

I¥f

#BIT9

END;IF 8IT10
EnD; OF IF CPUBILT
IND ;OF FOR ALL BANKS [N TABLE

3075

OO O O VWAV N
PN~
= O
O O VNN
NN
[@Ye L, ¥ e NaP ol Yolo Yo Y8 ~n

b
b

002422

006361
006361
006361
006361
066137

002344
002344
002344
002344
002344

006337
006337

002366
002366
002366
002366

AN W

005037

i
i
il ad
el
D
l ad o
il
—

A AN U AN N U U U U A

[aleolalelelalolalelalelelew)]

013452
013456
013460
013464
013470

626

006337
006337
005737
001405

002344

CLR

002422

FOR R1
ASL
ASL
ASL
ASL
ADD

:= #0 TO #10 BY #2
BSIZE(R1)
BSIIE(R1)
BSIZE(R1)
BSIZE(R1)
BSIZE(R1),I

ASL
ASL
ASL
ASL

UNITOP
UNITOP
UNITOP
UNITOP

END; FOR R1
FOR R1 := #0 TO #200 BY #4
If CPUBIT SET.IN CONFIG(R1)
LET UNITOP = UNITOP + M1
END; OF IF CPUBIT
END; OF FOR R1

I LT UNITOP THEN LET

TYPE
1ST

S$CRLF
BSIZE

TYPDEC

BSIZE

BEQ

TYPE

mMsG071

;8BS IZE(R1) := BS 1ZE(RY)
;1 <=1 + BSIZE( R1)

;UNITOP := UNITOP «
UN]TOP
|

16,

d e

cd e

013760

00¢354

49:

5%:

004737

036570

BEQ

TYPDEC
TYPE
TST

005737
001405

3%:

TYPDEC(
TYPE
TST

002352

BEQ

~NONN

005737
001405

2%:

TYPDEC
TYPE
181

002359

157
BEQ

005737
001405

1%:

o YF 3

002346

005737
001405

JanlV ol

013632
013636
013640
013646
013652
013656
013660
013666
013672
013676
013700
013706
013712
013716
013720
013726
013732
013740
013744
013754

TM~

= OOV
NOWNE
NN —

—

AU LA AN U

N AN N AN

D el il

3101
3102
3103
3104

NV NPUIN VTPV
—
— ) o
—)

CONFIGURATION DETAILS

BEQ

TYPDEC
TYPE
TYPDEC
TYPE

l
MSG070
IF #SWé OfF.IN JSWR

CALL
END; OF

PAGE 98 -1

07-0CT7-80 18:01

i B

(IMSDBO MSi1-L/M DIAGNOSTIC

MACRO M1113

PCONF 16

IF #5Wb

SEQUENCE

158

SEQ 0165

CIMSDBO MSil-L/M DIAGNOSTIC

CONFIGURATION DETAILS

3124 013760

MACRO M1113

(Q7-0CT-80 18:01

XXX

SUBTST
X

L«SUBTEST

PAGE

K 13
100 SEQUENCE

<<CHECK APT SIZING>>
R

AR E

AR X

CHECK AP T SI1ZING

159

SEQ 0166
AR

dRlRd)

:t"""""""t"Q""'Q"i""'"""Q"Q't"t"""""".""QQQ""Q"""

005037
012700
111001

042701

002404
062516

177400

000261

TEMP
CLR
MOV
#SMAMST, RO
FOR R2 := #0 1 0 #4
1FB 1(RO) NE #0
MovVB
(RO) ,R1
#177400,R1
BIC

006101
005201
006301
006301
006301
006301
163701
010137

002404
002404

060137

002372

060137

002374

062700

000004

IS TRUE

IF 2(RO) L 1T #0

SEC
ELSE
cLC
END ;OF

000241

104046

[F APTFLAG IS TRUE AND APTSIZE

ROL

INC
ASL
ASL
ASL
ASL
SuB
MOV

2(RO)

R1
R1
R1
Rl
R1
R1
TEMP R
R1,TEMP

;7O COMPENSATE

IFB 1(RODY EQ #3
ADD

END

;Of

R1,APTPAR

IF B 1(RO)

1fFB 1(RO) EQ #4
ADD

END ;OF

ADD

END ;OF

R1,APTECC
IF B 1(RO)
#4 ,R0

IFfB 1(r0O)

END ;0OF FOR RZ
IF APTPAR NE LSIZE OR APTECC NE MSIZE

+46
ERROR
PAR
APT
IF
,OF
END
END ;OF IF APTFL AG

FOR & BANKS BEING

(0-3)

CIZMSDBO MSi1-L/M DIAGNOSTIC

CHECK APT SIZING

3170 014150

MACRO M1113

NEWTST

LOOP:
S

014214
0146216

004737

2X2

TSTS:

SCOPE

CLR

3194
3195
3196 014264
3200
3201 014270

2222

160

SEQ 0167

DISPATCH ROUTINE>>

22222222202
X222l

RNl

CONTFLAG
aSwR,RO

;OET SWITCHES

aDISPTBL(RO)

;DISPATCH TO ROUTINE

#~C16,R0

RldRRRRRd)
RRRRRRRR)])

sMASK TO ONLY MODE BITS

MEMDONE

;60 TO NEXT TEST

THROUGH NEXT TABLE

;MODE 0;BANKS FORWARD, PATTERNS FORWARD

sMODE 1;BANKS FORWARD, PATTERNS REVERSE
;MODE 2;BANKS WORST FIRST, PATTERNS FORWARD
;MODE 3,;BANKS WORST FIRST, PATTERNS REVERSE
;MODE 4;PATTERNS FORWARD,

PAF BAF
PAFBAW
PARBAF
PARBAW

BANKS FORWARD

;MODE 5;PATTERNS FORWARD, BANKS WORST FIRST

+MODE 9:PATTERNS REVERSE, BANKS FORWARD
7,PATTERNS REVERSE, BANKS WORST F[RST
;MODE
DOBACK

MEMDONE
: CALL

; CHECK BACKGROUND PATTERN

NEWTST<CUNIQUE BANK TEST>>

;Qt'tt'ttfiti'i"t""'t""tt'tt'tittti'fit't't.."t.'ittQQ"""""."'Q"'."'

J*TEST

3193

2222322222222 222222

BIC
CALL
JMP
DISPTBL :BAFPAF
BAFPAR
BAWPAF
BAWPAR

014222

3188
3189
3190
3191
3192

SEQUENCE

DIAGNOSTIC MODE DISPATCH ROUTINE

X222

Mov

014550

PAGE 101

<<DIAGNOSTIC MODE

222222222

TeTEST S
000004
005037
017700
042700
004770
000137
014650
014756
015064
015214
015344
015474
015646
015776

L 13

07-0CT-80 18:01

000004

TST6:

SCOPE

:MAKE

UNIQUE BANK TEST
R X

N R R

X R

R R

R RS NZRRARARRRRRRRRARRRRRRRRRRRRAD)

SURE THAT EACH BANK CAN HAVE UNIQUE

DATA

;WRITE AND READ THE BANK NUMBER IN EACH BANK (EXCEPT WHERE THE PROGRAM [S)
IF

004737

024172

095037

002106

004737

014550

SELONLY S FALSE
HEADEPR ,MUT
SET
MT0027
CALL
HEADER
SET
MUT
(LR
END ;OF IF SELONLY
FLUSH:

CALL

DOBACK

SUBTST

<<FLUSH OUT

2222222323222

L «SUBTEST

3222 22

;RESTORE BACKROUND PATTERN
DBE'S>>
2R R R

FLUSH OUT DBE'S

RRRRRRRRRRRRARRRRARD D)
.

:'ti'tt.'.'i'.tt'"""""""".'t..ttit't.t!t"tt"t!t'"i"'ttt...'.i"'ilt'

3202 014270

004737

04656

CALL

m10030

CIMSDBO MSil1-L/M DIAGNOSTIC
END OF PASS ROUTINE

MACRO M1113

3205

07-0(T-80 18:01
.SBTTL

PAGE 103 SEQUENCE 161

END OF PASS ROUTINE

3206

;t't't"'t't'i"Q"Q"""'Q""""""""""t""""t""'"Q"t"'t""t"

3207
3208
3209

"«INCREMENT THE PASS NUMBER ($PASS)
;*INDICATE END-OF-PROGRAM AFTER EACH PASSES THRU THE PROGRAM
;«TYPE ''SND PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)

1211

;*1F

3210

3212 014276

3213 014300
3214 014304
3215 014310
3216 014314
3217 014320
3218 014322
3219 014330
3220 014334
3221 014342
3222 014346
3223 014364
3224 014370
3225 014374
3226 014374
3227 014402
3228 014406
3229 014410
3230 014414
3231
3232 014416
3233 014420

3234 016424
3235 014426
3236 0164430

3¢37 014432
3238 014434
3239 014436
3240 014440
32461
3242
3243
3244
3245 014440

3246 014444

3247 014450
3248 014452
3249 014460
3250 014462
3251 014466
3252 014472
3253 014476
3254 014504
3255 014514

;«]1F

005037

012700
042710
062700
020027
003771
013737
005237
042737

002626
020000
000004
00362C

005037

002316

013700
001456

000042

022700
001453

002000

004737

045126

002570

062474
100000

$EOP:

002014

062474

000005

004710

013706

005737

001003
052737
104420
013700
012701
004737

002424

172516

002536
000001
043710

012701

000050

062737
005537
077107
005237
000764

000001
062500
062474

CALL
POP
RESET

SHUTUP
R;,

CALL

(RO)

TST

N02ZBIT

::CLEAR THE WORLD
::60 TO MONITOR

NOP
::;SAVE ROOM
NOP
SUFOR
NOP
TIACTIN
$DOAGN: ;UNDO SHUTUP STUFF
;
RESTORE STACK
.
ENERGIZE UNIBUS MAP & 22 BIT ACDRESSING
:
ENERGIZE MEMORY MANAGEMENT
.
PUT LOADERS BACK HOME
MOV
KSTACK,SP

002534

000060

(LR

ISN'T JUMP TO LOOP

FSINFLAG
MOV
#CONFIG+2,R0
;MOVE 2ND WORD OF CONFIG TO RO
1%:
BIC
#BIT13, (RD)
:CLEAR BACKGROUND VALID BIT
ADD
06 ,R0
*INCREMENT TO NEXT BANK
CMP
RO. #3620
*DONE?
BLE
1%
*NO - BRANCH
MOV
SERTTL,LASTERROR
INC
S$PASS
:: INCREMENT THE PASS NUMBER
BIC
#100000,8PASS
:-DON'T ALLOW A NEG. NUMBER
TYPE
MSGO77
::TYPE ‘'END PASS #''
IF #SW11 SET.IN aSWR OR QVFLAG ]S TRUE
TYPE MSGO35
sQv
CLR
QVFLAG
END :0F IF SW11
TYPDEC
$PASS
MOV
42 ,R0
:;GET MONITOR ADDRESS
8EQ
SDOAGAIN
:;BRANCH IF NO MONITOR
$ZAPL?: (MP
#STACK,RO
;ARE WE UNDER RT11
BEQ
$SDOACAIN
;YES - BRANCH
;WE ARE UNDER (HEAVEN HELP US) XXDP!
PUSH
RO

SENDAD:

000240
000240
000240

3256 014520 077001
3257 014522
3258 014530
3259 014534
3260 014536
3261 014542

002412

THERES A MONITOR GO TO IV

THERE

062476

1%
BNE
BIS
#BITS!BIT4,
MMRD
1%:
ENERGIZE
MOV
LOADHOME , RO
#1,R1
MOV
CALL
BAKNKMOV
IF APTFLAG IS TRUE
IF SUSWR E£EQ $PASS
MOV #50,R1
APTHANG:

2%:

SOB RO,2$

ADD
ADC
SOB
INC
BR

#1.$DEVCT
SUNIT
R1,28
$PASS
APTHANG

IS THIS AN 11/44 QR 11/24?
:TURN ON MEMORY MANAGEMENT
"DESTINATION BANK
*SOURCE BANK

SEQ 0168

CZMSDBO MSi1-L/M DIAGNOSTIC
END OF PASS ROUTINE
3262 014544
3263 014544
3264 014544

000137

014150

MACRO M1113

(07-0CT-80 18:01

N 13
PAGE 103-1

END ;OF IF SUSWR
END ,OF IF APTFLAG
$DOAGAIN: JMP
LOOP

SEQUENCE 162

;RETURN

SEQ 0169

CIMSDBO MSi1-L/M DIAGNOSTIC

END OF

PASS ROUTINE

3267 014550

MACRO M1113

07-0CT-80 18:01

DOBACK:

SUBTST

B 14
PAGE 105 SEQUENCE 163

SEQ 0170

<<WRITE BACKGROUND PATTERNS>>

:""t"'."."t"""""""""tt"""'""'.""'"""'.'t""""""""

;*SUBTEST

WRITE BACKGROUND PATTERNS

;"""Qt"'t'.""""""'Q""'.""'Q'Q't"'..".""""'"""'i'!"."".

3268 014550
3269 016554
3270 014560
2N 014564
3272 014600
3273 014614
3274 014620
3275 014624

3276 014632
3277 014632
3278 014646

005037

0021190

004737

044240

004737
005037

017456
002106

000207

PATTERN
CLR
FOR BANK := #0 TO LASTBANK
EXBANK
CALL
IF ACFLAG IS TRUE AND RRFLAG
HEADER ,MUT
SET
MKTEST
CALL
MUT
CLR
HEADER
SET
END ,OF IF ACFLAG
END ,OF FOR BANK

RETURN

IS FALSE

sCALL

MJTEST WOULD ALSO WORK

CIMSDBO MSit1-L/M DIAGNOSTIC

MTEST MODES

3281
3282
3283 014650

MACRO M1113

07-0CT-80 18:01

BAFPAF:

¢ 14
PAGE 107 SEQUENCE 164

.SBTTL

MTEST MODES

SUBTST

<<BANKS FORWARD,PATTERNS FORWARD

*«RECURSIVE+¢>>

;""'fi"""'l'"""""""""'.""""'ti""'Qt'"'I""""Q""‘VQ"""Q

:*SUBTEST

BANKS FORWARD,PATTERNS FORWARD

;"l".tt.""Q"""i"""""'Qt'."&."

3284 014650
3285
3286 014654
3287 014660
3288 014664
3289 014666
3290 014672
3291 014674
3292
3293 014700
3294
3295 014704
3296 014710
3297
3298 014712
3299 014716
3300 014722
3301
3302 014724
3303 014730
3304 014732
3305 014734
3306 014740
3307
3308 014744
3309 014750
5510 014754

SEQ 0171

005037

002100

004737
005737
001412
005737
001007
005037

044240
002114

004737

016150

004737
001373

044726

005037
004737
002354

002214
044752

005737

002124

004737

062466

004737
004737
000207

014650
043356

001401
000207

CLR
18:

TST

BNE
CLR

002110
2%

;EXAMINE BANK
:CAN WE ACCESS THIS BANK?

«$

INO - GO TO BANK LOOP TERMINATION

RRFLAG

RELOCATION REQUIRED?

X3
PATTERN

:START OF

PATTERN LOOP

CALL

MTEST

CALL
BNE

INCPAT
2%

: TERMINATION OF

RE TURN

CALL

LOOP

;NEXT HIGHER BANK
:IF NOT DONE - LOOP ON THIS BANK

RL7LAG

;HAVE WE

INO - SKIP

RELOCATE

:MOVE & MAP PROGRAM

;*«NOTE++ RECURSIVE

CALL

RETURN

BEEN RELOZATED?

YES - RETURN

ON.ERROR THEN SRE TURN

CALL

;GO TEST CORRECT MEMORY
;GO SEE IF THIS IS THE LAST PATTERN
‘NO - LOOP ON THIS PATTERN

INCBNK
CALL
1$
BGE
;END OF LOOPS
TS

YES - GO TO BANK LOOP TERMINATION
:SET PATTERN T0 0

PATTERN (0OP

;TERMINATION OF BANK
CLR
CONTFLAG

BEQ

SET BANK TO 0

;START OF BANK LOOP
CALL
EXBANK
ST
ACFLAG

BEQ

002122

BANK

BAFPAF

*+RECURSIVE
¢¢

IR XZX22222R2222X22R2ZARRARRRARRRRRARE}

UNRELOCATE

CALL

;CALL SELF

UNMOVE & UNMAP PROGRAM

CIMEDBO MSi1-L/M DIAGNOSTIC

BANKS FORWARD ,PATTERNS FORWARD

3313 014756

MACRO M1113
07-0CT-80 18:01
*«RECURSIVE
«+
BAFPAR:

SUBTST

X222 X222 X

L«SUBTEST

PAGE

D 14
109 SEQUENCE

165

SEQ 0172

<<BANKS FORWARD,PATTERNS REVERSE

XXX

AR AR R

*+RECURSIVE**>>

R RARRARRRRRRRRdRRRRRRRRdRRolRald)

BANKS FORWARD ,PATTERNS REVERSE

**RECURSIVE
e+

:'"t'tt"""i"'t"""""""'Qtt"'."""'i"Q'.Q'Q'Q""t""t"tt""t"

014756

005037

002100

014762
014766
014772
014774
015000
015002

004737
005737
001412
005737
001007
004737

044240
002114

3323 015006

004737

016150

3325 015012
3326 015016

005337

002110

3328 015020
3329 015024
3330 015030

005037
004737
002354

002214
0644752

3332
3333
3334
3335

015032
015036
015040
015042

005737
001401
000207
004737

002124

3358 015052
3339 015056
3340 015062

004737
004737

014756
043356

3314
3315
3316
3317
3318
3319
3320
3321

3336 015046

100373

000207

1%:

002122
044742

042466

2%:

BANK
CLR
. START OF BANK LOOP
EXBANK
CALL
TST
ACFLAG

;SET BANK TO O

TST

;RELOCATION REQUIRED?

BEQ

BNE

;EXAMINE BANK

;CAN WE ACCESS THIS BANK?

;NO = GO TG BANK LOOP TERMINATION

RRELAG

SETPAT
CALL
;START OF PATTERN LOOP
MTEST
CALL

;60 TEST CORRECT MEMORY

;TERMINATION OF

PATTERN LOOP

;TERMINATION OF

BANK

DEC
8PL

PATTERN
2%

;1S THIS THE LAST PATTERN?
:NO - LOOP ON THIS PATTERN

CLR
CALL

CONTFLAG
[NCBNK

TST

RLFLAG

RETURN
CALL

sNO - SKIP

RELOCATE

;MOVE € MAP PROGRAM

LOOP

sNEXT HIGHER BANK
;1F NOT DONE - LOOP ON THIS BANK

1%
BGE
JEND OF LOOPS
BEQ
5%:

:YES - GO TO BANK LOOP TERMINATION
;SET HIGH PATTERN FOR CORRECT MEMORY

;HAVE

:YES - RETURN

ON.ERROR THEN SRETURN
;**NOTE++ RECURSIVE
BAFPAR
CALL
CALL
UNRELOCATE

RETURN

WE BEEN RELOCATED?

CAlLL

:CALL SELF

;UNMOVE § UNMAP PROGRAM

TIMSDBO MSi1-L/M DIAGNOSTIC

BANKS FORWARD,PATTERNS REVERSE
3343 015064

MACRO M1113

07-0CT-80 18:01

¢+RECURSIVE*e

E 14
PAGE 111 SEQUENCE 166

BAWPAF: SUBTST

<CBANKS WORST FIRST,PATTERNS FORWARD

S *SUBTEST

BANKS WORST FIRST,PATTERNS FORWARD

SEQ 0173
*¢RECURSIVE+*>>

:"""""""""""'"""""Q""""'Q"i"""""""t"""".""""

«*RECURSIVE
e

:t"""!t.""""'"""'tt""i'"""""."'Q""""""'.Q"""""'Q"'

3344 015064

3345
3346 015070
3347 015074

3348
3349
3350
3351
3352
3353

015100
015102
015106
015110
015114
015116

005037

002100

004737
005737
001415

044240
002114

005737
001412
005737
001007
005037

002126

3355 015122

004737

016150

3357 015126
3358 015132

004737
001373

044726

3362 015144

005037
004737
002351

002214
044752

005137
001003

002540

004737
000207
005737
001401

015064

3354

3356

3359
3360 015134
3361 015140
3363

3364 015146
3365 015152
3366
3367 015154
3348 015160
3369 015162
3370 015166
3371

015170

5372 015172
3373 015176
3374
3375 015202

3376 015206
3377 015212

CLR
1%:

002122

002110
2%

002124

004737

042466

004737

015064

000207

004737
000207

043356

BANK

:START OF BANK LOOP
CALL
EXBANK
I
ACFLAG

BEQ
1ST
BEQ
1ST
BNE
CLR

48
BMFLAG
4
RRFLAG
X3
PATTERN

CALL

MTEST

CALL
BNE

INCPAT
28

;START OF PATTERN LOOP
:TERMINATION OF

;SET BANK T0 0
;EXAMINE BANK
:CAN WE ACCESS THIS BANK?
INO - GO TO BANK LOOP TERMINATION

1S THIS BAD MEMORY (WORST FIRST)?
NO - GO TO BANK LOOP TERMINATION
RELOCATION REQUIRED?
YES - GO T0 BANK LOOP TERMINATION
SET PATTERN 10 0
;60 TEST CORRECT MEMORY

PATTERN LOOP

;GO SEE IF THIS IS THE LAST PATTERN
NO = LOOP ON THIS PATTERN

;TERMINATION OF BANK LOOP
CLR
CONTFLAG
CALL
INCBNK
;NEXT HIGHER BANK
BGE
13
:IF NOT DONE - LOOF ON THIS BANK
END OF LOOPS

COM
WORS T
;1S THIS AN (VEN NUMBERED PASS?
BNE
5%
:YES - SKIP
;**NOTE*+ RECURSIVF CALL
CALL
BAWPAF
;CALL SELF
RE TURN
ST
RLFLAG
;HAVE WE BEEN RELOCATED?
BEQ
6$
INO - SKIP
RE TURN

CALL
RELOCATE
ON.ERROR THEN $RETURN

YES - RETURN

:MOVE & MAP PROGRAM

;*«NOTE++ RECURSIVE CALL
EALL
BAWPAF
;CALL SELF

CALL

RE TURN

UNRELOCATE

UNMOVE € UNMAP PROGRAM

(IMSDBO MS1-L/M DIAGNOSTIC

MACRO M1113

BANKS WORST FIRST,PATTERNS FORWARD
3380 015214

07-0CT-80 18:01

+¢RECJRSIVE®s

PAGE 113 SEQUENCE 167

BAWPAR: SUBTST

<<BANKS WORST FIRST,PATTERNS REVERSE

:*SUBTEST

BANKS WORST FIRST,PATTERNS REVERSE

SEQ 0174
*+RECURSIVE**>>

."."""""""'t""""Q"'"Q'."""""'Q""'l""""""'Q""."""'

+*RECURSIVEwe

".".t"..""""""""""""tIt"""""""'.'.".'.Q"""""Q""""

3381 015214

005037

002109

3383
3384
3385
3386
3387
3388
3389
3390

004737
005737
001415
005737
001412
005737
001007
004737

044240
002114

004737

016150

3394 015256
3395 015262
3396

005337
100373

002110

3398 015270

004737

3382

015220
015224
015230
015232
015236
015240
015244
015246

3391
3392 015252
3393

002126
002122

044742

3397 015264

005037 002214

3399 015274

002351

3400

1%:

044752

28:

4$:

CLR

BANK

;SET BANK T0 0

CALL
ST
BEQ
ST
BEQ
ST
BNE
CALL

EXBANK
ACFLAG
43
BMFLAG
4
RRFLAG
43
SETPAT

;EXAMINE BANK
:CAN WE ACCESS THIS BANK?
INO = GO TO BANK LOOP TERMINAT;ON
1S THIS BAD MEMORY (WORST FIRST)
INO - GO TO BANK LOOP TERMINATION
:RELOCATION REQUIRED?
YES - GO TO BANK LOOP TERMINATION
*SET HIGH PATTERN FOR CORRECT MEMORY

:START OF BANK .00P

:START OF PATTERN LOOP
CALL
MTEST
;TERMINATION OF

DEC
PATTERN
;IS THIS THE LAST PATTERN?
BPL
28
:NO - LOOP ON THIS PATTERN
;TERMINATION OF BANX LOOP

CLR

CALL

BGE

:END OF

CONTFLAG
INCBNK
1

;NEXT HIGHER BANK

;1S THIS AN EVEN NUMBERED PASS?
IYES - SKIP

005137
001003

002540

COM
BNE

WORST
5%

3404
3405
3406
3407

015304
015310
015312
015316

004737
000207
005737
001401

015214

CALL
RE TURN
TST
8EQ

BAWPAR

5409 015322
3410 015326

3408 015320

3411
3412 015332

3413 015336
3414 015342

;**NOTE+¢ RECURSIVE

002124

004737

042466

6$:

004737

015214

000207

004737
000207

043356

RETURN

:1F NOT DONE - LOOF ON THIS BANK

LOOPS

3401 015276
3402 015302
3403

;GO TEST CORRECT MEMORY

PATTERN [GOP

CALL

RLFLAG
6$

CALL
RELOCATE
ON.ERROR THEN $RETURN

;CALL SELF
;HAVE WE BEEN RELOCATED?
INO - SKIP
IYES - RETURN

:MOVE & MAP PROGRAM

;#*NOTE+* RECURSIVE CALL
CALL
BAWPAR
;CALL SELF

CALL

RE TURN

UNRELOCATE

UNMOVE & UNMAP PROGRAM

G 14

MACRO M1113
07-0CT-80 18:01
BANKS WORST FIRST PATTERNS REVERSE
**RECURSIVE*e

PAGE 115 SEQUENCE

CIMSDBO MSit1-L/M DIAGNOSTIC

3617 015344

PAFBAF:

SUBTST

s*SUBTEST

168

SEQ 0175

<<PATTERNS FORWARD,BANKS FORWARD
R

*¢RECURSIVE**>>

PATTERNS FORWARD,BANKS FORWARD

*eQECURSIVE
2

R R

,'""Q'l"l"’""""""""""'Q"'."".'QQ'."""'."'"""""Q'Q"""'

CLR

%213 015344

005037

G02110

gzg? 015350

005037

002100

1%:

3422
2423
3424
3425
3426
3427
3428
gzgg

004737
004737
001610
005737
001405
005737
001002
004737

044240
044710

2%:

015406
015412
015416

005037
004737
002356

002214
044752

015420
3436 015426
3437

004737
001351

044726

005137

002132

3431
3432
3433
3434
3435

015354
015360
015364
015366
015372
015374
015400
015402

3438 015426
3439
3440 015432
3441
3442 015434
3443 015440
3444 015442
3645 015446

001403

004737
000207
005737
001401

5646 015450
3447 0156452
3448 015456

000207
004737

2450 015462
3451 015466
3452 015472

004737
004737
000207

3449

016150
4%:

BEQ

:NO - GO TO BANK LOOP TERMINATION

BNE
CALL

3]
MTEST

;YES = GO TO BANK LOOP TERMINATION
;GO TEST CORRECT MEMORY

INCBNK
2%

sNEXT HIGHER BANK
;IF NOT DONE - LOOP ON THIS BANK

ACFLAG

;CAN WE ACCESS

RRFLAG

;RELOCATION REQUIRED?

CALL
BGE

PATTERN LOOP

;NEXT HIGHER PATTERN
;0K - LOOP; ELSE CONTINUE

BEQ

; COMPLEMENT 1YPE (Orf MEMORY
;1S THIS AN EVEN NUMBER PALSY
;YES = SKIP

CALL

PAFBAF

sCALL SELF

;**NOTE++ RECURSIVE CALL

002124

5%:

042466

6%:

THIS BANK?

. TERMINATION Of BANK LOOP
CLR
CONTFLAG

CALL
INCRPT
BNE
1%
SEND OF LOOPS
TMELAG
(oM

015344

015344
043356

;TERMINATION OF

;SET BANK TO 0

BNE

TST

002122

;SET PATTERN 10 0

;EXAMINE BANK
;CORRECT MEMORY FOR THIS BANK?
:NO - GO TO BANK LOOP TERMINATOR

TST

002114

PATTERN

:START OF PATTERN LOOP
CLR
BANK
;START OF BANK LOOP
CALL
EXBANK
BANKOK
CALL

RETURN

1ST

BEQ

RE TURN
CALL

RLFLAG

;HAVE

RELOCATE

ON.ERROR THEN SRETURN
;**NOTE++

CALL
CALL

RETJRN

RECURSIVE

PAFBAF
UNRELOCATE

WE BEEN RELOCATED?

:NO - SK]IP

CALL

;YES = RETURN
;MOVE & MAP PRCGRAM

sCALL SELF

;UNMOVE & UNMAP PROGRAM

CIMSDBO MSil-L/M DIAGNOSTIC

PATTERNS FORWARD,BANKS

FORWARD

3455 015474

MACRO M1113

(07-0(T-80 18:01

*+RECURSIVE
e
PAFBAW:

SUBTST

H 14
PAGE 117 SEQUENCE 169

SEQ 0176

<<PATTERNS FORWARD,BANKS WORST

FIRST

«+RECURSIVE2+>>

:t"tt't'.'lt't'"""'"""""'t""'t"'.'..""""'Q""""""""Q"'Q'

;*SUBTEST

PATTERNS FORWARD ,BANKS WORST FIRST

«¢RECURS|VEee

;'Q."Qtl.t""""""'"""""t'."Ot""t""i'."""""QQ'ti"""t""'

LfluuflhJNhJ-J
OO SO

d
e
D e
D
d

(W RV LW LU LV LV RV IV |

OOO0OOOOCO

3456 015474
34657
3458 015500
3459
3460 015504
3461 015510
514
3462
€
3463
5
3464
)
3465
p)
3466
p)
3467

\¥al (VP

Po o

md
—
-

(¥,] N
(¥, AN

5
3468
5 40
3469
3470
3671
3472
3473
3474
3475 015556
3476 015562
3677
3478 015564

3479
3480 015570
3481
3482 015572
3483 015576

3484 015600
3485 015604
3486
3487 015606
3488 015612
3489 015614
3490 015620
3491 015822
3492 015624
3493 015630
3494
3495 015634
3496 015640
3497 015644

005037

002119

005037

002100

1%:

004737
004737
001013
005737
001410
005737
001405
005737
001002

044240

2%:

004737

016150

005037
004737
002353

002214
044752

004737
001346

044726

005137

002132

044710

PATTERN
(LR
;START OF PATTERN LOOP
BANK
CLR
;START OF BANK LOOP
EXBANK
CALL

8EQ

:NO - GO TO BANK LOOP TERMiNATION

BEQ

‘s

:NO - GO TO BANK LOOP TERMINATION

49
MTEST

;YES = GO TO BANK LOOP TERMINATION
;GO TEST CORRECT MEMGRY

TST

1ST

002126

TST

002122

BNE
CALL
4%:

BANKOK

ACFLAG

BMFLAG

015474

004737
000207
005737
001401
0002€7
004737

015474

004737
004737
000267

015474
043356

002540

;1S THIS BAD MEMORY

RRELAG

CALL

CALL
INCRPT
BNE
1%
LEND OF LOOPS

JNEXT HIGHER BANK

6%:

042466

7%:

SNEXT HIGHER PATTERN
;0K = LOOP; ELSE CONTINUE

(oM

TMFLAG

;COMPLEMENT

BEQ

;YES - SKIP

CALL

PAFBAW

;CALL SELF

WORST

4TH PASS?

RETURN

COM

TYPE OF

;YES = SKIP

CALL

PAFBAW

TST

RLFLAG

RE TURN
CALL

[4)

:NO - SKJP

RELOCATE

;MOVE & MAP PROGRAM

RETURN

BEQ

ON.ERROR THEN SRETURN

;**NOTE++ RECURSIVE CALL

CALL
CALL

RETURN

PAFBAW
UNRELOCATE

MEMORY

;1S THIS AN EVEN NUMBER PASS?

BNE

;**NOTE++ RECURSIVE CALL

002124

;1F NOT DONE - LOOP ON THIS BANK

PATTERN LOOP

;**NOTE++ RECURSIVE CALL

5%:

(WORST FIRST)

sRELOCATION REQUIRED?

INCBNK

;TERMINATION Of

004737
000207
005137
001003

;CAN WE ACCESS THIS BANK?

;TERMINATION OF BANK LOOP
CLR
CONTFLAG

BGE

001403

;SET BANK T0 0

;EXAMINE BANK
;CORRECT MEMORY FOR THIS BANK?
;NO - GO TC BANK LOOP TERMINATOR

CALL

BNE

002114

;SET PATTERN T0 0

;CALL SELF
;HAVE WE BEEN RELOCATED>
;YES = RETURN

;CALL SELF

;UNMOVE & UNMAF PKOGRAM

MACRO M1113
(07-0CT-80 18:01
PATTERNS FORWARD ,BANKS WORST"F]RST
*+RECJRSIVE
e

PAGE

(IMSDBO MSi1-L/M DIAGNOSTIC

3500 015646

PARBAF:
22222

SUBTST

CeSUBTEST

R X

[ 14
119 SEQUENCE

170

SEQ 0177

<<KPATTERNS REVERSE ,BANKS FORWARD
R

AR R

REEARARE AR

PATTERNS REVERSE,BANKS FORWARD

**RECURS [VE**>>

AR AR
RRARARAN)]

*«RECURSIVE
¢e

;'ttttt't"""""""""""""Q""t""""'"'.'.""t'."."""Q"""'

Pole o NTo RV, P YV 1,9

b
D

coh

b oed

(U AV LU, RV LV, AV

NN LN N N N NN

U LV, ]

3501
3502
3503
3504
3505
3506
3507
3508

015646

004737

066762

CALL

HIPAT

;SET MIGHTEST PATTERNS

015652

005037

002100

(LR

BANK

;SET BANK T0 0

015656
015662
015666
015670
015674
015676
015702
015704

004737
004737
001010
005737
001405
005737
001002
004737

044240
044710

CALL
BNE

BANKOK
4

;CORRECT MEMORY FOR THIS BANK?
:NO = GO TO BANK LOOP TERMINATOR

BEQ

;NO = GO TO BANK LOOP TERMINATION

BNE
CALL

4%
MTEST

015710
015714
015720

005037
004737
002356

002216
044752

(LR
CALL

CONTFLAG
INCBNK

015722
015726

005337

015730

005137

015734

001403

015736
015742

004737
000207
005737
001401
000207
004737

015646

004737
004737

015646
043356

015744
015750
015752
015754
015760

015764
015770
015774

100351

000207

:START QOF

002114

“START OF BANK LOOP
CALL
E XBANK
TS7
1S7

002122

016150
(%

PATTERN LOOP

ACFLAG

BGE

002110

DEC
BPL

PATTERN
1%

002132

(OM

TMFLAG

;TERMINATION OF

CALL

PARBAF

TST

RLFLAG

;eeNOTE+«

002124

5%:

042466

6%:

BEQ

RETURN

ACCESS

THIS BANK?

;RELOCATION REQUIRED?

BANK

:YES = GO TO BANK LOOP TERMINATION
:G0 TEST CORRECT MEMORY

(00OP

;NEXT HIGHER BANK

;1F NOT DONE - LOOP ON THIS BANK

PATTERN {OOP

sNEXT LOWER PATTERN
;0K = LOOP; ELSE CONTINUE

LOOPS

BEQ

RE TURN

;CAN WE

RRFLAG

;TERMINATION OF

JEND OF

;EXAMINE BANK

RECURSIVE

:COMPLEMENT TYPE C7 MEMORY
(ALL

;1S THIS AN EVEN NUMBER PAZSY
JYES - SKIP

JCALL SELF
;HAVE

BEEN RELOCATED?

JNC - SKIP

:YES = RETURN

:MOVE & MAP PROGRAM
RELOCATE
CALL
ON.ERROR THEN SRETUPN
ct*NOTE+e RECURSIVE CALL
;CALL SELF
PARBAF
CALL
& UNMAP PROGRAM
;UNMOVE
UNRELOCATE
CALL
RE TURN

(IMSDBO MSi1-L/M DIAGNOSTIC

PATTERNS REVERSE ,BANKS fORWARD

MACRO M1113
07-0(T-80 18:01
**RECJRSIVE
e
PARBAW:

3538 015776

XZEX

SURTST

+SUBTEST

J 14
121 SEQUENCE

PAGE

171

<<PATTERNS REVERSE ,BANKS WORST
R X

R R

R X

AR R

SEQ 0178
FIRST

«eRECURSIVE®**>>

AR AR XEZRXERRRRAARZARAARRRRRRRRRRRRARARRRDA]

PATTERNS REVERSE,BANKS WORST FIRST

«eRECURSIVE®+

;"t'Q'."'l.t"""""""'""'.Q."'"""."""'."'.".""'QQ"QQ'""t'

3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555

015776

004737

066742

0916002

005037

002100

1%:

016006
016012
016016
016020
016024
016026
016032
016034
016040
016042

004737
004737
001013
005737
001410
005737
001405
005737

044240
044710

2%:

016046
016052

005037
004737
002353

002214
044752

016060
016054

005337

002110

016066

005137

002132

016072

001403

016074

004737
000207
005137
001003

015776

004737
000207
005737
001401
000207
004737

015776

3556 016056

3557
3558
3559
3560
3561
3562
3563
3564
3565

3566 016100

3567 016102
3568 016106
1569
3570 016110
3571 016114
3572 016116
3573 016122
3574 01€124
3575 016126
3576 016132
3577
3578 016136
3579 016142
3580 016146

001002
004737

100346

004737

004737
000207

002114

01577¢
043356

CLR

BANK

:SET BANK T0 0

CALL
BNE

BANKOKX
(3

;EXAMINE BANK
;CORRECT MEMORY FOR THIS BANK?
:NO = GO TO BANK LOOP TERMINATOR

8EQ

:NO = GO TO BANK LOOP TERMINATION

BEQ

I 3

:NO - GO TO BANK LOGP TERMINATION

:YES - GO TO BANK LOOP TERMINATION

TST

49:

PATTERN LOOP

:START Of BANK LOOP
EXBANK
CALL

BNE

016150

042466

;SET HIGHTEST PATTERN

TST

002122

002124

HIPAT

:START OF

187

002726

002540

CALL

ACFLAG

BMFLAD

;1S THIS BAD MEMORY

RRFLAG

CALL
MTEST
;TERMINATION OF
CLR CONTFLAG

CALL

:CAN WE ACCESS THIS BANK?

DEC

PATTERN

com

TMFLAG

BEQ

CALL

PARBAW

COM
BNE

WORST
6%

CALL

PARBAW

TST

RLFLAG

;TERMINATION OF

:G0
BANK LGOP

5%:

RE TURN

6%:
7%:

BEG

RETURN

PATTERN LOOP

;NEXT LOWER PATTERN

RECURSIVE

;0K = LOOP; ELSE CONTINUE

CALL

RELOCATE
CALL
ON.ERROR THEN SRETURN

. **NOTE*+ RECURSIVE CALL

CALL

RE TURN

PARBAW

CORRECT MEMORY

JNEXT HIGHER BANK

;««NOTE+*« RECURSIVE

RE TURN

TEST

:1F NOT DONE - LOOP ON THIS BANK

B8PL
1%
;END OF LOOPS

;**NOTE+*+

FIRST

:RELOCATION REQUIRED?

INCBNK

BGE

(WORST

UNRELOCATE

;COMPLEMENT TYPE QF MEMORY
;1S THIS AN EVEN NUMBER PASS?
JYES - SKIP
;CALL SELF
:4TH PASS?
JYES - SKIP

;CALL SELF
:HAVE WE BEEN RELOCATED?

;NO - SKIP

;YES = RETURN

;MOVE £ MAP PROGRAM
sCALL SELF

:UNMOVE & UNMAP PROGRAM

K 14

MACRO M1113 07-0CT-80 18:01
CIZMSDBO MSi1-L/M DIAGNOSTIC
**RECURSVE®e
PATTERNS REVERSE ,BANKS WORST FIRST
MTEST:

3583 016150

SUBTST

222X

S*SUBTEST

22X

PAGE 123 SEQUENCE 172

<<SUBR

SUBR

R X

SETUP MEMORY TEST>>
R XX

R R R

RN AR R

AR ARARERAZARASRRRRRARAREARARARRAAAARANA)

SETUP MEMORY TEST

:Q'."'i't"'."""""""""".'Q"""""Q"""t't't'."'.'t"."""0"'

3584
3585

3586
3587
3588
3589
3590
3591
3592

3593
3594
3595
3596
3597
3598

3599
3600

005037
005737
001413

002256
002116

HEADER
MUT

;INITIALIZE HEADER MESSAGE TYPEOUT
;INDICATE THERE IS A MEMORY UNDER TEST

TST

MKFLAG

JECC?

HOLDLOOP

—

016244

004737
000402
004737
005037

017456
017676
002106

PASFLG

CLR

BEQ

BEGIN

004737

000207

SET
SET

IF
[F

CONTFLAG 1S TRUE THEN LEAVE HOLDLOOP
SKIPMK IS FALSE

CALL
MKCONTROL
END; OF [F SKIPMK
HOLDLOOP
END

CALL

MT1:

MT2:

CALL
CLR
SET

:NO - SKIP

RETURN

MKTEST
MT2
MJTEST
MUT
HEADER

;YES - DO ECC TESTS

;D0 PARITY TESTS
;NOW = NO MEMORY UNDER TEST
JALLOW HEADERS NORMAL

SEQ 0179

CIMSDBO MSit1-L/M DIAGNOSTIC
SUBR
SETUP MEMORY TEST

MACRO M1113

MKCONTROL : SUBTSTY

3603 016244

L 14
PAGE 125 SEQUENCE 173

07-0CT-80 18:01

CARRRNR RN

:+SUBTEST

AN RARCC A

SUBR

<<KSUBR

SEQ 0180

TEST ECE CSR LOGIC DISPATCH>>

TR C LR AR RO RN

RN AN ERNRANRRARNRARNRANRNOCACROQROEOERNORNROOQOONCOOTNTS

TEST ECC CSR LOGIC DISPAT(CH

;'."'Qttt"."t'i""i"'t""""Q""".Q"""'.Q"'Q't""""t"'.""'t'Q

3604
3605
3606
3607 016244
3608 016254
3609 016264
3610 016300
3611 016306
3612 016314
3613 016320
3614 016324
3615 016330
3616 016334
3617 016340
3618 016342
3619 016346
3620 016350
3621 016354
3622 016360
3623 016362
3624 016366
3625 016374
3626 016400
3627 016404
3628 016410
3629 016414
3630 016420
3631

016424

3632 016426
3633 016434
3634 016442
3635 016444
3636 016452
3637 016466
3638 016470
3639 016470
3640 016474

3641 016510
3642 016516
3643 016524
3644 016532
3645 016540
3646 016544
3647 016546
3648 016554
3649 016556
3650 016564
3651 016570
3652 016572
3653 016574
3654 016600
3655 016604
3656 016612

;THE NEXT TWO MODULES SOLVE THE PROBLEM Of
;HOW TO RUN THE CSR TESTS ON EACH ECC MEMORY

1F SELONLY IS TRUE THEN SRETURN

012737
012737
005037
005037
005037
013700

016001
000301
042701
006301
010137
005737
001421
005237
012737
005237

005237

016001
072127
042701
050137
005003
116337
042737

060000
157776
002230
002232
002302
002102
002624

IF INHECC IS TRUE THEN SRETURN
PUSH
BANK,RO,R1,R2,R3

002226

MOV

#FIRST ,CSRFBANK

CLR
CLR

CSRINT
SPLTCSR

MOV

CLR

BANKINDEX,RO
CONFIG(RD) ,R1
R1

ASL

002476
002134

MOV
TST

002232
120000
002302
002230
002624

INC

002226

002146
002146

1%:

;STORE IN THE LOW BYTE
;1S THIS BANK INTERLEAVED?

;BRANCH JF NOT INTERLEAVED

MOV
INC

#120000, CSRLBANK
CSRLOOP

MOV
ASH
BIC

CONFIG(RO) .RY
’-3,R1

;GET

CLR

R1,CSRHOLD
R3

;STORE

CSRHOLD(R3) ,CSRNO
#%036,CSRNO

;CLEAR ANY UNNECESSARY BITS

#4C17000,R1

BIS

MKLOOP: MOVB
BIC

;WE MUST LOOP TWICE FOR AN INTERLEAVED BANK

CSRINT

FOR R2

:= #0 TO CSRINT

005037
013737
062737

002220
004000

002222

013737
005737
001404
062737
000403
062737
004737

002362
002232

002364

040000

002364

000002

002364

017052

005037

002074

005037

002256

002222

INTERLEAVE

(SR NUMBFR

IT IN CSRHOLD'S UPPER BYTE

:MAP TEST SPACFE

TO BANK

. INVALIDATE BACKROUND PATTERN

INVALIDATE

002304

THE

:= (SRFBANK TO CSRLBANK BY #4000

MAP BANK

104511

AND ZERO THE LOOP COUNTER

:GET THE BANK INDEX
:GET CSR NUMBER

SPLYCSR

FOR CSRFIRST

104424

;

R1,CSRHOLD
INTFLAG

INC

002476

;SET FIRST TEST ADDRESS TC FIRST ADDR.

#4C17,R1

BEQ

177775
160/77

177741

CSRLOOP

MoV
MOV
SWAB

BIC

177760

002476

#LAST,CSRLBANK

BEGIN CSRSTUFF
CLR
SUCCESS
If ACFLAG IS TRUE AND RRFLAG IS FALSE

MOV

ADD

CSRFIRST,CSRLAST

#4000,CSRLAST

FOR TESTADD

1$:

TO CSRLAST BY #4

Mov

TESTADD, TESTADD+?2

BEQ

1S7

2%:

:= CSRFIRST

SPLTCSR

SBD

g:OOOO.TESYADD’Z

ADD

N2, TESTADD+2

(ALL

ON .NOERROR

SBETEST

CACHOF F
NOPAR
CLR
FOR | := #0 TO #27
SET
CLR

HEADER
PASFLG

:TURN CACHE OFF
INDICATE PARITY ACTION

016616
016622
016624
016630

AGNOSTIC
MACRO M1°13
R LOGIC DISPAT(CH

07-0CT-80 18:01

m 14

PAGE 125-1

SEQUENCE 174

LET RO := |

010637
162737

004737

QOO
— OO0
~NOnrnN
WO
—
o
S
OO

3657
3658
3659
3660

TEST E

SUBR

CIMSDBO MSil-L

PUSH
MCV

R3
SP,CTLKVEC

#2,CTLKVEC

SuB

002142

CALL CSRCASE
POP
R3
END ,OF FOR !

CACHON

104423

SUCCESS
SET
LEAVE CSRSTUFF

END

:OF

SEQ 0181
;SAVE LOOP COUNTER
;SAVE VECTOR IN CSR OfF
sRESTORE LOOP COUNTER

:TURN CACHE ON

ON.NOERROR

END :0Of FOR TESTADD
END ;OF IF
END CSRSTUFF
IF SUCCESS IS FALSE
TYPE
MSGA34
TYPOCS
BANK,<TYPES BANK NUMBER>,3

TYPE

3681
3682
3683
3684
3685
3686
3687

017004
017006
017012
017014
017020
017022
017030

3688 017034

3¢89 017050

005237

002232

062737
012737
005203
020337
003002
000137

000002
000001

016426

005037

002232

104472

000207

MsGB34

END :OF IF SUCCESS
END; OF FOR CSRFIRST
SPLTCSR
INC~
END; OF FOR R2
ADD
#2,CSREBANK

002224
002232

MOV

#1,SPLTCSR

JMP

MKLOOP

SET
CLR
POP

CONTFLAG
SPLTCSR
R3.R2,R1,RU,BANK

INC
cMP
BGT

002302
1%

ECCINIT

RETURN

R3
R3,CSRLOOP
1%

;TRAP ON DOUBLE BIT ERRORS (NORMAL

“x

MACRO M1113
TEST ECC CSR LOGIC DISPATCH

(ZMSDBO MSi1-L/M DIAGNOSTIC

SUBR

07-0CT-80 18:01

SBETEST:SUBTST

3692 017052

22 E2222 2

S «SUBTEST

N 14
PAGE 127 SEQUENCE 175

SEG 0182

<<CHECK FOR SBE FREE LOCATIONS>>

SRR R 222

AR AR

220

CHECK FOR SBE FREE LOCATIONS

0dRRR

R20RdRRRRRdRdRRRdd] ]}

;'.t"t."t"""""""'""""'"'."'.'.'".'.""'""""""'.'.Q"""'

;IN ORDER TO DETERMINE If A LOCATION IS SBE FREE | DO THMIS

3693

3634
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
37N
3712
3713
3714
375
3716

3717 017052
3718 017060
3719 017064

3720 017070

3721 017076
3722 017100
3723 017102
3724 017106

‘WRITE ZEROS WITH ECC DISABLE

‘READ ZEROS BACK
“If NOT ZEROS THEN RETURN ERROR

"WRITE ZEROS WITH ECC ENABLED BUT TRAPS DISABLED
READ ZEROS BACK
“IF NOT ZEROS THEN RETURN ERROR

STEST THE LOCATION FROM THE PAR'S (WITH NO PROGRAM FETCHES)
;IF THERE WERE ANY SBE'S OR DBE'S THEN RETURN ERROR

:COMPLIMENT ZEROS TO ONES WITH ECC DISABLE
+READ ONES BACK
:IF NOT ONES THEN RETURN ERROR

;WRITE 100,,100000,00000 (CHECKBITS COMPLIMENT OF BEFORE)
; MWITH ECC ENABLED BUT TRAPS DISABLED
JTEST THE LOCATION FROM THE PAR'S (WITH NO PROGRAM FETCHES)
;IF

:IF NONE OF THE ABOVE FORCES A RETURN ERROR THEN RETURN NO.ERROR
.ENABL

013701
013704

002362
002364

CLEAR
TST
BNE

(R1),(R4)
(R1)
SBENT

BNE

SBENT

TST

SJENTER TEST MODE

;TURN CACHE OFF
sDISABLE ECC ON 1 SELECTED (SR

;CLEAR 1 SELECTED CSR

(R1)

BNE

SBENT

BNE

SBENT

TST

;PUSH RO,R1,R4 ONTO STACK

(R4)

CLP1CSR
(R1),(R4)
C(LEAR
(R&)

TSTREAD
STEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES)
CSR
SET.IN
T4
IF #BIT15'BI
:DISABLE ERRGEN'S ERROR PRINTOUT
SET SKPERR

104510

104471

TESTADD,R1
MOV
MOV
TESTADD+2,R&
TESTAREA

TST

005711
001100
005714
001076

042700

LSB

RO,R1,R4

ECCIDIS

005711
001107
005714
001105

104512

PUSH

CACHOFF

104424
10447

104503

3734 017132
3735
3736 017134
3737 017136
3738 017146
3739 017154
3740 017156
3741 017162
3742 017166
3743 017172
3744 017200
3745 017200

THERE WERE ANY SBE'S OR DBE'S THEN RETURN ERROR

002430
177774
177600

ERRGEN

MOV

ASH

ERRADD,RO
#-4 R

#+ci77,R0
glc
IF BANK EQ RO THEN GOTO SBENT

END: OF

gccinls

If #BIT1S

:DISABLE ECC ON 1 SELECTED CSR

CIMSDBO MSi1-L/M DIAGNOSTIC

CHECK FOR SBE FREE LOCATIONS
N = 200
OSSN
S
WIWHNMNINON)
SN

OOO0OO0OOO
— ) el il ol md b

-~ Nflflflfifi

NNNQN

OO0O0O0O
— el el e

3746 017202
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
£

nNo

~N)

3757
3758
3759
3760
3761 017244

005111
005114
023711
001046
023714
001043
104503
005011
012714
005711
001035

022714
001032

013700
072027
042700

3777 017330

5/78 017332
3779 017336
3780 017340

3781 017342
3782 017344
3783 0173%2
3784

(07-0CT-80 18:01
(OM
COM

002554

(MP
BNE
(MP
BNE

002554

160000

TST

BNE
(MP
BNE

100000

104417
104473
104423

SEQUENCE

;CLEAR 1 SELECTED (SR

(R1)

SBENT
#BIT15,(R4)
SBENT

STEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES)

SET SKPERR
ERRGEN
ERRADD,RO
MOV
ASH #-4 RO

177774
177600

SEQ 0183

(R&)
ONES, (RD)
SBENT
ONES, (R&)
SBENT

IF #BIT15.B174 SET.IN (SR

002430

176

(R1)

TSTREAD

;DISABLE ERRGEN'S ERROR PRINTOUT

#%C177,RO
BIC
IF BANK EQ RO THEN GOTO SBENT
END; OF IF #BIT1S

104417
104473
106423

104503

B 15

PAGE 127-1

CLRICSR
(R1)
CLR
MOV
#B1T15,(RL)

104510
104512

3769 017310
3770
3771 017310
3772 017312
3773 017314
3774 017316
3775 017324
3776

MACRO M1113

KERNEL

;ENTER KERNEL MODE

CACHON
POP
R4 ,R1,RO
SRETURN NOERROR

. TURN CACHE ON
;POP RO,R1 & R4

CLR1CSR

;CLEAR 1 SELECTED (SR

ECCIINIT

SBENT:

CLEAR

KERNEL

ECCTINIT

(R1),(R4)

CACHON
POP
R4 ,R1,RO
$RETURN ERROR
.DSABL
LS8

INITIACIZE 1 SELECTED (SR
FROM STACK

;ENTER KERNEL MODE
JINITIALIZE 1 SELECTED CSR
:TURN CACHE

;POP RO,R1 & R4 FROM STA(CK

CZMSDBO MSil1-L/M DIAGNOSTIC
(HMECK FOR SBE FREE LOCATIONS
3787 017356

MACRO M1113

07-0CT-80 18:01

¢ 15

PAGE 129 SEQUENCE 177

SEQ 0184

CSRCASE :SUBTST

<<CSR PATTERN CASE STATEMENT>>

;*SUBTEST

(SR PATTERN CASE STATEMENT

:tQtittnttttt"t't"0"""""i'tQ'Qtttt'"t't"t't"""'t"t't't"t't"'tt"t
:tt'i"ttttttttt'tt't""'t""tt0tttQt'tttt"ttl'tt""'t"t't."t""'t"'tt't

3788 017356
3789

CASE RO
;WARNING [F YOU CHANGE THIS TABLE ALSO

: CHANGE “'SDOWO’' = ''$SODWS'' (THE PATTERN BIT MAP)

g;g?

3792

3793 017366
3794 01737C
3795 017372

021132
021230
023622

3797 017376
3798 017400
3799 017402
3800 017404
3801 017406

021332
021426
021502
021560
021626

3796 017374

3802
3803
3804
3805

017410
017412

017414
017416
3806 017420
3807 017422
3808 017424
3809 017426
3810 017430

021264

026354
026354
026354
026354

MrCSRT:

:PAT
TIME
MT0006
MT0010
MT0025

;<1 SEC
;<1 SEC
;<1 SEC

MT0012
MT0013
MT0014
MT0015
MT0016

;<1
;1
;1
;1
;<1

SEC
SEC
SEC
SEC
SEC

WRITE BYTE C.EARS SBE TEST
CREATE DOUBLE BIT ERROR TEST
WRITE INHIBIT DURING DATIP WITH DBE
WRITE INHIBIT OF BYTF WITH DBE
WRITE INHIBIT OF WORD WITH DBE

;
;
:
;
;
;
;

SEC
SEC
SEC
SEC
SEC
SEC
SEC

NULL
NULL
NULL
NULL
NULL
NULL
NULL

MT10011

MT0999
MT0999

026354
026354

MT0999
MT0999
MT10999
MT0999
MT0999
M10999
m10999

31812 017434
3813 017436
3814 017440

026354
026354
026354

MT0999
MT0999
MT0999

5816 017444
3817 017446

026354

3811 017432

3815 017442

3818 017454

026354
026354
026354

026354

000207

MT10999

MT0999

:<2 SEC

: 0 SEC
; 0 SEC

0
0
0
0
0
0
0

: 0 SEC

; 0 SEC
; 0 SEC
; 0 SEC
;U SEC

MT0999
: 0 SEC
END ;OfF CASE RO

RETURN

DISCRIPTION

INITIAL DATA TEST
BYTE ADDRESSING TEST
INTERRUPT ENABLE TEST

CREATE SINGLE BIT ERROR TEST

NULL TEST
NULL TEST

TEST
TEST
TEST
TES?
TEST
TEST
TEST

NULL TEST

NULL TEST
NULL TEST
NULL TEST
NULL TEST

NULL TEST

C(ZMSDBO MSi1-L/M D]AGNOSTIC

(SR PATTERN CASE STATEMENT

MACRO M1113

3821 017456

0_15
PAGE 131 SEQUENCE 178

07-0CT-80 18:01

MKTEST:

SUBTST

«<<SUBR

ECC TEST DISPAT(H>>

SUBR

ECC TEST DISPATCH

;'t!t't'ttt'tt't"Qt""""""'t"'l""""'."""'.""'0"."""""""'

;*SUBTEST

:tt"'i"t""tt'tt'"'i""""".t".""’it'."'t"""'."'..'"""".Q""

017456
017474
017476
017500
017502
017502
017510
017516
017522
017524
017544
017546
017546
017552
017560
017564
017602
017604
017606
017610
017610
017614

IF ISUO SET.IN aSWR GR ACTFLAG IS TRUE
c EEC
;DISABLE ERROR CORRECTION

104470

104502

012737
012737
013700
006300

000002
000002
002110

002074
002276

002142

000002
017616

#2 ,NOPAR

;INDICATE PARITY AZTION

MOV
ASL

PATTERN,RO
RO

:GET PATTERN NUMBER
;MAKE IT A WORD ADDRESS

#2,P(BUMP

sTRAPS ADD 2 T0 PC

IF MKPAT(RO) NE #MT0034 AND MKPAT(RO) NE #MT0999
INVALIDATE
:INVALIDATE BACKGROUND PATTERN ON 'BANK''
END ;OF IF MKPAT(RO)

MOV
SP,CTLKVEC
:SAVE VECTOR IN CASE OF ~K
SUB
¥2.CTLKVEC
CALL
aMKPAT(RO)
;INDEX OFF TABLE
IF #SWO SET.IN aSWR OR ACTFLAG IS TRUE
: EgASBE
:TRAP ON SINGLE BIT ERRORS

002142

104506

104472

005037
000207

;CLEAR ALL CSR'S

MOV

Mov

104511

010637
162737
004770

CLRCSR

END ;OF

ECCINIT

END :OF

CLR

002074

RETURN

:TRAP ON DOUBLE BIT ERRORS (NORMAL)

#SW0

NOPAR

;WARNING IF

:INDICATE PARITY ACTION

YOU CHANGE THIS TABLE ALSO

= "'SDDWS'' (THE PATTERN BIT MAP)
TCHANGE ''$DOWO‘
017616
017616
017620
017622
017624
0175626
017630
017632
017634
017636
017640
017642

017644
017646
017650
017652
017654
017656

026070
021674
021166
020142
020262
020654

020776
023006
021716
023260

023670
023356
025160
025350
025702
026070

026354
026354
026354
026354
026354
026354
026354
026354

MKPAT:

‘PAT

TIME

DISCRIPTION

MT0034
MT0017

;<1
<1

SEC
SEC

:SOFT ERROR = BACKGROUND PATTERN TEST
“HOLDING 1'S
& 0°'S TEST

MT0001
MT0002
MT0004
MT000S

;<1
;<1
. 1
; 1

SEC
SEC
SEC
SEC

*ADDRESS TEST
*COMPLEMENT ADDRESS TEST
*ROTATING ZEROS TEST
“ROTATING ONES TEST

:<1
;20
: 3
<1
35

SEC
SEC
SEC
SEC
SEC

*NOTE MT0034 MUST BE FIRST & LAST

MT0007

MT0021
MT0020
MT0022

MT0026
MT0024
MT0031
MT0032
M 0033

MT0034

<1 SEC

: 1 SEC
<1 SEC
:10 SEC

SEC

:ADDRESS BIT TEST

“MARCHING 0°'S & 1°S TEST
“MARCHING 1°'S & 0°'S !N CHECK BITS
TEST
"REFRESH © SHIFTING DIAGONAL
“RANDOM DATA TEST
SFAST GALLOPING PATTERN TEST
:SOB-A-LONG TEST
:WRITE RECOVERY TEST
*BRANCH GOBBLE TEST

:SOFT ERROR - BACKGROUND PATTERN TEST

CNOTE MT0034 MUST BE FIRST & LAST

MT0999
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999
MT0999

;
:
:
:
;
.
:
:

0
0
0
0
0
0
O
0

SEC
SEC
SEC
SEC
SEC
SEC
SEC
SEC

CNULL
*NULL
*NULL
sNULL
sNULL
*NULL
*NULL
*NULL

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

SEQ 0185

CZMSDBO MSi1-L/M DIAGNOSTIC
SUBR
ECC TEST DISPATCH

MACRO M1113

3879 017676

E_15
PAGE 133 SEQUENCE 179

(07-0CT-80 18:01

MJTEST:

SUBTST

<<SUBR

PARITY TEST DISPAT(H>>

SUBR

PARITY TEST DISPAT(H

SEQ 0186

;"'Qi"'iQt't'Q"""""""'"'t"'""""'i"""."""'t""t""""""

. *SUBTEST

;"t't"t"tt.i""""t"""t"'tt"'Q'Q"'tt"it't"tt""'.'.'""'."'Q"QQ

3883 017676
3884 017706
3885 017712
3886 017720
3887 017726
3888 017732
3889 017734

3890 017754

012737
012737
012737
012737
013700
006300

000002
000002
060000
060002
002110

INVALIDATE

010637
162737

002142
000002

3895 017774

005037

002074

gggg 020000

MOV
#2 ,NOPAR
;INDICATE PARITY ACTION
MOV
#2 ,PCBUMP
:TRAPS ADD 2 TO PC
MOV
#FIRST, TESTADD
MOV
NFIRST+2 TESTADD¢?2
MOV
PATTERN,RO
;GET PATTERN NUMBER
ASL
RO
MAKE IT A WORD ADDRESS
IF MJPAT(RQ) NE #MT0034 AND MJPAT(RO) NE #MT0999

104511

3891 017756
3892 017756
3893 017762

3894 017770

002074
002276
002362
002364

004770
000207

020002

END ;OF If MJPAT(RO)
MOV
SP,CTLKVEC
sus
#2,CTLKVEC

002142

CALL
(LR

RETURN

3898

392¢
3923 020050
3924 020052
3925 020054
3926 020056
3927 020060

YOU CHANGE

;SAVE VECTOR [N CASE OF

“K

; INDEX OFF TABLE

;INDICATE PARITY ACTION
THIS TABLE ALSO

; CHANGE ''$DDWO'" - “'SDDWS'' (THE PATTERN BIT MAP)

3901

3921 020046

NOPAR

;WARNING IF

%ggg

3902 020002
3903 020002
3904 020004
3905 020006
3906 020010
3907 020012
3908 020014
3909 020016
3910 020020
3911 020022
3912 020024
3913 020026
3914 020030
3915 020032
3916 020034
3917 020036
3918 020040
3919 020042
3920 020044

aMJIPAT(RO)

; INVALIDATE BACKGROUND PATTERN ON ''BANK''

026070
021132
021674
021166
020142
020262
020422
020654

020776
023006
026242
023260
023312
023670
023356
025160
025350
025702

026070
026354
026354
026354
026354
026354

MJPAT:

.PAT

TIME

DISCRIPT]ON

;NOTE MT0034 MUST BE FIRST & LAST
MT0034
;<1 SEC
;SOFT ERROR - BACKGROUND PATTERN TEST
MT0006
;<1 SEC
s INITIAL DATA TEST
M10017 ;<1 SEC
;HOLDING 1'S & Q'S TEST
MT0007 ;<1 SEC
;ADDRESS BIT TEST
MT0001
;<1 SEC
;ADDRESS TEST
MT0002
<1 SEC
;COMPLEMENT ADDRESS TEST
MT0003 ; 1 SEC
;3 XOR 9 WORST CASE NOISE TEST
MT0004
; 1 SEC
;ROTATING ZEROS TEST
MT0005
. 1 SEC
;ROTATING ONES TEST
MT0021
; 1 SEC
;MARCHING 0°'S & 1'S TEST
;WORSE CASE NOISE PARITY TEST
MT0035 ;<1 SEC
MT10022
;10 SEC
;REFRESH TEST
MT0023 ;10 SEC
;SHIFTING DIAGONAL
TEST
MT0026 ;<1 SEC
.RANDOM DATA TEST
M10024 ;20 SEC
;FAST GALLOPING PATTERN TEST
MT0031
; 3 SEC
:SOB=A-LONG TEST
;WRITE RECOVERY TEST
MT0032 ;<1 SEC
MT0033 '35 SEC
:BRANCH GOBBLE TEST

MT10034

SEC

,SOFT ERROR - BACKGROUND PATTERN TEST

.NOTE HTOOSL MUST BE FIRST & LAS
MT0999 ; 0 SEC
¢NULL TEST
JNULL TEST
MT0999 . 0 SEC
INULL TEST
M10999 . 0 SEC
;NULL TEST
MT10999 ; C SEC
M10999 ; 0 SEC
SNULL TEST

CIMSDBO MSi1-L/M DIAGNOSTIC

PATTERNS

MACRO M1113

3929
3930
3931
3932 020062

(07-0CT-80 18:01

MT0000:

PAGE

F 15
134 SEQUENCE

180

SEQ 0187

.SBTTL

PATTERNS

.SBTTL
SUBTST

MEMORY TEST SETUP RCUTINES
<<MT0000
SETUP DATA PATTERN TEST>>

:Q"t'l"""'Qt"'t"""""'""'""Q""""""."""'Q".""""""Q"

: *SUBTEST

MT0000

SETUP DATA PATTERN TEST

;'0.t't"t't'."""""""'.""'"'.'t"'."""'Q"'.""'."""""Q"'Q"

3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944

020062
020066
020072
020076
020102
020110
020112
020120
020124
020126
020134
020140

3945 020142

005037
012700
012701
004737
022737
001406
012737
004737
000207

002260
060000
040000
036330
000001

004737
000207

026424

026774
026692

(LR

REALPAT

MOV

#S12E R

MOV

REGCOPY
#1,PROTYP

;ARE WE ON AN 117442

MOV

#MTP0O00, SUPDOADD

:ELSE DO PATTERN IN MAIN MEMORY

RE TURN
BMOV

MTP0OO

CALL
CMP

003710

BEQ

002254

CALL

MT0001:

#FIRST
RO

:SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

CALL

RETURN

SUBTST

SUPDO3
SUPDO1

:BRANCH [F

;DO 1T

<<MT0001

SETUP ADDRESS

YES

IN SUPERVISOR MODE
TEST>>

;.""""'.."t""""""""'.""."'"'.tfi""'.."""Q'Q""'Q""'.'."

:*SUBTEST

MT0001

SETUP ADDRESS TEST

;t"'..'t.."""""""""'t"'.".tt"'l'Ql"ill.".."'.'.'.".."Q"Q"Q"

020142
020150
020154
020160
020164
020166
1052
020174
JS 020176
3954 020200
3955 020206
3956 020210
3957 020214
3958 020216
3959 020222
3960 020230
3961 020232
3962 020240
3963 020244
3964 020246
3965 020254
3966 020260
3967 020262

3946
3947
3948
3949
3950
3951

012737
012700
012701
005737
001005
02373?
001007
000404
023737
001002
012701
005002
004727
022737
001406
012737
004737
000207

000001
060000
040000
002426

002260

172252

172254

177652

177654

004737
000207

026424

027020
026602

MOV
MOV

28
4$:

003710

FIRST
RO
¥Si2E,RY

NOSUPE
R

CMP
BNE

SIPARS,SIPARS
4$

3s
UIPARS,IJIPARS
‘s
#30000,R1

CMP

#1,PROTYP

(LR
CALL

CALL

RE TURN

R2
REGCOPY

13
#MTPO0%, SUPDOADD

SUPDO3

18:

BMOV

MTP0O1

MT0002:

SUBTST

<<MT0002

(ALL_

:SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

BR
CMP
BNE
MOV

BEQ
MOV

002254

71, REALPAT

TST

BNE

38:

030000

036330
000001

MOV

SUPDO1

1S THIS AN 11/442

:BRANCH [F IT [S
:SET UP CALLING ADDRESS

;DO IT IN SUPERVISOR MODE
SETUP COMPLEMENT ADDRESS TEST>>

;'tt'.".."."""""""""'.'t't."'.tt"'."'t"'.""".'".'Q'.Q'..'."'

:*SUBTEST

MT0002

SETUP COMPLEMENT ADDRESS TEST

3968 020262
3969 020270
3970 020274
3971 020300
3972 020304
3973 020310
3974 020314
3975 020316
3976 020324

jejololelelalelolw]
OO
b b cd et b
s B tALA S 2V LS 1 S 1 N
ONONSNNNNN
=2 AOWOOOOW
WNWVANWNES
O~

;Qt""..'l"""""""""""'t.t..."l!'l'.i"""'t.'.'..'.'.'.""i"..'.

000002

160000

002260

040000
060000
002426
172254

#2,REALPAT

MOV
MOV

FLAST+2,RO
#SI12E R

1ST

NOSUPER

MOV
MOV

100001

172252

MOV

BNE

CMP
BNE

R4
¥FEIRST,
#100001,RS

SIPARS,SIPARG

:SETUP PATTERN NUMBER FOR TYPEQUT & DISPLAY

CIMSDBO MSil- L/M DIAGNOSTIC

M10002

MACRO M1113
SETUP COMFLEMENT ADDRESS TEST

3977 020326

000404

3979 020336
3980 020340

001006
012701

3982
3983
3984
3985

020350
020354
020360
020362

012705
012702
010103
022737

120001
000001

000001

003710

3987
3988
3989
3990
3991

020372
020400
020404
020406
020414

012737
004737
000207

027052
026602

002254

004737

026426

3978 020330 023737 177652 177654 2%:
3981 020344

012700

3986 020370 001406

3992 020420

000207

030000

140000

4$:

(07-0(T-80 18:01
BR

C(MP

BNE
MOV

MOV

113

UIPARS ,UIPARG
48
#30000,R1

#140009,
R0

MOV
MOV
MOV
CMP

#120001
RS
" .R?
R1 R3
#1 PROTYP

MOV
CALL
RE TURN
BMOV
CALL

#MTPO02, SUPDOADD
5UPDO3

BEOQ

6_15
PAGE 134-1 SEQUENCE 181

RETURN

MTP002
SUPDO1

SIS THIS AN 117442

'BRANCH IF TRUE

“SET UP CALLING ADDRESS

SEQ 0188

CIMSDBO MSil-L/M DIAGNOSTIC

M10002

SETUP COMPLEMENT

MACRO M1113

ADDRESS TEST

07-0CT-80 18:01

MT0003:

3995 020422

SUBTST

<<MT00N3

X222 22X 22222222292 2222

L «SUBTEST

B 15

PAGE 136 SEQUENCE 182

MT0003

SEQ 0189

SETUP 3 XOR 9 WORST CASE NOISE TEST>>

R R R R RS R X R R

SETULP 3 XOR 9 WORST CASE NOISE TEST

RRRRRRRRRRAARRRR D]/

;'t'"tt't"i't""""""t""'ti.t""'t"".'"'t"ti"'i""""'t""""'

3996
1997
3998
3999

020422

020432
020440
0204644
4000 020450
4001 020454
4002 020460
4003 020464
4004 020470
4005 020474
4C06 020502
4007
4008
4009
4010
4011
4012
4013
4014

4015
4016
4017
4018
4019
4020
4021
4022

4023

020504
020506
020514
020520
020522
020530
020534
020536
020544
020546
020552

020560
020572
020604
020612
020620
020626
020634
020636
020642

4U24
4025
4026
4027
4028 020650
4029 020652
4030
4031 020654

IF EUFLAG_IS TRUE THEN SRETURN
#3 REALPAT

012737
005037
004737
012701
012703
072327
012702
012705
022737
001415

000003
002276
036340
060000
020000

012737
004737

027104
026602

002254

MOV

#MTPAQ3, SUPDOADD

012737
004737
000442

027144
026616

002254

RESREG
MOV

#MTPBOS, SUPDOADD

104415

104416

1064615

1¢:

2%:

177776

000CV4
000100
000001

026424

012737
0127%7
012737
012737

172360
172260
177644

001032

004757
022737

026440
000003

CLR
CALL-

MOV
MOV
ASH

MOV
MOV

CMP
BEQ
SAVREG

003710

CALL

004737

104416

002260

MoV

CALL
BR
BMOV
SAVREG
CALL
BMOV
BMOV
BMOV
MOV
MOV

001275
000207

MOV
MOV
RESREG
CALL
(MP

PCBUMP
FLIPWARN
#FIRST,R1
#20000,R3

#-8. RS
#4 R3

#64. RS
#1,PROTYP

SUPDO3

;TRAPS DO NOT ADD

TO P(C

;SETUP WARNING CONSTANTS & R2
:R1

<== STARTING ADDRESS

:R3 <-= R3 / 256.

;SMALL LOOP SIZE
JMEDIUM LOOP SIZE
;1S THIS AN 11/44?
;BRANCH [F IT IS
;D0 [T IN MAIN MEMORY

SUPDO&

MTPAO3

SUPDO1
MTPBO3
MTPCO3,KDPARD,8.
MTPDO3 SOPARC 8.

D
. U1PART
#xDPAR

#SDPARQ
. KDPARG
R2
. SDPAR?
FUIPA
#1032, SOPARS

SUPDO?2

#3,FLIPLOC

BNE

suBTST

<<M70004

;SET UP PAR LINKS

; CHANGE INST TQ BR .+66 (BR TG KDPAR1)
;DONE WITH 4 PATTERNS

12
77,00;
N 772777); (A77777,401)
),0772
€40V
S0€0,1777277
;NO - LOOP

RETURN

M10004:

;SETUP PATTERN NUMBER FOR TYPEQUT & DISPLAY

SETUP ROTATING ZEROS TEST>>

;t't't""t.tt""tt"""'t"t"itfi"til't".t't'ittttttt'tttt'tl"tl"t""'t'

s *SUBTEST

MT0004

SETUP RO TATING ZEROS TEST

;tt'..t'tt't't"""i""i"""'.'t!"fii""'tt't't't't'tt't"tlt"'ltt"i""'

020654
020662
020670
020674
4036 020700
4037 020704
4038 020719
4039 020716
4040 020720
4041 020726
40462 020732
6043 020734
4044 020742
4045 020754

4032
4033
4034
4035

012737
012737
013702
004737
012700
012701

022737
001406
012737
004737
000207
012737

000004
000004
002554
036470
060000
040000
000001

027242
026616

0022¢0
002276

MOV
MOV
MOV
CALL
MOV
MOV

(MP
BEQ

003710

002254

13;
172360

177652

MOV
CALL
RETURN

BMOV
BMOvV
MOV

#4 REALPAT
¥4 ,PCBUMP

ONES,R2

BACKGND
#FIRST ,RC
#SIZE R
#1,PROTYP
1%
#MTPAOL, SUPDOADD
SUPDO4
MTPAOG

MTPBO4 ,KDPARO,8.

#xDPARO, UIPARS

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
;TRAPS ADD &

TO PC

;WRITE BACKGROUND OF ONES

;1S THIS AN 11/44?

;BRANCH [F

;SET UP LINKS

MACRO M1113
(IMSDBO MSi1-L/M DIAGNOSTIC
MT10004
SETUP ROTATING 2EROS TEST
4046
4047
4048
4049

020762
020770
020774
020776

012737
004737
000207

177654
026440

07-0CT-80 18:01

172376

MOV

CALL

M10005:

RETURN

SUBTST

PAGE

[.15

136-1

SEQUENCE

183

SEQ 0190

#UIPARG, KDPAR?

SUPDO?

<<MT0005

SETUP ROTATING ONES

TEST>>

;tt"Q""'t"""1"""""""'.""..t""""""Q"'."'""Q""""..Q"

;*SUBTEST

MTO0005

SETUP ROTATING ONES

TEST

;'tt'l'tt"'it""""""t"'"'i'""""t"t'."'."".'."."""'fl"""".

4050
405
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061

4062
4063
4064
4065

020776
021004
021012
021014
021020
021024
021030
021036
021040
021046
021054

021060
021066
021070
021076

021110

4066 021116
4067 021124
4068 021130

012737
012737
005002
004737
€12700
012701
022737

000005
000004

012737
012737
004737
012737

027316
027332
026614
027256

001414

000207

012737
012737
004737
000207

036470
060000
040000
000001

002260
002276

MoV
MOV

(LR
CALL

MOV
MOV

CMP
BEQ

003710

002254
027314

027314
1%:

172360
177654
026440

177652
172376

MOV
MOV
CALL
MOV
RE TURN

BMOV
BMOvV
Mov
MOV

CALL

RE TURN

#5 ,REALPAT
¥4 ,PCBUMP
R2
BACKGND
#FIRST,RO
#S1ZE R1
:I,PROTYP

;SETUP PATTERN NUMBER fFOR TYPEOUT & DISPLAY

#MTPOOS,SUPDOADD
#MTPOOS+14 ,MTPBO4L+16
SUPDO4
#MTPAOL+14 MTPBOGL+16

;SET UP LINKS

MTPOOS
MTPBO4 ,KDPARC, 8.
#XDPARO,UIPARS
#UIPARG ,KDPAR?

SUPDO2

:TRAPS ADD &

TO P(C

;WRITE BACKGROUND OF

ZEROS

;1S THIS AN 11/44?
;BRANCH [F

¢RESET TEST'S ORIGINAL VALUE

MACRO M1113
CIMSDBO MSi1-L/M DIAGNOSTIC
TEST
M10005
SETUP ROTATING ONES
s

07-0CT-80 18:01

MT0006:

021132

SUBTST

J_15
PAGE 138 SEQUENCE 184

SEQ 0191

SETUP INITIAL DATA TEST>>

<<MT0006

;"ttt'tttQQ'Qt"ttt""t""""'tti"tttt"'tt"t""'ttt't""ttt"tt'tt""'

;*SUBTEST

MT0006

SETUP INITIAL DATA TEST

OO
SN
oSO
ON

d
b

b
d

e
e
b

—

4078

[oleleleolelaloe]

4072
4073
4074
4075
4076
4077

NIV

'tttttttttttt"tt""'tt"t't""Qt."'tt't'tt""'t"'tt"t't"'t't""i"""

000006
000004
002262
027352
026602

002260
002276

MOV

#6,REALPAT

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

ge%bnu

SuPDO3

:D0 IT IN SUPERVISOR MODE

MOV
MOV
MOV

002254

MT0007:

SUBTST

lk,PCBUHP
#TESTADD
,R
#M1P006,SUPDOADD

:TRAPS ADD
4 TO PC

SETUP ADDRESS BIT TEST>>

<<MT0007

:tttt'QQtt'tttt'tt't"'tt"ttt'tt'tlt'i"tt"t't"tttlttt'ttt"tt't'tQ"'t'ttt"

;*SUBTEST

MT0007

SETUP ADDRESS BIT TEST

tt'tt"t'tt'fi'tt"t"t'i"tt't"tt.t!tttttttt'tt!t'ttt"tt'tttt"'tt't""t'ttt

4079
4080
4081
4082
4083
4084
4085
4,086
4087
4088

021166
021174
02117%
021202
021206
021212
021214
021222
021226
021230

012737
005002
004737
012701
012702
050201
012737
004737
000207

000007

002260

036470
060000
000001
027552
026602

MOV

w;LREALPAT

:SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

CALL

BACKGND

;OF 2ERQOS

MOV
BIS
MOV

#1,R2
RZ,R1
#MTPOQ7,SUPDOADD

CLR

MOV

002254

CALL

RE TURN

#FIRST,RY

SUPDO3

MT0010: SUBTST

<<MT0010

;*SUBTEST

MT0010

;D0 IT IN SUPERVISOR MODE
SETUP BYTE ADDRESSING TEST>>

-Qittttttttttt'tiQt'tt't'0"i"itt"t'tt'ttttt'ttti't'tt"tQ'ttt"t"""t'ttt"

SETUP BYTE ADDRESSING TEST

tt'tti.t't.tttttt'ttt't't"tt"ttttttl'ttttt'tt't'tt'tQttt'.'t"ttttt.'t'tt...'

021230
021236
021244
021250
4093 021256
4U94 021262
4089
4090
40N
4092

012737
012737

013704
012737
004737
000207

000010
000004
002362
027652
0265602

002260
002276
002254

MOV

#10,REALPAT

MOV
MOV

TESTADD,R4
#MTP010,SUPDOADD

MoV

CALL

RE TURN

84 ,PCBUMP
SUPDO3

:SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

:TRAPS ADD4 TO PC

;DO IT IN SUPERVISOR MODE

CIMSDBO MSit1-L/M DIAGNOSTIC

MT0010

SETUP BYTE

MACRO M1113

ADDRESSING TEST

4097 021264

K 15
PAGE 140 SEQUENCE 185

(07-0CT-80 18:01

MT0011:

SUBTST

CHRERRRRRRRNN

+SUBTEST

<<MT00M1
CENRE

MT0011

R RN R

SEQ 0192

SETUP CREATE SINGLE BIT ERROR TEST>>

R EARNRARRRANNRAANRERORNANRAOORAORAORROORNARGOCOEOECOSOETOTRTY

SETUP CREATE SINGLE BIT ERROR TEST

:'t'i.""."""""""""""t'I".i'.'t"t"."""""lt""'.""""""

4098 021264
4099
4100
4101
6102
6103
4104
4105

IF ACTFLAG IS TRUE OR APTFLAG IS TRUE
IF SPASS NE #0 THEN SRETURN

012737
012737
004737
000207

000011
027760
026602

END;

MOV

002260
002254

MOv

ACTFLAG

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

SUPDO3

;00 IT IN SUPERVISOR MODE

#MTPO11,SUPDOADD

CALL

MT0012:

#11,REALPAT

RETURN

SUBTST

<<MT0012

SETUP WRITE BYTE

CLEARS SBE

TEST>>

:"tt"t.".""""'t"'w"""""""'t'."'ttti't.'i't"""t"""""""'

MT0C12

;*SUBTEST

SETUP WRITE BYTE CLEARS SBE TEST

;'ttiQ."Q"t"""""""""'ttt"tttt'.itt"tt't".t'tt""'t""'."""'.'

b
ek
e
d
d
d
b
—d

OO0 ~NO W A

4106 021332
6107 021346
4108 021356

021356
021364
021370
021400

021404
021406
021412
021412

021420
021424
021426

012737
013700

00C012
002102

012705

040000

012705

000002

012737
004737
000207

03C556
026602

IF ACTFLAG IS TRUE OR APTFLAG IS TRUE
IF SPASS NE #0 THEN SRETURN
END; OF IF ACTFLAG

MOV

002260

#12 ,REALPAT

MOV

BANK INDEX, RO

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

IF #BIT12 SET.IN CONFIG+2(RO)

MOV
ELSE
MOV

#40000,RS

MOV

#MTPC12,SUPDOADD

END; OF

002254

gé%LR
MT0013:
R

URN

SUBTST

#2,RS

IFf #BIT1?

SUPDO3

<<MT0013
L

MTO013

;*SUBTEST

;DO IT

IN SUPERVISOR MODE

SETUP CREATE DOUBLE BIT ERROR
T

TEST>>

SETUP CREATE DOUBLE BIT ERROR TEST

T L)

:'ti"ttttt'tlt"""""'.'ii"'tti"tQ.t".'t."t"t't."Q't"t.i"'."'.'t".

IF ACTFLAG IS TRUE OR APTFLAG IS TRUE
IF SPASS NE #0 THEN SRETURN

021426
021442

021452
021452
021460
021486
021474
021500
021502

012737
012737
012737
004737
000207

000013
031144

000003
026602

END;

MOV

002260
002254

MOV
MOV

002074

g:%bR

MT0014:
R

_ACTFLAG

#NTPO13, SUPDOADD
#3 ,NOPAR
N

SUBTST

#1353, REALPAY

. *SUBTEST

SUPDO3

<<MT0014
L

MT0014

R T

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
JINDICATE PARITY ACRION

;00 IT [N SUPERVISOR MODE

SETUP WRITE [NHIBIT DURING DATIP WITH DBE>>
e

SRR AR

SETUP WRITE INHIBIT DURING DATIP W!TH DBE

:'ttt't.'t"t'."""""""""'i'tl.'.tt"t'tI'tt"t't'ttt"t"'t'tt"tQt'tt'

021502
021516
021526
021526
021536
021544
021552
021556

012737
012737
004737
000207

000014
031660
026602

002260
002254

IF ACTFLAG IS TRUE OR APTFLAG IS TRUE
IF SPASS NE #0 THEN SRETURN
END; OF IF ACTFLAG
IF KFLAG IS FALSE THEN SRETURN

MoV

#14 REALPAT

;SETUP PATTERN NUMBER FOR TYPEQUT & DISPLAY

CALL

SUPDO3

;D0 IT

MOV

RETURN

MMTPO14, SUPDOADD

IN SUPERVISOR MODE

CIMSDBO MSi1-L/M DIAGNOSTIC

M10014

MACRO M1113

(C7-0CT-80 18:01

SETUP WRITE INHIBIT DURING DATIP WwiTH DBE

6139 021560

MT0015:

SUBTST

(621560

SETUP WRITE INHIBIT OF BYTE WITH DBE>>

MT0015

SETUP WRITE INHIBIT OF BYTE WITH DBE

IF ACTFLAG IS TRUE OR APTFLAG IS TRUE

6142 021604
6143 021604

012737

021624

000207

021626

SEQ 0193

;I"'t'.t"t't""""""t"""'"t'."."".""Q'."t""""'"'."'Q'.""

4140
L1461 021574

021612
021620

<<MT0015

186

"'""Ilt'."'.""'""""'Q'""'""'."Q"'"'""'""""".""""""'

:*SUBTEST

L1446
4145
L146
L1467

L 15

PAGE 142 SEQUENCE

012737
004737

000015

032442
026602

002260
002254

IF $PASS NE #0 THEN SRETURN
END ;OF IF ACTFLAG

MOV

MOV
CALL

RETURN

#15,REALPAT

#MTPO15, SUPDOADD
SUPDO3

MT0016: SUBTST

<<MT0016

S *SUBTEST

MT0016

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
;DO IT IN SUPERVISOR MODE

SETUP WRITE INHIBIT OF WORD WITH DBE>>

"'...".'..""""""'"""""".'fi"""."'Q.."'."t"."""'Q""Q""'

SETUP WRITE INHIBIT OF WORD WITH DBE

."'t""..'i...'I"""""""""i'Q'Q..t"fi.""t""""""."""."""'.

4148
61469
4150
GO
6152
6153
4154
6155

021626
021642
021652

021652
021660
021666
021672

021674

012737
012737
004737

000207

000016
033206
026602

002260
002254

I7 ACTFLAG 1S TRUE OR APTFLAG [S TRUE
IF $PASS NE #0 THEN SRETURN
END ;OF IF ACTFLAG

MoV
MOV
(ALL

RE TURN

#16,REALPAT
#MTPO16, SUPDOADD
SUPDO3

MT0017: SUBTST

<<MT0017

" «SUBTEST

MT0017

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
:DO 1T IN SUPERVISOR MODE

SETUP HOLDING 1'S & 0'S>>

:"t".""."""""""""""Q.Q'.Q.'"".tQ.'Q't""Q""li"'.'..".'.'..

SETUP HOLDING 1'S & 0'S

;'...'t..'.""0""".""""".'lt.".'fi'.Q".'Q"'t't'Q'..".'.""""'."'

4156 0216764
6157 021702
4158 021710
4159 021714

012737

012737
004737
0C0207

000017
033770
026602

002260
002254

MOV

MOV
CALL

RE TURN

#17 ,REALPAT

#MTPOT7, SUPDOADD
SUPDO3

:SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
;00 1T

IN SUPERVISOR MODE

CIMSDBO MSi1-L/M CIAGNOSTIC
MACRO M1113
MT0017
SETUP HOLDING 1°'S & 0°'S
L4162 021716

07-0CT-80 18:01

MTC20:

SUBTST

PAGE 144 SEQUENCF 187

<<MT0020

SETUP MARCHING 0°'S & 1°'S IN CHMECKBITS TEST>>

:t""ti""i"""""""""t"'.""".Q"'Q"'Q"t"'"'.""."""."""

SETUP MARCHING 0°'S & 1'S IN CHECKBITS TEST

MT0020

. *SUBTEST

.'t'Qt"tt't'"'"""'""t"'"'tit'.'."'"Q"t.t"."""Q"'Q"Q"""""'Q

6163 021716
4164 021732
4165 021742

6166 021742
6167 021750

4168 021756
4169 021760
4170 021762
6171 021766
4172 021772
4173 022000
4174 022000
4175 022006
6176 022016
64177 022024
4178 022030

012737
012737

005001
005004
012700
013702

012737
012705

179 022032 _
4180 022032
4181 022032
4182 022040
4183 022050 012737

4184 022056
4185 022062

012705

000020
000003

002260
002074

060000
002102

140000
140002

140000

002362

ACTFLAG 15 TRUE OR ACTFLAG IS TRUE
IF SPASS NE #0 THEN SRETURN
END ;OF IF ACTFLAG

MOV
Mov

CLR
R1
CLR
R&
MOV
#FIRST,RO
MOV
BANKINDEX,R2
MTLO20: IF INTFLAG IS FALSE
BEGIN MTB020
IF NO22BIT IS TRUE
IF BANK EQ #7
MOV
#140000, TESTADD
MoV
#140002,RS
LEAVE
M18020

022064
022064
022072
022076
022076

002362

MOV
LEAVE

END;

012737
012705

160000
160002

010537

002364

4193 022104
4194 022110
4195 022112
4196 022114
4197 022122

005737
001401
000207
012737
012705

002312

4201 022140
wluc 022142
4203 022142
4204 022146
4205 022154
4206 022160
4207 022164
4208 022166

005204

4192 022102

4198 022126
6199 022132
4200 022136

010537
005237
005201

120000
160000
002364
002232

016203

002624

060437

002362

4209 022170 072327

177775

4210 022174

4211 022176
4212 022200
4213 022200
4214 022202

4215 022206

060437
060400
060405

002364

006303
000303
9042703

010337

177741

002146

;CLEAR LOOP COUNTER
;CLEAR INTERLEAVE ODD/EVEN FLAG

:SET BANK INDEX

;SET UP 12K NON-INTERLEAVED VIRT ADDR

#140000,R5
M18020

[F BANK

END; OF IF NO22BIT
MOV
#LAST+2,TESTADD
MOV
#LAST#4
RS
END
MTB020
MOV
RS,TESTADD+2

002362

ELSE

002362

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
sINDICATE PARITY ACTION

END; OF IF BANK
END; OF IF NO22BIT
IF NO22BIT IS rALSE
IF BANK EQ #177
MOV
#140000, TESTADD

4186 022064

4187
4188
4189
4190
4191

#20,REALPAT
#3 ,NOPAR

1%:

TST
SKIPMK
BEQ
1%
RETURN
MOV
#120000,TESTADD
MOV
#LAST+2,RS
MOV
RS,TESTADD+2
INC
SPLTCSR
INC
R
INC
R&
END; OF IF INTELAG
Mov
CONFIG(R2) ,R3
IF R4 EQ #2
ADD
R4, TESTADD
ADD
R4, TESTADD¢?
ADD
R4 ,RO
ADD
R4 RS

;SET UP NON-INTERLEAVED VIRT. ADDR.
;1S THIS BANK IN SKIP RANGE?
;BANK 1S OUT OF RANGE - DO TEST
;LEAVE TEST-BANK'S ALREADY TESTED
;SET UP 1ST INTERLEAVED VIRT. ADDR.
;SET UP END OF BANK FLAG
;SET UP 2ND INT'L. VIRT. ADDR.
;FLAG THE MAPPING ROUTINE FOR INTERLEAVING
;SET LOOP COUNTER FOR INTERLEAVING
;SET ODD/EVEN FLAG

;SET UP (SR NUMBER
;IF THE SECOND TIME AROUND

;TEST THE A1 ASSERTED ADDRESSES

ASH

#-5,R3

;MOVE INTERLEAVED CSR NUMBER

ASL

;MOVE (SR NUMBER

ELSE

END; IF R4
SWAB
R3

Bl1C

MoV

#4036,R3

R3.,CSRNO

;MOVE R3 INTO (SR NUMBER

SEQ 0194

CIMSDBO MSi1-L/M DIAGNOST] C
MACRO M1113 (07-0CT-80 18:01
MT0020 SETUP MARCHING 0°'S & 1'S IN CHECKBITS TEST
6216
4217
4218
4219
4220
6221
4222
4223
4224
4225

022212
022222
022224
022226
022230
022230
02223%
022240
022242
022244

4226 022250
4227 022276
4228 022304
4229 022310
4230 022314
42351 022314

4232 022320

6233
4234
4235
4236
4237

022324
022326
022340
022344
022346

4238 022352

4239 022356
4240 022360
4241

022364

4242 022366

IF #SW0 SET.IN @SWR
ENASBE
ELSE
ECCINIT
END; OF IFf #SW0
PUSH
R2 R4
FOR MTV020 := #0 1O R
PUSH
R1
(LR
R
CALL
BACKGND

104506
104472

005002
004737

036470

162737
162705

020000
020000

004737

022370

010537

005237

005001
005037

022704

001605
005037
000207

000000

002232
000001
002074

SEQ 0195

;TRAP ON SINGLE BIT ERRORS
;:TRAP ON UNCORRECTABLE ERRORS

:PATTERN TO WRITE [NTO BANK
;SET UP ZEROS IN BANK

IF NO228I1T IS TRUE AND MTV020 EQ #1 AND BANK EQ #3
SuB #20000,TESTADD
sSET UP 12K INTERLEAVED BANK
SuB #20000,RS

002362

002364

002232

N 15
PAGE 144-1 SEQUENCE 188

MOV RS,TESTADD+?2
END; OF [F NO22BIT
CALL
MT10202

INC

SPLTCSR

POP
R1
END; OF FOR MTV020
POP
R4 ,R2
CLR
R1
CLR
SPLTCSR

CMP

BEQ
CLR

RE TURN

MTV020: O

#1,R4

MTL020
NOFAR

;START TEST

:UPDATE

INTERLEAVED MAPPING FLAG

JPESET LOOP FLAG
SRESET INTERLEAVED MAP FLAG

:ODD/EVEN FLAG SET?

:BRANCH IF TRUE
:INDICATE PARITY ACTION

:VARIABLE FOR PAT 20

MACRU M1113
07-0CT-80 18:01
CIMSDBO MSi1-L/M DIAGNOSTIC
M10020
SETUP MARCHING 0'S & 1'S IN CHECKBITS TEST
4244 022370
4245 022374
L246 022400
4247 022404
4248 022410
4249 022426
4250 022430
4251 022430
4252 022436
4253 022440
4254 022446
4255 022454
4256 022460
4257 022462
4258 022470
4259 022476
4260 022502
4261 022510
4262 022512
4263 022520
4264 022526
4265 022532
4266 022534
4267 022542
4268 022550
4269 022554
4270 022560
Y34 022562
4272 022566
4273 022572
4274 022574
6275 022600
4276 022604
4277 022612
4278 022614
4279 022622

022630
022634
022636
022644
022652
022656
022664
4287 022666
4288 022674
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
<300

022702

022706
022710
022716
022724
022730
022736
022740
022746
022754
022760
022762

000004
002362
002364

M10202:

012737
004737
022737
001411
012737
012737
004737
000410
012737
004737
005737
001405
162701
162704
000404
012701
012704
022737
001411
012737

012737
004737
000410
012737
004737
022737
001411
012737
012737
004737
000410

012737
004737
022737
001411
012737
012737
004737
000410

000001

003710

034046
034062
026602

002254
002264

177654

002264

026424
000001

003770

034076
034106
026616

002254

177650
026440
00213¢

002266

1%:

003710
002254
002264

177650

002264

003710

034156
034172
026616

002254
002264

177654

002264

026440
000001
034206
034216
026616

TESTADD,R1

003710

CMP
BEQ
MOV
MOV

#1,PROTYP
1%
#MTPA20,SUPDOADD
#MTPA20+14 ,PARTHERE

MOV

N#UIPARS ,PARTHERE

CALL
BR
BMOV

SUPDO3
2%
MTPA20

4%:

CALL
CMP
BEQ
MOV
MOV
CALL
BR
BMOvV

SUPDOY
#1,PROTYP
48
#MTPB20, SUPDOADD
#MTPB20+10,PARTHERE
SUPDO4
MT1020Y
MTPB20

MT020Y:

1ST

CALL

SUPDO?2

2%:

002264

034126
034136
026602

026424
000001

’4 ,R2

GOTO MT020Y
END ;OF IF #SWl

040000
040000
060000
060002
000001

MOV

189

SEQ 0196

;SET UP WORD INCR/DECR AMOUNT

MOV
TESTADD+2
R4
MOV
#BIT15,R3
IF #SW11 SET.IN @SWR OR QVFLAG IS TRUE

100000

000410

MOV

B 16
PAGE 145 SEQUENCE

MOV

BEQ
SuB
SuB
BR

79
#40000,R1
#40000,R4
8%

#FIRST,RY

#FIRST+2
R4
#1,PROTYP
1%
#MTPC20,SUPDOADD
#MTPC20+10,PARTHERE
SUPDO3
2%
MTPC20
#UIPARL ,PARTHERE
SUPDOY

BEQ
Mov

3%
#MTPD20, SUPDOADD

002254
002264
5¢:

:VECTOR FOR TRAPS

;IS THIS AN 11/44?
;BRANCH IF IT §S
;VECTOR FOR TRAPS

;ARE WE

CMpP
BEQ
MOV
MOV
CALL
BR
BMOV
MOV
CALL

3%:

;VECTOR FOR TRAPS

INTFLAG

8%:

2%:

;VECTOR FOR TRAPS

Mov

1%:

#UIPARL ,PARTHERE

7%:

MOV

;IS THIS AN 11/44?

;BRANCH IF

INTERLEAVED?

sBRANCH [F NOT INTERLEAVED

;RESET FIRST WORD TO BEGINNING OF BANK
;RESET SECOND WORD TO BEGINNING OF BANK
;RESET FIRST WORD TO BEGINNING OF BANK
;RESET SECOND WORD TO BEGINNING OF BANK
;1S THIS AN 11/44?
;BRANCH [F IT IS
;VECTOR FOR TRAPS

:VECTOR FCR TRAPS

#1,PROTYP

;1S THIS AN 11/44?

MoV
CALL
BR
BMOV
MOV

#MTPD20+14 ,PARTHERE
SUPDO4
4s
MTFD20
#UIPARG ,PARTHERE

;VECTOR FOR TRAPS

(MP

#1,PROTYP

;1S THIS AN 117642

MOV

MMTPE20, SUPDOADD

CMP

CALL

BEQ

MOV
CALL
BR
8MOV

SUPDO?

#MMTPE20+10,PARTHERE
SUPDO4
63
MTPE20

;BRANCH IF

;VECTOR FOR TRAPS
;BRANCH [F

;VECTOR FOR TRAPS

MACRO M1113
(07-0CT-80 18:0t1
CIZMSDBO MSi1-L/M DIAGNOSTIC
MT0020
SETUP MARCHING 0°'S & 1'S IN CHECKBITS TEST
4301
4302
4303
4304

022770
022776
023002
023004

012737
004737
104503

000207

177650

026440

mMov

002264

6%:

CALL

CLRI1CSR

RETURN

PAGE

¢ 16
145-1 LEQUENCE 19C

FUIPARL ,PARTHERE

SUPDO2

;VECTOR FOR TRAPS
JCLEAR 1 SELECTED (SR

SEQ 0197

D 16
PAGE 147 SEQUENCE 191

(IMSDBO MSi1-L/M DIAGNO STIC
MACRO M1113 07-0CT-80 18:01
M10020
SETUP MARCHING 0'S & 1'S IN CHECKBITS TEST
MT0021:

4307 023006

SUBTST

s *SUBTEST
R

023006
023014
023022
023026
023032
023034
023036
023042
023044
023050
023056
023060
023066
023079
023076
023100
023104
023106
023114
023120
023126
023132
023134
023142
023146
023154
023160
023162
023170
023172
4338 023176
4339 023200
4340 023206

4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
6322
6323
4324
4325
4326
4327
4328
4329
4330
(X3}
4332
4333
4334
4335
4536
4337

43461
4342
6343
4344
4345
4346
4347
4348
4349
4350
4351
4352

023212
023220
023224
023226
023234

023240

023256

012737
013702
004737
010203
000303
012701
010795
V12704
022737

001441
022737
001407
022737
001003
012701
010105
012737
004737
012737
004737
0106401
012737

004737
012737
004737
000434
022737
001003
012701
010105

000021

002572
036470

000001

00370

000003

003710

000007

002100

002254

034316
026616
034352
026616

002254

026616

000177

026424

004737

026440

004737
005037
000207

026440
002410

MT0021
R

3$:

1$:

SETUP MARCHING 0°'S & 1°S TEST
R

#21 REALPAT

(MP

#3,PROTYP

;1S THIS AN 11/24?

MoV

R1,RS

MOV
CALL
MOV

R2,R3
R3
#LAST+2,R1
R1,KS
#FIRST
R4

3%
#7 ,BANK
1]
#140000,R1

#MTPA21,SUPDOADD
SUPDO3
#MTPB21,SUPDOADD
SUPDO&
R4 R

MOV
CALL
MOV
CALL
BR
(MP
BNE

#MTPC21,SUPDOADD
SUPDO4
#MTPD21,SUPDOADD
SUPDO4
2%
#177 ,BANK
43

BMOV

MTPA1

MOV
MoV

CALL

#140000,R1
R1,RS

SUPDO1

M1PB21
SUPDO?2
R4 R

BMOV
CALL

MTPC2N
SUPDO2

BMOv

MTPD21

CALL
(LR

RETURN

SUPDO?

NOSCOPE

R
R

R
SR

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

;1S THIS AN 117447

BMOV
CALL

2%:

#1,PROTYP

CALL
MoV

002254

SETUP MARCHING 0'S & 1°'S TEST>

(MP

MOV

026440

BAKPAT ,R2
BACKGND

BEQ
(MP
BNE
Mov

010401

004737

<<MT0021

MoV
CALL

BEQ

140000

004737

MOV
SWAB
MOV
MOV
MoV

002254

002100

MoV

140000

034232
026602
034262

SET NOSCOPE

002260

160000

060000

SEQ 0198

:BRANCH [IF

;BRANCH IF

l
MACRO M1113
CIMSDBO MSi1-L/M DIAGNOSTIC
M10023
SETUP MARCHING 0'5 & 1'S TEST

MT0022:

4354 023260

SUBTST
R

s *SUBTEST
R

4355 023260
023264
023270
023276
023304
023310

4356
4357
4358
4359
4360
4361
4362

004737

026370

012737
012737
004737
000207

000022
034402
026602

002260
002254

023312
02336
023322
023330
023336
023344
023350
023354

004737

026370

012737
012737

000023

004737
005037
000207

026602
002002

034402

002260
002254

M10022

SETUP REFRESH & SHIFTING DIACONAL TEST>>
R

SETUP REFRESH & SHIFTING DIAGONAL TEST
T

R
R R
RR
R Y

CALL

;DO IT IN SUPERVISOR MODE

SUBTST

;*SUBTEST
4363
4364
4365
4366
6367
4368
4369
4370

;CHECK FOR KAMIKA.. MODE
;1F NOT IN KAMIKAZE MODE RETURN
;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

R
R

SEQ 0199

CALL
KAMITEST
ON.ERROR THEN SRETURN
Mov
#22 ,REALPAT
MOV

MT0023:

PAGE 148 SEQUENCE 192

<<M10022

RETURN

023312

E 16

07-0C7-80 18:01

#MTP022,SUPDOADD

SUPDO3

<<MT0023

MT0023

SHIFTING DIAGONAL TEST>>

SHIFTING DIAGONAL TEST

R
R

R
R R

I
R

R
R

Y
R

CALL
KAMITEST
ON.ERROR THEN SRETURN
MOV
#23 ,REALPAT

;CHECK FOR KAMIKAZE MODE
;IF NOT IN KAMIKAZE MODE RETURN
;SETUP PATTERN NUMBER FOR TYFEOUT & DISPLAY

SET

;IDENTIFY DIAGONAL TEST TO MTP0OZ2?

MOV

#MTP022,SUPDOADD

CALL

SUPDO3

(LR

RETURN

DIAGFLAG

;00 IT

[N SUPERVISOR MODE

(IMSDBO MS3i1-L/M DIAGNOSTIC
M10023
SHIFTING DIAGONAL TEST

MACRO M1113

07-0CT-80 18:01

MT0024:

4372 023356

SUBTST

PAGE 149 SEQUENCE

<<MT0024

193

SEQ 0200

SETUP FAST GALLOPING PATTERN TEST>

.'""."""'..""".""""""Q'".'..""'."'.'."""'""'.""."."".

: «SUBTEST

MT0024

SETUP FAST GALLOPING PATTERN TEST

."i'"t"'fi"*""""""""""Q""""".'.'.""".."".""'""'.'Q""

023356
023362
023366
023374
023402
023406
023412
023414
4381 023416
4382 023420
4383 023424
4384 023430
4385 023436
4,386 023440
4387 023446
4388 023450
4389 023456
4390 023460
4391 023464
4392 023466
4393 023474
6394 023476
4395 023504
4396 023506
4397 023512
4398 023514
4399 023522
4400 023534
4401 023546
4402 023554
4403 023562
4404 023570
4405 023576

4373
4374
4375
4376
4377
4378
4379
4380

4406
4407
4408 023602
4409 023604

4610 023606

L4411
4412
4413
LL14

023610
023614
023620
023622

004737

026370

012737
013702
004737
010203
010304
000304
012701
012705
022737
001417
022737
001406
022737
001002
012705
104415
012737
000440
022737
001002
012705
104415

000024
002572
036470

012737
012737
012737
012737
004737

17
17
172360
17
02

104416
000302
000303
004737
005037
000207

002260

060000
157776
000001

003710

000003

003710

000007

002100

137776
035116

002254

000177

002526

137776

;CHECK FOR KAMIKAZE MODE
:IF NOT IN KAMIKAZE MODE RETURN

MOV

:SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

SET

NOSCOPE

MOV

BAKPAT ,R?

CALL
MOV
MOV
SWAB
MoV
MOV
CMP
BEQ

3%:

1%:
4%

002254

177676
172272
172374

CALL
KAMITEST
ON.ERROR THEN SRETURN

(MP
BEQ
CMP
BNE
MOV
SAVREG
ggv
CMP

BNE

MOV

SAVREG

BACKGND
R2 R3

R3,R4
R4

#FIRST,R1
#LAST RS

#1,PROTYP
1%
#3,PROTYP
3%
#7 ,BANK
3%
#137776,RS

ngpeak.SUPDOADD
#177,LASTBANK

#137776,R5

BMOV
BMOV
8MOvV
MOV

MTPAZ24L
MTPB24,SCPAROD,8.
MTPC24 ,KDPARO,8.
#SDPARQ, SUPDOADD

MoV
MOV
CALL

#XDPARQ, SDPARS
#UDPAROD,KDPARG
SUPDG4

MOV

2%:

#24 ,REALPAT

#SDPARO,UDPAR?7

:SET UP PAR LINKS

:DO IT AGAIN FOR COMPLEMENT DATA

RESREG

SWAB
SWAB
CALL

026616
002410
MT0025:

R2
R3
SUPDO4

CLR

NOSCOPE

SUBTST

<<m10025

RETURN

SETUP INTERRUPT ENABLE

TEST>>

"".."."'."""'\’""""""'.""l"'."""""i"'.l"".."'..."""'.'

;*SUBTEST

MTC0¢5S

SETUP INTERRUPT ENABLE TEST

"t'....'.t'.t"""""l""""'fi....."""l"'.'l"'Q"'Q."'Q'Q""'."'Q"'

IF ACTFLAG IS TRUE DR APTFLAG IS TRUE
JF SPASS NE #0 THEN SRETURN

4415 023622

44616 023636

023646
023645
0236564
023662
4621 023666

4617
4618
4619
4420

012737
012737
004737
000207

000025
0351%9
026602

002260
002254

tND ;OF

MOV

MOV
(?%LR

RETURN

ACTFLAG

#25,REALPAT

#MT1P025, SUPDOADD
SUPDO3

:SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY
;00 IT IN SUPERVISOR MODE

(IMSDBO MSi1-L/M DIAGNOSTIC

M10025

SETP

MACRO M1113

INTERRUPT ENABLE TEST

L4246 023670

07-0CT-80 18:01

MT0026:

SUBTST

6 16
PAGE 151 SEQUENCE 194

<<MT0026

SEQ 0201

SETUP RANDOM DATA TEST>>

:t'i'tt"'tit"t""'t"""'"""".""""l"'i""."""."Q"""Q'Q'Q'Q'

s *SUBTEST

MT0026

SETUP RANDOM DATA TEST

;'tttt'i't'itt't"""""""""'Q".""Q.""".""'tt"""'Q'.""Q'Q"'Q

4425 023670
023676
023702
022706
023712
023714
023716
023722
023726
023734
023736
023744
023746
023754
023756
023762
023764
023772
024000
024004
024010
LL4L6 024016
4447 024024
4448 024026
4449 024032
4450 026034
44651 024042
4452 024044
4453 024050
4454 024052
4455 024060
4456 024072
4457 024100
4458 024112
4459 024120
4460 024126
4461 024132
L4662 024136
4463 024144
L4464 024152
4465 024154
4466 024160
4467 024164
L4L68 024170

000026
002276
002544
002542

6426
4427
4428
4429
4430
4463
6432
4433
64634
4435
4436
4637
4438
4439
4440
44641
4442
4443
L4444
4445

002260

060000
020000
000001

003710

000003

003710

000007

002100

014000
035622
035616
026602
035646
035636
035632

035722
002254

MOV

CLR

MoV
MOV
MOV
MoV
MOV
MOV

CMP
BEQ
CMP
BEQ
cmMp
BNE

3%:

035722
002254

002100

014000

MOV
MOV
RESREG

000730

172376

012737
012737
004737
005037

172360
177644

026424
035646

177642
172274

012737

172360

004737
010337
010237
000207

026424
002564
002542

104416

1%:

4%:

012737

SAVREG
MOV
MOV
CALL

CLR

026602
000177

MOV

177642

CALL
BR
(MP
BNE
MOV
SAVREG
BMOV
BMOV
Mov
BMOV
MOV
MoV
CALL
CLR
BMOV

MOV
RESREG

2%:

CALL
MOV
MOV
RE TURN

#26,REALPAT

PCBUMP

SEEOLO,R3
SEEDMI .R2

R3,RS
R2.Ré

#F{RST

;TRAPS

DO NOT

ADD

THE

;INITIALIZE RANDOM NUMBERS

¥S12E/2,R0
#1,PROTYP
18
#3,PROTYP

#7 ,BANK

;00 WE HAVE AN 11/44?
;BRANCH [f WE DO

;117262
;BRANCH

#14000,R0

FMTPA26+4 ,MTPD26+14
#MTPA26,SUPDOADD

SuPD03

RANODD

#MTPB26+4L MTPD26+146
#MTPB26, SUPDOADD

;FOR ERROR REPORTING
;SET UP NEXT LINK

SUPDO3

#177 ,BANK
4%
#14000,R0

MTPA26
MTPC26.KDPARO,B.
#730,KDPAR?

MTPD26,SDPARD,S.
#XDPARO,UIPART
FUIPAR2
. SDPARG

SUPDO1

RANODD

MTPB26
#KDPARO,UIPAR1

SUPDO1
R3,SEEDLO
R2,SEEDHI

WRITE ROUTINE TO FAST MEMORY

;RANDOM SUBPROGRAM TO FAST MEMORY

;WRITES 'BR .-116"" IN (BR SDPARQ)
;RANDOM SUBSUBPROGRAM TO FAST MEMORY

;WRITE RANDOM DATA
;FOR ERROR REPCRTING

;READ ROUTINE TO FAST MEMORY
;SET UP PAR LINK
;READ RANDOM DATA

;UPDATE FOR NEW RANDOM NUMBERS

CIMSDBO MSi1-L/M DIAGNOSTIC

M10026

6471

SETUP RANDOM DATA TEST

MACRO M1113

07-0CT-80 18:01

MT0027:

026172

SUBTST
R

;*SUBTEST

4472
6473
4474 026172
4475 024200
4476 024202

La77 024210

024212
0242¢0
024222
024230
024236
4483 024244
4484 024252
4485 024260
4486 024264
4487 024270
4488 024304
44LB9 024306
4490 024312
44691 024316
4492 024320
4493 024324
4494 024326
4495 024336
496 024344
4497 024346
4493 024354
4499 024360
4500 024360
4501 024370
4502 024376
6503 024400
4504 024406
4505 024412
4506 024412
4507 024412
4508 024426
4509 024442
4510 024450
4511 024454
4512 024456
4513 024456
4478
4479
4480
4481
4482

6514 024464

4515 024472

4516
4517
4518
4519
4520
4521
4522
4523
4526

024476
024512
024516
024520
024524
024526
024532
024534
024544

012757
104502
022737
001404
012737
000414

000027

002260

000001

003710

02660¢

002472

012737
012737

177646

002254
002472

026424

1%:

WARN?:

STARZ27:
004737
104511

012700
010004
012701
010103

060000

MT0027
R

SEQ 0202

UNIQUE BANK TEST>>
R

R R

UNIQUE BANK TEST

TR
R
R

;MAKE SURE THAT EACH BANK CAN HAVE UNIQUE DATA
;WRITE AND READ THE BANK NUMBER [N EACH BANK (EXCEPT WHERE THE PROGRAM [S)
#27 ,REALPAT
JSETUP PATTERN NUMBER FOR TYPEQOUT & DISPLAY
MOV
CLRCSR
:CLEAR (3RS
#1,PROTYP
:1S THIS AN 11/44?
(MP
1%
;BRANCH [F TRUE
BEQ
#SUPDO3,LINKY
JSET UP LINK
MOV
STARZ2?7
:BRANCH TO RUN
BR
MTPO24G
BMOV
MOV
MOV

#UIPAR3,SUPDOADD

#SUPDO1, L INKY
SET NOFSMODE
FOR | := #1 10 #2
FOR BANK "= #0 TO LASTBANK

;SET UP LINK

022737
001403
012737
004777

000001

003710

036142

002254

022737
001403
012737
004737

000001

003710

036150
026602

002254

005037
000207

002376

004737

044240

#FIRST,RO
RO,R4
#SIZE ,RY

MOV
Mov

040000

MoV
MOV
If I

EQ M

CMP
BEQ
MOV
2%: CALL

R1,R3

#1,PROTYP
2%
#MT1P034,SUPDOADD
aL INK1

END ;OF IFf
[f | EQ #2
gl,PROYYP
(MP
BEQ
#MTPO34L+6,SUPDOADD
MOV
SUPDO3
3%: CALL
END ,OF I[Ff
END ;OF IF
END ,0F FOR BANK
END ;OF FOR |
IF FS7FL AG IS TRUE
NOF SMODE
(LR
RETURN
END OF If FSTFLAG
FOR I := #1 10 #2
FOR BANK := LASTBANK DOWNTO #0

CALL EXBANK

IF ACFLAG IS TRUE AND RRFLAG IS FALSE
LET R2 := BANK
(oM
R
MOV
#7IRST,RO
RO, R4
MOV

060000

MOV

040000
000001

<<KMT00C7
R

195

CALL EXBANK
IF ACFLAG IS TRUE AND RRFLAG IS FALSE
INVALIDATE
s INVALIDATE BACKGROUND PATTERN ON ''BANK''
LE T R2 := BANK

044240

156112

H 16

PAGE 153 SEQUENCE

003710

#S12E,R1

MOV
R1,R3
IfF 1 Ea N
(mp

#1,PROTYP

CIMSDBO MST1=L/M DIAGNOSTIC

M10027

4525
4526
4527
(528
4529
4530
5N
4532
4533
4534
4535
4536
4537
4538
4539

UNIQUE BANK TEST

024552
024554
024562
024566
024566
024576
024604
024606
024614
024620
024620
024620
024634
024650
024654

001403
012737
004777

MACRO M1113

002254

07-0CT-80 18:01

000001

003710

036150
026602

002254

005037
000207

002376

BEQ

MOV

4%:

(ALL

END

022737
001403
012737
004737

[ 16
PAGE 153-1 SEQUENCE 196

;OF

1 EQ #2

aL INK1

(mp

#1,PROTYP

MOV

#MTP034+6,SUPDOADD

BEQ

5¢:

#MMTP0O34,SUPDOADD

CALL

SUPDO3

END ;0F [F
END ;OF IT
END ,0f FOR BANK
END ;OF FOR |
CLR
NOF SMODE
RE TURN

SEQ 0203

CIMSDBO MSi1-L/M DIAGNOSTIC
M10027
UNIQUE BANK TEST

MACRO M1113

07-0CT-80 18:01

MT0030:

6542 024656

SUBTST

PAGE

J 16
155 SEQUENCE 197

<<MT0030

SEQ 0204

SETUP FLUSH OUT DBE'S TEST>>

;"t"'""t"Q"'"""""Q'"Q""'Q"""""""""""'."'.""'Q'l""'

MT0030

S *SUBTEST

SETUP FLUSH OUT DBE'S TEST

002256

012737
012737
022737
001007

000030
000001
000001

012737
000406
012737
012737

026424

002472

026602
035724

002472
002254

004737

044240

012701
012700
004777

040000
060000

104470

~NOnY
- N
OO

005037

4543 024656
4544 024662
4545 024670
4546 024676
4547 024704
4548 024712
4549 024714
4550 024722
4551 024730
4552 024732
4553 024740
4554 024746
4555 024750
4556 024764
4557 024770
4558 024774
4559 025002
4560 025016
4561 025022
4562 025026
4563 025032
4564 025032
4565 025032
4566 025046
4567 025054
4568 025062
4569 025064
4570 025070
4571 025972
4572 025074
4573 025110
4574 025112
4575 025112
4576 025120
4577 025124
4578 025130
4579 025132
4580 025136
4581 025140
4582 025140
458% 025142
4584 025156

OO
OO0

"'t’t"fi"'Q"""""""""""0.""Q'Q"Q"'i."""'..""".QQ""."Q"'

CLR
SET

PASFLG
FULLREL

MTA030: MOV

#30,REALPAT

MOV
CMP
BNE

BMOV

MTPO30

MOV

6$:
18

*INDICATE

COUNT PARITY ERRORS

#SUPDOT,
L INK

MOV
#SUFDO3, LINK1
MOV
#MTP030, SUPDOADD
ECCDIS
;DISABLE
SET
NOF SMODE ,NOSCOPE
FOR BANK := #0 TO LASTBANK
EXBANK
CALL
IF MKFLAG IS TRUE

ERROR

CORRE(CTION

ACFLAG IS TRUE AND RRFLAG IS FALSE

MOV
MoV

#SI12E,RY
#FIRST,RO

aL INK1

CALL

155440

;SETUP PATTERN NUMBER FOR TYPEOUT & DISPLAY

#1,NOPAR
#1.PROTYP
4$

END ;OF IF ACFLAG
END .OF IF MKFLAG
END .OF FOR

IF PASFLG IS FALSE

104502

004737

SET

CALL
RELOCATE
ON.ERRCR

042466

ECCINIT
CLEAR

104472

000207

013737
004737
004737
104472
004737
000207
104472

0002G7

PASFLG

CLRCSR

RETURN

002270
046240
024670
043356

002°00

;CLEAR (SRS

;TRAP ON DOUBLE B!T ERRORS (NORMAL)
NOF SMODE ,NOSCOPE ,FULLREL

END .OF ON.ERROR

MOV

NEWBANK,BANK

EXBANK

CALL

CALL
MTAQ030
ECCINIT
CALL

RETURN

END ;OF

ECCINIT
(LEAR

RETURN

UNRELOCATE

;TRAP ON DOUBLE BIT ERRORS (NORMAL)

PASFLG

:TRAP ON DOUBLE BIT ERRORS (NORMAL)

NOFSMODE ,NOSCOPE ,FULLREL

MACRO M1113
SETUP FLUSH OUT DBE'S TEST

(IMSDBO MSi1-L/M DIAGNOSTIC

M10030

07-0CT-80 18:01

MTO031:

4587 025160

SUBTST

PAGE

K 16
157 SEQUENCE

<<MT0031

198

SEQ 0205

SETUP SOB-A-LONG TEST>>

.".t""ti'tt""""""'""'""""""."t""'""""""Q""'Q'."QQ'.'

: *SUBTEST

MT0031

SETUP SOB-A-LONG TEST

;i!".."".""""""""'""'."."""'.'.'.'0"""""0000"Q""'Q'Q"'

4588
(589
4590
5N
6592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609

4610

4611
4612
4613

025160
025164
025170
025176
025206
025210
025224

025232
025244
025246
025252
025254
025260
025264
025272
025300
025304
025306
025314
025316
025320
025326
025330
025336
025342
025346

004737

026370

012737
005037

000931
002074

002260

100776

160000

002426

000207

:CHECK FOR KAMIKAZE MODC
:IF NOT IN KAMIKAZE MODE RETURN

MAP
BANK
TESTAREA

:MAP FIRST SO BLOCK MOVE WORKS
:ENTER TEST MODE

MOV
CLR

#31,REALPAT
NOPAR

BMOV

MTPO31,FIRST,SOBLENGTH/2

KERNEL
MOV
MOV

002532
060056
060002

CAcL
KAMITEST
ON.ERROR THEN SRETURN
SET .
NOSCOPE

mov

#100776,R1

MOV
MOV

#FIRST+2,SUPDOADD
#LAST+2,(INK1

MOV

002254
002472

TST

BNE

172252

172254

177652

177654

1%:

140000
026616
002410

002472

28:

CMP

SOBK,R2
R2,R0

BEO
BR
(MP
BNE

#FIRST+SOBLENGTH,RS
NOSUPER

SIPARS,SIPARG

2%
38
UIPARS,UIPARS
38

MOV

#140000,LINK1

(LR

NOSCOPE

CALL

RE TURN

SUPDO4

;SETUP PATTERN NUMBER FOR TYPEGUT & DISPLAY
:SETUP PARITY ACTION

;ENTER KERNEL MODE

;COMPLEMENT OF

INSiRUCTION *'SOB R0,DOT'’

CIMSDBO MSi1-L/M DIAGNOSTIC
M10031
SETUP SOB-A-LONG TEST

MACRO M1113

07-0CT-80 15:01

MT0032:

4616 025350

SUBTST

;*SUBTEST
R

L6127
4618
4619
4620
4621
4622
64623
4624
4625
4626
4627
4628
4629
4630
L6311
4632
4633
4634
4635
4636
4637
4638
4639
4640

025250
025354
025360
025366
025374
025400
025414
025420
025424
025430
025434
025440
025444
025450
025454
025456
025464
025466
025470
025476
025500
025504
€25510
025514

4641
4642 025522
4643

4644 025530

4045 025532

4646 025534

4647
L648 025536
4649 025544
4650
4651 025546
4652 025554
465%
4654 025556
4655 025562
4656 025566
4657 025572
4658 025600
4659 025604
4660 025606

025612
4662 025616
4663 025622
4664 025626
4665 025632
4666 025636
4667 025640
4668 025644
4669 025652
4661

004737

026379

012737
005037

000032
002074

012700
012701
012702
010237
012703
012704
005037

010247

N05737

001005
023737
001405
000415
023737
001011
012704
012702
010237
012737

002260

172254

177652

177654

140000

’%:

3%:

010023
010144
077203
022737
001003

4%:

5%:

012702
012700
012701
012737
005737
001402
012701
004737
012703
012705
012704
005737
001402
012703
022737
001406

005141
025700
160000
060000

002474

002254

140000

014000
000001

003710

7%:

77667, R

“0P CODE OF COMPLEMENT OF INSTRUCTION “'JMP (RO)"'

MOV

#10247,R0

“OP CODE OF

LINK2

BEQ
BR
CMP
BNE

2%
3%
UIPARS ,UIPARG
3%

1%
SIPARS,SIPAR6

#140000,R4
#140C0,R?

R2,LINK]
#1,LINK2

TESTAREA
;MOVE TEST

MOV

TO MEMORY UNDER

RO, (R3)+

JENTER

TEST

MODE

R2,4%

MTPQ32

MOV
MOV
MOV

#5141 ,R2
#10$ ,RO
SJLAST+2 R

TST
BEQ
MGV
(ALL

TEST

R1,-(R&)

BMOV

KERNEL

R2,-(PC)"

FLAST+3
R4
NOSUPER

MOV
MOV

INSTRUCTION 'MOV

"USED FOR 1/2 BANK LOOP

#S12€/2.R2
R2,LINKA
¥FIRST,R3

TST

TEST

#FIRST,SUPDOADD

L INK2

MOV
MGV

€$
#140000,R1
SUPDOD4
#SIZE/2,R3
#110,R5

TST
BEQ
"oV
(MP
BEQ

LINK?
)
78
#14070,R%
#1,PPOTYP
2%

MOV

002474

;SETUP PATTERN NUMBFR FOR TYPEOUT & DISPLAY
*SETUP PARITY ACTION
"MAP FIRST SO THAT THE BLOCK MOVE WORKS

MOV

6%:

026616
020000
000110
060000

#32 ,REALPAT
NOPAR
BANK

#1 ,PROTYP
CMP
5%
BNE
MOVE LAST PART OF

00%710

104417

SETUP WRITE RECOVERY TEST

NOSCOPE

508

000001

MT0032

SET

MOV
MOV

002474

SETUP WRITE RECOVERY TEST>>

MOV
CLR
MAP

BNE
(MP
1%:

SEG 0206

;sCHECK FOR KAMIKAZE MODE
“IF NOT IN KAMIKAZE MODE RETURN

CLR

172252

199

CALL
KAMITEST
ON.ERROR THEN SRETURN

MOV

160000

002474
002426

159 SEQUENCE

<<MT0032

MOV
MOV
MOV

002472
060000

L 16

LR R
R
R
R

MOV

177667
020000

014000
002472
000001

PAGE

R4
#FIRST,

TO FASTCITY

;ENTER KERNEL MODE

;0P CODE Of INSTRUCTION ''COM
;ADDRESS TO RETURN TO IN RO
:TOP OF BANK

=RV

MACRO M1113
SETUP WRITE RECOVERY TEST

CIMSDBY MSit1-L/M DIAGNOSTIC

M10032

4670 025654
4671 025662
4672 025666
4673 025670
4674 025674
4675 025700
4676
4677

012737
004737
000402
004737
005037
000207

036012
026616
026440
002419

00225¢

07-0CT-80 18:01
MOV

8%:
9%:

108:

CALL
BR
CALL
CLR

RETURN

PAGE

m 16
159-1

SEQUENCE 200

SEQ 0207

#M1P032,SUPDOADD
SUPDO4
9%

SUPDO2

NOSCOPE

;THIS RETURN ACTS AS A NORMAL RETURN FROM MT0032
;ALSO A RETURN FROM THE "‘CALL
SUPDO&"" ABOVE

MACRO M1113
CIMSDBO MSit1-L/M DIAGNOSTIC
M10032
SETUP WRITE RECOVERY TEST
4680 025702

MT0033:

SUBTST

. *SUBTEST

025702
025706
025712
025720
4685 025726
4686 025732

4681
4682
L683
4684

004737

026370

012737
005037

000033
002074

1044617

025770
025774
026002
026006
026012
026020
026024
026026
026034
026036
026040
026046
026050

012705
012737
012701
012702
012737
005737
001005
023737
001405
000407
023737
001003
012737

060076
060004
060002
060003

SET
MOV
CLR
MAP

002260

026056
026062
4708 026066
409
4710 026070

004737
005037
000207

026616
002410

160000

002254
002472

177652

1776564

18:

140000

002472

2$:

BNE
MOV

3%:

CALL

(MP

BANK

ENTER

TR EC et eTetReTe

TEST MODE

#F1RST+4 ,SUPDOADD

NOSUPER

1%
SIPARS,SIPARG
2%
18

UIPARS ,UIPARG

3%
#140000,L INKT
SUPDO&

NOSCOPE

SUBTST

<<MT0034

MT0034

s*SUBYEST

EN O

)

;ENTER KERNEL MODE

(LR

RETURN

NOPAR

#FIRST+2
R
#FIRST+3
R2
#LAST+2,LINKY

172254

sSETUP PATTERN NUMBER FOR TYPEQOUT & DISPLAY
JSETUP PARITY ACTION
sMAP FIRST SO THAT BLOLK MUVE WORKS

MOV
MOV
MoV

17225?

MTC034:

NOSCNPE
#33 REALPAT

#FIRST+GBLENGTH
RS

TST

RN e N TR TN TR

JCHECK FOR KAMIKAZE MODE
s1F NOT IN KAMIKAZE MODE RETURN

MoV

BNE
(MP
BEQ
BR

SETUP BRANCH GOBBLE TEST

MTPO33,FIRST,GBLENGTH/2

MOV

TEST>>

B8MOV

KERNEL

002426

MTO0033

SEQ 0208

SETUP BRANCH GOBBLE

TN PRt

TESTAREA

025766

4690
4691
1,02
4693
64694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707

<<MT0033
T

CALL
KAMITEST
ON.ERROR THEN SRETURN

4687

4688 025746
4689 025754

N 16
PAGE 161 SEQUENCE 201

07-0CT-80 18:01

R T

SOFT ERROR - BACKGROUND PATTERN TEST>>
T

SOFT ERROR - BACKGROUND PATTERN TEST

AL R

:'t""t"ttt."Q""""""""i'Iitfit.'"t'.t'tt"t.t't"t""."'.'..'l"...

711
4712
4713
4714
4715
4716
6“7
4718
4719

4720
4721
4722
4723
4724
4725
4726
4727
4728

026070
026076
026102
026106
026112
026114
026120
026122

026130
026132
026140
026146

012737
012700
012701
013702
010103
013705
010004
022737
001006

000034
060000
040000
002560

000001

003710

012737

177646

002254

002102

026156
026164
026166
026174
026200

022737
001403
012737
004737

000001

036150
026602

002254

4730 026202

022737

000001

003710

472 9

MoV
MOV
MOV
MOV
Mov
MOV
MOV

002260

1%:

CMP
BNE
BMOV
MOV

#1,PROTYP
1%
MTPO34
#UIPAR3, SUPDOADD

;1S THIS AN 11/44?
:BRANCH IF NOT

IF #BIT13 SET.IN CONFIG+2(RS)

:BACKGROUND PATTERN IS VALID

003710

CMP

#1,PROTYP

MOV

#MTP034+6,SUPDOADD

BEQ

2%:

#34 ,REALPAT
#FIRST,RO
#SI12E,RY
SOF TPAT,R2
R1,R3
BANKINDEX
RS
RO,R&

‘ géLL
L

SUPDO3

LREAD [T

;BACKGROUND PATTERN HAS BEEN INVALIDATED

(MP

#1,PROTYP

=L/M DIAGNOSTIC
(IMSDBO MSi1-L

MT0034

MACRO M1113

SOFT ERROR - BACKGROUND PATTERN TEST

L4731 02610
4732 026212

001406
012737

L4734 026224

000402

4733 020220

4735 026226
6736 026232
4737 026240
2;%8 026240

004737

004737
052765

036142

002254

026424
020000

002626

026602

07-0CT-80 18:01
BEQ
MOV

3%:
4§:

000207

CALL
BR

;«SUBTEST

4744 026250
4745 026262
4746 026266
4747 026270
4748 026274
4749 026302
4750 026304
64751 026306

4752 026312

4753 026316
4754 026324
4755 026330
4756 026340

016301

000301
042701
006301
010137
023737
001001
000207
012702

004737

012737
004737
005102

4757 026342

004737

4759 026352

000207

4758 026346

004737

SEQ 0209

3%
lHTPOS‘ SUPDOADD
SUPDO
48

CALL SUPDO1
BIS
#BIT13,CONFIG+2(RS)
END ;OF If #BIT13

MT0035: SUBTST

012737
013703

JWRITE 1T
JVALIDATE IT

RETURN

L7460 026242

4741 026242
4742 026250
64743 026254

PAGE 161-1 SEQUENCF 202

000035
002102

002260

002624
177760
002146
002146

002502

052524

036470

036166
026602

036470

026616

1%:
002254

MoV
MOV

SETUP WORST CASE NOISE PARITY TEST>>

<<MT0035
e

MT0035

L L e R R

SETUP WORST CASE NOISE PARITY TEST

L R R R AR

AR L

A R LR

L LT

L L L

Mov

#35. REALPAT
BANKINDEX,R3
CONFIG(R3),R1

CALL

BACKGND

;WRITE BACKROUND OF ALMOST ALT. 1°'S AND G'S

CALL

BACKGND

;WRITE COMPLEMENT PATTERN INTO MUT

SWAB
BIC
ASL
MoV
Cme
BNE
RETURN
MOV

R1
#4C17,R1
R1
R1,CSRNO
CSRNO,PGMCSR
1%

#52524 ,R2

MOV
#MTPO35,SUPDOADD
CALL
SUPDO3
IF QVFLAG IS TRUE THEN SRETURN
COM
R2
CALL

RETURN

;SET UP TEST NUMBER FOR DISPLAY

SUPDO4

CIMSDBO MSil1-L/M DIAGNOSTIC

MT0035

MACRO M1113

07-0CT-80 18:01

SETUP WORST CASE NOISE PARITY TEST

4762 026354

MT0999: SUBTST

<<MT0999

;*SUBTEST

MT0999

4766

4767 026370

SEQ 0210

SETUP NULL TEST>>

:i""ti"t"l'""'t""""'.tQ'Qtt't""'t't'i"'t"""t"t""'."""""'

4763 026354
4764 026360
4765 026366

1
¢
PAGE 163 SEQUENCE 203

005037

000207

002260

CLR
SET

RETURN

SETUP NULL TEST

AL L

REALPAT
NULLFLAG

KAMITEST:SUBTST <<CHECK FOR KAMIKAZE MODE>>

:tt"Q't.ti."."""""tt""'i't"'t't'."ttt'it""".i""t"""""'.""

CHECK FOR KAMIKAZE MODE

;*SUBTEST

;'i'Q"Q'"t'."""""""""'t"'."""'Q'Qi""'t""'tt"'""'Q"Q'Q""

4768
4769
4770
4771

026370
026412
0264616
026420
4772 026424

IF KAMIKAZE IS TRUE OR ACTFLAG IS TRUE OR APTFLAG IS TRUE
;RUN THE TEST
¢ g?ETURN NOERROR
L

SRETURN ERROR

END ;OF

KAMIKAZE

;DON'T RUN THE TEST

CIMSDBO MSi1-L/M DIAGNOSTIC

CHECK FOR KAMIKAZE MODE

MACRO M1113

4775 026424

SUPDO1: SUBTST

2222223228

s *SUBTEST
I

ik
D
B
D
e
D

~N
~
w
~

D
D
e
e

4801 026556

4804 026566
4805 02657C
4806 026600

002152
026520
002562
002170

000740

4800 026554

4802 026562
4803 026564

002152
002154

)

010037

177640

000004
000207

MAP
SUPDO2: CALL

055570

026424
0264640
026444
026454
026460
026464
026466
026470
026472
026474
026476
026500
026504
026512
026520
026524
026526
026530
026532
026534
026536
026540
026542
026550

-l

4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799

002562
002564

1
D
PAGE 165 SEQUENCE 204

07-0CT-80 18:01

TAGLS:

<<SUBR

EXECUTE PATTERN [N SUPERV]SOR:>

SUBR

EXECUTE PATTERN IN SUPERVISOR

222222222222

BANK
GETDIS

PUSH
SLPERR,SLPADR
Mov
RO, SUPDRO
MOv
#SUPDR1,RO
MoV
R1,(RO)+
Mov
R2,(RO)+
MOV
R3,(RO)+
MOV
R4, (RO)+
MOV
RS,(RO)+
MOV
SP,(RO)
¢+
MoV
SUPDRO,RO
MOV
#TAGLS ,SLPADR
Mov
SLPADR,SLPERR
MOV
#SUPDR6+2
,RO
-(RO),SP
MOV
Mov
-(R0),RS
MOV
=(RO) ,R4
MOV
-(R0),R3
Mov
-(R0) ,R2
-(ROY,R1
MOV
MOv
-(k0),RO
SUPERVISOR
MOV
CACHOFF

CALL
CACHON

KERNEL
SCOPE
POP

RETURN

SEQ 0211

#SUPSTK,SSP

FASTCITY

222

20020

R0l

;MAP SUPERVISOR SPACE

lRdRd

(TEST AREA)

:TURN CACHE

OFF

;CALL TO THE USER
: TURN CACHE ON

)

TO BANK

;ENTER SUPERVISOR MODE

;ENTER KFRNEL MODE
SLPADR,SLPERR

R0RARRR

INSTRUCTION PAR'S

CZMSDBO MSi1-L/M DIAGNOSTIC
MACRO M1113
SUBR
EXECUTE PATTERN IN SUPERVISOR
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821

026602
026616
026622
026632
026636
026642
026644
026646
026650
026652
026654
026656
026662

4822 026670

4823
48264
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4B37
4838
4839

026676
026702
026704
026706
026710
026712
026714
026716
026720
026726
026732
026734
026740
026742
026746
026750
026754

4840 026756
4LB41 026760
4842 026762

4843 026772

004737

055570

010037
012700
010120
010220
010320

002152
002154

010420
010520
010620
013700
012737

013737

012700
014006
014005
014004
014003
014002
014001
014000
005737
001403
012706
000402
012706
104424
004777
104423
104417
000004

000207

002152
026676

002562

002170

BANK
GETDIS
SLPERR,SLPADR
RO, SUPDRO
#SUPDR1,RO
R1,(RO)¢
R2,(RO)¢
R3,(RO)+

Mmov

SLPADR,SLPERR

MOV
Mov
Mov
MoV
Mov

002562

002564

TBG4S:

000700

153300

E
PAGE 167 SEQUENCE 205

SUPDO3: MAP
SUPDO&4: CALL
PUSH
MoV
Mov
MoV
Mov
MOV

002426

000740

07-0CT-80 18:01

1%:
2%:

R4, (RN) ¢
RS,(RO)¢
SP,(RO)+
SUPDRO,RO
#TBG4S ,SLPADR

MOV
#SUPDRE+2,RO
Mov
-(RO),SP
MOV
-(R0O) ,RS
MOV
=(RO) ,R&
MoV
-(RO),R3
MOV
=(R0O) ,R2
MOV
-(RO) ,%°
MoV
-(R0) k0
TESTAREA
TST
NOSUPER
BEQ
1%
MOV
SUSESTK,USP
BR
2%
MoV
#SUPSTK,SSP
CACHOFF
CALL
aSUPDOADD
CACHON
KERNEL
SCOPE
POP

RE TURN

;MAP SUPERVISOR SPACE

SLPADR,SLPERR

:ENTER SUPERVISOR MODE

:TURN CACHE OFF

: TURN CACHE ON

;ENTER KERNEL MODE

SEQ 0212
(TEST AREA)

TO BANK

CIMSDBO MSi1-L/M DIAGNOSTIC

MEMORY

TEST

PATTERN ROUTINES

4LBL6
4847
4848
4849
4,850
4851
4,852
4853
4854
4855
4856 026774

MACRO M1113

07-0CT-80 18:01
.SBTTL

AN RN R

PAGE 169 SEQUENCE 206

SEQ 0213

MEMORY TEST PATTERN ROUTINES

RN N AN RN RN RO ANE

LR AN RNRANARRARNNNRNAANRONRNRONNCEROCERNRORNOTOIORRONCRIRNCOETS

PATTERN REGISTER CONVENTIONS

:
:
:
;
:

R1
R2
R3
R&
RS

FIRST ADDRESS OF PATTERN (FIRST,LAST+2,ET(C)

NUMBER OF ADDRESSES IN PATTERN (SIZE)
DATA FOR PATTERN (ONES,52525,ET()
COPY OF R1 (IF NECESSARY)
COPY OF RO (I1F NECESSARY)
COPY OF R2 (IF NECESSARY)

AR R A AR R RN TR NN RPN AR C RN

MTPO0O: SUBTST

<<MTP0OO

s *SUBTEST

MTPOOO

1%:

R2,(RO)+

R NAAN RN AN ERARRAAANCANNRRARANRNANROOEOORONOETS

BASIC DATA TEST>

;itttttt'fittt't"t'""t""""t'i'i'tt"'t'tQt't"t.""'Qttt'."""""""'

BASIC DATA TEST

;ttttitiitttitii"ttt"tt"'i'i""'Qit'tt'itt.t't'i""i't""""'.""""".

LB57
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867

026774
026776
027000
027002
027004
027006
027010
027012
027014
027016
027020

010220
077102
000240
012401
020102
001402
104430
000240
077306
000207

2%:

3%:

MOV

S08B

NOP

MoV
CMP
BEQ
PERRO?2
NOP
S08

RETURN
MTPOOT: SUBTST
R

R1,MTPO00
(R&)+,R1
R1,R2
3%
R3,2$
<<MTPOO1

V177640

(V177642

V177644

sV177646
:V177650
sV177652
V177654
:V17765¢
:V177660

V177662
ADDRESS TEST>

2223222222222 22222 22222222222

TaSUBTEST

MTPOO1

ADDRESS TEST

SRR

R R

R ARl
Rd!

X223222222322222322x22222222
222232 2222222220
Rl
ld)

4868 027020
4867 027022
4870 027026

4871 027030

4872 027032
4873 027034
4874 027036
4875 027040
4876 027042
4877 027046
4878 027050
4879 027052

010220
062702
077104
000240
012400
020005
001401

104427

062705
077307
000207

000002

MOV
ADD

08
NOP
1$:
MOV
CMP
BEQ
PERRO1
2%:
ADD
0B
RETU RN
MTP002: SUBTST

R2, (RO)+

#2,R2

R1.3$

(R4)+,RO
RO,RS
28

#2 RS
R3.1$
<<MTP00?2

V177640

177642

V177646
V177650
V177652
V177654
V177656
V177660
V177662
V177666
V177672
COMPLEMENT ADDRESS TEST (WRITE DOWN, READ UP)>>

2232222222222 2222222323222 23223 2822222202022 20022

i *SUBTEST

MTPO02

027052
027054
027060
027062
027064
027070
027072
027074
027076
027100
027102

010540
062705
077104
000240
162702
012401
020102
001401
104430
077307
000207

is.

MOV

RS, - (RO)

000002

SO0B

R1.3$

000002

1$:

ADD

NOP
SUB
MOV
CMP

BEOQ

2%:

PERRO2

0B
RETURN

#2.RS

92 ,R2
(RG)+,R1
R1,R2

R3,1$

R RRRRRRRRRRRRRRRRRlld)

COMPLEMENT ADDRESS TEST (WRITE DOWN, READ UP)lRlRRlRill)

2222222222222 22222 2222222282222 3223222280222

4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890

V177640
V177642

V177646

V177650
V177652
V177656
V177660

V177662

V177664

V177666
177670

200200 RRRRRRRRRRRRRR

CIMSDBO MSi1-L/M DIAGNOSTIC

MTPO02

COMPLEMENT

ADDRESS TEST

MACRO M1113

(WRITE DOWN,

READ UP)

MTPAQ3:

4893 027104

SUBTST

. *SUBTEST
R

4894
4895
4896
4897
4,898
4899
4900 027104
4«90 027106
4902 027110

4903
4904
4905
4906
4907
4908

027112
027114
027116
027120
027124
027126
027130
027132
027134
027140
027142

4909
4910
4911
4912
913
4914
4915
4916 027144

1%:

010421
¢77203

005104
052704
000401
012702
077511
005104
052704
000401
012705
077317
000207

000004

000100

WARNZ2:

WARNY:

w919 027150
4920 027152
4921 027154
4922 027156
4923 027160
4924 027164
4925 027166
4926 027170
4927 027172
4928 027174
4929 027200
4930 027202
9N

027204

000004

000100

=
=
=
=

MTPAO3
L

MOV
MOV

so8
COM
BIS
&0
MOV
So8
COM
BIS
401
MOV
So8
RETURN

R
R

sV177640
(V177642

sV177644
JV177646
JV177650
;V177652 WARNING LOCATION IS MODIFIED BEFORE LOADING
;V177654
$V177660
sV177662
V177664
;V177666 WARNING LOCATION IS MODIFIED BEFORE LOADING
JV177670
sV177674
V177676

R2,1%
R4
(PC)+,RG
#4,R2
RS,1%
R&
(PC)+,RG
¥64. RS
R3.1%
LSB

MTPBO3

WARNS:

3 XOR 9 WORST CASE NOISE TEST (WRITE)

R4, (R1)+
R4, (R1)+

. *SUBTEST

WARNG:

3 XOR 9 WORST CASE NOISE TEST (WRITE)>>

:RS = MEDIUM LOOP CONSTANT
.ENABL
LSB

<<MTPBO3

1%:

SEQ 0214

ADDRESS
SMALL LOOP CONSTANT
NUM OF ADD TO TEST (LARGE LOOP)
GOOD DATA

MTPBO3: SUBTST
R

000137
077203
005104
052704
000401
012702
07751
005104
052704
000401
012705
077317
000207

<<MTPAQ3

LR R

.DSABL

4918 027144

:R1
;R2
;R3
sR4
010421

6_1
PAGE 171 SEQUENCE 207

07-0CT-80 15:01

3 XOR 9 WORST CASE NOISE TEST (READ)>>

L R
S PR R R
R P R R R LR RS ALY

3 XOR 9 WORST CASE NOISE TEST (READ)

.ENABL

LSB

JMP
S08
COM
B1S
401
MOV
So8
COM
BIS
401
MoV
S08

SMTPCO3
R2,1$
R4
(PC)+,R4

.DSABL

LSB

RETURN

#4,R2
RS.1$
R4
(PC)+ R4
¥64. RS

R3.,1$

T T

ALY

JV177640
GO TO V172360
(V177644
(V177646
:V177650
sV177652 WARNING LOCATION [S MODIFIED BFFORE LOADING
(V177654
sV177660
$V177662
JV177664
;V177666 WARNING LOCATION 1S MODIFIED BEFORE LOADING
V177670
V177674
(V177676

CIMSDBO MSi1-L/M DIAGNOSTIC
MACRO M1113 (07-0CT-80 18:01
MTPBO3
3 XOR 9 WORST CASE NOISE TEST (READ)
MTPCO3:

4934 027204

SUBTST
L

s *SUBTEST
R

4935
4936
4937
4938
4939
L9340
69461
4942

027204
027206
027210
027212
027214
027216

020421
001401
104431
005141
005111
000137

1%:

027222
MTPDO3:

027222

027226
027230
027232
027234
4949 027236

4945
4946
L4947
4948

MTPCO3

020421
001401
104431
005127
000000
001363
000137

027150

TEST DATA SUBPROGRAM>>

TEST DATA SUBPROGRAM
R

a#MTPDO3

SUBTST

<<MTPDO3

TEST DATA SUBSUBPROGRAM>>

-(R1)
(RY)

MTPDO3

(MP

R4, (R1)+

$V172260

PERRO3
(OM

(PC)+

$V172264
sV172266

0
BNE
JMP

MIPCO3
AMTPBO3+4

$V172262

$V172270
2172272
(V172274

Y
Y

G0 TO V172260

TEST DATA SUBSUBPROGRAM

R
R

sV172360
;V172362
;V172364
(V172366
:V172370
(V172372

BEQ
1%:

SEQ 0215

R4, (R1)+
19

4943 027222

<<MTP(J3

CMP
BEQ
PERRO3
COM
COM
JMP

s *SUBTEST
4944 027224

PAGE 173 SEQUENCE 208

G0 TO v172360
GO T0 V177644

PR T

CIMSDBO MSil1-L/M DIAGNOSTIC
MACRO M1113
MTPDO3 TEST DATA SUBSUBPROGRAM
4952 027242

07-0CT-80 18:01

MTPAOGL:

SUBTST

1_1
PAGE 175 SEQUENCE 209

<<MTPAOL

ROTATING ZEROS TEST>>

;Q"Q't"t"fit""""""'"""t""'""'Q"'I"'Q""Q'""""""Q'Q"""

:«SUBTEST

MTPAO4

is:

MOV
MOV
CLC
JMP
MOV
BCS
CMP
BEQ
PERRO4
508
RETURN

#8. RS
RS,R4

SUBTST

<<MTPBO4

ROTATING ZEROS TEST

:"tt'tt"t't't"'i'i"""t"'i"it'i'i't'.'tt"tl't'""'"'Qt""i"""""'

4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
zggz

027242
027246
027250
027252
027256
027262
027264
027266
027270
027272
027274

012705
010504
000241
000137
016004
103402
020204
001401
104432
077115
000207

000010
027276
177776

28:
38:

4965 027276

MTPBO4:

3#MTPBOL
-2(R0) ,R4
28
R2,R&
38

R1,18

V177640
V177644
V177646
V177650
V177654
V177660
V177662
V177664
V177666
V177670
V177672
SUBR

ROTATING BIT>>

:'.""Q"Q"'Qt"tfit"""Q"i""i'.'i"i'i't"'t'Qttt"ti"'t'."'t't"t'"Q'

SUBR

ROTATING BIT

:«SUBTEST

MTPBO4

is:

ROLB
508
ROLB
ROLB
508
ROLB

(RO)
RS,18
(RO)+
(RO)
R4,2$
(RO)+

V172360
V172362
V172364
V172366
V172370
V172372

SUBTST

<<MTP0OS

ROTATION ONES TEST>>

:.Q'Q"ttt'i.QI'it""""""""".Q't"tt't'!Q'l'tt"t"fi"t""t'i"t""tt'

4966
4967
4968
4969
4970
4971

027276
027300
027302
027304
027306
027310

23;% 027312

106110
077502
106120
106110
077402
106120

000137

28:

027256

4974 027316

JMP

MTPOOS:

IMTPAOL+14

V172374

:"t'.ttt't."""""'t't"i'"'ti'i"""t't"t'tt.fi'ti""'"Q.t"'"Q"!""

:+SUBTEST

MTPOOS

is:

#8. RS
RS, R4

ROTATION ONES TEST

;'it'ttt.""'t"t"'ii""t'i"'!ttttt'fi.""iittQt"l't't"'t'""'t't't"'i"

4975 027316
4976 027322
4977 027324
4978 027326
4979 027332
4980 027336
4981 027340
4982 027342
4983 027344
4984 027346
4985 027350

012705
010504
000261
000137
016004
103002
020204
001401
104432
077115
000207

000010
027276
177776

28:
38:

MOV
MOV
SEC
JMP
MOV
BCC
CMP
BEQ
PERRO4
S08
RE TURN

AIMTPBOL
-2(R0) ,R4
2%
R2,R4
38
R1,1$

V177640
V177664
V177646
V177650
V177654
V177660 If THIS HAPPENS THE GOOD €& BAD MATCH
V177662
V177664
V177666
V177670
V177672

SEQ 0216

CIMSDBO MSi1-L/M DIAGNOSTIC

MTPOOS

ROTATION ONES TEST

MACRO M1113

MTPO06:

4988 027352

J_
PAGE 177 SEQUENCE 210

07-0CT-80 18:01
SUBTST

<<MTPO06

LeSUBTEST

R R R

SEQ 0217

INITIAL DATA TEST>>

R R 2R XXX

MTP0O06

INITIAL DATA TEST

;

THIS TEST CHECKS THE DI/DO LINES BY

R R0 R

RRRRRRRRRlRidl))

:Q'tt'QQQi""t""'i't""'t'i"'"""'Q"""ti"""""""Q't"'t"'t""'

4989
4990
4991 027352

4992 027360
4993 027364
4994 027372

4995
4996
4997
4998
4999
5000
5001
5002

027400
027404
027410
027412

027414
027420
027424
5003 027426
5004
5005 027430
5006 027434
5007 027436
5008 027446
5009
5010 027450
5011 027456
5012 027464
5013 027472
5014 027500
5015 027504
5016 €27510
5017 027512
5018
5019 027514
5020 027520
5021 027524
5022 027526
5023
5024 027530
5025 027534
5026 027536
5027 027546
5028 027550

012737
005037
013771
0137
017102
023702

001401
104433

000001
002236

002234

002236
000000
002234

002234

MOV

000000
000002

Mov
MOV
MoV

CLR

CMP
BEQ
PERRO?7

017102
023702
001401

000002
002236

2s:

005737
100405

002236

3%:

104434

000746

012737
012737
01371
013771
017102
023702
001401
104433

177776
177777

002234
002236
000000
002234

002234
002226
000000

000002

A ¥

5%:

1ST
BMI
DLEFT
BR
MOV
MOV
MOV
MOV
MOV

PERRO?

000002
002236

0$:

005737

002236

7%:

104434

000746
000207

CMP
BEQ
PERR10

CMP
BEQ

017102
023702
001401

100005

MOV

8%:

MOV

CMP
BEQ
PERR10
TST
BPL
DLEFT
BR
RETURN

SHIFTING A 1 THROUGH THE WORD.
;SET THE FIRST TEST BIT

#1 ,DATBUF

DATBUF
+2
;CLEAR 2ND WORD
)
,a(R1
F
DATBU
;WRITE TEST WORD 1
)
+2,32(R1
DATBUF
:AND TEST WORD 2
a(R1),R2
:NOW READ THEM
DATBUF ,R2
2%
;BR IF FIRST 16 0K
;ERROR TRAP

@82(R1),R2
DATBUF
+2 ,R2
3%

+2
DATBUF

4%
DATBUF
1%

;NOW READ

SECOND WORD

;BR IF 0K
.ERROR TRAP

;HAS LAST BIT BEEN TESTED ?
;MINUS MEANS BIT 31

sNO,

SHIFT TEST BIT LEFT

;60 WRITE NEW TEST DATA

.NOW GOING TO SHIFT A O IN DATA DIRECTION

;PUT A O INBIT O
JAND 1'S IN ALL OTHERS

#177776 ,DATBUF
#-1, DATBUF+2
DATBUF ,a(R1)

sWRITE

9(R1) ,R2
DATBUF ,R2
6%

;BR

THE DATA

DATBUF +2,32(R1) ;2 WORDS WORTH

82(R1),R2
DATBUF+2
R2

;NOW READ FIRST WORD
IF

[4)

;NOW, READ
;BR IF 0K

¢2
DATBUF

;TESTED BIT 31 YET?

8%
DATBUFf
5%

;BR IF

SECOND WORD

YES, WE'RE DONE

;KEEP GOING

CIMSDBO MSi11-L/M DIAGNOSTIC
MTPOO6
INITIAL DATA TEST

MACRO M1113

MTPOO7:

5031 027552

K_1
PAGE 179 SEQUENCE 211

07-0CT-80 18:01
SUBTST

ADDRESS BIT TEST>>

<<KMTPOO7

:ttt'ttQfittt"t"t"t""t't'i""tl'it'ttiti'tl"""t'.""""'Q""""""'

;*SUBTEST

ADDRESS BIT TEST

MTPOO7

;'Qt't'ttt't.ttt"ttt"'""'Q"'Q't't""'tt"'fi*'tQ"""""Qt""""""'"

THIS TEST CHECKS TO SEE THAT EACH ADDRESS

5059 027622
5060

5061 027624
5062 027630
5063 027632
5064 027636
5065 027640
5066 027642
5067 027646
5068 027650

BNE
PERR12

005111

3s:

ASL

BIS

MOV
TST

8EQ

PERR13

104437

011100

005700
001001

104440

022702
001407
022702
001356
006302
012701
000752
000207

BIC

100000

010000

5%:

R2,R1
R2
R2,R1
(R1),RO
RO

;MASK OFF THE ASSERTED BIT

COM
MoV
TST
BNE
PERR14

CMP
8EQ
CMP
BNE

glOOOOO,RZ

ASL
MOV

160000

; COMPLEMENT THE BYTE

RETURN

2%:

(R1)
(R1),RO
RO

040201
006302
056201
011100
005700
001401

;READ AND COMPARE FOR ZEROS
:BR IF 0K

~—

1
0 700
001001
104436

COMB

Move
1ST8

HIGH, STUCK LOW OR STUCK TOGETHER.

RO
1%

1%:

;

(R1),RO

—b

WOOO
WwWn-=00

&H =d\N
s
N =2\

BEQ
PERR11

O—
o=

) b
el

0 1

MOvVB
71518

BIT IN EACH 16K BANK CAN BE ASSERTED UNIQUELY.
IT CHECKS FOR ADDRESS BITS THAT MAY BE STUCK

50 A~
YOO

5056 027614
5057 027616
5058 027620

0 7
0 4
0 4

5041 027562
5042 027564
5043 027566
5044 027570
5045 027572
5046
5047 027574
5048 027576
5049 027600
5050 027602
5051 027604
5052
027606
5053 027610
5054
5055 027612

027552
027554
027556
027560

5036
5037
5038
5039

#10000,R2

R?
#160000,R1

;READ FOR NON ZEROS
;BR

IF 0K

;SHIFT R2 FOR NEXT BIT

;SET THE NEW BIT INTO R1
;READ THE NEW ADDRESS

;READ FOR ZEROS
;COMPL THE WORD

;READ IT AGAIN

;CHECK FOR MSB IN 4K BANK
;NOT LAST BIT, BRANCH

SEQ 0218

CIMSDBO MSi1-L/M DIAGNOSTIC
MTPOO7 ADDRESS BIT TEST

MACRO M1113

5071 027652

07-0CT-80 18:01

PAGE 181 SEQUENCE 212

MTPO10: SUBTST

<<MTPO10

S *SUBTEST

MTPO10

SEQ 0219

BYTE ADDRESSING TEST>>

."Qt't'ttttt"t'ti"""""""ttt'tt.ttt"tt'tt'Q""tt't""""t""t""t"

BYTE ADGRESSING TEST

tttttQt'ttttQ"t"t"t'tQ"t""t't"t'i'tt"Qt""t'ttt'tt"Q't"'t't"'"tt"

5072
5073
5074 027652
5075 027654

5076 027656

010402
010403

062702

000004

5078 027666
5079 027674

012763
105013

177777

SO81 027700

020201

5077 027662 012713
5080 027676
5082 027702

5083 027704
5084 027706
5085 027710

5086
5087 027712

5088 027716
gggg 027720

010401

001401
104436

5098 027740

005201

5100 027744

122700

000756

112713

5101 027750

005203

5103 027754
5104 027756

001347
000207

5102 027752

1$:

MOV
CLRB

#-1.2(R3)
(R3)

&4 TEST BYTES
STHE
*CLEAR A BYTE

2 ¥

CMP

R2,R1

:1F EQUAL, JUST READ LAST BYT'E

020302

MOV
BEQ

CMP
BNE
MOVB
000000

3s:

177777

48:

5%:

177777

R4 ,R1

R3.R1
48

(R1),RO

unxre ALL ONES IN

JINITIALIZE R1 FOR EACH PASS

)

’”,

7
L

‘BR IF EQUAL

;1S THIS THE BYTE OFfF ZEROS
‘BR IF NOT

:WARNING IF YOU OPTOMIZE CHANGE THE PCBUMP FOR THIS ERROR INCASE Of TRAPS
cMP
#0,R0
;[T IS, COMPARE FOR ZEROS

104435

5095 027734
gggg 027736
5099 027742

000002

‘POINT R2 TO LAST BYTE +1

111100

005201
000765
111100

-1, (RD)

¥4 R2

020301
001007

022700
001401

MOV

ADD

001420

5091 027722
5092 027724
5093 027726

5094 027730

177777

MOV
MOV

;TEST 3 THIS TEST CHECKS FOR PROPER
BYTE ADDRESSING WITH ECC DISABLED
RA R2
;R4 HAS LOWEST ADDRESS
R4 RS
:PUT IT IN R3 ALSO

68 :

BEQ
PERR11

3¢

INC
BR
MOVB

R
2%
(R1),RO

BEQ
PERR12

CMPB

CNCXT BYTE
*RETURN

#-1,R0

;1TS NOT THE BYTE OF 0'S, READ 1'S

INC

sMOVE TO NEXT BYTE

MOVBE

#-1,(R3)

:RESTORE 1'S TO BYTE JUST TESTED

CMP

R3,R2

‘WAS THAT JUST THE LAST ONE?

INC

BNE
RE TURN

YINC TO NEXT BYTE
:BR IF NO

(ZMSDBO MSi1-L/M DIAGNOSTIC

MTPO10

BYTE ADDRESSING TEST

MACRO M1113

5107 027760

MTPO11: SUBTST
R

LR
PAGE 183 SEGUENCE 213

07-0CT-80 18:01

<<Mir011
R

SINGLE BIT ERROR TEST>>

MIPO11

;*SUBTEST

SEQ 0220

SINGLZ BIT ERROR TEST

P R

51
51
51
51
51
51
51
51
51
51
51
51
5
51

3
5124
51
51
5127
5128
g}

5131

5132

A A NN NN AN AN NI NNVNINNOINININ b b b ad b b d D 2 S OO
VB W= O OV
NO VNS NN 2O 00N
WNE WA 2O 000

;'ttliQttt"t'i't'"t"t""'Q'""'i"'fit""t'tl"t'!'"'t't"."""'fi""'.'

:(1)

CREATE A SINGLE BIT ERROR

1(2)
“(3)

READ BACK SBE UNCORRECTED (WITH ECC DISABLE)
ENABLE ECC & READ CORRECTED DATA

1(4)

CHECK THAT THE SBE FLAG WAS SET FROM THE LAST READ

'(5)

DO (1-4) FOR DATA CONSISTING OF 1 BIT SET IN EACH OF 32
POSITIONS OF A DOUBLE WORD

;

THEN DO IT AGAIN FOR 1 BIT CLEARED IN EACH OF 32 POSITIONS OF

A DOUBLE WORD

IE (64 TIMES)

:
(6)

027760
027762
027766
027770
027774
030002

104503
005737
001407
013702
013737
010237

030006

012737

030014

005037

172246
172252
172252

172246

000001

002234

002236

5134
030020
5135
030026
5
5137 030032

012737
005037

000001
002246

002244

013737

002234

002240

5139 030046
5140 030052
5141 030054
5142 030060
5143 030064
5144 030070
5145 030074
5146 030102

105737
001404
005137
0U5137
013702
013703
012737
004737

002256

5138 030040 013737 002236

S147

32 BIT POSITIONS
IE (RUN TEST 64 « 32 = 2048 TIMES)
CLRICSR
sCLEAR 1 SELECTED CSR
183
PHEBE
JTEST SPECIAL CASE INDICATOR
BEQ
MTLAYY
JBRANCH IF NOT SET
MOV
SIPARY,R2
:SAVE CONTENTS OF SIPAR #3
MOV
SIPARS,3#SIPAR3 ;COPY CONTENTS OF #5 INTO #3
"gYG oogZ.GISIPARS
;COFY CONTENTS OF #3 INTO #5

013076

002240
002242
00224J
002242
002240
041662

5148

002242

MTLA11: MOV

CLR

#1 ,DATBUF

sINITIAL DATA

DATBUF +2

;32 BITS WORTH

JMEDIUM LOOP

MTLB11: MOV
CLR
;LITTLE
MTLCI1: MOV

MOV

43:
002272

DO (1-5) FOR A SBE_IN EALH OF

1ST8
BEQ
COM
COM
MOV
MOV
MOV
CALL

#1,5BEMSK
SBEMSK+2
LOOP
DATBUF ,TSTDAY

PASFLG ;COMP DATA ON SECOND PASSONLY
43
:BR IF FIRST PASS
TSTDAT
;SECOND PASS, LOMP BOTH WORDS
TSTDAT+2
TSTOAT,R2
TSTDAT+2
,R3
#TSTDAT,SOURCE
;SET UP ADDRESS FOR (HKGEN
CHKGEN
sGEN CHECKBITS ON TSTDAT

JHNERRNERC
NN TR E LR T RN ERONNRNS
R

L L

5150 030106
5151 030112
5152 030116
5153 030122
5154 030126
5155 030132

013701
074137
013701
074137
013701
013705

002244
002240
002246
002242
002362
002364

MoV
XOR
MOV
XOR
MTLD11: MOV
MoV

5157 030140

013711

002240

MOV

TSTDAT, (R1)

5159 030146
5160

013715

002242

MOV

TSTOAT+2,(RS)

5158 030144

DATBUF +2,TSTDAT+2;TO SAVE ORIG DATA

sxe CREATE A SINGLE BIT ERROR #+

$149

5156 030136

sINITIAL ERROR MASK
;32 BITS WORTH

10447

104475

ECCIDIS

(B1(SR

SBEMSK
R
R1,TSTDAT
SBEMSK+2 R
R1,TSTDAT+2
TESTADD R
TESTADD+2,RS

sFIRST TEST ADDRESS
sSECOND TEST ADDRESS
sDISABLE ECC ON 1 SELECTED CSR
;WRITE FIRST 16 BITS

;WRITE GENERATED CHECKBITS IN 1 SELECTED (SR
JWRITE SECOND 16 BITS AND
JCHECK BITS. WE NOW HAVE CHCCKBITS

(IMSDBO MSi1-L/M DIAGNOSTIC
MTPO11 SINGLE BIT ERROR TEST
5161
5162
5163 030152
5164 030154
5165 030156
5166 030162
5167 030164
g}gg 030170

104471
011100
020037
001403
030137
104455

5170 030172

011500

5173 030202
g};g 030206

010537
104455

5171 030176
5172 030200

5176 030210
5177 030216

5178 030220
5179 030240
5180
5181
5182
5183
5184

030242
030242
C30242
030246
030250

5185 030252
5186 030254
5187 030256
5188 030260
g}gg 030262

5° 1 030264

5,92 030266

%193 030270

020037
007403

MACRO M1113

ECCIDIS
MOV
CMP
BEQ
MOV
PERR31

002240
002032

002242

6% :

002032

013076

104503
011100
020002
001401
104456

17¢:

104510

8%:

103411

5194 030276
5195 030302
g}gg 030304

010137
104460

510~ 030312
5199 030314

104503
011500

5201 030320

001401

5204 030324

104510

002032

9% :

010137
104460

5211 030354

105737

5209 030344
5210 030352

104512

5212 030360
5213 030362

100452
005737

5215 030370
5216 030400

000614

5214 030366

5217 030402

100405

(RS),RO

RO, TSTDAT#2
7%
RS, ADDRESS

;READ THE LOW WORD (UNCORRECTED)
:BR IF OK

:READ THE HIGH WORD (UNCORRECTED)
‘BR IF OK

CLRICSR
MOV
(R1),RO
CMP
RO,R2
BEQ
8s
PERR32

:CLEAR 1 SELECTED SR

TSTREAD

STEST LOC (R1) € TST FOR SBE (WITHOUT FETCHES)

BCS

MOV
PERR34
SET

R1,ADDRESS

PERR3?2

108:

002256

TSTREAD

BCS

118:

002246

12%:

HEADER

RO,RS
10$

:SEE IF ITS BEEN CORRECTED
“1T SHOULD HAVE BEEN

“BR IF

IT IS SET

"ENABLE PRINTING OF ERROR HEADER INFO
:ENABLE PRINTING OF ERROR HEADER INFO

;CLEAR 1 SELECTED CSR

;SEE IF ITS BEEN CORRECTED

BR IF OK

STEST LOC (R1) & TST FOR SBE (WITHOUT FETCHES)
'BR IF YES

HEADER

"ENABLE PRINTING OF ERROR HEADER INFO

SET
ERRGEN

HEADER

-ENABLE PRINTING OF ERROR HEADER INFO
“TEST ERROR ADDRESS

BM]
ST

15%
SBEMSK +2

SET

002032

HEADER

CLR1CSR
(RS) ,R0
MOV

CMP

103411

5207 030336
5208 030342

R1,ADDRESS

END: OF IF #BITé
END; OF IF KFLAG
ST
PHEBE
BNE
17%
ERRGEN

BEQ

;ggg 030322 104456
5205 030326

(R1),RO
RO, TSTDAT
6%

:GENEPATED ON DATBUF AND DATA WITH
“ONE BIT IN ERROR (AS PER SBEMSK).
‘DISABLE ECC ON 1 SELECTED CSR

IF KFLAG 1S FALSE
READCSR

SET

5200 030316 020003

5206 030330

CMP
BEQ

PAGE 183-1 SEQUENCE 214

IF #B1T4 OFF.IN CSR OR #BIT15 OFF.IN CSR
ERROR
+45

104045
0C5737
001001
104512

MOV

MOV
PERR31
7%:

104426

07-0CT-80 18:01

MOV
PERR34

R1,ADDRESS

1STB

PASFLG

128

OLEFT
BR

SBEMSK
MILCYY

STEST FOR LAST MASK BIT

"MINUS MEANS BIT 31

IF #SW1Y SET.IN @SwR TWEN GOTO 138

SEQ 0221

CIMSDBC MSi1-L/M DIAGNOSTIC
SINGLE BIT ERROR TEST
[elelololololelel
o]o
NN
N
NN w
elalelele]le] (=]
So
B BNV B d
oo SO ~n

MTPOV

005737

002236

000137

030020
002256

100406
105737

002256
030006
000200
002240
002242
000040
003740
002274

030526
030530
5240
5241
5242
5243
5244
5245

030534
030536
030542
030546
030552
030554

MACRO M1113

104471

013701
013705

DLEFT

13%:

002256

002274

¥
KR

15¢%:

104503

000207

JMP
1ST8
BNE
INCB
JMP
BIS
CLR
CLR
CLR
CLR
MOv
MOV
XOR
ASL

8lT

BNE
JMP

030126
002362
002364

PAGE 183-2 SEQUENCE 215

If QVFLAG IS TRUE THEN GOTO 13$
+2
DATBUF
;LAST DATA BIT ?
138
;WHICH IS BIT 31

18T
BMI

020000

000137

07-0C7-80 18:01

16%:

DATBUF
mMILB1

PASFLG
148
PASFLG

;FIRST OR SECOND PASS ?

;NON ZERO MEANS WE'RE DONE
;NOT DONE, GO DO SECOND PASS

MTLATY
#BIT7 ,PASFLG
R
R3
TSTDAT

TSTDAT+?
#40,R4
#3740, CHECK
R4, CHECK
Ré&

#BITI3,R4
16%

MTLD11

.CLEAR OUT ANY DBE'S OR SBE'S
;DISABLE ECC ON 1 SELECTED (SR

ECCIDIS

Mov
Mov

CLEAR
CLR1CSR

RETURN

TESTADD,R1
TESTADD+2,RS
(R1),(RS)

;CLEAR 1 SELECTED (SR

SEQ 0222

CIMSDBO MSit1-L/M DIAGNOSTIC

MTPO11

SINGLE BIT ERROR TEST

MACRO M1113

5248 030556

MTP012:

SUBTST

MAARAAARLAAAR A

s *SUBTEST
MAARAARA

5249
5250
5251 030556
5252 030560
5253 030566
5254 030572
5255 030600
5256 030604
5257 030612
5258 030620
5259 030626
5260 030632
5261 030636
5262 030642
5263 030646
5264 030652

104503
012737
005037
012737
005037
013737
013737
012737
004737
013701
074137
013701
074137
013704

5267 030662
5268 030666
5269 030670
5270 030672
g%;; 030676

013711
104475
060501
013711
104503

5273
5274
5275
5276

012702
160501
112711
005737

030700
030704
030706
030712

5277 030716
5¢7® 030720

79 030724
5280 030726
5281 030730
5282 030732
5283 030740
5284 030744
5285 030746
5286
5287 030754
5288 030756
5289 030762
5290 030764
5291
5292 030766
5293
5294
5295 030770

5297 031000
98 031004

01 031014

001403
132712

001420
104510
103011
010137
104017

11
122700
00
104457

000001
002236
000001
002246
002234
002236
002240
041662
002244
002240
002246
002242
002362

002244

18:

002240

2%:

002272

177777

104460

132712

48:

002032

AR A

MTPO12
R

SEQ 0223

TEST>>
R

WRITE BYTE CLEARS SBE TEST

DATBUF +2
#1,SBEMSK
“BEMSK+2
OATBUF ,TSTDAT

MOV

#TSTDAT,SOURCE

MOV

7%:

;NEED ADDRESS FOR CHKGEN

MOV

R4 ,R1

SPUT

MOV

TSTDAT, (R1)

CB1CSR
ADD
RS,R1
MOV
TSTDAT#2,(R1)
CLRICSR

:WRITE
“INDEX
:WRITE
:CLEAR

#SBEMSK ,R?

:ADDRESS OF

TESTADD, R4

SUB
MOVB

RS,R1
#-1,(R1)

BEQ

£31

BEQ

TSTREAD

BC(
SET

;FIRST

CHECK BITS

TEST

ADDRESS

IN R1

ALSO

‘DISABLE ECC ON 1

:WRITE 16 BITS

SELECTED CSR

GENERATED CMECKBITS
UP TO SECOND WORD
HIGH WORD+CHECKBITS
1 SELECTED (SR

IN 1

ERROR MASK

:RETURN TO FIRST WORD
:WRITE A BYTE OF 1°'S

KFLAG

11S

#-1,(R2)

;01D THIS BYTE HAVE THE BAD BIT

58
HEADEP

R1,ADDRESS

+1?

THIS MF11S-K

:BRANCH IF NOT = IT'S MS11-M
*NO - BRANCH
STEST

LOC

(R1)

& TST

FOR SBE

IN [T?

(WITHOUT

*NO - SKIP
:ENABLE PRINTING OF ERROR HEADER

INFO
INFO

HEADER

:ENABLE

MOVE
CMPB
BEQ
PERR33

(R1),R0
#-1,R0
7%

;CHECK DATA

TSTREAD

SELECTED CSR

:IT'S DANGEROUS IF WE DON'T

SET

PRINTING OF

ERROR HEADER

STEST LOC

(R1)

sREAD THE BYTE

& TST FOR SBE

(WlTHOUT FETCHES)

SET
MOV
PERR34
SET

;SBE ERROR BIT ONLY SET ?
;SHOULD BE SET, BR [F OK
;ENABLE PRINTING OF

ERROR HEADER

INFO

HEADER

;ENABLE PRINTING OF

ERROR HEADER

INFO

gl18

#-1,(R2)

;CHECK FOR LAST BYTE

HEADER
R1,ADDRESS

FETCHES)

‘BR IF 0K

BCS

002032

DATBUF +2,TSTDAT+2:BOTH WORDS
:GENERATE

ERROR

5§

32 BITS WORTH
SINITIAL ERROR MASK
132 BITS WORTH
:SAVE ORIGINAL DATA

CHKGEN
SBEMSK ,R1
R1,TSTDAT
SBEMSK+2
,R1
R1,TSTDAT+?

MOV

6% :

177777

WRITE BYTE CLEARS SBE

CLR
MOV
CLR
MOV

BITB

10377

010137

ECCIDIS

002244

104510

MOV

002242

177777

AR A

<<MTP(12

CALL
MoV
XOR
Mov
XOR

002240

177777
002500

PAGE 185 SEQUENCE 216

;SINGLE BIT ERROR TEST TO INSURE THAT A WRITE
:BYTE CLEARS SINGLE BIT ERRORS.
CLRICSR
;CLEAR 1 SELECTED CSR
MOV
#1,0ATBUF
CINITIAL DATA

002234

002242

07-0CT-80 18:01

]

MACRO M1113
L/M DIAGNOSTIC
BYTE CLEARS SBE TEST
001012
005202
005201
013704
032701
001723
062704

000720

0057s¢
100405

8%
R2

MOV
BIT

000007

BEQ
Sgo

TESTADD R4
#2.R1

PZLY)

1ST

SBEMSK¢?

002362
000002

100405

002236

013701
00501
060501
005011

104503
000207

002362

:MOVE TO NEXT BYTE

3%
g%,kk

:BR IF JT'S LOW 16 BITS
;ADJUST POINTER FOR ERROR REPT,

BM]

DATBUF +2

DLEFT
BR

DATBUF
1%

MOV

TESTADD ,RY

ADD

RS, R

DLEFT

000623
104471

INC

PAGE 185-1 SEQUENCE 217

BNE
INC

000647

005737

07-0CT-80 18:01

SBEMSK

;sFIRST TEST ADDRESS
;TEST FOR LOWER WORD

;LAST ERROR B]T ?

:MINUS MEANS BIT 31

1F #SW11 SET.IN @SWR THEN GOTO 10%
IF QVFLAG 1S TRUE THEN GOTO 10%

BM]

10$

;LAST DATA BIT?

;MINUS = BIT 31

;CLEAR OUT ANY DBE'S OR SBE'S
;DISABLE ECC ON 1 SELECTED (SR
ECCIDIS
CLR

(R1)

(RY)
CLR
CLR1CSR

RE TURN

cCLEAR 1 SELECTED ~SR

SEQ 0224

(IMSDBO MS11-L/M DIAGNOSTIC
MACRO M1113
®1P012 WRITE BYTE CLEARS SBE TEST
5330 031144

MTF013:
R R

I L

SUBTST
R

s*SUBTEST

PAGE 187 SEQUENCE 218

<<MTPO13

07-0CT-80 18:01

MTPO13

SEQ 0225

CREATE DOUBLE BIT ERROR TEST>>

CREATE DOUBLE BIT ERROR TEST

R R XX

."ttt'itt'ti""""""""""'Q"'Q""i"."".'QQ'Q"Q"Q"'Q'Q't"""'."

5331

§332 031144
5333 031146
5334 031152
5335 031156
533, 031162
§337 031170
5338 0311764
5339 031202
§340 031206

104503
012701
005037
005037
012737
005037
012737
005037
013737

5342 031222
5343 031226
5344 031230
5345 0312364
5346 031240
§347 031242
5348 031250

105737
001404
005137
005137
104503
023737
001004

5341 031214

013737

002362
002234
002236
000001
002246
000001

002252
002234

002236

002256

18
002244

2%:

002250

3$:

002240

4$:

002262

002240
002242

002244

002250

5%:

5349 031252 023737 002246 002252

5350 031260
§351 031262
5352 031270
§353 031276
5354 031300
5355 03130«
5356 031310
5357 031314
5358 031320
5359 031324
5360 031330
5361 031334
5362 031336

5363 031342
$364 031344
5365 031352
5366 031354
$367 031360
5368 031364
5366 031366

$370 031370
$371 031376
5372 031402
5373 031404

001460
012737
004737
013702
074237
013702
074237
013702
074237
013702
074237
104471
013731

104475
013771
104503
162701
0057717
104501
103411
011137
104030

002240
041662
002244
002240
002246
002242
002250
002240
002252
002242

002272

002242
000002
000000

000000

MOV

TSTB
BEQ
COM
COM
CLRICSR
CMP
BNE

CMP

&%:

168:

002240

CLR1CSR
MOV
CLR
CLR
MOV
CLR
MOV
CLR
MOV

BEQ
MOV
CALL
MOV
XOR
MOV
XOR
MOV
XOR
MOV
XOR
ECCIDIS
MOV

#TESTADD
R
DATBUF
DATBUF +2
#1, SBEMSK
SBEMSK+2
#1,DBEMSK

DBEMSK+2

DATBUF ,TSTDAT

WAS1DBE
SET
MoV
ERROR
SET

:MAKE INITIAL DATA
*ALL ZEROS
“INITIAL SINGLE ERROR MASK
*SECOND WORD
TINITIAL DOUBLE ERROR MASK
132 BITS HERE ALSO

DATBUF +2,7STDAT+2

PASFLG :NO COMPLEMENTING FIRST PASS
5¢
TSTDAT
-COMP FIRST WORD
TSTDAT#2
*SECOND WORD
sCLEAR 1 SELECTED (SR
SBEMSK ,DBEMSK
:CAN'T HAVE THE SAME ERROR BIT SET
6%
"IN BOTH MASKS

SBEMSK+2,DBEMSK+2:
COULD BE EQUAL IN SECOND WORD

138
#TSTDAT ,SOURCE
CHKGEN
SBEMSK ,R2
R2,TSTDAT
SBEMSK+2,R2
R2,TSTDAT+2
OBEMSK ,R2
R2,TSTDAT
DBEMSK+2
,R2
k2, TSTDAT+2

TSTOAT,.@(R1)+

(B1CSR
MOV
TSTDAT+2,8(R1)
CLR1CSR
SUB
#2.R1
s(R1)
1s7
BCS

002032

;DOUBLE BIT ERROR FORCE TO CHECK DOUBLE ERROR LOGIC
;CLEAR 1 SELECTED CSR

HE ADER
(R1),ADDRESS
+30
HE ADER

GO MAKE THEM NOT EQUAL
;SOURCE ADDRESS FOR (HKGEN
160 GENERATE CHECK BITS

:DISABLE ECC ON 1 SELECTED CSR
-WRITE 16 BITS
;WRITE GENERATED CHECKBITS IN 1 SELECTED (SR
WRITE HIGH WORD
*CLEAR 1 SELECTED CSR
*ADJUST TEST ADDRESS
JREAD THE LOCATION

"WwAS THERE ANY DOUBLE BIT ERRORS ON 1 SELECTED (SR

S1T SHOULD BE SET

QOO
SN

oO=X

P al ol o¥ uF o ol LDo
-4
LS NTONON)
—

CIMSDBO Msi
M1P013
CRE

GN 0STIC

BIT ERROR TEST

002256
002252
000662

005737
100405

000636
031506
031512
031514
031522
031526
031532
031540
031546
031554
031560
031564

031570
031574
031600
031606
031610
031614
031622
031624
031632
031636
031640
031642

031646
031654
031656

MACRO M1113

105737
001C03
105237

000617
052737
005037
005037
012737
012737
012737
013702
074237
013702
074237
006337
032737
001652
006337
032737
001006
013737
006337
000743
104471

012701
104503
000207

13%:

BMI
TST

148
DBEMSK+2

DLEFT
BR

DEEHSK
4

BMI
DLEFT
BR

118
SBEMSK

:BR

BNE
INCB

PASFLG

128
PASFLG

FIRST PASS

11%:

002256

002244
004000
002244
002250

002362

ERRGEN

002246

000200
002240
002242
000040
000100
003740
002244
002276
002250
002276
002250
020000

PAGE 189 SEQUENCE 219

9%:

108:

002256

07-0CT-80 18:01

1ST8

BMI

PASFLG

;CHECK MASK FOR LAST BIT

;MINUS = BIT31

10$

IF #SW11 SET.IN @SWR THEN GCGTO 118§
IF QVFLAG IS TRUE THEN GOTO 11$
;CHECK SINGLE ERROR MASK T0O
TST
SBEMSK+2

1S78

[F DONE

;NON ZERO MEANS WE'RE DONE
NOT DONE
PASS,
FIRST

;CLEAR OUT ANY DBE'S OR SBE'S

002256
002244
002250
002274

12%:

14%:

BR
BIS
CLR
CLR
MoV
MOV
MOV
MOV

SBEMSK,R2

XOR

R2,CHECK
DBEMSK
#B1T13,DBEMSK
163
SBEMSK

BIT
BEQ
ASL

002244

BIT

00¢250

MOV
ASL

BNE
BR

ECCIDIS

MOV
CLEAR

CLR1(SR

RETURN

:SET UP FOR CHECK BIT TEST

#3740, CHECK
R2, CHECK

ASL

15¢%:

TSTDAT

SKEEP GOING

TSTDAT#2
#40, SBEMSK
#100,DBEMSK

XOR

MoV

002250

#BIT7,PASFLG

DBEMSK ,R2

#BIT11,SBEMSK

15%
SBEMSK ,DBEMSK
DBEMSK
148

#TESTADD,R?
a(R1)+ 3(RY)

;OISABLE ECC ON 1 SELECTED (SK
;CLEAR 1 SELECTED (SR

SEQ 0226

CIMSDBO MSi1-L/M DIAGNOSTIC

MTP013

MACRO M1113

CREATE DOUBLE BIT ERROR TEST

5420 031660

07-0CT-80 18:01

6 2
PAGE 191 SEQUENCE 220

MTPO14: SUBTST

<<MTPO14

i *SUBTEST

MTPO14

R AN AN

E RN AN

SEQ 0227

WRITE INMIBIT DURING DATIP WITH DBE TEST>>

R E R AR RN ANARNANARRAEPOANRAREARANRIRONCOACERNORANONCSOCOONCOOTOERNCETY

WRITE INHIBIT DURING DATIP WITH DBE TEST

;tiit"tit'Qi't"""""t"""".t""""'"Q'ttQ't'Q'QQQ""Q'Q"Q'Q""""

5421

;THIS TEST CHECKS THE WRITE INHIBIT ON DOUBLE

5422
5423
g:gg 031660

5631
5432 031670
5433 031674
5434 031700
5435 031706
5436 031712
5437 031720
5438 031724

;BIT ERRORS DURING A DATIP OPERATION BY USE
;OF AN 'ASRB' INSTRUCTION.
IF KFLAG IS TRUE THEN SRETURN
005037

005037
012737
005037
012737
005037
013737

5439 031732 013737
5440 031740
5441 031764
5442 031746
5443 031752

5446 031766

105737
001404
005137
005137
104503
023737
001004

5448 031776
5449 032000
5450 032006
5451 032012
452 032016

001476
012737
004737
013701
074137

5454 032026
5455 032032
5456 032036
5457 032042
5458 032046
5459 032052
5460 032056
5461 032060

074137
013701
074137
013701
074137
012701
104471
013731

5444 031756
5445 031760

002234

002236
000001
002246
000001
002252

002244
)
002250

28%:

002236

002240

002242

4%:

002234

002256

002240
002242
002250

002244

5447 031770 023737 002252

002246

002240
041662

002272

5453 032022

5462 032064
5463 032066

5464 032074
5465 032100
56466 032104
5467 032106
5468 032110
5469 032112
5470 032116
5471 032120
gz;g 032126

5474 032130
5475 032134
5476 032140
5477 032144
5478 032146

013701

104475
013771

105037
013703
104503
106223
015100
023700
001404
017137
104455

062701
017100
023700
001404
017137

002244
002240
002246
002242
002250
002240
002252
002242
002362

3$:

5¢%:

6%:

7%:

DATBUF +2,TSTDAT+2

1ST8
BEQ
(oM
COM
CLR1CSR
CMP
BNE

8%:

002032

9 :

002032

DATBUF +2
#1,SBEMSK
SBEMSK +2
#1,DBEMSK
DBEMSK+2
DATBUF ,TSTDAT

DBEMSK,SBEMSK
68

:PRESERVE ORIG DATA

ON SECOND PASS

:CLEAR 1 SELECTED (SR
-CHECK FOR SAME MASKS
‘BR IF OK

DBEMSK+2, SBEMSK+2

11%
#TSTDAT,SOURCE
CHKGEN
SBEMSK ,R1
R1, TSTDAT

XOR
MOV
XOR
MOV
XOR
MOV
ECCIDIS
MOV

R1,TSTDAT+2
DBEMSK ,R1
R1,TSTDAT
,R1
DBEMSK+2
R1,TSTDAT+2
#TESTADD,R1

:BR IFf THEY'RE EQUAL
;SET UP ADDRESS FOR CHKGEN
:GENERATE CMECK BITS

SBEMSK+2,R|

TSTOAT,a(R1)+

TSTOAT+2,9(R1)
CLRB
UPPFLG
MOV
TESTADD,R3
CLR1CSR
(R3) ¢
ASRB
MOV
a-(R1) RO
TSTDAT RO
CMP
BtQ
9%
a(R1),ADDRESS
MOV
PERR3?

ADD
MOV
CMP
BEQ
MOV

12 WORDS WORTH
YINITIAL ERROR MASK
;
‘DOUBLE ERROR MASK
2 WORDS

PASFLG
;SECOND PASS YET ?
5¢
:BR IF NO
TSTDAT
;COMPL DATA
TSTDAT+2

BEQ
MOV
CALL
MOV
XOR

CB1CSR
MOV

000000

000002
000000
002242
000000

MOV

CLR
MOV
CLR
MOV
CLR
MOV

MOV

002240
000000

;NOTE= THIS TEST WILL ONLY BE RUN FOR MF11S-K MEMORY.
DATBUF
JINITIAL DATA

CMP

002240
002242
002257
002362

CLR

#.R1
a(R1),RO
TSTOAT¢2,RO
108
a(R1),ADDRESS

;TEST ADDRESS

:DISABLE ECC ON 1 SELECTED (SR
:WRITE FIRST 16 BITS
:WRITE GENERATED CHECKBITS IN 1 SELECTED (SR
:SECOND 16 BITS+CHECKBITS
;INDICATE LOWER WORD
STEST ADDRESS
sCLEAR 1 SELECTED (SR
:SPECIAL DATIP INSTRUCTION

;CHECK FOR UNCHANGED DATA
;SHOULD BE UNTHANGED
;POINT 10 UPPER WORD

:READ 17
‘BR IF UNCHANGED

CIMSDBO MSil1-L/M DIAGNOSTIC

MTPO14

WRITE

5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5689
5490
5491
5492

032154
032156
032164
03
032172
0
032200
032202
032206
032210
032220
032222
032232

5493 032240

5494 032244
5495 032246
5496 032256
5497 032260
5498 032264
5499 032266
5500
5501 032272
9502 032276
5503 032304
5504 032310
5505 032314
5506 032322
5507 032330
8 032336
9 032342
0 032346

MACRO M1113
07-0CT-80 18:01
INHIBIT DURING DATIP WITH DBE TEST

1046455
122737

001403
105237
000744

105737
100453

005737
100405

000003

002257

108:

(MPB

002257

002256

13%:

0.2256

BMI
DLEFT
B8R
TST8
BNE
INCB

002244
004000

BIT
BEQ

002244

BIT

2 032624
3 032430

012701

002362

5 032440

000207

& 032370

5 032372
6 032376
7 032404

8 032406
9 032414

0 032420
1

032422

& 032436

1046471

104503

002244
002250

12%

;BR

002256

002244
002250
002276

15%:

JMP
8IS
CLR
CLR

MOV
MOV
MOV
MOV
XOR
MOV

XOR
ASL

ASL

BNE

002250

MOV
ASL

16%:

TESTING CHECK BITS

;LAST BIT IN MASK ?
IF BIT N

13%
SBEMSK

:BR

PASFLG

;WHICH PASS

PASFLG

INDICATE

148%

BR
ECCIDIS

MoV

18
#BIT7,PASFLG

YES

:BR IF WE'Rt DONE
SECOND PASS

;CLEAR OUT ANY DBE'S OR SBE'S

148

;LOWER WORD

IF #SW11 SET.IN @SWR THEN GOTO 13%
IF QVFLAG IS TRUE THEN GOTO 13$
TST
SBEMSK +2
;LAST BIT IN SINGLE ERROR MASK

002250

2 032356
3 032362

000100
003740

;BRANCH IF WE'RE

DBEMSK
43

002244
002274
002250
002274
002250
020000

0 1670
0v0200
002240
002242
000040

;BR

15¢

DBEMSK +?2

12%:

000615
105737
001004

11%

PASFLG

002252

002246

#3,UPPFLG

11%:

000137
052737
005037
005037
012737
012737
012737
013702
074237
013702
074237
006337
032737
001630
006337
032737
001006
013737
006337
000743

1 032352

SEQUENCE 221

SEQ 0228

UPPFLG

002256

005737

105237

H
2
191-1

PERR31

000641

100405

PAGE

;60 DO

COMING

IT!

TSTDAT

TSTDAT¢2
#40,SBEMSK
#100,0BEMSK

#3740, CHECK
SBEMSK ,R2

R2,CHECK

DBEMSK ,R2
R2,CHECK
DBEMSK

;21113.085nsx
SBEMSK
#B1T11,SBEMSK
16%
SBEMSK ,DBEMSK
DBEMSK
15%

#TESTADD,RY

CLEAR
8(R1)+ 3(R1)
CLRICSR
RE TURN

;DISABLE ECC ON 1 SELECTED (SR
;CLEAR 1 SELECTED (SR

CIMSDBO MSi1-L/M DIAGNOSTIC

MTPO14

WRITE

MACRO M1113

INHIBIT DURING DATIP WITH DBE

5528 032442

SUBTST

<<MTP0O15

HMAALAALRAAAR A

; *SUBTEST

MALAAAALAAAAL A

005037
005037
012737
005037
012737
005037
013737

002234
002236
000001
002246
000001
002252
002234

§539
§540
§541
§542
5543
5544
£545

032512
032516
032520
032524
032530
032532
032540

105737
001404
005137
005137
104503
023737
001004

002256

§547 032550
5548 032552
5549 032560

001474
012737
004737

§551
5552
§553
§554
5555

032570
032574
032600
032604
032610

074137
013701
074137
013701
074137

$557 032620

074137

5538 032504

§546 032542

§550 032564

§556 032614

5558 032624
5559 032630
5560 032632
5561
5562 032636
5563 032640

5564
5565
5566
§567
5568
§569
§570
5571
§572
§573
gg;g

032646
032650
032654
032656
032662
032666
032672
032676
032702
032704
032712

§576
5577
5578
5579
ggg?

032714
032720
032724
032726
032734

013737

002236

18
002244

2%:

002250

3$:

002240

&$:

002242

002240
002242
002244

002250

023737

002246

002252
002272

013701

002240
041662
002244
002240
002246

013701

012701
104471
013731

104475
013771

104503
013702
010203
062703
112722
012701
017100
023700
001404
017137
104455
017100
023700
001404
017137
104455

002250
002240
002252
0027+?

7%:

00¢¢~0
002242

000000

002362

000003
000360
002362
000000
002240
000000

8s:

002032

000002
002242

000002

98 :

002032

MTPO15
A

AR A

WRITE
R

INHIBIT OF BYTE WITH DBE>>
A

WRITE INMIBIT OF BYTE WITH DBE
A

TSTB
B8EQ
COM
COM
CLR1CSR
CMP
BNE

PASFLG
WHICH PASS ?
5%
;FIRST PASS, NO COMPLEMENTING
TSTDAT
TSTDAT+?2
;SECOND PASS, COMPLEMENT TSTDAT
TCLEAR 1 SELECTED CSR
SBEMSK ,DBEMSK
:CHECK FOR SAME MASKS
68
'BR IF NOT EQUAL

MOV

DATBUF¢2,TSTDAT+2

SBEMSK+2,DBEMSK ¢2

BEQ
MOV
CALL

11%
#TSTDAT ,SOURCE
CHKGEN

XOR
MOV
XOR
MOV
XOR

R1,TSTDAT
SBEMSK+2,R1
R1,TSTDAT+2
DBEMSK ,R1
R1,TSTOAT

XOR

R1,TSTDAT+2

MOV

002242

CLR
CLR
MOV
CLR
MOV
CLR
MOV

MOV

002242

SEQ 0229

;CMECK FOR WRITE INHIBIT DURING A WRITE BYTE.
*CHECKS FOR UNCORRECTED DATA.
DATBUF
JINITIAL DATA
DATBUF +2
32 BITS WORTH
#1, SBEMSK
:SINGLE ERROR MASK
SBEMSK +2
:
#1,DBEMSK
‘DOUBLE ERROR MASK
DBEMSK+2
;
DATBUF,TSTDAT
:PRESERVE ORIG DATA

CMP

¢$:

PAGE 193 SEQUENCE 222

TEST

MTPO15:

5529
5530
§531 032442
5532 032446
5533 032452
5534 032460
5535 032464
5536 032472
5537 032476

[

(07-0CT~80 18:01

SBEMSK ,R1

:SECOND WORD ALSO

;BR TO MAKE THEM NOT EQUAL
;ADDRESS FOR CMKGEN
;600 GENERATE (HECk BITS

OBEMSK+2,R1

MOV
#TESTADD ,R?
JTEST LOCATION
ECCIDIS
*DISABLE ECC ON 1 SELECTED CSR
MOV
TSTDAT,8(R1) ¢
JMRITE FIRSY 16 BITS
:LOAD CSR WITH IMAGE FROM R2
(BI1CSR
JMRITE GENERATED CHECKBITS IN 1 SELECTED (SR
MOV
TSTOAT¢Z,8(R1)
:WRITE SECOND 16 BITS ¢ CHECKBITS

CLR1CSR
MOV
TESTADD,R2
MOV
R2,R3
ADD
#3.R3
MOVB
#360, (R2)+
MOV
#TESTADD
,RY
MOV
a(R1),RO
CMP
TSTDAT RO
BEQ
9%
MOV
a(R1) ,ADDRESS
PERR3,
MOV
TMy
BEQ
MOV
PERRI

32(R1) RO
TSTDAT+2,R0
10%
32(R1),ADDRESS

SCLEAR 1 SELECTED CSR
:GET ADDRESS OF TEST LOC
:R2 DESIGNATES FIRST BYTE
‘R3 DESIGNATES LAST BYTE
STRY WRITING A BYTE

JCHECK FOR UNCHANGED DATA
‘BR IF OK

;READ SECOND WORD
:BR IF UNCHANGED

Y]]

)]

CZMSDBO MS51-L/M DIAGNOSTIC
MACRO M1113
MTPO1S WRITE INHIBIT OF BYTE WITH DBE
5582 032736
5583 032740
5584 032742
5585 032746
5586 032750
§587 032754

020203
001350
105737
100452
005737
100405

5589 032766

000643

5588 032756

5590 032770
5591 033000
5592 033006
§593 033012

5594 033014
5595 033024
5596 033026
5597 033032
5598 033034
5599 033040
5600 033042
5601 033050
5602 033054
5603 033060
5604 033066

005737
100405
000617
105737
001003
105237
000600
052737
005037
005037
012737
012737

108:
002256

118:

002252

128:
002246

002256

138:

002256

000200
002240
002242
000040
000100

002256
002244
002250

5605 033074 012737 003740 002274

5606 033102
5607 033106
5608 033112
5609 033116
5610 033122
5611 033126
5612 033134

032737
001633

5614 033142
5615 033150
5616 033152
5617 033160
5618 033164

032737
001006
013737
006337
000743

5613 033136

5619 033166
5620 033170
5621 033174
5622

5623 033202
5624 033204

013702
074237
013702
074237
006337

006337

104471
012701

104503

000207

002244
002274
002250
002274
002250
020000

148:

158:

07-0CT-80 18:01
(MP
BNE
TSTB
BM]
TSt
BM]

DLEFT
BR

R2,R3
8s
PASFLG
158
DBEMSK +2
128
DBEMSK
4

DLEFT
BR
TSTB
BNE
INCB
BR
BIS
CLR
CLR
MOV
MOV

SBEMSK
$
PASFLG

MOV
XOR
MOV
XOR

MOV

#3740, CHECK

BIT
BEQ

004000

002244

002244
002250

002250

BIT
BNE
MOV
ASL
BR

#BIT11,SBEMSK
163
SBEMSK ,DBEMSK
DBEMSK
15$

002362

;BRANCH IF TESTING CHECK BITS
:CHECKING FOR LAST ERROR BIT
:BR IF DONE HERE

;TEST PASS FLAG
148
:NON ZERO “EANS WE'RE DONE
PASFLG
;NOT DONR
13
PB1T7,PASFLG
TSTDAT
TSTDAT+2
40, SBEMSK
#100, DBEMSK

002250

ASL
ASL

168:

;TESTED LAST BYTE ?
:BRIF NO

IF #SW11 SET.IN aSWwR THEN GOTQ 138
IF QVFLAG IS TRUE THEN GOTO 138
181
SBEMSK+2
;LAST SBE MASK
BM]
138
:BR IF DONE WITH THIS PASS

SBEMSK ,R2
R2, CHECK
DBEMSK ,R2
R2,CHECK
DBEMSK
#BIT13,DBEMSK
73

002244

PAGE 193-1 SEQUENCE 223

SBEMSK

ECCIDIS
#TESTADD ,R1
MOV
CLEAR
@(R1)+,a3(R1)

;DISABLE ECC ON 1 SELECTED (SR
TEST LOCATION
70 ERASE ANY DBE'S FROM TESTING

CLR1CSR

;CLEAR 1 SELECTED (SR

<RESTORE CSR

RETURN

SEQ 0230

MACRO M1113
(IMSDBO MSi1-L/M DIAGNOSTIC
MTPO1S
WRITE INHIBIT OF BYTE WITH DBE
5627 033206

07-0CT-80 18:01

MTPO16:

SUBTST

K 2
PAGE 195 SEQUENCE 224

<<MTP016

WRITE

SEQ 0231

INHIBIT OF WORD WITH DBE>>

CRARRRNRANERRANRNERNCCC
R RO R VAR ERARARARNANRRRNARRANNANORRQRANOCERNOOIQROQROOOROQOOCQEORORCETERTY

; *SUBTEST

MTPO16

WRITE INHIBIT OF WORD WITH DBE

;"t""t'..QQ""""""""'"'.'QQ"Q"."""t"""""Q""Qt""""""

)
5632 033206
5633 033212
5634 033216
5635 033224
5636 033230
5637 033236
5638 033242
5639 033250
5640 033256
5641 033262
5642 033264
5643 033270
5644 033274
5645 033302
5646 033304
5647 033312
5648 033314
5649 033322
5650 033326

5651 033332
95652 033336
5653 033342
5654 033346

5655 033352

%056 033356
5657 033362
5658 033366
5659 033372
5660 033374
5661 033400
5662 033402
5663 033410
5664 033414
5667 033430
5668 033434
5669 033440
5670 033444
5671 033446
Sb;g 033454
56
5674 033456

5675 033462
5676 033466
5677 033472
5678 033474
5679 033502

005037
005037
012737
005037
012737
005037
013737
013737
105737
001404
005137
005137
023737
001004
023737
001502
012737
004737
013701
074137
013701
074137
013701
074137
013701
0746137
012701

002234
002236
000001
002246
000001
002252
002234
002236
002256

013731

002240

104471

104455

062701
017100
023700
001404
017137
1046455

T12A:

002244

CLR

DATBUF

:BACKGROUND FOR DOUBLE ERRORS

MOV

#1, SBEMSK

*SINGLE ERROR MASK

CLR

DATBUF +2

SBEMSK+2

002250

T12B:

MOV

#1,DBEMSK

002240
002242

1%:

MOV

DATBUF ,TSTDAT

002240
002242
002244

002250

002246

002252

002240
061662
002244
002240
002246
002242
002250
002240
002252
002242
002362

002272

CLR

MOV

TSTB

BEQ
COM
COM
CMP
BNE

4$:

000000

177400
002362
000000
002240

000000

002032

:DOUBLE ERROR MASK
:DATA FOR TEST

OATBUF+2,TSTDAT+2:BOTH WORDS
PASFLG

:COMP DATA ON SECOND PASS ONLY

BEQ

:BR TO MAKE THEM NOT EQUAL

CALL
MOV
XOR
MOV
XOR

CHKGEN
SBEMSK ,R1
R1,TSTOAT
SBEMSK+2,R1
R1,TSTDAT+2

160 GENERATE CHECK BITS

MOV

SREMSK+2,DBEMSK+2;
UPPER WORD TOO

#TSTDAT,SOURCE

MOV
XOR

DBEMSK ,R1
R1,TSTDAT

XOR

R1,TSTDAT+2

MOV

ECCIDIS
MOV
CBICSR
MOV
CLRB
SUB
CLR1CSR
MOV
MOV
MOV
CMP

BEQ

MOV
PERR31

6% :

000002
000000
002242

:BR IF FIRST PASS
1COMP FIRST WORD
*NOW SECOND WORD
:CHECK FOR IDENTICAL MASKS
‘BR IF DIFFERENT

CMP

DBEMSK+2

12 WORDS WORTH

2%
TSTDAT
TSTDAT#2
SBEMSK,DBEMSK
3

MOV

002242
002257
00002

000000

;DOUBLE BIT ERROR WRITE CANCEL WITH
:WORD WRITE.
CHECKS WRITE INWIBIT WITH WORD WRITES 10
:WORD WITH DOUBLE ERROR.

DATA FOR

HKGEN

DBEMSK+2,R1

#TESTADD ,R1

TSTDAT,3(R1)+
TSTDAT+2,8(R1)
UPPFLG
#2,R1
#177400,3(R1)
#TESTADD,
R1
a(R1) RO
TSTOAT,RO

(K1), ADDRESS

ADD
MOV
g?p

22 .8
a(R1).RO
;§IDA102.RO

MOV
PERR31

a(R1), ADDRESS

:NEED ADDR OF

SFIRST

TEST ADRRESS

*DISABLE ECC ON 1 SELECTED CSR
:WRITE FIRST 16 BITS
‘WRITE GENERATED CHECKBITS IN 1 SELECTED (SR
:WwRITE SECOND 16 BITS ¢ CHECKBITS
‘SET FOR 2 LOOPS
*POINT TO LOW WORD
TCLEAR 1 SELECTED CSR
:TRY WRITING LOCATION
:CHECK FOR ORIGINAL DATA

*SHOULD RE UNCHANGED

:THIS SHOULD BE UNCHANGED ALSO

CIMSDBO MS711-L/M DIAGNOSTIC

MTPO16

WRITE

MACRO M1113

INHIBIT OF WORD WITH DSE

5682 033504
5683 033510
5634 033512
5685 033516
5686 033520
5687 033524
5688 033526
5689 033532

105737
001003
105237
000740
105737
100454
005737
100405

5691 033544
5692 033546
5693 033556
5694 033564
5695 033570
5696 033572
5697 033602
5698 033606
5699 033612
5700 033614
5701 033620
5702 033624
5703 033632
5704 033636
5705 033642
5706 033650
5707 033656
5708 033664
5709 033670
5710 033674
5711 033700
5712 033704
5713 033710
033716
033720
0337264
033732
033734
033742
033746

000636

1 033750
722 033752
723 033756
724 033760
725 033764
726 033766

002257
002257

8$:

002256
002252

9%:

005737
100406

002246

000137
105737
001004
105237
000137
052737
005037
005037
012737
012737
012737
013702
074237
013702
074237
006337
032737
001623
006337
032737
001006
013737
006337
000743

033230
002256

10447
012701
005031
005071
104503
000207

7%:

002256
033206
000200
002240
002242
000040
000100
003740
002244
002274
002250
002274
002250
020000
002244
004000

002244
002250
002362
000000

07-0CT-B0 18:01
1518

BNE
INCB
B8R

1518
BMI
IST
BM]

DLEFT
BR

002256

002244
002250
002274

118:

12%:

DLEFT
JMP
1518

BNE
INCB
JMP
BIS
CLR
CLR
MOv
Mov
MOV
MOV

XOR

MOV
XOR
ASL

129
DBEMSK +2

;LAST BIT ?
;MINUS = BIT 31

9¢

?2EHSK

;BR IF LAST BIT

10$

SBEMSK
7128
PASFLG
1%

$¢3:LG

;FIRST PASS
:BR

ECCIDIS

SECOND

¥BIT7,PASFLG
TSTDAT
TSTDAT+2
#40, SBEMSK

#1006, DBEMSK
#3740, CHECK
SBEMSK ,R2

R2,CHECK

DBEMSK,R2

8(R1)e

CLR
8(R1)
CLR
SR
CLRI(

RE TURN

?
I1F

:INDICATE SECOND PASS COMING

#TESTADD R

ASL

13%:

KEEP GOING

PASFLG

MOV

BIT

BNE
MOV

002250

;FIRST,

ASL

0022644

g:PFLG

R2,CHECK
DBEMSK
#B1T13,DBEMSK
4
SBEMSK
#BIT11,SBEMSK
138
SBEMSK ,DBEMSK
DBEMSK
129

BIT
BEQ

002250

;WHICH LOOP ?
:SECOND, BR QUT

UPPFLG
8%

IF #SW11 SET.IN @SWR THEN GOTO 10$
IF QVFLAG IS TRUE THEN GOTO 10%
;LAST BIT IN THIS MASK ?
1ST
SBEMSK+2

BM]

10$:

L 2
PAGE 197 SEQUENCE 225

;DISABLE ECC ON 1 SELECTED (SR
;RESTORE

TEST ADDRESS

;CLEAR ANY DBE'S FROM TEST

;CLEAR 1 SELECTED Mk11 (SR

SEQ 0232

CIMSDBO MSi1-L/M DIAGNOSTIC

MTPO16

WRITE

MACRO M1113

INHIBIT OF WORD WITH DBE

07-0CT-80 18:01

MTPO17:

5729 033770

SUBTST

M 2
PAGE 199 SEQUENCE 226

SEQ 0233

HOLDING 1'S & 0'S TEST>

<CKMTPO17

:'t"""""l""""""""Q"'.'"Q'"Q."'Ql"""'i""'."""'.""""'

s *SUBTEST

MTPO17

HOLDING 1°'S & 0°'S TEST

:"Qi.""t"t""""""""""""."""l""'t'"'0"'""""""Q"""'

e (1)
L

e
.+ (2)

0 (3)

033770
033774
033776
034002
034006
034010
034012
034014
034016
034020

012701
010104
012705
012700
010003
000303
110021
116321
020105

034022
034024

014102
020002

034026
034030

001401
104446

034032
034034
034036
034040
034042

020104

034044

;NOTE:
MOV
MoV
[[)']
MOV

060000
160000

000377

MOV

1¢:

SWAB

Move
Move

cMP
8LO

103774

2s:

MOV

THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY
OF HOLDING 1'S AND 0'S BY WRITING A BACKGROUND
OF 000377 AND READING IT
MEMORY 1S WRITTEN USING A BYTE AT A TIME

STEPS 1 & 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN
THIS TESY WRITES BYTES & READS WORDS

#FIRST,RI
R1,R4
#LAST+2,RS

#377 R0

RO,RS

R3
RO, (R1)+

1
"WRITE THE MEMORY WITH THE BYTE STORED IN BAKPAT

*BRANCH IF

R1.RS

-(R1).R2

RO,R?

BEQ
PERR2?

113

000303
000300
001763

CMP
BHI
SWAB
SWAB
BEQ

R1,R4
2%

000207

RETURN

3$:

:WRITE A BYTE

R3(R1)+

(mP

101372

:GET THE PATTERN INTO RO

ag
R

*COMPARE TEST LOC TO TOP + 2
LOWER

STEST THE MEMORY 10 SEE

“THE WORD STORED !N BAKPAT

IT CONTAINS

-KEEP ON TESTING THE MEMORY UNTIL
"R1 EQUALS THE LOWEST ADDRESS
*CHANGE THE DATA PATTERN

:1F

THE DATA PATTERN DOES NOT HAVE LOW

: BYTE =0 THEN FALL THRU

CIMSDBO MS71-L/M DIAGNOSTIC
MTPO17 HOLDING 1'S & 0'S TEST
5762 034046

MACRO M1113

07-0CT-80 18:01

N 2
PAGE 201 SEQUENCE 227

mMTP020: SUBTST

<<MTP020

s*SUBTEST

MTP020

SEQ 0234

MARCHING 1°'S & 0'S IN CHECK BITS TEST>>

'""""ittfit""t"tt"""""'i""""""i.""tt"Q"""Q"""Q'Q"""

MARCHING 1°'S & 0°'S IN CHECK BITS TEST

"".t""'.'tt't'i""t"t""""t"".'""'Q'Q't"'"'i't't""""""""

5763
5764
5765
5766

5767 034046
5768 034050
5769 034052
5770 034054
5771 034056
5772 034060
5773 034062
5774 034064
5775 034066
5776 034070
5777 034072
5778 034074
5779
5780
5781 034076
5782 034100
5783 034102
5784 034104
5785 034106
5786 034110
5787 034112
5788 034114
5789 034116
5790 034120
%791 034122
5792 034124
5793
5794
5795 034126
5796 034130
5797 034132
5798 034134
5799 034136
5800 034140
5801 034142
5802 034144
5803 034146
5804 034150
5805 034152
5806 034154

;*THIS TEST IS CONCERNED ONLY WITH THE

INTEGRITY

:*0F THE MOS RAMS THAT STORE THE CHECKBITS.
160201
160204

MTPA20:

005711
001002
005714
001401
104453
010314
005011
020100
101365
000207

;077 -=> 100 DOWN
R2,R1
Sus
,R&
R2
SuB

TST
BNE
1ST

BEOQ
PERR27
MOV
CLR
CMP
BMI

Rc TURN

005711
001002
020314
001401
104452
005014
00501
060201
060204
020405
001365
000207

MTPB20:

005711
001002
005714
001401
104453
010314
005011
060204
060201
020405
001365
000207

MTPC20:

3%:
3 ¥

R3, (R&)
(R1)
R1,R0
MTPA20

100 ==> 077 uP
(R1)
1S7

BNE
CMP
BEQ

3%
R3, (R
4%

CLR
CLR

(R&L)
(RY1)

PERRZ6

ADD
ADD
CMP

BNE

RE TURN

5%:
69%:

(R\)
1%
(RG)

R2.R1
R2,R&
R4 RS

MTPB20

;077 -=> 100 upP

V177640

V177642
V177644
(V177646

V177650

(V177652
sV177654

V177660

:CLEAR 1ST WORD

V177656
V177662
(V177664

V177666
V177640
V177642
V177644

V177646
V177650

:V177652

:V177654
V177656

:V177660
N177662
V177664
V177666
V177640

18))
BEQ
PERRZ7
MOV

(R&G)
6%

V177644
(V177646
V177650

ADD
ADD
(mpP

RZ R4
R2,R1\
R4 RS

BNE

(LR

BNE

RE TURN

5¢

R3, (RG)

;eND WORD OK?

;YES - SKIP

TST

;1ST WORD OK?
:NO - SKIP

V177642

V177652

(R1)

V177654

MTPC20

V177664
N177666

V177656
V177660
V177662

:6000=000000, ,000500,,077
:2ND WORD <= 100000
;ARE WE

DONE®

;BRANCH [F WOT

;1ST WORD 0K?
;N0 = SKIP

;2ND WORD 0OK?

;YES = SKIP
;6000=000000,,100000,,100
sCLEAR 2ND WORD
;CLEAR 1ST WORD
;TOP + 2 YET?

¢NO - LOOP

;1ST WORD OK?

:NO - SKIP
sgg UORD OK’

;600D+= 000000..000000..077
;WRITE

1ST WORD

:WRITE 2ND WORD
;TOP + 2 YET?

JNO - LOOP

CIMSDBO MSi1-L/M

MTP020

MARCHING

5809

5810 034156
5811 034160
5812 034162
5813 034164
5814 034166
5815 034170
5816 034172
5817 034174
5818 034176
5819 034200
5820 034202
5821 034204
5822
5823
5824 034206
5825 034210
5826 034212
5827 034214
5828 034216
5829 034220
5830 034222
5831 034224
5832 034226
5833 034230

(V.Y
)

MACRO M1113 07-0CT-80 18:01
BITS TEST
CHECK
IN
MTPD20:

;100 --> 077 DOWN

suB
sus
CMP
BNE

RZ,R1
RZ,R4

BEQ
PERR26
CLR
CLR
CMP

TST

7%:
8%:

BHI
RETURN

000207
005711
001002
005714
001401
104453
060201
060204
020405
001367
000207

MTPE20:

9%:

108:

:077 up

TST

BNE

T37
BEQ

PERRZ7

ADD
ADV

cmMp

BNE
RE TURN

RY, (RG)
4]
(R1)

(R&4)

(R1)
R1,RO
MTPD20

(R1)
9%

(R4)

108

R2,R1
R2,R&
R4 ,RS
MTPEZ0

PAGE 203 SEQUENCE 278

SEQ 0235

LV177640

(V177642
(V177644
V177646

:V177650
:V177652
(V177656
V177656
V177660
:V177662
V177664

:¢ND WORD OK?

;NO - SKIP

;1ST WORD 0K?

;YES - SKIP
;6000=000000,,100000,,100
;WRITE 1ST WORD
;WRITE 2ND WORD

V177666
;V177640
V177642
(V177644
(V177646
sV177650
V177652
:V177654

:V177656
V177660
V177662

;1ST WORD 0K?

:NO - SKIP

;2ND WORD 0OK?
;YES - SKIP

;6000=000000,,000000,,077
;TOP ¢

YET?

;NO - LOOP

(IMSDBO MSi1-L/M DIAGNOST
MACRO M1113
07-0CT-80 18:01
STl ¢
MTP020
MARCHING 1'S § 0°'S IN CHECK BITS TEST

5836 034232

MTPA21:

SUBTST

PAGE 205 § EQUENCE 229

<<MTPA21

MARCHING 1°'S & 0°'S PATTERN TEST>>

:'ttttt"l't""""""""""Q""Q"."""l""""""'iQ""""""'Q"'

S «SUBTEST

MTPA21

MARCHING 1°'S € 0'S PATTERN TEST

:Q'Q'i"""'Q"""""""""'I'Q"'ti'.""'QQ"'Q'Qtt"""""""'.tt""

5873 034322
5874 034324
5875
5876 034326
5877 034330
5878 034332
5879 034334
5880 034336
5881
5882 034340
5883 034344
5884 034346
5885 034350

18:

14100

[olele]

5837
5838 034232
5839 034234
5840 034236
5841 034240
5842
5843 034242
5844 034244
5845 034246
5846 034250
5847 034252
5848
5849 034254
5850 034256
5851 034260
5852
5853 034262
5854 034262
5855 034264
5856 034266
5857 034270
5858
5859 034272
5860 034274
5861 034276
5862 034300
5863 034302
5864
5865 034304
5866 034310
5867 034312
5868 034314
5869
5870 034316
5871 034316
5872 034320

20200
01401
104443

2%:

020401
001365
000207

106444

SWAB

- (R1),RO; v1776 0

R2.RO’
28

77642
;v177644

V177646

(R1)

:V177650

CMP
BEQ

RI,R0
38

V177654
V177656

CMP
BNE
RETURN

RG,R1
1%

MOV

PERR20

(R1),RO :V177652

V177660

V177662
V177664
V177666

;DONE?
‘NO - LOOP
SYES - RETURN

MTPB21: ;READ.BVTESUAP HODIFY,READ,UP
18
MOV
(R1),RO
V177640

011100

CMP

020300
001401
104444

BEQ

PERR20

000311
011100
020200
001401

2%:

SWAB
MOV

CMP

BEQ

104443

PERR17

000002

3s:

MTPC21:
18

104443

2%:

R2,RO

:v17765¢4

V177656

V177660

V177662

RS.R1

:V177666

:DONE?

177672

SYES - RETURN

V177670

‘NO - LOOP

;READ,BYTESWAP-MODIFY,READ,UP
MOV
(R1),R0 ;V177640

CMP
BEQ

R2,RO
28

SWAB

(R1)

CMP

R3.
R0

MOV

PERR20

000002

V177644

V177646

(R1)
V177650
(R1),RO V177652

BNE

BEQ

1044446

#2.R1

CMP

PERR17

000311
011100
020300
001401

R3, Ré 177642

ADD

RE TURN

011100
020200
001401

062701
020501
001363
000207

cnp
BEQ

PERR17

000311
011100
020300
001401

062701
020501
001363
000207

:READ,BYTESWAP=MODIFY,READ,DOWN

MOV

ADD
(NP

BNE
RE TURN

(R1)

#2.R1
RS.RY
1%

:V177642
V177644

V177646

:V177650

,RO V177652

:v177654

V177656

V177660

V177662
V177666

V177670
177672

:DONE?

*NO - LOOP
*YES - RETURN

SEQ 0236

CZMSDBO MSi1-L/M DIAGNOSTI C
MACRO M1113
MTPA21
MARCHING 1'S & G'S PATTERN TEST
5388 034352

5889 034352

014100

5894 034362
5895 034364

0003°1
011100

5897 034370
gggg 034372

001401
104443

5890 034354
5891 034356
ggg§ 034360

5896 034366

5900 034374
§901 034376
§902 034400

020300
001401
104444

MTPD21:

PAGE 207 SEQUENCE 230

;READ,BYTESWAP=-MODIFY READ,DOWN

1%:

MOV

cnP
BEQ
PERR20

R3,R0°
2%

2%:

SWAB
MOV

(R1)
:V177650
(R1) RO V177652

020200
020401
001365
000207

07-0CT-80 18:01

V177642
V177644
V177646

CMP

R2,R0

V177654

(MP
BNE
RE TURN

R4 R
1%

V177662
V177664
V177666

BEQ
PERR17
3% -

<(RV),RO; V177640

V177656
V177660
:DONE?
NN = LOOP
“YES - RETURN

SEQ 0237

MACRO M1113
CIMSDBO MST1=-L/M DIAGNOST] C
MIFA2Y
MARCHING 1°'S & 0'S PATTERN TEST
5906 034402

07-0CT-80 18:01

MTP022:

SUBTST

PAGE 209 SEQUENCE 231

<<MTP02?2

SEQ 0238

REFRESH & SHIFTING DIAGONAL TEST»

;Qlt'tt""t'tt't"t"t""t"""t't"t.t"t"Q"tt"""""t"""Q"""Qt't

;*SUBTEST

MTP0O22

REFRESH & SHIFTING DIAGONAL TEST

:Qt'tt'ttt't't"t'Q""""t"""QQ"'Q'tt'QQ""""Q'Q""QQ"Q"t".t"""'

5907

(1)

5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
23%?

(3
:

5908

()

034402
034410
034420
034424
034430
034432
034436

000010

034442

5922
5923
5924
5925
5926

034446
034450
034456
034462
5927 034470

104423

5928 034504
5929 034516
5930 034524
5931 034526
5932 034532
5933 034534
5934 034536

WE WRITE A DIAGONAL PATTERN IN MEMORY (WITH CACHME ON).

IF A REFRESH TEST WE DISTURB ALL ROWS FOR > 2 MS (WITH CACHE ON).

WE READ & CHMECK FOR CORRECTNESS THE DIAGONAL PATTERN
(WITH CACHE OFF),
KDIAG=8.
:HOW OFTEN A DIAGONAL STRIPE OCCURS (MUST BE A POWER OFf 2)
FOR EVEN := #1 10 #2
;FOR DATA & COMPLEMENT DATA
IF EVEN EQ M
LET R2 := ZEROS
LET RY := ONES
ELSE
LET R2 := ONES
LET RY := ZEROS
END ;OF [F EVEN
FOR STRIPES := #0 TO #KDIAG-1
;FOR THE NUMBER OF STRIPES
JWRITE LOOP
CACHON
:TURN CACHE ON
LET COUNT :z= STRIPES
LET RY := #FIRST
WHILE R1 LOS #LAST
IF COUNT LT #0 THEN LET COUNT := #xDIAG-1

IF #374 OFF.IN RY THEN LET COUNT
IF COUNT NE #0
LET (R1) := R?
LET 2(R1) := R?
ELSE
LET (R1) := RS
LET 2(R1) := R3

Y935 034542

:= (OUNT - M

5936 034542
5937 034546
5938 034552

END ;OF

IF COUNT
LET COUNT := COUNT - M
LEYT RY := R + &4
END ;OF WHILE

5941 034554
5942
5943 034566
5944 034574
5945 034600

IF DIAGFLAG IS FALSE THEN SCALL REFRESH
;READ LOOP
LET COUNT := STRIPES
LET R1 := #F[RST
CACHOFS
:TURN CACHE OFF

;END OF WRITE LOOP

ggzg

104424

(IMSDBO MSi1-L/M DIAGNOSTIC

MIP0O22

5947
5948
5949
§950
§951
§952
5953
5954
5955
5956
§957
5958
5959
5960
§961
5962
5963
5964
5965
5966
5967
5968
5969
5970
8971

MACRO M1113

REFRESH & SHIFTING DIAGONAL

034602
034610
034624
034636
034644
034646
034652
034654
034654
034660
034664
034666
034666
034670
034672
034676
034700
034700
024704
034710
034712
034712
034712
034716

TEST

WHILE RY LOS #LAST
JF COUNT LT #0 THEN LET COUNT := #KDIAG-1
1F #3746 OFF.IN R1 THEN LET COUNT := COUNT - #1
IF COUNT NE #0
LET RO := (R1)
IF R2 NE RO
PERR1?7
END :OF IF R?
LEYT RO := 2(RY)
IF R2 NE RO
PERR17
END ;0OfF IF R2
El SE
LET RO := (R1)
IF R3 NE RO
PERR20
END ;OF IF R3
LET RO := 2(R1)
IF R3 NE RO
PERRZ20
END :0f If R3
END ;0f [F COUNT

104443

104444

LET COUNT := COUNT - 1
LET R1 := R1 + #4

034722

5972
5973
5974 034724
5975 034740
23;? 034754

F
3
PAGE 210 SEQUENCE 232

07-0CT-80 18:01

END

;0F

WHILE

JEND OF READ LOOP

END ;OfF FOR STRIPES
END ;OF FOR EVEN
RE TURN

000207

5978 034756

REFRESH:SUBTST

<<SUBR

REFRESH DELAY>>

;tttt'.Q.'tt""i'."""""""'tt'tt't'tt'lttitt"ttt."t"lt"tt"'tt'tt'fit'

;*SUBTEST

SUBR

REFRESH DELAY

".lt'tl'.Q'.""""""""""'t't."t"'t.'tt."t'.'t".'.i'Q't".t't‘t".t"

5979
5980
5981
5982
5983
5984
5985
5986
5987

034756
034762
(034766
035000
035004
035012
035010
035022

004737

035020

004737

035026

$988 035024
5989 035026

000207
012704

000640

5991
5992
5993
5994
5995
5996
5997

005140
005120
005110
005110
077405
162700
000207

$990 035032

035036
035040
035042
035044
035046
035050
035054

062700

000002

:DISTURB EACH ROW FOR > 3.2 MS
FOR RO := #FIRST TO WFIRST+374 BY #4
CALL REFSUB
END ;OfF FOR RO
LET RO := #FIRSTBITIS
WHILE RO LOS #LAST*BIT144+374
CALL REFSUB
LET RO := RO ¢ #4
END :OF WHILE

RE TURN
REFSUB: MOV
1%

ADD

CoM
COM
com
Com
0B
SUB
RE TURN

#640,R4

22RO

- (£0)
(RQ)+
(RO)
(RO)
RG, 1S
#2.R0

;TIME FOR A > 3.2 MS LOOP

SEQ 0239

(ZMSDBO MSi1-L/M DIAGNOSTIC

SUBR

REFRESH DELAY

MACRO M1113

MTPAZS:

6001 035056

6 .3
PAGE 213 SEQUENCE 233

07-0CT-80 18:01

CCMTPA24

SUBTST

CRAAAN AN AN

LeSUBTEST

AN RN RO

FAST GALLOPING PATTERN TEST>>

A AR AN

MTPA24

SEQ 0240

CCLR RN R RN RARRR AR CNARCPANCNARCACOOINNNONORROOOCCEOOETRTTSE

FAST GALLOPING PATTERN TEST

;t"'tt"i"t"i""""""""Qt"Q""'Q'Q't't't"""t'."""""t"""t"

s THE TOT AL TEST (INCLUDING SETUP) IS AS FOLLOWS
;o)
THIS TEST WRITES THE MEMORY WITH A BACK GROUND PATTERN

6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024

6027 035056
6028 035060
6029 035062

6U30 035064
6031
6032 035066
6033 035070
6034 035072
6035 035074
6036
6037 035076
6038 035102
6039 035104
604C
6041 035106
6042 035112

STORED AT LOCATION BAKPAT

s (2)

TEST BEGINS AT LOWEST LOCATION BEING TESTED
(LETS NAME IT °'A')

;e (3)

LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS 'B'.

;2 (5)
;*(6)
()

READS

SWAPS BYTES FOR LOCATION 'A‘,

e (4)

'A', READS

'B' = 'B'+400

'B'

(ADDS 64 DOUBLE WORDS TO °'B’)

REPEATS STEPS 5 AND 6 UNTIL

;+(8)

°'B'

IS GREATER THAN THE

END OF THE BANK
A+2
STEPS 3-8 UNTILL 'A' REACHES THE END OF
REPEATS
AFTER EXECUTING THE TEST
DATA IS COMPLEMENTED

;2 (9)
:+(10)

AND STEPS 1-9 ARE REPEATED

JREGISTE RS ARE USED AS FOLLOWS

:RO
;R
:R2
:R3
;R&
;RS

;NOTE

011100
020004
001601

1%:

011200
020003
001401

2%:

104447

104450

062702
020205

000400

062701
000737

000002
035116

101764

1%:

TEST
lA!
IB'

BAKPAT
SWAPAT
LAST

TH E PATTERN STARTS AT MIPB24. .. .. R

:UIPAR'S

MOV

(MP
BEQ
PERR?23
MOV

DATA

(R1),R0
RO.R4
2%

V177640
V177642
(V177644

V1770646

:REPORT ERROR

(R2),R0

V177650

;READ

CMP
8EQ
PERR24

RO.RS

ADD
(MP

#400,R2
R2 RS
1%

ADD

"R
SIMTPBR24

BLOS
JMP

V177652
V177654

:READ 'A’
;CHECK ‘A’
;BR IF OK

‘B’

“CHECK 'B°

;BR IF 0K

V177656

JREPORT ERROR

V177660
V177664
V177666

:BUMP 'B'
;AT END YET?
;BR IF NO

V177670
N177674

LBUMP ‘A’
;6010 V177260

THE BANK

CIMSDBO MSi1=L/M DIAGNOSTIC
MACRO M1113
MTPA24 FAST GALLOPING PATTERN TEST
6045 035116

07-0CT-80 18:01

PAGE 215 SEQUENCE 234

MTPB24: SUBTST

<<MTPBZ24

;*SUBTEST

MTPB24

SEQ 0241

FAST GALLOP PART B>

."tttt"tt"tttt't"ttt't"""'Qt"t.t"tt't't"Q'Q"'Q"ltt""t"t"""'."'

FAST GALLOP PART B

.'t'tt'ttttttt'tt""tt""t'tt""QQ"Q"'tttt't"tt'!t't'tt"t""t""'i"""

6046

6047 035116
6048 035120
6049 035122
6050 035124

2825 035126

010411
020105
001001
000207

1700137

:SDPAR'S

035132

6053 035132

1%:

MOV
CMP
BNE
RE TURN

JMP

R4, (R1)
R1,RS
1%

2V172260
:V172262
:V172264
(V172266

SIMMTP(24

MTPC24: SUBTST

<<MTP(24

;*SUBTEST

MTIPC24

:V172270

:WRITE ‘A’
;DONE?
;BR If NO
;YES = RETURN

;6070 V172360

FAST GALLOP PART (>>

;'ttt"ttttttttttt'ttt"'t"'t"tttt't'tttttttt'tQQQt""Qtttt"t't""'.""t.'

FAST GALLOP PART (

.-'t'tt"..Q.ttt"tt't't"""""QQ'Q'QQ'Q'ttt"tt'tQtt'Qt't"t""."'..".....

6054

:KDPAR'S

6055 035132
6056 035134

010102
011100

MOV
MOV

R1,R2
(R1),RC

;V172360
sV172362

;RESET 'B' <=== ‘A’
READ ‘A’

6058 035140
6059 035142

001401
104447

BEO
PERR23

(V172366
:v172370

;BR IF 0K
:REPORT ERROR

6057 035136
6060 035144

020004

000137

(MpP

035076

1%:

-MP

RO,R&

SIMTPA24L+20

;V172364

JV172372

CHECK ‘A’

;60710 V177660

(IMSDBO MSi1-L/M DJAGNOSTIC

MTPC24

FAS‘ GALLOP PART

0063 035150

(

MACRO M1113

Q7-0(T-80

MTP0ZS:

18:01

SUBTST

.3
1
PAGE 217 SEQUENCE 235
INTERRUPT ENABLE

<<MTPY2S

SEQ 0242

TEST>>

;'tlt'Q"t"Q"Q'"'"'."""Q"""".""""..".""'.'.'.Q."."""'Q.'.'

S *SUBTEST

MTP02S

INTERRUFTM ENABLE

TEST

;""""'Q"""0"""""""."".'.Q"'Q""'Q""""""Q"."""."Q"'

6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081

0
0
0
0
0
0
0
0
0
0
03

6082
6083
6084
6085
6086
6087
6088
6089
6090 035320
6091
6092 035324
6L93 035330
6094 035336
035342
035350
035354
035360
035366
035372
035400
035404
035406
035412

005037
005037

012737
004737
012737
012701
012737
004737

002240
002262
002240
041662
000003
002362
035244
035466

00577
00577

000000
000002

104473

104507

00577
005771
000404

000000
000002

005237
004737
012737
004737
005037
005237

002240
035414
000400
035414
002240
002242

002272

MOV

002074

MOV
MOv
MOV

005037
012737
004737
012737
004737
005037
012737

004737
012737
004737
104503

035414

000400
035414

002242
000003
035436
001400
035436
002240
000003
035436
001400
035436

002074

004737

035466

004737

035510

004737
000207

035550

104507

CALL

ECCHINIT

1STDAY

TSTDATS?

JGENERATE (MECKBITS ON O0,.0

#TSTDAT,SOURCE

(HKGEN
#3 ,NOPAR

#TESTADD
R
#18 PARTHERE
MTPAZS

;FIRST

;SETUP PARITY ACTION

TEST

ADDRESS

;SETUP TRAP DESTINATION

(WRITE DATA & CHECKBITS
SINITIALIZE 1 SELECTED Mk11 (SR
;ACCESS LOCATIONS FOR DBE TRAPS

8(R1)
82(R1)
JNONE - GOOD - ACCESS FOR SBE TRAPS
ENA1SBE
;DISABLE TRAPS ON SBE'S FROM 1
1ST
a(R1)
ST

197

TsT1

1%:

005037
000207
104471

CALL

002264

104426

004737
012737
004737

(LR
(LR

2%:
002240

BR
READCSR

82(R1)

FATAL

mov

MTPD2S
2600, TSTDAT

INC
CALL

CALL
(LR
INC
CALL

002242

MOV

002240
002240

MOV
CALL
MOV

002242

MOv

002242

MoV

CALL

(LR

CALL
(LR

TSTDAT

\(TION ON SBE'S

#400,TSTDAT?
MTPD3S
TSTDAT+2
#3,TSTDAT
MTPE2S
#1400, TSTOAT

JCHECK FOR CORRECT ACTION ON DBE'S
:IN ALL & BYTES

n1PE2é
TSTOAT

CALL

nIPERS

#1400,TSTDATS?

RE TURN

CALL

MTPA2S

CALL

M1FB2S

CALL

MTPC2S

RE TURN

JIN ALL & BYTES

MTPD25

CALL

ENATSBE

;CHECK FOR CORRErT

TSTDAT
TSTDAT2

#3,1STDATS?2
MTPE2S

ECCIDIS

;NONE - GOOD - SKIP

MTPD3S

CLRICSR
NOPAR
CLR

MTPD?2S:

SELECTED (SR

JCLEAR 1 SELECTED M1l (SR
sINDICATE PARITY ACTION

SWRITE DATA & (HECKBITS

sOISABLE ECC ON 1 SELECTED (SR
CHECK FOR NO TRAPS

;DISABLE TRAPS ON SBE'S FROM 1
JCHECK FOR EXPECTED TRAP

SELECTED (SR

CIMSDBO MSi1-L/M DIAGNOSTIC

INTERRUPT ENABLE TEST

N =O V00 ~NO

MIP02S

035436
035442
035444

004737

035466

004737

035510

035450
035452
035456
035460
035464

104473
004737

035466
035470
035476
035500
035506

10447

035510
035516
035522
035526
035530
035532
035536
035540
035546

035550
035556
035562
035564
035572
035576
035600
035604
035606
035614

104471

104507

004737
000207

MACRO M1113

MTPERS:

035550
035550

002242

000002

012737
0057
00577
000207

035530

002264

000405
012737

000000
000002

MTPC2S

(B1CSR

URN

;CHECK FOR EXPECTED TRAP

;DISABLE TRAPS ON SBE'S FROM 1 SELtCTED (SR

;CHECK FOR EXPECTED TRAP

035566
000000

TST
IS8T
RETURN
READCSR

MOV

ERROR

002032

002264

;DISABLE ECC ON 1 SELECTED (SR
;WRITE FIRST 16 BITS

TSTOAT+2 ,@2(R1)

;WRITE GENERATED CHECKBITS IN 1 SELECTED (SR
;WRITE 2ND 16 BITS & CHECKBITS

;CHECK FOR NO TRAP OCCURING CONDITION

MTPBZS: Mov

SET

011137
000207

CALL

RETURN

0057

104025

MTPC2S

:g¥ .

1%:

002032

035614
000002

104426

SINITIALIZE 1 SELECTED MK11 (SR

CALL

MTPAZS: ECCIDIS
MOV
TSTDAT ,a(R1)

000207

012737
00577

ECCVUINIT

JWRITE TSTDAT & TSTDAT+2 & CHECKBITS

013771
000207

104024

;WRITE DATA § CHECKBITS
;DISABLE ECC ON 1 SELECTED (SR
;CHECK FOR NO TRAPS

RE TURN

000000

104426

5EQ 0243

CALL
MTPAZS
ECCIDIS
CALL
MTPB2S

ENA1SBE

002240

011137

J
3
PAGE 219 SEQUENCE 236

.ENABLE DBE TRAPS

0137

104475

07-0CT-80 18:01

MTP(2S:

1%:

Vi ¥

;SETUP TRAP DESTINATION
;ACCESS LOCATIONS

(R1) ,ADDRESS

;SAVE

RETURN

VIRTUAL

ADDRi SS

HEADER

#13 ,PARTHERE
a(R1)

MoV
#3S ,PARTHERE
TST
82(R1)
READCSR
MOV
(R1) ,ADDRESS

SET

:NO TRAP = GOOD = RETURN

+24

;TRAP SHOULD OCCURE

MOV
TST

ERROR

38:

#1$ PARTHERE
8(R1)
82(R1)

+25

HEADER

TEST

;SETUP TRAP DESTINATION
;ACCESS 1ST LOCATION

:NO TRAP = BAD NEWS - SK]P
;SETUP TRAP DESTINATION
:ACCESS 2ND LOCATION
:NO TRAP = BAD NEWS
:SAVE VIRTUAL ADDRESS

(IMsSDBO MSi1-L/M D]AGNOSTIC
MTP02S
INTERRUPT ENABLE TEST

6157 035616

MACRO M1113

07-0CT-80 18:01

MTPA26: SUBTST

<<KMTPA26

eSUBTEST

MTPA26

PAGE 221 SEQUENCE 237

R R

SEQ 0244

RANDOM DATA (WRITE)>>

s A s

SR R A R R R R R AR

RANDOM DATA (WRITE)

AR 00 ]])

s s AR R AR RN AR AR A AR AR AR AR AR AR AL
e e y
R s

6158 035616
6159 035622
6160 035624
6161 035626
6162 035630
6163
6164 035632

000137
010221
010321
077005
000207

0356466

1$:

MTPB26:

JMP

SMMTP(26

V177640

GOTO V172360

MOV
MOV
S08
RETURN

R2,(R1)e
R, (R1)e
RO,1$

V177644
(V177646
sV177650
(V177652

SUBTST

<<MTPB26

RANDOM DATA (READ)>>

MTPB26

;*SUBTEST

e s e s

RANDOM DATA (READ)

AR SR A AR AL )

R R R R AR AR AR

:'."'."""""i"""""""t'tQ""'."""""Q"Q"QQ"""'."".'..'...

.DSABL

6165

6166

6167 035632
6168 035636
6169 035640
6170 035642
6171 035644
6172 035646
6173 035650
6174 035652
6175 035654
6176 035656
6177 035662
6178 035664
6179
6180

000137
020221
001401

035666

104451

LS8

CMpP
BEQ
PERR2S

R2,(R1)¢
2$

o, [
BEQ
PERR2S

RY,(R1)¢
b3

JMP

MMTP(26

COM
2%:
RANODD: 0

005127
000000
020321
001401

005167
077015
000207

1%:

AMA

LENABL

177764

1s:

MTPC26:

GOTO v172360

(PC)+

V177652
V177654

FOR ERROR REPORTING

V177656
:V177660
:V177662

(V177664
:V177670

COMm
so8

RANODD
RO,1$S

.DSABL
.ENABL

LSB
AMA

SUBTST

<<RANDOM NUMBER SUBPROGRAM>>

RETURN

6181
6182 035666

:V177640

V177644
V177646
:V177650

V177672

:l"tt".'.."""'""'""""""'t'."'!.!"""..'"'l".".'Q".O'."..'..

RANDOM NUMBER SUBPROGRAM

. *SUBTEST

;'.Q".Q'.".."""."'"""'."'Q.!"t'.'.Q".'l'"."Q'."'."""".".'."

;CALLER MUST SETUP

6183
6184
6185
6186
6187

6188 035666
6189 035672
6190 035674
6191 035676
6192 035700
6193 035704
6194
6195 035706

073427
060305
005506
060204

062705
000240

.
:
;
.

ASHC
ADD
ADC
ADD
ADD

000007

001057

NOP

ro&

NNNNNY

[V AV LV [V IV ]
WAAAVA VAW

S82%R

OO0O0OO0O

b
ed

OOVOO

D) ol

#7.R4
RY,RS
R4
R2 R4
#1057.RS

SEEDLO,R3
SELDHI,R2
RY,RS
R2,R&

:v172360
172364
V172366
V1723720
2V172372

(V172376

MIPD26: SUBTST

S*SUBTEST

RANDOM NUMBER SUBSUBPROGRAM

GOTO V172260

'"."."'...""""'""""Q""".'l"Q.'.'...""""t.lt'."""".'..""

I I
oo

MoV
mov
AoV
nov

005504

062704
010503
010402
000137

047401
035622

AD(
ADD
MOV
mov

JMP

R4
847401 R4
RS,RY
R4 ,R?

SINTPA26 ¢4

$V172260
JV172262
(V172266
V172270

(V172272

GO0 V177644

RRREE

MACRO M1113

CIMSDBO MSi1-L/M DIAGNOSTIC

RANDOM NUMBER SUBSUBPROGRAM

MTPO30:

6203 035724

L .3
PAGE 223 SEQUENCE 238

(07-0CT-80 18:01
SUBTST

<<MT0030

FLUSH QUT DBE'S>>

CANNRRRARENRNRARNCAERERE
R AR RN N ORI RANNNR RN NRNNARNRACEOINNCLONOOONQNRQQOQNRRNOQQQRCQROOOCQCQES

S *SUBTEST

MT0030

FLUSH OUT DBE'S

is:

(RO),R2

V177640

"'""'"'t""""""""'Q""t"'..'..Q'.Q'.'Q"""""""""'...""..'

035726
035726
035730
035732

011002
010220
077103
000207

MOV

08
RE TURN

MTPO31: SUBTST

035734

R A

LeSUBTEST

R2,(RO)¢
R1.1$

V1776462
V177844
V177646

<<MTPO31

AR X

MTPO31

R 22

SOB-A=LONG TEST>>

R 2 22 R R R R R R X R R R R 2R RZARREXRRERREZRZRRRRRRARRR
R R] )

SOB-A-LONG TEST

;"""'Q"""'."""'i"""Q"'.'."""'.""Q'.'"""""."""'....'...

035766
035770
035772

010503
005725
010504

035774
036000
036002

036004
036006
036010

104454

010167
005167

010200

020537
001001

.DSABL

o~
oo

000000
077001
005167
020167
001403

~N -~
~~

035734
035736
035740
035744
035750
035752
035754
035760
035764

6204
6205
6206
6207
6208
6209

1%:

177756
177752

2%:

20K = SKIP

PERR30
MOV

R1.1$

CoM

'READ & CHECK FOR NOT ''SOB RQ,DOT'

;CORRECT SOB INSTRUCTION

R2.RO
MOV
SUPDATE MOVE REGISTERS

SREINITIALIZE SOB «ONSTANT

(R§) +

:BUMP (SAFELY) BY 2

RS . a#LINK]
38

: DONE?
INO - SKIP

MOV

RS ,R

MOV

RS,R&

RE TURN

;MOVE TERMINATOR
1508 TILL RO UNDERFLOWS
‘WRITE COMPLEMENT OF SOB

RO,1$

R1,1$

CMP
BNE

002472

AMA

CMP

BEQ

000207

0146344
001376
000752
000056

0
SOB
coM

MOV
BNE
BR

-(R3),-(R&)
113
1$

SOBLENGTH=.-MTPO3?
LENABL

AMA

YES

SEQ 0245

—

CIMSDBO MSi1-L/M DIAGNOSTIC
n1PO3Y
SCB-A-LONG TEST
6260 036012

MACRO M1113

07-0CT-80 18:01

LR
PAGE 225 SEQUENCE 239

MTPO32: SUBTST

<<MTPO3?

;*SUBTEST

MTP032

SEQ 0246

WRITE RECOVERY TEST>>

:QQ'Q""""'i"'"Q"""""""t"."'l"""t""t'"t"""""""""."

WRITE RECOVERY TEST

:Q""'Q'"'.'t"""""""""""'"""""'t"Q"'""""""".."'Q""

6261
6262
6263
6264
6265
6266 036012
6267 036014
6268 036016
6269 036020
6270 036022
6271 036024
6272 036030
6273 036032
6274 036034
6275 036036
6276 036040
6277 036042

;THE TEST ACTUALLY EXECUTED ALREADY IN THE MEMORY UNDER TEST.

;THIS CODE INSURES THAT 1T CHANGED MEMORY TO HAVE

012401
020102
001401
104430
077305
013703
012400
020005
001401
104427
077305
000207

1$:

002472

28:

38:
4$:

:1/2 BANK OF #5141

:1/2 BANK OF 110

WHICH [S A "'COM =(R1)'" INSTRUCTION AND
INSTRUCTION.
WHICH IS A "'JMP (RO)'"

MOV

(V177640

(R&)+,
R

CMP
BEQ

R1,R2
2%

SOB
MOV

R3,1$
L INK1,R3

CMP
BEQ

RO,RS
48

PERRD2

MOV

PERRO1
$08

RE TURN

(R&)+,R0

R3,3$

V177642
(V1776464
(V177646
V177650

V177652

V177656

V177660

(V177662
V177664

V177666

;GET DATA FROM LOWER 1/2 BANK
SIS 1T 451412
;YES - SKIP
:NO = TAKE ERROR TRAP

;LO0P FOR 1/2 BANK
;RESTORE LOOP SIZE

;GET DATA FROM UPPER 1/2 BANK
;18 1T Mm10?
JYES - SKIP
:NO= TAKE ERROR TRAP
:LOOP FOR 1/2 BANK

CIMSDBO MSi1-L/M DIAGNOS T1C
MTPO32
WRITE RECOVERY T EST

MACRO M1113

MTPO33:

6280 036044

N 3
PAGE 227 SEQUENCE 240

07-0CT-80 18:01

<<MTPO33

SUBTST

BRANCH GOBBLE

SEQ 0247
TEST>>

;Q"Qt't't'i'"t"t"""'"""'Qt"""'tfii""t't"Q""""""Q""Q""Q"

MTPO33

S «SUBTEST

BRANCH GOBBLE TEST

:ti'ttttt"t"'t"""""'""""t"""t"tt"'tt"""."Q"'.'Q""""""

6281
6282 036044
6283 036046
6284 036050
6285 036052
6286 036054
6287 036056
6288 036060
6289
6290
6291 036062
6292 036064

6293

6294 036066
6295 036070
6296 036072
6297 036074
6298 036076
6299 036100
6300
6301
6302
6303 036102

6304 036104
6305 036110
6306 036112

6307
6308
6209 036114
6310 036116

6311 036120
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324

BRGOBB: SE(

ADCB
BM]

100402
105212

102401
104461

000242
105212

000036

8vsS

28:

cLv

01464344
001376
005011
000743
000076

PERR3S

48:

MOV

SUB
INC

:CLEAR V-BIT

*INCREMENT HIGH BYTE OF 'BGTEST'' ONCE MORE

(R2)

‘BR IF C-BIT SET (SHOULD NOT BE)

‘BR IF V-BIT CLEAR (SHOULD NOT BE)
SBR IF N-BIT SET (SHOULD BE)
*NO - REPORT ERROR AND ABORT TEST

33
48

<COND CODES NOT EOUAL TO 1010

;UPDATE

MOV

:BR IF V-BIT SET (SHOULD BE)

"NO - REPORT ERROR AND ABORT TEST

:COND CODES NOT EQUAL TO 1010

INCB

BV
BMI
PERR3S

TEST POINTERS

PC.R1

#S$-BGTEST,RY

R1,R2

;UPDATE MOVE REGISIERS

010503
005725
010504

020537
001001
000207

- INCREMENT LOW BYTE OF 'BGTEST"
‘BRANCH WHEN BIT? IS SET
*INCREMENT HIGH BYTE OF 'BGTEST'
:LOOP 128 TIMES

:NOW CHECK FOR CORRECT CONDITION CODES

1%:

S$:

“SET CARRY (TO BE ADDED TO ''BGTEST'")

(R2)
BRGOBB

B8CS

103402
102001
100601
104461

:MOVE TERMINATOR
STEST WORD (TWO BYTES)

(R1)
1%

INCB
BR

000773

010701
162701
010102
005202

AMA

.DSABL

0
BGTEST: 0

vC0000
000000
000261
105511

MOV

RS ,R3Y

MOV

RS R4

: DONE?

CMP
BNE
RE TURN

002472

:MOVE

MOV
BNE

(LR

(R§) +

:BUMP (SAFELY) BY 2

RS, a#LINK)
6%

: DONE?
INO - SKIP

CODE

LOCATION

-(R3),-(R&)

(R1)

BRGOBB
BR
GBLENGTM=.-MTP033
ENABL

SYES - RETURN

ANA

;CLEAR TEST WORD 'BGTEST'
*RUN MOVED CODE AGAIN

CIMSDBO MSi1-L/M DIAGNOSTIC
MTPO33 BRANCH GOBBLE TEST
6326 036142

MACRO M1113

07-0CT-80 18:01

MTPO34: SUBTST
AR R

;*SUBTEST
R

6327 036142
6328 036144
6329 036146
6330 036150
6331 036152
6332 036154
6333 036156
6334 036160
6335 036162
6336 036164

010220
077102
000207
012401
020102
001402
104430
000240
077306
000207

1$:
2%:

3%:

<<MTP034

P e

MoV
S08
RETURN
MOV
LMP
BEQ
PERROZ
NOP
S08
RETURN

PAGE 228 SEQUENCE 241

MTPO34

SOFT ERROR - BACKROUND PATTERN TEST>>

ettt ee ettt Rttt eeeat ettt eeteaneeeeeereraeetetteereeee

SOFT ERROR - BACKROUND PATTERN TEST

R2,(RO)+
R1,MTPO34
(R&)+,R
R1,R¢
3%
R3,2%

SEQ 0248

sV177640
V177642
JV177644
(V177646
sVITT650
(V177652
JV177654
JV177656
sV177660
V177662

R R R R

MACRO M1113
CIMSDBO MSi1-L/M DIAGNOSTIC
MTPO34
SOFT ERROR - BACKROUND PATTERN TEST

6338 036166

07-0CT-80 18:01

&
¢
PAGE 229 SEQUENCE 242

MTP035:S5uUBTST

<<MTPO35

. *SUBTEST

MTPO3S

SEQ 0249

WORST CASE NOISE PARITY TEST>>

:!t"t'.Qt"t"""t""'"""""""l""""'Q".'"""""""""""""

WORST CASE NOISE PARITY TEST

;t"'"Q""'t'"""""""""Q."Qt"""l"tt"""".""".'Q"".""'Q'

6339 036166

6340
6341 036174
6342 036200

6343 036206
6344
6345 036216
6346 036220
6347 036222
6348 036226
6349 036230
6350 036234
6351
6352 036244
6353 036246
6354
6355 036250
6356 036252
6357 036254
6358 036262
6359 036264
6360 036272
6361 036274
6362 036276
6363 036302
6364 036304
6365 036310

6366

6567 036322
6368 036326

012737

000003

002074

012737

000005

002144

012737
011010
005710
010037
104050
004737
032763
001002

036244

002264

104425

MOV
ST
MOV

104503

2%:

104425

000001

002144

036276

002264

002032

004737

054644

005037
000207

002074

104050

:WWP TEST LOCATION

PERBNK

CALL

002626
1%:

012737
005710
000405
010037

(RO), (RO)
(RO)
RO,ADDRESS

ERROR +50

104426
104512

011010
012737

;SET PARITY TRAPS TO RETURN TO '‘PARTHERE'’

FOR RO := WFIRST TO #LAST BY #4000
MOV
#BIT2'BITO,CSR
;SET WRITE WRONG PARITY § PAR.
SR
LOADC
MOV
#1$,PARTHERE

002032
054644
002000

#3 ,NOPAR

MOV

#BIT10,CONFIG+2(R3)
28

BIT
BNE

READCSR

ERRGEN

CLRICSR

MOV

Mov

(R0), (RO)

#BIT0,CSR

LOADCSR
MOV
#3%,PARTHERE
ST
(RO}
48
BR
MOV
RO,ADDRESS

PERBNK
CALL
END; OF FOR

-CLEAR WRONG PARITY

[N MEMORY

ERROR +50

CLR

RETURN

NOPAR

SRESET PARITY

TRAP ACTION

TRAPS INTO CSR

(IMSDBO MSi1-L/M DIAGNOSTIC

MISC

SUBROUTINES

MACRO M1113

.SBTTL

6370
6371
6372 036330

07-0CT-80 18:01

<<SUBR

< *SUBTEST

SUBR

SEQ 0250

MISC SUBROUTINES

REGCOPY:SUBTST
R

PAGE 230 SEQUENCE 243

(OPY RO TO R&,R1 TO R3, & R2 TO R5>»

R R R X

R R R X R X R A R

R RRRlRldall)

COPY RO TO R4,R1 TO R3, ¢ R2 TO RS

N ATttt
Tt et R e e N e a et e taeerereteeeeeereeecesteeee

MOV
MOV
MOV

6373 036330
6374 036332
6375 036334
6376 036336
6377
6378 036340

RETURN

RO, R4
R1,R3
R2.R5

FLIPWARN:SUBTST <<FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS>>

;t"t""'t'tt""""t"""'""'.'Q"Q'."""'.'Q"."."""..'Q...".'....

;*SUBTEST

FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS

;'""."'."'.""""'"'"""""'"'..'fi."""'.'..""""."..'.........

6379 036340
6380 036342
6381 036346
6382 036354
6383 036362
6384 036364
6385 036372
6386 036374
6387 036402

6388 036404
6389 036406
6390 03641¢
6391 036414
6352 036420
6393 036422
6394 036426
6395 036432
6596 036434
6397 036440
6398 036444
6399 036450
6400 036454
6401 036460
6402 036464
6403 036466

002556

000414

000411
012700
013704
000404
012700
012704
010037
010037
010037
010037

000207

177774
000001

002556
002556

000002

002556

000003

002556

PUSH
INC

Bl1(

#°C3,FLIPLOC

BEQ
(MP
BEQ
CMP
BEQ
(LR

1
#2,FLIPLOC
P4
#3,FLIPLOC
b1

BR
CLEAR
BR
MOV

43
RO,R&
43
#401,R0

CMP

002556
1%:

000401
00255¢

2%:

000401
000401
027116
027132
027156
027172

1%
A ¥

RO
FLIPLOC

#,FLIPLOC

MOV

ONES,R4

MOV
BR

ONES R4
43

Mov
MOV

#401,R4
RO, WARNZ

Mov
MOV
POP

RO ,WARNG
RO, WARNS
RO

MoV
MOV

RE TURN

#401,R0

RO ,WARN3

CIMSDBO MSi1-L/M DIAGNOSTIC
MACRO M1113 (07-0CT-80 18:01
FLIP WARNING CONSTANTS IN WORST CASE NOISE TESTS
6405 036470

E_ 4
PAGE 231 SEQUENCE 244

BACKGND:SUBTST

<<SUBR

WRITE BACKGROUND>>

SeSUBTEST

SUBR

WRITE BACKGROUND

SE0 0259

;tt"t"t't't"'"""""""""QlQQQi"t".'l""'.."'.."'Q'.."QQ'QQ....Q'
;""t't"ll."t"t"""""""'Qtt""""""'Q"""Q'Q".'Q'QQ"Q."Q'Q"Q

6406

6407
6408
6409
6410

:WRITES DATA FROM R2

036470
036472
036476
036502

104415
012700
012701
022737

060000
040000
000001

003710

6412 036512

012737

000207

027000

WARNGA: MOV

6614 036526
6415 036532
6416 036540
6417 036542
6618 036544
6419 036552
6620 036560

004737
012737
104416
000207

026602
000240

027000

CALL
MOV

012737
004737

000207
026424

66411 036510 001415
6413 036520

6421 036564
6422 036566

012737

104416
000207

026774

002254

177644

SAVREG
MOV
MOV
CMP

BEOQ

MOV

RESREG
RE TURN
WARNGB: BMOV

WARNG:

MOV
CALL

RESREG
RETURN

#FIRST,RO
#S12E,R
#1,PROTYP

WARNGB

#207 M1P000+4

;WARNING PUTTING '"'RETURN'® AFTER WRITE

SUPDO3
#2640 ,MTPO004

:RESTORE 'NOP' AFTER WRITE

m1p000, SUPDOADD

MTP0OO

#207 ,UlPAR?
SuPDOY

;WARNING PUTTING ''RETURN' INSTRUCTION AFTER WRITE

(IMSDBO MSil-L/M DIAGNOS TiC
WRITE BACKGRCUND
SUBR

MACRO M1113

6425 036570

07-0CT-80 18:01

F_4

PAGE 233 SEQUENCE 245

PCONFIG:SUBTST

<<SUBR

PRINT CONFIGURATION MAP>>

; *SUBTEST

SUBR

PRINT CONFIGURATION MAP

;"."'t""'it""'"""'""""'"Q"'"""'""'"""'."""""".'Q'.'
:'"""""Qt""""'""'t""'.QQtl"ti'.l"""'t'i't"""'t't"'.""""

6426
6427
6428
6429
6430
643N
6432
6433
6434
6435
6436
6437
6438
6439
6440
6441
6442
6443
6444

6445

6446
6447
6448
6449
6450
6451
6452
6453
64654
6455
6456
6457
6458
6459
6460
6461
6462

036570
036602
036606
036614

036622
036626
036634

01
O
0N

0N
04
05

037070
037036
000340

143756
000200
000100

036642
036646
036652
036656
036664

022737
002006

000060

036666
036702

012700

000074

036706

036710
036714
036720
0367264
036732
036734
036740
036744
036750
036754
036760
036764
036770

036772
036776

037000
037004
037006
037012
6463 037016
6464 037022
6465 037026
6466 037032
6467
6468 037036
6469 037042
6470 037050
6471 037054
6472 037066
6473
6474 037070

010004

004737
022737
002041

PUSH
MoV

000060
000062

177776
143740

002526

MOV
MOV
MOV
BIC
BIS

#PCONF2, TKVEC
#340,TKVEC+2
8$TkB,RO
#B1T7,PSW
#B1T6,a%7KS

TYPE
TYPE
TYPE

MSG001
mSG00¢2
MSGO03

BGE

NOOJ

CMP

NOOJ:

MOV
MOV

012700
010004

000170

037072

msSG017

;PRINT SPACE(S)

TYPE
TYPE
MOV
MOV
CALL

MSG017
MSG012
R
#60.+2¢2
R1,R3
TCONFI1G

:PRINT SPACE(S)

MOV
MOV

#120.,R0
RO,R4

TYPE

037072

013706
042777
117700

037070
000100

000207
000000

143530

TCONF!G

S$CRLF

mMsSG011
$CRLF

;GO TYPE CONFIGURATION (1ST MHALF)

PCONF2

R1,R3

MsSG014

: SPACE

PCONf2: MOV

PCONFS5,SF

:RESTORE STACK

MOv8

8$T1KB,RO

;READ CHAR TO KILL FLAG

TYPE
TYPE
TYPE
CALL
163532

R1,R3

TYPE

CLEAR

004737

#60. ,R0
RO,R&

#60,LASTBANK
PCONF?2

B8R
PCONF1:

#060,LASTBANK

CMP
BGE

TYPF
TYPE

000360

;LOWER CPU PRIORITY T0 140
:ENABLE KEYBOARD [NTERRUPTS

MSGO04

TYPE

012701
010103
004737
000417

;KILL ANY OLD INTERRUPT

TYPE

CALL

002526

;SAVE LAST GOOD SP

;IF FAT PAPER ON TERMINAL GOTO 1%
IF #SW4& SET.IN @SWR THEN JUMPTO PCONF1

CLEAR

037072
000060

TKVEC, TKVEC+2,RO
SP,PCONFS

8IC

POP

RE TURN

PCONFS: 0

mSGoN
MsSG004
MSG012
TCONFIG
#8176,887KS

RO, TKVEC*2,TKVEC

;STACK SAVED HERE

SEQ 0252

CZMSDBO MSi1-L/M DIAGNOSTIC

SUBR

CONFIGURATION MAP

MACRO M1113

6477 037072

07-0CT-80 18:01

SUBTST

TR AR N RN

L «SUBTEST

G 4
PAGE 235 SEQUENCE 246

<<SUBR

TYPE CONFIGURATION>>

SUBR

TYPE CONFIGURATION

RN RN AR

OO R AN

AN AANCERRRARANENNRRNNONORNCEOROROROOOCOCTOEY

:ttt"tti'ii.t"""t""t""""i"""'it't"tt"i"'ti""""t"""""'.'

6478

6479
6480
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490 037072
6491 037076
6492 037104
6493 037106
6494 037112
6495 037114
6496 037120
6497 037124
6498 037126
6499 037130
6500
6501

:tt"t'ti"tt"'t""'""""""""Q't.'fit"t"QtQtt"tti"'t't"""""""

;CALL:

MOV

#N,RO

:N=NUMBER OF CMARA(CTERS

:
:

MOV
CALL

R1,R3
TCONFIG

;BACKUP
sACTUAL CALL

;
:

RO,RG
#X.R1

RE TURN

;BACKUP
;INDEX CONSTANT

;ONLY RETURN

:"tt"""'ifi"i't"i""'t""'ti""Q"t'tt"t".!ti"'ttt"'.""'t"'.'.".
NAALAALAALAALD

;o ERROR o+
;Q't""'t"

032761
001403

000001

BEQ

TYPE

000402
062701
077014
010400
010301

002626

TCONFIG:TYPE
1%:
BIT

000004

2%:
38

TYPE
ADD
so8

Mov
MoV

MSGO05
#B170,CONFIG(RY)

;ERROR ON THIS BANK?

:NO - SKIP

3%
MSGO14
86, R1
RO,1$

;PRINT SPACE
;BUMP POINTER
;LOOP TILL DONE

MSGO013

R4 ,RO
R3,R1

SPRINT X"

XIITERTALEE

6502

6503
6504 037132
6505 037136
6506 037142
6507 037144
6508 037150
6509 037152
6510 037154
6511 037160
6517 037162
6518 037166
6519 037172
6520 037176
6521 037202
6522 037204
6523 037206

MOV
MOV

(PU'S

JetRRRERRAEY

016105
006205
042705
005705
001003
112705
000402

062705

110537

062701
077023
010400
010301

002624

TST

BNE
MOvB

000040

000004

MSGO08
CONFIG(R1),RS
R5

BIC

177760

000060
071234

TYPE
MOV
ASR

8$:
9%:

B8R

ADD
Movae

#°C17,RS
8%
# RS

#60,R5
RS ,MSGO1S

TYPE

MsSG015

MOV
MOV

R4 ,RO
R3,R1

ADD
S08

¥4 ,R1
RO, 6%

;GET CPU BITS

;CLEAR NON INTERESTING BITS
;1S THERE ANYTHING THERE?

;YES = BRANCH.
:NO - MOVE A BLANK INTO RS

;BRANCH OVER NEXT INSTRUCTION
;MAKE ASCLI
;PLUG INTO MEMORY
;BUMP POINTER
;LOOP TILL DONE

SEQ 0253

(IMSDBO MSi1-L/M DIAGNOSTIC

SUBR

TYPE

CONFIGURATION

6526
6527
6528
6529 037210
6530
6531 037214
6532 037222
6533 037224
6534 037232
6535 037234
6536 037242
6537 037244
6538 037252
6539 037254
6540 037260
6541 037264
6542 037266
6543 037272
6564 037276
6545 037300
6546 037304
6547 037310
6548 037314
6549 037320
6550 037330
6551 037334
6552 037336
6553 037340
6554
6555
6556

MACRO M1113

07-0CT-80 18:01

6577 037436
6578 037444
6579 037446
6580 037452
6581 037454
6582 037462

SEQ 0254

kbRt tRGEOROEOEOYSRY

‘ea INTERLEAVE ¢+
R AALAAAARARAARRA)

032761
001014
032761
001004
112737
000424
112737
000420
016105
042705
000305
072527
022705

010000

002626

000002

002624

000040

071234

000055

071234

062705
062705

000007
000060
071234

100002

110537

062701
077051
010400
010301

002624
007777

TCFIGY:

TYPE

MsG007

BIT

#BIT12,CONFI1G+2(RY)

;THIS IS AN ENTRY POINT FROM ERROR REPORTS

BNE
BIT

B8NE
18%:
1%.

MOVB
BR
MOVB
BR
MOV

BIC
SWAB
ASH
CMP

177774

000012

2%
16%:

000004

1%
#B1T1,CONFIG(RY)
18%
#' ,MSGO1E
168
#'-,MSGO1S
16%
CONFIG(R1)
,RS

#°C170000,RS
RS

BPL

#-4 RS
#10. RS
2%

ADD

#60,RS

ADD

#7.RS

MOVB
TYPE

RS,MSGO1S
MSGOIS

ADD

IF NOTAB NE #0 THEN SRETURN

SOB

MOV

RO.TCFIG1
R4 RO

;1S THERE ANY MEMORY HERE?
;BRANCH [F MEMORY PRESENT.

;MOVE A BLANK IN TO BE PRINTED

;BRANCH TO TYPE ROUTINE

;GET (SR INTERLEAVE

JMAKE

ASCII

;PLUG INTO MEMORY
;BUMP POINTER
;LOOP TILL DONE

R3.RY

;"."0""""!"

st MEMORY TYPE

6557

6558
6559 037342
6560 037346
6561 037354
6562 037356
6563 037362
6564 037364
6565 037370
6566 037372
6567 037374
6568 037400
6569 037402
6570 037410
6571 037412
6572 037416
6573 037420
6574 0374264
6575 037426
6576 037434

H__&

PAGE 237 SEQUENCE 247

:"t't""""""

.ENABL

033761
001447
016105
000305
042705
005705
001440
032705
001004
112737
0004 34
032705
001013
032705
001004
112737
000422
112737
000416

002104

112737

000114

032705
001004

000407

002624

T(FIG2:

002626

000004

000102

MSG009

MOV
SWAB

RS
CONF1G+2(R1)
RS

TST

BIT
8tQ
8IC

177770

071234
4%

000002

000001

000115

071234

000113

071234

5%:
6%:

000001

071234

LS8

TYPE

CPUBIT,CONFIG(RY)
178
#°C7,RS

BEQ
8lT
BNE
move
BR
BIv
BNE
8l1
BNE
Move
B8R
MOov8
BR
BIT
BNE

i79
#81T2,RS
‘3
#'B,MSGOS
8%
#B81I7T1,RS
6%
#B110,RS
5%
#'M NSGO1S
8s
#'K,ASGUYS
8%
#B8110,RS
7%

MOove

£'L ,MSG01S

sGET MEMORY TYPE

JCLEAR NON INTERESTING BI1S

(IMSDBO MSi1-L/M D 1AGNOSTIC

SUBR

TYPE (ONFIGURATION

6583 037464
6584 037472
6585 037474

6586 037502

6587 037506
6588 037516

6589 037522
6590 037524

6591 037526
€592
6593

112737
000403
112737
062701

077067

MACRO M1°13

000120

071234

000040

071234

7%:
17%:

8$:

000004

010400
010301

07-0CT-B0 18:01
MOvB
BR
MOV8

TYPE

MsG015

So8

RO,TCFIG?2

IF NOTAB NE #0 THEN SRETURN
ADD
o6 R
MOV
MOV
.DSABL

R4 ,RO
R3,R1
LSB

XTI

6595

;ee

6596

T2
Y

037530
037534
037542
037546
037552
037554
037560
037562
037566
037570
03757&
037600
037604
037610
037620

6612 037624

6613 037626

6614 037630
60615

112737
016105
032705
001414
042705
000205
022705
100002
062705
062705
110537

000040
002624
000002

062701

000004

077035

071234

170377
000012
000007
000060
071234

(SR

TYPE
MsSGO16
T(FIG3: MOVB
#' ,MSGO1S
MOV
CONFIG(RT),RS
BIT
#8171,RS
Bte
16%
81(
#°C7400,R5
SWAB
RS
(MP
#10.,RS
BPL
108
ADD
7 ,RS
108
ADD
#60,RS
Movs
RS ,MSGO1S
16%:
TYPE
MSGO1S
IF NOTAB NE #0 THEN SRETURN
ADD
#6,R1

010400

S08

RO,TCFI1G3Y

MOV

RY.RY

MoV

010301

R4 RO

JNeRENRRTRRRLELTL

6617
6618

J** PROTECTED e
ey
JeesatatereeT

6622 037644
6623 037652

6624 037654
6625 037662

6626 037664
6627 037672
6628 037676
6629 037700
6630 037704
663

37710

663_ J37712
6673 037714
66.6 037716

105761
100004

112737
000407
032761
001406

112737

002624

000120

C71234

000100

002624

000111

071234

000402
062701

077026

010400
010301
000207

11%:

000004

12%:

13%:
14%:
19%:

;BUMP POINTER

;LO0P TILL DONE

JMAKE ASCII
:PLUG INTO MEMORY
;BUMP POINTER

;LOOP TILL DONE

TYPE
1ST8
8PL

MS6010
CONFIG(RY)
12%

;BANK PROTECTED?
JNO - SK]P

8IT
BEQ

#B1T6,CONFIG(RY)
14%

JPROTECTED REGION ¢
;NO - SKIP

MOove
BR

MovB8
TYPE
BR
TYPE
ADD
S08

SEQ 0255

6616

6619 037632
6620 037636
6621 037642

#°'P,MSGO1S
8%
#'
_MSGO1LS

6594

6597
6598
6599
6600
6601
6602
6603
6604
6605
6606
6607
6608
6609
6610
6611

[

PAGE 237-1 SEQUENCE 248

MOV
MOV
RE TURN

#'P,RSGCYS
13¢

#'1,m5601S
msG01S
15%
msG014
8 R
RO,11%

R4 RO
RI,R1

;PRINT SPACE
;BUMP POINTER

JLOOP TILL DONE

CIMSDBO MS11-L/M DIAGNOSTIC
TRAP

PARITY

ERROR

HANDLER

MACRO M1113

.SBTTL

PARITY ERROR HANDLER

AN CCERCCOROROROECEOCROCERRAORQRANOROECGARQERERNROROEROROOERETDOEOROOEOEOQROOOROQTQRTERYS

VECTOR TO HERE FROM TRAPS T0 114
. IGNORE ERRORS BUT COUNT IF NOPAR FLAG = 1.
AR

AAL AR

6642
6643
6644

6651 037726
6652 037730
6653 037734
6654 037736
6655 037744
6656 037746
6657 037754
6658 037760
6659 037764
6660 037772
6661 037774
6662 040002
6663 040004
6664 040010
6665 040012
6666 040016

TRAP

JERRATRRANCARNR AR

6641

6650 037720

PAGE 239 SEQUENCE 249

SEQ 0256

6637
6638
6639
6640

6645
6646
6647
6648
6649

07-0CT-80 18:01

AA AR A

004737
063716
042766
000002
022737
001003
013716
000002
004737

002074

PARITY:

002074

1%:

002070
000002

002276

000002

000003

002074

002264

04012¢

18:

PRIRTTUNEXPECTED PARITY TRAP

SET ""ABORT'' / SETUP 'BADP(C'' / RETURN VIA P(BUMP
:COUNTING PARITY ERRORS?
INO - SKIP
*PARITY ERROR COUNTER + 1

CMP
BNE

#2 ,NOPAR

:ACTION CODE

CALL

ABORTFLAG

BADSTACK

YES

BIC

PCBUMP,

#B112,2(SP)

"UPDATE

RT!

(MP
BNE
MOV
RT]
(AL
FATAL

RETURN VIA "'PARTHERE'
#1,NOPAR
1%
PARCNT

RT]

COUNT ERROR

(MP
BNE
INC

ADD

’$:

--5-

SET

000004

ACTION

4
3
000001

CODE
1

022737
001003
005237
000002
0202737
001013

(SP)

#3,NOPAR

b3 3

PARTHERE
, (SP)

gSDSYA((

:NO - SKIP

= 2

SFIND BAD SP,PC.PSW OFF
RETURN PC

STACK

:SHOW FAILURE BY .NE.
;ACTION CODE

;NO = SK]P

;FIND BAD

= 3 2

SP,PC,PSW OFF

STA(CK

)]

(7MSDBO MSi1-L/M DIAGNOSTIC
TRAP

NON-EXISTANT MEMORY

6669
6670
6671
6672
6673
6674
6675
6676
6677 0460024
6678 040032
6679 040034
6680 040040
6681 060046
6682 040059
6683 0400564
6684 040056
6685 040062
6686 040066
6687
6688
6689
6690 040070
6691 040074
6692
6693
6694 040102
6695 040106
6696
6697 040114
6698 040120
6699

MACRO M1113

(HOLES)

HANDLER

07-0CT-80 18:01

SBTTL

SEQ 0257

NON=-EXISTANT MEMORY (HOLES) HANDLER

TRAP

:VECTOR TO HERE

PAGE 241 SEQUENCE 250

T T

R R

P PR

(SOMETIMES) FROM TRAPS TO 4

CODE IN NONEM DETERMINES ACTION AS FOLLOWS:

. 2)

TO EXIT PATTERN O DURING SIZING If NON-EXIST MEM ERROR

IGNORE ERRORS BUT COUNT IF NONEM (NO NON-EXISTANT MEMORY) FLAG = 1.

:Q'QQ'"'."l""""""""t‘"'Q"'."""'"""QQ.Q""Q.'Q""""""Q"'

022737
001011
005237
022737
001002
010037
000002
005237
012701
000002

000001

002076

002066
000001

002066

NONEXIST:(MP
BNE
INC
CMP

002032

002066
000001

2$:

#1 ,NONEM
23
NEMCNT

:COUNTING NON-EXISTANT MEMORY ERRORS?
:NO - SKIP
;BUMP NON-EX]STANT MEMORY COUNTER

1%
RO,ADDRESS

:NO - SKIP
;ASSUME RO CONTAINS THE ADDRESS ACCESSED

NEMCONT

;BUMP NON-EXISTANT MEMORY COUNTER

#1,NEMCNT

BNE
:?Y

INC

:?Y

;FIRST ERROP?

;DUMMY UP R1

FOR A FORCED SOB EXIT

;"".""""Q"'"""""""Q"t'.""'Q"QQQ"'Q'"tt"t""""""."'.'Q

004737

004737
004737

040126

LSBTTL
TIHEOUY:E:%k

TIMEOUT (TRAP TO &) HANDLER
TRAP
gADSTACK
;FIND BAD SP,PC,PSW OFF STA(CK

040126

LSBTTL
MMTRAP : gA%L

040126

SBTTL
PDP1105:$:%L

ATAL

6705

a Nt RN

et e RNt eR

P eteeaenteeeteeeeeeeee

MEMORY MANAGEMENT (TRAP TO 250) HANDLER
T4AP
$ADS‘ACK
JFIND BAD SP,PC,PSW OFF STA(K

RESERVED INSTRUCTION HANDLER
TRAP
BADSTACK
;FIND BAD SP,PC.PSW OFF STA(K

BADSTACK:SUBTST <<FIND BAD SP, PC, & PSW FROM STACK>>

606 040126

;l."..Q"'.""""""""""""""."tt'"t'i'lQt'""'t".'...".'.'.....

s *SUBTEST

FIND BAD SP, PC, & PSW FROM STA(K

et
eet et NNt NI
NIttt ettt eneneeetee

6707 040126

6708 040132
6709 040140
6710 040146
6711 040154

010637
062737
016637
016637
000207

002024
000002
000002

000004

(02024
002020

002030

MoV
ADD
MOV
MoV

RE TURN

SP,BADSP
#2 ,BADSP
2(SP) ,BADPC
4(SP) ,BADPSY

CIMSDBO MSi1-L/M DIAGNOSTIC
TRAP
KERNEL TRAP HANDLER

MACRO M1113

6714

07-0CT-80 18:01
.SBTTL

PAGE 243 SEQUENCE 251

TRAP

RN R R RN R R

6716

;KERNEL 1S A TRAP THAT COMES HERE

6717

6718

6719 060156
6720 040164

6721

6722
6723 0640166
6724 040176
6725

6726
6727 040176
6728 040204
6729

042766
000002

052737
000002

042737
000002

005737
001406

6735 040230

000002

6736

6737

6738 040232
6739 040236

6740

6741 040240
6742 040246

E NN NP RO NN RN EN NN RN

ORO LN CRNRNONNNCRNRCORRNNOROOORRQNY

:Q"ttt'ttttttt"t"tt'"'t""'tt."'tt"'t'ttO't"'.."t.t"t""t'."."""'

6730
6731 040206
6732 040212

6733 0460214
67364 040222

IR E LR

KERNEL TRAP HANDLER

6715

SEQ 0258

013737
052737

005737
001403
:
0S3737
000002

140000

000002

SKERNEL:

RTI

BIC

#140000,2(SP)

:'Q"Q"t"tt't!"""t"""tt"itt"'Q"tt"tt't'l't."'t't""""t"tt"'."

000001

177572

LSBTTL
SENERGIZE:BIS
RT]

TRAP
ENERGIZE TRAP HANDLER
#BITO,MMRO

:QQQ"tt'tt'tt""'tt't""'t't"t"t"l't.t"'t't'.tt""l."'t""'t't."'.t"

000001

177572

LSBTTL TRAP
DEENERGIZE TRAP MANDLER
SDEENERGIZE:BIC #BITO,MMRO
RT]

;ttttt'tt'ttttt""""t""t'"'Q't't"'t""tttt't""Q""t'.""'t.t""'."

002514

002514
000001

177746
177746

LSBTTL
$CACHN: TST
8EQ
18:

MoV
BIS
RTI

TRAP
CACHKN
1%

CACHON TRAP HANDLER
;1S THERE A CACHE
:NO = RETURN

CACHKN,CONTRL
#B170,CONTRL

;SETUP CACHE AS PER CONSTANT (USUALLY 1 = FULLY ON)
:DISABLE TRAPS (BUT NOT ABORTS)

;ttt"Q"'t'Q."t"'0QQ"t"'Q't"t't't.'.'ttt't'tlttt'tt"tt'!QQ'QO'Q'Q..Q'....

.SBTTL

002514

002520

1177746

TRAP

CACHOFF TRAP HANDLER

SCACHF: TST
CACHKN
;1S THERE A CACHE?
BEQ
18
:NO = RETURN
.Dl SABLE TRAPS (NOT ABORTS), FORCE MISSES, FLUSH, BYPASS
CACHKF ,CONTRL
8IS
1%:
RT]

(IMsoBo MSi1-L/M DIAGNOSTIC
TRAP
LOAD CSR TRAP HANDLER
6745
6746
6747
6748
6749
6750
6751
6752
6753
6756
6755

040250
060256
040260
040266
040272
040274
040390
040304
6756 040310
6757 040312
6758 040320
6759 040322
6760 040330
6761 040336
6762 040342
6763
6764
6765
6766 040344
6767 040346
6768 040352
6769 040360
6770 040362

MACRO M1113

07-0CT-80 18:01

.SBTTL

PAGE 245 SEQUENCE 252

TRAP

SEQ 0259

LOAD CSR TRAP HANDLER

;LOAD CORRECT CSR WITH DATA IN (SR

013700

002146

005737

002502

100007
113701

062701
020137
001404
123737

001003
052737
013760

;PROGRAM (SR'S ASSERT
RO,R1
$LOADC: PUSH
MOV
CSRNO,RC

IF INMECC IS TRUE THEN GOTO 3%

002503

177740
002146

002502

002146

1%:

020000
002144

002144
172100

2%:
3%

000002

013700
016037
000002

002146
172100

INHIBIT MODE POINTER WHEN LOADED
;SAVE REGISTERS
:CREATE CSR ADDRESS

SREADC:

002144

TST

PGMCSR

Bid

#BIT13,CSR

BPL
Move
BIC
C(MP
BEQ
(mMPB
BNE
MOV

DON'T WANT INH. MODE POINTER ON

1%
PGMCSR+1 ,RY
37,/
R1,CSRNO
2%
PGMCSR,CSRNO
3

;PROGRAM [N INTERLEAVED SPACE?
:BRANCH IF NOT
;CHECK SECOND CSR
:CLEAR UNNECESSARY BITS
;1S THIS THE CURRENT (SR?
;BRANCH IF [T IS
;1S THIS THE CURRENT (SR?
;BRANCH [F NOT

(SR,CSRADD (RO)

;LOAD THE CSR

:??

R1,RO

.SBTTL

TRAP

PUSH
MOV
Mov

RO
(SRNO,RO

;SET THE INMIBIT MODE POINTER TO
;RESTORE REGISTERS

READ CSR TRAP HANDLER

;READ THE CORRECT CSR INTO LOCATIONS (SR

:?P
I

CSRADD (RO) , (SR

;READ IT

1ST 16K

CIMSDBO MSi11-L/M DIAGNOSTIC

TRAP

6772
6773
6774
6775
6776
6177
6778
6779

TEST

MACRO M1113

(R1) & READ CSR CAREFULLY

040364
040372
040376
040402
040404
040410
040412
6780 040416
6781 040422
6782 060426
6783 040430
6784 040436
6785 040440
6786 040444
6787 040452
6788 040454
6789 040460
6790 040462
6791 040470
6792
6793 040474
6794 040502
6795 040522
6796 040530
6797 040532
6798 060540
6799 040540
6800
6801 040542
6802 040544
6803 040552
6804 040554
6805 040562
6806 040566

012700
063700
005002
005737

100007
113703

0642703
020337
001404
123737
001002
012702

022737
001403
004737
000405

004737

172100
002146

ADD

002502

002146

1%:

020000
000001

003710

2%:
3s.

040542
4s:

177640

052766

000001

000002

042766

000001

0000C2

000002

010210
177776
140000
ey
144
37

TRAP

TEST (R1) & READ CSR CAREFULLY

RO,R2,R3
#CSRADD , RO

CSRNO,RO

8PL
Move
8IC
CMP
BEQ
(mMPB
BNE

1
PGMCSR+1,R3
#B117,R3
R%.CSRNO
2
PGMCSR,CSRNO
$

MOV
cMp
BEQ

CALL
BR

BMOV

PAGE 246 SEQUENCE 253

CLR
23

002503
000200
002146

002

JSBTTL

$TSTRD: PUSH
MOV

5%:

0110
000207

07-0(CT-80 18:01

;CREATE CSR ADDPESS

PGMCSR

#MBIT13,R2
#1,PROTYP
3]
TSTRD1
5%

;1S THIS AN 11/44?
;BRANCH IF [T IS

TSTRDY

;CALL TO THE USER INSTRUCTION PAR'S
FASTCITY
CALL
;1F SINGLE BIT ERROR ONLY = SET CARRY BIT
R3,R2,RO
IfF #BIT4 SET.IN CSR AND #BIT1S OFF.IN CSR
#BIT0,2(SP)
BIS

POP

ELSE

BIC

END ;OF
RTI

#BITN,2(SP)
IF #BIT4

1STRD1: MOV
R2, (RO)
TESTAREA
1STB
(R1)

BIC

MOV
RE TURN

#B1T15'B1T14,PSW
(RO),CSR

V177640
V177642 ;ENTER SUPERVISOR MODE
V177646

V177650
V177656
(V177662

SEQ 0260

B 5

r—

MACKO M1113
CZMSDBO MSi11-L/M DIAGNOSTIC
TRAP
ECC DISABLE ALL CSR'S TRAP HANDLER

6809
6810 040570
6811 040576
6812 040602
6813
6814 040604
6815 040612
6816 040614
TR - X

001/

012737
004737
000002

000002
061314

012737

000002

104425

002144

012737
004737

000001
041314

002144

060632
040640
040642

012737
104425
000002

000001

002144

040644
040652
040656

012737
004737
000002

000003
041314

012737
104425
000002

000003

040672
040700
040706
049712

013737
052737
004737

002274
000006
041314

013737
052737
104425
000002

.SBTTL
SECCINIT:MOV
CALL
RTI

002144

.SBTTL
$ENASBE
: MOV
CALL
RTI
.SBTTL
$ENA1SBE
: MOV
LOADCSR

002274
000006

.SBTTL

002144
002144

#BITT,CSR
CSROUT

TRAP

.SBTTL

$CB1CSR:MOV
BIS
LOADCSR
RTI

SELECTED CSR TRAP HANDLER

INITIALIZE ALL CSR'S TRAP HANDLER

#BIT0,CSR

CSROUT

SELECTED (SR TRAP HANDLER

TRAP

ENABLE SBE PARITY TRAPS ON ALL CSR'S

TRAP

ENABLE SBE PARITY TRAPS ON 1

TRAP

WRITE CHECKBITS THRU ALL C3R'S TRAP HANDLER

#BITO!BITY,CSR
CSROUT

#8170'BIT1,CSR

$CBCSR: MOV
CHECK,CSR
#BIT1!BITZ2,CSR
BIS
CALL CSROUT
RTI

SEQ 0261

ECC DISABLE ALL CSR'S TRAP HANDLER

INITIALIZE
TRAP
.SBTTL
#BITO,CSR
$ECCTINIT:MOV
LOADCSR

RTI

002144
002144

TRAP

PAGE 248 SEQUEN(E 254

ECC DISABLE OF
TRAP
.SBTTL
#BIT1,CSR
$ECCIDIS:MOV
LOADCSR

RTI

040660
040666
040670

040714
040722
040730
040732

CALL

RT]

6818 040616
6819 040624
6820 040630

000002

.SBTTL
SECCDIS:MOV
RT!

000002

07-0CT-80 18:01

SELECTED CSR

;BITS 11-5
; CHECK MODE

WRITE CHECKBITS THRU 1 SELECTED CSR TRAP HANDLER
TRAP
;BITS 115
CHECK,CSR
#BIT1!BITZ2,(SR
. CHECK MODE

MACRO M1113 07- 0CT-80 18:01
CIMSDBO MSi1-L/M DIAGNOSTIC
TRAP
WAS THERE A SBE ON ANY (SR TRAP HANDLER
6845
6846 040734
6847 040740
6848 040744
6849 040746
6850 040746
6851 040752
6852 040754
6853 040756
6854 040760
6855 040770
6856 040774
6857 040776
6858 040776
6859 040776
6860 041002
6861 041020
6862 041020
6863 041022
6864 041026
6865 041030
6866 041036
6867 041040
6868 041046
6869 041046
6870
6871
6872 041050
6873 0641052
6874 041060
6875 041066
6876 041070
6877 041076

TRAP

LSBTTL

013701
005004

WAS THERE A SBE ON ANY (SR TRAP HANDLER

R1,R&
$WASSBE: PUSH
MOV
TOTCSRS,R1
R4
CLR
BEGIN LWSBE

002216

;GET (SR'S BYTE

FOR CSRNO := l01T0 #36 BY #2

006301

ASL

ON.ERROR

READCSR

104426

IF #BIT4 SET.IN (SR
R4
SET
LEAVE LWSBE
END ;OF IF #BIT4

END

;OF ON.ERROR

IF R1 EQ #0 THEN LEAVE LWSBE
END ,OF FOR CSRNO
END LWSBE

006004

ROR

052766

000001

000002

042766

000001

000002

POP
R4 ,R1
ON.ERROR

BIS

ELSE

sSEr C BIT FOR ERROR

#B1T70,2(SP)

#BIT0,2(SP)
BIC
E#? :OF ON.ERROR

000002
104426
042766
032737
001403
052766
000002

5
C
PAGE 250 SEQUENCE 255

WAS THERE A SBE IN 1 SELECITED CSR TRAP HANDLER
.SBTTL TRAP
;ON RETURN IF CARRY IS SET THERE WAS A SBE

000001
000020

000002
002144

000001

000002

$WAS1SBE :READCSR

BlC
BIT

1$:

BEQ
BIS
RTI

#8170,2(SP)
#BITL,CSR

:CLR C BIT ON STACK

#B170,2(sP)

;SET C BIT ON STACK

SEQ 0262

CZMSDBO MSi1-L/M DIAGNOSTIC
WAS

THERE

6880
6881 041 1
6882 041 }
6883 041
6884 041
6885 041 1
6886 041
6887 041
6888 041}
6889 041
6890 041
6891 041
6892 041
6893 041 1
1

6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907

BB
NIIONIN) =2 2 2 20O 0O
NIV
O
SOOI O S~O

TRAP

041164
041164
041166
041172
041174
041202
041204
041212
041212

A DBE

(SR

(Q7- 0CT-80 18:01

TRAP HANDLER

SBTTL

013701
005004

D .S
PAGE 252 SEQUENCE 256

TRAP

WAS THERE A DBE ON ANY (SR TRAP HANDLER

R1,R4
$WASDRE: PUSH
Mov
TOTCSRS,RY
;GET (SR'S BYTE
Ré
CLR
BEGIN LWOBE
FOR CSRNO := l01T0 #36 BY #2

002216

006301

ASL

ON.ERROR

104426

READCSP

IF #BIT1S SET.IN (SR

R4
SET
LEAVE LWDBE
END ,OF [f #BITé
END ;OF ON.ERROR

IF R1 EQ #0 THEN LEAVE LWDBE

END ,0F FOR CSRNO
END LWDBE

006004

ROR

052766

000001

000002

042766

000001

000002

POP
ON.ERROR

104426
005737
100004
052766

6912 0461234
6913 041242

042766
000002

000002

Ré

R4 ,R1

BIS

#BIT0,2(sP)

BIC

#BIT10.2(sP}

ELSE

;SET C BIT FOR ERROR

E¥D :OF ON.ERROR

000002

041214
6908 061216
6909 041222
6910 041224
6911 0641232

ON ANY

MACRO M1113

WAS THERE A DBE ON 1 SELECTED CSR TRAP HANDLER
TRAP
.S81TL
;ON RETURN [F CARRY |S SET THERE WAS A DBt

BE
: READCSR
$WAS1D

002144
000001

000002

000001

000002

TST

CSR

3$:

.DBE?

g%?

#8170,2(SP)

:NO - SKIP

B%E

#B8170,2(SP)

;CLR C BIT ON STA(K

BPL

JSET

C BIT ON STA(K

SEQ 0263

CZMSDBO MSi1-L/M DIAGNOSTIC

TRAP

MACRO M1113

CLEAR ALL ECC CSR'S TRAP HANDLER

6916

6917 041244
6918 041250
6919 041254

6920
6921 041256
6922 041262
6923 041264

6924
6925
6926 041266
6927 041274
6928 041300

6929

6930

6931 041302

6932 041370
6933 041312

07-0CT-80 18:01

.SBTTL

004737
000002

$CLRCSR:CLEAR
CALL
RT]

061314

.SBTTL

052737

004737
000002

052737
104425
000002

TRAP

CLEAR ALL ECC CSR'S TRAP HANDLER

TRAP

CLEAR 1 SELECTED (SR TRAP HANDLER

(SR
CSROUT

SCLRICSR:CLEAR
(SR
LOADCSR
RTI

104425
000002

000006

041314

002144

SEQ 0264

.SBTTL TRAP
ECC DISABLE, CHECK MODE, & WRITE C(HECKBITS IN ALL (SR'S TRAP HANDLER
;CHECKBITS ALREADY [N LOC ''CSR"
$CHKDIS:BIS
MBIT1!BIT2,(SR
;ECC DISABLE & DIAG (HECK MODE
CALL
RTI

.SBTTL

000006

E S
PAGE 254 SEQUENCE 257

CSROUT

TRAP

ECC DISABLE, CHMECK MODE, & WRITE (HECKBITS [N 1 SELECTED (SR

;CHECKBITS ALREADY [N LOC "'CSR"

S$CHKIDIS:BIS

LOADCSR
RT]

#BIT1!BITZ2,(SR

;ECC CISABLE & DIAG (HECK MODE

(IMSDBO MSi1-L/M DIAGNOSTIC

TRAP

MACRO M1113

07-0CT-80 18:01

PAGE 2545 SEQUENCE 258

ECC DISABLE, CHECK MODE, & WRITE CHECKBITS IN 1 SELECTED

6936 041314

CSROUT: SUBTST

<<SUBR

WRITE IN ALL CSR'S>>

S *SUBTEST

SUBR

WRITE IN ALL CSR'S

:"'Q'i""""""Q""""'t"QQ"Qttt"""""""""""""Q"Q"Q'Q.""
.""tt.t"‘""""""""""Q"i"'."'l"""'t""""'t"""'Q."."""'

6937
€938
6939
6940
6941
6942
6943
6944
6945

041314
041316

6947
6948
6949
6950
6951

041356
041356
041360

041322

041326
041330
041332
041334

013701

R
TOTCSRS, R
BEGIN LCSROUT
PUSH
MOV

002216

;GET CSR'S BYTE

FOR CSRNO := #0 TO #36 BY #2

006301

ASL
R1
ON. ERROR
LOADCSR
END ;OF ON.ERROR

104425

IF R1 EQ #0 THEN LEAVE LCSROUT
END ;OF FOR CSRNO

041334
6946 041340

END LCSROUT
POP
R1
KE TURN

000207

041362

INVALIDATE BACKGROUND PATTERN>>

$INVALID:

SUBTST

<CTRAP

s «SUBTEST

TRAP

INVALIDATE BACKGROUND PATTERN

;".""Qt'.".'.t"""""""'l"'l'."i'.l!Q"'t"'.""!"""'Q'Q"."Q".
.'t't.t"'."'it'i't"'""'Q"'i"'ii'.fi.'t't'.tt"t'."t"".QQQ""QQ""."Q'

6952 041362
6953 041366
6954 041372
6955 0641374
6956 061376
6957 041404
6958 041410

013701
006301
006301
042761
000002

002100

020000

002626

PUSH
MOV
ASL
ASL
BIC
POP
RTI

RO,R1
BANK ,R1
R1
R1
#BIT13, CONFIG*2(R1)
R1,RO

SEQ 0265

CIMSDBO MSi1-L/M DIAGNOSTIC
MACRO M1113
TRAP
INVALIDATE BACKGROUND PATTERN
6960 041412

07-0CT-80 18:01

G 5
PAGE 257 SEQUENCE 259

$ERRGEN:

SUBTSTC<CTRAP

;*SUBTEST

TRAP

GENERATE AND TEST ERROR ADDRESS>>

:'"'l"i"Q"tQ"""0"'"'t'""""""'i"QQ"'Q'Q""."t"'.""""tt"'

GENERATE AND TEST ERROR ADDRESS

;'t"fi"tt"ti"""""""'i"'tti""'t't""'t"'"""Q"""Q""""'Q"'

6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971

041412
041422
041426
041432
041434
041640
041442
041446
041452
041456
041460

013703
005737
001003
013700
000402
013700
072027
005737
001002
042700

6973
6974
6975
6976
6977
6978
6979
6980

041466
041470
041472
041474
041500

006201
006201
006201
042701
060100

6972 041464

000301

002102
002426
172246
177646
177773
002130
177600

013701
072127
042701

002144
177773
177600

6983 041522
6984 041524

001024
005737

002130

6985 041530
6986 041532
6987 041534
6988 041540
6989 041546
6990 041552
6991 041560
6992 041564
6993 041566
6994 041570
6995 041572
6996 041574
6997 041576
6998 041600
6999 041604
7000 041606
7001 041612
7002 041616
7003 041620
7004 041626
7005 041626
7006 041630
7007 041634
7008 041636
7009 041640
7010 041644
7011 041650

7012 041660

005737
001421

013702
052762
016200
042762
042700
006300
006300
060001
020001
001420
005737
001411
062700
005737
001002

062700
020001
001404
005737
001001
104462
010137
005037
000002

177775

041502
041506
6981 041512

6982 041516

68:
7%:

002424

002146

040000
172100

040000
177037

172100

28:
002134
000100
002136

000100

002064

38:

002430
002064

PUSH
MOV
TST
BNE
MOV
BR
MOV
ASH
1ST
BNE
BIC

SWAB

RO,R1,R2,R3
BANK INDEX , R3
NOSUPER
6$
SIPAR3,RO
7%
UIPAR3,RO
#-5,R0
EUFLAG
1$
#*C177,R0

;GENERATE WHAT ERROR ADDR SHOULD BE

;GET CURRENT ADDRESS BITS 11 AND 12

ASR
R1
ASR
R1
ASR
R1
BIC
#4C2 R
ADD
R1,R0
;ADD THEM TO THE ADJUSTED PAR VALUE
;GET ERROR ADDRESS FROM CSR UNDER TEST
MOV
CSR,R1
ASH
#-5R1

BIC
1S1
BNE
157
BEQ
PUSH
MOV
BIS
MOV
BIC
BIC
ASL
ASL
ADD
POP
CMP
BEQ
1ST
BEG
ADD
1ST
BNE
ADD
CMP
BEQ
TST
BNE
PERK36
MOV
(LR
POP
RTI

#eC177,R1
NO22B1T
28
EUFLAG
2%
RO
CSRNO,R2
#B1T14,CSRADD (R2)
CSRADD (R2) ,RO
#B1T14,CSRADD (R2)
#%C740.R0
RO
RO
RO,R1
RO
RO,R1
5¢
INTFLAG
38
#100, R0
INT64K
4
#100,R0
RO,R{
5%
SKPERR
5%

R1,ERRADD
SKPERR
R3,R2,R1,R0

;1S THIS AN 11/44 OR 11/247

:BRANCH [F NOT NECESSKRY
(IS IT EUB?
:BRANCH IF NOT
:SAVE GENERATED ERROR ADDRESS

:GET CSR NUMBER
:TURN ON EUB BIT CAREFULLY
GET CSR CONTENTS
:TURN OFF EUB BIT CAREFULLY
:CLEAR EVERYTHING BUT ERROR ADDR

;SHIFT ADDR BITS 18-21 INTO POSITION
:ADD TO CURRENT ERROR ADDRESS
;COMPARE REAL AND GENERATED ERR. ADDR.
BRANCH IF THEY ARE THE SAME
: INTERLEAVED?
INO - WE HAVE AN ERROR
:64¥ INTERLEAVED MEMORY?

;ARE WE SUPPOSED TO SKIP ERROR P.0.?
:YES - SKIP ERROR PRINTOUT
JELSE PRINT ERROR ADDRESS ERROR
*SAVE CSR'S ERROR ADDRESS
ENABLE THE ERROR PRINTOUT AGAIN
;RESTORE REGISTERS

SEQ 0266

CIMSDBO MSi1-L/M DIAGNOSTIC
TRAP

MACRO M1113

GENERATE AND TEST ERROR ADDRESS

(HKGEN: SUBTST<<SUBR

7015 041662

(07-0CT-80C 18:01

LeSUBTEST

SUBR

PAGE 259 SEQUENCE 260

GENERATE CHECK BITS>>
a2 2

R X R R R R R A R R R AR AR

GENERATE CHECK BITS

SEQ 0267
AR AR

RRRRARD D

;'t"'tt't"'t"""""""'t"'itli""i""t'""Q""tt'""'Q"Q""""t"

;CHECK BIT GENERATOR ROUTINE
;CALLING SEQUENCE 15

7016
7017
7018
7019
7020
7921
7022

7023 041€62
7024 041676
7025 041702
7026 041706
7027 041712
7028 041714
7029
7030 041716
03 041720
7032 041722
7033 041724
7034 041730
7035
7036 041732
7037 041736
7038 041740
7039 041742
7040 041744
7041 041746
7042 041752
70463 041766

MOV

CALL

#WORD1,SOURCE
CHKGEN

;SOURCE = ADDRESS OF DATA

SCHECK BITS RETURNED IN BITS 11-5 OF LOCATION CHECK
PUSH

000077
041770
002272

001372

042702
000302
006202
006202
006202
010237
000207

000001
177600

002274

#77,R2

SX1

MOV
MOV
MoV
MOV

1%:

RO,R1,R2,R3,R4,RS

MOV

#CHKTAB,R3
SOURCE ,RS
(RS)+,R1
(RS),RO

:DEFAULT CHECKBITS FOR DOUBLE WORD OF ZEROS
;ADDRESS OF (HECKBIT TABLE
;:GET SOURCE ADDRESS
;GET LSB'S
;GET MSB'S

:EXTEND SIGN OF DOUBLE WORD TO Ré

XOR
ASHC
BNE

(R3)+,R4

R4 ,R2
#1,RO0
1%

;ELIMINATE BITS THAT DON'T COUNT

BIC
SWAB

#°C177,R2
RZ

:KILL ALL JUNK BITS
:POSITION CHECKBIT5 IN BITSZ 11=-5

BI(8

ASR
ASR
ASR
MOV

POP

RE TURN

R2
R2
RZ
R2,CHECK

:COMPLEMENT MASKED BITS IN CHECKBITS
:DOUBLE PRECISION LEFT SHIFT RO,,R1
;LOOP TILL ALL BITS ARE CHECKED

RS,R4,R3,R2,.R1,R0

(ZMSDBO MSi1-L/M DIAGNOSTIC

SUBR

7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067
7068
7069
7070
7071
7072
7073

GENERATE

041770
04641770
041771
061772
041773
041774
041775
041776
041777

200
301
302
203
304
205
206
307

042000
042001
042002
042003
042004
042005
042006
042007

310
PAR
212
313
214
315
316
217

042010
042011
042012
042013
042014
042015
042016
042017

320
221
222
323
224
325
326
227

7074 042020

7075 042021
7076
7077
7078
7079
7080
7081

CHECK BITS

042022
042023
042024
042025
042026
042027

340

2461

242
343
244
345
346
247

MACRO M1113

(07-0CT-80 18:01

(HKTAB:

;BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
:BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE
:BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE
;BYTE

BYTE

BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE

PAGE 261

SEQUENCE 261

~C177
*C076
~C075
*(C174
~(073
(172
*C1N
4070

;BIT
;BIT
;BIT
:BIT
;BIT
:BIT
:BIT
BIT

N
30
29
28
27
26
25

~C067
*C166
~(165
*C064
€163
€062
2061
*C160

BIT
BIT
;BIT
:BIT
;81T
:BIT
;BIT
;BIT

23
22
21
20
19
18
17
16

*C0S7
*C156
*C155
“C0S4
(153
(052
05
*C150

,BIT
:BIT
:BIT
:BIT
:BIT
:BIT
:BIT
:BIT

15
14
13
12
11
10
9
8

*C037

.811

*C135
*C034
0133
~(032
~(ON
~C130

:BIT
;BIT
;BIT
;BIT
BIT
:BIT

*C136

BIT

5
&
3
2
1
0

SEQ 0268

CIMSDBO MS7i1-L/M DIAGNOSTIC

SUBR

GENERATE

CHECK BITS

MACRO M1113

(07-0CT-80 18:01

7084 042030

PAGE 263 SEQUENCE 262

SUBTSTCCSUBR

SEQ 0269

MAPPER>>

;t"lt"'"'Qt't't'"'ti"""""'t't..""""""""""Q"'l.""""""'.

T«SUBTEST

SUBR

MAPPER

;titt"it'tt"'t"'""'Q""Q't"."ttt""""tt"l"i"""""".'t.""t"'

7085
7086
7087
7088
7089
7090
7091
;8g§
7094
7095
7096
7097
7098
7099
7100
7101
7102
7103
7104
7105
7106
7107

:THIS SUBROUTINE MAPS THE MEMORY BANK (16K WORDS = 1 BANK)
;IN R3 TO THE TEST PATTERN AREA (SUPERVISOR VIRTUAL (60000 - 157777) FOR
STHE 11744 AND 11/45-55; USER VIRTUAL (60000 = 157777) FOR ALL OTHER
SPOP-11'S).
:
SCALL
MOV
BANKNO,R3
;SET UP BANK ARGUEMENT
:
CALL
MAPPER
TACTUAL CALL
:
RE TURN
SONLY RETURN
042030
042042
062046
062052
042056
042062
042066
042070
042074
042100
042104
062106
042110

MAPPER:

;SET SUPERVISOR/USER UP FOR
PUSH
RO,R1,R2.R&,RS
MOV
#X1PARO, RO
MOV
#SIPARO.R1
MOV
#S1PDRO,R&
ST
NOSUPER
BEO
4
MOV
#UIPARO,R1
MOV
#UIPDRO . R4
MOV
877606 ,R2
MOV
#8. RS
MOV
(ROY+, (R1)+
MOV
R2. (RG)+
S0B
RS.1$

TO 1

MAP

012700
012701
012704
005737
001404
012701
012704
012702
012705
012021
010224
077503
012741

172340
172240
172200
002426

177600

MOV

042116

022703

000170

:SET UP SUPERVISOR/USER FOR TEST AREA
CMP
#120..R3
;MAP NOTHING

042126

072327

000011

042130
062134
062140
062142

012701
005737
001402
012701

172246
002426

7120 042152

010321

;}88 062112
7110
7111
7112
(113
7114
7115
7116
7117
7118

042122

7119 042146
7127 0421564

001516

000004

062703

000200

042160
062162
062166
0642170
042174
042176
042202
0642210
042212
062214
042216

077204
005737
001442
162701
010102
062702
022737
001403
010200
010102
010001

7134
7135
7136
7137

062222
062224
062230
062234

011112
013700
005737
001403

48:
1%:

BEQ

177646

012702

7122
7123
7124
7125
7126
7127
7128
7129
7130
7131
7132

7133 062220

177640
177600
077406
000010

5¢

28:

002232
000010

000004
000001

012122

002232

108:
002102
002136

#177600,-(R1)

:FIRST AREA TO MAP TO
*FIRST A.DRESS REGISTER
SFIRST DESCRIPTOR REGISTER
:CAN WE USE SUPERVISOR MODE?
:YES, BRANCH
“FIRST ADDRESS REGISTER
“FIRST DESCRIPTOR REGISTER
“CONSTANT FOR 4K PAGE, UP, R/W
- COUNTER
:PUT IN SUPERVISOR ADDRESS
:PUT IN SUPERVISOR DESCRIPTOR
:LOOP TILL DONE

SCORRECT LAST FIELD FOR PERIPHERALS PAGE

SYES - SKIP

TO 1)?

ASH

¥9..R3

MOV
ST
BEQ
MOV

#SIPAR3,R1
NOSUPER
5¢
#UIPARZ,RY

*BANK 1 STARTS AT 100,000 LESS 6 LSB'S
:FOR MEMORY MANAGEMENT = 1000
SSETUP FOR AUTO INCREMENTING
‘DO WE HAVE SUPERVISOR MODE?
:YES - BRANCH
SSETUP FOR AUTO INCREMENTING

MOV

RS,

‘PLUG IN PAR

MOV

¥4 ,R2

(R1)+

ADD

#200,R3

MOV

(R1)+, (R2)

S0B
ST
BEQ
SUB
MOV
ADD
CMP
BEQ
MOV
MOV
MOV

MOV
MOV
83
BEQ

R2,2$
SPLTCSR
9%
#10,R?
R1,R2
2 ,R2
#1.SPLTCSR
10%
R2.RO
R1,R2
RO,R1
(R1), (R2)
BANK INDEX , RO
INT64K
11%

:COUNTER

INFO

*BUMP ADDRESS 4K
:LOOP TILL DONE

CIMSDBO MSil-L/M DIAGNOSTIC
SUBR
MAPPER
7138
7139
7140
7141
7142
7143
7144
7145
7146
7147
7148
7149

042236
042242
042244
042250
042254
042256
042262
042264
042270
042272

7150
7151
7152
7153 042274

7154 042302

7155 042304
7156 042310
7157 042312
7158 042320

7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169

042322
042324
042332
042334
042340
042342
042350
042352
042360
042372

012700
000402
012700
005737
001403
012701
000402
012701
060021
060011

7175 042424
7176 042430
7177 042432

012704
010021
010223

7179 042440

7180 042442

7181 042646
7188 042452
7189 042464

012703

000177

002526

002426
177654

172252

172254

7%:

6%:
3%:

$KMAP:
172340
077406

172300

000010

012741

177600

000002

9%:

RS :

177652

000200

012741

002526

002100

062700
077405

138:
14%:

000007

000207

005000
012701
012702

7178 042434

172252

002424

001012
005737
001404
013737
000403
013737

11%:
12%:

177652

005737
001423
022737
001017

7170 042374
7171 042406
7172 062410
7173 042414

7174 062420

010000
002426

000007

000404
022737

07-0CT-80 18:01

004000

022737

001010

MACRO M1113

177400

PAGE 263-1 SEQUENCE 263

MOV
#4000,R0
BR
12%
MOV
#10000,R0
TST
NCSUPER
BEQ
13$
MOV
#UIPARS,R1
BR
14%
MOV
#5IPARS
,R1
ADD
RO, (R1)¢
ADD
RO, (R1)
;IF WE ONLY HAVE AN 124K SYSTEM, WE DON'T WANT TO TEST THE
;LAST 4K, WHERE THE UNIBUS DEVICE PAGE IS. INSTEAD, THE

:PROGRAM WILL REMAP THE LAST 4K TO 8-12K. ALSO, IF THERE
;IS A BANK 177 ON AN 11/44, THE PROGRAM WILL REMAP THE LAST
;4K TO B8-12K FOR THE SAME REASON.
CMP
#7,LASTBANK

BNE

TST
BEQ
CMP
BNE

NO22BIT
3%
#7 ,BANK
3%

BNE
TST
BEQ
MOV
BR
MoV
POP

3%
NOSUPER
6%
UIPARS ,UIPARG
3s
SIPARS,SIPARG
RS,R4,R2,R1,RO

BR
cMp

RETURN
.SBTTL

8$
#177 ,LASTBANK

;11/44 OR 242
;BRANCH IF SO
;BANK 7?
:NO - BRAN(H

PUSH
CLR
MOV
MoV

TRAP
MAP KERNEL (ALMOST 1 TO 1) TRAP HANDLER
RO,R1,R2,R3,R4
RO
;1ST AREA TO MAP TO
#X1PARO,R1
;FIRST ADDRESS
#77406,R2
sCONSTANT FOR 4k PAGE,UP,R/W

MOV
Mov
MOV

#8. R4
RO,(R1)¢
R2,(R3)¢

MoV
1$:

ADD

508

MoV

MoV
POP
RTI

#x1PORO,R3

;1ST PAGE DESCRIPTOR REGISTER

#200,R0

:ADD ADDRESS CONSTANT FOR &K (HANGE

R4,1$

#1£7600,-(R1)

#177400,-(R1)
R4 ,R3,R2,R1,RO

: COUNTER
sPUT IN KERNEL ADDRESS
¢PUT IN KERNEL DISCRIPTOR

;LOOP TILL DONE

:THE PERIPHERALS PAGE TO KIPAR?
;AND NEXT LOWER PAGE TO KITMAR6

SEQ 0270

CZMSDBO MS’1-L/M DIAGNOSTIC

TRAP

MACRO M1113

07-0CT-80 18:01

MAP KERNEL (ALMOST 1 TO 1) TRAP WANDLER

7192 042466

L 5
PAGE 265 SEQUENCE 264

SEQ 0271

RELOCATE:SUBTST <CRELOCATE PROGRAM>>

.‘""t"t'."""""""""""t""'fi".tt'ttt"t""t.""Q"""".Q"Q""

RELOCATE PROGRAM

S eSUBTEST

;t'Q'I'fi""'Q'Q""i"""i""".t""."t'tt"ttt'tt't"i'ti""""""""'

7193 042466

IF #SW12 SET.IN @SWR THEN SRETURN ERROR
IF APTFLAG IS TRUE OR ACTFLAG IS TRUE
IF $PASS NE #0 THEN SRETURN ERROR

7194 042502

7195 042516
7196
7197
7198
7199

042530
042530
042530
042536

004737

044240

7204 042600

013700
010037
013701
004737

002100
002402
002536
043710

7206 042610
7207 042614
7208 042622

013701
052761
042761

002102
100000
020000

7200
7201
7202
7203

042542
042564
062570
042576

7205 042604

7209 042630
7210 042632
7211 042632

004737

END; OF IF APTFLAG
BEGIN LOADERBANK
FOR BANK := #1 TO LASTHANK
CALL EXBANK

IF ACFLAG 1S TRUE AND PFLAG IS FALSE AND BMFLAG IS FALSE
MOV
BANK RO
MOV
RO, LOADBANK
MOV
LOADHOME
,R1

044206

002626
002626

013702
006302
006302

002526

7242 043042
7243 043044
7244 043950
7245 043052

;RELOCATION NOT POSSIBLE

MOV
LASTBANK
,R2
ASL
R2
ASL
R2
:R2 <= R2 * &
FOR R1 :=_#2¢2 TO R2 BY #4

IF #BIT7'BITO OFF.IN CONFIG(R1) ;IF NO ERRORS & NOT PROGRAM SPACE
IF #BIT15 OFF.IN CONFIG+2(R1) :IF NOT LOADER BANK
IF CPUBIT SET.IN CONFIG(R1) :IF ACCESSABLE
IF #BIT9 SET.IN CONFIG+2(R1) THEN LEAVE FINDBANK ;IF PARITY
IF #B1T6 SET.IN CONFIG(R1) AND WBIT7 OFF.IN CONF[G(R1)

010137

:1F 1ST PROTECTABLE ECC BANK
LEAVE F INDBANK
END ;Of IF #BIT6
IF INNECC IS FALSE
SET
INHECC
MOV R1, INHBANK
END; OF IF [NHECC
END ;OF IF CPUBIT

002510

END ;Of IF #BIT1S
END ;Of IF #B1T7

7237 043004

7241 043034

M$GO7S5

;MARK LOADER
*INVALIDATE BACKGROUND PATTERN

SRETURN ERROR
END LOADERBANK
BEGIN F INDBANK

7235 043004
7236 043004

7238 043014
7239 043022
7240 043030

;MAP NEW LOADER BANK IN KERNEL

LEAVE LOADERBANK
END ;OF IF ACFLAG
END ;OF FOR BANK

END ;OF IF #SwW13

7222 042702
7223 042712
7224 042727
7225 04273¢
7226 042742

7227
7228 042762
7229 0462764
7230 042764
7231 042772
7232 043000
7233 043004
7234 043004

BANK INDEX ,R1
#BIT1S,CONFIG+2(R1)
#BIT13,CONF1G+2(R1)

NEWLOAD

TYPE

7214 042662

042666
042672
042674
062676

MOV
BIS
BIC

IF #SW13 OFF.IN aSwR

7213 042656

7218
7219
7220
7221

BANKMOV

CALL

7212 042646
7215 042662
7216 042666
7217 062666

CALL

END ;Of FOR

013701

023727

001423

000420

002510

002260

000030

IF FULLREL 1S FALSE
IF INWECC IS TRUE
MOV
INHBANK,R1

CMP

BEQ
TYPE
BR

REALPAT.#30
RELENT
MSG123
RELENT1

END; OF IF [NWECC

;1S THIS PATTERN 307
YES - SKIP MESSAGE

CIZMSDBO MSi11-L/M DIAGNOSTIC
RELOCATE PROGRAM
7246 043052

7247 043052
7248 043056

0C5037

002506

7250
7251
7252
7253

023727

001402

002260

7249 043066

043074
043076
043102
043102

MACRO M1113

END; OF

000030

042761

020000

7258 043122
7259 043126
7260 043132
7261 043140
7262 043144
7263 063152
7264 043164

071027

000004

013737
004737

002502
044056

7266 043174
7267 043176
7268 043204
7269 043210

001021
042737
013700
006200

7257 043120

7265 043166

7270 043212

005000

104417

022737

003710

000040
002270

172516

170200

012737

100000

7273 043222
7276 043226
7275 043232
7276 043240
7277 043246
7¢78 043252
7279 043256
7280 043260
7281 043262
7282 043266
7283 043270
7284 043274

010037
004737
052737
042737
004737
013700
(06300
006300
016002
000302
042702
006302

170202
043644
000040
000001

7285 043276
7286 043304
7287 043310
7288 043316
7289 043320
7290 043324
7291 043330
7292 043334
7293 043340

7294 043344
7295 043352

052737
010237
032760
001412
016002
042702
072227
052702
050237

002504

000001

7271 043214
7272 043222

002626

044140
002270

172516
177572

002624
177760

000001
002502
010000
002624
007777
177775
100000
002502

177572

PAGE 265-1 SEQUENCE 265

IF FULLREL

CLR
INHECC
IF #SW13 OFF.IN aSWR

:MAKE SURE FLAG IS TURNED OFF!:

BEQ
SKUB
TYPE
MSGO75
END ;OF IF #SW13
$RETURN ERROR

;YES = SKIP MESSAGE
;RELOCATION NOT POSSIBLE

CMP

SKUB:

7254 043106

7255 043106
7256 043112

07-0CT-80 18:01

REALPAT,#30

END FINDBANK

CLEAR
RELENT1: BIC
CLR

INHECC
#BIT13,CONFIG+2(RY)
RO

DIV
46 ,R0
RELOCT: LET NEWBANK := RO

MOV
CALL
USER
BMOV
KERNEL
CMP
BNE
BIC
MoV
ASR

ON.ERROR

PGMCSR ,PGMCSR¢2
USERMAP
0.100000,S12¢

#1,PROTYP

JMPRL1
#BIT5,MMR3
NEWBANK ,RO
RO

MOV

#BIT15,MAPLO

MOV
CALL
BIS
JMPRL1: BIC
CALL
MOV
ASL
ASL
MoV
SWAB
BIC
ASL

RO, MAPHO
LOWMAP
#BITS, MMR3
#B1T0,MMRO
NEWKERNEL
NEWBANK
, RO
RO
RO
CONFIG(RO)
,R2
R2
#C17,R2
R2

;1S THIS PATTERN 30?

;1F WE RELOCATED PROPERLY, THIS SHOULD BE OFF!
s INVALIDATE BACKGROUND PATTERN

;SAVE CURRENT PGM. (SR
+MAP NEWBANK TO USER PAR
;ENTER USER MODE
:MOVE PROGRAM
;ENTER KERNEL MODE
;1S THIS AN 11/44 ?
;JUMP IF NOT
;TURN OFF UNIBUS MAP

END ;OF ON.ERROR

002626

18:

BIS
MoV
BIT
BEQ
MOV
BIC
ASH
BIS
BiS

#8170,MMRO
R2,PGMCSR
#BIT12,CONF1G+2(R0)
1%
CONF1G(RO)
,R2
#+C170000,R2
#-3,R2
#BIT15,R2
R2 ,PGMCSR

SET
KLFLAG
SRETUKN NOERROR

SEQ 0272

;SETUP LOWER 16K IN UNIBUS MAP
JENERGIZE UNIBUS MAP
;DEENERGIZE MEMORY MANAGEMENT

;RO <~ RO * &

;ENERGIZE MEMORY MANAGEMENT
;PUT NEW PGM. (SR INTO PGMCSR
;1S THE NEW BANK INTERLEAVED?
;BRANCH IF NOT [INTERLEAVED

CIMSDBO MSi1-L/M DIAGNOSTIC

RELOCATE PROGRAM

MACRO M1113

7298 043356

07-0CT-80 18:01

NS
PAGE 267 SEQUENCE 266

UNRELOCATE : SUBTST

SEQ 0273

CCUNRELOCATE PROGRAM>>

;ttttQ'ittttttt"'tttt""tt"'t"'tttfi.ttQ"'tt'li"'t""tt't""""""Qt'.'

S «SUBTEST

UNRELOCATE PROGRAM

;t'ttt'itt'tit't't'ttti't"t"'t'tt'Itt"tt'tt'tt't't'fi"Qtt't""""""t""'

7299
7300 043356
7301 043360
7302 043364
7303 043370
7304 043374

7305
7306
7307
7308
7309
7310
7311
7312

043400
043404
063412
043416
043422
043430
063436
043442

7313 043446
7314 043454

013701
013700
004737
004737

002402
002536
043710
044206

013737
004737
013701
042761
013737
004737
013701
042761

002402
044240
002102
100000
002536
044240
002102
020000

;RESTORE LOADERS
PUSH
RO
MOV
LOADBANK
,R1
MOV
LOADHOME .RO
CALL
BANKMOV
CALL

002100
002626
002100
002626

7317
7318 043464
7319 043472
7320 043476
7321 043502
7322 043510
7323 043522
7324 043526
7325 063532
7326 043536
7327 043544
7328 043552
7329 043556
7330 043564
7331 043566
7332 043574
7333 043604
7334 043610
7335 043616

7336 043622

7337 063626
7338 043632
7339 043636
7340 043640
;gz; 043642

042737

020000

004737

044056

104417
042737
004737
013737
052737
005037
022737
001014
042737

002626

000001
044140
002504
000001
002124
000001

002502
177572

000040

172516

004737
052737
012700

043644
000040
002626

172516

062700
020027
003771

000004
003620

042710

020000

177572

003710

1%:

2%:

000207

7343 043644

BANK
LOADBANK
, BANK
EXBANK
BANK INDEX, R1
#B1T15,CONF16+2(R1)
LOADHOME
, BANK
EXBANK
BANK INDEX,R1

CLEAR

INHECC

BIC
POP

;§12 043460

LOWMAP:
At X222

NEWLOAD

PUSH
MOV
CALL
MOV
BIC
MOV
CALL
MOV

#B1T13,CONF1G+2(R1)
BANK

;MAP NEW LOADER BANK

[N KERNEL SPACE

:CLEAR LOADER FLAG

; INVALIDATE BACKGROUND PATTERN

:MAKE SURE ECC TESTS ARE NOT INMIBITED!

;RESTORE BANK 0
BIC
#BIT13, CONF1G+2
; INVALIDATE BACKGROUND PATTERN
LET NEWBANK := #0
CALL
USERMAP
;MAP NEWBANK TO USER PAR
USER
:ENTER USER MODE
BMOV
0,100000,S1ZE
:MOVE PROGRAM
KERNEL
*ENTER KERNEL MODE
BIC
#B1T0,MMRO
‘DEENERGIZE MEMORY MANAGEMENT
CALL
NEWKERNEL
MOV
PGMCSR+2,PGMCSR
;RESTORE PREVIOUS PGM. CSR
BIS
#B1T0,MMRO
SENERGIZE MEMORY MANAGEMENT
(LR
RLFLAG
(MP
#1,PROTYP
;1S THIS AN 11744 2
BNE
1$
BIC
#BITS,MMR3
;TURN OFF UNIBUS MAP
CLEAR
MAPLO.MAPHO
CALL
LOWMAP
;SETUP LOWER 16K OF UNIBUS MAP
8IS
#BITS,MMR3
*ENERGIZE UNIBUS MAP
MOV
#CONFIG*2,RO
;MOVE 2ND WORD OF CONFIG 10 RO

BIC

#81113, (RO)

:CLEAR BACKGROUND VALID BIT

ADD
CMP
BLE
POP
RE TURN

#4 R0
RO.#3620
28
RO

SUBTST

<<SETUP LOWER 16K OF

22122222222

SeSUBTEST

X222

- INCREMENT TO NEXT BANK
- DONE?
*NO - BRANCH

222222

UNIBUS MAP>>
X222 X2 X2 2R

SETUP LOWER 16K OF UNIBUS MAP

k223

R EE2 XA R

R R R EE R R XA E R EEEEE R

.'.t'ti.'tttt'.t't"""'0"'!'li't't'ttti!tt!t't"!ttttttt'lttt.tttt'ltt'tQQQQlt

7344 043644

PUSH

RO,R1,R2

7345 063652

012700

170200

MOV

smiPLO
RO

7347 043662

012702

000003

MOV

23 R?

7346 043656

7348 063666

012701
012011

170204

MoV
1%-

MOV

#MAPLY
R1

(RO)+
. (R1)

CIMSDBO MSi1-L/M DIAGNOSTIC

SETUP LOWER 16K OF UNIBUS MAP
7349
7350
7351
7352
7353

0643670
043674
043676
043700
043706

062721
012021
G77205
000207

020000

MACRO M1113

07-0CT-80 18:01
ADD
MoV
s08
POP
RETURN

B 6
PAGE 267-1 SEQUENCE 267

#BIT13,(R1)+
(ROY+, (R1)+
R2,1%
R2,R1,RO

SEQ 0274

{IMSDBO MSi1-L/M DIAGNOSTIC
SETUP LOWER 16K OF UNIBUS MAP
7356 043710

MACRO M1113

07-0CT-80 18:01

6
c
PAGE 269 SEQUENCE 268

BANKMOV: SUBTST

<<MOVE BANKS>>

. *SUBTEST

MOVE BANKS

;""tQ'Qt".itt'.tt""""""""""QQ'i"""t"t""""tt'""Qi"t"""
;'"'t"i""'t"'t"i"""'i""tt"""'t""'t!tt'Q'"""Q't"""t"'t.'t'

;MOVE 3/4 OF A BANK

sCALLING SEQUENCE
;RO = DESTINATION BANK
;R1 = SOURCE BANK

7361
7362
7363
7364
7365
7366
7367
7368

043710
043712
043716
043720
043722
043726
043732
043736

104415
072027
072127
012702
012703

7370
7371
7372
7373

043742
043744
043746
043750

010122
060301
010122
060301

ADD
MOV
ADD

7375
7376
7377
7378
7379

043752
043754
043756
043760

7380 043762
7381 043770
7382 064002
7585

7386 044010
7387 044012
7388 044014
7389 044016
7390
7391 044020
7392 044022
7393 044024
7394 044026
7395
7396 044030
7397 044036
7398 044050
7399
7400 044052
7401 044054

104415

004737

104416

044056

SAVREG
CALL

RESREG

SAVREG

USERMAP

ASH
ASH
MOV
MOV

#9.,R0
. ,R1
#UIPARL ,R2

MOV

R1,(R2)+
R3,R1
R1,(R2)+
R3.R1

010022
060300
010022
060300

MOV
ADD
MOV
ADD

RO, (R2)+

104417

USER
BMOV
KERNEL

100000, 140000,S12€/2

MOV

SFUIPARSL ,R2

010122
060301
010122
060301

MOV
ADD
MOV
ADD

R1,(R2)+
R3,R1
R1,(R2)+
R3,R1

010022
060300
010022
060300

MOV
ADD
MOV
ADD

RO, (R2)+
R3.RO
RO, (R2)+

1044617

USER
8MOV
KERNEL

012702

104416

000207

000011
00001

177650
000200

177650

RESREG
RETURN

#200,R3

sMAP 1ST HALF BANK
;BUMP BY 4K

;MOV 1ST HALF BANK

;ENTER KERNEL MODE

;MAP 2ND HALF BANK
;BUMP BY &K

.MOV 3ND FOURTH Of BANK
100000,140000,S12E/4
;ENTER KERNEL MODE

SEQ 0275

CIMSDBO MSi1-L/M DIAGNOSTIC

MOVE BANKS

7604 044056

MACRO M1113

0_6

07-0CT-80 18:01

PAGE 271 SEQUENCE 269

USERMAP:SUBTST

<<SUBR

MAP USER TO NEW BANK>>

S «SUBTEST

SUBR

MAP USER TO NEW BANK

SEQ 0276

:'"t'"."'i'"""""""""'"'"""'."t.t".""""i""'."'."".""
:t'Q""'Q""'"'Q""Q"""t"iQ"'Q""Q""""Q""'.Q""'Q'Q'Q""""Q'

74605
74606
74607
7408
7409
7410
7411
7612
7613
7614
7415
7416
7617
7618
7419
7420
74621
7422
7423
7424

MOV

044056
044062
044066
044072
044076
044102
044104
044106

1$:

044110
044114

002270
000011

044120
044124
044126
044132
044134
044136

000004
000200

MOV
MOV
MOV
MOV

MOV
MOV

000207

NEWBANK
, RO

9. .R0
# RS

:BANK 1 STARTS AT 100,000 LESS 6 LSB'S
"FOR MEMORY MANAGEMENT = 1000

MOV

RO, (R1)+

;SETUP UIPAR(4=7)

MOV
S0B

(R4) . (R3)+
RS,2$

*SETUP UIPDR(4=7)

ADD

NEWKERNEL : SUBTST
X

(RO)+, (R1:+

MOV

:COPY KERNEL PAR'S & PDR'S (0-3)

(R4), (R3)+

RS,1$

RE TURN

044140

#K1PARO
.R2
#UIPDRO.R3
#K1PLRO
Ré
74 RS

SOB

ASH

2%:

#UIPARO,R1

#200,R0

22222222222 R

; *SUBTEST

SUBR

<C<SUBR

:BUMP ADDRESS &K

SETUP KERNEL PAR'S FOR NEW BANK>>

XTI XXX T2 2222232322222

SETUP KERNEL PAR'S FOR NEW BANK

2222220220

RRARRRRRRRR)

;'fi"'.'t'.t."i""'Q""i"'i""'i"""'t"itl"it"tt'i"'.""i"""""'

7425
7426
74627
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437

044140
044146

044152
044156

044162
064166
064170
044174
064176
064204

012700
013701
072127
012705
010120
062701
077504

172340

002270
000011

006004
000200

PUSH
MOV
MOV

RO,R1,RS
#X{PARO
. RO
NEWBANK
.R1

MOV

¥4 RS

ADD

#200,R1

ASH

1$:

MOV
OB
POP

RE TURN

000207

044206

9. ,R1

R1.(RO)+

:BANK 1 STARTS AT 100,000 LESS 6 LSB'S
"FOR MEMORY MANAGEMENT = 1000

;SETUP KIPAR(0-3)

RS.1$
RS .R1,RO

NEWLOAD:SUBTST

<<SUBR

SETUP KERNEL PAR'S FOR NEW LOADER BANK>>

L«SUBTEST

SUBR

SETUP KERNEL PAR'S FOR NEW LOADER BANK

""'."""tt..""""'""""""'it'."'I.t".i""t"'"".""."""'.".
.'"i"'...t't'."'.""""""'i"'.""t"tl"'l"'"'Q'"'.'.'.'."'.'."".'

7438
7439
7440
74641
7642
7443
7644
7445
74646

044206
044212
0446216
044222
044224
044230
044232
044236

012701
072027
010021
062700
010021
000207

172350
000011

000200

;RO CONTAINS THE DESTINATION BANK
PUSH
RO,R1
MOV
#XiPARG
R

ASH

9. ,R0

ADD

#200,R0

POP

R1.RO

MOV

RE TURN

RO, (R1)+

:BANK 1 STARTS AT 100000 LESS 6 LSB'S (1000)
“SETUP KI1PAR&

-SETUP KIPARS

MACRO M1113 07-0CT-80 18:01
(ZMSDBO MSi1-L/M DIAGNOSTIC
SUBR
SETUP KERNEL PAR'S FOR NEW LOADER BANK
EXBANK:

7449 044240

SUBTST

E_.6
PAGE 273 SEQUENCE 270

<<SUBR

EXAMINE BANK>>

SUBR

EXAMINE BANK

;t"""l'tt""""""""""""Q'Q"""'.Q"."QQ""'Q"Q""""""Q"Q

s *SUBTEST

!'Q"'tQtt"'t"'""'Q""""'Q'QQQ"'Q"'"""'Q""Q'QQ"""QQ'Q"QQ"'Q'

:DOES THE FOLLOWING:

SETS UP "BANKINDEX'' AND R1 BASED ON VALUE OF 'BANK''.

,(1

SETS
SETS
SETS
SETS
SETS
SETS

22
(3
s (4

N
-

; (1
(1
;1

'MKFLAG'" IF THE BANK IS ECC.
"'KFLAG'' IF THE BANK IS MF11S-K.
''KPFLAG'' IF THE BANK IS THE PROTECTED REGION OF ECC MEMORY.
"'ACFLAG'' If THE BANK CAN BE ACCESSED BY THIS CPU.
"'PFLAG'' IFf THE BANK IS IN PROGRAM SPACE.
"RRFLAG'* IF RELOCATION IS REQUIRED TO TEST THIS BANK; HOWEVER,

ARE BEING TESTED AND THIS BANK IS NOT SELECTED.

18 )

THE
THE
THE
THE
THE
THE

IT COMPLEMENTS THIS FLAG IF THE RELOCATION FLAG 'RLFLAG'' IS SET (THIS 1§
NECESSARY FOR THE USE OF THE RECURSIVE 'MODE'’ SUBROUTINES). THE ‘'RRFLAG'
1S ALWAYS SET TO ODISABLE TESTING IF FIELD SERVICE MODE ‘'SELECTED BANKS''

N2O~

7450
7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464
7465
7466
7467
7468
7469
7470
I1£XA
74672
74673
7474
7475
7676
7477

SETS THE 'BMFLAG'' !F THE BANK IS A BAD MEMORY;
HOWEVER, IT (COMPLEMENTS
THIS FLAG IFf THE 'WORST FLAG IS NOT SET
(THIS IS NECESSARY FOR THE USE
OF THE RECURSIVE '‘MODE'' SUBROUTINES).
SETS THE "‘EUFLAG'' IF THE BANK HAS EXTENDED UNIBUS MEMORY.
SETS THE "INTFLAG'' If THE BANK IS INTERLEAVED.
SETS THE ''INTO4LK'' FLAG I1F THE BANK IS INTERLEAVED ON 64K WORD BOUNDS.
gggs ;?nggxxpnx" FLAG IF THIS BANK IS INTERLEAVED, AND HAS ALREADY
N

PUSH

064240
044246
044266

RO,R1,R2

MKFLAG,KPFLAG,KFLAG,EUFLAG

CLEAR

SET
CLEAR

064274

044310
044324
044330
7478 044332
7479 044334
7480 044340
7481 044346
7482 044350
7483 044356
7487 044362
7488 044376
7489 044402
7494 044402
7495 044406
7496 044410
7497 064414
7498 044416
7499 064422
7500 044426
7501 044430
7502 044436
7503 064442
7504 064450
7505 064452
7506 044660
7507 044666
7508 044470
7509 064476

CLEAR

013701
006301
006301
010137
032761
001403

002100

012700

000002

005037

002114

005737
001415
016102
000302
042702
020227
003005

002114

000137
032761
001003

044700
000400

002626

12%:

032761
001012

001000

002626

28%:

032761

002102
000100

MoV
ASL

MOV

BIT

1%:

8EQ
SET

MOV

CLR

BEOQ
MOV

SWAB

177770
000002

Rl
RY

" ANKINDEX

;RY

<= R1

¢ 4

;PROTECTED REGION OF ECC MEMORY?

2 16,LINFIG(RY)

:NO - SKiP

$
KPFLAG

#B171,R0

ACFLAG

If RO

SACTIVE MEMORY?

ACFLAG

"BRANCH IF NOT

128

CONF ;G*+2(R1),R2

BIC

#°C7,R2

-1SOLATE MEM TYPE BITS

BGT
SET
NP
BIT
BiE
SET
BIT
BNE

12¢
BMFLAG
ENE XBK
#B1 18, CONF1G+2(R1)
2%
EUFLAG
#B119,CONF16+2(RY)
{3

‘BRANCH IF NOT
SSET BAD BANK FLAG
1JUMP OVER REST OF FLAG TESTS
1S THIS EUB?
‘BRANCH [F NOT
"YES - SET EUB FLAG
*1S THERE ECC TMERE®
INO - SKIP

OBITB CONF 16+2(RY)

S1S THIS MF115-K MEMORY

CMP

002626

BANK,R1
Rl

. IN CONFIG(RY)
If RO SET.IN CPUBLIT AND RO OFF

END ;OF

002626

000400

INTFLAC, INTOLK,SKIPMK

ASL

002624

ACFLAG
PFLAG,FRFLAG,BMFLAG

SET

R2,80

MKFLAG

SIS THIS AN ILLEGAL MEM 1YPE?

YES - SET MKFLAG

SEQ 0277

MSi1-L/M DIAGNOSTIC

EXAMINE BANK

044504
044506
044514
044522
044524
044540
044544
044546
044552
044560
044562
044570
044574
044576
044602
044620
044626
044626
044634
044636
044644
044652
044654
044662
044670
044672
044700

044706

MACRO Mi113

001403
032761
001406

000200

005737
001402
005137
032761
001403

002124

005737
001002
005137

002540

002122
000001

002626

5%:
002624

6%:

8%:

002126

032761
001421

010000

002626

032761
001403

004000

002626

032761
001403

000040

002626

000207

07-0(T-80 18:01

BEQ
SET
Bl
BEQ

3%
KFLAG
#BIT7,CONFIG(RY)
5%

;NO = [T'S MS11-M
JYES = SET KFLAG
;BANK = PROGRAM SPACE?
:NO - SKIP

8EQ
COM
BIT
BEQ

63
RRFLAG
#B1TO,CONFIG(RY)
8$

;1S PROGRAM RELOCATED?
:NO - SKIP
;YES - COMPLEMENT RELOCATION REQUIRED FLAG
;ERRORS PRESENT IN THIS BANK?
;NO - SKIP

WORST

;1S THIS A WORST FIRST PASS?

SET
TST

SET

IS8T

BNE
COM

PFLAG,RRFLAG
RLFLAG

BMFLAG

9$
BMFLAG

;YES - SKIP
;NO = COMPLEMENT BAD MEMORY FLAG

IF SELONLY IS TRUE AND #BIT14 OFF.IN CONFIG#2(R1)

SET
RRFLAG
END ;OF IF SELONLY

BIT
BEQ

#BIT12,CONFIG+2(RY)
ENEXBK

;1S THIS BANK [NTERLEAVED?
;BRANCH IF [T IS NOV

BIT
BEQ

#BIT11,CONFIG+2(RY)
108

;1S THIS BANK INTERLEAVED WITH 64K BOARDS?
;BRANCH [F IT [S NOT

BIT
BEQ

#BITS5,CONFIG(RT)
ENE XBK

;SHOULD THIS BANK BE TESTFD?
;BRANCH IF [T SHOULD

R2,R?,RO

:RESTORE REGISTERS

SET

10%:

F_6

PAGE 273-1 SEQUENCE 271

SET

SET
POP
:
XBK
ENE

RE TURN

INTFLAG

INTH4LK

SK1PMK

SEG 0278

(ImSDBO MST1-L/M DIAGNOSTIC
SUBR
EXAMINE BANK

MACRO M1113

7540 044710

BANKOK:

SUBTST

BANK 0K?>>

SUBR

BANK 0K?

:TEST 10 INSURE THAT THE TYPE OF MEMORY IN THE PRESENT BANK

7541
7542

044710
044714
044716
044722
0464724

013700
005100
013701
074001
000007

;1S OF THE TYPE WE ARE TESTING ''TMFLAG''.
;RESULT IS RETURNED IN THE CONDITION CODES (0K = (=0)).

002132

MOV

002116

MOV
XOR
RETURN

MKFLAG,RY
RO,R1

SUBTST

<<SUBR

COM

INCRPT:

7550 044726
7551 0464726

INCPAT:
R

0464726
044732
044740

TMFLAG,RO

;0K =

(=0K)

INCREMENT PATTERN TESTING >>

:.QQ""."'QQ""Q'it'ti"'t'tt'ittitt""ttt""t"""'"'Qt"t'i"."'..""

s *SUBTEST
7552
7553
7554
7555
7556
7557
7558
7559

<<SUBR

SEQ 0279

:"t"'Qtt"t't"'t'"Q"t"""ttQ'tt'""ii'l'Q""'t"QQQ"""""QQ"""Q'

. *SUBTEST

7543
7544
7545
7546
7547
7548
7549

G_6
PAGE 275 SEQUENCE 272

07-0CT-80 18:01

005237
022737
000207

002110
000030

002110

HIPAT:

INCREMENT PATTERN TESTING

; INCREMENT THE PATTERN & SET UP THE CONDITION CODES
JRESULT = 7 BIT SET INDICATES OVERFLOW
INC

PATTERN

SUBTST

<<SUBR

SET HIGHEST PATTERN TESTING TYPE>>

SUBR

SET HIGHEST PATTERN TESTING TYPE

CMP
RETURN
SETPAT:

044742
0464742

SUBR

#30,PATTERN

2123322332222 2222222 2223223222222

:+SUBTEST

R L L

;SET UP CONDITION CODES
;NOT EQUAL TO ZERO IS GOCD (NO OVERFLOW)

XN XSRS RN 2220 RRARR Rl

ARl

)]

;itt"t'ti..'l""t""t'i""t""t"'t'ttlti'i't'!""t"'"l't'i'!"""""'

7560 064742
7561 044750
7562
/563 044752

012737
000207

000027

002110

MOV

RE TURN

#27 ,PATTERN

;SET HIGHEST PATTERN

INCBNK: SUBTST

<<SUBR

INCREMENT BANK & TEST>>

s *SUBTEST

SUBR

INCREMENT BANK & TEST

:'.'tit'tl"'i't"'i""'t"t"'iititili"ilt.t'tt'tttt"tll"it"t"""i"'i"
;tt..ti'.i'fi't"'i"i"'i""t'tt"ittt!i"'t.t""t""t't"li'l"tt"'.i‘tt'.'

7564
7565 044752
7566 0464756
7567 044764

00523/
023737
000207

002190
002526

;RESULTS RETURNED IN CONDITION CODES

002100

INC

cmMp

RE TURN

BANK

LASTBANK ,BANK

;100 FAR?

(IMsSDBO MSi1-L/M DIAGNOSTIC
SUBR
INCREMENT BANK & TEST

MACRO M1113

07-0(T-80 18:01

BOOT:

7570 044766

SUBTST

H_6

PAGE 277 SEQUENCE 273

SEQ 0280

<<BOOTSTRAP ROUTINE>>

:tt'"'l"ttt'fi""'""""""""'t"ti""t"tt"'t".'Q"'Q"Q"""Q"""

;*SUBTEST

BOOTSTRAP ROUTINE

:t"'t't't""'fi"""""""""i"""tt.t"t"'fiti'l'.Q't"""""""""'

7571
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596

JINITIALIZE ALL CSR'S
sUNRELOCATE IF NECESSARY
;FLUSH QUT ANY DBE'S
:TURN OFF
:TURN OFF

044766
044770
044776
045010
045014
045016
045022
045024
045032
045034
045036
045042
045046
045052
045056
045060
045062
045066
045070
045072

MEMORY MANAGEMENT
THE UNIBUS MAP

;BOOT RKO OR RK1

104472

ECCINIT

004737

024656

005737
001003
042737
005001
000005
012700
010160
012710
012740

002424

IF RLFLAG IS TRUE THEN SCALL UNRELOCATE
CALL
MT0030
;FLUSH OUT DBE'S
OFF MEMORY MANAGEMENT
“TURN
DEENERGIZE

062701
005710

020000

104421

105710
100376

100761

005007

000040
177406

172516

B80OOTY:
1%:

000004

#B00OT1

TSt
BNE

CLR

NO22BIT
BOOT1
#BLTS,MMR3
R1

MOV
MOV

#177406,R0
R1,4(RO)

MOV
1STB

#5,-(RO)
(RO)

BIC

RESET

MOV

177400

000005

’%:

;TRAP ON DOUBLE BIT ERRORS

SET4

#177400, (RO)

RPL
ADD

28
#BIT13,R1

BM]

CLR

(RO

(NORMAL)

. TRAPS T0 4 GOTO BOOT1

SIS THIS AN 11/44 OR

;TURN OFF

11/242

THE UNIBUS MAP

(IZMSDBO MSi1-L/M DIAGNOSTIC

BOOTSTRAP ROUTINE

MACRO M1113

7599 045074

07-0CT-80 18:01

EXIT:

SUBTST

1_6
PAGE 279 SEQUENCE 274

SE0 0281

:"t"t""t't."'"""""""""""Q'..""'."."'.""'""'.."""'."'

HALT PROGRAM

:*SUBTEST

:"Q"'tt"'i.""'""'"""""Qt'"'"Q""I".""'"""""""""'."'.

7600
7601
7602
7603
7604
7605
7606
7607

045074
045100
045114
045116
045120
045122
045126

004737

045126

000777
000000
000137

063630

EXIT2:

CALL
SHUTUP
IF_APTFLAG IS TRUE OR ACTFLAG IS TRUE

SEXHALT:

ELSE
HALT

JMP

END

7608 045126

SHUTUP:

;OF

SUBTST

START
IF

APTFLAG

<<SHUTDOWN DIAGNOSTIC>>

;'Q'tt'ttitt'it't"'tt"""t'tt't'tt.Qt'."ti"t"'t'Q't"..'.i".""'..'.""

S *SUBTEST

SHUTDOWN DIAGNOSTIC

:t'itt.tii..'ii"iti""""'ti""'ttQtlt"tQQ'tt"Q'".Q't"i"""".""""

7609
7610
7611
7612
7613
7614
7618 045126
7619 045130
7620 045142
7621 045150
7622 045154
7623 045154

7624 045160
7625 045164
7626 045170
7627
7628
7629
7633
7634
7635

045172
045176
045200
045206

;INITIALIZE ALL CSR'S
:UNRELOCATE

;FLUSH OUT DBE'S

:RESTORE

LOADERS

:TURN OFF MEMORY MANAGEMENT

:UNMAP THE UNIBUS MAP
ECCINIT
: TRAP ON DOUBLE BIT ERRORS
IF RLFLAG IS TRUE THEN SCALL UNRELOCATE
IF QUICK IS FALSE
CALL
MT0030
:FLUSH OUT DBE'S
END ;OF IF QUICK
MOV
#1,R0
;DESTINATION BANK

104472

004737

024656

012700
013701
004737

000001
002536
043710

005737
001003
042737
000207

002424

104421

000040

MOV
CALL

LOADHOME ,R1
BANKMOV

:SOURCE BANK

1ST

N0228B1T

'DOES THIS PDP=11 HAVE 22-BIT ADDR?

DEENERGIZE

172516

045210

18:

(NORMAL)

BNE
BIC

RE TURN

APTDOWN:SUBTST

1
#B1T5,MMR3
<<APT

;TUON OFF

MEMORY MANAGEMENT

:BRANCH IF NOT
;TURN OFF UNIBUS MAP

SHUTDOWN SEQUENCE>>

:tt..'t.t'."l'"'ti"""""'i""t."titt'it".t't"!'tt.t""t.'.tt"tt""'

: «SUBTEST

APT SHUTDOWN SEQUENCE

:ttttit'tt.i'i't"Q"f"'tt"'ii"tt'tt't'tt't'ltttt"'ttt"tt't"tt't'!t'Q't't'

7636
7637
7638
7639

045210
045224
045232
045240

7640 045246
7641 0452564
7642 045256

012737
012737
012737
104417

000000

045210
000340
000000

MAP

MOV
MOV
MOV

#APTOOWN,
F IRST 24
#340,F IRST+26
#0,F IRST+APTDOWN

TESTAREA

060024
060026
125210
APTHLT:

KERNEL
HALT

;ENTER

;MAP SUPERVISOR SPACE

TEST MODE

;ENTER KERNEL MODE

(TEST

AREA)

TO BANK #0

CZMSDBO MSi1-L/M DIAGNOSTIC

APT

SHUTDOWN SEQUENCE

7645 045260

MACRO M1113

07-0CT-80 18:01
SUBTST

<<BLOCK MOVE SUBROUTINE>>

CHARNANRNRA AN RN

LeSUBTEST

J
6
PAGE 281 SEQUENCE 275

RN AR RN AR C R RN AR RANARAAANRARRORRERNORNOORNRNCOOOOERTOERNQROETRRTCECECERNCROGOQPOETOETYS

BLOCK MOVE SUBROUTINE

;'t"".l"'t"""""'"""""'i""""'Q'"tQt""'t""t""""".'Q"'t

7646
1647
7648
7649
7650
7651
7652
7653
7654
7655
7656
1657

;BLOCK3 HAS 3 ARGUEMENTS
;BLOCK2 HAS 2 ARGUEMENTS

;BLOCKT HAS 1 ARGUEMENTS

'ALL ARE CALLED BY THE BMOV MACRO

045260
045266
045272
045276

045300
7658 045306
7659 045312
7660
7661 045314
7662 045322
7663 045324
7664 045326
7665
7666 045330
7667 045332

7668 045334
7669 045342
7670

012702
012701
000413
012701
000404
012501
012502
012500
012022
077102
000205

177640

000020

.ENABL
:
PUSH
CK1
BLO
Mov
MOV

BLOCKZ: PUSH
Mov

B8R

BLOCK3: PUSH
2%:
3%
1%:

LS8
RO,R1,R2
FEASTCITY,R?
£16. .R1

RO,R1,R2
76..R1

MOV
MOV
MOV

RO,R1,R?
(RS)+,RY
(RS)+,R2
(RS)+,RO

MOV
SOB
POP
RTS
.DSABL

(RO)+,(R2)+
R1,1%
R2.R1,RO
RS
LSB

SEQ 0282

CIMSDBO MSi1-L/M DIAGNOSTIC

FIELD SERVICE MODE

MACRO M1113

7672

(7-0CT-80 18:01
.SBTTL

PAGE 282 SEQUENCE 276

FIELD SERVICE MODE

FIELDSERVICE : SUBTST

7674 045344

<CSUBR

FIELD SERVICE COMMAND MODE>>

;tt'""""'ti"t"""""""Qti."."'Q'Q.'Q'Q""t"""t"""Q"""'Q"'

SUBR

s *SUBTEST

FIELD SERVICE COMMAND MODE

.'"t.i't'.."'"'t""""""'""'QQ'i""'.""t".""'Q't't"t"t'tt"'t't'

7675 045344

1678 045346
7678 045352
7679 045366
7680 045372

7681 045376
7682 045376
7683 045376

7684 045402

7685 045404
7686 045410
7687 045420
7688 045422

7689 045430
7690 045434
7691 045436
7692 045440
7693 045444
7694 045446
7695 045452
7696 045454

104415

TYPE

005737
001402

1%:
FS1:

104414

000766

045542
045644
045754
046122
046376
046716
047540
047546
050040
050244
050536
050564
050606
050626
050650
050666
050752
051014
051030

7721 045540

000733

;FIELD SERVICE COMMAND MODE

RETURN
END ;OF IF RLFLAG
TST
CACHKN

002514

104424

020027
101403

MSG020

IF RLFLAG IS TRUE OR NOFSMODE IS TRUE
TYPE MSGO48
;NOT AVAILABLE NOW - TRY LATER!
RE SREG

106416
000207

7697 045464
7698 045466
7699 045470
7700 045472
7701 045474
7702 045476
7703 045500
7704 045502
7705 045504
7706 045506
7707 045510
7708 045512
7709 045514
7710 045516
7711 045520
7716 045522
7717 045524
7718 045526
7719 045530
7720 045532

SAVREG

000022

BEQ

SET

KAMIKAZE

PUSH
CONTRL
PUSH
CSRNO,KAMIKAZE
CACHOFF

:SAVE CACHE STATUS
;SAVE (SR & KAMIKAZE STATUS
TURN CACHE OFF

TYPE
RDDEC
POP
CMP

: COMMAND:
“READ A DECIMAL NUMBER
“COMMAND --> RO

MSG026

RO
RO,#18.

BLOS
1%
MSGO21
TYPE
FS1
BR
CASE RO

FSCMDO
FSCMD]
FSCMD2
FSCMD3
FSCMD&

;EXIT FIELD SERVICE COMMANDS
“READ (SR
SLOAD CSR
EXAMINE MEMORY
“MODIFY MEMORY

FSCMDS
FSCMDY
FCMD10
FCMD11

ERROR SUMMARY
REFRESH TEST
SET FILL COUNT
ENTER KAMIKAZE MCOt

SELECT BANK § PATTERN
TYPE CONFIGURATION MAP
:SOB-A=LONG TEST

FSCMDS
FSCMDG
FSCMDT

FCMD12
FCMD13
FCMD14
FCMD1S
FCMD16
FCMD17
FCMD18

END OF CASE

SEXIT KAMIKAZE MODE
TURN CACHE OFF
*TURN CACHE ON
STEST ONLY SELECTED BANKS
RESUME TESTING ALL BANKS
ENABLE TRACE
:DISABLE TRACE

SEQ 0283

MACRO M1113
(ZMSDBO MSil1-L/M DIAGNOSTIC
SUBR
FIELD SERVICE COMMAND MODE

07-0CT-80 18:01

FSCMDO: SUBTST

7724 045542

AR R R R

TeSUBTEST

L 6
PAGE 284 SEQUENCE 277

<<COMMAND 0
s 2

COMMAND 0

EXIT>>
R

2 R R R R R R R R

EX]T

SEQ 0284
A AR

AR AR

R AR AR

AR}

;tt't't""'.tt"""'t""""'t'""'Q""'.".'".'..'Q'."""'.""""Q".

7725 045542
7726 045546
7727 045552
7728 045560
7729 065564
7730 045570
7731 045572
7732 045576
7733 045576
7734 045602
7735 045606
7736 045610
7737 045620
7738 045624
7739 045626
7740 045632
7741 045634
7742 045640
7743 045640
7744 045642
7745
7746 045644

062706

000002

062706
005037

000002
002006

TYPE

#2,5Pp

;THROW AWAY OLD KAMIKAZE FLAG

POP

KAMIKAZE

:RESTORE OLD KAMIKAZE FLAG

CLR
ELSE

001414

POP
TST

002514

06270¢

000002

005737
001402

002514

104416

000207

;LEAVING FIELD SERVICE MODE

ADD

END ;OF

005737

MSG103

’,SP
ADD
IF SKIPKAMI [S TRUE

BEQ

SKIPKAM]
IFf

SKIPKAMI

CSRNO
CACHKN

RESO

;1F CACHE IS OFF
:THROW AWAY CACHE STATUS

IF CACHKN EQ CACHKF
ADD
#2.,SP

ELSE

TST

BEQ
POP

END ;OF

RESO:

RESREG
RETURN

FSCMD1:

SUBTST

LeSUBTEST

CACHKN

RESO
CONTRL
IF

:RESTORE CACHE STATUS

CACHKN

<<FS

COMMAND 1

READ CSR>>

COMMAND 1

READ (SR

e s e e

S N R R R R R R R AR R AR AR R AR AR A A A A A A D 0

;tt'.'t'.'.Q'.!"""""""""t't"'i't"ttttt"'ttt'tt"tt"t"'!"l..".".

7747 045644
7748 045650
7749 045654
({50 045662
7751 045664
7752 045672
7753 045674
7754 045716
7755 045720
7756 0457264
7757 045730
7758 045752

004737
010637

CALL
MOV

051042
002266

SET4

104426

READCSR

10402¢

ERROR

SET

RES&

000207
013706
000207

002266

RES1:

RETURN

TYPE

MOV
RES4
RETURN

WHICHCSR
SP,FSSTACK

#REST

NOERROR

+26

MSG02S

FSSTACK,SP

;TRAPS T0 & GOTO REST

;USE ERROR ROUTINE FOR PRINTOUT

RESET TRAPS TO & TO DEFAULT
;THIS CSR DOES NOT EXIST
sRESET

TRAPS TO &

TO DEFAULT

MsoB8o MSi1-L/M DIAGNOSTIC

COMMAND 1

7761

READ

CSR

045754

MACRO M1113

(07-0CT-80 18:01

FSCMD2:

SUBTST

m o6

PAGE 286 SEQUENCE 278

<<FS

SEQ 0285

COMMAND 2

LOAD (SR>>

COMMAND 2

LOAD (SR

;t"Ittt'i"t"'ttt""t"i"'"t"'Q'Q"""'QQ."'"ttt"t'."'t't"t""""'

;*SUBTEST

)

:tit'i't'tit""'i"""'i"""'.'t"""'""t"."'""t't"""."'t"'t""

7762 045754
7763 045760
7764 045764
7765 045772
7766 045774
1767 046000
7768 046006
7769 046010
7770 046032
7N 046036
772 046040
7773 046044
7774 046046
7775 046050
7776 046054
777 046062
7778 046064
779 046066
7780 046072
7781 046076
7782 046120

004737

010637

051042
002266

CALL

MOV

SET4

104426

ERROR
RES&
TYPE
RDOCT
PO

104413
104425
104426

LOADCSR

+26

MSG023
CSR

READCSR
TYPE
MSG028
NOERROR
SET

ERROR

104026

000207

SP,FSSTACK
#RES?

READCSR
MSG027
TYPE
NOERROR
SET

104026

013706

WHICHCSR

002266

RES?:

RETURN
TYPE
MOV
RES&
RE TURN

;TRAPS TO & GOTO RESZ

;USE ERROR ROUTINE FOR PRINTOUT

;RESET TRAPS TO &4 TO DEFAULT

;FIRST CSR WORD
;READ AN OCTAL NUMBER

;PUT IN IN LOC ''CSR"

+26

;USE FOR PRINTOUT - NOT AN ERROR

MSGO25

;THIS CSR DOES NOT EXIST

FSSTACK,SP

;RESET

TRAPS

T0O &

TO DEFAULT

CIMSDBO MSi1-L/M DlAGNOSTéCD
FS
COMMAND 2

SRHACRO M1113

7785 046122

FSCMD3: SUBTST
MAAALLEA

s *SUBTEST

MAARAAAAAL AR

1786 046122
71787 04614¢
7788 046150
7789 046154
7790 046160
7791 046162
7792 046170
7793 046172
7794 046174
7795 046176
7796 046202
7797 046204
7798 046206
7799 046214
7800 046216
7801 046222
7802 046226
7803 046230
7804 046234
7805 046236
7806 046244
7807 046252
7808 046266
7809 046274
7810 046276
7811 04630C
7812 046306
7813
1814 046310
7815 046314
7816
7817 046316
7818 046322
7819 046326
7820
7821 046330
7822 046332
7823 046352
7824 046374

012737
104413

013737
000241
006100
006137
000241
006000
023737
003357
062700
032700
001352
020027
101347
012737

000002

002074
1%:

061766

002100

046310

BNE
CMP
BHI

002264

MoV

SET4

KERNEL

TYPOCS

000410
3%

000405

000400
104417

000207

)
AR AR

000004

COMMAND 3

COMMAND 3
e

$SHIOCT,BANK
RO

?éNK,LASTBANK
#FIRST,RO
#B1T0,RO

19
RO,#LAST
1%
#3% ,PARTHERE
#43
BANK

MAP
TESTAREA
MOV
(RO ,R1

011001
104417

062706

EXAMINE MEMORY>>

EXAMINE MEMORY
e

RO
BANK

BIT

157776

ROL
ROL

CLC

060000
000001

BANK,NOPAR ,PARTHERE , 4
#2 ,NOPAR
;INDICATE PARITY ACTION
MSG029
sEXAMINE MEMORY
MSGO31
;PHYSICAL ADDRESS (0=17775776)??

ROR
CMP
BGT
ADD

002526

<«FS$

SEQ 0286

PUSH
MoV
TYPE
TYPE
RDOCT
MOV
POP

CLC

002100

N
6
PAGE 288 SEQUENCE 279

07-0CT-80 18:01

s CHECK FOR 00D ADDRESS
+BRANCH [F 00D ADDRESS
s CHECK FOR ADDRESS OVER 16k

;BRANCH [F

OVER 16K
OF
ABORTS
; INCASE

:TRAPS TO 4 GOTO 4%
:MAP SUPERVISOR

;ENTER TEST MODE

MSGO032

;PARITY

ADD

#4,SP

JFIX

POP
RES4
RE TURN

SPACE

;ENTER KERNEL MODE

TYPE

EXCMD3: KERNEL

222222}

s CHECK FOR BANK TOO HIGH
+BRANCH [F TRUE

EXCMD3

TYPE
BR

sREAD OCTAL NUMBER ONTO STACK & SHIOCT
;PUT MSB'S IN BANK
JPUT LSB'S IN RO

222222 ]

EXCMD3

ABORT

STACK

; TIMEOUT TRAP

MSG033

EXCMD3

;ENTER KERNEL MODE

4 ,PARTHERE ,NOPAR ,BANK
;RESET

TRAPS

TO &

TO DEFAULT

(TEST

AREA)

TO BANK

CIZMSDBO MSil1-L/M DIAGNOSTIC

COMMAND 3

MACRO M1113

EXAMINE MEMORY

7827 046376

07-0CT-80 18:01

FSCMD4:

SUBTST

PAGE 290 SEQUENCE 280

<<FS$

COMMAND &

SEQ 0287

MODIFY MEMORY>>

;tttttQttttQttQttt"tt'ttttt"'tt'tt't"tt"'t"'t"ttttt't'tt'tt't'i'ttt't'tt"

;*SUBTEST

COMMAND &

MODIFY MEMORY

;'t'ttttttttt't't"Qt""'i"tt'Q't'tt!"ttt't"tttt"t'ttt"""t'itt'tttt'tQtt

7828 046376
7829 046416
7830 046424

012737

7832 046434

104413

7831 046430

7833 046436

7834
7835
7836
7837
7838
7839
7840
7841
7842
7843
7844
7845
7846
7847
7848
7849
7850
7851

046444
046446
046450
046452
046456
046460
046462
046472
046476
046504
046512
046520
046526
046542
046544
046552
046554

013737

046560

010110
011001
104417

;g;} 046642

7873 046650
7874 0466652

7875 046672
7876 046714

000207

$SHIOCT,BANK

:PUT MSB'S IN BANK

3%:

TYPE
BR

MSG032
EXCMD4

ADD

#4,SP

TYPE
BR

MSG033
EXCMD4

TYPE
TYPOCS

MSGO37
R1

TYPE

MmsSG039

RDOCT
POP
R1
TESTAREA
MOV
R1, (RO)
MOV
(RO) ,R1
KERNEL

TYPE

TYPOCS
104417

;PHYSICAL ADDRESS (0-17775776)??

5%:

104413

:INDICATE PARITY ACTION
;:MODIFY MEMORY

MSG031

B8R

000424

7861 046600
7862 046604

7870 046636

002264

104417

000004

TYPE

RDOCT

BANK ,NOPAR,PARTHERE
,4
#3 ,NOPAR
MSGO36

;READ OCTAL NUMBER ONTO STACK & SHIOCT

POP
RO
;PUT LSB'S IN RO
e
ROL
RO
ROL
BANK
CLC
ROR
RO
IF BANK GT LASTBANK THEN GOTO 18
;CHECK FOR BANK TOO HIGH
ADD
#FIRST,RO
IfF #8170 SET.IN RO THEN GOTO 1% ;CHECK FOR ODD ADDRESS
IF RO HI #LAST THEN GOTO 1%
;CHECK FOR ADDRESS OVER 16K
MOV
#38 ,PARTHERE
: INCASE OF ABORTS
SET4
.3
;TRAPS TO & GOTO 4$
MAP
BANK
;MAP SUPERVISOR SPACE (TEST AREA)
INVALIDATE
TESTAREA
;ENTER TEST MODE
MoV
(RO) ,RY
;GETTING HERE MEANS WE GOT LUCKY - NO TRAPS
KERNEL
;ENTER KERNEL MODE

011001

062706

PUSH
MoV
TYPE

MOV

104511

7857 046566

7864 046616
7865 0466620
7866 046622
7867 046630
7868 046632
7869 046634

002100

012737

000431

7863 046612

061766

060000

7854 046560
;agz 046564
7858 046572
;gzg 046576

18:

062700

000410

002074

000241

006100
006137
000241
006000

;gg% 046556

000003

EXCMD&: KERNEL
POP

RES4
RE TURN

MSG6038
R1

TO BANK

;PARITY ABORT
SEXIT

;FIX STACK

:TIMEQUT TRAP
JEXIT
:0LD DATA WAS
:PRINT IT

:INPUT NEW DATA

;READ ON OCTAL NUMBER ONTO THE STACK
:GET NEW NUMBER
;ENTER TEST MODE
;PUT IT IN MEMORY
;READ IT AGAIN
;ENTER KERNEL MCDE

:DATA IS NOW

:PRINT [T

:ENTER KERNEL MODE
4 ,PARTHERE ,NOPAR,BANK

;RESET TRAPS TO & TO DEFAULT

MACRO M1113
(ZMSDBO MSi1-L/M DIAGNOSTIC
MODIFY MEMORY
COMMAND &
£S

07-0CT-80 18:01

FSCMDS:

7879 046716

SUBTST

¢ 7
PAGE 292 SEQUENCE 281

SEQ 0288

<<F$S

COMMAND §

SELECT BANK & PATTERN>»

£S

COMMAND S

SELECT BANK & PATTERN

;"t'i'.'.'t"'t"""""""""t'Q""t."'"t"t"'t"t"!'t"i"'"'i"'."

;*SUBTEST

Qt'tttt!"t"""'tt"'i""'""0QQ't"'Qi.""I't"tfil"""""""t"""'t

7880
7881
7882
7883
7884
7885
7886

7887

046716
046746
046752
046756
046762
046764
046770

7888 047000
7889 947004
7890 047006
7891 047010
7892 047020
7893 047024
7894 047026
7895
7896 047026
7897 047032
7898 047034
7899 047040
7900 047050
7901 047056
7902 047062
7903 04,064
7904 047066

010637

002266
19:

104413

7908 047102
7909 C47104
7910 047110
7911 047116
7912 047122
7913 047124
7914 047124
7915 047130
7916 047136
7917 047144
7918 047150
7919 047156
7920
7921
7922 047164
7923 047200
7924 047204
7925 047206
7926 047210
7927 047214

7928 047229
7929 047226
7930 047234
7931 047244
7932 047250

BANK ,PATTERN,TESTADD ,PCBUMP, TKVEC, TKVE(+2
SP, FSSTACK
SAVE LAST 600D STACK POINTER
HSGO#O
SELECT BANK £ PATTERN TEST

TYPE

MSG030

BANK(O 177)?

POP

BANK

;PUT

MOV
ASL
ASL

BANK R
R1
R1

RDOCT

:READ AN OCTAL NUMBER ONTO THE STA(K

I1F BANK GT LASTBANK THEN GOTO 1%

013701
006301
006301

002100

IF CPUBIT OFF,IN CONFIG(RY)

2%:

104413

104511

004737

TYPE
RDOCT
POP

;PATTERN(0-35)?
:READ AN OCTAL NUMBER ONTO THE STACK

MSGD42
PATTERN

000200
000100

177776
133416

133434

013701
006301
006301
005037
005037
012737
012737

002100

BANK

;MAP SUPERVISOR SPACE

CALL

E XBANK

;SET NEW MARGINS

;OF

RRFLAG IS TRUE
TYPE
MSGO49

005237

002232

002232
002256
060000
060002

TYPE

;OF

Mov
MOV

MOV

BIC

81S

CMD5B:

RRFLAG

MSGO4L6

#CMDSC, TRVEC
#340,TKVEC+2

#B1T6,a8TKS

CLR
MOV

PASFLG
#FIRSY,TESTADD

R1
SPLTCSR

MOV
NEIRST+2,TESTADD+2
IfF #BIT12 SET.IN CONFIG+2(R1)
INC

MAP

SPLTCSR

BANK

(TEST AREA)

;10 ESCAPE TYPE ANY KEY!

#B177,PSW

HEADER ,MUT
BANK ,R1
RY

;PATTERN 0 DATA [S?
;READ AN OCTAL NUMBER ONTO THE STA(CK
;PUT IT IN R2

:BANK REQUIRES RELCCATION

a$7kB,RO

SET
MOV
ASL

ASL
CLR

002362
002364

IN PATTERN

MAP

END

000060
000062

;CHECK FOR PATTERN TO HIGH

047450
000340

;PUT

IF PATTERN GT #35 THEN GOTO 2%
IF PATTERN EQ #0
TYPE
MSGO43
RDOCT
POP
R?

GOTO CMD5C

012737
01¢737
017700
062737
052777

IN BANK

;BANK NOT ACCESSABLE

INVALICATE

044240

CHECK FOR BANK T0O HIGH

TYPE
MSGO4
GOT0 1%
END ;OF IF

END

7905

7906
7907 047066

PUSH
MOV
TYPE

;KILL ANY OLD INTERRUPT

;LOWER CPU PRIORITY TO 140

;ENABLE KEYBOARD INTERRUPTS

TO BANK

0 7
PAGE 292-1

MACRO M1313 07-0CT-80 18:01
CIMsSDBO MSi1-L/M DIAGNOSTIC
£S
COMMAND S
SELECT BANK R PATTERN
7933 047264
7934 047272
7935 047272
7936 047302
7937 047304
7938 047306
7939 047312
7940 047314
7941 047320
7942 047320
7943 047326
7944 047334
7945 047340
7946 047342
7947 047346
7948 047352
7949
7950 047354
7951 047356
7952 047360
7953 047362
7954 047364
7955 047366
7956 047370
7957 047372
7958 047374
7959 047376
7960 047400
7961 047402
7962 047404
7963 047406
7964 047410
7965 047412
7966 047414
7967 047416
7968 047420

047422
047424
047426
047430
047432
047434
047436
047440
047442
047444
047446

047450
047454
047462
047472
7985 047476
7986 047506
7987 047516
7988 047532
7989 047536

012737

120090

002364

MOV

END; OF

ECCDIS
ELSE

012737
012737
013700
006300
004770
005037
000712

1fF #B1T12

PUSH

CSRNO

POP

E?“"O

CLRCSR

104502

000002
000002
002110

END ,OFf

002074
002276

MOV

MOV
MOV
ASL

047354
002074

CALL
CLR
8R

020062
020142
020262
020422
020654
020776
021132
021166
021230
021264
021332
021426
021502
021560
021626
021674
021716
023006
023260
023312
023356
023622
023670
024172
024656
025160
025350
025702
026070
020242

FSPAT:

M10000
M10001
M10002
MT10003
MT0004
MT0005
MT0006
MT0007
M70010
MT10011
MT0012

MT0013

MT10014
MT0015
MT0016
MT0017
M10020
M10021
M10022
MT0023
MT0024
MT10025
MT10026
MT0027
M10030
MT0031
M10032
M10033
MT10034
MT10035

013706
062777

002266
000100

117700

133106

004737
000207

044240

133120

(MDS5C:

MOV

BIC

POP
MOV
POP
POP
MAP
CALL
RE TURN

SEQ 0289

#120000, TESTADD+2

IF_#SW0 SET.IN 3SWR

104470

SEQUENCE 282

:DISABLE ERROR CORRECTION
SCLEAR CSRS

#2 ,NOPAR
#2,PCBUMP
PATTERN,
RO
RO
3F SPAT(RO)

;PARITY ACTION
:TRAPS ADD 2 TO PC

CMDSB

;LOOP TILL KEYBOARD INTERRUPT

NOPAR
;<1
1<l
1<l

SEC
SEC
SEC

DATA PATTERN TEST
ADDRESS TEST
COMPLEMENT ADDRESS

1<l
t¢1

SEC
SEC

ADDRESS BIT TEST
BYTE ADDRESSING TEST

i<1

SEC

WRITE BYTE

1<l
1<l

SEC
SEC

P 1
2 1
s 1
1<l

SEC
SEC
SEC
SEC

<2 SEC

11 SEC
: 1 SEC
: 1 SEC
1<l

SEC

L1 SEC
110 SEC
110 SEC
20 SEC
1<l
1<l

SEC
SEC

1<t

SEC

SEC
SEC
SEC
SEC
SEC
SEC

FSSTACK,SP
#B116,387KS
TRVEC+2, TxVvEC

TEST

3 XOR 9 WORST CASE NOISE TEST
ROTATING IEROS TEST
ROTATING ONES TEST
INITIAL DATA TEST

CREATE SINGLE BIT ERROR TEST
CLEARS SBE

TEST

CREATE DOUBLE BIT ERROR TEST
WRITE INHIBIT DURING DATIP WITH DBE
WRITE INHIBIT OF BYTE WITH DBE

WRITE INHIBIT OF WORD WITH DBE
HOLDING 1'S & 0'S TEST

MARCHING 1°S & 0°'S

IN CHECK BITS

MARCHING 0°'S & 1°'S TEST
REFRESH & SHIFTING DIAGONAL TEST
SHIFTING DIAGONAL TEST
FAST GALLOPING PATTERN TEST

INTERRUPT ENABLE
RANDOM DATA TEST

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

:RECOVER OLD STACK POINTER

as1xg, RO

:GET CHARACTER T0 GET RID OF FLAG

BANK
E XBANK

;REMAP OLD BANK

PCBUMP, TESTADD
PATTERN, BANK

E 7
PAGE 293 SEQUENCE 283

(IMSDBO MSil1-L/M DIAGNOSTI(
MACRO M1113 (07-0(T-80 18:01
FS
COMMAND S
SELECT BANK R PATTERN
7991 047540

FSCMD6:
R

SUBTST

s *SUBTEST
R

7992 047540

7993 047544
7994

004737

000207

036570

<«FS$

CALL

RE TURN

R
R

£S
R

PCONFIG

SEQ 0290

COMMAND 6

TYPE CONF IGURATION MAP>>

COMMAND 6

TYPE C(ONFIGURATION MAP

Ry
R

Y
R

MACRO M1113 07-0CT-80 18:01
(1 MSDBO MSi1-L/M DIAGNOSTIC
TYPE CONFIGURATION MAP
£S
COMMAND 6
FSCMD?7:

7997 047546

R 22 R

<<Ff$

SUBTST

LeSUBTEST

s R

£S

PAGE 295 SEQUENCE 284

R R

COMMAND 7
XX XX R

SOB=A-LONG TEST>>

R R R X R R R R R AR

COMMAND 7

SEQ 0791
R

AAANLE AR

SOB-A-LONG TEST

:"Q'"Q'"t'i"'""t"""""".'Q'"""""Q""".""'Q"'Q'Q"Q'Q"'Q'Q'

7998 047546
7999 047572

8000 047576
8001
8002 047602
8003 047612
8004 047614
8005 047616
8006 047620
8007 047620
8008
8009 047624
8010 047630
8011 047636
8012 047644
8013 047650
8014 047656
8015
8016
8017 047664
8018
8019 047700
047704
047710

047724
047726
047732
047732
047746
047752

8028
8029 047754
8030 047760
8031 047766
8032 047772
8033 050016
8034 050032
8035 050036

010637

PUSH

,NOPAR
ERN,
TKVEC, TKVE(C+2
BANK ,PATT

TYPE

MSGOSS

SP,FSSTACK

MOV

002266

IF #SW0 SET.IN aSwR

104470

£ EECDIS

104502

CLRCSR

012737
012737
017700
042737
052777

END ;OF

047754
000340

000060
000062

000200
000100

177776
132716

132734

10451,

004737

:BELL = EACH PASS COMPLETE

TYPE

MSG04L6

:T0 ESCAPE TYPE ANY KEY.

MoV

3$TKB,RO

sKILL ANY OLD INTERRUPT

#CMD7C,TKVEC
#340,TKVEC+2

#B1T7,PSW
#B176,a87KS

BIC
BIS

FOR BANK

:= #0 TO LASTBANK

CALL EXBANK

IF ACFLAG IS TRUE AND RRFLAG IS FALSE
INVALIDATE

CALL MTOON
END ,OF IF ACFLAG

025160

117700

004737
000207

002266
000100
132612
044240

:LOWER CPU PRIORITY TO 140
:ENABLE KEYBOARD INTERRUPTS

HEADER ,MUT

END ;OF FOR BANK
TYPE
$BELL

013706
042777

:CLEAR (SRS

MSG0S6

MOV
MoV

(MD78B:

044240

;DISABLE ERROR (ORRECTION

TYPE

SET

004737

:SAVE LAST GOOD STACK POINTER

:SO0B-A-LONG TEST

132614

CMD7C:

GOTO

cmp78

MOV

FSSTACK,SP

BIC

#BI16,3%TKS

;RING BELL

;RECOVER OLD STACK POINTER

Move
PoP

a$TkB,RO
;READ CHAR TO KILL FLAG
NOPAR, TKVEC+2,TKVEC ,PATTERN,BANK

CALL

EXBANK

MAP

RETURN

BANK

;MAP SUPERV]ISOR SPACE (TEST AREA) TO BANK

-y

MSOBO MSi1-L/M DIAGNOSTIC

COMMAND 7

MACRO M1113

SOB-A-LONG TEST

8038 050040

07-0CT-80 18:01

G 7
PAGE 297 SEQUENCE 285

SE0 0292

FSCMDB: SUBTST

<<FS

COMMAND 8

ERROR SUMMARY>>

L «SUBTEST

£S

COMMAND 8

ERROR SUMMARY

"'t't"t.'ti'tt""'t"""""""Qi"."""!"'QQ""'Q.Q"Q"'t""""'."'
"Qt'it"lt.t'i"""""'t't""'iQQQ"Q'!"'!t".'t't'tt"t"'t"'t'i"'t"""

8039 050040

8040 050052
8041 050060
8042 050064

8043 050072
8044 050076
8045 050104
8046 050110
8047 050116
8048 050122
8049 050126

8050 050132

8051 050136

013737
005337

062474
002404

005037

002304

013703

002100

070327

000004

8052 050144

RO,R2,R3,BANK
$PASS
. TEMP
TEMP
TEMP

TYPE
MSG125
TYPDEC
SERTITL
TYPE
MSGO79
If SERTTL NE #0
CLR
SUCCESS
FOR BANK := #0 TO LASTBANK
MOV BANK,R3

000207

002626
177400

-ERROR(S) DETECTED

IFB CONF1G+2(R3) NE #0

END ;OF

116300
042700

:PASSES COMPLETED

MUL #4,R$

TYPE
MSGO76
SET SUCCESS

8055 050164

8065 050242

PUSH

MOV
DEC
TYPDEC

IF SULCCESS IS FALSE

8053 050152
8054 050156

8056 050164
8057 0501764
8058 050200
8059 050204
8060 050210
8061 050214
8062 050214
8063 050230
8064 050230

002404

IF SUCCESS
TYPOCS
BANK,3
MOVB
CONF [G+2(R3),RO
BIC
#~C377,R0
TYPDEC
RO
TYPE
SCRLF
END ;OF IFB CONFIG(R3)
END ;OF FOR BANK
END ;Of IF SERTTL
POP
BANK ,R3,R2,R0
RETURN

:BANK

ERRORS

MsoB80 MSi1-L/M DIAGNOSTI(
MACRO M1113
ERROR SUMMARY
COMMAND 8

FSCMDG:

8068 050244

07-0CT-80 18:01

XIZE

SUBTST

L«SUBTEST

R R R I

<«FS

PAGE 299 SEQUENCE 286

COMMAND 9

R R R

R A X R R

COMMAND 9

AR R R

REFRESH TEST>>

AR RRRRRRRRRRRARARRRRRRRdl
)

REFRESH TEST

;tt'""tt'tttl't""""""""'iQ'Q""Q"t'.."""'"Qt't""""t""'i".

8069
8070
8071
8072
8073
8074
8075
8076
8077
8078
8079
8080
8081
8082
8083
8084
8085
8086
8087
8088
8089
8090
8091
8092

8093

8094
8095
8096
8U97
8098
8099
8100
8101
8102
81C3
8104
8105
8106

010637

PUSH
MOV
TYPE

002266

IF #SW0 SET.IN @SWR
ELEECDIS

104470

050316
050316
050322
050326
050334
050342
050346
050354

CLRCSR

104502

012737
012737

017700
042737
052777

050452
000340

000060
000062

000200
000100

177776
132220

132236

050452
050456
050464
050470
050514
050530
050534

004737

044240

104511
004737

023260

013706
042777
117700

004737
000207

002266
000100
132114

044240

END OF

TYPE

MSGO4L6

MOV
MOV
MOV

050362

050376
050402
050406
050422
50424
050430
050430
050444
050450

BANK,PATTERN,
TKVEC, TKVE( +2,NOPAR
SP,FSSTACK
;SAVE LAST GOOD STA(K POINTER
M$GO73
;REFRESH TEST

(MDGB:

#CMDIC, TKVEC
#340,TKVEC+2
a$TkB,RO

BIC
BIS

#B1T7,PSW
#BIT6,38TKS

SET

HEADER ,MUT

;DISABLE ERROR CORRECTION
;CLEAR (SRS

;BELL = EACH PASS COMPLETE
;70 ESCAPE TYPE ANY KEY!
;KILL ANY OLD INTERRUPT

;LOWER (PU PRIORITY TO 140
;ENABLE KEYBOARD INTERRUPTS

FOR BANK := #0 TO LASTBANK
CALL EXBANK
IF ACFLAG IS TRUE AND RRFLAG IS FALSE
INVALIDATE

CALL MT0022

END ;OF IF ACFLAG
END ,O0F FOR BANK
TYPE
$BELL

132116

CMDYC:

;RING BELL

GOTO

Cmpo98

MOV
BIC
Move

;RECOVER OLD STACK POINTER
FSSTACK,SP
#B8IT6,387KS
a$TkB,RO
;READ CHAR TO KILL FLAG
NOPAR, TKVEC+2,TKVEC,PATTERN,BANK

POP

MAP

CALL

RETURN

BANK

EXBANK

;MAP SUPERVISOR SPACE (TEST AREA) T0 BANK

SEQ 0293

géHSDBO MSi1-L/M DIAGNOSTIC

COMMAND 9

MACRO M1113

REFRESH TEST

8109 050536

FCMD10: SUBTST
R

;*SUBTEST
R

8110 050536
8111 050540
8112 050544
8113 050546
8114 050550
8115 050554
8116 050560
g}}g 050562

177760
002327

000207
R

FCMD12: SUBTST
R

e R

R Y

R AL

JFILL COUNT(OCTAL)?

<<FS

COMMAND 11

ENTER KAMIKAZE MODE>>

COMMAND 11

ENTER KAMIKAZE MODE

MsSG101

SET
RETURN

8124 050606

SET FILL COUNT

TYPE

000207

COMMAND 10

)

8120 050564

#4C17,R0
RO,SFILLS
RO

;*SUBTEST

8121 050570
g}g% 050604

SET FILL COUNT>>

COMMAND 10

RO
MSGO8S

FCMD11: SUBTST

8119 050564

SEQ 0294

<<FS
R

PUSH
TYPE
RDOCT
POP
BIC
Move
POP
RETURN

104413

042700
110037

[ 7
PAGE 301 SEQUENCE 287

07-0(T-80 18:01

R R R

JENTERING KAMIKAZE MODE

KAMIKAZE ,SKIPKAMI

<<FS

COMMAND 12

s *SUBTEST

EXIT KAMIKAZE MODE>>

EXIT KAMIKAZE MODE

TR AR

RI
T L L R T TSR IR R R TR R R TR R L

8125 050606

8126 050612
8127 050616
g}%g 050624

005037

TYPE

002004

CLR
SET
RETURN

000207

8130 050626

MSG102

;LEAVING KAMIKAZE MODE

KAMIKAZE
SKIPKAM]

FCMD13: SUBTST

<<FS

COMMAND 13

TURN CACHE OFF>>

;. *SUBTEST

COMMAND 13

TURN CACHE OFF

R R

LA L

:tlt't'tit'tii"i"tit"'""Q"itlt't't"""t"t"l'ti""'t"."""'."""'

8131 050626
8132 050632
8133 050634
5134 050642

g}%g 050646

104424
013737
005037
000207

002514
002514

TYPE
MSG106
CACHOF ¥
MOV
CACHKN, CACHKN+2
CLR
CACHKN

002516

RE TURN

8137 050650

FCMD14: SUBTST
R

s*SUBTEST

8138 050650
8139 050654
8140 050662
8141 0506¢€4

013737
104423
000207

002516

002514

TYPE

MOV
CACHON
RE TURN

<<FS
R

MSG107

;CACHE IS OFF
:TURN CACHE OFF
;SAVE OLD CACHE ON STATE
;KEEP CACHE OFF

COmMMAND 14

TURN CACHE ON>>

COMMAND 14

TURN CACHE ON

e
R

CACHKN+2,CACHKN

LR
R

R AR

R
R

AR
LA A L

R LR

;CACHE IS ON (EXCEPT DURING ACTUAL PATTERNS)
;RESTORE OLD CACHE ON STATE
:TURN CACHE ON

MACRO M1113
(I1MsSD80 MSil-L/M DIAGNOSTIC
ES
TURN CACHE ON
COMMAND 14

07-0CT-80 18:01

FCMD15:

050666

SUBTST

PAGE 302 SEQUENCE 288

««FS

COMMAND 15

SEQ 0295

TEST ONLY SELECTED BANKS>>

;tttt't'ttttt"tit""'t""'t't't'Otttt'tt"t!'Qtttt'tt't't"vt't'tt't'fi't'tt"

;*SUBTEST

COMMAND 15

TEST ONLY SELECTED BANKS

;tlt'tttttt'tt't't'ttt"'t"'t"t't"tt"ti"t"t"'t"'tt'QQQQ"Q"Q'Q!Q'Q't"t

8157 050666
050672
050676
8160 050676
8161 050676
8162 050702
8163 050704
8164 050706
8165 050720
8166 050722
8167 050722
8168 050724
8169 050726
8170 050734
8171 050736
8172 050736
8173 050742
8174 050750
8175
8176 050752

004737

TYPE

050762

MSG105

REPEAT

TYPE
RDOCT
POP R1

104613

006301
006301
052761

;ENTER BANKS IN OCTAL - USE NUMBER OQUTSIDE RANGE

CALL
CMD16A
BEGIN CMD16LOOP

JERASE OLD SELECTIONS

m<G030

IF R1 GT #177 OR R LT #0
LEAVE CMD16LOOP
END ;OF [F R
040000

ASL
ASL

R
R

BIS #BIT14,CONFIG+2(RY)

002626

END .OF REPEAT
END CMD16LOOP
TYPE
MSG110
SELONLY
SET

000207

:BANK(0-177)?
:READ AN OCTAL NUMBER ONTO THE
;PUT IT IN RY

;R1

<= R1

STACK

= 4

;ONLY SELECTED BANKS WiLL BE

TESTED

RETURN

FCMC 6:

SUBTST

<<FS

COMMAND 16

RESUME

TESTING ALL BANKS>>

COMMAND 16

RESUME

TESTING ALL BANKS

;"QQ"'t'tt't""t""t""'tt""!ltt"'t""it."'.".'I""".Q.'il"'.'."'

;*SUBTEST

;.t.ltllittt.filt"""""t"'"'ttQt".'Q'I'l"..""Q'.t."...."""Q.'....'.

8177 050752
8178 050756
8179

8180

8181
8182
8183
8184
8185
8186
8187

050762
050766
050770
050772
050774
051002
051012

005037

002000

013702
006302
006302

002526

042761

040000

000207

TYPE

CLR

(MD16A:

002¢26

MSGIN
SELONLY

;ENTRY POINT FROM (MD15

MOV

LASTBANK
,R2

FOR R1

R2
R2
:= #0 10 R2 BY #4

END .OF

FOR R1

ASL
ASL

BIC

RE TURN

#BIT14,CONFIG*2(RY)

+ALL BANKS WILL BE

TESTED

TO TERMINATY

(IMSDBO MSit-L
/M DIAGNOSTIC
MACRO M1113 07-0CT-80 18:01
£S
COMMAND 16
RESUME TESTING AL. BANKS
FCMD17: SUBTST

8190 051014

;*SUBTEST
R

8191 051014
8192 051020

8193 051026

012737
000207

77777

00604

<«FS$

COMMAND 17

LIttt

TYPE
MOV

RE TURN

£S

PAGE 304 SEC.ENCE 289

COMMAND 17

TRy

MSG127
#-1,TRACE

SEQ 0296

ENABLE TRACE>>
IR

et ereeteeeeereeeeeeeceteceneeene

ENABLE TRAC(E

R AR

AR AR

ALY

CIMSDBO MSi1-L/M DIAGNOSTIC

£S

COMMAND 17

ENABLE

8196 051030

MACRO M1113

TRA(CE

07-0C7-80 18:01

FCMD18:

SUBTST

BRI I

TeSUBTEST

PAGE

<<FS
R

R 2 R

£S

306 SEQUENCE 290

COMMAND 18

R X

R R

R X

R R

(OMMAND 18

SEQ 0297

DISABLE

R AR R R R

R R

TRACE>>
RN

RN AR AZARARREARRRARRRRRRRR])

DISABLE TRACE

:""".""'."""'t"'t"""'tQ"'tttt.t'QQt"'i"'Q"Q""""""'Q"""'

8197 051030
8198 051034

8199 051040

005037
000207

006104

TYPE
(LR

RE TURN

MSG128
TRACE

MACRO M1113

CIMSDBO MSi1-L/M DIAGNOSTIC
COMMAND 18
DISABLE TRACE

£S

8202 051042

07-0CT-80 18:01

L JUN
PAGE 308 SFQUENCE 291

SEQ 0298

WHICHCSR:SUBTST <<SUBR

DETERMINE CORRECT (SR>>

«SUBTEST

DETERMINE CORRECT (SR

IZZ22223 322220223 2222822222222 2222222220222

SUBR

0222800002

RRiRRRRRRRRRlilidl))

:ti'"'."Q""t"'""ti""""ti""'i""'t""tt"""t"t""""""""'

8203 051042
8204 051046
8205 051052
8206 051054
8207 051060
8208
8209 051062
8210 051066
8211 051070
8212 051072
8213 051074
8214 051100
8215 051102
8216 051106
8217 051110
8218 051114
8219 051120
8220 051122
8221 051126

013700
022700
001003
005037
000207

002216

162700
162700

006300
010037
000207

CMP
BNE
CLR

002146

RETURN

1%:

104412

011000
020027
101370
022700
103002

MGV

100000

000106

000101
000007
000060
002146

2%:

TYPE
ROLIN
pPoP
MOV
CMP
BHI
CMP
BHIS
sus

suB

ASL
MoV
RETURN

TOTCSRS,RO
#BIT15,R0
1%
CSRNO

:GET CSR'S FLAG
:CSR 0?
:NO - SKIP
JYES = SET [T upP

MSG022

;WHICH CSR(0=F)

RO
(RO) ,RO
RO,#106
1%
#'A,RO
2%
#7,R0
#60,R0
RO

;PUT IN RO

RO, CSRNO

:GET CHARACTER

:PUT CHAR IN RO
sCHECK LIMIT
;1F BAD LOOP TILL HE TYPES IT RIGHT

CIMSDBO MSiT1-L/M DIAGNOSTIC

ERROR DATA (SUPERVISOR)
1

OO WNNIWN
SO0 OMNO

o B

[V IV IV, IV, IV, IV, ]

8770
8771 0
8772 0
8773 0 1
1
8774 0
1
8775 0
1
8776 0
8777 05 ]
8778 051174
8779 051.30
8780 051202
8781 051206
8782 051206
8783
8784 051212

MACRO M1113
SETUP STUFF

07-0CT-80 18:01

.SBTTL
ERROR DATA (SUPERVISOR)
$PER25: LET ADDRESS := R1 - #2
IF _ABORTFLAG IS FALSE
1044617

SETUP STUFF

;ENTER TEST MODE

KERNEL

;ENTER KERNEL MODE

END

:OF

IF ABORTFLAG

IF 177654 EQ #0
LET GOOD

ELSE

:= R2

LET GOOD := R3

000137

END ;OF IF
JMP
PERRAW

0544610
PERRA3:

SUBTST
A

S«SUBTEST

MALAAAAS AR

8803 051316
8804 051322
8805 051326
8806 051332
8807 051334
8808 051336
8809 051346
8810 051350
8811 051352
8812 051354
8813 051354

SEQ 0299

TESTAREA

LET BAD := =2(R1)

8785 051212
8786 051224
8787 051226
8788 051232
8789 051234
8790 051242
8791 051244
8792 051246
8793 051250
8794 051254
8795 051256
8796 051262
8797 051266
8798 051272
8799 051276
8800 051304
8801 051310
8802 051314

PAGE 323 SEQUENCE 292

<<DATA WAS 3 WORDS>>

2222222 2222222222222
0

DATA WAS 3 WORDS

AR AR AR AR

IF BADPC EQ #0 THEN $CALL BADSTACK

005037
104505

002144

005711

104417
104426
013700
104503

PUSH
CLR

g?g}gégA

ngNE
K

002144

RO
CSR

¢MAKE

(R1)

sREAD LOCATION TO READ CHECKBITS

READCSR

MoV
CSR,RO
CLR1CSR

072027
042700

177773
177600

ASH
BIC

005037

002042

011137
011437

002050
002052

CLR
600D
TESTAREA
MoV
(R1),BAD

004737

002054
002055
054644

104417
110037
105037

104033

104506
104472

000002

SURE

(SR BIT HOLDER

IS CLEAR

;DISABLE ECC & WRITE CHECKBITS FROM 1 SELECTED CSR

:GET

CSR

INTO CSR

CONTENTS

;SAVE CSR CONTENTS IN RO
sRETURN CSR TO NORMAL MODE

#-5,R0
#4C177,R0
LET ADDRESS := R1

+MOVE CHECK BITS TO BOTTOM OF WORD
;CLEAR OFF EXTRANEOUS GARBAGE
sSAVE VIRTUAL ADDRESS FOR PRINTOUT

MOV

(R4) ,BAD2

:AND SECOND WORD

MOvB
CLRB
CALL

RO,BAD3
BAD3+1
PERBNK

PoP

KERNEL

ERROR

+33

IF #SWO0 SET.IN aSWR

g?ASBE

ECCINIT

E??: OF

If #SW0

¢FIRST TEST WORD WRITTEN SHOULD ALWAYS BE
SENTER TEST MODE
;GET BAD DATA FROM MUT - FIRST WORD
;ENTER KERNEL MODE

:MOVE BAD CHECKBITS FOR PRINTOUT
;CLEAR OFF THE OTHER UNUSED BITS
:MARK BANK AS BAD IN CONFIG TABLE
;RESTORE

;TRAP ON SINGLE

BIT

ERRORS

s TRAP ON UNCORRECTABLE

EKRORS

ZERO

CIMSDBO MSi1- L/M DIAGNOSTIC

DATA WAS 3 WORDS

MACRO M1113

8816 051356

$PER30: LET GOOD := R

8817 051362

LET ADDRESS

8818 051374
8819 051402

8820 051410
8821 051416
8822 051420
gggz 051420

B_8
PAGE 325 SEQUENCE 293

07-0CT-80 18:01

(SP) - 16

IF ABORTFLAG IS FALSE
TESTAREA

LET BAD := @ADDRESS
KERNEL
END ;OF IF ABORTFLAG
JMP PERRAW

104417
000137

054410

8825 051624

;ENTER TEST MODE

;ENTER KERNEL MODE

GETDATA:SUBTST

<<GET DATA FROM ABORTED AREA IF POSSIBLE>>

S «SUBTEST

GET DATA FROM ABORTED AREA IF POSSIBLE

:!tttt'i'.tt"'ttt"'t"titt""'t't!tt'tt'tItttttttt'ttt't'tt"tttt'tt"'tt"tt
:tfitttttttt't'ttt't"'t"tt""'tt"t"tt'.t'ttt.'t't'ttttt'Qitfitt""'t"""'t

8826 051424
8827 051436

010637

051522

8829 051450

012737

051502

8828 051442

8830 051456
8831 051462
8832 051470
8833 051474
8834 051476
8835 051502
8836 051506
8837 051520

8838 051522

012737
013700
_
011057
104417
005037
013706
000207

000000

051502

002032

000004

051522

RO.4,114
SP . GETDA1

MOV

Ms 114

MOV

000114

002050
002140

PUSH
MOV

1%:

MOV
ADDRESS
, RO
TESTAREA
MOV
{R0) ,BAD
KERNEL
CLR
ABORTFLAG
MOV
GETDA1,SP
POP
14,4 R0
RE TURN

GETDA1: 0

;RESTORE KNOWN GOOD STACK POINTER

SEQ 0300

CIMSDBO MSi1-L/M DIAGNOSTIC
AUTO RESTART

07-0CT-80 18:01

A2 A2

.SBTTL
.SBTTL

PAGE 327 SEQUENCE 294

SEQ 0301

POWER FAIL AUTO RESTART
ROUTINE POWER DOWN AND UP

AR ARl
Rl
iRl
RdRdld ]

*POWER DOWN ROUTINE

$PWRDN:

005737
001403
104423

002514

012737
012737

052476
000340

012700
012701

177700
000021

077102

005737
001013
012700
012701

172300
000020

D e

~NAD =N NON)

172300
177600
172200
000040

;SAVE CACHE STATUS

18T

CACHKN

PUSH

CONTRL

MOv

#SILLUP,PWRVEC

PUSH

RO,R1,R2,R3,R4,RE.CSRNO

BEQ

CACHON

000024
000026

MOV

#340,PWRVEC+2

:TURN CACHE ON

;;SET

FOR FAST

:;PRIO:7

:SAVE USER PAR'S ¢ PDR?

1%:

MOV
MOV

PUSH
S0B

#177700,R0
nr. R
=(RO)
R1,18

SSAVE SUPERVISOR PAR'S

002426

077102

8841
8842
8843
8844
8845 051524
8853
8854 051524
8855 051530
8856 051532
8857 051536
8858 051540
8859 051546
8860 051554
8861
8862 051574
8863 051600
8864 051604
8865 051606
8866
8867 051610
8868 051614
8869 051616
8870 051622
8871 051626
8872 051630
8873 051632
8874
8875 051644
8876 051650
8877 051654
8878 051660
8879 051664
8880 051666
8881 051670

=leleleleoloele)

POWER FAIL

MACRO M1113

1sT

BNE
MOV
2%:

PD1:

MOV
PUSH

NOSUPER

PO1
#172300,R0
6. R
=(RQ)

0B
R1,2$
IF RLFLAG IS TRUE THEN $CALL WOOPS
:COPY FERNEL MAP TO USER & SUPERVISOR

MOV
MOV
MOV
MOV
MOV
MOV
S0B

#X [PDRO,
RO
#UIPDRO
. R1
#SI1PDRO
. R2
#32. R3
(RO), (R1)+
(RO)+,(R2)+
R3,3$

CIZMSDBO MSi1-L/M DIAGNOSTIC

ROUTINE POWER DOWN AND UP

8883
8884
8885
8886
8887
8888
8889
8890
8891

051672
051700
051702
051704
051706
051712
051714
051722

MACRO M1113

(07-0CT-8C 18:01

:gng USER & SUPERVISOR STACK POINTERS

MOV
KERNEL

010600
104417

005737
001006

002426

104617

7%:

002216

006301
106426

8906

MOV
KERNEL
PUSH

SSP,RO

;ENTER KERNEL MODE

;ENTER SUPERVISOR MODE
;ENTER KERNEL MODE

;SAVE ECC REGISTERS

MoV
TOTCSRS, R
;GET (SR'S
BEGIN
LCSRSAVE
FOR CSRNO := #0 TO #36 BY #2
R1
ASL
ON.ERROR
CSR

IF R1 EQ #0 THEN LEAVE LCSRSAVE

END

005737
001002

002426

8912 052022
8913 052026

012700
012701

172400
000020

8918 052044
8919 052046
8920
8921 052056
8922
8923 052062
8924
8925 052066
8926 052074
8927 052076

RO
NOSUPER

END ;OF ON.ERROR

8907 051774
8908 052010
8909 052014
8910 052016

8914 052032
8915 052034
8916
8917 052036

PUSH
TST

READCSR
PUSH

051752
051752
051756
051774

8911

usP,RO

’$
BNE
SUPERVISOR

010600

013701

8902
8903
8904
8905

o_8

PAGE 328 SEQUENCE 295

TST

BNE

8%:
A ¥

077102
022737
001004

000001

003710

9%:

010637

052502

012737
000000
000776

052100

,OfF

FOR CSRNO

END LCSRSAVE
. SAVE MMR0,1,2,3
PUSH
MMRO ,MMR1 ,MMR?2

000024

$DOWN:

NOSUPER

PUSH
MMR3
; SAVE KERNEL PAR'S
MOV
#172400,R0
n6. R
MOV
PUSH
-(RO)

R1,4%
. SAVE UNIBUS MAP REGISTERS
(MP
#1,PROTYP
9%
BNE
S08

PUSH

MAPHO ,MAPLO

PUSH

SSWR

;1S THIS AN 11/447
;BRANCH [F NOT

s SAVE POSSIBLE SOF TWARE SWITCH REGISTER
. SAVE STACK POINTER

::SAVE SP
SP,8SAVR6
MOV
:NOW SET UP REAL VECTOR
HOVT
#SPWRUP ,PWRVEC
;;SET UP VECTOR
HAL

$D0WN

: JHANG UP

SEQ 0302

(IMSDBO MSil-L/M DIAGNOSTIC

ROUTINE POWER DOWN AND UP

MACRO Mi113 (07-0C7-80 18:01 PAGE %30 SEQUENCE 296

8930

;""'Q."tQ"Q.'0"""""""'QQQ"0't."".'.""'000...0.0.0""QQ"CQ".Q'

8931

8932 052100

8936 052100

8937
8938 052106

8939 052112
8940 052116
8941 052122

8942

8943 05212¢
8944

"POWER UP ROUTINE

012737

052476

013706

052502

005037
005237
001375

052502
052502

022737

000001

8948 052150

004737

043644

012700
012702
012701

172340
172300
000020

012722
077104

077406

005737
001002

002426

8949
8950 052154
8951 052160
8952 052164
8953 052170

8954 052172
8955 052176
8956

8957 052200
8958 052204

8959 052206
8960 052212
8961
8962 052226
R963 052232
8964 052236

8965 052236

8966 052244
8967 052246
8968 052250
8969 052256
8970 052256
8971 052256
8972 05226¢
8973 052300

8974
8975 052300
8976 052306
8977 052310
8978 052314

8979 052320

8980 052322
8981 052324

001006

1%:

013701

CLR
INC

$SAVRG
$SAVRE

;:GET SP

BNE

::0F A WORD

CMp

003710

BNE
POP

CALL

108
8-

S:WA]T LOOP FOR TME TTv
SiWAIT FOR THME INC

002216

177400

SIS THIS AN 1176447

#1,PROTYP

108
MAPLD ,MAPHO

LOWMAP

SSETUP LOWER 16K OF UNIBUS MAP

CRESTORE KERNEL PAR'S T POR'S
#172340.R0
MOV
MoV
#X1PDRO,
R
216, .R1
MOV
(RQ)+
POP

877606,(R2)¢
Moy
S08
R1,68
CRESTORE MMR3.2,1.0
st
BNE

NOSUPER
1%

POP
MMR3
MAR2 ,ANRT ,MMR0
POP
;RESTORE ECC REGISTERS
TOTCSRS,RY
MOV
8177400,/
8IC

SGET CSR'S

BEGIN LCSRRESTORE

FOR CSRNO := #36 DOYNTO #0 BY &2

R1
ASR
ON.ERROR
CSR
POP
LOADCSR
END ;0F ON.ERROR
IF RY EQ #0 THEN LEAVE L{SRRESTORE
END ;0F FOR (SRNO
END LCSRRESTORE

006201
104425

012700
012701
012702
012703
011021
012022
077303

#SILLUP,PURVEC ;;SET FOR FAST DOWN

CRESTORE STACK POINTER
MOV
$SAVRG, SP

aswR
POP
;RESTORE UNIBUS MAP

17%:
042701

MOV

SRESTORE POSSIBLE SOFTWARE SwITCH REGISTER

8945 052130
8946 052136
8947 052140

000024

$PWRUP:

172300
177600
172200
000040

1% .

:COPY KERNEL MAP TO USER § SUPERVISOR
RO
#X [PDRO,
MOV
#UIPDRO,R
MOV
#51PDRO,R?2
MOV
#32..R3
MOV
Mov

MOV
S08

(RO),(R1)¢

e+, (R2) e
(RC)
R3,38

SEQ 0303

(IMSDBO MSiT1-L/M DIAGNISTIC
POWER DOWN AND up

ROUTINEt

8983
8984
8985
8986
8987
8988
8989
8990
8991
8992
8993
8994
8995
8996
8997
8998
8999
9000
9001
9002
9003
9004

0
0
0
0
0
0
0
0
0
0

005737
001006

0
0
0
052376

012700
01270

052400
052404
052410
052412

012700
0127M

MACR) M1113

SEQUENCE 297

NCSUPER

POP

SEQ 0304

MOv
KERNEL
POP
USER

RO,SSP

138

SUPERV]SOR

010006
106417

13%:

010006
104617

MOV
KERNEL

RO,uUSP

MOv

#172240,R0

S08

R1,7%

JENTER SUPERVISOR MODE
;ENTER KERNEL MODE

JENTER KERNEL MODE

;RESTORE SUPERVISOR PAR'S

172240

000020

7%:

077102
177636

000021

8s:

077102
000174

9008 052450
9009 052456

012737

051524

000024

052462
052466
052470
052474
052476
052500
052502

005737
001402

000002
000000
000776
000000

157

BNE

002010
002010

9010
9011
9012
9013
9014
9015
9016
9017
9018

PAGE 331

;RESTORE SUPERVISOR & USER STA(KX POINTERS

002426

013777
013737

9005 052414
9006 052422
9007 052430

07-0C7-80 18:01

F_8

MOV
POP

£16..R1
(RO)
¢

;RESTORE USER PAR'S § PDR?
MOov
2177636 ,R0
MOV
017,81
POP
(RO)+
08
R1,8%

CRESTORE POSSIBLE SOF TWARE DISPLAY REGISTER

130156

MOV

SPATMAR,
3D ISPLAY

POP

,R5
R4 ,R3,R2,R1,RO
CSRNO

MOV
MOV

$SPATMAR DI SPREG
#SPWRON,PWRVEC

TYPE

MSGO51

BEC

:RESTORE CACME STATUS
isT
CACHKN

002514
9% :

SILLUP:

POP
RTI

HALT

8R
$SAVRG: O

.EVEN

;:SET UP THE POWER DOWN VECTOR

‘REPORT

THE

POWER FAILURE

CONTRL

$ILLUP

:;THE POWER UP SEQUENCE WAS STARTED

. BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

CIMSDBO MSil1-L/M DIAGNOSTIC
ROUTINE POWER DOWN AND UP

MACRO M1113

9030 052504

07-0CT1-80 18:01

WOOPS:

SUBTST

PAGE 332 SEQUENCE 298

SEQ 0305

<<POWER FAIL WHILE RELOCATED>>

"ttt"'a'tt"t""""\"""i"""'.'t"""""I'"""""t""'t'l"t"t"'

S «SUBTEST

POWER FAIL WHILE RELOCATED

.".'t'".'Qt"""""""""'t"Qt"'.'t't"'."'Q"""""t'"0'0"""""'

9031 052504
9032 052510

9033 052514
9034 052530
9035 052536
9036 052544
9037 052552
9038 052564
9039 052572
9040 052600

9041 052612

9042
9043
9044
9045
9046
9047
9048
9049
9050
9051
9052

052616
052622
052626
052630
052632
052636
052640
052644
052650
052654
052660

9053 052662
9054 052666

005037

002100

013737

060024

060026

053104

012737

052670

060024

012700

172340

013737

012737
012701
012702
012021
077202
005737
001002
013721
013721
013721
013721
104417
000207

000340
133052
000010

BANK
BANK

MOV

#X1PARD,
RO

POP
RETURN

BANK

MAP
BANK
;MAP SUPERVISOR SPACE
SUPERV]SOR
SENTER SUPERVISOR MODE
MOV
FIRST+PWRVEC ,WOOPSAV
MOV
FIRST+PWRVEC+2,WOOPSAV+2
,
BMOV
FIRST+WOOPUP,WOOPSAV+4
, WOOPEND=-WOOPUP/2+12.
MOV
#JOOPUP,
FIRS T +PWRVEC
MOV
#340,FIRST+PWRVEC+2
BMOV
WOOPUP,F 1RST+WOOPUP
, WOOPEND-WOOPUP /2

053102

060026

1%:

002426

172516
177576
177574
177572

PUSH
CLR

2%:

MOV
MOV
MOV
S0B
TST
BNE
MOV
MOV
MOV
MOV
KERNEL

#F IRST+WOOPEND
,R1
8. R2
(RO)+,(R1)e
R2,1$
NOSUPER
2%
MMR3, (R1)+
MMR2
. (R1) +
MMRT
. (R1)+
MMRO, (R1)+
;ENTER KERNEL MODE

(TEST AREA) TO BANK

CIMSDBO MS3i1-L/M DIAGNOSTIC

POWER FAIL WHILE RELOCATED

MACRO M1113

9057 052670

(7-0(7-80 18:01

WOOPUP:

SUBTST

PAGE 334 SEQUENCE 299

SEQ 0306

<<POWER UP FROM BANK 0 TO RELOCATION>>

"'tt'tl"tt"t""""""t""""i"'i'Q'Q'."".'Q""'.".'.""i."'..""Q

:*SUBTEST

POWER UP FROM BANK O TO RELOCATION

:'".".t""'.."""""'""0"‘.Q"'.‘""'...""Q".Q"'.'..Q"".'.""'.

9058
9059
9060
9061
9062
9063
9064
9065
9066
9067
9068
9069
9070
9071
9072
9073
9074
9075
9076
9077
9078

052670
052674
052700
052704
052710
052712
052716
052720
052724
052726
052732
052736
052742
052746
052752
052756
052762
05776
053004
053012

012700
012701
012703
012702
012021
012723
077204
005737
001002
012037
012037
012037
012037
013706

053052
172340
172300
000010

005037

002100

013737
013737

053102
053104

9080 053020
9081 053024

012700
012701

053106
000105

9079

9082 053030

012702
012022
077102

9u86
9087
9088
9089
9092

104417

9083 053034
gggg 053036
053040
053042
053046
053052
053102

000137
000014
000107

1$:

077406
002426
172516
177576
177574
177572
052502

132670

052100

060024
060026

MOV
#WOOPEND
,RO
MOV
#X1PARO,
R
MOV
#X1PDRO,RY
MOV
8. ,R2
MOV
[ROJ*, (R1)+
M(V
#77606, (R?)+
SCB
R2,1$
1S7
NOSUPER
BNL
38
MOV
(RO)+,MMR3
MOV
(RO)
¢+, MMR2
MOV
(RO)
¢, MMR]
MOV
(RO)
¢ ,MMRO
MOV
$SAVRG,
SP
PUSH
BANK
CLR
BANK
MAP
BANK
:MAP SUPERVISOR SPACE (TEST AREA)
SUPERV] SOR
;ENTER SUPERVISOR MODE
KOV
WOOPSAV,
F IRST +PWRVE(
MOV
WOOPSAV+2,F IRST+PWRVEC+2
;SIMULATE THE FOLLOWING BLOCK MOV BUT WITH NO STACK ACCESSES

‘BMOV

MOV
MOV

MOV
MOV
S08

KERNEL
POP
JNP
WOOPEND: .REPT
WOOPSAV: .REPT

WOOPSAV+4,F IRST+WOOPUP,WOOPEND-WOOPUP/2+12.
#UOOPSAV+4
,RO
#WOOPEND-WOOPUP/2+12.
,R1
#F [RST+WOOPUP,R2
(RO)*, (R2)+
R1,2%
;ENTER KERNEL MODE
BANK
$PWRUP
12.
WOOPEND-WOOPUP/2+17,+2

TO BANK

CIMSDBO MSi1-L/M DIAGNOSTIC
10 SUBROUTINES

9097
9098
9099
9100
9101
9102
9103
9104
9105
9106
9107
9108

MACRO M1113

07-0CT-80 18:01

VeYe ENTe JVU P

10 SUBROUTINES

.SBTTL

ROUTINE

J*NOTE1:

SEQ 0307

TYPE

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARA(CTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;*NOTE2:
:*NOTE3:

$FILLC

CONTAINS THE

CHARACTER

TO FILL

AFTER.

. %

SeCALL:

:x1) USI NG A TRAP INSTRUCTION

S «0R

YV TN

) e

.SBTTL

300

TYPE

MESADR

;;MESADR

S$STPFLG

;1S THERE A TERMINAL?

RO,-(SP)

::SAVE RO
;:GET ADDRESS OF ASCIZ STRING

FIRST

ADDRESS

AN ASCIZ

STRING

TYPE
MESADR

e
b o

)

ol
e
b

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A Q BYTE,
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

9111

—

[

336 SEQUENCE

"Qt"'t"'t.Qtt"i"i"""""""l'Q"tt".i"t""""t'tt""'."'t"""t"

s ®

VOO OOVOOY

PAGE

9120 053334
9121 053336
9122 053340
9123 053342
9124 053344
9125 053350
9126 053352
9127 053356
9128 053360

9129 053364
9130 053370
9131 053372
9132 053374
9133 053376

9134 053400
9135 053404
9136 053406
9137 053412
9138 053416
9139 053420
9140
9141 053424
9142 053430
9143 053432
9144 053436
9145 053442

9146 053444
9147 053446
9148 053450

105737
100407
010046

017600

112046

001005
005726
012600
062716
000002

122716
003002
112716
122716
001006
005726

002620

002330
000002

000002

5¢:
6%:

000011

7%:

000040
000200

11%:

105037

053632

123726

053646
002612

000753
004737

001346
013746
105366
002770
004737
105337
000770
000000
116601

005737
001402
104424

8%:
:
9%

002326

000001

SCRLF
CLRB
BR
CALL
(MPB
BNE
MOV

108:

(53446
053632

000004
002514

1ST8B
BM]
Mov
MOV
Move
BNE
TST
MOV
ADD
RTI
CMPB
BNE
MOvB
(MPB
BNE
TST
TYPE

XOCHAR:
$TYPEC:

DECB

BLT

CALL
DECH
BR

.WORD 0

PUSH
Movs

TST

8tQ

2%:

PUSH
PUSH
CACHOFF

@82(SP) ,RO

(RO)+,=(SP)
7%

JBR

;:PUSH CHARACTER TO BE TYPED ONTO STA(CK

#HT, (SP)

;:;BR IF IT ISN'T THE TERMINATOR
1F TERMINATOR POP IT OFF THE STACK
;o
:;RESTORE RO
;:ADJUST RETURN P(
. +RETURN
JBRANCH IF NOT <HT>

#CRLF, (SP)

JREPLACE TAB WITH SPACE
;;BRANCH [F NOT <CRLF>

(SP)+

::POP

(SP)
¢+
(SP)+,RO
#2,(SP)

11%
¥, (SP)

;:TYPE

<CR>XLF> EQUIV

A CR

AND

SCHARCNT
4%
$TYPEC
SFILLC,(SP)+
3]
$NULL,
= (SP)

;;CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;.60 TYPE THIS CHARACTER
;318 IT TIME FOR FILLER CHARS.?
J:1F NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED

1(SP)
9%
$TYPEC
SCHARCNT
10%

;:DOES A NULL NEED TO BE TYPED?
J:BR IF NO=--GO POP THE NULL OFF QF STACK
;:60 TYPF A NULL
;.00 NOT COUNT AS A (COUNT
;.Loo0P

;sAND

THE

NULL

R1
4(sSP) R
CACHKN

CONTRL
RC

;TURN CACHE

OFF

CHAR.

CZMSDBO MSil-L/M DIAGNOSTIC

ROUTINE TYPE

9178
9179
9180
9181
9182
9183
9184
9185
9186
9187

MACRO M1113
3%:

127110

053472
053476
053500
053504
053510
053512
053520
053526
053534
053536

053444
127072

127066
177600
053444

053444
0536444
000023

127040

9188 053542

127034
177600

053444
053444

07-0CT-80 18:01
1ST8

BPL
CLR

1518
BPL
Movs
81(C
CMP
BNE
CONTS3: 1ST8
BPL
Move
BlC

9208 053634

9209 053636

9210
9211
9212
9¢13
9214

053642
053644
053650
053652
053654

127006

000015

053632

122766
001402
105227
000000

000012

005737

002514

001402

000207

XOCHAR
asTKS

a$TKB, XOCHAR

#2C17%,XOCHAR
XOCHAR
. #023

A$TKS

CONTS3

a$TKB, XOCHAR
#C177 YOCHAR

;s CHECK FOR XOFF
-*SKIP IF NO CHARA(CTER

. SAVE THE CHARACTER

:sSTRIP OFF ASCII
;:WAS IT A CONTROL §?
*BRANCH [F NOT
;;WAIT FOR CHARACTER

;sGET CHARACTER
::STRIP OFF

ASCII

IT IS A %Q

CONTS3

105037

000406

000760

001003

SEQ 0308

;;WAIT UNTIL PRINTER [S READY

asTPS

IF XOCHAR £Q #21

000402

110177
122766

J_8
PAGE 336-1 SEQUENCE 301

000002

NC:

MOVB

IF XOCHAR
R1,3$TPB

#CR,2(SP)
1%

18:

(MPB

INCB
$CHARCNT
: .WORD
$TYPEX: POP
TST
BEQ

2%:

SCHARCNT
$STYPEX
#LF,2(SP)
$STYPEX
(PC)+

s EX

::1S CHARACTER A LINE
;;BRANCH [F YES

FEED?

;sCOUNT THE CHARACTER

;1S THERE A CACHE?

;BRANCH If NOT
;POP CACHE

POP

RETURN

; ;BRANCH [F NO
:;YE?;'CLEAR CHARACTER COUNT

;s CHARACTER COUNT STORAGE

POP

SUPLIMIT:; .ttty

:;LOAD CHAR TO BE TYPED INTC DATA REG.
1S CHARACTER A CARRIAGE RETURN?
::

THIS

IS THE

STATUS

LIMIT ON SUPERVISOR MAPPED TO MUT

SPA(CE

CIMSDBO MSH 1- L/M DIAGNOSTIC
ERROR DATA SETUP

MACRO M1113

989?
9893

.SBTTL

9894
9895
9896
9897
9898
9899
9900
9901
9902
9903
9904
9905
9906

USE

THIS

PERRO?

K
8
PAGE 351 SEQUENCE 302

SEQ 0309

ERROR DATA SETUP

IF THIS CONDITION DISCRIBES THE ERROR
TRAP

BAD DATA IN RO UNLESS ABCRTED

THEN BAD DATA IS POINTED TO BY =(R&)

GOOD DATA IN RS
PERRO?2

TRAP

BAD DATA IN R1 UNLESS ABORTED

THEN BAD DATA [S POINTED TO BY =(R&)

GOOD DATA [N R2
PERRO3

9907
9908

TRAP

BAD DATA IS POINTED TO BY =(R1)
GOOD DATA IN R4

9909
9910
9911
9912
9913
9914
9915
9916

PERRO&

PERRO6

Ve
B Wy Wy
8o 8,

PERRQO7

PERR10

By B

Ve Bo

BAD DATA IN R4 UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY =2(R0O)
GOOD DATA IN R2
JSR

BAD DATA IS POINTED TO BY -(RO)
GOOD DATA [N R2
JSR

BAD DATA [S POINTED TO BY =-(RO)

GOOD DATA IS ZERO
RETURN AFTER SETTING UF GOOD,BAD,ADDRESS

PERR11

By Be

TRAP

RETURN AFTER SETTING UP GOOD,BAD ,ADDRESS

By LR, @y W,

PERROS

TRAP

BAD DATA [N R2 UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY
GOOD DATA [N DATBUF

(R1)

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 PC'NTED TO BY
GOGD DATA IS A ZERO BYTE

(R1)

Ve
@ e B4 8o Bo Bs So By 8o

9917
9918
991
9920
9921
9922
9923
9924
9925
9926
9927

07-0CT-80 18:01

PERR1?

TRAP

BYTE TEST

BAD DATA IN RIGHT BYTE OF RO UNLESS ABORTED
THEN BAD DATA IS POINTED TO BY
GOOD DATA [S A BYTE OF ONES

PERR13

TRAP

BAD DATA [N RO UNLESS ABORTED

(R1)

9977

9978
9979
9980
Yv81
9982
9983
9984
9985
9986
9987

Ve e

GO0D DATA [S ZERO
PERR14

Bs e

SE@ 0310

TRAP

BAD DATA IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED 10 BY (R1)
GOOD DATA [S ONES

PERR1S

TRAP

BAD DATA IN RO UNLESS ABORTED

THEN BAD DATA IS POINTED 10 8y

GOOD DATA IN TSTDAT

(R1)

PERR16

O BaBeBeWaeBe®s

L 8
PAGE 351-1 SEQUENCE 303
THEN BAD DATA IS POINTED 10 8Y (R1)

Vo Bs
B o Be

TRAP

BAD DATA IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED 10 BY (R1)

GOOD DATA IN TSTDAT+?

PERR17

TRAP

BAD DATA [N RO UNLESS ABORTED

THEN BAD DATA IS POINTED T0 BY

9949
9950
9951
9952
9953
9954
9955
9956
9957
9958
9959
9960
9961
9962
9963
9964
9965
9966
9967
9968
9969
9970
9971
9972
9973
9974
9975
9976

07-0CT-80 18:01

GOOD DATA IN R2

®6

(IMSDBO MSi1-L/M DIAGNOSTIC
ERROR DATA SETUP

MACRO M1113

PERR20

PERR21

(R1)

TRAP

BAD DATA IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED T0 BY (R1)
GOOD DATA [N R3
TRAP
7 BIT BYTE

TEST

BAD DATA [N RIGHT BYTE OF RO UNLESS ABORTED
THEN BAD DATA S POINTED TO BY

GOOD DATA IS A 7 BIT BYTE ON ONES
PERR22

(R1)

TRAP

BAD DATA IN R2 UNLESS ABORTED

THEN BAD DATA IS POINTED TO BY (R1)

GOOD CATA IN RO
PERR23

PERRZ24

TRAP

BAD DATA IN RO UNLESS ABORTED
THEN BAD DATA IS POINTED 70 8Y (R1)
GOOD DATA IN R4
TRAP

BAD DATA IN RO UNLESS ABORTED

THEN BAD DATA IS POINTED TO 8y (R2)

GOGD DATA IN R3
PERRZ2S

TRAP

BAD DATA POINTED TO BY =(R1)
GOOD DATA IN R2 UNLESS LOC Vi77654 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
GCOD DATA 1S 000000,,100000,,100

CIMSDBO MSi1-L/M DIAGNOSTIC
ERROR DATA SETUP

MACRO M1113

07-0CT-80 18:01

PAGE 351-2 SEQUENCE 304

10006
10007
10008

;
;
;

10011
10012
10013
10014
10015
10016
10017
10018
10019
10020
10021

:
.
;
;
;:
:
:
;.
;
;
:

PERR30

TRAP
BAD DATA IS POINTED TO BY =-16(SP)
GOOD DATA IS IN R1

PERR31

TRAP
SPECIAL ECC FAILURE HANDLER

PERR32

TRAP
SPECIAL ECC FAILURE HANDLER

PERR33

TRAP
SPECIAL ECC FAILURE HANDLER

10024

PERR34

TRAP

}88?8

10022
10023

10025
10026
10027

}8853

10030
10031
10032

10033

PERR27

;

:
:

:
:
:

.
;
;

TRAP
BAD DATA IS DOUBLE WORD POINTED TO BY R1 AND IN LOW 7 BITS OF RO

GOOD DATA 1S 000000,,000000,,077

PERR3S

'28:

SPECIAL ECC FAILURE HANDLER
TRAP

SPECIAL BRANCH GOBBLE FAILURE HANDLER,

CALLING SEQUENCE FOR TRAP TYPES
BEQ
2%
:NO - ERROR,BRANCH FOR CARD
PERRXX
;TRAP TO ERROR ROUTINE

INSTRUCTION

“CONTINUE TESTING

SEQ 0311

CIMSDBO MSi1-L/M DIAGNOSTIC

ERROR DATA SETUP

10036
10037
10038
10039
}882?

010437
162737
010037
010537
000137

002032
000002
002050
002042
054410

10042 053702

010437

002032

10064 053714
10045 053720

010137
010237

002050
002042

10048
10049
10050
10051

053730
053734
053742
053746

}882% 053754

010137
162737
010437
016137

000137

002032
000002
002042
177776

10054
10055
10056
10057
}8828

053760
053764
053772
053776
054002

010037
162737
010437
010237
000137

002032
000002
002050
002042
0546410

10060
10061
10062
10063

054006
054012
054016
054022

010237
014037
010037
062700

002042
002050
002032
000002

}8829 053724

10068
10069
10070
10071
10072
10073
10074
10075
10076
10077
10078
10079
10080
10081
10082
10083
10084
10085
10086
10087
10088

162737

000137

000002

002032

$PERO?Z: Mov

sus

#2 ,ADDRESS

$PERO3: MOV
SuB

#2 ,ADDRESS

054410

002032

MOV

002050

002032

$PEROG: MOV

sus

MOV
Mov
JMP

040126

054040

005037
000764

002042

PERRO6:

054042
054046
054052
054060

010137
010237
013737
000137

002032
002050
002234
054410

$PERO7. MOV
MOV

054114
054120
054124
054130
054134
054140
0564144
054152

RETURN

054462

RO,ADDRESS

#2 ,ADDRESS

R4 ,BAD
R2,G00D
PERRAW

R2,GO0D
=(R0O) ,BAD
RO,ADDRESS
#2,R0
BADSTACK
GOOD

R1,ADDRESS

R2,BAD

DATBUF ,GOOD
PERRAW

:= R1

:= R

LET BAD := RO
LET GOOD := #0
PERRAB

LET ADDRESS := R
LET BAD := RO
LET GOGD := #377
JMP

+ #2

:= DATBUF+2

PERRAW

LET ADDRESS
JMP

:RESTORE RO

PERAOS

LET BAD := R2
JMP

$PER12:
000137

R&,GO0D

LET ADDRESS
LET GOOD

054410

$PER11:

000137

CLR

MOV
JMP

$PER10:
000137

R1,ADDRESS

MoV
-2(R1),BAD
JMP PERRAW

PERROS:

002042

R4 ,ADDRESS

MOV
R1,BAD
MOV
R2,600D
JMP PERRAW

004737
000207

054064
054076
054102
054110

305

$PERO1: MoV
R4 ,ADDRESS
sus
#2 ,ADDRESS
MOV
RO,BAD
MoV
RS,GGOD
JMP PERRAW

MoV
PERAODS: MOV
Mov
ADD
CALL

10064 054026
10065 054032
10066
10067 054034

N 8
PAGE 353 SEQUENCE

07-0CT-80 18:01

SEQ 0312

053654
053660
053666
053672
053676

10043 053706

MACRO M1113

PERRAB

CIMSDBO MSi1-L/M DIAGNOSTIC

ERROR DATA SETUP

10091 054156
10092 054162

10093 054166
10094

10095

07-0CT-80 18:01

000137

054410

000137

054242

054410

PERRAW

LET ADDRESS := R1
LET BAD := RO
LET GOOD := ONES

JMP

PERRAW

$PER1S: LETY ADDRESS := R1
LET BAD := RO
LET GOOD := TSTDAT
PERRAW
JMP
$PER16:

000453

LET ADDRESS := R1
LET BAD := RO
LET GOOD := TSTDAT+?2

PERRAW

b D b D d e
NO WV
WA

000444

b
2OV

LET ADDRESS := R1
LET BAD := RO
LET GOOD := R2

000435

NO WS WA

$PER17:

000477

$PER21: LET ADDRESS := R
LET BAD := RO
LET 600D := #177
PERRA?
BR

000416

$PER2Z: LET ADDRESS := R1
LET BAD := R2
LET 600D := RO
PERRAW
BR

VOO NO WVWO WO

054346
054352
054354
054360
054364
054370
054372
054376
054402
054406

000407

000400

PERRAW

$PER20: LET ADDRESS := R1
LET 8AD := RO
LET 600D := R3
BR

PERRAW

$PERZ3: LET ADDRESS := R1
LET BAD := RO
LET 600D := R4
B8R

PAGE 355 SEQUENCE 306

LET ADDRESS := R
LET BAD := RO
LET GOOD := #0
JMP

$PER1G:

03 054230
4 054236

b S O O OO OO
[«
AV,
=20 000

MACRO M1113

$PER1I:

000137

AN
N WM
NAN N NN PPN NINININININ)

[

PERRAW

$PER2G: LET ADDRESS := R2
LET BAD := RO
LET 600D := RJ
PERRAW
BR

SEQ 0313

CIZMSDBO MSi1-L/M DIAGNOSTIC
ERROR DATA SETUP
10141

054410

MACRO M1113

07-0CT-80 18:01

PERRAW:

SUBTST

PAGE 356 SEQUENCE 307

<<DATA WAS A WORD>>

."t."'."'.t."'t""'"'0"""'."'.'l"Q"."'Q""""."'Q'Q."Q'.Q"."Q'

DATA WAS A WORD

:+SUBTEST

:'"""".t'i""""""i"""'""'".'."".'Q."..".."""""'Q""'Q'.

10142
10143
10144
10145

054410
054414
054426
054440

004737

054644

004737

054620

10147 054452
10148 054454
10149 054456

104011

}8125 054460

000002

10146 054444

10150 054460

CALL
PERBNK
IF ABORTFLAG IS TRUE THEN $CALL GETDATA
IF BADPC EQ #0 THEN SCALL BADSTACK
CALL
PERXOR
IF ABORTFLAG 1S FALSE

ERROR +11
ELSE
ERROR +12
END ;OF IF ABORTFLAG
RTI

104012

10153 054462

PERRAB:

SUBTST

<<DATA WAS A BYTE>>

.'tt.".'Q't"ti""t""""""'Qi"'fl"""."".".'."'Q.Q".""'Q.Q"'.'.'

DATA WAS A BYTE

“*SUBTEST

;tttt..'t""""""""'"Qt'""'."i.Q'."""Q'Q"."".Q".""""..Q..'.

10154 054462

004737

054644

CALL

10157 054512
10158 054516
10159 054524

004737

054620

CALL
PERXOR
IF ABORTFLAG IS FALSE
ERROR +14

10161 054530

104015

10155 054466
10156 054500

10160 054526

10162 054532
10163 054532

104014

000002

PERBNK

IF ABORTFLAG 1S TRUE THEN $CALL GETDATA
1F BADPC EQ #0 THEN $CALL BADSTACK

ELSE

ERROR +15

END ;OF
RTI

ABORTFLAG

SEQ 0314

(IMSDBO MSi1-L/M DIAGNOSTIC

DATA WAS A BYTE

MACRO M1113

10166 054534

SUBTST

PERRA7:

; *SUBTEST

d
—b

OO ~N~~N~N~N
O WO ~NOMWN

D
od

e
D

o
b
D

D e
e
d o
e

QeQhonr-Gpenr
G b

e
e
e

pas S

mad

[elolelalololalolelololololele]

181

054562
054570
054576

054602
054606
054614

SEQ 0315

<<DATA WAS A 7 BIT BYTE»

;""'Qtt'ti"t'""""""""'Q"'Q""""tt"""""""""""'IQQQ""'
R

054534
054546
054552
054556
054560

D 9
PAGE 358 SEQUENCE 308

07-0CT-80 18:01

004737
004737
104022
000002

DATA WAS A 7 BIT BYTE

R R

IF BADPC EQ #0 THEN SCALL BADSTACK

054620
054644

CALL
CALL

ERROR
RTI

PERXOR
PERBNK

+22

$PER26: LET GOOD2
000137

051212

005037

002044

000137

051212

:= #100000
LET GOOD3 := #100
JMP PERRAY

054620

$PER27:

CLR
60002
LET GOOD3 := #077
JMP PERRA3

PERXOR:

SUBTST

<<DETERMINE XOR OF GOOD & BAD>>

:'ttt"'.tt'.'t"""'!"""""t"'Q'fiQQ'Q'Q.""'Q"".".""""'t"QQ'Q"'

;+SUBTEST

DETERMINE XOR OF GOOD & BAD

:'tQi't..'Q.'l'i"""'tt""""'i.'.'.i"..t'.'QQ't."C"."""."""".t"t

10182
10183
10184
10185
10186
10187

054620
054622
054626
054634
054640
054642

013700
013737
074037
000207

002042
002050
002056

002056

PUSH
MOV
MOV
XOR
POP

RETURN

RO
600D
, RO
BAC,BADXOR
RO,BADXOR
RO

CIMSDBO MSi1-L/M DIAGNOSTIC
DETERMINE XOR Of GOOD & BAD

MACRO M1113

10190 054644

PERBNK:
I

£ 9
PAGE 360 SEQUENCE 309

07-0CT-80 18:01

XXX

SEQ 0316

SUBTST<<LOG ERROR ON BAD BANK>>

S eSUBTEST

XXX

RS XX R

XX R

LOG ERROR ON BAD BANK

AR R

:"'.""'".."""""""""Q'Q"""'."'Q"""""""'Q""'Q"'QQQ""'

:WHILE WE'RE MERE LET'S MARK THE BAD BANK [N THE (ONFIGURATION TABLE

19191

10192 054644
10193 054650
10194 054654
10195 054656
10196 054660
10197 054666
10198 054672
10199 054674
10200 054700
10201 054706
10202 054710
10203 054716
10204 054722
10205
10206 054724
10207 054730
10208 054740
10209 054746
10210 054750
10211 C54756
10212 054756
10213 1,54762
10214 054770
10215
10216 054772
10217 055004
10218 051710
10¢19 055020
1022(, 0550¢2
10221 05502
1022 055032
10223 055034
10224 0>>034
10225 055044
10226 055046
10227 055046
10228 055056
10229 055060
10230 055060
10231

055066

013701
006301
006301
052701
105261

001002

105361
126137
101403

002100

000001
002626
002626
002626

0026¢4

000207

010037

002050

013737

002240

002042

013737

002242

002042

004737

054620

12%:

104037
104042

104043
104044

000002

ASL

8IS
INCB
BNE

#BITO,CONFIG(RY)
CONF1G*2(RY)
12%

(MPB

CONF1G*2(R1) ,ERRMAX

DECB

BLos
SET

CONFIG*2(R1)

118

TOOMANY

118

POP
RE TURN

R1,RO

PERECC:

MOV

RO,BAD

:BUMP BANK COUNTER
:NO OVERFLOW - SKIP

;SET BACK TO 255.
;1S

MOV

SYES

TSTDAT+2,G000

END :OF [F (R1)
PERXCR
CALL
HEADER
SET

RE TURN

054724

SPER3Y:

1F BADPC EQ #0 THEN SCALL BADSTA(K

CALL

PERECC

1F REALPAT EQ #11

ERROR +37

END ;OF

IF REALPAT

END ;OF

[F REALPAT

1F REALPAT EQ #14
ERROR +42

IF REALPAT EQ #15
ERROR 43

END ;OF [F REALPAT
IF REALPAT EQ Mé
ERROR +4&4&
END ;OF IF REALPAT
SET HEADER

RT]

PAST MAX?

INC - SKIP

1f ADDRESS EQ TESTADD
‘ ggv TSTDATY,GOOD
L

000207

004737

R
RO,
BANK ,R1

ASL

002926

PUSH
MOV

CIMSDBO MSi1-L/M DIAGNOSTIC

OSSO SO0

pury

Po O

055216
10255 055230
10256 055240
10257 N55242

03
23

000002

010137
010037
105037

012737
006737

10276

HEADER

IF BADPC EQ #0 THEN S$CALL BADSTA(K

MOV
Mov

R1,ADDRESS
RO,BAD

MOV

#377,G000

BAD+1

CLRB

002042

CALL
SET
ERROR
SET

END
RT]

062706
000207

000004

055304

010037
010137

002042
002050

000002

HEADER
+40

PERXOR
HEADER
+41
HEADER

ERROR +16
ELSE
ERROR +1

054644
040126
002030
000012

104023

RO,BAD
R2,G00D

$PER34:IF BADPC EQ #0 THEN $CALL BADSTA(K
IF #BIT15!BIT4 OFF.IN (SR

004737
004737
013737
012737
104047

SEQ 0317

R1,ADDRESS

MOV
MOv
MOV

RTI

055250
055254
055260
055266
055274
055276
055302
10

$PER3I:

104016

000002

10263
10264
10265
10¢66
10267
10268
10269
10270
10271
10272
10273
10274
10275

002032
002050
002051
000377
054620

000002

10260 055246
10261
10262

RT]

1040461

104001

PAGE 362 SEQUENCE 310

If BADPC EQ #0 THEN SCALL BADSTA(K

SET
ERROR
SET

104040

10258 055244

10259 055246

(07-0CT-80 18:01

SPER3Z:

NN~

—d

[olele)

W
= =00
QO NNOPOVNVNIAN

SO ONION

(U LV LV LV IV LV 1V, }
(WL TV, JV, LV, [V LV, }

b
d o
d
b ed
no PON) =

[elolelolololelolaleiNoalelalelelele]

(VL IV JV RV LU LV LV LV, LV 1V}
(W NV TV JV LV TV LV LV [V LV}

055070

[olole)

LOG tRROR ON BAD BANK

MACRO M1113

$PER3S:
0€2050
002042

;Of

IF #RIT15.BiT4

; DURING BRANCH GOBBLE
PERBNK
CALL
BADSTACK
CALL
MOV
BADPSW,BAD
#12,6000
MOV
47
ERROR
ADD
RE TURN

$PER3S: MoV

MOV

SET
ERROR
SET
RTI

#4,SP

RO,GOOD
R1,BAD
HEADER

+23

HEADER

:NO SBE

OR DBE

;EXPECTED SBE SO DBE MUST HAVE GOTTEN SET

THE CONDITION CODES WERE WRONG

;FIX STACK FROM TRAP
JABORTING TEST

CIMSDBO MSi1-L/M DIAGNOSTIC

ROUTINE

SCOPE

HANDLER

MACRO M1113

10279

G 9
PAGE 364 SEQUENCE 311

07-0CT-80 18:01
.SBTTL

ROUTINE SCOPE HANDLER

10280

10284
10285
10286
10287

s*SW16=1
LOOP ON TEST
;*SW9=1 LOOP ON ERROR
s*CALL
.Y
SCOPE
;:SCOPE=ICT

10281
10282
10283

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IV WILL
:*AND LOAD THE DISPLAY DATA INTO THE DISPLAY REGISTER
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

10288 055334

10289 055340
10290 055342

10291 055346
10292 055352

10293 055352

005237

062476

005037
105237

062476
062500

104410

10294 055354

005737

006104

10296 055362
10297 055366

004737

061002

055404
055410
055414
055414
055422
055424

005037
000137

002370
045074

10315 055434

000425

10317 055436
10318 055442
10519 055450
10320 055454
10321 055460
10322 055462
10323 055466
10324 055474
10325 055476
10326 055502
10327 055506
10328 055510
10329 055510
10330 055514
10331 055516
10332 055524
10333 055526
10334 055534
10335 055536
10336 055542
10337 055546

013746
012737
005737
012637
000430
062706
022737
001002
005037
012637
000407

000004
055462
177060
000004

105737
001412
032777
001404
013737
000410
105037
011637

002012

10339 055556

004737

055570

10295 055360

10306 055366
10307
10308
10309
10310
10311
10312

SEQ 0318

10313 055424
10314

10316

001402

$SCOPE:

011637
005037

10340 055562
10341 055566

013716
00000¢

$DEV(T

INCB
END ;OF

SUNIT
IF RESULTY

TST

TRACE

RESULT IS LT
CLR
SDEV(CT

(KSWR

BEQ

NOTRCE:

CALL

NOTRCE

CONTT

INCREMENT

AR R

sTELL APT WE ARE ALIVE

;:TEST

FOR CHANGE

IN SOFT-SWR

: TRACE

IF STOPOK IS TRUE AND #SW8 SET.IN aSWR

CLR
STOPOK
JMP
EXIT
END ;OF [F STQPOXK
1F NOSCOPE IS TRUE
RT]
END ;OF IF NOSCOPE

000002

10338 055552

INC

1%:
IF #SW14 SET.IN @SWR THEN GOTO $OVER
-ANRNESTART OF CODE FOR THE XOR TESTERAANAX

000004
000001

000006

003710

177766
000004

001000

125052

002564

002562

002012
002562

002564
002332

002562

‘XTSTR: B8R

MOV
MOV
TS
MOV
B8R
1%:
ADD
CMP
BNE
CLR
6%
MOV
BR
2S:;MNNANEND OF
3%
1578
BEQ
BIT
8EQ
4§:
MOV
BR
5%:
CLRB
$SVLAD: MOV
MOV

ERRVEC,-(SP)
::SAVE THE CONTENTS OF THE ERROR VECTOR
#1%,ERRVEC
;:SET FOR TIMEOUT
177060
;;TIME OUT ON XOR?
(SP)+,ERRVEC
::RESTORE THE ERROR VECTOR
$SVLAD
260 TO THE NEXT TEST
’,5P
;FIX STACK FRCM TRAP
#1,PROTYP
;1S THIS AN 11/44?
6%
:BRANCH IF NOT
CPUERR
:RESET CPU ERROR REGISTER
(SP)+ ,ERRVEC
::RESTORE THE ERROR VECTOR
49
;:LO0OP ON THE PRESENT TEST
CODE FOR THE XOR TESTERANNAN
$ERFLG
;;HAS AN ERROR OCCURRED?
$SVLAD
:;BR IF NO
#5W9,aSWR
;;LOOP OM ERROR?
5%
;:BR IF NO
SLPERR,SLPADR
::SET LOOP ADDRESS TO LAST SCOPE
$OVER
SERFLG
;o lERQO THE ERROR FLAG
(SP),SLPADR
;:SAVE SCOPE LOOP ADDRESS
(SP) ,SLPERR
:;SAVE ERROR LOOP ADDRESS

SOVER:

GETDIS

(LR

CALL

MOV
RT}

::1F RUNNING ON THE ''XOR'‘ TESTER (HANGE
;;THIS INSTRUCTION TO A ''NOP'' (NOP=240)

$ESCAPE

::CLEAR THE ESCAPE FROM ERROR ADDRESS

SLPADR, (SP)

::FUDGE RETUKRN ADDRESS
soFIXES PS

(IMSDBO MSil1-L/M DIAGNOSTIC
ROUTINE SCOPE WANDLER

MACRO M1113

10343 055570

07-0(T-80 18:01

GETDIS:
R

SUBTST

s*SUBTEST

<<SUBR
R

PAGE 365 SEQUENCE 312

SUBR

DISPLAY>>

SEQ 0319
R

DISPLAY

;it""'t""fi"""""""""'QQ"".t"ttt"t'Q't"i.Q'Q"Q""""Q""""

103446 055570
10345 055576
10346 055604

10347 055606

10348
10349
10350
10356
10355

055612
055614
055622
055622
05563C

10356 055636
10357 055640

113737
113737

0021G0
002260

005737

0021264

001403
052737

013777

013737

000207

002011
002010

BANK, $BANK
REALPAT,SPATMAR
RO

BEQ
BIS

1%
#BITIS,$PATMAR

1871

100000

002010

124750

002010

mova
Move
PUSH

000174

1$:

RLFLAG

Mov

SPATMAR,GDISPLAY

POP
RETURN

MOV

SPATMAR ,DISPREG

;ARE WE RELOCATED?
:NO - SKIP
;YES = SET MSB

:SOF TWARE DISPLAY REGISTER

CIMSDBO MSi1-L/M DIAGNOSTIC

ROUTINE ERROR HANDLER

MACRO M1113

.SBTTL

10360
10361
10362
10363
10364
10365

ROUTINE ERROR HANDLER

"Q'I'Qt'i"t"""""""""""""W'"".'lt"t""""""'Q""Q"t't't'

T*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO TO SERRTYP ON ERROR

S THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

HALT ON ERROR
INHIBIT ERROR TYPEGUTS

S eSW15=1
vSW13=1

10366
10367
10368
10369
10370

10371
10372
10373

1 9
PAGE 367 SEQUENCE 313

07-0CT-80 18:01

BELL ON ERROR
;*SW10=1
ERROR
ON
LOOP
;*SW9=1
s *CALL

055642
055650
055652
055656
055660
055664
055672
055700
055702
055706
055712
055716
055720

055726
055726
055726
055732
055740
055744
055752
055760
055766
055774
056002
056010
056016
056024
056030
056030
056036
056046
056050
056050
056066
056070
056070
056070

104410
105237

001775
004737
013737
032777
001404

055570
002010
002000

005237

002570

012737

077777

002016
000002
002022
000002

124040

’%:
002570

002016
002026
002013

005037
013737

002016

062470

056306

.ENABL
LSB
|F NOERROR IS FALSE

124676

002016
002016
002022
002026

004737

$ERROR:

062472

002020
000002
002024
002039
002020

000412

ERROR

1%:

002012

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

CKSWR
INCB

SERFLG

MOV
BIT
BEQ

SPATMAR,STESTN
#SW10,aSWR
2%

BEQ
CALL

TYPE
TYPE

INC

;s TEST FOR CHANGE [N SOFT-SWR
;:SET THE ERROR FLAG

1%
GETDIS

;.DON'T LET THE FLAG GO TO ZERO
;SETUP DISPLAY STUFF

$BELL
MSGO14

:.RING BELL
;CONTROL Z

SERTITL

IF RESULT

IS M]

FOR APT
.;BELL ON ERROR?
::NO - SKIP

;s COUNT THE NUMBER OF ERRORS

MOV #77777 ,SERTTL

END ;OF IF RESULT
END ;OF [F NOERROR

(SP) ,ERRP(
#2 ,ERRPC

MoV
suB

;;GET ADDRESS OF ERROR INSTRUCTION

SP,ERRSP

MOV

2(SP) ,ERRPSW

MOV

SERRPC,$ITEMB

Move

IF NOERROR IS FALSE

;;STRIP AND SAVE THE ERROR ITEM CODE

IF BADPC NE #0

MOV BADPC,ERRP(

SUB #2,ERRPC

MOV BADSP,ERRSP
MOV BADPSW,ERRPSW
CLR BADPC
END ;IF

;FOR APT
ERRPC,SFATAL
IF #SW13 SET.IN QSWR
BR 3%
END ,;Of IF #SW13
IF #SWS SET.IN aSWR AND TOOMANY 1S TRUE
GOTO 3%
END ;OF IF #SWS
END ;OF |F NOERROR
;.60 1O USER ERROR ROUTINE
SERRTYP
CALL
MOV

SEQ 0320

CZMSDBO MSi1-L/M DIAGNOSTIC
ROUTINE ERROR HANULER
10417 056074
10418 056102
10419 056106
10420 056110
10421 056112
10422 056114
10423 056132
10424 056136
10425 056136
10426 056142
10427 056144
10428 056150

10429 056156

10430 056164
10431 056166

10432 056172

10433 056214
10434 056222

10435 056226

10436 056226
10437 056244

10438 056250
10439 056254
10440 056260
10441 056264
10442 056264

005777
100002
000000
104410

124470

013716

002564

005737
001402
013716

002332

022737

000001

001002
005037

012737
000137

013700
005037
000137

MACRO M1113

SHALT:

002332

003710

9% :

177766

000001
045074

056266
056274
056274
056304

PAGE 368 SEQUENCE 314

SEQ 0321

If NOSRROR [S FALSE
TST
aSwR
BPL
7%
HALT

; sHALT ON ERROR
;:SKIP IF CONTINUE
;sHALT ON ERROR!
(KSWR
;s TEST FOR CHANGE IN SOFT-SWR
IF NOSCOPE IS FALSE AND #SW9 SET.IN aSWR
MOV SLPERR, (SP)
;;FUDGE RETURN FOR LOOPING
END ;OF IF NOSCOPE
TST
SESCAPE
;:CHECK FOR AN ESCAPE ADDRESS
BEQ
9%
;;BR IF NONE
MOV
SESCAPE, (SP)
;;FUDGE RETURN ADDRESS FOR ESCAPE
IF DETFLAG IS FALSE

CMP #1,PROTYP

;1S THIS AN 11/44?

118: IF ACTFLAG IS TRUE OR APTFLAS IS TRUE OR FATALS IS TRUE

062466

MoV
JMP

END ;OF

#1,8MSGTY
EXIT

IF ACTFLAG

;FOR APT

IF XXDPCHAIN IS TRUE AND S$ERTTL HI #20
;ERROR COUNT EXCEEDED 20 - ABORTING FOR XXDP (HAIN
MSGO66
TYPE

000042
000042
014410

MoV
42,R0
CLR
&2
JMP
$1APL?
END ;OF IF XXDPCHAIN
END ;OF IF DETFLAG

ELSE

000002

BNE 11%
CLR CPUERR

10443 056264

10444
10445
10446
10447
10448

07-0CT-8C 18:01

3%:

7%:

108:

HEADER
SET
END .OF IF NOERROR
CLEAR TOOMANY ,NOERROR
RTI
: sRETURN
.DSABL
LSB

CZMSDBO MS11-L/M DIAGNOSTIC
ROUTINE ERROR MESSAGE TYPEOUT
10451
10452
10453
10454
10455
10456
10457
10458
10459
10460
10461
10462
10463

10464
10465
10466
10467
10468
10469
10470
10471
10472
10473
10474
10475
10476
10477
10478
10479

07-0(T-80 18:01
.SBTTL

K_9
PAGE 370 SEQUENCE 315

SEQ 0322

ROUTINE ERROR MESSAGE TYPEOUT

't't""'t.t't"i"t'i'Q't"""t"li"tt"".'tt"t"""'"""'t""'tt"Qtt

:«THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ''ERROR TABLE'' (SERRTB),
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
056306
056310
056314
056316
056322

056324
056332
056334
056336
056340
056342
056344
056350
056354
056356
056362
056364
056370
056372
056376
056400

10480 056404
10481 056406
10482 056410
10483 056414
10484 056420
10485 056422
10486 056426
10487 056430
10488 056434

10489 056436
10490
10491
10492
10493
10494

MACRO M1113

056440
056442
056446
056450
056452

104415

v05000
153700

001004

000503
005300
006300
006300
006300
062700
012037
001417
005737
001003
005737
100011

005737
001402

$SERRTYP:SAVREG

002013

1%:

063110
056406

002062

100004

000000
012001
001427
012002

12%:

2%:
3%:
056440

002400

002552

13%:
5%:

6%:

::""CARRIAGE RETURN'' & ''LINE FEED"
;sPICKUP THE ITEM INDEX

:;1F ITEM NUMBER IS ZERO, JUST

::TYPE
ERRPC <ERROR Aooaess>

DEC
ASL
ASL
ASL
ADD

RO
RO
RO
RO
#$ERRTB,RO

7ST

NOERROR

TST

HEADER

B8R

BNE

002552

$CRLF
RO
$ITEMB,RO
1%

TYPOCT

MOV
BEQ

002400

000000

012037
001412
005737
001003
005737

TYPE
CLR
BISB
BNE

BPL
TST
BEQ
TYPE

TYPE
.WORD
TYPE
MOV
BEQ
TST
BNE
TST
BPL

TYPE
WORD
TYPE

MoV

BEQ
MOV

11%

(RO)+,38
48

THE

ERROR

:GET ouT

..ADJUST THE INDEX SO THAT IT WILL
e
WORK FOR THE ERROR TABLE
:;FORM TABLE POINTER

::PICKUP '"'ERROR MESSAGE'' POINTER
::SKIP TYPEOUT IF NO POINTER
;1S THIS REALLY AN ERROR?

12%

:YES - SKIP

4%
FATALS
2%
MSGO67

:NO - SKIP
:WAS IT A FATAL ERROR?
:NO - SKIP
;FATAL

O
$CRLF
(RO)+,5%
6%

; TYPE HEADER?

;s TYPE THE "'ERROR MESSAGE"'
;;''ERROR MESSAGE'' POINTER GOES HERE
::"'CARKIAGE RETURN'' & '"'LINE FEED''
::PICKUP ‘DATA HEADER'' POINTER
;:SKIP TYPEOQUT IF O

NOERROR
13%
HEADER
6%

;1S THIS REALLY AN ERROR?
;YES - SKIP
:TYFE HEADER?
;:NO - SKIP

O
$CRLF
(RO)+,R1
108
(RO)+,R2

::PICKUP ''DATA TABLE'' POINTER

,.TYPE THE '‘DATA HEADER''
;:'DATA HEADER'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & "'LINE FEED'
::BR IF NO DATA TN BE TYPED
;:PICKUP ''DATA FORMAT'' POINTER

CIMsSOBO MS11-L/M DIAGNOSTIC
ROUTINE ERROR MESSAGE TYPEQUT
10497 056454
10498 056456
10499 056460
10500 056464
10501 056466
10502 056470

WNOWNESW N =2O VO ~NONWVO

VL TV TV AV AV, ]
VIVAVIVAWL (VA AV I I
b b o ok =B D
NONINONINON) POPIN)

i
D
D
D
D nd e
D ad
D rd
d
D crd
-

[elelolololelelelolelolololaolele]

10503 056472
10504 056474
10505 056476
056500

056502
056504
056506
056510
056512
056516
056520
056522
056526

056530
056534
056536
056542

056544
056570
056574
5
056574
529 056600

112203

006303
004773
000412
056602
056612
056622
056672
056732
056744
056756
057022
057030
057110
062701
005711
001403

MACRO M1113
7%:

056466
8%:

000002

002106

004737

057132

000207

:MAKE

#2,R1
(R
10%
MSG018
7%

:UPDATE DATA TABLE POINTER
;:1S THERE ANOTHER NUMBER?
;:BR IF NO
sTYPE 2 SPACES
;:LOOP

TST
BEQ
INC
RESREG

MUT
11%
HEADER

;1S THERE A MEMORY UNDER TEST
;NO - SKIP
:YES = BUMP HEADER FLAG

CALL
END ;OF

DETAIL

BR
TAG70$
TAG71$%
TAG72%
TAG73$
TAG74$
TAG75%
TA576%
TAG77%
TAG78$
TAG79$
ADD

1ST
BEQ
BR

005737
001402
005237

002552

10%:
11%:

L_9

PAGE 372 SEQUENCE 316

(R2)+,R3
R3

MOvB
ASL
CALL

TYPE

000752

104416

07-0CT-80 18:01

388 (R3)
9¢

IT A WORD ADDRESS

1F #Sw? SET.IN aSWR AND DETFLAG IS FALSE AND NCERROR [S FALSE

TYPE
RETURN

IF #SW7

MSG104

;CONTROL

SEQ 0323

CIMSOBO MSi1-L/M DIAGNOSTIC

ROUTINE ERROR MESSAGE

TYPEOUT

MACRO M1113

10532

10534

10533

10535 056602

}82;9 056610

seev OCTAL wee
T

TAG708: TYPOCT

000207

10538

AR AN

10539

srev DECIMAL wwe

10540

10541 056612
}822% 056620

TAG718: TYPDEC
RETURN

AR RN A R

10546

AN A AN

10547 056622
10548 056626
10549 056632

TAG72$: PUSH
MOV
MUL

10550 056636
10551 056644
10552 056650
10553 056654

10554 056660

10555 056664

}822? 056670

013701
070127

002100
000004

004737

037214

005037

002342

CLR

10559

seex (SR xee

10564 056706

10565 056714
10566 056720
10567 056724
}8228 056730

013701
070127

002100
000004

004737
005037

037534
002342

A A

RN AN

RN AN N

R TP RN AT RN R R

RN AR

ITICCTNIANANARNORONS

10576

10577

Tesn BANK tew

RETURN
AR

AR AR

TAG75%: TYPOCS

RETURN

L AR

RN T E PN RTERIRRARRRRIRERRNCOY

RS ,R1

10573 056732

000207

N RITRCNOAOORNY

TCFIGY

REALPAT,<TYPE (0-77)>,2,1

10579 056744

R AN G TR

TR TROORORS

NOTAB

TAG748: TYPOCS

10580 056754

NOTAB

CALL
CLR
POP
RETURN
seet PATTERN tee

10578

A AR AL A AR ALl

AR AN G R CCR ORI

R PR R R TR AR RN AN AR RPN N RO PR

10571

000207

:INDICATE NO TABLE TO BE PRINTED = NOW

RN R

}82;? 056742

R R A

;1 SPACE

R1,RS
BANK ,R1
6 ,R1

SET

R R R PR NA

R E AR AN R AN

10570

10572

::TYPE A DECIMAL NUMBER

R P

TAG73%: PUSH
MOV
MUL

000207

AL R

RO A AN RN NN R AR RN RNV

RS ,R1
MSG014

RE TURN

10560

NOTAB

TYPE

RO RN RN R

NOTAB
MSGO14
TCFIGT

POP

000207

PR AN

R1,RS
BANK ,R1
#4 ,R1

SET
TYPE
CALL

AR AP RN T LR TN R RN AR R RN TR AARAR RNV RERONN FROANOROTNRNROORNRNY

sewx INTERLEAVE ¢ev

10558

10561 056672
10562 056676
10563 056702

P A A

SEQ 0324

::TYPE AN OCTAL NUMBER

a(R1)

10544

10545

a(R1)

RETURN

000207

n9
PAGE 374 SEQUENCE 317

07-0CT-80 18:01

R R AP

R
R

R P AR R AN R AN RN RN RN AN TR AR I AATNATTARE RN TONROONOS

TNt

E AR

TR R R R

R Rt R

RN
R LR RN

BANK,<TYPE (0-167)>,3

RE R AR AN
AN R RN

R R AR AR

AARNAT NN ARAABEORINONOROROY

bl lll)

E NIRRT ATRETNENNOATONROOOOLOS

CIMSDBO MSil1-L/M DIAGNOSTIC

d
b
b
b

585
586
587
588
589

[olelelale]

ROUTINE ERROR MESSAGE

056756
056762
056766
056772
057000

10590 057004

10591 057010

_a.a_a.a-a.AE;E;E;-a_hfl
[=Je]e]
000800000
oo
PNOPIN)
b b d ood cd ed e b

10592 057014
10593 057020
10594
10595
10596
10597
10598 057022
10599 057026
10600
10601
10602
10603
10604 057030
10605 057036
10606 057044
10607 057052
10608 057056
10609 057060
10610 057066
611 057072
YOS W

013701
070127

002100
000004

004737
005037

037346
002342

07-0CT-80 18:01

PAGE 375 SEQUENCE 318

SEQ 0325
SRR

RANR AR RN

sxvt

MTYPE

SRR

A AR

AN R

RN AN AN

RN RN

RN AR AN

R1,RS
BANK ,R1

SET
TYPE
CALL
CLR
POP

NOTAB
MSGO19
TCFIG2
NOTAB
RS,R1

MUL

000207

RETURN
A

R RN RN R AN RANN RN R RN R RARARAR

AN RARNANNRCER

RN NNNOORNS

wee

TAG768: PUSH
MOV

RO RN RN

A RN

RA AN NARNNANRNANRNNRRNERAARRARNOOORNS

26 ,r1

d a2
2222222222222 22}

s#xt UNKNOWN DATA #w+¢
S

2222233222322 223282222222222222X22222
22222223 222
X222
REYRRYRRYXYS RS SYXXRRR R

TAG?7$:

000207

TYPE
RETURN

MSGO61

;"Qttt'ttttt'ittt'ttttt"'ti"tttt'ttttit"'ttttttttt'tttt"t'tit.tttt'ttQ't"'

seer PHYSICAL ADDRESS
d

013737
162737

013737
006237
103003

052737
612746
004737
062706

002032
060000
002100
002040
100000

002036
062346

002036

002036
002040
002036

R AR A AR

RN AR RN

TAG78%: MOV
suB
MOV
ASR
BCC

ADDRESS ,PHYADD
#FIRST ,PHYADD
BANK,PHYADD
+2
PHYADD+2
1%

1$:

#PHYADD, = (SP)
$0820
#2,5P

BIS

000002

AR RN AR AN AR RN NN RN AANANAR RN CARRA AN AR

#BIT15,PHYADD

Mov
CALL
ADD

TYPE
RETURN

000207

RARCNNORNORY

;POINTER TO DOUBLE WORD ON STA(K
;CALL DOUBLE PRECISION CONVERSION ROUTINE
JFIX STACK

$0CT8

ARl
il
Rt
R 22200
22000

;xex QCTAL BYTE xee
VWAL

olelele]

NN=OWVO

OO0O0ODO

2 057076

TYPEOUT

MACRO M1113

TAG79%:

000207

1YPE
TYPOCS
TYPE
RETURN

sdli

MSGO18
:@_SPACES
a(R1),<TYPE BYTE>,3,7
MSGO14
s SPACE

iRt

222222222222

X202}

CZMSDBO MSi1-L/M DIAGNOSTIC

ROUTINE ERROR MESSAGE TYPEOUT

MACRO M1113

10666 057132

07-0(T-80 18:01

DETAIL:

SUBTS:

X2 2222 22X

TeSUBTEST

B_10
PAGE 378 SEQUENCE 319

<CSUBR

DETAILED ERROR REPORT>>

SUBR

DETAILED ERROR REPORT

R RZ2 2R 2

2222 R R R0

SEQ 0326
AR

Rttt

llld)

:"Q'."""""""'t""""'i"t.t'i't'ttlttttt'tlt"t'Q't""'t"""".'t't

10667 057132
10668 057136
10669 057144

10670 057146

10671 057154
10672 057156
10673 057166
10674 057174
10675 057200
10676 057204
10677 057210
10678 057212
10679 057214
10680 057216
10681 057220
10682 057222
10683 057226
10684 057232
10685 057236
10686 057244
10687 057246
10688 057250
10689 057260

000002

002212

INC

002106
002172
002174

002022
002026
002172

#3,DETFLAG
49
#2 ,DETFLAG
23

SET
CLR
MOV
MOV
MOV
MoV
MoV
MOV
Mov
MoV
MOV
MOV
SET

HEADER
MUt
RO,DETRO
#OETR1,RO
R1,(RO)+
R2,(RO)+
R3,(RO)+
R4, (RO)+
RS, (RO)+
ERRSP, (RO) +
ERRPSW, (RO) +
DETRO,RO
NOERRCR

10693
10694
10695
10696

057302
057310
057312
057316

022737

10698 057326
10699 057332

004737
000207

104031

001002
005037

PUSH
SET
CLR
SET

002106

000001
177766

057132

ERROR
CMP
BNE

003710
1%:

DETFLAG

CMP
BLOS
CMP
BEQ

ERROR

104013

000423

005037

10697

002212

PUSH

10690 057266
10691 057272

10692 057300

002212
000003

HEADER ,MUT

+13

HEADER ,MUT
HEADER
MUT
NOERROR

+31

#1,PROTYP
$

CPUERR
CLR
MUT ,HEADER
POP
;WARNING RECURSIVE
CALL
DETAIL
RETURN

;1S THIS AN 11/44?

(IZMSDBO MSil-L/M DIAGNOSTIC
DETAILED ERROR REPORT
SUBR
10702
10703 057334
10704
10705
10706 057340
10707 057352
10708 057356
10709 057362
10710 057366
10711 057366
10712 057372
10713 057374
10714 057376
10715 057400
10716 057406
10717 057412
10718 057412
10719 057416
10720 057434
10721 057434
10722
10723
10724 057446
10725 057452
10726 057456
10727 057462
10728 057466
10729 057470
10730 057474
10731 057500
10732 057504
10733 057510
10734
10735 057520
10736 057524
10737 057526
10738 057534

10739 057542

10740 057544
10741 057550
10742 057554
10743 057562
10744 057562
10745 057566
10746 057572
10747 057576
10748 057602
10749 057614
10750 057616
10751 057622
10752
SNNNN

WAAVAVMNANA

o
b

OOOoO

10753 057622
10754 Osgggg

004737

MACRO M1113

061002

(07-0CT-80 18:01

¢ 10
PAGE 380 SEQUENCE 320

;SIMULATE CONTROL "'T"

CALL

:DISPLAY ''DISPLAY'" INFO

CONTT

;TYPE CONTENTS OF ALL CSR'S
PUSH
CSR,CSRNO,R1

TYPE

013701

MsG0S8

TYPE
$CRLF
MOV
TOTCSRS,R1
OOP
DUMPCSRL
BEGIN

002216

FOR CSRNO := 30110 #36 BY #2

006301

ASL

ON.ERROR
READCSR
TYPOCT

104426

CSR

TYPE
MSGO18
;2 SPACES
END ;OF ON.ERROR
IF R1 EQ #0 THEN LEAVE DUMPCSRLOOP
END ,Of FOR CSRNO

END DUMPCSRLOOP
R1,CSRNO,CSR
PoP
s TYPE

013701
162701

PUSH
TYPE
MOV

002534
000002

STACKS

suB
FOR

TYPE

TYPOCT

RO,R1
MSG088
KSTACK,R1

#2,R1
RO := SP 10 R1 BY #2
$CRLF

TYPE

END .OF FOR RO

006506

18T

NOSUPER

BIC
BIS

#BIT13!B1T12,PSW
#BIT12,PSW

DET?

BNE

177776
177776

MFPI

SSP

POP
R1,RO
:SUPERVISOR STACK
MsG089
TYPE
IF RO LT #SUPSTK
FOR RO := RO TO #SUPSTK-2 BY #2
SCRLF
TYPE
TYPOCY
RO

TYPE

TYPOCT

END ;OF FOR RO

052737
006506

;2 SPACES

(RO)

;SCT PREVIOUS MODL TO SUPERVISOR

002426

030000
010000

MSG018

TYPOCT

005737
001036
042737
052737

;KERNEL STA(CK

030000

177776

OET1:

ELSE
TYPE

MSGO91

MFPI

USP

MsG018
(RO)

;2 SPACES

;1S EMPTY

END ;OF If RO
;SET PREVIOUS_MODE TO USER
#BITI3!BIT1Z,PSW
BIS
POP

;USER STACK
MSGO90
TYPE
]
IF RO LT WUSESTK
FOR RO := RO T0 #USESTK-2 BY #Z

SEQ 0327

(IZMSDBO MSil-L/M D]AGNOSTI(
SUBR
DETAILED ERROR REPORT
10759
10760
10761
10762
10763
10764
10765
10766
10767
10768
10769

057646
057652
057656
057662
057666
057700
057702
057706
057706
057712
057716

10770 057720

005037
000007

002212

MACRO M1113

07-0(T-80 18:01

D 10
PAGE 380-1 SEQUENCE 321

TYPE
SCRLF
TYPOCT
RO
TYPE
MSGD18
TYPOCT
(RO)
END ;Of FOR RO
ELSE
TYPE
MSGO9
END ;OF [F RO
TYPE
SCRLF
CLR
DETFLAG
POP
RO
RE TURN

;@ SPACES

;1S EMPTY

SEQ 0328

(IZMSDBO MSit1-L/M DIAGNOSTIC

MACRO M1113

ROUTINE BINARY TO OCTAL (ASCII) AND TYPE

07-0(T-B0 18:01

}gggg

LSBTTL

10810

E 10

PAGE 383 SEQUENCE 322

SE0 0329

ROUTINE BINARY TO OCTAL (ASCII) AND TYPE

L L

AL AR

AL AL LAY

}83}2

c«THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE T,
:'zxvpos---eurfa HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

10815
10816

ot
e

MOV
TYPOS

NUM,=(SP)

X
e

.BYTE

10811

10812

seCALL:

10817

10818
10819

1835?

.BYTE

o
R

: :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

::N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 OR 0
::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

]

10822

:*$TYPON~===ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

10824

;*CALL:

10823

;*$TYPOS OR $TYPOC

10825
10826

v
it

10827

10828

;«CALL:

10830

}83%5
017646
116637

000000
000001

060145

060145
060147
040144

10835 057734
10836 057740

112637
062716

060147
000002

10838 057766
10839 057754
10840 057762
10841 057770
10842 057772

112737
112737
112737
010346
010446

000001
000006
000005

10837 05774&

10843 057776
10844 057776

10845 060002

10846 060004
10847 060010
10848 060014
10849 060020
10850 060024
10851 060026
10852 060030

10853 060032
10854 060034
10855 060036
10856 060040
10857 060042
10858 060044
10859 060050
10860 060052
10861 060056
10862 060060
10863 060062

10864 060064

NUM, = (SP)

: :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

:+$TYPOC-=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

10829

10833 057722
10834 057726

MOV
TYPON

000406

010546
113704
005404

062704
110437
113704
016605
005003
006105
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403

005204

MOVB
ADD
BR

S$TYPOC: MOVB
MOVB
$11rON: MOVB
MOV
MoV

MOV
MOVB
NEG

000006
060146
060145
000012

ADD
MOVB
MOVB

1%:
2%:

060146

TYPOC

$TYPOS: MOV
MOVB

060147

000404

MOV

177770

L$:

NUM, - (SP)
a(sP),=(SP)
1(5P),S0FILL

: :NUMBER TO BE TYPED

;:CALL FOR TYPEOUT

::PICKUP THE MODE
;:LOAD ZERO FIL. SWITCH

(SP)+,80MODE+1
#2,(SP)

;:NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS

#1,80F1LL
#6,30MODE + |
#5,80CNT
R3,-(SP)
R4 ,-(SP)

;;SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT
::SAVE R3
::SAVE R&

$TYPON

RS,-(SP)
$OMODE +1,R4
R4

;:SAVE RS
::GET THE NUMBER OF DIGITS TO TYPE

MOV
CLR
ROL

#6,R4
R4, $OMODE
$OFILL,R4
12(SP) RS
R3
RS

::SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
::P1CKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD
:;ROTATE MSB INTO ''C''

ROL
ROL
ROL
MOV
ROL
DECB
8PL
BIC
BNE
1ST
BEQ

RS
RS
RS
RS5,R3
R3
$OMODE
6%
#177770,R3
49
R4
5%

;:5ORM THIS DIGIT

INC

;:G0 DO MSB

::GET LSB OF THIS DIGIT
;:TYPE THIS DIGIT?
;:BR IF NO
;:GEYT RID OF JUNK
::TEST FOR O
: :SUPPRESS THIS 0?
;;BR IF YES

;;DON'T SUPPRESS ANYMORE 0'S

10865 060066
10866 060072
10867 060076
10868 060102
10869 060106
10870 060112
10871 060114
10872 060116
10873 060120
10874 060122
10875 060124
10876 060126
10877 060130
10878 060136
10879 060140
10880 060142
10881 060143
10882 060144
10883 060145
10884 060146

052703
052703
110337

000060
000040
060142

5%:

105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000

060144

6%:

000
000000

(07-0(T-80 18:01

7%:

000002

000004
8%:
$OCNT:

$OFILL:
$OMODE:

BIS
BIS

MOVB
TYPE

DECB
BGT
BLT
INC
BR
MOV

MOV
MOV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

PAGE 383-1 SEQUENCE 323

#'0,R3
#'
R3Y

R3,8%
8%

$OCNT

2%
(SP)+,RS

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

OOOOO

MACRO M1113
CIMSDBO MSi1-L/M DIAGNOSTIC
ROUTINE BINARY TO OCTAL (ASCII) AND TYPE

s sMAKE THIS DIGIT ASCII
:;MAKE ASCII IF NOT ALREADY
:+SAVE FOR TYPING

;:60 TYPE THIS DIGIT
;s COUNT BY 1
::BR IF MORE TO DO
;:BR IF DONE
: s INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
; ;RESTORE RS
:;RESTORE R4
:;RESTORE R3
::SET THE STACK FOR RETURNING
; sRETURN

;s STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE

;;OCTAL DIGIT COUNTER
;. LERO FILL SWITCH
; sNUMBER OF

DIGITS T0 TYPE

SEQ 0330

CIMSDBO MS11-L/M DIAGNOSTIC

ROUTINE

MACRO M1113

CONVERT BINARY TO DECIMAL AND TYPE

(07-0CT-80 18:01
.SBTTL

10886
10887
10888
10889
10890
10891
10892
10893
16894

¢ 10
PAGE 384 SEQUENCE 324

SEQ 0331

ROUTINE CONVERT BINARY TO DECIMAL AND TYPE

;t'i"t"'t"'"""""""""""'t""'tt"""'"Q"'."""""""QQ"Q"

«THIS ROUTINF IS USED TO CHANGE A 16-BIT BINARY NUMBER T0O A 5-DIGIT
*SIGNED DECIMAL (ASCII) NUMBER AND TYPE I1T. DEPENDING ON WHETHER THE
:*NUMBER 1S 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.

s~CALL:
4

10895
10896 060150
10897 060162
10898 060166
10899 060172
10900 060174
10901 060176
10902 060204
10903 060206
10904 060212
10905 060216
10906 060220
10907 060224
10908 060226
10909 060230
10910 060232
10911 060236
10912 060236
10913 060240
10914 060242
10915 060244
10916 060246
10917 060250
10918 060252
10919 060260
10920 060264
10921 060270
10922 060272
10923 060274
10924 060300
10925 060302
10926 060304
10927 060306
10928 060310
10929 060312
10930 060314
10931 060322
10932 060324
10933 060336
10934 060342
10935 060350
10936 060352
10937 060354
10938 060356
10939 060360
10940 060362
10941 060364

060372

012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105
002402
005202
000774
060105

$TYPDS:

020200
000020

000055

000001

060364
000040

2%:

060354

3%:

4%:

005702
001002

105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002

5%:

000001
000060
000040

177777

016666
012616

6%:
7%:

000010

MoV
MOovB

#$DBLK ,R3
¥ LR+
R2
,R1
$DTBL(RO)
R1,RS
4%

CLR

Mov

suB
BLT
INC

RO,R1,R2,R3,RS

#20200,- (5P)
20(SP) RS
1%

#'=-,1(5P)
RO

8%:

177777

177776

000002

000004

9s:

000000

$DBLK:

MovB
CLRB
POP
TYPE
MOV
MOV
RTI

; ;MAKE

THE BINARY NUMBER POS.

;sMAKE THE ASCII NUMBER NEG.
;s JERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;;SET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER
;;GET THE CONSTANT
:;FORM THIS BCD DIGIT

;:BR IF DONE

;s INCREASE THE BCD DIGIT BY 1

:;FALL THROUGH [F

;+STILL DOING LEADING 0'5?
;:BR IF

;;MSD?

YES

;:8R IF NO
::YES==-SET THE SIGN

;;MAKE THE BCD DIGIT ASCII
ssMAKE IT A SPACE IF NOT ALREADY A DIGIT
::PUT THIS CHARACTER IN THt OQUTPUT BUFFER

;:JUST INCREMENTING
::CHECK THE TABLE INDEX
::60 DO THE NEXT DIGIT
;.60 TO EXIT
::GET THE LSD
::60 CHANGE TO ASCI

9%
-1(SP),-2(R3)
(R3)
RS,R3,R2,R1,RO
$0BLK
2(SP) ,4(SP)
(SP)+,(SP)

10000.

1000.
100.
10.
.WORD

;sSET BLANK SWITCH AND SIGN
;;GET THE INPUT NUMBER
;.BR IF INPUT [S POS.

::CHECK IF BCD DIGIT=0

1ST
BNE
1518
BMI
ASLB
BCC
MovB
BIS
BIS
Mmove
TST
CMP
BLT

BR
7ST8
BPL

;;PUT THE BINARY NUMBER ON THE STA(K
;.60 TO THE ROUTINE

;:ADD BACK THE CONSTANT

ADD

MOV

$DTBL:

000000

NUM, -(SP)

BGT

010502
000764

105726
100003
116663
105013

1%:

MOv
TYPDS
PUSH
MOV
MOV
BPL
NEG
Movs

0,0,0,0

::WAS THE LSD THE FiRST NON-ZERO?

;:BR IF NO

:3YES==-SET THE SIGN FOR TYPING
::SET THE TERMINATOR
::NOW TYPE THE NUMBER
;s ADJUST THE STAIK
;;RETURN TO USER

CIMSDBO MSi1-L/M DIAGNOSTIC

ROUTINE

TTY

INPUT

MACRU M1113

10943

10944

10945
10946
10947
10948
10949
10950 060374
10956 060374
10957 060400
10958 060402
10959 060406
10960 060412
10961 060416
10962 060422
10963 060424
10964 060430
10965 060434
10966 060440
10967 060442
10968 060446
10969 060452
10970 060454
10971 060460
10972 060464
10973 060466
10974 060472
10975 060474
10976 060500
10977 060504
10978 060506
10979 060512
10¥80 060516
10981 060520
10982 060526

10983 060530

10984 060534
10985 060536
10986 060542
10987 060544
10988 060550
10989 060554
10990 060562
10991 060566
10992 060570
10993 060572
10994 060576
10995 060600
10996 060604
10997 060610
10998 060614
10999 060616

002 060632
003 060636
004 060640

H 10

07-0CT-80 18:01

.SBTTL
L

PAGE 385 SEQUENCE 325

ROUTINE TTY INPUT
R

SEQ 0332

R R

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP (ALL

005737
001406
013746
005037
000137

105777
100130
117746
0642716
022716
001002

;*WHEN OPERATING IN TTY FLAG MODE.
.ENABLE LSB
$CKSWR:

053444

BEQ

053444
053444
060434

MOV
CLR

122160

NOCH:

122154
177600
000006

CONTS1:

004737
022716
001002
004737
022716
001454
022716
001002
004737
022716
001005

045344
000024

1%:

061002
000003

16%:

000023

2%:

000013

17%:

013706
000207

002142

022737
001067
022716

001064
005737
001061

005046
005946
105777
100375
117746

000176

6% :

000007
002060

122004

000003

062706
000137
021627

000006
044766
000025

MOVB

a$TKB,-(SP)

CMP
8NE
CALL
CMP
BNE
CALL
CMP
BEQ

86, (SP)
1%
FIELDSERVICE
824, (SP)
16
CONTT
#3,(SP)
5¢

BPL

BIC

CMP
BNE

CALL

CMP
BNE

TYPE
MOV
RETURN

CMP
BNE
CMP
BNE

TYPOCT
TYPE

CLR
CLR

TSTB

12%

¥ C177,(SP)

¥23%,(SP)
17%
CONTS

#13,(SP)
6%

$CNTLK
CTLKVEC,SP

#SWREG,
SWR
CKEND
#7.(SP)
CKEND
$AUTO

CKEND
SCNTLG
$MSWR
aSWR
SMNEW

-(5P)
-(5P)

a$TKS

B8PL

BIC
CMP

#4C177, (SP)
(sP),#%

MOVB

122000
177600

CONTS1

a$TK$

TSt

4$:

, - (SP)
XOCHAR
XOCHAR

TSTB

BNE
TYPE
$GTSWR: TYPE

3¢

042716
021627
001006

001005

002576

JMP

XOCHAR

NOCH

a$TKB,-(SP)

7%
SCNTLC

BNE
TYPE

7%:

JMP
CMP

B0OT
(SP),#25

TYPE

SCNTLU

ADD

BNE

26,SP

::SOMETHING THERE?
;. GO ON IF NOT
;o USE IT
::CHAR THERE?

::1F NO, DON'T WAIT AROUND
;:SAVE THE CHAR
;;STRIP-0OFF THE ASCII
;IS IT CONTRCL F?
;NO SKiP
;1S 1T CONTROL T?

;sNO - SKIP

;YES = CALL CONTROL T ROUTINE
;1S IT CONTROL C?

JYES EXIT sexexNOTCoereer STACK [S SCKEWED UP.

;1S IT CONTROL S?

;NO - SK]P

:YES = CALL CONTROL S RUUTINE
;1S IT CONTROL K?
:NO - SKIP
;TYPE

A %K

;RESET KSP TO AFTER PATTERN EXEC ROUTINE
:RETURN TO PATTERN EXEC ROUTINE
::1S THE SOFT-SWR SELECTED?
; ;BRANCH

;oIS IT A CONTROL G?
;:NO, RETURN TO USER
;ARE WE RUNNING IN AUTO-MODE?
;sBRANCH IF YES
;;ECHO THE CONTROL-G (*G)
;:;TYPE CURRENT
::0F THE SWR

CONTENTS

; ;PROMPT FOR NEW SWR
;;CLEAR COUNTER
;s THE NEW SWR
::CHAR THERE?
::1F NOT TRY AGAIN
;;PICK UP CHAR

::MAKE IT 7-BIT ASCIlI
;1S IT A CONTROL-C?

::BRANCH [F NOT
::YES, ECHO CONTROL-C (*Q)
:;CLEAN UP STACK
s CONTROL=-C RESTART
1S IT A CONTROL=-U?
;;BRANCH IF NOT
;sYES, ECHO CONTROL-U (*U)

MACRO M1113

CIZMSDBO MSi1-L/M DIAGNOSTIC

ROUTINE

TTY

INPUT

—

b
—

[olele]le]
oo
~oo~On
s
0O

[olelel=]

=0 0
SN

b ed e od d o
b

NIN) =P =
NI NI NI

NOWVMEB WA =0V

NN NI NI PN

W= OV

1"
1"
1"
"
1
1
1"

"
13
1
1
1"
1
1"

WKW

"
1"
11
11
1"
1"
1"
1"
"
1
1

=loliNololelolelololelelololelololelolololelelolalels) [elel=]

11005 060644
1
1"
1" 08 060656

060700
0607C4
060706
060712

065714
060720
060724
060726
060732
060734
060740
060744
060746
060750
060752
060754
060760
060764
060766
060772

060774
060777

062706
000746
021627
001016
005766
001403
016677
062706
€00002
062706
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000702
000724
136
012

000006

8%:

000015

9% :

(07-0CT-80 18:01

000004

000002
000006

121702

10%:

12%:
CKEND:

000002

13%:

053446
000060
000067

000060
000002

BR
CMP
BNE
TST

BEQ
MOV
ADD

TYPE
RTI
ADD

RTI

CALL
cMP
BLT
(MP
BGT
BIC

¥E,SP

3
(SP) ,#15
13%

4 (SP)

10$

2(SP) ,aSWR

#6,5P
$CRLF

#2,SP
$TYPEC

14%:

15%:

015

$ONTLK:

ASL
ASL

:; IGNORE PREVIOUS INPUT
;LET'S TRY IT AGAIN
3318 1T A <CR>?
:;BRANCH IF NO
::YES, IS IT THE FIRST (HAR?
: :BRANCH IF YES
;;SAVE NEW SWR
:;CLEAR UP STACK
:;ECHO <CR> AND <LF>
;;RETURN

JFIX STACK
:RETURN
:;ECHO CHAR
:1CHAR < 0?

INC
BIS
BR
TYPE
BR

3]
$QUES
8$

.EVEN
.DSABL

LSB

LASCIZ

SEQUENCE 326

; ;BRANCH [F YES
:;CHAR > 77
; :BRANCH [F YES
::STRIP-OFF ASCII
;218 THIS THE FIRST (HAR
s JBRANCH IF YES
::NO, SHIFT PRESENT
CHAR OVER TO MAKE
i

TST
BEQ
ASL

000002
177776

113
000

ADD

1 10
PAGE 385-1

-2(5P), (SP)

/%K/<15><12>

ROOM FOR NEW ONE.

::KEEP COUNT OF CHAR
:;SET IN NEW CHAR
;:GET THE NEXT ONE

::TYPE

?2<CRO><LF>

;:;SIMULATE CONTROL-U
;CONTROL K ASCII STRING

SEQ 0333

(ZMSDBO MSi1-L/M DIAGNOSTIC
ROUTINE TTY INPUT

11038 061002

MACRO M1113

07-0CT1-80 18:01

CONTT:

SUBTST

J 10

PAGE

387 SEQUENCE

327

SEQ 0334

<<CONTROL T»

:ii'i"lttt't'!'tt'tti"t't't'tt'ttt't"t'ttt!fitttttt"tttt"ttt't""'tttt't'tt

CONTROL T

;*SUBTEST

;""'."""""""'i"i"'"'t'Qt"'tt""t'tt'tt""'tt"t'tt't'tttt"'iQQQ'

11039
11040
11050
11051

11052
11053
11054
11055

061002
061004
061010
061016

PUSH
RO
TYPE
S$CRLF
IF RLFLAG IS TRUE
TYPE
MSG092
END ;OF IF RLFLAG
TYPE
MSG093
TYPOCS
BANK,,3
TYPE
MSGO09S

061022
061022
061026
061036

11056 061042

11060 061052
}}82; 061054

TYPOCS

000207

11063 061056

CONTS:

;RELOCATED

REAIPAT,,?2

POP
RETURN

SUBTST

<<CONTROL

:BANK
=
;TYPE 3 DIGITS
;PAT=

;TYPE 2 DIGITS

S & CONTROL Q>>

;tttttt'ittt"ttt'ttt'tt"""it't'ttt'tttt!t'ttt"ittt'.ttt't'tt't't't't't'."'

s *SUBTEST

CONTROL S & CONTROL @

;t't'tttltttttttt"tttt"ittt"ttttttttQtt"ttttt'tt'l'tfitt't"ttt'tcttttt"ttt'

11064
11065
11066
11067

11068
11069
11070
11071
11072
11073

061056
061060
061064
061066

061072
061076
061104
061110
061112
061114

105777
100375
117716

121516

042716

121512
177600

000137

060434

000762

CONTS2:

POP
TSTB
BPL
MOVB

RO
3%TKS
CONTS2
a$TKB, (SP)

BIC
#AC177,(SP)
If (SP) EQ #21
JMP
CONTST
ELSE
8R
CONTS?
END :OF IF (SP)

;GET RID OF RETURN ADDRESS FROM STACK
;WAIT FOR CHARACTER

:REPLACE OVER OLD CHARACTER ON STA(K
:STRIP ALL BUT ASCI]
1F T IS A CONTROL Q

(ZMSDBO MSi1-L/M DIAGNOSTIC
CONTROL S & CONTROL Q

MACRO M1113
R

07-0C7-80 18:01

222222222 R XX

K 10

PAGE 388 SEQUENCE 328

222 2222

R R

AR AR R

SEQ 0335
R

“eTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

:«CALL:
I%
JX

RDCHR
RETURN HERE

MR]

000002

042766
026627
001013
105777

—h e
i e b e e md e o b o D o o
b D i i d e e D d e b s s D e d b d b
S
P
T i e
T T )
P
G
i
N
S
e e e
eY =
jelelelolololele
WA
AU R AIND PRI PO PIRI A b b cd b e b ed b b 2 O O

100375
117746

~N
~N

—_

(=4
o

purd

99 061212

000004

000004
000004
000023

1214614
177600
000021

0001490

000004

0C17%

000040

000004

a$Tks$

a$TKB,4(SP)

CMP

4(sp), 2%

BNE
TSTB
BPL

B> 6 (SP)
g
@$TKS
28

MOVB

a@$TKB,-(SP)

CMP
BNE
BR

(SP)+,#21
2%
1%

BIC

000004

(SP) ,=(SP)
4(SP),2(SP)

MOVB

BIC
2%:

121420

TSTB

BPL

2 C177,(SP)

CMP

L(SP), #4140

CMP

4L(SP), 2175

BLT

BGT
BIC
RT]

4%
#40,4(SP)

AR AR

;o INPUT A SINGLE CHARACTER FROM THE TTY
;CHARACTER IS ON THE STA(K

;;WITH PARITY BIT STRIPPED OFFf
;;PUSH DOWN THE TM7
;;SAVE THE PS
;;WAIT FOR
;A CHARACTER
:;READ THE TTY
::GET RID OF JUNK [F ANY
;1S IT A CONTROL~-S?
: :BRANCH IF NO
;WAIT FOR A CHARA(CTER
::LOOP UNTIL TS THERE
::GET CHARACTER
:;MAKE

IT 7-BIT ASCII

::1S 1T A CONTROL-Q?
::1F NOT DiSCARD IT
JsYES, RESUME
::1S 1T UPPER CASE?
::BRANCH IF YES

;1S 1T A SPECIAL (HAR?

;;BRANCH IF YES
::MAKE

IT UPPER C(ASE

::60 BACK TO USER

;'ttttt'lttti'tlt't"'t'i""t""Q.'.t'.t""'.t'it't!!ti't'l"itt""""""'

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTy

seCALL:
;X
e

RDLIN
RETURN HERE

$RDLIN: MOV
CLR
1%:
MOV

010346
005046
012703
022703

oo
O OO
goocoooooooc

D e e

101477
104411
112613
122713

2%:

) ol

WWNNININ)
= =2 OO ~
OO OSrONMN o~

) i
D e

LN AN AN AN AN ~N

ol
s e
b e

005726
012603
032777
001404
005037
000137

000137

122713

001022
005716
001007

112737

CMP
BLOS

RDCHR

MOVB

000003

000400

002370
045074
044766
000177

118

3$:

061530

(SP)+,(R3)

TYPE
ST

SCNTLC
(SP)+

BIT
BEQ

#B1718,3SWR
118

CLR
JMP
IMP

(MPB
BNE
ST

000134

,R3
#$TTYIN®20.
8%

#3, (RD)

MOV

121274

R3,-(SP)
-(SP)
#STTYIN,R3

cMPB

BNE

001016

AN L A

[=lelelelelel]
oo

2 OO0 NV

NN =2 O OO NO NS W

~O 0NN

2 061224
3 061232

042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

121446
177500

SRDCHR: MOV
MOV

BNE

MOVB

(SP)+,R3

S TOPOK
EXIT
BOOT

#177,(R3)
5$
(SP)

#°'\,10%

::INPUT A STRING FROM THE TTY

: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STA(K
::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 TTvy
::GET CHMARACTLR
;319 1T A CONTROL-(C?
;:BRANCH IF NO
;:TYPE A CONTROL-C

(*()

::CLEAN RUBOQUT KEY OfF OF THE STA(X
:;RESTOREF R3
;1S THERE A HALT FLAG SET IN THE SWR?
;:BRANCH IF NOT TO BOOT ROUTINE
;:GET READY TO HALT PROGRAM
;60 HALT PROGRAM
::60T0 CONTROL=-C RESTART
218 1T A RUBOQUT
;:BR IF NO

;218 THIS THE FIRST RUBOUT?
::BR

::TYPE

A BACK SLASH

(ZMSDBO MSi1-L/M DIAGNOSTIC

MACRO Mi113

CONTROL S & CONTROL Q
11132 061340
11133 061344
11134 061350
11135 061352
11136 061356
1My 061360
11138 061364
11139 061370
11140 061372
11141 061374
11142 061376
11143 061404
11144 0614610
11145 061412
11146 061416

11147 061420

012716
005303
020327
103434
111337
000725
005716
001406
112737

005016
122713
001003

11148 061424

000705

11150 061432
11151 061434

001011
105013

11149 061426

11152 061436
11153 061442
11154 061446
11155 061450
11156 061454

11157 061456

11158 061462
11159 061466
11160 061472

11161 061474
11162 061500
11163 061504
11164 061506
11165 061510
11166 061512

11167 061520
11168 061526

11169 061530
11170 061531
11171 061532
11174 061556
061561

11175 061563

061566

11176 061570

061573

11177 061575

061600
061603
11178 061606
061611
061614
11179

122713

177777

4%:

061532

061530
5%:
000134

61530

000025

6%:

000022

7%:

8%:

111337

061530

122723
001264

000015

105063

177777

005726
012603
011646
016666

000004

012766
000002

000
000
000024
136

061532

127
075
040
105
075

(MPB

#22,(RY)

TYPE

$CRLF

BNE
CLRB

TYPE
B8R
TYPE
B8R

Movse
TYPE
(MPB
BNE

000002
000004

MOV
RTI

::;TYPE A CONTROL 'U"’
;G0 START OVER

;1S CHARACTER A '"TMR'"

9%
(RY)

: ;BRANCH IF NO
::CLEAR THE CHARACTER

$TTYIN
2%
$QUES
1%

::TYPE THE INPUT STRING
::60 PICKUP ANOTHER CHACTER
;:TYPE A '
::CLEAR THE BUFFER AND LOOP

:;TYPE A ''CR & "LF"

(R3),10%

108
#15,(R3)+
2%

=1(RY)
$LF
{SP)+
(SP)+,R3
(SP),=(SP)
L(SP),2(SP)

#ETTYIN,L(SP)

;;CHECK FOR RETURN
;:LOOP IF NOT RETURN
;:CLEAR RETURN (THE 15)
;:TYPE A LINE FEED
::CLEAN RUBQUT KEY FROM THE STA(CK
::RESTORE R3
:;ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
N
; :RETURN

125

015

SCNTLU: .ASCIZ

/%0715
2>

;:CONTROL ''U"'

107

015

SCNTLG: .ASCIZ

/*G/<15><A>

;;CONTROL ''G"’

012

123

S$MSWR:

LASCIZ

<15><12>/SWR

SMNEW:

.ASCIZ

000

122
040
040
127
040

040
000
116
040
000

.EVEN

0
0
20.
/*C/<15<1>

;;ECHO THE CHARA(CTER

015

000

012

$CNTLU

;s CLEAR THE RUBOUT KEY
;:1S CHARACTER A CTRL U?
::BR IF NO

103

012

015

:;SET THE RUBOUT KEY
:;BACKUP BY ONE
;:STACK EMPTY?
:.;BR IF YES
::SETUP TO TYPEQUT THE DELETED (HAR.
::60 TYPE
;G0 READ ANOTHER (HAR.
; ;RUBOUT KEY SET?
::;BR IF NO
::;TYPE A BACK SLASH

.BYTE
BYTE
$STTYIN: .REPT
SCNTLC: .ASCIZ

000

136

108
#-1,(SP)
R3
RI, NSTTYIN
8%
(R3),10%
108
2$
(SP)
6%
#'\,10%
10%
(SP)
#25,(R3)
7%

CLRB
TYPE
TST
MOV
MOV
MOov
108:

012

136

9%:

L 10

PAGE 388-1 SEQUENCE 329

TYPE
MOV
DEC
CMP
BLO
MovB
TYPE
BR
ST
BEQ
MOVB
TYPE
CLR
(MPB
BNE

TYPE

000676
0006

07-0CT-80 18:01

)

NEW =/

::STORAGE FOR ASCI! CHAR. TO TYPE
:: TERMINATOR

::RESERVE SIZE BYTES FOR TTY INPUT
;;CONTROL *'C''
,

SEQ 0336

CIMSDBO MSi1-L/M DIAGNOSTIC
MACRO M1113
ROUTINE READ AN OCTAL NUMBER FROM THE TTY

11181
11182
11183
11184
11185
11186
11187
11188
11189
11190
1191

11192
11193
11194
11195
11196

11197
11198
11199
11200
11201
11202
11203

07-0CT-80 18:01
.SBTTL

Mm10
PAGE 389 SEQUENCE 330

SEQ 0337

ROUTINE READ AN OCTAL NUMBER FROM THE TTY

:ttQ't"'tttt't"'""t'i'"t"tt'itttttfii"t"it"'t"'tit"""'tt"'t"tt"tt

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

;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?'' WILL BE TYPED

;*FOLLOWED BY A CARRIAGE RETURN- LINE FEED. THE COMPLETE NUMBER MUST
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
s*CALL:

Mg
ot
061620
061622
061630
061636
061640
061642
061646
061650
061652
061654
061656
061662
061664
061670
061672
061674

11204
11205
11206
11207
11208
11209 061676
11210 061700
11211 061702
11212 061704
11¢13 061706
11214 061712
11215 061714
11216 061716
11217 061720
11218 061724
11219 061730
11220 061736
11221 061740
11222 061742
11223 061744
11224 061746
11225 061750
11226 061754
11227 061760
11228 061764
11229 061766
11230
11231
11232
11233
11234
11235
11236
11237

011646
016666
104412
012600
010037
005001
005002
112046
001420
122716
003026
122716

002423
006301
006102
006301
006102
006301
006102
062716
062601
000756
005726
010166
G10237

000004

000002

$RDOCT: MOV
MOV
PUSH
1%:

061746
2%:
000060

RDLIN

MOV
MOV
CLR

CLR
MOVB

BEQ
(MPB
BGT

CMPB
BLT

000067

ASL
ROL
ASL
ROL
ASL

177770

000012
061766

000000

5%:

R?
(RO)+,=-(SP)
3%
#'0,(SP’
X
#'7,(SP)
4%

SPACE FOR THE

;: INPUT NUMBER

;sREAD AN ASCIZ LINE
;;GET ADDRESS OF 1ST CHARA(CTER
;sAND SAVE IT
;s CLEAR DATA WORD
:sPICKUP THIS CHARACTER

¢.1F ZERO GET OUT
; ;MAKE

SURE

THIS CHARACTER

::1S AN OCTAL DIGIT

BIC

#°C7,(SP)

;;STRIP THE ASCII

BR
TST
MOV

2%
(SP)+
R1,12(SP)

;. LO00P

MOV
POP
4%:

(SP)+,RO
RO,5%
R1

;;PROVIDE

;%8

ADD

3%:

(sP),=-(SP)
4(SP),2(SP)
RO,R1,R2

:sREAD AN OCTAL NUMBER
:;LOW ORDER BITS ARE ON TOP OF THE STACK
;;HIGH ORDER BITS ARE IN $SHIOCT

m
R2
R1
R2
R1

ROL

000002
005726
105010

000724
000000

RDOCT
RETURN HERE

RTI

TST

CLRB
TYPE

.WORD
TYPE
TYPE
TYPE
BR
$SHIOCT: .WORD

.SBTTL

(SP)+,R1

R2,SHIOCT
RZ2,R1,R0
(SP)+

(RO)

0
MSG06¢2
MSG063
150064
1%
O

. .*/.

JUNK

;;ADD IN THIS DIGIT

:;CLEAN TERMINATOR FROM STACK
::SAVE THE RESULT
;:RETURN

: CLEAN PARTIAL FROM STACK
:sSET A TERMINATOR

:;TYPE UP THRU THE BAD CHAR.

; INPUT MUST BE A
N OCTAL
;NUMBER
::TRY AGAIN

;sHIGH ORDER BITS GO HERE
ROUTINE READ A DECIMAL NUMBER FROM THE TTY

;t'tt't'ttt't'ti""t"'"'ii""t"tiittt't'it"tt.ti'ttttt'tltttt'tttItttttttt

;*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 MUSY BE RETYPED. THE INPUT IS TERMINATED BY The
:*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER 1S

CIMSDBO MS11-L/M DIAGNOSTIC

MACRO M1113

ROUTINE READ A DECIMAL NUMBER FROM THE

11238
11239
11240
}}%2%

TTY

07-0CT-80 18:01

N 10
PAGE 389-1

SEQUENCE 331

SEQ 0338

;*POSITIVE 32767 TO NEGATIVE 32768.
s*CALL:
i%
RDDEC
;sREAD A DECIMAL NUMBER
M
RETURN HERE
ssNUMBER IS ON TOP OF THE STA(CK

11243
112644 061770
11245 061772

011646
016666

11247
11248
11249
11250
11251
11252
11253
11254
11255
11256
11257
11258
11259
11260
11261
11262
11263
11264
11265

062006
062010
062012
062016
062020
062022
062026
062030
062032
062034
062036
062042
062044
062050
062052
062056
062060
062062
062064

104412
012600
010037
005046
005002
122710
001001
112002
112001
001424
122701
003032
122701
002427
032716
001024
006316
011646
006316

11268
11269
11¢70
11271
11272
11273
11274
11275
11276
11277

062072
062074
062100
062102
062104
062106
062110
062112
062114
062120

}}%;g 062126

000002

11280
11281
11282
11283
11284
11285
11286

062130
062132
062134
062136
062140
062144
062150

005726
105010

5%:

000000

6$%:

11246 062000

11266 062066
11267 062070

11287 062154

006316
062616
102416
162701
060116

102412
000752
005702
001401
005416
012666

000714

000004

000002

S$RODEC: MOV
MOV
1%:

062136
000055
2$:
000060
000071

170000

3s:
4%:

RO,R1,R2

RDLIN
MOV
MOV
CLR
CLR
(MPB
BNE
MOVB
MovB
BEQ
CMPB
BGT
CMPB
BLT
BIT
BNE
ASL
MOV
ASL

(SP)+,R0
RO,6%
-{SP)
R2
#'-, (RO
2%
(RO)+,R2
(RO)+ R
3%
#'0,R1
5%
#'9,R1
5%
#¥2C7777,(SP)
5%
(SP)
(SP) ,-(SP)
(sP)

SuB
ADD

5%
#'0,R1
R1, (SP)

ASL
ADD
BVS

000060

000012

PUSH

(SP),=-(SP)
4(SP),2(SP)

(SP)
(SP)+, (SP)

;;PROVIDE SPACE FOR
;s THE INPUT NUMBER
JsREAD AN ASCIZ LINE
;;ADDRESS OF 1ST CHAR.
::SAVE INCASE OF BAD INPUT
;s CLEAR DATA WORD
;:;SIGN SET POSITIVE
;3SEE IF A MINUS SIGN WAS TYPED
;:BR IF NO MINUS SIGN
;sSAVE FOR LATER (SE
JsPICKUP THIS CHARACTER
;:GET QUT IF ZERO
;;MAKE SURE THIS CHARACTER
;1S ADIGIT BETWEEN 0 & 9

;:DON'T LET NUMBER GET TO BIG
;.BR IF NUMBER WOULD OVERFLOW
D
J:;SAVE FOR LATER
o
LR
::*10.
s sOVERFLOW ISN'T ALLOWED
::STRIP AWAY THE ASCII
;:ADD IN THIS DIGIT

JUNK

BVS
BR
TST
BEQ
NEG
MOV
POP
RTI

5%
2%
R2
4%
(SP)
(SP)+,12(SP)
R2,R1,RO

;;OVERFLOW ISN'T ALLOWED
;. LOOP
:;CHECK IF NUMBER IS NE£G
2:BR IF ND
;s YES==-NEGATE THE NUMBER
;s SAVE THE RESULY

TST
CLRB
TYPE
.WORD
TYPE
TYPE
TYPE

(SP) +
(RO

;s CLEAN PARTIAL NUMBER FROM STA(CK
JsSET A TERMINATOR
;o TYPE THE INPUT UP TO BAD (HAR.
;POINTER GOES HERE
s INPUT MUSST BE A
:DECIMAL
;NUMBER

0
MSG062
MSG065
MSG064
1%

:;RETURN

::TRY AGAIN

CIMSDBO MSil1-L/M DIAGNOSTIC

ROUTINE SAVE AND RESTORE RO=-RS

MACRO M11%'3

07-0CT-80 18:01

}}%gg

.SBTTL

B 1"
PAGE 390 SEQUENCE 332

SEQ 0339

ROUTINE SAVE AND RESTORE RO-RS

11291

;'tkttt'tt"t'tt!Q'tttt"'t"'t"'tt""t"'t.t"t"t"t't'tt"'tt'0""0""".

11292
11293
11294

:*SAVE RO-RS
TeCALL:
it
SAVREG

11297
11298

-TOP---(*16)
iv 42===(+18)

11301
11302
11303
11304
11305
11306 062156
11307 062156

;%
+8--<R3
,-+1o---R2
ie412-==R1
ce414-==R0

}}%gg

upon RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

11299
11300

iv 44-==RS
;e +6-==R4

$SAVREG:

11308 062172

016646

11310 062202
11311 062206
11312 062212
11313
11314
11315
11316

016646
016646
000002

11309 062176

11317 062214

11318 062214
11319
11320
11521
11322
11323

062220
062224
062230
062234
062250

016646

000022

PUSH
MOV

RO,R1,R2,R3,R4,RS

22(SP) ,=-(SP)

;s SAVE PS OF MAIN FLOW

MOV
MOV
RTI

22(SP) ,~(SP)
22(SP) ,=(5P)

;+SAVE PS OF
;s SAVE PC OF

MOV

000022
000022

22(5P) ,=-(SP)

;sSAVE PC OF MAIN FLOW
CALL
CALL

; *RESTORE RO-RS
*CALL:
RESREG

012666

012666
012666
012666
000002

000022

000022
000022
000022

inssnec

MOV

MOV
MOV
MOV
POP
RT]

(SP)+,22(SP)

:;RESTORE PC OF CALL

(SP)+,22(SP)
::RESTORE PS OF CALL
(SP)+,22(SP)
:RESTOURE PC OF MAIN FLOW
(SP)+,22(SP)
;;RESTORE PS OF MAIN FLOW
RS,R4,R3,R2,R1,R0

CIMSDBO MSil-L/M DIAGNOSTI(

ROUTINE RANDOM NUMBER GENERATOR

07-0CT-80 18:01
.SBTTL

¢ 1

PAGE 391

SEQUENCE

333

SEQ 0340

ROUTINE RANDOM NUMBER GENERATOR

."Qt"""""""t"""""""""'.t""Qtl'!""'."'t"""'Qt't"."""'

;*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
;*WITH A RANGE OF ( TO 2+¢(+33)-1,
CALL
RETURN

SRAND

013700
013701
012702
006300
006101
077203
063700
005501
163701
062700
005501
062701
010037
010137
000207

002544
002542
000007

002544

002542
001057
047401
002544
002542

$RAND:

PUSH
MOV
MOV
MOV
ASL
ROL

RO,R1,R2
SEEDLO,RO
SEEDHI ,R1
¥7,R2
RO
R1

1%:

ADD
ADC
ADD
ADD
ADC
ADD
MOV
MOV

SEEDLO,RO
R1
SEEDHI ,R1
#1057 ,R0

S0B

POP
RE TURN

;CALL THE ROUTINE
J;RETURN HERE

THE

RANDOM

s sNUMBER WILL BE IN
;s SHINUM, $LONUM

seCALL:

11325
11326
11327
11328
11329
11330
1130
11332
11333
11334
11335
11336 062252
11337 062269
11338 062264
11339 062270
11340 062274
11341 062276
11342 062300
11343 062302
11344 062306
11345 062310
11346 062314
11347 062320
11348 062322
11349 062326
11350 062352
11351 062336
11352 062344

MACRO M1113

R2,1%

R1
#47401 ,R1
RO,SEEDLO
R1,SEEDHI
R2.R1,R0

;SET RO WITH LOW

;SET R1

WITH HIGH

;SET SHIFT COUNT
JiSHIFT RO LEFT AND
;;ROTATE

CARRY

INTO R

AND

sADD NUMBER TO MAKE X 129
: :PROPOGATE CARRY
JADD wURER

TO MAKE

;ADD LOW CONSTANT
: ;PROPOGATE CARRY
;:ADD HIGH CONSTANT

;SAVE RO
;SAVE R

129

CIMSDBO MSi1-L/M DIAGNOSTIC

ROUTINE DOUBLE

LENGTH BINARY

MACRO M1113

TO OCTAL

11355

ASCII

07-0CT-80 18:01

CONVERT

LSBTTL

0 1
PAGE 393 SEQUENCE

334

SEQ 0341

ROUTINE DOUBLE LENGTH BINARY TO OCTAL ASCII

CONVERT

11356

.'QtQ't""ttt"t"'"'"""t"'t'"ttt"!t't'tt't'tt!ttt'tt"t""tttttttt""'

11357
11358
11359
11360
11361
}}gg%

;*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN
J*UNSIGNED OCTAL ASCIZ NUMBER.
seCALL
s
MOV
#PNTR,=-(SP)
::POINTER TO LOW WORL Of BINARY NUMBER
i
CALL
$0B820
;;CALL THE ROUTINE
e
RE TURN
::THE ADDRESS OF THE FIRST ASCIZ CHAR.

11364
11365
11366
11367
11368
11369
11370
11371
11372

062346
062350
062354
062360
062364
062370
062372
062374

104475
016601
012705
012704

11374 062400
11375 062402
11376 062404

010002
005304
003007

11379
11380
11381
11382

062412
062416
062420
062422

010566
104416
000207
006203

11384
11385
11386
11587
11388
11389

062426
062430
062432
062434
062436
062440

006000
006001
006000
006001
006000
040302

11392 062450
11395

000016
062454

11373 062376

11377 062406
11378 062410

11383 062424

11390 062442
11391 062446

012703
012100
012101

000002
062465
000014

177770

005002

110245

001405
005205

2(sP) ,R1
#80CTVL*13.,RS
N2, R

(LR

::SAVE ALL REGISTERS
;:PICKUP THE POINTER TO LOW WORD
;;POINTER TO DATA TABLE
::D0 ELEVEN CHARA(CTERS
: ; MASK
::LOWER WORD
;;HIGH WORD
;; TERMINATOR

RO,R2
R4
b1

::GET THIS DIGIT
:; COUNT THIS CHARACTER
::BR IF NOT THE LAST DIGIT

MOovB
MOV
DEC
8GT

B8EQ
INC

000002
2%:

1%:

000060

SAVREG
MOV
MOV
MOV

MOV
MOV
MOV

1%:

006001

062702
000753

$0B20:

MOV
RESREG
RE TURN
ASR

#°C7,R3
(R1)+,R0
(R1)+,R)

R2,-(RS)

2%
RS

RS,2(SP)
R3

ROR

ADD
B8R

#'0,R2
1%

ROR
ROR
ROR
ROR
ROR
BIC

$O0CTVL: .REPT
$0CT8=30CTVL +4

RO
R1
RO
R1
RO
R3,R2
14,

IS ON THE

::PUT CHARACTER IN DATA TABLE

2:BR IF IT 1S THE LAST DIGIT
;sALL DIGITS DONE=-ADJUST POINTER FOR FIRST
;:ASCIZ CHAR, & PUT IT ON THE STA(K
..RESTORE ALL REGISTERS
,.RETURN T0O USER
::POSITION THE MASK FOR THE LAST DIGIT

;;POSITION THE BINARY NUMBER FOR
s

THE

NEXT OCTAL

DIGIT

::MASK OUT ALL JUNK
;;MAKE THIS CHMAR. ASCII

;.60 PUT

IN THE DATA TABLE

s ;RESERVE DATA TABLE
;POINTER 10 11 DIGIT NUMBER

STACK

062466
062666
062470
062472
062474
062476
062500
062502
062504
062506
062506

000000
000000
000000
000000
000000
000000
000000
000000
000

MACRO Mi113

07-0(T-80 18:01

$SMAIL:
$MSGTY:

;NOTE:
;

;ENVIRONMENT BYTE

ENDING AT $MADR4) MUST BE FILLED IN TO INDICATE THE PROPER AMOUNT OFf

.WORD
.WORD
.WORD

:
:

101
O
0

:BIT7(200)=USE APT SIZE INFO ;BITS(4C)=NO C(ONSOLE

S APT SWITCH REGISTER
;USED TO LIMIT THE NUMBER OF PASSES
;. CPU TYPE,OPTiONS

BITS 15-11=CPU TYPE

11/04=01,11705=02.,11/20=03,11/40=064,11/45=05

11/70=06,PD0=07,0=10

81T 10=REAL TIME CLOCK

$MAMS1: .BYTE
SMIYP1:
S

.BY'E

BIT
BIT

9=FLOATING POINT PROCESSOR
B=MEMORY MANAGEMENT

;iHIGH ADDRESS,M.S. BYTE ;DEFAULT= 64K
‘MEM. TYPE,BLKA1

MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001

300 NSEC BIPOLAR=002

;e
S

:SET TO A Y FOR APT AUTO MODE

IF BIT #7 IS SET IN SENVM THE TABLE BELOW (BEGINNING AT $MAMS1 AND

$SWREG:
SUSWR:
$CPUOP:

001
00¢

SEQ 0342

:;MESSAGE TYPE (ODE
::FATAL ERROR NUMBER (ERROR P{)
::TEST PATTERN NUMBER
;s PASS COUNT
; DEVICE COUNT
;. 1/0 UNIT NUMBER
; sMESSAGE ADDRESS
s sMESSAGE LENGTH
,,APT ENVIRONMENT TABLE

SENVM:

;

062516
062517

BYTE

O
0
0
O
O
O
0
O

EACH TYPE OF MEMORY.
.BYTE
O
;ENVIRONMENT MODE

000101
000000
000000

APT MAILBOX-ETABLE

062510
062512
062514

LSBTTL

000

TABLES

062507

LSBTTL

_WORD
$SFATAL: .WORD
$STESTN: .WORD
.WORD
$PASS:
$SOEVCT: .WORD
SUNIT:
.WwORD
$MSGAD: .WwCRD
$MSGLG: .WORD
SETABLE:

SENV:

E N

PAGE 394 SEQGUENCE 335

PIPOPVRNIRNINININ)
=P b b b b b b b s —
-~ OV
WIN
OO0
NO W
WN
O

MSil=L/M DJAGNOSTIC

PARITY M0S$=003

ERROR CORRECTING MOS=004

;;HIGH ADDRESS,BLK#1

062520

177776

SMADR1:

.WORD

177776

062522

062523
062524
062526
062527
062530
062532
062533
2 062534
062536
062540
062542
062544

000
000
000000
006
000
000000
000
000
000000
000000
000000
000000
000000

SMAMS?:

BYTE

;HIGH ADDRESS,M.S. BYTE

$MADR?2:
$MAMS3:
$MTYP3:
$MADR3:
$MAMSSL:
$MTYP4:
$MADRG:
SVECT1:

.WORD
BYTE
.BYTE
.WORD
BYTE
.BYTE
(WORD
.WORD

0
0
0
0
O
O
0
O

;MEM.LAST ADDRESS,BLK#?
;HIGH ADDRESS ,M.S.BYTE
MEM. TYPE ,BLKN3

$DEVM:

_.WwORD

062546
062550

000000
000000

$CDW1:
$(DW2:

,WORD
.WORD

$MTYP2: .BYTE

$VECT2: .WORD
.WORD
SBASE:

O
0

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOw OF "‘TYPE'' ABOVE

..HEH TYPE, BLK#2

;MEM_LAST ADDRESS,BLK#3

.HIGH ADDRESS,M.S.BYTE
,.HEH TYPE ,BLK#%
;MEM_LAST ADDRESS ,BLK#S

. INTERRUPT VECTOR#1,BUS PRIORITY#I
: INTERRUPT VECTORN2BUS PRIORITY#?
:BASE ADDRESS OF CQUIPMENT UNDER TEST

;;DEVlCE MAP

CIMSDBO MSit1-L/M DIAGNOSTIC

APYT MAILBOX-ETABLE

11451

MACRO M11'3

07-0CT-80 18:01

PAGE 295 SEQUENCE 336

SEQ 0343

}}22%

;THE

FOLLOWING LOCATIONS SPECIFY WHICH PATTERNS

:ARE

TO BE

11454
11455

;REFERENCE THE TABLE LISTED BELOW TO RELATE BITS TO PATTERNS.
;8170 SET WILL RUN THE FIRST ENTRY IN THE TABLE, BITO SET

11458

;NOTE*« NULL TESTS DO NOT TAKE ANY TIME

1}22;

11459
11460
11461
11462
11463
11464
11465
11469
11470
11471
11472

FOR

PARTICULAR MEMORIES

;IN THE SECOND WORD WILL RUN THE 17TH ENTRY [N THE TABLE ...

062552
062554
062556
062560
062562
062564
062566

11473 062566
11474 062566

11475
11476
11477
11478

RUN

062570
062572
062574
062576

11479 062600

177777
177777
177777
177777
177777
177777

;
$DDW0:
$0DW1:
$DDW2:
$DDW3:
$ODW4:
$0DWS:
SETEND:

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

177777
177777
177777
177777
177777
177777

;ECC CSR TESTS
:ECC CSR TESTS
ECC PATTERNS
:ECC PATTERNS
;PARITY PATTERNS
PARITY PATTERNS

;SETUP APT PARAMETER BLOCK AS DEFINED
;INTERFACE SPEC.

000000
062466
000043

001274
000000

000040

$APTHD:
$HIBTS:

SMBADR:
$TSTM:
SPASTM:
$UNITM:

;FIELD SERVICE VALUE
177777
177777
103777
177777
003777
177776

IN THE

APT=-PDP11

TABLE
TABLE
TABLE
TABLE
TABLE
TABLE

=
=
=
=
=
-

DIAGNOSTIC

.WORD
.WORD
.WwORD

0
$MAI,
35.

;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
; ADDRESS OF APT MAILBOX (BITS 0-19)
::RUN TIM OF LONGE>T TEST

LWORD

SETEND-$MAI._/2

;:LENGTH MAILBOX-E
[ABLE (WORDS)

_WORD
.WORD

700.
0.

MKCSRT:
MK(SRT:
MKPAT:
MKPAT:
MJPAT:
MJPAT:

;:RUN TIME IN SECS. OF 1ST PASS ON 128K (QUICK VERIFY)
;:EXTRA RUN TIME OF A PASS FOR EACH ADDITIONAL 128k (Qv)

(ZMSDBO MSi1-L/M DJAGNOSTIC
ROUTINE TRAP DECODER

MACRO M1113

(7-0CT-80 18:01
.SBTTL

}}23;

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "'TRAP'' INSTRUCTION
:«AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:«0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED [T WILL

11484
11485
114386

:'GO TO THAT ROUTINE.

}}23;

11496
11497

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

062644

}}233

11500 062624
11501 062626
};gg% 062634

11504 062636
11505 062642

ROUTINE TRAP DECODER

-tnn-t'tntt'at'a'attt'utc'tto'.ntat'-a'-t.ac'totntt'tnct.act'qna'nt'.ccc'.a

11483

11489 062602
11490 062604
11491 062610
11492 062612
11493 062614
11494 062616
11495 062622

PAGE 396 SEQUENCE 337

MOV
MOV
1ST
MOVB
ASL
MOV
RTS

RO,=-(SP)
2(SP),R0
-(RO)
(RO),RO
RO
$TRPAD(RO)
,RO
RO

::SAVE RO
::GET TRAP ADDRESS
; ;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;;INDEX TO TABLE
::60 TO ROUTINE

;;THIS IS USE TO HANDLE THE ‘'GETPRI'' MA(CRO

011646
016666
000002
000000

000004

000002

$TRAPZ: MOV
MOV
RT]

(SP),=-(SP)
4(SP),2(SP)

:;MOVE THE PC DOWN
;:MOVE THE PSW DOWN
:sRESTORE THE PSW

$NOTRAP:TYPE

MSG006

;UNDEF INED TRAP INSTRU(CTION

SHALTZ: HALT

SEQ 0344

CIMSDBO MSil1-L/M DIAGNOSTIC

TRAP TABLE

MACRO M1113

07-0CT-80 1B:01

}}283
11510
115
11512
11513
11514
11515
11516
11517
11518
11519
11520

LSBTTL

PAGE

H 11
398 SEQUENCE

338

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE ''TRAP'' INSTRUCTION.

;.
$TRPAD:

SEQ 0345

THE

ROUTINES CALLED

ROUTINE

eececeee
.WORD
$TRAP2
STYPE
;CALL=TYPEIT
TRAP+1(104401)
TTY TYPEOUT ROUTINE
$TYPOC
;CALL=TYPOC
TRAP+2(104402)
TYPE QCTAL NUMBER (WITH LEADING ZEROS)
$TYPOS
;CALL=TYPOS
TRAP+3(104403)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
SNOTRAP;STYPON
;CALL=TYPON
TRAP+4 (104404)
TYPE OCTAL NUMBER (AS PER LASY
$TYPDS
;CALL=TVYPDS
TRAP+5(104405)
TYPE DECIMAL NUMBER (WITH 51GN)

062644
062646
062650
062652
062654
062656

062624
053320
057746
057722
062636
060150

11523 062662
}}ggg 062664

060550
060374

$GTSWR
$CKSWR

;CALL=GTSWR
;CALL=CKSWR

TRAP+7(104407)
TRAP+10(104410)

GET SOFT-SwR SETTING
TEST FOR CHANGE [N SOFT-SWR

11526 062666
11527 062670
11528 062672

061114
061234
061620

$SROCHR
SRDLIN
SRDOCT

;CALL=RDCHR
;CALL=RDLIN
;CALL=RDOCT

TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)

TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

11531

062676

062156

$SAVREG ;CALL=SAVREG

TRAP+15(104415)

SAVE

11534 062702
11535 062704

040156
040166

SKERNEL
;CALL=KERNEL
TRAP+17(104417) ENTER KERNEL MODE
SENERGIZE;CALL=ENERGIZETRAP+20(104420) TURN ON MEMORY MANAGEMENT £ TRAPS

}}g%g 062710

042374

SKMAP

s CALL=KMAP

11540 062712

040206

SCACHN

11543 062716

040250

11546
11547
11548
11549
1155C
11551
11552
11553
11554
11555
11556
11557
11558
11559
11560
11561
11562
11563

053654
053702
053730
053760
054042
054064
054114
054134
(056156
054176
054220
054242
054262
054300
054316
054336
054354
054372

}}g%; 062660

}}2%8 062674

}}g%% 062700

}}ggg 062706

}}g:; 062714

}}gzg 062720
062722
062726
062726
062730
062732
062734
062736
062740
062742
062744
062746
062750
062752
062754
062756
062760
062762
062764

11564 062766

062636

061770
062214

G40176

040232
040344

051130

SNOTRAP;STYPBN

SRDDEC

:CALL=TYPBN

; CALL=RDDEC

$SRESREG ;CALL=RESREG

TRAP+6(104406)

TRAP+14(104414)

TYPE BINARY

READ A DECIMAL NUMBER FROM TTy
RO~RS ROUTINE

TRAP+16(104406) RESTORE RO-RS ROUTINE

SDEENERGI ; CALL=DEENERGITRAP+21(104421)

TURN OFF MEMORY MENAGEMENT & TRAPS

TRAP+22(104422) MAP KERNEL

;CALL=CACHON

TRAP+23(104423)

TRAP+24(104424)

TURN CACHE OFF

SLOADC

;CALL=LOADCSR

TRAP+25(104425)

LOAD CORRECT

SPEROYT
$PERO2
$SPERO3
S$PERQL
S$SPERG7?
$PER10
$SPERI1
$PER1?2
$SPER13
$SPER14
$PER1S
$PER16
$PER17
$PER20
$SPER2Y
$PER22
SPER2Y
SPER24

;CALL=PERROY
;CALL=PERRQ?
;CALL=PERROQ3
;CALL=PERRO4
;CALL=PERRO?
;CALL=PERR10
;CALL=PERRW
;CALL=PERR1?
:CALL=PERR13
;CALL=PERR14
;CALL=PERR1S
;CALL=PERR1S
;CALL=PERR1?
;CALL=PERRZ20
;CALL=PERR21
;CALL=PERRZ?
;CALL=PERR?}Y
;CALL=PERRZ24

TRAP+27(104427)
TRAP+30(104430)
TRAP+31(104431)
TRAP+32(104432)
TRAP+33(104433)
TRAP+34(104434)
TRAP+35(104435)
TRAP+36(104436)
TRAP+37(104437)
TRAP+40(104440)
TRAP+41(104441)
TRAP+42(104442)
TRAP+43(104443)
TRAP+44(104444)
TRAP+45(104445)
TRAP+46(104446)
TRAP+47(104447)
TRAP+50(104450)

PROGKAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGKAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRATM
PROGRAM

$SCACHF

SREADC

$PER2S

;CALL=CACHOFF
;CALL=READCSR

;CALL=PERR?S

(ASCII) NUMBER

TURN CACHE

TO 1

£SR

TRAP+26(104426) READ CORRECT (SR

TRAP+S1(104451)

DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED
DETECTED

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

PROGRAM DETECTED ERROR

CALL)

339

$ECCDIS

sCALL=ECCDLS

$WASSBE

s CALL=WASSBE

SNOTRAP s CALL=PERR41
SNOTRAP ; CALL=PERR4?2
SNOTRAP ;CALL=PERR43

;s CALL=WASDBE
SWAST1DBE
; CALL=WAS1DBE
$CLRCSR ;CALL=CLRCSR

SWASDBE

$SCLRICSR; CALL=CLRICSR
$CHKDIS JCALL=CHKDIS

SCHKIDIS;CALL=CHKIDIS
$ENASBE s CALL=ENASBE
$SENATSBE
; CALL=ENA1SBE

$TSTRD
JCALL=TSTREAD
SINVALID; CALL=INVALID
S$ERRGEN ;CALL=ERRGEN
SNOTRAP
SNOTRAP
SNOTRAP
SNOTRAP
$NOTRAP
SNOTRAP
SNOTRAP

ERROR

ERROR
ERROR
ERROR
ERROk
ERROR
ERROR

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

N ALL

DISABLE
DISABLE

CSR'S

ON 1 SELECTED CSR
INITIALIZE ALL MK11 CSR'S
INITIALIZE 1 SELECTED MK11 (SR
WRITE GENERATED CHECKBITS IN ALL CSR'S
WRITE GENERATED CHECKBITS IN 1 SELECTED (SR
WAS THERE A SBE ON ANY (SR?
WAS THERE A SBE ON 1 SELECTED (SR?

$ECCIDIS;CALL=ECCIDIS
SECCINIT;CALL=ECCINIT
SECCTINIT,; CALL=ECCTINIT
$CBCSR
sCALL=CBCSR
$CB1CSR sCALL=CBI1CSR
SWAS1SBE
; CALL=WAS1SBE

jelelelololelolofoloelolofolw)

:CALL=PERR3?
; CALL=PERR4OD

; CALL=PERR3S

;CALL=PERR36

e
e e e e e e R
e B

:CALL=PERR33
;CALL=PERR34

MMMMMMMMMMMMMmem

:CALL=PERR30
:CALL=PERRY]
;CALL=PERR3?

PROGRAM
PROGRAM
PROGRAM
PRNOGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM
PROGRAM

; CALL=PERRZ7

SPER34
$PER3S
SPER36
$NOTRAP
SNOTRAP

——t

;CALL=PERRZ26

MMMMMMMMMMMMmmnmm

SEQ 0346

4500)WAS THERE A DBE ON ANY (SR?
4501)WAS THERE A DBE ON 1 SELECTED CSR?

502)CLEAR ALL CSK'S
JCLEAR

040570
040604
040616
040632
0460672
040714
040734
041050
041100
041214
041244
041256
041266
041302
040644
040660
040364
041362
0414612
062636
062636
062636
062636
062636
062636
062636

SEQUENCE

580 063024
581 063026
582 063030
583 063032
584 063034
585 063036
586 063040
587 063042
588 063044
589 063046
590 063050
591 063052
592 063054
593 063056
594 063060
595 063062
596 263064
597 063066
598 063070
599 063072
600 063074
601 063076
602 063100
603 063102
604 063104
605 063106

$SPER33

I 1N

398-1

C62636

$PER26
$PERZ7
$PER30
$PER3T
$SPER32

PAGE

7 063020
8 063022

07-0CT-80 18:01

ANV
S = B

NV =2 NN NNO
O
ocorONO
NN

[={=lelelalolele]

VIV
IV IV IV

ABLE

MACRO M1113

(U RV LV LV TV LV [V XV, ]

DBO MS11-L/M DIAGNOSTIC

SELECTED CSR

DISABLE ECC & WRITE CKBITS
DISABLE ECC & WRITE CKBITS
ENABLE TRAPS ON SBE'S FROM
ENABLE TRAPS ON SBE'S FROM
TEST LOC

(R1)

& TST

FOR SBE

FROM ALL (SR'S
FROM 1 (SR
ALL (SR'S
1 SELECTED (SR
(WITHOUT

INVALIDATE BACKRGROUND PATTERN ON BANK

TEST

ERRCR

ADDRESS

FETCHES

(IMSDBO MSi1=-L/M DIAGNOSTIC
TRAP

TABLE

11608

177776

MACRO M1113
ST

07-0CT-80 18:01
177776

J 1
PAGE 400 SEQUENCE 340
;STATUS REGISTER

SEQ 0347

NO VLN

MACRO M1113

07-0(T-80 18:01
LSBTTL

2O D00 NON N BN -

POPVPOINLAIPNORNIPOAIN)
— d ad et b b =D =D b

1F $1TEMB [S O THE ONLY PERTINENT DATA IS (ERRPC).
EACH ITEM [N THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

. *NOTE?:

S$SLRRTB:

064413
067115
063622

42 063142
43 063144

063140

063146

064445
067115
063632
064311

063150
063152
063154
063156

064513
067151
063642
0646174

EMS
DHS
DTS
DF?

063160
063162

064570
067151
063642
064174

DHS
C15
2
DF

063130
063132
063134
063136

&»

EM24
DH13
DT13
DF11

;ERROR
EM?
DH1
DT
DF2

;ERROR
EM3
CH3
P13
DF9
;ERROR
EM4

DH3
DT4

DFO

;ERROR

;ERROR
EMé

;ERROR

063170
C53172
063174
063176

064615
067151
063642
064174

Em?

063200
063202
063204
063206

066733
0701
064136
064174

EMS3
DHZ2S
D125

DHS
DTS
2
DF
;ERROR

DF2

THE

DATA HEADER

;;POINTS TO THE

DATA FORMAT

;:POINTS TO THE DATA

JERROR

064355
067035
063610
064174

063164
063166

;,POINTS

DFf

063120
063122
063124
063126

064311

; sPOINTS TO THE ERROR MESSAGE

EM
DH
)

065401
067526
063760
064316

ERROR POINTER

;*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM [N THE TABLE IS PERTINENT.

JeNOTEY:

06310
063110
063112
063114
063116

3
31
32
33
34
35

TABLE

K 11

PAGE 402 SEQUENCE 341

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
;*THE INFORMATION S OBTAINED BY USING THE INDEX NUMBER FOUND IN

cooooococococococo
oo oo
oo
OO O

ddd—‘-‘—.—.-‘—.—.-‘—.-‘d-—‘—.-—..—l—.—.—.-.-—‘—J-‘—-.—.—l—l-‘—‘—‘-‘—.—.—‘—l—‘—‘—‘—..—.—‘-fl-‘—‘-‘—._‘-“dd

CIMSDBO MSil-L/M DIAGNOSTIC
TABLE
ERROR POINTER

SEQ 0348

CIMSDBO MSi1-L/M DIAGNOSTI(
TABLE
ERROR POINTER
11667
11668 06321C

064655

063220
063222
063224
063226

064655
067275
063674
064233

063230
063232
063234
063236

064677
067405
063724
064174

063240
063242
063244
063246

064655
067275
063674
064246

063250
063252
063254
063256

064655
067275
063674
064261

063260
063262
063264
063266

064723
067526
063760
064316

063270
063272
063274
063276

064755
067526
063760
064316

11703 063300
11704 063302
11705 063304
11706 063306
11707
11708 063310
11709 063312

065021
067526
063760
064316

11669
11670
11671
11672
11673
11674
11675
11676
11677
11678
11679
11680
11681
11682
11683
11684
11685
11686
11687
11688
11689
11690
11691
11692
11693
11694
11695
11696
11697
11698
11699
11700
11701
11702

063212
063214
063216

11710 063314

11711 063316
11712
11713 063320
11714 063322
11715 063324
11716 063326
11717
11718 063330
11719 063332

11720 063334
11721 063336

067275
063674
064220

066762
070215
064146
064174

065067
067275
063674
064246
066570
070043
064074
064327

MACRO M1113

07-0(T-80 18:01
;ERROR
EM11

DH?
D17
DF3
.ERROR
EM11
DH?
017
DF
&
;ERROR
EM12
DH10
DT10
DF
2
;ERROR
EM11
DH?
017
DF5
.ERROR
EMI11
DH?
D17
DF6
.ERROR
EM13
DH13
D113
DF 11
;ERROR
EM14
DH13
DT13
DF
11
.ERROR

EM15
DH13
DT13
DFIN
:ERROR
EMS5
DH26

D126

DF2
:ERROR
EM17
DH?
D17
DFS
;ERROR
EM50
DH23

D123
DF13

L 1"
PAGE 404 SEQUENCE 342

SEQ 0349

ol
—d ) X)) —b b D b X
- WO D — N0
D

(=]
-

[=]
P

07-0CT-80 18:01

: ERROR

QOO Me-.

MACRO M1113

063350
063352
063354
063356

065204
067526
063760
064316

063360
063362
063364
063366

000000
067521
063754
064174

063370
063372
063374
063376

065266
067503
063746
064174

063400
063402
063404
063406

065325
067526

063760
064316

063410
063412
063414
063416

000000
067623
064002
064174

063420
063422
063424
063426

065352
067151
063642
0646174

EM23
DHS
DTS

063430
063432
063434
063436

065460
067702
064020
064274

EM25
DH15
DT16
DF?7

063440
063442
063444
063446

065505
070021
064050
064220

PAGE 406 SEQUENCE 343

—

065127
067526
063760
064316

063340
063342
063344
063346

11724
11725
11726
11727
11728
11729
11730
11731
11732
11733
11734
11735
11736
11737
11738
11739
11740
117461
11742
11743
11744
11745
11746
11747
11748
11749
11¢.,0
11751
11752
11753
11754
11755
11756
11757
11758
11766
11767
11768
11769
11770
17N
11772
11773
11774
11775

ERROR POINTER

- ITBMM
94T EM

CIMsSoBO MS11-L/M DIAGNOSTIC

TABLE

DH12
DT12
DF2
;ERROR
EM21
DH11
DTN
DF2

;ERROR

DF11
;ERROR
0

EM2?2
DH13
DT13

DH14

DT14
DF2

;ERROR

DF2
;ERROR

JERROR

EM26
DH16
DT17
DF3

:NO MESSAGE

SEQ 0350

CIMSDBO MSi1-L/M D]AGNOSTIC
TABLE
ERROR POINTER
11785
11786
11787
11788
11789
11790
11791
11792
11793
11794

063450
063452
063454
063456

066706
07011
064136
064174

063460
063462
063464
063466

065556
070021
064050
064307

11802
11803 063470
11804 063472
11805 063474
11806 063476
11807
11808 063500
11809 063502
11810 063504
11811 063506
11812
11813 063510
11814 063512
11815 063514
11816 063516
11817
11818 063520
11819 063522
11820 063524
11821 063526
11822
11823 063530
11824 063532
11825 063534
11826 063536
11827
11828 063540
11829 063542
11830 063544
11831 063546
11832
11833 063550
11834 063552
11835 063554
11836 063556
11837
11838 063560
11839 063562
11840 063564
11841 063566

066362
067275
063674
064220
065646
067275
063674
064220
065730
067275
063674
064246
066047
067275
063674
064220

066147
067275
063674
064220
066254
067275
063674
064220
066624
070122
064116
064337
066447
067230
063660
064174

MACRO M1113

07-0CT-80 18:01
;ERROR
EMS2
DH25
D125
DF2
;ERROR
EM27
DH16
DT17
DF8

;ERROR
EM35
DH?
D17
DF3
.ERROR
EM29
DH?
D17
DF3
;ERROR
EM30
DH?7
017
DFS
.ERROR
EM31
DH7
017
DF3
;ERROR
EM32
DH?
D17
DF3
ERROR
EM33
DH?
D17
DF3
.ERROR
EM51
DH24
DT24
DF14
.ERROR
EM36
DH6
DT6
Df 2

N 11

PAGE 408 SEQUENCE 344

SEQ 0351

CIMSDBO MSi1-L/M DIAGNOSTIC

TABLE

11856
11857
11858
11859
11860
11898
11899
11900
11901
11902

ERROR POINTER

063570
063572
063574
063576

066516
067072
064056
064174

063600
063602
063604
063606

067003
070233
064154
064346

MACRO M1113

(07-0CT-80 18:01
;ERROR
EMLO

DH2

DT20
DF?2

:ERROR

EMS6
DH27
D127
DF15

B 12
PAGE 410 SEQUENCE 345

SEQ 0352

CIMSDBO MSit1-L/M DIAGNOSTIC

ERROR DATA TAGS

11912
11913 063610

063616

(DT

002016

002050

MACRO M1113

07-0(CT-80 18:01

002032

002042

DT1:

.SBITL
.WORD

ERROR DATA TAGS (DT)
ERRPC,ADDRESS,500D,BAD,0
ERRPC,PADDRESS,PARCNT,O

000000

11917 063622

002016

002034

002070

©DT3:

.WORD

11918 063632

002016

002032

002066

DT4:

.WORD

11919 063642

002016

11920 063660

11921

063630
063640

063650
063656
063666

063674

063702
063710

000000

177572

172516

177766

177574

D71S:

.WORD

002016

002372

002350

DT6:

.WORD

002016

002170

002032

©OT7:

.WORD

177576
000000
002374

002170
002056

11922 063712

002170

11923 063724

€ 12

PAGE 412 SEQUENCE 346

002352
002042

000000
002050

ERRPC,ADDRESS ,NEMCNT,0

ERRPC,MMRO,MMR1,MM
,MMR3, CPUERR,0
R2
ERRPC,APTPAR,LSIZE ,APTECC,MSIZE,O

ERRPC,DUMMY,ADDRESS,DUMMY,GOOD,BAD
,BADXOR

002170

002172

002174

002176

©DT10:

.WORD

DETRO,DETR1,DETR2,DETR3,DETR4,DETRS,DETSP,DETPSW,0

11924 063746
11925 063754
11926 063760

002016
002144
002016

002144
000000
002170

000000
002032

.WORD
.WORD
.WORD

ERRP(,CSR,0
(SR,0
ERRPC,DUMMY,ADDRESS,DUMMY,TSTDAT,TSTDAT+2,(HECK,CSR,0

11927 0664002

177746

177572

177574

DT14:

_WORD

CONTRL,MMRO,MMR1,MMR2,MMR3,
CPUERR,(

002170

DT16:

.WORD

ERRPC,DUMMY,DUMMY,GOOD,GOOD2,G00D3

.WORD

BAD,BAD2,BAD3,DUMMY,DUMMY
0

063720

063732
063740

063766
063774

064010
064016

002170

002200
002206

000000

002202
002210

002170
002274

002240
002144

177576
000000

172516

11928 064020

002016

002170

1929 064034

002050

002052

1930 064050
1935 064056

002016
002016

002170
002042

064026

064042

064064

002042

002170
000000

002204
000000

002242
000000
177766

002044

002046

002170

000000

.WORD

002054

DUMMY ,DUMMY ,DUMMY ,DUMMY 0

000000
002050

DT17:
DT20:

.WORD
.WORD

ERRPC,DUMMY,0
ERRPC,GOOD,BAD,O

1939 064066
1940 064074

002016
002016

002170
002170

000000
002042

DT22:
DT23:

.WORD
.WORD

ERRPC,DUMMY,0
ERRPC,DUMMY,GOOD,BAD,DUMMY
,DUMMY,DUMMY ,DUMMY 0

11941

002016

002170

002144

DT24:

WORD

ERRPC,DUMMY,CSR,DUMMY,DUMMY,
DUMMY , DUMMY 0

002042

002144

DT25:

.WORD

ERRP(C,GOOD,CSR,0

002050
002170

000000
002032

DT26:
DT27:

.WORD
.WORD

ERRPC,BAD,O
ERRPC,DUMMY,ADDRESS,DUMMY,DUMMY,DUMMY
,DUMMY ,(

064102
064110

064116

064124
064132

11942 064136

064144

11943 064146
11944 064154

064162
064170

002050
002170
002170
002170
002016

000000

002016
002016

002170
002170

002170
002170
002170
000000

002170
000000

002170
000000
002170

002170

SEQ 0353

(ZMSDBO MSi1-L/M DIAGNOSTIC
ERROR DATA FORMATS (DF)

MACRO M1113

11951
11952 064174

000

064202
064205
064210
064213
064216

000
000
000
000
000

000
000
000
000

064177

000

07-0(T-80 18:01

0D 12

PAGE 414 SEQUENCE

ERROR DATA FORMATS

347

DFf2:

.SBTTL
.evte

0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0

(DF)

11953 064220

000

005

000

DF3:

.evie

0,5,0,8.,0,0,0,3,6.2.4

11954 064233

000

005

000

DFé:

.BY1Te

0,5,0,8.,0,8.,8.,3,6,2,6

11955 064246

000

005

000

DF5:

.8y1e

0,5,0,8.,9.,9..9.,3,6,2.4

11956 064261

000

005

000

DF6:

.Bv7e

0,5,0,8.,9..8.,8.,3,6,2,4

11957 064274

000

005

010

DnF7:

.8y1e

0,5,8.,0,0,9.,0,0,9.,2.4

064302
064305

000
002

000
004

064223
064226
064231
064236
064241
064244

064251
064254
064257

064264
064267
064272

0646277

010
000
002

010
010
002

010
011
002

010
010
002

000

11958 064307
11959 064311

000
000

11960 064316

11961

000
003
004

on
003
004
011
003
004

000

000
006
010
006

on
006
010
006

005
001

001

DF8:
DF9:

.BYTE
BYTE

0,5
0,1,1,1.1

000

005

000

OF11:

.BYTE

0,5,0,8..0,0,0,0,0

064327

000

005

000

DOF13:

.BYTE

0,5,0,0,3,6.2.4

11962 064337

000

005

000

DOF14:

.BYTE

0,5,0,3.6,2.4

005

000

DF15:

.BYTE

0,5,0,8..3.6.,4

06434

064321
064324

064332
064335

001

010
000
000
002

064342
064345

003
004

064351
064354

010
0C4

11963 064346

000

001

000
000
003
004
006
003

000
000

006
002
006

SEQ 0354

(IMSDBO MSi1-L/M D]AGNOSTI(
ERROR MESSAGES (EM)
11569

11978 064355
11979 064413

11980 064445
11981 064513
11982 064570

}}gg; 064615

103
120

116
m
12%

115

MACRO M1113

101
101

117
114
116

105

116
122

116
114
105

115

EM2:
EM3:
EMé:
EMS:
EM6:

Em7:

07-0CT-80 18:01

ERROR MESSAGES

.ASCiZ
LASCIZ
CASCIZ

/NON=EXISTANT MEMORY (HOLES) IN BANK 0/
/ILLEGAL OR RESERVED INSTRUCTION (TRAP TC
/UNEXPECTED TRAP TO 4/

LASCIZ
CASCil

LASCIZ

115

1095

115

EM11:

.ASCIZ

11990
11991
11992
11993
11994
11995
11996
11997
11998
11999
12000
12001
12002
12006
12007

115
127
106
115
123
123
123
115
125
122
103
101
105
103
127

11
122
101
105
102
102
102
m
116
105
10
104
103
117
122

123
111
111
115
105
105
105
123
105
103
105
104
103
122
111

EM13:
EMl4:
EM15:
EM17:
EM19:
EM20EM21:
EM22:
EM23:
EM26:
EM?2S:
EM26:
EM27:
EM29:
FM30:

LASCIZ
LASCIZ
CASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
ASCII

064723
064755
065021
065067
065127
065204
065266
065325
065352
065401
065460
065505
065556
065646
065730

12008 066023
12009 066047
12010 066147

12011 066254

12012
12013
12019
12028
12029
12030
12031

066362
066447
066516
066570
066624
066706
066733

12032 066762
12033 067003

104

106
101
115

115

125
101
102
102
123
102
102
m
102

105

117
123
117

117

116
120
122
101
102
m
m
114
100

126

122
122
126

126

105
126
101
104
105
126

124
114
104

EM12:

348

.SBTTL

11988 064655

11989 C64677

£ 12
PAGE 416 SEQUENCE

SEQ 0355

(EM)

/CAN'T SET 22 BIT MODE IN MMR3/
/PARITY ERROR(S) IN BANK 0/

/MEMORY MANAGEMENT

10)/

(TRAP TO 250)/

/MEMORY DAYA ERROR/

LASCIZ

/DETAILED ERROR DUMP/

EM31:
EM32:

.ASCIZ
LASCIZ
LASCIZ

/FORCED SBE LOCATION/
/ASRB (R3)¢ WITH ECC ENABLED CHANGED DATA AT FORCED DBE LOCATION/
/MOVB #360,(R2)+ WITH ECC ENABLED CHANGED DATA AT FORCED DBE LOCATION/

EM3S5:
EM36:
EM4O:
EMS0:
EMS1:
EMS2:

CASCIZ
LASCI2
CASLIZ
.ASCI2
.ASCIZ
.ASCIZ

EM33:

EMS3:
EMSS:
EMS6:

ASCIZ

LAS( 12
LASC!1
ASC( 12

/MISSING EXPECTED SBE FLAG/
/WRITE BYTE FAILED TO CLEAR SBE FLAG/
/FAILED TO GET INTERRUPT WITH DBE FLAG/
/MEMORY DATA ERROR IN CHECK BITS/
/SBE OR DBE CAUSED PARITY TRAP WHEN INHIBITED/
/SBE OR DBE DID NOT CAUSE PARITY TRAP WHEN ENABLED/
/SBE OR DBE ON MASTER TEST WORD/
/MISSING EXPECTED DBE/
/UNEXPECTED PARITY TRAP/
/RECEIVED DBE FLAG WHEN EXPECTING ONLY SBE FLAG/
/CHECK BIT DATA ERROR/
/ADDRESS PARITY ERROR DID NOT CAUSE ABORT/
/ECC INHIBIT MODE POINTER FAILURE - DID NOT PROTECT BANK/
/CORRECTION FAILURE WITH ECC ENABLED ON FORCED SBE/
/WRITE BYTE (MOVB) WITH ECC ENABLED FAILED TO CLEAR DATA AT/<(RLF>

/mov #177400, (R1) WITH ECC ENABLED CMANGED DATA AT FORCED DBE LOCATION/

/UNEXPECTED CORRECTION WITH ECC DISABLE ON FORCED SBE/
/APT SIZE DISAGREES WITH PROGRAM SIZING/
/BRANCH GOBBLE FAILED CONDITION CODES TEST/
/BAD ERROR ADDRESS GENERATED/
/SBE & DBE FLAGS NOT SET ON FORCED UNCORRECTED SBE/
/BIT SET ERROR [N CSR/
/BIT CLEAR ERROR IN CSR/
/1LLEGAL CSR TYPE/
/BAD PARITY TRAP GENERATED/

CIMSDBO MSii1-L/M DIAGNOSTIC

MACRO M1113

ERROR DATA HEADERS (DW)
12039

12040 067035

040

120

DH1:

12042 067115

040

120

DH3:

12041

067072

12043 067151

12044 067230
12045 067275

12046 0673461
12047 067405

12048 067503
12049 067521

12050 067526

12051 067603

12052 067623
12053 067702
12056 067757
12055 070021
12060 070036

12066 070043
12067 070122
12068 07017
12069 070215

12070 070233

040

040
0«0

040
040

040

040
040

040

120

040
103

103

040
040

040

120
120

040
122

117
040

040
040

120

040
040

103
040

040

120

120
123

110

DH?:

DHS:

DHé:
DH7:

LASCIZ

ASCIZ
LASCIZ
LASCIL

ASCII

102

040
040

120
120

DH23:
DH24:

120
120

DH16:
DH19:

120
120

DH25:
DHZ26:

120

.ASCIZ

DH13:

DH14:
DH15:

DH27:

ERROR DATA HEADERS

LASCIZ

LASCIZ
LASCIZ

DH11:
DH12:

PAGE 418 SEQUENCE 349

.SBTTL

DH10:

116
120
101

040

(07-0CT-80 18:01

ASCIZ
LASCIZ

LASCIZ

LASCIZ
LASCIL
LASCIZ

ASCIZ
LASCIZ

ASCIZ
ASCIZ

LASCIZ
LASCIZ

ASCIZ

OEV ADD

1ST ADD

/
/7

/
/

PC
PC

GD=-CC BD-CC/

MMRO

BAD

MMR 1

XOR

R’

(SR/

(SR
R2

MMR3

MSIZE/
600D/

CPUERR/

MTYP [NT PAT/
R3
R4

/CONTRL
MMRO
MMR1
MMR?
MMR3
/7 PC
BANK
PADD
GD-WD1 GD-wD2
/ BAD-WD1 BAD-WD2 BAD=CHK INT PAT/

(PUERR/
GD=CHK/

PC
PO/

7/
7/

PC
PC

/7
/7
/7

PC
PC

(SR/

PADD

WROTEZ/

/7
/7

VADD

MMR2

APTECC
PADD

WROTE1

/ CHKBITS

BANK

BAD/

# OF ERRORS/

APTPAR
LSIZE
BANK
VADD

7/
PC
/ CSR/

(DH)

GOOD

SEQ 0356

BANK/

BANK GD-ERR BAD~ERR (SR MTYP INT
BANK
(CSR) (SR MTYP INT PAT/

GD=-DAT
((CSR)/
BADCODE/

BANK

VADD

PADD

(SR

PAT/

MTYP PAT/

PSW/

1 071713
2 071736
7 071760
8 072010
072033
072054
; 072076
072101
3 072123
4 072137
5 072163
6 072175
I4 072212
8 072¢26
9 072246
0 072265
1 072325
2 072344
3 072363

060
061
062
063
064
065
066
067
070
000
110
123
125
117
114
123
130
101
110
101
111
131

.
L

040
040
040
040
040
075

.
.
L

061
061
061
061
061
061
061
061
061
012
127
103
103
103
117
103
105
102
120
120
124
102

040

200
200
200
200
200
200
200
200
200
015
200
200
200
200
200
200
200
200
200
200
200
200

063

200

.
.
.

071423
071445
071477
071523
071547
7 0715
8 071611
9 071634
0 071664

.
.

064
065
066
067
070
on

02
03
04
05
6

MSGO16:
MSGO17:
MSGO18:
MSGO19:
MSG020:
MSG021:

200
200
200
200
200
200

01 071400

123
040
000
040
123
117
040
040
040

[

103
040
040
040
106
103
060
061
062

MSGO15:

200
040
040
040
200
200
200
200
200

071236
071250
071261
071264
071270
071311
071335
071346
071363

000

12092
12093
12094
12095
12096
12097
12098
12099
100

000

MSGO13:
MSGO14:

.
.AS
.
.

OPrrrI>PPIP

000
000

MSG022:
MSG023:
MSGO2S:
MSG026:
MSGO27:
MSG028:
MSG029:
MSGO30:
MSGO31:
MSGO32:
MSGO33:
MSGA34:

.
.
.
.
.
.
.
.
.

A PRI PNINIPIRIP
P s YP T

071234

130
040

MSGOO8:
MSGO09:
MSGO10:
MSGO11:
MSGO12:

.
.

PRI

12091

12089 071230
12090 071232

MSGO06:
MSGOO7:

St Pt Gurg Bump Bmg Pt Bt g P Pmmg Pumg Pt Bt Pt Pt Pt o Bt Bt Bt P N NG N NG

120
105
122
040
066

MSGOOS:

[]

103
115
120
040
065

116
116

200
200
200
040
064

125
1

071007
071021
071033
071045
071133

200
200

MSGOO4:

,ASC
.AS
.AS
S
.
olI>

12084
12085
12086
12087
12088

12082 070740
12083 070775

MSGOO1:
MSGO02:
MSGO03:

040
0640
040
040
040
062
122

040
040
049
040
040
061
105

[]

200
200
200
040
200
060
200

[

070354
070436
070513
070555
070620
070661
070726

.587
.ASC

12075
12076
12077
12078
12079
12080
12081

MSG000:

PRI

103

[

040

[

200

[

12073
12074 070307

MESSAGES

07-0(CT-80 18:01

T
X
W L T
X
X T T
e X e T e
e L
T T X X G
X
X T X
X
X
L
Y L N L N
s X Y
X
X
XT T X L L T Y
. )
aTalalalfalialalalalfalalal lIafelelfalalelefalela el il e el
e e el ln il kel inininininininininininimim e
St Gt G By et G St Gt g S Gt S VY Dt Bt Bt St St Pt Bt Bt Bt Bt Gt Bant Bt Bt B Bt B Bt Bt Pt B Pt Bt Bt Bt TV Grmat Sy St Bt Pt Pt Pt Bt Pt Pt D Pt P Pt Pt Pt Pumt

MACRO M1113

CIMSDBO MSi1-L/M DIAGNOSTIC

I
I
I
I
I
Z
I
I
I
I
I
I

6 12
PAGE 420 SEQUENCE 350

SCe

MESSAGES
<CRLF>"' CIMSDB =~ MS11L/M MEMORY DIAGNOSTIC"
<CRLF>/
MEMORY CONFJGURATION MAP/
<CRLF>/
16K WORD BANKS/
<CRLEF>/
1
2
3/
/
4
5
6
7/
<CRLF>/
012345670123456701234567/
7012345670123456701234567012345670123/
<CRLF>/ERRORS
/

<CRLF>/UNDEF
INED TRAP INSTRUCTION/<32>
<CRLF>/INTRLV
/
s INTERLEAVED CSR #

<CRLF>/CPU MAP /
;CPU ACCESSED BANK
<CRLF>/MEMTYPE /
sMEMORY TYPE
<CRLF>/PROTECT /
;MEMORY PROTECTED
/
0
1
2
3
4
5
6/
/456701234567012345670123456701234567012345670123456701234567/

/x/
/7

0,0

; SPACE

<CRLF>/CSR
/
/
/
/

:FOR

SINGLE

ASCII

CHARACTERS &

;8 SPACES
;2 SPACES
;3 SPACES

<CRLF>/¥S (OMMAND MODE/
<CRLF>/COMMANDS AVA]LABLE:/

<CRLF>/0 = EXIT/

<CRLF>/1

= READ CSR/

<CRLF>/2 = LOAD CSR/

<CRLF>/3 = EXAMINE MEMORY/

<CRLF>/4 = MODIFY MEMORY/
<CRLF>/5 = SELECT BANK & PATTERN/
<CRLF>/6 = TYPE CONFIG MAP/
<CRLF>/7 = SOB-A-LONG TEST/
<CRLF>/8 = ERROR SUMMARY/
<CRLF>/9= REFRESH TEST/
<CRLF>/10= SET FILL COUNT/
<CRLF>/11= ENTER KAMIKAZE MODE/
<CRLF>/12= EXIT KAMIKAZE MODE/
<CRLF>/13= TURN CACHE OFF/
<CRLF>/14= TURN CACHE ON/
<CRLF>/15= TEST SELECTED BANKS/
<CRLF>/16= TEST ALL BANKS/
<CRLF>/17= ENABLE TRACE/
<CRLF>/18= DISABLE TRACE/
15,12,0
<CRLF>/WHICH CSR(O-F)? /
<CRLF>/CSR WORD? /

<CRLF>/CSR DOES NOT EXIST/
<CRLF>/COMMAND:/
<CRLF>/0LD CSR WAS/
<CRLF>/CSR IS NOwW/
<CRLF>/EXAMINE MEMORY/

<CRLF>/BANK(0-177)7 /
<CRLF>/PHYSICAL ADDRESS(0-17757776)7 /
<CRLF>/PARITY ABORT/<32>
<CRLF>/TIMEOUT TRAP/<32>
<CRLF>/BYPASSING ECC LOGiC TESTS ON BANK /

TERMINATOR

CIMSDBC MSi1-L/M DIAGNOSTIC
MESSAGES
12134 072427

12135
12136
12137
12138
12139
12140
12141

072472
072475
072514
072533
072551
072573
Q72627

12142 072654
12143 072675
12144 072722
12145 072755
12146 072774
12147 073034
12148 073066
12149 073112
12150 073174
12151 073214
12152 073245
12153 073263
12154 073333
12155 073354
12156 073407
12157 073431
12158 073440
12159 073460
12160 073471

040

121
200
200
200
200
200
200

200
200
200
200
040
200
200
200
200
200
040
200
200
200
200
077
11
116

12161 073501

116
040

12163 073576
12164 073605
12165 073636
12166 073654
12167 073672

MACRO M13113
104

126
1%
117
104
M
123
102

120
120
124
124
116
102
102
127
120
122
123
116
123
102
040
077
116
040

101
101
117
105
117
101
101
122
117
105
105
117
117
105
040
077
120
117

12205 074376

12206 074414
12211 074471

12212 074535
12213 074567
12214 074604

200

200
200
200
113
13

105

116
105
105

MSGO66: .ASCI2Z

MSGO75: .ASCIZ

MSG101: .ASCIZ
MSG102: .ASCIZ
MSG103: .ASCIZ

MSG104: .BYTE

116 MSG105: .ASCIZ

103
117

101
116

101
040
040

<CRLF>/NOW STARTING READ TEST OF MEMORY BANKS/
<CRLF>/SOB-A-LONG TEST/
<CRLF>/BELL = EACH PASS (OMPLETE/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

122

105

103

<CRLF>/POWER RECOVERY/
<CRLF>/REMOVE SYSTEM POWER FOR/
/ SECONDS MAX!'/

MSGO76:
MSGO77:
MSGO79:
MSGO85:
MSGO88:
MSGOB9:
MSGO90:
MSGO91:
MSG092:
MSGO93:
MSGO95:

000

200

<CRLF>/WRITING & CHECKING ADDRESS PATTERN AS BACKGROUND/

040
116
122
111
105
125
123
123
114
116
120

032

12204 074272

105
114
114

<CRLF>/TEST COMPLETE/
/ NOT AVAILABLE NOW - TRY LATER!/
<CRLF>/BANK REQUIRES RELOCATION/
<CRLF>/BATTERY BACKUP TEST/

/FATAL /
/x WORDS OF MEMORY TOTAL/<CRLF>
/x OF BIPOLAR/<CRLF>
/K OF MF11S-K/<CRLF>
<CRLF>/REFRESH TEST/

12203 074270

200
200
200

<CRLF>/T0 ESCAPE TYPE ANY KEY/<CRLF><12><12>

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

040
105
105
106
113
123
125
m
105
101
040

12200 074167
12201 074217
12202 074246

<CRLF>/SELECT BANK & PATTERN TEST/
<CRLF>/BANK NOT ACCESSABLE/
<CRLF>/PATTERN(0-35)? /
<CRLF>/PATTERN O DATA [S? /

MSGO67:
MSGO70:
MSGO71:
MSGO72:
MSGO73:

200
200
040
200
200
200
200
040
122
102
040

122

/Qv/
<C(RLF>/MODIFY MEMORY/
<CRLF>/0LD DATA WAS /
<CRLF>/DATA IS NOW /
<CRLF>/INPUT NEW DATA? /

1264
127
117
11/
105

12169 073742
12170 073763
12171 073777
12178 074023
12186 074050
12187 074066
12188 074110
12189 074124
12190 074136
12191 074152
12192 0746160

200

MSGO42: .ASCIZ
MSGO&3: .ASCIZ
MSGO46: .ASCIZ
MSGO47: .ASCIZ
MS5048: ,ASCIZ
MSGO49: .ASCIZ
MSGOS0: .ASCI1
LASCIZ
MSGOS1: .ASCIZ
MSG052: .ASCIZ
MSGO53: .ASCIZ
MSGOS54: .ASCIZ
MSGOSS: .ASCIZ
MSGOS56: .ASCIZ
MSGOS58: .ASCIZ
M56061: .ASCIZ
MSGO62: .ASCIZ
MSGO63: .ASCIZ

101

114
117
117

MSG106: .ASCIZ

MSG107: .ASCI2
MSG110: .ASCIZ

MSG111: _ASCIZ
MSG112: .ASCIZ
MSG113: _ASCIZ

SEQ 0358

/ DUE TO LACK OF SBE FREE LOCATIONS/

.ASCIZ

101
040
040
040
122

12168 073710

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

106
113
113
113
200

105

MSGO3S5:
MSGO36:
MSGO37:
MSGO38:
MSG039:
MSGO40:
MSGO&1:

MSGC64:
MSGO65:

115
105

200

MSGB34: ASCIZ

H 12

PAGE 420-1 SEQUENCE 351

<CRLF>/
(SR
CSR .../
/?2277?/
/INPUT MUST BE A/
/N OCTAL /
/NUMBER/<CRLE>
/ DECIMAL /

104

12162 073513

125

000
117
114
101
116
105
101

07-0CT-80 18:01

<CRLF>/ERROR COUNT EXCEEDED 20 - ABORTING FOR X¥DP (HAIN/

<CRLF>/RELOCATION NOT POSSIBLE/<32>
<CRLF>/ BANK ERRORS/<(RLF>
<CRLF>/END PASS #/
/ ERROR(S) DETECTED/<CRLF>
<CRLF>/FILL COUNT(OCTAL)? /
<CRLF>/KERNEL STACK/
<CRLF>/SUPERVISOR STACK/
<CRLF>/USER STACK/
/ 1S EMPTY/
/RELOCATED /
/BANK=/
/ PAl=/

<CRLF>/ENTERING KAMIKAZE MODE/
<CRLF>/LEAVING KAMIKAZE MODE/
<CRLF>/LEAVING FS MODE/<CRLF>

52,0
. CONTROL ¢
<CRLF>/ENTER BANKS IN OCTAL = USE NUMBER OUTSIDE RANGE TO TERMINATE (177)/
<CRLF>/CACHE IS OFF/

<CRLF>/CACHE IS ON (EXCEPT DURING ACTUAL PATTERNS)/
<CRLF>/ONLY SELECTED BANKS WILL BE TESTED/
<CRLE>/ALL BANKS WILL BE TESTED/
/x OfF MS11-L/<CRLF>
/x OF MSY1-M/<(RLF>

MACRO M1113

075264
075264
075264
075264

004124
002514
000200

POMNON)
= NN

N —

—p

NNOO

117
040
040
040
040

[ S

—

b O

OO0
&~
WWWO

D
e
d
e
d

200

—

074621
074645
074657
074671
074703
074712
074733
074753
074767
074770
075021
075072
075135
075157
075224
075243

OO
=0
S OOCOW

NS WA~ O 000 ~NON N
Nt OO N—=2O V00N

D
D
ed
d e
D
D
D
e
i
D
D
d e
e
e
D
D
b

PORLNININININI
PN PN NN NN NI NI
NI NN no
AIROMNIAINL RN NN NN NN NN NN
NI NI ~No
—
AN A N A AN NN PO RO PO TONIAI A — b b

d —

MESSAGES

ORONO
—

{IMSDBO MSit1-L/M DIAGNOSTIC

07-0(T-80 18:01

MSG114:

ASCIZ

I 12
PAGE 420-2 SEQUENCE 352

/x OF UNIBUS PARITY/<CRLF>

11/3%"

ASCIZ
.ASCIZ
.ASCIZ

<CRLF>
<CRLF>"
<CRLF>'

MSG124:

. ASCIZ

<CRLF>/NUMBER OF CSR'S IS WRONG [N BANK /

MSG126:

.ASCIZ

<CRLF>/PROGRAM (SR COULD NOT BE DETERMINED/

LPRINT
.PRINT

60000-SUPLIMIT
100000-€END

MSG116:
MSG117:
MSG118:

MSG119: _ASCIZ
MSG120: .ASCIZ
MSG121: .ASCIZ
MSG122: .ASCII
MSGA122:.BYTE
LASCIZ
MSG123: .ASCIZ
MSG125:

MSG127:
MSG128:
END:

.ASCIZ

.ASCIZ
.ASCIZ
.EVEN
$SEND

11/44"
11/60"
NO/

<CRLF>/
/ CACHE AVAILABLE/
/ CACHE BYPASSED/
<CRLF>/CSR NUMBER /
0
7/ CONTROLS TOO MANY BANKS/
<CRLF>/PROGRAM RELOCATED = ECC TESTS INHIBITED/
/ PASSES COMPLETED/

<CRLF>/TRACE ENABLED/
<CRLF>/TRACE DISABLED/

.END START3

;SUPERVISOR ADDPESSES LEFT
;ADDRESSES LEFT IN 16K

SEW 0359

80011

BRGOBSB
BSI1Z¢

PEIV IV IV IV IV |V |

O 0o

BMFLAG
8007

CACHKF
CACHKN
=
CACHOF
CACHON=
CACHVE= 000114

CONTT
COUNT
CPUBIT
CPUERR
CR
CRLF
CSR
CSRADD=
CSRCAS
CSRFBA
CSRFIR
CSRHOL
CSRINC
CSRINF
CSRINT
CSRLAS
CSRLBA
CSRLOO
CSRNO
CSROUT
CSRSTU=
CTEST
CTLKVE
DATARG=
DATBUF
DBEMSK
DDISP =

060434

061060
053536
061002
002340
002104
177766

J00015
000200
002144
172100
017356
002224
002220
002476
002300

002432
002230
002222
002226
002302
002146
041314
000014
006106

SEQ 0360

[}
[ I
[ I
LI

DF&
DF5
DFé

050762
000052
047200
047450
047700
047754
050376
050452
002420
003630
002624
002214

DET1
DF1
DF13
DF14
DF15
DF2
DF3

353
=2 NOOO
O NN
— =N

104503

DETSP

OF7

DF8

DF9
DH1
DH10
DH11
DH12
DH13
DH14
DH15
DH16
DH19
DH2
DH23
DH24
DH25
DH26
DH27
DH3

oM
=

CONTSI
CONTS2
CONTS3

[

P
G
ot Grg
g

o D

-y -y

o W@

St Gurn o

BLOCK3

044710

100000

8LOCK1
BLOCK?

007004

CONF GE
CONFIE
CONF IG
CONTFL
CONTRL= 177746
CONTS
061056

015064
015214
036046
000001
000002
002000
004000
010000
020000
040000

000004
000010
000020
000040
000100
000200
000400
001000
045260
045300
045314
002126
044766
045032
036050
002344
004522
011670

104410
104502
007104

O 0o b GO @

Puenh Pumy Guves

uuy

BAFPAF
BAFPAR
BAKPAT
BANK
BANK IN
BANKMO
BANKOK
BAWPAF
BAWPAR

104505
060706

BAD?2
BAD3

CMD78B
ctMe7¢
CMD98B
CMD9C

041770

DETPSW
DETRO
DETR]
DETR2
DETR3
DETR&
DETRS

APTSI12
BACKGN
BAD
3ADP(C
BADPSW
BADSP
BADSTA
BADXOK

604

DEENER=
DETAIL
DETFLA

NN
= O

APTDOW
APTECC
APTFLA
AP THAN
APTHLT
APTPAR

104474
104475
002274
104504
041662

—

ANA?

(BCSR =
(B1CSR=
CHECK
(HKDIS=
CHKGEN
CHKTAB
CHK1DI=
CKEND
(KSWR =
CLRCSR=
CLREX
CLRMEM
CLR1(CS=
CMD16A
CMD16L=
CMD5SB
CMDSC

J_ 12

PAGE 420-3 SEQUENCE

ot
)
et o
g

002140
002114
002320
002032
007134
045210
002374
002322
014514
045256
002372
002414
036470
002050
002020
002030
002024
040126
002056
002052
002054
014650
014756
002572
002100
002102
043710

(07-0CT-80 18:01

COCOOUOOOOOC0O

ABORTF
ACFLAG
ACTFLA
ADDRES

TABLE

~No

SYMBOL

MACRO M1113
NS~ =

CZMSDBO MSil1-L/M DIAGNOSTIC

064056
064066
064074
064116
0647136
064146
064154
063622
063632
063642
063660
063674
002170
000061
106470
104472
104471

104473
000030
064655
064677
064723
064755
065021
065067
065127
064355
065204
065266
065325
065352
065401
065460
065505
065556
065646
064413
065730
066047
066147
066254
066362
066447

064445
066516
064513
066570
066624
066706
066733
066762
067003
064570
064615

ENASBE
= 104506
ENA1SB= 104507
END

075264

CIZMSDBO MSil1-L/M DIAGNOSTIC
SYMBOL TABLE

MACRO M1113

ENERGI= 104420

E5¢

050736

HIPAT

£E12
€13
3

016770
016754
016710

FCMD15
FCMD16
FCMD17

050666
050752
051014

KDPARG= 172374
KDPAR7= 172376
KERNEL= 104417

E2
€20
E21
E22
€23
E24
E25
E26
E27
E3
€20
33
E32
£33
E 34
E35
E36
€37
E4

012652
022340
026442
024426
024650
024634
025046
034754
034740
012636
034554
034724
035000
035024
036322
041020
041020
041164
013452

ENEXBK 044700
ERRADD UV2430
ERRGEN= 104512
ERRMAX 002524
ERROR = 104000
ERRPC
002016
ERRPSW 002026
ERRSP
002022
ERRVEC= 000004
EUFLAG 002130
EVEN
002334
EXBANK 044240
EXCMD3 046330
EXCMD4 046650
EXITY
045074
EXITZ
045100
EO
004550
E1
012106
€10
014646
£l
016216

E15
€16
E17

€40
£4!
€42
E43
E4é
E4S
£46
E47
£
£50
£

016710
016660
022076

041164
041356
041356
042666
042646
043106
043014
047746
013520
050230
050444

£S3
050736
E54
051012
ESS
051774
£56
051774
E57
052300
E6
013550
E60
052300
E61
057434
E62
057434
£63
057520
£64
057614
E65
057700
E7
014126
FASTCI= 177640
FATALS 002062
FCMD10 050536
FCMD11 050564
FCMD12 050606
FCMD13 050626
FCMD14 050650

FCMD18 051030
FIELDS 045344
FINDBA= 000045

FINT
006404
FIRST = 060000
FLIPLO 002556
FLIPWA 036340
FLUSH
014270
FSCMDO 045542
FSCMD1 045644
FSCMD2 045756
FSCMD3 046122
FSCMD4 046376
FSCMDS 046716
FSCMD6 047540
FSCMD7 047546
FSCMD8 050040
FSCMD9 050244
FSINFL 002412
FSPAT
047354
FSSTAC 002266
FS1
045430

FS7TFLA 002416
FULLRE 002512
GBLENG= 000076
GETDAT 051424
GETDAY 051522
GETDIS 055570
002042
600D
002046
60002
G00D3
002046
GTSWR = 104407
HEADER 002552

07-0CT-80 18:01

044742

HOLDLO= 000011
HT
= 000011
|
002422
11y =1
ILLCSR 013216
IMPTES 012160
INCBNK 044752
INCPAT 044726
INCRPT 044726
INHBAN 002510
INHECC 002506
INTFLA 002134
INT64K 002136
INVALI= 104511
I0TVEC= 000020
JMPRL1 043240
KAMIKA 002004
KAMITE 026370
KDIAG = 000010
KDPARO= 172360

KERSTK= 002000
KFLAG
002500
KIPARO= 172340

KIPAR4= 172350
KIPARS= 172352
KIPARé= 172354
KI1PDRO= 172300
KMAP = 104422
KPFLAG 002112
KSIZE
002346
KSTACK 002534
LAST = 157776
LASTBA 002526
LASTBL 002530
LASTER 002014
LBLSO = 000455
LBLS1 = 000065
LBLS2 = 000447
LBLS3 = 000442
LBLS4 = 000315
LBLSS = 000317
LBLS6 = 000016

K 12

PAGE 420-4 SEQUENCE 354

LCSROU= 000041
LCSRRE= 006057
LCSRSA= 000055
LEGALC= 000003
= 000012
LF
002472
LINK1
002474
LINK2
= 177546
LKS
LOADBA 002402
LOADCS= 104425
LOADER= 000043

SEQ 0361

LOADHO

002536

L1353

021452

L1113
L114
L115

015462
015634
015764

L176
L177
L2

022142
022176
004702

LOOP
LOWMAP
LSIZE
LWDBE =
LWSBE =
Lo
L1
L10
£L100
L101
L102
L103
L104
L105
L106
L107
tn
L110
L
L112

L116
L117
L12

L120
L121
L122
L123
L1264
L125
L126
L127
L13
L130
L1
L132
1133
L134
L135

L136
L137
L14
L140
L141
L142
L143
L144
L145
L146
L147
L15
L150
L151
L152

014150
043644
002350
000037
000035
004532
004574
005072
014150
014264
014364
014374
014544
014544
014632
014744
005100
015052
015202
015332

016136
016216
005130

016254
016264
016710
016672
016736
017200
017310
017446
005362
017474
017500
017502
017546
017602
017606

017610
017756
005362
020432
021300
021310
021310
021346
021356
021356
021406
010656
02141¢
021442
021452

L154
L155
L156
L157
L16
L160
L161
L162
L163
L164
L16¢
L166
L167
L1?
L170
L1
L172
L173
L174
L175

L20
L200
L201

L202
L203
L204
L205
L206
L207
L21
L210
L211
L212
L213
L214
L215
L216
L217
L22
L220
Le21
L22¢

L223
L2264
L22%
L226
L227
L23
L230
L2
L232
L233
L234

021516
021526
021526
021536
010662
021574
021604
021604
021642
021652
021652
021732
021742
010664
021742
022104
022032
022032
022064
022064

011476
022200
022226

022230
022314
022426
022430
023270
023322
011512
023366
023636
023646
023646
024412
024360
024412
024456

011636
024620
024566
024620
025032
025032
025140
025112
025170
011614
025360
025712
026202
026240
026340

CZMSDBO MSi1-L/M DIAGNOSTIC
SYMBOL TABLE

MACRO M1113

L235
L236
L237
L24
L240
L24]
L242
L243
L244
L245
L246
L247
L25
L250
L2351
L252
L253

026412
026420
026424
011626
030242
030240
030242
031670
034432
034442
034554
034504
011642
034516
034534
034542
034566

L317
L32
L320
L321
L322
L323
L324
L325
L326
L327
L33
L330
L33
L332
L333
L334
L335

043004
011754
043052
043052
043102
043222
044402
044626
045010
065114
012072
065120
045126
045142
045154
045366
045376

L400
L401
L4602
L403
L404
L60S
L406
L407
Lé1
L410
L6
L4612
L413
L414
L615
L416
L617

054426
054440
054456
054460
054500
054512
054530
054532
012354
054546
054750
054756
055004
055022
055034
055046
055060

L53
L54
LS5
L56
L57
L6
L60
Lé1
L62
L63
L6G
L65
L66
L67
L7
L70
L1

013442
013416
013372
013364
013370
005100
013414
013410
013414
013442
013442
013442
013536
013606
005100
013760
014150

MSG007
MSG008
MSG009
MSGO10
MSG011
MSG012
MSGO13
MSGO14
MSGO15
MSGO16
MSG017
MSGO18
MSGO19
MSG020
MSG021
MSG022
MSG5023

070775
071007
071021
071033
071045
071133
071230
071232
071234
071236
071250
071261
071264
071270
071311
072101
072123

L3086
L 307
L3N
L3:0
L3111
L312
L313
L314
1.315
L3¢

042516
042530
011750
042530
042632
042662
043004
043004
043004
042764

L370
L3N
L372
L373
L374
L375
L376
L377
L4
L40

051352
051354
051420
051644
051752
052256
053574
053576
004742
012152

L652
L453
L&54
L&55
L4é
L&7
LS
L50
L1
L52

057706
061022
061112
061114
012636
012612
005020
012564
012574
012614

MSGA12
MSGA34
MSGB34
MSG000
MSGO01
MSG002
MSGO03
MSG004
MSGO0S
MSG006

074767
072363
072427
070307
070354
070436
070513
070620
070726
070740

MSGO61
MSG062
MSGO63
MSGO64
MSG065
MSG066
MSGO67
MSGO70
MSGO71
MSGO72

073431
073440
073460
073471
073501
073513
073576
073605
073636
073654

L2564
L255
L256
L257
L26
L260
L261
L262
L263
L 264
L265
L266
L267
L7
L270
LN
L272
L273
L274
L275
L276
L277
L3
L30
L300
L301
L302
L303
L304
L 305

034724
034624
034636
034670
012072
034654
034666
034712
034700
034712
035024
036702
037330
012072
037516
037620
040532
040540
040776
040776
041040
041046
004724
012072
041142
0461142
041204
041212
041334
042502

L336
L337
L34
L340
L341
L342
L343
L344
L345
L346
L3647
L35
L350
L 351
L352
L353
L354
L355
L356
L357
L36
L360
L361
L362
L363
L364
L365
L366
L367
L37

045532
045572
012024
045576
045626
045640
047026
047066
047124
047272
047306
012072
047320
047616
047620
047732
050230
050214
050164
050314
012144
050316
050430
050720
050722
051166
051202
051206
051224
012150

07-0CT-80 18:01

L 12
PAGE 420-5 SEQUENCE 355

L&2
L420
Lé21
L422
L4623
L424
L&25
L426
L&427
L3
L430
L431
L632
L533
L&34
L635
L436
L&37
Lé&4
L4640
L&41
L442
L443
L444
L&45
L446
L&4?
L45
L450
)

012354
055102
055150
055230
055244
055246
055352
055414
055424
012354
055726
055726
056070
056030
056050
056070
056266
056136
012360
056264
056214
056226
056264
056274
056574
057412
057616
012636
057622
057702

L72
014116
L73
014034
L74
014036
L75
014076
L76
014112
L77
014146
MAINT = 177750
MATHO = 170202
MAPLO = 170200
MAPL1 = 170204
MAPPER 042030
MBERR
013074
MEMDON 014216
MFPT = 000007
MJPAT
020002
MITEST 017676
MKCONT 016244
MKCSRT 017366
MKFLAG 002116
MKLOOP 016426
MKPAT
017616
MKTEST 017456
MMRO = 177572
MMR1 = 177574
MMR2 = 177576
MMR3 = 172516
MMTRAP 040102
MMVEC = 000250
MSEEDH 002546
MSEEDL 002550

SEQ 0362

MSG025
MSG6026
MSG027
MSG028
MSG029
MSG030
MSGO31
MSG032
MSGO33
MSGO35
MSG036
MSGO37
MSGO38
MSG039
MSG040
MSGO41
MSGO42
MSGO43
MSGO46
MSGO47
MSGO4B
MSGO49
MSGOS0
MSGO51
MSG052
MSG053
MSGOS4
MSGO5SS
MSGO56
MSGO58

072137
072163
072175
072212
072226
072246
072265
072325
072344
072472
072475
072514
072533
072551
072573
072627
072654
072675
072722
072755
072774
073034
073066
073174
073214
073245
073263
073333
073354
073407

CIZMSDBO MSil1-L/M DIAGNOSTIC

MACRO M1113

MSGO73
MSGO75
MSGO76
MSGO77
MSGO79
MSGO85
MSGO88
MSGO89
MSGO90
MSGO91
MSG092
MSGO93
MSGO95
MSG101
MSG102
MSG103
MSG104
MSG105
MSG106
MSG107
MSG110

073672
073710
073742
073763
073777
074023
074050
074066
074110
074124
074136
074152
074160
074167
074217
074246
074270
074272
074376
074414
07447

MIPB21
MIPB24
MTPB25
MTPB26
MTPCO3
MTPC20
MTPC21
MTPC24
MTPC25
MTPC26
MTPDO3
MTPD20
MTPD21
MTPD25
MTPD26
MTPE20
MTPE25
MTPO00
MTPOO1
MTPO02
MTPOO5

034262
035116
035510
035632
027204
034126
034316
035132
035550
035666
027222
034156
034352
035414
035706
034206
035436
026774
027020
027052
027316

MT0017
MT0020
MTC021
MT0022
MT0023
MT0024
MT0025
MT0026
M10027
MT0030
MT0031
MT0032
MT0033
MT0034
MT0035
MT020Y
MT0202
MT0999
MT1
M12
MUT

021674
021716
023006
023260
023312
023356
023622
023670
024172
024656
025160
025350
025702
026070
026242
022554
022370
026354
016224
016230
002106

PCONFS 037070
PCONF1 037000
PCONF2 037036
POP110 040114
PD1
051644
PERAOS 054012
PERBNK 054644
PERECC 054724
PERRAB 054462
PERRAW 054410
PERRA3 051212
PERRA7 054534
PERRO1= 104427
PERRO2= 104430
PERRO3= 104431
PERRQ4= 104432
PERROS 054006
PERRO6 054034
PERRQ7= 104433
PERR10= 104434
PERR11= 104435

QVFLAG 002316
RANODD 035646
RDCHR = 104411
RODEC = 104474
RDLIN = 104412
RDOCT = 104413
READCS= 104426
READON 002360
REALPA 002260
REFRES 034756
REFSUB 035026
REGCOP 036330
RELENT (043112
RELOCA 042466
RELOCT 043126
RESREG= 104416
RESTAR 002566
RESVEC= 000010
RESO
045640
REST
045720
RES2
046066

MSG116
MSG117

074645
074657

MTP012
MTPO13

030556
031144
031660
032442
033206
033770
034046
034402
035150
035724
035734
036012
036044
036142
036166
011516
022366
020062
020142

NEWLOA
NOCH

044206
060416
002400
002376
002076
0400264
036702
002074
002410
002426
002342
055366
002424
002314
002262
002750
002554
002034
015344

PERR16= 1044472
PERR17= 104443

PERR20= 104444
PERR21= 104445
PERR22= 104446
PERR23= 104447
PERR24= 104450
PERR25= 104451
PERR26= 104452
PERR27= 104453
PERR30= 104454
PERR31= 104455
PERR32= 104456
PERR33= 104457
PERR34= 104460
PERR35= 104461
PERR36= 104462
PERR37= 104463
PERR4O= 104464

SBEMSK
SBENT

SBETES 017052
SCOPE = 000004
SDPARQ= 172260
SDPARS= 172272
SOPARG= 172274
SOPAR7= 172276
SEEDHI 002542
SEEDLO 002544
SELONL 002000
SETPAT 044742
SHADL1 011546
SHUTUP 045126
SIPARQ= 172240
SIPAR3= 172246
SIPARS= 172252
SIPARG= 172254
SIPDRO= 172200

PATPLU 004514
PATTER 002110
PCBUMP 002276
PCONFI 036570

002354
PSIZE
= 177776
PSW
PWRVEC= 000024
002406
QUICK

SOURCE 002272
SPLTCS 002232
=X000006
SSP
= 177776
ST

SYMBOL TABLE

MSG111
MSG112
MSG113
MSG114

074535
074567
074604
074621

MSG118 074671
MSG119 074703
MSG120 074712
MSG121 074733
MSG122 074753
MSG1¢3 075021
MSG124 075072
MSG125 075135
MSG126 075157
MSG127 075224
MSG128 075243
002352
MSIZE
MTAQ30 024670
MTB020= 000017
016150
MTEST
MTLA11 030006
MTLB11 030020

MTLC11 030032
MTLD11 030126
MTL020 021772
MTPAO3 027104
MTPAQ4 027242
MTPA20 034046
MTPA21 (034232
MTPA24 035056
MTPA25 035466

MTPA26
MTPBO3
MTPBO4
MTPB20

035616
027144
027276
034076

MTP006
MTPOO7
MTPO10
MTPO11

MTPO14
MTPO15
MTPO16
MTPO17
MTP020
MTP022
MTP025
MTPO30
MTPO31
MTP032
MTFO33
MTPO34
MTPO35
MTST3
MTV020
MT0000
MT0001

M70002
MT0003
MT0004
MT0005
M10006
MT0007
MT0010
MT0011
MT0012

027352
027552
027652
027760

020262
020422
020654
020776
021132
021166
021230
021264
023332

MT0013 021426
M70014 021502
Mi0015 021560
MT0016 021626

07-0CT-80 18:01

M 12

NC
NEMCNT
NEWBAN
NEWKER

NOERRO
NOFSMO
NONEM
NONEXI
NOOJ
NOPAR
NOSCOP
NOSUPE
NOTAB
NOTRCE
N022BI
NULLFL
OLDCAC
OLDCSR
ONES
PADDRE
PAFBAF

PAGE 420-6 SEQUENCE 356

053576
002066
002270
044140

PAFBAW 015474
PARBAF 015646
PARBAW 015776
PARCNT 002070
PARITY 037720
PARTHE 002264
PARVEC= 000114
PASFLG 002256
PATERR 002072

PERR12= 104436
PERR13= 104437
PERR14= 104440
PERR15= 104441

PERR&1= 104465
PERR42= 104466
PERR43= 104467
PERXOR 054620
002120
PFLAG
PGMCSR 002502
013076
PHEBE
PHYADD 002036
PROTYP 003710

SEQ 0363

RLFLAG 002124
RRFLAG 002122
RTNVAL=X000000
SAVREG= 104415

002244
017330

SIZE = 040000
SKIPXA 002006
SKIPMK 002312
SKPERR 002064
043102
SKuB
013100
SKUJ
002532
S0BK
SOBLEN= 000056
SOF TPA 002560

CIMSDBO MSi1-L/M DIAGNOSTIC
SYMBOL TABLE

STACK =
START
START1
START2
START3
STAR27
STOPOK
STRIPE
SUBAAA
SUBAAB
SUBAAI
SUBAAP
SUBAAR
SUBAAS
SUCCES
SUPDOA
SUPDO1
SUPDO2
SUPDO3
SUPDO4
SUPDRO
SUPDR1
SUPDRZ2
SUPDR3
SUPDR4
SUPDRS
SUPDR6

MACRO M1113

07-0CT-80 18:01

N 12

PAGE 420-7 SEQUENCE 357

SEQ 03¢¢

002000
003630
000300
000310
000200
024252
002370
002336
004552
004702
011542
013260
012422
010474
002304
002254
026424
026440
026602
026616
002152
002154
002156
002160
0021762
002164
002166

TAG75% 056744
TAG76% 056756
TAG?7$ 057022
TAG78% 057030
TAG79% 057110
TAG9S
010764
TBG4S
026676
TCFIGY 037214
TCFI1G2 037346
TCFIG3 037534
TCONFI 037072
TEMP
002404
TEST
006010
TESTAD 002362
TESTMO 002522
TIME
002310
TIMEOU 040070
TKVEC = 000060
TMFLAG 002132
TOOMAN 002356
TOTCSR 002216
TRACE
006104
TRAPVE= 000134
TSTBAN 071404
TSTDAT 002240
TSTRD1 040542
TSTREA= 104510

UNRELO 043356
UPPFLG 002257
USERMA 044056
USESTK= 000700
usP
=X000006
WARNT
011052
WARNZ
027116
WARN3
027132
WARNG
027156
WARNS
027172
WARNG
036552
WARN6A 036512
WARNGB 036544
WARN?
024230
WwASDBE= 104500
WASSBE= 104476
WAS1DB= 104501
WAS1SB= 104477
WHICHC 051042
WOOPEN 05305¢
WOOPS
052504
WOOPSA 053102
WOOPUP 052670
WORST
002540
XOCHAR 053444
XXDPCH 002324
IEROS
002306

$DDW3
062560
$DDW4
062562
$ODWS
062564
SDEENE 040176
$DEVCT 062476
SOEVM
062544
$D10D0= 000000
$DOAGA 014544
$DOAGN 014440
$DOWN
052074
$DTBL
060354
$ECCOI 040570
SECCIN 040616
SECCID 040604
SECCTI 040632
$ENASB 040644
$ENATS 040660
SENDAD 014430
$ENERG 040166
SENV
062506
SENVM
062507
$EOP
014274
$ERFLG 002012
$SERRGE 041472
$ERROR 055642
SERRTB 063110
SERRTY 056306

SMADR? 062524
$MADR3 062530
$SMADRGL 062534
SMAIL
062466
SMAMS1
062516
SMAMS?2 062522
SMAMS3 062526
SMAMS4 062532
$MBADR 062570
SMNEW
061606
SMSGAD 062502
SMSGLG 052504
$MSGTY 062466
$MSWR
061575
SMIYPi1 062517
SMTYP2 062523
SMTYPE 062527
SMTYP4 062533
3NOTRA 062636
SNULL
002326
SNWTST= 000001
SOCNT
060144
$OCTVL 062450
$0CT8 = 062454
SOMODE 060146
SOVER
055556
$0$
= 000000

sWw7
= 000200
Sw8
= 000400
sw9
= 001000
SYSSIZ 003712
TAG2S
011136
TAG3S
011172
TAGLS
026520
TAG708 056602

1128
033230
UDPARQ= 177660
UDPAR7= 177676
UIPARO= 177640
UIPAR1= 177642
UIPAR2= 177644
UIPAR3 177646
UIPARL- 177650

$CMTGE
SCNTLC
S$CNTLG
$CNTLK
SCNTLU
$CPUOP
$CRLF
$OBLK

SITEMB 002013
$I$
= 000001
$SKERNE 040156
SKMAP
042374
$k$
= 000061
$L
= 000066
SLF
002621
s
= 000064
SLOADC 240250
SLPADR 002562
SLPERR 002564

SPER22
$PER23
$SPER2L
$PER25
SPER26
$PER27
SPER30
SPER3T

SUPLIM 053654
SUPSTK= 000740
SWAPAT 002574
SWR
002576
SWREG = 000176
sw0
= 000001
sw1
= 000002
sWw10 = 002000
SW11 = 004000
swi2 = 010000
SWwi13 = 020000
SW14 = 040000
SWi15 = 100000
Sw2
= 000004
sWw3
= 000010
Sw4
= 000020
WS
= 000040
swé
= 000100

TAG71%
TAG728
TAG73%
TAG74%

056612
056622
056672
056732

TST1
005402
TST2
010500
TST3
010664
1ST4
011652
1875
014150
TSTé
014222
TYPDS = 104405
TYPEIT= 104401
TYPOC = 104402
TYPOS = 104403
TYPSO = 000000
TYPS1 = 000002
TYPS2 = 000000
TYPS3 = 000000
TYPS4 = 000000
TYPSS = 000000
TYPS6 = 000002
T12A
033206

UIPARS= 177652
UIPARG= 177654
UIPDRO= 177600
UNITOP 002366

SAPTHD
$SAUTO
$BANK
$BASE
$BELL
SCACHF
S$CACHN
$CBCSR
$CB1CS
$COW1
$COW2
$CHARC
$CHKDI
$CHK1D
$CKSWR
$CLRCS
$CLRIC
$CMTAG

062566
002060
002011
062542
002613
040232
040206
040672
040714
062546
062550
053632
041266
041302
060374
041244
041256
002000

$0B20
$DDW0
$ODWY
$0DW2

062344
062552
062554
0672556

002514
061556
061570
060774
061563
062514
002620
060364

SERTTL 002570
SESCAP 002332
SETABL 062506
SETEND 062566
SEXHAL 045120
$ES
= 000001
SFATAL 062470
$FILLC 002612
SFILLS 002327
$F$
= 000000
$GTSWR 060550
SHALT
056110
SHALT2 062642
SHIBTS 062566
SHIOCT 061766
SILLUP 052476
$INVAL 041362

$.$
= 0000c0
SMADRY 062520

$SPASS
$SPASTM
SPATMA
SPERO1
$SPERQ2
$PERO3
$SPERQ4
$PERO7
SPER10
$PER11
SPER12
SPER13
SPER14
SPER1S
SPER16
SPER17
$PER20
SPER21

062474
062574
002010
053654
053702
053730
053760
054042
054064
054114
054134
054156
054176
054220
054242
054262
054300
054316

$SPER3Z
$SPER33
$PER3L
$PER3S

055070
055136
055216
055250

054336
054354
054372
051130
057562
054602
051356
054772

(ZMSDBO MSi1-L/M DIAGNOSTIC

SYMBOUL TABLE

SPER36 055304
ISPWRON 051526
SPWRUP 052100
SQUES
002617
$R
= 177777
SRAND
062252
SROCHR 061114
SRDDEC 061770
SROLIN 061234
$RDOCT 061620
SREADC 040344
SRESRE 062214
075264
000000
ERRORS DETECTED:

MACRO M1113

07-0CT-80 18:01

$SAVRE 062156
$SAVR6 052502
$SCOPE 055334
$STN = 000001
$SVLAD 055542
$Svs = 000000
$SWR = 163000
$SWREG 062510
$T
= 000456
STESTN 062472
002604
$7k8
$TKS
002602

. ABS.

000
001

VIRTUAL MEMORY USED:
26074 WORDS
( 102 PAGES)
( 78 PAGES)
20346 WORDS
DYNAMIC MEMORY:
ELAPSED TIME:
01:11:02
.SML
,MCBE.P11
MC8E ,MC8E/~-SP=(CZMSDB

$TN
= 000007
$TPB
002610
$TPFLG 002330
$TPS
002606
$'RAP
062602
$TRAP2 062624
STRPAD 062644
$TSIM
062572
$TSTRD 040364
STTYIN 061532
$TYPDS 060150
$TYPE
T53320

B8 13

PAGE 420-8 SEQUENCE 358

$TYPEC 053446
STYPEX 053634
$TYPOC 057746
$TYPON 057762
$TYPOS 057722
$T1
= 000000
$72
= 000455
SUNIT
062500
SUNITM 062576
SUSWR
062512
CVECT1 002536
SVECT2 062540

SEQ 0365
$SWASDB 041100
SWASSB 040734
SWASID 041214
$WAS1S 041050
$XTSTR 055434
$Yy$
= 000000
$ZAP42 014410
$2%
= 000000
$$S
= 000000
$$T
= 000441
$$TT = 000447
SOFILL 060145