Digital PDFs

AH-8733C-MC

September 1979

94 pages

Original

5.5MB

view download

OCR Version

4.7MB

view download

Document:	CZDVBC0 DV11 DV11 STAT LN CD TSTS SEP 1979 bw
Order Number:	AH-8733C-MC
Revision:	000
Pages:	94
Original Filename:	CZDVBC0__DV11__DV11_STAT_LN_CD_TSTS__AH-8733C-MC__SEP_1979_bw.pdf

OCR Text

DV11 STAT LN CD TSTS

AH-8733C-MC

CZDVBCO

SEP 1979

EII@IIHII

FICHE1 OF
1

MADE
IN USA

SEQ 0001

IDENTIFICATION
PRODUCT CODE
:

AC-8732(C-MC

PRODUCT NAME:

CZDVBCO DV11

DATE RELEASED:

MARCH 1979

MAINTAINER:

DIAGNOSTICS

AUTHOR:

JOHN EGOLF,

R.SOLER

DOCUMENT

SUBJECT

THE

INFORMATION

NMOTICE

AND

THIS

SHOULD

NOT

STAT LN CD TSTS

CONSTRUED

(HANGE

(OMMITMENT

WITHOUT

DIGITAL

EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
THE

SOF TWARE

LICENSE
TERMS OF

DESCRIBED

THIS

DOCUMENT

AND
MAY
ONLY BE USED OR COPIED
SUCH LICENSE.

FURNISHED

UNDER

IN ACCORDANCE WITH

THE

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE
JSE
OF
RELJABILITY
OF
TS
SOFTWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.
{CPYRIGHT

(()

1975,1979 DIGITAL

EQUIPMENT

(ORPORAT]ON

SEQ 0002
ABSTRA(T
The ‘unction ot the DV11 diagnostics
are
to
verify
that the
option
Cperates according to specifications. The diagnostics verfiy that there
are no maltunctions and the all operations of the DV11
are
correct
in
its enviroment.
.
)
.
Parameters may te set to alert diagnost1cs as to the DV11 configuration

wusing

the

answered and

‘‘TRIAL'® program (CIDVE SA:210).

then each diagnostic

will

Ali questions s ould be

'OVERLAY'' these

are stored in the ''STATUS
TABLE'' (see section 8.4a).
"TRIAL'' program is "'AUTC SIZING'' (see section 8.5).

(ZDVB exercises all

processor

existing

NEVER

flags,transmitter and

tested.

Most

line

cards

TURNED

ON). ~

parameters

The alternative to

static

state

Transmitter

and

receiver data,receiver syncing and char

tests

exercise

(00-03,04-07,08-11,12-15).

‘'‘group’’

which

lines

For ease of trobleshooting.

only

(micro

receiver

silo

one

card
may
be
installed and by alerting the diagnostic as to which
cards are PHYSICALLY REMOVED (see section 8.4A)
program
will
run

combination of

Line cards.

NOTE: ~ (CzdvbcO has been enhanced to enable checking of parity
enabling
paritg(odd/even)
caution should
be exercised

are

time

Lline

line
any

logic,

in
any
of the character lengths (5-8
in selecting sync characters
however.

pit).
ie.

it
parity
selected
is odd, make sure sync character selected contains
odd number of bits.
(ikewise when even parity
selected
be
sure
sync
character contains even number of bits.
Currently there are six off line diagnostics
that are
to
be
run
in
sequence
to insure that if an error should occur it will be detected at
an g?rly stage and insuring that diagnosis of error will be immediate to

proolem

NOTE :

Additional diagnostics may be added in the future.

The six diagnostics are:

DZDVA [REV] Basis R/W test and ROM instruction exerciser.

4.
5.

DIDVD [REV] 'FREE RUNNING' Rom tests part 2.
C(ZDVE [REV] DV11 MODEM (NTRL

€.

DZDVF

2.
3.

czdvb [rev] DV11 STAT LN CD TSTS
CZDVC [REV] ROM TST PRT 1

[REV] Asynchronous

line card tests.

REQUIREMENTS

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

DV11-AA MUX CNTRL UNIT

LEAST

ONE

THE

FOLLOWING

Dv11-BA 8 LINE SYNC MODULES
Dv11-88 8 LINE ASYNC MODULES
DV11-B(C & SYNC LINES, & ASYNC LINES

[TRIAL PROGRAM]

STORAGE
Program will

use all

8k ot memor;sexcept

where ABL

reside.
Location
1500
thru 1
6 ] are especially
untouched by operator after DV11 trial program has
atter the 'AUTO SIZING' has been done.

and BOOTSTRAP

LOADER

to be noted and to be
been

executed;

LOADING PROLEEDURE

ME THOD
ALl programs are in absolute format and are loaded
wusing
the
ABSOLUTE
LOADER.
NOTE:
if
the
diagnostics
are
on
a
media
such
as
DISK
.MAGTAPE ,DECTAPE, or CASSETTE;
follow
instructions
the
mon itor
to r
which has been provided on that specific media.
LOADER starting address

MEMORY

s YN
—

8k
12k
16k

20k
24k
28k

SIZE

7
7
7
7
1

3
5

Place address of ABS
(also place

Depress

=500

NNN

ABSOLUTE

—

SEQ 0003

loader

'"HALT'

‘LOAD ADDRESS'

'START KEY'

into CPU)

into switch register.

SW up)

key on console and release.

console

and

release

(program

should

now

SEQ 00C4
STARTING PROCEEDURE
A.

8.
C.

Set switch register to 000200

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

previouslg

SIZING'.(section 7.2 and

run

DV11

diagnostic

B.4.8.5 may be

helpful’

that

.
DVil

used

i
trial

the

'AUTO

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

1500
1502
1504

175009
000300
000226

1506
1510

000062
000226

1514
1516

000226
000062

1512

000062

1520
1522

The atove

SIa'ting

000226
000062

is only an example!

at_add.

1500

This

the

would

program.

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

CONTROL
NOTE:

Sw 15

Sw 14

SW 13
SW 12
Sw 11

Sw 10

SW 09
SW 08
SW 07
SW 06
Sw 05
Sw 04
SWw 03
SWw 02
SWw 01
SWw OC

type

'R'

and proceed

DONE.

run

indicate

THE

For

the

status

table

STATUS TABLE MUST BE

information of

status

the diagnostic

SWITCH SETTINGS
If

there

is no read

SwR

(177570);

SWR

may

modified

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

Halt on error

Set:

Loop on current

Set:

Escape to next

Set:
Set:
Set:

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

te«ut

Inhibit error print ou[nhibit «+ALL** type out’/bell on error.
Inhibit iterations.
(quick pass)
test

Loop with current data
C(atch error and loop on it
Use previous status table.
CLR-do AUTO SIZE.
Reserved
Reserved
Reserved
Reserved
Lock on selected test
Restart pro?ram at selected test
Reselect DVT1'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
Dv11's

be a fatal error.
do not select more active DV1ls
given information about in trial program.
toad address 200
Start with Sw 00=1

Program will

type message

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

DV1ls
DV11;

)

than has been

)

desired
active
EXAMPLE:
17=4 DV11 37=5 DV11 etc.
.

1-1
PRESS

-m

ME THOD :

o@D

active.
this
means
1f
the
system
has
four
DV1ls;
bits
00,01,02.03
will
be
set
in
loc
°‘DVACIV'
from
the
switch
register.
Using
this
switch(SwW00)
alters
that
location; therefore
it four DV1l1s are in the System *~«D0 NOT*x»
set switchs greater than SW 03 in the up position.
this
would

Number (IF VALID) will be in data lights (excluding 11/05)
Set with any other switch settings desired.
PRESS CONTINUE.

Sw 01

RESTART PROGRAM AT

Sw 09

SELECTED

that
at least one pass
test that is not in the
that the program has to
?hfi? ?E§$St 1s selected

TEST

strongly

sug?ested

hass been made before trying to select
a
order of sequence the
reason
being
is
clear areas and set up parameters.
Also
ALWAYS START AT THE
VERY
BEGINNING
OF

LOOP ON CURRENT DATA:

this

switch

will

only

work

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 0060¢
.13

SWITCH REGISTER PRIORITYS

ERROR SWITCHES
1.

SWw 12

Delete print out/bell on errcr.

SWw 08

Goto beginning of

2.
3.
5.

SCOPt

SW 13
SW 15

Delete error printcut.
Halt on the error.

SW 10

the test(on error).

Goto next test(on error).

SWITCHES

SW 09 (if enabled by ‘SCOP1')
in
front
of the
test
no.
incorporated in that

best switch

SWO09

test and therefore SW09

for the scope

not

on an error;
If an
(ex,
+TEST
NO.

ioop

enabeled;

(SW14=0,

and

SW10=0,

there

1is

'+' is printed
10 ) SW09 is
susually*

SW09=1,

=*HARD*

the

SW08=0).

error

(constant);
SWO08 is best.
)
(SW14=1,0,
SwW10=0,
SW09=0,
SwW08-1).
tor
intermittemt
errors;
SW14=1
will
loop on test requardless of error or not
error,

2.
3.
6.2

SW 14
w1

(SW14=1,

SW10=0,

SwW09=0,

Sw08=1,0)

STARTING ADDRESS

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

parameter
NOTE:

input program.

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

OPERATING PROCEDURE
when program is initially
will be prirted.

and program will

started messages

begin running the diagnestic

described

section

four

SEQ 0007
5.2

PROGRAM AND/OR OPERATOR ACTION

The typical

.
.
.
4,

approach should be

Halt on error (via SW 15=1) when ever an error occurs.
Clear SW 15.
Set SW 14:
(toop on this test)
Set SW 13:
(inhibit error print out)

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

o¢

the proolem.

is necessary to know more

information

the
error
report;
LOOK IN THE LISTING for that
typed out and then NOTE THE PC or thE ERROR REPORT

FUNCTIONING of

the

test

CAN BE

concerning

TEST NUMBER which was
thic
way
the
EXACT

INTERPEDITED.

ERRORS
As described previously

there will

always

be a

TEST NUMBER and PC

out
at
the
time of an error (providing SW 13=0 and SW 12=0).
cases additional infcrmation will be supplied to the the
error
which is to give the operator an indication ot the error.

typed

in most
message

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;

test

look

location

that was runnwn? at

way
the operator will
time of the error.

'TSTNO'

the time of

have an

(address

1224)for

the catastrophic

idea as

to what

the DV11

the number of

error.
was

doing at

the

this

the

RESTRICTIONS

STARTING RESTRICTIONS

See section 4.
(PLEASE)
)
Status table should be verified reguardless of how program was
started.
Also
it
is
important
to
use this listing
along with the informatior

printed on

the

TTY

completly

isolate problems.

s€a G608
OPERATING RESTRICTIONS

DV11

t-ial 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 DVil
configuration changes;
the DV11 trial program need never be run
again.

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

sta~ted with SW07=0.

7.3

HAPDWARE

CONFIGURATION RESTRICTIONS

Hardware must

All

be set

(SYNC

LINE

CARDS

to FULL DUPLEX

lines of a particular

ONLY)

line card must be configured the same.

MISCELLANEOUS

EXECUTION TIME
AlLL DV11 device diagnostics will give an "END PASS'
message
(providin?
w0
errors
and
swl2=0) within 4 mins.
This is assuming
3W11=7 (DELET
ITERATIONS)
1is set to give the fastest possible execution.
The
actual
execution

8.2

time depends

greatly on

the PDP11

(PU configuration.

PASS COMPLETE

NOTE:
+EVERY+ time the program is started:
the tests wilt
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

DV11's

in system

000001

ERRORS:

000000

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

END PASS (ZDVBCO CSR:
NOTE:

NOTE:

175000 VEC:

300 PASSES:

the

following

The numbers for (SR and VEC are not necessarily the
values
for
the agevice.
They are onl; for this example.
(ZDVE (MODEM AND CABLE TEST) END PASS message is
a
large
‘'END'’
typed
out
on
ttg.
Please note that each
character printed is

actually and 'END
PASS'' indication.
This was used in
place
of
"BELL'" because
if
sw12=1 and an error occured the BELL may be

mistaken

standard

for END PASS.

END

PASS5 was

The pass execution

too

lenghtly.

fast

that

THEREFORE each char

the

is ar

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

SEQ 0009

8.4

KEY LOCATIONS

RETURN

(1212)

NEXT
TSTNO
RUN

(1214)
(1224)
(1302)
2

Contains the address

iteration
asserted.

count

where

1is

reached

DVACTV (1276)

The bit

CUrrentl6

'RUN'

now

always

points

tested.

one

that DV11

L00.03
LO4. 07
L08.11
L12.15

(1412)
(1414)
(1416)
(1420)
BIT 15
BIT 14

BIT 13
BIT 12

BIT
BIT
BIT
BIT

11
10
09
08

return
on

when

test

past

the

EXAMPLE :
no.05

is the

DVv11

(RUN)

Dv11

These

locations contain the

information needed

test

up
to
8 (decimal) D/11s sequentialy.
they contain the
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
Dv11
no.

will

tested.

1276/3000000000010001 Means that DV11

(1356)

loop

running.

00,01,02,03,06

DVSCR

will

Contains the address of the next test to be pefor~med.
Contains the number of the test now being peformed.
1302/000.000001000 00 Means

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

program

tested.

(ontains the receiver csr

the

EXAMPLE :
no.

current

(DVACTV)

00,04 will be
DV11

under

test.

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

BIT 07-00

]
1

0
1

SYNC

6
5

A" for specified line

must be all

zeros

for

card.

testing Async

8its

07-00

line cards.

SEQ@ 0010
MORE ON THAT

°STATUS TABLE'

(1500-1736)

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

000000
The above

information will

be repeated

for each of up to 8 DV11's

in the

system(these will follow under this table).
EXPLANATION:
1500
175000
This is the system control register for the 1st DV11
the system.
.
.

BIT
BIT
8IT
81T
BIT
BIT

BIT

Bits per char.

TESTED)

(used with bit9)

BIT09 BITO8 BITS PER CHAR.
0
0
8
0
1
7

S8&

BIT 07-00
o

~—
& Og

Set:

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

0
1

SYNC

'A'

This represents

This is

6
5

for specified line card.

'SYNC B'

for the 1st

line card.

"SYNC
A' and line status for the 2nd lire

(for bits defination see explanation

for

This is
This is

°'SYNC B' for line card no.
3.
_
'SYNC
A' and Line status for the 4th line

——
-

88N

000062
00022¢

N ~—

'SYNC B'

b —d

This is

000062

card.

line card 1).

000226

1
1

(O RV, ]

— ek

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

200062

N
~N

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:

J %21V, |

—

(2R,

BIT

OO
CON0O=2NINWHWN

000300
000226

1502
1504

|9, ]

8.4A

for the second line card.

)

This is 'SYNC
A' and Line status for the 3rd line
card.
(for bits defination see explanation_for line cara 1).

(for bits defination see explanation for

This is SYNC B for the 4th line card.

The above is repeated for each DV11 in the system.
filled
by
AUTO SIZING or by the manual parameter

as
described
previously.
locaticns
may
be altered
specific configuration.

Also
if
by
hand

card.

Line card 1).

The table is
input program
desired
by
wuser;
“the
(toggled
1n) to suit the

SEQ 0011
8.5

rex METHOD OF AUTO SIZING wee

8.5.1

FINDING THE CONTROL STATUS REGISTER.
The program will
start
at
add-ess
175000
and start
‘REFERENCEING'
address.
If a NON-EX MEMORY TRAP occures;
the pointer (holding 175000)
is
updated by 10 and the above is
repeated
untill
address
175400
is
reached.
It
a
‘'SLAVE
SYNC
RESPONSE' wa' issued by the DV11 (or ang
other device) (no nxm trap)(and_it (SELO)
w s=0)
;
ointer plus
1
(SEL12) is tested to contain 177777 (MUST
BE EXACILY 177777);
it a trap
is encountered or if SEL12 does not contain 177777 the above updating is
per formed.
If SEL12 was equal to 177777 the pointer is stored away ard
the routine continues as above:
o
NOTE :
It the program does not find your DV11;
something is wrong
and
AUTO SIZING should not be done.

8.5.2

FINDING THE VECTOR
The vector area

".+2'

(next

(address 300-776)

address).

filled with

the

instruction

[0T

and

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

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

the
be

one.

8.5.3

PARAMETER ASSUMPTIONS.
Since too much hardware would need to be turned on to SIZE the rest
of
the
parameters;
the program must assume the remaining variations.
The

result 1f not to your specific configuration
may
be
"altered
by
hang
(toggle in) 1s desired.
In this way 95% of the parameter setup was done
by the urogram and SX by you.
THEREFORE
:
1R
ALL LINE CARDS(4) ARE ASSUMED TO BE INSTALLED.
o

2)
3
4)

Set Bit15 of status map of any (appropriate) line cards missing
TWO SYNCS.
Set Bit12 if éou have a 4 Line group set for 1 sync.
EIGHT BITS PER
CHAR.

Adjust bits 9 and bit 8 in status map for your correct config.
SYNCHRONOUS LINE CARDS INSTALLED
)
Set bitll of status map for Async Lline card and zero sync cards.
SYNC “'A''=22€ AND SYNC
"B''=C62

In all adjustments please refer to section 8.4a for greater detail.

czovBC LST
SEQ 0012

DOCUMENT
REXARARRAANRA
AN

CZDVBC LST
1282422222382
24

N
AC~8732C-M(/<377>/C2DVRCO DV11

nm2

STAT LN CD TSTS

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 VETTOR MAY BE ANY WHERE
FLOATING VECTOR RANGE (300:770)

1214

CZ0VvB(C LST
SEQ 0013

RENRRARRANARNNARNRRANREY

TEST

]

At A

A N

IN THE

e A R

A AR A AN RN R AN NS

TEST THAT '‘TRANSMITTER FLAG WAITING''

IS TRUE AND THAT °RECV FLAG WAITING'' IS

FALSE
AFTER AN INIT,
THIS TEST WILL BE DONE FOR BOTH ASYNC AND SYNC LINE

1280

RARNRNRERRANNARAANNRRASY

1378

A naa

TEST

At v a e A A A

AARRNARANRANNARRANAAARE

TEST

RO A AN

AN AR AN AN AN

CARDS.
AN AN R ARAR

aannnnananrran
st
nrantantnnnsn

TEST THAT THE BIT WINDOW WILL

INTERNAL

MODE IS SELECTED BUT COND.
NOT ASSERETED.

STROBE

NERANRAANRRANRRANRANAAEY

TEST

TEST THAT THE BIT WINDOW WILL

SET WHEN MAINT INTERNAL MODE

TRARRANRRARANRNANRARANAL

TEST

CARDS ONLY.
e AN AN

A AR AN AR NN R R AR RN

IS SELECTED

AND COND. STGBE IS ASSERTED.
THIS TEST WILL BE DONE FOR SYNC LINE

1485

v A A A A A AN AR R A AN

TEST THAT MAINT BIT WINDOW IS CLEARED
AFTER AN INIT,
THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

THIS TEST WILL BE DONE FOR SYNC LINE

16431

FOR BOTH ASYNC AND SYNC LINC

RANRNARARAANRARRKANRANY

STAY CLEARED WHEN MAINT

1381

TEST THAT 'MATCH DETECT'' IS

FALSE AFTER AN INIT.
THIS TEST WILL BE DONE

1328

TEST

CARDS.

€

CARDS ONLY.
A A A kAR

AR R AR

AR AR N

TEST THAT THE BIT WINDOW WILL BE CLEARED
WHEN MAINT INTERNAL MODE IS SELECTED AND TX DSABLE

IS ASSERTED.

THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

1539

CRNRNANAARAARRARRRRANRNN

JEST

TEST

THAT "MAINT DATA'' WILL

THIS

TEST WILL BE

UP IN ‘MAINT BIT WINDOW''.
DONE

AN A A AR A AR AN R R AN

SHOW

FOR SYNC

LINE

CARDS ONLY.

AR NN AN

B
1600

tenvevsnnnvannnnnnnansanr

THIS

TEST WiLL BE

wavwavnnennnncenancannanennnne

A TIME WILL BE EXERCISED.
DONE

FOR

1724

VERIFY

1746

anvrnannnnnnrnnananvrr

SYNC

LINE

CARDS ONLY.

THAT SETTING TMARK BIT PUTS LINE
JEST

AT MARK.

wonnannncsonsnnennnonnsnannnnn

TEST TO CHECK THE IDLE CHARA(CTER
FOR EACH LINE OF THE TRANSMITTER.

THIS
THIS

TEST USES ''SYNCA'',
TEST WILL BE DONE FOR

etennnnnnnRanawnnrnannnn

SYNC

JEST

THIS
THIS

TEST USES ''SYNCB'',
TEST WILL BE DONE FOR SYNC LINE

THE

CARDS ONLY.

aoannannaanonannnnnnnenrnnrwnnn

TO CHECK THE
OF

IDLE

LINE

TEST

FOR EACH LINE

1962

()

TEST TO XMIT A BINARY COUNT PATTERN
THRU THE USE OF THE BIT WINDOW.

ONLY ONE LINE Al

1852

TEST

CHARACTER

TRANSMITTER,

raknnnnnhannennnanavwnt

TEST

CARDS ONLY.

sawvannnsannnannnnnnsnnnnnnnnn

THIS TEST CHECKS 'RECEIVE (HAR SILO'' TO BE
ALL ZERO'S WHEN 'DATA ENASLE'' IS NOT SET.

EXPECTED DATA SHOULD BE LINE NUMBER ONLY
DATA 0°'S AND ERROR FLAGS O.
THIS

2034

TEST WILL BE DGNE

FOR BOTH ASYNC AND SYNC

rARARANRRRR
R RO R ARt n et

JES|

a4t aa

e n vt A

LINE

CARDS.

AN AR A AR KRN NN R RR NN

THIS TEST CHECKS 'RECEIVER (CHAR SILO"

WHEN ‘DATA ENABLE

IS SET'' EXPECTED DATA S/B

THIS

DONE

ALL 1'S FOR RX DATA, LINE NUMBER CORRE(T,
AND ERROR FLAGS
O.

TEST WILL BE

FOR

tannnRARRRRnRnnntnnntnt

TEST

SYNC

TEST

THAT EACH RECEIVER WILL

LINE

CARDS ONLY.

sanvnnsnnwnnanntnnnnasnannnnns

SET

"MAT(H DETECT'' WHEN THE FIRST SYNC
CHARACTER IS PUMPED INTO IT,
THIS TEST WILL BE DONE FOR SYNC

2174

cannnnnnnannonnntrnnnne

TEST

TO VERIFY

THAT

JEST

THE

DV11

LINE

CARDS ONLY.

wnnnannnaneanannaennsennnennrnonn

RECEJVER

IS SET FOR ONE SYN(C CHAR:
‘MATCH DET'* «AND* °‘‘CHAR FLAG'' ARE
SET AFTER ONE SYNC IS PUSHED INTO THE RECEIVER

HOWE VER. ..

THE DV11 RECEIVER IS SET fFOR

TwO SYNC

CHARS....

VERIFY THAT *MAT(CH DET"' SETS ON THE FIRST SYNC
AND VERIFY THAT "MAI(H DET'' «AND* '‘CHAR FLAG''
ARE

THIS

SET ON THE
TEST

USES

SECOND SYNC.

‘'SYN(

TEST WILL BE

A'',

DONE

FOR

SYNC

LINE

(ARDS ONLY.

C2DVB(C LST
SEQ CO14

c
2275

2277

rantenennnnnnnwnnnnnnnn

TEST

TO VERIFY

THAT

TEST

THE

DV11

£2pvBC LS5T

enavennotnannnnnanonnnnnnnnnne

RECEIVER

IS SET FOR ONE SYNC (HAR;
"MATCH DET'' *AND+ "‘CHAR FLAG'' ARE
SET AFTER ONE SYNC IS PUSHED INTO THE RECEIVER
IF

HOWE VER. ..

THE DV11 RECEIVER IS SET FOR

TWO SYNC

CHARS....

VERIFY THAT "MATCH DET'' SETS ON THE FIRST SYNC
AND VERIFY THAT "MAT(CH DET'' ~AND* ''CHAR FLAG"'
ARE SET ON THE SECOND SYNC.
THIS TEST USES °''SYNC B'".
THIS

2380

TEST WILL BE

DONE

FOR SYNC

srnavnhennenantannnantnr

TEST

LINE

CARDS ONLY.

rounnnnnnntnnnnnsnennnnsormantn

TEST TO FORCE RECEIVER OVERRUN.
THIS TEST WILL PUSH INTO THE RECEIVER
TWO FULL CHARS (SYNCS) AND ONE MORE (HAR MINUS

ONE BIT.

THE PROGRAM WILL VERIFY NO OVERRUN EXISTS

THEN THE LAST BITS WILL BE PUSHED IN VERIFING
THAT THE OVERRUN WAS GENERATED.
THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

2508

FPARRNRRRARRARARANKANNEY

TEST OF

RECEIVER DATA

TEST

n e

a e e e Ak AR

AN KRR R AN

THIS TEST RUNS A BINARY COUNT PATTERN THROUGH
ThE RECEIVER OF EACH LINE
THROUGH THE USE OF MAINT. DATA BIT.
THE TX IS NEVER ENAB_ED.
THIS TEST WILL BF DONE FOR SYNC LINE CARDS ONLY.

2623

NARKNNRNARANRRAANSAANRN

TEST

ma st aa Ak

e A A AN KR A AR RN R R AR AN

TEST OF RECEIVER PARITY LOGIC.
THIS TEST RUNS PREDETERMINED DATA PATTERNS
THROUGH THE RECEIVER OF FACH LINE, BY
MEANS OF THE MAINTENACE DATA BIT. IF ODD
PARITY IS SELECTED, AN EVEN DATA PATTERN

IS GENERATED THROUGH THE RECEIVER WITH

THE PARITY 8IT CLEAR. THIS SHOULD CAUSE A
RECEIVER PARITY ERROR. IF NOT, THEN WE CAN
ASSUME THE PARITY CHECKING LOGIC IN THE
RECEIVER IS DEFECTIVE. DATA IS STILI
CHECKED TO INSURE INTEGERITY. EVEN PARITY
WILL LIKEWISE BE TESTED BY GENERATING
AN ODD DATA PATTERN. ALL CHARACTER LENGTHS
MAY BE TESTED. THE TX IS NEVER ENABLED.
THIS TEST WILL DE DONE FOR SYNC LINE CARDS ONLY.

SEQ 0015

2778

2781

wrnrranavannnnnnanwnnas

3052

3140

saswnnnnnenanannnnonnnnnnttnne

THE RECEIVER OF EACH LINE
THROUGH THE USE OF THE TRANSMITTER.
THIS TEST EXERCISES ALL LINES IN GROUPS OF

THIS

2949

TEST OF RECEIVER DATA .
THIS TEST RUNS A SET PATTERN THROUGH

NOTE:

2940

JEST

SHOULD A DATA COMPARE ERROR OCCUR; THE PROGRAM
REPORTS THE ERROR AS A RECEIVER DATA ERROR BASED
ON THE TRANSMITTER HAS PREVIOUSLY BEEN CHECKED AND ASSUMED GOOD.

TEST WILL BE

DONE

ARRNNRRRRARRRARANRANNRAY

FOR SYNC LINE
TEST

CARDS ONLY.
raa a

e a s AR

AR A AR AR A ARR AR

TEST OF RECEIVER "RE-SYNC''
THIS TEST WILL SEND (BY BIT WINDOW) TWO SYNC CHARS AND
THEN VERIFY THAT RX CHAR FLAG IS TRUE.
THEN A ‘RE-SYNC'' WILL BE ISSUED AND
TWO NON-SYNC (CHARS WIIL BE SENT INTO THE RX
VERIFYING THAT THERE IS NO RX CHAR FLAG.
NEXT TWO SYNC CHARS ARE AGAIN MOVED INTO THE RX
VERIFING CHAR FLAG AND THE THE RX SOULD INDEED
THIS

RE SYNC!
TEST WILL BE DONE

RRARRNANARKRRARARAAANAY

FOR SYNC LINE
TEST

CARDS ONLY.

wamamennwnr
et nrnannnnnsnnnnnnnn

TEST TO VERIFY THAT SETTING RECEIVER ENABLE
WILL SET RX FLAG AND MATCH DETECT.
TEST WILL ALSO VERIFY THAT CLEARING RECEIVER
ENABLE WILL CLEAR RX FLAG AND MAT(H DETEC(T.
THIS TEST WILL BE DONE FOR ASYNC “INE CARDS ONLY.
FARRANKRRARRNRARARSNAAN

TEST

ANA AN AR AN R AN NRRRA AR

AR R R AR KRN N

TO SET RECEIVER ENABLE.

SET 'RX DATA ENABLE''.
CLR "RX DATA ENABLE'".

AND EXPECT BOTH RX FLAG AND MATCH DETECT TO BE FALSE.
THIS TEST WILL BE DONE FOR ASYNC LINE CARDS ONLY.

3211

RRRERRNRANRRRARANKRANAR

TEST

JEST

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

TO SET RECEIVER ENABLE.

ISSUE A PESYNC

SIGNAL.

AND EXPECT BOTH RX FLAG AND MATCH DETECT TO BE FALSE.
THIS TEST WILL BE DONE FOR ASYNC LINE CARDS ONLY.

CZ0VvB( LST
SEQ 0016

E
16-FEB=-79 13:1

NNY

CZDbvBC.P11

INTRODUCTION TO DV11

MACY
c2bvB
SEQ 0017

DIAGNOSCTIC

;*A(-8732C-M(/<377>/(ZDVBCO DY11

STAT LN (D TSTS

;*COPYRIGHT 1972, DIGITAL EQUIPMENT (ORP., MAYNARD, MASS. 01754
¢ o

WA =2 OO0 NN

[]

-an

- - - -

d b

;STARTING PROCEDURE
> LOAD PROGRAM
sLOAD ADDRESS 000200
;PRESS START
;PROGRAM WILL TYPE "4

5732C-M(/<377>/CZDVBCO DV11 STAT LN D TSTS *°

d d

;PROGRAM WILL TYPE '
TO INDICATE THAT TESTING HAS STARTED
sAT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE
JAND THEN RESUME TESTING

b ed md

OO0 NN

100000

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

Sw15=100000

;=1,HALT ON ERROR

Sw13=20000
Sw12=10000

;=1,INHIBIT ERROR TYPEOUT
;=1,DELETE TYPEOUT/BELL ON ERROR.

SW14=60000

SW11=4000

SW10=2000

SwW09=1000

Sw08=400
Sw07=200
SW06=100
SW05=40
Sw04=20
Sw03=10
Sw02=4
SW01-2
Sw00=1

;=1,LO0P ON CURRENT

TEST

;=1,INHIBIT ITERATIONS

;=1,ESCAPE TO NEXT TEST ON ERROR

;=1,L00P WITH CURRENT DATA

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

;JLOCK ON TEST SELECT
sRESTART PROGRAM AT SELECTED TEST
JRESELECT Dvil DESIRED ACTIVE
;NOTE:

THIS MUST NOT

EXCEED ORIGINAL

COUNT

;SWITCH REGISTER OPTIONS

F
czovec.pP1i

19-FER-79 13:11

GENERAL DEFINATIONS AND EQUIVALENCIES

JREGISTER DEFINITIONS

000000
000001
000002
000003
000004
000005
000096
000007

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

sGENERAL
;GENFRAL
sGENERAL
;GENERAL
sOENERAL
;GENERAL

PC=%7

;PROGRAM (COUNTER

SP=26

;PROCESSOR STACK POINTER

sLOCATION EQUIVALENCIES
177776
001200

PS-177776
STACK=1200

100000

B81T15=100000
B81714=40000
BI1T713=20000
BIT12=10000

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

010000
020000
030000
040000
059000
06C000
070000

;PROCESSOR STATUS WORD
;START OF PROCESSOR STACK

BIT11=4000
B1710=2000
BIT9=1000
B178=400
BIT17=200
BIT6=100
BIT5=40

BIT4 20
BIT3=10
BIT2=4

BIT1=2
BITO=1

XFR=BIT13+8]T12
NPR=BIT14
S.C=BIT14+BIT
BCC=BIT14+81T1

BRB=BIT14+BIT1348]T12

MACY
cz20v8
SEQ 0018

G
(ZdVBC.P11

19-FEB-79 13:11

TRAPCATCHER FOR UNEXPECTED

(2Dv8

['.""RUPTS

::*Q'Q't"k't!t'fifii"ltt""Qfitttfitfifitt'fittttfifitnflQQQ.Q.QQQ!!"QQQ..'Q

:TRAPCATCAER FOR IL.EGAL

s THE

INTERRUPTS

STANDARD ‘'TRAP (CAT(HER'' IS PLACED

;BETWEEN ADDRESS O TO ADDRESS 776.

—

n PROMONININ)
=
a2
H

OO0

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

000000

.=0

000G24
004402
000340
004002
000340
003750
000340
000040
000001
000091
000001
002560

=04

)

000200
000137

001742

001000

001000
005377

041501

001204
001206
001210
001212

177570
177570

177560
177562
177564
177566

340

*SERVICE AT LEVEL

BLKW 1

:SAVE FOR ACT=11 OR DDP2

*ERROR HANDLER

*GENERAL HANDLER DISPATCh SERVICE
*SERVICE AT LEVEL 7

BLKW 1
"BLKW 1
LOGICAL

*RETURN ADDRESS IF UNDER ACT=-11
“SAVE FOR ACT-=11 OR DDP2
*FOR USE WITH ACT=11 OR DDP?

OR DDP2

=174

000260

001200

“SERVICE AT LEVEL 7

_TRPSRV
340

000176

001200
001200
001202

:POWER FAIL HANDLER

340

HLT

000174
000000
000176
000000

000174

:STANDARD INTERRUPT VECTORS

PFAIL

LIGHT:
=176

SSWR:

.=200

034055

.=1000

MTITLE:

:GO TO START OF

JMP

.START

PROGRAM

.ASCIZ

<377><12>/AC-8732C-MC/<377>/CIDVBCO DV11

STAT LN ¢D TSTS

.=1200

L1GHTS:

SWR:

17
1?7570

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566

sTELETYPE KEYBOARD CONTROL REGISIVER
sTELETYPE KEYBOARD DATA BUFFER
;TELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

;PROGRAM CONTROL PARAMETERS
001214
001216
001220

000000
000000
000000

0
0

MACY

SEQ 0019

s SCOPE ADDRESS FOR LOOP ON TEST
JADDRESS OF NEXT TEST TO BE EXECUTED

JADDRESS FOR LOCK ON CURRENT DATA

/<377>

138
139

140

141
162
143
144

001222
001224
001226
001230
001232
001234

19-FEB=-79 13:11

000003
009000
000000
000000
000000
000000

PROGRAM PARAMETERS,

JCOUNT:
LFCNT:
TSTINO:

PASCNT
:

ERR(NT:
LSTERR:

VARJABLES,

OCOOOW

cZbvB( P11

2
AND

(ZbvB

JNUMBER OF
JNUMBER OF
JNUMBER OF

ITERATIONS THAT CURRENT
JTZREATIONS COMPLETED
TEST

[N PROGRESS

;NUMBER OF PASSES COMPLETED

s TOTAL NUMBER OF

ERRORS

;PC OF LAST ERROR C(ALL

D
)
e
d e
b

LARV
AV LV, (W, LV, )

;PROGRAM VARJABLES

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

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
060000
000000
000000
000000
000000
000000
000000
000001
000091
000001
000001
000001
001306
001560

0
)
0
0
0
0
0
TEMPS:
0
TEMPS:
0
SAVRO:
0
SAVR1:
0
SAVR?:
C
SAVR3:
0
SAVRS:
0
SAVRS:
0
SAVSP:
0
SAVP(C:
0
DVACTV: .BLKB 1
DVNUM:
.BLK3 1
SAVACT: .BLKB 1
STAT:
SYNCX:
CLKX:
MASKX:
:
TEMP
TEMP?:
TEMP3:

SAVNUM:

RUN:
.EVEN
CREAM:

;Dv STATUS WORD STORAGE

; TEMPORARY STORAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE
: TEMPORARY STORAGE
; TEMPORARY STORAGE
;RO STORAGE
2R1 STORAGE
;R2 STORAGE
;R3 STORAGE
;R4 STORAGE
;RS STORAGE

;STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE
;DV11'S SELECTED ACTIVE.
sOCTAL NUMBER OF DV11°'S.
;JORIGINAL ACTV.
DEVICES.

.BLKB 1
BLKB 1

;WORKABLE NUMBER.
JPOINTER ONE PAST RUNNING DEVICE.

DV.MAP

;. TABLE

POINTER.

MA(CY

SEQ 0020

TRAP (ALLS.

TEST WILL BE EXECUTED

|
P11

19-FEB-79 13:11

MACY
(ZDv8
SEQ 0021

PROGRAM PARAMETERS, VARIABLES, AND TRAP C(ALLS.

;PROGRAM CONTROL FLAGS
001310
00131
001312
001313

o0
000
000
000

INIFLG:
ERRFLG:
LOKFLG:
OV.FLG:

.BYTE
.BYTE
.BYTE
.BYTE

0
O
0
O

;PROGRAM INITIALJIZATION FLAG
sERROR OCCURED FLAG
cLOCK ON CURRENT TEST FLAG
;QUICK VERIFY FLAG.

EVEN

000000

;ON FIRST

PASS

EACH DV11

ITERATIONS WILL

$v=0

;DEFINITIONS FOR TRAP SUBROUTINE CALLS

JPOINTERS

TO SUBROUTINES CAN BE

FOUND

;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS

::*fifi'*Qtt""fitfi*'**'i*t“"fitfi"fifi**fiifi*fi*fi'*fi*'tfi."it"'i*t'fit"'t'ti"

001314

SCOPE=TRAP+(

sCALL

TGO SCOPE LOOP ANC

SCOP1=TRAP+1
.SCOP1
TYPE=TRAP+?2

JCALL

TO LOOP ON CURRENT DATA HANDLER

001320

104401
003020
104402
003044

;CALL

TO TELETYPE OUTPUT ROUTINE

001322

003120

104403

INSTR=TRAP+3

;CALL

TO ASCII

0013246

104404

.INSTR

INSTER=TRAP+4

;CALL

TO INPUT ERROR HANDLER

001330

003224
104405
(003244
104406
003444

001332

003504

001334

003536

001336

003542

001340

004556

001342

004516

001344

004476

201346

(004566

001350

004576

001314
001316

W nNN=O OO0 NN
NN =

001326

ny NN LASTAN AN NT1,0 T, N 1,0 1,8 1aN )
N AN 1aN1,¥) b cd b b b md owd ek =

.TRPTAB:

104400

002634

.SCOPE

.TYPE

.INSTER
PARAM=TRAP+5
.PARAM
SAVOS5=TRAP+6
. SAV0S

ITERATION HANDLER

STRING INPUT RGCUTINE

;CALL TO NUMERICAL DATA INPUT ROUTINE
;CALL

TO REGISTER SAVE ROUTINE

104407

RESO5=TRAP+7

;CALL

TO REGISTER RESTODRE ROUTINE

104410

CONVRT=TRAP+10

;CALL

TO DATA OUTPUT ROUTINE

104411

CNVRT=TRAP+11

;CALL

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

104412

MSTCLR=TRAP+1?2

JCALL

TO ISUE A MASTER CLEAR

104413

RAMCLR=TRAP+13

;CALL

TO CLEAR THE RAMS

104414

DELAY=TRAP+14

JCAILL

TO VARIABLE CELAY COUNTER

104415

ROMCLK=TRAP+15

JCALL

TO CLOCK ROM ONCE

104416

DATACLK=TRAP+16

;CALL

TO CLK DATA

.RESOS

.CONVRT
.CNVRT

.MSTCLR

.RAMCLR
.DFLAY
LROMCLK

.DATACLK

":'ttt.‘Qittfitttttfit'ttttt'tttfi*l" L2200

RRARARRSRRRRRRRRSRRR2R

SUPPRESSE

J
(ZovBC.PN

19-FEB=-79 13:
1N

PROGRAM PARAMETERS,

VARIABLES,

AND

czov8

TRAP CALLS.

;DV11 VECTCR AND REGISTER INDIRECT POINTERS
001352

DVRVEC:
DVRLVL:
DVIVEC:
DVTLVL:
DVSCR:
DVSCRH:
DVRIC:
DVLCR:
DVSRS:
DVSRSH:
DVSRA:
DVSFR:
DVNSR:

RESV16:

0
0
O
O
0
0
0
0
0
0

sPOINTER
sPOINTER
sPOINTER
JPOINTER
sPOINTER
sPOINTER
sPOINTER
;POINTER
;POINTER
;POINTER

0
0
0

DV11
DV11
DV11
DV11
DV11
DV11
DV11
DV11
DV11
DV11

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUFPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVICE PS
SYSTEM CONTROL REGISTER
SYSTEM CONTROL REGISTER HIGH BYTE.
NEXT RECEIVED CHARACTER REGISTER
LINE PRAMETER REGISTER
SECONDARY REGISTER SELECT REGISTER
SECONDARY REGISTER SELECT HIGH BYTE.

sPOINTER TO DV11 SECONDARY REGISTER ACCESS REGISTER
sPOINTER TO DV11 SPECIAL FUNCTIONS REGISTER
sPOINTER TO DV11 NPR STATUS REGISTER

sPOINTER 7O

;DV11

CONTROL

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

.WORD
.WORD
.WORD
.WORD

000
000
000
000

sLAST
sLAST
;LAST
;LAST

010
010
010
010

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

.BYTE
.BYTE
.BYTE
.BYTE

8.
8.
8.
8.

;NUMBER
sNUMBER
sNUMBER
sNUMBER

000000
000000
00v000
000000

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

000000
000000
000000
000000

SYNC2A: 000000
SYNCZ2B: 000000
SYNC2C: 000000
SYNCZD: 000000

RESERVED REGISTER.

INDICATORS FOR CURRENT DV11
CHAR TO TEST
CHAR TO TEST
CHAR TO TEST
CHAR TO TEST

OF
OF
OF
OF

;PARAMETERS
sPARAMETERS
;PARAMETERS
;PARAMETERS

CLOCKS
CLOCKS
CLOCKS
CLOCKS

FOR
FOR
FOR
FOR

AND
AND
AND
AND

PARITY
PARITY
PARITY
PARITY

NEEDED
NEEDED
NEEDED
NEEDED

LINES
LINES
LINES
LINES

UNDER TEST

FOR
FOR
FOR
FOR

MASK
MASK
MASK
MASK

ONE
ONE
ONE
ONE

FOR
FOR
FOR
FOR

CHAR
CHAR
(HAR
(HAR

LINES
LINES
LINFS
LINES

FOR
FOR
FOR
FOR

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

;SYNC 2
;
;
;

; SUMMARY
MASK . X

100
200
400
005

006
007
—

CLK.X

040

:
:
;

YRR

000000
000000
000000
000000

TO
TO
TO
TO
TO
TO
TO
TO
TO
TO

MACY

SEQ 0022

5 BITS PER CHAR.

6 BITS PER (HAR.
7 BITS PER (HAR.
8 BITS PER CHAR.
5 BITS PER CHAR.

6 BITS PER CHAR.
7 BITS PER CHAR.
8 BITS PER (HAR.

IF PARITY 1S ENABLED; ADD PLUS ONE TO THE
FOR EACH GROUP THAT PARITY IS ENABLED.

ABOVE

'‘CLK.xX'’

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

LINES
LINES
LINES
LINES

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

P11

001500

001500
001502
G01504
001506
001510
001512

—d
b b o

co~NONES
W

001500
000001
000001
000001
000001
Q00001
00000

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.
DV'H

STATUS TABLE AND ADDRESS ASSIGNMFNTS

DVCROO:
DVTR0O:
DV00.A:
SYNAQO:
DV00.B:
SYNBOO:

.BLKW
.BlLKWw
.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1
1
1

;CONTROL STATUS REGISTER FOR DV11 NUMBER 00
JVECTOR ''A'" FOR DV11 NUMBER 00
;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 00
;SYNC TWO
JPARAMETER FOR LINES 04-07 fOR DV11 NUMBER 00
;SYNC TWO

.BLKW 1
.BLKW 1
.BLKW 1

:SYNC TWO
JPARAMETER FOR LINES 12-15 FOR DV11 NUMBER 00
JSYNC TWO

.=1500
DV.MAP:

001514

00000

000001
000001
000001

SYNCOO:
DV00.D:
SYNDOO:

001524
001526
001530
001532
001534
001536
001540
001542
001544
001546

000001
000001
000001
000001
Q000N
000001
000001
000001
000001
000001

DVCRO1:
DVTRO1:
DVO1.A:
SYNAO1:
DVO1.B:
SYNSO1:
Dv01.C:
SYNCO1:
DVO1.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
JVECTOR “"A'' FOR DV11 NUMBER 01
;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 01
;SYNC TWO
JPARAMETER FOR LINES 04-07 FOR DV11 NUMBER 01
:SYNC TWO
;PARAMETER FOR LINES 08-=11 FOR DV11 NUMBER 01
:SYNC TWO
;PARAMETER FOR LINES 12-15 FOR DV11 NUMBER 01
JSYNC TWO

001550
001552
001554
001556
001560
001562
001564
0017 5
0015 0
001572

000001
000001
000001
000001
000001
000001
000001
000001
0000017
000001

DVCROZ2:
DVTROZ2:
DVO2.A:
SYNAQOZ2:
Dv02.8:
SYNB02:
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

;CONTROL STATUS REGISTER FOR DV11 NUMBER 02
JVECTOR "'A'' FOR DV11 NUMBER 02
JPARAMETER FOR LINES 00-03 FOR DV11 NUMBER 02
:SYNC TWO
;PARAMETER FOR LINES 04-07 fOR DV11 NUMBEK 02
;SYNC TWO
;PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 02
;SYNC TWO
JPARAMETER FOR LINES 12-15 FOR DV11 NUMBER 02
JSYNC TWO

001574
001576
001600

000001
000001
000001

DVCRO3:
DVTRO3:
DVO3.A:

.BLKW 1
.BLKW 1
.BLKW 1

- CONTROL STATUS REGISTER FOR DV11 NUMBER 03
JVECTOR “'A'' FOR DV11 NUMBER 03
;PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 03

001516
001520
001522

NN
NN NN

19-FEB=-79 13:11

001602
001604
001606

0C0001
000001
000001

DV00.C:

.BLKW 1

;PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 00

SYNAO3:
Dv03.8:
SYNBO3:

.BLKW 1
.BLKW 1
.BLKW 1

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;SYNC TWO
;PARAMETER FOR LINES 04-=07 FOR DVY11 NUMBER 03
JSYNC TWO

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

1
1
1
1
1
1
1

;CONTROL STATUS REGISTER FOR DV11 NUMBER (04
JVECTOR "'A'' FOR DV11 NUMBER 04
;JPARAMETER FOR LINES 00-03 FOR DV11 NUMBER 04
;SYNC TWO
JPARAMETER FOR ILINES 04~07 FOR DV11 NUMBEPR 04
:SYNC TWO
JPARAMETER FOR LINES 08-11 FOR DV11 NUMBER 04

007610
001612
201614
001616

000001
000001
000001
000001

DV03.(:
SYNCO3:
DV03.D:
SYNDO3:

001620
001622
001624
001626
001630
001632
001634

000001
000001
000001
000001
000001
000001
000001

DVCRO4:
DVIRO4:
DVO4.A:
SYNAQ4:
DV04.B:
SYNBO4:
Dv04.C:

;PARAMETER FOR LINES 08-11 FOR DV11 NUMBER N3
;SYNC TWO
JPARAMETER FOR LINES 12-15 FOR DV11 NUMBER 03
;SYNC TWO

(Z0v8

MA(CY

SEQ 0023

L
19-FEB-79 13:11

000001
000001
C00001

SYNCO4: .BLKW
DV04.D: .BLKW
SYNDQG: .BLKW

001644
001646
001650
001652
001654

000001

DVCROS:
DVTROS:
DVO5.A:
SYNAQS:
Dv05.B:
SYNBOS:
DV0S5.C:
SYNCOS:
DV0S5.D:
SYNDOS:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
-BLKW
.BLKW
.BLKW

DVCRO6:
DVTRO6:
DVO6.A:
SYNAQG:
DVv06.8B:
SYNBOG6:
DvG6.C:
SYNCO6:
DV06.D:
SYNDU6:

.BLKW

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

DVCRO7:
DVTRO?:

.BLKW
.BLKW

TWO

12-15

FOR DV11

NUMBER 04

NUMBER 05

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

NUMBER 05

.PARAMETER FOR LINES 04-07 FOR DV11

NUMBER 05

TWO

;PARAMETER FOR LINES 08-11 FOR DVi1 NUMBER 05
sSYNC TWO

;PARAMETER FOR LINES 12-15 FOR DV11 NUMBER 05

b b el b el b = el ad ——b

sSYNC

TWO

;CONTROL STATUS REGISTER FOR DVI1 NUMBER 06

*VECTOR 'A"* FOR DV11 NUMBER 06
:gm;gn FOR LINES 00-03 FOR DV11 NUMBER 06

Egmagn FOR LINES 04-07 FOR DV11 NUMBER 06
*PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 06
TSYNC TWO

b wd ——d —) —b

*PARAMETER FOR LINES
SSYNC TWwo

12-15 FOR DV11

NUMBER 06

;CONTROL STATUS REGISTER FOR DV11 NUMBER 07

JVECTOR "'A"* FOR DV11 NUMBER 07

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

NUMBER 07

sPARAMETER FOR LINES 04-07 FOR DV11 NUMBER 07

000000

sSYNC

s SYNC

DV.END:

TwO

VECTOR A" FOR DV11 NUMBER 05

JSYNC

TWO

JSYNC

TWO

JSYNC

TWO

;PARAMETER FOR LINES 08-11

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

:SYNC

MACY
cZDvB
SEQ 0024

TRAP CALLS.

;CONTROL STATUS REGISTER FOR DV11

DV07.A:
SYNAO?7:
Dv(Q7.8:
SYNBQ7:
pvOo7.C:
:
SYNCO7
Dv07.D:
SYNDQ?7:

AND

;PARAMETER FOR LINES

—b

.BLKW
.BLKW

VARIABLES,

— ed cnd wd b b b

001636
001640
001642

— b

PROGRAM PARAMETERS,

—d —b

P11

FOR DV11

NUMBER 07

12-15 FOR Dv11

NUMBER 07

cPROGRAM INITIALIZATION

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

JTYPE

001742
001750
001754
001762
001770
001774
002000
002012
002020

000340

177776

000024
001303

001232

001306
001304

.START: MOV
MOV
MOV
MovB
(LR
CLRB
CLRB
MOV

MovB
(LR

TITLE MESSAGE

#340,PS

#STACK, 5P

;LOCK OUT INTERRUPTS
sSET UP STACK

#.PFAIL 2424

;SET UP POWER FAIL VECTOR

PASCNT

;CLEAR PASS COUNT

DVNUM, SAVNUM
ERRFLG

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

ERRCNT

;SAVE NUMBER OF DEVICES IN SYSTEM,
:CLEAR ERROR FLAG

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

;CLEAR ERROP COUNT

m
P11

19-FEB-79 13:11

002024
002030
002036

005037
012737
012737

001234
000001
001742

002044
002050
002052
002056

105737

00310
000004
000006
000006
002104
177102

000174
000176
000006
000004
001000
001310
177034

006626
005461
001500
177054
177777

000002

PROGRAM INITIALIZATION AND

001246
003250
001250

16$:

5%:

001300

1%:
176746

001302

2s:

001090

38
4:

#8084

asSwR

81s

MOV

#LIGHT,LIGHTS

CMP

MOV

MOV
MOV
TYPE
COM8
TSTB

BM]
JSR

TYPE
MOV
MOV

(MP

(SF)+, (SP)+

(SP)+.6
(SP)+.4
LMTITLE
INIFLG
aSwR

16%
PC, CSRMAP
,XHEAD
#DV.MAP, TEMP1
ITEMP1, TEMP2

#177777 . TEMP2
1%

gg.rsnp1

ST
BNE
BIT
BEQ

awe2
3¢

CLR
LT
(MPB
8LOS
TYPE

B8R

#SW00, 3SWR
3$
MNEW

@SWR,SAVACT
2%
,MERR3

MOVB

QSWR,DVACTV

8IC

#-C<377>.R0

MOV
MOV

#300,R0
#302.R1

CLR
M
(MP

(R1)+
(RO)+, (R1)+
#1000.R0

MOVB
HALT

MOV

BNE

STESTING STARTS

INITIALIZATION BEEN PERFORMED

SRR IF
:
:
;

YES

;

#SSWR, SWR

ggo

HALT

001300

18
4,-(SP)
6.-(SP)
6

TYPE

177400

000300
000302

*HAS

XSTATQ

001246

005243
176710

INIFLG

BEQ
CONVRT

005402
176730

TSTB

81$:

;CLEAR LAST ERROR POINTER
“SET UP FOR TEST 1

*SET UP FOR POWER FAIL BEFORE

NOP

001200
001202

LSTERR
#1,TSTNO

DVACTV,RO

R1, (RO)+

MACY

SEQ 0025

#.START ,RETURN

MOV

808$:

CIDVB

START UP.

MOV

BNE
MOV
MOV
CLR

000004

000042
000001

CLR
MOV

001226
001214

:
:
STYPE TITLE MESSAGE
*IF NOT SET FLAG AND DO
‘BIT7=172

*BR IF NO AUTO SIZE
:GO DO THE AUTO SIZE

:TYPE HEADER
:SET POINTER

SSET DATA

SALL DONE?

:BR IF
;

YES

*UPDATE POINTER
;1S PROGRAM RUNNING UNDER MONITOR
‘BR IF YES

$SELECT SPECIFIC DEVICES??
*BR IF NO.

STYPE

THE MESSAGE.

*ZERU DATA LIGHTS
SWAIT FOR USER TO TELL WHAT DEVICES TG RUN
:IS THE NUMBER VALID?
:BR IF NUMBER IS OK.
:TELL USER OF INVALID NUMBER.

*STOP EVERY THING.

SRESTART THE PROGRAM AGAIN.
SGET NEW DEVICE PATTERN

*SHOW THE USER WHAT HE SELECTED.

“USE ONLY LOW BYTE.

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

N
CZbvBC P11

19-FEB-79 13:
11

464

sTEST

000340
001200
000042

177776

000004

176622

3%
#B1T2,aSwR

012737
012737
000406
013737
013737

000240
000240

002702
002704

#NOP,TTST
#NOP,TTST+2

003014
003016

002702
002704

012737

205666

001214

000177

176556

104402

005301

005171

.BEGIN:

#340,PS

#STACK,SP

a6l
1%

.MLOCK

1$:

2%:
4%:

SEQ 0026

START AND RESTART

012737
012706
005737
001023
032777
00141
104402

MACY

PROGRAM INITIALIZATION AND START UP,

466

647
448
449
450
65
452
453
454
455
456
457
458
459
460
461
462
463

BRW,TTST
BRX,TTST+2
#CYCLE ,RETURN
MR

aRE TURN

sLOCK OUT INTERRUPTS
sSET UP STACK
;1S PROGRAM UNDER MONITOR (ONTROL
;BR IF YES
sCHECK FOR LOCK ON TEST
;BR IF NO LOCK DESIRED.

sTYPE LOCK SELECTED.
sADJUST SCOPE ROUTINE.

;SET UP TO LOCK
s CONTINUE ALONG.
*PREPARE NORMAL

SCOPE ROUTINE

sLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOF
JSTART AT “‘CYCLE'' FIND WHICH CEVICE
JTYPE R

sSTART

TESTING

TO TEST

19-+EB-79 13:
11

END OF

cZpv8

PASS ROUTINE

JEND OF PASS
;TYPE

NAME

TEST

JUPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11

JRESTART

002436
002440

001234
001311
001230
001230
005145
005330

002444

002450
002454
002462
002466
002472
002476

.EOP:

176516

CNVRT
TYPE
CNVRT
TYPE

000377
001301
000042

CNVRT
TYPE
CNVRT
DECB
BNE
MOvB

001213
001303

MOvVB
MOV

BEQ

LOGICAL:

005666
0056¢6

001214

XVEC:

002

XPASS:

002

001232

XERR:

002

JSR
NOP
NOP
NOP
NOP
MOV
JMP
]

LSTERR
ERRFLG

PASCNT
PASCNT
,aL IGHTS

.MEPASS
MCSRX
XCSR
LMVECX
XVEC

-MPASSX

. XPASS
-MERRX
.XERR

SAVNUM
RESTKT

#377 ,QV.FLG
DVNUM, SAVNUM
a6l R1
RESTRT

THE

WORLD CLEAN AGA]N.,

;1YPE
cTYPE
JSHOW
;TYPE
JSHOW
;TYPE
JSHOW

END PASS
(SR
IT
VECTOR
I7
PASSES
IT

.CLEAR LAST ERROR P(C
;CLEAR ERROR FLAG
JUPDATE PASS COUNT
;DISPLAY PASS COUNT

:TYPE

ERRORS

JSHOW IT

SARE ALL DEVICES TESTED?
;BR IF NO.
JSET THE QUICK VERIFY FLAG.

JRESTORE THE COUNT
JCHECK FOR ACT-11 OR DDP
;IF NOT, CONTINUE TESTING
;STOP THE SHOW--CLEAR THE WORLD

PC.(R1)

#CYCLE ,RETURN

CYCLE

.BYTE

6,2

.BYTE
?VRVEC

3,2

BYTE
?ASCNT

6.2

.BYTE
ERRCNT

6.2

?VSCR

:MAKE

[

S R

RESET

TESi

;SCOPE LOOP AND INTERATION HANDLER

e D

WN—=O

VIV VIV TV IV TV 1V IV, TV, 1V,

RESTRT:

XCSR:

002

002632

CLR
CLRB
INC

MOV
TYPE
TYPE

202512
002516

509

RESET

002634

002642
002644

002650

022737
001411
017746
042716

177570

176336
000200

001202

:
OPE

(MP
BEQ

#177570,
SWR

BIC

#B177,(SP)

MOV

MACY

SEQ 0027

649

@TKDBR,=(SP)

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

c
P11

19-FEB-79 13:
11

122726

005037
010016
032777
001407
000437
105777

GENERAL UTILITIES

000007

(MP8
BNE

004640
001234
040000

64%:
176300

TTST:

176272

176252

1%:

001313
001224
001224

001311
001224
001220
000020
001216

BEQ
BR
TSTB

BPL
MOV

176266

004000

JSR
CLR
MOV
BIT

BR
BIT
BNE
TSTB

001222

3%:

176200
BRW:
BRX:

003016

MACY

(TYPE OUT,ERROR,SCOPE,ETC.)

#7,(SP;

.+6

PC,SERV.G

LSTERR
RO, (SP)
#B1T14,aSWR
1%
3%
aTKCSR
3%
aTKDBR,RQ
2%
#SW11,3SWR
2%

JWAS IT CNTRL

;BR IF NO.

SEQ 0028
'G'

sSERVICE ''CNTRL

'G'"'.

QV.fFLG

JHAVE PASSES BEECOMPLETED?

LPCNT
LPCNT, ICOUNT

JUPDATE JTERATION COUNTER
JARE ALL ITERATIONS DONE??

;BR IF QUICK PASS.

;BR [F NOT YET

tSEQT

;START

MoV
MOV
MoV

#20, 1COUNT
NEXT ,RETURN
(SP) ,RO

JRESET ITERATIONS
JGET NEXT TEST

JMP

aRETURN

ERRFLG

POP2SP
1407
437

cCLEAR LAST ERROR PC.
;SAVE RO ON THE STACK
;'LOOP ON THIS TEST'TM?
;BR IF NO.
(IF LOCK SWO1=1; THIS LOC =240)
;GOTO 3%
(IF LOCK SWO1=1; THIS LOC -240)
;KEYBOAD DONE?
;BR [F NO. (LOCK: HIT KEY TO GOTO NEXT TEST)
;CLEAR DONE BIT
; CONT INUE
JDELETE ITERATION?
(QUICK PASS)
;BR IF YES

2%:

001222
001214

<PREPARE FOR NEW TEST
ICOUNTER AT O

;POP RO OFF OF THE STACK
;FAKE AN "RT]"’
;GO DO THE TEST

;CHECK FOR FREEZE ON CURRENT DATA
003020
003026
003030
003034
003036
003042

032777
001405
005737
001402
013716
000002

010546
017605
062766
032777
001012
105715
100002
104402
105777
100375
112577

001362
012605

001000

176154

001220

TST

001220

000002
000002
010000

005104
176104

.SCOP1: BIT
BEQ

1%:

.TYPE:

000002
176114

1%:

2%:

176100

3%:

BEQ
MOV
RTI

MOV
MOV
ADD

BIT
BNE

1ST8
BPL
TYPE
TSTB
BPL
MOVB
BNE
MOV

#SW09,aSWR
1%

LOCK, (SP)

RS,-(SP)
@2 (SP) ,RS

;IS SWO9=1(SET)?
;BR IF NOT SET.

:GOTO THE ADDRESS IN LOCK.

;GO BACK.

:SAVE RS ON THE STAC(K.
;GET ADDRESS OF MESSAGE.

#2,2(SP)
#SW12,aSWR
3%
(RS)
2%
-MCRLF
aTPCSR

:POP OVER ADDRESS.
sINHIBIT ALL PRINT 0QUT??
;BR IF NO PRINT OQUT WANTED (SW12=1)
;IS NUMBER MINUS? (MSB=1(BIT7))
;BR_IF NUMBER IS PLUS
;TYPE A CR/LF!
;TTY READY?

(R5) +,aTPDBR

*PRINT CURRENT CHAR.

1%
(SP)+,RS

;BR [F NO.

:1F NOT ZERO KEEP PRINTING.
SEND OF OUTPUT. RESTORE RS

D
CZDVBC.P11

19-FEB-79 13:11

577

003116

000002

S80
S81
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600

003120
003122
003124
003132
003140
003142
003144
003150
003154
003160
003162
003166
003172
003176
003200
003204
003206
003214
003216
003220
003222

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

003240
003242

012603
000002

g;g

601
602

603
604
605
606
28;

003224
003230
003232
003234
003236

104402
010346
010446
000741
012604

GENERAL UTILITIES

003244
003246
003250
003254
003260
003264
003270
003274
003300
003304
003306

010546
010446
016605
012537
012537
012537
112537
112537
010566
005005
012704

626

003316

001420

003324
003326
003332
003334
003340

002415
121427
003012
142714
152405

003346

001406

626
627
628
629
630
631

632

;GO HOME

e
et DL

000004
000002

003142
000004

005520
000007
176024
176020
000200
000015
176004
175774

005100

175776

.INSTR: MOV
MOV
MOV
ADD
JINST1: TYPE
.MSG:
0
MOV
MOV
1%:
TSTR
B8PL
MOVB
BI(R
(MPB
BEQ
2%:
TSTB
BPL
MOV
DEC
B8NE
MOV
MOV
.INSTE:

TYPE
MOV
MOV
BR
INSTR2: MOV

MOV
RT1

R3,~(SP)
R&,~(SP)
a4 (SP), .MSG
#2,4(SP)

:SAVE R3 ON STACK
:SAVE R4 ON STACK

# INBUF
R4
#7,R3
aTKCSR
1%
aTKDBR, (R4)
#200, (R4)
(R4)+ ,#15
INSTR?
aTPCSR
2%
aTKDBR,aTPDBR
R3
1%
(SP)
+ ,R4
(SP)+ ,R3

JMQM
R3,-(SP)
R4 ,-(SP)
JINST
(SP) +,R4

(SP)+,R3

:RESTORE R&

;RESTORE R3

;CONVERT ASCII STRING 70 OCTAL

611
612
613
614
615
616
617
618
619
620
621
622

625

(TYPE QUT,ERROR,SCOPE.ETC.)

RTI

2?8

623

003312

003320

003342

122714

121427

122714

000004
003434
003436
003440
003442
003443
000004

005520

000015

000060
000067

000060
000015

.PARAM: MOV
MOV
MOV
MOV
MOV
MOV
MOvB
MOVB
MOV
PARAM1: (LR
MOV

C(MPB

1%:

BEQ

C(MPR

RS,-(SP)
R4 ,-(SP)
4 (SP) RS
(R5)+,L0LIM
(RS)+, HILIM
(RS)+,DEVADR
(R5)+,LOBITS
(RS)+ ,ADRCNT
R5,4(SP)
RS
# INBUF ,R4

#15, (R4)
PARERR

(R4) ,#60

BLT
(MP8
BGT
BICB
8ISB

PARERR
(R4) 467
PARERR
#60, (R4)
(R4)+ ,RS

BEQ

LIMITS

(MPB

#15,(R4)

MACY
C20vB
SEQ 0029

E
CZDVBC P1i

633
634

003350
003352
003354
003356
003360
003362

19-FEB-79 13:11

GENERAL UTILITIES

006305

PARERR:

000750

B8R

PARAMI

INSTER

;TEST

020537

003436

020537

003434

101373

103770
133705

001365

LIMITS:

003442

(TYPE OUT,ERROR,SCOPE ,ETC.)

RS
RS
RS
1%

ASL
ASL
ASL

TO SEE

(MP

BHI
(MP
8LO
RI'B
BNE

NUMBER

[S WITHIN LIMITS

RS HILIM

PARERR

R5,LOLIM
PARERR

LOBITS,RS

PARERR

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

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

003440

1%:

000002
003443

LOLIM:

HILIM:

MOV

MOV
ADD
DECB
BNE
MoV
MOV
RT]

R4
DEVADR
R5,(R4)+
#2 RS
ADRCNT
13
(SP) +,R4

(SP)+,R5

DeVADR: 0
LOBITS: O

ADRCNT=LOB]ITS+1

:SAVE PC OF
003444

016637

000004

001276

.SAVCS5: MOV

TEST THAT FAILED AND RO-R5S

4 (SP) ,SAVPC

;SAVE R7 (PC)

;SAVE RO-RS
003452
003456

010537
010437
010337
010237
010137
010037
000002

001272
001270
001266
001264
001262
001260

Sv05:

MoV

R5,SAVRS

MOV
MOV
MOV
MOV
RTI

R3,SAVR3
R2.SAVR2
R1,SAVR1
RO, SAVRO

MoV

R4, SAVRS

;SAVE RS

;SAVE R4
:SAVE R3

;SAVE R2
;SAVE R1
.SAVE RO
;LEAVE.

JRESTORE RO-RS

001260
001262
001264
001266
001270
001272

.RESO5: MOV

SAVRO,R0

sRESTORE RO

MOV
MoV

SAVRZ ,R2
SAVR3,R3

JRESTORE R2

MoV

SAVRS RS

JRESTORE RS

MOV

SAVR1,R1

SAVR4 R4

JRESTORE R1

JRESTORE R3
JRESTORE

MACY

SEQ €030

F
C2DVBC P11

689

690
691
692
693
94
695
696

697
698
699

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

724
725

726

727
728
729
730
731
732

733
734
735
736

737
738
739
740

741
742

743
744

003534

19-FEB-79 13:11

GENERAL UTILITIES

600002

(TYPE OUT,ERROR,SCOPE
ETC.)

RTI

JLEAVE

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

003536
003542
003544
003546
003550
003552
003554
003560
003566
003572

003576
003602
003606
003612
003616
003622
003624
003630
003634
003636

104402
010046
010146
0710346
010446
010546
017601
062766
012137
112137
112137
013137
013704
113705
012700
010403
042703
062703
110320
000241

005104

.CONVR: TYPE
.CNVRT: MOV
MOV

MOV

000C1i2
000002
003742
003744
003745
003746
003746
003744
005582
177770
000060

0006012
1%:

2%:
3%:

012703

005624

003664

105337

003744

003672

105737

003745

003700
003704

112723
105337

000040
003745

003712
003714
003720
003724
003726
003730
06732
00373
003736
003740
003742
003744

105013
104402
005337
001322
072605
012604
012603
012601
012600
600002
000000
660000
003745
0000CO

0C374¢

005624
0037¢2

4%:

5%:
6%:

R1,=(SP)

R3,-(SP)

MOV
MOV
MOV
ADD
MoV
vov8
MOVB
MOV
MOV
MOVB
MoV
MoV

R4,-(SP)
RS,=(SP;
@12(SP)
,R1
#2,12(SP)
(R1)+ ,WRDCNT
(R1)+,CHRCNT
(R1)+,SPACNT
d(R1)+ BINWRD
BINWRD R4

ADD
MOVB
CLC

#060,R3
R3.(RO)+

BIC

ROR
CLC
ROR
CLC
ROR

003656

.MCRLF
RO,=(SP)

CHRCNT ,RS
#TEMP RO
R4,R3

#177770,R3

R4
R4

DEC
BNE
MOV

R5
3%
#MDATA,R3

T1STB
BEQ
MOvB
DECB
BNE
CLRB

SPACNT
6%
#040, (R3) +
SPACNT
5%
(R3)

DEC

WRDCNT

MOV
MOV
MOV
MOV

(SP)+ ,R4
(SP)+ ,R3
(SP)+
R
{SP)+ RO

MOovB
DECB
BNE

TYPE

BNE
MOV

RT]

WRDCNT: O
CHRCNT: 0
+1
SPACNT=CHR(CNT
BINWRD: 0

=(R0),(R3)+
CHRCNT
4%

.MDATA

1%
(SP)+,RS

(ZDvB

MACY

SEQ 0031

G
19-FEB-79 13:
1

GENERAL UTILITIES

(ZDvB

(TYPE OUT,ERROR,SCOPE,ETC.)

;TRAP DISPATCH SERVICE
sJARGUMENT OF TRAP S EXTRACTED

JAND USED AS OFFSET TO OBTAIN POINTER

;TO SELECTED SUBROUTINE
003750

.TRPSR: MOV
Sus

000002
000000

TRPOK
:

177001

MOV
ASL

BIC

001314
000000

ADD
MoV
JMP

(SP) ,~(SP)
42,(SP)

a(SP), (SP)
(SP)
#177001, (SP)

#.TRPTAB, (SP)

a(SP), (SP)
a(SP)+

:GET PC OF RETURN
:=PC

TRAP

:GET TRP
:MULTIPLY TRAP ARG BY 2

:CLEAR UNWANTED BITS

:POINTER

TO SUBROUTINE

: SUBROUT
INE ADDRESS
:GO TO SUBROUTINE

ADDRESS

.ERROR HANDLER

) ——b ——d ——b
d

d ed

d el

d wd

)

EERSSRESSRRERE

NPNINOININY
= =2 =2

004102

162705

011504
006304
061504
006304
042704
062704
012437
012437
011437
105737

001403
005737
001040
104402

104402

005737

001202

HLT:

#177570,SWR

648

175170

aTKDBR,~(SP)

000200
000007
004640
010000

#8177, (5P)

#7,(SP)+
.+6

175140

PC.SERV.G

64%:

—

000267
020000

175140
-_—

122726

001002
004737
032777
001406
105777
100003
112777
032777
001105
021637
001404
011637
105037
104406
011605

177570

—_

022737
001411
017746
042716

001234

001234
001311

(SP) ,R5
(R5) ,R4

1ST8

004276

005104

005104
001220

:BR IF NO PRINT OUT WANTED.

#2 ,R5

177001
024230
004252
004264
004276
001311

4177001 ,R4

#.ERRTAB,R4

TYPMSG:

TYPE
TYPE
TST

*G'"".

HALTS
SgP),LSTERR

(SP) ,LSTERR
ERRFLG

000002

;SERVICE ''CNTRL
;BELL ON ERROR?
;BR IF NO BELL

:TTY READY.

1¢:

;1S THERE A REAL SWR?
;BR IF YES
:SAVE KEYBOARD (HAR
;CLEAR PARITY BIT
sWAS IT CNTRL °'G' ?
:BR IF NO.

#SW12,3SWR
XBX
aTPCSR
XBX
#207 ,aTPDBR

#5W15,aSWR

xBX:

(R4)
+ ,ERRMSG
(R4)+ DATAHD
(R4) ,DATABP
ERRFLG
TYPMSG
DATARBP
TYPDAT

-MCRLF
JMCRLF

LOCK

MACY

SEQG 0032

;DON'T WAIT IF TTY NOT READY.
sPUSH A BELL AT THE TTY.
;DELETE ERROR PRINT OUT?
sWAS THIS ERROR FOUND LAST

;BR IF YES
;RECORD BEING HERE
;PREPARE HEADER
sSAVE ALL PROC REGISTERS
sGET THE PC OF ERROR
;GET ADDRESS OF TRAP CALL
;GET HLT INSTRUCTION
cMULT BY TWO
;DOUBLE IT
JMULT AGAIN
s CLEAR JUNK
;GET POINTER
sGET ERROR ME SSAGE
sGET DATA HEADRER
;GET DATA TABLE

s TYPE HEADREER

;BR IF YES
;DOES DATA TABLE EXIST?
BR IF YES.

TIME?

H
PN

19-FEB-79 13:11

001402

104402
104402
104411
104402
104411
104402
112737

005400
005366
004374
005454
004366
005104
177777

005737
001402
104402
000000

004252

005737
001402
104402

004264

GENERAL UTILITIES
8EQ
1%:

TYPE
TYPE

CNVRT

001311

ERRMSG:

WRKO.FM:

DATAHD:
TYPDAT:

174674

RESREG:
HALTS:

DATARP:

000002
001232
000400

174646

002000

174636

01216
001200

001214

174630

EXITER:

1%:

XTSTN:

002

XTSTN
+MCRLF

.ERTABO

#-1 ERRFLG

TST
BEQ
TYPE

ERRMSG
WRKO . FM

TST

DATAHD

TYPE

TST

TYPDAT

DATABP

RESREG

TST
BPL
PUSHRO
MOV
HALT
POPRO
INC

aSWR
EXITER

0
RESO5

JSHOW 7

JTYPE PC.

JSHOW [T
;GIVE

2(SP) ,RO
ERRCNT

CR/LF

;NO MORE HEADER UNLESS NO DATA TABLE.

;1S THERE AN ERROR MESSAGE?
;BR IF NO.
s TYPE

;

BEG
CONVRT

ERRCR ME SSAGE

.DATA HEADER?

;BR IF NO

;TYPE

DATA HEADER

:DATA TABLE?

;BR IF NO.
: SHOW

:
DATA TABLE
JRESTORE PROC REGISTERS

JHALT ON ERROR?
;BR IF NO HALT ON ERROR

:SAVE RO
;SHOW ERROR PC IN DATA LIGHTS
SHALT
;GET RO
;UPDATE ERROR COUNT

BIT
BNE
BIT
BEQ

#5W08,aSwR
1%
#SW10,aSwR
2%

;GOTO TOP OF TEST?
;BR IF YES
;GOTO NEXT TEST?
;BR _IF NO

JMP

JRETURN

;GOTO SPECIFIED
RETURN

MoV
MOV

2%:
?TI
ERTARO:
BYTE

002

LMASTEK
JMTSTN

TYPE

BEQ

004276

LMERRP(

mMovse

MACY
(ZDvB
SEQ 0033

(7YPE OUT,ERROR,SCOPE ,ETC.)

TYPE

CNVRT

?AVPC

.BYTE

TSTNO

MEXT ,RETURN
#STACK, SP

SET FOR NEXT
JRESET SP

TEST

6,2
3,2

JENTER HERE ON POWER FAILURE

004402
004402
004410
004412

012737
000000
000777

004414

000024

FAIL:

MOV
HALT

H#RESTART
24

;SET UP FOR POWER P TRAP

cHALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
004414
004414

012737

00440¢

000024

RESTAR:

MOV

#.PFAIL,24

JSET UP FOR POWER FAILURE

I
PN

004422
004426
004432
004436
004440
004444
004450
004454
004460
004462
004464

19-FEB-79 13:11

012706
005037

GENERAL UTILITIES

001200
005562
005562

005107
004470
001311
001234

PFTAB:

002

BYTE

004000

012777
000092

004000

174576

052777
000002

000007

174566

104000

012600
000002
000001

174636

001372
001376

RAMCLR:

1%:

170361

TSTNO

MOV
RTI

MOV
MOV
MOV
MOV
MOV

CLR

BNE

174560

004636

.ROM(CLK:

cTYPE

ERRFLG

JSTART (CLEAN

PFTAB
LSrERR

aRE TURN

;BR IF

TO GO

THE MLSSAGE

JTELL WHAT

TEST

TO RETURN

TO.

;IIIIII.I...C

;START CLEAN UP OF DEVICE
cCLEAR IT ALL!
;START DOING THAT

TEST AGAIN.

RO,~(SP)
1%,R0O
RO

.~2

(SP)+ ,RC

AMRESET ,aDVSCR

R1.,~(SP)

;ISSUE A MACTER (CLEAR

;SAVE R1 ON THE STACK

R4 ,-(SP)
;SAVE R4 ON THE STACK
DVSRS,R1
cGET SECONDARY SEL. REG.
DYSRA R4
.GET SECONDARY REGISTER ACCESS REG.
(R4)
. ZERO THE SECONDARY REGISTER.
q;C<BIT11+BIT10+BIT9*BIT8*BIT3+BIT2*BIT1*BITO>+BITO,(R1)

MOV
MoV
RTI

(SP)+,R4
(SP)+ ,R1

MOV
RTI

AMRESET ,aDVSCR ; ISSUE MASTER CLEAR.

#81T71,aDVSCR

#3178 ,aDVLCR
aDVLCR,
3%
3$+1
2%
RO
13

2%:

STACK POINTER

JMPFAIL

RO,=(SP)
RO

1%:

THE

JREADY FOR TIMMER
JPLUS ONE TO THE TIMER!

30.

ADD

MSTCLR:

JRESET

TEMP
TEMP

3,2

DEC
BNE

012777
010146
010446
013701
013704
005014
062711
001374
012604
012601
000002

004637

RAMCLR
JMP

MOV

1%:

174554

.~4

.DELAY: MOV

004514

000400

INC
BNE

CNVRT
CLRB
CLR
MSTCLR

174524

010046
005000
052777
017737
106037
103003
005200
001370

#STACK,SP

TYPE

MACY
(Z0vB
SEQ 0034

(TYPE OUT,FRROR,SCOPE ,ETC.)

MOV

CLR

(SP)+ R0

;RESTORE R4
SRESTORE R1

93
914
915
916
917
918
919

19-FEB-79 13:
1

032777
001374
017737
013777
104402
104411
104402
105777
100375

017746
042716
122726

001450
005077
105777
100375

016677
000241
006177
006177
006177
103735

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

004000

174336

174326
005072
005052
005064
005074

005072

174316

SERV.G: BIT
BNE
MOV
1%:
MOV
TYPE

177776

2%:
174246

174230
174224
174220
177776

000060

177776

000067

177770
177776
174160

177776
174162

000001
006
005072
000000
036457

020040
005015
377

005267
005301

377
377
050377
377
377
377

051127

042524
047514

89%:
.EVEN

88¢%:

90%:
91%:
.EVEN

000057

053520
047105
000122
047522
047111

MOV

aTKDBR,-(5P)

CLR
TSTR

aSWR
aTPCSR

H
:

MOV

-2(SP) ,aTPDBR

B8PL

020122
020104

051107
052523
052123
045503

MQM:
:
MCRLF
:
MPFAIL
:
MEPASS
MR:

MERRZ:
MERR3:

MTSTPC:
MLOCK:

,888

#IT7,(SP)
#15,(SP) +
5%

.~4

:
:
:

CLS
ROL
ROL
ROL

ASWR
aSWR
aSWR

(MP
8LT
CMP

~2(SP) ,#60
1%
-2(SP) 467

:
.
.

BIC
BIS

#°C<7>,-2(SP)
-2(SP) ,aSWR

:
.

B8GT

5%:

000

000077
000

:
;WAIT FOR DONE.

aTKCSR

MOV

oTKDBR,-(SP)

BIC
CMPB
BNE
TYPE

#BIT7,(SP)
#15,(SF)+
2%
JMCRLF

RTS

LASCIZ

<377>?

N
:
.
H

TSTB

BPL

005104
051450
000057

918
aTKCSR

8(CS

174154
000200
000015

020377
036451

TYPE
TSTB

8IC
CMPB
BEQ

174252
174254

JRX BUSY?

;BR IF YES
;SAVE (SWR).
:

BPL

174274
000200
000015

SERV.G
aSWR,90%
90%,aSWR
.89%

CNVRT

174300

#4000,aTKCSR

:ERROR

;

(SWR)=/?

—

CZDVBC PN

.BYTE
90%
WORD
LASCIZ

6,0

LASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ
LASCIZ
LASCIZ
JASCIZ
LASCIZ

0
/=7
2/
<15><12>
<377>/PWR FAILED. RESTART AT TEST /
<377>/END PASS CZDVBCO
7/
<377>/R/
<377>/PROGRAM INDICATES NO DEVICES PRTSENT./
<377>/INSUSFICIENT DATA!'/
<377>/TEST PC-/
<377>/L0CK ON SELECTED TEST/

MACY
czov8
SEQ 0035

K
PN

19-FEB-79 13:11

005330
005336
005344
005355
005366
005400
005402
005454
005461

051503
042526
040520
105
042524
000052
051777
041520
377

0055C6

000002

005512
005514
005516

001246
006
001250

0055170

006

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

035122
035103
051523
051122
052123

000040
000040
051505
051717
047040

052105
020072

051440
000

040515

003

020120

MCSAY:
MVECX:
MPASSX:
MERRX:
MISTN:
MASTEK:
MNEW:
MERRPC:
X?EQD:
.EVEN

.A5CIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ 4
.ASCIZ
LASCIZ

XSTATQ: 2

.BYTE

002
EVEN

TEMP1
BYTE
TEMP?

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /
/%/
<377>/SET SWITCH REG TO DV11'S DESIRED ACTIVE./
/PC: /
<377>/MAP OF DV11 STATUS/<377>

6,3
6,2

;BUFFERS FOR INPUT-QUTPUT
005520

005562
005624

000000
005562
000000
005624
000000
005666

INBUF:
.-.+40
TEMP:
.. +40
MDATA:
.~.+40

cZbv8

MACY

SEQ 0036

L
19~FEB-79 13:
1

GENERAL UTILITIES

MACY

(TYPE OUT,ERROR,SCOPE,ETC.)

SEO 0037

*ROUTINE USED TO ‘'CYCLE'' THROUGH UP TO EIGHT DV11°'S
STHIS ROUTINE
sAND RUNS THE

SETS UP THE CONTROL ADDRESS FOR THE DIAGNOUSTIC
SPECIFIED DVv11'sS,
THIS ROUTINE «MUST*

;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIT FOR THE
;SETUP NECESSARY.
4

105737

001300

104402

005174

001004

000000

000241
106137
105537
062737
022737
001360
012737
000754
000241

CEEEES SISERR

106137
105537
013700
062737

022737

o~V

001003
12737
012037
012037
012037
012037
012037
012037
012037
012037
012037
012037

001300

001304
001304
000024
001740

001306
001306

001500

001306

001304
001304
001306
000024
001740
001500
001362
001352
001422
001432
001424
001434
001426
001436
001430
001440

006104

SRNRERER

b
d wd wd
— ad

001306

3%:

RUN,DVACTV

ROLB
ADC

MOV

PUN
RUN
#24 ,CREAM
#DV.END,CREAM
1%
#DV.MAP,CREAM

ROLB

RUN

MOV
ADD
CMP

CREAM,RO
#26 ,CREAM
#DV.END,CREAM

BNE

BNE
CLC

ADD
CMP
BNE

001306
001306

DVACTYV
1%
JMERR?

BITR

BR
CLC

AD(CB

MOV

MOV
(01"
MOV

MOV
MOV

RUN

#DV.MAP,CREAM

(RO)+,DVSCR
(RQ) +,DVRVEC
(RO)+,L00.03

(RO)+,SYNC2A
(RO)+,L04.07

MOV
MoV
MOV
MOV
MOV
MOV

(RO)+,SYN(CZB
(RQ)+,L08.11
(RO)+,SYNC2C
(RO)+,L12.15
(RO) +,SYNC2D
#2 RO

INC
MOV

DVSCRH
DVSCRH,DVRIC

001372

MOV
ADD
MOV

DVRIC,DVLCR
RO,DVLCR
DVLCR,DVSRS

001374

MOV

001370

001376

1%:

2%:

001366

005237

TSIB
BNE
TYPE
HALT

001364

se888s8ss

VIS WA= O00NN
WN=O

2o080S22322322238

—) emd

) w—d

) —t ol ad

b el

)

001304

CYCLE:

001376

MCV

INC

DVSCR,DVSCRH

DVRIC

ADD

RO,DVSRS

INC
MOV
INC

DVSRSH
DVSRSH,DVSRA
DVSRA

DVSRS ,DVSRSH

JARE ANY DV11°'S TO BE TESTED?
JBR IF OK.

sNO DV11°'S SELECTED!!
;STOP THE SHOW.
sDISQUALIFY CONT. Sw.
;1S THIS ONE '‘ACTIVE''
;BR _IF GOOD ONE FOUND.
;CLEAR PROC. CARRY BIT.
JUPDATE POINTER
;CATCH CARRY FROM RUN

;UPDATE ADDRESS POINTER.

JKEEP GOING; NOT ALL TESTED FOR.
cRESET ADDRESS POINTEP.
<KEEP LOOKING FOR ACTIVE Dvil
;CLEAR PROC. CARRY.
;UPDATE POINTER.
:CATCH CARRY.
;GET ADDRESS POINTER.
;UPDATE.
;ALL DONE?
;BR IF NO.

RESTORE POINTER.

cLOAD SYSTEM CTRL. REG
;LOAD VECTOR
;GET LINE PARAMETERS. 00-03
C4-07

08-11
12-15

;SAVE CORE THIS WAY.
JGET SYS CTRL. REG HIGH BYTE.
:GOT IT.
;GET NXT REC. CHAR REG.

;GOT
;GET
cGOT
JGET
JGOT
JGET
;GOT

IT
LN. PAR.REG.
IT
SEC. REG. SEL. REG.
IT
HIGH BYTE,
IV

*SEC. REG. ACCESS.
1GOT IT

M3
PN
006166

006174
006200
006206
006212
006220

19-FEB-79 13:11

GENERAL UTILITIES

013737
060037
013737
060037
013737
060037

001376
001400
001400
001402
001402
001404

001404

013737

001352
001354
001354
001356
001356
001360

001354

MoV
ADD
MoV
ADD
MoV
ADD

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

MOV
ADD
MOV
ADD
MOY
ADD

DVRVE(C ,DVRLVL
RO,DVRLVL
DVRLVL ,DVTVEC
RO,DVTVEC
DVTVEC,DVTLVL
RO,DVTLVL

001422
001406
001416
006516

MOV
MOV
MOV

#.00.03,R0

001424
001410
001417
006516

MOV
MOV

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

MOV

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

012700
012701
012702
004737

001426
001412
001420
006516

012700
012701
012702
004737
032777

001430
001414
001421
006516
000002

001445

005737
001042
104402
104403

001400

(TYPE OUT,ERROR,SCOPE,ETC.)

001402

001356
001360

JSR

MOV
JSR

MOV
MOV

JSR

8EQ

#L12.15,R0
#MASK.D,R1
#CLK.D,R2
PC.FIX.00
#SW01,3SWR
7%

TST
BNE

N2
7$

MOV
MOV
MOV

JSR
BIT

172612
A ¥

000042
005104

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

TYPE

INSTR

-MCRLF

MTSTN

BYTE
.BYTE

007260

5%:

001226

000002

001226

000004

001214

#1ST1,R0

(PC)+, (RO)
(PC)+,a(PC)+
6%
TST%0,2(RO)
(3

#TSTNO,4 (RO)

6%
RO,RETURN

:SPEC. FUN. REG.

*NPR STAT. REG.

*RESERVED REG
SPTY LWL

STX VEC

STX LWL
;LOAD STAUS 00-03

:PREPARE MASK.

;PREPARE CLOCKS
;GO AND CALCULATE CONF JGURATION.

;LOAD STAUS 00-03

;PREPARE MASK.

;PREPARE CLOCKS
;GO AND CALCULATE CONF IGURATION.

;LOAD STAUS 00-03

:PREPARE MASK.
¢PREPARE CLOCKS

;GO AND CALCULATE CONF IGURAT ION.

;ILOAD STAUS 00-03
;PREPARE MASK.
;PREPARE CLOCKS
:GO AND CALCULATE CCNF IGURATION.

cz0v8
MACY
SEQ 0038

N
CZDVBC.PI1

1087

104402

000612
005720

GENERAL UTILITIES

005104

TYPE

6%:

022760

BR
TST

005100

-—

3233333

1088
1089
1090
1091
1092
1093

19-FEB-79 13:
1

007260

D e

172476

001214

FIX.00:

176377

e e e
e
D D
) ) e e
) D d e

QOQOODOOO

(71000

2%:

#200, (R1)
#7,(R2)
43
#1000,R3

D e o e e
D ) e e e
D
) ed ) e ed e d ed

000300
000006

000340
000005
040000

#400,R3

000200
000067

3%:
4%

5%:

cMP

BHE
MOVB
MOVB
8R
MOVB

MovB
BIT
BEQ
INCB
RTS

:PREPARE RETURN ADDRESS
;GO START TESTING.

:GET PARAMETERS.
sCLEAR JUNK,
sTEST FOR EIGHT BITS.

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

;CHECK FOR SEVEN BITS.
;BR IF NOT 7 BITS.

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

#300, (R1)
46, (R2)
43
#340,(R1)
#5,(R2.
#PARBIT, (RO)

5%
(R2)

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

*PARITY ENABLED?

YIF

=0;

THEN NO PARITY.

*PLUS ONE TO THE CLOCK!

e
)
D ed

;*ROUTINE USED TO "‘AUTO SIZE'' THE DV
;*(SR AND VECTOR.

e
e

:
s *NOTE

) e
e

d
D b e
D e
D ed e

001740

MP
BNE
CLRB
MOV

001301
001500

175000

007076

001037
022761
001033

177777

000004
000012

2%:

THE

CSR MAY BE ANY WHERE

IN THE

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

FLOATING

IN THE

AUTO.SIZE:
RESET
CSRMAP: MoV
1%:
CLR

001500

=20 000~

md e el d d ed nd
eed D d ed d d )

(RO)+
RO,#TLAST+10
5%

1%:

[

— ad d e
— e md e

MCRLF

28.,(R2)

000400

) e
D e

D e
b )

000400
000010

MOV
MCv
TST

BNE
(MP
BNE

#DV .MAP R?2

(R2)+

#DV.END ,R2

1%
DVNUM
#DV .MAP R2
#175000,R"
#6S ans

(R1)

#177777,12(R1)

MACY

SEQ 0039

#*C<1400>,R3
R3
1
#6400, (R1)

)
)

)

7%:

czov8

(TYPE OUT,ERROR,SCOPE ,ETC.)

MGM
3
#TST1,RETURN
SRETURN

3%:

s INSURE A BUS INIT.
:LOAD MAP POINTER.

;ZERO ENTIRE MAP
JALL DONE?
;ER _IF NO

;SET OCTAL NUMBER OF DV11°'S TO O
;SET FOR FIRST ADDRESS TO BE TESTED
sSET FOR NON-EXISTANT DEVICE TIME OQUT
;IF DV11 DVSCR S/B 0
:IF NO DEV ; TRAP TO 4, if NO BIT 8 THEN NO DV1?
;IF DV11 THEN DVSFR S/B ALL 1°'S ON INIT!
:BR IF NOT DV11

NO
O D O O O YO O O 0000 00 00 00 Qo 00 00 00 Q0 N N~ N NN N NN N
1V,
v
oo\fig\nfihuho—aéiogg~qghngguuu-ac><N»~qo«n:\uuu-ac><fi;*vghng:uuv-AE;<Nn~q0nmJ\uuu-aCMoco\u)

—l—l—l—-l—l—a—l—l—l—a—a—l—l—l—l—l—a_‘—l—l.—l_l—l—l—a—l—l—A_l—l_.—l._.l_l—-l—l—h—d_l—a_d—-l—‘._l—l_h—l_l—l_)_l -l b

P11

19-FEB=-79 13:11

006700
006704

005761
001030

006706

010122

006712

052722

006710

006716
006722
006726

005722

052722
052722
052722

GENERAL UTILITIES

000016
;AT

THIS POINT

BIS

000062
000226
000062

BIS
8IS
BIS

052722
052722
052722
052722
105237
122737

000226
000062
000226
000062
001301
000010

006766

062701

000010

3s:

177777
001300
001301

1008:

006772

001405
022701

001332
012722
105037
105737
001423
113701
110137
000241
106137
105237

007042
007044
007052
007060
007064
007070
007072
007074
007076
007102

001371
012737
113737
000137
104402
005000
000000
000776
072716
000002

007104

012737

000340

007120
007124
007130

012702
012700
012701

001500
000300
000302

007136
007142
007144
007150
007152
007160
007164
007166
007172
007200

012721
022021
020127
101771
113737
006037
103034
005037
012772
005000

007040 005301

007112

007134

012737

010120

001301

175400

006776
007000
007004
007010
007014
007016
007022
007026
007030
007034

001301
001303

48:

001300
001300
000006
001300
007104
005174

000004
¢€01302
5%

6$:

000022

000020

001300
001246
177776
001300

(C01246

000000

28:

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

R1,(RD)+

;STORE CSR IN CORE TABLE.

8226, (R2)+

*SET LINE CARD 1 STAT AND SYNTM

IS ASSUMED THAT R1

(R2)+

CSR ADDRESS.

*POP OVER VECTOR STORE AREA

ADD

#10 R1

;UPDATE CSR POINTER ADDRESS

BNE
MOV
CLRB
TSTB
BEQ
MOVB
MOVB
cLC
ROLB
INCB

2s
#177777,(R2)+
DVACTV
DVNUM
S$
DVNUM,R1
R1,SAVNUM

:BR IF MORE ADDRESS TO CHECK.
:TERMINATER.

DVACTV
DVACTV

:GENERATE ACTIVE REGISTER OF DEVICES.
“SET THE BIT

BNE
MOV
MOVB
JMP
TYPE
CLR
HALT
BR
MOV
RTI

X;
46, G
DVACTV,SAVACT
VE CMAP
,MERR?
RO
=2
#3$, (SP)
.

:BR IF MORE TO GENERATE
*RESTORE TRAP VECTOR
JSAVE ACTIVE REGISTER
*GO FIND THE VECTOR NOW.
SNOTIFY OPR THAT NO DV1i'S FOUND.
‘MAKE DATA LIGHTS ZERO
*STOP THE SHOW
*DISABLE CONT. SW.
SENTERED BY NON-EXISTANT TIME-OUT.
*RETURN TO MAINSTREAM

4340, 3422

:SET IOT TRAP PRIO TO 7

#DV .MAP ,R2
#300,R0
#302.R1

*SET SOF TWARE POINTER
*FLOATING VECTORS START HERE.
:PC OF IOT INSTR.

BEQ

CMP

MOV
MOV
MOV

MOV

MOV
CMP
CMP
BLOS
MOVB
ROR
BCC
CLR
MOV
CLR

#62,(R2) +
8226, (R2)+
#62.(R2) +

HOLDS A DV11

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

MOV

001000

16(R1)
33

100$

#175400,R1

#.S ., 3420
R1, (RO) +

MACY

SEQ 0040

8IS
gls
BIS
BIS
INCB
CMPB

VECMAP: MOV

1%:

000004

CIDVB

(TYPE OUT,ERROR,SCOPE.ETC.)

:
SSET LINE CARD 2 STAT AND SYNC
;
*SET LINE CARD 3 STAT AND SYNC
;
SSET LINE CARD 4 STAT AND SYNC
:
*UPDATE DEVICE COUNTER
©ARE MAX. NO. OF DEV FOUND?

DEC

006766

007234

MOV

000226

006732
006736
006742
006746
006752
006756

006764

ST
BNE

SYES DON'T LOOK FOR ANY MORE.

;WERE ANY DV11'S FOUND AT ALL?
*ERROR AUTO SIZER FOUND NO DV11°'S IN THIS SYS.

;SAVE NUMBER OF DEVICES

*SET 10T TRAP VECTOR

SSTART FILLING VECTOR AREA

#4° (R1)+
SWITH .+2; 10T
(ROY+. (R1)+
SADD 2 TO RO +R1
R1,#1000
1%
:BR IF MORE TO FIIL
DVACTV, TEMP
*STORE TEMPORALLY
TEMP
:BRING OUT A BIT
5¢
*BR IF ALL DONE
PS
*2ERC CPU PRIO
#BIT9+BIT7+BIT6,3(R?)
RO
JATTEMPT TO FORCE AN INTERUPT

C
CZDVBC P11
1199
1200
1201
1202
1203

007202
007204
007206
007214
007222

19-FEB=-79 13:11

005200
001376
052762

000320
176777
000000
000024

000002
000007

007254
007256

000602
000207

GENERAL LTILITIES
INC
BNE
8IS
BI(
CLR

000002
000000

000002

007214
5¢:

ADD
BR
BIS
8IC
CMP
MOV
RT]
RTS

« =

#300,2(Re)
#4(<BIT9>,a(R2)

a(R2)
#26 ,R2

(SP),2(R2)

#7,2(R2)

(SP)+,(SP)+

#3%,(SP)
PC

MACY
cz0v8
SEQ 0041

(TYPE OUT,ERROR,SCOPE,ETC.)
JSTALL
;

FOR

TIME

INTERUPT

;NO INTERUPT ASSUME 300 AND FIX DV11 LATER
;POP SOF TWARE POINTEFK
;KEEP GOING
;GET VECTOR ADCRESS
s CLEAR JUNK
;POP JOT JUNK OFF STACK
;SET FOR RETURN

JALL DONE WITH "‘AUTO SIZING''

D
CZDVBC.P11

19-FEB-79 13:
11

Dv11 DEVICE DIAGNOSTICS.

121
1%12

SRR

1220

}SS;

;

1223
1226
1225
1226
1227
1228
1229
1230
1231
1232

007260
007266
007274
007300
007306
007310
007314
007320
007326
007330

012737
012737
012700
013737
100402
004737
012700
013737
100402
004737

1234

007340

013737

007350
007354

004737
012700

007334

007346

1238

007360

1240
1261
1242
1243
12644
1245
1246
1247
1248
1249

007370
007374
007376
007376
0076400
007404
007406
007412
007414
007420

1239

1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
12664
1265
1266
1267
1268

CORP.

;*TEST THAT '‘TRANSMITTER FLAG WAITING'
:*1S TRUE AND THAT ‘RECV FLAG WAITING'' IS
s*FALSE
AFTER AN INIT.
s*THIS TEST WILL BE DONE FOR BOTH ASYNC AND SYNC LINE CARDS.

1219

1236
1237

DIGITAL EQUIP.

JNRANRANARRARANKERARANRAN TEST ] wannannnnanannanrnnnnvennannnnn

1215
1216
1217
1218

1235

007366

007424
007430
0074364
007440
007442
007444
0076446
007454
007456
007460
007462
007464
0076466
007472
007476
007502
007506
007510
007512

012700
100402

013737
100402

004737
104400

104413
010037
005001
004537
000001
012703
012705
012702
010277
017704
020504
001401
104001
012777
104415
005201
010100
000241
006000
012702
010277
017704
012705
020504
001401
104001

000001
007542
000000
001422

001226
001216

001236

007376
000010
001426

001236

007376
000014
001430

001236

007376

TST?

100%:

1018:

1028:

007412
1%:
65%:
2%:
3%:

000004
000003

002000
171744
171730

050102

001000
171702
171666
000002

171724

MOV
MOV
MOV
MOV
BMI
vSR
Mov
MOV
8MI
JSR

4$:

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

A AN AR NN RN AR RN NN RA S

#1,TSTNO
ATST2 NEXT
#0. ,RO
L00.03,STAT
100$
PC,105%
#4. RO
L04.07,STAT
1018
PC,105%

;PLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
:GO DO THE TEST FOR LINE CARD 1
;PLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FCR LINE CARD 2

LO8.11,STAT

;LOAD LINE CARD STATUS

MOV

#8. .RO

8M]

102$

MoV

:LOAD LINE NUMBER

INTO STAT

;BR IF LINE CARD NOT TO BE TESTED

JSR
MOV
MOV

PC,105%
#12.,R0
L12.15,STAT

;DO THE TEST FOR LINE CARD 3
;LOAD LINE NO.
;LOAD LINE CARD STATUS

JSR
SCOPE

PC,105%

103$

;BR

8MI]

103%:
105%:

023544

AN R R AR AR AR RN

TEST1

001236

007376
000004
001424

LINE

CARD NOT

TO BE

TESTED

;DO THE TESTS FOR LINE CARD 4
;SCOPE THIS TEST.
;TEST ENTRANCE.
;CLEAR ALL DV11 SEC. REGS.
cSTORE LINE NO. POINTER.
;ZERO _MSCANNER POINTER
sPOSITION SCANNER TO LINE NUMBER.
JINITAL LINE NUMBER HERE.
cSET TO DO & LINES AT A TIME
;SET EXPECTED RESULTS IN R5

RAMCLR
MOV
RO,65%
CLR
R1
PERFORM ,SETSCAN
.BLKW 1
MOV
#4,R3
MOV
ABIT1+BITO,RS
MOV
#B1T10,R2
:BR=A 'RX FLAG WAITING'"
MOV
R2.aDVSFR
;LOAD DV11 INSTRUCTION
MoV
aDVLCR, R4
;READ BR TEST POINTS
(MP
R5.R4
;TEST POINTS OK?
BEQ
(%
;BR_IF YES
HLT
1
;EXPECT DVLCR BIT1+BIT0=1
MOV
#S.C+BIT6+BIT1,aDVSFR
ROMCLK
:S/C "ADVANCE SCANNER''
INC
R1
sUPDATE MSCAN POINTER
MoV
R1,RO
;PREPARE TO SET LINE POINTER
CLC
;TO CORRECT POSITION
ROR
RO
:
MOV
#BIT9,R2
;BR=A ''TX FLAG WAITING'"
MOV
R2,aDVSFR
;LOAD DV11 INSTRUCTION
MOV
aDVLCR,Ré
JREAD BR TEST POINT
MOV
#81T1,R5
JSET EXPECTED RESULTS
CMP
R5,R&
sTX FLAG WAITING TRUE?
8EQ
pp
;BR_IF LCR BIT1=1 AND BITO=0
HLT
1
;ERROR.

cZov8

MACY

SEQ 0042

czov8(C.P11
1269

1270
1271
1272
1273
1274
1275
1276

}%;g

007514

007522
007524
007526
007530
007532
007534
007536

007540

19-FEB=-79 13:
11
012777

104415
005201
010100
000241
006000
005303
001330

050102

Dv11 DEVICE DIAGNOSTICS.
171656

5%:

MOV

ROMCLK
INC
MOV
cLc
ROR
DE(
BNE

000207

RTS

1279

DIGITAL EQUIP.

R1
R1,RO

;S/C "'ADVANCE SCANNER''
;UPDATE MSCAN POINTER
JUPDATE LINE POINTER

;

RO
R3
3s

;
JARE ALL & LINES
;BR [F NO!

TESTED?

JCHECK NEXT SET OF LINES.

JNRNNRRARANNRARARNRANNRARAN

1281
1282
1283

J*TEST THAT 'MAT(CH DETECT'' IS
J*FALSE AFTER AN INIT,
s*THIS TEST WILL BE DONE FOR BOTH ASYNC AND SYNC LINE
MR

1285
}Sgg
1288
1289
1290
1291
1292
1293
1294
1295
12

S S SRttt

ittt

A At

it iRl

AN AN

AR AN AN R R AN NN S &

CARDS.

tiditlssssti 2t

TEST 2

007542
007550
007556
007562
007570
007572
007576
007602
007610

1297
1298
1299
1300
1301
1302
1303
1306
1305
1306
1307
1308
1309
1310

007632
007636
007642
007650
007652
007656
007660
007660
007664
007666

1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324

007702
007706
007712
007716
007722
007724
007726
C07730
007734
007736
007740

311
1312
1313

AAAL LA

TEST

007612
007616

007622
007630

007670
007674
007676

012737
012737
012700
013737
100402
004737
012700
013737
100402

004737
012700

013737
100402

004737
012700
013737
100402
004737
104400

010037
104412
005001
004537
000001
012703
012705
012702
010277
017704
020504
001401
104001
004537
000001
005303
001362

000002
007744
000000
001422

007660
000004
001424

007660
000010

001226
001216

T1ST2:

001236

001426

001236

(007660
000014
001430
i
007660

001236

100%:

101%:

102%:

103%:

007674

023544

105%:

1%:
65%:
2%:

000004
090003
076400
171462
171446

3%:
4%

023544

5%:

MOV
MOV
MOV
MOV
BM]
JSR
MOV
MOV
B8M]

#2,TSTNO
HTST3 NEXT
#0. ,R0O
L00.03,STAT
100%
PC,105%
#4. RO
L04.07,STAT
101$%

JSR
MOV
MOV
BM]
JSR
MoV
MOV
BM]
JSR
SCOPE

PC,105%
#8. RO
L08.11,STAT
102%
PC,105%
#12. RO
L12.15,STAT
7038
PC,105%

MOV
MSTCLR
(LR
PERFORM
BLKW 1
MOV
MOV
MOV
MOV
MOV
(MP
BEQ
HLT
PERFORM
1
DE(
BNE

RO,65%
R1

,SETSCAN

sPLACE LINE NUMBER INTO RO
sLOAD LINE CARC STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
;PLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT
:BR IF LINE CARD NOT TO BE TESTED

GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.
;LOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FUR LINE CARD &
;SCOPE THIS TEST,
;TEST ENTRANCE.
JSET LINE POINTER
JRESET THE DVI1°
s ZERO MSCANNER POINTER

JSET MSCAN TO CORRECT LINE
JINITAL LINE POINTER PLACED HERE.
;SET FOR A FOUR LINE GROUP.

#4 R3
#MBIT1+BIT0,RS
sSET EXPECTED RESULTS.
#BRB+B]T11+BIT10+B]T8,R2
RZ,aDVSFR
;BR-B 'MAT(H DET'"?
aDVLCR, R4
JREAD DVLCR INTO R4
RS.R4
JMATCH DET FALSE??
5%
;BR IF YES
1
JLCR BIT1=1+BIT0=1 EXPECTED.
,SETSCAN
sUPDATE MSCAN POINTER TO NEXT LINE.
;1 LINE
R3
sALL FOUR LINES DONE YET?
4%
;JBR IF NO

MACY

SEQ 0043

#S.(+B]T6+B171,aDVSFR

1280

]284

cZbvB

CORP.

19-FEB=-79 13:
1

CZ0vB(.P11

007742

Dv11

000207

DEVICE DIAGNOSTICS.
RTS

JCHECK NEXT

JNRRRRKANRRNARANRAANAARRr

s*TEST

TEST

DIGITAL EQUIP.
SET OF

LINES

annnwannannnnennnnneensenanenrnan

THAT MAINT BIT WINDOW IS CLEARED

;* AFTER AN INIT,
;*THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

)

001236

004737
012700
013737

010062
000004
001424

001236

004737
012700
013737

010062
000010
001426

00123¢

004737
012700
013737

010062
000014
001430

001236

004737

010062

032737

004000

100402

104400

VONO

D
D
D

000003
010152
000000
001422

001226
001216

001236

100%:

101%:

102%:

103%:
1CS$:

b
cd

1%:

000060
000060

SCOPE

BIT
BEQ

2%:

JPLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
sPLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT
:BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2

cLOAD LINE NUMBER

L08.11,STAT
102%
PC,105%
#12.,R0
L12.15,STAT

;LDAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.
sLOAD LINE CARD STATUS

PC.105%

;DC THE TESTS FOR LINE CARD &

103%

JSR

WASYNC,STAT
. +4
PC

;BR IF LINE CARD NOT TO BE TESTED

;SCOPE THIS TEST.
;s TEST ENTRANCE.

;1S THIS A SYNC LINE CARD?
;BR IF SYNC LINE CARD.

SJEXIT TEST
JRESET DV

MOV
MOV

R2
aDVLCR,RS
#BIT7 RS
#4 ,R3
RO,aDVSRS

;ZERO SFR [MAGE
;READ THE DVLCR INTO RS
sCLEAR MAINT BIT WINDOW EXPECTED
;SET TO DO 4 LINES.
:LOAD LINE NUMBER

BIC
BIC

#BIT5+BIT4
RS
HBITS5+BIT4
,RG

;CLEAR EXTENDED ADDRESS BITS
"'

BEQ

RO
R3
1%

JUPDATE LINE POINTER
JALL LINES DONE?
;BR IF NO

Mov

CMpP

cmd e

171244

#8. RO

MOV
BM]
JSR
MOV
MOV

CLR
MOV
BIC

171264
000200

000004
171252

#3,TSTNO
HTST4 NEXT
#0. .RO
L00.03,STAT
100%
PC.105%
#4. RO
L04.07,STAT
101$
PC.105%

MOV

RTS
MSTCLR

NOWNES W=
=200V

D e
) e

) wd
D e
b wmd
d
—

WWNWNWN

1374

MoV
MOV
MOV
MOV
BM]
JSR
MOV
MOV
8M]
JSR

8MI]

)

012737
012737
012700
013737

100492

)

D ed

NV d

WN =OVO

)

=000

e v iviv S 3 9 S 33
LR iviviviviv
AP HANAA

o AN RAR A RAARRARAAN RN RN RRNRRRRARR I AR RARARNRAANEARRNANARANRNAARAAAR

007744
007752
007760
007764
007772
007774
010000
010004
010012
010014
010020
010024
010032
010034
010040

HLT

INC
DEC
BNE

RIS

MACY
(ZDvB
SEQ 0044

(ORP.

aDVLCR,R4

RS.Ré4
1

sREAD DVLCR RESULTS

INTO R4

. 0K?

;BIT7 INCORRECT

JRETURN FOR NEXT

JRRRRANNRAANRARARA
R ANkt ar

TEST

Y«TEST THAT THE BIT WINDOW WILL

SET OF

LINES.

wnnannnnsnnnnnnnstrrrarnesnnrn

*xSTAY C(LEARED WhEN MAINT INTERNAL

R RN

G
C20vB(.P11

19-FEB-79 13:
11

DVv11

s*NOT ASSERETED.

\swgw

283% EREE

b
b rd
d
b
d
D
d
— o

;*MODE IS SELECTED BUT COND.

1381

DEVICE DIAGNOSTICS.

J*THIS

TEST WILL BE

DONE

;

010152
010160

012737
012737
012700
013737

000004
010366
000000
001422

004737
012700
013737

010270
000004
001424

001236

004737
012700
013737

010270
000010
001426

001236

004737
012700
013737

010270
0C0014
001430

001236

004737

010270

032737
001401

004000

100402

100,92

104400

STROBE IS

FOR SYNC LINE

CARDS ONLY.

001226
001216

TEST 4

IST4:

001236

100%:

101%:

102%:

103%:
105%:

MOV

MOV
MOV
MOV
8M]
JSR

MOV
MOV

171030

1%:

000060
000060

81T
8EQ

#ASYNC,STAT
.+
PC

MOV
MOV
8IC
MOV

#31711,aDVLCR
aDVLCR,RS
#BIT7 RS
#4 ,R3

MOV

aDVLCR,R4

MOV

JPLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT
.BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1

cPLACE LINE NUMBER INTO RO
;LOAD | INE CARD STATUS INTO STAT

sBR IF LINE CARD NOT TO BE TESTED
.GO DO THE TEST FOR LINE CARD 2
JLOAD LINE NUMBER
cLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
:LOAD LINE NO.
;LOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD 4
;SCOPE THIS TEST.
. TEST ENTRANCE.
c1S THIS A SYNC LINE CARD?
;BR IF SYNC LINE CARD.
JEXIT TEST
JRESET DV

;ZERO SFR IMAGE

JSET INTERNAL MAINT MODC
JREAD THE DVLCR INTO RS
;CLEAR MAINT BIT WINDOW EXPECTED
JSET TO DO 4 LINES.

RO.,aDVSRS

<LOAD LINE NUMBER

BIC

#MBITS+B]IT4 RS

;CLEAR EXTENDED ADDRESS BITS

CMP

RS5,R4

BIC

2%:

#6. RO
L04.07,STAT

1018
PC.105%
#8. RO
LO8.17,STAT
102%
BC,105%
#12..,R0
L12.15,STAT
1038
PC.105%

CLR

171054

#4,TSTNO

#TSTS NEXT
#0..R0
L00.03,STAT
100%
PC,105%

8M]
JSR
MOV
MOV
8MI
JSR
MOV
MOV
BM]
JSR
SCOPE

RTS
MSTCLR

004000
171050
000200
000004
171036

#BIT5+B]T4 ,R4

8EQ

INC
DEC

RO
R3

HLT

BNE
RTS

<READ DVLCR RESULTS

;*TEST

INTO R4

[

.0K?
;

:BIT7 INCORRECT

1%
PC

;BR IF NO
JRETURN FOR NEXT SET OF

JUPDATE LINE POINTER
cALL LINES DONE~

JVNRRARARNRARARRARARRARAR

1435
1436

CORP.

::tttfitttfi*tt*ttl"ttttt*ttttfittttt'*tttt'ttt.tttttfittflttt'tttt"'

100402

1433

DIGITAL EQUIP.

THAT

JEST

LINES.

aansnvnnsnsnnonenantensnrwnnnnnn

THE BIT WINDOW WILL

;*SET WHEN MAINT INTERNAL MODE IS SELECTED
;*AND COND. STOBE IS ASSERTED.
;*THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

;:tt*l***tttfittitttifitfifi.tt*tttt'ttt"...tfi'.ttltfi'lt'tt"t't.'-I'

MACY
(ZbvB
SEQ 0045

H
(20vB(.P11

1437
1438
1439
1440
1461

1642
1443
16446

1445
1646

1447
1448
1449
1450
1451
16452
1453
1454
1455
145¢
1457
1458
1459
1460
1461
1462
1463

1464
1465
1466
1467
1468
1469
1470
1471
16472
1473
1475
1475
1476
1477

1478
1479

1480
1481

}23%

1484

19-FEB=~79 13:
11

Dv11

;
010366

010374
010402
010406
010414
010416

010422
010426

010634
010436
010442
010646

010454
010456
010462
010466
010476
010476
010502
010504
010504
010512
010514

010516
010520
010522
010530
010534
010540
(€10544
010550
010556
010562
010566
010572
010576
010600

010602
010604

010606
010610

010612

012737

000005

00122€

012737
012700
013737
100402

010614
000000
001422

012700
013737

000004
001424

001236

010504
000010
001426

001236

010504
000014
001430

001236

004737

100402
004737
012700
013737

100402
004737
0127
013737
100402
004737
104400
032737
001401
000207
104412
005002
012777
017705
052705
012703
010077
052777
004737
017704
042705
042704
020504
001401

104001
005200
005303
001355
000207

001216

010504
004000

004000
170634
000200
000004
170622
100000
023462
170602
000060
000060

001236

100$:

101%:

102%:

103$:
105%:

170640

170612

1%:

2%:

1975

DIGITAL EQUIP.

——emeee
MOV
#5,TSTNO

MOV
MOV
MOV
8M]

#TST6,NEXT
#0. ,R0
L00.03,STAT
1008

MOV
MOV

#4. RO
L04.07,STAT

JSR

BM]
JSR
MOV
MOV

PC.105%

;sBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1

101$%
PC,105%
#8..R0
L08.11,STAT

;sBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2
cLOAD LINE NUMBER
;LOAD LINE CARD STATUS INTO STAT

BM]
JSR
MOV

102$
PC,105%
#12. ,R0
L12.15,STAT
103$
PC.105%

BIT
BEQ
RTS
MSTCLR
CLR
MOV
MOV
BIS
Mov
MOV
BIS
JSR
MOV
BIC
BIC
{MP
BEQ

AASYNC,STAT
.4
pc

MOV
BM]
JSR
SCOPE

HLT
INC

DEC
BNE

RTS

JPLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT

R2
#8IT11,aDVLCR
aDVLCR,RS
#BIT7,RS5
#64 ,R3
RO,aDVSRS
#31T15,aDVLCR
PC.CKBIT15
aDVLCR,R4
#BITS+BIT4 RS
#31TS+B1T4
R4
RS.R4
2%

1
RO
R3
1%
PC

sPLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT

;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.

;LOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD ¢
;SCOPE THIS TEST.
JTEST ENTRANCE.
;IS THIS A SYNC LINE CARD?
sBR IF SYNC LINE CARD.
JEXIT TEST
JRESET DV11

.ZERO SFR IMAGE
;SET INTERNAL MAINT MODE
;READ THE DVLCR INTO RS
sSET MAINT BIT WINDOW EXP RESULTS
JSET TO DO 4 LINES.
cLOAD LINE NUMBER
;SET STROBE
;GO WAIT FOR BIT15 TO =0
JREAD DVLCR RESULTS INTO R4
sCLEAR EXTENDED ADDRESS BITS
;'"'

;0K?
H
JBIT7 INCORRECT
sUPDATE LINE POINTER
JALL LINES DONE?
;BR IF NO
JRETURN FOR NEXT SET OF

SNRRRRAARRANRAAAEEAARANNLY

1486
1487
1488
1489

J*TEST THAT THE BIT WINDOW WILL BE CLEARED
;*WHEN MAINT INTERNAL MODE IS SELECTED AND TX DSABLE
c*]S ASSERTED.
s*THIS TEST WILL BE DONE FOR SYNC LINE CARDS NNLY.

1491
1492

TEST

anaaaan v

LINES.

1485

11.90

czov8
MACY
SEQ 0046

(ORP.

TEST S

:
TSTS5:

(001236

010504

DEVICE DIAGNOSTICS.

NEAR AR AR AR A RN RN AR R R RN N AN AT A AR AR AN AR ARNAR A AR AN

RN R A AN RN

v r e ws

EANRNR NP

I
P11

19-FEB=-79 13:
11

Dv11 DEVICE DIAGNOSTICS.
s

010614
010622

b
) wd
)
d
b
d
) oD
D
) e
) e
e
D e

AV
L
[0

010642
010644
010650
010654
010662
010664
010670
010674
010702
010704
010710
10714
010722
0107264
010730
010732
010732
010740
010742
0107446
010746
G10750
010756
010766
010772
010776
011004
011010
011014
011020
011024
011026
011030
011032
011034

032737
001401
000207
104412
005002
012777
017705
042705
012703
010077
052777
004737
017704
042705
042704
020504
(01401
104001
005200
005303

011040

000207

010762

011036

000006
011042
000000
001422

001226
001216

001236

010732
000004
001424

001236

010732
000010
001426

001236

010732
000014
0014630

001236

010732
004000

001236

005000
170406
000200
000004
170374
100000
023462
170354
000060
000060

170412

170364

DIGITAL EQUIP.

(20vB

CORP.

TEST 6

T1ST6:

1008:

1018:

102%:

103%:
105%:

1%:

2%:

001355

MOV
MOV
MOV
MOV
BM]
JSR
MOV
MOV
aM]
JSR
MOV
MOV
BM]
JSR
MOV
MOV
8M]
JSR
SCOPE

#6,TSTNC
#TST7 NEXT
#0..R0
L00.03,STAT
1008
PC,105%
#6. RO
L04.07,STAT
1018
PC,105%
#8..R0
L08.11,STAT
1023
PC,105%
#2. RO
L12.15,STAT
103%
PC,105%

#4 ,R3
RO,aDVSRS
#B1115,aDVLCR
PC,CKBIT15
aDVLCR R4
#B]TS+BIT4 RS
#BITS+BITL
,RG
RS .,R4
’%
1
RO
R3

RTS

BNE

sPLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT

sBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TESY FOR LINE CARD 1
:PLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;G0 DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.
;LOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD &
;SCOPE THIS TEST.
;TEST ENTRANCE.
#ASYNC,STAT
;1S THIS A SYNC LINE CARD?
.4
sBR JF SYNC LINE CARD.
PC
JEXIT TEST
JRESET OV11
R2
;JERO SFR [MAGE
#MIT11+B179,aDVLCR
JSET INTER MAINT MODE FOR SYSTEM TESTING
aDVLCR,RS
JREAD THE DVLCR INTO RS

8IT
BEQ
RTS
MSTCLR
CLR
MOV
MOV
BIC
MOV
MOV
BIS
JSR
MOV
8IC
BIC
CMP
BEQ
HLT
INC
DEC

#BIT7 ,RS

;CLEAR MAINT BIT WINDOW EXPECTED

JSET TO DO & LINES.
;LOAD LINE NUMBER
;SET STROBE
;GO WAIT FOR BIT15 10 =0
JREAD DVLCR RESULTS INTO R4
;CLEAR EXTENDED ADDRESS BITS
;'*'
. 0K?
:
;JBIT7 INCORRECT
JUPDATE LINE POINTER
JALL LINES DONE?

:BR IF NO

JRETURN FOR NEXT SET OF LINFS.

~NO (%, fo

D
ed

S o~

_— e

e ad
VN

) md et e

JNKARRAARRARARANRRARARANNY

S*TEST THAT ‘MAINT DATA'' WILL SHOW

TEST

;*UP IN "MAINT BIT WINDOW''.

c*THIS
IR

011042
011050

012737
012737

000007
011346

001226
001216

TEST WILL BE DONE
R AR A R

A A AN

TEST 7

TSI7:

MOV
MOV

#7,TSTNO
#TST10,NEXT

FOR SYNC LINE

R A AN AR

AN AR R R A

e r kAR s A A

CARDS ONLY.

RN A N R AR

e N

A AR AR AR

MACY

SEQ 0047

)

) e

b e

D eed ad e ed

L L

U’\\‘I\\U\\h\h\h\h\flm\h\.}\\h\h\h\h\h
S
BN DN
NANN
ANINNININIAININI
NN N = = Db
a2 2D
\NNP*CMOGPVB: \Agyuuun 2;“)
VW NG NEB WSOV NN WN=0Y

VL LV IV LV AV AV LV TV LV, IV, IV, IV, (VL LV, RV, |

010630
010634

012737
012737
012700
013737
100402
004737
012700
013737
100402
004737
012700
013737
100402
004737
012700
013737
100402
004737
104400

IR RO NS

R AR AR AT E N AN

J
19-FEB=-79 13:11

P11

012700
013737

000000
001422

001236

004737
012700
013737

011160
000004
001424

001236

004737
012700
013737

011160
000010
001426

001236

004737
012700
013737

011160
000014
001430

004737

011160

032737

004000

_.8 OV\I\I\I&OO‘V‘V’U\J‘WWWN—J—J—'Q
OOONONONONONION

100402

104400

NONNVONSNO

S ST
U SN
G
T QU G

100402

MOV

MOV
8M]
JSR
MOV

102%

#12. RO

001236
JSR
SCOPE

001236

000004
170164
023342

023462

817

8EQ

1%:

040200
040000
023462
170046

)

HNOO FRERY
(el
¥o

e
W
e

b cd
b

R
R

b ——d ——d

100000

L12.75,STAT
1038
PC.105%

CLR
MOV

MOV
PERFORM

001250
170114

BEQ
HLT

2%:

001317
000207

.*4

R2
#4 ,R3
RO.,aDVSRS

L OAD.MODE

170064
170056

SPLALE LINE NUMS=R INTO RO
;-OAD LINE CARD STATUS INTO STAT
JBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
sPLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED
;60 DO THE TEST FOR LINE CARD 2
sLOAD LINE NUMBER
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE

TEST FOR LINE CARD 3

;LOAD LINE NO.
sLOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD &
:SCOPE THIS TEST.
sTEST ENTRANCE.

;1S THIS A SYNC LINE

CARD?

¢BR IF SYNC LINE CARD.

JEXIT TEST

SJRESET DV11
:CLEAR DVSFR [MAGE
;SET TO DC 4 LINES
;LOAD LINE NUMBER
:LOAD THE MODE
s INT MAIT MODE AND TX DSABLE

.READ LSR
:
JCLEAR MAIT BIT WINDOW RESULT
JWAS BIT WINDOW =T0 O

.+
1

;BR IF YES
;8IT7 OF LCR S/BR=0

RS,R4

;BIT14+BIT7=1?

JMAINT DATA DID NOT

BEQ

HLT

BIC
BIC
BIS
JSR

#3IT14+B]1T7
,RS
#IT14,aDVLC(R
#3IT15,aDVLCR
PC,CKBIT15

(MP

RS.R4

MOV

4%:

(ORP.

#10. ,TEMP?
JSET FOR 10 BITS
MIT16+81T7
,RS ;SET MAINT DATA AND MAINT BIT WINDOW
#IT15+81T14,aDVLCR
PC,CKBIT1S
;STROBE MAINT DATA. WAIT BIT15=0
aDVL(R R4
JREAD THE LCR

TMMP

3%:

DIGITAL EQUIP.

MOV
BIS
BIS
JSR
MOV

8EQ

001250

#ASYN(C,STATY

BIT11+8:179
MOV
aDVL(R,RS
MOV
RS R4
BI(
#MIT7 RS
CMP
RS R4

170104

end amd

L04.07,STAT

PC,105%

RTS

140000

1008
PC.105$%
#4. RO

L08.11,STAT

MSTCLR

00001¢
0460200

—

L00.03,STAT

#8. R0

0C0200

OCOOCOHOOO0O0O

1018

170150

DEVICE DIAGNOSTICS.

U
I S

D wad

D ad

Guur G

b —d
)
D —d
e
b ad e

Gunr-Guuar Guur Guar Guur Pan-GussrGunr Guutr G

b wad v
)

Qur QaurQhus G
o

—ded wd

[AV], 01, Yo RN DR S

Gouur Purd

100402

SOOOOOOOOOOOOOOOOOOOOO

DVl

HLT

DEC

BNE
INC
DE(
BNE
RTS

aDVLC(R R4
43

JYES

SHOW UP

;CLEAR DATA AND WINDOW
;CLEAR MAIT DATA
;SET STROBE ON DV11
JWAIT 15=0

;READ DVL(R
JWINDOW =0?
;BR

YES

;BIT7 S/R=0

2%
RO
R3
1%
P(C

;BR IF NO
JUPDATE LINE PCINTER
;4 LINE GROUP DONE?
;JBR IF NO
JRETURN FOR NEXT GROUP

TEMP?2

;10 RBITS DONE?

IN WINDOW

czDbv8

MACY

SEQ 0048

K
CZDVBI.P1

19-FEB-79 13:11

DV11

DEVICE DIAGNOSTICS.

1605

4
COPYRIGHT 1975

1606

JRennrRnndnvannktantnnnnn

1607
1608
1609
1610

s*TEST
;*THRU
s*ONLY
;*THIS

1611

1612

}g}z

1613
1616
1617
1618
1619
1620
1621
1622
1623
16c4
1625
1626
1627
1628
1629

011410
011412
011416
011422
011430
011436
011444
011446
011452

1634
1635
1636
1637
1638
1639
1640

011502
011506
017512
011520
011526
011534
011536

1630
1631
1632
1633

011346
011354
011362
011366
011374
011402

011456
011464
011472
011500

1641
1642

011542
011544

1644

011552

1643

1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660

011544

011554
011556
011562
011564
011566
011572
011574
011600
011602
011610
011612
011614
011620
011624
011626
011632

012727
012737
012700
113737
013737
013737

100402
004737
012700
113737
013737
013737
100402
004737
012700

113737
013737
013737
100492

000010
012242
000000
001416
001406
001422

001242
001244
001236

011544
000004
001417
001410
001424

001242
001244
001236

011544
000010

001420
001412
001426

004737
012700
113737
013737
013737
100402
004737

011544
000014
001421
001414
001430

032737

004000

104400

001401

000207
010037
104412
005001
004537
000001
012703
005005
012777
104415
005201
010077

004537
004000
004537
0312777

001226
001216

001242
001244
001236

011544

001236

000004
050102

167570

TST10:

100%:

1018:

1028:

103%:
105%:

1%:
65¢%:
2%:
3%:

167552

023342
023634
001000

167540

7%:

(ORP.

woesnnnnvnnnovnsonnnnnrnnrennnsn

TO XMIT A BINARY COUNT PATTERN
THE USE OF THE BlTM WINDOW.
ONE LINE AT A TIME WILL BE EXERCISED.
TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

N R AN AR AN R RN AN AR AN AN R A AR S R AR AR RN P RARANNAN AR ARNANRRANRN A RN RN AR R

TEST 10

011572

023544

TEST

DIGITAL FQUIP.

MOV
MOV
MOV
MOVB
MOV
MOV

BM!
JSR
MoV
MovB
MoV
MOV
BM]
JSR
MoV

mMovs
MoV
MOV
8M]
JSR
MoV
MOovB
MOV
MOv
EM]
JSR

#10,TSTNO
ATST11 NEXT
#0. RO
CLK.A,CLKX
MASK .A ,MASKX
L00.03,STAT

1008
PC,105¢%
#4. RO
(LK.B,CLKX
MASK.B,MASKX
L04.07,STAT
101%
PC,105%
#8. RO

CLK.C,CLKX
MASK. C ,MASKX
LO8.11,STAT
1028
PC,105%
#12. RO
CLK.D,CLKX
MASK. D ,MASKX
L12.15,STAT
103%
PC,105%

;PLACE LINE NUMBER INTO RO
;PLACE ''SHIFTS/PER/CHAR'' IN CLKX
;PLACE ‘MASK'FOR CHARS INTO MASKX
sLOAD LINE CARD STATUS INTO STAT

sBR IF LINE CARD NOT TO BE TESTED
26O DO THE TEST FOR LINE CARD 1
sPLACE LINE NUMBER INTO RO
;PLACE ‘'SHIFTS/PER/CHAR'® IN CLKX
JGET MASK
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2
sLOAD LINE NUMBER

;GET SHIFTS PER CHAR
;GET MASK
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED

;DO THE TEST FOR LINE CARD 3
;LOAD LINE NO.
JGET SHIFTS
;GET MASK
;LOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD 4
SCOPE
;SCOPE THIS TEST.
cTEST ENTRANCE.
BIT
WHASYNC,STAT
;1S THIS A SYNC LINE CARD?
BEQ
. +4
;BR IF SYNC LINE CARD.
RTS
PC
JEXIT TEST
MoV
RO,65%
JSET LINE NO. POINTER
MSTCLR
;CLEAR DV
CLR
R1
;ZERO MSCANNER POINTER
PERFORM ,SETSCAN
JADJUST SCANNER FOR PROPER L INE
.BLKW 1
;LINE NUMBER POINTER.
MOV
#4 ,R3
;SET FOR & LINES EXERCISED
CLR
RS
;SET DATA POINTER TO 0
MOV
#S.C+BIT6+BIT1,aDVSFR
ROMCLK
;CLOCK SCANNER BY ONE
INC
R1
;ADD +1 TO SCANNER POINTER
MOV
RO,aDVSRS
;LCAD LINE NUMBER
PERFORM ,LOAD.MODE
;LOAD MODE
BITN
PERFORM ,CLR.TMARK
;CLEAP TMARK BIT.
MOV
#BIT9,aDVSFR
;DO A BR A" TEST FOR TX FLAG

(ZD0vB

MACY

SEQ 0049

L
P11

011640
011642
011650
011652
011654
011660
011664
011672
011674
011702

19-FEB-79 13:11

005005
032777
001401
104000
005077
010577
012777
104415
012777
104415

011704
011706
011714
011722
011724

104416
012777
032777
001001
104000

011734

113702

011726

012737

011740
011744
011750
011752
011756
011760
011764
011766
011772
012000
012002
012004
012010
012016
012020
012026
012030
012034
012042
012044
012046
012050
012052
012060

005037
010077
104416
004537
005302
022702
001030
005077
032777
001001
005205
010577
012777
104415
012777
104415
010077
032777
001001
005305
005702
001337
022737
001420

012062
012070

022737
001414

DV11

000001

167520

167512
167512
020000

167506

030260

167476

001000
0000017

167464
167446

011734

001220

001242

023676
167422

5%:

023252
000001

167400
001000

167202

167366
020000

167362

030260

167352

167336
001000

167140
8%:

000010

001242

000011

001242

DEVICE DIAGNOSTICS.

4
COPYRIGHT

1975

DIGITAL EQU'P.

czov8e

(ORP.

(LR
BIT
BEQ
HLT
CLR
MOV
MOV
ROMCLK
MOV
ROMCLK

SET EAPECTED DATA TO 0O
;IF TLAG TRUE?
:BR [F YES
;TX FLAG NO TRUE (LOW(LPR0O-0))
aDVSRS
cZERO LINE TO LINE O
R5,aDVSRA
;LOAD DATA INTO DVSRA
#31T13,3aDVSFR
;EXECUTE A 'ROM READ'' INTSTR
. CLOCK.
#XFR+BIT7+BITS5+BIT4 ,aDVSFR
;DO A DATA XFER FROM KAM QUTPUT

RS
#81T0,aDVLCR
.+

MOV

#4%,10CK

DATACLK
MOV
#3119 ,3DVSFR
BIT
#81T0,aDVLCR
BNE
.+
HLT

sISSUE A MAINT CLK.
;D0 A "BR A'' TEST FOR TX FLAG
;1S FLAG FALSE?
;BR IF YES
sTX FLAG NOf FALSE (HIGH(LPRO=12)

MOVR

;SET REQUIRED SHIFTS

CLKX,R2

;SET IF SW09=1

TO TX BUFFER

GOTO 4$

(LR
DATA
sCLEAR STUFFER LOCATION
MOV
RO,aDVSRS
sLOAD LINE NUMBER
DATACLK
s ISSUE MAINT (LK
PERFORM ,TXSHIFT
JWORK THE TRANSMITTER
DEC
R
JALL SHIFTS DONE?
cMP
#1,R2
;1S THE BUFFER ALMOST EMPTY?
BNE
8%
;BR IF NO
CLR
aDVSRS
;ZERO LINE NUMBER
BIT
#BIT9,3SWR
;LOCK ON DATA?
BNE
. +4
JBR IF YES!!
INC
RS
;UPDATE DATA.
MoV
RS,aDVSRA
;LOAD DATA INTO DVSRA
MOV
#BI1T13,aDVSFR
;DO A ROM READ
ROMCLK
. (LK
MOV
AXFR+BIT7+BITS5+BIT4 ,aDVSFR
ROMCLK
;DO A
DATA XFER TO TX BUFF
MOV
RO,aDVSRS
JRESELECT LINE NUMBER
8IT
#B1T9,aSWR
;LOCK ON DATA?
BNE
.t
;BR IF YES!!
DEC
RS
;READJUST DATA (CHAR.
TST
R2
JALL SHIFTS DONE?
BNE
5%
;BR IF NO
cMP
#8.,CLKX
;1S LINE CARD SET TO 8 BITS?
8EQ
158
BRIF 7S

.':Qttttttttt'tt'tt.tttttt'ttitit!t.ttfll RANRRARAANRNRAANRANNANANANRR

cMP
8EQ

#9.,C0LKX
15%

;8 BITS WITH PARITY ENABLED?
;IF YES, BR

CLKX, TEMP]

AN NS

VNVV\IN\‘%‘
(e YV F NV 1,0

—

".'ttQ.Qtttttttttttfittt't'ltttt!it'.i'tt!'t.ttt'tfifi..tt.i.tt'ttt.ttt

012072
012100
012102
012106
012112
012120
012122
012122
012126
612132
012134

013737
000241
006037
005237
022737
001367
013704
043704
020504
001401

001242
023676
001246
000010
023676
001244

001246

16%:

001246
15%:

MOV
CLC
ROR
INC
MP
INE

DATA
TEMP1
#8., TEMPI
16%

;SAVE NUMBER OF SHIFTS DONE.
;CLEAR CARRY
JRIGHT JUSTIFY TX RESULTS.
sALL DONE?
2?
;BR [F NO

MOv
81C
(MP
BEQ

DATA R4
MASKX R4
R5,R4
. *4

;READ IMAGE CHAR FROM TX
JSTRIP PARITY [F IT EXISTS.
JARE DATA (HARS THE SAME?
;BR [F GOOD DATA FROM TX

MACY

SEQ 0050

soveC

cZovBeC.P1

012136

19-FEB-79 13:
1

DVv11

104003

HLT
SCOP1

001244
023622

24
25

DEVICE DIAGNOSTICS.

:TX DATA COMPARE ERROR
;LOCK ON DATA?
JUPDATE DATA (HAR.
;BR IF 8BIT CODE DONE.
;1F <BBIT SEE IF ALL DONE.
:BR IF NOT ALL DONE

INCB
8tQ
8178

RS
6%
MASKX RS

PERFORM

,SET, TMARK

BEQ

J*VERIFY

DIGITAL EQUIP.

CORP,

.SET TMARK BIT
THAT SETTING TMARK BIT PUTS LINE AT MARK.

113702

010077
104416

005302
001375
012702
104416

032777
001001

001242

MovB

167202

9%:

000024
000200

167156

104000

012240

005302
001370
004537
000001
005303
001402
0C0137
000207

10%:

MOV

RO,aDVSRS

CLKX,R2

sSET COUNTER

DEC(
BNE
MOV

R2
9%
#20. ,R2

sFLUSH LAST (HARACTER.
s CHAR FLUSHED?
;LOOK AT 20. BITS.

BIT

#BI1T7,aDVLCR

;BIT WINDOW

HLT

DATACLK

BNE
11%:

023544

DEC
BNE

PERFORM

DEC
BEQ

011626

12¢%:

JMP
RTS

sSET LINE
s CLOCK

JMAINT (LK

118

;SET

Rc
108

SALL BITS LOOKED AT?
:BP IF NO

,SETSCAN

JADVANCE

s IF NO CONTINUE
sGET NEXT GROUP OF

JNNRNNANNRRIANANRR
AR nt

CHECK

;*THIS

TEST WILL

TO NEXT

L INE

JALL LINES(4) DONE?
;BR IF YES

’$
PC

SCANNER

(MARK)

sONE LINE ADVANCE

R3
12%

J*TEST

(MARK)

;TA BIT WINDOW NOT SET

TEST

THE

IDLE

CHARACTER

DONE

FOR SYNC

4 LINES.

snnnnnnnnnnnnnnetnnnnnntennnnn

;*FOR EACH LINE OF THE TRANSMITTER.
;*THIS TEST USES '‘SYNCA''.

LINE

CARDS ONLY.

b b
b
b
b
b

—

737

—
b —
b
—

012242
012250

WWWWPrINON

,':!'..ttttt't*tt.fi.tit.'tfitittttt..fi'tttt.ttl.'l‘ttttt'tt.ttt.tfi'.

000011
012766
000000
001416
001406
001422

001226
001216
001242
001244
001236

012440
000004
001417
001410
001424

001242
001244
001236

012440
000010
001420
00141¢
001426

001242
001244
001236

MOV

#11,TSTNO

MOVB
MOV
MCV

CLK.A,CLKX
MASK . A, MASKX
L00.03,STAT

;PLACE LINE NUMBER INTO RO
JPLACE ''SHIFTS/PER/CHAR'' [N CLKX
;PLACE 'MASK'FOR CHARS INTO MASKX
;LOAD LINE CARD STATUS INTO STAT

MOV
MOvB
MOV

#4. RO
(LK.B,CLKX
MASK .B,MASKX

JPLACE LINE NUMBER INTO RO
JPLACE ''SHIFTS/PER/CHAR'® IN CLKX
;GET MASK

MOV
MOV

100%:

101$:

8M]
JSR

MOV
BM]
JSR
Mov

MOvVB

MOV
MOv

H#TST12 ,NEXT
#0. RO

100$
PC,105%

L04.07,STAT
101$
PC,105%
#8. RO

(LK.C,CLKX

MASK. ( ,MASKX
108.11,STAT

;BR IF LINE CARD NOT TO BE TESTED
:GO DO THE TEST FOR LINE CARD 1

;LOAD LINE CARD STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
sGET SHIFTS PER (HAR
;GET MASK
JLOAD LINE

CARD STATUS

[NTO SIAT

MACY
(Z0v8B
SEQ 0051

N
CZovB(.P11

1773
1774
1775
1776
1777
1778
1779
1780
1781

1782
1783
1784

1785

1786
1787
1788

1789

b
b
d
b
b md
b
-t

012430
012432
012436
012440
012440

012446
012450
012452
012456
012460
012462
012466
012470
012474
0126476
012504
012506
012510
012514
012520
012524
012526
012532
012540
012542
012550
012552
012554
012562
012566
012579
012572
012574
012600
012606
012612

100402

0046737
012730
113737
013737
013737

000014
001421
0014614
001430

004737

072440

032737

004000

100402

104400

DV11 DEVICE DIAGNOSTICS.

012440
001242
001244
001236

001236

102%:

MOV

103%:
105%:

000004
166674

38
6%:

023634
023342
166644

920000
030260

C12606
001242

012644
012652

022737
001414

000011

012654
012662
012664

013737
000241
006037

001242
023¢76

:BR IF LINE CARD NOT TO BE

BIT
BEQ

#ASYNC ,STAT
. +4

SIS
‘BR

MOV

RO, 65%

*LOAD LINE NO.

(LR
R1
PERFORM , SETSCAN
.BLKW 1

MOY

CLR

¥4 R3

THIS A SYNC LINE CARD?
IF SYNC LINE CARD.

YEXIT

TEST

‘RESET THE DVi1

POINTER

:JERO MSCANNER POINTER
*SET MSCANNER TO LINES TESTED
SINITAL LINE VALUE

SSET

*2ERO

TO DO 4

LINE

*UPDATE MSCANNER POINTER
*LOAD LINE NUMBER INTO DVi1l

*CLR TMARK BIT.
*LOAD THE MODE

CLR

*7ERO DATA FOR XFR

#IT13,3DVSFR

001220

DEC
BNE
CMP

BEQ

:DO A RAM READ INSTR.

NXFR+BIT7+BITS+RIT4.@DVSFR

MOVB
CLKX,R2
DATACLK
DEC
R2
BNE
=4
MOVB
STAT.RS

DATACLK
PERFORM

“INT MAINT MODE

;

DATACLK
MOV
#4$ .1 0CK

MOV
MOVB
CLR
MOV

GROUP

:SET/CLEAR ''ADVANCE MSCANNER''

PERFORM ,CLR. TMARK
PERFORM . OAD.MODE

ROMCLK

001242

STEST ENTRANCE.

R1
RO, aDVSRS

aDVSRA

TESTED

“DO THE TESTS FOR LINE CARD 4
*SCOPE THIS TFST.

INC
MOV

ROMCLK

5¢%:

SLOAD LINE CARD STATUS

#S.C+BIT6+BITT,aDVSFR

MOV

A ¥

“GET SRIFTS
:GET MASK

MOV

023252
000010

1038

166630

001250

022737
001420

:LOAD LINE NO.

PC.1058

BIT11
166645

#15. RO

MACY
CIDVB
SEQ 0052

CORP.

;BR IF LINE CARD NOT TO BE TESTED
DO THE TEST FOR LINE CARD 3

JSR
SCOPE

ROMCLK

166656

102%
PC,105$

DIGITAL EQUIP.

CLK.D,CLKX
MASK.D,MASKX
L12.15.STAT

MSTC'.R
1%:
65%:

MOVB
MOV
MOV

RTS

023544

050102

BM]
JSR

BM]

012466

012616
012622
012624

—l;d

Co 0o 0o o Yo To-Te Yo Yo Jo To Jo.]
PNONY
— —b d b b b b b b
—Ov O NOWVS
WAL -=O

b —d

1808

012374
012376
012402
012406
012414
012422

19-FEB=-79 13:
1

;:DATA XFR

TXBUFFER RAM OUTPUT

“ISSUE MAIT cLOCK POLSE
*SET FOR SCOP1

*NUMBER OF CLOCK PULSES NEEDED
*MAINT CLOCK PULSE
:ALL CLOCKS DONE?
*NO , DO MORE
*GET SYNC (IDLE) CHAR.

#5,TEMP2
CLKX,R2
DATA
RO,aDVSRS

*SET FOR S CHARS
SGET CLOCKS NEEDED
*ZERO STORAGE AREA
*LOAD LINE NUMBER

,TXSHIFT

:ISSUE MAINT CLK PULSE
SCLOCK THE TRANSMITTER

R2
5¢
#8.,CLKX

158

*MORE SHIFTS REQUIRED?
‘BR IF YES
*1S LINE CARD SET TO 8 BITS?

‘BR IF YES

".'tlttttt'ttitl'lItttttttt't'tttttlt*tfitfittttitiifikttttfittttt‘itttttt

001242

cMP
BEQ

#9.,CLKX
15$

:8 BITS WITH PARIVY ENABLED?
“IF YES BR

CLKX, TEMP

:SAVE NUMBER OF
*CLEAR CARRY

;:!tttttttttttttt'i.ttttttttfitttttifitttttttttlfiit"ttttttfitt't'ttt't't

001246

16%:

MOV
cLC

ROR

DATA

SRIGHT

JUSTIFY

SHIFTS DONE.
TX RESULTS.

sieeC

B
19-FEB=-79 13:11

(ZbvB( P11

1829
1830
1831

1832
1833
1834
1835
1836
1837
1838

1839

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

012670
012674
012702

012704
012704
012710
012714
012720
012724
012730
012732
012734
012736
012742
012744
012746
012752
012756
012760

012762
012764

005237
022737
001367

001246
000010

013704

023676
001244

143704

042705
143705
042704
020504
001401

104003

001246
15%:

001244

004537
004537
000001
005303
001252
000207

023622
023544

DIGITAL ECUIP.

TEMP1
#8.,TEMPI
16$

:ALL DONE?
2
‘BR IF NO

MOV
BICB

DATA,R4
MASKX,Ré4

:SAVE DATA SHIFTED OUT OF
*CLEAR UNWANTED BI1S.

BICB

MASKX,RS

*CLEAR UNUSED BITS

CMP
BEQ

RS.R4
.+

#~C<377>.RS

PERFORM

, SET. TMARK

SSET

DEC
BNE

R3
6%

TEMP2
4$

TMARK BIT

*UPDATE SCANNER TO NEXT LINE

SAIL LINES DONE
‘BR If NO

SEXIT

JRRNERRARKRRARAANRNARNRAAR

;*TEST TO CHECK THE

;*FOR EACH LINE

CHAR NOT WHAT EXPECTED.

‘ALL IDLE CHARS DONE?
‘BR IF NO
SLOCK (SW09=1)?

fienronn SETSCAN

RTS

TX.

*EXPECTED = FOUND 2?
‘BR IF OK

SIDLE

FOR NEXT GROUP OF

TEST

120

LINES.

aannan e et aaaanteannanettnannnnnn

IDLE (HARACTER

THE

TRANSMITTER.

J*THIS TEST USES ''SYN(CB''.

1856

J*THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.
. TRA

012737
012737
012700
113737

013737
013737
013737
100402

004737
012700

\hbnb&gflflv-flsa
[o Y =1,V
o

b
b
el ed end
)
— el

ey Piur
Guur
GG
ur Qe

W W NN NN

leloleleleleolole

113737

000012
013542
000000
001416
001406
001432
001422

013214
000004
001417

001226
001216
001242
001244
001240
001236

013737
013737
013737

001424

001242
001244
001240
001236

012700
113737
013737
013737
013737

013214
000010
001420
001412
001436
001426

001242
001244
001240
001236

004737
012700

013214
000014

100402

001410
001434

100¢%:

#12,TSTNO
HTST13, NEXT
#0. RO
CLK.A,CLKX
MASK.A ,MASKX
SYNC2A, SYNCX
L00.03,STAT
1008
PC,105
#4. RO

MOV
MOV

MASK.B,MASKX
SYNC2B, SYNCX

;GET MASK
;

BMI
JSR
MOV

101%
PC,105%
#8. .RO

;BR IF LINE CARD NOT TO BE TESTED
GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER

MOV

MASK . C ,MASKX

;GET MASK

MOV

L08.11,STAT

:LOAD LINE CARD STATUS INTO STAT

mMovse

MOVB

MOV

102%:

AR AR AN RN AN R RN AR ARNAANAAARRAARAR

MOV
MOV
MOV
MOVB
MOV
MOV
MOV
8MI
JSR
MOV

MOV

101$%:

A A AR AR AR AR A AR AR RN AR

8M]
JSR

MOV

CLK.B,CLKX

L04.07,STAT

CLK.C,CLKX

SYNC2C, SYNCX

102%
PC,105%

#12..R0

.
sPLACE LINE NUMBER INTO RO
;PLACE ''SHIFTS/PER/CHAR''
IN CLKX
;PLACE 'MASK'FOR CHARS INTO MASKX
;
;LOAD LINE CARD STATUS INTO STAT

;BR IF
2GO DO
JPLACE
;PLACE

LINE CARD NOT TO BE TESTED
THE TEST FOR LINE CARC 1
LINE NUMBER INTO RO
'‘SHIFTS/PER/CHAR'' IN CLKX

;LOAD LINE CARD STATUS

;GET

INTO STAT

SHIFTS PER (CHAR

;

;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3

*LOAD LINE NO.

MACY

SEQ 0053

:CLEAR SIGN EXTEND.

DEC
BNE
SCOP1

cZ0v8

CURP.

:CLEAR SICN EXTEND.

#°C<377> R4

HLT

1853
1854
1855

1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
187¢
1873
1874
1875
1876

INC
(MP
BNE

BIC

177400

001250

DEVICE DIAGNOSTICS.

BIC

177400

005337
001321
104401

DV11

c
P11

013154
013162
013170
013176
013204
013206
013212
013214
013214
013222
013224
013226
013232
013234
013236

3RIR3R &

QU
S
U
QU
S
QS
U
U
S
QU QU
G
QN W
T
G
N
—_— B

OO NOOO
OO NelelleNololol
ol e lNolVe Vo)
NN NINIALINININD N = b md b b d b —d =3 )
NN = OVONO
oo~ AN
NS WN—=O

1902

013242
013244
013250
013252
013260
013262
013264
013270
013274
013300
013302
013306
013314
013316

013324
013326
013330

013336
013342
013344

013346
013350

Sgomoggose
W
~ocn~ugfln§3uuv Eg
O

— md d ok b and wnd b - -

113737

013737
013737
013737
100402

001421
001414
001440
001430

004737
104400

013214

032737

004000

001401
000207
010037
104412
005001
004537
000001
012703
005005
012777
104415

005201
010077
004537
004537
006000
005077
012777
104415
012777
104415
104416
012737
113702
104416
005302

001375
113705

012737

Dv11

001242
001244
001240
001236

001236

105%:

1%:

000004
16612C

166102

023634
023342
166070

BM]
JSR
SCOPE

1038
PC,105%

BIT
BEQ

#ASYNC,STAT
.+

MOV

RO,65%

SYNC2D,SYNCX
L12.15,STAT

CLR
R1
PERFORM ,SETSCAN

65%:
2%:
3

.BLKW 1
MOV
#4 ,R3
CLR
RS

6%:

INC
MOV

MOV
ROMCLK

166064

030260

166054

013362
001242

001220

4%:

5%:

022737
001420

000G10

001242

022737
001414

000011

001242

013737

001242

001246

022737

023676
001246
000010

:
JLOAD LINE CARD STATUS

;BR IF LINE CARD NOT TO BE TESTED
:DO THE TESTS FOR LINE CARD 4
:SCOPE TKIS TEST.

:TEST ENTRANCE.

;IS THIS A SYNC LINE CARD?
;BR IF SYNC LINE CARD.
(EXIT

TEST

JRESET

THE

;ZERO

R1
RO, aDVSRS

;UPDATE MSCANNER POINTER
;LOAD LINE NUMBER INTO DV11

:CLR TMARK BIT.
;LOAD THE MODE

;INT MAINT MODE AND SECOND SYNC

aDVSRA
#81T13,3DVSFR

MOV
MOVB

#4S,L0CK
CLKX,R2

DEC
BNE
MOVB

R2
~4
SYNCX,RS

;ALL CLOCKS DONE?
;NO , DO MORE
JGET SYNC (IDLE CHAR).

CLKX,R2
DATA

:GET CLOCKS NEEDED
:ZERO STORAGE AREA

MOV

Mov8
CLR

;ZERO DATA FOR XFR
;DO A RAM READ INSTR.
;
#XFR+BIT7+BITS5+B]IT4,aDVSFR
;DATA XFR
TXBUFFER_RAM OUTPUT

;ISSUE MAIT CLOCK PULSE

:SET FOR SCOP1
;NUMBER OF CLOLK PULSES NEEDED
JMAINT CLOCK PULSE

#5S,TEMP?

:SET FOR S CHARS

MOV
RO,aDVSRS
DATACLK

;LOAD LINE NUMBER
;ISSUE MAINT CLK PULSE

DEC
BNE
CMP
BEQ

:MORE SHIFTS REQUIRED?
:BR IF YES
;IS LINE CARD SET TO 8 BITS?
;BR IF YES

PERFORM

,TXSHIFT

CMP
BEQ

;CLOCK

R2
5%
#8.,CLKX
15%

A N AN N AN A RN AR

#9.,CLKX
158

001246

MoV
CLC
ROR

INC
MP

THE

TRANSMITTER

RN R R RAAR AR R AR AN

AR NN

P AR A ARN R AR RN R AR AARN AR AR NARR

CLKX, TEMP1

;SAVE NUMBER OF
;CLEAR CARRY

DATA

JRIGHT JUSTIFY

TEMP1
#8..TEMPI

RN R R NN

;8 BITS WITH PARITY ENABLED?
;IF YES BR

SRR R AR R RN AR A AN RN A A AN A AR RN AN R AARRARR

013450

POINTER

#S.C+BIT6+BIT1,aDVSFR
;SET/CLEAR '‘ADVANCE MSCANNER''

RN R R A AR A A A AN AT AN

16%:

pv11

JALL DONE?
2?2

SHIFTS DONE.
TX RESULTS.

MACY

SEQ 0054

GET SHIFTS
;GET MASK

CLR
MOV
ROMCLK
MOV
ROMCLK

DATACLK

cZ0vB8

CORP.

;ZERO MSCANNER POINTER
:;SET MSCANNER TO LINES TESTED
JINITAL LINE VALUE
;SET TO DO 4 LINE GROUP

PERFCRM , CLR. TMARK
PERFORM ,LOAD.MODE

DATACLK

001250

DIGITAL EQUIP.

;LOAD LINE NO.

BIT114BIT10

020000

001240
000005
001242
023676
165774

CLK.D,CLKX
MASK . D ,MASKX

MSTCLR

023544

MOVB
MOV

RTS

013242

050102

DEVICE DIAGNOSTICS.

MOV
MOV

103%:

023252

1929

1940

19-FEB-79 13:
1

Jo4+(
R

D
P11

013456

19-FEB=-79 13:11

DV11

001367
013704
143704

15%:

023676
001244

BNE
MOV

023622
023544

DATA,R4

;SAVE DATA SHIFTED OUT OF

#~C<377> RS

:CLEAR SIGN EXTEND.

BICB

MASKX,RS

CMP

RS,R4

BEQ
HLT
DEC
BNE
SCOP1

DIGITAL EQUIP.

;BR IF NO

MASKX,Ré4

BIC

16%

BICB

BIC

177400
001244
177400

001250

013526
013532
013534
013536
013540

DEVICE DIAGNOSTICS.

#AC<377> R4

. +4
3
TEMP2
4%

SCLEAR UNWANTED BITS.

:CLEAR SIGN EXTEND.

SEXPECTED = FOUND 2?

:BR IF OK
SIDLE CHAR NOT WHAT EXPECTED.
*ALL IDLE CHARS DONE?
:BR IF NO
SLOCK (SW09=1)?

,SET. TMARK

DEC

SALL LINES DONE

RTS

SEXIT

BNE

“SET

TMARK BIT

:UPDATE
:BR

SRKRNKRANAARARRRNERRRAAAR

;*THIS

TX.

*CLEAR UNUSED BITS

PERFORM

7ERFORM SETSCAN

CORP.

IF NO

FOR NEXT

TEST

TEST CHECKS ‘RECEIVE

SCANNER TO NEXT LINE

GROUP OF

a A e

LINES.

AR A AR AR AR AR

RN AR AR R RN

CHAR SILO'' TO BE

J*ALL ZERO'S WHEN 'DATA ENABLE'' IS NOT SET.
s*EXPECTED DATA SHOULD BE LINE NUMBER ONLY

;*DATA 0'S AND ERROR FLAGS 0.
;*THIS TEST WILL BE DONE FOR BOTH ASYNC AND SYNC LINE
. TARRA AT AR RN AN AN AR AT AR AR RARNR AN RN RN

013542
013550
013556
013562

012737
012737
012700
013737

000013
014050
000000
001422

004737
012700

013660
000004
001424

100402

MOV

#13,TSTNO

001236

MOV

L00.03,STAT

JPLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT

001236

JSR
MOV
MOV

PC,105%
#44. RO
L04.07,STAT

:GO DO THE TEST FOR LINE CARD 1
JPLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT

JSR
MoV
MOV
8M]
JSR
MOV
MOV

PC,105%
#8. RO
L08.11,STAT
102%
PC,105%
#12.,R0
L12.15,STAT

26O DO THE TEST FOR LINE CARD ¢
;LOAD LINE NUMBER
;LOAD LINE CARD STATUS INTO STAT
¢BR IF LINC CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
2L.OAD LINE NO.
;LOAD LINE CARD STATUS

001236

013660
000014
001430

001236

013790
000004
004537

001226
001216

013660
000010
001426

013660

023544

CARDS.

RAR R AN NRANRARANRAARRNRRARANNRRS N

Mov
MOV

B8M]

8MI]

B8MI]

JSR

SCOPE

MOV
MOV
MSTCLR
CLR

HTST14 NEXT
#0. R0

1008

101%

103%
PC.,105%
RO,65%
#4 R3
R1

PERFORM ,SETSCAN

;BR IF LINE CARD NOT TO BE TESTED

sBR IF LINE CARD NOT TO BE TESTED

;BR IF LINE CARD NOT TO BE TESTED

;DO THE TESTS FOR LINE CARD 4

:SCOPE

THIS TEST.

JADJUST

SCANNER

sTEST ENTRANCE.
sSTURE LINE NO. POINTER
;SET FOR 4 LINE GROUP
JRESET DV11
;ZERO MSCANNER POINTER

MACY
(Z0v8
SEQ 0055

E
cZovBC.P11
1997
1998
1999

2000
2001
2002
2003

013700
013702
013704
013706
013710
013710
013716
013720
013722
013730
013736
013740
013742
013744
013746
013754
013760
013762
013766
013770
013772
013774

014000
014002
014010
014012
014020
014026
014030
014032
014034
014036
014042
014044
014046

19~FEB-79 13:
11

DV11

DEVICE DIAGNOSTICS.

65%:

012777
104415
005002
012777
032777
001403
005202
001372
104000
012777
017702

050021

165462

001400
000001

165450
165432

017704
020504
001401

3%:

4%:

.BLKW 1
MOV

5
COPYRIGHT 1975

RO,RS

DIGITAL EQUIP.

.TO CORRECT LINE NO.
JPLACE LINE NUMBER INTO RS
JPLACE LINE NO. IN HIGH BYTE
;CLEAR LOW BYTE OF EXPECTED

SWAB
CLRB

RS
RS

MOV
?EQCLK

#S.C+BIT4+BITO,aDVSFR
R2
;SET/CLEAR SILO IN

MOV

#81T9+BIT8,aDVSFR

BEQ
INC

5%
R2

BIT

#81T70,aDVLCR

:'RECV CHAR WAITING TRUE'
:BR IF YES
;DELAY IF NOT READY

BNE
HLT
MOV
MOV

43
;END OF DELAY?
0
:"RECV CHAR WAITING'' NOT
H#XFR+BIT7+BIT6+BIT2+BIT1,aDVSFR
aDVSFR,R2
;XFR RICR_SILO ouT

165400

MOV

aDVRIC,R4

;READ RIC

062705
005002
012777

000400

BEQ
HLT
ADD

.+
1
#400,RS

:
:
;UPDATE LINE NO.

050020

165370

#S.C+BIT4,aDVSFR

012777
032777
001003
005202

001400
000001

165360

MOV
ROMCLK
MOV

104415

104001

104415

030306

165420

165424

5%:

ROMCLK
CMP

165342

CLR

104000

013700

;DATA/XFER

TRUE

RICR_SILO ouT

;EXPECTED OK”

:SFR IMAGE

(POINTER)

;S/C ''SET SILO ouT*’
#BIT9+B]T8,aDVSFR

6%:

BIT

#81T70,aDVLCR
7%
RS
8$

sFALSE?
:DELAY WAITING....
;DELAY DONE?

7%:

INC
DEC

€5%
R3

sUPDATE MSCANNER POINTER(LINE)
;GROUP OF & LINES DONE.

RTS

SEXIT

001372

005237
005303
001311
000207

R5,R4

CORP.

BNE
INC
Efig

BNE

J"RECV (HAR WAITING''

JBR

SRRRRRRRRRAAANAAAAAARARANSY

TEST

YES

FOR NEXT GROUP OF

714

LINES

s ennattarasnrescnprenannaennr

;*THIS TEST CHECKS ‘RECEIVER CHAR SILO''

;*WHEN "DATA ENABLE IS SET'' EXPECTED DATA S/B
s*ALL 1'S FOR RX DATA, LINE NIUMBER CORRECT,
;*AND ERROR FLAGS =0.
;*THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

.':*t'*flittl'tttkt't.fil‘*tititttl‘kfifit*ttttt'tt‘tttttttttttt't'i'.'tt

014050
014056
014064
014070
014076
014100
014104
014110
014116

012737
012737
012700
013737

000014
014402
000000
001422

004737
012700
013737

014166
000004
001424

100402

001226
001216

1ST14:

001236

MOV

MOV
MOV
MOV

B8MI

100%:

JSR

MOV
MOV

BMI

#14,TSTNO

#TST15 NEXT
#0. RO
L00.03,STAT

1008

PC,105%

#4. RO
L04.07,STAT

101$

JPLACE LINt NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT

;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE

TEST FOR LINE CARD 1

JPLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT

;BR IF LINE CARD NOT

TO BE

TESTED

(Z0v8

MACY

SEQ 0056

1G~FEB=-79 13:11

014120
014124
014130
014136
014140
014144
014150
014156
014160
014164
014166
0164166
014174
014176
014200
014204
014210
014212
014214
014220
014222
014224
8}25%3

032737
001401
000207
010037
012703
104412
005001
004537
000001
010005
000305
052705

014232
014240
014242
014250
014252
014254
014262
016270
014272
014274
014276

012777
104415
012777
104415
005002
012777
032777
001403
005202
001372
104000

016312
014314
014320
014322
014324
014326
014332
014334
014342
014344
014352
014360
014362
014364
014366
014370
0143746
014376
014400

104415
017704
020504
001401
104001
062705
005002
012777
104415
012777
032777
001003
005202
001372
104000
005237
005303
001304
002207

014300
014306

004737
012700
013737
100402
004737
012700
013737
100402
004737
104400

012777
017702

DV11

0146166
000010
001426

001236

0146166
000014
001430

001236

014166
004000

001236

014220
000004

102%:

103%:
105%:

1$:

023544

65%:

000377

050023

165140

050021

165130

001400
000001

165100

030306
165066

1018:

165116

165072

4$:

S$:

165046

000400
050020

165036

001400
000001

165026
165010

014220

6$%:

7%:

DEVICE DIAGNOSTICS.

DIGITAL EQUIP.

JSR
MOV
MOV
BM]
JSR
MOV
MOV
8MI
JSR
SCOPE

PC,105%
#8. RO
L08.11,STAT
102%
PC,105%
#12.,R0
L12.15,STAT
103%
PC.105%

BIT
BEQ
RTS
MOV
MoV
MSTCLR
CLR
PERFORM
.BLKW 1
MOV
SWAB
BIS

H#ASYNC,STAT
. +4
PC
RO,65%
#4,R3

RO,R5
RS
#377 .RS

MoV
ROMCLK
Mov
ROMCLK
CLR

#S.C+BIT4+BIT1+BIT0,aDVSFR
;S/C ''SET RECV DATA ENABLF'’
#S.C+B1T4+BITO,aD/SFR
;SET/CLEAR SILO IN
R2
;

BIT
BEQ

#81T70,aDVLCR
S$

MOV

INC
BNE
HLT
MOV
MOV
ROMCLK
MOV
CMP
BEQ
HLT
ADD
CLR
MOV
ROMCLK
MOV

BIT
BNE
INC
SNE
HLT
INC
DEC
BNE

RTS

R1
,SETSCAN

CORP.

:GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3 ;LOAD LINE NO.
;LOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD 4
:SCOPE THIS TEST.
sTEST ENTRAMCE.
;1S THIS A SYNC LINE CARD?
JBR IF SYNC LINE CARD.
JEXIT TEST
sSTORE LINE NO. POINTER
;SET FOR & LINE GROUP
JRESET DV11
s ZERO MSCANNER POINTER
;ADJUST SCANNER
.70 CORRECT LINE NO.
sPLACE LINE NUMBER INTO RS
sPLACE LINE NO. IN HIGH BYTE
;SET LOW BYTE TO ALL 1°'S

#BIT9+R1T8,aDVSFR

:"RECV CHAR WAITING TRUE''
;BR IF YES
R2
;DELAY IF NOT READY
4%
;END OF DELAY?
0
;" RECV CHAR WAITING'® NOT TRUE
AXFR+BIT7+BIT6+BIT2+BIT1,a8DVSFR
aDVSFR,R2
;XFR RICR_SILO OUT
;DATA/XFER RICR_SILO OuT
aDVRIC,R4
;READ RIC
RS,R4
JEXPECTED OK?
.+
:
1
:
#400,R5
JUPDATE LINE NO. (POINTER)
R2
;SFR IMAGE
#S.C+BIT4 ,aDVSFR
;S/C "'SET SILO ouT"
#B]1T19+8178,aDVSFR

#B1T0,aDVLCR
7%
R
6%
0
65%
R3
1%
PC

J'RECV CHAR WAITING''
JFALSE?
;DELAY WAITING....
;DELAY DONE?
;
JUPDATE MSCANNER POINTER(LINE)
;GROUP OF & LINES DONE.
JBR IF YES
JEXIT FOR NEXT GROUP OF

L INES

MACY
cz0v8
SEQ 0057

\NNFJCMOGPVOWAPWNNP*C£3

D od
D ek
b ed

PNONDMNIN)
= b e D

NN AL NN NN

bt o

N
SNOVWN SN

— ad =~
=D

ViAW

[AS1aSTAN
1,0 1N, ¥)

19-FEB~79 13:
1

DV11 DEVICE DIAGNOSTICS.

D e ed b o

NI NN

CZDVBC.P11

2158

5
COPYRIGHT 1975

sennnnnrnnnnnnkntrnnnantt

J*TEST

THAT

;*THIS

TEST WILL BE

TEST

EACH RECEIVER WILL

DIGITAI

cZovB

(ORP.

FOR SYNC

wwnnn/wnsannnnnrnnnrnannnnnnnn

LINE

CARDS ON.Y.

":t"fi'."tfitfiQt'ilfifiti.ttt‘ttfitfififittt'ttiQ..Qtt'tttt‘ttt"fit.".'
’

014402
014410
014416
014422
014430
014436
014440
014444
014450
014456
014464
014466
014472
014476
014504
014512

014514
014520
014524
014532
014540
014542
014546
014550
014550
014556
014560
014562
014566
014572
014574
014576
014602
014604
014610
014614
014616
014624
014626
014632

014634
014642

014646
014650
014654

012737
012737
012700
113737

013737
100402

004737
012700
113737

013737
100402

004737
012700
113737

013737

000015
014700
000000
001416
001422
014550
000004
001417
001424
014550
000010
001420
001426

100402
004737
012790
113737
013737

014550
000014
001421
001430

004737

014550

100402

104400

032737
001401
000207
012703
010037
104412
005001

004000

001226
001216

001242

102%:

MOV
8MI

L00.03,STAT
1008

sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED

JSR

023676

023402
164536

PC,105%

#4. RO

MOV

L04.07,STAT

MOVB

8MI
JSR
MOV
MOVRB
MOV
8M]
JSR

MOV
MovB
MoV

C(LK.B,CLKX

101$
PC,105%
48. RO
CLK.C,CLKX
L08.11,STAT
102%
PC,105%

#12. ,RO
CLK.D,CLKX
L12.15,STAT

JPLACE ''SHIFTS/PER/CHAR''
IN CLKX
;GO DO THE TEST FOR LINE CARD 1

sPLACE LINE NUMBER INTO RO

JPLACE ‘''SHIFTS/PER/CHAR''
IN CLKX
;LOAD LINE

CARD STATUS

INTO STAT

;BR IF LINE CARD NOT TO BF TESTED
;GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
sGET SHIFTS PER (HAR
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3

;LOAD LINE NO.
sGET SHIFTS
;LOAD LINE CARD STATUS

103%
PC,105%

;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD &

BIT

H#ASYNC,STAT

;TEST ENTRANCE.
;1S THIS A SYNC LINE CARD?

RTS

SEXIT

BEQ

65%:
3%

CLK.A, CLKX

MOV

8M]
JSR

1%:

164562
023342

000001
000002

101%:

001236

023544

076400
164522

JPLACE LINE NUMBER INTO RO

SCOPE

000004
014602

001236

100%:

001236

001242
001236

#15,TSTNO
#TST16,NEXT
#0. RO

MOvVB

001242
001236

MoV
MOV
MOV

MOV
MOV

#4 ,R3
RO,65%

CLR

MSTCLR

PERFORM

,SETSCAN

B KW 1
MOV
RO,aDVSRS
PERFORM ,LOAD.MODE

;SCOPE

;BR IF

THIS

TEST.

SYNC LINE

TEST

sSET LINE NO.
JRESET DV

CARD.

POINTER

;ZERO MSCANNER POINTER

sSET MSCANNER TO CORRECT LINE.
sLOAD LINE NO.
;LOAD THE MODE

BIT13+BIT11+BIT9
MOvVB
STAT,DATA

sRECV ENABLE,
INT MAINT,TX DSABLE
JGET “'SYNC'' CHAR.

PERFORM _RXSHIFT

;SHIFT

DATACLK

CLKX
MOV
MOV
MOV

BIS
BIC

;PRIME DV11

DATA

INTO RECEIVER

:NO. OF SHIFTS GIVEN
#BRB+BIT*1+BIT10+BIT8,aDVSFR
aDVLCR,R4
;BRB "MAT(CH DET"’
R4 RS
;

#B1T0,RS
#BIT1,RS

;
;

MACY

SEQ 0058

SET

;%' MATCH DETECT'' WHEN THE F]RST SYNC
s *CHARACTER IS PUMPED INTO IT.
DONE

EQUIP.

(Z0VvB(.P11
2165
2166
2167
2168
2169
2170
%};}

014660
014662
014664
014666
014672
014674
0164676

19-FEB~79 13:
1M
020504
00160
1046000
005237
005303
001336
000207

Dv11 DEVICE DJAGNOSTICS.

014602

cMP
BEQ
HLT
INC
DEC
BNE
RTS

2173

R5.R4
4%
1
65%
R3
1%
PC

DIGITAL EQUIP.

JMATCH DET TRUE??
;BR IF YES
.
JUPDATE TO NEXT LINE.
;4 LINE GROUP DONE?
;JBR IF NO
;OBTAIN NEXT &4 LINE GROUP

2174

JNERRARRNNRAARANNNRREANAN

2175
2176

'TEST TO VERIFY THAT ]F THE DV11 RECEIVER
;*1S SET FOR ONE SYNC CHAR;

TEST

wanaanennnnnneanannnttnnansnne

2177

;*'MATCH DET'' «AND* ''CHAR FLAG" ARE

2180
2181
2182
2183
2184

~IF THE DV11 RECEIVER IS SET FOR
;*TWO SYNC CHARS.
:'VERIFY THAT 'MATCH DET'' SETS ON THE FIRST SYNC
;*AND VERIFY THAT 'MATCH DET'' =AND+* '‘CHAR FLAG''
J*%ARE SET ON THE SECOND SYNC.

2187

2178
2179

*SET AFTER ONE SYNC IS PUSHED INTC THE RECEIVER
HOWE VER. .

2185
2186

J*THIS TEST USES ''SYNC A''.
J*THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

2188
S}gg

2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204

;

014700
014706
014714
014720
014726
014734
014736
014742
014746
014754
014762
014764
014770
014774

012737
012737
012700
113737
013737
100402
004737
012700
113737
013737
100402
004737
012700
113737

2205
2206
2207
2208
2209

015002
015010
015012
015016
015022

013737
100402
004737
012700
113737

2211
2212

015036
015040

100402
004737

2210
2213

015030
015044

013737
104400

000016
015334
000000
001416
001422

015046
000010
001420

001242

015046
0C0014
001421

001242

001426

001430

032737
001401

004000

2218

015060

012703

000004

2219
2220

015064

015070

000207
010037
104472

015100

TST16:

100%:

101%:

(01236

102%:

001236

015046

MOV
MOV
MOV
MovB
MOV
BM!
JSR
MOV
MOvVB
MOV
8M]
JSR
MOV
MOVB

105%:

MOV
BM]
JSR
MOV
MOVR

L08.11,STAT
102%
PC,105%
#e. RO
CLK.D,CLKX

B8M]
JSR

103$%
PC,105%

;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD 4

SCOPE

L12.15.STAT

BIT
BEQ

#ASYNC,STAT
+4

MOV

#6 ,R3

RTS

1%:

#16,TSTNO
#TST17 NEXT
#0. RO
CLK.A,CLKX
L00.03,STAT
100%
PC,105%
#4. .RO
CLK.B,CLKX
L04.07,STAT
1018
PC,105%
#8..RO
CLK.C,CLKX

JPLACE LINE NUMBER INTO RO
JPLACE ''SHIFTS/PER/CHAR'' IN CLKX
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
JPLACE LINE NUMBER INTO RO
JPLACE '"'SHIFTS/PER/CHAR'' IN CLKX
sLOAD LINE CARD STATUS INTO STAi
;BR IF LINE CARD NOT TO BE TESTED
.GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
;GET SHIFTS PER (CHAR
;LOAD LINE CARD STATUS INTO STAT
;sBR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.
JGET SHIFTS

MOV
103%:

001236

R AR R AR R AR AT R R R A AR R AN N AN N ANN NN AN R RANRNNANNRN RN RN NN RN ARSI NRNNAN

TEST 16

001242
001236

015046
015046
015054

015056

001226
001216

015046
000004
001417
001424

2214
2215
2216

2217

CORP.

MOov

MSTCLR

RO.65%

;LOAD LINE CARD STATUS
;SCOPE THIS TEST.

JTEST ENTRANCE.
;IS THIS A SYNC LINE CARD?
JBR IF SYNC LINE CARD.

JEXIT TEST

JSET FOR & LINES

JPLACE LINE NO. POINTER
JINIT DV

czpv8

MACY

SEQ 005Y

I
CZDbvB(C.P11
2221
2222
2223
2226
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
22640
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
225
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274

19-FEB-79 13:
1

015072
015074
015100
015102
015106
015112
015114
015122
015124
015130
015132

005001
004537
000001
010077
004537
025000
113737
104416
004537
001242
012777

015140
015144
015146
015152
015156
015160
015162
015164
015172
015776
015200
015206
015210
015214
015216
015230
015234
015236

017704
010405
052705
042705
020504
001401
104001
012777
017704
010405
032737
001436
052705
020504
001401
104001
113737
004537
001242
012777

015244
015250
015252
015256
015262
015264
015266
015270
015276
015302
015304
015310
015314
015316
015320
015322
015326
015330
015332

017704
010405
052705
042705
020504
001401
104001
012777
017704
010405
052705
042705
020504
001401
104001
005237
005303
001257
000207

015220
015222

DV11 DEVICE DIAGNOSTICS.

023544

65%:
3%:

164264
023342

001236

023676

023402

076400

164240

164224
000001
000002

002000
164172

164206

010000

001236

000003

001236
(023402

023676

076400

164134

164120
000001
000002

.
002000
164066
000002
000001

015100

164102
4%:

DIGITAL EQUIP. CORP.

(LR
R1
. JERO MSCANNER POINTER
PERFORM ,SETSCAN
JSET SCANNER TO LINE DESIRED
BLKW 1
s INITIAL LINE NUMBER.
MOV
RO,aDVSRS
;LOAD LINE NUMBER
PERFORM ,LOAD.MODE
;LOAD
BiT13+BIT11+BIT9
;MODE AND RX ENABLEAND TX DSABLE
MOVB
STAT ,DATA
sPLACE SYNC CHAR [N DATA
CATACLK
JINIT DATA (CLOCK.
PERFORM ,RXSHIFT
JSHIFT DATA INTO RX
(LKX
;NUMBER OF SHIFTS NEEDED
MOV
#BERB+B]T11+BIT10+8]T8,aDVSFR
JSET BR ‘B'' AND MAT(CH DET.
MOV
aDVLCR,R4
;SAVE LPR IN R4
MOV
R4 RS
JSET FOR COMPARE
BIS
#81T0,RS5
JBR A"’ FALSE
BIC
#BIT1,RS
;BR 'B'' TRUE
CMP
RS R4
BEQ
e
JBR IF LPR OK.
HLT
1
JEXPECT B TRUE; A FALSE
MOV
#BIT10,aDVSFR
;SET BR '‘A’" AND RX CHAR FLAG.
MOV
aDVLCR,R4
;SAVE LPR IN R4
MOV
R4 RS
;SET FOR COMPARE
BIT
#TWOSYN,STAT
JSET FOR ONE SYNC OR TwO?
BNE
4%
;BR IF SET FOR ONE SYNC
BIS
MIT1+BIT0,RS
(MP
R5,R4
PEQ
L +h
HLT
1
MCVB
STAT ,DATA
PERFORM ,RXSHIFT
CLKX
MOV
#BRB+BIT11+BIT10+BIT8,aDVSFR
;SET BR 'B’* AND MATCH DET.
MOV
aDVLCR,R4
:SAVE LPR IN R4
MOV
R4 RS
;SET FOR COMPARE
BIS
#I1T0,RS
JBR "A'" FALSE
BIC
#BI1T1,RS
;BR 'B'' TRUE
CMP
R5 R4
BEQ
R
;BR IF LPR OK.
HLT
1
JEXPECT B TRUE; A FALSE
MOV
#81710,aDVSFR
JSET BR "'A"' AND RX CHAR FLAG.
MOV
aDVLCR,R4
;SAVE LPR IN R4
MOV
R4 ,RS
;SET FOR COMPARE
BIS
#BIT1,RS
8IC
#81T0,R5
CMP
RS ,Ré
BEQ
A
HLT
1
INC
65%
JUPDATE LINE NUMBEK
DEC
R3
BNE
1%
RTS
PC

2275

JRasannnannnnannnewnannninr

2276

J*TEST TO VERIFY THAT

TEST

wawnnnannnanantnnns ansnnnsnnny

THE DV11 RECEIVER

c2bvB

MACY

SEQ 0060

J
P11

19-FEB~79 13:11

DV DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

DIGITAL EQUIP.

czove

CORP.

;*]S SET FOR ONE SYNC (HAR;
:*'MATCH DET'* ~AND* ''CHAR FLAG'' ARE
'SET AFTER ONE

'IF

THE DV11

;*TWO SYNC

SYNC

IS PUSHED INTO THE RECEIVER

HOWE VER. .

RECEIVER IS SET FOR

CHARS.

I«VERIFY THAT "MATCH DET'* SETS ON THE FIRST SYNC
J*AND VERIFY THAT 'MAT(H DET'' «AND* '‘CHAR FLAG''

;*ARE SET ON THE SECOND SYNC.
;*THIS TEST USES ''SYNC B''.

;*THIS

. IAARA AR

—

d cmd e

wud wd

015334
015342
015350
015354
015362
015370
015376
015400
015404
015410
015416
015424
015432
015434
015440
015444
015452
015460
015460
015470
015474
015500
015506
015514
015522

012737
012737
012700
113737
013737
013737

000017
016020
000000
001416
001432
001422

004737
012700
113737
013737
013737

015532
000004
001417
001434
001424

001242
001240
001236

015532
000010
001420
001436
001426

001242
001240
001236

100402

015532
000014
001421
001440
001430

001226
001216
001242
001240
001236

001242
001240
001236

015532

032737
001401
000207
012703
010037
104412

005001
004537
000001
010077
004537
027000
013737

004000

001236

SYNC2A, SYNCX

1%:

023544

65%:
3%:

163600

023342

023676

CLK.A, CLKX

L0O0.03,STAT
100%

RN AN AR

JPLACE ''SHIFTS/PER/CHAR''
IN (CLKX

;LOAD | INE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;G0 DO THE TEST FOR LINE CARD 1

JSR
MOV
MOvB
MOV

PC,105%
#4. RO

(LK.B,CLKX
SYNC2B, SYNCX

;PLACE LINE NUMBER INTO RO
sPLACE ''SHIFTS/PER/CHAR''
IN CLKX
:

BM]
JSR
MOV

101%
PC,105%
48..RO

;BR IF LINE CARD NOT TO BE TESTED
26O DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER

MOV
MOV
BM]
JSR
MOV

SYNC2C,SYNCX
L08.11,STAT
102%
PC,105%
#12..R0

:
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED

MoV
MOV

SYNC2D, SYNCX
L12.15,STAT

H
;LOAD LINE

MOVB

103%:
105%:

#17,TSTNO
#TST20 NEXT

MOV

102%:

CARDS ONLY.

sPLACE LINE MUMBER INTO RO

MOV
B8MI

101%:

FOR SYNC LINE

AT RN RNAANRAANNRN AN AN P AANRNRARANRANRARARNRNAN

#40. RO

MOVB

100¢%:

AR AR AR AR

MOV

MOVB

BM]
JSR

SCOPE

L04.07,STAT
CLK.C,CLKX

CLK.D,CLKX

103%
PC,105%

;LOAD LINE CARD STATUS INTO STAT

;GET SHIFTS PER (CHAR

;DO THE TEST FOR LINE CARD 3
;LOAD LINE NO.
cGET

SHIFTS

CARD STATUS

;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD &
;SCOPE

THIS

TEST.

;TEST ENTRANCE.

BIT
BEQ

HASYNC, STAT
+4

s1S
;BR

MOV

#4 ,R3

JSET FOR 4 LINES

RTS

000004
015564

001240

MoV
MOV

TEST WILL BE DONE

MOV

R0.658

MSTCLR
(LR
R1
PERFORM ,SETSCAN

.BLKW 1
MoV

PERFORM

RO,aDVSRS

,LOAD.MODE

BIT13+BIT11+BIT10+BIT9
Mov

SYNCX,DATA

THIS A SYNC LINE CARD?
IF SYNC LINE CARD.

SJEXIT TEST

;PLACE LINE NO. POINTER

JINIT DV11
;ZERO MSCANNER POINTER
sSET SCANNER TO LINE DESIRED

JINITIAL LINE NUMBER.
;LOAD LINE NUMBER

sLOAD

;MODE, RX ENABL, Tx DSARL, SYNC?2
:PLACE

SYNC 2 IN

DATA

MACY

SEQ 0061

K
cZdvBC.P11

2333
2334
2335
2336
2337
2338
2339

2340
23641
2342
2343
c344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379

19-FEB-79 13:11

015606
015610
015614
015616

104416
004537
001242
012777

015624
015630
015632
015636
015642
015644
015646
015650
015656
015662
015664
015672
015674
015700
015702
015704
015706
015714
015720
015722

017704
010405
052705
042705
020504
001401
104001
012777
0177046
010405
032737
001036
052705
020504
001401
104001
013737
004537
001242
012777

015730
015734
015736
015742
015746
015750
015752
015754
015762
015766
015770
015774
016000
016002
016004
016006
016012
016014
016016

017704
010405
052705
042705
020504
001401
104001
012777
017704
010405
052705
042705
020504
001401
104001
005237
005303
001257
000207

Dv11

163554

163540
000001
000002

163522

010000

001236

000003

0012460
023402

023676

076400

163450

163434

000001
000002

000002
000001

015564

1975

DIGITAL EQUiP.

(ORP.

BIS
BIC

002000
163506

002000
163402

DATA"LK
JINIT DATA (CLOCK.
PERFOKA _RXSHIFT
sSHIFT DATA INTQ RX
CLKX
JNUMBER OF SHIFTS NEEDED
MOV
#BRB+BIT11+BIT10+8]T8,aDVSFR
;SET BR 'B'' aND MAT(H DET.
MoV
aDVLCR, R4
;SAVE LPR IN R4
MOV
R4 RS
;SET FOR (OMPARE

023402
076400

DEVICE DIAGNOSTICS.

163416
4%:

#B1T0,RS
;BR ''A'" FALSE
#81T1,RS
;BR 'B'" TRUE
(MP
RS,R4
8EQ
.+
;BR IF LPR OK.
HLT
1
JEXPECT B TRUE; A FALSE
MOV
#BIT10,aDVSFR
;SET BR "'A"* AND RX CHAR FLAG.
MOV
aDVLCR,R4
sSAVE LPR IN R4
MOV
R4 RS
;SET FOR (OMPARE
BIT
NTWOSYN,STAT
;SET FOR ONE SYNC OR TWO?
BNE
4%
;BR IF SET FOR ONE SYNC
BIS
#BI1T1+8ITO,R5
CMP
R5,R4
BEQ
. +4
HLT
1
MOV
SYNCX,DATA
PERFORM ,RXSHIFT
CLKX
MoV
#BRB+BIT11+BIT10+8]
T8 ,’0VSFR
;SET BR 'B’'* AND MAT(H DET.
MOV
aDVLCR, R4
JSAVE LPR [N R4
MOV
R4 RS
;SET FOR COMPARE
BIS
#8]1T0,RS
sBR ‘A" FALSE
81C
#81T1,RS
;BR 'B'" TRUE
CMP
RS,R4
BEQ
. +4
;B8R IF LPR OK.
HLT
1
JEXPECT B TRUE, A FALSE
MoV
#BIT10,aDVSFR
;SET BR "A"* AND RX CHAR FLAG.
MCv
aDVLCR,R4
;SAVE LPR IN R4
MoV
R4 RS
;SET FOR COMPARE
BIS
#81T1,RS
BIC
#B8170,R5
CMP
R5,R4
BEQ
.+
HLT
1
INC
65%
JUPDATE LINE NUMBER
DEC
R3
BNE
1%
RTS
PC

2380

JNRRARRARRANT
RN RAaennr

2381
2382
2383
2384
2385
2386
2387

;*TEST TO FORCE RECEIVER OVERRUN,
s*THIS TEST WILL PUSH INTO THE RECEIVER
J*TWO FULL CHARS (SYNCS) AND ONE MORE (HAR MINUS
;*ONE BIT. THE PROGRAM WILL VERIFY NO OVERRUN EX]STS
s*THEN THE LAST BITS WILL BE PUSHED IN VERIFING
¢*THAT THE OVERRUN WAS GENERATED.
s*THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

2388

TEST

wnnnsnnannsnennnnsrnanntannnnnnns

;:tttfittttttttttttttt!ttttttttttttttttttt-ttt-ntttt-'tt'nttttt-tt-

czovB8

MACY

SEQ 0062

P11

19-FEB=-79 13:
11

DV11 DEVICE DIAGNOSTICS.

5
COPYRIGHT 1975

DIGITAL EQUIP.

(ORP.

TEST 20

016020
016026
016034
016040
016046
016054
016062
016064
016070
016074
016102
016110
016116
016120
01614
016130
016136
016144
016152
016154
016160
016164
016172
016200
016206
016210
016214
016216
016216
016224
016226
016230
016234
016240
01€242
016244
016250
016252
016256
016264

016350
016352

012737
012737
012700
113737
013737
013737

000020
016652
000000
001416
001406
001422

001226
001216

#20,TSTNO
NTST21 NEXT

001242
001244
001236

CLK.A,CLKX
MASK
. A ,MASKX

016216
000004
001417
001410
001424

001242
001244
001236

016216
000010
001420
001412
001426

001242
001244
001236

016216
000014
001421
001414
001430

001242
001244
001236

L00.03,STAT

100%:

1008
PC,105%
#4. RO
(LK.B,CLKX
MASK
.8, MASKX

L04.07,STAT

101%:

1018
PC,105%

CLK.C,CLKX
MASK
. C ,MASKX

LO8.11,STAT

102%:

102%
PC,105%
#12. RO
CLK.D,CLKX

MASK.
D ,MASKX

L12.15,STAT

16216
004000

sLOAD LINE CARD STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED
2GO DO THE TEST FOR LINE CARD 1
JPLACE LINE NUMBER NTO RO

;PLACE ''SHIFTS/PER/CHAR''
IN CLKX
:GET MASK
;LOAD L INE CARD STATUS INTO STAT

;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2
cLOAD LINE NUMBER
sGET SHIFTS PER (HAR
;GET MASK
;LOAD LINE CARD STATUS INTO STAT
JBR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.
JGET SHIFTS
;GET MASK
sLOAD LINE CARD STATUS
sBR IF LINE CARD NOT TO BE TESTED
TESTS FOR LINE CARD &

;SCOPE THIS TEST.

001236

NASYNC,STAT

#4 .R3
1%:

023544

023462
001236

JPLACE 'MASK'FOR CHARS INTO MASKX

;DO THE

000004
016250

163114
125000

sPLACE LINE NUMBER INTO RO

JPLACE ''SHIFTS/PER/CHAR'' IN CLKX

163104

023676

65%:
3%:

,SETSCAN

sTEST ENTRANCE.

;1S THIS A SYNC LINE CARD?
;BR IF SYNC LINE CARD.
SJEXIT TEST
sSET FOR & LINE GROUP
:SET LINE POINTER
JRESET DV11
;JERO MSCANNER POINTER
sADJUST MSCANNER

cLINE POINTER
:LOAD LINE NUMBER
#BJT15+BIT13+BIT11+BIT9,aDVLCR
PC,CKBIT1S
RO,aDVSRS

STAT ,DATA

JGET SYNC (CHAR
JINIT DV11 BY ONE CLOCK
JGET NUMBER OF SHIFTS PER (HAR,
;CLOCK RX
JNUMBER OF SHIFTS
;GET ANOTHER SYNC

001242
0234072

016650

CLKX,10%

001236
023402

023676

STAT ,DATA

001236

023676
016650

STAT,DATA

#1,108

163020

#S.(+B]T4L+B] T1+8]170,aDVSFR

000001
023402
050023

RXSHIFT

LRXSHIFT

JRXSHIFT

JSHIFT RX

;NUMBER OF SHIFTS
:SYN{ (CHAR
JSET NUMBER OF SHIFTS =1
JSHIFT RX
JSHIFTS

MACY
cz20v8
0063
SEQ

mS
PN

016360
016362
016370
016372
016400
016404
016410
016414
016420
016422
016426
016430
016434
016436
016440
016442
016446
016454
016460
016462
016464
016470
016472
016474
016502
016506
016510
016516
016520
016526
016534

016536
016540
016542

19-FEB-79 13:
1

104415

DVv11

012777

050021

163010

012777
032777
001374
012702
010277

001400
000001

163000
162762

017704

162740

104415

DEVICE DIAGNOSTICS.
ROMCLK

MOV

(%:

030306

ROM{LK
MOV

8IT
BNE

MOV

162760

020000

‘BR IF

R2.,3DVSFR

JXFR RIC_SILO our

aDVRIC,R4
R4 ,RS

JREAD DVRIC REG
:

]

001373
012737
004537
016650
012777
104415

012777
032777
001374
010005
000305
153705

,SILO.0UT

66%:

CLC

YES

#XFR+BIT7+BIT6+BIT2+BIT1,R2

STAT ,DATA
CLKX,R4
Ré

*DATA/XFER

RICR_SILO our

;OVERRUN??

:BR IF NO

;JOVFRRUN OCCURED TC SOON.

;SILO our

DATA
R4

66%

000001
023402

016650

#1,10%
JRXSHIFT

050021

162662

#S.C+BIT4+BITO,aDVSFR

001400
000001

162652
162634

;SET/CLEAR SILO IN
#B]T9+BIT8,3DVSFR
g?ITO,SDVLCR
SRECV CHAR WAITING

5%:
SWAB

001236

8I1S8

RO,RS

R5
STAT.RS

SGET LINE NUMBER

‘PUT LINE NUMBER INTO HIGH BYTE
*PLACE SYNC INTO EXPECTED

;;ttttttttttttttttttttfitttttttifittttfitt'ti'tttfit.t"t!Qtfitttttttit

016546
016554

032737
001402

020000

001236

BIT
BEQ

016556
016562
016566
016572
016576
016600
016604
016612
016614
016620
016622
016624
016626
016632

143705

052705
012702
010277
104415

017704
032737
001402
042704
020504
001401
104001

004537
005237

001244
020000
030306
162602

162562
040000
010000

023532
016250

7%:

001236
6%:

A28 332

#BIT13,STAT
7$

4322232223222

BI(B
BIS
MOV
MOV
ROMCLK
MOV

BIT
BEQ
BIC
(MP
BEQ
HLT

PERFORM

INC

:1S PARITY EVEN ?

:1F _NO BR.

DO NOT MASK PARITY BIT

232222 21X

MASKX RS

#BIT15.RS

aDVRIC.R4

#PARB] T, STAT

63
#BIT12.R4

RS,R&4
.+

,SIL0.0uT
5%

RS R

2222

RRRRRS

:CLEAR UNUSED BITS.

*SET OVERRUN

#XFR+BIT7+BIT6+BIT2+BIT1,R2
R2.aDVSFR

SWHEN PARITY EVEN BECAUSE IT MASKS
:THE SYNC CHARACTER MAKING RECEIVED

sSYNC ODD, CAUSING DATA COMPARE
: ERRORS.

;DATA/XFER

*READ DVRIC

RICR_SILO OUT

‘PARITY?

‘BR IF NO
“CLEAR PARITY ERROR IF

*OVERRUN SET?
:BR IF

YES

IT EXISTS

*LINE,CHAR,AND OVERRUN EXPECTED.

*SILo our
*UPDATE LINE POINTER

MACY

SEQ 0064

#BIT9+B]I
T8, aDVSFR
#8170,aDVL(R
JRCV CHAR WAITING??

RS ,R4

023676

(ZbvB8

(ORP.

S/C "'SET RECV DATA ENABLE''

#MIT13,RS

023676

EQUIP.

#S.C+BI1T4+8]ITO, aovsrn
;SET/CLEAR SILO IN

023532
001236
001242

DIGITAL

016636
016640
016642
016646
016650

005303
001402
000137
000207
000001

DV11

016240

—

2501
2502
2503

19-FEB=-79 13:11

O —
o N

CZovBC.P1N

DEVICE DIAGNOSTICS.

DEC
BEQ
JMP

R;S
:
.BLKW

S
COPYRIGHT 1975

R3
1%
1%

DIGITAL EQUIP.

.4 LINE GROUP DONE?
JBR IF YES
s IN NOT CONTINUE

JRETURN FOR NEXT 4

Junsnnnnnnnnnannenannnens

TEST

LINE

nnvnnannannncnsannnnanennnnnan

N AN ANNRA NN AR ANAR AN AANARAN AN

A NN

21
012737
012737
012700
113737

013737
013737
100402

0G737
012700

00Uo1
017424

001226
001216

001422

001242
001244
001236

000000
01416
0014C6

017050
000004
001417
001410
0C1424

001242
001244
001236

013737
013737

017050
000010
001420
001412
001426

001242
001244
001236

004737
012700
113737
013737
013737

017050
000014
001421
001414
001430

004737

017050

032737
001401
000207

004000

113737

013737
013737
100402

004737
012700
113737

100602

100402

104400

012703

010037
104412

005001
004537
000001
010077

000004
017102

023544
162262

001242
001244
001236

MOV
MOV

MOV
MOvB
MOV

100%:

101%:

MOV
BM]
JSR
MOV
MOVB
MOV
ndl’
BM,
JSR
MOV

MOvVB
MOV

MOV
B8M]

102%:

65%:
3%

JPLACE LINE NUMBER INTO RO
JPLACE ''SHIFTS/PER/CHAR'®
IN CLKX
;PLACE 'MASK'FOR CHARS INTO MASKX

L00.03,STAT
1008
PC,105%
#6. RO
CLK.B,CLKX
MASK.B,MASKX
L04.07,STAT
1018
eC,105%
#8. RO

;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
sPLACE LINE NUMBER INTO RO
;PLACE ''SHIFTS/PER/CHAR'' IN CLKX
;GET MASK
;LOAD LINE CARD STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED
2GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER

MASK. C ,MASKX

;GET MASK

CLK.C,CLKX

L0O8.11,STAT
102$

;GET SHIFTS PER (HAR

;LOAD LINE CARD STATUS INTO STAT
TESTED

sBR IF LINE CARD NOT TO BE

PC,105%
#12. RO

;DO THE TEST FOR LINE
;LOAD LINE NO.

MOV

MASK.D ,MASKX

:GET MASK

8MI]

103%

MOovB

CLK.D, CLKX

L12.15,STAT

CARD 3

;GET SHIFTS

;LOAD LINE CARD STATUS

;BR IF LINE CARD NOT TG BE TESTED

JSR
SCOPE

PC.105%

8IT
BEQ

HASYNC,STAT
. +4

;DO THE TESTS FOR LINE CARD 4
:SCOPE THIS TEST,
s TEST ENTRANCE.
¢S THIS A SYNC LINE CARD?
;BR IF SYNC LINE CARD.

#4 ,R3
RO,65%

;SET FOR & LINE GROUP,
JPLACE LINE POINTER

RTS

1%:

#0. RO
CLK.A,CLKX
MASK.A ,MASKX

JSR
MoV
MOV

001236

#21,TSTNO
NTST22 NEXT

MOV
MOV

MSTCLR

CLR
R1
PERFORM ,SETSCAN
.BLKW 1
MoV
RO,aDVSRS

JEXIT

TEST

;CLEAR THE

s ZERO MSCANNER POINTER
sSET SCANNER
JPOSITION MSCAN TO LINE NO.
;LOAD LINE NUMBER

MACY

SEQ 0065

GROUP

J*TEST OF RECEIVER DATA .,
J*THIS TEST RUNS A BINARY COUNT PATTERN THROUGH
;*THE RECEIVER OF EACH LINE
;*THROUGH THE USE OF MAINT. DATA BIT.
s*THE TX IS NEVER ENABLED.
s*THIS TEST WILL BE DONE FOR SYNC LINE CARDS ONLY.

. IRRNARAAA AN A

(zov8e

CORP.

RN AR

B
P11

19-FEB~79 13:
1
125000

023462
001236

DV11
162252

023676

001236

001236
023402

023676

017252
017256
017262
017272
017274
017300
017302
017310
017316

017320
017322
017324
017326
017332
017336
017340
017344
017352
017354
017360
017360
017362
017364
017366
017372
017374
017376
017400

005202
001372
104000
004537
010537
105037

004537
001242
012777
104415

004537
005002
012777

032777
001403
005202
001372
104000

012702

010277
104415
017704

032737
001402
042704
020504
001401
104002
004537
104401
105205

001403
133705

010000

023532

001244

CHAR

sSTROBE

INTO RX.

;PICK UP NO. OF CLOCKS.
:TWO SYNCS REQUIRED??
:BR IF ONLY ONE SYNC.
:GIVE ANOTHER SYNC TO THE RX
IN

001220

MoV

#5%,L0CK

SSET

162154
162136

MOV

CLR

;SET FOR DELAY

BIT

#81T0,aDVLCR

;IS "RX _CHAR WAITING'' TRUE?

162172

SWAB
CLRB

10%:

5%:

BEQ
INC
BNE

INTO "EXPECTED''

sPLACE IT INTO HIGH BYTE
sZERO LOW BYTE
IF

SW09=1;

GOTO 5%

7$:

168

:BR IF TRUE..
;DELAY........
:BR IF DELAY NOTDONE

PERFORM

;PLACE

MoV
CLRB

RS ,DATA
DATA+1

,RXSHIFT

sPLACE CHAR INTO SOFTWARE LOC.
;ZERO LINE NUMBER.
CHAR

. CLOCKS.

INTO RX BUFFER.

MOV
ROMCLK

#S.C+BIT4+BIT1+BITO,aDVSFR
;SET RX DATA ENABLE

CLR
MOV
BIT

R2
:SET DELAY
#3]1T9+B]T8,aDVSFR
#B1T0,aDVLCR
;WAIT FOR RX CHAR WAITING

INC
BNE

R2
6%

BEQ
HLT
MOV

MOV

ROMS _K

001236

9%
R2
108

sRX CHAR WAITING NOT TRUE!
sREMOVE CHAR FROM SILO

PERFORM

6%:

#B1T9+B1T8,aDVSFR

HLT
0
PERFORM ,SILO.OUT

CLKX

162106

162070
162052

RS
RS

MO.
#S.C+BIT4+BIT1+BIT0,aDVSFR
ROMCLK
;CLOCK 'DATA ENABLE''
PERFORM ,SILO.IN
;JREAD RX BUFFER INTO SILO

162042

162022

,RXSHIFT

:STROBE

RO.RS

030306

040000

#TWOSYN,STAT
43
STAT,DATA

MACY
czov8
SEQ 0066

;LOAD SYNC CHAR
;GIVE AN INITIAL CLOCK

:SHIFTS REQUIRED
cLOAD LINE NUMBER

023510
001400
000001

,RXSHIFT

(CORP.

CLKX
MOV

023532
023676
023677
023402
050023

PERFORM

023510
001400
000001

DIGITAL EQUIP.

#BIT15+BIT13+BIT11+BIT9,aDVLCR
PC,CKBIT1S
;GO WAIT FOR BIT15 T0=0

CLKX
BIT
BNE
MOVB
4%:

017246
050023

MOV
JSR

MOVB
STAT ,DATA
DATACLK

023402
010000

DEVICE DIAGNOSTICS.

,SILO.IN

:READ

sBR IF

FROM RX BUFFER

SILO

TRUE

¢UPDATE DELAY
s GOBACK

0
:RX CHAR WAITING NOT
#XFR+B]T7+BIT6+BIT2+BIT1,R2

R2,aDVSFR

INTO

TRUE

;DO DATA XFER FROM SILO TO DVRIC

s CLOCK

Mr
BT
BEQ
8IC

aDVRI(C R4
#PARBIT,STAT
16%
#31T12,R4

sLOAD DVRIC TO 'FOUND'" 1 OC.
cPARITY ON??
sBR_IF PARITY NOT ON.
;CLEAR PARITY ERROR (DON'T WORRY ABOUT PARITY NOW.)

cMP
BEQ

RS,R4
.t

JRX DATA AND LINE NUMBER 0K??
;BR IF EXPECTED =FOUND.

SCOP1
INCB
BEQ

RS
8%

HLT
2
PERFORM ,SILO.OUT

BIT8B

MASKX RS

sRX DATA ERROR
JREMOVE RX DATA FROM SILO

;SW09=1?
;UPDATE DATA
;BR IF ALL DATA DONE

;IF <BBITS CHECK END OF DATA,

c
czovec PN

2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623

017404
017406
017412
0174614
0174616

017422

19~FEB-79 13:
1

001720
005237
005303
001402
000137
00207

DV11 DEVICE CIAGNOSTICS.

B8EQ

8$:

017102
017072

5%
659%

INC

DEC
BEQ

22%:

6
(ORP.

:BR IF MORE TO GO
sUPDATE TO NEXT LINE.

R3
22%
1%
P(

JMP
RTS

DIGITAL EQUIP.

JALL 4 LINES DONE?

JBR IF NOT ALL DONE
;SCOPE THIS TEST

JRRNNARARAN
AN A RNk ewr

TEST

;*TEST OF

RECEIVER PARITY LOGIC.

;*THROUGH

THE

AAARANRANARRAN
AR R RARNAARNANANES

J*THIS TEST RUNS PREDETERMINED DATA PATTERNS

;*MEANS OF

J*PARITY

RECEIVER OF

EACH LINE,

THE MAINTENACE DATA BIT.

IS SELECTED,

IF ODD

AN EVEN DATA PATTERN

;*]S GENERATED THROUGH THE RECEIVER WITH
;*THE PARITY BIT CLEAR.

s*RECEIVER PARITY ERROR.

s *ASSUME

THIS SHOULD CAUSE A

IF NOT,

THEN WE CAN

THE PARITY (HECKING LOGIC

IN THE

;*RECEIVER 1S DEFECTIVE. DATA IS STILL
s*CHECKED TO INSURE INTEGERITY. EVEN PARITY
s*WILL LIKEWISE BE TESTED BY GEMERATING

:*AN ODD DATA PATTERN. ALL CHARACTER LENGTHS
;*MAY BE TESTED. THE TX IS NEVER ENABLED.
c*THIS TEST WILL DE DONE FOR SYNC LINE CARDS ONLY.
IR

AR A AR AR R AR

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

TEST 22

017424
017432
017440
017444
017452
017460
017466
017470
017474
017500
017506
017514
017522
017524
017530
017534
017542
017550
017556
017560
017564
017570
017576
017604
017612
017614

012737
012737
012700
113737

013737
013737
100402

004737
012700

000022
020336
000000
001416
001406
001422

001226
001216
001242
001244
001236

013737
013737

017622
000004
001417
001410
001424

001242
001244
001236

004737
012700
113737
013737
013737

017622
000010
001420
001412
001426

001242
001244
001236

012700
113737
013737
013737

017622
000014
001421
001414
001430

001242
001244
001236

004737

017622

113737

100402

TST22:

MOV
MOV
MCvV

#22,TSTNO
HTST23 NEXT
#0. RO

;PLACE LINE NUMBER INTO RO

MOV
MOV
BM]
JSR
MoV

MASK.A ,MASKX
L00.03,STAT
100%
PC,105%
#4. RO

;PLACE 'MASK'FOR (HARS INTO MASKX
;LOAD LINE CARD STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
;PLACE LINE NUMBER INTO RO

MOV
MOV

MASK .B,MASKX
L04.07,STAT

;GET MASK
sLOAD LINE CARD STATUS

MOV

MASK, C ,MASKX

8M]
JSR

102%
PC,105%

MOVB

100%:

101%:

MOvVB

Ml
JSR
MOV
MOvVB
MoV

1028:

MOV

MOVB
MOV
MOV

BM]
JSR

CLK.A,CLKX

CLK.B,CLKX

JPLACE

''SHIFTS/PER/CHAR'®' IN LKX

sJPLACE ‘‘SHIFTS/PER/CHAR'' IN CLKX

101%
PC,105%
#8..RO
CLK.C,CLKX

INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
;GET SHIFTS PER CHAR

L08.11,STAT

;LOAD LINE

;GET MASK

CARD STATUS

INTO STAT

;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3

#12. RO

:LOAD LINE NO.

103%
PC,105%

JBR IF LINE CARD NOT 7O BE TESTED
;DO THE TESTS FOR LINE CARD 4

CLK.D,CLKX
MASK,D ,MASKX
L12.15,STAT

JGET SHIFTS
;GET MASK
JLOAD LINE CARD STATUS

MACY
cZov8
SEQ 0067

D
CZDVBC P11

2669
2670
2671
2672
2673
2674
2675

19-FEB-79 13:
1

Cv11

017620
017622

104400

017622
017630

032737

040000

001236

017632
017640
017642

032737
001401

004000

001236

103%:
105%:

DEVICE DIAGNOSTICS.

6
COPYRIGHT 1975

SCOPE

DIGITAL EQUIP.

cZDvB

CORP.

;SCOPE THIS TEST.
;TEST ENTRANCE.

;:ttfii.'tt*ttttittttfifi*t"tttttfitt*t**!t*tttttttttttt'ttt*ttt*tttt

001404

BIT

BEQ

HPARBIT,STAT

:1S PARITY ENABLED?

so4e(

23%

;IF NO BR

BIT
BEQ

#ASYNC,STAT
.+

;1S THIS A SYNC LINE CARD?
;BR IF SYNC LINE CARD.

RTS

JEXIT

:ZERO MSCANNER POINTER

::tttQtfitfifitfi*t*t*'**!tttttttti*.*t't*i'*i!tittfitttitfitt*fifittttt*t

000207
012703
010037
104412

005001
004537
000001
010077

000004
017664

1%:

023544
161500
125000

023462
001236

535

161470

65%:
3%:

023676

MOV
MOV

MSTCLR

CLR

PERFORM

#4 ,R3
RG,65%

s SET SCANNER

.BLKW 1
sPOSITION MSCAN TO LINE NO.
MOV
RO,aDVSRS
:LOAD LINE NUMBER
MOV
H#BIT15+BIT13+BIT11+B1T9,aDVLCR
JSK
PC,CKBIT15
:GO WAIT FOR BIT15 TO=0

010000

001236

001236
023402

023676

MOvVB

4%:

020056
050023

BNE

PERFORM

,RXSHIFT

CLKX
MoV
SWAS

STAT,DATA

001409
000001

108:

032737
001404
012737

020000

001236

020262

001254

000403
012737

020310

001254

20%:

161172

023676

218:
5%:

161160

001256

013705

001256

023532

;GIVE ANOTHER SYNC TO THE RX

;BR IF ONLY ONE SYNC..
;STROBE

;SHIFTS REQUIRED
sLOAD LINE NUMBER INTO 'EXPECTED'’
JPLACE IT INTO HIGH BYTE

RO,R5
RS

CLRB
MOV

RS
#5%,L0CK

CLR
MOV

R2
;SET FOR DELAY
#8]1T9+B1T8,aDVSFR

BIT
BEQ
INC
BNE
HLT

;ZERC LOW BYTE
;SET IF SW09=1; GOTO 5%

#B1T0,aDVLCR
9%

R2
108
0

IR AR R AR AR AR AR AR AR

004537
017737
010537

cLOAD SYNC CHAR
¢cGIVE AN INITIAL CLOCK
:STROBE CHAR INTO RX.
;PICK UP NO. OF CLOCKS.
:TWO SYNCS REQUIRED??

MOV
#S.C+BIT4+BIT1+BIT0,aDVSFR
ROMCLK
2CLOCK 'DATA ENABLE''
PERFORM ,SILO.IN
cREAD RX BUFFER INTO SILO

02351C

117737

;CLEAR THE DV11

MOvB
STAT,DATA
DATACLK
PERFORM ,RXSHIFT
CLKX
BIT
#TWOSYN,STAT

023402

TEST

;SET FOR 4 LINE GROUP.
sPLACE LINE POINTER

,SETSCAN

9% :

;RX CHAR WAITING NOT
R AR AR R AR AN R

BIT

#BIT13,STAT

MOV

#0DDCH, TEMP4

BR
MOV

21%
#EVENCH,TEMP4

BEQ

20%

PERFORM ,SILO.OUT
MoV
ITEMP4 ,DATA
MOV
RS, TEMPS
MOVB

MOV

ATEMP4, TEMPS

TEMPS5 RS

;IS 'RX CHAR WAITING'' TRUE?
;BR IF TRUE..

;DELAY........
:BR IF DELAY NOTDONE
AR

TRUE!

RRAANRRRARNR

R RRNRR RN

;1S PAR]TY EVEN SET?

:1IF NO,BR

sSINCE PARITY

IS EVEN,

soveC
LUAD ODL

CHARACTER

;TABLE ADR IN RS WITH PARITY BIT CLEAR
;GO LOAD DATA
;SINCE PARITY IS ODD,

LOAD EVEN CHARACTER

sTABLE WITH PARITY BIT CLEAR
JREMOVE (CHAR FROM SILO
sLOAD DATA
;SAVE LINE #
s SAVE DATA

;UPDATE EXPECTED DATA AND LINE #

MACY

SEQ 0068

;:ttttt'tttfitt*i’it*ttttt'ttttttttiittltltfifiittttfiittttttltt't"tt

E
czovBeC.P1
020102
020106
020110
020116
020120
020124
020126
020134
020142
020144
020146
020150
020152
020156
020162
020164

16-FEB=-79 13:11
004537
001242
012777
104415
004537
005002
012777
032777
001403
005202
01372
104000

012702
010277
104415
017704

DV11 DEVICE DIAGNOSTICS.

023402
050023

PERFORM ,RXSHIFT
CLKX

MoV

161262

ROMCLK

023510
001400
000001

CLR

6%:

7%:

030306

161216

MOV
BIT
BEQ
INC
BNE
HLT

MoV

MOV

ROMCLK
Mov

161176

MACY
0069
SEQ

czpve

DIGITAL EQUIP. CORP.

¢PLACE CHAR INTO RX BUFFER.
s CLOCKS.

#S.C+BIT4+BIT1+B1T0,aDVSFR

PERFORM ,SILO.IN

161244
161226

;SET RX DATA ENABLE

:READ FROM RX BUFFER INTO SILO

:SET DELAY

#8179+B178,aDVSFR
. #8170,3DVLCR
¢WAIT FOR RX CHAR WAITING
7%
:BR IF TRUE
R2
cUPDATE DELAY
6%
GOBACK
0
X CHAR WAITING NOT TRUE

#XFR+BIT7+BIT6+BIT2+BIT1 R2
R2,aDVSFR
aDVRIC R4

;DO DATA XFER FROM SILO TO DVRIC

:CLOCK
:LOAD DVRIC TO ‘FOUND'* LOC.

..*atttttQ*ttt*’**ttt***ttti*ttt*tittt**t*tt*tt*tittttttt*tt*ttt*t

7020170
020174
020176
020200
020202

032704 010000 -

001002
104004

000402
042704

BIT
TM
BNE
HLT

010000

17$

B8R
8IC

" #BIT12,Ré
17%
4

16$
#BIT12 R4

;1S PARITY ERROR SET?
:IF YES BR.

)

.-”c

:RECEIVER PARITY ERROR NOT DETECTED

sCLEAR PARITY ERROR INDICATOR

**ttt*tt*tt***ttttt**t*ti*ttttfi**ti**t*t*t***t*t**tt*ttt*ttttttt

020206
020206
020210
020212
020214
020220

020504
001401
104002
004537
104401

16$

cMP

R5,R4

BEQ
.+
HLT
2
PERFORM ,SILO.OUT

023532

SCoP1

:RX DATA AND LINE NUMBER 0K??

:BR IF _EXPECTED =FOUND.
:RX DATA ERROR
:REMOVE RX DATA FROM SILO

:SW09=1?

::tttt****t*ttttt***t****tt*tittttt*ttttt***tt**t**ttti*tttttt*ttt

020222
020230

020234

062737
005777

000002

161020

ADD

001254

TST

#2, TEMPG,
ATEMPS

;UPDATE POINTER TO DATA

ss4+C

:END OF DATA?

':**tttttt*tft*t*tt****tt**t*ttt******t****tkttittttttttttitt*tttt

001403
133705

020236
020242
020244
020250
020252
020254
020260

001705
005237
005303
001402
000137
000207

020262
020270
020276
020304
020310
020316
020324
020332

000001
000010
000020
000034
000003
000012
000022
000033

001244

017664

8%:

017654

000002
000013
000031
000000
000006
000014
000024
000000

22%:

BEQ
BITB
BEQ
INC
DEC
BEQ

8s
MASKX,RS
5%
65%
R3
22$

RTS

JMP

:BR IF ALL DATA DONE
:IF <8BITS CHECK END OF DATA.
:BR IF MORE TO GO
:UPDATE TO NEXT LINE.
:ALL 4 LINES DONE?
:BR IF NOT ALL DONE

:SCOPE THIS TEST

000004
000016

ODDCH:

.WORD

1,2,4,10,13,16,20,31,32,34.,0

000011
000021
000030

EVENCH:

.WORD

3,6,11,12,14,21,22,24,30,33,0

000032

JENRAANEKRAAARAANEAARARRY

TEST

adn st a A v a A

;*TEST OF RECEIVER DATA .
s*THIS TEST RUNS A SET PATTERN THROUGH

e a A AR R A RN

RNR

P11

19~FEB=-79 13:11

Dv11

DEVICE DIAGNOSTICS.

DIGITAL EQUIP.

MArY
£ZDVB
SEQ 0070

CORP.

s*THE RECCIVER OF EACH LINE
;*THROUGH THE USE OF THE TRANSMITTER,
;*THIS TEST EXERCISES ALL LINES IN GROUPS OF 4.
s*NOTE: SHOULD A DATA COMPARE ERROR OCCUR; THE PROGRAM
i*
REPORTS THE ERROR AS A RECEIVER DATA ERROR BASED

*THIS
A

ON_THE

TRANSMITTER HAS PREVIOUSLY BEEN (HECKED AND ASSUMED 0GD.

TEST WILL BE DONE
eIl

FOR SYNC LINE

CARDS ONLY.

22222222222

TEST 23

020336

020344
020352
020356
020364
020372
020400
020402
020406
020412
020420

020426

020434
020436
020442
020446
020454
020462
020470
020472
020476
020502
020510
020516
020524
020526
020532

020534
020534
0c0542

020544
020546
020552
020556
020562
020566
020572
026574
020576
020602
020604
020606
0205612
020620
020626

012737

012737
012700
113737
013737
013737
100402
004737
012700
113737
013737

013737

100402
004737
012700
113737
013737
013737
100402
004737
012700
113737
013737
013737
100402
004737
104400

032737
001401

000207
010037
005037
113704
005037
110437
000241
006104
050437
000241
006104
050437
013737
113737
012737

000023

021342
000000
001416
001406
001422
020534
000004
001417
001410

001424

001226

001216

001242
001244
001236

001242
001244

(001242
001244
001236

020534
000014
001421
0014146
001430

001242
001244
00ic36

020534

001236

020644
001250
001244
001252
001252

001252
001252
001236
0012360
000004

1008:

001236

020534
000010
001420
001412
001426

004000

TST23

023646
023647
001246

MOV

HTST24 ,NEXT
#0. RO
CLK.A,CLKX
MASK.A,MASKX
L00.03,STAT
1008
PC.105%
#4. RO
CLK.B,CLKX
MASK .13, MASKX

8M]
JSR
MOV
MOVB
MOV
MOV
BM]
JSR
MOV
MOvB
MoV
MOV
8M]
JSR
SCOPE

101$
PC,105%
#8. RO
CLK.C,CLKX
MASK. C,MASKX
LO8.11,STAT
102%
PC,105%
#12. RO
CLK.D,CLKX
MASK.D ,MASKX
L12.15,STAT
103%
PC,105%

BIT
BEQ

HASYNC,STAT
. +4

MOV

101$:

102%:

103%:
1058 :

#23,1STNO

MOV
MOV
mMov8
MOV
MOV
BMI
JSR
MOV
mMovse
MOV

RTS
MoV
CLR
MOovVB
CLR
MovB
CLC
ROL
RIS
C.C
RCOL
BLS
MOV
MOvVB
MOv

L04.07.STAT

PC
RO,65%
TEMP?
MASKX,R4
TEMP3
R4, TEMPS

sPLACE LINE NUMBER INTO RO
JPLACE '‘SHIFTS/PER/CHAR"'
IN CLKX
sPLACE 'MASK'FOR CHARS INTO MASKX
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
¢GO DO THE TEST FOR LINE CARD 1
;PLACE LINE NUMBER INTO RO
;PLACE '‘SHIFTS/PER/CHAR'" IN (CLKX
JGET MASK

;LOAD LINE CARD STATUS INTO STAT

;BR IF LINE CARD NOT TO BE TESTED
;GO DO THFE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
sGET SHIFTS PER CHAR
;GET MASK
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.
;GET SHIFTS
;GET MASK
;LOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD 4
;SCOPE THIS TEST.

. TEST ENTRANCE.
;1S THIS A SYNC LINE "ARD?
JBR IF SYNC LINE CARL.
JEXIT TEST
;PLACE LINE NO.

Ré
R4, TEMP3

Ré
R4, TEMP3
STAT,SYNC
STAT,SYNC#1
6, TEMPT

JSET FOR & LINES

0222222;

G
L1

19-FEB-79 13:
1

020634
020636
020640
020644
020646

104412
005001
(004537
000001

020646
020652
020656
020662
020664
020672

010077
004537
004537
024000
032737
001003

0206764

020760
020702
020706

020712

020720
020724

020732

012703
000402
012703
111337

043737

005077
013777

012777

Dv11 DEVICE DIAGNOSTICS.
1%:

023544

65%:
3%

160520
023634
023342

010000

7%:

001236

023646
023647
001250

001252

160446
001250

020000

001250
160644

160440

020740
020742
020750
020752
020754
020762
020764
020766
020772

104415
012777
104415
104416
012737
010005
000305
113702
010077

030260

160430

020766

001220

021002

043737

001252

020776

11337

021010
021012
021016
021020
021022
021026
021030
021034
021042
021044
021046
021052

105005
053705
104416
005302
022702
001033
005077
032777
001001
005203
111337
013777

021066
021070
021076
021100
021104
021112
021114
021116
021120
021122
021126
021130

104415
012777
104415
010077
032777
091001
005303
005702
001336
022703
001473
022703

021060

012777

001242

160374
001250

5¢:

160140

)

16C316

020000

160312

030260

160302

160266
00100C¢

' 0070

023647

DIGITAL EQUIP.

C(ORP.

JRESET DV11
;JERO M>CANNER POINTER
JADJUST SCANNER FOR PROPER LINE
:

:SET SOURCE SELECT

SLOAD LINE NUMBER
;CLEAR TMARK BIT.
*LOAD
*MODE AND RX ENABLE

#SYNC ,R3

108
#SYNC+1,R3
(R3),TEMP2

TEMPS, TEMP2

CLR
MOV

aDVSRS
TEMP2,aDVSRA

ROMCLK
MOV
ROM(CLK
DATACLK
MOV
MOV
SWAB
MOVB
MOV

1 CLOCK.
KXFR+B]T7+BITS+BI1T4,aDVSFR
;DO A DATA XFER FROM RAM DQUTPUT TO TX BUFFER
“ISSUE A MAINT CLK.
#4$,10CK
SSET IF SW09-1 GOTO 4$
RO,RS
RS

#BI1T15,aDVSFR

CLKX,RZ

RO, DVSRS
(R3),TEMP2

;2ERO LINE TO LINE O
:LOAD DATA INTO DVSRA

EXECUTE A ‘ROM READ'‘ INTSTR

;SET REQUIRED SHIFTS

:LOAD LINE NUMBER

TEMPS, TEMP2

CLRB
BIS
DATACLK
DEC
CMP
BNE
CLR
BIT
BNE
INC
MOYB
MOV

R2
#1,R2
8$
aDVSRS
#BIT9,aSwR
.+4
R3
(R3),TEMP?
TEMP2,aDVSRA

ROMCLK
MOV
ROMCLK
MOV
BIT
BNE
DEC
TST
BNE
CMP
BEQ
(MP

‘CLk
#XFR+BIT7+BITS+BIT4,aDVSFR
:DC'A
DATA XFER TO TX BUFF
RO.aDVSRS
*RESELECT LINE NUMBER
#8179, aSWR
1LOCK ON DATA?
. +4
*BR IF YES!'!
R3
*READJUST DATA CHAR POINTER.
R2
CALL SHIFTS DONE?
X3
*BR IF NO
#SYNC ,R3
50
#SYNC+1,R3

MOV

8$:

023646

BIC

000001

001250
001250

BR
MOV
MOVB

MOVR

001250

160336
001000

MOV
RO,aDVSRS
PERFCRM ,(CLR.TMARK
PERFORM . [ OAD.MODE
BIT13+8IT11
BIT
NTWOSYN, STAT
BNE
9s

MOV

4$:

CCPYRIGHT 1975

MSTCLR
(LK
R1
PERFORM ,SETSCAN
.BLKW 1

MOV
9% :
108:

RS
TEMP2 RS

#BI1T15,3DVSFR

:ISSUE MAINT CLK
*ALL SHIFTS DONE?
*1S THE BUFFER ALMOST EMPTY?
‘BR IF NO
*2ERO LINE NUMBER
:LOCK ON DATA?
*BR [F YES.'!
SUPDATE DATA POINTER.
*STORE DATA
-LOAD DATA INTO DVSRA

:DO A ROM READ

MACY
cz0v8
SEQ 0071

H
CZDVB(C.P11

2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
292%
2925
2926
297
2928
929
2930
2931

021134
021136
021144
021146
021152
021154
021162
021170
021172

021174
021176
021200
021204
021210
021212
021216
021224

19-FEB-79 13:11

001470
012777
104415

004537

005002
012777

032777
001403
005202
001372
104000

012702
010277
104415

017704
032737
001410

050023

Dv11

BEQ

160234

023510
001400
000001

160216
160200

032704
001403
104005

CLR

160170

160150
040000

MOV
BIT

042704

010000

0721242

143704

001244

;UPDATE DELAY

sRX CHAR WAITING NOT

BEQ
BIT
BEQ

021246
021250
021252
021254
021260
021262
021264
021270
021272
021276
021302
021306
021310
021314
021316
021324
021326
021334
021336

020504
001401
104002
004537
104401

005203
020327
001236
004537
005237
005337
001402
000137
000207
012777
104415
012777
104415
000137

R AN

R R AR AR AR

#BIT12,R4

BI(B

MASKX ,R4

023622
020644
001246

36%:

(MP
BEQ
HLT

6%:

020634
050G23

160054

050022

160044

021262

11%:

46%:

50%:

;BR If PARITY DISABLED

R AR AN R AN R RN R R RARAANRRARRNNARANNNA
R INR RN

BIC

PERFORM

023674

sLOAD DVRIC TO "FOUND'' LOC.
sPARITY ON??

¢IS THERE A PARITY ERROR?
;IF NO BR

023532

;DO DATA XFFR FROM SILO TO DVRIC

#B1T12,R4
12%

12%:

TRUE

s CLOCK

36%

AN AR R AR R AR AR AR R AR

A AR AR

. GOBACK

aDVRIC R4
#PARBIT,STAT

HLT

021236

R2,aDVSFR

ROMCLK

INTO SILO

:SET DELAY

HXFR+BIT7+BIT6+BIT2+B]IT1,R2

MOV

010000

cREAD FROM RX BUFFER

26$%

MOV

001236

,SILO.IN

SCOF1
INC

cIF

YES,

RS .Ré
.+

AR RN AR

,SILO.OUT

NI I

R3,#ENDPAT
4%
,SET.TMARK

sRX DATA ERROR
;sREMOVE

RX DATA FROM SILO

;LOCK ON DATA?

ROMCLK
MoV
ROMCLK

#S.C+BIT4+BIT1,aDVSFR

JSET TMARK BIT.
;UPDATE LINE NO.
JALL LINES(4) DONE?
;SCOFE

#S.C+BIT4+BIT1+BITO,aDVSFR

THESE

4 LINES.

11%

JRNRNARRARRARRARAARRARNAL

TEST

tamnnnnnennnnnransantrrnnnnnny

;*TEST OF RECEIVER 'RE-SYNC''

s*THIS TEST WILL SEND (BY BIT WINDOW) TWO SYNC (HARS AND
;*THEN VERIFY THAT RX CHAR FLAG IS TRUE.

J*THEN A "RE-SYNC'' WILL BE

ISSUED AND

;*TWO NON-SYNC CHARS WIIL BE SENT INTO THE RX
J*VERIFYING THAT THERE IS NO RX CHAR FLAG.
J*NEXT

RX DATA »ND LINE NUMBER 0K??
sBR IF EXPECTED =FOUND.

RTS

JMP

CLEAR PARITY BIT
I

65%
TEMP1
?gs

MOV

IS A A BAD TRANSMITTER

AR NN N AR

JELSE

MP
BNE
PERFORM
INC
DEC
BE
J

soe+C

;CLEAR PARITY ERROR (DON'T WORRY ABOUT PARITY NOW!')
I

THEN IT

AR A AR AR R AR A NRN AR A AN

TWO SYNC

CHARS ARE

AGAIN MOVED

INTO THE

;*VERIFING CHAR FLAG AND THE THE RX SOULD INDEED

MACY

SEQ 0072

#BIT9+B]T8,aDVSFR
#3170,aDVLCR
JWAIT FOR RX CHAR WAITING
2’%
;BR IF TRUE

HLT

27%:

(ZDVvB

CORP.

508

INC
BNE

030306

DIGITAL EQUIP.

#S.C+BIT4+BIT1+B]IT0,aDVSFR
sSET RX DATA ENABLE

MOV
BIT
BEQ

26%:

MOV
ROMCLK

PERFORM

021226
021232
021234

DEVICE DIAGNOSTICS.

so++(C

I
P11

19-FEB=-79 13:11

DV11 DEVICE DIAGNOSTICS.

s*THIS

RE SYNC.

TEST WILL BE

. CRAN R A AR AR AR RN

s
021342
021350
021356
021362
021370
021376
021400
021404
021410
021416
021424
021426
021432
021436
021444
021452
021454
021460
021464
021472
021500
021502
021506
021510
021510
021516
021520
021522
021526
021532
21534
021526
021542
021544
021552
021556

012737
012737
012700
113737

000024
022046
000000
001416
001422

001226
001216

000004
001417
001424

021510
000010
001420
001426
021510
000014
001421
001430

001242
001236

021510

032737
001401
000207
012703
010037

104412
005001
004537
000003
012737
010077
004537
025000
012702
104416
013737
004537
001242

005302
001370
012702
010277
017704
010405
042705
020504

004000

157614

001220

023342

1008:

1018:

1028:

105%:

68%:

3%:

002000
157556
157542

000001

MOV

L00.03,STAT

BMI
JSR

CLK.A,CLKX

1008
PC.105%

MCV

#4. RO

MOV

L04.07,STAT

MOVE

BM]
JSR

MOV
MOVB
MOV

CLK.B,CLKX

1018
PC.105%
#8. .RO

CLK.C,CLKX
LO8.11,STAT

BMI
JSR
MOV

102%
PC,105$
#12..RO

MOV
8ml
JSR

L12.15,STAT
103%
PC,105$%

MOVB

SCOPE

BIT
BEQ
MoV
MOV
MSTCLR
CLR

PERFORM

BLKW 1

MoV

MOV

PERFORM

CLK.D,CLKX

#ASYNC,STAT
.44

#4 ,R3
RO, 68%

,SETSCAN

#3%,L0CK

RO.,aDVSRS

,LOAD.MODE

BIT13+BIT11+BIT9

000002
001256
023402

#24,TSTNO
ATST25 NEXT
#0. RO

MOVB

1%:

023544

023676

4%:

DONE

DIGITAL EQUIP.

FOR SYNC LINE

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

MOV
MOV
MOV

RTS

000004
021542

021552

TST24:

103%:
001236

CARDS ONLY.

NN AN N AN NN AR NN AN NI AN AR

MOV
#2,R2
DATACLK
MOV
STAT,DATA
PERFORM _RXSHIFT
CLKX

DEC
BNE

MoV

MOV
MOV
MOV
Bi(
(MP

R2
4%

#B1T10,R2

RZ,aDVSFR
aDVLCR,R4
R4 RS
#3170 ,R5
R5.R4

JPLACE LINE NUMBER INTO RO

JPLACE ''SHIFTS/PER/CHAR'' IN (CLKX
;LOAD LINE CARD STATUS INTO STAT

;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
JPLACE LINE NUMBER INTO RO

JPLACE '‘SHIFTS/PER/CHAR''
IN (CLKX

;LOAD LINE CARD STATUS INTO STAT
JBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
;GET SHIFTS PER CHAR
JLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
:DO THE

TEST FOR LINE

CARD 3

;LOAD LINE NO.
JGET SHIFTS
;LOAD LINE CARD STATUS
sBR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD &
sSCOPE THIS TEST.
;TEST ENTRANCE.
;1S THIS A SYNC LINE CARD?
<BR IF SYNC LINE CARD.
TEXIT TEST

JSET FOR 4 LINE GROULP
;SAVE LINE NO
JRESET
. ZERO MSCANNEK POINTER
:SET SCANNER
;TO RIGHT LINE
JSET IF SW09=1
;LOAD LINE
;LOAD
;MODE
JSET COUNT
JINIT DV11 SAT/SAR
sGET SYNC
JSHIFT INTO RX
:CLOCKS

;TWO CHARS YET

‘BRA TEST

*BRANCH TEST POINT BAD

CZDVB
MACY
SEOQ 0073

CORP.

TEST 24

001242
001236

021510

J
P

021636
021640
021642
021650

021652

021656

021662

19-FEB=79 13:11

001401
104001
012777
104415
010277
017704
010405
052705
020504
001401
104001

012702

013737
005437
004537

001242
005302
001366
012702
010277
017704
010405
052705
020504
001401
104001

012702
013737
004537
001242
005302
001370
012702
010277
017704
010405
042705
020504
001401
104001
104401

022042

022044

005237
005303
001233
000207

050106

OV11 DEVICE DIAGNOSTICS.

157530

64%:

157522
157506

000002
001236
023676
023402

023676

65%:
5%:

002000
157442
157426

000001

000002
001236
023402

(23676

66%:
€$%:

002000
157366
157352

?43

MOV

AS.C+BIT6+BIT2+B]T1,aDVSFR

MOV

RZ.,aDVSFR

ROMCLK

0c1542

aDVLCR,R4

#2 ,R2
STAT ,DATA

;S/C 'RESYNC PULSE'’

:
:

:
H
:
:

JRESYNC FAILED.

:
JGET SYNC

NEG
DATA
PERFORM ,RXSHIFT

JMAKE IT A NON=-SYNC
JSHIFT

CLKX

JINTO RX

DEC
BNE
MOV
MOV
MOV
MOV
BIS
CMP
BEQ

R2
5%
#IT10,R2
R2.aDVSFR
aDVLCR,R4
R4 ,R5
MITO,RS
RS ,R4
66%

MoV
MOV

#2 ,R2
STAT ,DATA

DEC
BNE
MOV
MOV

R2
6%
#81T10,R2
R2.aDVSFR

HLT

;TWO DONE?
.
;
M
:
:
:
H
:

PERFORM ,RXSHIFT
CLKX

HLT

SCoP1
INC

DEC
BNE

RTS

:
.
:

aDVLCR,R4
R4 RS
:
#BITO,RS
RS ,R4

67%

:
:
:

68%
R3
1%

;
;

SEXIT

SNARRRRARAARRAAREAEARANRE

s*TEST

CORP.

MOV
MGV

HLT

DIGITAL EQUi~.

R4 RS
#31T0,RS
RS R4
659

BEQ

67%:

MOV
BIS
(MP
BEQ

MoV
MOV
BIC
CMP

000001

BE?

MOV

000001

TO VERIFY

TEST

aaxnannnannnnneennnsnnssnnennnnns

THAT SETTING RECEIVER ENABLE

s*WILL SET RX FLAG AND MATCH DETECT.
s*TEST WILL ALSO VERIFY THAT CLEARING RECE]VER
s*ENABLE WILiL CLEAR RX FLAG AND MATCH DETE(CT.

J*THIS

TEST WILL BE DONE

FOR ASYNC

LINE

CARDS OMLY.

;:t*ttttfiit'tk!ttt'tfit..tfii!tt'ittttttfititiktttttltlt'.tt't't't't'

MACY
cZov8
SEN 0074

P11

19-FEB=-79 13:11

Dv11 DEVICE DJAGNOSTICS.
s

02046
022054
022062
022066
0220746
022076
022102
022106

012737
012737
012700
013737
100402
004737
012700
013737

022116
022122
022126
0@2134
022136
022142
022146
022154
022156

004737
012700
013737
100402
004737
012700
013737
100402
004737

022114

—'—»—-—a—a-a--ooogogooog
VNESANN)
—
VB
W —=OV00 N

—t

AN AN AN

md cd wd

) wd

i ——d

NN NN NN N

)

b —

—

NN N N AN AN

022162
022164
022164
022172
022174
022176
022202

022204
022206
022214
022?20
022¢24
022226
022232
022236
022240
022244
022250

022254
022256
022262

022266
022270
022272
022276
022300

022304
022310
022312
022316
022322
022324
022326
022330
022334

022336

100402

104400

000025
022436
000000
001422

001236

022164
000004
001424

001236

022164
000010
001426

(001236

022164
000014
001430

001236

022154

032737
001001
000207
012703
104412
005001

004000

004537
000001
010077
004537
020000
012702
010277
017704
010405
052705
042705
020504
001401
104001
012702
010277

023544

012777
(010037

017704
010405
05270
042705
020504
001401
104001
004537
000000

012702

001226
001216

001256

000004

000010
022224
157140
023342

100%:

002000
15Z074
157060

101%:

102%:

103$:
105%:

1%:

57146
€5%:

000002
000001

023342

076400

CORP.

#25,TSTNO
HTST26 NEXT
#0. RO
L00.03,STAT
100%
PC,105%
#6. RO
L0&.07,STAT

JPLACE LINE NUMBER INTO RO
cLOAD LINE CARD STATUS INTO STAT
JBR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
JPLACE LINE NUMBER INTO RO
JLOAD LINE CARD STATUS INTO STAT

JSR
MOV
MOV
8M]
JSR
MOV
MOV
8M]
JSR

PC,105%
#8..R0O
LO8.11,STAT
102%
PC.105%
#12. RO
L12.15,STAT
103%
PC,105%

;GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUYBER
JLOAD LINE CARD STATUS INTO STAT
JBR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
;LOAD LINE NO.
;LOAD LINE CARD STATUS
:BR IF LINE CARD NCT TO BE TESTED
;DD THE TESTS FOR LINE CARD &

BIT
BNE
RTS
MOV
MSTCLR
CLR

#ASYNC,STAT
YA
PC
#4 ,R3

MOV
BIS
BIC
cTMMP
BEQ
HLT
MOV
MOV

R4 RS
#81T0,RS
#31T1,RS

SCOPE

101%

JBR IF LINE CARD NOT TO BE

;SCOPE THIS TEST.
;TEST ENTRANCE.
;1S THIS AN ASYNC LINE CAR?
;BR IF ASYNC.
JEXIT TEST
cSET TO TEST & LINES.
JINIT DV
JINIT SCANNER POINTER.

R1
#8173,aDVSCR
;SET SOURCE ENABLE
RC,65%
JPREPARE MASTER SCANNER.
PERFORM ,SETSCAN
JSET SCANNER
BLKW
1
;POSITION OF SCANNER.
MOV
RO, ®DVSRS
;LOAD LIME NO.
PERFORM ,LOAD.MODE
;SET RX ENABLE.
BIT13
:
MOV
#BRB+RIT11+BIT10+B]
T8, R2
MOV
R2.,aNVSFR
;BRB MATCH DETECT.
MOV
aDVLCR, R4
;READ BR POINTS.

MOV
MOV

2%:

DIGITAL EQUIP.

MOV
MOV
MOV
MOV
BMI
JSR
MOV
MOV

BMI]

000001
000002

TEST 25

TST25:

076400
157130
157114

MOV
MOV
BIS
BIC
(MP
BEQ
HLT
PERFORM
0

MOV

RS.R&
P 3
1
#MIT10,R2
R2.aDVSFR

aDVLCR, R4
R4 ,RS
#BIT1.RS
#MITO,RS
RS.,R4
3%
1
,L OAD.MODE

;
:BR A FALSE.
:BR B TRUE.

JMATCH DETECT TRUE?
;BR IF YES
JRX FLAG NOT TRUE.
;BRA RX FLAG.
;LOAD INSTRUCTION.

;READ BR POINTS.
:
JBR B FALSE
:BR A TRUE.
JRX FLAG TRUE?
;BR IF YES
JRX FLAG NOT TRUE.
:CLEAR RX ENABLE.

#BRB+BIT11+B]T10+B] T8 R2

TESTED

C2DvB

MACY

SEQ 0075

L
P11

022342

022346

19-FEB=-79 13:
1

010277

017704

022352
022354
022360
022364
022366
022370
022372
022376
022402
022406

010405
052705
052705
020504
001401
104001
012702
010277
017704
010405

022420
022422
022424
022426
022430
022432
022434

020504
001401

022410
0226414

052705
052705

Dv11

DEVICE DIAGNOSTICS.

157032

MOV

157016

002000
156776
156762

6%:

00C002
00C.H01

5%:

DIGITAL EQUIP.

sBRB MAT(CH DETECT.

MOV
BIS
8IS
CMP
BEQ
HLT
MOV
MOV
MOV
MOV

R4 RS
#3110,RS
#31T1,RS
R5,R4
43
1
#B1T10,R2
RZ,aDVSFR
aDVLCR,R4
R4 RS

;
;BR A FALSE.
;BR B FALSE.
JMAT(H DETECT FALSF?
JBR IF YES
JRX FLAG NOT FALSE.
JBRA RX FLAG.
sLOAD INSTRUCTION.
;READ BR POINTS.
;

CMP
BEQ
HLT
INC
DEC
BNE
RTS

R5,R4
5%

JRX FLAG FALSE?
;BR IF YES

8IS
BIS

104001
005200
005303
001263
000207

R2,aDVSFR

MOV

000001
0000C2

aDVL(R, R4

#BIT1,RS
#31T0,RS
1
RO
R3
1%
PC

JREAD BR POINTS.

;BR B FALSE
;BR A FALSE.

RX FLAG NOT FALSE.
;UPDATE LINE NO.
;4 LINES DONE?
;BR IF NO.
JEXIT TEST.

SNRRRNARNAARNARNNERARARRE

J*TEST

(ORP,

TEST

At anaaaaaaaanaaanaannasennnenvtn

TO SET RECEIVER ENABLE.

;*SET "RX DATA ENABLE''.

;*CLR 'RX DATA ENABLE''.

*AND EXPECT BOTH RX FLAG AND MAT(CH DETECT

TO BC

FALSE.

s*THIS TEST WILL BE DONE FOR ASYNC LINE CARDS ONLY.

. IRAARA RN RN AN A AN T AN RARNRR AN RN AN ANRN AR ANANNARANRRANRNAANANNNERANR NN RN

NISTEIRGRA

b
b
b
b

) el
d

AN N

e B
—

NN NAPROPRONRON

N NN

022436
022444
022452
022456
022464
022466
022472
022476
022504
022506
022512
022516
022524
022526
022532

022536
022544
022546
022552
022554
022554
022562

(22564

012737
012737
012700
013737
100402
004737
012700
013737
100402
004737
012700
013737
100402
004737
012700

013737
100402
004737
104400

032737
001001

000207

000026
022750
000000
001422

001226
001216

001236

022554
000010
001426

001236

001430

001236

022554

004000

TST26:

001236

022554
000004
001424

022554
000014

TEST 26

001236

1008:

1018:

102%:

103%:
105%:

MOV
MOV
MoV
MOV
8M]
JSR
MOV
MOV
BM]
JSR

MOV
MOV
BMI
JSR
MOV
MOV
8M]
JSR
SCOPE

BIT
BNE

RTS

#26,1STNO
NTST27 NEXT
#0. R0
L0OO.03,STAT
1008
PC,105%
#4. RO
L04.07,STAT
101%
PC,105%
#8. RO
L08.11,STAT
102%
PC,105%
#12.,R0O

L12.15,STAT
103$
PC,105%

#ASYNC,STAT
+4

JPLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED
2GO DO THE TEST FOR LiNE CARD 1
;PLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 2
;LOAD LINE NUMBER
;LOAD LINE CARD STATUS INTO STAl
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TEST FOR LINE CARD 3
;LOAD LINE NO.

sLOAD LINE CARD STATUS
JBR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD 4
;SCOPE THIS TEST.
sTEST ENTRANCE.
;15 THIS AN ASYNC LINE CAR”
JBR IF ASYNC.

CEXIT TEST

MACY
czov8
SEQ 0076

P11

022566
022572
022574
022576
022604

022610

022614
022616

19-FEB~-79 13:11

012703

000004

012777
010037
004537
000001
010077
004537

000010
022614
023544

104412
005001

020000
012777
104415
012777
104415

01270¢
010277
017704
010405
052705
052705
020504
001401
104001
012702
010277
017704
010405
052705

052705
020504
001401

DV11
1%:
156556

65%:

156550

023342

050023

156542

050022

15653¢

#4 ,R3
MOV
MSTCLR
R1
CLR
MOV
#8173 ,3aDVSCR
MOV
RO,65$
PERFORM . SETSCAN

.BLKW

MOV
RO,aDVSRS
PERFORM .LOAD .MODE

BIT13

DIGITAL EQUIP.

(ORP.

TO TEST & LINES.

JINIT DV11

sINIT SCANNER POINTER.

;SET SOURCE ENABLE

sPREPARE MASTER SCANNER.

sSET SCANNER

;POSITION OF

SCANNER.

;LOAD LINE NO.

sSET RX ENABLE.

#S.C+BIT4G+BIT1+BITO,aDVSFR

, SET RX DATA ENABLE.

#S.C+BIT4+BIT1,aBVSFR

;CLEAR RX DATA ENABLE.

076400

#BRB+BIT11+BIT10+BIT8,R2

156520
156504

R2.aDVSFR
aDVLCR,R4
R4 ,RS

00000+

#ITO,RS
#BIT1,RS

000002

RS.,Ré4

0020C0

43
1

#MIT10,R?2
R2.,aDVSFR

A
¥

156464
156450

MOV

000002
000001

104001

022746

DEVICE DIAGNOSTICS.

005200
005303
001312
000207

5%:

BIS
BIS
(MP
BEQ
HLT
INC
DEC
BNE
RTS

aDVLCR,R4
R4 RS
#MIT1,RS

#BITO.RS

RS,R4
5%
1
RO
R3
1%

;BRB MAT(CH DETECT.
;READ BR POINTS.
:

;BR A FALSE.
.BR B FALSE.

JMATCH DETECT FALSE?

;BR IF YES
JRX FLAG NOT FALSE.

<BRA RX FLAG.

sLOAD INSTRUCT]ON.
JREAD BR POINTS.
:
.BR B FALSE

:BR A FALSE.

:RX FLAG FALSE?
:BR IF YES
JRX FLAG NOT FALSE.
JUPDATE LINE NO.
;4 LINES DONE?
;BR IF NO.

JEXIT

JRRRNRARRRANNRANNEANRANRRY

TEST

TEST.

a A a

AR R AR

AR R AN RN

J*TEST TO SET RECEIVER ENABLE.
;*]SSUE A RESYNC
SIGNAL.
s*AND EXPECT BOTH RX F! AG AND MATCH DETE(T TO BE FALSE.
€ FOR ASYNC LINE CARDS ONLY.
s*THIS TEST WILL B
s RARRAARARAANRE
RS

022750
022756

023016

000027
002436
000000
001422
023066
000004
001424

001226
001216

1s127:

001236

#27,TSTNO

#.E0P NEXT

R
#0.
L00.03,STAT

001236
100%:

AARRRRAARARANNNRAARR
AR NN R I RANNANANCA RN NN

1008
PC,105%

L04.07,STAT
101%

JPLACE LINE NUMBER INTO RO
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
;GO DO THE TEST FOR LINE CARD 1
;PLACE LINE NUMBER INTO RO
;LOAD LINE CARD STATUS INTO STAT
sBR IF LINE CARD NOT TO BE TESTED

czovB8

MACY

SEQ 0077

N
czbovec PN

3229

023020

19-FEB=-79 13:11

004737
012700

013737

023066
000010
001426

004737
01270C
013737

000014
001430

004737

023066

032737
001001
000207
012703

004000

100402

104400

106412

005001
012777
010037
004537
00000
010077
004537
020000
012777
1

1064415

012702
010277
017704
010405
052705
052705
020504

Dv11 DEVICE DIAGNOSTICS.

001236

023066
001236

001236

102%:

103$:
105%:

1%:

156244

659%:

156236

023342

050106
076400
156216
156202

000071
000002

JSR

MOV

MOV
BM]

JSR
SCOPE

L12.15,STAT
1038
PC.105%

#ASYNC, STAT
.+4

MOV

¥4 ,R3

CLR
MOV
MOV

R1
#8173,aDVSCR
RO,65%

BLKW
MOV

1
RO,3DVSRS

MSTCLR

PERFORM

,SETSCAN

,L OAD .MODE

DIGITAL EQUIP.

:1S THIS AN ASYNC LINE

;BR IF ASYNC.
JEXIT TEST
cSET TO TEST & LINES.
JINIT DV11
sINIT SCANNER POINTER.
;SET SOURCE ENABLE

;LOAD LINE NO.
sSET RX ENABLE.

#BRB+BIT11+BIT10+BIT8,R2
R2,aDVSFR
;BRB MATCH DETECT.
aDVL (R, R4
;READ BR POINIS.
R4 RS
#31T0,RS
;BR A FALSE.
#B1T1.R5
;BR B FALSE.
RS ,R4
cMATCH DETECT FALSE?
43
;BR IF YES

HLT
INC

DEC

BNE

C(AR?

sPREPARE MASTER SCANNER.

MOV
MOV
MOV
MOV
BIS
8IS
M
BEQ
HLT

;ISSUE RESYNC.

#81T10,R2
R2,aDVSFR

aDVLCR,R4
R4 RS

#81T1.RS
#RITO RS
RS R4
58

]
RO
R3
1%

RTS

MOV

RO, -(SP)

+RX FLAG NOT FALSE.
+BRA RX FLAG.

;LOAD INSTRUCTION.
:READ BR PQINTS.
:BR B8 FALSE
;BR A FALSE.

JRX FLAG FALSE?

;BR IF YES

JRX FLAG NOT FALSE.

;UPDATE LINE NO.

;4 LINES DONE?
:BR IF NO.
SJEXIT TEST.

TXSHIFT:

156110

MOV

aDVL CR,RO

'"ttt'tfitittt*ttttttttt!'t'ttttttfitltti't*tttitttt'ttttttttl'fi't.t

023260

022737

023266

001404

000010

001242

CMP

#8.,CLKX

BEQ

JSEE_IF 8 BIT (CHAR

;OR 7 BIT W/PARITY ENABLED
;IF YES,BR

MACY

SEQ 0078

¢ SET SCANNER
;POSITION OF SCANNER.

#S.C+BIT6+BI T2+BIT1,3DVSFR

MOV
MOV

(ZDvB

CORP,

G0 DO THE TEST FOR LINE CARD 2
<LOAD LINE NUMBER
sLOAD LINE CARD STATUS INTO STAT
;BR IF LINE CARD NOT TO BE TESTED
:DO THE TEST FOR LINE CARD 3
sLOAD LINE NO.
sLOAD LINE CARD STATUS
;BR IF LINE CARD NOT TO BE TESTED
;DO THE TESTS FOR LINE CARD 4
;SCOPE THIS TEST.
;TEST ENTRANCE.

MOV

BIS
8IS
TMP
BEQ

5%:

PC,105%

#12. RO

8IT
BNE

MOV
MOV

000002
000001

010046
017700

LOB.11,STAT
102%

ROMCLK

156146

023252
023252
023254

MOV
BM]

BIT13

156230

156162

000207

PC,105$

PERFORM

002000

023250

JSR

RTS

000004
000010
023126
023544

101$:

B
PN

023270
023276

19-FEB=-79 13:11

022737
001404

000011

DV1TM

CMP

001242

023300
023302

023306

ROLB

000413

023310

042737

023316
023320
023322

106100
103004
000241

023324

052737

001000

023332

006037

023676

001000

023676

2%:

012600
000205

012577
052777
010046
005000
005777

BIC

H#BI1T9,DATA

ROLB

100004
104414
005200
001372
104000

156004

ROR

DATA

012600
000205
010046
010246
113502

2%:
RXSHIFT:

040000

023676
100000

004737
104416
105302
001356
012602
012600

MOV

1%:

155726

023462

155752

1$:

;IF

MOV
MOV
MOVB

BIC

CLR
cLC

ROR
ROR
ROR

BIS
BIS
JSR

MOV

CARRY SET

(LEAR IT SO DATA

;JSHIFT DATA

RN NN RANRRRNRAAAANNNRAARRANRRA
AN N R R AR RN N

(SP)+,RO

(RS)+,aDVLCR

RO, ~(SP)
RO
28

RO
1%

(SP) +,R0

RQ,=(5P)
R2.=(SP)
a@(RS)+,R2

#B1T14.3DVLCR

DATA
RO
RO

#81T15,R0
RO,aDVLCR
PC.CKBIT15

DATACLK
DECB
R2
BNE
1%

MOV

AN NN RN AR T A&

sSHIFTINF OF DATA TAKES PLACE.
JELSE START BEGINNING OF DATA
;JIN BIT POSITION 9.

ADVLCR

BPL
DELAY
INC
BNE

ANNANAANNRRA AR

c1F CARRY [S CLEAR OR NO DATA BR

MOV
CLR

EXIT

RAN AR AR A RS

;LOAD CARRY BIT WITH DATA

#81715,aDVLCR

ALT

JOR LESS THAN 8 BITS IN LENGTH WITH
;sOR WITHOUT PARITY ENABLED
;SINCE PARTIY IS ENABLED, ROOM
;MUST BE PROVIDED FOR INSERTION
cOF PARITY BIT ON THE END OF 8
;BIT CHARACTER

BIS

MOV

JWON'T BE SHIFTED INTO HIGH BYTE
;(BIT15) OF DATA LOCATION WHEN
#BIT9,DATA

MOV
EXIT
. MODE :
LOAD

156014

(SP)+,R2

(SP)+,R0

;BIT

15 FAILED

TO CLEAR

MACY

SEQ 0079

YES BR

;CHAR IS 8 BIT WITHOUT PARITY ENABLED

8IS

i$:
156022
100000

.1F

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

AR AR AN A AR ANA AR AR NN RN A AR

023336
023340

(2bvB

D/FTA

cLC

3%:

AR AN AN AN AR R R R AR AR AR R AR AR AR

8CC

023676

(ORP.

RORB
RRARS

DIGITAL EQUIP.

JSEE IF I BIT CHAR W/PARTIY ENABLED

AR RN ARSI

1$:

023676

#9. ., CLKX

BEQ
IR

106100
106037

DEVICE DIAGNOSTICS.

Jie+C

c
P11

023460

023462
023462
023464
023466
023472
023474
023476
023500
023502
023504
023506
023510

023510
023516
023520
023526
023530

023532
023532
023540
023542
023544
023544
023546
023554
023556
023560
023566
023570
023572
023600
023602
023604
023606
023610
023612
023614
023616

19-FEB-79 13:11

DV11

DEVICE DIAGNOSTICS.

000205
010046
005000
005777

100004
104414
005200

(KBIT1S5:
155676

64%:

104000
012600
000207
104415
012777
104415
000205

012777
104415

65%:
050021

155662

050022

155652

SILO.IN:

DIGITAL EQUIP.

CLR
TST

BPL

RQ,=(SP)
RO
aDVL(R

65%

DELAY
INC
BNE
HLT

RO
648

RTS

MOV

#BIT14+BIT12+BIT4+BITO,aDVSFR

MOV

(SP) +,RO

;BIT 15 FAILED TO CLEAR

HBIT14+BIT12+BIT4+B]IT1,aDVSFR

EXIT

050020

155640

SILO.OUT:

MOV
ROMCLK

#BIT144BIT12+B1T4 ,aDVSFR

EXIT

SETSCAN:

000010

155606

050102

155612

050102

155600

1%:

2%:

023620

MOV
8IS
MOV
BEQ
MOV
ROMCLK
INC
MOV
ROMCLK
INC
DEC
BNE

R3,-(SP)

#3]T3,aDVSCR
(RS)+,R3
2%

#BIT14+BIT12+BIT6+BIT1,aDVSFR
R1
#BIT14+BIT12+BIT6+BITT
,aDVSFR

MOV

MOV
cLC
ROR

EXIT

012777
104415
000205

012777
104415

050105

05310

155550

155536

SET.TMARK
:
MOV
ROMCLK

EXIT
C.R.TMARK:
MOV

ROMCLK

000205
0235646
023650
023651

MOV

ROMCLK
MOV
ROMCLK

000205

010346
052777
012503
001414
012777
104415
005201
012777
104415
005201
005303
001364
012603
0101CO

EXIT

001372

012777

000001
000
377

EXIT

SYNC:
DATPAT:

BLKW 1
.BYTE
.BYTE

#BIT14+BIT12+BIT6+BIT2+BIT0,3DVSFR

;SET/CLEAR “'SET TMARK''

#BIT14+BIT12+BIT6+BIT0,aDVSFR

;SET/CLEAR ''CLEAR TMARK''

*B<00000000>

*B<11111111>

;JALL ZERQ'S
JALL

ONE'S

CORP.

MACY
cz0v8
SEw 0080

D
P11

19-FEB=-79 13:11

DVv11

DEVICE DIAGNOSTICS.

023652

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

CO~NO
NS WN—=O

RSt

3409

“B<01010101>
“B<10101010>
“B<00000001>
“8<00000010>
~B<00000100>
~8<00001000>
~B8<00010000>
~8<00100000>
~B8<01000000>
~B<10000000>
“8<01111111>

7
COPYRIGHT 1975

DIGITAL EQUIP.

(ORP.

JALTERNATE ONE'S

;ALTERNATE

ZERO'S

.BYTE

023673
023674
023674
023676
023700
023727
023767
024032
€24076
024130

024202
024204
024206
024210
024212
024214
024216
024220
024222
024224
024226
024230
024230
024232
024234
024236
024240
024242
024244
024246
024250

024252
024254
024256
024260
024262

ENDPAT:

NPRLOC:

052377
046777

000000
000005

047111
042522
051124
041505
040522
052123

003

001
004

2
001260
000000

001

020105
042503
047101
044505
051516
041523

DATA:

EM1:
EM2:
EM3:
EM4:
EMS:
DH1:

.BYTE

0
0

.ASCIZ
CASCI1Z
LASCIZ
LASCIZ
LASCIZ
ASCIZ

.EVEN
SKIP=000g00
DT6:
.BYTE
SAVR1
.BYTE
SAVR?2
.BYTE
SAVR5
.BYTE
SAVR4
.BYTE
SAVRO

DT6

ZERO!

<377>/LINE CARD STATIC TEST/
<377>/RECEIVER DATA COMAPRISON ERROR/
<377>/TRANSMITTER DATA (OMPARISON ERROR/
<377>/RECEIVER PARITY ERROR NOT DETECTED/
<377>/TRANSMITTER PARITY ERROR/
<377>/MSTSCAN
DVSFR
EXPECTED
FOUNM
L INE(8)/

6.3
6.1

6.6

6.1
2.1

.ERRTAR:

EMI
DH1
DT6
EM2
DH?

024130

JHALT 1
JHALT 2

EM3
DH1
DT6

JHALT 3

DH1

JHALT 4

c(ZovB

MACY

SEQ 0081

E
cZovBC.P1Y

3446
3447
3448
3449
3450
3451

024264
024266
024270
024272
024274

19-FEB=-79 13:
11

024202
024076
024130
02420¢
000001

Dv11

DEVICE DIAGNOSTICS.

CORMAX:
.END

D16
EMS
DH1
DT6

JHALT 5

7
(OPYRIGHT 1975

DIGITAL EQUIP.

(ORP.

MACY
cZbvB
SEQ 0082

F
CZDVBC.P11

ADRCNT= 003443
ALU
- 010000
ASYNC = 004000
AUTO.S
BCC
=
BINWRD
BITO
=

006624
060000
003746
000001

= 000002

BIT10 = 002000
BIT11

= 004000

BIT12 = J10C00

8IT13 = 020000
BIT14 = 040000

BIT15 = 100000
BIT2
= 000004
BiT3 = 000010
BIT4

= 000020

BITS

= 000040

BIT6

= 000100

BIT7

= 000200

BIT8

000400

BITY

001000

BRB
BRW
BRX
(HRCNT
CKBIT1
CLKX

070000
063014
003076
003744
023462
001242

19-FEB-79 13:
1

CROSS REFERENCE

619«
734
81
2420

655+

664N

1357
2547

14609
2675

705«

706

1129#
78#
7

2163
2474
3012
3386

704
2088

2572
3121

61a

2357

2231
3255

3362
S84
2456
S7#
3362
Séen
64
684
674
2002
2882

745K

1461
2820

1515
2979

1567
3083

1643
3170

886
2235
2572
%ggg

1249
2245
2577
3041

1314
2256
2587
3100

1662
2265
259¢
3110

1673
2340
2701
3120

2002
2350
2706
3130

886
2164
2587

897
2236
2597

1249
2245
2701

1256
2257
2727

1265
2264
2737

1269
2341
28%4

3129
886
2366
886

3372
74

3183
1250
2999
1315
75

3375
75

3185
1315
3023
1414
77

3386

3192
1909
3037
1466

3200
2160
3096
1520

3253
2231
3105
1575

2064

2144

2215

2320

2077
2644
2894

2083
2449
2933
3269

2100
2471

1793

2077
2489

2991

2011
2451
3101
3375
2336
3255
2160
3116

2345
3264
2226
3187

3355

3357

2331

1591

3182
3355

2430
3252
3357

3333
2904

3253

3386

3201

2369
2935
3357
2261
3187
1909

2603

2911

1667

1690

2155
2991

1669

1803

3355

3109

1913

2587

2727

2858

1669

1803

1913

2451

2597

2737

1522

2904
634
2448
624
2082
2731

1933
2295«
2528+
2795+

1893

2495

1669

1583

1590

2597

2858

2882

2231
3187

2336

2357

2005
2686

2022
2705

1764~
1923

1770+
1930

1686

2576
3187
5494

707

1526

1618+
1807
1936

2301+
2534w
2801+

723+

1585

1626%
1813
2123«

2307«
2540+
2807+

7614

1593

1630+
1820
2128+

2313«
2562
2813«

742

2431

1636«
1823
2133«

2335
2567
2864

2558

1677
1826
2138+

2356
2586
2958

2687
1700
1864«
2159

2395+
2646
2963«

MACY

SEQ 0083

3390

Co4
2858
654
2904
64#

794
459
460
703
1472
1504
1776+

c/0v8

TABLE == USER SYMBOLS

1726
1885«

2204
2413«
2664*

2996

1758+
1917

2209+

2434
2691
3020

2230
2662
2696
3034

2251
2522+
2725
3282

CLK.A
(.K.B
CLKk.C
CLK.D
CLR.TM
CNVRT =
CONVRT=
CORMAX
CREAM
(SRMAP
CYCLE
DATA

001416
001417
001420
001421
023634
104411
104410

024274

001306
006626
005666
023676

DATABP
004276
DATACL= 104415

DATAHD
DATPAT
DELAY =
DEVADR
DH1
D16
DVA(CTV

DVCROO
DVCRO1
DVIRO2
DVCRO3
DVCRO4
DVCROS
DVCROG
DVCRC?
DVLCR

DVNSR
DVNUM
DVRIC
DVRLVL
DVRVEC
DVSCR
DVSCRH

DVSFR

DVSRA
DVSRS

004264
023650

19-FEB=-79 13:11

3285
250
251w
252#
2534

1659

2094
207#
34504

czov8

CROSS REFERENCE

TABLE -~ USER SYMBOLS

1618
1624
1630
1636
1907
ggg

1758
1764
1770
1776
2844
482

1864
1871
1878
1885
33894
484

2123
2128
2133
2138

2194
2199
2204
2209

2295
2301
2307
2313

2395
2401
2407
2413

804

806

862

919

994 «

995

997~

1002

1003+

1004

1007+

1713

2637«
3018+
1680

1814

2640%
3032+
1728

1828+«

246.*
3289+
1732

1833

2465«
3294x
1805

1924+

2559«
3304»
1808

1938+

1943

2522
2528
2534
2540

3330~

2156+«
2584~
34174

2227+
2688+

2249+
2694«

2332+
2720+

1926

2157

2228

1816

1915

1918

1163

1169+

1170+

1174

1193

1025
1520+
2006

1252
1521
2023

1264
1525+

2860

2870

3439
3440

3442
3443

3445
3446

3448
3449

904
1467
1662

1023«
1471
1673

1024
1473
1733

2958
2963
2968
2973

2583«

3336

2689

2795
2801
2807
2813

2565+«
3306«

2993

2560

104414

003440
€24130
024202
001300
001500
001524
001550
001574
001620
001644
001670
001714
001370

001402
001301
01366
001354
001352
001362
001364
001400

001376
001372

435

984

989

2083
2474
3107
3346

23¢7
3025
3315

1022«
1039«
1009+«
860+

1023
1040
1038
893~

2014

209

2454

2492

2600

2907

897«

1008+

1019

3089+«

3176~

3369«

1251«
1801+«

1256
1803+

1263«
1903«

1269+
1911

1316+
1913«

1020+
1032+
1692«

1021
1033
1793«

1156«

1157

1164

1166

2077«
2345%
2591x
2905+
3185+

2079«
2357«
2598«
2933«
3188+

2082
2366%
2701=
2935~
3197«

2088+
2444%
2705%x
3000«
3253«

2089
2446
2727~
3007+
3256«

2097
2448+

2731«
3009«
3265«

2099+
2452+
2738w
3024+
3355+«

1029+
1025«

1030«
1026«

1031
1007

1666*
7365«

1689+
1418«

1800~
1470+

1910%
1524

1415
1591«

2233
2592
3189

2359
3010
3312«
1035

1135«

2449
3098
3334~

1366
1584

2346
3001
3311+
1034+
488

2430x
3039
3327«

MACY

SEQ 0084

WRIN)
— —
-\
N =N
VO
—=
O ~NO NN

CZDVBC.P1T

1660+

2005+
2231
2473
2858+
3097+
3362+

2879+
1656+

2254

3257

1667+

2011+
2240+

1669+

2880+
3106~
3372~

2012
2252+
2572
2882+
3117«
3375~

1665+

1679~

2490+

H
CZDVBC P11

19-FEB~79 13:
1

CROSS REFERENCE

1694«

DVSRSH
DVTLVL

DVTROO
DVTRO1
DVTROZ2
DVTRO3
DVTRO4
OVTROS
DVTRO6
DVTRO?
DVTLEC
DV.END
DV.MAP

OV00.A

001374
001360
001502
001526
001552
001576
001622
001646

1796~

1815+

1906*
2989

1925+
3093«

2153+
3180«

2224+
3250

414

997

1007

1131

1136

1185

829+
540+

781s

794

808+

863+

2865+

2874~

1040
995

282¢

1061+
1004
387

1042
1133

3435
3438
3441
3444
3447
34154
389
385«
809

511
473+
8124

1028+
1043~

MACY
czpve
SEQ 0085

TABLE -- USER SYMBOLS

2884+

2854~
1027+
1042+

001672
001716
001356
001740
001500
001504
001510
001514
001520
001530
001534
001540
001544
001554
001560

1727«

1029

001564
001570
001600
001604
001610
001614
001624
001630
001634
001640
001650
001654
001660
061664
001674
001700

EM2
EM3
EM4
EMS

ENDPAT
ERRCNT
ERRFLG
ERRMSG

001704
001710
001720
001724
001730
001734
023700
023727
023767
024032
024076
023674
001232
001311
004252

3624
3644

34184
3418%4
34184
3418#
34184
2925
16424
177#
791

2329+

2429+

2556+

2685+

I
CZDVBC.P11

ERTABO
004366
EVENCH
020310
=
EXIT
EXITER

19-FEB~79 13:11

806

CROSS REFERENCE

(zpv8e

TABLE =-- USER SYMBOLS

838#

FIX.00
HALTS
HILIM

3322

3341

3359

1058

1063

10974

3364

3384

2225

2330

3094

3114

3181

1676+

1806+

2700+

2861+

2988+

1620

1760

1626

1766

1632

1772

3388

3392

6614

ICOUNT
INBUF
INIFLG
INSTER=
INSTR =

543w
9694
409+

INSTR2

L IGHT
LIGHTS
LIMITS
LOAD .M

LOBITS
LOCK
LOGICA
LOKFLG
LOLIM
LPCNT
LSTERR

L00.03

023342
003442
001220
002560
001312
003434
001224
001234
001422

L04.07

001424

LO8.11

001426

L12.15

001430

MASKX

001244

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

MASTEK
MCRLF
MCSRX
MDATA
MEPASS
MERRPC

MERRX

MERRZ
MERR3

MLOCK

MNEW
MPASSX
MPFAIL
MR

2154

001406
001410
001412
001414
005400

005104
005330
005624
005145
005454
005355
005174
005243
005301
005402
005344
005107
0uU5100
005171

780~

1619+
1872

864+

1340
2397
1344

2524

2959

2403
1348

2530

2964

3070

2409
1352
2415
1714

1400

2536

2969

2542

2974

2414+
2802+

3074
1638
3078
1777+
2487
2808+

139¢

1396

1404
1721

2541~

2659+

1946

2396+
2665+

1046
1051
1056
1061
9604

2396
2402
2408
2414

2523
2529
2535
2541

948

960#
731
9604
9604
9604

960#
9604
9604
9604
960#
9604
9604

1092

9604

MACY

SEQ 0086

1550

1554

1558

1562

1771+

3066

3153

3157

3161

1778

3165

1834

2523
2814+

3251

J
czoveC.PI
MRESET= 004000
MSTCLR= 104412
MTITLE
MTSTN
MTSTPC
MVECX
NEXT

001000
005356
005267
005336

001216

3
NOLIST= LA 2 22
NPR
= 040000
NPRLOC
023674
ODDCH
020262

PARAM =

PARAM1

19-FEB=-79 13:
N

2lia
2149
119#

803

9604
479
1364
197?*

764
34164

104405

001214

9604
544

2045+

893
1309

2325

1360
2425

1464

2681

1518

2837

1570

2984

1647
3087

2069

1787

1897

1548+

1616+

1862+

1738

1797

3174

3244

1994

1071

834
2121+

1224+

1338+

2192+

2393+

1390+

2520+

1116

2493

1246
1817

L474x
13N
1844

2158
2460
2695
2990
8684
828
546

380«
825

222¢
2469
2703
2995

2601
6374

2672
644

648

1321

1574
1899

1657
1908

1845

2225
2499
2719
3019

508

2229
2554
2725
3033

2327
2566
2752
3094

14420

1496+

2644+

2793

1659
1927

1681
1954

2956+

3064*

3221+

2330
2574
2839
3114

2334
2582

2151
2438
2683
2927

2427
2589
2896
3248

2844
3178

1196+

535

RESV16
RESOS5 = 104407

LG8
1668

ROMCLK= 104415

RUN
RASHIF

001304
022402

SAVACT
SAVNUM
SAVPC

001302
001303
001276
001260
001262
001264
001266
001270

SAVRO
SAVR1
SAVR?2

5AVR2
SAVR4

1674
1574
1584
1594
1604
1614

2078
2728
3254
993«
2355
3033
1167

564
1670

547

1691

836

1794

867

1802

1286+
1804

1094+

1904

2080
2739
3356

2090
¢857
3358

2445
2881
3373

2447
2883
3376

2453
2895
3387

2472

2435
33234

2438

2469

2561

2566

2585

1000+

1001«

MACY

SEQ 0087

2768#

626
384«

004470
012600
POP1SP= 005726
POP2SP= 022625
PS
= 177776
PUSHRO= 010046
PUSH1S= 005746
PUSHZ2S= 024646
QV.FLG
061313
RAM
= 020000
RAMCLR= 104413

RE TURN

408
9604

638

PF TAB

004300
004414
002572
001404

880
865
2220

czov8

TABLE =-- USER SYMBOLS

1072

003304
PARBIT= 040000
PARERR
003360
PASCNT
001239
PERFOR= 004537

RESREG
RESTAR
RESTRT

CROSS REFERENCE

33N

1095
1912

24N
2934

2690

K
CZDVBC.P1

SAVRS
001272
SAVSP
091274
SAVOS = 104406
SCOPE = 104400

SCOP1 = 104401
SERV.G
004640
SETSCA 023544
SET.TM
SILO.I
SILO.0
SKIP
=
SPACNT=
SSWR
STACK =
STAT

Sv05
SWR

023622
023510
023532
000000
003745
000176
001200
001236

1624
163
2034
1914

3425

782
1241

1306

.
1355

2427

1723
2574
2460
34184
704 %
1124
SLH
1484
1357
1506
1760«
1983«

2195«
2348
2524%
2672
2847
3078+

SW14

= 040000

20#

100000
001506
001532
001556
001602
001626
001652
001676
001722
001512

688

2327

1934
523
1246

= 000001
= 000002
= 000004
= 000019
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000
= 002000
= 004000
= 010000

Sw15
=
SYNAQO
SYNAQ1
SYNAQZ2
SYNAO3
SYNAQ4
SYNAOS
SYNAO6
SYNAO?
SYNBOO

673

2213

SWO0
Sw01
Sw02
Sw03
Sw04
SWOS
Swo6
SWGZ
Sw08
SW09
Sw10
SW11
Sw12

= 020000

LROSS REFERENCE

2142

6734
1234
764
1064
34n
334
320
3x
304
2N
28#
27H
264
254
24N
234
224

sw13

003452
001202

9-FEB-79 13:11

214

194
2864
2974
3084
3194
3504
3414
3524
3634
2884

1718
770
1311

2318

2618

2554

2683

1843
Gl4n
1321

725
405
381
1226*

728+

74624

450
1230%
1396+
1515
1772«
2047+

835
1234+
1400%
1550
1778«
2051~

2908
3083
400
771
1686
424
1064

830
554
832
533
567

776

2205+
2403«
2536+
2688
2959%
3153«

2210
2409%
2542+
2692
2964x
3157«

405+
776
1695

410
823
2875

771

2545

33854
2896
2719

2927
2729
2608

1392«
1510«
1766+
1987«
2200+
2397x
2530%
2675

1407

2609
.
1738

1954
<703
2582

MACY
cZ0vB
SEQ 0088

TABLE =-- USER SYMBOLS

1953
915
1649

1844
2589
2499

2839

857
1238+

1604~
1554+
1783
2055«
2215
2415+
2547
2694

2969%
3161+

424
830
2885

1459

2669

1513

2818

1565

2977
3045

3081

1641

1781
3168

3238

1891

1990

2062

1899

1955

1996

2071

2151

2227

1340«
1456+
1626+
1888+

1344>

2753

2923

1789

1845

3091

3178

33544
2752

2922

33614

1291+
1409
1558+
1811
2059«

1295+
1444+
1562+
1867«
2064

1299
1448+
1567
1874+

2986

3248

33674

2227
2420
2559
2712
2974x
3165«

2243
2432
2563
2797«
0979
3170

2124+
2249
2437
2565
2803«
2994
3223«

2134~
2303«
2461
2648+
2815«
3032
3231«

429
832

434
916

453
917+

932«

526

1461

1632+
1893

2139+
2309+
2478
2654+
2820
3066
3235+

533

933«

1348+

1498+
1638+
1975«

2144
2315«
2480
2660+
2834
3070~
3240

554

934+

SYNDOS
>YNDO6

SYNDQO7

S.C

TEMP
TEMP1

TEMP?2
TEMP3
TEMP4

TEMPS

TKCSR
TKDBR
TLAST
TPCSR
TPDBR
TRPOK
TSTNO

TST1
TST10
IST11
TST12
TST13
TST14
TST1S
1ST16

005562
001246

001250
001252
001254
001256
001204
001206
022750
001210
001212
003762
001226

007260
011346
012242
012766
013542
014950
014402
014700

708
1524

1936+
153
2855
1544
1554
1564
1274
128#

1090
129#
1304
754H
1404

1547«
2955+
1078
1548
1616
1756
1862
1973

2045
2121

1866+

2S04
3014
3124
3234
I34n
3454
3564
3674
260#
2614
2624
2634
2924
3034
314n
3254
3364
3,70
3584
3694
774#
2471

2835

149#

001240
001516
001542
001566
001612
001636
001662
001706
001732
001432
001434
001436
001440
001522
001546
001572
001616
001642
001666
201712
001736
050000

023646

NVIAN
—

SYNCOO
SYNCOT
SYNCO2
SYNCO3
SYNCO4
SYNCOS
SYNCO6
SYNCO7
SYNC2A
SYNC2B
SYNC2C
SYNC2D
SYNDOO
SYNDO1
SYNDQ2
SYNDO3
SYNDO4

001632

001656
001702
001726

294
3104
3214
3324
3,30
3I54m
3654
2834+

_——
e
—

SYNC
SYNCX

001536

001562
001606

CROSS REFERENCE

—_—t

SYNBO1
SYNBO2
SYNBO3
SYNBOQ4
SYNBOS
SYNBO6
SYNBQ7

19-FEB~79 13:11

OOOO

CcZbvBC P11

2849

1873~

2851

1880+

TARLE

2890

1887+

MACY
czove
SEQ 0089

-- USER SYMBOLS

2892

33944
2296+

2300+

2308+

214

2332

2354

1921

1866
1873
1880
1887

1653

2701

9714
420%
2836+

1793

2727

2894

1903

2002
2933

2020
2935

2077
3007

2079
3183

2097
3185

2644
3253

2446

962

1193+

1194+

1706+

1709«

1710

1826+

1829+

1830

1598+

1812«

1841+

1922+

1951+

2824+

2852+

2853+

1288«

1337+

1389+

1441

929+
1582~

2878+
2833«
2722

2879
2853
2755+«

914
590

921

942
766

923

773
775«

928
930«

870

1075
1972+

1082
2044

2120+

2869
2830+
2720
2723

1861«

3220+

596

2867

2756

1084

944

1223+

2191

2292+

2392+

2519+

264 3

1495+

2792+

m
czovec.P1M

1ST17

016020
016652
017424
020336
021342
022046
022436
022750
007744

TST4
TSTS

010152
10366

1517
TTST
TWOSYN=
TXSHIF
TYPDAT
TYPE
=

011042
002702
010000
023252
004266
104402

TST30 =

TST16

TYPMSG

wennnn

010614

460+

5274
2692

431

2847

798
1069

455
799
1087

4663

476

1912

12844
17464

1176

477
805

479

1092

803

807

481
811

483
816

571
861

20N

2088

2451

2489

2597

2737

2858

2882

13284
17514

13324
18524

13844
19624

802

007104

003742
004254
004060

002604
002626
= 030000

XHEAD
XPASS
XSTATQ
XTSTN
XVEC
$CRAP =

3418

004166

VECMAP

$€

MACY
cz0v8
SEQ 0090

TABLE -- USER SYMBOLS

007542

1ST20
1ST21
TST22
T1S123
TST24
TST2S
TST26
1S127
TST3

XCSR
XERR
XFR

CROSS REFERENCE

015334

TST?2

WRDCNT
WRKO.F
XBX

19-FEB~-79 13:11

005461
002620
Q05506
004374
002612
177777

= 000031

= 000027

- 000017

= 024274

1803

12194
16064

21874
30524
12254
1616

21934
3064

22884
31404
12904
1756

23804
31464
1338
17574

23884
32114
13394

25154

16314
19684
26234

13914
1973

1442
19744

1862

2393
315¢4

2394k
3221

2521k

2644

1221
14434
1852
2189
26454
321°

22944
3151

13554
1606

2275
2790
32224

2290
27944
3484

2294k
2940

1332
15494
2034

2390
29574

2042
2394n
3052

21748

22n

1974

1994

2034

2054

1054
2814
2964

2834

964
1684

292~

1280
1493
18634

1954

1044
1704
2954

1286
14974
1962

12904
1539
1970

1064

2974

1114

2854
2994

1144

2864
300#

N
C(ZDVB( P

19-tEB-79 13:
N

305#
319
333
3474
36204

874
1358
1784

.BEGIN
. CNVR]
.CONVR
.DATAC
.DELAY
.ERRTA
LHLT

. INSTE
. INSTR
.INST

.MSG
.MSTCL
.PARAM
PFAIL
.RAMCL

.RESOS
ROMCL
. SAVOS

.SCOPE

.SCoP1
.START
. TRPSR
. IRPTA
.TYPE

002332
003542
003536
004576
004476
002436
24230
004002
003224
003120
003140
003142
004556
003244
0064402
004516
003504
004566
003444
002634
003020
001742
003750
001314
003044

CROSS REFERENCE

3064
3204
I34n
3494
3634
91w

1410
17904

2152#
2421
2876

307#
321n
3354
3504
3644
922

1462
1810

308+
3224
3364
3514
3654

929
1516
1839

2216
24284
2886

22234
2458
2920

8484

856

6954
H
694

900#

871
3221
34314
7634

601
5804
604
5854
8924
6124
382
8794
6834
8964
6694
S16#
5544
3804
751
756
S64LN

392

MACY
czove
SEQ 0091

TABLE -- USER SYMBOLS

3094
3234
338#
3524
3664
943

1568
1894

2238
2497
2980

3104
324M
3304
3534
3674
9704

1580
19004

2247
2505+
29874

311w
3254
3404
354n
3684

Q724

1644

19¢0

2259
2548
3084

3124
3274
3410
3554
3694

974LM
16504
1949

2267
25554
30924

3140
3294
3430
3574

1179
1674

2016
23284
2676
31794

317
331»
3454
26500
851

12474
1696

2072#
2352
2750
3244

3184

3324
3464
3614
860

13124
1716

2093
2364
2821
33944

cZovBC.P1N
DVEND
DVFRNT
HLT

$BUFFE
$CK1S
$CK150

19-FEB-79 13:11

1»
»
55#
1735

2353
3006
»
14

909
1840

2365
3015
966
3335

1320
2017

1430

14864

2373
3030

$LCO2
$LCO2A
$LCO3
$LCO3A
$LCO4
$LCOS

%
14
1%
1%
14
1%

1327
1538
1605

1377

1745
1961

1851
2033

1213

#
1%
%
1%

2110
2173
2379
2507

$LC10

2939

$LC12
$LC13

14
14

3139
3210

3323

2290

2390

$LC11

MSG
SPFAIL
SRAMCL

14
14
4

$SCOPE
$SETLI

14
%

SRXSHI

$SETSC
$SETSY
$SET.T
$SILOI

$SIMB(C

$TRPDE

$TSTN
$TXSHI
$VARIA
$xZ

2777

51¢
1221

213#

191

1w
»
1w
1606

%g??

2498
3104

2581
3113

2596
3124

2607
3133

1532
2104

1581
2167

1589
2239

1597
2248

1664
2260

2710
3195

2736
3204

2744
3263

2751
3272

2903
3320

1675
2268

2913
7351

1717
2344

2921

2274

2622

960
844
871

3385
3354

2290

2459
3044

1478
2094

3051

1%
1%
14
1%

MACY
c2pv8
SEQ 0092

1070

SLCO6
$LCOGA
$LCO6B
$LCO7

1424
2087

1268
2010

3343
3389
975
465
3418

$LCO7A

1371
2027

1255
1950

14
1#
1Y
1%
1%
14
1%
1»

TABLE == MACRO NAMES

465

$CLR.T
$CYCLE
$EOP
$F INI
$GETFL
$GETPA
$HEADE

$LCO1T

CROSS REFERENCE

3366

1221

2390

3278
117
1214
1611

%g?g

2517

1286

2641

2790

2953

1439

1493

3061

3148

3218

1613

1753

1859

1970

2042

2118

2189

193

195

197

199

201

203

205

207

209

211

213

215

217

1286

1335

2641

2790

2953

3061

1493

1545

3148

3218

1613

1753

1859

1970

2042

2118

2189

1219
1746

1280
1751

1284
1852

1328
1857

1332
1962

1378
1968

1384
2034

1431
2040

1436
21N

14
21164

1490

1539

1543

2174

2187

2275

2508

1387

2515

1439

1545

2517

2388

1335

1387

2623

2639

2778

2788

2940

2951

3059

3140

3146

c
C(ZDVBC.PI
. ABS.

19-FEB=-79 13:11

024274

ERRORS DETECTED:

CROSS REFERENCE

000
O

(ZDVB(C,CZDVBC/SOL /CRF/DOC=CZDVBC.MA(C,(ZDVR(.P11
RUN-TIME: 31 45 3 SECONDS
RUN=TIM RAT]Q: 279/81=3.4
CORE USED:
27k
(53 PAGES)
DOCUMENT PAGES:

TABLE

-- MACRO NAMES

cZ0bvB

MACY

SEQ 0093