Digital PDFs

AH-8856D-MC

July 1978

68 pages

Original

3.6MB

view download

OCR Version

3.1MB

view download

Document:	CZKUAD0 PDP11 UNIBUS SYSTEMS EXERCISER DIAGNOSTIC JUL 1978 bw
Order Number:	AH-8856D-MC
Revision:	000
Pages:	68
Original Filename:	CZKUAD0__PDP11__UNIBUS_SYSTEMS_EXERCISER_DIAGNOSTIC__AH-8856D-MC__JUL_1978_bw.pdf

OCR Text

UNIBUS SYSTEMS EXERCISER

AH-8856D-MC

JUL 1978

CZKUADO

copvrichT < 75-78

LHEONED

DIAGNOSTIC

FICHE1 OF1

MADEIN USA

SEQ 0001
Product

(ode:

AC~-BBS55D0-m(

Product

Name:

CZKUADO Unibus

Date

The

information

Maintainer:

Diagnostic

Author:

Manuel

for

any

this

not
be
Digital

errors

that

Exerciser Diagnostic

1-APRIL-78

MODIFIED BY:

and
should
Corporation.

Systems

BILL

document

construed
Equipment

may

appear

Group

Soares
SCHLITZKUS

subject

change

without

notice

as
a commitment by Digital Equipment
Corporation assumes no
responsibility
in

this

manual.

[pigital Equipment Corporation assumes no responsibility for the use
reliability
of
1its
software
on
eqguipment
that is not supplied

Digital.

FOLLOWING

DIGITAL
DEC

(()
ARE

1975,1978 Digital
TRADEMARKS

PDP
DECUS

Equipment

DIGITAL

UNIBUS
DECTAPE

Corporation

EQUIPMENT

CORPORATION

MASSBUS

or
by

Page

o
.
o

REQUIREMENTS

o
[] [
=

Hardware
Software

W
]
o

ABSTRACT

PROGRAM DESCRIPTION

WWWwWWwWw
L] L]
[
W
—

—

Contents

Test

£
.
O

.
o

Table of

ERROR REPORTING

Switch Options
1

Sysmac

thru Test

Routines

SEQ 0002

D
Page 3
1.0

’

ABSTRACT

This program was created to test PDP-11's (PU interface circuitry.,
|t
uses
the
Unibus
Exerciser(s)
(UBE)
to
insure proper operation by
simulating peripherals which wou.d require the 11-CPU to
produce
the
necessary signals.
[t should be noted that the UBE is a powerful too!
and if it is not programmed cor~ectly could cause various problems
on
the Bus.

2.0

REQUIREMENTS

2.1

Hardware

This

program

assumes

the

following

proper

working

condition:

1.
The
Unibus,
2.
Memory (8K minimum), and 3.
UBE(s) (& maximum).
It a fourth UBE is being
used, its tirme delay should be set
at
100us
to prevent latency problems in one of ‘he tests.
j(Wwith two or more UBE(s), all should have W1
jumpers
except
the
one
furthest
electrically
from the CPU.
If there are more than & UBE(s)
on the Unibus the program is not responsible for
any
problems
which
Imight occur , since it is programmed to handle a maximum of only &.

2.2
fter

Software
loading the program the startin? address must

200,

that

duplicating
220.

some

the
first
time
through,
the
available
UBE(s) are determined.
In
addition if one or more UBE(s) are added or removed, the program again

[must
be
started
at
200.
Otherwise,
to
avoid
printouts, the program can be restarted at address
R

P R T R

SOF TWARE

R R R Rt R R LR R TR R R R R PR R TN RN

HALT

CAN BE

CAUSED BY

AN A NRANE

DEPRESSING

OO OEE

(ONTROL-H

THE

CONSOLE.

If THE PROGRAM IS HALTED THIS WAY, AND THE PROGRAM IS RESTARTED,
DEPRESS ANY CONSOLE KEY TO REMOVE THE SOFTWARE HALT CONDITION.
L AAAAAAR AR RS20
220X
RN

3.0

PROGRAM DESCRIPTION

This program was
package .

assembled with MACY11

wusing

PDP-11

Maindec

Sysmac

SEQ 0003

Page 4

3.1

Switch Options

The use ot
thes
program
on
processors
having
a
software
register
necessitates operator interaction:
the operator must

Llocation 176 with the switch register values desired
Switch

Use

......

-y

15
14
13

Halt on Error
Loop on test
Inhibit error

10
9

Bell on error
Loop on error

Inhibit

Test

iterations

Loop on test

TEST

through Test

No Bus

bus

grants

request.

honored

typeouts

in SWR<5:0>

NOTE :
It you wish to inhibit all
you must put down switch 7, after
6
WHEN SET, INHIBIT TEST 14

3.2

switch
set up

typing except
loading 200.

‘‘end of pass"

16
issued with

This

long

test
the

processor

insure

processor

higher

that

the

any

priority

request

same

than

is not

higher

priority.
TEST

Issuing of

test

will

processor

device

non-processor

request

status

grants

NPR

initially

exercises

NPG

3 -

Issuing of Bus grant

7 and

arbitration

level

requests will be repeated while
processor
status
from
7
to 0O
requests and the issuing of NPG.

TEST

and

through
do

tests.

BR4

Llevels

fun

1-dati,

and

make

sure

then

sequentiall
lowering
to allow arbitration of

arbitration

tests.

This

with the

This

the

the
all

test

will
arbitrate
for
a BG7.
The requests will be on levels
BR7 thru BR4, doing fun 1-dati transfers, and the
processor
status

TEST

& -

TEST

5 -

lowered

Issuing of Bus

sequentially
grant

6 and

from

to O.

arbitration

tests.

will arbitrate
for a BG6, the requests will be on
thru BR4, doing fun
1-dati
transfers,
and
the
status lowered sequentially from 6 to 0.

This

test

levels BR6
processor

Issuing of Bus
grant S and
arbitration
tests.
This
test
will arbitrate
for a 8G5, the requests will be on levels BRS
thru BR4, doing fun
1-dati
transfers,
and
the
processor
status lowered sequentially from § to 0.

SEQ 0004

F
1
Page 5
TEST

Issuing of Bus ?rant & and
arbitration
tests.
This
test
will arbitrate
for a BG4, the requests will be on level BR4,
doing
func
1-dati
transfers,
and
the
processor
status
lowered sequentially from & to 0

TEST

CPU test
the
(PU

received.

for no sack
times
out
If

the

CPU

time out.
This test
will
check
that
and drops a grant if no sack signal is
time

out

1inoperative,

exerciser
will time out and send the sack
a Bus hang and set an error flag in (RZ.

signal

the

B8us

to prevent

TEST

(PU test for receivina sack.
This test is
to
1insure
that
the CPU can receive the sack signal;
The time delay will be
set on device 1 and several dat) transfers made.
It
there
is
not bus late error, the (PU received sack correctly.
It
is assumed that dev 1 time delay is set for 10us.

TEST

Passing of

grants

and

interrupt

off
all
available
devices
functions will be to interrupt,

test.

This

test

will

set

simultaneously
whose
only
the requests will all be
at

level 7 so that the device closest to tha CPU should receive
BG? first and
interrupt
tirst,
the
next
closest
should
interrupt

and so on.

TEST

Address lines (14 - 17) check.
This
test
will
check
Bus
address
Llines 14 thru 17 by doing a fun 1-dati-npr to those
addresses.,
[f
the
addresses
don't
exist
the
interrupt
routine will ignore any no ssyn error.

TEST

(PJ test for
ACLO/DCLO
sequence.
This
test
checks
the
assertion
of
ACLO
and
DOCLO and that the CPU traps to the
correct service routine.
[f this program is
running
under
ACT11 this test will be skipped.

TEST

Parity error test.
This test will cause
parity
error
and
checks
that
the (PU traps to the correct vector.
THIS TEST IS SKIPPED ON MACHINES THAT DON'T HAVE THE SXT INSTRUCTION

(EG.,

THIS

11/05 AND 11/20).

TEST

SHOULD BE

DESELECTED

THE

MEMORY

PARITY

OPTION

IS NOT PRESENT OR NOT ENABLED.

SW06=1
TEST

Multitransfers
up
to
&,
to

INHIBIT

Multitransfers

|.
This test
create a lot

that the CPU
can
simultaneously.

TEST 16

TEST

[l.

exercisers
doing
different request
capabilities.

handle
This

various
Llevels

will cause any Bus
exercisers,
of traffic on the Bus and check

it;

all

devices

test

will

have

transfers
and/or
to
further
check

are

the

set

off

available

interrupts at
C(PU
handling

SEQ 0005

Page 6

TESTM

17 - DUMMY

just

END Of

see

1if

cause a program halt.

continues by
IF THE PROGRAM

DEPRESS

3.3

Sysmac

ANY

PROGRAM.

This

' H' has been

there

portion of

typed on

' H'

the program

the console

the

program

jumpin? to $EOP (end-of-pass routine).
[S HALTE D THIS WAY, AND THE PROGRAM IS RESTARTED,

(ONSOLE

KEY

TO REMOVE

THE

SOF TWARE

HALT

CONDITION.

Routines

The
in

'END OF PASS ROUTIME' thru 'Power Down and Up Routines', as listed
the
program
Llisting,
are
the
Sysmac package macros.
They are
called out in
the
source
program,
some
with
arguments
and
some
without,
and
are expanded in the listing.
Some macros are necessary
for

the operation of

others,

available Sysmac Macros

4.0

for

see PDP-11

complete

Maindec

Sysmac

explanation

Package

all

(DZQA(C-B-D).

ERROR REPORTING

The minimum amount of information given when an error occurs is the P(
of
the
error
call
and the Test number in which it occurred.
Other
pertinent data will by typed out depending on the test
being
run
at
that time.

SEQ 0006

UNIBUS EXERCISER
MACY11
CZKUAD.PI
26-APR-78 17:0¢2
1

30A(1052)

O03-MAY-78

14:28

H
PAGE 2

1
SEQ 0007

167400
000300

30A(1052)

C3-MAY-78

LTITLE

14:28

l
3

PAGE

SEQ 0008

$SWR=167400
$SWRMK =300

UNIBUS EXERCISEK

;*COPYRIGHT (C) MARCH, 75
;*DIGITAL EQUIPMENT CORP.

“«MAYNARD, MASS. 01754
| 4

WA= OOV

d
b
b
e
b
—h

VOO NOIA N

D md

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26 ~APR-78 17:02

*«PROGRAM BY M.SOARES
*

:'THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
s *PACKAGE

(MAINDEC-11-DZQAC-B1),AUG 29,1975.

000001

$TN=1
.SBTTL

OPERATIONAL

SWITCH SETTINGS

bR4

SWITCH

‘|

eeecees

X
;Y
o
s
i

15
14
13
"
10

9
8

.
o
A
.SBTTL

001100
177776
177774
177772
177570
177570

000000

000001
000002
000003
000004
000005
000006
000007
000006
000007

000000
000040
000100

HALT

BASIC

WHEN

EMT ,ERROR
10T,SCOPE
177776
PS,PSW

PIRQ=

177772

STKLMT= 177774

177570
177570

. *GENERAL

RZ=
R3=
R&=

RS=

10
1

15
16
17

SP-

PC=

144

S*PRIORITY LEVEL
PRO=
0
PR1=
40

PR?=

INHIBIT

100

TEST

THE STACK POINTER vee 1100 wee
;;BASIC DEFINITION OF ERROR CALL
;;BASIC DEFINITION OF SCOPE CALL
; ;PROCESSOR STATUS WORD

;s STACK LIMIT REGISTER
: ;PROGRAR [NTERRUPT REQUEST REGISTER
: sHARDWARE
; ;HARDWARE

SWITCH REGISTER
DISPLAY REGISTER

PURPOSE REGISTER DEFINITIONS
;;GENERAL REGISTER

12
13

R6=
R7=

SET,

IN SWR<5:0>

DEFINITIONS

.EQUIV
.EQUIV
PS=
.EQUIV

RO=
R1=

TEST
ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR

LOOP ON TEST

*INITIAL ADDRESS OF
STACK=
1100

DSWR=
DDISP=

ON ERROR

LOOP ON
INHIBIT
INHIBIT
BELL ON
LOOP ON

;;GENERAL REGISTER
; GENERAL REGISTER
;. GENERAL REGISTER
; ;GENERAL REGISTER
. ;GENERAL REGISTER
;;GENERAL REGISTER
;;GENERAL REGISTER
;o STACK POINTER
; :PROGRAM COUNTER

DEFINITIONS

;.PRIORITY LEVEL 0
SPRIORITY LEVEL 1
:;PRIORITY LEVEL 2

UNIBUS EXERCISER
MACY11
CZKUAD.PNN
26-APR-78 17:02

58
59
60
61
62
63

000140
000200
000240
000300
000340

65
66
67
68
69

100000

70
4
72
73
74
75
76
77
78
79

80
81
82
83
84

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

86
87
88
89
90
91
92
93
94
95
96
97
98
99

30A(1052)

03-MAY-78

BASIC
PR3=
PR4=
PRS=
PR6=
PR7=

020000
010000
004000
002000
001000
000400
000270
000100
000040
000020
000010
000004
000002
000001

DEFINITIONS

PAGE 4

140
200
240
300
340

;PRIORITY LEVEL 3
¢PRIORITY LEVEL 4
;PRIORITY LEVEL 5
;PRIORITY LEVEL 6
:;PRIORITYLEVEL 7

;*''SWITCH REGISTER'' SWITCH DEFINITIONS
sSWi5=
100000
SWwi4=
40000
SW13=
20000
swi2=
10000
SWil=
4000
swi0=
2000
SWd9=

1000

SW08=
Sw07=

400
200

sw03=
SW02=
Sw01=
Sw00=
LEQUIV
.EQUIV
EQUIV
LEQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV

10
4
2
1
SW09,SW9
Sw08,S5w8
SW07,SW?
SW06,SWwé
SWO0S5,SwW5
SWO04,SW4
SW03,Sw3
SW02,Sw?
SW01,sw1

Sw06=
sSW05=
Sw04=

.EQUIV

100000
040000

14:28

100
40
20

swW00,Sw0

;*DATA BIT DEFINITIONS
817T15=
100000
BIT14=
40000
BIT13=
20000
B8IT12=
10000
BIT11=
4000
BIT10=
2000
BI1709=
1000
BIT08=
400
BIT07=
200
817106=
100
BIT05=
40
BIT04=
20
BIT03=
10
4
BI102=
BITO1=
2
B8IT00=
1
EQuliv
BIT09,BIT9
EQulv
B1T08,B178
EQulv
B817107.8117
EQUIV
BIT06,BIT6
EQUIV
BITOS5,.BITS

(BITOO TO BIT1S5)

SEQ 0009

WA= OO0 ~NONN S

NV
NOWVNSWN SOV

—d o

b
b

}gg

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

152
153
154
155
}gg

000250

177572
177574
177576
172516

BIT04,BIT4
BIT03,BIT3
BI1T02,BIT2
BITO1,BIT
BIT00,BITO

MEMORY MANAGEMENT DEFINITIONS

MMVEC=

250
STATUS REGISTER

SRO=
SR1=
SR2=
SR3=

ADDRESSES

177572
177574
177576
172516

;*USER "'I1'* PAGE DESCRIPTOR REGISTERS
177600
177602
177604

177606
177610
177612
177614
177616

UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604

UIPDR3=
UIPDR4=
UIPDRS5=
UIPDR6=
UIPDR?=

177606
177610
177612
177614
177616

;*USER "'1'' PAGE ADDRESS REGISTERS

160
161
162

177640
177642
177644

;gg

177656

169

;*BASIC ‘'CPU"" TRAP VECTOR ADDRESSES
ERRVEC= &
;. TIME OUT AND OTHER ERRORS
RESVEC= 10
: ;RESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
VT oBIT
TRTVEC= 14
:: TRACE TRAP
BPTVEC= 14
: ;BREAKPOINT TRAP (BPT)
IOTVEC= 20
;s INPUT/QUTPUT TRAP (IOT) =«SCOPE*+
PWRVE(C= 24
;s POWER FAIL
EMTVEC= 30
: sEMULATOR TRAP (EMT) «+ERRQORtv
TRAPVE(=34
::"'TRAP'' TRAP
TKVEC=
60
;. TTY KEYBOARD VECTOR
TPVEC=
64
::TTY PRINTER VECTOR
PIRQVE(=240
; :PROGRAM [NTERRUPT REQUEST VECTOR

:*KT11

}gg

163
164
165
166

K
PAGE S

;*KT11 VECTOR ADDRESS

}2;
149
150
151

O03-MAY-78
14:28
BASIC DEFINITIONS

.SBTTL

:2?
142
143
144
}22

30A(1052)

LEQUIV
.EQulv
.EQUlv
.EQulv
.EQulv

D e
o
d o
d
d
d
D
e
ed o
b
d cd
d ad
d
d
md
b

NN N WNWIWWWWWNNEND O NN NN NN NIN) =

UNIBUS EXERCISER
MACY11
CZKUAD.P
26-APR-78 17:02

177646
177650
177652
177654

UIPARO=
UIPAR1=
UIPAR2=

UIPAR3=
UIPARGL=
UIPARS=
UIPARG=
UIPAR7?=

;*KERNAL

177640
177642
177644

177646
177650
177652
177654
177656

"'I'" PAGE

DESCRIPTOR REGISTERS

SeEa 0010

UNIBUS EXERCISER
MACY11
CZXKUAD.P11
26-APR-78 17:02

30A(1052)

170
17

180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196

202
203
204

14:28

MEMORY MANAGEMENT

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

172
173
174
175
176
177
178
179

197
198
199
200
201

03-MAY-78

L
PAGE 6

SEQ 0011

DEFINITIONS

172300
172302
172304
172306
172310
172312
172314
172316

s*KERNAL *'I"" PAGE ADDRESS REGISTERS

172356

000000

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

172340
172342
172344
172346
172350
172352
172354
172356

.SBTTL

TRAP

.=0

J*ALL UNUSED LOCATION> FROM 4 - 776 CONTAIN A ‘', 42 HALT"
;*SEQUENCE

000174
000176
000200
000204
VARRYE
ARRYA|
A SRYA|

000174
000000
000000
000200
005037
000137

CATCHER

TO CATCH ILLEGAL TRAPS AND

INTERRUPTS

:'LOCATION194C0NTAINS 0O TO CATCH IMPROPERLY LOADED VECTORS

BISPREG: .WORD 0
.=200

001174
001756

SWREG:

.WORD

CLR

;s SOFTWARE DISPLAY REGISTER

s ;SOFTWARE

$TMPO

JAMP

;MAKE

8#START

SURE

SWITCH REGISTER

TMPO=0

;JURP TO START

A REYA| WA RRYA A BEYA /e /e e [y e i fe /e /e /e
ARV| A BENA| A VA VA NEVA BEVA VA BV SEVA YL BEVE BEVL
A BEYA| /e /e VA BEVA] A RRVA BEVA BEYVA BEVEEEYA BEVE YL BEYA
;*WHEN LOADING THE PROGRAM FOR THE FIRST TIME, OR ANY TIME

2 fe
BEVA
BEFE

B
B

VRN
«f:
¥ AR

|
»
|

sCAFTER ALTERING THE # OF EXERCISERS ON THE BUS,

s*YOU MUST

AN
AR
AR

218
219
220
221
222

223
2264
225

TA
TE
TA

000220
000226

START AT LOCATION 200 AND

s*RESTART AT LOCATION 220 ONLY IF YOU DO NOT WISH
;*T0O SIZE MEMORY AND TYPE OUT DEV ADDRESSES AGAIN

t/:
v/
t/:

¢/
o/:
n/:

000220
012737
000137

v/
v/
v/:

v/
o/
«/:

000777
001756

t/:
t/:
t/:

o/
v/
«/:

001174

AR
v/
L VASR

VAR
%/
YARR

.=220

VERE
wf:
VEARR

VARE
wf:
VAR

mov

AAAAAAA AR

CSBTTL

ACT11

VAN
ef:
VN

VENE
wf:
VEARE

¥ EREVAR
o) v/
VAR VAR

#777,8TMPO

JMP

VENE
af:
VARE

;TAPO 1S INDICATOR FOR RESTART

S#START
AR

HOOKS

AR A

sHOOKS REQUIRED BY ACT11

:JURP TO START
A

0200220220

)

UNIBUS EXERCIS ER
MACYT
CZKUAD P11
26-APR-78 17:02

226
227
228
229
230
231
232

000046
000052

000232
000046
015636
000052
040000
000232

30A(1052)

03-MAY-78

ACT11

HOOKS

14:28

PAGE 7

$SVP(=.
.=46
SENDAD
.=52
.WORD
40000
.=$SVPC

SEQ 0012

; SAVE P(

;:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
::2)SET LOC.52 TO 40000
;

RESTORE

UNIBUS EXERCIS ER
MACY11
CZKUAD P11
26-APR-78 17:02

233
234
235
236
237
238
239

.SBTTL
;*THIS

Sta 0013
A

ARl

TABLE

CONTAINS VARIOUS

001156
001160
001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001206
001210
001212
001214
001220
001221
001222

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177607

$SREGO:
$REG1:

077

015
000012

000377

.WORD
.WORD

.WORD

$REG3:

.WORD

SREGS:
$TMPO:
$TMP1:
$TMP2:

.WORD
.WORD
.WORD
_WORD

$TMP3:
$TMP4L:
$STMPS:
$STIMES:

.WORD

.WORD
.WORD
.WORD
0

SESCAPE:
0
$BELL:
.ASCI2

$QUES:
$CRLF:
$LF:

22322

STORAGE

LOCATIONS

.ASCII
.ASCII
LASCIZ

;:START OF COMMON TAGS
;sCONTAINS PASS COUNT
;s CONTAINS 14E TEST NUMBER
;;CONTAINS ERROR FLAG
;;CONTAINS SUBTEST ITERATION COUNT
;s CONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
::CONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;. CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
s CONTAINS ADDRESS OF 'GOOD' DATA
;;CONTAINS ADDRESS OF 'BAD' DATA
;s CONTAINS ‘GOOD' DATA
;:CONTAINS 'BAD' DATA
: ;RESERVED-=-NOT TO BE USED
o

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
SFILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$REGAD: .WORD

SREG4:

.=1100

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000

$SREGZ:

COMMON

SCMTAG:
$SPASS:
$TSTNM:
SERFLG:
SICNT:
SLPADR:
$LPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
$GDADR:
$BDADR:
$SGDDAT:
$BDDAT:

247

001100

o OOO0OO0COOO0OO—=O0OO0OOOOOOO

001100
001100
001102
001103
001104

COMMON TAGS

;*USED IN THE PROGRAM.

248
249

250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
2N
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288

PAGE 8

ODISP

[aS]

246

MAAAAS

14:28

OO—==MNO

243
244
245

O03-MAY-78
ACT11 HOOKS

OO0OO0OO0OOO0OOOOOOO

240
241
242

30A(1052)

;. ADDRESS QOF SWITCH REGISTER
.- ADDRESS OF DISPLAY REGISTER
;. TTY KBD STATUS

;. TTY KBD BUFFER
;sTTY PRINTER STATUS REG. ADDRESS
s TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
;:CONTAINS # OF FILLER CHARACTERS REQUIRED

;o INSERT FILL CHARS.

;s CONTAINS THE ADDRESS FROM
(SREGO) WAS OBTAINED
J:WHICH
+0)
;s CONTAINS ((SREGAD)
+2)
)
;s CONTAINS ((SREGAD
+4)
;:CONTAINS ((SREGAD)
+6)
;s CONTAINS ((SREGAD)
;:CONTAINS ((SREGAD) +10)
2 CONTAINS ((SREGAD) +12)
JUSER DEFINED
;USER DEFINED
JsUSER DEFINED
;:USER DEFINED
;sUSER DEFINED
;;USER DEFINED

J.MAX.

<207><377><377>

NUMBER

ITERATIONS

;;ESCAPE ON ERROR ADDRESS

:;CODE

FOR BELL

/?/

;. QUESTION MARK

JiLINE FEED

<15

AFTER A “‘LINE FEED'

::"TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

;s CARRIAGE RETURN

S —

UNIBUS EXERCISER

CZKUAD.PI11

MACYT1

26=-APR-78 17:02

289

30A(1052)

O3-MAY-78

COMMON TAGS

14:28

—

——

8
PAGE 9

SEQ 0014

;t'tttt't""""t't"t""t""'"'"t't""Qtt'tt'.'l'..""'t

290

Sg;

LSBTTL

293
294
295
296

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION [S OBTAINED BY USING THE INDEX NUMBER FOUND IN
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

299
300
301
302
303
304
305

ot
M
M
ot

ggg

306

001224

315

316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336

337
338
339
3640
341
342
343

344

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

Em
DK
DT
DF

;sPOINTS
;sPOINTS
;sPOINTS
;;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$SERRTB:

:tttt'Q'tttt""t't'tt'"'tt'ttt't't"'ttttttlQ'ttttttttQ't'tt"

307

308
309
310
311
312
313
314

ERROR POINTER TABLE

;*NOTE?:

.'tt'ttt"""tttt""""ttf’ttt"tt""'QQ'tttt'tttitt'tt'tt't'

001224
001226
201230
001232

011404
011452
015262
000000

001234

011503

001236
001240
001242

011616
015272
000000

001244
001246
001250
001252

011706
011740
015312
000000

001254
001256
001260
001262

012021
011740
015312
000000

001264
001266
001270
001272

012057
011740
015312
00000

001274
001276
001300
001302

012115
011740
015312
000000

001304
001306
00120
001312

012153
011740
015312
000000

JITEM 1

JITEM 2

CITEM

JITEM &

JITEM S

JITEM 6

JITEM 7

JITEM 10

et
.

EMI
DH1
DR A
0

;CPU TRAPPED THRU LOC & -TIME ouTt
; ADDR
SERRPC #ERR/TSTH
;SREGZ,$ERRPC,$TSTNM,O

EM2

;CPU

DH2
D12
0

;BETDB BE1CC BE1BA BEI1CRY PSW SERRPC #ERR/TST#
;SREGO,$REGT ,SREG2,3REG3,SREGSL ,SERRPC,STSTNM, O

ISSUED A BUS GRANT WITH PSW = 7

;DEV 1

SHOULD NOT HAVE BECOME BUS MASTER

EM3
DH3
D13
0

;CPU DID NOT [SSUE A BUS NPG
;BETCRY BE1CC FM=-PS TO-PS SERRPC WNERR/TSTH
;SREGO,$REGT,3REG2,3REG3,SERRPC,STSTNM.
0

EM&
DH3
T3
0

;CPU DID NOT

ISSUE BUS GRANT

EMS
DH3
D13
0

JCPU DID NOT

ISSUE BUS GRANT 6

EM6
DH3
D13
0

;CPU DID NOT

[SSUE BUS GRANT §

Em7
DH3
D13
0

;CPU DID NOT

[SSUE BUS GRANT &

MACY11
UNIBUS EXERCISER
CZKUAD.P11
26-APR-78 17:02

345
366
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390

391

392

393
394
395
396
397
398
399

400

30A(1052)

03-MAY-78
14:28
ERROR POINTER TABLE

(
2
10

PAGE

SEQ 0015

C01314
001316

01221
012257

EM10
DH10

;ONE OR MORE DEVICES DID NOT INTERRUPT
;THIS IS THE ORDER IN WHICH THEY INTERRUPTED

001320
001322

015330
000000

0T10
0

ESREG1,SREGZ,SREG3.SREG4,SERRPC.STSTNH,O

001324
001326
001330
001332

012615
012503
015346
000000

EM11
DH11
DTN
0

;BUS ADDRESS LINES <A17:A14> DID NOT FUNCTION PROPERLY
;BETCR1 BE1CR2 BE1BA SERRPC WERR/TST#
;SREG1,$REG2,SREG3,SERRPC,STSTNM,
0

001334
001336
001340
001342

012554
012642
015362
000000

EM12
DH12
0112
0

;CPU NO SACK TIME OUT LOGIC FAILED(TO NEGATE BUS GRANT)

001344
001346
001350
001352

012703
012766
015374

001354
001356
001360
001362

013007
012766
015374
€00000

001364

013072

000000

JITEM 1

JITEM 12

JITEM 13

JITEM 14

JITER 15

EM13
DH13
0T13
0
EM14
DH13
0T13
0

EM1S

001366

013235

DH1S

QU1370
001372

015402
000000

DT15
0

001374
001376
001400
001402

013347
013235
015402
000000

001404
001406
001410
001412

013435
013235
015402

001414
001416
001420
001422

013523
013235

075402
000000

001424
001426
001430
001632

013617
013235
015402
000000

001434
001436

013713
014005
015420

001440

000000

JITEM 16

JITEM 17

JITEM 20

JITEM 21

JITEM 22

1ST

2ND

3RD

&TH SERRPC #ERR/TST#

;BE1CRT BE1CR2 SERRP( W#ERR/TSTH
:SREGO,SREGT,SERRPC,STSTNM,0

. CPU DID NOT PROPERLY EXECUTE AN ACLO/DCLO SEQUENCE

;SERRPC W#ERR/TSTH
;SERRPC,$TSTNM,0

;CPU DID NOT TRAP FROM BUS PARITY ERR PA/PB = 0/1

;DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY

;THE TRANSFER TO THE FOLLOWING
JMEMORY
ACTUAL CORRECT

LoC

DATA

LOC

WAS

INCORRECT

SERRPC WNERR/TSTA SICNT #

:SREGO,SREGT ,SREGS,SERRPC,STSTNM, SICNT,O

EMI6
DH15
DT15
0

;DEV 3'S DATO T MEMORY DID NOT EQUAL PATTERN IN R3

EM17
DH15
DT1S
0

;DEV &4'S DATO TO MEMORY DID NOT EQUAL PATERN IN R4

EM20
DH15
DT15
0

;DEV 1

Em21
DH1S
DT1S
0

;DEV 2 DID FUN 2-NPR-DATOB; INCORRECT PATTERN (N MEMORY

EM22
DH2?2
D122

;BIT 7 OF CR2 SET-CPU DID NOT TIME OUT WITH SACK INHIBITED
SERRPC WERR/TSTA
;DEV # P(C
;$TMPL SREGS,SERRPC,STSTNM,0

DIC FUN 1-NPR=DATIP;INCORRECT PATTERN

I[N MEMORY

UNIBUS EXERCISER
MACY11
CZKUAD.P1?
26-APR-78 17:0¢2

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

427

428
429
430
431
432
433
434
435
436
(37
438
439
440
441
442
443
444
445

446

447
448
449
450
451
452
453
454
455
456

30A(1052)

14:28
03-MAY-78
ERROR POINTER TABLE

001442

000000

001444
001446
001450
001452

014047
014005
015420
000000

001454
001456
001460
001462

016120
014005
015420
000000

001464
001466
001470
001472

014166
014005
015420
000000

001474
001476
0015900
001502

014220
014005
015420
000000

001504
001506
001510
001512

014262
014005
015420
000000

001514
001516
001520
001522

014331

001524

014420

001526

014560

DH31

001530
001532

015432
000000

D131
0

001534

014653

001536
001540
001542

014560
015432
000000

001544
001546
001550
001552

014737
014560
015632
000000

00155¢4

015011

001556
001560
001562

014560
015432
000000

014005
0156420
000000

CITEM 23

SITEM 24

JITEM 25

JITEM 26

JITEM 27

;1TEM 30

;ITEM3]

SITEM 32

;ITEM 33

JITEM 34

JITEM 35

PAGE

2
SEQ 0016

EM23
DH22
DT22
0

;BIT 11 OF

EM24
DH2?2

;BIT 5 OF

CR2 SET-RECEIVED WRONG GRANT

EM25
DH2?2
DT22

;BIT 6 OF

CR2 SET-BUS LATE

EM26
DH22
DT22
0

;817 8 OF

CR2 SET-DEV DID NOT RECEIVE

EM27
DH2?2
DT22
0

;BIT 9 OF

CR2

EmM30
DH2?
DT22

;BIT 10 OF

EM31

¢BKGRND RTN

CR2 SET-NO SSYN ON

INTR SIGNAL

DT.?2
0

CR2

SSYN

SET-WRONG ADDR ON BUS

SET-DEV RECEIVED OTHER

THAN ONE

GRANT

EM32

DH31
D131
0

INSTRUCTIONS OF

NEGB'S WERE NOT DONE

;CORRECTLY TO SREG1 DURING MULTITRANFERS
sACTUAL CORRECT
DATA SERRPC WERR/TSTAH SICNT #
;DATA

sSREG1,146463,SERRPC,STSTNM,
SICNT N
;DEV 3 DID DATI BUT HAS INCORRECT
:VALUES IN DATA REGISTER

EM33
DH3I
D131
0

;DEV & DID NOT

EM34

LAST DAT] XFER BY DEV 1 WAS INCORRE(CT;EITHER DEV DID NOT WORK OR WRONG DATA WASSET uP

DH3
D131
0

INTR THE CORRECT # OF

TIMES

UNIBUS EXERCISEPR
MACY11
CZKUAD.P11
26-APR-78 17:02

001566
001570
001572

011452
015262
000000

DH1
DT
0
MAAAAALA

SEQ 0017

;CPU TRAPPED THRU LOC O TO CATCH
. IMPROPERLY LOADED VECTORS

;

ADDR

SERRPC WERR/TSTH

0
;SREGZ,SERRPC,STSTNM,
RS

A Rl

ALAAAALAAARAAARASAARARARRRARAAAAAARRAAARAARRR2
SRR
RRE )]
ettt RRAERRRRRORRCOCLERRCRRARCRERRRRROORRROARRRNRRRRNRRAGNRRAARASNRERAY

001600
001602
001604
001606
001610
001612
001614
001616
001620
001622
001624
001626
001630
001632

001634

001636
001640
001642
001644
001646
001650
001652
001654
001656
001660
001662
001664
001666
001670
001672

001674
001676
001700
001702
001710
001712
001714
001716
001720
001722

007740
170014
000114
000116
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

ALLERR
SIMLGO
PBVEC
PBPSW

BE1DB
BE1CC
BE1BA
BE1CR1
BE1CLR
BE1(CR2
BEZ2DB
BEZCC
BEZ2BA
BE2CR1
BEZ2CLR
BE2CR?

BE3DB
BE3CC
BE3BA
BE3CR1
BE3CLR
BE3(CR2

BE4DB
BE4CC
BE4BA
BE4CRT
BE4CLR

BE4CR?
BETVEC
BE1PSW
BE2VEC
BE2PSW
BE3VEC
BE3PSW
BE4VEC

000000

BE4PSW
DEVCNT
DEVS

000000

DATAY
DATA2
DATAJ
DATA4

000000
000000
000000

ENDMEM

17740
:170014

;ALL ERR BITS OF (R?
:ADDR TO SET OFF ALL DEVICES SIMOLTANEOUSLY
:TRAP VEC FOR PARITY ERROR
;PSW ADDR FOR TRAP ON PARITY ERR

;DATA REG ADDR FOR DEVICE 1

;CYCLE COUNT REG ADDR FOR DEV 1
;ADDR REG ADDR FOR DEV 1

.CONTROL REG 1 ADDR FOR DEV 1
;CLEAR ERRS REG ADDR FOR DEV 1
;CONTROL REG 2 ADDR FOR DEV 1
:DATA REG ADDR FOR DEV 2
;CYCLE COUNT REG ADDR FOR DEV 2
:ADDR REG ADDR FOR DEV 2

;CONTROL REG 1 ADDR FOR DEV 2
;CLEAR ERRS REG ADDR FOR DEV 2
;CONTROL REG 2 ADDR FOR DEV ¢
;DATA REG ADDR FOR DEV 3
;CYCLE COUNT REG ADDR FOR DEV 3
:ADDR REG ADDR FOR DEV 3
.CONTROL REG 1 ADDR FOR DEV 3
;CLEAR ERRS REG ADDR FOR DEV 3
;CONTROL REG 2 ADDR FOR DEV 3

;DATA REG ADDR FOR DEV 4
;CYCLE COUNT REG ADDR FOR DEV 4
;ADDR REG ADDR FOR DEV 4
.CONTROL REG 1 ADDR FOR DEV 4
;CLEAR ERRS REG ADDR FOR DEV 4

;CONTROL REG 2 ADDR FOR DEV &

:TRAP VEC ADDR FOR DEV 1
;PSW ADDR FOR TRAP THRU BE1TVEC
: TRAP VEC

ADDR

FOR DEV 2

;TRAP VEC

ADDR

FOR DEV 3

;TRAP

ADDR

FOR

TRAP

;PSW ADDR FOR TRAP THRU BEQVEC

;PSW ADDR FOR TRAP THRU BE3VEC
VEC

.PSW ADDR
o

001574
001576

500
501
502
503
504
505
506
507
508
509
510
S
512

EM3S

479
4«80
481
482
(83
484
485
486
487
488
489
490
9N
492
493
494
495
496
497
498
499

015165

477

478

001564

TABLE

OO0O0OOOOOOOOOOOOOOOOOOOOOOOOOOOOODOOO
——

467

468
469
470
47N
472
473
474
475
676

ERROR POINTER

E
2
PAGE 12

14:28

464
465
466

03-MAY-78

OOO0OO0O0O

457
458
459
460
461
462
463

30A(1052)

DEV

THRU BE4VEC

;CONTAINS # OF DEVICES ON BUS
;WILL CONTAIN ADDR(S) OF INTR'G DEVS
;MAX

ADDR

TO WHICH DATA

XFERRED BY

MAARASARA

012703

001600

CLRRTIN:
mov

AR AR AR R

;MAX ADDR TO WHICH DATA XFERRED BY DEV 2

sMAX ADDR TO WHICH DATA XFERRED BY
;MAX ADOR TO WHICH DATA XFERRED BY
:TAG ENDING DEFINED LABELS

JRttARtRRAREOGOCELERICSORERSORRERRICGOORRSOEREROEROUERORORRANRNRERNOOERRORRANRAGORY

001724
001724

DEV

AR ARl
RRRRE

#BE10B,R3

;R3

IS POINTER

TO BUFFER AREAS

DEV 3
DEV 4

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02

513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528

529
530

531
532

533
534
535
536
537
538
539

540
541
542
543
544
545
546
547
548
549
550

551
552

553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568

001730
001732
001736
001740
001744
001746
001752
001754

005023
022703
100374

012703
005023
022703
101374

30A(1052)

03-MAY-78
14:28
ERROR POINTER TABLE
1%:

001722
001160

2s:

001206

000207
AR

002170
002176
002200
002204
002204
002212
002214
002220
002220
002226
002234
002242
002244
002250

012706
005026
022706
001374
012706
012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737

012737
012737
013746
013746
012737
005777
000407
012737
012737

022626

012637
012637
032777
001402
104400

START:

001100

mov

#SREGO,R3Y

BHI

CLR
CMP

001100
015656
000340
016134
000340
020136
000340
020202
000340
015502
001210
001212
000001
002102
002110
000004
000006
002142
176776

000176
000174

000006
000004
000200

;NOW START TO CLEAR TEMP REGISTERS

(R3) ¢
#$TMPS R

;CLEAR CURRENT ADDR
JCHECK FOR LAST TEMP REG ADDR
:1F ¥0T,
JEX]

176740

012737
012737
032777
001452

010562
000340
000200

001174

38:

00350¢

002252

000000
000002
176674

S$:

CLEAR NEXT

RARRRRRR

RRRRRR

MoV

Mov
mov

65%:

POINTER AT LAST BUFFER, EXIT
PLUS, GO BACK AND CLEAR NEXT ADDR

move
mov
MoV
MoV

649

;IF
;IF

CLR

001136
001140

sCLEAR BUFFER THEN INCREMENT ADDR

CLR

000004

SEQ 0018

ASRAAAAARA AR

MOV
Mov
MmOV
mov
MoV
MOV
MOV
MoV
MoV
Mov

000020
000022
000030
000032
000034
000036
000024
000026
015474

011174
000777

AASALAAAA

CLR
CMpP
BNE

001126

022737
001002
000137

104400
000422

(R3)+

#ENDMEM,
1%

RTS
AL

001756
001756
001762
001764
001770
001772
001776
002004
002012
002020
002026
002034
002042
002050
002056
002064
002070
002074
002102
002110
002116
002122
002126
002134
002140
002142
002150
002156
002160
002164

CLR
CMP
8PL

PAGE

TST
BR

mov
MoV

FSCHTAG,RE

(R6) ¢+
#3$BDDAT ,R6
.=6

:;FIRST

TEMP REG

Rttt

LOCATION

TO BE

;s CLEAR MEMORY LOCATION
. . DONE?
;.LOOP BACK

#STACK,SP
;s SETUP THE STACK
#8SCOPE ,8#]I0TVEC ;10T VECTOR FOR

CLEARED

POINTER
SCOPE ROUTINE

#340,8#10TVEC+2 :;LEVEL 7
#SERROR,SFEMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
#340,90EMTVEC+2 ;;LEVEL 7
#STRAP,@#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS
#340,3FTRAPVEC+2;LEVEL 7
#SPWRDN,I#PURVEC ;,POWER FAILURE VECTOR
#340,9/PURVEC+2 ;:LEVEL 7
SENDCT,SEOPCY
J:SETUP END-OF-PROGRAM COUNTER

$STIMES

;s INITIALIZE NUMBER OF ITERATIONS

#1,SERMAX
#..8LPADR
#..8LPERR

::ALLOW ONE ERROR PER TEST
;s INITIALIZF THE LOOP ADDRESS FOR
;:SETUP THE ERROR LOOP ADDRESS

SESCAPE

a6, -(SP)
8%6,-(SP)

;;CLEAR THE ESCAPE ON ERROR ADDRESS

::SAVE

ERROR VECTOR

#6483 ,4

;:SET UP TIME OUT VECTOR

65%

:;BRANCH IF NO TIMEOUT

aSWR

;;TRY

TO REFERENCE

HARDWARE

CAP

8I7
8ta

TYPE

(SP)+,a86
(SP)+,384
#BIT07,aSWR
,QNO

:;RESTORE

;1S SWITCH 7 uP?
:1F NOT, SKIP TYPEOUT

#777,81MP0

:1F NOT,SKIP THE

nov
mov

#THRUO,0

:SET UP FOR

BIT

8EQ
33%
TYPE
Y
B8R
66%
s ASCIZ

;1S

THIS RESTART

FROM LOC

JMP

ELSE JUMP TO TEST 1

#PR7,2
#81707.,aSWR

REG

ERRCR VECTOR

CMP
BNE
JAP

FYARRA!

SWR

TRAP OCCURS

#SWREG, SWR
;;POINT TO SOFTWARE SWR
#OISPREG,DISPLAY ;:POINT TO SOFTWARE DISPLAY
(SP)+,(SP)+
::RESTORE STACK

mov
ROV

Rl)

RRRRRRE

TRAP

INSITR

THRU LOC

220?

:SET UP PSW FOR TRAP THRU 0
;1S SWITCH 7 upP?

:1F NOT, SKIP TYPEOUT
;s TYPE ASCIZ STRING
;;GET OVER TME ASCI2
<15><12>/1F BUS HANGS WHILE SIZING MEMORY/

SCOPE

UNIBUS

(ZKUAD.PU

569

570
5N
572
573
574
575
576
577
578

579
580
581
582
583
584
585
586
587
588
589
590
SN
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
6n
612
613

614

615
616
617
618
619
620

621
622
623
624

MACY11
26-APR-78 17:02

EXERCISER

002316
002316
002322

104400
000422

002370
002370
002370
002374
002400
002406
002612
002416
002422
002426
002426
002432
002434
002440
002440
002446
002450
002456
002462
002464
002470
002474
002500
002506
002510
002514
002520

105037
062700
010021

002530
002534
002536
002542

010223
062702
010223
062702
000731

002522
00252¢
002526

675
001724
016616
000340
170060
000510
001600
001660

022700
002002
000137

170060

105237
122737

001365

062700

14:28
ERROR POINTER TABLE

13%:

108

002544
002662
001700
001172
000002
001174
000005

000004
000004
MOVREG:

001174
000004
000002

JSR

PC.CLRRIN

JCLEAR BUFFER AREAS

MOV
MoV

#PR7.ERRVEC+?
#170000,R0

;PS=7 FOR TRAP THRU LOC 4
JSET UP POINTER FOR 1ST POSSIBLE

MoV

#BE1DB,R1

JSET

#170060,R0
108

;1S RO > LAST POSSIBLE
;IF NOT,GO TO 108

mMov
cMp
BGE

000002

;s TYPE

ASCIZ

PC,8SI12E

#510,R?2

#BEIVEC,R3

;FIND AVAILABLE MEMORY

UP POINTER FOR DEVICE

002642
002642
002644
002650
002654
002660
002660

012716
022737
001035
104400

000423

NODEV:

170060

002736
000000
00257¢

000000
062700
062702
012716
000002

000020
000004
002426

ADD20:

EXNO:

DEV ADDR?

#NODEV ,ERRVEC

JSET

ST
MOV
INC
MOV
MoV
ADD
INCB

(RO)
#TYMOUT,ERRVEC
DEVCNT
RO, (R1)+
RO,SREGS
#2,R0
$TMPO

JSEE IF ACTUAL OEVICE ADDRESS EXISTS
;CHANGE TRAP VECTOR FOR ERROR CONDITION
:COUNT DEVICES
JMOVE ACTUAL DEVICE ADDR TO DEVICE NAME
JREGS CONTAINS LAST DEVICE ADDR
JINCRERMENT POINTER BY 2
;COUNT # OF REGISTERS PER DEVICE

BNE
CLRB
ADD
MOV
ADD

MOVREG
$TMPO
#4,R0
RO,(R1)+
#2.R0

MoV
ADD
MoV
ADD
BR

R2,(R3) ¢
#2,R2
R2,(R3)¢
#2,R2
LODDEV

#5.8TmMpP0

;ELSE GO TO BGIN
UP

TRAP

VECTOR

FOR

TIME

ouUT

JAFTER S REGISTERS

;ARE RECORDED
JCLEAR THE COUNTING REGISTER

JADD &

TO THE

POINTER

THEN

JRECORD THE LAST REGISTER ADDRESS
:INCREMENT POINTER BY 2
:NOW START

RECORDING

;THE INTR VECTORS
JINCREMENT POINTER BY 2
;THE INTR VECTORS
s INCREMENT POINTER BY 2
sAND GO SEE ]F THER'S ANOTHER DEVICE
nmnOIImnmmMmMmmmmm

R NI

JTIME

OUT

ROUTINE

FOR

DEVICE

CHECK

Cup
BGY

#170060,R0
ADD20

JIF ALL POSSIBLE ADDR'S MAVE NOT BEEN CHECKED
;0UT=-00 BACK AND CHECK FOR MORE,

CHp
BNE

#0,DEVCNT
EXNO

JCHECK FOR NO EXERCISERS
;1F ONE OR MORE EXERCISERS,

TYPE

648

LOCATION

MOV

o))

001700

ADDR

JSET UP POINTER FOR INTR ADDR LOCATION

BGIN

022700
003035

DEV ADDR

JSET UP POINTER FOR 1ST POSSIBLE VEC ADDR

002544
002544
002550
002552
002556
002564
002566
002572

STRING

;:GET OVER THE ASCIl2Z
<15><12>/17 1S DUE TO NO CPU SSYN TIME QuT/

JMpP

MOVVEC:

000002

.o th

(MPB

001174

TYPE

MOV
LODDEV:

SEQ 0019

B8R
67%
;s ASCI2

JSR

000006

002736

PAGE

03-MAY-78

66%:

002324

004737
004737
012737
012700
012702
012701
012703

012737
005710
012737
005237
010021
010037
062700

30A(1052)

;o ASCI2

HALT

#BGIN, (SP)
.o th

643

JELSE CMANGE STACK POINTER

J:TYPE

ASCIZ

;:GET OVER

THE ASCI2

<15><12>/THERE ARE NO EXERCISERS ON THE BUS/

ADD

#20,R0

;ADD 20 TO POINTER

mov

#LODDEV, (SP)

;G0 BACK

ADD

RTI

EXIT

STRING

846 ,R2

JPOINTER=NEXT DEV'S VEC LOCATIONS
JEXIT

TO LODDEV

UNIBUS EXERCIS ER
MACY11
CZKUAD P11
26-APR-78 17:02

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

645
646
647
648
649
650

651

652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680

30A(1052)

H
2
03-MAY-78
14:28
PAGE 15
ERROR POINTER TABLE
JEERARARR AR A CA

SEQ 0020

R RN R EAORETRRLEERONORROENRROLOERANARRARARROOARORNANRRATETY

sttt reREtRRCRORRORRARRRRRRARARRRARRROARRRARRARRRAORORORANOAROARNONY

002662

002662
002666
002674
002676

TYMOUT:

011637
162737
104001
000002

001164
000002

mov

SUB

001164

E??OR
M

AAEASR

002700
002700
002702
002704
002710
002712
002714
002720
002722
002724
002726
002732
002734

002736
002736
002744
002750
002754
002760
002764

002772
003000
003002
003006

003012
003016
003024
003026
003032
003036

003042
003044
003050
003122
003122
003126

003212
003212
003216

005000
005002
012701
005200
005031
022700
001373

005000
005202
020237
101766
000207

012737
004737
004737
005037
005037
013737
032777
001002
000137
005237
006237
022737
001370
005237
104400

013746

106404
104400

000424

CLRREG:

001600

1%:

104400

013746

104402

ROUTINE

(SP),$REG2

;THE MOVE

;ERR MESSG FOR

#2,3REG2

IS FOR TYPEOUT REASONS

sSUBTRACT 2 TO FIND ACTUAL ADDR
ILLEGAL

TIME OuT

ARl R0
2 2]

AR RSS20

CLR
(LR

2222222202282

RO
RZ

;R0=0
;R2=0

#6,R0

;IF COUNT IS NOT 6

MoV
INC
CLR

#8E1DB,R1
RO
8(R1)+

BNE

(LR
INC

RO
RC

BLOS

CmpP

001700

OUT

AR ARARRRERRRAlRA0R220RRRRR22X2
2022222220022 002

CmMe

000006

JR1 WILL POINT TO ADDR OF
JRO IS REGISTER COUNTER
;CLEAR CONTENTS OF REG
;G0 BACK AND

RZ2,DEVCNT

INCREMENT

JELSE CLEAR RO
JADD 1 TO R2(DEVICE

JSEE
;IF

NOT,

1ST

]

DEVICE

COUNT

COUNTER)

1T = PREVIOUS COUNT

CLEAR NEXT DEV REGS

RTS
PC
JEXIT
SIIIIITI70 7000770770000 0000700777707 7077777777771777777771777777777777777
SIIIIT7777700077 0000700077007 007000700727007777777777772077770777777777777/
SIIIITEIILI I LI I0 00 itiiritirieirtiliieriziresireeesiiieeieeseivriresrsy

010342
010240
002700
001174
001160
017152
000200

003506
001160
001174
000005

000024

BGIN:

MOV

#PWURFAL ,PWRVEC

;TAKE

JSR
JSR

PC,STVEC
PC,CLRREG

JSET UP VEC(S) FOR RANDOM ERRS
JCLEAR CONTENTS OF ALL AVAILABLE

SLSTBK,$TMPO

JEERATRRAENNAENORNRANRENTS

CLR
CLR

001174
176136

$TMPO
$REGO

MoV

2$:
001160

8IT

#B1707,8SWR

INC

$REGO

BNE
JMP

2%
5%

ASR

cmp
BNE
INC

649

TYPE

65%

001700

MOV

ASCIZ

TYPOS

BEING

RANDOMLY

DEVS

TO DIVIDE

1S TMPO DIVIDED BY 40(S ASR'S)
s1F NOT, SHIFT AGAIN
;ADD 1 FOR FUDGE FACTOR
TYPEOUT

J;THIS IS THE # OF K OF MEMORY
;.GET OVER

/K OF MEMORY

THE

[S AVAILABLE

;s TYPE

ASCIZ

WITH

SIGN

ASCI2

IN THIS SYSTEM/

STRING

;:GET OVER THE

ASCIZ

<15><12>/THE FOLLOWING # OF EXERCISERS ARE ON THE BUS:

DEVCNT,=-(SP)

CRZ2(S)

TO REGO

;.60 TYPE--DECIMAL ASCII
;;TYPE ASCIZ STRING

SET

:1F UP, GO TO 28
JELSE SKIP THE TYPEOQUTS

;:SAVE STMPO FOR

.. th

4(S)

;1S SWITCH 7 UP?

.SCRLF
$TMPO,-(SP)

003052

653

BIT

;CLEAR TEMPORARY REG
JCLEAR COUNTER

sADD 1

#5,3REGO
)
$TMPO

TYPDS
TYPE

003130

JSHIFT

TYPE
Mov

;. .ASCIZ

CARE

$THPO

001174
001221
001174

648
000431

;TIME

;. SAVE DEVCNT FOR TYPEOQUT

;.60

TYPE--OCTAL

ASCII

UNIBUS EXERCISER
MACY11
CZKUAD.PY
26-APR-78 17:02

481
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
1
712
713
714
715
716

717
718
719
720
721
722
723
724
725
726
727
728

729

730
731
732

733
734
735
736

003220
003221
003222
003226

000436

003324
003324
003330

000415

003364
003364
003370
003374
003374
003400
003404
003410

003420
003420
003424
003426
003427
003430
003434

003442
003442
003446
003450
003451
003452
003456
003464
003466
003472
003500
003502
003506

001
000

104400

013746

104402

000
062700
023737
001343
104400

022737

001002
104400

TABLE

.BYTE
.BYTE

1
0

66%

ASCIZ

;o JASCIZ

CLR

;. TYPE

;:GET OVER THE ASCI2
;. TYPE

67%

001160

000014
001174
001221
000004

<15><12>/DEVICE ADDRESS(ES): /<15><1>
JCLEAR TMPO(USED AS

INC

$TMPO

;ADD 1

TYPE

;. TYPE

ASCIZ

;SAVE

$TMPO FOR

JUSE

(RO) ,$REGO

ASCIZ

MoV

68%

/ DEV/

2
0

B8R

69%

011277

ASCIZ

mMov

TO TMPO

FOR

TYPEOUT REASONS
STRING

TYPEOUT

TYPE--OCTAL

ASCII

;sTYPE 2 DIGIT(S)
;. SUPPRESS LEADING ZEROS

;o TYPE

/ =/

$REGO,-(SP)

ASCIZ

STRING

::GET OVER THE ASCIZ
;sSAVE SREGO FOR TYPEOUT

TYPOS
.BYTE

;.60 TYPE--OCTAL ASCI!I
;oTYPE 6 DIGIT(S)

ADD

#14,R0

;ADD

;1F

NOT,

;. SUPPRESS LEADING ZEROS

$TMPO,DEVCNT

BNE

TYPE

COUNTER)

TO ADDRESSES

;:GET OVER THE ASCI2

;.60

.BYTE
.BYTE

RO AS POINTER

:MOVE

$TMPO, - (SP)

CMpP

001700

STRING

$TMPO

.BYTE

001700

ASCIZ

;;GEY OVER THE ASCIZ

#BE1DB,RO

TYPE

69%:

STRING

<15><12>/THE LOWEST ELECT. PRIORITY UBE SHOULD NOT HAVE W1 JUMPER/

TYPOS

003436

ASCIZ

MOV

B8R

001174

SEQ 0021

;:TYPE 1 DIGIT(S)
;. SUPPRESS LEADING ZEROS

.o th

MOV

68%:

I
2
PAGE 16

TYPE

675

001174
001160
003412

14:28

TYPE

003332

005237

104402
002
000
104400
000402

ERROR POINTER

663

001174
001600

013746

03-MAY-78

003230

005037
012700
011037
104400
000403

30A(1052)

LSCRLF

CmMpP

#4 ,DEVONT

TYPE

.FOR&

BNE

FOR NEXT ADDR

JSEE IF TMPO = # OF DEVICES
sTYPE

GO TYPE

NEXT ADDR

;SEE IF THERE ARE & DEVICES

:1F NOT,SKIP THE

JELSE

TYPE

MSSG

TYPE QUT

FOR

4TH

DEV

R I

JeTEST 1

003506
003510
003514

002700

003514
003522
003530
003536
003542

004730
000340
002662
000340
002021

TST1:
NG

176136
176132

000004

;*THIS

NO BUS GRANTS ISSUED WITH PROCESSOR AT HIGHER PRIORITY THAN BUS REQUEST

TEST

INSURE

THAT

ANY

REQUEST

NOT

;*HONORED AS LONG AS THE PROCESSOR IS AT THE SAME OR
;*HIGHER PRIORITY

R oo

SCOPE
JSR

PC,CLRREG

mov

#ERRCHK ,@BETVEC

mov

#TYROUT ,ERRVEC

MOV

MOV
mov

;CLEAR

CONTENTS OF

;SET UP DEVICE

ALL

AVAILABLE

INTR

VECTOR

THRU LOC

4(TIME

#PR7 ,QBET1PSYW

SSET UP DEVICE 1 PSW VECTOR

#PR7 RO
#2021,R1

;MOVE P$S=7 TO RO
:MOVE FUN 1-DAT[-BR? T0 R

SET UP

TRAP

OUT

DEVS

VE(Q)

UNIBUS EXERCISER
MACY11
CZKUAD.P1
26~APR-78 17:02

737
738
739
740
741
742
743
744
745
746
747

748
749
750
751
752
753
754
755
756
757
758
759
760
761
762

763
764
765
766
767
768
769
770
144
772
773
774
775
776
?
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792

003546
003552
003556
003562
003566
003572
003576
003602
003606
003612
003616
003624
003632

004737
012700
012701
004737
012700
012701
004737
012700
012701
004737
052777
052777
000240

30A(1052)

164:28
PAGE 17
NO BUS GRANTS ISSUED WITH PROCESSOR AT HIGHER PRIORITY

010636
000300
00201

010636
000240
002005
010636
000200
002003
010636
004000
000040

JSR

MOV
MoV

JSR

Mov
Mov

JSR

mMov
Mov
JSR
BIS
BIS
NOP

175762
175754

AR AR AR AR

;*TEST 2

MAAAAAASA

003634

003636
003636
003642
003642
003650
003652
003660
003666
003674
003702
003710
003716

003722
003730
003732
003740
003746
003754
003760
003762
003762
003766
003772

000004

TST2:

012700

000340

123737
100451

001115

012737
012777
012777
012777
012777

012777
010037
022777
001014
017737
017737
012737
010037
104003

162700

020027
100323

000340
004730
000340
020342
177777
002077
177776

175672
175670

175652

175650
175636

001160
001162
001164

000040
000000

;MOVE PS=5 TO RO

;MOVE FUN 1-DATI-BRS
;.00 NOG

#PR4 RO
#2003 ,R1

PC,NOG
#81711,8BETCR]
#B81705,8BE1CRY

FUN 1-DATI=-BR6

;00 NOG

PC,NOG

TO R1

JMOVE PS=4 TO RO
;MOVE FUN 1-DATI-BR4 TO R1
;00 NOG
JSET BIT 11 TO DO FUN 3
;SET OFF DEV AT NPR LEVEL
JALLOW TIME FOR XFER

AR AR AR
R0 R0t
R RRRR]]

NON-PROCESSOR GRANTS AND ARBITRATION TESTS

A R0l
R RRRRRRE)

SCOPE

Mov

#PR7,RO

CMPB

SERMAX,SERFLG
TST3
#PR7 ,PSW

:MAX

#-1,3BE1CC
#2077 ,8BE1CRY
RO,PSW

;SET CYCLE COUNT = 1
sLOAD #2077 FUNTIONS

#-1,38BE1CC

;SEE IF DEVICE WENT OFF
JIF 1T DID,SKIP ERR TYPEOUT
;NEXT MOVES ARE FOR TYPEOUTS

Cmp
BNE
Mov
MoV
MOV
MOV

5$:

;MOVE

ISSUING OF

8M]
MOV
MOV
mov
MOV
Mov
MoV
mov

177776
175772
175766
175702

177777

000340
001166

2s:

;00 NOG
sMOVE PS=6 T0 RO

PC,NOG
#PR6,RO
#2011,R1
PC,NOG
#PR5,RO
#2005,R1

THAN BUS REQUEST

s*THIS TEST WILL REQUEST ON NPR THRU BR4 LEVELS
;*WITH THE PROCESSOR STATUS INITIALLY AT LEVEL 7 AND MAKE
s*SURE THE DEVICE EXERCISES AN NPG TO DO A FUN 1-DATI,
;*THEN THE REQUESTS WILL BE REPEATED WHILE SEQUENTIALLY
:*LOWERING THE PROCESSOR STATUS FROM 7 TO 0 TO ALLOW
;*ARBITRATION OF ALL REQUESTS AND THE ISSUING OF NPG

NPRTST:

001103

J_2

03-MAY -78

ERROR
SuB
(MpP
BPL

ERRS

FOR

THIS

TEST

;:BR IF YES TO NEXT TEST
JINITIAL PS
#ERRCHK ,8BE1VEC sSET UP VECTOR LOCATION
#PR7 ,3BE1PSW
;SET UP DEVICE INTR PSW
#ATEND ,3BE1BA
:SET UP ADDR REG

OCCURRED?

;LOWER PROC STATUS

5%
8BE1CR1 ,SREGO
8BE1CC(,$REG

#PR7,$REG?

§0.$REG3

#40,R0
RO,#PRO ;SEE

;TYPE ERROR MESSG

cLOWER PS BY 1 LEVEL

RO IS LESS THAN 0

;1F PLUS ,GO BACK AND DO ANOTHER CYCLE

ettt raRReERECEROCRREROERROEORRERRRERRRRRRORRRORRRRRONRRRNONRNRRRRARNORNONRNRNONTRY

J*TEST 3

ISSUING OF BUS GRANT 7 AND ARBITRATION TESTS
;oTHIS TEST WILL ARBITRATE FOR A BG?7,
;*THE REQUESTS WILL BE ON LEVELS BR? THRU BR4, DOING
;*FUN 1-DATI TRANSFERS, AND THE PROCESSOR STATUS

SEQ 0022

UNIBUS EXERCISER
MACY11
CZKUAD P11
26-APR-78 17:02

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
838
839
840
841
842

843
844
845

846

847
848

K
2
30A(1052)
03-MAY-78
14:28
PAGE 18
T3
ISSUING OF BUS GRANT 7 AND ARBITRATION TESTS

003774
003776
003776
004002
004002
004010
004012
004020
004026
004034
004042
004050
004056

004062
004070
004072
004100
004106
004114
004120
004122
004122
004126

004132

TST3:
BR7TST:

000004

012700

000300

123737
100451

001115

001103

000340
004730
000340
020342

177776
175632
175626
175542

002037
177776

175530

012737
012777
012777
012777
012777
012777
010037
022777
001014
017737
017737
012737
010037
104004

162700
020027
100323

177777

175532

177777

175512

175510
175476
000340
001166

001160
001162
001164

:*LOWERED SEQUENTIALLY FROM 7 TO O.

ARAE A

000040
000000

ARAR

SEQ 0023
R

2022}

SCOPE

MoV

#PR6,RO

;2ND PS WILL = 6

CMPB
BM]
MOV
MOV
MOV
MOV
MOV
MOV
MOV

SERMAX,SERFLG
TST4
#PR7,PSW
#ERRCHK ,@BE1VEC
#PR7,3BE1PSW
#ATEND,@BE1BA
#-1,9BECC
#2037, ,@BE1CR1
RO,PSW

;MAX ERRS FOR THIS TEST OCCURRED?
::BR IF YES TO NEXT TEST
;INITIAL PS
;SET UP VECTOR LOCATION
:SET UP DEVICE INTR PSW
;SET UP ADDR REG
;SET CYCLE COUNT = 1
;LOAD #2037 FUNTIONS
:LOWER PROC STATUS

cMP

#-1,3BE1CC

;SEE

;TYPE

ERROR MESSG

BNE
MOV
MOV
MOV
MOV
ERROR
SuB
cMP
BPL

5$
@BECR1,SREGO
@BE1CC,SREG!
#PR7,SREG2
RO, $REG3
&
#40,R0
RO,#PRO ;SEE
28

DEVICE

WENT OFF

:1F IT DID,SKIP ERR TYPEOUT
:NEXT MOVES ARE FOR TYPEOUTS

;LOWER PS BY 1 LEVEL
RO IS LESS THAN 0
;1F PLUS ,GO BACK AND DO ANOTHER CYCLE

;"t'0.'tt""i"""""'""""""".""""'.'.'.".'t".t

SeTEST &

ISSUING OF BUS GRANT 6 AND ARBITRATION TESTS
;*THIS TEST WILL ARBITRATE FOR A BG6,
;*THE REQUESTS WILL BE ON LEVELS BR6 THRU BR4, DOING
;*FUN 1-DAT] TRANSFERS, AND THE PROCESSOR STATUS
;*LOWERED SEQUENTIALLY FROM 6 T0 0.

;""l'"t""""'"'t."'"""t""'tQ'Q"""ttt"""'..'t'

004134
004136
004136
004142
004142
004150
004152
004160
004166
004174
004202
004210
004216
004222
004230
004232
004240
004246
004254

000004
012700

000240

123737
100451
012737
012777
012777
012777
012777
012777
010037

001115

001103

000300
004730
000340
020342

177776
175472
175466
175402

022777
001014
017737
017737
012737
010037

127777

175352

175350
175336

001160
001162

177777
002017
177776

000300
001166

TST4:

SCOPE

MmOV

#PRS RO

;2ND PS WILL = S

CMPB
BM[

SERMAX,SERFLG
1STS

;MAX ERRS FOR THIS TEST OCCURRED?
:;BR IF YES TO NEXT TEST

BR6TST:

175372
175379.

001164

MOV
MOV
MOV
MOV

#PR6 ,PSW
;INITIAL PS
#ERRCHK ,@BE1VEC ;SET UP VECTOR LOCATION
#PR7,@BE1PSW
:SET UP DEVICE INTR PSW
#ATEND,@BE1BA
;SET UP ADDR REG
#-1,3BE1CC
#2017 ,@BE1CRT
RO,PSW

:SET CYCLE COUNT = 1
;LOAD #2017 FUNTIONS
:LOWER PROC STATUS

cmp
BNE

#-1,9BE1CC
5%

;SEE IF DEVICE WENT OFF
:1F 1T DID,SKIP ERR TYPEQUT

[0]"

#PR6 ,SREG2

MOV
MOV
MOV

@aBE1CR1,SREGO
@BE1CC,SREG!
RO,SREG3

:NEXT MOVES ARE FOR TYPEQUTS

UNIBUS EXERCIS ER
MACY11
CZKUAD PN
26-APR-78 17:02

849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
8N
872
873
874

875

876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896

897
898
899
900
901
902
903
904

004260
004262
004262
004266
004272

30A(1052)

104005
162700

020027
100323

O03-MAY-78
14:28
PAGE 19
T4
ISSUING OF BUS GRANT 6 AND ARBITRATION TESTS

000040

000000

ERROR

SUB

#40,R0

CMP
BPL
RN

JeTEST S

:TYPE ERROR MESSG

RO.#PRO ;SEE
28
R

c*THIS

SEQ 0024

:LOWER PS BY 1 LEVEL

IF RO IS LESS THAN 0
:1F PLUS ,GO BACK AND DO ANOTHER CYCLE

RPN

P T

RN RO NN R RN RN

R RN IR N IO RS

ISSUING OF BUS GRANT 5 AND ARBITRATION TESTS

TEST WILL ARBITRATE

FOR A BGS,

;*THE REQUESTS WILL BE UN LEVELS BRS THRU BR4, DOING
s*FUN 1-DATI TRANSFERS, AND THE PROCESSOR STATUS
:*LOWERED SEQUENTIALLY FROM S TO O.

JRRNRRRARNA R

004274
004276
004276
004302
004302
004310
004312
004320
004326
004334
006342
004350

004356

004362
004370
004372
004400
004406
004414
004420
004422
004422
0046426
004432

000004

TST5:
BRSTST:

SCOPE

012700

000200

123737
100451
012737
012777
012777
012777
012777

001115

001103

000240
004730
000340
020342

012777
010037

177777

177776
175332
175326
175242

002007
177776

175232

mMov

022777
001014
017737
017737
012737
010037

1772777

175212

175210
175176
000240
001166

001160
001162
001164

104006

162700

020027
100323

A E R RN R RERRNNCREENCOOENRORONORRRRANRARARRARARANRRNRARCOOTS

Mmov

#PR4 RO

;eND PS WILL = 4

CMPB

SERMAX,SERFLG

;MAX ERRS FOR THIS TEST OCCURRED?

MoV
MoV
MoV
MoV

#PRS,PSW
#ERRCHK ,@BETVEC
#PR7 ,3BE1PSW
#ATEND ,@BE1BA

;INITIAL PS
;SET UP VECTOR LOCATION
;SET UP DEVICE INTR PSW
;SET UP ADDR REG

MoV
Mov

#2007 ,8BE1CRY
RO.PSW

BMI]

175230

000040
000000

::BR IF YES TO NEXT TEST

#-1,8BE1CC

sSET

CMP
BNE
mov
MOV

#-1,8BE1CC
5%
@BETCR1,8REGO
8BE1CC,SREGT

;SEE IF DEVICE WENT OFF
;1F 1T DID,SKIP ERR TYPEOUT
;NEXT MOVES ARE FOR TYPEOUTS

ERROR

;TYPE

SUB
cHp

#40,R0
RO,#PRO ;SEE

MoV
MOV
s

TST6

8PL

CYCLE

COUNT =1

;LOAD #2007 FUNTIONS
;LOWER PROC STATUS

#PR5,$REG?
RO,SREG3

R Rt

:eTEST 6

ISSUING OF

ERROR MESSG

;LOWER PS BY 1 LEVEL
IF RO IS LESS THAN 0

;1F

ALt R

PLUS

,G0 BACK AND DO ANOTHER CYCLE

AR RN

RN RSP

NN ORRTRANNY

BUS GRANT & AND ARBITRATION TESTS

;*THIS TEST WILL ARBITRATE FOR A BG4,
;*THE

REQUESTS WILL BE

ON LEVEL BR4&,

DOING

:*FUNC 1-DATI TRANSFERS, AND THE PROCESSOR STATUS
;*LOWERED SEQUENTIALLY FROM 4 TO O.

JetttRRRtRRRARRERERREOERRRORRRRORCROERORRRRREORRROORORRRRARSARRROOEROOOOREY

004434
004436
004436
004442
004442
004450
004452
004460

000004
012700

000140

123737

001115

001103

012737
012777

000200

177776

100451

004730

TST6:

SCOPE

nov

#PR3 RO

:2ND PS WILL = 3

(mPB
BM!
ROV

SERMAX ,SERFLG
1817
#PRG ,PSY

;MAX ERRS FOR THIS TEST OCCURRED?
::BR IF YES TO NEXT TEST
; INITIAL PS

BR4TST:

175172

MOV

S#ERRCHK ,@8BETVEC ;SET UP VECTOR LOCATION

UNIBUS EXERCIS ER
MACY11
CZKUAD. P11
26-APR-78 17:02

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
940

941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960

30A(1052)

004466
004474
004502
004510
004516

012777
012777
012777
012777
010037

000340
020342
177777
002003
177776

175166
175102
175072
175070

004522
004530
004532
004540
004546
004554
004560
004562
004562
004566

022777
001014
017737
017737
012737
010037

177777

175052

175050
175036
000200
001166

001160
001162
001164

004572

104007

162700
020027
100323

Té

03-MAY-78

ISSUING OF BUS GRANT & AND ARBITRATION TESTS

Mov
MOV
MoV
MoV
MoV

#PR7 ,3BE1PSW
#ATEND ,@BE1BA
#-1,8BE1CC
#2003 ,8BE1CRY
RO,PSW

CmP

#-1,38BE1CC

MoV
MoV
MOV

@BE1CR1,SREGO
@BE1CC,SREG!
#PR&, SREG2

BNE

Mmov
ERROR

000040
000000

n
2
PAGE 20

14:28

suB

sSET UP DEVICE INTR PSW
;SET UP ADDR REG
:SET CYCLE COUNT = 1
;LOAD #2003 FUNTIONS
;LOWER PROC STATUS

;SEE IF DEVICE WENT OFF

RO,$REG3
7

;TYPE ERROR MESSG

#40,R0

CHP
BPL

SEQ 0025

IT DID,SKIP ERR TYPEQUT

;NEXT MOVES ARE

FOR TYPEOUTS

:LOWER PS BY 1 LEVEL

RO.#PRO :SEE
2%

IF RO IS LESS THAN 0
;1F PLUS ,GO BACK AND DO ANOTHER CYCLE

;""lfi't"'""'t"""'t'"'""""Q'I't't't't'tt't"tt't'ttt

AR AL

AR AR

;tTEST 7

AR ARl

000004
004737
012777
012777
012737
012737
012777
012777
052777
012777
012737
004737
042777
105777
100024
017737

017737
104012

002700
177777
020342
000340
002662
004730
000340
000010
006003
000140
011046
000010
174704

174672

1764670

TST7:
174772
174766
177776
000004
175020
175014
174736
174724
177776

001160

002D}

Rl AR
d]

sCLEAR CONTENTS OF ALL AVAILABLE DEVS
sSET CYCLE COUNT = 1

mov
Mov
MOV
Mov
BIS
MoV
mov
JSR

#PR7 ,PSW
#TYROUT ,ERRVEC
#ERRCHK ,@BE1VEC
#PR7 ,3BE1PSW
#B81703,8BE1CR2
#6003 ,3BE1CRT
#PR3,PSW
PC,CNTR

;SET PS=7
;SET UP TIME OUT VECTOR
;SET UP DEVICE INTR VECTOR
sSET UP DEVICE INTR PSW
;INHIBIT SACK RETURN
;D0 FUN 3--BR4
;LOWER PROC. STATUS TO 3
;DELAY FOR TIMEOUT

TSTB
BPL
MOV
mov

#BE1CR2
TST10
@BE1CR1,SREGO
@BE1CR2,$REGY

;CHECK IF NO-NO SACK BIT
;.
1F NOT SET, GO TO NEXT

ERROR
BR

000414

22202

PC,CLRREG
#-1,3BE1CC

BIC

001162

SCOPE
JSR
MoV
MoV

174710

ARl

CPU TEST FOR NO SACK TIME OUuT
s*THIS TEST WILL CHECK THAT THE CPU TIMES OUT AND
;*DROPS A GRANT IF NO SACK SIGNAL IS RECEIVED
;¢IF THE CPU TIME OUT IS INOPERATIVE, THE BUS EXERCISER
seWILL TIME OUT AND SEND THE SACK SIGNAL TO PREVENT
;*A BUS HANG AND SET AN ERROR FLAG IN CR2

MAAAARAARARAAAAR AR

004574
004576
004602
004610
004616
004624
004632
004640
004646
004654
004662
004670
Uueb74
004702
004706
004710
004716
004724
004726

#ATEND ,3BET1BA

#BIT03,aBETCR2

12
TST10

;SET UP DEVICE

REG ADDR

;ALLOW FUTURE SACKS

;MOVE
<MOVE

FOR TYPEOUT REASONS
FOR TYPEOUT

IS SET
TEST

;ERROR [F SET-DEVICE FORCED TO SEND SA(K
;.60 TO NEXT TEST

I
NN

004730
004730
004736
004740
004744
004752
004756
004756

033777
001407
011637
012737
004737
000002

001574

174654

001172
000001
010406

001204

ERRCHK:

5%:

BIT
BEQ

Mov
MOV
JSR
RTI

TRt

L PR

RPN N IR

R RN AN RN OEANRENNREY

ALLERR,8BET1CR2 ;CHECK FOR ANY ERRS IN CR?2
5%
;1F NONE, EXIT

(SP) ,$REGS
#1,8TAPS
PC,ERRTN

<FOR TYPEOUT OF P(
sINDICATOR FOR DEVICE 1
;CHECK TO SEE IF ANY ERRORS OCCURED

SEXIT

TRAP

UNIBUS EXERCIS ER
MACY11
CZKUAD PN
26-APR-78 17:02

30A(1052)

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
1000
1001
1002
1003
1004
1005

1007
1008
1009
1010
101
1012
1013
1014
1015
1016

N
2
03-MAY-78
14:28
PAGE 21
17
CPU TEST FOR NO SACK TIME OUT

AR AR

RS e

;*TEST

10
;*THIS

004760

000004

004762
004770
004774
005000
005004

012737
004737
012702
012705
004737

000340
002700
020342
000010
011030

177776

005010
005016
005024
005032
005040
005046
005054
005062
005062
005066
005070
005076
005104
005106
005114
005122
005124
005124
005132
005134
005136

012777
012777
012777
012777

012777
012737

004730
000340
177770
020342
040000
024441
000000

174642
174636
174550
174544
174544
174532
177776

10777

174520

052777

100375
042777

022777
001407
017737
012737
104034

032777
001402

ARl

A eI
I
N R Rl
R
2RI

CPU TEST FOR RECEIVING SACK

001162
001164
174460

THAT

THE

CPU CAN RECEIVE

THE

MoV
MOV
MOV
Mmov

#ERRCHK ,@BETVEC
#PR7 ,3BE1PSW
#-10,8BE1CC

;SET UP VECTOR LOCATION
:SET UP DEVICE INTR PSW
sSET UP CYCLE COUNT

;RS = # OF

;SET

TEST WORDS

THOSE

UP ADDR

TO CREATE

TEST WORDS

;SET BIT 14 OF CR2 FOR TIME DELAY
;DO FUN 2-DATIP/NO ROL~NPR
;LOWER PS TO ALLOW INTERRUPTS

TSTB
8PL
8IC
CmP
BEQ

@BE1CR1
5%

;SEE IF DONE BIT SET
:IF NOT, GO BACK AND WAIT

#BIT14,@BETCR2

ELSE

108
SBE1DB,SREG]
#10,3REG2

S1F IT DID,GO TO 108
;ELSE MOVE FOR ERR TYPE

#10,3BE108B

BIT

8EQ
ERROR
B8R

104023

:CREATE

#BIT14 ,@BETCR2
#244641,3BETCRT
#PRO,PSW

ERROR

000400

PC.DOUP

#ATEND ,@BET1BA

MoV
MGV

10%:

;CLEAR ALL DEVICE REGISTERS
;R2 WILL POINT TO END OF PROG

BIS

mov
mov

5%:

PS =7

PC,CLRREG
#ATEND,R2

#10,R5

JSR

174466
000019

TO INSURE

#PR7 ,PSW

mov
Mov
MoV

174514
174474

SCOPE

JSR

040000
000010

TEST

s*SACK SIGNAL; THE TIME DELAY WILL BE SET ON DEVICE 1
:*AND SEVERAL DATI TRANSFERS MADE, IF THERE IS NO BUS
;*LATE ERROR, THE CPU RECEIVED SACK CORRECTLY
:*IT IS ASSUMED THAT DEV 1 TIME DELAY IS SET FOR 10 US

TST10:

004000

SEQ 0026

CLEAR BIT

(R2

;0ID LAST XFER MOVE 10 INTO DB
OUT

:TYPE ERR MSSG

#BIT11,8BETCR2
TST1

SEE IF NO SSYN ON INTR ERR SET
..
IF NOT SET, GO TO NEXT TEST

JELSE TYPE ERR MSSG

TsT1

;. THEN GO TO NEXT

SeTEST

PASSING OF

GRANTS

TEST

A IS

AND

INTERRUPT

TEST

c*THIS TEST WILL SET OFF ALL AVAILABLE DEVICES SIMULTANEOUSLY
;*WHOSE ONLY FUNCTIONS WILL BE TO INTERRUPT, THE REQUESTS

005140
005142
005150
005154
005154
005160
005166

000004

012737
004737

000340
002700

012704
012777
012777

001702
005402
000340

177776

TST1Y:

SCOPE

mov

LOADT:
174472
174466

seWILL ALL BE AT LEVEL 7 SO THAT THE DEVICE CLOSEST TO THE
s *SHOULD RECEIVE BG? FIRST AND INTERRUPT FIRST, THE NEXT
;*CLOSEST SHOULD INTERRUPT NEXT AND SO ON.
A

#PR7 ,PSW

R R R

CPU

;PS=7?

JSR

PC.CLRREG

CLEAR

mov
MoV
mov

QINTRY QBEIVEC
OPR7 ,3BE1PSW

FOEVS, R4

;DEVS

CONTENTS OF
CONTAINS

ALl

SEQUENCE

SET UP DEVICE 1
JSET UP INTR PSW

AVAJLABLE
OF

INTR'G

INTR VECTOR

DEVS
DEVICE

ADDRS

UNIBUS EXERCISER
MACY11
CZKUAD PN
26-APR-78 17:02

1017
1618
1019
1020
1021
1022
1023
1024
10¢S
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
1062
1063
1064

1065

1066
1067
1068
1069
1070
1071
1072

005174
005202
005210
005212
005220
005226
005234
005242
005244
005252
005260
005266
005274
005276
005276
005304
005312
005320
005320
005322
005326
005334
005340
005344
005346
005354
005362
005370
005376
005400

012777
122737
001443
012777
012777
012777
122737
001426
012777
012777
012777
122737
001411

012777
012777
012777

005001
005277
012737
004737
020137
001456
013737
013737
013737
013737
104010

000036
000001

005420
000340
000036
000002
005436
000340
000036
000003
005454
000340
000036
174250
000000
011046
001700

001702
001704
001706
001710

30A(1052)

03-mAY-78

PASSING OF

174404

LOADZ:

001700
1744616

174412
174350

LOAD3:

001700

174370
174364
174332

LOAD4:

60:

177776

001162
001164
001166
001170

CMPB
BEQ

MoV
mov
Mov

CMPR
BEQ

005436
005440
005444
005452
005454
005454
005456
005462
005470
005470
005474
005500

001600
000001

005201
013724
012737
000415

001614
000002

005201
013724
012737
000406

001630
000003

05201
013724
012737

011637
004737
000002

001204
INTRZ:

001204

INTR3:

001204
INTRS:

001644
000004

001172
010406

001204

INTRTN:

;00 FUN 0 - BR7 THRU BR4
;1F ONLY 1 DEVICE ON BUS
;BRANCH TO GO

;SET UP DEVICE 2 INTR VECTOR
;SET UP DEVICE 2 PSW VECTOR
;00 FUN 0 - BR7 THRU BR4
;1F ONLY 2 DEVICES ON BUS
;BRANCH TO GO

;SET UP DEVICE 3 INTR VECTOR
;SET UP DEVICE 3 PSW VECTOR
;00 FUN 0 - BR7 THRU BR4
;1F ONLY 3 DEVICES ON BUS
;BRANCH

TO GO

;SEY UP DEVICE 4 INTR VECTOR
;SET UP DEVICE 4 PSW VECTOR

CLR
INC

R1
#SIMLGO
#PRO,PSW
PC,CNTR
R1,DEVCNT
TST12

JCLEAR R1 FOR COUNTING
;SET SIMULTANEOUS GO REGISTER
;LOWER PS TO ALLOW INTERRUPTS
JALLOW TIME FOR INTERRUPTS BY COUNTING
;COMPARE THE TWO
;:1F BUFFERS INCREMENTED IN (ORRECT SEQUENCE, GO TO NEXT
:MOVE FOR TYPEQUT REASONS
;MOVE FOR TYPEOUT REASONS

#36,3BE4CRT

JSR
cmp
BEQ

DEVS,SREG!
DEVS+2,3REG2
DEVS+4 ,SREG3
DEVS+6,3REGS
10
TST12

INC
Mov
MOV

INC

;ADD 1 TO COUNTER ON INTR
;MOVE ADDR FOR TYPEQUT

;ADD 1 TO COUNTER ON INTR
;MOVE ADDR FOR TYPEOUT
;INDICATOR FOR DEVICE 2

BE3DB, (R4) ¢

RTI

iRttt

INC
MOV
MOV

JSR

;INDICATOR FOR DEVICE 1
;BRANCH TO REST OF INTR RTN

INTRTN

MoV

ittt

#1,8TMP4

INC

ARl

R1
BE1DB, (R4)+

BE2DB, (R4)+

MOV
MOV

:MOVE FOR TYPEDUT REASONS

;MOVE FOR TYPEQUT REASONS
;TYPE ERR MSSG

;.60 TO NEXT TEST

MOV
MOV

;00 FUN 0 - BR7 THRU BR4

AR RRRRRRRRRRRRRRRRE
]

AAAAS AR AR AR

INTR1:

005201
013724
012737
000424

SEQ 0027

TEST

#INTRS ,GBEAGVEC
#PR7,3BELPSW

MAAAASAAS

005402
005402
005404
005410
005416
005420
005420
005422
005426
005434
005436

INTERRUPT

MoV
mov
mov

ERROR
BR
AR

GRANTS AND

GO
#INTRZ,IBE2VEC
#PR7,3BE2PSW
#36,8BE2CRT
#2 ,DEVONT
GO
#INTR3 @BE3VEC
#PR7,3BE3PSW
#36,8BE3CRT
#3,DEVCNT
GO

mov
mov
Mov

mov
MoV
Mmov
mov

000440

#1,DEVINT

CMPB
BEQ

MoV

CMPARE:

PAGE 22

#36,3BET(RY

Mov

001700
174444
174440
174366

14:28

¥2,8TAP4

;BRANCH TO REST OF

INTR RTN

;ADD 1 TO COUNTER ON INTR

#3,8TMP4
INTRTN

;BRANCH TO REST OF

;MOVE ADDR FOR TYPEOUT

;INDICATOR FOR DEVICE 3

INTR RTN

TO COUNTER ON INTR

R1
(R4 )+
BE4DB,

:ADD 1

(SP),$REGS

;FOR TYPEOUT OF PC
:EEETIF ERROR CAUSED INTR

4, 8TMPG

PC,ERRTN

;MOVE ADDR FOR TYPEOUT
;INDICATOR FOR DEVICE 4

JEX

]

UNIBUS EXERCISER
MACY11
CZKUAD P11
26-APR-78 17:02

NNV
= b cd = DB
=2 =2 000
WNOWVEB W
2OV
OV
NN —=OV~N

b ok

b
b
d

d ek e

D
D
d

D
D
=D
d
d
i
d
d
d

b
d

d
D

d md
e

e
—

—

b aed

b =D

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

30A(1052)

03-MAY-78
14:28
PAGE 23
RN
PASSING OF GRANTS AND

AN R R R R

TeTEST 12

A RN

R R R AN RO AR R

INTERRUPT

TEST

SEQ 0028

R R R RN R R R RPN NA R AR A AN R A IR AR

ADDRESS LINES

(14 - 17)

R ROERAN

CHECK

s*THIS TEST WILL CHECK BUS ADDRESS LINES 14 THRU 17
;*BY DOING A FUN 1-DATI-NPR TO THOSE ADDRESSES
s*1F THE ADDRESSES DON'T EXIST THE INTERRUPT ROUTINE
;*WILL IGNORE ANY NO SSYN ERROR.

AAAAAALS

005502

000004

005504
005510
005516
005524
005532
005532
005536
005544
005550
005556
005564
005570

004737
012737
012777
012777

002700
000140
005604
000340

004737

011074
000001
011074
000001
000002
011074
000003

005576
005602

004737
000431

152777
004737

042777

152777

004737
152777

TST12:

177776
1746134
17464130

AL AALASARASAAAARAARRRAARRRARSARRRR
R
Rttt ttidit Rt

SCOPE
PC.CLRREG

JSR

DO14:

174046

174034
174026

174014

011074

:ggega CONTENTS OF ALL AVAILABLE DEVS

mMov
MoV
Mov

#PR3 ,PSW
#BRK,8BET1VEC
#PR7 ,3BET1PSW

JSR
BISB
JSR
8IC
BISB
JSR
BISB

PC,ADLI
#1,3BET1CR2
PC,ADLI
#1,3BE1CR2
#2 ,@BE1CR2

;TEST ADDR LINES 14 B15
;ELSE SET BIT O OF CR2(ADDR LINE 16)

#3,8BE1CR2

JSR
B8R

PC,ADLI

;ELSE SET BITS O AND 1 OF CR2
:SETS ADDR LINES 16 & 17

*SET UP DEVICE INTR VEC
*SET UP DEVICE PSW VEC

sCLEAR BIT O(ADDR LINE 16)
;SET BIT 1 OF CR2(ADDR LINE 17)

PC,ADLI

TST13

;.60 TO NEXT TEST

IRAAAEARAASEAARRRRARRRAR
ARl
iRl
i ittt
2 0RRRdE
MASAAALAAAARAR AR AR

005604
005604
005610
005616
005624
005626
005632

005634
005634
005642
005650
005656
005660
005664

011637
012737
032777
001003
005077
000414

001172
000001
007340

017737
017737
017737
104011
004737
000002

173746
173744
173730

BRK:

001204
173766

173756
001162
001164
001166

010406

1%:

(SP) ,$REGS

#1,8THP4

BIT
8BNE
(LR
BR

S8BE1CLR
EXBRK

:;340,3851CR2

??E1BA.SREG3

Rt RRRdRtaRRRRRRRtE)

;FOR TYPEOUT OF PC
INDICATOR FOR DEVICE 1
sCHECK FOR ALL ERRS EXCEPT NO SSYN ERR
:1F ANY ARE SET,SEE WHICH ONES
JELSE CLEAR THE NO SSYN ERR
sMOVES ARE FOR TYPEOUTS

;ERR ON ACCESSING A14 - A17
;D0 ERR CHECK SUB-ROUTINE
JEXIT

PC,ERRTN

RTI

RRRRRARS

;AND EXIT

@BE1CR1,$REG
#BE1CR2,S$REG2

ERROR
JSR

ASASARA

J*TEST

MOV
MoV

Mov
MOV
Mov

:
EXBRK

AR ARt
RSttt
R RRRREE)

CPU TEST FOR ACLO/DCLO SEQUENCE

;*THIS TEST CHECKS THE ASSERTION OF ACLO AND DCLO
s*AND

005666
005670
005676
005702
005704
005710

000004
012737
005737
001061
012705

000001
000042
000001

001210

AAS

TST13:

6%:

THAT

THE

CPU

TRAPS

THE

CORRECT

;*IF THIS PROGRAM IS RUNNING UNDER ACT11
;*WILL BE SKIPPED.

SERVICE

ROUTINE,

THIS TEST

ARl 2022022222222
R}

SCOPE

MOV
TST
BNE
MoV

#1,$TIMES
42
TST14
#1,RS

;.00 1 ITERATION
;SEE IF PROGRAM IS UNDER ACT11
;.
1F UNDER ACT, DO NOT PERFORM THIS TEST

INIT RS WITH A VALUE OF 1

UNIBUS EXERCISER
MACYI1
CZKUAD.P11
26-APR-78 17:02
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1}2?
1
1142
1143
1144
1145
1146
1147
1148

1149

005710
005712
005714
005722
005730
005736
005744
005750
005756
005764
005770
882382

005205
100376
012737
012737
012777
012777
005037
012737
052777
004737
012737
042777

000001
000340
004730
000340
003176
006026
000020
011046
010342
000020

006004

022737

001152

006012
006014
006016
006016
006024

001401
104013

012737

000410

020332

30A(1052)

}}gg

006026
006026
006034

006042

012737
(042777

000137

001152
000020

020202

€00024
173606

JADD 1 TO RS
JKEEP ADDING AS LONG AS RS
O0S
;INDICATOR FOR DEVICE 1
JSET PS=7
;SET UP INTR VECTOR
JSET UP DEVICE INTR PSW
JCLEAR TEMPORARY REGISTER(TMP1)
,;SET UP SPECIAL POWER RTN
;INDICATE PWR FAILURE BY SETTING BIT &
;PAUSE FOR TIME
;RESTORE PWRFAL SEQ FOR A PWR FAIL
;MAKE SURE BIT 4 IS CLEARED

020320

CMP

#SNULL , SPWRMG

BEQ
ERROR

XTST
13

sIF THIS TEST IS CAUSE OF
;sPWR FAIL =-=TYPE NULL CHAR
sIF EQUAL, EXIT TEST
;TYPE ERR MSSG IF FAILURE

MOV

#SPOWER,SPWRMG

;RESTORE

001204
177776
173722
173716
000024
173626

020320

020320
173550

1160
1161
1162
1163
1164
1165
1166

RN R

N R

TMPPWR :

000100

173060

006270
000340
001202

000010
000012

001202
001202

000140
006234
006256
000340
020342
177777

010000
173420

177776
173530

000114
000116
173432
173422

173424

TST14
R A

A R R

MOV
BIC

TST14:

ANt

A N R R

A R

N A
R R

#SNULL , SPWRMG
#BIT04&,8BE1CR2

JMP

000004
032777
001105
012737
012737
005037
000270
006737
005737
100033
012737
012777
012737
012737
012777
012777
052777
005777

IR
J*TEST

006046
006050
006056
006060
006066
006074
006100
006102
006106
006112
006114
006122
006130
006136
006144
006152
006160
006166

SEQ 0029

RS
63
#1,8THPS
#PR7,PSW
#ERRCHK ,@BETVEC
#PR7 ,QBE1PSY
$TMP1
#TMPPWR ,PWRVEC
#BIT04,8BE1CR2
PC,CNTR
#PURFAL ,PWRVEC
#B1T04,a8BETCR2

1156
1157
1158
1159

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184

INC
BPL
MOV
MOV
MoV
MOV
CLR
MoV
BIS
JSR
MOV
BIC

1150

1151
1152
1153

(Q3-MAY =78
14;28
PAGE 24
T13
CPU TEST FOR ACLO/DCLO SEQUENCE

$PWRDN

TYPE OUT OF

;.60 TO NEXT
AR LR RN A AR
AN

TEST

RN NN

'POWER'

RN R RN

A RN NN RN N RN

R R

SCOPE
BIT
BNE
MOV
Mov
CLR
SEN
SXT
TST
BPL
MOV
MOV
MOV
MOV
MOV
Mmov
BIS
TST

AR RN

RN N R R

#BIT106, aSwR
TST1S
#N0DO0, 10
#PR7,12
$TMP3
$TMP3
$TMP3

NXT
#PR3,PSW
#PBERR,@BETVEC
#PBRTN,PBVEC
#340,PBPSW
#ATEND ,8BE1BA
#-1,8BE1CC

#BIT12,8BET1CR2
@BE1CR2

TR AR A NRY

JSPECIAL PWR RTN; OTHER THAN SYSMAC'S
;CHANGE PWR MSSG TO NULL CHAR
;CLEAR POWER DOWN/UP BIT

;GO0 TO THAT RIN

NR N
N
R R R R A R TR R A R AN RN R AN E N RN RN RN
14
PARITY ERROR TEST
JeTHIS TEST WILL CAUSE PARITY ERROR AND CHECKS
;*THAT THE CPU TRAPS TO THt CORRECT VECTOR.
s*THIS TEST SHOULD BE OESELECTED IF THE MEMORY
J*PARITY OPTION IS NOT PRESENT, ELSE AN
o*ERROR WILL BE REPORTED ALTHOUGH HARDWARE 1S
J*FUNCTIONING PROPERLY.
;*SW06=1
INHIBIT

RNRO RSN

TEST

P E AR R R R

14 AND GO TO NEXT
R AN R AR

RN RO RRY

TEST

RN NN NN RN R AN

NNREY

JINHIBIT TEST 142
;60 TO NEXT TEST
JSET UP RESERVED INSTR VECTOR
s PSW=7
JSET STMPS = 0
;SET N BIT OF CC
;1F VALID INSTR, $TMP3 WILL = -1
s1F INVALID, $TMP3 WILL REMAIN O

;IF CP NOT= 35,40,45,0R 70,60 TO NEXT
;PS=3
;SET UP DEVICE INTR
JSET
JSET
JSET
;SET
;SET
JSET

UP
UP
UP
UP

PARITY BIT VECTOR
PARITY BIT PSW
ADDR REG
CYCLE COUNT

BIT 12 FOR PARITY ERROR
OFF PARITY ERR SEQUENCE

TEST

UNIBUS EXERCISER
MACY11
CZKUAD.PI
26-APR-78 17:02

006172
006200
006202
006202
006210
006216
006224
006232
006234
006234
006240
006242
006250
006254

012777
000240

013161

012737
012737
012737
012737
000417

000116
000000
000012
000000

011637

001172

012737
004737
000002

000001
010406

104014

30A(1052)

O03-MAY-78

T14

PARITY ERROR

173406
000114
000116
000010
000012

NXT:

b
nd wmd
i

NS W) =

nd
el e
—

b
b
e
d
el
d
—

0O ~NO

oo
NN

000000

006264
006270

012716
000002

006202

#PBPSW,PBVEC

006344
006350
006354
006360
006362

006366
006372
006372
006400
006402
006406
006412
006416
006420

000004
004737
012703
012704
004737
022737

002700
000000
177777
007500
000002

012703
012704

016161

100115

123737
100505

004737
004737
022703
001365
012703
012704

010600
007500
107070

123737
100466

001115

004737
004737
022703
001365
000456

173326

167777

#NXT, (SP)

10%:

AR AR

AND

INTERRUPTED

sINDICATOR FOR DEVICE 1
sCHECK TO SEE IF ANY ERRORS OCCURED
JEXIT TRAP
dR

ARl

ARt

sPARITY BIT

RtdRt0RiRnd)

TRAP RITN

;CLEAR PARITY BIT ERROR-MUST BE DONE

:BY MOVING 0(S) TO BE1CR?2
;SET STACK FOR NEXT TEST

ARRSl
R
222022 ]

MULTITRANSFERS

;*THIS TEST WILL CAUSE ANY BUS EXERCISERS, UP TO 4,
;*TO CREATE A LOT OF TRAFFIC ON THE BUS AND
s*CHECK THAT THE CPU CAN HANDLE IT; ALL DEVICES
J*ARE SET OFF SIMULTANEGQUSLY

AASASAR

SRR

SCOPE
JSR

JSR
CmP
8PL

5%:

MoV
RTI

;*TEST

001700

AAAAS

#0,3BE1CR2

MOV
Mmov

001103

MoV

TST15:

001103

HERE

;FOR TYPEOUT OF PC
;TYPE ERR MSSG IF DEVICE

#1,3THP4
PC.ERRTN

PBRTN:

NODO:

167777
010000

010600
007500

(SP),SREGS
14

JSR

FOR ATTEMPTED XFER

; INSTRUCTION VECTOR
; ;BRANCH TO NEXT TEST IF PARITY TRAP OCCURRED

RTI
AAAL RS

FUN 1-DATO FROM CC-NPR-INTR ON DONE(7)

;RESTORE
;TRAP CATCHER
;AT RESERVED

#0,PBPSW
#12,10
#0,12
TST15

ERROR

161610

001115

:TRY

JALLOW TIME

Mov

006272
006274
006300
006304
006310
006314
006322
006324
006330
006334
006334
006342

SEQ 0030

TEST

MOV
MOV
MOV
MOV

MAAAALALA AR

012777

#13161,8BE1CR1

MOV

001204

PAGE 25

MOV
NOP

PBERR:

006256
006256

14:28

mov
Mov

(MPB
BMI
JSR
JSR
CMP
BNE

AR ARl
Rttt
RRRE)

PC.,CLRREG

:CLEAR CONTENTS OF ALL AVAILABLE DEVS
;SET DATA PATTERN = 0
;SET DATA PATTERN = ALL 1'S

#0,R3
8177777
,R4
PC,MULTI
#2,0EVCNT
TST16
#161610,R3
#016161,R4

sANOTHER PATTERN

SERMAX,SERFLG

;MAX

TST16
PC,ROTATE
PC.AULTT

#107070,R3

Mmov
Mov

#167777
,R3
#010000,R4

CMPB
BM!
JSR
JSR
CMP
BNE
BR

SERMAX,SERFLG
TST16

PC,ROTATE

PC,MULTY
8167777
,R3
108
TST16

:LOAD € EXECUTE ALL DEVICES
;ARE THERE MORE THAN 2 DEVICES?
IF 2 OR LESS, GO TO NEXT TEST
;.
;ELSE LOAD R3 AND R4 WITH
ERRS

FOR

THIS

TEST

;.BR IF YES TO NEXT TEST
;ROTATE

OCCURRED?

DATA PATTERNS

;LOAD & EXECUTE ALL DEVICES
:1S R3 = 107070?
;IF NOT,ROTATE AND DO AGAIN
;ELSE MOVE NEW PATTERNS
. INTO R3 AND R4
;MAX

ERRS

FOR

TMIS

TEST

;.;BR IF YES TO NEXT TEST

JROTATE

OCCURRED?

DATA PATTERNS

JLOAD & EXECUTE ALL DEVICES
;IS R3 = 167777 AGAIN?
;1F

NOT,ROTATE AND DO AGAIN

;.60 TO NEXT TEST

UNIBUS EXERCISER
HAC6;1
CZKUAD.PY
26-APR-78
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267

1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281

1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296

30A(1052)

03-MAY-78
14:28
PAGE 26
T15
MULTITRANSFERS |
AALAAL RS

SEQ 0031

AR AR

ARl

2222222222

:t't'tt"""""'t""Q'Q't""'t"t"t'Q"'it'.""'t"'i'i'.'
;t't't"""i't"i""i"t'ti"l""'t""Qi'ttt"tt!".""'t't

006422
006422
006430
006436
006444
006446
006446
006454
006462
006470
006472
006472
006500
006506
006514
006516
006516
006524
006532
006540
006540
006544
006550
006554

017737
162737
012737
000435

173156
000001
000001

017737

173146
000002
000002

001714
001714
001204

173136

001716
001716
001204

162737

012737
000423
017737

162737
012737
000411

000002
000003

017737
162737
012737

173126
000002
000004

005237
011637
004737

001164
001172
010406

000002

001712
001712
001204

001720
001720
001204

SERV1:

SERV?:

SERV3:

SERVS:

MOV
suB
MOV

8BE1BA,DATAT
#1,DATAI
#1,8TMPS

;MOVE ADDR IN BE1BA TO DATA1
;SUB 1 TO GET ACTUAL ADDR
JINDICATOR FOR DEVICE 1

INK

;BRANCH

MOV
sSuB

@BEZ2BA,DATA2
#2,DATA?2

;MOVE ADDR IN BEZ2BA TO DATAZ2 AND
;SUB 2 TO GET ACTUAL ADDR

#2,8THPS
INK

;INDICATOR FOR DEVICE
;BRANCH TO INK

MoV
SUB
MOV

@BE3BA,DATA3
#2,DATAS
#3,8TMP4

;MOVE ADDR IN BE3BA TO DATA3 AND
;SUB 2 TO GET ACTUAL ADDR
;INDICATOR FOR DEVICE 3

INK

;BRANCH

MoV

aBE4BA ,DATAL

;MOVE

MOV

#4,8THPS

JINDICATOR

#2,DATAS

INC

$REG?2

MOV
JSR
AR

AR A

;SUB 2

ADDR

INK
[N BE4BA

TO DATAL

TO GET ACTUAL ADDR
FOR

DEVICE

AND

; INCREMENT REG

(SP),$REGS
PC,ERRTN

RTI

MAAARA

INK

MOV
BR

sus

INK:

AND

;FOR TYPEOUT OF PC
;CHECK FOR ANY ERRS
JEXIT
A

R
I R RN

;*TEST 16

J*THIS

IR ASASAAA

006556
006560
006564
006570
006574
006600

000004
012702
012705
004737
004737
004737

006604
006612
006620
006626
006634
006642
006650
006656

012737
012777
012777
012777
012777
012777
022737
001467

000000
007344
000340
022342
17600¢
015551
000001

006660
006666
006674
006702
006710

012777
012777
012777
012777
012777

007376
000340

TST16:

020342
005000
011030
011142
002700

177000

020342
002561

WILL HAVE

THE

AVAILABLE

EXERCISERS

DOING

;*VARIOUS TRANSFERS AND/OR INTERRUPTS AT DIFFERENT
;*REQUEST LEVELS TO FURTHER CHECK CPU HANDLING CAPAPRILITIES
R

SCOPE
MoV

#ATEND ,R2

JSR
JSR

PC,TSTOVR
PC.CLRREG

mov
JSR

172776
173040
173034
172750
172740
172736
001700

MULTITRANSFERS 11

TEST

#5000,RS
PC,DOUP

22222

;R2 = END OF

222X

PROG

;RS = THE # OF DATA WORDS
;CREATE THOSE WORDS IN BUFFER MEMORY

JSET UP PATTERN IN MEMORY BUFFER AREA
sCLEAR CONTENTS OF ALL AVAILABLE DEVS

Mov
MoV
MoV
MOV
MoV
Mov

#PRO,PSW
;PS=0
#51,3BETVEC
;SET UP DEVICE 1 INTR VECTOR
#PR7 ,@BE1PSW
oSET UP DEVICE 1 PSW VECTOR
#ATEND+2000,8BE1BA
SET UP ADDR REG
#-2000,8BE1CC
;SET UP CYCLE COUNT
#15551,@BETCRY1
;00 FUN 2-DATOB FROM CC-NPR-INTR ON DONE (6)

BEaQ

Cmp

MoV
Mov
Mov
MOV
Mov

#1,DEVCNT

;CHECK

FOR MORE

THAN 1

DEVICE

#52,8BE2VEC
#PR7,3BE2PSW
#-1000,8BE2CC
#ATEND ,@8BE2BA
#2561 ,8BE2CR1

;SET UP
;SET UP
;SET UP
;SET UP
;D0 FUN

DEVICE 2 INTR VECTOR
DEVICE 2 PSW VECTOR
CYCLE COUNT FOR 1000 XFERS
ADDR REG=1ST LOCATION AFTER PROG
1-DATIP-NPR-INTR ON DONE(7)

;JF NOT, GO CHECK RESULTS

MACY11
26=-APR-78 17:02

UNIBUS EXERCISER

CZKUAD.P11

30A(1052)

O03-MAY-78

T16

14:28

6_3

PAGE 27

MULTITRANSFERS

SEQ G032

1297

006716

022737

000002

001700

(MP
BEQ

#2,DEVCNT
1%

;CHECK FOR MORE THAN 2 DEVICES
;IF NOT, GO CHECK RESULTS

1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316

006726
006734
006742
006750
006756
006764
006772

012777
012777
012777
012777
012777
022737
001421

007430
000340
176776
020342
004005
000003

172734
172730
172662
172656
172652
001700

Mov
Mov
MOV
MoV
MoV

#S3,aBE3VEC
#PR7,aBE3PSW
#-1002,8BE3CC
#ATEND ,@BE 3BA
#4005,aBE3CRT

;SET UP DEVICE 3 INTR VECTOR
;SET UP PSW VECTOR
;SET UP CYCLE COUNT

006774
007000
007006
007014
007022
007030
007036
007036
007042

005037
012777
012777
012777
052777
012777

001170
007446
000340
175000
040000
000021

012700
004737

001606
010754

}Sgg

006724

001444

IWAREVARNEYA
VA REYE BEVA

AR
(AR

1326
1325
1326
1327
1328
1329

1330
1331
1332
1333
1334
1335
1336
1337
1338
1339

1347
1348
1349
1350
1351
1352

VAR
VARE

007046
007052
007060
007064
007066
007072

;BE1

YARE
VARE

BEVA
BEVA

BEVA
BEVE

VA
BRVA

012702
012737
023702
001417
023722
001004

VAN
VAR

VERE
FERR

022342
176000
001712

BEVE BEVA]
BRVE BN

062737
000766

000002

014237
010237
013737
104021

001162
001160
001164

022737
001470

000001

A
VA

REVA
SEVA

BEVA
BENS

SEVE
BEVL

AR
HARE

TARE
VERE

VARE
VESE

BEVA
BEVE

VERE
VEER

BNV
BEVE

012701
023701
001413
022721
001772
014137

VAR
VAR

VAR
JENE

020342
001714

052525
001162

#PR7 ,@BE4PSW
#-3000,8BE4CC
#BIT14,3BEGCR2
#21,3BE4CRT

;USE REG4 TO COUNT INTRS
JSET UP DEVICE 4 INTR VECTOR
;SET UP PSW VECTOR
;SET UP CYCLE COUNT
;SET TIME DELAY BIT OF DEVICE ¢4
;00 FUN 0-BR7

MoV

#BE1CR1,RO
PC.,BKGD

;USE RO TO POINT TO DEVICE 1'S (R1
;PERFORM BACKGROUND ROUTINE

$REG4

A
A

i/t
YA

A
YA

A
/e

A
A

i/
/e

A
A

A I
AT

L
x/:

F A

*/:
*/:

v/
v/

v/
r/:

v/
*/:

t/:
v/

v/
*/;

®/:

001164
10%:

VERE
VAR

ADD

#2,3REG2

148

ERROR

14%:

;USE R2 TO POINT TO 2000 BYTES AFTER END OF PROGRAM
;SET UP SREG2 WITH EXPECTED RESULTS
;CHECK FOR 4000 BYTES PAST END OF PROGRAM

;1F EQUAL, GO CHECK FOR ANOTHER DEVICE
JELSE COMPARE EXPECTED RESULTS WITH THAT
;1F NOT EQUAL, GO TO ERR MSSG

108

;AND GO BACK TO CHECK NEXT LOC

;MOVE R2 TO REG 5 FOR TYPEOUT

3$EGZ,$REGK

;TYPE

ERR MSSG

;CHECK IF ONLY 1 DEVICE SHOULD HAVE OPERATED
;.<IF EQUAL, GO TO NEXT TEST>

1ST17

BEVE|
BNV]

A
i/
x

A
A

i/
e
A

A
A

A
i/

VA
YA

A
WA

A
A

VA BN
/e

*/:
v/

vt/
v/

v/
t/:

t/:
v/

v/
v/

v/
t/:

*/;
v/

v/
v/

v/
t/;

t/:

5%:

Mov

CMpP
BEQ
CMP
BEQ

Mov

#ATEND,R1

DATAZ,R1
6%

#052525,(R1)
¢

=(R1),$REG

IN R¢

; INCREMENT REG2 AS CC WOULD

#1,DEVCNT

cmp
BEQ

*/:

$REG2, (R2)+
128

=(R2) ,$REG1
R2,SREGO

MOV
Mov
MoV

001166

BRVA
BEVE

#ATEND+2000,R2
#-2000,3REG2
DATA1,R2

12%:

001700

MoV
MoV
cmp
BEQ
CMP

BNE

001164

;BE2 TRANSFER CHECKS
VERE
VERK

¥
V&

;IF NOT, GO CHECK RESULTS

#54,8BEAVEC

JSR

001164

007074
007102
007104
007104
007110
007114
007122
007124
007124
007132

007134
007140
007144
007146
007152
007156

1%:

;00 FUN 2-DATI-BRS
;CHECK FOR MORE THAN 3 DEVICES

Mov
MoV
Mov
BIS
Mov

CLR

172666
172662
172624
172626
172614

TRANSFER CHECKS

VERE
VERE

:2.DEVCNT

CMpP
BEQ

sSET UP ADDR REG

;USE R1

TO POINT TO END OF PROG
;CHECK FOR 2000 BYTES PAST END
<1F EQUAL, EXIT

JELSE COMPARE EXPECTED RESULTS WITH R1
;1F EQUAL, GO CHECK NEXT LOC
;MOVE

TO REG1

FOR

TYPEOUT

MACY11

30A(1052)

001160
052525

001166

UNIBUS EXERCISER
CZKUAD PN
26-APR-78 17:02
1353
1354
1355
1356
1357
1358

022737
001444

000002

001700

A BRNA
YAB A

A
A

NEVA
NEYA

BENE
BEVA

BEVE
BNVA

BV BEVA|
SRVE BNV A

A
A

NEYA
NEVA

BEVA
NEYA

BENA
BENA

VA
A

NEYA
RNEVA

RN
BEVE

BEVE
BENE

B2
BEVE

Y2
BRYA

LYAE
VAR

VARE
YARRE

VENE
VANE

VERE
VN

VR
VAN

LYANE
v/

VENE
v/

VN
wf:

T
«/:

VEARR
v/

VENE
e/

VEARE
af

VAR
f:

7AR
wf:

AR |
o) 2

1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402

1403
1404
1405
1406
1407
1408

SEQ 0033

007160
007164
007172
007174
007174
007202

1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377

010137
012737

14:28
PAGE 28
03-MAY =78
T16
MULTITRANSFERS I

104020

;BE3 CHECK RGUTINE

007204
007210
007212
007214
007214
007222
007224
007232
007240
007242
007242
007250

022777
001407
017737
012737

YA
YA

BRYA
ENA

A
VA

A
ALY
AR

007252
007252
007256
007260
007266
007270
007276
007304
007306
007306

105777
100401

V&
Y

172426

022737
001421

176002

172406

172400
176002

001162
001164

000003

001700

NEYA NEYA
REYANEYE

BN BEYA
BRVE SNV A

t/:

«f:

of:

o/:

TANR

TARE

YARR

VEARE

;BEL CHECK ROUTINE

105777

100375
022737
001407
013737
012737
104033

042777

BEYA

CMp
BEQ

003000

001170

001170
003000

001162
001164
172342

#2 ,DEVONT

JCHECK

;.<IF

@BE3DB,SREG1

:MOVE

FOR

JCHECK

BEYA

BEVE

BEVA

BEYEBEYE

BEVE

BENE IRV A

v/
v/

xf:
of:

LYASR
LVAN

YRR
VENE

VERE
VERR

VR
VARE

|
|

26%:
A

JeTEST

#3000,8REGS

JCHECK

:1F

IN BE3DB

3 DEVICES OPERATED

GO TO NEXT TEST>

DEVICE 4

IS DONE

REG4

COUNTED

3000

EQUAL SKIP ERR TYPE QUT

INTRS

;MOVE FOR TYPE OuUT

#3000, $REG?2

YET

JIF NOT, GO BACK TO DELAY RTN

$REG4L, SREG

DONE

V2R
VRN

JTESY

26%

8IC
ASAAAAS R

@BE4CRI

22%

ERROR

ONLY

Js<IF EQUAL,

MOV
MOV

TEST>

SKIP ERR TYPE 0OUT

#3,DEVCNT

VERE
VERE

CORR VALUE

;TYPE ERR MSSG

BEVA BN A
BN]
BEYE BEVE IRV E |

TST8
BPL
CMpP
B8EQ

OPERATED

FOR ERR TYPE 0OUT

VA
VA

o/
¢/

DEVICES

TO SEE

TST17

xf:
&f:

B
I

;IF EQUAL,

#-1776,8REG?2

CMpP
BEQ

ONLY

EQUAL, GO TO NEXT

;CHECK

25%

ERROR

sAND GO BACK

#-1776,8BE3DB

MoV
MOV

TYPE ERR MSSG

;CHECK IF DEVICE 3 DONE
JIF YES, CHECK NEXT DEVICE

16%

o, 1
BEQ

25%:

JELSE

@BE3(R1
208

TIST8B

20%:

R1,S8REGO
#052525,8REG3
20

TST17

BMI
BR

22%:

172374

040000

ERROR

6%:

16%:

000774

104032

MoV
MOV

;TYPE ERR MSSG

#BIT14 ,8BEGCRS

;ELSE

CLEAR TIME DELAY BIT

AR ARl
AR
R RRRRR 22

DUMMY END OF

PROGRAM

;'tt'.t..t"'""""t""tt"""""'tt"tttt"i"ttt"'.ti"'

007314
007316

000004
012737

007324
007330
007334

017700
022700
001001
000000

171614
000210

000137

015446

007336
007340
007340

00000

001210

TST17:

SCOPE

MOV
Mov

108:

;:00 1

83TKB,RO

:MOVE READ BUFF CONTENTS TO RO
;DOES THE VALUE = '" W' ?

(AP
BNE
HALT

#210,R0
108

JNP

$EOP

MAAAAAALR R

AR AR A

;SET UP DEVICE

ITERATION

#1,STIMES

INTR VECTOR

;[F NOY GO TO 108
;ELSE HALT THE PROGRAM

ARl

RRRRRRRRRRRE]]

MACY11
UNIBUS EXERCISER
CZKUAD.PY
26-APR-78 17:02
1409
1410

1411
1412

16413

1414
16415
1416
1417
1418

1419
1420
1421
1422
1423
1424

30A(1052)

14:28
PAGE 29
DUMMY END OF PROGRAM

03-MAY-78

117

3
SEQ 0034

MAAAAAAAARAAAAAAARAALRAAAAA
AR AR
st tRRallld)

007344

007344
007352
007360
007366
007372
007374
007376
007376
007404
007412
007420
007424
007426

017737

162737
012737
005777
100041
000434

017737
162737
012737
005777
100024
000417

172234
000002
000001
172214

172216
000002
000002
172176

001712
001712
001204

001714
001714
001204

Mov

suB

Se:

Mov
TST
BPL
BR
Mov

Sus
MoV
TST
8PL

8BE1BA,DATAY

;MOVE

eBE1CR1
EXS

;TEST FOR ERROR
;1F PLUS, EXIT
JELSE

FIND

CAUSE

8BE2BA,DATAZ

;MOVE

ADDR

IN BE2BA TO DATA2 AND

#2 ,DATAT
#1,8TAP4

CHEX

#2,DATA?
#2,8TMP4
aBE2CR1
EXS
CHEX

ADDR

[N BE1BA TO DATA1

.SUB 2 TO GET ACTUAL ADDR
;SET INDICATOR FOR DEVICE

AND

INTR

;SUB 2 TO GET ACTUAL ADDR
JSET INDICATOR FOR DEVICE 2
;TEST FOR ERROR
;1F PLUS EXIT
,ELSE FIND CAUSE OF INTR

UNIBUS EXERCISER
MACY11
CZKUAD.P1
26-APR-78 17:02
1425
16426
1427
1428

007430
007430
007436
007442

012737
005777
100015

000003
172174

30A(1052)

001204

03-MAY -78

117

14:28
PAGE 30
DUMMY END OF PROGRAM

MoV
TST
BPL

#3,8TMP4
aBE 3CR1
EXS

SEQ 0035

;SET INDICATOR FOR DEVICE 3
;TEST

FOR

ERROR

;IF PLUS, EXIT

1429
1430
16431

007444
007446
007446

000410

005237

001170

30A(1052)

193-HAY-7B
14:28
PAGE 1
T
DUMMY END OF PROGRAM
S&4:

3
SEQ 0036

B8R

CHEX

;ELSE FIND CAUSE OF

INC

$REGS

;COUNT DEVICE 4'S INTRS

UNIBUS EXERCISER
MACY11
CZKUAD.PN
26-APR-78 17:02

INTR

UNIBUS EXERCISER
MACY11
CZKUAD.PI
26~APR-78 17:02

1432
1433
1434
1435
1436
1437
1438
1439

1440
1661
1442
1443
14464
1445
1446
1447
1448
1449
1450
1651
1452
1453
1454
1455
1456
1457

1458
1459

1460
1461
1462
1463
1464

1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481

007452
007460
007464
007466
007466
007472
007476
007476

012737
005777
100004

000004
172166

011637
004737

001172
010406

30A(1052)

14:28
PAGE 32
03-MAY =78
T17
DUMMY END OF PROGRAM

001204

MoV

CHEX:

007616

007624
007632
007640
007642
007642
007650
007654
007662
007670
007676
007704
007712
007720
007722

012702
012705
004737
004737
012777
012777
012777
012777
052777
012777
122737
001474

012777

012777
012777
012777
012777

122737

001451

012777
010377
012777
012777
012777
052777
012777
122737
001421

005000

011030
011142
020342

176000
006422
000340
040000

042560
000001

006446
000340
020342
177000
024510
000002

177000
040000
003160
000003

171734
171736
171724
001700

022342

010477
012777
012777
012777
012777
012777

171716
000340

005277

171606

A
A

s/t
/e

/e
WA

/e
A

3%:

171772
171770
001700
172022

172006

6s:
i/
i/

007770

012737

000001

001162

INTR

A
A

AR AN AR

Rttt

R AR

ittt

isstl]]

AN R RN ARRAARN RN NRA

JSET UP PATTERN

IN MEMORY BUFFER AREA

BIS
MoV
CMPB
BEQ

#BIT14 ,3BET1CR2

;SET

TIME

Mmov
MOV
mMov
Mov
Mov

#SERV2 ,8BE2VEC
#PR7 ,8BE2PSW

:SET UP DEVICE
JSET UP DEVICE

#-1000,aBE2CC
#24510,8BE2CRT
#2 ,DEVCNT
63

;SET CYCLE COUNT FOR A 1000 XFERS
;00 DATIP/NO ROTATE-FUN 2-BR6-INTR ON DONE(6)
;1F MORE THAN 2 DEVICES, LOAD THER REGISTERS
JOTHERWISE BEGIN TESTING

#ATEND ,aBE1BA
#-2000,8BE1CC
#SERVY,QBETIVEC
#PR7,8BE1PSW
#42560,8BE1CRT
#1,DEVCNT

#ATEND ,8BE2BA

;SET REG ADDR= 1ST LOCATION AFTER END OF
JSET CYCLE COUNT FOR 2000 XFERS
;SET UP DEVICE INTR VECTOR
JSET UP DEVICE PSW VECTOR
BIT

FOR

DELAY

PROGRAM

ENABLE

;DO DATIP/DATOB-FUN 1-NPR-INTR ON DONE(7)
;1F MORE THAN 1 DEVICE, LOAD THEIR REGISTERS

JOTHERWISE BEGIN TESTING

2 INTR VELTOR
2 PSW VECTOR

JSET UP ADDR REG FOR

SAME

LOCATIONS AS

DEVICE

#PR7 ,3BE3PSW
JSET UP DEVICE 3 PSW VECTOR
R3,8BE3DB
;MOVE PATTERN IN R3 TO DEVICE DATA REG
#SERVI,@BE3IVEC
:SET UP DEVICE INTR VECTOR
#ATEND+2000,8BE3BA
;SET UP ADDR REG
#-1000,8BE3CC
;SET UP FOR 1000 XFERS
#BIT14,3BE3CR2
;SET BIT 14 FOR TIME DELAY ENABLE
#3160,8BE3CRT
;00 DATG=FUN 1-FROM DB-NPR-INTR ON DONE(?7)
#3,DEVCNT
JIF A &TH DEVICE, GO AND LOAD REGISTERS
6%
JOTHERWISE BEGIN TESTING
R4 ,8BE4DB

;MOVE

#PR7 ,3BE4LPSY

PATTERN

IN R4

TO DEVICE

sSET UP DEVICE & PSW VECTOR

DATA REG

#SERVSG ,@BEGVEC
;SET UP DEVICE & INTR VECTOR
#ATEND+4000,8BE4BA
;SET UP ADDR REG
#-1000,8BE4CC
JSET CYCLE COUNT FOR 1000 XFERS
#3104 ,9BE4CRT
;D0 DATO-FUN 1-BRS5-INTR ON DONE

INC

8SIMLGO

i/
A

YA
/e

Mov

#1,$REGT

;BACKGROUND ROUTINE FOR MULTITRANSFERS !
1487

TYPEOUT OF

;ELSE FIND CAUSE OF

PC,TSTOVR

Mov
MoV
MOV
MOV
MoV
Mov

17720¢

i/
A

;FOR

;R2 = END OF PROG
;RS = THE # OF DATA WORDS
JCREATE THOSE WORDS IN BUFFER MEMORY

mov
BIS
Mov
CMPB
BEQ

5%:

A
A

(SP),$REGS

#ATEND R
#5000,RS
PC,DOUP

Mov
MOV

mov
MOV
MoV
MoV

006516
024342

2/
i/

CMPB
BEQ

171744

003104

;SET INDICATOR FOR DEVICE 4
;TEST FOR ERROR
JIF PLUS, EXIT

R R R R R R R R

MOV
mov
Mov
Mov

001700
172062
172056
172002

#4,$TMPS
aBE4CR1
EXS

PC.ERRIN

JSR
JSR

172056
172046
172116
172112
172034
172022

000340
171754
006472

007722
007726
007734
007742
007750
007756
007764
007764

RRNA|
REVA

R R RN

MULT?:

020342

SEQ 0037

RTI

RAAL AR

SRR

007500
007500
007504
007510
007514
007520
007526
007534
007542
007550
007556
007564
007572
007574
007574
007602
007610

mov

JSR

EXS:

000002

TST
BPL

REYE
/e

JSTART DEVICES
BEVA
/e

BEVE
/e

BEYVA
i fe

B2
e

SIMULTANEOUSLY

;MOVE 1 TO TEMPORARY REG

UNIBUS EXERCISER
MACYT1
26-APR-78 17:02
CZKUAD P11

1488
1489
1490
1491
1492
1493

007776
010002
010004
010006
010014

012701
005121
006041
123737
101372

g
gy
S
I W
W
L
R
—a B
—

(oo lV, ] (AR SV R
NV RV RV RV AV JV RV, IV JV LV, |
a3 1, POMNORNIN)
b = cd d oD e ed e d b
[V,
IV
W= OOV ~NOWNEAWN=O

AT
AR

b
b
b
b
il
d
—h o

(S RV LV LV AV AV JV AV, |
&~
&
(¥ ]
o

41
42

001162
001700

n
3
O03-MAY-78
14:28
PAGE 33
T17
DUMMY END Of PROGRAM
Mov
COm
ROR
CMPB
BH!

7%:

001164

#SREGT R
(R1)+
-(R1)
DEVCNT,SREG?
7%

SEQ 0038
JSET UP R1 AS POINTER
;COMPLEMENT TEMP REG
;ROTATE CONTENTS RIGHT
sCHECK IF ALL DEVICES ARE DONE
JIF NOT, CONTINUE WITH BACKGROUND RTN

;tttti't"t"t'tt"i"t'i"t""'i"'lttttttttt."tt'tt'tttttttt

AREYABEVA YA
ARRVA REVARRYVA

1526
1527
1528

30A(1052)

NYA
YA

VARV
SRNA VA

BRYE
RRYE

BEVL
BNV

;OEVICE 1 TRANSFER CHECKS
;THERE ARE NO CHECKS FOR BEZ2

(VAR
TANR

YA
VAR

YARR
YARE

VARE
VEARE

010016
010024
010030
010030
010034
010036
010042
010044
010050
010052
010056
010060
010062
010062
010064
010066
010066
010070
010070
010074
010100
010106
010110
010110
010116
010120
010126

042777
012700

040000
020342

122720

000125

A
A

REVE|
REYA

FAIRYA BEVL
YAREVAREYA

2/
AR

v/
TE

010130
010136
010142
010146
010150
010152
010154
010160

001012
023700
001422
122720
001006
023700
001414

VEARR
VARR

VERE
VARR

171566

VARE
VERE

BNV
BEVE

SEYA
BEVA

BEYE
BEVE

BEVA
BEVE

BEYA
BEVA

SEVE
BEVL

BEVE
BEVE

VERE
VARR

FENE
VAR

VAR
VAR

FERE
TARE

VAR
YRR

VERE
YERE

FARE
VERE

VERR VAR |
¥ AR ¥R

BIC
MOV

CMPB

000124

001712

000763

105740

T
12s

005740
011037
010037
012737
104015

022737

001447
122737
001773

001166

000001

001700

000002

001700

;CLEAR TIME DELAY BIT
:START CHECKING FOR CORRECT XFERS

:COMPARE LOWER BYTE

208
DATAT,RO
9%
#124, (RO)+
228
DATA1,RO
9%

B8R

;1F NOT EQUAL, BR TO ERR MSSG
©1S THIS LAST BYTE COMPARE?
:1F SO, BR TO 98
:ELSE COMPARE UPPER BYTE
:1F NOT EQUAL, BR TO ERR MSSG
:1S THIS LAST BYTE COMPARE?
:1F SO, BR TO 98

SELSE CHECK NEXT ADDR

1sTB

-(RO)

:SUB 1 TO GET ERR ADDR

243'

-(RO)

:SUB 2 TO GET ERR ADDR

mov

(RO) , SREG1

:MOVES ARE FOR ERR MSSG

25s:

248

:GO DO MOVES FOR ERR MSSG

MOV
MOV
ERROR

RO, SREGO
#052125,$REG3
15

;ELSE TYPE ERR MSSG

cHp

#1,DEVCNT

:IF ONLY ONE DEVICE

BEQ
CMPB
BEQ

138
#2,DEVCNT
258

:1F NO MORE OEVICES.EXIT RTN
:CHECK FOR MORE THAN 2 DEVICES
:1F NOT, EXIT TEST

BEVA
BEVE

BEVE
V.

BEYVE
BEVA

BENL
BEVE

BEVE
BEFE

EEVE
EEVE

EEVE RV L BV L EEY L IEY L Y LI
BEVE EEVE BEYE BEVL BV LY L I

wfrowf
v/ 0/

wf o xf
v/ wf:

vf
ef:

)
wf:

wf:
wf:

af:
wf:

wf:
f:

042777
012700
023700
001411
020320
001773
010337
014037

040000
022342
001716

171504

;BE3 TRANSFER CHECKS

001166
001162

I
I

001162

001160
052125

#125, (RO)+

BNE
CMP
BEQ
CMPB
BNE
CMP
BEQ

001712

000401

#BIT14,3BE1CR2
#ATEND RO

BEVA
BEVE

108:

BIC
MoV
CHpP
BEQ
CMP
BEQ
MOV
MOV

wf:
af:

wf:
«f:

f:
wf:

«f:
«f:

#BIT14 ,@BE3CR2
#ATEND+2000,R0O
DATA3,RO
11
R3,(RO)+
108
R3,$REG3
- (RO), SREGY

«f:
v]):

L
L

I
I

2f:
wf:

;CLEAR TIME DELAY BIT OF DEVICE 3
;CHECK NEXT 2000 LOCATIONS
;CHECK FOR 1000 XFERS
:1F SO, CHECK NEXT BLOCK
sTEST FOR CORRECT PATTERNS
;IF NO ERR, CHECK ANOTHER LOC
; THE MOVE IS FOR TYPEOUT REASONS

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02

1544
1545
1546
1547
1548

1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582

1583
1584
1585
1586
1587
1588
1589
1590

1591
1592
1593
1594
1595
1596
1597
1598
1599

N
3
03-MAY-78
14:28
PAGE 34
117
DUMMY END OF PROGRAM

30A(1052)

SEQ 0039

010164
010170
010172
010172
010200

122737
001416

000003

A
YA

BRYA
BREWA

A
A

A
WA

RRYA
RRVA

VA
SEVA

REVA
BEVA

A
VA

REVAREYA
BRVA BEVA

BENE
SRV

EEVA
IRYA

VL
BRYA

BEVE
BEVE

VAT
s/

Y
v/

*f/:
v/

LVASE
v/

VEARE
&/

FEIR
o/

V&
2/

LTARE
(VAN

VAR
VEARE

VARR
VEANE

VAN
VAR

VERE
TAUR

VERR
VAR

¥V ENE ¥ ENE Y
VERR VERR
Y

010202
010206
010212
010214
010216
010220
010224
010230
010234
010236
010236

010240
010240
010242
010246
010252
010252
010254
010260
010264
010266
010272
010274

010037
104016

BRWA|
BENA

001160
s

;BE4 TRANSFER CHECKS
v/:
¢/

012700
023700
001411
020420
001773
010437
014037
010037
104017

024342
001720

010122
012722
062701
005200
020037
001367
000207

RO,SREGO
16

CMPB

#3 DEVCNT

BEQ

VIR
VERE

BNV
BEYE

EY
TEYE

I
I
PR
FE"

;CHECK NEXT BLOCK OF

2000 LOCATIONS

DATA4 RO
13%

;CHECK FOR 1000 XFERS
;1F SO, CHANGE DATA PATTERNS & START OVER AGAIN

12%

;1F NO ERR,

R4, (RO)+

MoV
MOV
Mov

R4 ,3REGS
-(R0O) ,$REG
RO,$REGO

ERROR

13%:

;: CHECK FOR MORE THAN 3 DEVICES

CMpP

BEQ

TYPE ERR MSSG

:IF NO MORE DEVICES GO DO NEXT PATTERN

#ATEND+4000,RO

CMP
BEQ

001166
001162
001160

;ELSE

138

MoV

12%:

000207

005000
012701
012702

001700

Mov
ERROR

JELSE CHECK FOR CORRECT PATTERNS

;THE

MOVE

CHECK ANOTHER LOCATION

IS FOR

TYPEOUT REASONS

JELSE TYPE ERR MSSG

RTS
PC
SIIIIITIITITT0777 0000000010000 720001077777777771777777777277777772777777777
SIIIITITTTIP7070 007070700100 800000007770777772777777777777707270277707777777
SIITLTTTIITI07 7000000000007 700070007070772072777777727777777777707777777

STVEC:

010276
000510

CLR

000340
000006

#Q1,R1
#510,R2

:R1
:R2

Mov
MOV
ADD

R1,(R2)+
#PR7,(R2)+
#6.R1

;LOAD INTR RTN INTO
:LOAD INTR PSW
sGET NEXT INTR RTN

INC
cmp
BNE

001700

RO
RO,DEVCNT
5%

RTS

AR
AR

A
A

;RO IS COUNTER

Mov
MOV

;ELSE

A
R

INTR VEC

: INC COUNTER
sARE ALL AVAILABLE VECS LOADED?
:1F NOT, GO AND LOAD NEXT ONE

IS ADDR OF INTR RIN
IS DEV INTR VEC ADDR

X
2

EXIT

R
R

A
R

I
R

: THE FOLLOWING INTR ROUTINES SHOULD HANDLE ANY ERRORS
; WHICH MIGHT OCCUR BEFORE THE PROGRAM HAS A CHANCE TO

010276
010276
010304
010306
010306
010314
010316

010316
010324
010326

012737
000413

000001

012737
000407

000002

001204

012737
000403

000003

001204

PRNPERLY

(HECK

OUT

ALL

DEVICES

AND

SET

THEIR

INTR

Q1:

Qc:

Q3:
Qé:

MOV

#1,8THPS

JINDICATOR FOR DEV

MOV

#2.8TMPS

;INDICATOR FOR DEV 2

nov
8R

23,3TMP4
X0

JINDICATOR FOR DEV

B8R

XxQ

VECTORS

UNIBUS EXERCISER
MACY11
CZKUAD.P
26-APR-78 17:02
1600
1601
1602
1603
1604
1605
1606
1607
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

010326
010334
010334
010340

012737

000004

004737
000002

010406

30A(1052)

001204

03-MAY-78
14:28 PAGE 35
DUMMY END OF PROGRAM

T l4

SEQ 0040

mov

6, 3TAPS

;INDICATOR FOR DEV 4

JSR

PC.ERRTN

;GO TO ERR ROUTINE

XQ:
RTI

JRttRNtRRARRCOREORRRRAROROCRERSIROERAGRORNROERRRRRNARRNOARRANNRNRNENRNOROERNNRARNY
SRRERARERRREOLERTEERCERARELERERRLOCERRRORROOANARRARRNARNRNAARARANRNROS

010342
010342
010344
010346
010352
010354

010354
010362
010366
010370
010374
010376

010400
010402

010146
010046
012700
005001

042770
062700
005201
020137
103767
012600
012601
000137

PWRFAL:

mov
MoV
mMov

001612
000020
000014

000000

CLR

5%:

BIC
ADD
INC
CMP
8LO

001700

MoV
mov

020202

JMP
MASAEEE

010406
010406
010410
010414
010416
010416
010420
010424
010430
010432
010432
010436
010440
010442
010442
010450
010452
010460
010462
010464
010464
010472
010474
010476
010476

010504
010506
010510
010510
010516
010520
010522
010522
010530

104407

012700
105005

105205

062700

ERRTN:

001576
1$:

000014

001204

105770
100001
104022

000000

032770
001436
032770

007540

000000

004000

000000

001401
104023
132770
001401
104024

000040

132770
001401
104025

00010¢C

032770
001401
104026

000400

032770
001401

001000

CHKERR:

000000

1%:

10%:

2%:

3s:

A ¥

#B1704,8(R0O)
#14 ,R0
R1
R1,DEVCNT

;CLR BIT & OF CURRENT (R?2
;ADD 14 TO POINT TO NEXT CRZ
; COUNT THE NUMBER OF DEVS
sREACHED MAX # ON BUS?

(SP)+,RO
(SP)+,R1
SPWRDN

;ELSE RESTORE RO
;AND R1
:THEN DO REGULAR PWR DOWN RTN

AL AAAARRRRRRRRA

SAVREG
Mov
CLRB

¢ IF NOT,

Rttt

RSt

#BE1CR2-14,RO

CLR NEXT CR2

iRttt
Rttt

RRRRRE;

0RRRRRREdd

s SAVE REGISTERS

; INITIALIZE

;CLEAR DEVICE COUNTER

RS
#14,R0
R5,$TMP4
1%

;ADD 1 TO COUNTER
;SET RO=ADDR OF CR2 OF NEXT DEVICE
:1F COUNTER NOT EQUAL TO INDICATOR
sADD 1 TO COUNTER & CHECK AGAIN

TST8
BPL
ERROR

a(RO)
1%

;CHECK FOR NO NOSACK TIMEOUT
;1F NOT, SEE IF THERE ARE ANY ERRS

BIT
BEQ
BIT
BEQ
ERROR

#7540,3(R0O)
LEEV
#B1711,3(RO)
108

;CHECK FOR OTHER ERRORS
:1F NO ERRORS,EXIT
;CHECK FOR NO SSYN ON INTR
;1F NOT SET, CHECK FOR NEXT ERR

BIT8
BEQ
ERROR

#81705,a(R0)

;CHECK FOR WRONG GRANT ERR
:IF NOT, CHECK BIT 6
;ELSE TYPE ERR MESSG FOR WRONG GRANT

BITB
BEQ
ERROR

#B1706,3(RO)

:CHECK FOR BUS LATE ERR
;1F NOT, CHECK BIT 8

BIT
BEQ
ERROR

#81708,a(RO)
(3

sCHECK FOR NO SSYN ERR

BIT
BEQ

#81709,8(RO)

;CHECK FOR WRONG ADDR ERR

INCB

ADD

120537
001372

;RO POINTS TO DEV 1 CR2 ADDR
;CLEAR R

LR AAARARAR

MAASARAAL

;SAVE CONTENTS OF R1
;SAVE CONTENTS OF RO

R1,-(SP)
RO,
- (SP)
#BE1CRZ,RO
R1

(MPB
BNE

23
24

33
25

;TYPE

ERR MESSG FOR NO NOSACK

ERR MSSG

FOR NO SSYN ON

FOR BUS

LATE

;IF NOT, CHECK BIT 9
:TYPE

ERR MSSG

FOR NO SSYN

:1F NOT, CHECK BIT 10

INTR

UNIBUS EXERCISER
MACY11
CZKUAD.PI
26-APR-78 17:02

1656
1657
1658
1659
1660
1661
1662
1663
1664

1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
171

010532
010534
010534
010542
010544
010546
010546
010552
010556
010560

30A(1052)

1064027

032770
001401
104030

002000

162700

000002
000000

005070

104410
000207

03-MAY-78

14:28

PAGE 36

117

DUMMY END OF

ERROR

JTYPE ERR MSSG FOR WRONG ADDR

BIT

#B1T10,3(RO)

;CHECK FOR NO GRANT ERR

ERROR

;TYPE ERR MSSG FOR NO GRANT

000000

BEQ

LEEV:

LEEV

SEQ 0041

J1F

NOT,

EXIT

suB

#2,R0

;POINT TO DEVICE CLEAR REG

RESREG
RTS

;RESTORE
JEXIT

CLR

SRR ARA R
AL

PROGRAM

E AR RN

EARA

a(R0O)

sCLEAR ALL ERRORS

REGISTERS

RR RN A AR ENREORORRNNAARANRARNARAARAAANCNARS

ARl Rttt
RRtdRRRRRRRY}

MALAALEARASSRAAARASARARAARARARAR
AR
Rt ddRtd0t0RRRddE

010562
010562
010566
010574
010576

011637

162737
104035

001164
000002

THRUO:

001164

Mmov
SUB

(SP),SREG2
#2,3REG2
35

S$?0R

000002

MALAAAAARASAAAR
MALAAAAL LA

010600
010600
010604
010606
010610
010612
010612
010614
010614
010616
010622
010624
010626
010630
010630
010632
010632
010634

032703
001402
000261
000401

ROTATE:

000001

000241
006003
032704
001402
000261
000401

SRR

+MOVE FOR ERR TYPE OUT
;SUB 2 FOR ACTUAL ADDR
;TYPE ERR MSSG

AR ARttt
iRttt s
sl
AR AR ARRARRARRRRARARRRARRRlRaRd
RRRdRtRtRRt0
Rl

BIT
BEQ

#B1T00.R3
5

;IS LSB A1 OR O ?
:1F 0, GO TO 5%

108

*AND GO ROTATE

10;

cLC

SEC

000001

ROR

BIT
BEQ

SEC
BR

000241

2os-

cLC

006004
000207

ROR

AL AAAAS

RTS
R

“ELSE

SET

C BIT OF

COND

CODES

;CLEAR C BIT OF COND CODES
R3

#B1T00.R4
158
208

:ROTATE R3

‘IS LSB A 10RO ?
‘1F 0, 60 TO 158
YELSE SET C BIT OF
*AND GO ROTATE

COND CODES

:CLEAR C BIT OF COND CODES
R4
PC

:ROTATE Ré

ARARt
Rttt
RRRRRRRsd

;.QQ.t"t"""'!'tt'i't"i't"Qt""t""tt'tlt.t""'t"ttt'.t

010636
010636
010636
010642
010650
010656
010662
010664

010672
010674
010676
010702
010704
010706
010706
010712

NOG:

010037
012777
012777
010177
000240
022777
001005
106201
122701

001355
000402

004737
000207

177776
020342
177777
170724
177777

28:

170734
170724

MOV

MOV
MOV

MOV
NOP
CMP

170710

010714

EXNOG:

R1,3aBE1CR1

CMPB
BNE
BR
JSR
RTS

PC,ERRS
PC

ASRB

(%:

#ATEND,aBE1BA
#-1,aBE1CC

#-1,8BE1CC
43
R1
#1,R1
2%
EXNOG

BNE

000001

RO,PSW

;SET UP PROCESSOR STATUS
;SET
JSET

UP ADDR REG
UP CYCLE COUNT

FOR

CYCLE

;00 FUN 1 ON BR LEVELS IN R1

JWAIT FOR DEVICE TO ATTEMPT
JSEE IF DEVICE OPERATED

;IF

IT DID,GO TYPE

JSHIFY BYTE

RIGHT

ERR MSSG

TO LOWER BRRO

JIF BYTE IS NOT EQUAL
;60 10 2%
JEXIT
JEXIT

SUB RTN

T0 1

XFER

U
—
—

~N =~ SNNNSNSNSNNSNNNNNNNY ~
NN AIPONI AP NI N aob b
b b b b 2 —
0o ~J OV
WN 2O00NNV
W ~no

UNIBUS EXERCIS ER
MACY11
-78
CZKUAD PN
17:02
26-APR

1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747

1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764

1765
1766
1767

30A(1052)

4
D
03-MAY-78
14:28
PAGE 37
117
DUMMY END OF PROGRAM
R

010714
010714
010722

010730
010736
010744

010750
010752

010754
010754
010762
010766
010770
010772
010774
011000
011002
011004
011006
011006
011010
011014
011016

011024
011026

011030
011030
011034
011034
011036
011040
011042
011044

017737
017737
017737
017737
010037
104002

170660
170654
170650
170644
001170

001160
001162
001164
001166

ERRS:

[0}
mov
MoV
MoV
MOV
ERROR

0002C7

012737
012701
105441
105421
105421
105770
100402
105441
000770

005741
022711
001404
012737
104031
000207

012701

001162

BKGD:

lliissd

AR ARl

ERROR

ALAL SRR

170466

RTS

SRl

;BRING POINTER DOWN TO REG1
;COMPARE EXPECTED PATTERN WITH
;1F EQUAL, EXIT THIS RTN
;MOVE FOR TYPE 0QUT

R1,(R2)+

;MOVE

CONTENTS OF

JELSE

EXIT

R1
R1,RS
5%

101
R1

TO AREA

JADD 1 10 R1
;1S # OF MOVES = TO # IN RS?
;1F NOT, DO ANOTHER MOVE

AR AR R

#1,3REGS
#1,8REGSL
#70.,3REG4
18
R

RS A

AR
A

AR A

AR AR
RN

JINITIALIZE COUNTER REG
JADD 1 TO IT
JDELAY AT LEAST 41 uS
;IF NOT, GO BACK AND ADD 1

PC
AL AR S

JEXIY

TO REG4

AR AR
R0
R 2R RT)
A

A ARl
2 2 2]

MoV

#40000,R0

JUSE RO TO SET BIT 14

MoV

#-1,8BE1CC

JSET CYCLE COUNT = 1 XFER

MOV
MoV

IN R?

R ARl
el
iRt R R0 RRRREE

THAT

A A2
R0 0

MoV

BYTE=(031463)

JELSE TYPE ERR MSSG

JINIT R1

AND NEGATE

AR ARl
20202 2] ]

mov
ADD
cmp
BNE

1%:

LOC

1 ,R1

AAAAAAARAAA

CNTR:

DECREMENT

IN RO

;CONTINUE WITH BACKGROUND

MOV

MAAAAAAL AR

170472
002041

-(R1)
#166463,(R1)
BKEX
#146463,3REG?

TST
Cmp
BEQ
mov

JELSE

tlitai it

JOECREMENT LOC AND NEGATE BYTE=(031715)
JNEGATE BYTE THEN INCREMENT LOC=(031463)
JNEGATE BYTE THEN INCREMENT LOC=(146463)

-(R1)

ADLI:

;TEST FOR DONE BIT OF DEVICE
;1F DONE, GO CHECK RESULTS

DOUP:

170474

ERROR RTN

8(RO)
2%

001164

AL RAA

Rttt

-(R1)
(R1)+
(R1)+

RTS

177777

EXIT

TSTB
BM]
NEGB
BR

NEGB
NEGB
NEGB

RTS

012777
010077
012777

;MOVES ARE FOR TYPEOUTS

JSTART OF BACKGROUND ROUTINE
JUSE R1 TO POINT TO TEST PATTERN

INC
Cmp
BLOS

040000

#031 53,8REG?
#SREGT+1 R

BKEX:

012700

MOV
MOV

MASAAZARA

011074

RS AR

166463

001170
001170
001170

ARl

ARAL

000001
000001
000106

010122
005201
020105
101774
000207

012737
062737
022737
001371
000207

ARRRl ARttt
ittt stsliisnd

011046
011046
011054
011062
011070
011072

AR AR

1%:

000001

MASASAEAR AR

000000

166463

@BE1DB, SREGO
8BE1CC,SREG]
@BE1BA,SREG?
aBET1CR1,8REGY
RO,$REGS
2

RTS

031463
001163

SEQ 0042

RO,3BE1BA
#2041,8BE1CRT

JSET ADDR AS SPECIFIED
;D0 DATI-FUN 1-NPR

IN RO

IN R1

UNIBUS EXERCISER
MACY11
CZKUAD.PI1
26~APR-78 17:02

1768
1769
1770
imm
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788

004737
022700
001403
012700
000760

30A(1052)

&
E
03-MAY-78
14:28
PAGE 38
117
DUMMY END OF PROGRAM

011046
100000

JSR

PC,CNTR

JALLOW TIME

BEQ
mov
BR

EXAD
#100000,R0
1%

JIF SET, GO SET NEXT ADDR LINE
JELSE, NOW SET BIT 15 OF RO
;G0 BACK AND CHECK THAT ADDR

JEXIT

(mp

100000
EXAD:

000207

R R R A A

012737
005037
012700
012720
022700
001373
000207

000140
001164
020342

177776

102
102

050103
042502

014166

103
042444
103
042504
124
115
046040
104
104
104
104
102
104
102
044502

044502

005015
042012
020125
042104
052520
020126
062061
020125
041461
052520
052520
052520
052520
0642516
044510
051461
051525
030505
020125
041461
052520
051122

052520
020126
042510
046505
041517
053105
053105
053105
053105
052111
053105
052111
020124
020124

047125
053105
051124
020122
044440
020061
020102

QNO:
FOR&:
EM1:
DHT:

042040
042040
042040
042040
047440
020123
020124
040440
051103
047516
030522
042040
041520
042040
020061
052040
051117
020040
041511
041511
041511
041511

EM4 :

044504
030522

033440
021440
030440
020065
020066

EM2:

DH?2:
EM3:
DH3:
EMS:

EM6:

EM7:
EM10:
DH10:
EM1:
DH11:
EM12:
DH12:
EM13:
DH13:
EM1&:
EM1S:

DH15:
EM16:
EM17:
EM20:
EM21:

EM22:
DH22:
EM23:
EM24:
EM25:

SUB ROUTINE

R AN R R PR O RN PR R RO RN AR E AR R RN RGN
R

R R P AR R

RAERRRN

R R R AR R R RN R R AR R AR R RN NG RO

;PS=3

MoV

#ATEND,RO

;SET UP RO AS POINTER

CMP
BNE

#ATEND+2000,RO ;CHECK FOR A 2000 MOVES
1%
JIF NOT, GO BACK AND MOVE AGAIN

JCLEAR REG FOR INTR ON DONF COUNTER

#125252,(RO) ¢+

;MOVE DATA PATTERN TO AVAILABLE MEMORY

R R R

005015
015
050103
040440
103
042504
042502
050103
042502
103
103
103
103
117
124
020040

JCHECK IF BIT 15 OF RO IS SET

$REG?2

MOV

TO SET

#PR3,PSW

RTS

FOR RDY BIT

MOV

CLR

1%:

125252

022342

#100000,R0

RTS

TSTOVR:

SEQ 0043

JEXIT

R R R

R R

RN AR RN

R R RN R

RN R E R AR AR AR RRRARRRARARNRRARNAS

R R LR R

RN R R RN RRREARERRARANRRRRARS

LASCIZ
LASCIZ
.ASCIZ
.ASCIZ

<15><12><15><12> UNIBUS SYSTEMS EXERCISER DIAGNOSTIC - CZKUA-D
BY:M.S
<15><12> DEV & MUST HAVE TIME DELAY SET @ 100 US OR LATENCY ERR MAY 0OCCU
CPU TRAPPED THRU LOCATION & -TIMEOUT
ADDR
SERRPC #ERR/TST#

.ASCI2
.ASCIZ
LASCI2

CPU DID NOT ISSUE BUS NPG
BET1CR1
BE1CC
FM-PS
T10-PS

.ASCIZ

CPU DID NOT

LASCI2
LASCI2

LASCI!

CPU DID NOT [SSUE BUS GRANT 4
ONE OR MORE DEVICES DID NOT INTERRUPT
THIS IS THE ORDER IN WHICH THEY INTERRUPTED <15><12>
187
2ND
IRD
4TH
SERRPC #ERR/TST#
BUS ADDRESS LINES <A17:A14> DID NOT FUNCTION PROPERLY
BE1CRT
BEICR?
BETBA
SERRPC WERR/TSTA
CPU NO SACK TIMEOUT LOGIC FAJLED(TO NEGATE BUS GRANT)
BETCR1
BE1CR2
SERRPC #ERR/TSTH
CPU DID NOT PROPERLY EXECUTE AN ACLO/DCLO SEQUENCE
SERRPC #ERR/TST#
CPU DID NOT TRAP FROM BUS PARJITY ERROR PA/PB = 0/1
DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY <15><12>

.ASCI1

MEMORY

.ASCII
LASCIZ

.ASCIZ
LASCIZ

LASCII
LASCIZ
LASCI2
.ASC12
LASCIZ
LASCIZ

.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ

CPU ISSUED A BUS GRANT WITH PSW = 7
DEV 1 SHOULD NOT WAVE BECOME BUS MASTER

BE1DB

BE1CC

BE1BA

BE1CR1

CPU DID NOT

ISSUE BUS GRANT

CPU DID NOT

ISSUE BUS GRANT

5§

THE

LoC

PSW

S$ERRPC #ERR/TSTH

$ERRPC #ERR/TSTH

]SSUE BUS GRANT 6

TRANSFER

TO THE

ACTUAL
DATA

FOLLOWING LOCATION WAS

CORRECT <15><12>
DATA

INCORRECT

SERRPC WERR/TSTAH SICNT &

DEVICE 3'S DATO TO MEMORY DID NOT EQUAL PATTERN IN R3
DEVICE 4'S DATO TO MEMORY DID NOT EQUAL PATTERN IN R4
DEVICE 1 DOING FUN 1-NPR-DATIP; INCORRECT PATTERN IN MEMORY
DEVICE 2 DOING FUN 2~NPR-DATOB; INCORRECT PATTERN IN MEMCRY

BIT
DEV
BIT
BIT
BIT

7 OF CR2 SET-CPU DID NOT TIME OUT WITH SACK
#
PC
SERRPC
#ERR/TSTA
11 OF CR2 SET-NO SSYN ON INTR SIGNAL
5 OF CR2 SET-RECEIVED WRONG GRANT
6 OF (R2 SET-BUS LATE

[NHIBITED

UNIBUS EXERCISER
MACY11
CZKUAD.PI
26-APR-78 17:02

(2)

03-MAY-78
14:28
PAGE 39
117
DUMMY END OF PROGRAM
EM26:
EMR27:
EM30:
EM31:

014220
014262
014331
0146420
014504
014560
014602
014653
014737
015011
015105
015165

044502
044502
102
045502
047503
041501
040504
104
104
114
116
0 Sggg

020124
020124
052111
047107
051122
052524
040524
053105
053105
051501
052117
041412

020070
020071
030440
020104
041505
046101
020040
031440
032040
020126
053440
052520

015262
015272
015312
015330
015346
015362
015374
015402
015420
015432

001164
001160
001160
001162
001162
001160
001116
001160
001204
001162

001116
001162
001162
001164
001164
001162
001102
001162
001172
001164

001102
001164
001164
001166
001166
001116
000000
001166
001116
001116

30A(1052)

SEQ 0044

EM3S:

LASCIZ
LASCIZ
LASCI7
.ASCII
.ASCIZ
LASCII
.ASCIZ
.ASCIZ
.ASCIZ
LASCII
.ASCIZ
LASCIZ

BIT 8 OF CR2 SET-NO SSYN OCCURRED
BIT 9 OF
(RZ SET-WRONG ADDRESS ON BUS
BIT 10 OF CR2 SET-DEVICE RECEIVED OTHER THAN ONE GRANT
BKGND ROUTINE INSTRUCTIONS OF NEGB'S WERE NOT DONE <15><12>
CORRECTLY TO SREG1 DURING MULTITRANSFERS 11
ACTUAL
CORR'T
<15><12>
DATA
DATA
SERRPC #ERR/TSTAH SICNT #
DEV 3 DID DATI BUT HAS INCORRECT VALUES IN DATA REG
DEV 4 DID NOT INTR THE CORRECT # OF TIMES
LAST DATIP TO DEVICE 1 DB WAS INCORRECT- EITHER DEVICE DID <15><12>
NOT WORK OR BUFFER AREA WAS NOT SET UP PROPERLY
<15><12> CPU TRAPPED THRU LOC O TO CATCH IMPROPERLY LOADED VECTORS

OT1:
DT2:
DT3:
DT10:
©OT11:
DT12:
©OT13:
©DT15:
DT22:
D731:

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

SREGZ,SERRPC,$TSTNM,0
SREGO,SREG1,$REG2,$REG3,SREG4,SERRPC,STSTNM,
O
SREGO,SREG1,$REG2,SREG3,SERRPC,$TSTNM
0
SREG1,SREG2,8REG3,SREG4,SERRPC,$TSTNM,
0
SREG1,SREG2.SREG3,SERRPC,STSTNM,O
SREGO,SREG1,$ERRPC,$TSTNM,0
SERRPC,$TSTNM,0
SREGO,SREG1,$REG3,$ERRPC,STSTNM,
SICNT,0
STMP4L,SREGS,SERRPC,STSTNM,0
SREG1,SREGZ,SERRPC,STSTNM,
SICNT,O

DH31:
EM32:
EM33:
EM34:

.EVEN

1789

1790

1791

1792

R
R

AR R R

AN
RN

R R

R R R R AR

R R

R R R AR R PR R PR AR

AN TR

R R AR

AN R R

P AR AR R R RN R RN R R RN

TN R R PR AR R R R PR AN R R R RN RN RN AR R RR AR R RN

R RN N

1795
1796
1797
1798
1799

s*INCREMENT THE PASS NUMBER ($PASS)
s*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS
;*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;+IF THERES A MONITOR GO TO [T
;*IF THERE ISN'T JUMP TO TST1

1814
1815
1816
1817
1818
1819
1820

015512

000004
005037
005037
005237
042737
005327
000001
003063
012737
000007
015474
104400

000407

$EQP:
001102
001210
001100
100000

001100
$EOPCT:
$ENDCT:

015514

015532
015532

013746

001100

015536
015540

104404
104400

015546

64$:

RERERRER

.SBTTL

015446
015446
015450
015454
015460
015464
015472
015474
015476
015500
015502
015504
015506

AR R IR

};32

1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813

AR RN R

END OF PASS ROUTINE

SCOPE
CLR
CLR
INC
BIC
DEC
.WORD
BGT
MoV
,WORD
SEOPCT
TYPE

STSTNM
$STIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

, ot
BR
643
;s ASCIZ

SINCE

LAST

REPORT

YYYYY"

;. LERO THE TEST NUMBER
;;JERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;. LOOP?

s VES
;sRESTORE

COUNTER

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<12><15>/END PASS #/

MOV

$PASS,-(5P)

TYPDS
TYPE

.ot

;. SAVE S$PASS FOR TYPEOUT
;;TYPE PASS NUMBER
;.60 TYPE--DECIMAL ASCII WITH SIGN
;. TYPE ASCIZ STRING

UNIBUS EXERCISER
MACY11
CZKUAD.P
26-APR-78 17:02
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849

1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876

015544

000421

015610
015610

013746

015614

015616
015622

015626

015626
015632
015634
015636
015640
015642
015644
015646
015646
015652

30A(1052)

03-MAY-78

END OF

PASS ROUTINE

658

BR
65%
;. ASCIZ

MOV

104404
104400

005037

$GET42:

013700
001405
000005
004710
000240
000240
000240

000137
377
015656

14:28

003506
377

$DOAGN:

000

SENULL:

::GET OVER THE ASCIZ
TOTAL ERRORS SINCE LAST REPORT /

:;SAVE SERTTL FOR TYPEOUT

TYPDS
TYPE

LSNULL

;. TOTAL NUMBER OF ERRORS
;.60 TYPE--DECIMAL ASCII
;. TYPE NULL CHAR

CLR

SERTTL

;s CLEAR ERROR

MOV

ari2, R0

;:GET MONITOR ADDRESS

$DOAGN

RESETY
JSR

;;BRANCH

WITH

SIGN

TOTAL

NO MONITOR

;:;CLEAR THE WORLD

PC, (RO

NOP
NOP

;:G0 TO MONITOR
; :SAVE
;:FOR

NOP

ROOM

;o ACTIN

JMP

a#T1ST1

.BYTE
.EVEN

SCOPE

s :RETURN

-1.-1.0

MAAAEAEAR LSRR

.SBTTL

SEQ 0045

$ERTTL,~-(SP)

BEQ

$ENDAD:

&
G
PAGE 40

J:NULL

ARl

HANDLER

CHARACTER

iilss

STRING

sttt

nd]

ROUTINE

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:*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 PROVIDED BY THIS ROUTINE ARE:

LOOP ON
INHIBIT
LOOP ON
LOOP ON

;*SW14=1
;*SW11=1
;*SW09=1
;*SW08=1
s*CALL
o

015656
015656
015664

015666
015670
015674
015702
015706
015712
015714
015716
015722
015724
015724
015732
015734
015740
015744

032777
001114

040000

163252

032777
001407
017746
042716
122637

1$:

81T

BNE

MANRASTART

000416

013746
012737
005737
012637
000466
022626
012637
000426

$SCOPE:

SCOPE

$XTSTR:

000004
015714

177060

000004

5%:

000004
000400
163176

000300
001102

163204

TEST
ITERATIONS
ERROR
TEST IN SWR<5:0>
;. SCOPE=]0T

#BIT14,aSWR
OF

$SOVER

CODE

FOR

THE

;.LOOP ON PRESENT

XOR

6%
S#ERRVEC,~(SP)

cmp

(SP)+,(SP)+

MOV

BR
6$:;#XNAREND OF

#5% ,QFERRVEC
a¥177060
(SP)+ @#ERRVEC
$SVLAD
(SP)+ ,#ERRVEC

7%
CODE

FOR THE

BIT

#81708,aSwWR

Mov
BIC
(MPB

aSWR, = (SP)
#$SWRMK, (SP)
(SP)+ STSTNM

BEQ

SWilée=1

TESTERFAZNNX

;.
1F RUNNING ON THE

MOV

Mov
TST
MOV
BR

s YES IF

TEST?
''XOR'' TESTER

CHANGE

;THIS INSTRUCTION TO A "'NOP'* (NOP=240)
;;SAVE

THE

CONTENTS

THE

;:SET FOR TIMEOUT
;. TIME OUT ON XOR?
;.RESTORE THE ERROR VECTOR
;.G0 TO THE NEXT TEST

;s CLEAR THE
;;RESTORE

ERRCR

;.LOOP ON SPEC.
IF NO

VECTOR

STACK AFTER A TIME 0OUT

THE

VE(TOR

;.LOOP ON THE PRESENT
XOR TESTER#ANAN
;:BR

ERROR

TEST

TEST?

;;SET DESIRED TEST NUM. FROM
;STRIP AWAY UNDESIRED BITS
;:ON THE RIGHT TEST?

SWR

UNIBUS EXERCIS ER
MACY11
CZKUAD. P11
26-APR-78 17:02

015750
015752
015756
015760
015766
015770

015776

016000
016006
016010
016014
016020
016022
016030
016032
016036
016040
016044
016052
016054
016062
016070
016074
016100
016104
016110
016116
016124
016130
016132

001462
105737
001421
123737
101015

032777

001404
013737
000443
105037
005037
000415
032777
001011
005737
001406
005237
023737
002021
012737
013737
105237
011637
011637
005037
112737
013777
013716
000002
000040

001103

001115

001103

001000

163140

001110

001106

001103
001210
004000

14:28
PAGE 41
SCOPE HANDLER ROUTINE

000001
016132
001102
001106
001110
001212
000001
001102
001106

(MPB
BHI

SERMAX,SERFLG

BEQ
MoV
BR
CLRB
CLR
BR
BIT
BNE

3%:

001100
001104
001210

$OVER
S$ERFLG

BIT

7%:

TST

BEQ
INC

001104
001104
001210

1%:
$SVLAD:

cmp
8GE
MOV
MOV
INCB

MoV
Mov

001115
163014

CLR

$OVER:

SMXCNT:

BEQ

TSTB
BEQ

4%:

163106

03-MAY-78

2%:

MOVB
mMov
MOV
RTI

SEQ 0046
;.BR IF YES
;s HAS AN ERROR OCCURRED?

;.BR IF NO
;:MAX. ERRORS
;:BR IF NO

#BI709,asSwR
43
SLPERR,SLPADR
$OVER
SERFLG
S$TIMES
1%
#BIT11,aSWR

FOR

THIS

TEST

OCCURRED?

;. LOOP ON ERROR?
;.BR IF NO
;.SET LOOP ADDRESS TO LAST SCOPE

;s JERO THE ERROR FLAG
;;CLEAR THE NUMBER OF JTERATIONS TO MAKE
:;ESCAPE TO THE NEXT TEST
;o INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM

$PASS
1$
$ICNT
STIMES,$ICNT
$OVER

INHIBIT

1, $1CNT
SMXCNT ,STIMES

$STSTNM
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX
STSTNM,aDISPLAY
SLPADR, (SP)

ITERATIONS

..INCREHENT ITERATION COUNT
;. CHECK THE NUMBER OF [TERAT]ONS MADE
;.BR IF MORE ITERATION REQUIRED
JoREINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF JTERATIONS TO 00
;;COUNT TEST NUMBERS
;. SAVE SCOPE LOOP ADDRESS
;sSAVE ERROR LOOP ADDRESS
J:CLEAR THE ESCAPE FROM ERROR ADDRESS

;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY

TEST NUMBER

;s FUDGE RETURN ADDRESS
;sFIXES PS
. sMAX. NUMBER OF JTERATIONS

MAASAASAAALARt
ARttt
RRRRRR]

.SBTTL

ERROR HANDLER ROUTINE

;*THIS

ROUTINE

WILL

INCREMENT

THE

ERROR

FLAG

AND

s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
s*AND GO TO SERRTYP ON ERROR
;*THE

SWITCH OPTIONS PROVIDED BY
HALT ON ERROR

;eSW15=1
;*SW13=1
;eSW10=1
;*SW09=1
JeCALL
ERROR
J

117737

162710

INCB
BEQ

MOV

1%:

BIT
BEQ
TYPE
INC
mMov

005237
011637
162737

001214
001112
001116
000002

162770
162760

-—

104400

001102
002000

L a

001775
013777
032777
001402

SERROR:
7%:

00110%

—

105237

——

016134
016134
016140
016142
016150
016156
016160
016164
016170
016174
016202

1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909

30A(1052)

SuUB

MOVB

INHIBIT ERROR

BELL ON ERROR
LOOP ON ERROR
N

THIS

ROUTINE

THE

ERROR

COUNT,

THE ERROR CALL

ARE:

TYPEQUTS

;;ERROR=EMT

AND N=ERROR

[TEM NUMBER

$ERFLG
7%
$TSTNM,aDISPLAY

;:SET THE ERROR FLAG
;;DON'T LET THE FLAG GO TO ZERO
;:DISPLAY TEST NUMBER AND ERRQOR FLAG

J:NO - SKIP

#BIT10,aSwWR

LSBELL

SERTTL
(SP),$ERRP(
#2,8ERRPC
aSERRPC,SITEMB

;.BELL ON ERROR?

;sRING BELL

;:COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION
;sSTRIP AND

SAVE

THE

ERROR

ITEM CODE

UNIBUS EXERCIS ER
MACY11
CZXUAD P11
26-APR-78 17:02
1933
1934
1935
1936
1937
1938
1939
1940

1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988

016210
016216
016220
016224
016230
016230
016234
016236
016240
016246
016250
016252
016260
016262
016266
016272
016274
016300
016300

30A(1052)

032777
001004
004737
104400

016302
001221

005777

162702

022737
001001
000000
032777
001402
013716
005737
001402
013716

015636

000042

001000

162656

100001
000000

020000

I
03-MAY-78
14:28
PAGE 42
ERROR HANDLER ROUTINE

SEQ 0047

BIT
BNE
JSR
TYPE

#BIT13,aSWR
20%
PC,S$ERRTYP
LSCRLF

5 SKIP TYPEOUT IF SET
;s SKIP TYPEOUTS
;60 TO USER ERROR ROUTINE

TST
BPL

aSWR
6%

;:HALT ON ERROR
::SKIP IF CONTINUE

6%:

CMP
BNE

#EENDAD 842
3s

3%:

BIT
BEQ
Mov
TST
BEQ
MOV

#BIT09,a5WR
(3
$LPERR, (SP)
SESCAPE
5%
$SESCAPE, (SP)

162720

20%:
2s:

001110
001212

43 :

001212

000002

HALT

;:HALT ON ERROR'

JACT=11 AUTO=-ACCEPT?
;:BRANCH IF NO

J2YES

;:LO0OP ON ERROR SWITCH SET?
;:BR IF NO
;;FUDGE RETURN FOR LOOPING
;. CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE
s sRETURN

RT1

;i""i.tt""""""""" \ASAARARRAARAARARERARZARRR2RRR2
RS

.SBTTL

ERROR MESSAGE

J*THIS ROUTINE USES

TYPEOU T ROUTINE

THE '"ITE M CONTROL BYTE' (SITEMB)

TO DETERMINE

WHICH

J*ERROR 1S TO BE REPORTED. 1 T THEN OBTAINS, FROM THE "'ERROR TABLE'' (SERRTB),
J*AND REPORTS THE APPROPRIAT E INFORMATION CONCERNING THE ERROR.

016302
016302
016306
016310
016312
016316

104400
010046

001221

153700
001004

001114

005000

016320

013746

016324
016326
016330
016332
016334
016336
016340
016344
016350
016352

104401

016354
016356
016362
016366
016370
016372
016374
016400
016402
016404

000426
005300
006300
006300
006300
062700
012037
001404
104400
000000
104400

012037
001404

001116

TYPE
[ [0]Y)
CLR
BIS8B
BNE

LOCRLF
RO,-(SP)
RO
a¥#S1TEMB,RO
19

JsPICKUP THE

MOV

$ERRPC,~(SP)

;:SAVE SERRPC FOR TYPEOUT

TYPOC

1%:

001224
016354

001221
016372

104400

000000
104400
011000
001004
012600

$ERRTYP:

001221

2%:

3s:
4% :

5% :
6$:

ASL
ASL
ASL

RO
RO
RO

DEC

:""CARRIAGE RETURN'' & '"'LINE FEED'
:;SAVE RO
;:1F

ITEM INDEX

ITEM NUMBER IS ZERO, JUST

;. TYPE

THE

ERROR

:;ERROR ADDRESS
;:60 TYPE-~OCTAL ASCIICALL DIGITS)
;sGET ouTt
;;ADJUST THE INDEX SO THAT IT WILL
..
WORK FOR THE ERROR TABLE

ADD
[0}
8EQ

#S$ERRTB,RO
(RQ)+,28
1s

;;FORM

.WORD
TYPE
MOV
BEQ

0
LSCRLF
(RO)+,4%
S$

;;'ERROR MESSAGE'' POINTER GOES HERE
;s 'CARRIAGE RETURN'' & ""LINE FEED'
;:PICKUP '‘DATA HEADER'' POINTER
.. SKIP TYPEOUT IF 0

.WCRD

::'DATA HEADER'® POINTER GOES HERE

[ [0]"]

(RO),RO

TYPE

BNE
MOV

LSCRLF

7%
(SP)+,RO

TABLE

POINTER

;;PICKUP ''ERROR MESSAGE'' POINTER

;. SKIP TYPEOUT IF NO POINTER
::TYPE

THE ''ERROR MESSAGE''

;. TYPE

THE ''DATA HEADER'

:;'CARRIAGE RETURN'' & '"LINE FEED"

;;PICKUP ''DATA TABLE' POINTER
;.60 TYPE THE DATA
; ;RESTORE RO

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

016406
016412
016414
016414
016416
016420
016422
016424
016430
016432

2000

104400
000207
013046
104401
005710
001770

104400
000771
020040
016436

30A(1052)

7%:

016432

000

8%:

2017

000004
162470

000002

162464
177600

000004
000004

,SCRLF
PC

;""CARRIAGE
; sRETURN

MoV
TYPOC
TST
BEQ

3 (RO)+,-(SP)

;:SAVE a(R0O)+ FOR TYPEOUT
;:60 TYPE--OCTAL ASCIIC(ALL
;. 1S THERE ANOTHER NUMBER?
;:BR IF NO

TYPE
BR
LASCIZ
.EVEN

(RO)
6%
,8%
7%
7/

TTY

ggg%

010346
012703
022703
101405
104405
112613
122713
001003
104400
000763
111337
104400
122723
001356
105063
104400
012603
011646
016666
012766
000002

FEED''

DIGITS)

;o TYPE TWO(2) SPACES
;:L00P
;:TWO(2) SPACES

INPUT ROUTINE

$RDCHR:

1%:

MOV
MOV
TST8
BPL
MOVB
BIC
RT!

INPUT A SINGLE

CHARACTER FROM THE

TTY

;s INPUT A SINGLE CHARACTER FROM THE
;. CHARACTER IS ON THE STACK

(SP),-(SP)
4(SP),2(SP)
as$TKS
1%
98$TKB,4 (SP)
# C<177>,4(SP)

;*THIS ROUTINE WILL
srCALL:
]
RDLIN
s
RETURN HERE
o
016472
016474
016500
016504
016506
016510
016512
016516
016520
016524
016526
016532
016536
016542
016544
016550
016554
016556
016560
016566
016574

RETURN'' & "'LINE

TTY

; sPUSH DOWN THE PC
;s SAVE THE PS
;;WAIT FOR
;sA CHARACTER
;sREAD THE TTY
;;GET RID OF JUNK IF ANY
;:G0 BACK Tr USER

;'t't"".'""""'"'Q'tii""""""'i4""'.'.""."'.'.'.

2018
2019
2020
2021

2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044

TYPE
RTS

;*THIS ROUTINE WILL
s*CALL:
Jr
RDCHR
M
RETURN HERE
;
011646
016666
105777
100375
117766
042766
00002

SEQ 0048

"t"'lfiifi'i'i'"'Q*t"i’""i'i't""'i"i*'tiitt'tt'tilttt"itl"

LSBTTL

016436
016440
016446
016452
016454
016462
016470

O03-MAY-78
14:28
PAGE 43
ERROR MESSAGE TYPEOUT ROUTINE

001221

2001
ggg%

2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016

016600
016616

000177
001220

016576
01657¢
000015
177777
001222
000004
016600

000002
000004

SRDLIN: MOV
1%:
[ [0]"
2%:
CMP
BLOS
RDCHR
MOVB
(MPB
BNE
43:
TYPE
BR
1%
MOVB
TYPE
CmPB
BNE
CLRB
TYPE
MOV
MoV
MoV
L [0]"
RTI

INPUT A STRING FROM THE TTY

R3,-(SP)
#STTYIN,R3
#STTYIN#16,R3
43
(SP)+,(R3)
#177,(RY)
3s
,SQUES
1%
(R3),9%
,9%
#15,(R3)+
23
=1(RY)
LSLF
(SP)+,R3
(SP),=(SP)
L(SP),2(SP)
#STTYIN,L(SP)

;o INPUT A STRING FROM THE TTY
;. ADDRESS OF FIRST CHARACTER WILL BE ON THE
;;TERMINATOR WILL BE A BYTE OF ALL 0°'S

;s SAVE R3
;sGET ADDRESS
;,BUFFER FULL?
;:BR [F YES
;G0 READ ONE CHARACTER FROM THE
;sGET CHARACTER
;:1S IT A RUBOUT
JsSKIP IF NOT
;sTYPE A 'Y
;. CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

TTY

;s CHECK FOR RETURN
;.LOOP IF NOT RETURN
;sCLEAR RETURN (THE 15)
. TYPE A LINE FEED
;sRESTORE R3
;. ADJUST

;RETURN

THE

STACK AND PUT ADDRESS OF

FIRST ASCI]

CHARACTER ON IT

THE

STACK

UNIBUS EXERCISER
MACY11
CZKUAD.P
26-APR-78 17:02

2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075

2076
2077
2078
2079

2080
2081
2082
2083

2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100

016576
016577
016600

30A(1052)

000
000
000016

14:28

03-MAY-78

TTY

INPUT

9s:
$TTYIN:

ROUTINE

BYTE
.BYTE
.BLKB

PAGE 44

0
0
16

SEQ 0049
;;STORAGE FOR ASCII CHAR. TO TYPE
s TERMINATOR
;;RESERVE 16 BYTES FOR TTY INPUT

""tt"'it'tfiti't't'tt'tt"'t"it"t'tt"tittt."tfi"tttiitttttt

.SBTTL

s *CALL:

o¥

ROUTINE

TO SIZE MEMORY

JSR

PC,$SI1ZE

RETURN

¢
;Y

WITH KT11 OPTION
WITHOUT KT11 OPTION

;*$KT11

DETERMINED BY ROUTINE

$SIZE:

MOV
MoV
MoV

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

Mov
Mov
MOV

@#ERRVEC,-(SP)
;.SAVE
S#ERRVEC+2,-(SP)
SP,RO
s :SAVE

J*SLSTAD WILL CONTAIN:

== LAST VIRTUAL ADDRESS OF THE LAST BANK
== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
THE MEMORY MANAGEMENT KEY

;*BITO7 = 0 DON'T USE MEMORY MANAGEMENT
o
MUST BE SETUP BEFORE THE CALL
;*BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION
016616
016620
016622
016624
016626

016632
016636
016640
016644
016652
016654
016662
016666
016670
016674
016700
016702
016704

016706
016714
016720
016726
016730
016734
016740
016746
016750
016754
016756
016762
016764
016772
017000
017006
017012
017020

010046
010146
010246
010346
013746
013746
010600
013746
012737
104400

016637
012716
000002
012637
012701
105727
000200
100063
012737
005737
052737
005046

000034
016654
000002
016670

000034
000006

000034
003776

18:

017046
177572
100000

172340
000010
077406

062716
077307
012742
005042
012737
012737
012737
005237
012737
005737

00020C

00000¢

016702

177740

000006
000002
000020
177572
017036
143776

000004
000006
172516

000004

#3776 .R1

_WORD
BPL

200
$CORE

(SP)+, a#34

;:RESTORE TRAP VECTOR

(PC) ¢

s sUSE

MEMORY MANAGEMENT?

:SET TO USE MEMORY MANAGEMENT
;:BR IF NO

#SKTNEX,@#ERRVEC ;;SET
8#5R0
;:KT11

CLR
MoV
Mov

=(SP)
#KIPARO,R2
# D8,R3

ADD

#200, (SP)

FOR TIMEOUT
ARE YOU THERE?

#100000,8kT11

5o YES==SET KT11

KEY

#77406,-40(R2)
(SP), (R2)+

;;PDR = 4K, UP,
::LOAD ''PAR'’

READ/WRITE

R3,18

s INITIALIZE FOR ''PAR'' LOADING
; ;ADDRESS OF FIRST '‘PAR"
;;LOAD EIGHT ''PAR.'S'' AND EIGHT 'PDR.'S"’
:;UPDATE FOR NEXT '‘PAR'’

;;LOOP UNTIL ALL EIGHT ARE LOADED

Mov
CLR

#177600,-(R2)
-(R2)

Mov
Mov
INC
MOV
ST

rn,
aré
;s
1F SR3 DOESNT EXIST
#20,3#SR3
;;ENABLE 22 BIT MODE
8#SR0
;. TURN ON MEMORY MANAGEMENT
#SKTOUT ,@#ERRVEC ;;SET FOR TIME OUT
82143776
s TRAP ON NON<-EX-MEM

’0,

§ PC

;s SETUP ADDRESS

Mov
TST

MOV

2s:

VECTOR PS

THE STACK POINTER
:SETUP THE TRAP VECTOR
;s TO GET THE PS

MoV

MoV
MoV

STACK

ERROR

2(SP) ,@#ERRVEC+2 ;;SET ERRVEC PS
#$S1ZE1,(SP)
:: TO PRESENT PS

S08B

177600

PRESENT

TRAP
Mov
H?Y
R

TSTB

STACK
STACK
STA(CK

;SAVE R3 ON THE

a#34,-(SP)
s, an3s

BIS

18:

R3,-(SP)

MoV
Mov

$SIZE1: MOV
$KT11:

012702
012703
012762

011622

MOV

000004
000006

:SAVE RO ON THE
::SAVE R1 ON THE
;:SAVE R2 ON THE

;. SETUP KIPAR? FOR 1/0
;. SETUP KIPAR6 FOR TESTING
;;SET

FOR TIMEOUT

UNIBUS EXERCISER
MACY11
CZKUAD P11
26-APR-78 17:02

NN —
VOO NO N

b
d
e
b

d
b

e
b

-t

D ek

NP,
NN

2101
2102
2103
2104
2105
2106

017024
017030
017034
017036
017040
017044
017046
017054
017062
017064
017070
017074
017076
017102
017104
017110
017114
017116
017122
017126
017132
017136
017140
017142
017144
017146
017150
017152

062712
023712

101371
011202
005037
000421
042737
012737
005002
062701
062702
005711
022701
001370
162701
162702
010006
012637
012637
010137
010237
012603
012602
012601
012600
000207
000000
000000

30A(1052)

03-MAY-78

TO SIZE

MEMORY

$KTOUT:

ADD
CMP
BHI
MOV

#40, (R2)
a#KIPAR7, (R2)
23
(R2).R2

172356

100000

017104

0040G0
000040

016702
000004

SKINEX:
$CORE:
18:

177776

004000
000040

4
L
PAGE 45

ROUTINE

000040

177572

14:28

$CROUT:
$SIZEX:

000006
000004
017150
017152

CLR

AR R

.SBTTL

J;NO==TRY IT
::GET LAST BANK+1

8#SR0O

;:TURN OFF MEMORY MANAGEMENT

R1,$LSTAD

::LAST ADDRESS

$SIZEX
#100000,8kT11
J:KT11 NON-EXISTENT
#S$CROUT,a#ERRVEC ;;SET FOR TIMEOUT
R2
;:SET UP BANK
#4000 ,R1
;s INCREMENT BY 1K
#40,R2
;1K STEP
(R1)
;:;TRAP ON TIME OuT
#177776 ,R1
::LAST ONE
13
;;NO=-=TRY AGAIN
#4000,R1
#40,R2
; :DROP BACK
RO,SP
J:RESTORE THE STACK
(SP)+ Q#ERRVEC+2 ;.RESTORE ERROR VECTOR
(SP)+ ,8#ERRVEC

MOV
MOV
MOV
MOV

R2,SLSTBK
(SP)+,R3
(SP)+,R2
(SP)+,R1

MOV

SRR

;;MAKE A 1K STEP
::LAST ONE?

BR
BIC
MOV
CLR
ADD
ADD
1ST
cmp
BNE
SUB
SUB
MoV
MOV
MOV

L [o]'}

SLSTAD:
$LSTBK:

SEQ 0050

(SP)+,R0O

RTS

.WORD
.WORD
A R

;:LAST BANK
;sRESTORE R3
;:RESTORE R2
;;RESTORE R1

O
O

A RN R

SAVE

;;RESTORE RO

R R

R R R

;. CONTAINS THE LAST ADDRESS
;s CONTAINS THE LAST BANK

AR N RN AR

TR RN RN RA R RN AR

AN RN RO

AND RESTORE RO-RS ROUTINES

;*SAVE RO-RS

;*CALL:

SAVREG
B
;*UPON RETURN FROM $SAVREG THE

STACK WILL LOOK LIKE:

- %

PeTOP===(+16)

Jx ¥2=--=(+18)

+4=---=RS

;v +6=---R4
;v +8--<R3
;x+¢10-=-<R2
;*+12---R1
;*+14---R0

017154
017154
017156
017160
017162
017164
017166
017170
017174
017200

010046
010146
010246
010346
010446
010546
016646
016646
016646

$SAVREG:

MOV

R1,-(SP)
R2,-(SP)

MOV

R&4,-(SP)

MoV

000022
000022
000022

RO,=-(SP)

MOV
MOV

Mmov

MoV
MOV
Mov

R3,-(SP)

RS5,~(SP)

22(SP),=(SP)
22(SP),~(SP)
2 2(SP),~(SP)

;;PUSH RO ON STACK

;;PUSH R1 ON STACK
;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
;sPUSH R4 ON STACK
;:PUSH RS ON STACK
::SAVE PS OF MAIN FiLOW
;. SAVE PC OF MAIN FLOV
J;SAVE PS OF CALL

UNIBUS EXERCIS ER
MACY11
CZXKUAD P11
26~APR-78 17:02

2157
2158
2159
2160
2161

017204
017210

2163

017212
017212
017216
017222
017226
017232
017234
017236
017240
017242
017244
017246

2162
2164

2165
2166
2167

2168
2169
2170
21N
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
219
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211

2212

016646
000002

30A(1052)

03-MAY-78
14:28
PAGE 46
SAVE AND RESTORE RO~RS ROUTINES

000022

mMov
RT1

SEQ 0051

22(SP),=(SP)

;.SAVE PC OF

CALL

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS

;sRESTORE PC OF CALL
;sRESTORE PS OF CALL
s sRESTORE PC OF MAIN FLOW
soRESTORE PS OF MAIN FLOW
::POP STACK INTO RS

;*RESTORE RO-RS
svCALL:
RESREG
ot

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

SRESREG:

MOV
Mov
MOV
MOV
MOV

MOV
Mov
MOV
MOV
:?Y
MALAEAEE

.SBTTL

STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO

R4
R3
R2
R1
RO

ROUTINE

TO TYPE

;*THE ROUTINE WILL
;«NOTE:

ASCIZ MESSAGE.

MESSAGE MUST

TERMINATE WITH A O BYTE.

INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL

J*NOTEZ:
:*NOTE3:
B

;sPOP
;:POP
:.POP
;:POP
;:POP

AR Rttt
iR tsR20RRRRDY

TYPE

;*ROUTINE

(SP)+,R4
(SP)+,R3
(SP)+ R2
(SP)+,R1
(SP)+,R0

CONTAINS

THE

CHARACTER

TO BE USED AS

THE

FILLER CHARACTER.

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

JvCALL:

;*1) USING A TRAP INSTRUCTION
:*OR

TYPE

LMESADR

;:MESADR IS FIRST ADDRESS OF

;:1S THERE A TERMINAL?
:;BR IF YES
;:HALT HERE ]F NO TERMINAL

AN ASCIZ STRING

* %

TYPE

o¥

MESADR

$TYPE:

TSTB
8PL
HALT

$TPFLG
1%

MOV

RO,-(SP)

MOVB
BNE

(RO)+,-(SP)
4%

017250
017254
017256
017260
017262
017264
017270

017272
017274
017276
017300
017304
017306
017312
017314
017320
017322
017324
017326
017330

105737
100002
000000
000407
010046
017600
112046
001005

001155

000002

005726

012600
062716
000002
122716
001426
122716
001004

005726

104400
001221
000757

000002

000011
000200

1%:

2s:

MOV
TST

60%:

MOV

4%:

RTI
(MPB

3s:

ADD

a2 (SP),R0O
(SP)+

(SP)+,R0O

#2,(SP)

;s LEAVE
;:SAVE

;:GET ADDRESS OF ASCIZ STRING

2 :PUSH CHARACTER TO BE TYPED ONTQ STACK
;:BR IF IT ISN'T THE TERMINATOR
;:IF

TERMINATOR POP

;;RESTORE RO

;:;ADJUST RETURN PC

#THT, (SP)

JsRETURN
;:;BRANCH

<HT>

CMPB

#TCRLF, (SP)

::BRANCH

NOT

TST
TYPE
SCRLF

(SP)+

;:POP
;:TYPE

;:GET NEXT CHARACTER

BEQ
BNE

8s
5%

<CR><LF>
A CR AND

<CRLF>
EQUIV
LF

OFF

THE

STACK

UNIBUS EXERCIS ER
MACY11
CZKUAD P
26~APR-78 17:02

2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
223
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

2202
2263
2264
2265
2266
2267
2268

017332
017336
017342
017344

004737
123726
001352
013746

017350
017354

105366
002770
004737
105337
000770

017356
017362
017366

30A(1052)

O03-MAY-78

TYPE

017414
001154

ROUTINE

5%:

14:28

001152
7%:

SFILLC,(SP)+

$NULL,=-(SP)

DECB
BLT
JSR
DECB
BR

017414
017460

PAGE 47

PC.STYPEC

MOV

000001

SEQ 0052

JSR
(mMPB
BNE

6%:

1(SP)

PC,STYPEC
$CHARCNT
7%

::G0 TYPE THIS CHARACTER
;oIS 1T TIME FOR FILLER (HARS.:
;:1F NO GO GET NEXT (HAR.
:.GET # OF FILLER CHARS. NEEDED
. ;AND THE NULL CHAR.
:.DOES A NULL NEED TO BE TYPED?
;:BR 1F NO--GO POP THE NULL OFF OF
.60 TYPE A NULL
;D0 NOT COUNT AS A COUNT
;.L00P

STACK

sHORIZONTAL TAB PROCESSOR
017370
017374
017400
017406
0174170
017412
017414
017420
017422
017430
017436
017440
017444
017446
017454
017456
017460
017462

112716

004737
132737
001372
005726

000726
105777
100375
116677
122766
001003
105037
000406
122766

002002

105227
000000

000207

000011
000200

000040
017414
000007

8%:

017460

161526

000002
000015

161520

000002

017460
000012

000002

MOVB
JSR
BITB
BNE
TST
BR
$TYPEC: TST8
BPL
MOVB
CMPB
BNE
CLRB
BR
1%:
(MPB

#40, (SP)
PC,.STYPEC
#7.,3CHARCNT

9%:

9%
(SP)+

STYPEX:

TAB WITH SPACE

SPACE

:;BRANCH IF NOT AT
;. TAB STOP

:.POP

SPACE

OFF

STACK

ssGET NEXT CHARACTER
sWAIT UNTIL PRINTER IS READY

2(SP),as87PB

;s LOAD CHAR TO BE
; ;BRANCH IF

#15,2(SP)
1%
SCHARCNT
STYPEX
#12,2(SP)
STYPEX

;:NOT

TYPED INTO DATA REG.

<CR>

JLEXIT
;sBRANCH IF
Ji<LF>
2 INC SPACE
.. COUNTY

(PC)+

RTS

as$TPS
$TYPEC

BGE
INCB
SCHARCNT: .WORD

: ;REPLACE

;:TYPE

EQUATES

THT=11

TCRLF=200
A

.SBTTL

BINARY

TO OCTAL

(ASCII)

I’

AND TYPE

;*THIS ROUTINE IS USED TO CHANGE A 16<-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE [T,
;*$TYPOS-~~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 'O TYPE
cvCALL:
MR

MoV
TYPOS

NUM,
- (SP)

.BYTE
.BYTE

JNURMBER Y0 BE TYPED
;. CALL FOR TYPEOQUTY

:N=1

TO 6 FOR NUMBER OF

;:M=1 OR 0

DIGITS

TO TYPE

::1=TYPE LEADING Z2EROS
;:0=SUPPRESS LEADING ZEROS

E-SYVPON----ENYER MERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;e$TYPOS OR $TYPOC

seCALL:
".
."

MOV

TYPON

NUR,
- (SP)

J:NURBER TO BE TYPED
;. CALL FOR TYPEQUT

UNIBUS EXERCIS ER
MACY11
CZKUAD PN
26-APR-78 17:02

2321
2322
2323
2324

03-MAY-78

;*$TYPOC---ENTER HERE FOR
seCALL:
'-t
mov
NUM,
- (SP)
ot
TYPOC

017464
017470
017476
017502
017506
017510
017516
017524
017532
017534
017536
017540
017544
017546
017552
017556
017562
017566
017570
017572
017574
017576
017600
017602
017604
017606
017612
017614
017620
017622
017624
017626
017630
017634

017640
017644
017650
017654
017656
017660
017662
017664
017666
017670
017672
017700
017702
017704
017705
017706
017707

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704

016605
005003
006105
000404
006105
006105
006105
010503
006103

000000
000001
017711
000002

000001
000006
€00005

MovB
Move
MoV

3%:

000060
000040
017704
017704
017706

5%:
7%:

6%:

000002

mMov
MOVB
MovB
ADD
BR
MOVB
MovB
mMovB
MOV
mMov
MOV
Move
NEG
ADD

2$:

177770

003347

$STYPON:

1%:

042703
001002
005704
001403
005204
052703
052703
110337

002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000

$TYPOC:

000006
017710
017707
000012

017710

104400
105337

017707
017711
017706

$TYPOS:

017711

105337

100016

017707

14:28
PAGE 48
BINARY TO OCTAL (ASCII) AND TYPE

000004
8$:
$OCNT:
$OFILL:

CLR

ROL

ROL
ROL
ROL

Mov
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC
8IS
BIS
Move
TYPE
DECB
B8GT
BLT
INC
B8R
Mov
Mov
MOV
MoV
Mov
RTI

.BYTE
.BYTE
.BYTE
.BYTE

#6,30MODE
+1

#5,30CNT
R3,-(SP)
R4,
- (SP)

RS,=(SP)
$OMODE+1,R4

R4
#6,R4
R4, SOMODE

$OFILL,RG
12(SP)
RS
R3
RS

RS
RS
RS
R5,R3
R3
$OMODE
7$
#177770,R3
48

5%
R4
#'0,R3
' ,R3

R3,8%

.8%

$OCNT
2%
63
R&

SEQ 0053

TYPEOUT

a(SP),-(SP)
1(SP),$0FILL
(SP)+,$0MODE
+1
#2,(SP)
STYFON
#1,80FILL

(SP)+,RS
(SP)
¢+ ,R&
(SP)+,R3
2(SP),4(SP)
(SP)+,(SP)
OO0

2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320

30A(1052)

16 BIT

NUMBER

. sNUMBER TO BE TYPED
;. CALL FOR TYPEOUT
;;PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
: ;NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

;;SET THE ZERO FILL SWITCH

:;SET FOR SIX(6) DIGITS
J;SET THE ITERATION COUNT
::SAVE R3
::SAVE R4
;sSAVE

;;GET THE NUMBER OF DIGITS TO TYPE
:;SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;:P1CKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD
;.ROTATE MSB

INTO '‘C"

.60 DO MSB
;;FORM THIS DIGIT

;;GET LSB OF
;;TYPE

THIS

THIS DIGIT

DIGIT?

;:BR IF NO
;:GEY RID OF JUNK

:2TEST FOR O
;: SUPPRESS THIS 0?
;:BR IF YES

;;DON'T SUPPRESS ANYMORE 0°'S
;oMAKE THIS DIGIT ASCII
J:MAKE

ASCII

NOT

ALREADY

::SAVE FOR TYPING
;:60 TYPE THIS DIGIT
::COUNT BY 1
;:BR If MORE TO DO
;:BR IF DONE
;;INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT

:;RESTORE
;;RESTORE
:;RESTORE
;;SET THE

RS
R&
R3
STACK FOR RETURNING

; RETURN
;;STORAGE FOR ASCII DIGIT
;; TERMINATOR FOR

TYPE

:;0CTAL DIGIT COUNTER
;;ZERO FILL SWITCH

ROUTINE

UNIBUS EXERCISER
MACY11
CZKUAD PN
26-APR-78 17:02

2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335

2336
2337
2338
2339
230
2341

2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356

2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380

017710

30A(1052)

000000

¢
5
14:28
PAGE 49
TO OCTAL (ASCII) AND TYPE

03-MAY-78

BINARY

:
$0 MODE
SRR

.SBTTL

.WORD

R R RN AR R R

R R

IS USED

;*SIGNED DECIMAL
NUMBER

CONVERT BINARY

s*THIS ROUTINE
;

R R

R AR R

017712
017712
017714
017716
017720
017722
017724
017730
017734
017736
017740
017746
017750
017754

017760
017762
017766

017770
017772
017774
017776
020000
020002
020004
020006
020010
020012
020014
020022
020026
020032
020034
020036
020042
020044

020046
020050
020052
020054
020056
020064
020066

$T YPDS:

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

020200
000020
000055

000001

020126
000040

1%:

2%:

020116

1$:

49:

5¢:

000001
000060
000040

177777

7%:

TO CHANGE

16-BIT BINARY NUMBER

OR NEGATIVE

SPACE

177776

9%:

IT.

TO A

S5-DIGIT

DEPENDING ON WHETHER THE

A MINUS

SIGN WILL

TYPED

THE NUMBER. LEADING ZEROS WILL ALWAYS BE

MOV
Mov
MOV
MOV
MOV
MOV
MoV
BPL
NEG
MOVB

RO,-(SP)
R1,-(SP)
R2,~(SP)
R3,-(SP)
R5,=(SP)
#20200,-(SP)

;;PUSH
;:PUSH
:PUSH
;PUSH

CLR

MOV
MOVB

CLR

MOV

SUB
BLT
INC
8R

20(SP)
RS
1%

#'-,1(5P)
RO
#30BLK,R3
' (R3¢

R2
$OTBL (RO) ,R1
R1,R5
43

MOVB

BIS
BIS

RO
R1
R2
R3

ON
ON
ON
ON

STACK
STACK
STACK
STACK

;PUSH RS ON STACK

:;SET BLANK SWITCH AND SIGN
;GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;MAKE THE BINARY NUMBER POS.
;MAKE THE ASCII NUMBER NEG.
:ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;SET THE FIRST CHARACTER TO A BLANK
;. CLEAR THE BCD NUMBER
;;GET THE CONSTANT
;FORM THIS 8CD DIGIT
:BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

;:ADD BACK THE CONSTANT

ADD
TST
BNE
TST8B
BM]
ASLB

1(SP),=-1(R3)
#'0,R2
£ ,R2
R2,(R3)+
(RO)+
RO,#10

sCHECK IF BCD DIGIT=0
;:FALL THROUGH IF O
;;STILL DOING LEADING 0°'S?
;:BR IF YES
;MSD?
;BR IF NO
J;YES=<=SET THE SIGN
;MAKE

THE

BCD DIGIT

ASCII

;oMAKE IT A SPACE IF NOT ALREADY A DIGIT
;:PUT THIS CHARACTER IN THE OQUTPUT BUFFER
2 JUST INCREMENTING
;:CHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
;60 TO EXIT
::GET THE LSD
;60 CHANGE TO ASCII

CLRB

;:BR IF NO
;:YES==-SET THE SIGN FOR TYPING
;;SET THE TERMINATOR

mov

177777

RN RN AR RRN

:+PUT THE BINARY NUMBER ON THE STACK
;:G0 TO THE ROUTINE

CMP
BLT
86T

8%:

RN AR

NUM,
- (SP)

MOVB
TST

oooo1e

MOV
TYPDS

BCC

6$:

AR AN

(ASCII) NUMBER AND TYPE

POSITIVE

CALL:

; NUMBER OF DIGITS TO TYPE

R AR

TO DECIMAL AND TYPE ROUTINE

;*YCFORE THE FIRST DIGIT OF
;*n PLACED WITH SPACES.
.

SEQ 0054

TSTB
8PL
MOVB
MOV

;:WAS

=1(SP),=2(R3)
(R3)
(SP)+,RS

THE

LSD

THE

FIRST

;;POP STACK INTO RS

NON-ZERQ?

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02

2381
2382

2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394

020070
020072

020074
020076
020100
020104
020112
020114
020116
020120
020122
020124
020126

012603
012602
012601
012600
104400
016666
012616
000002
023420
001750
000144
000012
000004

020126
000002

30A(1052)

O03-MAY-78
14:28
PAGE 50
CONVERT BINARY TO DECIMAL AND TYPE

000004
s$DTBL:

$DBLK:

MOV
MOV
MOV
MOV
TYPE
Mov
MoV
RTI
10000.
1000.
100.
10.
.BLKW

(SP)+,R3
(SP)+,R?2
(SP)+,R1
(SP)+,R0
,$DBLK
2(SP),4(SP)
(SP)+, (SP)

ROUTINE

SEQ 0055

:;POP STACK INTO R3
;;POP STACK INTO R2
;;POP STACK INTO R1
::POP STACK INTO RO
:;NOW TYPE THE NUMBER
;s ADJUST THE STACK
;:RETURN TO USER

"tttt'ttttt"t'tttttttt"tttttifit""tt'tttt'ttttttt'tttttttlttt

2395

.SBTTL TRAP DECODER

2398
2399
2400

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

S%gg
528;

2403
2404
2405
2406
2407
26408
2409
2410
2411
gz%%

:*GO TO THAT ROUTINE.

020136
020140
020144
020146
020150
020152
020156

010046
016600
005740
111000
006300
016000
000200

000002

$STRAP:

MOV
MOV
TST
MOVB
ASL
MOV
RTS

.SBTTL

TRAP TABLE

020160

RO,-(SP)
2(SP),RO
-(RO)
(RO),RO
RO
$TRPAD(RO) RO
RO

::SAVE RO
::GET TRAP ADDRESS
: :BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
:;POSITION FOR INDEXING
;;INDEX TO TABLE
;.60 TO ROUTINE

2414
2415
2416

;*THIS TABLE CONTAINS THE STARTING ADODRESSES OF
;*BY THE ''TRAP'' INSTRUCTION.

2418
2419
2420
2421

;.
$TRPAD:

24617

26422
2423
2424
2425
24626
2427
2428
2429

020160
020160
020162
020164
020166
020170
020172
020174
020176
020200

017250
017510
017464
017524
017712
016436
016472
017154
017212

2434
26435
2436

.SBTTL
020202
020210
020216

012737
012737
010046

ROUTINE

=eeeee-

STYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
SRDCHR
SROLIN
$SAVREG
$SRESREG

:;CALL=TYPE
;;CALL=TYPOC
;.CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS
::CALL=RDCHR
;;CALL=RDLIN
;;CALL=SAVREG
;;CALL=RESREG

TRAP+0(104400)
TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)

TTY TYPEQUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING 2EROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

'-'tttttt'itt'tQ"t'tttttttttt'tttt't'ttt"ttttttt't'ntt'ttt'tt't

2430
Sz%g
2433

THE ROUTINES CALLED

(<0324
000340

000024
000026

POWER DOWN AND UP ROUTINES

;POWER DOWN ROUTINE

S$PWRDN: MOV
MOV
MOV

#SILLUP,Q#PWRVEC ;;SET FOR FAST UP
#340,9#PWRVEC+2 ;:PRIO:7
RO,=-(SP)
:;PUSH RO ON STACK

UNIBUS EXERCIS ER
MACY11
CZKUAD. P11
26-APR-78 17:02

2637
2438
2439
2440
2441
2442
2443

2444
2445
2446
2647
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464

2465

2466
2467
2468
2469
2470
2471
2472
2473

020220
020222
020224
020226
020230
020232
020236
020244
020246

010146
010246
010346
010446
010546
010637
012737
000000
000776

020250
020254
020260
020264
020266
020270
020272
020274
020276
020300
020302
020310
020316
020320
020322
020324
020326
020330
02033
020%0

013706
005037
005237
001375
012605
012604
012603
012602
012601
012600
012737
012737
104400
020332
000002
000000
000776
000000
005015
000122

30A(1052)

03~-MAY-78

POWER

14:28

DOWN AND

R1,-(SP)
R2,-(SP)
R3,-(SP)

;;PUSH R1 ON STACK
;;PUSH R2 ON STACK
;;PUSH R3 ON STACK

MOV

RS.,=(SP)

;;PUSH RS ON STACK

MoV
MOV
HALT

000024

020202
000340

BNE
Mov

MOV
MOV
MOV
MOV
MOV
MOV
[0}

000024
000026

TYPE

$SPWRMG : é??RD
SILLUP:

047520

R4 ,-(SP)

042527

$SAVR6:
$POWER:

HALT

B8R

0
.ASCIZ

;:PUSH R4 ON STACK

SP,8SAVR6
;;SAVE
#SPWRUP ,a#PWRVEC ;;SET

;POWER UP ROUTINE
$PWRUP: MOV
$SAVRG,SP
CLR
$SAVR6
1%:
INC
$SAVR6

020330
020330
020330

SEQ 0056

ROUTINES

MoV
MOV
MOV

[ [0]Y)

020330
020250

E
PAGE 51

1%
(SP)+,RS

SP
UP VECTOR

;iHANG UP
;:GET SP
;:WAIT LOOP FOR THE
;:WALT FOR THE INC

::0F
WORD
:.POP STACK

INTO
INTO
INTO
INTO
INTO
INTO

(SP)+,R4
;.POP STACK
(SP)+ ,R3
;;POP STACK
(SP)+,R2
;:POP STACK
(SP)+,R1
;:POP STACK
(SP)+,RO
;:POP STACK
lSPURDN a#PWRVEC ;:;SET UP THE
#340, ilPURVEC*Z ::PRI10:7

$SPOWER
=2
<15><12>''POWER"’

JREPORT

THE

RS
R4
R3
RZ
R1
RO

POWER

TT1Y

DOWN VECTOR

FAILURE

;.POWER FAIL MESSAGE POINTER
;:THE

POWER UP SEQUENCE

;;PUT

THE

;;

BEFORE

WAS

STARTED

THE POWER DOWN WAS COMPLETE

SP HERE

.EVEN
"tt""ttt'""'"t""'i""it"'""t"fit.'t".'i"tit'ttt't't
,'ttt.""it't"i't"i"itit'iti""'""'tt""fi't"t'ii.t"'t"
"t"'tl"'"""""i""it"""""'i"tti'tt't"fi"""tttfi"'

020342

000001

ATEND:

.END

UNIBUS EXERCISER
MACY11
CZKUAD PN
26-APR-78 17:02

838

1443

804

17624

1447

872

906
1458

1467

935

975
1477

982
1503

1181
1537

1277
1556

1286
1699

1295
1780

1303
1782

838+

872+

906+

935+

982+

1110

1181+

1245

1286+

1412

805+
981+

809
1182+

8'2
1287+

1648«

839+

843
1700+

846
1703

873+
1715

1765+

877

880

778
1017+

1108

806+

811

1135+

840+

1288+

845
1315

874+
1415

879
1452+

908+
1701«

913
1717

948
1153+
69?2

9<4
1183«
990

989+
N
1202t
1051

1091+
1609

1092+
1624

1094+

939+

996
14574
1714
980+

1089+
1502+

871+

983+
1184
992
905+

1016+

1086+

1134

1285+

836+

870+

904+

938+

979+

1015+

1085+

1133

1716
776
914

1766+
779
934

748+
984w

773+

987

944+
1137+
580
770+

945
1140+

732+
1449+

769+

802+

639
803+

837+

478#

1022+

1296+

14622

1460+

4954

1056
1021+
1020+
1255
1302+

1293+
1292+
1303+
1468+

1457
1456+
1467+

1027+
1469+
1061
1026+
1025+
1260
1311

1304+
1536+
1370
1301+
1300+

1366

1427

1372
16464+
1466+

1465+

1033+
1312+
1066
1032+
1031+
612

1313«
1394+
1474
1310+
1309+
6524

1386

1433

1479+

1153

1612

4834
4820
4854
484N
4860
4814
498#
4974

4894
4884
4914
4900
4924
4874
5004
4990
585
1180
108#
1074
106#
1054
104#
1034
1024
1014
1004

1458+

4804
4754
496#

1477+
1478+

SEQ 0057

SYMBOLS

1096

1419

O =MW
NON OO

000100

000200
000400

1093

1295+
1459+

4768
4794

b —d

001620
001616
001624
001622
001626
001614
001666
001664
001634
001632
001640
001636
001642
001630
001672
001670
001650
001646
001654
001652
001656
001644
001676
001674
002736
000001
000001
000002
000004
000010
000020
000040

F
5
14:28
PAGE 53
03-MAY-78
CROSS REFERENCE TABLE -- USER

581
1284+
1250
1294+

001660

512
733+

001600
001662

BE1DB
BE1PSW

940
1109

001612

BE1CR2

001610
001606

BE1CLR
IBE1CR1

907+
4738
4720
941
1767+
4740
1103
4690
4940
1450
4938
1178+
4778

001602

771+
1699+
772
911
1105+
747+
947

[BE1CC

4718
1447+
4708

24720

b —d

001604

6204
1090
954
804
1347

IBE 1BA

611
1088
4654
771
1324

—

ATEND

002644
011074
001574
020342

—

ADD20
ADL
1
ALLERR

30A(1052)

1470+

1475
1476+

1677

1685

940
1137
748
1168
553
1650

944
1140
1642
1646

564
1872

659

UNIBUS EXERCISER
MACY11
CZKUAD.P1
26-APR-78 17:02

BIT09
BIT1
IT10
IT11
BIT12
1713
17114
BIT15
BIT2
IT3
114
175
IT6
177
178
179

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

KEX
KGD
PTVEC=
RK
R4TST
RSTST
R6TST
R7TST
CHEX

CHKERR
CLRREG
CLRRTN
(MPARE
CNTR
DATAY
DATA2
DATA3
DATA4
DDISP =
DEVCNT
DEVS
DH1

H10
H11
H12
H13
H1S

DH2
H2?2
DH3
DH31
ISPLA
ISPRE
oupP
014
SWR
=
T
110

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

011026
010754
000014
005604
004436
004276
004136
003776
007466

010432
002700
001724
005340
011046
001712
001714
001716
001720
177570
001700
001702
011452

012257
012503
012642
012766
013235

011616
014005
011740
014560
001140
000174
011030
005532
177570
015262
015330

99#
1174
984
974
96#
954
94a
93#
1164
1154
1144
1134
1124
1114
1104
1094

1737
1316
1254
1085
898#
864s
8304
7964
1417

16314
6364
S11#
10394
943
5044
5054
5064
507#
“On
5014
}g?;
5024
310

346
352
357
362
373

316
399
321
435
2604
1994
977
1087#
394
3N
348

30A(1052)

03-MAY-78
14:28
PAGE 54
CROSS REFERENCE TABLE ==~ USER

SYMBOLS

SEQ 0058

109

1654

1882

1944

1658
747
1183
1933
983

1926
996

1638

1889

989

1312

1394

1651

1469

1502

1536

1424

1429

14354

655
575

729

933

974

1012

1083

1216

1281

1038
1245+
1250+
1255«
1260+
260
590+
1305

1138
1246+
1251+
1256+
1261+

17548
1326
1348
1538
1557

1768
16412«
1419«

1413+
1420+

1507

151

613
1338

646
1357

679
1376

713
1453

716
1461

1018
1471

1014
459

1041
17884

1042

1043

1044

1788#
384

389

394

1788¢#

409
N
447

414
336
453

419
341
1788#

424
17884#

429

17884

1858

17404
17234
11004

1788#
17884
1788#
367
379

1788#
404
326
442
549+
549
1279
259

460
17884

1903+

1925+

1445

17434

1788#

1023
1491

1028
1525

1039
1527

1220
1547

1289
1579

D113

015374

D12
D122

015272
015420

DTN
EMTVEC=
EM
EM10
EM11
EM12
EM13
EM14
EM1S
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM2S
EM26

015432
000030
011404
012211
012415
012554
012703
013007
013072
013347
013435
011503
013523
013617
013713
014047
014120
014166
014220

EM3
EM30
EM31
EM32
EM33
EM34
EM3S
EM4

011706
014331
014420
014653
014737
01501
015165
012021

EM6

012115

DT15S

015402

DT3

EM2?7

015312

014262

012057

012153

RRCHK

004730

ENOMEM

(001722

010714
ERRS
ERRTN
0104056
ERRVEC= 000004
EXAD
XBRK

011140
005664
002660
010712
007476
006004
011277

XNO
XNOG

XS
FAILCK
FOR4
NS

GO
INK
INTRTN

fteRNYE

005320
006540
005470

353
358
363
375
317

400

322
437

1284
306
345
351
356
361
366
3N
378
383
314
388
393
398

405
408
613
418
423

320

428
433
440
446

451
457
325

330
335

340
5084
732
1710
958
1214
2083+
1770
1106
614
1708
1416
1141
718

198

2421

1019
1248
1053

1788#
1788#

368
380

1788#
405

327

443
531+
1788#
1788#
1788«
1788#
1788#
1788«
1788#
1788#
1788#
1788#

1788«

SEQ 0059

385

390

395

17884

410

425
1788#

430

17884

420
342
17884

802

836

870

904

938

9534

979

1133

1112

587+
2108+

1197
589+
2118+

1266
734+

2119+

1437
937+

1602
1863

16224
1864+

1866+

1869+

2069

2070

2075+

1428

1434

1438#

572

617
2424

673
2425

677
2426

685
2427

689
2428

698

706

1815

1822

2420

332

448

&H ~Nw

015346

015362

O03-MAY-78
14:28
PAGE 55
CROSS REFERENCE TABLE =-- USER SYMBOLS

0TI

DT1?2

30A(1052)

NN
—

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02

532+

1788#
1788«
17884
1788#
17884
1788#
1788«
1788#
1788#
1788#
1788#
1788#

1788
17884
1788#
1788#
17884
1788#
1788#
514
769
1713
1070

577«
2099+

1773#
1113#

6234

17114
1423
1788#
568

2422
1024
1253
1058

2423

1029
1258
1063

1034#
12634
1068#

UNIBUS EXERCISER
MACY11
CZKUAD.PY
26-APR-78 17:02

INTR1
INTR2
INTR3
INTRG
IOTVEC=
KIPARO=
KIPAR1=
KI1PAR2=
KIPAR3=
KIPAR4=
KIPARS5=
KIPARG6=

005402
005420
005436
005454
000020
172340
172342
172344
172346
172350
172352
172354

IPDRO=
IPDR1=
IPDR2=
IPDR3=
IPOR4=
IPDRS=
IPOR6=
IPDR7=
EEV
LOADT
0AD2
OAD3
O0AD4

172300
172302
172304
172306
172310
172312
172314
172316
010546
005154
005212
005244
005276

KIPAR7= 172356

ODDEV
MVEC =
OVREG
OVVEC

uLTt
G
ODEV

000
06
NPRTST
XT

BERR
BPSW =
PBRTN
BVEC =
IRQ
=
IRQVE=

=
=
=
=
=
=
=
=

)

RO
PR1
RZ
R3
PR4
PRS
PR6
PR7

002426
000250
002462
002526

007500
003514
002544

006270
010636
003636
006202

006234
000116
006256
000114
177772
000240

000000
000040
000100
000140
000200
000240
000300
000340

177776
177776

30A(1052)

1015
1020
1025
1031
1264
182#
1834
1844
1854
1864
1874
188#

1049#
10544
10594
10644
529
2055

1894

2102

1714
1724
173#
1744
1754
1764
1774
1784
1637
10134
10204
10254
10304
5824
138#
5914
6014

1219
730#
587
1170
737
7634
1176

1178
468¢#
1179
4674
384
1324

O03-MAY-78
14:28
PAGE 56
CROSS REFERENCE TABLE =-- USER

1659

16614

606

622

596

1228

1237

14424

609#
1205#
740

743

746

11874

1204

11934
1180+
1201#
1179+

1188

16964

1189+

1188+

785

818

852

886

920

899
744
741
738
563

942
865
831
797
577

1084
903
869
835
733

177

1778

1134
354
364

1n
36
768+

1285

1293

774
1011+

801+
1037+«

973+

SEQ 0060

530+
2087

S54
S64
ST
58¢
594
60#
614
624

871

SYMBOLS

905

985+«

936

939

915
881
847
735

973

764

985

768

1037

770

1283

780

801

803

813

837

1301

980

1310

1011

1016

1021

1026

1032

1086

1132

807+
1084r

835
1132+«

841+
1177«

869+
1283+

875+
1698+

903
1778+

909+

936+

942+

1450

1457

1464

1475

1576

UNIBUS EXERCISER
MACY11
CZKUAD.P1
26-APR-78 17:02
PWRFAL

PWRVEC=
GNe
Q

010342

000024
011174
010276

653

1274
555
1572

30A(1052)
1139

535+
1788#
15904

Q2
Q3
Q4
ROCHR =
ROLIN =
RESREG=
RESVEC=
ROTATE
SAVREG=
SERV1
SERV2

010306
010316
010326
104405
104406
104410
000010
010600
104407
006422
006446

15934
1596#
15994
2028
24264
1664
1224

24254

1623
12440
126494

246274
1449
1456

SERV4
SIMLGO
SRO
=
SRl
=
SR2
=
SR3
=
STACK =
START
STKLMY=
STVEC
SWR

006516
001576
177572
177574
177576
172516
001100
001756
177774
010240
001136

1476
1036+
2084

SERV3

006472

1227

1254

SWREG
Sw0
SWw00
Sw01
SW02
sw03
SW04
SW05
Sw06
Sw07
SW08
sw09
swi
SW10
SW11
swi12

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000

1259#
4664
1424
1434
1440
1450
324
203
374
654
2594
1933
2004
904
80#
794
784
e
764
754
744
734
720
714
894
70#
694
68#

Swi4

= 040000

664

Sw13
SW15
w2

SWw3
SWwé4

w5
w6
w7
w8
w9
1

= 020000

= 100000
= 000004

= 000010
= 000020
=
=
=
=
=

000040
000100
000200
000400
001000
007344

16064
536+

653

SEQ 0061

1136¢

1139+

2434c

2435+

2443

2458

2459+

564

659

1168

1858

1872

1874

1882

2428#
1236

16764

1466

1481+
2098+

2105+

2097+
528
220

15704
546

1938
548
90
89
88
87
86
85
84
83
82
81

674
65#

88«#

87#
864

854
844
834
824
814
1284

0Q3-MAY-78
14:28
PAGE 57
CROSS REFERENCE TABLE -- USER SYMBOLS

14104

5234
548+
1944

553

1889

1926

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02

Y
S3

TBITVE=
TCRLF =

THRUO
THT

TKVEC
TMPPWR
TPVEC =
TRAPVE=
TRTVEC=
TSTOVR

ST
TST10
TSTI
TST12
TST13
TST14

TST15
TST16
T1ST17
TST?
TST3
TST4
TSTS
TST6

1817

TYMOUT
TYPDS
TYPE

007376
007430
007446
000014
000200
010562
000011
000060
006026
000064
000034
000014
011142
003506
004760
005140
005502
005666
006046
006272
006556
007314
003634
003774
004134
004274
004434
004574
002662
104404
104400

104401
104403
104402
177640
IPARO
IPAR1= 177642

TYPOC
TYPON
TYPOS

IPAR2= 177644
IPAR3= 177646
IPARG= 177650
IPARS= 177652
IPARG= 177654
IPAR7= 177656
IPDRO= 177600
IPDR1= 177602
IPDR2= 177604
IPDR3= 177606
IPDR4= 177610
IPDRS= 177612
IPDR6= 177614
IPDR7= 177616

XTST
BDADR
BODAT

010334
006016
001122
001126

1292
1300
1309
1234

2207
562
2205

1304
1136
1314
1294
1240
1280
559
946
997
1040
1097

1126

1169
1221
1339
7614
767
800
834
868
902
589
670

555

1813

2035

1969

24234
680
160#
1614
1624
1634
1644
1654
1664
1674
16494
1504
151»
1524
1534
1544
1554
1564
1592
1144

2534
2554

30A(1052)

03-MAY-78
14:28
PAGE 58
CROSS REFERENCE TABLE =-- USER

SYMBOLS

SEQ 0062

1418#
14254
16304

22464
16694

22454
1151

533+
1446
7284
950

999
1046
1123#
1148
1192
1226
1358

1240
13984

7954
8294
8634
8974
9324
6274
1819
566
1820
2039
1993

937
24244
615
1928

2309

24224

701

1595
11464

526

1598

16014

12764

667

1936

2385

671

1961

24204

675

1978

2460

683

1980

687

1983

696
1985

704
1989

715
1996

718

2032

UNIBUS EXERCISER
MACY11
CZKUAD.P1
26-APR-78 17:02

$BELL

$CHARC
$CMTAG

sl
$CM2
$CM3
$CM4
$CORE

SCRLF
$SCROUT
$OBLK
SDOAGN
$OTBL
SENDAD
SENDCT
SENULL
$EOP

001214
017460

001100
000006
000014
000006
000006

017054
001221
017104
020126

SEOPCT
SERFLG

015646
020116
015636
015502
015652
015446
015474
001103

SERMAX
$ERROR
SERRPC
SERRTB
SERRTY
SERTTL
SESCAP

001115
016134
001116
001224
016302
001112
001212

SFILLC

SFILLS

$GDADR
$SGDDAT
$GET42
$HD
=
$ICNT
$ILLUP
SITEMB
SKTNEX
$SKTOUT
$SKT11
SLF
SLPADR
SLPERR
SLSTAD
SLSTBK
SMAIL =

001154
001153
001120
001124

015626
000001
001104

020324
001114
017046
017036
016702
001222
001106
001110
017150
017152
tReETY

SMXCNT
016132
SNULL
001152
SNWTST= 000001

$OCNT

$OMODE
SOVER

$PASS
$POWER

017706
017710
016116
001100
020332

285#
2221«
2414
271a
2714
2694
2774
2082
2874
2108
2351
1809

2354
228
537

18404
1406

537+
244
1923+
2504
531
2514
305#
1935
2484
284
2674
2664
2524
2540
18294
14

2454
2434
2494
2083
2099
20814
2884
2464
2474
2120«
658
553
1216
1897

2654

7224
926
12704

2281+
2276+

1859
2424
1147

30A(1052)
1928

2228
524
2724
2724
27
2784
2108#
667
21154
2385
1832

23894
18344
18114

18014
18084
766
1952
540+
19224
1788
1975
19604
1824
539«

2214
2248

15
1788
24630
1932«
2107#
21044
2085+
1952
S41¢+
542+

2127#
2121+
729

1277
19064
1142
724
9634
1272

03-MAY-78

PAGE 59
CROSS REFERENCE TABLE -- USER SYMBOLS
1952

2237«
531
2734
2734

22424
537
2744
2744

538
275¢#
2754

539
276#
2764

2774
2774

2794

280#

2814

282#

283#

715

SEG 0063

1936

1952

1961

1980

1985

1989

2048

2211

2248

1812
799

833

867

901

1225

1234

1848

1878

1880

1886+

766

799

833

867

901

1225

1234

1880

1902+

1907

1930+

1931+

1932

1952

1967

1828+
19u1
e

1929+
1947

1952
1949

1952

1893«

1894

1896+

1906

1952

1964

2107
2039
1884+

2048

2248

762
1400

796
1899

1938

1082

1125

1168

1152
7524
965
13954

8904

892
1208+

9244
1210

23934
18384

1941

2248

1884

21284

2310+
2280+

23234
2285

2461

24664

1877
1805+

14:28

1885
1806+

1899+
1900+

1904
1906

1906
1946

830

864
2199

1827
754
10024

2216
788¢#
1004

2248

2288+

2299+

23254

1895
1817

19034
1840

790
10744

1891

898

933

1011

822#
1076

824
11164

1157#

1907

858

115%

1907

UNIBUS EXERCISER
MACY11
CZKUAD P11
26-APR-78 17:02

SPWRDN
SPWRMG
$PWRUP
$QUES
SRDCHR
$RODEC=
SROL IN
$RDOCT=
$RDSZ =
SREGAD
$REGO

020202
020320
020250
001220
016436

SREGT

001162

$REG2

001164

SREG3

001166

SREGS
$REGS
$RE SRE
SR2A
$SAVRE
$SAVR6
$SCOPE
$SETUP=
$SIZE

001170
001172
017212

$SIZEX

$SIZE1
$STUP =
$SVLAD
$SVPC
$SWR

L2828
24

016472
treEEy

000016
001156
001160

LA RA

017154
020330
015656
000037

016616

017110

016670
177777
016070
000232
167400

$TMPO

000300
001210
001144
001142
001174

$TMP1
$TMP2
STMP3
$ TMP4

001176
001200
001202
001204

$TMPS

001206
000020

=
$SWRMK
$STIMES
$TKB
$TKS

$TN

$TPB
STPFLG

001150
001155

535

1142

2443
2864
20104
2427
20244
2427
20174
2654
2714
1334+
2724
1390+

2734

1328

2740

1717«

30A(1052)

2458

1952

2032

2048

2248

657+
1521«
812+
1488
630+
1335
814¢

662+
1544+
846
1520+
780+
1373+
848+

664
1563+
880+
1543+

1308«
956+

2448

2425

34
2834
2624
2614
202+
694
2784
2794
2804
281#

1414

2824
144

8644

1002
1192
13994

2644
268#

=-- USER

SEQ 0064

SYMBOLS

2426

516
1353+
779+
1487+
629+
1330+
781+
1788
1044+
592+
2428

2106
2076

1124
1852
1903

TABLE

24344
24614

529
20654
21164
20784

2264
o
539

CROSS REFERENCE

1619
1152+«

2427
2448

1914
1867

PAGE 60

1154
1147«

2754
2764
21634
2429
21474
2442+
529
191#
576

03-MAY-78

14:28

18574

695+

708
1788
948+
1715+
881+
1670+
1043+

778+

811+

845+

879+

913+

947

992+
1724+
915+
1671+
1110+

1041+
1725
993«
1716+
1335«

1108«
1788
1042
1738+
1354+

1333«

1352+

1372+

813«
1391«
882+

1714+
914+
1562+
847
1491
916+

1109+
1779«
1522+

1264+
1788
1542+

1325+

1388
1069+

1390
1101+

16431+
1194+

1718+
1265+

1755«
1636+

1756+
1788

1757

1788

2449

2450+

24654

531

533

535

537

538

539

561

1803

1941

20
542

21
729

24
830

1804
1878
1918
1875
1894

25
864
1830
1879
1926

26
898
1839
1880
1933

283
933
1840
1887
1938

972
1849
1888
1944

285
1011
1850
1889
1952

2462

1897+

1906

1561+

1898#

14
541
1168
1853
1906

26
538«

1401

2004
219+
700
1135+
1172¢
957+
1421+
518
722

868
10114

762
1399
1872
1916
1854
1804

796
1798
1873
1917
1874
1887+

284

538

1082
1851
1900

1216
1858
1914

1277
1870
1915

1124
2004
2012
2774
713

1399+
2014

557

594

595

597+

656

658+

663+

666

668

691+

174
1052«
1426

1175
1057+
1432+

1062+
1591¢

1067+
1594+

1102+
1597+

1131«
1600+

1196+
1629

1247+
1788

1252+

1257+

1262+

752

7624

788

7964
946
1116
1270

800
950
11244
12774

822
963
1126
1339

8304

834

856
999

7294

890

1208

1040
12164

2234+
2193

2248
2248

1853

898#

1046
1221

1074
1226

767

924
1082#
1235

933#

1097
1240

9724
1148
1358

997
1157
1377

168#
1395

UNIBUS EXERCISER
MACY11
CIKUAD.P11
26-APR-78 17:02
$TPS
STRAP
$TRP
=
$TRPAD
$TSTNM
$SYTYIN
STYPBN=
$TYPDS
STYPE
STYPEC
STYPEX
$TYPOC
STYPON
$TYPOS
$XTSTR
SOFILL
$40CAT=
.
=

001146
020136
000011
020160
001102
016600
ttreer |
017712
017250
017414
017462
017510
017524
017464
015666
017707
sernen g
020342

2634
533
26114
2408
2434
2025
2425
23394
21934
2213
2238
22794
2278
22744
1861#
2275+
1858
1944

566
704
2048

30A(1052)
2232
2403#
26218
2419#
1788
2026
2424
2411
2220
2240
2421
22814
2422

2279+
1935
1984

5694
1788
2248

N
5§
03-MAY-78
14:28
PAGE 61
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0065

2248
24228

2423

24244

425K

24264

2427H

24288

24294

1803+
2043

1848
20474

1876

1898+

1903

1907

1925

1952

2420
2227
22434

22324

2233

2314

2404

2423
2289
201#

570
1813
23934

23244
218#

615
18164
2445

226

618#
1820
2464

2274

671
1840

2294

675
18414

683
1906

6864
1907

289

687
1952

527

6904
19994

561

696
2004

562

699¢
20474

ESCAPE
GETPRI

PSSG
MULT

EWTSY

OGRNT

opP

PUSH

REPORTY
SCOPE
SETPRI
SETTRA
SETUP
SKIP

SLASH

SPACE

STARS

SWRSU
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT

TYPTXTY
$SCMRE
SSCMTM
$SESCA

SSNEWT

$$SET
$$SKIP

.EQUAT
.HEADE

K111
.SETUP
. SWRHI
.SWRLO
LSACT

1
1

7214
965

I
1270
7514

»
340
1398
1#
24114
IE4
14
1148
14

1334
1

760
1002
1268
1712
2048
14

24114
14
14
14
1Y

4
14

4
2334
2334
14
104
1270
24114
4
1148

14
1

14
14
14
o
14

O03-MAY-78
14:28
PAGE 63
CROSS REFERENCE TABLE =~ MACRO NAMES

SEQ 0066

7524
1004

754
1073#

7874
1076

790
T115#

11564

1159

855¢#

858
12074

8894
1210

892
12704

926

722

752

788

822

890

924

963

1002

1074

1157

2168
2148

2380
2339

2452
2436

728
1802

761

795

829

863

897

932

971

1010

1081

1123

1167

1215

1276

2421
1334
133#
1192
1334

2422
524
767

2623

2424

2425

2426

2427

2428

1221
649

1226
1567

800

834
1235

1240

868

902
1339

946
1358

950
1377

997

999

1040

1046

1097

1126

1334
788
1009
1270
1721
2129
5434

222

233
822

306
856
1098

521
896
1149
1493
1788

922
1157
1582
1791

924
1166
1604
1842

633
931
1199

1620
1907

722
951
1208

1666
1952

727
963
1214
1674
2000

752
970
1241
1694

2394

509
390
1122
1440
1785
2469

625

2175

462
862
1116
1409
1775
2429

607

1074
1395
1741
2248

289
828
1080
1397
1751
2326

2017

668

1817

1824

679

700
1991
570

708

1378
1382
917
1634

1482
1486
949
1640

1494
1499
994

1529
1533
998
1648

1549
1553
1045
1652

1644

1195
1672

—

900
1359
1363
883
1564

631

1374

798

205
214

—

782
1392

866
1340
1344
849
1545

765
1334
1334

—

7624
1
14
334
1355
1739

—

BE1
COMMEN
ENDCOM
ERROR

30A(1052)
A1 00 (N N 0D
N =R
-2 N
NN
—
A

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02

1334
724
1001
1334
133#
1395
1697
1334
1334

1334
1334

1334
1334
1334
1334
271

277
1334

1334
1395

2421
1334
1192

o
n
n
2
o
274
o

794
1047
1275
1722

1967
566
272
278

1407
1760

824

273
279

615
274
280

671
275
281

675
276
282

683

687

696

704

1813

1820

722

752

788

822

856

890

924

963

1002

1074

1116

1157

1208

2422
767

2423
800

2424
834

2425
868

2426

2427

2428
950
1377

997

999

1040

1046

1097

1126

1221

28
4

133
191
15

222

1226

1235

1240

902
1339

946
1358

UNIBUS EXERCISER
MACYT1
CZKUAD.P11
26-APR-78& 17:02
.SAPTB
.$APTH
.SAPTY
.SASTA
.SCATC
.SCMTA
.$DB2D
.$DB20
.$01V
.SEOP
.SERRO

.SERRTY

LSMULT
.$POWE
. SRAND
.SRDDE

.S$RDOC

1
1K
1
1%
"
14
1K
4
1
”
1

1
1
*
%
1

4
1#
1
L

.$SIZE
.$SUPR
.STRAP
.$TYPB
.$TYPD

X4
14
1
1
1L

.STYPE

.$TYPO
.$40CA

ABS.

233

n
n
2

1791
1907
1952

2429

2000

2129

on
n

2048

2394

2326
2175
2248

.SREAD
.SR2AZ
.$SAVE
.$5B2D

.$5B820
.$SC0OP

N
N

1
”

4
TM

020342

000

ERRORS DETECTED:

30A(1052)

03-MAY-78

14:28

CROSS REFERENCE

PAGE 64

TABLE

-~ MACRO NAMES

191

1842

CZKUAD .BIN,CZKUAD.LST/CRF/SOL/NL:TOC=DSKZ:CZKUAD.SML
,DSKZ:CZKUAD.P11
RUN=-TIME: 13 16 1 SECONDS
RUN-TIME RATIO: 263/31-8.3
CORE USED:
(55 PAGES)
l 8K

SEQ 0067