Digital PDFs

AH-8745C-MC

September 1979

103 pages

Original

5.4MB

view download

OCR Version

4.5MB

view download

Document:	CZDVEC0 DV11 DV11 MODEM CNTRL SEP 1979 bw
Order Number:	AH-8745C-MC
Revision:	000
Pages:	103
Original Filename:	CZDVEC0__DV11__DV11_MODEM_CNTRL__AH-8745C-MC__SEP_1979_bw.pdf

OCR Text

DV11 MODEM CNTRL

AH-8745C-MC

SEP 1979

CZDVECO

m@flufln

FICHE 1 OF
1

MADE IN

SEQ 0001

IDENTIFICATJON
PRODU(
T (NDE
:

AC-B744(-MC

PRODUCT

CZDVECO DV11

DATE

NAM(
:

RELEASED:

MARCH

MODEM CNTRL

1979

MAINTAINER:

DIAGNOSTICS

AUTHOR:

JOHN EGOLF,

R.SOLER

THE INFORMATION IN THIS DOCUMENT IS SUBJECT
TO
CHANGE
W]THOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT (ORPORATION.
DICITAL EQUIPMENT (ORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

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

UNDER
A
WITH THE

DIGITAL EQUIPMENT CORPURATION ASSUMES NO RESPONSIBILITY FOR
THE
USE
OF
RELIABILITY
OF
ITS
SOFIWARE ON EQUIPMENT THAT [S NOT
SUPPLIED &Y DIGITAL.
COPYRIGHT

(()

1975,1979 DIGITAL

EQUIPMENT

CORPORATION

SEQ 0002
ABSTRACT
The

function of

the DV11

diagnostics

verify

that

the

operations of

the DV11

are

correct

operates according to spec.fications.
are ro malfunctions and
its

enviroment.

)

Parameters may be set

the all

using

the

to alert

are

The diagnostics verfiy that
)

option

there

)

diagnostics_as

°'‘TRIAL'' program (CZDVE SA:210).

the DV11

)

configuration

ALl questions should be

answered and then each diagnostic will 'OVERLAY'' these
parameters which
are stored in the ''STATUS
TABLE'' (see section 8.4a).
The alternative to
"TRIAL'' program is "'AUTO SIZING'' (see section 8.5).

CZDVE
are

is used to verify the cables used for modem hook up.

tested

and

interupts

are also checked.

All

signals

are

Modem

tested

bits

and

the turn around is either through the single
Lline
tester(h325)
or
16
Line
turn around(h861).
ALl signals that are looped around by the test

connecter are checked.
Modem control signals AND DV11
transmitter
and
receiver
data is checked.
Any combination of lines may be selected and

these_inturn will

be tested

Part 2 ~THE MANUAL PARAMETER

individually.

INPUT(TRIAL)=

IS USED

TO GET

THE PARAMETERS

INTO
THE
STATUS TABLE FOR REFERENCE BY THE DIAGNOSTIC IF '‘AUTO SIZING''
does not work or is not desired.
Starting address is
at
210
and
the
execution of the program is self explanatory.
(answer the questions).
Note:czdvec

lengths

has been enhanced

(5,6,7 and 8),

Currently there are six off
sequence

to be able

to run with all

the

character

with parity option enabled(odd/even).

insure that if

line diagnostics

an error

that

should occur

are

will

run

be detected at

arn g?rly stage and insuring that diagnosis of error will be immediate to
problem

NOTE:

Additional diagnostics may be added

in the

N ES AN
=

The six diagnostics are:

.
.
.
.
.

DZDVA
C(ZDvB
C€ZDvC
DZDVD
CZDve

C(2DVF

future.

[REV] Basis R/W test and ROM instruction exerciser.
[REV] DV11 STAT LN (D TSTS
[REV]
ROM TST PRT 1
[REV] 'FREE RUNNING' Rom tests part 2.
[REV]
DV11 MODEM CNTRL
[TRIAL PROGRAM]

[REV] Asynchronous

line card tests.

REQUIREMENTS

EQUIPMENT
Any PDP11 family CPU (WITH MINIMUM 8K MEMORY)
ASR 33 (or equilivalent)

DV11=-AA MUX CNTRL UNIT

AT LEAST ONE

THE

FOLLOWING

DV11-BA 8 LINE SYNC MODULES
Dv11-8B8 8 LINE ASYNC MODULES
DV11-BC & SYNC LINES, & ASYNC LINES

SEQ 0003
2.2

STORAGE
Program will use all 8k of memor; except where ABL and BOOTSTRAP
{OADER
reside.
Location
1500
thru 1736 are especially to be noted and to be
untouched by operator after DV11 trial program has
been
executed;
or
after the 'AUTO SIZING' has been done.

LOADING PROCEEDURE°
ME THOD

ALl

programs are

in absolute

format

ano are

loaded

using

the

ABSOLUTE

LOADER.
NOTE:
if
the
diagnostics
are
on
a
media
such
as
DISK
-MAGTAPE ,DECTAPE, or CASSETTE;
follow
instructions
for
the
monitor
which has

been provided on that

specific media.

MEMORY

=«

k2 NJNIN —
NN
= NN
N
NNN

ABSOLUTE LOADER starting address =500

12k
16k

20k
24k
28k

SIZE

3.1.1

Place address of ABS loader into switch register.
(also place "HALT' SW up)

3.1.2

Depress

'LOAD ADDRESS'

3.1.3

Depress
loading

°START KEY'
into CPW)

key on console and release.
console

and

release

(program

should

now

SEQ 0004
STARTING PROCEEDURE
A.

B.
C.

Set

switch register

to 000200

Depress 'LOAD ADDRESS' key and release
Set SWR to zero_for 'AUTO SIZING' or leave
leave SWR bit 7=1 to use ex1st1ng parameters set up by
program

previoustg

SIZING'.(section 7.2 and

run

DV11

diagnostic

B8.4,8.5 may be

helpful)

that

)
trial

DVil

used

)

the

"AUTO

D.
Depress 'START KEY' and release the program will type
Maindec
Name
and
program
name
(if
this was the first start up of the program) and
also the following:
'MAP OF DV11 STATUS'

1500
1502
1504

175000
000300
000226
000062
000226
000062
000226
000062

1506
1510
1512
1514
1516
1520
1522
The above

starting

000226
000062

i1s only an example!

add.

1500

1in

This

the

VERIFIED
BY THE USER IF AUTO SIZING
table see section 8.4 for help.
The program will

type

'R'

would

program.
IS

and proceed

DONE.

to run

indicate

THE

For

the

status

table

STATUS TABLE MUST BE

information of

status

the diagnostic

CONTROL SWITCH SETTINGS
NOTE:

SW 15
SW 14
SWw 13
SW 12
Sw 11
SW 10
SW 09
SWw 08
Sw 07
SW 06
SWw 05
SW 04
Sw 03
SWw 02
SW 01
SW 00

there

is no real

SWR

(177570);

SWR

may

modified

Loc:176 or by hitting Control ''G'' <*G> on console terminal.
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:

Halt on error
Loop on current test
Inhibit error print out
Inhibit **ALL** type out/bell on error.
Inhibit iterations.
(quick pass)
Escape to next test
Loop with current data
(atch error and loop on it
Use previous status table.
CLR-do AUTO S]ZE.
Set- single H325 turn around Clr- multi H325 turn aroung
Reserved
Reserved
Reserved
Lock on selected test
Restart pro?ram at selected test
Reselect DVI1's desired active.

SEQ 0005
6£.1.2

SWITCH REGISTER RESTRICTIONS

Sw 00

RESELECT DV11°'S DESIRED ACTIVE.
please note that a
message
is
typed
out
for
setting
the
switch
register
equal to
Dv11's
active.
this
means
1if
the
system
has
four
DV1ls;
bits

00,01,02,03

-m

ME THOD :

Sw 01

will

Using

set

this

Lloc

'DVACTV'

the

alters

switch
that

location;therefore
if four DV11s are in the cystem ~+*D0 NOTx=«»
set switchs greater than SW 03 in the up position.
this
would
be a fatal error.
do not select more active DV11s than has been
given information about in trial program.
Load address 200
Start with SW 00=1

Program will

type messa?e

)

Set the binary number of
DVIils
desired
active
EXAMPLE:
1-1
DV11;
3=2
DV11;
7=3
DV11;
17=4 DV11 37=5 DV11 etc.
PRESS
CONTINUE.
Number (IF VALID) will be in data lights (excluding 11/05)
Set with any other switch settings desired.
PRESS CONTINUE.
RESTART PROGRAM AT

that
test

SELECTED

TEST

strongly sug?ested

at least one pass hass been made before trying to select a
that is not in the order of sequence the
reason
being
is

that the program has to clear areas and set
?hz? ?Eg?st 1s selected ALWAYS START AT THE

Sw 09

from

switch(Sw00)

up parameters.
Also
VERY
BEGINNING
OF

LOOP ON CURRENT DAiA:
this
switch
will
only
work
if
call
'SCOP1'
is in that test.
The reason being that moct tests deal
with blocks ot different data to be sent or received all at once
thus in block data;
one pattern cann't be singled out.

SEQ 0006

6.1.3

SWIT(H REGISTER PRIORITYS
ERROR SWITCHES

1.
2.
3.

4.
S.

SCOPE
1.

SWw 12
SW 13
SW 15

Delete print out/bell on error.
Delete error printout.
Halt on the error.

SW 08
SW 10

Goto beginning of the test(on error).
Goto next test(on error).

SWITCHES
SW 09 (it enabled by ‘SCOP1') on an error;
It an '+' is printed
in
front
of
the
test
no.
(ex.
*TEST
NO.
10 ) SW09 is
incorporated in that test and therefore SW09
is
susually~
the

best

switch

SW09

1is

for the scope

not

Loop

enabeled;

(SW14=0,

and

SW10=0,

there

SW09=1,

+*HARD~

SW08=J).

error

(constant);
SWO8 is best.
)
)
(SW14=1,0,
Sw10=0,
SwW09=0,
Sw08=1).
for
intermittemt
errors;
SW14=1
will
Lloop on test reguardless of error or not
error.

2.
3.
4.2

SW 14
SwW 11

(SW14=1,

SW10=0,

Sw09=0,

Sw08=1,0)

STARTING ADDRESS
ctarting
address is at 000200 there are no other starting addresses
for
the
DVI1
diagnostics
previously
mentioned except for CZIDVE which is:
000200 for the modem control and cable tests and 000210 for
the
manual
parameter

NOTE:

1nput

program.

address

000042

is non->ero

the program assumes

1is

under

ACT11
or
XXDP
control
and
will
act accordingly after *ALL«
?x?}l??ge DV11's are tested the program will return to °‘XXDP' or

OPERATING PROCEDURE
when program is initially started messages
will be printed.

and program will

begin running the diagnostic

described

in section

four

SEQ 0007
5.2

PROGRAM AND/OR OPERATOR A(CTION

The typical

approach should be

Halt on error

Set SW 13:

2.
3.
The

(via SW 15=1)

when ever an error occurs.

Clear Sw 15.
)
Set SW 14:
(loop on this test)

(inhibit error print out)

TEST NUMBER and PC

will

typed out

and possibily

an error

message

(this depends on the test) to give the operator an idea as to the source
ot the problem.
it it is necessary to know more information
concerning
the
error
report;
LOOK IN THE LISTING for that TEST NUMBER which was
typed out and then NOTE THE PC of thE ERROR REPORT this
way
the
EXA(CT
FUNCTIONING of

the

test

CAN BE

INTERPEDITED.

ERRORS
As described previously there will always be a_TEST NUMBER and PC
typed
out
at
the
time of an error (providing SW 13=0 and SW 12=0).
in most
cases additional information will be supplied to the the
error
message
which is to give the operator an indication ot the error.

6.2

ERROR RECOVERY

I't for some reason the DV11 should "HANG THE BUS' (gain control
of
bus
so that console manual functions are inhibited) an init or power down/up

is necessary for operator to regain control
of
cpu.
If
this
should
happen;
look
in Llocation 'TSTNO' (address 1224) for the number of the
test that was runnlq? at the time of the catastrophic
error.
In
this

way
the operator will
time of the error.

have an

idea as

to what

the DV11

was doing at

the

RESTRICTIONS

STARTING RESTRICTIONS

See section 4.

(PLEASE)

Status table should be verified reguardless of how program was
started.
Also
it
is
important
to
use this listing
along with the information
printed on the TTY to completly isolate problems.

SEQ 0008
7.2

OPERATING RESTRICTIONS

DV11

trial program must be run prior to the first

and

only

the

first

running of any DV11 diagnostic if "'AUTO SIZING'' is not used.
NOTE:
If no program other than a DV11 diagnostic was loaded after DV11

trial
or
if
core
memory
has not been changed.or if there is no DV11
configuration changes;
the DV11 trial program need never be run
again.

However
if
any
of the above have been violated the DV11 trial program
must be run again before running the diagnostics NOTE:
An
alternative
to
the
above is attempting the 'AUTO SIZING' when program is initially

started with SW07=0.

7.3

HARDWARE C(ONF IGURATION RESTRICTIONS

Hardware must be set

AlL

(SYNC

LINE

CARDS ONLY)

to FULL DUPLEX

Lines of a particular

)

line card must be configured the same.

MISCELLANEOUS

EXECUTION TIME
AlLL DV11 device diagnostics will give an 'END PASS'
message
(prO\ldin?
no
errors
and
swli2=0) within 4 mins.
This is assuming
Sw11=1 (DELET
ITERATIONS) s set to give the fastest possible execution.
The
actual
execution time depends greatly on the PDP11 (PU configuration.

8.2

PASS

COMPLETE

NOTE:
SW11

+EVERY* time the program is started;
the tests will
run
as
if
(delete
iterations)
was
up
(=1).
This is to ‘VERIFY NO *HARD*
ERRORS® as soon as
possible.
Therefore
the
first
pass
<=EACH
TIME

PROGRAM

STARTED-

will

'QUICK

PASS'

until!

all

are tested.
When the diagnostic has completed a pass
an example of the print out to be expected.

END PASS CZDVECO CSR:
NOTE:
NOTE:

175000 VEC:

300 PASSES:

DV11's

in system

ERRORS:

000000

the

000001

following

The numbers for (SR and VEC are not necessarily the
values
for
the device.
They are onl; tfor this example.
CZDVE (MODEM AND CABLE TEST) END PASS message is
a
Llarge
‘END’’
typed
out
on
tty.
Please note that each
character printed is
actually and "END PASS'' indication.
This was used in
place
of

"BELL'"

mistaken

standard

because

swl2=1

END

PASS was

for END PASS.

and an error occured the BELL may be

The pass execution

too

lenghtly.

fast

that

THEREFORE each char

the

is an

"END PASS and the entire "END'' is not required for acceptance.

¥4

SEQ 0009
KEY LOCATIONS

RETURN

(1212)

Contains the address

iteration
asserted.

count

where

1is

reached

program
or

will

loop

return
on

when

test

Contains the address of the next test to be peformed.
Contains the number of the test now being peformed.
The bit

1302700

000001000 00 Means

Currentés
DVCROO-DVCR17
DVSTO0-DYST17
(1500)-(1736)

now

DVACTV (1276)

'RUN'

always

locations contain the

8 (decimal)

(1412)
(1414)
(1416)
(1420)
BIT
BIT

BIT

BIT
BIT
BIT
BIT
BIT

no.0S

the

information needed

DvV11

(RUN)

DvV11

test

they contain the

will

tested.

Means that DV11

tested.

Contains the receiver csr
test.

the

EXAMPLE :
no.

current

(DVACTV)

00,04 will be
DV11

under

Contains the status of the current DV11 under test.
Set:
Line card *NOT installed (AND WONT BE TESTED)
Set:
Parity enabled
Set:
Even parity selected
Set:
One sync, =0:
two syncs.
Set:
Async Line card, =0 Sync line card.
Set:
Reserved
Set
Bits per char.
(used with bit8)
Set
Bits per char.
(used with bit9)

81609 81T88 BITS PER (HAR.
0

0
1

81T 07-00

VO ~NI00

L00.03
L04.07
LO8.11
L12.15

that DV11

past

EXAMPLE :

DV11s sequentialy.

1276/2000000000010001

(1356)

one

CSR,VECTOR and STATUS concerning
the
configuration
of
each OV11.
Each
bit
set
1in
this
Llocation
1indicates
that
the
associated
DV11
will
be
tested
in
turn.
EXAMPLE:
(DVACTV)
1276/0000000000011111
means
that
DV11
no.

00,01,02,03,06
DVSCR

points

tes.ed.

running.

These

OQ A dadcdcdcad
00O =NWHWN

8.4

SYNC “‘A"’ ¢or specified Line card.

cZl

SEQ 0010
MORE ON THAT

'STATUS TABLE'

‘MAP OF
1500

(1500-1736)

DV11 STATUS'
175000

000000
004000
000000
The above information will be repeated for each of up to 8 DV11's in the
sgstem(these will follow under this table).
EXPLANATION:
.
1500
175000
T:1s is the system control register for the 1st DV11
in
system.

1st

Line card

Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:

_18

—

ooN
N
—

000062
000226

N
~n

000062

&£~
—
b

(%, 1V, |

000062
000226

The bits are as

Line card *NOT installed (AND WONT BE
Parity enabled
Even parity selected
Orie sync, =0:
two syncs.
Async line card, =0 Sync line card
Reserved
Bits per char.
(used with bit8)
Bits per char.
(used with bit9)

follows:

TESTED)

0
1

BIT 07-00
SYNC 'A*' for specified Line card.
000062
This represents 'SYNC B' for the 1st line card.
000226
This is 'SYNC A' and line status for the 2nd line

-t

in the 1st DV11.

8IT09 BIT88 BITS PER (CHAR.
—a0o0

BIT
BIT
BIT
8IT
BIT
BIT
BIT
BIT

the

This is vector 'A' for the first DV11 in the system.
This represents 'SYNC A' and the software status for the

(92T
0 NTo ]

000300
000226
QOO
=
OO =NIWH W

1502
1504

8.4A

(for bits defination see explanation

card.

for

line card 1).

(for bits defination see explanation for

line card 1).

This
This
(for
This
This

This is SYNC B for the 4th line card.

The above

is 'SYNC B' for
is 'SYNC
A' and
bits defination
is 'SYNC B' for
is 'SYNC A' and

is repeated

the second line card.
line status for the 3rd line
card.
see explanation_for Line card 1).
Line card no.
3.
line status for the 4th line
card.

for each DV11

in the system.

The table

filled
by
AUTO SIZING or by the manual parameter input program
as
described
previously.
Also
if
desired
by
user;
“the
locations
may
be altered
by
hand
(toggled
1in) to suit the
specific configuration.*snote** when character
length
1is
less
than 8 bits, be sure to setup correct sync character in switches
of sync recognition logic.
ie:
if 226 for 8
bit
character
|,

SEQ 0011
then it should be 026 for 7 bit character.

SEQ 0012
8.5

**x METHOD OF

8.5.1

FINDING THE

AUTO SIZING ==+

CONTROL STATUS REGISTER.

The program will
start
at
address
175000
and start
‘'REFERENCEING'
address.
1f a NON-EX MEMORY TRAP occures:
the pointer (holding
175000)
is
updated by 10 and the above is
repeated
untill
address
175200
is
reached.
It
a
°SLAVE
SYNC
RESPONSE' was issued by
the DV11 (or any

other device) (no nxm trap) ;
pointer plus
12
(SEL12)
is
tested
to
contain 177777 (MUST BE EXACTLY 177777);
if a trap is encountered or if
SEL12 does not_contain 177777 the above updating is gerformgd.
If SEL12
was ggual to 177777 the pointer is stored away and the routine continues
as

above:

NOTE :
It the program does not
AUTO SIZING should rot be done.

8.5.2

find your DV11;

something

is wrong

and

FINDING THE VECTOR
The vector area

'.+2'

(next

(address 300-776)

address).

filled with

the

instruction I0T and

Bit7 and Bité (RX INTERUPT AND RX INTERUPT IE)

are set into DVscr register;
a delay is made and if no interupt occures
(because
of
a bad DV11) the program assumes vector address 300 and the
problem should be fixed in the diagnostic.
Once the problem
is
fixed:
the
program
should
be
re-setup
again
to
get correct vector.
If an
interupt occured;
the address to which the DV11 interupted to is picked
up and reported as the vector.
NOTE:
1if the vector reported is not the
;ector set up by you;

there

a problem and AUTO SIZING should not

one.

8.5.3

PARAMETER ASSUMPTIONS.
Since too much hardware would need to be turned on to SIZE the
rest
of
the
parameters;
the program must assume the remaining variations.
The
result if not to your specific configuration
may
be
altered
by
hang
(toggle in) is desired.
In this way 95X% of the parameter setup was done
by the program and 5% by you.
THEREFORE
:

3)
4)

ALL LINE CARDS(4) ARE ASSUMED TO BE INSTALLED.
L
Set Bit15 of status map of any (appropriate) line cards missing

TWO SYNCS.
Set Bit12 if gou have a 4
EIGHT BITS PER
(HAR.

Line group set

for 1

sync.

Adjust bits 9 and bit 8 in status map for your correct config.
SYNCHRONQUS LINE CARDS INSTALLED
.
Set Bit11 of status map_for Async line card and zero Sync chars.

SYNC ''A''=226 AND SYNC

"B''=062

In all adjustments please refer to section 8.4a

tor greater detail.

VEC LST

SEQ 0013

DOCUMENT
AP AN ARARAAAN
P&

CZDVEC LST
AR AN
AR AN

czt

VEC LST

SEQ 0014

AC-8744(C-M(/<377>/CZDVECO DV11 MODEM (NTRL

ROUTINE USED TO ''AUTO SIZE'' THE DV
CSR_AND VECTOR.
NOTE :
THE CSR MAY BE ANY WHERE IN THE FLOATING
ADDRESS RANGE (175000:175400)
AND THE VECTOR MAY BE ANY WHERE
FLOATING VECTOR RANGE (300:770)

TABLE

RING
RING

BITO7

1267

LOOP AROUND FUNCTIONS

Co
co

BITO6

CTS
CTS

A AR RN AN AN AARN

(H325)

SECRX
DSR

BITOS

IN THE

SECTX
NS

BITO&

81T03‘

AR AR AR A AN RN RN

RTS
RTS

BITO2

AR AR AN RN AR

TRDY
TRDY

BITO1

.lAll

IDR

x*x

xx+

BITOO

ANNAANRRRRAARNRN AN

THIS "TEST 1" IS NOT ACTUALLY A TEST.
IT IS USED TO GET USERS INPUTS FOR WHICH LINE(S)
EXERCISED. THE PROGRAM WILL TYPE OUT:
(A) H325
(B) H861
TypE

LENAB
LENAS

ARE

TO BE

IB'I

THE H325 TURN AROUND IS USED FOR THE SINGLE LINE

TURN AROUND AT THE DISTRIBUTION PANEL OR
AT THE END OF THE MODEM CABLE.
THE H861 TURN AROUND IS USED FOR THE 16 LINE TURN AROUND.
}; ;356H825 WAS SELECTED (A) THE FOLLOWING WILL BE TYPED

SELECT LINE(S)i

XXXXXXXXXXXXXXXX

THE FIRST "X'' REPRESENTS LINE 15 AND EACH ‘X'’ IS THE
NEXT LOWER LINE TILL THE LAST “X'" IS LINE 0. TYPE
A ‘"1'° OR A """ UNDER THE APPROIATE ‘X'‘(LINE)
TO EITHER SELECT(1) OR NOT TEST(0) EACH LINE.
AFTER ALL 1'S AND 0'S ARE TYPED; TYPE A <(R>.
THE PROGRAM WILL TYPE OUT IN OCTAL THE LINES YOU
HAVE SELECTED; AND THE PROGRAM WILL BEGIN RUNNING
THE HIGHEST SELECTED LINE THROUGH *ALL* TESTS THEN

UPDATING TO THE NEXT LOWEST LINE TILL ALL SELECTED
LINES ARE DONE. THEN THE PROGRAM WILL TYPE AN

“END'’ CHAR.
If

PLEASE READ

THE SECTION ON PASS COMPLETE

IN D DOCUMENT,

THE H325 IS SELECTED AND SW06=1

THE FOLLOWING WILL BE

TYPED:

SIGNALS
SIGNALS

FOR ASYNC
FOR

SYNC

LC.
iC

VEC LST
SINGLE LINE:
THE

USER MUST

END PASS

SEQ 0015

THEN TYPE

IS THE

IN A SINGLE

SAME.

LINE

DESIRES

(00-17)

-OCIAL-

REGUARDLESS OF WHICH CONNECTOR WAS SELECTED,; THE
THE LAST QUESTION IS:
MODEM VECTOR:
(THIS WILL BE ASKED ONLY AT THE INIATL START OF PROGRAM

OR WHEN A DIFFERENT DV11

IN THE

SYSTEM IS UNDER TEST)

TYPE IN THE VECTOR OF THE MODEM CONTROL (300:774).
THE CSR(MC.CSR) 1S ASSUMED TO BE =DVSCR+20.

NOTE :

CABLE

TESTS ARE

TO BE

DONE ON OTHER

DV11°'S IN SYSTEM; SELECT THEM BY USING SWOO AS DESCRIBED
IN THE DOCUMENTATION.
UNLESS LOCATION 42 IS NON-ZERO IN WHICH CASE THE PROGRAM
ASSUMES

CYCLE

ITS UNDER ACT-11

MONITOR.

THE PROGRAM WILL

THROUGH ALL DV11S AND MODEM CONTROL

THE RESTRICTIONS ARE:
waxAl
| *«x MODEM VECTORS MUST BE AT 300
#xxAL
| *x+ TURN AROUNDS MUST BE HB861.

*HOWEVER*

"LONG END PASS'' WILL BE GIVEN AT END OF LARGE END TO

INDICATE DEVICES TESTED. PASSES TYPED IN THIS
MESSAGE DO NOT INDICATE PASSES BUT RATHER THE
NUMBER OF FULL PASSES THROUGH MULTIPLE DEVICES.
!LARGE END AND TYPE OUT MAY BE INHIBITED BY Swi12!

1466

AR R AN

AR AR

RN A RN

AN AN AN R RN RARARRARARN NN AARARNARARNNRARARRRNR
RN

ARCRRRRARRRNARARRAANNNNNY

TEST

A AR A AN A AN AN AR AR ARRAN R AN AR RS

INITIALIZATION CHECK

VERIFY THAT CONTROL STATUS REGISTER AND LINE
REGISTER WERE CLEARED BY INITIALIZE

1503

1530

1557

RAARKCRRRANRNRARNNNARAY

TEST

STATUS

A A A A A A A A A A AR AR AR RN R AR RN AR AN

VERIFY THAT '‘INTERUPT ENABLE'' CAN BE
SET AND CLEARED.
ARAAARARNNNNRRAARANRRAR

TEST

ot aa aa a A A

AAAA AR A AR AR R AR

Aaan e a kv

AR RN

VERIFY THAT 'DONE'’ CAN BE
SET AND CLEARED.
RERRRANNARNRARRAANAARRY

TEST

e A AR AR

A R

AR R A AN

VERIFY THAT °‘MAINTENANCE MODE'' CAN BE
SET AND CLEARED.

1584

1610

ARNAAARARRANRANRRANRAEE

TEST

€

AN AN AN A RN A AR ARR R AN

R AN

VERIFY THAT ''SCAN ENABLE'' CAN BE
SET AND CLEARED.
RARRRNKCNNRNRANRRNRNNANN

TEST

AN A AN AN R A ARSI AR AR RANARRRANNR
AN

VERIFY THAT 'BUSY'' IS SET WHEN ‘'SCAN ENABLE'' IS SET
VERIFY THAT "BUSY'' IS CLEARED WHEN ‘'SCAN ENABLE'' IS CLEARED

D
1638

1659

wnnenannnernnnnnwnswnrn

JEST

tnnmanndnrennnnsnnranarnnntnnse

VERIFY THAT SETTING 'DONE'' DOES NOT CAUSE AN
INTERRUPT IF ''INTERRUPT ENABLE'' IS CLEARED.
rranRnnnnRnAnnrrrerwnanr

VERIFY THAT NO

TEST

wxannnnwnecrannnnnnnnnnnnnrnnnr

INTERRUPT OCCURS WITH “'INTERRUPT ENABLE'’

SET AND 'DONE’'' CLEARED.

1680

1703

RERRRRERREAANRNARINARAN

TEST

AN a v

a e e h v e s ke

A AN

R AR AN R R A

VERIFY THAT SETTING 'DONE’'’' CAUSES AN INTERRUPT
WITH "'INTERRUPT ENABLE‘' SET
ERNERRAAANRRAANRANRAAAE

TEST

A v

e et e AR R AR

A AN

R AR

a s v a r a A R AR A AR AR AR R

RN AW

VERIFY THAT NO INTERRUPT OCCURS WITH

"'INTERRUPT ENABLE'' SET AND 'DONE'' SET AT PRIORITY 7.
1724

RANRARRRRRAARARNRARAAAL

TEST

Aun vt

VERIFY THAT NO INTERRUPT OCCURS WITH

"'INTERRUPT ENABLE'' SET AND 'DONE'' SET AT PRIORITY 6.
1745

RARANRAANRNNANNRNANKAANAARE

TEST

715

e na

et etk A A AR AR AR AR AR

AR AR

VERIFY THAT NO INTERRUPT OCCURS WITH

""INTERRUPT ENABLE'' SET AND ‘DONE'' SET AT PRJORITY 5.
1766

KARARKRARARAARAANRANRRANY

TEST

aa e

v ke

AR AR AN AR AN ARN

VERIFY THAT NO INTERRUPT OCCURS WITH

"'INTERRUPT ENABLE'® SET AND 'DONE'' SET AT PRIORITY 4.
1787

EARRRRRARKANRAAANRARNALE

VERIFY

THAT AN

TEST

n e aah kA A AR AR AR RN AR

AN RANR AR

INTERRUPT OCCURS WITH ‘'INTERRUPT

ENABLE'' SET AND 'DONE'' SET AT PRIORITY 0.
1808

RARRNRARNSRRARRAAAARRNR

JEST

AAraraaa dh

A v kA A AN KA AR A AR AR

VERIFY THAT AN INTERRUPT OCCURS WITH "‘INTERRUPT

ENABLE'' SET AND 'DONE'* SE1 AT PRIORITY 1.
1829

RARRRKRNXRRANARARAAAANREY

TEST

A n st a a

a a A v a A A A AR

AR A AN KRR AR

VERIFY THAT AN INTERRUPT GCCURS WITH ‘'INTERRUPT

ENABLE'® SET AND ‘DONE'* SET AT PRIORITY 2.
1850

KARRAANRRRAARRRAANRRANANE

TEST

A N

e e ke A AR AN KA AN R AR EA R IR K

VERIFY THAT AN INTERRUPT OCCURS WITH ‘'INTERRUPT

ENABLE'' SET AND 'DONE'* SET AT PRIORITY 3.
1870

1896

ARNRRRARARRARKRANRRNRANY

JEST

Aan

A v A

A A e A AR AN

AN RARNRAR R RN &

VERIFY THAT ALL LINE NUMBERS CAN BE WRITTEN INTO AND
READ BACK FROM LINE COUNTER
HARRNRANRRNARRACARARRNRY

TEST

USING ''STEP'' MODE, VERIFY THAT THE
LINE COUNTER CAN BE

aa a a e A AN AR RS AR AR AR AN AR

STEPPED THRU ALL STATES.

VEC LST
SEQ 0016

VEC LST
1923

ERRRNRANRCRARN
R
ettt

TEQT

aaa et aa d

et A

R NN

R AR NN

WRITE 1'S INTO ALL SCANNER MEMORY LOCATIONS.
\T/(E)R{fg THAT ALL LOCATIONS HAVE BEEN WRITTEN

VERIFY THAT ‘'CLEAR SCAN'' CLEARS ALL SCANNER

MEMORY LOCATIONS.

1975

2018

2062

RRRRANAANARAANANRRAANRN

JEST

A A

a e

A AN

AR AN

AR AR AR AR OO

WRITE 1°S INTO SELECTED SCANNER MEMORY LOCATION.
VERIFY THAT ONLY SELECTED LOCATION WAS WRITTEN INTO.
RRNRNARNEANRNRRAARRNNENY

TEST

e a

A A R A

A AR NN R AN AR

R AR R ARR

WITH ALL SCANNER MEMORY LOCATIONS SET TO 1°'S,
WRITE O0'S INTO SELECTED LOCATION
VERIFY THAT ONLY SELECTED LOCATION WAS CLEARED.
EARRRNFRARRAANRRARANNNN

JEST

nnaan et e a v

kANt ek AR ANt RN

VERIFY THAT '‘CLEAR MULTIPLXER'' CLEARS ALL MULTIPLEXER
FUNCTION FLIP-FLOPS

2103

RERARAANNRRAANANRRNAAARY

WRITE

1°'S

INTO ALL

TEST

e r a e ke ek

e A A A kR

R AR XA N NN

SCANNER MEMORY LOCATIONS

SET "LINE ENABLE FOR ALL LINES

VERIFY

2157

2235

2282

2329

INTERRUPT OCCURS FOR EACH LINE

REARNRRARNARAANARNANANNRY

TEST

e e A A A R A A AR R AR R AR AN

AR AR K

WRITE 1°'S INTO AlL MULTIPLEXER FUNCTION FLIP-FLOPS
CLEAR SCANNER MEMORY
VERIFY THAT AN INTERRUPT O(CCURS FOR EACH LINE
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
ARRRARARARARIARARANENRN

TEST

e a a e v e A

A R AR AN AR R AN RN R AN

VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP (AN
BE SET AND CLEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H325 TURN AROUND [S USED
RARARNRERRNRNRRARAANRRL

TEST

A n e

A A

AR A AN R AR R AR N R AR R

VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN
BE SET AND (LEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H325 TURN AROUND IS USED
ARAARNRNARRARRRANREANRAN

TEST

v e

A R A A A AR AR A R R R A AR RN NN

VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN
BE SET AND CLEARED FOR SELECTED LINE
THIS

2376

THAT AN

TEST

IS DONE

THE H325

AAXRRRANRARRRRAANANERRARAN

TEST

TURN AROUND

tamn it a a e v

VERIFY THAT NEW SYNC (SECTX IF ASYNC LC)
BE SET AND (LEARED FOR SELECTED LINE
THIS

TEST

IS DONE

THE

H325

IS USED

TURN AROUND

A A A AR KA R AR AR AR R KR A&

FUNCTION FLIP-FLOP (AN
[S USED

SEQ 0017

VEC LST

2624

tuanrwnrwnnnwnenntnannan

JEST

VERIFY

THAT RING IS SET

AND TERMINAL ARE SET
THIS TEST IS DONE IF

2671

2518

2564

2618

2672

2781

2835

"LINE ENABLE"’

FOR SELECTED LINE.
THE H325 TURN AROUND

Arrhhnrnranrnwnnwrrnwrnt

FRARNEAANRNANARNNARANNLY

TEST

IS JSED

ntannnvnnnnrnrannnnnnnennnnsnnnn

TEST

e e

e A

ENABLE''

AR AR AR

VERIFY THAT DATA SET READY(SECRX IF ASYNC LC) IS SET IF 'LINE
AND NEW SYNC (SECTX IF ASYNC LC) ARE SET FOR SELECTED LINE.
THIS TEST IS DONE IF THE H325 TURN AROUND IS USED
ARRRXARRRARRANRANNRNREE

TEST

AN A

A A A A A A AR AN

A AN NN R

ENABLE®'

R AN

VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP (AN
BE SET AND CLEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
ERRRARAERRAANNKANNRAREN

TEST

Ao naar s a a A v

A A AR AR AN R A AR R AR R A

VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN
BE SET AND CLEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
RRRRRRARAANRRARRRRARAARY

TEST

Aan

s a a Ak Ak A R AN AR R AR R AR

ANk

VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP (AN
BE SET AND CLEARED FOR SELECTED LINE
TEST

IS DONE

THE

EENRRRARRANRAAAANAAARNY

H861
TEST

TURN AROUND
45

Anaaan

v A

IS USED.
a kAR AR AR AN R AR R ARA

VERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN
BE SET AND CLEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
RERRRERRARRRANRANRRANAR

TEST

AN AR AN R AN AR AR R RN RN R AN R AR NN N

VERIFY THAT CLEAR TO SEND AND CARRIER ARE SET IF 'LINE
AND TERMINAL ARE SET FOR SELECTED LINE.
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
ARRRRRRRRRAARNRRRAARAAN

TEST

VERIFY THAT RING IS SET

IF 'LINE ENASLE''

Aakkaanknnnahantnnrnrt

JEST

A Ak ek ke ke

ENABRLE''

kA RN R R AR R

AND REQUEST TO SEND ARE SET FOR SELECTED LINE.
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.

2889

SEQ 0018

sannansannttnnnannnnnnnrnnntnnn

VERIFY THAT CLEAR TO SEND AND CARRIER ARE SET IF "LINE
AND REQUEST TO SEND ARE SET FOR SELECTED LINE.
THIS TEST IS DONE IF THE H325 TURN AROUND [S USED

THIS

2726

S50

sannnnnvnennannannnsnnnns
senns

VERIFY THAT SECONDARY RECEIVE IS SET IF ‘LINE ENABLE'
AND SECONDARY TRANSMIT ARE SET FOR SELECTED LINE.
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.

G
2942

revnnnnnnnnnnnnnnnnwsee

DVi1

TEST

SINGLE LINE CABLE

JEST

S§]

wawenmneentonnnnnnennnennnnnne

TEST.

TO RUN A 5 BIT BLOCK

(000-037)

OF DATA FROM THE DV11 TRANSMITTER INTO THE
DV11 RECEIVER THROUGH THE CABLE.
SETUP:

MODE :

EXTERNAL LOOP BACK

TXW( :

=42(8)-BIT15

TXBA:

RXBA

RXWC :

L INE PROTOCOL
LINE STATE

SYN(C

RXBA

-60(8)-BIT15

TXDDCMP,RXDDCMP,LRC8.STRIP SYNC,IDLE MARK
EXPECT BCC,TX GO

LINE PROGRESS
SEND B((
NOTE: FOR TEST OF ASYNC LINE

CARD;

"'SYNC 'A'"' MUST BE SET TO ALL
IN SOF TWARE STATUS MAP.

ZEROS

VEC LST
SEQ 0019

H
19~-MAR~79 (09:06

INTRODUCTION TO DV11 DIAGNOSCTIC

;*AC~8744(-MC/<377>/CIDVECO DV11 MODEM (NTRL

;*COPYRIGHT 1972, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
o e

e e

:PROGRAM WILL
;PROGRAM WILL

TYPE '‘AC-8744(-M(/<377>/(CZDVECO DV11 MODEM (NTRL''
TYPE "R'" TO INDJCATE THAT TESTING HAS STARTED

;AT THE END OF A PASS, PROGRAM WILL
JAND THEN RESUME TESTING

TYPE

PASS

COMPLETE MESSAGE

b
d

:STARTING PROCEDURE
;LOAD PROGRAM
;LOAD ADDRESS 000200
;PRESS START

sSWITCH REGISTER OPTIONS

d
—

[

OO NV
WA 2 O000 NN
NN —

CZDVEC.P1Y

SW15=100000
SW14=40000
SwW13=20000
SW12=10000
SW11=4000

Sw10=2000
SwW09=1000
SW08=400
SW07=200
SwW06=100
SW05=40
Sw04=20
Sw03=10

SW02=4
Sw01=2
Sw00=1

;=1,HAL T ON ERROR

:=1,L00P ON CURRENT TEST

;=1,INH IBIT ERROR TYPEOUT

;~1,DELETE TYPEQUT/BELL ON ERROR.
:=1,INH IBIT

ITERATIONS

;=1,ESCAPE TO NEXT TEST ON ERROR
:=1,L00P WITH CURRENT DATA

;=1,L00P ON ERROR

:21,

DO "'AUTO SIZING'' ON INITAL

;LOCK ON TEST SELECT
;RESTAR T PROGRAM AT

SELECTED

JRESELECT DV11 DESIRED ACTIVE

;NOTE:

THIS MUST NOT

START UP.

TEST

EXCEED ORIGINAL

COUNT

MACY

SEQ 0020

I
CZDVEC.P1T

19-MAR-79 09:06

GENERAL DEF INATIONS AND EQUIVALENCIES

cREGISTER DEF INITIONS

000000

RO=20
R1=%1
R2=%2
R3=%3
R&=24
R5=%5
SP=%6

;GENERAL REGISTER
sGENERAL REGISTER
sGENERAL REGISTER
sGENERAL REGISTER
;GENERAL REGISTER
sGENERAL REGISTER
¢PROCESSOR STACK POINTER

177776
001200

PS=177776

;PROCESSOR STATUS WORD

100000

BIT15=100000
B1T714=40000
BIT13=20000
BIT12=10000
81711=4000
BI1710=2000
8179=1000
BI78=400
BI117=200
BIT6=100
BIT5=40
BIT4=20
BIT3=10
BIT2=4
BIT1=2
BITO=1

010000
020000
030000
040000
050000
060000
070000

ALU=BIT1?
RAM=BIT13

PC=X7

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

STACK=1200

:PROGRAM COUNTER

;START OF PROCESSOR STA(CK

XFR=BIT13+B]T12

NPR=BIT14
S.C=BIT14+BIT12

BCC=BIT164+B]T13
BRB=BIT14+BIT13+B]T1?

MACY

SEQ 0021

J
CZDVEC.P11

19-MAR-79 09:06

TRAPCATCHER FOR UNEXPECTED INTERUPTS

" :ttttttt&.tttt..ttt..tttfiitttttt.ttttttttt.'ttttt..Qttt.tttt.tt.t.t.t

SR
e e e e L L LD D DL

85
86
87

:TRAPCATCAER FOR ILLEGAL INTERRUPTS
:THE STANDARD '‘TRAP CATCHER'' IS PLACED
:BETWEEN ADDRESS O TO ADDRESS 776.

;1T LOOKS LIKE 'PC+2 HALT''.

:':ttttttt."ttitt.t..tQttttttttttl.ttfittt.ttlttt.tt'.tt't.t.tl'ttt.'..

91
92
gz

000000

.-40

96
97
98
99
100

000024
000026
000030
000032

000024
004402
000340
004002
000340

103
104

000040

000040
000001

101
102

105
106

182

109
110
11

}}g

000034
000036
000042
000044

000046

000174

000176

003750
000340
000001
000001

;STANDARD

INTERRUPT VECTORS

’
PFAIL
340
LHLT
340

:POWER FAIL HANDLER
*SERVICE AT LEVEL 7
*ERROR HANDLER
*SERVICE AT LEVEL 7

BLKW 1

:SAVE FOR ACT-11

. TRPSRV
240

- GENERAL HANDLER DISPATCH SERVICE
*SERVICE AT LEVEL 7

.BLKW 1
.BLKW 1

002560

LOGICAL

000174
000000
000176

=174
LIGHT:
.-176

000000

SSWR:

OR DDP2

:RETURN ADDRESS

:SAVE

OR DDP?

FOR ACT=11

UNDER ACT-11

“FOR USE WITH ACT-11

QR DDP2

OR DDP?

114

112

000200

117
118
}}?

001000

120
121

001200

122

123

}%g

126

127
128
129

;gg

001200

001202

001204
001206
001210

001212

000200

000137

001742

001000
005377

041501

001200
177570

.=200

034055

.=1000
MTITLE:

SWR:

177560
177562
177564

TKCSR:
TKDRR:
TPCSR:

TPDBR:

132

;GO TO START OF PROGRAM

.ASCIZ

<377><12>/AC-8744C-MC/<377>/C2DVECO DV11

MODEM CNTRL/<377>

177570

;INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS

’

177560
177562
177564

:TELETYPE KEYBOARD CONTRUL REGISTER
sTELETYPE KEYBOARD DATA BUFFFER
STELEPRINTER CONTROL REG!.TER

177566

STELEPRINTER DATA BUFFER

;PROGRAM CONTROL PARAME TERS

}gz

135
136
137

.START

.=1200
LIGHTS:

177570

177566

JMP

e
001214
001216
001220

000000
000000
000000

RETURN:
NEXT:
Lo(k:

0
O
0

:SCOPE ADDRESS FOR LOOP ON TEST
:ADDRESS OF NEXT TEST TO BE EXECUTED
:ADDRESS FOR LOCK ON CURRENT DATA

MACY

SEQ 0022

138
139
140
141
142

001222
001224
001226
001230

001232
001234

19-MAR=-79 09:06

000003
000000
000000
000000
000000
000000

PROGRAM PARAMETERS,

:
JCOUNT
LPCNT:

TSTNO:
:
PASCNT

ERRCNT:
LSTERR:

VARIABLES,

OOOOOW

CZDVEC.P11

2
AND

TRAP (ALLS.

NUMBER OF

sNUMBER OF

[TERATIONS THAT (URRENT
ITEREATIONS

(OMPLETED

JNUMBER OF TEST IN PROGRESS
JNUMBER OF PASSES (OMPLETED
;TOTAL NUMBER OF ERRORS
;PC OF LAST ERROR CALL

;PROGRAM VARIABLES

001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001301
001302
001303
001304
171

001306

STAT:
SYNCX:
CLKX:

SAVSP:
SAVP(:

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

DVNUM:

1
1

sDV11°'S SELECTED ACTIVE.
;OCTAL NUMBER OF DV11°S.

SAVNUM:
RUN:
.EVEN
C(REAM:

}

;WORKABLE NUMBER.

MASKX:
TEMPI:

TEMP?:
TEMP3:

TEMPS:

SAVRO:
SAVR1:
SAVRZ:
SAVR3:
SAVRG:
SAVRS:

DVACTV: .
SAVACT:

001500

;DV STATUS WORD STORAGE

.BLKB 1

; TEMPORARY STORAGE
; TEMPORARY STORAGE
s TEMPORARY STORAGE
. TEMPORARY STORAGE
; TEMPORARY STORAGE
;RO STORAGE
JR1 STORAGE
;R2 STORAGE
;R3 STORAGE
;R4 STORAGE
;RS STORAGE
:STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

JORIGINAL ACTV.

DEVICES.

;JPOINTER ONE PAST RUNNING DEVICE.

DV.MAP

s TABLE

POINTER.

MACY

SEQ 0023

TEST WwiLL BE EXECUTED

L
19-MAR-79 09:06

CZDVEC.P1N

189
190
191
192
193
194
195
196

197

198
199

200
<01
202
203
204
205
206
207
208
209
INSIASTAS
V) ASTASTN
1,V 1, ST N 15N N
ek
b
b
2 oy
=—
=200 QO NONWN SN —

210

223

INIFLG:
ERRFLG:
LOKFLG:

—d

WWNINNW

179
180
181
182
183
184
185
186
187
188

8338

177
178

VARIABLES,

AND

TRAP C(CALLS.

QV.FLG:

000000

0
8

.BYTE
.BYTE
.BYTE

;PROGRAM INITIALIZATION FLAG

sERROR OCCURED FLAG
cLOCK ON CURRENT TEST FLAG

.BYTE

;QUICK VERIFY FLAG.

JON FIRST PASS OF EACH DV11

.EVEN
$Y=0

ITERATIONS WILL BE SUPPRESSE

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS
: AN

001314

N AR AR A AN AR AR

AN NI

" TRPTAB:

A RN RRRANARNANRNAARANRNAANNANRR

AN AN AANNNRTAINARNAEN

104400

scope_rrw;zgpE

:CALL

104401

sc0P1=rRA§E6P1

;CALL TO LOOP ON CURRENT DATA HANDLER

TYPE-TRAfi;ZPE

;CALL TO TELETYPE OUTPUT ROUTINC

INSTR=TRA?+§TR

;CALL

TO ASCII

INSTER:TRAP+?ER

;CALL

TO INPUT ERROR HANDLER

:CALL

TO NUMERICAL DATA INPUT ROUTINE

001314

002634

001316

001320

003020
104402
003044

001322

003120

104403

001324

104404
003224

001326

003244

001330

001332

003444
104407
003504

001334

003536

001336

003542

001340

004556

001342

004516

001344

004476

001346

004566

001350

004576

.TY

.IN

TO SCOPE LOOP AND ITERATION HANDLER

STRING INPUT ROUTINE

104405

.INS
PARAM=TRA£+S

104406

SAvos=rRA§;605

:CALL TO REGISTER SAVE ROUTINE

RESOS=TRA£E§OS

:CALL

co~var=r§AP+1gT

;CALL TO DATA QUTPUT ROUTINE

104410

104411

104412
104413
104414

104415

104416

.SAV

. CONV
CNVRT=TRA€41;T
.CNV
MSTCLR:TRQQ;Z2R
)
L
RAMCLR=TRAP+13
.RAMCLR
DELAYzTRAgEEX
ROMCLK

)

TRAP+15
LROMCLK
DATACLK=TRAP+16
.DATACLK

RN RAN AN A AR R AR

TO REGISTER RESTORE ROUTINE

:CALL

TO DATA QUTPUT ROUNTINE WITHOUT

:CALL

TO ISUE A MASTER CLEAR

;CALL

TO CLEAR THE RAMS

;CALL

TO VARIABLE DELAY COUNTER

;CALL

TO CLOCK ROM ONCE

;CALL

TO CLK DATA

A RN AR R RN RN

AN AR A NN A AN RN AN NI R ARA N RN R

CR/LF.

AN RN NN DN AN NS

MACY

SEQ 0024

;PROGRAM CONTROL FLAGS
pur @
GanrGhard

172
173
174
175
176

PROGRAM PARAMETERS,

m
CZOVEC.P11

19-MAR-79 09:06

PROGRAM PARAMETERS,

001352

000000
000000
000000

000000

DVPVEC(:
DVRLVL:
DVTVEC:
DVTLVL:
DVSCR:
DVSCRH:
DVRIC:
DVLCR:
DVSRS:
DVSRSH:
DVSRA:
DVSFR:
DVNSR:
RESV16:

VARIABLES,

AND

TRAP CALLS.

VECTOR AND REGISTER INDIRECT POINTERS

lololelelololololololelolle]

;DV11

;POINTER TO DV11
;JPOINTER TO DV11
;POINTER TO DV11
;POINTER TO DV11

JPOINTER
;POINTER
;POINTER
;JPOINTER
;POINTER

TO
TO
TO
TO
TO
TO
TO
TO
TO

;POINTER

;POINTER
;POINTER

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVICE PS
SYSTEM CONTROL REGISTER
SYSTEM CONTROL REGISTER HIGH BYTE.
NEXT RECEIVED CHARACTER REGISTER
LINE PRAMETER REGISTER
SECONDARY REGISTER SELECT REGISTER
SECONDARY REGISTER SELECT HIGH BYTE,
SECONDARY REGISTER ACCESS REGISTER
SPECIAL FUNCTIONS REGISTER
NPR STATUS REGISTER

DV11
DV11
DV11
DV11
DV11
DV11
DV11
DV11
DV11

sPOINTER
;POINTER TO RESERVED REGISTER.

;DV11 CONTROL INDICATORS
001406
001410
001412
001414

000000
000000
000000
000000

001416
001417
001420
001421

010
010
010
010

001422
001424
001426
0014390

001432
001434
001436
001440

MASK.A:
MASK .B:
MASK.C:
MASK.D:

.WORD
.WORD
.WORD
.WORD

000
000
000
000

;LAST
:LAST
;LAST
;LAST

CLK.A:
CLK.B:
CLK.C:

CLK.D:

.BYTE
.BYTE
.BYTE
.BYTE

8.
8.
8.
8.

;NUMBER
sNUMBER
;NUMBER
sNUMBER

000000
000000
000000
000000

L00.03:
L04.07:
L08.11:
L12.15:

000000
00" ,00
0.v000
000000

;PARAMETERS
;PARAMETERS
;PARAMETERS
;PARAMETERS

000000
000000
000000
000000

SYNCZ2A:
SYNCZB:
SYNC2(C:
SYNC2D:

000000
000000
000000
000000

:SYNC 2

CLK.X

PARITY

OF
OF
OF
OF

CoO~NONWNY | 0ONONWN

MASK
.X

CHAR
CHAR
(HAR
CHAR

IS ENABLED;

TO
TO
TO
TO

TEST
TEST
TEST
TEST

CLOCKS
CLOCKS
CLOCKS
CLOCKS
FOR
FOR
FOR
FOR

PARITY
PARITY
PARITY
PARITY

NEEDED
NEEDED
NEEDED
NEEDED

LINES
LINES
LINES
LINES

FOR
FOR
FOR
FOR

MASK
MASK
MASK
MASK

ONE
ONE
ONE
ONE

FOR
FOR
FOR
FOR

CHAR
CHAR
CHAR
CHAR

LINES
LINES
LINES
LINES

FOR
FOR
FOR
FOR

00-03
04-07
08-11
12-15

BITS
BITS
BITS
BITS

PER
PER
PER
PER

CHAR.
CHAR.
CHAR.
CHAR.

BITS
BITS
BITS
BITS

PER
PER
PER
PER

(HAR.
CHAR.
CHAR.
CHAR.

ADD PLUS ONE

FOR EACH GROUP THAT PARITY

AND
AND
AND
AND

TO THE ABOVE °''CLK.X"’

IS ENABLED.

00-03
04-07
08-11
12-15

LINES
LINES
LINES
LINES

00-03
04-07
08-11
12-15

MACY

SEQ 0025

N
19-MAR-79 09:06

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

— b cmd b bl b b —

DVCRO1:
DVTRO1:
OVO1.A:
SYNAO1:
DV01.8:
SYNBO1:
DVO1.C:
SYNCO1:
DVO1.D:
SYNDO1:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

— red b b b b —d —d —d -

DVCROZ2:
DVTROZ2:
DV02.A:
SYNAQ?2:
Dv02.8B:
SYNB0Z2:
DV02.C:
SYNCO2:
DV02.D:
SYNDOZ2:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

b end wd md b d el wed —f ——b

00001
000001
000001
000001
000001
000001
000001
000001

DVCRO3:
DVTRO3:
DVO3.A:
SYNAQO3:
Dv03.8:
SYNBO3:
DV03.C:
SYNCO3:
DVO3.D:
SYNDO3:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

000001
000001
000001
000001
000001
000001
000001

DVCRO4:
DVTRO4:
DVO4.A:
SYNAO4:
DV04.B:
SYNBO4:
DVO4.C:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

b od

INWNWNININNWN

001632
001634

— el d d el v e

OVCROO:
DVTROO:
DVOO.A:
SYNAOO:
0v00.8:
SYNB0OO:
DV00.C:
SYNCOO:
DV00.D:
SYNDOO:

000001
000001

VARIABLES,

AND

TRAP (ALLS.

.=1500

DV.MAP:

d b—

001500

PROGRAM PARAMETERS,

— b el b b b —h

P11

sCONTROL STATUS REGISTER FOR DV11 NUMBER 00

;VECTOR '‘A’* FOR DV11 NUMBER 00

;PARAMETER
s SYNC TWO
sPARAMETER
s SYNC TWO
;PARAMETER
;SYNC TWO
;PARAMETER
sSYNC TWO

FOR LINES 00-03 FOR DV11 NUMBER 00
FOR LINES 04~07 FOR DV11 NUMBER 00

FOR LINES 08-11

FOR DV11 NUMBER 00

FOR LINES 12-15 FOR DV11 NUMBER 00

;CONTROL STATUS REGISTER FOR DV11 NUMBER 01

;VECTOR "'A’* FOR DV11 NUMBER 01

;PARAMETER FOR LINES 00-03 FOR DV11

NUMBER 01

sSYNC TWO
;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 01
sSYNC TWO
;PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 01
sSYNC TWO
;PARAMETER FOR LINES 12-15 FOR DV11 NUMBER 01
;SYNC TWO

sCONTROL STA:US REGISTER FOR DV11 NUMBER 02
sVECTOR "'A"" FOR DV11

NUMBER 02

;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 02

JSYNC TWO
;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 02
:SYNC TWO
JFARAMETER FOR LINES 08-11 FOR DV11 NUMBER 02
;SYNC TWO
JPARAMETER FOR LINES 12-15 FOR DV11 NUMBER (2
JSYNC TWO

;CONTROL STATUS REGISTER FOR DV11 NUMBER 03

SVECTOR ''A’* FOR DV11 NUMBER 03

JPARAMETER
JSYNC TWO
;PARAMETER
;SYNC TWO
JPARAMETER
JSYNC TWO
JPARAMETER
;SYNC TWO

FOR LINES 00-03 FOR DV11 NUMBER 03

FOR LINES 04-07 FOR DV11 NUMBER 03
FOR LINES 08-11

FOR DV11 NUMBER 03

FOR LINES 12-15 FOR DV11 NUMBER 03

sCONTROL STATUS REGISTER FOR DV11 NUMBER 04
;VECTOR "'A"* FOR DV11 NUMBER 04
;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 04
;SYNC TWO
;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 04
sSYNC TWO
;PARAMETER FOR LINES 08-11

FOR DV11 NUMBER (4

MACY

SEQ 0026

czl

B
P11

SYNCOQ&:
Dv0s4.D:
SYNDOG:

.BLKW
.BLKW
.BLKW

— b

N00001
000001
000001
000001

DVCROS:
DVTROS:
DVOS.A:
SYNAOS:
Dv0S.RB:
SYNBOS:
DV05.C:
SYNCOS:
Dv0S5.D:
SYNDOS:

.BLKW
.BLKW
.BLKW
.BLKW
.BLXW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

) ) D el d —d —) —— —
—

DVCRO6:
DVTRO6:
DV06.A:
SYNAQG:
DV06.8:
SYNBO6:
DV06.C:
SYNCO6:
DVO06.D:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

001732
001734
001736

DVCRO?7:
DVTRO?:
DVO7.A:
SYNAO7:
Dv07.8B:
SYNBO?7:
DV07.C:
SYNCO7:
DVv07.D:
SYNDO7:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

001740

DV.END:

000000

000001
000001
000091
000001

001730

TWO

12-=15

FOR DV11

NUMBER 04

NUMBER 05

ngcw%ga FOR LINES 04-07 FOR DV11 NUMBER 05

:PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 05
;SYNC

TWO

*PARAMETER FOR LINES
SSYNC TWO

12-15

FOR DV11

NUMBER 05

;CONTROL STATUS REGISTER FOR DV11 NUMBER 06

SVECTOR "A’* FOR DV11 NUMBER 06

:§¢S?M$LSR FOR LINES 00-03 FOR DV11 NUMBER 06

E§¢SéM$LSR FOR LINES 04=07 FOR DV11 NUMBER 06
*PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 06
SSYNC TWO

SPARAMETER FOR LINES
SSYNC TWO

12-15 FOR DV11

NUMBER 06

;CONTROL STATUS REGISTER FOR DV11 NUMBER 07

;VECTOR *'A'* FOR DV11 NUMBER 07

;§¢S?M$LSR FOR LINES 00-03 FOR DV11

)

SYNDO6:

JSYNC

,-g?z?mgagn FOR LINES 00~03 FOR DV11

001714
001716
001720
001722
001724
001726

000001

TWO

*VECTOR "‘A"' FOR DV11 NUMBER 05

NUMBER 07

;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 07
;SYNC TWO

) cmd

001670
001672
001674
001676
001700
001702
001704
001706
001710
001712

;SYNC

TRAP (ALLS.

:CONTROL STATUS REGISTER FOR Dv11 NUMBER 05

;PARAMETER FOR LINES 08-11

ed wd

001644
001646
001650
001652
001654
001656
001660
001662
001664
001666

AND

JPARAMETER FOR LINES

sSYNC TWO

;PARAMETER FOR LINES
;SYNC TWO

—

001640
001642

VARIABLES,

b —

000001
000001
000001

ol b e cod cd md bl ——d D

PROGRAM PARAMETERS,

001636

19-MAR-79 09:06

FOR DV11

NUMBER 07

12-15 FOR DV11

NUMBER 07

;PROGRAM INITIALIZATION
sLOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
s CLEAR PROGRAM (ONTROL FLAGS AND COUNTS

;TYPE

001742
001750
001754
001762
101770
001774
002000

002012
002020

012737
012706
012737
113737
005037
105037
105037

012737
112737

005037

000340
001200
004402
001301
001230
001311
001313
001500
000001
001232

177776

000024
001303

001306
001304

.START: MOV

MOV
MOV

MovB
CLR
CLRB
CLRB

MOV
MOvVB

CLR

TITLE MESSAGE

#340,PS
H#STACK, SP

#.PFAIL , Q424

DVNUM, SAVNUM
PASCNT

ERRFLG

QV.FLG
#DV .MAP, CREAM
#1,RUN

ERRCNT

;LOCK OUT INTERRUPTS
:SET UP STACK

;SET UP POWER FAIL VECTOR

JSAVE NUMBER OF DEVICES IN SYSTEM,
;CLEAR PASS COUNT

;CLEAR ERROR FLAG

;ZERO QUICK VERIFY FLAG
;GET MAP POINTER.
;POINT POINTER TO FIRST DEVICE.

;CLEAR ERROR COUNT

MACY

SEQ 0027

c
P11

19-MAR-79 09:06

002024
002030
002036

005037
012737
012737

001234
000001
001742

002044
002050
002052
002056
002062
002066
002074
002100
002102
002104
002106
002114
002122
002126
002132
002136
002142
002146
002150

~J5737

001310

000004
000006
000006
002104
177102

000174
000176
000006
000004
001000
001310
177034
000626
005461
001500

177054
177777

000062

CLR

001226
001214

000004

001200
001202

001246
001250
001250

80%:

81%:

16%:

5%:

001246
1%:

176746

000300
000302

002324
002330

001372

001000

1STB

INIFLG
19

CLR
MOV
TST
NOP
BR
(MP

#_.START ,RETURN

4,-(SP)

#808%,4
aSWR

81%

(SP)+,(SP)+

#LIGHT ,LIGHTS
#SSWR, SWR

(SP)+,6
(SPX+,4
JMTITLE
INIFLG
aSWR
16%

PC,CSRMAP
. XHEAD
#DV.MAP
, TEMP1

ATEMP1, TEMP?
ql?????,TEMPZ

; TYPE

;BR IF NO AUTO SIZE
GO DO THE AUTO SIZE

HEADER

;SET POINTER
;SET DATA

sALL DONE?

;BR IF

YES

;1S PROGRAM RUNNING UNDER MONITOR
;BR IF YES
sSELECT SPECIFIC DEVICES??
;BR IF NO.

.MERR3

aSWR,DVACTV

DVACTV, RO

#*C<377>
RO
A ¥

;BIT7=122

a4l

ASWR, SAVACT

2%:

TITLE MESSAGE

;IF NOT SET FLAG AND DO

*UPDATE POINTER

.MNEW
RO

001300

sTYPE

#2,TEMPI

001302

JTESTING STARTS
JHAS INITIALIZATION BEEN PERFORMED
;BR IF YES

6.-(SP)
6

#SW00,aSWR

005243
176710
001300
177400

#1,TSTNO

BNE

;CLEAR LAST ERROR POINTER
JSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE

LSTERR

MoV
MoV

MOV
MoV

005402
176730

PROGRAM INITIALIZATION AND START UP.

000042
000001

#300,R0
#302.R1
R1,(RO)+
(R1)+
(RO)+,(R1)+
#1000,R0
4%

;TYPE

THE MESSAGE.

;ZERO DATA LIGHTS

;WAIT FOR USER TO TELL WHAT DEVICES TO RUN

;1S THE NUMBER VALID?
;BR IF NUMBER IS OK.
;TELL USER OF INVALID NUMBER.
;STOP EVERY THING.
JRESTART THE PROGRAM AGAIN.
;GET NEw DEVICE PATTERN
s SHOW THE USER WHAT HE SELECTED.
;JUSE ONLY LOW BYTE.
sCONTINUE DYNAMIC SWITCHES.
;PREPARE TO CLEAR THE FLOATING

;VECTOR AREA. 300-776

;START PUTTING ‘P(+2 - HALT''

;IN VECTOR AREA.

;POP POINTERS

JALL DONE??
;BR IF NO.

MACY

SEQ 0028

D
CZDVEC.P1T

012737
012706
005737
001023
032777
001411

652
453
454
455

L64

PROGRAM

[NITIALIZATION AND START UP.

104402

002374
002402
002404
002412
002420
002420
002426
002432

012737
012737
000406
013737
013737
012737
104402

000177

000340
001200
000042

177776

000004

176622

.BEGIN: MOV

MOV
TST

005301
000240
000240

002702
002704

003014
003016

002702
002704

005666
005171
176556

001214

BNE
BIT
BEQ
TYPE
MOV

MOV

1%:

2%:
4%:

#340,PS

#STACK,SP

sLOCK OUT INTERRUPTS
;SET UP STA(CK
;1S PROGRAM UNDER MONITOR CONTROL
JBR IF YES

el
3%
#BIT2,aSWR

;CHECK FOR LOCK ON TEST

MLOCK

;TYPE

#NOP,TTST
ANOP TTST+2

;BR IF NO LOCK DESIRED.
LOCK

MOV
MOV

BRW,TTST

;PREPARE

MOv
TYPE

#CYCLE ,RETURN
MR

:TYPE

JMP

BRX,TTST+2

ARE TURN

SELECTED.

;ADJUST SCOPE ROUTINE.
sSET UP TO LOCK
s CONTINUE ALONG.
NORMAL

SCOPE

;LOCK NOT SELECTED,

ROUTINE

SET UP FOR NORMAL SCOPE LOOP

JSTART AT "'CYCLE'' FIND WHICH DEVICE

JSTART

TESTING

TO TEST

MACY

SEQ 0029

JTEST START AND RESTART

4466
67
448
649
450
51

456
457
458
459
460
461
462
463

19-MAR-79 09:06

19~MAR-79 09:06

END OF PASS ROUTINE

JEND OF PASS

;TYPE

NAME

TEST

;sUPDATE PASS COUNT
sCHECK FOR EXIT TO ACT-11

sRESTART

092436
002440
002444
002450
002454
002462
002466
002472
002476
002502
002506
002512
002516
002522
002526
002532
002534
002542
002550
002554

002556
002560
002560

002562
002564
002566
002570
002572

N =

b b e ed o

b b

OOV
NO NI W

(VLLV, LV, LW, LR LV, [V, LV, 1V, |

002600
002604
002606
002610
002612
002614
002616
002620
002622
002624
002626
002630

002632

000005
005037
105037
005237
013777
104402
104402
104411
104402
104411
104402
104411
104402
104411
105337
001017
112737
113737
013701
001406

001234
001311
001230
001230
005145
005330
002604
005336
002612
005344
002620
005355
002626
001303
000377
001361
000042

.EOP:

176516

001313
001303

000005

LOGICAL:

004711

000240
000240
000240
000240
012737

000137
000001
006
001362
000001
003
001352
000001
006
001230
000001
006

001232

005666

001214

002

XVEC:

002

XPASS:

002

XERR:

002

RESET
CLR
CLRB
INC
Mov
TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
DECB
BNE
MOVB
MOVB
MoV
BEQ

LSTERR
ERRFLG
PASCNT
PASCNT,aLIGHTS
+MEPASS
-MCSRX
_XCSR
+MVECX
XVEC
+MPASSX
,XPASS
-MERRX
,XERR
SAVNUM
RESTRT
#377,QV.FLG
DVNUM, SAVNUM
a6l R
RESTRT

JSR

PC. (R1)

RESET

NOP
NOP
NOP
NOP
RESTRT: MOV
XCSR:

TEST

JMP
1
BYTE
DVSCR
1
BYTE
DVRVE(
1
BYTE
PASCNT
1
BYTE

ERRCNT

;JMAKE THE
WORLD CLEAN AGAIN.
;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG
;UPDATE PASS COUNT
;DISPLAY PASS COUNT
:TYPE END PASS
;TYPE (SR
JSHOW IT
;TYPE VECTOR
JSHOW IT
;TYPE PASSES
JSHOW [T
:TYPE ERRORS
JSHOW IT
JARE ALL DEVICES TESTED?
;BR IF NO.
;SET THE QUICK VERIFY FLAG.
JRESTORE THE COUNT
sCHECK FOR ACT-11 OR DDP
;IF NOT, CONTINUE TESTING

;STOP THE SHOW--CLEAR THE WORLD

#CYCLE,RETURN
CYCLE

6,2
3,2
6,2

6.2

;SCOPE LOOP AND INTERATION HANDLER
002634
002634
002642
002644
002650

022737
00141
017746
042716

177570
176336
000200

001202

.SCOPE:

CMP
BEQ
MOV
8IC

#177570,SWR
649
aTKDBR,-(SP)
#BIT7,(SP)

.1S THERE A REAL SWR?
;BR IF YES
;SAVE KEYBOARD (HAR
;CLEAR PAR]ITY BIT

MACY

SEQ 0030

CZDVEC.P11

002654
002660
002662
002666
002672
002674
002702
002704
002706
002712
002714
002720

19-MAR-79 09:06

122726

001002
004737
005037
010016
032777
001407
000437
105777
100034

017700
000415
032777
001011

105737
001406

005237
023737
001014
105037

005037
005037
012737
013737
011600
022626
000177
001407
000437

GENERAL UTILITIES

000007
004640
001234
040000

64%:
176300

TTIST:

176272
176266

004000

176252

18:

001313
001224
001224

001311
001224
001220
000005
001216

(MPB
BNE
JSR
CLR

MOV

BIT
BEQ
BR

7ST8B
BPL
MOV
BR
BIT
BNE
TSTB

001222

2%:
001222
001214

176200

3$:
BRW:
BRX:

CLRB

MOV

POP2SP
JMP
1407
437

(TYPE OUT,ERROR,SCOPE,ETC.)

#7,(SP)+
.+ 6

;WAS

LSTERR
RO, (SP)
q§IT14.aSHR

;CLEAR LAST ERROR PC.
sSAVE RO ON THE STA(CK

PC,SERV.G

@TKCSR
3$
@TKDBR,RO

#SW11,3SWR

QV.FLG

[T CNTRL

;BR If NO,

'G'

JSERVICE ''CNTRL

'G'"'.

;'"'LOOP ON THIS TEST'"TM
JBR IF NO.
(IF LOCK SWO1=1; THIS LOC =240)
;GOTO 3%
(IF LOCK SW01=1; THIS LOC -240)

.KEYBOAD DONE?
sBR IF NO. (LOCK: HIT KEY TO GOTC NEXT TEST)
;CLEAR DONE BIT
:CONTINUE
(QUICK PASS)
;DELETE ITERATION?
;BR IF YES
JHAVE PASSES BEECOMPLETED?

LPCNT
LPCNT, ICOUNT
3$
ERRFLG
LPCNT
LOCK
#5.,1COUNT
NEXT ,RETURN
(SP) ,RO

sBR IF QUICK PASS.
cUPDATE ITERATION COUNTER
JARE ALL ITERATIONS DONE??
¢BR IF NOT YET
;PREPARE

sSTART

FOR NEW TEST

ICOUNTER AT 0

JRESET ITERATIONS
JGET NEXT TEST

;POP RO OFF

JFAKE AN 'RTI"'

THE

STACK

;GO DO THE TEST

aRETURN

;CHECK FOR FREEZE ON CURRENT DATA
032777
001405
005737
001402
013716
000002

001000

176154

001220

.SCOP1: BIT
BEQ
TST

001220

1%:

BEQ
MOV
RT1I

#SW09,aSWR
1%
LOCK
1%
LOCK, (SP)

;TELETYPE

010546
017605
062766
032777
001012
105715
100002
104402
105777
100375
112577

003114

001362
012605

000002
000002
010000

LTJYPE:

000002
176114

1%:

MOV

MOV
ADD
BIT

BNE

TSTB

005104
176104

8PL

2%:

176100

TYPE

1STR

8PL
MOvVB

BNE

MOV

OUTPUT

;IS SWO9=1(SET)?

;BR IF NOT SET.

;GOTO THE ADDRESS IN LOCK.
;GO BACK.

ROUTINE

RS5,-(SP)

82 (SP) RS

#2,2(SP)
#SW12,aSWR

(RS)

2%
MCRLF

;SAVE RS ON THE STACK.

;GET ADDRESS OF MESSAGE.
;POP OVER ADDRESS.
JINHIBIT ALL PRINT 0UT??
;BR IF NO PRINT QUT WANTED (SW12-1)
;IS NUMBER MINUS? (MSB=1(BIT17))
;BR_[F NUMBER IS PLUS

aTPCSR

sTYPE A CR/LF!
;TTY READY?

(R5)+,’TPDBR

JPRINT

2%
19

(SP)+ RS

;BR [F NO.

CURRENT

(HAR.

JIF NOT ZERO KEEP PRINTING.
JEND OF QUTPUT. RESTORE RS

MACY

SEQ 0031

G
CZDVEC PN

19-MAR-79 09:06

003116

000002

003120
003122
003124
003132
003140
003142
003144
003150
003154
003160
003162
003166
003172

010346
010446
017637
062766

003220
003222
003224
003230
003232
003234
003236
003240
003242

104402
000000
012704
012703
105777
100375
117714
142714
122427
001417
105777
100375
017777
005303
001356
012604
012603
104402
010346
010446
000741
012604
012603
000002

000004
000002

GENERAL UTILITIES

003142
000004

005520
000007

R3,-(SP)

MOV
ADD
LJINST1: TYPE
.MSG:
0

a4 (SP), .MSG
#2,4(SP)

MOV

176024

1%:

176020
000200

000015
176004
175774

2%:
175776

MOVB

aTKDBR, (R4)

B8PL

BI(B
(MPB
BEQ
TSTB
BPL

#200, (R4)
(R4)+ X415
INSTR?
aTPCSR
2%

DEC
BNE

R3
18

MoV

TYPE
MOV
MOV
BR

INSTRZ2: MOV
MOV
RT]

adTKDBR,aTPDBR

(SP)
+ R4

(SP)+ ,R3

MM
R3,-(SP)
R4 ,-(SP)
INST1

(SP)+ R4
(SP)+ ,R3

;CONVERT ASCII

003244
003246
003250
003254
003260
003264
003270
003274
003300
003304

003306

003312
003316
003320
003324
003326
003332
003334
003340
003342
003346

.PARAM: MOV

000004
003434
003436
003440
003442
003443
000004

005520
000015
000060

000067
000060
000015

MOV
MOV

MoV
MoV
MOV

MOovR
MOVB
PARAM1:

MOV

(LR
MOV

R5,-(SP)

R4 ,-(SP)
4(SP) ,RS
(R5)+,LOLIM
(R5)+,HILIM
(R5)
+ ,DEVADR

(R5)+,L0BITS
(R5)+ ADRCNT

R5,4(SP)

RS
# INBUF
R4

#15,(R4)

BI(CB

#60, (R4)

BISA
(MPB
BEQ

PARERR
(R4) ,4#60
PARERR
(R4) 467
PARERR

(R4)
+ RS
#15,(R4)
LIMITS

JRESTORE R4

JRESTORE R3

STRING TO OCTAL

(MPB

BEQ
(MPS
BLT
(MP
BGT

;SAVE R3 ON STA(CK
JSAVE R4 ON STACK

# INBUF ,R4

#7 ,R3
aTK(CSR

MoV

.INSTE:

R4 ,-(SP)

MOV
TSTBR

MOV

005100

(TYPE OUT,ERROR,SCOPE,ETC.)

.INSTR: MOV

MOV

MACY

SEQ 0032

H
CZDVEC P11

633
634

003350
003352
003354
003356
003360
093362

19-MAR-79 09:06

GENERAL UTILITIES

006305
006305
006305
000760
104404

PARERR:

000750

PARAM1

[NSTER

JTEST

003364
003370
003372
003376
003400
003404

020537

003436

020537

003434

101373

103770
133705
001365

LIMITS:

003442

(TYPE OUT,ERROR,SCOPE,ETC.)

RS
RS
RS
1%

ASL
ASL
ASL

TO SEE

(MP
BH]
(MP
BLO
BITR
BNE

NUMBER

IS WITHIN LIM]ITS

RS,HILIM
PARERR

RS,LOLIM
PARERR

LOBITS,RS

PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
003406
003412
003414
003420
003424
003426
003430
003432
003434
003436

013704
010524
062705
105337
001372
012604
012605
000002

003440

1%:

000002

003443

DECB
BNE

LOLIM:

HILIM:

003440

003442

MOV
MOV
ADD

DEVADR:
LOBITS:

003443

MOV
MOV
RT]

DEVADR
R4

RS, (R4)+

#2,RS
ADRCNT
1%
(SP)
+ R4

(SP)+,R5S

0
O

ADRCNT=LOB]TS+?

;SAVE PC OF TEST THAT FAILED AND RO-RS
003444

016637

000004

001276

.SAV0OS: MOV

4 (SP) ,SAVPC

;SAVE R7 (PC)

;SAVE RO-RS
003452
003456
003462
003466
003472
003476
003502

010537
010437
010337
010237
010137
010037
000002

001272
001270
001266
001264
001262
001260

Sv05:

MOV

RS ,SAVRS

;SAVE RS

MOV

R3,SAVR3

;SAVE R3

MOV

MOV
MOV
RT]

R4 ,SAVRS

R2.SAVR?2
R1,SAVR1
RO, SAVRO

:SAVE Ré

;SAVE R2
;SAVE R1
;SAVE RO
JLEAVE.

JRESTORE RO-RS
003504
003510
003514
003520
003524
003530

013700
013701
013702
013703
013704
013705

001260
001262
001264
001266
001270
001272

.RESO5: MOV
MOV

SAVRO,RO
SAVR1,R1

JRESTORE RO
JRESTORE R1

MOv

SAVR3,R3

JRESTORE R3

MOV
MOV
MOV

SAVRZ ,R?2
SAVRSG R4

SAVRS RS

JRESTORE R2
;RESTORE R4
JRESTORE RS

MACY

SEQ 0033

I
CZDVEC P11

689
690
691
692
693
694
695
696
697
698
699

700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720

721
722
723
724
725

003534

19-MAR-79 09:06

GENERAL UTILITIES

000002

(TYPE OUT,ERROR,SCOPE,ETC.)

RT!

JLEAVE

;CONVERT OCTAL NUMBER TO ASCI] AND OUTPUT TO TELEPRINTER
1064402

005104

003546
003550

010046
010146
010346
010446

003560
003566

062766
012137

000012
000002
003742

003542

003616
003630

12137
12137
13137
13704

012700
062703

003744
003745
003746
003746

003744
005562

177770

.CONVR: TYPE
-CNVRT: MOV
MOV
MOV
MOV
MOV

MOV

000012
1%:

2%:

3¢:

000060

012705

005624

105337

003744

105737

003720

000040
003745

104402

005624

005337

#2,12(SP)
(R1)+,WRDCNT
(R1)+. CHRCNT
(R1) +.SPACNT
a(R1)+,BINWRD
BINWRD
. R4
CHRCNT.RS
#TEMP RO

MOV
BIC
ADD

MOVB

R4 ,R3
#177770.R3

4%:

003742

003746

MOV

AMDATA,R3

MOVR

DE(CB

-(R0),(R3)+

CHRCNT

BNE

BEQ
MOVR

6%
#040,(R3)+

TYPE

+MDATA

DE(CR
BNE
(LRR

MOV
MOV
MOV
MOV

003745
000000

DEC
8NE
MOV

WRDCNT:

DEC

TSTB

5%:

#060,R3

R3, (RO)+

B8NE

003745

112723
105337

212(SP)
,R1

ADD
MOV
MOVR
MOVR
MOV
MOV
MOVB
MOV

CLC
ROR
cLcC
ROR
CLC
ROR

003656

LMCRLF
RO, =-(SP)
R1.=(SP)
R3.-(SP)
R&.=(SP)
RS .= (SP)

RT]
0

(HRCNT: O
SPACNT CHR(CNT+1
BINWRD: 0

SPACNT

SPACNT
5%
(R3)

WRDCNT
1
(SP)
+ RS
(SP)
+ R4
(SP)+ ,R3
(SP)
+ ,R1
(SP)+ RO

MA(CY

SEQ 0034

J
CZDVEC.PIN

19-MAR=-79 (09:06

GENERAL UTILITIES

745
746
747

748

;gg

760
761
762

763

JAND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROUTINE

003750
003752
003756
003762
003764
003770
003774

004000

011646
162716
017616
006316
042716
062716
017616

000136

004002

004002
004010
0046012
004016
004022
004026
004030
004034
004042
004044

022737
001411
017746
042716
122726
001002
004737
032777
001406
105777

775

004052

112777

776

777
778
779

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

800

.TRPSR:

000002
0000CO

TRPOK:

177001
001314
000000

MOV
SUB
MOV
ASL
BIC
ADD
MOV

JMP

(SP) ,=-(SP)
#2,(SP)
@(SP), (SP)
(SP)
#177001, (SP)
#.TRPTAR, (SP)
?(SP), (SP)

A(SP)+

JGET PC OF RETURN
;=PC OF TRAP
JGET TRP
JMULTIPLY TRAP ARG BY 2
;CLEAR UNWANTED BITS
JPOINTER TO SUBROUTINE ADDRESS
; SUBROUT
INE ADDRESS

;GO TO SUBROUTINE

JERROR HANDLER
B
D

764
765
766
767
768
769
770
771
772
773

776

(TYPE OUT,ERROR,SCOPE ,ETC.)

;TRAP DISPATCH SERVICE
JARGUMENT OF TRAP IS EXTRACTED

;gg

751
752
753
754
755
756
757

004050

004060

004066
004070
004076

004076
004102
004106
004110
004112
004116
004120
004122
004124
0046126
004132
004136
0046162
004146
004152
004156
004160
004164
004166
0046172

004176

100003

032777

001105
021637
001404

011637
105037
104406
011605
162705
011504
006304
061504
006304
042704
062704
012437
012437
011437
105737
001403
005737
001040
104402
104402

005737

177570

001202

JHLT:

175170
000200
000007

004640
010000

175140

64%:

175140
000207

020000
001234

001234
001311
000002

177001
025364
004252
004264
004276
001311
004276
005104
005104

001220

175132

175114

XBX:

cMP
BEQ
MOV
BIC
(MP8B
BNE
JSR
8IT
BEQ
TSTR
BPL
MOVR

#207 ,aTPDBR

:BR IF NO.
;SERVICE "'CNTRL °'G'''.
;BELL ON ERROR?
;BR JF NO BELL
;TTY READY.
;DON'T WAIT IF TTY NOT READY.
JPUSH A BELL AT THE TTy,

8NE
MP
BEQ

HALTS
(SP) ,LSTERR
1%

;BR IF NO PRINT OUT WANTED.
;WAS THIS ERROR FOUND LAST TIME?
:BR IF YES

BIT

MOV
CLRB
1%:
SAV(0S
MoV
SUR
MOV
ASL
ADD
ASL
BIC
ADD
MOV
MOV
MOV
TSTR
BEQ
TST
BNE
TYPMSG: TYPE
TYPE

1ST

#177570,SWR
64%
aTKDRR,-(SP)
#BIT7,(SP)
#7,(SP)+
.+6
PC,SERV.G
#SW12,aSWR
XBX
ITPCSR

XBX

#SU??.QSUR

(SP) ,LSTERR
ERRFLG

(SP) ,RS
#2 RS
(RS5) R4
R4
(R5) ,R4
R4
#177001 ,R4
#.ERRTAB,R4
(R4) + ,ERRMSG
(R4)+ ,DATAHD
(R4) ,DATABP
ERRFLG
TYPMSG
DATARP
TYPDAT
JMCRLF

JMCRLF
LOCK

;IS THERE A PFAL SWR?
;BR IF YES
;SAVE KEYBOARD CHAR
;CLEAR PARITY BIT
;WAS IT CNTRL 'G' ?

;DELETE ERROR PRINT 0OUT?

-RECORD BEING HERE
;PREPARE HEADER
;SAVE ALL PROC REGISTERS
:GET THE PC OF ERROR
cGET ADDRESS OF TRAP CALL
JGET HLT INSTRUCTION
JMULT BY TWO
;DOUBLE IT
JMULT AGAIN
;CLEAR JUNK
;GET POINTER
;GET ERROR MESSAGE
:GET DATA HEADRER
;GET DATA TABLE
. TYPE HEADREER
;BR IF YES
;DCES DATA TABLE EX]ST?
;BR [F YES.

MACY
SEQ 0035

K
C(ZDVEC.P1

801
802

004202
004204
004210
00427
%
004220
004224
004230
004234
004242
004246
004250
004252
004254
004254
004260
004262
004264
004266
004272

19-MAR-79 09:06

001402
104402

104402

104411
104402
104411
104402

112737
005737
001402
104402
000000

005737
001402

005400
005366
004374
005454
004366
005104
17777/

004252

GENERAL UTILITIES

1%:

ERRMSG:

WRKO,FM:

004264

DATAHD:

004276

TYPDAT:

000000

005777

174674

016600
000000
012600
005237
032777
001007
032777
001407
013737
012706
000177
000002
000001
006
001276
000001
003
001226

000002

100005
010046

LMTISTN
JXTSIN

DATARP:
RESREG:
HALTS:

001232
000400

174646

002000

174636

001216
001200

001214

174630

EXITER:

2%:
ERTAROD:

002

XTSTN:

002

JSHOW IT

JMERRP(C

:TYPE PC.

LERTARO

MOVB
1ST
BEQ
TYPE

JMCRLF

;GIVE

#-1,ERRFI G
ERRMSG
WRKO.FM

;NO MORE HEADER UNLESS NO DATA
;1S THERE AN ERROR MESSAGE?
;BR IF NO.
:TYPE

JSHOW IT

TST

TYPE

A CR/LF

ERROR MESSAGE

;BR

DATA HEADER

DATAHD

TYPDAT

. TYPE

DATARP

;DATA

TABLE?

TST

aSWR

BPL
PUSHRO

EXITER

JHALT

ON ERROR?

BEQ
CONVRT
0
RESOS

RESREG

:BR IF NO.
: SHOW
N
DATA TABLE
JRESTORE PROC REGISTERS

¢BR IF NO HALT ON ERROR
. SAVE RO

MOV

2(SP) ,R0O

BIT
BNE
BIT

#SW08,aSwR
1%
#5W10,aSwR

MOV
MOV

NEXT,RETURN
#STACK,SP

HALT
POPRO
INC

JMpP

ERRCNT

:BR ]F NO

aRE TURN

;GOTO SPECIFIED TEST

6,2

BYTE

3.2

SAVP(
1
TSTNO

:SHOW ERROR PC IN DATA LIGHTS

JHALT
;GET RO
;UPDATE ERROR COUNT

RT]
1
BYTE

TABLE.

:
;DATA HEADER?

TIST

8EQ
1%:

JMASTEK

CNVRT

8EQ

104410

104407

TYPE
CNVRT
TYPE

0013M

104402

000000
005737
001402

TYPE

(TYPE OUT,ERROR,SCOPE
ETC.)

BEQ

TYPE

.GOTO TOP OF TEST?
;BR IF YES
cGOTO NEXT TEST?

;SET FOR NEXT
;RESET SP

TEST

JRETURN

JENTER HERE ON POWER FAJLURE

012737
000000
000777

004414

000024

PFA]L:

MOV

ggLY

#RESTART, 24

JPROCESSOR WILL

012737

004402

0006024

RESTAR:

MOV

JSET UP FOR POWER UP TRAP
JHALT

ON POWER DOWN NORMAL

TRAP HERE WHEN POWER [S RESTORED

¥ PFAIL, 24

JSET UP FOR POWER FAILURE

MACY

SEQ 0036

L
CZDVEC.P1

858
859
860

862
863

864
865
866

867
868

869
870
871
872
873
874
875
876
877
878

19-MAR-79 09:06

012706
005037
005237
001375
104402
104411
105037

005037
104412
104413
000177
000001

003
001226
010046
013700
005300
001376
012600
000002
000036

GENERAL UTILITIES

001200

MOV

005562
005562

CLR
INC
BNE
TYPE
CNVRT
CLRB
CLR
MSTCLR

005107
004470
001311
001234

RAMCLR

174524

PFTAR:

002

.BYTE

.DELAY:

004514

1%:

004000

012777
000002

004000

174576

052777
000002

000002

174566

106037
103003
005200
001370
104000
012600
000002
000001

]

174636

001372
00137¢

RAM(CLR:

1%:

170361

TSTNO
MOV
MOV
DEC
BNE

RTI

000400
174554
004637

1746560
004636

:
.ROMCLK

WSTACK,SP
TEMP
TEMP

JRESET THE STACK POINTER
JREADY FOR TIMMER
JPLUS ONE TO THE TIMER!

LMPFATL
PFTAB

:TYPE THE MESSAGE
sTELL WHAT TEST TO RETURN TO.

LSTERR

:II...II....I

.=4

ERRFLG

TO GO

;START CLEAN

sSTART CLEAN UP OF

aRE TURN

cCLEAR T ALL!

;START DOING THAT

DEVICE

TEST AGAIN.

RO,=(SP)
1% ,RO
RO

(SP)+,RO

MOV
MOV
MOV
MOV
MOV

CLR
ADD
BNE

#MRESET ,aDVSCR

;ISSUE A MASTER CLEAR

DVSRS ,R1
DVSRA R4

;GET SECONDARY SEL. REG.
sGET SECONDARY REGISTER ACCESS REG.

R1,-(SP)
R4 ,-(SP)
(R4)

;SAVE R1 ON THE STACK
;SAVE R4 ON THE STACK
;JERO THE

SECONDARY REGISTER.

Q;C<BIT11*BIT10*BIT9*BIT8*BIT3+BIT?*BIT1*BITO>*BITO.(R1)
I

(SP) + R4
(SP)+,R1

;JRESTORE R4
JRESTORE R1

#MRESET ,aDVSCR

;ISSUE

#8171,aDVSCR

RO,=(SP)
RO
1%:

#31T78,aDVLCR
aDVL(CR,
3%
3841

2%:

(SP)+,R0

3%:

;BR IF MORE

30.

MOV
MOV
RT1

.MSTCLR:

(TYPE OUT,ERROR,SCOPE,ETC.)

3,2

MoV

012777
010146
010446
013701
013704
005014
062711
001374
012604
012601
000002

010046
005000
052777
017737

JMP

MASTER

(LEAR.

MACY

SEQ 0037

M3
P11

19-MAR-79 09:06

GENERAL UTILITIES

004640
004646
004650
004656
004664
004670
004674
004700
004704
004706
004712
004716
004722
004724

032777
001374
017737
013777
104402
104411
104402
105777
100375
017746
042716
122726
001450
005077

004734
004736
004744
004746
004752
004756
004762
004764
004772
004774
005002
005004
005012
005020
005024
005026
005032
005036
005042
005044
005050

100375
016677
000241
006177
006177
006177
103735
026627
002731
026627
003325
042766
056677
105777
100375
017746
042716
122726
001332
104402
000207

005052
005060

020377
036451

005064

000001

005072
005074

000000
036457

000057

90" :
Qgsé

005100
005104
005107
005145
005171
005174
005243
005267

020040
005015
377
377
377
050377
377
377

000077
000
053520
047105
000122
047522
047111
042524

MQM:
MCRLF:
MPFAIL:
MEPASS:
MR:
MERR2:
MERR3MTSTPC:

004730

005066
005070

005301

105777

006
005072

377

004000

174336

174326
005072
005052
005064
005074
174300

005072
174316

174274
000200
000015
174252

174254

177776

SERV.G: BIT
BNE
MOV
1%:
MOV
TYPE
CNVRT
TYPE
TSTR
RPL
MOV
BIC
CMPR
BEQ
CLR

#4000,8TKCSR
SERV.G
aSWR,90%
90% ,aSWR
.89%
,88%
L91%
aTKCSR
.~4
aTKDBR,-(SP)
#RIT7,(SP)
#15,(SP)+
5%
ASWR

BPL
MoV
Le
ROL
ROL
ROL
BCS
CMP
BLT
CMP
BGT
BIC
BIS
TSTR
BPL
MOV
BIC
CMPB
BNE
TYPE
RTS

.~4
-2(SP) ,aTPDBR
DSWR
ASWR
@SWR
1%
-2(SP) ,#60
1%
-2(SP) 467
1%
HC<7>,-2(SP)
~2(SP) ,aSWR
aTKCSR
.~4
oTKDBR,-(SP)
#B1T7,(SP)
#15,(SP)
+
2%
MCRLF
PC

LASCIZ

<377>?

2%:
1746246

174230
174224
174220
177776

000060

177776

000067

177770
177776
174160

177776
174162

174154
000200
000015
005104

051450
000057

S$:

051127

89%:
EVE
.EVEN

88¢%:

000

047514

.EVEN

020122
020104
051107
052523
052123
045503

(TYPE OUT,ERROR,SCOPE,ETC.)

MLOCK:

T1STR

BYTE
90%

:
:
:
:

aTPCSR

;
:
:
:
:
:ERROR
;
:
;
:
K
:
:
:

;
:

(SWR)=/?

6,0

.WORD
ASCIZ

0
/=77

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

.ASCIZ

JRX BUSY?
;BR IF YES
;SAVE (SWR).
;
:
:
:
JWAIT FOR DONE.

2/
<15><12>
<377>/PWR FAILED. RESTART AT TEST /
<377>/END PASS CZDVECO
/
<377>/R/
<377>/PROGRAM INDICATES NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC-/
<377>/LOCK ON SELECTED TEST/

MACY

SEQ 0038

N
CZDVEC P11

{2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

19-MAR-79 09:06

GENERAL UTILITIES

005330
005336
005344
005355
005366
005400
005402
005454
005461

051503
042526
040520

035122
035103
051523

042524
000052
051777
041520
377

052123

000040
000040
051505
051117
047040

052105
020072
040515

051440
000
020120

005506
005510
005512
005514
005516

000002
006
001246
006
001250

105

051122

003
002

MCSRX:
LASCIZ
MVECX:
.ASCIZ
MPASSX: LASCIZ
MERRX:
LASCIZ
MTSTN:
LASTIZ
MASTEK: LASCIZ
MNEW:
LASCIZ
MERRPC(: LASCIZ
XHEAD:
LASCIZ
.EVEN
XSTATQ: 2

TEMP1
.BYTE
TEMP2

(TYPE OUT,ERROR,SCOPE ,ETC.)

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /
/*/
;gg7>§SET SWITCH REG
<377>/MAP OF

005562

005624

000000

005562
000000
005624

000000
005666

DV11

6.3
6.2

;BUFFERS FOR

005520

INPUT-0OUTPUT

TO DV11°'S DESIRED ACTIVE./

STATUS/<377>

MACY

SEQ 0039

€2

B
CZDVEC L1

19-MAR-79 (09:06

GENERAL UTILITIES

(TYPE OUT,ERROR,SCOPE,ETC.)

975

976
977
978
979
980
981
982
983
984
985

:ROUTINE USED TO ''CYCLE'' THROUGH UP TO EIGHT DV11'S
:THIS ROUTINE
JAND RUNS THE

105737
001004
104402

106137
105537

062737
022737
001369
012737
000754
000241
106137

105537
013700
062737

022737

g8
d —
b
b o)
d
)
b
—d
—

VO NN
NN O

D ——d
D —ad
—

—h

) ——d

sloleololeoleleololole]

ADDRESS FOR THE DJAGNOSTIC
THIS ROUTINE #*MUST«

;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
s SETUP NECESSARY.

000000
000776
133737
001020
000241

1007

SETS UP THE CONTROL
SPECIFIED DV11°S,

001003
012737
012037
012037
012037
012037

012037
01203

01203/
01203/
012037
012037
012700

013737
005237
013737
005237
013737
060037
013737
060037
013737
005237
013737
005237

001300

CYCLE:

005174
001304

HALT

001300

001304
001304
000024
001740

001306
001306

001500

001306

001304
001304
001306
000024
601740
001500
001362
001352
001422
001432
001424
001434
01426
201436
001430
001440
000002
001362
001364
0013¢€4
001366
001366
001370
001370
001372
001372
001374

001374
001376

TSTR

BNE
TYPE

cLC

001366

MOV

001370

MOV
ADD
MOV
ADD
MoV
INC
MoV

001376

RUN
RUN

001364

INC
INC

INC

;STOP THE SHOW.

;DISQUALIFY CONT.

SW.

s CATCH CARRY FROM RUN

#DV.END, CREAM

MoV
MOV
MOV
MOV
MOV
MOV
MoV

OK,

RUN
RUN

CREAM RO

MOV

JNO DV11°'S SELECTED!!

#24 ,CREAM

3%:

JARE ANY DV11°'S TO BE TESTED?

:BR

;1S THIS ONE "ACTIVE''
;BR_IF GOOD ONE FOUND.

12V.MAP.CREAM

MOV

001374

.~2

#24
, CREAM
:gv.END.CREAM

001306
001306

001372

.MERR2

RUN,DVACTV

2$:

001306

DVACTV
1%

#DV.MAP,CREAM

(RO)+,DVSCR
(RO) +,DVRVE(C

(RO)+,L00.03

(RO)+,SYNC2A
(RO)+,L04.07
(RO)+,SYNCZB
(RO)+,L08.11
(RO)+,SYNC2C
(RO)+,L12.15
(RO)+,SYNC2D

#2 RO
DVSCR,DVSCRH
DVSCRH
DVSCRH,DVRIC
DVRIC
DVRIC,DVLCR

RO,DVLCR
DVLCR,DVSRS
RO,DVSRS
DVSRS ,DVSRSH
DVSRSH
DVSRSH,DVSRA
DVSRA

;CLEAR PROC. CARRY BIT.
;UPDATE POINTER

;UPDATE ADDRESS POINTER.

JKEEP GOING,; NOT ALL TESTED FOR.
JRESET ADDRESS POINTER.
cKEEP LOOKING FOR ACTIVE DV11

;CLEAR PROC. CARRY.
;UPDATE POINTER.
:CATCH CARRY.
;GET ADDRESS POINTER.
;UPDATE.

JALL DONE?
;BR IF NO.
JRESTORE POINTER.
sLOAD SYSTEM CTRL. REG
;LOAD VECTOR
;GET LINE PARAMETERS. 00-03
04=-07
08-11

12-15

;SAVE CORE THIS WAY.
;GET SYS CTRL. REG HIGH BYTE.
.GOT IT.
cGET NXT REC. CHAR REG.
;GOT IT
:GET LN. PAR.REG.
;GOT IT
JGET SEC. REG. SEL. REG.
;GOT IT
JGET HIGH BYTE.
;GOT T
JSEC. REG. ACCESS.
;GOT IT

MACY

SEQ 0040

C
CZDVEC.P11

1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046

19-MAR-79 09:06

006166
006174
006200
006206
006212
006220

013737
060037
013737
060037
013737
060037

001376
001400
001400
001402
001402
001404

006224
006232
006236

013737
060037
013737
060037
013737
060037

001352
001354
001354
001356
001356
001360

012700
012701
012702
004737

001422
001406
001416
006516

012700
012701
012702
004737

001424
001410
001417
006516

012700
012701
012702
004737

001426
001412
001420
006516

012700
012701

001430
001414
001421
006516
000002

006244
006250
006256

012702
004737
032777
001445

005737
001042
104402
104403

GENERAL UTILITIES

001400
001402

001354
001356

;SPEC. FUN. REG.

ADD
MOV
ADD

RO,DVNSR
DVNSR,RESV16
RO,RESV16

*RESERVED REG

MOV
ADD

DVRVE(C ,DVRLVL
RO,DVRLVL

ADD
MOV
ADD

RO,DVTVEC
DVTVEC,DVTLVL
RO,DVTLVL

MOV

#L00.03,R0

4%:

#L04.07,R0

;LOAD STAUS 00-03

MoV
MOV

#MASK.B,R1
#CLK.B,R2

MoV

#L08.11,R0

PC.FIX.00

007310

5%:

001226

000002

001226

000004

001214

;PREPARE MASK.
;PREPARE CLOCKS
;GO AND CALCULATE CONF IGURATION.

;LOAD STAUS 0C-03

MOV
JSR

A#MASK. C,R1

#CLK.C,R2
PC.FIX.00

;PREPARE MASK.

MoV

#L12.15,R0

;LOAD STAUS 00-03

MOV
MOV

A#MASK.D ,R1
#CLK.D,R2

TST

TYPE

+MCRLF

JSR
8IT
BEQ

PC,FIX.00
#SW01,aSwR
7%
7%

1000

.BYTE
BYTE

;LOAD STAUS 00-03

MOV

MTSTN
?ARAM

000001
001000
001226

TTX LWL

;PREPARE CLOCKS
;GO AND CALCULATE CONF IGURAT ION.

INSTR

104405

TTX VEC

PC,FIX.00

BNE

005104

SPTY LVl

:PREPARE MASK.

MOV

000042

DVRLVL ,DVTVEC(

'NPR STAT. REG.

AMASK
. A R1
#CLK.A,R2

JSR

172612

DVSFR,DVNSR

MOV
MOV

JSR

005366

010037

DVSRA ,DVSFR
RO,DVSFR

MOV

001360

(TYPE OUT,ERROR,SCOPE,ETC.)

mMov
ADD
MOV

001404

TSTNO

O
1
MOV
CMP

#TST1,.RO
(PC)+,(RO)

BNE
(MP
BNE
CMP
BNE
MOV

6%
TSTNO,2(RD)
6%
#TSTNO,4 (RO)
63
RO,RE TURN

MOV

(PC)+,a(P(C)+

;PREPARE CLOCKS
.GO AND CALCULATE CONF IGURATION.

;PREPARE MASK.
;PREPARE CLOCKS
;GO AND CALCULATE CONF IGURATION.

MACY

SEQ 0041

D
LIDVEC.P1N

3
o0
(@]
—b e e b ad d b b ek d

006460
006464
006466
006470
006674
006476
006502
006504
006512

104402
000412
005720
020027
001354
104402
000733
012737
000177

006516
006520
006524
006526
006530
006534
006540
006542
006546
006550
006554
006560
006562
006566
006570
006574
006600
006602
006606
006612
006616
006620
006622

011003
042703
005703
001005
01271
112712

000424
022703
001005

005104

007310

172476

001214

7%:

8%:
FIx.00:

176377
000400
000010
000400

112711
112712
000404
112711
112712

000300
000006

001401

6%:

005100

000200
000007

032710

TYPE

020460

112711
112712
000414
022703

001005

GENERAL UTILITIES

1%:

BR
TST
(MP
SNE

TYPE
BR
MOV

JMP

MOV
81C
TST
BNE
MOV
MOov8
BR
MP
BNE
MOvVB
MovB

2%:

001000

000340
000005
040000

3%:

A ¥

105212

000207

5%:

D e

)

d md

b e

)

d e

D e

) e

e e

1087
1088
1089
1090
109

19-MAR-79 09:06

BR
(MP
BNE

Mov8
MOvVB
BR
MovB
MovB

BIT
BEQ
INCB
RTS

&
vE

(TYPE OUT,ERROR,SCOPE,ETC.)

JMCRLF

+
(RO)
RO,#TLAST+10

MQM
43
#TST1,RETURN

aRETURN

;PREPARE RETURN ADDRESS
.GO START TESTING.

(RO) ,R3

:GET PARAMETERS.

R3
1%

*TEST FOR EIGHT BITS.

#2(<1400>,R3

#400, (R1)
#8.,(R2)

#400,R3

2 3

#200, (R1)

#7,(R2)
A 3
#1000,R3

#300, (R1)
#6, (R2)
4%
#340, (R1)
#5, (R2)

ggARBIT.(RO)
(R2)

CLEAR JUNK.

*BR IF NOT 8 BITS.
;SET FOR 8 BITS PER (HAR
.

s CHECK FOR SEVEN BITS.

;BR IF NOT 7 BITS.

sCHECK FOR SIX BITS.
;BR IF NOT SIX BITS.

;IF NONE OF THE ABOVE; MUST BE 5 BITS.

*PARITY ENABLED?

YIF =0; THEN NO PARITY.
*PLUS ONE TO THE CLOCK!

J*ROUTINE USED TO “'AUTO SIZE'' THE DV11
;*CSR _AND VECTOR.

) cd e

s *NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING
W

)

ADDRESS RANGE

(175000:175400)

AND THE VECTOR MAY BE ANY WHERE
FLOATING VECTOR RANGE (300:770)

IN THE

WWINW
W
(WS
&S
W

=00

——d e

d e mh

) cad

b ed md

000005
012702
005022
022702
001374
105037
012702
012701

012737
005711
001037
022761
001033

AUTO.SIZE:

RESET
(SRMAP: MOV
1%:
CLR
MP
BNE
CLRB

001500
001740

001301
001500
175000

007076
177777

000004
000012

2%:

MoV
MOV
MoV
TST

BNE
(MP
BNE

#DV .MAP R?

(R2)+
#DV.END ,R?2
1%
DVNUM
#DV .MAP ,R2
#175000,R1
HOS a6
(R1)

#177777,12(R1)

JINSURE A BUS INIT.
;LOAD MAP POINTER.
;ZERO ENTIRE MAP
;JALL DONE?
;BR IF NO
;SET OCTAL NUMBER OF DV11°'S TO O

;SET FOR FIRST ADDRESS TO BE TESTED

sSET FOR NON-EXISTANT DEVICE TIME OQUT

21F DV11 DVSCR S/B 0
;IF NO DEV ; TRAP 10 4. IF NO BIT 8 THEN NO DV11
;1F DV11 THEN DVSFR S/B ALL 1°S ON INIT!
;BR IF NOT DV11

MACY

SEQ 0042

E
CZDveC.P11
1143
11644

1145
1166
1147
11648

1149
1150
1151
1152
1153
11564
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180

19-MAR-79 06:06

006700
006704

005761
001030

006706
006710
006712
006716
006722
006726
006732

010122
005722
052722
052722
052722
052722
052722

006742
006746
006752
006756

052722
052722
105237
122737

006736

006764
006766
006772
006776

052722

001405
062701
022701
001332

000016

;AT
000226

000062
000226
000062
000226
000062
000226
000062
001301
000010

001301

012737
012737
012702
012700
012701
010120
012721
022021
020127
101771
113737
006037
103034
005037
012772
005000

000340
007234
001500
000300
000302

}}g;

1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198

007106
007112
007120
007124
007130
007134
007136
007142
007144
007150
007152
007160
007164
007166
007172
007200

000002

#62, (R2) +
#226,(R2)+
#62,(R2)+
#226,(R2)+
#62, (R2) +
#226,(R2)+
#62,(R2)+
DVNUM
#10,DVNUM
100$
#10,R1
#175400,R1
2%
#177777,(R2)+
DVACTYV
DVNUM
5%
DVNUM,R1
R1, SAVNUM

BIS

001301

1008:

105737
001423
113701
110137
000241
106137
105237
005301
001371
012737
113737
000137
104402
005000
000000
000776
012716

007040
007042
007044
007052
007060
007064
007070
007072
007074
007076
007102

BIS
8IS
BIS
BIS
8IS
BIS
BIS
INCB
(MPS
BEQ
ADD
cMP
BNE
MOV
CLRB
TSTB
BEQ
MOVB
MOVB
CLC
ROLB
INCB
DEC
BNE
MOV
MOVB
JMP
TYPt
CLR
HALT
BR
MoV

177777

007010
007014
007016
007022
007026
007030
007034

105037

001300

001301
001303

4%:

001300
001300

000006
001300
007104
005174

000004
001302
5%:

006766

6%:
000022
000020

VECMAP:

1%:

000004

001000

001300
001246

001246

177776
001300

.
000000

2%:

16(R1)
3%

IT IS ASSUMED
R1,(R2)+
(R2)+

3%:

012722

TST
BNE

RTI

MOV
Mov
MoV
MOV
MoV
MOV
MOV
CMP
CMP
BLOS
MOVB
ROR
BCC
CLR
MOV
(LR

(TYPE OUT,ERROR,SCOPE,ETC.)

THIS POINT
MOV
TST

000010
175430

007000

007004

GENERAL UTILITIES

#226,(R2)+

DVACTV
DVACTV
R1
(8
#E, NG
DVACTV,SAVACT
VE CMAP
.MERR?
RO

.=2
#3%,(SP)

;IF DV11 THEN RESV16 S/B ALL 0°'S
;BR IF NOT DV11
THAT R1 HOLDS A DV11 CSR ADDRESS.
;STORE CSR IN CORE TABLE.
;POP OVER VECTOR STORE AREA
;SET LINE CARD 1 STAT AND SYNC

;
;SET LINE CARD 2 STAT AND SYNC
;
;SET LINE CARD 3 STAT AND SYNC
:
JSET LINE CARD & STAT AND SYNC
;
;JUPDATE DEVICE COUNTER
;ARE MAX. NO. OF DEV FOUND?
sYES DON'T LOOK FOR ANY MORE.
;UPDATE (SR POINTER ADDRESS

;BR IF MORE ADDRESS TO (CHECK.
;TERMINATER.
JWERE ANY DV11'S FOUND AT ALL?
sERROR AUTO SIZER FOUND NO DV11'S

;SAVE NUMBER OfF

IN THIS SYS.

DEVICES

sGENERATE ACTIVE REGISTER OF
;SET THE BIT

DEVICES.

;BR IF MORE TO GENERATE
JRESTORE TRAP VECTOR
;SAVE ACTIVE REGISTER
;GO FIND THE VECTOR NOW.
;NOTIFY OPR THAT NO DV11°'S FOUND.
;MAKE DATA LIGHTS ZERO
;STOP THE SHOW
;DISABLE CONT. SW.
SENTERED BY NON-EXISTANT TIME-OUT.
sRETURN TO MAINSTREAM

#340,3422
Hes,an20
#DV.MAP R?2
#300,R0
#302,R1
R1,(RO)+
#4,(R1)+
(RO)+,(R1)+

;SET IOT TRAP PRIO TO 7
JSET IOT TRAP VECTOR
;SET SOF TWARE POINTER
;FLOATING VECTORS START HERE.
;PC OF IOT INSTR.
sSTART FILLING VECTOR AREA
SWITH .+2; 10T
JADD 2 TO RO +R1

R1,41000
1%
DVACTV,TEMP]
TEMP]
5%

JBR IF
;STORE
;BRING
;BR IF

MORE VO FILL
TEMPORALLY
OUT A BIT
ALL DONE

PS
. JERO CPU PRIO
#BITO+BIT7+BIT6,a(R2)
RO
JATTEMPT TO FORCE

INTERUPT

MACY
SEQ 0043

C(ZDVEC.PI
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211

1212

007202
007204
007206
007214
007222
007226
007232
007234
007240
007246
007250
007254
007256

19-MAR-79 09:06

005200
001376
052762
042772
005072
062702
000752
051662
042762
022626
012716
00000¢

000207

000300

176777
000000

GENERAL UTILITIES

000002

000000

3$%:

000024

000002
000007

INC
BNE
BIS
BIC
CLR

ADD
BR
BIS
8IC
(MP
MOV

000002

007214
5%:

RT]
RTS

#300,2(R2)

#2C<BIT9>,a(R2)

a(R2)

#24 ,R2

(SP) ,2(R2)
#7,2(R2)

(SP)+,(SP)+

#3%, (SP)
PC

(TYPE OUT,ERROR,SCOPE,ETC.)
sSTALL

;NO

FOR TIME

TO INTERUPT

INTERUPT ASSUME

300 AND FIX D¥11

;POP SOF TWARE POINTER

JKEEP GOING

;GET VECTOR ADDRESS
;CLEAR JUNK
;POP JOT JUNK CFF STACK
;SET

FOR RETURN

JALL

DONE WITH "‘AUTO SIZING''

LATER

MACY

SEQ 0044

G
CZDVEC.P11

19~-MAR~79 09:06

1213
1214
1215
1216
1217
1218
1219

000020
000040
009100
000200
000400

001000
002000
004000
010000

1226
1225
1226
1227
1228
1229

1975

DIGITAL EQUIP.

(ORP.

BUSY=20
SCNENA=40
INTENA-100
DONE=200
STEP=400
MAINT=1000
CLRMUX=2000
CLRSCN=4000

sCLEAR MULTIPLEXER FUNCTION FLIPFLOPS
;CLEARS SCANNER SCRATCHPAD MEMORY

RINGF=100000

;CLEAR TO SEND TRANSITION WAS DETECTED BY SCANNER
;CARRIER TRANSITION WAS DETECTED BY SCANNER
JRING SIGNAL WAS DETECTED BY SCANNER

SECRXF=10000
CSF-20000
COF=40000

020000
040000
100000

;LINE SCANNER RUNNING
sLINE SCANNER ENABLE
s INTERRUPT ENABLE

s SCANNER DONE
;CAUSES LINE COUNTER TO BE INCREMENTED BY 1
;FORCES 1S TO INPUT OF

SCRAT(CH PAD MEMORY

(COUNT

s SECONDARY RECEIVE TRANSITION WAS DETECTED BY SCANNER

007260

007262
007264

000000

007266
007270
007272
007274
007276
007300

000000
000000
000000
000000
000000
000001

1251
1252

007304
007306

000300
000001

007302

;*RING
J*RING
;*BIT 07

TURFLG:

LINE:

POINTER:

MC.CSR:
MC.LSR:

0
co
BIT06

MC.VEC:
MC.LVL:

(1S
(TS

B 1705

SECRX
DSR

81104

1|
b

T
T

——d

T
T

T
T
B
T

RECOGNIZE TRANSITIONS ON THIS LINE
SEND SECONDARY TRANSMIT TO MODEM
SECONDARY RECEIVE TURNED ON BY MODEM
SEND TERMINAL READY TO MODEM
SEND REQUEST TO SEND TO MODEM
NEW SYNC LEAD.
DATA SET READY.
CLEAR TO SEND TURNED ON BY MODEM
CARRIER TURNED ON BY MODEM
RING TURNED ON BY MODEM

CHAR:
0
COUNT:
O
SELECT: C
EXERCISE:
TOTAL:
O

000001

—

RING=BIT7

000000
000000

1245
1246
1247
1248
12649

000160
000200

NS=BIT3
DSR=BIT4
CS=BIT5
C(0=BIT6

TRMRDY=BIT1
RS=BITZ2

d ——d emd ed

L INENA=RITO
SECTX=10
SECRX=20

000010
000020
000002
000004
000010
000020
000040

000001

1231
1232
1233
1234
1235
1236
1237

IR
TR
IR

JLINE REGISTER BIT FUNCTIONS

1230

1250

DEVICE DIAGNOSTICS.

;CONTROL STATUS REGISTER BIT FUNCTIONS

1220
1221
1222
1223

1238
1239
1240
1241
1242
12643
12644

Dv11

.BLKW 1
.BLKW 1

300

sDEFAULT VECTOR!.

.BLKW 1

SECTX
NS

81T93

RTS
RTS

BIT02

TRDY
TRDY

BITO1

LENAB
LENAB

81100

«x»
=xx

SIGNALS FOR ASYNC LC.
SIGNALS FOR SYNC LC

MA C Y

SEQ 004 5

CZOVEC.PIN
1267

1268

19-MAR-79 (09:06

Dv11
SN

DEVICE DIAGNOSTICS.
AR

A N AN

DIGITAL EQUIP.

AN RN AR AR RN AN R AN AR R AR RN AR AR R AN AR NNNNAANANRRRRNNANC RN

THIS "‘TEST

1'° IS NOT ACTUALLY A TEST.

1269
1270
1271
1272

i
B
I
i

IT IS USED TO GET USERS INPUTS FOR WHICH LINE(S)
EXERCISED. THE PROGRAM WILL TYPE OUT:
(A) H325
(B) H861

1274
1275
1276
1277
1278
1279
1280

s
;>
I
i
I
I
;*

THE H325 TURN AROUND IS USED FOR THE SINGLE LINE
TURN AROUND AT THE DISTRIBUTION PANEL OR
AT THE END OF THE MODEM CABLE.
THE H861 TURN AROUND IS USED FOR THE 16 LINE TURN AROUND.
IF THE H325 WAS SELECTED (A) THE FOLLOWING WILL BE TYPED
IF SW06=0:

}sg;

CORP.

SELECT LINE(S):

ARE

TO BE

XXXXXXXXXXXXXXXX

1283

THE FIRST *'X'' REPRESENTS LINE

15 AND EACH 'X'' IS THE

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

o *
i*
*
*
i
*
*
*
S *
*
o *
I

NEXT LOWER LINE TILL THE LAST "X'* IS “INE 0. TYPE
A ‘1" OR A '0'' UNDER THE APPROIATE ‘X''(LINE)
TO EITHER SELECT(1) OR NOT TEST(0) EACH LINE.
AFTER ALL 1'S AND 0'S ARE TYPED; TYPE A <CR>.
THE PROGRAM WILL TYPE OUT IN OCTAL THE LINES YOU
HAVE SELECTED; AND THE PROGRAM WILL BEGIN RUNNING
THE HIGHEST SELECTED LINE THROUGH *ALL* TESTS THEN
UPDATING TO THE NEXT LOWEST LINE TILL ALL SELECTED
LINES ARE DONE. THEN THE PROGRAM WILL TYPE AN
"END'' CHAR.
PLEASE READ
THE SECTION ON PASS COMPLETE
IN DOCUMENT.
IF THE H325 IS SELECTED AND SW06=1 THE FOLLOWING WILL BE

1297
1298
1299

i
J*
*

THE USER MUST THEN TYPE IN A SINGLE LINE HE DESIRES
END PASS IS THE SAME.
REGUARDLESS OF WHICH CONNECTOR WAS SELECTED: THE

1301

MODEM VECTOR:

1296

1200

1302
1303
1304
1305
1306
1307
1308 _
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320

¥
J*
i
J*
J*
J*
I*
o
*
o
v
I*
B
o
;v
i*
i
i

SINGLE LINE:

TYPED:

(00-17)

~OCTAL-

THE LAST QUESTION IS:

(THIS WILL BE ASKED ONLY AT THE INIATL START OF PROGRAM
OR WHEN A DIFFERENT DV11 IN THE SYSTEM IS UNDER TEST)
TYPE IN THE VECTOR OF THE MODEM CONTROL (300:774).
THE CSR(MC.CSR) IS ASSUMED TO BE =DVSCR+20.
NOTE:
IF CABLE TESTS ARE TO BE DONE ON OTHER
DV11°*'S IN SYSTEM; SELECT THEM BY USING SWO0O AS DESCRIBED
IN THE DOCUMENTATION.
UNLESS LOCATION 42 IS NON-ZERO IN WHICH CASE THE PROGRAM
ASSUMES ITS UNDER ACT-11 MONITOR.
THE PROGRAM WILL
CYCLE THROUGH ALL DV11S AND MODEM CONTROL *HOWEVER*
THE RESTRICTIONS ARE:
xxxALL**~ MODEM VECTORS MUST BE AT 300
wxsAl
| *x* TURN AROUNDS MUST BE H861.
"LONG END PASS'‘ WILL BE GIVEN AT END OF LARGE END TO
INDICATE DEVICES TESTED. PASSES TYPED IN THIS
MESSAGE DO NOT INDICATE PASSES BUT RATHER THE
NUMBER OF FULL PASSES THROUGH MULTIPLE DEVICES.
'"LARGE END AND TYPE QUT MAY BE INHIBITED BY Sw12.

AT AR AR R A A AN

AR R

AR A AN RN A NN A R AR AN AR RN R A AR RN RN R AR AN N

R AT NN AR

MACY
SEQ 0046

I
CZDVEC.P1

19-MAR-79 09:06

DV11

DEVICE DIAGNOSTICS.

DIGITAL EQUIP.

(ORP.

1321

1322

1323
1326
1325
1326
1327
1328
1329
1330

007310
007316
007324
007330
007336
007344

133

OV~ VIS NN —=OVONONEB WOV~

S99 39 3 3 9 Svtwiw
FEFELE &WWWW VIVIMIVIVIVES

104402

004737

N VALV, 1V

122737
001004
012737
000412
122737
001360
005037
012737
000523
032777
001421
007502
106403
104405
000000
000017
007262
000
012737
005337
100502

000241
006137
000771
104402

013737
005037

105777
100375

OV~

S —
S
QU
QU
QU
U
T U
QE S
S
WU
U
O
Y U
U
N
N\
N U
[

WW
~

1332
1333
1334
1335
1336

012737
012737
005037
013737
062737
013737
062737
012737
012737
012777
012737
005737
001020

007610
007622

007630

017700
010077
042700
022700
001004
013737
000415
022700
001412
022700

000001
010770
177776

001226
001216

#1,TSTNO
WTST2 NEXT

007300
007300
007302
007302

DVSCR,MC.CSR
#20,MC.CSR

MC.CSR,MC.LSR
#2,MC.LSR
#KBISR,a#60
#340,a462
#100,aTKCSR

000060
000062

000042

022672
022760

171602
177776

1%:

000101

001272

000377

007260

000102

001272

007260
000001

007272

000100

171502

001
000001
007262

007272

70%:
448

71%:

001252

171416

74%:

000123
001252

000015
000060

72%:

2%:

171412
1714612
177600

007272

sSET

INTERUPT ENABLE

;LOCK OUT TTY

.MTURN

#101,SAVRS
708
#377,TURFLG
71%
#102,SAVRS
1%
TURFLG

#1,SELECT

68%

#SW06,aSWR

72%

LMSING

0.1

007272
022121
007272
007272

;1T HAS TO BE 20(8) MORE THAN DVS(R.
;GET MODEM LSR
;MUST BE 2 MORE THAN (SR
;SET KEYBOARD INTERUPT VEC
;SET LEV TO 7

PC,TKRDY

MAR18=,

022234

#340,PS
Y14
449

;CLEAR CPU STATUS
;GET MODEM (SR

#1,SELECT

L INE

68%

SELECY
748

JMSEL
SELECT,TEMP3

SELECT
oTKCSR

2%
@TKDBR,RO

RO,aTPDBR
#*C<177>,R0
#123,R0
412
TEMP3,SELECT
4%
#15,R0

#60,R0

;ASK FOR LINES

JGET PREVIOUS LINE SELECT
JMAKE

IT O

;BR

;JREADY?
IF

;READ CHAR
JECHO CHAR

;STRIP ALL BUT DATA
JWAS IT “'S(AME)'’
;BR IF NO
JRESTORE PREVIOUS LINES SELECTED

;GO ON

JWAS IT "<CR>
;BR

YES

JWAS IT 'O

MACY

SEQ 0047

J
19-MAR-79 09:06

CZDVEC.P11

1377

1378
1379

007634
007636
007642
007644
007646
007652
007654
007660
007662
007666
007672
007676
007702
007704

001403

DVv11

000061
3%

007272
007272

A Y

001266
007272
022202
177776

023044
001266

000020

65%:
5%:

001266

000042

6%:

68%:
80%:

022737

—_aaaaaa3

&wwr\."\)-a—
boo*oo*’\)g

603

—maaaaaaa

1432

BR
1ST
BEQ

MOV
TYPE

CLR
RCR

BCC
CNVRT
INC
CMP
BNE
TYPE
cmMp
BEQ

TST

BNE
(MP
.WORD
DVSCR
BEQ
INSTR

PARAM

b33

#61,R0
18
RO
SELECT
’$
SELECT

DIGITAL EQUIP.

;BR IF YES

JWAS IT '"1*°
;BR IF NO. RETYPE MSG
JSHIFT THE BITS
;BRING CARRY [NTO SELECT

;CONT.
JARE ANY LINES SELECTED?

JBR

JMLINE
PS

JALERT USER TO WHAT
sHE SELECTED

SAVR3
SELECT,RS

RS
6%
JXXLIN
SAVR3

NO.

AND

;SET TYPE OUT
s SAVE

TYPE MSG

#16.,SAVR3

5%
.M. CRLF
#123,R0
69%
42
98%

6PC)*,B(PC)+

98$

MVE(Z

774

lelelalelelelele]

1431

ROR

ROL

300

jolelalolelelale]

14G7
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430

BEQ
(MP
BNE

(LR

022231
000123

1405

DEVICE DIAGNOSTICS.

001
001362
007304
000002
010330
177234
007264
177222
007264
007272
000020
007262
007274

MC.VEC

007750
007306
007306
007264
007270

007266
007274
007262

000377
007266
007270

001313

177140

007270

002436

98%:

69% .

MOV

ADD

MOV

MOVR
INC
MOVB
INC
MOV
MOV
TESTER: DEC
ASL

000042
012737

.BYTE

MOV

001214

BCS
BNE

MOVB
TYPE
DEC

3.1
DVSCR, 80%

MC.VEC,MC.LVL
#2 ,MC.LVL

#TABLE ,POINTER

JGET PRIORITY LEVEL
JUP IT.

aPOINTER, COUNT

POINTER
aPOINTER, CHAR
POINTER

SELECT,EXERCISE
#20,L INE
L INE
EXERCISE

;

;
;

TESTER

#377,QV.FLG
CHAR

ggum

3PCINTER, COUNT
48

42
414

# .EOP ,RETURN

CORP,

MACY

SEQ 0048

K
CZDVEC.P11

1433

010144

19=MAR=79 09:06

000177

171044

DV11

1434
1435
16436
1437
1438
1439
1440

010150
010156
010164
010170
010176
010202
010210

012737
117737
005237
117737
005237
013737
012737

010330
177102
007264
177070
007264
007272
000020

007262

1442
1443
1444
1445

010220
010226
010234
010236

012737
013737
005046
012746

010770
001214

001214
001216

1447
1448
16449
1450
1451
1452
1453
}Zgé

010250
010252
010256
010262
010266
010270

001374
017746
042716
122726
001403
022626

010272

000177

170716

1456
1457

010276
010300

010046
017700

170702

1459
1460
1461

010310
010314
010316

022700
001003
012766

1441

1446

1458

010216

010242

010304

000722

032777

042700

010272

004000

007264
007270

007266

007274

DEVICE DIAGNOSTICS.

JMP

#TST2 ,RETURN
RETURN,NEXT
-(SP)
#5%,-(SP)

BNE
MOV
BIC
CMPB
BEQ
CMP

.~6
aTKDRR,
= (SP)
#3177, (SP)
#1,(SP)+
KBISR
(SP)+,(SP)+

JMP

SRETURN

KBISR:

MOV
MOV

RO,=(SP)
aTKDBR R0

;SAVE

1$:

CMP
BNE
MOV

#1.RO
18
AMAR18,2(SP)

"WAS IT <*A>
‘BR IF NO
*SET RETURN

MOV

(SP)+,R0

TASLE:

.BYTE 1,15,2,12
.BYTE 8.,40.10..,105.4.40,2.,116.,6.40,2.116.4.40.8.
104

2%:

B8R

BIT

177600

BIC

000001

#TABLE ,POINTER
aPOINTER,COUNT
POINTER
@POINTER,CHAR

TESTER

#R3I1T11,8TKCSR

¥4C<177>.R0

010326

000002

1465

010330
010334

001
010

015
040

002
012

010400
010404
010430
010434
010460
010464
010510
010514
010540

001
010
001
010
001
010
001
010
001

015
040
015
040
015
040
015
040
015

001
002
001
002
001
002
001
002
001

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

010574

001

015

001

BYTE 1.15,1,12

010354
010360

010544

010600

001
010

010

015
040

001
012

040

010

040

010

CORP.

RTI

;
;

:
;SET FOR FAKE INTR
*SET FAKE PC OF INTR
=TTy

ACTIVE?

JYES WAIT

TILL DONE.

;CLEAR PARITY
*WAS “A (CHANGE LINES) HIT?
;BR IF YES
;BR TO KBISR NOT TAKEN
;POP FAKE INTR QFF STACK
p
CHAR IN RO

*CLEAR ALL BUT DATA

(CNTRL A)?

*RESTORE RO

*CONT.

BYTE 1,15,1,12
BYTE 8.,40,10.,105,4,40.2.116.6.40.2.116.4,40,8.,104

1.15,1,12
8.,40,2,105,12..40.2.116.6,40,2.116.4,40,2.104.6.40.2.104
1,15,1,12
8.,40,2,105,12..40.2.116.6.,40.2.116.4,40.2.104.6.40.2.104
1,15.1,12
8.,40,2,105,12..40,4,116,4,40.2,116.4,40,2.104.,6,40,2.,104
BYTE 1,15,1,72
BYTE 8.,40,2,105,12..40.4.116,4,40,2,116.4,40,2.104.6.40.2.104
BYTE 1.15,1,12

BYTE 8.,40,8.,105,6,40,2,116,2.40,2,116,2.,40,2,116.4,40,2.104.6,40,2.,104

BYTE 8.,40,8.,105.6.40,2,116,2,40,2.116,2.40,2.116.4,40,2.104,6.40.2.104

010630
010634

001
010

015
040

001
002

BYTE 1,15,1,12
BYTE 8.,40,2,105.12..40.2.116,4,40,4.116,4,40,2,104,6,40,2.104

010664

010

040

002

BYTE 8.,40,2,105.12.,40,2.,116,64,40,4,116,4,40,2,104.6,40.2.104

010714

010

040

012

BYTE 8.,40,70.,105.4.40,2.116.6,40.,2.116,4,40,8.,104

010740

010

040

012

BYTE 8..40.10..105.4,40,2.116.6.,40,2.116.4.40.8.,104

010710

010734

001
001

001

015
015

015

001
001

001

aRETURN

010326

}222

DIGITAL EQUIP.

MOV
MOV
CLR
MOV

3$:

170734

000002

1975

POINTER
SELECT,EXERCISE
#20,L INE

48:

170730
000200
000001

007502

MOV
MOVB
INC
MOVB
INC
MOV
MOV

1462

012600

BYTE 1.15,1,72

BYTE 1,15,1.,12

BYTE 1,15,1,12

MACY
SEQ 0049

L
CZDVEC.P11

010760
010764

19-MAR-79 09:06

001
000
010770

015
000

DV11

001
000

DEVICE DIAGNOSTICS.

BYTE 1,15,1,12
.BYTE 0,0,0
.EVEN

4
COPYRIGHT

1975

DIGITAL EQUIP.

(ORP.

MACY
SEQ 0050

M
CZDVEC.P1T

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

DIGITAL EQUIP.

(ORP.

MACY

SEQ 0051

N
CZDVEC.PIN

19-MAR-79 09:06

Dv11

DEVICE DIAGNOSTICS.

1467
1468
1469

J*INITIALIZATION CHECK
;*VERIFY THAT CONTROL STATUS REGISTER AND LINE STATUS
;s*REGISTER WERE

1471

}2;%
14746
1475
1476
1477
1478
*1479
1480
1481
1482
1483
14846
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
};8?

;
010770
010776
011004
011010
011012
011014
011016
011024
011032
011036
0110464
011052
011054
011056
011060
011064
011066
011070
011072
011076
011100
011102
011104
011112
011114
011116
011122

012737
012737
105777
100375
000005
005005
052777
012737
012702
027777
027777
005302
001370
005200
013703
011304
001401
104002
013703
011304
001401
104002
012737
104400
104005
012706
000177

000002
011126
170200

001226
001216

000100
011114
000010
170142
170134

170160
000004
170140
70132

65%:

007302

000006

000004

18:

001200
170066

1502

CLEARED BY

AN AR AR AR RN R

INITIALIZE

R R AN R AN AR AR R RN RN AN RN AR AN NN R AR AN NN

MOV
MOV
TSTR
8PL
RESET
(LR
8IS
MOV
MOV
cMP
tMe
DEC
BNE
INC
MOV
MOV
BEQ
HLT
MOV
MOV
BEQ
HLT
MOV
SCOPE
HLT
MOV
JMP

#2,TSTNO
#TST3 NEXT
aTPCSR
.~4
RS
#100,9TKCSR
S, N
#8. ,R2
aTKCSR,aTKCSR
@TKCSR,aTKCSR
R2
65%
RO
MC.CSR,R3
(R3) ,R4
.+
2
MC.LSR,R3
(R3) R4
.t
l
6, aH6

;SET TTY INTERUPT ENABLE
sSET FOR NON-EX DEVICE.
;SET COUNTER
JWASTE TIME
JWASTE TIME
;DELAY DONE?
:BR IF NO
sJFLASH LIGHTS
sSET MC.CSR POINTER
;READ REGISTER
;CONTROL STATUS NOT CLEARED,
;SET POINTER
;READ MC.LSR
JRESET TRAP CATCHER
;CHECK FOR LOOP
;SHOULD NOT TRAP.
:

5
#STACK,SP
aRETURN

1504
1505

J*VERIFY THAT ''INTERUPT ENABLE'' CAN BE
s*SET AND CLEARED.
SRR

011126
011134
011142
011146
011152
011154
011160
011164
011166
011170
011172
011176

012737
012737
013703
012713
011304
042704
012705
020504
001401
104002
042705
042713

000003
011220
007300
000100

177677
000100

000100
000100

001226
001216

TEST

At v

AN A AN AR N R RN R A AN

AR AR AR AR AR R AR R KRR AR RN R R R A AN AR AR AR AR AR AN AR

;
TEST 3
R
TST3:
MOV
MOV
MOV
MOV
MOV
8IC
MOV
(MP
BEQ
HLT
BIC
BIC

#3,TSTNO
HTSTS NEXT
MC.CSR,R3
#INTENA, (R3)
(R3) ,R4
#*C<INTENA> R4
#INTENA RS
RS R4
.t
2
#INTENA
RS
#INTENA, (R3)

ERROR

;LINE STATUS NOT CLEARED, ERROR

JRIRANRANRNRRARNNRAKRAARNE

1509
1510
1511
1512
1513
1516
1515
1516
1517
1518
1519
1520
1521

AR RN R R,

;WAIT FOR TTY READY
;BR |F NOT READY
JINIT

1503

1506
1507
1508

vt A a AN AN AN AR R AR RN RN NS A%

TEST 2

TSTZ:

007300

CORP.

JNRNERNRAARRRRAREARANANAN

DIGITAL EQUIP.

1466

1470

TEST

1975

AR AN R

RN RN

ANRRANR R AR RN

;SET POINTER TO MC.CSR
JLOAD FUNCTION
JREAD RESULTS
sMASK OFF ALL OTHER BITS.
;MAKE R5=GOOD
JRESULTS OK?
JBR IF YES
;ERROR. R5=GO0D ,R4=BAD ,R3=REGISTER
sCLEAR BIT

MACY
SEQ 0052

B
CZOvEC.P1

1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577

011202
011204
011210
011212
011214
011216

19-MAR-79 09:06

011304
042704
020504
001401
104002

DV11

177677

DEVICE DIAGNOSTICS.
MOV
BIC

(R3) R4
#2C<INTENA> R4

BEQ

CMP

HLT

104400

(ORP.

JREAD REGISTER
JMASK OFF ALL OTHER BITS.

RS5,R4

JREGISTER 0OK?
JBR IF

YES

;SCOPE

TEST.

;BIT

SCOPE
CRNRNARRANRAARARR
N CeAnnnand

DIGITAL EQUIP.

[EST

S«VERIFY THAT 'DONE’' CAN BE

FAILED

TO (LEAR

annnnnnnnnnnnanenantneannnnane

S«SET AND CLEARED.

":t!filfit'*tflfitfi"".tt.ttfifittlfi..fit.tt't..tttt..tfi'!'t'tti..".t't

011220
011226
011234
011240
011244
011246
011252
011256
011260
011262
011264
011270
011274
011276
011302
011304
011306
011310

012737
012737
013703
012713
011304
042704
012705
020504
001401

000004
011312
207300
000200

042705
042713
011304
042704

000200
000200

104002

020504

001226
001216

TSTé4:

MOV
MOV

MOV

MC.CSR,R3

JSET POINTER TO MC.(SR

MOV

(R3) ,R4

JREAD RESULTS

MOV

177577
000200

#*C<DONE> ,R4

CMP
BEQ
HLT
BIC

RS ,R4
.+

BIC

MOV
BIC

CMP

001401

BEQ
HLT
SCOPE

104002
104400

#DONE , (R3)

B1C

MOV

177577

#4,TSTNO
HTSTS NEXT

sLOAD FUNCTION
;MASK OFF

#DONE ,RS

OTHER BITS.

JRESULTS OK?
;BR IF YES

;ERROR.

#DONE ,RS
#DONE, (R3)
(R3) ,R4

R5=GOOD,R4 BAD,R3 REGISTER

;CLEAR 8BIT

JREAD REGISTER
;MASK OFF ALL OTHER BITS.

#*C<DONE>,R4

R5,R4

JREGISTER 0OKk?

.+
2

JRRRNRRRRARNKARAAAAARRANAR

ALL

;MAKE R5-GOOD

sBR IF YES
;BIT FAILED TO CLEAR
;SCOPE TEST.
TEST

nasnnnwnvnnanntsennnnnnenannnns

;*VERIFY THAT ‘MAINTENANCE MODE'® CAN BE

;*SET AND CLEARED.

":tfifi'fl'tt'fit*tttt'ttttlt'fitl‘fitttttflttl't'tttttttttttt't'ttt't.'tt'

5
011312
011320
011326
011332
011336
011340
011344
011350
011352
011354
011356
011362
011366
011370

000005
011404
007300
001000
176777

001000

011304
042704

001000
001000
176777

001226

001216

TSTS:

MOV

#5,TSTNO

MOV
MOV
MoV
BIC
MOV
cMP
8tQ
HLT
BIC

MC.CSR,R3
#MAINT, (R3)
(R3) ,R4
#*C<MAINT> R4
AMAINT RS
RS,R4
.+
2
#MAINT RS

JSET POINTER TO MC.CSR
;LOAD FUNCTION
JREAD RESULTS
sMASK OFF ALL OTHER BITS.
sMAKE R5=GOOD
SJRESULTS 0OK?
;BR IF YES
;ERROR. R5=G00D,R4=BAD ,R3=REGISTER

MOV
BIC

(R3) ,R4
#*C<MAINT> R4

JREAD REGISTER
JMASK OFF ALL OTHER BITS.

MoV

BIC

ATST6 NEXT

#MAINT, (R3)

;CLEAR BIT

MACY

SEQ 0053

c
CZDVEC.P11
1578
1579
1580
1581
1582
1583

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

1609

011374
011376
011400
011402

19-MAR-79 09:06

DVv11

020504
001401

DEVICE DIAGNOSTICS.

(MP
BEQ

104002
104400

HLT
SCOPE

1975

RS ,R4
.4

(ORP.

JREGISTER 0K?

;sBR IF YES
JBIT FAILED TO CLEAR
;SCOPE TEST.

JNNNERRRRNRRR
RN AR Ntk nknn

DIGITAL EOUIP.

JEST

sannnnenanasnnmnnnnntrenrennnsn

;*VERIFY THAT ''SCAN ENABLE'' (AN BE
;*SET AND

CLEARED.

":t*'.*fi"fitfil*i‘"tfifittfitttttttt'tt'fiilltt.t'tttt.ttttttittfi"'tt

011404
011412
011420
011424
011430

011432
011436
011442

011444
011446
011450
011454
011460
011462
011466
011470
011472
011474

012737
012737
013703
012713
011304
042704
012705
020504
001401

000006
011476
007300
000040

042705
042713
011304
04c704
020504
001401

000040
000040

104002

104002
104400

177737
000040

177737

001226
001216

TST6:

MOV
MOV
MOV
MOV

#6,TSTNO
#TST7 NEXT
MC.CSR,R3
#SCNENA, (R3)

BIC

#*C<SCNENA>
R4

BIC

#SCNENA
RS

MOV

MOV
(MP
8EQ
HLT

BIC

MOV
BIC
(MP
BEQ

HLT
SCOPE

(R3) R4

;SET POINTER TO M(C.(CSR
sLOAD FUNCTION
;JREAD RESULTS

#SCNENA
RS
RS R4
.t
2

JMAKE R5-GOOD
JRESULTS 0OK?
JBR IF YES
;ERROR. R5=G00D,R4=BAD,R3=REGISTER

#SCNENA, (R3)

;CLEAR BIT

(R3) R4
#*C<SCNENA> R4
RS ,Ré
.+

JMASK OFF

ALL

OTHER BITS.

JREAD REGISTER
;MASK OFF ALL OTHER BITS.
REGISTER 0K?
;BR IF YES
;BIT FAILED TO CLEAR
;SCOPE TEST.

MACY

SEQ 0054

D
CZOVEC.P1N

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

1610
1611
1612

1630
1631
1632
1633
1634
1635
1636

1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651

"652
1653
1654

1655
1656
1657

JRERRNRANRAARARNGRANRARAN

TEST

DIGITAL EQUIP.

aa v e

A A e AN

A A

CORP.
A AR AN SR AN

J*VERIFY THAT 'BUSY'' IS SET WHEN ''SCAN ENABLE'' IS SET
;*VERIFY THAT 'BUSY'' IS CLEARED WHEN "'SCAN ENABLE'' IS CLEARED

1613

1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629

: IRRA

011476
011504
011512

011516
011522
011524
011526
011532
011534
011536
011540
011544
011552
011560
011562
011564
011570
011572
011574
011576

012737
012737
013703
012713
011304
010405
052705
020504
001401

000007
011600
007300
000040

042713
023737
023737
011304

000040

104002

010405

042705
020504

001226
001216

000020

000000
000000

MoV
MOV
MOV
MOV
MOV
MOV
BIS
CMP
BEQ

47,TSTNO
#TST10,NEXT
MC.CSR,R3
#SCNENA, (R3)
(R3) ,R4
R4 RS
#8USY ,R5
RS R4
R

81C
MP
CMP
MOV
MOV
BIC
(MP
8EQ
HLT
SCOPE

#SCNENA, (R3)
0.0
0,0
(R3) ,R4
R4 RS
#BUSY ,R5
R5,Ré
.+
2

HLT

000000
000000

000020

001401
104002
104400

AN AR RN AR AN RN AR

AAR AR

RN AN RANRAA N AN ANANNARANA N A ANRAN

JREAD REGISTER
;GET IMAGE
;SET BUSY BIT IN GOOD.
JREGISTER 0K?

;BUSY NOT SET,

011600
011606

011614
011622
011626
011634
011642

011650
011654
011656
011660
011662
011664

012737
012737
012737
005077
012777
012777

052777
005037

000240
000402
022626
104003
104400

000010
011666
000340
175452
011660
000340
000200
177776

001226
001216

AR AR A AR AR A AR AR

MOV

#10,TSTNO

CLR
MoV

aMC.CSR
#1%,aMC.
VEC

MOV
MOV

177776

175450
175444
175430

MOV
BIS
CLKR
NOP

1%:

2%:

POP2SP
HLT
SCOPE

ERROR

;CLEAR SCAN ENABLE
;GIVE BUSY A CHANCE TO CLEAR
JWHEN ON A HOT ROD MACHINE ¢11/70)!
;READ MC.CSR
;GET IMAGE
. CLEAR BUSY IN GOOD.
;BUSY CLEARED?
;BUSY NOT CLEARED, ERROR
;CHECK FOR LOOP, ITERATIONS
TEST

aannnnvnnnnnnrannnnteennnnnnnn

s*VERIFY THAT SETTING ‘DONE'' DCES NOT CAUSE AN
;*INTERRUPT IF ''INTERRUPT ENABLE'' IS CLEARED.
TR

ANRR

sSET REGISTER POINTER
;SET SCAN ENABLE

JRNNNRARKARNRRRARARAARAAN

#TST11 NEXT
#340,PS

AR R RN AR

AR AR A N AR

AN AN AN

ARNAAR NN

#340,aMC.LVL
#DONE ,aM(C. (SR
PS

;LOCK OUT INTERRUPTS
;CLEAR CONTROL REGISTER
;SET UP INTERRUPT SERVICE ADDRESS
:SET UP INTERRUPT PRIORITY
s SET DONE
ALLOW INTERRUPTS

3 3

sNO INTERRUPT,

:DELAY FOR

INTERRUPT

CONTINUE

JRESTORE STACK, INTERRUPT
;CICURED, ERROR
;CHECK FOR LOOP, ITERATIONS

MACY

SEQ 0055

E
CZDVEC.P1

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

DIGITAL EQUIP.

(ORP.

1658

1659

JNRRNRRRRRRR
R nnterhnnnnt

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

1687

;

011666

011674

011702

011710
011714
011722

011730

011736
011742
011744
011746
011750
011752

012737
012737
012737
005077
012777
012777
052777
005037
000240
000402
022626

000011
011754
000340
175364
011746
000340
009100
177776

001226
001216

TST11:

177776

CLR
MOV

aM(.CSR
#18,aMC.VEC

BIS
CLR
NOP

#INTENA,aMC.CSR
PS

POP2SP
HLT

2%:

RRYR SRS

#11,TSTNO

#TST12 NEXT

1%:

104003
104400

MOV

175356

175342

222222

MOV

175362

SRSttt

SCOPE

#340,PS

;LOCK OUT INTERRUPTS

#3640, aMC.LVL

;SET UP INTERRUPT SERVICE LEVEL

;CLEAR CONTROL REGISTER
;SET UP INTERRUPT SERVICE ADDRESS
:SET INTERRUPT ENABLE
cALLOW INTERRUPTS
;DELAY FOR INTERRUPTS

JNO INTERRUPT,

CONTINUE

sRESTORE STACK
s INTERRUPT OCCURED,

ERROR

;CHECK FOR ITERATIONS, LOOP

TEST

LA A2 20023 dR2dR22

222222222 R

;*VERIFY THAT SETTING 'DONE'' CAUSES AN INTERRUPT
J*WITH "'INTERRUPT ENABLE'’ SET
. AR

;
011754

1694
1695
1696

012024
012030
012036

1698
1699
1700

TEST

ALEASSAS

"'Qtttitt*i*'tt't*tt**'ii

011762
011770
011776
012002
012010

1697

ewnnnnennannnannesntenrtrnnnen

;*SET AND 'DONE’’ CLEARED.

. M

1688
1689
1690
1691
1692

1693

;*VERIFY THAT NO INTERRUPT OCCURS WITH ''INTERRUPT ENABLE''

1685

1686

TEST

012016

012040

012042
012044
012046

012737
012737
012737
005077
012777
012777
012777
005037
052777
000240

104004
000401
022626
104400

000012
012050
000340

001226
001216
177776

000340

175274
175262
175262

175276
012044
009100
177776
000200

MOV

AN NN AN

RN AN RN A AR

NN AN AR A RN RANRARAAN R AN AN NS

#12,TSTNO

#TST13 NEXT

CLR
MOV

aMC.CSR
#1%,aMC. VEC

#340,PS

sLOCK OUT

INTERRUPTS

;CLEAR CONTROL REGISTER
sSET UP INTERRUPT SERVICE

MOV
MOV
CLR

#INTENA ,aM(C.(CSR
#340,aMC.LVL
PS

JSET "‘INTERRUPT ENABLE"'
JSET "'INTERRUPT LEVEL''
sALLOW INTERRUPTS

NOP
HLT

;DELAY FOR INTERRUPT
s INTERRUPT OCCURED, ERROR

BIS

2%:

AN AN R

MOV

1%:

TEST 12

TST12:

175242

A AN

POP2SP

SCOPE

#DONE ,aM(C.CSR
2%

ADDRESS

JSET "DONE'’

; CONT INUE

;INTERRUPT

OCCURED,

RESTOR

;CHECK FOR ITERATION, LOOP

STACK

MACY

SEQ 0056

F
CZDVEC.P11

19-MAR-79 09:06

DV11 DEVICE DJAGNOSTICS.

1702
1703

Jrnnnnnannnannantnennnnnn

1704
1705

TEST

DIGITAL EQUIP.

(ORP.

enannnnannnnnnennnantnannnnnny

;*VERIFY THAT NO INTERRUPT QCCURS WITH

;*"'INTERRUPT ENABLE'' SET AND 'DONE’' SET AT PRIORITY 7.

.’:Ql'"'Qtfitttfit'i"".tt't*ittltttt"tttfi't'tt.it'.t.Qttt'tt.tt'tt

ONONHUWN
2OV N NS WN—=O

~ NN NNNN NN NNNN NN NNNNY

NONINVAOND POPNIPNIND
= b b cd ed eed d wcd —d D

012050

012136

012737
012737
005077
012737
012777
012777
012777
052777
000240

000013
012140

001226
001216

000340
012132
000340

177776
175200
175174
175160
175152

175210

000100
000200

000402
022626
104003

TEST 13

TST13:

#13,TSTNO

MOV

#TST14 NEXT

MOV

#340,PS

CLR

aMC.CSR

MOV
MOV

;SET UP INTERRUPT SERVICE ADDRESS
sSET UP INTERRUPT SERVICE LEVEL

HINTENA ,aM(C.(CSR

BIS

#DONE ,aMC.CSR

NOP

POP2SP
HLT

2%:

sCLEAR CONTROL REGISTER

;TO LEVEL 7.

#1%,aMC.VEC
#340,aMC.LVL

MOV

1%:

104400

MoV

SCOPE

JSET INTERRUPT ENABLE

;GENERATE

;DELAY FOR

INTERRUPT

;NO INTERRUPT,

CONTINUE

JRESTORE STACK
JINTERRUPT OCCURED,

ERROR

JCHECK FOR ITERATION, LOOP

JRRRRRRRRAARRA
RN R AR AR bnnn

J*VERIFY

INTERRUPT

TEST

R AR N A AR R

AR AR R AR R RSN AN NN AR

THAT NO INTERRUPT OCCURS WITH

;*"'INTERRUPT ENABLE'' SET AND ‘DONE'' SET AT PRICRITY 6.
DR

;

012737
012737
005077
012737
012777
012777
012777
052777
000240
000402
022626
104003
104400

000014
012230

175120
000300

001226

001216

R AR AR AR R AN N

MOV
MOV

#14 ,TSTNO
#TST1S5 NEXT

MOV
MOV
MOV
MOV
BIS

#300,PS
#1%,aMC. VEC
#300,aMC.LVL
#INTENA,aM(C.(SR
#DONE ,aMC. CSR

CLR

NOP

1%:

2%:

RN AR AR

AR AR AN N AR R RARRARRRANNR AR AR

TEST 14

TST14:

1727776
175110
175104
175070
175062

R AN RN R AR

POP2SP
HLT

SCOPE

aM(C.CSR

;CLEAR CONTROL REGISTER

;TO LEVEL 6.
;SET UP INTERRUPT SERVICE ADDRESS
;SET UP INTERRUPT SERVICE LEVEL
;SET INTERRUPT ENABLE
;GENERATE INTERRUPT

;DELAY

FOR

INTERRUPT

JNO INTERRUPT,

CONTINUE

JRESTORE STA(CK
s INTERRUPT OCCURED,

ERROR

;CHECK FOR JTERAT]ON, LOOP

MACY

SEQ 0057

G
CZDVEC.P1
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772

1773

1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784

1785

19-MAR-79 09:06

DVv11

DEVICE DIAGNOSTICS.

Jrnnnnnnnannnnnwntnnnnnnn

TEST

DIGITAL EQUIP.

CORP.

snnannnsnnnvantnenennnntnntnen

;*VERIFY THAT NO INTERRUPT OCCURS WITH

;*"'INTERRUPT ENABLE'' SET AND 'DONE'' SET AT PRIORITY 5.
":*t't'fi*ttfifit""tiltfitfifl'tfi*t!fittit'ttttflittttfitittttttttfi't.tt'

012230
012236
012244
012250
012256

012264
012272
012300
012306
012310
012312
012314
012316

012737
012737
005077
012737
012777
012777
012777
052777
000240
000402
022626

000015
012320

001226
001216

000240
012312
000240
000100
000200

177776
175020

175030

TEST 15

TST15:

175014
175000
174772

2%:

#15,TSTNO

MOV
CLR
MOV
MOV
MOV

#TST16,NEXT
aMC.CSR
#240,PS
#1$,aMC. VEC
#240,aMC.LVL

BIS
NOP
BR
POP2SP
HLT
SCOPE

#DONE ,aMC.CSR

MOV

1$:

104003
104400

MOV

;CLEAR CONTROL REGISTER
;TO LEVEL 5.
cSET UP INTERRUPT SERVICE ADDRESS
JSET UP INTERRUPT SERVICE LEVEL

#INTENA,aMC.CSR

sSET

2%
3

JRRRNARRRARNRAAAAAARANANY

INTERRUPT ENABLE

sGENERATE INTERRUPT
;DELAY FOR INTERRUPT
sNO INTERRUPT, CONTINUE
JRESTORE STACK
;INTERRUPT OCCURED, ERROR
;CHECK FOR ITERATION, LOOP
JEST

Attt
e e A AN et A AR RN RO A AN N AN

J*VERIFY THAT NO INTERRUPT OCCURS WITH

;*"'INTERRUPT ENABLE'' SET AND 'DONE'' SET AT PRIORITY 4,
M RN

012320
012326

012334
012340
012346
012354
012362
012370
012376
012400
012402
012404
012406

012737
012737

005077
012737
012777
012777
012777
052777
000240
000402
022626
104003
104400

000016
012410

001226
001216

012402
000200
000100
000200

177776
174730
174724
174710
174702

174740
000200

TST16:

MoV

MoV
CLR
MOV
MOV
MOV

MOV
BIS
NOP

1%:

2%:

POP2SP
HLT

SCOPE

AN AR

AR AN

R A ARA RN

AN NN R AN RN NN ANC N RN AN AR AN RRRNN RN RN NN

NANR

#16,TSTNO

HTST17 NEXT
aM(.CSR
#200,PS
#1%,aMC. VEC
#200,aMC.LVL

#INTENA,aM(C.CSR
#DONE ,aM(C. (SR
2%
3

;CLEAR (ONTROL REGISTER
;TO LEVEL 4.
sSET UP INTERRUPT SERVICE
;SET UP INTERRUPT SERVICE

sSET INTERRUPT ENABLE
;GENERATE INTERRUPT
;DELAY

FOR

INTERRUPT

JNO INTERRUPT,

CONTINUE

JRESTORE STACK
;INTERRUPT OCCURED,

ERROR

JCHECK FOR ITERATION,

LOOP

ADDRESS
LEVEL

MACY

SEQ 0058

CZDVEC.P11

19-MAR-79 09:06

DVv11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

Jrnnvnansnnnnnnnrannnnant

S*VERIFY

THAT AN

JEST

annncnncccnnannncnnnnnnnanenne

INTERRUPT OCCURS WITH ‘‘INTERRUPT

:vENABLE'' SET AND ‘DONE'' SET AT PRIORITY 0.
.' AL AA R

;

012410
012416
0126424
012430
012436
012442
012450
012456
012464
012466
012470

012737
012737
005077
012777
005077
012737
012777
052777

012474

104400

012472

000240
104004
000401
022626

000017
012476
174650
012472

001226
001216

000000
000100
000200

177776

174644

TEST

IST17:

174646
174622
174614

1%:
2%:

RSl

2222222223222

MOV

(LR
MOV
CLR
MOV
Mov
8IS
NOP
HLT
B8R
POP2SP
SCOPE

#17,TSTNO
#TST20, NEXT
aMC.CSR
#1$,aMC.VEC
aMC.LvL
#0,PS

;SET

INTERRUPT ENABLE

;GENERATE INTERRUPT

;WAIT FOR INTERRUPT
sNO INTERRUPT, ERROR.

s CONT INUE
s INTERRUPT OCCURED, RESTORE STACK
;CHECK FOR
JEST

INTERATIONS,

annnnnnnnnnnnennsvnsntnrnnnnnn

;*ENABLE'' SET AND "DONE'' SET AT PRIORITY 1,

012516

000020
012564

001226
001216

012560

174560

000100
000200

177776
174534
174526

174562

174556
000040

#INTENA ,aMC.CSR
#DONE ,aM(.CSR
4

012562

104400

AN A AN

#20,TSTNO
HTST21 NEXT
aM(C.CSR
#1%,aMC.VEC
aMC.LVL
#40,PS

1%:

’%:

POP2SP

SCOPE

LOOP.

THAT AN INTERRUPT OCCURS WITH ''INTERRUr¥

. IR AR N AR AR AR AN

012737
005077
012777
005077
012737
012777
052777

;CLEAR CONTROL REGISTER
;SET UP INTERRUPT SERVICE ADDRESS
;SET UP INTERRUPT SERVICE PRIORITY
;SET PROCESSOR PRIORITY TO LEVEL O.

A#INTENA ,aM(. C SR
#DONE ,aM(C.CSR

s*VERIFY

012737

2222

JRANRRARANKAARARRARRARNANt

012476
012504
012512

DIGITAL EQUIP. CORP.

AR RN

NN RN A NN RN NRN AR RRAR

RN ARARNTAS

;CLEAR CONTROL REGISTER
cSET UP INTERRUPT SERVICE ADDRESS
;SET UP INTERRUPT SERVICE PRIORITY
;SET PROCESSOR PRIORITY TO LEVEL 1.
;SET INTERRUPT ENABLE
;GENERATE INTERRUPT
JWAIT FOR

INTERRUPT

sNO INTERRUPT, ERROR.
s CONT INUE
s INTERRUPT OCCURED, RESTORE STA(K
JCHECK FOR INTERATIONS, LOOP.

MACY

SEQ 0059

I
CZDVEC.P11
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839

1840

1841
1842
1843
1844
1845
1846

1847

1848
1849
1850
1851
1852

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

1857

1858
1859
1860

1861
1862
1863
1864
1865
1866
1867
1868
1869

JNRkARnnnkanesnnnrannnnnn

JEST

DIGITAL EQUIP. CORP,
ansnnnnncsnnencnnsseenesasnnee

;*VERIFY THAT AN INTERRUPT OCCURS WITH ''INTERRUPY
;*ENABLE"" SET AND 'DONE’'’ SET AT PRIORITY 2.

. INRNRAANRRAARAANARR RN AARAAARRARARARAARAANRNANNANNAANRARANNN RN INANN RO R

;
012564
012572
012600
012604
012612
012616
012624
012632
012640
012642
012644
012646
012650

012737
012737
005077
012777
005077
012737
012777
052777
000240

000021
012652

001226
001216

012646

174472

174474

174470
000100
000100
000200

TEST 21

ISTZ21:

(LR

177776
174446
176440

MOV

MOV
8IS

NOP
HLT

104004

000401
022626

1%:

104400

MOV
MOV
CLR

MOV

2%:

POP2SP

#21,TSTNO
#TST22 NEXT
aM(C.CSR

sCLEAR CONTROL REGISTER
:SET UP INTERRUPT SERVICE ADDRESS

#18,aMC.VEC
aMC.LVvL

JSET UP INTERRUPT SERVICE PRIORITY

#100,PS

;SET PROCESSOR PRIORITY TO LEVEL 2.
sSET INTERRUPT ENABLE
sGENERATE INTERRUPT

#INTENA ,aM(C.CSR
#DONE ,aMC.CSR

;WAIT FOR INTERRUPT
;NO INTERRUPT, ERROR.

s CONT INUE

2 INTERRUPT OCCURED,

SCOPE

RESTORE

STACK

;CHECK FOR INTERATIONS, LOOP.

INARRRRRRNARRNRRNRAANRANRNE

JEST

220

A aaaaaaaan
e aaaaananntsassnnnnn

s*VERIFY THAT AN INTERRUPT OCCURS WITH "'INTERRUPT

;*ENABLE'" SET AND 'DONE'' SET AT PRIORITY 3.

1853
1854
1855

1856

. AR ESSs RSl

012652
012660
012666
012672
012700
012704
012712
012720
012726
012730
012732
012734
012736

012737
012737

005077
012777
005077
012737
012777
052777
000240

000022
012740

174406
012734
174402
000140
000100
000200

001226
001216

TST22:

174404

104400

#22,TSTNO
RTST23 NEXT
aM(C.CSR
#1%,aMC.VEC

MOV

#INTENA,aM(C.CSR

CLR
MoV

177776
174360
174352

BIS
NOP
HLT

104004

000401
022626

MOV
MoV
CLR
MOV

18:

2%:

BR
POP2SP
SCOPE

aMC.LVL
#140,PS

#DONE ,aM(C.CSR
4

22222

222

;CLEAR CONTROL REGISTER
;SET UP INTERRUPT SERVICE ADDRESS
sSET UP INTERRUPT SERVICE PRIORITY
;SET PROCESSOR PRIORITY TO LEVEL 3.
sSET INTERRUPT ENABLE
;GENERATE INTERRUPT
JWAIT FOR INTERRUPT
sNO INTERRUPT, ERROR.

s CONT INUE
s INTERRUPT OCCURED, RESTORE STACK
;CHECK FOR INTERATIONS, LOOP.

MA(CY

SEQ 0060

J
CZ0VEC.PIN

19-MAR-79 09:06

DV11

DEVICE DIAGNOSTICS.

5
COPYRIGHT

EQUIP.

JRannnrnnerannnnrrraanntnr

1871
1872

s*VERIFY THAT ALL LINE NUMBERS (AN BE WRITTEN
:«READ BACK FROM LINE COUNTER
IR

AN R

AN AN

DIGITAL

1870

1873

TEST

1975

CORP.

anveennnnnnrnnnnennnnnannnennn

INTO AND

A NN RN N AR AN NN RA N R RN RN N R AN R RN R R AN R R AN R RN

1874

13;2

;

1877
1878
1879
1880
1881
1882
1883
1884
1885

012740
012746
012754
012762
012766
012770
012774
012776
013002

012737
012737
012737
013703
005C13
005037
005005
012700
010513

1887

013006

020504

1886

013004

1888
1889
1890

013010
013012
013014

}ggg

013024

1891
1892
1893

013016
013020
013022

000023
013026
013002
007300

001226
001216
001220

TEST 23

T1ST123:

177776
000020

1%:

011304

001401
104002
104401

#23,TSTNO
HTST24 NEXT
#1%,L0CK
M(C.CSR,R3
(R3)
PS
RS
#16. RO
R5,(R3)

tmMP

RS .R4

MOV

BEQ
HLT
SCOP1

2%:

005205
005300
001367

MOV
MOV
MOV
MOV
(LR
CLR
(LR
MOV
MOV

INC
DEC
BNE

104400

SCOPE

;SET POINTER
JCLEAR CONTROL STATUS REGISTER
JENABLE INTERRUPTS
;CLEAR EXPECTED LINE NUMBER
JSET UP TO TEST 16 LINE NUMBERS
;SET LINE NUMBER

(R$) R4

;READ BACK LINE NUMBER

JARE EXPECTED AND RECEIVED

2%
2

;LINE NUBMERS THE SAME
sLINE NUMBERS DIFFERENT,

RS
RO
1%

JCHECK FOR DATA FREEZE
JUPDATE LINE COUNT
;UPDATE LINE NUMBER
s CONT INUE

JCHECK FOR ITERATION, LOOP

1896

JNNNERARANRARRARRRNRANANY

1897
1898

;*USING °''STEP'' MODE, VERIFY THAT THE
s*LINE COUNTER CAN BE STEPPED THRU ALL STATES.

1899

IR R AR

1900
188;

1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1916
1915
1916
1917
1918
1919
1920
1921
1922

;
013026
0130346
013042
013050
013054
013060
013062
013064
013970
013074
013100
013102
01310«
013106
013110
013112
013114
013116
013120
013122

012737
012737
012737
013703
005037
005013
005005
012700
012713
052713
104414
011304
020504
001401
104002
104401
905205
(15300
001365
104400

000024
013124
013054
007300
177776
000020
000017
000400

001226
001216
001220

2%:

3%:

JEST

e A AN A A AR AN R A

RN R RN RS *

A R AR AN R AN R A AN R AN RN N AN R RN N AR RN R R AR AR AN SRR R AR RA AN

TEST 24

TST24:

i%:

ERROR

MOV
MOV
MOV
MOV
CLR
CLR
CLR
MOV
MOV

BIS
DELAY
MOV
(MP
BEQ
HLT
SCOP1
INC

DEC
BNE
SCOPE

#24 ,TSTNO
HTST2S NEXT
#18,L0CK
M(C.CSR,R3
PS
(R3)
RS
#16. R0
#17,(R3)
#STEP, (R3)

;JSET POINTER
JENABLE INTERRUPTS
;CLEAR (ONTROL STATUS REGISTER
JCLEAR EXPECTED LINE COUNT
JSET UP TO TEST 16 VALUES
JFIRST VALUE =0
sSTEP LINE COUNTER

(R3) R4
RS.,R4
3%
2

JREAD LINE COUNTER
. COMPARE EXPECTED AND
JRECEIVED LINE NUMBERS
JLINE COUNTER ERROR

RS
RO
2%

JCHECK FOR DATA FREEZE
JUPDATE EXPECTED LINE NUMBER
JCHECK FOR

ITERATIONS,

LOOP

MACY
SEQ 0061

K
P11

19-MAR-79 09:06

DVv11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

JEnRRARRRRRAnnnrrntnannnenn

TEST

DIGITAL EQUIP.

CORP.

saswnnnnnnnonnsnnnantnannnrnnn

J*WRITE 1'S INTO ALL SCANNER MEMORY [OCATIONS.

;'¥SR{F;
I

THAT ALL LOCATIONS HAVE BEEN WRITTEN

:*VERIFY THAT ''CLEAR SCAN'' CLEARS ALL SCANNER
; *MEMORY LOCATIONS.

. AR AN R A AR AN RN R AR RN R AR N AR R AR AN AT AR RANN RN AA NN RANAN

013124
013132
013140
013146
013152
013156
013162
013166
013172
013176
013200
013202
013206
013212
013216
013222
013224
013226
013230

013232
013234

013236
013240
013242
013244
013252
013256
013262
013264
013270
013272
013276
013302
013304
013306
013310
013312
013314
013316
013320
013322
013324

012737
012737
012737
013703
012713
005037
012700
052713
052713
005300
001374
012700
012705
012713
052713
104414

011304
020504
001401
104002
104401
005205
005300
001365
012737
012713
032713
001375
012700
005005
012713
052713
104414

000025
013226
013152
007300
002000

001226
001216
001220

TST25:

1$:

177776
000020
001017
000400

2%:

000020
070000
000017
000400

MOV
MOV
MOV

013252

004000
000020

001220

5%:

000020
000017
000400

6%:

104400

#TST26 NEXT
#18,L0CK

;SET POINTER

BIS
BIS

#MAINT+17,(R3)
#STEP, (R3)

;SET MAINTEANCE MODE
sSET LINE COUNTER THRU ALL

DEC
BNE

MOV
MOV
géSA

LAY

HLT
SCOP1

INC

#CLRMUX, (R3)
PS
#16. RO

sCLEAR CONTROL STATUS REGISTER
JENABLE INTERRUPTS
¢SET UP TO TEST 16 LOCATIONS

RO
2%
#16. ,RO
#70000,R5
#17,(R3)

;STATES, WRITING 1°'S INTO
JALL MEMORY WORDS
sSET UP TO TEST 16 WORDS
sSET UP EXPECTED STATUS REGISTER
¢START WITH LINE O

(R3) R4
R5 R4
4%

;READ DATA
s COMPARE EXPECTED AND RECEIVED
;DATA

#STEP, (R3)

cACCESS SCANNER MEMORY

;CONTROL STATUS OR MEMORY ERROR
;CHECK FOR DATA FREEZE

DEC
BNE
MOV
MOV
g&g

RO
3%
#5%,L0CK
#CLRSCN, (R3)
#BESY.(RB)

;UPDATE EXPECTED STATUS

MOV
CLR
MOV
géEAY

#16. RO
RS
#17,(R3)
HSTEP, (R3)

;SET UP TO TEST 16 MEMORY
sLOCATIONS
;FIRST TO BE TESTED=0
sACCESS SEANNER MEMORY

MOV
(MP

(R3) ,R4
R5,R4

;READ DATA
s COMPARE EXPECTED AND RECEIVED

HLT
SCOP1
INC
DEC
BNE
SCOPE

sCONTROL
STATUS OF MEMORY ERROR
sCHECK FOR DATA FREEZE
;UPDATE EXPECTED DATA
JUPDATE LINE COUNT
s CONTTINUE
;CHECK FOR ITERATIONS, LOOP

BEQ

7%:

#25,TSTNO

MC.CSR,R3

MOV
CLR
MOV

MoV
CMP
BEQ
4%:

AANRANRAN S

MOV

3s:

’$

RS
RO
6%

JUPDATE LINE COUNT
- CONT INUE
;SET RETURN
JSET "'CLEAR SCAN''
JWAIT FOR '"'CLEAR CYCLES''

;DATA

MACY

SEQ 0062

L
CZDVEC.P11

1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

JERNANNRNARNNRANRNRRRANAR

JEST

DIGITAL EQUIP.

tatananaaaananaaatherannanrans

S*WRITE 1'S INTO SELECTED SCANNER MEMORY LOCATION.
J*VERIFY THAT ONLY SELECTED LOCATION WAS WRITTEN INTO.
" TN RN R AN

013326
013334
013342
013350
013354
013356

012737
012737
012737
013703
005013
005037
012700
012702
012713
032713
001375
012713

050213
052713
042713
012737
012713
005202
005001
052713
104414

000026
013510

013354
007300

001226
001216
001220

000020
000017
004000
000020

000400

013474
013500
013502
013504
013506

005337
001357
005300
001332
104400

#CLRSCN, (R3)
#BgSY.(RS)

;CLEAR ACANNER MEMORY
JWAIT FOR CLEAR CYCLE

3%:

BIS

5%:

sCLEAR CONTROL STATUS REGISTER

;FIRST ADDRESS TO BE

TESTED=0

sSET 'MAINTENANCE MODE'’

cSET LINE COUNTER TO TEST ADDRESS-1
SJWRITE 1°S INTO TEST ADDRESS

#16.,TEMP3

sSET UP TO TEST ALL

R1
#STEP, (R3)

JACCESS SCANNER MEMORY

(R3) ,R4

JREAD CONPENTS OF McMORY

sCLEAR 'MAINTENANCE MODE’’
16

s SCANNER MEMORY LOCATIONS

R1,R5
zé-R2

;SET UP EXPECTED CONTENTS
:OF SCANNER MEMORY

#70000,R5
R4 RS
5%

s COMPARE EXPECTED AND RECEIVED
s VALUES

;CHECK FOR DATA FREEZE

;EMP3

JTEST NEXT SCANNEB LOCATION

;UPDATE LINE COUNT

001252

R2, (R3)
#STEP, (R3)

z;?,(R3)

111304

070000

JENABLE INTERRUPTS
sSET UP TO TEST 16 ADDRESSES

W#MAINT, (R3)

001252

010105

120402
001002
052705
020405
001402
104002
104401
005201

PS
#16. RO

#MMAINT, (R3)

001000

;SET POINTER

#17,R2

2%:

A AR AN NR RN

MC.CSR,.R3
(R3)

177776

000400
001000
000020
000017

RN AT NN R RARNR NN AR AR AR N RRA AN AR AN AN AR

#26,TSTNO
#1ST27 NEXT
#18,L0CK

(ORP.

s SCANNER MEMORY ERROR

sCHECK FOR ITERATION, LOOP

MACY

SEQ 0063

m
P

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

S5
COPYRIGHT 1975

JARNRRARARNARNANERANRNNAR

TEST

DIGITAL EQUIP.

aanataaanaaaana
vt thennnarhnn

;*WITH ALL SCANNER MEMORY LOCATIONS SET TO 1°S,
J*WRITE 0'S INTO SELECTED LOCATION
s*VERIFY THAT ONLY SELECTED LOCATION WAS CLEARED.
. IRA A AN RN AN

013510
013516
013524
013532
013536
013540
013544
013550
013254

012737
012737
012737
013703
005013
005037
012700
012702
012737
012713
052713
005337
001373
010213

052713
012737
012713
005202
005001
052713
104414
111304
010105

000027
013674
013554
007300
177776
000020
000017
000020
001017
000400
001252

000400
000029
000017

000400

001226
001216
001220

1ST27:
1%:

001252

2%:
3%:

001252

#27,TSTNO

MOV
MOV

#2%,L0CK
MC.CSR,R3

MOV

#16.,TEMP3

MOV

CLR
CLR
MOV
MOV

MOV

BIS
DEC
BNE
MOV
BIS
INC

CLR
géSA
LAY

Mova
MoV

5%:

001252

6%:

(R3)
PS
#16..RO
”7.R2

#MAINT+17,(R3)

#STEP, (R3)
TEMP3
33
R2, (R3)
ASTEP, (R3)

;SET POINTER

;CLEAR CONTROL STATUS REGISTER
JENABLE INTERRUPTS
JSET UP TO TEST 16 ADDRESSES
;FIRST ADDRESS TO BE TESTED=0

JWRITE 1'S INTO ALL SCANNER

;MEMORY LOCATIONS

#16.,TEMP3
#17,(R3)
R1
#STEP, (R3)

JACESS SCANNER MEMORY

SCOP1
INC
ggg

R1
Z§MP3

DEC
BNE
SCOPE

AN R AN

JSET LINE COUNTER TQ TEST ADDRESS-1
JWRITE 0'S INTO TEST ADDRESS
JSET UP TO TEST ALL 16
cSCANNER MEMORY LOCATIGNS

BNE
BIS
CMP
BEQ
HLT

AN NN N AN A ANANANRAANNANARANRNRAAN AN RN

#TST30,NEXT

{R3) R4
R1.R5
R4 ,R2
5%
#70000,RS
R4 RS
6%

CMPB

070000

R AR RN AR RN

MOV

MOV
MOV
4%:

CORP.

RO
2%

JREAD CONTENTS OF MEMORY
JSET UP EXPECTED CONTENTS
.OF

SCANNER MEIORY

;COMPARE EXPECTED AND
JRECEIVED VALUES
. SCANNER MEMORY ERROR

JCHECK FOR DATA FREEZE
cTEST NEXT SCANNER LOCATION
JUPDATE ADDRESS COUNT
JCHECK FOR

ITERATION,

LOOP

MACY

SEQ 0064

a—

N
CZDVEC.P11

19-MAR-79 09:06

DVv11

DEVICE DIAGNOSTICS.

2062
2063

S
COPYRIGHT 1975

Jenkananannnnnnnrenrnnnsnnrnr

JEST

DIGITAL EQUIP. CORP.
nennananannssnoncecsesantsaeenns

;*VERIFY THAT ''CLEAR MULTIPLXER'' CLEARS ALL MULTIPLEXER

s*FUNCTION FLIP-FLOPS

s iRAARRRRARRARARAAAARANAARAAANNAANRAAAANRANANNAARNRINONNRANANRONARANCR

013674
013702
013710
013716
013722
013724
013730
013734
013742
013746
013750
013752
013756
013762
013766
013772
013776
014000
014002
014004
014006
014010
014012
014020
014024
014026
014030
014032
014034
014040
014044
014046
014050

012737
012737
012737
013703
005013
005037
012700
012777
052713

000030
014052
013762
007300
177776
000020
000017
000400

001226
001216
001220

1ST30:
1$:

173340

001252
000020
002000
001252
173304

2%:

3%:

4%:

Mov

MOV
MOV

MC.CSR,R3
(R3)
PS
#16. RO

DEC
BNE
CLR

RO
2%

MOV
BIS

104401

005237
005077
001347
104400

001252
173236

173262

6$%:

#CLRMUX, (R3)

;CLEAR MULTIPLEXER

JEXPECT OS

TEMP3, (R3)
aMC.LSR.R4

SCOP1
INC

JWRITE 1S INTO ALL MULTIPLEXER
JFUNCTION FLIPFLOPS
;JSET UP FOR 16 LINES

MOV
MOV

MOV

;SET POINTER
¢CLEAR CONTROL REGISTER
JENABLE INTERRUPTS
sSET UP TO TEST 16 LINES

TEMP3

#16. ,RO

HLT

173256

#17,aMC.LSR
#STEP, (R3)

MOV

;Eg

000001

#TST31 NEXT
#38,L0CK

MOV
CLR
CLR
MOV

CLR

5%:

#30,TSTNO

gg
2

sSELECT LINE
;JREAD LINE STATUS REGISTER

;WAS LINE STATUS REGISTER CLEARED
;LINE STATUS ERROR

;CHECK FOR LOOP ON SAME DATA
JEXPECT LINE ENABLE

BIS
MOV
ggg

WL INENA ,aMC.LSR
aMC.LSR,Ré
2;,R4

sSET LINE ENABLE ON SELECTED LINE
JREAD LINE STATUS REGISTER
:1S ANYTHING BUT LINE ENABLE SET

HLT
SCoP1

;sLINE STATUS ERROR
;CHECK FOR LOOP ON SAME DATA

CLR
DEC
BNE
SCOPE

aMC.LSR
RO
4%

INC

TEMP3

;UPDATE LINE NUMBER

;CLEAR CURRENT LINE
cCONTINUE IF ALL LINES NOT
sTESTED
sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0065

B
C20veC.PIN

19=-MAR=79 (09:06

Dv11 DEVICE DIAGNOSTICS.

2102

6
COPYRIGHT 1975

2103

Jrvnnnnansnnnnnnnaernnnnnr

2104

J*WRITE

2105
2106

2108

S}?g

;

2111
2112

014052
014060

012737
012737

000031
0143064

2116
2115
2116
2117
2118
2119
2120
2121
2122
2123
2126
2125
2126
2127
2128
2129
2130

014074
014100
014104
014106
014112
014116
014122
014126
014134
014136
014140
0146144
014152
014160
014164
014170
014176

013703
012713
005013
005037
012700
012713
052713
012777
(005300
001371
012705
012777
013777
012700
012713
012737
052713

007300
002000

2132
2133
213%
2135
2136
2137
2138
2139
2160
2141
2142
21643
21644
21465
2146
2147
2148
2149

014206
014212
0142146
014216
014220
014222
014224
014232
014234
014236
014244
014246
014250
014252
014254
014256
014260
014262

005037
105713
100410
104414
000240
000240
062737
001367
104006
012737
011304
104004
104401
000406
(022626
011304
020504
001402

2131

2150
2151
2152
2153
215
2155
2156

INTO ALL

EQUIP.

014066

014202

014264
014266
014270
014274
014276
014300
014302

012737

005037

104002
104401
042713
005205

005300
001333
104400

014100

001226
001216

000400
000001
070340
014254
177776
000020
000117
000340
000040

TST31:

001220

1%:

177776
000020
001017
173146

2%:

173132
173126
177776

3%:

177776

001270

000001

001270

000340

177776

4%:

000240

TEST

5%:

AR I

(ORP.

SCANNER MEMORY LOCAT]ONS

MOV
MOV
MOV
MOV
MOV
(LR
(LR

MOV
MoV

8IS
MOV
DEC
BNE
Mov
MOV
MOV
MOV
MOV
MOV
81S
(LR
(LR
1STB
BM]
DELAY
NOP
NOP
ADD
BNE
HLT
MOV
MOV
HLT
SCOP1
B8R
POP2SP
MOV
(MP
BEQ
HLT
SCOP1
BIC
INC

DEC
BNE
SCOPE

#31,7STNO
#TST32 NEXT

#s,L0CK

MC.CSR,R3
#CLRMUX, (R3)
(R3)
PS
”6. RO
MAINT+17,(R3)
#STEP, (R3)
#L INENA ,aM(C.LSR
RO
Pd]
#70340,RS
#eS ,aM(C . VEC
PS,aM(C.LVL
#16. ,RO
RINTENA+17,(R3)
#340,PS
#SCNENA, (R3)

SAVR4
(R3)
422

#1,SAVRS
=20
6
#340,PS
(R3) R4
4
5%
(R3) ,R4
RS ,R4
5%
2

#SCNENA+DONE , (R3)
RS
RO
33

;SET POINTER
JCLEAR ALL MULTIPLEXER FL IPFLOPS
;CLEAR CONTROL REGISTER
JENABLE INTERRUPTS
JSET UP TO WRITE 1°S INTO
cALL SCANNER MEMORY LOCATION
JWRITE A LOCATION
JLET "LINE ENABLE''
JEXPECT "DONE'*+''SCNENA'
'+ 'COF ' '¢' 'CSF''+' SECRXF*"*
JSET UP LOCAL INTERRUPT SERVICE
JSERVICE AT LEVEL 7

JSET INTERRUPT ENABLE
;LOCK OUT INTERRUPTS
:START SCANNER

JENABLE

INTERRUPTS

JWAIT FOR DONE

JINTERRUPT DID NOT OCCUR
. ERKOR
;CONTROL STATUS ERROR
;CHECK FOR LOOP ON SAME DATA
JINTERRUPT OCCURED, REPOSITION STACK
JREAD CONTROL STATUS
JARE EXPECTED AND RECEIVED
JREGISTERS THE SAME

JNO, LINE STATUS ERROR
JCHE(K FOR LOOP WITH CURRENT DATA
;CLEAR SCAN ENABLE AND DONt
JUPDATE EXPECTED RESULT

JCONTINUE IF NOT DONE

;CHECK FOR ITERATIONS, LOOP

Y
MA(

SEQ 0066

neanannanennennnnnccostencnnne

;*SET "LINE ENABLE FOR ALL LINES
J*VERIFY THAT AN INTERRUPT OCCURS FOR EACH L INE

2107

2113

1°'S

TEST

DIGITAL

c
CZDVEC.P1N

19-MAR-79 09:06

Dv11 DEVICE DIAGNOSTICS.

Jrannnnnnnnnnnnnrwennwnne

;*WRITE

1'S

JEST

DIGITAL EQUIP.

(CRP.

awsnonnnnenennnncentnanennnenns

INTO ALL MULTIPLEXER FUNCTION FLIP-FLOPS

;*(LEAR SCANNER MEMORY

;*VERIFY THAT AN INTERRUPT OCCURS FOR EACH LINE
;*THIS TEST IS DONE IF THE HB61 TURN AROUND IS USED.

JNNIBLRRSR
=000 NN
W
W

)
d
D
d
d
d
D
d
)
—ed

[aASIANIANT,
N1 N1, V1,801,851,V ],§}

":i!.*tt'fitttfi*t"Q'Qtfitt'.tt!tttfi'ttttttttttitit.t'tt’fittttt.tt"

2174

TEST

0146304

014312
014320
014326
014330
014334

014336

014342
014346
014350
014354
014360
014362
014366
014372
014374
014400

014402
014404
014406

014412

014416
014420
014426

014432
014436
014442

014446

014450
014454
014462
014466
014470
014472
014476
014502
014504
014510
014514
014522
014530
014534
014542
014546
014552
014556
014560

012737
012737

00C032
014650
014436

001226
001216
001220

?5735:

001422
062700
005737
100402
062700

005737
100402

062700
005737
100402
062700
005700
001001
000000
010037

005737

001405

013737
000177
013703

012700
012713
005013
005037
012777
052713
005300
001371
012713
032713
001375
013700
012705
012777
013777
012713

012737
052713
005037
005037
105713
100410

32
MOV
MOV
MOV

CLR
TST
BM]
ADD
TST
8M]

000004
001424

68%:

000004
001426

69%:

000004
001430

70%:

ADD
TST
B8MI
ADD
TST

71%:

ADD
TST

000004

BNE
HALT

007276
007260
001216
164562
007300
000020
002000
177776

000017
000400

BM]

MOV

TST
BEQ

001214

MOV

658

172620

2%:

JMP

MOV
MOV
MOV
CLR

CLR

MOV

H
DEC
BNE

004000
000020

MOV

007276

MOV
MOV
MoV

170340

014620
177776
000117
000340
000040
177776
001270

BIT
BNE

172562
172556

177776

3%:

MOV
MOV
MOV

#32,TSTNO
#TST33 NEXT

#1%,L0CK
RO

L00.03
68%

#4 RO

L04.07
69%

#4 ,RO

L08.11

70%
#4 RO

L12.15

71%
#4 RO

RO, TOTAL

CAN NOT RUN WITH NO LINE

CARDS.!

TURFLG

65%

NEXT ,RETURN
aRETURN

MC.CSR,R3

#CLRMUX, (R3)
(R3)

#17 ,aMC.LSR
ASTEP, (R3)
RO

;SET POINTER

JWRITE 1S

INTO ALL

;CLEAR MULTIPLEXER
JMULTIPLEXER FUNCTION
JENABLE TELETYPE INTERRUPTS
;FLIPFLOPS

2%
#CLRSCN, (R3)
lBgSY.(RB)

;WAIT

TOTAL ,RO
#170340,R5
#4$,aMC.
VEC

sFIRST EXPECTED RESULT
;SET UP LOCAL INTERRUPT RETURN

PS,aMC.LVL

#INTENA+17,
(R3)
#340,PS
#SCNENA, (R3)

BIS
CLR
CLR

BM]

.+22

TSTR

sTEST

SAVR4
(R3)

;CLEAR SCANNER MEMORY
FOR CLEAR CYCLE

;SET INTERRUPT ENABLE
sLOCK OUT INTERRUPTS
:START SCANNER
JENABLE INTERRUFTS
;WAIT FOR DONE

TO COMPLETE

MACY

SEQ 0067

D
CZDVEC.P11

2213
2214
2215
2216
2217
2218
2219
2220

014562
014564
014566
014570
014576
014600
014602
014610
014612
014614
014616
014620
014622
014624
014626
014630
014632
014634
014640
014642
014644
014646

19-MAR-79 09:06

DV11

104414

000240
000240
062737
001367
104006
012737

011304

000001

001270

000340

177776

DELAY
NOP
NOP
ADD

BNE
HLT

MOV
Mov

104004
104401

000406
022626
011304
020504
001402
104002
104401
042713

005205
005300
001333
104400

DEVICE DIAGNOSTICS.

4%:

HLT
SCOP1
BR
POP2SP

MOV

(MP
BEQ

HLT

000240

5%:

SCOP1

8IC
INC
DEC
BNE
SCOPE

6
COPYRIGHT

1975

DIGITAL

EQUIP.

(ORP.

#1,SAVR4

.=20
6
#340,PS
£R3).R4

5%
(R3) R4
R5,R4

5%
2

ggCNENA*DONE.(R3)
RO

JLOCK OUT INTERRUPTS
;sREAD CONTROL STATUS
;INTERRUPT DID NOT OCCUR
sCHECK FOR LOOP ON CURRENT DATA
; CONT INUE
;INTERRUPT OCCURED, RESTORE STACK
JREAD CONTROL STATUS REGISTER
;COMPARE TO EXPECTED RESULT
;CONTROL STATUS ERROR
;sCHECK FOR LOOP ON CURRENT DATA
;CLEAR SCAN ENABLE AND DONE
JUPDATE EXPECTED RESULT
;CONTINUE IF ALL
JLINES NOT TESTED
;CHECK FOR

ITERATIONS,

LOOP

MA(CY

SEQ 0068

E
CZDVEC.P1Y

19-MAR-7S 09:06

DV11 DEVICE DIAGNOSTICS.

2235
2236
2237
2238
2239
2240
2241
2242

2243
2244
2245
2246
2247
2248
2249

6
COPYRIGHT 1975

Jenrnannnnnnnnnnnrennnens

TEST

DIGITAL EQUIP.

(ORP.

annannevnnnnnenenseventnnnsony

J*VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN
;*BE SET AND CLFARED FOR SELECTED LINE

;*THIS TEST IS DONE IF THE H325
; MODEM CONTROL LINES +MUST=+ BE

TURN AROUND |S USED
CONTIGUOUS FROM LINE

00.

::‘Qtfi'lt'ttit*tt""ti'.'tttitfi!ttttt.tttQttttfii'ttttfi't'...tt"t

;

014650
014656
014664

014670
014672

012737
012737
005737
001205
013737

014700
014704
0147170
014714
014720
014726
014732
014736
014744
014750
014752
014756
014762
014766
014770
014772

000177
005077
005037
013701
012777
012702
010177

014776

020504
001401
104001
052777
005302
001355
005005
010177
010103
005077

012777
005077
005005
017704
117703
042703
020103
001002
012705

104414

017704
005704
001401

104001
104400

000033
015050
007260

001226
001216

001216
164310
172370

001214

007262
002000
000020

172342
000001
172330

TST33:

172352

2%:

172336

38:

172324
172316
177760

MOV
MoV

#33,TSTNO
HTST34 NEXT

BNE

TST

1%:

177776

TEST 33

MoV
JMP
CLR
CLR
MoV

MOV

MoV
MOV
MoV
CLR

CLR

172254

172266

5%:

6%:

172250
172242

7$:

;CLEAR CONTROL STATUS REGISTER
;ZERO PSW.
JSET LINE IMAGE

#16. ,R2
R1,aMC.CSR
#LINENA ,aMC.LSR
aMC.CSR

JSET FOR 16 LINES
sSELECT LINE TO BE TESTED
sSET LINE ENABLE FUNCTION FLIP-FLOP
;ZERO CSR

#CLRMUX ,aMC. (SR

BIC

#*(<17>,R3

;BR IF

H325

OR H325?

s CLEAR MUX

;SET EXPECTED
JREAD LINE

STATUS REGISTER

aMC.CSR,R3

JREAD CONTROL

MOV

R1.R3
4%

#LINENA,RS

;IF LINE NUMBER=SELECTED LINE NUMBER,
JEXCEPT LINE ENABLE FUNCTION FLIP FLOP

(MP

R5,R4

;COMPARE

JRS=EXPECTED R&4=FOUND

BEQ

000400

NEXT ,RETURN
aRETURN
aMC.CSR
PS
LINE R

aMC.LSR,R4

CMP
BNE
4%:

;TURN AROQUND H861

MOV

MOVB

000001

TURFLG

HLT

BIS
DEC
BNE
CLR

H#STEP,aMC. (SR
R2
3s
RS

MOV
TST
BEQ
HLT
SCOPE

aMC.LSR,R4
R4
.t
1

MoV
MOV
CLR
DELAY

R1,aMC.CSR
R1,R3
aMC.LSR

STATUS REGISTER

s CLEAR UNWANTED BITS

;SET ''GOOD"’

.TO BE SET

JRESULTS

EXPECTED AND RECEIVED

JEXAMINE NEXT LINE
sALL LINES DONE?
;BR_IF NO
;CLEAR ''GOOD"’
;LOAD LINE
JSET LINE COUNTER TO SELECTED LINE
;CLEAR LINE ENABLE FLIP FLOP
;DELAY FOR CABLE

JREAD LINE STATUS REGISTER
;WAS LINE ENABLE FUNCTION FLIP FLOP

s CLEARED

JRS5-EXPECTED R&4=FOUND
;CHECK FOR ITERATIONS,

LOOP

MACY

SEQ 0069

19-MAR-79 09:06

CZDVEC.PI

SRRk wnnwhnrnrnwrrennrnnar

J*VERIFY THAT

[EST

DIGITAL EQUIP.

MACY

(ORP.

SEQ 0070

anananannannnonntnnescnannesane

TERMINAL READY FUNCTION FLIP-FLOP CAN

;*BE SET AND CLEARED FOR SELECTED LINE

;*THIS TEST IS DONE IF THE H325
; MODEM CONTROL LINES =«MUST= BE
M TN

FRRXSRSR

2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297

DV11 DEVICE DIAGNOSTICS.

012737
012737
005737
001005
013737
000177
005077
005037
013701
012777
012702
010177
012777
005077
005005
017704
117703

015170
015172

015176
015200
015202
015204
015212
015214
015216
015220
015224
015226
015232
015234
015240
015242
075244
015246

042703
020103
001092
012705

000034
015250
007260

001216
164110
172170
177776

00726¢
002000
000020
172142
000002
172130

#34 ,TSTNO
ATST35,NEXT

001214

1%
NEXT ,RETURN
aRETURN

172152

017704
005704
001401

172342

104414

104001
104400

2%:

MOV

3%:

CLR

#CLRMUX ,@MC.CSR
#16. ,R2
R1,aMC.CSR
#TRMRDY ,aMC.LSR
aM(C.CSR

172054

LINE R

RS
aMC.LSR,RS
aMC.CSR,R3
#°C<17> ,R3

R1,R3

A ¥

000400

;CLEAR CONTROL STATUS REGISTER
;ZERO PSW.
sSET LINE IMAGE
;CLEAR MuUX
;SET FOR 16 LINES
JSELECT LINE TO BE TESTED
JSET TERMINAL READY FUNCTION FLIP~FLOP
;ZERO CSR
JSET EXPECTED
JREAD LINE STATUS REGISTER
JREAD CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
;IF LINE NUMBER=SELECTED LINE NUMBER,
JEXCEPT TERMINAL READY FUNCTION FLIP FLOP
;SET "'GOOD’*

aM(C.CSR
PS

000002

172066

5%:

6%:

172050

#TRMRDY ,RS

CMP

R5,R4

BIS

DEC
BNE
CLR

MOV
MOV
CLR

DELAY

MOV
TST

7%:

MoV

BEQ
HLT

SCOPE

;TURN AROQUND H861

CLR

MOVB

00.

A AN AR RN AN RAARRN SN AANNRARAARNANNAN AR

TURFLG

1%:

172136

020504
001401
104001

AR AN AR NN AR AR AR

001226
001216

172124
172116
177760

052777
005302
001355
005005
010177
010103
005077

AR AR

TURN AROUND [S USED
CONTIGUOUS FROM LINE

5%
]

H#STEP ,aM(C. (SR

R5
R1,aMC.CSR
R1,R3
aMC.LSR
aMC.LSR,R4
R4
44
;

:BR IF H325

;TO BE

OR H3257?

SET

;COMPARE EXPECTED AND RECEIVED
JRESULTS

JRS=EXPECTED R4-FOUND

JEXAMINE NEXT LINE
JALL LINES DONE?
;BR_IF

;CLEAR ''GOOD"’
;LOAD LINE
JSET LINE COUNTER TO SELECTED LINE
;CLEAR TERMINAL READY FLIP FLOP
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER

;WAS

TERMINAL

s CLEARED

READY

FUNCTION FLIP FLOP

JRS=EXPECTFD R4 FOQUND

JCHECK FOR ITERATIONS, LOOP

G
CZOVEC.P1

19-MAR=-7G 09:06

DV11

2329
2330

DEVICE DIAGNOSTICS.

Jexcanannanknnnnannwnnnnensr

[EST

DIGITAL EQUIP.

CORP.

annannnnnnnnnnnenenennrnnnnnnane

;*VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP (AN
;=BE SET AND CLEARED FOR SELECTED LINE

s*THIS TEST IS DONE IF THE H325 TURN AROUND IS USED
s MODEM CONTROL LINES *MUST+ BE CONTIGUOUS FROM LINE 00.
M TR

015250
015256
015264
015270
015272
015300
015304
015310
015314
015320
015326
015332
015336
015344
015350
015352
015356
015362
015366
015370
015372

012737
012737
005737
001005
013737
000177
005077
005037
013701
012777
012702
010177
012777
005077
005005
017704

015376
015400
015402
015404
015412
015414
015416
015420
015424
015426
015432
015434
015440
015442
015444
015446

020504
001401

117703

042703
020103
001002
012705

104001

000035
015450
007260

001226
001216

001216
163710
171770
177776

001214

002000
000020
171742
000004

171752

007262

171730

171642

104001

171654

NEXT ,RETURN
aRETURN
aM(C.CSR
PS

LINE.R1

2%:

#CLRMUX,aM(.CSR

R1,aMC.CSR

171736

#RS,aM(C.LSR

aM(C.CSR

3%:

RS
MOVB

MoV

017704
005704
001401
104400

000004

000400

104414

TURFLG

177760

052777
005302
001355
005005
010177
010103
005077

RA R AN R RRN RN AN RN AN

#35,TSTNO
#TST36,NEXT

1%:

171724
171716

AR AT A RA AR AR R

171666

6%:

171650

BEQ
HLT
BIS
DEC

CLR

aMC.CSR,R3

#4C<17>,R3

#RS RS

R5,R4
5%
]

HSTEP,aMC.CSR

3%
RS

MoV
MOV

R1,aMC.CSR
R1,R3
aMC.LSR

MOV

aMC.LSR,Ré
R4

CLR
DELAY

7%:

aMC.LSR,
R4

TST
BEQ
HLT
SCOPE

.t
1

A AN AR AANANAIANRTAANNNAAIANCRAANRN

;TURN AROUND H861

JBR IF H325

OR H325?

.CLEAR CONTROL STATUS REGISTER
s ZERO PSW.
;SET LINE IMAGE
;CLEAR MUX

;SET FOR 16 LINES
JSELECT LINE TO BE TESTED
;SET REQUEST TO SEND FUNCTION FLIP-FLOP
;ZERO CSR
;SET EXPECTED
;JREAD LINE STATUS REGISTER
JREAD CONTROL STATUS REGISTER

;CLEAR UNWANTED BITS

;IF LINE NUMBER=SELECTED LINE NUMBER,
.EXCEPT REQUEST TO SEND FUNCTION FLIP FLOP

;SET "'GooD*’
;70 BE SET

; COMPARE EXPECTED AND RECEIVED
SRESULTS

JRS=EXPECTED R&=FOUND
JEXAMINE NEXT LINE
JALL LINES DONE?

;BR_IF

s CLEAR ‘'GOOD"*

;LOAD LINE
sSET LINE COUNTER TO SELECTED L INE
;CLEAR REQUEST TO SEND FLIP fLOP
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
;WAS REQUEST

; CLEARED

TO SEND FUNCTION FLIP FLOP

JRS5=EXPECTED R4 FOUND
;CHECK FOR

ITERATIONS,

LOOP

MACY

SEQ G071

H
CZDVEC.P1

19-MAR-79 09:06

DVv11 DEVICE DIAGNOSTICS.

2376
2377
2378

Jrnennnnnannndnnnnnnnnnnnn

1975

TEST

J*VERIFY THAT NEW SYNC

(SECTX

;*THIS

THE

DIGITAL EQUIP.

ASYNC LC)

IS DONE

H325

TURN AROUND

FUNCTION FLIP-FLOP (AN
IS USED

. MODEM CONTROL LINES «MUST+ BE CONTIGUOUS FROM LINE 00.

":t.tfit'tt...tt"."fit.'tfi..tttfi*itttt.fi.tfitt'.ttttttttt.".t'tt"

015450
015456
015464

015470

015472
015500
015504
015510
015514
015520
015526
015532
015536
015544
015550
015552
015556
015562
015566
015570
015572

2410
2411

2415
24616
2617
2418

2622

015576
015600
015602
015604
015612
015614
015616
015620
015624
015626
015632
015634
015640
015642
015644
015646

012737
012737
005737

001005
013737
000177
005077
005037
013701
012777
012702
010177
012777
005077
005005
017704
117703
042703
020103
001092
012705

000036
015650
007260

001226
001216

001216
163510

001214

171570
177776

007262
002000
000020
171542
000010
171530

052777
005302
001355
005005
010177
010103
005077
104414

017704
005704
001401

104001
106400

TURFLG

1%
NEXT ,RETURN
oRETURN
M(C.CSR

1%:

171552

LINE ,R1

2S:

#CLRMUX ,aM(. (SR
#16. ,R?2

R1,aMC.CSR

171536

ANS ,aM(C.LSR
aM(C.(CSR

3%:

171524

RS
AM(.LSR.R4

171516
177760

aM(C.CSR,R3

000010

MOV

020504
001401
104001

#36,TSTNO
#TST37 NEXT

000400

171454

171466

5%:

6$%:

171450
171442

BEQ
HLT
BIS
DEC
BNE
CLR
MOV
MOV
CLR
DELAY
MOV
TST

BEQ

7%:

HLT
SCOPE

#*(<17>,R3
R1,R3
49
#NS RS
R5,R4

5%
]

#STEP,aMC.
(SR

R
38
RS

R1,aMC.CSR
R1,R3
aM(C.LSR

aMC.LSR,R4
R4
44
i

;TURN AROUND HB61

;BR IF H32S

OR H325?

;CLEAR CONTROL STATUS REGISTER
;ZERO PSW,
sSET LINE IMAGE
:CLEAR MuUX
JSET FOR 16 LINES
sSELECT LINE TO BE TESTED
sSET NEW SYNC (SECTX IF ASYNC LC) FUNCTION FLIP;ZERO (SR
;SET EXPECTED
JREAD LINE STATUS REGISTER

JREAD CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
;IF LINE NUMBER-SELECTED L INE NUMBER,

SEXCEPT NEW SYNC

(SECTX [F

ASYNC LC) FUNCTION F!

;SET ''GOOD"’
;70 BE SET
;COMPARE EXPECTED AND RECEIVED

JRESULTS

JRS=EXPECTED R4-FOUND

JEXAMINE NEXT LINE
JALL LINES DONE?
;BR_IF NO
;CLEAR *'GOOD*’
;LOAD LINE
JSET LINE COUNTER TO SELEFTED L INE
;CLEAR NEW SYNC

(SECTX

;DELAY FOR CABLE
;READ LINE STATUS REGISTER

JWAS NEW SYNC

s CLEARED

(SECTX

JRS=EXPECTED R&=FOUND

ASYNC LC)

ASYNC

sCHECK FOR [TERATIONS, LOOP

MACY

SEQ 0072

nennnnnenennanennnnannnesnsane

;*BE SET AND CLEARED FOR SELECTED LINE
TEST

(ORP.

FLIP FLOP

FUNCTION FLIP

I
CZDVEC.P11

2423
24624
2425
2426
2427
24628
2429
2430
2431
2432
2433
24634
2435
2436
24637
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

19=-MAR=-79 09:06

Dv11

DEVICE DIAGNOSTICS.

6
COPYRIGHT

1975

Jrnnnannnannnansennnnnann

TEST

;*VERIFY THAT RING IS SET

DIGITAL

EQUIP.

(ORP.

envenentnnannnenenncnncnnnnnen

"LINE ENABLE"'

s*AND TERMINAL ARE SET FOR SELECTED LINE.
s*THIS TEST IS DONE IF THE H325 TURN AROUND

|S USED

: MODEM CONTROL LINES *MUST+ BE (ONTIGUOUS FROM L INE 00.

“:"Q'l"fi'.ttt..""t'ttt.Qtt't't.'fittt.!.ttt.i.'titfitt'tttttt't.t

015650
015656
015664
015670
015672
015700
015704
015710
015714
015720
015724
015730
015736
015742
015744
015750
015754
015760
015762
015764

012737
012737
005737
001005
013737
000177
005077
005037
013701
012702
010177
012777
005077
005005
017704

015770
015772
015774
015776
016004
016006
016010
016014
016016
016022
016030
016032
016036
016040
016042
016044

020405
001401
104001
052777
005302

117703

042703
020103
001092
012705

001355

012705
010103
010177
042777
104414

017704
020504
001401
104001

104400

000037
016046
007260

001226
001216

001216

001214

163310
171270
177776
007262
000020
171350

000003
171336

MOV

2%:
171344

3%:

171332
171324
177760

000203

171274

000001
171256
000002

BNE

TURFLG

s TURN ARQUND HB61

MOV
JMP
CLR
CLR
MOV
MOV

NEXT ,RETURN
aRE TURN
aMC.CSR
PS
LINE.RY
#16. R

;CLEAR CONTRGL REGISTER
;ZERO PSW

;LINE NUMBER
;16 LINES

MOV

#LINENA+TRMRDY ,aMC.LSR

SET LINE

MOV

CLR

5%:

6%:
171252

JSELECT A LINE

ENABLE

OR H325?

+TRMRDY

;CLEAR CONTROL REGISTER

BIC
cMP
BNE

#4C<17>,R3
R1,R3
4%

;CLEAR UNWANTED BITS
;IF RECEIVED LINE=SELECTED LINE
JEXPECT LINE ENASBLE AND

(MP
BEQ

R4 RS
5%

BIS

H#STEP,aMC.CSR

HLT

DEC
BNE
MOV
MOV
MOV

DELAY
MOV

(Mp
8EQ
7%
:

aMC.CSR

IF H325

;CLEAR EXPECTED RESULT

B8IC

171244

R1,aM(C. (SR

;BR

MOV
MOVB

MoV

000400

NTST4O NEXT

TST

1%:

#37 ,TSTNO

MOV

HLT
SCOPE

aMC.LSR R4
aMC.CSR,R3

#LINENA+TRMRDY +RING,RS

JREAD LINE STATUS
JREAD L INE NUMBER

JRING

SET

. COMPARE EXPECTED AND
JRECEIVED RESULTS

JR5=EXPECTED R&=FOQUND

R2
3%
#L INENA RS
R1,R3
R1,aMC.CSR

JCONTINUE IF ALL CHECKS
ARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
JON SELECTED LINE
sSELECT LINE

aMC.LSR.R4

;DELAY FOR CABLE
JREAD LINE STATUS REGISTER

#TRMRDY ,aM(.LSR

R5,R4
. +6
1

;UPDATE LINE COUNTER

;CLEAR TERMINAL

JONLY LINE ENABLE
JSET ON THIS LINE

SHOULD BF

sRS=EXPECTED R4 FOUND
JCHECK FOR ITERATIONS,

LOOP

MACY

SEG 0073

J
CZDVEC.P11

2470
2471
24672
2473
24674
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484

2485

2486
2487
2488

2489

2490
2491
2492

2493
24694
2495

2696

2497
2498

2499
2500
2501
2502
2503
2504
2505
2506

2507

2508
2509
2510
2511
2512

2513
2514
2515
2516

19-MAR-79 09:06

DV11

DEVICE DIAGNOSTICS.

6
(OPYRIGHT 1975

JRwkknnnnkannnrnwtnnrnrnnan

TEST

DIGITAL EQUIP.

(ORP.

nwanneneenannnsonnanntannrannnn

;*VERIFY THAT CLEAR TO SEND AND CARRIER ARE SET [F "LINE ENABLE''

s*AND REQUEST TO SEND ARE SET FOR SELECTED LINE.
s*THIS TEST IS DONE IF THE H325 TURN AROUND [S USED
; MODEM CONTROL LINES *MUST+* BE CONT]GUOUS FROM LINE
. IRRAAAR AN A AN

016046
016054
016062
016066
016070
016076
016102
016106
016112
016116
016122
016126
016134
016140
016142
016146
016152
016156
016160
016162

012737
012737
005737
001005
013737
000177
005077
005037
013701
012702
010177
012777
005077
005005
017704

016166
016170
016172
016174
016202
016204
016206
016212
016214
016220
016226
016230
016234
016236
016240
016242

020405
001401
104001
052777
005302
001355
012705
010103
010177
042777
104414
017704
020504
001401

117703

042703
020103
001092
012705

104001
104400

A AR NN RN RN RN AN AN RN

000040
016244
007260

001226
001216

#60,TSTNO
#TST4LT NEXT

001216
163112

001214

1%
NEXT ,RETURN
aRE TURN

171172
177776
007262

1¢:

171152
000005
171140

3%:

171134
171126
177760

;CLEAR CONTROL REGISTER
;ZERO PSW
sLINE NUMBER

'A ¥

R4 ,RS
?$

;CLEAR TO SEND AND CARRIER ARE SET
; COMPARE EXPECTED AND
JRECEIVED RESULTS

5%:

#STEP,aM(C.CSR

#L INENA+RS+CO+CS,RS

171076

;16 LINES
JSELECT A LINE
JSET LINE ENABLE +RS
;CLEAR CONTROL REGISTER

#*C<17>,R3
R1,R3
49

aM(C.CSR.R3

000001
171060
000004

aM(.CSR
PS

:BR IF H32S

;CLEAR EXPECTED RESULT
JREAD LINE STATUS
JREAD LINE NUMBER
JCLEAR UNWANTED BITS
;IF RECEIVED LINE=SELECTED LINE
JEXPECT LINE ENABLE AND

000145

000400

;TURN AROUND HB61 OR H325?

R1,aMC.CSR
AL INENA+RS ,aM(C.LSR
oMC.CSR
RS
aMC.LSR,R4

171146

AR NANRTARAN

TURFLG

LINE ,R1

2%:

000020

00.

N RN ANRANNANNNNNANN

R2
3%
#L INENA,RS
R1,R3
R1,aMC.CSR

6%:
171054
DELAY

171046

MOV

7%:

BEQ
HLT
SCOPE

#RS,aM(C.LSR

aMC.LSR,Ré
R5,R4

.+4

]

JRS=EXPECTED R4=FOUND
JUPDATE LINE COUNTER
;sCONTINUE IF ALL CHECKS

cARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
JON SELECTED LINE
JSELECT LINE
;CLEAR REQUEST TO SEND
;DELAY FOR CABLE
JREAD LINE

STATUS REGISTER

JONLY LINE ENABLE SHOULD BE
;SET ON THIS LINE

JRS5=EXPECTED R4 FOUND

;CHECK FOR ITERATIONS, LOOP

MACY

SEQ G074

K
CZDVEC.P11

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

2517

6
COPYRIGHT 1975

JRNRNARARNRXRRANRRNERANRRN

[EST

DIGITAL EQUIP.

CORP.

antnnnnnnnnnsnnnnnnenennsntannn

:*VERIFY THAT DATA SET READY(SECRX IF ASYNC LC) IS SET IF ‘LINE ENABLE'
:~AND NEW SYNC (SECTX IF ASYNC LC) ARE SET FOR SELECTED LINE.
:wTHIS TEST IS DONE IF THE H325 TURN AROUND IS USED
; MODEM CONTROL LINES *MUST+ BE CONTIGUOUS FROM LINE 00.
. RN AR AN AR RANN A AR AN N ARRAAANRARAARNR AN N ARARAAANAR AN AN ARAANNRANR

]

016244
016252
016260
016264
016266
016274
016300
016304
016310
016314
016320
016324
016332
016336
016340
016344
016350
016354

016356
016360

016364
016366
016370
016372

012737
012737
005737
001005
013737
000177
005077
005037
013701
012702
010177
012777
005077
005005
017704
117703

042703
020103
001002
012705

000041
016442
007260

001226
001216

00117/

001214

1’:.’! ¢
120774

wu/262
000020

052777
005302
001355
012705
010103
010177
042777
104414

017704
020504
001401
104001

104400

1%
NEXT ,RETURN
aRETURN
aM(C.CSR

LINE R

2%:

#16. ,R2
R1,aMC.CSR
#LINENA+NS ,aM(C.LSR
aMC.CSR

170750

3s:

170736
170730
177760

000031

Mov

020405
001401
104001

TURFLG

1%:

?7 /6

170754
000011
170742

#41,TSTNO
#TSTL2 NEXT

A
¥

000400

170700

000001
170662

000010
170650

BEQ
HLT
BIS
DEC

6%:
170656

MOV
MOV
MOV

RS
aMC.LSR
R4
aMC.CSR.R3
#*C<17>,R3
R1,R3
43
#L INENA+NS+DSR
RS
R4 RS
?$

ASTEP ,aMC. (SR

#L INENA
RS

R1,aMC.CSR

8IC
DELAY

#NS,aMC.LSR

BEQ
HLT
SCOPE

.+
1

MoV
CMP

aMC.LSR,R4
R5,R4

;TURN AROUND H861

:BR IF H32S

OR H325?

;CLEAR CONTROL REGISTER
;ZERO PSW
JLINE NUMBER
;16 LINES
JSELECT A LINE
JSET LINE ENARLE +NS
;CLEAR CONTROL RFGISTER
JCLEAR EXPECTED RESULT
JREAD LINE STATUS
JREAD LINE NUMBER

. CLEAR UNWANTED BITS
JIF RECEIVED LINE=SELECTED LINE

JEXPECT LINE ENABLE AND

;DATA SET READY(SECRX IF ASYNC LC)
; COMPARE EXPECTED AND
JRECEIVED RESULTS

JR5=EXPECTED R4=FOUND
JUPDATE LINE COUNTER

;CONTINUE IF ALL CHECKS
JARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
;ON SELECTED LINE
JSELECT LINE
.CLEAR NEW SYNC (SECTX IF ASYNC LC)
:DELAY FOR CABLE
JREAD LINE STATUS REGISTER
JONLY LINE ENABLE SHOULD BE
;SET ON THIS LINE

JRS5=EXPECTED R4=FOUND
;CHECK FOR ITERATIONS, LOOP

IS SET

MACY

SEQ 0075

L
CZDVEC.P11

19~-MAR-79 09:06

Dv11

DEVICE DIAGNLSTICS.

6
COPYRIGHT

1975

(ORP.

AN aana et ana e n e e AN

2564

JNRRRNRRRANRRARARRNAANNRN

2565
2566
2567

J*VERIFY THAT LINE ENABLE FUNCTION FLIP~FLOP CAN
;*BE SET AND CLEARED FOR SELECTED LINE
sJ*THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.

2569

2568

gg;;

2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592

016442
016450
016456
016462
016464
016472
016476
016502
016506
016512
016514
016522
016530
016534
016540
016544
016552
016556
016560
016564

012737
012737
005737
001405
013737
000177
005077
005037
013700
005001
012737
012777
012702
010177
010137
012777
005077
005005
017704
117703

2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617

016574
016576
016600

020103
001002
012705

016604
016606
016610
016612
016620
016622
016624
016626
016632
016634
016640

020504
001401
104001
052777
005302
001355
005005
010177
010103
005077
104414

016570

016642
016646
016650
016652
016654
016656
016660
016662
016564

042703

017704
005704
001401
104001
104401
005201
005300
001317
104400

000042
016666
007260

001226
001216

001216
162516
170576
177776
007276

001214

016522
002000
000020
170540
007262
000001
170522

001220
170550

2%:

170530
3%:

170516
170510

177760

4%:
000400

170446

MOV
MOV
TST
BEQ
MOV
JMP
CLR
(LR
MOV
CLR
MOV
MOV
MOV
MOV
MOV
MOV
(LR
CLR
MOV
MOVB

.
170460

5%:

6%:

170442

170434

7$:

#42 ,TSTNO
HTSTL3 NEXT
TURFLG
1%
NEXT,RETURN
QRETURN
aM(C. (SR
PS
TOTAL ,RO
R1
#2%,L0CK
A#CLRMUX ,aMC.CSR
#16. ,R2
R1.,aMC.CSR
R1,LINE
#LINENA ,aMC.LSR
aM(C.CSR
RS
aM(C.LSR.R4
aM(C.CSR,R3

BIC
mMP

#C<17>,R3
R1,R3

CMP
BEQ
HLT
BIS
DEC
BNE
CLR
MoV
MOV
(LR
DELAY
MOV
TST
BEQ
HLT
SCOP1
INC
DEC
BNE
SCOPE

RS5,R4
5%
1
#STEP,aMC.CSR
R2
3%
RS
R1,aMC.CSR
R1,R3
aM(C.LSR

BNE
MOV

000001

AR AN NN

AR NN N NR

TEST &2

TST42:

1%:

A AN AN N R AN R R A RN A AR A AR R AN R AN RN AR A AN R AN AR AN AR

MACY
SEQ 0076

RN RN N RS

. MODEM CONTROL LINES «MUST= BE CONTIGUOUS FROM LINE 00.

2570

2593

TEST 420

DIGITAL EQUIP.

4%
#L INENA RS

aMC.LSR,RS
R4
.t
1
R1
RO
2%

;TURN AROUND H861 OR H325?
;JBR IF H861
JCLEAR (ONTROL STATUS REGISTER
;ZERO PSW.
JSET THE TOTAL NUMBER OF LINES TO BE

TESTED IN R

;CLEAR MUX
JSET FOR 16 LINES
JSELECT LINE TO BE TESTED
;SET IMAGE
JSET LINE ENABLE FUNCTION FLIP-FLOP
JZERO (SR
JSET EXPECTED
JREAD LINE STATUS REGISTER
JREAD CONTROL STATUS REGISTER

;CLEAR UNWANTED BITS
;IF LINE NUMBER=SELECTED LINE NUMBER,

JEXCEPT LINE ENABLE FUNCTION FLIP FLOP
;SET *'GOOD*’
;TO BE SET
s COMPARE EXPECTED AND RECEIVED
JRESULTS
JRS=EXPECTED R&=FOUND
JEXAMINE NEXT LINE
JALL LINES DONE?
;BR IF NO
;CLEAR *''GOOD’’
;LOAD LINE
JSET LINE COUNTER TO SELECTED LINE
sCLEAR LINE ENABLE FLIP FLOP
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
sWAS LINE ENABLE FUNCTION FLIP FLOP
. CLEARED
JRS=EXPECTED R&4&=FOUND

;CHECK FOR [TERATIONS, LOOP

mé

19-MAR-79 09:06

DV11

DEVICE DIAGNOSTICS.

JERRRRARNRRNRRANRRrnnawnn

;*VERIFY THAT

TEST

DIGITAL EQUIP.

TEST

TERMINAL READY FUNCTION FLIP-FLOP (AN

IS DONE

THE H861

TURN AROUND

IS USED.

; MODEM CONTROL LINES *~MUST* BE CONTIGUOUS FROM LINE 00.

; THRARRNA

016666
016674
016702
016706
016710
016716
016722
016726
016732
016736
016740
016746
016754
016760
016764
016770
016776
017002
017004
017010
017014
017020
017022
017024

012737
012737
005737

017030
017032
017034

020504
001401
104001
052777

000043
017112
007260

001226
001216

001216

001214

162272
170352
177776

1%:

001220
170324

2%:

170314

007262
000002
170276

170304

012705

RN A RA N RN AR AN RN RN RN N RN ARRNRNA AN NN

ATSTLG NEXT
TURFLG
1%
NEXT ,RETURN
SRETURN
M(C.CSR

TOTAL.RO
R1
#2%,L0CK

#CLRMUX ,aMC.CSR

#16..R2
R1,aMC.CSR
R1,LINE

#TRMRDY ,aM(C.LSR

3%:

170272
170264
177760

AR AN NN

000002

aMC.CSR
RS
aMC.LSR,R4
aMC.CSR,R3
#*C<17>,R3
R1,R3
4%

#TRMRDY
RS

4%:

R5.R4

5%
1

000400

170222

170234

ANRNN AR RN

5%:

6%:

H#STEP,aM(C.CSR

R2
3%
RS
R1,aMC.CSR

170216

aM(C.LSR

170210

aMC.LSR
R4
Ré
o*‘
1

;TURN AROUND HB861 OR H325?
JBR IF H861
;CLEAR CONTROL STATUS REGISTER
;ZERO PSW.
JSET

THE

TOTAL NUMBER Of

LINES

7%:

TO BE

TESTED

. CLEAR MUX

;SET FOR 16 LINES

JSELECT LINE TO BE TESTED

;SET IMAGE
;SET TERMINAL READY FUNCTION FLIP-FLOP
;ZERO CSR
JSET EXPECTED
JREAD (INE STATUS REGISTER
JREAD CONTROL

STATUS REGISTER

s CLEAR UNWANTED BITS
cIF LINE NUMBER=SELECTED LINE NUMBER,
JEXCEPT TERMINAL READY FUNCTION FLIP FLOP
;SET *‘GoCD’’
;7O BE SET
;COMPARE EXPECTED AND RECEIVED
JRESULTS

;RS=EXPECTED R4=FQUND
JEXAMINE NEXT LINE
JALL LINES DONE?

;BR IF NO
;CLEAR ''GOOD'’
;LOAD LINE
cSET LINE COUNTER TO SELECTED LINE
;CLEAR TERMINAL READY FLIP FLOP
.DELAY FOR CABLE
JREAD LINE STATUS REGISTER

;WAS

TERMINAL READY FUNCTION FLIP FLOP

cCLEARED

JRS=EXPECTED R4=FOUND

R1
RO

104400

#63,TSTNO

007276
016746
002000
000020

MACY

SEQ 0077

nnnennnnnnnnnanennannnnananrnnn

s*BE SET AND CLEARED FOR SELECTED LINE
s*THIS

CORP.

sCHECK FOR ITERAT]IONS, LOOP

IN R

N
CZDVEC.P1N

19-MAR-79 09:06

DV11

DEVICE DIAGNOSTICS.

2672
2673
2674
2675
2676

6
COPYRIGHT 1975

JRNNNANRARKNRRANRNRRRANNY

JEST

DICITAL EQUIP.

CORP.

MACY
SEQ 00738

nnnnnnnnantnannansnntnnannsann

J*VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN

s*BE SET AND CLEARED FOR SELECTED LINE
s*THIS TEST IS DONE IF THE HB61 TURN AROUND IS USED.
;

MODEM CONTROL

LINES

=MUST+ BE

CONTIGUOUS

FROM LINE 00.

. TARAN RN AN AANAN RN R R RN AR AARRN AN NN R AARARARAANANRAANANRAARAAARA AR

017112
017120
017126
017132
017134
017142
017146
017152
017156
017162
017164
017172
017200
017204
017210
017214
017222
017226
017230
017234
017240
017244
017246
017250

012737
012737
005737
001405
013737
000177
005077
005037
013700
005001
012737
012777
012702
010177
010137
012777
005077
005005
017704
117793
042703
020103
001002
012705

017254
017256
017260
017262
017270
017272
017274
017276
017302
017304
017310
017312
017316
017320
017322
017324
017326
017330
017332
017334

020504
001401
104001
052777

000044

017336
007260
001216
162046
170126
177776

001226
001216

000020
170070
007262
000004
170052

1%:

#464,TSTNO
HTST45 NEXT

MOV
JMP

NEXT _RETURN
aRETURN
aMC.CSR
PS
TOTAL RO
R1
#28,L0CK
#CLRMUX ,aMC.CSR
”6. R
R1,aMC.CSR
R1,LINE

CLR
CLR

MoV

001220

170100

CLR

2%:

MOV
MOV

MOV

MoV
MoV
MoV

170060

3%:

170046
170040
177760

CLR
CLR

{gRFLG

#RS ,aMC.LSR

aM(C.CSR

aMC.LSR,.R4

aMC.CSR,R3
#4C<17>,R3
R1,R3

43
#RS RS

000004
4%:

000400

MOV
MoV
TST

8EQ

007276
017172
002000

TEST 44

TST44:

001214

170010

5%:

R5,R4
5%
1

#STEP,aMC.CSR

167772

RS
R1,aMC.CSR
R1,R3
aMC.LSR

167764

aMC.LSR,R4

167776

6%:

104001
104401
005201

005300
001317
104400

’$:

A N

;TURN AROUND HB861
JBR IF H861

OR H325?

sCLEAR CONTROL STATUS REGISTER
;ZERO PSW.
;SET THE TOTAL NUMBER OF LINES TO BE TESTED INR

;s CLEAR MUX
JSET FOR 16 LINES
sSELECT LINE TO BE TESTED
s SET IMAGE
cSET REQUEST TO SEND FUNCTION FLIP-FLOP
;ZERO CSR
;SET EXPECTED
sREAD LINE

STATUS REGISTER

JREAD CONTROL STATUS REGISTER
s CLEAR UNWANTED BITS
;IF LINE NUMBER=SELECTED LINE NUMBER,
;EXCEPT REQUEST TO SEND FUNCTION FLIP FLOP

;SET '‘GooD*’

;TO BE SET
;COMPARE EXPECTED AND RECEIVED
JRESULTS

;RS=EXPECTED R4=FOUND

JEXAMINE NEXT LINE
JALL LINES DONE?
JBR _iF NO
. CLEAR ''GoOD*’
;LOAD LINE
sSET LINE COUNTER TO SELECTED LINE
;CLEAR REQUEST 10 SEND FLIP FLOP
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
;WAS REQUEST TO SEND FUNCTION FLIP FLOP
s CLEARED
JRS=EXPECTED R4=FOUND

csCHECK FOR ITERATIONS, LOOP

8
ZoveEC.PIN

19-MAR-~79 05:06

Dv11 DEVICE DIAGNOSTICS.

2726
2727
2728
2729
2730
2731
2732
2733

273

2735
2736
2737

2738
2739
2740
2741
2762
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752

2753

2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768

Jrnvnannenananneenenennnn

TEST

DIGITAL EQUIP.

rORP.

MACY
SEQ 0079

snavanannenncannennnansantsnen

:*VERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP (AN
;*BE SET AND CLEARED FOR SELECTED LINE

;+THIS

TEST

1S DONE

THE

HB61

TURN AROUND

IS USED.

. MODEM CONTROL LINES *MUST~ BE CONTIGUOUS FROM L INF 00.

::.Q...'l..tfi...."t...'..Q.Qtfl.tt.'.'...t.ti..tt'!.t.t.t'..t'fl.'.

017336
017344
017352
017356
017360
017366
017372
017376
017402
017406
017410

017416
017¢24

017430
017434
017440
017446
017452
077454
017460
017464

017470

012737
012737
005737
001405
013737
000177

005077
005037
013700
005001
012737
012777
012702
010177
010137
012777
005077
005005

0174616
002000
000020
167644
007262
000010
167626

177760

017500
017502
017504
017506
017514
017516
017520
017522
017526
017530
017534
017536
017542
0175644
017546
017550

020504
001401
104001
052777
005302
001355
005005

001220
167654

’%:

PS
TOTAL ,RO

sCLEAR CONTROL STATUS REGISTER
s ZERO PSW.
sSET THE TOTAL NUMBER OF LINES TO BE

#2%,1L0CK
#CLRMUX ,aM(C.CSR
6. ,R2

167634

#SECTX,aMC.LSR

1%:

(LR

aM(C.CSR

aM(.LSR,R4

aM(C.CSR,.R3
#*(<17>_,R3
R1,R3
42

#SECTX,RS
CMP

167564

RS .R4
?S
#STEP,aMC.CSR

017704
005704
001401

167540

6%:

167546

MoV

MOV

DELAY
MOV
TST

BEQ
HLT
SCOP1
INC
DEC

104001
104401

104400

; TURN AROUND H861

1%
NEXT ,RETURN
IRE TURN
aMC.CSR

R1,aMC.CSR
R1,LINE

4%:

167552

005201
005300
001317

MOV

000010

000400

NTSTLO NEXT
TURFLG

167614

010177
010103
005077
104414

(LR

007276

042703
020103

001002
012705

18:

177776

167622

117703

#45,TSTNO

001216
161622
167702

017704

017472
017474

017552
017554
017556
017560

000045
017562
007260

’$:

BNE

SCOPE

RS
R1,aMC.CSR
R1,R3
aM(.LSR
R4
aMC.L5R,
R4
.o
1

K861

OR H325?

;CLEAR MUX
JSET FOR

16 LINES

JSELECT LINE TO BE TESTED
JSET IMAGE
JSET SECONDARY TRANSMIT FINCTION FLIP-FLOP
J2ERO CSR
JSET EXPECTED
JREAD LINE STATUS REGISTER
JREAD

CONTROL

STATUS REGISTER

JCLEAR UNWANTED BITS

cIF LINE NUMBER=SELECTED LINE NUMBER,
JEXCEPT SECONDARY TRANSMIT FUNCTION FLIP FLOP
;SET ''GOOD'’

.TO BE

SET

;COMPARE EXPECTED AND RECEIVED

cRESULTS

JRS=EXPECTED R4=FOUND
JEXAMINE NEXT L INE
JALL LINES DONE?
:BR

;CLEAR ''GOOD'’
;LOAD LINE

JSET LINE COUNTER TO SELECTED LINE
;CLEAR SECONDARY TRANSMIT FLIP FLOP
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
;JWAS

SECONDARY

;CLEARED

TRANSMIT

FUNCTION FLIP FLOP

JRS-EXPECTED R&4=FOUND

R1
RO

TESTED IN R

JCHECK FOR ITERATIONS, LOOP

c
P11

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JNARRRANARARRARNNRANRANtt

TEST

DIGITAL EQUIP.

(ORP.

tvasnnnnnannnanntnnnrnndesnnnn

;*VERIFY THAT (LEAR TO SEND AND CARRIER ARE SET IF 'LINE ENARLE''
;*AND TERMINAL ARE SET FOR SELECTED LINE.
s*THIS TEST IS DONE IF THE H861
; MODEM CONTROL LINES *MUST+ BE
: RN AN

AR AN AN AR AR AN A RN

TURN AROUND S USED.
CONTIGUOUS FROM LINE 00.

R AR AN RN RANR AN AAARANNRNRAAANRNRRN AR AN RGN

TEST 46

017562
017570
017576
017602
017604
017612
017616
017622
017626
017632
017634
017642
017646
U17652
017660
017664
017666
017672
017676
017702
017704
017706
017712
017714
017716
017720
017726
017730
017732
017736

017740
017744
017752
017754
017760
017762
017764
017766
017770
017772
017776
020000
020202

012737
012737

005737
001405
013737
000177
005077
005037
013700
005001
012737
012702
010177
012777
005077
005005
017704
117703
042793
020103
001002
012705
020405
001401
104001
052777
005302
001355
012705
010103
010177
042777
104414

017704
020504

001401
104001
104401
005201

005077
005300
001320
104400

000046
020004
007260

001226
001216

001216

001214

161376
167456
177776

TST46:

1%:

001220

2%:

38:

167352

000001

5%:

6%:

167330

167322

;BR IF H861

;CLEAR CONTROL
s JERO PSW

;SET

THE

OR H325?

TOTAL NUMBER OF LINES TO BE

;16 LINES

CLR

aMC.CSR

;CLEAR CONTROL REGISTER

CLR

HLINENA+TRMRDY ,@MC.LSR

JSELECT A LINE
;SET

LINE

ENABLE

+TRMRDY

;CLEAR EXPECTED RESULT

MOVB

aM(C.CSR,R3

;READ LINE NUMBER

MOV

HLINENA+TRMRDY+(C0+(CS,RS

MCV

CMP

BEQ

aMC.LSR R4

#~C<17>,R3
R1,R3
4%
R4 RS

;JREAD LINE STATUS

s CLEAR UNWANTED BITS
;IF RECEIVED LINE=SELECTED LINE
JEXPECT LINE ENABLE AND

;CLEAR TO SEND AND CARRIER ARE SET
s COMPARE EXPECTED AND

JRECEIVED RESULTS

BIS

#STEP,aMC.CSR

;UPDATE LINE COUNTER

BNE

;JARE NOT DONE FOR THIS LINE

R1.R3
R1,aMC.CSR

JON SELECTED LINE
sSELECT LINE

HLT

DEC

JR5=EXPECTED R4=FOUND

sCONTINUE

IF ALL CHECKS

MoV

#L INENA RS

B1C
DELAY
MOV

#TRMRDY ,aMC.LSR
AMC.LSR,RS

;CLEAR TERMINAL
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER

BEQ
HLT

.+
1

JSET ON THIS LINE
;RS=EXPECTED R4=FOUND

MOV
MOV

SCOP1
INC

CLR
DEC

r$:

aRE TURN
aMC.CSR
PS
;?TAL.RO

;TURN AROUND HB61

#2%,L0CK
#16. ,R2
R1,aMC.CSR

CMP

167304

MOV
MoV
MOV

BIC
CMP
BNE
4%:

167334
000002

NEXT ,RETURN

JMP
CLR
CLR
?Og

MoV

000143

000400

MOV

167422

167410
167402
177760

#46,TSTNO
HTST47 NEXT
TURFLG

BEQ

007276
017642
000020
167426
000003
167414

MOV
MoV
TST

BNE
SCOPE

R5,R4

R1
aMC.LSR
RO
2%

SEXPECT LINE ENABLE

;JONLY LINE ENABLE SHOULD BE

sCHECK FOR

ITERATIONS, LOOP

MACY

SEQ 0080

TESTED IN R

D
PN

19-MAR-79 09:06

DV11

DEVICE DIAGNOSTICS.

JRRNRNRRNRRANRRNRRAARANNY

1975

TEST

DIGITAL EQUIP.

CORP.

MACY

SEQ 0081

Aananananennenansnaatnstanenne

J*VERIFY THAT RING IS SET [F "LINE ENABLE''
;*AND REQUEST TO SEND ARE SET FOR SELECTED LINE.

;*THIS

TEST

IS DONE

THE H861

TURN AROUND

IS USED.

; MODEM CONTROL LINES =MUST+ BE CONTIGUOUS FROM LINE 00.
M 2RSSR

RRRSARRs

2222222222222 XY

TEST 47

012737
012737
005737
001405
013737
000177
005077
005037
013700

020130

020134
020136
020140
020142
020150
020152
020154
020160
020162
020166
020174
020176

005001
012737
012702
010177
012777
005077
005005
017704
117703
042703
020103
001002
012705

000047
020226
007260

001226
001216

001216

001214

161154
167234
177776

052777

TST

MOV

007276

020064
000020

167204
000005
167172

001220

2$:

167200
3%:

167166
167160

177760

4%:

167130

000001
167112

000004

JMP
CLR
CLR
MOV
CLR
MOV

5%:

6%:
167106

#LINENA+RS ,aM(C.LSR

CLR
CLR
MOV
MOVB

104400

MC.CSR
RS
aMC.LSR,R4
aM(C.CSR,R3

#°(C<17>,R3

BNE
MOov

A 3
#LINENA+RS+RING,RS

cMP

R4 RS

BEQ
HLT

R1,R3

5%
1

8IS
DEC
BNE
MoV
[0}

#L INENA
RS
R1,R3

BIC

#RS,aMC.LSR

L [01Y)

SCOP1
INC

(LR
DEC

7%:

R1,aMC.CSR

BIC

HLT

020224

3RE TURN
aM(C.CSR
PS
TOTAL .RO

MOV

CMP
BEQ

167062

NEXT
,RE TURN

MOV

DELAY
MOV

167100

#47,TSTNO
ATSTSO,NEXT
TURFLG
1%

R1
#2%,L0CK
#16. .R2

CMP

000205

000400

MOV
MOV

BEQ
1%:

020405
001401
104001

TST47

BNE

SCOPE

ASTEP,aM(C.CSR
R?

R1,aM(C.CSR
aMC.LSR,R4

RS,R4
.+
1

s TURN AROUND HB861

;BR IF H861

DR H325?

sCLEAR (CONTROL REGISTER
. JERO PSW

;SET

THE

TOTAL NUMBER OF

LINES

;16 LINES

JSELECT A LINE
;SET LINE ENABLE +RS

;CLEAR CONTROL REGISTER
cCLEAR EXPECTED RESULT
JREAD LINE

STATUS

JREAD LINE NUMBER
;CLEAR UNWANTED BITS
JIF RECEIVED LINE=SELECTED LINE
JEXPECT LINE ENABLE AND
JRING

SET

. COMPARE EXPECTED AND
SRECEIVED RESULTS

JRS=EXPECTED R4=FOUND

;JUPDATE LINE COUNTER
sCONTINUE IF ALL CHECKS
JARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
JON SELECTED LINE
JSELECT LINE
;CLEAR REQUEST TO SEND
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
JONLY LINE ENABLE SHOULD BE
JSET ON THIS LINE

JR5=EXPECTED R4=FOUND

R1
SR
aM(.|
RO

JCHECK FOR

[TERATIONS,

LOOP

TO BE

TESTED

IN R

19-MAR-79 09:06

Dv11 DEVICE DIAGNOSTICS.

2888

2889
2890
2891
2892

cxennnnnnnnnsnnnntrnrrnwnt

TEST

DIGITAL EQUIP.

(ORP.

MACY

SEQ 0082

nannnnnnnnnnnennneansnennrnnnen

;*VERIFY THAT SECONDARY RECEIVE

IS SET

'LINE ENABLE''

s*THIS TEST IS DONE IF THE H861
; MODEM CONTROL LINES =MUST+ BE

TURN AROUND IS USED.
CONTIGUOUS FROM LINE 00.

UB
U

RN AN

AN RANR AN RAANANAANNR RN RS AN

104001

052777
005302
001355
012705
010103

166706

6%:
166664

I
I
I

R1,R3
4%

;IF RECEIVED LINE-SELECTED LINE
JEXPECT LINE ENABLE AND

H#LINENA+SECTX+SECRX,RS

cMp
BEQ

R4 RS
o

BIS
DEC

#STEP,aMC.CSR
R2

MOV
MOV
MOV
8IC
DELAY
MOV
cMP
8EQ
HLT

#L INENA RS
R1,R3
R1,aMC.CSR
#SECTX,aMC.LSR

;CLEAR UNWANTED BITS

;SECONDARY RECEIVE IS SET
; COMPARE EXPECTED AND
JR5=EXPECTED R4=FOUND

JARE NOT DONE FOR THIS LINE

R5,R4
.t
1

R1
aMC.LSR
RO
2%

JRECEIVED RESULTS

aMC.LSR,R4

.VR

JREAD LINE NUMBER

MOV

STATUS

JREAD LINE

;CLEAR EXPECTED RESULT

+SECTX

ENABLE

IN R

LINE

;CLEAR CONTROL REGISTER

aMC.CSR,R3

#°C<17>,R3

CLR
DEC
BNE
SCOPE

JSELECT A LINE

TESTED

aMC.LSR R4

8I1C

SCOP1
INC

’$:

aMC. (SR

CLR

MOV

R1,aM(C.CSR

;SET

CLR

BNE

166640
104400

HLINENA+SECTX,aMC.LSR

HLT

166656

020442
020444
020446

MOV

CMP
BNE

000001
166670

;16 LINES

MOV

mMovs

4%:

000010

#2%,L0CK
#16. ,R2

TO BE

——

3%:

000031

000400

MOV
MOV

LINES

020405
001401

;CLEAR CONTROL REGISTER
;JERO PSW
;SET THE TOTAL NUMBER OF

;UPDATE LINE COUNTER
sCONTINUE IF ALL CHECKS

JEXPECT LINE ENABLE
;JON SELECTED LINE
sSELECT LINE
;CLEAR SECONDARY TRANSMIT
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
JONLY LINE ENABLE SHOULD Bt
;SET ON THIS LINE
JR5=EXPECTED R4=FOUND

020356
020360

2%:

OR H325?

001002
012705

NEXT ,RETURN
3RETURN
aMC.CSR
PS
;?TAL.RO

;BR [F H861

020346
020350
020352

MOV
JMP
CLR
CLR
?Oz
L

166756

166744
166736
177760

s TURN AROQUND HB61

cwm

166762
000011
166750

TURFLG

1%:

001220

TST

007276

020306
000020

BEQ

001214

160732
167012
177776

#50,TSTNO
H#TSTST NEXT

001216

MOV
MoV

001226
001216

000050
020450
007260

012737
012737

;CHECK FOR

ITERATIONS,

LOOP

020226
020234
020242

: IRN AR AN AR AR A AN RN RNARRNARAA

;*AND SECONDARY TRANSMIT ARE SET FOR SELECTED LINE.

2893
2894

2895
2896
2897

CZOVEC.P1N

-w

;*LINE PROGRESS SEND B(CC
s*NOTE: FOR TEST OF ASYNC LINE CARD;

WY
PV
o

;*DV11 SINGLE LINE CABLE TEST,
;*TEST TO RUN A 5 BIT BLOCK (000-037)
;*OF DATA FROM THE DV11 TRANSMITTER INTO THE
2*DV11 RECEIVER THROUGH THE CABLE.
J*SETUP:
EXTERNAL LOOP BACK
. *MODE
J*TXBA:
SYNC
J*TXWC:
=42(8)-BIT15
; *RXBA
RXBA
=40(8)-BIT15
J*RXWC:
;*LINE PROTOCOL TXDD CMP ,RXDDCMP,LRC8,STRIP SYNC,IDLE MARK
EXPE (T BCC,TX GO
;*LINE STATE

sannnnnrvnanenccnnnnannnnnnsnne

MACY

SEQ 0083

TEST

(ORP.

Junnanannannnnnvntnrwnnannt

DIGITAL EQUIP.

NPIPN

2942

DV11 DEVICE DIAGNOSTICS.

19-MAR-79 09:06

s "SYNC 'A"'* MUST BE SET TO ALL ZEROS
;* IN SOFTWARE STATUS MAP,
.

; CARARN R R A RN AR

113737

000430
013737

113737
000421
032737

001412
013737
113737

000406
013737

113737
113737
012705
005004
112725
105204
001374
012705
005004
113704
001405

#51,7STNO

001216

001214

NEXT ,RETURN
aRETURN

160510

HTESTER NEXT
TURFLG

88%

88%:

JMP

RAMCLR
BIT #BIT3,LINE

000010

007262

000004

007262

001414
001430

001244
023204

001412
001426

001244
023204

89%:

000004

007262

91%:

001410
001424

001244
023204

MOV
MOVB

001406
001422
023204
023606

001244
023204
023205

MOV
MOvB
MOvVB
MOV

MASK.A,MASKX

MOVB

gBIT3.(RS)0

000010

BEQ
BIT
BEQ
MOV

MOvB

B8R
MOV

MOVB

BR
BIT
BEQ

90%:

100%:

101%:

CLR

INCB
BNE

023606

MOV

023204

MOVB

CLR

BEQ

91%
#BIT2,LINE
89%

MASK.D ,MASKX

L12.15,SYNC
100%

MASK.
C ,MASKX

L08.11,SYNC
100%

JCLEAR DV
;DETERMINE LINE NO.

‘MASK PRRITY BI T IF SET

Joe+(

*MASK PARITY BT 1F SET

soeeC

*MASK PARITY BIT [F SET

IMASK PARITY BIT IF SET

csae(

*SET SYNC FOR 12-15

JSET SYNC FOR O

#BIT2,LINE

90%
MASK .B,MASKX

L04.07,SYNC
100%

L00.03, SYNC
SYNC,SYNC+1

#TXTAB,RS
R4
4

101$
#TXTAB,RS
R4
SYNC R4
102%

:SET SYNC FOR 04-07
sSET SYNC FOR 00-03
JMAKE SECOND SYNC
;GET TABLE POINTER

;"'INC/BCC'' AND 'MODE 0'*

JALL DONE?
;BR _IF NO
;SET POINTER

“SET SYNC CNTRL BYTE

‘BR IF ASYNC LINE CARD.

AIATAITAIAIAIALAIALALA

032737
001412
013737

001226
001216

(AL

104413
032737
001422

000051
010064
007260

AR AN RN ARAANRANPAAARAN NI A AN AN NN

012737
012737
005737
001005
013737
000177

RN TR AR RSP AR AN RN RN

CZDVEC.P1

100404

BNE

65%

.BYTE

000,001

B8R

66%

TSTB

023100
001
023100
005

PERFORM

,SETREG

TXBAP
<=40>-B]JT15

65%:

*TXBAP, BYTE (NT

<=42>-BIT15

*MARKED BYTE COUNT

PERFORM ,SETREG
.BYTE
004,005

BYTE

JSYNC

*RX BA,BC

012,013

BITO6+BITS+BIT1+BITO
BIT10+BIT2

023100

PERFORM

014

023204

016,014

BNE

. +6

TSTR

160346

,SETREG

BYTE
8IT10
001

SYNC

CLR
aDVSRA
PERFORM ,SETREG

023100
010

.BYTE

010,010

BNE

67%

TXTAB=400
TxTAB=400
TSTR
SYNC

023204
023144

PERFORM ,LOAD.MODE
<BIT12+BIT11>+RIT9
PERFORM ,LOAD.MODE

023144

BIT13

023144

PERFQORM

L OAD.MODE

sJF SYNC LINE CARD; START IN MODE
sIF ASYNC LINE CARD;
JSET TX TO MODE 0O
sWHICH

TRUE

DDCMP MODE
.

*ASYNC LINE CARD?
:BR IF NOT ASYNC

'8 BITS/PER/CHAR.
*RX ENABLE

<BIT14+BIT13+BIT12>+BIT10 :9600 BAJD.

023144

67%:

160254

68%:

160246

2%:

BR
68%
PERFORM ,[OAD.MODE
BIT13+81T12
INC
aDVSCR
CLR
RS
TSTR
aDVSCR
BM]
3%

—

;BR IF NO

STX BA, TX BC

RXBA
<~40>-BIT15
PERFORM ,SETREG

023100
013

*LOAD LINE NO

*IS THIS AN ASYNC CARD?

PERFORM ,SETREG
.BYTE
000,001
SYNC

66%:

*ALL DONE?

A ININININ

023100
001

SYNC

AN INININNDN cAINDININ(NINAININININI(NINININININININNIND

#40,R4
1%
L INE ,@DVSRS

*LOAD DATA

CMP
BNE
(01"

R4
R4, (RS)+

CLR
MOvVB

**MODE 1'

002000
000001
105737
001002
005077
004537
010
023206
023206
105737
001012
004537
015000
004537
020000
004537

1%:

160446

R4 RS
#3175, (RS)
#TXBAP RS

MA(Y

SEQ 0084

*MODE FOR CABLE TESTING
'SET GC
‘RX BIT7-1?

JYES

NN AN

016

102%:

000040

007262
023204

#~(<377>
,R4

ADD
MOVB
MOV

INCR

(ORP.

002004
004537

000040
023206

DIGITAL EQUIP.

d =k =l —d

000143

BIC

el ek

005004
110425
105204
022704
001373
013777
105737
001006
004537
000
023206
077740
000405
004537
000
023204
977736
004537
004
024206
077740
004537
012

177400

DEVICE DIAGNOSTICS.

ek od ok

020702
020704
020706
020710
020714
020716
020724
020730
020732
020736
020740
020742
020744
020746
020752
020754
020756
020760
020764
020766
020770
020772
020776
021000
021002
021004
021010
021012
21014
021016
021022
021024
021030
021034
021036
021040
021042

042704

060405
112715
012705

DVv11

020664
020670
020672
020676

19-MAR-79 09:06

CZDVEC.P1T

021116
021120
21122
021124
021126
021132
021134
027140

Dv11

104414

DELAY

005205
001372

104000

013705
000305
052705
017704

DEVICE DIAGNOSTICS.

007262

3%:

050000
160222

INC
BNE

R5
P 3

MOV
SWAB

L INE RS
RS

MOV

aDVRIC,R4

HLT

BIS

1975

JWASTE

;DELAY
N

DIGITAL EQUIP.

(ORP.

TIME

MACY

SEQ 0085

JNO SCR BIT7=1

JGET LINE NUMBER
JPUT IN HIGH BYTE
#BIT14+B]T12,RS ;
;READ RIC

;TO HIGH BIT OF (HARACTER
JWHEN PARITY ENABLED.
."'it.ttfitt!'tttt'ittQtf*tttt'kittfit*'ttt**tt'ttfiittttttfilt*.fiitttt

R2
5%

;DONE?
:

MSTCLR
SCOPE

DEC
BNE

HLT

e B R

;0K?
M

.RX DATA BAD.!

JINIT DV
;SCOPE TEST.

RS .R4
6%

e R R

TX DATA

CMP
BEQ

e B

;GET

104412
104400

#*(C<37> R4

104000

005302
001367

(R1)+ RS

BIC

020504
001401

MOVB

K
;CHECK DATA!,
:
N
JGET RX DATA

112105

5¢:

R4
#TXBAP,R1
#RXBA RC
#60,R2
(RO) +,R4

e R R

177740

112004

CLR
MOV
MOV
MOV
MOVR

JYES

042704

N
:

023206
024206
000040

.0K?

(%:

005004
012701
012700
012702

HLT
CLR

RS,R4

(MP

8EQ

020504
001401
104000
005005

021150
021152
021154
021156
021160
021162
021166
021172
021176
021200
021204
021206
021210
021212
021214
021216
021220
021222

sottC

e B I

;CLEAR PARITY BIT

;PARITY BIT IS APPENDED

MASKX , R4

BICB

e eI e

001244

143704

=t
—t —t

021144

""tttttttt*tfittttfifittfi**t'"fiQttttfi**fi*l‘tittttfi'tttt.i*fi'iit"ttttt

—

3054
3055
3056
3057

19-MAR-79 09:06

)

(ZDVEC.P1N

—t et =t a

022737
001405
012710
005060
000512

3144

021470

021520

042737

104403

BICB

001303
2%:

001266

001
001256
022412

001
001256
001303
001303
022544
001303
023044
001303
022563
022760
000040
000131

65%:

001272
001272

100000
023611
022760

000040
000116

001272

MOVB
CNVRT
MOVR
TYPE
JSR
BIC
CMP
BEQ
BIS
ST
BM]
TYPE
JSR

SAVNUM, SAVR3
_XXLIN
(SP)+, SAVNUM
JMXINST
PC, TKRDY
#40, SAVRS
#1317, SAVRS
. +6
#8IT15, (RO)
(RO)
708
,MASYNC
PC,TKRDY

CMP
BEQ
MOV
CLR
BR

#116,SAVRS
66$
#ASYNC
, (RO)
2(R0O)
708

BIC

001272

004000
000002
02237¢

7.1
TEMPS, (RO) +
SAVNUM,-(SP)
RS, SAVNUM

TYPE

001266

66%:

#-(<17>,DVNUM

MOVB
MOV
MOV
TYPE
MOVB
CNVRT
INSTR
PARAM
175000
175400
TEMPS
BYTE
MOV
INSTR
PARAM
300
770
TEMPS
BYTE
MOV
MOVB
MOVB

INSTR

#1.SAVNUM
#DV.MAP
RO
#1,RS
,MXGIVE
SAVNUM,SAVR3
L XXLIN
.MXSCR

7.1
TEMPS, (RO) +
. MXVEC

,MXGY

#60, SAVRS

,MXSY1A

021476
021504
021506
021512
021516

001301

#STACK,
SP
#DV.MAP
RO
(RO)+
#DV.END
RO
1%
JMXTITLE
PC., TKRDY
SAVRS,DVNUM

3139
3140
3141
3142
3143

3138

104402

000001
001500
000001
022355
001303
023044
022367

021301

MANUAL

113737
104411
112637
104402
004737
042737
022737
001402
052710
005710
100532
104402
004737

021400

177760

MA(CY
SEQ 0086

0216404
021412
021416
021422
021426
021432
021440
021446
021450
021454
021456
021460
021464

2124

022253
022760
001272

3125
3126
3127
3128
3129
3130
3131
3132
3133
313,
3135
3136
3137

001740

CORP.

112737
012700
012705
104402
113737
104411
104403
104405
175000
175400
001256
007
013720
104403
104405
000300
000770
001256
007
013720
113746
110537

142737

001200
001500

JMP
.=LOVE
MANUAL: MOV
MOV
1%:
CLR
CMP
BNE
TYPE
JSR
MOVB

DIGITAL EQUIP.

021270
021276
021302
021306
021312
021320
021324
021330
021332
021334
021336
021340
02132
021346
021352
021354
021356
021360
021362
021364
021370
021374

021262

021224

1975

3102
3103
3106
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123

3101

000210

LOVE=.
.=210

021224
021230
02123
021236
021242
021244
021250
021254

021224
000210
000137
021224
012706
012700
005020
022700
001374
104402
004737
113737

DEVICE DIAGNOSTICS.

3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100

Dv11

19-MAR=79 09:06

CZOVEC.P1

J
CZDVEC.P11

3145
3146
3147
3148
3149
3150
315
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171

021526
021526
021530
021532
021534
021536
021542
021546
021550
021552
021554
021556
021560
021566
021572
021576
021604
021612
021614
021620
021624

19-MAR-79 09:06

104405
000001
000376
001256
000
113710
104403

104405
000001

000376
001256
000
113760
104402
004737
042737
032737
001405
062710
005237
000767

Ov11

DEVICE DIAGNOSTICS.

7
COPYRIGHT 1975

DIGITAL EQUIP.

(ORP,

PARAM

001
376

TEMPS

001
001256
022424

BYTE

0,1

INSTR

,MXSY1B

MOVB

PARAM

TEMPS, (RO)

001
376

001
001256
022440
022760
1772770
000007

TEMPS

000002

001272
001272

.BYTE
MovB

0,1
TEMPS, 2(RO)

JSR

PC,TKRDY

TYPE

3%:

000400
001272

MXBITS

BIC
BIT

#~(<7>,SAVRS
#7,SAVR5S

INC
BR

SAVRS
3%

8EQ
ADD

4%
#4400, (RO)

""ttttt.*i**tt*tt*flttt*‘tti'tttQ*ttttfittfifi'ttitttfi'*tttifitt't"t'iit..'..'i""i.""'.'

021626
021632
021636
021644
021652
021654

104402

004737
042737
022737
001017
052710
104402
004737
042737
022737
001002
052710

022461
022760
000040
000131
040000
022514
022760
000040
000131

001272
001272

TYPE
JSR

LMPARITY
PC,TKRDY

;SEE

(MP
BNE
BIS

#'Y,SAVRS
5%
#PARBIT, (RO)

¢ 1F ANSWER S YES(Y)
;SET BIT14 OF STAT
;70 ENABLE PARITY

#40,SAVRS
#'Y,SAVRS
5%
#B1T13,(RO)

:1F EVEN PARITY SELECTED
JSET BIT13 IN STAT

8I1C

TYPE
JSR

001272
001272

BIC
(MP
BNE
BIS

020000

#40,SAVRS

MPEVEN
PC,TKRDY

;SEE

PARITY ENABLED

sot+C

PARITY EVFN

;"!tttQfii'ttttttitittfitfitttttt.itit'ttt'ttit'it'itt"lttt"tttt'lt.t'..""'."'..".'.'

SESLYRERK
VL EBRIRA

N i gut- i

ui gl SUP SR

Drd Su

Gull g

AN NN NN VNt NN N NN ANNN

3184

021712
021716
021722
021730
021736
021740
021744
021746
021750
021754

021756

021762
021766
021774
021776

022026

104402

004737
042737
022737
001402
052710
022020
005205
022705
001402
000137
105237
123737
101002

000137
105037
113737
113701
000241
106137

105237

022643
022760
000040
000131

5%:

001272
001272

010000

BIC

CMP

8EQ

70%:

000005

021370
001303
001303

021302
001300
001301
001301

001300
001300

001301

001303

TYPE

JSR

6%:

BIS

(MP
INC

cMP
8tQ
JMP
INCB
(MPB
BHI
JMP
CLRB

MOvB
MOVB
CLC
ROLB

INCB

JMXSYN

PC,TKRDY

#40,SAVRS

#131,SAVRS

.+6
#IT12, (RO)

(RO)+,(RO)+
RS
#5,R5
63
65%
SAVNUM
SAVNUM, DVNUM
. t6
2%
DVACTV
DVNUM, SAVNUM
DVNUM,R1
DVA(CTV

DVA(TYV

MACY

SEQ 0087

3208
3209
3210
3211
3212
3213
3214
3215

023052
023052
023054
023056
023062

010046
005000
005777
100004

T
L
L
L
e
L

<377>/Bl1TS=-PER-CHAR: /
<377>/PARITY ENABLED?(Y OR N): /
<377>/PARITY EVEN?2(Y OR N): /
<212>/LINE CARD #: /
<377>/INSTALLED?(Y OR N): /
<377>/ASYNCHRONOUS ?(Y OR N): /
<377>/TW0 SYNCS? (Y OR N): /
<377>/(A) H325/<377>/(B) HB61/<377>/TYPE 'A'" OR 'B'‘:
<377>/MODEM VECTOR: /

#15,(SP)
1%
(SP)
, SAVRS
STQCSR

001272
156162

156156

(SP) ,aTPDBR
(SP)+

TKRDY

1%:

(SP)
+

XXLIN:

2.1

CkBIT15:
64%:

TST

|
Ioo

<377>/SYNC 'B'':

#3177,(SP)
#IT6, (SP)
.6
#BITS, (SP)

000040
000015

156306

aTKCSR
-4
aTKDBR,-(SP)

156214
000200
000100

001

<377>/SYNC "A"':

<377>/VECTOR:

RO,=(SP)
RO
aDVL(R

65%

;CHAR OR NUMBER
;BR IF NUMBER

;MAKE UPPER CASE

PAPAAPRAPNAPRAPANAANANAPAPAAAAPAALZ
T T —

MASYNC:
MXSYN:
MTURN:
MVECZ:
.EVEN
TKRDY
:

MXINST: .

NNNN
N

CD Ny bySl

Sy S

MPEVEN:
MXGV:

MPARITY: ASC

MXBITS:

MXSYIB: .

MXVEC:

<212>/DV11 MANUAL PARAMETER INPUT PROGRAM./
<377>/DV11°'S IN SYSTEM (1 10 8): /
<212>/DV11 #: /
<377>/CSR: /

042504

MXSCR:

MXSY1A: .

<377><377>/ START DIAGNOSTICS WITH SW07-1!/<212>
<377>/SELECT LINE(S) XXXXXXXXXXXXXXXX/
<377>/
/
<377>/LINES SELECTED(8):
/<377>
/./<377>
<377>/SINGLE LINE: /

A A

156220

020103
047524
020103
026523
044522
052111
020105
052123
047131
020117
044040

MXGIVE: .

MACY

SeE@ 0088

MXF IN

030461
023461
030461
035122

#177777
., (RO)

MSING:
.ASC
MXTITLE:
.ASC

ML INE:

M.CRLF: .

(ORP.

<14

053104
030526
053104
051503
047131
041505
047137
052111
040520
051107
047111
047111
051501
053524
024501
047515

046107

MXF IN:
MSEL:

040524
042514
020040
051505

wmunmuwunmonm

051440
042523
020040
047111
000377
047111

DIGITAL EQUIP.

DVACTV, SAVACT

NNNANNANANNNNNNNN
S

212
377
051777
053377
051777
041377
377
050377
046212
377
377
377
024377
377
022760
105777
100375
017746
042716
032716
001402
042716
022716
001411
011637
105777
100375
011677
005726
000750
005726
000207
000001
002
001266

022056

MOvB
MOV
TYPE
HALT

YYOYOYO

212

042377

177777

001302

056
051777

001300

DECB
BNE

> >

377
046377

022760
022764
022766
022772
022776
023002

DEVICE DIAGNOSTICS.

105301

001371
113737
012710

104402
000000
177777
377

022367
022376
022412
022424
022440
022461
022514
022544
022563
022611
022643
022672
022737

DV11

'a) ‘alniateYeYel

022032

19-MAR-79 09:06

1% DL nunvon

CZDVEC PN

L
CZDVEC PN

023064
023066
023070
023072
023074

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

104414

DELAY

104000

BNE
HLT

005200
001372

INC

65%:

MOV
RTS

SETREG: MOV
MOV
MOVB
156260
156256
000060
156242
156240

023142

023144
023144
023150
023156
023160
023162
023166
023170
023172
023174
023176
023200
023202
023204

MOVB

000205

012577
052777
010046
005000
005777
100004
104414

156212

156202

DELAY

005200
001372

INC
BNE

28:

047111

053103
040503

025252

042777

025320
025322
025324

000005
006
001272
006
001270
002
007262
006
001362
006

042117
054105
042516
042117
040505
050130
004
001

004

001
001

046107
020122
046102
046505
042520
050130
046505
044504
041505

HLT

MOV

SYNC:

EXIT
.BLKW 1

EMI :

.ASCI1

TXBAP:
TXTAB:
RXBA:

TO CLEAR

15 FAILED

TO CLEAR

(R5)+.R1

(SP)+ R1
(SP) +.R0

MOV
(LR
ST
BPL

15 FAILED

MOV
MOV

BIS

CORP,

RO,=(SP)
R1,-(SP)
(R5)+.RO

#BITS+B1T4,aDVSCR

:
L OAD . MODE
MOV

1%:

;BIT

BIC

EXIT

156220
100000

(SP) +,RO

RO,aDVSRSH

MOVBE
MOV

DIGITAL EQUIP.

64$
0

MOVB

MOV

156234

(R§)+,aDVSRA

R1,aDVSRSH
(RS) +,aDVSRA

(RS)+,aDVLCR

#1715, 3DVLCR
RO, =(SP)
RO
aDVLCR

RO
1%

(SP)+.R0

:BIT

_.BLKB
.BLKB
.BLKB

400
400
400

EM2:
EM3:

.ASCIZ
LASCIZ
.ASCIZ

<377>/RCVR INTERRUPT (BIT 7 OF DVSCR) FAILED TO SET/
<377>/CABLE TURN AROUND TESTS (MODEM CONTROL ERROR)/
<377>/MODEM CONTROL ERROR/

EMS :
EM6:
DH1 ;

LASCIZ
LASCIZ
'?3§§Z

DT1:

DH4 :
EM4 :

JASCIZ
JASCIZ

<377>/SINGLE LINE CABLE TESTS(DV11 ERROR)/

<377>/EXPECTED FOUND REGISTER/
<377>/UNEXPECTED MODEM CONTROL INTERUPT./

<377>/MODEM CONTROL FAILED TO INTERUPT/
<377>/READING MODEM CONTROL CAUSED AT TRAP TO 4./
<377>/EXPECTED
FOUND
LINE
DVSCR MC.CSR/

.BYTE 6.4
SAVRS
BYTE
6.1
SAVRS
BYTE
2.4
LINE
BYTE
6.1
DVSCR
.BYTE 6,1

MACY

SEQ 0089

M7
CZDVEC P

3262
3263
3264
3265
3266
3267
3268
3269
3270
327
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292

025344
025346
025350
025352
025354
025356

19-MAR-79 09:06

007300
000003
006
001272

004

DV11 DEVICE DIAGNOSTICS.
DT2:

.BYTE

6.4

.BYTE
SAVR4
.BYTE

6.1

SAVRS

001
001

024606
025252
025320
024731
025252
025320

MC.CSR

.ERRTAB:

SAVR3

EM1

DH1
DT1
EM2
DH1
DT
EM3
DH4
DT2
EM4
0
0

EMS
0
0

E M6

0
0
0

0
000001

.END

6.1

DIGITAL EQUIP.

CORP.

MACY

SEQ 0090

N
CZDVEC.PI

ADRCNT= 003443

ALU
=
ASYNC =
AUTO.S
BCC
=
BINWRD
BITO
=
BIT1
=
BIT10 =
BIT11 =
BIT12 =

BIT13
BIT14
BIT15
BIT2
BIT3S

BIT4

=
=
=
=
=

010000
004000
006624
060000
003746
000001
000002
002000
004000
010000

020000
040000
100000
000004
000010

= 000020

BITS
=
BIT6
=
BIT7 =
BIT8 =
BIT9 =
BRB
=
BRW
BRX
BUSY
CHAR
CHRCNT
CKBIT1

000040
000100
000200
000400
001000
070000
003014
003016
000020
007266
003744
023052

CLKX
001242
CLK.A
001416
CLK.B
001417
CLK.C
001420
CLk.D
001421
CLRMUX= 002000
CLRSCN= 004000
CNVRT = 104411
co
= 000100
COF
= 040000
CONVRT= 104410
COUNT
007270
CREAM
001306
CS
= 000040
CSF
= 020000
CSRMAP 006626
CYCLE
005666
DATABP (004276

DATACL= 104416

DATAHD
004264
DELAY = 104414

DEVADR
DH1
DH4
DONE
=

(003440
025252
025035
000200

19-MAR-79 09:06

CROSS REFERENCE TABLE -- USER SYMBOLS

655+

619+
734
81

3141

604
Son
584
S7H

74
76

11294
784
705+«
71
704
614

6644

75
44

78
78

79
79

3042

3046

3027

3044
526

3014
453

3019
886

3023
1234

3133
2973

3237
2981

1237

3000

3026

3207

3228

520

767

924

945

1197

1623

1632

1959

1991

2200

1416
707

1047
1052
1057
1062
1937
1958
478
2499

1425
723«

1437+
7614

3049
3049
3060

3060
3178

1239

1449

3207

3046
3046

3185

742

2082
1990
480

2115
2199
482

2192

2253

2300

2347

2394

2584

2638

2692

484

804

806

862

919

1391

3107

3126

418
1414%

820
1406%

1428+

1435%

2499

2811

1002

1003+

1004

1007«

498
796

499
818

2002

2046

2135

2823

2213
2877

2276
2931

2323
3054

2370

3216

2417
3242

2464

1547

1548

1550

1651

1695

1717

1738

1759

1789

387«

814

1913

2811

9%+

8174

1948

995

1965

2608

2662

1540

1542

1543

1822

6624
3275
1843

2746

9844
8214

2558
652
3272

997+«

1864

2716

2152

2770

MACY

SEQ 0091

CIDVEC.P11

19-MAR-79 09:06

DSR
=
DIl
DI2
DVACTV

000020
025300
025346
001300

12360
32508
32630
Jeor

DVCROO
DVCROT
DVCRO2

001500
001524
001550
001574
001620
001644
001670
001714
001370

2834
2944
305#

DVCRO3

DVCRO4
DVCROS
DVCRO6
DVCRO7
DVLCR
DVWSR
DVNUM
DVRIC
DVRLVL
DVRVE(
DVSCR
DVSCRH
DVSFR
DVSRA
DVSRS
DVSRSH
DVILVL
DVIROO
DVIROT
DVIRO2
DVIRO3
DVIRO4
DVIROS
DVIR0S
DVIRO7
DVIVEC
DV.END
DV.MAP
DVO0.A
DVOO.B
DV00.C
DVOO.D
DVO1.A
DVO1.8

DVO1.C
DVO1.D
DVO2.A
DVOZ.E
DV02.C
DV02.D
DVO3.A
DVO3.8
DV03.C
DVO3.D
DVO4.A
Dv04.B

2546
3273
3279
T43ke

TABLF == USER SYMBOLS

MACY
SEQ 0092

3276
435

98¢

989

1163+

1169+

1170s

117¢

1193

3195+

3199+

3200e

903«
1033«
383
1021«
1038«
505
502

904
1034+
4BB
1022+
1039+
1009+
880«

1023«
1035
1135+
1023
1040
1038
893«

1024+

1025

32164

3236s

3237s

3240

1156+
3061

1157

1164

1166

3100+

3101«

3192

3196

3197

897«

1008+

1019

1326

1402

1410

3050+

3052

3228

1019+
1031+
884
883

1029

1031
1027
3226+

3034+
3008+
3229«

3230s

1028
1043+

1021
1033
1030*
1026*

3227x

1027+
1042+

1020+
1032+
1029«
1025~

1040+
995
28«

1041+
1004
387

1042
1133
41%

309
997

1007

1131

113

1185

309

3103

3164

001402
001301
001366
001354
001352
001362

3278
3384
3494
3604
233
2384
1664
2324
2274
22¢4
230

001364
001400
001376
001372
001374
001360
001502
001526
001552
001576
001622
001646
001672
001716
001356
001740
001500
001504
001510
001514
001520
001530
001534

2314
2374
2364
2344
2354
2200
284
2954
3064
3170
3280
3300
3504
3514
228%
3714
171
2854
2874
289
2914
2964
2984

001540
001544
001554
001560
001564
001570
001600
001604
001610
001514
001624
001630

CROSS REFERENCE

3004
3020
3074
3000
3110
3120
3180
3204
3204
3240
3294
3314

c
CZDVEC.P11

OVO4.C
Ov04.D
DVO5.A
OVO5.8
DVO5.C
DVO5.D0
DVO6.A
DV06.8
DVO6.C
DV06.0
OVvO7.A
DV07.8
Dv07.C
OVO7.D
EM1
EM2
EM3
EM4
EMS
EM6
ERRCNT
ERRFLG
ERRMSG
ERTABO
EXERCI
EXIT
=
EXITER
FIX.00
HALTS
HILIM

001634
001640
001650
001654
001660
001664
001674
001700
001704
001710
001720
001724
001730
001734
024606
024731
025010
025070
025134
025176
001232
001311
004252
004366
007274
000205
004322

19-MAR-79 09:06

001222
005520
001310
104404
104403
003236
000100

KBISR
LIGHT
LIGHTS
LIMITS
L INE

010276
000174
001200
003364
007262

TABLE

511
473
8124

829+
540+

1421+

1439«

1058

1063

3247

781+

023144
003442
001220

LOGICA
LOKFLG
LOLIM
=
LOVE
LPCNT
LSTERR

002560
001312
003434
021224
001224
001234

794

808+

863+

6614
543«
9694
409+
1350

3115

3144

1515
1842
14564

1521
2206

1523

1692

1716

1737

1758

1779

1440«

2252
2981
2452
2857

2346
3058
2491
2873

2393
3258

2641

2488

2535

2499
2911

2507
2919

2538
2927

2546

1905+

1957+«

»
1984

2028+

2071~

2113+

475«

1357«

2973
2444
2819

2168+

1879+
2800+

2854~

780~

864+

30894
1394
1434

778

MACY

SEQ 0093

10974

L INENA= 000001

LOAD.M
LOBITS
LOCK

=-- USER SYMBOLS

333
335#
3404
3424
344M
3464
351w
353
3554
3574
3624
3644

006516
004302
003436

ICOUNT
INBUF
INIFLG
INSTER=
INSTR =
INSTRZ2
INTENA=

CROSS REFERENCE

0O
CZDVEC.P1

L00.03
L04.07
LO8.11
L12.15

001422
001424
001426
001430
MAINT = 001000
MANUAL
021224
MAR18 = 007502
MASKX
001244
MASK.A
001406
MASK.B
001410
MASK.C
001412
MASK.D
001414
MASTEK
005400
MASYNC
022611
MCRLF
005104
MCSRX
005330
MC.CSR
007300

MC.LSR

007302

MC.LVL

007306

MC.VEC

007304

005624
005145
MERRPC
005454
MERRX
005355
MERRZ2
005174
MERR3
005243
ML INE
022202
MLOCK
005301
MNEW
005402
MPARIT
022461
MPASSX
005344
MPEVEN
022514
MPFAIL
005107
MQM
005100
MR
005171
MRESET= 004000
MSEL
02211
MSING
022234
MDATA
MEPASS

MSTCLR-

104412

19-MAR-79 09:06

CROSS REFERENCE

2554

1045

2564
2574
258#

1050
1055
1060
1569

12204

309

13494
151#

2978+
2986
2983
2978
2975

245N
2L6H
2474
2L84
802
3136
571
477
12494
1672%
1775%
1863+

2257+
2349
2443
2539«
2640*
27467
2856+
12504
2275+
2418
2588«
2753
2911x%
1252#
1861+

2769%
1411»
2126+
1408
2125+

731
9604
9604
9604
9604

32074

9604
9604
32074
9604

32074
9604
9604
9604

32074
32074
865

1092

893

3084

TABLE =-- USER SYMBOLS

2987
2984
2979
2976
1574

1575

2986+

3063

807
1488
1712+
1800«
1936

2297%
2367
2462+
2579+
2659
2763
2875«
2076~
2322+
2465
2642+
2806
2938«

bbb

1577

1940

1993

948

9604

1069

1087

1512
1716
1801
1985
2300~

1539
1717+
1817«
2029
2302«

1566
1733«
1821«

1593
1737«
1822+
2114

2072
2304
2396+
2492~
2589«
2694*
2802+
2912+
2092

1996

2035

2119

1648+
1754
1842+

1651
1758+«
1843

1669+
1759«
1859+

2250+
2320+
2410w
2509+
2605+
2705+
2816+
2929+
2195+
2397+
2541
2715+
2876+

2253%
2344
2414+
2533«
2633~
2713%
2821+
3262
2256
2400
2557+
2717
2878

2259
2416+
2559
2750+
2884+

2255+
2347+
2439+
2537«
2638+
2741«
2850+

2645
2822«

2661«
2824

2494

2510~
2663
2830+

2307
2398+
2495
2592
2697+
2804«
2915
2098+
2369+
2512
2696+
2857+«

1671x

1693x

1715+

1736«

1757+

1798+

1819+

1840+

1670+

1691

1774»

1735+

1756+

1797+

1818+

1839«

2391«
2486%
2584
2687%
2767%
2904%
2084
2324
2491

2394«
2490
2586«
2692
2796+
2910+
2091«
2350

2353

MACY

SEQ 0094

E
19-MAR-79 (09:06

CROSS REFERENCE

MTITLE
MTISTN
MTSTPC
MTURN

001000
005366
005267
022672

119#
803
9604
1336

22074

MVECZ
MXBITS
MXFIN
MXGIVE
MXGV
MXINST
MXSCR
MXSYN
MXSYTA
MXSY1B
MXTITL
MXVEC
M.CRLF
NEXT

022737
022440
022056
02¢355
022544
022563
022367
(022643
022376
(022424
022253
022412
022231
001216

1404
3158
3205
3105
3124
3128
3108
3180
3144
3151
3093
3115
1395
1364
1688+«

32074
32074
32074
32074
32074
32074
3207
32074
32074
32074
32074
32074
3207
544
1711«

MVECX

005336

NPR
=
NS
=
PARAM =
PARAM1
PARBIT=
PARERR
PASCNT
PERFOR=
PFTAB
POINTE

040000
000010
104405
003304
040000
003360
001230
004537
004470
007264

479

2027«
2434~
2739

764
12354
2014
6214
814
624
1414
81#
862
1243

408
9604

TABLE == USER SYMBOLS

MACY
SEQ 0095

1071

9604

834
1732«

1324
1753%«

1443%x
1774

1475«
1795«

1511+«
1816+

5 38«

IR
— —

CZDVEC.PI

1565+

1592+

1618+

1646+

1667+

1858+
2295
2628+
2968

1878+
2339+
2631

1904+
2342
2682+

1934+
2386+
2685

1983«
2389
2736+

2070+
2437
2791~

2112+«
2481%
2794

2167~
2484
2845+

2188
2528+
2848

2245+
2531
2899~

2248
2574
2902

337'r
92
577
2965*

2397
1072
638
1116
626
384w
3011
8684
1413«

2405
1351

2538
1405

2546
3109

2557
3116

3145

3152

3172
628
474 %
3016

6374
475
3020

644
508
3024

646

648

3028

3035

3041

3043

3045

3048

1414

1415«

1416

1417«

1428

1634 %

1435

1436+

1437

1438+

POPRO = 012600
POP1SP= 005726
POP2SP= (022626

554
554
2122#

2332

1655

1676

1699

1720

1741

1762

1783

1805

1826

1847

1868

53n
1713«

380+
1734«

449«
1755«

1196+
1776+

1325«
1799%

1333«
1820*

1388+
1841+

1647+
1862+«

1652+«
1882«

1668+
1907«

1673+
1938+

1689+
1987+

1694+
2031«

1095

PUSHRO=
PUSH1S=
PUSH?2S=
QV.FLG
RAM
=
RAMCLR=
RESREG
RESTAR
RESTRT
RESV16
RESOS =
RETURN

177776

010046
005746
024646
001313
020000
104413
004300
004414
002572
001404
104407
001214

2074«
2345+
554
554
554
1794
74H
2134
819
849
486
239#
205#
1354
1432«

2343
2685+«

828

2117+«
2392«
825

2126
2440+«

2129+
2487+

2131+
2534%

386+

487+

535

1424=

866
8224
8554
490
1035«
822
392+
1433

2970

464
1443

498
1454

2389«
2686

2141«
2580*

2194r
2634r

2205
2688x

2207«
2742+

2209+
2797+

2219+
28S51x

2251«
2905w

544 %
1500

547
2188~

834+
2189

836
2248

867

1086

1094+

2249

2295+

2296

2298+

4984
1036

462+
1442

2390
2739

2437+
2740

2438
2794

2484
2795

2485
2848+

2531
2849

2532
2902+

2577«
2903

2578
2968

2631
2969

2342

2632

= 000200

RUN

001304

RXBA

024206

SAVACT
SAVNUM

001302
001303

SAVPC
SAVRO
SAVR1
SAVRZ
SAVR3
SAVR4
SAVRS

001276
001260
001262
001264
001266
001270
001272

001274
SAVSP
SAVOS = 104406

SCNENA= 000040
SCOPE - 104400

12394
12264

2452

2865

1234a

2350
388+

2358

217»
1694

3022

1674

104401

SECRX =
SECRXF=
SECTX =
SELECT
SERV.G
SETREG
SPACNT=

000020
010000
000010
007272
004640
023100
003745

SSWR
000176
STACK = 001200
STAT
001236
STEP
- 000400
Sv05
SWR
SwO0
Sw01
Sw02
Sw03
Swo4
SWO5
Sw06
Sw07
Sw08
Sw09
SW10
SW11l
Sw1?

003452
001202
=
=
=
=
=
=
=
=
=
=
=
-

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

3074

1684

383«

1644
1574
158#
1594
1604
1614
1624

669+
678+

3196+

3169*

1634

203

12164
1914
1785

2281
SCOPT

CROSS REFERENCE

989

3251a
1174+
485+

677+
676+
675+
674~

673+
3170
782
1594
1497
1806

1596

2499

2696

2704

2857

2865

2876

3203
488+

1167+

3106

3122

3123+

3125

3127+

3191«

3192

85+

1392%

3106+

1342

3125+
3256
313
3254

3209
3267
3138+
3265

3269

3182+

2216~
3130~
3207+

3139

3160+

3161

3164+

1601
1581
1869

1604
1636
1922

1620
1657
1974

1627
1678

2130

2152

2208

2230

2061
2725

2101
2779

2156
2833

2234
2887

2229

992+

993+

2138+

1970

2055
2936

2089

2096

2144

2151

2222

1363

1372+«

1381+

1383

1386

1418

1439

3028

32224

857

3093

1964

2001
2551

2036
2601

2040
2655

2045
2709

2077
2763

453
917+

517
927

526
932

533
933+

2750

2758

2919

450

1912

1941

2316
400
771
1347
424
1064

2363

2457

405+

424

776

771

1743

2617

2828

381

1722

2563

2721

1356+«
9144
3020
728+

1700

2469

2667
2919
1345~
770
3016
725
405

1001
=

2017
2671

2375
1918

MACY

SEQ 0096

2491

2328
3085
1890

TABLE -- USER SYMBOLS

830

O &

RING

RINGF = 100000
ROMCLK= 104415
RS
= 000004

19-MAR-79 09:06

O~ &

CZDVEC.P11

1764

2870
554
934~

567

941«

SYNDO6

SYNDO?7
S.C
TABLE
TEMP
TEMP1

TEMP?2
TEMP3
TEMPS4
TEMPS

TESTER
TKCSR
TKDBR
TKRDY
TLAST
TOTAL
TPCSR

001506
001532

2864
2974
3084

2979+

2988+

2996

3009

3018

3032

3039

32484

2080+

2083

BN 2%
L2

e
Ghur

859+

415
416
1372

3114
1441

588
531
3129
12484
1294

2987+

2202
594

9714

420+
964
1997«

962

1193«

1194~

2013+

2034+

2037+

2041

2057+

3119

3121

3148

3150

3155

3157

914
590
3137

921
596
3159

942

1332+

1365

3168

3174

944

3181

1446
1367

1448

2581

2635

2689

2743

2798

2852

2906

2965

773

928

1476

3207

32074

1480+

1483

1457

2097+

1484

3207

MACY

SEQ 0097

3194
2304
3414

001732

001432
001434
001436
001440
001522
001546
001572
001616
001642
001666
001712
001736
050000
010330
005562
001246
001250
001252
001254
001256
010064
001204
001206
022760
020450
007276
001210

2984x

NN
—

001556
001602
001626
001652
001676
001722
001512
001536
001562
001606
001632
001656
001702
001726
023204
001240
001516
001542
001566
001612
001636
001662
001706

TABLE -~ USER SYMBOLS

194

fiur G

100000

CROSS REFERENCE
776

b —d

SYNCOO
SYNCO1
SYNCO2
SYNCO3
SYNCO4
SYNCO5
SYNCO6
SYNCO?7
SYNC2A
SYN(CZ2B
SYN(C2C
SYNC2D
SYNDOO
SYNDO1
SYNDO?2
SYNDO3
SYNDO4
SYNDOS

2
204

SYNC
SYNCX

020000
040000

—b

Sw13

N"AEA
SW15
SYNAQO
SYNAO1
SYNAQ2
SYNAQ3
SYNAQSL
SYNAOS
SYNAOG
SYNAQ?7
SYNBOO
SYNBO1
SYNBOQ?2
SYNBQO3
SYNBOS
SYNBOS
SYNBO6
SYNBQ7

19-MAR-79 09:06

jelelele)

CZDVEC.P1N

3207

H
CZDVEC.P1
TPDBR

001212

TRMRDY= 000002
TRPOK
003762
TSTNO
001226

19-MAR-79 09:06
1304

007310
011600
011666
011754

574

2463

2642

2650

2803

2811

2827

879
1687+
2026*

2069+

1082
1731«

2111x

1084
1752«

2166«

1323«
1773«

2244+

1474+
1794«
2291+

1510+
1815«

2338+

1537«
1836+

2573«

843
1666
1982+«

1075
1710+

%827*

391«
1645+
1933«

2385+

1564+
1857+
2433x

2480+

459+
1344

460«
2186

5274
2246

2293

2340

2387

2435

2482

2529

2575

2629

32494
3038

32504

426

6«3

455

463

476

479

481

483

571

78
1618
1646
1667

1094
16454
16664
16874

TIST2S
1ST26
1ST27
TST3
TST30
TST3
TST32
TST33
TST34
TST35
T1ST36
TST37

013124
013326
013510
011126
013674
014052
014304
014650
015050
015250
015450
015650

1904
1934
1983
1475
2027
2070
2112
2167
2245
2292
2339
2386

19334
1982#
20264
15104
20694
21114
21664
2244H
22914
23384
23854
24334

016046

2434

016442
016666

2528
2574

011220

TST4

016244

TST42
TST43

TST44
TST4S
1ST46
1S147

017112
017336
017562
020004

TST6

011404

TSTS
ISTS0
TST51
1S17

TIST
TURFLG

TYPE

1511

2681
27354
27904
28444

1565

1591#

(023206
023506
(004266
104402

{56+
12414

13234

2844«

2898%

2964+

2573
26274

15644
2898«
2964
16174
457
1340«

3277

27%7

2792

3001
2989
797

3013
2994

3073
3037
8184

1954

2790+

14744

2683

2735+«

15374

2628
2682
2736
2791

1592

2681x

24804

2527k

011476

2627*

15971«
1877+

18774
19034

2481

1538
2845
2899

TWOSYN= 010000

TXBAP
TXTAB
TYPDAT

1858
1878

011312
020226
020450
002702
007260

3207+

2452

1710#
17314
1752#
17734
17944
1442
18154
18364
18574

TST4L0

1368+

2444

1688
1711
1732
1753
1774
1324
1795
1816
1837

TST4

930+

231

012050
012140
012230
012320
012410
010770
012476
012564
012652
012740
013026

775+«

MACY
SEQ 0098

2303

IST13
1ST14
TST1S
1ST16
IST17
TST?
15120
TST21
TST22
TST23
TST24

596+

TABLE ~- USER SYMBOLS

12334
7544
1404
1617+

1903«

TST1
TST10
TST1
IST12

CROSS REFERENCE

815
408

613

2846

2900

2966

I
{ZDVEC.P1

19=-MAR=-79 0G:06

584

601

694

3098

3105

3124

007104
003742
004254
004060
002604
002626
030000
005461
002620
005506
004374

1175
702«
810
772
478
484
754
413
482
419
804

1183#
732
8134
774
5004
509«

023044
177777

1391
4
16384
17694
19234

3107
14664
16414
17874
19294

918

TYPMSG

VECMAP
WRDCNT
WRKO.F
XBX
XCSR
XERR
XFR
=
XHEAD
XPASS
XSTATQ
XTSTN
XVEC

XXLIN
$CRAP

CROSS REFERENCE

004166

002612

- 000053

- 000051

000017

025436

795

480

920
798#

948

986

3128

799

1087

802

1092

803

1175

805

1336

807

811

816

MACY
SEQ 0099

861

1362

1387

1395

1425

15874
174SH
18734
21574
2476

16104
17488
1894
21624
2518

1613
17664
18994
22354

2840

2523A
28894

1592
17334
1878
21144

1593+
1753
1880#
2167

3136

3158

3167

3172

3180

3205

15064
16804
18114
20184
2334M

15304
16834
18294
20224
23764

15334
1703#
18324
20624
23814

15574
17064
18504
20654
24244

15604
17244
18534
21034

27314

2429
27814

15844
1727k
18704
21074

2471M
27864

14764
1667
17964
1983

151
16684
1816
19854

15124
1638
18174
2027

1538
16894
1837
20294

15394
1711
18384
2070

1565
17120
1858
20724

15664
1732
18594
2112

24354
2791

2481
27924

7764

9604
506#
9604
8414
S03#

2126
14704
16594
17904
19754

32074
15034
16624
18084
1978&

22874
26188
29604
13254

23294
26234

21694
2528
284?:

22464
2574
29004
13254

2292
25754
29664
1466

1562
1668%
1766
1855
19854

798

1069

== USER SYMBOLS

7404

22404
22824
25664
25694
2894k
29424
w1324
1618
17544
1904

TABLE

16194
1774
19064

2245
25294
2899
1321

15664
1680
1771
18594
2018

1646
17754
1934

1584
1685
17754
1870
2024

1475
16474
1795
19364

1589
16894
1787
1875
20294

26724

26778

27264

22934
2628

2339
26298

23404
2682

1472

164764

1503

1508

15124

1530

1535

15394

1557

1610
1708
17964
1896
2067

1615
17124
1808
1901
20724

16194
1724
1813
19064
2103

1638
1729
18174
1923
2109

1643
17334
1829
1931
21144

16474
1745
1834
19364
2157

1659
1750
18384
1975
2164

1664
1754#
1850
1980
21694

1974

1954

PARY

15934
1703
1792
18804
2062

2434
27378

22464
2471
2679
29004

2282
2478
26834
2942

2289
24824
2726
2962

2134

2154

2174

2194

2214

1664

1674

168#

1694

1044

1054

1064

1094

1114

1144

1184

1204

1654

1704

2814

2964

2834

2974

284H

2984

2854

2864

2874

2884

2854

3244
3394
353n
3674
9704

3254
3404
354n
3684
9724

3274
3614
3554
3694
9744

3284
3420
3564
633
988

3294
3430
3574
522
1179

3304
3440
358#
769
1200

3314
3454
3604
851
12494

3324
3464
3614
860
12504

191

964

1934

1034

1954

290#

2914

2924

2944

2954

3194
333
3674
3624
874

3204
3344
3694
3634
9124

3214
3354
3504
3644
922

3224
3364
3514
3654
929

3234
338#
3524
3664
943

12524
1572

2217
2880

1349
1579

2279
2934

1371
1599

2326
3033

1431
1606

2373

3089

1447
1625

2420

30904

14654
1634

2467

30924

2336
25294
2781

23404
2564
2788

2376
2571
27920

2383
25754
2835

23874
2618
2842

2014

2034

2054

207#

2094

24824
2845

2242
24354
2672
2896
1824

2329
2525
27374
32774

23874
2736

2235
2431
26294
2889
14

22934
2518
2733
26668

2386
26834

28354

1
19

%? 1

3184

2994

3004

3014

3024

2424
2625
2846#

3034

J
(ZDVEC P11

.BEGIN
. (NVRT
. CONVR
DATAC
.DELAY
.EOP
LERRTA
CHLT
. INSTE
. INSTR
. INST1
.MSG
MSTCL
.PARAM
LPFAIL
+RAMCL

.RESOS
ROMCL

. SAVOS
.SCOPE

.SCOP1
.START
. TRPSR
.TRPTA
.TYPE

002332
003542
003536
004576
004476
002436
025364
004002
003224
003120
003740
003142
004556
003244
004402
004516
003504
004566
003444
002634
003020
001742
00375C
001314
003044

19-MAR-79 09:06

32504
L4L5n

CROSS REFERENCE

32514

6954
694
900#

8714

1432

32704
7634

6014

580#
604
5854
8924
6124
382
879«
6834
8964
6694
5164
554a
3804
751#
756
5644

8484

392

856

TABLE

== USER SYMBOLS

MA(CY

SEQ 0100

K
CZDVEC.P11
DVEND
DVFRNT
HLT

INTS
MUXS1

19-MAR-79 09:06
14
1
554

1656
2010

2374
2762

966

4
4
104

$CYCLE

2409
2774

$CK15
$CK150
$CLR.T

$BUFFE

909

1677
2054
1786
2235

14
164660

104

TABLE == MACRO NAMES

MACY
SEQ 0101

465

14654
1w

MUXS2
NOINT

CROSS REFERENCE

2423
1702

1491

1697
2088

2421
2815

1495

1721
2095

2456
2827

1807
2282

1828
2329

2470
1723

2517
1744

1498

1742
2140

1519
1763
2143

2468
2869

2503
2881

2780
1765

2834

2564

1849
2376

1526

2150

2515
2923

1546

1803
Sg;g

1553

1824
2221

2935

2562
3057

2618

2672

2726

2888

1573

1580

1600

1607

1626

1635

1845
2228
2600
3070

1866
2268
2612
3081

1889
2280
2654
3219

1917
2315
2666
3245

1952
2327
2708

1969
2362
2720

321

975

SEGOLF
$EOP
$F INI
$GETFL
$GE TPA
$HE ADE
MSG
$PFAIL
SRAMCL
$RXSHI
$SCOPE
$SETLI
$SETSC
$SETSY
$SET.T
$SILOI
$SIMBC
$ TRPDF

1502#
1529
»
465
#3277
1L
14
1070
14
14
960
14
844
14
871
1L
14
512
»
»
»
1
4
14
215‘
9

1556

1583

193

195

197

199

201

203

205

207

209

213

215

217

$TSTN

1w
1792

1472
1834

1508
1855

1535
1875

1562
1901

1589
1931

1615
1980

1643
2024

1729

1750

1771

2842

1685
2109

1708

2788

1664
2067

2164

2242

2289

2336

1560
1745
1899

1584
1748
1923

1587

1610

1613

1638

1641

1766
1929

1769
1975

1787
1978

1790
2018

1808
2022

$TXSHI
$VARIA
$xZ

. ABS.

132
1813

2383

2431

2478

2525

2571

2625

2679

2733

1659
1811

117
14666
1662
1829

1470
1680
1832

1503
1683
1850

1506
1703
1853

1530
1706
1870

1533
1724
1873

1557
1727
1896

1#
1»
1%

2062
2429
2835

2065
2471
2840

025436

000

ERRORS DETECTED:

2103
2476
2889

2107
2518
2894

2157
2523
2942

CZDVEC,CZDVEC/SOL/CRF/DOC-CZDVEC.MAC,(ZDVEC.P1
RUN-TIME: 26 39 4 SECONDS
RUN=TIME RATIO: 330/69 4.7

2162
2564
2960

2235
2569

2240
2618

2282
2623

2287
2672

2896

2329
2677

2962

2334
2726

2376
2731

2381
2781

2424
2786

L
CZDVEC.P1Y
CORE

USED:

19-MAR-79 09:06
18k

DOCUMENT PAGES:

(35 PAGES)

CROSS REFERENCE

TABLE == MACRO NAMES

MACY

SEQ 0102