Digital PDFs

AC-T614E-MC

September 1986

322 pages

Original

119MB

view download

OCR Version

143MB

view download

Document:	Micro Fiche Scan Name of device(s) tested: DEQNA Test description: DEQNA FUNC TEST MAINDEC Number or Package Identifier (after SEP 1977): CZQONARQ Fiche Document
Order Number:	AC-T614E-MC
Revision:	000
Pages:	322
Original Filename:	CZQNAE0__DEQNA__DEQNA_FUNC_TEST__AH-T615E-MC__1986_gray.pdf

OCR Text

Micro

Fiche

Scan

Name of device(s)

tested:

DEQNA

Test description:
DEQNA

FUNC

TEST

MAINDEC Number

Package

Identifier

(after

SEP

1977):

CZQNAED

Fiche

Document Part Number:

AH-T615E-MC

Fiche preparation date

unknown,

using copyright year:

1986

Image

resolution:

8-bit gray levels,
COPYRIGHT

(C)

max.

quality

for

1984-86 by dlilgliltlall

archiving

elBT
4V |

.......t.Q.C.......I.!.O...O...‘.....C.C'O.‘...‘.'...‘..'..‘..“.'.'“.....l.l"“...l..“.‘“..“
OOOOOOOOOOOOOOOOOOOOOOOOOOONO0 00000

BEE R R a e R R R EARARARRRRRS 83882 8s5eseagssesnes

e bt
e © O O O O O

CZQNAEO DEGNA FUNCTIONAL TEST

VAX-11 Bliss-16 V4,0-579

26-Mar-1986 17:01:04

DISK2:[SCODA.QNA.ZQNAJZGNAL.BLI;1

IDENTIFICATION

PRODUCT CODE:

AC-T614E-MC

PRODUCT NAME:

CZQNAEO DEQNA FUNCTIONAL TEST

PRODUCT DATE:

APRIL 2, 1986

MAINTAINER:

MSD DIAGNOSTIC ENGINEERING

AUTHOR:

S. MAZURCZYK

THIS INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILTY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILTY IS ASSUMED

FOR THE

USE OR

RELIABILITY OF

SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED COMPANIES.

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP
DECUS

SEQ 1

27-Mar-1986 07:35:34

UNIBUS
DECTAPE

MASSBUS

Page

(1)

TABLE OF CONTENTS

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
ASSUMPTIONS
OPERATING INSTRUCTIONS
COMMANDS

AUNFO

OUVAUNFO

o e
0 e o e

26-Mar-1986 17:01:04

TEST SUMMARIES

nN=Oo O

27-Mar-1986 07:35:34

GLOBAL DEFINITION MODULE

MAINTENANCE HISTORY

e
B0

888888

3355558 g8 8

ot o e o ot e o o e o et e et et

BRpRRERREGRARGaaeE ©

5.
-

(=3

nnnnnnnnnnnnnnnnnnnnnnn
OO0

y—r—

CZQNAEO DEQNA FUNCTIONAL TEST

VAX-11 Bliss-16 V4,0-579

SEQ
2

DIS2:([SCODA.QNA.ZQNAJZGNAL.BLI;1

Page

(2)

e o se

GENERAL INFORMATION

The DIGITAL ETHERNET Q-Bus Network Adapter (DEGNA) Field Functional

Diagnostic nggra- (ZANA) performs extensive functional testing of

the DEQNA/M7

Bn'

module for Q18 or Q22-Bus based PDP-11 systems. ZGNA

am _attempts to

its (FRU's): DEQNA,

isolate faults to the following Field Replacable

bulkhead assembly, transceiver cable, circuit

breaker ( fuse in buikhead assembly ) and transceiver. This software

alsolottupts to localize faults to the functional areas of the DEGNA
module.

e
o
o e e et e o

A test operator controls testing of the module from a console

( hard copy or CRT )

This_ diagnostic

runtime services

has been

written for use

software (supervisor).

with the diagnostic

These services provide

the
interface to the operator and to the software environment.
For a complete description of the runtime services, refer to the
XXDP+ user's manual.
There is a brief description of the runtime
services in section 2 of this document.

1.2

SYSTEM REQUIREMENTS

The ZANA software operates on a typical 'newer PDP-11 processor’ system
that has one or two DEGNA modules on the Q18 or @22 system bus.
The internal and internal/extended 1
mode tests do not
require the transceiver or the 1
connector to be unplugged.

that has no network cable attached.

Testing DEGNA module and its interface to the Ethernet requires
following hardware:
-

ical system ( PDP-11/23 Plus, ORION ) with Q@-Bus,

- DE&M module

- Minimum of 28K words of memory ( supporting block or non-block mode ),

L. ¢
m assembly,

connector

SEQ
3

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZG
.BLI;1
NAL

The external loopback mode may be used with a terminated transceiver

2
2
2
o

A
A
B
B
A
B
oot ol cloa ool AR B

1.0

27-Mar-1986 07:35: 34
26-Mar-1986 17:01: 04

e e

[

Petd

2
2

=d=d

OOOOOOOOOOOOOOOOOOOOO0

ERRRRERREE S :

CZANAEC DEQNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE

T apt

ZANAL
v01.0

Transceiver cable,

(

le loopback

male

and transceiver ( H4000 ).

tor,

connector,

Part # 12 221 96-01 )
Par

Page

3
(3)

e e e

e et

e e et s

CZANAEO DEGNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE

1.3

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

RELATED DOCUMENTS AND STANDARDS

XXDP+ Supervisor/User's Manual

1.4

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQGNA .ZQNA1.BLI;1

- ( CHQUS ).

ASSUMPTIONS

It is assumed that the system has been tested without DEGNA and found
working before this diag\ootic is run, or that DEGNA DEC/X11
Exerciser has dropped
DEQNA option module when running system test.
2.0

OPERATING INSTRUCTIONS

This section contains a brief description of the runtime services.
for detailed information, refer to
XXDP+ User’'s Manual (
)

There

are eleven legal commands for the diagnostic runtime services

(supervisor).

This

section lists

brief description of them.

the commands

and gives

very

The XXDP+ User's Manual has more details.

COMMAND

EFFECT

START
RESTART

Start the diagnostic from an initial state
Start the diagnostic without nmtuhzm’

CONTINUE
PROCEED

Continue at test that was interrupted (after tC)
Continue from an error halt

EXIT
ADD

Return to XXDP+ monitor (XXDP+ operation only!)
Activate a unit for testing (all units are

DROP
PRINT

Deactivate a unit
:
ttes
Print statistical information (if implemented

DISPLAY
FLAGS
ZFLAGS

Type a list
of all device information
Type
the state of all flags (see section 2.3)
Clear all flags (see section 2.3)

considered to be active at start time

by the di

tic - section 4.0)

A command can be recognized by the first three characters.

So you may,

for example, type

"STA” instead

of "START".

Page

(4)

o
0 0 e

SERERERERAIN

OOOO00OO0OOO0OONO0

C 0201

e e o o et

e o o o o o o

o o o o o o

e o s s s

CZANAEO DEGNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE
2.2

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQGNAJZ.BLI;1
QNAL

SWITCHES

There are several
switches which are used to modify supervisor
ration. These
switches are
appended
to the legal
commands.

All

the

legal

switches

are

tabulated below with a brief

description of each. In the descriptions below, a decimal number
is designated by "DDDDD".

/TESTS:LIST

Execute onlz.thogc tests specified in
the list.
ist is a otrmg of test

numbers, for example - /TESTS:1:5:7-10,
This list will cause tests 1,5,7,8,9,10 to

/PASS : DDDDD
/FLAGS:FLGS

/EOP :DDDDD
/UNITS:LIST

be run.

All other tests will not be run,

Execute DDDDD passes (DDDDD = 1 to 64000)

Set op:gifisdsflm.
in section

2.3,

flags are described

Report end of pass

after eve

D&D‘B‘o’uuonlx. m-1uu5§o)

TEST/ADD/DROP on ! those unitwihod
in the list.

List

example
-

75:0:5:10-12

use units 0,5,10,11,12 (unit numbers = 0-63)

Example of switch usage:

START/TESTS:1-5/PASS:1000/E0P: 100
The effect of this command will be:

1. Tests 1 th
S will be executed.
2. All units will be tested 1000 times.
3. The end of pass messa
will
ges
be
printed after each 100 passes only.
A Switch can be recognized
the first three characters.
You
may, for example, type
"“/TES:1-5" instead
of “/TESTS:1-5".

Page

(s)

CZGNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

0 e ot e et o e o o o o et o e et

GLOBAL DEFINITION MODULE

26-Mar-1986 17:01:04

Below is a table that specifies which switches can be used by

each command.

TESTS

START

RESTART

CONTINUE
PROCEED
DROP
ADD
PRINT

DISPLAY

FLAGS

ZFLAGS
EXIT

PASS

FLAGS

EOP

UNITS

X
X

X
X
X

VAX-11 Bliss-16 V4.0-579

SEQ 6

DISK2:[SCODA.QNA.ZQNAJZQGNAL.BLI;1

Page

(6)

H1
ZANAL

CZANAEO DEGNA FUNCTIONAL TEST

v01.0

C 0232
CO033
C 0234
C0235
C 0236
C 0237
C 0238
C 0239
C 0240
C 0241
E %

C 0244

€ 0252
C 0253

1
1

C 0255
C 0256
C0257
C 0258
€C 0259
C 0260
Co261
C 0262
C0263
C 0264
C 0265
C 0266

1
1
1
1
1
1
1
1
1
1
1
1

A
T 0 B
i
e

1
1.
1
1
1
1
1
1
1
1
i

1
1
1
1
1
1

Co0254

—

GLOBAL DEFINITION MODULE

C0245
C 0246
C 0247
C 0248
:
C0249
: C0250

Co0251

;
;
:
;

27-Mar-1986 07:35:34

2.3

;
Flags are used to set up certain operational parameters such as
loopi
on error.
All flags are cleared at startup and remain
clea
until explicitly set using the flags switch.
Flog:
are also cleared after a start command unless set using t
flag switch.
The ZFLAGS command ug also be used to clear
all flags.
with the exception of the START and ZFLAGS commands,
No commands affect the state of the flags;
they remain set or
cleared as specified by the last flag switch.

FLAG
====

HOE
LOE
IER=*

IBR*

IXR+

E 82293

Co0271
€C 0272
C0273
E g;g

1
1
1
i

C 0276

PRI
PNT
BOE
UAM
ISR
IDR
ADR
LOT
EVL

EFFECT

eeececcccccccccccccecccccccccaag
Halt
on error - control is returned to
runtime services command mode
Loop on error
Inhibit all error reports

Inhibit

all error reports except first

level (first level contains error type,
number, PC, test and unit)

Inhibit extended error reports (those

called by PRINTX macro’s)
Direct messages to line printer
Print test number as test executes
"BELL" on error
3
.
Unattended mode (no manual intervention)
Inhibit statistical reports (does not apply
to diagnostics which do not support statistical reporting)
Inhibit program dropping of units
Execute autodrop code
Loop on test
Execute evaluation (on diagnostics which

have evaluation support)

*error messages are described in section 3.0

See the XXDP+ User’'s Manual for more details on flags.
You may
specify more than one 71.? with the flag switch.
For example,
to cause the program to
loop on error, inhibit error reports
and type a
" on error,
you may use the following string:
/FLAGS:LOE: IER:BOE

SEQ 7

DISK2:[SCODA.QNA.ZQNAJZQGNAL.BLI;1

FLAGS
eee--

E 0267

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

Page

o o o o e e o et e s s s

HARDWARE QUESTIONS

When a diagnostic

is started,

information by displaying

the DRS prompts the user for hardware

“CHANGE HW (L) ?*
you must answer "Y" after a start command unless the hardware
information has been “preloaded” using the Setup Utility (see chapter
6 of the XXDP+ User's
Manual). When you answer this question with a
"Y", the DRS asks for the number of units. You will then be asked the

following questions for each unit.

# OF DEVICES (D) ?
Answer with the number of units to be tested (no default). This answer
will determine how many times the following questions are asked.

One (1) device must be specified.
DEGNA I/0 PAGE

ADR

(0) 174440 ?

Answer with the address of the I/0

ister assigned for one

of the DEGNA devices. The 1/0 page m permited are: 174440
and 174460.

INTERRUPT VECTOR ADR (0) 700 ?
Answer with the interrupt vector address of the DEGNA module.
Interrupt vector address for device at I1/0
address 174440 is 700

oct.

and that for 1/0 page address of 17

is 704 oct.

SEQ
8

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZQNAL.BLI;1

et ot e ot o ot o o o e o

2.4

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

B0 e et e

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE

Page

3
(8)

CZANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

2.5

VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZQNAY .BLI;1

SOFTWARE QUESTIONS

After'lgu have answered the hardware anstiom or after a RESTART or

CONTII

command, the DRS asks for software
W
parameters. These

rameters govern some diagnostic specific operation modes.

prompted by

You will

CHANGE SW (L) ?

you wish to change any

sof‘uore questions and the

parameters, answer by

typi

e, The

default values are ,d'uzriad in the next

paragraph(s).

DO YOU WANT TO TEST SANITY TIMER (L)?

If you wish to test the Sanity Timer logic, answer by typing "Y".

Whenever this question
will follow:

is answered with a "Y" following question

SANITY TIMER TIMEOUT VALUE (D)?
Answer with the TIMEOUT VALUE bcin' a decimal number between 0 and 7.
Use table below to select desired TIMEOUT VALUE.

TIMEOUT VALUE

o e e o e

e o

o e

et B et et e e

GLOBAL DEFINITION MODULE

o e

TIMEOUT PERIOD IN SEC.
-

0
1
2
3

174
1
4
16

5
6

240
960

Sequence. "TEST 7+ 1o the galy et thetuses:externa
loopbock ade.
l

EXTERNAL LOOPBACK MODE (L)?

3840

"N”

inhibits execution of "TEST 7,

SYSTEM HAS BLOCK-MODE MEMORY (L)?
Answer with "Y"

if the system has block-mode memory and “N" if

it has non block-mode memory.

IS LOOPBACK CONNECTOR IN DEGNA (L)?
Aneufr with "Y"
module.

if loopback connector

in the back of the DEGNA

Page

CZGNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

2.6

QUICK START-UP PROCEDURE

26-Mar-1986 17:01:04

Boot XXDP+

Give the date

]

To start-up this program:

Igpc "R Name", where Name is the name of the BIN file for

o
0

Answer the "“CHANGE HW" question with "Y*

Answer all the hardware questions

is program

Type "START"

Answer the "CHANGE SW" question with "Y”

Answer all the software questions

SEQ 10

DISK2:[SCODA.QNA.ZQGNA]ZQNAL.BLI;1

(XXDP+)

e o s e ot et i
e o e o o s
e
e o et o e et s e
B

umu...nflfi-‘-ouuunm.-"uu“-oouuuo--uuya

GLOBAL DEFINITION MODULE

VAX-11 Bliss-16 V4,0-579

When you follow this procedure ¥ou will be using only the defaults for
flags and software parameters.
These defaults are described in the
previous sections.

090( 10)

3.0

There

are three

levels

d
a n:roetgeneral,
nc

SEQ 11
VAX-11 Bliss-16 V4.0-579
DISK2: [SCODA.QNA.ZQNA]ZQGNAL.BLI;1

of error

messages that mey be

basic and extended.

issued by

General error messages

ways printed uniess the IBE and/or IER flag is set. The general

error message

NAME

o“"‘

is of the form:

ER_TYPE

NAME = Di

ER_
'TQYPE
.

udr _NQ =
=

e
o o
e
ot
e e e

Ve~
a

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

ERROR INFORMATION

CEESEEEEERARE 222222 SR L Lo aaaRas

OOOOOOO0OOOOOOO

C 0399

o e e o

e e s et

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE

ER_NO

UNIT_NO

TEST_NO

PC_ADDR

tic name

rror t
rror

( all errors are HARD )

TEST_NO = Tut and ubtut where error occurred
PC_ADLR = Program Counter contents
Basic error messages are
thlt contam some additional
information about the error.
u;g grmtod unless one or
more of the DRS error flog(o)IBE IXE,
is set. These
messages are printed before the noocutod general message.

Extended error

the

contain supplementary error information such

ister contents or good/bad data. These are always printed unless

and/or IER flag is set. These messages are printed after the

associated general error message and any associated basic error

:eesogcs A typical extended error w might have a following
ormat:

TRANSMIT DESCRIPTOR LIST

RECEIVE DESCRIPTOR LIST

Flag Word
Lou Order Addr Bits

Flag Word

Status

Status H:gfll' .

High Order Addr Bits
Pod:ct L
(byte)

Status Word 2

Lou Order Addr Bits
High Order Addr Bits

Pocket L

Status Word 2

(byte)

°°e(11)

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

SEQ 12
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZGNA]ZGNAL.BLI;1

SPECIFIC ERROR MESSAGES
The following are possible error messages.

DEGNA FATAL ERROR DETECTED

ACTUAL DATA = octal number

EXPECTED DATA = octal number

LOOPBACK PACKET UNABLE T

AR CA BIT, CSR = octal number

BAD CSR: ACT = octal number EXP = octal number
BAD TRANSMIT FLAG WORD: ACT = octel number EXP = octal number
BAD TRANSMIT STATUS WORD 1: ACT = octal number EXP = octal number
BAD RECEIVE FLAG WORD: ACT = octal number EXP = octal number
BAD RECEIVE STATUS WORD 1: ACT = octal number EXP = octal number
BAD RECEIVE BUFFER LENGTH: ACT = octal number EXP = octal number
BAD CSR = octal number
LOOPBACK PACKET UNABLE TO SET CA BIT,
CSR = octal number
o

o e e ot
o e o e e
o
o e
o et e
et
e e
e
0

SRESBRR
Z2TE
N
EY
N-=OW

b
D
A

bbb
D L
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE

CA BIT OK, BUT RI BIT IS NOT ON, CSR
= octal number
C
octal number

175 :g ) P § “sgqoflx) g
BE s@r ?o 1

CSR ADR = octal number ACTUAL = octal number EXPECTED = octal number

UNABLE TO RESET DEQNA: ADR: address

NO SANITY TIMER

CSR = octal number

DETECTED

DISCONNECT TRANSCEIVER CABLE FROM BULKHEAD ASSEMBLY AND CONNECT

THEN RETEST

AND CONNECT

LOOPBACK CONNECTOR TO
+ THEN
ST
CHECK FOR LOOSE WIRES IN A LMMCTMMUSEDIFFERENT
LOOPBACK CONNECTOR

PR | s

DISCONNECT TRANSCEIVER CABLE
L

TRANSCE]
REPLACE TRANSCEIVER,

T
TRANSCEIVER AND CONNECT IT TO
ASSEMBLY

T
REPLACE THE FUSE IF BAD, TgEgETEST

BAD RECEIVE DESCRIPTOR:
BAD TRANSMIT DESCRIPTOR:
BAD RECEIVE BUFFER:
ACTUAL = octal number EXPECTED = octal number
DMA OPERATION TAKES TOO LONG
TOO MANY DEVICES
THERE WAS A POMER FAIL - WAITING
ABOUT decimal number MINUTE(S)
ABOUT decimal number HOUR

.
INDEX = decimal number

TYPE ANY CHARACTER TO EXIT FROM TEST

Page

12
(12)

sEggeRsesas ©

ZANAL

CZQNAEO DEQGNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

TDR VALUE
= OsN’)

BAD CSR, BITS STUCK AT 0O:

SEG 13

VAX-11 B nn-16 V4. 579
DISK2:(
A.GNA_.ZQNAJZQNAL.BLI;1

BAD CSR, BITS STUCK AT 1:
SOFTWARE RESET UNABLE TO CLEAR CSR STATIC BITS:
BAD STATION ADDRESS CHECKSUM: ACT = octal number EXP = octal number
BAD STATION ADDRESS: ototnon
BAD DEQNA I/0 PAGE REGISTER n?uter
BAD CSR, EXPECTE
RL D
(
BITS) 0 BE SET T0 O
BAD B/D PR0OM CHECKSUM: INDEX = octal number ACT = octal number EXP = octal number
B/D PROM CHECKSUM OFFSET
= octal number ACT = octal number EXP
= octal number
BAD INTERRUPT: ADR = octal number ACT LEV
= octal number EXP LEV = octal number
REGISTER FAILED TO RESPOND AT ADDRESS:
register address

13
Poge
13

CZQANAEO DEQGNA FUNCTIONAL TEST

27-Mar-.986 07: 5:34

4.0

26-Mar-1386 17

1:04

TEST SUMMARIES

Each test has its own test summary; therefore,
included here.

5.0

.est sumnaries are not

MAINTENANCE HISTORY

Rev. CZQNACO changed to CZANADO in March,

Modified DMA Timing Test,

Test #14,

1985 by Howard L. Marshall:

to allow the test to operate

properly in the faster 18 MHz. KDJil-B/BF, _Changes are noted by "$$$"
in the comment field of added of changed lines.

0 et ot o e o o o o o o o

Rev. CZGNADO changed to CZQANAEO March 19856 Dave Scoda

Added ZQNA6.MAC to correct a bug in thckmntion of the checksum
for the Ethernet hardware address rom.

and

code to check for reserved

lified bits that allowed the test to run on a buo‘ network.

Fixed
several error reports where actual and expected data were
reversed. Changed test 6 from an NMI interrupt to a Tx done interrupt;
it would fail along with test 12 in a 4MB or a 256KB oxsta. Shortened

test 7;

it no longer reports a false error. Made test 12 selectable,

fie fis:ng ;gove. Changed error reports for bad descriptors in tests

B2 0 0

U
-

OOOOOOOOOOOOOOOONOOOOONOOO

SRgRRRRRRaaeagaass CEEEE

C 0501

o ot ot et ot o o e e et et

GLOBAL DEFINITION MODULE

VAX-11 Bliss-16 V4,0-579
DISK2:([SCODA.QNA.ZQNA]ZQNAL
.BLI;1

OOG( 13)

e e et B

LIBRARY ‘'QNALIB’ éEQ'
REQUIRE ‘BLSMAC.
;

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL DEFINITION MODULE

PSECT

27-Mar-1986 07:35:34

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4,0-579

DISK2:[SCODA.QNA.ZQNAJZGNAL .BLI;1

! DIAGNOSTIC SUPERVISOR LIBRARY

Tse

DEFINE THE NUMBER OF TESTS IN THIS DIAGNOSTIC

e e

o o e

o o

CODE = AA$CODES;

LITERAL
DS$NBR_OF _TESTS = 21;
EQUALS;

POINTER (ALL);
1es
|
'

THE PROGRAM HEADER IS THE INTERFACE BETWEEN THE DIAGNOSTIC PROGRAM
AND THE SUPERVISOR.

HEADER (#ASCII'CZGNA ' ,®ASCII'E’,#ASCII'O’', 120, 0, PRI00);
Tee

!
!
!
!
!
:
H
!
!
!
!
!
!
!
!
!
;
H
:
!

!--

NO POINTERS ARE OPTIONAL USING BLISS. MAKE SURE THE FOLLOWING
SECTIONS OF CODE ARE IN PLACE (IN THE CORRECT SKELS),EVEN IF
THE SECTIONS ARE BLANK.

ARGUMENT

FUNCTION

RPT

REPORT CODE

SOFTWARE TABLE

SFT

SOFTWARE TABLE QUESTIONS

ADD CODE
DROP CODE

TBL
SETUP

ERROR TABLE
ASSEMBLED P-TABLES

CHANGE THE "HEADER” TO CONTAIN THE PROPER ARGUMENTS.
ARGUMENTS ARE: NAME,REV,PATCH,LONGEST TEST TIME, TYPE

WHERE “TYPE” = O FOR SEQUENTIAL DIAGNOSTIC AND =1
.

THERE IS ALSO AN OPTIONAL SIXTH ARGUMENT

WHICH SPECIFIES THE PROCESSOR PRIORITY TO BE SET WHEN
STARTING THE DIAGNOSTIC C(DEFAULT IS 0).

Page

(14)

27-Mar-1986 0;:(3)1:32
S
26-Mar-1986 1

VAX-11 Bliss-16 V4,0-579

DISPATCH (DS$NBR_OF _TESTS);
THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

2
g

CHANGE THE LITERAL DECLARATION OF DS$NBR_OF TESTS TO BE
THE NUMBER OF HARDWARE TESTS IN YOUR PROGRAM.

THE ERRTBL MACRO IS REQUIRED WHETHER OR NOT YOU REPORT ERRORS USING
THE "ERROR" MACRO.
THE ERRTBL MACRO EXPANDS INTO FOUR WORDS THAT
ARE USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE,
ERROR NUMBER, ADDRESS OF ERROR MESSAGE AND ADDRESS OF MESSAGE
BLOCK.
THERE MUST BE ONLY ONE ERRTBL IN ANY PROGRAM.
THIS SECTION

IS NOT OPTIONAL.

DISK2:[SCODA.QNA.ZQNA]ZGNAL.BLI;1

%SBTTL ‘DISPATCH TABLE'

1 1 o et b ot o o o o ot ot o o et ot e e o s o et ot

...Q.'.C...'.l...'......“...‘.'“...'“.’.‘.’“

CZANAEO DEGNA FUNCTIONAL TEST
DISPATCH TABLE

°ge(1'5)

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

2122

PSECT
PLIT
OWN

= $PLITS,
= $OWNS

GLOBAL = $GLOBS;

Tee

;gTGLoaAL DATA DEFINED IN THIS SECTION IS USED BY MORE THAN ONE

GLOBAL
Tae

COMMUNICATION AREA DECLARATIONS

e o o et o o o

SETUP BUFFER
IOP_TABLE

: VECTOR [ SETUB_SIZE. WORD ],
: VECTOR [ 8, WORD ],

STATION_ADR

: VECTOR [ 4, WORD

RCV_D_LIST

XMIT D_LIST
RCV_BUFFER

PHYS_ADR

: BLOCK

[ D_SIZE, WORD ) FIELD ( DL_FIELDS ),

: BLOCK [ D_SIZE, WORD ] FIELD ( DL_FIELDS ).
: VECTOR [ B_SIZE, BYTE

: VECTOR [ B_SIZE,

: VECTOR [ 22,

ETH_STATION_ADR : VECTOR [ 6, WORD

PTRN_TABLE

BYTE
-

SEQ

DISK2:[SCODA.QNA.ZGNATZGNAL.BLI;1

%SBTTL ‘GLOBAL DATA SECTION’

XMIT_BUFFER

B0 0 0

2118
2119

26-Mar-1986 17:01:08

o e

o e o o et e e

e o s

GLOBAL DATA SECTION

VAX-11 Bliss-16 V4.0-579

: VECTOR [ 8, BYTE ] INITIAL C BYTE (
%B8' 00000000’ , #B'11111111', %B'10101010', %B'01010101°,
¥B8'11001100', #B'00110011', %B'11110000', %B'00001111')),

Page

(16)

o o o o o o e e o o o o e o o o e o b et

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL DATA SECTION
TARGET_ADR

27-Mar-1986 07: 35:34
26-Mar-1986 17: 01:04

: VECTOR [ T_SIZE, BYTE ) INITIAL ( BYTE (
lX' ml .

%X'55',
*X'AR’,
%X'55',
®X'FF',
X' 00,
#X' AR’ ,
%X'AA‘.
%X'AR’,

%X' 55",
%X'AA’
,
X' 55",
®X'FF',
‘X'FA‘ .
‘X'w' B
®X'02',
#X'05',
‘XOMI .
‘x!wl .
®X'04',
®X'AA’, %X'00"
. ‘x'“' E
%X' AR’ . %X'00"
. %X'04',
#X'01', %X'00',
‘x’ m‘ &
‘XIMO &
#X'AA’,
%X'FF', %X'00"
. #X'01',
®X'55', #X'05',
*X'CD’, #X'36’, ®X'26',
®X' 33, #X'Al', ®X'67',
¥X'EB’, #X'BE’, *X'C7',
®X'FF', #X'FF', $X'FF',
#X'SS5',
#X'AR’,
#X'55',
%X'FF',
#X'F4',
%X’ 00’ ,
%X'00".
%X'00"
.

X' SS5' |
%X' AR’ |
X' 55' ,
X' FF' |
%X'44'
|

X' 00’ ,
X' S5/ ,
X' AR’ ,
X' 55¢ ,
X' FF' |
%X'44'
,

’x’ M' 3
. #X'55',
®X'FF
',
%X' 00" ,

. #X'81',
X' 00’ ,

" ‘X'M'o
%X'03',

. #X'08'.
X'27',
®X'4C’',

. wX'33.

%X'00',
X'55',
sX'AA’,
®X'55',
sX'FF',
®X'55',
%X'00',
®X'AA’,
®X'55',
®X'FF',
#X'00',
%X'18',
%X'00',
#X'AR’,
%X'04',
®X'09',
®X'49',
wX'9F' ,
®X'FF',

%X'FF' ®X'FF'

)),

!
1
MEMORY PATTERN
!
2
!
3 - MEMORY PATTERN
!
4 - MEMORY PATTERN
:
9 - MEMORY PATTERN
!
6
MEMORY PATTERN
!
8
19
! 10
! 41
LOW ETHERNET ADR
! 12
HIGH ETHERNET ADR
! 13
ALL MULTICAST
! 14
ALL MULTICAST
1 B
ALL MULTICAST
! 16
ALL MULTICAST
! 17
! 18
! 19

! 20

SEQ 18

VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QGNA.ZQNAJZQGNAL
.BLI;1

STATION ADDR

Page

(17)

ZQNAL

CZQNAEO DEQNA FUNCTIONAL TEST

2145
2146

27-Mar-1986 07:35:34

GLOBAL DATA SECIION

1
1

BD_PROM_DESCR

NEWB,

2151 1

BYTE_COUNT .

1
1

2152

' BUFFER NOT USED IF 1

v,
RCV_BUFFER,

i VALID ADDRESS 1IF 1
! RCV BUFFER ADDRESS

1 STATUS WORD 1

i 174 THE BYTE COUNT

2153 1

2155 1

NEWB,

2157 1
2158 1

XMIT_BUFFER,
BYTE_COUNT,
0,
0.

i STATUS WORD 1
! STATUS WORD 2

2162 1

NEWB,

' BUFFER NOT USED IF 1

2156

2159
5%2‘1)

1
1

2163
2164
2165
2166
2167
5123

1
1
1
1
1
1

2170

2172
2173
2178
2175
2176

1
1
1
1
1

ggg

2181
2182
2183
2184
2185

1
1
1
1
1

2171

g{%

3%3‘7’

i STATUS WORD 2
! BUFFER NOT USED IF 1

! VALID ADDRESS IF 1

i XMIT BUFFER ADDRESS
' 1/4 THE BYTE COUNT

E,
0.
0'),

! VALID ADDRESS IF 1
1 2 EXTRA WORDS
!

TD16: VECTOR [ 44, WORD ) INITIAL ( WORD (

NEWB, VL ., XMIT_BUFFER

NEWB. VHL.

NEWB,
NEWB.
NEWB,
NEWB,
NEWB,

“BUFFER

VH . XMIT BUFFER + 2
VE . XMIT_BUFFER + 4
E
, XMITD_LIST + 60
V.
, XMITDLIST + 56
VE , TARGET_ADR + 114

NEWB, E )J,

,-1,0,0,

! 1BYTE DESCRIPTOR

. -1.0,0,
»-1.0,0,
, -1, 0., 0.
, -2, 0, 0,
, -3 , 0. 0,

!
1
!
!
!

. -2 .0, 0,

! 2BYTE DESCRIPTOR
1BYTE DESCRIPTOR
2BYTE DESCRIPTOR
END OF DESCRIPTOR
4 BYTE DESCRIPTOR
6 BYTE DESCRIPTOR

! END OF DESCRIPTOR

TD13: VECTOR [ 34, WORD ] INITIAL ( WORD (

NEMB, V
NEWB, V
NEWB,V
NEWB,
C
NEWB, VE

, XMIT_BUFFER
. XMIT_BUFFER + 2
, XMITBUFFER
« 256
. XMIT_D_LI
+ ST
48
, XMIT_BUFFER » 258

NEWB, E )),

,
-1,0,0,
,-127 . 0.
0.
,
-1, 0., 0,
.
-1.0,0,
, -63 , 0, 0,

!
!
!
!
!

DISK2:([SCODA.QNA.ZQNAJZGNA1.BLI:1

: VECTOR [ BD_D_SIZE, WORD ] INITIAL ( WORD (

2148 1

2149
2150

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

2 BYTE DESCRIPTOR
378 BYTE DESCRIPTOR
2 BYTE DESCRIPTOR
CHAIN DESCRIPTOR
2 BYTE DESCRIPTOR

! END OF DESCRIPTOR

Page 19
(18)

H2
ZGNA1

CZGNAEO DEQNA FUNCTIONAL TEST

V01.0

;

;
2190
;
2191
;2192
;
2193
;.
2194
;2195

1
1
1
1
1
1

NEWB,
NEWB,
NEWB,
NEWB,
NEWB,
NEWB,

NEWB, V

NEWB, E )J,

;
;

;

A A

O T

GLOBAL DATA SECTION

gigg

2197

2198
2199

gfi

27-Mar-1986 07:35:38

1
1

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

DISK2:([SCODA.QNA.ZGNAJZGNAL.BLI:1

RD13: VECTOR [ 64, WORD ] INITIAL ¢ WORD (

V
,
V
.
V
,
V ,
V
,
V_,

NEWB, V
NEWB, V

RCV_BUFFER
RCV_BUFFER
RCV.BUFFER
RCV.BUFFER
RCV_BUFFER
RCVLBUFFER

+
+
+
+
+

2
126
128
132
252

, RCV.BOFFER + 256

, RCVIBUFFER + 262
, RCV.BUFFER + 382

.
-1,0,0,
. -62 , 0, 0,
,
-1, 0, 0,
,
-2 , 0. 0,
, -60 , 0. 0.
,
-2, 0, 0,

!
!
!
!
!
!

! 6 BYTE DESCRIPTOR

-3, 0, 0,

., -60 , 0, 0.
,
-1, 0, 0,

SEQ 20

2BYTE DESCRIPTOR
124 BYTE DESCRIPTOR
2 BYTE DESCRIPTOR
4 BYTE DESCRIPTOR
120 BYTE DESCRIPTOR
4 BYTE DESCRIPTOR

! 120 BYTE DESCRIPTOR
! 2 BYTE DESCRIPTOR

! END OF DESCRIPTOR

Page 20
(18)

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL DATA SECTION

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

SEQ 21

VAX-11 Bliss-16 V4,0-579
DISK2: [SCODA.QNA.ZGNAIZGNAL.BL
;1
I

HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS

HWP_TABLE

: REF BLOCK [ HWP_SIZE, WORD ] FIELD ( HWP_FIELDS ),

SWP_TABLE

: REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ).,

REG_ADR
IOP_DATA
GET_ADR

: REF REG_STR FIELD ( IOP_FIELDS ),
: REF ADR_STR FIELD ( IOP_FIELDS ),

: REF REG_STR FIELD ( IOP_FIELDS ),

MISCELLANEOUS DATA DECLARATIONS

RBUF -LENGTH

INTERRUPT_FLG

DEQNA_NO

COUNTER

UP_COUNTER
DOWN_COUNTER
CHECKSUM
BUF _LENGTH
CSR_WORD

XC_FLAG
ERR_NUMBER
ERR_FLAG
ERR_COUNT
tmprl

{SEuEaEaanaaE

0 et o

0 0 o e o

ot ot o o o o o o ot e o o o

s e e o e s ot

Tae
.

XMIT BUFFER LENGTH IN WORDS
RCV BUFFER LENGTH IN BYTES
1 = INTERRUPT OCCURED
DEQNA UNDER TEST THIS PASS
ITERATION COUNTER, INDEX

ITERATION COUNTER. INDEX
ITERATION COUNTER.

INDEX

EXPECTED PROM CHECKSUM

XMIT BUFFER SIZE IN WORDS

iscratch var used by romchk

(19)

10 s 0

e o e o ot o o o o o o o o o ot s e ot o

o so s

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL DATA SECTION

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

22
VAX-11 Bliss-16 V4,0-579
DISK2: [SCODA.QNA.ZQNA]ZQGNAL.BLI;1

oo
'

TEMPORARY STORAGE DATA DECLARATIONS

THPREG_DATA
TEMP1

TEMP2
TEMP3
TEMP4
TEMPS
TEMP6
TEMP7

: WORD,
: WORD,
: WORD,

:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:

WORD,
WORD,
WORD,
WORD,

! I/0 PAGE REGISTER ADDRESS
! I/0 PAGE REG CONTENTS
! TEMPORARY STORAGE LOCATION

!
!
!
!

TEMPORARY STORAGE LOCATION
TEMPORARY STORAGE LOCATION
TEMPORARY STORAGE LOCATION
TEMPORARY STORAGE LOCATION

WORD,
WORD,

! TEMPORARY STORAGE LOCATION
! TEMPORARY STORAGE LOCATION

WORD,

! TEMPORARY STORAGE LOCATION

WORD,
WORD,
WORD,
BYTE,

! PARAMETER #3
! PARAMETER #4
! PARAMETER #5
!

BYTE,
BYTE,
WORD,
WORD,
WORD;

!
!
!
!
!logical unit # for >1 devices

WORD,

WORD,
WORD,

BYTE,

! TEMPORARY STORAGE LOCATION
! PARAMETER #1
! PARAMETER #2

099(20)

%SBTTL

27-Mar-1986 07:35:34

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

]

'GLOBAL TEXT SECTION'

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

MESSAGES,

AND ASCII INFORMATION THAT IS USED IN MORE THAN ONE TEST.

GLOBAL BIND

DESCR_LIST

DATA_BUFFER

= RCV_D_LIST,

= RCV_BUFFER,

0 o

et e o et o o

HARDWARE AND SOFTWARE QUESTIONS

QsT01
@sTe2
QsT03
QsT04
QsT05
QsT06
QsT07
@sT10

UPLIT (#ASCIZ'DEQNA I/0 PAGE ADR
UPLIT (#ASCIZ'INTERRUPT VECTOR ADR

UPLIT
UPLIT
UPLIT
UPLIT
UPLIT
UPLIT

'd,
'),
(#ASCIZ'DO YOU WANT TO TEST SANITY TIMER ‘),
(#ASCIZ'IS LOOPBACK CONNECTOR IN DEGNA
'),
(®ASCIZ'SANITY TIMER TIME-OUT VALUE
‘d,
(#ASCIZ'EXTERNAL LOOPBACK MODE
'),
(#ASCIZ'SYSTEM HAS BLOCK-MODE MEMORY
'd,
(®ASCIZ'NXM TEST ? MUST HAVE < 4MB MEMORY'),

Tee
Tse

DISK2:[SCOD#.QANA.ZQNAJZGNAL.BLI;1

teo
:

e e o e se e s e

CZQNAEO DEQGNA FUNCTIONAL TEST
GLOBAL DATA SECTION

DEVICE ERROR MESSAGES
MSGOO = UPLIT (#ASCIZ' DEQGNA FATAL ERROR DETECTED '),
MSGO1
UPLIT (#ASCIZ'#Ns#N$A
DEQNA ADDRESS: #06%A,
STATION ADDRESS: ')
MSGO2
= UPLIT (#ASCIZ's®A
ACTUAL DATA = %06%A
EXPECTED DATA = #06%N'
),
MSGO3
UPLIT (#ASCIZ'sA
XMIT DESCRIPTOR
RCV DESCRIPTOR sN'),
MSGO4
UPLIT (#ASCIZ'%A
FLAG WORD
%06%A
s06%N’
),
MSGOS5
UPLIT (#ASCIZ'%A
ADDR DESC BITS/HIGH ADDR
#06%A
06N’ ),
MSGO6
UPLIT (#ASCIZ'sA
LOW ORDER ADDR BITS
$06%A
#06%N’
),
MSGO7
UPLIT (#ASCIZ’'%A
PACKET LENGTH ( WD )
%06%A
%06%N’
),
MSGO8
UPLIT (#ASCIZ'®A
STATUS WORD 1
%06%A
#06%N’
),
MSGO9
UPLIT (#ASCIZ'%A
STATUS WORD 2
#06%A
%06%N’ ),
MSG10
UPLIT (#ASCIZ'wA
DEGNA CSR REGISTER
%06%N’
),
MSG11
UPLIT (#ASCIZ’ %A
DEQNA I/0 PAGE ADR
#O6%NSN'
),
MSG12
UPLIT (#ASCIZ'sA BAD CSR: ACT = #%06%A EXP = s06%N’')
MSG13
UPLIT (#ASCIZ'®A BAD TRANSMIT FLAG WORD: ACT = %06%A EXP = %06%N'),
MSG14
UPLIT (#ASCIZ'sA BAD TRANSMIT STATUS WORD 1: ACT = %06%A EXP = s06%N'),
MSG15
UPLIT (#ASCIZ'#A BAD RECEIVE FLAG WORD: ACT = #06%A EXP = sO6%N'),
MSG16
UPLIT (#ASCIZ'#A BAD RECEIVE STATUS WORD 1: ACT = s06%A EXP
MSG17
UPLIT (#ASCIZ'sA BAD RECEIVE BUFFER LENGTH: ACT = %06%A EXP
MSG18
UPLIT (#ASCIZ'%A BAD CSR = %06%N'),
MSG19
UPLIT (#ASCIZ'sA LOOPBACK PACKET UNABLE TO SET CA BIT, CSR = %06%N'),
MSG20
UPLIT (#ASCIZ’'#A LOOPBACK PACKET UNABLE TO CLEAR CA BIT, CSR
= ®06%N'),

°9e(2’1)

SEQ 24
VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZGNATZGNAL.BLI
;1

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

UPLIT (®ASCIZ'®A CA BIT OK, BUT RI BIT IS NOT ON,

CSR = %06%N'),

UPLIT (WASCIZ'sA CA BIT IN THE CSR WAS SET TOO EARLY, CSR = sO6%N'),
UPLIT (#ASCIZ'®A XL AND RL ( BITS 4,5 ) 10 BE RESET TO O#N'),

UPLIT (®ASCIZ'sA XL AND RL ( BITS 4,5 ) TO BE SET TO i%N'),

UPLIT (#ASCIZ'#A RI ( BIT 15 ) TO BE SET TO 1#N'),

UPLIT
ULIT
UPLIT
UPLIT

(#ASCIZ'®A XI ( BIT
(MASCIZ'%A NI ¢ BIT
(#ASCIZ'sA NI ( BIT
(®ASCIZ'®A BAD CSR,

7 ) T0 BE SET TO 1sN'),
2 3 10 BE SET 10 1N':
2 ) TO BE RESET TO OsN’),
EXPECTED')

UPLIT (WASCIZ'sA CSR ADR'= %06%A

ACTUAL = %06%A

EXPECTED = sO6%N’),

UPLIT (WASCIZ'®NwA UNABLE TO RESET DEQNA: ADR: ®O6%A
UPLIT (SASCIZ'sNsA WAIT ABOUT ®D2%A SECOND(S) -')

CSR = %O6%N’
),

UPLIT (SASCIZ'sNsA SANITY TIMER TIMED OUT AS EXPECTED #N'),

UPLIT (®ASCIZ'%NsA NO SANITY TIMER INTERRUPT DETECTED #N')

UPLIT (%ASCIZ'¥N¥A DISCONNECT TRANSCEIVER CABLE FROM BULKHEAD ASSEMBLY AND')

UPLIT (#ASCIZ'®#NstA CONNECT LOOPBACK CONNECTOR TO BULKHEAD ASSEMBLY, THEN RETESTSN'),
UPLIT (#ASCIZ'#NsA DISCONNECT BULKHEAD ASSEMBLY FROM DEQGNA AND CONNECT'),
UPLIT (ASCIZ'wNwA LOOPBACK CONNECTOR TO DEQNA, THEN RETESTSN')

UPLIT (#ASCIZ'®¥NsA CHECK FOR LOOSE WIRES IN A LOOPBACK CONNECTOR')

UPLIT (%ASCIZ'sNsA OR USE DIFFERENT LOOPBACK CONNECTOR,
T (%ASCIZ' sNsA REPLACE DEQNA, THEN RETESTSN’)

UPLIT (iASCIZ:M REPLACE BULKHEAD CONNECTOR,

THEN RETEST#N'),

THEN RETESTSN'),

DISCONNECT TRANSCEIVER CABLE FROM TRANSCEIVER'),

UPLIT (WASCIZ'®N#A BAD RECEIVE DESCRIPTOR:
')

o 0

UPLIT (WASCIZ'#NsA BAD TRANSMIT DESCRIPTOR:'),

UPLIT (#ASCIZ'®A
= %06%A EXPECTED = #06%A INDEX = wDA%N'),
LOLIT (#ASCIZ'#NsA BAD RECEIVE BUFFER:')

et e

o o

o e o e o o o o

o o eo o e o e e o e e e

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL TEXT SECTION

UPLTT (ASCIZ'sNsA TOO MANY DEVICESSN')

UFLIT (#ASCIZ'sN#A DMA OPERATION TAKES T0O LONGSN'),

UPLLT (MASCIZ #\WA THERE WAS A POMER Fmsismrgm' ),

UPLTT (%ASCIZ'w#NsA WAIT ABOUT %D2%A HOUR - ')

UPLIT (SASCIZ'SA IF NO RESET, TYPE ANY CHARACTER TO EXIT FROM TEST#N'),

UPLTT (#ASCIZ'#NsA TOR VALUE IS EQUAL TO ZERG sN'),
UPLIT (WASCIZ’ MNSNIA- - - -~ - - - - mem oo
Z

'),

Page

24
(21)

M2
ZANAL

CZQNAEO DEGNA FUNCTIONAL TEST

;

“?IST?Si
) &‘ 0 O%N’ )

s§§

* ¥NsA

MSG69 = UPLIT
I1Z' %NsiA
MSG70 = UPLIT gMSC“Z‘M
MSG71 = UPLIT (®ASCIZ'wNsA
msg72 = UPLIT (wASCIZ'wNsA
msg73 = UPLIT (wASCIZ'sNsA
msg74 = UPLIT (#ASCIZ'sNsA
msg75 = UPLIT (sASCIZ'w%NsA
msg76 = UPLIT (#ASCIZ'w%NsA

MSG68 = UPLIT

1
1
1
1
1
1
1
i.

Egg : SgR

2365 1

2366
2367
2368
2369
2370
&3713
2372
gg?{g

gzgsssssss

i
i
i
;.
i
s
s
;

MSG60 = UPLIT (®ASCIZ' #NsA BAD CSR, BITS STW AT 0: IN‘).
MSG61 = UPLIT (#ASCIZ' SN%A BAD CSR BITfi Si
AT 1:9N'
)
MSG62 = UPLIT (#ASCIZ'®NsA SOF
10 CLEAR csa _STATIC BITS:#N'),
MSG63 = UPLIT (#ASCIZ'wNsA
= %06%A EXP = #06%N’
mss CDECKSLH
),
MSG64 = UPLIT (wASCIZ'wNsA
MSG6S = UPLIT (
1Z' wNsA
1/0 PAGE
MSG66 = UPLIT (
1Z' #NsiA
EXPECTED RL
MSG67 = UPLIT (wASCIZ'wNsA
-om

LEV = %06%A EXP

LEV = %06%N

0 Tf}snirsmI
m«m cu.n.”fgasmuoy
ERRUPT: CPU PRIORITY --65-4)

TRANSMIT STAT

# i

1
1
1
1
1
1
1
1

s
2357
;.
2358
;3
2359
i
2360
i
2361
i
2362
;2363
;i
2364

GLOBAL TEXT SECTION

v01.0

DEVICE INTERRUPT: CPU mu;m = %068N’ ),
EXTEMLLMW

= %06%A INDEX = #D4%A Actu
= %O6WN'
al
),
%06%A INDEX = %DA%A Actual = #06%N’');

CZGNAEO DEGNA FUNCTIONAL TEST

s e o o o o ot o s o P ot s ot

DEFAULT HARDWARE P-TABLE

B0 e e e e o o o o

26-Mar-1986 17:01:04

VAX-11 Bliss-1

DISK2:[SCODA.QNA.Z

#SBTTL 'DEFAULT HARDWARE P-TABLE'
BGNHW ( HP_TABLE );
Teoo
'

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE

TEST-DEVICE PARAMETERS.

THE STRUCTURE OF THIS TABLE IS IDENTICAL TO

THE STRUCTURE OF THE HARDWARE P-TABLES, AND IS USED AS A "TEMPLATE”
FOR BUILDING THE P-TABLES.

'
:

]

'
H

'
:

27-Mar-1986 07 :35:34

v
:

PLACE YOUR DEFAULT HAROWARE P-TABLE HERE.
THE VALUES AND
SIZE WILL BE USED AS A "TEMPLATE" FOR CREATING ACTUAL P-TABLE
ENTRIES AND THE DEFAULT VALUES IN THE OPERATOR DIALOGUE.
ST;%CECTUAL P-TABLE BUILT AT RUNTIME IS STORED IN SUPERVISOR

|.
H

GLOBAL
DFSTBL

: BLOCK [ HWP_SIZE, WORD ] INITIAL ( %0'174440', %0'700'

);

JZQNAL .BLI;1

CZANAEO DEQGNA FUNCTIONAL TEST
SOF TWARE P-TABLE

27-Mar-1986 07:3 5:34
26-Mar-1986 17:0 :04

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZGNAL.BLI;1

0 e e

ot e e ot e ot ot o o o o ot o o o o o o o et e

%SBTTL 'SOFTWARE P-TABLE'
Teo

THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE

PROGRAM AS OPERATIONAL PARAMETERS.

]
:

THESE PARAMETERS ARE

%Tmlfi ?MSSEFBLY TIME AND MAY BE VARIED BY THE OPERATOR

]

PLACE_YOUR SOFTWARE P-TABLE HERE,USING GLOBAL OR OWN DECLARATIONS

1
:

THIS TABLE IS NOT OPTIONAL. THIS TABLE, UNLIKE THE HARDWARE TABLE,
WILL CONTAIN THE ACTUAL VALUES ENTERED BY THE OPERATOR.

]
!

S uin
:

BGNSW ( SP_TABLE );
GLOBAL

SWP_TIMER
SWP_LBC

SWP_TOUT_VAL

SWP_ILOOP
SWP_BLOCK_MEM

SWP_NXM

: WORD
: WORD

TIAL ( NO ),
TIAL
( NO ),

: WORD INITIAL ( 3 )

! NO SANITY TIMER TEST
! NO LOOPB
INACK
DEGNA

! TIMEOUT VALUE = 16 SEC.

: WORD INITIAL ¢ NO ),
! EXTERNAL LOOPBACK MODE
WORD INITIAL E YES 5. ! BLOCK-MODE MEMORY PRESENT
WORD INITIAL ( NO );

! do NXM test 12 < max memory

ENDSW;

A W T LTI

9 2%)

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

%SBTTL

'PROTECTION TABLE'

Teo

THIS TABLE IS USED BY THE RUNTIME SERVICES TO PROTECT THE LOAD MEDIA.

]

1ST ARG =
2ND ARG =
3RD ARG =

1
:

OFFSET INTO P-TABLE FOR CSR ADDRESS
OFFSET INTO P-TABLE FOR MASSBUS ADDRESS
OFFSET INTO P-TABLE FOR DRIVE NUMBER

INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE.
(OFFSET
REFERS TO_THE NUMBER OF BYTES FROM THE BEGINNING OF A PTABLE
ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR
ITEM DOES NOT APPLY, LEAVE ENTRY AS -1.
WHEN THE RUNTIME
SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS (IF NOT

'
:

'
3

SET_TO -1) TO GET_THE ITEMS AND COMPARE WITH THOSE SAVED

]

IN THE XXDP+ MONITOR.
IF THE UNIT BEING REQUESTED MATCHES THE
lfOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON
HE

BGNPROT (-1, -1, -1);
ENDPROT;

END
ELUDOM
LJITLE
.IDENT
.ENABL

$CODE$,
/CZQ/

Siasastaes

.PSECT
:.ASCII

0000006
000170
000000G
000000G
000210°
000220’

121
040

105

132
101

103
116

ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST
/V01.0/
AMA

b2 10 12 0 1t o s e ot o ot ot s o e e o e ot o e o ot e ot et

PROTECTION TABLE

SEQ 28

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQGNAJZQNAL.BLI;1

Page

(24)

D3
ZANAL
vV01.0

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

L$SPC::
L$DEVP: :.
L$REPP: : .
LSEXP4:: .
LSEXPS::.
L$AUT::
L$DUT::
LSLUN::
L$DESP: : .
L$LOAD::.
L$ETP::
L$ICP::
L$CCP::
L$ACP::

L$PRT::
L$TEST::.
L$DLY::
L$HIME::.
D$PCNT:
L$DISPATCH: :

ERRTYP::. BLKW
ERRNBR:: .BLKW

$DISPATCH

COrroOOOoW

L$EF::

585585ERAEEEEaaaRaEs §5555885RREEEEanRaEE" 55558

L$APT::
L$DTP::
L$PRIO::.
LSENVI::.
L$EXP1::
L$MREV::

L
——

000000
000124’
000000
000000
000000

C0Oro

PROTECTION TABLE

$OVTYP
$RPT

VAX-11 Bliss-16 V4,0-579

SEQ 29

DISK2:([SCODA.QNA.ZQNAJZQGNAL.BLI;1

Page

(24)

ZQNAL

CZQNAEO DEQGNA FUNCTIONAL TEST

v01.0

PROTECTION TABLE

000202

000204

8
|

27-Mar-1986 07:35:34

26-Mer-1986 17:01:04

ERRMS
: .BLKW
G:

ERRBLK:
: .BLKW

000206

000000C

000210
000212
000214
000216

174440
000700

000000C

L$HWLEN::
WORD
DFSTBL::.WORD
.WORD
LSNDHW
: .BLKW
:
L$SWLEN::

000220

000000

SWP.TIMER::

000222

000000

SWP.LBC::

000224

000003

SWP. TOUT . VAL

000226

000000

000230

000001

000232

000000

000234
000236
000240
000242

000000

| 000000
000003
000006

116
111

JMORD

105

121

101
057

040
117

105
104
040

040
122
040

120

| 000025

040

000

111
105
125
040
103
122
104
040

116
122
120
126
124
040
122
000

124
122
124
105
117
101
040
000

000063
000066
000071
000074
000077
000102
000105

131
046
116
124
124
124
101

117
127
124
117
105
040
116

125
101
040
040
123
123
111

104

L$PROT::.WORD
WORD
MORD

-1
-1
-1

117

P.AMA:

101

000030
000033
000036
000041
000044
000047
000052
000055

I 000060

SWP
. NXM: :
WORD

L$NDS
: .BLKW
W:

040
107
101
040

<<L $NDHW-L $HWLEN>/2>
-3340
700

MORDTM
3
SWP.ILOOP::
WORD
0
SP.BLOCK
MEM: :

| 000011

000014
000017
000022

MORD <<L $NDSW-L $SULEN>/2>

177777
177777
177777

108

040

.PSECT $PLIT$,

.ASCIT /DEG/

RO,

.ASCII
-ASCII

/NA /
/1/<57>/0/

.ASCII
-ASCII
AEEL

/GE /
/ADR/
7/
7

.AS

P.AAB:

/ PR/

/_/<00><00>

.ASCII
.ASCII
.ASCIT
.ASCIT
.ASCII
.ASCII
.ASCII
ASCII

/INT/
/ERR/
/UPT/
/ VE/
/CTO/
/R A/
/DR /
/ /<00><00>

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT
.ASCII

/YOU/
7 WA/
/NT /
/70 /
/TES/
/T S/
/ANI/

P.AAC: .ASCII /DO /

VAX-11 Bliss-16 V4,0-579

SEQ 30

DISK2:([SCODA.QGNA.ZGNAIZGNAL.BLI;1

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

PROTECTION TABLE

126
126
105

131
111
122

040
1S
040

111
114
120
103
103
116
N
040
040
121
040

123
117
102
113
117
105
7
111
104
116
080

040
17
101
040
116
103
I
116
105
101
040

P.ARD:

123
M
080
1S
040
115
H?

101
N
124
105
128
105
5

116
IR
111
122
111
055

P.ARE:

000

040
114
040
040

126
125
040
040

101
105
040
040

105

130

2
114

124

s
040

P.AAF:

I
105
110

1
115
101

P.ARG:

000
3
101

000
=
124
040
123
114

113

117
080

040
117

102
103

108
115

105
105

055

117
040
040

122
040
040

116

130

115

000

ASCII
.ASCII
.ASCII

/1Y /
/TIM/
/ER /

.ASCII
.ASCII
.ASCII
.ASCIT
-ASCII
.ASCIT
.ASCIT
.ASCITI
.ASCII
"ASCIT
ASCIT

/IS /
/L00/
/PBA/
/CK /
/CON/
/NEC/
/TOR/
7 IN/
/ DE/
/QNA/
/7
7/

.ASCII
.ASCIT
.ASCII
.ASCII
ASCIT
.ASCII
-ASCII

/SAN/
/ITY/
/ T1/
/MER/
/ T1/
/ME-/
/0UT/

.ASCIT <00>

.ASCII <00>

ASCIT
-ASCII
ASCIT
ASCII

/ VA/
/LUE/
7
7
7
7

.ASCII

/EXT/

.ASCIT <00>

-ASCII
.ASCII

/ERN/
/AL /

.ASCII
-ASCII
-ASCII

/SYS/
/TEM/
7 WA/

.ASCII
.ASCII

115

115
131
040

26-Mar-1986 17:01:04

.ASCII

.ASCII
.ASCII

P.ARH:

<00>

/S B/
/L0C/

/K-M/

/ODE/
7 ME/

.ASCII
ASCIT
ASCIT

/MOR/
7Y 7/
7
7

.ASCIT

/NXM/

.ASCII <00>

VAX-11 Bliss-16 V4.0-579

SEQ 31

DISK2:[SCODA.QGNA.ZQGNAJZGNAL.BLI;1

Page

(28)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07: 3 S: 34
26-Mar-1986 17: 0 1: 04

PROTECTION TABLE

/ TE/
/ST /
/7 M/
/UST/
/ HA/
/VE /
/< 4/

115
124
101
040
064
040
115
131

/MB /

/MEM/
/0RY/
<00>

105
101
101
114
122
122
105
103
104
000
045
101
040
121
040
104
123

/ DE/
/QNA/
/ FA/
/TAL/
/ ER/
/ROR/
/ DE/
/TEC/
/TED/

/ /7<00><00>
/%Ns/
/Ns$A/
o

RRA0AR

/DEQ/

/NA /
/RDD/
/RES/
at 7
/9%06/

RAERE

[l
el ]

Lanl

Sisisis

P.AAK:

104
116
106

105

040

F3 5T

124
124
040
123
110
105
040
102
105
122

/CTE/

/ATA/

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZGN
.BLIAL
;1

Page

(24)

CZQNAEQ DEQNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

PROTECTION TABLE

040

045
045
045

040

040
040
040
040
040
040

040

075

117
116
101

040

040
040
040
040
040
040

040

122
040
123
111
117
045
000

103
104
103
120
122
116

101

107

040
040

JEEEL

122
040

114

127
104
040

7
/
/XMI/
/T D/

040
040

040
122
040

.ASCII
.ASCII
.ASCII

101
040

040

/%06/
/#N/<00>
/%A /

040
111
104

045
040

040

ASCII

/ =/

7
7
7
/
[/
7

103
120

117
040

P.AAL:

ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
MANEE
JIkE
.ASCII

123
111

124
040

ASCII

040
040
040
040
040
040

040

040
115
040

040
126
105
122
124
040
000

066
000
040

040

040
130
124

105
122

040

26-Mar-1986 17:01:04

P.AAM:

.ASCII /ES./
.ASCII /RIP/
.ASCII /TOR/
Sx: 7/
.ASCII / RC/
.ASCII /v D/
.ASCII /ESC/
ASCII /RIP/
ASCII /TOR/
ASCII / #N/
.ASCII <00><00>
.ASCII /#%A /
B <o O
S

106

.ASCII

117
040
040

.ASCII
.ASCII
.ASCII

ASCII

040
040

7/
7/
7
/
/
7/

B
o G
HRLE

/LAG/

/ WO/
/RD /
7
/
)

040
040
040
117

040
04,
040
066

040
040
045
045

ASCII
ASCII
.ASCII
.ASCII

040
040
040
040
066
000
045
040
040
104
040
123
102

040
040
040
045
045

040
040
040
117
116

AL /7
vyS R
4
MASCIT 7
7/
ASCII / %0/
ASCII /6%N/
.ASCII <00>
.ASC
/%R /
.ASC
N
4
ASCII 7/ A/
.ASCII /DDR/
ASCII / DE/
ASCII /SC 7
ASCII /BIT/

101

040

101

040

040
104
104
103
111

040

101
122
105
040
124

LASCII

P.AAN:

7
/7
7
/
/ s/
/06%/
/A

VAX-11 Bliss-16 V4.0-579

SEQ 33

DISK2:[SCODA.QNA.ZGNAJZGNAL.BLI;1

Page

(24)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:3 5:34
26-Mar-1986 17:0 1:04

PROTECTION TABLE

<00>

P.AAOD:

/%A /
i
4
FA TM ]
/00 /
/ OR/

aanaen

/DER/

\ca
g\;\\
: \\\\\\{\\\\

P.AAP:

NANN
>

3333

117
101

/AR
/
" A
P
o
P M
4
/ %0/
/6%N/

127
051

/DR /

/
%/
/06%/

i2Ai3

[

101
105
114

101

/58/<5T>/H/
/IGH/
/ AD/

101

110
110
104
040
045
045

§ ARARER

117

BEEEEERBRBENESSENEEE RRRRRRRRNES

104

057

BRBEREXERERANGREEE

BB B8 B8R BB RRRERRRERRERR 33

123
111

SEQ 34

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZQGNAL.BLI;1

Page

34
(24)

Ok
Py}

EEBEERNNRBERSRBREE
O

3333

124
125
127
104
101
123
117

[« BN

[y
[y

P.AAS:

NNNNSNANNSN

\\\\\é

’§ ®

NNNNNNNNNNN

2%\Q\\\\ sfiz ;8§ 8

NMNNNSNASNNSNNSNNNNNNNNNSN

33330333333
308 33

P.AAR:

P.AAQ:

aaBass

040
040
123
124
040
122
061

i ZiiEs aaa a28aa

[

101

RS 333
3333303

045

BERENRSRER B8z SREBZZREEBBERLLERBE BRBRRRRRRRRRR

BEBES-NNC5EBRERRERE

CZQNAEQO DEQGNA FUNCTIONAL TEST

PROTECTION TABLE

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNA]ZQGNAL.BLI;1

*(2‘)

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

PROTECTION TABLE

NN\

£
v

-y
NN

<00>
/%A /

P.AAW:

ool it
-

[I
[I

P.AAU:

116

[

uin

B
b

&
aoan
ZRan
HH

ARae —

333333503
107

E SXERERBRENBERLNEESRBRERERE RRE

.ASCII

ASCII

B>
wuuuvnnm
O0O00O0
el il ] -

104
116
111

7
7/
/ s/
/06%/
/N/<00>
/%A /
/7
7/
NAN
o>
>
OvH

P.AAT:

ASCII
ASCII
.ASCII
.ASCII

a28aaa82AzazazRzEaRaD

040
045
045

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNAJZQNAL.BLI;1

oge(z‘)

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

PROTECTION TABLE

102

101

ERBSRBLERBNEERES g

115

101

124

116

111

123

26-Mar-1986 17:01:04

104

.AS(:_

123

.ASCII

124

.ASCII

122

124

7 TR/

LASCII

/MIT/

/ANS/

/ ST/

125
127

.ASC]
.ASCII

/ATY/
/S W/

061

072

.ASC

/ 1:/

040
045

075
117

a
.ASC

/T =/
/ %0/

105
040
045

130
075
117

101

045

000

104

.ASCII

103

/ORD/

.ASCII

101

/ AC/

ASCIT

/68h/

.ASCII
.ASCII
.ASCII

116

/ EX/
/P =/
/ w0/

.ASC

/6%N/

."SCII

/®#A /

.ASC

<00><00>

101

040

122

105

040

ASCII

/VE /

040

127

/G W/

ASCII
.

/: A/
/CT 7

101

105
114

122

104

P.AAX:

seall

/BAD/

.ASC

/CE1/

.ASCII

111

101

.ASCII

104

/ RE/

/FLA/

.ASCII

/0RD/

040
124

101
040

066
040
120
040
066

045
105
040
045
045

105

&g / RE/

105
124

040
101

é
.

072

040

075

040

000

122
105

125
103

045

ASCITI

120
040

/706%/
/A E/
/%P /
/= %/

/706%/
/N/<00>

/CE1/

/NE /
/STA/

.ASCII /7Tus/

:&g /1: /

124

130
075
117
116

.
3

123

066

/= %/

111

117
101

-AS

ASCII

3 g&n

.ASCII

040

.ASC]

066
000

.ASCII
ASCII

i
.ASC

/ACT/

/ =/

/%06/

/%A /

/EXP/
/ =/

/#06/
/#N/<00>

A U eL

A S

32, RN

SEQ 37

DISK2:[SCODA.QNA.ZQNAJZQNAL.BLI;1

/BAD/

ASCII

124
040

122

VAX-11 géin-lb vV4.,0-579

*(24)

CZGNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

PROTECTION TABLE

045

101
101
122
105

105

125

107

012
105
015

040
104
105
111

128

‘ASCHT

/VE /

NET)

040
120

[SCIT
.

7eh 7
JEXPY

"ASCIT
"ASCII
‘ASCIT
:
:

/BAD/
7 CS/
/R =/

104
123
075
117
116

100
17
102

040
117
101

.ASC

P.ABA:

P.ABB:

040

040
040
108
103
040
045
045
000
040
117
101
040
108
124

102

114

116

124
103

|
:
{ASCIT

‘&S
.
:
:
:
:

P.ABC:

/%06/

‘%fin Ju06r
ASCIT /uhs

‘AS

108
128
116
114
124
133

124
101
11
080
122
040
066
000
101
17
102
135
101
105
040
040

/BUF/

/H: 7
/ACT/
5w

101
103
040
045
043

125

"ASCIT

"ASCIT
"ASCIT
.

o
o

113

/#A /
/BADY
/ RE/
/CET/

040
124
040

97
jof

101
105
125
102
040
040

.ASCII
'ASCII
‘ASCIT
'ASCIT

106

066

000

P.AAZ:

040

117

101
130

26-Mar-1986 17:01:04

:
:
A
:
.
:
:
:
|
:
:
:
.
:

,
:

VAX-11 Bliss-16 V4.0-579

SEQ 38

DISK2:[SCODA.QNA . ZQNAJZGNAL .BLI;1

Poge

% 28)

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mer-1986 07:35:34

26-Mar 1986 17:01:04

/
/%A

e4
NN

A NN

\:\

E.323iiRazR
5
8
8 RE°88 = S\zfi
:ia\\
<QIe g

P.ABE:

110

P.ABD:

116

117

/LEA/
/R C/
/A B/
/IT,/

[

123

075

ASCII
ASCII
.ASCII
.ASCII

AR Arase

101
103
102

1 GRBESRENE SERREERERER

BERRBRBBARRBRRRETR R& B8FENBESK

105

Lam land
on | o |

/AND/

“Fr

E>Y

PROTECTION TABLE

VAX-11 Bliss-16 V4,0-579

SEQ 39

DISK2:(SCODA.GNA.ZONAIZONAL
.BLT;1

Page

(24)

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07: 3S5:34
26-Mar-1986 1 7: 0 1:04

PROTECTION TABLE

040

123
040
040
116

122
105
124

/E R/
/ESE/
75 ¥/

/0 O/
/9%N/<00>
<00>

101
114
116

/%A /

/XL /

/AND/
/ RL/
/

111

/BIT/

/S 4/
2.5 /

717

/0 B/
/E S/
/ET /7
/10 /7
/1%N/

<00><00>

/%A /

/RI /
/C B/
/1T /7
35 7/
/) 1/
/0 B/
/E S/

i:: 2

et
it

/70 /
/18N/
<00>

/%A /
/X1 /
/( B/
£XY /

/ 10/

/ BE/
/ SE/

/T 1/

/0 1/
/%N/<00>
<00>

/%R /
/NI /
/C B/
/IT /7
/2 Y
/ T0/
/ BE/
/ SE/

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA JZQNAL.BLI ;1

090(24)

CZANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

PROTECTION TABLE

040
040

124
061

116

000

101

040

111

040
124
040

124
102
122
105
124

040

101

104

040

040
120
124
000

101
123
101
040
045

040
122
104
075
117

045
040
124

.ASCII

/%A /

.ASCII

P.ABL:

123

054
130
103
104

/%N/<00>

.ASCII
.ASCII
.ASCII
.ASCII

117

.ASCII
.ASCII
.ASCII

.ASCII

.ASCI

.ASCI
.ASCII
.ASCII
.ASCII

P.ABM:

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

101
101
125

.ASCII
.ASCII
-ASCII

040
066
040
130

045
045
040
120

.ASCII
.
.ASC
.ASCII

104
040
066
000

040
045
045
000

.ASC
.ASCII
.ASCII
.ASCII

040
101
105

125
102
040

114

103

116

117

040

045

040

105
124
105

123
040
121

101

104

101

072

.ASCII

124

072

040

.ASC

P.ABN:

I3 -1/
/0 1/

.ASCII

.ASCII
.ASCII
.ASCII

117
105
105
124

045
000

103

P.ABK:

102
040
051

060
000
101

.ASCII
.ASCII

.ASCII

.ASC]

.ASCII

.ASCII
.ASCII
.ASCII

.ASCII

<00>

/NI /
/C B/
Ve « ¥ 4
/2 )/
/7 10/
/ BE/
/ RE/
/SET/
/ T0/
/ O/

/N/<00><00>

/%A /

/BAD/

VB T
/R, /

/EXP/
/ECT/
/ED/<00>
<00>

/%A /
/CSR/
/ AD/
/R =/
/ w0/
/6%A/
/
A/
/CTW/
/AL /

/= %/

/706%/

/EXP/
/ECT/
/ED /

/= 8/

/06%/
/N/<00><00>

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZQNAL.BLI;1

%2a)

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

PROTECTION TABLE

045
045
040
122
040
066

117
101
103
040
045
045

066
040
123
075
117
116

045
101
101
040
117

116
040
111
101
125

045
127
124
102
124

000

040
062

045
045

P.ABO:

104
101

123
117
050
0480

105
116
123
055

045
101
101
124
124
105
124
105
117
040
040
120
124
040
000
045
101
117
101
124
124
105
11
108
125
040
124
124
040
000
045
101
111

116
040
116
131
111
122
111
104
125
101
105
105
105
045
000
116
040
040
116
131
111
122
116
12
120
104
105
105
045
000
116
040
123

045
123
111
040
115
040
115
040
124
123
130
103
104
116

P.ABP:

045
116
123
111

P.ABQ:

040
1S
040
124
192

124
105
103
104
116
045
104
103

.ASCII
.ASCII
‘ASCII
ASCII
.ASCII
.ASCIT

/%06/
/%A /
7 CS/
/R =/
7 %0/
/6%N/

.ASCII
.ASCII
.ASCII
'ASCII
.ASCII

/sNw/
/A W/
/AIT/
/ AB/
/0UT/

.ASCIT <00>

.ASCII
‘ASCII
.ASCII
.ASCII
.ASCII
.ASCII

040
103
104
051

000

26-Mer-1986 17:01:04

P.ABR:

/ %D/
/2%A/

/ SE/
/CON/
/D(S/
/) -/

.ASCIT <00>

(ASCII
'ASCII
-ASCII
.ASCIT
.ASCII
.ASCIT
.ASCIT
.ASCII
-ASCII
.ASCII
.ASCIT
-ASCII
.ASCII
-ASCII
.ASCII
.ASCII
ASCIT
.
.ASCII
-ASCII
-ASCII
i
.ASCII
.ASCII
.ASCII
.ASCIT
.ASCII
.ASCII
.ASCII
.ASCIT
.ASCII
.ASCIT
.ASCIT

/siNs/
/A S/
/ANI/
/TY /
/TIM/

/ER /
/TIM/
/ED /
/0UT/

/ RS/
7 EX/
/PEC/
/TED/
/ %N/
<00><00>

/sNs/
7A N/
/0 S/
/ANI/
/TY /
/TIM/
/ER /
/INT/
/ERR/
/UPT/
/ DE/
/TEC/
/TED/
/ ®N/
<00><00>
/siNs/
/A D/
/ISC/

VAX-11 Bliss-16 V4,0-579

SEQ 42

DISK2:[SCODA.QNA.ZGNAIZGNAL.BLI;1

Page

(24)

CZANAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07: 35:
5:34
26-Mar-1986 17:01:04

PROTECTION TABLE

125

110
104
123
115
131
124
116
105

123

116
045
101
111
117
105
040
114
105
040
123
102
040
117

124
122

123
111

122
101
105
122
040
114
105
040
123
102
040
104
045

103

P.ABS:

116
124
117
102
113
117
105
117
124
102
113
101
101
105
114
040
105
122
105
045
045
104
103
116

124
125
110
104
123
115
131
122

040

4
b b

101
101
105
114
101
000
045
101
117
105
040
117
101
040
116
103
122
117

103
124
116
105
105
103
114
106
115
125
110
104
123
115
131
116
000
116
040
116
103
114
120
103
103
116
124
040
040
114
105
040
123
102
054
110
040
124
124
000
116
040
123
116
103
102
113
101
101
105
114
106
115

et
e [}

105
040
101
103
126
049
102
040
117
102
113

P.ABT:

VAX-11 Bliss-16 V4,0-579

DISK2:[SCODA.QNA.ZQNAJZQGNAL.BLI;1

Page

(24)

CZANAEQ DEQNA FUNCTIONAL TEST

5:34
1:04

PROTECTION TABLE

105

101
116
103
116
124

121
040
104
117
105
000
045
114
120
103
103
116
124
040
040
121

113
117
105
117
124
104
116

054
110

040
124
124
000
045
103
103
106

.ASCII

117

103
116

gggggggfiéfibgébgggfififififigbfi

104
116
101
040
116
103
000
045
101
117
102

VAX-11 Bliss-16 V4.0-579

DISK2: [ SCODA.QNA. ZGNATZQNAL .BLT ;1

% 24)

5:34

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:3
26-Mar-1986 17:0 1:04

PROTECTION TABLE

124
054
110
040
124
124
000
116
040
120
103
104
116

117
040

/CT0/
/R, /
/THE/
/N R/
/ETE/
/STe/
/N/<00>
/%N
/
/A R/
/EPL/
/RCE/
/ DE/
/QNA/
e Y¥
/HEN/
/ RE/
/TES/
/TEN/

105
122
105
045
045
122

P.ABX:

045
122
114
105
125
110
104
117
105
117

P.ABY:

114
105
105
101
124
116
105
123
116

<00>

/%N
/

/A R/
/EPL/

/ACE/
/ BU/
/LKH/

/ERD/
/ CO/

/NNE/
/CT0/
,R./
/THE/
/N R/

/ETE/

/STe/

IN/<00><00>

P.ABZ:

/%Nss/
/R D/

/ISC/
/0ONN/
/ECT/
/ TR/

103
122
124
116
105
123
116
045
101

/ANS/
/CE1/
/VER/
/ CA/

/BLE/

/ FR/
/0M /
/TRA/
/NSC/
/EIV/
/ER/<00>
<00>

VAX-11 Bliss-16 V4.0-579 p———

DISK2:[SCODA.QNA.ZQNA]ZGNAL.BLI;1

Page

%€ 283

CZANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07::3
26-Mar-1986 17:0

PROTECTION TABLE

116
040
104
117
105

045
101
040
116

103

111
124
114
120
103
103
116
124
040
104
125
110
104
123
115
131

P.ACA:

.ASCII

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

?532

VAX-11 Bliss-16 V4,0-579 g

.0DISK2:[SCODA.QNA.ZQNAJZQNAL.BLI;1

age(24)

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 0

PROTECTION TABLE

040
123
117
102
040
040
122
103
101
040

/A F/
/USE/

/ 0K/

/ Bl/
/T 1/
/N C/
/SR0O/
/ CL/
/EAR/
/.,
N/

/0 P/

040

127
040
040
126

/0MWE/
/R T/
/0 X/
/CVR/
/ %N/

045

/RD /
/REC/
/EIV/
/E D/
/ESC/
/RIP/
/TOR/
/:/<00><00>

/%N
/
/A B/

diz:eaaaRRERE::

/AD /7

/ECT/

/= %/

/A 1/

117
101
130
103

/%Nst/
/A B/

075

<00>

P.ACE:

116
040
104
105
111
040
123
111
117
000
116
040
104
122
123
124
105
122
124
072
101
103
101

/X =/
/ %D/
/4%N/

DISK2:[SCODA.QNA.ZQNAJZGNAL.BLI;1

Page

% (28)

5:34

CZANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:3
26-Mar-1986 17:0 1:04

PROTECTION TABLE

000
116
040
104
105
111
040
106
122
000
116
040
101
120
101

045

P.ACH:

<00><00>

.ASCII

P.ACI:

<00><00>

.ASCII

/%Ns/
/A D/
/MA /
/0PE/

/RAT/
/ION/
/ TA/
/KES/
/7 T0/
/0 L/
/0NG/
/9%N/<00>
/%Ns/
/A T/

saEE

P.ACJ:

P.ACK:

/00 /
/MAN/
/Y D/
/EVY/
/CES/
/9%N/<00>

/9%Ns/

/A T/
/HER/
/E W/
/RS /
/A P/
/0ME/
/R F/
/RIL/

123

116

/A B/
/RD /
/REC/

/EIV/
/E B/
/UFF
/ER:/

117
124
105
124

040
116
116
116
040
117

/%N
/

VAX-11 Bliss-16 V4.0-579

SEQ

’

DISK2: [SCODA.QNA.ZQNAJZGNAL.BLI;1

Page 48
(24)

CZANAEQO DEQNA FUNCTIONAL TEST
PROTECTION TABLE

050
040

123
055

116
040
111
101
125
045
045

045
127
124
102
124
104
101

122
000
101
106
117
105
124
124
105

040
000
040
040
040
123
054
131
040

110

116
103
122

124

117

101

114

040

114
117
105
040
000
116
045
055

040
040
122
045
000
045
101
055
055
055
055
055
055
055

/E(S/
/) -/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/%Nw/
/A W/
/AIT/
/ AB/
/0UT/
/ %D/
/2%A/

.ASCII

.ASCII
.ASCII
.ASCII
ASCII
.ASC
.ASC
ASCII
.ASCII
.ASCII

.ASC
.ASC
.ASCII

.:SSEL[

124
105
124
122
040
123
116

193

055
055
055
055
055
055

P.ACN:

105

045
124

.ASCII
.ASCII

.ASCII

131
110
101

040
040
111
106
115
105
045
000
116
040

P.ACM:

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

P.ACO:

<00>

/ HO/

/UR /
/-/<00><00>
/#A /
/IF /
/NO /
/RES/
/ET,/
/7 TY/
/PE /
/ANY/
/ CH/
/ARA/

/CTE/

ASCII
.ASCII
.ASC
4
.ASCII
.ASC
.ASC
i
.
.ASCII

/R T/
/0 E/
/XIT/
/ FR/
/
S/
/TeN/
<00><00>
/9N
/
/A 1/

/VNAL/

755 7

:
5
i
(I
u
i
_ASCII
.ASC
.ASC

/AL /
/10 /
/ZER/
/0 8/
/N/<00><00>
/s#Ns/
/NsA/
/===/

ASCHT JEau/

P.ACP:

ASCII
.ASC
.ASC
.ASC
LASCII
ASCII

/---/
/===/
f===/
[===/
/---/
/---/

SEQ 49
VAX-11 Bliss-16 V4.,0-579
DISK2:[SCODA.QNA.ZQNAJZQNAL.BLI;1

Page

49
(24)

CZANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986
07::35:134
26-Mar-1986
11s:01: 04

PROTECTION TABLE

lslaiaisis
Ll

i fi&éfififi%fiéfififififié.,: fi%fifi;{ a8aa88a000222

)
-

893a5555553353

aas

055
055

uie)

P.ACQ:

Jecef
y .y
y.
yoy
y.
y
Y,
y

y
y
y
yy Y,
Y,
/--%/

/N/<00>
/%N
/
/A B/

/AD /

/CSR/
/, B/

7118/

/7 ST/

IWK
/ AT/

/ 0:/
/%N/<00>

P.ACR:

P.ACS:

101
114

123

<00>

/%Ns/
/A B/

VAX-11 Bliss-16 V4.0-579

SEQ 50

DISK2:[SCODA.QNA.ZANATZGN
.BLIAL
;1

Page

50
(24)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

PROTECTION TABLE

123
124
040
124
045
000
116
040
104
124

045
102
040
101

040
104
123

101
122
123

125
040
124

115
101
040

.ASCII
ASCII
.ASCII
ASCII

/= s/

040

105

.ASCII

/A E/

040
066
000
116
040

045
045
000
045
102

y
.ASCII
:
.
.ASC

/= %/
/06%/
/N/<00><00>
/9%Nss/
/A B/

111

103
103

8:2

111

124
111
102
123
116

26-Mar-1986 17:01:04

117

116
040
104
105

045
102
040
121

116

040
104
123
040

.ASC
.ASC
.ASC

.ASCII
;

101
122
123
000

101

.ASC

110
113

040
104
123
040

057
120
105
105
123
122
116

P.ACT:

040

117
101
040
107
124
072
000

045

102
040
122
105

ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASC
.ASCII
.ASCII
F

P.ACU:

LASCII

.AS

/ ST/
/AT1/
/C B/
/ITS/
/:%N/
<00><00>
/%Nss/
/A B/
/AD /
/STA/

/T10/

/N A/
/0DR/
/ESS/

/ CH/
/ECK/

/SuM/
/: A/
/CT /

/TIO/

VAX-11 Bliss-16 V4.0-579

SEQ 51

DISK2:[SCODA.QNA.ZQNAJZQNAL.BLI;1

Page

(24)

27-Mar-1986 07:35:34

CZQNAEO DEQNA FUNCTIONAL TEST

PROTECTION TABLE

105
105

/XPE/
/CTE/

/D R/
/L (/

/ Bl/

/T S/
B,
/70 7

/BE /

/SET/
/ T0/
/ On/
/N/<00><00>
/%Ns/
/A B/
/AD /

aazaas gg aaaaazas
Il
Ll

P.ACX:

/B/<57>/0/
/ PR/

—

/0M /
/

/DEX/

/CKS/
/UM:/
/7 IN/

-4

116

/ =/
/9%06/
/%A /
/ACT/
/ =/
/%06/

/%A /

/EXP/

>
N
~

~
>

2
R

~
e

/%06/
/9N/<00>
/8N
/

,\‘

P.ACY:

SRR
EHH
ARRREE

045

/ =/

>
w
O
I
L L]

130
103
104
114

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579 —

DISK2:

[SCODA.QNA.ZQNAJZGNAL.BLI;1

m(24)

ZANAL

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

PROTECTION TABLE

075
117
116
045

045
045

/= %/
/06%/
/N/<00>
/%N
/
/A B/

045
102

/AD /
/INT/

ASCII

/UPT/
/: A/

ASCII
ASCII
ASCII
ASCII
.ASCII
.ASCII
ASCII
ASCII
ASCII

/= %/

ASCII
ASCII

ASC
ASCII
ASCII
ASCII
ASCII

/DR /

/06%/
/A A/
el 7/
/LEV/
/ =/
/%06/
/%A /
/ LE/

/A R/

/STE/

/%N/<00>
<00>

/A B/

/TRA/
/NSM/
/1T /
/STA/
/TUS/
7,
17

760
7

SEQ 53
VAX-11 Bliss-16 V4,0-579
DISK2:([SCODA.QNA.ZQNAJZGNAL.BLI;1

Page

(24)

=,
ZANAL
v01.0

007066
007071
007074
007077
007102
007105
007110
007113
007116

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

26-Mar-1986 17:01:04

PROTECTION TABLE

115
131
117
111
117
045
045
101
105
103
106
114

101
040
114
123
116
116
116
040
126

116
103
114

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

P.ADC:

/%N/<00>

.ASCIT

/A D/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII

072

120
120
117
124
075
117
116
116

.ASCI%
.ASCII
ASCII

105
101
105
124
111
105
125

.ASCII
ASCII

P.ADD:

.ASCII
.ASCII

/%Ns/

/EVI/
/CE /

/FAI/

/LED/
7 10/

/_IN/

/TER/
/RUP/
/T: /
/CPU/
/ PR/
/IOR/

/ITY/
/ =/

/%06/
/#N/<00>
/A W/

.ASCII

11
[I

P.ADE:

/MAN/
/Y C/
/0LL/
/IS1/
/ONS/

/TED/

/PT:/

VAX-11 Bliss-16 V4,0-57

SEQ 54

DISKZ:[SCC?):.N.ZW?Z&MI.BLI:I

Page

% 22)

CZQNAEO DEQGNA FUNCTIONAL TEST
PROTECTION TABLE

103
115
105
116
116

040
166
145
040

163
075
117
101
116
130
040
064
040
164
154

113
117
040
000
045
122
040
163
102
145

27-Mar-1986 07:3 5:34
26-Mar-1986 17:0 1:04

P.ADF:

.ASCII

P.ADG:

.ASCII

<00><00>

.PSECT
RCV.D.LIST::
. BLKW
XMIT.D.LIST::
RCV.BUFFER:
:
XMIT.BUFFER::

$GLOBS,
100
100
2000

VAX-11 Bliss-16 V4.0-579

DISKZ: [SCODA.QNA. ZGNATZGNAL .BLT; 1

Page

% 223

ES
ZANA1

CZANAEO DEQNA FUNCTIONAL TEST

v01.0

PROTECTION TABLE

010400

BLKW

011522
011523
011524
011525
011526
011527
011530
011531
011532
011533
011534
011535
01153
011537

252
252
125
125
125
125
125
125
377
377
377
377
377
377

BLKW
PTRN. TABLE
:;
BYTE
BYTE
BYTE
'BYTE
‘BYTE
‘BYTE
‘BYTE
BYTE

0
377
252
125
314
63
360
17

BYTE
.BYTE
BYTE
BYTE
BYIE
.BYTE
BYTE
'BYTE
'BYTE
‘BYTE
‘BYTE
BYTE
BYTE
.BYTE

0
0
0
0
0
0
125
125
125
125
125
125
252
252

BYTE
'BYTE
‘BYIE
BYTE
'BYJE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
‘BYTE
'BYTE
.BYTE

252
252
125
125
125
125
125
125
377
377
37
377
377
377

TARGE
. ADR:T:

-BYTE

000
000
000
000
000
000
125
125
125
125
125
125
252
252

2000

011502
011503
011504
011505
011506
011507
011510
Giisil
011512
011513
011514
011515
011516
011517

000
377
252
125
314
063
360
017

BLKW

SETUP .BUFFER: :
BLKW
400
I0P. TABLE: :
BLKW
10
ETH.STATION, ADR: ;
BLKW
6
STATION.ADR: :

011472
011472
011473
011474
011475
011476
011477
011500
011501

011540

26-Mar-1986 17:01:04

PHYS.ADR::

010426
011426
011446
011462

011502

27-Mar-1986 07:35:34

VAX-11 Bliss-16 V4.,0-579

a 56

DISK2:([SCODA.QGNA.ZGNAIZQNAL.BLI:1

Page

(23)

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

372
104
104

S R
.
S

JRBRURUSE383833

SRS g

NOOOCOO

125

luarah1:
RO BN

PROTECTION TABLE

VAX-11 Bliss-16 V4.0-579

SEQ

DISK2:[SCODA.QNA.ZQNAJZGNAL .BLI;1

Page

57
r24)

CZQANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07: 35:34
26-Mar-1986 17: 01:04

sssmaamsssaaanals

BD.PROM.DE

TD16::

[

~Noni—=ax O
.OOMa-JsunshaH<>
n
w
w

PROTECTION TABLE

SEQ 58
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZGNA]ZGNAL.BLI;1

Page

58
(24)

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34

PROTECTION TABLE

100000
100200

TD13::

26-Mar-1986 17:01:04

-100000
-77600

XTIT .BUFFER
0
0
-100000
-77500
XgIT .BUFFER
0
0
-100000
-77700
XTIT .BUFFER+2

0
0
-100000

60000
XI;IIT .BUFFER+4
0
0
-100000
20000
X?IT.D.LISToN
0
0
-100000
-100000
XMIT.D.LIST+70

-100000
-100000
XTIT .BUFFER
0
0
-100000
-100000

VAX-11 Bliss-16 V4,0-579

SEQ 59

DISK2: [SCODA.QNA.ZGNAJZQNAL.BLI;1

Page

(24)

CZQNAEO DEQGNA FUNCTIONAL TEST
PROTECTION TABLE

38855855a00A58RnRaREER0aE SunnnatnnanaEananE
Tt

RD13::

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04
XMIT .BUFFER+2
-177

0
0
-100000
-100000

XHIT .BUFFER+400

0
0
-100000
40000
XHIT.D.LIST+60
0
0
~100000
-60000
XMIT.BUFFER+402
-71
0
0
~100000
20000

-100000
-100000
RCV.BUFFER
0
0
-100000
-100000

RCV.BUFFER+2

-76
0
0

-100000
-100000
RCV.BUFFER-176
0
0
-100000
-100000
RCV.BUFFER+200

0
0
-100000
-100000
RCV.BUFFER+204

SEQ 60
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QGNA.ZQNAJZGNAL.BLI;1

*(24)

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

I0P.DATA:;

012376

GET.ADR::

012400

012402
012404
012406

012374

.BLKW
XBUF .LENGTH: :
.BLKW
RBUF .LENGTH: :
.BLKW

INTERRUPT .FLG: :

e
e

012372

SWP. TABLE : ;

0
0
-100000
-100000
RCV.BUFFER+400

012370

Rtl:v.o.LIsro124

HW
. TABLE
P
::

0
0
-100000
-40000

012366

-74
0
0
-100000
-100000
Rgv.swsn.su

BES S

PROTECTION TABLE

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZQ
.BLI;1
GNAL

Page

(24)

V010

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

PROTECTION TABLE

SEQ 62

VAX-11 Bliss-16 V4.0- 579
DISK2:[SCODA.Q
. ZGNA
NA JZQNA1.BLI;1

012410
012412

012414
012416

012420
012422

012424
012426
012430

012432

ShBs CocoaoRccosissssssassst:

012434
012436

L8SOFT, TSPTHV,

LSRPT,

LS$INIT

L$CLEAN, LSLAST, LSHARD, LSDVTYP

L$DESC, L$OU,

L$AU, L$AUTO, T1

T2, 13. T4, 15, 16, T7, 18. 19

.90(2‘)

LS
ZQNAL
v01.0

CZGNAEO DEGNA FUNCTIONAL TEST
PROTECTION TABLE

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04
GLOBL
.GLOBL

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
000040
000037
000036
000035
000034
000340
000300
000240
000200
000140
000100
000040
000000
000004
000010

000040

000100
000200
000400
001000
002000
004000

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BIT08==
BIT07==
BIT06==
BIT0S==
BITO4==
BITO3==
BIT02==
BITO1==
BIT00==
BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==
EF.START==
EF .RESTART==
EF . CONTINUE ==
EF -NEW==
EF .PWR==
PRIQ7==
PRI06==
PRIOS==
PRI04==
PRIO3==
PRI02==
PRIO1==
PRI00==
EVL==
LOT.

IDU==

ISR==
UAM==
BOE==
PNT==
PRI==
IXE==

T10. TH, T2, 113, Ti4, T1S, T16
T17, Ti8, T19, 120, 121

-100000
40000
20000
10000
4000
2000
1000
400
200
100
20
10
3
2
1
1000
400
200
100
40
20
10
3
2
1
40
37
36
35
3
340
300
240
200
140
100
40
0
4
10

100
200
400
1000
2000
4000

SEQ 63

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZONAIZGNAL.BLI;1

Page 63
(24)

M5
CZANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

PROTECTION TABLE

HOE
=-

L$ERRTBL ==
L$SW==
L$HW==
L $DEPQO==

DESCR.LIST==
DATA.BUFFER==
QSTOl==
QST02==

QSTO3==

QST04==

:
40000

ERRTYD

TYP
L$SWLEN.2
L$HWLEN.2
L$REV.1
LIST
ER

33333535 5522582582 e
2

LOE==

10000

IER==

??PV’_‘?‘V““V““““““““““‘D“

IBE==

g i i e¢: i
Hilt

ZANAL

vo1.0

VAX-11 Bliss-16 v4.0-579

DISK2:[SC
. ZQGNAJZ
ODA
QGNA1.B
.QN
LI;1
A

Page

(24)

NS
CZQANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:34
26-Mar-1986 17:01:04

PROTECTION TABLE

ggs§§§§§§§5§§5§§§§§§§§§5§5alsislatatalslsSRESESEEES

MSG35==
MSG36==
MSG37==
MSG38==
M5G39==

MSG40==
MSG41==

PRI DIEEDD

MSG43==
MSG44==
MSGA4S5==

MSG47==
MSG48==
MSG49==

MSGS51==
MSG53==
MSG54==

@ans
v e

003572’
003670’
003774:
004066
004146’
004232
004322°
004364
004444’
004530:
0046
004710’

rrovovvvvvov

1,4

ZANAL
vo1.0

PSECT SUMMARY

Words
82
2724

1960

Attributes
RO, I ,
RW,

RO,

LCL,

REL,

CON

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZGNAL.BLI;1

Page

(24)

ZANA1

CZANAEO DEQNA FUNCTIONAL TEST

v01.0

Library

T S

File

e R

26-Mar-1986 17:01:04

Total

224

Symbols --------

Loaded

Percent

COMMAND QUALIFIERS

BLISS/PDP11 ZQNA1.BLI/LIST=ZQGNA1.LIS/0BJECT=ZQNA1.0BJ/SOURCE=PAGE:53

i Size:

0 code + 4766 data words

me:

: L.n../cpu'n n:

8518

; Lexemes/CPU- Hm 53892
; Memor
I Used:
; Compilation Conplete

VAX-11 B1i

—"
DISKE: (SCOBA. GNAva,
ZNA T 70NAL BLT; 1

Statistics

: DISK2:[SCODA.QNA.ZQNAJQGNALIB.L16;2

27-Mar-1986 07:35:34

PROTECTION TABLE

Pages

Mapped

Processing
Time

00:00.1

%24)

Ll ad d d ol e Teolo Yo Yo Yo

e we e

e we

CZQNAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

MODULE ZQNA2 (STITLE 'CZQNAEO DEQNA FUNCTIONAL TEST

IDENT = 'VO1.0’

ADDRESSING_MODE( ABSOLUTE )
)

%SBTTL

‘PROGRAM INIT MODULE'

BEGIN
LIBRARY 'QNALIB’

REQUIRE 'BLSHAC.ISEQ':

! GNALIB LIBRARY

SEQ 67

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZGNA2.BLI;1

! DIAGNOSTIC SUPERVISOR LIBRARY

Page

(1)

et o e e o o et o e ot ot et

CZQNAEO DEGNA FUNCTIONAL TEST
EXTERNAL DECLARATIONS

%SBTTL 'EXTERNAL DECLARATIONS'
! <BLF /FORMAT>
PSECT

CODE = AA$CODES$;

FORWARD ROUTINE

NXM_INT
QNA_INT

EXTERNAL ROUTINE

RESET_DEGNA

: L$ISR NOVALUE,
: L$ISR NOVALUE;
: NOVALUE;

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

SEQ 68
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNA]ZQNA2.BLI
;1

Page

(2)

CZQNAEO DEQNA FUNCTIONAL TEST

EXTERNAL DECLARATIONS

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

e e et

fae

COMMUNICATION AREA DECLARATIONS

I0P_TABLE

: VECTOR [ 8, WORD ],

Tee

HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS

o ee

SWP_TABLE

: REF BLOCK [ HWP_SIZE, WORD ] FIELD ¢ HWP_FIELDS ),

: REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ).

INTERRUPT_FLG

: WORD,

REG_ADR
I0P_DATA
GET_ADR

: REF REG_STR FIELD ( IOP_FIELDS ),
: REF REG_STR FIELD ( IOP_FIELDS ).
: REF ADR_STR FIELD ( IOP_FIELDS ).

! 1 = INTERRUPT OCCURED

TEMPORARY STORAGE DATA DECLARATIONS
TMP_IOP_ADR
TMP_REG_DATA

: WORD,
: WORD,

! 1/0 PAGE REGISTER ADDRESS
! 1/0 PAGE REG CONTENTS

TEMP2

: WORD,

! TEMPORARY STORAGE LOCATION

TEMP4

: WORD,

TEMP1
TEMP3

TEMPS
TEMP6
TEMP7

TEMPS
TEMPY

: WORD,

: WORD,
: WORD,
: WORD,

! TEMPORARY STORAGE LOCATION
! TEMPORARY STORAGE LOCATION

! TEMPORARY STORAGE LOCATION

! TEMPORARY STORAGE LOCATION
! TEMPORARY STORAGE LOCATION
! TEMPORARY STORAGE LOCATION

: WORD,
: WORD,

! TEMPORARY STORAGE LOCATION
! TEMPORARY STORAGE LOCATION

:WORD,

!logical unit # (unit under test)

! added location(s)

logun

0 0

Tee

QUESTIONS AND ERROR MESSAGEES DECLARED EXTERNALLY

@STO1, QSTO2, QSTO3, QSTO4, Q@STOS, QSTO6, QSTO7, QST10, MSGS4;

SEQ 69

DISK2:[SCODA.GQNA.ZGNATZGNA2.BLI;1

EXTERNAL

HWP_TABLE

o o e et

27-Mar-1986 07:35:55

Page

CZQNAEO DEQNA FUNCTIONAL TEST
0 1 et o ot e et e o ot e ot et et s

TYPE AND DESCRIPTION

%SBTTL

'TYPE AND DESCRIPTION'

NAMES OF DEVICES SUPPORTED BY PROGRAM

EQUALS;
DEVTYP (%ASCIZ'DEQNA/M7504');
140

TEST DESCRIPTION

DESCRIPT (#ASCIZ'DEQNA FUNCTIONAL TEST');

27-Mar-1986 0 7:35:55
26-Mar-1986 17:01:04

SEQ 70
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI;1

Page

(4)

27-Mar-1986 07:35:55

CZQNAEO DEQGNA FUNCTIONAL TEST

26-Mar-1986 17:01:04

DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI;1

*
*

%SBTTL 'HARDWARE PARAMETER CODING SECTION'

THE _HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

THIS CODE IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR
FOR DEVICE INFORMATION TO PUT IN THE P-TABLE.
THIS CODE IS USED
IN CONJUNCTION WITH THE DEFAULT P-TABLE TEMPLATE.
THE MACROS
USED IN THIS SECTION ARE “GPRMD", “GPRMA",

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

P 0 et et et ot ot e e ot o o ot o o s e e ot ot e

m.o.-.o...-.-.c.om'-w.oo-.ouu.-u-ou.n

HARDWARE PARAMETER CODING SECTION

VAX-11 Bliss-16 V4,0-579 -

(QSTO1, %0'0', 0, %0'174440', %0'174460', YES, 1:
T02, %0'2'. 0. %0'700',

' %0'704',

' YES. 1);

! 10 PAGE ADDRESS 2

1 INTERRUPT VECTOR ADDR ?

Page

(3)

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

*
&

pp—"

THE_SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

BGNSFT;
GPRML ( QSTO3,

XFERF (NOTIMER) ;

#0'0’',

-1, YES, 1);

! DO YOU WANT TO TEST SANITY TIMER ?

GPRMD ( QSTOS, %0'4’', D, -1, O, 7, YES, l)é
!
SANITY TIMER TIME-OUT VALUE ?
$LONOTIMER);
GPRML ( QSi06, %0'6',
-1, YES, 1);
GPRML ( QSTO7, #0'10', -1, YES, 1);
GPRML ( QSTO4, #0'2', -1, YES, 1)

GPRML ( QST10, %0'12', -1, YES, 13:
ENDSFT;

SEQ 72

VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI;1

%SBTTL 'SOFTWARE PARAMETER CODING SECTION'

10 1 et e o e ot et s et e e o o ot o e o e et ot o e o e ot et

CZANAEO DEQNA FUNCTIONAL TEST
SOFTWARE PARAMETER CODING SECTION

! EXTERNAL LOOPBACK MODE ?
! SYSTEM HAS BLOCK-MODE MEMORY ?
! LOOPBACK CONNECTOR IN DEGNA ?

! run NXM test 21, sys has < 4M mem

Page

(6)

%SBTTL

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

Tae
'
H

THE REPORT CODING SECTION CONTAINS THE

'
.

“PRINTS"” CALLS THAT GENERATE STATISTICAL REPORTS.

THIS SECTION CONTAINS THE CODE FOR PRINTING
STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC.
IT IS
EXECUTED BY THE OPERATOR COMMAND “PRINT” OR BY THE MACRO CALL
“DORPT
",
USE THE PRINTS MACRO TO PRINT THE INFORMATION.
USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS.
IT IS
THE PROGRAMMER'S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE

]

FORM AND CONTENT OF THE STATISTICS.

BGNRPT ;
TEMP1 = 1;

ENDRPT ;

ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST
“21.0/

105

121

101

057

065
000
121

101

040

124
116

111
101

123

124

125

040

L$DESC: : .ASCII

116

124

M5/
/04/<00>
2
/DEQ/
/NA /
/FUN/
/CT11/
/0ONA/

/L T/
/EST/

5555555 ¢

105

/DEQ/
/NA/<57>

L$HRDLN::
GP$1::

GP$2:
:

067
064

$CODE$,

L$DVTYP: :

<00>

; I<L$MD-LH-RDLN>/2>-1>

QSTO1

-3340
-3320
1031
QsST02

I T RS

N Sl A

B o

030 . Memoettn, e

SEQ 73

VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI ;1

‘REPORT CODING SECTION'

P20 N0 PO N s ot ot o o ot o o s o e o e o ot ot s

o
&

CZQNAEO DEGNA FUNCTIONAL TEST
REPORT CODING SECTION

Page

(7)

Jo
ZANA2

CZANAEO DEQGNA FUNCTIONAL TEST
REPORT CODING SECTION

000070

000700
000704

§:§§§§§§§§§§§§§ 555555 155558:

vo1.0

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

L$NDHRD: :

000072

L$SFTLN: :

000074

GP$3::

000102

$NOTIMER:

000104

GP$4::

SLNOTIHER
GP$5::

GP$6::

GP$7::
GP$8::

SEQ 74
VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZANATZGNA2.BLI;1

700
704

1
<<<L$NDSFT-L$SFTLN>/2>-1>

130
QgTOS

<<<<$LNOTIMER- $NOTIMER>%400> +4>+40>
2052
QSTOS
-1
0
7

1004
3130
05706
4130
0§T07

1130
0§T04
5130
0?110
1

RESET.DEQNA,

IOP.TABLE, HWP.TABLE

SWP.TABLE, INTERRUPT.FLG, REG.ADR
I0P.DATA, GET.ADR, TMP.IOP.ADR
TMP
. REG.DATA mfl. TEMP2, TEMP3
TEMP4, TEMPS.
T

TEMP7. TEMPB

TEMP9, LOGUN. osm. QST02. QSTO3

%T;g. @STOS, QSTO6, @STO7. QST10
100000
010000

BIT15==
BIT14==
BIT13==
BIT12==

BITil==

001000

BIT10==
BIT09==
BIT08==
BITQ7==

Page

8
7

K6
ZANA2

CZANAEO DEQGNA FUNCTIONAL TEST
REPORT CODING SECTION

v01.0

000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
000040
000037
000036
000035
000034
000340
000300
000240
000200
000140
000100
000040
000000
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
000050'
000074

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

BIT06==
BITQS==
BIT04==
BITO3==
BIT02==
BITOl==
BITOO==
BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==
BIT3==
BIT2==
BIT1==
BITQ==
EF .START==
EF .RESTART==
EF . CONTINUE==
EF .NEW==
EF .PUR==
PRIO7==
PRI06==
PRIOS==
PRI04==
PRI03==
PRIO2==
PRIO1==
PRI00==
EVL==
LOT==
ADR==
IDy==
ISR==
UAM==
BOE==
PNT==
PRI==
IXE==
IBE==
IER==
LOE==
HOE==
L$HARD==
L$SOFT==
.SBTTL

VAX-11 Bliss-16 V4.0-579

SEQ 75

DISK2:[SCODA.QNA.ZQNA)ZQGNA2.BLI;1

Page

100
40
20
10
4
2
1
1000
400
200
100
40
20
10
4
2
1
40
37
36
35
34
340
300
240
200
140
100
40
0
4
10
20
40
100
200
400
3000

4000
10000
20000
40000
-100000
L$HRDLN«2
L$SFTLN+2
LRPT

.PSECT AAOM RO
000000
000006

012737

000207

000001

0000006

LRPT:

MOV

RTS

#1,TEMPL

T _CODING SECTION
1647

1625

ZANA2
vV01.0

CZQNAEO DEQNA FUNCTIONAL TEST
REPORT CODING SECTION

; Routine Size:

4 words,

; Maximum stack depth per

‘

000000
000004
000006

004737
104425
000207

; Routine Size:

Routine Base:

invocation:

1650
1651

1653

1652

1
1

SEQ 76

DISK2:[SCODA.QNA.ZQNA]ZGNA2.BL;1
I

Page

10
(7)

AASCODES$ + 0000

L$RPT:: JSR
TRAP
RTS
Routine Base:

; Maximum stack depth per invocation:
H
3

VAX-11 Bliss-16 V4.0-579

.SBTTL L$RPT REPORT CODING SECTION

000000’

4 words,

0 words

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

2 words

PC,LRPT
25
PC

AASCODE$ + 0010

1647

uNNNNu&&&0uuuuNNNNNNNNNNNNNHH#.—-#.—-O—Ho-o-o-t—t-o-o-»-o—o-o-o-o-o-»o-u-o-

CZQNAEO DEQGNA FUNCTIONAL TEST
INITIALIZE SECTION

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

SEQ 77
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA. ZGNATZGN
.BLI
A2
;1

%SBTTL 'INITIALIZE SECTION'
THE INITIALIZE SECTION CCNT AINS THE CODING THAT IS PERFORMED
AT THE BEGINNING OF EACH PASS.

ARE SUPERVISOR EVENT FLAGS THAY ARE-USED'
To LTTHE'S"

DIAG'DSTIC KNOW uoen
WI& S%ITI%TI'EEX%W "i
TAKING

Sgflg% % afig .& INIT CODE IS EXECUTED AM) THE

RESTCOMMAND
MT

CONTINUE COMMAND

NEW
P

EXAMPLE OF EVENT FLAG USE:

EF .START

EF .RESTART

EF . CONTINUE
EF .PWR
EF .NEW

IF READEF(EF.START) THEN
START FLAG 1
= :

DURING THE INIT CODE

THE “GPHARD" MACRO TO OBTAIN P-TABLE
INFORMATION FOR MVIéTEESTING.
GET ONE UNIT'S INFORMATION IF

THIS IS A SEQUENTIAL DIAGNOSTIC. NUMBER OF UNITS AVAILABLE IS IN
A HEADER LOCATION: "“L$UNIT".

BGNINIT;
LOCAL
START_FLAG,

DELAY_MULT,
cont_fleg;

SETPRI (FRIO7):

SET IF THIS PASS IS A START
CONTAINS DELAY FACTOR
set if event flag ef_continue
PRI
7 ORI
NO INTERRUPT
TY
S ALL

START_FLAG
= CLEAR_FLG;

CLEAR

IF_READEF (EF_PWR)
THEN
BEGIN
PRIN
( MSGS5
TF
4 );

ARE WE HERE BECAUSE OF POMER FAIL?

cont_Fflag = clear_flg;

INCR COUNT FROM
O TO 60 DO
BEGIN
DELAY_MULT

DELAY(. MLAYMTS:

END;

BREAK;
END;

IF_READEF (EF_START)
THEN
BEGIN

BEFORE TESTING IT

same, clear continue flag before use

“THERE WAS POMER FAILURE - WAITING"
WAIT APPROX. 60 SECONDS

BREAK FOR APT

IS THIS A START ?

Page

(8)

MNNWUNNNU‘&UIUIUI0.00000MNGMNNNNNNNNNNN“MNMNNNNNNNNW

CZANAEO DEQNA FUNCTIONAL TEST
INITIALIZE SECTION

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

START_FLAG = TRUE;
:

Tse

CLEAR HARDWARE P-TABLE ON A START BEFORE DOING THE GPHARDS

IF_.START_FLAG OR READEF (EF_NEW) OR READEF (EF_CONTINUE)
T'EENGIN
! IF THIS IS A START

INCR INDEX FROM O TO HWP_SIZE BY 2 DO

! ZERO OUT THE TABLES

3 (M_TAELE + .INDEX) = 0;

ol
fae

GET BASE ADDRESS OF HARDWARE P-TABLE AND DEQNA I/0 PAGE

= .1

!advance to next unit O or 1 2 = done

¥ " logun REQU 2’

)

then

®CBCAL TABLE POINTER,
n

IF GPHARD (

.logun, TABLE_POINTER ) NEQU O

"J0P DATA = 1P TABLE [ ADOR )

;

! SAVE MW P-TABLE ADDRESS

GET-ADR

i SAVE I/0 PAGE BASE ADDRESS

= .HWP_TABLE [ ADDR 1;

= .HWP-TABLE [ ADDR

TP IOP_ADR =

.HWP TABLE

[

| SAVE 1/0 PAGE BASE ADDRESS

BEGIN
10P_TABLE [ .INDEX ) = .THP_I0P_AOR;
TMP_IOP_ADR = .TMP_IOP_ADR 7 2;
END;

END;

it Toeun EOLU 2

]

i
.

RETURN;
ENDINIT;

! GET P-TABLE ADDRESS

HWP_TABLE = . TABLE

REG-ADR

A
.GLOBL

L$DLY

SEQ 78

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI;1

Page

(8)

B7
CZQNAEC DEQGNA FUNCTIONAL TEST
INITIALIZE SECTION

1s:
2%:

000000G

000004

3$:
4%:

54:

000040

74:

000035

;

000036

8%:

000000G

9$:

000002
000002
177777

000000G

000000G 000002

0000006

10%:

%;s R2

MOV
ROR
BLO
MOV
TRAP
BCS
MOV

#1,R4
R4
8s
#35,R0
47
8$
$36,R0

47
104

cHP

LOG!N:.OZ

BEQ
MOV

BEQ
MOV
MOV

H spl‘

; *,COUNT
; *,DELAY.MULT

DELAY.MULT, $$THP2

1696

1699

; *,88TMPL
; $STMP

; $8TMPL.»

; $8TMP2

; COUNT,*

1696
1693

1704

RO
HWP , TABLECRO)
82,
RO, #2
9%

1688
1691

1694

CLR
CLR
ADD
cMP
BLE

TRAP
18T

000000G 000000G
000000G

OMSGS4, -(SP)
#1,-(SP)
SP,RO

TRAP

TRAP
BHIS

i START.FLAG

#23420,R3
R3,R1
5%
L$DLY,RO
44
4(SP)
RO,
33
R1
2%
22
R2,1$
(SP)+,(SP)+

MOV

1687

MOV
MOV
BEQ
MOV
BEQ
CLR
S0B
DEC
BR
TRAP
S0B
cMP
BHIS

000001

0000006

F.SO"

*,START.FLAG

1707
1714

INDEX

1718
1719
1718

; START.FLAG

(INDEX )
+» INDEX

INDEX,
*

:-l.LOGLN

1720
1728
1729

134
LOGUN,
RO

42
RO

124
@HWP . TABLE , IOP . DATA
RO, HWP . TABLE

D N, e e B TR

000075

023420

1649

MOV
MOV
MOV

000000G
000001

1733

: TABLE.POINTER
i TABLE.POINTER,*

1736

1737

TRAP

BHIS

LINIT INITIALIZE SECTION

R1, $SAVE4
-($P)
#340, RO
41
R4
#34,RO

SR NI

000034

SR
ST
MOV
TRAP
CLR
MOV

€ &

000340

.SBTTL
J

Page

T T

LINIT:

SEQ 79
VAX-11 Bliss-16 V4.,0-579
DISK2:[SCODA.QNA.ZQNAJZANA2.BL
;1
I

000000G

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

ZANA2
v01.0

ZANA2

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

000232

000234

000240
000244
000250
000252

000260

000266
000272

000276

000300
000306
000310
000316
000320

27-Mar-1986 07:35:55

INITIALIZE SECTION

011000

010037

010037
010037
005000
013760

062737

MOV

000000G

MOV

000000G
000000G

000000G 000000G

000002

11$:

000000G

062700
020027

000002
000016

023727
001003
012737
005726
000207

000000G 000002

12¢:

177777

134:
14%:

003765

i Routine Size:

26-Mar-1986 17:01:04

000000G

105 words,

Routine Base:

MOV
MOV
CLR
MOV

RO,GET.ADR
RO, TMP.IOP.ADR
RO
TMP,IOP.ADR,IOP.TABLECRO)

ADD
CMP

#2,R0O
RO, #16

CMP
BNE
MOV
TST
RTS

LOGUN,
#2
14§
#-1,LOGUN
(SP)+

ADD

BLE

10 words

000000
000004
000006

LSBTTL
L$INIT::JSR
TRAP
RTS

i Routine Size:

000020’

4 words,

Routine Base:

: Maximum stack depth per invocation:

s
;]
X

3178
I

3§
3

2 words

#2,TMP.I0P.
ADR

114

i HWP_.TABLE,*

INDEX

*,#(INDEX)
*, INDEX

*
INDEX,

Page

¢ (®

1738

1739
1740
1741
1743
1744
1741

1748

1751
1649

AA$CODE$ + 0020

; Maximum stack depth per invocation:

004737
104411
000207

(RO),RO

RO,REG
ADR
.

VAX-11 Bliss-16 V4,0-579

DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI;1

LSINIT INITIALIZE SECTION
PC,LINIT
11
PC

AASCODE$ + 0342

1753

D7
ZANA2

CZQGNAEO DEQNA FUNCTIONAL TEST
AUTODROP SECTION

:
:
:

1758
1759
1760

1762

;1761

;1764

:
:
:
:

1763

1765

1766

1767

1768

1769

1770
3N
1772
1773

FR PO PO MO N 52 5t s et ot et s o ot s ot

v01.0

#SBTTL

!
!
!

THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF
THE "ADR" FLAG WAS SET.
THE UNIT UNDER TEST IS CHECKED TO
SEE IF IT WILL RESPOND.
IF IT DOESN'T IT IS IMMEDIATELY

DROPPED FROM TESTING.

B
BGNAUTO;

RETURN;
ENDAUTO;

LAUTO:
1 word,

Routine Base:

0 words

.SBTTL
RTS

LAUTO AUTODROP SECTION
PC

AA$CODE$ + 0352

.SBTTL

L$AUTO: : JSR

TRAP

RTS

L$AUTO AUTODROP SECTION

PC,LAUTO

; Routine Size: 4 words,
Routine Base:
AASCODES + 0354
; Maximum stack depth per invocation:
2 words

;]

'MW

35}

15
(9)

l 000000 004737 000352'
104461
000207

Page

feo

; Maximum stack depth per invocation:

000004
000006

SEQ 81

VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZQNA2.BLI;1

'AUTODROP SECTION'

000000 000207
; Routine Size:

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

1754

1771

2P0 IO O D I

0 et et et ot ot o ot o ot ot ot et

CZQANAEO DEQNA FUNCTIONAL TEST
CLEANUP CODING SECTION

27-Mar-1986 07:35:55

26-Mar-1986 17:01:04

%SBTTL 'CLEANUP CODING SECTION'

oge( 10)

Teo
'
-

THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED.

]

INSERT YOUR CLEANUP CODING.
THIS CODING SHOULD
RESTORE YOUR TEST-DEVICE TO A NEUTRAL STATE.
THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE
PROGRAM IS INTERRUPTED BY “tC".

3
:

]

BGNCLN;
clrvec (4);

!give trap 4 vector back to supervisor

RETURN;

’

ENDCLN;
.SBTTL

000004

LCLEAN: MOV
TRAP
RTS

; Routine Size:

VAX-11 Bliss-16 V4,0-579

DISK2:([SCODA.QNA.ZQNAJZQNA2.BLI;1

4 words,

LCLEAN CLEANUP CODING SECTION

#4 ,RO
36
PC

;

1791

1773

1792

Routine Base:
AA$CODE$ + 0364
2 words

Maximum stack depth per invocation:

000000

004737

000004
000006

104412
000207

: Routine Size:

.SBTTL
L$CLEAN::

000364’

JSR

TRAP
RTS

4 words,

Routine Base:

i Maximum stack depth per invocation:

i
s

1795
179

1
1

2 words

L$CLEAN CLEANUP CODING SECTION

PC,LCLEAN

12
PC

AASCODE$ + 0374

ZANA2

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

s
3

DROP UNIT SECTION

1797
1798

179¢

;1800

;

[ :

1801

iggg

1
1

#SBTTL 'DROP UNIT SECTION'

1804 1

F ;1805
;1806
s
T
3
1808
;1809
;1810

1811

3
e
;1813
:
1814
:
42815

000000

1
1
1
1
1

2
2
2
3}

!
!
!
1--

A “DROP" COMMAND OR A "DODU" MACRO EXECUTION.

THE PURPOSE

BGNDU;

RETURN;

ENDDU;

LDU:

1 word,

Routine Base:

L$DU::

000006

000207

| 000004 104453

000404’

4 words,

(11)

OR_THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A
UNIT HAS BEEN DROPPED.

004737

Routine Base:

; Maximum stack depth per invocation:

Page

INSERT DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER

000000

| ; 1816 1

DISK2:[SCODA.QNA.ZQNAJZQNA2.BLI;1

TO NO LONGER BE TESTED.

O words

: Routine Size:

SEQ 83

THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE

000207

; Routine Size:

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

fee

; Maximum stack depth per invocation:

;1817

27-Mar-1986 07:35:55

2 words

.SBTTL
RTS

LDU DROP UNIT SECTION
PC

;

1794

1813

AASCODE$ + 0404

.SBTTL
JSR

L$DU DROP UNIT SECTION
PC,LDU

RTS

TRAP

AASCODE$ + 0406

ZQANA2

2
1831
1832
1833
1834
1835
1836

000000

P2 PO PO D I o ot ot b ot ot ot ot o ot ot s s o

#SBTTL 'ADD UNIT SECTION'

[+ ]

ADD UNIT SECTION

.“".fi.““““.‘“....“.‘..‘

CZANAEO DEQNA FUNCTIONAL TEST

V01.0

!
!
s

INSERT ADD CODE HERE.

AN “ADD" COMMAND.

;

THIS CODE WILL BE EXECUTED AFTER

.
BGNAU;

RETURN;
ENDAU;

LAU:

1 word,

Routine Base:

: Maximum stack depth per invocation:
1

(12

HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED.

L$AU::

;1838

Page

THE PURPOSE OF THIS CODE IS TO DO ANY

000000
000004
000006

I 1837 1

DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI;1

THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
TO THE TEST CYCLE.

O words

; Routine Size:

SEQ 84

: Maximum stack depth per invocation:

004737
104452
000207

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

Yoo

000207

; Routine Size:

27-Mar-1986 07:35:55

000416’

4 words,

Routine Base:

2 words

.SBTTL
RTS

LAU ADD UNIT SECTION
PC

;

1815

1834

AASCODES$ + 0416

.SBTTL
JSR
TRAP
RTS

L$AU ADD UNIT SECTION
PC,LAU
52
PC

AA$CODES + 0420

ZANA2

C..QNAEQO DEQNA FUNCTIONAL TEST

v01.0

27-Mer-1986 07: 3 5:55
26-Mer-1986 17:0 1: 04

1851

IO
NN -

ADD UNIT SECTION

000000

012737

000006

000002

VAX-11 Bliss-16 V4,0-579

SEQ 85

DISK2:[SCODA.QNA.ZGNAJZGNA2.BLI
;1

Page

19
(13)

BGNSRV (NXM_INT);
oo
'

GLOBAL LOCATION “INTERRUPT FLG” IS SET TO TRUE WHICH INDICATES

THE INITIALIZATION SEQUENCE INTERRUPT OCCURED.

[
INTERRUPT_FLG

= %0'177777';

ENDSRV;

177777

000000G

.SBTTL
NXM.INT::

MOV
RTI

NXM.INT ADD UNIT SECTION

#-1,INTERRUPT.FLG

; Routine Size:
4 words,
Routine Base:
AASCODE$ + 0430
; Maximum stack depth per invocation:
O words

;

1849

1840

17
ZANA2
vV01.0
3
:
:

CZQNAEO DEQNA FUNCTIONAL TEST
ADD UNIT SECTION

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04

1852
1853
1854

1
2
2

BGNSRV (QNA_INT);

;1857
;1858

2
2

!
!

GLOBAL LOCATION "INTERRUPT_FLG" IS SET TO TRUE WHICH INDICATES
THE INITIALIZATION SEQUENCE INTERRUPT OCCURED.

!
!
1--

(write 1 to clear)

;1859

;1860
;1861
;1862
3
1863
i
1864

2
2
2
2
2

;1866
s
1867

2
1

;

1865

010046

000002

013700

000006
000014

152760
012737

000024

000002

012600

in addition,

INTERRUPT_FLG

;

1868

ENDSRV;
.SBTTL
QNA.INT::

000000G

000200
177777

MOV

000016
000000G

GQGNA.INT ADD UNIT SECTION

RO, -(SP)

MOV

REG. ADR, RO

1853
1864

MOV

(SP)+,RO

1865
1853

BISB
MOV

RTI

$200, 16(R0)
#-1, INTERRUPT.FLG

1
1
0

END
ELUDOM

0TS external references

.GLOBL

H
H

3
3

°°e( 14)

'wr 1 clr XI (RI & NXM by hrdwr design)

= 50‘177757‘5

i Routine Size:
11 words,
Routine Base:
AA$CODE$ + 0440
; Maximum stack depth per invocation: 2 words

;1869
:
1870
;
1871

interrupt causing bits in GNA csr are cleared

PUT BIT [ CSR, XI, SET_IT J);

000000

000022

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZGNA2.BLI;1

$SAVE4

PSECT SUMMARY

Psect Name

$CODE $
AA$CODE$

Words

53
155

Library Statistics

Attributes

N s
RO,

3
I

.
,

L&,
LCL,

B,
REL,

CM
CON

CZQANAEO DEGNA FUNCTIONAL TEST
ADD UNIT SECTION

27-Mar-1986 07:35:55
26-Mar-1986 17:01:04
-------- Symbols -------Total
Loaded
Percent

File

DISK2:[SCODA.QNA.ZQNA]JQNALIB.L16;2

224

Processing
Time

00:00.1

COMMAND QUALIFIERS
BLISS/PDP11 ZQGNA2.BLI/LIST=ZQNA2.LIS/0BJECT=ZQNA2.0BJ/SOURCE=PAGE:53

Elapseq
1
Lines/CPU

ime:

155 code + 53 data words
00:10.0

00:11.2
H

Min:
11192
Lexemes/CPU-Min: 78119
Memor
Compi ation Complete

DISK2:[SCODA.QNA.ZQNAJZQGNA2.BLI;1

Pages
Mapped

Size:

VAX-11 Bliss-16 V4,0-579

Page

(14)

00000

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZQGNA3.BLI
;2

MODULE ZQNA3 (%TITLE 'CZGNAEO DEGNA FUNCTIONAL TEST'

IDENT = 'VO1.0"

ADDRESSING_MODE( ABSOLUTE )
)

%}LL ‘DEQNA TEST DEFINITION MODULE'

! <BLF/FORMAT>
LIBRARY 'GNALIB';
REQUIRE 'BLSMAC.REQ’;

! QNALIB LIBRARY
! DIAGNOSTIC SUPERVISOR LIBRARY

Page

1
(1)

CZQNAEQ DEGNA FUNCTIONAL TEST
DEQNA TEST DEFINITION MODULE

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 89
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZGNAJZQGNA3.BLI;2

et et e
o o e et
e o o
o
o e
i
e
e
0

e
— o p———

PSECT

CODE = AB$CODES;

feo

EXTERNAL DATA USED BY THIS MODULE

EXTERNAL ROUTINE

CHK_CSR_STATUS

: NOVALUE,

CHK_RIXT STATUS

: NOVALUE.

CHCXRIT
STATUS
CLR_BUF

: NOVALLE

CHK_RCV_STATUS
FERS

CLR_DESCR

COMPARE_PACKETS

: NOVALUE.

E1$REPORT
ERROR$REPORT
FORM_HEX_ADR
KBD_INT
NXM_INT

: NOVALUE.,
: NOVALUE.
: NOVALUE.
: NOVALUE
: LSISR NOVALUE,

PREP_FOR_SETUP
PWR_INT
RESET_DEQNA
SEND_ELOOP_PACKET

: NOVALUE,
: NOVALUE.
: NOVALUE.
NOVALUE|

QNA_INT

: L$ISR NOVALUE.

SEND_TEST_PACKET
INTR_TEST _PACKET
SET_XDESCR_LIST

: NOVALUE.

TURN_OFF LED

NOVALUE

SET_RDESCR LIST

VER_DESCR_STATUS

WAIT_FOR_TIMEOUT

NOVALUE.

: NOVALUE,

: NOVALUE.

XMIT SETUP PACKET

NOVALUE

00P_PACKET

! NXM INTERRUPT SERVICE ROUTINE

! GNA INTERRUPT SERVICE ROUTINE

NOVALUE.
: NOVALUE.

XMI

! PRINT EXTENDED ERROR MESSAGE
! PRINT EXTENDED ERROR MESSAGE

NOVALUE,

novalue;

!does sumcheck for station addrs rom

Pege

2
(2)

CZQANAEO DEQNA FUNCTIONAL TEST
DEQNA TEST DEFINITICN MODULE
1
1

EXTERNAL

fae

COMMUNICATION AREA DECLARATIONS

RCV_D_LIST

1
1
1

DESCR_LIST
RCV_BUFFER
XMIT_BUFFER

XMIT D_LIST

1
1

DATA BUFFER
TARGET_ADR

s Ta e

: BLOCK [ D_SIZE, WORD ] FIELD s DL_FIELDS ;
: BLOCK

[ D SIZE

: BLOCK [ DESCR_SIZE
: VECTOR [ B_SIZE, gv’rs
: VECTOR [ B-SIZE. BYTE

DL _FIELDS

FIELD ( DL_FIELDS ),

JELTOR | g2 Brte
),

RD13
013
1016

: VECTOR [ 64, WORD
: VECTOR [ 28, WORD
: VECTOR [ 44, WORD

STATION ADR

: VECTOR [ 4, WORD

1
1
1
1
1
1
1

r§a.o

: VECTOR [ BUF _SIZE, BYTE' ],
: VECTOR [ T_SIZE, BYTE J,

1
1
1

1
1
1
1

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

),
].
J.

Tee

HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS

HWP_TABLE
SWP_TABLE

REG_ADR
GET_ADR
IOP_DATA

REF BLOCK [ SWp-SIZE. bORD J FIELD ¢ Sip-FIEHDS 3

: REF ADR-STR FIELD

10p~FIErDE 3!

: REF REG_STR FIELD ( IOP_FIELDS ),

VAX-11 Bliss-16 V4.0-579

SEQ 90

DISK2:([SCODA.QNA.ZQNAJZGNA3.BLI ;2

Page

(3)

01 o e e e o

o o o e o e s et e e s o ot et

CZQNAEO DEQNA FUNCTIONAL TEST
DEQGNA TEST DEFINITION MODULE
.

Too

SEQ 91

27-Mar-1986 07:36:09
27-Mer-1986 07:33:50

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQGNATZGNA3.BL
;2
T

(0=NONE, -1=L-CLOCK,1=P_CLOCK)

MISCELLANEOUS DATA DECLARATIONS

XBUF _LENGTH

SWP_BLOCK_MEM,

UP_COUNTER,

RBUF_LENGTH,

SWP_TOUT VAL,

DOWN_COUNTER,

INTERRUPT_FLG,

SWP_ILOOP;

COUNTER

SWP_TIMER

CHECKSUM,

ERR_NUMBER,

CSRWORD,

PRI00,

XCFLAG,

SWP_LBC

PRIO1,
PRIOS.

PRIO2,
PRI06.,

PRIO3,
PRIO7,

P3,

TEMP3,
TEMPT .
TADR2
TBYTEL,

P4,

TEMPA,
TEMPS,
TBYTE2,

TEMPS.,
TEMPO,
TBYTES,

TEMP6,
TADRL,
TBYTE4

ERR_COUNT,

ERR_FLAG,

SWP_NXM

PRIO4.
DEQNA'NO : WORD,

Tae

TMP_IOP_ADR,

TMP_REG_DATA,

TEMP1,

TEMP2,

: WORD,
: BYTE.

Page

4
(8)

10 e e e e o o o e o o o e e o

CZANAEQO DEGNA FUNCTIONAL TEST
DEQNA TEST DEFINITION MODULE

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 92
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.WUNA.ZONA)ZQGNA3.BLI ;2

Yoo

ERROR MESSAGES DEFINED EXTERNALLY

MSGOO, MSG71.

msg72,

MSG11, MSG12,
MSG22.
MSG31, MSG32.
MSGA1. MSGAS. .
MSG51, MSG52,

MSG13.
M3G23,
MSG33.
MSCA3 .
MSGS3,

meg73,

msg74.,

mea7S.

meal6.

MSG02. MSEO3. MSRO4, MSEOS. MSROB. MOBO7. MSGOB, MSGO9, MSGL0,
MSG14. MSG15, MSG16, MSG17.
M3G24, MSG25. MSG26. MSG37
MSG34, MSG3S, MSG36, MSGS7.
m!
L} MSGA6. MSGA7. .
MSG54, MSGSS, MSGS6, MSGS7,

MSG61, MSG62, MSG63, MSG64,

MSGL8.
MIG38,
MSGSB.
MSGAS. .
MSGS8,

MSG19. MSG30
MIC39
MSGSI' MSCAO'
MSCA9 ’
MSGS9, MSG6O,

S, MSGe6, MSG67, MSG68, MSG69, MSG70;

Page

(5)

CZQNAEO DEQNA FUNCTIONAL TEST

TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

1
1

1
1
1
1
1
1
1
1
1
1
1

27-Mar-1986 07:36:09

VAX-11 Bliss-16 V4,0-579

27-Mar-1986 07:33: 50

DISK2:[SCODA.QNA.ZQNAJZ@GNA3.BLI;2

fSBTTL 'TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST'
Yoo

TEST 1:

DESCRIPTION:

NON-EXISTANT I/0 PAGE REGISTER TEST

This test verifies that all the device registers residing in the

!
!
s

1/0 Page can be accessed without forcing a non-existant memory (NXM)
interrupt. If the operator specifies loop on error, the p
am
re-executes the code that detected the error until tC is entered.

Hardware tested:

Processing:

Q-Bus to DEGNA Slave Registers Interface

BEGIN
Rgexeody for NXM interrupt
T for every I/0 page register
re ad 1I/0 page
ister

'
.

]

IF NXM oc;cn.amd'.‘g

!
.

THEN
rint error

EMJEF

'
B

ENDREPEAT

]

peidigian

if not inhibited

write any data pattern
isters

into the first 2 I/0 pege

by t

if not inhibited

occured

ENDTF

rint

error

END

'
.

no'

]

101

'
.

]

1
.

]
.

test was modified to ensure that return PC after a trap to 4 wes
to
a valid address. Previous code read the csr contents to a
location.

The

iler

or 017737 OFF

rated the following assembly code : mov Saddrs,templ

DESTADR . The pc was incremented by 2 after reading the

instruction 017737,

incremented again by 2 after reading the offset for the

CSR. This left the PC pointing

to the dest address stored in memory. If a bus

timeout trap to 4 occurred,
return pc was still pointing
to the dest
address. When the RTI instruction in
_INT was executed,
next
instruction to be executed was the dest address!! B making the dest location

a local

1, the resulting assembly code is mov ‘uddn. 3 of 017703 OFFSET

now, the
is incremented by 2 after reading the instruction 017703, and
incremented again by 2 after reading the offset for the GNA CSR. The PC now

somts to the next valid

instruction, because the dest address

3, and its address does not have to be fetched from memory.

SEQ 93

internal

Page

(6)

CZQNAEO DEQNA FUNCTIONAL TEST

TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST

3
3
3
3
3
3
4

6
6
6
6
6
7
7
7
7
|
7
;
6
4

3
3
3
3

6
6
6
6
6
;

BGNTST;
LOCAL

LOCFLG;

SETVEC (4, NXM_INT, PRIO7);
DELAY (MS_DELAY)

3
3

3
3
1

DISK2:[SCODA.QNA.ZGNAJZQNA3.BLI;2

SET UP FOR AN NXM INTERRUPT
DELAY S0 x 100 us = S ms
CLEAR OUT NEX FLAG

INTERRUPT_FLG = éLEAR_FLGx

TMP_=
TO
.HWP_T
P_
ABLE AD
[ ADOR
R
)

INCR INDEX FROM O 70 7 DO

BGNSUB
;
LOCFLG = ..TMP_IOP_ADR;
DELAY(7)

oFénrefiawr_fls EQLU WORD_LIMIT
BEGIN
CLRVEC (4)

INTERRUPT FLG = CLEAR_FLG;

PRINTB ( MSGS9 );
PRINTB ( MSG70,

.TMP_IOP_ADR );

ERRDF (0101, MSGOO, E1$REPORT);

END;

SEE IF WE GOT A NXM INTRT

! ADDRESS NOT THERE

!return vector to superviso:

i CLEAR TRAP FLAG

'1/0 PAGE REG. NOT PRESENT’

ENDSUB
;
TMP_IOP_ADR = .TMP_IOP_ADR + 2:
3

TMP_=
IO
.HWP_T
P_
ABLEAD
[ ADDR ]

I'%EfiG&MEXFRMOTOIDO

BGNSUB
.TMP_IOP_ADR = #X'7F';
DELAY(7);

IF . INTERRUPT_FLG EQLU WORD_LIMIT
BEGIN
CLRVEC (4);
INTERRUPT FLG = CLEAR_FLG;

7
7
7
7
7
7

VAX-11 Bliss-16 V

!used to force 0177__ instr out of compiler

3
3
3
3

27-Mar-1986
:36:09
27-Mer-1986 o
07:33:50

PRINTB ¢ HSE70. ' TP 0P AOR )

Emorm"(oxoz. M8GOO, E1$REPORT):

! WRITE FIRST 2 LOCATIONS

! SEE IF WE GOT A NXM INTRT

! ADDRESS NOT THERE

!return vector to supervisor

! CLEAR TRAP FLAG
!

'I/0 PAGE REG. NOT PRESENT'

END

ENDSUB;
TMP_I0P_ADR = .TMP_IOP_ADR + 2;
H

CLRVEC (4);
ENDTST;

! CLEAR INTERRUPT VECTOR

Page

E8
ZQANA3

v01.0

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST

JJITLE
. IDENT

27-Mar-1986 07:36:09
27-Mer-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZGNAIZQNAZ.BL;2
I

ZW3 CZWEO DEQNA FUNCTIONAL TEST

CHK.CSR.STATUS, CHK.RIXI.STATUS
CHK.RCV,STATUS, CHK.RX.LPSTATUS

CHK. XMIT,STATUS, CLR.BUFFERS,

CLR.DESCR

COMPARE PACKET
.
%OEI.REPORT,
IERRGNREPMT

rom

xm Pneé Foa serup. PWR, INT
-ELOOP| PACKET
SEND. TEST.
Pltcxev. INTR. TEST.PAC
KET
RESET DEQNA

.XDESCR,LIST,

SET.ROESCR.LIST

,
VER.DESCR. STATUS
WAIT.FOR,TIMEOUT, WALKING.BIT

WRT, smzon ADR, ' XMIT.AND.RCV.PACKET
XMIT,
PACKET, XMIiT.SETUP.PACKET
le(. RCV D.LIST, XMIT.D.LIST
DESCR.LIST, RCV.BUFFER, XMIT. aurren

%33‘1'5»{
2‘%12"“%M'mxs80.PROM.DESCR
ON.AOR, PTRN.TABL ué

MSG14,
MSG19,

SEQ 95

» MSG16, MSG17, MSG18
. MSG21, HSGZ;. MSG23

m"?gg:.» MSG30,
%. MSG32, MSG33
MSG35, MSG36, MSG37, MSG38

MSG39, MSG40, MSG41, MSGA2, MSGA3

» MSGAS, MSG46, MSGA7, MSGA8

MSG49, MSGSO0, MSGS1, MSGS2, MSGS3

» MSG55, MSGS6, MSGS7, MSGS8
MSG59, MSG60, MSG61, MSG62, MSG63

Page

8
(7

F8
ZANA3

CZQNAEO DEGNA FUNCTIONAL TES T
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST

vo1.0

.SBTTL
.PSECT
004137
005746
012746

$T1:

-(SP)

2$:

mxn.ggT.-(sp)
“..3. i SP
37
#62,R1
4%
L$DLY,RO
34
10(SP)

3$:

14:

0000006
000010
0000006
000007

000010

1
INTERRUPT.FLG

44:

@HWP . TABLE, TMP. IOP.ADR
510.R2

5¢:

aTMP.IOP.ADR,R3

3Z.R1

6$:

L$DLY,RO
84

74%:

8%:

000000G 177777

RO,2¢

9%:

10¢:

10(SP)
RO, 7%

38 e 23933333C3373%

000010

VAX-11 Bliss-16 V4.0-579

SEQ 96

DISK2:[SCODA.QNA.ZGNAJZGNA3.BLI;2

Page

$T1 TEST 1 '-‘OMN-EXISTANT 170 PAGE REGISTER TEST
AB$CODES$,
R1,$SAVE3

012746
012746

012746
104437
012701
001410
013700
001403
005066
077003

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

INTERRUPT.FLG,
#-1

1614

1672

i *,88TMP2

1673

; *,$8TMPL

; $5TMP

; $3TMP2
H
H

1674
1676

1678

; *,LOCFLG
; %, 85TMP2

1680
1681

; $STMP

; $8TMPL,x

; $8TMP2
H

1682

1685

1686
1687

H 9.‘
TMP.IOP.ADR, (SP)

H SP-‘

#MSG70, - (SP)
$2,-(SP)
14
55
135
MSGOO
E1$REPORT

#6,SP
67

1688

1689

;

1684

1691

ZQNA3

CZQNAEO DEGNA FUNCTIONAL TEST

V01.0

TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST

000226
000230
000232
000240
000242
000250

006000
103721
062737 000002 000000G
077263
017737 000000G 000000G
012702 000002

000256
000264

012777
012701

000177
000007

013700

000000G

005066
077003

000010

000254

000270

000272

000276

000300
000304

000306

000310
000312
000320
000322

000326

000330
000334
000340
000344

000346

104402

001410

001403

104436

005037
012716
012746
010600
104414

01371€
012746
012746
010600

000370
000372
000374
000376
000400

104455
000146
000000G
0000006
104444

000406

104467

000402

| 000410
000412
000414
000422

000424
000430
000432
000436

12¢:

13¢:

005301

000767
023727
001032
012700

000350
000354
| 000360
000364

| 000366

114:

0000006

148:

0000006 177777

15¢:

000004

104414

062706

006000
103720
062737
077264
012700
104436

062706
000207

: Routine Size:

000002

164:

000000G

000004

144 words,

Routine Base:

14 words

MOV
MOV

$177,8TMP. I0P. ADR
#7,R1

;
i %, $8TMP2

1700
1701

TRAP

BEQ

154

‘

1698

MOV

L$DLY,RO

; *,88TMP1

CLR
S0B

10(SP)
RO,13%

; $8THP
: $8TMPL,«

BR
CMP
BNE
MOV

124
INTERRUPT.FLG, #-1
164
#4,RO

;

1702

;

1705

CLR
MOV
MOV
MOV

INTERRUPT.FLG
#MSGS9, (SP)
#1,-(SP)
SP.RO

;
;

1706
1707

MOV
MOV
MOV
MOV

TMP.IOP.ADR, (SP)
#MSG70, -(SP)
#2,-(SP)
SP,RO

;

TRAP
.WORD
.WORD
.WORD
TRAP

55
146
MSGOO
E1$REPORT
44

BEQ

DEC

ADD

TRAP

ROR
BLO
ADD
S08

ADD
RTS

i Maximum stack depth per invocation:

Page 10
1693
1677
1696
1697

MOV
TRAP

000012

DISK2:[SCODA.,GQNA.ZONAIZGNA3.BLI;2

;
; INDEX,#*
;
i #,INDEX

TRAP

000006

SEQ 97

RO
5%
#2,TMP.I0P.ADR
R2.5%
@HWP . TABLE, TMP, IOP . ADR
#2,R2

TRAP

00000G
00000
000002

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

ROR
BLO
ADD
S0B
MOV
MOV

TRAP

000000G
000000G
000001

27-Mar-1986 07:36:09

14$

#6,5P
67

RO
114
#2,TMP.I0P.ADR
R2,11$
4 ,RO
36

#12,5P
PC

;

$$THMP2

; SP,*

; SP,%
;

;

1709

1704

1711

;
; INDEX,#

1713
1697

;

ABSCODE$ + 0000

.SBTTL

1708

T1 TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST

1716
)

1014

ZANA3

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST

vV01.0

000000
00C00
000004
000006
000010
000012
o

[

000000’

Ti::
1%:

104466
006000
103773
000207

; Routine Size:

1719
1720

1
1

JSR
TRAP
ROR
BLO
RTS

6 words,

Routine Base:

i Maximum stack depth per invocation:

3
3

’

004737

2 words

PC,$T1
66
RO
14

AB$CODE$ + 0440

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 98
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZGNA3.BL
;2
I

Page

11
(7

1716

CZANAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 2 - CSR STATIC BIT TEST

%SBTTL 'TEST 2 - CSR STATIC BIT TEST'
Teo
i

TEST 2:

CSR STATIC BIT TEST

g DESCRIPTION:
'

This test verifies that the CSR register static bits can be set

!
!

and cleared as specified.
The host writes data patterns to this
ister and reads them back verifying no static

loop on error, the program re-executes the code that detected the

(stuck at 1 / stuck at 0) faults occur. If the operator specifies

error until tC

Hardware tested:

Processing:

;

BEGIN

is entered.

Q-Bus to DEGNA Slave Regs. Interface

chc::ngftunN Reset ( SR ) bit

in the CSR for stuck at 0

IF error

Emg'r;int error message if not inhibited

set static bits ( 0,3,8,9 ) and check for expected CSR status

:
!
!:

IF error
THEN
Ewg;nint error

!
5

clear static bits and check for expected CSR status
F error

mgvr-int error message if not inhibited

message

|
if
not

i
inhibited

set static bits ( 0,3,8,9 ) and check for expected CSR status

IF error

reset DEQNA and check for expected CSR status

VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZQNA3.BLI;2

F error

!:
!

int error message if not inhibited

int' error message iif not inhibited
ibi

ewfl"'

END

Page

12
(8)

UIUIOOOOOMUIUIUIUIUIGOJUIO0‘O0‘0VIUIUIUIUlUluoluuuNMOOOOOMMMMMMMMMMMMMO‘

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 2 - CSR STATIC BIT TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 100

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZGNATZGNAZ.BLI
;2

Page

13
(9

BGNTST;
BGNSUB;
LYY

CHECK IF CSR STATIC BITS (BIT 0,3,8 AND 9) ARE NOT STUCK AT O

RESET oenm

PUT_BIT( h.L BITS, PATRNL );
DELAY ( T
IMIT );
TEMP1 = GET
BIT
[ CSR_ALL ] AND PATRN1;

IF .TEMP1 NEQU PATRN1TM
THEN

BEGIN
PRINTB ( MSG59 );
PRINTB ( MSG60 );
PRINTB ( MSG30, .GET_ADR [ CSR_ALL ],
ERRDF (0201, MSGOO, "E1$REPORT " );

.TEMP1, PATRN1 );

ENDSUB
;
Tse

CHECK IF CSR STATIC BITS (BIT 0,3,8 AND 9) ARE NOT STUCK AT 1

BGNSUB;
PUT BIT ( CSR, ALL BITS, ZERO );

DELAY ( TIME® LIMIT );

TEMP2
= GET_BIT [ CSR_ALL ] AND PATRNI;
IF .TEMP2 NEQU ZERO
THEN

BEGIN
PRINTB ( MSG59 );

PRINTB ¢ MSG61 );
PRINTB ( MSG30, .GET_ADR

ms)mor ¢ 0202, MSGOO, E14

ALL
], .TEMP2, ZERO );

T );

ENDSUB;

BGNSUB;

PUT_BIT ( CSR, ALL_BITS, PATRNL )
RESET_DEQNA( );
TEMP3 = GET
an

CSR_ALL ] AND PATRN1;
IF .TEMP3
NEzéao

THEN
BEGIN
PRINTB ( MSG59 );
PRINTB ( MSG62 );
PRINTB ( MSG30, .GET_ADR [ CSR_ALL ],

ERRD
( 0203,
F MSGOO, E1$REPORT );

.TEMP3, ZERO );

END;

ENDSUB ;

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 2 - CSR STATIC BIT TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 101
VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNAJZQNA3.BLI
;2

- (9)

ENDTST;

0000006
000000G
001411 000016
000001
0000006

000014

000016

0000006
176366 000000G
000000G 001411

$T2:

.SBTTL

1¢:

#1411,16(R1)

%, 88THPL

14(SP)

; $4THP

;

5%:

16(R1),(SP)

; #,TMP.LOCATION

1779

#176366, TEMP1
2?91.&411

;

1780

#MSGS9, -(SP)

1783

fiom

+ yo‘

3s:

RO, 3$

; $5TMPL
%

(SP), TEMP1

#1,-(SP)

R EE L EEEECL

SP)

; THP.LOCATION,*

: *.TMP.LOCATION
; THMP.LOCATION,+

SP,RO

: SP,+

R!SG?O

$8TMP2

¢16 1§<§n
12(5P .-(SPg

311
MSGOO
E1$REPORT

6$:
74:

000016
000001

’

5:”‘”

001411

013701
005061
012702

1768
1776
17

1778

24:

0000006
000001

103673
04402

1718

516.SP

REG.ADR,R1

0000006
000001

000016

$T2 TEST 2 - CSR STATIC BIT TEST
R1, $SAVE2
:

PC,RESET.DEQNA

000000G
000016

SP,RO

; SP,*

#1411,(SP)

;

1,-(SP)

GET.ADR,12(SP)
#MSG30, -(SP

#16,5P
67
RO
14

e
#1,R2

1784

1785

; *,TMP.LOCATION

1786

1782
1787

i o, $8THP2

1788
1795
17%

CZQGNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 2 - CSR STATIC BIT TEST

8s:

0000006
000014
000016
000004
176366

9
108
000004
0000006

116:

000000G

27-Mer-1986 07:33:50

BEQ
MOV
BEQ
CLR
S0B
DeC

114
L$DLY,RO
104
14(SP)
RO,9¢
gg

MOV
MOV

uscn%) 4(SP)
4(sP), TemMP2

BEQ
MOV

124
#MSGS59, -(SP)
#1,-(5P)

BIC

000000G
000001

MOV

0000006
000001

MOV
MOV
MOV

0000006

CLR

TRAP

MOV

000000G 000016
000016 000016

MOV
ADD

000016
000000G
000004

000016

MOV
MOV
MOV

124:

0000006
001411 000016
0000006

13s:

1798
1801

#MSG61, (SP)
#1,-(5P)
SP.RO

;
; SP,#

1802

TEMP2, -(SP)

(SP)

;

1803

GET.ADR, 16(SP)
#16,16(5P)

16(§P).-ESP)
#MSG30, -(SP)
#4,-(SP)

; #,TMP.LOCATION
; &, TMP.LOCATION

; THP.LOCATION,+

SP.RO
14
55
312

H 9.‘

;

#16,5P

REG. ADR,RO
#14i1,16(R0)
%c“‘*‘fio

MOV

176366

BIC

$176366, TEMP3

MOV

#MSGS9, -(SP)

0000006

MOV

BEQ

16(”?10(8?)
-

10(SP),

TEMP3

144

000001

MOV
MOV

#1,-(SP)
SP.RO

000001

MOV

#1,-(5P)

mV
TRAP

;
:

000016 000010

000010 0000006

Page

§ %, 88TMPL
5 $4THP
i $8TMPL,%
; $8THP2

#176366, TEMP2

TRAP
TRAP

DISK2:[SCODA.QNA.ZGNAIZGNA3.BLT
;2

1797

E1$REPORT

MOV
MOV
fi

SEQ 102

; %, TMP,LOCATION
; THP.LOCATION,*

mV
TRAP
TRAP
.WORD
-WORD
'MORD

ADD

VAX-11 Bliss-16 V4.0-579

asGe2, (SP)

SP.RO
14

;

:
;

;
;

;: THP.LOCATION,
*,TMP.LOCATION+
‘

: SP,»
i

H SP.‘

1804

1800

1805

1806

1809
1810
1812

1815

1816
q

]

M8
ZQNA3

CZQNAEO DEQNA FUNCTIONAL TEST

V01.0

000522

000524

005016

013746

000530

013766

000544

016646

000536

000550

000554

000560

062766

012746

010600

000562
000564
000566

104414
104455
000313

000574

062706

000602
000604
000606

006000
103706
062706

000570
000572

000612

104467

000207

;i Routine Size:

MOV

000022

; *,TMP.LOCATION

MOV

azcép).-gsp)

; THP.LOCATION,*

0000006

MOV

000004

MOV
MOV

TRAP
TRAP
.WORD

.WORD

000016

144

000016

198 words,

Routine Base:

000004

104466

000454°

ADD

TRAP

ROR
BLO
ADD
RTS

T2::

000207

;

GET.ADR,22(SP)

ADD

004737

000012

(SP)

TEMP3, -(SP)

MOV

000022

000000

006000
103773

VAX-11 Bliss-16 V4.0-579

DISK2:([SCODA.QNA.ZGNATZGNA3.BLI;2

000000G 000022

000016

19 words

000006
000010

27-Mar-1986 07:33:50

CLR

000000G

i Maximum stack depth per invocation:

000000

27-Mar-1986 07:36:09

TEST 2 - CSR STATIC BIT TEST

1$:

#16,22(5P)

#MSG30, -(SP)

#4,-(SP)

SP,RO
14
55
313

E1S$REPORT

#16,5P

RO
134
#16,5P

Page

(9)

1817

; *,TMP,LOCATION
; SP,#
;

1818

;

1814

1718

;

1820

;

1819
|

AB$CODE$ + 0454

.SBTTL

T2 TEST 2 - CSR STATIC BIT TEST

JSR

PC,4T72

ROR
BLO

RO
1%

TRAP

RTS

i Routine Size:
6 words,
Routine Base:
AB$CODE$ » 1270
; Maximum stack depth per invocation:
2 words

| ;1823 1
:

1824

ZQNA3

CZQNAEO DEQNA FUNCTIONAL TEST

V01.0

TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST

27-Mar-1986 07:36:09

27-Mar-1986 07:33:50

fSBTTL ‘TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST'

Mgt
hlgg

3
i

;
:

TEST 3:

iggg

DESCRIPTION:

;1832
;.
1833

1
1

!
!

s
:
H

;

1834

1835
%

1
1

!
!

ETHERNET STATION ADDRESS VERIFY TEST

This test verifies that the Ethernet Station Address PROM can be
read and loaded to host memory cornctlx“mthcmt Station Address is

vonfud and checksum is computed
f

data read and this checksum

co?orod to the checksum stored in the Ethernet Station Address
thernet Station Address is always printed out on the console in

1837

the Ethernet standard format. If the address is not proper, the error

1839

i.g:(l) i

console. If the operator

;.
i
;
;
;
s
;
;.

1842
1843
1844
1845
1846
1847
1848
1849

1
1
1
1
1
1
1
1

!
:
!
!
!
!

Hardware tested:
.
Processing:

1854

1
1
1
1
1
1
1
1

!
!
!
!
!
!
!
!

;1838

;1850 1

;

H
H
H
;
H
H
H
3

H
H

1855 1
1857

1858

1859

!
!

is recorded and an

ropnotoorror message is printed out on the

specifies loop on error,

re-executes the codc that detected the error until 1C program
is entered.
Station Address PROM
Q-Bus DMA Interface

BEGIN
reod DEGNA Station Address PROM and checksum
of Station
Mdnu PROM in host memory

prmtgt

on the console in otmd-rd format

comute tatnon Mdrm ROM checksum

int error message if not inhibited

END.
IF Station Address

all O's

[all 1's

-ultlcnt bit set]:

rint error message if not inhibited

EM)EF

SEQ 104

DISK2:([SCODA.QN
. AZGNATZGNAS. BLI;2

* e

;
s

VAX-11 Bliss-16 V4.0-579

.9‘(10)

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 105
VAX-11 Bliss- .6 V4.0-579
DISK2: [SCODA.QNA. ZANAIZQNA3.BLI
;2

BGNTST;

Resa‘
DEQNA (
ORFEX
M.
AR ( BHA_INDEX );
Tse

COMPUTE EXPECTED CHECKSUM

romchk ( );

luse macro routine to calculate sum
!BLISS doesn’'t know how to do add carry

T T ——

CHECKSUM = 0;
IP?&&IDEXFRMOTOSBY?DO

IFT’(E'.‘GECKSW AND #0'100000'

) NEQU ZERO

BEGIN
CHECKSUM
= .CHECKSUM t 1;
CHECKSUM
= _CHECKSUM + 1;
END
ELSE
CHECKSUM = _CHECKSUM t 1;

Rl
D
L

Uit 'IMMUUMMMUIUIUIMMUIMMMMMUIUlUlUlUlUNJCUIUIMUIUIUIUIMUIUlU‘UIUIMUIMUIMUlU‘UIMUIUIMO‘U‘

CZWEO DEQGNA FUNCTIONAL TEST
TEST
3 - ETHERNET STATION ADDRESS VERIFY TEST

CHECKSUM = .CHECKSUM + .STATION_ADR [

.COUNTER ];

IFT':E'NECKSLH GTRU WORD_LIMIT

CHECKSUM = .CHECKSUM + 1;
COUNTER = .COUNTER + 1;
:

Tse

PRINT PHYSICAL STATION ADDRESS

PRINTB (

rwtm.stnoonl)s
PRINTB ( Pmsltoa
Tae

!
!

READ ACTUAL CHECKSUM FROM DEQNA STATION ADDRESS PROM AND COMPARE IT TO
TFE EXPECTED CHECKSUM COMPUTED ABOVE.

PUT_BIT ( CSR, LB, EXT_LOOPBACK );

DELAY ( 5 )
TEMP1

= .REG_ADR [ 1, ALL_BITS 1;

08
- A
STATION

b o, AL BITS

_ADR [ CHSUM1'= .TEMP1 OR( .TEMP2 AND %0'000377 )

€ an

o-uuba&&&ub&auuboa&huuauuuoo«o«owmm

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST

004137
162706
04402

012746
004737
004737
017716
012746
012746

104414
012716
012746
010600
104414
013701
052761

27-Mar-1986 0 7:36:09
27-Mar-1986 0 7:33:50

SEQ 106
VAX-11 Bliss-16 V4,0-579
DISK2: [SCODA.QNA.ZGNAJZGNA3,BLI;2

Page

(11)

PUT_BIT ( CSR, LB, ZERO );

IF Fg"‘ECKSlH NEQU STATIM ADR [ CHSUM )
BEGIN

PRINTB ( MSGS9 );
PRINTB ( MSG63, .CHECKSUM, .STATION_ADR [ CHSUM ]
ENERRDF (0301, MSGOO, EMREPORT)

ENDSUB ;

);

;

TEMP3 = zeno:
TEMP4 =

INCR_INDE£X PAOM 0 T0 2 0O
TEMP3 = .TEMP3 +

.STATION_ADR [

.INDEX J;

IFTF'_sf'T‘mmn ADR [ .INDEX ] EQLU #X'FFFFi
TEMP4 = _TEMP4 + 1;

(
OR (

.TEMP3 EQLU ZERO )
.TEMP4 GTRU ZERO )

OR (P(ENSTATIW ADR [ ZERO ] AND #X'0100'

) EQLU #X’'0100'

)

BEGIN
PRINTB ( MSGS9 );
PRINTB ( MSG64 )

PRINTB ( PHYS ADR );

END;

ERRDF

( 0302, MSGOO, E1$REPORT);

ENDTST

000000G
000006
0000006
000023
0000006
000000G
0000006
0000006
000002

$T3
14

001400

000016

4T3 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST

R1, $SAVE2
:
2
RESET nec«
02%,-(
PC #omn-zx ADR
PC., ROMCHK
@HWP. TABLE, (SP)
#MSGO1 , -(SP)
82,-(SP)

MOV
MOV
MOV
TRAP
MOV

#PHYS ., ADR, (SP)
g.-(sp)
‘RO
14
REG,ADR,R1

mv
TRAP

000000G
000001
000000G

.SBTTL

JSR
SUB
TRAP
JSR
MOV
JSR
JSR
MOV
MOV
MOV

BIS

90R°
14

#1400, 16(R1)

;

;
;
;
;

1822
1866
1869
1870

1876
1905

H yo‘

;
; SP,*
:

1906

1913

CZQANAEO DEQGNA FUNCTIONAL TEST

TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST

000005

24:

000000G

000014

34:
4%

000002

000010

5$:

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

#5,R2
54
L$OLY,RO
44
14(SP)
RO,3$

VAX-11 Bliss-16 V4.0-579

SEQ 107

DISK2:[SCODA.QNA. ZANAJZGNA3.BLI
;2
*,$8TMP2

Page

*aD

1914

*,$8TMPL
$$TMP
$$TMPL,»
$$TMP2

zcm) 10(SP)
10(SP),RO
no RO

Téfl’l.a

. LOCATION

1915
1916

(R1).TEMP2

TMP.LOCATION,=

*,TMP.LOCATION

1917

csu) STATION.ADR+6

TEMP2, *
TEMP1,
*

(Ri) 12(5P)

STATION.ADR+6

moo
16(R1)

*,TMP

1918

1919
1920

cxém STATION.ADR+6
mss59 (SP)

1923

y.‘

STATION.ADR+6, (SP)

1924

CHECKSUM, -(SP)
OMSGE3, - (SP)
os.igsfi)

1925

000010

1922

6%:

1926

000002

8%:

STATION.ADRCRO), TEMP3
STATION.ADR(RO),#-1

7%:

1929
1930
1931
1933
1934

1936
1931

1939
1940

ZANA3

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

000

TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST

032737

000400

000370 001430
000372 012746 0000006
000376 012746 000001
000402 010600
000404 104414
000406 012716 0000006
000412 012746 000001
000416 010600
000420 104414
000422 012716 000000G
000426 012746 000001
000432 010600
000434
104414
000436 104455
000440 000456
000442 0000006
000444 000000G
000446 062706 000010
000452 062706 000006
000456 000207

i Routine Size:

000000G

152 words,

BIT

9¢:

10%:
Routine Base:

i Maximum stack depth per invocation:

16 words

000000

004737

T3::

000004
000006
000010
000012

104466
006000
103773
000207

000000

001304'

1$:

BEQ
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
TRAP
.WORD
. WORD
. WORD
ADD
ADD
RTS

M2
1952

1
1

VAX-11 Bliss-16 V4.0-579

#MSGS9, - (SP)

SP.RO

i SP,*

£a5664 (SP)

108

1944

#1,-(5P)

1945

#PHYS.ADR, (SP)

1946

SP.RO
14

SP,RO

14’

55
456
MSG0O
E1$REPORT

1947

%6,
5P

1943
1822

#10, 5P

AB$CODE$ + 1304

.SBTTL

T3 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST

JSR

PC,$T3
66
RO
14

TRAP
ROR
BLO
RTS

1941

104

#1,-(5P)

SEQ

DISK2:[SCODA.QNA.ZQGNAJZGNA3.BLI ;2

#400,STATION.ADR

i Routine Size: 6 words,
Routine Base: AB$CODE$ + 1764
; Maximum stack depth per invocation:
2 words
s
s

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 4 - INTERRUPT VECTOR ADDRESS TEST

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

DISK2:([SCODA.QNA.ZQNAJZGNA3.BLI ;2

?SBTYL ‘TEST 4 - INTERRUPT VECTOR ADDRESS TEST'

e e ot

!
!
!
!
i
'

e e e o o e o e

o oo

:
2
:
!
:
:
!
!
:
'

INTERRUPT VECTOR ADDRESS TEST

DESCRIPTION:
This test verifies that all bits
of the vector address register
can be set and cleared as specified.
The host writes data patterns
to this
ister and reads them back verifying no static
T

(stuck at 1 / stuck at 0) faults occur. If the operator specifies

loop on error,

the program re-executes the code that detected the

error until tC is entered.
NOTE:

Only bits 9:2 of the Iiterrupt Vector Address Register are
valid, rest read as 0.

The following BINARY data patterns are used:

00000000

!
!

5
&

'
!

walki

Hardware tested:

Vector

ess

Device Vector Address Register

Processing:

BEGIN
reset device

REPEAT for each pattern

write pattern to Vector Address Register ( bits 9:2 )
read pattern from Vector Address Register ( bits 9:2 )
compare write pattern to read pattern (less noise bits)

!
!

IF not equal

!
!

int error message if not inhibited

0 0

Slave Interface Registers

's,

01010101
00110011

mlkinng O's, 0 gropmti:g thru Vector Address Reg.»

11111111

10101010
11001100

o o e

TEST 4:

END

ENDREPEAT

SEG 109

Page

%155

CZANAEO DEQNA FUNCTIONAL TEST

uuuuuuuu&o«o~|qquuoo«oo&uuuuuuuuu&o&qquflomoo«abuuuuuuuuuu

TEST 4 - INTERRUPT VECTOR ADDRESS TEST

27-Mar-1986 07:36:09

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579 g

DISK2:[SCODA.QNA.ZGNAJZGNA3.BLI;2

BGNTST;

RESET_DEGNA (

);

Tse

!
!

WRITE ALTERNATING 0'S AND 1'S TO INTERRUPT VECTOR ADDRESS REGISTER
IN THE I/0 PAGE, THEN READ AND COMPARE TO THE WRITE PATTERN

IfiGg‘oex FROM 0 TO 7 DO

TBYTEL = .PTRN_TABLE [
BGNSUB

.INDEX );

PUT_BIT [ INT_VEC, VEC_ADR, .TBYTEL ]

IF GET_BIT [ INT_VEC, VEC_ADR ] NeQu TBYTEL
BEGIN
PRINTB ( MSG59 );
PRINTB ( MSG6S );
PRINTB ( MSG30, .GET_ADR [ VEC_ALL ], GET_BIT [ INT_VEC, VEC_ADR
],

EmERRDF

( 0401, MSGOO, E1$REPORT );

.TBYTEL );

ENDSUB;
END;

Tee

!
!

luw

WRITE WALKING 1 PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE I/0 PAGE
REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN

TEMP1 = %B’'00000001°
;
INCR INDEX FROM O TO 7 DO
BEGIN

BGNSUB

PUT_BIT [ INT VEC, VEC_ADR. .TEMP1 J;

IF GET BIT [ INT_VEC. VEC_ADR ) NEQU'.TEMPL
MSGS9 );
5 )

MSG30, .GET_ADR [ VEC_ALL ), GET_BIT [ INT_VEC, VEC.ADR ], .TEMPL );

0402, 'M3GOO; E1$REPORT );

Tss

!
!

WRITE WALKING O PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE I/0 PAGE
REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN

TEMP1 = #B'11111110’;

*( 13)

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

DWW

TEST 4 - INTERRUPT VECTOR ADDRESS TEST

VAX-11 Bliss-16 V4.0-579

SEQ 111

DISK2:[SCODA.QNA.ZQNA]ZQGNA3.BLI;2

°°e( 13)

INCR INDEX FROM O TO 7 DO
BEGIN

FPUWRONRN NN

PUT BIT[ INT VEC VEC_ADR

004137

162706
004737
005001
116137
105037
104402
013700
013702
006302
006302
042702
042760
059260
016016
013702
011600
006200
006200
042700
020002
001456
012746
012746
010600
104414
012716
012746
010600
104414
013716

IF GETBI [ INT_VEC, VEC Aonrcou .TEMP1
ascm
PRINTB ( nsss9 )
PRINTB ( MSG65);
PRINTB ( MSG30, .GET_ADR [ VEC_ALL ], GET_BIT [ INT_VEC, VEC_ADR
],
END;

ERRDF

TEMPL = (C
ENDSUB;
END;

( 0403, 'MSGOO, E1$REPORT );

.TEMP1 + 1 ) + 1 ) AND %0'000377'

.TEMP1 );

;

ENDTST;

0000006
000022

0000006

000000G 000000G

000001G
0000006
0000006

176003
000014
000014
000014
000000G
001774

177400
000000G

000001

000000G
000001

0000006

$T4:
1$:
24:

.SBTTL

JSR
SUB

$T4 TEST 4 - INTERRUPT VECTOR ADDRESS TEST

R1, $SAVE2
922,5P

&sg

Pc ésser DEQNA

MOVB

PTRN TABLECR1), TBYTEL

CLRB
TRAP
MOV
MOV
ASL
ASL
BIC
BIC
BIS
MOV
MOV
MOV
ASR
ASR
BIC
CHP
BEQ
MOV

MOV
MOV

TRAP
MOV
MOV
MOV
TRAP
MOV

TBYTElel
2
REG.ADR, RO
TBYTEL,R2
R2
R2
#176003,R2
orm ugrw)
14(
14tno)(5P)
TBYTEL .R2
(SP).R6
RO
RO
$177400,R0
RO,R2
3:
-(5P)

u
(sé

14
#MSG65, (SP)
#1,-(5P)
SP,
14
TBYTEL, (SP)

i INDEX

; *(INDEX),*

1950
2001
2010
2012

;

*,TMP.LOCATION

TMP.LOCATION,
*

2013

2016

2017

2018

CZQANAEO DEQNA FUNCTIONAL TEST
TEST 4 - INTERRUPT VECTOR ADDRESS TEST
000000G
000014 000010
000010

MOV
HOV

MOV
ASR

ASR

177400

000001

*,TMP LOCATION

i TMP.LOCATION, =

RO
#177400,R0

3 *,TMP
. LOCATION
s *,TMP.LOCATION

i TMP.LOCATION,=

; SP,*
2019

2015

gxé.lu

333333333383 2833305APEgS

104414
013716
013700

177400

000014

67
RO
24
R1
R1,67
18
#1, TEMPL

000000G

44:

SEQ 112
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZQNA3.BL
;2
I

#16,SP

3$:

020002
001456
012746
012746
010600
104414
012716
012746

10(SP).RO
RO

#MSG30, -(SP)

000007

013702

14909?10(59)

SP.RO
14
55
621
MSGOO
E1$REPORT

000016

176003
001774
000014
000014

REG.ADR,RO

RO, -(SP)
GET.ADR,14(SP)
#14.14(5P)
14(5P),-(5P)

000000G 000014
000014 000014
000014
0000006
000004

000001
000010

27-Mar-1986 07:36: 09
27-Mar-1986 07:33: 50

REG. ADR, RO

TEMP1,R2

R2
R2

#176003,R2

i
G(SP%.RO

RO
RO

;

*,TMP.LOCATION

2034

: TMP.LOCATION,
*

#177400,R0

2037

3yo‘
2038

i SP,»
2039

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 4 - INTERRUPT VECTOR ADDRESS TEST

016066 000014
016600 000016

006200
006200
042700

010046

000016

MOV
MOV

ASR
ASR
BIC
MOV

177400

013766 000000G 000022
062766 000014 000022
016646 000022
012746 0000006
012746 000004

010600
104414
104455
000622
000000G
0000006
062706

006337

104457
103662
005301
001260

000016

000000G

012737 000376
012701 000010

104402

013700
013702

000000G
0000006

042702

176003

006302
006302

000000G

64:

042760 001774 000014
050260 000014
016066 000014 000014
013702 000000G
016600 000014

006200
006200
042700
020002
001456
012746

012746

010600
104414
012716

177400

000000G

0000006

000001

016066

000014

010600
104414

GET.ADR,22(SP)
#14,22(5P)
az(ép).-sspg
#MSG30, - (SP
#4,-(SP)

; %,TMP.LOCATION
; %, TMP.LOCATION
i THP.LOCATION, *

RO
RO
#177400,R0
RO, -(SP)

ASL

TEMP1

#16,SP

; SP,%
;
;

Page

26
(1%)

2040
2036

;

2042

; INDEX

0376 TEMPL
0,R1

2030

;
; *,INDEX

2051
2053

REG.ADR, RO
TEMP1,R2

2056

u‘m 1&5!!0)
14(
14{Ro)14(SP)
TEMP1 ,R2
14(3?5.!!0

; *,TMP.LOCATION
; TMP.LOCATION,+

2057

#MSGS9, -(SP)

MOV
TRAP

SP.RO
14

2060

: SP.*

MOV

#1,-(5P)

TRAP
ROR
BLO
DEC
BNE
MOV
MOV

TRAP

MOV
MOV

ASL
ASL
BIC

BIC
8IS
MOV
MOV
MOV

67
RO
44
R1
4%
2

R2
R2

2054

€176003,
R2

ASR
ASR
BIC
CHP
BEQ

RO
RO
#177400,R0
RO,R2
7%

MOV

#1,-(SP)

MOV

000024

; &, TMP,LOCATION
: THP.LOCATION,»

SP.RO
14
55
622
E1$REPORT

ADD

SEQ 113
VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZOGNAJZGNA3.BLI;2

14(R0),16(SP)
16(SP),RO

MOV
TRAP
TRAP
WORD
-WORD
.WORD

MOV

000001

012746

MOV
ADD
MOV
MOV
MOV

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

#MSG6S, (SP)

;

MOV
TRAP

SP,RO
14

i SP,*

MOV

14CR0),24(SP)

i *,TMP.LOCATION

2061

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mer-1986 07:33:50

TEST 4 - INTERRUPT VECTOR ADDRESS TEST

000024

24(SP),RO

SEQ 114
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZQNA3.BL
;2
I

Page

i TMP.LOCATION, *

177400

000000G 000030
000014 000030
000030
000000G
000004

;
;

*,TMP.LOCATION
*,TMP LOCATION

+ TMP.LOCATION,*

7$:

00530
001252
062706

000207

; Routine Size:

000022
269 words,

SRAESEERARSsL:

H SPO‘

1950

RTS
Routine Base:
AB$CODES$
21 words

; Maximum stack depth per invocation:

004737

000012

104466
006000
103773
000207

002000’

T4 TEST 4 - INTERRUPT VECTOR ADDRESS TEST

T4::

BLO
RTS

PC.$74
66
RO
14
PC

; Routine Size:
6 words,
Routine Base:
ABSCODE$ + 3032
i Maximum stack depth per invocation:
2 words

;

2071

CZQNAEO DEGNA FUNCTIONAL TEST
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST

SEQ 115
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZGNAZ.BL
;2
I

%SBTTL 'TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST'
oo
'

TEST S:

BOOT/DIAGNOSTIC PROM CHECKSUM TEST

DESCRIPTION:
This test verifies that the contents of the on-board ROM

(Boot/Diagnostic ROM) can be loaded to the host memory correctly.
Checksum is
rated from the ROM data read and this checksum is
red to

checksum stored in the last word location of the

ROM. If the g:cntor specifies loop on error,

re-executes the code

Hardware tested:

detected the

error until tC

the program
is entered.

Q-Bus to DMA interface

18051 microprocessor
18051 ROM
CSR register

Receive FIFO

Receive Descri

List(s)

t/Diagnostic
and External loopb&kmbito
This moves ROM boot code into receive
itSinCSR
) =0
) and RCV Descriptor List status

set

]

P
!

on-

!
:
!
!
!
!
H
:
!
:
H
!
:
!
H
!
:
!
:
!

L d

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

!
!
!
!

ENDYF

[

compute ROM checksum and compare to checksum read from ROM

fiiot sw

—

EN)E int error message if not inhibited

if not inhibited

This moves contents of FIFO to host memor
wait 10 msec. or until RCV Descriptor status

clear Boot/Diagnostic ROM bit in CSR

int error

ENJEF

END

int error message if not inhibited

Page

(1 4)

NN NHWNEENNNNNNANANNNNNNND DD BEWNWES aouuuuuuuuuuuuuuuuuuuuuu

CZQNAEC DEGNA FUNCTIONAL TEST
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 116
VAX-11 Bliss-16 v4.0-579
DISK2:[SCODA.QNA.ZQNAJZQGNA3.BLI;2

BGNTST;

RESET_DEG(NA
)

CLR_BOFFER
( 2'% S
K );
oo

COPY BOOT/DIAGNOSTIC PROM DESCRIPTOR LIST INTO WORK AREA

I'CRMXFRMOTOBDDSI

DESCR_LIST [ .

.JOP_TABLE [
RLO ADR

.JOP_TABLE

- 100

W_.LEN ] = .BD_PROM_DESCR [ .INDEX ];

= RCV_D_LIST;
= 0;

PUT_BIT
( CSR, LB, EXT_LOOPBACK
);

PUT_BI
( CSR,
T BD, SET_IT
);
DELAY ( K )

mnoethomrmn.mroo
IF GET_BIT [ CSR, RL ] EGLU ZERO
BEGIN
TEMP1 = _INDEX;
EXITLOOP;
END
ELSE
IF_.INDEX EQLU TIME3_LIMIT
THEN
BEGIN

- AT TR

VER_DESCR_STATUS ( );
oo

FINISH BOOT/DIAGNOSTIC PROM UPLOAD

PUT_BIT ( csn BD, CLR_IT );

DELAY ( K
Tee

CHECK IF RECEIVE STATUS CHANGED

VER_DESCR_STATUS ( );
RESET_DEQNA ( );
TEMP3 = 0;

ive time for rcv list invalid

"85

CZQNAEO DEQNA FUNCTIONAL TEST

Huub&0&bu&uu&&buuuuuuuuuuuuuuuu

TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST

TEMP3 =

SEQ 117
VAX-11 Bliss-16 V4.0-579
DISK2:[SCOoDA QNA. ZGNA ZANA3Z .BLI;2

27-Mar-1986 07:36:09

27-Mar-1986 07:33:50

,DATA_BUFFER [ CHSUM_OFFSET + 1 J;

% 15)

TEMPS = ( .TEMP3 + 8 ) AND %X'FFOO';

TEMP3 = .DATA_BUFFER [ CHSUM_OFFSET ] + .TEMP3,
TENP2 =

DATABUFFER

TEMPS -

DATA BOFFER [

.TEMPS . 1 )
TEms = TEReS T8 [) e
nx'firoo'i
Yorps

EMP2;

COUNTER = O;
CHECKSUM
= O;

MMFRMOTOPRMSIZE-2DO

.COUNTER EQLU .TEMP3TM

COUNTER
= .COUNTER + 2
ELSE
BEGIN
CHECKSUM
= ,CHECKSUM 0 (
COUNTER
= .COUNTER
+
END;
IFT(
.TEMP2 EQLU ZERO ) OR (

.DATA_BUFFER [

.COUNTER ] AND #X'FF'

);

.TEMP2 NEQU .CHECKSUM )

BEGIN
CSR_WORD
= GET _BIT ( CSR_ALL );

PRINTB (
97);
PRINTB ( HSG67 TEIPB accxsm. TEMP2 );
ERRDF

END;

( 0502, MSGOO, E1$REPORT):

ENDTST;

0000006

000010
000000G
004000
0000006

000000G 0000006

000002
000036

$TS:

1%:

000000G 000004G

000006G
0000006
001410 000016
002000
0000006

000010

.SBTTL ns TEST 5 - BOOT/DIAGNOSTIC mon CHECKSUM TEST
JSR
SAVE3

SUB
JSR
MOV
g

6
éssa oenm
uboo
:g.cm

;
;

ADD
fi",é

#2.R0
tlu.».m

; *, INDEX
: INDEX,*

MOV
MOV

o
A

BD.PROM.DESCRCRO),DESCR. LIST(RO)| altm').a(mex)

#RCV.D.LIST,SI0P. TABLE+4

;

CLR
MOV
BIS
a"f-:’!

SI0P. TABLE
+6
REG.ADR, RO
#1410, 16(RO)
7
‘R1

;
;
;
o, $8TMP2

MOV

L$DLY,RO

: %, $8TMPL

BEQ
CLR

44
10(SP)

; $4TMP

2070
2121
2122
2128
2128

2131
2132
2134
2135
2137

CZQANAEO DEQNA FUNCTIONAL TEST

TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST
077003

4%:

000767
013700

000016

000002
000002

5%:
6%:

7%:

27-Mar-1986 07:36:09
27-Mar-1986 07:33 :50

RO, 3¢
R1
24
R1
REG.ADR, RO

16CR0),2(SP)
$40,2(5P)

74
R1,TEMP1
9

3EQ 118
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAZQGNA3.BL
;2
I

,»
$$THPL
$$TMP2

INDEX
*,TMP.LOCATION
*,TMP . LOCATION

INDEX,
*
INDEX,»

000001

SP,*
000016

000006

*,TMP.LOCATION

TMP.LOCATION, *

SP,*
2151

2148

8%:

INDEX,
*
9%:

000010

2138
2154
2160

000016

*,$8TMP2

10%:

2161

*, $$THPL
000010

114:

$$sTMP
$5TMPL
=
$$TMP2

12%:

13¢:
000007G 000000G
0000006
000010
0000006
000377 000000G

PC,VER.DESCR.STATUS
PC,RESET.DEQNA
TEMP3
DATA,BUFFER+7,
TEMP3

210.R0

RO, TEMP3
gg’n.mvs
DATA.BUFFER+6,R0

RO, TEMP3

2167
2169
2172
2173

2174

Cl10
ZGNA3

CZQGNAEO DEQNA FUNCTIONAL TEST

V01.0

TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST

000374

013701

000406

105037

000400

116137

000000G

0000016

000412 013700 000000G
000416 072027 000010
000422 010037 000000G
000434
000436

042737

000377

156100

0000006

005000

000442

060037

000452
000456

005037
012702

000446

000462

000466

000470
000472
000500

000502
000504

000510
000514
000520

000522
000526
000530
000534

000536

005037

013700

020001

001004
062737
000407

005003
156003

060337
005237

077220

013700
001403
020037
001440

013700

0000006

000002

; Routine Size:

000000G
15¢:

000000G
0000006

16$:

000000G

000000G
000000G

000012

062706
000207

148:

000000G

062706

000636
000642

CLR

000016

17¢:

000006

0000006

cHP

BNE
ADD
BR

CLR
BISB

REG.ADR,

MOV

6(SP), SR . WORD

TRAP
TRAP
LWORD
-WORD
"WORD

Routine Base:

i Maximum stack depth per invocation:

16 words

R2,14$

ADD
ADD
RTS

16(R0),6(SP)

#MSGS9, (SP)
#1,-(SP)
SP.RO
14

TEMP2, (SP)
CHE
-(SP)
TEMP3, -(5P)
7.-(SP)
o4, 5856)
SP,
14
55
766

E1$REPORT

#12,5P

#12.5P
PC

AB$CODE$ + 3046

2180
2181
2183
2184
2186
2184
2189

R3
DATA.BUFFERCRO),R3

MOV

MOV
MOV
MOV
MOV
MOV
MOV

*, INDEX

154
#2, COUNTER
164

TEMP2,RO
174
RO, CHECKSUM
184

MOV

2178

RO,R1

MOV
BEQ
cHP
BEQ

TRAP

18:

COUNTERRO
,

R3, CHECKSUM
c

SOB

32
(15)

2177

COUNTER

ADD
INC

MOV
MOV
MOV

000012

210 words,

MOV

Page

2176

DATA.BUFFERCR1),RO

CHECKSUM
#7777,R2

000000G
0000006
000000G
0000006
000004

000632

BISB

DISK2:([SCODA.QNA.ZQNA]ZQNA3.BLI
;2

8377, TEMP2

CLR
MOV

013716
013746
013746
012746
012746
010600

104414
104455
000766
000000G
000000G

0000006
007777

000001

000620
000622
000624
000626
000630

CLR

RO, TEMP2

012716
012746
010600

000572
000576
000602
000606
000612
000616

TEMP2, RO
#10,R0
RO, TEMP2

SEQ 119

TEMP2.1

ADD

000556
000562
000566

104414

MOV
ASH
MOV
BIC

VAX-11 Bliss-16 V4,0-579

TEMP3,R1

DATA,BUFFER+1(R1),TEMP2

0000006

016066

000570

0000006

27-Mar-1986 07:33:50

MOVB
CLRB

0000006

000542

000550 016637

MOV

000001G 000000G

27-Mar-1986 07:36:09

; INDEX,*

*, TMP.LOCATION

2190
2183
2193

219

TMP.LOCATION, *

2197

Syo‘
2198

ZANA3
v01.0

000000
000000
000004
000006
000010

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST

004737

003046’

TS::
1$:

104466
006000
103773

h 000012 000207

i Routine Size:

6 words,

Routine Base:

2203

2 words

SEQ 120
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQGNAJZQNA3.BLI;2

.SBTTL

75 TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST

JSR
TRAP
ROR
BLO

PC,$T5
66
RO
1

RTS

i Maximum stack depth per invocation:

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

ABSCODE$

+ 3712

’

Page

33
(15)

2200

120 10 0 o e

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 121
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZQNA3.BLI ;2

%SBTTL 'TEST 6 - INTERRUPT SANITY TEST'
Teo
'

TEST 6:

INTERRUPT SANITY TEST

C_SCRIPTION:
This test verifies that DEQNA interrupts the processor only at
the expected level ( 4 ) and not any other level. If the operator

specifies loop on error,

the program re-executes the code that

detected the error until fC is entered.
Hardware tested:

Q-Bus to QTDC

CSR Ngwtcr
Q-Bus

:
Processing:

QTDC

interface

timeout logic

interrupt logic

BEGIN

reset device
:
ut-\? for TX Done interrupt
REPEAT for each processor priorit;nleyol
enable device interrupt (set CSR
bit 6)
cause TX Done interrupt
check for expected
status
IF error

o 0

o e e 8 o o o e o o o o ot o o

o ot e s

CZANAEO DEQNA FUNCTIONAL TEST
TEST 6 - INTERRUPT SANITY TEST

ENDEE

END

int error message if not

ENDREPEAT

inhibited

Page

34
(16)

CZQNAEO DEQGNA FUNCTIONAL TEST

TEST 6 - INTERRUPT SANITY TEST

Huu(flu&.mc‘fl\l\lfl@@@@@@\lflQNOOOOOOOOOOOOOOO b L LT T T T PPN TN TN o

SEQ 122
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA. ZANAIZGNA3.BLI;2

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

BGNTST;
RESET _DEQNA (

);

SETVEC ( l-I[P TABLE [ VEC ], GNA_INT, PRIO7 );
.20P_TABLE [ INT_VEC ) = .HWP_TABLE [ VEC 1;

! SET UP FOR & tx done INTERRUPT

TMP_TOP_ADR
= .HWP_T
[ABL
ADDR E
1;

COUNTER = 0;

INCR PSIMITY FROM PRIOO TO PRIO7 BY %0'40' DO
SETPRI (
BGNSUB;

.PRIORITY );

! SET PROCESSOR PRI LEVEL

PUT BIT ( CSR, IE, SET_IT );

5 ENABLE INTERRUPTS

DELAY ( 5 );

INTERRU’T FLG = CLEAR_FLG;
INTR_TEST_PACKET €

DELAY ( 400 );

GETPRI ( TEMP1 )s
TEMP1= . TEMP1
t (

)

! this should cause xmit intr

- 5 );

IFTI:ENIN'EWT—FLG EQLU WORD_LIMIT
IF_.PRIORITY GTRU PRIO3
THEN
BEGIN
PRINTBHSGS9)
.TEMPL1 )

! INTERRUPT SHOULD NOT OCCUR

¢ 0e8L> wilon edlnepont 5, ! 'TM

Em:

IF_INTERRWT_FLG EQLU ZERO

t une

ted interrupt

! INTERRUPT SHOULD OCCUR

IF .PRIORITY LEQU PRIO3
THEN
BEGIN

mmm(m;3)7m1
treport
device failedt
TR ¢ 0682
L RRORSREPORT 3o mteneuis
’

Vlc‘

£
RESET_DEGNA ¢

coum-:§ .COUNTER + 1;

SETPRI ( PRIO3 );

! SET PROCESSOR PRI LEVEL

ENDTST;
.SBTTL

$76 TEST 6 - INTERRUPT SANITY TEST

(+]

(17)

CZQNAEO DEQGNA FUNCTIONAL TEST
TEST 6 - INTERRUPT SANITY TEST

27-Mar-1986 07:36: 09
27-Mar-1986 07:33: 50

$T6:

R1, $SAVE2

($P)

VAX-11 Bliss-i6 V4,0-579

DISK2:[SCODA.QNA.ZQNAJZGNA3.BL
;2
I

36
(17)

2202

PC,RESE
. DEGNA
T

2239
2240

OPRIO7, -(SP)

#GN
, INT,
A -(5P)

HWP
, TABLE , RO

2(R0), -(SP)

37
HWP
, TABLE , RO

2241

2(RO),8I0P. TABLE+14
8HWP . TABLE , TMP. TOP . ADR
COUNTER
#PRI00,R2
134
R2,RO

1¢:

24%:
000100

#100, 16(R0O)
#5,R1

000016
3¢:

000010

64
L$DLY,RO
54
10(SP)
RO,4$
R1
3¢
INTERRUPT.FLG
PC,INTR.TEST.PACKET
#620,R1

44:

5%:
6$:

108

74:

8$:

10§:

; PRIORITY,#

2247

MOV
MOV
MOV
MOV

2249

; *,88TMP2
; *,88TMPL

; $5TMP

; $STMPL,*

; $8TMP2

2251

: %, 88TMP2

LDLY,
RO
$

; %, 88TMPL

RO, 8%
R1
7%
40

.+
i $8TMPL

10(SP)

9¢:

177773
0000006
000000G 177777

i *,PRIORITY

2242
2243
2245

2
REG.ADR, RO

333373893

ZQANA3
vo1.0

; $STMP

i $8TMP2

RO f%om

mmt.&s.o-x

R2, #PRIO3

114

2259
: PRIORITY,*

#MSGS9, (SP)

#1,-(SP)

SP.RO

%gm (SP )

oMSGT73, -( SP)
SP,RO

2261
2264

i SP,*
2265

H10
ZQANA3
V01.0

000272
000302

CZANAEO DEGNA FUNCTIONAL TEST
TEST 6 - INTERRUPT SANITY TEST

104414
104455
001131
0000006
0000006
062706 000006

005737
001027

020227

101024

012716
012746
010600

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

000000G

%6, 5P

INTERRUPT.FLG

11¢:

2266

;

2263
2269

;

000000G

124
R2, #PRIO3

i PRIORITY,*

2271

000000G
000001

#MSG59, (SP)

2274

124

14
TEMP1, (SP )
#MSG72, -( SP)

#2,-(SP)

U
000000G
000012

139 words,

2538R9EEES <

134:

)
®

12%:

: Routine Size:

Page

MSGOO
E1$REPORT

012746
010600
104414
104455
001132

SEQ 124

DISK2:[SCODA.QNA.ZQNA JZQNA3.BLI;2

14
5
1131

104414
013716
012746

000404
000410
000412
000416
000420
000424

VAX-11 Bliss-16 V4,0-579

14
35
1132
MSGOO
ERROR$REPORT
#6,SP
PC,RESET.DEGNA
67
RO
2%
COUNTER
#40,R2

g%.OPRIO7
#PRIO3,RO
41
#12,5P

Routine Base:
AB$CODE$ + 3726
13 words

I i Maximum stack depth per invocation:

; SP,*
2275

; SP,*
2276

2273

2278

: %, PRIORITY

PRIORITY,s

2280
2245

ZQANA3

CZANAEO DEGNA FUNCTIONAL TEST

v01.0

TEST 6 - INTERRUPT SANITY TEST

000000

004737

000004
000006
000010
000012

104466
006000
103773
000207

000000

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

003726’

T6::

1$:

.SBTTL

T6 TEST 6 - INTERRUPT SANITY TEST

JSR

PC,$T6

TRAP
ROR
BLO
RTS

66
RO
1$
PC

; Routine Size: 6 words,
Routine Base:
ABS$CODE$ + 4354
; Maximum stack depth per invocation:
2 words

2286 1

SEQ 125
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAZQGNA3.BLI;2

°°‘( 17)

2283

o-u-o-o-»-t-oo-»-o-»-o-o-»-o-o-r-t-o-t-o-o-o—t-o-o-o-t-.-.-o-o-o-t-o-o-o-o-o-o-o-n»o-o-r-po—‘-p

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 7 - ETHERNET CARRIER SENSE TEST

27-Mar-1986 07:36:09

27-Mar-1986 07:33:50

VAX-11 Bliss-16

5
!

!
!

!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!

!--

TEST 7:

ETHERNET CARRIER SENSE TEST

DESCRIPTION:
This test verifies that the DEGNA can transmit external loopback
ets and if not faulty FRU is can be found by executing this
y implementing the instructions printed on the operator's console.

In order to run this test successfully the operator has to make

sure that DEQNA is connected to the transceiver. If the operator
sg:cafues loop on error, the program re-executes the code that detected
the
error until tC is entered.

Hardware tested:

Carrier Sense circuit:x.
Encode/Decode ( ED )
P

Processing:

BEGIN

;

1 ttdwéce 1 loopback mode

select

externa

check external hardware
IF bad hardware

o > t
rint

error

message if
if

not

not inhibited
inhibi

read CSR
IF Ethernet Carrier Sense bit ( bit 13 ) = 1
EM)EF“* error message

transmit 1

if not

inhibited

t unchained loopback packet ( ETHERNET format )

read Céfl while trmi{ti

IF Ethernet Carrier Sense

ELsgr-iwt error message

loogbock g.cket

bit (bit 13)

= 0

if not inhibited

wait until Carrer Sense bit goes to 0
ENDIF
read CSR
%F'Esthemt Carrier Sense bit (bit 13) = 1

Ewem??

int error

if not inhibited

SEQ 126

DISK2:[SCODA.QNA.ZQNA ) ZANA3 .BLI;2

fSBTTL "TEST 7 - ETHERNET CARRIER SENSE TEST'
!
!
!
!
!
!
!
!
!
!
!
H
!
!
!
)
!
!
!

V4 .0- S

Page

(18)

CZMEO DEQNA FUNCTIONAL TEST

qqo«o«&0a&&uooaomoummuuu&a&&ooa&AAAbbaahaamwmmmamabuuuu

TEST
7 - ETHERNET CARRIER SENSE TEST

27-Mar-1986 07:36:09

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

IF_.SWP_ILOOP
THEN
BEGIN
RESET
(
DEQNA

flor GET BIf’ [ CSR, XC ] ) AND ( .SWP_LBC EQLU ZERO )
PRINTB ( MSGS9 );

PRINTB ¢ MSC47
)

ERRDF ¢ 0701 MAG0O, E1$REPORT );

EXIT_TST;
tae

!
!

RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING
TESTS IN EXTERNAL LOOPBACK MODE.

RESETF&E‘N )é

INCRTMINDEX1 FROM 1 TO 14 DO
erT -STATION_ADR (

.INDEX1, PHA_INDEX );

BGNSUB;
XMIT_SETUP_PACKET ( N_MODE );
SUB;
ERR_FLAG
= ZERO;

MIPOE)QFRMOTOHDO
BEGIN
SEND_TEST_PACKET
( );

oa.nv ( 200 )

= GE'}BIT (

ALL )

from 100, failed heavy

Inetwork traffic

IFMIN
"CSR_MORD AND S0~100556 25 NEQU SO S Saone 'RI,XI,XL bits in csr0
BEGIN
PRINTB
PRINTB
PRINTB
ERRDF
EXIT_TST;

( MSGS9 );

( MSG74 );
( MSG30, .GET_ADR [ CSR_ALL ;

( 0702, MSGOO, ERROR$REPORT

);

.CSR_WORD, so’100220'

);

end;

END;

XC_FLAG

= ZERO;

ERR_COUNT = ZERO;
BGNSUB

M‘IN'DEXZ FROM O TO TIME1_LIMIT DO
RESET_DEGNA (

);

127

DISK2:[SCODA.QNA
. ZGNAIZGNA3.BLI
;2

BGNTST;

HBEGIN

SEQ

!if wire errors, retry 128 times

% (19)

CZQANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 7 - ETHERNET CARRIER SENSE TEST

00 0900 00~~~ 09.09 0900~ ~d =~~~

md ~d g

TEMPS =

_INDEX2;

CHECK ETHERNET CARRIER SENSE BIT ( CA - BIT 13 ) IN THE CSR. CA SHOULD BE

!
5

SET TO '1' WHILE THE DEQGNA IS TRANSMITTING. IF CA ISN'T
THE EXPECTED TIME LIMIT, ERROR MESSAGE IS PRINTED OUT.

SEND_TEST_PACKET (

SET TO ‘1’

WITHIN

);

INCR INDEX FROM O TO TIME1 LIMIT DO

IF_"‘GE'T‘_BIT [ CSR, CA ] EGLU ONE

BEGIN
TEMP2 = GET_BIT [ CSR_ALL J;

EPEXITLW‘

ELSE
IF_.INDEX EQLU TIME1_LIMIT
THEN
BEGIN
PRINTB ( MSGS9 )

PRINTB ( MSGi9, GET_BIT [ CSR ALL %

o
ERROF (0703, #6500,
H

NNNININININI09.00 0900 I~ =100 09/ 09.00 N~~~

SEQ 128
VAX-11 Bliss-16 V4,0-579
DISK2:([SCODA.QNA.ZQNAJZQGNA3.BLI
;2

SREPORT

)

Tee

!
!
s

NOW CHECK IF THE CA BIT RESETS TO ‘O’ WHEN THE DEQNA COMPLETES TRANSMITTING
LOOPBACK PACKET. PRINT ERROR MESSAGE IF LOOPBACK PACKET TRANSMISSION
EXCEEDS SELECTED TIME LIMIT.

INCR INDEX FROM ¢ TO TIME2 LIMIT DO

IF GET_BIT [ CSR, CA ] EQLU ZERO

BEGIN
TEMP3 = GET_BIT [ CSR_ALL );

BEXITLW:

ELSE
IF_.INDEX EQLU TIME2_LIMIT
THEN
BEGIN
PRINTB ( MSGS9 )éET
PRINTB ( MSG20,
_BIT [ CSRALL ] )
ERRDF ( 0704, MSGOO
;

SREPORT 3,

tse

!
!

CHECK RECEIVE INTERRUPT REQUEST BIT ( RI - BIT 15 ) TO VERIFY THAT DEQGNA
ACTUALLY TRANSMITTED LOOPBACK PACKET.

*( 19)

M10

ZQNA3

CZANAEO DEGNA FUNCTIONAL TEST

¥01.0

.
:
i
P
i
i

!
.
;

;

TEST
7 - ETHERNET CARRIER SENSE TEST

2642
2443
Sass
Sa4s
Sa6
547
5448
5a49
2450

2451

7
7
7
7
8
8
8
7
6

5452

2457

5480

;5453
i
5458

i
2457
5458
5439
i

PRINTB ¢ Moeas. "&ET BIT [ CSRALL 1 )

ERRDF
END;

6
6

;

2469

2470

5415
6
2476 6
%7 6

Tse

- -

i
.
i

6
6

2478 6

5479

;2480
;o481

5482
i
5483
;o484
i
2485

;
2486
;2487
H

000000

COMPARE STATUS REGISTERS TO EXPECTED VALUES

CHK_CSR_STATUS ¢ CSR_STATUS

MASK

'177377 masks our FAIL

0'100220" , 0100220’
XMIT
D CIST [ STWDI
1 = fouSTgsrmino-o'mfi'
CHK_XMIT_STATUS
( XFLG_STATUS. RWD11
3 1 0'140000',
CHKIRCV_STATUS
RFLG-STATUS. RUDI.STATUS. 3° | 140099° §'000000’
5990000,

IF .XMIT_D_LIST [ TOR ] EQLU ZERO

6
7

THEN
BEGIN

7
7
7
6

6
4

2472
2473

( 0705, MSGOO, ERRORSREPORT );

ERRDF ( 0706, M&GOO, ERRORSREPORT );

3
;

IF_(_.XMIT_D_LIST [ ERRSU ] EQLU 1 ) AND ( .XMIT_D_LIST [ ABORT ] EQLU 1 )
THEN
BEGIN
PRINTB ( MSGS9 );
PRINTS MGT1 )

;5466 7
2467
2468

*( 19)

THEN
BEGIN

7
6
6

:
;

DISK2:[SCODA.GNA.ZONATZGNAS.BLT;2

*F .TEMPS EQLU TIME1_LIMIT

6
7

7
6
7
7
7

SEQ 129

IF GET_BIT [ CSR, RI ] EQLU ONE
THEN
BEGIN
TEMP4 = GET_BIT [ CSRALL 1;
EXTTLOOP;
END;
END;

;o461
i
5462
i
5463
:
Saea
5865

27-Mar-1986 07:33:50

VAX-11 Blise-16 VA 0.579

DELAY ( 50 );

g7-Har-1986 07:36:00

PRINTB ( MSGS9 );
PRINTB ( MSGS58 ).
ERROF ( 0707, MSG0O, ERRORSREPORT );
END;

ENDSUB;

END;

ENDTST;

004137

000000G

$77:

.SBTTL
g

$T7 TEST 7 - ETHERNET CARRIER SENSE TEST
séOSAVE2

2285

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 7 - ETHERNET CARRIER SENSE TEST

000001

CO0000G

VAX-11 Bliss-16 V4.0-579

000000G
0000006
000016
010000

#10000,

(SP

09‘(19)

2338

PC,RE.SET
DEGNA

REG. ADR, RO
16(R0).$SP;

SEQ 130

DISK2: [SCODA.QNA.ZQNAJZQGNA3.BLI;2

$1.5WP. 1L00P

*,TMP.LOCATION
*,TMP .LOCATION

2341
2342

000000G

000001

0000006
000001

14:
000001

000023

2é:

000016
34:

2347

§§§§323§§§§§§3§§§§§

000010
000016
000020

CZQNAEO DEQGNA FUNCTIONAL TEST

*, INDEX1

2357
2358
2359

INDEX1
INDEX1,*

2358

INDEX1,
*

2359

15T

000310

000030

4%:

S5¢:
6%:
74:

8%:

geREe838353 g8 =

ZANA3

v01.0

PC,SEND. TEST.PACKET
o}io.m

8
L$DLY,RO
74
30(SP)
RO,64
R1
-1
REG.ADR,RO

2370

VAX-11 Bliss-16 V4.0-579

CZQANAEO DEQNA FUNCTIONAL TEST
TEST 7 - ETHERNET CARRIER SENSE TEST
000016 000002
000002 000000G

MOV

000002

SEQ

DISK2:([SCODA.QNA.ZQNAJZQGNA3.BLI;2

16(R0),2(SP)

2(>P),
CSR. WORD

2(5P).RO

077557
100220

#77557,R0
RO, #-77560

000000G
000001

#MSG59, -(SP)

; *,TMP_LOCATION
;+ TMP.LOCATION,*
; CSR.WORD,
*

Page

(19
2371

104

#1,-(SP)
SP.RO

2374

lspn‘

0000006
000001

2375

ISP.‘
100220

2376

000000G
0000006 000014
000016 000014
000014
0000006
000004

i
i

*,TMP.LOCATION
*,TMP.LOCATION

3 TMP.LOCATION,*

i SP,*
2377

000016
005760’

9¢:

10¢:

11%:
12%:

000016

000010

000006

13%:

000010
0000006
145

PC,RESET.DEQGNA
R2, TEMPS
:g.SEPD.TEST.PACKET
REG. ADR,RO

16CR0),6(SP)

$20000.,6(SP)
144
6(SP),10(SP)
10(SP), TEMP2
164
R1,#200
154
#MSGS9, -(SP)

#1,-(SP)
SP.RO
14

INDEX2

INDEX2,
*
INDEX
*, TMP.LOCATION
*, TMP.LOCATION

*, TMP.LOCATION

TMP.LOCATION, *

INDEX,
*
2410

9.‘

CZANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:36: 09
27-Mar-1986 07:33: 50

TEST 7 - ETHERNET CARRIER SENSE TEST

MOV
MOV
MOV
MOV
MOV
MOV

000000G
000016 000016
000016
0000006
000002

TRAP
TRAP
JWORD
'WORD
.WORD

000010

000016
000014
000016

15¢:

000014
000014

16:
17¢:

000016
0000006

18:
000001

000016

000024

ADD
INC

BLE
CLR
MOV

MOV
BIT
BNE
MOV
MOV
BR
CMP
BNE
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
TRAP

"WORD

19¢:

000767
013700

14
55
1277
MSGOO
ERROR$REPORT

*,TMP.LOCATION

208:
21$:
22¢:
23s:

248:

ADD
INC
cHP
BLE
MOV
BEQ

MOV
BEQ

INDEX
INDEX, *

R1
REG.ADR,
RO

INDEX

134

*,TMP.LOCATION
*,TMP.LOCATION

$20000, 14(SP)

2409
2399

2421
2422

%, TMP.LOCATION

2425

INDEX,
*

2429

THMP.LOCATION, =

2432

s SP,s
; *,TMP.LOCATION

2433

; TMP_.LOCATION, *

3SP¢‘
24347

ERRORS$REPORT

#10,SP
R1, #2000
174

#62,R1
244

L$DLY,RO
234

CLR
)
DEC

30(SP)
RO, 22}
1

MOV

REG.ADR,
RO

2411

2412

#10,5P

14
55

%% 19

i SP,*

R1
R1,#200

16(R0),14(SP)
184
14(SP),16(SP)
16(SP). TEMP3
204
R1, #2000
194
#MSG59, -(SP)
#1,-(SP)
SP,RO
14
REG.ADRRO
,
16(R0),24(SP)
24(SP), (SP)
-(SP)
#2,-(SP)
SP,

Page

+ TMP.LOCATION, *

e B,

000000G
062706

012701
001410
013700
001403
005066
077003

REG. ADR,RO
16(R0).%6(SP)
16(SP). (SP)
#MSG19. -(SP)
#2,-(SP)
SP,RO

VAX-11 Bliss-1uv V4,0-579
DISK2:[SCODA.QNA.ZQNA]ZQNA3.BL
;2
I

214

: INDEX,#*
i

%, 88TMP2

%, $8TMPL

i 8T
i $8TMPL,»
i $8TMP2

2431
2421

CZQANAEO DEQNA FUNCTIONAL TEST
TEST 7 - ETHERNET CARRIER SENSE TEST
000016

000022

000022
000024

000024
0000006

16(R0),22(SP)
254
22(SP),24(SP)

25%:

000200

005030’
000000G 000200

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZGNA3.BL
;2
I
s

%% (195

*,TMP.LOCATION

*,TMP . LOCATION

%ggSP).TEI‘P4

TMP.LOCATION, *

INDEX2
INDEX2, *

R2 i #200

SEQ 133

26%:

2447
2446

2386

2452

2455

000001

ISP.‘
000032

i *,TMP.LOCATION

2456

; TMP.LOCATION, *

iyo‘
2457

MSGOO

2454
2461

o%ooo.nm.o.usmo

0000006
000001
000000G
000001

28%:

2464

2465

2474

000010G

§§§§§§§ i3333333

001000

g:géoo.mm.usmo

27%:

(]

000010G

2358

000010
040000

@TM

R
e

000016

2475
2476
2477

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 7 - ETHERNET CARRIER SENSE TEST

000000G
037777

JSR

0000126

0000006
000001

29%:

383 words,

#MSGS9, (SP)

SP,RO
14
#MSG58, (SP)

#1,-(SP)

SP,RO
14
55
1303

30¢:

004737
104466
006000

103773
000207

004370

1¢:

JMP
ADD

RTS

.SBTTL

T7 TEST 7 - ETHERNET CARRIER SENSE TEST

JSR
TRAP
ROR
BLO
RTS

66
RO
14
PC

PC,$T7

; Routine Size:
6 words,
Routine Base:
ABSCODE$ + 5766
: Maximum stack depth per invocation:
2 words

2490
1

2491

2479
2482

2483

2484

2383
2485

TRAP

Routine Base:
ABS$CODES$ + 4370
25 words

T7::

% (19)

2481

ADD

i Maximum stack depth per invocation:

000000
000000
000004
000006
000010
000012

Page

MSGOO

ROR
BHIS

005024
000032
; Routine Size:

MOV
MOV

MOV
TRAP
TRAP
.WORD
.WORD
.WORD
CcMP

SEQ 134
VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.GNA.ZQNA)ZQGNA3.BLI
;2

PC,CHK.RCV.STATUS

gznnxnn.o.usma

MOV
MOV

000010

27-Mar-1986 07:33:50

g'IET

MOV
TRAP

000000G
000001

27-Mar-1986 07:36:09

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

o-o-o-o-t-o-t-o-v-»0—-0—-0—0—-.—-0—-r-o-ot-b-»wo-t-o-o-o—o-nt-t-hh-no-t—t-wo—o—o—»o-wo-p-

TEST 8 - STATION ADDRESS RAM TEST

®SBTTL
oo
i

TEST 8:

DESCRIPTION:

STATION ADDRESS RAM TEST

This test verifies that Station Address RAM has no static faults.

!
!
!
!
!
s

The host writes and then reads data
patterns to all of the
addressable RAM ( 128 decimal bytes
). The data is checked to see
that the data pattern received is the same as the data pattern
transmited. This test continues until all the data patterns are
exhausted. If the operator specifies loop on error, the program
re-executes the code that detected the error until tC is entered.

The following BINARY patterns are used:

11111111

11001100

Hardware tested:

Processing:

BEGIN

!
!
!
!
!
!
!
§

rint

nrchig 0's, propmtinng 0's through the RAM

i t

00110011

Station Address RAM

@-Bus to QTDC interface
CSR register - Receiver Enable (bit 0)
Portion of Receive and Transmit FIFOQ

reset device
select Setup mode
REPEAT for each pattern
load trensmit packet with data pattern
transmit loopback packet (fill all of the RAM)
receive packet
for expected loopback status
IF error

01010101

11&‘1:2900
i
1's » propagat
00001%1..1
1's 's through the RAM
i

s
!
!
!

00000000

10101010

EMJREPEA%m
ca

END

error

message if not inhibited
if

ets

not

inhibi

SEQ

135

DISK2:[SCODA.QNA.ZQNA]ZQGNA3.BLI ;2

'TEST 8 - STATION ADDRESS RAM TEST'

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4,0-579

m(ZO)

G1l1
ZQNA3

CZQGNAEO DEQNA FUNCTIONAL TEST

V1.0

3
3
3
3
3
&
4
4

:
;
;.
:
:
i

2547
2548
2549
2550
2551
2552

6
6
4
3
3
3

;:
;

2554
2555

3
3

2557

;
:

:
:

:
;.
;
i
i
:
;:
;.
:

i
i
:
:
;
>

;
;:

:
;.

:
i

TEST 8 - STATION ADDRESS RAM TEST

;
2538
;
2539
;
2540
:
2541
:
2542
:
2543
i
2544
;2545

;

2553
3

555563 g

DECR INDEX1 FROM
7 TO O DO
BEGIN
INCR INDEX2 FROM O TO 127 DO
XMIT_BUFFER [ .INDEX2 ] = .PTRN_TABLE [

TEMP3 = ( N_MODE * 8 ) m?»
INCR INDEX1 FROM O TO .TEMP3 DO
BEGIN
Pl =

P2 = “TNobx1;

uiu.xms BIT ¢ );

INCR INDEX FROM O TO .P3 DO

m = N_MODE

2565 3
2566 3
2567
3
2568 4
2569
4
2570 4
2571 4
2572 4

2561
3

B 3

2513

XMIT_BUFFER [ .INDEX ] = ( - .XMIT_BUFFER [ .INDEX ] ) - 1;

Ew;

7 SETOP BACKET ¢ )

INCR INDEX1 FROM O TO N_MODE - 1 DO
BEGIN
mcamexrnonomumoe-xoo
XMIT BUFFER [ .INDEX } rfi
XMIT_BUFFER
[ .INDEX1 ] = #X'FF';

BGNSUB;

2574
25715
2576
2577
gzlg

6
4
4
4
:

XMIT_SETUP_PACKET ( N_MODE );
ENDSUB;

2580
2581
2582
2583

6
6

BGNSUB;
XMIT_SETUP_PACKET ( N_MODE );

2584
2585

INCR INDEX FROM O TO .P3 DO
XMIT_BUFFER [ .INDEX ] = ( -

4
4
3
1

.INDEX1 1;

BGNSUB;
XMIT_SETUP_PACKET ( N_MODE );
ENDSUB;
H

'
i
i

XMIT_BUFFER [ .INDEX ] ) - 1;

ENDSUB;

ENDTST;

$78:

.SBTTL

JSR
JSR

$T8 TEST 8 - STATION ADDRESS RAM TEST

R1, $SAVE3

PC,RESET.DEQNA

SEQ 136

DISK2:[SCODA.GQNA.ZGNAIZGNA3.BLI
;2

RESET_DEQNA
( );

XMIT senp“PACKET ¢ );

2562
3

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

BGNTST;

2563

27-Mar-1986 07:36:09

Pove
.33

CZQANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 8 - STATION ADDRESS RAM TEST

012701
005000
116160
005200
020027
003771
104402
012746

000007

14:
28:

0C0000G 0000006
000177

MOV

3$:

SEQ 137

DISK2:[SCODA.QNA. ZANATZGNA3.BLI
;2

*, INDEX1

ngN TABLE(R1),XMIT.BUFFER(RO)
RO, #177

000200
0000006

VAX-11 Bliss-16 V4.0-579

24
2

INDEX2
*(INDEX1), #(INDEX2)
INDEX2
INDEX2,*

PC,XMIT.SETUP.PACKET

SP)+

INDEX1
45:
S$:

000177
000377

000000G

6$:

000200

INDEX1
INDEX

XMIT.BUFFERCRO)

*(INDEX)

%.0177
g%??.XflIT.BlfFER(Rl)
8200,.-(SP)

INDEX
INDEX, *

*, *(INDEX1)

2571

PC,XMIT.SETUP.PACKET

(SP)e

177777

74:

0000006

'Xglg.BUFFER(RO) ,R3

000000G

%+ XMIT .BUFFER(RO)

000210
000212
000216
000220

; Routine Size:

8%:
9%:

000200
0000006

*(INDEX),
*

*, *(INDEX)

INDEX
INDEX,
*

RO,P3
74

000000G

012746
004737
005726
104467
006000
103767
005201
020127
003722
000207

2571
2574

2578

#200, -( SP)

2581

PC,XMIT. SETUP.PACKET
(SP)«

2578

67
RO

94
R1
R1,#177
4%
PC

000177

73 words,

2581

Routine Base:

i Maximum stack depth per invocation:

6 words

INDEX1
INDEX1,*

AB$CODE$ + 6002

PSSO ML

T SN BT RS

I11
ZANA3

CZQNAEO DEGNA FUNCTIONAL TEST
TEST 8 - STATION ADDRESS RAM TEST

vo1.0

004737

006002’

6
; 00000
000010 103773

104466
006000

000012

000207

; Routine Size:
6 words,
i Maximum stack depth per

2586
1

T8::

1%:

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

138
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZGNAJZQGNA3.BLI;2

.SBTTL

T8 TEST 8 - STATION ADDRESS RAM TEST

JSR
TRAP
ROR

PC,$78
66
RO

BLO
RTS

13
PC

Routine Base:
ABSCODE$ + 6224
invocation:
2 words

;

Page

5S1

(21)

oe
e ot e

CZANAEO DEQNA FUNCTIONAL TEST
TEST 9 - PROMISCUOUS STATION ADDRESS TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

®SBTTL 'TEST 9 - PROMISCUOUS STATION ADDRESS TEST'
Tas
'

!
:
:
!
:
!
!
!
!
!
:
!

:
!

!
!
:
!
!
!

TEST 9:

PROMISCUOUS STATION ADDRESS TEST

DESCRIPTION:
This test verifies that DEQNA promiscuous addressing mode functions

as specified. Bit patterns and addresses in and out of the range of
setup
addresses are used to assure that there is true promiscuity.
If
operator specifies loop on error, the program re-executes the
code that detected the error until tC is entered.

Hardware tested:

Set of Target Addresses in HEXADECIMAL:

00-00-00-00-00-00
AA-AA-AA-AA-AA-AA
55-55-55-55-55-55
FF-FF-FF-FF-FF-FF

Walking 1, shifting 1 across the Target Station Address

Walking 0, shifting O across the Target Station Address

Processing:

BEGIN

!
!
:
!
!
:
!
:
:
!
!
!
!
!
!
!
!

Promiscuous addressing mode logic

celact internal loopback mode
select

interna

set mode to Setup
:
:
set '
iscuous’' addressing mode bit

REPEAT for each Target Address
load Target Address of the packet
disable receiver

check for expected loopback status
IF error

- t

ENDTF

"INt

call

error

re_packets

]

not inhibited

101

SEQ 139

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNA)ZQGNA3.BLI ;2

090(22)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 9 - PROMISCUOUS STATION ADDRESS TEST

27-Mar-1986 07:33: 50

VAX-11 Bliss-16 V4.0-579

SEQ 140

DISK2:[SCODA.QNA.ZQNAJZQGNA3.BLI
;2

BGNTST;

Page

%23

Tee

!
!

RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING
TESTS IN EXTERNAL LOOPBACK MODE.

PREP_FOR SETUP¢ );

INCRINDEXL FROM 1'TO 14 DO
WRT_STATION_ADR (

.INDEX1, PHA_INDEX );

BGNSUB;
)Osli.'!’-SETlP_PACKET ( P_MODE );
:

! ’W LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY
RBUF _LENGTH = 6;
XBUF _LENGTH = - (

.RBUF_LENGTH t -1 );

INCR INDEX1 FROM O TO 99 DO
BEGIN
SELECTONE .INDEX1 OF
SET

{

0TO3

[

47051 ):

(527099 ]:

WRT_STATION_ADR ( ZERC,

.INDEX1 );

WALKING_BIT ( ZERO,

.INDEX1 - 4, 5 );

WALKING_BIT ( ONE,

.INDEX1 - 52, 5 );

WRT_STATION_ADR ( ZERO, ZERO );

BGNSUB;
XMIT_ILOOP_PACKET ( ZERO );

ENDSUB ;

END;

INCR INDEX FROM O TO 5 DO
TARGET_ADR
[ .INDEX ] = ZERO;
ENDTST;

000000G
000000G
000001

$79:

.SBTTL

MOV

JSR
JSR
MOV

$T9 TEST 9 - PROMISCUOUS STATION ADDRESS TEST

R1,-(SP)

PC,RESET.DEGNA
PC,PREP.FOR.SETUP
#1,R1

:
:
3
+ =, INDEX1

2641

CZQANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 9 - PROMISCUOUS STATION ADDRESS TEST

14:

000023
0000006

27-Mar-1986 07:33:50

R1,-(SP)

VAX-11 Bliss-16 V4,0-579

DISK2:[SCODA.QNA.ZQGNAJZGNA3.BLI;2

Page

%€ 23)

+ INDEX1,#

2642

s INDEX1
; INDEX1,#

2641

PC,WRT,STATION.ADR

(SP)+,(SP)+

R1
R1,#16
-

000016

2642

SRER23338% =333

2$:

2645

§HIT .SETUP .PACKET

000000G

2642
2645

000006
000006

SEQ

3¢:

UF .LENGTH

000003

UF .LENGTH

54:

L et e I

4%:

-(SP)

2652
2653

; INDEX1
; INDEX1
; INDEX1,*

R1,-(SP)

; INDEX1,*

R1,%4
54

; INDEX1,*

?C WRT,STATION.ADR
+,(SP)+

2635
2659

2657

2661

; INDEX1,*
INDEX1,*
H MXll‘
H MXI.‘

6%:
7%:

8%:

EEPRA T

H MI.*

2667

2670

M1l
ZQANA3

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

TEST 9 - PROMISCUOUS STATION ADDRESS TEST

000246

104467

000252
000254
000256
000260
000264
000266
000270
000274
000276
000302
000304
000306

103771
022626
005201
020127
003711
005000
105060
005200
020027
003772
012601
000207

000250

i Routine Size:

TRAP

ROR

BLO
CMP
INC
CcMP
BLE

000143

000000G

9¢:

000005

100 words,

Routine Base:

; Maximum stack depth per invocation:

5 words

000000

004737

T19::

000004
000006
000010
000012

104466
006000
103773
000207

000000

i Routine Size:

006240'

6 words,

14:

Routine Base:

; Maximum stack depth per invocation:
;

2678
1

2 words

CLR
CLRB

INC
CMP
BLE
MOV
RTS

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

SEQ 142

DISK2:[SCODA.QNA.ZQNAJZQNA3.BL
;2
I

84
(SP)+,(SP)+
R1
R1,#143
34

RO
TARGET.ADR(RO)

RO
RO, #5
94
(SP)+,R1
PC

| INDEX1

| INDEX1,#

i
;
i
i

INDEX
*(INDEX)
INDEX
INDEX,*

2656
5655

2675
2676
2675

ABSCODE$ + 6240

.SBTTL

T9 TEST 9 - PROMISCUOUS STATION ADDRESS TEST

JSR

PC,$T9

TRAP
ROR
BLO
RTS

66
RO
1$
PC

AB$CODE$ + 6550

2676

CZINAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27-Mar-1986 07:33:5
0

1
3
1
1
1
1
i.

TEST 10:

TRANSMIT AND RECEIVE FIFO MEMORY TEST

DESCRIPTION:
This test verifies that link memory

(receive FIFO and transmit

!
!
!
!
!
!
:

buffer) has no static faults. The
t writes and then reads
a sequence of data patterns to the
link memory. The data is then
checked to see that the data pattern received is the same as the
data pattern transmitted. This test continues until all the data
patterns are exhausted. If the operator specifies loop on error, the
program re-executes the code that detected the error until 1C is
entered.

1
1
i

!
:
:

Hardware tested:

The following BINARY patterns are used:

!
!
:

Processing:

BEGIN

1
1

!
!

1
1
i

!
!
:

Transmit buffer address logic

Transmit buffer mr! ( first 1512 bytes )
Receive FIFO address logic
Receive FIFO memory ( first 1512 bytes )

11111111

1
1
i

00000000

10101010
11001100
11110000

01010101
00110011
00001111

reset device
select internal/extended loopback mode

e
Wri erH ii

SR ST, abter - teran

Loconc ks

Wi
rn - transmi
e
read link -—ouith pattern - receive loopback packet
check for expec
loopback status
IF error

rint error

e
e

ENDREPEAT

ets

if not inhibited

SEQ

143

DISK2:[SCODA.QNA.ZQNAJZGNA3 .BLI ;2

-.ssam. 'TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST'

VAX-11 Bliss-16 v4.0-579

Page

(24)

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

UWANANRNAEANANAANAA
B DO
LB LB BB DD D BUIUIUILE & B B B 0l 0l 0 o o

TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27-Mar-1986 07:33:5
0

BGNTST;
Tee

!. LOOPBACK 1514 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY
RBUF _LENGTH = LONGEST_PACKET
XBUF _LENGTH = - ( .RBUF_LENGTH t -1 );
INCR INDEX FROM O TO 7 DO
BEGIN
RESET_DEQNA
( );
TEMP1
= 0;
INCR INDEX1 FROM O TO 189 DO
INCR INDEX2 FROM O TO 7 DO
XMIT BUFFER [

.TEMP1 ] =

TEMPI = .TEMPL + 1;

.PTRN_TABLE [

.INDEX2 ];

Tae

ROTATE PATTERN TABLE

TEMP2 =

.PTRN_TABLE [ 0 J;

INCR INDEX3 FROM O TO 6 DO
PTRN_TABLE [

.INDEX3 ] =

PTRN_TABLE [ 7 ] = .TEMP2;

.PTRN_TABLE [

SET_RDESCR_LIST ¢ -BUE_LENGTH, VE )
-

.INDEX3 + 1 );

"XBUF "LENGTH. VE )

SEND_ ELOOP_PACKET ¢ ZERD )

COMPARE_PACKETS ( );

ENDSUB;

END;
!

INCR INDEX1 FROM O TO LONGEST_PACKET - 1 DO

:
'

INCR INDEX FROM O TO LONGEST PACKET - 1 DO
XMIT BUFFER [ .INDEX ) = zan&

BGNSUB;

:
i

XMIT_BUFFER [

.INDEX1 ] = #X'FF’;

SET_RDESCR_LIST ( .XBUF_LENGTH, VE );
SET_XDESCR_LIST (

.XBUF _LENGTH. VE );

SEND_ELOOP _PACKET ( ZERD );

'
:

COMPARE_PACKETS ( );
ENDSUB ;

INCR INDEX FROM O TO .P3 DO

XMIT_BUFFER [

.INDEX ] = (

.XMIT_BUFFER [

.INDEX ]

) - 1;

VAX-11 Bliss-16 V4.0-579

144

DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI ;2

.9'(25)

Cle
CZANAEO DEQNA FUNCTIONAL TEST

2779

2780
2781

2783
2784
2785

2787

000022
000026
000032
000036

S A

000050
000054
000062
000066

NN
I NN N NN

2777
2778

000000
000004
000012

TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27-Mar-1986 07:33:5
0

WE W W N e e 9w we @ .o

004137
012737
012700
006200
005400
010037
012703
004737
005037
012702
005000
013701
116061
005237

000074
000076

003765
077215

000104

113737

000114

116060

000130
000132

003771
113737
104402
013746
012746
004737
013716
012746
004737
005016
004737

000142
000146

000156
000162
000166
000172
000174
000200
000204
000210

27-Mar-1986 07:36:09

062706
104467

BGNSUB

VAX-11 Bliss-16 V4,0-579

SEQ

145

DISK2: [SCODA.QNA.ZGNAJZGNA3.BLI
;2

¢ mELBgh 1E ))

SEND_ELOOPACKET ( ZERD );

COMPARE_PACKETS ( );

ENDSUB;
END;

ENDTST

0000006
002752 0000006
002752
000010
0000006
000276
0000006
000000G 000000G
0000006
000007

$T10:

14
24:
3$:

0000006

000000G 000000G

000001G 000000G

000006
000000G 000007G

0000006
120000
0000006
0000006
120000
0000006
0000006
0000006
000006

.SBTTL mo 1551 10 - TRANSMIT AND nsczxve FIFO MEMORY TEST
JSR
VE3
MOV
'rsaRBUF.LENGTH
g
MOV
#2752.R0
;
ASR
RO
NEG
RO
MOV
RO, XBUF.LENGTH
MOV
#10,R3
; *, INDEX
JSR
PC,RESET .DEGNA
;
CLR
TEMPL
:
MOV
9276 ,R2
; =, INDEX1
CLR
RO
; INDEX2
MOV
TEMP1
;
MOVB
PTRN.’mm.ecao; XMIT.BUFFERCR1) ; #(INDEX2),s#
INC
TEMPL
:
INC
RO
: INDEX2
P
RO, 87
: INDEX2,#
BLE
33
S0B
R2,2¢
; INDEX1,+
CLR
TEMP2
.
MOVE
PTRN.TABLE, TEMP2
CLR
RO
; INDEX3
MOVB
PTRN.TABLE+1(RO),PTRN.TABLECRO) ; *(INDEX3),*(INDEX3)
INC
RO
: INDEX3
gz
gg.os
: INDEX3,#
'1'3‘/3

;992PTRN. TABLE+7

MOV
MOV
JSR
MOV
MOV
fi
JSR
JSR
ADD
TRAP
ROR

XBUF.LENGTH, -(SP)
#-60000, -(SP)
PC,SET.RDESCR.LIST
XBUF
.LENGTH, (SP)
#-60000, -(SP)
@?.mscn.ust
PC, SEND.ELOOP
, PACKET
PC.COMPARE
.
PACKETS
#6,5P
67
RO

;
;
H

;
;
'

2756
2737
2731
2757

D12
ZANA3
vV01.0
000214
000216
000220

CZQGNAEO DEQNA FUNCTIONAL TEST
27-Mar-1986 07:36: 09
TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27-Mar-1986 07:33: 50
103751
077373
000207

i Routine Size:

73 words,

Routine Base:

i Maximum stack depth per invocation:

8 words

000000

004737

T10::

000004
000006
000010
000012

104466
006000
103773
000207

000000

BLO
S0B
RTS

006564’

1$:

S$
R3,1$
PC

2788
1

s INDEX,*
'

fes

% 239

2735

2677

ABS$CODE$ + 6564

.SBTTL

T10 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST

JSR

PC,$T10

TRAP
ROR
BLO
RTS

66
RO
14
PC

; Routine Size: 6 words,
Routine Base:
AB$CODE$ + 7006
; Maximum stack depth per invocation:
2 words
;

SEQ 146
VAX-11 Bliss-16 V4.0-579
DISK2: [SCODA.QNA.ZQNA]ZQGNA3.BLI
;2

2760

CZANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 11 - PACKET LENGTH TEST

VAX-11 Bliss-16 V4.0-579

27-Mar-1986 07:33:50

DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI;2

Yoo
1

PACKET LENGTH TEST

e e

DESCRIPTION:

Imme:if(iu th:ttDEM cmttrmth itw.ng :occm vari Ib%.

e o e

®SBTTL 'TEST 11 - PACKET LENGTH TEST'
TEST 11:

FIFO.:gnor

ets

e
o o et e
0 o
o
e
0

to or

equal
to or
less than 1514 b¥tes without @n CRC ) uithoutylooing any
data

in the process.

ater

than

This test also verifies that the 9th bit of the

is not static (stuck at 1/stuck :: 0)€h£' the e

specifies

0 0

( equal

detected th:q:rror until 1C is entered.
on

error

Hardware tested:

program

re-executes

code

;utor

tha

Transmit and Receive RAM

Processing:

BEGIN

reset device

select internal/extended loopback mode

set down_count to max. packet 1

set x?_cou\t to min. packet 1
REPEA

mgilldom_cunt - :u? podéeil:‘}‘mth

ransmit

loopback packe

)

check for expected loopboce.::ltu- and packet Iength
@

= down_coun

IF error
THEN

IFprint error message if not

gall
ransmiit 1"

.::d(et (

inhibited

=
up_count)
?F\.dt for expected lmcc.::-tuolength
and pocl‘zt length
e

error

THEN

ENDTF

int error

’

if not inhibited

call compare_packets
decrement down_count h! 2
increment up_count by
EmEMREPEAT

SEQ 147

m(26)

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 0 7:36:09

TEST 11 - PACKET LENGTH TEST

27-Mar-1986 0 7:33:50

SEQ 148

VAX-11 Bliss-16 V4.0- 5]:79
DISK2: [SCODA.QNA.ZQNA ZGNA3.BLI;2

BGNTST;

&%cg; PACKETS OF INCREASING AND DECREASING LENGTH THEN CHECK IF PROPERLY

COUNTER

UP_COUNTER

= ZERO

= SHORTEST PACKET:

DOWN_COUNTER = LONGEST PACKET;

INCR INDEX1 FROM SHORTEST_PACKET TO MAX_LENGTH BY STEP1 DO

RESET_DEQNA (

)

I COUNTER EQLU ZERO
BEGIN
RBUF _LENGTH = .UP_COUNTER;

XBUF_LENGTH = - (~.RBUF_LENGTH t -1 );

INCRTMIN
FROMDEX
O TO .UP_COUNTE
- 1 DO
R
—

XMIT BUFFER [ .INDEX ) = %B'01010101° ;

INCR _INDEX FROM .UP_CO
TO MAX_LEN
UNT
GTH -ER
1 DO
mrmrrsn[.nfiex]-zmoi

COONTER = ONE.
END
ELSE

CRRr LOEN - 0N LRI

XBUF "LENGTH = - ( .RBUF_LENGTH t -1 );
INDEX FROM O 70 .DOWN_COUNTER

XAITBUFFER [

TNOEX ] =

-'1 DO

o' 10101010';

INCR_INDEX FROM .DOMN_COUN
TO TER
MAX LENGTH - 1 DO
XMIT BUFFER [ .INDEX ) = ZERO

DOWN_COUNTER = .DOWN_COUNTER - STEP1;

COUNTER = ZERO;

END;

BGNSUB;

SET_RDESCR_LIST ( .XBUF_LENGTH, VE ;;

SETXOESCRLIST ¢ XBUF_LENGTH VE

29ARE PACKETSCL .

)

Em.}
ENDTST ;

000010

012737

0000006
000000G
000074

$T11:
000000G

.SBTTL

$T11 TEST 11 - PACKET LENGTH TEST

MOV

#74,UP.COUNTER

JSR R1, $SAVE2
R
COUNTER

'
'
'

2787
2841

G12
ZQANA3

CZANAEO DEGNA FUNCTIONAL TEST

V01.0

000016
000024
000030

012737
012" 02
004"
*

000064

001033
013700
010037
005001
000404
112761
005201

000034

005737

TEST 11

- PACKET LENGTH TEST

002752
000074

000000G

0000006

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 149
VAX-11 Bliss-16 V4.0-579
DISK2: [SCODA.QGNA.ZGNAIZQNA3.BLI ;2

mse DOWN. COUNTER

1%:

PCksssr DEQNA

*, INDEX1

UP. COUNTER, RO

RO, RBUF.LENGTH

000125

0000006

020100
002772

24:

34:

002775

000002
000001

;izs.xnn.awrsacm)

R1,RO
24
RO
54
ggn.awrenmm
RO, #2775
44
#2,UP.COUNTER
‘COU
#1
TEF

0000006
000000G

oom COUNTER, RO

RO, RBUF.LENGTH

000252

000000G

7%:
8%:

000000G

0000006

- 983

10$:

11%:

12¢:

s
02

JXMIT.BUFFER(R1)

R1,RO
7%
RO

104
@T.WFER(RO)
gg.ozns

92, DOWN.. COUNTER
COUNTER
&M.LE'GTH.RO

i INDEX

i *,%CINDEX)

INDEX
; INDEX,*

2854

; *CINDEX)

INDEX
; INDEX,*

2855
2854
2856
2857
2847
2861

2864

2865
2866
2865
2867

2851

2869
2872

2873

2874
2875
2869

H12
ZANA3

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

000276
000300
000302
000304
000310
000314
000316

TEST 11 - PACKET LENGTH TEST

104467
006000
103751
062702
020227
003645
000207

i Routine Size:

000002
002776

104 words,

Routine_Base:

7 words

000000

004737

Ti1::

000004
000006
000010
000012

104466
006000
103773
000207

007022'

27-Mar-1986 07:33:50

TRAP
ROR
BLO
ADD
CMP
BLE
RTS

; Maximum stack depth per invocation:

000000

27-Mar-1986 07:36:09

1$:

67
RO
124
#2,R2
R2,#2776
14
PC

2880
1

SEQ 150

DISK2:[SCODA.QNA.ZQNA]ZQNA3.BLI;2

Page

27)

2875

; *,INDEX1
; INDEX1,#*

2844

2787

AB$CODE$ + 7022

.SBTTL

JSR

TRAP
ROR
BLO
RTS

T11 TEST 11 - PACKET LENGTH TEST

PC,$T11

66
RO
14
PC

; Routine Size:
6 words,
Routine Base:
ABS$CODE$ + 7342
i Maximum stack depth per invocation:
2 words

VAX-11 Bliss-16 V4.0-579

}

2878

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

o-o-o-o—o-o-o-o-o-o-»-h-o-wt-o-o-t-t-o-t-r-v-o-o-o-o-o-o-o-o-o-»-»-o-o-o-t-o—t-o-t-po-o—r-o-o-o-;-o-.-o-

TEST 11 - PACKET LENGTH TEST

®SBTTL ‘TEST 12 - NXM INTERRUPT TEST'
Tee

TEST 12:

NXM INTERRUPT TEST

DESCRIPTION:

NOTE: THIS IS IMPORTANT,,, PLEASE READ IT !!!!
This test is only run if selected by operator changing software
defaults. This test should only be run if there is less than 4MB
of memory
in a '22 bit bock?hm system' or less than 256KB in an

‘18 bit

plane sgota‘ .

This test sets up the DEGNA to transmit

from a buffer at 17760000 (the most significant bits are truncated
by the number of wires physically present in the backplane). If

g‘ysical mrz exists at that address, the test will fail. This
est should not

present

be selected if the maximum amount of memory is

in your system !!!!!

This test verifies that Transmit and Receive List Invalid bits

(CSR bits 4 and 5) can be set and reset as specified and that both,

Transmit and Receive Descngtor List addresses in the I/0 page have
to be valid to succesfully loopback a packet.
After a software reset Transmit and Receive List Invalid bits
are

checked for their initial condition state (both set). Then these bits
are cleared
by writing Transmit and Receive Descriptor List addresses
into Transmit and Receive Buffer Descriptor Registers.
First, valid loopback packet is sent to verify

that WT properl

transmits and receives loopbo::k packets. Thon‘.' a Non-Exi.t::: .
Memory
Access
( NI ) bit

loopback packet is sent.

If the

is forced to " 1 " each time an invalid

rator specifies 1

on _error,

the

program re-executes the
code thg'tndetected the erro:”mtil € is ontor:g?
Hardware tested:

Q-Bus to QTDC interface
:
- Valid and invalid host memory
address processing
CSR register
NXM access (bit 2)

Interrupt Enable (bit 6)
XMIT List Invalid gb!t 4)
RCV List Invalid (bit 5)

Use following Descriptor List and buffer addresses:

TRANSMIT
kkkkk

RECEIVE
Rkkkkk

SEQ 151

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZQGNA3.BLI
;2

%€ 28)

s s

CZGNAEO DEQGNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST
'

DESCR LIST ADR

BUFFER ADR

0 b 1t ot et et et e

!
|

s
!

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50
DESCR LIST ADR

SEQ 152
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZQGNA3.BLI;2

BUFFER ADR

--------------

VALID
INVALID

VALID

DON'T_CARE
INVALID
VALID
VALID

VALID

DON'T CARE

Page

65
(2 8)

o e e ss

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST
'
'
'
!
!
'

e o o e

!
'
'
'

et ot o ot o o

]

'
'
!
!

]
b

0 o

'
i
'
!

e o e

'
H
'
'
'

B0 0 o

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

]

H
]

Processing:

BEGIN

reset device ( disables device

interrupt )

select internal 1
mode
read CSR
]
S
%&;‘(HIT and RCV List Invalid bits not = 1
g;int error message if not

inhibited

enable device interrupt (ut Cs% bit 6)

transmit valid 1
check for expected loopback ototu.
IF error
THEN
g;mt error message if not inhibited

call compare_packets
REPEATforooehutofm in the set
transmit

invalid loopback packet

IF an'mécrnp,t didn't occured
g;mt error message if not

inhibited

END.
check for expected loopback status
IF error

ENDYF

int error

ENDREPEAT
END

if not inhibited

VAX-11 Bliss-16 V4.0-579

SEQ 153

DISK2:([SCODA.QNA. ZGNATZGNA3.BLI
;2

Page

(29)

s
ZANA3

CZQNAEO DEGNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST
O ®

§a¢ HE R AR
R PR 33

2977

PRPPEBRRAONNNNNNOOCOORLDRRILLLLELY hb&&@&bbbbobbuuuuuuuuuu

vo1.0

§8 SERERREE

3010
3011
3012
3013
3014
3015
3016
3017
3018

3027

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNA]ZQNA3.BLI
;2

BGNTST;
Teo

RESET DEQNA AND SELECT LOOPBACK MODE

RESET_DEGNA (
1P

);

.swp_nxm eqlu yes

!only run test

if operator selected

begin

SETVEC ( .HWP_TABLE [ VEC ], QNA_INT, PRIO7 );
PREP_FOR_SETUP )

INCR INDEX FROM 1 10 14 DO
WRT_STATION_ADR

! SET UP FOR GNA INTERRUPT

.INDEX, PHA_INDEX );

BGNSUB
;
XMIT_SETUP_PACKET ( N_MODE );
ENDSUB;

RBUF _LENGTH = 6;
XBUF _LENGTH = - (

.RBUF_LENGTH t -1 );

CLR_BUFFERS ( B_SIZE );

ERR_NUMBER = ZERO;
Ten

!
!

LOOPBACK
A PACKET, VALID DESCRIPT
AND BUFFER
ORS ADDRESSES, THEN CHECK IF
LOOPBACK PACKET WAS PROPERLY RECEIVED AND NI BIT IN CSR = 0

RESET_DEGNA ( );

WRT_STATION_ADR ( ZERO, PHA_INDEX );

fse

!
!

TRY TO LOOPBACK A PACKET WITH INVALID TRANSMIT DESCRIPTOR ADDRESS.,
THEN CHECK FOR NON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET T0 1

090(30)

RRE H R S

27-Mar-1986 07:36::09
27-Mar-1986 07:33::50

VAX-11

DISK2:(

INTA&E{XHI-ADR NXHHIADR

iF_NOT GET_BIT ( CSR, NI)

IFT'(if‘XHIT_D_LIST [ FLGWD ) AND XFLG_MASK ) NEQU XFLG_MASK

BEGIN

CSR_WORD G
= ET BIT ( CSR_ALL );
PRINTB
NN

OslslNQNQQOOOOOOOOOOOOOOOOOOOOOOOb&.&OO&OQ\I\JN\JNOOOOOOOO

CZQNAEO DEQGNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST

PRINTE sca7 3
ERRDF

END;

ENDSUB;

202, M&G0O, E1$REPORT );

TRY TO LOOPBACK A PACKET WITH INVALID RECEIVE DESCRIPTOR ADDRESS,

THEN CHECK IF MON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET 10 1

OCReSE} DEQNA ¢ );

WRT_STATION_
( ZERO,
ADR PHA_INDEX
);
.IOP_TABLE [ RLO_ADR ] = NXM_LO_ADR;

.IOP_T
[ ABL
RHI_AD
E
R ] = NXM_HI_ADR;

SET_XDESC
( .XBUF_
R_LLENGTH
IST
,

VE );
.I0P_TABLE TM nom]-mbus
n

-IOP_TABLE [ XHI_ADR

ZERO

CHK_RIXI_STATUS ( ONE );

CHK_CSR_STATUS

(

%0’ 000220
CHKXMITSTATUS ¢ XPLG
STaTuS, hosoetatdd 1,

! 0'140000', 0'000400°

-IOP_TABLE [ CSR ] = EENABLE;

DEL
( AY
20 )

TFNOT GEY_BET ¢ CSR. NI)
THEN
IF (

.RCV_D_LIST [ FLGWD ] AND RFLG_MASK ) NEQU RFLG_MASK

BEGIN
(10pTABLE
&?s“nl DIsh

PRIfiTB( MSG59

INTB ( nsczs )

PRINTB ¢ Mecs?

£
EAROF ¢ 1203, AEG00, E14REPORT );
H

4.0-579

SEQ 155

ZANAJZANA3.BLI
;2

Page

68
(30 )

CZQANAEQO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

OOOOOOOOOOOOOOOOOOOOO&O&.&&ONQQQQQOOOOOOOOOOO&bb&&&&o

TEST 12 - NXM INTERRUPT TEST

27-Mar-1986 07:33:50

.JOP_TABLE [ CSR ] = DISABLE;
SUB;
Teo

!
!

TRY TO LOOPBACK A PACKET WITH INVALID TRANSMIT BUFFER ADDRESS,
THEN CHECK IF NON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET 70 1

BGNSUB

RESET_DEQNA ( );

SET_XDESCR_LIST ( .XBUF_LENGTH, VENXM );
XMIT_D _LIST [ LOADR ] = NXM_LO ADR

.IOP_TABLE [ XLO_ADR ) XMIT_D_LIST;
"TOP"TABLE [ XHI_ADR ] = ZERO;

BELAY ( 20

IF NOT GET_BIT ( CSR, NI )
THEN
IF_ (

.XMIT_D_LIST [ FLGWD ] AND XFLG_MASK ) NEQU XFLG_MASK

BEGIN
CSR_WORD = GET_BIT ( CSR_ALL );

PRINTB ( MSGS9 );

PRIN
( MSG2
TB
9 )i
PRIN
( MSG27
TB
)

ERRDF ( 1204, M&GOO, ERRORSREPORT );

ENDSUB;

END;

'
LY

TRY TO LOOPBACK A PACKET WITH INVALID RECEIVE BUFFER ADDRESS

THEN CHECK IF NON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET TO 1

BGNSUB

RESET_DEQNA ¢ );

SET_RDESCR_LIST ( XBU-'&"EIGTH
RCV-D_LIST [ LOADR ]
LO

VENXM );

.IOP_TABLE [ RLO_ADR ] = RCV DLIST;
.JOP_TABLE [ RHI_ADR ] = ZERD;

SET_XDESCR_LIST ( .XBUF_LENGTH,

VE );

.IOP_TABLE [ XLO_ADR ] = XMIT_D_LIST;

.IOP_TABLE [ XHI_ADR ] =

;

CHK_RIXI_STATUS ( ONE );

CHK_CSR_STATUS

( %0’'000220',

%0’000220'

)

CHK_XMIT_STATUS ( XFLG_STATUS, leDlZ_STATUg );
.IOP_TABLE [ CSR ] = EENABLE;

DELAY ( 20 );

156

VAX-11 Bl jga-16 v4.0-570
DISK2:( SCODA. QNA. ZGNA ) ZQNA3 .BLI ;2

! 0140000’, 0'000400'

%€ (30

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4,0-579

SEQ 157

DISK2: [SCODA.QNA.ZGNAJZQGNA3.BLI
;2

IF"'gz GET_BIT ( CSR, NI )

Poo203
e
70

IFT(.RCV_D_LIST [ FLGWD ] AND RFLG_MASK ) NEQU RFLG_MASK
BEGIN

CSR_WORD = GETBIT(

;108
Tm'fis&scs“ $ GTomseE,

PRINTB
PRINTB
ERRN

SHSGZ r)fiésoo ERRORSREPORT );
7

T0P_TABLE[ CSR ] = DISABLE;
SUB;

end;

ENDTST;

000023

2%:

000016

34:

;;.-(éo)

PC,PREP.FOR.SETUP

#1,R1
R1,(SP)
-(SP)

PC,WRT.STATION.ADR

R1,#16

000001

HW
, TABLE
P ,RO
2(R0O), -(SP)

000003

260
#PRI07,-(SP)
. INT -(SP)
#QNA

1s:

keser DEQNA
su5 1

011234’

SlB

$T12 TEST 12
- NXM INTERRUPT TEST
Rl (SP)

000000G 000001

SBTTL

$T12

333339333 o
A p s f\a

005400
010037

27-Mar-1986 07:36:09

3f% 33233§§g§sz§§§§§§§§§§§§=§3§3

nuu&omouuqqqquoomo

eke

CZQNAEQ DEGNA FUNCTIONAL TEST
TEST 12
- NXM INTERRUPT TEST

2879
2983

xS
CZANAEQO DEQNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST

2583 g on 23 3
B
52
< i
G
—_

000000G

ATION.ADR

3013

XMIT.ILOOP.PACKET

0000006
000016 000012
000004 000012

(30)

3002
3009
3010

VL ~
~N)

4%:

Page

3001

.NUMBER

158

DISK2:[SCODA.QNA.ZQNAJZQNA3.BLI;2

#4000, (SP)

000012 000014
000014 000000G
0000006
000001

i
i

*,TMP.LOCATION
*,TMP_LOCATION

i *,TMP.LOCATION
i TMP_LOCATION,*

3014

3017
3018

i SP,*
0000006
000001

3019

i SP,*

6%:

160000 000010G
000077 000012G
000000G
000016 000016
000004 000016
0000006
037777
140000
000016 000020
000020
0000006
000001

3016

3023
3031

PC,RESET.DEGNA
#-20000, 3T0P . TABLE
+10

$77,810P, TABLE+12

REG. ADR, RO

16CR0),16(SP)

#.mén

7.D.LIST.R1
#37777.R1

*, TMP.LOCATION
*,TMP.LOCATION

3034

3036

R1, #-40000

Sas

5%:

0000006
000001

EEE

016666
016637
012716
012746
010600
104414
012716
012746
010600
104414
012716
012746
010600
104414
104455
002261

000023
000000G

VAX-11 Bliss-16 V4.0-579

PC,CLR.BUFFERS

2333383 S FA

032766
001436

004000
000000G
000000G
000000G

012716
004737
005037
004737
005016
012746
004737
104402
005016
004737
013700
016066

[++]

000152
000156
000162
000166

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

w
=
.

ZANA3

v01.0

¢+

*,TMP.LOCATION

+ TMP_LOCATION,*

'yo‘

CZANAEO DEGNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST

104414
012716
012746
104414
012716
012746
010600

VAX-11 Bliss-16 V4.0-579

SEQ 159

DISK2:[SCODA.QNA.ZQNAJZQNA3.BLI;2

0000006
000001
0000006
000001

104414
104455

74:

103706

012746
#77,810P,

9%:

000046

104:
11¢:

000000G
000016 000032
000004 000032

000000G
037777
140000

12¢%:

35 SRo2aSRgeRaRa3533533530353

013716

TABLE +6

XBU
, LENGTH,
F (SP)

#-60000, -(SP

PC,SET. XDESCR.LIST

#XMIT.D.LIST,SI0P. TABLE+10

SI0P. TABLE+12
#1,(SP)

PC.CHK.RIXI.STATUS

9220, (SP)

BT,
LI CSR. STATUS
#-400

00, (SP)
$400, -(5P)

i %, 88TMP2

i %, 88THPL
; $8TMP
i $5TMPL .=
: $8TMP2

:
:

R1,#-40000

*,TMP_LOCATION
*,TMP.LOCATION

3071

3073

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST

0000006
000001

VAX-11 Bliss-16 v4,0-579

SEQ 160

DISK2: [SCODA.QNA.ZQNA)ZQNA3.BL
;2
I

[

gc_-o:.;:;'-c

ged
p®
48

0000166
000032 000034
000034 000000G
0000006
000001

g2 Qe —
W

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

%, TMP.LOCATION

TMP.LOCATION, *

% 30)

3076
3077
3078

SP,*
3079

y.‘

0000166
000010

13¢:

144

MSGOO
E1$REPORT
6, 5P

SI0P. TABLE+16
10, 5P

120077

160000 000004G
000000G 000010G
0000126
000024

*, $8THP2

15%:

g5 588 2888

;

0000006
000001

*, $$TMPL
164:

$sTMP
$$THP,»
L
$$TMP2

17%:

0000006
037777
140000
000030 000032
000032 000000G
000000G

18¢:

000030
000030

*,TMP.LOCATION
*,TMP .LOCATION

100

[

000016

'1‘% ‘o-déooo
sogspg.sacsm
32(SP),CSR, WORD

#MSG59, (SP)

*, TMP.LOCATION

TMP.LOCATION, *

3103
3104

CZANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 12 - NXM INTERRUPT TEST

000000G
000001
000000G
000001

SP,RO
14
#MSG29, (SP)

i SP,*

SP,R
14

ispo‘

"% (30

3105

3106

3107

22%:
23%:

000016
000004

000042
000042

244%:

3109
3117
3119

3120
3121
3124
3125
3128
3130

3131

;

%, $8TMP2

;

*,$8TMPL

3133
3135

; $STMP
i $STMPL,»
i $8TMP2

21%:

3108

z B¢ X

20§%:

3102

19¢:

33 AaBsuzy

104414
012716

000001

B ogRRgCE3Ra2,33033430353303373353082

012746
010600
104414
012716
012746

SEQ 161
VAX-11 Bliss-16 V4.0- 579
DISK2:[SCODA.QN
, ZGNA
A JZANA3.BLI;2

+
:

*,TMP.LOCATION
*,TMP_LOCATION

3136

G13
ZGNA3

CZQGNAEO DEQNA FUNCTIONAL TEST

V01.0

001514
001516

001522

001526

001532

001534
001542

001550
001554
001560
001564

001566

001570
001574
001600

001602

001604
001610
001614

001616
001620
001622
001624
001626

001630
001634

000000G

BNE
MOV

020127

140000

cHP

042701

001440

016666
016637

012716
012746
010600

0000006
000001

012716
012746
010600

0000006
000001

104414

104414
104455
002265
000000G
0000006

062706
005077

006000
103620
062706

001664

000042
000044

0000166
0000006
000001

001646
001650
001652
001662

037777

075077
012716
012746
010600

062706

001656

27-Mar-1986 07:33:50

001047
013701

001640
001644

27-Mar-1986 07:36:09

TEST 12 - NXM INTERRUPT TEST

104467

062706

012601

000207

000006

0000166

000010

000012

000026

BIC

BEQ

000044
000000G

MOV
MOV

42(SP),44(SP)
44(5SP),CSR.WORD

; %, TMP.LOCATION
: THP.LOCATION,*

3141

:
:

MOV
MOV
MOV

#MSG29, (SP)
#1,-(SP)
SP,RO

MOV
MOV
MOV

#MSG27, (SP)
#1,-(5P)
"RO

;

TRAP
TRAP
.WORD
‘WORD
.WORD

14
55
2265
MSGOO
ERROR$REPORT

CLR

3I0P.TABLE+16

ADD
ADD

TRAP

; SP,#
3144

i SP,*

3145

; SP,%
3146

96, SP

;

3140

#10,5P

;

3109

;

2987

RO
204
#12,5P

MOV

(SP)+.R1

RTS

3142
3143

ROR
BLO
ADD
ADD

(30)

3138

R1, #-40000

254

Page 75

;

9I0P, TABLE+16
#MSG59, (SP)
#1,-(5P)
SP,RO

TRAP

26$:

#37777,R1

SEQ 162

DISK2:([SCODA.QNA.ZQNAJZGNA3.BLT
;2

CLR
MOV
MOV
MOV

TRAP

25$:

254
RCV.D.LIST,R1

VAX-11 Bliss-16 V4.0-579

926 . 5P

; Routine Size: 475 words,
Routine Base:
AB$CODE$ + 7356
i Maximum stack depth per invocation:
words

;
)

3148

2879

H13
ZANA3

CZQNAEO DEQGNA FUNCTIONAL TEST
TEST 12 - NXM INTERRUPT TEST

v01.0

000000
000000
000004
000006
000010
000012

004737

007356’

104466
006000

103773
000207

‘ : Routine Size:

T12::

14:

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50
.SBTTL

T12 TEST 12 - NXM INTERRUPT TEST

JSR
TRAP
ROR
BLO

PC,$T12
66
RO
14

RTS

6 words,

s
3]

3158
2N

1}
3

”

SEQ 163

DISK2:[SCODA.QNA.ZQNA]ZQNA3.BLI ;2

Routine Base:
ABSCODE$ + 11244
; Maximum stack depth per invocation:
2 words

VAX-11 Bliss-16 V4.0-579

Page

(30)

3151

CZANAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 12 - NXM INTERRUPT TEST

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI;2

®SBTTL ‘TEST 13 - MULTIPLE AND CHAINED PACKET TEST'

Tee

e o

o o

o ot e

!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!

MULTIPLE AND CHAINED PACKET TEST

DESCRIPTION:
This test verifies that the DEQNA can transmit and receive multipl
e,
linked and chained loopback packets.
If the operator specifies 1

o error,

the program re-executes the

code that detected the crrggpuntil 1C is entered.
Hardware tested:
Processing:

BEGIN

reset device

select internal/extended 1

transmit simple loogbock
et
check for expected loopback status
IF error

. t

EPDEF

rint

error

mess

mode

not inhibited

not

inhibi

call compare_packets

!
!
!

transmit multiple, linked and chaind loopback packet
check for expected loopback status
IF error

5
!

TEST 13:

e © t

ENDTF

int

error

message

call compare_packets
END

not inhibited

not

inhibi

SEQ 164

Page

(31)

CZQANAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

muwluumuuuumuwuummumumuuuwu‘uuuuuuuuuummmmuuuuuuuuuu W

TEST 13 - MULTIPLE AND CHAINED PACKET TEST

27-Mar-1986 07:3 3:50

BGNTST;

RBUF _LENGTH = 64;
XBUF _LENGTH = - (

.RBUF_LENGTH t -1 );

Tse

LOOPBACK UNCHAINED PACKET, THEN CHECK IF IT WAS PROPERLY RECEIVED

BGNSUB

SET_RDESCR_LIST ( .XBUF_LENGTH, VE );

SET_XDESCR_LIST (

.XBUF-LENGTH' VE

SEND_ELOOP _PACKET ( ZERD );
COMPARE_PACKETS ( )

ENDSUB;

RESET_DEQGNA ( );
CLR_BUFFERS ( 512 );

INCR_INDEX FROM O TO 383 DO
XMIT_BUFFER [

.INDEX ] =

.INDEX;

BGNSUB;
INCR INDEX FROM O TO 63 DO
RCV_D_LIST
[ .INDEX, W_LE
]N
= .RD13
[

INCR INDEX FROM O TO 31 DO
XMIT_D_LIST [

XMIT_D_LIST E

.INDEX, W_LEN ] =

.INDEX J;

.TD13 [

7. W_LEN ] = VE;

XMIT_D_LIST [ 13 . W.LEN ] = E;

.INDEX J;

!modify what came from tdl3

!this was here, comments added E

PUT_BI
[ CSR,
T LB, INX_LOOPBACK ];

XMIT_AND_RCV_PACKET ( )

CHK_RIXT_STATUS ( ZERQ );
CHK_CSR_STATUS

( CSR_STATUS, CSR_MASK );

! 0'100220', 0'100220'

XMIT_D_LIST

7, W_LEN ] = V;

!this changes already used

XMIT D_LIST [ 12, W_LEN ] = NEWB;
XMIT_D LIST [ 13, W.LEN ] = V;

.J0P_TABLE [ XLO_ADR ] = XMIT_D_LIST + 24;

.IOP_TABLE [ XHI_ADR ] = ZERO;
CHK_RIXI_STATUS ( ZERO )

CHK_CSR_STATUS ( CSR_ST‘TUS. CSR_MASK );

!tx desc entries 727
!comments added rev E

!this forces the gna to do

!another xmit 77!!

! 0'100220', 0100220’

Tse

CHECK IF RECEIVE BUFFER DESCRIPTOR I.ISTS PROPERLY VOLIDATED

SEQ 165

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNAJZQGNA3.BLI
;2

% 329

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

INCR INDEX FROM O TO 53 DO
.RCV_D_LIST [ .INDEX, W_LEN ] NEQU .RD13 [

SEQ 166
VAX-11 Bliss- 6 V4.0-579
DISK2:[SCODA.
.ZANAJZQNA3.BLI;2

.INDEX ;

Am( .RCV_D_LIST [ .INDEX, W LEN ] AND %0'140000' ) NEQ
%0’ 140000’
U

mTarE'lg‘cv D_LIST[ .INDEX, W_LEN ] NEQU %0’ 020600’
BEGIN

CSR_WORD = GET BIT ( CSR_ALL );
PRINTB( MSG59 );

PRINTB ( nssw )

PRINTB (

RCV_D_LIST moex .RCV_D_LIST [ .INDEX, W_LEN ] );
mgmr (1 nssob
“ERROR$REPORT );
H

fae

CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED

INCR INDEY FROM O TO 23 DO
IF XMIT_D
[ .INDEX,
_LI
W_LEN ST
] NEQU .TD1
[ .INDEX
3

PRINTB

ImEx uLENJm:so'Aoooo

( xflnous
[

ONONINSN

NNMOOOOOOUIUIUIMUIUIUIMOOOUIUIUIOOOOO\OUIUIU'MUIUIUIUIUIUIUIMOOOOOOUIUIU!UIUIUI

CZQANAEO DEGNA FUNCTIONAL TEST
TEST 13 - MULTIPLE AND CHAINED PACKET TEST

IMB:ERGg‘DEXFR(HOTOSDO
XMIT_D_LIST [ .INDEX,

agcv
_D_LIST

W_LEN J XMIT D _LIST (

.INDEX, W_LEN

moszW_LE];
N
.RCV_D_LCIST [ .INDEX +
_CEN );

CHK_XMIT_STATUS ( XFLG_STATUS, XWD12 STATUS ;

! 0'140000', 0'000400'

INCR INDEX FROM O TO 383 DO
IF_.XMIT_BUFFER [ .INDEX ] NEQU .RCV_BUFFER [

.INDEX )

CHK_RCV_STATUS

( RFLG_STATUS, RWD1_STATUS

);

! 0'140000'. 0'020000'

aegg WORD= GET_BIT ( CSR_ALL )

PRINTE
HSCSSTM);
‘
PRINTB ( MSGSO, RCVBUFFER [

ms)nmr
H

. 1. XMIT_BUFFER [ .INDEX ), .INDEX );

( 1303, MSGOO, ERROR$REPORT
)

*(32)

L13
ZQANA3

CZANAEO DEGNA FUNCTIONAL TEST

vo1.0

TEST 13 - MULTIPLE AND CHAINED PACKET TEST

ENDTST;

330
1

004137

000010
000016

012737
012700
006200

000000

0000006
000006
000100 000000G
000100

$T13:

18:

24:

JSngTL

sUB
MOV
MOV
ASR
NEG
MOV
JSR
CLR
MOVB
INC
cMP
BLE
TRAP
MOV
MOV
JSR
MOV
MOV
JSR

S$:

000176

000076

120000
020000

000016G
000032G

64:

;

3153

3196
3197

;
; INDEX
; INDE
#C INDEX)
X,
; INDEX
; INDEX,#
;

;

3211

TRAP

;

3211

3000 tap
PC,CLR &rrsns

3214

#6,5P

RO
24

CLR
MOVB
INC
o
BLE
TRAP
CLR
MOV
ADD

RO
RO,XMIT.BUFFER(RO)
RO
RO, #577
34
2
RO
RD13(R0),RCV.D.LIST(RO)
#2,R0
go.ms

: INDEX,*

CLR

RO
TD13(RO), XMIT.D.LISTCRO)
#2,R0
RO. #76
64
#-60000,XMIT.D.LIST+16
#20000, XMIT.0.LIST+32
REG. ADR, RO

: *CINDEX),*(INDEX)
; *, INDEX
: INDEX,+
;
;
:

000000G 000000G

96, SP
#100, RBUF . LENGTH
#100,R0
RO
RO
RO, XBUF . LENGTH
PC.RESET . DEQNA
RO
RO,XMIT.BUFFERCRO)
RO
RO, 877
18
2
XBUF ,LENGTH, -(SP)
#-60000, -(SP)
PC,SET.RDESCR,LIST
XBUF .LENGTH, (SP)
#-60000,
- (SP)
PC,SET. XDESCR.LIST

WV
JSR

000000G 000000G

$T13 TEST 13 - MULTIPLE AND CHAINED PACKET TEST
R1, $SAVE3
;

l(’CSéSBO) ELOOP, PACKET
PC.COMPARE . PACKETS

ROR
BLO

4%:

SEQ 167
VAX-11 Bliss-16 Vv4.0-579
DISK2:[SCODA.QNA.ZQNAJZGNA3.BL
;2
I

N
JSR

ADD

27-Mar-1986 07:36:09
27-Mar-1986 07 :33:50

MOV
ADD
cHP
BLE
MOV
MOV
MOV

3210

: INDE
+C INDEX)
X,

: INDEX
: INDEX
: INDEX,#

3216
3217
3216

3217

; INDEX
: *CINDEX),*(INDEX)
: %, INDEX

3221

: INDEX

3223
3223

3229

CZQNAEQO DEQNA FUNCTIONAL TEST
TEST 13 - MULTIPLE AND CHAINED PACKET TEST

BIC
BIS

000006 000000G
0000006
000001

000001

PC,CHK,CSR.STATUS

#-100000,XMIT.D.LIST+16
#-100000, XMIT.D.LIST+30
#-100000,XMIT.D.LIST+32
#XMIT.D.LIST+30,3I0P.TABLE+10

ggg.rme»xa

PC,CHK.RIXI.STATUS

#-77560, (SP)

(SP), -($P)

|l;g.cm.csa.snlwus
IRIS.RJ.

INDEX
INDEX, *

RCV.D.LIST(R1),RO
(R1)

*, TMP.LOCATION

TMP.LOCATION, +

SP.»

9..

ST(R1),(SP)

&r=%o

000000G
000016 000006

.RIXI.STATUS

#-77560, (SP)
(SP),-($P)

037777
140000

#1000, 16(RO)

Eccsbxrdt.w.acv.mcxer

=]
=
o

74:

SEQ 168
VAX-11 Bliss-16 v4.0-579
DISK2:[SCODA.QNA.ZQNAJZGN
. BLIA3
;2

#1400, 16(R0)

g2
3=
=823
3_8
3.3 Lo R

000016
000016

REELLLLELEERCELEEE
LT 2333730533500333353350%

001400
001000

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

T,-(SP)

)

: INDEX,s

Page

% 32

CZQANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 13 - MULTIPLE AND CHAINED PACKET TEST
8%:

R3
R3, #65
74
R3
R3,R1
R1
XMIT.D.LIST(R1),RO
l}g ‘TDI.S(RI)

9$:

R2, #-40000

020414

RO, #20414

004140

RO, #4140

000016 000010
000010 000000G
000000G
000001

16(R0) i0(sP)
oc >csa WORD

(s
#1,-#)
14

10%:

114:

000060G 000000G

000154G 000000G

3248

s INDEX

3265

; INDEX,*

(5P)

(SP)

SP,.RO
14
XMIT.D.LIST(R1),(SP)
R3, -(SP)

OXHIT D. LIST -(SP)

sfi
~(

14
35
2426

3269

ADR,RO

106

2§§§§§§E§§§8§§§§§ géééééégéé

010200
006300
010201
1
016160
010201
006301
016160
005202

000027

; INDEX

s INDEX,*

104

TM
3

003704

82
(32)

104

0000006
000001

000014

Page

gg"r’};'r R2

037777
140000

SP.RO

062706
005203

SEQ 169

DISK2:[SCODA GNA.ZGNAJZGNA3.BLI
;2

*, TMP.LOCATION

3272

TMP.LOCATION, #

000065

VAX-11 Bliss-16 V4 .0-?79

3273

; SP,*
B

3274

i SP,*

| INDEX,s

3275

3?,‘
3276

MSGOO

ERROR$REPORT

%4 +SP
R3, 927
94
R2

R2,RO
RO

3271
3265

+ INDEX
H I'DEX-‘

3279
3281

; INDEX
; INDEX,=*

R2,R1

i INDEX,*

R2,R1
R1

B m.‘

: Inoex

R1
XMIT.D.LIST+60(R1),XMIT.D.LIST(RO) ;

RCV.D.LIST+154(R1),RCV.D.LISTCRO)

3279

P AR
—

B14
ZQNA3

CZQGNAEO DEGNA FUNCTIONAL TEST

V01.0

001000

001004

TEST 13 - MULTIPLE AND CHAINED PACKET TEST

020227

003760

000005

001040

126161

000000G 000000G

001046
001050

001447
013700

000000G

001062
001070

016637
012716

000016 0000006
000000G

001100

010600

12¢:

001054 016066 000016 000016

001102

001104
001110
001114

001116

001120

001122
001124
001130
001132

001136
001142
001146

001150

104414

012716
012746
010600

116116

000000G
000001

0000006
0000006

001166
001170

001174
001176
1202

001204

001206

001210

001214
001220

005201
020127

003721
062706
104467

006000

103002

000137

062706
000207

: Routine Size:

000010

329 words,

14$;

Routine Base:

i Maximum stack depth per invocation:

20 words

3285

;

3286

s INDEX

3288

; #CINDEX),#(INDEX)

3289

16(R0)
iscsp)

; THP.LOCATION,*
;

MOV

SP.RO

3293

; SP,*

MOV
MOV
MOV

#MSG51, (SP)
#1,-(SP)
SP,RO

;

MOV

R1,(SP)

; INDEX,*

-(sé
81,
14

-($P)
XMIT.BUFFERCR1),(SP)
-(SP)

RCV.BUFFER(R1),(SP)

#MSGS0, -(SP)
#4,-(SP)
SP.RO
14

; #,TMP,LOCATION

3294

; SP,%

3295

; *CINDEX),*
: *CINDEX),
*

; SP,*

;

3291

"WORD

ERROR$REPORT

INC
P

R1
R1,9577

: INDEX
; INDEX,+

TRAP

;

3297

3153

ADD

#14,5P

124
$10,5P

ROR

JMP

BHIS

011444

;

(
). . WORD
(5P)

BLE
ADD

000010

; INDEX,#

MOV
MOV

-WORD

000577

(32)

XMIT.BUFFERCR1),RCV.BUFFER(R1)

TioRD 2227
138:

Page 83

3292

TRAP

000014

DISK2:[SCODA.QNA.ZGNAJZQNAZ.BLI
;2

;

MOV
MOV
MOV

0000006

SEQ 170

134
REG.ADR

MOVB

0000006
000004

114

VAX-11 Bliss-16 V4.0-579

BEQ
MOV

CLR
MOVB
CLR

104414

062706

CMPB

TRAP

001138 003437
001162

#-40000, (SP)
#400, -(5P)
CHK, XMIT,STATUS
#-40000, (SP)
$20000, -(SP)
PC,CHK RCV.STATUS
RL

TRAP

010116

012746
012746
010600

MOV
MOV
JSR
MOV
MOV
JSR
CLR

MOV

104414

116116

R2, 45

MOV

001074 012746 000001

27-Mar-1986 07:33:50

cHP

BLE

001006 012716 140000
001012 012746 000400
001016 004737 0000006
001022 012716 140000
001026 012746 020000
001032 004737 0000006
001036 005001

27-Mar-1986 07:36:09

ADD
RTS

;

3288

3217

144

#10,5P
PC

AB$CODE$ + 11260

Cl4
ZQNA3

v01.0

TEST

000000

004737

000004
000006
000010
000012

104466
006000
103773
000207

000000

0 DEQNA FUNCTIONAL TEST

13 - MULTIPLE AND CHAINED PACKET TEST

011260'

T13::

14:

3301

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4,0-579

T13 TEST 13 - MULTIPLE AND CHAINED PACKET TEST

JSR

PC,$T13

TRAP
ROR
BLO
RTS

66
RO
13
PC

SEQ 171

DISK2:([SCODA.QNA.ZQNA]ZGNA3.BLI
;2

.SBTTL

; Routine Size:
6 words,
Routine Base:
ABS$CODE$ + 12502
i Maximum stack depth per invocation:
2 words

27-Mar-1986 07:36:09

Page

(32)

3298

CZQNAEQO DEQNA FUNCTIONAL TEST

27-Mar-1986 0 7:36:09

TEST 14 - DMA TIMING TEST

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNA)ZQNA3.BLI ;2

%SBTTL 'TEST 14 - DMA TIMING TEST'
Too
'

TEST 14:

DMA TIMING TEST

DESCRIPTION:

This test verifies that the DMA transfer completes within 'X' msec.
Chained and_linked 1514 byte loopback packet is used to accomplish
this test. If the operator specifies loop on error, the program
re-executes the code that detected the error until tC

is entered.

NOTE: An answer to the following software quastion

SYSTEM HAS BLOCK MODE MEMORY (L)?

'
.

determines the value for 'X'.

Hardware tested:

Internal/Extended 1
Transmit status - last descriptor in chain (bit 1 5)
Receive status - last descriptor in chain (bit 1 3)

]

Processing:

error

summary

'
.

’

'
1
.

'
.

BEGIN

reset device

select internal/extended loopback mode

set the timeout timer to ‘X' msec
transmit chained loopback packet
start the timer

IF timeout
THEN
int error

if not inhibited

enoF

check for expected loopback status

IF error

| .

rint error

ENDYF

00call compare_pack ets

(bit

14)

SEQ 172

Oge('.'33)

CZQNAEQO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

VOV Oy 0‘OUlUIUIUlUlUIUIUIMMUIMMMUIU'UIUIUIUIUUIMMUIUIMUNHUOUA W

TEST 14 - DMA TIMING TEST

RBUF _LENGTH = LEGAL_LENGTH;

XBUF _LENGTH = - ( WLMTH*-I)

IM:RI'DEXFRG‘!OTOLE?N.LEPGTH- 100
XMIT_BUFFER [

.INDEX

INDEX;

INDEX Facn'o70 63 DO

INGEX,
U LEN ] =

INCR

.RD13 [

XMIT DLIST [ INDEX. H-LEN 1 =

.TD13 [

.INDEX J;

.INDEX 1,

TEMPS
= .XMIT D_LIST [ 27. W_LEN

TEMP6
= .RCV.D.CIST [ S1' HoLEN

TEMP7 = .RCV-DLIST [ 36

XMIT D LIST [ 27, W.LEN ] = -628;

RCV_D_CIST [ 51, W LEN

RCVIDZLIST [ 36, W_LEN ] = RCV_BUFFER + LEGAL_LENGTH - 2;
PUT BIT [ CoR,

LB, INKLOOPBACK
]

XMIT_AND_RCV PACKET

;

CHK_RIXI_STATUS ( ONE );
IF_.5WP_BLOCK_MEM EQLU ONE
THEN
TEMP4 = %0'367'
ELSE
TEMP4 = 4 = %0'367';

ADDED 25% T0 “305" TO GET "367". FIX FOR $ 34

?‘I?GEFRMISH-‘ZTOIBWCPU. BY HLM.

IF_.TEMP1 GTRU .TEMP4
THEN
BEGIN
CSR_WORD
= GET(_BI
CSR_ALL T
);

PRIN
( MSGS9
TB
);
PRINTB ( MSG52
)

ERRDF ¢ 1401 MEGO00, ERRORSREPORT )
( CSR_STATUS, CSR_MASK );

! 0'100220', O'100220"

XMIT D _LIST [ 27, W.LEN ] = .TEMPS;

RCV_D_CIST [ Si. WLEN ] = .TEMPG.

Rovorier

fak -LEN 1 = [TEWPT.

fse

5 CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED

INCR INDEX FROM O TO 23 DO
IF XMIT_D_LIST [

.INDEX, W_LEN ] NEQU .TD13 [

.INDEX ]

SEQ

’

173

DISK2:([SCODA.QNA.ZGNAIZGNAS. BLI;2

BGNTST;

CHK_CSR_STATUS

Vil

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

$4$

Page

86
(34)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

HWMUIOOOOOOUIUlUIU'UIU'UlU!UlOOGO‘OUIUIUIOOO\OOO‘U!UIUIUIU'U!U!U!UIOOOOOOUIUI

TEST 14 - DMA TIMING TEST

M?éN.MT_D_LIST [

27-Mar-1986 07:33:50

.INDEX, W_LEN ] AND %0’'140000'

BEGIN
CSR_WORD = GET_BIT ( CSR_ALL );
PRINTB ( MSG59 ;z
PRINTB ( MSG49
);
PRINTB ( n:876. XMIT_D_LIST,
.INDEX,

ERRDF

END;

VAX-11 Bliss-16 v4.0-579

( 1402, 'MSGOO, ERROR$REPORT );

.INDEX, W_LEN ] );

Teo

CHECK IF RECEIVE BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED

INCR INDEX FROM O TO 53 DO
IF .RCV_D_LIST [

.INDEX, W_LEN ] NEQU .RD13 [

.INDEX ]

AuTabéN.ficv_o_usr [ .INDEX, W_LEN ] AND %0'140000'

) NEQU %0’ 140000’

BEGIN
CSR_WORD = GET_BIT ( CSR_ALL );
PRINTB ( MSGS9 );

PRINTS¢

a8, “Acy D.LIST. - DOEX

RCV_D_LIST[ .INDEX, W_LE] N)
ERRDF ( 1403, MSGOD. ERRORSREPORT
)} = ~ e
'

INCR INDEX FROM O TO 5 DO
BEGIN
TEMP1 = .INDEX + 24;
TEMP2 = .INDEX + S4;
XMIT_D_LIST E .INDEX, W_LEN ] = .XMIT_D_LIST [

E'gcv_fi_usr

.INDEX, W_LEN ] = .RCV_D_LIST

RBUF_LENGTH = 1514;

.TEMP1, W_LEN

.TEMP2, W_LEN

);

CHK_XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS gs
CHK_RCV_STATUS ( RFLG_STATUS, RWD1_STATUS
);

! 0'140000', 0000400’
¢ 0'140000'. 0'020000'

INCR INDEX FROM O TO LEGAL_LENG
- 1TH
DO
IF_.XMIT_BUFFER [ .INDEX ] NEQU .RCV_BUFFER [

.INDEX ]

BEGIN
CSR_WORD = GET_BIT ( CSR_ALL );

PRINTB ( MSG59 );

PRINTB ( MSG51 ):
PRINTB ( MSGS0,
.RCV_BUFFER [ .INDEX ],
ERRDF
( 1404,
. ERROR$
T )

.XMIT_BUFFER [

.INDEX ],

ENDSUB;
ENDTST;
.SBTTL

DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI;2

) NEQU %0’ 140000’

.XMIT_D_LIST [

$T14 TEST 14 - DMA TIMING TEST

.INDEX );

Gl4
CZGNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 14 - DMA TIMING TEST

$T14:

3346
3347

#2752
RO
RO

sg.xatf.l.eusm

:8.XHIT.B&‘FER(RO)

2%:

RO, #2751
13
2

000000G 000000G
000002

4%:

Rng(RO)+RCV.D.LIST(RO)
RO,#176
34
RO
TD13(RO),XMIT.D.LIST(RO)
#2,R0

R?.076

000000G

000016 000002
000002 0000006
0000006
000001

INDEX
*(INDE
#*( X),
INDEX)

3348
3349
3348

3349
3352
3353

*, INDEX

3353

INDEX
*(IND
, *(INDEX)
EX)

3355
3356
3355

INDEX,*

*, INDEX

INDEX,
*

XMIT.D.LIST+66, TEMPS
RCV.D.L1ST+146,TEMP6
RCV.D.LIST+160, TEMP7

176614 000066G
176617 000146G
002750G 0001606
0000006
001400 000016
001000 000016
0000006
000001
000000G
000000G 000001

001734 000000G
000000G 000000G

34:

000000G 000000G
000002
000176

PC RESET.DEGQNA

002751

INDEX
INDEX , *(INDEX)
INDEX
INDEX, *
W

14:

000000G

0000006
000001

3300

02752RBLF LENGTH

0000006

SEQ 175

DISK2:{SCODA.QNA.ZGNATZGNA3.BLI;2

#10,5p

s R

000367

VAX-11 Bliss-16 V4,0-579

R1, $SAVE2

5¢:
3

ééé§§§§§§§§3§3523§§§5§§§§

ZQANA3

v01.0

#-1164,XMIT.D.LIST+66

#-1161,RCV.D.LIST+146

”;51?02750+RCV.D.LIST+160
ouoo 16(RO)
REG, ADR

16(RC)
x
unh »o RCV.PACKET

PC cu< uxx.smus

SWP . BLO
. MEM,
CK
#1

3371

54
2367 TEMP4

3373
3371

1734, TEMP4

T?Pl. TEMP4

3377

1s(no)
écsp)

*, TMP.LOCATION
TMP.LOCATION, *

mssséé
SP.RO

3380

SP,x

#sssa (SP)

3382

#1,-(SP)

SP,»

CZANAEO DEQGNA FUNCTIONAL TEST
TEST 14 - DMA TIMING TEST

VAX-11 Bliss-16 V4, S

SEQ 176

DISK2:[SCODA.QNA.ZQNA]ZQNA3.BLI;2

14
35
2571
MSGOO
ERRGNREPMT

m(u)

3383

3379
3386

'T‘SFP?.RCV.D.LISTOKO

TEMP6,RCV.D.[IST+146

PC.CH( CSR.STATUS
TEMPS, XMIT.D.LIST+66

74:

8%:

si.fll

INDEX
INDEX, *

3388
3389
3390
3395
33%

XMIT.D.LIST(R1),TD13(R1)

94:

10¢:

3397

: *,TMP.LOCATION
i TMP.LOCATION, *
i

3401

; SP,*

3?0‘

1 3. 3

BAEERILR.3=82 SO=%2G

XMIT.D.LIST(R1),RO
77

.LIST(R1),(SP)

.LIST,-(SP)
SP)

e
L LR

104414
104455
002571
0000006
0000006
022626
012716 100220
011646
004737
013737 000000G 000066G
013737 000000G 0001466
013737 000000G 000160G
005002
010201
006301
026161 000000G 000000G
001454
016100 0000006
042700 037777
020027 140000
001445
013700
016066 000016 000006
016637
012716 000000G
012746 000001
010600
104414
012716 0000006
012746 000001
010600
104414
016116
010246
012746
012746
012746
010600
104414
104455
002572
000000G
000000G
062706 000014
005202
020227 000027
003712
005002
010201
006301
026161 000000G 000000G
001454
016100 000000G

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

R2
R2, %27
84
R2
fi.fll

3399
3395
3410
3411

?g\‘I.D.LIST(Rl) +RD13(R1)
RCV.D.LIST(R1),RO

3412

CZQANAEO DEQNA FUNCTIONAL TEST
TEST 14 - DMA TIMING TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

037777
140000

uscaog.10(sP)

THMP.LOCATION,
*

SP,RO
14

SP,*

#MSG59, (SP)

(SP)

o1,
(sfi

2?3§§§§§§§32§¢§§fi§§§§§§§&§32§§§§§

11%:

3417

SP.R
14

SP,*

onév o
|.Isr5-(SP)
sé
<

INDEX,
*

<(SP)

TRAP

%, TMP.LOCATION

10CSP).CSR. WORD

ncv D.LISTCR1),(SP)

013701
006301
016160
013701
006301
016160
005202
020227
003744
012737
012716
012746
004737
012716
012746
004737
005001

o9 (32)

#-40000

REG.ADR,RO

0000006
000001

000065

Pogs

037777 RO

0000006
000016 000010
000010 000000G
000000G
000001

000014

VAX-11 Bliss-16 V4,0-579

DISK2:([SCODA.QNA.ZGNATZGNA3.BLI;2

14
55
2573

3418

3419

MSGOO

ERROR$REPORT
3%4.SP

105

INDEX,*

036,f

INDEX,
*

aa.é%‘".

RO
TEHPI«R1

2414
3410

3424

INDEX,
*
INDEX,
*

XMIT.D. LIST(RI) XMIT.D.LIST(RO)
TEMP2,R1
R1
RgV.D.LIST(R1),RCV.D.LIST(RO)

#2752, RBUF
. LENGTH

3430
3431

#-40000, (SP)
#400,<-($P )

PC,C

xnn.suws

o-loooo.(

gg.cm.acv.smus

3432

INDEX

3434

CZQNAED DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 14 - DMA TIMING TEST

020127
003721
062706
104467
006000
103002
000137
062706
000207

; Routine Size:

{H}T.BUFFER(R1),RCV.BUFFER(R1)

000000G
000016 000016
000016 000000G
000000G
000001

%€ (32)

+ *(INDEX),*(INDEX)

3435

: *,TMP,LOCATION

3438

3439

H TM. LOCATIW %

H SP-‘
000000G

000000G

002751

i SP.‘

XMIT.BUFFER(R1),(SP)

; *(INDEX),#

RCV.BUFFER(R1),(SP)

; *(INDEX),*

; SP,*

#MSG50, -(SP)

144%:

000010

012566’
000010

*“G

(s
01 é

000001

000000C
012746 000000G
012746 000004
010600
104427
104455
002574
000000G
0000006
062706 000014

005201

13$:

a -

005046
116116
005046
116116

000000G 000000G

15¢:

339 words,
Routine B.
Maximum stack depth per mvocatuon

B383EEREs

126161
001447
013700
016066
016637
012716
012746
010600
104414
012716
012746
010600
104414
010116

SEW 178
VAX-11 g%in-m V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZQGNA3.BLI;2

\3$CODE$ + 12516

; INDEX,*

;

; INDEX

; INDEX,*

3437
3434
3349
3443

K14
ZQANA3

CZQGNAEO DEGNA FUNCTIONAL TEST

v01.0

000000

004737

000004
000006
000010
000012

104466
006000
103773
000207

000000

i Routine Size:

3447
1

27-Mar-1986 07:33:50

.SBTTL

012516’

6 words,

PC,$T14

Routine Base:

rds

VAX-11 Bliss-16 V4.0-579

AB$CODE$ + 13764

SEQ 179

DISK2:[SCODA.QNA.ZQNA]ZGNA3.BLI;2

T14 TEST 14 - DMA TIMING TEST
66
RO
14
PC

i Maximum stack depth per invocation:

27-Mar-1986 07:36:09

TEST 14 - DMA TIMING TEST

CZANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 0 7:36:09

e o

s e s e e o et o

e e e et

TEST 15 - LONG PACKET TEST

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

DISK2: [SCODA.QNA.ZGNAJZGNA3.BLI;2

®SBTTL 'TEST 15 - LONG PACKET TEST'
Yoo

TEST 1S:

LONG PACKET TEST

DESCRIPTION:
This test verifies that DEGNA can detect .long packets
( 1600 bytes
or more with thc CRC ) when transmitted in internal/extended
loopback mode. If the
rator
ifies 1
on error, the

program re-executes the
op:odo thag dotoctcd

entered.

Hardware tested:

error until tC is

RCV Status - error summary (long packet-bit 14)

Processing:

BEGIN
reset device

:‘I.Ctt
ransm .:ngopbo{::‘:nek @ t (1

1 pocket length)

check ;or expected oopbock?n

000 0

o ee

IF error

rint error message if not inhibited

ENDEF

call compare

ets

transmit 1oom packet ( packet 1

IF Error Summary bit ( Receice Status

> legal max, )

1obit 14 ) = 1

AND ( receive packet length is truncated )

mg;int error message if not inhibited

180

Page

(35)

CZGNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

o-uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu

TEST 15 - LONG PACKET TEST

57-Mar-1986 07.33:30

SEQ 181

VAX-11 Bliss- 16 v4.0-579
DIsKs.[otonh. GNA . ZGNA JZQNA3.BLI
;2

Page

(36)

BGNTST;
Teo

!
!
!
¢

LOOPBACK 1534 BYTE PACKET AND THEN CHECK IF PROPERLY RECEIVED.
THIS IS THE LONGEST PACKET LENGTH WHICH DOESN'T SET ‘LONGP’' BIT IN
THE RECEIVE STATUS WORD 1 ( BIT 14 ).

RBUF _LENGTH = 1534;
XBUF _LENGTH = - ( .RBUF_LENGTH t -1 );

BGNSUB

RESET_DEQNA ( );

SET_RDESCR_LIST ( .XBUF_LENGTH, VE );

SET :%_eg_%xat ( (%-'59‘“" VE );

CROE PROETe L 5,

)

ENDSUB;
ENDTST;

002776 0000006

002776

000000G
0000006
0000006
120000

0000006
120000
0000006

$T1S:

.SBTTL

MOV

TEST 15 - LONG PACKET TEST

;

3491
3492

MOV
TRAP
JSR
MOV
MOV

RO, XBUF . LENGTH
s
.DEQNA
XBUF.
LENGTH, -(SP)
#l-csé) G

;
;

3495
3496

MOV
JSR
CLR

#-60000, -(SP)
PC,SET. XDESCR.LIST
1))

;

3497

;

3498

MOV

14:

$T15

n%szg\r.uacm

UF .LENGTH, ($P)

N14
ZANA3

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

000062
000066
000072
000076
000100
000102
| 000104
000112
000116
000120
000122
000126
000130
000134

j 000140
000144

000150

000154

000160
fi 000164
000170
000174
000200
000204
000206
000210
L 000212

27-Mar-1986 07:36: 09

TEST 15 - LONG PACKET TEST

004737
004737
062706
104467
006000
103747
012737
012700
006200
005400
010037
104402
004737
013746

0000006
000000G

004737

000000G

012746

0000006
000000G
000006

003000
003000

000000G

2%:

120000

013716

000000G

004737
012716
004737
004737
062706
104467
0060L0
103746
000207

000000G
000001
000000G
000000G
000006

012746

000000G

27-Mar-1986 07:33: S0

JSR
JSR
ADD
TRAP
ROR
BLO
MOV
MOV
ASR
NEG
MOV
TRAP
JSR
MOV

PC,RESET .DEQNA
XBUF .LENGTH, -(SP)

JSR

PC,SET.RDESCR,LIST

MOV

120000

PC,SEND.ELOOP .PACKET
PC,COMPARE .PACKETS
#6,5P
67
RO
14
#3000,RBUF .LENGTH
#3000,R0
RO
RO
RO, XBUF .LENGTH
2

#-60000 "?&}

MOV

XBUF .LENGTH, (SP)

JSR
MOV
JSR
JSR
ADD
TRAP
ROR
BLO
RTS

PC,SET.XDESCR.LIST
#1,(SP)
PC,SEND.ELOOP . PACKET
PC,COMPARE .PACKETS
#6,SP
67
RO
24
PC

MOV

#-60000,
- (SP)

182
VAX-11 Bliss-16 v4.0-579
DISK2:[SCODA.QNA
. ZQNA JZQNAZ.BLI
;2

Page

95
(36)
3499

3499

2507

3511
3512
3513

3514

3515
3515

i Routine Size:
70 words,
Routine Base:
AB$CODE$ + 14000
i Maximum stack depth per invocation:
4 words

000000

004737

000004
000006
000010
000012

104466
006000
103773
000207

000000
I

014000'

T1S::

1¢:

.SBTTL

JSR

TRAP
ROR
BLO
RTS

T15 TEST 15 - LONG PACKET TEST

PC,$T1S

66
RO
14
PC

i Routine Size: 6 words,
Routine Base: ABS$CODE$ + 14214
: Maximum stack depth per invocation: 2 words

:
;.

B9
3520

12
1

3516

CZQNAEOQ DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

b—b‘hfihflhflflh‘h‘Hflflfi‘h'hfihflflt‘hihthuflbflh‘hfl-h‘hflhflflr-b‘h‘hflflr‘b'hfl—h.hflnb-hn—ho

TEST 16 - 0DD PACKET TEST

SEQ 183
VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZQGNA3.BLI
;2

%SBTTL ‘TEST 16 - ODD PACKET TEST'
foe

TEST 16:

DESCRIPTION:

00D PACKET TEST

This test verifies that DEGNA can transmit and receive odd 1

!
!
!
5

packets and packets starting and/or ending on odd addresses.
Chained
and unchained descriptor lists are used to verify this., If the operator
:R:cifuu loop on error, the program re-executes the code that detected
error until tC is entered.

Hardware tested:

!
!
!

CSR register - XMIT List Invalid (bit 4;

RCV List Invalid (bit 5
Transmit Descriptor bits
T buffer ends on odd

;

- XMIT buffer ends on even

Set of addresses and packet lengths:

PACKET ADDRESS

PACKET LENGTH

mmm
mmm
emm
|
mec
emdede
ece

eccees
ee

odd begin

odd min and end

odd

]

Processing

BEGIN

:
!
!
:
:
!
g

reset device
REPEAT for internal and internal/extended loopback mode
REPEAT for each packet address and length from set
check for expected loopback status
IF error
THEN
E"illl”"nt error nu:gc if not inhibited

!
'
!

Voo

odd

even

call

END

compare_packets

ENDREPEAT
ENDREPEAT

byte

Page

%
(37)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

o«oouuumuumuummuuwumuuumuuuuuuuuuuuuuuuuuuuuuu NN

SeneunEoetasetatEds

NN W

TEST 16 - ODD PACKET TEST

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.,0-579

DISK2:[SCODA.QNA. ZGNAIZGNAZ.BLI
;2

BGNTST;
Yoo

RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM

RESET_DEQNA
(

)

PREP_FOR SETUP ¢ );

INCRTMINDEX1FROM1 TO 14 DO
WRT_STATION_ ADR (

.INDEX1, PHA_INDEX );

BGNSUB;
Xlsl‘Ig_SETlP_PACKET ( P_MODE );

RBUF _LENGTH = 6;

XB!.FLEPBTH*-( .RBUF_LENGTH t -1 );
Tae

!
!

LOOPBACK A PACKET, THLN CHECK IF LOOPBACK PACKET WAS PROPERLY
RECEIVED

CLR_BUFFERS ( 32 );
CLR_DESCR (_);

INCR_INDEX FROM 0 TO 5 DO
XMIT_BUFFER [

.INDEX ] =

.INDEX;

XMIT D LIST [

W_LEN
w1016 [ .INDEX
SET ROESCR.LIST {.INDEX.
XiF LERENH
:
-

PUTBIT[ CSR, LB, INTcwpencx

XMIT_AND_RCV_PAC(
KET
);

CHK_RIXI_STA
( ONE
TUS
);

.TOP_TABLE

[ CSR ] = ONE;
cmnmsnmsc
zsnon
.IOP_TABLE

[ CSR
] = ZERO;

CHK_CSR_STATUS

( CSR_STATUS, CSR_MASK );

! 0'100220', 0'100220'

fae

CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED

INCR INDEX FROM O TO 17 DO
xrmnousr[.

W_L
]EN
NEQU .T[D1
.INDEX
6
)
TXMIT D_LIST
imtx
[
W_LEN ] AND
%0'140000'
) NEQU %0’ 140000

BEGIN
CSR_WORD
= GET _BIT ( CSR_ALL );

PRINTB (

9 );

SEQ 184

.’(38)

CZANAEOQ DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

PRINTB ( MSG49 );

PRINTB (

msg76,

XMIT_D_LIST,

VAX-11 Bliss-16 v4.0-579

.INDEX,

END;

INCR_IND
FROM 0 TOEX
S DO
XMIT_D_LIST [

.INDEX, W_LEN ] =

.XMIT_D_LIST [

.INDEX + 18,

W_LEN J;

CHK_XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS );

! C'140000', 0'000400'

INCR INDEX FROM O TO S DO
IFT.XHIT_BlfFER [ .INDEX ] NEQU .RCV_BUFFER [

.INDEX )

CHK_RCV_STATUS

ENDSUB;

( RFLG_STATUS, RWD13_STATUS );

! 0'140000' » 0000000’

PRINTB ( MSGSO, .RCV_BUFFER [ .INDEX ],
Ewsmor ( 1603, MSGOO; ERROR$REPORT );

.XMIT_BUFFER [

.INDEX ]o

RESET_DEGNA ( );
CLR_BUFFERS ( 32 );

_LENGTH =

XBUF _LENGTH = - ( .RBUF_LENGTH t -1 );
INCRTMINDEX FROM O T0 19 DO
XMIT_BUFFER [
.INDEX ] = .INDEX;

BGNSUB;
INCR INDEX FROM O TO 43 DO
XMIT_D_LIST [
(

.INDEX, W_LEN ] = .TD16 [

-D_LIST E 19,
XMITD_LIST [ 25

.INDEX J;

W_LEN } = V;
= C;

SET_RDESCR LIST ( .XBUF_LENGTH, VE );

%TBH [ €SR,

LB, INX_COOPBACK 1;

AND_RCV_PACKET ( )

CHK_RIXI-STATUS ( ZERO J;
CHK_CSR_STATUS

( CSR_STATUS, CSR_MASK );

! 0100220’ , 0100220

XMIT_D_LIST { 19, W_LEN ] = VE;
XMIT_D_LIST [ 25, W_LEN ] = E;
Tee

!. CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED
INCR INDEX FROM O TO 35 DO

SEQ 185

DISK2: [SCODA.QNA.ZQNA JZQNA3.BLI ;2

ERRDF ( 1602, MSGOO, ERRORSREPORT 3 .XMIT_D_LIST [ .INDEX, W_LEN ] );

UIMUIUIMMUIU'U'UIMMUIMMMMMMMMMWM“WN“WNNMOOOOOOUIU'UIMUIU‘UIUIUIUIUIUIOOO

TEST 16 - 0DD PACKET TEST

. INDEX )3

m(?:&)

CZANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

O-'“MUIOOOOOOUDUIUIUIUUOOOOOOUIUDMMUDOOOOOO‘U!UIU!U'UIMUIMUIUIU!UIO\OO‘O‘OOUIUIM

TEST 16 - ODD PACKET TEST

IF . XMIT_D_LIST [

27-Mar-1986 07:33:50

.INDEX, W_LEN ] NEQU .TD16 [

VAX-11 Bliss-16 V4.0-579

DISK2: [SCODA.QNA.ZGNAJZQGNA3.BLI;2

.INDEX )

A“T)PE(NCXAIT_D_LIST[ .INDEX, W_LEN ] AND %0'140000" ) NEQU %0’ 140000’
BEGIN

CSR_WORD = GET
gIT ( CSR_ALL );
PRINTB
(

PRINTB ( nss49 )
PRINTB (

msg76, XMIT D LIST.

.INDEX

emm ( 1604, "MSG0O, ERRORIREPORT3XMIT_D_LIST [ .INDEX, W_LEN ] );
H

INCR_I
FROMNDE
0 TO S X
DO
XMIT_D_LIST
[ .INDEX, W_LE
]N
= .XMIT_D_LIST
[ .INDEX
« 36, W_LEJ
N
;

CHK_XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS );

CHK_RCV_STATUS

( RFLG_STATUS, RWD1_STATUS );

INCR INDEX FROM O TO S DO
IFTféNHIT'”FER [ .INDEX ] NEQU .RCV_BUFFER [

! 0'140000', 0000400

| 0'140000*, 0’ 020000

.INDEX )

BEGIN
CSR_WORD = GET_BIT ( CSR_ALL );

PRINTB ( MSG59 );

PRINTB ( MSG51 );
PRINTB ( MSGSO, .RCV_BUFFER [

E'ERRDF

.INDEX ],

( 1605, MSGOO, ERRORSREPORT );

.XMIT_BUFFER [

.INDEX ],

.INDEX );

INCR INDEX FROM 6 TO 9 DO
IF"%R%V_BLFFER [ .INDEX ] NEQU ZERO
BEGIN

GET gIT ( CSR_ALL );

PRINTB ( MSG50, .RCV_BUFFER
ERRDF ( 1606, MSGOO, ERROR$

INDEX
], ZERO,
T X

INCR INDEX FROM O TO 5 DO
IFT.RCV_BU"FER [ .INDEX + 10 ] NEQU .TARGET_ADR [

.INDEX );

.INDEX « 114 )

BEGIN
GET _BIT ( CSR_ALL )
SRINTG. Moce
s 5]
;
PRINTB ( HSGS]. );
PRINTB ( HSGSO.

.RCV_BUFFER

I'DEX ],

ERRDF ( 1607, MSGOO, ERRORS$REPORT
)

ENDSUB;
ENDTST;

END;

.XMIT_BUFFER [

SEQ 186

.INDEX ],

.INDEX );

*(38)

15
ZANA3
v01.0

CZANAEQ DEQNA FUNCTIONAL TEST
TEST 16 - 0ODD PACKET TEST

012746

004737

020127
003766

000001

000023
0000006

100

% 38)

014,5pP

3518

Pg Polaep.FOR.SETUP

3571
3572

-(SP)

*, INDEX1

INDEX1,*

3574

INDEX1
INDEX1,*

3573

PC,WRT,STATION.ADR

R1
R1,#16
14
2

3574

3577

PC,XMIT.SETUP.PACKET

(SP)+

104467
006000
103767

3574
3577

012700
010037

.BUFFER(RO)

3¢:

4%:

000000G 000000G
000002

Page

$T16 TEST 16 - ODD PACKET TEST

R1, $SAVE2

14:

24:

0000006

SEQ 187

DISK2:[SCODA.QNA.ZQNA]ZQNA3.BLI ;2

PC, RESET DEQNA

000016

012746
004737

VAX-11 Bliss-16 V4,0-579

S§:

3581

004737
012701
010146

SBTTL

va3ML333333 33 33303

004737

000014

$T16:

TD16(RO), XMIT.D.LIST(RO)

3588

INDEX
INDEX, *(INDEX)

INDEX
INDEX,
*

INDEX

*(INDEX), *(INDEX)
*, INDEX

INDEX,
*

3589

3591
3590
3591

3595
3594

359

#1400, 16(RO)
PC.%; AND.RCV .PACKET
=

004137
162706

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

PC., CHK. RIXI . STATUS
&amp.ma.me

)

PC,CHK.RIXI.STATUS
aI0P.TABLE+16

3597

CZQANAEO DEQNA FUNCTIONAL TEST
TEST 16 - ODD PACKET TEST
100220

#-77560, (SP)

000000G

Sg.CHK.CSR.STATUS
6%:

gg.az
X?IT.D.LIST(R1),TD16(R1)

000000G
037777
140000

XMIT.D.LISTCR1),RO
#37777.R0
R(’)0-40000

000000G
000016 000006
000006 000000G
000000G
000001

REG. ADR, RO

16(R0) 6(SP)
6(SP), CSR, WORD
msssé (SP)
81, (sfi)

0000006
000001

»H

—

104414
016116

I.).IST(RI).(SP)

TILE

003102
000000G

000021

7%:

8%:

§§§§§§§32§§§E§§§3?§§§§

104414

000516

:gg 3§§§§8
”@
:

.D.LIST,-(SP)
(SP)

SEQ 188

DISK2: [SCODA.QNA.ZGNAJZQNA3.BLI;2

101

%38)
3605

s INDEX

; INDEX,*

000000G 000000G

000014

VAX-11 Bliss-16 V4.0-579

(SP),-(5P)

012716
011646
004737

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

3611
3612

3613

;

» TMP .LOCATION

: TMP.LOCATION, *
;

3616
3617

i SP,*
H

3618

ISP.‘

: INDEX,

#14,5P

3619

3615
3611

H m.‘

’XISIIT.D.LISTOM(RO).XHIT.D.LIST(RI) ;

#-40000,(SP)

(ifiét
’

iooo
8- é (SP) STATUS
-(SP)

PC, CHK.RCV. STATUS

; INDEX

8m.‘

3627

CZANAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 16 - ODD PACKET TEST

000000G
000016 000014
000014 0000006
0000006
000001

REG.ADR, RO

16(R0), 14(SP)

14(SP),CSR,
WORD

#MSG59, (SP)

. - 56)
4

[

012716

R1
}g}T.BUFFER(RI).RCV.BUFFER(RI)

9¢:

0000006
000001

DISK2: (SCODA.QNA.ZANATZQNA3.BL
;2
I

3634

;

*,TMP.LOCATION

: TMP.LOCATION,
*
H

3635

Sspo‘
3636

'SPU‘

-(5P)

; INDEX,*

-(SP)

(38)

3630
3631

SP,RO

XMIT.BUFFERCR1),(SP)

Page 102

; INDEX
; *(INDEX),*(INDEX)

#MSG51,(SP)

é: (SP)

SEQ 189

3637

i *(INDEX),#*

SSPO‘

000014
000005

10¢:

000010

014376’
000000G
000040
0000006
000020 000000G
000020

114:

0000006

000000G

12¢:

000023

13%:

Wé 0000006

3638

; INDEX

: INDEX,
*

3633
3630

3591
3639

016637
012716

000000G 0000006

3823RYxE SAZ335303E3 3 R948gsE

005001
126161
001447
013700

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4,0-579

144

3643

3645

3647

TD16(RO),XMIT.D.LIST(RO)
#2,R0

+ INDEX

; *(INDEX),*(INDEX)
i *,INDEX

3647
3651
3650

CZQANAEO DEQNA FUNCTIONAL TEST
TEST 16 - ODD PACKET TEST

020027
003770
012737
012737
013716
012746
004737
013700
042760
004737
005016
004737
012716
011646

012737
012737
005002
010201

026161
001454
016100
042700

001445

013700

016637
012716
012746
010600
104414
012716
012746
010600
104414
016116

000126

100000 0000466
040C00 0000626
0000006
120000
0000006
000000G
001400 000016
001000 000016
000000G

VAX-11 Bliss-16 V4,0-579

SEQ 190

DISK2: [SCODA.QNA.ZQNA)Z
ONAB BLI;2

tlag‘uzs

; INDEX,*

#-100000, XMIT.D.L1S| +46

#40000, XMIT.D.LIST+62
XBUF ,LENGTH., SSP)
#-60000,- (SP

age 103

(38)

3653
3656

PC,SET, kosscn LIST
REG.ADR,R

3657

#1400,1s§Ro
#1000, 16(RO

S¢ fismir AND.RCV.PACKET

000000G
100220

3658
3659

PC,CHK.RIXI.STATUS
8-77560, (SP)

lgcspér'é(tézpsg
STATUS
#-60000, XMIT.D.LIST+46

0000006
120000 000046G
020000 0000626

3663

3§oooo.m7.0.LIST+62
15¢:

INDEX
INDEX,
*

SE.RI

000000G 000000G

}H{T.D.LIST(RI).T016(R1)

000000G
037777
140000

XMIT.D.LIST(R1),RO
777

0000006
000016 000012
000012 000000G
000000G
000001

3670
3671

3672

i «,TMP.LOCATION

3675

3676

: THP.LOCATION,
&

; SP.*
0000006
000001

3677

; SP.»
D.LIST(R1),(SP)
R2, -(SP)

012746
012746
012746

#XMIT.D.LIST,-(SP)
#M5G76, - (SP)

: INDEX,*

SP,RO
14

104414
104455
003104

000000G
0000006
062706 000014

003712

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

000043

164:

3104
MSGOO
ERROR$REPORT
g%4.SP
R2,#43

158

3678

3679

; INDEX

+ INDEX,
%

3674
3670

CZQNAEQO DEQNA FUNCTIONAL TEST

27-Mar-1986
27-Mar-1986

TEST 16 - ODD PACKET TEST

; INDEX
i INDEX,*

17%:
RS

000110G 0000006

SEQ 191

VAX-11 Bliss-16 Vv4.0- 579
DISK2: [SCODA.GQNA . ZGNA 1ZGNA3.BLI;2

Page 104

(38)
3682
3683

INDEX, *

XMIT.D.LIST+110CRO),XMIT.D.LIST(RL)

INDEX

INDEX, *

0-40000 (SP)

MOO. (SP)

C,CHK, XMIT,STATUS
0000, (SP)

20000, -(SP)

:E.CH(.RCV.STATUS
000000G 000000G

000016
000000G
000001

18¢:

f’g‘%T .BUFFER(R1),RCV.BUFFER(R1)

i INDEX
*(INDEX), #(INDEX)

REG.ADR,RO
16(R0).20(SP)

000020
0000006

(SP)

*,TMP.LOCATION

.WORD

3689
3690
3693

THMP.LOCATION, *

3694

SP,RO

01
-(Sl5(SP)

000001

SP,*
3695
o

y.‘

su csp)

INDEX,
*

xr(gsmrren(au.(sp)

*(INDEX),*

RCV.BUFFER(R1)
(SP)
,

*(INDEX),
*

-(5P)

#MSGS0, -(SP)

3696

SP.‘

3697

000000G

19¢:

INDEX
INDEX,
*

20%:

i +{INDEX)

*, INDEX

16(RO),
ézcsp)
2(SP).CSR,

#MSGS9. (SP)

*, TMP.LOCATION

TMP.LOCATION, *

3692

3700
3701

3704
3705

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 16 - ODD PACKET TEST

012746
010600
104414
012716
012746

VAX-11 Bliss-16 V4.0-579

010116
005046

SP,RO
14
#MSG51,(SP)

i SP,*

SP
14
Rl

i SP,»
s INDEX,*

RCV BUFFER(RI) (SP)

i *(INDEX),*

SP.

i SPU‘

s»%" )

000012G 0001626

22%:

000000G
000016 000024
000024 000000G
0000006
000001
0000006
000001

23%:

000011

21$:

X
o o

000014

5555 §§§§B§§§§§§§§§§§§§§§ §§§3?§§'§§§§

-csé)

14
55
3106
MSG0O
ERROR$REPORT

105

% 383

3706

3707

3708

#14,5P

R1
R1,#11

INDEX
INDEX,
*

INDEX

204

RCV.BUFFERolz(Rl).TARGET.ADR0162(R1) ;
234

;

DISK2: [SCODA.GNA. ZANAIZQNA3.BLI
;2

000001
000000G
000001

SEQ

3703
3700

311

; *(INDEX),*(INDEX)

3Nz

: &, TMP.LOCATION

3715

3716

: THP.LOCATION,
%

: SP,»
3Nz

i SP,*
; INDEX,*

3718

i+ *(INDEX),*
+

*(INDEX),*

; SP,»
3719

3714
3711

ZANA3

CZQNAEO DEQNA FUNCTIONAL TEST

v01.0

001774

002000

002002
002006
002010
002012
| 002014
002020
002024

TEST 16 - ODD PACKET TEST

020127

000005

062706
104467
006000
103002
000137
062706
000207

000010

003721

i Routine Size:

S i e 5
e 0 ST S DAL

CMP

BLE

015204’
000016

523 words,

27-Mar-1986 07:33:50

ADD
TRAP
ROR
BHIS
JMP
ADD
RTS

244

Routine Base:

i Maximum stack depth per invocation:

22 words

000000

004737

Ti16::

000004
000006
000010
000012

104466
006000
103773
000207

000000

27-Mar-1986 07:36:09

i Routine Size:

014230'

6 words,

1$:

Routine Base:

; Maximum stack depth per invocation:

3724
1

2 words

VAX-11 Bliss-16 V4,0-579

SEQ 193

DISK2:[SCODA.QNA.ZQNA]ZQNA3Z.BLI ;2

Page 106
(38)

R1,#5

+ INDEX,*

#10,5P
67
RO
244
134
#16,SP
PC

$
H

3647
3720

;

3518

;

3721

224

ABS$CODE$ + 14230

.SBTTL

JSR

TRAP
ROR
BLO
RTS

T16 TEST 16 - ODD PACKET TEST

PC,$T16

66
RO
14
PC

ABS$CODE$ + 16256

M15
ZQGNA3
v01.0
:
:
3
3
:
:

CZGNAEO DEQNA FUNCTIONAL TEST
TEST 17 - STATION ADDRESS TEST

3725
3726
3727
3728
3729
3;332

1
1
1
1
1
i
1

This test verifies that DEQNA accepts only packets with legitimate
illegitimate ‘multicast’ and 'non-multicast’ addresses.

Station Address RAM is loaded with a set of Target Addresses and

'multicast’

and 'non-multicast’'

addresses and discards those with

3734

37% 1

3739 1

the
program re-executes the e&' that detectedAR
th:o:rror until 1C is

:
:
:

33;3 %
33;:; i
346 1

:
:

Hardware tested:
Address Filter Circuitry
Set of ‘multicast’ addresses in HEXADECIMAL:
01-00-00-00-00-00

3748

H
s
;s
s
;
:

:
:
;.
s
;

;

i
;

L O

3747

3749
37150
3R
32
37153
3754

1
1
1}
1
1
1

3% 1

37158
37159
3760
R
3762

3763

3764

1
1
1
I
1

37 1

3768

!
!
!
!
!
!

!
!
!
!
!

'
:

o
3718

error

FF-FF -FF -FF-FF -FF
Walking 1
Processing:
BEGIN

Rt it Sussheii e

select

set mode to Setup

load Station Address RAM with 'multicast’ addresses
AT for each
emented and uncomplemented 'multicast’
address in
set
load address
disable receiver
transmit 1

THEN

1--

ifies

AB-AA-AA-AA-AA-AA

rator

55-55-55-55-55-55

enable receiver

)

ets.

pecket

int error message if not inhibited

- Jam—g———

SEQ 194

VAX-11 Bliss-16 v4.0- S
DISK2:[SCODA.QNA . ZQNA ] ZGNA3.BLI;2

#SBTTL 'TEST 17 - STATION ADDRESS TEST'
feo
!
!
TEST 17:
STATION ADDRESS TEST
!
: DESCRIPTION:

3732 1

3733

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

107

%(39)

CZANAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

VNS BBl UUWWANORANUIIADLANO D aAuuuuuuuuuuuuuuuuuuuuuuuu

TEST 17 - STATION ADDRESS TEST

SEQ 195
VAX-11 Bliss 16 v4 ,0- S 79
DISK2:([SCODA.QNA.Z QNA ] ZQNA3 .BLI;2

BGNTST;
oo

RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM TO ALL MULTICAST

RESET.DEQNA C );

TNCRINDEX: FRON 2°T0 19 DO
MRT_STATION_ADR (

.INDEX1 - 5,

.INDEX1 );

BGNSUB;
XMIT_SETUP_PACKET ( N_MODE );
ENDSUB;
Yae

NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY

RBUF _LENGTH = 6;
XBUF_LENGTH = - (

.RBUF_LENGTH t -1 );

INCR INDEX1 FROM 6 TO 19 DO
WRT_STATION_ADR ( ZERO,

.INDEX1 );

BGNSUB;

XMIT_ILOOP_PACKET ( ZERO );
ENDSUB;

INCR INDEX2 FROM 0 TO 5 DO
BEGIN
XMIT BUFFER [ .INDEX2 ] = ( -.XMIT_BUFFER
[ .INDEX
] ) -2
1;

EM';ARGET_ADR [ .INDEX2 ] = .XMIT_BUFFER [ .INDEX2 1;
H

BGNSUB;

XMIT_ILOOP_PACKET ( ONE );
SUB
;

TEMPS
= 14

INCR INDEXS FROM O TO 3 DO
BEGIN
IF .INDEQLU
EX3
3

RESET DEQNA ¢ )

PREP_FOR SETUP ( )

Wmfm .TENP4 DO
WALKING_
( BIT
ZERO,

.INDEX4 + (

.INDEX3 # 14 ) - 1, S );

Page
108
(40)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

fluuuquMflflUlUlUlUlOQOUININJUIUIUIUIOOO&QOOO‘&&UI

TEST 17 - STATION ADDRESS TEST
WRT_STATION_ADR (

27-Mar-1986 07:33:50

.INDEX4,

VAX-11 Bliss-16 V4.0-579

SEQ 196

DISK2:([SCODA.GQNA.ZGNAJZGNA3.BLI;2

Page 109
(40)

ZERO );

BGNSUB;

XMIT_SETUP_PACKET ( N_MODE );

SUB;

RBUF_LENGTH = 6;
XBUF _LENGTH = - (

.RBUF_LENGTH + -1 );

mmmen FROM 1 TO .TEMP4 DO

WALKING BIT (

IM)EXAo(IN)E)GtN)-l 5 );
WRTsuTmNADRien
XHIT-ILOOP_PACKET ( ZERO );
END;

SUB;

{

INCR INDEX2 FROM 0 TO 5 DO

EEmrsxrrs
IND
n[EX2
] = ( -.XMIT _BUFFER [ .INDEX
] ) -2
1;
TARGET_ADR[ .INDEX2
) = xnnaw'mt .INDE
X2
J;
BGNSUB;

XMIT_ILOOP_PACKET ( ONE );
SUB
;

END;

INCR INDEX2 FROM 0 TO S DO
TARGET_ADR [ .INDEX2 ] = ZERO;
ENDTST;

0000006

$T17:

000000G

000006

000005

1$:

000200

;

PC,PREP.FOR.SETUP

;

3723

;

: =, INDEX1
; INDEXI,*

3782

3783
3784

PC,RESET.DEQNA

MOV
MOV
SUB
MOV
JSR

#6,R1
R1,-(SP)
#5,(5P)
R1,-(SP)
PC,WRT,STATION.ADR

INC
CMP
BLE

1
R1,923
13

CMP

000023

$T17 TEST 17 - STATION ADDRESS TEST

R1, $SAVE4

JSR
JSR

0000006

000000G

.SBTTL

JSR

N
JSR

de, (SP)o

b
ol

PC,XMIT.SETUP.PACKET

; INDEX1,#

3781

: INDEX1
: INDEX1,*

3783

$781

CZQNAEQ DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 17 - STATION ADDRESS TEST

000006
000006

SEQ 197
VAX-11 Bliss-16 V4.0-579
DISK2:(SCODA.QNA.ZGNATZGNAZ.BLI;2

g
5

#6,R0

;

3795

RO, XBUF .LENGTH
#6,R2

; *,INDEX1

R2,-(SP)

;

3797

; INDEX1,#

(SP)

;

3802

#6 ,RBUF . LENGTH

000000G

Page 119
(40)

;

3794

3¢:
4%:

-(8P)

;c.m.smmu.non
PC,XMIT.ILOOP.PACKET

3799

0000006

5¢:

177777

; INDEX2

#XMIT.BUFFER,R1

3805

;

RO,R1

3807

; INDEX2,#

#-1,R3
R4

(R1),R4

R4,R3

R3,(R1)

R3, TARGET . ADRCRO)

; *,*(INDEX2)

R?.'S
6$:

3808

; INDEX2
M m.‘

3805

3809

| NDEX1

3798
3797

gg:,.mn.noopmm

?gn (SP)

g%'.oas

; INDEX1,#

#16,TEMP4

7%:

8%:

3816

: INDEX3
;

3819

26, TEMP4
PC,RESET.DEQNA
PC,PREP.FOR. SETUP

;
;
;

3821
3822
3823

'?..3

TEMP4 ,R2

;

B16 A1

R3
104

3817

3824

—

o3824
e

; INDEX4

oot

CZQANAEO DEGNA FUNCTIONAL TEST

27-Mar-1986 07:36::09
27-Mar-1986 07:33 :50

TEST 17 - STATION ADDRESS TEST

-(SP)

;

RO;

R1,RO
L)

9s:

010100

VAX-11 Bliss-16 V4.0-579 g

DISK2: [SCODA.QNA.ZGNAJZGNA3.BLI;2

111

% 40)
3826

i INDEX4,#

- uzv' 0T
fi:

SP )
#3,
L, ALK ING.BIT
3,§P)

Page

i INDEX4,#

104:

11¢:

C,WRT.STATIOADR
N.

0,5P

R3,R2

; INDEX4

; INDEX4,*

3824

2
3831

PC,XMIT.SETUP.PACKET

(SP)+

67
RO
114
#6,RBUF
. LENGTH
RO

3831
3834
3835

; INDEX4
12%:

3837
3839

13%:

23"

; INDEX4,=*

000010

14%:

15¢:
17

#XMIT.BUFFER,RO
R1,RO
#-1,R2

+ INDEX4

3837

+ INDEX2

3847
3849

! INDEX2,*

ZGNA3

CZQNAEO DEGNA FUNCTIONAL TEST

v01.0

000530

000532

000534

000536
000540
000544

000546
000552
000556

000560

TEST 17 - STATION ADDRESS TEST

000614
000616
000622
000624

27-Mar-1986 07:33:50

005003

CLR

160302

SUB

R3,R2

151003

110210
110261
104402

012746
004737
005726

BISB

000000G

168:

000001
000000G

104467

000562 006000
000564 103767
000566 005201
000570 020127
000574 003750
000576 005204
000600 020427
000604 003623
000606 005000

000610

27-Mar-1986 07:36:09

105060

005200
020027
003772
000207

MOVB
MOVB
TRAP

MOV
JSR
ST

TRAP

000005

000003
000000G

17¢:

000005

SEQ 199

DISK2:[SCODA.QGNA.ZOGNAJZGNA3.BLI;2

Page 112
(40)

(RO),R3

R2.(RO)
R2,TARGET.ADR(R1)
2

#1,-(SP)
PC,XMIT.ILOOP.PACKET
(SP)+

ROR
BLO
INC
CMP
BLE
INC
CMP
BLE
CLR

RO
16
R1
R1,#5
154
R4
R4, 43
74
RO

INC
cMP
BLE
RTS

RO
RO, 45
174
PC

CLRB

VAX 11 Bliss-16 V4.0-579

TARGET.ADRCRO)

i #,%CINDEX2)

3850

;

3853

;

3850

; INDEX2
; INDEX2,*

3847

; INDEX3
; INDEX3,
*

3817

; INDEX2

3858

; INDEX2
; INDEX2,*

3858

;

; *CINDEX2)

;

3853

3859

3723

000000

004737

000004

104466

000000
000006
000010

000012

016272

T17::

1§:

006000
103773

000207

: Routine Size:

3862
1

T17 TEST 17 - STATION ADDRESS TEST

JSR

PC,$T17

ROR
BLO

RO
1%

TRAP

RTS

6 words,

Routine Base:

i Maximum stack depth per invocation:

.SBTTL

2 words

ABS$CODE$ + 17120

;

3859

J““’_

i Routine Size: 203 words,
Routine Base:
AB$CODE$ + 16272
i Maximum stack depth per invocation:
11 words

o-—o-o-o-o-o-r-o-o-b-b-o—o-o-o-o-.-no—-»y—-o—-o—-p»—o—-pnp»o—po—-pt—r—p»»t—wo-»-o-ao-o-o-

CZANAEOQ DEGNA FUNCTIONAL TEST
TEST 18 - ALL MULTICAST STATION ADDRESS TEST
%SBTTL
Yse

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 200
VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNA]ZQNA3.BLI ;2

'TEST 18 - ALL MULTICAST STATION ADDRESS TEST'

TEST 18:

ALL MULTICAST STATION ADDRESS TEST

DESCRIPTION:
This test vefifies that DEQNA rocoznizco 'all multicast’ addresses of
the node and discards loopback packets with non-enabled addresses.
If the operator specifies loop on error, the program re-executes the
code that detected the error until tC is entered.
Hardware tested:

All Multicast Addressing
I8051 Microprocessor
Address Filter Circuitry

Set of

addresses:

'all multicast'

DEQNA Physical Addr

AA-00-00-00-00-00
AA-00-02-AA-AA-AA
AA-00-05-55-55-55
AA-00-04-FF -FF-FF
AA-00-04-00-00-00
AA-00-04-18-81-18

FF-FF
-FF-FF
-FF -FF

55-55-55-55-55-55
AA-AA-AA-AA-AA-AA
01-00-00-00-00-00
AB-AA-AA-AA-AA-AA
FF-00-01-02-03-04
00-F4-FA-44-44-55

Processing:

BEGIN

tup

load Station Address RAM with ‘all multicast’ addresses
REPEAT for 'all multicast’ addresses in and out of set
load 'all multicast’ address of the packet
disable receiver
transmit loopback packet
enable receiver
check for expected loopback status

wav?

int error message if not inhibited

call compare_packets
EmEMJREPEAT

Page 113

(41)

~
.

CZANAEO DEQNA FUNCTIONAL TEST

o-uuuuubathoa&h&&wwu&b&oa«haAuuuuuuuuuumwuuuuuuuuuuuuu

TEST 18 - ALL MULTICAST STATION ADDRESS TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

SEQ 201
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNAJZQNA3.BLI ;2

BGNTST;
teo

RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTIN
G

TESTS IN EXTERNAL LOOPBACK MODE.

RESET_DEQNA (

);

PREP_FOR_SETUP ( );
INCRTMINDEX1 FROM 1 TO 13
WRT_STATION_ADR (

.INDEX1,

.INDEX1 );

WRT_STATION_ADR ( 14, PHA_INDEX );
BGNSUB;

XMIT_SETUP_PACKET ( A_MODE );

ENDSUB;
e

! ’W LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY
RBUF _LENGTH = 6;
XBUF _LENGTH = - (

.RBUF_LENGTH t -1 );

IM:RI'P‘DEXFR(H6TO 19 DO
WRT_STATION_ADR ( ZERO,

.INDEX );

BGNSUB;

XMIT_ILOOP_PACKET ( ZERO );
ENDSUB;

IP%ERG%"?EXZ FROM 0 TO S DO

XMIT BUFFER [ .INDEX2 ] = ( -.XMIT_BUFFER [

EMT)ARGET_AOR [ .INDEX2 ] = XMIT_BUFFER [ .INDEX2 1;
XMIT_BUFFER [_ZERO ] =

.XMIT BUFFER [ ZERO ] AND %0'177774';

TARGET_ADR [ ZERO ] = .XMIT_BUFFER [ ZERO 1;
BGNSUB;

XMIT_ILOOP_PACKET ( ONE );

ENDSUB;
END;

INCR INDEX2 FROM O TO 5 DO
TARGET_ADR [ .INDEX2 ] = ZERO;
ENDTST;

1)-1;

Page

114

m(42)

CZANAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

TEST 18 - ALL MULTICAST STATION ADDRESS TEST

0000006
000000G
0000006
000001

$T18:

14:

.SBTTL

SEQ 202
VAX-11 Bliss-16 V4,0-579
DISK2:[SCODA.QNA.ZQNA)ZQNA3.BL
;2
I

$T18 TEST 18 - ALL MULTICAST STATION ADDRESS TEST
R1, $SAVE4
i
PC,RESET.DEQNA
PC,PREP.FOR.SETUP
#1,R1

R1,-(SP)

0000006

F(’C WRT.STATION.ADR

000015

R1
R1,#15

‘.(59)0

: *, INDEX1

; INDEX1,*
; INDEX1,=*
; INDEX1

115

*(42)

3861
3917
3918
3919
3920

3919

000016

3921

#23,-(SP)

2%:

000201
0000006

SC +WRT.STATION.ADR
#201,(SP)

3924

29’ +XMIT.SETUP.PACKET

]

000000G

#6,RBUF .LENGTH

3931
3932

000000G

5%:

177777

4%:

3%:

32333 6'\) 3'\

g@%@
gu
@ 3

000006
000006

TATION.ADR

;

*,INDEX

; INDEX,*

3934
3936

3939

.ILOOP.PACKET

3942
3944

#XMIT.BUFF,R1
FP
RO,R1

R3,(R1)

sg.TARGET.ADR(RO)

;

*,%(INDEX2)

; INDEX2

+ INDEX2,*

1
012716
004737

000003 000000G
000000G 000000G
000001
0000006

6$:

3945
3942

#3,XMIT.BUFFER
éHIT.WFER. TARGET .ADR

3948
3949

#1,(SP)
PC,XMIT.ILOOP.PACKET

3952

116
ZANA3

CZQNAEO DEQGNA FUNCTIONAL TEST

v01.0

TEST 18 - ALL MULTICAST STATION ADDRESS TEST

000240
000242
000244
000246
000250
000252
000256
000260

104467
006000
103770
005726
005202
020227
003722
005000

000266
000270
000274
000276
000300

005200
020027
003772
022626
000207

TRAP
ROR
BLO

000023

+ 000262 105060 000000G
F

: Routine Size:

7%:

000005

97 words,

Routine Base:

; Maximum stack depth per invocation:

10 words

000000

004737

T18::

000004
000006
000010
000012

104466
006000
103773
000207

000000

017134’

1 i Routine Size: 6 words,

1$:

i
i

3961
3962

1
1

2 words

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.,0-579

SEQ 203

DISK2:[SCODA.GQNA.ZQNAJZGNA3.BLI;2

Page 116

(42)

67
RO
64

1ST
INC
CMP
BLE
CLR

(SP)+
R2
R2,#23
34
RO

;
i INDEX
: INDEX,*

3935
3934

: INDEX2

3957

INC
cMP
BLE
CMP
RTS

RO
RO, #5
74
(SP)+,(SP)+
PC

+ *(INDEX2)

i INDEX2
s INDEX2,*

3957

;

3861

CLRB

TARGET.ADR(RO)

3958

AB$CODE$ + 17134

.SBTTL

T18 TEST 18 - ALL MULTICAST STATION ADDRESS TEST

JSR

PC,$T18

TRAP
ROR
BLO
RTS

66
RO
14
PC

Routine Base: ABSCODE$S + 17436

i Maximum stack depth per invocation:

27-Mar-1986 07:36:09

3958

ZQANA3

CZQANAEQO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 19 - RUNT PACKET TEST

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4,0-579

DISK2:([SCODA.QNA.ZQNA)ZQGNA3.BLI;2

3963
3964
3965
396€
3967
;ggg

1
1
1
1
1
i

%SBTTL 'TEST 19 - RUNT PACKET TEST'
Tes
!
!
TEST 19:
RUNT PACKET TEST
!
:
DESCRIPTION:

3970
3971
33‘7123.’

1
1
%

!
!
:

This test verifies that the DEQNA can detect runt packets in FIFO,
If the operator specifies loop on error, the program re-executes
the
code that detected the error until tC is entered.

3974
3975
3976
3977
3978
3979

1
1
1
1
1
1

$
!
!
!
!
!

Hardware tested:

3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993

1
1
1
1
1
1
1
1
1
1
1
1
1
1

333? i

3998

2333 i
4002

4003
4004
4005
4006
4007
4008
4009
4010

4011

4012

%
i
1
1
1
1

!
!
!
!
!
!
!
!
!
!
!
!
!
$

DEQNA Physical Addr
AA-00-00-00-00-00
AA-00-02-AA-AA-AA
AA-00-05-55-55-55
AA-00-04-FF--FF
FF
AA-00-04-00-00-00
AA-00-04-18-81-18

BEGIN
reset device
select internal 1
mode
;
load Station Address RAM with Station Addresses from tsble
load
et with valid Station Address

ransmi

chec&‘f

- t

IF error

rint

load

:
!
:
!

!
!
!
!

EPP
;
et
Address Filter Circuitry

Station Address table:

)
Processing:

i\m‘ted loopback stat

expec

error

status

message if not inhibited
if

not

inhibi

et with invalid Station Address

gns& gtr;ceiver
.
ransmit
loopback packe
emble'roceivcrt‘d 3
o
check for expec
oopback status

END

IF error
THEN
grint error message if not inhibited
ENDIF

SEQ 204

Page 117
(43)

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:36:09

TEST 19 - RUNT PACKET TEST

27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4,0-579

DISK2: [SCODA.QNA. ZANAIZGNAS
. BLI;2

BGNTST;
oo

!
!

RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING
TESTS IN EXTERNAL LOOPBACK MODE.

RESET_DEGNA (

)

PREP_FOR SETUP ¢ );

TNCR-TNGEX: FROM 270 19 DO
WRT_STATION_ADR (

.INDEX1 - 5, PHA_INDEX );

XMIT_SETUP_PACKET ( N_MODE );
Tae

NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY

RBUF_LENGTH
= 6;

XBUF_LENGTH
= - ( .RBUF_LENGTH t -1 );
WRT_STATION_ADR ( ZERO, PHA_INDEX );

BGNSUB

XMIT ILOOP_PACKET ¢ ZERO );

ENDSUB

BGNSUB
;
WRT_STATION_ADR ( ZERO, 2 );
.IOP_T
[ CSR
ABL
] = ONE;
E

SET_RDESCR_LIST (

.XBUF_LENGTH,

VE );
10P_TABLE [ m.onoa} ncvousn

"TOP_TABLE
[ RHI

SET YDESCR LIST (

XBUF_LENGTH,

.I0P_TABLE [
XLO_ ADR
-IOP_TABLE

VE );

= XMIT_D_LIST,
= ZERO;

CHK_RIXI_STATUS ( ZERO );

CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK
E
CHK_XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ):

CHK_RCV_STATUS

( RFLG_STATUS, RWD16_STATUS )3

.JOP_TABLE [ CSR ] = ZERO;
SUB;

ENDTST;

SEQ 205

! 0100220’, 0'100220'
! 0'140000', 0'000400'

! 0'140000', 0'044000'

093(“)

118

CZQANAEO DEQNA FUNCTIONAL TEST
TEST 19 - RUNT PACKET TEST

$T19:

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50
SBTTL

VAX-11 Bliss-16 V4.0-579

$T19 TEST 19 - RUNT PACKET TEST

:g
,PREP .FOR. SETUP

14:

Rl (SP)

023)

SEQ 206

DISK2:[SCODA.QNA.ZGNAJZQNA3.BL
;2
I

R1,-(SP)
PC,RESET.DEQNA

*, INDEX1
INDEX1, *

119

oge(44)

3960
4020
4021
4022
4023

s(’c msn)mon.ADR

2%:

R1
R1,#23
1%
2

INDEX1
INDEX1,*

4022
4023

PC,XMIT.SETUP.PACKET

gf\

SP)+

000006 000000G
000006

3333

#6,RBUF .LENGTH
RO

4023

4033
4034

XBUF .LENGTH

NED

(SP)
g.MT.ILW.PACKET

4039

(SP)

4043

PC,WRT.STATION.ADR
#1,3I0P.TABLE+16

XfllfLE?GTgé(SP)
60000 ¢

SET. fiocsca LIST
aaév D.LIST,3I0P.
TABLE+4

4%:

PC,WRT.STATION.ADR
n

3$:

4036

~e3

000023

SI0P. TABLE +6

W.LE'GTH#SSP)
PC,SET. XDESCR.LIST

#XMIT.D.LIST, S50p. TABLE+10

JI0P. TABLE+12
(SP)

ZQANA3
v01.0

CHIK . RIXI . STATUS

#-77560, (SP)

4045
4047

4049
4051

27-Mar-1986 07::36::09
27-Mar-1986 07 :+33::50

004737
012716
012746
004737
012716
012746
004737

005077
062706
104467
006000
103706
022626
012601
000207

000000G

CHK.CSR. smus

ioooo (
uoo

140000
000400

. ($p

0000006
140000
044000
0000006
0000166
000014

PC,CHK. XMIT. STATUS

RTS

: Routine Size:
110 words,
Routine Base:
AB$CODES$
; Maximum stack depth per invocation:
luordo

000000
000000
000004
000006
000010
000012

004737

104466
006000
103773
000207

017452

T19::
1%:

.SBTTL

T19 TEST 19 - RUNT PACKET TEST

JSR
TRAP
ROR
BLO
RTS

PC.$T19
66
RO
13
PC

Routiine Size:
6 words,
Routine Base:
ABSCODE$
i Maximum stack depth per invocation:
2 words
:

;4064
4065
i

1
1

20006

SEQ 207
VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.GQNA. ZANATZGNA3.BLI ;2

age 120

(44)

§ 888
§ 3

CZQANAEO DEQGNA FUNCTIONAL TEST

TEST 19 - RUNT PACKET TEST

27-Mer-1986 07

CZQGNAEO DEQNA FUNCTIONAL TEST

ot et i

86
B

o o
e
o o o
o
e
e o o
o e o o
o e = e e e o e

5852255533853
30 88535888

e o o o (o o o o

e e e e e

WE S8 B
B
B8 W6 S
B8 BE B
6 B8 B0 S5 B0 S0 B
B0 S0 B8
B0 B
B8
B8 B
BE S5 B0 S0 B
S5 B
WS BE B6
T
S B
B
G
W

27-Mar-1986 07:33:50

TEST 20 - FIFO OVERFLOW TEST

VAX-11 Bliss -16 V

S P

DISK2: [SCODA .GNA.Z
Q‘Q%ZNS BLI;2

121
.9‘(‘5)

®SBTTL 'TEST 20 - FIFO OVERFLOW TEST'
Teoo

FIFO OVERFLOW TEST

TEST 20:
DESCRIPTION:

This test verifies that the Ethernet Protocol Processor can

detect receive FIFO overflow condition. If the operator specifies

program re-executes the codethot detected the
loop on error, the
is entered.

error until 1€

Hardware tested:

RCV Status wd 1 - error summary gbi‘. 14),
FIFO overflow (bt 0),
Byte FIFO in the EDLC,

nnd discard packet (bit 12)

Processing:

BEGIN
reset device
select loopback mode

enable receiver ( ut CSR bit 0)
transmit m
m.crockct
loopback
transmit

%hod: for expected 1

status

error

E;int error message if not inhibited

ntv.g. ive D..criptor List
d\odx for csooctod loopback status

IF error
THEN
END

int error message if not inhibited

mturnofSLED‘sonm-owlc

{

S
e

27-Mar-1986 07:36:09

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07 :33:50

RESET DEGNA AND INITIALIZE ETHERNET STATION ADDRESS RAM

asserneu()z

PREP_FOR

uoo
xmxro
mnotx
WRT_STATION_ADR
( .INDEX1, PHA_INDEX );

BGNSUB ;
’
XMIT_SETUP_PACKET ( P_MODE );
3
Teo

CHECK IF PACKETS
ACK
MODE
INTERNAL LOOPB
IN ETS
6-BYTE PACK
2 ACK
! LOOPB
RECEIVE PROPERLY.
AND MIT
' WERE RECEIVED PROPERLY, SHOULD TRANS

RBUF _LENGTH = 6;

XBUF_LEX TH = - ( .RBUF_LENGTH t -1 );
INCR INDEX FROM 2 TO 3 DO

WRT_STATION_ADR ( ZERO, .INDEX );
BGNSUB;
XMIT_ILOOP_PACKET ( ZERO );
ENDSUB;

.FWCERECEIEFIFOOWLGI(RCVSTITUSIDI-BITO)BYTRN&IITTDG

2 ND 6-BYTE PACKET IN INTERNAL LOOPBACK MODE BEFORE RECEIVING FIRST PACKET

BGNSUB;

.IOP_TABLE
[ CSR ] = ZERO;

WRT_STATION_ADR
( ZERO, 2 );

SET_XDESCR_LIST ( .XBUF_LENGTH

.I0P_TABLE
n.om]-»mbusn
ZERO
"IOP_TABLE [ XHI_ADR

CHK_RIXI_STATUS ( ONE );

WRT_STATION_ADR ( ZERO, 3 );
SET_XDESCR_LIST ( .

Lae

-JOP_TABLE [ XHI_ADR

.10P_TABLE { XLO_ADR

VE );

T.0_LIsT;

SEQ 209

DISK2:[SCODA.QNA. ZANATZGNA3.BLI ;2

BGNTST;

N D N N L NN
N N N L TN G O
VIVIUITIITTVTIUTUVTUTUTVTUT
TN L NN L B OV O 8 B 3 (O G O O G O W

@ W W BE WS

e Be G4 B

6 Ve W6 B8 B0 B TS B0

5 B B8 S5 B8 S0 B0 S

B0 S B S0 B S8 B8 S8 S0 SE B0 S8 B0 B

S0 B8

e W0 S5 B B

w0 S

B W

TEST 20 - FIFO OVERFLOW TEST

VAX-11 Bliss-16 V4.0-579

Fage 122

(46 )

(46)

.IOP_TABLE [ RHI_ADR ] = ZERD;

.JOP_TABLE [ CSR ] = ONE;
CHK_RIXI_STATUS ( ZERO )

)
CHKCSR_STATUS ( CSR_STATUS, CSR_MASK
XWD12 STATUS )

CHKXMIT STATUS ( XFLG,STATUS,

CHKRX_LPSTATUS ¢ RFLG.STATUS, RWD1S.STATUS )
.JOP_TABLE [ CSR ] = ZERO;
;

TURN_OFF _LED ( N_MODE );

"OFF "LED ( LED1 ):

"OFF LED ( LED2 ):
TURN_OFF _LED ( LED3 );
ENDTST;

1%:

000016
000202
0000006

24:

000000G

3$:
as:

R1,-(SP)

;

PC.RESET.DE
PC.PREP.FOR. SETUP
#1.R1
R1,-(SP)
#23,-(SP)
PC,WRT.STATION. ADR
(SP)+,(SP)+
R1
R1,916

TRAP

4118
4121

(SP)+

4118
4121

BLE

MOV
JSR

#202, -(SP)
PC,XMIT.SETUP.PACKET

TRAP

TST

000006 000000G
000006

0000006
000002

MOV

JSR
JSR
MOV
MOV
MOV
JSR
P
INC
[

ROR
BLO
MOV
MOV
ASR
NEG
MOV
MOV
CLR
MOV
JSR

TRAP

$T20:

$T20 TEST 20 - FIFO OVERFLOW TEST
w0

0000006
000000G
000001
000023
0000006

_SBTTL

4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183

Page 123

SET_RDESCR_LIST ( .XBUF_LENGTH, VE );
.IOP_TABLE [ RLO_ADR ] = RCV_D_LIST;

®e

4163

= WU WWWWeIunTULTLTULYTULTLTLTULYTUT
LYY

DA L

TR T

v01.0

SEQ 210

VAX-11 Bliss-16 V4.0-579
DISK2: [SCODA -QNA_ZQNA JZQGNA3 .BLI;2

ZONA3

4162

2
2

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 20 - FIFO OVERFLOW TEST

*=, INDEX1

*
INDEX1,

INDEX1
*
INDEX1,

RO
24
96, RBUF . LENGTH
#6,R0
RO
RO

RO, XBUF . LENGTH
#2.R1
-(5P)
R1,-(SP)

PC.WRT.STATION.ADR
2

4115
4116
4117
4118

4117

4129
4130

*, INDEX
INDEX,
*

4132
4134

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

5%:

2§,.XHIT.ILO(P.PACKET
RO
43

(SP)+,(SP)+

R1
R1,83
3
2

)
. XDESCR.LIST

PC,SET

VAX-11 Bliss-16 V4.0-579

#XMIT.D.LIST,3I0P.TABLE+10
8I0P.TABLE+12
SP)

PC, CHK .RIXI.STATUS

SEQ 211

DISK2:[SCODA.QNA.ZGNAIZGNAS.BLI ;2

Page 124

(46)

4137

H
; INDEX

4133
4132

H
;
H

4139
4147
4149

4151

H
;

4152
4153

;

4156

4158

; INDEX,*

aI0P.TABLE+16
-(SP)

000000G

(SP)

004737

3B 8380p33,335335030303303533530530353353C02N3A3E8540

G
L

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 20 - FIFO OVERFLOW TEST

;

4155

4159

4160

;
:
:
:

4163
4164
4166
4168

4169

4170

4171

4173

473

4176

;

;
,

4162

4139

4178

F1
004737
012716
004737
012716
004737
012716
004737
005726
012601
00020

; Routine Size:

JSR
MOV
JSR
MOV
JSR
MOV
JSR
TST
MOV
RTS

0000006
000204
0000006
000210
000000G
000214
000000G

154 words,

Routine Base:

; Maximum stack depth per invocation:

000000
000000
000004
000006
000010
000012

004737

104466
006000
103773
000207

020022'

11 words

T20::
1¢:

1
4184

Page 125

(46)
4179

4180
4181

4063

AB$CODE$

.SBTTL

T20 TEST 20 - FIFO OVERFLOW TEST

JSR
TRAP
ROR
BLO
RTS

PC,$T20

14
PC

Routine Base: AB$CODE$ + 20506
: Routine Size: 6 words,
; Maximum stack depth per invocation: 2 words
;

SEQ 212

DISK2:([SCODA.QNA.ZQNA]ZQNAS.BLI;2

ZANA3
v01.0

000422
000426
000432
000436
000442
000446
000452
000456
000460
000462

VAX-11 Bliss-16 V4.0-579

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 20 - FIFO OVERFLOW TEST

4181

Gl
CZQNAEO DEQNA FUNCTIONAL TEST
TEST 21 - SANITY TIMER TEST

ZANAZ

4185
4187

o e o o o
o
e e e o o
e e o
e et 1
e B

e e o o o o

4197

o o

e o e o

4191

e o e e et et

v01.0

SEQ 213

VAX-11 Bliss-16 V4.0-579
.BLI ;2
DISK2:[SCODA.QNA.ZQNA]ZQNAS

27-Mar-1986 07 07:36:09
27-Mar-1986 07:33:50

%SBTTL ‘TEST 21 - SANITY TIMER TEST'
oo
!

!
!
!
:
g
!
!
!
!
:
!
!

:
!

!
:

:
:
!
E

:
!
!
!
!
:
!
!
!
!
!
!

SANITY TIMER TEST

TEST 21:
DESCRIPTION:

This test verifies that the Sanity Timer times out after a pre-set

( u.pgliod by the o&:l.'ntor ) timeout period. The Sanity Timer uses
t the
to force the power_fail interrupof
DCOK line on the Qitself.
reboot
to
processor
the
processor which in turn causes
Hardware tested:

Sanity Timer Logic

Processing:

BEGIN
reset device

store Console Terminal and Power_fail interrupt vectors
( location 24 _and 60 octal )
enable Console Terminal interrupt
arm for Power_fail interrupt
test procedure
inform the operator about
set the Sanity Timer to timeout value supplied by the

T
Senity Timer
L Senity
" e the
enBIT*HE
wai

IF Power-fail interrupt occured

int 'SANITY TIMER TIMED OUT AS EXPECTED’

ing

interrupt
" ——
inhibited
not
if
message
error
Emgint
force Console Terminal i

disable Sanity

Timer

“@"

restore Console Terminal and Power_fail interrupt vectors
)
on
and 60 octal
ati
— ( loc24

Page 126

(47)

CZANAEO DEQGNA FUNCTIONAL TEST

NN NNORNNNORNNNNONNNNORNNNO
OO
LLLRELLLPLLLELERERAUNNUW

TEST 21 - SANITY TIMER TEST

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

VAX-11 Bliss-16 V4.0-579

;2
DISK2: [SCODA.QNA.ZGNA]ZGNAS.BLI

BGNTST;

IF .SWP_TIMER
THEN

BEGIN
fse

RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM

?ESET-NW € )
oo

SETUP FOR POMER FAIL AND CONSOLE TERMINAL INTERRUPTS

SETVEE ( PF_VEC_LOC, PWR_INT, PRIO7 );
);
VEC ( KB-VEC'LOC, KBD_INT. PRIOS

SETPRI

100 J;

PREP_FOR_SETUP
( );

,! POMER FAIL
T ERMINAL
{ CONSOLE

' SET PROCESSOR PRI LEVEL

DO
1 TO 14 1
FROM DEX
INCRIN

WRT_STATION_ADR( .INDEX1, PHA_INDEX );

BGNSUB;
PUT_BIT
[ CSR,

SE, EENABLE 1;

XMIT_SETUP“PAGKET ¢ %0°200' + ( .SWP_TOUT_VAL + 4 ) );
SELECTONE .SWP_TOUT_VAL OF
SET

[ 0,1 1]:
TEMP1 = 1;

PRINTB ( MSG32, .TEMP1 );

[2]1]:

END;

BEGIN
TEMP1 = 4;

PRINTB ( MSG32, .TEMP1 );

L5 )

END;

TEMPL1 = 16

PRINTB ( MSG32, .TEWPL );

[4]:

END;

BEGIN
TEMP1 = 1;

PRINTB ( MSGSS, .TEMP1 );

[5]:

END;

BEGIN
TEMP1 = 4

PRINTB ( MSGSS, .TEMP1 );

END;

SEQ 214

Page 127

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

000000
000002

HWWBENNNNNNONOJOONOOONTORNONPTNOONONONITOONNNNIRININO

CZQGNAEO DEQNA FUNCTIONAL TEST
TEST 21 - SANITY TIMER TEST

010146
005746

(6 1]:

GIN
TEMP1 = 16;

PRINTB ( MSGSS,

ITh

END;

BEGIN
TEMP1 = 1;

PRINTB ( MSGS6,

END;

TES;

SEQ 215

VAX-11 Bliss-16 V4.0-579
DISK2: ([SCODA.QNA.ZQNAJZQGNA3.BLI;2

Page 128

(48)

.TEMP1 );

PRINTB ( MSG57 );
INTERRUPT FLG = -1;

WAIT_FOR_TIMEOUT ( );
Tse

PUT DEGNA IN NORMAL MODE AND CHECK STATUS
BIT [ CSR, SE,

DISABLE );

mefirmm(i
mmautou DO
mrsnnou_mnc. INDEX1, PHA_INDEX );
XMIT_SETUP_PACKET
( N_MODE );
CLRVEC
( PF_VEC_LOC );

CLRVEC
( KB_VEC_LOC );
IF_.INTERRUPT_FLG
THEN
BEGIN

PRINTB ( MSG33 )

END
ELSE

GET%IT(CSRALL):

PRIfiTB
PRINTB(
PR ¢ D361, bcoo, ERRORSREPORT ):

END;

ENDSUB;
:

ENDTST;

$T21:

.SBTTL

TST

MOV

01’21 TEST 21 - SANITY TIMER TEST

-(éP

4183

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

000001
021522’

000000G
0000006
000000G
000024
000003

000000G

1%:

000000G
000000G
000060
000003

333 3333537

CZQNAEO DEQNA FUNCTIONAL TEST
TEST 21 - SANITY TIMER TEST

VAX-11 Bliss-16 V4.0-579

SEQ 216

DISK2: [ SCODA.QNA.ZGNAJZQNA3.BLI;2

129

m(“)

4226

#1,SWP.TIMER

4234

4239

4240

43:

INDEX1
INDEX1, *

:s3 3

R1
R1,#16
24

000002

(SP)+

*, INDEX1
INDEX1,*

oaglfi

3$:

.2 = 9)
PC,WRT.STATION.ADR

3% gaE"

2%:

EF
3

0000006
000001

33333798333333837
3583537 33418333%

0000006

iK1
CZGNAEO DEGNA FUNCTIONAL TEST
TEST 21 - SANITY TIMER TEST

ZQNA3
V01.0

000272 020127 000003
000276 001014
000300 012737 000020 0000006
000306 012716 000020
000312 012746 0000006
000316 012746 000002
000322 010600
000324 104414
000326 000473
000330 020127 000004
000334 001014
000336 012737 000001 000000G
000344 012716 000001
000350 012746 0000006
000354 012746 000002
000360 010600
000362

000364
000366
000372
000374
000402
000406
000412
000416
000420
000422
000424
000430
000432
000440
000444
000450
000454
000456
000460
000462
000466
000470
000476
000502
000506
000512

104414

000454
020127 000005
001014
000004 000000G
0
012716 000004
012746 0000006
012746 000002
010600
104414
000435
020127 000006
001014
012737 000020 000000G
012716 000020
012746 0000006
012746 000002
010600
104414
000416
020127 000007
001014
012737 000001 0000006
012716 000001
012746 0000006
012746 000002
010600

o
onis
000520 012716 000000G
000524
000530
000532
000534
000542

012746 000001
010600
104414
012737 177777 0000006
004737 000000G

000552

042760

——————

000546 013700 0000006
002000

000016

5%:

6%:

cHP
BNE
MOV
MOV
MOV
MOV
MOV
TRAP
BR
cHP
BNE
MOV
MOV
MOV
MOV
MOV

TRAP

7%:

8s:

9%:

o
.
118:

BR
cHP
BNE
MOV
MOV
MOV
MOV
MOV
TRAP
BR
cHP
BNE
MOV
MOV
MOV
MOV
MOV
TRAP
BR
P
BNE
MOV
MOV
MOV
MOV
MOV

B
MOV

MOV
MOV

TRAP

MOV
JSR
MOV
BIC

27-Mer-1986 07:36:09
57-Mer-1986 07:33:50

R1,93
#20, TEMP1
#20.(SP)
#MSG32, -(SP)
#2,-(SP)
SP,RO
14
104
R1, %4
7%
#1,TEMP1
#1,(SP)
#MSG55, -(SP)
#2,-(5P)
SP,RO
14

10
R1,45
84
84, TENP1
#4,(SP)
#MSG5S, -(SP)
#2,-(5P)
SP.RO
14
10$
R1,96
9%
#20, TEMP1
€20,(SP)
#MSGSS, -(SP)
#2,-(5P)

SP,RO
14
104
R1,87
114
21, TENPL
#1,(5P)
#MSG56, - (SP)
#2,-(SP)
SP.RO
kS
o
#MSGS7, (SP)
k3

#1,-(SP)
SP,RO
14

#-1, INTERRUPT.FLG
PC,WAIT.FOR. TIMEOUT
REG.ADR,RO
#2000, 16(RO)

SEQ 217

VAX-11 Bliss-16 V4,0-579
DISK2:([SCODA.QNA.ZGNAJZQNA3.BLI;2

.
;
:

Page 130
(48)

4262
4264
4265

; SP,*
;
;
;
;

4263
4267
4269
4270

; SP,*
;
;
;
;

4268
4272
4274
4275

; SP,*
;
;
;
;

4273
4277
4279
4280

; SP.#
;
;
.

4278
4282

;

; SP,*
:

;
; SP,*
;
;
;

4284
4285

2
4289

4290
4291
4297

#
CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:36
27-Mar-1986 07:

12%:

134:

000001

000000G

000000G
000001

@
pu 53335

TEST 21 - SANITY TIMER TEST

INDEX1,*

131

% 48)
4300

PC,WRT.STATION.ADR

(SP)e

R1
R1,#16

124

INDEX1
INDEX1,*
4300
4303

#200,(SP)

F_;g +XMIT.SETUP.PACKET
RO

134
#24,RO

4306

#60,R0

4307

#1, INTERRUPT.FLG

4309
4312

SP,*

000020

4309
4316

14%:

*,TMP .LOCATION

TMP.LOCATION, *

0000006

000016

SEQ 218

DISK2: [SCODA.QNA.ZQGNA]ZQNA3Z.BLI
;2

; *=,INDEX1

000001

0000006

VAX-11 Bliss-16 V4.0-579

000001

4317

SP,*
4318

SP,*

15¢:

020654

005726
012601
000207

; Routine Size:

000016

16$:

17%:

e R

4319

RTS

259 words,

Routine Base:

4315

4320

(3P)e.R1

AB$CODE$ + 20522

4228
4183

27-Mar-1986 07:36:09
27-Mar-1986 07:33:50

CZQANAEO DEQGNA FUNCTIONAL TEST
TEST 21 - SANITY TIMER TEST

ZANA3
v01.0

; Maximum stack depth per invocation:

14 words

020522’

T21::

000000

004737

000012

000207

000000
000004 104466
000006 CO06000
000010 103773
; Routine Size:

;

4325
4326
4327

4328

1
1
1

T21 TEST 21 - SANITY TIMER TEST

JSR
TRAP
ROR
BLO

PC,$T21
66
RO
14

RTS

6 words,

Routine Base:

; Maximum stack depth per invocation:

;
;
;

.SBTTL

2 words

AB$CODE$ + 21530

ELUDOM

0TS external references
.GLOBL $SAVE4, $SAVE3, $SAVE2

PSECT SUMMARY

s BN N R R

File

L it AL RE Gy AP i

; DISK2:[SCODA.QNA.ZQNAJGNALIB.L16;:2
3

Attributes
0. T .

Library Statistics

H
3

Words
4530

Psect Name
AB$CODE ¢

Total
224

REL,

LO.,

Symbols --------

Loaded Percent
142

CON

Pages
Mapped

COMMAND QUALIFIERS

:53
BLISS/PDP11 ZQGNA3.BLI/LIST=ZGNA3.LIS/0BJECT=ZQNA3.0BJ/SOURCE=PAGE

Pege

132

% 485

4322

;
3

SEQ 219

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNA]ZQNA3.BLI;2

Processi

Time

00:00.1

ZQNA3

TEST
FUNCTION
ZQGNAEO
TIMERALTeST
2EGANITY
) DEGNA
EV5

; Size:

530 code + 0 data words

v01.0
:

U
Min:
| Lines/CP

; Lexemes/CPU-Min:
H
B

3194

36699

27-Mer-1
’ 986 07:36:09

VAX-11 1 Bliss-16
Bliss-1 V4.0-579

Page 133

Co
no
et
et
e OO OO OO

CZQNAEO DEQGNA FUNCTIONAL TEST

27-Mar-1986 07:37:39
17:01:05
26-Mar-1986

SEQ 22
Vv4.0-579 .BLI;1p
VAX-11 Bliss-16
.GNA_ZGNAJZQNA4

DISK2:(

MODULE ZQNA4 (STITLE ‘CZGNAEQ DEQNA FUNCTIONAL TEST'
IDENT = 'V01.0'

ADDRESSING_MODE( ABSOLUTE )
)

%SBTTL ‘GLOBAL ROUTINE DECLARATION MODULE'
BEGIN

LIBRARY ‘QNALIB'

REQUIRE 'BLSMAC.REQ';
' <BLF /NOFORMAT>

! GNALIB LIBRARY
i DIAGNOSTIC SUPERVISOR LIBRARY

Page

1
(1)

27-Mar-1986 07:37:
26-Mar-1986 17:01

FORWARD ROUTINE

XMIT_AND_RCV_PACKET

Page

(2)

: NOVALUE;

EXTERNAL DATA USED BY THIS MODULE

EXTERNAL

e o e o

COMMUNICATION AREA DECLARATIONS
RCV_D_LIST
XMIT D_LIST

. BLOCK [ D_SIZE, WORD ) FIELD ( DL_FIELDS ).
: BLOCK [ D SIZE. WORD ) FIELD ( DL_FIELDS )

RCV_BUFFER
XMIT_BUFFER
DATA BUFFER

: VECTOR [ B_SIZE, BYTE ).
: VECTOR [ B_SIZE, BYTE ],
: VECTOR [ BOF_SIZE
4

: BLOCK [ DESCR_SIZE

o e o

DESCR_LIST

BUFFER
SETUP
I0P_TABLE

8D_PROM_DESCR
$Tluwmnga

PHYSE.E'B!
Teo

HARDWARE

] FIELD ( DL_FIELDS

VECTOR [ SETUB_SIZE, \m& 1.
:: VECTOR
[ 8, WORD ],
: VECTOR [ BO_D
: vecrg

. WORD
1,

% WORD ghe )

: vecr:oR [ 23, BYfEE TR
AND SOFTWARE P-TABLE STORAGE DECLARATIONS

HWP_TABLE
SWP TABLE

: REF BLOCK [ HWP_SIZE, WORD ) FIELD ( HWP_FIELDS )
: REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS )

REG_ADR

: REF REG_STR FIELD ( IOP_FIELDS ).

GET_ADR
IOP_DATA

: REF ADR_STR FIELD { I0P_FIELDS ),
: REF REG_STR FIELD ( IOP_FIELDS ).

foo

o o o e e o

teo

e o

o o

DISK2:[SCODA.QNA.ZQNAJZGNA4
.BLI;1

CODE = ACS$CODES;

e o
e e o
e e e e e e e e e o

SEQ 222

PSECT

s e e et

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL ROUTINE DECLARATION MODULE

VAX-11 Bliss-16 V4.0-579

s s s e o et ot ot et

MISCELLANEOUS DATA DECLARATIONS

i o o o

CHETKSUM,

ERR_NUMBER,

PRIO3,
PRIO7,

PRIOA.,
DEQGNA'NO

CSR_WORD,

PRIDO,

: WORD,

P3,

P4,

TEMPI,
TBYTES,

TADR1,
TBYTE4

TEMPL,
TEWPS,

o e o o

i o o o e o o o

low

TEMP2,
TEMPG.,

: WORD,

: BYTE,

Teo

pheatet

, MSGO6, MSGO7, MSGOS, MSGO9, MSG10,
7. MSG18. MSG19, MSG20,
4
>
L)

SEQ 223

DISK2:([SCODA.GNA.ZQGNAJZGNA4.BLI;1

26-Mor-1986 17:01:05

o
e o
o 0 e et e o o

8
88 9
B8
80
B
B6
B8
S8
B8
B8
B0 S8 B
B8
B0
B
S8 S5
BE BE G0 B0 95 S0
B
B0
WS B
S
B
B
S
W
G
W

Teoo

VAX-11 Bliss-16 V4.0-579

27-Mar-1986 07:37:39

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE DECLARATION MODULE

L ] m' m. m.

Page

(3)

E2
ZQNA4
v01.0

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL ROUTINE - ERRORSREPORT ( )

HL]OLALReHAL RL LAeRe DRoleAlLalDal

%SBTTL ‘GLOBAL ROUTINE - ERRORSREPORT ( )’
oo
1

edededededed

i
t
]
.

i
3

GLOBAL ROUTINE :

ERROR$REPORT

DESCRIPTION:

This routine reports errors to the operator

| .

%SBTTL 'GLOBAL ROUTINE - ERROR$REPORT ( )
BGNMSG (ERROR$REPORT);

07:37:39
17 :01:05

VAX-11 Bliss-16 V4.0-579

SEQ 224

DISK2:[SCODA.QNA.ZQNAJZGNA4
.BLI;1

Page

(4)

Eg deddedeee e

Fe2
GLOBAL ROUTINE - ERRORS$REPORT( )

::
ERROR$REPORT

JSR

4 words,

Routine Base:

PRINTB ( MSGO4,
PRINTB ( MSGOS.
PRINTB ( MSGO6,
PRINTB ( MSGO7.

;

1592

AC$CODE$ + 0000

PRINTB ( MSGO3 );

.XMIT_D_LIST [ FLGWD
.XMIT_D_LIST [ DBITS
.XMIT_D_LIST [ LOADR
.XMITD_LIST [ TWwOL

).
],
].
J.

.RCV_D_LIST [ FLGWD ] ):
.RCV_D_LIST [ DBITS ] ):
-RCV_D_LIST [ LOADR ] ):
.RCVCD_LIST [ TWwOL ] )

RWD2_MASK );
] AND XWDI_MASK, "RCV_D_LI&T [ STWD1 ]] AND
PRINTB ( MSGO8. .XMIT_D_LIST [[ STWD1
);
RLL_FASK
AND
STWD2
[
STWD2 ] AND XWD2_MASK, .RCV_D_LIST

oA S

PRINTB ( MSGO9. .XMIT_D_LIST

PRINTB ( MSG10. .CSR_WORD AND %0’ 133777' );
PRINTB ( MSG11. .HWP TABLE [ ADDR ] );
ENDMSG;

000000G

000001

0000006
0000006
0000006
000003
0000026
0000026
0000006
000003
000004G
000004G
0000006
000003
104414
013716

2 words

23
PC

; Maximum stack depth per invocation:

2
(4)

; Routine Size:

Page

PC,M$ERROR$REPORT

TRAP
RTS

104423
000207

DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

000006G

_SBTTL

M$ERRORSREPORT GLOBAL ROUTINE - ERRORSREPORT ( )

M$ERROR$REPORT:
MOV
#MSGO3, -(SP)
#1,-(SP)
MOV
SP,RO
MOV
TRAP

MOV
MOV
MOV
MOV
MOV

TRAP

MOV
MOV
MOV
MOV
mv

TRAP

MOV
MOV
MOV
MOV
MOV
TRAP
MOV

;
; SP,%

RCV.D.LIST,(SP)
XMIT.0.LISt,-(5P)
#MSGO4. -(SP)
#3,-(5P)

;

RCV.D.LIST+2,(SP)
XMIT.D.LIST+2,-(5P)
#MSGOS, -(SP)
#3,-(5P)

;

SP.

SP.RO

RCV.D.LIST+4,(SP)
XMIT.D.LIST+4,-(SP)
#MSGO6 , - (SP)
23, -(5P)
SP.RO
14
RCV.D.LIST+6,(SP)

1594

1595

; SP,*
159

H yo‘
1597

; SP,*

;

1598

000000V

SEQ 225

000004
000006

AC$CODES,

'PSECT
004737

VAX-11 Bliss-16 V4.0-379

ERRORSREPORT GLOBAL ROUTINE - ERRORSREPORT ( )

_SBTTL

000000

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZQNAEO DEQGNA FUNCTIONAL TEST

ZQANA4
v01.0

CZQNAEO DEGNA FUNCTIONAL TEST

GLOBAL ROUTINE - ERRORS$REPORT ( )

; Routine Size:

000010G
000370
000010G
020017
000000G
000003
000012G
000012G
140000
000000G
000003
000000G
044000
000000G
000002
000000G
000000G
000002

000060
94 words,

Routine Base:

; Maximum stack depth per invocation:
{

1
;1605
6
160 1
i

26 words

SEQ 226

DISK2:[SCODA.QNA.ZQGNA]ZQNA4 .BLI;1

Page

(4)

XMIT.D.LIST+6,-(SP)
#MSGO7, -(SP)
SP.RO
14

; SP,*

1599

RCV.D,LIST+10,(SP)
#370,(SP)
XMIT.D.LIST+10,-(SP)
#20017,(SP)

; SP,*

#MSGO8., - (SP)
4

SP)

RCV.D.LIST+12,(SP)
XMIT.D.LIST+12,-(5P)

1600

moooo.gspg
#MSGO9, - (SP

#3,-(SP)

SP.RO
14

CSR.WORD, (SP)

$44000, (5P)

; SP,*

1601

#MSG10, -(SP)

,-(SP)

%‘8

MOV
MOV
MOV
MOV
TRAP
MOV
BIC
MOV
BIC
MOV
MOV
MOV
TRAP
CLR
MOVB
MOV
BIC
MOV
MOV
MOV
TRAP
MOV
BIC
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

000006G
000000G
000003

VAX-11 Bliss-16 V4.0-579

fip%

013746
012746
012746
010600
104414
013716
042716
013746
042716
012746
012746
010600
104414
005016
113716
013746
042716
012746
012746
010600
104414
013716
042716
012746
012746
010600
104414
017716
012746
012746
010600
104414
062706
000207

H 9"

y.m
14
260, 5P

;: SP,*

.TABLE, (SP)

#MSGi1, -(SP)

v01.0
000114
000120
000124
000130
000132
000134
000140
000144
000150
000154
000160
000164
000166
000170
000172
000176
000202
000206
000212
000216
000220
000222
000226
000232
000236
000242
000244
000246
000252
000256
000262
000264
000266
000272

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

AC$CODE$ + 0010

;

1602

1592

H2
CZQNAEO DEGNA FUNCTIONAL TEST

ZQANA4
;

1607

1608

1609

1611

1613

;

;
H
;

I H

1610
1612

1614

1616
1617
1618

1
1
1

!
f--

1621 1

004737

000004

GLOBAL ROUTINE :

DESCRIPTION:

;1623
;1624
;1625

000000V

TRAP

RTS

4 words,

Routine Base:

ENDMSG;

012737

000001

RTS

M$E1$REPORT GLOBAL ROUTINE - E1$REPORT ( )

#1,TEMP1

Routine Base: ACSCODES + 0314

: Maximum stack depth per invocation:
1
1

PC,M$E1$REPORT

1621

AC$CODE$ + 0304

.SBTTL
M$E1S$REPORT:
MOV

000000G

| s Routine Size: 4 words.
1626
1627

2 words

E1$REPORT GLOBAL ROUTINE - E1$REPORT ( )

TEMPL = 1;

| 000006 000207

E1$REPORT

.SBTTL
E1$REPORT::
JSR

000000

(5)

BGNMSG ( E1$REPORT );

104423

1622

®SBTTL 'GLOBAL ROUTINE - E1$REPORT ( )’

; Maximum stack depth per invocation:

DISK2:[SCODA.QNA.ZQNA JZGNA4 .BLI;1

Page

This routine reports errors to the operator

I 000006 000207

; Routine Size:

SEQ 227

foe

ig%g i

VAX-11 Bliss-16 v4.0-579

#SB1TL 'GLOBAL ROUTINE - E1$REPORT ( )’

1615

000000

26-Mar-1986 17:01:05

GLOBAL ROUTINE - E1$REPORT ( )

] voi.0
H

27-Mar-1986 07:37:39

O words

;

1623 H
1621

27-Mer-1986 07:37:39
26-Mar-1986 17:01:05

%SBTTL 'GLOBAL ROUTINE - RESET_DEQGNA ( )’

GLOBAL ROUTINE RESET_DEGNA : NOVALUE =
*

b et et et
e e e
o o o o o o o o o e o o o o
e o o e o o o
et e o e e o
1

WT B

RS B

NS B

B8 B

Be B

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - RESET_DEGNA ( )

i
P
h
'
H

GLOBAL ROUTINE :

status.

Hardware tested:

Processing:

BEGIN

!
!
!

RESET_DEGNA

DESCRIPTION:

This routine verifies that DEGNA can be reset by setting bit 1 in the
CSR register. After the reset, CSR is checked for nominal

Q@-Bus DMA Interface

set Software Reset (SR) bit in CSR and check for
expected CSR status
error
IF
THEN

Emgint error message if not inhibited

clear SR bit in CSR and check for expected CSR status

inhibi
e intt error ssscs ifif notnot inhibited

!
!

!
s

IF error

ENDTF

END

INPUT PARAMETERS:

SEQ 228

VAX-11 Bliss-16 V4.0-579
.BLI;1
DISK2:[SCODA.QNA.ZQNA]ZGNA4

Page

(6)

27-Mer-1986 07:37:39
26-Mar-1986 17:01:05

== PO N Gl G G G G G G N IO D D D D D D N D D L RO OGN G G GG GO PO D RO D PO PO D PO D 12 1t e et ot et et

WE W

WE Be W

Ve WE

GE WL

WE W

BE W

S5 B

B0 B

BE BE WE S8 BE B6 B

S5 W

CZQNAEO DEQGNA FUNCTIONAL TEST
GLOBAL ROUTINE - RESET_DEQGNA ( )

VAX-11 Bliss-16 V4.0-579

DISK2:([SCODA.QNA.ZQGNAJZGNA4 .BLI;1

feo
'

RESET THE DEVICE AND CHECK CONTENTS OF CSR FOR NOMINAL STATUS

s
'

BEGIN

PUT_BIT ( CSR, ALL_BITS,

ZERO );

PUT_BIT ( CSR. SR, SET_IT );
DELAY ( TIME6_LIMIT );

TEMP1 = GET_BIT [ CSR_ALL ] AND CSR2_MASK;
IF_.TEMP1 NEQU CSR1_STATUS
THEN

BEGIN

B
-FoRD - GET'BIT [ CSR_ALL
]g
PRINTB ( MSGS9 );
:

PRINTB ( MSG31 );

PRINTB ( MSG30, .GET_ADR [ CSR_ALL ], .TEMP1, CSR2_STATUS );
ERRDF ( 0001, MSGOO, E1$REPORT );

END;
oo
'

CLEAR SOFTWARE RESET BIT IN THE CSR AND CHECK FOR EXPECTED STATUS

ONE;

WORD = GET_BIT [ CSR_ALL ]:

MSG30, .GET_ADR [ CSR_ALL ], .TEMP1, CSR2_STATUS );

( 0002, MSGOO, E1$

SEQ 229

T )

.GLOBL "L3$DLY

.SBTTL RESET.DEQNA GLOBAL ROUTINE - RESET_DEGNA ( )

Page

(7)

EEM ROUTINE - RESET_DEQNA ( )

34:
0000006
010000 000000G
000000G 000062

000001

4%:

000000G

000001

000000G 000014
000016 000014
000014

000016
00¢-J00G
000002 000016
000001

000014

S$:
64:
74:

; %, 88TMP1
; $$TMP

CLR

S0B
DEC
BR
MOV
MOV
BIC
cMP
BEQ
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
ADD
MOV
MOV
MOV
MOV
TRAP
TRAP
.WORD
.WORD
. WORD
ADD
MOV
BICB
MOV
BEQ
MOV
BEQ
CLR

; $STMPL,.*

; $8TMP2

; *,TMP.LOCATION

1676
1678

; *,TMP.LOCATION

1681
1682

1683

; SP,*
1684

24:

000014

DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

0000006

SEQ 230

; %, 88TMP2

14:

; "Ségé-:f’%fi L 3
MY s
g
<.RS
Bgm Efifl

000002
000001

0000006
000016

000016

JSR
SuUB
MOV
MOV
ADD
CLR
BISB
MOV
BEQ
MOV
BEQ

VAX-11 Bliss-16 V4.0-579

[}

0000006

> T
=%
28

v01.0

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

QNAEO DEQNA FUNCTIONAL TEST

; SP,*
1685
; *,TMP.LOCATION
; *,TMP.LOCATION

; TMP.LOCATION,
*

; SP,*
1686

1680

1695

H t,“wa

; *,$8TMPL
; $4TMP

1696

27-Mar-1986 07:37:39

CZGNAEO DEQNA FUNCTIONAL TEST

26-Mar-1986 17:01:05

GLOBAL ROUTINE - RESET_DEQNA ( )
077103
005302
000767
016066
016637
042737

023727
001455

012737
016666

016637
012746
012746
010600
104414
012716
012746
010600
104414
012716
013746
013766
062766
016646
012746
012746
010600
104414

S08
DEC
B8R

8s:

MOV
MOV

9%:

000016 000006
000006 0000006

010000 0000006

BIC

?5'3

000000G 000060

000460

1710

1703

153 words,

Routine Base:

SP.RO
14

SP,RO
14

1702

; SP,*

1704

H SP"

TRAP
TRAP
JMORD

14
55
2

1706

#16,5P

;

1700

SP,RO

"WORD
"WORD

MSGOO
E1$REPORT

ADD
RTS

#16,5P
PC

ACS$CODE$ + 0324

19 words

; *,TMP.LOCATION
; TMP.LOCATION,
#

#60,(SP)
TEMP1, -(SP)
GET.ADR,22(SP)
#16,22(5P)
zzcép).-gsp)
oMSG30. -(SP)
#4,-(SP)

ADD

10$:

; Maximum stack depth per invocation:
s

1701

; TMP.LOCATION,*

MOV
MOV
MOV
ADD
MOV
MOV
MOV

MOV

000207

: Routine Size:

#MSG31,(SP)
#1,-(5P)

000016

; $sTMP2

1698

TRAP

000002
000000G
000304’
062706
062706 000016

$$TMPL,»

;

MOV
MOV

000060
0000006
000000G 000022
000016 000022
000022
0000006
000004

Igr‘vz.ceo

€10000,T

0000006
000001

TRAP

Page

1697

#1,ERR.FLAG
6(5P),10(SP)
10(SP),CSR.
#MSGS9, - (SP)
#1,-(SP)

MOV

DISK2:[SCODA.QNA. ZN]ZM BLI;1

; *,TMP_LOCATION

MOV
MOV
MOV
MOV
MOV
MOV

SEQ 231

16(R0),6(SP)
6(SP), TEMP2

000001 0000006
000006 000010
000010 0000006
0000006
000001

104455

000446

R1,7$
R2
64

VAX-11 Bliss-16 V4.0-57

;

1705

; *,TMP.LOCATION

; *,"TMP .LOCATION

: TPP LOCATION,
*

5 yn‘

1630

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

UGN NN b 1 =0 0 ot o o ot e
FOMN

IS 5 5 5 5 5 08D

004137
005746
005002
010201
006301
016137
016137
042

023727

001447
026161

VAX-11 Bliss-16 V4.0-579
.BLI;1
DISK2:[SCODA.QNA.ZQNA]ZQNA4

Page

(8)

%SBTTL ‘GLOBAL ROUTINE - VER_DESCR_STATUS ( )’

GLOBAL ROUTINE VER_DESCR_STATUS : NOVALUE =
HE

GLOBAL ROUTINE :

VER_DESCR_STATUS

DESCRIPTION:

s e

b ot o o o o o ot ot

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL ROUTINE- VER_DESCR_STATUS ( )

This routine compares expected receive descriptor to actual receive

descriptor.

INPUT PARAMETERS:

TEST_NO - test number in which error occurred.

BEGIN

I'CERG}:N'OEXFRMOTOBDDSIZE-IDO
.INDEX, W_LEN

TEMP1 = .DESCR_LIST [
SK
TEMP2 = .DESCR_LIST [ .INDEX, W_LEN WRFLGHABDPRMDES
])
CR[ .INDEX
NEQU RFLG_MASK ) AND( .TEMP1 NEQD
IF( .TEMP2
THEN

CSR_WORD
= GET_BIT [ CSR_ALL )

PRINTB (

MSGS9 );

[ .INDEX 1 . .INDEX) ’
M.DESC®
)ircwpy1. .BD_PRO
¢ Mooe8 TS
PRIN
e
:'
efiaéamr)

agaawcooos.r'séoo.
END;
g
END;

_SBTTL

VER.DESCR, STATUS
1, $SAVE2
JSR

0000006

000000G 0000006
000000G 0000006
037777

VER.DESCR.STATUS GLOBAL ROUTINE - VER_DESCR_STATUS ( )

0000006

000000G 140000

000000G 000000G

1$:

15T

CLR

é
-P

HV
MOV
MOV

az R1
oesca LISTCR1), TEMPL
DESCR.LIST(R1), TEMP2

greva

;;:mz.o-wooo

BIC

cHP

037771, TEMP2

DESCR.LISTCR1),BD.PROM.DESCR(R1)

;

1713

: INDEX

1733
1735

;

1736

;

1737

; INDEX,*

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

GLOBAL ROUTINE - VER_DESCR_STATUS ( )
BEQ
MOV
MOV
MOV
MOV

0000006
000016
0000006
0000006
000001

VAX-11 Bliss-16 V4.,0-579

SEQ 233

DISK2:([SCODA.QNA.ZQNAJZQGNA4 .BLI;1
H

;

*,TMP.LOCATION

; TMP.LOCATION,
*

Page

(8)
1740
1741

H SPO‘
:

0000006
000001

1742

H SP.‘
R2,(SP)

-(SP)
B0 . PROM.DESCRCR1),

; INDEX,*

1743

TEMPL, -(SP)

#MSGS0, -(SP)
9.“0

062706
005202
020227
003706
005726
000207

000016

000017

24:
BLE
TST
RTS

Base: AC$CODE$ + 1006
Routine
Q
13
words
:
invocation
; Maximum stack depth per
i Routine Size:

1749

64 words,

H SP,*

;

1744

; INDEX

1733

1713

; INDEX,*

1739

26-Mer-1986 17 01:05

; Routine Size:

GLOBAL ROUTINE :

CLR_DESCR

DESCRIPTION:

This routine initializes transmit and receive descriptor lists to 0.

BEGIN

INCR INDEX FROM O TO D_SIZE - 1 DO
BEGIN

XHITDLIST{. . WLEN ] = O;

.INDEX, W_LEN ] = 0;

.SBTTL

CLR.DESCR GLOBAL ROUTINE - CLR_DESCR ( )
RO
XMIT.D. LIST(RO)

1$:

000000G
000002
000176

RTS

11 words,

A
318
1
1T

INDEX

RCV_D_LIST

RCV.D.LIST(RO)

RO, #176
14

Routine Base: AC$CODES$ + 1206
O words

: Maximum stack depth per invocation:
s
;s

14
9

RISEER

005060
005060
062700
020027
003767
000207

DISK2: [SCODA.QNA.ZQNAJZQNA4
.BLI ;1

Page

CLR.DESCR::
000002
000006
000012
000016
000022
000024

SEQ 234

GLOBAL ROUTINE CLR_DESCR : NOVALUE =
Iimimrm it

et et o ot o o
=2 1D N G GG

PO P 12 5

—

INE - CLR_DESCR ( )

VAX-11 Bliss-16 V4.0-579

%SBTTL ‘GLOBAL ROUTINE - CLR_DESCR ( )’

s e e ot o et

—"
S
I
D
DI D
D
D
I
L
B
L
LAl L

27-Mar-1986 07:37:39

FUNCTIONAL TEST

CMO

1766

1769

1766

1752

27-Mar-1986 07:37:39

CZQNAEO DEQGNA FUNCTIONAL TEST

o e o e o o o e s s s ot e ot o ot

26-Mar-1986 17:01:05

DISK2:[SCODA.QNA.ZQNA]ZQNA4 .BLI;1

(10)

%SBTTL 'GLOBAL ROUTINE - CLR_BUFFERS ( P1 )’

GLOBAL ROUTINE CLR_BUFFERS ( P1 ) : NOVALUE =
oo
1

CLR_BUFFERS

GLOBAL ROUTINE :
DESCRIPTION:

This routine initializes transmit and receive buffers to 0.
INPUT PARAMETERS:
P1 - number of bytes to clear.

BEGIN

INCR INDEX FROM O TO .P1 - 1 DO

INDEX

RCV_BUFFER
Bguf_mfimex]-o:
H

_SBTTL

000000

000002
000004
000010
000014
000016
000022
000024

000405
105060

105060
005200

020066
002770
000207

0000006
0000006

000002

1%:
2%:

=R3HE0EE

LB L

1 1V D G G

TN 1) e

DR I

TR TR

a—"

GLOBAL ROUTINE - CLR_BUFFERS ( P1 )

VAX-11 Bliss-16 V4.0-579 - Page 15

CLR.BUFFERS GLOBAL ROUTINE - CLR_BUFFERS ( P1 )
24

1
1803
1
1804

179

RCV.BUFFER(RO)

*( INDEX)

1798

RO
2?.2(59)
PC

INDEX
INDEX,P1

179

WT.M%(RO)

Routine Base: ACS$CODES$ - 1234
; Routine Size: 11 words,
;: Maximum stack depth per invocation: O words
;.
;

; INDEX

+«( INDEX)

1799
1777

Geag

o o
o bt

VAX-11 Sliss-16 V4.0-579
NA4
.BLI;1
DISK2:[SCODA.QNA.ZQNA]ZQ

%SBTTL ‘GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 )’
=

GLOBAL ROUTINE CHK_RIXI_STATUS ( P1 ) : NOVALUE
-

GLOBAL ROUTINE :

CHK_RIXI_STATUS

DESCRIPTION:

This routine verifies that XI ( bit 7 ) and RI ( bit 15 )
of the CSR status word are set to 1 shortly after transmission of a

loopback packet is complete. If either bnt isn't set, an error

message is printed.

INPUT PARAMETERS:
Pl - 0: check XI and RI
- 1: ckeck XI
- 2: check RI

TEST_NO - test number in which error occurred.

G G G G G D VD D G0 G G G VD V) VD VD G ) 1) 10 TN TR IR TN e e e e e o e e o o o o e o o o e o o ot ot ot ot i
N0 IO D O

IS
T
T
DR DI DI T
D
I

e
e
e
.. & -

.'--““-““fi.‘““~.....'.l-.’u.‘“.’.‘"““’..‘.‘““.‘.‘.‘.‘.‘. Lol B

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CMO DEQNA FUNCTIONAL TEST
OBAL ROUTINE - CHK_RIXI_STATUS ( P1 )

ZANA4
V01.0

Tee

!
!

CHECK TRANSMIT INTERRUPT REQUEST BIT ( XI - BIT 7 ) TO VERIFY THAT DEQNA
ACTUALLY COMPLETED TRANSMISSION OF A LOOPBACK PACKET.

IF.(ENPIEIUO)(R(PIEIUI)
DCRDI!XFRMOTOTD(ZLIHITDO

IF GET_BIT [ CSR,

] EQLU ONE

BEGIN
TEMP1 = . INDEX;
EXITLOOP;
END
ELSE

IF .INDEX EQLU TIME3_LIMIT
THEN
BEGIN

CSRWORD = §§an'tamau.1

oIS
¢ reee

o ERROF (0004,
P09 Cakoo, ERRORSREPORT
);
PRINTB
(
H

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZQNAEO DEQNA FUNCTIONAL TEST

R WWWWWWWNDNNDWWWWND
DN WD DD

[

Lol L

—"

)
( P1 S
GLOBAL ROUTINE - CHK_RIXI_STATU

SEQ 237

DISK2: [SCODA.QNA.ZGNAJZQNA4 .BLI:1

CHECK RECEIVE INTERRUPT REQUEST BIT ( RI - BIT 15 ) TO VERIFY THAT DEQGNA
ACTW.LY RECEIVED TRANSMITTED LOOPBACK PACKET.

2)
0 ) OR ( .P1 EQLU
IFT'SE'.‘Pl EQLU
INCR INDEX FRO!OTOTIIEZLIHITDO

IF GET_BIT [ CSR, RI ) EQGLU ONE
THEN

BEGIN
TEMP2 = .INDEX;
EXITLOOP
END
ELSE

IF .INDEX EQLU TIME2_LIMIT
THEN
BEGIN

ER-UORD
GET'BIT [ CSRLALL 1:
PRINTB ( MSGS9 ):

PRINTB ( MSG29 ).

¢ MSG25 );

END;

000000G

000010
000022

000001
0000006
000016

000114

VAX-11 Bliss-16 V4.0-579

000000G
002000
000001 0000006
000016 000002
000002 0000006
0000006

000001

.SBTTL

CHK.RIXI.STATUS GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 )

CHK .RIXI.STATUS::
R1, $SAVE3
JSR

#10,5P
22(5P).R2

SUB
MOV

1$:
24:

3$:

R3
R2
18
R3
2%
R2,81
64
R1

CLR
TST
BNE
INC
B8R
cHP
BNE
CLR

MOV
MOV

TSTB

4s:

BPL
ggv
%
MOV
MOV
MOV
MOV

MOV

REG. ADR, RO
16(R0), (SP)
(SP)

43
as%.mm
R1, #2000
#1,ERR.FLAG
16(R0),2(SP)
2(59) ¢SR,
oMSG59, -(SP)

#1,-(SP)

ST T, | SRS

1807
Pl,*

1836

INDEX

1838
1839

#,TMP.LOCATION

TMP.LOCATION

INDEX,
*

INDEX,
#
*, TMP . LOCATION
TMP.LOCATION, *

1842
1841
1846

1849
1850

1851

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZQNAEO DEQNA FUNCTIONAL TEST

GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 )
000000G
000001

MOV

TRAP

0000006
000001

TRAP
TRAP

S$:
6$:

000000G
000016 000004

9¢:

000001
000016
000001

000001

000000G
000006
0000006

EEEEEFEEEFELEELE
L Sl

010600
104414
012716
012746

MOV
TRAP

38% 333

010600
104414
012716
012746

VAX-11 Bliss-16 V4.0-579

DISK2:([SCODA.QNA.ZQNAJZANA4
.BLI;1

y.Ro
14
#MSG29, (SP)

i SP,*

y.m
14

: SP,*

1, -(SP)

#M5G26, (SP)
RO

SEQ 238

1853

; SP,*
1854

; INDEX

; INDEX,*

1848
1838
1862

; INDEX

; *,TMP.LOCATION
; INDEX,*
; INDEX,*

: *, TMP_.LOCATION

; TMP.LOCATION, =

1864
1865

1868
1867
1872

1875
1876
1877

; SP,*
1878

i SP.»
1879

1880

CZQNAEO DEGQNA FUNCTIONAL TEST
GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 )

ZQNA4
v01.0

000334
000336
000340
000342

000005
000000G
000000’
062706 000010

000346 005201

| 000350
| 000354
000356
F 000362
H

020127
003717
062706
000207

; Routine Size:

10$:

002000

11$:

000010

122 words,

Routine Base:

; Maximum stack depth per invocation:
s

13
1883

14 words

.WORD
.WORD
.WORD
ADD

INC

TMP
BLE
ADD
RTS

AC$CODES$ + 1262

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

SEQ 239

DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

INDEX
INDEX, *

Sens

1874
1864

1807

== PO G G G G G D D D D D D NI AL D D PO D PO D DD N B e et et s o e e o o o o

WS B

SE W

S0 B

BE B0 B

S0 B0 B

B8 B

S5 B

B8 S

S0 B

S5 S8 SE B

000010
000012

SEQ 240

DISK2:[SCODA.QNA.ZQNA]ZQNA4
.BLI;1

Page

20
(12)

GLOBAL ROUTINE CHK_CSR_STATUS ( P1, P2 ) : NOVALUE
CHK_CSR_STATUS

GLOBAL ROUTINE :
DESCRIPTION:

This routine checks CSR status words for expected status.
INPUT PARAMETERS:
ted CSR status

Pl - e

P2 -

mask

TEST_NO - test number in which error occurred.

BEGIN
Yoo

SAVE CSR, RESET TRANSMIT AND RECEIVE REQUEST BITS IN THE CSR

DELAY ( 5 );

CSR_WORD = GET_BIT [ CSR_ALL J;
PUT_BIT [ CSR, RI, ONE }:
PUT_BIT [ CSR, XI, ONE

TEMP1 = .CSR_WORD AND .P2;
IF_.TEMP1 NEQU .P1
THEN

= ONE
‘Geg FLAG( MSGS9
PRINTB

PRINTB ( MSG12,

ERRDF

END;

( 0006,

.TEMP1,

.P1 );

REPORT );

.SBTTL CHK.CSR.STATUS GLOBAL ROUTINE - CHK_CSR_STATUS ( P1, P2 )

CHK.CSR.STATUS::

010146

024646
012701
001410
013700

VAX-11 Bliss-16 V4.0-579

%SBTTL ‘GLOBAL ROUTINE - CHK_CSR_STATUS ( P1, P2 )’

Be BF S8

86 9

s o o o o o ot ot

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - CHK_CSR_STATUS ( /1, P2 )

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

000005
000000G

1%:

MOV
cMP
MOV
BEQ

MOV

R1,-(SP)
-(8P),-(sP)
#5,R1
43

L$DLY,RO

1886

; %, $8TMP2
H

t.“T"’l

1910

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZANAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - CHK_CSR_STATUS ( P1, P2 )

000010
0000006
000000G 000012

000001 000000G
0000006
000001

000003

000166
000170

104414
104455
000006
000000G
000000’
062706 000012
022626
012601
000207

S5§:

1929

WORD
ADD
cHP
MOV
RTS

;

>89

g’ ~

1912

Routine Base:
ACS$CODE$ + 1646
; Routine Size:
; Maximum stack depth per invocation: 10 words

;1928

$3TMPL,»

i $8TMP2

TRAP
MOV
MOV
MOV
MOV
MOV
TRAP
TRAP
WORD

000016

DISK2:[SCODA.QNA.ZQNA]ZQNA4
.BLI;1

4%:

SEQ 241

i $sTMP

9@6

0000006
000016

2(SP)
RO,2¢

3$:

BEQ
CLR
S08
DEC
BR
MOV
ADD
MOV
MOV
BIS
MOV
MOV
coM
BIC
CcMP
BEQ
MOV
MOV
MOV

%305’

24:

000002

VAX-11 Bliss-16 V4.0-579

*,TMP_.LOCATION

; CSR.WORD,
*

1915
1917

1919

; P2,*

t,Pl

1922
1923

1924

1925

1921
1886

CZQANAEO DEGNA FUNCTIONAL TEST

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

%SBTTL ‘GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 )’

GLOBAL ROUTINE CHK_XMIT_STATUS ( P1, P2 ) : NOVALUE
GLOBAL ROUTINE :

CHK_XMIT_STATUS

DESCRIPTION:

This routine checks transmit status words for expected status.
INPUT PARAMETERS:
P1

- XMIT flag word

- expected XMIT status word 1

TEST_NO - test number in which error occurred.

N PO TV PO PO PO PO PO PO N RO N
NN AL DN N N NV NN N N G NN
O

BEGIN
oo

!
E

MASK OUT DON'T CARE BITS IN THE XMIT FLAG WORD AND COMPARE TO EXPECTED
g?}gugI'.AG STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT FLAG WORD

TEMP2 = XMIT_D_LIST [ FLGWD ] AND XFLG_MASK;

! 0'140000'

IF_.TEMP2 NEQU .P1
THEN

BEGIN
ERR_FLAG = ONE;

CSR_WORD = GET_BIT [ CSR_ALL J;
PRINTB ( MSGS9 );
PRINTB ( MSG13, .TEMP2, XFLG_MASK );

EN)EW ( 0007, MSGOO, ERROR$REPORT );
i

Yoo

!
!

MASK OUT DON'T CARE BITS IN THE XMIT STATUS WD1 AND COMPARE TO EXPECTED
XMIT STATUS WD1. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT STATUS WORD 1’

IF_.XMIT_D_LIST [ STWD1 ] GTRU ZERO
THEN

EL;EPPS = XMIT_D_LIST [ STWD1 ] AND NXWD1_MASK

! 0'157400'

TEMP3 = XMIT_D_LIST [ STWD1 ] AND X1_MASK;

! 0'100000'

IF .TEMP3 NEQU .P2

SEQ 242

DISK2:[SCODA.QNA.ZQNA]ZGNA4 .BLI;1

0 10 ot et s et ot o o o ot et et e e et e ot

GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 )

27-Mer-1986 07:37:39

Page

(13)

013737

023766
001437
012737
013700
016016
011637
012746
012746
010600
104414
012716
012746

BEGIN

ERR_FLAG = ONE;

csauoao GET BIT [ CSR_ALL J;

PrINTS¢ nss12 )'T P2 21

. Ehnin

END;

000000G 000000G

.SBTTL

CHK.XMIT.STATUS GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 )

MOV
BIC

LIST TEMP2
XMIT.6
837777. TEMP2

;

MOV
MOV
MOV
MOV

REG. ADR RO
16(R0), (SP
(SP) céa
MSGS9

;
; %, TMP.LOCATION
: THP.LOCATION,#*
;

u«.mrbsgnus

037777 0000006

%
MOV

000000G 000010
000001 000000G

000000G
000016
0000006
0000006

01.-(5#)
SP,RO

MOV
MOV
MOV
MOV

#-40000, (SP)
TEMP2, -(SP)
oMSG13, -(SP)
#3,-(5P)

TRAP

140000
000000G
0000006
000003

000012

0000106
000000G
020377 0000006

14:

0000006

2%:

000000G 000006

38:

077777 000000G

000001 000000G
0000006
000016 000002
000002 0000006
0000006
000001

Iswa,ioCsP)
#1,ERR.FLAG

MOV

000001

1932
1959

; *,P1
;

1961
1964
1965
1966

;: SP,*

;

1967

MOV

SP.RO

; SP,*

TRAP
JMORD
"WORD

55
7
MSGOO

;

1968

;

1963
1976

;

1978

no TEMP3

1976
1980

gela

1?93.6(9)

; *,P2

1982

MOV
MOV
MOV
MOV
MOV
MOV

#1,ERR.FLAG
REG.ADR,
16(R0),2(SP)
SR
. WORD
2(SP),C
#MSG59, -(SP)
#1,-(SP)

;
;
: %, TMP.LOCATION
: THP.LOCATION,*
;

1985
1986

TRAP

SEQ 243

VAX-11 Bliss-16 V4.0. ZGNA ZW BLI;1
DISK2: [SCODA.QNA

THEN

WO
RO

WWND

CZQNAEO DEQGNA FUNCTIONAL TEST
GLOBAL ROUTINE- CHK_XMIT_STATUS ( P1, P2 )

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

-WORD

ADD

@é
MOV
g'I!c

MOV
BIC

momt

m'fD.LIST+10,R0
026377TEPPS
877777, TEWP3

;

1987

f
L3
010600
104414
016616
013746
012746
012746
010607
104414

000012

0000006
0000006
000003

104455

000272

000274

000010
0000006
000000
062706 000012
022626

000207

4%:

355885333333833

CZANAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 )

ZQANA4
v01.0

RTS

VAX-11 Bliss-16 V4,0-579

DISK2: [SCODA.QNA.ZQNAJZQNA4 .BLI;1

Page

(13)

H 90‘

; P2,*

1988

H SP,‘

1989

H
P

1984
1932

MSGOO

ERROR$REPORT
#12,SP

(SP)+,(SP)+

Routine Base: AC$CODE$ + 2040
; Routine Size: 95 words,
9 words
invocation:
per
; Maximum stack depth

1
;1993
1
4
199
;

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZQNAEO DEQNA FUNCTIONAL TEST

DAV

NN DD D N N D N N R N G GO GGG

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

GLOBAL ROUTINE CHK_RCV_STATUS ( P1, P2 ) : NOVALUE
GLOBAL ROUTINE :

CHK_RCV_STATUS

DESCRIPTION:

This routine checks receive status words for expected status.
INPUT PARAMETERS:
P1

- expected RCV flag

word

- expected RCV status word 1
P2
TEST_NO - test number in which error occurred.

BEGIN
Tee

!
5

MASK OUT DON'T CARE BITS IN THE RCV FLAG WORD AND COMPARE TO EXPECTED
'S‘%‘AlT&,G STATUS. IF STATUS NOT EQUAL THEN PRINT ’‘BAD RCV FLAG WORD

TEMP1 = .RCV_D_LIST [ FLGWD ] AND RFLG_MASK;

! 0'140000'

IF _.TEMP1 NEQU .P1
THEN
BEGIN

ERR_FLAG = ONE;

CSRTMWORD = GET BIT [ CSRALL 1

PRI ¢ IRE12 Vo arLE ISK )

£,ERROF (0003, HSG00. ERRORSREPORT )i
H

Tse

!
!

MASK OUT DON'T CARE BITS IN THE RCV STATUS WD1 AND COMPARE TO EXPECTED
RCV STATUS WD1. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV STATUS WORD 1’

IFT FéRgV_D_LIST [ STWD1 ] GEQU ZERO

EL;EFPZ = _RCV_D_LIST [ STWD1 ] AND R2_MASK
TEMP2 = .RCV_D_LIST [ STWD1 ] AND .P2;

! added for error bits qualified by bit 12 (discard)

! 0'174017'

SEQ 245

4
.BLI;1
DISK2: [SCODA.QNA.ZQNA]ZANA

%SBTTL ‘GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 )'

PO PO PO PO N N PO MO RO D 0 10 =t b = ot o e et e o s et b ot o o ot ot

GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 )

27-Mar-1986 07:37:39

Poge

areY

N3
TEMP3 = .TEMP2 AND %0'10000’;
IF .TEMP3 EQLU %0'0’

'IS BIT 12 (DISCARD) SET

GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 )
THEN

BEGIN

000026

016016

011637
012746
012746
010600
104414
012716

013746

012746
012746
010600
104414

IPUT FINAL DATA IN TEMP2

g:g’a = .TEMP3;
H

! end additions

IF .TEMP2 NEQU .P2
THEN

BEGIN
ERR_FLAG = ONE;

CSRTMWORD = GET_BIT [ CSR_ALL 1;

PRINIE
¢ n2cte. ' tew2, P2 )
ERRDF C 0010, MSG0O, ERRORSREPORT );

END;

.SBTTL CHIK.RCV.STATUS GLOBAL ROUTINE
CHK.RCV.STATUS::

- CHK_RCV_STATUS ( P1, P2 )

000000G 000000G
037777 000000G

cHP
MOV
BIC

-(SP),-(SP)
RCV.D.LIST, TEMP1
837777, TEMPL

000001 000000G
000000G
000016
0000006
0000006
000001

MOV
MOV
MOV
MOV
MOV
MOV

#1,ERR.FLAG
REG., ADR, RO
16(R0), (SP)
(SP),CSR, WORD
#MSG59, - (SP)
#1,-(SP)

;
;
;; *,TMP.LOCATION
;; TMP.LOCATION,*
;

TRAP

000000G 000010

g:i;

MOV

140000
0000006
000000G
000003

104455

000012
0000106
000000G
003774 000000G
013737 000000G 000000G

#-40000, (SP)
TEMP1, -(SP)
oMSG15, -(SP)
#3,-(5P)

TRAP
TRAP
JMORD
- WORD

14
55
11

"WORD

1%:

Isrm.m(sp)

MOV
MOV
MOV
MOV

MOV

000011

706

IMASK BITS QUAL BY BIT 12

TEMP3 = .TEMP2 AND %0'177400';

024646

013737
042737
023766
001437
012737
013700

246

ADD
MOV
MOV
BIC

MOV

SP.RO

ERROR$REPORT

.SP
RCV.D.LIST+10,RO0
RO, TEMP2
#3774, TEMP2

TEMP2. TEMP3

;

1997
2023
*,P1

2028

; SP,*

;

;
;

;
;
:
;

S
Y

D PO
ML PO N N I
PO
=210 PO G G O G GG

W
BE B
e
B
B
S
R
B
R
RS B
R
B
S
W
RS W
WS W
W

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

£ 28R

ZQANA4

v01.0

ggéfi%{'[g&i”-16 V4.0ODA.QNA
. ZGNA JZQNA4 .BLI ;1

CZQNAEO DEQNA FUNCTIONAL TEST

| B4

CZQNAEO DEGNA FUNCTIONAL TEST
GLOBAL ROUTINE- CHK_RCV_STATUS ( P1, P2 )

ZGNAS
v01.0

000150

042737

167777

BIC

0000006

000156 001011
000160 013737 000000G 000000G
000377 0000006
000166
000174 013737 000000G 0000006
000202 023766 000000G 000006
000210 001441
000212 012737 000001 0000006
013700 0000006
000220
000224 016066 000016 000002
000232 016637 000002 0000006
000240 012746 0000006
000244 012746 000001
000250 010600
000252 104414
000254 016616 000012
| 000260 013746 000000G
000264 012746 0000006
000270 012746 000003
000274 010600
000276
000300
000302
000304
000306

24:

104414
104455
000012
0000006
000000’

38:

000207

i Routine Size:

104 words,

Routine Base:

; Maximum stack depth per invocation:

1
2069

BNE
MOV
8IC
MOV
cHP
BEQ
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
MOV

TRAP
TRAP
LMORD
-WORD
'WORD

000310 062706 000012
000314 022626
000316

—

9 words

ADD
cHP
RTS

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZGNA4
.BLI ;1

9167777, TEMP3

$
TEMP2, TEMP3
9377, TEMP3
TEMPS, TEMP2
rava 6(SP)
1,ERR.FLAG
ADR, RO
nsé
16(R0),2(SP)
2(SP),CSR, WORD
9,-(5P)
#1,-(SP)
SP,
14
12(SP),(SP)
TEMP2, -(SP)
#MSG16, - (SP)
#3,-(SP)
SP,
14
S5
12

SEQ 247

Page

27
(14)

2049
2052
*,P2

%, TMP.LOCATION
TMP.LOCATION, =

2053
2058
2061
2062

2063

SP,*
P2,*

SP,*

ERRORSREPORT

SP
(SP)+,(SP)+

ACSCODE$ + 2336

1997

27-Mar-1986 07: 37:39
26-Mar-1986 17: 01:05

VAX-11 Bliss-16 V4.0-579

GLOBAL ROUTINE CHK_RX_LPSTATUS ( P1, P2 ) : NOVALUE
CHK_RX_LPSTATUS

GLOBAL ROUTINE :
DESCRIPTION:

This routine checks receive status words for expected status.
INPUT PARAMETERS:
P1
P2

- expected RCV flag
- expected RCV sta

word
word 1

TEST_NO - test number in which error occurred.

does not set in loop mode
added because discard
BEGIN
LY

MASK OUT DON’'T CARE BITS IN THE RCV FLAG WORD AND COMPARE T

ggXTFwE.fiSTATUS.IFSTATlBIOTEMMPRN 'BAD RCV FLAG WORD

Rice

TEMP1 = .RCV_D_LIST [ FLGWD ] AND RFLG_MASK;

! 0' 140000’

IF .TEMP1 NEQU .P1
THEN
BEGIN

EoRHORD
= GET'BIT
[ CSRALL
):
PRINTB ( MSG59
);
E
PRINTB ( MSG1S5,

END
Yoo

!
!

MASK OUT DON'T CARE BITS IN THE RCY STATUS WD1 AND COMPARE TO EXPECTED
RCV STATUS WD1. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV STATUS WORD 1'

leow

IF_.RCV_D_LIST [ STWD1 ] GEQU ZERO

EL'[!EH’Z = _RCV_D_LIST [ STWD1 ] AND R2_MASK
TEMP2 = .RCV_D_LIST [ STWD1 ] AND .P2;

! 0174017

SEQ 248

DISK2:[SCODA.QNA.ZGNA]ZGNA4
.BLI;1

%SBTTL ‘GLOBAL ROUTINE - CHK_RX_LPSTATUS ( P1, P2 )’

IR IR IS IS IR IS IS IS I I® eI i® TM -

N D O O D PO PO RO D PO RO N 50 50 s e e o s e e o o s o o o e e o e e e s et
AN NN D DN N N N D G G G G G

ERRREERERLE
LU A EERRERERRS

."““““~“-~“.‘.fl".‘.‘-.‘.’.’".....“.-.‘..“...‘..'Q.I..“...‘.......‘....“..“.l‘l.t..fl“

—

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - CHK_RX_LPSTATUS ( P1, P2 )

Page

28
(15)

RN WWWWWWDN
NN

CZQGNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - CHK_RX_LPSTATUS ( P1, P2 )

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

IF_.TEMP2 NEQU .P2
THEN

BEGIN
ERR_FLAG = ONE;

CSR_WORD = GET_BIT [ CSR_ALL ];
PRINTB ( MSGS9 ) H
PRINTB ( MSG16, .TEWP2,

.P2 )

ERRDF ( 0010, MSGOO, ERRORSREPORT );

END;
END;

_SBTTL

CHK.RX.LPSTATUS GLOBAL ROUTINE - CHK_RX_LPSTATUS ( P1, P2 )

037777 0000006

cHP
MOV
BIC

-(SP),-(SP)
RCV.D.LIST, TEMP1
937777, TEMP1

;
;

2072
2101

1?91.10(59)

; #,P1

2103

000001 000000G
0000006
000016
0000006
0000006
000001

MOV
MOV
MOV
MOV
MOV
MOV

#1,ERR.FLAG
REG. ADR, RO
16(R0), (SP)
(SP),CSR, WORD
oMSGS9, -(SP)
#1,-(SP)

;
;; #,TMP.LOCATION
; THMP.LOCATION,*
:

2106
2107

TRAP

CHK.RX.LPSTATUS:: :
013737

000000G 000000G

gela

000000G 000010

012716

SEQ 249

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNA]ZQNA4
.BLI;1

140000
0000006
000000G
000003

MOV
MOV
MOV
MOV
m

TRAP
TRAP
JMORD
"WORD

000012
0000106
000000G

003774 000000G

000000G 000006

000001 000000G
0000006
000016 000002
000002 000000G
0000006
000001

'WORD

1%:

ADD
MOV
MOV
8IC

&la

MOV
MOV
MOV
MOV
MOV
MOV
mV

y.m

H yo.

#-40000, (SP)
TEMPL, -(SP)
#MSG15, -(SP)
83, -(5P)

;

14
55
11
MSGOO

ERROR$REPORT

#12,5P
RCV.D.LIST+10,R0
RO, TEMP2
#3774, TENP2

27992. .6(SP)

#1,ERR.FLAG
REG. ADR, RO
16(R0),2(SP)
2(5P), (SR, WORD
#MSG59, -(SP)
#1,-(SP)
SP.RO

2108

2109

H yl.
;

2110

;
;;

2105

2118
2120

; P2

2125

:
;
; *,TMP.LOCATION
: TMP.LOCATION,*
;

2128
2129

H y-‘

2130

E4
CZQNAEO DEQGNA FUNCTIONAL TEST

ZQNA4

GLOBAL ROUTINE - CHK_RX_LPSTATUS ( P1, P2 )

V01.0

27-Mer-1986 07:37:39

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

SEQ 250

A4
.BLI;1
DISK2:[SCODA.QNA.ZQGNAJZQN

Page 30

(15)

; P2+

MOV

SP,RO

; SP,*

000240 104455

TRAP

;

2132

000250 062706 000012
000254 022626

ADD
cHP

#12, 5P
(SP)+,(SP)e

;
;

2127
2072

000212

104414

000214
000220
000224
000230

016616
013746
012746
012746

000236

104414

000234 010600

000242
000244
000246

000012
0000006
000000’

000256

000207

; Routine Size:

TRAP

MOV
MOV
MOV
MOV

000012
0000006
0000006
000003

TRAP

88 words,

28:
Routine Base:

; Maximum stack depth per invocation:

213

9 words

w(sp).(spg
TEMP2,-(.P
#MSG16, -(SP)
3, -(SP)
14

LWORD
'WORD
"WORD

12
MSGOO
ERROR$REPORT

RTS

ACS$CODE$ + 2656

2131

27-Mar-1986 07:37:39

CZQNAEO DEQNA FUNCTIONAL TEST

26-Mar-1986 17:01:05

%SBTTL ‘GLOBAL ROUTINE - COMPARE_PACKETS ( )’

T T

GLOBAL ROUTINE COMPARE_PACKETS : NOVALUE =
COMPARE _PACKETS

GLOBAL ROUTINE :
DESCRIPTION:

This routine compares contents of transmit packet to the contents
of receive packet and prints an error message if the don’'t compare.

N G O G Gl G Gl G D) VD VD G G G G N G PO PO PO PO D GO D POV PO TV PO D TV PO O PO PO TO PO D 12 1 10 1 e et ot e et o e ot et s

GLOBAL ROUTINE - COMPARE_PACKETS ( )

VAX-11 Bliss-16 V4.0-579

DISK2:([SCODA.QNA.ZQNA]ZGNA4
.BLI;1

BEGIN
oo

!
!

GET RECEIVE BYTE LENGTH ( RBL ) FROM RCV DISCRIPTOR AND COMPUTE WORD
LENGTH. THEN COMPARE ACTUAL TO EXPECTED RCV WORD LENGTH.

TEMP3 = 0;

IFT%_BIT [ CSR, LB ] GTRU ZERO

TEMP3 = .RCV_D_LIST [ STWD1 ] AND RHL_MASK;
IF ¢ .CSR_WORD AND %0'01’

) EQLU ZERO

Eims = .TEMP3 » C .RCV_D_LIST [ STWD2 ] AND RLL_MASK )
TEMP3 = 6;

IF .TEMP3 NEQU .RBUF_LENGTH
THEN
BEGIN

B WORD = oFT'BIT [ CSRLALL )
PRINTE ¢ Hog7. J'TEMP3. .RBUF_LENGTH )
.

ERRDF
( 0011, MSGOO, ERRORSREPORT
J;
H

INCR INDEX FROM O TO .TEMP3
- 1 DO

IFIT;BCV_D_LIST [ STWD1 ) EQLU NEWB
RCV_BUFFER [ .INDEX ] = ZERO;

IF_XNIT BUFFER [ .INDEX ) NEGU .RCV_BUFFER [ .INOEX )
IF .RCV_D_LIST [ LONGP ] EQLU ONE
THEN

! 0'003400'

! 0'000377'

Page

(16)

27-Mer-1986 07:37:39
26-Mar-1986 17:01:05

FPOWELERLELANLLLL

°
~

CZQGNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE- COMPARE_PACKETS ( )

SEQ 252

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZQNA4
.BLI;1

G
= ONE;
ERR_FLA

CSR_WORD =GETBIT[CSRALL]:
9 );
PRINTB
(HSGSI)

PRINTB ( MSGS0, .RCV_BUFFER [ .INDEX ], .XMIT_BUFFER [ .INDEX ],
ERRDF ( 0012, MSGOO, ERROR$REPORT );

.INDEX );

END;

.SBTTL

COMPARE.PACKETS GLOBAL ROUTINE - COMPARE_PACKETS ( )

JSR
cHP
CLR
MOV
MOV

R1, $SAVE2
-(5P),-(SP)
TEMP3
REG. ADR,RO
16(R0), -(SP)

;
;
;
: *,TMP.LOCATION

2139

MOV
BIC
BIT
BNE

RCV.D.LIST+10, TEMP3
#174377, TEMP3
#1,CSR. WORD
24

;
;

2162

2166

ADD
MOV

R1, TEMP3
3¢
26, TENP3

;

2164
2168
2170

MOV

sm FLAG

;

TION
: %, TMP.LOCA
ATION,

2173
2174

;

2176

COMPARE .PACKETS: :

000016
001400

000010G 000000G
174377 000000G
000001 000000G

1%:

CLR
BISB

000012G

000006 000000G
000000G 000000G

000001
000016
000002

0000006
000001

000000G
000002
000000G

28:
34:

greia

MOV

MOV
MOV
MOV
MOV

TRAP

000003

MOV
MOV
MOV
MOV
mv

TRAP
TRAP
JMORD
-WORD

fiwo.tsp)

R1
RCV.D.LIST+12,R1

Tms RBUF .LENGTH

2(SP)
tao)
SP),CSR,

msss #1,-(SP)
SP.RO
14
RBUF . LENGTH, (SP)
TEMP3, -(SP)

#MSG17,-(SP)
#3,-(5P)
ylao
14
55
13

2158
2160

: %.TMP.LOCATION

: TMP.LOC
:
; SP.*

2164

2175

H 9.‘
;

2177

H4
CZQGNAEO DEGNA FUNCTIONAL TEST
GLOBAL ROUTINE- COMPARE_PACKETS ( )

ZQNA4
V01.0
000176
000200

000000
062706 000012

000210
000212
000214
000222

005001
000474
023727
001002

000204 013702 0000006
000010G 100000

000224 105061 000000G
000230 126161 000000G 000000G
000236 001461
000240 032737 040000 0000106
000246 001403
000250
000254

000256
000264
000270
000276
000304
000310

010137
000455

012737
013700
016066
016637
012746
012746

000314
000316
000320

010600
104414
012716

000330
000332
000334

010600
104414
010116

000340
000344
000346
000352

116116
005046
116116
012746

000000G

000001 0000006
000000G
000016 000004
000004 000000G
0000006
000001

44:
5%:

64:

7%:

0000006

010600
104414
104455
000014
000000G
000000’

000402
000404

005201
020102

000410
000414

062706
000207

000406 002702

0000006
0000006

: Routine Size:

000006

135 words,

R1
9%
RCV.D.LIST+10, #-100000
64

CLRB
CMPB
BEQ
BIT
BEQ
MOV
BR

MOV
MOV
MOV
MOV
MOV
MOV

10$:

Routine Base:

15 words

R1,TEMPS
104

#1,ERR.FLAG
REG.ADR,RO
16(R0),4(SP)
4(SP),CSR, WORD
#MSG59, -(SP)
#1,-(SP)

*( INDEX)

*(INDEX), *(INDEX)

*
INDEX,

*,TMP .LOCATION

TMP.LOCATION, *

SP,RO
14
R1,(SP)

SP,*

MOVB
CLR
MOVB
MOV

XMIT.BUFFERCR1),(SP)
-(SP)
RCV.BUFFER(R1),(SP)
#MSGS0, - (SP)

*(INDEX),
*

MOV
TRAP
TRAP
JMORD
-WORD
"WORD

SP,RO
14
S5
14

SP,*

ADD
INC
P

BLT

ADD
RTS

-(5P)

#4,-(SP)

ERRORSREPORT

2184
2186

2188

MOV
TRAP
MOV

#1,-(SP)

*18)

2182

SP,*

MOV

8s:
9%:

TEMP3,R2

ncv BUFFER(R1)
XMIT.BUFFER(R1),RCV.BUFFER(R1)
as
$40000,RCV.D.LIST+10
74

Page

2172
2180

SP,RO
14
#MSG51, (SP)

CLR

0000006

000376 062706 000016

CLR
BR
CHP
BNE

MOV

000356 012746 000004
000362
000364
000366
000370
000372
000374

ERROR$REPORT
#12,5P

MOV
TRAP
MOV

012746 000001

000336 005046

_MORD
ADD

MOV

SEQ 253

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

2191

2196
2197
2198

2199

INDEX,*

*(INDEX),
*

2201

#16,5P

2195
2180

2139

R1
R1,R2

26,5P
PC

AC$CODE$ + 3136

14
CZQNAEO DEQNA FUNCTIONAL TEST

ZQNA4

GLOBAL ROUTINE - SET_RDESCR_LIST ( P1, P2)

v01.0
3

:
:
s

‘5‘%

2EE

22220910 i
221l 1

giz

;

2216

;2219 1

gi;

A
:

O
gzzgg i

;
;

2224
2225

;.
;.

3
;.
;
:
;.
;i
;.
3

;.
;.

2226
2227

2228
2229
2230
&
2232
2233
2234
2235

2236
2237

1
1

2
2

2
2
2
2
2
2
2
2

2
1

GLOBAL ROUTINE :

SET_RDESCR_LIST

This routine initializes receive descriptor list.

INPUT PARAMETERS:

Ethernet packet length in wWorwords
@
P1 -- expected
P2 - expected RCV Descriptor List utéingo

.S
:
'

f--

BEGIN

RCV_D_LIST [ FLGWD
RCV_D_LIST [ DBITS
RCV_D_LIST [ LOADR
RCV_D_LIST [ TWOL
RCV_D_LIST [ STWD1
RCV_D_LIST [ STWD2
RCV_D_LIST [ DLINK
RCV_D_LIST [ BSTAT

= NEWB;
= _P2;
= RCV_BUFFER;
= P1;
= 0;
= 0;
=V;
= E;

END;

.SBTTL

SET.RDESCR.LIST GLOBAL ROUTINE - SET_RDESCR_LIST ( P1, P2)
#-100000,RCV.D.LIST
2(SP),RCV.D.LIST+2

:
; P2,%

4(SP),RCV.D.LIST+6

SET.RDESCR.LIST::

000000

012737

100000

000000G

000006

016637

000002

000002G

MOV
MOV

016637

000004

000006G

MOV

000040

012737

100000

000014G

000054

000207

000014 012737 000000G 000004G
000030 005037 000010G
000034 005037 000012G

23 words,

#RCV fiFFER.RCV.O.LISToQ

CLR
CLR

RCV.D.LIST+10
RCV.D.LIST+12

; Pl,*
:
:

#20000,RCV.D.LIST+16

MOV
RTS

Routine Base:

Maximum stack depth per invocation:
2238
1

MOV

000046 012737 020000 000016G
; Routine Size:

DISK2: [SCODA.QNA.ZQNA JZQNA4 .BLI;1

i DESCRIPTION:

SEQ 254

GLOBAL ROUTINE SET_RDESCR_LIST ( P1, P2 ) : NOVALUE =
fee

5515 1

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

%SBTTL 'GLOBAL ROUTINE - SET_RDESCR_LIST ( P1, P2)’

27-Mar-1986 07:37:39

0 words

#-100000,RCV.D.LIST+14

AC$CODE$ + 3554

Page

J4
ZQNA4

26-Mar-1986 17:01:05

GLOBAL ROUTINE- SET_XDESCR_LIST ( P1, P2 )

v01.0
:

27-Mar-1986 07:37:39

CZQNAEO DEQNA FUNCTIONAL TEST

ggzg

#SBTTL 'GLOBAL ROUTINE - SET_XDESCR_LIST ( P1, P2 )'

g:%

GLOBAL ROUTINE SET_XDESCR_LIST ( P1, P2 ) : NOVALUE

3
;.

2243
2244

1
1

fee
!

:
3

2245

2247

;

2246
2248

;2249
;i

2250

2251

;
;

2253
2254

2252

1
1

1
1
3

;
;
;
;
;.

2255
2256
&
2259

;
;.
;
;
;.
;
;.

2261
2262
2263
2264
2265
2266
2267

2
2
2
2
2
2
2

;
;.

2258

2260

2268
2269

000000

2
1

012737

GLOBAL ROUTINE :

DESCRIPTION:

VAX-11 Bliss-16 V4,0-579

DISK2:[SCODA.QNA.ZQNA]ZQNA4 .BLI;1

SET_XDESCR_LIST

This routine initializes transmit descriptor list.

:
!

INPUT PARAMETERS:

!
!

!
1--

Pl - expected Ethernet packet 1
P2 - expected XMIT Descriptor List

h in words
settings

BEGIN

XMIT_D_LIST [ FLGWD ] = IEEB:

XMIT_D_LIST [ DBITS ] = +
XMIT_D_LIST [ LOADR ] = XMIT_BUFFER;
= Pi;
XMIT_D_LIST [ TWDL
XMIT_D_LIST [ STWD1 ] = O;
XMIT_D_LIST [ STWD2 ] = O;
XMIT_D_LIST [ DLINK ] = V;
XMIT_D_LIST [ BSTAT ] = E;
END;

100000

000000G

000006 016637 000002 000002G

.SBTTL

SET.XDESCR.LIST GLOBAL ROUTINE - SET_XDESCR_LIST ( P1, P2 )

MOV

2(5P), XMIT.D.LIST+2

SET.XDESCR.LIST::
MOV
#-100000, XMIT.D.LIST

; P2,

012737
016637

000000G 000004G
000004 000006G

MOV
MOV

000034
000040

005037
012737

000012G
100000 000014G

CLR
MOV

XHIT D.LIST+12
#-100000,XMIT.D.LIST+14

3
; P1,#%
;
:
3

RTS

000030 005037 000010G

000046 012737 020000 000016G

CLR

MOV

OXMIT .BUFFER,XMIT.D.LIST+4
4(SP) XMIT.D.LIST+6

000014
000022

000054 000207

7.0.LIST+i0

$20000, XMIT.D.LIST+16

: Routine Size: 23 words,
Routine Base: AC$CODE$ + 3632
; Maximum stack depth per invocation: 0 words
;s

1
2270

SEQ 255

Page

%18

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mar-1986 07:37:39

26-Mar-1986 17:01:05

%SBTTL ‘GLOBAL ROUTINE - WALKING_BIT ( P1, P2, P3 )’
GLOBAL ROUTINE WALKING_BIT ( P1, P2, P3 ) : NOVALUE
GLOBAL ROUTINE :

WALKING_BIT

DESCRIPTION:

This routine sets bit to O or 1 in a specified bit position of the

Ethernet Station Address. For example,
if

P2=15
=0
and
PL

.P3=5

Ethernet Station Address

FF-FF-FF-FF-7F-FF

INPUT PARAMETERS:
P1 - bit ( 0 or 1)
P2 - bit position from base address

P3 - # of bytes to be tested using this pattern

BEGIN

SELECTONE .P2 OF
SET

7 1)

{

670

[

8TOC .P3+1)=*81]:

TEMP1 = 0;

TEMP1 = P2 / 8;

TES;

TEMP2 = .P2 MOD 8;

IF .P1 EQLU ZERO
THEN

BEGIN

TBYTE3 = lO 001 H

@
a

Buouvsuneo

TBYTEL = #B’'00000000';
SEls.EgTM.TEMP2 OF

TBYTE3 = %0°'200';

SEQ 256

DISK2:[SCODA.QNA.ZQNA]ZQNA4 .BLI;1

*
-

TV OO TV PO PO TV PO PO PO PO PO RO N =0 1= =0 =0 b o o b b o o o ot o o o ot o o o e e e ot o
T
NN NN NN N N

WE W

GE Be VS WE VS VS Ve Ve Ve WS We Ve V6 Ve We

e Ve

e W0 W

WS WE BE W6 VE B

WE B0 B0 B

WE WE B

BE B

BE WE S

BE WE B

Be S5

s W

GLOBAL ROUTINE - WALKING_BIT ( P1, P2, P3 )

VAX-11 Bliss-16 V4.0-579

Page

(19)

210N NV DN N N PO G G O G G O O G G

I
I
DR
D
D
U
L
S
R
I
L
L
L
R
Ll

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

SEQ 257

DISK2:[SCODA.QNA.ZQNA]ZQNA4
.BLI;1

Page

(19)

END
ELSE
BEGIN
TBYTEL = %8’11111111';

saégmc .TEMP2 OF

—

NN W

CZQNAEO DEQNA FUNCTIONAL TEST
- WALKING_BIT ( P1, P2, P3 )
GLOBAL ROUTINE

0
1
2
3
3
5
6

END;

7
ES;

TBYTE3 = %0'376';
TBYTE3 = %0'375';
TBYTES = %0'373';
TBYTES = %0'367";
TBYTES = %0'357';
TBYTE3 = %0'337';
TBYTES = %0'277';

TBYTE3 = %0'177';

INCR INDEX FROM O TO .P3 DO
TARGET_ADR [ .INDEX ) = .TBYTEL;
TEMP3 = .P3 - .TEMP1;

TARGET ADR

[ .TEMP3 ] = .TBYTE3;

END;

0000006

000012
000007
0000006
000010
000010
000003
000010

.SBTTL

WALKING.BIT::
JSR

1$:

000010

0000006
000010
000000G

000014

24:

m}/
cHP
BGT
CLR
BR
cMP
BLT
MOV
ASH
ADD

cMP
BGT
MOV
SXT
DIV
MOV
MOV
SXT
DIV
MOV
MOV
TST
BNE

WALKING.BIT GLOBAL ROUTINE- WALKING_BIT ( P1, P2, P3 )

R1, $SAVE2

{sp)R2
R2.07
1%
TEMPL
24
R2,#10
24
10(SP),RO
#3,R0
#10,R0
R2,RO
2
R2,R1
RO
#10,R0
RO, TEMP1
R2.R1
RO
#10,R0
vu 'ravz

tsp)
1oo

;

: P2,%

2273

;
:
;
; P3,%

2302

;

2304

;

2307

; TEMP2,*

2313
2309

: P1

2301

2303

M4
ZANA4
V01.0

000114
000120
000122
000124
000132
000134
000140
000142
000150
000152
000156
000160
000166
000170
000174
000176
000204
000206
000212
000214
000222
000224
000230
000232
000240
000242
000246
000250
000256
000260
000264
000266
000274
000276
000304
000306
000310
000316
000320

005037
005700
001004
012737
000552
020027
001004
012737
000543
020027
001004
012737
000534
020027
001004
012737
000525
020027
001004
012737
000516
020027
001004
012737
000507
020027
001004
012737
000500
020027
001075
012737
000471
012737
005700
001004
012737
000460
020027

000324 001004
326 012737
000334 000451

000336
000342
000344
000352
000354
000360
000362
000370
000372

CZGNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE- WALKING_BIT ( P1, P2, P3 )

000000G

000001
000001
000002
000002
000004
000003
000010
000004
000020
000005
000040
000006
000100
000007
000200
000377

000000G
0000006

000000G
000000G

000000G
000000G
000000G
000000G
0000006

000376 000000G
000001
000375 0000006
000002
000373 000000G

020027
001004
012737
000442
020027 000003
001004
012737 000367 000000G
000433
020027 000004

000376 001004
000400 012737 000357 000000G

34:
4
5%:
6$

7%:
8¢
9:
108:

118:

124

135:
148:

CLR
TST
BNE
MOV
BR
cMP
BNE
MOV
BR
cMP
BNE
MOV
BR
CMP
BNE
MOV
B8R
cMP
BNE
MOV
BR
CMP
BNE
MOV
BR
cMP
BNE
MOV
BR
cMP
BNE
MOV
BR
MOV
TST
BNE
MOV
B8R
CW

BNE
MOV
BR

cHP
BNE
MOV
BR
CWP
BNE
MOV
BR
CWP

BNE
MOV

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

TBYTEL
34
#1,TBYTE3
184
RO, #1
44
82, TBYTE3
184
:
RO, #2
5$
24, TBYTE3
184
RO, #3
64
#10, TBYTE3
184
RO, 04
74
#20, TBYTE3
184
RO, ®5
#40, TBYTE3
18$
RO, #6
9
#100, TBYTE3
18$
RO, &7
184
$200, TBYTE3
18$
$377,TBYTEL
RO
114
#376, TBYTE3
184
RO, #1
RO

12
#375,TBYTE3
18$

RO, #2
134
$373,TBYTE3
184
RO,#3
144
#367, TBYTE3
184
RO, %4

15
$357, TBYTE3

SEQ 258

VAX-11 Bliss-16 V4,0-579
DISK2:([SCODA.GQNA.ZGNAJZQGNA4.BLI;1

;

Page 38
(19)

2312

2315

;
;

2313
2316

;
;

2313
2317

;
;

2313
2318

;
;

2313
2319

;
;

2313
2320

;
;

2313
2321

;
;

2313
2322

;
;
;

2309
2327
2330

;
;

2328
2331

;
;

2328
2332

;
;

2328
2333

;
;

2328
2334

v01.0

15¢:

000005

000337
001004
012737
000406

000472
000474
000500
000502
000510
000516
000522
000530

020027
001003
012737
005000
000404
113760
005200
020066
003771
016637
163737
013700
113760
000207

: Routine Size:

000000G
164:

000006

000277

000000G
174:

000007
000177

000000G

18¢:

000000G 000000G

19¢:

000010

204
:

000010 000000G
000000G 000000G
000000G
000000G 0000006
173 words,

RTS

Routine Base:

; Maximum stack depth per invocation:
i

2348

gégéfissgsgézsgézssézss

CZQNAEO DEQGNA FUNCTIONAL TEST
- WALKING_BIT ( P1, P2, P3 )
GLOBAL ROUTINE

4 words

27-Mar-1986 07:37:39

26-Mar-1986 17:01:05

VAX-11 Bliss-16
DISK2:[SCODA.

259
79
V
ZGNA ZQANA4 .BLI;1

Pege

2328
2335

184
RO, #5

164

$337,TBYTE3
18%
RO, #6
17
$277,TBYTE3

2328
2336

2328
2337

184

RO, 47

184

$177,TBYTE3
RO
20
;gvt€1.rnas€1.non<n0)

INDEX

2341

*, *(INDEX)

RO,10(SP)

INDEX
INDEX,P3

2342
2341

10(SP), TEMP3

P3,%

2344

194

TEMP1
, TEMP3
TEMP3 .RO

;gYTes.TARGET.ADR(RO)

AC$CODE$ + 3710

2345
2273

27-Mar-1986 07:37:39

CZONAEO DEQNA FUNCTIONAL TEST

26-Mar-1986 17:01:05

GLOBAL ROUTINE :

o 1\ G G G

(20)

DESCRIPTION:

This routine writes Station Address to XMIT_BUFFER.
INPUT PARAMETERS:

P1 - Ethernet Station Address index (1:14) in Station Address RAM
P2 - Ethernet Station Address index ( 0:19 ) in the TARGET_ADR table

TR G G G D D 0 R RO D PO D R0 0 D TR0 TN TR0 ) 1 = e e

R
(7]

Page

WRT_STATION_ADR

TEMPL
= .P2 * 6;

E
.P1 OF
SELECTON
SET

7 ):

[

OTO

[

]:
140
87

TES;

TEMP2 = .P1;

TEMP2 = .P1 + 57;

IF .TEMP2
EQLU ZERO
THEN

INCR INDEX FROM 0 TO S DO
BEGIN

XMIT_BUFFEK[ .INDEX
] = .TARGET_ADR [ .INDEX + .TEMP1 ];

END
ELSE

INCR INDEX FROM O TO 5 DO
BEGIN

TEMP3 = .INDEX * 8 + .TEMP2
XMIT_BUFFER[ .TEMP3
] =
:

"TARGET_ADR[ .INDEX+ .TEMP1
1;

.SBTTL WRT.STATION.ADR GLOBAL ROUTINE - WRT_STATION_ADR ( P1, P2 )

004137

000000G

WRT.STATION.ADR::

000004
000010

016601
070127

000020

016600

000012
000006
0000006
000014

MOV
MUL
MOV
MOV

010137

DISK2:[SCODA.QNA. ZGNA ]ZQANA4 .BLI;1

GLOBAL ROUTINE WRT_STATION_ADR ( P1, P2 ): NOVALUE

000000

000014

SEQ 260

%¥SBTTL ‘GLOBAL ROUTINE - WRT_STATION_ADR ( P1, P2 )’

e o o ot o o o o e ot ot i

GLOBAL ROUTINE- WRT_STATION_ADR ( P1, P2 )

VAX-11 Bliss-16 V4 .0- S79

JSR

R1, $SAVE3

12(53‘; Rl

i P2,s

2351
5370

: P1,»

2372

A
1tsm

V01.0

000024
000026
000032
000034
000042
000046
‘ooooso
000054
000056
000062
000070
000074
| 000076
000100
000102
000106
000114
000116
000122
000124
000126
000130
000132
000136
000140
000144
000146
000152
000160
000162
000166
000170

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - WRT_STATION_ADR ( P1, P2 )

002406
020027
003003
010037
000413
020027
002410
020027
003005
010037
062737
013703
001014
005000
010001
063701
116160
005200
020027
003766
000207
005002
010200
072027
060300
010037
010201
063701
116160
005202
020227
003760
000207

000007

000000G
000010
000016
000000G
000071 000000G
000000G
000000G
000000G 000000G

1$:
2s:

38:

000005

000003
0000006
000000G
000000G 000000G
000005

4
S$:

BLT
P
BGT
MOV
B8R
cHP
BLT
cHP
B8GT
MOV
ADD
MOV
BNE
CLR
MOV
ADD
MOVB
INC
P
BLE
RTS
CLR
MOV
ASH
ADD
MOV
MOV
ADD
MOVB
INC
P
BLE
RTS

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZQNA4
.BLI;1

14
13
RO, TEMP2
2
RO, #10
RO, #16
RO, TEMP2
#71, TEMP2
TEMP2,R3
a$
RO
RO,R1
TEMP1,R1
TARGET.ADRCR1),XMIT.BUFFER(RO)
RO
RO, #5
3¢
PC
R2
R2,RO
#3,R0
R3,RO
RO, TEMP3
R2,R1
TEMPL,R1
TARGET.ADR(R1),XMIT.BUFFER(RO)
R2
R2,05
S$

RO, 87

: Routine Size: 61 words,
Routine Base: ACSCODE$ - 4442
; Maximum stack depth per invocation: S words
;

2393

—*-:

2380
2387

2390

2387

2351

GLOBAL ROUTINE :

DESCRIPTION:

s o

This routine retrives Ethernet Station Address from the Ethernet’'s
Station Address PROM, saves copy of Ethernet Station Address PROM
in the TARGET_ADR vector, initializes transmit and receive buffers
to zero and finally sets buffer length to select promiscuous mode.

e e e et s o o
== D D N

D GGG

N PO D D PO D N B

>
~

DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

PREP_FOR_SETUP

INPUT PARAMETERS:
none

BEGIN
Tee

RETRIEVE ETHERNET PHYSICAL STATION ADDRESS AND SAVE A COPY OF IT IN THE

'TARGET_ADR' VECTOR.

INCR INDEX FROM O TO 5 DO
BEGIN

TBYTEL = .REG_ADR [ .INDEX, ST_ADOR )

TARGET ADR [ T PHA.INDEX # 6 ) o .INDEX ) = .TBYTEL;
H

CLR_BUFFERS ( 256 );
END;

_SBTTL

PREP.FOR.SETUP GLOBAL ROUTINE - PREP_FOR_SETUP ( )

MOV

R1,-(SP)

;

CLR

: INDEX

PREP.FOR.SETUP::

18T

005746

011016
37
111637
111661
00520
020127
003761

VAX-11 Bliss-16 V4.0-579

GLOBAL ROUTINE PREP_FOR_SETUP : NOVALUE

010146

010100
006300

27-Mer-1986 07:37:39
26-Mar-1986 17:01:05

%SBTTL ‘GLOBAL ROUTINE - PREP_FOR_SETUWP ( ) '

s o o

s e o o ot ot

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - PREP_FOR_SETUP ( )

14:

000000G
0000006

0000006
0001626

000005

MOV
ASL
ADD
MOV
CLR
MOVB
MOVB
INC
cHP
BLE

-(5P)

R1,.RO
RO
REG.ADR,RO
(RO, (SP)
T8YTEL
(SP).TB
(SP).TARGET.ADR+162(R1)
R1
R1,95
13

; INDEX,*
; #,TMP.LOCATION
; *,*CINDEX)
: INDEX

: INDEX,#

23%

2421

2423

e
v01.0

012746
004737
022626

MOV
JSR
CMP
MOV
RTS

000400
001234’

012601
000207

; Routine Size:

25 words,

Routine Base:

[ ; Maximum stack depth per invocation:
;
;
;.

2430
2431
2432

1
1
1

4 words

i sptf)reas

l
Tsh5s
SP)e
gflfi

ZQANA4

27-Mar-1986 07:37:39
26-Mer-1986 17:01:05

CZQNAEO DEQNA FUNCTIONAL TEST
- PREP_FOR_SETWP ( )
GLOBAL ROUTINE

AC$CODE$ + 4634

VAX-11 Bliss-16 V4.0-579

SEQ 263

DISK2: [SCODA.QNA.ZQNAJZGNA4
.BLI;1

*(21)
2427
2396

27-Mar-1986 07:37:39

TN DD NN D D G G G G GO D D D D GGG

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNA]ZQNA4
.BLI;1

%SBTTL ‘GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) '

GLOBAL ROUTINE FORM_HEX_ADR ( P3 ) : NOVALUE
*

D PO D D PO TV PO PO PO PO R RO D 10 0 et e e e et o o s ot o e ot ot ot ot ot

CZQONAEO DEGNA FUNCTIONAL TEST
GLOBAL ROUTINE - FORM_HEX_ADR ( P3 )

GLOBAL ROUTINE :

FORM_HEX_ADR

DESCRIPTION:

This routine retrives Ethernet Station Address from the Ethernet's
Station Address PROM, saves its copy in the TARGET_ADR vector.
INPUT PARAMETERS:

P3 - Index to Station Address in the TARGET_ADR vector
BEGIN
Tse

RETRIEVE ETHERNET PHYSICAL STATION ADDRESS AND SAVE A COPY OF IT IN THE
'TARGET_ADR' AND 'STATION_ADR' VECTORS.

IF _.P3 EQLU ZERO

THEN
TEMPS
= 0
ELSE
TEMPS
= .P3 * 6;

INCR INDEXS FROM O TO 5 DO
BEGIN

TBYTEL = .REG_ADR [ .INDEXS, ST_ADDR ];
TARGET_ADR [ C PHA_INDEX # 6 ) + .INDEXS ] = .TBYTEL;
:

COUNTER
= ZERO;

INCR INDEXS FROM O TO 5 BY 2 DO
BEGIN

TEMP1

= .TARGET_ADR [ .TEMPS + .INDEXS J;

TEMP2 =

= .TEMP1 t 8

.TARGET

STATION_ADR [ .COUNTER

E&TEPPSO.IPOEXSOI%:

B'FMTER = _COUNTER + 1;

] = .TEMPi OR ( .TEMP2 AND %0'000377' );

;

Teoo

PRINT ETHERNET STATION ADDRESS ON THE CONSOLE

COUNTER

= 18;

Page

(22)

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - FORM_HEX_ADR ( P3 )

DECR INDEX1 FROM 2 TO 0 DO
BEGIN

TEMP3 = .STATION_ADR [ .INDEX1 J;

INCR INDEX2 FROM 0 TO 1 DO

INCR INDEX3 FROM O TO 1 DO
BEGIN

TEMPL = .TEMP3 AND %X'F’

IF .TEMPi LEQU SDECIMAL'9’
+ .TEMP1

EL&YTEI = #C'0'

TBYTEJ. = #C'A' +« ( .TEMP1 - #DECIMAL'10' );

PHYS_ADR
[ .COUNTER ] = _TBYTElL;

= .COUNTER
COUNTER

TEMP3 = TEPPS t (-4 Sz

END;

IF .COUNTER GTRU 2
THEN

PHYS_ADR [ .COUNTER ] = #C'-';

COUNTER = .COUNTER - 1;
END;

END;

TST

FORM.HEX.ADR GLOBAL ROUTINE - FORM_HEX_ADR ( P3 )
R1. $SAVES
:

14(SP),RO

RO.RI

é;
(anmg
mvré
R

i P3.+

: INDEXS

+ INDEXS,*

; *,TMP.LOCATION

8 R &

0000006

.SBTTL
FORM.HEX.ADR: :

005746

= 9C'N’';

000004

= ‘c"

004137

000000

= 9C's’;
"C‘l"

PHYS_ADR
PHYS_ADR

3873037350 R3g

FOVWEEELEELEEMAVIVTUVITUTUIVIVIVIVIVIA
B UIIIDN DN N

ZQNA4
v01.0

SEQ 265

VAX-11 Bliss-16 V4 .0-579
DISK2:([SCODA.QNA. ZQNATZGNA4 .BLI ;1

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZQNAEO DEQGNA FUNCTIONAL TEST

GLOBAL ROUTINE - FORM_HEX_ADR ( P3 )

000000G
0001626

MOVB
MOVB

000005

CcMP

INC

BLE

CLR

0000006

000000G
000000G 000000G
0000016
000000G
000010
0000006
000001G 000000G
0000016
0000006

43:

CLR

MOV

ADD
MOvB
CLRB
MOV
ASH
MOV
MOovB
CLRB
MOV
ASL
CLR

B1SB
BIS
MOV

0000006
0000006
0000006

INC
ADD
CcMP

0000006
000002
000005

BLE

0000006
000000G
000001G
000023G
000024G
000025G

000022
000045
000101
000040
000045
000116
000004
000000G 000000G
000002
000002
000000G 0000006
177760 000000G

5¢:

6%:
74:

MoV

cMP

000011

TR S

0000006
000067 000000G
000000G
000000G 0000006
000000G
000000G
177774
000000G

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOV
MOV
MOV
MOV
MOV
BIC
BHI
MOV

8%:
9¢:

MOV
ADD
MOV
MOVB
DEC
MOV
ASH
MOV
S08

). TBYTEL

<335
g%

111637
111660
005200
020027
003761
005037
005002
010201
063701
116137
105037
013700
072027
010037
116137
105037
013701
006301
005000
153700
053700
010061
005237
062702
020227
003734
012737

). TARGET.ADR+162(R0)

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJZGNA4
.BLI;1

(22)

; *,*(INDEXS)

2467
2464

; INDEXS

2470
2472
2474

INDEXS
INDEXS,«

..5

COUNTER

R2
R2,R1

TEMPS,R1

SEQ 266

; INDEXS,*

TARGET
. ADR(R1), TEMP1

TEMPL+1
TEMP1,RO

2475

210,fab

RO,

TEMP1

TEMP2
ET
. ADR+1(R1),
TARG

2476

COUNTER,
R1

2477

TEMP2+1

RO
TEMP2,RO
TEMP1.RO

RO, STATION.ADR(R1)
COUNTER
#2,R2
R2,45

;

*,INDEXS

INDEXS,
*

#22, COUNTER

#45 . PHYS
. ADR

#101,PHYS. ADR+1
#40, PHYS . ADR+23

S
. ADR+25
#116,PHY
&4 ,Ri
TEMP3
STATION.ADRCR1),
TEMP3, TEMPL
8177760, TEMP1

*, INDEX1

+( TNDEX1),*

+, INDEX2
*, INDEX3

TEMP1,RO
RO, #11

33 TBYTEL

gc;é.nmex
RO, TBYTEL

067, TBYTEL

COUNTER, RO

. ADRCRO)
TBYTE1,PHYS
COUNTER
TEMP3,RO

#-4,R0
RO, TEMP3
R2,7$

H IN)EX3.*

2497

27-Mer-1986 07:37:39
26-Mar-1986 17:01:05

CZANAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - FORM_HEX_ADR ( P3 )
013702
02022 7

101403
112762
005337
077361
162701
100307
005726
000207
; Routine Size:

10¢:

000000G

1
1

DEC
S0B
SuB
BPL

TST
RTS

148 words,

Routine Base:

; Maximum stack depth per invocation:
2520
2521

MOV
cMP
BLOS
MOVB

6 words

COUNTER,
R2

R2, 92

104

55, PHYS . ADR(R2)
COUNTER

R3,6$
#2,R1
S5¢

(SP)+

AC$CODE$ + 4716

SEQ 267

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZQNAJZGNA4
.BLI;1

27-Mar-1966 07:37:39
26-Mar-1986 17:01:05
=

GLOBAL ROUTINE XMIT_SETUP_PACKET ( P1 ) : NOVALUE
GLOBAL ROUTINE :

XMIT_SETUP_PACKET

DESCRIPTION:

This routine initializes descriptor lists to transmit and receive
unchained Setup loopback packet. After loopback packet has been
received DEQNA CSR, treansmit and receive status registers are
checked for proper status. Finally, transmit and receive packets
are compared to verify that they are identical.
XMIT_D_LIST [ O ] = NEWB
XMIT D_LIST [ 1 ] = VSE
XMIT_D_LIST [ 2 ] = XMIT_BUFFER

RCV_D_LIST [ O ] = NEWB
RCV.DLIST [ 1 ] = VE
RCV_D_LIST [ 2 ] = RCV_BUFFER

=0
4]
XMITDLIST(
XMITDLIST(S5]=0
)=V
6
XMITDLIST[(
=E
]
7
XMITDLIST(

4 ] =0
RCVDLIST(
RCVDLIST(S5]=0
)=V
6
RCVDLIST(
=E
7]
RCVDLIST(

XMIT_D_LIST [ 3 ] = .XBUF_LENGTH

RCV_D_LIST [ 3 ] = .XBUF_LENGTH

INPUT PARAMETERS:
P1 - transmit buffer length in bytes

BEGIN

CLR_DESCR ( )

RBUF_LENGTH = .P1;

XBUF LENGTH
= - ( .RBUF_LENGTH
t -1 );

SET_RDESCR_LIST ( .XBUF_LENGTH,

)

SETXDESCRLIST ( .XBUF-LENGTH. VSE );

XMIT_AND_RCV_PACKET ( );
Tae

COMPARE STATUS REGISTERS TO EXPECTED VALUES

SEQ

’

268

DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

%SBTTL ‘GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 )’

O DN N N N D G G G GO PO PO D PO PO D N PO D 10 et bt et = et et e e e e e e o o o e o o o o o o e o o o o ot o e ot

e BT WE WE BE WS WE W

Ve WS Ve Ve B

Ve T

Ve WS Ve VT Ve Ve WS Ve WE Ve Ve U

Ve W

Ve Ve Ve W

Ve Ve W

WE We Ve We W

W5 W

W6 W

We W

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 )

VAX-11 Bliss-16 V4.0-579

Page

(23)

IKS
CZQNAEO DEGNA FUNCTIONAL TEST

ZGNA4

GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 )

V01.0
:

2575

25716

( CSR_STATUS, CSR_MASK );

;

2237,3 g

CHK_RCV_STATUS ( RFLG_STATUS, RWD1_ 3STATUS );

;
:

2580 2
2581 2

TEMP1 = XWD12_STATUS;
IF .XMIT_D_LIST[ STE16 )

;

2583

2582 2
2

COMPARE_PACKETS( );

;

2586

;.
;

2587
2588

000000

000004
000012
000016
000020
000022
000026

TEMP1 = %0’ 002400’;

CHK_XMIT_STATUS C XFLG.STATUS, .TEMPL );

g}g g

THEN

;

2
1

004737

NA4
.BLI;1
DISK2:[SCODA.QNA.ZQNAJZQ

Page 49
(23)

! 0100220, 0'100220°

1 0'140000', 0’ 020000
! 0000400’

' 0'140000', 7772777

001206

SBTTL XMIT.SETUP.PACKET GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 )
XMIT.SETUP.PACKET::

JSR

MOV
MOV
ASR
NEG
MOV
MOV

000030 012746
120000
003554’
004737
013716 0000006
130000
012746
004737 003632’
026627 000010 000201
001023

000070
000072
000074
000076
000102
000104
000110
000114
000
000124
000130
000132
000136
000142
000146
000152
000154
000160
000164
000170 004737

VAX-11 Bliss-16 V4.0-579

END;

016637 000002 000000G
016600 000002
006200
005400
010037 000000G
010046

013700
006200
005200
005400
010037
010016
012746
004737
013716
012746
004737
022626
004737
012716
004737
012716
011646
004737
012716
012746

26-Mar-1986 17:01:05

CHK_RIXI_STATUS ( ONE {

CHK_CSR_STATUS

2577 2

27-Mar-1986 07:37:39

MOV
JSR
MOV
MOV
JSR
CHP
BNE

000000G

0000006
130200
003632’
0000006
003554’

000000V
000001
001262’
100220
001646
140000
020000
002336’

1%:

MOV
ASR
INC
NEG
MOV
MOV
MOV
JSR
MOV
MOV
JSR
cHP
JSR
MOV
JSR
MOV
MOV
JSR
MOV
MOV
JSR

PC,CLR.DESCR

2(5P),RBUF . LENGTH
2(SP).RO
RO
RO
ao.xaw Lsusm
RO

o-éoooo
-(SP LIST
koescn
PC,SET
xaur LENGTH
#-50000, -(sfi
PC,SET. xnescn LIST
1o€so).ozo1
1$

RO
RBUF .LENGTH,
RO
RO
RO
RO, XBUF .LENGTH
RO, (SP)
#-47600,PC,SET.XDESCR,LIST
XBUF .LENG
#-60000, PC,SET.RDESCR.LIST
(SP)+,(SP)
PC,XMIT.AND.RCV.PACKET
#1,(SP)
PC.CHK,RIXI.
¢-177560, (
(SP), -(5P
PC,CHK.CSR.
#-40000, (
$20000,
PC,CHK.RC

;

2556

; XBUF .LENGTH, *

2559

;

2560

; P1,#

2562

; XBUF .LENGTH, *

2566

;

2567

;
;:
;

2564
2570
2576
2577

;

2578

; P1,%

; RBUF .LENGTH, *

;

2557

2558

2565

Fu&x:'TéML TEST
CZQNAEO DEGQNA
)
ET
( P1
SETUP_PACK
GLOBAL ROUTINE
012737
032737
001403
012737
012716
013746
004737
004737
062706
000207

000400
002000

000000G
000010G

002400
140000

000000G

000000G
002040’
003136’
000014

24:

MOV

#400, TEMP1

MOV
MOV
JSR
JSR
ADD

#-40000, (SP)
Term -(SP)
PC, CHIK. XMIT. STATUS
PC. COMPARE.PACKETS
#14,5P

BIT
?53

RTS

ozoob XMIT.D.LIST+10
32400 TEMPL
PC

Routine Base: AC$CODE$ + 5366
83 words,
7 words
invocation:
per
depth
; Maximum stack
; Routine Size:

2589
2590

1
1

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

SEQ 270

DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

% 23)
2581
2583

2524

CZQNAEO DEQNA FUNCTIONAL TEST

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

T T

GLOBAL ROUTINE SEND_ELOOP_PACKET ( P3 ) : NOVALUE
SEND_ELOOP_PACKET

GLOBAL ROUTINE :
DESCRIPTION:

This routine initializes transmit and receive descriptor lists and
packet. After
then initiates transmissin of a 1
and receive status r
transmit
loopback packet is received DEQNA CSR,
transmit and receive
Finally,
status.
proper
egisters are checked for
identical.
are
they
that
verify
to
packets are compared
XMIT_D_LIST [ O ) = NEWB
XMITDLIST [ 1 ] = VE
XMIT-D_LIST [ 2 ] = XMIT_BUFFER

RCV_D_LIST [ O ] = NEWB
RCVDLIST [ 1 ] = VE
RCVD_LIST [ 2 ] = RCV_BUFFER

D LIST [ 4 ] =0
XMIT
=0
5]
XMITDLIST[
6 ] =V
XMITDLIST[
=E
7]
D LIST[(
XMIT

RCVDLIST [ 4 ] =0
=0
5]
RCVDLIST[
(6 ] =V
RCVDLIST
=E
71
RCVDLIST[

XMITDLIST [ 3 ] = .XBUF_LENGTH

RCV_D_LIST [ 3 ] = .XBUF_LENGTH

INPUT PARAMETERS:
P3 -

BEGIN

PUT_BIT
( CSR, LB,

INX_LOOPBACK
)

XMIT_AND_RCV_PACKET C );
Tee

COMPARE STATUS REGISTERS TO EXPECTED VALUES

CHK_RIXI_STATUS ( ZERO )
CHKCSR_STATUS ¢ CSR_STATUS, CSR_MASK )
CHKXMIT STATUS ( XFLG.STATUS, XWD12_STATUS );
IF_.P3 EQLVU ZERO
THEN
BEGIN

ag'l(_RCV_STATUS

ELSE
BEGIN

( RFLG_STATUS, RWD1_STATUS );

TEMP1 = RWD14_STATUS

! 0'100220', 0'100220°
! 0'140000', 0'000400"
! 0'140000', 0'020000'
! _0'060000'

IF .RCV_D_LIST [ ST\ISI ] AND %0'070001' EQLU %0'070001'

SEQ 271

DISK2: [SCODA.QNA.ZQNA]ZGNA4
.BLI;1

%SBTTL ’‘GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) '

s s e ot e e o e e o e o o o e e e o o o o s s o (o o e ot ot ot
QN G G D D O D D PO D D MDD O D N N ) B
O G G

WS B

Be Be

We TS

WE We WE Ve

WL WE Ve

VS Ve

e Ve WE B

W6 BE

BE B0

WS B

BE B

BE BE

WE W

GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 )

27-Mar-1986 07:37:39

Pege

°% 28)

NS
ZGNA4

CZQNAEO DEGQNA FUNCTIONAL TEST

GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 )

V01.0
;
;

2644
2645

3
3

;
:

2647
2648

2
1

;

END;

000000

013700

000000G

000004
000012

042760
052760

001400
001000

000072
000076
000100
000106
000114
000116
000124
000130
000134
000140

004737
005046
004737
012716
011646
004737
012716
012746
004737
005766
001005
012716
012746
000416
012737
032737
001403
012737
012716
013746
004737
062706

000144 000207
; Routine Size:

000000V
001262
100220
001646’
140000
000400
002040’
000010
140000

CHK_RCV_STATUS

( RFLG_STATUS, .TEMP1 );

VAX-11 Bliss-16 V4,0-579

DISK2:([SCODA.QNA.ZGNAJZQNA4 .BLI;1

020000
060000 000000G
000001 000010G
070001 000000G
140000
0000006
002336’
000010
51 words,

MOV

REG.ADR, RO

;

2624

JSR
CLR
JSR
MOV
MOV
JSR
MOV
MOV
JSR
15T
BNE
MOV
MOV
BR
MOV
BIT
BEQ
MOV
MOV
MOV
JSR
ADD

PC,XMIT.AND.RCV.PACKET
-(5P)
PC,CHK.RIXI.STATUS
#-77560, (SP)
(SP), -(5P)
K,
CSR. STATUS
PC,CH
#-40000, (SP)
$400, -(SP)
PC,CHK. XMIT.STATUS
10(5P)
14
#-40000, (SP)

;
;
;

2625
2631
2632

;

2633

; P3
;

2635
2638

;
;
;
;

2642
2643
2645
2646

;

2622

BIC
BIS

000016
000016

1%:
24:
3$:
Routine Base:

5 words

Page (28)
52

! 0'140000', 277277

SBTTL SEND.ELOOP.PACKET GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 )
::
OOP
. PACKET
SEND.EL

; Maximum stack depth per invocation:
1
2649

26-Mar-1986 17:01:05

THEN
TEMP1 = %0'070001";

2646 3

000020
000024
000026
000032
000036
000040
000044
000050
000054
000060
000064
000066

27-Mar-1986 07:37:39

SEQ 272

RTS

#1400, 16(R0)
#1000, 16(R0)

$20000, -(SP)
33
$60000, TEMP1
#1,RCV.D.LIST+10
24
$70001 , TEMP1
$-40000, (SP)
TEMPL, -(SP)
PC, CHK.RCV.STATUS
#10,5P

AC$CODE$ + 5634

;

2593

27-Mar-1986 07:37:39

CZQNAEO DEQGNA FUNCTIONAL TEST

26-Mar-1986 17:01:05

2691
2692
2693
2694

2696

338

2698

2702

PO PO RO RO D RO RO
N NN D D D D RO AL GGG

2690

O AN

gaegRaes

0 =0 et et e e o e o o s ot o e o o s o o e e o ot e e ot s ot

GLOBAL ROUTINE - SEND_TEST_PACKET

VAX-11 Bliss-16 V4.0-579
DISK2:(

%SBTTL ‘GLOBAL ROUTINE - SEND_TEST_PACKET '

GLOBAL ROUTINE SEND_TEST_PACKET : NOVALUE
1ee

; GLOBAL ROUTINE :

SEND_TEST_PACKET

DESCRIPTION:

This routine initializes transmit and receive descriptor lists and
then initiates transmissin of an external loopback packet.

XMIT_D_LIST

0]-= NEWB

D LIST [ 1 ] = VE
XMIT
XMIT_D_LIST [ 2 ] = XMIT _BUFFER

XMIT_D_LIST [ 3 ] = .XBUF_LENGTH

4 ] =0
D LIST[
XMIT
XMITDLIST[S ] =0
XMITD LIST[( 6 ] =V
=E
7]
XMITDLIST[

RCV_D_LIST

0]-= NEWB

RCV.D_LIST [ 1 ] = VE
RCV_D_LIST [ 2 ] = RCV_BUFFER

RCV_D_LIST [ 3 ] = .XBUF_LENGTH

RCV.DLIST
RCVDLIST[
RCVDLIST[(
RCVOLIST(

(4 ] =0
5 ) =0
6 ] =V
7 ] =E

INPUT PARAMETERS:
None

BEGIN
Tee

WRITE ETHERNET STATION ADDRESS AND DATA PATTERN INTO THE TRANSMIT BUFFER

RESET_DEQN
( );
A

INCR _INDEX FROM O TO 5 DO
BEGIN

WT_&FFER[.IMEX]
+ 6 1
JINDEX
EN?ELW

'.TmGET_AN[(PHA_MXOGJO.INEX]:
J;
6 ) + .INDEXX
* INDE
= .TARGET_ADR [ ( PHA_

YMIT BUFFER [ PKT_TYPE 1

= LPB_PKT

XHIT_BUEFER [ PKTTYPE + 1 ] - SKIP_CNT;

XMIT BUFFER [ PKT-TYPE + 2 ] = RFC;
Teo

CONVERT SETUP PACKET SIZE FROM BYTE COUNT TO WORD COUNT AND SET UP
DESCRIPTOR LISTS

RBUF _LENGTH = PKT_LENGTH « 14;

XBUF _LENGTH = - ( .RBUF_LENGTH t -1 );

SEQ 273

A.QGNA . ZQNA JZQNA4 .BLI; 1

Page

=R
DN DN

vo1.0

—

PUT BIT ( CSR, LB,

)
EXT_LOOPBACK

XMIT_AND_RCV_PACKET ( J;

274

DISK2:[SCODA.QNA.ZQNA]ZQNA4
.BLI;1

SBTTL

SEND.TEST.PACKET GLOBAL ROUTINE - SEND_TEST_PACKET

&_sg

:g.nesn.oew

000324

SEND.TEST .PACKET: :

000162G 000000G

1%:

MOVEB

MOVB

;
i

TARGET.ADR+162(R0),XMIT.BUFFER(RO) ;

, #( INDEX)
#( INDEX)

TARGET.ADR+162(RO),XMIT.BUFFER+6(R0) ;

; *CINDEX),*CINDEX)

INC
%

RO
tlu').os

; INDEX
; INDEX,*

000220

000014G

MOVB

#220,XM1T.BUFFER+14

;

000001

000016G

MOVE

#1,XMIT.BUFFER+16

;

CLRB

XMIT.BUFFER+1S

002752 0000006
002752

MOV
MOV

#2752, RBUF .LENGTH
#2752.R0

000000G
120000
003554
0000006
120000
003632'
000000G

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV

RO, XBUF . LENGTH
RO, -(SP)
#-60000, -(SP)
PC,SET.RDESCR,LIST
XBUF
. LENGTH, (SP)
#-60000, -(SP)
PC,SET.XDESCR.LIST
REG, ADR, RO

ASR
NEG

001400 000016

BIS

JSR
ADD

000000V
000006

51 words,

RTS

Routine Base:

; Maximum stack depth per invocation: 4 words
1

END;

00001

2715

SEQ

SET DEQNA TO EXTERNAL LOOPBACK MODE AND SEND LOOPBACK PACKET

000005

: Routine Size:

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

SET_RDESCR_LIST ( .XBUF_LENGTH, VE );
SET_XDESCR_LIST ( .XBUF_LENGTH, VE );

0001626 000006G

27-Mar-1986 07:37:39

CZONAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE - SEND_TEST_PACKET

#1400, 16(RO)

PC,XMIT.AND.RCV.PACKET
#6.SP
PC

ACS$CODE$ + 6002

;

;
;
: XBUF .LENGTH, *

;

2705

;

2711

;
;

2712
2678
2652

N N D D N I N N 0 = e e e e o b e o e e o e i o ot e o e s e e o o i e ot et
NN D N D D DD D D D N N G G

N oy U0 U S

S W T e Do SRR S

CZQNAEO DEQGNA FUNCTIONAL TEST
GLOBAL ROUTINE - INTR_TEST_PACKET

27-Mar-1986 07:37:39

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V

Tee
I

GLOBAL ROUTINE :

DESCRIPTION:

INTR_TEST_PACKET

This routine initializes transmit and receive descriptor lists and

is never done, so the state of IE does not change.

then initiates transmissin of an external loopback packet. A reset

XMIT_D_LIST [ O ] = NEWB

!
!

XMITDLIST [ 1 ] = VE
XMIT_D_LIST [ 2 ] = XMIT_BUFFER

D LIST[(
XMIT

4 ] =0

XMITDLIST(
XMITDLIST[(

6
7]

XMIT_D_LIST [ 3 ] = .XBUF_LENGTH

!
:

RCV_D_LIST [ O ] = NEWB

RCV_D_LIST [ 1 ] = VE
RCV_D_LIST [ 2 ] = RCV_BUFFER

RCV_D_LIST [ 3 ] = .XBUF_LENGTH

RCVDLIST[4 ] =0
RCVDLIST[(

XMITD LIST[{S ] =0

RCVDLIST[
RCVD_LIST{

)=V
=E

S ] =0

6 ] =V
=E
7]

INPUT PARAMETERS:
None

Bow

BEGIN
Tee

WRITE ETHERNET STATION ADDRESS AND DATA PATTERN INTO THE TRANSMIT BUFFER

INCR INDEX FROM O TO 5 DO
BEGIN

XMIT_BUFFER [ .INDEX
]
+ 6 ]
MXHU"BUFFER [ .INDEX

TMGETADR[(PHA_MX#6)0.INEX}s
J;
6 ) + .INDEXX
* INDE
= .TARGET_ADR [ ( PHA_

;

YMITBUFFER [ PKT_TYPE ]

= LPB_PKT

XMITBUFFER [ PKT TYPE
+ 2

= RFC;

XAIT_BUFFER [ PKT_TYPE+ 1 ] - SKIP_CNT
Tee

! CONVERT SETUP PACKET SIZE FROM BYTE COUNT TO WORD COUNT AND SET UP
!

DESCRIPTOR LISTS

RBUF _LENGTH = PKT_LENGTH
+ 14;

XBUF _LENGTH = - ( WLE?GTH? -1
)

SEQ 275

DISK2:[SCODA.QNA.ZQNAJZQNA4 .BLI;1

%SBTTL ‘GLOBAL ROUTINE - INTR_TEST_PACKET '
GLOBAL ROUTINE INTR_TEST_PACKET : NOVALUE

Page

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

=D
N

Be B

CZQNAEO DEQNA FUNCTIONAL TEST
GLOBAL ROUTINE- INTR_TEST_PACKET
SET_RDESCR_LIST ( .XBUF_LENGTH, VE );
SET_XDESCR_LIST ( .XBUF_LENGTH, VE );
Tee

SET DEGNA TO EXTERNAL LOOPBACK MODE AND SEND LOOPBACK PACKET

000020
000024
000026

END;

116060

003766
112737

st
'this
i does a& BIS, so IE stays

CSRB E EXT LO(PBACK ) 3
PUT
oBIT (REV

000162G 0000006
000010 116060 000162G 000006G
000002

.SBTTL

INTR.TEST.PACKET GLOBAL ROUTINE - INTR_TEST_PACKET

CLR

INTR.TEST.PACKET::

1%:

MOVB
MOVB

;)
TARGET.ADR+162(RO),XMIT. aurFERcaé
*(INDEX), *(INDEX)
TARGET.ADR+162(RO),XMIT. au'ren.slno);
: *CINDEX), #CINDEX)

l}?.95

: INDEX,*

2781
2782

1
1

2752

2754
2735
2752

000220

000014G

MOVB

#220,XMIT.BUFFER+14

;

000001

000016G

MOVB

#1,XMIT.BUFFER+16

;

27358
2759
2760
2767
2768

: XBUF .LENGTH, *

2770

;

;
;
;

271

0000156

CLRB

XMIT.BUFFER+15

002752 0000006
002752

MOV
MOV

#2752, RBUF . LENGTH
#2752 ,R0

0000006
120000
003554

MOV

MOV
MOV
JSR

RO, XBUF .LENGTH
RO, -(SP)
#-60000, -(SP)
PC,SET.RDESCR.LIST

ASR
NEG

MOV
MOV
JSR
MOV
BIS
JSR
ADD
RTS

XBUF .LENGTH
- (SP)
#-60000,
. XDESCR.LIST
PC,SET
REG. ADR,RO
$1400, 16(R0)
PC,XMIT.AND.RCV.PACKET
96,5P
PC

49 words,
Routine Base: AC$CODE$ + 6150
4 words
invocation:
per
depth
stack
Meximum
;

;
;.

; INDEX

INC

gr&

000005

0000006
120000
003632
0000006
001400 000016
000000V
000006
; Routine Size:

SEQ 276

VAX-11 Bliss-16 V4.0-579
DISK2:([SCODA.QNA.ZGNA]ZQNA4
.BLI;1

;

;
;

;

2778

2745
2718

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

CZQNAEO DEQNA FUNCTIONAL TEST

s o
b e et
2 1D PO PO N PO N NN = b

T T

GLOBAL ROUTINE :

XMIT_AND_RCV_PACKET

DESCRIPTION:

This routine initiates transmit and receive operations.
L

T
D
DI DR
D
L
I
S
L
L
L
L
L
S
LI L
LB
LA

000006
000012
000020
000024

GLOBAL ROUTINE XMIT_AND_RCV_PACKET : NOVALUE

INPUT PARAMETERS:

BEGIN

.I0P_TABLE [RLOAIR
.IOP_TABLE
.JOP_TABLE
.IOP_TABLE

XLO_ADR
XHI_ADR

= RCV_D_LIST;
=

]:0:

XMIT_D_LIST;

END;

012777

000000G 000004G

005077
012777
005077
000207

0000066

000000G 000010G
0000126

_SBTTL

XMIT.AND.RCV.PACKET GLOBAL ROUTINE - XMIT_AND_RCV_PACKET

MOV
CLR
MOV
CLR

SRCV.D.LIST,aIO0P.TABLE+4
+6
SI0P. TABLE
SXMIT.D.LIST,SI0P. TABLE+10
SI0P. TABLE+12

XMIT.AND.RCV.PACKET::

RTS

Routine Base: AC$CODE$ + 6312
; Routine Size: 11 words,
0 words
invocation:
per
depth
stack
; Maximum

SEQ 277

DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

%SBTTL ‘GLOBAL ROUTINE - XMIT_AND_RCV_PACKET '

s e o o o

a—

e o o o o o ot

- XMIT_AND_RCV_PACKET
GLOBAL ROUTINE

VAX-11 Bliss-16 V4.0-579

CZQNAEO DEQNA FUNCTIONAL TEST

ZQNA4

GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 )

v01.0
ggfi i

ggg

%SBTTL ‘GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 ) '
GLOBAL ROUTINE XMIT_ILOOP_PACKET ( P3 ) : NOVALUE =

;
;

2817
2818

1
1

feo
!

2820

2822

!
;
This routine
!
!
' INPUT PARAMETERS:
!
P3 - selector
!
!
1--

| ;.
;

2819 1

281

2823
2824
2825
2826
2827
2828
2829
2830
2831
2832

1
1
1
1
1
1
1
1
2
2

;

2834

2833

GLOBAL ROUTINE :

DESCRIPTION:

CLR_DESCR ( );

2
g

SET_RDESCR_LIST ( .XBUF _LENGTH, VE );
SET_XDESCR_LIST ( .XBUF_LENGTH, VE );

;

2838

XMIT_AND_RCV_PACKET ( );

;

2840

.JOP_TABLE [ CSR ] = EENABLE;

;
;
;

2842
2843
2844

2
2
3

IF .P3 EQLU ONE
THEN
BEGIN

;
;
3
H
3

2848
2849

;

;
;

2841

2845

2846 3
2847 3

:
H
3
H
3
H
3
3

000000

3
2
3
3
3

3
2
2
2
2
2
2
1

004737

SEQ 278

DISK2:[SCODA.QNA.ZQNAJZQGNA4 .BLI;1

Page 58

(28)

BEGIN

2835
gggg
2839

VAX-11 Bliss-16 V4.0-579

XMIT_ILOOP_PACKET

;
3

;
;
;
;.
;
;
;
;
N
;
;

;

26-Mar-1986 17:01:05

27-Mar-1986 07:37:39

CHK_RIXI_STATUS ( ONE )
! 0'100220', 0'100220’
)
CHK_CSR_STATUS ( CSR S{’ATUSUS, CSR_MASK
CHK_RCV_STATUS ( RFLG_STAT R\ms_snfis ); ! 0'140000', 0'044000°

END
ELSE

BEGIN

CHK_RIXI_STATUS ( ZERO )

CHKCSR_STATUS ( CSR_STATUS

CSR_MASK )

0'100220', 0'100220°

CHK_XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS );
COMPARE _PACKETS ( );
.IOP_TABLE [ CSR ] = DISABLE;

0' 140000’ , 0'000400’

E'gm_acv_smws ¢ RFLG_STATUS ,RWD13 STATUS ); 1 0140000’ 0'000000°
H

001206’

.SBTTL XMIT.ILOOP.PACKET GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 )

XMIT.ILOOP,PACKET::

JSR

PC.CLR.DESCR

;

2833

CZQNAEO DEQNA FUNCTIONAL TEST

GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 )

002336’
140000
000400
002040’
003136’
0000166
000014

24:

2861
2862

1
1

(28)

2836

Routine Base: AC$CODE$ + 6340
7 words
invocation:
; Maximum stack depth per
; Routine Size:

Page

W.Lmrgé()sp)

001646’
140000

DISK2:[SCODA.QNA.ZQNAJZGNA4
.BLI;1

#-60000, -(SP)
PC,SET.RDESCR,LIST

S0Gp3350353355533%

001262’
100220

SEQ 279

2835

MOV
JSR
MOV
MOV

1¢:

VAX-11 Bliss-16 V4.0-579

XBUF .LENGTH, -(SP)

-2
w

004737
005077
062706
000207

MOV
MOV
JSR
MOV
MOV
JSR
JSR
MOV

013746
012746
004737
013716
012746
004737
004737
012777
026627
001016
012716
004737
012716
011646
004737
012716
012746
000413
005016
004737
012716
011646
004737
012716
005046
004737
012716
012746
004737

27-Mar-1986 07:37:39
26-Mar-1986 17:01:05

; P3,*

2838
2840
2842

2845
2846

2847

2851

2853
2856

2857
2858
2831
2815

ggz

#SBTTL 'GLOBAL ROUTINE - TURN_OFF_LED ( P1 )’

2865

GLOBAL ROUTINE TURN_OFF_LED ( P1 ) : NOVALUVE

;
3
H

;

2866
2867
2868

2869

2870

2872

2874

;

3
;
H
i

2871

2873

<875
2876
2877
2378

1
1
1

1
1
1
1

2888

@99

;

;
H

2885

2884
239\

DESCRIPTION:

2884

;

2883

GLOBAL ROUTINE :

1
1
2
2

;

289
2880
2881
2882

;
;
3
;

140
!

This routine

!
!
!
'

INPUT PARAMETERS:

BEGIN

INCR INDEX1 FROM 1 TO 14 DO

WRT_STATION_ADR ( .INDEX1, PHA_INDEX );

XMIT_SETUP_PACKET ( .P1 );

END;

010146

000002
000006
000012
000014
000020

004737
012701
010146
012746
004737

000026

005201

000024 022626

.SBTTL

004634'
000001

000023
004442’

TURN.OFF .LED::
MOV

1¢:

JSR
MOV
MOV
MOV
JSR

cHP
INC

000030

020127

000016

CMP

000036
000042

016646
004737

000004
005366’

MOV
JSR

000034

003766

000046 005726
012601
000050
000052

000207

1o~

000000

60
(29)

P1 -

PREP_FOR_SETUP ( );

2
2

Page

TURN_OFF _LED

SEQ 280

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA]ZGNA4
.BLI;1

ZQNA4
v01.0

OU‘

27-Mar-1986 0 T
1 T3
26-Mar-1986

CZQNAEO DEQNA FUNCTIONAL TEST
( P1 )
GLOBAL ROUTINE - TURN_OFF_LED

BLE

TURN.OFF.LED GLOBAL ROUTINE - TURN_OFF_LED ( P1 )
R1,-(SP)
PC,PREP.FOR.SETUP
#1,R1
R1,-(SP)
#23,-(SP)

2886

PC WT STATION.ADR

(sé)o (SP)+

Rl ,#16
4(SP). (SP)
XMIT.SETUP.PACKET

TST

Yo
s#

RTS

MOV

*, INDEX1

INDEX1,
*

2865
2883
2885

(SP)o.Rl

; Routine Size: 22 words,
Routine Base: AC$CODE$ + 6536
; Maximum stack depth per invocation: 4 words

INDEX1
INDEX1, *
P1,*

2888
2881
2865

Job
v01.0
;
;

;
;

27-Mar-1986 07:37:39

CZQNAEO DEQNA FUNCTIONAL TEST

ZQNA4

GLOBAL ROUTINE - TURN_OFF_LED ( P1 )

2892
2893

2894
2895

1
1

26-Mar-1986 17:01:05

0TS external references

PSECT SUMMARY

Words

Psect Name

1733

AC$CODE$

File

F e

RO,

REL,

LCL,

CON

. .~ . e Symbols --------

Pages

Processi

00:0C.1

Total

224

: DISK2:[SCODA.QNA.ZQNAJQNALIB.L16;2

Loaded Percent
134

H&d

COMMAND QUALIFIERS

Attributes

Library Statistics

:
3

$SAVE3, $SAVE2

.GLOBL

BLISS/PDP11 ZQNA4.BLI/LIST=ZQNA4.LIS/0BJECT=ZQNA4.0BJ/SOURCE=PAGE:53
1733 code + 0 data words

; Size:

me:

:37.

| Lines/CPU Min:

4922

; Memory

pages

3 chm/CPU-Hirz\& 35721
Used:

: Cotpi!otion Complete

SEQ 281

DISK2:[SCODA.QNA.ZQNAJZQNA4 .BLI;1

END
ELUDOM

1
0

VAX-11 Bliss-16 V4.0-579

Time

Page 61

(29)

e, 000000

we w8 we

CZQNAEO DEQNA FUNCTIONAL TEST

27-Mer-1986 07:38:19

26-Mar-1986 17:01:05

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNA]ZGNAS.BLI;1

MODULE ZQNAS (#TITLE ‘CZQNAEO DEQGNA FUNCTIONAL TEST'
IDENT = 'V01.0',

ADDRESSING_MODE(ABSOLUTE)
)

#SBTTL ‘LAST ADDRESS AND SETUP SECTION'
BEGIN

LIBRARY 'QNALIB' &f
REQUIRE 'BLSMAC. Q';
! <BLF/NOFORMAT>

SEQ 282

! GNALIB LIBRARY
! DIAGNOSTIC SUPERVISOR LIBRARY

Page

1
(1)

L6
ZANAS
v01.0
;.

;
;
;.
s

1502

P 1504
P 1505
1506
197

2
2
2
1

1508 2

CZQNAEO DEQGNA FUNCTIONAL TEST
LAST ADDRESS AND SETUP SECTION

27-Mar-1986 07:38:19
26-Mar-1986 17:01:05

LASTAD

! NUMBER OF P-TABLES

BGNSETUP(1);
BGNPTAB

.IDENT
.ENABL

PSECT

000000

BLSLAS::.WORD

000000 000014’
000004

000000C

000000

P.AAA:

174440
000700
000000

.WORD
.WORD
TSFREE:: .WORD

000004’
000001
000004’
000010

L$LAST==
T$PTHV==
$$LAS1=
$REM2=

000207

.SBTTL
$END.LINK::

; Routine Size:
;1508
;1509
1510
;.

1
1
O

/V01.0/
AMA

$XYZ$,

TSFREE

1 word,

Routine Base:

O words

<<T$FREE-<BL$LAS+4>>/2>

; Plit count word

-3340
700
O
BLSLAS+4
1
P.AAA
P.AAB

$END.LINK LAST ADDRESS AND SETUP SECTION
PC

$XYZ$ + 0016

END
ELUDOM

PSECT SUMMARY
Psect Name

$XYZ$

2
(2)

ZQNAS CZQNAEO DEQNA FUNCTIONAL TEST

RTS

3
3

.WORD

P.AAB:

; Maximum stack depth per invocation:

.WORD

000000

000006 000002

000010
000012
000014

Page

700’
,%0'0’
%o’ 17444
ENDPTAB
ENDSETUP
.TITLE

000002

SEQ 283

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNAJZQNAS.BLI;1

Words

Attributes

Library Statistics

RO ,

LCL,

REL,

CON

1499

File

07:38:19
27-Mar-1986
26-Mar-1986 17:01:05

CZQNAEO DEQNA FUNCTIONAL TEST
LAST ADDRESS AND SETUP SECTION

ZANAS
v01.0

: DISK2:[SCODA.QGNA.ZQNAJGNALIB.L16;2

-------- Symbols --------

Pages

Total

224

Loaded Percent
3

H&d

COMMAND QUALIFIERS

BLISS/PDP11 ZQGNAS.BLI/LIST=ZQNAS.LIS/0BJECT=ZQNAS.0BJ/SOURCE=PAGE:53

1 code + 7 data words

Size;

me:

Lines/CPU Min:

:05.

21217

Lexemes/CPU-Min:112903
Memory

Used:

102 pages

Compilation Complete

Page 2)3
VAX-11 Bliss-16 V4.0-579 ’
DISK2:[SCODA.QNA.ZQNAJZANAS.BLI;1
SEQ

Timo...m°

Processi

00:00.1

284

MACRO V05.03

.MAIN.

Thursday 27-Mar-86 07:38

3
4

3
3
;
3

3
2

SEQ 285

Page 1
Subroutine to calculate station address rom checksum
This was necessary because the .}.sorittp in the ETHERNET spec

was written for a 32 bit data word. This routine uses a 16 bit
word, but uses the PSW C bit to look for what would be bit 16

getting set.

INPUTS:: array STATION.ADR has 6 bytes of default physical address

OUTPUTS:: word CHECKSUM has the 16 bit checksum for the above address

12
fi

:
3

TMPR1 is used as a counter veriable
RO is saved, used, and restored

added Oct-1985 by Dave Scoda

13 000000 010046

000002 005067 000000G
20
21 000006 005067 000000G

000012
23 000016
24 000020
25 oooog
26 0000
27 000034
28 000040
000042
000046
31 000052
32 000054

33 000056

000064
35 000070
36 000074
37 000102
38 000110
39 000112
40 000114
41

016700
006300
032767
001405
010067
005267
000402
010067
016700
006300
000241
066067
005567
005267
062767
026727
003740
012600
000207

000001

000000G
100000

24
000000G

000000G
000000G
0000006
000000G

000000G 000000G

000000G
000000G
000002 000000G
000000G 000005

34
44

adc mov

CLR

CLR
MOV
ASL
BIT
BEQ
MOV
INC
BR
MOV
MOV
ASL
g&
adc
INC
ADD
cMP
BLE
mov
rts

.end

r0,

0,-(sp)

CHECKSOM
rl

CKSUM,RO
RO
#-100000, CHECKSUM
34
RO, CHECKSUM
CHECKSUM
44
RO, CHECKSUM
COUNTER, RO
RO

STATION.ADR(RO),CHECKSUM

checksum
COUNTER
#2,tmprl
tmprl,#5
24
(sp)+,r0
pc

;save

r0, r0, forfor BLISS ch

;; INDEX
;

H
3
;
;
;
;
;clear ¢ before use
.
:
;fix algorithm
:
; *,INDEX
; INDEX,=*
:
;restore r0
;done

| .MAIN.

MACRO V05.03

Symbol table

Thursday 27-Mar-86 07:38
COUNTE= sxss%% GX

CHECKS= #s%ss3% GX
000000

000116

Errors detected:

#
l

ROMCHK 0O00000RG

001
O

+2+ Assembler statistics

Work
Work

file reads
‘:ilc writes : 0

gju o'norkfil::”m

(lch)

1
izeof core pool: 19684
Words

Operating
El

system: RSX-11M/PLUS (Under

time: 00:00:01.17
-SP=ZQANA6
. LIS/ANA6
.0BJ,Z

SEQ 286

Page 1-1

STATIO= s#s+%% GX

TMPRL = #sesss GX

27-Mar-1986 07:35:28
26-Mar-1986 1 7:01:04

0001

0003 0

0004 0
0005 0

0006
0007
0008

O
0
0

: update history:::

Dave Scode

'
!

S-Mar-86

tes
'

0011
0012

O
0

0014

0016

0013 0
0015

0017 1
0018

0020
0021

0
0

5-Nov-85

REG_.STR
[ 0, P, S,
E 1=
LOCAL TMP_LOCATION

TMP_ LOCATION = .(REG_STR + SUPVAL # 0) <O,%BPVAL,0>;
TMP_LOCATION

0022 0
0023 0

STRUCTURE
ADR STR [ 0, P, S, E 1=

0025

LOCAL TMP_LOCATION

0027

0026 1
0028

0029

0030 O
0031

0033

0035

0032

0034

0036
0037
0038
0039
0040
0041

1
1
1
1
1
%

! DEFINE ACCESS ALGORITHM

BEGIN

END < P, S, E >;

Changed R2_MASK from 174013 to 174003

m-d RWD2_MASK from 177417 to 177407
to Software P table, swp_size

TRUCTURE

! DEFINE ACCESS ALGORITHM

BEGIN

TMP_LOCATION = CADR_STR + SUPVAL # 0) <O,%BPVAL,0>;

TMP LOCATION

END < P, S, E >;

STRUCTURE

LBLOCK
[ O, P, S, E, I )=
BEGIN

CASE I FROM O TO 2 OF
SET

[0 ]:

( LBLOCK + O # sSUPVAL
);
( .LBLOCK
+ O & SUPVAL );
[213:
( .LBLOCK
+ O * SUPVAL );
TES;
(11

END < P, S, E >;

SEQ 287

DISK2:([SCODA.QNA.ZQNAJGNALIB.R16;1

DEFINE DATA STRUCTURES IN THIS SECTION

0019 0

0024

VAX-11 Bliss-16 V4.0-579

! DEFINE ACCESS ALGORITHM

Cage

1
(1)

[=lelelotelelolololeolololololelolelodotoleloleloleotolelotelolololotoToYoTo
Yol

0049

XXX

8353 33358s8gaesannsssnnnsansess

WS W

B8 B0

BE B

27-Mar-1986 07:35:28
26-Mar-1986 17:01:04

TST_BIT ( ADDR,

EXPECTED ) =

C IF ¢ .ADDR AND EXPECTED ) EQLU EXPECTED
TRUE
ELSE
FALSE )%,

PUT_géén(‘ OFFSET, POSITION, IMAGE ) =

( .REG_ADR + #UPVAL * OFFSET )< #FIELDEXPAND ( POSITION ) > = IMAGE;
GET_EE(A;}'I'N_AM ( OFFSET, POSITION, IMAGE ) =

( .STATION_ADR + OFFSET )< ®FIELDEXPAND ( POSITION ) > = IMAGE;

Tse
]

THIS MACRO GETS BITS SPECIFIED BY THE FIELD NAME " POSITION "
AND MEMORY LOC SPECIFIED BY (.REG_ADR + sUPVAL * OFFSET)
GET_BIT ( OFFSET, POSITION ) =

.REG_ADR [ OFFSET, POSITION ] #;

SEQ 288

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QNA.ZQNA)GNALIB.R16;1

Page

2
(2)

PROGRAM LITERALS

LOOP ITERATION COUNT
LOOP ITERATION COUNT
TION COUNT

16K LOOP ITERATION COUNT
LOOP ITERATION COUNT
LOOP ITERATION COUNT
LOOP ITERATION COUNT
LOOP ITERATION COUNT
ol bl

STEP1

geseg,.

ppfig

8883

t—gp

OOrFkF

NO
YES
FALSE

FHFOFOFOKO

LITERAL

[eTeTeToToleololelololololotolololelolololololeloleleloleodolototodotelolotoTotoTotoToYoYo)

WS B

e B

BE B

S0 B

BE B

S5 B

B8 S

W6 S0 B0 BE B

B8 BE B

BE S0 B

BE Be

we e

27-Mar-1986 07:35:28
26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

SEQ 289

DISK2:([SCODA.QNA.ZQNAJGNALIB.R16;1

Page

3
(3)

OCO0O0O0O0O0O0O0O00000O00

27-Mar-1986 07:35:28
26-Mar-1986 17:01:04

RLO_ADR

XLO_ADR
XHI_ADR

.
.

RHI_ADR

I0P_SIZE

I/0 PAGE REGISTER SIZE
OFFSET TO DEVICE ADDRESS
OFFSET TO DEVICE VECTOR ADDRESS
OFFSET TO DEVICE BR LEVEL

IOP_ADR
I0P_VEC
I0P_BRL

CSR

. 7

INT_VEC

WORD_LIMIT

%0’ 177777,

VAX-11 Bliss-16 V4.0-579

SEQ 290

DISK2:([SCODA.QNA.ZQNAJQNALIB.R16;1

Page

(3)

27-Mer-1986 07:35:28
[eYoToToToToTolololololololeoloolotoleolodoleolololeleloleololeoleloleoleleoteloleloletoteototolotoloYeYoYo
Yo

26-Mar-1986 17:01:04

VAX-11 Bliss-16 v4.0-579

DISK2:([SCODA.QNA.ZQNA]JGNALIB.R16;1

Yoo
'

DESCRIPTOR LIST DEFINITIONS

= O,
D_FLAG.WD
D_DESCR BITS = 1.

D_HI_ADR
D_LO_ADR

D_WD_COUNT

=1,
= 2,

= 3,

' STATUS WORD 0, FLAG WORD
:

!
:

D_WDI_STATUS = 4.

D1_OFFSET
D2 OFFSET

= 18,
36,
=

'
:

T_SIZE

= 120,

D_SIZE

= DESCR_SIZE / 2,

D_WD2_STATUS = 5.

DESCR_SIZE

80 D SIZE
BUF_SIZE
B_SIZE
SETUB_SIZE
sne_ggtg

= 128

= 16
’
=
= BUF_SIZE / 2,
= 256,
= - ( BUF_SIZE / 4 ),

CHSUR_OFFSET = 6,

SA_RBL
PKT_LENGTH

= %0'177775',
= 1500,

LPB_PKT
PKT _TYPE
SKIP_CNT
RFC

= 12,

MAX_LENGTH
LEGAL_LENGTH
ILLEGAL_LENGTH

PKT_DATA

= 1534,
= 1514,
= 1536,

= %0'0220',
= 0,
=1
= 15,

SHORTEST _PACKET = 60,
LONGEST_PACKET = 15i4,

! STATION ADR RCV BUF LENGTH - 3 WDS
! PACKET LENGTH
! PACKET LENGTH
! LEGAL PACKET LENGTH
! TLLEGAL PACKET LENGTH

! LOOPBACK PACKET
' PACKET TYPE
'
]
!

! SHORTEST SETUP PACKET LENGTH
i LONGEST SETUP PACKET LENGTH

! LONGEST SETUP PACKET LENGTH
! PHYSICAL ADDRESS INDEX IN THE

LSPL
PHA_INDEX

= 1514,
= 19,

KB_VEC_LOC

= %0’ 000060’,

! INPUT CONSOLE TERMINAL VECTOR LOC

= %0’ 177560,

i CONSOLE TERMINAL INPUT ADDRESS

PF_VEC_LOC
CPU_LED

= %0' 000024
= %0'177524".

KB_ENABLE

= %0' 000100

KB_ADDR

TARGET_ADR VECTOR

i POMER FAIL VECTOR LOCATION
' TURN OFF CPU LED LIT ON DCOK

i ENABLE CONSOLE TERMINAL INPUT

SEQ 291

Page

(4)

[eYoTeleToToTololololololoolodololelolololeloleloleodololeoletolelotelodeloloteololeloteodotetotoYoto
Yo

T
W
W
Ve
B
VS Ve Ve W6
Ve
VI
VI Ve
Ve Be VE
Ve WE Ve
WE
B
Be We
e

—

B0 W

BE B8

Be W

WS BE

B8 BE BE BE B

s we

27-Mar-1986 07:35:28
26-Mar-1986 17:01:04

VAX-11 Bliss-16 v4.0-579

SEQ 292

DISK2:(SCODA.QNA.ZQNA]GNALIB.R16;1

Page

Teo
'

TRANSMIT, RECEIVE AND CSR STATUS AND MASK WORD DEFINITIONS

CSR_STATUS

CSRI_STATUS
CSR2_STATUS
CSR_MASK
CSRI_MASK
CSR2_MASK
CSR3_MASK

= #%0'100220',

= %0’ 000062’ ,
= #%0'000060',
= #0'100220',
= #%0'010376',
= %0'167777',
= #%0'010000',

TRANSCEIVER POMWER ( XC - BIT 12 )

PATRN1

= #%0'001411',

CSR STATIC BITS
CSR STATIC BITS

NXM_LO_ADR

= %0'160000',

NXM ADDRESS - LOW ORDER BITS
NXM ADDRESS - HIGH ORDER BITS

XFLG_MASK

X1_MASK
XWD1_MASK
nxwdl_mask

= %0’ 140000’ ,

= #0'100000',
= %0'157760',
= %0'157400',

TRANSMIT FLAG WORD MASK BITS
TRANSMIT STATUS WD 1 MASK BITS
TRANSMIT STATUS WD 1 HASK BITS
mask out retry count for bus

XFLG_STATUS

= %0'140000',

EXPECTED TRANSMIT FLAG WORD

PATRN2

NXM_HI_ADR

XWD2_| MASK

= #0'001471',

= %0'000077',

= %0'037777',

XWD11I_STATUS = %0’ 000000’ ,
XWD12_STATUS = %0’'000400',
XWD14_STATUS = #0'047600',

TRANSMIT STAT

LDZHASKBIS

EXPECTED TRANSMIT STATUS WD 1

BIT 8 IS SET IN INTERNAL LOOOPBACK MODES
BIT 8 IS RESET IN EXTERNAL LOOOPBACK MODES
EXPECTED TRANSMIT STATUS WD 1

= %0’'177407',
RWD2_MASK
RWD1_STATUS = %0'020000',
RWD1I_STATUS = #0’'100000',
RWD12_STATUS = %0’ 160000,
RWD13_STATUS = #0’'000000’',
RWD14_STATUS = %0’ 060000’ ,
RWD15_STATUS = %0’'000001’,
RWD16_STATUS = %0’'044000',

RECEIVE FLAG WORD MASK BITS
RECEIVE STATUS WD 1 MASK BITS
RECEIVE STATUS WD 1 MASK BITS ! N.M. CHANGED FROM 174017 TO 174013
RECEIVE STATUS WD 1 MASK BITS
RECEIVE STATUS WD 1 MASK BITS
EXPECTED RECEIVE STATUS WD 1
EXPECTED RECEIVE STATUS WD 1
EXPECTED RECEIVE STATUS WD 1
EXPECTED RECEIVE STATUS WD 1
EXPECTED RECEIVE STATUS WD 1
EXPECTED RECEIVE STATUS WD 1
EXPECTED RECEIVE STATUS WD 1

RFLG_STATUS

= #0'140000‘,

EXPECTED RECEIVE FLAG WORD

RHL _MASK
RLL_MASK

= %0'003400'
= %0'000377',

! RCV HIGH ORDER LENGTH BITS
! RCV LOW ORDER LENGTH BITS

RFLG_MASK

= #%0’' 140000’ ,

Ml
MASK

= ¢#0’'174003',

Rl H‘SK

= #%0’'100000',

= #%0' 140000’ ,

(S)

27-Mar-1986 07:35:28

VALID ADDRESS IF 1
CHAIN ADDRESS IF 1
END OF MESSAGE IF 1

SETUP MODE PACKET IF 1

gRE

BUFFER NOT USED IF 1
LAST DESCRIPTOR IN CHAIN

XMIT AND RCV LISTS INVALID

INTERNAL AND EXTERNAL LOOPBACK BITS
INTERNAL AND EXTERNAL LOOPBACK BITS
INTERNAL LOOPBACK MODE
INTERNAL/EXTENDED LOOPBACK MODE
EXTERNAL LOOPBACK MODE

ENABLE NORMAL MODE OF OPERATION
ENABLE PROMISCUOUS MODE OF OPERATION

ENABLE ALL MULTICAST MODE OF OPERATION
TURN OFF LED 1
TURN OFF LED 2
TURN OFF LED 3

SEQ 293

DISK2:[SCODA.QNA.ZQGNAJQNALIB.R16;1

BUFFER DESCRIPTOR / CHAIN DESCRIPTOR BIT DEFINITIONS

[eleleleloleloleoleoleleoleleoleoleololololeloleleteleolelelolooteleololoTetoToTo)

WE WE

Be BE B

BE B

B8 BE

RS BE W

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

Page

(6)

OO0O000O0O0O0O0O0O0O0O0O00O000O00

27-Mar-1986 07:35:28
26-Mar-1986 17:01:04
Tee

STATION ADDRESS CONSTANTS
HIGH STATION ADDRESS BITS

= O,
SADR1
SADR2
= 1,
SADR3
= 2,
= 3,
CHSUM
Tos

MIDDLE BITS
LOW STATION ADDRESS BITS
ACTUAL CHECKSUM INDEX

HARDWARE AND SOFTWARE P-TABLE EQUATES
SWP_SIZE

HWP_SIZE

SET_IT
CLR_IT

=6,
-2,
=1,

! SOFTWARE P-TABLE SIZE ( WORDS )
! HARDWARE P-TABLE SIZE ( WORDS )

VAX-11 Bliss-16 v4.0-579

SEQ 294

DISK2:[SCODA.QNA.ZQNA]GNALIB.R16;1

Page

[eTeTeToloTlololololelotleolotololelotolelololeodololodeleloleleloteolololatelolotoTotoToYo
Yo Yol

27-Mar-1986 07:35:28
26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579
DISK2:[SCODA.QGNA.ZGNAJQNALIB.R16;1

oo
]

THE CONTROL AND STATUS REGISTER BIT DEFINITIONS

FIELD

mp_g;:n.os

RE
SR
NI
8D
XL
RL

=[0,1, 0],
=( 1. 1. 0],
=( 2. 1. 0],
=[3 1. 0],
=( 4 1,07,
=[5, 1. 0],

! RECEIVER ENABLE
! SOFTWARE RESET
' NXM INTERRUPT
! BOOT/DIAGNOSTIC ROM
? XMIT LIST INVALID
! RCV LIST INVALID

R/M ( ACTIVE HIGH )
R/W ¢ ACTIVE HIGH )
R ( ACTIVE HIGH )
R/W ( ACTIVE HIGH )
R ( ACTIVE HIGH )
R ( ACTIVE HIGH )

EL
SE

=[9 1. 01J,
= [10. 1. 0 ],

1 EXTERNAL LOOPBACK MODE
! SANITY TIMER ENABLE

R/M ( ACTIVE HIGH )
R/M ( ACTIVE HIGH )

XC
CA

=
=

IE
XI
L
X1

=(
=[
=

6, 1, 0],
7.1, 0],
(8 1.0]),

[11. 1. 0

1 INTERRUPT ENABLE
i XMIT INTERRUPT REQUEST
1 INTERNAL LOOPBACK MODE

! RESERVED, UNUSABLE

= [14. 1. 0 ],

ED,
UNUSABLE
! RESERV

[12. 1. 0
[(13. 1. 0

],
],

= [15. 1. 0

=[8,2 01,

LO_NIBBLE = [ 0,
HINIBBLE = [ 0.
=(0.
LOBYTE

R
R

1 RCV INTERRUPT REQUEST

R/W ( ACTIVE HIGH )

i XMIT AND RCV LISTS INVALID BITS
i FETCH WHOLE WORD

0, 0
1,
4, 0 1.
8,01,

0, 16, 0

STWORD

=[O, 16, 0

RCV.LO
RCVHI

( ACTIVE HIGH )
( ACTIVE HIGH )

! LOOPBACK BITS

HIBYTE

STADDR

R/M ( ACTIVE HIGH )
R/W ( ACTIVE HIGH )
R/W ( ACTIVE LOW )

! TRANSCEIVER PWR
! CARRIER

=([4.2.01.
XLRL
ALL_BITS= [ 0,16, 0 1.

=(0. 8,01,

2, 0, 16, 0 1,
=[
=(3.0,8,0)

XMIT LO = [ 4. 0. 16, 0 3.
XMITHI = [ S5, 0, 8, 0 1,
VEC_ADR = [ 2. 8, 0 1,
VECCALL = [ 6, 0. 16, 0 }
CSRALL = [ 7. 0. 16, O

'
!
:

! GET WORD,

SEQ 295

ALL BITS

! STATION ADDRESS LOW BYTE
! GET WORD, ALL BITS

! RCV BUFFER DESCRIPTOR LIST LOW ADDRESS
! RCV BUFFER DESCRIPTOR LIST HIGH ADDRESS

i XMIT BUFFER DESCRIPTOR LIST LOW ADDRESS

! XMIT BUFFER DESCRIPTOR LIST HIGH ADDRESS
i INTERRUPT VECTOR ADDRESS
i INTERRUPT VECTOR ADDRESS
i CONTROL AND STATUS REGISTER

Page

9
(8)

27-Mar-1986 07:35:28
[eleleTeTolololotololololotelodololeloleoleololelodeolelelotololedotololelolotolotoToYeTo
Yool

26-Mar-1986 17:01:04

VAX-11 Bliss-16 V4.0-579

DISK2:[SCODA.QNA.ZQNAJGNALIB.R16;1

e
'

TRANSMIT AND RECEIVE DESCRIPTOR LIST FIELDS

ELD
DL_FIELDS
SET

FLGWO

=[O0, 0, 16, 0 ],

! XMIT OF RCV FLAG WORD

DBITS
HBIT
LBIT
SBIT
EBIT
CBIT
veir

=1, 0, 16, 0 ],
=(1, 6,1, 0],
=(1, 7,1, 0],
=0[1,12,1,0]
=([1,13,1, 0],
=[1, 14,1, 0],
=1(01,15
1,01,

!
!
!
!
!
!
!

LOARDR

=1[ 2, 0, 16, 0 ],

! LOW 16 BITS OF XMIT OR RCV BUFFER ADDRESS

TWOL

=[3,0, 16, 01,

! XMIT OR RCV PACKET WORD LENGTH

STwp1
OVF

4, 0, 16, 0 ],
=[
=(4,0,1, 0],

! XMIT OR RCV STATUS WORD 1
! FIFO BUFFER OVERFLOW

STEl6
NOCAR
RUNT

ERRSU
LSTD

4, 10, 1, 0 ],
=[(
=[4, 11,1, 0 ],
4,11, 1, 0 ],
=(
= [ 4, 13, 1, 0 ],
4, 14, 1, 0 J,
=(
1, 0 )},
= [ 4, 14,
=[(4,15,1, 0],

! SANITY TIMER ON AT POWER_UP
! NO CARRIER
IN FIFO
! RUNT PACKET
! CONTROL SET_UP OR LOOPBACK PACKET
! LONG PACKET
! ERROR SUMMARY
! LAST DESCRIPTOR LIST IN CHAIN

STWp2

=(5,0, 16, 0

RBLL

=[(5,0,

8, 01,

! RECEIVE BYTE LENGTH ( LOW 8 BITS )

DLINK

=1[6,0, 16, 0 ],

! DESCRIPTOR LINK PRE-FILL STATUS WD

BSTAT

=[7,0, 16, 0 ],

! BUFFER STATE ! XMIT ODD/EVEN ! HIGH ORDER ADR

ABORT

ESETWP
LONGP

B.LEN

WLEN

TES;

=[(4,

9,1, 0],

= E 0, 8,0 ].

0,16, O

DESCRIPTOR BITS
XMIT BUFFER BEGINS ON BYTE BOUNDARY
XMIT BUFFER ENDS ON BYTE BOUNDARY
SET-UP PACKET IF 1
LAST DESCRIPTOR IN CHAIN ( END )
DESCRIPTOR HAS CHAIN ADDRESS IF 1
VALID ADDRESS IF 1

! XMIT OR RCV STATUS WORD 2

SEQ 296

Page

M7
27-Mar-1986 07:35:28
0388
0389
0390
0391
0392
0393
0394
0395

0396
0397
0398
0399
0400
0401
0402
0403
0404
0405
0406
0407
0408

0410

0411
0412
0413
0414

0415

[eleleleleleleleololeolealeleleloleoleleletolotelelotetototo)

26-Mar-1986 17:01:04

]

HARDWARE P-TABLE FIELD DEFINITIONS

FIELD
M_ZETIELDS -

ADDR
VEC
%

=(0,0, 16, 0
=(1,0, 16, 0

=[2,0, 16, 0

! I/0 PAGE BASE ADDRESS
! INTERRUPT VECTOR ADDRESS
! BR LEVEL

Tee
'

SOFTWARE P-TABLE FIELD DEFINITIONS

FIELD

SUP_FIELDS -

ERR_CNT = (0,0,16,0)

! # OF ERRORS BEFORE DROPPING DEQGNA

COMMAND QUALIFIERS

:53
BLISS/PDP11 GNALIB.R16/LIST=GNALIB.LIS/LIBRARY=QNALIB.L16/SOURCE=PAGE

BYaosadi

me:

| Lines/CPU Min:

00:05:3
4

10331

; Lexemes/CPU-Mi n: 48697

Memory Used: 46 pages
ibrary Precompilation Complete
—

B
H

],
],

SEQ 297

DISK2:[SCODA.QNA.ZQNAJGNALIB.R16;1

Toe

VAX-1] Bliss-16 V4.0-579

Page

(10)

NHWLIN -

CZQNAAO DEQNA FUNCTIONAL TEST

MACRO V05.03

Thursday 27-Mar-86 07:38

SEQ 298

Page 2

.TITLE CZGNAAO DEQGNA FUNCTIONAL TEST
.IDENT /2.4/

.ngHCT $XYZ$,RO,I,LCL,REL,CON

IDENTIFICATION

PRODUCT CODE:

AC-T614A-MC

PRODUCT NAME:

CZQGNAAO DEQNA FUNCTIONAL TEST

PRODUCT DATE:

10 OCT. 1983

MAINTAINER:

PSD DTAGNOSTIC ENGINEERING
S. MAZURCZYK

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE
TERMS. I"T‘I'&LE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES

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

DEC ASSUMES

RESPONSIBILITY

FOR

THE USE OR_RELIABILITY OF ITS

SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

EA AR AV 4

2t et 3d St o

CZQNAAO DEQNA FUNCTIONAL TEST

MACRO V05.03

Thursday 27-Mar-86 07:38

Page 3

$£Q 299

ABSTRACT:

Out-of-line routines to save and restore Ngictor contents.
Also, power fail and console input interrupt service routines.
ENVIRONMENT:

PDP-11 or Compatibility Mode of the VAX, EIS and NOEIS
DISCUSSION:

The routine $SAVEn is called at the beginning
which modifies the contents of registers 1
sequence is the following:
JSR

R1,$SAVEn

of a routine
thru n. The calling

CZQNAAO DEQNA FUNCTIONAL TEST

MACRO V05.03

Thursday 27-Mar-86 07:38

RO=%0

000000
000001
000002
000003
000004
000005
000006
000007

R1=%1

R2=%2
R3=4%3
R4=%4

RS=%5

\’Jauvvu
e

82 AR
2RE3F + 20

e
-«
e
e

FITYY *f\ Mf‘\flf\

(>4

RS2RV
2S
Satee
33°REAR
e
3 SRRRAN
geeees:
3

RE4:

3p3gas

000012

8333333

$SAVES::

333834333333

000010

$SAVES: :

$SAVES::

MOV
MOV
JSR

b<]

010246
010146
016601

RSA2T

$SAVE2: :

SP=%6
PC=%7

Page 4

SEQ 300

MACRO V05.03

110

111 000106

112 000106

052737

000100

113 000114 010667 000000G

177560

Thursday 27-Mar-86 07:38

WAIT.F::

MOV

WAIT

114 000120 000001

iig 000122

118 000124 000257
119 000126 012767 000001 000000G

120 000134 012737 000017 177524
121 000142 016706 000000G

122 000146
123 000150
124 000152
125 000154
126 000156
127 000160
128 000162
129 000164
130 000166

000240

000240
000240
000240
000240
000240
000207

131 000166 012767 000000 000000G
132 000174 005067 000000G
133 000200 005037 177560
134 000204 013767 177562 000000G
000002

135 000212

#100,3#177560

SP, TEMP6

RTS

000207

117 000124

BIS

PWR.IN::

ccC
MOV

MOV
MOV

KBD.IN::

NOP
NOP
NOP
NOP
NOP
NOP
NOP
RTS

MOV

CLR
CLR
MOV
RTI

CZGNAAO DEQNA FUNCTIONAL TEST

#1,INTERR

#17,80177524
TM.SP

SEQ 301

Page 5

; ENABLE CONSOLE INPUT INTERRUPT

; SAVE COPY OF STACK POINTER ADDRESS

; WAIT FOR AN INTERRUPT

; CLEAR PS CONDITION BITS ( 0-4 )
; SET IF SANITY TIMER TIMED_OUT

; TURN OFF CPU LED’'S
; RESORE STACK POINTER

#0,INTERR

TEMP1
177560
177562, TEMP1

; SET IF INTERRUPTED FROM CONSOLE
H
; DISABLE CONSOLE INTERRUPTS
; SAVE CHARACTER

MACRO V05.03

CZQNAAO DEQNA FUNCTIONAL TEST

Symbol table

KBD.IN
PWR.IN
. ABS.

000000

$XYZ$¢
000214
Errors detected:

000076R
000074R

002 RE3
002 RE4

000166RG
000124RG

000000

000100R

RE2

INTERR= ssxsss GX

000

001

002
O

Thursday 27-Mar-86 07:38

002 TEMP1 = s&#ssx GX
002 TEMP6 = #sskkx GX
002 WAIT.F 000106RG

002

Page 5-1
$SAVE2
$SAVE3

SEQ 302

000000RG
000014RG

ABS,0VR)
(RW,I,GBL,ABS,

(RW,I,LCL,REL.CON)

(RO,I,LCL,REL,CON)

++% Assembler statistics

work file: 51 Words

( 1 P%u

Size of core pool: 19684 Words

Operating
El

PoR% ws)

system: RSX-11M/PLUS (lhdtr

time: 00:00:02.44

B165AV.08J,B16SAV.LIS/-SP=SVC34/ML,B16SAV

s o e T
T e
e

002 $SAVE4
002 $SAVES

000032RG
000052RG

002
002

ZQNAEQ.EXE;2

Memory

allocation

86 07:38
YMR

TKB M42.00

SEQ 303

Partition name : DUMMY

Identification : V01.0

Task

UIC

: [330,33)

Task attributes: -HD
Total address windows: 1.

Task

image

size

: 11360. words

Task address limits: 002000 056263
R-W disk blk limits: 000002 000056 000055 00045.
+++ Root segment: ZGNAL

R/W mem

limits: 002000 056263 054264 22708.

Disk blk limits: 000002 000056 000055 00045.

Memory allocation synopsis:

Title

Ident

File

002000 000244 00164. ZGNA1

VO01.0

ZGNA1.0BJ;2

002244 000152 00106. ZGNA2

V01.0

ZQNA2.0BJ;2

VO01.0

ZQGNA1.0BJ;2

V01.0

ZGNA1.0BJ;2

V01.0

ZGNA2.0BJ;2

Section
$CODE$ : (RO, I,LCL,REL,CON)

$GLOB$ : (RW,D,LCL,REL,CON)

002000 000416 00270.

002416 012510 05448.

002416 012510 05448. ZGNA1
$PLIT$:(RO,D,LCL,REL,CON)

015126 007520 03920.

015126 007520 03920. ZGNA1
AA$COD:(RO,I,LCL,REL,CON)

024646 000466 00310.

024646 000466 00310. ZGNA2

ZQNAEO.EXE;2

Memory allocation map
27-MAR-86

7:38
07:

TKB M42.00

SEQ 304

Page
2

025334 021544 09060.
025334 021544 09060. ZANA3Z

V01.0

ZGNA3.0BJ;2

VO01.0

ZQANA4 .0BJ;2

047100 006612 03466.
047100 006612 03466. ZANA4

‘ . BLK.:(RW,I,LCL,REL,CON)

055712 000116 00078.
055712 000116 00078.

2
ZQANA6.0BJ;

.MAIN.

056030 000234 00156.

056030 000214 00140. CZQGNAA 2.4
056244 000020 00016. ZANAS

V01.0

B16SAV.0BJ;2

ZANA5.0BJ;2

Global symbols:

ADR

000020

BITO9

001000

BIT6é

000100

CHK.XM 051140-R

EF.CON 000036

ERR.NU 015044-R

GP$7

002400-R

GP$8

002406-R

HOE

100000

BD.PRO 014310-R

BIT1

BIT7

000200

CLR.BU 050334-R

EF .NEW 000035

ETH.ST 014064-R

BITO

000001

BIT10

BIT8

000400

CLR.DE 050306-R

EF.PWR 000034

EVL

BITO0

000001

BIT11

BIT9

001000

COMPAR 052236-R

EF .RES 000037

E1$REP 047404-R

HP.TAB 002210-R

BITO1

BIT12

BL$LAS 056244-R

COUNTE 015026-R

EF.STA 000040

FORM.H 054016-R

HWP.TA 015004-R

BIT02

BIT13

000400
BOE

CSR.WO 015040-R

ERRBLK 002204-R

GET.AD 015014-R

IBE

010000

BITO3

BIT14

BUF .LE 015036-R

DATA.B 003016-R

ERRMSG 002202-R

GP$1

002314-R

IDV

000040

BITO4

BIT15

CHECKS 015034-R

DEQNA. 015024-R

ERRNBR 002200-R

GP$2

002324-R

IER

020000

BITOS

BIT2

CHK.CS 050746-R

DESCR. 002416-R

ERROR$ 047100-R

GP$3

002340-R

INTERR 015022-R

100000

000004

ZANAEOQ.EXE;2

Memory allocation muTKB M42.00
27-MAR-86

SEQ 305

Page
3

B8IT06

000100

BIT3

000010

CHK.RC 051436-R

DFSTBL 002210-R

ERRTYP 002176-R

GP$4

002350-R

INTR.T 055250-R

BITO7

000200

BIT4

000020

CHK.RI 050362-R

DOWN.C 015032-R

ERR.CO 015050-R

GP$5

002364-R

I0P.DA 015012-R

BITO8

000400

BITS

000040

CHK.RX 051756-R

D$PCNT 002122-R

ERR.FL 015046-R

GP$6

002372-R

IOP.TA 014044-R

ISR

000100

L$HW

002210-R

MSGO6

016220-R

MSG43

021572-R

PREP.F 053734-R

SET.XD 052732-R

Ti2

036600-R

IXE

004000

L$HWLE 002206-R

MSGO7

016312-R

MSG44

021656-R

PRI

002000

SP.TAB 002220-R

T13

040036-R

002104-R

MSGO8

016404-R

MSG45

021760-R

PRIOO

000000

STATIO 014100-R

T14

041320-R

KBD.IN 056216-R

L$ICP

LOE

040000

L$INIT 025210-R

MSGO9

016476-R

MSG46

022036-R

PRIO1

000040

SWP.BL 002230-R

T15

041550-R

LOGUN

015124-R

L$LADP 002026-R

MSG10

016570-R

MSG47

022106-R

PRIO2

000100

SWP.IL 002226-R

T16

043612-R

Lot

000010

L$LAST 056250-R

MSG11

016652-R

MSG48

022172-R

PRIO3

000140

SWP.LB 002222-R

T17

044454-R

L$ACP

002110-R

L$LOAD 002100-R

MSG12

016736-R

MSG49

022230-R

PRIO4

000200

SWP .NX 002232-R

T18

044772-R

L$APT

002036-R

LSLUN

MSG13' 017002-R

MSG50

022266-R

PRIOS

000240

SWP.TA 015006-R

T19

045342-R

L$AU

025266-R

L$MREV 002050-R

MSG14

017066-R

MSG51

022350-R

PRIO6

000300

SWP.TI 002220-R

026624-R

L$AUT

002070-R

L$NAME 002000-R

MSG1S

017156-R

MSGS52

022402-R

PRIO7

000340

SWP.TO 002224-R

T20

046042-R

L$AUTO 025222-R

L$NDHR 002334-R

MSG16

017240-R

MSGS53

022446-R

PTRN.T 014110-R

TADR1

015120-R

T21

047064-R

002106-R

L$NDHW 002214-R

MSG17

017326-R

MSG54

022476-R

PWR.IN 056154-R

TADR2

015122-R

027320-R

L$CLEA 025242-R

L$NDSF 002414-R

MSG18

017414-R

MSG55

022546-R

015102-R

TARGET 014120-R

030366-R

002032-R

L$NDSW 002234-R

MSG19

017440-R

MSG56

022610-R

015104-R

TBYTE1 015114-R

031246-R

L$CCP

L$CO

002074-R

ZQNAEOQ.EXE;2

Memory allocation map
27-MAR-86

07:38

TKB M42.00

SEQ 306

Page 4

L$DEPO 002011-R

L$PRIO 002042-R

MSG20

017526-R

MSGS7

022646-R

015106-R

TBYTE2 015115-R

031710-R

L$DESC 002262-R

L$PROT 002236-R

MSG21

017616-R

MSG58

022736-R

015110-R

TBYTE3 015116-R

033322-R

L$DESP 002076-R

L$PRT

002112-R

MSGe2

017676-R

MSGS9

023002-R

PS5

015112-R

TBYTE4 015117-R

033560-R

L$DEVP 002060-R

L$REPP 002062-R

MSG23

017762-R

MSG60

023114-R

QNA.IN 025306-R

TD13

014500-R

034104-R

L$DISP 002124-R

L$REV

002010-R

MSG24

020040-R

MSG61

023156-R

QSTO1

015126-R

TD16

014350-R

UAM

000200

L$OLY

002116-R

L$RPT

024656-R

020114-R

MSG62

023220-R

QST02

015156-R

TEMP1

015060-R

UP.COU 015030-R

L$DTP

002040-R

L$SFTL 002336-R

020156-R

MSG63

023310-R

QSTO3

015206-R

TEMP2

015062-R

VER.DE 050106-R

L$DTYP 002034-R

L$SOFT 002340-R

MSG27

020220-R

MSG64

023404-R

QST04

015250-R

TEMP3

015064-R

WAIT.F 056136-R

002056-R

MSG28

020262-R

MSG6S

023440-R

QSTOS

015312-R

TEMP4

015066-R

WALKIN 053010-R

020326-R

MSG66

023504-R

QSTO6

015354-R

TEMPS

015C70-R

WRT.ST 053542-R

L$DU

025254-R

L$SPC

L$DUT

002072-R

L$SPCP 002020-R

L$DVTY 002244-R

L$SPTP 002024-R

MSG30

020354-R

MSG67

023572-R

QSTO07

015416-R

TEMP6

015072-R

XBUF .L 015016-R

MSG31

020442-R

MSG68

023674-R

QST10

015460-R

TEMP7

015074-R

XC.FLA 015042-R

020526-R

MSG69

023772-R

RBUF .L 015020-R

TEMP8

015076-R

XMIT.A 055412-R

020570-R

MSG70

024072-R

RCV.BU 003016-R

TEMP9

015100-R

XMIT.B 007016-R

-R
020644

MSG71

024156-R

RCV.D. 002416-R

TMPR1

015052-R

XMIT.D 002616-R

002052-R

L$STA

002030-R

L$ENVI 002044-R

L$SW

002220-R

L$ERRT 002176-R

L$SWLE 002216-R

002102-R

L$TEST 002114-R

L$EXP1 002046-R

L$TIML 002014-R

MSG35

020720-R

MSG72

024236-R

RD13

014604-R

TMP.IO0 015054-R

XMIT.I 055440-R

LS$EXP4 002064-R

LSUNIT 002012-R

MSG36

021016-R

MSG73

024324-R

REG.AD 015010-R

TMP.RE 015056-R

XMIT.S 054466-R

LS$EXPS 002066-R

MSGOO

MSG37

021122-R

MSG74

024414-R

RESET. 047424-R

TURN.O 055636-R

$END.L 056262-R

L$EF

L$ETP

015522-R

MSG33

ZQNAEO.EXE;2

Honorya_’}}‘ga?gon ag,?”TKB M42.00

SEQ 307

Page 5

L$HARD 002314-R

MSGO1

015560-R

MSG38

021214-R

MSG75

024466-R

ROMCHK 055712-R

T4FREE 056260-R

$SAVE2 056030-R

L$HIME 002120-R

MSGO2

015642-R

MSG39

021274-R

MSG76

024556-R

SEND.E 054734-R

T$PTHV 000001

-R
$SAVE3 056044

L$HPCP 002016-R

MSGO3

015730-R

MSG40

021360-R

NXM.IN 025276-R

SEND.T 055102-R

025774-R

$SAVE4 056062-R

L$HPTP 002022-R

MSGO4

016034-R

MSG41

021450-R

PHYS.A 013016-R

SETUP. 013044-R

T10

034342-R

$SAVES 056102-R

L$HRDL 002312-R

MSGOS

016126-R

MSG42

021512-R

PNT

SET.RD 052654-R

Ti1

034676-R

s+% Task builder statistics:
Total work file references: 89946.
Work
Work

file reads: 0.
file writes: 0.

Size of core pool: 23176. words (90. pages )
Size of work file: 3584. words (14. pages)
Elapsed time:00:00:14

001000

ZQANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

CREF

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

..
REFERENCES.

ADR

000020

¢ ZANA1

¢ ZQGNA2

80.PRO

014310-R

¢ ZQNAL

ZQNA3

BITO

000001

¢ ZANA1

& ZQNA2

BITOO

000001

# ZANA1

& ZQGNA2

BITO1

# ZANA1

& ZQNA2

BITO2

# ZANA1

# ZGNA2

BITO3

# ZANA1

# ZONA2

BITO4

# ZANA1

& ZQGNA2

BITOS

# ZGNA1

& ZGNA2

BITO6

# ZANA1

& ZGNA2

BITO7

# ZANA1

& ZGNA2

BITO8

# ZANA1

& ZQGNA2

BITO9

# ZANA1

# ZQNA2

BIT1

# ZANA1

# ZGNA2

BIT10

# ZQNA1

& ZQNA2

BIT11

# ZONA1

& ZQNA2

BIT12

# ZANA1

& ZGNA2

BIT13

# ZQNA1

& ZGNA2

BIT14

# ZANA1

& ZQNA2

BIT1S

# ZGNA1

& ZGNA2

BIT2

# ZGNA1

& ZQNA2

# ZANA1

& ZGNA2

# ZQNA1

# ZGNA2

BIT3
BIT4

000010

PAGE 1

ZQNA4

SEQ 308

04.00

ZGNAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

BITS

000040

¢ ZQNAL

¢ ZQNA2

BIT6

000100

¢ ZQNAL

# ZQNA2

BIT7

000200

¢ ZQGNAL

# ZQNA2

BITS

000400

¢ ZQNAL

# ZQNA2

BITY

001000

# ZQNA1

# ZQNA2

F BLSLAS

056244 -R

¢ ZQANAS

000400

@ ZQNA1

BUF.LE

015036-R

# ZQGNA1

CHECKS

015034-R

¢ ZQGNA1

ZANA3

CHK.CS

050746-R

ZANA3

¢ ZANA4

CHK.RC

051436-R

ZANA3

# ZQNA4

CHIC.RI

050362-R

ZANA3

# ZQNA4

CHI. RX

051756-R

ZANA3

¢ ZQNA4

CHIC. XM

051140-R

ZANA3

# ZQNA4

CLR.BU

050334-R

ZANA3

# ZQNA4

CLR.DE

050306-R

ZANA3

¢ ZGNA4

COMPAR

052236-R

ZANA3

# ZQNA4

COUNTE

015026-R

# ZQNAL

ZANA3

ZGNA4

CSR. WO

015040-R

# ZQNAL

ZANA3

ZANA4

DATA.B

003016-R

# ZQNAL

ZANA3

ZANA4

DEGNA.

015024-R

# ZQNAL

ZANA3

ZANA4

DESCR.

002416-R

@ ZQGNA1

ZANA3

ZQNA4

DFSTBL

002210-R

¢ ZGNAl

DOWN.
C

015032-R

@ ZGNAL

ZQANA3

ZANA4

D$PCNT

002122-R

@ ZQGNAL

EF .CON

000036

¢ ZQNAL

# ZQNA2

EF .NEW

000035

@ ZGNA1

# ZQNA2

| eF.PwR

000034

¢ ZANAL

# ZQNA2

EF .RES

000037

¢ ZQGNA1

# ZGNA2

# ZQNA2

ZANA4

.MAIN.

PAGE
2

SEQ 309

ZQANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

PAGE 3
CREF

GLOBAL CROSS REFERENCE
VALUE

..
REFERENCES.

000040

¢ ZQGNA1

-R
002204

¢ ZQNA1

002202-R

¢ ZQNA1

002200-R

¢ ZQNA1

047100-R

ZANA3

ERRTYP

002176-R

¢ ZQGNA1

ERR.CO

015050-R

# ZGNAl

ZANA3

ZQNA4

ERR.FL

015046-R

# ZQANA1

ZANA3

ZANA4

ERR.NV

015044-R

# ZQNA1

ZANA3

ZANA4

ETH.ST

014064-R

# ZGNAl

000004

# ZQGNAL

# ZANA2

# ZQNA2

# ZQNA4

E1$REP

047404-R

ZANA3

# ZQGNA4

FORM.H

054016-R

ZANA3

# ZQNA4

GET.AD

015014-R

# ZANA1

ZANA2

GP$1

002314-R

# ZGNA2

GP$2

002324-R

# ZQNA2

GP$3

002340-R

# ZQNA2

GP$4

002350-R

# ZQNA2

GP$5

-R
002364

# ZQNA2

GP$6

002372-R

# ZQNA2

GP$7

002400-R

# ZQNA2

GP$8

002406-R

® ZGNA2

100000

@ ZQGNAL

HP.TAB

002210-R

# ZQGNAL

HWP.TA

015004-R

@ ZQNAL

ZQNA3

ZQNR4

ZQANA3

ZANA4

# ZQNA2

ZANA2

SEQ 310

04.00

ZANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

IBE

010000

# ZANA1

¢ ZQNA2

000040

¢ ZANAL

@ ZGNA2

IER

020000

¢ ZGNA1

@ ZQNA2

INTERR

015022-R

CZQNAA

& ZQNAL

INTR.T

055250-R

ZANA3

& ZQNA4

IOP.DA

015012-R

# ZQGNA1

IOP.TA

014044-R

ISR

ZANA2

ZANA3

ZANA2

ZANA3

ZQNA4

& ZGNAL

ZANA2

ZANA3

ZGNA4

000100

¢ ZANA1

& ZONA2

IXE

004000

# ZANA1

¢ ZQNA2

KBD.IN

056216-R

# CZGNAA

ZANA3

LOE

040000

# ZGNA1

@ ZQNA2

LOGUN

015124-R

# ZGNAl

ZANA2

Lot

000010

¢ ZANA1

& ZQGNA2

L$ACP

002110-R

# ZGNA1

L$APT

002036-R

# ZGNA1

L$AU

025266-R

ZANA1

L$AUT

002070-R

# ZQNA1

L$AUTO

025222-R

ZANA1

LsCCP

002106-R

# ZQNA1

L$CLEA

025242-R

ZANA1

L$CO

002032-R

& ZGNA1

L$DEPO

002011-R

& ZGNA1

L$DESC

002262-R

ZANA1

L$DESP

002076-R

& ZQNA1

L4DEVP

002060-R

# ZQGNA1

L$DISP

002124-R

& ZGNA1

LSOLY

002116-R

# ZQNA1

ZANA3

ZGNA4

# ZQNA2

& ZQGNA2

& ZGNA2

ZANA2

PAGE
4

ZGNA4

SEQ 311

ZANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

PAGE 5
CREF

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

REFERENCES. . .

L$DTP

002040-R

@ ZQGNAl

L$DTYP

002034-R

¢ ZGNAl

L$DU

025254-R

ZANA1

L$DUT

002072-R

& ZQNAL

L$OVTY

002244-R

ZANA1

L$EF

002052-R

# ZGNAl

L$ENVI

002044-R

& ZGNA1

L$ERRT

002176-R

# ZQGNA1

L$ETP

002102-R

# ZQGNA1

L$EXP1

002046-R

# ZGNAl

L$EXP4

002064-R

& ZGNAL

L$EXPS

002066-R

& ZQNAl

L$HARD

002314-R

ZANA1

L$HIME

002120-R

& ZQNAl

L$HPCP

002016-R

# ZGNAl

L$HPTP

002022-R

# ZGNAL

L$HRDL

002312-k

# ZGNA2

L$HW

002210-R

# ZGNA1

L$HWLE

002206-R

& ZQNAl

L$ICP

002104-R

@ ZGNAL

LSINIT

025210-R

ZANAL1

LSLADP

002026-R

# ZGNAl

LSLAST

056250-R

ZANAL1

LSLOAD

002100-R

& ZGNAL

LSLUN

002074-R

& ZGNAL

LSMREV

002050-R

# ZGNA1

b
e ——

s e

SEQ 312
04.00

# ZQGNA2

& ZQNA2

& ZGNA2

& ZQGNA2

@ ZQGNAS

‘m—-

gp—

ZQNAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

L $NAME

002000-R

o ZONAL

L $NDHR

002334-R

¢ ZONA2

L $NDHW

002214-R

¢ ZQNAL

L $NDSF

002414-R

o ZONA2

L $NDSW

002234-R

¢ ZQNAL

k L$PRIO

002042-R

¢ ZGNAL

L$PROT

002236-R

¢ ZQNAL

L$PRT

002112-R

¢ ZQNAL

L$REPP

002062-R

# ZQNAL

L$REV

002010-R

# ZQNAL

LS$RPT

024656-R

ZGNAL

L$SFTL

002336-R

¢ ZONA2

L$SOFT

002340-R

ZGNAL

L$SPC

002056-R

# ZQNAL

L$SPCP

002020-R

# ZQNAL

L$SPTP

002024-R

¢ ZQNAL

L$STA

002030-R

# ZQNAL

L$SW

002220-R

# ZQNAL

L$SWLE

002216-R

# ZQNAL

L$TEST

002114-R

# ZQNA1

L$TIM

002014-R

# ZQNAL

LSUNIT

002012-R

# ZQNAL

015522-R

# ZQNAL

015560-R

# ZGNAL

ZANA3

ZQNA4

015642-R # ZGNAL

ZANA3

ZANA4

015730-R

ZANA3

ZQNA4

MSGO1

MSGO3

# ZQNAL

PAGE
6

SEQ 313

ZANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

CREF

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

MSGO4

016034-R

# ZQNAL

ZANA3

ZGNA4

MSGOS

016126-R

@ ZQGNAL

ZANA3

ZGNA4

MSGO6

016220-R

# ZQGNAL

ZANA3

ZQNA4

MSGO7

016312-R

¢ ZQGNA1

ZANA3

ZANA4

MSGO8

016404-R

¢ ZANAL

ZANA3

ZANA4

MSGO9

016476-R

¢ ZGNA1

ZQNA3

ZQNA4

MSG10

016570-R

# ZAGNAL

ZANA3

ZANA4

MSG11

016652-R

# ZQNA1

ZANA3

ZGNA4

MSG12

016736-R

# ZANA1

ZANA3

ZGNA4

MSG13

017002-R

¢ ZQNAL

ZANA3

ZGNA4

MSG14

017066-R

# ZANA1

ZANA3

ZQNA4

MSG15

017156-R

# ZGNA1

ZANA3

ZQNA4

MSG16

017240-R

# ZQGNAL

ZANA3

ZANA4

MSG17

017326-R

# ZQGNAL

ZANA3

ZQNA4

MSG18

017414-R

# ZGNA1

MSG19

017440-R

¢ ZANAL

ZQNA3

017526-R

# ZQGNAL

ZANA3

ZQNA4

017616-R

# ZANA1

ZQNA3

ZANA4

017676-R

¢ ZANA1

ZGNA3

ZANA4

017762-R

@ ZQGNAL

ZQNA3

ZQNA4

020040-R

# ZQGNAL

ZANA3

ZANA4

020114-R

# ZQGNA1

ZANA3

ZANA4

020156-R

@ ZQNA1

ZANA3

ZGNA4

020220-R

¢ ZQNAL

ZANA3

ZQNA4

020262-R

# ZQNAl1

ZANA3

ZANA4

020326-R

@ ZQGNAL

ZANA3

ZGNA4

MSG21

MSG23

ZANA4

SEQ 314

PAGE
7

(4,00

ZANAEO

CREATED BY

TKB

ON 27-MAR-86 AT (7:38

MSG30

020354-R

@ ZQNAL

ZANA3

ZGNA4

MSG31

020442-R

¢ ZQGNAL

ZANA3

ZGNA4

MSG32

020526-R

¢ ZANAL

ZQANA3

ZANA4

MSG33

020570-R

¢ ZGNAL

ZQNA3

ZQNA4

MSG34

-R
020644

¢ ZQNA1

ZANA3

ZGNA4

MSG35

020720-R

# ZQNA1

ZANA3

ZQNA4

MSG36

021016-R

# ZQGNAL

ZANA3

ZQNA4

MSG37

021122-R

@ ZGNAL

ZANA3

ZANA4

MSG38

021214-R

¢ ZQNA1

ZGNA3

ZANA4

MSG39

021274-R

# ZQNA1

ZQNA3

ZANA4

MSG40

021360-R

# ZQNA1

ZANA3

ZQNA4

MSG41

021450-R

# ZANA1

ZQNA3

ZQANA4

MSGA42

021512-R

# ZQNA1

ZANA3

ZGNA4

MSG43

021572-R

# ZANAL

ZANA3

ZANA4

MSG44

021656-R

# ZANA1

ZANA3

ZANA4

MSG4S

021760-R

# ZQNA1

ZANA3

ZANA4

MSG46

022036-R

# ZQGNAL

ZANA3

ZGNA4

MSGA7

022106-R

# ZANAL

ZQNA3

ZANA4

MSGA48

022172-R

# ZANA1

ZQANA3

ZANA4

MSG49

022230-R

¢ ZQGNA1

ZANA3

ZANA4

MSG50

022266-R

# ZANAL

ZQNA3

ZQNA4

MSG51

022350-R

¢ ZGNAL

ZANA3

ZGNA4

MSG52

022402-R

# ZGNAL

ZANA3

ZQNA4

MSGS53

022446-R

# ZQNA1

ZANA3

ZQNA4

MSG54

022476-R

# ZQNAL

ZANA2

ZANA3

MSGS55

022546-R

# ZGNAl

ZANA3

ZANA4

PAGE
8

SEQ 315

ZANAEQ

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

CREF

REFERENCE
BAL
CROSS
GLO
SYMBOL

VALUE

MSG56

022610-R

¢ ZGNA1

ZANA3

ZGNA4

MSG57

022646-R

¢ ZQGNAL

ZANA3

ZANA4

MSG58

022736-R

¢ ZONA1

ZANA3

ZANA4

MSGS9

023002-R

# ZQNA1

ZGNA3

ZQNA4

MSG60

023114-R

# ZQGNAL

ZANA3

ZANA4

MSG61

023156-R

# ZQNA1

ZGNA3

ZQNA4

MSG62

023220-R

# ZANAl

ZANA3

ZQNA4

MSG63

023310-R

¢ ZQNA1

ZANA3

ZANA4

MSG64

023404-R

# ZQNAL

ZANA3

ZQNA4

MSG65

023440-R

# ZGNAL

ZANA3

ZGNA4

MSG66

023504-R

# ZQGNAL

ZANA3

ZQNA4

MSG67

023572-R

# ZANA1

ZQNA3

ZANA4

023674-R

# ZANAl

ZANA3

ZANA4

023772-R

# ZQGNA1

ZQNA3

024072-R

# ZQANA1

ZQNA3

024156-R

# ZGNAL

ZANA3

024236-R

¢ ZQNA1

ZQNA3

024324-R

# ZQGNAL

ZANA3

024414-R

# ZQNAL

ZANA3

024466-R

¢ ZQNAL

ZANA3

024556-R

¢ ZQNAL

ZANA3

025276-R

¢ ZGNA2

ZANA3

013016-R

@ ZQNAL

ZANA3

001000

¢ ZANAL1

& ZGNA2

ZANAS

& ZQGNA4

@ ZGNA1

# ZQNA2

PHYS.A

PREP .F

053734-R

PRI

002000

ZQNA4

ZANA4

SEQ 316

PAGE 9

04.00

ZQGNAEO

CREATED BY

TKkB

ON 27-MAR-86 AT 07:38

PRIOO

000000

@ ZQNAL

¢ ZQNA2

ZANA3

ZQNA4

PRIO1

000040

# ZQNA1

¢ ZQNA2

ZANA3

ZQNA4

PRIO2

000100

¢ ZQNA1

¢ ZQNA2

ZANA3

ZANA4

PRIO3

000140

¢ ZQNAL

¢ ZANA2

ZANA3

ZQNA4

PRIO4

# ZQNA1

# ZQNA2

ZQNA3

ZQNA4

PRIOS

# ZANA1

¢ ZQNA2

ZANA3

ZANA4

PRIO6

# ZGNA1

# ZQNA2

ZANA3

ZANA4

PRIO7

¢ ZQGNA1

# ZQNA2

ZANA3

ZGNA4

PTRN.T

014110-R

¢ ZQANAL

ZANA3

PUR. IN

056154-R

# CZQNAA

ZANA3

015102-R

# ZQNA1

ZANA3

ZANA4

015104-R

# ZANA1

ZANA3

ZANA4

015106-R

¢ ZQNAL

ZANA3

ZGNA4

015110-R

# ZQNA1

ZANA3

ZQNA4

015112-R

¢ ZANAL

QNA.IN

025306-R

# ZQNA2

ZANA3

QsTo1

015126-R

# ZQNAl

ZANA2

asT02

015156-R

# ZQGNAL

ZANA2

QsT03

015206-R

# ZQANAL

ZANA2

QST04

015250-R

# ZQGNA1

ZANA2

QSTOS

015312-R

# ZQGNA1

ZANA2

QsT06

015354-R

# ZGNAL

ZANA2

QsT07

015416-R

@ ZGNAL

ZANA2

@sT10

015460-R

# ZQGNA1

ZQNA2

RBUF .L

015020-R

¢ ZQGNAL

ZANA3

ZANA4

RCV.BU

003016-R

¢ ZANAL

ZANA3

ZANA4

PAGE 10

5€EQ 317

ZANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

PAGE 11
CREF

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

..
REFERENCES.

RCV.D.

002416-R

& ZQNA1

ZANA3

RD13

014604-R

& ZQNA1

ZANA3

REG.AD

015010-R

# ZGNAl

ZANA2

ZQNA3

RESET.

047424-R

ZANA2

ZANA3

& ZQNA4

ROMCHK

055712-R

ZANA3

& .MAIN.

SEND.E

054734-R

ZGNA3

& ZGNA4

SEND.T

055102-R

ZANA3

& ZQNA4

SETUP.

013044-R

# ZGNA1

ZGNA4

SET.RD

052654-R

ZANA3

# ZQNA4

SET.XD

052732-R

ZANA3

# ZQNA4

SP.TAB

002220-R

# ZGNA1

STATIO

014100-R

# ZGNA1

ZANA3

ZANA4

SWP.BL

002230-R

# ZGNA1

ZANA3

ZANA4

SWP.IL

002226-R

# ZGNA1

ZANA3

ZQNA4

SWP.LB

002222-R

# ZGNA1

ZANA3

SWP.NX

002232-R

# ZGNA1

ZANA3

SWP.TA

015006-R

& ZGNA1

ZANA2

ZANA3

SWP.TI

002220-R

# ZGNAl

ZANA3

ZANA4

SWP.TO

002224-R

# ZGNAl

ZQNA3

ZANA4

TADR1

015120-R

# ZGNAl

ZANA3

ZGNA4

TADR2

015122-R

# ZGNAl

ZANA3

ZANA4

TARGET

014120-R

& ZGNA1

ZANA3

ZQANA4

TBYTE1

015114-R

& ZGNAl

ZANA3

ZANA4

TBYTE2

015115-R

& ZQGNA1

ZQNA3

ZANA4

TBYTE3

015116-R

¢ ZGNA1

ZANA3

ZANA4

TBYTE4

015117-R

¢ ZQGNAL

ZANA3

ZQNA4

ZANA4

.MAIN.

ZQNA4

SEQ 318
04.00

ZANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

TD13

014500-R

@ ZQNAL

ZANA3

TD16

014350-R

¢ ZQNAL

ZANA3

TEMPL

015060-R

CZQNAA

@& ZQGNAL

ZANA2

ZQNA3

TEMP2

015062-R

# ZQGNA1

ZANA2

ZANA3

ZANA4

TEMP3

015064-R

¢ ZQGNA1

ZANA2

ZANA3

ZANA4

TEMP4

015066-R

# ZQGNA1

ZANA2

ZANA3

ZQNA4

TEMPS

015070-R

# ZQNA1

ZANA2

ZANA3

ZGNA4

TEMP6

015072-R

CZANAA

& ZQGNA1

ZANA2

ZANA3

TEMPT7

015074-R

# ZQNA1

ZANA2

ZQNA3

ZANA4

TEMPS

015076-R

# ZANAl

ZANA2

ZANA3

ZQNA4

TEMP9

015100-R

¢ ZQNA1

ZANA2

ZGNA3

ZQNA4

TMPR1

015052-R

# ZQGNA1

.MAIN.

TMP.IO

015054-R

# ZQNAL

ZANA2

ZANA3

ZQNA4

TMP.RE

015056-R

# ZGNA1

ZANA2

ZANA3

ZQNA4

TURN.O

055636-R

ZANA3

& ZQGNA4

T4FREE

056260-R

# ZQNAS

T$PTHV

000001

ZANA1

# ZQGNAS

025774-R

ZANA1

& ZQGNA3

T10

034342-R

ZANA1

& ZQNA3

Ti1

034676-R

ZANA1

& ZGNA3

T12

036600-R

ZANA1

& ZQGNA3

T13

040036-R

ZANA1

# ZGNA3

Ti4

041320-R

ZANAL

& ZQNA3

T15

041550-R

ZANA1

& ZQGNA3

T16

043612-R

ZANA1

& ZQGNA3

T17

4
04445-R

ZANA1

# ZQGNA3

PAGE 12

ZQNA4

ZANA4

5EQ 319

ZQANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

CREF

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

T18

044772-R

ZANA1

# ZGNA3

T19

045342-R

ZANA1

& ZQNA3

f T2

-R
026624

ZANA1

& ZQNA3

T20

046042-R

ZANA1

# ZQNA3

T21

047064-R

ZANAL

& ZQNA3

027320-R

ZANA1

& ZQNA3

030366-R

ZANA1

& ZQNA3

031246-R

ZANA1

# ZQNA3

031710-R

ZANA1

& ZQNA3

033322-R

ZANA1

& ZQNA3

033560-R

ZANAL1

# ZQNA3

0341024-R

ZANAL1

& ZQGNA3

000200

# ZGNA1

& ZQNA2

uP.Cov

015030-R

# ZANAl

ZANA3

VER.DE

050106-R

ZANA3

# ZQGNA4

WAIT.F

056136-R

# CZQNAA

ZANA3

WALKIN

053010-R

ZANA3S

# ZQGNA4

WRT.ST

053542-R

ZANA3

& ZQNA4

I XBUF .L

015016-R

# ZQNAL

ZANA3

XC.FLA

015042-R

# ZANAL

ZGNA3

XMIT.A

055412-R

ZANA3

& ZQGNA4

XMIT.B

007016-R

# ZQGNA1

ZANA3

ZANA4

XMIT.D

002616-R

# ZQNAL

ZANA3

ZQNA4

XMIT.I

055440-R

ZANA3

# ZQNA4

XMIT.S

054466-R

ZANA3

¢ ZQGNA4

$END.L

056262-R

@ ZQNAS

i UAM

PAGE 13

ZANA4

SEQ 320

04.00

ZANAEO

CREATED BY

TKB

ON 27-MAR-86 AT 07:38

$SAVE2

056030-R

# CZQNAA

ZANA3

ZQNA4

$SAVE3

-R
056044

¢ CZQNAA

ZQANA3

ZQNA4

$SAVE4

056062-R

¢ CZQNAA

ZANA2

ZANA3

$SAVES

056102-R

¢ CZQNAA

PAGE 14

SEQ 321