Digital PDFs

AH-8860B-MC

July 1978

101 pages

Original

5.4MB

view download

OCR Version

4.5MB

view download

Document:	CZKUBB0 PDP11 UNIBUS EXERCISER MODULE JUL 1978 bw
Order Number:	AH-8860B-MC
Revision:	000
Pages:	101
Original Filename:	CZKUBB0__PDP11__UNIBUS_EXERCISER_MODULE__AH-8860B-MC__JUL_1978_bw.pdf

OCR Text

UNIBUS EXERCISER MODULE

CZKUBBO

AH-8860B-MC

copvrichT - 75-78

FICHE1 OF1

JUL19/8

OEO0EN

MADE IN USA

IoENTIFLCAT O
PRODJCT

CODE
:

PRODUCT

NAME

DATE

' AC-88598-M(
CZKUBBO UNIBUS

CREATED:

EXERCISER MODULE

1-APRIL-78

MAINTAINER:

DIAGNOSTIC

AUTHOR :

WARREN SALTZ

MODIFIED BY:

GROUP

BILL SCHLITZKUS

The information in this _document is subject to change
without
notice
and
should
not
be
construed
as
a commitment by Digital Equipment
Corporation.
Digital Equipment Corporation assumes no
responsibility
for any errors that may appear in this manual.

Hoigital Equipment Corporation assumes no responsibility for the use or
reliability

Digital.

(C)

FOLLOWING ARE

DIGITAL

DEC

its

software

1975,1978 by
TRADEMARKS

PODP

DECUS

o 000

equipment

that

is not

supplied

Digital

Equipment

Corporation

DIGITAL

EQUIPMENT

CORPORATION

UNIBUS
DECTAPE

MASSBUS

DIAGNOSTIC

Page ¢

W) — O
o

Starting Address

£&H
.

Program

Preliminary Requirements
Execution time

o
o

ar”

Control

Program Description

Error Reporting

— =2 OO NOWVNEBWN—=2O

Qo
0o L)Co [Co )0o .0o .0o L]0o .0o .GO L]OO .OO
L]
.

Equipment

Switch Options

W
.

Requirements

urerator

Handlers and Common Routines
Trap Handler
Scope Handler
Error Handler
Trap Catcher
Power Down and Up Routines
CLRREG Routine
RCATCH Routine
CRDY Routine

DINT Routine
0 RVEC Routine
1

Contents

Abstract

(¥,
]
]

MO
N
]
.
.
.

—

Table of

TERRPC

ROUTINE

Action

SEQ 0002

D
Page 3
1.0

SEQ 0003

Abstract

The Unibus

Exercisor

(UBE)

module diagnostic

comprised of

series

of
tests
that
check
all
programmatically
accessable areas of the
exercisors ( 95%).
The tests are arranged in
a
logical
order
such
that simpler functions are examined first followed by the more complex
ones.
The tests build on one another such that the present test
will
use
hardware previously tested.
This should provide a very effective
degree of fault isolation.
The program
is intended

is written to test a maximum of four
to run in a stand-alone environment.

2.1

Equipment

2.2

Requirements

NN
=

2.0

A
A
A
A

working
working
good 6K
minimum

time

and

been
tested
on
a
GR
those areas that can not

or
be

PDP-11 and Unibus
Teletype
of Memory
of 1 to a maximum of 4 UBE

UBE's

one

on the system

Preliminary Requirements

It is expected that the module will
have
similar
tester.
This
is to ensure that

[

NN
B NN —

thouroughly

exercised by

this program are working.

Wrong Grant Error bit
No, No SACK time out Error bit
Wrong A lines Error bit

No Grant or not one Grant Error
No Interrupt SSYN Error bit

These

areas are:

bit

Inhibit Sack Logic.

In addition the passing of grants
can
not
be
tested
if
exercisor
1is present (see section 6.0).
On those machines

only
one
that don't

have a
parity
trap
(11/05,
11/20),
the
parity
hardware
1is
not
checked. THE PARITY OPTION TEST (TEST 6) SHOULD BE DESELECTED BY SETTING SWITCH
ALSO, THE POWER DOWN TEST SHOULD NOT BE RUN ON THE 11/0S.

Execution Time

rfor an error free,

first

pass

run on

takes approximately 15 seconds per UBE

11/45

tested.

with

core

memory,

FOR OTHER MACHINES WITHOUT

PARITY MEMORY.

Page 4

3.0

SEQ 0004

Starting Address

200

for normal startup and restart

1100 -

4.0

halted

Program Control

Interrupt

test

and wish

restart

and Operator Action

4 .1
The paper

tape

loaded using

the

standard procedure

for

ABS.

tapes.

o .2

JLoad address 200

4.3
1t

the power down sequence

to be

tested

set

SW4=1.

4 .4

I1f more than one exercisor is present and it
is
desired
to
inhibit
testing
one
or
more
of
them,
set
the corresponding S¥0,1,2,3=1.
Switch 0 corresponds to the UBE which has the lowest
address
on
the
bus.
Switch
1
to
the
next
highest
etc..
All UBE should not be
inhibited.
If this is done the program will trap to 4
after
several
end of passes.
If all exercisors are to be tested SW0,1,2,3=0.

.5
Start

5.0
THE

Test

Switch Options
USE

THIS

PROGRAM ON PROCESSORS

HAVING A

SOFTWARE

ECESSITATES OPERATOR INTERACTION:
THE OPERATOR MUST
ITH THE SWITCH REGISTER VALUES DESIRED.

SW<15>=1
SW<14>=1

Halt on Error
Loop on Test

SWITCH

SET UP LOCATION

176

SW<13>=1

SW<12>=1

Inhibit Error Typouts
Inhibit Most Typeouts Except Error

SEQ 0005

Page 5

SW<11>=1
SW<10>=1
SW<09>=1

Inhibit Test Iterations
Bell on Error
Loop on Error

SW<05>=1
SW<04>=1
SW<03>=1

INHIBIT TEST 6
Test Power Down
Inhibit Test of
Inhibit Test of
Inhibit Test of
Inhibit Test of

SW<02>=1
SW<01>=1
SW<00>=1

UBE4

UBE3
UBEZ2
UBE1

SWAI5

5.1

The program halts on encountering an
error
error message.
Pressing 'continue' restores

The program

switch

loops

the

subtest

inhibits

all

error

SW<13

This

switch

5.4

SW<12>

This

switch

5.5

SwW<1i1>

Mhen one

inhibits most

iterations of

being

executed

when

the

typeouts

typeouts except

each

test

error

typeouts.

inhibited.

rung upon encountering an error.

Sw<09>

Lpon finding an error,

5.8

1is

SW<10>

The bell

that

1s put on.

5.3

5.7

printing
out
the
program operation.

SW<l14>

5.2

5.6

after
normal

the previous

SwW<05>

scope

the program will cycle from the point of

statement

(see

sec.

8.2).

error

SEQ 0006

THE PARITY OPTION TEST (TEST 6) SHOULD BE
FOR MACHINES WITHOUT PARITY MEMORY.

DESELECTED BY

SETTING SWITCH

SEQ 0007

I
Page 6

5.9

SW<0&

When set

this

switch enables

the

test

the power down

sequence

and

the test that DCLO clears BECC, BEBA, BECRZ2 and BECR1 registers.
switch should not be set when running under ACT11 since a
power

will

5.10

cause an error

statement

from ACT.

Sw<03>

Phen set

this switch

inhibits testing of

the

fourth UBE

The
fourth exercisor is defined as the exercisor
fourth lowest address of the four exercisors.
[f
four this switch has no effect on the progranm.

5.11

the

bus.

that responds to the
there are less
than

SwW<02>

When set
address.

this
If

the program.

5.12

This
down

switch inhibits
there are less

test of that UBE
than three, this

switch

test of

with the
third
lowest
switch has no effect on

SW<01>

Mhen set
address.

this
|f

there

inhibits

are

less

than

two,

that UBE with
this

switch

the second

lowest

has no effect on

the

lorogram.

5.13

Sw<00>

Mhen set this switch inhibits testing the lowest address exercisor
on
the buss.
[If there is one exercisor, this switch should not be set.

6.0

Program Description

pon start of the program, a map, called EMAP, of all
the
exercisors
resent is typed out 1n octal.
Each bit set in the map corresponds to
a UBE present.
The least sigrnificant bit
represents
the
UBE
whose

EBD
address is 770000.
address is 770020 and so

The second bit represents the UBE whose BEBD
on.A
maximum
of
&
consecutive
UBEs
are

allowed
up
to
the
maximum address of 770076.
first UBE to be examined are then calculated and
The program then checks

if more exercisors are

aximum
of four.
When these are done and if
BE, the last test is executed.
This
tests

The addresses of the
tests 1-37 are run.

to be

tested

there were more than one
the
passing
of
grants

SEQ 0008

Page

between the exercisors.

7.0

Error Reporting

[Error

calls

are

made

via

the

EMT

instruction.

The

lower

byte

the

instruction
1is
encoded
to
1indicate
the error number.
For example
ERROR 1 would be (EMT+1) or 104001,
Once
an
error
instruction
1is
executed,
an
error handler routine will then process the error call.
The error message to be typed is determined from the item table at the
beginning
of
the
program.
Item 1 corresponds to error 1 and so on.
The item table contains a series of pointers
to
the
message
to
be
typed.

[Every time an error occurs, the PC of the error
call
is
typed
out.
This will tell the user the exact test where the error occurred.
Many
times other pertinent information is typed
out
as
the
contents
of
registers and bad addresses.
ALl messages refer to the UBE.
For example, the message ''DAT]
failed
to
set ready'' means that the UBE when it did a DAT] failed to set its
ready.

It should be pointed out when trouble shootin$ a failin?
board,
that
the
first
error
reported
should
be
the
first one
fixed.
This is
because the nature of the hardware and software can cause
additional,
false
or
misleading
error
messages
to appear after the first one.
Since the tests build on one another
and
involve
previously
tested
hardware,
it
will
aid
1in
the fault isolation to Look up the tests
previously

Imultiple

run

UBEs

are

know

which

being

hardware

tested.a

has

been

UBE can fail

tested.Also.when

in such a way as to

cause false error reports on a good board.This is especially true when
the
first
failing
UBE
reports
a
‘‘tatal
error''.Due to this,it is
suggested that the first failing board
reported
should
be
repaired
before proceeding to test the others.

I8.0

Handlers and Common Routines

*.1

Trap Handler

This

handler uses

the

trap

instruction.

The

(ower

byte

the

instruction
1i1s encoded differently for each of the different routines
that use it.,
When a call for a routine is executed a trap
occurs
to
the
handler located at $STRAP.
The handler then determines by looking
at the lower byte which address to go to for servicing the call.
The
following routines use this handler:

TYPE - this routine is used to type ASCIl messages.

SEQ 0009

K
1
Page 8

2.
3.

TYPOC,TYPOS,TYPON - these

routines

are

wused

binary number to a 6 digit octal number and
TYPDS - this routine converts
number and types it.

fl.?

Scope Handler

This

handler

is called via

the

'IOT'

trap.

binary

Wwhen

type

it.

number

'scope’

change

decimal

executed

an
'10T'
trap
occurs to the memory location '$SCOPE'.
Depending on
the switch settings, the handler then decides to Loop on test, loop on
error
etc.
The
instruction of the

action

F.S

scope
statement
follouing test is

(looping etc.)

for

the present

that
is
located
at
the
first
the one that enables the
desired

test.

Error Handler

This handler uses the 'EMT' trap.
The lower byte of
the
instruction
is encoded to indicate the error number.
For example ERROR 1 would be
(EMT+1) or 104001.
Once an error instruction is
executed
the
error
handler
determines
the
message
to
be typed.
An item table at the

beginning of the program contains pointers
for
each
message
to
be
typed.
Each
item
corresponds
to each error (Item 1 corresponds to
error 1).
The 'ERRTYP' routine then processes the table for the final
error

B.4

type

out.

Trap Catcher

This is a series of instructions
unexpected
traps and interrupts
of memory.

Each vector PC

address

1is

starting
in
location
0
to
detect
to the trap and interrupt vector area

loaded

with

the

address

the

location.
The
next location is loaded with a halt.
Thus an illegal
trap or interrupt will cause a halt at the trap PSW location plus 2.

[Once a halt occurs, by examining the contents of
to
by
the
stack,
the
value
of
the PC when
loccurred can be determined.

t.S

the
address
pointed
the trap or interrupt

Power Down and Up Routines

hen a power fail condition occurs, the contents
of
registers
RO-R7
are
saved
on
the stack.
When the power returns, the same registers
are restored.

SEQ 0010

Page 9

8.6

C(LRREG Routine

This subroutine will

clear all

the

registers and error

conditions

the uBE presently being tested.

8.7

RCATCH Routine

This routine restores the
presently being tested.

trap catcher

the vector area of

the

UBE

h.B CRDY Routine
This

routine checks

I8.9

DINT Routine

This

routine

for

the ready bit

to set

from

interrupts

from

being tested.
If ready fails to set
LSB of register R4 is set to a one.

is used

to disregard

in a

the

UBE

presently

time > 100 microseconds,

the UBE

under

the

test.

It
places
the address of the next location in the UBE'sS vector area.
The next location then contains an ‘RTI' instruction.

h.10 RVEC Routine
This subroutine restores the vector area 0-56
the trap catcher in the remaining locations.

I8.11
This

from the stack

and

puts

TERRPC Routine
routine

is used any

the error message,

time an error

AND THE

TEST NUMBER.

occurs.

types

out

the PC

SEQ@ 0011

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKUBB.P11
27~APR-78 15:02

30A(1052)

PAGE

L.TITLE

UNIBUS EXERCISOR MODULE DIAGNOSTIC

SEQ 0012

NS WA

s*COPYRIGHT (C) OCTY 29,1974
;*DIGITAL EQUIPMENT CORP.
:*MAYNARD, MASS. 01754
. %

:*PROGRAM BY WARREN SALTZ
. %

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(C
:*PACKAGE

(MAINDEC-11-DZQAC-C3),

JAN 19,

1977.

. %

000001

$TN=1
.SBTTL

OPERATIONAL SWITCH SETTINGS

ad md

. %

SWITCH

USE

. %

O=2NWSHTNOO—=2NWSWV

NOVNS NN 2OV

LI
27-APR-78
15:03

MACY11

. %

o
b e

. %

®e

. %

.S BTTL

001100

177774
177772
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007

ON ERROR

LOOP ON
INHIBIT
INHIBIT
INHIBIT
BELL ON
LOOP ON

TEST
ERROR TYPEOUTS
MOST TYPEOUTS EXCEPT ERROR
ITERATIONS
ERROR
ERROR

INHIBIT
INHIBIT
INHIBIT
INHIBIT

TEST
TEST
TEST
TETS

WHEN SET, INHIBIT
TEST POWER DOWN

BASIC DEFINITIONS

OF
OF
OF
OF

TEST 6

UBE
UBE
UBE
UBE

4
3
¢
1

*INITIAL ADDRESS OF THE STACK POINTER w2+ 1100 #«v

STACK=
.EQUIV
.EQUIV

000011
000012
000015
000200
177776

HALT

1100

EMT,ERROR
IO0T,SCOPE

:;BASIC DEFINITION OF
;:BASIC DEFINITION OF

;*MISCELLANEOUS DEFINITIONS

HT=

LF=
CR=
CRLF=
PS=

.EQUIV

12
15
200
177776
PS,PSW

;. CODE

FOR HORIZONTAL

ERROR CALL
SCOPE CALL

TAB

;.CODE FOR LINE FEED
;. CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN-LINE FEED
;;PROCESSOR STATUS WORD

STKLMT= 177774

;oSTACK LIMIT REGISTER

DDISP=

: :HARDWARE DISPLAY REGISTER

PIRQ=
DSWR=

177772
177570

177570

: ;PROGRAM INTERRUPT REQUEST REGISTER
; HARDWARE SWITCH REGISTER

: *GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=
R2=
R3=

10
1
12
13

R5=
R6=
R7=

X5
16
X7

Ré&=

: :GENERAL
: GENERAL
: ;GENERAL
: GENERAL

s sGENERAL REGISTER
s sGENERAL REGISTER
: cGENERAL REGISTER
:;GENERAL REGISTER

C(ZkuBB.?”11

DIAGNOSTIC

27-APR-78 15:02

N
1
MACY11 30A(1052)
27-APR-78
15:03
BASIC DEFINITIONS

57
58
59
60
61
6¢
63

300006
000007

SP=
PC=

000000
000040
000100

000200

67
68
69

000300
000340

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

70
4
72
73
74
75
76
77
78
79

80
81
82
83
84
85
86
87
88
89
90

000140

000240

100000
040000
020000
010000
004000
002000
001000
000400
000200

000100
000040
000020
000010
000004
000002
000001

91
92
93
94
95
96
97
98
99
100
01
102
103
104

100000
040000
020000
010000
004000
002000

109
110
1M1
112

000010
000094

105
106
107
108

001000
000400
000200
000100
000040
000020

4]
144

;*PRIORITY

0
40
100
140
200
240
300
340

PAGE 2

;:STACK POINTER

: ;PROGRAM COUNTER
LEVEL

DEFINITIONS

ssPRIORITY
;sPRIORITY
JsPRIORITY
;sPRIORITY
;sPRIORITY
;:sPRIORITY
;:PRIORITY
;sPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

s+ 'SWITCH REGISTER'® SWITCH DEFINITIONS
SW15=
100000
SWi4=
40000
sWwi3=
20000

swi2=
SWil=

SWw10=
Sw09=
SW08=
SW07=
Swo6=
SWw05=
SW04=

10000
4000
2000
1000
400
200
100
40
20

SWwoe=
SWo1=
sSwoo=
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV

&
2
1
SW09,SW9
SwW08,5w8
SWO07,Sw?7
SW06,SuWb
SWO0S,SWS
SW04,SWé
SWO03,swW3
SwW02,swe
SwW01,sw1
Sw00,swl

SW03=

;*DATA BIT DEFINITIONS (BITOO TO BIT1S)
8IT15=
100000
BIT14=
40000
8IT13=
20000
8IT112=
10000
8IT11=
4000
8I1T10= 2000
B817T09=
1000
817T08=
400
8IT07=
200
8IT06=
100
BITO0S=
40
8I104=
20
8I1103=
10
BI1102=
4

NO-WVSsWN—O

UNIBUS EXERCISOR MODULE

SEQ 0013

az=

—

‘13,‘-—“-E:“~’

UNIBUS EXERCISOR MODULE DIAGNOSTIC
~NOWN S W
NOWVNEWN =0V
NS WN SOV

cd ed e
b

D
D

2
1
BIT09,BITY
BIT08,BIT8

.EQUIV

BIT04,BIT4

.EQUIV
.EQUIV
.EQUIV

BIT0Z2,BIT2
BITO01,BIT1
BITO00,BITO

b b

o
b
b

81701=
BIT00=
.EQUIV
.EQUIvV

BASIC DEFINITIONS

NI NN

b
b
b
b
D
d e
d
b

ONO

b ced

b
b

NN N WNAWNW

—

PV N NI NI TN

001100
001106
001114
001120
001122
001126

000052

15:03

PAGE

B8IT03,BIT3

;. TIME OUT AND OTHER ERRORS
;oRESERVED AND ILLEGAL INSTRUCTIONS

IOTVEC= 20

JINPUT/0UTPUT TRAP

5T BIY
;s TRACE TRAP
:;BREAKPOINT

PWRVEC= 24

;:POWER FAIL

TRAPVE(C=34

::"TRAP'" TRAP

TRAP

(BP.)

(10T)

s sEMULATOR TRAP (EMT)

TKVEC=
60
TPVEC=
64
PIRQVEC=240

#«SCOPEx+

«+ERRORwt

;:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
;PROGRAM INTERRUPT REQUEST

08=170000
.SBTTL
TRAP CATCHER

VECTOR

sDATA BUFFER OF LOWEST ADDRESS UBE

.=0
s*ALL UNUSED LOCATIONS FROM &4 - 776 CONTAIN A "' 42 HALT'
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

:'LOCAT10N194C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

002632

000137
002632
001014
015166
002632

000200
000202

DISPREG: .WORD
SWREG:
.SBTTL

.WORD
0
;;SOFTWARE SWITCH REGISTER
STARTING ADDRESS(ES)
JH?100
@#START ;;JUMP TO STARTING ADDRESS OF PROGRAM

RSTART:

MOV
MoV

#000137,3#200
#START ,a#202

;:SOFTWARE DISPLAY REGISTER

CMP R6,#1014

.SBTTL
AARA

BHI B
JSR PC,RVEC
JMP
8#START

ACT11 HOOKS
AR

;HOOKS REQUIRED BY ACT11

;RESTART

HERE

HALTED

:WAS VECTOR AREA DESTROYED

;BRANCH IF NO
:RESTORE VECTOR AREA
;GO TO BEGINNING OF PROGRAM

INTERRUPT

IN INT.

TEST

TEST?

Rl 22222
2N

sszgc=.

;SAVE

isngo

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP

"WORD

.=$SVPC

;32)SET LOC.52 TO ZERO
..

A——

SEQ 0014

ERRVEC= 4
RESVEC= 10

000046

—g

BITO07,BIT7
BIT06,BIT6
BITGS,BITS

EMTVEC= 30

000174
000000
000000

001132
000046
016134
000052
000000
001132

27-APR-78

TBITVEC=14
TRTVEC= 14
BPTVEC= 14

000000

000137
001100
012737
012737
020627
101002
004767
000137

sarpenemanaeIVN

; *BASIC 'CPU'" TRAP VECTOR ADDRESSES

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240
170000

000200

30A(1052)

.EQUIvV

000174
000176

s et

MACY11

.EQUIV
.EQUIV
.EQUIvV

27-APR-78 15:02
006002
000001

b =D

(ZxkuBB.P1

———

RESTORE PC

UNIBUS E¥$R(1$OR MODULE DIAGNOSTIC
CZKUBB.f

27-APR-78

15:02

MACY11 30A(1052)
COMMON

27-APR-78

TAGS

15:03

PAGE 4

SEQ 0015

;23

.SBTTL

170

;;ttttttttt"'tttt!ttttt't't"tttt"'t't'tttttfi'tttttt't't'tttttt

;*THIS

};g
174
175
176
177
178
179
180
181
182
183
186
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199

200
201

202

203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221

COMMON TAGS
TABLE

CONTAINS VARIOUS COMMON STORAGE

:*USED IN THE PROGRAM.
001132
001132
001134
001135
001136
001140
001142
001144
001146
001147
001150
001152
001154
001156
001160
001162
001164
001166
001167
001170
001172
001174
001176
001200
001202

001204
001206

001207

001132

$CMTAG:
$PASS:
STSTNM:
SERFLG:
$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000000
000
000
000000
000000
000000
000000
000
00
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564

=113

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
SAUTOB: .BYTE
$INTAG: .BYTE
LWORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564

177566
000

00?2

177566
.BYTE

0
12
0
0

$FILLS: .BYTE

012
000
000000

$FILLC:
$TPFLG:
SREGAD:

.BYTE
.BYTE
.WORD

001214
001216
001220
001222
001224
001226
001230
001232
001234
001236
001240
001244
001245
001246

000000
000000
000000
000000
000000
000000
000000
000000

$REGO:
$REG1:
$SREGZ2:
$REG3:
$TMP(O:
$TMP1:
$STMP2:
$TMP3:

.WORD
.WORD
.WORD
.WORD
.WORD
_.WORD
_WORD
_WORD

000377

STIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
LASCII
$LF:
ASCIZ

;:START OF COMMON TAGS
:;CONTAINS PASS COUNT
;;CONTAINS THE TEST NUMBER
;s CONTAINS ERROR FLAG
;;CONTAINS SUBTEST ITERATION COUNT
;;CONTAINS SCOPE LOOP ADDRESS
;. CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;;CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF 'GOOD®' DATA
;s CONTAINS ADDRESS OF °'BAD' DATA
;;CONTAINS 'GOOD' DATA
:;CONTAINS "BAD' DATA
; ;RESERVED--NOT TO BE USED
;:AUTOMATIC MODE
;; INTERRUPT MODE

;;ADDRESS OF
; ;ADDRESS OF

INDICATOR
INDICATOR

SWITCH REGISTER

DISPLAY REGISTER

;;TTY KBD STATUS
;;TTY KBD BUFFER
;;TTY PRINTER STATUS REG.

$TPB:
$NULL:

001210
001211
001212

000000
000000
177607
077
015
000012

O
0
0
O
O
O
O
0
1
O
O
O
O
O
0
O
0
0
0
DSWR
DDISP

LOCATIONS

ADDRESS

;:TTY PRINTER BUFFER REG. ADDRESS
;;CONTAINS NULL CHARACTER FOR FILLS

;;CONTAINS # OF FILLER CHARACTERS REQUIRED

;s INSERT FILL CHARS. AFTER A ''LINE FEED"
;s ""TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;CONTAINS THE ADDRESS FRCM
;;WHICH
(SREGO) WAS OBTAINED
O
;;CONTAINS ((SREGAD)+0)
0
;;CONTAINS ((SREGAD)+?2)
0
;. CONTAINS ((SREGAD)+4)
O
;. CONTAINS ((SREGAD)+6)
0
s :USER DEFINED
O
;sUSER DEFINED
0
;:USER DEFINED
0
;;USER DEFINED
::MAX. NUMBER OF ITERATIONS
; ;ESCAPE ON ERROR ADDRESS
<207><377><377> ::CODE FOR BELL
77/
:;QUESTION MARK
<15
: ;CARRIAGE RETURN
2>
;:LINE FEED

;;tt'ttttttttttt'ttttt'ttt't'itt'tttttt"'ttttttt"’t'tt'tttt'ttt

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZxkuBB P11
27-APR-78 15:02

0D
2
MACY11 30A(1052)
27-APR-78
15:03
ERROR POINTER TABLE

222

.S8TTL

225
226
227
228
229
230
23
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254

;*THE

223
224

255
256
257
258

259
260
261
262
263
264

265

266

267
268
269

270
27
272
273

274
275
276
277

PAGE

ERROR POINTER TABLE

:*THIS TABLE CONTAINS THE
INFORMATION

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE

J*NOTE1:
»
»
%

s
8,
®s

EM
DH
DF

$ERRTB:

001250
001252
001254
001256

020676
000000
000000
000000

001260
001262
001264
001266

020750
021020
021046
000000

001270
001272
001274
001276

021054
021121
021130

000000

001300
001302
001304
001306

021134
021202
021242
000000

001310
001312
001314
001316

021252
021202
021242
000000

001320
001322
001324
001326

021320
021202
021242
000000

001330
001332
001334
001336

021370
021432
021510
000000

001340
001342
001344
001346

021516
000000
000000
000000

JITEMT

;ITEM?

EM1

EM2
DH2

D12

;ITEM3Z

CITEM 4

JITEM S

EM3
DH3
DT3
EM4
DH4
DT4

EMS
DH4
DT4

;ITEM 6

JITEM 7

;ITEM 8

JITEM 9

IS PERTINENT.

IF SITEMB IS O THE ONLY PERTINENT DATA [S (SERRPC).
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

;*NOTEZ:

001250

SEQ 0016

EM6
DH4
DT4

EM?7
DH7
D17
EM8

;:POINTS

TO THE

ERROR MESSAGE

;;POINTS TO THE DATA HEADER
::POINTS TO THE DATA
;;POINTS TO THE DATA FORMAT

—

NN
D00 ~NON NS

—d

—l
——d

—d
)
b
—

N AN

N AN AN

001450
001452
001454
001456

022250
022307
021046
000000

001460
001462
001464
001466

022334
022423
021130
000000

001470
001472
001474
001476

022436
022517
021130
000000

001500

022540

OOoOO
JITEM

JITEM

—_

-—

Bad

022155
000000
000000
000000

001440
001442
001444
001446

021130
000000

JITEM

p—y

022047
022133

p—y

001430
001432
001434
001436

000000

oOOoOOmMm
=
OoOOoOm
=
OOO';
OOOO
OoOOooOoOm
=

022016
000000

JITEM

001420
001422
001424
001426

JITEM

000000
000000
000000
000000

—

001410
001412
001414
001416

JITEM

—-—

021751
00000G
000000
000000

—

001400
001402
001404
001406

JITEM

021705
000000
000000
000000

001370
001372
001374
001376

JITEM

—

021644
000000
000000
000000

(V]

001360
001362
001364
001366

EM9

&»H

021603
000000
000000
000000

—

001350
001352
001354
001356

—

278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307

E
2
MACY11 30A(1052)
15:03
27-APR-78
ERROR POINTER TABLE

\V,]

UNIBUS EXERCISOR MODULE DIAGNOSTIC
C(ZxuBB.P11
27-APR-78 15:02

PAGE 6

SEQ 0017

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBsB P
27-APR-78 15:02

000090

000000
000000

022607
000000

001610
001612
001614
001616

023302
000000
000000
000000

001620
001622
001624
001626

023331

001630
001632

JITEM 28

JITEM

000000

000000
000000

023361
000000

023253
000000
000000
000000

001600
001602
001604
001606

JITEM

023213
023023
023100
000000

001570
001572
001574
001576

JITEM

023152
023023
023100
000000

023100
000000

001560
001562
001564
001566

001554
001556

—

023112
023023

JITEM

001550
001552

JITEM

022754
023023
023100
000000

OO O =

001540
001542
001544
001546

JITEM

OOO;

022710
000000
000000
000000

ocoooOoOm
=

001530
001532
001534
201536

JITEM

oOm
=

022645
000000
000000
000000

n
O

001520
001522
001524
001526

000000
000000

001510
001512
001514
001516

—

385
386
387
388
389

001502
001504
001506

334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
3N
372
373
374
375
376
377
378
379
380
381
382
383
384

F
2
MACY11 30A(1052)
27-APR-78
15:03
ERROR POINTER TABLE

PAGE 7

SEQ 0018

024115
000000
000000
000000

001740
001742
001744
001746

024173
000000
000000
000000

438

001750
001752
001754
001756

024251
000000
000000
000000

001760
001762
001764

024313

433
434
435
436
437

439
440
441
442
443
444
445

000000
000000

JITEM

DT2
0

JITEM

001730
001732
001734
001736

427

EM38
DH35

(V.]

428
429
430
431
432

JITEM 38

024025
023661
021046
000000

EM37
DH35
D12
0

001720
001722
001724
001726

JITEM 37

—

023766
023661
021046
000000

EM36
DH36
DT3
0

001710
001712
001714
001716

JITEM 36

023707
023756
021130
000000

001700
001702
001704
001706

EM3S
DH35
DT2
0

023604
023661
021046
000000

JITEM 35

OO m
=

001670
001672
001674
001676

EM34
DH34
DT3

OoOooOm
=

000000

JITEM 34

OOoOOMm
=

023515
023565
021130

EM33
DH24
DT24

OoOOmMm
=

001660
001662
001664
001666

400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426

JITEM 33

[V,]

023460
023023
023100
000000

EM32
DH24
DT24
0

001650
001652
001654
001656

000000

JITEM 32

023411
023023
023100

—

001640
001642
001644
001646

0
0

000000
000000

001634
001636

390
391
392
393
394
395
396
397
398
399

MACY11 30A(1052)
27-APR-78
ERROR POINTER TABLE

[a¥]

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZkuBB P11
27-APR-78 15:02

15:03

PAGE

SEa 0019

002020

024560

464
665
229

002022
002024

024630
021242

468
469
470
2;;

002030
002032
002034
002036

024666
024436
021046
000000

473
476
475
2;9

002040
002042
002044
002046

024666
000000
000000
000000

478
479
480

002050
002052
002054

024744
000000
000000

483
484
485
22?

002060
002062
002064
002066

024744
024436
021046
000000

488
489
490
491
492

002070
002072
002074
002076

025023
000000
000000
000000

493
494
495
zgg

002100
002102
002104
002106

025054
000000
000000
000000

498
499

002110
002112

025107
000000

22;

500
501

002026

002056

002114
002116

000000

000000
000000

JITEM

;ITEM

JITEM

—

463

J1TEM

024533
000000
000000
000000

002010
002012
002014
002016

A\¥,)

458
459
460
22;

JITEM

024467
000000
000000
000000

DT2

(W]

002000
002002
002004
002006

EM43
DH43

453
454
455
22?

000000

OO0 =

001776

024352
024436
021046

JITEM

22;

001770
001772
001774

448
449
450

CITEM 43

JITEM

OOOmMm
=
OOO';'

000000

(¥4)

001766

(V]

44?

H
2
MACY11 30A(1052)
27-APR-78
15:03
ERROR POINTER TABLE

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxUBB.P11
27-APR-78 15:02

PAGE

SEQ 0020

JITEM

000000
000000
000000

JITEM

025757

;ITEM

000000

002240
002242
002244
002246

JITEM

025727
022133
021130

002230
002232
002234
002236

JITEM

025677
000000
000000
000000

002220
002222
002224
002226

oQOoOOm
=

025650
000000
000000
000000

002210
002212
002214
002216

025622
000000
000000
000000

002200
002202
002204
002206

—

000000
000000
000000

025554

ooom
=

002170
002172
002174
002176

JITEM

oOOoOOm
=

025533
022133
021130
000000

ooOoOm
=

002160
002162
002164
002166

;ITEM

025503
000000
000000
000000

002150
002152
002154
002156

025424

000000
000000
000000

JITEM

002140
002142
002144
002146

;ITEM

024352
000000
000000
000000

(¥,)

002130
002132
002134
002136

JITEM 54

025161
000000
000000
000000

[ -]

002120
002122
002124
002126

502
503
504

l
2
MACY11 30A(1052)
27-APR-78
15:03
ERROR POINTER TABLE

OO0

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZxuBs P
27-APR-78 15:02

PAGE

SEQ 0021

026543

—

002400

026523
000000
000000
000000

~
[p¥]

002370
002372
002374
002376

026501
000000
000000
000000

JITEM

002360
002362
002364
002366

JITEM

~
Po

026434
000000
000000
000000

002350
002352
002354
002356

JITEM

026404
000000
000000
000000

002340
002342
002344
002346

JITEM

026356
000000
000000
000000

OOO m
=

002330
002332
002334
002336

JITEM

OoOooOoOm
=

026275
000000
000000
000000

OO0OOmMm
=

002320
002322
002324
002326

;ITEM

OOCOMm
=

026244
000000
000000
000000

OOOM
=

002310
002312
002314
002316

JITEM

000000
026135
021130
000000

~
~n

002300
002302
002304
002306

~
w

026202
026135
021130
000000

JITEM

002270
002272
002274
002276

EM66

Eo)

026154
006000
000000
000000

JITEM 66

002260
002262
002264
002266

EM6S
DH6S
0713

\¥,]

026055
026135
021130
000000

002250
002252
002254
002256

558
559
560
561
562
563
564
565
566
567
568
569
570
5N
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
59N
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613

J
2
MACY11 30A(1052)
27-APR-78
15:03
ERROR POINTER TABLE

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZxuss P11
27-APR-78 15:02

PAGE 11

SEQ 0022

644
645
646

647
648
649
650
651
652
653
654
655
656

657
658
659
660
661
662
663
664
665
666

667
668
669

002402
002404
002406

000000
000000
000000

002410
002412
002414
002416

026570
000000
000000
000000

002420
002422
002424
002426

026616
021202
021242
000000

002430
002432
002434
002436

000000
000300
000000
000000

002440
002442
002444
002446

026656
000000
000000
000000

002450
002452

002456

026720
024630
021242
000000

002460
002462
002464
002466

026744
000000
000000
000000

002470
002472
002474
002476

027011
000000
000000
000000

002500
002502
002504
002506
002510

027072
000000

002454

002512
002514
002516
002520
002522
002524
002526
002530
002532
002534
002536
002540

:ITEM 78

ITEM 79

;ITEM 80

JITEM 81

;ITEM 82

;I1TEM 83

;ITEM 84

00C000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
170014
000000
000000

PAGE 12

JITEM 77

EMAP:
TMAP:
SPTR:
BEBD:
BECC:
BEBA:

BECR1:
BECRZ:
:
BERE
INTVEC:
BEGO:

BE1BD:
BE1CC:

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

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

OO—-OO0O0O0O0OOOOOO

614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643

K
¢
MACY11 30A(1052)
27-APR-78
15:03
ERROR POINTER TABLE

OO O

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxuss PN
27-APR-78 15:02

70014

:MAP OF UBE PRESENT
. TEMPORARY MAP
JSWITCH POINTER
;BEBD ADDRESS OF UBE UNDER TEST
;BECC ADDRESS OF UBE UNDER TEST
;BEBA ADDRESS OF UBE UNDER TEST

:BECRY ADDRESS OF UBE UNDER TEST
;BECR2 ADDRESS OF UBE UNDER TEST
;CLEAR ERROR ADDRESS OF UBE UNDER TEST
; INTERRUPT VECTOR ADDRESS OF UBE UNDER TEST
:GO ADDRESS
+BEBD ADDRESS OF FIRST UBE TESTED
;BECC ADDRESS OF FIRST UBE TESTED

SEQ 0023

670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691

692
693
694
695
696

697

698
699
700
701
702
703
704

705
706
707
708
709
710
(4}
712
713
714
715
716
77
718
719
720
71

002542
002544
002546
002550
002552
002554
002556
002560
002562
002564
002566
002570
002572
002574
002576
002600
002602
002604
002606
002610
002612
002614
002616
002620
002622
002624
002626
002630

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
0000u0
000000
000000
000000
000000
000000
000000
000000

MACY11

30A(1052)

BE1BA:
BE1CRY:
BE1CR2:
BE1RE:
BE1VEC:
BEZBD:
BE2CC:
BEZBA:
BE2CR1:
BE2CR2:
BEZRE:
BE2VEC:
BE3BD:
BE3CC:
BE3BA:
BE3CR1:
BE3CR?2:
BE3RE:
BE3VEC:

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

L
2
27-APR-78
15:03

ERROR POINTER TABLE

BE4BD:
BE4CC:
BE4BA:
BE4CR1:
BE4CRZ:
BE4RE:
BE4LVEC:
UCNT:
NO:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
AR R

OCOO0OO0OOO0OO0O0OOOOOOOCOOOOO0O0OOOOO0OO

UNIBUS EXERCISOR MODULE DIAGNOSTIC
czZxuss P11
27-APR-78 15:02

RN RN RN R AR A RN E

AR R AN

PAGE 13

SEQ 0024

;BEBA ADDRESS OF FIRST UBE TESTED
;BECR1 ADDRESS OF FIRST UBE TESTED
;BECR2 ADDRESS OF FIRST UBE TESTED
;CLEAR ERROR ADDRESS OF FIRST UBE TESTED
;INTERRUPT VECTOR ADDRESS OF FIRST UBE TESTED
;BEBD ADDRESS OF SECOND UBE TESTED
;BECC ADDRESS OF SECOND UBE TESTED
;BEBA ADDRESS OF SECOND UBE TESTED
;BECR1 ADDRESS OF SECOND URE TESTED
;BECR2 ADDRESS OF SECOND JRE TESTED
;CLEAR ERROR ADDRESS OF SECOND UBE TESTED
;INTERRUPT VECTOR ADDRESS OF SECOND UBE TESTED
;BEBD ADDRESS OF THIRD UBE TESTED
sBECC ADDRESS OF THIRD UBE TESTED
;BEBA ADDRESS OF THIRD UBE TESTED
;BECRT ADDRESS OF THIRD UBE TESTED
;BECR2 ADDRESS OF THIRD UBE TESTED
;CLEAR ERROR ADDRESS OF THIRD UBE TESTED
s INTERRUPT VECTOR ADDRESS OF THIRD UBE TESTED
;BEBD ADDRESS OF FOURTH UBE TESTED
sBECC ADDRESS OF FOURTH UBE TESTED
;BEBA ADDRESS OF FOURTH UBE TESTED
;BECR1 ADDRESS OF FOURTH UBE TESTED
:BECR2 ADDRESS OF FOURTH UBE TESTED
:CLEAR ERROR ADDRESS OF FOURTH UBE TESTED
: INTERRUPT VECTOR ADDRESS OF FOURTH UBE TESTED
;COUNT OF UBE TESTED
; INDEX NUMBER FOR ADDRESS OF 1,2,3,4 UBE
AR EAEENRRNRARANRNAANOA
RN ERNRERS

cotttttttRRREOENCRACARARRORACRORRRGOCORCRARCRRRRRAARNRARNNANRARANRARSREES

002632

START:
.SBTTL

002632
002636
002640
002644
002646

012706
005026
022706
001374
012706

002652
002660
002666
002674
002702
002710
002716
002724
002732
002740
002744
002750
002756
002764

012737
012737
012737
012737
012737
012737
012737
012737
016767
005067
005067
112767

012767
012767

016470
000340
016720
000340
020114
000340
020164
000340C
013144
176270
176266
000001
002756
002764

002772

013746

000004

INITIALIZE THE COMMON TAGS

;:CLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
#S$CMTAG,R6
;sFIRST LOCATION TO BE CLEARED
(R6) ¢+
;s CLEAR MEMORY LOCATION
CLR

001132
001172

CmP
BNE

001100
000020
000022
000030
000032
000034
000036
000024
000026

013134

#SWR,R6 ;:DONE?

.~6

+:LOOP BACK IF NO

mov

#STACK,SP

Mov
Mov
mov
MOV
Mov
MOV
MoV
MoV
MoV
CLR

#$SCOPE,@#I0TVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,3#10TVEC+2 ;;LEVEL 7
#SERROR,AFEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340 ,3#ENTVEC+2 . ;LEVEL 7
#STRAP,3FTRAPVEC ;.TRAP VECTOR FOR TRAP CALLS
#340,3#TRAPVEC+2;
LEVEL 7
#$PURDN ,@#PWRVEC ;;POWER FAILURE VECTOR
#340,3#PURVEC+2 ;;LEVEL 7

MOvB
Mov
Mov

#1,SERMAX
#.,SLPADR
#.,SLPERR

Mov

S@FERRVEC,-(SP)

s INITIALIZE A FEW VECTORS

CLR

SENDCT,SEOPCT
$TIMES
SESCAPE

;s SETUP THE

STACK POINTER

;;SETUP END~OF -PROGRAM COUNTER
¢ INITIALIZE NUMBER OF ITERATIONS
;s CLEAR THE ESCAPE ON ERROR ADDRESS
¢;ALLOW ONE ERROR PER TEST
;o INITIALIZE THE LOOP ADDRESS FOR
::SETUP THE ERROR LOOP ADDRESS

s.SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;:EQUAL TO A "=1'', SETUP FOR A SOFTWARE SWITCH REGISTER.
;;SAVE ERROR VECTOR

SCOPE

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKUBB.P11
27-APR-78 15:02
726
727
728
729
730
731
732
733
734
735
736
;gg

002776
003004
003012
003020
003026

012737
012767
012767
022777

003030
003032
003036
003040
003046
003054

000403
012716
000002
012767
012767
012637

000176
000174
000004

176724
176120

739

003060

032777

010000

176104

740
741
7642
743
744
745
746
747
748
749
750
751
752

753
754

003066
003070
003074
003100
003104
003110
003116
003124
003132
003140
003144
003150
003152

003156
003162

001012

001004
104401
104401
005067
012706
012767
012767
012737
012737
012701
012700
005711
050067

062701
006100

755
756
757
758
759
760
761
762
763
764

003164
003170
003172
003200
003204
003212
003214
003220
003224
003226

020027
001367
012737
005037
032777
001007
1064401
016746
104402
104401

767
768
769
770
771
772
773
774
775
776
777
778
779
780
781

003234
003236
003242
003244
003252
003254
003256
003262

022626
020027
001345
026727
001347
104001
004767
000167

003266
003274
003302
003310

012767
012767
012767
012767

;gg

003232

000415

003032
177570
177570
177777

000004
176160
176154
176144

003040

027665
027370
177404
001100
000001
002632
003234
000340
170000
000001

N2
MACY11 30A(1052)
27-APR-78
15:03
INITIALIZE THE COMMON TAGS

MoV
MoV
MoV
CMP

BNE
648 :

177376
176016
000004
000006

177332

000020

658:
668:

175760

020342
177264
001245

1$:
MTRAP:

000010
177240

000000

013146
012560

167760
167762
167764
167766

177222
177216
177212
177206

ADD #20,R1
ROL RO

CMP RO,#20
BNE LOOP1
MOV #6, 344
CLR a#é
BIT #SW12,3SWR
BNE 1%
TYPE ,MSG!1
MoV
EMAP,-(SP)
TYPOC
TYPE ,$CRLF

BR IADD

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

; ;BRANCH IF NO TIMEOUT TRAP OCCURRED

;:AND
THE HARDWARE SWR IS NOT = -1
;:BRANCH [F NO TIMEOUT
::SET UP FOR TRAP RETURN

#SWREG, SWR
;:POINT TO SOFTWARE SWR
#OISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;;RESTORE ERROR VECTOR

BNE START1
TYPE ,MSG16
TYPE ,MSG12
START1: CLR EMAP
MOV
#STACK, SP
MOV #1,SPTR
MOV #START,SLPERR
MOV #MTRAP ,a#é
MOV #340,8#6
MoV #DB,R1
Mov #1,RO
LOOP1:
TST (R1)
B1S RO,EMAP

LOOP2:

000004

65%
#65%, (SP)

BIT #SW12,3SWR

000020
000006
000006
010000

BR
MoV
RTI
MOV
MOV
Mov

#6463 ,QFERRVEC
#DSWR,SWR
#0DISP,DISPLAY
#-1,3SWR
66%

PAGE 14

sINHIBIT TYPEOQOUTS?

sBRANCH IF YES
;UBE MODULE TEST
;JUMPER W1 SHOULD BE IN TO PREVENT MULTIPLE SSYNS
sINIT. ERAP
sSETUP THE STACK POINTER
sINITIALIZE SWITCH POINTER TO LOOK AT FIRST SWITCH
sSET UP RETURN FOR ERROR1
;SET UP MAP TRAP
;SET PSW PRIORITY=?7
:DATA REG ADDR. OF FIRST REG
;LD PTER
;LOOK IF EXER. PRESENT,NO TRAPS
;YES,INDIC. EXER. PRESENT

;LOOK AT NEXT EXER. ADDR.
;UPDATE PTER

;AT LAST UBE?
;BRANCH IF NOT AT LAST POSSIBLE EXER.
;RESTORE TRAP CATCHER
:
;INHIBIT TYPEOUTS?
¢BRANCH IF YES
;TYPE MAP
;s SAVE EMAP FOR TYPEOUT
;.60 TYPE--OCTAL ASCIICALL DIGITS)
:

;60 CALC. ADDRESSES OF UBE

(MP
(SP)+,
(SP)+
;RESTORE THE STACK
CMP RO,#10
sAT END OF UBE ADDRESS SPACE?
BNE LOOP2
sNO LOOK AT NEXT EXER.
CMP EMAP,#0
;YES,IS MAP = 0?
BNE A
+NO,BRANCH TO A
ERROR
D1
;NO RESPONSE TO REG ADDRESSES OR NO DEVICE PRESENT
JSR PC,TERRPC
sTYPE PC OF ERROR MSG
JMP SEOP
;GO TO END OF TEST
//////////////////////////////////////////////////////////////////////
ROUTINE TO CALCULATE ADDRESSES OF UBE TESTED
SILIIIIIILIETTLITI
0T TTE 0TI 1 T0T17000100001000770001000110001100111
1ADD:
MOV #167760, BEBD
;INITIALIZE BEBD
MOV #167762. BECC
:INITIALIZE BECC
MOV #167764, BEBA
;INITIALIZE BEBA
MOV #167766, BECR1
s INITIALIZE BECR1

SEQ 0025

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZxuss.P11
27-APR-78 15:02

782
783
784
785
786
787
788
789
790
9N
792
793
794
795
796
797
798
799
800
801
802
803
804
805
@ 806
807
808
809
810
81
812

813
814
815

816

817
818
819
820
821
822
823
824
825
826

827

828
829

830
831
832
833
834
835
836
837

003316
003324
003332
003340
003346
003352
003354
003360
003362
003370
003376

003404
003412
003420
003426

003434
003442
003450
003452
003456
003464
003466
003472
003474
003500
003506
003510
003514
003522
003524
003530
003532
003536
003542
003546
003552
003554

012767
012767
012767
012767
012700
005020
020027
001374
012767
016767
062767
062767
062767
062767
062767
062767
062767
000241
006267
042767
103405
005767
001341
000167
032767
001402
000167
036777
001403
006367
000722
006367
005267
104401
016746
104402
104401

167776
167770
170014
000504
002536

MACY11

INITIALIZE

177202
177176
177174
177164

1%:

002630
002536
177114
000020
000020
000020
000020
000020
000020
000004

177240
177114
177112
177106
177102
177076
177072
177066
177062

177034
100000

177026

ACALC:

177020

010736
000020

177006

010722
176774

175450

176764

176756
177064

30A(1052)

027516
176744

27-APR-78

THE COMMON TAGS

#167776, BECR2
#167770, BERE
#170014, BEGO
2504,
INTVEC
#BE1BD,RO
CLR (RO)+
cmp RO,#NO
BNE 13

MoV
MOV
MOV
MOV
MOV

MOV
Mov
ADD
ADD
ADD
ADD
ADD
ADD
ADD
CcLe
ASR
BIC
BCS
TST

#BE18D,NO
EMAP ,TRAP
#20, BEBD
#20, BECC

#20, BEBA

#20, BECR]
#20, BECR?
#20, BERE
#4,
INTVEC
TMAP
#100000, TMAP
¢

TMAP
ACALC
BNE
JMP LAST
BIT #20,SPTR
BEQ 0

JMP LAST
SPTR,aSWR
BEQ 3
ASL SPTR
BR ACALC
ASL SPTR
INC UCNT
TYPE ,MSG13
Mov
BEBD,-(SP)
8IT

TYPOC
TYPE ,SCRLF
SHLHITTTITTT0 0000070000070

001245

15:03

PAGE

SEQ 0026

JINITIALIZE BECR2
s INITIALIZE BERE
SINITIALIZE BEGO
JINITIALIZE INTERRUPT VECTOR
:GET POINTER TO PERMANENT VECTOR AREA
;CLEAR PERMANENT VECTOR AREA
;ENTIRE AREA CLEARED?
:BRANCH IF NO
;INITIALIZE POINTER TO BE1BD

;MOVE MAP TO
;CALC. ADDR.
sCALC. ADDR.
sCALC. ADDR.
;CALC. ADDR.

WORK AREA
OF BEBD TESTING
OF BECC TESTING
OF BEBA TESTING

OF BECR1 TESTING
;CALC. ADDR. OF BECR2 TESTING

;CALC. ADDR. OF BERE TESTING
sCALC. ADDR. OF INTERRUPT VECTOR
sINIT. CARRY
;LOOK FOR BIT INDICATING EXERCISOR
sCLEAR MSB IF SET
s1F EXERCISOR PRESENT GO SEE IF TO BE TESTED
sANY EXERCISORS

LEFT?

;BRANCH IF MORE
:GO TO LAST TEST
;TESTED 4 UBE?
sBRANCH IF NO
;GO TO LAST TEST
s SHOULD THIS UBE BE TESTED?
;BRANCH IF YES
:ROTATE POINTER TO NEXT SWITCH
:LOOK FOR NEXT UBE
sROTATE POINTER TO NEXT SWITCH
;UPDATE COUNT OF UBE TESTED
;TESTING UBE WITH BEBD ADDRESS:
;. SAVE BEBD FOR TYPEOUT

::60 TYPE--OCTAL ASCIICALL DIGITS)
0 iiiniiiiiriniiyiiieeiineeiiyiieeeieeeieeey

ROUTINE TO STORE TEMPORARY ADDRESS OF UBE TESTING IN PERMANENT LOC

JIILLTTIITHITTT 00t ieirriiieririiigeiieeiyegiieeieeeiieeeeieeiey
MoV NO.R1
;GET POINTER TO BE1BD
MoV #BEBD RO
;GET POINTER FOR BEBD

003560
003564
003570
003572
003576
003600

016701
012700
012021
(20027
001374

062767

000016

177022

CMP ?O.IBEGO
BNE
ADD

003606
003614
003622
003626

012767
012767

003632
003632
175306

175324
175320

MOV #FIRST,SLPADR
mov #FIRST ,SLPERR

105067

000005

177044

002516

002534

Mov

(RO)+,(R1)¢

CLRB STSTNM

RESET

cotttttttet ettt

LeTEST 1

; SAVE ADDRESSES
;ALL SAVED?
;BRANCH [F NO
;UPDATE PTER TO NEXT UBE

;INIT.
sINIT.
SINIT.
SINIT.

SCOPE WHEN MORE THAN 1 UBE
SCOPE WHEN MORE THAN 1 UBE
TEST NUMSER
ALL UBE FOR LOOPS

e R Rt R RC RO REROCTOORERCEROCRRTOETROERRORRRERETROEORORCCERORCRROTOORNOTNTYS

TEST ALL UBE

REG CAN BE

CLEARED

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxuss PN
27-APR-78 15:02

838
839

842
843

844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893

30A(1052)

27-APR-78

15:03

TEST ALL UBE REG CAN BE

PAGE 16

SEQ 0027

CLEARED

:*RO CONTAINS ADDRESS OF REG UNDER TEST
*

:*1F THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED.

840

841

MACY11

AL ALAAAAAA

003630
003632
003636
003644
003652
003660
003666
003672
003676
003700
003704
003706
003710
003712
003716
003722
003724
003730
003732
003740
003742
003746
003752

003754
003756

003760
003766
003770
003774
004000
004004
004012
004014
004022
004026

000004
012706
012737
012737
012737
012777
005077
016700
005010
020067
001425
005710
001421
010067
011067
104002
020067
001006
032777
001402
104401

004767
000433
005720
000747
022777
001351
016700
005077
005077
032777
001337
012737
005037
000414

001100
000340
004030
000340
0000G0
176636
176620

175276
175274

020000

TO1L03:

176566

027560
012456

TO1LU6:

TO1L02:
000200

176532
176530
176522
157777

000006
000006
175160

004767

012366

004042
004050
004054

012737
005037

000006
000006
010352

176536

AR R

AL AR

ARl

SCOPE

TO1LO4:

JRESTORE

MOV #STRAP,ané

;SET UP NSSYN TRAP

MOV #340,3#PSW

;LOCK OUT

000004

TO1LOS:

MmOV RO,SREGO

;SAVE

:BRANCH [F YES

MOV (RO),SREGI
ERROR
D¢
CMP RO,BECRZ2
BNE TO1LJ6
BIT #20000,aBECR2
BEQ TO1LO06

* %

FAILING ADDRESS

:SAVE BAD DATA
;FATAL ERROR:REG FAILED TO CLEAR
;DID BECR2 FAIL?
:BRANCH IF NO
;WAS CCOVF =1?
;BRANCH IF NO

TYPE ,MSG14
JSR PC,TERRPC

;DISREGARD BJT 13=1 OF
;TYPE PC OF ERROR MSG

CMP #200,8BECR1

;ALL BITS

BR TO1LOS
TST (RO)+
BR TO1LOT

sRESTORE TRAP
; INC ADDRESS
;CONTINUE LOOP

IN BECR1

BECRZ2

O EXCEPT RDY?

BNE T01L03
MOV BECRZ,RO

sBRANCH TO ERROR IF NO
;INDICATE LOOKING AT BECR?

CLR @BECRZ
BIT #157777,8BECR2
BNE TO1L03

; CLEAR BECRZ2
;1S BECR2 =0 EXECPT CCOVF?
;NO, TYPE ADDRESS AND DATA ERROR

TST2

MOV

(SP),SREGO

ERROR

sRESTORE

CONDITIONS

TRAP CATCHER

sSAVE PC FROM STACK

sRESET ERROR

;.60 TO NEXT TEST

;FATAL ERROR:CPU DID NOT RECEIVE SSYN
;TYPE

MOV #6,344
CLR a#6
JMP NUBE1

SN R AR

;*TEST 2

INTERRUPTS

;1S REG CLEARED?

BEQ TO1LO?

JSR PC,TERRPC

000004

STACK

;SET PSW PRIORTY =7
.00 DATO TO CLEAR PB BIT IF SET
;CLEAR ERROR CONDITIONS
sSETUP TO LOOK AT FIRST REG.
;CLR UBE REG
;TESTING BECR1?
;BRANCH [F YES

MOV #6,a#4
CLR a#6

STRAP:

PC OF

+RESTORE

ERROR MSG

TRAP CATCHER

;TEST NEXT UBE
PR R AR

R RN

RN R AR AR AN

AR AR AN AN

RANRRRAARRNRNRERY

TEST BITS 1-6,8-14 OF BECRY AND BITS 0-3,14 OF BECR2 CHANGE

;*R2, R3 CONTAIN THE TRUE AND COMPLEMENT TEST DATA
;*R4 CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED
;*R5 CONTAINS THE MASKED CONTENTS Of THE REG BEING TESTED
;*$TMP1 CONTAINS THE MASK FOR THE REG
4

RsRl

#340,ax6
#0,3BECR?
@BERE
BEBD,RO
(RO)
RO,BECR1
TO1LO04
TST (RO)

CLR @BERE

176514

ARl

MOV #STACK,SP

MOV
MOV
CLR
MOV
T01L01: CLR
CMP
BEQ

176576

011667

000167

177776
000004
000006
176640

176620

004030
004034
004036

104003

TST1:

FIRST:

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZxuBs PN
27-APR-78 15:02

894
895
896

897
898
899

900
901
902
903
904
905
906
907
908
909
910
911
912

913

914
915
916

917

918
919

920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939

;*IF

946

947
948
949

THIS TEST FAILS,

PAGE 17
AND BITS 0-3,14 OF BECR2 CHANGE

ALL FOLLOWING TESTS FOR

THIS MODULE ARE ABORTED

MEAAASRSl
oAl Rttt lo ittt
i io it
20l

004060
004062
004066
004074
004100
004104
004110
004114
004122
004126
004130
004132
004134
004136
004140
004142
004144
004150
004154
004160
0046162
004166
004170
004176
004200
004204
0046210
004214
004216
004220
004222
004226
004230
004232
004234
004236
004242
004246
004252
004260
004264

000004
012706
012737
012702
012703
012704
005077
012767
016705
011400
010210
011001
005101
040105
020502
001424
011467
011067
010267
104006

021467
001006
032777
001402
104401

004767

000167
010302
010210
011001
016705
005101
040105
020502
001343
012702
012703
012704
012767
020067
001316

001100
000340
052652
025324
002524

176414
177777
175100

TST2:
177776

175104

175044
175042
175040
176340

020000

176330

027560
012220
010212

175000

04001°
000005
002526
157777
176242

SCOPE

MoV
MoV
MoV
MoV
mov

174746

#STACK,SP

#340,34PSW
#52652,R2
#25324 ,R3
#BECR1T,R4
CLR @BERE
mMov #177777,8THP1
T02L03: MoV $TMP1,RS
Mov (R4) ,RO
Mov R2, (RO)
Mov (RO) ,R1
COM R1
BIC R1,RS
cm> RS5,R2
BEW 102L01
T02L02: Mov (R&4) ,SREGO
Mov (RO),$REG
MoV R2,$REG2
ERROR
D6
CHP (R4) ,BECR?
BNE T02L04
8IT #20000,3BECR2
BEQ T02L04

T02L064:

TYPE

LMSG14

JSR PC,TERRPC
JMP NUBE
T02L01: Mov R3,R2
MoV R2,(RO)
Mov (RO) ,R1
Mov $TMP1,RS
COM R1
BIC R1,R5
CmHP R5,R2
BNE 102L02
Mov #40012,R2
MoV #5,R3
Mmov #BECRZ,R4
Mov #157777,8TMPY
CMP RO,BECR?
BNE T02L03
MR

J*TEST 3

940
941
942

943
944
945

¢
3
30A(1052)
15:03
27-APR-78
TEST BITS 1-6,8-14 OF BECR!

MACY11
T2

SRR

JRESTORE STACK
;LOCK QUT INTERRUPTS
;SETUP TEST DATA BECR!
;SETUP COMP. TEST DATA BECR1
;LOAD ADDRESS PTER. FOR BECR1
;CLEAR FRROR CONDITIONS
;LOAD MASK TO LOOK AT ALL BECR1
;LOAD RS WITH MASK
;GET ADDRESS OF BECR TESTING
;LOAD BECR WITH DATA
:GET CONTENTS QF BECR
;ONLY LOOK AT BITS
;SET IN MASK =RS
;DATA 0K?

:BRANCH IF YES
;SAVE BECR ADDRESS
;SAVE BECR BAD DATA

;SAVE GOOD DATA
JFATAL ERROR: CONTROL REG HELD WRONG DATA

;0ID BECR2 FAIL?
;BRANCH IF NO
;WAS CCOVF=1?
JBRANCH [F NO
;DISREGARD BIT 13=1 OF BE(CR?

;TYPE PC OF ERROR MSG
JTEST NEXT UBE

:XFER NEW TEST DATA
;LOAD BECR WITH COMP.DATA
JGET CONTENTS OF BECR

;LOAD RS WITH MASK
;ONLY LOOK AT BITS
;SET IN MASK =RS
;DATA 0K?
;BRANCH IF NO
sSETUP TEST DATA BECRZ
;SETUP COMP. TEST DATA BECRZ
;LOAD ADDRESS PTER. FOR BECR?
sHAVE MASK LOOK AT ALL BECRZ EXECPT CCOVF
JTESTED BECRZ2?
;NO,

BRANCH TO START

TEST OF

BECR?

Rd R332
222222 R ]

FLOAT A

'1'

THROUGH BEBD, BECC,

BEBA

| 4

:+*R0 CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED
;*R1 CONTAINS TEST DATA
*

;*IF
NP

004266
004270
004274
004302

000004
012706
012737
012700

001100
000340
002516

1ST3:
177776

THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED
AR

SCOPE

mov #STACK,SP
Mov #340,3#PSW
Mov #BEBD,RO

;RESTORE STACK
;LOCK OUT INTERRUPTS
;GET BEBD ADDRESS PTER.

2200

SEQ 0028

UNIBUS EXERCIS OR MODULE DIAGNOSTIC
Clkuss PN
27-APR-78 15:02

950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965

966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1009
1001
1002
1003
1004
1005

004306
004312
004314
004316
004320
004324
004330
004334
004336
004342
004346
004350
004352
004354
004356
004362

012701
010130
025001
001413
011067
010167
013067
104004

004767
000167
005701

30A(1052)
27-APR-78
15:03
PAGE 18
FLOAT A '1' THROUGH BEBD, BEC(, BEBA

TO3L04: MOV #1,R1
TO3L03: MOV R1,a(RO)+
CMP 8-(RO),R1

000001

012066
010060

176140

T03L02:

;BRANCH IF 0K

MOV (RO),SREGO
MOV R1,$REG?
MOV @(RO)+,SREG
ERROR
D4

sSAVE FAILING REG ADDRESS
s SAVE GOOD DATA
;SAVE BAD DATA
;FATAL ERROR:REG FAILED TO FLOAT A

BMI T03LO02
ASL R1
BR T03L03
CMP (RO)+,BEBA
BNE TO3L04

;BRANCH [F YES
;TEST NEXT BIT

JSR PC,TERRPC
JMP NUBE
TST R1

TO3LO01:

SEQ 0029

;SETUP TEST DATA REG
;PUT TEST DATA IN REG
;TEST REG

BEQ TO3LO1

174670
174670
174662

100402

006301
000756
022067
001351

MACY11
T3

R RN R

S*TEST 4

AR AR

;TYPE PC OF ERROR MSG
;TEST NEXT UBE
;TESTED ALL 16 BITS?

;CONTINUE LOOP

sTESTED LAST REG? ALSO UPDATE ADDR.
:BRANCH [F REGS NOTM TESTED
R

R AN

FLOAT A '0'

RPN AR

AN RN RN

ARARA

"1’

PTER.

THROUGH BEBD,BECC,BEBA

;*R0O CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED
;*R1 CONTAINS TEST DATA
M

;*]F
MR

004364
004366
004372
004400
004404
004410
004412
004414
004416
004422
004426
004432
004434
004440
004444
004446
004450
004452
004454
004460

000004
012706
012737
012700
012701
010130
025001
0014613
011067
010167
013067
104005

004767
000167
005701

001100
000340
002516
177776

TST4:

SCOPE
MOV #STACK,SP

177776

011770
007762

176042

;RESTORE

MOV #340,3#PSW
MOV #BEBD,RO
MOV #177776.R1
MOV R1,3(RO)¢+
CMPa-(RO) ,R1

TO4LO4:
T04LO3:

;SETUP TEST DATA REG
;PUT TEST DATA IN REG
:TEST REG
;BRANCH IF 0K

MoV (RO),$SREGO
MOV R1,$REGZ
MOV @(RO)+,SREGT

:SAVE FAILING REG ADDRESS
;SAVE GOOD DATA
s SAVE BAD DATA

JSR PC,TERRPC
JMP NUBE
TST R1

;TYPE PC OF ERROR MSG
;TEST NEXT UBE
;TESTED ALL 16 BITS?

ERROR

TO4LOT:

;FATAL ERROR: REG FAILED TO FLOAT A

;TEST NEXT BIT

CMP(RO)+,BEBA

;TESTED LAST REG?

BR T04LO3
BNE
S

s CONTINUE LOOP

T04LO4

R R R AR

;BRANCH IF REG NOT

AR RN RN N

TEST

RN AR AN RN RN

FOR DUAL ADDRESSING

ALSO UPDATE

TESTED

RA RN AR

ADDR.

RNARRY

IN REGS

:¥THIS

TEST

CLEARS

ALL

REGS

AND

THEN WRITES

INTO

THE

;*REG BEING TESTED.
ALL OTHER REGS ARE THEN CHECKED IF THEY WERE
;*SIMULTANEOUSLY WRITTEN.
THIS IS THEN REPEATED FOR ALL REGS.

:*R0 CONTAINS ADDRESS OF REG BEING WRITTEN
:*R1 CONTAINS ADDRESS OF REG BEING EXAMINED
:*R2 CONTAINS MASK OF BITS TO BE LOOKED AT
.

'0°'

:BRANCH IF YES

ROR R1

R R AT RN

JeTEST

BPL T04L02

TO4L02:

STACK

sLOCK OUT INTERRUPTS
;GET BEBD ADDRESS PTER.

BEQ T04LO1

174572
174572
174564

100002

006001
000756
022067
001351

THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED

AALAAARt
R RiRRRRRRRRRRRRRR AR

PTER.

UNIBUS EXERCISOR MODULE DIAGNOSTIC
czZxuss P11
27-APR-78 15:02
1006

MACY11
TS
;*1F

TEST

—

NI
N — b

—

wed

wmd

W=
O O 00 NO WV & (NN

OO0O0O0O0O OCOO0OOOO00O

1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061

000004
012706
012737
004767
016700
016701
012710
012702
030211
001422
020100
001420
020167
001411
010067
010167
104007
004767
000167
022777

001363

020167
001412
020167
001005
016701
012702
000741
005721
000737
004767
020067
001410
020067
001003
016700
000716
005720
000714

001100
000340
011466
176010
176004
000002
177777

TSTS:

TOSLO3:

175730
175720
175714
157777

JSR
JMP
CmMp
BNE
CMpP
BtQ
CMp
BNE

T05L07:

JSR
CMP
BEQ
CMP
BNE

RO,BECR?
TSTé
RO,BECR1
TO5L05

175656

J*TEST

;CLEAR ALL REG

:LOADED AND TESTED BECRZ?
s ;BRANCH IF YES TO NEXT TEST
sLOADED BECRT WITH DATA YET?
:BRANCH IF NO
;YES, NOW LOAD BECR?
s CONTINUE LOOKING
;UPDATE ADDRESS OF REG LOADED

TST(RQ)
¢

sTEST

ARl

TEST

YES

;LOOKED AT BECRZ?
:BRANCH IF YES
;PTER UP TO BECR1?
:NO, LOOK AT NEXT REG
;NOW LOOK AT BECRZ
;LOOK AT ALL BECR2 EXCEPT CCOVF
; CONTINUE LOOKING
;UPDATE PTER.
.LOOK AT NEXT REG.

BR TOS5L04
6

;ALL BITS IN BECR1 O EXCEPT RDY?

BR TOS5L04

ttiasslss)

;BRANCH IF NO

PC,CLRREG

AAAAE AR

;TEST NEXT UBE

Mov BECRZ,RO

TO5L05:

sFATAL ERROR: DUAL ADDRESSING ERROR
:TYPE PC OF ERROR MSG

BR T05L03

175662

;ERROR; SAVE REG ADDRESS LOADED
sSAVE REG ADDRESS EXAMINED

BR TOS5L03

T0S5L02:

THIS MODULE ARE ABORTED

R0ttt

sBRANCH

(R1)+

SEQ 0030

[N REG =0?
;1S DATA
;BRANCH IF DATA 0K(=0)
;LOOKING AT REG LOADED?
;BRANCH IF YES (DATA 0K)
;LOOKING AT BECR1?

PC,TERRPC
NUBE
#200,8BECR1

TST

;RESTORE STACK
;LOCK OUT INTERRUPTS
;CLEAR ALL REG
INITIALIZE TEST ADDRESS
;INITIALIZE PTER.
;LOAD TEST REG
JINITIALIZE MASK TO LOOK AT ALL BITS

T05L08
T05L01:
R1,BECR2
T05L02
R1,BECR1
T05L06
MoV BECRZ.R1
mov 2157777 ,R2
T05L06:

011340
175672

R2,(R1)
T05L01
R1,RO
TOS5LO01
R1,BECRT
TO5L07
Mov RO,$SREGO
MoV R1,$REG

ERROR

175734

RARAR

BIT
BEQ
CMP
BEQ
CMP
8EQ

T05L08:

PAGE

IN REGS

ALL FOLLOWING TESTS FOR

SRR

mov BEBD ,R1
MoV #2,(R0O)
MoV #n77777,R2

T05L064:

175766

011652
007644
000200

ADDRESSING

SCOPE
mov #STACK,SP
Mov #340,34PSW
JSR PC,CLRREG
Mov BEBD,RO

177776

174450
174446

FOR DUAL

THIS TEST FAILS,

MMAAAAARAS

004462
004464
004470
004476
004502
004506
004512
0046516
004522
004524
004526
004530
004532
004536
004540
004544
004550
004552
004556
004562
004570
004572
004576
004600
004604
004606
004612
004616
004620
004622
004624
004630
004634
004636
004642
004644
004650
004652
004654

3
E
15:03
27-APR-78

30A(1052)

THIS REG

R0t

BUS PARITY BIT

RRRRRRRRRRRRRRRE

]

s*THIS TEST

IS NOT RUN ON THOSE MACHINE
;tWITH NO PARITY TRAP (11/05, 11/20)
*

:*FOR OTHER MACHINES,

THIS

TEST

SHOULD BE

DESELECTED

THE

;*MEMORY PARITY OPTION IS NOT PRESENT OR NOT ENABLED, ELSE
;*AN ERROR WILL BE REPORTED ALTHOUGH HARDWARE IS FUNCTIONING

s *PROPERLY.

;*SW05=1
PR

004656

004660

000004
012706

001100

AL AR

TST6:

INHIBIT TEST 6 AND GO TO NEXT
AR

SCOPE

MOV #5TACK,SP

;RESTORE

STACK

TEST
R

RRREE

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKuBB. P11
27-APR-78 15:02

wad —

— d e d e —d
= OO (=Y =]
NOWVES
LW
—=O OV ~NOo

cmdd —
b
)

b
)

el
e
il

——d

—t

c=d

1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105

004664
004672

032777
001057

000040

174300

MACY11
Té

ROUTINE

004770
000340

000010
000012

004712
004720
004726
004734
004742
004746
004750
004754
004762
004766
004770
004776
005000
005006
005012
005020
005024

012737
012737
012737
012777
005777

000340
004754
000340
010000
175560

177776
000114
000116
175564

004767
012737
005037
000411
032777
001005
012767

011454
000116
000116

000114

PTRAP:

010000

174174

ITRAP:

000001
020611
000012
000012
000000

174226

012737
005037
012777

000010

BUS PARITY BIT

BIT
BNE

#SW05,
1S17

TO DETERMINE

PACE

SEQ 0031

rri i riigiirigiiiziieeieesiiiiiieeigseririiiy

aQSWR

JINHIBIT TEST 6?
;GO TO NEXT TEST

RUNNING UNDER 11/05 OR 11/20

IF 11/05 OR 11/20 BUSS PARITY TEST IS SKIPPED

//////////////////////////////////////////////////////////////////////

012737
012737
006700

104401

TEST

SIIIITIIIIIET I

004674
004702
004710

104010

F
3
27-APR-78
15:03

30A(1052)

MOV #]TRAP,a#10
Mov 0340.3'12
SXT RO

;SET UP TO GO TO NEXT

MOV #340,34PSW

;SET PSW PRIORITY=7

;IF

MOV #PTRAP,a#114

;SET UP PARITY

MOV #340,34116
MOV #10000,8BECR2
TST @BECRZ
ERROR
08

BR TO6LON
BIT #SW12,3SWR
BNE TO6LO1

'TEST 7
'THE

AND GO BIT

IMMEDIATE

TRAP

11/05 OR 11/20

TRAP

;RESTORE

TRAP CATCHER

JRESTORE

TRAP CATCHER

CPU TO TRAP

sRESTORE TRAP CATCHER
;00 DATO TO CLEAR PB BIT
AR

ARl

TEST GO WORKS,

READY

s*BUSS

INST

;00 1 ITERATION WHEN TEST NOT NOT RUN
;BUS PARITY NOT TESTED ON 11/05 OR 11/20 MACHINES
JRESTORE TRAP CATCHER

CLR a#12
MOv #0,3BECR2

AAARAAAA AR AR

ILLEGAL

:SKIP MSG
JINHIBIT TYPEOUTS?
;BRANCH IF YES

MOV #1,STIMES
TYPE ,MSGS
MOV #12,3#10

175474

;ENABLE PB PARITY
;START PARITY TRAP
sSETTING PB PARITY FAILED TO CAUSE
:TYPE PC OF ERROR MSG

JSR PC,TERRP(
MOV #116,3%#114
CLR 3?16

TO6LO1:

INST TRAPS HAVE

TEST

ARE

FUNCTION.

ittt

RDY SETS AND CLEARS,

AND

THE RELEASE BUS

IMMEDIATE WORKS

CHECKED USING A RELEASE

FALSE

INTERRUPT

ARE

CHECKED FOR

;'IF THE GO OR READY BITS FAIL, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED.
R

005032
005034
005040
005046
005052
005060
005064
005072
005100
005106
005110
005114
005116
005120

005124
005126
005132
005134
005142

000104
012706
012737
004767
012777
016700
012760
012777
032777
001035
005037
005000
005200
022700
001416
105777
100371
032777
001426

001100
000340
011116
005172
175446
000340
006003
000200

177776

000002

el AR
RREE

JRESTORE

JSR PC,CLRREG
MOV #FINTT,@INTVEC
MOV INTVEC,RO

;CLR ALL REG
;SET UP FOR FALSE INTERRUPT
;GET INTERRUPT VECTOR

sLOCK OUT

STACK

INTERRUPTS

;SET PSW PRIORITY=7

;SET GO BIT AND DO RELEASE BUSS

81T #200,8BECR1
BNE T07L08

.LOOK AT RDY BIT
sBRANCH [F NOT CLEARED

CHMP #11,R0
BEQ TO7L04

sBRANCH [F RDY WAS NOT SET

CLR 3#PSW
CLR RO
INC RO

TST8 @BECRI

175362

ARl

MOV #6003,8BECR1

TO7L07:
T07L03:

175372

SR AR

MOV #340,2(RO)

175424
175416

000011

SCOPE
MOV #STACK,SP

MOV #340,34PSW

175452

177776

000001

AAAAAA

TST7:

BPL T07L03
BIT #1,8BECR1
BEQ TO7L0S

IMMEDIATE

"ALLOW INTERRUPTS
INITIALIZE A COUNT TO WAIT FOR RDY=1
:UPDATE COUNT AND LOOP
;TILL COUNT=10 OR RDY=1
SREADY

SET?

;CONTINUE TO LOOK FOR RDY
;SEE IF GO BIT CLEARED
;PROCEED TO NEXT TEST IF YES

WITH BR4=1

UNIBUS EXERCISOR MODULE

004767
000167
104014
004767
000407

126
127

005172
005174

005200

104123
004767
000745

130
131
132
133
lgg

005202
005204
005210
005214
005220

104020
004767
004767
000167
004767

}gg

27-APR-78

FINT1:

011230

TO7L08:

011220
011006
007206
010776

PAGE

TO7L06:
T07L0S:

IMMEDIATE WORKS

JSR PC,RCATCH
ERROR
D11

:RESTORE TRAP CATCHER
;FATAL ERROR: GO BIT FAILED

ERROR
D083
JSR PC,TERRP(

;ERROR: FALSE INTERRUPT WHEN DO RELEASE BUSS
:TYPE PC OF ERROR MSG

JSR PC,TERRP(
JMP NUBE
TO7L04: ERROR
D12
JSR PC,TERRP(
BR TO7L06

011240

15:03

TEST GO WORKS, RDY SETS AND CLEARS, AND THE RELEASE BUS

TO CLEAR

IF RDY=1

IMMED.

BR TO7L07

:NOW CHECK

AND GO BIT=0

ERROR
D16
JSR PC,TERRP(
JSR PC,RCATCH
JMP NUBE
JSR PC.RCATCH

;FATAL ERROR: RDY BIT FAILED TO CLEAR OR GO DID NOT
:TYPE PC OF ERROR MSG
:RESTORE TRAP CATCHER
:TEST NEXT UBE
:RESTORE TRAP CATCHER

S+TEST 10

TEST UBE CAN INTERRUPT ON ALL LEVELS & THE NO INT.

139

;*THE PSW PRIORITY

141
142
143

;*THIS WAY.
IF THE UBE FALSELY INTERRUPTS, A
;*SUBROUTINE, FINT3, WILL ODETERMINE THE LEVEL
: INTERRUPTED.

oWWO
PR

b
d

;*LEVEL OF THE UBE.

IS FIRST SET EQUAL

TO THE BR

ALL LEVELS ARE FIRST CHECKED
IT

;*AFTER THIS, THE UBE IS ALLOWED TO INTERRUPT BY
;*SETTING THE PSW PRIORITY ONE LEVEL BELOW THE BR.
s*ALL LEVELS ARE THEN CHECKED THIS WAY.
THE
;*PROPER INTERRUPT VECTOR IS TESTED FOR BY SETTING UP
;*THE

ENTIRE

s *INTERRUPTS.

VECTOR AREA 0-776 TO DETECT

FOR WRONG

151
152

;«NOTE:
i

153
154

it
it

155

156
157
158
159
160
161
162

0052264
005226
005232
005240
005244
005250
005252

000004
012706
012737
004767
010667
005000
012046

164

005260

001374

163

165
166
167
168
169
170
171
172
173

005254

005262
005266
005272
005300
005304
005310
005314
005320
005322

001°00
000340
010724
173754

022700

000060

013746
013746
012737
012700
012720
012720
022700
001371
012777

000174
000176
000341
000004
005716
000341
001000
005600

TST10:
177776

TO8LO8:

000002

175202

IF THIS TEST IS HALTED IN THE MIDDLE
AND IT IS DESIRED TO RESTART THE PROGRAM,
THE PROGRAM SHOULD BE RESTARTED AT 1100 AND
NCTM °T 200.

RN RN RN

RN RN RN A AR RN RN R OENORACARNRARNRNARRANROAROERRNORROERY

SCOPE
MOV #STACK,SP
MOV #340,34PSW
JSR PC,CLRREG
MOV SP,$TMPO
CLR RO
MOV (RO)+,-(SP)

;RESTORE STACK
;LOCK OUT INTERRUPTS
;CLEAR ALL UBE REG
;SAVE STACK ADDRESS
JINIT. RO
s SAVE VECTOR AREA 0-56

BNE

¢BRANCH

CHP #60,R0

MCv
MOV
MOV
MOV
TO8LO1: MOV
MOV
(WP
BNE
MOV

T08L08

N4,
<~(SP)
anve,
-(spy
#341,a82
#4,RO
#WINT,(RO)+
#3461, (RO)+
#1000,RO
TO8LOY
#FINT3,@INTVEC

sALL SAVED?
IF

;SAVE SOFTWARE

SET

SSYN BIT DOESN'T SET

140

SEQ 0032

:TYPE PC OF ERROR MSG
;TEST NEXT UBE
:FATAL ERROR: RDY BIT FAILED TO SET
:TYPE PC OF ERROR MSG
:ABORT UBE TEST

::"i"'Q"'i""""fi""'ti'"t'"""".tt'.ti'tt'.tt'ti"t"

mad

011052

011252
007244

30A(1052)

}g;

MACY11

136

=D e
b e
b
b
b e
b
b md
b o
b
md
e
d
b
b
o
cnd e

004767
104013

005152
005156
005162
005164
005170

}gg

—

005144
005150

27-APR-78 15:02

W ~NO
W

—b
b
b
b
d
b
D
d
d
b
D
d nd
b
b
b
b
b
b =D e
b e
b

120
121
122
123
}%g

118
119

CZKUBB.P11

D]AGNOSTIC

SWR

;SET UP VECTOR AREA TO DETECT WRONG INT. VECTORS
;INITIALIZE ADDRESS REG
:PUT WRONG INTERRUPT PTER IN ALL VECTOR LOCATIONS
:PUT AN ODD PSW IN ALL PSW LOCATIONS
;AT END OF VECTOR AREA?
;BRANCH [F NO
;SET UP UBE VECTOR AREA FOR FALSE INT,

-~ ~J

800000000@0@@@0@@0@\‘\!\1\‘
NOWVMEBWN
2O VRN WV
WN 20OV
~NONW Fol
(=X
]
(=1]

b
—

N) =2 —

b
d

b d o med
d o
d e

b h
D od

D
D

d e
b b

d
i

d e
D e

b e
o
D

b
d

h d o
b o md

b
b

b
d

b mh
d b

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxuss P11
27-APR-78 15:02

1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222

1223

1224
1225
1226
1227
1228
1229

005330
005336
005344
005352
005360
005362
005370
005376

005404
005412
005414
005422
005430
005436
005444

012767
012767
012777
012737
000240
012767
012767
012737
012777
000240
012767
012767
012737
012777
000240

MACY11
110

H
3
30A(1052)
27-APR-78
15:03
PAGE 22
TEST UBE CAN INTERRUPT ON ALL LEVELS & THE NO INT.

000004
000200
000003
000200

173656
173652
175152
177776

MOV
MOV
MOV
MOV

#4,SREGO
#200,$REGT
#3,3BECR1
#200,3#P5W

;INDICATE DOING BR=4
;INDICATE PSW PRIORITY=4
;HAVE UBE DO BR=4
;SET PRIORITY=4

000005
000240
000240
000005

173624
173620
177776
175112

MOV
MOV
MOV
MOV

#5,8REGO
#240,8REG
#240,34PSW
#5,3BECR!

; INDICATE DOING BR=5
;INDICATE PSW PRIORITY=5
;SET PRIORITY=5
;HAVE UBE DO BR=5

000006
000300
000300
00001

173572
173566
177776
175060

MOV
MOV
MOV
MOV

#6,SREGO
#300,$REG1
#300,34PSW
#11,8BECR1

s INDICATE DOING BR=6
;INDICATE PRIORITY=6
sSET PRIORITY=6
;HAVE UBE DO BR=6

NOP

;NOW TEST UBE WILL
005446
005454
005462
005470
005476
005504
005506
005510
005514
005520
005522
005530
005534
005536
005542
005544
005550
005552
005554
005562
005564
005570
005576

012777
012767
012767
012777
012737
000240
000413
005267
005267
000257
062737
005277
000240
004767

000002
000004
000003
005552
000140

004767
000472
022626
032777
001063
006377
042777
000744

010660

005600
005602
005606
005610
005614
005622
005624
005632
005634
005640

022626
004767
104022
004767
032777
001407
017767
104017
004767
000445

005642
005650
005654

012777
012706
062767

104021

175050
173532
173526
175034
177776
TO8L03:

177776

010552

000020
174734

000400

TO8L09:

174742

NOP

SREGO
SREGT

#40,84#PSW
@BECRI

JSR PC,RVEC
ERROR
D17
JSR PC,TERRP(
BR
T08L06
TO8LO2: CMP (SP)+,(SP)+

BI1 #20,8BECR]
BNE
T08L07
ASL @BECR1

174726

BIC #400,8BECR1
BR TO8LO3
FINT3:

010506

(MP (SP)+,(SP)+
JSR PC,RVEC

ERROR

010614
007740

174704

174676

173362

D18

JSR PC,TERRPC

173334

;UBE

SHOULD NOT

INTERRUPT

HERE

;UBE

SHOULD NOT

INTERRUPT

HERE

;INITIALIZE
INITIALIZE
sINITIALIZE
;SET RETURN
INITIALIZE

UBE TO DO BR=4
INDICATOR FOR BR=4
INDICATOR FOR PRIORITY=3
ADDRESS WHEN GET PROPER INTERRUPT
PSW PRIORITY=3

:UBE

INTERRUPT

SHOULD

HERE

;BRANCH TO ERROR IF NO INT.

;INDICATE BR LEVEL DOING
; INDICATE PSW PRIORITY LEVEL DOING
;CLEAR N,2,V.C
;SET PRIORITY LEVEL BELOW BR LEVEL
;HAVE UBE DO BR 1 LEVEL ABOVE PRIORITY
;UBE

SHOULD

INTERRUPT

HERE

sRESTORE TRAP CATCHER AND HANDLER
;ERROR: UBE FAILED TO INTERRUPT
:TYPE PC OF ERROR MSG
;BRANCH TO TEST NO INT. SSYN ERROR BIT
JRESTORE STACK AFTER INTERRUPT

sTESTED LAST BR?
;;BRANCH IF YES TO TEST NO INT.
;SHIFT BECR1

FOR NEXT BR LEVEL

SSYN ERROR BIT

sCLEAR SHIFTED RDY BIT
;GO TEST NEXT BR
;RESTORE STACK AFTER
;RESTORE VECTOR AREA

ERROR: UBE

INTERRUPT

INT. WHEN PSW AT SAME PRIORITY LEVEL

;TYPE

PC OF

ERROR MSG

;SAVE

ERROR CONDITIONS

;TYPE

PC OF

ERROR

;ERROR:

BR
TO8LO4:
TO8LOS:

INTERRUPT HERE

;SEE IF ERROR CONDITION OCCURRED IN BECR?
;BRANCH IF NO

D15

JSR PC,TERRP(

174662

SHOULD NOT

BIT #7740,8BECR2
BEQ T08L04

MOV @BECR?2,$REGO

010570
005650
001100
000040

#2,8BECR1
#4,S$REGO
#3,SREG!T
#T08L02,3INTVEC
#140,34PSW

BR T08LO9
INC
INC
cCC
ADD
INC

;UBE

INTERRUPT WITH PRIORITY ONE LEVEL BELOW BR

NOP

173500
173476

000040
174770

MOV
MOV
MOV
MOV
MOV

SSYN BIT DOESN'T SET

TST11

MOV #TOBLOS,aINTVEC
MOV #STACK,SP
ADD #40,$REG1

ERROR BITS IN BECR2 SET WHEN SHOULD=0
ERROR MSG

. ;BRANCH TO NEXT TEST

;SET UP INTVEC TO FIND BR LEVEL UBE MADE
;RESTORE STACK
;RAISE PRIORITY LEVEL BY 1

SEQ 0033

UNIBUS EXERCIS OR MODULE DIAGNOSTIC
czxuBs P
27-APR-78 15:02

1230
123
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261

005662
005666
005674
005700
005702
005706

005710

005714

005716
005720
005724
005726
005732
005736
005744
005746
005750

005267
016737
005277
000240
004767
104023
004767
000417
022626
004767
104024

004767
004767
032777
001403
104027
004767

173326
173324
174624

MACY11
T10

177776

TEST UBE

27-APR-78

CAN

15:03

010514
WINT:

INT.

SSYN BIT

;ERROR: UBE FALSELY INTERRUPTED AT HIGHER LEVEL

D19

;TYPE PC OF ERROR MSG
;;BRANCH TO NEXT TEST

;RESTORE STACK AFTER INTERRUPT
;RESTORE VECTOR AREA
;ERROR: UBE INTERRUPTED TO WRONG VECTOR

CMP (SP)+,(SP)+
JSR PC,RVEC

D20

;TYPE

ERROR MSG

sRETURN VECTOR AREA WHEN FINISH BR TEST
sWAS

INT.

SSYN ERROR BIT

SET?

: .BRANCH TO NEXT TEST IF NO
;ERROR: NO INT. SSYN BIT FALSELY SET

D23

JSR PC,TERRPC

;TYPE

ERROR MSG

A LAR222RRRARRARRRRRRRRARRRRRRRRRRRRRRRRRR
Rt RRRR22RRRRRR] A

TEST

THE NO,NO SACK

ERROR BIT

DOESN'T

SET

:+THE INMIBIT SACK BIT IS SET AND THE UBE IS TOLD T0
;*DO A FUN. 3.THE NO,NO SACK ERROR BIT IS THEN
;*CHECKED TO NOT HAVE SET.
M

005754
005756
005762
005770
005774
006002

000004
012706
012737
004767
012777
012777

001100
000340
010174
000010
006003

AASAARAAAR

TST11:

177776
174524
174514

SET

ERROR

JTEST

DOESN'T

:1F UBE INT. HERE, INCREMENT PRIORITY
;RESTORE TRAP CATCHER

JSR PC,TERRPC
T08L07: JSR PC,RVEC
TO8L06: BIT #4000,8BECR?
TSTI
BEQ

010454

;INDICATE NEW LEVEL OF PRIORITY
;SET PSW PRIORITY
sHAVE UBE INTERRUPT AGAIN

ERROR

174562

THE

INC SREGO
MOV SREG1,a#PSW
INC @BECR1

JSR PC,TERRPC
BR
ISTH

010370

PAGE 23

INTERRUPT ON ALL LEVELS &

NOP
JSR PC,RCATCH

010314

010476
010356
004000

30A(1052)

AR AR

RRRARRRARR

RRRtRtld)

SCOPE
MOV #STACK,SP

;RESTORE

JSR PC,CLRREG
MOV #10,@BECR?
MOV #6003,3BECR1

sCLEAR ALL UBE REGS.
;ENABLE INH SACK IN BECR?
:00
FUN 3 VIA
BR4

MOV #340,34PSW

;LOCK OUT

STACK

INTERRUPTS

SEQ 0034

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P11
27-APR-78 15:02
1262
1263

006010
006014

005037
000240

177776

MACY11
T

30A(1052)
TEST

THE

CLR I#PSW

NOP

27-APR-78

NO,NO SACK

15:03

PAGE 24

ERROR BIT

DOESN'T

SEQ 0035

SET

JALLOW INTERRUPTS
;ALLOW UBE TO GET BUSS.

CPU SHOULD

TIME oOuT

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkuss P11
27-APR-78 15:02
1264
1265
1266
1267
1268
1269
1270
12N

006016
006020
006022
006024
006026
006034
006036

005000
005200

105700
100375
032777
001403
104026

??%Y11

1%:

000200

174472

30A(1052)
TEST

THE NO,NO SACK

CLR RO
INC RO

TSTB RO

BPL 18
BIT #200,3BECR2
BEQ

ERROR

27-APR-78

RTR

D22

15:03

PAGE 25

ERROR BIT DOESN'T

SEQ 0036

SET

;INIT COUNTER
s INC COUNTER
;DELAY AT LEAST 41 USEC
;BRANCH IF NO
;WAS NO, NO SACK BIT SET?
;BRANCH IF NO
;ERROR:

NO,

NO SACK BIT

FALSELY SET

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkuss P11
27-APR-78 15:02

1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302

nORON PNOIN) o el cd d e D cd e e b
s SOV
NO VNS WN=O

b
b oed —md —d
b el

VIV IV
L

o
wnd

004767
004767

010364
010120

JSR PC,TERRPC

RTR:
MR

;TYPE PC OF ERROR MSG

JSR PC,CLRREG
ARAR

J*TEST

SEQ 0037

;CLEAR ALL UBE

REG

AR ARl
iRttt 2Rt

TEST DATI,DATIP,DATO,DATOB AND FUNCTION 1

WORK PROPERLY

s*ALL DATA TRANSFERS ARE DONE VIA BR TRANSFERS.
s*EACH OPERATION (DATI, DATO, DATIP, DATOB) DOES ONE
s*TRANSFER

AND

THE

DATA

THEN CHECKED.

s*EACH TIME AN OPERATION IS STARTED THE READY
s*BIT IS TESTED BY THE SUBROUTINE °'RDYS' TO SEE IF
MRS AA

006050
006052
006056
006064
006072
006076
006104
006112
006116
006124
006130
006134
006142
006144
006152
006160
006166
006174
006176
006202
006206
006212
006216
006224
006232
006240
006244
006252
006256
006264
006266
006274
006302
006310
006316
006320
006324

000004
012706
012737
012767
004767
012777
012777
012705
012777
005037
004767
022777
001421
017767
016767

012767
012767
104030

001100
000340
052525
010072
177777
030010
006620
002003
177776
000434
052525

174346
021632
030010
052525

TST12:

177776
021716

174400

173026

004767
000167
004767
005067
012777
012777
012777
012705
012777
004767
022767
001420
017767
016767
012767
012767
104031
004767
000554

010226
000450
007756
021572
177777
030010
052525
006630
003003
000312
052525

021524

174224
021510
030010
052525

172720
172714
172710
172704

004767
012767
012777
012777
012705
012777

007636
052525

174274
174270
174256
174252

ARl

Attt

IT SETS.

ilissiislissss

MOV #BUFF1,3BEBA
MOV #ERR1,RS

:LOAD UBE WITH BUFFER ADDRESS
;INITIALIZE RS FOR ERROR ADDRESS

JSR PC,RDYS

CMP #052525,aBEBD
BEQ T10LO1

MOV @BEBD,SREGO
MOV BUFF1,SREG
MOV #BUFF1,S$REG2
MOV #52525,8REG3
ERROR
D24
JSR PC,TERRPC
JMP TSTA
T10L01: JSR PC,CLRREG
CLR BUFF1
MOV #177777,8BECC
MOV #BUFF1,3BEBA
MOV #052525,dBEBD
MOV #ERRZ,RS
MOV #3003 ,8BECR1
JSR PC,RDYS

STACK

sLOCK QUT INTERRUPTS
sPUT TEST DATA N BUFFER
;CLEAR ALL UBE RES
+HAVE UBE DO 1 XFER
sHAVE UBE DO DATI
;ALLOW DATA XFER

VIA BR=4 AND FUNCTION 1

;60 CHECK FOR RDY

;1S DATA 0K?
;G0 TEST DATO IF

TO SET

YES

: SAVE (BEBD)
s SAVE MEM DATA
s SAVE MEM ADDRESS
s SAVE CORRECT DATA
;ERROR: DATI FAILED TO LOAD PROPER DATA
;TYPE PC OF ERROR MSG
;6O TO NEXT TEST
sCLEAR UBE REG
sCLEAR TEST AREA
;HAVE UBE DO 1 XFCR
;LOAD UBE WITH BUFFER ADDRESS
:LOAD UBE WITH DATA
;INITIALIZE RS FOR ERROR ADDRESS
;HAVE UBE DO DATO VIA BR=4 AND FUNCTION 1
;GO CHECK FOR RDY TO SET

CMP #052525,BUFF1
BEQ
T10L02

:WAS BUFFER LOADED PROPERLY?
;GO TEST DATIP IF YES

ERROR

;ERROR: DATO FAJLED TO LOAD PROPER DATA

MOV
MOV
MOV
MOV

010104

ailidliiliti ittt

sRESTORE

#340,3#PSW
#052525,BUFF1
PC,CLRREG
#177777,8BECC

MOV #2003 ,3BECR1
CLR a#PsSw

174354

173032

SCOPE
MOV #STACK,SP

MOV
MOV
JSR
MOV

174414
174410

173042
173036

@BEBD,SREGO
BUFF1,8REG1
#BUFF1,SREG?
#052525,8REG3

D25

JSR PC,TERRPC

B8R

TST13

JSR
MOV
MOV
MOV
MOV
MOV

PC,CLRREG
#052525,BUFF1
#177777,8BECC
#BUFF1,3BEBA
#ERR3,RS
#2403,aBECR1

: SAVE (BEBD)
sSAVE MEM DATA
s SAVE MEM ADDRESS
sSAVE CORRECT DATA
:TYPE

PC OF

ERROR MSG

: ;BRANCH TO NEXT TEST

b —
—

d e

LV AV

TV LV RV RV

1303

006040
006044

L
3
30A(1052)
27-APR-78
15:03
PAGE 26
TEST THE NO,NO SACK ERROR BIT DOESN'T SET

MACY11
T

w
N

1325

1327

006326
006332
006340
006346

006354
006360

1727777

030010
006640
002403

021450
174152
174146
174136

T10L02:

s CLEAR UBE REG
¢PUT TEST DATA IN BUFFER
+HAVE UBE DO 1 XFER
;LOAD UBE WITH BUFFER ADDRESS
;INITIALIZE R5 FOR ERROR ADDRESS
;HAVE UBE DO DATIP VIA BR=4& AND FUNCTION 1

UNIBUS EXERCISOR MODULE DIAGNOSTIC
€ZxuBs.P11
27-APR-78 15:02

1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
13N
1372
1373

1374
1375
1376

1377
1378
1379
1380
1381
1382
1383

006366
006372
006400
006402
006410
006412
006420
006426
006434
006442
006444
006450

004767
022777
001004
022767
001420
017767
016767
012767
012767

006452
006460
006464
006472
006500
006506
006514
006520
006526

012767
012705
012777
012777
012777
012777
004767
022767
001453

006530
006536
006544
006552
006560
006562
006566

017767
016767
012767
012767
104033
004767
000433

104032
004767
000502

000176

MACY11
112

n3
30A(1052)
27-APR-78
15:03
PAGE 27
TEST DATI,DATIP,DATO,DATOB AND FUNCTION 1
JSR PC,RDYS

CMP
BNE
CMP
BEQ

#125252,8BEBD
T10L06
#125252,BUFF1
T10LO3

WORK PROPERLY

:GO CHECK FOR RDY SET

;HAS UBE SHIFTED DATA?
;BRANCH IF NO
;HAS MEM LOC BEEN SHIFTED?
;GO TEST DATOB IF YES

125252

174116

125252

021400

174100

172574
172570
172564
172560

T10L06: MOV IBEBD,SREGO
MOV BUFF1,$REGT
MOV #BUFF1,SREG2
MOV #125252,8REG3
ERROR
D26
JSR PC,TERRP(
BR
TST13

; SAVE (BEBD)
sSAVE MEM DATA
s SAVE MEM ADDRESS
;SAVE CORRECT DATA
;ERROR: DATIP FAILED TO LOAD PROPER DATA
;TYPE PC OF ERROR MSG
:;BRANCH TO NEXT TEST

000377
006650
177400
030011
177777
003403
000050
177777

021330

T10L03: MOV #377,BUFF1

;INITIALIZE BUFFER

173762
021246
030010
177777

172456
172452
172446
172442

021364
030010
125252

007760

174024
174022
174012
174010

021262

MOV
MOV
MOV
MOV
MOV
JSR

#ERRL,RS
#177400,3BEBD
#BUFF1+1,3BEBA
#177777,8BECC
#3403,3BECR1
PC,RDYS

MOV
MOV
MOV
MOV

@BEBD,SREGO
BUFF1,S$REG1
#BUFF1,S$REG?
#177777,8REG3

CHP #177777 ,BUFF1
8tQ
TST13

ERROR

007642

D27

JSR PC,TERRPC

TST13

INITIALIZE RS FOR ERROR ADDRESS
;LOAD HIGH BYTE OF UBE WITH 1'S
:LOAD HIGH BYTE BUFF ADDR. INTO UBE
;HAVE UBE DO 1 XFER
;HAVE UBE DO DATOB VIA BR=4 AND FUNCTION 1
;GO CHECK FOR RDY SET

;TEST IF DATOB DONE CORRECTLY
;:BRANCH IF YES TO NEXT TEST
: SAVE (BEBD)
:SAVE NEW DATA
s SAVE MEM ADDRESS
:SAVE CORRECT DATA

;ERROR: DATOB FAILED TO LOAD DATA PROPERLY
;TYPE PC OF

ERROR MSG

. ;BRANCH TO NEXT TEST

;SUBROUTINE TO TEST IF RDY BIT SET

006570
006572
006600
006602
006604
006610
006612
006614
006616
006620
006622
006626
006630

006632
006636
006640
006642
006646
006650
006652
006656

005004
032777
001006
005204
032704
001770
005726
000115
000207
104034

000200

T10L05:

(LR R4

;INITIALIZE

BNE
INC
BIT
BEQ

;BRANCH [F YES
sUPDATE COUNT
s COUNT=16?
;1F NO, GO TEST RDY AGAIN

BIT #200,8BECRT

TST

007602

004767
000407
104036
004767
000403

007572

004767

007552

104037

ROYS:

000020

004767
000413
104035

173724

007562

T10L04:
ERR1:

ERR2:

T10L04
R4
#20,R4
T10LOS
(SP)+

JMP (RS)

RTS PC
ERROR
D28
JSR PC,TERRPC
BR
TST13

sRETURN STACK PTER

;GO INDICATE ERROR

JSR PC,TERRPC

JRETURN AND CHECK DATA
ERROR: DATI FAILED TO SET RDY
;TYPE PC OF ERROR MSG
;.60 TO NEXT TEST
;ERROR: DATO FAILED TO SET RDY
;TYPE PC OF ERROR MSG

JSR PC,TERRPC

;TYPE PC OF

ERROR MSG

;TYPE

ERROR MSG

ERROR

D29

ERR3:

BR
ERROR

TST13
D30

ERR4:

BR
ERROR

TST13
OX1

TSTA:

;1S ROY SET?

JSR PC,TERRPC

;.60 TO NEXT TEST
;ERROR: DATIP FAILED TO SET RDY

;.60 TO NEXT TEST
;ERROR: DATOB FAILED TO SET RDY
PC OF

SEQ 0038

UNIBUS EXERCIS OR MODULE DIAGNOSTIC
(Zxuss P11
27-APR-78 15:02

1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
16410
16411
1412
1413

1414
1415
1416
1417
1418
1419
1420
1421
1422

1423
1624
1425
1426
1427
1428
1429
1430
1431
1432
1433
1634
1435
1436
1437
1438
1439

MACY11
T3

N
3
27-APR-78
15:03

30A(1052)
TEST

PAGE 28

SEQ 0039

INHIBIT DATA SHIFT ON DATIP

sotkERRNRRACRINACERRRRRERCRRRARRRARARCANARORARRARARANAARANARANARNGNTSE

;*TEST 13

TEST

INHIBIT

DATA SHIFT ON DATIP

JoNRRRARRANARARANECEEANARAREOARNENEAARORRRANNARARARANRREANARANERNNE

006656
006660
006664
006670
006674
006702
006710
006716
006724
006730
006732
006734
006736
006742
006744
006752
006754
006762
006764
006772
007000
007006
007014
007016

000004
012706
004767
005037
012767
012777
012777
012777
004767
005704
001404
104036
004767
000427
022777
001004
022767
001417
017767
016767
012767
012767
104040
004767

001100
007300
177776
052525
177777
030010
022403
007314

TST13:

SCOPE

CLR MPSW

021106
173610
173604
173600

MOV
Mmov
MoV
MoV

052525

173544

052525

021026

173526
021012
030010
052525

172222
172216
172212
1.2206

JSR
B8R
T11L01: CHp
BNE
CMP
8EQ
T11L02: MOV
MOV

007104
007112
007114
007122
007130
007136
007144
007146

104041

004767

001100
007134
177776
177525
030010
177777
042403

007150
177253
177653

173376
0206062
03001¢
177653

PC,TERRPC

IST14:;

JSR PC,TERRPC

;TYPE PC OF ERROR MSG

020676
172072
172066
172062
172056

NPSW
#177525,BUFF1

#BUFF1,3BEBA

#177777,8BECC

#62603,9BECRY
PC,CRDY
#177253,3BEBD
T12L01

MoV #BUFF1,3REG2
[0} #177653,$REGR

ERROR

D33

JSR PC,TERRPC

R AN C RO RO RN

LeTEST 15

INH.

DATA SHIFT ON DATIP FAILED

TEST DATOB ON DATIP
A

#177653 ,BUFF1
TST1S
T12L01: MoV @BEBD, SREGO
MOV BUFF1,$REG

;ERROR:

Rl Rilttalitiiiitt
sttt titzs )]

BEQ

007256

s SAVE CORRECT DATA

D32

SCOPE

CLR
mov
MOV
mov
MOV
JSR
14
d,
BNE
CmHp

173414

ERROR MSG

: SAVE MEM ADDRESS

MOV #STACK,SP
JSR PC,CLRREG

020742
173446
173436
173434

PC OF

¢ :BRANCH TO NEXT TEST
;1S (BEBD) 0K?
sBRANCH IF NO
;1S MEM 0K?
:BRANCH IF YES TO NEXT TEST
:SAVE (BEBD)
: SAVE MERM DATA

BUFF1,$REGT

AARAR SRR

:TYPE

TST14
#052525,3BEBD
T11L02
#052525 ,BUFF1
TST14
#BEBD, SREGO

ERROR

007406

sBRANCH IF YES
;ERROR: DATIP FAILED TO SET RDY

D30

MOV #BUFF1,$REG2
MOV #052525,8REG3

;*TEST 14
000004
012706
004767
005037
012767
012777
012777
012777
004767
022777
001004
022767
001417
017767
016767
012767
012767

s CHECK FOR RDY BIT
;DID RDY SET?

JSR PC,CRDY
TST Ré4
T11L01
BEQ

007022
007024
007030
007034
007040
007046
007054
007062
007070
007074
007102

#052525,BUFF1

#177777 ,8BECC
#BUFF1,3BEBA
#22403,3BECR1

ERROR

007466

;RESTORE STACK
sCLEAR UBE REG
¢ALLOW INTERRUPTS
sPUT TEST DATA IN BUFFER
sHAVE UBE DO 1 XFER
sLOAD UBE WITH BUFFER ADDRESS
+HAVE UBE DO DATIP WITH INH DATA SHIFT

MOV #STACK,SP
JSR PC,CLRREG

R ARl
2222222222220

sRESTORE STACK
:CLEAR UBE REG
sALLOW INTERRUPTS
sLOAD TEST DATA IN BUFFER
;LOAD UBE WITH LOW BYTE ADDRESS
sHAVE UBE DO 1 XFER
;HAVE UBE DO DATOB ON DATIP

;CHECK FOR RDY SET

:CHECK (BEBD) 0K
sBRANCH IF NO
s CHECK BUFFER 0K
;s ;BRANCH IF YES TO NEXT TEST
s SAVE (BEBD)
sSAVE MEM DATA
;SAVE MEM ADDRESS
+SAVE CORRECT DATA
;ERROR:
;TYPE

DATOB ON DATIP FAILED
OF

ERROR MSG

L LR ERETRRENRLERNRRNORRNCTRRORQROROPRRRRNRRCEOROQNOERRRERNRONTNTY

TEST NO SSYN ERROR BIT

WORKS & FUN A,B BITS RESET BY

;'A DATI NPR |S DONE TO A MEM LOC (760000) THAT RETURNS

ERROR

INTERRUPT

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZKUBB.P11
27-APR-78 15:02

MACY11
115

4
B
30A(1052)
27-APR-78
15:03
PAGE 29
TEST NO SSYN ERROR BIT WORKS & FUN A,B BITS RESET BY ERROR INTERRUPT

1440
1441
1442
1443

s*NO SSYN.
THE NO SSYN ERROR BIT AND BIT 15 OF BECR1
;*ARE CHECKED TO SET.
THE ERROR INTERRUPT [S THEN TESTED.
J*AFTER THIS THE ERROR IS CLEARED BY THE CLEAR ERROR
;*ADDRESS.
FINALLY THE FUN A,B BITS (BITS 10,11 OF BECR1)

1445

J*INTERRUPT OCCURS.

14644

1447
16448
16449
1450
1451
1452
1453
16454
1455

1456
1457
1458
1459

007152
007154
007160
007166
007172
007200
007206
007214
007222

007230
007234
007242
007244

16460
1461
1462
16463
1464
1465
16466
1467
1468
1469
1470
16471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486

007246
007250
007254
007262
007264
007266
007270
007274
007300
007302
007310
007312
007314
007320
007324
007332
007334
007336
007340
007344
007352
007354
007356
007360
007364
007372
007400

1489

007422

1487
1488

1490
1491
1492
1493
1494
16495

007406
007414

007426
007434
007436
007440
007442
007446

000004
012706
012737
004767
012777
012777
012777
012777
012777

004767
032777
001004
104073
104074
004767
032777
001004
104073
104075
004767

005037
000240
017767
104073
104072
004767
005077
032777
001404
104073
104076
004767
032777
001404

104073
104016
004767
012777
012777
012777
012777
012777
004767
032777
001404

104073
104105
004767
004767

1446

001100
000340
006776
007320
160000
000003
177777
002041

007010
000400

007154
100000

;*ARE EXAMINED TO SEE

IF THEY RESET WHEN AN ERROR

TST15:

SCOPE
MOV #STACK,SP
MOV #340,34PSW
JSR PC,CLRREG
MOV #T23L01,3INTVEC
MOV #160000,3BEBA
MOV #3,aBECR2
MOV #177777,3BECC
MOV #2041,3BECR1

177776
173332
173314
173312
173276
173274

173264

173242

007134

177776

7123L02:

T23L03:

173220

171704

007110
173204
000400

173174

007064
002000

173152

006762
006550

}; 3 130
3126
}; ;112
116
17 3102

173070

A N

JSR PC,CRDY
BIT #400,8BECR2
BNE T23L02
ERROR
D59
ERROR
D60
JSR PC,TERRPC
81T #100000,3BECR1
BNE T23L03
ERROR
D59
ERROR
D61
JSR PC,TERRPC

CLR a#PsSw
NOP
MOV @BECR2,$REGO
ERROR
D59
ERROR
D58
JSR PC,TERRP(C
T23L01: CLR Q@BERE
BIT #400,8BECR?
BEQ T23L05
ERROR
D59
ERROR
D62
JSR PC,TERRPC
7123L05: BIT #2000,8BECRI
BEQ

007044
160000
000003
177772
007426
004041
006616
004000

R R

T23L06

ERROR
D59
ERROR
D14
JSR PC,TERRP(
T123L06: MOV #160000,8BEBA
MOV #3,8BECR2
MOV #177772,8BECC
MOV #T23L07,8INTVEC
MOV #4041,3BECR1
JSR PC,CRDY
T23L07: BIT #4000,8BECR1
BEQ T23L04

ERROR
D59
ERROR
D69
JSR PC,TERRPC
T23L04: JSR PC,RCATCH

AR RN RN

RN RN AR AN

R AR RN N RO NN RN

SRESTORE STACK
;LOCK OUT INTERRUPTS
;CLEAR UBE REG
;SET UP FOR INTERRUPTS
;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN
;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN
;HAVE UBE DO 1 CYCLE
sHAVE DATI NPR DONE

;WALT TILL RDY SET
sWAS NSSYN ERROR BIT SET?
:BRANCH IF YES
ERROR: TEST OF NSSYN ERROR BIT FAILED
;70 SET BIT 8 OF BECRZ2
;TYPE PC OF ERROR MSG
;WAS ERROR BIT SET?
;BRANCH IF YES
;ERROR: TESTM OF NSSYN ERROR BIT FAILED
;T0 SET BIT 15 OF BECR1
;TYPE

PC OF

ERROR MSG

;ALLOW UBE TO INTERRUPT
:UBE SHOULD INTERRUPT HERE
: SAVE BECRZ2
;ERROR: TEST OF NSSYN ERROR BIT FAILED
;7O INTERRUPT (PU
:TYPE PC OF ERROR MSG
;CLEAR ERROR BITS
sWAS NSSYN ERROR BIT CLEARED?
;BRANCH IF YES TO TEST FUN A, B BITS
sERROR: TEST OF NSSYN ERROR BIT FAILED
;70 CLEAR BIT 8 OF BECRZ2
;TYPE PC OF ERROR MSG
;WAS FUN A BIT RESET?
;BRANCH

YES

;ERROR: TEST OF NSSYN ERROR BIT FAILED
;7O CLEAR BIT 10 OF BECR1
:TYPE PC OF ERROR MSG
;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN
;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN
:00 2 CYCLES
JSET UP FOR INT
;HAVE UBE DO FUN2 DATI VIA NPR
;WAIT TILL RDY SETS
;WAS FUN B BIT RESET
;RESTORE TRAP

;ERROR: TEST OF NSSYN ERROR BIT FAILED
;70 CLEAR BIT 11 OF BECR1
;TYPE PC OF ERROR MSG
;RESTORE TRAP

SEQ 0040

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBs PN
27-APR-78 15:02

WA —

md od ok —b

VIS

b oed e

Hwmro =S OOV

NN N PON) =

b
b
b
d
d
b
D
d
b
e
ah
—
b
—

wviun (UL AV NV LU RV LU RV AV, AV RV, AV, V. ]

1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507

1525
1526
1527
1528
1529

1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551

007452

005077

MACY11
115

173052

4
C
30A(1052)
27-APR-78
15:03
PAGE 30
TEST NO SSYN ERROR BIT WORKS & FUN A,B BITS RESET BY ERROR INTERRUPT
CLR @BERE

ARAARAR

AR AR

J*TEST 16
*RO CONTAINS

007456
007460
007464
007470
007474

007500
007504
007512
007520
007524
007530
007532
007534
007536
007542
007544
007552
007560
007566
007572
007576
007604

000004
012706
004767
004767
005037
012700
012777
012777
004767
020077
001057
005200
005200
022700
001360
012777
012777
012777
005277

004767

032777
001042

001100
006500
006600
177776
000002
177777
002003
006520
172772

AARAAL

TST16:

173006
173004

T14L02:

177776
000003
177777
172732
006446
000003

172750
172746
172732
172722

allll

THE
AR

itatlialit

ittt

ssistsy]

TEST DATA
ARl

ARt

SCOPE
MOV #STACK,SP

JSR
JSR
CLR
MOV
MOV
MOV
JSR

CMP
BNE
INC
INC
CMP
BNE
MOV
MOV
MOV
INC
JSR
BIT
BNE

000002

RSt

TEST ADDRESS REG COUNTS BY 2 AND 1

]

sCLEAR ALL ERROR CONDITIONS

PC,CLRREG
PC,DINT
a#PSW
#2,R0
#177777,3BECC
#2003,8BECR1
PC,CRDY

RO,aBEBA
T14L01
RO
RO
#2,RO
T14L02

sRESTORE

daltlii

RRt]]

STACK

:CLEAR UBE REGS
;DISREGARD UBE INTERRUPTS
sALLOW INTERRUPTS
s INITIALIZE TEST COUNTER
;HAVE UBE DO 1 XFER
;HAVE UBE DO DATI
;CHECK RDY SET

;1S ADDRESS CORRECT?
sBRANCH TO ERROR IF NO
sUPDATE RO
;UPDATE RO
sHAVE ALL ADRESSES BEEN TESTED?
sLOOK AT NEXT ADDRESS IF NO

#177776,3BEBA
#3,@BECR2
#177777 ,8BECC
@BECR1
PC,CRDY

;LOAD MAX ADDRESS IN LOWER 16 BITS UBE
:LOAD A16,A17 OF UBE WITH 1
;HAVE UBE DO 1 XFER
;HAVE UBE DO DATI
:CHECK RDY SET

T14L03

sBRANCH TO ERROR IF

#3,3BECR2

;TEST A16,A17=0

:NOW TEST ADDRESS COUNTS BY 1
007606
007614

n07622
v07630
007634
007642
007644
007652
007660
007662
007666
007670
007676
007702
007704

007710
007712
007716
007722
007726
007730
007734

012777
012777
012777
004767
022777
001434
017767
012767
104045
004767

000422
017767
010067

104043
004767
000411
017700
042700
010067
104044
004767
004767

030011

177777
003403

006410
030012
172652
030012

172706
172676
172674

MOV
MOV
MOV
JSR

172660

CMP #BUFF1+2,8BEBA
BEQ
T14L04

171342
171336

MOV @BEBA,SREGO
MoV
#BUFF1+2,SREGT

ERROR

006542
172626
171314

006520
172610
177774

171266
006474
006262

#BUFF1+1,3BEBA
#177777,8BECC
#3403,aBECR1
PC,CRODY

D37

JSR PC,TERRP(C

171316

T14L01:

T14L04

+ SAVE BAD ADDRESS
;SAVE GOOD ADDRESS

;ERROR: BEBA DID NOT COUNT BY 1
;TYPE

PC OF

ERROR MSG

;.60 TO RESTORE TRAPS

;SAVE BAD ADDRESS
;SAVE CORRECT ADDRESS

JSR

;RESTORE

PC.RCATCH

IN UBE

:DID ADDRESS UPDATE 8Y 1?
; ;BRANCHIF YES TO RESTORE TRAPS

MOV @BEBA,SREGO
MOV RO,SREG1T

ERROR
D35
JSR PC,TERRPC
BR
T14L04
T14L03: MOV @BECRZ,R0
BIC #177774 ,R0O
MOV RO,SREGO
ERROR
D36
JSR PC,TERRPC
T14L04:

;PUT ODD ADD OF BUFFER
;HAVE UBE DO 1 XFER
sHAVE UBE DO DATOB
s CHECK RDY

;ERROR: BEBA DID NOT COUNT BY 2
:TYPE PC OF ERROR MSG
:.G0 TO RESTORE TRAPS
;GET ADDRESS BITS FROM UBE
:JUST LOOK AT A16,A17
; SAVE ADDRESS
;ERROR: BEBA BITS A16,A17 DID NOT COUNT = 0
;TYPE PC OF ERROR MSG
TRAPS AND GO TO NEXT

TEST

SEQ 0041

MACY11
117

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZkuBB.P11
27-APR-78 15:02

1552
1553
1554
1555

1579

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

;'TEST 17

TEST BUS ADDRESS BITS WILL CHANGE

;*THE UBE BUS ADDRESS BITS ARE CHECKED TO

;*SEE IF THEY CAN CHANGE FROM 0,1. SEVERAL DATIS
;*ARE DONE FROM LOCATION O, THE HIGHEST LOC IN THE FIRST
;*8K AND FROM THE UBE SIMULTANEOUS GO ADDRESS.
AR

007740
007742
007746
007752
007756

000004
012706
004767
004767
005037

TST17:

001160
006216
006316
177776

SCOPE

MOV #STACK,SP
JSR PC,CLRREG

JSR PC,DINT
CLR a#PsSW

Rttt

dRiitltll)

sRESTORE STACK
;CLEAR UBE REG

sDISREGARD INTERRUPTS
;sALLOW DATA TRANSFERS

;SIZE MEMORY FROM 4K TO 8k
007762
007770
007774
010000
010002
010006
010010
010012

012737
012700
062700
005710
022700
001372
000402

010012
017776
004000

162700

004000

010016
010024
010026
010030
010036
010044
010052
010056
010062
010064
010070
010076
010102
010106

012737
011001
010010
012737
012777
012777
004767
005777
001034
010077
012777
005277
004767
020077
001020
016777
012777
012777
005277
004767
005777
001411
017767
162767
104042
004767
004767
010110

000006

000004

000000
177777
002003
006166
172434

000000
172454
172452

010112
010114

010122
010130

010136
010142
010146
010152
010154
010162
010170

010172
010176
010202

000004
T13L02:

037776

172432
177777
172422
006136
172404

T13L01:

172422

172414
000003
177777
172362
006076
172344

172400
172376
172362

172342
000002

1032
1024

006232
006020

T13L03:

MOV #T13L01,a#4
MOV #17776,R0
ADD #4000,RO
TST (RO)

;SET UP TIME OUT TRAP
;SET RO=LAST ADDRESS IN 1ST 4K OF MEM
;UPDATE RO TO NEXT 1K OF MEM
sTEST IF 1K PRESENT. TIMES OUT [F NOT.

suB #4000,R0

:GET ADDRESS OF

MOV
MoV
Mov
MOV
MOV
MOV
JSR
TST

#6,a44
(RO),R1
RO, (RO)
#0,a3#0
#177777 ,8BECC
#2003,8BECR1
PC,CRDY
@BEBD

;RESTORE TRAP
:SAVE CONTENTS OF LAST LOC IN FIRST 8K
;PUT ADDRESS OF LOC IN MEM LOC
;PUT 0 IN LOC O
;HAVE UBE DO 1 XFER
;HAVE UBE DO DAT] FROM MEM LOC O
;CHECK FOR RDY SET
;SEE IF UBE READ O FROM LOC O

MOV
MOV
INC
JSR
CMP

RO,@BEBA
#177777,8BECC
@BECR1
PC,CRDY
RO,aBEBD

sHAVE UBE ADDRESS HIGHEST MEMORY IN 4K-8K LOCATIONS
;HAVE UBE DO 1 XFER
;HAVE UBE DO DATI FROM HIGHEST MEMORY IN 4K-8K LOCATIONS
:CHECK FOR RDY SET
;DID UBE READ FROM PROPER LOCATION?

CMP #37776,R0
BNE T13L02
BR T13L03

BNE T13L04

MOV BEGO,S8BEBA

MOV
MOV
INC
JSR

#3,aBECR2
#177777,8BECC
@BECR1
PC,CRDY

TST @BEBD

1577
1578

SEQ 0042

ALRALAAASARRASARARRARRLRARRARRRRRRRRRARE
Rt
iRttt
dlll!

—

1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576

&
D
30A(1052)
27-APR-78
15:03
PAGE 31
TEST BUS ADDRESS BITS WILL CHANGE

T13L04:

T13L05:

BEQ T13L05

MOV @BEBA,SREGO

SUB #2,8REGO
ERROR
D34

JSR PC,TERRPC

JSR PC,RCATCH

MOV R1,(RO)
A AR SRR

STEST 20

;AT 8K?
;LOOK AT NEXT 1K IF NOT
LAST

1K OF

MEM PRESENT

;BRANCH TO ERROR IF DATA NOT = 0

;BRANCH IF DATA
sHAVE

UBE

ADDRESS

NOT = RO

ITS GO ADDRESS

:HAVE UBE ADDRESS ITS GO ADDRESS
;HAVE UBE DO 1 XFER
;HAVE UBE DO DATI FROM GO ADDRESS
sCHECK FOR RDY SET
:DID UBE

READ PROPER LOCATION?

;BRANCH IF

YES

;GET ADDRESS+2 TRIED TO READ FROM

;CALC. ADDRESS TRIED TO READ FROM
;ERROR: UBE DID DAT] FROM WRONG LOCATION
:TYPE

PC OF

;RESTORE

sRESTORE

ERROR MSG

TRAPS

CONTENTS OF

LAST LOC

AR RO
Rt
Rl
RRRRRRRR ]

FIRST

TEST CYCLE COUNT COUNTS BY 1 AND INCREMENTS WITH EACH INTERRUPI

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZxuBB.P11
27-APR-78 15:02
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626

1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663

MACY11
120

E
30A(1052)
15:03
27-APR-78
PAGE 32
TEST CYCLE COUNT COUNTS BY 1 AND INCREMENTS WITH EACH

INTERRUPT

SEQ 0043

:*THE BECC REG IS CYCLED FROM O TO 177777 BY INTERRUPTING THE

AFTER EACH INTERRUPT, THE REG IS COMPARED WITH RO WHICH
;*CPU.,
;*CONTAINS THE PROPER DATA,
N

010204
010206
010212
010220
010224
010226
010234
010242
010246
010250
010252
010254
010256
010260
010264
010266
010274
010300
010302
010306
010314
010322
010326

000004
012706
012737
004767
005000
012777
012777
005037
000240
022626
005200
005700
001423
020077
001763
017767
010067

104046
004767
012737
012777
005037
004767

001100
000340
005744

010250
000003
177776

ALAARE

TST20:

SCOPE

177776
172276
172262

MOV #T15L01,@INTVEC
MOV #3,8BECR1

JRESTORE STACK
;LOCK OUT INTERRUPTS
;CLEAR UBE REG
JINITIALIZE TEST COUNTER
JSET UP INT VECTOR AREA

CLR RO

T15L03:

172234

006122
000340
006003
177776
005670

RSl RSl
0lE]

MOV #STACK,SP
MOV #340,34PSW
JSR PC,CLRREG

T150L01:

172226
170716

AR AR

170720

T150L02:
A

UBE

INT.VIA BR=4

JALLOW INTERRUPTS
;UBE WILL INTERRUPT HERE
JRESTORE STACK AFTER INTERRUPT
JUPDATE TEST COUNTER

NOP
Cmp
INC
TST
B8EQ
CMP
8EQ
Mov

(SP)¢+,(SP)+
RO
RO
T15L02
RO,aBECC
T15L03
BECC,SREGO
MOV RO, $REG

ERROR

177776
172202

;HAVE

CLR a#PSW

;1S R0O=0?

JRESTORE TRAPS IF YES
;0ID CYCLE COUNT UPDATE PROPERLY?
;INCREMENT BECC IF YES
;SAVE BAD DATA
;SAVE GOOD DATA

D38

;ERROR: INTERRUPT FAILED
;TYPE PC OF ERROR MSG

JSR PC,TERRPC
MOV #340,3#PSW
MOV #6003 ,3BECRT
CLR a#PSW
JSR PC,RCATCH

TO UPDATE BECC

TO CORRECT VALUE

;LOCK OUT INTERRUPTS

JHAVE UBE CYCLE SO IT SETS RDY
JALLOW UBE TO CYCLE
;RESTORE TRAPS

LSSRSl
02322022 2 2022822222222 22 X1

JeTEST 21

TEST

INHIBIT

INCREMENT

BECC

AND BEBA

:*A DATI IS DONE VIA BR ARBITRATION AND THE BECC AND BEBA REGS
s*ARE CHECKED TO NOT INCREMENT.
N

010332
010334
010340
010346
010352
010360
010366
010374
010402
010410
0104614
010420
010422
010430

010432
010440
010442
010444
010450
010452
010454

000004
012706
012737
004767
012777
012777
012767
012777
012777
005037
005777
001775
022777
001010
022777
001407
104047
004767
000403
104050
004767

001100
000340
005616
030010

177777
000001
000004
002003
177776
172076

172142
172132
172124
172114

T16L0Y:

172070

030010

172062

005750

MOV
MOV
Mov
Mmov

017414

lidl

SCOPE

Mmov
Mov
JSR
mov

177776

177777

005760

AREAl SRRl

TST21:

CLR
TST
BEQ
CMP
BNE
CMP
BEQ

#STACK,SP

#340,34PSH
PC,CLRREG
#BUFF1,3BEBA
#177777,8BECC
#1,BUFF1
#4,3BECR?
#2003,3BECRY
8#PSY
8BEBD
T16L01

#177777 ,8BECC
T16L02
#BUFF1,aBEBA
T16L03

ERROR

D39

JSR PC,TERRPC

BR T16L03
T16L02: ERROR
D40

JSR PC.TERRPC

ettt

0022

;RESTORE STACK

;LOCK OUT INTERRUPTS
;CLEAR UBE REG

sLOAD UBE WITH TEST ADDRESS
;LOAD TEST DATA INTO BECC
;SETUP BUFFER DATA
;HAVE UBE INH. INC. OF BECC AND BEBA
sHAVE UBE DO DATI FROM BUFFER AREA
+ALLOW DATA XFER
;WAS DATA XFERED?
;WAIT

TILL

DATA

[N BEBD

:CHECK BECC WAS NOT UPDATED
;BRANCH IF WAS TO ERROR
;CHECK BEBA WAS NOT UPDATED
;BRANCH [F WAS NOT UPDATED
;ERROR: BEBA INCREMENTED WHEN IT WAS INHIBITED

;TYPE

;ERROR: BECC
;TYPE

ERROR MSG

INCREMENTED WHEN IT WAS INHIBITED

ERROR MSG

MACY11
T1

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkuBs P11
27-APR-78 15:02

1685
1686
1687
1688
1689
1690

1691

1692
1693
1694
1695
1696
1697
1698
1699
1700

b
b
d
cead
b
b
b
b
d

O NOWNEBWN—=O

—

b
bk wmed
b
b cnd
b
—d

NNNSNNNNNNY

1701
1702
1703
1704
1705
1706
1707

172040

T16L03: BIC #4,aBECR2
JSR PC,CRDY
NPAAAEAASS

AR AR AR

J*TEST 22

SEQ 0044

sALLOW BEBA AND BECC TO COUNT
SWAIT TILL UBE IS DONE

AR AR RSttt
ittt ot ittt stdn]]

TEST INT ENB AND CCOVF WORK AND THAT UBE WILL DO SEVERAL XFERS

° %

s*THE UBE IS SETUP TO DO & DATO XFERS VIA BR ARBITRATION AND
;*INTERRUPT WHEN DONE.

THE

INTERRUPT

IS CHECKED FOR

:*AND THEN A BUFFER AREA IS TESTED TO SEE
:*FOUR TRANSFERS WERE DONE.
N

010516
010520
010524
010526
010534
010542
010550
010556
010564
010570
010572
010574
010600
010602
010604
010610
010612
010616
010620
010622
010626
010630
010632
010634
010640
010642
010650
010652
010660
010662
010670
010676
010700
010702
010706
010710
010712

010714
010720
010722

001100
000340
005456
030010

177774

010612
003121
177776

022700
001374

001000

004767
000470
012700
005720
001433
022700
001373
005720
001027
022700
001373
032777
001041
032777
001441
012777
032777
001435

005620

104051

104052

004767
000431
005740
005740
022700
003404
104067

177776

1762
1760
1750
1754
1740

T17L02:
TI7L05:

030020
T170L06:

030030
000100

171654

020000

171646

020000

171634
171¢30

005522

030010

MOV #STACK,SP

RESTORE

JSR PC,CLRREG
MOV #BUFF1,RO
CLR (RO)+
CMP RO,#BUFF1+20

s CLEAR UBE REG
sGET BUFFER ADDRESS
:CLEAR BUFFER AREA
;AT END OF BUFFER?

STACK

sLOCK OUT INTERRUPTS

BNE T17LC1
MOV #377,3BEBD

:BRANCH [F NO
SET UP XFER TEST DATA

MOV #3121,38BECR1

;HAVE UBE DO DATO VIA BR=7 AND INTERRUPT ON DONE

;LOAD UBE WITH BUFF ADDRESS
;SET UBE TO DO 4 XFERS
;SET UP INT VECTOR

CLR a#PSW
CLR RO
INC RO

;ALLOW XFERS
sINITIALIZE COUNT
;UPDATE COUNT TO WAIT FOR

INTERRUPT

BNE T17L03
ERROR
D41

;BRANCH IF NO
;ERROR: UBE FAILED TO INT.

ON DONE

CHP #1000,RO

;WAITED LONG ENOUGH?

JSR PC,TERRF(

;TYPE

MOV #BUFF1,RO
TST (RO)+

:GET START OF BUFFER
;TEST FIRST & LOC WRITTEN

T17L09

PC OF

ERROR MSG

::GO RESTORE TRAPS

BEQ T17L04
CMP #BUFF1+10,R0
BNE T17L05

;BRANCH IF NOT WRITTEN TO ERROR
sLOOKED AT ALL WRITTEN LOCS.
:BRANCH IF NO

BNE
CMP
BNE
BIT
BNE
BIT
BEQ

T17L10
#BUFF1+20,RO0
T17L06
#100,8BECR1
T17L07
#20000,8BECR2
T17L08
MOV #6003,8BECRI
BIT #20000,8BECR2

BRANCH TO ERROR IF WERE
;AT END OF BUFFER?
sNO, LOOK AT NEXT LOCATION
;YES, TEST INT. ON DONE BIT=0
;BRANCH TO ERROR IF NOT=0
;TEST CCOVF=i
;BRANCH TO ERROR IF=0

ERROR

;ERROR:

TST

BEQ

(RO)+

T170L09

D42

JSR PC,TERRP(

BR
T17L09
T17L04: TST =(RO)
T17L10:

IF EXACTLY

R ARl
RAdRt
Rttt
RRdE

MOV #BUFF1,aBEBA
MOV #177774 ,8BECC
MOV #T17L02,8INTVEC

T17L03:

030010

SCOPE

MOV #340,34PSW
T171391:

030030

000377
030010

TST22:

010512

000004
012706
012737
004767
012700
005020
020027
001374
012777
012777
012777
012777
012777
005037
005000
005200

010472
010474
010500
010506

1680
1681
1682
1683
1684

000004
005552

1673
1674
1675
1676
1677
1678
1679

042777
004767

SNNNNN

1666
1667
1668
1669
1670
1671
1672

010460
010466

—t

1664
1665

30A(1052)
27-APR-78
15:03
PAGE 33
TEST INHIBIT INCREMENT OF BECC AND BEBA

TST

-(RO)

CMP #BUFF1,RO
BLE T17L11
ERROR
D55

sTEST LAST 4 LOC WERE

sSET GO BIT

TO SEE

;TEST CCOVF=0

NOT WRITTEN

CCOVF

IS RESET

;.60 RESTORE TRAPS IF YES

CCOVF NOT CLEARED BY GO

;TYPE PC OF

ERROR MSG

;.60 RESTORE TRAPS
;CALC. LAST ADD. WRITTEN
;CALC.

LAST ADD.

WRITTEN

;WERE ANY ADD. WRITTEN?
:BRANCH [F YES
;ERROR: UBE DID NOT DO DATO TO PROPER # OF

LOC

(&)

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKUBB.P11
27-APR-78 15:02

1720
1721
1722
1723
1724
1725

010724
010730
010732
010740
010744
010746

1727
1728

010754
010756

1726

1729

1730
1731
1;;%
1
17310

010752

010762

010764
010766
010772

004767
000420
012767
C€10067
104053
004767

000407

104054
004767

000403

104055
004767
004767

MACY11
122

005500
030010
170252

170254

T17L11:

005456
T17L07:

005446

T17L08:

005436
005224

T170L09:

&
6
15:03
27-APR-78

30A(1052)
TEST

PAGE 34
INT ENB AND CCOVF WORK AND THAT UBE WILL DO SEVERAL

XFERS

JSR PC,TERRPC
BR
T17L09
MOV #BUFF1,$REGO
MOV RO,S$REG1
ERROR
043
JSR PC,TERRPC

:TYPE PC OF ERROR MSG
;.00 RESTORE TRAPS
;SAVE FIRST LOCATION WRITTEN
;SAVE LAST LOCATION WRITTEN
;ERROR: UBE DID NOT DO DATO TO PROPER # OF
;TYPE PC OF ERROR MSG

ERROR
D44
JSR PC,TERRPC

;ERROR: INT. ON DONE BIT NOT
;TYPE PC OF ERROR MSG

B8R

T17L09

T170L09

;:60 RESTORE TRAPS

CLEARED

;:60 RESTORE TRAPS

ERROR
D45
JSR PC,TERRPC
JSR PC.RCATCH

;ERROR: CCOVF NOT SET
;TYPE PC OF ERROR MSG
;RESTORE TRAPS

.';'"i'!'t"""""tii"""'i'i""'t'i"l".l"lQ"Qt't'tt'tti

};gg

;*TEST 23

TEST DATA XFERS FROM BECC

° %

1737
1738

;*THE UBE IS SET UP TO DO 4 DATO XFERS VIA BR ARBITRATION FROM
;*THE BECC REG TO A BUFFER AREA.
THE AREA IS THEN CHECKED.

1739

.';ttt""i't""'i'i"""""t'."""'i'.".'Q.'t!'ttfi""tt't'

1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759

010776
011000
011004
011010
011014
011020
011022
011026
011030
011036
011044
011052
011060
011062
011066
011072
011074
011076
011100
011104

000004
012706
004767
005037
012700
005020
020027
001374
012777
012777
012777
032777
001774
012700
012701
022001
001005
005201
020027
001372

1762

011110

005740

1764
1765
1766

011116
011122
011126

011067
010167
104056

};g?
1763

};gg

011106
011112

011130

030030

030010
177776
013003
000200
030010
177774

030020

000412

010067

004767

TST23:

001100
005160
177776
030010

171464
171454
171452
171444

SCOPE
MOV #STACK,SP
JSR PC,CLRREG
CLR #PSW
MOV #BUFF1,RO
T18L01: CLR (RO)+
CMP RO,#BUFF1+20
BNE T18LO
MOV #BUFF1,3BEBA
MOV #177774,3BECC
MOV #13003,3BECR1
T18L02: BIT #200,3BECR1
BEQ T18L02
MOV #BUFF1,RO
MOV #177774,R1
T18L04: CMP (RO)+,R1
BNE T18L03
INC R1
CMP RO,#BUFF1+10
BNE T18L04

;RESTORE STACK
:CLEAR UBE REG
:ALLOW INTERRUPTS
:GET BUFFER ADDRESS
:CLEAR BUFFER AREA
;AT END Of BUFFER?
sBRANCH IF NO
:LOAD STARTING ADDRESS INTO UBE
;SETUP UBE TO DO 4 XFERS
;HAVE UBE DO 4 XFERS FROM BECL
:LOOK FOR RDY SET
JBRANCH TILL SET
:GET BUFFER ADDRESS
:INITIALIZE R1=TO FIRST DATA WORD
;1S DATA 0K?
;NO, GO TO ERROR
:UPDATE FOR NEXT DATA
;LOOKED AT ALL DATA?
:NO, LOOK AT NEXT WORD

T18L03:

TST =(RO)

;CALC.

MOV (RO),SREG1
MOV R1,S$REG?
ERROR
D46

;SAVE BAD DATA
;SAVE GOOD DATA
;ERROR: DATO FROM BECC NOT DONE PROPERLY

170076

170074
170072

005274

TST24

;.60 TO NEXT TEST

MOV RO,SREGO

JSR PC,TERRPC

1769

};;?

;eTEST 24

ADDRESS OF

: SAVE ADDRESS

FAILURES

;TYPE PC OF ERROR MSG
Y

R R

R R R R

R X R R SRR SRR R

TEST UBE CAN DO 2 XFERS PER BUS REQUEST

1772

;*THE UBE

1774
1775

;*FOUR XFERS.
THE UBE IS TOLD TO GO. THE FIRST TIME
;*THE CPU GETS THE BUS, AFTER THIS, THE PSW PRIORITY

1773

IS SET UP TO DO 2 DATO XFERS PER REQUEST VIA

;*BR ARBITRATION.

THE

CYCLE

COUNT

IS SET

TO DO A TOTAL Of

SEQ 0045

LOCATIONS

(4)

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBs PN
27-APR-78 15:02

b
b
—

—

O 00~

1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831

30A(1052)
27-APR-78
15:03
PAGE 35
TEST UBE CAN DO 2 XFERS PER BUS REQUEST

;*SET FOR 7 HOLDING OFF FURTHER UBE ACTION.

SEQ 0046

A BUFFER

s*AREA IS THEN CHECKED THAT THE UBE DID EXACTLY 2 XFERS
:*PER REQUEST.
NNOOCON\N
NS NN
CROONNOS-ONO

d
ad

b ed

b
d
b

-t

AL AAARL

OCO0O0OO0OOo00O

1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
8
8

MACY11
124

000004
012706
012737
004767
012700
005020
020027
001374
012777
012777
012777
012777
005037
000240
012737
012700
005720
001411
020027
001373
005720
001005
020027
001373
000421
005740
005740
022700
101404
104060
004767

000410
012767
010067
104057

011336

004767
005037
000240
004767

001100
000340
005014
030010

TST24:

T19L01:

030010

000377
005003
177776

T19L09:
T19L02:

030010
005122

005100
177776

JSR PC,CLRREG
MOV #BUFF1,RO
CLR (RO)+

sCLEAR UBE REGS
;GET BUFFER ADDRESS
;CLEAR BUFFER AREA

CMP
BNE
MOV
MOV
MOV
MOV

RO,#BUFF1+20
T19L01

167676

T19L07:

;AT END OF BUFFER?
;CONTINUE TO CLEAR IF NO
;LOAD BUFFER ADDRESS INTO UBE
;SET UBE TO DO & XFERS
;LOAD TEST DATA INTO UBE
;HAVE UBE DO 2 DATO/REQUEST VIA BR=4
;ALLOW UBE
:UBE

004702
R

BNE T19.04

;BRANCH [f NO

;BRANCH TO
;LOOKED AT
;BRANCH IF
;TEST BUFF
:BRANCH TO
:LOOKED AT

T19L0S

ADDRESS
WRITTEN?

ERROR IF NO
FIRST 2 LOCATIONS?
NO
LOC NOT WRITTEN
ERROR IF WRITTEN
FOURTH LOC?

;.60 TO END OF

TEST

TST -(RO)
TST -(RO)

:CALC
sCALC

LAST ADDRESS WRITTEN
LAST ADDRESS WRITTEN

JSR PC,TERRP(

;TYPE

PC OF

:SAVE
;SAVE

FIRST ADDRESS WRITTEN
LAST ADDRESS WRITTEN

CMP #BUFF1,RO
BLOS T19L07
ERROR
D48
BR

sWERE ANY ADDRESS WRITTEN?
:BRANCH IF YES
;ERROR: UBE DID NOT DO 2 XFERS/REQUEST

T19L05

D47

TEST

;ERROR: UBE DID NOT DO 2 XFERS FOR EACH REQUEST

JSR PC,TERRPC
CLR @#PSW
NOP
JSR PC,CRDY

ARARAAA

ERROR MSG

;.60 TO END OF

MOV #BUFF1,SREGO
MOV RO,SREG!?

J*TEST 25
N

TO DO XFERS

SHOULD DO 2 XFERS HERE

;SET PRIORITY=7 TO STOP LAST 2 XFERS

T19L09
RO, #BUFF1+4
T19L03
(RO)+
T19L02
RO,¥#BUFF1+10

ERROR

T19L05:

STACK

;GET BUFF
:WAS BUFF

ittslisssasss)

:LOCK ON INTERRUPTS

MOV #BUFF1,RO
TST (RO)+

BEQ
CMP
BNE
T19L04: TST
BNE
CMP

030020

167674

JRESTORE

MOV #340,3#PSW

T19L03:

ia etttz

SCOPE
MOV #STACK,SP

NOP

177776

030014

030010

ARl

#BUFF1,8BEBA
#177774 ,@BECC
#377,8BEBD
#5003,3BECR1T
CLR @#PSW

177774

000340
030010

MOV #340,84PSW

177776

030030

ARl

;TYPE PC OF ERROR MSG
sALLOW LAST 2 XFERS
;ALLOW UBE TO GET BUS
JWAIT TILL UBE FINISHES XFERS

A AR
Rt
2020
SR

TEST UBE CAN DO 2 DATIP XFERS PER REQUEST

;*THE UBE IS SET UP TO DO 2 DATIP XFERS PER REQUEST VIA
:*BR ARBJTRATION.
THE CYCLE COUNT [S SET TO DO A TOTAL OF
;*FOUR XFERS.
THE UBE IS TOLD TO GO. THE FIRST TIME
;*THE CPU GETS THE BUS, AFTER THIS, THE PSW PRIORITY IS

;*SET FOR 7 HOLDING OFF FURTHER UBE ACTION.
A BUFFER
;*AREA IS THEN CHECKED THAT THE UBE DID EXACTLY 2 XFERS
;*PER REQUEST.
S

011342

000004

1S125:

SCOPE

R RS RN

AR AR OEAANRNRR AR

ARARRNRRERRNTR

011456
011462

011464
011470
011472
011474
011476
011500
011504

011506

011510
011514
011516
011524
011530
011532
011536
011542
011544

101404
104061

004767
000410
012767
010067
104062
004767
005037
000240
004767

T20L01:

[pS I

—

177776

;LOAD BUFFER ADDRESS INTO UBE
SSET UBE TO DO & CYCLES
;HAVE UBE DO 2 DATIP/REQUEST VIA BR-4
;ALLOW UBE TO DO CYCLES

#BUFF1,3BEBA
#177774 ,QBECC
#4403,8BECRT
a#PSV
#BUFF1,RO
#052525,(R0O)+
T20L02
#BUFF1+4
R0

BNE

T20LO04:

T20L03

CMP #125252,(RO)+

004672
177776

T20L05:

004474
AAAA

;UBE

SHOULD DO XFERS HERE

:SET PRIORITY = 7 TO STOP LAST 2 CYCLES
;GET BUFF ADDRESS
;TEST BUFF LOCS WRITTEN
:BRANCH TO ERROR IF NOT DONE PROPERLY
;LOOKED AT 2 WRITTEN LOCS?

:BRANCH [F NO
;TEST BUFF

LOCS NOT WRITTEN

TST ~(RO)
TST -(RO)
CMP #BUFF1,RO

;CALC LAST ADDRESS WRITTEN
sCALC LAST ADDRESS WRITTEN
SWERE ANY LOC WRITTEN?

T20L05S

;.G0 TO END OF TEST

:BRANCH IF YES
;ERROR: DID NOT DO 2 DATIP/REQUEST

JSR PC,TERRP(C

T20L06:

;LOADED FIRST & LOCS?
JBRANCH [F NO

;BRANCH TC ERROR IF WRITTEN
;LOOKED AT FOURTH LOC?
;BRANCH IF NO

BLOS T20L06
ERROR
D49
167470

STACK

;LOCK OUT INTERRUPTS

BNE T20L08
CMP RO,#BUFF1+10
BNE T20L04

T20L02:
T20L08:

004714
167466

MOV
MOV
MOV
CLR
MOV
CMP
BNE
CMP

030020

030010

sCLEAR UBE REG
;GET BUFFER ADDRESS
;LOAD TEST DATA

NOP

030014

030010

JSR PC,CLRREG
MOV #BUFF1,RO
MOV #125252,(RO)+

MOV #340,3#PSW
T20L03:

125252

;RESTORE

(WP RO,#BUFF1+10
BNE T20L01

177776

000340
030010
052525

NNN

030010
177774
004403

SEQ 0047

MOV #STACK,SP

MOV #340,34PSW

177776

OO
—

001100
000340
004606
030010
125252
030020

012706
012737
004767
012700
012720
020027
001373
012777
012777
012777
005037
000240
012737
012700
022720
001012
022700
001372
022720
001005
020027
001372
000421
005740
005740
022700

;TYPE

PC OF

ERROR MSG

BR
T20L0S
MOV #BUFF1,S$REGO
MOV RO,SREG1
ERROR
050
JSR PC,TERRPS
CLR a#PSW

;.60 TO END OF TEST
:SAVE FIRST ADDRESS WRITTEN
s SAVE LAST ADDRESS WRITTEN
;ERROR: UBE DID NOT DO 2 DATIP/REQUEST
:TYPE PC OF ERROR MSG
;ALLOW LAST 2 CYCLES

NOP
JSR PC,CRDY

;ALLOW UBE TO GET BUS
;WAIT FOR UBE TO FINISH XFERS

J*TEST 26
L1

ARl

02E

TEST DATA XFERS VIA NPR AND INT ON DONE WORK

:+THIS IS THE FIRST TEST WHERE THE NPR 1S EXERCISED.

ONE

THE READY BIT IS
;*DATO NPR IS DONE TO A BUFFER AREA.
THE
SAME OPERATION IS
NEX
:*THEN CHECKED FOR SETTING.
T,
;*REPEATED ONLY THE INTERRUPT ON DONE BIT IS SET.
;*THE

PROGRAM

TESTS

FOR THE

INTERRUPT

AND

THEN EXAMINES

;*THE BUFFER AREA TO SEE THAT ONLY ONE XFER WAS DONE.
b

el
i
il

d
d
d
—d

(o Y SV IV IV IV TV, TV
[y
O NN AN
o NSO oo

emd wd

1857
1858
1859
1860
1861
1862
1863
1864
186>
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887

011366
011372
011376
011400
011406
011414
011422
011426
011430
011436
011442
011446
011450
011454

—

1853
1854
1855
1856

011356
011362

OO0OO0OO0OOOO0O

1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852

011344
011350

-—

1832
1833
1834
1835
1836
1837
1838

l
30A(1052)
03
PAGE 36
27-APR-78
TEST UBE CAN DO 2 DATIP XFERS PER REQUEST

MACY11
125

UNIBUS EXERCIS OR MODULE DIAGNOSTIC
cZkuss PN
27-APR-78 15:02

000004
012706

012737
004767
005067
012777
012777
012777

001100
000340
004400
016214
177777
030010
177777

TST26:

177776
170714
170712
170702

LN R AR

SCOPE

MOV #STACK,SP

AN AR RN RN

;RESTORE

RN AR

R AR

RARNRENRARRRRERE

STACK

MOV #340,34PSW
JSR PC,CLRREG
CLR BUFF1

;LOCK OUT INTERRUPTS
;CLEAR UBE REG
;CLEAR BUFFER LOC

MOV #BUFF1,aBEBA
MOV #177777,8BECC

;LOAD UBE ADDRESS REG WITH BUFF
;SET UBE TO DO 1 CYCLE

MOV #177777,8BEBD

:LOAD UBE DATA REG WITH TEST DATA

ADD.

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZxuss P11
27-APR-78 15:02

1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
9M
1912
1913
1914
1615
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934

1935
1936
1937
1938
1939
1940
1941
1942
1943

011616
011624
011626
011632
011634
011636
011642
011644
011650

011654

011662

011670
011676
011704
011710
011714
011716
011722
011724
011730
011732
011734
011740
011742
011744
011750
011756
011762
011766
011770
011772
011776

012777
000240
004767
005704
001042
005767
001452
005067
005067
912777
012777
012777
012777
005037
004767
104065

004767
000425
005767
001422
104066
004767
000416
104064
004767
012777
005037

004767
000403
104063

004767
004767

003041

MACY11
126

170700

011724
030010
177777
003143
177776

;HAVE UBE DO DATO VIA NPR

JSR PC,CRDY
TST R&

;CHECK RDY SET
:DID RDY SET?

TST BUFF1

;WAS DATO DONE?

MOV #BUFF1,3BEBA

;LOAD TEST ADDRESS

BNE T21L01

016146

BEQ
CLR
CLR
MOV

170650
170632
170622
170620

004330
004506

BR T21L04

;RESTORE TRAPS

004470

JSR PC,TERRPC
BR T21L04
T21L01: ERROR
D52

004432
004220

TST BUFF1+2

BEQ
ERROR

JSR
MOV
CLR
JSR

T21L04:

;BRANCH TO ERROR IF NPR NOT DONE
;CLEAR BUFF LOC
sCLEAR BUFF LOC +¢
;SET UP FOR INTERRUPT
;SET UBE TO DO 1 CYCLE
sHAVE UBE DO DATO NPR AND INT WHEN DONE VIA BR=4
;ALLOW UBE TO INTERRUPY
sWAIT FOR INT. OR RDY TO SET
;ERROR: UBE DID NOT INT WHEN NPR DONE

T21L03:

T21L02:

TO SET BUS

MOV #177777 ,@BECC
MOV #3143,3BECR?
CLR a#PSW
JSR PC,CRDY
ERROR
D53
JSR PC,TERRPC

170546

;ALLOW UBE

;BRANCH TO ERROR IF RDY DID NOT SET

T21L02
BUFF1
BUFF1+2
#T21L03,3INTVEC

016062

004460
006003
177776
004256

SEQ 0048

MOV #3041,aBECRT
NOP

004612

016140
016136

4
J
30A(1052)
27-APR-78
15:03
PAGE 37
TEST DATA XFERS VIA NPR AND INT ON DONE WORK

;TYPE

PC OF

ERROR M55

:DID NPR WRITE MORE

T21L04
D54

THAN 1

LOC?

::60 TO END OF TEST
;ERROR: UBE WROTE 2 LOC WHEN 1 NPR AND INT DONE
:TYPE PC OF ERROR MSG
;RESTORE TRAPS

PC,TERRPC
#6003,aBECR1
S#PSW
PC,CRDY

BR T21L04
ERROR
D51

JSR PC,TERRPC
JSR PC,RCATCH

ERROR: NPR DID NOT SET RDY
:TYPE PC OF ERROR MSG
sHAVE UBE SET ITS RDY
:
SWAIT TILL SET

;RESTORE TRAPS
;ERROR: NPR DATO NOT DONE
;TYPE PC OF ERROR MSG
;RESTORE TRAPS

JoktARRARARARENRRACARCEARAREANRRERAERASERRNRRAARAARANARAARACNANNCANRNTSE

;*TEST 27

TEST UBE WILL NOT INTERRUPT DURING AN NPR AND GO BIT SETS

;«IF THIS TEST FAILS AND THE UBE DOES INTERRUPT AFTER
;*TRYING TO DO AN NPR,
MR AR

iSTZ?:

912002
012004
012012
012016
012022
012030
012032

000004
012767
012706
004767
032777
001002

012036
012044
012052
012056
012060
012066
012070
012072
012076

012777
012777
005037
000240
032777
001003

177777
000043
177776

170452

170454

1%:

000001

1704306

004767
005077

004332

BIT #1,8BECRI
BNE T22L01
ERROR
D9
JSR PC,TERRPC
T22L01: CLR @BECRI

104401

104011

000001
001100
004146
010000

167222

#1,STINMES

MOV #STACK,SP

JSR PC,CLRREG

167142

BIT #5W12,aSwR
BNE 1%

025257

170422

SCOPE

Mov

THE CPU WILL GO DOWN

R RARRRRRARARRRRRtRRRRRRRRRRRRRRRR]])

TYPE

,MSG3

MOV #177777,8BECC
MOV #0043,8BECRT
CLR a#PSW
NOP

;.00 1

ITERATION

;RESTORE

STACK

;CLEAR UBE REG

;INHIBIT TYPEQOUTS?
;BRANCH IF YES
;TESTING UBE WILL

:DURING NPR.

NOT

INTERRUPT

[F DOES, (PU WILL GO DOWN

¢SET UBE TO DO 1 CYCLE
;HAVE UBE DO DATI NPR AND
;UBE

SHOULD NOT

GET

INT.

BUSS HERE

(FUN.=0)

;1S GO BIT SET?
;BRANCH IF YES
;ERROR: GO BIT FAILED TO LOAD *'1°
;TYPE PC OF ERROR MSG
;RESET GO BIT, NPR AND INTERRUPT

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxuss PN
27-APR-78 15:02
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
197
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992

1993
1994
1995
1996
1997
1998
1999

012102
012110
012112

032777
001002
104401

010000

MACY11
127

30A(1052)

167062

27-APR-78

TEST UBE WILL NOT

BIT #SW12,aSwR
BNE
TST30

025405

TYPE

15:03

PAGE 38

INTERRUPT DURING AN NPR AND GO BIT

,MSG4

;INHIBIT TYPEOUTS?
: .BRANCH [F YES
JEXITING TEST

A A2l
2222222222222 2222 3]

;;TEST 30

TEST WRONG A LINE ERROR BIT DOES NOT SET

. %

:*A DATI

NPR

IS DONE

FROM THE

UBE

GO ADDRESS

s*THE ERROR BIT IS TESTED NOT TO HAVE SET AND NOT TO HAVE

;*THE ADDRESS BITS 14,15,16,17 ARE NEXT TESTED SEPARATELY
;*AND THE ERROR BIT IS CHECKED NOT TO HAVE SET.
JIRANRN AR

012116
012120
012124
012132
012136
012144

012152

012160
012166
012174
012200
012206
012210
012212

012214
012220

012224
012226
012230
012236
012240
012242
012246
012250
012254
012260

012266
012274
012302
012310
012312
012320
012322
012326
012334
012342
012346
012354
012356
012360
012362
012366

000004
012706
012737
004767
016777
012777
012777
012777
012777
004767
032777
001404

001100
000340
004032
170372
000003
177777
012230
002041
004044
001000

004767

004210

104070
104071

005037
000240
000410
017767
104070
104077
004767
000447

004767
005077
012777
012777
062777
032777
001011
032777
001422
005277
042777
012777
004767
032777
001744
104070
104071

004767
004767

TST30:

RN R AR AR R

R RN AR RN RN RN AR

SCOPE

170356
170354
170340
170344
170330

sRESTORE

MOV BEGO,3BEBA

;HAVE UBE

MOV
MOV
MOV
MOV
JSR

170320

#3,@BECR2
#177777,8BECC
#T24L01,3INTVEC
#2041,8BECRT
PC,CRDY

BIT #1000,3BECR2
BEQ T24L02
ERROR
D56
ERROR
D57
T24L02:

JSR PC,TERRPC
CLR a#PSW

NOP

170272

166756

T24L01:

004162

170240
170224
170220
170212

000003

170206

170200
00000¢
002041
003676
001000

004042
003630

BR T24L06
MOV @BECRZ2,$REGO

ERROR
ERROR

D56
D63

JSR PC,TERRPC

004020
170242
000001
177777
040000
140000

T24L06:

170172
170162

T24L05:

BR T24L03

JSR
CLR
MOV
MOV
ADD

BIT
BNE
BIT
BEQ
INC

T24L064:

170152

PC,DINT
@BEBA
#1,8BECR?
#177777,8BECC
#40000,8BEBA

#140000,8BEBA
T24L04
#3,8BECR2
T24L03
3BECR?

BIC #4,8BECR2
MOV #2041,8BECR1
JSR PC,CRDY

BIT #1000,8BECR2
BEQ T24L05
ERROR
D56
ERROR
D57
T24103:

RN AR

MOV #STACK,SP

MOV #340,3#PSW
JSR PC,CLRREG

177776

SETS

JSR PC,TERRPC
JSR PC,RCATCH

INTERRUPTED.

AARNAAARAARRENS

STACK

;LOCK OUT INTERRUPTS
;CLEAR UBE REGS
ADDRESS

ITS GO ADDRESS

sHAVE UBE ADDRESS ITS GO ADDRESS
SSET UP TO DO 1 CYCLE
;SET UP FOR INT.
sHAVE DATI NPR DONE FROM GO ADDRESS
;CHECK FOR RDY SET

sWAS ADDRESS ERROR SET?
:BRANCH 1F NO
JERROR: TEST OF WRONG A LINES ERROR BIT FAILED
;BECRZ BIT 9 FALSELY SET
;TYPE PC OF ERROR MSG
;ALLOW ANY INTERRUPTS

;UBE

SHOULD NOT

INTERRUPT

HERE

;GO TEST INDIVIDUAL ADDRESS BITS
; SAVE BECR2

SERROR:TEST OF WRONG A LINES ERROR BIT FAILED
;FALSELY INTERRUPTED CPU
;TYPE PC OF

ERROR MSG

;GO RESTORE TRAP

:DISREGARD INTERRUPTS
;CLEAR ADDRESS 0-15
;TEST ADDRESS 16
;00 1 CYCLE
sTEST NEXT ADDRESS

:HAVE ADDRESS BITS 14,15 BEEN EXERCISED?
;TEST NEXT ADDRESS IF NO
:HAVE ADDRESS BITS 16,17 BEEN EXERCISED?
;GO RESTORE TRAPS IF YES
; INC ADDRESS BITS 16,17

;CLEAR BIT 2 OF BECR2 IF SET
;00 DATI NPR TO ADDRESS
SWALIT TILL RDY SET
;WAS WRONG ADDRESS LINES ERROR BIT SET?

;TEST NEXT ADDRESS IF NO
;ERROR: TEST OF WRONG A LINES ERROR BIT FAILED
;BECR2 BIT 9 FALSELY SET
;TYPE PC OF ERROR MSG
;RESTORE TRAP CATCHER

SEQ 0049

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkuss P11
27-APR-78 15:02

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
201
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044

2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055

MACY11
TM
A

AR A

&
L
30A(1052)
27-APR-78
15:03
PAGE 39
TEST WRONG GRANT
AND NO GRANT OR NOT ONE GRANT ERROR BITS DO NOT SET
AR

;+TEST 31

AR AR AR AR AR

SEQ 0050

R Rttt
iRttt
it
lis])

TEST WRONG GRANT

AND NO GRANT OR NOT ONE GRANT ERROR BITS DO NOT SET

;*THE UBE IS SET UP TO DO ONE DATI XFER/REQUEST.
ALL
;*THE POSSIBLE COMBINATIONS OF BR AND NPR LEVELS ARE THEN
;*EXERCISED.
AFTER EACH, THE ERROR BITS AND INTERRUPTS ARE
s*CHECKED FOR.
FINALLY, A DATI NPR IS DONE FROM A BUFFER
;*AREA WITH THE INTERRUPT ON DONE BIT SET.
UPON INTERRUPT, THE
s*ERROR BITS ARE CHECKED.

JoRktktRARARRRRACRRNCRORRONCERERRRCOROCEOROARNRRNARNRRRONRAROAROOROENRORTY

012372
012374
012400
012404
012412
012420
012426
012434
012442
012450
012454
012460
012466
012470
012476
012500
012506
012510
012512
012514
012522
012524
012532
012534
012540
012542
012550
012556
012560
012566
012570
012576
012600
012602
012610
012612
012614
012620
012622
012624
012632
012634
012636
012642
012644
012646

000004
012706
004767
012777
012777
012737
012777
012777
062777
005037
004767
032777
001425
032777
001062
032777
001066
000743

001100
003564
002000
012512
000340
177777
030010
000003
177776
003564
000076

TST31:

170112
170112
177776
170064
170060
170054

170030

002000

170020

017767

170006

166472

017767

167774

166462

004767
000460
012777
012777
000001
032777
001015
032777
001441

003670

104100

104077

104104

;SET UP UBE TO DO 1 DATI XFER/REQ.
JSET UP FOR INTERRUPTS
sLOCK OUT INTERRUPTS
sSET UBE TO DO 1 CYCLE

ADD #3,3BECR1

sHAVE UBE DO NEXT LEVEL OF REQUEST

MOV #BUFF1,3BEBA
CLR
S#PSY
JSR PC,CRDY

T25L01:

T25L02:

000040

167740

T25L06:

002000

167730

017767

167716

166404

004767
000430

003610

017767

167674

104100

104103
104102
004767

000417
104100
017767

166362

sALLOW DATA XFERS VIA BR AND NPR LEVELS
SWALT TILL RDY SET

sHAVE ALL REQUEST LEVELS BEEN EXERCISED
;BRANCH [IF YES
;WAS WRONG GRANT ERROR BIT SET?
;BRANCH TO ERROR IF SET
;WAS NO GRANT OR NOT ONE GRANT ERROR BIT SET?
;BRANCH TO ERROR IF YES
;GO TEST NEXT LEVEL

;ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED
:SAVE ERROR BITS

sFALSELY INTERRUPTED CPU

ERROR

D68

;WITH BECRI1=

s SAVE BECR1

;TYPE PC OF

ERROR MSG

BR T25L08

:GO RESTORE TRAPS

MOV #2143,8BECR1T

;HAVE UBE DO 1

MOV #T125L06,@INTVEC

;SET UP NEW INT.

AREA

DATI NPR AND INT ON DONE

WAIT
BIT #40,@BECR2

;WAIT TO BE INTERRUPTED
;WAS WRONG GRANT ERROR BIT

MOV @BECR1,SREGO

s SAVE BECR1

BNE T25L07
BIT #2000,8BECR2
BEQ T25L08
ERROR
D64

D65
D66

MOV @BECR1,$REGO

ERROR
ERROR

D67
D66

JSR PC,TERRPC

166340

TO ADDRESS BUFFER AREA

D63

JSR PC,TERRPC
BR T25L08
T25L07: ERROR
D64

T25L03:

sSET UBE

ERROR

ERROR
ERROR

003566
167652

ERROR
D64
MOV @BECRZ,$REGO

JSR PC,TERRPC

167762
167746

104101
104102

BIT #76,8BECRT
BEQ T25L02
BIT #40,3BECR?
BNE T25L03
BIT #2000,aBECR2
BNE T25L04
BR T25L05

MOV @BECR1.$REGO

012560
002143

104100

;RESTORE STACK
;CLEAR UBE REG

MOV #2000,8BECR1
MOV #T25L01,3INTVEC
T25L05: mov
#340,
aNPSW
MOV #177777,8BECC

170036

000040

SCOPE
MOV #STACK,SP
JSR PC,CLRREG

BR T25L08

ERROR
D64
MOV @BECR1,SREGO

SET?

sBRANCH TO ERROR IF WAS
;WAS NO GRANT OR NOT ONE GRANT BIT SET?
;GO RESTORE TRAPS IF WAS NOT
;ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED

:NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET
;WITH INT ON DONE = 1

:TYPE PC OF ERROR MSG
;GO RESTORE TRAPS
;ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED
s SAVE BECR1

;WRONG GRANT ERROR BIT FALSELY SET
;WITH INT ON DONE = 1
;TYPE

PC OF

;GO RESTORE

ERROR MSG

TRAPS

;ERROR: TEST OF
: SAVE BECRI

WRONG GRANT OR NOT ONE

GRANT

FAILED

UNIBUS EXERCISOR MODULE

cZkuss P11

2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102

2103
2104
2105
2106
2107

2108
2109
2110
FARR

012654
012656
012662
012664
012666
012674
012676
012702

DIAGNOSTIC

27-APR-78 15:0?
106103

004767
000407
104100
017767
104101
004767
004767

30A(1052
27-APR-78
15:03
PAGE 40
TEST WRONG GRANT
AND NO GRANT OR NOT ONE GRANT ERROR BITS DO NOT SET
ERROR

003546
167632

MACY11
31

D67

;WRONG GRANT ERROR BIT FALSELY SET

JSR PC,TERRPC

166320

003526
003314

:TYPE

BR T25L08
T25L04: ERROR
D64

PC OF

ERROR MSG

;GO RESTORE TRAPS
;ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED

MOV @BECR1,$REGO
ERROR
D65
JSR PC,TERRPC
T25L08: JSR PC,RCATCH

; SAVE BECR1
+NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET

;TYPE PC
sRESTORE

OF ERROR MSG
TRAP CATCHER

JintRttttRdRERRRRRORORRNCRRCERRNRRRNRROARORROERARROARARRARNARRANRANCEARARS

J*TEST 32

TEST TIME DELAY AND BUSS LATENCY ERROR BITS

;*THE BUS LATENCY ERROR BIT

IS SET BY DOING A RELEASE

;*BUS IMMEDIATE FUNCTION AND SETTING THE TIME DELAY BIT.

THE
:*ERROR BIT AND BIT 15 OF BECR1 ARE CHECKED TO SET.
THE
s*ERROR INTERRUPT IS THEN CHECKED FOR AND THE ERROR CONDITION
;*]S TESTED TO CLEAR.
MR

012706
012710
012714
012722
012726
012734
012742
012750
012752
012754
012760
012762
012770
012772
012774
012776
013002
013010
013012
013014
013016
013022
013026
013030
013032
013034
013040
013042
013046
013054
013056

013060
013062
013066
013072
013076
013104
013112

000004

012706

012737
004767
012777
012777
012777
005000
005200
022700
001374
032777
01004
104106
106107

004767
032777
001004
104106
104075
004767
005037
000240
104106
104072
004767
000412
005077
032777
001404
104106
104110
004767
004767
004767
012777

012777
012777

001100
000340
003242
040000
013042
006003

003426
100000

AR AR

177776

167572
167570
167554

000400
000100

ARA

TST132:

003406
177776

JSR
MOV
MOV
MOV
CLR
T26L02: INC

JSR PC,TERRPC

BIT #100000,aBECRT
BNE T26L04
ERROR
D70
ERROR
D61
JSR PC,TERRPC
T26L04: CLR a#PSw

003370

003342
003076
003176

1727777

030010
002041

PC,CLRREG
#40000,3BECR?
#T26L01,@INTVEC
#6003,3BECR1
RO
RO

CMP #400,R0
BNE T26L02
BIT #100,3BECR2
BNE T26L03
ERROR
D70
ERROR
D71

T26L03:

T26L01:

1674614
1674610
167404

D70
D58

iRl

ittt

ssiltsts

JRESTORE STACK
sLOCK OUT INTERRUPTS
;CLEAR UBE REG
sSET TIME DELAY BIT
:SET UP FOR INTERRUPTS
;D0 RELEASE BUS IMMED.

S INITIALIZE RO

sDELAY TO WAIT FOR
¢BUSS LATENCY ERROR BIT
;70 SET
;WAS BUSS LATENCY ERROR BIT SET?
¢BRANCH [F YES
sERROR: TEST OF TIME DALAY AND BUSS LATENCY FAILED
;70 SET BIT 6 OF BECRZ2
;TYPE PC OF ERROR MSG
;WAS ERROR BIT SET?

sBRANCH IF YES
;ERROR: TEST OF TIME DELAY AND BUSS LATENCY FAILED
;70 SET BIT 15 OF BECR1
;TYPE PC OF ERROR MSG
;ALLOW ERROR INTERRUPTS
;UBE

SHOULD

INTERRUPT

;ERROR: TEST OF TIME DELAY AND BUSS LATENCY FAILED
;7O INTERRUPT CPU

JSR PC,TERRPC
BR T26L05
CLR @BERE
BIT #100,8BECR2

:TYPE PC OF ERROR MSG
:GO TO END OF TEST
sCLEAR ERROR CONDITION
;WAS ERROR CLEARED?

JSR PC,TERRPC
JSR PC,CLRREG

:TYPE PC OF ERROR MSG
:CLEAR ALL UBE REG
sDISREGARD ERROR INTERRUPTS
:HAVE UBE DO DATI
;S0 BUSS LATENCY REG
+HOLD FLOP CLEARED

BEQ T26L05
ERROR
D70
ERROR
D72
T26L05:

SCOPE

ERROR
ERROR

167452

ARl

MOV #STACK,SP

NOP

167462
ooo10¢

ARl

MOV #340,34PSV

167536

167514

JSR
MOV
MOV
MOV

PC,DINY
#177777,8BECC
#BUFF1,@BEBA
#2041,38BECRT

;BRANCH [F YES
;ERROR: TEST OF TIME DELAY AND BUSS LATENCY FAILED
;70 CLEAR BIT 6 OF BECR?

SEQ 0051

UNIBUS EXERCISOR MODULE

CZKkuBB.P11

013120
013124
013130

DIAGNOSTIC

27-APR-78 15:02

004767
005077
004767

MACY11
132

30A(1052)
27-APR-78
15:03
PAGE 41
TEST TIME DELAY AND BUSS LATENCY ERROR BITS

003120

JSR PC,CRDY
CLR @BERE
JSR PC,RCATCH

167400
003066

SEQ 0052

;WAIT FOR RDY SET
;CLEAR LATENCY ERROR IF
sRESTORE TRAPS

SET

R840 RA0RARRRRARARRRASRRRRRRRRRRR2ARR2RR2R0
2022022 ]

J*TEST 33
NN

013134
013136
013142
013146
013152
013156
013164
013172
013200
013204
013206
013210
013212
013216

000004
012706
004767
004767

005037
012777
012777
012777
004767
005704
001403
104124

004767
004767

001100
003022
003122
177776
177776
040000
000003
003040

TEST MULTIPLE INTERRUPTS SET RDY BIT

TST33:

SCOPE

167334
167334
167324

T31L01:

AN R R R R R A AR R R R AR AN R AL AR RN R R AR AN NN

MOV #STACK,SP

sINITIALIZE

JSR
JSR
CLR
MOV
MOV
MOV
JSR
TST

;CLEAR ALL UBE REG
;DISREGARD INTERRUPTS
;ALLOW INTERRUPTS
;HAVE UBE DO 2 CYCLES
;DO TIME DLY
;HAVE UBE INT. VIA BRé
;CHECK FOR RDY SET
;WAS RDY SET?

PC,CLRREG
PC,DINT
a#PSW
#177776,8BECC
#40000,aBECR2
#3,3BECR1
PC,CRDY
R4

BEQ T31L01
ERROR
D84

003212
003000

JSR PC,TERRPC
JSR PC,RCATCH

STACK

sBRANCH [F YES
ERROR:TEST OF MULTIPLE INTERRUPTS FAILED TO SET RDY
;TYPE PC OF

ERROR MSG

JRESTORE TRAP CATCHER

cokRRRNARREANRRARRAORRACEACOERNCOERRANRRARAERRARRARARARANRARANAOANRSLY

J*TEST 34
M

TEST POWER DOWN SEQUENCE

;*THE

POWER DOWN TEST

IS ONLY DONE

SW4=1,

;*THE POWER DOWN IS TESTED FOR AND THEN THE POWER UP

;*]S TESTED.

AN INTERNAL REG RO COUNTS FOR A TIME >150

;*MS TO SEE IF THE CPU GETS POWERED UP.
THE PROGRAM
:*THEN WAITS FOR A TIME >150MS TO SEE IF THE CPU
;*GETS POWERED DOWN AGAIN.

JoRAERARRRNAEEARAERCRRERARRAAARRCRERENRANROOARNNAARRONNRRROARANARRES

2159
2160
2163
2164
2165
2166
2167

013222
013224
013232
013240
013242
013250
013254
013260
013264
013272
013300
013306
013310
013312
013314
013320
013322
013324
013332

013334
013336

013340
013342
013344

000004
012767

032777
001516

012737
012706
013746
013746
012737
012737
012777
000240
104111
106112
004767

000450
022626
012737
005000
00501
005200
005700
001375
005201

000001
000020

166002
165732

000340
001100
000024
000026
013322
000340
000020

177776

TST34:

#1,8$TIMES

000024
000026

167220

MOV
MOV
MOV
MOV
MOV

: SAVE POWER FAIL VECTOR ON STACK
:SAVE FOWER FAIL VECTOR ON STACK
;SET UP FOR POWER FAIL
;SET UP FOR POWER FAIL
sHAVE UBE DO POWER FAIL

3#24,-(SP)
a#26,-(SP)
#T27L01,a#24
#340,34#26
#20,a@BECR?2

ERROR
ERROR

D73
D74

JSR PC,TERRPC

000024

T27L04:

ITERATION

;SEE IF POWER DOWN TO BE TESTED
;.60 TO NEXT TEST IF SWR4 = 0
;LOCK QUT INTERRUPTS

NOP

T27L01:

;.00 1

BIT #20,3SwWR
BEQ
TST35
MOV #340,3#PSV
MOV #STACK,SP

003110

013366

SCOPE

Mov

BR T27L02

CMP (SP)+, (SP)+
MOV #T27L03,a#24

CLR RO
CLR R1
INC
TST

BNE

RO
RO

T27L04

INC R1

s INITIALIZE

STACK

:SHOULD POWER

FAIL

HERE

;ERROR: TEST OF POWER DOWN BIT FAILED
;70 POWER DOWN CPU
;TYPE

PC OF

ERROR MSG

SRESTORE TRAPS

;RESTORE STACK
;SET UP FOR POWER UP SEQUENCE

;INITIALIZE COUNTER
JINITIALIZE COUNTER

sCOUNT FOR A TIME
;GREATER THAN 150 MS

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZxuBB.P11
27-APR-78 15:02

2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
g}gg

013346
013352
013354
013356
013360
013364
013366
013374
013376
013400
013402
013404
013406
013410
013414
013416
013420
013422
013426
013430
013432
013440
013442
013450
013452
013454
013456
013462
013466
013472

022701
001371
104111
104113
004767
000426
012737
005000
005001
005200
005700
001375
005201
022701
001371
104111
104114
004767
000405
022626
012737
000001
032777
001004
104111
104115
004767
012637
012637
005077

MACYTY1
T34

000004

003044
013430

000024

T27L03:
T27L06:

000004

003002
013442

000024

000020

167056

002746
000026
000024

T27L0S5:
T27L02:

T27L07:

167030

30A(1052)
27-APR-78
15:03
TEST POWER DOWN SEQUENCE

(MP #4 ,R1
BNE T27L04
ERROR
D73
ERROR
D75
JSR PC,TERRPC
BR T27L02
MOV #T127L05,a#24
CLR RO
CLR R1
INC RO
TST RO
BNE T27L06
INC R1
CMP #4,R1
BNE T27L06
ERROR
D73
ERROR
D76
JSR PC,TERRPC
BR T27L02
CMP (SP)+,(SP)+
MOV #T127L02.a#24
WAIT
BIT #20,8BECR?
BNE T27L07
ERROR
073
ERROR
077
JSR PC,TERRPC
MOV (SP)+,a#6
MOV (SP)+,a#2é4
CLR @BECRZ

2199

R R N

558?

J*TEST 35

R R

PAGE 42

SEQ 0053

;1S TIME > 150 ms?
;BRANCH IF NO
JERROR: TEST OF POWER DOWN BIT FAILED
;70 POWER UP CPU
;TYPE PC OF ERROR MSG
sRESTORE TRAPS
JSET UP TO POWER DOWN AGAIN
;COUNT FOR A TIME
;GREATER THAN 150 MS
;1€ TIME > 150 ms?
sBRANCH IF NO
JERROR: TEST OF POWER DOWN BIT FAILED
:TO REPOWER DOWN CPU
;TYPE PC OF ERROR MSG
;G0 CHECK POWER DOWN BIT
JRESTORE STACK
JSET UP TO POWER UP AGAIN
JHAIT TO POWER UP AGAIN
;WAS POWER DOWN BIT SET?
;BRANCH IF YES
JERROR: TEST OF POWER DOWN BIT FAILED
;70 SET BIT 4 OF BECRZ
;TYPE PC OF ERROR MSG
JRESTORE POWER FAIL VECTOR
;CLEAR POWER DOWN BIT
R

R R R N N RN R AR AR AR RN AN R AR R AR AR RORANREER

TEST DCLO CLEARS BECC, BEBA, BECR2 AND BITS 0-6., 7-15 OF BECR1

2202

JoTHIS TEST

2203

2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214

2215
2216
2217
2218
2219
2220
2221
2222
2223

013476
013500
013506
013514
013516
013522
013530
013536
013544
013550
013556

013562
013564
013570
013574
013602
013610
013616
013624
013632

000004
012767
032777
001002
000167
012777
012777
012777
004767
012777
005037

000001
013746
013746
012777
012777
012777
012737
012777
000001

000001
000020

000410
177777
000003
160000
002524
002041
17777¢
000024
000026
177777
177777
077776
013634
040037

165526
165456

166770
166770
166756
166746

166720
166710
166706
000024
166674

N R

[S ONLY DONE
N R R R

R AN P

TST35:

SCOPE
MoV
#1,8TIMES
BIT #20,8SWR
BNE T28L10
JAP TSTB
T28L10: MOV #177777.8BECC
MOV #3,9BECR2
MOV #160000,8BEBA
JSR PC,DINT
MOV #2041,8BECR1
CLR af#PSW

WAIT
MOV 8424 ,-(SP)
MOV @#26,-(SP)
MOV #177777,8BEBA
MOV #177777,8BECC
MOV #77776,3BECRT
MOV #T28L01,a#24
MOV #40037,8BECR2
WAIT

Sw4=1.

A N A

R RN PR A PR PN R NN R AN RN

AN RN

;.00 1 ITERATION
JSEE IF POWER DOWN TO BE TESTED
;BRANCH [F SWé4=1
;G0 TO NEXT TEST
sHAVE UBE DO 1 CYCLE
;SET ADDRESS BITS 16, 17
;LOAD UBE WITH ADDRESS THAT RETURNS NO SSYN
JDISREGARD INTERRUPTS
sHAVE UBE DO DAT] SO CCOVF=1 AND NSSYN ERROR = 1
sALLOW INTERRUPTS

JWALIT TILL ERROR INTERRUPT
JSTORE POWER VECTOR ON STACK
:STORE POWER VECTOR ON STACK
;LOAD ADDRESS REG WITH ALL """
;LOAD CYCLE COUNT REG WITH ALL "1
;LOAD BECR1 WITH ONES
;SET UP FOR POWER DOWN
;LOAD BECR2 WITH ONES AND DO POWER DOWN
;CPU SHOULD POWER DOWN

UNIBUS EXERCISOR MODULE DIAGNOSTIC
czxuss P11
27-APR-78 15:02

2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252

2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
22N
2272
2273
2274
2275
2276
2277
2278
2279

013634
013636
013644
013646
013654
013662
013666
013672
013674
013702
013706
013710
013716
013722
013724
013732
013740
013746
013750
013756
013760
013764
013766
013774
014002
014010
014016
014020
014024
014026
014034
014042
014044
014046
014054
014056
014062
014066
014070
014076
014104
014110
014112
014116
0146122
014126
014132

022626
012737
000001
042777
016767
005067
005777
001026
016767
005777
001020
016767
005777
001012
016767
012767
022777
001407
017767
104116

004767
000454
012737
012777
012777
032777

001774
005037

000240
012737
052777
000001
022626
012737
000001
005077

005777
001413
016767
017767
005067
104116

004767
004767
012637
012637

013646

00002¢

000020
166640
165332
166626

166652
165332

166622
166614

165312

166612
166604

165276

166574
000200
000200

165262
165260
166556

165240

T28L01:
T28L0S5:

014056

166444
166440

(SP)+,(SP)+

WAIT

;CPU SHOULD POWER UP

:CLEAR POWER DOWN BIT
:SAVE BECC ADDRESS
;SAVE CORRECT DATA

BNE T28L02
MOV BEBA,SREGO

:BRANCH IF NO
: SAVE BEBA ADDRESS

; (BECC)=0?

; (BEBA)=0?

:BRANCH IF NO

MOV BECRZ,SREGO
TST IBECRZ

:SAVE BECR2 ADDRESS
;WAS BECR2 CLEARED?

MOV BECR1,S$REGO
MOV #200,$REG?

:SAVE BECR1 ADDRESS
: SAVE CORRECT DATA (BECR1)

T28L02

:BRANCH IF NO

CAP #200,8BECR1
BEQ T28L03
T28L02: MOV @SREGO,SREGT
ERROR
D78

;WAS BECR1 CLEARED?
;BRANCH [F YES
:SAVE BAD DATA
;ERROR: DCLO FAILED TO CLEAR REG

T28L06:

;TYPE PC OF

BR T28L04
MOV
MOV
MOV
BIT

#340,34PSW
#40000,8BECR2
#6003,3BECR1
#100,38BECR?

BEQ T28L06
CLR 9#PSW

000024

T28L08:

T28L09:

000024

SWALIT TILL IT SETS
INTERRUPT

:SET UP FOR POWER DOWN

;SET POWER DOWN BIT

CMP (SP)+,(SP)+
MOV #T728L09,3#24

;RESTORE STACK
;SETUP FOR POWER UP

WAIT

;WAIT

FOR

POWER

WAIT

:CPU

BEQ T28LO04

¢BRANCH [F YES

CLR @BECRZ
TST @BECR?

SHOULD

TO SET LATENCY ERROR BIT

INTERRUPT

TO BE

BIS #20,8BECR?

IGNORED

DOWN

POWER UP

;CLEAR POWER DOWN BIT
;WAS BUSS LATENCY ERROR BIT

MOV BECRZ,S$REGO
MOV @BECRZ,$REGT
CLR SREG2

:SAVE REG ADDRESS
:SAVE REG DATA
:SAVE CORRECT DATA

JSR PC,TERRPC
JSR PC,RCATCH
MOV (SP)+, 8426
MOV (SP)+,a#24

;TYPE PC OF ERROR MSG
;RESTORE TRAP CATCHER
;RESTORE POWER VECTOR
;RESTORE POWER VECTOR

ERROR

T28LO04:

;LOCK OUT INTERRUPTS
;SET TIME OLY BIT
;DO RELEASE BUSS IMMED.
;TEST LATENCY ERROR BIT

;ALLOW

MOV #T728L08,ar24

166464

ERROR MSG

;GO RESTORE VECTORS

sALLOW LATENCY ERROR

NOP

000024

D78

;ERROR:

CLEARED?

DCLO FAILED TO CLEAR REG

TST8:
R

AR A

;'TESI 36

. *

AR ARl
RRRdRRRRRRRY

TEST SIMULTANEOUS GO ADDRESS

S«THE UBE IS SETUP TO INTERRUPT ON LEVEL 7 AND
“«THEN TOLD TO GO VIA THE SIMULTANEOUS GO.
:*INTERRUPT INDICATES AN ERROR.
AL AARAA AR

AR AR

BE(CR!

STACK

BIC #20,3BECR?
MOV BECC,$SREGO
CLR SREG?

BNE

T28L03:

7-15 OF

;SETUP FOR POWER UP

JSR PC,TERRPC

VT776
14524
v 514
166510

JRESTORE

TST @BEBA

166432
166424
165110
002312
002100
000026

CMP

MOV #T28LOS,a#24

BNE T28L02

177776
014044
000020

30A(1052)
27-APR-78
15:03
PAGE 43
TEST DCLO CLEARS BECC, BEBA, BECR2 AND BITS 0-6,

TST @BECC

002644
000340
040000
006003
000100

MACY11
T35

A Rttt
RRd)

SEQ 0054

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxuss PN
27-APR-78 15:02

2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293

014132
014134

014140

014146
014152
014160
014166
0164172
014200
014202
014204
014210

000004
012706
012737
004767
012777
012777
005277
012737
000240

001100
000340
002016
014210
000020
166342
000300

004767
004767

002220
002006

104025

D
5
27-APR-78
15:03

MACY11
136

30A(1052)

TST36:

SCOPE
MOV #STACK,SP

TEST

MOV
JSR
MOV
MOV

177776

166352
166336

SIMULTANEOUS GO ADDRESS

#340,34PSW
PC,CLRREG
#TO9LO1,@INTVEC
#20,@BECRY

INC @BEGO
MOV #300,a3#PSW

177776

NOP

ERROR

TO9LO01:

D21

JSR PC,TERRPC
JSR PC,RCATCH

PAGE 44

SEQ 0055

;RESTORE STACK
sLOCK OUT INTERRUPTS
;CLEAR ALL UBE REGS.

;SETUP TO RECEIVE INTERRUPT
;SETUP TO DO BR=7
;START SIMULTANEOUS GO
;ALLOW INTERRUPTS
;UBE

SHOULD

;ERROR:
;TYPE

INTERRUPT

HERE

SIMULTANEOUS GO FAILED
OF

ERROR MSG

;RESTORE TRAP CATCHER

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZxUBB.P11
27-APR-78 15:02

MACY11
137

E
5
30A(1052)
27-APR-78
15:03
DYNAMIC TEST OF UBE

PAGE 45

2294

.':"".'""""""""'"""""""""'."'Qi""'.’""""'

2295

;*TEST 37

DYNAMIC TEST OF UBE

2296
2297
2298
2299
2300
S%g;

X
;*THIS TEST EXERCISES THE MOST HARDWARE IN THE
;*UBE AT ONE TIME.
THE EXERCISOR IS SET UP TO DO EIGHT
;*DATOB ON DATIP XFERS VIA NPR AND INTERRUPT ON DONE.
J*AFTER INTERRUPTING, A BUFFER AREA IS EXAMINED TO SEE If
;*THE OPERATIONS WERE DONE PROPERLY.
THE ABOVE IS THEN

2303

;*REPEATED 100 TIMES.

2304

2305

2306
2307

.';'Q"'*""'"""'"""'"""""'""'...'."".....'.'.""

014214
014216

000004
012767

000001

165010

TST37:

SCOPE
Mov

#1,$TIMES

::00 1

ITERATION

SEQ 0056

UNIBUS EXERCISOR MODULE

cZkusB P11

2308
2309
2310
231
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329

2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363

014224
014230
014232
014236
014242
0146246

014252
014254
014262
014270

014276
014304

014306
014314
014316
014320
014322
014324
016326
0146332
016334
014336
014342
0146346
014350
014352
014356
014360
014362
014366
014370
014372
014376
014402
014410
014412
014414
014420

DIAGNOSTIC

27-APR-78 15:02

004767
005002
005037
012700
012720
020027
001373
012777
012777
012777
012777
005000
016767
005200
005700
001372
104120
104072

177776

014334
030010

166250

177760

042561

013516

013514

27-APR-78

DYNAMIC TEST OF UBE

T129L04:
T29L01:

166232
166222
166220

T29L06:

15:03

JSR PC,CLRREG
CLR R2
CLR #PSW
MoV #BUFF1,RO
MoV #52525,(R0O)+
CMP RO,#BUFF1+22
BNE T29L01
Mov #729L02,8INTVEC
MoV #BUFF1,3BEBA
MOV #177760,3BECC
MOV l82561.385CR1
CLR R

Mov BUFF1+20,BUFF1+20

INC RO
RO
129L06
ERROR
080

TSY
BNE

ERROR

D058

PAGE 46

SEQ 0057

JCLEAR UBE REG
JINITIALIZE COUNT
;ALLOW INTERRUPTS
JGET BUFFER ADDRESS
;LOAD BUFFER
JENTIRE BUFFER LOADED?
JBRANCH IF NO
;SET UP FOR INTERRUPTS
;LOAD BUFF ADDRESS IN UBE
JSET UBE TO DO 16 CYCLES

;00 DATOB ON DATIP, AND INT. VIA BR7 WHEN DONE

JINITIALIZE COUNTER
;D0 BACKGROUND NOISE PATTERN

;WAIT FOR COUNTER RO

;70 OVERFLOW. IF DOES
;UBE FAILED TO INTERRUPT
JERROR: DYNAMIC TEST OF UBE FAILED
;7O INTERRUPT CPU
:TYPE PC OF ERROR MSG
;GO RESTORE TRAPS CATCHER
JRESTORE STACK
;GEY BUFFER ADDRESS

004767
000432
022626
012700
022710
001011
005720
022700
001371
005202
020227
001323
000413
010067
011067
012767

002076

004767
004767

002010
001576

T129L07:

SIIIILIIITITI0 0007000000000 0000000000 ir7r710717711771714017111771111111717111
JRETURN ROUTINE TO TEST NEXT UBE BEFORE DO LAST TEST
SILIILITIP0P7 0000000000000 000000007070 7710007770770770777777700700707177171777
SCOPE
;SCOPE FOR PREVIOUS TEST
NUBE:
JSR PC.CLRREG
;CLEAR UBE SO NO INT.

104120
104121

T29L02:

125652

T29L05:

030030

1646616
164614
125652

001536

014436

012767
012767

014460
014460

cmMp

(SP)+,(SP)+

CmMpP
BNE
TSY
Cmp
BNE

#125652, (R0O)
T29L03
(RO)+
#BUFF1+20,R0
T29L05
R2
R2.#100
129L04
T29L07
RO, SREGO
(RO) ,$REG1
#125652,8REG2

Mmov #BUFF1,RO

T29L03: MoV
Mov
mov

164610

166740

164456

BR T29L07

INC
CmP
BNE
BR

000100

000004
004767
000167

105367

JSR PC,TERRPC

030010

014424
014426
014432
014444
014452

137

001740

030010
052525
030032

30A(1052)

MACY1

164474
164470

ERROR
ERROR

D80
D81

JSR PC,TERKRPC
JSR PC.RCATCH

:WAS DATA SHIFTED PROPERLY?
;BRANCH TO ERROR IF NO

sINC RO BY 2
;AT

END OF

BUFFER?

;BRANCH 1F NO

JUPDATE COUNT
;WAS UBE EXERCISED 100 TIMES?
;BRANCH IF NO
:RESIUNL

TAMLC

;TYPE

TeADS

: SAVE ADDRESS
; SAVE BAD DATA
s SAVE CORRECT DATA
;ERROR: DYNAMIC TEST OF UBE FAILED
;70 LOAD PROPER DATA
PC

ERROR MSG

;RESTORE TRAP CATCHER

NUBET:

JMP ACALC

;GO SEE

LAST:

MOV #LAST1.SLPADR

;SETUP LOOP ADDRESS FOR LAST TEST
;SETUP LOOP ON ERROR ADDRESS FOR LAST TEST
sADJUST TEST NUMBER

MOV #LAST1.SLPERR
DECB STSTNM

AR AR

TeTEST 40
| ]

TEST

[F MORE uBE

2R0R2ARRRRRRRRR

PASSING OF

GRANTS

S«THIS TEST IS ONLY RUN IF THERE ARE MORE THAN ONE

2022002

]

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZxuBs P
27-APR-78 15:02

2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419

MACY11
T40

30A(1052)
TEST

27-APR-78

PASSING OF

15:03

PAGE 47

SEQ 0058

GRANTS

J*UBE.IT IS COMPOSED OF TWO PARTS.THE FIRST PART CHECKS THAT
;*A HIGHER ELECTRICAL PRIORITY UBE WITH ALL BR LEVELS =1

;*AND GO BIT =0 WILL PASS A GRANT TO THE NEXT LOWER ONE.

s*THEN THIS SAME
;*AND THE GO BIT

UBE IS CHECKED
[S ENABLED.

TO ALSO PASS

;'z:{ORI}Y.
M
ORITY,

WILL

PASS

THE

GRANT

UBE

WITH

THE

LOWEST

ELECTRICAL

A GRANT WHEN ALL

BR=0

M
THE SECOND PART VERIFIES THAT A UBE WITH A HIGHER ELECTRICAL PRIORITY
;*BUT DOING A LOWER BR THAN A UBE OF LOWER ELECTRICAL
THE

UBE

LOWER ELECTRICAL

;*NOTE:

THE

ot
o

ON THE BUS MUST BE SWAPPED WITH A HIGHER
ONE AND THEN THE ENTIRE PROGRAM RERUN INORDER

i
NP

014456
014460
014464
014466
014474
014476
014502
014510

000004
005767
001013
032777
001005
104401
012767
000167

AAL AL

TST40:

166070

LAST1:

010000

164476

027304
000001
001332

164524

THAT

ITS

ARARA

PASSING GRANT
R

RRRARRR

SCOPE

TST BEZ2BD
BNE T30L01

BIT #SW12,aSWR
BNE 1%
1%:

TYPE ,MSGI1
MOV #1,$TIMES
JMP SEOP

LOGIC

PRIORITY

TESTED.

lltsl

2002002022222

;1S THERE MORE THAN ONE EXERCISOR?
JBRANCH IF YES
;INHIBIT TYPEOUTS?
sBRANCH [F YES

;PASSING OF GRANTS NOT TESTED WITH 1 EXERCISOR
;DO 1 ITERATION IF THIS TEST NOT DONE
:GO TO END OF TEST

;DETERMINE ELECTRICAL PRIORITY OF EXERCISORS
014514
014520
014526
014532
014540
014546
014552
014560
014564
014566
014574
014600
014606
014612
014614
014622
014626
014634
014640
014642
014650
014656
014664
014670
014672

014700
014704
014706
014714
014720

012706
012777
016700
012760
012777
016700
012760
005767
001423
012777
016700
012760
005767
001410
012777
016700
012760
012700
005001
012737
012777

012777
005767
00141
012777
005767
001403
012777
005277
005037

001100
014726
166020

166024

T30L01:

MOV #STACK,SP

JINITIALIZE

MOV
MOV
MOV
MOV
MOV

JSET UP UBEZ

MOV #T30L02,8BE1VEC
BE1VEC,RO
#340,2(RO)
#T730L03,aBEcvE(
BEZ2VEC,RO
#340,2(RO)

000340
014742

000002

000340
166022

000002

014756

166012

000340
166012

000002

MOV #T730L04,aBE3VEC
MOV BE3VEC,RO
MOV #340,2(RO)

014772

166002

BEQ T30L21
MOV #T30L05,BE4VEC

000340
030010

000002

000340
00002¢
000020
165710

177776
165666
165676

000020

165700

000020

165702

166016

166006

165776

165712

165614
177776

166022

T30L21:

INTERRUPT HANDLER
INTERRUPT HANDLER

TST BE3VEC
BEQ T30L21

;ARE THERE 3 UBE?
;BRANCH IF NO
;SET UP UBE3 INTERRUPT HANDLER

TST BE4VEC

;ARE

MOV BE4VEC,RO
MOV #340,2(R0O)
MOV #BUFF1,R0

CLR
MOV
MOV
MOV
TST

R
#340,34PSW
#20,8BE1(R1
#20,@BE2CR1
BE3CRI

BEQ T30L07

MOV #20,@BE3CRY
TST

BE4CR]

BEQ T30L07
T30L07:

;SET UP UBE1

STACK

MOV #20,@BE4CRT
INC @BEGO
CLR 8#PSW

THERE

4 UBE?

;BRANCH [F NO
JSET UP UBE4 INTERRUPT HANDLER
;GET BUFFER ADDRESS
;INITIALIZE COUNT OF INTERRUPTS
;SET PSW PRIORITY=7
;LOAD FIRST UBE TO DO INT. VIA BR7
:LOAD SECOND UBE TO DO INT. VIA BR?
;TEST IF 3 EXERCISORS

;BRANCH [F NO

:LOAD THIRD UBE
;TEST

TO DO

& EXERCISORS

;BRANCH [F NO

INT.

VIA BR7

:LOAD FOURTH UBE TO DO INT. VIA BR?
JLET ALL EXERCISORS INTERRUPT
;ALLOW INTERRUPTS

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkues.P11
27-APR-78 15:02

2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
24N
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446

2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
247
2472

2473
2474
2475

014724
014726
014732
014740
014742
014746
014754
014756
014762
014770
014772
014776
015004
015006
015010
015014
015016
015022
015024

015026

000001
012720
012777
000421
012720
012777
000413
012720
012777
000405
012720
012777
022626

005201

020167
001403
005037
000001
024040
011067

002536
006002

002554
006002
002572
006002
002610
006002

165604

MACY11
140

H
S
27-APR-78
15: 03

30A(1052)
TEST

T30L02:

PASSING OF

GRANTS

WAIT

MOV #BE1BD, (RO)+
MOV #6002,3BE1CRY

BR T30L06

165606

T30L03: MOV #BEZ2BD, (RO)+
MOV #6002,3BE2(CR1

165610

T30L04: MOV #BE3BD,(RO)+
MOV #6002,8BE3CR1

165612

BR T30L06

T30L0S:

T30L06:

165612

177776

BR T30L06

MOV #BE4BD, (RO)+
MOV #6002,aBE4CRY
CMP (SP)+,(SP)¢

INC R1
CMP R1,UCNT
BEQ T30LZ22
CLR a#PSW

T30L22:

012766

WAIT

(PP ~(RO),-(RO)
MoV (RO) ,BUFF1+10

;BUFFER NOW CONTAINS VECTORS
:PART

015032
015036
015040
015042
015046
015054
015056
015062
015070
015076
015102
015106
015110
015116
015120
015126
015130

015136
015142
015146
015150
015156
015162
015166
015170
015174
015200
015204
015212
015220

016700
005300
005001
016102
012772
005721
016103
012773
012773
005273
005037
000240
012737
104122
032777
001022
016367
104401
016746
104402

017367
104401

016746

104402
104401

000167
006373
042773
032773
001726

030010
015200
000002
000006
177776

MOV UCNT,RO

000006

000014
000006

000340

177776

020000

1646044

000014
027156
164046

164056

000006
02613¢

T30L28:

T30L30:
T130L26:

T30L29:

DEC RO
CLR R1

MOV BUFF1(R1),R2
MOV #36,86(R2)
TST (R1)+
MOV BUFF1(R1),R3

MOV #T30L25.,814(R3)

MOV #2,86(R3)

INC 86(R3)

CLR a#PSW
NOP
MOV #340,34PSW

ERROR
D82
BIT #SW13,3SWR
BNE 1%

MOV 14(R3),$REGO
TYPE ,MSG7
MOV
$REGO,-(SP)
TYPOC

164040

MOV @6(R3),$REGI
TYPE

164030

027251
000474
000006
000400
000040

MOV
1%:

000006
000006

SEQ 0059

;WAIT FOR 1ST INTERRUPT
;LOAD BUFFER WITH POINTER TO ADDRESS OF UBE
;SETUP FIRST UBE TO DO A FUN 3
;6O SEE IF ALL UBE INTERRUPTED
;LOAD BUFFER WITH POINTER TO UBE ADDRESSES

;SETUP SECOND UBE TO DO A FUN3

;60 SEE IF ALL UBE INTERRUPED
;LOAD BUFFER WITH POINTER TO UBE ADDRESS

;SETUP THIRD UBE TO DO A FUN3

;GO SEE IF ALL UBE INTERRUPTED
;LOAD BUFFER WITH POINTER TO UBE ADDRESS

;SETUP FOURTH UBE TO DO A FUN3
JRESTORE STA(K
; COUNT INTERRUPTS
sHAVE

ALL

EXERCISORS

;WAIT

FOR

INTERRUPT

;PUT NEXT

TO LOWEST

INTERRUPTED?

;BRANCH [F YES
;ALLOW NEXT UBE TO INTERRUPT

:DECREMENT RO BY &

IN ORDER OF

ELECTRICAL

PRIORITY POINTER

IN BUFF1+10

PRIORITY

165570

030010
000036

PAGE 48

T30L2S:

,DH6S

$REGT,-(SP)

TYPOC
TYPE ,MSG10

JMP T30L12
ASL 36(R3)

BIC #400,86(R3)
BIT #40,86(P3)
BEQ T30L26

:GET COUNT OF UBE
;ADJUST COUNT
;CLEAR INDEX REG
;GET PTER TO ADDRESS OF HIGHER PRIORITY UBE

;SET ALL BR =1

sUPDATE

[INDEX

;BRANCH

[N THIS UBE

;GET PTER TO ADDRESS OF NEXT LOWER PRIORITY UBE
;SET UP FOR INT.
;SETUP LOWER PRIORITY UBE FOR BR4
;HAVE UBE INT.
;ALLOVW INT,
;SKOULD INT. HERE
;LOCK OUT INT.
;ERROR:TEST OF PASSING GRANTS FAILED
:INHIBIT ERROR TYPEOUTS?
YES

:SAVE INT. VECTOR
;UBE WITH INT. VECTOR:

;;SAVE SREGO FOR
;.60 TYPE=--OCTAL
: SAVE (BECR1)
;WITH BECR1=
;:SAVE SREG1 FOR
:.60 TYPE--OCTAL

TYPEOUT

ASCIICALL DIGITS)

TYPEOUT
ASCIICALL DIGITS)

: SHOULD HAVE INT.
;GO TO END OF TEST
;D0 NEXT BR LEVEL
sCLEAR SHIFTED RDY BIT
;ALL BR TESTED?
:BRANCH [F NO

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P1
27-APR-78 15:02

2476
2477
2478
gzgg

015222
015230
015236
015244

012773
012772
012772
000711

015246
015116
000001

000014
000014
000006

2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
gzg%

015246
015252
015260
015266
015270
015276
015302
015306
015310
015316
015320
015322

006373
042773
032773
001703
012772
005037
105772
100375
012737
005300
005700
001247

000006
000400
0300040

000006
000006

0060G3
177776
000006

000006

000340

177776

2494
2495
2496
26497
26498
2499
2500
2501
2502

015324
015330
015334
015340
015344
015346
015352

012700
012720
012720
022700
001371
016700
016701

000510
015504
000340
001000

2505
2506
2507
2508
2509

015372
015400
015406
015412
015416

012770
012771
005277
005037
000001

015504
015420
165122
177776

2503
2504

2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531

MACY11
140

T30L27:

1%:

5
1
30A(1052)
27-APR-78
15:03
TEST PASSING OF GRANTS

PAGE 49

MOV #T30L27,a14(R3)
MOV #T30L29,3814(R2)
MOV #1,86(R2)
BR T30L30

;SETUP FOR INT.
:SETUP FOR ERROR INT.
;HAVE HIGHER UBE TRY TO INT.
;LET LOWER UBE INT.

ASL @6(R3)
BIC #400,36(R3)
BIT #4),36(R3)
BEQ T30L26
MoV #6003,36(R2)
CLR Q#PSW
TSTB @86(R2)
BPL 1%
MOV #340,3#PSW
DEC RO
TST RO
BNE T30L28

.00 NEXT LEVEL BR
;CLEAR SHIFTED RDY
;ALL BR TESTED?
:BRANCH [F NO
;HAVE HIGHER UBE DO FUN3
;ALLOW REQUESTS
. 1S UBE DONE?
;BRANCH IF NO
;SET LEVEL =7
sADJUST UBE COUNT
;ALL UBE TESTED?
;BRANCH IF NO

SEQ 0060

JPART 2

015356
015364

015420
015622
015426
015434
015442
015444
015450
015452
015456
015460
015464
015470
015472
015476
015502
015504
015506
015514
015522
015530
015536
015540

012770
012771

022626
006371
042771
032771
001761
020067
00151
020067
001005
016700
016701
000732
016700
016701
000725
022626
016067
012767
016167
032771
001404
012767

MOV
T30L09: MOv
MOV
CMP

012436
012434

000002
000004

000006
000400
000040

000006
000006
000014
000014

012350

012332
012326
012324
01231¢
012314

000014
000004
000014
000004

163500
163474
163470
000006

000005

163454

;GET FIRST POSSIBLE VECTOR AREA
sSET UP VECTOR AREA TO HANDLE DUUBLE INTERRUPTS
;SET PRIORITY = 7
;AT END OF AREA?
:BRANCH IF NO
;GET HIGHEST PRIORITY UBE ADDRESS POINTER
;GET NEXT PRIORITY UBE ADDRESS POINTER

MOV #T30L08,814(RO)
MOV #T30L10,814(R1)
INC @BEGO
CLR #PSW
WAIT

;SET UP HIGHER PRIORITY UBE VECTOR FOR DOUBLE INT.
;SET UP FOR INTERRUPT FROM NEXT LOWER ELEC. PRIORITY UBE
:START INTERRUPT
;ALLOW INTERRUPTS

T30L14: MOV #2,36(R0)
MOV #4,36(R1)
T30L11:

T30L10:
000006
000006

#510,R0
#T130L08, (RO)+
#340,(RO)+
#1000,RO
BNE T30LO09
MOV BUFF1,RO
MOV BUFF1+2,R1

CMP (SP)+,(SP)+
ASL 86(R1)
BIC #400,36(R1)
BIT #40,36(R1)
BEQ T30L11
CMP RO,BUFF1+10
BEQ T3CL12
CMP RO,BUFF1
BNE T30L13
MOV BUFF1+2,R0
MOV BUFF1+4 ,R1
BR T30L14
T30L13: MOV BUFF1+4
RO
MOV BUFF1+6,R1
BR T30L14
T30L08: CMP (SP)+,(SP)+

MOV
MOV
MOV
BIT
BEQ
MOV

14(RO),SREGO
#4,SREGT
14(R1),SREG2
#4,86(R1)
T30L1S
#5,8REG3

;HAVE HIGMER PRIORITY UBE DO BR4
SsHAVE NEXT LOWER ELEC. PRIORITY UBE DO BR5

JRESTORE STACK
JHAVE NEXT PRIORITY UBE INT. ONE LEVEL HIGHER
;CLEAR SHIFTED RDY
;TESTED ALL BR LEVELS?
;BRANCH IF NO
;TESTED ALL UBE POSSIBLE?
sBRANCH IF YES TO CLEAR BECR1 AND RESTORE TRAPS
;JUST TESTED FIRST UBE?
;BRANCH IF NO
sTEST SECOND HIGHEST PRIORITY UBE
;GET THIRD HIGHEST PRIORITY UBE
;GO TEST SECOND HIGHEST PRIORITY UBE
;TEST THIRD HIGHEST PRIORITY UBE
:GET FOURTH HIGHEST PRIORITY UBE
:GO TEST THIRD HIGH PRIORITY UBE
;RESTORE STACK
:SAVE INTERRUPT VECTOR OF BAD UBE
;SAVE BAD BR LEVEL
sSAVE NEXT HIGHER PRIORITY UBE VECTOR
;WAS BR=5?
;BRANCH IF NO
:BR=5

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxuss P11
27-APR-78 15:02

2532
2533
2534
2535
2536
2537
2538
2539
2540
25461
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558

2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
25N
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587

015546
015550
015556
015560
015566
015570
015576
015600
015606
015610
015614
015620
015622
015626
015632
015634
015640
015644

015650

015652
015656
015662
015664
015670
015674
015702
015710
015714
015716
015724

015730
015732
015740
015744
015750
015752
015756
015760
015764
015766
015772
015774
016000
016002
016006

000413
0327
001404
012767
000403
012767
104122
032777
001032

104401
016746
104402
104401
016746
104402
104401
104401
016746
104402
104401
016746
104402
104401
004767
012777
012777
005767
001411
012777
005767
001403
012777
005037
105777
100375
105777
100375
005767
001411
105777
100375
005767

001403

105777
100375

000010

000006

163434

000007

1634626

020000

163364

MACY11
740
T30L15:

T30L16:

T30L17:

027156
163374

;BRANCH [F NO
;INDICATE BR=6
;GO INDICATE ERROR

ERROR
D82
BIT #SW13,aSwR
BNE T30L12

JERROR: TEST OF PASSING GRANTS FAILED
;INHIBIT ERROR TYPEOUTS?
sBRANCH [F YES

MOV #7,3REG3

,MSG7

TYPE

Mmov

$REGO,
- (SP)

,MSG8

TYPOC

163340

$REGT,-(SP)

TYPE ,MSG9
TYPE ,MSG?7
MoV
$REGZ,-(SP)
TYPOC
TYPE ,MSG8
Mov
$REG3,-(SP)
TYPOC
TYPE ,MSG10
JSR PC,TERRP(C
MOV #6003,@BE1CRY
MOV #6003 ,8BE2CR1

027251
000534
006003
006003

164642
164652

006003

164654

TST BE3CR1
BEQ 183
MOV #6003 ,8BE3CR1

006003
177776
164574

164656

BEQ 1%
MOV #6003 ,8BE4CR1

164664

164666

164606

T30L12:

TST BE4CRI

1$:

2s:
3s:

164614

164606

3 ¥

164616
164610

5%:

SEQ 0061

BEQ T30L16
MOV #6,SREG3
BR T30L17

TYPOC

027200

;60 INDICATE ERROR

BIT #10,36(R1)

TYPE

027215
027156
163350

PAGE

Bk T30L17

Mov

027200
163364

30A(1052)
27-APR-78
15: 03
TEST PASSING OF GRANTS

CLR Q#PSW

TSTB @BE1CR1
BPL 2%
TSTB
@BE2C(R1
BPL 3%
TST BE3CR1
BEQ 6%

;JWAS BR=6?

;INDICATE BR=7

;TYPE

FAILING UBE

VECTOR

;TYPE

FAILING UBE

;TYPE

UBE

TEST

;:SAVE SREGO FOR TYPEOUT
;.60 TYPE--OCTAL ASCII(ALL DISITS)

USED

FAILING ONE

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

BR LEVEL

TESTING

::SAVE SREG3 FOR TYPEOUT

;.60 TYPE--OCTAL ASCII(ALL DIGITS)
:TYPE

; SETUP UBE
;SETUP UBE
.ARE THERE
;BRANCH [F
; SETUP UBE
:ARE THERE
;BRANCH [F
;SETUP UBE
SALLOW ALL

;FIRST UBE

ERROR MSG

TO DO A FUN3

3 UBE?

NO
TO DO A FUN3
4 UBE?
NO
TO DO A FUN3

UBE TO DO FUN3
DONE?

:BRANCH IF NO
;SECOND UBE DONE?
;BRANCH IF NO

;ARE

THERE

:BRANCH IF

;THIRD UBE

TST BE4CRY
BEQ 6%
TSTB @BE4CR!

:FOURTH UBE

BPL 5%

::SAVE SREG2 FOR TYPEOUT

TSTB @BE3CR?

BPL 4%

LEVEL

;s SAVE SREG1 FOR TYPEOUT
;.60 TYPE-~OCTAL ASCII(ALL DIGITS)

THREE
NO

UBE?

DONE?

;BRANCH [F NO
JARE THERE & UBE?
JBRANCH IFf NO
DONE?

sBRANCH [F NO

JRESTORE TRAP CATCHER
016010
016014
016020
016022
016024
016026
016032
016034

012700
012701
010120
005020
022121
020027
001372
005767

000510
000512

001000
163072

6$:

MoV
MOV
T30L20: MOV
CLR
CHP
(MP

#510,R0
#512,R1
R1,(RO)+
(RO)+
(R1)¢,(R1)+
RO, #1000

BNE T30L20
TST $PASS

;GET FIRST VECTOR ADDRESS

;PUT ADDRESS OF NEXT LOC IN THIS ONE
;PUT HALT IN NEXT LOCATION
JINC RY BY 4
VECTOR AREA?
;BRANCH [F NO
;FIRST PASS Of PROGRAM?
AT

END OF

UNIBUS EXERCISOR MODULE

CZxuBB.P11

2588
2589

2590

016040
016042

DIAGNOSTIC

27-APR-78 15:02

001002
104401

2606
2607
2608

2609
2610
2611

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

2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643

K
5
27-APR-78
15:03

30A(1052)
TEST

PASSING OF

020353

PAGE

GRANTS

SEQ 0062

BNE $EOP
TYPE ,MSG2

2N
2592
2593
2594
2595
2596
2597
2598
2599
2600

2601
2602
2603
2604
2605

MACY11
T40

;BRANCH IF NO
;ALL EXERCISORS TESTED
;NOTE:TO TEST PASSING OF GRANTS FOR
:THE

LAST UBE,IT

SHOULD BE

;SWAPPED WITH A UBE

;ELECTRICAL PRIORITY
.S8TTL
I

END OF

HIGHER

PASS ROUTINE

R R

s*INCREMENT THE PASS NUMBER (SPASS)
;*TYPE "'END PASS #XXXXX'' (WHERE

;+]F

THERES A MONITOR GO TO |7

XXXXX

IS A DECIMAL NUMBER)

;*IF THERE ISN'T JUMP TO STARTI
016046
016046
016050
016054
016060
016064
016072
016074
016076
016100
016102

0161064
016106
016112

016116
016120
016126
016130
016132
016134

000004
005067
005067
005267
042767
005327
000001
003022
012737
000001

016074
104401
016746

104405
104401
013700
001405
000005
004710

016136
016140

000240
000240

016166

000137
003100
377
015
050040
000043

016142
016144
016144
016146
016150
016153
016160

$EOP:

163060
163154
163046

100000

163040
$EOPCT:

S$ENDCT:

016153
163014
016150
000042

$GET4L2:

000240

377
042412
051501

000
042116
020123

SCOPE
CLR
CLR
INC
BIC
DEC
.WORD
BGT

Mov

$TSTNM

;o IERO THE

$PASS
#100000,8PASS
;PC)*

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

$DOAGN
%PC)*.S(PC)*

JiYES
s sRESTORE

.SENDMG

;;TYPE "'END PASS #"

LSENULL

;.60 TYPE~~DECIMAL ASCII WITH SIGN
;. TYPE A NULL CHARACTER

$DOAGN

;:BRANCH

PC, (RO)

;.60 TO MONITOR

$STIMES

TEST NUMBER

;. IERO THE NUMBER OF

ITERATIONS

COUNTER

.WORD

SEOPCT

TYPE
MoV
TYPDS
TYPE
Mov

8EQ
RESET
: JSR
S$ENDAD
NOP
NOP
NOP
$DOAGN:
JMP
SRTNAD: .WORD
SENULL: .BYTE
SENDMG: <ASClZ

$PASS,-(SP)

ars2 RO

;:SAVE SPASS FOR

TYPEOUT

;:GET MONITOR ADDRESS

IF NO MONITOR

;s CLEAR THE WORLD

;s SAVE ROOM

;. FOR

JACTN
8(PC)+
START1

-1,-1.,0

; :RETURN

;:NULL CHARACTER STRING

<15><12>/END PASS #/

ILTIIITIITE00 0000000007000 00700000000 000007070710107717717117111111111

;SUBROUTINE TO CLEAR ALL UBE REG
016170
016174
016200
016204
016210
016214
016220

005077
005077
005077
005077
005077
005077
000207

164334
164326
164320
164312
164304
164276

SIITTTIITITHETI T

CLRREG:

i iiriiniiniiriniizigiieeiisiiseireeeiiseiiiei

CLR @BERE

;CLEAR ERROR CONDITIONS

RTS PC

;RETURN

CLR
CLR
CLR
CLR
CLR

@BECR2
@BECR1
QBEBA
@BECC
8BEBD

:CLEAR
;CLEAR
;CLEAR
;CLEAR
;CLEAR

BECR2 REG
BECR1 REG, EXCEPT RDY
BEBA REG
BECC REG
BEBD REG

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZkuBB.P11
27-APR-78 15:02

2644

2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670

2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692

2693
2694
2695
2696
2697
2698
2699

30A(1052)

27-APR-78

END OF PASS ROUTINE
ANNLIIIIITIIT

100 r

15:03

PAGE

SEQ 0063

i iniririiieriiirlriirgelreiriiieyiiieerereiesy

s SUBROUTINE TO RESTORE TRAP CATCHER TO UBE VECTOR AREA
016222
016224
016230
016232
016236
016240
016242

010546
016705
005725
010577
005015
012605
000207

AILLIIITTTT LTI LT

164302

RCATCH:

164274

MOV R5,-(SP)
MOV INTVEC,RS
TST(RS)+
MOV RS,3INTVEC
CLR (RS)
MOV (5P)+,RS

e i i i1t iniitilzieiiizgeegeeeeesieeeiceeisey/

:SAVE RS ON STACK
;GET INT. VECTOR
;CALC. INTVEC+?2
;PUT INTVEC+2 IN INTVEC
;PUT HALT IN INTVEC+?
;RESTORE RS

RTS PC

AILITIITTTHLLI0 07700000l iiniriiiriniiiiineeriiiiesiieeieeieieieiiiee/

;SUBROUINE

016244
016246
016250
016252
016256
016260
016264
016266
016272

005004
005005
005205
105777
100405
032705
001771
012704
000207

TO CHECK

IF RDY BIT SET

HILLLIIIP00T0 0000070000700 0 00000800701 700770771711717771717117171777117171711717177

CRDY:
164246

2%:

000200

000001

18:

CLR R4

CLR RS
INC RS

;UPDATE COUNT

BM] 1%
BIT #200,R5
BEQ
28
MoV
#1,R4

:BRANCH IF SET
;WAITED >100 MICROSECS?
;CONTINUE TO LOOK FOR RDY IF
sSET R4=1 TO INDICATE ERROR

TSTB @BECR1

RTS

;SEE

RDY

SET

R5 NOT =128

:RETURN

SIIITILITTT07 000077 000000700007007000770707707718771777110171771711777177

267

2672

MACY11

sSUBROUTINE TO DISREGARD UBE
016274
016300
016302
016306
016312

016705
005725
010577
012715
000207

164232

INTERRUPTS

HILIIIIITPLE0E0 0700000000000 000000108717001710771171117171171711411114171117111177

DINT:

164224
000002

MOV
INTVEC,RS
TST
(RS)+
MOV RS5,INTVEC
:?g o
#2,(RS)

sGET INTVEC AND
;CALC., INTVEC+2
;PUT ADDRESS OF NEXT LOC
;PUT AN RTI IN INTVEC+?2

IN THIS ONE

AINIII11700070 0070000 00070070 7000000 0000070071070001771717071777711117717177

: SUBROUTINE TO RESTORE VECTOR AREA 0-56, 174, AND 176 FROM STACK AREA AND PUT TRAP CAT(CH

016314
016320
016322
016324
016330

016332
016336
016342
016346
016352
016354
016356
016360
016364
016366
016372
016376
016400
016402

016705
005004
014524
022704
001374
014537
014537
012704
012705
010524
005024
022525
022704
001372

012704
012705
010524
005024
022525

162704

000060

000174
000176
000060
000062

ALLITIITTTTT0 1170000000000 i inerieiiigiiiriigeiiiieeeiiiieeeeeeiiiey/
RVEC:
MOV $TMPO,RS
;GET AREA WHERE VECTOR STORED

18:

28:

sSET R4 =TO FIRST LOC

CMP
BNE
MOV
mov
Mov
MOV
MOV

;AT END OF AREA?
sBRANCH IF NO
;RESTORE SOFTWARE SWR
.
;SET R4 FOR FIRST TRAP CATCHER
:SET R5=TO FIRST TRAP CATCHER ADDRESS
;PUT ADDRESS OF NEXT LOC IN THIS ONE

#60,R4
18
=(R3),
-(RS),
#60,
#62,R5
RS, (R4)+

3s:

sRESTORE VECTORS

@#174
amv7é
R4

CLR(R4G) ¢+

CMP (R5)¢+,(RS)+
CMP #174 R4
BNE 2%

000174
000200
000202

CLR R4

MOV -(RS),(R&)+

MOV
MOV

#200,
#202,

CLR

(R4)+

Mov

CHP

RS,

(RS)+,

sPUT HALT IN NEXT LOC

Ré
RS

(R4)+

(R5)+

;INC RS BY 4
;AT END OF
VECTOR AREA?
;BRANCH 1F NO
sAS ABOVE,

PUT

TRAP CATCHER

IN AREA 200-776

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkusB PN
27-APR-78 15:02

2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755

016404
016410
016412
016420
016426

022704
001372
012737
012737
000207

m
5
MACY11 30A(1052)
27-APR-78
15:03
END OF PASS ROUTINE

001000

000137
002632

000200
000202

CMP
BNE

#1000,
R&
38
MOV #137,84#200
MOV #START,a#202

RTS PC
AIIITIITETITTT

PAGE 53

SEQ 0064

;RESTORE JMP 3ASTART TO LOC 200
:

:RETURN
L Errir e reiiniiieeligiieeiiizeiiieeseeeeezezgsys

; SUBROUTINE TO TYPE PC OF ERROR MESSAGE
016430
016436
016440
016444
016450
016452
016456
016462
016464
016465
016466

032777
001013
104401
016746
104402
104401
016746
104403
002
000
000207

020000

162534

027631

162500

HITTITLITIILLI LTI rii i r e i irireiiiniieieiieiegeeeeieiceieeeeeeeeses

TERRPC: BIT #SW13,aSWR
BNE 18
TYPE ,MSG15
Mov
$ERRPC,-(SP)
TYPOC

027754
162452

sINHIBITS ERROR TYPQOUTS?
sBRANCH IF YES
¢PC OF ERROR MSG WAS:
s SAVE SERRPC FOR TYPEOUT

TYPE
MoV

,MSG17
$TSTNM, -(SP)

.BYTE
.BYTE

2
0

TYPOS

TYPE--OCTAL ASCII(ALL

;TEST NUMBER WAS:
;SAVE STSTNM FOR TYPEOUT

G0 TYPE

DIGITS)

~OCTAL ASCII

;TYPE 2 DIGITS
; SUPPRESS LEADING ZEROS

1$:

RTS PC

.SBTTL

SCOPE HANDLER ROUTINE

AR AR

AARAS

:.60

ARl

AllRlitds0R20

20220

20002

s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE

SWITCH OPTIONS

seSW14=1
JeSWI=1
;*SW09=1

JeCALL
ot
016470
016470
016476

032777
001101

016500

000416

016502
016506

016514

016520
016524
016526
016530
016534
016536
016536
016542
016544
016552
016554
016562
016564
016572

040000

$SCOPE:

1$:

000004
016526
177060
000004

SCOPE
8IT
BNE

105767
001421

162373

5%:

000004

ROUTINE

#BIT14,38S5WR
$OVER

CODE

FOR

THE

XOR

;:LOOP ON PRESENT TEST?
JIYES IF SW14=1

TESTER#NZAN

::1F

MoV

@#ERRVEC,-(SP)

;;SAVE

TST

ar177060

MOV
BR

Cmp

MOV

ARE:

;:SCOPE=]0T

MOV

000004

THIS

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

JHMNNNSTART

$XTSTR:

013746
012737
005737
012637
000453
022626
012637
000413

126767
101015
032777
001404
016767
000443

162474

PROVIDED BY

#58% ,8#ERRVEC

(SP)+ ,3#ERRVEC
$SVLAD

(SP)+,(SP)+

(SP)+ ,@#ERRVEC

RUNNING ON THE ''XOR'' TESTER CMANGE

¢ THIS INSTRUCTION TO A ''NOP'' (NOP=240)
THE

CONTENTS OF

;:SEY FOR TIMEOUY

THE

ERROR VECTOR

;:;TIME OUT ON XOR?

;;RESTORE THE ERROR VECTOR
::G0 TO THE NEXT TEST

;;CLEAR THE STACK AFTER A TIME OuT
;:RESTORE

THE ERROR VECTOR

BR
7%
;:;LO0P ON THE PRESENT TEST
68 :; MMNRNEND OF CODE FOR THE XOR TESTER###AN

2s:

162377

162363

001000

162410

162352

162346

BEQ

TSTB

$SERFLG
3s

::HAS AN ERROR OCCURRED?
::BR IF NO

BHI
BIT

3s
#81709,3SWR

;:BR IF NO
;:LOOP ON ERROR?

(MPB

7%:

BEQ
MOV
BR

SERMAX ,SERFLG
43
$SLPERR,SLPADR
$OVER

;:MAX.

ERRORS FOR THIS

TEST OCCURRED?

;:BR IF NO
;.SET LOOP ADDRESS TO LAST

SCOPE

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkusB.P11
27-APR-78 15:02

2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781

016574
016600
016604
016606
016614
016616
016622
016624
016630
016636
016640
016646
016654
016660
016664
016670
016674
016702
016710
016714
016716

105067
005067
000415
032777
001011
005767
0014606
005267
026767
002021
012767
016767
105267
011667
011667
005067
112767
016777
016716
000002
000012

162335
162430
004000

162356

162306
162400

3%:

000001
000044
162254
162254
162252

162342
000001

162226
162224

162270
162360

162245
162264

$SVLAD:

$SICNT

CMP

STIMES,SICNT

MOV
MoV
INCB
MOV
MoV
CLR

#1,81CNT
SMXCNT ,STIMES
STSTNM
(SP) ,$LPADR
(SP) ,SLPERR
SESCAPE

MOV
MOV

STSTNM,QDISPLAY
$LPADR, (SP)

RTI

SMXCNT:
.SBTTL

SEQ 0065

;s INHIBIT ITERATIONS?

1%
$PASS
1%

Mmove

$OVER:

PAGE

#BIT11,aSwWR

BNE
TST
BEQ

BGE

1$:

15:03

;. IERO THE

$TIMES
1$

INC

$ERFLG

CLR
BR

BIT

162300

$OVER

#1,SERMAX

10,
ERROR HANDLER ROUTINE

ERROR FLAG

;. CLEAR THE NUMBER OF ITERATIONS TO MAKE
s ESCAPE TO THE NEXT TEST
;:BR IF YES
;s
[F FIRST PASS OF PROGRAM
HH
INHIBIT ITERATIONS

;s INCREMENT ITERATION COUNT
¢ s CHECK

THE NUMBER OF

::BR IF MORE

ITERATIONS MADE

ITERATION REQUIRED

s;REINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
:: COUNT TEST NUMBERS
;s SAVE SCOPE LOOP ADDRESS
;:SAVE ERROR LOOP ADDRESS
:sCLEAR THE ESCAPE FROM ERROR ADDRESS

;:ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
::FUDGE RETURN ADDRESS
s FIXES PS

s sMAX. NUMBER OF

ITERATIONS

AR AARAAARRAARALARLRARRARRRSRdRRRRt
Rttt
io ittt t])

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR

2782

2804
2805
2806
2807
2808
2809
2810
2811

CLRB

162310

2783
2784

2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803

MACY11 30A(1052)
27-APR-78
SCOPE HANDLER ROUTINE

s*THE

SWITCH OPTIONS PROVIDED BY

;*SW15=1

;*SW13=1
;*SW10=1
;*SW09=1
s +CALL

016720
016720
016724
016726
016734
016742
016744
016750
016754

016760
016766
016774
017002
017004
017010
017014
017014
017020
017022
017024
017032

105267

001775
016777
032777
001402
104401

162202

002000

162240
162230

001240
162170

005267
011667
162767
117767
032777
001004
004767
104401

000056
001245

005777

162152

000000
032777
001402

001000

100001

$ERROR:
78:

162211

162170

000002
162156
020000

1$:

162
162152
162

HALT ON ERROR

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
ERROR

INCB
BEQ
Mov
BIT
BEQ

$ERFLG
7$
$STSTNM,SDISPLAY

INC

SERTTL

sus

#2,8ERRPC

BIT
BNE

#BIT13,3SWR
208

TYPE

MOV

MOvB

JSR

:
208
2%:

162140

THIS ROUTINE ARE:

TYPE

TST

: ;ERROR=EMT

#B1710,aSwR
1%
. SBELL

(SP) ,$ERRPC

OSERRPC,SITEMB

PC,SERRTYP
LSCRLF

aSWR

AND N=ERROR

ITEM NUMBER

;s SET THE ERROR FLAG
:.DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG

;;BELL ON ERROR?

;sNO - SKIP
J:RING BELL

;:COUNT
:;GET

THE NUMBER OF

ADDRESS OF

;;STRIP AND SAVE

J.SKIP TYPEQUT IF
;:SKIP TYPEOUTS

ERROR

THE

SET

ERRORS

INSTRUCTION

ERROR

;.60 TO USER ERROR ROUTINE

;HALT ON ERROR

BPL

J:SKIP IF CONTINUE

BIT

#B81709,a5WR

;. LO0P ON ERROR SWIT(CH SET?

HALT

BEQ

;HALTYT

;:BR

ON ERROR!

ITEM (CDE

EET

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZkuBB.P11
27-APR-78 15:02

2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
ggg%

017034
017040
017044
017046
017052
017052
017060
017062
017064
017064

016716
005767
001402
016716
022737
001001
000000

162102
162172

000042

SR C

5%:

6$:

000002

MACY11 30A(1052)
27-APR-78
ERROR HANDLER ROUTINE

162164
016134

15:03

PAGE

—REL

M-

aal

MOv
TST
8EQ
Mmov

SLPERR, (SP)
SESCAPE
5%
SESCAPE, (SP)

;.FUDGE
::CHECK
;:BR IF
::FUDGE

cmp
BNE
HALT

#SENDAD ,a#42
6%

;:ACT=11 AUTO-ACCEPT?
; :BRANCH IF NO
JsYES

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

2824

sl AN

2825
2826

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ''ERROR TABLE'' (SERRTB),

gggg

2829
2830
2831
2832
2833
2834
2835
2836
2837
2838

2839
2840
2841
2842
2843
2844
2845

2846
2847
2848
2849

2850
2851

2852
2853

2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867

AR R AR AR AR R

RN AN AN RN AN AN

R PP RAARRARRNRARNARS

:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
017066
017066
017072
017074
017076
017102

104401
010046
005000
153700
001004

001245

017104

016746

017110
017112
017114
017116
017120
017122
017124
017130
017134
017136
017140
017142
017146
017152
0171546
017156
017160
017164
017166
017170
017172
017176
017200
017200
017202
017204
017206
017210
017214
017216

104402
000426
005300
006300
006300
006300
062700
012067
001404
104401
000000
104401

012067
001404

104401
000000
104401
011000
001004
012600
104401
000207

013046
104402
005710
001770
104401
000771
020040

SERRTYP:

TYPE
Mov
CLR
BISB
BNE

.SCRLF
RO,~(SP)
RO
a#SITEMB,RO
1%

162040

Mov

$ERRPC,-(SP)

001250
000004

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
Mov

6%
RO
RO
RO
RO
#SERRTB,RO
(RO)+,2%

mov
BEQ

0
. SCRLF
(RO)+,48
5%

TYPE
Mmov
BNE
MoV
TYPE
RTS

O
+SCRLF
(RJ),RO
7%
(3P)+,RO
-SCRLF
PC

001146

1%:

001245
000004

001245

00124F

2%:

3s:
48
5%:

6$:
7$:

017216
000

8$:

BEQ
TYPE
.WORD
TYPE
TYPE
WORD

Mov
TYPOC
TST
BEQ
TYPE
BR
ASCIZ

a(RO)+,=-(SP)
(RO)
63
. 8%
7%
7/

SEQ 0066

RYI
; RETURN
ERROR MESSAGE@TYPEOUT ROUTINE

.SBTTL
R

;''CARRIAGE RETURN'' & ''LINE FEED"
;:SAVE RO
;:PICKUP THE ITEM INDEX
;.
IF ITEM NUMBER IS ZERO, JUST
;:TYPE THME PC OF THE ERROR
::SAVE SERRPC FOR TYPEOUT
: ;ERROR ADDRESS
::GO TYPE~-OCTAL ASCII(ALL DIGITS)
;:GET ouT
:;ADJUST THE INDEX SO THAT IT WILL
M
WORK FOR THE ERROR TABLE
:.FORM TABLE POINTER
;;PICKUP ''ERROR MESSAGE'' POINTER
;s SKIP TYPEOUT IF NO POINTER
::TYPE THE ''ERROR MESSAGE"
;:"'ERROR MESSAGE'' POINTER GOES HERE
;''"CARRIAGE RETURN'® § ''LINE FEED"
;:PICKUP ''DATA HEADER'' POINTER
;:SKIP TYPEOUT IF 0
:sTYPE THE 'DATA HEADER''
;' 'DATA HEADER'' POINTER GOES HERE
;"'CARRIAGE RETURN'' & ''LINE FEED"
;;PICKUP "'DATA TABLE'' POINTER
::G0 TYPE THE DATA
;sRESTORE RO
;''CARRIAGE RETURN'' & '‘LINE FEED"
: :RETURN

;;SAVE a8(RO)+ FOR TYPEOUT
;.60 TYPE=-<OCTAL ASCII(CALL DIGITS)
;:1S THERE ANOTHER NUMBER?
;:BR IF NO
;s TYPE TWO(2) SPACES
.. LOOP
;;TWO(2) SPACES

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKuBB. PN
27-APR-78 15:02

2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912

2913

2914
2915
2916

2917
2918
2919
2920
2921
2922
2923

017222

C
6
MACY11 30A(1052)
15:03
27-APR-78
ERROR MESSAGE TYPEQUT ROUTINE
.SBTTL

PAGE

SEQ 0067

.EVEN
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MAAAASAAAAALAAAAAAAAAASAAARAARSRRAARRRRRRARRRRRR
R
R Rttt
dd)

'THIS ROUTINE

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

. *REPLACED WITH SPACES.
;*CALL:
. %
Mov
NUM,
- (SP)
M
TYPDS
.

017222
017222
017224
017226
017230
017232
017234
017240
017244
017246
017250
017256
017260
017264
017270
017272
017276
017300
017302
017304
017306

017310
017312
017314
017316
017320
017322
017324
017332
017336
017342
017344
017346
017352
017354
017356
017360
017362
017364
017366
0%7374
017376
017400

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723

005002

016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663
052702

052702

110223

005720
020027
002746
003002
010502
000764
105726
100003
116663
105013

012605
012603

$TYPDS:

020200
000020

000055

000001

017436
000040

1%:

BPL
NEG
Movs
CLR

MoV

2%:

0174
%

3%:

43:

5%:

000001
000060
000040

Mov
MoV
Mov
Mov
Mov
MoV
MoV

177777

7%:

000010

MovB

CLR

mov

suB
BLT
INC
BR

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R5,=(SP)
#20200,-(SP)

20(SP) RS
18

RS
#'-,1(SP)
RO
#30BLK,R3
' L(R3)+
R2
$DTBL (RO) ,R1

R1,RS

8$:
177777

177776

:
9%

MOvVB

CLRB

MoV

;;PUSH RO ON STACK
;sPUSH R1 ON STACK
;:PUSH R2 ON STACK
::PUSH R3 ON STACK
;:PUSH RS ON STACK
;:SEYT BLANK SWITCH AND SIGN

::GET THE INPUT NUMBER
;:BR IF INPUT [S POS.
;:MAKE THE BINARY NUMBER POS.
JsMAKE THE ASCII NUMBER NEG.
J:LERD THE CONSTANTS INDEX
;.SETUP THE OUTPUT POINTER
5:SET THE FIRST CHARACTER TO A BLANK

. CLEAR THE BCD NUMBER
;sGET THE CONSTANT

;;FORM

THIS BCD DIGIT

;.BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

;:FALL

THROUGH

;:STILL DOING LEADING 0°'S?
;:BR IF YES

1(SP),=-1(R3)
#'0,R2
4 ,R2
R2.(R3)+
(RO)
¢+
RO,#10

MoV

BR
1ST8
8PL

STACK

;s ADD BACK THE CONSTANT
;;CHECK IF BCD DIGIT=0

ADD
TST
BNE
TST8
8MI
ASLB

BCC
MOovB
8IS
BIS
MOvB
TST
CMP
BLY
BGT

:sPUT THE BINARY NUMBER ON THE
::60 TO THE ROUTINE

=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3

::MSD?
;:BR IF NO
JsYES==-SET THE SIGN
;;MAKE THE BCD DIGIT ASCII
soMAKE IT A SPACE IF NOT ALREADY A DIGIT
JsPUT THIS CHARACTER IN THE OUTPUT BUFFER
5 JUST INCREMENTING
;s CHECK THE TABLE INDEX

;:60 DO THE NEXT DIGIT
::60 TO EXIT
;sGET THE LSD
;.60 CHANGE TO ASCII
JsWAS THE LSD THE FIRST NON-ZERO?
;.:BR

;.YES==SET THE SIGN FOR TYPING
;;SET THE TERMINATOR
;;POP STACK

INTO RS

;sPOP STACK INTO R3

UNIBUS EXERCISOR MODULE DIAGNOSTIC
czxuss PN
27-APR-78 15:02

2924
2925
2926
2927
2928
2929
2930
29
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942

017402
017404
017406
0174610
017414
017422
017424
017426
017430
017632
017434
17436

012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012

017436
000002

2967
2968
2969
2970
297
2972
2973
2974
2975
2976
2977
2978
2979

(SP)+,R2

:;POP STACK

INTO R?

MoV

(SP)+,RO

;.POP STACK

INTO RO

TYPE
mov
Mov
RTI

000004
$OTBL:

000004

ARA

(SP) ¢+ ,R1

;.POP STACK INTO R1

. $OBLK
2(SP),4(SP)
(SP)+, (SP)

10000.
1000.

; sNOW TYPE THE NUMBER
;s ADJUST THE STACK
::RETURN

TO USER

100.
10.
.BLKW
4
TYPE ROUTINE

$DOBLK:
.SBTTL
MR

SEQ 0068

MoV

mov

AR AAARRARRRRRASRRRRRRRRtRRRRRRAR
2222200222 022020 2RA 2]

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE

ROUTINE

;*NOTE1:
s *NOTEZ:
;*NOTE3:

2943

2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966

D
6
MACY11 30A(1052)
27-APR-78
15:03
PAGE 57
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

WILL

INSERT

A NUMBER OF

NULL

CHARACTERS

AFTER A LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*CALL:

2*1) USING A TRAP INSTRUCTION
)t
TYPE
.MESADR
;*0OR
3

JsMESADR IS FIRST ADDRESS OF

AN ASCIZ STRING

TYPE

MESADR

017446
017452
017454
017456
017460
017462
017466
017470
017472
017474
017476
017502
017504
017510
017512
017516
017520
017522

017524
017526
017532
017534
017540
017544
017546
017552

105767
100002
000000

000407
010046
017600
112046

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001245
105067
000755

004767
126726
001350
016746
105366

161537

$STYPE:

TSTB

BPL

HALT

000002

000011

1%:

2$:

60$%:
3s:

000200

MoV

000056
161444

5$:

6%:

161434

000001

7%:

;:1S

THERE

;:BR

;. LEAVE

RO,-(SP)

YES

JsHALT

HERE

;sSAVE

TERMINAL?
IF

Mov

82(SP) RO

;:GET ADDRESS OF

BNE

s:BR

[ Jo}']:]
TST

MoV

(RO)+,~(SP)
(SP)+

(SP)+,RO

ADD

#2,(SP)

CmMPB
BEQ

#HT, (SP)
8s

RT]

TERMINAL

ASCIZ

s IF

ISN'T THE

TERMINATOR

POP

;:RESTORE RO

TERMINATOR

;;BRANCH IF .<HT>

(SP)+

$SCRLF
CLRB

::POP
s TYPE

$CHARCNT

;:CLEAR CHARACTER COUNT

(MPB

$SFILLC,(SP)+

BNE
MOV

DE(CSB

THE

;;RETURN

:;BRANCH

23
PC.STYPEC

OFF

::ADJUST RETURN PC

#CRLF, (SP)
5%

BR
JSR

STRING

;sPUSH CHARACTER TO BE TYPED ONTO STACK

(MPB
BNE
TST
TYPE

000130

$TPFLG

NOT <CRLF>

<CR><LF> EQUIV
A CR AND LF

;;GET NEXT CHARACTER
;.60 TYPE THIS CHARACTER

;1S IT TIME FOR FILLER CHARS.?

2%
$NULL, - (SP)

;.
1F NO GO GET NEXT (CHAR.
J;GET # OF FILLER CHARS. NEEDED

1(SP)

;.D0ES A NULL NEED TO BE

;:AND.THE

NULL

CHAR.

TYPED?

STACK

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(zxuss P
27-APR-78 15:02

2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2N
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
300¢
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
302.
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035

017556
017560
017564
017570

002770
004767
105367

000770

MACY11 30A(1052)
TYPE ROUTINE

BLT
JSR
DECB
BR

000032
000072

27-APR-78

15:03

PAGE

58
SEQ 0069

6%
PC.STYPEC
SCHARCNT
4}

;:BR IF NO--GO POP THE NULL OFF OF
;:60 TYPE A NULL
::D0 NOT COUNT AS A COUNT
..LO0P

STACK

sHORIZONTAL TAB PROCESSOR
017572
017576
017602
017610
017612
017614
017616
017622
017624
017632
017640
017642
017646
017650
017656
017660
017662
017664

112716
004767
132767
001372
005726
000724
105777
100375
116677
122766
001003
105067
000406
122766
001402

000040
000014
0000G7

000052

SEWPEC:

161360

000002
000015

8$:
9%:

161352
000002

000014
000012

000002

105227
000000

1%:

Move
JSR

BIT8

#7 ,8$CHARCNT

TST18

as$TPS

BNE
TST
BR

8PL
move
CMPB
BNE
CLRB

B8R

CMP8

8EQ

INCB
$CHARCNT: .WORD
$TYPEX: RTS

000207

.SBTTL

#' ,(SP)
PC,.STYPEC

BINARY

;;REPLACE TAB WITH SPACE
;;TYPE A SPACE

;;BRANCH IF NOT AT

9%
(SP)+
2%

;;TAB STOP
;. POP SPACE OFF STA(CK
;:GET NEXT CHARACTER

s sWAIT UNTIL PRINTER IS READY

$TYPEC
2(SP),a8TPB
#CR,2(SP)
1%
SCHARCNT

. sLOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?

: sBRANCH [F NO
s s YES==CLEAR CHARACTER COUNT

$TYPEX

S EXIT

#LF ,2(SP)

;1S CHARACTER A LINE

$STYPEX

; sBRANCH [F YES

(PC)+
0
PC

;;COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

TO OCTAL

FEED?

(ASCII)

R RN

AND

TYPE
R

R RN R R RN

R RN RO R RN

RNN

s*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS-~-ENTER HERE

;*CALL:

o®

M
i
ot
.t
o

MOV

TYPOS
.BYTE
.BYTE

TO SETUP

NURM, - (SP)

seCALL:
s

MOV

TYPON

NUM,-(SP)

JeCALL:

017666
017672
017700
017704
017710

017646
116667
112667
062716
000406

000000
000001
000207
000002

000211

;.NUMBER

SAME PARAMETERS AS THE

TO BE

TYPED

;s CALL FOR TYPEOUT

;thYPOC-~-ENTER HERE

FOR

TYPEOUT

NUM,-(SP)

16 BIT

;NUMBER

TO BE

NUMBER

MoV

TYPOC

$TYPOS:

MOV

a(SP),~-(SP)

:;PICKUP THE MODE

Mmove

(SP)+,$0MODE+1

; ;NUMBER OF DIGITS TO TYPE

Move

TYPED

;s CALL FOR TYPEOUT
1(SP),$0FILL

ADD

#2,(SP)

$TYPON

TYPE

;s CALL FOR TYPEOUT
s:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE
;:;M=1 0RO
;:1=TYPE LEADING ZEROS
;:0=SUPPRESS LEADING ZEROS

TO TYPE OUT WITH THE

;*$TYPOS OR STYPOC

DIGITS

;:NUMBER TO BE TYPED

N
M

s*STYPNN-==<ENTER HERE

SUPPRESS ZEROS AND NUMBER OF

::LOAD ZERO FILL
;s ADJUST

SWITCH

RETURN ADDRESS

LAST

3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077

3078
3079
3080
3081

3082
3083
3084

020030

020032
020036
020042
020046
020052
020056
020060
020062
020064
020066
020070
020072
020074
020102
020104
020106
020107
020110
020111
020112

112767
112767
112767
010340
010446
010546
116704
005404
062704
110467
116704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105367
100016
042703
001002
005704
001403
005204

052703

052703
110367
1046401
105367

003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

3085

000171
00016¢
000154

$TYPOC:
$TYPON:

;:SET

ZERO FILL

SWITCH

MOV

R5,=(SP)

J:SAVE RS
;:GET THE NUMBER OF

DIGITS

R4 ,-(SP)

MOVB
NEG
ADD
MOvB
MOVB

000006
000132
000125
000012
1%:

2%:

3s:

000076
177770

$OMODE+1,R4
R&
#6,R4
R4, SOMODE
$OFILL,R4

MoV
CLR
ROL

12(SP)
RS
R3

B8R

ROL
ROL
ROL
MOV
ROL
DECB
BPL

RS
RS
RS
RS,R3
R3
$OMODE
7%

BIC

#177770,R3

TST

8NE

43:

000060
000040
000040
020106
000032

5%:
7%:

6%:

000002

000004

8%:
$OCNT:
$OFILL:

$OMODE:
.SBTTL

SEQ 0070

#1,80FILL
#6,$0MODE
+1
#5,30CNT
R3,-(SP)

mMov
000145

MOVB
Mov8
MOVB
MoV

b} 3

BIS

#'0,R3

MOovB

R3,8%

INC

TYPE
DECB

MOV

(SP)+,RS

B8R

(SP)+,R4

MOV
MOV

(SP)+,R3
2(SP),4(SP)

.BYTE
.BYTE
.BYTE
.BYTE

0
0
0
0

MOV
RTI

(SP)+,(SP)

2 sSUBTRACT IT FOR MAX. ALLOWED
;SAVE 7 FOR USE
J:GET THE ZERO FILL SWI'"H

JsPICKUP T HE INPUT NUMBER
;CLEAR TH E OUTPUT WORD
J:ROTATE M
;.60 DO MS 8
;;FORM TH! S DIGIT

THI S DIGIT ASCII

;BR

DO NE

s ;RETURN

;s STORAGE FOR ASCII DIGIT
::TERMINAT OR FOR TYPE ROUTINE
;.0CTAL DI GIT COUNTER
;. lERO FIL L SWITCH
: :NUMBER O F DIGITS TO TYPE

.WORD
0
TRAP DECODER
R

TYPE

s INSURE L AST DIGIT ISN'T A BLANK
;60 DO TH E LAST DIGIT
::RESTORE RS
:;RESTORE Ré&
;s RESTORE R3
;:SET THE STACK FOR RETURNING

MOV

; sMAKE ASC I1 IF NOT ALREADY
:SAVE FOR TYPING
;G0 TYPE T?IS DIGIT
:COUNT BY
;BR IF MO RE T0 DO

.8%
$OCNT

2%
6%
R4

2 :SAVE R4

; :MAKE

,R3

BGT
BLT
INC

;:SAVE R3

;:DON'T SU PPRESS ANYMORE 0'S

BIS

THE

;:SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT

;.GET LSB OF THIS DIGIT
::TYPE THI S DIGIT?
;:BR IF NO
;:GET RID 05 JUNK
s+ TEST FOR
: : SUPPRESS THIS 0?
;BR IF YE S

BEQ

3086

3087
3088
3089
3090
3091

000001
000006
000005

PAGE

3063

017712
017720
017726
017734
017736
017740
017742
017746
017750
017754
017760
017764
017770
017772
017774
017776
020000
020002
020004
020006
020010
020014
020016
020022
020024
020026

®,

3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062

F
6
MACY11 30A(1052)
27-APR-78
15:03
BINARY TO OCTAL (ASCII) AND TYPE

UNIBUS EXERCISOR MODULE DIAGNOSTIC
czxuss P11
27~APR-78 15:02

N LR R R

R R R

R R AR R R

AR A RN RN A NN RN

NN NN

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;%GO TO THAT ROUTINE.
020114

010046

$TRAP:

MOV

RO,-(SP)

J:SAVE

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZxuBs PN
27-APR-78 15:02

3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104

020116
020122
020124
020126
020130
020134

020136
020140
020146

016600
005740
111000
006300
016000
000200

011646
016666
000002

MACY11

TRAP DECODER

000002

mov
ST
MOvB
ASL
Mov
RTS

020150

000004

000002

G
6
27-APR-78
15 :03

30A(1052)

;o THIS

IS USE

$TRAP2:

MOV
MoV
RTI

.SBTTL

TRAP

2(SP),RO
-(RO)

(RO),RO
RO
$TRPAD(RO)
,RO
RO
TO HANDLE

THE

PAGE

::GET TRAP ADDRESS
;;BACKUP BY 2
::GET RIGHT BYTF OF TRAP
;:POSITION FOR INDEXING
;;INDEX TO TABLE
;.60 TO ROUTINE

"'GETPRI'' MACRO

(SP),-(SP)
4(SP),2(SP)

; :MOVE THE PC DOWN
;;MOVE THE PSW DOWN
;;RESTORE THE PSW

TABLE

b
)

Voo ~NO NN
=

d cnd ol

—

020136
017446
017712
017666
017726
017222

N W

—
PON)
b

ol e

WM AN NN W

b b
amd D b camd

N W N W

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE ''TRAP'' INSTRUCTION.

020150
020152
020154
020156
020160
020162

3122
3123
3124
3125
3126
3127
3128
3129
3130
311
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147

020164
020172
020200
020202
020204
020206
020210
020212
020214
020220
020224
020232
020234

012737
012737
010046
010146
010246
010346
010446
010546
017746
010667
012737
000000
000776

020324
000340

000024
000026

160752
000104
020236

000024

ROUTINE

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
S$TYPON
$TYPDS

.SBTTL

POWER

AR AR

012737
016706
005067
005267
001375
012677
012605

020324
000060
000054
000050
160704

000024

.POWER

$TRAP?
s s CALL=TYPE
;.CALL=TYPOC(
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(1044604)
TRAP+5(104405)

THE ROUTINES CALLED

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZERQS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

DOWN AND UP ROUTINES
AR

ettt

00202

]

DOWN ROUTINE

SPWRDN: MOV
Mmov
Mov
MoV
Mmov
MOV
MOV
MOV
MOV
MoV
MoV
HALT
BR
s

020236
020244
020250
020254
020260
020262
020266

SEQ 0071

WA R AR RN

#S$ILLUP,@#PWRVEC ;;SET FOR FAST UP
#340,84PURVEC+2 ;;PRIO:7
RO,-(SP)
s sPUSH RO ON STACK
R1,=-(SP)
;:PUSH R1 ON STA(K
R2,-(SP)
:;PUSH R2 ON STAC(K
R3,-(SP)
;;PUSH R3 ON STACK
R4, =-(SP)
;sPUSH R4 ON STACK
RS,-(SP)
:;PUSH RS ON STA(K
aSWR,-(5P)
:;PUSH @SWR ON STACK
SP,$SAVR6
.. SAVE SP
#$PURUP ,3#PWRVEC ;;SET UP VECTOR

.=2
RN RN

: sHANG UP
RN

T TN LR AR AR AR

RN ERANNNRNRNARNRRARARONROEEREER

.POWER UP ROUTINE
S$PWRUP: MOV
#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
Mov
$SAVRG, SP
;.GET SP
CLR
$SAVRE
s:WALT LOOP FOR THE TTY
1%:
INC
$SAVRG
s WAIT FOR THE INC
BNE
1%
;:0F
WORD
MOV
(SP)+,dSWR
:;POP STACK INTO @SWR
MoV
(SP)+ RS
:.POP STACK INTO RS

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P11
27-APR-78 15:02

3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
319N
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203

020270
020272
020274

020276
020300

020302
020310
020316
020320
020322
020324
020326

020330
020332
020340

012604
012603
012602
012601
012600
012737
012737
104401
020332
000002
000000
000776
000000
005015
000122

020164
000340

MACY11
POWER

DOWN

000024
000026

042527

AND

PAGE 61

ROUTINES

SEQ 0072

(SP) ¢+ R4

MOV
Mov
MoV
MoV
Mov
MOV
Mov
TYPE

:.POP STACK INTO Ré

(SP)+,R3
;.POP STACK INTO R3
(SP)+,R2
;. POP STACK INTO R2
(SP)+,R1
;.POP STACK INTO R1
(SP)+,RO
::POP STACK INTO RO
#$PURDON,3#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,3#PWRVEC+2 ;;PRIO:7

.WORD

$ILLUP:

RTI
HALT

$POWER

$SAVRG:
$POWER:

BR
0
.ASCIZ

SPWRMG:

047520

H
6
27-APR-78
15:03

30A(1052)

sREPORT

THE

POWER

FAILURE

;;POWER FAIL MESSAGE POINTER

;s THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE

<15><12>"'POWER"’

;:PUT

THE

SP HERE

.EVEN

020342

020350
020353
020360
020366
020374
020402
020404
020412

020420

020426
020434
020442
020450
020456
020464
020470
020476
020°04
020512
020520
020526

020534

020541
020546
020554
020562
020570

020576
020604
020611
020616
020624
020632
020640
020646
020654
020662

005015
020072
015
042440
051511
042524
005015
020040
035105
051505
051523
043117
052116
020122
040514
042502
020040
020040
047510
042502
050120
052111
041125
040
020040
044510
042440
044522
051120

054524
015

050040
020131
042524
047440
030057
030440
046440

046505
000
040412
042530
051117
052123
047040
047524
020124
047111
043440
020123
044124
052123
005015
020040
05211
046125
051440
042105
020110
006505
020040

047440
044107
062514
040503
047511
005015
041012
051101
047516
052123
020116
020065
027461
041501

AAALS

050101

MSG1:

046114
041522
020123
042105

MSG2:

AR AR AR

AR AR A

R ARl
RRRRRRRRR S]]

LASCIZ<I5><12>/EMAP:

ARl

LASCIT<C1I5><12>/ALL EXERCISORS TESTED/<15><12>

052117
052040
040520
020107
040522
047506
020105
052440

LASCIL/

NOTE:TO

020040
051440
020104
040527
053440
020101

CASCLI/

SHOULD BE

CASCI2/

HIGHER ELECTRICAL

012
020040
020106
051105
052103
020114

044522
000
051525
052111
020124
042105
030461
051117
030062
044510

MSGS:

RRRRRRRRR]R

TEST

PASSING OF

GRANTS

FOR

THE

LAST

UBE/<15><12>

SWAPPED WITH A UBE/<15><12>

LASCIZ<15><12>+BUS PARITY NOT

PRIORITY/<15><12>

TESTED ON 11/05 OR 11/20 MACHINES*<15><12>

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkuss P11
27-APR-78 15:02

3204

3205
3206
3207
3208
3209
3210
3N
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230

3231
3232
3233
3234
3235
3236
3237
3238
3239

3240
3241
3242
3243
3244
3245

3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259

020670
020676
020704
020712
020720
020726
020734
020742
020750
020756
020760
020766
020774
021002
021010
021016
021020
021026
021034
021042

042516
047516
047520
047524

006523
051040
051516
051040
042104
051505
047516
041511
051505

000012
051505
020105
043505
042522
047440
042040
020105
047105

040506
051105
042522
046111
020117
000122
042522
027504
047503
051524

040524
047522
020107
042105
046103

021046
021054
021062
021070
021076
021104
021112
021120
02111
021126

001214
0460506
051105

021130
021134
021142
021150
021156
021164
021172
021200
021202
021210
021216

021224
021232
021240

021242
021250
021252
021260
021266
021274
021302
021310
021316

MACY11

30A(1052)

27-APR-78

POWER DOWN AND UP ROUTINES

15:03

PAGE 62

EM1:

.ASCIZ/NO RESPONSE

020114
035122
040506
052040
040505

EM?.

ASCIZ/FATAL

020107
042522
052116
000040

042101
020107
047105

DHZ.

.ASCIZ*REG ADD/REG

001216
040524
047522
020125
047516
042503
051523

000000
020114

DT2:
EM3:

.EVEN
.WORD S$REGO,S$REG1,0
.ASCIZ/®ATAL ERROR:CPU DID NOT RECEIVE

120
000123

020103

040527

DH3:

ASCIZ/PC WAS/

001214
040506
051105
042522
046111
020117
020124
000047
042522
027504
044440
040524
046125
000
021242
001214
000000
040506
051105
042522
046111
020117
020124
000047

000000
040524
047522
020107
042105
046106
020101

020114
035122
040506
052040
040517
030447

DT3:
EMS:

.EVEN
.WORD $REGO,0
ASCIZ/FATAL ERROR:RtG FAILED

020107
040504
027523
051440
020104

042101
040524
040504
047510
042502

DH&:

.ASCIZ*REG ADD/DATA

001216

001220

DT4:

040524
047522
020107
042105
046106
020101

020114
035122
040506
052040
040517
030047

EMS:

040440

051523
020122
053105
051120
000124

050103

00104
042522
020105
000

035122
044504
020124
053111
047131

SEQ 0073

TO REG ADDRESSES OR NO DEVICE

ERROR:REG FAILED

CONTENTS

IS/DATA

TO CLEAR/

TO FLOAT

SSYN/

*1'/

TO FLOAT A

*'0'/

SHOULD BE~

.EVEN

.WORD $REGO,SREG1,S$REGZ,0
ASCIZ/FATAL

ERROR:REG FAILED

PRESENT/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
cZkuss P11
27-APR-78 15:02

3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
327
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310

33
3312
3313
3314
3315

021320
021326
021334
021342
021350
021356
021364
021370
021376
021404
021412

021420
021426
021432
021440
021446
021454
021462
021470
021476
021504

021510
021516
021524
021532
021540
021546
021554
021562
021570
021576
021603
021610
021616
021624
021632
021640
021644
021652
021660
021666
021674
021702
021705
021712
021720
021726
021734
021742
021750
021751
021756
021764
021772
022000

040506
051105
047503
020114
042510
047522
052101
040506
051105
052504
042104
047111
047522
042522
027504
042101
042522
046125
047505
053440
047105
021510
001214
051105
051440
043516
040520
043040
020104
052501
052520
051124
105

020072
052111
042514
046040

030447
051105
043440
020124
042105
047514
023460
106

042440
020072
05211
042514
041440
000
106

042440
020072
020131
040506

MACY1T

30A(1052)

J
6
27-APR-78
15:03

POWER DOWN AND UP ROUTINES

PAGE 63

SEQ 0074

020114
035122
047522
020107
053440
042040

EM6:

.ASCIZ/FATAL ERROR:CONTROL REG HELD WRONG DATA/

020114
035122
040440
051523
051105

EM7:

ASCIZ/FATAL

042101
020107
042527
046511
047101
054514
052124

DH7:

.ASCIZ+*REG ADD/REG ADD WERE

001216
047522
052105
050040
044522

000000
035122
0446524
020102
054524

DT7:
EMS8:

.EVEN
.WORD SREGO,SREGY,O
.ASCIZ/ERROR: SETTING PB PARITY

047524
042523
052040
050101
051122
047507
043040
020104
040517
000047
047522
020117
040506
052040
042101
000
052101
051122
047507
043040
020104
042514

041440
041440

EM9:

.ASCIZ/ERROR:

GO BIT

FAILED

TO LOAD

*'1'/

035122
044502
046111
020117
023440

EM10:

.ASCIZ/ERROR:

GO BIT

FAILED TO LOAD

'0'/

046101
051117
041040
044501
047524
051101

EM11:

.ASCIZ/FATAL ERROR:

GO BIT

046101
051117
042101
020124
042105

EM12:

.ASCIZ/FATAL ERROR:

READY BIT

040524
047522
052116
042522
042114
043516
000101
040524
047522
046101
042522
020107
000122
020107
042522

020104
051440
052101
051525
044522
000

044501

052101
051122
042522
044502
046111

ERROR:DUAL

ADDRESSING ERROR/

SIMULATANEOUSLY WRITTEN®

FAILED

TO CAUSE

042514

020117
000
051117
041040
044501
047524
020104

FAILED

TO CLEAR/

FAILED

TO SET/

CPU TO

TRAP/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxuss P
27-APR-78 15:02

3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364

3365
3366
3367
3368
3369
3370
3371

022006
022014
022016
022024
022032
022040
022046
022047
022054
022062
022070
022076
022104
022112
022120
022126
022133
022140
022146
022154
022155
022162
022170
022176
022204
022212
022220
022226
022234
022242
022250
022256
022264
022272
022300
022306
022307
022314
022322
022330
022334
022342
022350
022356
022364
022372
022400
022406
022414
022422

022423
022430
022436
022444
022452
022460

052040
000124
047524
051101
030440

041040
000
105
020072
020122
044440
051103

020124
051440

020104
042514
103
052116
041040
000
106
042440
020072
020131
040506
052040
040505

043440

046111
020117
051105
052440
044501
047524
051105
000
102
020040
047511
044440

051105
052440
052116
052120
042510
020127
046501
047511
046040
000

125
020122

051105
052440
046101
044440

MACY11

30A(1052)

K
6
27-APR-78
15:03

020117

062523

041440
041040

EM14:

.ASCIZ/T0 CLEAR BIT

020060
041505

042514
052111
043117
030522

051122
051105
044502
020116
020062
044127
047510
042502
051101
047117
020123
041505

051117
047522
051524
042502
042523
047105
046125
041440
000
042524
043117
031122

EM15:

.ASCIZ/ERROR:

DH15:

.ASCIZ/CONTENTS OF

052101
051122
042522
044502
046111
020117
020122

046101
051117
042101
020124
042105
046103
051117

EM16:

ASCIZ/FATAL ERROR:

035122
043040
020104
052116
052120

EM17:

.ASCIZ/ERROR:

UBE

/ PRIORITY

020117
042105
042523
047522
042502
042514
044440
052522

PAGE 64

POWER DOWN AND UP ROUTINES

10 OF

ERROR BITS

SEQ 0075

BECR1/

IN BECRZ2 SET WHEN SHOULD BE CLEAR/

BECRZ2/

READY BIT

FAILED

TO CLEAR OR GO FAILED TO SET/

040506
052040

000124

020122
020057
044522
000123
047522
042502
051105
042105
020116
052101
02010%
044522
053105

051511
051120
054524

DH17:

ASCIZ+*BR

035122
044440
052522
053440
051520
051440
051120
054524
046105

EM18:

.ASCIZ/ERROR:

042502
040527
047522
042502
042523
052116

041040
000123
035122
043040
054514
051105

DH18:

.ASCIZ/UBE BR WAS/

EM19:

ASCIZ/ERROR:

UBE

FAILED TO

INTERRUPT/

S+

INTERRUPTED WHEN PSW AT

FALSELY

INTERRUPTED AT

SAME

PRIORITY LEVEL/

A HIGHER LEVEL/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CczZxuBs PN
27-APR-78 15:02

3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416

3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427

022466
022474
022502
022510
022516
022517
022524
022532
022540
022546
022554
022562
022570
022576
022604

052522
040440
044510
046040
000
10
020122
020114
051105
052440
652116
052120

022607
022614
022622
022630
022636
022644
022645
022652
022660
022666
022674
022702
022710
022716
022724
022732
022740
022746
022754
022762
022770
022776
023004
023012
023020
023023
023030
023036
023044
023052
023060
023066

023074

105
020072
052114
051525
040506
000
105
020072
047516
020113
040506
020131
051105
047040
027124
020116
040506
020131
051105
042040
040506
052040
0462101
042520
040524
102
046457
052101
020115
040504
047510
042502
042515

020117
050040
020122
000
041105
046505
027501
042101
040524
046125
044440
000115

023100
023106
023112
023120
023126
023134

001214
001222
040504
044501
047524
020104

001216
000000
047524
042514
046040
051120

020117
020107
051117

052120
020124
044107
053105

042105
020101
051105
046105

04351
042514
040527
047522
042502
051105
042105
051127
042526
000

042510
0642526
000123
035122
044440
052522
052040
047117
052103

051122
044523
047101
043440
046111

051122
047516
051440
044502
051514
042523
047522
020117
051440
044502
051514
042523
047522
052101
046111

MACY11

30A(1052)

6
L
27-APR-78
15:03

POWER DOWN AND UP ROUTINES

PAGE 65

SEQ 0076

DH19:

ASCIZ/HIGHER LEVEL WAS/

EM20:

.ASCIZ/ERROR:

UBE

051117
052515
047505
020117
042105

Em21:

.ASCIZ/ERROR:

SIMULTANEOUS GO FAILED/

051117
020054
041501
020124
046105
000124
035122
047111
054523
020124
046105
000124
035122
020111
042105
047514
047522
040504

EM22:

.ASCIZ/ERROR:

NO,

EM23:

.ASCIZ/ERROR:

NO INT.

EM24:

.ASCIZ/ERROR:

DAT!

020104
042040
042515
027504
051440
020104
020116

DH2é4:

ASCIZ+BEBD /MEM DATA/MEM ADD/DATA SHOULD BE

001220

DT24:

.EVEN
.WORD

043040
020104

EM2S:

.ASCIZ/DATO FAILED

040517
050117

INTERRUPTED

NO SACK BIT

SSYN BIT

FAILED

TO WRONG VECTOR/

FALSELY

SET/

FALSELY

SET/

TO LOAD PROPER

S$REGO,S$REG1,$REG2,SREC3,0
TO LOAD PROPER DATA/

DATA/

IN MEM»

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKkuBs P11
27-APR-78 15:02

3428
3429
3430
3631
3432
3433
3434
3435
3436
3437
3438
3439

3440
3441
3442

3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470

3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483

023142
023150
023152
023160
023166
023174
023202
023210
023213
023220
023226
023234
023242
023250
023253
023260
023266
023274
023302
023310
023316
023324
023331
023336
023344
023352
023360
023361
023366
023374
023402
023410
023411
023416
023424
023432
023440
023446
023454
023460
023466
023474
023502
023510
023515
023522
023530
023536
023544
023552
023560
023565
023572
023600
023604
023612

051105
000101
040504
040506
052040
042101
042520
040524
104

043040
052040
042101
042520
040524

104
040506
052040
020124
040504

044501
047524
051040
104

043040
020104
052105
000
104
043040
020104
052105
000
105

020072
042040
044123
047117
050111
042514
051105
042040
047440
044524
046111
105
020072
044504
044524
020115
020107
044524
115
041517
042524
051105
041040

MACY11

30A(1052)

n
6
27-APR-78
15:03

POWER DOWN AND UP ROUTINES

PAGE 66

042040

052101

044526
046111
020117
050040
0c0122
000
052101
046111
020117
050040
020122
000
052101

020120
042105
047514
047522
040504

EM26:

ASCIZ/DATIP FAILED TO LOAD PROPER DATA/

041117
042105
047514
047522
040504

EM27:

.ASCIZ/DATOB FILED

TO LOAD PROPER DATA/

020111
042105
042523
000131
043040

EM28:

.ASCIZ/DATI

TO SEYT

EM29:

.ASCIZ/DATO FAILED TO SET RDY/

EM30:

.ASCIZ/DATIP FAILED TO SET RDY/

046111

020117
042122
047524
042514
051440
054504
052101
044501
047524
051040

020104

FAILED

RDY/

052105

000
050111
042514
051440
054504

052101
044501
047524
051040

041117
042514
051440
054504

EM31:

.ASCIZ/DATOB FAILED

051122
047111
052101
043111
042040
043040
000104
047522
052101
020116
020120
042105
051122

051117
027110
020101
020124
052101
044501

EM32:

ASCIZ/ERROR:

INH.

035122
041117
040504
040506
000
051117
020105
040504
047522
047117
040503
000
046040
047101

EM33:

.ASCIZ/ERROR:

DATOB ON DATIP FAILED/

EM34:

.ASCIZ/ERROR:

UBE

DH34:

LASCIZ/MEM LOC WANTED/

035122
020101

EM3S5:

.ASCIZ/ERROR:

041125
02010¢
043040
051127
047514
047117
046505
053440
000104
047522
041105

TO SET RDY/

DATA SHIFT ON DATIP FAILED/

DID DATI

FROM WRONG LOCATION/

BEBA LOWER 16 BITS DID NOT COUNT BY 2/

SEQ 0077

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZkuBB.P11
27-APR-78 15:02

3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508

3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532

3533
3534
3535
3536
3537
3538
3539

023620
023626
023634
023642
023650
023656
023661
023666
023674
023702
023707
023714
023722
023730
023736
023744
023752
023756
023764
023766
023774
024002
024010
024016
024024
024025
024032
024040
024046
024054
024062
024070
024076
024104
024112
024115
024122
024130
024136
024144
024152
024160
024166
024173
024200
024206
024214
024222
024230
024236
024244
024251
024256
024264
024272
024300

047514
033061
020123
047516
047125
031040
050
027440
051440
020104
105

020072

041040

033061
044504
020124
036524
030501
000067
051105
041040
044504
020124
020124

042527
041040
044504
020124
020124
000
042522
040504
047510
042502
051122
042502
052111
030454
020104
047503

30A(1052)

27-APR-78

POWER DOWN AND UP ROUTINES

15:03

PAGE 67

SEQ 0078

020122
05211
020104
047503
054502

DH35:

.ASCIZ+*(REG)

/DATA SHOULD BE*

EM36:

.ASCIZ/ERROR:

BEBA BIT A16,17 DID NOT COUNT=0/

030501

DH36:

ASCIZ/A16,A17/

047522

041105
020104
047503
054502

035122
020101
047516
047125
030440

EM37:

.ASCIZ/ERROR:

BEBA DID NOT

051122
047111
050125
046111
020117
042524
020103
051117
053040

051117
042524
020124
042105
050125
041040
047524
042522
046101

EM38:

.ASCIZ/ERROR:

INTERRUPT

051122
042502
041516
052116
042510
053440
044116
042105
051122
042502
041516
05211¢
042510
053440
044116
042105
051122
041125
046111
020117
047440

051117
040502

EM39:

.ASCIZ/ERROR:

BEBA

INCREMENTED WHEN

IT WAS

INHIBITED/

EM4O:

.ASCIZ/ERROR:

BECC

INCREMENTED WHEN

IT WAS

INHIBITED/

EMée1:

+ASCI2/ERROR:

UBE

000060
026066

000

052040
027124

MACY11

024507
040524
046125
000
051117
040502
040440
020067

047516
047125

042522
042105
020116
051501
041111
000
051117
041503
042522
042105
020116
051501
041111
000
051117
020105
062105
047111
020116

FAILED

COUNT BY

FAILED

TO UPDATE BECC

TO INT. ON DONE/

TO CORRECT VALUE/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(Zxues P
27-APR-78 15:02

3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3531
3582
3583
3584
3585

3586
3587
3588
3589
3590
3591
3592
3593
3594
3595

024306
024313
024320
024326
024334
024342
024350
024352
024360
024366
024374

024402
024410
024416
024424
024432
024436
024444
024452
024460
024466

024467
024474
024502
024510
024516
024524
024532

024533

024540
026546
024554
024560
024566

024574

024602
024610
024616
024624
024630

024636
024644
024652
024660
024666
024674
024702
024710
024716
024724
024732
024740
024744
024752
024760
024766

047504
105

020072
020106
046103
020104
000117
051105
052440

042111
042040
047524
051120
021440
047514
032050
042101
046517
042527
044522
000
105
020072
047440
042516
047040
042514
000
105
020072
020106
042523
051105
042040
051106
041505

020124
050040
046122

042101
042057
020040
020101
042114

051105
052440
042111
042040
040504
051117
020110
051505
051105
052440
042111
042040

042516
051122
041503
047516
040505
054502

000
051117
053117
020124
042522
043440

047522
042502
047040
020117
052040
050117
047440
051503
000051
020104
052057
042522
052124

MACY11

30A(1052)

27-APR-78

POWER DOWN AND UP ROUTINES

15:03

PAGE 68

SEQ 0079

EMG2:

.ASCIZ/ERROR:

CCOVF

035122
042040
052117
040504
020117
051105
020106
020056

EMLT:

.ASCIZ/ERROR:

UBE

051106
020117
053440
047105

DH&3:

.ASCIZ+«ADD FROM/TO WERE

051122
047111
020116
041040
052117
051101

051117
027124
047504
052111
041440
042105

EM4S:

.ASCIZ/ERROR:

INT.

051122
041503
047516
000124
047522
052101
046517
020103
047504
047522
000131
020104
052101
042057
044123
041040
047522
042502
047040
020117
047524
042440
042522
000124
047522
042502
047040
020117

051117
053117
020124

EM4LS:

.ASCIZ/ERROR:

CCOVF

035122
020117
041040
047516
042516

EMLG:

.ASCIZ/ERROR:

DATO FROM BECC

020040
020101
052101
052517
000105
035122
042040
052117
020062
043040
041501
052521

DHLG:

ASCIZ+«ADD

EM47:

.ASCIZ/ERROR:

UBE

EM4LY:

.ASCIZ/ERROR:

UBE DID NOT DO 2 DATIP FOR EACH REQUEST/

NOT

CLEARED BY GO/

DID NOT

DO DATO TO PROPER # OF

LOCS.

WRITTENT®

ON DONE

BIT NOT

CLEARED/

NOT SET/

NOT

DONE

PROPERLY/

042520

035122
042040
052117
020062

/DATA

/DATA SHOULD BE~r

DID NOT DO 2 DATO FOR EACH REQUEST/

(4)/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
czxuss P
27-APR-78 15:02

3596
3597
3598
3599

3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614

3615
3616
3617

3618
3619
3620
3621
3622

3623
3624
3625
3626
3627
3628
3629
3630
3631
3632

3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651

024774
025002
025010
025016
025023
025030
025036
025044
025052
025054
025062
025070
025076
025104
025107
025114
025122
025130
025136
025144
025152
025160
025161
025166
025174
025202
025210
025216
025224
025232
025240
025246
025254
025257
025264
025272
025300
025306
025314
025322
025330
025334
025342
025350

025356
025364
025372

025400
025405
025412
025420
025426

025432

025440
025446
025454

040504
047506
044103
042525
105

020072
040504
052117
000105
051105

047040
042111
051440
054504
105
020072

044504
020124
053440
050116
044516
000
105

020072
047514
044522
053440
047117
020122
047111
020116
042440
042105
015
044524
042502
020114
047111
050125
044522
051120
043111
026123
053440
047507
006516
051105
042524
015
044524
051505
051105
052040
043117
043516
044514

044524
020122
051040
052123
051122
050116
047524
042040

020120
040505
050505
000
051117
020122
047040
047117

047522
051120

047040
052105
000
051122
041125
020104
047111
042510
020122
044123

051122
053524
027103
052124
042510
020105
047101
027124
047504
040516
000
052012
043516
053440
047516
042524
020124
043516
005015
042040
041440
046111
042040
0426412
047111
052123
042412
0643516
000124
047522

051505
053440
040440
042516

MACY11
POWER

30A(1052)

7
C
27-APR-78
15:03

PAGE 69

DOWN AND UP ROUTINES

EMS1:

.ASCIZ/ERROR:

NPR

DATO NOT

035122
042040
052117
051040

EM52:

+ASCIZ/ERROR:

NPR

DID NOT

SET

051117
020105
047516
027124
020116
044506
042105

EMS3:

.ASCIZ/ERROR:

UBE

DID NOT

INT.

051117
020117
053440
047105
020116
050116
020104
047440
042516
046102

EMSS:

+ASCIZ/ERROR:

TWO LOC.

051505
052440
046111
020124
051122
052504

MSG3:

ASCIT<15><12>/TESTING UBE WILL NOT

SEQ 0080

DONE/

RDY/

WHEN NPR FINISHED/

WRITTEN WHEN ONE

NPR

AND

INT.

03512¢
020124
047522
020040
020123

LASCIZ*1F DOES, CPU WILL GO DOWN*<15><12>+ENTERING TEST+

MSG4:

LASCIZ<I5><12>/EXITING TEST/

EMS6:

.ASCIZ/ERROR:

TEST

WRONG

LINES

ENABLED/

INTERRUPT DURING NPR/<15><12>

047040

042517
052520
020114
053517
052116
020107
000
044530
052040

DONE

ERROR BIT

FAILED/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZxuBB P
27-APR-78 15:02

3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701

3702
3703
3704
3705
3706
3707

025462
025470
025476
025503
025510
025516
025524
025532
025533
025540
025546
025554
025562
025570
025576
025604
025612
025620
025622
025630
025636
025644
025650
025656
025664
025672
025677
025704
025712
025720
025726
025727
025734
025742
025750
025756
025757
025764
025772
026000
026006
026014
026022
026030
026036
026044
026052
026055
026062

126070
026076
026104

026112
026120
026126

026134

051105
044502

046111
102
041040
043040
054514
000
124
042524
020124
051105
052040
043117

047131
051117

043040
000104
047524
041040
047440
051103
047524
041040
020065
041505
124
040505
020124
041040
000
106
054514
051105
042105
000
105
020072
047440
047117
047101
047040
042516
052116

051117
020123
042105
116

047101
047040
042516
052116
051117
043040
054514
000

047522
020124
042105
041505
052111
046101
051440

020122
040506
000
031122
034440
062523
052105

020117
051122
050103
047522
051505

047111
050125
000125
035122
020124
051523
051122
052111
042514

051440
05211
020106
000062
051440
05211
043117
030522
020117
020122
020070
041505
046101
044440

047040
042440
0461040
044501

052522
041440

051122
042524
020106
020107
020124
052117
043440
042440
041040
040506
00¢
020117
020124
052117
043440
042440
041040
046101
051440

MACY11

30A(1052)

27-APR-78

POWER DOWN AND UP ROUTINES

15:03

PAGE

EMS7:

.ASCIZ/BECR2 BIT 9 FALSELY SET/

EMS8:

ASCIZ/TO

EMS9:

.ASCIZ/ERROR:

052105
034040
042502

EM60:

.ASCIZ/T0 SET BIT 8 OF

052105
030440
041040
000
046103
044502
043117
031122

EM61:

.ASCIZ/TO SEY BIT

EM62:

.ASCIZ/T0 CLEAR BIT 8 OF

042523
052116
052120
052520

EM63:

ASCIZ/FALSELY

051117
052123
051127
051107
051117
047440
040522
051122
052111
046111

EM64:

.ASCIZ/ERROR:

051107
051117
047440
040522
05112¢
052111
042523
052105

EM6S:

.ASCIZ/NO GRANT OR NOT

INTERRUPT

SEQ 0081

(PU/

TEST OF

NSSYN ERROR BIT

FAILED/

BECRZ2/

15 OF BECR1/

BECRZQ/

INTERRUPTED

TEST OF

CPU/

WRONG GRANT OR NOT ONE

ONE

GRANT

ERROR BIT

GRANT ERROR BITS FAILED/

FALSELY

SET/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZxuBs P11
27-APR-78 15:02

3708
3709
3710
I
3712
3713
3714
3715
3716
3”7
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
37N
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763

026135
026142
026150
026154
026162
026170
026176
026202
026210
026216
026224
026232
026240
026244
026252
026260
026266
026274
026275
026302
026310
026316
026324
026332
026340
026346
026354
026356
026364
026372
026400
026404
026412
026420
026426
026434
026442
026450
026456
026464
026472
026500
026501
026506
026514
026522
026523
026530
026536

026543
026550
026556
026564
026570
026576
026604

040
041040
036440
044527
052116
042040
020075
051127
051107
051105
044502
051514
042523
047524
051101
030440
041040
000

044527
041505
000040
044124
020056
047117
000061
047117
047101
047522
020124
046105
000124
041440
041040
020061
041505

020072
047440
042515
054501
041040
052101
043040
000104
047524
041040
047440
051103
047524
051101
033040
042502
051105
052040
043117
051105
020116
040506
000
124
042527
047127
000
124
042527
041440

042526

105

124

050040
042040
050103
047524
041040
047440

051122
020106
042040
040440

051525
047105
044501

MACY11

30A(1052)

27-APR-78

POWER DOWN AND UP ROUTINES

15:03

PAGE 71

044124
030522

DH6S:

.ASCIZ/ WITH BECR1

044440

EM66:

ASCIZ/WITH

020107
020124
020122
040506
020131

EM67:

.ASCIZ/WRONG GRANT ERROR BIT

042516
0521
043117
030522

EM69:

.ASCIZ/T0 CLEAR BIT

051117
052123
044524
046105
042116
046040
054503
042514

EM70:

.ASCIZ/ERROR:

047117
020105

= /

INT. ON DONE

TEST

TIME

052105
033040
042502

EM71:

.ASCIZ/T0 SET BIT 6 OF

042514
052111
020106
000062
035122
020124
053517
053517
020124
042105

EM72:

.ASCIZ/T0 CLEAR BIT 6 OF

EM73:

.ASCIZ/ERROR:

020117
020122
041440

047520
047504
052520

EM74:

.ASCIZ/T0 POWER DOWN CPU/

020117
020122
052520
020117
053517
053517
000125
051440
052111
020106

047520
050125
000
042522
051105
020116

EM75:

.ASCIZ/T0 POWER UP (PU/

EM76:

.ASCIZ/T0 RE

052105
032040
062502

EM77:

.ASCIZ/T0 SET

POWER

= 1/

FALSELY SET/

OF BECR1/

051440
052111
020106
000062
041440
041040
047440
051103
047522
051505
050040
042040
044502
046111

TEST

SEQ 0082

DELAY AND BUS LATENCY FAILED/

BECR2/

BECRZ2/

POWER

DOWN BIT

DOWN CPU/

BIT 4 OF

BECRZ2/

FAILED/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
czZxuBss P11
27-APR-78 15:0¢2

3764
3765
3766
3767
3768
3769
3770
Im
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819

026612
026616
026624
026632
026640
026646
026654
026656
026664
026672
026700
026706
026714
026720
026726
026734
026742
026744
026752
026760
026766
026774
027002
027010
027011
027016
027024
027032
027040
027046
027054
027062
027070
027072
027100
027106
027114
027122
027130

027136
027144
027152
027156
027164
027172
027200
027206
027214
027215
027222
027230
027236
027244
027251
027256
027264

051103
051105
042040
040506
052040
040505
000107
051105
042040
041511
020124
042502
042514
047524
020104
051105
000101
051105
052040
043117
044523
040522
040506
000
105

043072
044440
052522
04c510
051040
042523
044440
000056
051105
042524
020106
050111
052116
052120
046111
020117
042122
041125
044124
047524
040440
020122
000
040
046105
042524
042524
047105
040
042114
020105

000062
047522
046103
046111
020117
020122

MACY11
POWER

30A(1052)

27-APR-78

DOWN AND UP ROUTINES

15:03

035122
020117
042105
046103
042522

EM78:

.ASCIZ/ERROR:

DCLO FAILED

DYNAMIC

PAGE

035122
046501
051505
052440
044501

EM80:

.ASCIZ/ERROR:

040517
050117
052101

EM81:

.ASCI2/T0 LOAD PROPER DATA/

047522
051505
050040
043516
052116
046111

035122
020124
051501
043440
020123
042105

EMB2:

.ASCIZ/ERROR:

051122
046101
052116
052120
020116
046105
041040
046515

051117
042523
051105
053440
047504
040505
051525
042105

EM83:

ASCIZ/ERROR:FALSE

047522
052123
052515
042514
051105
020123
042105
042523
000131
020105
053040
035122
042116
052107

035122
047440
052114
044440
052522
040506
052040
020124

EM84:

.ASCIZ/ERROR:TEST

044527
041505
000040
041040
020072

MSG7:

.ASCIZ/UBE

MSG8:

.ASCIZ/ AND BR AT:

040506
020131
051122
020104
005015
044123
044040
047111

051514
047111
050125
044127
000

MSG9:

LASCIZ/ FALSELY

MSG10:

.ASCIZ/ SHOULD HAVE

052517
053101
042524

SEQ 0083

TO CLEAR REG/

047522
047131
052040
043117
043040
000104
046040
051120
042040

TEST Of

TEST OF

UBE

FAILED/

PASSING GRANTS

FAILED/

INTERRUPT WHEN DO RELEASE BUS

MULTIPLE

WITH VECTOR:

INTERRUPTS FAILED

INTERRUPTED WHEN/<15><12>

INTERRUPTED/<15><12>

IMMED./

TO SET

RDY/

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZkuBB.P11
27-APR-78 15:02

3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875

027272
027300
027304
027312
027320
027326
027334
027342
027350
027356
027364
027370
027376
027404
027412
027420
027426
027434
027442
027450
027456
027464
027472
027500
027506
027514
027516
027524
027532
027540
027546
027554
027560
027566
027574
027602
027610
027616
027624
027631
027636
027644
027652
027660
027665
027672

027700
027706
027714
027722
027730
027736
027744
027752
027754
027762

051122
006504
005015
047111
043440
020123
042526
053440
047117
051105
006522
005015
051117
047101
052440
042522
045040
020122
044123
041040
042523
044440
020114
054105
046040
000012
005015
047111
020105
041040
042101
035123
005015
052117
051123
020104
031461
043117
031122
015
043117
051117
040523
051501
015

020040

051525
041522
046440
020105
047516
026455
026502
000012
020040
02C040

050125
000012
040520
020107
040522
047516
052123
052111
020105
044503
000012
043111
020105
047440
042502
042523
046525
030527
052517
020105
052122
020116
041125
042503
051501

MACY11 30A(1052)
27-APR-78
POWER DOWN AND UP ROUTINES

15:03

PAGE

SEQ 0084

042524

051523
043117

MSG11:

_ASCIZ<15><12>/PASSING OF

046440
044124
042516
050040
052116
042520
005015
042114
047111
042105
046101
020105
052120
006524

MSG12:

.ASCII<K15><12>/IF

.ASCIZ/SHOULD BE

INSERTED

GRANTS NOT

TESTED WITH ONE EXERCISOR/<15><12>

052116
020124
042105
020110
054105
047523

THAN ONE UBE

PRESENT JUMPER W1/<15><12>

IN ALL UBE EXCEPT LAST/<15><12>

042524
020107
044527
042105
051104
000040
020040
035105
043505
044502
036440
041040
005015
050012
042440
046440
042507
020072
020012
047125
042440
051511
042117
044504
052123
055103
006502

052123
041125
044124
020102
051505

MSG13:

.ASCIZ<15><12>/TESTING UBE

047040
044504
051101
020124
020061
041505
000
020103
051122
051505
053440
000
020040
04111
042530
051105
046125
043501
041511
052513
006412

MSG14:

.ASCIZ<15><12>/

NOTE:DISREGARD BIT

MSG15:

L.ASCIZ<15><12>/PC

MSG16:

.ASCIZ<15><12>/

020040
052040

020040
051505

MSG17:

_ASCIZ/

WITH BEDB ADDRESS:

ERROR MESSAGE

13 =1

WAS:

BECR2/<15><12>

UNIBUS EXERCISER MODULE

TEST NUMBER WAS:

DIAGNOSTIC--CZKUB=-B/<15><12><15><12>

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P11
27-APR-78 15:02

3876
3877
3878
3879
3880
3881
3882
3883
3884
3885

027770
027776
030004

020126

051105
020072

030010

052516

053440
000

MACY11
POWER

30A(1052)

DOWN

AND UP

000011
000001

ROUTINES

PAGE

041115

051501

.EVEN

HIITTTITTTTE I 11000000 H i

;BUFFER WORK AREA

030010

H
7
27-APR-78
15:03

TIITIIITTII N EEL T T

BUFF1:

.BLkW

.END

i1 11811717407 77747170077171111171711111717

T e iiiiriniiieriireiieirigesiiieieiiieiseggriiiesry/

SEQ 0085

7
l
MACY11 30A(1052)
15:03
27-APR-78
PAGE 76
CROSS REFERENCE TABLE == USER SYMBOLS

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZkuBB.P11
27-APR-78 15:02
A
ACALC

BEBA

003172
003376
001126
002522

574
7924
155

6624
1513
1788+

IseBD

Leecc
BECR1

002516
002520

0025264

2233
660#
1314
1683+
6614
1530¢
1899+

6634

1116

1327+
1582+
1888+

[BECRZ

002526

2043
2285+

6644
1029

1457
1967

002534
002530
002542
002536
002540
002544
002546
002550
002552
002560
002554
002556
002562
002564
002566
002570
002576
002572
002574
002600
002602
002604
002606
002614
002610
002612
002616
002620
002622
002624

2085
2254+
6674
665#
6704
6684
6694
6714
6724
6734
6744
6774
6754
6764
6784
6794
6804
6814
6844
6824
6834
6854
686#
6874
6884
6914
6894
6904
6924
6934
6944
6954

144
804
1574

780+
1519«
1839+

2316+
778+

1329
1790+

779+
1581¢
1935+
781¢
1176+
1346+
1588+
1900+

2049
2318+
782
1033
1469
1975

2102
2259+
784+
783+

SEQ 0086

812

2352

794+
1529+
1886+

964
1533
1898+

993
1535
1961+

1290+
1540
1981+

1307+
1586+
1984+

1325+
1592+
1985

2017«

2211+

2218+

2232

792+
1333
1885+
793+
1587+
1963+
795+
1182+
1362
1595+
1913

816
1343+

823
1351

16401

849

949
1405

978
1624

1012
1428

1295
1590

1297
1597

1308+
1653

1289+
1594+
1983+

1306+
1626
2016+

1324+
1628

1345+
1648+

1392+
1655
2209+
1027
1212+
1479
1705
1991+
2126+

16421+
1685+

1486+
1789+

1510+
1840+

1521+
1887+

2640+

2055
2639+
796+
1039
1474
1982+

2642+

851

2109+

1394+
1619+
1936+
2060

1192+
1622+
1633
1939
2080

901
1203+
1455+
1651+
1943
2090

1043
1485+
1987

858
1076+
1520+
1989+

860
1077
1524
1990

1187+

2663
847

2125+
2260

2154
2262

797+«

848+

825

867

1592

2190
2263
1961

870+

2124+

1020
1210
1462
1687+
1965+

2111«

869

1089+
1545
1993

871«

1220
1593+

2380

2424

26411

2425+

2557+

2567

2394

2395

2558

2560+

2569

25N

2561

2563

2573

2575

2427

2417

2431

2402

24604+

2405

2036+
2248+

872
1222
1650+

918
1260+
1707

1269
1710

933

935
1453+
1962+

2637+

2392

2415

2031
2240

2101+

2391+

2400

2021
2238

2507«
1496+

2565

2399

2013+
2213+

2418+
1473

25561

2397

2641

2038
2236

2422+

2428+

2317+

1106+
1261«
1511«
1751

2025
2227+

2410+

2430

1484
1748+

2230

1031
1213+
1488+
1709+

2023
2222+

2421

1452+
1684+

2219+

2210+

790

2414+

1420+
1657

2197+
2638+
2286+
902+

786

2412

13440
1599

1107
1292+
1522+
1791+

2040
2247+

1114
1310+
1531«
1841+

2078+
2249

7
J
MACY11 30A(1052)
27-APR-78
15:03
PAGE 77
CROSS REFERENCE TABLE =-- USER SYMBOLS

BIT13

b
=l
)
cul
wmd

OO =N
N
VO

2810

1298

1299
1348
1529
1722
1812
1896+

2759
2802
2734

030010

003500
016170

1290
13411
1429
1703
1802
1893
2407

2439+

2448

2451

23
2517

2313
2519

2320+
2522

2329
2523

806#
1038

1102

1159
1678

26374

1322
1930

1389
1960

1450

2351

1259
1742

2077

1506
2107

1489
1966

1512
1992

26604

1589

1596

1818

1868

1616

2283
2996
1423

000015
016244

1902

000200
003514
170000
177570
022133
022307

022423
022517
021020
023023
021121
023565
023661
023756

2752

BI T
BIT10
BIT11
BIT12

ol cad

BI 102
BIT03
BIT04
B1T0S
B1106
BIT07
BIT08
BIT09

B1TO01

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

—

BITO0

SEQ 0087

~N
~
0

—

o o]

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P11
27-APR-78 15:02

2967
8094
749
196

524
33524
33664
33774
32204
359
409
Q14

32334
34794
419
35014

1344
1430
177
1807
1895

1646

2308
3006
1456
1915
3006

728
549

33324

364

369

424

34904

1305+
1352
1533
1744
1835
1898

394

1316
1403
1657
1758
1848

399

34134

1323
1406
1679
1784
1852

1331
1419+

1684
1788
1862

1334
1420

1696
1795
1884

UNIBUS EXERCISOR MODULE DIAGNOSTIC

CZKkuBB.P1

27-APR-78 15:02

021202
024436

254
449

259
469

DH65
DH?
DINT
DISPLA
DISPRE
DSWR
=
D12
D124
D13
D14
017
€
EMAP
EMTVEC=
EM1
EM10
EM11
EM12
s
EM15
EM16
EM17

026135
021432
016274
001174
000174
177570
021046
023100
021130
021242
021510
003532
002510
000030
020676
021644
021705
021751
022016
022047
022155
022250

559
269
1507
1964
1474
W5
245
355
250
255
270
810
6574
1344
238
283
288
293
303
308
313
318

569
3273
1563
728+
736
195
320
360
310
260
32824
8134
763+
711+
3205#
3298#
33044
3311#
33184
33234
33364
33464

022607

338

33884

EM18
EM19
M2
EM20
M1

024630

022334
022436
020760
022540

M22
M23

022645
022710

MZs

023112

M24

M26
nev
M28
M29
M3

M30
n31
n32
m33
M34
n3s
M36
M37
n38
M39
M4
n40
M4
LY
M43
M44
M45

464

323
328
243
333
343
348

022754

353

023152
023213
023253
023302
021054

363
368
373
378
248

023331
023361
0234
023460
023515
023604
023707
023766
024025
024115
021134
024173
024251
024313
024352
024467
024533

30A(1052)

PAGE

264
484

624
35564

32444

574

2466

37084

1980
736

2108
2773«

2122
2794+

2212

26734

727
410
365
325
265

420
370
330
465

425
395
405
625

450
400
6415
640

470
34224
525
3251#

762

770

791

CROSS REFERENCE TABLE -- USER SYMBOLS

DH4
DH43

DH&46

K
7
27-APR-78
15:03

MACY11

639

35794

752
712+

33564
33684
32144
33304
33944
34004
34064

358

34244

383
388
393
398
403
4«08
613
418
423
428
253
433
438
443
448
453
458

34504
34554
34604
34674
34724
34824
34944
35034
3509#
35194
32374
35274
3535#
35414
508
35614
35684

34304
364364
34420
34464
32264

35474

SEQ 0088

485

3225#

550

560

570

575

32364

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKuBB.P11
27-APR-78 15:02

EML6

024560
026666
024744
021252
025023
025054
025107
025161
025424
025503
025533
025554
021320
025622
025650

463
468
478
258
488
493
498
503
513
518
523
528
263
533
538

35724
473
483
32534
3600#
36054
36104
36184
36474
36554
36604
36634
32604
36704
36744

026055

558

36994

025677
025727
025757

5643
548
553

563
568
578
268
583
588
593
598
603
608
613
618
623
273
633
638
643
648
653
278
1274
1291
1309
1326
1342
824
1103
1173
829

37114
37154
37214
32674
37264
37354
37394
37434
37504
37544
37574
37614
37654
32834
37714
37774
37814
3788#
37974
32924
725
13704
13734
13764
13794
826
11264
12164
830

= 000011
003266
002532

374
765
6664
1964t
1324
1069
805

2965
778#
785+
2014+
709+
10834
808

= 000020
004770
014436

146

SEQ 0089

35844
35924

3678#
36834
36884

026154
026202
026244
021370
026275
026356
026404
026434
026501
026523
026543
026570
026616
021516
026656
026720
026744
027011
027072
021603
= 000004
006620
006630
006640
006650
003570
005172
005600
003632

= teeere |

MACY11 30A(1052)
27-APR-78
15:03
PAGE
CROSS REFERENCE TABLE -- USER SYMBOLS

3114

726+

8434

3115

3006

798+

2035+
710+

23544

737«

2739

2740+

3116

3117

3118

1103«

2079+

1104

2284+

1173«

2315+

2742v

1195«

2648

2745+

1227«

2650

1451«

2673

1487«

2675+

1618

1686+

1897+

n
7
MACY11 30A(1052)
27-APR-78
15:03
PAGE 80
CROSS REFERENCE TABLE -- USER SYMBOLS

025405
020611

2354
38¢
7514
7534
761
2469
2384
742
815
862
2710
741
2713
2589
1933
1946
1086

027200
027215
003234
002630
014426
014432
177772
000240
000000

2544
2547
747
6974
922
884
Lok
1384
614

SG11
SG12
SG13
SG14
SG15
SG16
SG17
$G2
SG3

027304
027370
027516
027560
027631
027665
027754
020353
025257

SG?7

027156

SG4
SG5

SG8
SG9
TRAP
0
UBE
UBE1
IRQ
=
IRQVE=
RO
=
R1
R2
R3
R4
RS
R6
R7
S
SW

=
=
=
=
=
=
=
=
=

000040
000100
000140
000200
000240
000300
000340
177776
177776

PTRAP
004754
WRVEC= 000024

RCATCH

016222

RDYS

006570

ESVEC= 000010
START
TR

001100
006044

VEC
016314
SPTR
002514
STACK = 001100

START
START1

002632
003100

2462

624
63#
64k
654
664
674
68#
L4
“on

1196+
1615«
1833«
2095+

2457+
1074
1334

1118
2132
1294

128#

1524
1270

2355
3000
756
769
31664
2554
38224
3831#
38464
920
38594
3864#
38744
3168#
36294
36444
3196#

2541

2551
38124
7674
788
959
23524

42
8441
1202+
1620¢

1842+«
2123+
2486*

1080#
715

1132
2267
131

12734

156
6594
324
1285

1205
745+
707
1388

150
740

153
7630

1929

1958

23804
3006

38174

38524

2548

38064

790+
988

822
1026

827+
n21

898+
1231+«
1632«
1844+
2148+

948+
1258«
1634+
1866+
2214

977+«
1262+
1645+
1882+«
2246+

1901+
2251+

716+

3125+

3126

3135¢

3809#

2489+

2508+

2564«

1133

23514

1010
1286+
1652+«

1073+
1293+
1677+

1134
2291

1234
2345

1495
26474

1217
806
744
1416

1240
809
843
1448

1243
811
897
1505

26814
813
947
1561

746

2703

1328

201

157
26¢9

1347

2075

7004

1550

1914+
2282+

1101«
1390+
1688+

1937+
2287+

109«
418
1743+
1959+
2310

3141+«

3153«

3154¢

976
1614
2281

1009
1644

1603

1635

LAST1
014460
LF
= 000012
LOOP1
003150
LOOP2
003156
SG1
020342
SG10
027251

SEQ 0090

—

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZkuBB.P1
27-APR-78 15:02

1158+
1449+
1782+

1177+«
1467+
1792+

1181+«
1508«
1794+

1186+
1564+
1816+

1972+«
2409+

2015+«
2419+

2019+
2436+

2076
2455+

1732

1919

1998

2063

2114

1061
1676

1100
1741

1157
1781

1228
1832

1257
1881

1361#

2120

2149

2390

N
7
MACY11 30A(1052)
27-APR-78
15:03
PAGE 81
CROSS REFERENCE TABLE =~ USER SYMBOLS

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKUBB.PY1
27-APR-78 15:02

STKLMT= 177774

STRAP
SWR

004030
001172

430

845
1954

%%22

8784
705

2382

727

2459

729

735«

739

759

2539

2708

2734

2752

809

SEQ 0091

2759

2795

1064

2802

1083

2807

1931

2810

1944

2146

1207
1377

3133

SWREG
SW0
sW00
sW01
sW02

=
=
=
=

sW04

= 000020

sw03

000176
000001
000001
000002
000004

= 000010

1488
964
864
854
844

735

824

83#

SW0S
sW06
sW0?7
SW08
sW09
sWwl
sW10
sW11
sW12
sW13
sWis
sWiS
sw2
sw3

=
=
=
=
=
=
=
=
=
=
=
=
=
=

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

81#
804
79#
784
778
954
76#
754
70
73
720
710
94n
934

SWS

= 000040

914

sw4

sw6

= 000020

96
95

9%
93
91
90
89
88
87

1064

739
2459

759
2539

1083
2708

1931

1944

2382

920

= 000100

90N

TBITVE= 000014
TERRPC
016430

1294
773
1219

863
1224

880
1236

921
1262

958
1247

987
1272

1025
1302

1079
1319

1120
1338

1123
1356

1127
1371

1131
1374

1602
1860

1631
1865

1660
1904

1663
1909

1694
1912

1713
1918

1720
1942

1725
1971

1728
1978

1731
1997

1767
2033

1810
2046

sWw?
SW8
SW9

= 000200
= 000400
= 001000

894
884
874

1380

TKVEC =
TMAP
TPVEC =
TRAPVE=
TRTVEC=
TSTA
TSTB
TST1

TST10
TST11
1ST12
TST13
TST14

TSTIS

1ST16

TST17

000060
002512
000064
000034
000014
006656
014132
003630

005224
005754
006050
006656
007022

2057
2290

1364
658#
1370
1358
1300
1303
2208
8428

11564
1225
12848
1320
1400

007152

1427

007740

15608

007456

15048

1399

2062
2326

1410

2089
2344

791«

800+

713¢

714e

1433

2094
2555

801¢

1461

2099
2708#

1466

1470

1478

2106

2131

2158

1375

1378

1387a

803

1382#
2271#

1237
1339
1404

14478

1245

12568

1349

1357

1415#

1372

1483

2172

1494

2185

1538

2194

1543

2244

1549

1815
2052

2266

8
8
15:03
MACY11 30A(1052)
PAGE 82
27-APR-78
CROSS REFERENCE TABLE -~ USER SYMBOLS

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZKUBB.P11
27-APR-78 15:02
TS12
TS120
TST21
TST122

1S123
TST24
TST25

15126

TST127
TST3
TST130
TST3
TS132
TS133
TST34
TST35
TST36
TST137
TST4
TST40
TSTS
TST6
1ST7
TYPDS
TYPE

TYPOC
TYPON
TYPOS

T01LO1
T101L02
T01L03
T01L04
T01L0S
T01L06
102L01
102L02
702L03
T02L04
T03L01
T03L02

T03L03
T03L04
T04L01
T04L02
T04L03
T04L04
TO5LO1
705002
T05L03
TOSL04
T05L05
TO5L06
T05L07

004060
010204
010332
010472
010776
011134
011342
011550

012002
004266
012116
012372
012706
013134
013222
013476
014132
014214
004364
014456
004462
004656
005032
104405
104401

104402

104404
104403

003676
003754
003712
003760
004042
003746
004214
004144
004122
004204
0046346
004356
004312
004306
004444
004454
004410
004404
004572
004624

004522
004506
004652
004620
004562

876
16134
16434
1675#
17404
1760
18314
1880#
1927#
9464
1945

20104
20744
21194
21444
2147
22804
23064
9754
23794
1008#
1040
1065
2618
741
2466
2797
3155
763
31174
2715
8504
85¢4
855#
852
864
859
911
9124
904#
917
953
961
9514
9504
982
990
9804
9794
1017
1030
10164
10134
1042
1032
1021

SEQ 0092

8964

17804

1957#

22044

10604
10994
3118#
742
2469
2805

2541
2830

2544
2847

2547
2849

817

2464

2468

2543

31164
866
8654
868
8674
882#
9234
930
936
919
9604
9644
963
965
9894
9934
992
994
1019
10384
1035
1044
10454
10364
10274

761

873
8634

9214

10294

1037
1046

764

815

818
2548

2852

862
2551
2854

2554
2858

2546

2550

2553

920

2589
2865

1933

2616
2927

1946
2619
2970

2384
2710
3066

2712

2838

2862

3115#

1086

2462
2713
31144

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P11
27-APR-78 15:02
TOS5L08
TO6L01
T07L03
TO7L04
T07L05
107L06
TO7L07
T07L08
T08L01
T08L02
T08L03
T08LO4

004540
005012
005116
005162
005220
005210
005114
005202
005304
005552
005510
005642

1022
1082
e
1113
117
1124
11104
1108
1169
1195
11994
1221

T08L06
T08L07
T08L08
TO8LO9
TO9LO1
T10L01
T10L02
T10LO3
T10L04
T10L0S
T10L06
T11L01
T11L02
T12L01
T13L01

005736
005732
005252
005536
014210
006206
006326
006452
006616
006572
(006412
006744
006764
007114
010012

1208
1211
11624
1198
2284
1296
1313
1332
1363
13624
1330
1397
1402
1425
1568

TO8LOS

T13L02
T13L03
T13L04
T13L05
T14L01
T14L02
T14L03
T14L04

T15L01
T15L02
T15L03
T16L01

T16L02
T16L03
T17L01
T17L02
T17L03
T17L04

T17L05
T17L06

T170L07
T17L08

T170L09
T17010
T17L11
T18L01
T18L02
T18L03

005650

007774
010016
010154
010176
007670
007504
007712
007734

010250
010326
010234
010414

010452
010460
010516
010612
010572
010710

010616
010630
010754
010764
010772
010712
010732
011020
011052
011110

1227

15704
1574
1585
1598
15

1028
1084
1115
11224
11344
11324
1128
11304
1172
12094
1214
12274
12284
12444
12434
1164
12054
22914
13044
13224
13414
13694
1366
13334
164014
14054
14284
15754
1573
15774
1591
16034

151
1525
}234

15454
1539

1656
1658
16804
1686
16904
1698

16624
1661
1682
16964
1692
17154

18
1625
16194
16534

16974
17014
1706
1708
1695
1702
1718
176450
17514
1756

16224
16354
1627
1654

1700
1704
17274
17304
171
17164
17224
1747
1752
17624

c
8
MACY11 30A(1052)
27-APR-78
15:03
PAGE 83
CROSS REFERENCE TABLE =-- USER SYMBOLS
1087#

15994

1544

1550#

16644

1714

1721

1726

1729

17324

SEQ 0093

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P11
27-APR-78 15:02
T18L04
T19L01
T19L02
T19L03
T19L04
T19L05
T19L07
T19L09
T20L0N
120102
T20L03
T20L04
T20L0S
T20L06
T20L08
T21L01
T21L02
121103
T21L04
T22L0
T23L01

T23L02
T23L03

T23L04
123L05
123L06

T23L07

T24L01

124102

T24L03
T24L04
T24L0S
T24L06
T25L01
T25L02

T25L03
125L04
T25L05
T25L06
125L07
125008
T26L01
T26L02
T26L03
T26L04
T26L05
T27L01
127002
T27L03
T27L04
T27L0S
T27L06
T27L07
T28L01
T28L02
T28L03

011072
011160
011270
011240
011252
011330

011310
011266

011366
011474
011442
011456
011536
011516
011476
011742
011770
011724
011776
012076
007320
007254
007274
007446
007344
007364
007426
012230

012220
012366
012334
012266
012250
012512
012542
012644
012664
012420
012560
012622
012702

013042
012752
013002
013022
013066
013322
013442
013366
013336
013430
013400
013462
013634
013750
013766

1755#

1785#
1801
17964
1800#
1804
1808
1797
1836#
1847
18464
18504
1854
1858
1851
1892
1894
1897
1905
1940
1451
1458
1463
1491
1475
1480
1487
1964
1968
1979
1986
19834
1974
2014

2022
2024
2026
2015#
2035
2039
2034
2079
2082#
2086
2091

0D
8
MACY11 30A(1052)
27-APR-78
15:03
PAGE 84
CROSS REFERENCE TABLE =~- USER SYMBOLS

1759

1787
1806#
1799
1803
1811
18124
18054
1838
1855#
1849

1853

1861
1862#
18564
19114
1917#
1906#
1907
19434
14734
14624
14674
14954
14794
14844
14904
19754
19724
1988
1991#
1994
1980#

2028«
2035#
20544
20594
2027
2038#
2048#
2041
2101#
2084
20904
2095«
2103
21604
2173
21744
2166
21874
2179
2195«
22244
2234
22464

18164

18664

1910

1916

1919#

2053

2058

2188

21904

19984

2047

21074
2186
2169

2182

2237

22424

2063#

SEQ 0094

UNIBUS EXERCISOR MODULE DIAGNOSTIC
CZxuBB.P11
27-APR-78 15:02

T28L04
T28L0S
728L06
T28L08
128L09
T28L10
T29L01
129102
T29L03
129104
T29L05

T29L06
729107
T30L01
T35L02

T30L03
T30L04
T30L05
T30L06
130L07
T30L08
T30L09
T30L10
T30L11
T30L12
T30L13
T30L14
T30L15
T30L16
T30L17
T30L20
T30L21
T30L22
T30L25
T30L26
T30L27
T30L28
T30L29
T30L30
T31L01
CNT
INY
AUTOB
BDADR
BDDAT
BELL
CHARC

014116
013646
014010
014044
014056
013522
014242
014334
014372
014236
014342
014306
014420
014514
014726
014742
014756
014772
015004
014714
015504
015330
015420
015406
015674
015472
015356
015550
015570
015576
016020
014634
015024
015200
015076
015246
015042
015116
015070
013216
002626
005716
001166
001154
001160
001240
017662
reeRNESR

001132
000004
000010
000004
000004
001245
017436
016144

2245
2225
22494
2253
2257
2207
23124
2315
2331
23114
23304
2320#
2327

2381
2391
2394
2399
2604
2423
2413
2497
24974
2506
2507#
2470
2518
2503«#
2530
2534
2532
25824
2398

2435
2452
24544
2476
24484
24584
24534
2129
6964
1169
1924
1874
1894

MACY11 30A(1052)
27-APR-78
15:03
PAGE
CROSS REFERENCE TABLE =~- USER SYMBOLS

2261
22274
2250
22564
22594
22094
2314
23284
23394
2337
2334
2323
2338
23904
24214
24244
26274
24304
2426
2616
2505
2500
25104
2514
2516
2522
2521
25334
25374
2536
2586
24603
24384
2671
2474
24814
2492
2477
2479
21324
814+
12394

23454

2429
24184
25254

24324

2540

25564

2524
2538#
4074

24b4

2434

2445

2797
2982+

2822
2989

2998+

30034

1754

702

703

711

717

718

719

2830

2849

2074
2074
2054
2114
2194
2893
2612

208#
2084
207
2124
764
2927
2621

SEQ 0095

22674

2174
2972+

3121

2094
209#

2104
2104

2114
2114

2134
818
29354
26274

2144
2805

215¢
2822

2854

2858

2971

3006

UNIBUS EXERCISOR MODULE

CZxuBB.P11

27-APR-78 15:02

2896

017426
016134
016102

164
717
2616

016153

2619

016150
016046
016074
001135
001147

774
717
1784
1844
[4}
185#

016720
001150
001250
017066

236#
2804
1824

001144
001236
001210
001207
001152
001156
016124

2164
2034
2024
1864
188#

26204
3120

L A28 48]

000001
001136
020324
001167
001146
001246
001140
001142

1
1794

3125

1934
183#

2204
1804
1814
739

LA8822

2767
2014
8354

016716
001206
000001

1093
15524

1822
2136

020110
020112
016702
001132
020332

3038«
3033«
2735

1764
3156

020164
020320
020236

715

tedeee
teteRe
thdee
Y

001212
001214

cccc

001244
tRteEY

F
8
MACY11 30A(1052)
27-APR-78
15:03
PAGE 86
CROSS REFERENCE TABLE =~ USER SYMBOLS

DIAGNOSTIC

3156#
3135
2184
bAFY
N
2
nA
2054
2074
1230+
1628+

2232+
3282

2931#
26234
2614
26312
26304
2386
2611
2725
720+

27914
271
2844
28294
2798+
719+

2975
3006

2817

2588
2615
2748
2750

26044
2750
2772+

2756+
2777

2777

2792+

2799+

2800+

2801

2822

2836

2822
2771+
3006

2813

2815

2822

2776

2763+
3141

2764
3158#

2766+

2801+
2822
721¢
722+
2769
27764
2977
837
11364

2822
3006
829+

2833

21994
3067+
3037«
2755
2587
31614
3125#

2201
3080#
3042

1554
18704

31414
2822

855+

1297+
1722+

2235¢
3422

SEQ 0096

P46t

2807

3006
886#

1138
16064
1872

2765
2608+

2354+
830+
2959

2822

2754+
2355+

2769+

2754

2774
2770+

2776
2776

2812

9384

967#
1277
16674
1951
2296

2000#
2360#

9964
164128
17344

2275

940
12754
1639
19494
22944

969
13844
1669

22734

1251
16374
1923

3045+
27734
2609+

3056+

30824

2617

2630

2761

2777

912+
1333
1812+

954+
1351
1862+

983+
1405+
1975¢

1022+
1428+

1174+
1469+

888

12494
1608
19214

998
14364
1736

10484
1438
17694

1050
14994
1771

1091#
1501
18204

2002
2362

2065#

2067

21164

21340

1179«
1535«

1184
1540+

1193+
1547

1199«
1599«

1222+
1600+

3153
3006

878+
1314+
1763+

2238+

2242

2262+

2339+

2029+
2461

2031
2463

2043+
2526

2049+
2542

2055+
3225

2060+
3236

2228+
3251

8
6
MACY11 30A(1052)
15:03
PAGE 87
27-APR-78
CROSS REFERENCE TABLE -- USER SYMBOLS

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZKuUBB.P11
27-APR-78 15:02

$REGT

001216

$REGZ

001220

$REG3
SRTNAD
=
SRCA
$SAVRE=
$SAVR6
$SCOPE
$SETUP=

001222
016146
TR NY
LA2284

020330
016470
000037

$STUP = 177777
$SVLAD
016654
$SVPC
001132
167000
$SWR

$SWRMK=
$TIMES
$TKB
$TKS
$TMPO
$TMP1
$TMP2
$TMP3
$TN
=

000030
001234
001200
001176
001224
001226
001230
001232
000041

001204
001211
001202
020114
S TRAP2
020136
= 000006
S$TRP
$TRPAD
020150
TSTNA
001134
$TPB
STPFLG
$TPS
STRAP

STYPBN=

teete
e

017222
017446
017616
017664
017712
017726
017666
016500
$GET4= 000000
TYPDS
TYPE
TYPEC
TYPEX
TYPOC
TYPON
TYPOS
XTSTR

208#

1298+

2242+
2094
2264+
2104
26294
3121
3121
3134
709
1400

914+

913
1334+
2340x
955+

1300+

1317«

856+

1315+

2263+
2341+

3142
27334
708

2810

2817

2743

27684

140

1624
1
718
1285
1928

2628
2758
2810
2730
2154

198#
1974

211

2124
2134
2144

114
1048
1320
1427
1734
1958#

22814
200#
204%
1994
713

3102#
31064
3096

1774

3119
28814
29534
2974
2999
30364
3035
30314

27374
26224

167

n
719

1388
1958
2630

956+
1352+

1175
1536

1336+

3143

3144+

31604

709

713

715

718

719

721

2606

2734

2792

16
721
1416

17
722
1448

20
947

215
1100
1781
2601

216
1157
1832

217
1257
1881

843
1505

897
1561

3251

1407+

1431+

2531+

2535+

2537+

2552

3422

1614

1353+

976
1644

1009
1676

1061
1741

2759
2822

2205
2730
2784

2281
2734
2785

2307
2746
2786

2380
2748

718+

1085+

1928+

2145+

2205+

2307+

2585+

1160+

2681

904

926

934

8434

876
11004
1357
1499
1769

1136
1372
1505#
17814

8974

938
1225
1378
15614
18324

9474
1237
1384
1606
1870

2000
2294
2995+
2953
2993
5091#
3113

2239+

3225

2145
2729
2783

1339
1436
17414

2229+

2549

2545

2120
2728
2776

835

1231
1863+

1194+
1723+
3282
1430

1335+

1185+
1629+

2075
2727
2773

10614

1229+
1813«

2528+

¢
984

1180+
1541+

2011
2726
2770
3157

903+

1200+
1764+
3422
1765+

985+
1406
2,67
1299«
3251
1354

2465+

1023+
1429+
2527+
1316+
3422
1408+

SEQ 0097

1091
1349
1448%
1760

886

11578
1375
1552
1820

20114
23074
3006
3006
3006

2065
2360

20754
23804

2116

31164

31174

31184

3119#

2356+

2606+

2716

2725

3114
2968
30044

29934

2994

3117

2787

2749
2795

2607
2750
2802

2622
2757
2807

2607+

2757+

2764

2767+

2776

967
1245
1388#
16144
1881#

9764
1249
1400

996
1257#
1404

1009#
1275
1612
1667
1945

1040
12854
14164
16764
1949

1637
1921

16444

19284

21204

2134

21454

2147

2199

2768

2773

2777

2794

2822

22054

2273

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZkuBs.P11
27-APR-78 15:02
$OFILL
020111
$40CAT= wevenr y

= 030032

3032+«
2734

1424
2634

3036+
2804

1464
2776

H
8
MACY11 30A(1052)
27-APR-78
15:03
PAGE 88
CROSS REFERENCE TABLE =-- USER SYMBOLS

3046

3081#

1514
2777

162
2822

1634
28684

1654
2935¢

1674
3006

1744
3137

SEQ 0098

221
3159

706
32504

721
32814

722
38804

2630
38844

1048

1446

1820

SWRSU

2143
3008
1394

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
SCMRE
SCHTH

3106#
139#
1394
139#
1394
1394
1394
1394
1084
1684

SNEWT

139#
1552

S$ESCA

1394

—

1060
1831

1099
1880

1225
1544

1237
1695

2705

1063

2707

1068

698
1136
1559
1921
2279

835
1155
1606
1926

2294

1249
1612
1949

1436

1499
2199

1447

1504

3115

3116

3117

3118

1040
1427
1907
777

1208
1534
1945
819

1211

2680

221

1098
1552
1879

1539
2147
821

1503
1870
2203
3123

2273
3139

762

816

463

2467

207
2N

208
212

209
213

210
214

886

938
1667

1734

3164

3881

841

1320
1714

1339
1721

1349
1726

1357
1729

1372
1760

1375
1804

1378
181

2347

2349

2634

2636

2644

2646

2657

2659

895

938
1283
1667

945
1384
1674

967
1386
1734

974
16412
1739

996
1414

1007
1436
1779

3883

886

1255

1637

1275
1642

2305

1956

2360

2000
2378

2009
2598

2065
2722

2073

2542

2545

2549

2552

271

2836

2860

996
1769

1048
1820

1091
1870

1249
1949

2000

2779

2379

7234

2134

1412

—

2350

3085

2116

1284
2010

—

2306

170
1091

1384

O W

1008
1780

1275

2000#

3147
3133
975
1740
2605

160
1059
1499
1830
2199

—

2074

946
1675

2678

&N
—
QD
~ —
- OO

1387

1091
1870

2672

—

2065

1048
1820

2362

2116
2826

2144

2204

1769

2118
287N

2134
2938

2617

835

1606

1637

967

1275

1384

2065

2670
1394
1394

2000

996
1769

23604

SPACE
STARS

1400
1854
1394

1249
1949

967
1734

700
876
1404
1861
775

11364
1639

1136
1921

938
1667

896

1093
16374
1951

2296

886
1637

1643

10914
1608
19494

22944

835

842
1613

1050
16064
1923

2275

2134

2360
3146
3127

10484
1554
1921#

22734

2067

2294
2922
2881

998
15524
1872

2201

2065#
1606

9964
1501
18704

2193

2032
2097
2289

21994

969
14994
1822

1814

1218
1409
1542
1859

2030
2093
2265

—_

SLASH

3106#
1394
1394

9674
1438
1820#

2183

1206
1398
1537

2028
2092
2243

N\ —>
E
2

SETTRA
SETUP
SKIP

1394
344
1560
2280
1394

940
14364
17N

2184

2087
2192

1130
1379
1493
1809

888
12754
1736

9384
1277
17694
2136

12494
1669

1727
1977
2061

1126
1376
1492
1766
1996
2088

~N O~

SETPRI

1394

2054
2170

1122
1373
1482
1730
1995

1477
1724
1976
2059

O N

EPORT
SCOPE

1394

2051
2157
2538

1078
1355

—

kUSH

2273

8864
1251
17344

2458

986
1318
1647
1712
1969

~N O

POP

1394

1552

837

2130
2343

957
1301
1470
1693
1941

O -

INEWTST

2045
2105
234¢

16464

1659
1911
2048

915
12N
1465
1662
1917
2050
2156

—

MULT

1394

835#
1138
16674
2002
1394

2044
2104
2325

879

1246

—

857
1241
1460
1630
1908

SEQ 0099

~Nn

EETSUR

772
1235
1459
1601
1903

—

ESCAPE
ETPRI

1394
1394
334
1223
1432
1548
1864
2042
2098
2324
1354
139#

= OOVNSWO
NWN
N - NN
OOV~

27-APR-78 15:02

cZxkuBB.P1

COMMEN
ENDCOM
|ERROR

l
8
MACY11 30A(1052)
15:03
PAGE 90
27-APR-78
CROSS REFERENCE TABLE == MACRO NAMES

DIAGNOSTIC

PON)
=
b b —d =

UNIBUS EXERCISOR MODULE

1436

2134

1499

2199

UNIBUS EXERCISOR MODULE DIAGNOSTIC
(ZxuBB.P11
27-APR-78 15:02
$S$SET
$$SKIP
.EQUAT
.HEADE
.SETUP
.SWRHI

. SWRLO
.$ACT
.SCATC
.SCMTA
.SEOP
.SERRO
.SERRT
. $POWE
.$SCOP
.STRAP
.STYPD
.STYPE
.$TYPO
.

ABS.

2273
31064
1394

2294
3115
876

1427
1
1K
1K
14
234
1
1#
14
14

1760
29

140
12
27
158
140
168
2596

14
10
1w
14
14
14
14

2822
32
2720
3083
2869
2936
3006

2360
3116
1040
1945

3117
1225

2147

J
8
MACY1T 30A(1052)
27-APR-78
15:03
PAGE 91
CROSS REFERENCE TABLE -~ MACRO NAMES
3118
1237

#2777

030032

ERRORS DETECTED:

000
O

CZKUBB.BIN,CZKUBB.LST/CRF/SOL/NL:TOC-CZKUBB.P11

RUN-TIME:

22 14 1

SECONDS

RUN-TIME RATIO: 524/38-13.4
CORE USED:
(39 PAGES)
20K

1245

1320

1339

1349

1357

SEQ 0100

1372

1375

1378

1400

1404