Digital PDFs

AH-8856D-MC

July 1978

68 pages

Original

34MB

view download

OCR Version

47MB

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_gray.pdf

OCR Text

UNIBUS SYSTEMS EXERCISER

AH-8856D-MC

JUL 1978

CZKUADO

copvrichT < 75-78

LHEONED

DIAGNOSTIC

FICHE1 OF1

MADEIN USA

— .<

—————

ettt

et LG Qe

ee————ee e

et At et et

e e

Identification

..............

Product

Code:

AC-B855D=-M(

Product Name:

Date

CZKUADO Unibus

Maintainer:

Diagnostic

Author:

Manuel

for

BILL

information in this document
should
not
be
construed

(orporation.

any errors

Digital

Systems Exerciser Diagnostic

1-APRIL-78

MODIFIED BY:

The
and

SEQ

Equipment

that may appear

is
as

Group

Soares
SCHLITZKUS

subject to change
without
notice
a commitment by Digital Equipment

Corporation assumes no
in

responsibility

this manual.

ri?ital Equipment Corporation assumes no responsibility for the use or
iability
re
of
its
software
on
equipment
that is not supplied by

Digital.

FOLLOWING

DIGITAL
DEC

1975,1978 Digital Equipment
TRADEMARKS

PDP
DECUS

DIGITAL

UNIBUS
DECTAPE

Corporation

EQUIPMENT

CORPORATION

MASSBUS

0001

C
Page 2

—

REQUIREMENTS

Hardware

PROGRAM DESCRIPTION

WA
—

Switch Options

ERROR REPORTING

ABSTRACT

WIWwWW

Contents

Table of

Software

Test

thru Test

Sysmac Routines

SEQ 0002

1
D
Page 3
1.0

ABSTRACT

This program was created

to test

PDP-11's

CPU

interface circuitry.

uses
the
Unibus
Exerciser(s)
(UBE)
to
insure proper operation by
simulating peripherals which would require the 11-CPU to
produce
the

necessary signals.
It should be noted that the UBE is a powerful tool
agd if it is not programmed correctly could cause various problems
on
the Bus.

2.0

REQUIREMENTS

F.1

Hardware

This program
assumes
the
following
in
proper
working
condition:
1.
The
Unibus,
2.
Memory (8K minimum), and 3.
UBE(s) (4 maximum).
If a fourth UBE is being
used, its time delay should be set
at
100us
to prevent latency problems in one of the tests.

Lfith two or more UBE(s), all should have W1 jumpers except the one
furthest

electrically

on the Unibus

Imight

occur

2.2

Software

from

the CPU.

the program is not

since

there are more

responsible

is programmed

for

any

than & UBE(s)

problems

to handle a maximum of

which

only 4.

IAfter Loading the program the startin? address must be
200,
so
that
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
ust
be
started
at
200.
Otherwise,
to
avoid
duplicating
some
printouts,

the program can be restarted at

SOF TWARE HALT

CAN BE

address

220.

CAUSED BY DEPRESSING CONTROL-H ON THE

CONSOLE.

I?F THE PROGRAM IS HALTED THIS WAY, AND THE PROGRAM IS RESTARTED,
DEPRESS ANY CONSOLE KEY
LAAAAR AR AR

5.0

TO REMOVE

THE

SOFTWARE HALT

CONDITION.

R R3320

PROGRAM DESCRIPTION

This program was assembled with MACY11
fpackage .

wusing

PDP-11

Maindec

Sysmac

SEQ 0003

Page &

3.1

Switch Options

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

location 176 with the switch register values desired

-—

-l

Use

OO —=WwWwsHrwv

Switch
------

Test

TEST

Inhibit error typeouts
Inhibit iterations

Bell on error

Loop on error

Loop on test

through Test

= No Bus grants

bus request.

TEST

2 -

in SWR<S5:0>

issued with processor at

This

test

long as

Issuing of

non-processor

will

processor

device

typing except
load1ng 200.

the processor

request

status

exercises

grants

NPR

initially at

NPG

higher priority

to insure that any request

the

same

and arbitration

through
level

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

3 -

"'end of pass"

honored as
priority.

test

TEST

Halt on Error
Loop on test

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

3.2

switch
set up

levels

fun

1-dati,

and

status

lowered sequentially

higher

tests.

BR4

make

sure

the

then the

the
all

This
test
be on levels

transfers, and the

from 7 to 0.

This

with the

sequentiall
lowering
to allow arbitration of

Issuing of Bus grant 7 and
arbitration
tests.
will
arbitrate
for
a BG7.
The requests will

BR7 thru BR4, doing fun 1-dati

than

is not

processor

TEST

& -

Issuing of Bus
grant 6 and
arbitration
tests.
This
test
will arbitrate
for a BG6, the requests will be on levels BRé6
thru BR4, doing fun
1-dati
transfers,
and
the
processor
status lowered sequentially from 6 to 0.

TEST

5 -

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

SEQ 0004

g
Page 5
TEST

Issuing of Bus
grant 4 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 for no sack time out.
This test
will
check
that
the
C(PU
times
out
and drops a grant if no sack signal is
received.
If the CPU
time
out
1S
inoperative,
the
Bus
exerciser
will time out and send the sack signal to prevent
a Bus hang and set an error flag in (RZ2.

TEST

10 - (PU test for receiving sack.
This test is
to
insure
that
the CPU can receive the sack signal:
The time delay will be
set on device 1 and several dati transfers made.
If
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
BG7 first and
interrupt
first,
the
next
closest
should
interrupt

TEST 12

Address

address

lines

and so on.

(14 -

17)

check.

This

test

addresses.
If
the
addresses
don't
routine will ignore any no ssyn error.
TEST

check

Bus

exist

the

interrupt

(PU test for
ACLO/DCLO
sequence.
This
test
checks
the
assertion
of
ACLO
and
DCLO and that the CPU traps to the
correct service routine.
If this program is
running
under

ACT11
TEST

will

Llines 14 thru 17 by doing a fun 1-dati-npr to those

this

test will

Parity error

checks

THIS

TEST

THIS

TEST

(EG.,

test.

that
IS

be skipped.
This

test

the CPU traps

will

SKIPPED ON MACHINES

11/05 AND 11/20).
SHOULD BE

cause

to the correct

DESELECTED

THAT

DON'T

THE

MEMORY

parity

vector.

HAVE

THE

PARITY

error
SXT

and
INSTRUCTION

OPTION

IS NOT PRESENT OR NOT ENABLED.

SW06=1

INHIBIT TEST 14

TEST

15 = Multitransfers I.
This test will cause any Bus
exercisers,
up
to
&,
to
create a lot of traffic on the Bus and check
that the CPU
can
handle
it;
all
devices
are
set
off
simultaneously.

TEST

16 - Multitransfers

II.

exercisers
doing
different request
capabilities.

This

test

will

have

various
transfers
and/or
levels
to
further
check

the

available

interrupts at
C(PU
handling

SEQ 0005

Page 6

TEST 17 - DUMMY END OF
is
just
to
see
if

cause a program halt.

PROGRAM.
This portion of the program
'' H' has been typed on the console to

there

' H'

the

program

continues by junpin? to $EOP (end-of-pass routine).
IF THE PROGRAM [S HALTE D THIS WAY, AND THE PROGRAM IS RESTARTED,
DEPRESS ANY CONSOLE KEY TO REMOVE THE SOFTWARE HALT CONDITION.

3.3

Sysmac Routines

The
in

'END OF PASS ROUTINE' thru 'Power
the
program
Llisting,
are
the

for

the operation of others,

4.0

ERROR REPORTING

called out in
Iwithout,
and

Down and Up Routines',
Sysmac package macros.

the
source
program,
some
are expanded in the listing.
so

for

available Sysmac Macros see PDP-11

The minimum amount

with
arguments
and
some
Some macros are necessary

complete

Maindec

as listed
They are

explanation

Sysmac Package

all

(DZQAC-B-D).

information given when an error occurs

the P(C

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.P11
26-APR-78 17:02
1

30A(1052)

03-MAY-78

14:28

PAGE 2

SEQ 0007

167400
000300

<C3-MAY-78

LTITLE

14:28

l
PAGE 3

SEQ 0008

$SWR=167400
$SWRMK=300
UNIBUS EXERCISEk

*«PROGRAM BY M.SOARES
]

E'THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
;*PACKAGE
"

000001

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

$TN=1

.SBTTL

OPERATIONAL

SWITCH SETTINGS

.-t

30A(1052)

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

T e

NO NS WN—=OVONOWVESWND

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

(a8 e R

SWITCH

......

i x

0
o

1
10

9
8

o
st
;e
LSBTTL

001100
177776
177774
177772
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

000000
000040
000100

HALT ON ERROR
LOOP ON TEST

1100

.EQUIV
.EQUIV
PS=
.EQUIV

EMT_ERROR
10T,SCOPE
177776
PS,PSW

PIRQ=

177772

STKLMT= 177774

DSWR=
DDISP=

ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR
TEST IN SWR<5:0>
WHEN SET, INHIBIT TEST 14

BASIC DEFINITIONS

;*INITIAL ADDRESS OF

STACK=

INHIBIT
INHIBIT
BELL ON
LOOP ON
LOOP ON

177570
177570

THE STACK POINTER #t+

;:BASIC DEFINITION OF ERROR CALL
;:BASIC DEFINITION OF SCOPE CALL
; :PROCESSOR STATUS WORD
;:STACK LIMIT REGISTER

s ;PROGRAM INTERRUPT REQUEST REGISTER

: sHARDWARE SWITCH REGISTER

: HARDWARE DISPLAY REGISTER

;*GENERAL PURPOSE REGIST ER DEFINITIONS

RO=
R1=
R2=
R3=

RS=

SP=

Ré4=

R6=
R7=

PC=

20
21
¥4

X6
X7

s sGENERAL REGISTER
s sGENERAL REGISTER
s s GENERAL REGISTER
s s GENERAL REGISTER
: sGENERAL REGISTER
s sGENERAL REGISTER
s s GENERAL REGISTER
s sGENERAL REGISTER
;s STACK POINTER
; ;PROGRAM COUNTER

s*PRIORITY LEVEL DEFINITIONS
0
;:PRIOR ITY LEVEL 0
40
J:PRIORITY LEVEL 1
100
;:PRIOR Ity LEVEL 2

PRO=
PR1=
PR2=

1100 ##+

MACY11
26-APR-78 17:02

UNIBUS EXERCISER

CZKUAD.P1

30A(1052)

03-MAY-78
14:28
BASIC DEFINITIONS

000140
000200
000240
000300
000340

PR3=
PR&=
PRS=
PR6=
PR7=

100000

SW15=
SWi4=
sWi13=
swi2=
SWil=
sSW10=
SWw09=
sSwo8=
Sw07=
SWwoé=
SW05=
SWwo4=
sSWwo3=
sw02=
swo1=
swoo=
.EQUIV
.EQUIV
LEQUIV
LEQUIV
.EQUIV
LEQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV

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

100000
040000
020000

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

140
200
240
300
340

PAGE 4

;:PRIORITY
;sPRIORITY
;:PRIORITY
:sPRIORITY
s:PRIORITY

SEQ 0009
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*' 'SWITCH REGISTER' SWITCH DEFINITIONS
100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09,Sw9
SW08,Sw8
SW07,Sw7
SW06,SWé
SWOS5,SW5
SWO04,SW4
SWO03,Sw3
SW02,Sw2
SWO01,Sw1
SwW00,Sw0

;*DATA BIT DEFINITIONS (BITOO TO BIT15)
BIT15=
100000
BIT14=
40000
BIT13= 20000
BIT12=
10000
BIT11=
4000
B8IT10= 2000
81T09=
1000
BIT08= 400
BIT07=
200
BIT06=
100
BITO5= 40
BITO4=
20
8IT03=
10
BIT02= 4
BITO1= 2
BITO0=
1
EQUIV BIT09,.BITY
EQUIv BIT08,.BITS
EQuliv BIT07,.B117
EQUIV BIT06,BIT6
EQuIv BITO5.BITS

5
6
7

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

30A(1052)

03-MAY-78
14:28
BASIC DEFINITIONS

114
115

.EQUIV
.EQuIv

}}g

.EQuIv

116
117

.EQUIV
.EQuIv

K
PAGE 5

BITO04,BITS
BITO03,BIT3
BIT02,BIT2
BITO1,BITT

BITO00,BITO

120
121
122
123
124
125
126
127
128

000004
000010
000014
000014
000014
000020
000024
000030

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES
ERRVEC= &
;:TIME OUT AND OTHER ERRORS
RESVEC= 10
;sRESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
T BIT
TRTVEC= 14
:: TRACE TRAP
BPTVEC= 14
: ;BREAKPOINT TRAP (BPT)
IOTVEC= 20
;s INPUT/OUTPUT TRAP (IOT) *#SCOPE++
PWRVEC= 24
: ;POWER FAIL
EMTVEC= 30
: EMULATOR TRAP (EMT) *+ERROR**

130

000060

TKVEC=

}g%

000240

PIRQVEC=240

129

131

000034

000064

TRAPVE (=34

::""TRAP'" TRAP

TPVEC=

;:TTY PRINTER VECTOR

60
64

::TTY KEYBOARD VECTOR

: ;PROGRAM INTERRUPT REQUEST VECTOR

}gé

.SBTTL

MEMORY MANAGEMENT DEFINITIONS

}gg

;*KT11

VECTOR ADDRESS

}gg

000250

}2?

142
143

Thdh

}22

MMVEC=
:*KT11

177572
177574

SRO=
SR1=

172516

SR3=

177576

}2;

SR2=

250
STATUS REGISTER ADDRESSES

177572
177574

177576
172516

;*USER "'I"" PAGE DESCRIPTOR REGISTERS

149
150
151

177600
177602
177604

UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604

}gg

177616

UIPDR7= 177616

152
153
154
155

177606
177610
177612
177614

}gg
160

161

162
163
164
165
166
}2;
169

UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=

177606
177610
177612
177614

;*USER "'I'" PAGE ADDRESS REGISTERS
177640

177642

177644
177646
177650
177652
177654
177656

UIPARO= 177640
UIPAR1= 177642

UIPAR2=
UIPAR3=
UIPAR4=
UIPARS=
UIPARG=
UIPAR7=

177644
177646
177650
177652
177654
177656

;*KERNAL *'I'" PAGE DESCRIPTOR REGISTERS

SEQ 0010

KIPDR&

180
181
182
183
184

200
201
202
203
204

SEQ 0011

300
302
304
306

310
312
314
316

.SBTTL

000000

000200
000204

000174
000000
000000
000200
005037
000137

NARRYA
AREYA
ARYA

A
VA
A

000174
000176

sNooomesrn

NNNNNNNN
NN
WWWWWW
v
s S

;fl’

0o
> >
o

172356

—

KIPAR4
KIPARS

[ -

J*KERNAL *' "' PAGE ADDRESS REGISTERS

185
186
187
188
189
190
191
192
193

194
195
196
197
198
199

il
—

KIPDRS

KIPDRO
KIPDR1
KIPDR2
KIPDR3

170
m
172
173
174
175
176
177
178
179

1
L
O03-MAY-78
14:28
PAGE 6
MEMORY MANAGEMENT DEFINITIONS

30A(1052)

SNNSNSNSNNNN
oo
NON

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

356

TRAP CATCHER

.=0
;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A "', 42 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATION196C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

DISPREG: .WORD
.=200

001174
001756

NEVABV A BV A
REYE BEVE BEVA
NEYE VA VA

g/v /e
ARV
A ]
AREYA

VA BEVA|
A BV A
A BV

SWREG:

.WORD

:;SOFTWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER

$TMPO

CLR

JMP

@fSTART

A REVA
s/t /e
A BV A

VA
/e
BEVE

sMAKE

2/:
2fs
2/:

o/3
of3
of;

BEYE BEY L ]
/e : /e
BEVE BV L ]

A
i/
A

s/e
s/e
s/e

/e
/e
/e

000220
000226

v/
v/:

0/
v/:

000220
012737
000137

x/:

&/:
x/:

/;
v/:

000777
001756

t/:
t/:
v/:

x/:
/:
x/:

v/
v/
t/:

2/«
v/ @
2/«

001174

3
3

EXERCISERS ON THE BUS,

;*YOU MUST START AT LOCATION 200 AND
;*RESTART AT LOCATION 220 ONLY IF YOU DO NOT WISH
;*TO SIZE MEMORY AND TYPE OUT DEV ADDRESSES AGAIN

TMPO=0

;JUMP TO START

;*WHEN LOADING THE PROGRAM FOR THE FIRST TIME, OR ANY TIME

s*AFTER ALTERING THE # OF

SURE

t/:
v/:
t/:

»/:
v/:
v/:

.=220

t/:
v/
v/

Mov
JMP

v/
2/
v/

wf:
2/
w/:

v/
v/
v/

v/:
2/:
v/:

#777,8THPO
FSTART

;TMPO IS INDICATOR FOR RESTART
;JUMP TO START

JERERRAR RN TR R RN R RN R RN R AR AR RRRRCERRARRRCERRORRRRRRARRRAORRRRRRNORETSE

.SBTTL

ACT11 HOOKS

;HOOKS REQUIRED BY ACT11

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

226
227
228
229
230
23
232

000046
000052

000232
000046
015636
000052
040000
000232

30A(1052)

O03-MAY-78
ACT11 HOOKS

14:28

PAGE 7

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

SEQ 0012

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

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

233
234
235
236
237
238
239

03-MAY-78
ACT11 HOOKS

14:28

AR ARA

.SBTTL

PAGE 8

SEQ 0013
A

222222223222 22222222221

)

COMMON TAGS

;*THIS TABLE

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.

001100

001156
001160
001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001206
001210

001212
001214
001220
001221
001222

177566
000
002
012
000
000000

000000
000000
000000
000000
000000
000000
000000
000000

000000
177607
077
015
000012

$SREGO:

000377

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

$REG1:
$SREG?2:
$REG3:
SREG4:
SREGS:
$TMPO:
$STMP1:
S$STMP2:
$TMP3:
$TMPG:
$TMPS:
STIMES: 0
SESCAPE: 0
$BELL:
SQUES:
$CRLF:
$LF:

177570
177570
177560
177562
177564

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

DDISP

s ADDRESS OF SWITCH REGISTER
s sADDRESS OF DISPLAY REGISTER

:TTY KBD STATUS

::TTY KBD BUFFER

246

OO —-=MNO

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000000

o OCOO0O0O0O0O0OO—~0OO0O0O0OO0OOO

.=1100

SCMTAG:
$PASS:
.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
SICNT:
.WORD
SLPADR: .WORD
SLPERR: .WORD
SERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
.WORD
SWR:
.WORD
DISPLAY: . WORD
177560
$TKS:
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
SFILLS: .BYTE
$SFILLC:
$TPFLG:
$SREGAD: .WORD

;sTTY PRINTER STATUS REG.
ssTTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

s sCONTAINS NULL CHARACTER FOR FILLS
s sCONTAINS # OF FILLER CHARACTERS REQUIRED
s INSERT FILL CHARS. AFTER A ''LINE FEED"

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

ssCONTAINS THE ADDRESS FROM

;sWHICH (SREGO) WAS OBTAINED
ssCONTAINS ((SREGAD)+0)
;sCONTAINS ((SREGAD)+2)
ssCONTAINS ((SREGAD)
+4)
ssCONTAINS ((SREGAD)+6)
ssCONTAINS ((SREGAD)+10)
2 sCONTAINS ((SREGAD)+12)
2 sUSER DEF INED
2 sUSER DEFINED
s USER DEF INED
2 sUSER DEF INED
s sUSER DEFINED
s sUSER DEFINED
ssMAX. NUMBER OF ITERATIONS
s;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
/?/
JsQUESTION MARK
<15
CARRIAGE RETURN
<>
ssLINE FEED
OCOO0O0O0O0OO0COO0OO0OD

240

241
242
243
244
245

247
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

30A(1052)

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

30A(1052)

O03<-MAY-78
COMMON TAGS

B
PAGE 9

14:28

289

290
gg;

.SBTTL

ERROR POINTER TABLE

293
294
295
296
ggg

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTEZ2:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

299
300
301
302
303
304
305

M
B
ot
H

306

001224

$ERRTB:
IR

307

308
309
310
311
312
313
314
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
340
341
342
343
Tha

R R

EM
DH
DT
DF

R R

SRR

001224
001226
001230
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
001310
001312

012153
011740
015312
000000

JITEM 2

JITEM &

JITEM S

JITEM 6

JITEM 7

;ITEM 10

R R

P R R

R R R R R R AR RN AR R R RN RN RN

;sPOINTS
;sPOINTS
;sPOINTS
;;POINTS

R R R

JITEM 1

;ITEM

R R R R R

R R R
R R R

R R R R R

RN R

R R R R R R R

TO
TO
TO
TO

THE
THE
THE
THE

RRR

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

R R R R RN R R R AR AR R RN RS
R R R AR RN R R AR R AR RN

EM1
DH1
DT1
0

;CPU TRAPPED THRU LOC & ~-TIME ouT
; ADDR
SERRPC #ERR/TSTH
sSREG2,$ERRPC,STSTNM,0

EM2

sCPU ISSUED A BUS GRANT WITH PSW = 7
;DEV 1 SHOULD NOT HAVE BECOME BUS MASTER
;BE1DB BE1CC BE1BA BE1CR1 PSW SERRPC W#ERR/TST#
;SREGO,SREG1 ,SREG2,SREG3,SREG4,SERRPC ,STSTNM,0

DH?2
DT2
0

EM3
DH3
DT3
0

sCPU DID NOT ISSUE A BUS NPG
;BETCR1 BE1CC FM=-PS TO-PS SERRPC #ERR/TST#
;SREGO,SREG1,3REG2,SREG3,SERRPC,$TSTNM,0

EM&
DH3
DT3
0

sCPU DID NOT ISSUE BUS GRANT 7

EMS
DH3
DT3
0

;CPU DID NOT ISSUE BUS GRANT 6

EMé6
DH3
DT3
0

sCPU DID NOT ISSUE BUS GRANT §

EM7
DH3
DT3
0

sCPU DID NOT ISSUE BUS GRANT &

SEQ 0014

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

345
346
347

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

391

392

393
394
395
396
397
398
399
400

30A(1052)

03-MAY-78
14:28
PAGE 10
ERROR POINTER TABLE

001314
001316

012211
012257

EM10
DH10

001320
001322

015330
000000

DT10
0

001324
001326
001330
001332

012415
012503
015346
000000

001334
001336
001340
001342

012554
012642
015362
000000

001344
001346
001350
001352

012703
012766
015374
000000

001354
001356
001360
001362

013007
012766
015374
000000

001364

013072

001366

013235

DH1S

001370
001372

015402
000000

DT1S
0

001374
001376
001400
001402

013347
013235
015402
000000

001404
001406
001410
001412

013435
013235
015402
000000

001414
001416
001420

013523
013235
015402

001422

JITEM 12

;ITEM 13

JITEM 14

JITEM 15

JITEM 16

JITEM 17

:ITEM 20

000000

001424
001426
001430
001432

013617
013235
015402
000000

001434
001436

013713
014005

001440

JITEM N

015420

JITEM 21

JITEM 22
2

8
SEQ 0015

sONE OR MORE DEVICES DID NOT INTERRUPT
sTHIS IS THE ORDER IN WHICH THEY INTERRUPTED
:
1ST
2ND
3RD 4TH SERRPC W#ERR/TST#
sSREGT,$REG2,$REG3,SREGL,SERRPC,S$TSTNM,
0

EM1
DH11
DT11
0

:BUS ADDRESS LINES <A17:A14> DID NOT FUNCTION PROPERLY
;BET1CR1 BET1CR2 BE1BA SERRPC #ERR/TST#
sSREG1,$REG2,SREG3,SERRPC,STSTNM,0

EM12
DH12
DT12
0

sCPU NO SACK TIME OUT LOGIC FAILED(TO NEGATE BUS GRANT)
;sBETCR1 BE1CR2 SERRPC #ERR/TSTH
sSREGO,$REGT,SERRPC,STSTNM,0

EM13
DH13
DT13
0

sCPU DID NOT PROPERLY EXECUTE AN ACLO/DCLO SEQUENCE
;SERRPC #ERR/TST#
sSERRPC,S$TSTNM,0

EM14
DH13
DT13
0

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

EM1S

:DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY
sTHE TRANSFER TO THE FOLLOWING LOC WAS INCORRECT
sMEMORY
ACTUAL CORRECT
s LOC
DATA
DATA SERRPC #ERR/TSTH# SICNT #
:SREGO,$REG1,SREGS,SERRPC,STSTNM,SICNT,O

EM16
DH1S
DT1S
0

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

EM17
DH15
DT1S
0

sDEV 4'S DATO TO MEMORY DID NOT EQUAL PATERN IN R4

EM20
DH1S
DT1S

sDEV 1

EM21
DH1S
DT1S
0

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

EmM22
DH2?2

:BIT 7 OF CR2 SET=CPU DID NOT TIME OUT WITH SACK INHIBITED
:DEV # PC
SERRPC #ERR/TST#

DID FUN 1-NPR=DATIP;INCORRECT PATTERN IN MEMORY

D122

;$TMP4 ,SREGS ,SERRPC,STSTNM,0

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

401
402
403
404
405
406
407
408
409
410
41
412
613
414
415
416
417
418
419
420

621

622
423
424
425
426

427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
Libk

445

446

4467
448
Gl
450
451
452
453
454
455
456

30A(1052)

03-MAY-78

14:28
ERROR POINTER TABLE

001442

000000

001444
001446
001450
001452

014047
014005
015420
000000

001454
001456
001460
001462

014120
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
014005
015420

000000

001524

014420

001526

014560

DH31

001530
001532

015432
000000

DT
0

001534

014653

001536
001540
001542

014560
015432
000000

001544
001546
001550
001552

014737
014560
015432
000000

001554

01501

001556
001560
001562

014560
015432
000000

;ITEM 23

;ITEM 24

;1TEM 25

;ITEM 26

JITEM 27

;ITEM 30

;ITEM3

;1TEM 32

JITEM 33

JITEM 34

;ITEM 35

PAGE

2
SEQ 0016

EM23
DH2?2

;BIT 11 OF CR2 SET=NO SSYN ON INTR SIGNAL

EM24
DH2?2
DTE?2
0

;BIT 5 OF CR2 SET-RECEIVED WRONG GRANT

EM25
DH22
DT22

;BIT 6 OF CR2 SET-BUS LATE

EM26
DH22
D122
0

;:BIT 8 OF CR2 SET-DEV DID NOT RECEIVE SSYN

EM27
DH22
pT22
0

;BIT 9 OF CR2 SET-WRONG ADDR ON BUS

EM30
DH22
D122
0

;BIT 10 OF CR2 SET=-DEV RECEIVED OTHER THAN ONE GRANT

EM31

;BKGRND RTN INSTRUCTIONS OF NEGB'S WERE NOT DONE
;CORRECTLY TO SREG1 DURING MULTITRANFERS 11
sACTUAL CORRECT
DATA SERRPC WERR/TSTH# SICNT #
;DATA

DT22
0

EM32
DH31
DT
0

;SREGY,146463,8ERRPC,STSTNM,
SICNT N
;DEV 3 DID DATI BUT HAS INCORRECT
:VALUES IN DATA REGISTER

EM33
DH31
DT31
0

;DEV 4 DID NOT INTR THE CORRECT # OF

EM34

sLAST DATI XFER BY DEV 1 WAS INCORRECT;EITHER DEV DID NOT WORK OR WRONG DATA WASSET UP

DH31
DT
0

TIMES

EM35

001566
001570
001572

011452
015262
000000

DH1
DTl
0

AR AR ARl
iRttt
RRd)

BE1DB
BE1CC
BE1BA
BE1CR1
BETCLR

BE1CR2
BE2DB
BE2(C
BE2BA
BE2CR1
BE2CLR
BE2CR2
BE3DB
BE3CC
BE 3BA
BE3CR1
BE3CLR
BE3CR2

BE4DB
BE4CC
BE4BA
BE4CR
BE4CLR

BE4CR2
BETVEC

BE1PSW

BE2VEC
BE2PSW
BE3VEC
BE3PSW
BE4VEC
000000

BE4LPSW
DEVCNT
DEVS

000000

DATA1

DATA2
DATA3
DATA4

ENDMEN

AR
AR

17740
1170014

ARl

iRttt

ld)

Rttt

dd)

;ALL ERR BITS OF (R2
sADDR 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 2
: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
sCLEAR ERRS REG ADDR FOR DEV 4
;CONTROL REG 2 ADDR FOR DEV 4
:TRAP VEC ADDR FOR DEV 1
;:PSW ADDR FOR TRAP THRU BE1VEC

:TRAP VEC ADDR FOR DEV 2

:PSW ADDR FOR TRAP THRU BEZ2VEC

:TRAP VEC ADDR FOR DEV 3

;PSW ADDR FOR TRAP THRU BE3VEC
:TRAP VEC ADDR FOR DEV 4

000000

001674
001676
001700
001702
001710
001712
001714
001716
001720
001722

ALLERR
SIMLGO
PBVEC
PBPSW

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

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

MAASAL AL AR

001574
001576

ALA

MAAAAARAAAARARA

SEQ 0017

;:CPU TRAPPED THRU LOC 0 TO CATCH
; INPROPERLY LOADED VECTORS
SERRPC #ERR/TSTH
; ADDR
;SREG2,SERRPC,$TSTNM,0

500
501
502
503

015165

467
468
469
470
«n
472
473
474
475
476
477
478
479
4«80
481
482
483
484
485
4«86
487
488
489
490
491
492
493
494
495
496
497
498
499

001564

COOCOCOOCOO0OOOOOOOOOOOOCOCOCOOCOCOCOOD
——

464
465
466

E_2

03-MAY-78
14:28
PAGE 12
ERROR POINTER TABLE

457
458
459
460
461
462
463

30A(1052)

COCOOC

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

:PSW ADDR FOR TRAP THRU BE4VEC
;CONTAINS # OF DEVICES ON BUS
;WILL CONTAIN ADDR(S) OF INTR'G DEVS
:MAX
:MAX
sMAX
;MAX

ADDR
ADDR
ADDR
ADDR

TO
TO
TO
TO

WHICH
WHICH
WHICH
WHICH

DATA
DATA
DATA
DATA

XFERRED
XFERRED
XFERRED
XFERRED

:TAG ENDING DEFINED LABELS

JERRERRRERRERRERRRLARRRRERRRERRRRORACRRRRRRRRRORRARRRRAERRRRRROTROEROERRNTYE
JERRRRRRRRRRRAERRRRRRRRRRRRRORRRNRRROERRORRROERRRRRRARAROERRROROERRRORNRTRTS

001724
001724

012703

001600

CLRRTN:

MOV

#BE1DB,R3

;R3 IS POINTER TO BUFFER AREAS

BY
BY
BY
BY

DE Vi
DE V2
DE v3
DE )

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

513
514
515

001730
001732
001736
001740
001744
001746
001752
001754

005023
022703
100374

012703
005023
022703

101374
000207

30A(1052)

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

001722
001160

2%:

001206

Mov

CLR
CMP
BHI

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
002170

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

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

000004

000176
000174

001136
001140

000006
000004
000200

104400

011174

022737
001002
000137

000777

012737
012737
032777
001452

010562
000340
000200

000422

000020
000022
000030
000032
000034
000036
000024
000026
015474

002142

176776

65%:
176740

001174

3s:

000000
000002
176674

Rttt

dd)

AR ARl

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#STACK,SP
;:SETUP THE STACK POINTER
#$SCOPE,a#IOTVEC ; ;10T VECTOR FOR SCOPE ROUTINE

TST
BR

MOV
MOV

CMP
MOV

MoV

.~6

;:FIRST LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION
: ;DONE?

::LOOP BACK IF NO

#340,8#10TVEC+2 ;;LEVEL 7
#SERROR,S#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340,9#ENTVEC+2 ;;LEVEL 7
#STRAP,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340,3#TRAPVEC+2;LEVEL 7
#SPURDN ,@#PWRVEC ;;POWER FAILURE VECTOR

#3640 ,9#PWURVEC+2 ;;LEVEL 7
SENDCT,SEOPCT
;:SETUP END-OF -PROGRAM COUNTER
STIMES

;s INITIALIZE NUMBER OF

ITERATIONS

SESCAPE

::;CLEAR THE ESCAPE ON ERROR ADDRESS

#..SLPERR

::SETUP THE

#1,SERMAX
#..8LPADR

NG ,-(5P)
ar6,-(spP)
2648 ,4
aSWR
65%

::ALLOW ONE ERROR PER TEST
;INITIALIZE THE LOOP ADDRESS FOR SCOPE
ERROR LOOP ADDRESS

::SAVE ERROR VECTOR

::SET UP TIME OUT VECTOR
;:TRY TO REFERENCE HARDWARE SWR
:;BRANCH IF NO TIMEOUT TRAP OCCURS

#SWREG, SWR
;;POINT TO SOF TWARE SWR
#OISPREG,DISPLAY ;;POINT TO SOFTWARE DISPLAY REG

(SP)+,(SP)+
(SP)+,am6
(SP)+, a0

:;RESTORE STACK
:;RESTORE ERRCR VECTOR

:1F NOT, SKIP TYPEOUT

BIT
BEQ

#BI1T07,aSWR

CHP

#777,8TMP0

;1S THIS RESTART FROM LOC 220?

MOV
MOV

#THRUO,0

;SET UP FOR TRAP THRU LOC 0

33s
.. th
66

:1F NOT, SKIP TYPEOUT
;:TYPE ASCIZ STRING

TYPE

BNE
JMP

5%:

AR AR

#SCMTAG,RE
(R6)+
#$BDDAT ,R6

MOV
MoV
MOV
MOV
MOV

648

:éFl¥OT. CLEAR NEXT TEMP REG

JEX

MOV

CLR
CLR
MovB

00350¢

002252

CLR
CMP
BNE

001126

012637
012637
032777
001402

104400

START:

001100

sCLEAR BUFFER THEN INCREMENT ADDR
sIF POINTER AT LAST BUFFER, EXIT
s1F PLUS, GO BACK AND CLEAR NEXT ADDR
sNOW START TO CLEAR TEMP REGISTERS
sCLEAR CURRENT ADDR
sCHECK FOR LAST TEMP REG ADDR

MALAALAAAAAAARA

AR AR

SEQ 0018

(R3)+
#ENDMEM, R3
1%
#$REGO,R3
(R3)+
#$TMPS,R3

CLR
CMP
BPL

RTS

MAARALA

BIT
BEQ

TYPE

;i .ASCIZ

,GNO

5%
arTsm

#PR7,2
#B1107,3SwWR

;1S SWITCH 7 uP?

:1F NOT,SKIP THE JMP INSTR
;ELSE JUMP TO TEST 1

;SET UP PSW FOR TRAP THRU 0
;1S SWITCH 7 upP?
::GET OVER THE ASCIZ

<15><12>/1F BUS HANGS WHILE

SIZING MEMORY/

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

569
570
57
572
573
574
575
576
577
578

579

580
581
582
583

002316
002316
002322
002370
002370
002370
002374
002400
002406
002412
002416
002422
002426
002426
002432
002434
002440
002440
002446
002450
002456
002462
002464
002470
002474

104400
000422

002324

004737
004737
012737
012700
012702
012701
012703

001724
016616
000340
170060
000510
001600
001660

022700
002002
000137

170060

012737
005710
012737
005237
010021
010037
062700
105237
122737

001365

105037

062700
010021
062700
010223
062702
010223
062702
000731

30A(1052)

6 2
14:28
PAGE 14
ERROR POINTER TABLE

03-MAY-78

668%:

TYPE

33 AL

000006

LODDEV:

002736
002544

000004

002662
001700

000004

001172
000002
001174
000005

JSR
JSR

108:

001174
000004
MOVVEC:

TO NO CPU SSYN TIME OUT/

;CLEAR BUFFER AREAS
;FIND AVAILABLE MEMORY

;PS=7 FOR TRAP THRU LOC 4

CMP

#170060,R0
108
BGIN

;1S RO > LAST POSSIBLE DEV ADDR?
:1F NOT,GO TO 10%
;ELSE GO TO BGIN

MOV

#NODEV ,ERRVEC

sSET UP TRAP VECTOR FOR TIME OuT
sSEE IF ACTUAL DEVICE ADDRESS EXISTS
s CHANGE TRAP VECTOR FOR ERROR CONDITION
:COUNT DEVICES
sMOVE ACTUAL DEVICE ADDR TO DEVICE NAME

INC

MOV
MOV
ADD

ADD
MOV
ADD

MoV

000002

PC,CLRRTN
PC,$SIZE
#PR7 ,ERRVEC+2
#170000,R0

1S DUE

BGE
JMP

MOV
ADD

000002

<15><12>/1T

#BE1DB,R1
#BETVEC,R3

INCB
CMPB
BNE
CLRB

001174

;s TYPE ASCIZ STRING
.:GET OVER THE ASCIZ

10"
67%

;SET
;SET
;SET
;SET

TST
MOV
MOVREG:

000002

Mov
MOV
MOV
MOV
MoV

SEQ 0019

ADD
BR

(RO)

#TYMOUT ,ERRVEC

DEVCNT
RO, (R1)+
RO,SREGS

#2,R0

$TMPO

#5,8THPO

UP
UP
UP
UP

POINTER
POINTER
POINTER
POINTER

FOR
FOR
FOR
FOR

1ST POSSIBLE DEV ADDR
1ST POSSIBLE VEC ADDR
DEVICE ADDR LOCATION
INTR ADDR LOCATION

sREG5 CONTAINS LAST DEVICE ADDR
s INCREMENT POINTER BY 2

sCOUNT # OF REGISTERS PER DEVICE

sAFTER 5 REGISTERS

MOVREG

;ARE RECORDED

#4 RO

sADD & TO THE POINTER THEN

R2,(R3)+
#2.R2
R2,(R3)+

;THE

INTR VECTORS

;THE

INTR VECTORS

$TMPO

RO, (R1)+
#2.R0

#2,R2

LODDEV

;CLEAR THE COUNTING REGISTER

sRECORD THE LAST REGISTER ADDRESS
: INCREMENT POINTER BY 2
:NOW START RECORDING

s INCREMENT POINTER BY 2
; INCREMENT POINTER BY 2
;AND GO SEE IF THER'S ANOTHER DEVICE

SRR AR AR RN RN R R RN RN R R R RN R R RN RRRRRRRRORROERORRRRARRRRRRROERRARRROEROERETSR

JERRRRRRRRRRRRRRRRERORRRRCERRRRRRRRRORRRRORRRRRRRROERRORRRRORRERORRTRTRTS

022700
003035

002566
002572
002642
002642
002644

002650
002654
002660
002660

012716
022737
001035
104400

000423
000000
062700
062702
012716

000002

NODEV:

170060

002736
000000

001700

00257¢

TYPE

648

000020
000004
002426

cmpP
BGT
MoV
CmP
BNE

ADD20:

EXNO:

s .ASCI2

HALT

#170060,R0
ADD20

#BGIN, (SP)

#0,DEVCNT
EXNO
.o th
6483

#20,R0

Mmov

#LODDEV, (SP)

RTI

CHECK

sIF ALL POSSIBLE ADDR'S MAVE NOT BEEN CHECKED
sOUT=GO BACK AND CMECK FOR MORE,
JELSE CHANGE STACK POINTER
sCHECK FOR NO EXERCISERS
s1F ONE OR MORE EXERCISERS, EXIT

ssTYPE ASCIZ STRING

;:GET OVER THE ASCI2

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

ADD

sTIME OUT ROUTINE FOR DEVICE

:ADD 20 TO POINTER

sPOINTER=NEXT DEV'S VEC LOCATIONS

;GO BACK TO LODDEV

JEXIT

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

30A(1052)

H
2
O03-MAY-78
14:28
PAGE 15
ERROR POINTER TABLE
AR AAR

MAAARALAL

002662
002662
002666
002674
002676

002736
002736
002744
002750
002754
002760
002764
002772
003000
003002
003006
003012
003016
003024
003026
003032
003036

011637
162737
104001

001164
000002

AR ARl
tll)

Al ARl ARl

:TIME OUT ROUTINE

Mov
SuB
g??OR

001164

000002

005000
005002
012701
005200
005031
022700
001373
005000
005202
020237
101766
000207

(SP) ,$REG2
#2 ,3REG2
1

MAAAAAAALAA

CLRREG:

001600

AL AALAAAA

1%:

000006

CLR
CLR
[0}

R
AR

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

000424

003122
003122
003126

000431

104404
104400

104400

013746

104402

AR ARttt
d)

RO
R2
#BE1DB,R1

BNE

RTS

ARl Rt
s]

AR ARttt
Rdd])

RO
a(R1)+

CLR
INC
CMP
BLOS

:THE MOVE IS FOR TYPEOUT REASONS
;SUBTRACT 2 TO FIND ACTUAL ADDR
;ERR MESSG FOR ILLEGAL TIME OuT

INC
CLR

CMP

001700

;R0=0
;R2=0
sR1 WILL POINT TO ADDR OF
RO IS REGISTER COUNTER
sCLEAR CONTENTS OF REG

#6,R0

1ST DEVICE

;1F COUNT IS NOT 6
;GO BACK AND

RO
R2
R2,DEVCNT
1%

INCREMENT COUNT

JELSE CLEAR RO
sADD 1 TO R2(DEVICE COUNTER)
JSEE IF IT = PREVIOUS COUNT
;I1F NOT, CLEAR NEXT DEV REGS

JEXIT

o
N
SIITTTIITTIT IR

003042
003044
003050

003212
003212
003216

TYMOUT:

MAALAAAAAAAAAARA

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

AR AR

SEQ 0020

010342
010240
002700
001174
001160
017152

000200

003506
001160
001174
000005

000024

BGIN:

001174
176136

BIT

2%:
001160

001174
001221
001174

BNE
JMP
INC
ASR
CMP
BNE
INC
TYPE
MOV

648
003130

658

i ii i ie bt iiiniiiiniiiiidiiniiniie
et iee i

#PWRFAL ,PWRVEC
PC,STVEC
PC,CLRREG
$TMPO
$REGO
SLSTBK,$TMPO

;TAKE CARE OF BIT 4(S) BEING SET RANDOMLY IN CR2(S)
sSET UP VEC(S) FOR RANDOM ERRS
sCLEAR CONTENTS OF ALL AVAILABLE DEVS
:CLEAR TEMPORARY REG
sCLEAR COUNTER
JERRRRRRRRRRRRRRNRRR
RN RRY

2%
5%
$REGO
$TMPO
#5,3REGO
2%
$TMPO
LSCRLF
$TMPO,~(SP)

;1F UP, GO TO 2%
JELSE SKIP THE TYPEOUTS
JADD 1 TO REGO
sSHIFT TO DIVIDE
1S TMPO DIVIDED BY 40(S5 ASR'S)
s1F NOT, SHIFT AGAIN
sADD 1 FOR FUDGE FACTOR

#BI1T07,aSWR

TYPDS

003052

001700

MOV
JSR
JSR
CLR
CLR
MOV

iidii

TYPE
o o ¥
BR
648
;s ASCIZ
R YA
65%

MOV

DEVCNT,~(SP)

TYPOS

::SAVE STMPO FOR TYPEOUT

JsTHIS IS THE # OF K OF MEMORY
2:60 TYPE=-~-DECIMAL ASCII WITH SIGN

s:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
/K OF MEMORY IS AVAILABLE IN THIS SYSTEM/

TYPE
BR

;s ASCIZ

;1S SWITCH 7 uP?

;sTYPE ASCIZ STRING
;:GET OVER THE ASCIZ

<15><12>/THE FOLLOWING # OF EXERCISERS ARE ON THE BUS:
:3SAVE DEVCNT FOR TYPEOUT
::60 TYPE=-OCTAL ASCII

UNIBUS EXERCIS ER
MACY11
CZKUAD PN
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
m
712
713
714
715
716

717

718
719
720

003220
003221

003222
003226

001
000
104400
000436

003324
003324
003330

104400
000415

003332

005037
012700

001174
001600

005237
011037

001174
001160
003412

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

104400

000403

013746

104402
002
000
104400
000402

013746
104402

AN 006
000
062700
023737
001343
104400

022737

001002
104400

30A(1052)

03-MAY-78

ERROR POINTER TABLE

003230

1
0

66%

ASCIZ

TYPE

ssTYPE 1 DIGIT(S)
;s SUPPRESS LEADING ZEROS
s TYPE

ASCIZ STRING

;s TYPE

ASCIZ

::GET OVER THE ASCIZ
<15><12>/THE LOWEST ELECT. PRIORITY UBE SHOULD NOT HAVE W1 JUMPER/
STRING

MOV

#BE1DB,RO

$TMPO

sCLEAR TMPO(USED AS COUNTER)

INC
MOV

$TMPO
(RO) ,$REGO

;ADD 1 TO TMPO
:MOVE FOR TYPEOUT REASONS

68%

::GET OVER THE ASCIZ

MOV

$TMPO,~(SP)

;sSAVE $TMPO FOR TYPEOUT

.BYTE
.BYTE

2
0

;:TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

CLR

;s ASCIZ

TYPOS

003436

TYPE

.o th

ssTYPE ASCIZ

/ =/

STRING

::60 TYPE--OCTAL

ssTYPE

ASCIZ

TO ADDRESSES

ASCII

STRING

::GET OVER THE ASCIZ
;:SAVE SREGO FOR TYPEOUT

.BYTE
.BYTE

6
0

ssTYPE 6 DIGIT(S)
;s SUPPRESS LEADING ZEROS

CMP

$TMPO,DEVCNT

BNE

TYPE

CMP
BNE

RO AS POINTER

$REGO,~(SP)

ADD

001700

/ DEV/

;USE

MOV

TYPOS

001700

::GET OVER THE ASCIZ
<15><12>/DEVICE ADDRESS(ES): /<15><12>

.o th

BR
69%
;s ASCIZ

69%:

011277

SEQ 0021

673

68%:

001160

I
2
PAGE 16

BR
67%
s ASCIZ

TYPE

001174

001221
000004

.BYTE
.BYTE

TYPE

668

000014
001174

14:28

TYPE

;:6G0 TYPE--OCTAL ASCII

#14 R0

;ADD 14 FOR NEXT ADDR

:1F

sSEE

IF TMPO = # OF DEVICES

NOT, GO TYPE NEXT ADDR

JSCRLF

sTYPE

#4 ,DEVCNT
5%

sSEE IF THERE ARE & DEVICES
:1F NOT,SKIP THE TYPE 0QUT

LFOR4

JELSE

TYPE

MSSG FOR

&4TH DEV

721

722

:'.""""""""""""'.""'.'""""'""""""""."

723
724
725

;*TEST

726

727
728
729
730
731
732
733
734
735
736

NO BUS GRANTS

ISSUED WITH PROCESSOR AT HIGHER PRIORITY

s*THIS TEST IS TO INSURE THAT ANY REQUEST IS NOT
;*HONORED AS LONG AS THE PROCESSOR IS AT THE SAME OR
;*HIGHER PRIORITY

IR RN
R R R
R RN R R RN RN RN RN RN
RO

003506
003510
003514

003514

003536
003542

TST1:
.

002700

004730
000340
002662
000340
002021

176130
176132

000004

SCOPE
JSR

PC.CLRREG

MoV
MOV

#ERRCHK ,@BET1VEC ;SET UP DEVICE 1 INTR VECTOR
#PR7 ,BE1PSW
;SET UP DEVICE 1 PSW VECTOR

MOV
MoV

#PR7 ,RO
#2021,/

MOV

#TYMOUT ,ERRVEC

sCLEAR CONTENTS OF ALL AVAILABLE DEVS

;SET UP TRAP THRU LOC 4(TIME OUT VEC)

;MOVE PS=7 TO RO
;MOVE FUN 1-DATI-BR7 TO R1

THAN BUS REQUEST

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

737
738
739

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

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

010636
000300
002011
010636
000240
002005
010636
000200
002003
010636
004000
000040

30A(1052)

J_2
O03-MAY-78
14:28
PAGE 17
m
NO BUS GRANTS ISSUED WITH PROCESSOR AT HIGHER PRIORITY THAN BUS REQUEST

JSR
Mov
MoV
JSR
MOV
MOV
JSR
MoV
MoV
JSR
BIS
BIS

175762
175754

NOP

753
754

AAAA AR AR

;*TEST 2

755
756

757
758
759
760
761
762
763
764

765
766
767
768
769
770
44
772
773

774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792

PC,NOG
#PR6,RO
#2011,R1
PC,NOG
#PR5 RO
#2005 ,R1
PC,NOG
#PR4 RO
#2003,R1
PC,NOG
#BIT11,@BETCRT
#BITOS,@BETCRT

;00 NOG
;MOVE PS=6 TO RO
;MOVE FUN 1-DATI-BR6 TO R1
;D0 NOG
;MOVE PS=5 TO RO
;MOVE FUN 1-DATI-BR5 TO R1
;D0 NOG
;MOVE PS=4 TO RO
;MOVE FUN 1-DATI-BR4 TO R1
;00 NOG
;SET BIT 11 TO DO FUN 3
;SET OFF DEV AT NPR LEVEL

sALLOW TIME

ARl

FOR XFER

dd)

ISSUING OF NON-PROCESSOR GRANTS AND ARBITRATION TESTS

s*THIS TEST WILL REQUEST ON NPR THRU BR4 LEVELS

;*WITH THE PROCESSOR STATUS INITIALLY AT LEVEL 7 AND MAKE
;*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 O TO ALLOW
;*ARBITRATION OF ALL REQUESTS AND THE ISSUING OF NPG

MLAAAAAAAAAAAAAL AR

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:
NPRTST:

012700

000340

123737
100451

001115

001103

012737
012777
012777
012777
012777
012777
010037

000340
004730
000340
020342

177776
175772
175766
175702

002077
177776

175670

022777
001014
017737
017737
012737
010037

177777

175652

175650
175636

000340
001166

001160
001162

162700
020027

000040
000000

104003

100323

177777

175672

R ARl
sd)

MoV

#PR7,.RO

CMPB
8MI
MOV
Mov
MoV
Mov

SERMAX,SERFLG
TST3
#PR7,PSW
#ERRCHK ,@BET1VEC
#PR7 ,@BE1PSW
#ATEND,@BE1BA

;MAX ERRS FOR THIS TEST OCCURRED?
::BR IF YES TO NEXT TEST
;INITIAL PS
;SET UP VECTOR LOCATION
sSET UP DEVICE INTR PSW
;SET UP ADDR REG

MOV
mov

#2077 ,@BET1CR1
RO,.PSW

;LOAD #2077 FUNTIONS
;LOWER PROC STATUS

CHP

ARl

SCOPE

Mov

001164

AR AR

#-1,8BE1CC

#-1,3BE1CC

;SET CYCLE COUNT =1

;SEE

IF DEVICE WENT OFF

BNE
MoV
MOV
MoV
MOV

5%
@BET1CR1,SREGO
@#BE1CC,SREG
#PR7,SREG2
RO,SREG3

SuB
CMP
BPL

#40,R0
;LOWER PS BY 1 LEVEL
RO,#PRO ;SEE IF RO IS LESS THAN 0
23
sIF PLUS ,GO BACK AND DO ANOTHER CYCLE

ERROR

sI1F 1T DID,SKIP ERR TYPEOUT
;NEXT MOVES ARE FOR TYPEOUTS

;TYPE ERROR MESSG

;*TEST 3

ISSUING OF BUS GRANT 7 AND ARBITRATION TESTS

;*THIS TEST WILL ARBITRATE FOR A BG7,

;*THE REQUESTS WILL BE ON LEVELS BR7 THRU BR4, DOING
;*FUN 1=DAT] 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
811
812
813
814
815
816

817
818
819
820
821
822
823

30A(1052)

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

;*LOWERED SEQUENTIALLY FROM 7 TO 0.

MALAAAAAARAAAAAAAA
AR A A A AR AR AR ARttt Rl ]

003774
003776
003776
004002
004002
004010
004012
004020
004026
004034
004042
004050
004056
004062
004070
004072
004100
004106
004114
004120
004122
004122
004126
004132

000004

TS13:
SCOPE
T:
BR7TS
b
MOV

012700

000300

123737
100451
012737
012777

001115

001103

000340
004730
000340
020342

002037

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

162700
020027
100323

177777

177776

#PR6,RO

;2ND PS WILL = 6

177776
175632
175626
175542

CMPB
BMI
MOV
MOV
MOV
MOV

SERMAX,SERFLG
TST4
#PR7,PSW
#ERRCHK ,@BE1VEC
#PR7,3BE1PSW
#ATEND,@BE1BA

;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

175530

MOV

#2037 ,3BE1CR1

:LOAD #2037 FUNTIONS

175532

177777

175512

175510
175476
000340
001166

001160
001162
001164

MOV

000040
000000

#-1,9BE1CC

RO,PSW

;SET CYCLE COUNT = 1

:LOWER PROC STATUS

CHP
BNE
MOV
MOV
MOV
MOV
ERROR

#-1,3BE1CC
5s
@BEI1CR1,SREGO
@BE1CC,SREG]

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

;TYPE ERROR MESSG

SuB
CHp
BPL

#40,R0
RO,#PRO ;SEE
28

#PR7,SREG2
RO,SREG3

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

;""l"tl"'""""""'Q"""Q"""'..'....'...'.."."Q'QQ

;TEST &

824

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-DATI TRANSFERS, AND THE PROCESSOR STATUS

:*LOWERED SEQUENTIALLY FROM 6 TO 0.

)
T
e
Y
e

33388 gaasassssass 7

YoSKERN aoR NEBRVERREER

;"'t""'.."""""t"""""""""'.'..".'t.".'t""'l.

000004

TST4:

012700

000240

123737
100451
012737
012777
012777

001115

001103

000300
004730
000340
020342
177777
002017

177776
175472
175466
175402
175372
175370.

177777

175352

175350
175336

001160
001162

012777
012777
012777
010037

022777
001014
017737
017737
012737
010037

177776

000300
001166

SCOPE

BROTST:
MOV

001164

#PRS,RO

;2ND PS WILL = §

CMPB
BMI
MOV
MOV
MOV
MOV
MOV
MOV

SERMAX,SERFLG
1S15
#PR6,PSW
#ERRCHK ,@BE1VEC
#PR7,.BEIPSW
#ATEND ,@BE1BA
#-1,3BE1CC
#2017, ,@BE1CR1

;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 #2017 FUNTIONS

CHP

#-1,8BE1CC

;SEE

MOV
MoV

@BE1CR1,SREGO
@BE1CC,SREG!

:NEXT MOVES ARE FOR TYPEOUTS

MoV

BNE

MOV
MoV

RO,PSW

#PR6
, SREG2
RO,SREG3

:LOWER PROC STATUS

:1F

IF DEVICE WENT OFF

17 D1D,SKIP ERR TYPEOUT

SEQ 0023

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02
849
850
851
852
ggz

004260
004262
004262
004266
004272

30A(1052)

104005
162700
020027
100323

5%:

000040
000000

ERROR

suB
CMP

#40,R0
RO,.#PRO ;SEE

BPL

855

03-MAY-78
14:28 PAGE 19
T4
ISSUING OF BUS GRANT 6 AND ARBITRATION TESTS
;TYPE ERROR MESSG

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

856

MAAAAARAAA AR AR AR AR ARl

857
858
859
860
861

;*TEST §

862

ISSUING OF BUS GRANT 5 AND ARBITRATION TESTS
;*THIS TEST WILL ARBITRATE FOR A BGS,
;*THE REQUESTS WILL BE ON LEVELS BR5 THRU BR4, DOING
;*FUN 1-DATI TRANSFERS, AND THE PROCESSOR STATUS
;*LOWERED SEQUENTIALLY FROM 5 TO 0.

MUAAARAAAAAAAAAR AR AR

863
864
865
866
867
868
869
870
871
872
873
874
g;z

004274
004276
004276
004302
004302
004310
004312
004320
004326
004334
004342
004350
004356

877
878
879
880
881
882
883
884
885
886
g:;

004362
004370
004372
004400
004406
004414
004420
004422
004422
004426
004432

000004

TSTS5:
BR5TST:

012700

000200

123737
100451
012737
012777
012777
012777
012777
012777
010037

001115

001103

000240

177776

177777
002007
177776

175232
175230

022777
001014
017737
017737
012737
010037
104006

177777

175212

175210
175176
000240
001166

001160
001162
001164

162700
020027

100323

004730
000340
020342

28:

175332
175326
175242

5%:

000040
000000

:2ND PS WILL = &

CMPB
BMI
MOV
MoV
MOV
MOV
MoV
MoV
MoV

SERMAX,SERFLG
TST6
#PRS5,PSW
#ERRCHK ,@BETVEC
#PR7 ,8BE1PSW
#ATEND,@BE1BA
#-1,8BE1CC
#2007 ,@BE1CRT
RO,PSW

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

CHP
BNE
MoV
MOV
MOV
MOV
ERROR

#-1,38BE1CC
5%
@BET1CR1,SREGO
@#BE1CC,SREGT
#PRS,SREG2
RO,SREG3
6

sSEE IF DEVICE WENT OFF
s1F IT DID,SKIP ERR TYPEOUT
;NEXT MOVES ARE FOR TYPEOUTS

suB
CHP

#40,R0
;:LOWER PS BY 1 LEVEL
RO,#PRO ;SEE IF RO IS LESS THAN 0
2%
:1F PLUS ,GO BACK AND DO ANOTHER CYCLE

891
892
893
894
895

:*TEST 6

000004

012700

000140

123737
100451
012737
012777

001115

001103

000200
004730

177776
175172
T

TST6:
SCOPE
BR4TST:
MoV
28:
CMPB
BMI
MOV
MoV
———

;TYPE ERROR MESSG

RN R RN RRRRRRRRRRRCEROERRRRRRRNRRRORRRRRROERRRORNRRRNRTSE

ISSUING OF BUS GRANT & AND ARBITRATION TESTS
s*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 0.

JERRRRRRR NN

004434
004436
004436
004442
004442
004450
004452
004460

#PR4 RO

JERRRRNRRRNN RN

897
898
899
900
901
902
903
904

MoV

'90

SCOPE

BPL

889

AR d)

RERRRRRRRRRRERERRRRRORRRRRRRRORRRRRRRRORORRROEROERRORRNRTS

#PR3,RO

:2ND PS WILL = 3

SERMAX SERFLG
;MAX ERRS FOR THIS TEST OCCURRED?
1817
;:BR IF YES TO NEXT TEST
#PRG ,PSW
;INITIAL PS
#ERRCHK ,@BETVEC ;SET UP VECTOR LOCATION

e
——

SEQ 0024

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

905

30A(1052)

004466
004474
004502
004510
004516

012777
012777
012777
012777
010037

000340
020342
177777
002003
177776

004522
004530
004532
004540
004546
004554
004560
004562
004562
004566
004572

022777
001014
017737
017737
012737
010037

177777

175052

175050
175036
000200
001166

001160
001162
001164

104007

162700
020027
100323

03-MAY-78

14:28

SEQ 0025

ISSUING OF BUS GRANT & AND ARBITRATION TESTS

MOV
MOV
Mov
MOV
MoV

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

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

CMP
BNE

#-1,3BE1CC
5%
@BETCR1,SREGO
@BE1CC,SREGT

sSEE IF DEVICE WENT OFF
;IF IT DID,SKIP ERR TYPEOUT
;NEXT MOVES ARE FOR TYPEOUTS

MOV
MOV
MOV
MOV

ERROR

000040
000000

suB
CMP

BPL
AR

L4
PAGE 20

#PR4 ,SREG2

RO,SREG3

:TYPE ERROR MESSG

#40,R0

:LOWER PS BY 1 LEVEL

RO,#PRO ;SEE

IF RO IS LESS THAN 0

23
AR

AR AR R

:IF PLUS ,GO BACK AND DO ANOTHER CYCLE

dd]

JRRRRRRARRARRRRERERRRERRRRORROERERNORORRORARRARNRRCORAONRAAARANORERS

;*TEST 7

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

JERRRRARRRERRRRERNERRERNRERRENRRNRRRROORCERNRRARARRARRAOENRRRRRRRNS

000004

004737
012777
012777
012737
012737
012777
012777
052777
012777
012737
004737
0462777
105777
100024

017737
017737
104012
000414

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

174672

174670

TST7:
174772
174766
177776

SCOPE
JSR
MOV
MoV

PC,CLRREG
#-1,8BE1CC
#ATEND ,@BE1BA

sCLEAR CONTENTS OF ALL AVAILABLE DEVS
;SET CYCLE COUNT =1
;SET UP DEVICE REG ADDR

MoV
MoV
MoV

#TYMOUT ,ERRVEC
#ERRCHK ,@BET1VEC
#PR7 ,8BE1PSW

;SET UP TIME OUT VECTOR
;SET UP DEVICE INTR VECTOR
;SET UP DEVICE INTR PSW

MOV

000004
175020

175014
174736
174724
177776

BIS
MOV
MoV
JSR

174710

BIC

TSTB

001160
001162

#PR7 ,PSW

#BITO3,3BE1CR2
#6003,8BE1CRT

;INHIBIT SACK RETURN
;DO FUN 3--BR4

#BITO3,@BE1CR2

;ALLOW FUTURE SACKS

#PR3,PSW
PC,CNTR
#BE1CR2

BPL
MOV

TST10
@BET1CR1,SREGO

ERROR
BR

12
TST10

MOV

;SET PS=7

@BET1CR2,SREG1T

sLOWER PROC. STATUS TO 3
sDELAY FOR TIMEOUT
sCHECK IF NO-NO SACK BIT IS SET

:;1F NOT SET, GO TO NEXT TEST
;MOVE FOR TYPEOUT REASONS
;MOVE FOR TYPEOUT

sERROR IF SET-DEVICE FORCED TO SEND SACK
::60 TO NEXT TEST

JEtRRRRRRRRERRRRRRRERRERRRRRERRCORRRRRRRRRRORRRORARRRRRRRRARRORORRRORETS

JERRRRRRRRRRRRRERANRRRRRRCERRCERRRRCRRRERRRRORARONRERRANORRRRROORRRETSE

033777
001407
011637
012737
004737
000002

001574

174654

001172
000001
010406

001204

ERRCHK:

BIT
BEQ
MOV
MoV
JSR
RTI

ALLERR,@BETCR2 ;CHECK FOR ANY ERRS IN CR2
5%
sIF NONE, EXIT
(SP) ,SREGS
sFOR TYPEOUT OF PC

1 ,8THP4
PC.ERRTN

sINDICATOR FOR DEVICE 1
sCHECK TO SEE IF ANY ERRORS OCCURED
SEXIT

TRAP

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

30A(1052)

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

SEQ 0026

961
962

."t'tti".""""t""""'ii"""""""t".'.t.t.'t."'.'..

964
965
966
967
968
969

;+TEST 10
CPU TEST FOR RECEIVING SACK
;*THIS TEST IS TO INSURE THAT THE CPU CAN RECEIVE THE

;*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
;*1T IS ASSUMED THAT DEV 1 TIME DELAY IS SET FOR 10 US

970

g;;

004760

000004

973
974
975
976

004762
004770
004774
005000

012737
004737
012702
012705

g;;

979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
1383

005004

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

:'t'""'"'"""""ti""""""".i"t."'t.t'."'..'.'.t"

TST10:
177776

004737

000340
002700
020342
000010
011030

012777
012777
012777
012777
052777
012777
012737

004730
000340
177770
020342
040000
024441
000000

174642
174636
174550
174544
174544
174532
177776

105777
100375
042777
022777
001407
017737
012737
104034

174520

032777
001402
104023
000400

MOV
JSR
MOV
MOV

#PR7,PSW
PC,CLRREG
#ATEND,R2
#10,RS

PS = 7
:CLEAR ALL DEVICE REGISTERS
:R2 WILL POINT TO END OF PROG
;RS = # OF TEST WORDS TO CREATE

MOV
MOV
MOV
MOV
BIS
MOV
MoV

#ERRCHK ,@BE1VEC
#PR7,3BE1PSW
#-10,BE1CC
#ATEND ,@BE1BA
#BIT14,3BE1CR2
#24441,3BE1CR1
#PRO,PSW

;SET UP VECTOR LOCATION
:SET UP DEVICE INTR PSW
;SET UP CYCLE COUNT
:SET UP ADDR REGISTER
;SET BIT 14 OF CR2 FOR TIME DELAY
:DO FUN 2-DATIP/NO ROL-NPR
:LOWER PS TO ALLOW INTERRUPTS

TSTB
BPL
BIC
CMP
BEQ
MOV
MOV
ERROR

@BE1CRI
5%
#BIT14,3BE1CR2
#10,3BE 108
108
@BE1DB,SREG1
#10,SREG2
34

;SEE IF DONE BIT SET
:1F NOT, GO BACK AND WAIT
:ELSE CLEAR BIT 14 OF CR2
:DID LAST XFER MOVE 10 INTO DB
:1F 1T DID,GO TO 108
;ELSE MOVE FOR ERR TYPE OUT

;TYPE ERR MSSG

BIT
BEQ
ERROR
BR

#BIT11,3BE1CR2
TST11
23
TST11

;SEE IF NO SSYN ON INTR ERR SET
::1F NOT SET, GO TO NEXT TEST
;ELSE TYPE ERR MSSG
::THEN GO TO NEXT TEST

JSR

040000
000010

174514
174474

174466
000010

001162
001164

004000

SCOPE

174460

108:

PC.DOUP

;CREATE THOSE TEST WORDS

1001

1002

."'""""""'""""""""'".""Q"..."."'..'.'...Q"Q

1003
1004
1005
1006
1007
1008

SeTEST 11
PASSING OF GRANTS AND INTERRUPT TEST
;*THIS TEST WILL SET OFF ALL AVAILABLE DEVICES SIMULTANEOUSLY
;*WHOSE ONLY FUNCTIONS WILL BE TO INTERRUPT, THE REQUESTS
;eWILL ALL BE AT LEVEL 7 SO TWAT THE DEVICE CLOSEST TO THE CPU
:*SHOULD RECEIVE BG7 FIRST AND INTERRUPT FIRST, THE NEXT
;*CLOSEST SHOULD INTERRUPT NEXT AND SO ON.

1010
1011
1012
1013
1014
1015
1016

005140
005142
005150
005154
005154
005160
005166

“"."""""""""""""'."".""...".Q""'.'.'.""..

000004
012737
004737

000340
002700

012704
012777
012777

001702
005402
000340

177776

TST11:

LOAD!:
174472
174466
—

SCOPE
MOV
JSR

#PR7,PSW
PC,CLRREG

;PS=7
:CLEAR CONTENTS OF

MoV
MOV
MOV

#DEVS , R4
#INTR,@BETVEC
#PR7,3BEIPSW

:DEVS CONTAINS SEQUENCE OF INTR'G DEVICE ADDRS
:SET UP DEVICE 1 INTR VECTOR
;SET UP INTR PSW

—

4aLL AVAILABLE DEVS

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02
1017
1018
1019
1020
1021
1022
1023
1024
1C¢5
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
10642
1043
1044
1045
1046
1047
10‘8

1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070

}8;5

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
005402
005402
005404
005410
005416
005420
005420
005422
005426
005434
005436
005436
005440
005444
005452
005454
005454
005456
005462
005470
005470
005474

005500

30A(1052)

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

000036
000001

174404
001700

005420
000340
000036
000002

174444
174440
174366
001700

LOAD2:

005436
000340

LOAD3:

000036
000003

174416
174412

174350
001700

012777
012777
012777

005454
000340
000036

174370
174364
174332

005001
005277
012737
004737
020137
001456
013737
013737
013737
013737
104010
000440

174250

000000
011046
001700

177776

001702
001704
001706
001710

001162
001164
001166
001170

005201
013724
012737
000415

001614
000002

005201
013724
012737
000406

001630
000003

011637
004737
000002

GO:

#36 ,3BE1CRT
#1,DEVCNT
GO0
#INTR2 ,@BE2VEC
#PR7 ,3BE2PSW
#36 ,8BE2(RT
#2 ,DEVCNT
GO
#INTR3 ,@BE3VEC
#PR7 ,3BE3PSW
#36 ,8BE3CRT
#3,DEVCNT
GO

;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

Mov
MoV
Mov

#INTRGL ,@BE4AVEC
#PR7 ,3BE4LPSW
#36 ,3BE4CRT

;SET UP DEVICE & INTR VECTOR
sSET UP DEVICE & PSW VECTOR
;00 FUN 0 = BR7 THRU BRé

R1
@#SIMLGO
#PRO,PSW
PC,CNTR
R1,DEVCNT
TST12
DEVS,SREG1
DEVS+2,SREG2
DEVS+4 ,SREG3
DEVS+6,SREGS
10
TST12

;CLEAR R1 FOR COUNTING
;SET SIMULTANEOUS GO REGISTER
;LOWER PS TO ALLOW INTERRUPTS
sALLOW TIME FOR INTERRUPTS BY COUNTING
s COMPARE THE TWO
:;1F BUFFERS INCREMENTED IN CORRECT SEQUENCE, GO TO NEXT
sMOVE FOR TYPEOUT REASONS
;MOVE FOR TYPEOUT REASONS
;MOVE FOR TYPEOUT REASONS
;MOVE FOR TYPEOUT REASONS
;TYPE ERR MSSG
::G0 TO NEXT TEST

CLR
INC
MoV
JSR
CMPARE: (MP
BEQ
MoV
MoV
MoV
Mov
ERROR
BR
INTR1:

001600
000001

(005201
013724
012737

LOAD4:

001204
INTR2:

001204
INTR3:
001204
INTRG:

001644
000004

001172
010406

001204

INTRTN:

SEQ 0027

MoV
CMPB
BEQ
MOV
MoV
MOV
(MPB
BEQ
MOV
MOV
MoV
CMPR
BEQ

A AAL AR AR ARl Rl
AR
AL AR R RR
AR
AR

005201
013724
012737
000424

03-MAY-78
14:28
PAGE 22
TM
PASSING OF GRANTS AND INTERRUPT TEST

R
ARt
ARttt

])

RRRT])

INC
MoV
MOV
BR

R1
BE1DB, (R4) +
#1,8TMP4
INTRTN

;ADD 1 TO COUNTER ON INTR
;MOVE ADDR FOR TYPEOUT
;INDICATOR FOR DEVICE 1
:BRANCH TO REST OF INTR RTN

INC
MOV
MOV
BR

R1
BE2DB, (R4) +
#2,8TMP4
INTRTN

;ADD 1 TO COUNTER ON INTR
sMOVE ADDR FOR TYPEOUT
;INDICATOR FOR DEVICE 2
;BRANCH TO REST OF INTR RTN

INC
MOV
MOV
BR

R1
BE3DB, (R4)+
#3,8TMP4
INTRTN

;ADD 1 TO COUNTER ON INTR
;MOVE ADDR FOR TYPEOUT
:INDICATOR FOR DEVICE 3
sBRANCH TO REST OF INTR RTN

INC
MoV
Mov

R1
BE4DB, (R4) +
#4,8TMP4

:ADD 1 TO COUNTER ON INTR
sMOVE ADDR FOR TYPEOUT
;INDICATOR FOR DEVICE 4

MOV
JSR
RTI

(SP),$REGS
PC,ERRTN

;FOR TYPEOUT OF PC
:SEE IF ERROR CAUSED INTR
JEXIT

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

Y
T
N

D
D

NNRNRNNMNONNIN
= b b= LB ad aa=ea000
ONOWVB WSOV
YOV
WNN—=O VN

)
g

R
e SR

S
W

d
d
—

d e

d —d e

D e

)

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

30A(1052)

03-MAY-78

PAGE 23

PASSING OF

TeTEST 12

14:28

GRANTS AND

INTERRUPT

TEST

SEQ 0028

i i3
222 ]

ADDRESS LINES

(14 - 17)

CHECK

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

MARAAEAE

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
174134
174130

SCOPE

D014:

174034
174026

174014

011074

001172
000001
007340

017737
017737
017737

173746
173744
173730

104011
004737
000002

BRK:

001204
173766

173756
001162
001164
001166

010406

18:

005666
005670
005676
005702
005704
005710

000004
012737
005737
001061
012705

000001
000042
000001

001210

TST13:

R R R RN

;ELSE SET BITS 0 AND 1 OF CR2
;SETS ADDR LINES 16 & 17
;:60 TO NEXT TEST

R R R RS

#1,8TMP4

Rttt

(SP) ,$REGS

1;340.CBE1CR2

BIT
BNE
CLR
BR

@BE1CLR
EXBRK

ERROR
JSR
RTI

@BE1CR1,$REG
#BE1CR2,$REG2
??E1BA.SREG3
PC.ERRTN

ittt ittt

;FOR TYPEOUT OF PC
;INDICATOR FOR DEVICE 1
;CHECK FOR ALL ERRS EXCEPT NO SSYN ERR
:IF ANY ARE SET,SEE WHICH ONES
;ELSE CLEAR THE NO SSYN ERR
;AND EXIT

;MOVES ARE FOR TYPEOUTS

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

ARl a0
RdE)

CPU TEST FOR ACLO/DCLO SEQUENCE

s*THIS TEST CHECKS THE ASSERTION OF ACLO AND DCLO
s*AND THAT THE CPU TRAPS TO THE CORRECT SERVICE ROUTINE,
;*IF THIS PROGRAM IS RUNNING UNDER ACT11 THIS TEST
;*WILL BE SKIPPED.

AR AR RS

SCOPE

MoV
TST

BNE

6%:

PC,ADLI

MOV
MOV

J*TEST 13

MAAAAAE

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

#3,3BE1CR2

ARl

AL AAA RS AR

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

PC,ADLI

#1,3aBE1CR2
PC,ADLI
#1,3BET1CR2
#2,aBE1CR2

MOV
MoV
Mov

EXBRK:

*SET UP DEVICE PSW VEC

TST13

R R

DEVS

SSET UP DEVICE INTR VEC

PC,ADLI

JSR
BR
AL EAL

011637
012737
032777
001003
005077
000414

#PR3,PSW
#BRK ,aBE1VEC
#PR7 ,3BE1PSW

JSR
BISB
JSR
BIC
BISB
JSR
BISB

174046

:ggsén CONTENTS OF ALL AVAILABLE

PC,CLRREG

JSR

MOV
MoV
MoV

SRR

005604
005604
005610
005616
005624
005626
005632
005634
005634
005642
005650
005656
005660
005664

AR ARt
E)

MOV

#1,$TIMES
42
TST14

#1,R5

R AR
]]

;:00 1 ITERATION
;SEE IF PROGRAM IS UNDER ACT11
;s
1F UNDER ACT, DO NOT PERFORM THIS TEST
;INIT RS WITH A VALUE OF 1

MACYTT
26-APR-78 17:02

EXERCISER

N~ NNNNNNNNOAOOOOOOOOOVIVIVIVIVIVIVIVIVIVIE
DSBS
WNHWWWWWWWKNW W
NO VMBS WN<SOOVOENOWVMS W =0V
NV
WN =0V
NOWVNSWN 2OV
NOWVNESWND = (=]

i
i

i
D

i
D
i

i
i
i

d
i

)

D
i

e
i

i
D

;SET UP DEVICE INTR PSW
:CLEAR TEMPORARY REGISTER(TMP1)

020332

020320

001152
000020
020202

MOV

#PURFAL ,PWRVEC

;RESTORE

CMP

#SNULL ,SPWRMG

BEQ

XTST

;IF THIS TEST IS CAUSE OF
;PWR FAIL ==TYPE NULL CHAR
;IF EQUAL, EXIT TEST

MOV
BR

#SPOVER,SPWRMG
TST14

;RESTORE TYPE OUT OF
::60 TO NEXT TEST

AAEAE AR

020320

PC,CNTR

#BIT04,3BETCR2

:PAUSE FOR TIME

PWRFAL

SEQ FOR A PWR FAIL

;MAKE SURE BIT 4 IS CLEARED

;TYPE ERR MSSG IF FAILURE

AR
AR

'POWER'

R AR
sd)
Al

ARl iRttt
ls)

;SPECIAL PWR RTN; OTHER THAN SYSMAC'S

MOV
BIC
JMP

173550

;SET UP SPECIAL POWER RTN

;INDICATE PWR FAILURE BY SETTING BIT 4

AR AAE AL AR

012737
042777
000137

#BIT04,3BETCR2

BIC

006026
006026
006034
006042

#TMPPWR ,PWRVEC

;INDICATOR FOR DEVICE
;SET PS=7
;SET UP INTR VECTOR

#SNULL ,SPWRMG ; CHANGE PWR MSSG TO NULL CHAR
#BIT04 ,@BET1CR2
;CLEAR POWER DOWN/UP BIT
$PWRDN
;GO TO THAT RTN

#PR7 ,@BE1PSW
$TMP1

ERROR

D e

d e

MOV
CLR

#1,8THP4
#PR7,PSW
#ERRCHK ,@BETVEC

JSR

104013

012737
000410

;ADD 1 TO RS
;KEEP ADDING AS LONG AS R5 ~0S

BIS

001401

MAAAALAS AR iRttt

J*TEST

020320

001152

022737

RS
6%

MOV

173626

SEQ 0029

INC
BPL

MoV
MOV
MOV

000024

=O OV
S

CoCo OO0

14
s*THIS

PARITY ERROR TEST
TEST WILL CAUSE PARITY ERROR AND CHECKS

:*THAT THE CPU TRAPS TO THE CORRECT VECTOR.

s*THIS TEST SHOULD BE DESELECTED IF THE MEMORY
;*PARITY OPTION IS NOT PRESENT, ELSE AN
;*ERROR WILL BE REPORTED ALTHOUGH HARDWARE IS
s*FUNCTIONING PROPERLY.
;*SW06=1
INHIBIT TEST 14 AND GO TO NEXT TEST

00024
173606

004730

001204
177776
173722
173716

D o

000340
007176
006026
000020
011046
010342
000020

000001
000340

012737
012737
012777
012777
005037
012737
052777
004737
012737
042777

006012
006014
006016
006016
006024

100376

e
D

006004
006004

005205

d
D

i
D

D
i

i
nd
e
d
d

D
i

d
e

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

D o

—

P11

0
3
30A(1052)T1 g3-HAY-78
14;28 PAGE 24
CPU TEST FOR ACLO/DCLO SEQUENCE

AR AAE AR AR AR AR

006046
006050
006056
006060
006066
006074
006100
006102
006106
006112
006114
006122
006130

006136
006144
006152
006160
006166

000004
032777
001105

000100

173060

012737
012737
005037
000270
006737
005737

006270
000340
001202

000010
000012

012737
012777
012737
012737
012777
012777
052777
005777

000140
006234
006256
000340
020342

100033

BIT
BNE

MoV
MoV

CLR

SEN

001202
001202

177777
010000
173420

SCOPE

177776
173530

000114
000116
173432
173422
173424

#BIT06, asWR
TST15

#N0DO0,10
#PR7,12

$TMP3

INHIBIT TEST 14?
;GO TO NEXT TEST
:SET UP RESERVED INSTR VECTOR
;PSW=7

;SET STMP3 = 0
;SET N BIT OF

SXT
TST
BPL
MoV

$TMP3
$TMP3
NXT
#PR3,PSW

:IF VALID INSTR, $TMP3 WILL = -1
;IF INVALID, STMP3 WILL REMAIN 0
:1F CP NOT= 35,40,45,0R 70,G0 TO NEXT TEST
;PS=3

MOV

#PBRTN,PBVEC

;SET UP PARITY BIT

Mov
Mov

#ATEND,@BE1BA
#-1,3BE1CC

Mov

MOV

BIS
TST

#PBERR,@BETVEC

#340,PBPSW

#BIT12,@BETCR2
aBE1CR2

;SET UP DEVICE

INTR

VECTOR

;SET UP PARITY BIT PSW
;SET UP ADDR REG
sSET UP CYCLE COUNT

;SET BIT 12 FOR PARITY ERROR

;SET OFF PARITY ERR SEQUENCE

e
e

i
d
D
e

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)

03-MAY-78
14:28
PAGE 25
T4
PARITY ERROR TEST

173406

000114
000116
000010
000012

NXT:

CONO VSN —

D
— ol

- o

D
D
e

#PBPSW,PBVEC
#0,PBPSW
#12,10
#0,12

;RESTORE

MOV

(SP) ,$REGS

TST15

JSR

14
#1,8THP4
PC.ERRTN

AL AR

AR AR AR AR

;ALLOW TIME FOR ATTEMPTED XFER
;TRAP CATCHER HERE AND
;AT RESERVED

: INSTRUCTION VECTOR
;;BRANCH TO NEXT TEST IF PARITY TRAP OCCURRED
;FOR TYPEOUT OF PC
;TYPE ERR MSSG IF DEVICE

INTERRUPTED

;INDICATOR FOR DEVICE 1
sCHECK TO SEE IF ANY ERRORS OCCURED
SEXIT TRAP

ARl Rttt
iRttt

MAAAAL AL SRRl
lRRR
Rttt l)

oo
N

MOV
MOV
MOV
MOV

RTI

006256
006256

012777

000000

006264
006270

012716
000002

006202

173326

PBRTN:

NODO:

—

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

MOV

SEQ 0030

#13161,3BETCRY

ERROR

001204

MOV
NOP

PBERR:

—

e e

D e

—

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

1237
1238
1239

1240

ALL

MoV

#0,3BE1CR2

MOV
RTI

#NXT, (SP)

RS AR A

ARl

;PARITY BIT

TRAP RTN

;CLEAR PARITY BIT ERROR-MUST BE DONE

;BY MOVING 0(S) TO BE1CR2
;SET STACK FOR NEXT TEST

MULTITRANSFERS 1
;*TEST 15
;*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
;*ARE SET OFF SIMULTANEOUSLY

AL AAL

006272
006274
006300
006304
006310
006314
006322
006324
006330
006334
006334
006342
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
22703
001365
012703
012704

123737
100466
004737

004737
022703
001365
000456

TST1S:

001103

5%:

107070

167777

010000

010600
007500

167777

SCOPE
JSR

JSR
CMP
BPL

001700

010600
007500

001115

MOV
MOV

161610

001115

001103

108

MoV
MoV

(MPB
BMI
JSR
JSR
CMP
BNE

AlARttt
d])

PC,CLRREG

;SET DATA PATTERN = 0
;SET DATA PATTERN = ALL 1'S
;LOAD & EXECUTE ALL DEVICES
;ARE THERE MORE THAN 2 DEVICES?
;;IF 2 OR LESS, GO TO NEXT TEST
;ELSE LOAD R3 AND R4 WITH
;ANOTHER PATTERN

SERMAX ,SERFLG
TST16

:MAX ERRS FOR THIS

PC,ROTATE

PC,MULTI
#107070,R3

MoV
MOV

#167777 ,R3
#010000,R4

CMPB
BMI
JSR
JSR

SERMAX,SERFLG
TST16

CMP
BNE
BR

;CLEAR CONTENTS OF ALL AVAILABLE DEVS

#0,R3
#177777
,R4
PC,MULTI
#2 ,DEVCNT
TST16
#161610,R3
#016161,R4

PC,ROTATE
PC,MULTT

#167777 ,R3
108
TST16

TEST OCCURRED?

;:BR IF YES TO NEXT TEST
;ROTATE 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 THIS TEST OCCURRED?
::BR IF YES TO NEXT TEST
;ROTATE DATA PATTERNS

;LOAD & EXECUTE ALL DEVICES
;1S R3 = 167777 AGAIN?

:IF NOT,ROTATE AND DO AGAIN
;:G0 TO NEXT TEST

[

UNIBUS EXERCIS ER
MACY11
CZKUAD PN
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)

F
3
O03-MAY-78
14:28
PAGE 26
T15
MULTITRANSFERS 1|
AL AAL AR

ARl

MALAAE AR AR AR AR

MAALAEAL SRR

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

017737
162737
012737
000411

173136
000002
000003

001716
001716
001204

017737

173126
000002
000004

162737
012737
000423

162737
012737

005237
011637
004737
000002

001712
001712
001204

001720
001720
001204

001164
001172
010406

SERV1:

SERVZ:

:
NK

SRR R

006604
006612
006620
006626

000000
007344
000340
022342

006650
006656

012737
012777
012777
012777
012777
012777
022737
001467

006660
006666
006674
006702
006710

012777
012777
012777
012777
012777

007376
000340

006634

006642

004737

TST16:

020342
005000
011030
011142
002700

176000

015551
000001

177000

020342
002561

177776
173040
173034
172750
172740
172736

001700

A
A

T
AR

]

)

AND

;sMOVE ADDR

MOV
BR

#2,8TMP4
INK

sINDICATOR FOR DEVICE 2
;BRANCH TO INK

MOV
SUB

@BE3BA,DATA3
#2,DATA3

sMOVE ADDR IN BE3BA TO DATA3 AND
;SUB 2 TO GET ACTUAL ADDR

INK

#2.,DATA2

IN BEZ2BA TO DATAZ2 AND

;SUB 2 TO GET ACTUAL ADDR

#3,8TMPS4

sINDICATOR FOR DEVICE 3

MOV

aBE4BA ,DATASL

sMOVE ADDR IN BE4BA TO DATA4 AND

MOV

#4,8THP4

;INDICATOR FOR DEVICE 4

INC

$REG?2

AR AR

sBRANCH

#2,DATASL

R R R

s INCREMENT REG

sFOR TYPEOUT OF PC
sCHECK FOR ANY ERRS
JEXIT

TO INK

;SUB 2 TO GET ACTUAL ADDR

(SP) ,$REGS
PC,ERRTN

;*THIS

000004
012702
012705
004737
004737

aBE2BA,DATA2

J*TEST 16

006556
006560
006564
006570
006574
006600

A
A

MOV

RTI

;MOVE ADDR IN BET1BA TO DATA1
;SUB 1 TO GET ACTUAL ADDR
sINDICATOR FOR DEVICE 1
sBRANCH TO INK

MOV
JSR
AR AAE A

R
A

@BE1BA,DATA1
#1,DATA1
#1,8TMP4
INK

SuB

MOV
SuB
MOV
BR

MOV

SERVSG:

AR AR AR

SUB

SERV3:

SEQ 0031

R R RN R R R

MULTITRANSFERS 11

TEST WILL HAVE

THE

R R RN

AVAILABLE

R RN

AR RO

EXERCISERS DOING

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

R R R R R R R R RN RN R R

PR R R R R R RN

R AR

SCOPE
MOV
MOV
JSR
JSR
JSR

#ATEND ,R2
#5000,RS
PC,DOUP
PC,TSTOVR
PC.CLRREG

MOV
MOV
MOV
MOV
MOV
MOV
CMP

#PRO,PSW
:PS=0
#51,3BETVEC
;SET UP DEVICE 1 INTR VECTOR
#PR7 ,3BE1PSW
;SET UP DEVICE 1 PSW VECTOR
#ATEND+2000,3BE1BA
;SET UP ADDR REG
#-2000,@BE1CC
;SET UP CYCLE COUNT
#15551 ,@BETCRT
;DO FUN 2-DATOB FROM CC~-NPR-INTR ON DONE (6)
#1,DEVCNT
;CHECK FOR MORE THAN 1 DEVICE

:1F NOT, GO CHECK RESULTS

MOV
MOV
MOV
MOV
MoV

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

;SET UP
;SET UP
;SET UP
;SET UP
;DO FUN

BEQ

:R2 = END OF PROG
:R5 = THE # OF DATA WORDS
:CREATE THOSE WORDS IN BUFFER MEMORY
;SET UP PATTERN IN MEMORY BUFFER AREA
;CLEAR CONTENTS OF ALL AVAILABLE DEVS

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)

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

1300
1301
1302

1303
1304
1305

1324
1325
1326
1327
1328
1329

1330
1331
1332
1333
1334
1335
1336
1337
1338
1339

1347
1348
1349
1350
1351
1352

30A(1052)

03-MAY-78

T16

14:28

6.3

PAGE 27

MULTITRANSFERS

SEQ 0032

006716
006724

022737
001444

000002

001700

CMP
BEQ

#2 ,DEVCNT
1%

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

006726

012777

007430

172734

MOV
MOV
MOV
MOV
MOV
CMP
BEQ

#S3,3BE3VEC
#PR7 ,aBE3PSW

;SET UP DEVICE 3 INTR VECTOR
;SET UP PSW VECTOR
sSET UP CYCLE COUNT
;SET UP ADDR REG
:00 FUN 2-DATI-BR5
;CHECK FOR MORE THAN 3 DEVICES
;IF NOT, GO CHECK RESULTS

006734
006742
006750
006756
006764
006772

012777
012777
012777
012777
022737
001421

000340
176776
020342

172730
172662
172656

004005
000003

172652
001700

172666
172662
172624
172626
172614

#-1002,aBE3CC
#ATEND,aBE
3BA
#4005,aBE3CR1

:2.DEVCNT

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

sie
sIn

/e
sfe

/%
/e

gfnm
e

gfe
3%

3fn
)

3w
/e

)%
)@

A
i/
x

s/e
i/

i/
A

A
A

i/*
si®

sle
3¢

i/
x

i/
r
/

sfe
28

/%
gfe

sf:
sy

&fs
&z

of:
ufz:

uf:
&f:

»f:
sfz

&f:
w3

of:
of;:

&f;
&)

*/:
*/:

x/:
%/

*/:
*/:

v/:
*/:

o/
v/

*/:
e/:

x/:
o/:

*/:
*/:

*/:

007046
007052
007060
007064
007066
007072
007074
007102
007104
007104
007110
007114
007122
007124
007124
007132

022342
176000
001712

014237
010237
013737
104021

001162
001160
001164

022737
001470

000001

BIS
Mov

1%:

MOV

JSR

;BE1 TRANSFER CHECKS

012702
012737
023702
001417
023722
001004
062737
000766

CLR

Mov
MOV
Mov

001164

000002

001164
12%:

001700

148

;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
:IF EQUAL, GO CHECK FOR ANOTHER DEVICE
:IF NOT EQUAL, GO TO ERR MSSG
: INCREMENT REG2 AS CC WOULD
;AND GO BACK TO CHECK NEXT LOC

g?fG?.SREGS

;TYPE

#1,DEVCNT

ERR MSSG

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

TST17

afe

sje

3fe

sie

sfe

3fe

3/e

A
A

A
i/

/
i/

A
A

i/
A

A
i/

s/e
s/t

1/
/e

AT
2l ofs

TR
af:

VAR
of:

VAR
of;

YRR
of:

VERE
8/:

¥
o/

«/:
*/:

*/:
*/:

v/
x/:

t/:
v/

x/:
t/:

t/:
v/

t/:
x/:

*/:
*/:

t/:

007134
007140
007144
007146
007152
007154

012701
023701
001413
022721
001772
014137

;BE2 TRANSFER CHECKS

020342
001714
052525
001162

5%:

MOV

CMP
BEQ

Mov

#ATEND ,R1

DATAZ,R1
6%
#052525,(R1)+
5%
=-(R1),8REG

IN RZ

:MOVE R2 TO REG 5 FOR TYPEOUT

=(R2) ,SREG1
R2,$REGO

CMP
BEQ

;ELSE COMPARE EXPECTED RESULTS WITH THAT

#2 ,$REG2
108

ERROR

14%:

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

SREG2, (R2)+
12%

MOV
MoV
MOV

001166

#BE1CR1,RO
PC.BKGD

DATA1,R2

CMP
BEQ
CMP
BNE
ADD
BR

001164

#PR7 ,aBE4PSW
#-3000,aBE4CC
#BIT14,3BE4CR2
#21,3BE4CRT

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

#ATEND+2000,R2
#-2000, $REG2

MOV
MoV

10%:

SREG4
#54 ,@BESGVEC

;USE R1 TO POINT TO END OF PROG
;CHECK FOR 2000 BYTES PAST END
;IF EQUAL, EXIT
;ELSE COMPARE EXPECTED RESULTS WITH R1
:1F EQUAL, GO CHECK NEXT LOC
;MOVE R1 TO REG! FOR TYPEOUT

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

1353
1354
1355
1356
1357
1358

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

SEQ 0033

007160
007164

010137
012737

001160
052525

001166

007174
007202

022737
001444

000002

001700

si%
sT®

sin
%

s
3%

fe
in

3fe
%

sfe
e

v
fn

sfe
3w

3fe
sfe

e
)%

sf%
pfe

sfn
sfe

sfe
3fe

gfe
sfe

sfe
e

)
3f%

e
sfe

/e
:fe

sf:
sfs

uf3
Sfs

&f:
&fy

ufs
afy

uf:
&fs

uf:
Af:

of:
%z

w3
wfy

*f:
%fs

af:
&)

vf:
wfs

of:
&f3

&)z
&fy

&f3
®fs

af:
&f:

wnf:
wfs

&)
wfy

%/
wfs

@
®

88;};2

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

104020

;BE3 CHECK RGUTINE

105777
100401
000774

172426

022777
001407
017737
012737
104032

176002

172406

172400
176002

001162
001164

022737
001421

000003

001700

3fe
BEYA

/e
SRV

s/e /e /%
ANTAREYA
sl:
sf:

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

H
3
30A(1052)
03-MAY-78
14:28
PAGE 28
116
MULTITRANSFERS II

of:
of:

007252
007252
007256
007260
007266
007270
007276
007304
007306
007306

s f%
YA

sfe
BEVA

16%:

;BE4 CHECK ROUTINE

of:
af:

of:
of:

105777
100375
022737
001407
013737
012737
104033

042777

of:
nf:

&f:
of:

of:
of:

20%:

25%:

R1,$REGO
#052525,8REG3
20

JELSE

CmMpP
BEQ

#2 ,DEVCNT
TST17

sCHECK IF ONLY 2 DEVICES OPERATED
;:<IF EQUAL, GO TO NEXT TEST>

TYPE ERR MSSG

TSTB
BMI
BR

@BE3CR1
20%
16%

sCHECK IF DEVICE 3 DONE
sIF YES, CHECK NEXT DEVICE
sAND GO BACK TO SEE IF DONE YET

CmP
BEQ
MOV
MOV
ERROR

#-1776,3BE3DB
25%
@BE3DB, $REG1
#-1776,3REG2
32

sCHECK FOR CORR VALUE IN BE3DB
s1F EQUAL, SKIP ERR TYPE OUT
;MOVE FOR ERR TYPE OUuT

CmMpP
BEQ

#3,DEVCNT
TST17

sCHECK IF ONLY 3 DEVICES OPERATED
;s<IF EQUAL, GO TO NEXT TEST>

;TYPE ERR MSSG

3fe
SRV

/e
BEVL

/e
BEVE

sfn
BEVE

/e
BEVE

:fe
BEYVE

s /e
DRV

/e
BEVE

/e
BEYVE

[e 3 /e
BEVE BEY L

of:
vf:

&f:
vf:

&f:
of:

&f):
of:

&/:
of:

v):
«f:

%/:
8]:

«/:
&f:

8f:
8f:

&/:
8f:

@
»

22%:

172374

003000

001170

001170
003000

001162
001164

040000

L [0)')
MOV
ERROR

172342

268%:

%/:
8/

TSTB
BPL
CmpP
BEQ
MOV
MOV
ERROR

@BE4CR1
22%
#3000, $REG4
26%
$REG4,SREGT
#3000,8REG2
33

sTEST IF DEVICE & IS DONE
sIF NOT, GO BACK TO DELAY RTN
sCHECK IF REG4 COUNTED 3000 INTRS
;IF EQUAL SKIP ERR TYPE OUuT
sMOVE FOR TYPE OUT

;TYPE ERR MSSG

BIC

#BIT14 ,3BELCR2

;ELSE CLEAR TIME DELAY BIT

.'ttt'Q""t""""""""'""t"""""."Q'.t".""""t"

J*TEST

DUMMY END OF

PROGRAM

:tt't.'t'Q'""""'"""""""""""""'.'Q't.!"."t't"

007314
007316

000004
012737

007324
007330
007334
007336
007340
007340

017700
022700
001001
000000

171614
000210

000137

015446

00000"

001210

TST17:

108:

SCOPE
MOV

#1,8TIMES

;:D0 1

ITERATION

MOV
CmMP
BNE
HALT

#3$7kB,RO
#210,R0
10%

sMOVE READ BUFF CONTENTS TO RO
;DOES THE VALUE = "' KW' ?
;I1F NOT GO TO 108
JELSE HALT THE PROGRAM

JMP

$EOP

.'"'"""t"'""""""""""'""""Q."t"il"l"t""'i

JSET UP DEVICE

INTR VECTOR

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

1409
1410
1411
1412
16413
1414
1415
1416
1417
1418
1419

1420
1421
1422
1423

1424

30A(1052)

14:28
PAGE 29
DUMMY END OF PROGRAM

AL AALRAAS

007344
007344
007352
007360
007366

007372
007374
007376

007376
007404
007412
007420
007424
007426

03-MAY =78

AR AR

3
SEQ 0034

AR ARttt
Rldd)

-3 F

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

@BE1BA,DATA1

;MOVE ADDR IN BE1BA TO DATA1

MOV
TST
BPL

@BE1CR1
EXS

;TEST FOR ERROR
;IF PLUS, EXIT

SuB

S2:

Mov

SuB

MoV

TST
BPL
BR

#2,DATAT
#1,8TMP4

CHEX

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

;ELSE

FIND CAUSE OF

AND

INTR

@BE2BA ,DATA2

;MOVE ADDR IN BE2BA TO DATA2 AND

aBE2CR1

;TEST FOR ERROR

#2,DATA2
#2,8TMP4
EXS
CHEX

;SUB 2 TO GET ACTUAL ADDR
;SET INDICATOR FOR DEVICE 2
:IF PLUS EXIT
;ELSE FIND CAUSE OF

INTR

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

1425
1426
1427
1428

007430
007430
007436
007442

012737
005777
100015

000003
172174

30A(1052)

001204

O03-MAY-78
14:28
PAGE 30
Tz
DUMMY END OF PROGRAM
Mov
TST
BPL

#3,8TMP4

aBE3CR1
EXS

3
SEQ 0035

;SET INDICATOR FOR DEVICE 3
;TEST

FOR ERROR

;IF PLUS, EXIT

1429
1430
1431

007444
007446
007446

000410

005237

001170

30A(1052)

93-HAY-78
14:28
PAGE 31
m
DUMMY END OF PROGRAM
S4:

3
SEQ 0036

CHEX

;ELSE FIND CAUSE OF

INC

$REGS

;COUNT DEVICE 4'S INTRS

)

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

INTR

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

1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
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
007500
007500
007504
007510
007514
007520
007526
007534
007542
007550
007556
007564
007572
007574
007574
007602
007610
007616
007624
007632
007640
007642
007642
007650
007654
007662
007670
007676
007704
007712
007720
007722
007722
007726
007734
007742
007750
007756
007764
007764

012737
005777
100004

000004
172166

011637
004737

001172
010406

30A(1052)
001204

CHEX:

020342
005000
011030
011142
020342
176000
006422
000340
040000
042560
000001

012777
012777
012777
012777

006446
000340
020342
177000

012777
122737
001451

012777
010377
012777
012777
012777
052777
012777

122737
001421

171770
001700

000340
171754
006472
022342
177000
040000
003160

172022

000003

010477
012777
012777
012777
012777
012777

171716
000340
006516
024342
177000
003104

005277

171606

HAITAITA
HAITAREYA

YL
BEVE

BEVE
BEVE

(SP) ,$REGS

Mov

007770

012737

000001

001162

TYPEOUT OF

Attt

SRR AR

ARttt

MoV
Mov

JSR
JSR

MOV
MOV
MOV
MOV

BIS
MOV
CMPB
BEQ

3s:

CMPB
BEQ

MOV
MoV
MOV
MoV
MOV
MOV

i/x
i/

PROG

#5000,RS5

;RS = THE # OF DATA WORDS

#-2000,aBE1CC

sSET CYCLE COUNT FOR 2000 XFERS

PC,DOUP
PC,TSTOVR
#ATEND ,3BE1BA

sCREATE THOSE WORDS IN BUFFER MEMORY
JSET UP PATTERN IN MEMORY BUFFER AREA
sSET JREG ADDR= 1ST LOCATION AFTER END OF

#SERV1,@BET1VEC

;SET UP DEVICE

INTR VECTOR

#1,DEVCNT

sIF MORE THAN 1

DEVICE,

#PR7 ,3BE1PSW
#BIT14,8BET1CR2
#42560,8BE1CRT

sOTHERWISE BEGIN TESTING

#ATEND ,@BEZ2BA

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

#3160,38BE3CRT

LOAD

THEIR REGISTERS

;SET UP DEVICE 2 INTR VECTOR
sSET UP DEVICE 2 PSW VECTOR

sSET UP ADDR REG FOR SAME LOCATIONS AS DEVICE 1
sSET CYCLE COUNT FOR A 1000 XFERS
;DO DATIP/NO ROTATE=FUN 2-BR6=INTR ON DONE(6)
s1F MORE THAN 2 DEVICES, LOAD THER REGISTERS
sOTHERWISE BEGIN TESTING

;00 DATG~FUN 1-FROM DB~NPR=INTR ON DONE(7)

#3,DEVCNT
6%

sIF A 4TH DEVICE, GO AND LOAD REGISTERS
JOTHERWISE BEGIN TESTING

R4 ,aBE4DB

sMOVE PATTERN IN R4 TO DEVICE DATA REG

#PR7 ,3BE4LPSW

sSET UP DEVICE & PSW VECTOR

#SERVS ,@BE4VEC
;SET UP DEVICE & INTR VECTOR
#ATEND+4000,3BE4BA
;SET UP ADDR REG
#-1000,8BE4CC
JSET CYCLE COUNT FOR 1000 XFERS
#3104 ,8BE4CRT
;D0 DATO-FUN 1-BRS=INTR ON DONE

INC

aSIMLGO

A
i/

VA
g/e

MOV

#1,$REGT

REYE
/e

sSTART DEVICES SIMULTANEOUSLY
BEVE
s/e

BEYE
s/e

PROGRAM

sSET UP DEVICE PSW VECTOR
;SET BIT 14 FOR TIME DELAY ENABLE
;DO DATIP/DATOB=FUN 1-NPR-INTR ON DONE(7)

#PR7 ,3BE3PSW
sSET UP DEVICE 3 PSW VECTOR
R3,3BE3DB
sMOVE PATTERN IN R3 TO DEVICE DATA REG
#SERV3,@BE3VEC
;SET UP DEVICE INTR VECTOR
#ATEND+2000,8BE3BA
;SET UP ADDR REG
#-1000,8BE3CC
;SET UP FOR 1000 XFERS
#BIT14,8BE3CR2
;SET BIT 14 FOR TIME DELAY ENABLE

BIS
MOV

A
t/x

:R2 = END OF

dsd)

itld)

MoV
MOV

MoV
MOV
MOV

6$:

#ATEND ,R2

iRttt

ittt

#SERV2,8BE2VEC
#PR7 ,3BE2PSW

CMPB
BEQ

4%:

ARt

MOV
MOV
MOV
MOV
MOV

JBACKGROUND ROUTINE FOR MULTITRANSFERS 1
1487

;FOR

;ELSE FIND CAUSE OF INTR

PC,ERRTN

ARl

5%:

BEYVE BEYVE
BEVE BV A

:IF PLUS, EXIT

MALAALAARARA

172006
171744
171734
171736
171724
001700

171742
171732
171700
171670
171666

;TEST FOR ERROR

RTI

172056
172046
172116
172112
172034
172022
001700

024510
000002

sSET INDICATOR FOR DEVICE 4

MAAREAE AL SRR

MULTT:

172062
172056
172002
171772

SEQ 0037

#4,8THPS
@BE4CR1
EXS

Mmov
TST
BPL

JSR

EXS:

000002

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

O03-MAY-78
14:28
PAGE 32
7z
DUMMY END OF PROGRAM

BEVE BV L
3/fe 3 /e

;MOVE 1 TO TEMPORARY REG

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

oo NN
Pb
s W = OVENOWVESWN=O

S
S
R
R
TP
Y
- B
-

v Vi
i

1488
1489
1490
149
1492
1493

oo~

-t
-

1525
1526

007776
010002
010004
010006
010014
TANY
AT

A
A

st
2l

&)z
af:

5&550‘0‘“&
WN=OVo~N

wd
b
o
-l

101372

001162
001700

M3
03-MAY-78
14:28
PAGE 33
7
DUMMY END OF PROGRAM

Mov
COM
ROR
CMPB

78:
001164

SEQ 0038

#SREGT,R1
(R1)+
=(R1)
DEVCNT,SREG2

BHI

;SET UP R1 AS POINTER
s COMPLEMENT TEMP REG
sROTATE CONTENTS RIGHT
sCHECK IF ALL DEVICES ARE DONE

MAAAAE AL AR

ARl

;IF NOT,
iRl

CONTINUE WITH BACKGROUND RTN

ittt

s/t /e
TAIYA

/e
YA

/e
BEV.

3 fn
BEVA

2 fe
BEVA

fe
BEVA

%
BEVA

sfe
BEVA

/e
BEVA

fe
BEVA

s fe
BEVL

sfe
BEVA

/e
BEVL

3 /e
BEYL

/e
BEVE

of:
v/

of:
x):

vf:
)

vf:
x/:

vf:
xf:

vf:
w/:

uf:
xf:

vf:
w[/:

wf:
«/:

vf:
%)

vf:
%[/:

wf:
x/:

0f:
w[/:

&f:
%/:

@
%

sDEVICE 1 TRANSFER CHECKS
s THERE ARE NO CHECKS FOR BEZ2
of:
x/:

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

HARETA
HARETA

VAIETA YA
HAITARTA

VL
VA

BEVE
REYA

BEYVE
BEVE

BEVLE
BEVE

BEVE
BEVE

BEVE
BEVL

YL
BEYE

BV EEY L IEY L Y LY L
BEVE EEYE BEYE IEY L Y L

I
I

w/:
w/:

wf:
x/:

wf:
xf:

v/
xf:

w):
w/:

%)z
w/f:

x/:
wf:

wf:
wf:

w):
wf:

%
®

/s
2/
Vi
nahwha

012701
005121
006041
123737

30A(1052)

o/:
o/

010130

001012
023700
001422
122720
001006
023700
001414
000763

171566

BIC
MOV

001712
=5

022737

001447
122737
001773

001166

000001

001700

000002

001700

;BE3 TRANSFER CHECKS
wf:
wf:

042777
012700
023700
001411

020320
001773
010337
014037

wf:
wf:

040000
022342
001716

001166
001162

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

:1F NOT EQUAL, BR TO ERR MSSG
:1S THIS LAST BYTE COMPARE?
:1F SO, BR TO 9%
:ELSE COMPARE UPPER BYTE
:IF NOT EQUAL, BR TO ERR MSSG
:1S THIS LAST BYTE COMPARE?
:1F SO, BR TO 9%
:ELSE CHECK NEXT ADDR

:SUB 1 TO GET ERR ADDR

243'

TST

-(RO)

:SUB 2 TO GET ERR ADDR

mov

(RO) , SREG1

;MOVES ARE FOR ERR MSSG

001162

001160
052125

;COMPARE LOWER BYTE

~(RO)

005740

25%:

171504

108:

248

:G0 DO MOVES FOR ERR MSSG

MOV
MOV
ERROR

RO, SREGO
#052125,$REG3
15

CMP

#1,DEVCNT

BEQ
CMPB
BEQ

BIC
MOV
CMP
BEQ

CMP
BEQ
MOV
Mov

itlsdt)

;CLEAR TIME DELAY BIT
:START CHECKING FOR CORRECT XFERS

1STB

010037
012737
104015

#125, (RO)+

BNE
CMP
BEQ
CMPB
BNE
CMP
BEQ
BR

000124

000401

011037

CMPB

001712

105740

#BIT14,3BE1CR2
#ATEND RO

ittt

:1F ONLY ONE DEVICE

138
#2.,DEVCNT
25%

w):
x/:

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

x/:
«):

#BIT14,8BE3CR2
#ATEND+2000,RO
DATA3,RO
11%

R3,(RO)+
108
R3,$REG3
=(RO) ,SREGT

;ELSE TYPE ERR MSSG

xf:
x/:

x/:
®/:

;CLEAR TIME DELAY BIT OF DEVICE 3
;CHECK NEXT 2000 LOCATIONS
;CHECK FOR 1000 XFERS
:1F SO, CHECK NEXT BLOCK

;TEST FOR CORRECT PATTERNS
:IF NO ERR, CHECK ANOTHER LOC
:THE MOVE IS FOR TYPEOUT REASONS

UNIBUS EXERCIS ER
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

010164
010170
010172
010172
010200

010037
104016

001160

122737
001416

000003

AT t
sie 3/ t

s¥
s/

'/
*/:

*/:
*/:

010202
010206
010212
010214
010216
010220
010224
010230
010234
010236
010236

010240
010240
010242
010246

010252
010252
010254
010260
010264
010266
010272
010274

30A(1052)

t/x

012700
023700
001411
020420
001773
010437

014037
010037
104017

%/:

v/:

x/:

%/:

*/:
*/:

DUMMY END OF PROGRAM

MoV
ERROR

RO,$REGO
16

JELSE TYPE ERR MSSG

CMPB

#3,DEVCNT

sCHECK FOR MORE THAN 3 DEVICES

ARV
ARV

BEVABENE
SEVA YL

BEVA
BEVA

BEYEEEYE BEY L BV L B
BEVA BEVE BEVE EEY BV E

*/:

xf:

w):

/%
VA

*/:
*/:

024342
001720

BEQ

x/:

*/:

x/:

xf:

000207

sIF NO MORE DEVICES GO DO NEXT PATTERN

wf:

)

wf:

w/:

x/:

#ATEND+4000,R0O
DATA4 RO
13%

CMP
BEQ

138

SEQ 0039

13%

L [0)')
CMP
BEQ

128%:

001166
001162
001160

N 3
PAGE 34

14: 28

T17

001700

;BE4 TRANSFER CHECKS
*/:
%/

03-HAY 78

xf:

x):

LI
I

x/:

;CHECK NEXT BLOCK OF 2000 LOCATIONS
sCHECK FOR 1000 XFERS
sIF SO, CHANGE DATA PATTERNS & START OVER AGAIN

MOV
MOV
MOV
ERROR

R4, (RO)+
12%
R4 ,SREG3
-(RO) ,$REG
RO,SREGO
17

RIS

CLR
MoV
MOV

RO
#Q1,R1
#510,R2

;RO IS COUNTER
:R1 IS ADDR OF INTR RTN
:R2 IS DEV INTR VEC ADDR

R1,(R2)+

;LOAD

sELSE CHECK FOR CORRECT PATTERNS
sIF NO ERR, CHECK ANOTHER LOCATION

sTHE MOVE

IS FOR TYPEOUT REASONS

JELSE TYPE ERR MSSG

SLILTTIITLTIILITI LTI LI
LI T LT EEI L IR RL LR 00 00000000000 00001000001117
e Iy,
SHITTT
T IR RTIT
LRI LRI LR R LRI
TII
LI LL 2002000000
TIE
000 00000001111
TII
11

005000C
012701
012702
010122
012722
062701
005200
020037

001367
000207

STVEC:

010276
000510

MOV

000340
000006

MOV

#PR7,(R2)+

ADD

001700

#6.R1

AR A

;GET NEXT

INTR RTN

INC
CMpP

RO
RO,DEVCNT

s INC COUNTER
sARE ALL AVAILABLE VECS LOADED?

RTS

JELSE EXIT

BNE

INTR RTN INTO INTR VEC

;LOAD INTR PSW

:1F NOT, GO AND LOAD NEXT ONE

2 2223222222222

s 2222223322222

: THE FOLLOWING INTR ROUTINES SHOULD WANDLE 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

012737
000403

000003

001204
001204

001204

PROPERLY

CHECK OUT ALL DEVICES AND SET UP

THEIR

INTR VECTORS

Q1:
g:

03:
Q4:

MOV
BR

#1,8TMPS
XQ

JINDICATOR FOR DEV

MOV

#2,.8THPS

sINDICATOR FOR DEV 2

MOV
BR

#3,.8TMP4
XQ

;INDICATOR FOR DEV 3

UNIBUS EXERCIS ER
MACY11
CZKUAD PN
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

XQ:

010146
010046
012700
005001
042770
062700
005201
020137
103767
012600
012601
000137

;INDICATOR FOR DEV 4

JSR

PC,ERRTN

;GO TO ERR ROUTINE

AL AL

:
PWRFAL

Mov
MOV
MoV

001612
000020
000014

000000

5%:

CLR

BIC

ADD
INC
CMP
BLO
MOV
MoV
JMP

001700

020202

SEQ 0040

PROGRAM

¥4 ,3THPS

ALAAAAA AR AR

Mov

RTI
M

010342
010342
010344
010346
010352
010354
010354
010362
010366
010370
010374
010376
010400
010402

14:28
DUMMY END OF

8
PAGE 35

ARt

iRttt

tls

AR AR ARttt
lll

R1,-(SP)
RO,=(SP)

;SAVE
;SAVE

CONTENTS OF
CONTENTS OF

R1
RO

#BET1CR2,RO

;RO POINTS TO DEV 1 CR2 ADDR

#BIT04,3(RO)

;CLR BIT 4 OF

(SP)+,RO

;ELSE RESTORE RO

#14,R0
R1
R1,DEVCNT
5%
(SP)+,R1
$PWRDN

;CLEAR R1

CURRENT CR2

;ADD 14 TO POINT TO NEXT CR2
;COUNT THE NUMBER OF DEVS
;REACHED MAX # ON BUS?
;IF NOT, CLR NEXT CR2
sAND R1
:THEN DO REGULAR PWR DOWN RTN

AL EEE SRSl
AL EALSRSl
iitttsds

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
120537
001372

ERRTN:

001576
1%:

000014
001204
CHKERR:

105770
100001
104022

000000

032770
001436
032770
001401

007540

000000

004000

000000

104023

132770
001401

000040

000000

104024

132770
001401
104025

00010C¢

032770
001401
104026

000400

032770
001401

001000

SAVREG

MoV

000000

1%:

10%:

2%:

3s:

4%:

CLRB

INCB

: SAVE REGISTERS

#BE1CR2-14,RO ;INITIALIZE RO

;CLEAR DEVICE COUNTER

;ADD 1

TO COUNTER

ADD

#14 R0
R5,$TMP4
1%

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

TSTB
BPL
ERROR

a(RO)
1%

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

BIT
BEQ
BIT
BEQ
ERROR

#7540,3(R0O)

BITB
BEQ
ERROR

#B1T05,a(RO)
2%

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

BITB

BEQ

#BIT06,a(RO)
3%

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

BIT

#B1T708,a(R0O)

;CHECK FOR NO SSYN ERR

:TYPE ERR MSSG FOR NO SSYN

CMPB
BNE

ERROR

BEQ
ERROR

BIT
BEQ

;TYPE ERR MESSG FOR NO NOSACK

:CHECK FOR OTHER ERRORS

LEEV

;IF NO ERRORS,EXIT

108

:IF NOT SET,

#BIT11,3(RO)

#B1709,a3(R0O)
5%

;CHECK FOR NO SSYN ON

INTR

CHECK FOR NEXT ERR

;:TYPE ERR MSSG FOR NO SSYN ON INTR

;ELSE TYPE ERR MESSG FOR WRONG GRANT

:1F

NOT,

CHECK BIT 9

:CHECK FOR WRONG ADDR ERR

:1F NOT, CHECK BIT 10

UNIBUS EXERCISER
MACY1T
CZKUAD.P11
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)T 03-MAY-78
17

DUMMY END OF

104027

032770
001401
104030

002000

162700
005070

000002
000000

104410
000207

000000

BIT

#BIT10,a(RO)

sCHECK FOR NO GRANT ERR

ERROR

;TYPE ERR MSSG FOR NO GRANT

162737
104035

001164
000002

THRUO:

000002

010630
010630
010632
010632
010634

032703
001402
000261
000401

000001

000241

(SP) ,$REG2
#2,3REG2
35

ittt

ARl

SEC
BR

10;

cLe

Rttt

ittt

;ISLSBATORO?
:1F 0, GO TO 5%
*ELSE SET C BIT OF
*AND GO ROTATE

108

:ROTATE R3

SEC
BR

208

“ELSE SET C BIT OF
*AND GO ROTATE

000241

zos.

cLe

006004
000207

ROR

000001

BIT
BEQ

#B1T00, R4
158

COND CODES

‘IS LSBA1TORO?
:1F 0, GO TO 158

COND CODES

;CLEAR C BIT OF COND CODES
R4

RTS
R

tsd)

:CLEAR C BIT OF COND CODES

ROR

006003
032704
001402
000261
000401

ds)

sMOVE FOR ERR TYPE OUT
:SUB 2 FOR ACTUAL ADDR
;TYPE ERR MSSG

#B1T00,R3
5%

:ROTATE Ré4

MALAAL AR

010636
010636
010636
010642
010650
010656
010662
010664
010672
010674
010676
010702
010704
010706
010706
010712

ARl Rttt
d)

BIT
BEQ

REGISTERS

AARARttt
ittt sttt
d]

AL AAL AR

ROTATE:

JRESTORE
JEXIT

RARR ARl
ittt
dl)

SRR

sPOINT TO DEVICE CLEAR REG
sCLEAR ALL ERRORS

MoV
SuB
S¥?OR

0071164

;IF NOT, EXIT

#2,R0
a(RO)

ARl

010600
010600
010604
010606
010610
010612
010612
010614
010614
010616
010622
010624
010626

LEEV

RESREG
RTS

MALAAESE

011637

SEQ 0041

sTYPE ERR MSSG FOR WRONG ADDR

MAAAASAAAS

010562
010562
010566
010574
010576

PROGRAM

SuB
CLR

AAALL

ERROR
BEQ

LEEV:

¢
PAGE 36

14:28

R R R R

PR R

R RS20
T
R

AR AR RN R

R AR

NOG:

010037
012777
012777
010177
000240
022777
001005

106201
122701
001355
0004C2

004737
000207

2%:

177776
020342
177777
170724

170734
170724

177777

170710

RO,PSW
#ATEND ,@BE1BA
#-1,3BE1CC
R1,aBE1CRT

CMP
BNE

#-1,3BE1CC
48

CMPB
BNE
BR

#1,R1
2%
EXNOG

EXNOG:

JSR
RTS

PC,ERRS
PC

ASRB

000001

010714

MOV
MOV
MoV
MOV
NOP

sSET UP PROCESSOR STATUS
;SET UP ADDR REG
JSET UP CYCLE COUNT FOR 1 CYCLE
;00 FUN 1 ON BR LEVELS IN R1
JWAIT FOR DEVICE TO ATTEMPT TO

sSEE IF DEVICE OPERATED
;1F IT DID,GO TYPE ERR MSSG
JSHIFT BYTE RIGHT

TO LOWER BRRO

1F BYTE IS NOT EQUAL TO 1
:G0 T0 2%
JEXIT
;EXIT SUB RTN

DO XFER

b —

b d o
N

WN—=O VN

PPN

D e

D L

NNSNNNNNNNNNN -~

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

30A(1052)

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

SEQ 0042

MAAEAA SRR ARl
RS RRRRtd)

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

017737
017737
017737
017737
010037

104002
0002C7

012737
012701
105441
105421
105421
105770
100402
105441

170660
170654
170650
170644
001170

031463
001163

001160
001162
001164
001166

MOV
MOV
MOV
MOV
MOV

ERROR
RTS

001162

012701

BKGD:

2%:
146463

001164

;START OF BACKGROUND ROUTINE
;USE R1 TO POINT TO TEST PATTERN
;DECREMENT LOC AND NEGATE BYTE=(031715)
;NEGATE BYTE THEN INCREMENT LOC=(031463)
;NEGATE BYTE THEN INCREMENT LOC=(146463)
;TEST FOR DONE BIT OF DEVICE IN RO

=(R1)
1%

;ELSE DECREMENT LOC AND NEGATE BYTE=(031463)
;CONTINUE WITH BACKGROUND

TST
CMP
BEQ

-(R1)
#146463,(R1)
BKEX
#146463,8REG2

AL AR

5%:

000001
000001
000106

001170
001170
001170

CNTR:
1%:

040000

012777
010077
012777

177777
170472
002041

170474
170466

A el

MoV

R1,(R2)+
R1

sMOVE CONTENTS OF
;ADD 1 TO R1

;ELSE

R1,R5
5%

AR AR R

MOV
ADD

ADLI:

1%:

Rl AR
REd

ARl

JINIT

TO 1

TO AREA

dT)

JINITIALIZE COUNTER REG
JADD 1 TO IT
sDELAY AT LEAST 41 US

:éFl¥OY. GO BACK AND ADD 1

JEX
AR

A
R

AR R

TO REG4

]]

)]

#40000,R0

;USE RO TO SET BIT

[[0)"
MOV
MOV

#-1,3BE1CC

;SET

#2041,@BET1CRT

;DO DATI-FUN 1-NPR

CYCLE

])

MoV

RO,@BE 1BA

IN R2

EXIT

AR AR

#1,3REG4
#1,3REG4
#70.,3REG4

A AR AR

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

ARl AR

AR AR AR

MAALAAA RS AR

012700

;ELSE TYPE ERR MSSG

M.R

CMP
BNE

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

MOV

AR
AL

;1F DONE, GO CHECK RESULTS

AR AR

RTS

AR A

011074

INC
CMP
BLOS
RTS
AL

012737
062737
022737
001371
000207

#031 53,8REG1
#SREGT+1,R1
-(R1)
(R1)+
(R1)+
a(RO)

RTS

011046
011046
011054
011062
011070
011072

ERROR RTN

Rl ettt
ittt tlds

MOV
MOV
NEGB
NEGB
NEGB
TSTB
BMI
NEGB
BR

ERROR

DOUP:

010122
005201
020105
101774
000207

ARl

MOV

BKEX:

000001

;EXIT

ALAAR AL AR ARl Rttt
t)

AL AAL A

011030

AL E

011030
011034
011034
011036
011040
011042
011044

;MOVES ARE FOR TYPEOUTS

AAAAL AR

000000

146463

aBE1DB, SREGO
aBE1CC,SREG!
aBE1BA,SREG2
@BE1CR1,$REG3
SO.SREGA

1%:

000770
005741
022711
001404
012737
104031
000207

ERRS:

COUNT =

XFER

;SET ADDR AS SPECIFIED

IN RO

IN R1

UNIBUS EXERCISER
MACY11
CZKUAD.PT
26-APR-78 17:02
1768
1769
1770
N
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788

004737
022700
001403
012700
000760

30A(1052)

03-MAY-78

011046
100000

DUMMY END OF

100000

JALLOW TIME

BEQ
MOV
BR

EXAD
#100000,R0
1%

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

000140
001164
020342

177776

TSTOVR:

013072
013147

013235
013266
013347
013435
013523
013617
013713
014005
014047
014120
014166

020040
102
102

050103
042502

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

FOR RDY BIT TO SET

;CHECK IF BIT 15 OF RO IS SET

18:

125252

022342

046505
041517
053105
053105
053105
053105
052111
053105
052111
020124
020124

047125
053105
051124
020122
044440
020061
020102
044504
030522
042040
042040
042040
042040
047440
020123
020124
040440
051103
047516
030522
042040
041520
042040
020061

052040
051117
020040
041511
041511
041511
041511
033440
021440
030440
020065
020066

QNO:
FOR4:
EM1:
DH1:

R R
R

R R

R R R R

SUB ROUTINE

R R R R R R R R R R R R R RN AR R AR R RR AR

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

RR
R

MOV

#PR3,PSW

;PS=3

MOV

#ATEND,RO

sSET UP RO AS POINTER

CMP
BNE

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

$REG2

MOV

sCLEAR REG FOR INTR ON DONEF COUNTER

#125252,(R0O)+

RTS

005015
042012
020125
042104
052520
020126
042061
020125
041461
052520
052520
052520
052520
042516
044510
051461
051525
030505
020125
041461
052520
051122
052520
020126
042510

JEXIT

CLR

012153
012211
012257
012334
012415
012503
012554
012642
012703
012766
013007

#100000,R0

RTS

103
103
103
103
117
124

SEQ 0043

XAD:

005015
015
050103
040440
103
042504
042502
050103
042502

PROGRAM

PC,CNTR

011174
011277
011404
011452
011503
011546
011616
011706
011740
012021
012057
012115

&
E
PAGE 38

JSR

CMP

000207

012737
005037
012700
012720
022700
001373
000207

14:28

R
R

sMOVE DATA PATTERN TO AVAILABLE MEMORY
JEXIT

R R R AR

R R AR R R R

R R R

R R PR R R R R R R R R R AR AR R R

AR R R R R R R R R RN

R R R R AR AR AR

R RO

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 OCCU
CPU TRAPPED THRU LOCATION &4 -TIMEOUT
ADDR
SERRPC #ERR/TST#

CPU DID NOT ISSUE BUS NPG
BE1CR1
BE1CC
FM-PS
T0-PS

EM11:
DH11:
EM12:
DH12:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

EM14:
EM15:

_ASCIZ
.ASCII

CPU DID NOT PROPERLY EXECUTE AN ACLO/DCLO SEQUENCE
SERRPC #ERR/TST#
CPU DID NOT TRAP FROM BUS PARITY ERROR PA/PB = 0/1
DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY <15><12>

_ASCII

MEMORY

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

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 7 OF CR2 SET-CPU DID NOT TIME OUT WITH SACK INHIBITED
DEV #
PC
SERRPC #ERR/TSTAH
BIT 11 OF CR2 SET-NO SSYN ON INTR SIGNAL
BIT 5 OF CR2 SET-RECEIVED WRONG GRANT
BIT 6 OF CR2 SET-BUS LATE

EM2:

DH2:
EM3:
DH3:
EM4:
EMS:
EM6:
EM7:
EM10:
DH10:

EM13:
DH13:

DH15:
EM16:
EM17:
EM20:
EM21:
EM22:
DH22:
EM23:
EM24:
EM25:

LASCII
.ASCIZ
.ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

CPU ISSUED A BUS GRANT WITH PSW = 7
DEV 1 SHOULD NOT HAVE BECOME BUS MASTER
BE1DB
BE1CC
BE1BA
BE1CR1
PSW
SERRPC #ERR/TST#
CPU DID NOT ISSUE BUS GRANT 7
CPU DID NOT ISSUE BUS GRANT 6
CPU DID NOT ISSUE BUS GRANT S

S$ERRPC #ERR/TSTH#

CPU DID NOT ISSUE BUS GRANT &
ONE OR MORE DEVICES DID NOT INTERRUPT
THIS IS THE ORDER IN WHICH THEY INTERRUPTED <15><12>
18T
2ND
3RD
4TH
SERRPC WERR/TSTH
BUS ADDRESS LINES <A17:A14> DID NOT FUNCTION PROPERLY
BETCRT
BE1CR2
BE1BA
SERRPC #ERR/TSTA
CPU NO SACK TIMEOUT LOGIC FAILED(TO NEGATE BUS GRANT)
BETCR1
BEI1CR2
SERRPC #ERR/TST#

THE

LOC

TRANSFER TO THE FOLLOWING LOCATION WAS

ACTUAL
DATA

CORRECT <15><12>
DATA

INCORRECT

SERRPC WERR/TST# SICNT #

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

30A(1052)

044502
044502
102
045502
047503
041501
040504
104
106
114
116
01Sglg

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

020070
020071
030440
020104
041505
046101
020040
031440
032040
020124
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

BIT 8 OF CR2 SET-NO SSYN OCCURRED
BIT 9 OF
CR2 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/TSTH SICNT #
DEV 3 DID DATI BUT HAS INCORRECT VALUES IN DATA REG
DEV & 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

DT1:
DT2:
DT3:
DT10:
DT11:
DT12:
DT13:
DT15:
DT22:
D731:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
R
R

SREG2,SERRPC,S$TSTNM,0
SREGO,SREG1,SREG2,SREG3,SREG4,SERRPC,STSTNM,0
SREGO,SREG1,SREG2,SREG3,SERRPC,STSTNM,0
SREG1,SREG2,SREG3,SREG4,SERRPC,STSTNM,0
SREG1,SREG2,SREG3,SERRPC,STSTNM,0
SREGO,SREG1,SERRPC,STSTNM,0
SERRPC,STSTNM,0
SREGO,SREG1,SREG3,SERRPC,STSTNM,SICNT,0
$TMP4,SREGS,SERRPC,STSTNM,0
SREG1,SREG2,$ERRPC,STSTNM,SICNT,0

R
R R R R R R R AR R RN R RN A R R R AR R AR R R AR AR RS
R
R R
R
A R R R R R R R AR R AR R AR AR AR
RN RN

1790

179

1792

EM26:
EM27:
EM30:
EM31:

SEQ 0044

.ASCIZ
.ASCIZ
.ASCIZ
_ASCII
.ASCIZ
_ASCII
.ASCIZ
.ASCIZ
_ASCIZ
_ASCII
.ASCIZ
.ASgIZ

(2)
1789

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

F
4
O03-MAY-78
14:28
PAGE 39
mnz
DUMMY END OF PROGRAM

DH31:
EM32:
EM33:
EM34:
EM35:

PR
PR

.EVEN

R R

R R R

R R R R R R R

R R R

R A R AR

R R R R R R

R RN R AR R AR RN R R

R R R AR AR AR R AR R AR AR

RR
RN

};gz

.SBTTL

1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815

s*INCREMENT THE PASS NUMBER (SPASS)
s*TYPE ""END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY"
J*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
s*IF THERES A MONITOR GO TO IT
;*«IF THERE ISN'T JUMP TO TST1

1816
1817
1818
1819
1820

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

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

$EOP:
001102
001210
001100
100000

001100

SEOPCT:
$ENDCT:

015514

015532
015532

013746

001100

015536
015540

104404
104400

015546

648:

END OF PASS ROUTINE

SCOPE
CLR
STSTNM
;ZERO THE TEST NUMBER
CLR
STIMES
;:ZERO THE NUMBER OF ITERATIONS
INC
$PASS
;s INCREMENT THE PASS NUMBER
BIC
#100000,8PASS
;:DON'T ALLOW A NEG. NUMBER
DEC
(PC)+
;:LOOP?
.WORD
1
BGT
$SDOAGN
s YES
MOV
(PC)+,a(PC)+
;;RESTORE COUNTER
.WORD
1
SEOPCT
TYPE
.. th
;:TYPE ASCIZ STRING
BR
64%
;:GET OVER THE ASCIZ
;i .ASCIZ
<12><15>/END PASS #/

MOV

$PASS,-(5P)

TYPDS
TYPE

.o th

2:SAVE SPASS FOR TYPEOUT
;:TYPE PASS NUMBER
;260 TYPE--DECIMAL ASCII WITH SIGN
;:TYPE ASCIZ STRING

MACY11
UNIBUS EXERCISER
CZKUAD PN
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

015544

000421

015610
015610

013746

001112

104404
104400
005037

015626
015632
015634
015636

013700
001405
000005
004710
000240
000240
000240

000042

000137
377
015656

003506
377

1870
1871
1872
1873
1874
1875
1876

BR
65%
33 ASCHE

MOV

001152

TYPE

001112

$GET42:

$ENDAD:

$DOAGN:

000

SENULL:

SEQ 0045

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

$ERTTL,~-(SP)

TYPDS

;sSAVE SERTTL FOR TYPEOUT
s TOTAL NUMBER OF ERRORS

;G0 TYPE=--DECIMAL

L SNULL

CLR

$ERTTL

MOV
BEQ
RESET
JSR
NOP

aré2 RO
$DOAGN

JMP
.EYEE

a#T1sST1
-1.-1,0

;s TYPE NULL CHAR

WITH SIGN

;s CLEAR ERROR TOTAL

;sGET MONITOR ADDRESS
;sBRANCH IF NO MONITOR
;sCLEAR THE WORLD
;5:G0 TO MONITOR
;s SAVE ROOM
;:FOR
MY

PC, (RO)

NOP
NOP

.EVEN

ASCII

;;RETURN
;sNULL CHARACTER STRING

"tttttt"t't""t'itt"tt'itt"tt"ttt"'ttt'tttitt'tttt"ttl"t

.SBTTL

SCOPE HANDLER ROUTINE

s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.
s*AND LOAD

THE

TEST NUMBER(STSTNM)

INTO THE

IT WILL INCREMENT

DISPLAY REG.(DISPLAY<7:0>)

s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
s *SW14=1
;xSW11=1
INHIBIT ITERATIONS
;*SW09=1
LOOP ON ERROR
LOOP ON TEST IN SWR<S5:0>
;*SW08=1
s*CALL

1849

1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869

03-MAY-78
14:28
PAGE 40
END OF PASS ROUTINE

653

015614
015616
015622
015626

015640
015642
015644
015646
015646
015652

30A(1052)

3w
015656
015656
015664

032777
001114

015666

000416

015670
015674
015702
015706

013746
012737
005737
012637
000466
022626
012637
000426

000004
015714

032777
001407
017746
042716
122637

000400

015712
015714
015716
015722
015724
015724
015732
015734
015740
015744

040000

163252

$SCOPE:

1%:

SCOPE

BIT
BNE

sHRRNNSTART

$XTSTR: BR

177060

MOV
MOV

000004

TST

000004

MOV

5%:

000004

163176
000300
001102

163204

;:SCOPE=I0T

#BIT14,3S5WR
OF

$OVER

CODE

FOR

THE

;:LOOP ON PRESENT TEST?
XOR

O#ERRVEC,-(SP)
#5% ,3#ERRVEC
ar177060

(SP)+ ,3#ERRVEC

$SVLAD

;YES

SW14=1

TESTER#####

;3
1F RUNNING ON THE ''XOR'' TESTER CHANGE
ssTHIS INSTRUCTION TO A ''NOP'' (NOP=240)

;;SAVE THE CONTENTS OF THE ERROR VECTOR
;:SET FOR TIMEOUT
;:TIME OUT ON XOR?

;;RESTORE THE ERROR VECTOR

;G0 TO THE NEXT TEST

CmMP
(SP)+,(SP)+
ssCLEAR THE STACK AFTER A TIME OuT
MoV
(SP)+,a#ERRVEC
;;RESTORE THE ERRCR VECTOR
BR
7%
;:LO0P ON THE PRESENT TEST
6S:;#XXHNEND OF CODE FOR THE XOR TESTER###NN
BIT
#BIT08,aSwWR
;.LO0P ON SPEC. TEST?
BEQ
2%
;:BR IF NO
MOV
aSWR,~(SP)
;:SET DESIRED TEST NUM. FROM SWR
BIC
#$SWRMK , (SP)
;:STRIP AWAY UNDESIRED BITS
CMPB
(SP)+,STSTNM
::ON THE RIGHT TEST?

UNIBUS EXERCIS ER
MACY11
CZKUAD P11
26-APR-78 17:02
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
1910

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
1€1015
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

30A(1052)

001103

001000

163140

001110

001106

001103
001210
163106

3%:

001104
001210
000001
016132
001102
001106
001110
001212
000001
001102
001106

001104
001210

001115
163014

18:
$SVLAD:

BR
BIT
BNE

1%
#BIT11,aSwR
1%

S$TIMES

$PASS
1%

.SBTTL

::IERO THE ERROR FLAG

;:CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
;:INHIBIT ITERATIONS?
;:BR IF YES
;:IF
HH

FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

s:CLEAR THE ESCAPE FROM ERROR ADDRESS

#1,SERMAX
STSTNM GDISPLAY

SLPADR, (SP)

SMXCNT: 40
AL

;;SET LOOP ADDRESS TO LAST SCOPE

SESCAPE

MovB
MOV
RTI

;:BR IF YES
::HAS AN ERROR OCCURRED?
;:BR IF NO
;;MAX. ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO
;:LOOP ON ERROR?
;:BR IF NO

;s INCREMENT ITERATION COUNT
:;CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED

MoV

SEQ 0046

SICNT
STIMES,SICNT
SOVER

#1,S1CNT
SMXCNT,STIMES
STSTNM
(SP) ,SLPADR
(SP) ,SLPERR

CLR

$OVER:

SOVER
SERFLG
3%
SERMAX ,SERFLG
3%
#BIT09,aSwR
4%

SLPERR,SLPADR
$OVER
SERFLG

TST
BEQ
INC
CMP
BGE
MoV
Mov
INCB
MOV

001104

MoV
BR
CLRB

CLR

001100

;sREINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
;;COUNT TEST NUMBERS
;:SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT
;;DISPLAY TEST NUMBER

:;FUDGE RETURN ADDRESS
::FIXES PS

;sMAX. NUMBER OF
A

RSl

TEST

ITERATIONS

iRt

dY)

ERROR HANDLER ROUTINE

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO SERRTYP ON ERROR
;*THE

SWITCH OPTIONS PROVIDED BY

;*SW15=1
;*SW13=1
;*SW10=1
;*SW09=1
s*CALL
:*

THIS

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

ROUTINE

ARE:

ERROR

INCB

SERFLG

::SET THE ERROR FLAG

MOV

STSTNM,aDISPLAY

;;DISPLAY TEST NUMBER AND ERROR FLAG

BEQ
TYPE
INC
MoV
SuB

1%
.SBELL
SERTTL
(SP) ,SERRPC
#2,SERRPC

BEQ

BIT

1%:
s o

001214
001112
001116
000002
162710

162770
162760

«b

001102
002000

-t

001775
013777
032777
001402
104400
005237
011637
162737
117737

$ERROR:
7%:

001102

—

105237

016134
016134
016140
016142
016150
016156
016160
016164
016170
016174
016202

1928
1929
1930
1931
1932

78:
4%:

1911
1912

1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927

BEQ
TSTB
BEQ
CMPB
BHI
BIT
BEQ

2%:

001115

004000

H
14:28
PAGE 41
SCOPE HANDLER ROUTINE

03-MAY-78

MOVB

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

#BIT10,aSwWR

@SERRPC,SITEMB

:;DON'T LET THE FLAG GO TO ZERO

::BELL ON ERROR?

::NO = SKIP
::RING BELL
;;COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION
;;STRIP AND SAVE

THE

ERROR

ITEM CODE

UNIBUS EXERCISER
MACYT1
CZKUAD.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

032777
001004

004737

104400

005777
100001
000000
022737
001001
000000
032777
001402
013716
005737
001402
013716

020000

30A(1052)
162720

016302
001221

015636

000042

001000

162656

001212

000002

4%:

5%:
AL

BIT
BNE
JSR

#BIT13,aSwR

TST
BPL
HALT
CMP
BNE
HALT
BIT
BEQ
MOV
TST
BEQ
MOV

aSwR

TYPE

20%:
2$:

162702

001110
001212

l
14:28
PAGE 42
ERROR HANDLER ROUTINE

03-MAY-78

20%

PC,SERRTYP

.SCRLF

#SENDAD ,a#42

#BITO09,aSwR
3]
SLPERR, (SP)
SESCAPE

$ESCAPE, (SP)

.SBTTL

AR AR

ERROR MESSAGE

;sSKIP TYPEOUT IF SET

;:SKIP TYPEOUTS
;:G0 TO USER ERROR ROUTINE
;sHALT ON ERROR
;:SKIP IF CONTINUE

RTI
AL SRR

SEQ 0047

;sHALT ON ERROR!

ssACT=11 AUTO-ACCEPT?
;;BRANCH IF NO
;s YES
;:;LOOP ON ERROR SWITCH SET?
;:BR IF NO
;sFUDGE RETURN FOR LOOPING

;sCHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE

: sRETURN

Al AR

TYPEOUT ROUTINE

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE '‘ERROR TABLE'' (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
016302
016302
016306
016310
016312
016316

$SERRTYP:

104400
010046

001221

153700
001004

001114

CLR
BISB
BNE

RO,=(SP)
RO
a#SITEMB,RO
1%

016320

013746

001116

MOV

$ERRPC,~-(SP)

016324
016326
016330
016332
016334
016336
016340
016344
016350
016352
016354

104401

016356
016362
016366
016370
016372
016374
016400
016402
016404

005000

000426
005300
006300
006300
006300
062700
012037
001404
104400
000000
104400
012037
001404
104400
000000
104400

011000
001004
012600

TYPE

MoV

TYPOC

1%:

ASL
ASL
ASL
ADD
MOV

001224
016354

001221
016372

001221

BR
DEC

2%:

3s:
4%:

5%:
6%:

BEQ
TYPE
.WORD
TYPE

MOV

.SCRLF

RO
RO
RO

#SERRTB,RO
(RO)+,28

.SCRLF

(RO)+,48

BEQ

.WORD

0
.SCRLF

TYPE

TYPE
MOV

BNE
MOV

(RO) RO
7%
(SP)+ RO

;:"'CARRIAGE RETURN'' & "LINE FEED'
::SAVE RO
;:PICKUP THE ITEM INDEX
1F ITEM NUMBER IS ZERO, JUST
;s
;:TYPE THE PC OF THE ERROR
;sSAVE SERRPC FOR TYPEOUT
: :ERROR ADDRESS
;:G0 TYPE--OCTAL ASCIICALL DIGITS)
;:GET oUuT
;sADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE
::FORM TABLE

POINTER

;:PICKUP ''ERROR MESSAGE'' POINTER
::SKIP TYPEOUT IF NO POINTER
::TYPE THE ''ERROR MESSAGE'

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

::"'DATA HEADER'' POINTER GOES HERE
;:"'CARRIAGE RETURN'' & ''LINE FEED'"
;sPICKUP ''DATA TABLE' POINTER
::60 TYPE THE DATA
: :RESTORE RO

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

1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000

2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
201
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029

2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044

016406
016412
016414
016414
016416
016420
016422
016424
016430
016432

104400
000207

30A(1052)

&4
J_
03-MAY-78
14:28
PAGE 43
ERROR MESSAGE TYPEOUT ROUTINE

001221
78

013046
104401

005710
001770

104400
000771
020040
016436

016432

L,SCRLF
PC

MOV

a(RO)+,-(SP)

TST
BEQ

(RO)
6%

TYPE
BR

8%:

0G0

3"CARRIAGE RETURN'' & "'LINE FEED'
s sRETURN

TYPE
RTS

TYPOC

.EVEN

,8%
7%

SEQ 0048

;3sSAVE @(RO)+ FOR TYPEOUT

;:G0 TYPE=--OCTAL ASCIICALL DIGITS)
;:1S THERE ANOTHER NUMBER?
;sBR IF NO
;s TYPE TWO(2)

;;LOO0P

SPACES

;s TWO(2) SPACES

AL EAE R

LSRRl

.SBTTL

TTY

ARl

iRttt

INPUT ROUTINE

s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s*CALL:

016436

016440
016446
016452
016454
016462
016470

011646
016666
105777
100375

117766
042766
000002

000004
162470

000002

162464
177600

000004
000004

s
e

RDCHR
RETURN HERE

;s INPUT A SINGLE CHARACTER FROM THE TTY
: ;CHARACTER IS ON THE STACK

$RDCHR:

MOV
MOV
TSTB
BPL
MOVB
g%g

;sPUSH DOWN THE PC
:sSAVE THE PS
;sWAIT FOR
:3A CHARACTER
ssREAD THE TTY
;:GET RID OF JUNK IF ANY
;:G0 BACK Tr USER

18:

AAAA

s*THIS ROUTINE

s*CALL:

o*
M

016472
016474
016500
016504
016506
016510
016512
016516
016520
016524
016526
016532
016536
016542
016544
016550
016554
016556
016560
016566
016574

010346
012703
022703
101405
104405
112613
122713
001003
104400

000763

111337
104400
122723
001356
105063
104400
012603
011646
016666

012766
000002

RDCHR

MOVB

000177

001220

48:

016576
01657¢
000015

3%:

177777
001222

000004
016600

INPUT

STRING

R3,-(SP)
#STTYIN,R3
#STTYIN#16,R3
43
(SP)+,(RY)

CMPB
BNE

#177,(R3)
3s

BR
MOVB

1%
(R3),9%

CMPB
BNE
CLRB

#15,(R3)+
23
=1(R3)

MOV

(SP)+,R3

MOV
:?Y

4(SP),2(SP)
#STTYIN,L(SP)

TYPE

000002
000004

WILL

RDLIN
RETURN HERE

$RDLIN: MOV
1%:
L [0]")
2%:
CMP
BLOS

016600
016616

(SP) ,=(SP)
4(SP),2(SP)
asTKS
1%
@$TKB,4 (SP)
# C<177>,4(SP)

MOV

. SQUES

,9%

LSLF

(SP) ,~(SP)

FROM THE

R0l

]]

TTY

;s INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;;TERMINATOR WILL BE A BYTE OF ALL 0'S

;:SAVE R3
;:GET ADDRESS
;sBUFFER FULL?
;:BR IF YES
2:G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;1S IT A RUBOUT
;:SKIP IF NOT

2:TYPE A 2

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

;s CHECK FOR RETURN
::LOOP IF NOT RETURN

;:CLEAR RETURN (THE 15)
::TYPE A LINE FEED
:sRESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
HH
FIRST ASCII CHARACTER ON IT
3 sRETURN

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

2045
2046
2047
20‘08
2049
ggg?

016576
016577
016600

30A(1052)

000
000
000016

O03-MAY-78
14:28
TTY INPUT ROUTINE

&
K
PAGE 44

9%:

.BYTE
0
.BYTE
0
STTYIN: .BLKB
16
MALAAEASARA ARl
.SBTTL

;*CALL:
:®
JSR
PC,$SIZE
ot
RETURN
;*SLSTAD WILL CONTAIN:

2057

2058

: :STORAGE FOR ASCII CHAR. TO TYPE
; ; TERMINATOR
;;RESERVE 16 BYTES FOR TTY INPUT
il ARttt ttss)

ROUTINE TO SIZE MEMORY

2052
2053
2054
2055

2056

SEQ 0049

WITH KT11 OPTION

WITHOUT KT11 OPTION

== LAST VIRTUAL ADDRESS OF THE LAST BANK

== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF

2059

;*$KT11

IS THE MEMORY MANAGEMENT KEY

5822

DETERMINED BY ROUTINE

$SIZE:

MOV
Mov
Mov
MoV
MOV
MoV
MoV
MoV
Mov
TRAP
Mov

2060
2061
2062

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

'BITO? = 0 DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL
'81715 = 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
012702
012703
012762
011622
062716
077307
012742
005042
012737
012737

012737
005237
012737
005737

000004
000006

000034
016654
000002
016670

000034
000006

000034
003776

18:

Mov
RTI
$SIZE1: MOV
MoV
$KT11:

017046
177572

000004

100000

016702

172340
000010
077406

177740

18:

000200
177600
000006
000002
000020
177572
017036
143776

000004
000006
172516

000004

28:

TSTB
.WORD
BPL
MOV
TST

BIS
CLR
MOV
MoV
MOV
MoV
ADD
SOB
MoV
CLR
MOV
MOV
MoV
INC
MOV
TST

RO,=(SP)
::SAVE RO ON THE STACK
R1,-(SP)
::SAVE R1 ON THE STACK
R2,=(SP)
::SAVE R2 ON THE STACK
R3,-(SP)
::SAVE R3 ON THE STACK
@#ERRVEC,=(SP)
;;SAVE PRESENT ERROR VECTOR PS & PC
@F#ERRVEC+2,~(SP)
SP,RO
::SAVE THE STACK POINTER
ar34,-(SP)
::SETUP THE TRAP VECTOR
S, an34
:: TO GET THE PS

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

(SP)+,a#34
;;RESTORE TRAP VECTOR
#3776 .R1
::SETUP ADDRESS
(PC)+
: ;USE MEMORY MANAGEMENT?
200
::SET TO USE MEMORY MANAGEMENT
$CORE
::BR IF NO
#SKTNEX ,@#ERRVEC ;;SET FOR TIMEOUT
a#SRO
::KT11 ARE YOU THERE?
#100000,8KT11
;;YES=-SET KT11 KEY
=(SP)
;s INITIALIZE FOR ''PAR'' LOADING
#KIPARO,R2
: ;ADDRESS OF FIRST "‘PAR"
# D8,R3
::LOAD EIGHT ''PAR.'S'* AND EIGHT "‘PDR.'S"
#77406,-40(R2)
;;PDR = 4K, UP, READ/WRITE
(SP),(R2)+
::LOAD "‘PAR'’
#200, (SP)
:;UPDATE FOR NEXT ''PAR"
R3,1$
::LOOP UNTIL ALL EIGHT ARE LOADED
#177600,-(R2)
;;SETUP KIPAR7 FOR 1/0
-(R2)
::SETUP KIPAR6 FOR TESTING
"0,
ars
::SET FOR TIMEOUT
",
aré
::1F SR3 DOESNT EXIST

#20,3#SR3
:;ENABLE 22 BIT MODE
a#srRO
::TURN ON MEMORY MANAGEMENT
#SKTOUT ,@#ERRVEC ;;SET FOR TIME OUT
43776
: s TRAP ON NON-EX-MEM

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

=
VOO NO VS W

o
i
b
b
b

) ad

i
o

o
-

NN NONF, NN

2101
2102
2103
2104
2105
2106
2107

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

30A(1052)

000040
172356
177572
100000
017104

004060
000040
177776

004000
000040
000006
000004
017150
017152

012602
012601
012600
000207
000000
000000

016702
000004

&
L
O03-MAY-78
14:28
PAGE 45
ROUTINE TO SIZE MEMORY
ADD
CMP
BHI
$KTOUT: MOV
CLR
BR
SKTNEX: BIC
SCORE:
MOV
CLR
18:
ADD
ADD

SEQ 0050

#40, (R2)
a#KIPAR7, (R2)
2%
(R2) ,R2
a#SRO
$SIZEX

;:LAST ONE?
;:NO==TRY IT
;:GET LAST BANK+1
;s TURN OFF MEMORY MANAGEMENT

#4000,R1
#40,R2

;s INCREMENT BY 1K
;:1K STEP

ssMAKE A 1K STEP

#100000,8KkT11
ssKT11 NON=EXISTENT
#SCROUT ,@#ERRVEC ;;SET FOR TIMEOUT
R2
::SET UP BANK

TST
CMP
BNE
$CROUT: SUB
$SIZEX: SUB
MoV
MOV
MoV
MOV
MOV
MoV
MoV
MOV
MOV

(R1)
::TRAP ON TIME OUT
#177776 ,R1
:;LAST ONE
1%
; sNO==TRY AGAIN
#4000,R1
#40,R2
: :DROP BACK
RO,SP
;RESTORE THE STACK
(SP)+,@#ERRVEC+2 ;;RESTORE ERROR VECTOR
(SP)+ ,@#ERRVEC
R1,SLSTAD
; sLAST ADDRESS
R2,SLSTBK
; ;LAST BANK
(SP)+,R3
: ;RESTORE R3
(SP)+,R2
;sRESTORE R2
(SP)+,R1
; ;RESTORE R1
(SP)+,RO
: ;RESTORE RO

SLSTAD:
SLSTBK:

0
O

RTS

.WORD
.WORD

AR AAE AR AR

.SBTTL

;;CONTAINS THE LAST ADDRESS
;;CONTAINS THE LAST BANK
R

SAVE AND RESTORE RO-R5 ROUTINES

:*SAVE RO-R5

;*CALL:

SAVREG
:®
:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
M

;*TOP===(+16)

;% #2--=(+18)
it +4=--<R5

;% +6=--Ré

;* +8---R3

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

RO,=-(SP)
R1,=-(SP)

:;PUSH RO ON STACK
:;PUSH R1 ON STACK

MOV

Ré4,=(SP)

:;PUSH R4 ON STACK

MoV
MOV

000022
000022
000022

MoV

MOV
MOV
MoV

R2,=(SP)
R3,=(SP)
R5,=(SP)

22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

:;PUSH R2 ON STACK
:;PUSH R3 ON STACK
:;PUSH R5 ON STACK

:sSAVE PS OF MAIN FLOW
:sSAVE PC OF MAIN FLOW
::SAVE PS OF CALL

EE]

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

2157
2158
2159
2160
2161
2162
2163
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
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212

017204
017210

016646
000002

30A(1052)

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

000022

MoV
RTI

SEQ 0051

22(SP) ,=(SP)

;3SAVE PC OF

CALL

(SP)+,22(SP)

;sRESTORE PC OF CALL

(SP)+ R4

;:POP STACK

;s*RESTORE RO=RS

s*CALL:

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

012666
012666
012666
012666
012605
012604
012603

000022
000022
000022
000022

$RESREG:

RESREG

[ [o]'}
MoV
MOV
MOV
MOV

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

MOV
MOV

(SP)+,R3
(SP)+,R2

MoV

012602
012601
012600
000002

L [0)']

(SP)+,R1

:?¥
AR AAA RS

.SBTTL

AAR

(SP)+,R0

;sRESTORE PS OF CALL
ssRESTORE PC OF MAIN FLOW
;sRESTORE PS OF MAIN FLOW
;:POP STACK INTO RS
INTO Ré4

;sPOP STACK INTO R3
;:POP STACK INTO R2

;sPOP STACK INTO R1
::POP STACK

INTO RO

ARl AR
222222222

TYPE ROUTINE

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;*NOTEZ2:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*CALL:

;*1) USING A TRAP INSTRUCTION
:'0R
%

TYPE

,MESADR

ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

MESADR

$TYPE:

TSTB
BPL

$TPFLG
1%

::1S THERE A TERMINAL?
;:BR IF YES

s sLEAVE

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
005726
012600
062716
000002
122716
001426
122716
001004

005726

104400
001221

000757

001155

HALT

000002

000002
000011

000200

1%:

2%:

608 :
3%:

4%:

MoV
MOV

MOVB
BNE
TST

MOV

RO,-(SP)
a2(SP),RO

(RO)+,-(SP)
4
(SP)+

(SP)+,R0O

:sHALT HERE

NO TERMINAL

::SAVE RO
:sGET ADDRESS OF

ASCIZ STRING

3 sPUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
;s
1F TERMINATOR POP IT OFF

;sRESTORE RO

ADD

#2,(SP)

::ADJUST RETURN PC

CMPB
BEQ
CMPB

#THT, (SP)
8%
#TCRLF, (SP)

;sBRANCH IF <HT>

TST
TYPE

(SP)+

::POP
ssTYPE

s:GET NEXT CHARACTER

RTI

BNE

$CRLF

s sRETURN

;sBRANCH IF NOT <CRLF>
<CR><LF> EQUIV
A CR AND LF

THE

STACK

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

2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2261
2262
2263
2264
2265

2267
2268

017332
017336
017342
017344
017350

017354
017356
017362
017366

004737

017414
001154

123726
001352
013746

001152

105366

000001

002770
004737
105337

000770

30A(1052)

03-MAY-78
14:28
TYPE ROUTINE

5%:
6$:

JSR
CMPB

::G0 TYPE THIS CHARACTER
s:1S IT TIME FOR FILLER CHARS.?
;:1F NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::00 NOT COUNT AS A COUNT
::LOOP

MoV

$NULL,=(SP)

DECB

017414
017460

SEQ 0052

PC,STYPEC
SFILLC,(SP)+

BNE

78:

N
&
PAGE 47

1(SP)

BLT

JSR
DECB

PC,STYPEC
$CHARCNT

sHORIZONTAL TAB PROCESSOR
017370

017374
017400
017406
017410
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

017460

8s:
9%:

MOVB
JSR
BITB
BNE

#40, (SP)
PC,STYPEC
#7 ,SCHARCNT
9%

TST

161526

000002
000015

161520
000002

017460
000012

000002

;;REPLACE TAB WITH SPACE
::TYPE A SPACE
: ;BRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
s:GET NEXT CHARACTER
;;WAIT UNTIL PRINTER IS READY

(SP)+

BR
S$TYPEC: TSTB
BPL
MOvB
CMPB
BNE
CLRB
BR
1%:
CMPB
BGE
INCB
SCHARCNT: .WORD
S$STYPEX: RTS
i:
EQUATES

2%
asTPS
$TYPEC
2(SP) ,asTPB
#15,2(sP)
1%
SCHARCNT
STYPEX
#12,2(SP)
STYPEX
(PC)+
0
PC

::LOAD CHAR TO BE TYPED INTO DATA REG.
; ;BRANCH IF
::NOT <CR>
soEXIT
; ;BRANCH IF
33¢<LF>
;s INC SPACE
s sCOUNT

THT=11
TCRLF=200
AR R

.SBTTL

BINARY TO OCTAL

2222222223222

222222

(ASCII) AND TYPE

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS~-=~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:

MOV

NUM,-(SP)

;e
L

.BYTE
.BYTE

N
w

TYPOS

: ;NUMBER TO BE TYPED
::CALL FOR TYPEOUT

::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 0RO
::1=TYPE

LEADING ZEROS

:;0=SUPPRESS LEADING ZEROS

*$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
*$TYPOS OR $TYPOC
s*CALL:
:®
MOV
NUR,-(SP)
: :NUMBER TO BE TYPED

TYPON

s CALL FOR TYPEQUT

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

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
2321
2322
2323
2324

03-MAY-78

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

SEQ 0053

;*STYPOC=-=<ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

s*CALL:

MOV

NUM,-(SP)

; :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

$TYPOS:

MOV
MOVB
MOVB
ADD
BR
MOVB
MOVB
MOVB
MOV
MoV

a(SP),=(SP)
1(SP) ,SOFILL
(SP)+,SOMODE
+1
#2,(SP)
STYPON
#1,S0FILL

;;PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
: :NUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS

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

105337

100016

042703
001002
005704
001403
005204
052703
052703
110337
104400
105337

003347

000000
000001
017711
000002

000001
000006
000005

017707

017707
017711
017706

$STYPON:

MOV

017711

MOVB
NEG
ADD
MOVB
MOVB

000006
017710
017707
000012

MOV

1%:

2%:

3%:

017710
177770

4%:

000060
000040
017704
017704
017706

5%:
7%:

002402
005204
000744
012605
012604

012603
016666
012616
000002
000
000
000
000

$TYPOC:

6%:

000002

TYPOC

000004

8%:
$OCNT:
$OFILL:

CLR
ROL
BR

#6,S0MODE
+1

#5,80CNT
R3,-(SP)
R4 ,~-(SP)

R5,=(SP)
$OMODE+1,R4
R&

R4, SOMODE

SOFILL,R4
12(SP) ,R5
R3

ssSET THE ZERO FILL SWITCH
::SET FOR SIX(6) DIGITS
:SET THE ITERATION COUNT

::SAVE R3
;s SAVE R4

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

:;ROTATE MSB INTO "'C"

ROL

::60 DO MSB
::FORM THIS DIGIT

ROL

;:;GET LSB OF THIS DIGIT

ROL
ROL
MOV

DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS

;:TYPE

;:BR

BIS

MOVB
TYPE
DECB
BGT

BLT
INC
BR
[[0}

MOV
MOV
MOV
MoV
RTI

.BYTE

.BYTE
.BYTE

.BYTE

(SP)+,RS
(SP)+,R4
(SP)+,R3

2(SP),4(SP)
(SP)+,(SP)

oOoOoOoO

2269
2270
2271
2272
2273

30A(1052)

THIS DIGIT?

IF NO

;sGET RID OF JUNK
;sTEST FOR O
;s SUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0°'S
ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
;:G0 TYPE THIS DIGIT
;:COUNT BY 1
;:BR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT
;sRESTORE RS
;sRESTORE Ré
;sRESTORE R3
;sSET THE STACK FOR RETURNING

: ;RETURN
::STORAGE FOR ASCII DIGIT
;; TERMINATOR FOR TYPE ROUTINE
;:O0CTAL DIGIT COUNTER
;:ZERO FILL SWITCH

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
23¢Nn
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
237
2372
2373
2374
2375
2376
2377
2378
2379
2380

017710

30A(1052)

$OMODE:

000000

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

03-MAY-78

.WORD

AAAS

ARl

.SBTTL

ARl

SEQ 0054

; :NUMBER OF DIGITS TO TYPE

e iRt
d )

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
: *NUMBER

IS POSITIVE

OR NEGATIVE

s*OFFORE THE FIRST DIGIT OF
s*RCPLACED WITH SPACES.

CALL:

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

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

$T YPDS:

020200
000020
000055

000001

020126
000040

1%:

2$:

020116

3s%:

4%:

5%:

000001
000060
000040

177777

0ooo1c

177776

9%:

SIGN WILL

TYPED

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

MOV
Mov
MoV
MOV
MOV
MOV
MOV
BPL
NEG
MOvB

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

:sPUSH RO ON STACK
::PUSH R1 ON STACK
: ;PUSH R2 ON STACK
:;PUSH R3 ON 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

CLR

MoV
move

CLR

MOV

suB
BLT
INC
BR

R3,-(SP)
R5,=(SP)
#20200,-(SP)

20(SP) ,RS
1%

#'-,1(5P)
RO
#$DBLK ,R3
#' L(R3)+
R2
$OTBL (RO) ,R1
R1,R5
3]

ADD
TST
BNE
TSTB
BMI
ASLB

BCC

BIS
BIS

MOVB
TST

MOV

177777

OR A MINUS

LEADING ZEROS WILL ALWAYS BE

NUM,-(SP)

CMP
BLT
BGT

8%:

SPACE

Mov
TYPDS

MOvB

7%:

THE NUMBER.

BR
TSTB
BPL

MOvB

CLRB

MOV

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

2%
8s

R5,R2
63

(SP)+
5%
-1(SP),=2(R3)
(R3)
(SP)+,RS

;:FORM THIS BCD DIGIT

::BR IF DONE
:: INCREASE THE BCD DIGIT BY 1

;sADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
::FALL THROUGH IF 0
;sSTILL DOING LEADING 0°'S?
;:BR IF YES
;sMSD?
;:BR IF NO
JsYES==SET THE SIGN
;sMAKE THE BCD DIGIT ASCII
;sMAKE IT A SPACE IF NOT ALREADY A DIGIT
::PUT THIS CHARACTER IN THE OUTPUT BUFFER
2:JUST INCREMENTING
;sCHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
::60 TO EXIT
;3GET THE LSD
;:60 CHANGE TO ASCII
;sWAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO

sYES==SET THE SIGN FOR TYPING
:sSET THE TERMINATOR
;:POP STACK INTO RS

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

2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411

2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430

2431
2432
2433
2434
2435
2436

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)

03-MAY-78

14:28

PAGE 50

SEQ 0055

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MoV

(SP)+,R3

;:POP STACK INTO R3

TYPE
MOV

,S$DBLK
2(SP),4(SP)

::NOW TYPE THE NUMBER
::ADJUST THE STACK

MOV
MOV
MOV

000004
$DTBL:

$DBLK:

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

MOV
RTI

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

(SP)+, (SP)

10000.
1000.
100.
10.
.BLKW

; ;RETURN TO USER

;tt'i.Q"t""Q"""""""'t't""'."'itt"tt.'t."fittt.ti"fi

.SBTTL

TRAP DECODER

;*THIS ROUTINE

WILL

PICKUP

THE

LOWER BYTE

THE

'‘TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;GO TO THAT ROUTINE.

020136
020140
020144

010046
016600
005740

020150
020152

006300
016000
000200

020146
020156

STRAP:

000002

111000

020160

.SBTTL
;*THIS

MOV

RO,=-(SP)

;s SAVE RO

ST
MOVB
ASL
MOV
RTS

- (RO)
(RO),RO

: :BACKUP BY 2
::GET RIGHT BYTE OF

MOV

2(SP),RO

::GET TRAP ADDRESS

RO
$TRPAD(RO)
,RO
RO

TRAP
::POSITION FOR INDEXING
;;INDEX TO TABLE
::60 TO ROUTINE

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

:*BY THE "‘TRAP'' INSTRUCTION.

;

020160
020160
020162
020164
020166
020170
020172
020174
020176
020200

$TRPAD:

017250
017510
017464
017524
017712
016436
016472
017154
017212

THE

ROUTINES

CALLED

ROUT INE

STYPE

;;CALL=TYPE

TRAP+0(104400)

TTY TYPEOUT ROUTINE

$TYPOS
STYPON
STYPDS
SRDCHR
SRDLIN
$SAVREG
SRESREG

::CALL=TYPOS
;:CALL=TYPON
::CALL=TYPDS
;:CALL=RDCHR
;:CALL=ROLIN
::CALL=SAVREG
;;CALL=RESREG

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

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

$TYPOC

::CALL=TYPOC

TRAP+1(104401)

TYPE OCTAL NUMBER

"tttt".'i""it"""'t""i""""i't""'i"t.""t'i'..""

.SBTTL

020202
020210
020216

_
020324
000340

000024
000026

POWER DOWN AND UP ROUTINES

:POWER DOWN ROUTINE
$PWRDN: MOV
#SILLUP,@#PWRVEC ;;SET FOR FAST UP
MOV
#340,#PWRVEC+2 ;:PRIO:7

MOV

RO,=-(SP)

:;PUSH RO ON STACK

(WITH LEADING ZEROS)

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

2437
2438
2439
2440
2441
2442

2443

2444
2445

2446

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

020220
020222
020224
020226
020230
020232
020236
020244
020246

000776

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

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

010146
010246
010346
010446
010546
010637
012737
000000

30A(1052)

03-MAY-78

MOV

R1,-(SP)

MOV

R3,=(SP)

MOV

MOV
HRVT

000024

HAL

BR
$PWRUP:

1%:

CLR
INC
BNE
MOV
MOV
MOV
MOV
MOV

MOV

000024
000026

MOV

MOV
$SPWRMG:

$ILLUP:

047520

042527

$SAVRG:
$POWER:

TYPE

SEQ 0056

:;PUSH
: ;PUSH
;;PUSH
::PUSH

R2,=(SP)

R4 ,=(SP)

ON
ON
ON
ON

STACK
STACK
STACK
STACK

;;PUSH R5 ON STACK

s HANG UP

SP,$SAVR6
;:SAVE SP
#SPWRUP ,a#PWRVEC ;;SET UP VECTOR

;.GET

;:POP
;:POP
;:;POP
;:POP

STACK
STACK
STACK
STACK

$SAVR6
$SAVR6
1%
(SP)+,RS

;:WAIT LOOP FOR THE TTY
;sWAIT FOR THE INC
::0F
WORD
;;POP STACK INTO RS

(SP)+,R0O

;:POP STACK INTO RO

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

#SPWURDN ,@#PWRVEC

INTO
INTO
INTO
INTO

R4
R3
R2
R1

;;SET UP THE POWER DOWN VECTOR

#340,3#PWRVEC+2 ::PRIO:7

;REPORT THE POWER FAILURE

:;POWER FAIL MESSAGE POINTER

$POWER

LASCIZ

<15><12>"'POWER'’

RTI
HALT

R1
R2
R3
R4

R5,=(SP)

.WORD

;:THE POWER UP SEQUENCE WAS STARTED
;; BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

.EVEN
SR
AL
SR

020342

;POWER UP ROUTINE
MOV
$SAVRG,SP

020330
020330
020330

020202
000340

PAGE 51

POWER DOWN AND UP ROUTINES

MOV

020330
020250

14:28

000001

AE
R

ATEND:

.END

R R R R R R R R R R R PR

SRR AR AR
R

R R R

R R R R

R R R

R
R R R

AR AR
R

R R AR R AR AR

935
1467

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+

16448+

839+

843
1700+

846
1703

1715

1765+

877

880

778
1017+

806+
1108

811
1135+

840+
1288+

845

874+
1415

1452+

879

908+
1701+

913
1717

954
1183+
990

1202+
1051

996

1091+
1609

1092+
1624

1094+

939+

1714
980+

1089+
1502+

871+

983+
1184
992
905+

1016+

1086+

1134+

1285+

836

870+

904+

938+

979+

1015+

1085+

1133«

771+
1699+
772«
911
1105+
747+
947
940+

1109

512
733+

581

804+

1716
776
914

1766+
779
934+

748+
*
984

773+

987

944«
1137«
580

945
1140+

770+

639
803+

948
1153+
692
837+

732+

769+

802+

1419

1458+

1022+

1296+

1422

1460+

1056
1021+
1020+
1255
1302+

1293+
1292+
1303«
1468+

1457+
1456+
1467+

1027+
1469+
1061
1026+
1025+
1260
1311«

1304+
1536+
1370
1301+
1300+
1477+
1478+

1366

1427

1372
1464
1466+

1465+

1033+
1312+
1066
1032+
1031+
612

1313«
1394+
1474
1310«
1309+
652#

1386

1433

1479+

1153

1612

1449+
1295+
1459+

NNy

1284+
1250
1294+

O =W

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
000100
000200
000400

906
1458

001660

872
1447

001600
001662

838

001612

1443

|BE1CR2

001610
001606

1347

)

BE1CLR
|BET1CRY

17624

001602

1096

E1CC

SEQ 0057

1093

954
804

001604

F_
5
03-MAY-78
14:28
PAGE 53
CROSS REFERENCE TABLE == USER SYMBOLS

6204
1090

l:E‘lBA

611
1088
4654
771
1324
24720
G718
1447+
4708
907+
4738
4728
941+
1767+
4748
1103
4694
4948
1450+
4934
1178+
4778
4764
479#
478
4804
4754
4964
4954
4834
4824
4854
484N
4864
4814
4984
4974
4894
4884
4914
4904
4924
4874
5004
4994
585
1184
108#
1074
1064
1054
1044
103#
1024
1014
1004

002644

-l

ADD20

ADLI
- 011074
ALLERR
001574
ATEND
020342

30A(1052)

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

1475+
1476+

1677

1685

940
1137
748
1168

944
1140
1642
1646
564
1872

553

1650

1470+

659

989+

1315
“arra

[EPRE

873

BIT13

BIT14

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

964
95#

109

1654

1882

1944

1658
747
1183
1933
983

1926
996

1638

1889

989

131

1394

1451

1469

1502

1536

1424

1429

1435

655

729

933

974

1012

1083

1216

1281

1038
1245+
1250+
1255+
1260+

1138
1246+
1251+
1256+
1261+

17544
1326
1348
1538
1557

1768
1412+
1419+

1413+
1420+

1507

151

613
1338

646
1357

679
1376

713
1453

716
1461

1018
147

1041
1788#

1042

1043

1044

384

389

394

1788#

409

414

17884

453
1925+

1788#

429

447
1903+«

419
341
1788#

1445

1743

1858

17404
1723#
11004

575

260
590+
1305

001702
011452
012257
012503
012642
012766
013235
011616
014005
011740
014560
001140
000174
011030
005532

1014
459
1788#
1788#
1788#

015262
015330

460
17884

177570

SEQ 0058

367
379
1788#
404
326
442

549
549
1279

259

1788#

17884#

336

1023
1491

w00

BIT11
BIT12

99#
1174
98#
97#

14:28
PAGE 54
CROSS REFERENCE TABLE == USER SYMBOLS

BIT10

001000
000002
002000
004000
010000
020000

03-MAY-78

BIT09

BIT1

30A(1052)

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

1039

1527

1220
1547

1289
1579

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

DT
DT12
113
115

015346
015362
015374

DT2
D122
DT3
DT31
EMTVEC=
EM1
EM10
EM11
EM12
EM13

015402

015272
015420
015312
015432
000030
011404
012211
012415
012554
012703

M4
M15
Mmé

013007
013072
013347

011503

M7z

m20
m21
M22
m23
M24
M25
EM26
m27
M3

M30

437
128#

306

345

351
356
361
366

371
378
383
314
388
393
398
403
408
413
418
423
320
428
433
440
446
451
457
325
330

013435

013523
013617
013713
014047
014120
014166
014220
014262
011706

014331

m31
M32
m33
M34
M35
M4
M5
mé
M7
NDMEM
RRCHK

014420
014653
014737
01501
015165
012021
012057
012115
012153
001722
004730

RRTN

010406

ERRS

353
358
363
375
317
400
322

335
340
S08#

010714

ERRVEC= 000004
XAD
XBRK
XNO
XNOG
XS
FAILCK
OR4
NS

INK
INTRTN

011140
005664
002660
010712

007476
006004
011277

=kttt

005320

006540
005470

1788#
1788#
368
380
1788#
405
327
443
531+

1788#

SEQ 0059

1788#
385

390

395

1788#

410

415

1788#

454

425
1788#

430

448

420
342
1788#

802

836

870

904

938

9534

979

1133

1112

1197

1266
734

1437
937+«

1602
1863

16224
1864+

1866+

1869+

2069

2070

2075+

677
2426

685
2427

689
2428

698

706

1815

1822

2420

332

532+

1788#
1788#
1788#
1788#

1788#
1788#
1788#
1788#
1788#
1788#
1788#
1788#
1788#
1788#
1788#
1788#
17884
1788#
1788#
1788#
1788#
1788#
1788#
1788#
1788#

1788#
17884
514

769
1713#
1070
577+
2099+
17734
11134
6234
1711#

718

1788#

2421
1019
1248
1053

2422
1024
1253
1058

198

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

1788#

732
1710
958
121#
2083+
1770
1106
614
1708

1416
11414

30A(1052)

1423

568

587+
2108+

589
2118+

2119+

1428

1434

14384

572
2423

617
2424

673
2425

1029
1258
1063

10344
12634

1068#

UNIBUS EXERCISER
M ACY11
7:02
CZKUAD.P11
26-APR-78 17:

005402
005420
005436
INTR4
005454
IOTVEC= 000020
172340

INTRY
INTR2
INTR3

7 2350
7
7
7
72300
72302
7
7
7

1015

1020
1025
1031
1264
182#¢
1834
1844
1854
1864
187#
188#
1894
1714
1724
1734
1744
1754
1764
1774
1784
1637
10134
10204
1025#
1030#

582#
1384
591#
601#

1219
7304
587
1170
737
7634
1176
1178
468#
1179
L4678

384

1324

"on

000340
177776
177776

554
S64
S7#
58#
594
60#
614
624
871
1134
35#
364
973

30A(1052)

03-MAY-78

5§

14:28
PAGE 56
CROSS REFERENCE TABLE =< USER SYMBOLS

SEQ 0060

1049#

10544
1059#
10644
529+
2055

530+
2087

2102

1659

16614

606

622

596
1228

1237

14424

6094
1205#
740

743

746

1696#

1187#
11934
1180+
1201#
1179+

1188

785

818

852

886

920

899
744
741
738
563
905
nn
36
768+
985+

942

1084
903

1177
915

1778

577
936
1285

733
939
1293

735
973
1301

774+
1011+

1037+

1204

1189+

1188+

865

797

869

801+

881
847

807

1084+

985

1037

1283

764
980
1310

768
1011
1450

770
1016
1457

780
1021

803
1032
1576

813

1464

801
1026
1475

1086

837
1132

835+

841+
1177+

869+
1283+

875+
1698+

903+
1778+

909+

936+

942+

1132+

UNIBUS EXERCISER
MACY11
CZKUAD.P11
26-APR-78 17:02
PWRFAL
010342
|PWRVEC= 000024

011174
010276
010306
010316
010326
104405
104406
104410
000010
010600
104407
006422
006446
006472
006516
001576
177572
177574
177576
172516
001100
001756
177774
010240
001136

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

007344

653

1274

555

1572
15934
15964
1599#
2028
24264
1664
1224
1227
1623
12444
12494
12544
1259#
L4664
1424

1434
1444
1454

324
203
374
654
2594

1933

200#
90#
80#

30A(1052)

1139
535+
1788#

1606#

536+

653«

SEQ 0061

1136+

1139+

2434+

2435+

2443

2458+

2459+

564

659

1168

1858

1872

1874

1882

24254
24284
1236

24274
1449
1456
1466
1476
1036+

16764

1481+

2084

2098+

2097+«
528
220

5234

15704
546
1938

548+
1944

548

734
724
71
89#
704
694
684
674
664
654

1284

15904

794
784
774
764
754
74K

88#
87#
864
85#
844
834
824
814

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

14104

2105+

553

1889

1926

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

S2
S3
S4

TBITVE=
TCRLF =

THRUO

THT
TKVEC
TMPPWR
TPVEC =
TRAPVE=
TRTVEC=
TSTOVR
TST1

TST10

TST11
TST12

TST13

TST14
TST1S
TST16
TST17
TST2
TST3
TST4
TSTS
TST6

TS17

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

TYPOC
TYPON
TYPOS

104401
104403
104402
177640
177642
177644
177646

Q
TST

010334
006016
001122
001126

IPARO=
IPAR1=
IPAR2=
IPAR3=
IPAR4= 177650
IPARS= 177652
IPAR6= 177654
IPAR7= 177656
IPDRO= 177600
IPDR1= 177602
IPDR2= 177604
IPDR3= 177606
IPDR4= 177610
IPDRS= 177612
IPDR6= 177614
IPDR7= 177616

BDADR
BDDAT

1292
1300
1309
1234

2207
562
2205

1304
1136
1314
1294
1244
1280

559

946
997
1040
1097

1126

1169
1221
1339
7614
767
800

834
868
902

589

670
555
1813
2035
1969
24234
1604
1614
1624
1634
1644
1654
1664
1674
1494
1504
151#
1524
1534
1544
1554
1564

1592
1144

2534
2554

30A(1052)

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

SEQ 0062

14184
14254

14304

22464
16694

22454
1151#

533
1446
7284

950
999
1046
11234
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

1601#

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.P11
26-APR-78 17:02

001214
017460
001100
000006
000014
000006
000006
017054
001221

017104
020126
015646
020116
015636
015502
015652
015446
015474
001103

001115
016134
001116
001224
016302
001112
001212
001154
001153
001120
001124
015626
000001
001104
020324
001114
017046
017036
016702
001222
001106
001110
017150
017152

285#
2221+
2414
2714

2714
2694
2774
2082
2874
2108

2351

1809

2354
228
537

18404
1406

537+
2440

1923+

2504
531
251#
3054

1935
2484
2844
2674
2664
2524
2544
18294
14

2454
2434
2490
2083
2099
2081#
2884
2464
2474
2120+

LA2824

016132
001152
000001

1216
1897

2654
7224

12704

30A(1052)
1928

03-MAY-78

1952

SEQ 0063

2237+
531
2734
2734

22424
537
2744
2744

538
2754
2754

539
2764
2764

2778

2794

280#

281#

2824

283¢

715

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+
1901+
2248

1929+
1947

1952
1949

1952

15
1788

1893«

1894

1896+

1906

1932+

1952

1964

2107+
2039
1884+

2048

2248

762
1400

796
1899

1082

1125

1168

1152
7524
965
13954

890#

892
12084

9244
1210

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

23894
18344
18114

18014
1808#
766
1952
540+
1922#

1788
1975
19604
1824

539+
2214
2248

24634
2107#
21044
2085+«
1952
541+
542+

21274
2121«
729
1277

1906#
1142
724
9634
1272

1838#

1941

1884

2128#

2310+
2280+

23234
2285

020332

1147

2461

24664

1877
1805+

o717

23934

2281+
2276+

1859
2424

PAGE 59
CROSS REFERENCE TABLE -~ USER SYMBOLS

017706
017710
016116
001100

14:28

1885
1806+

1899+
1900+

1904
1906

1906
1946

1938

830

864
2199

1827
754
1002#

2216

2248

2288+

2299+

1895
1817

788#
1004

1903#
1840

790
1074#

898

933

101

8224
1076

824
11164

1157#

23254
1891

1907

858

1159

1907

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

020202
020320
020250
001220
016436
LAA
S

016472
rereee

000016
001156
001160
001162
001164

001166

001170
001172
017212
L2222
]

017154
020330

015656
000037
016616

017110
016670
177777

016070
000232
167400

$SWRMK
=
$STIMES
$TKB
$TKS

$TMPO
$TMP1

$TMP2

TMP3
TMP4

$TMPS
N

TPB
TPFLG

000300
001210
001144
001142
001174

001176
001200
001202
001204
001206

= 000020

001150
001155

535

1142

2443
2864
2010#
2427
2024#
2427
2017#
26G#
raal

1334«
2724
1390+
2734
1328
2744
1717«
2754
2764
21634
2429
2147»
2442
529
191#
576
2106
2076
191#
1867

2264
b
539

1124
1852
1903

3
2834
2624
2614
202+
694
278#
279#
280#
281#

1414«

282#
144

8644
1002
1192
13994
2644

2684

30A(1052)

1154
1147+
24484
1952
2425

m S5
O03-MAY-78
14:28
PAGE 60
CROSS REFERENCE TABLE =~ USER SYMBOLS
1619
1152+

24344
24614

2458

2032

2048

2248

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

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

664
1563+
880+
1543+
813+
1391+
882+

1308+
956+

1388
1069+

1390
1101+

2449+

2450+

2465#

531

533

535

21
729
1277
1870
1915
1853
1399+

762
1399
1872
1916
1854
1804+

SEQ 0064

2426

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

2427
2448

1857#

529
20654
21164
20784

778+

811+

845+

879+

913+

947+

992+
1724+
915+
1671+
1110+

1041+
1725
993+
1716+
1335«

1108+
1788
1042+
1738+
1354+

1333«

1352+

1372+

1491
916+

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

1109+«
1779«
1522+

1264+
1788
1542+

1325+

1431
1194+

1718+
1265+

1755+
1436+

1756+
1788

1757

1788

537

538

539

541

1803

1941

796
1798
1873
1917
1874
1887+

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

1011
1850
1889
1952

2462

1897+

1906

695+

1714+
914+
1562+

847+

1561+

1898#

231

561

1168

1853

1906

26
538+

1401

2004

219+
700
1135+

1172+

957+

1421+
518
722

868

542
1216
1858
1914
1124+

284

285

538

1082
1851
1900

2004
2012
2774
713

2014

557

594+

595

597+

656

658+

663+

666+

668

691+

1174+
1052+
1426+

1175
1057+
1432+

1062+
1591+

1067+
1594+

1102+
1597+

1131+
1600+

1196+
1629

1247+
1788

1252+

1257+

1262+

752

7624

767
924
1082#
1235

788
933#
1097
1240

7964
946
1116
1270

800
950
11244
12774

822
963
1126
1339

8304

834

856
999

7294

1011#
1208

890
1040
12164

2234+
2193

2248
2248

898#

1046
1221

1074
1226

972#
1148
1358

997
1157
1377

168#

1395

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

001146
020136
TRP
= 000011
$TRPAD
020160
TSTNM
001102
STTYIN
016600
TYPBN=
TYPDS
TYPE
TYPEC
TYPEX
TYPOC
TYPON
TYPOS
XTSTR

OFILL

4OCAT=

LA A2

017712
017250
017414
017462
017510
017524
017464
015666
017707
LA2222

020342

263
533
24114
2408
2434
2025
2425
23394
21934
2213
2238
22794

2278
2274#
18614

2275+

1858
1944

566

704

2048

30A(1052)

2232
24034
26214
24194
1788
2026
2424
2411
2220
2240
2421
22814
2422
2279«
1935

198#

S69#

1788#

2248

03-MAY-78

14:28

N
5
PAGE 61

CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0065

2248

26224
1803+

2423#

24240

2425#

24268

2427

24284

24294

1898+

1903

1907

1925

1952

227#
671

2294
675

2314
683

2404
6864

289
687

2043

20474

1848

1876

2620
2227
22434

22324

2233

2423
2289

23244

201#
570

218#
615

1813

23934

18164

2445

226
6184

1820
2464

1840

1841#

1906

1907

1952

527
690#

1999#

541
696

2004

542

699#
2047#

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

ESCAPE

EETPRI
SSG

MULT
EWTST

OGRNT
oP
USH
EPORT
SCOPE

SETPRI
SETTRA
SETUP
SKIP
SLASH

SPACE

STARS

SWRSU
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$SCMRE
SSCMTM
SSESCA

[SSNEWT

$SSET
$$SKIP

.EQUAT
.HEADE
KT
.SETUP
. SWRHI

. SWRLO
LSACTT

7214
965

#
1#
1270
751
1L
1L
1
344
1398
*
2411#
1
»
1148
14
133#
»
760
1002
1268
1712

2048

1L
2411#
1L
#
1L
1L
1L
1
1

2334
2334
104

1270
26114
1L
1148
4
1L
1L
1L
4

2
#

798
205
214

866

900

1340
1344

1359
1363

1545

1564

7524
1004

7874
1076

722

788

2168
2148

2452
2436

728
1802

761

829

863

2421
1334

2422
524
767

2423

2424

800
1226
1567

222

233
822

1494
1499
994
1644

1529
1533
998
1648

790
1115#

824
11564

1159

855#

858
12074

889#
1210

926

962#

822

890

924

963

1002

1157

1208

897

932

971

1010

1081

1123

1167

1215

1276

2425

2426

2427

2428

834
1235

868
1240

902
1339

946
1358

950
1377

997

999

1040

1046

1097

1126

509

625
924

727
963
1214
1674
2000

752
970
1241
1694

2469

1166
1604
1842

931
1199
1620
1907

722
951
1208

2429

1122
1440
1785

922
1157
1582
1791

633

1116
1409
1775

521
896
1149
1493
1788

607

2175

306
856
1098
1407
1760
2394

462

1074
1395
1741
2248

289
828
1080
1397
1751
2326

2017

668

1817

1824

679

700
1991
570

708

782
1392

849

883

1195
1672

OO~

1482
1486
949
1640

~NWw

631

1374

1378
1382
917
1634

——

334
1355
1739
1L

765
1334
1334

SEQ 0066
O WVNO

ERROR

1L
¥

14:28
PAGE 63
CROSS REFERENCE TABLE =- MACRO NAMES
b —d

7624

COMMEN
ENDCOM

03-MAY-78

(o X AV
AV}
wv S

BE1

30A(1052)

133#
724
1001#
1334

1334
1395

1697
1334
1334

1334
1192
1334

1334
788
1009
1270
1721
2129
5434
1334
1334

1334
1334
1334
1334
271

277
1334

133#
1395
2421
1334
1192

o
2
rdd
o
P

274
o

1221
649

794
1047
1275
1722

1967

566
272
278

1666
1952

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
1221

2423
800

2424
834
1235

2425
868
1240

2426

2427
946

2428
950
1377

997

999

1040

1046

1097

1126

28
4

133
191
15

222

1226

1339

1358

MACY11
26-APR-78 17:02

UNIBUS EXERCISER

CZKUAD.P11
.SAPTB
.SAPTH
.SAPTY
.SASTA
.SCATC
SCMTA
.$0B2D
.$DB20
.SDIV
.SEOP
.SERRO
.SERRT
.SMULT
. SPOWE
. SRAND
. SRDDE
.SRDOC
.SREAD
.SR2AZ

1
*
1*
1L
1
1L
1
1
1#
1
1L
»
»
»
1
"
14
1
*

.$SCOP
.SSIZE
. SSUPR

1L
1L
1#

.$SSAVE
.$5B82D
.$5B820

.STRAP

.$TYPB
.$TYPD
.STYPE
.$TYPO
.$40CA

ABS.

"
"

2429

2000

»
1#
1#

2129

N
"

2048

104

2394

"
rd

2326
2175
2248

020342

ERRORS DETECTED:

14:28

CROSS REFERENCE

C
6
PAGE 64

TABLE == MACRO NAMES

233

1952

03-MAY-78

N
rid
N

»
1L
1L
#
»

30A(1052)

1791
1907

000
O

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:

28K

(55 PAGES)

SEQ 0067