Digital PDFs

AH-8745C-MC

September 1979

103 pages

Original

51MB

view download

OCR Version

67MB

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

OCR Text

DV11 MODEM CNTRL

AH-8745C-MC

SEP 1979

CZDVECO

m@flufln

FICHE 1 OF
1

MADE IN

SEQ 0001

IDENTIFICATION
PRODUCT

CODE
:

AC-B744(C-MC

PRODUCT NAME:

CZDVECO DV11

DATE RELEASED:

MARCH 1979

MAINTAINER:

DIAGNOSTICS

AUTHOR :

JOHN EGOLF, R.SOLER

MODEM CNTRL

THE INFORMATION IN THIS DOCUMENT IS SUBJECT
TO
CHANGE
WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS
THE

SOF TWARE

LICENSE

TERMS OF

AND

DESCRIBED

MAY

THAT MAY APPEAR

IN THIS DOCUMENT

ONLY BE USED OR COPIED

SUCH LICENSE.

IN THIS DOCUMENT.
FURNISHED

UNDER

~ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
USE
OF
RELIABILITY
SUPPLIED BY DIGITAL.
COPYRIGHT

(C)

ITS

SOFTWARE ON EQUIPMENT

1975,1979 DIGITAL

IN ACCORDANCE WITH THE

EQUIPMENT

THAT

CORPORATION

THE

IS NOT

SEQ 0002
ABSTRACT
The

function of

the DV11

diagnostics

verify

that

the

are ro malfunctions and the all operations of

the DVI1

are

correct

operates according to specifications.
1ts enviroment.

Parameters may be set

wusing

the

to alert

are

The diagnostics verfiy that
v

diagnostics_as

option

there

’

the DV11

configuration

‘TRIAL'' program (CZDVE SA:210). 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

Modem

bits

signals are tested 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

these_inturn will be tested individually.

Lines may be selected and

Part 2 =THE MANUAL PARAMETER 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 to be able to run with all

the

character

(5,6,7 and 8), with parity option enabled(odd/even).

Currently there are six off

sequence

line diagnostics

that are

insure that if an error should occur

it will

run

be detected at

anogfrly stage and insuring that diagnosis of error will be immediate to
problem

NOTE:

Additional diagnostics may be added in the

future.

The six dia
stics are:
1.
DZDVA [REV] Basis R/W test and ROM instruction exerciser.

2.
3.

CZDvB [REV] DV11 STAT LN CD TSTS
C€zZbvC CREV] ROM TST PRT 1

DZDVD [REV]

CZDVF [REV] Asynchronous line card tests.

CZDVE [REV]

"FREE RUNNING' Rom tests part 2.

DV11 MODEM CNTRL

REQUIREMENTS

EQUIPMENT
Any PDP11 fami@{.CPU (WITH MINIMUM 8K MEMORY)
ASR 33 (or equilivalent)
DV11=-AA MUX CNTRL UNIT

AT LEAST ONE OF

THE FOLLOWING

DV11-8BA 8 LINE SYNC MODULES
DvV11-88 8 LINE ASYNC MODULES
DV11-BC 4 SYNC LINES, 4 ASYNC LINES

[TRIAL PROGRAM]

SEQ 0003
2.2

STORAGE
Program will use all 8K of memor; except where ABL and BOOTSTRAP
LOADER
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 and 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

=« SIZE

- NN
—
VW= NININN
NNN

ABSOLUTE LOADER starting address *500

12k
16k

20k
24k
28k
%W

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

3.1.2

Depress

3.1.3

Depress °‘START KEY' on
loading into CPU)

'LOAD ADDRESS'

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 existing parameters set up by
pro?ram

prev1ousl£

SIZING®,.(section 7.2 and

run

DV11

diagnostic

8.4,8.5 may be

helpful)

DVil

trial

that 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
1506
1510
1512
1514
1516
1520
1522

The above

starti

175000
000300
000226
000062
000226
000062
000226
000062
000226
000062

is only an example!

at_add.

1500

This

the

would

program.

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

4.1

type

'R'

indicate

DONE.

THE

For

the

status

table

STATUS TABLE MUST BE

information of

status

and proceed to run the diagnostic

CONTROL SWITCH SETTINGS
NOTE:
SW 15
SW 14
SW 13
SW 12
SW 11
SW 10
SW 09
SWw 08
SWw 07
SW 06
SW 05
SW 04
SW 03
SW 02
SWw 01
SW 00

If 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
Catch error and loop on it
Use previous status table.
C(LR-do AUTO SIZE.
Set- single H325 turn around Clr- multi H325 turn around
Reserved
Reserved

Reserved
Lock on selected test
Restart pro?ram at selected test
Reselect DVI1's desired active.

SEQ 0005
£.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
Dv1l's
active.
this means
1if
the
system has
four
DVils;
bits

00,01,02,03
register.

will

Using

set

this

Lloc

'DVACTV'

from

switch(SW00)

the

alters

switch
that

--m

ME THOD :

oo
>»

location; therefore
if four DV11s are in the system *%*D0 NOT**=
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

Sw 01

given information about

Load address 200
Start with SW 00=1

Program will

in trial program.

type messa?e

Set the binary
number of
DV11:
3=2
DVI1;
7=3

DVIils
DV11;

]

desired active
EXAMPLE:
1=1
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 SELECTED TEST

that

is strongly sug?ested

least one pass hass been made before trying to select
a

test that is not in the order of sequence the
reason
being
is
that the program has to clear areas and set up
parameters.
Also
?::? ?E§$st is selected ALWAYS START AT THE
VERY
BEGINNING
OF

Sw 09

LOOP ON CURRENT DATA:
this
switch
will
only
work
if
call
'SCOP1'
is in that test.
The reason being that most tests deal
with blocks of 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

SWITCH REGISTER PRIORITYS
ERROR SWITCHES
1.

SW 12

Delete print out/bell on error.

SW 08

Goto beginning of

Lo
W
N

SCOPE
Ve

SW 13
SW 15

Delete error printout.
Halt on the error.

SW 10

the test(on error).

Goto next test(on error).

SWITCHES
SW 09 (if enabled by 'SCOP1') on an error;
If an '*' is printed
in
front
of
the
test
no.
(ex.
«TEST
NO.
10 ) SW09 is
incorporated in that test and therefore SW09
is
*usually*
the

best switch for the scope loop (SW14=0, SW10=0, SW09=1, SW08=0).
If
SW09
is
not
enabeled;
and
there
is
a
*HARD*
error
(constant);
SWOB is best.
)
3
(SW14=1,0,
SW10=0,
SwW09=0,
SW08=1).
for
intermittemt
errors;
SW14=1
will
Lloop on test reguardless of error or not
error.

"8
3.
4.2

SW 14
Sw 11

(SW14=1, SW10=0, Sw09=0,

Sw08=1,0)

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

NOTE:

1nput

program.

If address 000042 is non-zero the program assumes
it
is
under
ACT11
or
XXDP
control
and
will
act accordingly after *ALL*
gxg}l??&e DV11's are tested the program will return to 'XXDP' or

OPERATING PROCEDURE
when program is

initially started messages as described

and program will

begin running the diagnostic

will be printed.

in section

four

SEQ 0007

5.2

PROGRAM AND/OR OPERATOR ACTION

The typical approach should be

Halt on error (via SW 15=1) when ever an error occurs.

Set SW 13:

2.
3.

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

(inhibit error print out)

The TEST NUMBER and PC will be typed out and possibily an error
message
(this depends on the test) to give the operator an idea as to the source

of the problem.
if 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
EXACT
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 of the error.

6.2

ERROR RECOVERY

It 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 runnln? at the time of the catastrophic
error.
In
this
way
the operator will have an idea as to what the DV11 was doing at the
time of the error.
RESTRICTIONS

STARTING RESTRICTIONS

See section 4.

(PLEASE)

Status table should be verified reguardgess of how program was
started.
Also
it
is
important
to
wuse 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

CONFIGURATION RESTRICTIONS

(SYNC LINE

CARDS ONLY)

Hardware must be set to FULL DUPLEX

ALl

lines of a particular Line card must be configured the same.

MISCELLANEOUS

EXECUTION TIME
ALL DV11 device diagnostics will give an 'END PASS'
mgssage
(proy idin
no
errors
and
swi2=0) within 4 mins.
This is assuming
SW11=1 (DELET
ITERATIONS)
is set to give the fastest possible execution.
The
actual
execution time depends greatly on the PDP11

8.2

(CPU configuration.

PASS COMPLETE

NOTE:
+EVERY* time the program is started:
the tests will
run
as
if
SW11
(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

be a

"QUICK PASS'

untill

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

the

in system

following

000001 ERRORS:

000000

The numbers for (SR and VEC are not necessarily the
values
for
the device.
They are onl{ for this example.
r
CZDVE (MODEM AND CABLE TEST) END PASS message is
a
Llarge
"END'’
typed
out
on
tt;.
Please note that each
character printed is

actually and "END PASS''

indication.

This was used in

place

mistaken for END PASS.

The pass execution is so fast

that

the

"BELL'"

standard

because
END

sw12=1 and an error occured the BELL may be

PASS was too lenghtly.

THEREFORE each char is an

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

czl

SEQ 0009
KEY LOCATIONS

RETURN (1212)

(1214)

RUN

(1302)

TSTNO

(1224)

DVCROO-DVCR17
DVSTO0-DYST17
(1500)-(1736)

Contains the address
iteration

asserted.

DVACTV (1276)

count

1is

where

reached

program
or

will

loop

now

These

locations contain the

information needed

8 (decimal) DV11s sequentialy.

will

test.

test

tested.

EXAMPLE :

current

the

(DVACTV)

00,04 will be
DV11

under

BIT 07-00

VoM~
00

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 Lline card.
Set:
Reserved
Set
Bits per char.
(used with bit8)
Set
Bits per char.
(used with bit9)
BITO9 BITO8 BITS PER CHAR.
OO

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

teste

Contains the receiver csr

-0 =0

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

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

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

when

test

they contain the

1276/2000000000010001 Means that DV11 no.

(1356)

running.

00,01,02,03,06
DVSCR

return

Contains the address of the next test to be peformed.
Contains the number of the test now being peformed.
The bit
in
'RUN'
always
points
one
past
the
DvV11
currentl
bein
tes.ed.
EXAMPLE :
(RUN)
1302/
1000000 Means that DV11 no.0S is the DvV11

[ L
P
T e Y
OO =NWSHWM

8.4

SYNC "A"" for specified Line card.

SEQ 0010
MORE ON THAT *STATUS TABLE'

(1500-1736)

nNOONSNO
Nr\)—l_n_a_ng

i
e
i
b
d

The above

vivvvainauvioa

‘MAP OF DV11 STATUS'
175000
1500
1502
000300
1504
000226

000062

information will be repeated

?gasem(these will

175000

1502
1504

EXPLANATION:

in the

This is the system control register for the 1st DV11
the system.
]
L

000300
000226

This is vector 'A' for the first DV11 in the system.
This represents 'SYNC A' and the software status for the
1st Line card in the 1st DV11.
The bits are as follows:

BIT 15

Set:

BIT 13
BIT 12

Set:
Set:

BIT 10
BIT 09
BIT 08

Set:
)
.
Set:
Bits per char.
(used with bit8)
Set:
Bits per char.
(used with bit9)
BIT09 BI T88 BITS PER CHAR.
0
0
0

BIT 14

BIT 11

Set:

Line card *NOT installed (AND WONT BE TESTED)

Parity enabled
Even parity selected

One sync, =0:

BIT 07-00
000062
000226

1512
1514

000062
000226

1516
1520

000062
000226

1522

000062

This
This
(for
This
This
(for
This
This
(for
This

two syncs.

Async Line card,
Reserved

1506
1510

for each of up to 8 DV11's

follow under this table).

SYNC

=0 Sync

line card

ViOoN~N
00

8.4A

'A'

for specified Line card.

represents 'SYNC B' for the 1st line card.
is 'SYNC
A' and line status for the 2nd line
bits defination see explanation for Line card
is 'SYNC B' for the second line card.
is 'SYNC A' and lLine status for the 3rd Line
bits defination see explanation for Line card
is 'SYNC B' for Line card no.
.
is 'SYNC A' and Line status for the 4th Line
bits defination see explanation for Line card
is SYNC B for the 4th Line card.

The above is repeated for each DV11

in the system.

card.
1).

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.**notex* 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
.,

czt

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

czt

SEQ 0012
8.5

*x* METHOD OF AUTO SIZING w**+

8.5.1

FINDING THE CONTROL STATUS REGISTER.
The program will
start
at
address
175000
and start
‘'REFERENCEING'
address.
If a NON-EX MEMORY TRAP occures;
the pointer (hold1n95568009)
- is
ated by 10 and the above is
repeated
untill
address
1
is
reached.
If
a
'SLAVE
SYNC
RESPONSE' was issued bf the DV11 (or any

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

ve:

NOTE :
If the program does not find your DV11;
AUTO SIZING should rot be done.

8.5.2

something is wrong

and

FINDING THE VECTOR

The vector area

'.+2'

are set

(next

(address 300-776)

address).

is filled with the instruction 10T and

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

into DVscr re31ster:

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 DVI1

interupted to is picked

up and reported as the vector.
NOTE:
if the vector reported is not the
vector set up by you;
there is a problem and AUTO SIZING should not
be

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 95% of the parameter setup was done
?zegfg
Eogram and 5% by you.
N

ALL LINE CARDS(4) ARE ASSUMED TO BE INSTALLED.

TWO SYNCS.
.
Set Bit12 if ‘ou have a 4 Line group set for 1
EIGHT BITS PER
CHAR.

3)
4)

Set Bit15 of status map of any (appropriate)

line cards missing

sync.

Adjust bits 9 and bit 8 in status map for your correct config.
SYNCHRONOUS 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 for greater detail.

czt

VEC LST

SEQ 0013

DOCUMENT
AP

A AR A AR A AP

CZDVEC LST
(2222222222222

VEC LST

SEQ 0014

AC-8744C-MC/<377>/CZDVECO DV11 MODEM CNTRL

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

LOOP AROUND FUNCTIONS

RING

CTS

BITO7

BITO6

SECRX

CTS

SRR

DSR

BITOS

)

1267

(H325)

BITO&

SECTX

RTS

BIT03‘

RTS

BITO02

TRDY

BITO1

LENAB
LENAB
BITOO

»+*

SIGNALS

FOR

ASYNC

x*+

SIGNALS

FOR

SYNC

)

s st
eI
223222222322223%3

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

(A) H325
(B) HB861

TYPE

.lAl.

.B.C

THE H325 TURN AROUND IS USED FOR THE SINGLE LINE

TURN AROUND AT THE DISTRIBUTION PANEL OR

THE END OF

THE H861

THE MODEM CABLE.

TURN AROUND IS USED FOR THE 16 LINE TURN AROUND.

IF THE H325 WAS SELECTED (A) THE FOLLOWING WILL BE TYPED
IF SW06=0:

SELECT LINEC(S):

XOOOOOXXXXXXXX

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 "0'' UNDER THE APPROIATE ‘X'‘(LINE)
TO EITHER SELECT(1) OR NOT TEST(0)

AFTER ALL 1'S AND 0'S ARE

TYPED;

EACH LINE.

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'’
IF

CHAR.

PLEASE REG&EN}HE SECTION ON PASS COMPLETE
IN DOC

THE H325 IS SELECTED AND SW06=1

THE FOLLOWING WILL BE TYPED:

LC.
iLC

VEC LST

SEQ 0015

SINGLE LINE:

THE USER MUST THEN TYPE

IN A SINGLE LINE HE DESIRES

END PASS IS THE SAME.

REGUARDLESS OF WICH CONNECTOR WAS SELECTED;
THE LAST QUESTION IS

MODEM VECTOR:

(THIS WILL BE ASKED ONLY AT THE

OR WHEN A DIFFERENT DV11

(00-17)

=-OCIAL-

THE

INIATL START OF

PROGRAM

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 SWO0 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:
wxxALL«*+« MODEM VECTORS MUST BE AT 300
sxxAL[ **+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

LA AR

1466

1503

1530

1557

SRRttt

NUMBER OF FULL PASSES THROUGH MULTIPLE DEVICES.
'LARGE END AND TYPE OUT MAY BE INHIBITED BY Sw12!
st

ARFARRRKNRRRRAAARRAARAN

TEST

At v

2222223232223232

kAR ANAR KRR AR AR AR k®

INITIALIZATION CHECK
VERIFY THAT CONTROL STATUS REGISTER AND LINE STATUS
REGISTER WERE CLEARED BY INITIALIZE
REAARARRRARRNRRRAANAARE

TEST

e e A A A A A AR AR AR R AR AR R AR RN

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

TEST

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

At e A

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

TEST

A A A A A AR R AR R AR AR AR R AR

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

1584

RARAR AR AR A AR AARA AR A AR AR

[EST

€

waaarr arh v A kA AR AR R R AR R AR A&

VERIFY THAT ‘‘SCAN ENABLE'' CAN BE

SET AND CLEARED.
1610

RANARRAARRARRRRAARRARRE

TEST

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

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

D
1638

1659

ARRRRARRANRRARRARRINNRARY

TEST

Arn s

VEC LST

e a v e e Ak AR R AR AR AR R

R R AR

VERIFY THAT SETTING "DONE'' DOES NOT CAUSE AN
INTERRUPT IF ''INTERRUPT ENABLE'' IS CLEARED.
RERRIARRARARAARAACAAARS,

TEST

et v ar A

A AR AR R AR R kR

VERIFY THAT NO INTERRUPT OCCURS WITH "'INTERRUPT ENABLE''

SET AND 'DONE’* CLEARED.

1680

1703

EARKRRRRREARAARARARAAAE

TEST

Anan

e a

A v

A AR R AR AR AR AR

VERIFY THAT SETTING 'DONE'' CAUSES AN INTERRUPT
WITH ""INTERRUPT ENABLE'' SET
AAXRRRNRARRRRNANRRAANRANY

TEST

Ana

e a

A A AR R AR AR R AR AR AR

VERIFY THAT NO INTERRUPT OCCURS WITH

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

AAARANRRAAKRARAANRARRARN

TEST

na s

kA kA kAR

AR A AR R R AR RN,

VERIFY THAT NO INTERRUPT OCCURS WITH

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

AARRRARINKRAANANRAANARN

TEST

v a

kA kAR AR

AR ARk ke k k&

VERIFY THAT NO INTERRUPT OCCURS WITH

"'INTERRUPT ENABLE'' SET AND "DONE'' SET AT PRIORITY 5.
KARARRRARARAARRRAAAARRE

TEST

716

A kA A kA AR AR

R ARk

A AR AR R AR R AR R

AR kAN

VERIFY THAT NO INTERRUPT OCCURS WITH

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

EARRRARRARARARRAANRANRE

TEST

717

SAnaa s a

VERIFY THAT AN INTERRUPT OCCURS WITH ‘'INTERRUPT

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

EARAAIRRKRFAARRARRRRRARN

TEST

Atat

kA Ak AR AR AR AR AR AR Rk *

VERIFY THAT AN INTERRUPT OCCURS WITH ‘‘INTERRUPT

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

AARRRKRAARRRAAKARARANAN

TEST

Ak a v e

kA A

AR AR A AR A AR A&

VERIFY THAT AN INTERRUPT OCCURS WITH ‘‘INTERRUPT

ENABLE''" SET AND 'DONE’* SET AT PRIORITY 2.
1850

AEARRRRAARNARRRRRRRARAE

TEST

taaaaa A A

kA AR A AR AR AR AR

AR %

VERIFY THAT AN INTERRUPT OCCURS WITH ‘‘INTERRUPT

ENABLE'® SET AND ‘DONE’' SET AT PRIORITY 3.
1870

AEARRRRARRRNARRRARRRRNR

TEST

A ar a A A A AR A AR AR AR AR AR AR AR

VERIFY THAT ALL LINE NUMBERS CAN BE WRITTEN INTO AND

READ BACK FROM LINE COUNTER

1896

ERARRRRANRNARRANSRRARRN

TEST

Aanan

At At A AN AR AR AR AR AR R

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

SEQ 0016

E
1923

ERRRRRRRRRARRARARCRRNRR

TEST

At A

2
AN

VEC LST

AR AR AR R AR R RS

WRITE 1'S INTO ALL SCANNER MEMORY LOCATIONS.
¥5R{f§ THAT ALL LOCATIONS HAVE BEEN WRITTEN

VERIFY THAT '‘CLEAR SCAN'' CLEARS ALL SCANNER

MEMORY LOCATIONS.
1975

2018

ARRXRRRARNNRARRANRANRRANE

TEST

St r et vt e A A

A AR A A R AR AR AR R AN ®

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

WITH ALL

TEST

ekt ra A kAR

A AR

A AR AR AR R

SCANNER MEMORY LOCATIONS SET TO 1'S,

WRITE 0'S INTO SELECTED LOCATION
VERIFY THAT ONLY SELECTED LOCATION WAS CLEARED.

2062

ARRRRRNRARARRAARARAANRE

TEST

A nanara

e Ak A

AR AR AR A AR R AR ARk

VERIFY THAT °''CLEAR MULTIPLXER'® CLEARS ALL MULTIPLEXER
FUNCTION FLIP=FLOPS

2103

KERRRARRAARKANAARRRAAAY

TEST

r e

AR A AR R AR AR AR ARk *

WRITE 1°'S INTO ALL SCANNER MEMORY LOCATIONS

SET "LINE ENABLE FOR ALL LINES

VERIFY THAT AN INTERRUPT OCCURS FOR EACH LINE

2157

2235

2282

2329

2376

RARKRRRARRARRAANRAAAARE

TEST

kA AR A AR AR AR AR R AR

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

TEST

aata

v a a v

AN A AR A AN R AR AR R AR RN

VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN
BE SET AND CLEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H325 TURN AROUND IS USED
ARRARKRRRRARRAAARARRRAN

TEST

Arataar e A

A A AN

AR AR R AR AR AR R

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

TEST

m e a h

v e kA AR A AR RN AR AR AR AR AR

VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN
BE SET AND CLEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H325 TURN AROUND IS USED
KAXRRRAKAARARARAKARNRAN

TEST

Aan

v a e A kA AN AR R AR AR RN R AR AR AR

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

TEST

IS DONE

FUNCTION FLIP-FLOP CAN

THE H325 TURN AROUND IS USED

SEQ 0017

2424

ARRRENRAAARRARRARCRANRAN

[EST

A e e r e ek AR AR R AR R AR R R AR R R

VERIFY THAT RING IS SET IF "LINE ENABLE''

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

2471

2518

ARRRRRRRARRRRRRRRARRNAR

TEST

wnnaaaa e a

v ek a e A

AR AR AR AR Rk

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

TEST

A v kA A AR AR R A AR

VERIFY THAT DATA SET READY(SECRX IF ASYNC LC)

R R AR A R

IS SET IF "LINE ENABLE''

AND NEW SYNC (SECTX IF ASYNC LC) ARE SET FOR SELECTED LINE.
THIS TEST IS DONE IF THE H325 TURN AROUND IS USED

2564

2618

2672

2726

2781

2835

2889

ERRARNARRARRANKARARANINE

[EST

AAnaa

v kA kAR R AR AR AR R AR AR

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

TEST

Araaaaa a e a A e kAR AR AR AR A AR AR R

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

TEST

Arn st

v Ak kA AR AR R AR AR ARk

VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN
BE SET AND CLEARED FOR SELECTED LINE
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
ARKIRRRARARRRRANRRNARAN

TEST

aaara

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

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

TEST

AARAANA AR AN AR AR

AR R AR

R AR AR AR

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

TEST

AAm

A kAR R AR AR AR R

AN R AR

VERIFY THAT RING IS SET IF "LINE ENABLE"'
AND REQUEST TO SEND ARE SET FOR SELECTED LINE.
THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
AARRRRNRRRARANRARARRARR

TEST

S50

Aramataa
a e v v a v e h AR
AR AA RN R

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.

VEC LST
SEQ 0018

G
2942

rannnnnnnhnnnnnnnwnnwrn

[EST

wanmnnneennnntaenannnnnnannnnnn

DVi1 SINGLE LINE CABLE TEST.
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 BA(K

TXWC :
RXBA

-42(8)-BIT15
RXBA

NOTE:

FOR TEST OF ASYNC LINE

TXBA:

SYNC

RXWC :
=40(8)-BIT15
LINE PROTOCOL TXDDCMP,RXDDCMP,LRC8,STRIP SYNC,IDLE MARK
LINE STATE
EXPECT BCC,TX GO
LINE PROGRESS
SEND BCC
"'SYNC

CARD;

'A'"" MUST BE SET TO ALL ZEROS

IN SOF TWARE

STATUS MAP,

VEC LST

SEQ 0019

H
CZDVEC.P11

INTRODUCTION TO DV11 DIAGNOSCTIC

;*AC-8744C-MC/<377>/CZDVECO DV11 MODEM CNTRL

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

s STARTING PROCEDURE
;LOAD PROGRAM
:LOAD ADDRESS 000200

;PRESS START

=00V
NV
NN =O0V00 NV

19-MAR-79 09:06

;PROGRAM WILL TYPE '‘AC-8744(C-MC/<377>/CZDVECO DV11 MODEM CNTRL''

;PROGRAM WILL TYPE ‘R'' TO INDICATE THAT TESTING HAS STARTED

TYPE PASS COMPLETE MESSAGE

;SWITCH REGISTER OPTIONS

—

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

SW15=100000
SW14=40000
SW13=20000
SW12=10000

:=1,HALT ON ERROR
:=1,LO0OP ON CURRENT TEST
;=1,INHIBIT ERROR TYPEOUT
;=1,DELETE TYPEOUT/BELL ON ERROR.

Sw10=2000

;=1,ESCAPE TO NEXT TEST ON ERROR

SW08=400
SW07=200
Sw06=100
SW05=40
SW04=20
Sw03=10
Sw02=4
Sw01=2
Sw00=1

;=1,LO00P ON ERROR
:=1, DO "'AUTO SIZING'' ON INITAL START UP.

SW11=4000

SwW09=1000

:=1,INHIBIT ITERATIONS

:=1,L00P WITH CURRENT DATA

;LOCK ON TEST SELECT
sJRESTART PROGRAM AT SELECTED TEST
JRESELECT DV11 DESIRED ACTIVE
sNOTE: THIS MUST NOT EXCEED ORIGINAL COUNT

MACY

SEQ 0020

1
CZDVEC.PI

19-MAR-79 09:06

GENERAL DEFINATIONS AND EQUIVALENCIES

sREGISTER DEFINITIONS
000000
000001
000003
000004
000005
000006
000007

RO=%0
R1=%1
R2=%2
R3=%3
R&=%4
R5=%5

SP=%6

PC=%7

sGENERAL
sGENERAL
sGENERAL
;GENERAL

sGENERAL REGISTER
;GENERAL REGISTER

;PROCESSOR STACK POINTER

:PROGRAM COUNTER

;LOCATION EQUIVALENCIES
177776
001200

PS=177776

STACK=1200

sPROCESSOR STATUS WORD

;START OF PROCESSOR STACK

BI1T15=100000
BIT14=40000
81713=20000
B1T12=10000
B81T711=4000
B81710=2000
BIT9=1000
BIT8=400
BIT7=200
BIT6=100
BIT5=40
BIT4=20
BIT3=10
BIT2=4
BIT1=2
BITO=1
ALU=BIT12
RAM=RBIT13
XFR=BIT13+8IT12
NPR=BIT14
S.C=BIT14+B]T12
BCC=BIT14+BIT13
BRB=BIT14+BIT13+B]T12

MACY

SEQ 0021

J
CZDVEC.PN

19-MAR-79 09:06

TRAPCATCHER FOR UNEXPECTED

83
84
85
86
87
88
89
90

91
92
93
94
95
9%
97
98
99
100
101

102
103
104
105

106

107

108
109
110
m
112
113
114
115
116
117
118

; TRAPCATCAER FOR ILLEGAL INTERRUPTS
;THE STANDARD ‘‘TRAP CATCHER'' IS PLACED

;BETWEEN ADDRESS O TO ADDRESS 776.
;1T LOOKS LIKE 'PC+2 HALT''.

::Qt..t..Q't..fi..'..tt.Q""t.t....'t...Q"t..'..t....'t".......'.Q..

.=0

000024
000026
000030
000032
000034

000036

000174

LIGHT:
=176

129
130

13
132
133
134
135
136
137

s STANDARD INTERRUPT VECTORS

PFAIL
340

HLT
340
_TRPSRV
340

:POWER FAIL HANDLER
*SERVICE AT LEVEL 7
*ERROR HANDLER
“SERVICE AT LEVEL 7
*GENERAL HANDLER DISPATCH SERVICE
“SERVICE AT LEVEL 7

BLKW 1

:SAVE FOR ACT=11 OR DDP2

{0GI CAL

“FOR USE WITH ACT=11

"BLKW 1
"BLKW 1

*RETURN ADDRESS IF UNDER ACT-11
“SAVE FOR ACT-11 OR DDP2

OR DDP2

SSWR:

000200

122

128

=174

000176

001200
001200

126
127

000040
000042
000044
000046

001000

123
124
125

INTERUPTS

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

119

(2)
120
121

.=200

001742

001000

005377
001200

001202

177570
177570

001204
001206
001210
001212

177560
177562
177564
177566

041501

034055

.=1000

MTITLE:

JMP

.START

:GO 70 START OF

PROGRAM

.ASCIZ

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

MODEM CNTRL/<377>

.=1200

CIGHTS:

SWR:

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177570
177570

:INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS
177560
177562
177564
177566

;TELETYPE KEYBOARD CONTROL REGISTER
“TELETYPE KEYBOARD DATA BUFFER
“TELEPRINTER CONTROL REG!STER
‘TELEPRINTER DATA BUFFER

:PROGRAM CONTROL PARAMETERS
001214
001216
001220

RE TURN:: 0
000000

NEXT:
LO(k:

0
0

:SCOPE ADDRESS FOR LOOP ON TEST

;ADDRESS OF NEXT TEST TO BE EXECUTED
JADDRESS FOR LOCK ON CURRENT DATA

MACY

SEQ 0022

€2

138

139

140
141
142
143
144

S\h\fl\.fig\fl\flm\fl
VoONONVN
S W

g
———

151

001222
001224

19-MAR-79 09:06

000003

000000
000000
000000
000000

PROGRAM PARAMETERS,

ICOUNT:
LPCNT:

TSTNO:
PASCNT:

ERRCNT:
LSTERR:

VARIABLES,

OOOOOW

CZDVEC P1

2
AND TRAP (CALLS.

MASKX:
TEMP1:
TEMP2:
TEMP3:
TEMPS4:
TEMPS:

SAVRO:
SAVR1:
SAVR2:
SAVR3:
SAVR4:
SAVRS:

0
O
0

O
O
O
0
O
O

0
0
0
0
0
0
0
O

SAVSP:
SAVPC:
DVACTV: .BLKB 1
DVNUM:
_.BLKB 1
SAVACT: .BLKB 1
SAVNUM: .BLKB 1
RUN:
.BLKB 1
.EVEN
CREAM:
DV.MAP

;DV STATUS WORD STORAGE

: TEMPORARY STORAGE
: TEMPORARY STORAGE

: TEMPORARY STORAGE

: TEMPORARY STORAGE
; TEMPORARY STORAGE

;RO STORAGE

;R1

STORAGE

;R2 STORAGE
;R3 STORAGE
;R4 STORAGE

;RS STORAGE

:STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE

;DV11°'S SELECTED ACTIVE.
;OCTAL NUMBER OF DVI11°S.
sORIGINAL ACTV.
DEVICES.
s WORKABLE NUMBER.

;POINTER ONE PAST RUNNING DEVICE.
;TABLE POINTER.

MACY

SEQ 0023

sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
;NUMBER OF ITEREATIONS COMPLETED
;NUMBER OF TEST IN PROGRESS
;NUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF ERRORS
;PC OF LAST ERROR CALL

;PROGRAM VARIABLES

STAT:
SYNCX:
CLKX:

A
19-MAR-79 09:06

CZDVEC.P1

VARIABLES, AND TRAP C(ALLS.

el ek
-

b b

WWWW

8888

INIFLG:
ERRFLG:
LOKFLG:

QV.FLG:

.BYTE
.BYTE
.BYTE
.BYTE

0
0
0
O

sPROGRAM INITIALIZATION FLAG
;ERROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG
;QUICK VERIFY FLAG.
;ON FIRST PASS OF EACH DV11

ITERATIONS WILL BE SUPPRESSE

D e

$v=0

D o

D e

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

001314

—

d D

D o

::t.fi.tttQ'.fi'.t.tttttfi..'....'tfi.t.'t.t....'.'...t...t.tQQQQ..QQ'Q.Q.

001316
001320
001322

001324
001326
001330

001332

001336

001342

001344

nono

d ad

001340

N=O0 ONOWVISWN=O

001334

223

001346

001350

$LOPE 2 TRAP+0
SCOP1=TRAPSY

;CALL TO SCOPE LOOP AND ITERATION HANDLER
;CALL TO LOOP ON CURRENT DATA HANDLER

1~sm=mfi;§m

;CALL TO ASCII STRING INPUT ROUTINE

INSTER=TRAP+4

:CALL TO INPUT ERROR HANDLER

rvpe=m~:>?§::1

:CALL TO TELETYPE OUTPUT ROUTINE

PARAn:w:\éEEZR

;CALL TO NUMERICAL DATA INPUT ROUTINE

SAvossz's:;eos

;CALL TO REGISTER SAVE ROUTINE

RESOS=TRAP+7

:CALL TO REGISTER RESTORE ROUTINE

nsrcmfl%\fiék

;CALL TO ISUE A MASTER CLEAR

cmvnrzréfigf%
CNVRT=TRAPSYT

;CALL TO DATA OUTPUT ROUTINE
;CALL TO DATA OUTPUT "ROUNTINE WITHOUT CR/LF.

RMCLR=T%RR

;CALL TO CLEAR THE RAMS

DELAY=TRAP+14

;CALL TO VARIABLE DELAY COUNTER

ROMCLK=TRAP+15

:CALL TO CLOCK ROM ONCE

mmcn.x:igg;s%g

.DATACLK

;CALL TO CLK DATA

::'ttt.'i..."ttt.fi.t'tl"'....l...t'ttttt.ti.'...tt.t..t'..'lt."t..t

MACY

SEQ 0024

;PROGRAM CONTROL FLAGS

d nd

D -

S8 OO R S g BB ER IR RRRE Y I

172
173
174
175

PROGRAM PARAMETERS,

m2
CZDVEC.PN

19-MAR-79 09:06

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

;DV11 VECTOR AND REGISTER INDIRECT POINTERS
001352

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

0
9
0
0
0
0
O
0
0
0
0
0
0

;POINTER
;POINTER
;POINTER
sPOINTER
;POINTER
sPOINTER
;POINTER
sPOINTER
sPOINTER
;POINTER
;POINTER
sPOINTER
;POINTER

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

RESV16: 0

;DV11 CONTROL INDICATORS FOR CURRENT DV11 UNDER TEST
MASK.A:
MASK.B:
MASK.C:
MASK.D:

.WORD
.WORD
.WORD
.WORD

000
000
000
000

sLAST
sLAST
sLAST
sLAST

CLK.A:
(LK.B:
CLK.C:
CLK.D:

.BYTE
.BYTE
.BYTE
.BYTE

8.
8.
8.
8.

sNUMBER
sNUMBER
sNUMBER
sNUMBER

L00.03: 000000

CHAR
CHAR
CHAR
CHAR

OF
OF
OF
OF

TO
TO
TO
TO

TEST
TEST
TEST
TEST

CLOCKS
CLOCKS
CLOCKS
CLOCKS

AND
AND
AND
AND

PARITY
PARITY
PARITY
PARITY

NEEDED
NEEDED
NEEDED
NEEDED

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

;PARAMETERS FOR LINES 00-03

L04.07: 007,00
LO8.11: 0LV000
L12.15: 000000

;sPARAMETERS FOR LINES 04-07
;PARAMETERS FOR LINES 08-11
;PARAMETERS FOR LINES 12-15

SYNC2A:
SYNC2B:
SYNC2C:
SYNC2D:

:SYNC 2
3
3
3

000000
000000
000000
000000

;s SUMMARY

>
3
:

MASK . X

s
-

CLK.X

IF PARITY IS ENABLED; ADD PLUS ONE TO THE ABOVE

3
:
-

040
100
200
400

005
006

007
010

S BITS PER CHAR.

6 BITS PER CHAR.

7 BITS PER CHAR.
8 BITS PER CHAR.

S BITS PER CHAR.
6 BITS PER CHAR.
7 BITS PER CHAR.
8 BITS PER CHAR.

FOR EACH GROUP THAT PARITY IS ENABLED.

''CLK.X"''

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

LINES
LINES
LINES
LINES

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

MACY

SEQ 0025

N
CZDVEC.PN

19-MAR-79 09:06

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

;DV11 STATUS TABLE AND ADDRESS ASSIGNMENTS
.=1500

— e

e e

=OVONOWVISWN=O

833

DV.MAP:

322

DVCROO: .BLKW 1
DVTROO: .BLKW 1
DV00.A: .BLKW 1
SYNAQO: .BLKW 1
Dv00.8B: .BLKW 1
SYNB0O: .BLKW 1
DV00.C: .BLKW 1
SYNCOO: .BLKW 1
DVv00.D: .BLKW 1
SYNDOO: .BLKW 1

sCONTROL STATUS REGISTER FOR DV11 NUMBER 00
;VECTOR "'A"* FOR DV11 NUMBER 00
;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 00
s SYNC TWO
sPARAMETER FOR LINES 04-07 FOR DV11 NUMBER 00
s SYNC TWO
;PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 00
s SYNC TWO
;PARAMETER FOR LINES 12-15 FOR DV11 NUMBER 00
:SYNC TWO

DVCRO1:
DVTRO1:
DVO01.A:
SYNAO1:
DVv01.B:
SYNBO1:
DVO01.C:
SYNCO1:
DV01.D:
SYNDO1:

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

1
1
1
1
1
1
1
1
1
1

;CONTROL STATUS REGISTER FOR DV11 NUMBER 01
sVECTOR "A"* FOR DV11 NUMBER 01
;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 01
:SYNC TWO
sPARAMETER FOR LINES 04-07 FOR DV11 NUMBER 01
:SYNC TWO
sPARAMETER FOR LINES 08-11 FOR DV11 NUMBER 01
:SYNC TWO
sPARAMETER FOR LINES 12-15 FOR DV11 NUMBER 01
sSYNC TWO

DVCROZ2:
DVTROZ2:
DV02.A:
SYNAQ2:
DV02.8B:
SYNBO0Z2:
Dv02.C:
SYNCO2:
DV02.D:
SYNDO2:

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

1
1
1
1
1
1
1
1
1
1

sCONTROL STA:US REGISTER FOR DV11 NUMBER 02
sVECTOR "'A"" FOR DV11 NUMBER 02
sPARAMETER FOR LINES 00-03 FOR DV11 NUMBER 02
sSYNC TWO
;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 02
:SYNC TWO
sPARAMETER FOR LINES 08-11 FOR DV11 NUMBER 02
sSYNC TWO
sPARAMETER FOR LINES 12-15 FOR DV11 NUMBER 02
;SYNC TWO

DVCRO3:
DVTRO3:
DV03.A:
SYNAO3:
DV03.8B:
SYNBO3:
DVv03.C:
SYNCO3:
DV03.D:
SYNDO3:

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

1
1
1
1
1
1
1
1
1
1

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

DVCRO4: .BLKW 1
DVTRO4: .BLKW 1
DV04.A: .BLKW 1
SYNAQS: .BLKW 1
DV04.B: .BLKW 1
SYNBO4 : .BLKW }
DV04.C: .BLKW

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

MACY

SEQ 0026

B
19-MAR-79 09:06

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

s SYNC TWO
;PARAMETER FOR LINES 12=15 FOR DV11 NUMBER 04
:SYNC TWO

SYNCO4: .BLKW
DV04.D:
SYNDO4: .BLKW

DVCROS:
DVTROS:
DVOS5.A:
SYNAQS: .BLKW
DV05.8B: .BLKW
SYNBOS::
DVO0S5.C: .BLKW

DVCRO7:
DVTRO7:
DVO7.A:
SYNAQ7:
DV07.8B:
SYNBO7:
DVO7.C:
SYNCO7:
DVO07.D:
SYNDO7:
DV.END:

.BLKW

N S Y

FOR LINES 04=07 FOR DV11 NUMBER 05
FOR LINES 08=11 FOR DV11 NUMBER 05
FOR LINES 12=15 FOR DV11 NUMBER 05

;CONTROL STATUS REGISTER FOR DV11 NUMBER 06

;PARAMETER
s SYNC TWO
;PARAMETER
s SYNC TWO
;PARAMETER
s SYNC TWO
sPARAMETER
:SYNC TWO

YO Y

.BLKW
.BLKW

FOR LINES 00-03 FOR DV1? NUMBER 05

;VECTOR "A"* FOR DV11 NUMBER 06

B e e o

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

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

FOR LINES 12-15 FOR DV11 NUMBER 06

.BLKW

;CONTROL STATUS REGISTER FOR DV11 NUMBER 07

.BLKW

;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 07
:SYNC TWO
;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 07
sSYNC TWO
;PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 07

.BLKW
.BLKW
.BLKW

;VECTOR "A"* FOR DV11 NUMBER 07

D D

DVCRO6:
DVTRO6:
DVO6.A:
SYNAQG:
DV06.B:
SYNBO6:
DV06.C:
SYNCO6:
DV06.D:
SYNDO6:

;VECTOR "A"* FOR DV11 NUMBER 05

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

SYNCOS:
DV05.D:
SYNDOS:

;CONTROL STATUS REGISTER FOR DV11 NUMBER 05

:SYNC TWO

_— )

(ZDVEC.PN

;PARAMETER FOR LINES 12-15 FOR DV11 NUMBER 07
:SYNC TWO

000000

;PROGRAM INITIALIZATION
sLOCK OUT INTERRUPTS
sSET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
:CLEAR PROGRAM CONTROL FLAGS AND COUNTS
;TYPE

012737
012706
012737
113737
005037
105037
105037
012737
112737
005037

177776

000024
001303

.START:

TITLE MESSAGE

#340,PS

#STACK,SP
#.PFAIL ,a#24
DVNUM, SAVNUM
PASCNT

ERRFLG

001232

001306
001304

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

ERRCNT

;LOCK OUT INTERRUPTS

;SET UP STACK
;SET UP POWER FAIL VECTOR
;SAVE NUMBER OF DEVICES IN SYSTEM.
;CLEAR PASS COUNT
;CLEAR ERROR FLAG
sZERO QUICK VERIFY FLAG
;GET MAP POINTER.

sPOINT POINTER TO FIRST DEVICE.

;CLEAR ERROR COUNT

MACY

SEQ 0027

c
CZDVEC.P11
390
391
392
393

19-MAR-79 09:06

002024
002030
002036

005037
012737
012737

001234
000001
001742

3094
395

002044
002050

001310

397
398

002056
002062

705737
001063
013746
013746
005037

400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415

002074
002100
002102
002104
002106
002114
002122
002126
002132
002136
002142
002146
002150
002154
002160
002166

005777
000240
000407
022626
012737
012737
012637
012637
104402
105137
105777
100402
004737
104402
012737
017737

417

002202

001406

002206
002210
002216

005506
062737
000763

396

399

416

418

419
420
421

002052

002066

002174

0022064

422
42%
424
425
426

002220
002224
002226
00223&
002236

428
429
430
431
432
433
434
435

002244
002246
002254
002256
002262
002264
002266
002274

437
438
439
440
441
442
443

002304
002306
002312
002316
002320
002322
002326

427

436

444

002242

002300

002330

012737

022737

002104

177102

000174
000176
000006
000004
001000
001310
177034
000626
005461
001500
177054

177777

001226
001214

000004

001200
001202

001246
001250

001250

005737
001030
032777
001424
104402
005000

000000
127737
101404
104402
000000
000776
117737
113700

042700

000000
012700
012701
010120
005021
022021
022700

001372

CLR
MOV
MOV

LSTERR
#1,TSTNO
#.START ,RE TURN

TSTB
BNE
MOV
MOV
CLR

INIFLG
1%
4,~(SP)
6.=(SP)
6

ST
NOP
BR
CMP
MOV
MOV
MOV
MOV
TYPE
comMB
TSTB
8MI
JSR
TYPE
MOV
MOV

aSWR

81$
(SP)+, (SP)+
#LIGHT ,LIGHTS
#SSWR, SWR
(SP)+.6
(SP)+.4
MTITLE
INIFLG
aSWR
16$
PC,CSRMAP
,XHEAD
#DV.MAP, TEMP1
ATEMP1, TEMP2

BEO

MOV

808 :
81$:

16%:
5%:

104410

CMP

CONVRT

000002

001246

000042
000001

18:
176746

005402

176730

001302

005243

176710
001300

001300

2%:

177400

000300
000302

001000

PROGRAM INITIALIZATION AND START UP.

000004

000006
000006

XSTATQ
ADD
BR

ST
BNE
BIT
BEQ
TYPE
CLR
HALT
CMPB
BLOS
TYPE
HALT
BR
MOVB
MOVB

BIC

3$:
4$:

HALT
MOV
MOV
MOV
CLR
CMP
CMP

BNE

#80$ .4

#177777 , TEMP2

#2.,TEMPI
5%

G2
3$
#SW00, aSWR
3
+MNEW
RO

aSWR, SAVACT
2%
,MERR3

.2
@aSWR,DVACTV
DVACTV,RO

#°C<377>.R0
#300,R0
#302.R1
R1, (RO) +
(R1)+
(RO)+, (R1)+
#1000.R0

:CLEAR LAST ERROR POINTER
“SET UP FOR TEST 1
:SET UP FOR POWER FAIL BEFORE
:TESTING STARTS

JHAS INITIALIZATION BEEN PERFORMED
:BR IF YES
:
:
;

;

;
;
:
;

;
;
:
STYPE TITLE MESSAGE
;IF NOT SET FLAG AND DO
‘BIT7=122
:BR IF NO AUTO SIZE
;GO DO THE AUTO SIZE
:TYPE HEADER
;SET POINTER
*SET DATA

:ALL DONE?

:BR IF YES

.
;UPDATE POINTER

;1S PROGRAM RUNNING UNDER MONITOR
*BR IF YES
*SELECT SPECIFIC DEVICES??
*BR IF NO.
;TYPE THE MESSAGE.
:2ERO DATA LIGHTS

JWAIT FOR USER TO TELL WHAT DEVICES TO RUN
;1S THE NUMBER VALID?
:BR IF NUMBER IS OK.
JTELL USER OF INVALID NUMBER.
:STOP EVERY THING.
JRESTART THE PROGRAM AGAIN.
:GET NEW DEVICE PATTERN
*SHOW THE USER WHAT HE SELECTED.

*USE ONLY LOW BYTE.

*CONTINUE DYNAMIC SWITCHES.
:PREPARE TO CLEAR THE FLOATING
:VECTOR AREA. 300~776
*START PUTTING 'PC+2 - HALT"'
*IN VECTOR AREA.
:POP POINTERS
*ALL DONE??

*BR IF NO.

MACY

SEQ 0028

D
CZDVEC.PI

19-MAR-79 09:06

449

450

451
452
453
454

sTEST

012737
012706
005737
001023
032777
001411

000340
001200
000042

177776

000004

176622

012737
012737

000240
000240

002702
002704

003014
003016

002702
002704

012737

005666

001214

000177

176556

104402

000406
013737
013737
104402

005301

005171

PROGRAM INITIALIZATION AND START UP,

446

647
448

START AND RESTART

.BEGIN: MOV
MOV

#340,PS
#STACK,SP

BNE
BIT
BEQ

3%
#B1T2,aSWR
1%

MOV

#NOP,TTST

MOV

BRW,TTST

TST

TYPE

1%:

3%:

(%:

MOV
BR
MOV

#NOP ,TTST+2
2%

sLOCK OUT INTERRUPTS
sSET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL
:BR IF YES
;CHECK FOR LOCK ON TEST
sBR IF NO LOCK DESIRED.
sTYPE LOCK SELECTED.
sADJUST SCOPE ROUTINE.
sSET UP TO LOCK
s CUNTINUE ALONG.

BRX,TTST+2

;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP

LMLOCK

sPREPARE NORMAL

SCOPE ROUTINE

MOV

#CYCLE ,RETURN

,-fié?ran “'CYCLE'* FIND WHICH DEVICE

JMP

ARE TURN

*START TESTING

TYPE

TO TEST

MACY

SEQ 0029

CZDVEC.P1

19-MAR=-79 09:06

END OF PASS ROUTINE

465

JEND OF PASS
;TYPE NAME OF TEST
JUPDATE PASS COUNT
sCHECK FOR EXIT TO ACT=11
sRESTART TEST

LEOP:

RESET

176516

;UPDATE PASS COUNT

+MEPASS
+MCSRX

;TYPE END PASS
;TYPE CSR

+MVECX
.XVEC

;TYPE VECTOR

PASC
,aL NT
IGHTS

.XCSR

JMPASSX

XPASS
+MERRX
.XERR

SAVNUM
RESTRT
#377 ,QV.FLG
DVNUM, SAVNUM

001313
001303

a6l ,R1

RESTRT

LOGICAL:

005666
005666

001214

) b =

NONS W=

XERR:

002

JSHOW IT

s TYPE PASSES
sSHOW IT

: TYPE ERRORS

JSHOW IT

JARE ALL DEVICES TESTED?
;BR
_IF NO .
;BRI

;SET THE QUICK VERIFY FLAG.
JRESTORE THE COUNT
;CHECK FOR ACT-11 OR DDP
sIF NOT, CONTINUE TESTING
;STOP THE SHOW==CLEAR THE WORLD

CYCLE

6.2

3.2
6.2
.BYTE
ERRCNT

6.2

;SCOPE LOOP AND INTERATION HANDLER

ed e

OOV

N = e

sSHOW IT

#CYCLE ,RETURN

:
XPASS

002

vivvonvivionnviaiuawv

RESTRT:

XVEC:

002

;DISPLAY PASS COUNT

PC,(R1)

XCSR:

002

sMAKE THE WORLD CLEAN AGAIN.
;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG

LSTERR
ERRFLG
PASCNT

022737
001411
017746
042716

177570

176336
000200

001202

:
SCOPE

CMP
BEQ
MOV
BIC

#177570,
SWR

;1S THERE A REAL SWR?

,
= (SP)
a@TKDBR

*SAVE KEYBOARD CHAR

64%

#BIT7,(SP)

;BR IF

YES

;CLEAR PARITY BIT

MACY

SEQ 0030

F
19-MAR-79 09:06

122726

000007

CMPB
BNE

004640
001234
040000

64%:
176300

#7,(SP)+

PC,SERV.G

LSTERR
RO, (SP)
1g1114.aswa

TIST:

176272

aTKCSR

176266

aTKDBR,RO

004000

176252

1%:

#SW11,aSWR

001313
001224
001224

001311
001224
001220
000005
001216

MACY

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ETC.)

QV.FLG

001222

2%:
001222
001214

176200

BRW:
BRX:

;WAS IT CNTRL
:BR IF NO.

SEQ 0031
*'G'

;SERVICE "'CNTRL 'G''".

sCLEAR LAST ERROR PC.
:SAVE RO ON THE STACK

:"LOOP ON THIS TEST'®?
:BR_IF NO.
;GOTO 3%

(IF LOCK SWO1=1;
(IF LOCK SWO1=1;

THIS LOC =240)
THIS LOC =240)

KEYBOAD DONE?
:BR_IF NO. (LOCK: HIT KEY TO GOTC NEXT TEST)

;CLEAR DONE BIT

- CONT INUE
:DELETE ITERATION?
(QUICK PASS)
:BR IF YES
sHAVE PASSES BEECOMPLETED?
:BR IF QUICK PASS.
sUPDATE ITERATION COUNTER

LPCNT
LPCNT, ICOUNT
3%
ERRFLG
LPCNT
LOCK
#5.,1COUNT

JRESET ITERATIONS

aRETURN

;FAKE AN 'RTI"’
;GO DO THE TEST

NEXT ,RETURN
(SP) ,RO

3%:

:ARE ALL

ITERATIONS DONE??

:BR IF NOT YET

;PREPARE FOR NEW TEST

sSTART ICOUNTER AT 0
sGET NEXT TEST

:POP RO OFF OF THE STACK

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

001000

176154

001220

.SCOP1: BIT
BEQ
TST

001220

1%:

BEQ
MOV
RTI

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

;IS SW09=1(SET)?
:BR IF NOT SET.
.GOTO THE ADDRESS IN LOCK.
;GO BACK.

;TELETYPE OUTPUT ROUTINE

062766
032777

001012
105715
100002
104402
105777
100375
112577

0C1362
012605

000002
000002
010000

.TYPE:

010546
017605

CZDVEC.PN

1%:

MOV

R5,-(SP)

a2(SP) .RS

#2,2(SP)

#5W12,aSWR

(RS)

005104
176104

2%:

176100

2%
+MCRLF

;GET ADDRESS OF MESSAGE.
;POP OVER ADDRESS.
JINHIBIT ALL PRINT 0QUT??

;BR IF NO PRINT OUT WANTED (SwW12=1)
;1S NUMBER MINUS? (MSB=1(BIT7))

:BR IF NUMBER IS PLUS
sTYPE A CR/LF!
;TTY READY?
:BR IF NO.

1%
(SP)+ RS

:END OF OUTPUT. RESTORE RS

aTPCSR
(RS)+,aTPDBR

3%:

:SAVE RS ON THE STACK.

sPRINT CURRENT (HAR.

:IF NOT ZERO KEEP PRINTING!

CZDVEC.P1
E;g

579

580

581
582

000002

RTI

003120

010346

.INSTR: MOV

R3,-(SP)

ADD
JINST1: TYPE
MSG:
0

#2,4(SP)

1%:

aTKCSR

003122
003124

003132
003140
003142

588

003154

589
590
591

592
593

010446
017637

062766
104402
000000

003144
003150

012704
012703

003160
003162

100375
117714

003166

105777

100375
017777

598
599
600

003216
003220
003222

001356
012604
012603

602
603
604

003230
003232
003234

601

605

606

ggg

003224

005303

104402

010346
010446
000741

003142
000004

005520
000007

MOV
MOV

176020

BPL
MOVB

1%
@TKDBR, (R4)

000015

CMPR
BEQ

176024

175774

005100

2%:

175776

JINSTE:

003244

010546

TYPE

:SAVE R4 ON STACK

(R4)+ 415
INSTRS

2%
@TKDBR,TPDBR
1%
(SP)+,R4
(SP)+,R3
,MQM

MOV
MOV
BR

R3,-(SP)
R4 ,=(SP)
LINST1

MOV

(SP)+,R3

.PARAM: MOV

003306
003312

012704
122714

005520
000015

121427

000060

121427

000067

003304

003316

625

003320

627

003326

632

DEC

BNE
MoV
MOV

:SAVE R3 ON STACK

(SP)+,R4

:RESTORE R4

:RESTORE R3

;CONVERT ASCII STRING TO OCTAL

622
623

630
631

aTPCSR

RTI

000004
003434
003436
003440
003442
003443
000004

628
629

TSTB

BPL
MOV

000002

010446
016605
012537
012537
012537
112537
112537
010566

626

#200, (R4)

003242

003246
003250
003254
003260
003264
003270
003274
003300

624

BICB

INSTR2: MOV

012603

613
614
615
616
617
618
619
620

621

TSTB

012604

2(1)3
611
612

R4 ,=(SP)
a4 (SP)
, .MSG

# INBUF ,R4
#7 ,R3

003236

003240

:GO HOME

MOV
MOV

176004

003204
003206
003214

000002

105777

595
596

597

000004

000200

122427
001417

003200

142714

003172
003176

594

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

003116

S83
584
585

586
587

19-MAR=79 09:06

005005

001420

003324

002415

003332
003334

003012
142714

003340
003342
003346

152405
122714

001406

000060

000015

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

MOV
(MPB

# INBUF ,R4
#15, (R4)

PARAM1: (LR

1%:

RS,=(SP)

MOV
MOV
MOV
MOV
MOV
MOVR
MOVB
MOV

BEQ

CMPR

PARERR

(R4) ,#60

BLT

PARERR

BGT
BICB

PARERR
#60, (R4)

CMPB

BISR
CMPR

BEQ

(R4) ,#67

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

MACY

SEQ 0032

H
CZDVEC.P

633
634

19=-MAR=79 09:06

GENERAL UTILITIES

003350

PARERR:

020537

101373
020537
103770
133705
001365

003436

LIMITS:

003434

RS
RS
R5

INSTER
BR

PARAM1

TO SEE

CMP
BHI

CMP

BLO

003442

(TYPE OUT,ERROR,SCOPE,ETC.)

ASL
ASL
ASL

sTEST

BITB
BNE

NUMBER

IS WITHIN LIMITS

RS HILIM
PARERR
R5,LOLIM
PARERR
LOBITS,RS
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS

013704
010524
062705
105337
001372
012604
012605
000002
000000
000000
000000
000000
003443

003440

1%:

000002
003443

MOV
MOV
ADD
DECB
BNE
MOV

MOV
LOLIM:

RTI

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

(SP)+ RS

HILIM:
O
DEVADR: 0

LOBITS: 0

ADRCNT=LOBITS+?

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

001276

.SAV0S5: MOV

4(SP) ,SAVPC

;SAVE R7 (PC)

:SAVE RO-R5
010537
010437
010337
010237
010137
010037
000002

Sv05:

MoV
MOV

MOV
MOV
MOV
MOV
RTI

RS, SAVRS

;SAVE RS

R3,SAVR3
R2,SAVR?2

;SAVE R2

R4, SAVR4

R1,SAVR1
RO, SAVRO

;SAVE R4
;SAVE R3

;SAVE R1

;SAVE RO

;LEAVE.

;RESTORE RO-RS
.RESQ5: MOV
MOV
MOV
MOV

SAVRO,RO
SAVR1,R1
SAVRZ ,R2
SAVR3,R3

sRESTORE R1
JRESTORE R2

MOV

SAVRS RS

sRESTORE RS

MOV

SAVR4 R4

;RESTORE RO

;RESTORE R3
JRESTORE R4

MACY

SEQ 0033

I
PN
003534

19-MAR-79 09:06

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE
ETC.)

000002

RTI

;LEAVE

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
003536
003542

104402
010046

005104

062766

000002

112137
112137

003744
003745

1%:

013704

003746

28:

003616
003622

012700
010403

005562

003630
003634
003636

062703
110320
000241

003642

000241

003544
003546
003550
003552
003554

010146
010346
010446
010546
017601

003566

012137 003742

003560
003572
003576

003606

003612

003624

003640

003644

013137 003746
113705

042703

000241

003652

005305

003654
003656

003662
003664

003670

003672
003676
003700
003704

003710

003712
003714
003720

003724
003726
003730
003732
003734
003736

003740
003742
003744

003746

003744

177770

000012

3%:

000060

001362
012700

114023
105337

001374

105737
001405
112723
105337

001373

105013
104402
005337

001322
012605
012604
012603
012601
012600

R1.=(SP)
R3.=(SP)
R&.=(SP)
RS.=(SP)
212(SP) ,R1

MOV

(R1)+,WRDCNT

MOVB
MOVB

MOV

#TEMP,RO
R4 ,R3

ADD
MOVB
cLC

#060,R3
R3,(RO)+

MOVB

BIC

000040
003745
005624
003742

5%
6% :

#177770,R3

ROR

R
R&

DEC

MOVB
DECB

-(RO),(R3)+
CHRCNT

BNE
MOV

33
#MDATA,R3
43

TSTB
BEQ
MOVB
DECB

SPACNT
6%
#040.(R3)+
SPACNT

C(LRB
TYPE
DEC

(R3)
,MDATA
WRDCNT

BNE

BNE
MOV
MOV
MOV
MOV
MOV

000002
000000
000000

RT]
WRDCNT: 0
CHRCNT: 0

000000

BINWRD: 0

003745

CHRCNT.RS

ROR

BNE

003745

a(R1)+,BINWRD

MOV
MOV

ROR
4$:

(R1)+.CHRCNT
(R1)+ _,SPACNT

BINWRD
. R4

cLC

003744

#2,12(SP)

MOV

cLC

005624

JMCRLF
RO,=(SP)

MOV
MOV
MOV
MOV
MOV
ADD

006004

003646

003650

000012

.CONVR: TYPE
.CNVRT: MOV

SPACNT=CHRCNT
+1

1%
(SP)+,RS
(SP)+.R&
(SP)+.R3
(SP)+.R1
(SP)+.R0

MACY

SEQ 0034

J
CZDVEC.PN

19-MAR-79 09:06

745
746
747
748
749
750
751

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ,ETC.)
s TRAP DISPATCH SERVICE
sARGUMENT OF TRAP IS EXTRACTED

sAND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROUTINE

752
753

.TRPSR: MOV

000002
0000C0

754

SU3

TRPOK:

177001
001314
000000

MOV
ASL

BIC

ADD
MOV
JMP

(SP) ,=(SP)

;GET PC OF RETURN

a(SP), (SP)

;GET TRP

#2,(SP)

:=PC OF

(SP)

TRAP

sMULTIPLY TRAP ARG BY 2
s CLEAR UNWANTED BITS
sPOINTER TO SUBROUTINE ADDRESS
s SUBROUT
INE ADDRESS
;GO TO SUBROUTINE

#177001, (SP)

#.TRPTAB, (SP)
a(SP),(SP)
a(SP)+

;ERROR HANDLER

022737
00141
017746

177570

001202

LHLT:

175170
000200
000007

004640
010000

175140

648:

RRRRRRRRRRRRRRRRRER

SNBRBFNERERENNBFR3R

004102

MOV

aTKDBR,
= (SP)

L2]

N
-

-t

BNE
JSR
BIT
BEQ

TSTB
BPL

MOVB

648

#BIT7. (SP)
#7.(SP)+

. +6
PC,SERV.G
#SW12,3SWR
XBX
3TPCSR
XBX

#207,3TPDBR

XBX:

BIT

#5W1%, aSWR

BEQ

1%:

MOV
CLRB
SAV0S

(SP) ,LSTERR
ERRFLG

SUB
MOV

#2 RS
(RS) R4

001234

001234
001311

#177570,
SWR

BIC
CMPB

175140

000207
020000

cMP

BEQ

000002

BNE
CMP

MOV
ASL
ADD

ASL

(SP) RS

Ré
(RS) R4

BIC

#177001,Ré4

MOV
MOV
MOV

(R4) +,ERRMSG
(R4 ) +.DATAHD
(R4) ,DATABP

ADD

#.ERRTAB,R4

TSTB

ERRFLG

DATABP

BEQ
TYPMSG:

HALTS
(SP) ,LSTERR

BNE

TYPE
TYPE
TST

;1S THERE A REAL SWR?
;BR IF YES
;SAVE KEYBOARD CHAR

JCLEAR PARITY BIT

sWAS IT CNTRL
:BR IF NO.

;SERVICE ''CNTRL

:BELL ON ERROR?
:BR IF NO BELL
;TTY READY.

°'G''".

:DON'T WAIT IF TTY NOT READY.

:PUSH A BELL AT THE TTY.

DELETE ERROR PRINT OUT?
BR IF NO PRINT OUT WANTED.
HAS THIS ERROR FOUND LAST TIME?
:BR IF YES
sRECORD BEING HERE
:PREPARE HEADER

:SAVE ALL PROC REGISTERS
:GET THE PC OF ERROR
;GET ADDRESS OF TRAP CALL
sGET HLT INSTRUCTION
sMULT BY TWO
;DOUBLE IT
sMULT AGAIN
sCLEAR JUNK
;GET POINTER
;GET ERROR MESSAGE
;GET DATA HEADRER
;GET DATA TABLE

TYPMSG

:TYPE HEADREER
:BR IF YES

TYPDAT

:BR IF

JMCRLF
+MCRLF
LOCK

°'G'

;DOES DAYA TABLE EXIST?
YES

MACY

SEQ 0035

K
PN

19-MAR-79 09:06

001402
104402
104402
104411
104402
104411
104402
112737

005737
001402

005400
005366
004 374
005454
004 366
005104
177777

004252

005737
001402

BEQ
1%:

001311

CNVRT

JMASTEK
JMTSTN

XTSTN

+MERRP(

s TYPE PC.

TYPE

+MCRLF

;GIVE A CR/LF

,ERTABO

MOVB

#-1,ERRFILG

BEQ

WRKO.FM

TST

ERRMSG

ERRMSG: 0

WRKO.FM:

004264

TST
BEQ

TYPE

DATAHD: 0

004276

TYPDAT:

TST

BEQ
CONVRT

174674

RESOS
TST
BPL

PUSHRO
MOV

000002

HALT

001232
000400

174646

002000

174636

001216
001200

001214

174630

EXITER:

1%:

POPRO
INC

BIT
BNE

DATAHD
TYPDAT

002

XTSTN:

002

BYTE

TSTNO

ERROR MESSAGE

:
;DATA HEADER?

;BR IF NO
s TYPE

DATA HEADER

aSWR

;BR IF NO.
2 SHOW

EXITER
2(SP) ,RO

ERRCNT

DATA TABLE

;SAVE RO
;SHOW ERROR PC IN DATA LIGHTS

JHALT

;GET RO

;UPDATE ERROR COUNT

#SW08,aSwR
1%

;GOTO TOP OF
;BR IF YES

2%
NEXT ,RETURN

;BR IF NO
JSET FOR NEXT TEST

#STACK,SP
aRE TURN

JBR IF NO.

:TYPE

JRESTORE PROC REGISTERS
JHALT ON ERROR?
;BR IF NO HALT ON ERROR

RESREG

MOV
JMP

SAVP(C

;1S THERE AN ERROR MESSAGE?

;DATA TABLE?

#SW10,aSwWR

2%:
RTI
ERTABO: 1
BYTE

sNO MORE HEADER UNLESS NO DATA TABLE.

DATABP

BIT

BEQ
MOV

JSHOW IT

DATABP: 0

RESREG:
HALTS:

JSHOW IT

TYPE

000000

005777

TYPE
TYPE

CNVRT

104410

104407

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ,ETC.)

104402
000000

005737
001402
104402
000000

TEST?

;GOTO NEXT TEST?
JRESET SP
.GOTO SPECIFIED

;RETURN

TEST

6,2
3.2

JENTER HERE ON POWER FAILURE

004402
004402
004410
004412

012737
000000
000777

004414

000024

PFAIL:

MOV

gaLT

#RESTART , 24

JSET UP FOR POWER UP TRAP

JHALT ON POWER DOWN NORMAL

JPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
004414
004414

012737

004402

000024

RESTAR:

MOV

#.PFAIL,24

JSET UP FOR POWER FAILURE

MACY

SEQ 0036

L
CZDVEC.PN

19-MAR-79 09:06

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

857
858
859
860
861
862
863
864
865

004422
004426
004432
004436
004440
004444
004450
004454
004460

012706
005037
005237
001375
104402
104411
105037
005037
104412

867
868
869
870
871
872
873
874
875
876
g;g

004464
004470
004472
004474
004476
004500
004504
004506
004510
004512
004514

000177
000001
003
001226
010046
013700
005300
001376
012600
000002
000036

004514

879
880
881
882
883
884
885
886
887
888
889
38(1)

004516
004516
004524
004526
004530
004534
004540
004542
004546
004550
004552
004554

012777

004000

892
893
gg‘so

004556
004556
004564

012777
000002

004000

174576

896
897
898

004566
004566
004574

052777
000002

000002

174566

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

004576
004576
004600
004602
004610
004616
004622
004624
004626
004630
004632
004634
004636

010046
005000
052777
017737
106037
103003
005200
001370
104000
012600
000002
000001

866

004462

104413

010146

010446
013701
013704
005014
062711
001374
012604
012601
000002

001200
005562
005562

MOV
CLR
INC
BNE
TYPE
CNVRT
CLRB
CLR
MSTCLR

005107
004470
001311
001234

RAMCLR

174524

JMP
PFTAB:
1
BYTE
3,2
TSTNO
.DELAY: MOV
MOV
DEC
BNE
MOV
RTI
1%:
30.

002

174636

001372
00137¢

.RAMCLR:

174560
004636

.MSTCLR:

-ROMCLK:

#STACK,SP
TEMP
TEMP
.~4
JMPFAIL
,PFTAB
ERRFLG
LSTERR
aRETURN

JRESET THE STACK POINTER
;READY FOR TIMMER
sPLUS ONE TO THE TIMER!
;BR _IF MORE TO GO
: TYPE THE MESSAGE
;TELL WHAT TEST TO RETURN TO.
;START CLEAN
ok
T, g
sSTART CLEAN UP OF DEVICE
;CLEAR IT ALL!

:START DOING THAT TEST AGAIN.

RO,=(SP)
1$,R0
RO
A 4
(SP)+,RO

MOV

#MRESET ,aDVSCR

MOV
MOV
MOV
CLR
ADD
BNE
MOV
MOV
RTI

R4 ,=(SP)
;SAVE R4 ON THE STACK
DVSRS ,R1
:GET SECONDARY SEL. REG.
DVSRA R4
;GET SECONDARY REGISTER ACCESS REG.
(R4)
:ZERO THE SECONDARY REGISTER.
#*C<BITI1+BITI0+BITO+BIT8+BIT3+BIT2+BIT1+BIT0>+BITO, (R1)
1%
(SP)+,R4
;RESTORE R4
(SP) +,R1
sRESTORE R1

MOv
RTI

#MRESET ,aDVSCR

BIS
RTI

#BIT1,aDVSCR

MOV

1%:

170361

000400
174554
004637

.DATACLK:
MOV
CLR
BIS
1%:
MOV
RORB
BCC
INC
BNE
HLT
2%:
MOV
RTI
3%:
.BLKW
1

R1,=(SP)

RO,=(SP)
RO
#3178,aDVLCR
aDVL(CR, 3%
38+1
2%
RO
1%
0
(SP)+,R0

;ISSUE A MASTER CLEAR
;SAVE R1 ON THE STACK

;ISSUE MASTER CLEAR.

MACY

SEQ 0037

M3
19-MAR-79 09:06

004000

174336

174326

005072
174316

SERV.G: BIT

aSWR,90%

1%:

005064
005074
174300
aTKDBR,=(SP)

#BIT7,(SP)

174246

-2(SP) ,aTPDBR

174230
174224
174220
177776

000060

177776

000067

177770
177776
174160

177776

=2(SP) ,#67

1%
#*C<7>,-2(SP)

174162

=2(SP) ,aSWR

aTQCSR

#BIT7,(SP)
l}S.(SP)+

377
377

89%:
.EVEN

88$%:

90%:
91%:
EVEN

020122
020104

HCRLF.
MPFAIL
:
HEPASS

HERRZ
MERR3-

MTSTPC:

MLOCK:

<377>?

(SWR)=/?

—_—

051127

051107

005301

2
. MCRLF

5%:

000001
006
005072
000000
036457

005267

ERROR

aTKDBR,-(SP)

005104

020040
005015

=2(SP) ,#60

174154
000200
000015

051450
000057

aSWR
aSWR
aSWR
1%

L I

2%:

R I I I

#15,(SP)+
5%
aSWR
3T2CSR

L T

174252
174254
177776

JRX BUSY?
:BR IF YES
SAVE (SWR) .

;WAIT FOR DONE.

174274
000200
000015

020377
036451

g4000
,OTKCSR

032777
001374
017737
013777
104402
104411

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ,ETC.)

CZDVEC.PN

90%

6.0

.WORD
LASCIZ

ASCIZ
.ASCIZ

LASCIZ
.ASCIZ
LASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

2/=/?

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

005330
005336

19-MAR-79 09:06

051503

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ,ETC.)

000040
000040
051505
051117
047040

051440
000
020120

MCSRX:

MVECX:
MPASSX:
:
MERRX

LASCIZ
LASCIZ

MTSTN:
MASTEK:
MNEW:
:
MERRPC
XHEAD:
LASCIZ
.EVEN
XSTATQ: 2

.BYTE

TEMP1
.BYTE
TEMP2

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /
/%]

gzb;ser SWITCH REG TO DV11'S DESIRED ACTIVE./

<377>/MAP OF DV11 STATUS/<377>
6.3

6.2

;BUFFERS FOR INPUT-QUTPUT
000000
005562
000000
005624
005666

MACY

SEQ 0039

B
19-MAR-79 09:06

CZDVEC.P1

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE
ETC.)

JROUTINE USED TO ''CYCLE'® THROUGH UP TO EIGHT DV11°'S

sTHIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
JAND RUNS THE SPECIFIED DV11°'S.
THIS ROUTINE *MUST+

sBE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
;SETUP NECESSARY.
105737
001004
104402
000000
000776
133737

CYCLE:

TYPE

HALT

001300

1%:

001306
001306
001306

2%:

001306
001306

022737

001306

—

)

—

—dh —

bttt

RREVEERAR

006104

— e —d - — — —

WN=O

e
e
—

Y
(N QU U
Y
IR

VNN

—
Y

oleleolololelelelole]

——

1007

—d

001003
012737
012037
012037
012037
012037
012037
012037
012037

TSTB

BNE

3%:

BITB
BNE
CLC
ROLB
ADCB
ADD
CMP
BNE

SW.

#24 ,CREAM

;1S THIS ONE "'ACTIVE''
:BR_IF GOOD ONE FOUND.
;CLEAR PROC. CARRY BIT.
:UPDATE POINTER
:CATCH CARRY FROM RUN
;UPDATE ADDRESS POINTER.

;KEEP GOING; NOT ALL TESTED FOR.

;KEEP LOOKING FOR ACTIVE DV11

RUN
RUN

#DV.END ,CREAM

RUN
RUN
CREAM RO
#24,CREAM
#DV.END
, CREAM

BNE

:BR IF NO.

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

(RO)+,DVSCR
(RO)+,DVRVEC
(RO)+,L00.03
(RO)+,SYNC2A
(RO)+,L04.07
(RO)+,SYNC2B
(RO)+,L08.11
(RO)+,SYNC2C
(RO)+,L12.15
(RO) +,SYNC2D
#2,R0

;LOAD SYSTEM CTRL. REG
sLOAD VECTOR
;GET LINE PARAMETERS. 00-03
:
:
04-07
:
:
08-11
;
§
12-15
:
; SAVE CORE THIS WAY!

INC

DVSCRH

:GOT IT,

MOV

MOV
ADD
MOV

001376

:DISQUALIFY CONT.

CLC
ROLB
ADCB
MOV
ADD
MP

001366

001374

s =€

RUN,DVACTV
2%

sNO DV11'S SELECTED!!

:STOP THE SHOW.

#DV.MAP,CREAM

MOV

001372

.MERRZ2

;ARE ANY DV11'S TO BE TESTED?
:BR IF oK.

MOV

001364

001370

DVACTV
1%

INC
MOV
ADD

INC
MOv
INC

#DV.MAP,CREAM

DVSCR,DVSCRH

;RESET ADDRESS POINTER.

;CLEAR PROC. CARRY.
sUPDATE POINTER.
;CATCH CARRY.
;GET ADDRESS POINTER.
sUPDATE.

sALL DONE?
;RESTORE POINTER.

;GET SYS CTRL.

REG HIGH BYTE.

DVSCRH,DVRIC

sGET NXT REC.

CHAR REG.

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

sGET SEC. REG. SEL.
;GOT IT
;GET HIGH BYTE.

DVRIC
DVRIC,DVLCR
RO,DVLCR

;GOT IT
;GET LN. PAR.REG.
;GOT IT

;GOT IT
sSEC. REG. ACCESS.
;GOT IT

REG.

MACY

SEQ 0040

C
CZDVEC.P1

1031
1032

006166
006174
006200

006206
006212
006220

19-MAR-79 09:06

013737
37
37

001376
001400
001400
001402
001402
001404
001352
001354
001354
001356
001356
001360

006224

006232
36

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

001400
001402

001404

001354

MOV
ADD
MOV
ADD
MOV
ADD

DVSRA,DVSFR
RO,DVSFR
DVSFR,DVNSR
RO,DVNSR
DVNSR,RESV16
RO,RE5V16

MOV

DVRVEC,DVRLVL
RO,DVRLVL
DVRLVL ,DVTVEC
RO,DVTVEC
DVTVEC,DVTLVL
RO,DVTLVL

ADD
MOV
ADD

001356
001360

MOV
ADD

;SPEC. FUN. REG.

*NPR STAT. REG.
*RESERVED REG
:PTY LWL

“TX VEC

STX LWL

004737

001422
001406
001416
006516

#MASK.A,R1
#CLK.A,R2
PC.FIX.00

004737

001424
001410
001417
006516

#L04.07 ,RO
#MASK .B,R1
#CLK.B,R2
PC,FIX.00

;PREPARE MASK.
sPREPARE CLOCKS

004737

001426
001412
001420
006516

#L08.11,R0
#MASK. C,R1
#CLK.C,R2
PC,FIX.00

;PREPARE MASK.
;PREPARE CLOCKS

032777

001430
001414
001421
006516
000002

#L12.15.R0
#MASK.D ,R1
#CLK.D ,R2
PC,FIX.00
#SW01,aSWR

#L.00.03,RO

172612
4%:

000042
005104

001226
001214

a#é?
7$

+MCRLF

.BYTE
.BYTE

007310

001226

5%:

000002

#1ST1,RO
(PC)+, (RO)
(PC)+,a(PC)+

TSTNO,2(RO)
6%

#TSTNO,4 (RO)

6%
RO,RE TURN

;LOAD STAUS 00-03

sPREPARE MASK.
sPREPARE CLOCKS

;GO AND CALCULATE CONF IGURATION.

;LOAD STAUS 00-03
:GO AND CALCULATE CONF IGURATION.

;LOAD STAUS 0C-03

;GO AND CALCULATE CONF IGURATION.

;LOAD STAUS 00-03

sPREPARE MASK.

:PREPARE CLOCKS
;GO AND CALCULATE CONF IGURATION.

MACY

SEQ 0041

D
(ZDVEC.P11
1087

1088

006460

19-MAR-79 09:06
104402

006464

000412

006470
006474
006476

020027
001354
104402

1089

006466

1093
1094
}832

006502
006506
006512

1097
1098
1099
1100

006516
006520
006524
006526

011003
042703
005703
001005

1102
1103

006534
006540

112712
000424

1090
1091
1092

1101

1104
1105
1106
1107

1108
1109
1110
1111
1112
1113
1114
1115

1116

1117
1118

}};3

006530

006542
006546
006550
006554

006560
006562
006566
006570
006574
006600
006602
006606

006612

006616
006620

006622

005720

000733
012737
000177

000400

001401
105212

001214

176377

022703
001005
112711
112712

032710

6$:

005100

000400

000414
022703
001005
112711
112712
000404
112711
112712

TYPE

020460

012711

CMP
BNE
TYPE

RO,#TLAST+10
5%
MQM

FIX.00: MOV
BIC
ST
BNE

(RO) ,R3
#~C<1400>,R3
R3
1%

;GET PARAMETERS.
:CLEAR JUNK.
*TEST FOR EIGHT BITS.
*BR IF NOT 8 BITS.

#8.,(R2)
43

;

MOV

1$:

000200
000007
28:

000300
000006
000340
000005

3$:

040000

4$:

000207

(RO)+

:PREPARE RETURN ADDRESS
“GO START TESTING.

5%:

MOV
BR

cMP
BNE
MOVB
MOVB
BR
CMP
BNE
MOVB
MOVB
BR
MOVB
MOVB

BIT

BEQ
INCB

RTS

#400, (R1)

#400,R3
2$
#200, (R1)
#7,(R2)

4$
#1000,R3
3s
#300. (R1)
#6, (R2)
43
#340,(R1)
#5,(R2)

#PARBIT, (RO)
5%
(R2)

;SET FOR 8 BITS PER CHAR

:CHECK FOR SEVEN BITS.
*BR IF NOT 7 BITS.
:
:

;CHECK FOR SIX BITS.
*BR IF NOT SIX BITS.
:
:
;IF NONE OF

THE ABOVE; MUST BE 5 BITS.

;

*PARITY ENABLED?

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

;

;*ROUTINE USED TO '‘AUTO SIZE'' THE DV11
“*«CSR AND VECTOR.
S*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING

i
i

}}gg

1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142

is
#TST1,RETURN
ARE TURN

000010

001000

MCRLF

BR
MOV
JMP

7%:
8$:

1121
1122
1123
1124
1125
1128
1129
1130
1131

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

005104

007310
172476

006624
006624
006626

006632
006634
006640
006642
006646
006652
006656
006664
006666
006670
006676

000005
012702

005022
022702
001374
105037
012702
012701
012737
005711
001037
022761
001033

AUTO.SIZE:
RESET
CSRMAP: MOV

001500

1%:

001740
001301
001500

175000
007076

000004

177777

000012

2%:

CLR
CMP
BNE
CLRB
MOV
MOV
MOV
TST
BNE
CMP
BNE

ADDRESS RANGE (175000:175400)
AND THE VECTOR MAY BE ANY WHERE

FLOATING VECTOR RANGE (300:770)

#DV.MAP,R2

(R2)+
#DV.END ,R2
1%
DVNUM
#DV .MAP,R2
#175000.R1
H6S ,
(R1)
3
#177777 ,12(R1)
3$

IN THE

:INSURE A BUS INIT.
*LOAD MAP POINTER.

*ZERO ENTIRE MAP
*ALL DONE?
*BR IF NO
*SET OCTAL NUMBER OF DV11'S TO 0
:SET FOR FIRST ADDRESS TO BE TESTED
*SET FOR NON-EXISTANT DEVICE TIME OUT
:1F DV11 DVSCR S/B 0
“IF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NQ DV11
:IF DV11 THEN DVSFR S/B ALL 1'S ON INIT'
*BR IF NOT DV11

MACY

SEQ 0042

E
CZDVEC.PN

19-MAR=-79 09:06

1143
1144
1145
1146

006700
006704

005761
001030

006706

010122

1148

006712

052722

1147 006710 005722

1149
1150

006716
006722

1153
1154
1155
1156
1157

006736
006742
006746
006752
006756

1159

006766

1161
1162
1163

006776
007000
007004

1151
1152

1158

1160

1164
1165
1166
1167
1168
1169
1170

006726
006732

006764
006772

007010
007014
007016
007022
007026
007030
007034

000016

ST
BNE

TST

:
“SET LINE CARD 2 STAT AND SYNC

052722
052722
052722
105237
122737
062701

000010

3%:

ADD

#10,R1

177777
001300
001301

1008:

001405
022701

001332
012722
105037

001301

175400

BEQ

CMP

BNE
MOV
CLRB

012737
012737
012702
012700
012701
010120
012721

000340
007234
001500
000300
000302
000004

VECMAP: MOV
MOV
MOV
MOV
MOV
1%:
MOV
MOV

1191

007144

020127

001000

CMP

022021

1192
1193
1194
1195
1196

007150
007152
007160
007164
007166

101771
113737
006037
103034
005037

1198

007200

005000

007172

#62, (R2) +
#2206, (R2)+

#62, (R2) +
#226, (R2)+
#62, (R2) +
#226, (R2) +
#62, (R2) +
DVNUM
#10,DVNUM

007104
007112
007120
007124
007130
007134
007136

1197

POP OVER VECTOR STORE AREA

BIS
BIS
BIS
BIS
BIS
INCB
CMPB

BIS
BIS

1183
1184
1185
1186
1187
1188
1189

007142

(Ré)*

xs ASSUMED THAT R1 HOLDS A DV11 CSR ADDRESS.
R2)+
;STORE CSR IN CORE TABLE.

000062
000226
000062
000226
000062
001301
000010

000062
000226

007040
007042
007044
007052
007060
007064
007070
007072
007074
007076
007102

1190

;IF DV11 THEN RESV16 S/B ALL 0'S
*BR IF NOT DV11

;AT THIS POINT xr
MOV

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

1171
1172
1173
1174
1175
1176
1377
1178
1179
1180
}}g}

16(R1)
3$

BIS

052722
052722

012772

001301
001303

48:

001300
001300

000006
001300
007104
005174

000004
001302
5%:

006766

001300

001246

177776

001300

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE.ETC.)

000226

052722
052722

6%:

000022
000020

TSTB
BEQ
MOVB
MOVB
CLC
ROLB
INCB
DEC
BNE
MOV
MOVB
JMP
TYPE
CLR
HALT
BR
MOV
RTI

CMP

001246
i

000000

28:

BLOS
MOVB
ROR
BCC
CLR

MOV
CLR

#226, (R2)+

100$

#175400,R1

2%
#177777,(R2)+
DVACTV
DVNUM
13
DVNUM,R1
R1,SAVNUM

DVACTV
DVACTV
R1
4$
#6, a4
DVACTV,SAVACT
VE CMAP
. MERRZ2
RO

=2
#3$, (SP)

#340,3422
#4$,a420
#DV.MAP ,R2
#300,R0
#302.R1
R1, (RO)*
#4. (R1)+

(ROY+, (R1)+

R1.#1000

1%
DVACTV,TEMPI
TEMP1
ss

:SET LINE CARD 1

:
“SET LINE CARD 3 STAT AND SYNC

;
“SET LINE CARD 4 STAT AND SYNC
:
JUPDATE DEVICE COUNTER
JARE MAX. NO. OF DEV FOUND?

“YES DON'T LOOK FOR ANY MORE.
sUPDATE CSR POINTER ADDRESS

;BR IF MORE ADDRESS TO CHECK.
:TERMINATER.
JWERE ANY DV11°'S FOUND AT ALL?
:ERROR AUTO SIZER FOUND NO DVi1'S IN THIS SYS.

;SAVE NUMBER OF DEVICES
;GENERATE ACTIVE REGISTER OF DEVICES.
;SET THE BIT

:BR IF MORE TO GENERATE
JRESTORE TRAP VECTOR
+SAVE ACTIVE REGISTER
:GO FIND THE VECTOR NOW.
JNOTIFY OPR THAT NO DV11'S FOUND.
sMAKE DATA LIGHTS ZERO
*STOP THE SHOW
:DISABLE CONT. SW.
:ENTERED BY NON-EXISTANT TIME-OUT.
*RETURN TO MAINSTREAM

:SET 10T TRAP PRIO TO 7
*SET IOT TRAP VECTOR
JSET SOFTWARE POINTER
*FLOATING VECTORS START HERE.
:PC OF 10T INSTR.
sSTART FILLING VECTOR AREA
SWITH .+2; 10T

SADD 2 TO RO +R1

:BR IF MORE TO FILL
*STORE TEMPORALLY
*BRING OUT A BIT
‘BR IF ALL DONE
*2ERO CPU PRIO

#8179*BIT708176 a(R2)
RO

STAT AND SYNC

JATTEMPT TO FORCE AN INTERUPT

MACY

SEQ 0043

F
CZDVEC.PI

1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209

007202
007204
007206
007214
007222
007226
007232
007234
007240
007246
007250

}%}}

007256

1210

007254

19-MAR-79 09:06

005200
001376
052762
042772
005072
062702
000752
051662
042762
022626
012716

000002

000207

000300
176777
000000
000024
000002
000007

GENERAL UTILITIES

000002
000000

000002

3%:

4%:

007214

5%:

(TYPE OUT,ERROR,SCOPE,ETC.)

INC
BNE
BIS
BIC
CLR
ADD
BR
BIS
BIC
CMP
MoV

RO
. 1
#300,2(R2)
#*(<BIT9>,a(R2)
a(R2)
#24 ,R2
2%
(SP),2(R2)
#7,2(R2)
(SP)+,(SP)+
#3%,(SP)

;POP SOF TWARE POINTER
;KEEP GOING
;GET VECTOR ADDRESS
;CLEAR JUNK
sPOP 10T JUNK OFF STACK
;SET FOR RETURN

RTS

;ALL DONE WITH "‘AUTO SIZING''

RTI

sSTALL
H
FOR TIME TO INTERUPT
sNO INTERUPT ASSUME 300 AND FIX DVY11 LATER

MACY

SEQ 0044

G
19=MAR=79 09:06

DV11 DEVICE DIAGNOSTICS.

DIGITAL EQUIP.

CORP.

;CONTROL STATUS REGISTER BIT FUNCTIONS
BUSY=20
SCNENA=40
INTENA=100
DONE =200
STEP=400

;LINE SCANNER RUNNING
sLINE SCANNER ENABLE
s INTERRUPT ENABLE
s SCANNER DONE
;CAUSES LINE COUNTER TO BE INCREMENTED BY 1 COUNT
;FORCES 1S TO INPUT OF SCRATCH PAD MEMORY
sCLEAR MULTIPLEXER FUNCTION FLIPFLOPS
;CLEARS SCANNER SCRATCHPAD MEMORY
s SECONDARY RECEIVE TRANSITION WAS DETECTED BY SCANNER
;CLEAR TO SEND TRANSITION WAS DETECTED BY SCANNER
;CARRIER TRANSITION WAS DETECTED BY SCANNER
;RING SIGNAL WAS DETECTED BY SCANNER

MAINT=1000
CLRMUX=2000
CLRSCN=4000
SECRXF=10000
CSF=20000
COF=40000
RINGF=100000

:LINE REGISTER BIT FUNCTIONS
S

e
e
e S

SN
8
8

T
8

CS=BITS

C0=BIT6
RING=BIT7

TRMRDY=BIT1
RS=BIT2
NS=BIT3
DSR=BIT4

)

L INENA=BITO
SECTX=10
SECRX=20

NeNe N,

R —

)

i e

d o

—

IASIASIAS I,V INSASIASIASLAS
(AN TN 1, [\ N 1,8 o
-l
OO n PORNIN)
= = b dod
NN WN—=O Vo~V & W

CZDVEC.PN

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

sDEFAULT VECTOR!!

MC.LVL: .
;*TABLE OF LOOP AROUND FUNCTIONS
. %

S *RING

: *RING

;*BITO 7
*

q)
co

BITO6

cTs
CTS

B 1705

SECRX
DSR

81104

SECTX
NS

BIT93

(H325)
RTS
RTS

BITO2

TRDY
TRDY

BITO1

LENAB
LENAB

BITO0

~*x SIGNALS FOR ASYNC LC.
==+ SIGNALS FOR SYNC LC

MACY

SEQ 0045

1282
1283

DV11 DEVICE DIAGNOSTICS.

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

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

]

. %

{: ;&HgZS WAS SELECTED (A)

SELECT LINE(S):

. %

;*
o

THE FIRST “X'' REPRESENTS LINE 15 AND EACH ‘X'’ IS THE
NEXT LOWER LINE TILL THE LAST 'X'' IS LINE 0. TYPE

P
P
i
e
ix
ix
i

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

"END'' CHAR.

LINES ARE DONE.

gauanas
.m\l VS W
OV NOWNSWN=O

3
S
SR S
S
QRS S
Y
YT
T
i

TYPE AN

THE SECTION ON PASS COMPLETE

IN DOCUMENT.

SINGLE LINE:

;*
;*

END PASS IS THE SAME.
REGUARDLESS OF WHICH CONNECTOR WAS SELECTED;

MODEM VECTOR:

OR WHEN A DIFFERENT DV11 IN THE SYSTEM IS UNDER TEST)

THE CSR(MC.CSR) IS ASSUMED TO BE =DVSCR+20.

THE USER MUST THEN TYPE

THEN THE PROGRAM WILL

PLEASE READ

IF THE H325 1S SELECTED AND SW06=1 THE FOLLOWING WILL BE TYPED:

e IR

XXXXXXXXXXXXXXXX

. %

;®

WWWWWWWWWWW
O e el P
e e T )

THE FOLLOWING WILL BE TYPED

DIGITAL EQUIP. CORP.

.t.t'ttttttt.t't't.t...t"t'l..'t...t..".t""'..'...'.Q....Q....'O

;

1302

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

19-MAR-79 09:06

CZDVEC.PI

IN A SINGLE LINE HE DESIRES

THE LAST QUESTION IS:

(THIS WILL BE ASKED ONLY AT THE

TYPE

IN THE VECTOR OF

INIATL

(00-17)

THE

START OF PROGRAM

THE MODEM CONTROL (300:774).

;*
;®
;®

NOTE:
IF CABLE TESTS ARE TO BE DONE ON OTHER
DV11°'S IN SYSTEM; SELECT THEM BY USING SWO0 AS DESCRIBED
IN THE DOCUMENTATION.

ASSUMES ITS UNDER ACT=11 MONITOR.

;*
;*
;.

THE RESTRICTIONS ARE:
wxxAL[ *x« MODEM VECTORS MUST BE AT 300
*x*xAL| **+x TURN AROUNDS MUST BE H861.

;®

=-OCTAL-

UNLESS LOCATION 42 IS NON-ZERO IN WHICH CASE THE PROGRAM

THE PROGRAM WILL

CYCLE THROUGH ALL DV11S AND MODEM CONTROL *HOWEVER*

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

;e
;e
;e

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

AR A

INHIBITED BY Sw12!

AR RSl
s
s
Y2223 223232233%;

MACY

SEQ 0046

I
P11

19-MAR=79 09:06

DV11 DEVICE DIAGNOSTICS.

— e

SEGRARICUERK

[

WWWWWW
~
oW

d e

NISEES

d wd e

)

D e

d e

D e

) e

D e

i e

vivivivivivivivivivd
3993 39 9 3 S
S

007310
007316
007324
007330
007336
007344
007352
007360
007366
007374
007402

012737
012737
005037
013737
062737
013737
062737
012737
012737
012777
012737

007410
007414
007416
007422

005737
001020
104402
004737

007434
007436
007444
007446
007454
007456
007462
007470
007472
007500

001004
012737
000412
122737
001360
005037
012737
000523
032777
001421
007502
104403
104405

007426

122737

000001
010770
177776
001362
000020
007300
000002
010276
000340
000100
000340
000042

022760

000377

007260

000102

001272

007260
000001

007272

000100

171502

007570
007574
007600

017700
010077
042700

171412
171412
177600

007620

000415

007622
007626
007630

1%:

001272

022121
007272
007272
171416

007604
007610
007612

007300
007300
007302
007302
000060
000062
171602
177776

000101

000017
007262
000
012737
005337
100502
000241
006137
000771
104402
013737
005037
105777

100375

TST1:

022672

007502
007506
007510
007512
007514
007516
007520
007526
007532
007534
007536
007542
007544
007550
007556
007562

007566

001226
001216

70$:
448:
71$:
MAR18=,

007272

74%:

007272

022700
001004
013737

000123

022700
001412
022700

000015

001252

000060

72%:

001252

28:

007272

DIGITAL EQUIP.

CORP.

MOV
MOV
CLR
MOV
ADD
MOV
ADD
MOV
MOV
MOV
MOV

ST
BNE
TYPE
JSR

cMP8

022234

001
000001
007262

TEST

#1,TSTNO
#TST2 NEXT
PS
DVSCR,MC.CSR
#20,MC.CSR
MC.CSR,MC.LSR
#2.MC.LSR
#KBISR, a#60
#340, 462
#100.aTKCSR
#340.PS
G2
448

;CLEAR CPU STATUS
:GET MODEM CSR
“IT HAS TO BE 20(8) MORE THAN DVSCR.
:GET MODEM LSR
*MUST BE 2 MORE THAN (SR
*SET KEYBOARD INTERUPT VEC
*SET LEV TO 7
*SET INTERUPT ENABLE
*LOCK OUT TTY

_MTURN

PC,

TKRDY

#1071, SAVRS

BNE
MOV
BR
CMPB
BNE
CLR
MOV
BR
BIT
BEQ

70$
#377 ,TURFLG
71%
#102,SAVRS
1%
TURFLG
#1,SELECT
68$
#5W06
, ASWR
72%

INSTR
PARAM
00
17
L INE
.BYTE
MOV
DEC
BM]
cLC
ROL
BR
TYPE
MOV
CLR
TSTB

.MSING

SELECT
74$
+MSEL
SELECT,TEMP3
SELECT
QTKCSR

;ASK FOR LINES
:GET PREVIOUS LINE SELECT
SMAKE IT 0
*READY?

MOV
MOV
BIC

aTKDBR, RO
RO,aTPDBR
#~(<177> R0

*READ CHAR
*ECHO CHAR
*STRIP ALL BUT DATA

B8R

BPL

CMP
BNE
MOV

CMP
BEQ
CMP

0,1
#1,SELECT
L INE
68%

*BR IF NO

#123,R0
412
TEMP3,SELECT

SWAS IT "'SCAME)"
*BR IF NO
:RESTORE PREVIOUS LINES SELECTED

#15,R0
43
#60,R0

‘WAS IT "*<CR>""
:BR_IF YES
JWAS IT "0

:GO ON

MACY

SEQ 0047

J
CZDVEC.P11

1377

007634

19-MAR=79 09:06

001403

1378 007636
1379 007642
1380 007644
1381
007646
1382 007652
1383 007654
1384 007660
1385 007662
1386 007666
1387 007672
1388 007676
1389 ' 007702
1390 007704
1391
007706
1392 007712
1393 007716
139% 007724
1395 007726
139 007732
1397 007736
1398 007740
1399 007744
1400 007746
1401
007750

022700
001265
006000
006137
000743
005737
001656
005037
013705
104402
005037
006005
103002
104411
005237
022737
001366
104402
022700
001427
005737
001016
022737
000000

1403

001412

1402

1404
1405
1406

1407
1408

1409
1410
1411
1412

1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428

1429
1430
1431
1432

007752

007754

007756
007762
007764

007766
007770

007772
007774
010002
010010
010016
010024
010032
010036
010044
010050
010056
010064
010070
010074
010076
010100
010106
010112
010116
010120

010126
010130
010134
010136

DV11

BEQ

000061
3%:

007272

4$:

001266
007272
022202
177776
023044
001266
000020

€58:
58:

001266

000042

688:
80$:

001362

022737

003
013737
013737
062737
012737
117737
005237
117737
005237
013737
012737
005337
006337
103451
001372
112737
104402
005337
001031
117737

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

000774
007304

001016
005737
001405
012737

6s:

022231
000123

104403
104425
000

#61,R0
18
RO
SELECT
28
SELECT
18
SAVR3
SELECT,RS
MLINE
PS
RS
68
,XXLIN
SAVR3
#16.,SAVR3
58
,M.CRLF
#123,R0
698
@42
988
PO+, (PC)+
O

BEQ

98%

DVSCR

774
MC. VEC

007750
007306
007306
007264
007270
007266

007274
007262

001313

177140

007270

000042

001214

BYTE
MOV
988:
MOV
ADD
69%:
MOV
MOVB
INC_
MOVB
INC
MOV
MOV
TESTER: DEC
ASL
BCS
BNE
MOVB
TYPE
DEC
BNE
MOVB

BNE
ST
BEQ
MOV

(M
BNE
ROR
ROL
ER
IST
BEQ
(LR
MOV
TYPE
(LR
ROR
BCC
CNVRT
INC
CMP
BNE
TYPE
(MP
BEQ
TST
BNE
(MP
.WORD

INSTR
PARAM
300

000377
007266
007270

002436

DEVICE DIAGNOSTICS.

,MVECZ

3,1
DVSCR,80%
MC.VEC,MC.LVL
#2.MC.LVL
ATABLE,POINTER
@POINTER,COUNT
POINTER
@POINTER,CHAR
POINTER
SELECT,EXERCISE
#20,LINE .
LINE
EXERCISE
2%
TESTER
#377.QV.FLG
,CHAR
(OUNT
38
@POINTER,COUNT

48
42
.+14
#.EOP,RETURN

DIGITAL EQUIP.

:BR IF YES

SWAS IT 9
:BR IF NO, RETYPE MSG
:SHIFT THE BITS
:BRING CARRY INTO SELECT
:CONT,
:ARE ANY LINES SELECTED?
:BR_IF-NO. AND TYPE MSG
:SET_TYPE OUT
: SAVE
SALERT USER TO WHAT
:HE SELECTED
:
:
:
i
;
:
i
.
;

;GET PRIORITY LEVEL
UP IT,

:
:
:
:
:
:
:
:
;
:
:
:
:
;
:
:

CORP.

MACY
SEQ 0048

K
CZDVEC.P11
1433

1434

1435
1436
1437
1438
1439

16440
1441
1442

010144

010150

010156
010164
010170
010176
010202

010210
010216
010220

19=MAR-79 09:06
000177

012737

117737
005237
117737
005237
013737
012737
000722
012737

171044

010330

177102
007264
177070
007264
007272
000020

DV11 DEVICE DIAGNOSTICS.
JMP

007264

007270
007266

007274

007262

010770
001214

001214
001216

010272
004000

170734

MOV
4$:

3$:

MOVB
INC
MOVB
INC
MOV

4
COPYRIGHT 1975

aRE TURN

#TABLE ,POINTER

;

DIGITAL EQUIP.

@POINTER,COUNT
POINTER
@POINTER,CHAR
POINTER
;
SELECT,EXERCISE :

MOV
BR
MOV
MOV
CLR
MOV
BIT
BNE
MOV
BIC
CMPB
BEQ
CMP

#20, L INE
TESTER
HTST2,RETURN

:
:

RETURN,NEXT
-(SP)
#58,~(SP)
#BIT11,aTKCSR
.~6
aTKDBR,
= (SP)
#IT7,(SP)
#1,(SP)+
KBISR
(SP)+,(SP)+

;
;SET
*SET
;TTY
*YES

JMP

ARE TURN

;POP FAKE INTR OFF STACK
:

KBISR:

MOV
MOV

RO,-(SP)
aTKDBR, RO

:
*SAVE CHAR IN RO

#1,R0
1%
#MAR18,2(SP)
(SP)+,R0

JWAS IT <*A> (CNTRL A)?
BR IF NO
:SET RETURN
RESTORE RO

28%:

CORP.

1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
}22?

010226
010234
010236
010242
010250
010252
010256
010262
010266
010270

013737
005046
012746
032777
001374
017746
042716
122726
001403
022626

010272

000177

170716

1456
1457

010276
010300

010046
017700

170702

1459
1460
1461
1462

010310
010314
010316
010324

022700
001003
012766
012600

000001

1465

010330
010334

001
010

015
040

010404
010430
010434

010
001
010

040
015
040

002
001
002

.BYTE 8.,40,2,105,12..40,2.,116.6.,40,2,116.4.40.,2,104.6.,40.2.104
BYTE 1.15,1,12
.BYTE 8.,40,2,105,12.,40,2,116.6.40.2.116.4.40.2.104.6.40.2.104

010464

010

040

002

.BYTE 8.,40,2,105,12.,40.,4,116,4,40.2,116,4,40,2,104,6,40,2,104

010514
010540
010544
010574
010600
010630
010634
010660
010664
010710
010714
010734
010740

010
001
010
001
010
001
010
001
010
001
010
001
010

040
015
040
015
040
015
040
015
040
015
040
015
040

002
001
010
001
010
001
002
001
002
001
012
001
012

.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 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 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
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
.BYTE 1.15,1,12
.BYTE 8.,40,10.,105,4.40,2,116,6,40.2.116.4.40.8.,104
.BYTE 1.15,1,12
.BYTE 8.,40,10.,105.4.40,2.116.,6.40.2.116.4.40.8..104

1458

}zgz

010304

010326

010354
010360
010400

010460

010510

042700

170730
000200
000001

177600

007502

BIC

000002

001
010
001

001

015
040
015

015

002
012

001
012
001

001

1%:

TABLE:

CMP
BNE
MOV
MOV

RTI

#~C<177> R0

FOR FAKE INTR
FAKE PC OF INTR
ACTIVE?
WAIT TILL DONE.

;CLEAR PARITY
;WAS “A (CHANGE LINES) HIT?
*BR IF YES
;BR TO KBISR NOT TAKEN

*CLEAR ALL BUT DATA

*CONT.

.BYTE 1,15,2.12
.BYTE 8.,40,10.,105,4,40,2,116.6.,40,2.116.4,40,8..104

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

.BYTE 1.15,1,12

MACY

SEQ 0049

L
CZDVEC.PN
010760
010764

19-MAR-79 09:06
001
000

010770

015
000

DV11 DEVICE DIAGNOSTICS.
001
000

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

&
COPYRIGHT 1975

DIGITAL EQUIP.

CORP.

MACY
SEQ 0050

M4
CZDVEC.PN

19-MAR~79 09:06

Dv11 DEVICE DIAGNOSTICS.

DIGITAL EQUIP. CORP.

MACY

SEQ 0051

N
19-MAR-79 09:06

CZDVEC.P
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
‘1479
1480

DV11 DEVICE DIAGNOSTICS.

&
COPYRIGHT 1975

JRRRERRRARRANNANCANARNNRS

TEST

DIGITAL EQUIP. CORP.

AAnadnaa
v e h A A AN AR R AR AR R A AR

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

;*REGISTER WERE CLEARED BY INITIALIZE

010770
010776

012737

001226
001216

012737
105777

TST2:

MOV

#2,TSTNO

TSTB

aTPCSR

MOV

BPL

RESET

170160
000004

65%:

CLR
BIS
MOV
MOV
CMP
cMP
DEC
BNE
INC
MOV
MOV
BEQ
HLT
MOV
MOV
BEQ

HLT
MOV
SCOPE
HLT
MOV
JMP

1%:

001200
170066

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

R AR R AR RS

TEST 2

100375
00000

170140
170132

AR AR AR AR AR

#TST3 NEXT

;WAIT FOR TTY READY

:BRI%F NOT READY

RS
#100,9TKCSR
”1S,an6
#8. .R2
@TKCSR,aTKCSR
@TKCSR,aTKCSR
R2
65%
RO
MC.CSR,R3
(R3) R4
.+
2
MC.LSR,R3
(R3) R4
.+

sSET TTY INTERUPT ENABLE
sSET FOR NON-EX DEVICE.

:SET COUNTER
SWASTE TIME
;WASTE TIME
:DELAY DONE?
;BR IF NO

sFLASH LIGHTS

sSET MC.CSR _POINTER
;READ REGISTER

;CONTROL STATUS NOT CLEARED, ERROR
;SET POINTER
;READ MC.LSR

2
#6, 04

sLINE STATUS NOT CLEARED, ERROR
JRESET TRAP CATCHER
sCHECK FOR LOOP
sSHOULD NOT TRAP.

5
#STACK,SP
aRETURN

JRRRERRRARNANRAAARNRAANNR

[EST

At a v e a A

kA AR AR R AR AR AR R AR

A AR

J*VERIFY THAT ''INTERUPT ENABLE'' CAN BE

;«SET AND CLEARED.

4
v
-a.g.a-a-a-a—ha]:::—wa

e
i

d
b
b
b

d e
D

d
b

d e

;
elelelalelelelelelelels)

NflU-‘—‘—hd-i—hfi-d-i—18
= OVRNOWVHWNN=O

e
R
e
e T
i
i

Vivvuiuviuaiuiuniuiiuiniaunv

012737

001226
001216

AR A AR AR AR A

A A AR AR AR AR AR AR AR AR AR AR RN AR AR AR AR AR AR AR R AR AR AR ARk

TEST 3

TST3:

MoV
MOV
MOV
MOV
MOV
BIC
MOV
CMP
BEQ

#3,TSTNO
#TST4 NEXT
MC.CSR,R3
#INTENA, (R3)
(R3) ,R4
#*C<INTENA>
R4
#INTENA
RS
R5,R4
. +4

BIC
BIC

#INTENA
RS
#INTENA, (R3)

;SET POINTER TO MC.CSR
sLOAD FUNCTION
<READ RESULTS
;MASK OFF ALL OTHER BITS.

;MAKE R5=GOOD
JRESULTS OK?
:BR IF YES
;ERROR. R5=GOOD,R4=BAD ,R3=REGISTER
;CLEAR BIT

MACY

SEQ 0052

B
CZDVEC.PI
1522
1523

011202
011204

1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536

011212
011214
011216

1524

1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555

011210

19-MAR-79 09:06

011304
042704

DV11 DEVICE DIAGNOSTICS.
MOV

177677

(R3) ,R4

DIGITAL EQUIP.

sREAD REGISTER

#*C<INTENA> R4

sMASK OFF ALL OTHER BITS.

BEQ
HLT
SCOPE

.+
2

;BR_IF YES
;BIT FAILED TO CLEAR
:SCOPE TEST.

R5,Ré

IRRRRARRARARRAARRRRARRRAN

CORP.

BIC

CMP

JREGISTER OK?

TEST

“«VERIFY THAT 'DONE'' CAN BE

v v

A v

A A AR AR AR AR AR AR RN

*«SET AND CLEARED.

::'t'fi*Qt't"'..'t'.'..t'fitQ.Q.t..Qlt.'.'.'..'.'.....'.....QQ...Q.

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

012737
012737
013703
012713
011304

000004
011312
007300
000200

001226
001216

TEST &

TST4:

177577
000200

000200
000200
177577

MOV
MOV
MOV
MOV
MOV
BIC
MOV
CMP
BEQ
HLT
BIC
BIC
MOV

#4 ,TSTNO
#TSTS NEXT
MC.CSR,R3

#DONE , (R3)
(R3) ,R4

JCLEAR BIT
JREAD REGISTER

CMP

R5,R4

JREGISTER 0OK?

BIC

BEQ
HLT

;SET POINTER TO MC.CSR
;LOAD FUNCTION
sREAD RESULTS
sMASK OFF ALL OTHER BITS.
;MAKE R5=G0OD
JRESULTS OK?
;BR IF YES
;ERROR. R5=GOOD,R4=BAD,R3=REGISTER

#DONE , (R3)
(R3) ,R4

#*C<DONE> ,R4

#DONE ,RS
RS ,R4

.+
2
#DONE ,RS

#*C<DONE> R4

sMASK OFF ALL OTHER BITS.

SRRERKARRRRRRARARRRRRARAR

;BR IF

YES

;SCOPE

TEST.

;BIT FAILED

SCOPE

1556
1557
1558
1559
1560
1561
1562

1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577

[EST

Aaaaaaa

**VERIFY THAT 'MAINTENANCE MODE'' CAN BE

vt A

TO CLEAR

At AR

AR AR

R RN RS

*#SET AND CLEARED.

;:Q't'ti*tttt'l.*.'tt'fi.ttt.t'.fi'tt.Qtttt.tQ..Q'fi..'t..tttt".'.Qt

011312
011320
011326
011332
011336
011340

011344
011350
011352
011354
011356
011362
011366
011370

000005
011404
007300
001000
176777

001000

001000
001000
176777

TEST 5

001226 1575
001276

MOV
MOV
MOV
MOV
MOV

#5,TSTNO
#TST6 NEXT
MC.CSR,R3
#MAINT, (R3)
(R3) ,R4

sSET POINTER TO MC.CSR
sLOAD FUNCTION
sREAD RESULTS

CMP
BEQ

R5,R4
. +4

JRESULTS OK?
;BR IF YES

BIC
MOV

HLT
BIC
BIC
MOV
BIC

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

sMASK OFF ALL OTHER BITS.
;MAKE R5=G0OOD

;ERROR. R5=GOOD
,R4=BAD ,R3=REGISTER
'

;CLEAR BIT
;READ REGISTER
sMASK OFF

ALL OTHER BITS.

MACY

SEQ 0053

c
CZDVEC.P11
1578
1579
1580
1581

011374
011376
011400
011402

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

020504
001401
104002
104400

CMP
BEQ
HLT
SCOPE

R5,R4
.+
2

JRRRRARRRARRARARRRRRRNRRR

1585
1586

;*VERIFY THAT ''SCAN ENABLE'' CAN BE
s*SET AND CLEARED.

1588

}ggg
1591

1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604

1605
1606
1607
1608

;
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
104002
042705
042713
011304
042704

020504
001401
104002
104400

000006

011476
007300
000040
177737
000040

000040
000040
177737

001226

001216

AR AR

CORP.

JREGISTER 0OK?
;BR IF YES
sBIT FAILED TO CLEAR
;sSCOPE TEST.

1584

1587

DIGITAL EOUIP.

TEST

€

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

aa e

v e e A A A AR AR RO R AR

R R RARRRANARA AR RN RA R R AR AR AR

R AR

TEST 6

T1ST6:

MOV

#6,TSTNO

MOV
MOV
MOV
MOV
BIC
MOV
(0,
BEQ
HLT
BIC
BIC
MOV
BIC

#TST7 NEXT
MC.CSR,R3
#SCNENA, (R3)
(R3) ,R4
#*C<SCNENA> R4
#SCNENA RS
RS.R4
. *4
2
#SCNENA
RS
#SCNENA, (R3)
(R3) ,R4
#*C<SCNENA> R4

CMP
BEQ
HLT
SCOPE

R5.,R4
A
2

sSET POINTER TO MC.CSR
;LOAD FUNCTION
sREAD RESULTS
JMASK OFF ALL OTHER BITS.
;MAKE R5=G00D
JRESULTS OK?
;BR IF YES
;ERROR. R5=G00D,R4=BAD ,R3=REGISTER
sCLEAR BIT
;READ REGISTER
;MASK OFF ALL OTHER BITS.
JREGISTER 0K?
;BR IF YES
;BIT FAILED TO CLEAR
sSCOPE TEST,

MACY
SEQ 0054

D
CZDVEC.P1

19-MAR-79 09:06

Dv11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

JRRRRRRARRARAR
AR R AR Rnwnn

1611
1612

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

1614
}2}2

1617
1618
1619
1620
1621

011476
011504
011512
011516
011522

012737
012737
013703
012713
011304

000007
011600
007300
000040

1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634

011526
011532
011534
011536
011540
011544
011552
011560
011562
011564
011570
011572

052705
020504
001401
104002
042713
023737
023737
011304
010405
042705
020504
001401

000020

1622

1635
]'gg(;

011524

011574
011576

010405

000040
000000
000000

001226
001216

CORP.

1610

1613

TEST

DIGITAL EQUIP.

RARRRRRRARARRRRAAAA
RO R AR AR
R

AR AR A A A AR AR R AR AR AR AR AR AR AR AR AR

RA R

A AR AR

TST7:

000000
000000

000020

104002
104400

MOV
MOV
MOV
MOV
MOV

#7,TSTNO
#TST10,NEXT
MC.CSR,R3
#SCNENA, (R3)
(R3) R4

BIS
CMP
BEQ
HLT
BIC
MP
CMP
MOV
MOV
BIC
CMP
BEQ

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

HLT
SCOPE

R4.R§

;SET BUSY BIT IN GOOD.
JREGISTER 0K?

;BUSY NOT SET, ERROR
sCLEAR SCAN ENABLE
sGIVE BUSY A CHANCE TO CLEAR
JWHEN ON A HOT ROD MACHINE (11/70)!
sREAD MC.CSR
sGET IMAGE
;CLEAR BUSY IN GOOD.
;BUSY CLEARED?

;BUSY NOT CLEARED, ERROR
;sCHECK FOR LOOP, ITERATIONS

JRRRARARRIRRARRRRRRARRARN

s*VERIFY THAT SETTING 'DONE’'‘ DCES NOT CAUSE AN

1640

012737
012737
012737
005077
012777

000010
011666
000340
175452
011660

001226
001216
177776

1651
1652

011642
011650

052777
005037

000200
177776

175430

1650

1653
1654
1655
1656
1657

TEST

ke A

A A AR AR

s*INTERRUPT IF "'INTERRUPT ENABLE'' IS CLEARED.

1641

011600
011606
011614
011622
011626

011634

011654
011656
011660
011662
011664

012777

000240
000402
022626
104003
104400

000340

175444

MOV
MOV

2%:

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

RAAR R

AR AR AR

AR AR

AR AR AR AR

MOV
CLR
MOV

#10,TSTNO
#TST11 ,NEXT
#340,PS
aM(C.CSR
#1$,aMC.VEC

;LOCK OUT INTERRUPTS
;CLEAR CONTROL REGISTER
;SET UP INTERRUPT SERVICE ADDRESS

BIS
CLR

#DONE ,aMC.CSR
PS

:SET DONE
sALLOW INTERRUPTS

MOV

1%:

AR AR

TEST 10

TST10:

175450

;GET IMAGE

1639

1645
1646
1647
1648
1649

JSET REGISTER POINTER
sSET SCAN ENABLE
JREAD REGISTER

1638

;

TEST 7

MOV

1642
}&2

NOP
BR
POP2SP
HLT
SCOPE

#346,mC.LVL

2%
3

;SET UP INTERRUPT PRIORITY

sDELAY FOR INTERRUPT
sNO INTERRUPT, CONTINUE
JRESTORE STACK, INTERRUPT
sOCCURED, ERROR
sCHECK FOR LOOP, ITERATIONS

MACY
SEQ 0055

E
CZDVEC.PIN

19-MAR-79 09:06

Dv11 DEVICE DIAGNOSTICS.

1
1228

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

1661

;*SET AND 'DONE’' CLEARED.

1662

1663

;lggls.

;

1666
1667
1668
1669
1670

011666
011674
011702
011710
011714

012737
012737
012737
005077
012777

000011
011754
000340
175364
011746

001226
001216
177776

1672
1673
1674
1675
1676
1677
12;3

011730
011736
011742
011744
011746
011750
011752

052777
005037
000240
000402
022626
104003
104400

000100
177776

175342

011722

012777

000340

TEST

TST11:

175362

175356

2%:

AR R AR

R AR AR AR AR AR AR AR AR AR

MOV
MOV
MOV
CLR
MOV

#11,TSTNO
#TST12 NEXT
#340,PS
aMC.CSR
#1$,aMC.VEC

BIS
CLR
NOP
BR
POP2SP
HLT
SCOPE

#INTENA,aMC.CSR
PS

#340,aMC . LVL

sSET UP INTERRUPT SERVICE LEVEL

sSET INTERRUPT ENABLE
sALLOW INTERRUPTS
;DELAY FOR INTERRUPTS
sNO INTERRUPT, CONTINUE
sRESTORE STACK
s INTERRUPT OCCURED, ERROR
;sCHECK FOR ITERATIONS, LOOP

2%
3

1681

;*VERIFY THAT SETTING 'DONE’'' CAUSES AN INTERRUPT

1683

TEST

;*WITH "'INTERRUPT ENABLE'' SET

1684
;Iggg

;
011754
011762
011770
011776
012002
012010
012016
012024
012030
012036
012040
012042
012044
012046

012737
012737
012737
005077
012777
012777
012777
005037
052777
000240
104004
000401
022626
104400

000012
012050
000340
175276
012044
000100
000340
177776
000200

001226
001216
177776

175242

1$%:
2%:

AR AR AR AR AR

12 At waat

AR R AR AR R AR AR

At A kAR AR AR R AR R

AR AR AR AR AR AR

R R

AR AR AR AR R AR RRR

TEST 12

TST12:

175274
175262
175262

RA AR AR

sLOCK OUT INTERRUPTS
;CLEAR CONTROL REGISTER
;SET UP INTERRUPT SERVICE ADDRESS

JRRRRRARRAARARANRARARANRE

1682

R AR AN

MOV

1%:

A AR A AR AR R

1680

1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700

DIGITAL EQUIP. CORP.

JRRRRARNRRRARANNRRARRANRE TEST 77 sttt a v a vt A e v A Ak AR

1660

1671

MOV
MOV
MOV
CLR
MOV
MOV
MOV
CLR
BIS
NOP
HLT
BR
POP2SP
SCOPE

#12,TSTNO
#TST13 NEXT
#340,PS
aMC.CSR
#1$,aMC. VEC
#INTENA ,aMC.CSR
#340,aMC.LVL
PS
#DONE ,aMC.CSR
4
2%

sLOCK OUT INTERRUPTS
;CLEAR CONTROL REGISTER
sSET UP INTERRUPT SERVICE ADDRESS
sSET ""INTERRUPT ENABLE"’
sSET "'INTERRUPT LEVEL''
sALLOW INTERRUPTS

;SET "DONE'’
;DELAY FOR INTERRUPT
s INTERRUPT OCCURED, ERROR
s CONT INUE
s INTERRUPT OCCURED, RESTOR STACK
;sCHECK FOR ITERATION, LOOP

MACY

SEQ 0056

F
CZDVEC.PN

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRRRRRRRNANRAAREAAAARANY

[EST

wnanantnantnnnnenennrtnonenntnn

;*VERIFY THAT NO INTERRUPT OCCURS WITH
;*"'INTERRUPT ENABLE'' SET AND ‘DONE'' SET AT PRIORITY 7.

——
Y— J—
Y
Y
YO Y
O
S
N R
Y
Y
Y
G
R
Y
e

NNNNNNNNNNNNNNNNNNNY
DSLSLSLS
)NPOPONON)
= b b b e d b
=o
oA
S WN=O VRNV
WN=0O0

;

012050
012056
012064
012070
012076
012104
012112
012120
012126

012136

012737
012737
005077
012737
012777
012777
012777
052777

000240
000402
022626
104003

000013
012140
175210
000340

001226
001216

R AR R AR AR R R RN R AR RRRRRRRRRRRN AR RN

RN RN

TEST 13

TST13:

012132
340

MOV
MOV
CLR
MOV
MOV

#13,TSTNO
#TST14 NEXT
aMC.CSR
#340,PS
#1%,aMC.VEC

MOV
BIS
NOP

#INTENA,aMC.CSR
#DONE ,aMC.CSR

MOV

000200

1%:

104400

R AR

DIGITAL EQUIP. CORP.

POP2SP
HLT

2%:

SCOPE

sCLEAR CONTROL REGISTER

;TO LEVEL 7.

sSET UP INTERRUPT SERVICE ADDRESS

#340,aMC . LVL

sSET UP _INTERRUPT SERVICE LEVEL

;SET _INTERRUPT ENABLE
s GENERATE INTERRUPT
;DELAY FOR INTERRUPT

sNO INTERRUPT, CONTINUE

sRESTORE STACK
s INTERRUPT OCCURED, ERROR

;CHECK FOR ITERATION, LOOP

JRRKRRRRRARARARRRRAARARRE

TEST

714

uaaa

ARk

AR R AR

s*VERIFY THAT NO INTERRUPT OCCURS WITH

;*"'INTERRUPT ENABLE'' SET AND ‘DONE'' SET AT PRIORITY 6.
s

;s
012737
012737
005077
012737
012777
012777
012777
052777
000240
000402
022626
104003

104400

001226
001216

MOV

#TST15 NEXT

MOV
MOV
MOV

#300,PS
#1%,aMC.VEC
#300,aMC.LVL

MOV
BIS
NOP
1%:

2%:

AR AR RN R AR AR AR hd

#14 ,TSTNO

MOV
CLR

175062

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

TEST 14

TST14:

177776
175110
175104
175070

A A A AR

aMC.CSR

#INTENA,aMC.CSR
#DONE ,aMC.CSR

HLT

POP2SP

SCOPE

;CLEAR CONTROL REGISTER

:TO LEVEL 6.
:SET UP INTERRUPT SERVICE ADDRESS
sSET UP INTERRUPT SERVICE LEVEL

sSET INTERRUPT ENABLE
:GENERATE INTERRUPT
;DELAY FOR INTERRUPT

sNO INTERRUPT, CONTINUE

JRESTORE

STACK

s INTERRUPT OCCURED, ERROR

;CHECK FOR ITERATION, LOOP

MACY

SEQ 0057

G
CZDVEC.P1

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

DIGITAL EQUIP. CORP.

1744

1745

JRRRRRANRRARRRAARRRARNRAR

1746
1747
1748
1749
1750
1751
1752
1753
© 1754
1755
1756
1757
1758
1759

TEST

aumnnanannnnentnanrannnntnnnnen

;*VERIFY THAT NO INTERRUPT OCCURS WITH
;*"'INTERRUPT ENABLE'' SET AND 'DONE'' SET AT PRIORITY 5.

::fitt.'t.it..t.t"'t'l.t'.'tt.tfiittfi'.'tt'.t't..QQ...Q...QQ.Q..Q.Q

3
012737
012737
005077
012737
012777
012777
012777
052777
000240
000402
022626

1760

1761
1762
1763

001226
001216

1765
1766
1767
1768

TsT15:

MOV
MOV

#15,TSTNO
#TST16,NEXT

MOV

#240,PS

CLR

177776
175020
175014
175000
174772

MOV

MOV
BIS
NOP

1%:

104003
104400

1764

W 15

POP2SP
HLT
SCOPE

2%:

aMC.CSR

:CLEAR CONTROL REGISTER

#1$,aMC. VEC

*SET UP INTERRUPT SERVICE ADDRESS

#INTENA,@MC. CSR
#DONE , aMC . CSR

*SET INTERRUPT ENABLE
*GENERATE INTERRUPT
;DELAY FOR INTERRUPT

*TO LEVEL S.

#240,aMC . LVL

*SET UP INTERRUPT SERVICE LEVEL

;NO INTERRUPT, CONTINUE

sRESTORE STACK
s INTERRUPT OCCURED, ERROR
;CHECK FOR ITERATION, LOOP

:tt*tt.tt'ttt*.ttt.'itttt

TEST

L2222 2222222222222 222

;*VERIFY THAT NO INTERRUPT OCCURS WITH
;*"'INTERRUPT ENABLE'' SET AND ‘DONE'' SET AT PRIORITY 4.
AR

;
012320
012326
012334

012737

000016
012410
174740

001226
001216

MOV

2%:

AR R AR AR

R AR

#16,TSTNO

MOV
CLR
MOV
MOV
MOV

#TST17 NEXT
aMC.CSR
#200,PS
#18,aMC. VEC
#200,aMC.LVL

HLT
SCOPE

MOV
BIS
NOP

1%:

RAR

TEST 16

TST16:

177776
174730
174724
174710
174702

A A A A AR AR AR AR A AR AR AR AR AR R A AR

POP2SP

#INTENA,aMC.CSR
#DONE ,aMC.CSR

’

;CLEAR CONTROL REGISTER
;TO LEVEL 4.
;SET UP INTERRUPT SERVICE ADDRESS
sSET UP_INTERRUPT SERVICE LEVEL

;SET INTERRUPT ENABLE
s GENERATE INTERRUPT
;DELAY FOR INTERRUPT

sNO INTERRUPT, CONTINUE

JRESTORE STACK

s INTERRUPT OCCURED, ERROR
sCHECK FOk ITERATION, LOOP

MACY

SEQ 0058

H
CZDVEC.PI

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

At n e naan

v e e v

v e AN

AR AR R

J*VERIFY THAT AN INTERRUPT OCCURS WITH '‘INTERRUPT

R
————
Y
Y
Y
P
Y

TEST

DIGITAL EQUIP. CORP.

;*ENABLE'' SET AND "DONE'' SET AT PRIORITY 0.
s IR

;

012410
012416
012424
012430
012436
012442
012450
012456
012464
012466
012470

012737
012737

000017
012476

001226
001216

012472

000000
000100
000200

174622
174614

174650

174644

AR AR AR R

A AR R AR AR AR AR AR AR AR R AR AR RAAR R AR A RARAARR AN AR AR

TIST17:

#17 ,TSTNO
#TST20,NEXT

1746646

MOV

#1%,aMC. VEC

177776

MOV

CLR
(LR

;CLEAR CONTROL REGISTER

aMC.LVL

sSET UP INTERRUPT SERVICE PRIORITY

#INTENA,aMC.CSR
#DONE ,aMC.CSR

sSET INTERRUPT ENABLE
s GENERATE INTERRUPT
sWAIT FOR INTERRUPT
sNO INTERRUPT, ERROR.

;SET UP INTERRUPT SERVICE ADDRESS

;SET PROCESSOR PRIORITY TO LEVEL O.

POP2SP

2%:

aM(C.CSR
#0,PS

MOV
BIS
NOP
HLT

1%:

012474

TEST 17

MOV
MOV

012472

P 1

2 CONT INUE

s INTERRUPT OCCURED,

SCOPE

RESTORE

STACK

AR AR AR

AR,

sCHECK FOR INTERATIONS, LOOP.

JRRRRRRRRRARRANRRANRRRANRN

R R

— Y—

ZRIRER 558 833323233333

1786
1787

TEST

Aaanaa

A A

o0 CONONWVSWN—=O

—d el —d
)
)
b

—

o 0o 00 00 0o OV 0o 0o 0o 0O

JRRRRRARRRRANRARRARRRRANE

1821

;s*VERIFY THAT AN INTERRUPT OCCURS WITH “'INTERRUL#T

s*ENABLE'' SET AND ‘DONE'‘ SET AT PRIORITY 1.
IR

;
012476
012504
012512
012516
012524
012530
012536
012544
012552
012554
012556
012560
012562

012737
012737
005077
012777
005077
012737
012777
052777
000240
104004
000401
022626

104400

000020
012564

001226
001216

012560
174558
00004
000100
000200

174562

AR AN A

A A AR AR R AR R AR

MOV
MOV

#20,TSTNO
#TST21 NEXT

174560

MOV

#1%,aMC.VEC

177776
174534
174526

MOV

CLR

aMC.CSR

CLR

MOV
BIS
NOP

HLT

2%:

AR AR R R AR AN R RN RN AR

AR NNR SRR AN

TEST 20

TST20:

1%:

aMC.LVL

#40,PS

#INTENA,aMC.CSR
#DONE ,aMC.CSR

POP2SP

SCOPE

;CLEAR CONTROL REGISTER

sSET UP INTERRUPT SERVICE ADDRESS

;SET UP INTERRUPT SERVICE PRIORITY

sSET PROCESSOR PRIORITY TO LEVEL 1.

;SET INTERRUPT ENABLE
;GENERATE INTERRUPT
;WAIT FOR INTERRUPT

sNO INTERRUPT, ERROR.
2 CONT INUE

s INTERRUPT OCCURED,

RESTORE

STACK

sCHECK FOR INTERATIONS, LOOP.

MACY

SEQ 0059

I
CZDVEC.PN

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRARRARRAAARAANRRRRNRAAR

[EST

DIGITAL EQUIP. CORP.
wannnnanannnnnnrananonearnnans

;*VERIFY THAT AN INTERRUPT OCCURS WITH '‘INTERRUPT

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

;3
012737
012737
005077
012777
005077
012737
012777
052777
000240

012652

001226
001216

012646

174472

000100
000200

174446
174440

000021

174474

174470

AR A AR AR AR R AR AR

AR AR A AR AR AR AR AR AR AR

RN AR

TESY 21

Tste1:

177776

#21,TSTNO
#TST22 NEXT
aMC.CSR
#1%,aMC. VEC
aMC.LVL
#100,PS

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

#INTENA,aMC.CSR
#DONE ,aMC.CSR

104004

012646
012650

sSET _INTERRUPT ENABLE
;GENERATE INTERRUPT

;WAIT FOR INTERRUPT
sNO INTERRUPT, ERROR.

“

000401
022626

s CONT INUE

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

104400

JRRRIRARRRAANRRNRRRRRANAR

[EST

220

st a v

A A

AR AR

AR AR’

;*VERIFY THAT AN INTERRUPT OCCURS WITH ‘‘INTERRUPT

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

::t.tt.ttt..fl..t"".t...tttttttt.tt....Qtfi.t..Q.tfi".t'fit"'ttfi't

;
012652
012660
012666
012672
012700
012704
012712

012737

001226
001216
174404

177776
174360
174352

TEST

%gTZZ:

#22,TSTNO
#TST23 NEXT

aM(C.CSR

#1%,aMC.VEC
aMC.LVL
#140,PS

#INTENA ,aMC.CSR
#DONE ,aMC.CSR

;CLEAR CONTROL REGISTER

;SET UP INTERRUPT SERVICE ADDRESS
sSET UP INTERRUPT SERVICE PRIORITY
;SET PROCESSOR PRIORITY TO LEVEL 3.

sSET _INTERRUPT ENABLE
;GENERATE INTERRUPT
;WAIT FOR INTERRUPT

sNO INTERRUPT, ERROR.

2 CONT INUE
: INTERRUPT OCCURED, RESTORE STACK
;CHECK FOR

INTERATIONS,

LOOP.

MACY

SEQ 0060

J
P11

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

JRREARRARCRARARRrnnaknwnt

TEST

DIGITAL EQUIP.

CORP.

wanannannnannanantnnnnanenrans

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

;:t...tttttttfit"".'t.fi't.'.tl..QQ.Q'.Q....'.".t....'..'Q.Q."i'

3% EEREREE &

;
012740

012737

012766
012770
012774

005013
005037
005005

012746 012737
012754 012737
012762 013703
012776
013002
013004
013006
013010
013012

013014

013016
013020

013022
013024

012700
010513
011304
020504

000023

013026
013002
007300

001226

001216
001220

TEST 23

TST23:

MoV

#15724 NEXT
#18,L0CK
MC.CSR.R3

;SET POINTER

MOV
MOV
MOV
cMP

#16. ,RO
RS, (R3)
(R3) R4
RS,R4

*SET UP TO TEST 16 LINE NUMBERS
*SET LINE NUMBER
*READ BACK LINE NUMBER
*ARE EXPECTED AND RECEIVED

CLR
CLR
CLR

177776

000020

1%:

001401
104002

104401

BEQ
HLT

2%:

005205
005300

SCOP1

INC
DEC

001367
104400

#23,TSTNO

MOV
MOV
MOV

BNE
SCOPE

(R3)
PS
RS

:CLEAR CONTROL STATUS REGISTER
*ENABLE INTERRUPTS
*CLEAR EXPECTED LINE NUMBER

2%
2

*LINE NUBMERS THE SAME
:LINE NUMBERS DIFFERENT, ERROR

*CHECK FOR DATA FREEZE

RS
RO

*UPDATE LINE COUNT
*UPDATE LINE NUMBER

JRANKANKRRNRRRRARRRRARRRAR

* CONT INUE
*CHECK FOR ITERATION, LOOP
JEST

At A

Ak AN AN AR AN AR R AR AR R AR R

;*USING ''STEP'' MODE, VERIFY THAT THE

;*LINE COUNTER CAN BE STEPPED THRU ALL STATES.

::t.t'ttttt'tit!'"tt!tfi'fit'tt.tfii'tQ""ttt'tttitt'tt"ttitt't.t'

383X 3
NOWNHWN=O
=0V

i clh o

i ch

O O OO VOOV VOV OVOO0
nony n — d o e h b e o h

013026
013034
013042
013050
013054
013060
013062
013064
013070
013074
013100
013102
013104
013106
013110
013112
013114
013116
01312C
013122

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

000024
013124
013054
007300
177776
000020
000017
000400

001226
001216
001220

TEST 24

TST24:

1$:

2%:

3%:

MOV
MOV
MOV
MOV
CLR
CLR
CLR
MOV
MOV
BIS
DELAY
MOV
CMP
BEQ
HLT
SCOP1
INC
DEC
BNE
SCOPE

#24,TSTNO
#TST2S NEXT
#1%,L0CK
MC.CSR,R3
PS
(R3)
RS
#16. RO
#17.,(R3)
#STEP, (R3)

;SET POINTER
JENABLE INTERRUPTS
sCLEAR CONTROL STATUS REGISTER
sCLEAR EXPECTED LINE COUNT
JSET UP TO TEST 16 VALUES
;FIRST VALUE =0
;STEP LINE COUNTER

(R3) R4
RS .,R4

JREAD LINE COUNTER
;COMPARE EXPECTED AND

3%
2

RS
RO
2%

JRECEIVED LINE NUMBERS
;LINE COUNTER ERROR
sCHECK FOR DATA FREEZE

JUPDATE EXPECTED LINE NUMBER
:CHECK FOR ITERATIONS, LOOP

MACY

SEQ 0061

K
CZDVEC.PT
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

JRRRRRARARRARRAAAANRAAANRN

TEST

DIGITAL EQUIP. CORP.
wanana

vt a

v e a v

v kAR

A e

;*WRITE 1'S INTO ALL SCANNER MEMORY LOCATIONS.

;'¥SR{F; THAT ALL LOCATIONS HAVE BEEN WRITTEN
. %

s*VERIFY THAT '‘CLEAR SCAN'' CLEARS ALL SCANNER
s *MEMORY LOCATIONS.

: M

;
013124
013132
013140
013146

012737

000025
013326
013152
007300
002000

001226
001216
001220

177776

000020
001017
000400

2%:

000020
070000
000017
000400

3%:

4%:

013252
004000
000020

001220

5%:

000020

000017
000400

6%:

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

013322
013324

22222222

SCOP1

#25,TSTNO
#TST26 NEXT

#18,L0CK

MC.CSR.R3

;SET POINTER

#CLRMUX, (R3)
PS
#16. RO
#MAINT+17, (R3)
#STEP, (R3)
RO

:CLEAR CONTROL STATUS REGISTER
*ENABLE INTERRUPTS
*SET UP TO TEST 16 LOCATIONS
*SET MAINTEANCE MODE
*SET LINE COUNTER THRU ALL
“STATES, WRITING 1°'S INTO

#70000,RS
#17,(R3)

:SET UP EXPECTED STATUS REGISTER
*START WITH LINE 0

(R3) R4
RS R4
43

:READ DATA
:COMPARE EXPECTED AND RECEIVED
“DATA

2
#16. ,RO

#STEP, (R3)

RS
RO
3$
#5%,L0CK

*ALL MEMORY WORDS
*SET UP TO TEST 16 WORDS
*ACCESS SCANNER MEMORY

*CONTROL STATUS OR MEMORY ERROR
*CHECK FOR DATA FREEZE

*UPDATE EXPECTED STATUS
*UPDATE LINE COUNT
* CONT INUE
*SET RETURN

#CLRSCN, (R3)

*SET "‘CLEAR SCAN''

#16. RO

;SET UP TO TEST 16 MEMORY

aegsv.<n3>

*WAIT FOR ''CLEAR CYCLES''

RS
#17,(R3)
#STEP, (R3)

*LOCATIONS
*FIRST TO BE TESTED=0
*ACCESS SEANNER MEMORY

(R3) .R4
RS,R&
7%

;READ DATA
*COMPARE EXPECTED AND RECEIVED
:DATA

RS
RO
6%

*UPDATE EXPECTED DATA
*UPDATE LINE COUNT
:CONTTINUE

2
7%:

TEST 25

t5T25¢
1%:

ALEAS AR

*CONTROL STATUS OF MEMORY ERROR
*CHECK FOR DATA FREEZE

sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0062

L
CZDVEC.PN

19-MAR=-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRRRRRRARANRARRRRARRRNAR

[EST

DIGITAL EQUIP. CORP.
A

aaad

et a kv

A e e v A A

AR R AR

::ttttttltt.fifi.t"'..'t'Q.fi'..itt.tt..t.t.itt..itt.ttt.t..t.tt""

T 26

-t

n
o

2017

:*WRITE 1'S INTO SELECTED SCANNER MEMORY LOCATION.
:*VERIFY THAT ONLY SELECTED LOCATION WAS WRITTEN INTO.

—

SEESEgRERRRERE CEEREFAREREE
T ER 8

1975
1976
1977
1978

013326

012737

TsT126:

000026
013510
013354
007300

1%:

177776
000020
000017
004000
000020

000400

MC.CSR,R3
(R3)

2%:

PS
#16. RO
#17 ,R2
#CLRSCN, (R3)

3%:

.4
#MAINT, (R3)
R2, (R3)
#STEP, (R3)
#MAINT, (R3)
#16.,TEMP3
#17,(R3)
R2
R1
#STEP, (R3)

001000
000400
001000
000020
000017

#26,TSTNO
#TST27 NEXT
#1$,L0CK

001252

#BUSY, (R3)

(R3) R4

R1.RS
R4‘R2
070000

001252

4%:

070000.RS
R4 .R5

5%:

5%
2

TEMP3
33

;SET POINTER
;CLEAR CONTROL STATUS REGISTER
sENABLE INTERRUPTS
sSET UP TO TEST 16 ADDRESSES
;FIRST ADDRESS TO BE TESTED=0
;CLEAR ACANNER MEMORY
;WAIT FOR CLEAR CYCLE

sSET "MAINTENANCE MODE''

sSET LINE COUNTER TO TEST ADDRESS=-1
sWRITE 1°'S INTO TEST ADDRESS

;CLEAR "MAINTENANCE MODE'’

sSET UP TO TEST ALL 16
s SCANNER MEMORY LOCATIONS
sACCESS SCANNER MEMORY
sREAD CONPENTS OF MEMORY

sSET UP EXPECTED CONTENTS
;OF SCANNER MEMORY
s COMPARE EXPECTED AND RECEIVED
s VALUES
s SCANNER MEMORY ERROR
;CHECK FOR DATA FREEZE
sTEST NEXT SCANNEB LOCATION

sUPDATE LINE COUNT
sCHECK FOR ITERATION, LOOP

MACY

SEQ 0063

m
CZDVEC.P

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

2018

JRRRRRRRANRRANRRRRRNRNNAY

2020

s*WRITE 0'S INTO SELECTED LOCATION

2019
2022

2023

%%‘5‘

013510
013516
013524
013532
013536
013540
013544
013550
013554
013562
013566
013572
013576
013600
013602
013606
013614
013620
013622
013624
013630
013632

012737
012737
012737
013703
005013
005037
012700
012702
012737
012713
052713
005337
001373
010213
052713
012737
012713
005202
005001
052713
104414
111304

2049
2050
2051

013636
013640
013642

120402
001002
052705

2053
2054
2055

013650
013652
013654

001402
104002
104401

2056

2057
2058
2059
2060
2061

;

2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047

2052

TEST 27 A aanaaa et At a At A

013634

013646

013656

013660
013664
013666
013670
013672

000027
013674
013554
007300
177776
000020
000017
000020
001017
000400
001252
000400
000020
000017
000400

001226
001216
001220

2%:
3s:

001252

4%:

010105

020405

005201

005337
001357
005300
001331
104400

001252

5%:

6%:

RN AR

MOV
MOV
MoV
MoV
CLR
CLR
MOV
MOV
MOV
MoV
BIS
DEC
BNE
MOV
BIS
MoV
MOV
INC
CLR
BIS
DELAY
MOvB

#27 ,TSTNO
#TST30,NEXT
#2%,L0CK
MC.CSR,R3
(R3)
PS
#16. RO
#17 ,R2
#16. ,TEMP3
#MAINT+17,(R3)
#STEP, (R3)
TEMP3
3$
R2, (R3)
#STEP, (R3)
#16.,TEMP3
#17,(R3)
R2
R1
#STEP, (R3)

CMPB
BNE
BIS

R4 ,R2
5%
#70000,R5
R4 ,R5
6%
2

MOV

070000

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

AR RN R

R R

TEST 27

TST27:

18:

001252

AR A AR AR

s*VERIFY THAT ONLY SELECTED LOCATION WAS CLEARED.

CORP.

;*WITH ALL SCANNER MEMORY LOCATIONS SET TO 1°S,

2021

2048

DIGITAL EQUIP.

CMP

BEQ
HLT
SCOP1
INC

DEC
BNE
DEC
BNE
SCOPE

(R3) ,R4

R1.RS

TEMP3
4%
RO
2%

;SET POINTER
;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS
:SET UP TO TEST 16 ADDRESSES
sFIRST ADDRESS TO BE TESTED=0
JWRITE 1'S INTO ALL SCANNER
;MEMORY LOCATIONS

sSET LINE COUNTER TO TEST ADDRESS-1
;WRITE 0'S INTO TEST ADDRESS
;SET UP TO TEST ALL 16
s SCANNER MEMORY LOCATIONS
sACESS SCANNER MEMORY
sREAD CONTENTS OF MEMORY

:SET UP EXPECTED CONTENTS
;OF SCANNER MEIORY

s COMPARE EXPECTED AND

;RECEIVED VALUES
s SCANNER MEMORY ERROR
sCHECK FOR DATA FREEZE
sTEST NEXT SCANNER LOCATION
;UPDATE ADDRESS COUNT
;CHECK FOR ITERATION, LOOP

MACY
SEQ 0064

CZDVEC.PIN

19=-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

2062

JRRRRRRRANRARAARE
R AR ewne [EST

2065

2063
2064
2066

2088
2089
2090
2091
2092
2093
2094
2095
2096

2097

2098
2099
2100
2101

AR AR AR AR RR RN

AR R

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

g&g

2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087

;
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
005300
001371
005037
012700
012713
013713
017704
005005
005704
001402
104002
104401
005205
052777
017704
020504
001402
104002
104401

005237

005077
005300
001347
104400

000030
014052
013762
007300
177776
000020
000017
000400

001226
001216
001220

173340

001252
000020
002000
001252
173304

3%:
4%:

<
000001
173256

001252
173236

2%:

173262

5%:

6%:

AR A AR AR AR AR A AR AR

AR RN AN AR NN R AR AN

RA AR RN

R AR

RN RN R R

TEST 30

TST30:

1%:

DIGITAL EQUIP. CORP.

MOV
MOV
MOV
MOV
CLR
CLR
MOV
MOV
BIS
DEC
BNE
CLR
MOV
MOV
MOV
MOV
CLR
TST
BEQ

HLT
SCOP1
INC
BIS
MOV
CMP
BEQ
HLT
SCOP1

INC

CLR
DEC
BNE
SCOPE

#30,TSTNO
#TST31 NEXT
#3$,L0CK
MC.CSR,R3
(R3)
PS
#16. R0
#17,aMC.LSR
#STEP, (R3)
RO
2%
TEMP3
#16. ,RO
#CLRMUX, (R3)
TEMP3, (R3)
aMC.LSR,R4
RS
R4
5%
2

RS
#L INENA ,aMC.LSR
aMC.LSR R4
R5,R4
6%
2

TEMP3

aMC.LSR
RO
4%

;SET POINTER
;CLEAR CONTROL REGISTER
sENABLE INTERRUPTS
sSET UP TO TEST 16 LINES
JWRITE 1S INTO ALL MULTIPLEXER
JFUNCTION FLIPFLOPS
sSET UP FOR 16 LINES

sCLEAR MULTIPLEXER
sSELECT LINE
sREAD LINE STATUS REGISTER
JEXPECT 0S
sWAS LINE STATUS REGISTER CLEARED
;LINE STATUS ERROR
sCHECK FOR LOOP ON SAME DATA
JEXPECT LINE ENABLE
sSET LINE ENABLE ON SELECTED LINE
JREAD LINE STATUS REGISTER
;1S ANYTHING BUT LINE ENABLE SET

JLINE STATUS ERROR
sCHECK FOR LOOP ON SAME DATA
JUPDATE LINE NUMBER
sCLEAR CURRENT LINE
sCONTINUE IF ALL LINES NOT
s TESTED
sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0065

CZDVEC.PI

19-MAR=79 09:06

Dv11 DEVICE DIAGNOSTICS.

2102

2103

Jhnnnnnnnnnnnnnnnrnnnnnnn

2104
2105
2106

J*WRITE 1°'S INTO ALL SCANNER MEMORY LOCATIONS
;*SET "LINE ENABLE FOR ALL LINES
;=VERIFY THAT AN INTERRUPT CCCURS FOR EACH LINE

2107

2108

g}?g
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147

2148
2149
2150
2151
2152
2153
2154
2155
2156

;
014052
014060
014066
014074
014100
014104
014106
014112
014116
014122
014126
014134
014136
014140
014144
014152
014160
014164
014170
014176
014202
014206
014212
014214
014216
014220
014222
014224
014232
014234
014236
014244
014246
014250
014252
014254
014256

014260
014262
014264
014266
014270
014274
014276
014300
014302

012737
012737
012737
013703
012713
005013
005037
012700
012713
052713
012777
005300
001371
012705
012777
013777
012700
012713
012737
052713
005037
005037
105713
100410
104414
000240
000240
062737
001367
104006
012737
011304
104004
104401
000406
022626

000031
014304
014100
007300
002000
177776
000020
001017
000400
000001
070340
014254
177776
000020
000117
000340
000040
177776
001270

173146

2%:

173132
173126
177776

001270

000340

177776

3%:

4%:

000240

5%:

]

annnnnnnnesnnnnnnennenasnnanns

MOV
MOV
MOV
MOV
MOV
(LR
(LR
MOV
MOV
BIS
MOV
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
BIS
CLR
(LR
TSTB
BM]
DELAY
NOP
NOP
ADD
BNE
HLT
MOV
MOV
HLT
SCOP1
BR
POP2SP
MOV

(MP
BEQ
HLT
SCOP1
BIC
INC
DEC
BNE
SCOPE

#31,TSTNO
MTST32 NEXT
#1%,L0CK
MC.CSR,R3
#CLRMUX, (R3)
(R3)
PS
#16. RO
#MAINT+17,(R3)
#STEP, (R3)
#L INENA,aMC.LSR
RO
’%
#70340,RS
#4%,aMC . VEC
PS,aMC.LVL
#16. ,R0O
#INTENA+17,(R3)
#340,PS
#SCNENA, (R3)
PS
SAVR4
(R3)
.+22

#1,SAVR4
.=20
6
#340,PS
(R3) R4
4
5%
(R3) ,R4

RS ,R4
5%
2

#SCNENA+DONE , (R3)
RS
RO
3%

;SET POINTER
sCLEAR ALL MULTIPLEXER FLIPFLOPS
sCLEAR CONTROL REGISTER
sENABLE INTERRUPTS
JSET UP TO WRITE 1°'S INTO
JALL SCANNER MEMORY LOCATION
JWRITE A LOCATION
JLET "LINE ENABLE''
JEXPECT "DONE'"+''SCNENA"'+""COF"
"+ CSF"'+" 'SECRXF""*
sSET UP LOCAL INTERRUPT SERVICE
;SERVICE AT LEVEL 7

;SET INTERRUPT ENABLE
;LOCK OUT INTERRUPTS
;START SCANNER
sENABLE INTERRUPTS
;WAIT FOR DONE

s INTERRUPT DID NOT OCCUR
JERROR
;CONTROL STATUS ERROR
sCHECK FOR LOOP ON SAME DATA
s INTERRUPT OCCURED, REPOSITION STACK
JREAD CONTROL STATUS

sARE EXPECTED AND RECEIVED
JREGISTERS THE SAME
JNO, LINE STATUS ERROR
JCHECK FOR LOOP WITH CURRENT DATA
sCLEAR SCAN ENABLE AND DONE
JUPDATE EXPECTED RESULT
sCONTINUE IF NOT DONE

JCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0066

TEST 31

TST31:

1%:

000001

011304

020504
001402
104002
104401
042713
005205
005300
001333
104400

001226
001216
001220

JEST

DIGITAL EQUIP. CORP.

C
CZDVEC.PI

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

Chog;vgknghumpag;
~~

n LSS NTNT,NT,ST,.NT.NY.NT,.N1,¥]

2157
2158
2159

2172

6
COPYRIGHT 1975

JRRRRRARARAARANARRNRAANAR

[EST

DIGITAL EQUIP.

CCRP.

anvnnanananannanaetnnanennnrans

J*WRITE 1'S INTO ALL MULTIPLEXER FUNCTION FLIP=FLOPS

;*CLEAR SCANNER MEMORY
s*VERIFY THAT AN INTERRUPT OCCURS FOR EACH LINE
;*THIS TEST IS DONE

THE H861

TURN AROUND

IS USED.

: TR A AR AR AR A A AR AR R AR AR AT AR R R AR R AR AR AR AR R AR AR ARSI R AR

:
012737
012737
012737
005000
005737

TEST 32

TsT32:

000032
014650
014436

001422
000004
001424

688:

000004
001426

698 :

000004
001430

70$:

000004

71$:

007276
007260
001216
164562
007300
000020
002000
177776
000017
000400

177776

001270

#32,TSTNO

MOV
CLR
TST
BMI
ADD

#18,L0CK
RO
L00.03
68$
#4 RO

ADD

#4 RO

MOV

TST
BMI
ADD
ST
BM]

BMI

001214

658:
1%:

172620

28:

172562
172556

177776

L04.07
69
#4 RO
L08.11
708

L12.15
718

#4 RO
RO
A

BEQ

65%

RO, TOTAL
NEXT ,RETURN

MOV

MC.CSR,R3

MOV
CLR
CLR
MOV

#CLRMUX , (R3)
(R3)
PS
#17,aMC.LSR

JMP

MOV

BIS

ARETURN

#16. R0

#STEP, (R3)

DEC
BNE
MOV
g&g

RO
2
#CLRSCN, (R3)
lBgSY.(RS)

MOV
MOV
MOV

TOTAL .RO
#170340,RS
#4$,aMC . VEC
PS,aMC.LVL
#INTENA+17, (R3)
#340,PS

MOV
MOV
BIS
CLR
TSTB

BMI

;TEST CAN NOT RUN WITH NO LINE CARDS!'®

TURFLG

MOV

3$:

#TST33, NEXT

ADD
TST
BNE
HALT
MOV
ST

004000
000020

007276
170340
014620
177776
000117
000340
000040

MoV

#SCNENA, (R3)
PS
SAVR4
(R3)

.+22

;SET POINTER

*WRITE 1S INTO ALL

:CLEAR MULTIPLEXER
*MULTIPLEXER FUNCTION
“ENABLE TELETYPE

‘FLIPFLOPS

INTERRUPTS

:CLEAR SCANNER MEMORY
*WAIT FOR CLEAR CYCLE TO COMPLETE
;FIRST EXPECTED RESULT
*SET UP LOCAL INTERRUPT RETURN

;SET INTERRUPT ENABLE
:LOCK OUT INTERRUPTS
s START SCANNER
sENABLE

INTERRUFTS

;WAIT FOR DONE

MACY

SEQ 0067

D
CZDVEC.PN

2213
2214
2215
2216

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 DEVICE DIAGNOSTICS.

104414

6
COPYRIGHT 1975

DIGITAL EQUIP.

CORP.

DELAY

000001

000340

001270

#1,SAVR4

177776

6
#340,PS
£R3).R4

=20

4%:

5%
(R3) ,R4
R5.R4

5%
2
5%:

:gCNENA*DONE.(RB)
RO

sLOCK OUT INTERRUPTS
;JREAD CONTROL STATUS

s INTERRUPT DID NOT OCCUR

sCHECK FOR LOOP ON CURRENT DATA
s CONT INUE
: INTERRUPT OCCURED, RESTORE STACK
sREAD CONTROL

STATUS REGISTER

;COMPARE TO EXPECTED RESULT

;CONTROL STATUS ERROR
;CHECK FOR LOOP ON CURRENT DATA
;CLEAR SCAN ENABLE AND DONE
;UPDATE EXPECTED RESULT
sCONTINUE IF ALL
;LINES NOT TESTED
sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0068

E
P11

19-MAR-7S 09:06

DV11 DEVICE DIAGNOSTICS.

6
COPYRIGHT 1975

JRRRRARRANARARAR
R ARk
nr

TEST

DIGITAL EQUIP. CORP.
AR AR AR AR

R AR AR RRRRRARRR
I RRR

s*VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN

s*BE SET AND CLEARED FOR SELECTED LINE

s*THIS TEST IS DONE

THE H325 TURN AROUND IS USED

s MODEM CONTROL LINES +«MUST+ BE CONTIGUOUS FROM LINE 00.
: TR A

;

014650
014656
014664

012737
012737
005737

000033
015050
007260

001226
001216

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

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

001216
164310
172370
177776
007262
002000
000020
172342
000001
172330

001214

014776
015000
015002
015004
015012
015014
015016
015020
015024
015026
015032
015034
015040
015042
015044
015046

020504
001401
104001
052777
005302
001355
005005
010177
010103
005077
104414
017704
005704
001401
104001
104400

014670

001005

172352

172336
3%:

172324
172316
177760
000001

4%:
000400

172254

172266

5%:

6%:

172250

172242

7$:

AR RAA AR

AR AR R

MOV
MoV
TST

#33,TSTNO
#TST34 NEXT
TURFLG

:TURN AROUND HB61 OR H325?

MOV
JMP
CLR
CLR
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOV
MOvB
BIC
CMP
BNE
Mov

NEXT ,RETURN
aRETURN
aMC.CSR
PS
LINE.R1
#CLRMUX ,aMC.CSR
#16. ,R2
R1,aMC.CSR
#LINENA,aMC.LSR
aMC.CSR
RS
aMC.LSR,R4
aMC.CSR,R3
#~C<17>,R3
R1,R3
4%
#LINENA,RS

;CLEAR CONTROL STATUS REGISTER
:ZERO PSW.
sSET LINE IMAGE
;CLEAR MUX
;SET FOR 16 LINES
sSELECT LINE TO BE TESTED
sSET LINE ENABLE FUNCTION FLIP-FLOP
sZERO CSR
;SET EXPECTED
JREAD LINE STATUS REGISTER
JREAD CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
;IF LINE NUMBER=SELECTED LINE NUMBER,
sEXCEPT LINE ENABLE FUNCTION FLIP FLOP
:§STB.E.G(SXE)?“

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

R5.R4
5%
1
#STEP ,aMC.CSR
R2
3%
RS
R1,aMC.CSR
R1,R3
aMC.LSR

BNE

2%:

AR AR AR AR R AN AR AR R AR

TEST 33

TST33:

1$:

AR AR AR R AR

aMC.LSR,R4
R4
.+
1

:BR IF H325

;COMPARE EXPECTED AND RECEIVED
JRESULTS
sR5=EXPECTED R4=FOUND
JEXAMINE NEXT LINE
sALL LINES DONE?
;BR_IF NO
:CLEAR ''GOOD'*
;LOAD LINE
sSET LINE COUNTER TO SELECTED LINE
;CLEAR LINE ENABLE FLIP FLOP
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
sWAS LINE ENABLE FUNCTION FLIP FLOP
; CLEARED
;R5=EXPECTED R4=FOQUND
;CHECK FOR ITERATIONS, LOOP

MACY

SEQ 0069

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRRRRARRARRRARARRRRNRRAN

TEST

DIGITAL EQUIP. CORP.
Aaana

e n e

vt aatdnenannnsrens

;*VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN

;*BE SET AND CLEARED FOR SELECTED LINE
;*THIS TEST

IS DONE

THE H325 TURN AROUND IS USED

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

s TR

;
015050

012737

WNIN)
— —
nNOO SO

001216
164110
172170
177776

012702
010177
012777
005077
005005
017704
117703

042703
020103
001002
012705

007262
002000
000020
172142
000002
172130

104001

001214
1%:

172152

2%:

#34,TSTNO
#TST35 NEXT
1%
NEXT ,RETURN
aRETURN
aMC.CSR

LINE ,.R1

#CLRMUX ,aMC.CSR
#16. ,R2

R1,aMC.CSR

172136

#TRMRDY ,aMC.LSR

3%:

172124
172116

aMC.CSR

RS
aMC.LSR,R4
aMC.CSR,.R3

177760

#~C<17>,R3

000002

4%
#TRMRDY
RS

000400

172066

A ¥

R5.R4

58:

#STEP ,aMC.CSR

5%
1

172050

R5
R1,aMC.CSR
R1,R3
aMC.LSR

172342

8?C.LSR,R4

172054

015234
015240
015242
015244
015246

AR AR AR AR AR AR AR

TURFLG

020504
001401

052777

6%:

7%:

AR AR AR R AR ARR

TESY

TST34:

000034
015250
007260

AR A AR A A AR

;TURN AROUND H861

BR IF H325

OR H325?

;CLEAR CONTROL STATUS REGISTER
;ZERO PSW.
sSET LINE IMAGE
:CLEAR MUX
;SET FOR 16 LINES
sSELECT LINE TO BE TESTED
sSET TERMINAL READY FUNCTION FLIP-FLOP
;ZERO CSR
sSET EXPECTED
JREAD LINE STATUS REGISTER
sREAD CONTROL STATUS REGISTER
:CLEAR UNWANTED BITS

;IF LINE NUMBER=SELECTED LINE NUMBER,

EXCEPT TERMINAL READY FUNCTION FLIP FLOP

;SET ''GOOD’

:TO BE
SET

s COMPARE EXPECTED AND RECEIVED
RESULTS
:RS=EXPECTED R&4=FOUND

sEXAMINE NEXT LINE
sALL LINES DONE?
:BR_IF NO
;CLEAR *'GOOD"*
;LOAD LINE
sSET LINE COUNTER TO SELECTED LINE
;CLEAR TERMINAL READY FLIP FLOP
;DELAY FOR CABLE
sREAD LINE STATUS REGISTER
;WAS TERMINAL READY FUNCTION FLIP FLOP
: CLEARED

;R5=EXPECTED R&4=FOUND

sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0070

CZDVEC.P11

19-MAR=79 09:06

Dv11 DEVICE DIAGNOSTICS.

2329

JRRERRRRRRAAAARARARRARARY

2331
2332
2333

s*BE SET AND CLEARED FOR SELECTED LINE
;*THIS TEST IS DONE IF THE H325 TURN AROUND IS USED
: MODEM CONTROL LINES *MUST* BE CONTIGUOUS FROM LINE 00.

2330

2335

gggg

;

2338
2339
2340
231
2342
2343
2344
2345

015250
015256
015264
015270
015272
015300
015304
015310

012737
012737
005737
001005
013737
000177
005077
005037

000035
015450
007260

001226
001216

001216
163710
171770
177776

001214

2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
236?
2370
2371
2372
2373

015320
015326
015332
015336
015344
015350
015352
015356
015362
015366
015370
015372

012777
(12702
010177
012777
005077
005005
017704
117703
042703
020103
0010902
012705

002000
000020
171742
000004
171730

171752

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

020504
001401
104001
052777
005302
001355
005005
010177
010103
005077
104414
017704
005704
001401

015446

104400

2374

2375

wnnnanannnnannneantnrnannnnransn

s*VERIFY THAT REQUEST TO SEND FUNCTION FLIP=FLOP CAN

2334

2346

[EST 35

DIGITAL EQUIP. CORP.

015314

015444

013701

104001

007262

2%:

171736
3%:

171724
171716
177760
000004

4%:
000400

171654

171666

S%:

6%:

171650

171642

7%:

A AR AR RN AR

R AN RARR AR AR AR

RN R

TEST 35

TST35:

1%:

MOV
MOV
TST
BNE
MOV
JMP
CLR
CLR

#35,TSTNO
HTST36 ,NEXT
TURFLG
1%
NEXT ,RETURN
aRE TURN
aM(C.CSR
PS

MOV
MOV
MOV
MOV
CLR
CLR
MOV
MOVB
BIC
CMP
BNE
MOV

#CLRMUX ,aMC.CSR
;CLEAR MUX
#16. ,R2
;SET FOR 16 LINES
R1,aMC.CSR
sSELECT LINE TO BE TESTED
#RS,aMC.LSR
sSET REQUEST TO SEND FUNCTION FLIP-FLOP
aMC.CSR
;sZERO CSR
RS
sSET EXPECTED
aMC.LSR,R4
;READ LINE STATUS REGISTER
aMC.CSR,R3
sREAD CONTROL STATUS REGISTER
#*C<17>,R3
;CLEAR UNWANTED BITS
R1,R3
;IF LINE NUMBER=SELECTED LINE NUMBER,
43
sEXCEPT REQUEST TO SEND FUNCTION FLIP FLOP
#RS RS
;SET '‘GooOD'’
.TO BE SET
RS .R4
s COMPARE EXPECTED AND RECEIVED
5%
JRESULTS
1
JRS5=EXPECTED R&4=FOUND
#STEP,aMC.CSR
JEXAMINE NEXT LINE
R2
sALL LINES DONE?
3%
;:BR IF NO
RS
;CLEAR ''GOOD'*
R1,aMC.CSR
;LOAD LINE
R1,R3
JSET LINE COUNTER TO SELECTED LINE
aMC.LSR
;CLEAR REQUEST TO SEND FLIP FLOP
;DELAY FOR CABLE
aMC.LSR,R4
JREAD LINE STATUS REGISTER
R4
;JWAS REQUEST TO SEND FUNCTION FLIP FLOP
A
;CLEARED

MOV

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

SCOPE

LINE ,R1

;TURN AROUND H861 OR H325?
;BR IF H325
.CLEAR CONTROL STATUS REGISTER
;ZERO PSW.

;SET LINE IMAGE

JRS5=EXPECTED R&=FOUND

;CHECK FOR ITERATIONS, LOOP

MACY

SEQ 0071

H
6

P11

19-MAR-79 09:06

Dv11 DEVICE DIAGNOSTICS.

JRRRRRRRARRRARRANRRRANRNRE

[EST

DIGITAL EQUIP.
A

naanan e a e r e

vttt AN

;*VERIFY THAT NEW SYNC

(SECTX IF ASYNC LC)

;*THIS TEST

THE H325 TURN AROUND IS USED

s*BE SET AND CLEARED FOR SELECTED LINE
IS DONE

CORP.

015520

015576

171552

012777
005077
005005
017704

MOV

#36,TSTNO

TST

TURFLG

MOV

BNE
MOV
1%:

#TST37 NEXT

1%
NEXT
,RE TURN

JMP

aRE TURN

MOV
MOV
MOV
MOV

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

CLR
CLR

;TURN AROUND H861 OR H325?

:BR IF H32S

#NS ,aMC.LSR
aM(C.CSR

JSET NEW SYNC (SECTX IF ASYNC LC) FUNCTION FLIP;ZERO CSR

MOV

aMC.LSR.R4

BIC

#*C<17>,R3

BNE
MOV

4%
#N\S RS

A ¥

CMP
BEQ

R5.R4
5%

5%:

BIS
DEC

#STEP,aMC.CSR
R2

CLR

MOVB

CMP

012705

HLT

BNE
171454

AR AR R

MOV
CLR

2%:

117703

171466

;CLEAR CONTROL
+ZERO PSW.

3$:

000400

aMC.CSR
PS

171536

020504

AR R AR AR R AR AR AR R AR AR AR R R R AR AR AR R AR AR AR AR AR

TEST 36

TST36:

001214

015510
015514

015556
015562
015566
015570
015572

012737
012737
005737

015450
015456
015464
015470
015472
015500
015504

rnoro

;

FUNCTION FLIP=FLOP CAN

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

b4 TR

6%:

171450

MOV
MOV
CLR

DELAY

MOV

171442

;SET LINE IMAGE
:CLEAR MuUX
:SET FOR 16 LINES
sSELECT LINE TO BE TESTED
JSET EXPECTED

aMC.CSR,R3

;READ CONTROL STATUS REGISTER

R1,R3

JREAD LINE STATUS REGISTER
sCLEAR UNWANTED BITS

JIF LINE NUMBER=SELECTED LINE NUMBER,

JEXCEPT NEW SYNC (SECTX [F ASYNC LC) FUNCTION FL
:SET ''GOoD*’
;TO BE SET
s COMPARE EXPECTED AND RECEIVED
JRESULTS

JRS=EXPECTED R4=FOUND

;BR IF NO

R1,aMC.CSR
R1,R3
aMC.LSR

aMC.LSR,R4

JEXAMINE NEXT L INE
JALL LINES DONE?
:CLEAR ''GOOD'’

;LOAD LINE
JSET LINE COUNTER TO SELETTED LINE

sCLEAR NEW SYNC (SECTX IF ASYNC LC) FLIP FLOP

;DELAY FOR CABLE

;READ LINE STATUS REGISTER

TST

JWAS NEW SYNC

HLT
SCOPE

JRS=EXPECTED R&=FOQUND
JCHECK FOR ITERATIONS, LOOP

BEQ
7%:

STATUS REGISTER

;CLEARED

(SECTX

ASYNC

LC)

MACY

SEQ 0072

FUNCTION FLIP

I
P11

19=MAR=-79 09:06

Dv11 DEVICE DIAGNOSTICS.

6
COPYRIGHT 1975

Jrannnnnnannnnnnnentnnant

TEST

DIGITAL EQUIP.

annnnnanannnnnnnentnnsneneanans

;*VERIFY THAT RING IS SET IF "LINE ENABLE''
;*AND TERMINAL ARE SET FOR SELECTED LINE.
;*THIS TEST IS DONE IF THE H325 TURN AROUND

IS USED

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

;
015650

012737

000037
016046
007260

001226
001216

001216
163310

001214

171370
177776

007262
000020
171350

000003
171336

2%:

000400

000002

#37 ,TSTNO

TST

TURFLG

MOV

AR RN

;TURN ARQUND H861 OR H325?

;LINE NUMBER
;16 LINES

#%C<17>,R3

;CLEAR UNWANTED BITS

R4 ,R5
5%

5%:

BIS
DEC

#STEP,aMC.CSR
R2

HLT

;BR IF H325

;CLEAR CONTRGL REGISTER
;ZERO PSW

sSELECT A LINE
;SET LINE ENABLE +TRMRDY
;CLEAR CONTROL REGISTER
sCLEAR EXPECTED RESULT
sREAD LINE STATUS
sREAD LINE NUMBER
sIF RECEIVED LINE=SELECTED LINE
SEXPECT LINE ENABLE AND

JRING IS SET

: COMPARE EXPECTED AND
JRECEIVED RESULTS

sR5=EXPECTED R4=FOUND

BNE
MOV
MOV
MOV
BIC

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

sARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
sON SELECTED LINE
sSELECT LINE
;CLEAR TERMINAL

MOV

aMC.LSR,R4

JREAD LINE STATUS REGISTER

BEQ

DELAY

CMP

7%:

AR AR AR

LINE .R?
#16. ,Re

aMC.CSR
PS

CMP
BEQ

171244

MOV
MOV

CLR
CLR

4%:

171252

NEXT ,RETURN
aRETURN

R1.R3
3
#LINENA+TRMRDY+RING,RS

6%:

AR R

BNE
MOV
JMP

BIC

171274

#TST4LO NEXT

CMP
BNE
MOV

38:

000001
171256

MOV

R1,aMC.CSR
#LINENA+TRMRDY ,aMC.LSR
aMC.CSR
RS
aMC.LSR,R4
aMC.CSR,R3

000203
015770
015772
015774
015776

A AR AR AR

MOV
MOV
CLR
CLR
MOV
MOvVB

171344

171332
171324
177760

AR R AR

TEST 37

TST37:

1%:

AR AR AR AR AR AR AR AN

CORP.

HLT
SCOPE

R5,R4
1

sUPDATE LINE COUNTER
sCONTINUE IF ALL CHECKS

;DELAY FOR CABLE

sONLY LINE ENABLE SHOULD BE
sSET ON THIS LINE

sR5=EXPECTED R4=FOUND
sCHECK FOR ITERATIONS, LOOP

MACY
SEC 0073

J
CZDVEC.PN

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

2470

6
COPYRIGHT 1975

Jrkknnnnknnnnnnennnnnwnt

TEST

DIGITAL EQUIP. CORP.
woannnnrnnannnnnnonnnnanrnannenns

s*VERIFY THAT CLEAR TO SEND AND CARRIER ARE SET IF

s*AND REQUEST TO SEND ARE SET FOR SELECTED LINE.

'LINE ENABLE''

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

012737

001226
001216

1%:

AR AR AR R AR AR

MOV
MOV
TST
BNE

MOV
JMP

#40,TSTNO
HTST4LT NEXT
TURFLG

NEXT ,RETURN
aRETURN
aMC.CSR

2%:
171146

016140
016142
016146
016152
016156
016160
016162

00100
012705

016166
016170
016172
016174

020405
001401
104001
052777

3%:

aMC.LSR,R4

aMC.CSR,R3

#L INENA+RS+CO+(CS,RS

000400

171076

171060
000004

R4 RS
?S
#STEP,aMC.CSR

000001

6%:
171054

171046

016240
016242

#LINENA*RS aMC.LSR
aMC.CSR

#*C<17>,R3
R1,R3
43
4%:

#L INENA
RS

R1,R3

R1,aMC.CSR
#RS ,aM(C.LSR

aMC.LSR,R4
R5,R4

-’4

7%:

AR AR AR AR AR R

AR AR

AT RN

TEST 40

7ST40:

001214

RA AR AR R A AR R AR R

;TURN AROUND H861 OR H325?

BR IF H325

sCLEAR CONTROL REGISTER
ZERO PSW
:SELECT A LINE
:SET LINE ENABLE +RS

:CLEAR CONTROL REGISTER
;CLEAR EXPECTED RESULT
sREAD LINE STATUS
;READ LINE NUMBER
sCLEAR UNWANTED BITS
sIF RECEIVED LINE=SELECTED LINE
JEXPECT LINE ENABLE AND
;CLEAR TO SEND AND CARRIER ARE SET
s COMPARE EXPECTED AND

sRECEIVED RESULTS

sR5=EXPECTED R&4=FOUND
sUPDATE LINE COUNTER

sCONTINUE IF ALL CHECKS
sARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
sON SELECTED LINE
sSELECT LINE
;CLEAR REQUEST TO SEND
;DELAY FOR CABLE
sREAD LINE STATUS REGISTER
JONLY LINE ENABLE SHOULD BE
ON THIS LINE

*RS=EXPECTED R&=FOUND

:CHECK FOR ITERATIONS. LOOP

MACY

SEQ 0074

K
CZDVEC.PI

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

6
COPYRIGHT 1975

JRRRARARARCNRANRRANANNRAY

TEST

DIGITAL EQUIP. CORP.
At

ata

vt ata v

hnn

:*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.
:*THIS TEST IS DONE IF THE H325 TURN AROUND IS USED

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

:
016244

1%:

MOV
MOV
TST
BNE
MOV
JMP

#41,TSTNO
#TST42 NEXT
{tsJRFLG

NEXT ,RETURN
aRE TURN
aMC.CSR

2%:
0000
170742

170750

3%:

170736
170730
177760

012705

000400

170700

:BR IF H325

OR H325?

sCLEAR CONTROL REGISTER

+ZERO PSW
;LINE NUMBER
;16 LINES
JSELECT A LINE
;SET LINE ENABLE +NS
sCLEAR CONTROL RFGISTER
sCLEAR EXPECTED RESULT
JREAD LINE STATUS

sIF RECEIVED LINE=SELECTED LINE
:EXPECT LINE ENABLE AND

4%:

R4 ,R5
?S

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

5%:

#STEP,aMC.CSR

#L INENA+NS+DSR,RS

000001
170662
000010

#LINENA*NS aMC.LSR
aMC.CSR
Q5
aMC.LSR,R4

;TURN AROUND H861

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

000031

020405

R AR AR AR AR AR AR RN

TEST 41

TST41:

012737

AR A AR AR A AR A A AR R AR AR AR AR AR AR AR R AR AR AR RARR A AT

6%:
170656

#LINENA
RS
R1,R3
R1,aMC.CSR

#NS ,aMC.LSR

170650

R4
aMC.LSR
R5.R4
+4

7%:

;READ LINE NUMBER
;CLEAR UNWANTED BITS

sR5=EXPECTED R4=FOUND

sUPDATE LINE COUNTER
sCONTINUE IF ALL CHECKS
sARE NOT DONE FOR THIS LINE
SEXPECT LINE ENABLE
sON SELECTED LINE
sSELECT LINE
sCLEAR NEW SYNC (SECTX IF ASYNC LO)
;DELAY FOR CABLE
sREAD LINE STATUS REGISTER
sONLY LINE ENABLE SHOULD BE
sSET ON THIS LINE

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

IS SET

MACY

SEQ 0075

L
19-MAR-79 09:06

DV11 DEVICE DIAGNCSTICS.

JHRRRANKRARRRRNRRRARNRRRAR

TEST

DIGITAL EQUIP. CORP.
Anaaaaaa
v v e AN A AR A AR R AR R AR R

;*VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN

s*THIS TEST IS DONE

THE H861

TURN AROUND IS USED.

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

§
012737
012737
005737

000042
016666
007260
001216
162516
170576

001214

007276

016522

170522

001220
170550

170530

3%:

170516
170510
177760

00100
012705

2%:

#42,TSTNO
#TST43 NEXT
TURFLG
1%
NEXT ,RETURN
aRETURN
aMC.CSR

TOTAL ,RO
R1
#2%,L0CK

#CLRMUX ,aMC.CSR

#16. ,R2

R1,aMC.CSR
R1,LINE
#LINENA,aMC.LSR
aMC.CSR
RS
aMC.LSR,R4

aMC.CSR,R3

R1,R3

4%
#LINENA,RS

020504
170460

4%:

RS.R4

5%:

#gTEP.aMC.CSR
R

5%
1

170446

A AR AR AR A AR AR AR AR AR RN AR AR AR

#~C<17>,R3

000001

000400

A AR AR AR

6%:

170442

RS
R1,aMC.CSR

R1,R3

aMC.LSR

170434

aMC.LSR,R4
R4

. e
1

;TURN AROUND H861 OR H325?

;BR IF H861

;CLEAR CONTROL STATUS REGISTER
;ZERO PSW.

sSET THE TOTAL NUMBER OF LINES TO BE

TESTED IN R

;CLEAR MUX
sSET FOR 16 LINES
;SELECT LINE TO BE TESTED
;SET IMAGE
sSET LINE ENABLE FUNCTION FLIP=FLOP
;ZERO CSR
sSET EXPECTED
sREAD LINE STATUS REGISTER
sREAD CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
:IF LINE NUMBER=SELECTED LINE NUMBER,
JEXCEPT LINE ENABLE FUNCTION FLIP FLOP
;SET '‘GOOD**
:TO BE SET
:COMPARE EXPECTED AND RECEIVED
sRESULTS

sRS=EXPECTED R4=FOUND
sEXAMINE NEXT LINE
;ALL LINES DONE?
:BR IF NO
:CLEAR ''GOOD'*
;LOAD LINE
sSET LINE COUNTER TO SELECTED LINE
;CLEAR LINE ENABLE FLIP FLOP
;DELAY FOR CABLE
;READ LINE STATUS REGISTER
;WAS LINE ENABLE FUNCTION FLIP FLOP
s CLEARED
;R5=EXPECTED R4=FOUND

R1
RO
7%:

TESV

TST42:

1%:

177776

AR A

;CHECK FOR ITERATIONS, LOOP

MACY

SEQ 0076

;*BE SET AND CLEARED FOR SELECTED LINE

CZDVEC.PI

CZDVEC.PN

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

2618

JRRRRNRRARANRRRACARRNNRAN

2620
2621
2622

;*BE SET AND CLEARED FOR SELECTED LINE
;*THIS TEST IS DONE IF THE H861 TURN AROUND IS USED.
: MODEM CONTROL LINES *MUST* BE CONTIGUOUS FROM LINE 00.

2619

2624

52222

2641
2642
2643
2644
2645
2646
2647
2648
2649
ggg?

2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662

2663
2664
2665
2666
2667
2668
2669
2670

2671

a v

a A

e vtk

s
016666
016674
016702
016706
016710
016716
016722
016726

016732
016736
016740
016746
016754
016760

016764
016770
016776
017002
017004
017010
017014
017020
017022
017024

017030
017032
017034
017036
017044
017046
017050
017052
017056
017060
017064

017066
017072
017074
017076
017100
017102
017104
017106

017110

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

020504
001401
104001
052777
005302
001355
005005
010177
010103
005077
104414

017704
005704
001401
104001
104401
005201
005300
001317
104400

000043
017112
007260

001226
001216

001216
162272
170352
177776
007276

001214

016746
002000
000020
170314

001220
170324

007262
000002
170276

2%:

170304
3%:

170272
170264
177760
000002

4%:

000400

170222

170234

5%:

6%:

170216

170210

7%:

AR R AR

AR AR A AR AR AR AN AR AR N

AR R

R R AR

TEST 43

TST43:

1%:

AR AR A AR A AR

MOV
MOV
TST
BEQ
MOV
JMP
CLR
CLR

MOV
CLR
MOV
MOV
MOV
MOV

MOV
MOV
CLR
CLR
MOV
MOvVB
BIC
CMP
BNE
MOV

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

#463,TSTNO
HTST44 NEXT
TURFLG
1%
NEXT ,RETURN
aRETURN
aMC.CSR
PS
TOTAL ,RO
R1
#2%,L0CK
#CLRMUX ,aMC.CSR
#16. ,R2
R1,aMC.CSR
R1,LINE
#TRMRDY ,aMC.LSR
aMC.CSR
RS
aMC.LSR,R4
aM(C.CSR,R3
#*C<17>,R3
R1,R3
43
#TRMRDY ,RS

R5.R4
5%
1
#STEP,aMC.CSR
R2
33
RS
R1,aMC.CSR
R1,R3
aMC.LSR

aMC.LSR,R4
R&
.t
1
R1
RO
2%

sTURN AROUND H861 OR H325?
;BR IF H861

;CLEAR CONTROL STATUS REGISTER
;ZERO PSW.
sSET THE TOTAL NUMBER OF LINES TO BE TESTED IN R
;CLEAR MUX
sSET FOR 16 LINES
sSELECT LINE TO BE TESTED
;sSET IMAGE
sSET TERMINAL READY FUNCTION FLIP=FLOP
sZERO CSR
sSET EXPECTED
JREAD LINE STATUS REGISTER
JREAD CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
;sIF LINE NUMBER=SELECTED LINE NUMBER,
JEXCEPT TERMINAL READY FUNCTION FLIP FLOP
2 ;S TB'E‘GOODSET' '
s COMPARE EXPECTED AND RECEIVED
JRESULTS
sR5=EXPECTED R&4=FOUND
JEXAMINE NEXT LINE
sALL LINES DONE?
:BR IF NO
;CLEAR ''GOOD"*
;LOAD LINE
sSET LINE COUNTER TO SELECTED LINE
sCLEAR TERMINAL READY FLIP FLOP
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
sWAS TERMINAL READY FUNCTION FLIP FLOP
sCLEARED
JR5=EXPECTED R&4=FOUND

sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0077

AR ®

s*VERIFY THAT TERMINAL READY FUNCTION FLIP=FLOP CAN

2623

2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640

TEST 4T

DIGITAL EQUIP. CORP.

N
6
CZDVEC.PN

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRRRNARARKRARRRNRNARNRNRN

TEST

DIGITAL EQUIP. CORP.
Aana st aaaa e A v

v kA AR

MACY

SEQ 0078

AR AR AR ®

s*VERIFY THAT REQUEST TO SEND FUNCTION FLIP=-FLOP CAN

s*BE SET AND CLEARED FOR SELECTED LINE

s*THIS TEST

IS DONE

THE H861

TURN AROUND IS USED.

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

017112

012737
012737

001226
001216

1%:

MOV

MOV
TST
BEQ
MOV
JMP
CLR
CLR

170100

2%:

3%:

017250

012705

017254
017256
017260
017262
017270
017272
017274
017276

020504

000004
4%:

000400

170010

5%:

6%:

#44,TSTNO

#TST4LS NEXT
TURFLG
1%
NEXT ,RETURN
aRETURN

sTURN AROUND H861 OR H325?
JBR IF H861

sCLEAR MUX
JSET FOR 16 LINES
sSELECT LINE TO BE TESTED

MOV
CLR
CLR
MOV

#RS ,aMC.LSR
aMC.CSR
RS
aM(C.LSR,R4

sSET REQUEST TO SEND FUNCTION FLIP=FLOP
+ZERO CSR
sSET EXPECTED
JREAD LINE STATUS REGISTER

BIC
CMP
BNE

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

;?TAL.RO

R1,LINE

aMC.CSR,R3

MOV

#RS RS

CMP

RS ,R4

BEQ
HLT
BIS
DEC

5%
1
#STEP,aMC.CSR
R2

CLR

167772

MOV
MOV
CLR

R1,aMC.CSR
R1,R3
aMC.LSR

167764

MOV

aMC.LSR R4

DELAY

TST
BEQ
HLT

SCOP1
INC
DEC

7%:

AR R AR

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

BNE
167776

RANRRRR

MOV
MOV
MOV
MOV

MOVB

177760

RN AR ANNR AR

sCLEAR CONTROL STATUS REGISTER
+ZERO PSW.

MOV

170060

AR RN AN

aMC.CSR
PS

lEKL)X

001220

AR AR AR AR AR AR

TEST 44

TST44:

001214

AR AR

BNE

SCOPE

R4
.4
1

sSET THE TOTAL NUMBER OF LINES TO BE

;SET IMAGE

sREAD CONTROL STATUS REGISTER

;CLEAR UNWANTED BITS
sIF LINE NUMBER=SELECTED LINE NUMBER,
:EQ(CEPT REQUEST TO SEND FUNCTION FLIP FLOP

;SET ''GOOD*’
;TO BE SET

- COMPARE EXPECTED AND RECEIVED
JRESULTS
JRS=EXPECTED R4=FOUND
JEXAMINE NEXT LINE
sALL LINES DONE?

:BR _iF NO

;CLEAR

‘''GOOD'’

sLOAD LINE
JSET LINE COUNTER TO SELECTED LINE
sCLEAR REQUEST 1 SEND FLIP FLOP
;DELAY FOR CABLE

JREAD LINE STATUS REGISTER

sWAS REQUEST TO SEND FUNCTION FLIP FLOP
s CLEARED
JRS5=EXPECTED R&4=FOUND

R1
RO

P 1

TESTED IN R

JCHECK FOR ITERATIONS, LOOP

PIIRPDDDDO@DDDODD

B
CZDVEC.PI

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

2726
2727
2728

Jennnnnnannnnnnnnennnnnntn

J*VERIFY

2760

2761
2762
2763
2764

2765

2766

2767

2768
2769

2770

JEST

DIGITAL EQUIP.

s*THIS

CORP.

THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN

TEST

IS DONE

THE HB861

TURN AROUND

IS USED.

; MODEM CONTROL LINES *MUST+ BE CONTIGUOUS FROM LINE 00.
b IERARARARRARAAR R AR A AR

017336
017344
017352
017356
017360
017366
017372
017376
017402
017406
017410
017416
017¢24
017430
017434
017440
017446
017452
017454
017460
017464

012737
012737
005737
001405
013737
000177
005077

017472
017474

001002
012705

017500
017502
017504
017506
017514
017516
017529
017522
017526
017530
017534
017536
017542
017544
017546
017550
017552
017554
017556
017560

020504
001401
104001
052777
005302

017470

000045
017562
007260

HTST4L6 NEXT
TURFLG

161622
167702
177776

1%:

(LR

017416
002000
000020

001220

000010

167634

167654

2%:

MOV

R1
#2%,L0CK

167564

4%:

CMP

RS .R4
?S

5%:

BIS

#STEP,aMC.CSR

6%:

MOV

R2
3%

167546
167540

R4
aMC.LSR
R4

7$:

BN
SCOPE

;CLEAR CONTROL STATUS REGISTER
:ZERO PSW.
;SET

THE

TOTAL NUMBER OF

LINES TO BE

TESTED IN R

:CLEAR UNWANTED BITS
;IF LINE NUMBER=SELECTED LINE NUMBER,
sEXCEPT SECONDARY TRANSMIT FUNCTION FLIP FLOP
;SET ''Goop**

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

167552

OR H325?

#*C<17>,R3
R1,R3
A3
#SECTX,RS

aMC.CSR,R3

000010

;BR IF H861

aM(C.CSR
RS
aMC.LSR.R4

#SECTX,aMC.LSR

CLR

;TURN AROUND H861

:CLEAR MUX
sSET FOR 16 LINES
sSELECT LINE TO BE TESTED
;SET IMAGE
;SET SECONDARY TRANSMIT FUNCTION FLIP-FLOP
;ZERO CSR
;SET EXPECTED
;READ LINE STATUS REGISTER

#CLRMUX ,aM(C.CSR

#16. ,R2
R1,aMC.CSR

R1,LINE

3%:

167622
167614
177760

000400

1%
NEXT ,RETURN
aRE TURN
aM(C.CSR

PS
TOTAL ,RO

007276

167626

AR AR

#45,TSTNO

001216

167644
007262

ARARRAARARARARNARANRAARAARARANAS AR

JREAD CONTROL

:TO BE

STATUS REGISTER

SET

;COMPARE EXPECTED AND RECEIVED
SRESULTS

;R5=EXPECTED R&4=FOUND

sEXAMINE NEXT L INE
;ALL LINES DONE?
:BR_IF NO
;CLEAR ''GOOD""
;LOAD LINE
sSET LINE COUNTER TO SELECTED LINE
;CLEAR SECONDARY TRANSMIT FLIP FLOP
;DELAY FOR CABLE
sREAD LINE

STATUS REGISTER

;WAS SECONDARY TRANSMIT FUNCTION FLIP FLOP
: CLEARED

sRS=EXPECTED R&4=FOUND

R1
RO

sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0079

nnnnnnnnnnnnnananannnnnnnnarnen

;*BE SET AND CLEARED FOR SELECTED LINE

2729

2730
2731
2732
2733
273
2735
2736
2737
2738
2739
2740
2741
27462
2743
2764
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

c
PN

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRRRRARARNRARRRARRARRRARN

TEST

DIGITAL EQUIP. CORP.
A

aaaa e A

A A

A AR AR AN

;*VERIFY THAT CLEAR TO SEND AND CARRIER ARE SET IF 'LINE ENABLE''

s*AND TERMINAL ARE SET FOR SELECTED LINE.

s*THIS TEST

IS DONE

THE H861

TURN AROUND IS USED.

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

017562
017570
017576

012737
012737
005737
001405
013737
000177
005077

000046
020004
007260

001226
001216

001216

001214

161376
167456
177776

007276
017642

167414

017672
017676
017702
017704
017706
017712
017714
017716
017720
017726

001220
167422

3%:

167410
167402
177760

00
012705

2%:

4%:

167352

000001
167334
000002

#46,TSTNO

TST

TURFLG

MOV

BEQ
MOV
JMP
CLR
CLR

5%:

6%:
167330

167322

7%:

#TST4L7 ,NEXT
1%
NEXT ,RETURN
aRETURN
aMC.CSR
PS

;TURN AROUND H861

:BR IF H861

OR H325?

;CLEAR CONTROL REGISTER
;ZERO PSW

;?TAL.RO

;SET THE TOTAL NUMBER OF LINES TO BE

MOV
MOV
MOV

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

;16 LINES
JSELECT A LINE

JCLEAR EXPECTED RESULT

MOV
CLR

#LINENA+TRMRDY ,aMC.LSR
aMC.CSR

MOV

aMC.LSR,R4

BIC
CMP

#~C<17>,R3
R1,R3

CMP

R4 RS

HLT

CLR

BEQ

BIS
DEC
BNE

MOV
MOV
MOV
BIC
DELAY
MOV
CMP
BEQ
HLT

167304

AR AR AR AR

?Ex

BNE
MOV

020405
000400

MOV

MOVB

000143

R AR A AR AR AR AR AR AR AR

TEST &6

TST46:

1%:

SCOP1
INC
CLR
DEC
BNE
SCOPE

aMC.CSR,R3

;SET LINE ENABLE +TRMRDY
;CLEAR CONTROL REGISTER
;JREAD LINE STATUS

;READ LINE NUMBER

;CLEAR UNWANTED BITS
;IF RECEIVED LINE=SELECTED LINE

4%
JEXPECT LINE ENABLE AND
#LINENA+TRMRDY+CO+CS,RS
5%

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

#TRMRDY ,aMC.LSR

aMC.LSR R4
RS .R4
.+
1

R1
aMC.LSR
RO
2%

sCLEAR TO SEND AND CARRIER ARE SET
;COMPARE EXPECTED AND

JRECEIVED RESULTS

JRS=EXPECTED R4=FOUND

JUPDATE LINE COUNTER
sCONTINUE IF ALL CHECKS
;ARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
sON SELECTED LINE
JSELECT LINE
;CLEAR TERMINAL
;DELAY FOR CABLE
JREAD LINE STATUS REGISTER
JONLY LINE ENABLE SHOULD BE
JSET ON THIS LINE
JRS=EXPECTED R4=FOUND

;CHECK FOR ITERATIONS, LOOP

MACY

SEQ 0080

TESTED IN R

D
P11

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRRRRARNRAANAR
AR E R R nnns

JEST

DIGITAL EQUIP.

CORP.

RRRARRRRR
AR RRARRARRRRA AR AN R

s*VERIFY THAT RING IS SET IF "LINE ENABLE''

s*AND REQUEST TO SEND ARE SET FOR SELECTED LINE.

s*THIS TEST

IS DONE

THE H861

TURN AROUND IS USED.

: MODEM CONTROL LINES *MUST+ BE CONTIGUOUS FROM LINE 00.
IR

;

020004
020012
020020
020024
020026
020034
020040
020044
020050
020054
020056
020064
020070
020074
020102
020106
020110
020114
0207120
020124
020126
020130

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

020134
020136

020405
001401

020150
020152
020154
020160
020162
020166
020174
020176
020202
020204
020206
020210
020212
020214
020220
020222
020224

052777
005302
001355
012705
010103
010177
042777
104414
017704
020504
001401
104001
104401
005201
005077
005300
001320
104400

050140
020142

104001

000047
020226
007260

001226
001216

001216
161154
167234
177776
007276

001214

020064
000020
167204
000005
167172

001220

167112
000004

AN RR N

R AR

AN RN,

;16 LINES
JSELECT A LINE
sSET LINE ENABLE +RS
;CLEAR CONTROL REGISTER
;CLEAR EXPECTED RESULT
;READ LINE STATUS
sREAD LINE NUMBER
;CLEAR UNWANTED BITS
sIF RECEIVED LINE=SELECTED LINE
JEXPECT LINE ENABLE AND
ARG 18 387

4%:

CMP
BEQ

R4 ,R5
5%

s COMPARE EXPECTED AND
JRECEIVED RESULTS

5%:

BIS
DEC
BNE
MOV
MOV
MOV
BIC
DELAY
MOV
CMP
BEQ
HLT
SCOP1
INC
CLR
DEC
BNE
SCOPE

#STEP,aMC.CSR
R?

2%:

3%:

000001

AN AR AR

#47 ,TSTNO
#TSTS0,NEXT
TURFLG
1%
NEXT ,RETURN
aRE TURN
aMC.CSR
PS
TOTAL RO
R1
#2%,L0CK
#16. ,R2
R1,aMC.CSR
#LINENA+RS ,aMC.LSR
aMC.CSR
RS
aMC.LSR,R4
aMC.CSR,R3
#C<17>,R3
R1,R3
43
#LINENA+RS+RING,RS

167200

167130

AR AR R R AR R AR R R

MOV
MOV
TST
BEQ
MOV
JMP
CLR
CLR
MOV
CLR
MOV
MOV
MOV
MOV
CLR
CLR
MOV
MOVB
BIC
CMP
BNE
MOV

000205

000400

TEST 47

TST47:

1%:

167166
167160
177760

R A AN AR AR R AR

6%:
167106

167100

167062
7$:

HLT

#L INENA RS
R1,R3
R1,aMC.CSR
#RS,aMC.LSR
aMC.LSR,R4
R5,R4
.+
1
R1
aM(C.LSR
RO
2%

;TURN AROUND H861 OR H325?
;BR IF H861
;sCLEAR CONTROL REGISTER
s ZERO PSW
sSET THE TOTAL NUMBER OF LINES TO BE TESTED INR

JR5=EXPECTED R4=FQUND
sUPDATE LINE COUNTER

sCONTINUE IF ALL CHECKS
;ARE NOT DONE FOR THIS LINE
JEXPECT LINE ENABLE
;ON SELECTED LINE
sSELECT LINE
;CLEAR REQUEST TO SEND
;DELAY FOR CABLE
sREAD LINE STATUS REGISTER
sONLY LINE ENABLE SHOULD BE
JSET ON THIS LINE
JR5=EXPECTED R&=FOUND

sCHECK FOR ITERATIONS, LOOP

MACY

SEQ 0081

E
CZDVEC.PN

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.

JRRRRRANRRARRRNRCRRANRRNY

TEST

DIGITAL EQUIP. CORP.
Nannaaa vt aaa e

et vttt

MAC Y

SEQ 0082

nns

;*VERIFY THAT SECONDARY RECEIVE IS SET IF "LINE ENABLE''

;*AND SECONDARY TRANSMIT ARE SET FOR SELECTED LINE.

s*THIS TEST IS DONE

THE H861

TURN AROUND

IS USED.

; MODEM CONTROL LINES *MUST+ BE CONTIGUOUS FROM LINE 00.
3 MLAAE

000011

166756

166762
166750

2%:

3%:

166744
166736
177760

;CLEAR CONTROL REGISTER
;ZERO PSW
;SET THE TOTAL NUMBER OF LINES TO BE TESTED IN R

R1,aMC.CSR

:SELECT A LINE

TOTAL ,RO
R1
#2%,L0CK

#LINENA+SECTX,aMC.LSR
aMC.CSR

RS
aM(C.LSR,RS

aMC.CSR,R3

#*C<17>,R3
R1,R3
4
#LINENA+SECTX+SECRX,R5

000031
4%:

%
1

000400

166706

000010

6%:
166664

166656

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

aMC.LSR,Ré
R5,R4
-’4
1

216 LINES

sSET LINE ENABLE +SECTX
sCLEAR CONTROL REGISTER
sCLEAR EXPECTED RESULT

sREAD LINE STATUS

;READ LINE NUMBER
;CLEAR UNWANTED BITS
sIF RECEIVED LINE=SELECTED LINE
SEXPECT LINE ENABLE AND
;SECONDARY RECEIVE IS SET
s COMPARE EXPECTED AND
sRECEIVED RESULTS

;R5=EXPECTED R4=FOUND

sUPDATE LINE COUNTER
;CONTINUE IF ALL CHECKS
sARE NOT DONE FOR THIS LINE
;EXPECT LINE ENABLE
;ON SELECTED LINE
sSELECT LINE
:CLEAR SECONDARY TRANSMIT
sDELAY FOR CABLE
sREAD LINE STATUS REGISTER

sONLY LINE ENABLE SHOULD BE
sSET ON THIS LINE

;R5=EXPECTED R&4=FOUND

R1
aMC.LSR
RO

166640

020444
020446

#STEP,aMC.CSR

000001
166670

5%:

OR H325?

7%:

001220

;BR IF H861

020306
000020

:TURN AROUND H861

007276

#50,TSTNO
#TSTS51 NEXT
TURFLG
1%
NEXT ,RETURN
aRETURN
aMC.CSR

1%:

2222232322322 2223

160732
167012
177776

001216

TEM

7ST150:

000050
020450
007260

012737
012737
005737

020226

sCHECK FOR ITERATIONS, LOOP

AR Rl

DV11 DEVICE DIAGNOSTICS.

JERnknnnnhnannnwnnnnnnnnt

wnnnanannnnwnsnontantnannnsane

SINGLE LINE CABLE TEST.

;«TEST TO RUN A 5 BIT BLOCK (000-037)
;«OF DATA FROM THE DV11 TRANSMITTER INTO THE

s *RXWC :

-40(8)-BIT15

s*LINE PROTOCOL TXDDCMP,RXDDCMP,LRC8,STRIP SYNC,IDLE MARK
s*LINE STATE
EXPECT BCC,TX GO
;*LINE PROGRESS SEND BCC
'NOTE FOR TEST OF ASYNC LINE CARD;

'A'"* MUST BE SET TO ALL ZEROS

;* "'SYNC

IN SOFTWARE STATUS MAP.

“x

;:ltt.t.fitlttfit"t'ttltt'tt'ttttt.t.'Qtfi'fitQ'tttt'ttt't".tt.ttttt
s
012737
012737
005737
001005
013737
000177
104413

TST51:

001216

001214

000010

007262

000004

007262

001414
001430

001244
023204

001412
001426

001244
023204

89%:

000004

007262

91%:

001410
001424

001244
023204

001406
001422
023204

001244
023204
023205

160510

705

023606

725

000010

705

023606

704

023204

004

TEST 5

000051
010064
007260

001226

888:

Mov

#51,TSTNO

MOV
JMP

NEXT ,RETURN
aRETURN

MOV
TST

RAMCLR

HTESTER NEXT
TURFLG

88$

BIT #BIT3,LINE
BEQ
91%
BIT
#BIT2,LINE
BEQ

MOV

MOVB
BR
MOV

MOVB

:CLEAR DV11

89%

;DETERMINE LINE NO.
s
:
:

L12.15,SYNC
1008
MASK. C ,MASKX

;SET SYNC FOR 12-15
3
:MASK PARITY BIT IF SET

MASK.D ,MASKX

LO08.11,SYNC
1008

BIT

#BIT2,LINE

MOV

MASK .B ,MASKX

BEQ

;MASK PRRITY BIT

SET

sSET SYNC FOR 08-11

2:9(

E¥L

90%

%88307.SYNC

JSET SYNC FOR 04-07

JMASK PARITY BIT

SET

4 = 94g

MOV

MASK .A ,MASKX

JMASK PARITY BIT

SET

3ol

1008:

MOVB
?Ex

SYNC,SYNC+1
:ZXTAB.RS

sJMAKE SECOND SYNC
;GET TABLE POINTER

101$:

MOvVB

#BIT3,(RS)+

J"'INC/BCC'* AND ‘MODE Q'

ggVB

90%:

MOVB

INCB
BNE
MOV
CLR
MOVB
BEQ

;25}8)-81715

:';:gxz

ggLERNAL LOOP BACK

.?ggi

—

;*DV11 RECEIVER THROUGH THE CABLE.
S*SETUP:
%

MACY

SEQ 0083

R
N

:*DV11

[EST

DIGITAL EQUIP. CORP.

L00.03,SYNC

R4
101%
#TXTAB,RS
R4
SYNC R4
102%

PPN
N
e

19-MAR=-79 09:06

;SET SYNC FOR 00-03

sALL DONE?
:BR IF NO
JSET POINTER

:
sSET SYNC CNTRL BYTE

JBR IF ASYNC LINE CARD!

ITAIAIAIAIAIAIAIAIAIAIAIAI
~

CZDVEC.PN

023100
001

65%:

66%

.BYTE

000,001

023100
005

66%:

SYNC

<=42>-BIT15
PERFORM ,SETREG

.BYTE

004,005

RXBA
<=40>-BIT15
PERFORM ,SETREG

023100
013

TXBAP BYTE CNT

TX BA,
: SYNC

TX BC

:MARKED BYTE COUNT

*RX BA,BC

BYTE
012,013
BIT6+BITS+BIT1+BITO
BIT10+BIT2

023100

PERFORM ,SETREG

014

.BYTE
BIT10
001

023204

016,014

TSTB

SYNC

.BYTE

010,010

BNE
CLR

.+6
aDVSRA
PERFORM
,SETREG

160346

023100
010

TXTAB=-400
TXTAB=-400

023204

TSTB

BNE

023144

SYNC

67%

PERFORM ,LOAD .MODE

<BIT12+BIT11>+BIT9

023144

PERFORM ,LOAD.MODE

IF SYNC LINE CARD; START IN MODE
:1F _ASYNC LINE CARD;

:SET TX TO MODE 0
sWHICH IS TRUE DDCMP MODE!

;ASYNC LINE CARD?

:BR IF NOT ASYNC

58 BITS/PER/CHAR.

BIT13

:RX ENABLE
PERFORM ,LOAD.MO
<BIT14+BIT13+BIT12> +exr1b :9600 BAUD.

023144

67%:

160254

68%:

160246

2%:

68%

PERFORM ,LOAD.MODE

MODE FOR CABLE

INC

aDVSCR

:SET GC

TSTB

aDVSCR

*RX BIT7=1?

BIT13+B1712
CLR

BMI]

—_

A
AN LA LN IAININININ LN

PERFORM ,SETREG

NN IN

000,001

TXBAP
<=40>-BIT15

:BR IF NO

A LD

.BYTE

PERFORM ,SETREG

*IS THIS AN ASYNC CARD?

023100
001

*LOAD LINE NO

65%

LINE aDVSRS
SYNC

BNE

MOV
TSTB

*ALL DONE?

160446

*LOAD DATA

004
024206
077740
004537
012
000143
004

007262
023204

R4
R4, (RS)+
R4
#40 R4
1%

004537
000
023206
077740
000405
004537
000
023204
077736
004537

000040

CLR
MOVB
INCB
CMP
BNE

“*MODE 1"

105737
001006

1%:

R4 RS
lBITS (RS)
fiTXBAP.RS

001373
013777

102%:

O‘C<377> R4

105204
022704

000040
023206

ADD
MOVB
MOV

SYES

NN N IA

005004
110425

012705

BIC

MACY

SEQ 0084

A (A NNNNNN

020702
020704
020706
020710
020714

112715

177400

DIGITAL EQUIP. CORP.

ek e ek ek —d

042704
060405

e T

020664
020670
020672
020676

DV11 DEVICE DIAGNOSTICS.

TESTING

ek el

19-MAR-79 09:06

ek e

EE NOAWVNESWN=O

S oot

CZDVEC.P

SWAB
BIS
MOV

—d ek el a

*NO SCR BIT7=1

L INE RS
*GET LINE NUMBER
RS
*PUT IN HIGH BYTE
#BIT14+BIT12,RS

aDVRIC,R4

*READ RIC

':t'tt'ti.fit.fi'fittt'tt't'i'tt...t..fitfifiii.fit..ti!t.Q'ttttfi.."t".i

021144

143704

001244

BI(B

MASKX ,Ré&

;CLEAR PARITY BIT
;PARITY BIT IS APPENDED

S99

sTO HIGH BIT OF CHARACTER
sWHEN PARITY ENABLED.
s AR

021150
021152
021154
021156
021160
021162
021166
021172
021176

(%:

005004
012701
012700
012702

023206
024206
000040

042704

177740

AR AR AR

R5,R4
4%

CLR
MOV

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

CLR

MOVR

021222

#4C<37>
R4
RS5.R4

6%
6%:

DEC

AR R AR AR AR AR AR AR AR R AR RN ®

:0K?

s YES

(R1)+,RS

021206
021210

021212
021214
021216
021220

P AR AR AR AR AR A AR AR

CMP
BEQ
HLT

MOV

5%:

AR AR AR

:CHECK DATA!!
“GET RX DATA

“GET TX DATA
$0K?

*RX DATA BAD!'!

:DONE?

LINIT DV11

*SCOPE TEST.

e R e e e B e e e I I

050000
160222

MOV

TIME

e e e e e e e e R e e B e B B

052705
017704

3%:

;DELAY

e B

021140

007262

HLT

JWASTE

MACY

SEQ 0085

e e B e R B

3058
3059

DELAY
INC
BNE

DIGITAL EQUIP. CORP.

e e B

104414

005205
001372
000
013705

e e e e e B

DV11 DEVICE DIAGNOSTICS.

—

3054
3055
56

19-MAR-79 09:06

g— g—

CZDVEC.P1

s g

022253
022760

#1, SAVNUM

#1,RS

SAVNUM, SAVR3

#DV.MAP
RO

MXGIVE
JXXLIN

-MXSCR

001
001256
022412

Ky
TEMPS, (RO) +
JMXVEC

65%:

001266

7.1
TEMPS, (RO) +
= (SP)
SAVNUM,
RS, SAVNUM
,MXGV
SAVNUM, SAVR3

XXLIN

(SP)+, SAVNUM

JMXINST

PC.TKRDY

#40, SAVRS
o1gi.SAvns

001272
001272

#BIT15, (RO)
(RO)
70%

JMASYNC

021470
021476
021504
021506
021512
021516
021520

PC,

TKRDY

#40, SAVRS

#116,SAVRS

66%

#ASYNC, (RO)

022376

66%:

F <

(RO)+
#DV.END ,RO
1%
JMXTITLE

SAVRS ,DVNUM

022367

MACY

SEQ 0086

#STACK,
SP

#DV.MAP,RO

#4C<17>
. DVNUM

001266

MANUAL

PC, TKRDY

001301
001301
001303

CORP.

1%:

DIGITAL EQUIP.

:
MANUAL

001740

A
R RR R G

.=LOVE

001200
001500

SO S

N NN N NN NN NN N NN NN NN NN N NN N NN

021224

2%:

SN S 5 S 3

o = 2 S S B BB B0

VNN NN NN N N W NN NN W W W W W

3097

021224
021230
021234
021236
021242
021244
021250

LOVE=.
.=210

MMM

§3953%

000210

021224
210

DVv11 DEVICE DIAGNOSTICS.

MMM

3089

19-MAR-79 09:06

CZDVEC.PI

2(R0O)
70%
MXSYTA

J
P11

021524

19=-MAR=79 09:06
104405

000001
000376
001256
000
113710
104403
104405

000001
000376
001256
000
113760

021624

DV11 DEVICE DIAGNOSTICS.

042737
032737
001405
062710
005237
000767

001
001256
022424

PARAM

001
376

001
001256
022440
022760
177770
000007

TEMPS
.BYTE

000002
001272
001272

3%:

SERLURAREV28BEIRR

NN W
WNL VU AN N N NN N NN
N ==
e
e ol D e e d e e D

022026

021302
001300
001301
001301
105237

001300
001300

PC, TKRDY

#*~C<7>,SAVRS
#7.SAVRS
43
#400, (RO)

B8R

,MPARITY
PC, TKRDY

CMP
BNE

#'Y,SAVRS
5%

TYPE

#'Y.SAVRS

TYPE

JSR

CMP

BEQ
708:

TKRDY

#40, SAVRS

5%
#B1T13, (RO)
AR

,MXSYN

PC,TKRDY

#40, SAVRS

#1371, SAVRS
. +6

BIS

#BIT12, (RO)

INC

(MP

CMP
JMP

BEQ

INCB
CMPB

BHI

JMP

001303

,MPEVEN

CMP

BIC

001272
001272

#PARBIT, (RO)
PC,

BNE
BIS

;SEE IF PARITY ENABLED

#40, SAVRS

JSR

BIC

001272
001272

68:

SAVRS

TYPE
JSR

BIS

001301

,MXBITS

BIC
BIT
BEQ
ADD

BIC

001272
001272

000005
021370
001303
001303

JSR

A ARSI
2222223323323 2 22322332 222222222

i$:

010000

021762
021766
021774

0,1
TEMPS,2(R0)

INC

020000

022643
022760
000040
000131

MOVB
TYPE

000400
001272

040000
022514
022760
000040
000131

021756

MACY

SEQ 0087

376
TEMPS
0,1
BYTE
MOVB
TEMPS, (RO)
INSTR
.mxsyis

3184

DIGITAL EQUIP. CORP.

PARAM

022461
022760
000040
000131

021712
021716
021722
021730
021736
021740
021744
021746
021750
021754

001

021626
021632
021636
021644
021652
021654
021660
021664
021670
021676
021704
021706

CLRB
MOVB
MOVB
cLC
ROLB
INCB

(RO)+, (RO) +

#5 RS
68
65%

SAVNUM
SAVNUM,DVNUM

L +6

DVACTV
DVNUM, SAVNUM
DVNUM.R1
DVACTV

DVACTV

$30of

sIF ANSWER IS YES(Y)
sSET BIT14 OF STAT
;70 ENABLE PARITY
;SEE IF PARITY EVEN

;1F EVEN PARITY SELECTED
sSET BIT13 IN STAT
A A AR AR

R R AR A AR AR R AR AR AR R AR R R PR AR AR AR

A RN NN R AR

R AR RN

DV11 DEVICE DIAGNOSTICS.

001302

051440
042523

040524
042514
020040
051505

LASCIZ
.ASCII

<377><377>/ START DIAGNOSTICS WITH SW07=1'/<212>
<377>/SELECT LINE(S) XXXXXXXXXXXXXXXX/

046107

030461

LASCII

LASCIZ
.ASCIZ
.ASCIZ

MXGIVE:
MXSCR:
MXSY1A:
.ASCIZ
MXVEC:
.ASCIZ
MXSY1B: .ASCIZ
MXBITS: .ASCIZ
MPARITY:.ASCIZ
MPEVEN: .ASCIZ
MXGV:
LASCIZ

022737
022760
022764
022766
022772
022776
823002

156220

TKRDY:

156214
000200
000100

001272
156162

001

156306

<212>/DV11 MANUAL PARAMETER INPUT PROGRAM./

<377>/DV11'S IN SYSTEM (1 TO 8): /
<212>/DV11 #: /
<377>/CSR: /
<377>/SYNC 'A'': /
<377>/VECTOR: /
<377>/SYNC 'B'‘: /
<377>/BITS-PER-CHAR: /
<377>/PARITY ENABLED?(Y OR N): /
<377>/PARITY EVEN?(Y OR N): /
<212>/LINE CARD #: /

BIC
BIT

#3177, (SP)
#BIT6, (SP)

BIC
CMP
BEQ
MOV

#BITS, (SP)
#15,(5P)
1%
(SP) ,SAVRS

.4
@TKDBR,~=(SP)
+6

TSTB

BTECSR

RTS

BYTE
SAVR3

2.1

MOV

RO,=(SP)
RO
aDVLCR

XXLIN:

64%:

/<377>

aTKCSR

1%:

CKBIT1S:

/./<377>
<377>/SINGLE LINE: /

TSTB

BPL
MoV
TST
BR
TST

156156

/
<377>/
<377>/LINES SELECTED(8):

<377>/INSTALLED?(Y OR N): /
<377>/ASYNCHRONOUS ?(Y OR N) /
<377>/TWO SYNCS? (Y OR
N
<377>/(A) H325/<377>/(B) H861/<377>/TYPE ‘A" OR 'B'":
<377>/MODEM VECTOR:

BPL
MOV

TST
BPL

MACY

SEQ 0088

JMXF IN

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

BEQ

000040
000015

#177777, (RO)

ASCIZ
MLINE:
.ASCIZ
M.CRLF: .ASCIZ
:i{T?LE ASCIZ

MXINST:
MASYNC:
MXSYN:
MTURN:
Hgsgfiz

DVACTV SAVACT

MOV

fo;

MXFIN:
MSEL:

R1
.~14

ICo

001300
177777
022056

DECB
BNE
MOVB

DIGITAL EQUIP. CORP.

.
(SP) ,aTPDBR
(SP)+
TKRDY
(SP)
+

65%

;CHAR OR NUMBER
:BR IF NUMBER
:MAKE UPPER CASE

PARAAAAAAAAAAAAAAAAAAAAZ
T I

105301

022032
022034
022036
022044
022050
022054

19-MAR-79 09:06

A
A A

CZDVEC.PN

L
CZDVEC.PI

19-MAR-79 09:06

DV11 DEVICE DIAGNOSTICS.
DELAY

658:

INC
BNE

RO
64$

MOV

(SP)+,R0

HLT

156260
15625
00006
156242
156240

MOVB

(R$)+,RO

012577
052777
010046
095000
005777

156220
100000
156202

025176
025252

004

001
004
001

001

MOV

(RS)+,aDVSRA

MOV

BIS
1$:

SYNC:

053103
040503
042117
054105
042516
042117
040505
050130

#BITS+BIT4,aDVSCR

LOAD
. MODE :

28:

047111

BIC

MOV
MOV
EXIT

156212

TXBAP:
TXTAB:
RXBA:

EM1:
EM2:
EM3:

DH4 :
EM4 :
EMS :
EM6 :
DH1 :

RO, =(SP)
R1.=(SP)

(RS)+.R1
RO,aDVSRSH

MOVB

(R5)+,aDVSRA

R1,aDVSRSH
(SP)+.R1
(SP)+.RO

(RS)+,aDVLCR

#B1T15,3aDVLCR

MOV
CLR

RO, =(SP)
RO

BPL

DELAY
INC
BNE
HLT

MOV

DIGITAL EQUIP. CORP.

:BIT 15 FAILED TO CLEAR

MOVB
MOVB

MOV

156234

RTS

SETREG: MOV
MOV

aDVLCR

RO
1%
0

(SP)+.R0

:BIT 15 FAILED TO CLEAR

EXIT
.BLKW 1
.BLKB
400
.BLKB
400
.BLKB
400

LASCI1
LASCIZ
LASCIZ
ASCIZ

<377>/SINGLE LINE CABLE TESTS(DV11 ERROR)/
<377>/RCVR INTERRUPT (BIT 7 OF DVSCR) FAILED TO SET/
<377>/CABLE TURN AROUND TESTS (MODEM CONTROL ERROR)/
<377>/MODEM CONTROL ERROR/

LASCIZ
.geg#z

<377>/READING MODEM CONTROL CAUSED AT TRAP TO 4./
<377>/EXPECTED
FOUND LINE
DVSCR MC.CSR/

ASCIZ <377>/EXPECTED FOUND REGISTER/
LASCIZ <377>/UNEXPECTED MODEM CONTROL INTERUPT./
LASCIZ <377>/MODEM CONTROL FAILED TO INTERUPT/

DT1:

SAVRS
.BYTE
SAVR4
BYTE

L INE
BYTE
DVSCR

6,1

2.4
6.1

MACY

SEQ 0089

M7
CZDVEC.PN

3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281

3283
3284
3285

025344
025346
025350
025352
025354
025356
025360
025362
025364
025364
025366
025370
025372
025374
025376
025400

025402
025404
025406
025410
025412
025414
025416
025420

19-MAR-79 09:06

007300
000003
006
001272
006
001270
006
001266
024606
025252
025320
024731
025252
025320
025010
025035
025346
025070
000000
025134

004

DV11 DEVICE DIAGNOSTICS.

DT2:

001

001
.ERRTAB:

MC.CSR
3
BYTE
SAVRS
BYTE
SAVR4
BYTE
SAVR3
EM1
DH1
DT1
EM2
DH1
DT1
EM3
DH4
DT2
EM4
0
EMS

6.4
6,1

6.1

DIGITAL EQUIP.

CORP.

MACY

SEQ 0090

N
CZDVEC.PN

ADRCNT= 003443
ALU
= 010000
ASYNC = 004000
AUTO.S 006624
BCC
= 060000
BINWRD 003746
BITO = 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

19-MAR-79 09:06

655+

814

3141

1129
784
705+
l4 L4
704

BIT7
BIT8

3026
3046

= 000020
= 000040
= 000100

= 000200
= 000400

BIT9 = 001000
BRB
= 070000
BRW
003014
BRX
003016
BUSY
= 000020
CHAR
007266
CHRCNT 003744
CKBIT1
023052
CLKX
001242
CLK.A
001416
(Lk.B
001417
CLK.C
001420
CLK.D
001421
CLRMUX= 002000
CLRSCN= 004000
CNVRT = 104411
o
= 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
[OONE =

003440
025252
025035
000200

MACY
SEQ 0091

6644

BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BITS = 000010

BIT4
BITS
BIT6

CROSS REFERENCE TABLE == USER SYMBOLS

619

734

3042
3044

3133
2973
2991

3237
2981

3207
3207
945

3228
1197

3049
3049
3060

3060
3178

1239

1449

3207

3185

3042

1959
1437
76414

1991

2115
2199

2192

2253

2300

2347

2394

2584

2638

2692

482

484

804

806

862

919

1391

3107

3126

1428«

1435+
997«

1002

1003+

1004

1007

1965

2046

2770

2135
2823

2213
2877

2276
2931

2323
3054

2370
3216

2417
3242

2464

1543
1864

2230

1548

1550

1651

1695

1717

1738

1759

1789

995

2200

742

2746

9844

8214

2662

CZDVEC P11

DSR
=
DT
DT?2
DVACTV

DVCROO
DVCRO1
DVCRO2
DVCRO3
DVCRO4
DVCROS
DVCRO6
DVCRO7

DVLCR
DVNSR
DVNUM
DVRIC
DVRLVL
DVRVE(
DVSCR

DVSCRH
DVSFR
DVSRA
DVSRS
DVSRSH
DVTLVL

DVTROO
DVTRO1
DVTROZ2
DVTRO3
DVTRO4
DVTROS
DVTRO6
DVTRO7

19-MAR-79 09:06

000020

025320
025346
001300
001500
001524
001550
001574
001620
001644
001670
001714
001370
001402
001301
001366
001354
001352
001362
001364
001400

001376
001372
001374
001360
001502
001526
001552
001576
001622

DVTVEC
DV.END
DV.MAP

DV03.C
DV03.D
.A
DV0O4
DV04.B

88383888

DV03.A

1654

3203
2834
294
3054
3164
3274
3384
34,94
3604
2334
2384
166#

2324
227#
2264

2546
3273
3279

436

TABLE == USER SYMBOLS

MACY
SEQ 0092

3276
435

904
1034+
1022+
1039+
1009+

880+

984

989

1163«

1169+

1170«

1174

1193

1024+

1025

3214

3236%

3237+

3240

1156+
3061

1157

1164

1166

3100+

897

1008«

1019

1326

1031
1027
3226

3034
3008+~
3229+

3227~

3230+

3096
997

1007

11N

1136

3195+

3199+«

3200+

3101+

3192

3196

3197

1402

1410

3050+

3052

3228+

1185

3094

3103

1020+

1032+
1029+
1025+

1028+

1043+

1041+
1004

DV00.A
DV00.8
DV00.C
DV00.D
DVO1.A
DV01.8
DVO1.C
DV01.D
DV02.A

DV02.C

12364

3252#
32634

CROSS REFERENCE

c
CZDVEC.P1

OV04.C
DV04.D
DVO5.A
DV05.8
DVO5.C
DVO5.D
DVO6.A
DV06.8
DVO6.C
DV06.D
DVO7.A
DVO7.B
DVO7.C
DVO7.D
EM1
EM2

001634
001640
001650
001654
001660
001664
001674
001700
001704
001710
001720
001724
001730
001734
024606
024731

EM&
EMS
EM6
ERRCNT
ERRFLG
ERRMSG
ERTABO
EXERCI
EXIT
=
EXITER

025070
025134
025176
001232
001311
004252
004366
007274
000205
004322

EM3

FIX.00
HALTS
HILIM

ICOUNT
INBUF
INIFLG
INSTER=
INSTR =
INSTR2
INTENA=

KBISR
LIGHT
LIGHTS
LIMITS
L INE

19-MAR-79 09:06

CROSS REFERENCE

TABLE == USER SYMBOLS

3334
335#
3404
3424
344K
3464
3514
3534
3554
3574
3624

025010

006516
004302
003436

001222
005520
001310
104404
104403
003236
000100

010276
000174
001200
003364
007262

511
473
8124

829+

1421«

1439+

1058

1063

3247

540+

781%

023144
003442
001220

LOGICA
LOKFLG
LOLIM
LOVE
=
LPCNT
LSTERR

002560
001312
003434
021224
001224
001234

808«

863+

10974

6614
543

9694
409+

1350

3108

1515
1842
14564

2128

1520

3115

3151

1521

1672

2206

1692

1716

1737

1758

1779

2393
3258

2441

2488

2535

2911

2507
2919

2538
2927

2546

1984+

2028+

2071«

2113+

475«
1440

2973
2444
2819

L INENA= 000001
LOAD.M
LOBITS
LOCK

794

1879+

2800+

778

780~

864+

MACY

SEQ 0093

D
CZDVEC.PN

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

MAINT =
MANUAL
MAR18 =
MASKX
MASK.A
MASK.B
MASK.C
MASK.D
MASTEK
MASYNC
MCRLF
MCSRX
MC.CSR

001422
001424
001426
001430

001000
021224
007502
001244
001406
001410
001412
001414
005400
022611
005104
005330
007300

19-MAR-79 09:06

255#
2564
257#
258%

12204
3091
13494
1514
2454
246#
2474
248#
802
3136
571
477
1249%

1010~
1012«
1014~
1016

1567
30934
1461
2975«
1046
1051
1056
1061
9604
32074
694
9604
1326«

1045
1050
1055
1060

2170
2173
2176
2179

2987
2984
2979
2976
1574

1575

2978+
2986
2983
2978
2975

2983«

2986+

3063

798

799

807

948

1327«

1328

1488

2
6

1569

1570

MC.LSR

007302

MC.LVL

007306

2257+
2349«
2443
2539«
2640%
2746%
2856*

2260
2351x
2445+
2542
2643*
2748«
2858+

2269%
2354
2448
2551%
2646
2751%
2861

2273«
2363+
2457%
2556+
2655%
2754
2870

2297«
2367%
2462%
2579%
2659%
2763%
2875%x

2300*
2391x
2486*
2584*
2687%
2767%
2904*

2275«
2418
2588+
2753

2277
2444
2591
2769«

2303«
2447
2607+
2771

2306
2463%
2609
2803~

2322*
2465
2642
2806

1911.}?

}3(1%-

1650%

1408
2125*
731
9604
9604
9604
986

1411
2204+
9734

1649%

12504

}ggc
*

MC.VEC

007304

MDATA
MEPASS
MERRPC
MERRX
MERRZ

005624
005145
005454
005355
005174

MNEW

005402

MERR3
MLINE
MLOCK

MPASSX

MPEVEN

005243
022202
005301

005344

12514
1860*
721
476
805
483
9604

431
1387
455
426

481

1328+

9604
32074
9604

32074

005100
005171
ESET= 004000
SEL
022121
SING
022234
STCLR= 104412

601
463
814
1362
1350
2114

9604
9604
880
32074
32074
865

861

1176

9604

3173

005107

1329+

9604

022514

MPFAIL

CROSS REFERENCE TABLE == USER SYMBOLS

9604

1092
893
3084

1492

1577

1940

1993

960#

1069

1087

1539

1566

1593

1717«
1817+«
2029
2302%
2394«
2490*

1733«
1821~
2072
2304+
2396%
2492+

1737«
1822«
2114
2307
2398+
2495

1996

2035

2119

1619
1738 *
1838 *
2190
2316%
2401
2504%

1648+

1651

1669+

1754«
1842+«
2250%
2320%
2410*
2509+

1758«
1843«
2253+
2344
2414+
2533+«

1759«
1859+
2255+
2347+
2439+
2537+

2256+

2259

2910%

2589*
2694*
2802+
2912+«

2592
2697+
2804*

2601+
2700
2807

2605+
2709+
2816

2324
2491%
2645
2822«

2350«
2494
2661+
2824

2353
2510
2663
2830+

2098+

2369
2512
2696+
2857«

2121+

2195«

1671x

1693*

1715%

1736*

1670%

1691

1714~

1735«

2076*

2084

2586%
2692+
2796+
2091~

2092

2929+

2633+
2713«
2821+
3262

2371
2538+
2699
2860

2397«
2541
2715«
2876«

2400
2557+
2717
2878

2416+
2559
2750+
2884+

1757«

1778

1798+

1819+

1840+

1756%

1777

1797«

1818+

1839+

2915

2924

MACY

SEQ 0094

2638+
2741+
2850+

E
CZDVEC.P1
MTITLE
MTSTN
MTSTPC
MTURN
MVECX
MVECZ
MXBITS
MXF IN
MXGIVE
MXGV
MXINST
MXSCR
MXSYN

001000
005366
005267
022672

005336
022737
022440
022056
022355
022544

MXSY1A

MXSY1B
MXTITL
MXVEC
M.CRLF

19-MAR-79 09:06

1194

9604
1336
479

CROSS REFERENCE

408
9604
9604

32074
32074
32074
32074
32074
32074
32074
32074
32074

1443«
1774

834
1732+
2112«
2481%
2794

2245«
2531
2899«

2292+
2577
2965«

2546
3109

2557
3116

3152

644

646

648

3016

3024

3028

1414

1416

022626

1655

177776

449+
1755+

474>

PUSHRO= 010046
PUSH1S= 005746
PUSH2S= 024646

QV.FLG
001313
RAM
=

RESV16
RESO5 =
RE TURN

1538«
1837«

2188
2528+
2848

3172

RESTAR
RESTRT

1475
1795

1565+
1858+

1592+
1878+

1618+
1904*

1646+
1934~

2295
2628+
2968

2339+
2631

2342
2682+

3035

3043

3045

3048

1417+

1428

1435

1436+

1437

1438+

1699

1720

1741

1783

1805

1826

1847

1325+
1799

1333«
1820+

1388+
1841+

1652+
1882+

1668+
1907+

1673+
1938+

1987+

2126
2440+

2131«
2534~

487

1424~

2141~
2580~

2194+
2634+

2207+
2742+

2386+
2685

1689+

2209+
2797+

2219+
2851+

2251+
2505+

867
2249
2577+
2903

2295+
2578
2968+

1086+

1094+

2970
4984
1036+

462+
1442+

2
2739

464
1443

2437«
2740

498
1454

2438
2794~

544+
1500

2484+
2795

834+
2189
2531~
2849

2631+
2969

MACY

SEQ 0095

32074

1351

RESREG

TABLE == USER SYMBOLS

1071

2405

RAMCLR=

1667+
1983+

2389

2736*

1868

1694+

2031+
2298+

CZDVEC.P

19-MAR-79 09:06

= 000200
= 100000

12308
12264

2452

2865

= 000004

1234#

2350

2358

3022

3074

32514

RUN

001304

RXBA

SAVACT
SAVNUM

024206

001302
001303

2174

1694

1674
S168%

388+

429
383+

2491

2499

2510

2696

2704

2865

2876

1174%
g5+

3203+
TuBBr

1167«

3102+

3106

3122

3125

3127+

3191+

840
683
684
685
686
687
688
3175«

1385
2132«
1338
3176

1392«
2138«
1342
3182+

1393
2210
3100
3183

3106+
2216+
3130+
3207+

3125+«
3256
3131
3254

3269
3139

3160+

3161

1597
1554
1848
2422

1601
1581
1869

1602
1608
189%

1604
1636
1922

1620
1657
1974

2130

2152

2208

2101
2779

1743
2156
2833

989

992+

993«

1000%

1001*

SAVPC
SAVRO
SAVR1
SAVR2
SAVR3
SAVRG
SAVRS

001276
001260
001262
001264
001266
001270
001272

SAVSP

001274

SAVOS = 104406

SCNENA=
0
SCOPE = 104400

SCOP1 = 104401
SECRX =
SECRXF=
SECTX =
SELECT
SERV.G
SETREG
SPACNT=
SSWR
STACK =
STAT
STEP =
SVOS
SWR

SW00
SW01
SW02
Sw03
SwW04
SW0S
SW06
sw07
SW08
swW09
Swi0
sw1l
Sw12

000020
010000
000010
007272
004640
023100
003745
000176
001200
001236
000400
003452
001202

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

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

1648
157#
1584
1594
160#
1614
162#
3169+
1634
03¢

1216
1914
1785

2281
2941
193
2613
12328
12234
12314
12664
523

3017
704+
112¢
544
1484
12194
2269
6734
1238
764

1064

CROSS REFERENCE TABLE == USER SYMBOLS

RING
RINGF

ROMCLK= 104415

M
33
34
314
304
29
288
278
264
254
our
23
228

669*
678+«
677
676*
675*
674
673«
3170

782

159%
1497
1806

1596
1527
1827

1700

1722

2469

2516

2563

2617

2061
2725

1970

2011

2055

2089

2144

2151

2222

2911
1360%
915
302%
74M

2919
1363

2930
1364x

1372+

1381+

1383

1386

1418

1439

3028

3035

32224

450

835

857

1499

3093

1912
2316

1941
233

1947
2410

1964
2457

1995
2504

2001
2551

2036
2601

2040

2655

2045
2709

2077
2763

2120
2816

400

405*

429

434

453

517
927+

526
932+

533
933

554
934+

2328
3085
1890
2667
2919

2375

2721

2775

2828

2758
1356+
914w
3020
708«

771

1347

1918

776

424
1064

1347
830
554
832
533
567

771

1953

410

823

426

830

2882

832

2936

916

917+

MACY

SEQ 0096

3192

2196

2870
567

941

CZDVEC.P11

SW13

Sw14

SW15

SYNAQO
SYNAO1
SYNAQ2

19=-MAR=79 09:06

= 020000

bal

= 040000

204

001506
001532
001556

2864
2974
308#

= 100000

SYNAO3
SYNAQ4

001602
001626
SYNAOS
001652
SYNAO6 001676
SYNAO7 001722
SYNBOO 001512
SYNBO1
001536
SYNBO2 001562
SYNBO3 001606
SYNBO4 001632
SYNBOS 001656
SYNBO6 001702
SYNBO7 001726
SYNC
023204
SYNCX
001240
SYNCOO 001516
SYNCO1
001542
SYNCO2 001566
SYNCO3 001612
SYNCO4 001636
SYNCOS 001662
SYNCO6 001706
SYNCO7 001732
SYNC2A 001432
SYNC2B 001434
SYNC2C
001436
SYNC2D 001440
SYNDOO (001522
SYNDO1
001546
SYNDO2 001572
SYNDO3 001616
SYNDO4 001642
SYNDOS 001666
SYNDO6 001712
SYNDO7 001736
S.C
= 050000
TABLE
TEMP
TEMP1
TEMP2
TEMP3
TEMPL
TEMPS
TESTER
TKCSR
TKDBR
TKRDY
TLAST =
TOTAL
TPCSR

010330
005562
001246
001250
001252
001254
001256
010064
001204
001206
022760
020450
007276
001210

CROSS REFERENCE TABLE == USER SYMBOLS

776

19#

319#
3304

3414
352#
3634
2884
2994
3104
3214
3324
3434
3544
3654
2976%
1494
2904
3014
3124
3234
3344
3454
3564
3674
260#
2614
2624
263%#
2924
3034
3144
3254
3364
3474
3584
3694
778
1413
708
1524
1534
1544
1554
1564
14204
1274
128#
1337
1090
12648%#
1 24

2979x

2984x

2987x

2988x

2996

3009

1434
858+
414
415«
1363«

14654
859+
415
416
1372

9714
420+
964
1997«

3112
1423
529
519
3099
32774
2185+«

3114
1441
588
531
3129

2202

3018

3032

3039

32484

962

1193

1194+

2013«

2034

2037«

2041~

2057+

2080

2083

2097+

3119
2965
914
590
3137

3121

3148

3150

3155

3157

921
596
3159

942
766
3168

1332«
923
3174

1365
944
3181

1446
1367
3207#

1480+
1448

1483
1457

1484
3207

2581

2635

2689

2743

2798

2852

2906

1011«
1013«
1015+
1017«

572

594

773

928

1476

3207

MACY

SEQ 0097

3207

H
CZDVEC.PIN
TPDBR
TRMRDY=
TRPOK
TSTNO

001212
000002
003762
001226

007310

TST1I0
TST11
TST12

011600
011666
011754

TST14
TST1S
TST16
TST17
TST2
TST20
TST21
TST22
TST23
TST24
TST2S
TST26
TST27
TST3

012140
012230
012320
012410
010770
012476
012564
012652
012740
013026
013124
013326
013510
011126
013674
014052
014304
014650
015050
015250
015450
015650

TST13

TST30
TST31

TST32
TST33
TST34
TST3S
TST36
TST37
TST4
TST40
TST4T
TST42

TST43

TST44
TST4S
TST46
TST47
TSTS
TSTS0
TSTS51
TSTé

1ST7

TTST
TURFLG

012050

011220

016046
016244
016442

1304
12334
7544
140#
1617+
1903+

CROSS REFERENCE

574
2303

231

391+
1645*
1933«

1666+
1982+

2573«

1094
16454
16664
16874
1710#
17314
1752#
17734
17944
1442
18154
18364
18574
1877#
19034
16334
19824

596+

843

2627+

13234

TABLE == USER SYMBOLS

2444

2452

2463

1368+

3207
2642

870

1075

1082

2026*
2681«

2069+
2735«

2111~
2790«

1084
1752«

2166+~
2844

1323«
1773+
*
2244
2898+

2293
2966

2340

455

463

775«

1687«

930

1710~

1731«

2803

2811

1474%

1510+

2291+
2964+

2338+

2387

2435

476

2650

1794=

2822
1537+

2385+

1564+
1857+

2433+

1591«
1877+
2480+

2482

2529

2575

2629

479

481

483

1815+

1836+

14744

20264
15104

20694
21114
21664
2244k
22914
2338#
23854
24334
15374

016666

011312
020226
020450
011404
011476
002702
007260

(023206
0235606

TYPDAT
(004266
TYPE
= 104402

3277
459+
1344+

2792

3073
3037
818#
413

460

5274

2186
2846

2246
2900

32494
3038

32504

426

431

MACY

SEQ 0098

017112
017336
017562

TWOSYN= 010000

TXBAP
TXTAB

19-MAR-79 09:06

I
CZDVEC.PI

19-MAR-79 09:06
601
920
3105

007104
003742
004254
004060
002604
002626
030000
005461
002620
005506
004374

1175
702«
810
772
478
484
754
413
482
419
804

11834
732
8134
774
5004
5094

XXLIN
023044
$CRAP = 177777

1391
1#
16384
17694
19234
22404
25648

3107
14664
16414
17874
19294
22828
25698

3126
14704
16594
17904
19754
2287k
26188

32074
15034
16624
18084
19784
23294
26238

1#
1618
17548
1904

1324
1619
1774
19064

13254
1646
17754
1934

2528
28464

ggsg#

2574
29004

TYPMSG

XVEC

004166

795

002612

= 000053

= 000051

= 000017

= 025436

480

7984

694
948
3124

731
986
3128

5034

798
1069
3136

799
1087
3158

802
1092
3167

803
1174
3172

805
1336
3180

807
1362
3205

811
1387

816
1395

861
1425

15064
16804
18114
20184

15304
16834
18294
20224

15334
17034
18324
20624

1557#
17064
18504
20654

2424m
2731

15604
17248
1853#
21034
2429
2781m

15844
17278
18704
21074

15874
17454
18734
21574

16104
17484
18964
21624

16134
17664
18994
22354

1475
16474
1795
19364

14764
1667
17964
1983

1511
16684
1816
19854

15124
1638
18174
2027

1538
16894
1837
2029+

15394
1711
18384
2070

1565
1712
1858
20724

15664
1732
18594
2112

1592
17334
1878
21144

15934
1753
1880#
2167

25754
29664

2628

2629#

2682

26834

2736

27378

279

27928

2845

1466
1589

1472
15934

14764
1610

1503
1615

1508
16194

15124
1638

1530

1535

15394

1557

1643

16474

1659

1664

1875

18804

1896

1901

19064

1923

1931

19364

1975

1980

1954

1974

1994

2014

2034

2054

207#

2094

211»

1704

2814

7404

7764

1321
15664

1855

18594

1824

13254
1584

1870

1934

2334M
2672

2134
924

2154
93

2174
964

2194
1034

2214
1044

2904

2914

2924

2944

2954

1664

1674

1684

1694

23768
2677k

1054

23B1M
2726

1064

2834

2974

1094

2844

2984

3184

1114

2854

2994

2471R
27864

1144

2864

3004

24764
28354

1184

2874

3014

2518
28404

1204

2884

302#

MACY

SEQ 0099

9604
5064
9604
8414

1%
1562

CROSS REFERENCE TABLE == USER SYMBOLS

584
918
3098

VECMAP
WRDCNT
WRKO.F
XBX
XCSR
XERR
XFR
=
XHEAD
XPASS
XSTATQ
XTSTN

25234
2889

165#

2854

3034

J
CZDVEC P11

.BEGIN
«CNVRT
.CONVR
.DATAC
.DELAY

.ERRTA
JHLT
. INSTE
. INSTR
.INSTT
MSTCL

PFAIL
-RAMCL

.RESO5

-ROMCL

. SAVOS

. SCOPE
.SCOP1
.START
. TRPSR
.TRPTA
. TYPE

002332
003542
003536
004576
004476
002436
025364
004002
003224
003120
003140
003142
004556
003244
004402
004516
003504
004566
003444
002634
003020
001742
00375C
001314
003044

~ CROSS REFERENCE TABLE == USER SYMBOLS

19-MAR-79 09:06

32504
4454

32514

6954
6944
9004

8714

1432

32704
7634
6014
580#
604
5854
8924
6124
382
8794
6834
8964
6694

8484

5164

5S4#
3804
7514

756
S644

392

856

MACY

SEQ 0100

19-MAR-79 09:06

DVEND

1%
S5#4
1656

DVFRNT
HLT

INTS

MUXS1T

MUXS2

NOINT
$BUFFE
$CK15
$CK150
$CLR.T
$CYCLE
SEGOLF
$EOP
$F INI
$GETFL
$GE TPA
$HEADE
$MSG
SPFAIL
SRAMCL
SRXSHI
$SCOPE
$SETLI
$SETSC
$SETSY
$SET.T
$SILOI
$SIMBC
$TRPDF

$TSTN
$TXSHI
$VARIA
$x7

1498
1742

2010
2374
2762

2140
2468

14654

MACY

SEQ@ 0101

1526
1784

1626
1952

2327
2708

2503
2881

1635

1969

2362
2720

2564
2834

14664
#
1%
1%
1%
1%
1502#
1
1%
il
1%
14
14
1%
14
1
14
1%
%
1%
14
1l
14
#
219
1
1792

1556

2383

1#
14
#
1659
1811

193

1472
1834

1708

2478

2962

1470
1680
1832

1610
1769
1975

2103
2476
2889

2429

2835

025436

ERRORS DETECTED:

TABLE == MACRO NAMES

465

2062

. ABS.

CROSS REFERENCE

N — —a
-~
HON—
WWO

CZDVEC.P11

CZDVEC,CZDVEC/SOL/CRF/DOC=CZDVEC.MAC,CZDVEC.P11
RUN-TIME: 26 39 4 SECONDS
RUN-TIME RATIO: 330/69=4.7

2334
2726

217
1771

2336

1641
1808

2022
2424
2786

L
CZDVEC.PN

CORE USED:

19-MAR-79 09:06

18k

DOCUMENT PAGES:

(35 PAGES)

CROSS REFERENCE

TABLE == MACRO NAMES

MACY

SEQ 0102