Digital PDFs

AH-F832A-MC

May 1980

184 pages

Original

102MB

view download

OCR Version

140MB

view download

Document:	CZDMIA0 DMR11,DMP11 DMR11 FCTNL DIAG MAY 1980 bw
Order Number:	AH-F832A-MC
Revision:	000
Pages:	184
Original Filename:	CZDMIA0__DMR11,DMP11__DMR11_FCTNL_DIAG__AH-F832A-MC__MAY_1980_gray.pdf

OCR Text

TNL DoRE
L ECB
DMRLL 2H
[ERLL:DK

AH-FB32A-MC
FICHE 1 0 F 1

e
em
Am
i
MADE IN USA

NLIST

SEQ 0001

CTITLE CZDMIAO DMR-11 FUNCTIONAL TESTS
.E?'HL PROGRAM DOCUMENT

INLIST TOC
.REM @

IDENTIFICATION

PRODUCT CODE:

AC-F830A-MC

PRODUCT NAME:

CZDMIAO

PRODUCT DATE:

FEBRUARY 1980

MAINTAINER:

DIAGNCSTIC ENGINEERING

AUTHOR:

MIKE O'CONNOR

DMR-11 FCTNL DIAG

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

EQUIPMENT CCRPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL
OR ITS

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

—

v . et o

-#-.----flh'

SEQ 0002
CONTENTS

1.0 INTRODUCTION

2.0 HARDWARE REQUIREMENTS
3.0 PRELIMINARY PROGRAM REQUIREMENTS
4.0 GENERAL PROGRAM CONSIDERATIONS
4.1 DIAGNOSTIC SUPERVISOR

4.2 EXECUTION TIME
4.3 XXDP+
4.4 ACT/SLIDE
4.5 APT
4.6 MEMORY MANAGEMENT
4.7 MEMORY PARITY OPTION
4.8 ERROR LOGGING

5.0 PROGRAM LOAD MEDIA
6.0 OPERATING INSTRUCTIONS
6.1 LOADING AND STARTING PROCEDURES
.1 LOADING PROCEDURES

2
.4 END OF PASS SWITCH

.5 EFFECT OF START COMMAND

UNITS SWITCH
EFFECT OF RESTART COMMAND
COMMAND

PASS SWITCH
F

LAGS SWITCH
E FFECT OF CONTINUE COMMAND
C OMMAND
FLAGS SWITCH
EFFECT OF PROCEED COMMAND

2 gS

Tsaonsmans

WN-‘

TART C COMMAND
TESTS, PASS, AND FLAG SWITCHES

UNITS SWITCH
EFFECT OF ADD COMMAND

UNITS SWITCH
EFFECT OF DROP COMMAND
COMMAND
EFFECT OF PRINT COMMAND
Y C OMMAND
UNITS SWITCH
g
EFFECT OF DISPLAY COMMAND

)

N—nr“—n SIS

W
.

wxuwwuww
Me
o o o o
}N;MWWGWW
NQM\I
m_n_n_n_n—a
U’!U‘!OJ\J\OWWWSNNN
L
I
o 1]
E.OO*%
.
b=

.
w

.2 PASS SWITCH
.3 FLAGS SWITCH

u
oW

o
o

&
o
o

.1 TESTS SWITCH

\NWOW

OONO*NOO*O\OOU!O‘O“OOOWO‘O*ONO‘OOO\O—‘

.2 STARTING PROCEDURES
? STEPS FOR QUICK AND SIMPLE EXECUTION

SEQ 0003
6.3.9 FLAGS COMMAND
6.3.9.1 EFFECT OF FLAGS COMMAND
6.3.10_ZFLAGS COMMAND
6.3.10.1 EFFECT OF ZFLAGS COMMAND
6.3.11 CONTROL CHARACTERS
6.3.12 HARDWARE PARAMETERS
b
6.3.13 SOF TWARE PARAMETERS
6.3.14 EXTENDED DISCUSSION OF P-TABLE DIALOGUE
7.0 DEVICE INFORMATION TABLES
8.0 TEST DESCRIPTIONS
9.0 ERROR INFORMATION
9.1 ERROR REPORTING

SEQ 0004

1.0 INTRODUCTION

THIS
PROGRAM WILL
BE
IMPLEMENTED
USING
THE
DIAGNOSTIC
SUPERVISOR
AND
A STRUCTURED PROGRAMMING APPROACH.
BECAUSE
THE
DESIGN WILL
CONFORM
TO
THE
SUPERVISOR
(STANDALONE

fiSéfll{)}ETHE PROGRAM WILL BE COMPATIBLE WITH ACT, APT, XXDP+,
THROUGH DIALOGUE WITH THE OPERATOR,

THE PROGRAM

WILL

ALLOW

THE

REPORT

MODIFICATION OF
DEVICE PARAMETERS, SUCH AS UNIBUS ADDRESS,
VECTOR ADDRESSES AND
TEST CONFIGURATION.
IN ADDITION,
THE
OPERATOR
CAN
SPECIFY
PARTICULAR
TESTS
TO BE
RUN AND A
VARIETY OF LOOPING, RUNNING, AND REPORTING MODES.
DEVICE ERRORS WILL BE REPORTED AS THEY

WILL

INCLUDE

g&?e:fig BAD

TEST

OCCUR.

NUMBER AND DESCRIPTION OF

DATA,

AND

APPLICABLE

DEVICE

THE ERROR,

2.0 HARDWARE REQUIREMENTS
THE
FOLLOWING
HARDWARE
DIAGNOSTIC TESTS:

IS REQUIRED TO RUN THE DMR-11

FUNCTIONAL

PDP-11/04,05,10,20,30,34,35,40,45,50,60, OR 70
16K _MEMORY
CONSOLE TERMINAL
DMR-11

3.0 PRELIMINARY PROGRAM REQUIREMENTS
IT IS ADVISED THAT THE STATIC DIAGNOSTICS BE RUN BEFORE THESE FUNCTIONAL
gw§&cs.
IT IS ASSUMED THAT THE PROCESSOR IS IN PROPER WORKING
ENSURE THAT THE SWITCH 1 AT LOCATION E-85 ON THE M8207 IS ON.
IF THIS
SWITCH IS OFF, THE MAINTENANCE BITS IN BSEL1 CAN'T BE USED AND CERTAIN
TESTS WILL BE NOT BE CORRECTLY RUN.

WHEN CHOSING A CABLE TEST CONNECTION, ENSURE THAT THE SWITCH PACK

E-39 ON THE M8203 IS PROPERLY SET UP FOR THE DESIRED INTERFACE.

IF CHOSING TEST CONFIGURATION OPTIONS 1-4, IT IS NOT NECESSARY TO
SELECT THE INTERFACE; HOWEVER THE BAUD RATE MUST BE CORRECT.
FOR
EXAMPLE IF IT IS DESIRED TO RUN CONFIGURATION 3 (H3255-EIA), IT IS
NOT NECESSARY TO HAVE SWITCH 7 OF THE SWITCH PACK IN THE OFF POSITION.
IT 1S, HOWEVER, NECESSARY TO HAVE THE BAUD RATE SELETCTED TO BE
WITHIN THE EIA RANGE.

=
4.0 GENERAL PROGRAM CONSIDERATIONS

SEQ 0005
4.1 DIAGNOSTIC SUPERVISOR

THIS

PROGRAM

COMPATIBLE WITH THE STANDALONE DIAGNOSTIC

SUPERVISOR, AND MUST BE LOADED TO BE
CO-RESIDENT
WITH
THE
SUPERVISOR,
OR BE
PREVIOUSLY COMBINED WITH THE SUPERVISOR

AND LOADED AS A SINGLE FILE.
IN EITHER CASE,
PROGRAM WILL NOT EXCEED 16K OF MEMORY.

THE

COMBINED

4.2 EXECUTION TIME

EXECUTION TIME IS DEPENDENT ON THE PROCESSOR SPEED AND THE
DMR BAUD RATE.

EXAMPLES OF EXECUTION TIME

11/70 WITH CACHE AND DMR AT 2.4K
11/70 WITHOUT CACHE AND DMR AT 2.4K
11/34 AND DMR AT 2.4K
,

4 AND 1/2 MINUTES
S AND 1/2 MINUTES
10 MINUTES

4.3 XXDP+
THIS PROGRAM MAY BE LOADED UNDER XXDP+, AND
DUMP MODE OR CHAIN MODE.

MAY

RUN

4.4 ACT/SLIDE
THIS PROGRAM MAY BE LOADED UNDER ACT OR SLIDE AND MAY BE RUN

IN DUMP MODE OR CHAIN MODE.

4.5 APT
THIS PROGRAM MAY BE LOADED
BY
THE
APT
SYSTEM
APT=RD) AND RUN IN PROGRAM MODE OR SCRIPT MODE.

(INCLUDING

4.6 MEMORY MANAGEMENT

IF MEMORY MANAGEMENT IS AVAILABLE,

FUNCTIONAL DIAGNOSTIC.

IT IS USED BY CERTAIN TESTS IN THIS

4.7 MEMORY PARITY OPTION

IF PARITY MEMORY
IS
INSTALLED,
DISABLED BY THE PROGRAM.

MEMORY

PARITY

TRAPS

ARE

4.8 ERROR LOGGING
AT THE END OF EACH PASS ON ALL UNITS,

THE PROGRAM PRINTS OUT

THE CUMULATIVE TOTAL NUMBER OF ERRORS SINCE THE LAST START OR
RESTART COMMAND.

5.0 PROGRAM LOAD MEDIA
THIS PROGRAM
(AN BE
LOADED
FROM
PAPER
TAPE
USING
THE
ABSOLUTE
LOADER OR FROM ACT, SLIDE, OR APT SYSTEMS, OR FROM
ANY MEDIA SUPPORTED BY XXDP+.
WHEN USING
THE
PAPER
TAPE
ABSOLUTE
LOADER,
THE
PROGRAM
SHOULD BE
LOADED
FIRST,

FOLLOWED BY THE DIAGNOSTIC SUPERVISOR.

DIAGNOSTIC
SUPERVISOR
THE DIAGNOSTIC PROGRAM.

SHOULD

WHEN USING XXDP+,

THE

BE LOADED FIRST, FOLLOWED BY

6.0 OPERATING INSTRUCTIONS
6.1 LOADING AND STARTING PROCEDURES
6.1.1 LOADING PROCEDURES
THIS PROGRAM MAY
BE
LOADED
FROM
PAPER
TAPE
USING
THE
ABSOLUTE
LOADER.
IT MAY ALSO BE LOADED FROM ANY XXDP+ LOAD
MEDIA. WHEN LOADED UNDER XXDP+, THE DIAGNOSTIC SUPERVISOR
WILL BE LOADED AUTOMATICALLY.

6.1.2 STARTING PROCEDURES

THE

PROGRAM ' STARTS

LOCATION

PROCEDURES TO START THE PROGRAM.

200.

USE

STANDARD

DEC

6.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION
THE

DIAGNOSTIC

CAN

BE EXECUTED STANDALONE UNDER XXDP+,

WITHOUT READING THE REMAINDER OF

THIS DOCUMENT, AS FOLLOWS:

A)
B)
C)
D)

LOAD AND START DIAGNOSTIC USING RUN COMMAND
RECEIVE DIAGNOSTIC SUPERVISOR IDENTIFICATION AND PROMPT
ENTER STA<CR>
ANSWER HARDWARE AND SOF TWARE QUESTIONS

TO END EXECUTION, ENTER CONTROL/C

(DRS=(C>)

E) GET END OF PASS MESSAGES OR ERROR MESSAGES

6.2 INITIAL DIALOGUE
AFTER THE PROGRAM AND THE SUPERVISOR ARE LOADED AND THE PROGRAM

IS STARTED,

THE FOLLOWING IDENTIFICATION IS TYPED

DRS LOADED
DIAG. RUN-TIME SERVICES

DR>
THE OPERATOR THEN PROCEEDS BY TYPING ONE OR MORE OF THE
COMMANDS DESCRIBED IN THE FOLLOWING SECTION 6.3. (FOR MORE

DETAILED INFORMATION, REFER TO THE DIAGNOSTIC SUPERVISOR
FUNCTIONAL SPECIFICATION).

SEQ 0006
e

6.3 PROGRAM OPTIONS
SEQ 0007

6.3.1 START COMMANDA

A A A AR A AR

AR AR R R AR R

AR R R R AR AR

AR AR

AR AR AR hR

STA(RT) /TESTS:<TEST=LIST>/PASS :<PASS=CNT>/FLAGS:
<FLAG=LIST>/EOP:<INCR>

A AR

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

AR ARk * ok

6.3.1.1 TESTS SWITCH (/TESTS:<TEST=LIST>)
<TEST=LIST>
IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR
RANGES OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT
SPECIFY
THE
TESTS
TO BE EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS RANGE FROM 1 TO THE LARGEST TEST NUMBER
IN
THE
DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY ORDER.
TESTS WILL
BE EXECUTED IN NUMERICAL ORDER REGARDLESS OF
THE
ORDER OF
SPECIFICATION.
THE
DEFAULT
IS
TO EXECUTE ALL TESTS.
ON
THIS AND ALL SWITCHES, THE ANGLE BRACKETS <> ARE PUNCTUATION
USED
IN THE DEFINITION ONLY, AND ARE NOT TO BE TYPED BY THE
OPERATOR.
SEE EXAMPLE AT END OF 6.3.1.5.

6.3.1.2 PASS SWITCH (/PASS:<PASS=CNT>)
<PASS=CNT>

PASSES.

IS A DECIMAL NUMBER

INDICATING THE DESIRED NUMBER

A PASS IS DEFINED AS THE EXECUTION OF

THE FULL

DIAGNOSTIC (ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE DEFAULT IS NON-ENDING EXECUTION.
IN THIS CASE EXIT FROM

THE PROGRAM IS ACCOMPLISHED EITHER BY TYPING A CONTROL/C
OR
BY
OCCURANCE
OF AN ERROR WITH TiE HALT ON ERROR FLAG BEING
SS-OFTZE3E¥I; IS A RETURN TO COMMAND MODE.
SEE EXAMPLE
AT

6.3.1.3 FLAGS SWITCH (/FLAGS:<FLAG=LIST>)
<FLAG-LIST>

SEQUENCE OF

ELEMENTS OF

THE

FORM <FLAG>,

<FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS
ONE OF THE FOLLOWING VALUES:

HCE

LOE

IER
IBE
IXE

PRI~
PNT

BOE
UAM

ISR
IDU
LOT

HALT ON ERROR,

CAUSING COMMAND MODE TO BE

ENTERED WHEN AN ERROR IS ENCOUNTERED
LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY WITHIN THE SMALLEST DEF INED BLOCK
OF CODING (SEGMENT, SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERROR REPORTING
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS

DIRECT ALL MESSAGES TO A LINE PRINTER
PRINT NUMBER OF TEST BEING EXECUTED

BELL ON ERROR
RUN IN UNATTENDED MODE, BYPASSING MANUAL
INTERVENTION TESTS
INHIBIT STATISTICAL REPORTS
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
LOOP ON TEST

THE
FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO 0
ARE CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
IF THE FLAGS
E&TS’; 61§ 1NgT GIVEN ALL FLAGS ARE CLEARED.
SEE EXAMPLE AT

6.3.1.4 END OF PASS SWITCH (/EOP:<INCR>)
<INCR>

IS A DECIMAL NUMBER

INDICATING HOW OFTEN

PASSES)
IT
IS
DESIRED
THAT
THE
END
PRINTED.
THE DEFAULT IS AT THE
END
OF
EXAMPLE AT END OF 6.3.1.5.

(IN TERMS OF

OF PASS MESSAGE BE
EVERY
PASS.
SEE

6.3.1.5 EFFECT OF START COMMAND
THE
EFFECT OF THE START COMMAND IS TO INITIATE THE HARDWARE
PARAMETER DIALOGUE, THE
SOFTWARE
PARAMETER
DIALOGUE,
AND
THEN THE DIAGNOSTIC TESTS THEMSELVES.

THE
HARDWARE PARAMETER DIALOGUE COMMENCES WITH THE QUESTION
"W UNITS?' TO WHICH THE
OPERATOR
REPLIES
WITH
A
DECIMAL
NUMBER
N FROM 1 TO 16. THE TERM "UNIT'' REFERS TO THE DEVICE
TO WHICH THIS SERIES OF DIAGNOSTICS IS DEDICATED.
FOLLOWING
THIS
ARE THE QUESTIONS WHEREBY THE P-TABLES THEMSELVES WILL
BE BUILT.
EACH P-TABLE IS A CORE-RESIDENT TABLE
CONTAINING
ALL
THE
HARDWARE
INFORMATION FOR ONE UNIT.
THE OPERATOR

MUST SUPPLY N_(NUMBER OF UNITS) VALUES
FOR EACH QUESTION.
HE MAY
DO
THIS BY GIVING ONE ANSWER TO EACH QUESTION (IN
WHICH CASE THE SERIES OF QUESTIONS WILL BE POSED N TIMES)

BY
GIVING N VALUES, SEPARATED BY COMMAS, TO EACH QUESTION
(SERIES WILL BE POSED ONCE).
EACH QUESTION IS
FOLLOWED
BY
THE
RESPONSE
RADIX
(D
FOR
DECIMAL,
B FOR BINARY, O FOR
OCTAL, L FOR YES/NO) IN PARENTHESES AND
THE
DEFAULT
VALUE
AFTER THE PARENTHESES.
FOLLOWING
THE HARDWARE QUESTIONS ARE THE SOF TWARE QUESTIONS
TO BUILD THE SOFTWARE TABLES, WHICH DEFINE THE
MODE
(QUICK
VERIFY ETC.) THAT THE DIAGNOSTIC WILL EXECUTE IN.

WHEN
THE QUESTION '% UNITS?'' IS ANSWERED, MEMORY STORAGE
ALLOCATED FOR THE P-TABLES, AND IF THERE IS NOT
ENOUGH
ACCOMMODATE THEM THE MESSAGE '‘TOO MANY UNITS'' IS ISSUED.
}?é% EIA.EEUL?;SDMMS”C MUST “BE EXECUTED MORE THAN ONCE

IS
TO
IN
TO

:
EXAMPLE

STA/TESTS:1:2-4:6:8-10/PASS:3/
: IER:HOE=1:UAM
FLAGS
: LOE
THIS

COMMAND

WILL CAUSE THREE PASSES TO BE MADE, EACH PASS

CONSISTING OF TESTS 1,2,3,4,6,8,9, AND 10 EXECUTED AGAINST
ALL UNITS.
THERE IS NO DIFFERENCE BETWEEN SAYING <FLAG> AND
SAYING <FLAG=1>. THE NOTATION <FLAG=0> IS MEANINGFUL ONLY ON
A
COMMAND
OTHER
THAN
START
TO
C(CLEAR
A
FLAG
THAT WAS
PREVIOUSLY SET.
NOTE THAT ON ALL COMMANDS
ONLY
THE
FIRST
THREE LETTERS ARE SCANNED.

SEQ 0008

6.3.2 RESTART COMMAND
R R

A R R A

R AR

AR AR

R AR AR AR AR AR AR R AR AR AR

RES(TART) /TESTS:<TEST=LIST>/PASS:<PASS=CNT>/FLAGS:
<FLAG=LIST>/UNITS:<UNIT-LIST>

R AR

R AR AR AR R

R R AR R AR AR AR AR R AR

AR R A AR AR

6.3.2.1 TESTS, PASS, AND FLAGS SWITCHES
<TEST=LIST>, <PASS=CNT>, AND <FLAG-LIST> ARE AS

COMMAND.

IN THE START

6.3.2.2 UNITS SWITCH (/UNITS:<UNIT=LIST>)
<UNIT-LIST>
IS A SEQUENCE OF DECIMAL NUMBERS (0,1 ETC.) OR
RANGES OF DECIMAL NUMBERS (0-5, 8-10 ETC.) THAT SPECIFY
THE
UNITS
TO BE
TESTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS MAY RANGE FROM O THRU N-1
(N
IS
THE
NUMBER OF

UNITS
SPECIFIED IN THE PREVIOUS START COMMAND).
THE NUMBER
INDICATES THE POSITION OF
THE
P-TABLE AS
THE
DATA WAS

ENTERED
DURING THE HARDWARE DIAGLOGUE.
THE UNITS WHICH ARE
SELECTED MUST NOT HAVE BEEN DROPPED BY
THE
DROP
COMMAND.
SEE_
THE DISCUSSION OF ADD AND DROP COMMANDS BELOW.
DEFAULT
‘I_S TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY
A
DROP

6.3.2.3 EFFECT OF RESTART COMMAND
THE
RESTART
COMMAND DIFFERS FROM THE START COMMAND IN THAT
THE P-TABLES FROM THE PREVIOUS
START
C(OMMAND
(THERE
MUST
HAVE
BEEN
ONE)
ARE USED, INSTEAD OF NEW ONES BEING BUILT.
THE UNITS SWITCH GIVES THE ABILITY TO
SELECT
A
SUBSET
OF
THESE.
THE
SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED
(OPERATOR WILL BE ASKED). THE
COMMAND
CAN BE
USED AFTER
COMMAND MODE
HAS BEEN REENTERED IN ANY OF THE THREE NORMAL
WAYS:
A) THE REQUESTED NUMBER OF PASSES HAVE BEEN MADE
B)
AN ERROR WAS ENCOUNTERED WITH THE HALT ON ERROR FLAG SET ()
A CONTROL/C WAS ENTERED BY THE OPERATOR.

6.3.3 CONTINUE COMMAND
LA

sttt

ettt

222223232 222222222

CON(TINUE) /PASS : <PASS=CNT/FLAGS : <FLAG=LIST>
LAA

dddddt

s stt
12222222322t
32 222222225

6.3.3.1 PASS SWITCH (/PASS:<PASS=CNT>)
<PASS-CNT> IS SAME AS IN START COMMAND, BUT THE
DEFAULT
IS
THE UNSATISFIED PASS=CNT FROM THE PREVIOUS START OR RESTART.

IF NONE REMAINS, THE DEFAULT IS NON-ENDING EXECUTION.

6.3.3.2 FLAG SWITCH (/FLAGS:<FLAG=LIST>)
<FLAG-LIST> IS SAME AS IN
START
FLAGS RETAIN THEIR CURRENT VALUE.

COMMAND,

BUT
.

UNSPECIFIED

SEQ 0009

6.3.3.3 EFFECT OF CONTINUE COMMAND
CONTINUE MUST
FOLLOW A START OR RESTART, ANC COMMAND MODE
MUST HAVE BEEN ENTERED DUE
TO A HALT ON ERROR OR A
CONTROL/C.
THE
EFFECT
OF
THE
COMMAND
IS
TO GO TO THE
BEGINNING OF THE TEST THAT WAS BEING EXECUTED WHEN THE
HALT
OR
CONTROL/C
TOOK PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY
BE REEXECUTED.
HARDWARE PARAMETERS MAY NOT BE CHANGED.

6.3.4 PROCEED COMMAND
LA

AR AR LR

s sttt
It
I2223223233223%3

PRO(CEED) /FLAGS : <FLAG=-LIST>
LA

AR RS SRR

sttt gttt
222222232

6.3.4.1 FLAGS SWITCH (/FLAGS:<FLAG=LIST>)
<FLAG-LIST>

IS AS

THE

START

FLAGS RETAIN THEIR CURRENT VALUE.

COMMAND,

BUT

UNSPECIFIED

6.3.4.2 EFFECT OF PROCEED COMMAND
PROCEED

MUST FOLLOW A START, RESTART, OR CONTINUE.

COMMAND

MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE EFFECT
OF
THE
COMMAND
IS
TO. BEGIN
EXECUTION AT
THE LOCATION
FOLLOWING THE ERROR CALL.
NEITHER
HARDWARE
NOR
SOF TWARE
PARAMETERS MAY BE ALTERED.

6.3.5 ADD COMMAND
LA

SRR

sttteI
I It 2121222222 2222223

ADD/UNITS:<UNIT=-LIST>
LA

AR A

2t dd

d ettt
2222328282

6.3.5.1 UNITS SWITCH (/UNITS:<UNIT-LIST>.
<UNIT=-LIST> IS AS IN THE RESTART COMMAND.

6.3.5.2 EFFECT OF ADD COMMAND
THE UNITS SPECIFIED ARE ADDED TO THE

TEST

SEQUENCE.

FEACH

UNIT MUST HAVE
A P-TABLE
IN MEMORY
DUE
TO AN EARLIER
HARDWARE DIALOGUE.
THIS
COMMAND
MUST
BE
FOLLOWED
BY
A
RESTART
OR
CONTINUE.
THE UNITS SWITCH MUST BE SPECIFIED.
THE ADD COMMAND IS
MEANINGFUL
ONLY
FOR
UNITS
THAT
WERE
PREVIOUSLY DROPPED.

6.3.6 DROP COMMAND

SEQ 0010

LAAAA

ddd

ittt ittty

DRO(P) /UNITS:<UNIT=LIST>
LA

AL AL LA AL

ittt ittt
ssiisiisisssyy

6.3.6.1 UNITS SWITCH (/UNITS:<UNIT=LIST>)
<UNIT=LIST> IS AS IN THE RESTART COMMAND.

6.3.6.2 EFFECT OF DROP COMMAND
THE UNITS SPECIFIED WILL BE DROPPED _FROM TESTING.
THE UNITS
WILL BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR
START
COMMAND.
THE
UNITS
SWITCH MUST BE ENTERED.
THIS COMMAND

MUST BE FOLLOWED BY A RESTART OR A CONTINUE COMMAND.

6.3.7 PRINT COMMAND
ttt"t'.'tttt"tt*ttttt**tttt*t*ti**!!*fit*ttt*tttttt**t'*tt

PRI(NT)

;

t"'tt'tttti.tittttt**'**ttQ*tttt*tt*tttttttittttt*tttttttt

6.3.7.1 EFFECT OF PRINT COMMAND
THE

TOTAL NUMBER OF ERRORS FOR

EACH

UNIT

START
OR
RESTART
COMMAND
ARE
PRINTED.
STATISTICAL REPORTING) FLAG IS CLEARED.
.

SINCE

THE

LAST

THE ISR (INHIBIT

6.3.8 DISPLAY COMMAND
LA RS

sttt

ilsttt
it I ITIz 2223232332323

DIS(PLAY) /UNITS:<UNIT-LIST>
LA

AR S

ittt t sttt
22232323232223

6.3.8.1 UNITS SWITCH (/UNITS:<UNIT=LIST>)
<UNIT=-LIST> IS AS IN THE RESTART COMMAND.

6.3.8.2 EFFECT OF DISPLAY COMMAND
THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST

ARE

PRINTED

OUT
IN
THE
FORMAT
IN WHICH THEY WERE ENTERED.
ANY UNITS
&HQI&EA'T‘EDDMD BY THE
OPERATOR
‘DROP'‘ COMMAND ARE
SO

6.3.9 FLAGS COMMAND
LA

sttt st
I I3
tt
222222 2232338 28%

FLA(GS)
LA A

dddd

d sttt
232222222 2222222%3

SEQ 0011

6.3.9.1 EFFECT OF FLAGS COMMAND
SEQ 0012

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

6.3.10 ZFLAGS COMMAND
"'tt"tttfi'tttt't"ttttttittt*t*t'ttttttt*'ttttttttttt'ttt

ZFL(AGS)
T

o o

o o o o

o o o

e e

o e o o o o o o o o o o o o o ok

o ok o o e o o

6.3.10.1 EFFECT OF ZFLAGS COMMAND
ALL ‘FLAGS ARE CLEARED.
6.3.11

CONTROL

CHARACTERS

A CONTROL C_(C) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC CAUSES
A

RETURN

COMMAND MODE.

...,,-

A
CONTROL
2Z
(Z)
ENTERED DURING ONE OF THE THREE OPERATOR
DIALOGUES- HARD CORE QUESTIONS (SEE
6.2) ,HARDWARE
DIALOGUE

(SEE 6.3.1.5), OR SOFTWARE DIALOGUE (SEE 6.3.1.5) CAUSES THE
DEFAULTS TO BE TAKEN FOR THE REMAINDER OF THAT DIALOGUE.

A CONTROL O (0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC

CAUSES
ALL
TELETYPE
OUTPUT
TO BE
SURPRESSED
FOR
THE
REMAINDER OF THE DIAGNOSTIC OR UNTIL
ANOTHER
O
IS
TYPED,
WHICH RESTORES NORMAL TELETYPE OUTPUT.

“ £y

6.3.12 HARDWARE PARAMETERS
THE
FOLLOWING 3 QUESTIONS WILL BE ASKED ON A START COMMAND.
THE VALUE LOCATED TO THE LEFT OF THE QUESTION MARK
IS
THE
gEEFAllgs VALUE
THAT
WILL
BE
TAKEN
ON A CARRIAGE RETURN
1.

(SR ADDRESS:

(0)

160070?

THIS IS THE ADDRESS AT WHICH THE CSR REGISTERS (SELO) RESIDE
ON
THE
UNIBUS.
THE
ALLOWABLE
RANGE
IS
160000-177776
(OCTAL), AND THE DEFAULT VALUE IS 160070.

VECTOR ADDRESS:

(0) 300 ?

THIS IS THE ADDRESS OF

DEVICE.

THE

THE INPUT INTERRUPT VECTOR

ALLOWABLE

DEFAULT VALUE IS 300.

IS 000-674

FOR

THIS

(OCTAL), AND THE

nnunnn

TEST CONFIGURATION INTERNAL (NO CONNECTOR)
Vi
W =O

RANGE

= H3254 - V 35
H3254
=
INTEGRAL

(NOTE:
MODE 1-4 ALLOWS
PROGRAM INTERFACE SELECTION)

H3255 R
- SZSSCMZS
H3255
CABLE
AM) SW PACK INTERFACE SELECTED
(V.35-H3250, INTEGRAL-B(55A-10, RS232(~H325, RS423/422-H3251)

* SELECT THE FOLLOWING ONLY IF THE MODEM SUPPORTS LOOPBACK *
6 = LOCAL LOOP
7 = REMOTE LOOP
@
5°?
THIS QUESTION WILL COVER ALL THE POSSIBLE TEST CONFIGURATIONS.
THE DEFAULT IS FOR ACTUAL CABLE LOOPBACK (5).
CONFIGURATION 0

WILL ENABLE LINE UNIT (TTL) LOOPBACK.
IF THIS IS SELECTED NO
CABLES OR CONNECTORS SHOULD BE CONNECTED.
CONFIGURATIONS 1-4
WILL SELECT THE INTERFACE REGARDLESS OF THE SWITCH SETTING AS

LONG AS THE PROPER BAUD RATE IS SELECTED (I.E. EIA = 2.4K=19.2K).

6.3.13 SOF TWARE PARAMETERS
THE ONLY SOF TWARE PARAMETER QUESTION ASKED BY THE DIAGNOSITC

CONCERNS A SOF TWARE TIMEOUT VARIABLE THAT IS USED TO PREVENT

SOF TWARE 'HUNG'' CONDITIONS.

THIS VARIABLE IS A VALUE FORM 1-5.

SELECTABLE PROGRAM LOOP_TIME-OUT VARIABLE

CREFER TO LISTING 6.3.13]

(MAX=5; MIN=1)

(0)

5 ?

THERE ARE TWO FACTORS THAT SHOULD BE CONSIDERED WHEN ANSWERING
THIS QUESTION.
THE FIRST IS PROCESSOR SPEED; THE FASTER THE
PROCESSOR THE HIGHER THE VARIABLE SHOULD BE.
THE SECOND IS
BAUD RATE: THE SLOWER THE DMR BAUD RATE THE HIGHER THE VARAIBLE
SHOULD BE.
FOR EXAMPLE:

11/70 UITH CACHE ISV& DMZAT 1 MEG.:
40
AND DMR AT 2.4K:

THIS WILL COVER THE WORST CASE
DEF AULT IS 5.
ITH CACHE AND THE DMR AT 2.4K).

(I.E.

11/70

6.3.14 EXTENDED DISCUSSION OF P-TABLE DIALOGUE
THE
FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY
THE FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

AS SOON AS THE QUESTION "% UNITS?'" IS ANSWERED
(WITH THE
NUMBER N,
SAY)
SPACE IN CORE IS ALLOCATED FOR N P-TABLES.
ALL OF THE P-TABLES ARE OF THE SAME FORMAT, AND THERE
IS A
ONE-TO ONE
CORRESPONDENCE BETWEEN THE HARDWARE PARAMETER
QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT.
ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF
THE
SLOTS
IN
ALL
OF
THE
P-TABLES ARE FILLED.
IF THE OPERATOR TYPES IN
LESS THAN N EXPLICIT VALUES
IN RESPONSE
TO A PARTICULAR
QUESTION, THESE VALUES ARE PLACED IN THE P-TABLES (ONE VALUE
GOING INTO THE PROPER SLOT OF EACH P-TABLE BEGINNING WITH
THE
FIRST P-TABLE) UNTIL THE STRING OF VALUES IS EXHAUSTED.
THE LAST VALUE IN THE STRING BECOMES THE NEW DEFAULT AND
IS

USED TO FILL THAT SLOT IN THE REMAINING P-TABLES.

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS
. CARRIED OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT
TO HAVE
"RECEIVED AN EXPLICIT VALUE IN ANY OF ITS SLOTS NOW ASSUMES

SEQ 0013

THE ROLE THAT TABLE NUMBER ONE PLAYED IN THE FIRST TRIP.
THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE
QUESTION HAS RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING
VALL%SVFAlLALYEBE USED TO INDICATE A REPETITION OF THE LAST

A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR
EXAMPLE). IF THE VALUES REPRESENT PURE NUMERICAL DATA,
THIS

SAMPLE

RANGE

TRANSLATES

TO THE

STRING 6,7.8.9.10

(AN

INCREMENT OF 1). IF THE VALUES ARE ADDRESSES,
THE SAMPLE
RANGE TRANSLATES TO THE STRING 6.8.10 (AN INCREMENT OF 2).

NOW LET US SEE HOW WE C(OULD USE THESE CAPABILITIES TO
CONSTRUCT A SET OF P-TABLES. ASSUME THAT WE HAVE 16 UNITS,
AND THAT THERE ARE THREE HARDWARE PARAMETERS FOR EACH (THREE
SLOTS IN THE P-TABLE,
THREE HARDWARE QUESTIONS IN THE
DIALOGUE).
_LET THE DESIRED VALUE FOR THE FIRST PARAMETER BE
THE NUMBER 75 FOR ALL 16 TABLES.
LET THE DESIRED VALUE FOR
THE
SECOND
PARAMETER
BE_EQUAL
TO THE UNIT NUMBER
(0,1,2.....,15) EXCEPT FOR UNIT 12, WHICH SHOULD RECEIVE
THE
VALUE
11.
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE

THE NUMBER 76 FOR THE FIRST 7 UNITS AND THE NUMBER
THE LAST 9 UNITS.

FOR

THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL:
# UNITS (D)

UNIT 0

? 16

<QUESTION 1> ? 75

<QUESTION 2> ? 0-6

<QUESTION 3> ? 76

UNIT 7

<QUESTION 1> ?

7-11,,13-15

*.S.QlE_STI(N > 277

THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75
IN ALL 16 TABLES.
SLOT TWO RECEIVES THE VALUES 0,1.2.....6

TABLES O THRU 6 AND A CONSTANT 6 IN TABLES 7 THRU 15.

SLOT THREE RECEIVES A CONSTANT 76 IN ALL 16 TABLES.

THE SECOND TiME THRU THE SERIES, TABLES 7 THRU THE END ARE
GOING TO BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS

PRINTED OUT FOR THE THE OPERATOR IN THE FORM ‘UNIT Xxx''
THE BEGINNING OF EACH SERIES).
QUESTION_1 IS RESPONDED
BY A <CR>, SO SLOT ONE STAYS AT CONSTANT 75 IN TABLES
THRU 15, SINCE NO NEW EXPLICIT VALUES ARE TYPED1IN. A’S"L>OT
GETS THE VALUES 7.8,9,10,11 IN TABLES 7 THRU
11

AT
TO
7
TWO

GETS AN 11 IN SLOT 12 AND GETS THE VALUES 13,14,15 IN
}agbgs 13 THRU 15. SLOT THREE GETS THE VALUE 77 IN TABLES 7
THE DIALOGUE IS TERMINATED WHEN THE SOF TWARE RECOGNIZES THAT
16 EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION

(NAMELY QUESTION 2).

SEQ 0014

SEQ 0015

7.0 DEVICE INFORMATION TABLES
SEE THE GLOBAL EQUATES SECTION FOR DEVICE CSR BIT DEFINITIONS

8.0 TEST DESCRIPTIONS
.
.

‘ » ‘ llfl'l ‘ l l
Q »

AR AL ARa2
22222282}

TEST 1 = DMR-11
VERIFY THAT ADDRESSING THE & UNIBUS CSRs DOES NOT CAUSE A NONEXISTENT MEMORY TRAP,
THE DMR IS AN NPR DEVICE RESIDING ON A UNIBUS.
COMMUNICATION
BETWEEN THE MAIN CPU AND THE DMR IS ACCOMPLISHED THROUGH A
SET OF FOUR 16=BIT UNIBUS CONTROL AND STATUS REGISTERS (CSRS).
THE FOUR REGISTERS ARE ASSIGNED ADDRESSES IN THE 1/0 PAGE
FLOATING ADDRESS SPACE: 76XXX0 = 76XXX6

NOTE: THIS TEST IS REDUNDANT IN THAT STATIC LOGIC TESTS SHOULD
HAVE BEEN RUN BEFORE THESE FREE-RUNNING TESTS WERE STARTED, AND

THEY SHOULD HAVE DETECTED ANY CSR ADDRESSING PROBLEMS.
:* BUT JUST IN CASE THOSE STATIC TESTS AREN'T RUN, WE'LL BE SAFE.

tittttt*tttttt"itt'tfitttt‘tt*tt't*titttttttttttt*ttttttttttttttt*ttfi

TEST 2 - DMR-11

]

L IR S o

Srahbbbbibbbbbbioiioiiis
bbbt UL
iiiiab
AL EEE L EE ibbbbb
LR

:* ROM CRC/CCITT = CHECK ROM POSITION AND CALCULATE CRC/CCITT.

LOCATION

CHIP NO.

EO4

*
.

EO3
EQ2

«
*
*

CHIP ADDRESS RANGE

BYTE

0
1

EO1
EO5
E14

LR TR TR R
TRTR TR TR T T

THE

LAST 4 BYTES CONTAIN INFORMATION ABOUT THE ROM TO CHECK.
THE 1ST
OF THESE BYTES CONTAINS THE ASCII VERSION NUMBER.
THE 2ND BYTE
CONTAINS THE ROM NUMBER.
THE 3RD AND 4TH BYTES CONTAIN A NEGATIVE
CRC/CCITT WORD FOR THE ROM.

T S

;*
;*
;*
;*

sukkannnnwntnwws

0000
- 1777
0000 - 1777

HIGH
LOW
HIGH

2000 - 3777
4000 - 5777
4000 - 5777

LOW

3
4
5

[MPORTANT

ADDRESS RANGE

LOW
HIGH

!!!!11111111

2000 - 3777

stk

ket

;* FOR THIS TEST TO RUN CORRECTLY, ENSURE THAT SWITCH 1

;+ EBS ON THE M8207 IS ON.

A AR AR A AR AR AR AR

AT LOCATION

IF THIS SWITCH IS OFF, BSEL1 WILL BE

;* LOCKED OUT AND THE MAINTENANCE FEATURES WILL NOT BE ENABLED.
AL

Attt it

gttt

ittt

222

232322222232222222;

;*
;*

SUBTEST 1 = ON THE FIRST PASS PRINT THE VERSION # IN EACH ROM
SUBTEST 2 = GENERATE THE CRC-CCITT IN EACH ROM AND COMPARE IT

SUBTEST 3 - COMPARE THE ROM # BLASTED IN THE ROM AGAINST THE
EXPECTED ROM #.

IT AGAINST THE CRC BLASTED IN THE ROM

'
LA

AR A

222322222232

22233222222222111

D
*
*
*
*
*
*
*
*
*
*
*

TEST 3 = DMR-11
MASTER CLEAR
THIS TEST WILL ISSUE 2 MASTER CLEARS.
EACH CALL TO THE MASTER
CLEAR ROUTINE WILL ENSURE THAT THE RUN BIT WILL BE SET.
ALSO
THE MASTER CLEAR WILL CAUSE THE DIAGNOSTIC MICROTESTS TO BE
RUN WHEN THE MICRODIAGNOSTIC BIT (BIT 13 IN SELO) IS CORRECTLY
SET OR CLEARED.
BECAUSE THE RUNNING OF MICROTESTS DEPENDS ON THE
EXCLUSIVE OR OF THE
HARDWARE SWITCH 10 ON E134 OF THE M8203 AND
THE MICRODIAGNOSTIC BIT, WE CAN'T KNOW WHETHER THE SETTING OR
CLEARING OF BIT 13 WILL RESULT IN THE RUNNING OF MICROTESTS.
THEREFORE THE MASTER CLEAR SUBROUTINE WILL TOGGLE (I.E. SET

*
*
*
*

THIS WILL ENSURE THAT REGARDLESS OF THE POSITION OF THE
HARDWARE SWITCH, MICROTESTS WILL BE RUN EVERY OTHER MASTER CLEAR.
WHEN RUNNING THIS TEST, WE EXPECT TO ADD THE RESULTS OF BSEL3
AFTER EACH MASTER CLEAR.

* BIT 13 ONLY ON EVERY OTHER MASTER CLEAR) THE SOF TWARE BIT.

* BSEL3 = 100
* BSEL3 = 200

=
=

MICROTESTS DISABLED
MICROTESTS RUN SUCCESFULLY

* IF THE RESULT OF THE 2 MASTER CLEARS IS NOT 300, AN ERROR IS
* REPORTED.

*
*

ADDITIONALLY THIS ROUTINE WILL REPORT WHENEVER THE RESULT OF

??E%3 II>'§C(),

* LA

AR AL AR ad

AR AL AR

:'
- %

THIS WILL MEAN THAT THE DEVICE IS NOT A DMR

2222232222223222282222222

e eI
1222222223222
l
2222222222;

TEST 4 = DMR-11
BASE IN COMMANDS

SUBTEST 1

=~ ISSUE A BASE IN

DMR MODE.

SUBTEST 2

=~ ISSUE A BASE IN

DMC MODE.

e
i
i
A
H
o®

ENSURE THAT THE DMR MODE BIT (BIT &) IS SET IN
THE MICROCODE SCRATCH PAD 7 AND THAT THE DDCMP
MESSAGE VARIABLES ARE PROPERLY INITIALIZED.

ENSURE THAT THE DMC MODE BIT (BIT 4) IS CLEAR IN
THE MICROCODE SCRATCH PAD 7 AND THAT THE DDCMP
MESSAGE VARIABLES ARE PROPERLY INITIALIZED.

- %
] LA

AR SR

SR E

st s

d stI
t
1222223232 222222222222
t

LR Lt

*
TEST 5 - DMR-11
;* DMR COMMANDS
- %
I

SUBTEST 1

eperuruepuvuparany

= ISSUE AN ENABLE EXTENDED ERROR COMMAND AND CHECK THAT
THE EXT. ENABLE BIT IS SET IS SCRATCH PAD 13.

THEN

DISCMLEREXTEM)ED ERROR AND CHECK THAT THE ENABLE BIT

- %

SUBTEST 2

=~ SET REP/SEL TIMER VALUE AND SET THE DMR THRESHOLD
VALUES.

THE BASE

. %

CHECK THAT THE VALUES ARE CORRECT IN
TABLE AFTER HALTING

THE

DMR.

- %
- % LA AR A

AR R

T 22222322232222222222222211

2
SEQ 0016

AR R

2133323223223 23 323232332223 22222228220% ]

.
*
*

TEST 6 = DMR=11
CONTROL IN COMMAND TEST -

SUBTEST 1

= CONTROL IN, FULL DUPLEX, DDCMP MODE.

SUBTEST 2

= C??T?gLséN HALF DUPLEX.

.
.
'

SEQ 0017
ENSURE THAT

THE HALF-DUPLEX BIT IS CLEAR IN THE MODEM STATUS WORD,
ALSC ENSURE THAT DDCMP MODE BIT IS SET IN SCRATCH PAD 7.

ENSURE THAT THE HALF DUPLEX

SUBTEST 3

- CONTROL IN, MAINTENANCE MODE.

*
.
*
.

SUBTEST 4

=~ CONTROL IN USING SELECTED LOOPBACK.
ISSUE A CONTROL IN
USING THE USER SELECTED LOOPBACK.
IF THE LOOPBACK IS
NOT CORRECT, DMR RUN MODE ACKNOWLEDGE WILL NOT BE
RECEIVED.

ENSURE THAT MAINT. MODE

BIT IS SET IN SCRATCH PAD 7.

*
*
- % LA

AR AR

ittt

2222222%

tttttt"tttttttt*tttttttttttttttttttitttttttttttttttttttttttitittttti

TEST 7 - DMR-11
;* MODEM WRITE COMMAND
;*
SUBTEST 1
= WRITE DATA PATTERNS INTO THE MODEM WRITE REGISTER.
;TM
ENSURE THAT ON THE NEXT MODEM READ THAT THE

'
L4
L4

o®

MICROCODE RETURNS THE PATTERN WRITTEN INTO BSEL6.

SUBTEST 2

S *
%
*

= ATTEMPT TO WRITE BOTH THE HALF-DUPLEX BIT AND THE

RTS HOLD BIT.
THE MICROCODE SHOULD NOT ALLOW THIS
TO HAPPEN.
WHEN READING THE MODEM STATUS, ONLY
THE HALF-DUPLEX SHOULD BE SET.

.
.
.

- %

- % LA

AR A

c®
:*
i

s stt
2222322 2232222222282
t
2

AFTER THE

SUBTEST 2

2222332222322

22222225

THIRD THRANSMISSION.

ASSIGN THE NAKS THRESHOLD OF 3 AND A NO BUFFER
THRESHOLD OF

AR A

232

=~ TRANSMIT A BUFFER WITHOUT A RECEIVE BUFFER.

o
% LA AR

OF THREE, ENSURE THAT A NO BUFFER ERROR IS RECEIVED

s®

TEST 8 = DMR-11
= TRANSMIT A BUFFER THREE TIMES WIHOUT ASSIGNING A
RECEIVE BUFFER.
BY ASSIGNING A NO BUFFER THRESHOLD

SUBTEST 1

)

Rttt

CHECK THAT

THREE AFTER SHUTDOWN.

gttt

ittt

THE NAKS ERROR COUNT
222223 282323283

32222222222222% 2]

.tttttttttttttttttttttttttttttttttttttt*tttttttttttttttttttt

'ttt't'ttt

EST 9 = DMR-11

;* NON-EXISTENT FEKRY (NXM) error check
;* Perform DMR commands usmgLNXH addresses. venfy that NXM error
;* reported IN EACH OF THE FOLLOWING SUBTESTS

;*
;*
;*
1

SUBTEST 1
SUBTEST 2
SUBTEST 3

- % LA

AR Sl d

=~
-

BASE IN RESUME COMMAND
- BASE TABLE ADDRESS IS NXM
BA/CC IN RECEIVE COMMAND
- BA/CC IN ADDRESS IS NXM
BA/CC IN TRANSMIT COMMAND
- BA/CC IN ADDRESS IS NXM
i

I 222222232223232222222221%1

""QI'Q't"tt'i.'t't'!t"ttttt"..'tt.ttttit""'tI.Q'Qt."'t't't"t

TEST

10 - DMR-11

:* TIME OUT = FORCE A TIMEOUT AND VERIFY THAT THE ERROR IS REPORTED
't'"ttt'Qttttttt.t‘t'ttt'ttttl"‘tt'tt"'tliQ'ifiit!"tifii.'t'it"i't

LA A

AR R

;*
- %

TEST 11

:*
;*
:*

;*
;*
;*
;*
;*
- *

- DMR-11

MESSAGE TOO LONG - TRANSMIT A MESSAGE THAT IS TOO LONG FOR THE

RECEIVE BUFFER AND VERIFY THAT THE 'TOO LONG'' ERROR IS RECEIVED.

AleIt
1232 2222222282

e ettt
eI
YII222222222334

2222222223

2223222222223

TEST 12 - DMR-11

PROCEDURE ERRORS THE FOLLOWING SHOULD CAUSE
A PROCEDURE ERROR:

SUBTEST 1
SUBTEST 2
SUBTEST 3
SUBTEST 4
SUBTEST 5

SRR AR

THE DMR-11

TO HALT AND RESPOND WITH

A SECOND BASE IN COMMAND
A CONTROL IN BEFORE A BASE IN
A BA/CC IN BEFORE A BASE IN
A BA/CC IN RCV WITH A BUFFER LENGTH OF 0
A BA/CC IN XMIT. WITH A BUFFER LENGTH OF 0

AR AR AR AR

RRRARRR AR RRIRRARRARRRRAARRRRAANAR
AR
R AR R

'ttttttttttttttttttttttttttttfitttttttttttttt.tttttttttttttt'ttttttttt

TEST 13 - DMR-11

;* FREE RUNNING FLAG MODE DATA TEST
;* TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA IS CORRECT.

;* IN THIS TEST NO INTERRUPTS ARE USED AND THE LINE UNIT IS IN
;* INTERNAL (TTL) LOOPBACK.
THIS TEST IS THE FIRST TEST IN WHICH

;* THE DMR IS USED IN A DATA TRANSMISSION MODE.

e
eIl
2222222223222 2233 133332

TEST

;* HAVE

14 - DMR-11

;* IN THIS TEST - SEE IF WE HAVE MEMORY MANAGEMENT,

L4
L4

THE MEMORY TO CHECK BITS 16 & 17 IN SEL6.

IF SO SEE IF WE

THIS WILL ALLOW

;* US TO TRANSFER DATA USING THOSE EXTENDED ADDRESSING BITS. AS IN
S * ngg 13 THE TEST IS NON-INTERRUPT AND INTERNAL (TTL) LOOPBACK IS

- %

- &

ALt

222223222222222222222211 5

SEQ 0018

't"'t'ttt"tI'tttttttttttfitttt'ttttttlltttttttttttttttttttttttt.t?ttz
.

TEST 15 - DMR-11

;* RESUME BASE IN - DMC MODE
;* «x
WILL NOT RUN IF MODEM LOOPBACK IS SELECTED

_=«

;* IN THIS TEST THE DMR WILL TRANSMIT AND RECEIVE 7 BUFFERS. DURING THE

NR
N
B
B

BASE IN
CONTROL IN

HALT
2 BA/CC
HALT
2 BA/CC
HALT
2 BA/CC
HALT

BASE
IN RECEIVE
BASE
IN RECEIVE
BASE
IN RECEIVE
BASE

1 BA/CC IN RECEIVE

IN THE

IN RESUME
IN RESUME
IN RESUME

IN RESUME

HALT
BASE IN RESUME
2 BA/CC IN TRANSMIT

HALT
2 BA/CC
HALT
2 BA/CC

BASE IN RESUME
IN TRANSMIT
BASE IN RESUME
IN TRANSMIT

HALT

BASE IN RESUME

HALT

BASE IN RESUME

1 BA/CC

IN TRANSMIT

NB
N
B
B

THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE
THE RECEIVE/TRANSMIT TABLE.

CHECKED AGAINST

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.
THIS
SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF

SEVEN RECEIVE AND SEVEN TRANSMIT BUFFERS.
THE ROUTINE WILL
QIE%EH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING

BNB B

ALL BA/CC OUTS RECEIVES AND TRANSMITS WILL BE ACCOUNTED FOR AND

BN BN B

L
Q!

LA TETETEEE

IR B

N I

T TN TM

R R

l’

;* TEST THE DMR WILL BE HALTED AND RESTARTED BY A BASE~IN RESUME
:* FOLLOWING MANNER:

AR AR R

THERE

IS MEMORY MANAGEMENT, USE A PAGE ABOVE 32k.

IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.
e

332222222222

SEQ 0019

SEQ 0020

""""'.fi.'t""..'.l.'.'t't"t.'.'lt'...."...."...'I""t""..'

TEST 16
= DMR-11
:* RESUME BASE IN - DMR MODE
;* IN THIS TEST THE DMR WILL TRANSMIT AND RECEIVE 7 BUFFERS. DURING THE
;* TEST THE DMR UILL BE HALTED AND RESTARTED BY A BASE~IN RESUME
;* FOLLOWING MANNER

BASE

HALT

BASE IN RESUME

HALT

BASE IN RESUME

HALT

BASE IN RESUME

HALT

2 BA/CC IN TRANSMIT

2 BA/CC 1~ TRANSMI
T

2
S

v
s*
iw
s

CONTROL IN

2 BA/CC IN RECEIVE
2 BA/CC IN RECEIVE

2 BA/CC 1~ RECEIVE
1 BA/CC

BASE IN RESUME

m RECEIVE
BASE

IN RESUME

BASE

IN RESUME

HALT

BASE IN RESUME

HALT

BASE IN RESUME

S*
;*
- %

T
s

- %

i
Iw

1
I

IN THE

BASE IN RESUME

2 BA/CC m TRANSMI
T
1 BA/CC IN TRANSMIT

ALL BA/CC OUTS RECEIVES AND TRANSMITS WILL BE ACCOUNTED FOR AND

THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
THE RECEIVE/TRANSMIT TABLE.

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.
THIS
SUSROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF

SEVEN RECEIVE AND SEVEN TRANSMIT BUFFERS. THE ROUTINE WILL
QIE%EH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
-

*
T

IF NEITHER (F THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

;w
T

THERE

IS MEMORY MANAGEMENT, USE A PAGE ABOVE

32K.

IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY

tt'ttttt'tttt'-ttttttt"tttttttttttttttttttttttttttttttttttt.

t'titttt

TEST 17 - DMR=11

SEQ 0021

:* INTERRUPT DRIVEN EXERCISE
:* IN THIS TEST 64 BUFFERS WILL BE TRANSMITTED AND RECEIVED
3

:* ALL BA/CC OUTS RECEIVES AND TRANSMITS WILL BE ACCOUNTED FOR AND
:* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
:* THE RECEIVE/TRANSMIT TABLE.
*

*
*
*
*

THE BUFFERS ARE DETERMINED

SUBROUTINE $BUFFS.

THIS

*
*

*
* LA AR

IN THE

SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
64 RECEIVE AND 64 TRANSMIT BUFFERS.
THE ROUTINE WILL
QIE%ZH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
IF

THERE

IS MEMORY MANAGEMENT,

USE A PAGE ABOVE

32K.

IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

AR itt
122323
t
2322222222

MLAA ARttt

s st
eI
tt
223232322223223222222222%;

;* LARGE MESSAGE

TEST

18 - DMR-11

:* IN THIS MODE TRANSMIT AND RECEIVE 1 LARGE BUFFER
- %

:* THE BA/CC OUT RECEIVE AND TRANSMIT WILL BE ACCOUNTED FOR AND

:* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST

:* THE RECEIVE/TRANSMIT TABLE.
. %

.
*
*
*
*

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.
THIS
SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
ONE RECEIVE AND ONE TRANSMIT BUFFER.
THE ROUTINE WILL
a}g%z'&o USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
:

%
*

*
“ LAA AL AL AR

st g

THERE IS MEMORY MANAGEMENT, USE A PAGE ABOVE 32K.

IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.
eIl

T2 2222232323322222222222%7

;t"""'tt‘t""'Qt"..t"'tttt.ttt"tt't*t.'Qtit"'fit*t.tt't""t'tfi

i
TEST 19 = DMR=11
:* MAINTENANCE MODE OPERATION

SEQ 0022

:* THE BA/CC OUT RECEIVE AND TRANSMIT WILL BE ACCOUNTED FOR AND
:* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
:* THE RECEIVE/TRANSMIT TABLE.
%

.
L4

.
.
.
Ll
N

.
2
-

.
-

.
.

L4
-

*
*
*

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.

*
*

*
*
]
* LA

THIS

SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
ONE RECEIVE AND ONE TRANSMIT BUFFER.
THE ROUTINE WILL
.A‘HEAH;EH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING

AR RS R

THERE

IS MEMORY MANAGEMENT, USE A PAGE ABOVE

d et
il
t
2222322322332t
223232 2282222223

9.0 ERROR INFORMATION

9.1 ERROR REPORTING
ERRORS ARE
REPORTED BY
THE PROGRAM AS THEY OCCUR (IF NOT
INHIBITED). THE REPORT CONFORMS TO THE DIAGNOSTIC SUPERVISOR
ERROR REPORT
FORMAT,
AND CONSISTS OF A DESCRIPTION OF THE
ERROR, THE TEST NUMBER, SUBTEST NUMBER,
PC
OF
THE
ERROR
E#L.
Tl}g‘ICE
ADDRESS,
AND
BASIC
AND
EXTENDED
ERROR
THE FOLLOWING EXAMPLE PROVIDES A TYPICAL ERROR REPORT, WHICH

DESCRIBES

32K.

IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

‘‘IRDY

NOT SET'' ERROR, AND PROVIDES THE PC OF

THE ERROR CALL AND THE PC OF
THE
CALL
TO
THE
SUBROUTINE
gE&?gL%gfi IT, THE FAILING REGISTER NAME, AND DEVICE REGISTER

%%Ral;\rlc FTL ERR 00002 ON UNIT 00 TST 006 SuB 000 PC:

016210

ERROR IN SUBROUTINE CALLED AT PC: 036174
STATUS OF BUFFERS
NUMBER OF BUFFERS: 7

BUFFER SIZE: 2048
IN = RCV ASSIGNED:
OUT = RCV RETURNED:

7
XMIT ASSIGNED:
0
XMIT RETURNED:
DMR RUN ACKNOWLEDGMENT NOT RECEIVED
(CHECK INTERFACE, BAUD AND TURNAROUND)

7
0

ALL THE MESSAGES IN THE DIAGNOSTIC USE BASIC MESSAGE CALLS.
THEREFORE THE INHIBIT EXTENDED ERROR FLAG WILL HAVE NO

EFFECT ON THE MESSAGE OUTPUT.
INHIBIT THE ERROR MESSAGES.

THE INHIBIT BASIC MESSAGES WILL

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMIA.P11
13-MAR-80 09:34
002000

13-MAR-80

09:36

2
PAGE 2

SEQ 0023

.TITLE CZDMIAQ DMR-11 FUNCTIONAL TESTS
2000

-MCALL
SvC

SvC

; INITIALIZE SUPERVISOR MACROS

BGNMOD

SLSTIN=
SLSTTAG=
SVCINS=
SVCTST=
SVCSuB=
SVCGBL=
SVCTAG=

1
1
1

LIST INSTRUCTIONS
LIST
LIST
LIST
LIST
LIST

INSTRUCTIONS, SHIFTED RIGHT
TEST TAGS, SHIFTED RIGHT
SUBTEST TAGS, SHIFTED RIGHT
GLOBAL TAGS, SHIFTED RIGHT
OTHER TAGS, SHIFTED RIGHT

CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF vou WISH

TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS.
CHANGE THE
SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS.
YOU MAY
CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM.

002000

POINTER BGNSW,BGNDU,BGNSF T

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(‘|052)
13-MAR-80
CZDMIA.P11
13-MAR-B0 09:34
PROGRAM HEADER

09:36

PAGE 2=1

SEQ 0024

;2:523

.SBTTL

PROGRAM HEADER

2243
2244
2245

3
3
3

THE PROGRAM HEADER MACRO CHARACTERIZES THIS DIAGNOSTIC. THE
HEADER MACRO'S ARGUMENTS ARE FILE NAME, RELEASE LEVEL, PATCH
DISPOSITION OF THE MOST RECENT PATCH, MAXIMUM TEST TIME IN SEC..

g_%l‘:g

<44

2246

2249
2250
2251
(4)
(4)
(4)

(4)

(4)
(4)

002000

103
132

002003
002004

115
11

002005
002006
002007

000
000
000

(4)

002010

101

002011

060

(5)

(4)

002010
002011

(5)
(4)
(5)
(4)
(5)
(4)
(5)

002012
002012
002014
002014
002016
002016
002020

(5)

002022

(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)

002024
0020246
002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040
002042
002042
002044
002044
002046
002046
002050

(4)

LSNAME
: :

LSREV::
L$DEPO: :
LSUNIT::
LSTIML::
LSHPCP::

036534

002022

002174

L$SPCP: :
LSHPTP::
L$SPTP: :

002224

LSLADP::

037744

LS$STA::

000000

L$CO::

000000

LSDTYP: :

000000

LSAPT::

000000

LSDTP::

002124

L$PRIO::

000000

LSENV]::

000000

LSEXP1::

000000

003

LASCII /7¢/
LASCII 72/
LASCII /M/
LASCII 71/

001130

037470

THESE

ASCII /D/

000000

2020

002050

IN RESPECTIVE ORDER.

104

(6)
(6)
(5)
(5)

ARGUMENTS ARE

HEADER (CZDMI,A,0,600.,0

002000
002000
002001

002002

AND THE TYPE OF DIAGNOSTIC (O-SEOUENTIAL. i1=EXERCISER).

;

LSMREV::

BYTE
BYTE
BYTE

0
O
O

ASCII

/A/

LASCII

70/

WORD

.WORD

600.

.WORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

.WORD

LS$SW

.WORD

LSLAST

WORD

MWORD

.WORD

LSDISPATCH

WORD

.BYTE

CSREVISION

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1
13-MAR-80 09:34
PROGRAM HEADER

(3)
(5)

(4)
(5)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)

002051
002052

002052
002054
002056
002056
002060
002060
002062
002062
002064
002064
002066
002066
002070

002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104

(5)

002106

010236

002106
)
)
D
)

LSEXPS:
:
LSAUT::

e
e
N
Loy
Y

L$DUT: :
LSLUN::
LSDESP::

000000
020514

L$CCP::

021770

CSEDIT

WORD
WORD

O
O

WORD

.WORD

LSDVTYP

WORD

.WORD

LSDU

WORD

.WORD

PORECEAr, WORD

021700
LSPRT::

020506

LSTEST::

000000

LSDLY::

000000

LSHIME::

000000

.BYTE

.WORD
LSLOAD:
:
“EMT
LSETP::
WORD
LSICP::

104035

002104

— e

2262

000000

LSEXP4::

000000

8800‘4\ sNNVOO

(4)

LSREPP::

000000

023522

SEQ 0025

LSDEVP: :

010230

000000

2
PAGE 2-2

L$SPC::

000000

LSEF::

000000
000000

002070

(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)

003

09:36

.EVEN

LSDESC
ESLOAD
O
LSINIT

LSCLEAN

.WORD

LSAUTO

.WORD

LS$SPROT

WORD

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
DISPATCH TABLE

09:36

2
PAGE 2-3

SEQ 0026

35;10

.SBTTL

2272
2273
2274

SIIIITTII777777777777777777777777777777777777777777777777777777777777777777777
/ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
/ 1T IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

%%;2

2277
(4)
(3)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)

(6)

2278
2285
2286
2287
2288

DISPATCH TABLE

/////////////////////////////////////////////////////////////////////////////

002122

002122
002124
002126
002126
002130
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164

002166

002170

000023
023602
024120

025434

025566
026644

030056
030636
031260
031762
032474
032676
033056
033762
034456
036166
036272
036340

036410

036460

DISPATCH 19
.WORD
LSDISPATCH: :
WORD
WORD

19
T1
T2

.WORD

WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
WORD
.WORD
MWORD
WORD

T6
T7
T8
T9
T10
T1
T12
T13
T14
T15
T16
T17

WORD
WORD

.WORD

T4
TS

T18

T19

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
13-MAR-80 09:34
CZDMIA.P1
DEFAULT HARDWARE P-TABLE
.SBTTL

PAGE 2-4

SEQ 0027

DEFAULT HARDWARE P-TABLE

////////////////////////////////////////////////////////////////////////////
/ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
:/ THE TEST-DEVICE PARAMETERS.
#*NOTE - MANY OF THE P-TABLE VALUES LISTED
:/ BELOW ARE NOT USED IN THIS DIAGNOSTIC BUT ARE INCLUDED TO AGREE WITH

:/ M8207 & M8203 DIAGNOSTIC P-TABLES.

SI111I1117117777777771771171117777777711111117177177171771101111121111071117

BGNHW

000013

DFPTBL

LSHW::

.WORD

L10000-L$HW/2

DFPTBL::

.WORD

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

;**NOT USED - MICROPROCESSOR TYPE

160070

;DMR11 CSR UNIBUS ADDRESS DEFAULT

300
0

;DMR11 INTERRUPT VECTOR DEFAULT
;**NOT USED = PRIORITY LEVEL
;**NOT USED = LINE UNIT
;*«NOT USED - SWITCH PACK #1 (REG 11)
;**«NOT USED = SWITCH PACK #2 (REG 15)
;**NOT USED - SWITCH PACK #3 (REG 16)
;CABLE TURNAROUND (DEFAULT = CABLE(S))
.'**M)T USED - BAUD RATE
;**NOT USED ~ RUN SWITCH

000
000
000
5
0
0

ENDHW

.SBTTL

L10000:

DEFAULT SOF TWARE P-TABLE

////////////////////////////////////////////////////////////////////////////
/ THE S0FTWARE P-TABLE CONTAINS THE VALUE OF THE PROGRAM
:/ PAR-METERS THAT CAN BE CHANGED BY THE OPERATOR.

///////////////////////////////////////////////////////////////////////////

000001

BGNSW

SFPTBL

LESW::
SFPTBL::

000005

SPEED:
ENDSW

.WORD

;PROCESSOR SPEED VARIABLE USED

sTO ALTER THE WAIT VARIABLES.

L10001:

.WORD

L10001-L$SW/2

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 (09:36
13-MAR-80 09: 34
CZDMIA.P1T
GLOBAL EQUATES SECTION
.SBTTL

€

3
PAGE 2-5

SEQ 0028

GLOBAL EQUATES SECTION

/////// LILIITTT7777777707707777777777777777777777777777777777777777777177777

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

"\"\"-A"\f\fi’\’\AAAAAAAA’\AAA’\A’\AAAAAA’\’\A’\’\AAAAAAA’\A’\AA’\
—d e
Dl e D D
D
D ) D ) )
D D D D D D D D D D ) D D D ) ) D D D e D D D e e

vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvw

/
ARE USED IN MORE THAN ONE TEST.
SIIIII1111707777107771717107171777177777717717117717177717771711707711011177717

002226

EQUALS

; BIT DIFINITIONS

BIT15== 100000
BIT14== 40000
BIT13== 20000

BIT12== 10000

~ BIT11== 4000
- BIT10== 2000

-8IT09== 1000
BIT08== 400
BIT07== 200
BIT06== 100
BITOS 40
BITO4== 20
BIT03== 10
BIT02== 4
BITO1== 2
BIT00== 1

BIT9==
BIT8==
BIT7==
BIT6==

BIT09
BIT08
BITO7
BIT06

BIT3==
BIT2==
BIT1==
BITO==

BIT03
BIT02
BITO1
BITO00

BIT5==
BIT4==

BITO05
BIT04

; EVENT _FLAG_DEF INITIONS

;

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==
EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF .PWR==

- 48
31.
30.
29.
28.

; PRIORITY LEVEL DEFINITIONS
PRI07== 340

PRIO6== 300
PRI0S== 240

PRI04== 200
PRI03== 140

;
;
:
:
:

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

NP NP N

N N

NN NN INNININPNINNINPNNIN
NN ~
d D e e
D D e e
D ) D D D D d d D —b

NN
— )

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80_ 09:36
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL EQUATES SECTION

000100
000040
000000

PAGE 2-6

SEQ 0029

PRI02== 100
PRIO1== 40
PRIOO== 0

;OPERATOR FLAG BITS
EVL==
LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==
PR]==
IXE==
IBE==
IER==
LOE==
HOE==

4
10
20
40
100
200
400

1000
2000

4000
10000
20000
40000
100000

2222222322222 2;

Rtit
ittt I3 2222222223222222

sSWITCH REGISTER OPTIONS
SW15=

SW14=

100000

SW13=
SW12=
SW11=

It 2222232322222222223222222%%;

:sCSR AND STAUS WORD DEF INITIONS

;:SELO (CSR) - BSELO/BSEL1
RUN=
BIT15
sSET _IF RUNNING

MCLR=
MDIAG=
STLU=
LPLU=
ROMO=
ROMI=
STuP=
RDI=

IESET=

BIT14
BIT13
BIT12
BIT11
BIT10
BIT9
BITS8
BIT7

BIT6

:MASTER CLEAR OF PROCESSOR AND LINE UNIT

:CSR MAINTENANCE - ENABLE MICRODIAGNOSTICS
:CSR MAINTENANCE = STEP LINE UNIT
sCSR MAINTENANCE = LINE UNIT LOOP
s CSR MAINTENANCE

:CSR MAINTENANCE
:CSR MAINTENANCE = USED WITH LOOP LU
:WHEN ASSERTED, XMITTER SHIFTS; CLEAR, REC. SHIFTS

:CSR - DMR11 READY RESPONSE

:CSR = INTERRUPT ENABLE INPUT - DMR11

INTERRUPTS

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
CZDMIA.P
13-MAR-80 09:34
GLOBAL EQUATES SECTION

2380
2381
2382
2383
2384

RQI=
IECLR=

BITS
BIT4

%3332

000004

RCvV=

BIT?2

2387
2388

000200

:2SELE = BSELZ/BSEL3
RDO=
BIT

2391
2392
2393
239
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405

2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
gfig

000100

020000

;:SEL6 = BSEL6/BSEL7

BASEUP= BIT13
RES=

BIT12

010000

CTS=

BIT12

002000
002000

HDX=
(D=

BIT10
BIT10

004000

SECN=

BITN

001000
000400
000522

HALTC=
MAINT=
DMR=

000400
000200
000100
000100
000040
000020
000010
000010
000004
000004
000002
000001

NXM=
BIT8
STREC= BIT?7
DISCON= BIT6
DTR=
BIT6
DMRRUN= BITS
TOLONG= BIT4
MAINT1= BIT3
MNTREC= BIT3
NOBFR= BITZ2
MAINT2= BIT?2
TOUT=
BIT1
NAKS=
BITO

2419

:CSR =

BIT6

010000

2‘.20

SEQ 0030

BIT9
BIT8
BIT8!122

IF 1, RECEIVE

;SEL2 = DMR11 SETS TO INDICATE DATA READY FOR QUTPUT
;SEL2 = SET TO ENABLE DMR11 TO INTERRUPT WHEN RDO

;SEL6 = CONTROL OUT - RESPONSE TO DMR MODE BASE
:
TABLE UPDATE
COMMAND.
;SEL6 - BASE IN -- WHEN SET CAUSES
:
RESUMPTION OF OPERATION
;SEL6 = CONTROL OUT = CTS FAILED
;SEL6 = CONTROL IN -- START TIME (3 SEC IF SET
H
1 SEC IF CLEAR)
;SEL6 = HALF-DUPLEX & CLEAR FOR FULL-DUPLEX
;SEL6 = CONTROL OUT = CD GLITCHED
sSEL6 = EXTENDED CONTROL OUT = HALT COMPLETED
;SEL6 = DDCMP MAINTENANCE DURING CONTROL IN
:SEL6 - BASE IN -- SET FOR DMR11 MODE
:
122 IS THE DMR PASSWORD FOR BSEL6 AND

;

IF O, TRANSMIT

BIT8 SETS THE DMR MODE BIT IN BSEL7

sSEL6 = CONTROL OUT = NON EXISTENT MEMORY
;SEL6 = CONTROL OUT = START RECEIVED
sSEL6 = CONTROL OUT = DISCONNECT
:SEL6 - MODEM WRITE - DATA TERMINAL READY
:SEL6 - CONTROL OUT = DMR RUN MODE
;SEL6 = CONTROL OUT - MESSAGE TOO LONG
:SEL6 - MODEM WRITE - LOCAL MODEM LOOPBACK
:SEL6 - CONTROL OUT - MAINTENANCE MSG. RECEIVED
;SEL6 = CONTROL OUT - NO BUFFER
:SEL6 - MODEM WRITE - REMOTE MODEM LOOPBACK
:SEL6 - CONTROL OUT - TIME OUT
sSEL6 - CONTROL OUT = NAKS THRESHOLD EXCEEDED

*t'tt!’ti*ttfifitt.tt"ttttt"*lii.tfiitfi.ttfi.tit'fi.fi'fi't.tfi'.fifitt"'t'fit

gzg;
2423
2424
2425

IEO=

PAGE 2-7

sCPU WHEN RDI SET IN RESPONSE TO RQI BEING SET.
sCSR = REQUEST IN
:CSR = INTERRUPT ENABLE INPUT - DMR11 INTERRUPTS
:CPU WHEN RDI CLEARS IN RESPONSE TO RQI BEING CLEAR.
: (DMR RUN MODE ONLY)

000040
000020

%ggg

..DDCI'P COMMANDS -~ BITS O € 1 IN SELO AND SEL2
000000
000001

; INPUT (SELO)
BACCT= 0
CNTRL= 1

;BUF ADDRESS AND CHARACTER COUNT TRANSMIT
- CONTROL COMMAND (IN OR OUT)

2426
2427
2428
2429
2430
2431
2432
243

000002
000003
000004
000005
000006
000007
000010
000011

HLT=
2
BASEI= 3
BACCR= 4
WMODEM= 5
EXERR= 6
DXERR= 7
DDMC=
10
UPDATE= 11

HALT COMMAND
:BASE IN COMMAND
;BUF ADDRESS AND CHARACTER COUNT RECEIVE
:WRITE MODEM STATUS REGISTER
;ENABLE EXTENDED ERROR NOTIF ICATION
sDISABLE EXTENDED ERROR NOTIFICATION
sDESELECT DMC LINE MODE
sREQUEST BASE TABLE UFDATE

2435

000013

THRESH= 13

:SET THE FOLLOWING THRESHOLDS:

2434

000012

TIMER=

:SET REP/SELECT TIMER VALUE

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL EQUATES SECTION

2436
2437
2438
2439
2440
2441
2442
2443
244l
2445
244
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462

2463

2464
2465
2466
2467
2468
2469
2470
2471
2472

2473
2474
2475
2476
2477

3
PAGE 2-8

SEQ 0031

sNAKS RECVD

000014
000015
000017

000007

RRAM=

INTER=

sNAKS SENT
sREP/SEL
sNO BUFFER
:READ M8207 RAM (0-377)

:WRITE INTERFACE IN AX3=15

RMOCEM= 17

;OUTPUT (SEL2)
CMD=
7

:READ MODEM STATUS (=NOP)

NOTE: CNTRL IS USED FOR SELZ2
: ** MASK USED TO CLEAR COMMAND BITS 0=2 #»

LA ARtt
ettt
t
2222 22222222

..BASE TABLE OFFSETS

000042
000043
000044
000045
000046
000055
000060
000062
000064
000066
000072
000076

R=
N=
A=
T=
X=
PRETIM=
THIL=
TH2L=
TH3L=
TH4L=

IsP7=
ISP13=

s INTENTIONALLY NOT LABELLED, BECAUSE THOSE LOCATIONS
:MUST NOT BE CHANGED IN ORDER TO BE DMC COMPATIBLE.
;THE LABELS BELOW CORRESPOND WITH THOSE USED IN THE
:DMR MICROCODE
.
lR = MESSAGE RECEIVED
= MESSAGE TRANSMITTED
#A = MESSAGE ACKNOWLEDGED
:#T = NEXT MESSAGE TO BE TRANSMITTED
:#X = LAST COMPLETED TRANSMISSION
sPROGRAMMABLE REP/SEL TIMER VALUE.
s THRESHOLD LEVEL = NAKS RECEIVED .
: THRESHOLD LEVEL = NAKS SENT.
: THRESHOLD LEVEL = REP SENT.
s THRESHOLD LEVEL = NO BUFFER AVAILABLE.

42
43
44
45
46
55
60
62
64
66

72
76

sNOTE: THE OFFSETS FOR BASE+3.-BASE+10 WERE

s IMAGE OF SCRATCH PAD 7
: IMAGE OF SCRATCH PAD 13

Tl 222233222232232222222

s INSTRUCTION DEF INITIONS
000207

RETURN=207
R

000015
000012

: MISC

CR=
LF=

EQUATES

15
12

;RETURN FROM SuB.

eIl

11222

sASCII CARRIAGE RETURN
sASCII LINE FEED

JSR PC]
233222222 2222222222%

)

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(i052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL DATA SECTION

gzg?

.SBTTL

2482

09:36

PAGE 2-9

SEQ 0032

GLOBAL DATA SECTION

SIIIIIIT7777777777777777777777777777777777777777777777777777777777777777/777777

2483

%‘l:gz

/. ///////////////////////////////////////////////////////////////////////////

2484

2487
2488

2‘89

“DMR11 VECTOR AND REGISTER INDIRECT POINTERS

26492
2493
269
2495
269
2497

002226
002230
002232
002234
002236
002240

2500

002242

2502

002244

2504

002246

5289

002250

2501

2503
2505

000000
000000
000000
000000
000000
000000

0
0
O
0
0
O

BSEL1:

SELO= (SR
BSELO= (SR

002234

002236

BSEL2= SEL2
BSEL3:
.WORD
BSEL4= SEL4

002240

BSEL6= SEL6

000000

.WORD

:DMR11 RECEIVER INTERRUPT VECTOR
*DMR11 TRANSMITTER INT. VECTOR
*POINTER TO DMR11 CONTROL STATUS REGISTER
*POINTER TO DMR11 CONTROL OUT REGISTER (SEL 2)
*POINTER TO DMR11 PORT REGISTER (SEL 4)
*POINTER TO DMR11 PORT REGISTER (SEL 6)

*CSR IS SELO
*LOW BYTE OF CSR

*POINTER TO DMR11 CSR HIGH BYTE

*LOW BYTE OF SEL2

*POINTER TO sen.z HIGH BYTE
*POINTER TO seu. HIGH BYTE

BSELS:

.WORD

BSEL7:

.WORD

*LOW BYTE OF SEL

*LOW BYTE OF SEL6

*POINTER TO SEL6 HIGH BYTE

.t.t..."t'ttt'ttt't"""t.Qtt'tttt"""t.'ttttltfitt'tttt.*"'ttttt

gggg
2512
gg}z

DMRVEC: .WORD
DMTVEC: .WORD
CSR:
.WORD
SEL2:
.WORD
SEL4:
.WORD
SEL6:
.WORD

002232
002232

2508

2511

IN MORE THAN ONE TEST.

Qttittt.ttfiQ'ttt.fi"'t"'fitt.t'..Q'.titl.‘tt.t.t.'..fit'ttttttt'tt"'t

gzg?

2498
2459

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

ZZOTHER HARDWARE PARAME TERS

002252 000000
002254
002256

000000
000000

2515

WIYPE:

DMTURN:
MICRO:

.WORD

.WORD
.WORD

0
0

:MICROPROCESSOR TYPE

“TURN AROUND TYPE (0-7)
*MICRODIAGNOSTICS (IF 1(YES) - ENABLED)

;.'Q-t'ttttt.t.t.'t'.t"""Q.....t..t'iltttQtfi..'t..tt't't.'t'tttttti"

52;;

*PROGRAM CONTROL PARAME TERS

2520
2521
2522
2523

002260

000000

DMRFLG:

.WORD

002262

000000

INFACE: .WORD

;FLAG SET WHEN DMR MODE IS REQUESTED IN
*THE BASE IN COMMAND.
USED TO FLAG THAT
‘A DMR MODE ACKNOWLEDGE IS EXPECTED.
*FLAG TO ALLOW CHANGE OF INTERFACE TYPE

2525
2526
gggg

002264
002266
002270

000000
000000
000000

FRSTIM: .WORD
FRSPAS: .WORD
STARES: .WORD

O
0
0

*FLAG=0 IF PROGRAM JUST LOADED
*FLAG=0 IF FIRST PASS AFTER LOAD
*FLAG=0 IF 1ST TIME THRU AFTER STA OR RES

2524

2529
2530
2531
2532
2533
253,
2535

002272
002274
002276
002300
002302

000000
000000
000000
000000
000000

START:
RESUME:
DMCMDE:
MNTMDE:
MMANAG:

.WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
0
0

:BY WRITING AX3-15.

FLAG SET/CLEARED IN iNIT.

;FOLLOWING PARAMETERS ARE USED IN THE
*INTERRUPT TESTS (TESTS 15-19):

:FLAG SET WHEN A CONTROL IN HAS BEEN ISSUED.
:FLAG SET WHEN A BASE IN WITH RESUME DESIRED.
:FLAG SET WHEN A BASE IN WITH DMC MODE DESIRED
*FLAG SET WHEN MAINTENANCE MODE IS DESIRED.
*FLAG RETURNED IN THE SUBROUTINE $BUFFS

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.PN
13-MAR-80 09:34
GLOBAL DATA SECTION

09:36

SEQ 0033

gggg

2538
2539
2540

sJMMANAG=1, MEMORY MANAGED BUFFERS USED

002304

000000

AX3:

WORD

;BIT PATTERN TO WRITE INTO AX3=15, WHEN
:IT 1S REQUESTED TO ALLOW INTERFACE
*SELECTION. (TEST CONFIGURATION 1-4)

2541
2542

:BITO = TEST BIT (MUST BE SET TO ALLOW SELECT)
‘BIT3 = INTEGRAL MODEM

2543

2544
2545

2546
2547

‘BIT,

002306

000000

WMAINT:

.WORD

= V.35

;BITé = EIA
:BIT7 = RS422

JFLAG SET WHEN IT IS NECESSARY TO WRITE
:MODEM MAINTENANCE BITS (MAINTENANCE 1 & 2)

2548

:THIS FLAG IS SET OR CLEARED IN THE INIT CODE.

2551

ML AL SRS

2552

2553
2554

PAGE 2-10

pnocwu VARIABLES

2112321232232 3223232222222222222221221

;WORD1-WORD3 VALUES DETERMINED IN INIT
;CODE DEPENDING ON THE BAUD RATE.

2555

002310

000000

WAIT1:

.WORD

2557
2558
2559
2560
2561
2562

002312

000000

WAIT2:

.WORD

002314
002316
002320
002322

000000
000000
000000
000000

WAIT3:
WAIT4:
BUFSIZ:
BUFNUM:

.WORD
.WORD
.WORD
.WORD

O
O
0
O

VALUE FOR TIMEOUT COUNTER USED IN S$MSCLR
AND S$CLRQI SUBROUTINES.
VALUE FOR TIMEOUT COUNTER USED IN SINOUT.
:WORD USED AS OUTER LOOP COUNTER IN SINOUT.
;CALCULATED BUFFER SIZE IN BYTES.
;# OF RECEIVE & TRANSMIT BUFFERS.
THIS

2565

002324

000000

INRCV:

;COUNTER FOR # OF BA/CC IN RECEIVES.

2556

555243

2566
2567
gg

002326
002330
002332

000000
000000
000000

2570

2571

2572

2573
2574
2575
2576

INXMIT:
OUTRCV:
OUTXMT:

.WORD

.WORD
.WORD
.WORD

O
0
O

;VALUE FOR TIMEOUT COUNTER

*USED IN SWAIT SUBROUTINE

;VARIABLE IS USED IN THE SUBROUTINE $BUFFS

;COUNTER FOR # OF BA/CC IN TRANSMITS.
;COUNTER FOR # OF BA/CC OUT RECEIVES.
sCOUNTER FOR # OF BA/CC OUT TRANSMITS.

ttttttttttttttttt!ttttt'tttttttttttttittttttttttttttttttttttttttt'!tt

002334

000000

I MISCELLANEOUS STORAGE

TEMP

WORD

;SCRATCH WORD USED FOR MISC. STORAGE IN SUB.

002336
002340
002342
002344

000000
000000
000000
000000

SAVE:
FLAG:
SFLAG:
SKIP:

.WORD
.WORD
.WORD
.WORD

O
O
0
0

2SCRATCH WORD USED
;SCRATCH WORD USED
;FLAG USED IN TEST
sFLAG USED IN TEST

2579

002346

000000

INFLAG:

.WORD

;FLAG USED IN INISR TO FLAG WHEN ALL THE

2582
2583
2584
2585
2586
52%

002350

000000

OUTFLG:

.WORD

002352

000000

RESFLG:

.WORD

002354

000000

ERRFLG: .WORD

002356

000000

LAST:

gg;g

ggg?

2589
2590
2591

.WORD

FOR MISC. STORAGE IN SUB.
FOR MISC. FLAG IN SUB.
15 FOR LOOP CONTROL.
7 TO MARK WHETHER TO SKIP

;A PORTION OF THE TEST.

;BA/CC INS HAVE BEEN DONE.

;FLAG USED IN OUTISR TO FLAG WHEN ALL THE
*BA/CC OUTS HAVE BEEN DONE.
;FLAG USED IN IN ISR TO FLAG THAT THE RESUME
;COMMAND HAS JUST BEEN ISSUED.
FLAG USED IN THE WAIT SUBROUTINES (SWAIT
; & SCLRQI) TO RETURN ERROR CONDITON (SEC)
O

;WORD USED TO STORE LAST COMMAND PROCESSED IN
;THE INPUT INTERRUPT ROUTINE.

PSTACK:

SUBRPC:
NESTPC:

ERROR:
LOGDEV:

. R .§. L

2592
2593
25%
2595
25

09:36

SEQ 0034

sERROR STORAGE
sLOGI CAL DEVICE NUMBER
s CONTAINS BASE LEVEL PROGRAM SP
:PC OF SUBR CALL FOR ERROR REPORTS
;FLAG TO NOTIFY WHEN A SUBR IS NESTED
s IN ANOTHER SUBROUTINE (WHEN SET)

CLRNO:

PAGE 2-11

OO0O0O0O

CZDMIAO DMR=11 FUNCTIONAL T EETS MACY11 30A(1052)
13-MAR-80
CZDMIA.PI
13-MAR-80 09:3
GLOBAL DATA SECTION

;THIS WORD IS INCREMENTED DURING EACH MASTER
THIS WILL ALLOW EVERY OTHER MASTER
s CLEAR.

;CLEAR TO RUN THE MICRO TESTS.

HIWORD:
ROMADR :

CHIPNO:

HICRC:

:
LOWORD

.
LR Rl
AR R

;ROM CHECK VARAIBLES
s CRC STORAGE FOR LOW BYTE CHIP

elolelelels)

LOCRC:

s CRC STORAGE FOR HIGH BYTE CHIP
sTEMP. WORD CONTAINING 2 CONSECUTIVE LOW BYTES

;TEMP. WORD CONTAINING 2 CONSECUTIVE HI BYTES

;POINTER TO ROM ADDRESS.
;CHIP NUMBER BEING CHECKED.

ittt

122223223222222222
12222223223

;sBUFFER AREA

2222222%¢

*% CCITT PSUEDO-RANDOM TEST PATTERN =
THE FOLLOWING 32 WORDS TRANSLATE INTO A 512 BIT PATTERN
THAT WAS GENERATED ACCORDING TO CCITT RECOMMCNDATION V.52.
PATTERN WAS GENERATED BY A 9 BIT SHIFT REGISTER (INITIALIZED
AS 1S) WHOSE 5TH AND 9TH BI TS ARE XORED.
THIS XOR RESULT IS SHIFTED

INTO THE 1ST BIT OF THE REGISTER AS THE REGISTER IS SHIFTED RIGHT.
THE 9TH BIT (OR BIT SHIFTED OUT) IS SHIFTED INTO THE BIT PATTERN.
NOTE: CCITT RECOMMENDED 511 BITS, I°'VE EXTENDED THIS BY 1 BIT TO END
157427

031011
105221
040041

$CCITT:

ON A WORD BOUNDARY.

.WORD

WORD
.WORD

.WORD
-WORD
.WORD
.WORD
-WORD
.WORD
-WORD

.WORD
MR

177603,157427.031011

047321,163715,105221
143325,142304,040041

014116,052606,172334
105025,123754,111337
111523,030030, 145064
137642,143531,
17
135015,066730,026575
052012,053627,070071
151172,165044,031605

166632.016741°

I IT2212222232222222222221211
%,

s. TRANSMIT BUFFER (SMALL)
TFLAG:

WORD
TCOUNT= 36.

TBUF :

LASCIZ

sFLAG FOR STATUS OF TRANSMIT BUFFER
0 HARACTER COUNT OF TBUF

/ABCDEFGHIJKLMNOPQRST UVWXYZ20123456789/

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
13-MAR-80 09:34
CZDMIA.P1
GLOBAL DATA SECTION

002560

09:36

PAGE 2-12

SEQ 0035

.EVEN
AR

eIttt

2222223232222}

;: RECEIVE BUFFER (SMALL)
002560
002562

000044
000046

RFLAG:
.WORD
RCOUNT= 36.

RBUF:

.BLKB
EVEN

;FLAG FOR STATUS OF RECEIVE BUFFER
sCHARACTER COUNT OF RBUF

38.

:36. BYTE BUFFER + 2 BYTES USED

:TO MARK THE END OF THE RECEIVE BUFFER

ettt il
2222222322222222283

;. BASE TABLE
002630

000400

BASE:
MR

.BLKB
R

256.

sMICROPROCESSOR MEMORY ALLOCATION
ettt

22222222232222222222

;; TRANSMIT AND RECEIVE BUFFER POINTERS
003230

000200

XMTBUF: .BLKW

128.

;POINTERS TO TRANSMIT BUFFERS (UP TO 64)

003630

000200

RCVBUF:

128.

sPOINTERS TO RECEIVE BUFFERS (UP TO 64).

.BLKW

:: BUFFER AREA (LARGE)
004230

004000

BIGBUF:

;1 WORD FOR ADDRESS AND 1 WORD FOR CHAR. COUNT

.BLKB

4000

112222222222 22222232222¢%;

:MAX BUFFER (2K BYTES)

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1
13-MAR-80 09: 34
GLOBAL TEXT SECTION

2675

.SBTTL

09:36

PAGE 2-13

SEQ 0036

GLOBAL TEXT SECTION

ZlXl!XZ!!l!l1X!XlXZXXX!%%ZZZ!Z!XZZ!X!!ZZXXXZ2!112XZ1XXXX!XZZXZXXXZZXZZI!!Z!ZX
:X
E GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENT

HESSAGES AND ASCII INFORMATION THAT ARE USED IN
TEST

12111211112121llllllllllllll1X!Z2XX!XXZZZXXZZXZZZZX!ZXZXll!l%l!!l!llllll!llxz
MR

ittt

T 222222322223

:* NAMES OF DEVICES SUPPORTED BY PROGRAM
ALt

DEVTYP

046504

030522

<DMR11>

000061

eIl

222222222%;

2222232223322 222222222223

LSDVTYP::

LASCIZ

/DMR11/

MRl et
Tl
t
2232222222223 2222232222232
t
222113 5

ARl itt
Il 122222223222223
t
232313331I31T Y

;* TITLE OF PROGRAM
DESCRIPT

026522
010252
010260

052123

<DMR-11 FUNCTIONAL TESTS>

LSDESC::

030461
052103
020114
000123

.ASCIZ

.EVEN

* FORMAT STATEMENTS USED IN PRINT CALLS
-

/DMR-11 FUNCTION

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
13-MAR-80 09:34
CZDMIA.P1T
GLOBAL SUBROUTINES
.SBTTL

09:36

PAGE 2-14
SEQ 0037

GLOBAL SUBROUTINES

/////////////////////////////////////////////////////////////////////////////
3
GLOBAL SUBROUTINES ARE CALLED BY MORE THAN ONE TEST
/////////////////////////////////////////////////////////////////////////////
't*tttttt*ttt*tttttiQttttiitttt"'t.'i"ttt*tt*tttt.*tt'.t*tttti't't't

MACROS = THERE ARE 2 BASIC TYPES OF MACROS USED
1. NORMAL MACRO

2. DMR11 FLNCTI(NAL MACROS = THESE MACROS MAY
BE NOTHING MORE THAN A CALL TO A SUBROUTINE,
BUT_THEY ARE DISTINCT DMR FUNCTIONS WHICH CAN
DISTINGUISHED BY THE IN-LINE MACRO NAME.

"ttt**tttttQttfitt*t.tttttttt'*'ttiltttt*fi.fittttttti'tttt.tttttt*tt'.t.

;

AR R

Rttt itt
I 222222222222
t
2 222

CALL MACRO = CALL ROUTINE
= JSR PC, ROUTINE
(NOTE: RETURN IS
EQUATED TO A RTS PC)

Attt ett
T332 2223222322322
t
2222

MACRO
.IF
52';?;

.ENDC

JSR
.ENDM
AR Rt

CALL
ROUTIN
B, ROUTIN
ROUTINE; ## MISSING ROUTINE-EXPANSION ABORT ##
PC,ROUTIN

ittt

1212232223222 2222222%;

UAI T SFLAG MACRO = THIS MACRO INTERPUTS THE SFLAG AS RDI, RQI OR RDO.
IF RDI OR RDO, THE SUBROUTINE CALLED WILL WAIT UNTIL

THE RESPECTIVE BIT IS SET.

SRR

IF RQI, THE SUBROUTINE

CALLED WILL CLEAR RQI AND WAIT UNTIL RDI IS CLEARED.

.MACRO WAIT
.NLIST
.LIST ME
LLIST

JF
.ERROR
CMEXIT
-ENDC
IF

ngbc

It 2322222222222212221

$FLAG

sxxxx MACRO EXPANSION #wx«

B, S$FLAG
FLAG
;#% MISSING FLAG FOR WAIT = EXPANSION ABORT ##

IDN $FLAG,RQI

PC, $CLRaf

IDN $FLAG,RDI

JSR

PC, SWAIT

LIF
JSR

IDN $FLAG.RDO
PC, SWAIT

WORD

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.
;CALL WAIT ROUTINE

:FLAG THAT WE'RE WAITING FOR RDI

:CALL WAIT ROUTINE

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES

2768

WORD

2769

.ENDC

2771
2772
2773
2774

NLIST ME
.ENDM

2770

2775

2776

2777

2778

2779
2780

2781

2782
2783
2784
2785

2786

2787

09:36

PAGE 2=15

SEQ 0038

sFLAG THAT WE'RE WAITING FOR RDO
IRRRR

122}

R
A AR ARN
AR AR AR R AR AR A ARARRANAARARNANRRARAR

: " CLEAR MACRO = THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE

.MACRO
NLIST

$MSCLR SUBROUT INE

CLEAR

i i

2 2322222222222 2321y

.LIST ME

LIST

JSR

PC, $MSCLR

.NLIST ME

.ENDM

sxxxx MACRO EXPANSION #xwxx
;ISSUE A DMR MASTER CLEAR
IRRAR

Wk kK

CZDMIAO DMR=11 FUNCTIONAL TEyS.TS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1T
13-MAR-80 09
GLOBAL SUBROUTINES
2790

2791
2792
2793

2794

2795
2796
2797
2798
2799

.MACRO BASEIN
NLIST
LIST ME
LIST

IF
JSR

.IFF
JSR

2828

A AR AR AR AR

$A.,$8,8C

AR AR

AR AR AR

AR AN AR AR AR

AR’

suxxx MACRO EXPANSION wxwx

IRREK

AR A AR TR AR A AR AR AR AR RN R RN R AR AR

;
3

Rk
&

AR AANARARARAANAA RN

SCNTIN SUBROUTINE (WITH DEFAULT ARGUMENTS
IF ARGUMENTS NOT GIVEN)

SRR AR AR AR AR RN R AR AR AR AR AR AR AR AR AR AR AARAAARAAARA AR AR AR A

.MACRO CNTRIN
NLIST
LIST ME
L1587

JSR
-

2832
2833

JSR

sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.

PC, SCNTIN
.WORD
$A

sCALL CONTROL IN ROUTINE
;SEL6 - (DUPLEX, MODE)

.ENDC

2836

.NLIST ME
.ENDM

sxxxx MACRO EXPANSION ##w+

PC, SCNTIN
WORD
O

2834

2837

AR AR

: CNTRIN MACRO = THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE

2829
Sg%?

2835

AR RRR AR AR AR

:CALL BASE IN ROUTINE
sMAINTENANCE MODE BITS TO SET IN BSEL1
;BASE TABLE ADDRESS
sMODE

NLIST ME
.ENDM

2823
2824
2825
2826
2827

AR A AR AR AR AR

PC, $BASEI
.WORD
$A
.WORD
$B
.WORD
$C

2812
2813
2814
2815
2816
2817

2822

SEQ 0039

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR=<11 MODE

.ENDC

2820
2821

PAGE 2-16

B
$A
PC, SBASEI]
.WORD
LPLU
.WORD
BASE
.WORD
DMR

2810

2811

2819

R AR

BASEIN MACRO = THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE
:
$BASE
IN SUBROUTINE (WITH DEFAULT ARGUMENTS
:
IF ARGUMENTS NOT GIVEN)

2800
2801
2802
2803
2804
2805
2806
2807
2808
2809

2818

09:36

sCALL CONTROL IN ROUTINE WITH DEFAULT

' 222

CZDMIAO DMR-11 FUNCTIONA%qT%ETS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-8
GLOBAL SUBROUTINES
MR

AR AR R

4
PAGE 2-17

: DMRIN MACRO =

SEQ 0040

222 22222222222

THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE

09:36

$DMRIN SUBROUT INE

LSttt ittt
2223222223222 2

.MACRO DMRIN
NLIST
LIST ME
.LIST

JIF
.§g§?§

-ENDC

JSR

F
e

$A,$8,$C

;a%%x MACRO EXPANSION wx#*

B
$A
DMRIN; ## MISSING ARGUMENTS-EXPANSION ABORT ##
PC, SDMRIN
WORD
$A
B
$8
WORD
O

.ENDC

:NO SEL4

;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)

)

LWORD

:NO SEL6

.s~oc

.WORD

;SEL6 VALUE (OR BITS TO SET IN BSEL6)

CALL DMR MODE INPUT ROUTINE
*INPUT COMMAND

;tttt

NLIST ME

RSttt

L2 2 8 1

2222232222223223222222222 283

3 SHUTDN MACRO = THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE
:

RARR AR

$HALT SUBROUTINE

AN AR

R AR

RRR AR AR AR KRR AR RARRARRRAR AR

.MACRO
SHUTDN
«NLIST
LIST ME
LLIST

JSR

PC, SHALT

s*xxx MACRO EXPANSION ##xs

;DMR HALT ROUTINE.

.NLIST ME
.ENDM

RRARR

CZDMIAO DMR=11 FUNCTIONAL TE}(S‘TS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1
13-MAR-80 09:
GLOBAL SUBROUTINES
AR

09:36

4
PAGE 2-18
SEQ 0041

Al ittt
222222222

BACCIR MACRO =

THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE
$8ACC SUBROUTINE (WITH DEFAULT ARGUMENTS

IF ARGUMENTS NOT GIVEN)

.MACRO

NLIST
LIST ME

LLIST
1"

JSR

BACCIR

$A.$8

suxxx MACRO EXPANSION #xwx

PC, $BACC
;CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI'BACCR
;BA/CC IN RECEIVE COMMAND
.WORD
RBUF
;:RECEIVE BUFFER
.WORD
RCOUNT
:RECEIVE CHARACTER COUNT

JSR

PC, $BACC
;CALL BA/CC IN ROUTINE
.WORD
RQI!BACCR
:BA/CC IN RECEIVE COMMAND
.WORD
$A
;BUFFER ADDRESS BITS 0-15

WORD

;BA BITS 16/17 AND CHAR.

TRERK

COUNT

NLIST ME
.ENDM
LA

:
:

Rt ett
322232223232232
t
222222

BACCIT MACRO =

THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE

$BACC SUBROUTINE (WITH DEFAULT ARGUMENTS
IF ARGUMENTS NOT GIVEN)

LI e

.MACRO

BACCIT

$A.$8

.NLIST
LIST ME
.LIST

suxxx MACRO EXPANSION #wxx

JSR

PC, $BACC

JSR

PC, $BACC
:CALL BA/CC IN ROUTINE
.WORD
RQI'!BACCT
:BA/CC IN TRANSMIT COMMAND
.WORD
$A
;BUFFER ADDRESS BITS 0-15
.WORD
$B
;BA BITS 16 & 17 AND CHAR. COUNT

.ENDC

.WORD
.WORD
.WORD

:CALL BA/CC IN ROUTINE WITH DEFAULTS

RQI!BACCT
:BA/CC IN TRANSMIT COMMAND
TBUF
s TRANSMIT BUFFER ADDRESS
TCOUNT
;TRANSMIT CHARACTER COUNT

.NLIST ME
.ENDM

LE
2 2]

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL SUBROUTINES
R
MR

R
R

A A A
R

09:36
A

4
PAGE 2-19

SEQ 0042

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

AR AR AR

AR TR

AR,

e ettt
I222222222222282;

SUBROUTINE SWAIT
FUNCTION =

TO WAIT FOR RDI TO BE SET IN SELO
OR RDO TO BE SET IN SELZ

CALLING FORMAT:

NESTING LEVEL

;

ENTRY CONDITIONS - FLAG =1

WAIT FOR RDO

ROUTINE NOT NESTED.

:
:

:
:
:

JSR

PC,

SWAIT

LWORD
FLAG
(MACRO CALL -- WAIT RDI)

=~ MAY BE CALLED FROM ANOTHER SUBROUTINE
=0
WAIT FOR RDI
WAIT1 = DELAY COUNTER (DETERMINED IN INIT.)
NESTPC=
ROUTINE NESTED WITHIN ANOTHER

EXIT CONDITIONS

SUBROUT
INE .

- EITHER RDI OR RDO BIT SET AS EXPECTED

OR (ERROR CONDITONS)
:

1. RDI OR RDO SET, BUT NOT THE EXPECTED ONE

:
:

THE USER WILL BE INFORMED.
HOWEVER,
THIS WILL NOT NECESSARILY BE AN ERROR.

2. BIT NOT SET BEFORE DELAY EXPIRED.

:
:
:

THIS WILL RESULT IN A HARD ERROR MESSAGE
AND THE CARRY BIT WILL BE SET.
THE CARRY
BIT SET FLAG THE ERROR CONDITION.

REGISTERS DESTROYED - RESTORED

;:ttiti*ltfiQ*ttttttt"it't*titfi'tii*tifi'fitfifiiti*fittt'ttt*titt*'tt\Qt*tfi
::ttfitfitttt*itttttt**tti'tttiti*t**.tt*tiiti.t.*'ttflt"*ttfitt'*ititt*'t

$WAIT

002354
002370

002366

017637
062716

2986
2987
2988

010326
010330

010046
010146
013701

000002

002366

=
T

002334

002310
v

4os.

005000

032777
001034
032777

CLR
TeT
BNE
MOV
SUB
Moy

ERRFLG
108
(SP) , SUBRPC
#4, SUBRPC

:CLEAR ERROR FLAG
*IS THIS NESTED IN ANOTHER SUBROUTINE?
:YES = USE THE SUBRPC ALREADY CALCULATED.
*SAVE PC AFTER THE CALL TO SWAIT.
*BACKUP TO THE PC OF THE ACTUAL CALL

a(SP) , TEMP

:GET THE FLAG FOR RDI OR RDO

NESTPC

ADD
MOV
MOV
MOV

#2,(SP)
RO,=(SP)
R1.=(SP)
WAIT1.R

:INC THE PC LEFT ON THE STACK TO POINT
*SAVE RO
*SAVE R1
:DELAY COUNTER DETERMINED BY BAUD RATE

CLR

;INNER LOOP COUNT OF DELAY COUNTER

000200

171670

C O BIT

#RDO,ASEL2

000200

171656

BIT

#RD1,QSELO

BNE

60$

*PAST THE FLAG ARGUMENT

*(DETERMINED IN INIT ROUTINE).

;1S THE RDO BIT SET IN SEL2?

*YES = EXIT BIT CHECK LOOP.

;1S THE RDI BIT SET IN SELO?

CZDMIAO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL SUBROUTINES

010354

001062

000000
013727
000000

BNE

70%

DEC
BNE
DELAY

RO
408
1

DEC
BNE
ERRDF

R1
308
1,EMG1,ERRG2

BREAK

000001

09:36

PAGE 2-20
;YES = EXIT

sCALL SUPERVISOR = ALLOW CONSOLE INTERRUPT.
;LOOP UNTIL RO RETURNS TO 0

;DELAY 100 MICROSECONDS

002116
177772

177756

002354
60%:

002334

0C0001

012746
012746
010600

000001

171532

000011
020136
015070
005237
000413

;TIME OUT ERROR

005737
001410

002334

012746
012746
010600

010641
000001

062706

000004

005737
001002

002370

104414

010550
010554

70%:

TRAP
.WORD
.WORD

CSERDF
1
EMG1

.WORD

TEMP

;WERE WE WAITING FOR THE RDO FLAG?
;YES - OK, EXIT.
21S THIS CONTROL OUT ERROR EXPECTED?
:IF YES, DON'T REPORT THE FOLLOWING ERRORS.
JRECEIVED AN RDO, WHEN WAITING FOR RDI

INC
BR
TST

BEQ

PRINTB

100%
#CNTRL ,ERROR
100%

#CNTRL ,@SEL2

100%
9,EMG9,ERRG2

:1S THIS A CONTROL OUT?
sNO NEED TO CHECK ERROR CODES.
sUNEXPECTED CONTROL OUT.

MOV
MOV
MOV
TRAP
ADD

TRAP

.WORD
.WORD
.WORD

ERRFLG
1008

:SET ERROR FLAG.

TEMP

;WERE WE WAITING FOR THE RDI FLAG?
JYES = OK, EXIT
SJRECEIVED AN RDI, WHEN WAITING FOR RDO

100%

#FMS2

TST

BNE

NESTPC

105%

#FMS1 ,-(SP)
#1,-(SP)
SP,RO
CSPNTB
#4,SP

CSERDF

9
EMGY
ERRGZ2

MOV
MOV
MOV

#FMS2 ,~(SP)
#1,-(SP)
SP,RO

ADD

#4,SP

TRAP

100%:

ERRGZ

TST

BEQ
ERRDF

002354

#1,(PC)+
0
LSDLY, (PC)+
0
-6(PC)
=4
=22(PC)
.=20

:SET ERROR FLAG
;BRANCH TO COMMON EXIT.

8IT

104455

MoV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

;BETWEEN LOOPS.
sREPEAT UNTIL MAXIMUM LOOP SATISFIED.

104414

062706
032777
001422

C$BRK

ERRFLG
100%

PRINTB #FMS1

010600
000001

TRAP

INC
BR
BNE
CMP
BEQ

002360

SEQ 0043

;WAS THIS NESTED IN ANOTHER SUBROUT INE?

:IF YES = LEAVE THE SUBROUTINE PC ALONE

CSPNTB

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES

3026
3025
3026
3027
3028
3029
3030
3031
ggg%

010556
010562
010562
010564
010566
010572
010574
010576
C10576

000207

3034

010600
010606
070614
010622
010630

047045
020117
044127
050130
043516

3035

010641
010646
010654
010662
010670
010676

045
044504
053440
054105
047111
022517

3036
3037
3038

005037
012601
012600
005737
001401
000261

002366

105%:

002354
110%:
040445
042523
047105
041505
051040
000
022516
051440
042510
042520
020107
000116

09:36

PAGE 2-21

CLR

SUBRP(

;CLEAR THE PC

MOV
MOV
TST
BEQ
SEC

(SP) + ,R1
(SP)+ ,RO
ERRFLG
1108

JRESTORE R1
;RESTORE RO
;WAS THERE AN ERROR (CARRY (LEARED ON TST)
sIF NOT, RETURN WITH CARRY (LEAR
;SET CARRY.

RETURN

042122
020124
042440
044524
044504

FMS1:

_ASCIZ

/%NYARDO SET WHEN EXPECTING RDIXN/

051101
052105
020116
052103
042122

FMS2:

.ASCIZ

/INXARDI SET WHEN EXPECTING RDOXN/

.EVEN

SEQ 0044

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES
w.o

09:36

PAGE 2=22

SEQ 0045

. 'Q't.t"Q..'Q.'fi.Qtfi""t..tt..'*'*'.tt'!....Q.t'tttt't.t..fi.'.".."

w.1

> ttt.tttt'.'i!ti!ttt"t't'QQ'Q'QQ..'.Q.Q*tt'.'t.tttti..'.tt"'..tt't'.

3042
3043
3045
3047
3048

:
:
:
:
:

SUBROUT INE $CLRQI
FUNCTION = TO CLEAR RQI AND WAIT FOR RDI TO BE CLEARED
CALLING FORMAT:
JSR
PC,
$CLROI
(MACRO CALL =-- WAIT RQI)

NESTING LEVEL

- MAY BE NESTED WITHIN ANOTHER SUBROUT INE

3052
3053
3054
3055
3057
3058
3059
3060
3061
3062
3063
306

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

:,ttt"tt*.fi'ifit.tt**'t*i""tt*fi*fififi'i'fi*'*fittit'i.'it.fi.iittt.tt"tfitt

3068
3069
3070
>071

010702
010702
010706
010714

3074
3075
3076
3077
3078

010726
010734
010734
010736
010740

3080
3081
3082
3083
308,

010744
010744
010746
010746
010754

(3)
3086
3087
3088

010756
010760
010762
010764

3085

(2)
(2)
(2)
(2)
(2)

(2)

010756

010764
010770
010772
010776
011000

011004

REGISTERS DESTROYED - RESTORED

"t'fifi*tttttttfit!ttttt't"ttittttti.tfifittt*'tiitt*tfitttt.t't.'t'ttt.t"

$CLRQI:

005037
042777
005737

002354
000040
002370

171316

162737

000004

002366

5072 010720 001005
3073 010722 011637 002366

3079

ENTRY CONDITIONS = WAIT2 = DELAY COUNTER (DETERMINED IN INIT. ROUTINE)
NESTPC= 1 = ROUTINE NESTED WITHIN ANOTHER
SUBROUT INE
=0 - ROUTINE NOT NESTED.
EXIT CONDITIONS = 1. NON ERROR, DMR READY TO RECEIVE THE NEXT COMMAND
2. ERROR IF RDI DOES NOT CLEAR BEFORE THE
DELAY ROUTINE EXPIRES. AN ERROR MESSAGE WILL
OCCUR. ALSO A CARRY BIT WILL BE SET TO FLAG
THE ERROR FOR THE USER.

010046
010146
013701

032777
001427

001375

171256

SUB

#4,SUBRPC

:BACKUP TO THE PC OF THE ACTUAL CALL.

MOV
MOV
MOV

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

:SAVE RO
:SAVE R1
:GET THE DELAY COUNTER (DETERMINED BY

208:

(LR

: INNER LOOP COUNT

BIT
BEQ

#RDI.ASELO
308

;1S THE RDI BIT CLEAR IN SELO?
IYES
= EXIT

DEC
BNE
DELAY

RO
208
1

BREAK

104422
005300
001371
012727
000000
013727
000000
005367

108:

128:

000200

ERRFLG
#RQI,aSELO
NESTAC

BNE
MOV

002312

005000

(LR
BIC
TST

000001
002116
177772

108
(SP) , SUBRPC

;CLEAR ERROR FLAG
:REQUEST INPUT CLEAR
IS THIS NESTED IN ANOTHER SUBROUTINE?

:YES - USE SUBRPC CALCULATED
:SAVE THE PC AFTER THE CALL TO SWAIT.

:BAUD RATE IN INIT ROUTINE)

:CALL SUPERVISOR- ALLOW CONSOLE INTERRUPT.
:LOOP UNTIL RO RETURNS TO 0
:DELAY 100 MICROSECONDS

TRAP

C$BRK

MOV
.WORD
MOV
.WORD
DEC

#1,(PO)+
0
LSDLY,(PC)+
0
=6(PC)

BNE

g
RR OCOO0O0O0O0O0O0O00O
nNO FREFXRVSS Ho
PGt

D
d

D e d
D D e

DEC
BNE
ERRDF

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

011062

177756

002354
002370

b
D

011046

09:36

R1
12%
1,EMG1,ERRG2

PAGE 2-23
D EC
BNE
JREPEAT UNTIL MAXIMUM LOOP SATISF IED.

;TIME OUT ERROR

SEQ 0046

=22(PC)
.=20

gSERDF

EMG1

d
e

3091

005367

001367

002366

—
—

(2)

[elelelelelelelelelolelelele)

CZDMIAO DMR=11 FUNCT IONAL TESTS MACY11 3 O0A(1052)
13-MAR-80
CZDMIA.P11
3-MAR -80 09:
GLOBAL SUBROUTINES

012601
012600
005737
001401
000261
000207

50%:

40%:

002354

INC
TST

CLR
MOV
TST

50%:

BEQ
SEC
RETURN

ERRFLG

;SET ERROR FLAG

40%
SUBRP(

NESTPC

;WAS THIS A NESTED ROUTINE?
;IF YES = LEAVE THE SUBRPC ALONE
sCLEAR THE PC

(SP) +,R1
(SP)+,RO
ERRFLG

sRESTORE RO

50%

ERRG2

;RESTORE R1

;WAS THERE AN ERROR? (CARRY CLEARED ON TST)
sIF NOT = RETURN WITH CARRY CLEAR
:SET CARRY.

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-B0 09:34
GLOBAL SUBROUTINES
Ql.n.l...o.n. .

<>1ND~UONAJ~U“U-*C>$;

SRR AR

R A

SRR

AR A
AR

A
A

PAGE 2-24

AR AR

SEQ 0047

AR AR R AR R

AR R AR

RRR AN RRARAN AR

AR AR AN AR RN

R AR

RRRRRRARRR

SUBROUTINE S$MSCLR
FUNCTION =

TO PERFORM A MASTER CLEAR FOR THE DMR11

CALLING FORMAT:

JSR
PC,
$MSCLR
(MACRO CALL == CLEAR)

NESTING LEVEL

3121
3122
3123
3124
3125
3126

3
:
:
H
:
:

ENTRY CONDITIONS - WAIT2 = DELAY COUNTER (DETERMINED BY INIT. ROUTINE)
CLRNO = EVEN OR ODD COUNT.
THE ACTUAL # IS NOT
SIGNIFICANT, HOWEVER IF BIT O IS SET
THEN THE MICROTEST IS SET ALONG WITH
THE MASTER CLEAR. THIS ROUTINE WILL INCR.
THE VALUE.
THIS WILL RESULT IN THE MICRO

3129
3130
3131
3132

H
:
:
:

EXIT CONDITIONS = 1. NO ERROR
= DMR11 MICROPROCESSOR INITIALIZED
2. IF RUN BIT NOT SET BEFORE DELAY TIMEOUT, ERROR
WILL RESULT.
ADDITONALLY THE ERROR MESSAGE WILL
RELAY THE RESULTS OF THE MICROTESTS IF THE RUN

NOTE :

—

)

D o

b DS
d

—

WWWWWWWWWWWW

3108

09:36

g}sg

%}%2

SUBTEST OR TEST SEGMENT)

TESTS BEING RUN ON EVERY OTHER MASTER CLEAR

3135

= MAY ONLY BE CALLED FROM IN-LINE CODE (TEST,

BIT IS NOT SET.

THERE IS A PATCH AREA TO ALLOW THESE DIAGNOSTICS

3136

%}zg

3141

:.tfitttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt'.t

ggg

3142

3143
3144
3145
3146

011064
011064
011070
011076

002366
000004

011100

g}gg

011102

105077

171136

3151

011106

000240

3152
3153

011110
011112

000240
000240

3154

011114

000240

3155
3156
3157
3158
3159
3160
3161

011116
011124
011126
011134
011136
011136

032737
001004
012777
000403

g;g%

011144

SHOULD BE FOR DEVELOPMENT USE ONLY.

012777

$MSCLR:
002366

AR AR RN AR NI AR AR

sSAVE PC AFTER THE CALL TO SWAIT.
sBACKUP TO THE PC OF THE ACTUAL CALL
;SAVE RO
;SAVE R1

CLRB

aBSEL3

;CLEAR BSEL3
JRRRANA AR AR AN AARRA AN RN RANRAR AR

171076

060000

171066

7%:

sxx PATCH AREA FOR 8206 IF NEEDED =+
*CLR @#SEL6

NOP

040000

ARRARAARARS

(SP) , SUBRPC
#4 ,SUBRPC
RO,=-(SP)
R1,-(SP)

NOP
NOP
002372

R AR AR AR RN RAN AN

MOV
SUB
MOV
MOV

NOP

000001

THIS

REGISTERS DESTROYED = RESTORED

SRR AR

011637
162737
010046
010146

g}zg

TO RUN ON A M8206 (INSTEAD OF M8207).

tttttttttfittttttttttttttttttttitttt

BIT
BNE
MOV
BR

#81T0,CLRNO
7%
#MCLR,aSELO
8%

MOV

#MCLR!MDIAG,QSELO ;ISSUE THE MASTER CLEAR AND TOGGLE

s1S THIS AN ODD MASTER CLEAR.
IF YES
- BR
;ISSUE A MASTER CLEAR.

JMICRO TEST SWITCH.

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES

3164
3165
3166
%}gg

011144
011146
011150
011152

000240
000240
000240
000240

3169
3170
7N
3172
3173
3174
3175
3176
3177
(3)
3178
3179
3180

011154
011160

005237
013701

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

3181
3182
3183
(4)
(5)
(5)
(5)

011164
011164
011166
011166
011174
011176
011176
011200
011202
011204
011204
011210
011212
011216
011220
011226
011226
011232

011234
011236
011240

011240
011242
011244
011246

002372
002312

INC

108:
100000

171036

20%:

104422
005300
001371
012727
000000
013727

005367
001375
005367
001367
005301

012601
012600
005037

3189

011260

000207

SEQ 0048
SRR AARRR R AR

AAARAAN AR AR AR

;MOV #RUN,QW#SELO
SRR

A AR A AN

AR AR AAR AR

AR AR RN

MOV

CLRNO
WAITZ2,R1

CLR

s INNER LOOP COUNT

BIT
BNE
BREAK

#RUN,QSELO
40%

;1S THE RUN BIT SET IN SELO?
SYES = EXIT
sCALL SUPERVISOR = ALLOW CONSOLE INTERRUPT.

sINCR _WORD (CHANGE ODD TO EVEN ETC.)
sGET THE # OF 100 MICRO SECOND DELAYS

;TO WAIT BEFORE EXITING THE ROUTINE.

TRAP

C$BRK

MOV

61,(PC)0

002116

MOV

IGSDLY.(PC)*

177772

DEC

-6£PC)

DEC

<22(PC)

000001

;LOOP UNTIL RO RETURNS TO 0

;DELAY 100 MICROSECONDS

177756
DEC

ERRDF

104455
1
020014
015204

011250
011250
011252
011254

4
PAGE 2-25

;%% PATCH AREA FOR 8206 IF NEEDED =+

DEC
BNE
DELAY

001352

3184
3185
3186
g}gg

NOP
NOP
NOP
NOP

005000
032777
001025

09:36

40%:

002366

R1
108
1,.EMG1 ,ERRG3

BNE

;REPEAT UNTIL MAX LOOP SATISFIED.

:REPORT RUN NOT SET

TRAP

WORD
.WORD
.WORD

MOV

CLR
RETURN

(SP)+,R1
(SP)+,RO
SUBRP(

sRESTORE R1
;RESTORE RO
;TIDY UP SUBRPC

.=20

CSERDF

1
EMGI
ERRG3

% e N..‘o‘n...-..'u.a..!c.c.o-.‘n.o..‘l‘-...-!..o.o‘.‘.'c..‘-!-.a.-. .

K
WA
KKK
WN-‘BOW\IOU‘J\WN-‘O S5 §2§§§§3338328

CZDMIAO DMR=11 FUNCTIONAL T%ZYS MACY11 30A(1052)
13-MAR-80
13-MAR-80 09
CZDMIA.P1
GLOBAL SUBROUTINES
AL

AR LA

LA A

—
W

abab

FUNCTION =

NESTING LEVEL

222222222222

JSR

PC,

$BASE|

.WORD A (SELO MAINTENANCE BITS)
.WORD B (SEL4 -~ ADDRESS)
.WORD C (SEL6 = MODE AND/OR RESUME)
(MACRO CALL == BASEIN OR BASEIN A,B.(C)

= MAY ONLY BE CALLED FROM IN-LINE CODE
SUBTEST OR TEST SEGMENT)

(TEST,

ENTRY CONDITIONS = A = MAINTENANCE BITS (I.E. LINE UNIT LOOP BACK)
B = BASE TABLE ADDRESS (SEL4)
C = MODE + RESUME (SEL6)

INFACE = 0
1

EXIT CONDITIONS = 1.

=~ NO INTERFACE WRITE REQUIRED

= WRITE INTERFACE (AX3-15)

IF NO ERROR - DMR11 BASE TABLE ASSIGNED

2. IF IN DMR MODE, AND INTERFACE WRITE REQUESTED
WITE REQUESTED AX3-15.

3. TIMEOUT ERRORS ARE DETECTED IN WAIT SUBROUTINES.

DMRFLG = =1

% 'I‘AJEDE REQUESTED (USED IN CONTROL IN

DMC MODE OR RESUME REQUESTED.

REGISTERS DESTROYED - RESTORED
e

$BASE!:

it
il

Il
I

I 2223322332232 222222212

I 322222222232

222332%122%3

011637
162737

002366
000004

002366

MOV
SuB

(SP) , SUBRPC
#4 ,SUBRPC

112777

000043
000001

170730
002370

MOVB
MOV

fiROI‘BASEI @BSELO ;ISSUE THE BASE IN COMMAND.
#1 ,NESTP
:FLAG THAT THE NEXT SUBROUTINE IS NESTED.

012737

004737
000000

010266

RRERY
OO

SEQ 0049

TO PERFORM A BASE IN COMMAND

CALLING FORMAT:

R
N

P
S
Qo
P
Qo Qo
Qo
Qe
i

W
~N

&
PAGE 2-26

s itt
T
Tl
t
2122222222222%,

WAIT

RD]

JSR

PC, SWAIT
WORD
O

— d b —d ) d c—d ) —d —d
d
WW

— WW

011274
011302

elelelelelelelelele BN ele

32
3233

SUBROUTINE $BASEI

R
MR

09:36

108

057677
062716
017677
062715
017677

170676
170670

170660

;

;SAVE PC AFTER THE CALL TO SWAIT.
sBACKUP TO THE PC OF THE ACTUAL CALL

:WAIT FOR RD]

;xxxn MACRO EXPANSION wwxs
sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDI
shkkk

L2
2 2

BNERROR 108

:IF NO ERROR, RDI SET = PROCEED

ADD
BR

#6, (SP)
308

;CORRECT STACK FOR ERROR EXIT
JEXIT

a(SP) ,@SELO

sSET ANY MAINTENANCE BITS

BIS

ADD
MOV
ADD

MOV

#2, (SP)
3(5P) ,aSEL4
#2,(SP)

a(5P) ,aSEL6

s INC. POINTER.
sSET UP BASE ADDRESS
:INC. POINTER AGAIN

sSET UP RESUME BIT AND THE HIGH 2 BITS

108

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
13-MAR-80
CZDMIA.P
13-MAR-80 09:34
GLOBAL SUBROUTINES

09:36

PAGE 2=27

SEQ 0050

;OF THE BASE TABLE ADDRESS

011360
011364

062716

000002

ADD
WAIT

#2, (SP)
RQI

011364

004737

010702

JSR

PC, SCLRQI

BERROR

308

:IF ERROR, EXIT

CMPB
BNE
BIT
BEQ

#122,3BSEL6
15%

;WAS THIS A DMR BASE IN?
:IF NOT, CLEAR DMR FLAG (DMC MODE)
;1S THIS A RESUME?
:IF NOT, PROCEED

011370

103445
122777
001004
032777
001403

000122

170640

010000

170630
15%:

002260

012737

177777
002262

002260

022737

000001

002360

011442
011444
011452
011454
011454
011462

001004
032777
001014

000200

170560

112777

000055

011462
011466

004737
000000

010266

170550

16%:

17%:

011504
011504

011510

011514

#RES ,@SEL6

16%

Ahk®

—_

002304

170550

004737
005037
005037
000207

010702

002370
002366

:
308

308

DMRFLG

308

;CLEAR DMR FLAG (NO DMR RUN ACKNOWLEDGE).
:SKIP = TO END

MoV
TST
BEQ
P

#-1,DMRFLG

;FLAG THAT DMR MODE WAS REQUESTED.

INFACE

308

#CNTRL ,ERROR

;1S AN _INTERFACE WRITE REQUIRED?
:1F NOT = SKIP TO END
:ARE WE EXPECTING AN ERROR (IN TEST THAT
;FORCES AN ERROR)

BNE
BIT
BNE

17%
#RDO,@SELO

MOvVB
WAIT

#RQI
! INTER,QBSELO ;ISSUE HRITE INTERFACE COMMAND.
RDI
;WAIT FOR RD]
sunkt MACRO EXPANSION #xxx
PC, SWAIT
:CALL WAIT ROUT INE
WORD
O
:FLAG THAT WE'RE WAITING FOR RDI

308

:IF NOT PROCEED
sIF EXPECTING AN ERROR - IS RDO SET

sIF YES = DON'T BOTHER CHANGING THE INTERFACE.

shhkk

3405
3777

BCS

CLR

JSR

011500
011500

:CLEAR RQI AND WAIT FOR IT TO BE CLEARED.
s hhkk

005037
000432

011470
011470
011472

sINC. POINTER AGAIN (SHOULD BE AT RETURN PC)
:CLEAR RQI AND WAIT FOR RDI TO CLEAR
;xxxx MACRO EXPANSION wex#

L2
2 3

BERROR

308

:IF ERROR, BR TO END.

MovB

AX3,9BSEL7

JWRITE AX3-15.

WAIT

RQI

JSR

PC, $CLRQI

BCS
INTERFACE SELECTED

:BY AX3 DETERMINED IN INIT. CODE.

sCLEAR RQI AND WAIT FOR RDI
sxxxx MACRO EXPANSION #w«w

RETURN

NESTPC
SUBRP(

TO CLEAR.

:CLEAR RQI AND WAIT FOR IT TO BE CLEARED
shRkk

CLR
CLR

30%

;CLEAR THE NEST FLAG

:TIDY UP SUBRPC
-

hhkk
&

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES
32?8
3279

09:36

L
PAGE 2-28

SEQ 0051

"ttttttittttt.ttt!'ttt""'ttttt'fitttttttltttttt'tttttttttt'tttttttttt
.'ttttttttttt!tfittttttttt'tt'ttttfittttitQtttttQttttt.ttttttt.tt'..tt.'.

3280

%2235

ggz

3285

33%&7;

3286

SUBROUTINE $CNTIN

FUNCTION =

TO PERFORM A CONTROL IN COMMAND

CALLING FORMAT:

JSR

PC,

LWORD

$CNTIN

A (SEL6 = MAINTENANCE MODE & HDX)

(MACRO CALL == CNTRIN

CNTRIN A)

3289

NESTING LEVEL

3292

ENTRY CONDITIONS = DMRFLG = =1

3296
3297
3298
3299
3300
3301
3302

:
:
:
:
:
:
:

EXIT CONDITIONS = 1. IF NO ERROR - DMR11 CONTROL IN PERFORMED
2. TIMEOUTS Repomeo IN WAIT SUBROUTINES
3. IF THIS ISA DMR MODE START UP CONTROL IN.
THIS ROUTINE WILL WAIT FOR A CONTROL
OUT = DMR RUN. IF THIS CONTROL OUT IS
NOT RECEIVED, THIS WILL RESULT IN AN ERROR
MESSAGE AND A REMINDER TO CHECK THE BAUD RATE,

3305
3306

Z
:

3309
3310

:.MRl st
22M i 2 s

323239

ggz

33382

3311

011516

3314

011530

3316

011544

3315
1)

(1)

011544

3317
(2)

011552
011552

3320

011562

3323
332,

011574
011602

112777

000041

011536 012737 000001
011550

000002

3321 011562 017677
3322 011570 062716

000000
000002

§33§2

8”2%

002260

3327

011610

$CNTIN:

170474

032777
001402

005037

000400

;SAVE PC FROM WHERE THIS SUBR. WAS CALLED.
BACKUP TO PC OF ACTUAL CALL

MOV

#1 NESTPC

:FLAG THAT THE NEXT SUBROUTINE IS NESTED.

WAIT

1$:

170436

WROI+CNTRL,IBSELD :SET UP CONTROL IN COMMAND
RDI

PC, SWAIT
WORD

*WAIT FOR SETTING OF RDI

sxxxx MACRO EXPANSION w#ws

*CALL WAIT ROUTINE

:FLAG THAT WE'RE WAITING FOR RDI
:ltfit

1 3

331

BNERROR 18

*IF NO ERROR - PROCEED

ADD
BR

#2,(SP)
208

:CORRECT RETURN ADDRESS
*ERROR = EXIT

MOV
ADD

a(SP) ,aSEL6
#2, (SP)

:SET MODE DESIRED
*INC. RETURN PC LEFT ON STACK.

CLR

DMRFLG

:CLEAR FLAG - NO RUN MODE CONTROL OUT.

WAIT

RQI

;:CLEAR RQI AND WAIT FOR RDI TO CLEAR

BIT
BEQ

I I I I 22323323233 23233 233 223232322222223222227
sttt
I I i3 322323222233 232323232222222222233

(SP),SUBRPC
#4,SUBRPC

JSR

170450

MOV
SUB

MOVE

002370

000000

103003

EXPECT CONTROL OUT IF IN DMR MODE

NO CONTROL OUT, IN DMC MODE OR RESUME.

REGISTERS DESTROYED

004737 010266

3318 011554 062716
3319 011560 000463

INTERFACE AND TURNAROUND (PROBABLE REASON).

3312 011516 011637 002366
3313 011522 162737 000004 002366

SUBTEST OR TEST SEGMENT)

%3385

= MAY ONLY BE CALLED FROM IN-LINE CODE (TEST,

#MAINT,SEL6
58

BCC

-WAS MAINTENANCE MODE REQUESTED?
:IF NOT, LEAVE DMRFLG AS IS.

sxvex MACRO EXPANSION *wwe

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL SUBROUTINES

011610

004737

010702

011614

005737
001443
005037

002260

004737
000001

JSR

09:36

&
PAGE 2-29
SEQ 0052

PC, SCLRQI

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.
PRARR

;WAS DMR MODE REQUESTED ON BASE IN?
;BR_IF NOT (DMC MODE)
sCLEAR DMR RUN MODE FLAG
sEXPECT RDO TO BE SET

002260
010266

PC, SWAIT

WORD

sxxnx MACRO EXPANSION www«

sCALL WAIT ROUTINE
sFLAG THAT WE'RE WAITING FOR RDO
IRARR

103011

012746
012746
0600

011742
000001

032777
001005

000001

170346

7%:

:IF NO ERROR = PROCEED

#FMS3

sPRINT RUN ACKNOWLEDGE NOT RECEIVED.

15%
BIT

ERRDF

104455
000010
020072
015070

000040

170330

10%:

#CNTRL ,@SEL2

108
8.EMG8 ,ERRG2

BIT
BNE

#DMRRUN ,@SEL6

15%
9.EMG9,ERRG2

000011
020136
015070

011740

011742
011750

3353

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

ADD

#4 ,SP

WORD
.WORD
.WORD

;WAS THE DMR RUN MODE BIT SET?
:BR IF OK.
;WRONG CONTROL OUT RECEIVED.

TRAP

WORD
.WORD
.WORD

170304

005037
005037
000207
020122
041501

15%:

20%:

FMS3:

BIC

#RDO!CMD ,aSEL2

;CLEAR RDO AND THE COMMAND BITS

CLR
CLR
RETURN

NESTPC
SUBRPC

;CLEAR THE NEST FLAG
:CLEAR PC

LASCII

/%ADMR RUN ACKNOWLEDGMENT NOT RECEIVEDXN/

.ASCIZ

/%A(CHECK INTERFACE, BAUD AND TURNAROUND)
%N/

MoV
MoV
MOV

;DID WE RECEIVE A CONTROL OUT?
:IF YES = PROCEED.
;EXPECTED CONTROL OUT NOT RECEIVED.

15%

ERRDF

104455

042777

oce

TRAP

000410
032777
0C1004

KRR

TRAP

000004
011660

*RAR

CSPNTB

CSERDF

8
EMG8
ERRGZ2

CSERDF

9
EMG9
ERRGZ2

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052) 13-MAR-80
GLOBAL SUBROUTINES
CZDMIA.P11
13-MAR-80 09:34
012046
012054
012062

052524
052517
000116

047122
042116

09:36

5
PAGE 2-30

SEQ 0053

051101
022451
.EVEN

) .o.a‘ol..-.o!n...o... .

2223232223333

3333222332208 230 3223233322222

20ttt

sl d)

ttt'ttit't.ttQttttttttt'i'.fitQtfittttttfitk"*it*t'tttttttttttt.ttttttt

SUBROUTINE $DMRIN
TO PERFORM A DMR MODE INPUT COMMAND

FUNCTION

CALLING FORMAT:

JSR
.WORD
.WORD
.WORD

PC,
$DMRIN
COMMAND
B
(

(MACRO CALL == DMRIN A,B.C)

NESTING LEVEL

MAY BE CALLED FROM IN-LINE CODE (TEST,

SUBTEST OR TEST SEGMENT) OR FROM THE $LOOP

SUBROUT INE

ENTRY CONDITIONS

R I I IR I I

B = SEL4
C = SEL6

FOR MODEM WRITE

B = BITS TO CLEAR IN SEL6
C = BITS TO SET IN SEL6

R I

NESTPC = 1 = SUBROUTINE NESTED WITHIN ANOTHER SUB.
0 - SUBROUTINE NOT NESTED.

TR R

EXIT CONDITIONS

IF NO ERROR = DMR1' MODE INPUT COMMAND PERFORMED.

REGISTERS DESTROYED

TR R

MUST BE IN DMR MODE
FOR ALL COMMANDS EXCEPT WRITE MODEM

it*t'tttttfitttttttttt'ttttttttfitfittttttttfifi.tfifitttfiittttttttitfit'ti*i

':*fifit*ttttttttitttttttttti'tttfit.t*.ttittttti'ttt'ttt‘tttttttfiQfittitit

$DMRIN:

012104
12

162737
117637
117677

002366
000000

002336
170112
170100

012737

002370

1%:

TST

BNE
MOV
suB

NESTPC

;1S THIS SLBRWTINE NESTED?

#4 ,SUBRP(

:BACKUP TO PC OF ACTUAL CALL

1%
(SP) , SUBRPC

@(SP) ,SAVE

a(5P),aBSELO

#2, (SP)

#RQ1,ASELO

NESTPC,-(SP)
#1 ,NESTPC

:IF YES - DON'T CHANGE SUBRPC.
:SAVE PC FROM WHERE THIS SUBR. WAS CALLED.

;SAVE DMR INPUT COMMAND
;SET UP DMR INPUT COMMAND.
s INC RETURN PC LEFT ON STACK.
sREQUEST INPUT.
sSAVE THE CURRENT NEST FLAG.
JUSE THE FLAG TO SHOW THE WAIT
sROUTINE IS NESTED.

S
~

—

012144

;WAIT FOR SETTING OF RDI

saxxx MACRO EXPANSION w#wx

012637

002370

MOV

(SP)+,NESTPC

;RESTORE THE ORIGINAL NEST FLAG.
:IF NO ERROR, OK = PROCEED.
acc

ADD

#4,

sUPDATE RETURN ADDRESS.
sERROR EXIT.

BNERROR 5§

122737
001413

sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDI
bl

002336

017677

170032

062716
017677

170022

MOV

170006

10§

(SP)

CMPB #WMODEM, SAVE

BEQ
MOV

6%:

6$
a(SP) ,aSEL4

ADD

#2,(SP)

ADD
BR

#2,(SP)
7%

BIC

167774

7%:

010702

a(SP) ,aSEL6

ADD

#2, (SP)

ADD

L (SP)

BIS

SEQ 0054

PC, SWAIT
LWORD
0

012250

PIIIIIS
S JN
. RRYRRRRRRRRRERRR
DA U ANV NWERRR N 145 FEARUKLEY

PAGE 2-31

JSR

062716
000412

012254
012254
012260
012262
012266
012266
012272

RDI

010266

103003

012250

WAIT

09:36

004737
000000

062716
000433

KRR Ry

KRR NS o 8833::3

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR=£)
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL SUBROUTINES

a(sp> LASEL6

WAIT

RQI

JSR

PC, $CLRQI

L a2

;1S THIS A MODEM WRITE?
:IF YES = SET/CLEAR BITS.

:PASS VALUE FOR SEL4

002370
002366
002336

15%:

;CLEAR MODEM BITS
sINC. RETURN PC LEFT ON STACK
:SET MODEM BITS
sINC. RETURN PC LEFT ON STACK.
;CLEAR RQI AND WAIT FOR RDI TO CLEAR
sxxxx MACRO EXPANSION #xxx
;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

khkw

NESTPC

15%
SUBRP(

;BR IF YES
JCLEAR PC

CLR

SAVE

sRESTORE TEMP VALUE

RE TURN

IF ANY,

sDEPENDS ON THE DMR COMMAND)
sINC. RETURN PC LEFT ON STACK.

BNE
CLR

(VALUE,

;WAS THIS ROUTINE NESTED?

Rt s
Il
t
T332 22222222322222222222;

MRt eI
1332222222222 22232222222

SUBROUTINE $BACC

FUNCTION CALLING FORMAT:

:DEPENDS ON THE DMR COMMAND}
sINC. RETURN PC LEFT ON STACK.
:PASS VALUE FOR SEL6 (VALUE, IF ANY,

shkkR

10%:

TO PERFORM A BUFFER ADDRESS/CHARACTER

COUNT IN COMMAND
JSR

.WORD SEL6

"WORD
.WORD

SEL4
SEL6

$BACC

:BA/CC IN COMMAND

*BUFFER ADDRESS
‘BA BITS 16 & 17 AND

- CHARACTER CQ.NT

(MACRO CALL =-- BACCIT
OR (MACRO CALL =-- BACCIR

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
13-MAR-80 09:34
CZDMIA.PI
GLOBAL SUBROUTINES

09:36

NESTING LEVEL

5
PAGE 2-32

SEQ 0055

= MAY ONLY BE CALLED FROM IN-LINE CODE (TEST,
SUBTEST OR TEST SEGMENT)

ENTRY CONDITIONS EXIT CONDITIONS = IF NO ERROR - DMR11 BA/CC COMMAND IN PERFORMED
REGISTERS DESTROYED - NOT AFFECTED
AR A

012274

012326

012326
012332

011637
162737
117677
062716
012737
004737
000000

002366

s ett
I
2232222222
t
2222222232223

s ett
Il
2212222222222
t
22222223

(SP)
, SUBRPC

002366

a§§P),aBSELO

167716

000001

002370

010266

sSET UP BA/CC COMMAND IN (TRANSMIT OR RECEIVE)
s INC POINTER ON STACK
;FLAG THAT THE NEXT SUBROUTINE IS NESTED.
;WAIT FOR SETTING OF RDI

sxxxx MACRO EXPANSION #wx

PC, SWAIT

.WORD

sSAVE PC FROM WHERE THIS SUBR. WAS CALLED.
sBACKUP TO PC OF ACTUAL CALL

sCALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDI

s Rkkk

103003

062716
000414

000004

017677
062716
017677

000000
000002
000000

012364
012370

062716

000002

012370

004737

010702

012356

012374
012374
012400
012404

005037
005037
000207

002370
002366

167664

108

;IF NO ERROR = PROCEED

#4,(SP)

s CORRECT STACK FOR ERROR EXIT.

a(SP) ,aSEL4

sSET BUFFER ADDRESS
s INC POINTER ON STACK
;SET UP BUFFER COUNT AND BUFFER ADDRESS
;BITS 16 £ 17
s INC POINTER ON STACK
;CLEAR RQI AND WAIT FOR RDI TO CLEAR

20%

10%:

a(SP) ,aSEL6

20%:

WAIT

#2,(SP)
RQI

JSR

PC, $CLRQI

CLR
RETURN

BCC

108

EXIT

#2, (SP)

167654

L2
2 3

sxxxx MACRO EXPANSION *wxxx

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.
shkkkk

NESTPC
SUBRPC

L2
3 A

;CLEAR THE NEST FLAG
s CLEAR PC

eIt 22232223222222222222222122)
it

1313217222222

2222222222)

SUBROUTINE $ERROR
FUNCTION :
CALLING FORMAT

TO CHECK THE FIRST 8. BASE
FOR NON-ZERO VALUES.

JSR

PC,

$ERROR

TABLE ERROR COUNTS

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES

09:36

PAGE 2-33

SEQ 0056

gggz

NESTING LEVEL

3505

ENTRY CONDITIONS = SHOULD BE DONE AFTER PROPER SHUTDOWN

3509

EXIT CONDITIONS = IF ANY NON-ZERO VALUE FOUND IN THE BASE TABLE A

3506
gggg

:
.

- CAN BE NESTED WITHIN ANOTHER ROUTINE
NESTPC = 1 - SUBROUTINE NESTED WITHIN ANOTHER SUB.
= 0 = SUBROUTINE NOT NESTED.

3510
3511
3512

:
:
:

3515

:.ttttttttttttttwttttt'ttttttttttttfittttttttttttttttttttttttt'tt"ttt.t

%g}z

3516
3517
3518
3519
3520
3521
3522
3523
3526
3525
3526
3527
3528
35¢9
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
(4)
(5)
(5)
(5)

3547
3548
3549
3550
3551
3552
3553
3554

012406
012406
012412
012414
012420

005737
001005
011637
162737

002366
000004

012426
012426
012430
012432
012436

010046
010146
012700
012701

002633
000006

012442
012442
012444
012446
012450
012452
012454
012456
012464
012466
012470
012472
012474
012476
012500

012502
012502

012502
012504
012506
012510

012512
012512
012516
012520
012524
012524
012526
012530

105720
001016
005301
001374
122010
001012
022737
001403
105710
001004
000407
122710
002004

002370

000022

000001

104457
000005
012532
015464

005737
001002
005037
012601
012600
000207

002370
002366

002366

002114

SOFT ERROR IS DECLARED.

REGISTERS DESTROYED - RESTORED

SRR
R AR AR AR R A AR R AR AR AR AR AR AR AR AR AR AR A AR RRRAR AR AARA AR AR AR
$ERROR:
TST
NESTPC
;1S THIS ROUTINE NESTED?
BNE
108
;BR IF YES (PC ALREADY SAVED)
MOV
(SP) ,SUBRP(
sSAVE PC AFTER THE CALL TO SWAIT.
SuB
#4 ,SUBRPC
sBACKUP TO THE PC OF THE ACTUAL CALL
sTHE INSTRUCTION AFTER THE CALL.
10%:
MOV
RO,-(SP)
;SAVE RO
MOV
R1,-(SP)
;SAVE R1
MOV
#BASE+3,R0
;POINTER TO ACTUAL BASE TABLE COUNTS.
MOV
#6. .R1
sCHECK THE 6 NAK BYTES IN THE TABLE
20%:
TSTB
(RO) +
;IS THE NAK COUNT NON-ZERO?
BNE
308
sIF YES = REPORT SOFT ERROR
DEC
R1
sLOOP UNTIL DONE.
BNE
208
CMPB
(RO)+, (RO)
;ARE THE REPS THE SAME?
BNE
308
;IF NOT = REPORT ERROR.
CMP
#18. ,LSTEST
.IS THIS TEST 18 (LLARGE BUFFER TEST)
BEQ
25%
;IF YES = ALLOW 1 REP
TSTB
(RO)
;IF NOT TEST 18 = REPORT IF NON ZERO.
BNE
30%
BR
408
;IF ZERO - OK
25%:
_
CMPB
#1,(R0O)
;IS THE REP 0 OR 1?
BGE
408
sIF YES - OK (WE ALLOW 1 REP BECAUSE
sIN TEST 18 AT LOW BAUD RATES 1 REP IS
EXPECTED )
308:
ERRSOFT 5,EMS3,ERRG4
JREPORT SOFT ERROR
TRAP
CSERSOF T

40%:

45%:

WORD
.WORD
.WORD

TST
BNE
CLR

NESTPC
45%
SUBRP(

;1S THE ROUTINE NESTED?
BR IF YES
sCLEAR SAVED PC

MOV
MoV
RETURN

(SP) + ,R1
(SP)+,RO
:

JRESTORE R1
;RESTORE RO

5
EMS3
ERRG4

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES

3555
3556

3557
3558
3559

012532
012540
012546
012554

0571105
044 40
042523
0425
01256

047522
020116
052040
000

051522
040502
041101

EMS3:

.ASCIZ

09:36

5
PAGE 2-34

SEQ 0057

/ERRORS IN BASE TABLE/

.EVEN

327

3562
3563

. ttttttttttttwttttttttttttttttttttttttt'ttttttttttttttttt.ttttttt'tttt

3564

SUBROUTINE SHALT

gggg

FUNCTION = TO SHUTDOWN THE DMR11

gg%

ENTRY CONDITIONS - NONE

gg;}

;

EXIT CONDITIONS

= DMR SHUTDOWN

3573

REGISTERS

- NO EFFECT

3576

:LS RS sl

' tttttttttt*ttttktttttttttttttttttttttttttfitQtttt.ttitttttttttt'tt'i't

%ggg

3577

3578

3579
3580
3581
3582
3583
3584

012560

012560
012564

011637
162737

112777
105077
012737

1)
(1)
g;

012572
012600
012604
012612
012612
012616

004737
000000

3585

012620

(2)

3586

012620

012622

1)
m

012622

3587

012626

(2)

3588

012626

012630

)
(1)
f};

012630
012634

3589

012636

(2)

359C
3591
3592
(4)

012636

012640
012646
012650
012650

002366
000004

000042
167430
000001

$HALT:

002366
167432
2370

010266

103430

004737

010702

MOV
SuB

MOVB
CLRB
MOV
WAJT

23223233732322322232322832323223222222222212111

eI T e

(SP) , SUBRPC

#4 , SUBRPC
#RQI'HLT,aSELO
@SEL?2
#1 ,NESTPC
RDI

I I

2223222 22222222222113

;SAVE THE PC WHEN THE SUBROUTINE WAS CALLED.

;BACK UP TO THE ADDRESS OF THE ACTUAL CALL.
;ISSUE A HALT
;CLEAR ANY OUTPUT PENDING
JFLAG THAT THE NEXT SUBROUTINE IS NESTED.
:WAIT FOR RDI

JSR

PC, SWAIT
WORD
O

sxxxx MACRO EXPANSION #*xxw
sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDI

BERROR

20%

;IF ERROR, EXIT

WAIT

RQI

;CLEAR RQI AND WAIT FOR RDI TO CLEAR

JSR

PC, $CLRQI

sexxx MACRO EXPANSION wxxw
;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

BERROR

20%

;IF ERROR, EXIT

WAIT

RDO

:WAIT FOR RDO

JSR

PC, SWAIT
LWORD
1

2.2 421

‘AN

103425

004737
000001

010266

103421

104455

000001

167366

L3
2 81

1 3

BCS

20%

2 3 1

BCS

20%

sxxxx MACRO EXPANSION #wxs
;CALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO
‘AN

032777
001005

L 3 2 31

BERROR

20%

;IF ERROR, EXIT

BIT
BNE
ERRDF

#CNTRL ,@SEL2
108
4 ,EMS4 ,ERRG2

;1S THIS A CONTROL QUT?
:IF YES - PROCEED
:ERROR

BCS

20%

TRAP

CSERDF

CZDMIAO DMR=11 FUNCTIONAL Tg‘TS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:
GLOBAL SUBROUTINES
(5)
(5)
(5)

012652
012654
012656

3504
3595

012662
012662

3597

012672

000004
012722
015070

3593 012660 000410
032777

3596 012670 001004

001000

167350

(4)
(5)
(5)
(5)
3508
3599
3600
3601
3602

012672
012674
012676
012700
012702
012702
012710
012714
012720

042777
005037
005037
000207

000207
002370
002366

167324

3604

012722
012730
012736

044123
047127
051117

052125
042440
000

047504
051122

3605

3606
3607
3608

104455
000004
012722
015070

012742

108:

EMS4:

PAGE 2-35
JWORD
.WORD
.WORD

208

BIT

AHALTC,@SEL6

;IS THE DMR MALTED?

ERRDF

4 ,EMS4,ERRG2

-ERROR
= NOT EXPECTED CONTROL OUT.

208

—

‘IF YES = EXIT

BIC
CLR
€LR
RETURN

#RDO!CMD,@SEL2
NESTPC
SUBRP(

.ASCIZ

/SHUTDOWN ERROR/

:
:

4
EMS4

WORD

ERRG2

SUBROUT INE SROMO
FUNCTION = TO READ THE CONTENTS OF THE ROM

ENTRY CONDITIONS - ROMADR =

ROM ADDRESS

318

EXIT CONDITIONS

CONTENTS OF ROM ADDRESS

3620
3621
3622

:
REGISTERS
:
:'.ittt.t..'..t.

“23
“24

012742
012742
012746
012756

= BSEL6

- NO EFFECI

t.iitttt""ttttfi!'Q't.fitfi.tfi.t..fitt'fi..t.ttl"fi.'t".t.
..tt'l‘!'ttl.fitttfififi'..'Q"."fifi."*flfii'.'t.!ti"ttfififil‘t.t't"fifittttt'it

005077
113777
052777

012762

012777

012770
012776
013004
013012
013020

052777

042777
042737
153737
052777

167264
002405
001000

121053

000400
001400
000377
002404
001000

3638 013026 013777 013060

3639

.WORD
.WORD

;CLEAR RDO AND COMMAND BITS.
*CLEAR THE NEST FLAG
*CLEAR THE PC.

316

3633
3634,
3635
3636
3637

CSERDF

..'tt'tt.ttttQ.tit'l’t“"it'tt!tfi'itfi.."'..Q'ttt*'.ltt'.ttttt'.itttt'ti

%14

3609

TRAP

'.t""tt.it!.'!*.ttt"iitfi't"ttt'.'tttt't'..tt'.'.Q'tt'.""t*".tttt

3611
3612

3630
3631
3632

4
EMS&
ERRG2

.EVEN

%10

3625
3626
3627
3628

SEQ 0058

BR
BNE

208:

09:36

$ROMO:

167260
167250

167250

167234
167226
013060
013060
167204

167204

CLR
MOVB
BIS

@SELO
ROMADR+1,@SEL2
MROMI,@SELO

INIT
-SET HIGH BYTE OF ROM ADDRESS
:ENABLE SEL6 TO BE USED AS MAINTENANCE REG.

MOV

#121053.3SEL6

BIS
BIC
BIC
BISB
BIS

ASTUP.@SELO _ :CLOCK THE INSTRUCTION
#ROMI'STUP,@SELO” ;CLEAR
#377,1%
;ELEAR ADDRESS FIELD OF BRANCH INST.
ROMASR,1$
:ADD ADDRESS OF BRANCH.
WROMi,aSELO
-ENABLE SEL6

MOV

18,3SEL6

:SET UP MICROINSTRUCTION TO

:MOVE IBUS* 2 TO OBUS* 13
:(0BUS* 13 IS A SHADOW REGISTER FOR
‘BITS 8=11 OF THE PC)

:SET UP MICROINSTRUCTION TO

:BRANCH IMMEDIATELY TO PC. BRANCH IS

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.PT
13-MAR-80 09:34
GLOBAL SUBROUTINES

09:36

5
PAGE 2-36

SEQ 0059

sNECESSARY TO TRANSFER PC SHADOW REG TO PC
CLOCK THE INSTRUCTION
PC = ROM ADDRESS

013034

052777

000400

167170

BIS

#STUP ,aSELO

013042
013050

052777

042777

001400
002000

167162
167154

BIC
BIS

#ROMO,aSELO

;CLOCK IN A MAINTENANCE ROM OUT

013056

000207

013060

100000

sMICRO INSTRUCTION OPCODE FOR IMMEDIATE
;BRANCH (ROM ADDRESS IS ADDED INTO BITS 0-7)

#ROM]! STUP SSELO CLEAR

:ROM CONTENTS ARE NOW IN SEL6.

RE TURN

1%:

.WORD

AR A

AR AR et
12222223222222

ARt

ettt eIl
2222222222 222222;

SUBROUTINE $LOOP
FUNCTION = TO ISSUE AN EXTENDED CONTROL

IN TO SET

UP THE MODEM LOOPBACK DESIRED BY THE USER.

ENTRY CONDITICNS =

EXIT CONDITIONS

REGISTERS

Rl
AR

‘LOG’

002276

002366

000010

D
e —d
—d
—_— e

——d —d
S
) —d
—
—

WWWWWWWW

elelelelelelels]

TST

DMCMDE

TST

WMAINT

MOV

SUB
CMP
BNE

013166
013170

MoV
MOV
108:

012737
012737

000010
000004

013166
013170

012737

000001

002370

000005
000000
000000

BEQ

002366
002254

20%:

101%:

I I21223332322232222222222222¢

30%

308

(SP) ,SUBRPC

#4 ,SUBRPC
#6,DMTURN
108

#MAINTZ2,100%8
#MAINTT,1018

20%

;1S THE DMR IN DMC MODE?
:IF SO, EXIT (CAN'T DO DMR MODE INPUT)
;DO WE NEED TO WRITE THE MAINTENANCE BITS?
:IF NOT = EXIT.
;SAVE THE PC AFTER THE CALL TO $LOOP
;BACKUP TO THE PC OF THE ACTUAL CALL.
;1S LOCAL MODEM LOOPBACK DESIRED?
:IF NOT - PROCEED.
;ENSURE REMUTE LOOPBACK IS CLEAR.
sSET MAINT BIT FOR LOCAL LOOPBACK

MOV

#MAINT1,100%

#MMAINT2,101%

sIN ALL OTHER LOOPBACK CONF IGURATIONS
sSET MAINTENANCE 2 (CONFIG. TYPE 1,3,7)
sENSURE REMOTE LOOPBACK IS CLEAR.
:SET MAINT BIT FOR REMOTE LOOPBACK

MOV

#1 ,NESTPC

;FLAG THAT THE NEXT SUBROUTINE

MOV
CALL

100% :

NOT DESTROYED

s itt
1122122322222 23222233222222
t
212¢%)

BNE

002306

WMAINT = 0 - DON'T WRITE MAINT. BITS
WMAINT = 1 - GET BITS
(WMAINT SET IN INIT CODE)
DMCMDE = 0 - DMR MODE
DMTURN = TURN AROUND CONNECTOR

$DMRIN
.WORD

WORD
.WORD

WMODEM

O
O

:DMR _MODE INPUT COMMAND

JWRITE MODEM COMMAND

IS NESTED.

;BITS TO CLEAR IN MODEM REGISTER
;BITS TO SET IN MODEM REGISTER

CZDMIAO DMR-11 FUNCTIONAqungS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-8
GLOBAL SUBROUTINES
369
3697
3698
3699

013172
013172
013176
013202

005037
005037
000207

30%:

002370
002366

CLR

RE TURN

09:36

NESTPC

PAGE 2-37

SEQ 0060

;CLEAR THE NEST FLAG

SUBRP(

*CLEAR PC.

' tQ't'tttt'ltttttttttt*'tfittktt'itflti'fitttti.fit.t!tt.'ttttt"it'.it.t'
' ttt'fit*"fi'itt*'tt?ttt"'tfifii'**.'.fi'fii**.fifi..lQt'fii*.*it'ii't.tt"'.

SUBROUTINE $BUFFS

FUNCTION = TO DETERMINE BUFFERS FOR TEST 15 = 19.

SUBROUT
INE WILL USE ONE OF THE FOLLOWING

THREE BUFFER AREAS:

:
:
:

1. IF MEMORY MANAGED, 32K - 48K
2. FREE MEMORY, IF MORE THAN 4K BYTES.
3. IF 2 OR 3 NOT POSSIBLE, DEFAULT 4K

DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

CALL

- JSR PC,$BUFFS

NESTING LEVEL

= CALLED ONLY BY TESTS

;

ENTRY CONDITIONS - BUFNUM = # OF RCV & XMIT BUFFERS

EXIT CONDITIONS - MMANAG = 1

:
:
:
:

MMANAG = 0
RCVBUF
=
RCVBUF+2 =
RCVBUF+4
=

16=20

MEMORY MANAGEMENT USED

MEMORY MANAGEMENT NOT USED
ADDRESS OF RECEIVE BUFFER (VIRTUAL)
CHARACTER COUNT
ADDRESS OF NEXT RECEIVE BUFFER

(UP TO 64 ADDRESSES AND COUNTS)

:
:

THIS

XMTBUF
=
ADDRESS OF TRANSMIT BUFFER (VIRTUAL)
(UP TO 64 ADDRESSES AND COUNTS)

REGISTERS

- NOT DESTROYED

:..ttttttt'tttttttttttttttitttttifitfi*t*tltiittttfitiifitttttitttt.t't'ttt'
"ttttt*tQttttttttttttttitt*ttt.iil'i'ikttfifiifittt'ii.ti.fittti.filt'ttt"'

3739
3740
3741

013204
013210
013216

011637
162737
005037

002366
000004
002340

(7)

013222

012746

000340
023512
000004
000003

3743
3744

013250
013254

005737
005737

000010

177572
002340

$BUFFS

002366

MOV

(SP) , SUBRPC

;SAVE PC AFTER THE CALL TO SBUFFS

gLug

g&gwapc

SETVEC

#4,MNOXMEM,#PRI07 :SET UP TRAP 4 (WILL SET FLAG FOR NXM)

*BACKUP TO THE PC OF THE CALL.

MOV
MOV
MOV
MOV

TRAP

ST
ST

#177572
FLAG

:ADDRESS MEMORY MANAGEMENT REG
*IS THE FLAG STILL CLEARED?

sNOTE: THE FLAG WILL BE SET BY THE TRAP

#PR107,-(SP)
ANOXMEM
, - (SP)
#4,~(SP)
#3.-(SP)

CSSVEC
#10,SP

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL SUBROUTINES

3746

3747
%;28

013260
013262

001143
023727

002120

3750
3751
3752

013270
013272
(13300

002537
012737

000001

(3)
(3)

3753
3754
3755
gggg

013300
013304

012700
104441

000340

013306
8]&%}‘2’

012701
012700

172300
000010
077406

3758
3759
3760
3761
3762
3763

013316

012721

013322
013324
013326
013332

005300
001374
012701
005011

3765

013342

012761

3767
3768
3769
%77;?

013356
013
013372
013400

3764

3766

013334

013350

012761

:IF NOT, USE NON-MEMORY MANAG. BUFFERS.
;FLAG THAT MEMORY MANAGEMENT IS USED
sMAKE SURE WE ARE IN KERNEL MODE.

MOV
MOV

#172300,R1
#8..RO

;SETTING PRI _SHOULD SHOULD ALSO CLEAR
;BITS 14 & 15
sGET_ADDRESS OF KERNEL PDR REG 0.
;WRITE PDR REG 0-7.

MOV

#77406, (R1)+

DEC
BNE
MOV
CLR

RO
108
#172340,R1
(R1)

sADDRESS OF KERNEL PAR 0
;PAR 0, ADDRS
0 - 17776

#400,4(R1)

;PAR 2, ADDRS

40000 -

#2200,10(R1)
#2400,12(R1)
#2600,14(R1)
#7600,16(R1)

;PAR 4,
;PAR 5,
:PAR 6,
:PAR 7,

220000
- 237776
240000
- 257776
260000
- 277776
160000 - 677776

108

000002

MOV

002200
002400
002600
007600

000010
000012
000014
000016

MOV
MOV
MOV
MOV

3775
277;9

8};44‘122

012737

000001

3778
g%

013424
8}332332

012701
012702

000040
002410

3781

013434

012224

3783
3784
3785
3786
3787
3788
%;gg

013436
013442
013444
013446
013450
013452
8}%4‘240

005737
001050
005301
001372
005303
001364
012701

3791
3792
3793
3794
3795
%7739

013460
013462
013466
013470
013472
013474

005024
005737
001036
005301
001372
005037

3798

013500

012737

013506

308
#1 ,MMANAG
#PRI107

012761
012761
012761
012761

000400

3799

BLT
MOV
SETPRI

MOV

012703

3782

002302

000004

013406

013412

003000

172340

000

012704

012737

000006

#2000,6 (R1)

MOV

177572

020000

003230

003630

20000
-

37776

57776

;

:PAR 3, ADDRS 200000- 217776 (BUFFER PAGE 1)
ADDRS
ADDRS
ADDRS
ADDRS

(BUFFER PAGE 2)
(BUFFER PAGE 3)
(BUFFER PAGE 4)
(1/0 PAGE)

;COUNTER FOR OUTER

158

MOV

#1,H177572

:VIRTUAL ADDRESS 60000 - 111776
sENABLE MEMORY MANAGEMENT

‘s

MOV
MOV

#32. .R1
#$CCITT ,R2

;COUNTER FOR INNER LOOP OF TEST PATTERN
sADDRESS FOR 32. WORD TEST PATTERN.

MOV

(R2)+,(R4)+

TST
BNE
DEC

FLAG
29%
R1

CLR
TST
BNE
DEC
BNE
CLR

177572

:PAR 1, ADDRS

#256. ,R3

BNE
DEC
BNE
MOV

MOV

Mov

16%
R3
15%
#20000,R1

LOOP OF TEST PATTERN

;USE VIRTUAL ADDRESS TO MAP TO PAR 5
sGENERATE A TEST PATTERN IN THE 1ST 8K WORDS

;WRITE TEST PATTERN

sPHYSICAL ADDRESS 200000 - 237776

sFLAG WILL BE SET IF WE ADDRESS NXM.
cIF NXM - DON'T USE MEMORY MANAGEMENT.
;DO TH INNER LOOP 32. TIMES

;DO THE OUTER LOOP 256. TIMES
;COUNTER TO CLEAR THE NEXT 8K WORDS

(R4) +
FLAG
29%
R]
17%
177572

:TURN OFF MEMORY MANAGEMENT

#60000, XMTBUF

;VIRTUAL ADDRESS OF XMIT BUFFER

#120000,RCVBUF

#PR107,RO
C$SPRI

JWRITE BITS FOR THE FOLLOWING PAGE DESCRIPTION
-READ/WRITE ACCESS, 128. BLOCK PAGE LENGTH.
JWRITE ALL PDRS.

#60000,Ré

002340

MOV
TRAP

MOV

002340

120000

#200,2(R1)

MOV

060000

;1F THERE IS NO MEMORY MANAGEMEN1.

:BR TO USE NON-MEMORY MANAG. BUFFERS.
ggk Tgfi?;eag,LEAST 48K WORDS? (16K WORDS

000200

SEQ 0061

308
LSHIMEM, #3000

3772

3773
3774

5
PAGE 2-38

BNE
CMP

012761

09:36

;CLEAR VIRTUAL ADDRESS 120000 - 157776
:DOES AN NXM TRAP OCCUR?
:IF SO DON'T USE MEMORY MANAGEMENT.

:VIRTUAL ADDRESS OF RCV. BUFFER

£ by

FRORRNR

bbi
— b b cubd

et
4 ges

3800
3801
3802
3803

o (elelelelelels]

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR- 20
CZDMIA.P11T
13-MAR-80 09:34
GLOBAL SUBROUTINE

022737
001004
012737
000525

09:36

5
PAGE 2-39

000001

002322

#1,BUFNUM

037777

002320

437777 ,BUFSIZ

022737
001004
012737
000515

000007

002322

004000

002320

012737
000511

000376

005037

177572

005037

002302

012700
104436

000004

002320

20§

60%

20%:

#7 ,BUFNUM

21%

#4000 ,BUFS1Z

60%

21%:

29%:
30%:

;IS THERE ONLY 1 XMIT & RECEIVE BUFFER?

+IF NOT, BR

sEACH BUFFER IS 16K BYTES

sARE THERE 7 XMIT & RECEIVE (14 TOTAL BUFFER)?
:IF NOT = MUST BE 64 BUFFERS
;EACH BUFFER IS 2K BYTES

#376,BUFSIZ
60%

;EACH BUFFER IS 254. BYTES.

CLR

aH177572

;TURN OFF MEMORY MANAGEMENT

CLR
CLRVEC

MMANAG
4

sFLAG THAT MEMORY MANAGEMENT NOT USED.
sRESTORE TRAP 4.

MEMORY

104431

002000

aR2,#2000

35%

003230
000001

004230
002000

003230

013737
060037

003230
003630

003630

000001

002322

#1 iBUF NUM

000007

002322

#7§BUFNUM

46$%:

304
001375
010137

162737

002320
000002

408:

45%:

000007

013724

35%:

012737
012700

47%:

002320

MOV
TRAP

#4 ,RO
CSCVEC

TRAP
MOV

CSMEM
RO.R2

;FIND THE FREE MEMORY AVAILABLE BETWEEN

010002

021227

SEQ 0062

;THE DIAGNOSTIC AND THE DRS (SUPERVISOR).
;1S THERE AT LEAST 1K WORDS? (NOTE: CONTENTS
:OF THE RETURNED ADDRESS OF THE START OF FREE
sMEMORY CONTAIN THE AMOUNT OF AVAILABLE MEM.)
<IF NOT AT LEAST 1K, USE DEFAULT BUFFER.
sUSE_THE FREE MEMORY BUFFER.
;SAVE THE WORD SIZE OF THE BUFFER.
sSTART WITH AN EVEN # OF WORDS.

#B1GBUF , XMTBUF

;USE THE DEFAULT BUFFER (1ST HALF FOR XMIT).
;1K WORD SIZE.

XMTBUF ,RCVBUF
RO ,RCVBUF
RO.R1

sCALCULATE THE RECEIVE BUFFER ADDRESS
sAS STARTING IN THE 2ND HALF OF THE BUFFER.
;BUFFER SIZE IN WORDS.
sARE WE SETTING UP 1 RECEIVE AND XMIT BUFFER?
:IF YES = R1 = BYTE_SIZE FOR BOTH BUFFERS.
JARE WE SETTING UP 7 RCV & 7 XMIT BUFFERS?
sIF NOT WE MUST NEED 64 RCV & 64 XMIT BUFFERS.
;R1 = # BYTES IN THE BUFFERS/8

#2000,R0

;DIVIDE BYTES BY 128.

;SHIFT RIGHT 7 TIMES

sSAVE THE BUFFER SIZE IN BYTES.
sADJUST BUFFER SIZE BECAUSE WE

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
13-MAR-80 09:34
CZDMIA.P
GLOBAL SUBROUTINES

013732

042737
006200
010001
013702

003230

012703
012704

002410
000040

000001

012312
005300
001403
005304
001373
000766
013702

002320

8IC
ASR
MOV

50%:
51%:

MOV

#1,BUFSIZ

RO
RO,R1
XMTBUF ,R2

5
PAGE 2=40

sWILL ADJUST BUFFER STARTING ADDKESS.
sENSURE WE START WITH AN EVEN # OF BYTES.
s# OF WORDS IN ALL XMIT BUFFERS.
sSAVE # OF WORDS IN ALL RCV BUFFERS.
;ADDRESS OF START OF XMIT BUFFERS.

MOV
MOV

#$CCITT ,R3

;ADDRESS OF TEST PATTERN
:# OF WORDS IN THE TEST PATTERN.

MOV
DEC

(RS)#.(RZ)
RO

sWRITE TEST PATTERN INTO ALL XMIT BUFFERS.
cARE ALL THE XMIT BUFFERS WRITTEN?
;IF YES PROCEED.
sCONTINUE WITH TEST PATTERN TILL DONE.

BEQ
DEC
BNE

003630

09:36

55%:
56%:

55%

518
508

;START AT BEGINNING OF TEST PATTERN.

RCVBUF ,R2

;ADDRESS OF RECEIVE BUFFERS

(R2)+

;CLEAR ALL RECEIVE BUFFERS.

568

60%:

013700
012701
013702

;ADDRESS OF RECEIVE BUFFER
:TABLE ADDRESS OF RCV BUFFER POINTERS.
:# OF RCV. BUFFERS.

RO,(R1)+:
BUFSIZ,(R1)+
ggFSIZ.RO
R2

:SAVE THE RECEIVE BUFFER ADDRESS
sSAVE THE BUFFER SIZE
sCALCULATE THE NEXT BUFFER ADDRESS.
s CHANGE EVEN ADDRESS TO ODD & ODD TO EVEN.
sCALCULATE ALL THE BUFFER ADDRESSES.

XMTBUF ,RO
#XMTBUF ,R1

sADDRESS OF TRANSMIT BUFFERS
;TABLE OF XMIT BUFFER POINTERS.

BUFNUM,R2

65%:

010021
013721

RCVBUF ,RO
#RCVBUF ,R1

65%

003230
003230
002322
000004

708:

002320

RO, (R1)+
BUFSIZ (R1)

002320

BgFSIZRO

000001

#BITO,R3

;1S THE CONTENTS OF R3 ODD
:IF YES, DON'T ADJUST BUFFER ADDRESS.
s CHANGE EVEN TO ODD ETC.

R3
75%
#4 ,R3

;WHAT IS R3.

3, (R1)+

72%
RO

72%:

00200
012703

3907

005302
001357

:HOF XMIT BUFFERS.

:R3 IS USED TO VARY THE CHARACTER COUNT.

75%:

DEC

R2
70%

sSAVE THE XMIT BUFFER ADDRESS.
:SAVE THE BUFFER SIZE.

:VARY THE BUFFER SIZE

sCALCULATE THE NEXT BUFFER ADDRESS
s CHANGE THE CHARACTER_COUNT VARIABLE.

sCONTINUE UNTIL R3 = -1
JRE=INIT. THE R3 VARIABLE AGAIN.
sCALCULATE ALL THE XMIT BUFFERS.

SEQ 0063

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
GLOBAL SUBROUTINES

3
3910
3911
3912

014124
014130
014134

005037
005037
000207

002340
002366

3915

3916
3917

R
:

%g}g

;

3920
%3%;_

H
;

3923

3925

3924

5
PAGE 2-41

CLR
CLR
RETURN

FLAG
SUBRPC

A A A AR AR AR AR AR

09:36

A A

SEQ 0064

;RESTORE FLAG USED IN TRAP VECTOK.
;CLEAR PC.

AR AR

AR AR AR AR AR AR AR AR AR

AR AR R AR RN

RANRAARA AR AR

AR AR ARRRAARNRARANRA AR AN ARNE

SUBROUTINE $INOUT
FUNCTION = TO MANAGE THE INTERRUPT FROM BASE IN
TO BA/CC OUT IN THE INTERRUPT TESTS 15-19
ENTRY CONDITIONS = BUFNUM = # OF RCV AND XMIT BUFFERS

ALL BUFFERS SET UP IN

WAIT3

THE $BUFFS SUBROUTINE.

= # OF OUTER LOOP TIMEOUT COUNTERS.

3926
gggg

H
;

ggZSg

;

EXIT CONDITIONS

3931

REGISTERS

= RO = R5 DESTROYED

3934

:.tttttttttttttttttttttttttttttfitttifitttttttttttttttttttttttttttttttttt

938

3935

e AR

3936
3937
3938
3939
3940
3941
392
3943
3944
395
3946

014136
014136
014142
014150
014156
014164
014172
014200
014206
014212
014216

3952

014222
014226
014232
014236
014242

011637
162737
012737
013737
013737
013737
013737
005037
005037
005037

1
002322
002322
002322
002322
234
002350
002272

012702
012703
012704
012705

3630
003230
003630
003230

014242
014246

012700
104441

000200

3954

014250

013737

112777

002314

000143

3957
3958
3959
(3)

014264
014270
014270
014270

012701

001000

3947
3948
39%9
3950
3951
(3)
(3)

3953
ggssg

3960

8}252‘6

104422

002366

$INOUT:
2
002370
002324
002326
002330
002332

002316

165746

8s
108:

A A AR AR AR A AR

AR AR AR

MOV
SuB
MoV
MOV
MOV
MoV
MoV
CLR
CLR
CLR

(SP) , SUBRPC
#4 , SUBRPC
#1,NESTPC
BUFNUM, INRCV
BUFNUM, INXMIT
BUFNUM,OUTRCY
BUFNUM,OUTXMT
INFLAG
OUTFLG
START

MOV
MOV
MOV
MoV
SETPRI

#RCVBUF ,R2
#XMTBUF ,R3
#RCVBUF R4
#XMTBUF ,R5
#PRI04

MOV

WAIT3 WAIT4

THIS VALUE IS DETERMINED BY THE BAUD
RATE IN THE INIT. SECTION OF CODE.
.

RAR AR

AR R AAARAAARRARRAARRARAAARRRRRAAR

;SAVE THE PC AFTER THE CALL TO $LOOP
sBACKUP TO THE PC OF THE ACTUAL CALL.
;FLAG THAT ANY SUBROUTINE USED WILL BE NESTED.
:# OF BA/CC IN RECEIVES
;# OF BA/CC IN TRANSMITS
;# OF BA/CC OUT RECEIVES
;# OF BA/CC OUT TRANSMITS
:CLEAR INPUT BA/CC FLAG
sCLEAR OUTPUT BA/CC FLAG
:CLEAR FLAG TO SHOW START UP NOT DONE (SET

sAFTER CONTROL IN)
sADDR OF RCV. BUFFER TABLE
sADDR OF XMIT BUFFER TABLE
sADDR OF RCV. BUFFER TABLE
sADDR OF XMIT BUFFER TABLE

(FOR INPUT)
(FOR INPUT)
(OUTPUT CHECKING)
(OUTPUT CHECKING)
:SET THE PRIORITY TO LEVEL 4 TO ALLOW THE

:DMR TO INTERRUPT AT LEVEL 5

MoV
TRAP

#PR104
RO
C$SPRI

s TIMEOUT COUNTER DETERMINED BY ewo RATE.

MOovB

#1ESET'RQI 'BASE1,@BSELO ;FIRST COMMAND- BASE IN

MoV

#1000,R1

BREAK

:INNER LOOP COUNTER
;OPERATOR INTERRUPT ENABLE.

CALL TO
TRAP

($BRK

:THE SUPERVISOR TO ALLOW CONSOLE INTERRUPT

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:
GLOBAL SUBROUTINES

3961
3962
3963
3964
3965
3966
3967
3968
(2)
(2)
(2)
(2)
(2)

(2)

(2)
(2)
3969
3970
3971
3972
3973
(4)
(5)
(5)
(5)

014272
014276
014300
014304
014306
014306
014306
014312
014314
014320
014322

014326

014330
014334
014336
014340
014342
014346
014350
014350
014352
014354
014356

005737
001403
005737
001026
012727
013727

3986
3987
3988
3989
3990
3991
3992
3993
3994

014412
014414
014416
014420
014422
014424
014430
014432
014436

012003
012104
011005
022021
001412
005737
001402
005037

4000

5
PAGE 2-42

014454

005305

DELAY

INFLAG
12$
OUTFLG

20%
]

INFLAG AND OUTFLG SET IN THE INTERRUPT

s SERVICE ROUTINES)
sARE THE INPUTS DONE?
sIF _NOT KEEP CHECKING.
sARE THE OUTPUTS DONE?

;IF YES EXIT WAIT LOOP.

(INISR DONE?)
(OUTISR DONE?)

;WAIT 100 MICROSECONDS.

002116

MoV

#1,(PC)+

MoV

LSDLY, (PC)+

DEC
BNE
DEC
BNE
ERRDF

002316

R1
108
WAITS
8$

2.EMG2 ,ERRG1

sCONTINUE IN LOOP UNTIL R1 = 0.

0
-6(PC)

DEC

=22(PC)

BNE

003630
003230
002322
002302
000001

177572

408:

002302
‘
177572

418:

45%:

60%

JEXIT

MOV
MOV
MOV
TST
BEQ
MOV

#RCVBUF ,RO
#XMTBUF ,R1

sTRANSMIT BUFFERS

MOV
MoV
MOV
CMP
8EQ
TST
BEQ
(LR
ERRDF

BUFNUM,R2

MMANAG

408
#1,aH177572

(RO)+,R3
(R1)+ R4

aRr0,R
(RO)+,(R1)+
45%

MMAMIAG
41%

177572

.=20

2
EMG2
ERRG1

sRECEIVE BUFFER POINTER TABLE ADDRESS.

:# OF RCV. AND XMIT BUFFERS.
;ARE THE BUFFERS MEMORY MANAGED?
:IF YES = PROCEED.
sTURN ON MEMORY MANAGEMENT
;ADDRESS OF A RECEIVE BUFFER.
sADDRESS OF A TRANSMIT BUFFER.
s CHARACTER COUNT.
sARE THE CHARACTER COUNTS THE SAME?
:IF YES - PROCEED.
: 1S MEMORY MANAGEMENT TURNED ON?
:IF NOT = SKIP TURN OFF,
;TURN OFF MEMORY MANAGEMENT.

12 ,EMG12 ,ERRG10

TRAP

608

JEXIT

CMPB
BNE

(R3)+,(R4)+
508
RS

sARE THE CHARACTERS THE SAME?

DEC

;DECREMENT OQUTER LOOP COUNTER
:IF NOT DONE = GO THROUGH INNER LOOP AGAIN.
: TIMEOUT MESSAGE.
TRAP
CSERDF

WORD
WORD
.WORD
;ALSO PRINT # OF BUFFERS NOT COMPLETE.

208:

.WORD
DEC

BNE

104455
000014
020241
016160

122324
001005

TST
BEQ
TST
BNE

SEQ 0065

WORD

104455
000002
020025
014562

012700
012701
013702
005737
001403
012737

(14446
(14450
(014450
014452

000001

177756

014362
014366
014372
014376
014402
014404

3996
3997
3998
3999

12%:

005367
001367
005301
001353
005337
001346

001375

3979
3980
3981
3982
3983
3984

014436
014+36
014440
014442
074444

002350

177772

000453

014412

002346

005367

014360
014362

3995
(4)
(5)
(5)
(5)

s(NOTE:

3974
3975
3976
2877;

3985

09:36

s1IF NOT = ERROR EXIT
sCHECK ALL THE CHARACTERS

WORD
.WORD
.WORD

CSERDF

12
EMG12
ERRG10

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 13-MAR-80
CZDMIA.P1
13-MAR-80 09:34
GL(BA[: SUBROUTINES

4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
(4)
(5)
(5)
(5)
4011
4012
4013
zglé

014456
014460
014462
014464
014466
014466
014472
014474
014500
014500
014500
014502
014504
014506
014510
014510
014514
8}22;3

005737
001402
005037

002302

4016
28};

014522
014530

042777
042777

000120
000100

4019
M

014536

4020
(3)

(3)

4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035

014536
014542
014542

014546

014550
014554
014560

001374
005302
001353
000411

005737
001402
005037

177572

(6)

60%:

177572

618
165502
165476

004737
012700

104441

005037
005037
000207

012560
000340
002370
002366

SEQ 0066

45%
R2
408
60%

sCHECK ALL THE BUFFERS.

TST
BEQ
C.R

MMANAG
518
aH177572

;1S MEMORY MANAGEMENT TURNED ON?
:IF _NOT = SKIP TURN OFF,
:TURN OFF MEMORY MANAGEMENT.

ERRDF

15,EMG15.ERRG12

TRAP
WORD
.WORD
.WORD

TST
BEQ
CLR

MMANAG
61%
aH177572

BIC
BIC

#IESET!1ECLR,QSELO ;DISABLE BOTH INPUT INTERRUPTS
#1EO,QSEL2
:DISABLE OUTPUT INTERRUPT

JSR

PC, SHALT

SETPRI

#PRI07

CLR
CLR
RETURN

.SBTTL

6
PAGE 2-43

BNE
DEC
BNE
BR

SHUTDN

NESTPC
SUBRPC

CSERDF

15
EMG15
ERRG12

;1S MEMORY MANAGEMENT TURNED ON?
:IF NOT = SKIP TURN OFF.
;TURN OFF MEMORY MANAGEMENT.

sSHUT DOWN THE DMR
sxxxx MACRO EXPANSION *wxx

;DMR HALT ROUTINE.

SRRk R%

L2
2 2

sRETURN PROCESSOR PRIORITY TO 7

;CLEAR NESTED FLAG.
;CLEAR PC.

MoV

TRAP

#PR107
RO

C$SPRI

GLOBAL ERROR REPORT REPORT SECTION

SIIITIITTITITII770777770077777777077777777777777077777777177717771774721172117
/
THE GLOBAL ERROR REPORT SECTION CONTAINS ERROR MESSAGES
3/
THAT ARE USED IN MORE THAN ONE TEST.

2828

4041

51%:

104455
000017
020341
016244

4036
4037
4038

4042
(3)
4043
(8)
(7)

508:

002302

09:36

////////é(lg‘////////////////////////////////////////////////////////////////

014562
014562
014562
014562
014566
014572

BGNMSG
013746
012746
012746

002366
016362
000002

ERRG1
PRINTB

#FMG3, SUBRP(

ERRG1::
;PC THAT SUBROUTINE WAS CALLED.

MOV
MOV
MOV

SUBRPC,~(SP)
#EMG3, = (SP)
#2.~(5P)

C 6
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-44
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL ERROR REPORT REPORT SECTION
014576

010600
104414

062706

000006

017746
017746
012746
012746
010600

165422
165414

104414
062706

017746

165376
165370
016330
000003

000010

013746
012746
012746
010600
104414
062706
013746
012746
012746
0600

MOV
TRAP
PRINTB

#FMG1,9SELO,QSEL2 ;PRINT SELO AND SEL2 CONTENTS.

016276
000003
000010

002322

SEQ 0067
SP,RO
CSPNTB

#6,SP

@SEL2,=(SP)
@SELO,=(SP)

#FMG1 ,-(SP)
#3,-(SP)

SP,RO
CSPNTB

PRINTB

#FMG2,@SEL4,@SEL6 ;PRINT SEL4 AND SEL2 CONTENTS.

#FMG21,BUFNUM

;# OF BUFFERS

#FMG22,BUFSIZ

;BUFFER SIZE

017545
000002

PRINTB

#10,sP

@SEL6,-(SP)
@SEL4 ,~(SP)
#FMG2
= (SP)
#3,-(SP)

- (SP)
BUFNUM,
#FMG21,-(SP)
#2,-(SP)
SP,RO
CSPNTB
BUFSIZ,-(SP)
#FMG22,~(SP)
#2,-(SP)
SP,RO

CSPNTB

013746
013746
012746
012746
010600

NEG
NEG
NEG
NEG
ADD
ADD
ADD
ADD
PRINTB

INRCV
:NEGATE BUFFER VALUES
INXMIT
OUTRCV
OUTXMT
BUFNUM, INRCV
s CALCULATE BUFFERS ASSIGNED.
BUFNUM, INXMI
T
BUFNUM,OUTRCY
;CALCULATE BUFFERS RECEIVED.
BUF NUM, OUTXMT
#FMG23, INRCV, INXMIT

#6,SP

INXMIT,=(SP)
INRCV, = (SP)

#FMG2%, - (SP)
#3,-(SP)

104414

062706
013746

PRINTB #FMG24 ,0UTRCV,OUTXMT

OUTXMT ,-(SP)
OUTRCV,=(SP)

6
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=45
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL ERROR REPORT REPORT SECTION
062706

(4)

000010

ENDMSG

L10002:

104423

015070

005737
001412

002366

013746
012746
012746
010600

002366

SEQ 0068

BGNMSG

ERRG2

BEQ
PRINTB

SUBRPC

108
#FMG3, SUBRP(

10%:

017746
017746
012746
012746
010600

16
1
0
000003

062706

000010

010600
104414
062706

PRINTB

C$MSG

ERRGZ::

PC THAT SUBROUTINE WAS CALLED.

#FMG1,3SELO,QSEL2 ;PRINT SELO AND SEL2 CONTENTS.

SUBRPC,=(SP)
#FMG3,-(SP)
#2,-(SP)

@SEL2,~(SP)
@SELO,=(SP)

#FMG1 ,-(SP)

#3,-(SP)
SP,RO
CSPNTB

PRINTB

#FMG2,@SEL4,@SEL6 ;PRINT SEL4 AND SEL2 CONTENTS.

016330
000003

#10,SP

@SEL6,-(SP)
@SEL4 ,~(SP)

#FMG2,
- (SP)
#3,-(SP)

SP,RO
CSPNTB

#10,SP

ENDMSG

L10003:

104423
BGNMSG

005737
001412

002366

013746
012746

002366
016362
000002

164772

012746
8

016276
000003

CSMSG

ERRG3
TST

BEQ
PRINTB

SUBRP(

108
#FMG3, SUBRP(

ERRG3::

;IS THE ERROR IN A SUBROUTINE?
;IF NOT, DON'T PRINT SUBR. PC

:PC THAT SUBROUTINE WAS CALLED.

SUBRPC ,=(SP)

#FMG3, - (SP)

10%:

015256

TRAP

SP,RO
CSPNTB

062706

017746
017746
012746
012746

#10,SP

;1S THE ERROR IN A SUBROUTINE?
;IF NOT, DON'T PRINT SUBR. PC

104414

ADD

PRINTB

#FMG1,3SELO,QSEL2 ;PRINT SELO AND SEL2 CONTENTS.

@SEL2,~(SP)
@SELO,~(SP)

#FMG1,-(SP)

#3,-(SP)
SP.RO

CZDMIAO DMR-11 FUNCTIONAqungS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-46
CZDMIA.P1
13-MAR-8
GLOBAL ERROR REPORT REPORT SECTION
104414

(4)
(4)

062706
032777
001043
122777
001011

012746
012746
010600

000010

100000

164736

#RUN,QSELO

000001

164740

#1,aBSEL3

12%

HFMG4

016434
000001

104414
062706
000455

000004

122777

000002

012746
012746

016465
000001

001011

20%

164706

12%:

105777

001010

000100

017473
000001

012746
012746
010600

017516
000001

062706

000004

104414

20%:

164634

122777

001010

;IF RUN SET, CHECK.

ID CPU MICRO. FAJL?
F

NOT SEE IF LU FAILED.

PU MICRO. FAILED.

H#FMG4 ,~(SP)

CMPB
BNE

#2,aBSEL3
15%
#FMGS

;DID LINE UNIT MICRO. FAIL?
sLINE UNIT FAILED.

HFMGS ,-(SP)
#1,-(SP)

308

PRINTB

#FMGS

#4 ,SP
;NO RUN = MASTER CLEAR FAILED.

#FMG5 ,~(SP)
#1,-(SP)

SP,RO
CSPNTB

000004

;1S THE RUN BIT SET

(SPNTB

#10,SP

SP,RO
CSPNTB

016465
000001

012746
012746
010600
104474
062706

TRAP
ADD

308

PRINTB

000004

012746
012746
010600
104414
062706
000427

SEQ 0069

308

1STB
BNE
PRINTB

aBSEL3
25%

#FMG19

#4 ,SP

;1S BSEL3 STILL 07

:IF NOT = SEE IF MICRODIAG. RUN.
;DEVICE IS NOT DMR (DMC?)

#FMG19,-(SP)

#1,-(SP)

SP,RO
CSPNTB

164604

25%:

#4 ,SP

(MPB
BNE

PRINTB

#100,aBSEL3

sWERE MICRODIAGNOSTICS DISABLE?

#FMG20

sMICRODIAGNOSTICS DISABLED

308

#FMG20,~(SP)
#1,-(SP)

SP,RO
CSPNTB

44,SP

30%:

ENDMSG

015462
015464

L10004:

104423
BGNMSG

ERRG4

C$MSG

F
6
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-47
CZDMIA.P1T
13-MAR-80 09: 3
GLOBAL ERROR REPORT REPORT SECTION

005737
001412

002366

013746
012746
012746
0 0600

002366
016362
000002

062706

000006

105737

002633

104414

10%:

(3)

015676

TSTB
BNE

BASE+3
11$

BEQ

12%

PRINTB

sONLY PRINT NON-ZERO VALUES

BASE +6

#FMG7 ,<B,BASE+3
,BASE
>,<B
+6>

=(SP)

#FMG7 ,~(SP)
#3,-(SP)

000003

SP,RO
CSPNTB

12%:

#10,SP

TSTB

BASE+S

TSTB

BASE+8.

PRINTB

#FMG8,<B,BASE+5>,<B,BASE+8.>

BNE

13%:

BEQ

138
148

002640
002635
016630
000003

062706

000010

105737
001003

002634

001416

#6,SP

TSTB

002640

105737

SUBRPC ,=(SP)
#FMG3,~(SP)
#2,-(SP)

BASE+3, (SP)

002635

104414

:PC THAT SUBROUTINE WAS CALLED.

002633
016557

105737

153716

108

=(SP)
+6, (SP)
BASE

000010

012746
012746
010600

#FMG3, SUBRP(

002636

062706

005046

PRINTB

ERRG4::

;1S THE ERROR IN A SUBROUTINE?
sIF NOT, DON'T PRINT SUBR. PC

SP,RO
CSPNTB

11%:

010600
104414

SUBRPC

BEQ

002636

012746
012746

TST

SEQ 0070

=(SP)
B?gf*B..(SP)

BASE +5, (SP)

#FMGS,
- (SP)
#3,-(SP)
SP.RO
CSPNTB

14%:

#10,sP
TSTB

BASE+4

TSTB

BASE+7

PRINTB

#FMG9,<B,BASE
+4>,<B ,BASE+7>

BNE

002637
15%:

BEQ

158

168

=(SP)

002637

BASE+7, (SP)

002634
016701
000003

BASE+4, (SP)

=(SP)

#FMGS,-(SP)
#3,-(SP)

SP,RO

(4)
(4)

cceeoeges

6
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=48
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL ERROR REPORT REPORT SECTION
104414

062706

000010

- 002642
105737
00
002641

16%:

SEQ 0071
TRAP
ADD

TSTB

BASE+10.

3% sk
BEa.
308
17%:
’

PRINTB

#FMG10,<B,BASE+10.>,<B,BASE+9.>

=(SP)

002641

BASE+9., (SP)

002642
016752
000003

BASE+10., (SP)

000010

=(SP)

#FMG10,-(SP)

#3,-(SP)

SP,RO
CSPNTB

#10,SP

20%:

ENDMSG

L10005:

015756

015760

BGNMSG

ERRG7
PRINTB

012746
012746
010600

#FMG12

:BA/CC QUT RECV

CSMSG

ERRG?::
#FMG12,-(SP)
#1,-(SP)

SP,RO
CSPNTB

104414

062706

PRINTB

017746
017746
012746
012746
010600
104414

#4,SP

#FMG13,2SEL4,QSEL6 ;ACTUAL BA/CC

aSEL6,=(SP)
aSEL4 .~ (SP)

#FMG15,-(SP)

#3,-(SP)

062706

000010

016446
012746
012746
010600
104414
062706

177776

PRINTB

#FMG15,-2(R4)

;EXPECTED BA/CC

=2(R4) ,~(SP)

017223
000002
000006

#FMG15,-(SP)
#2,-(SP)

SP,RO
CSPNTB
#6,SP

ENDMSG

L10006:

104423

BGNMSG

012746

CSPNTB

#10,SP

017010

ERRGS8
PRINTB

#FMG11

JBA/CC OUT XMIT

C$MSG

ERRGS::
MoV

#FMG11,-(SP)

H 6
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-49
CZDMIA.P11
13-MAR-80 09:34
GLOBAL ERROR REPORT REPORT SECTION

SEQ 0072

(6)
(3)

016062
016066

012746
010600

000001

MOV
MOV

#1,-(SP)
SP.RO

(4)

016072

062706

000004

ADD

#4,SP

(9)
(8)
(7)
(6)
(3)

016076
016102
016106
016112
016116

017746
017746
012746
012746
010600

164136
164130
017073
000003

MOV
MOV
MOV
MOV
MOV

@SEL6,=(SP)
3SEL4 .=(SP)
#FMG15,-(SP)
#3,-(SP)
SP.RO

(4)

016122

062706

000010

ADD

#10,SP

016126
016132
016136
016142
016146

016546
016546
012746
012746
010600

177776
177774
017147
000003

MOV
MOV
MOV
MOV
MOV

=2(R5) ,~(SP)
=4 (R5) .=(SP)
#FMG14
. =(SP)
#3,-(SP)
SP.RO

016152

062706

000010

ADD

#10,SP

TRAP

(CSMSG

MOV
MOV
MOV
MOV
MOV

-2(R1) ,=(SP)
-2(R0) .-(SP)
#FMG16.~(SP)
#3,-(SP)
SP.RO

ADD

#10,SP

TRAP

CSMSG

MOV
MOV
MOV
MOV
MOV

=4 (R1) ,-(SP)
=4 (RO) .=(SP)
#FMG17
.~ (SP)
#3,-(SP)
SP.RO

ADD

#10,SP

TRAP

C$MSG

(&)

4147

4148

(9)
(8)
(7)
(6)
(3)

(&)

(4)

4149
(3)
(3)
4150
4151
4152
(3)
4153

(9)
(8)
(7)
(6)
(3)
(%)

(4)

4154
(3)

016070

016076

016120

016126

016150

016156
016156
016156

104414

016160

016146
016046
012746
012746
010600

177776
177776
017252
000003

016204

062706

000010

4%;

4156
(3)
4157

016212
016212
016212

016212
016216
016222
016226
016232

104414

;ACTUAL BA/CC

TRAP

PRINTB

#FMG14,=4(RS),=2(R5)

:EXPECTED BA/CC

TRAP

ENDMSG

L10007:

ERRG10

PRINTB

#FMG16,=2(R0),=2(R1) :RCV CC & XMIT CC

ENDMSG

(4)
4158
(3)
“(gg;

016236 062706
016242 .
016242
016242 104423

000010

4160
(3)
4161

016244
016244
016244

104414

L10010:

005303

CSPNTB

ERRG11

PRINTB

#FMG17,-4(R0),=4(R1)

ERRG11::
:RCV BUFFER & XMIT BUFFER

TRAP

ENDMSG

BGNMSG

C$PNTB

ERRG10::

TRAP

BGNMSG

177774
177774
017331
000003

016236

#FMG13,3SEL4,@SEL6

104423

016146
016046
012746
012746
010600

(&)

PRINTB

BGNMSG

016160
016164
016170
016174
016200

016202

TRAP

104423

016160
016160

016210
016210
016210

(9)
(8)
(7)
(6)
(3)

104414

L10011:
ERRG12

DEC

ERRG12
;BACKUP TO RECEIVE ADDRESS

CSPNTB

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-50
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL ERROR REPORT REPORT SECTION
4162
4163
(9)

016246
016250
016250

010446

(7)

016254

012746

(4)
4164

016270
016274

005304

062706

DEC
PRINTB

R4
#FMG18,R3,R4

SEQ 0073

sBACKUP TO TRANSMIT ADDRESS
sPRINT OUT ADDRESS

R3,-(SP)

017404
000003

#FMG18,-(SP)
#3,-(SP)

SP,RO
CSPNTB

000010

#10,SP

ENDMSG

L10012:

6171

016276
016304
016312
016320

040445
020072
020101
020072

042523
047445
042523
047445

030114
022466
031114
022466

FMG1:

LASCIZ

/XASELO: %06%A SEL2:

XO06AN/

6172

016330

040445

042523

032114

FMG2:

LASCIZ

/XASELG:

XO6AN/

4173

016362

040445

051105

047522

FMG3:

LASCIZ

/%AERROR IN SUBROUTINE CALLED AT PC: %06%N/

4176

016434

040445

050103

020125

FMG4:

.ASCIZ

/%ACPU MICROTEST FAILEDZN/

4175

016465

045

046101

027125

FMG5:

LASCIZ

/%ALU. MICROTEST FAILEDIZN/

4176

016516

040445

047516

82;240

FMG6:

LASCIZ

/%ANO RUN = MASTER CLEAR FAILEDIN/

4177

016557

045

047101

825501

FMG7:

LASCIZ

/XANAKS=NO BUFFER

000

R4 ,=(SP)

020101

%06%A SEL6:

RCV: %D3XA SENT: XD3%N/

C$MSG

]
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=51
CZDMIA.P11
13-MAR-80 09:34
GLOBAL ERROR REPORT REPORT SECTION

4178

016614
016622

016630

016636
016644

042523
042045

040445

052116
022463

040516

020072
000116

051513

SEQ 0074

FMGB:

.ASCIZ

/XANAKS=BAD DATA

045501

FMG9:

.ASCIZ

/XANAKS=-BAD HEADER RCV: %D3X%A SENT: XD3IN/

042522

051520

FMG10:

.ASCIZ

/%AREPS=RCV: XD3%A SENT: XD3IN/

041055
05%101

042101
020101

042040
020040

047101

RCV: %D3%A SENT: XD3IN/

6660

000

4179

016701

045

4180

016752

040445

4181

017010

820825

046530

052111

FMG11:

.ASCIZ

/XAXMIT BACC OUT COMMANDXN/

4182

017042

040445

041522

4183

017073

017050
017056
017064

04204

040502
052125
040368
045

017100
017106
017114
017122
017130
017136
017144

040525
042101
047445
041501
041440
020040
047045

041503
041440
042116

020126

047440
046517
047045

FMG12:

.ASCIZ

/%ARCV BACC OUT COMMANDIN/

040501

052103

FMG13:

.ASCIZ

/XAACTUAL

050130

FMG14:

.ASCIZ

/XAEXPECTED ADDR.

X06%A EXPECTED COUNT XDSIN/

FMG15:

.ASCIZ

/XAEXPECTED ADDR.

%06XN/

FMG16:

.ASCIZ

/%ARCV CHAR.

020114
051104
022466
052524
052517
022440
000

020040
020056
020101
046101
052116
032504

4184

017147

017154

041505

045

042501

4185

017223

045

042501

050130

4186

017252

040445

041522

8286%2

017302

046530

052111

041440

042524

000

020104

20104

00011

ADDR.

%06X%A ACTUAL COUNT

COUNT ZD5XA XMIT CHAR.

%DSIN/

COUNT XDSXN/

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=52
CZDMIA.P1T
13-MAR-80 09:34
GLOBAL ERROR REPORT REPORT SECTION

4187

4188

4189

4190

017310
017371 6
017324

017331

040510
052517

032504
045

027122
052116

041440
022440
000

017336
017344
017352
017360
017366
017374

041040
020
033117

051101

053103

040445

054040

043
020124

047445

0404
022466

017404

823825

040504

820582

017464

022838

042104
033117

047045

042101

017473

045

043125

042506

FMG17:

.ASCIZ

/XARCV BUFFER AT X06%A XMIT BUFFER AT X06%N/

FMG18:

.ASCIZ

/X%ADATA DIFFERS AT RCV ADDR.

017500
017506

041511
020124

020105
046504

053105

047516
022522

FMG19:

.ASCiZ

/XADEVICE NOT DMRIN/

017516

040445

044515

051103

FMG20:

.ASCIZ

/%AMICROTEST DISABLEDXN/

017526
017532

052117
044504

051505
8203%3

020124
046102
000

SEQ 0075

%06%A AND XMIT ADDR. %06IN/

4191

017545

017552

82;824

045

051501

040524

FMG21:

.ASCIZ

/XASTATUS OF BUFFERS XNXANUMBER OF BUFFERS:X%D3%N/

4192

017625

045

041101

043125

FMG22:

.ASCIZ

/XABUFFER SIZE: XDSIN/

4193

017652

840445

047111

020040

FMG23:

.ASCIZ

/%AIN

= RCV ASSIGNED:XD3%A

XMIT ASSIGNED:%D3%N/

4194

017733

045

047501

052125

FMG24:

.ASCIZ

/%AOUT = RCV RETURNED:XD3XA

XMIT RETURNED:XD3XN/

017762

022463

020101

020040

000

020123

823162

6
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=53
CZDMIA.P1
13-MAR-80 09:
GLOBAL ERROR REPORT REPORT SECTION

017770
017776
020004
020012

046530
8;%}82

6197

020014

4198

8%88%3

052111
051125

051040
042516

044524

042515

047440

EMG1:

.ASCIZ

/TIME OuT/

126

046511

020105

EMG2:

.ASCIZ

/TIME OUT = DURING INTERRUPT EXERCISE/

020040
020046

052504

044522

043516

4199

020072

054105

042520

822103 "EMG8B:

.ASCIZ

/EXPECTED CONTROL OUT = NOT RECEIVED/

4200

020136

047125

054105

822

EMG9:

.ASCIZ

/UNEXPECTED CONTROL OUT/

4201

020165

105

82;2%8

051117

EMG10:

.ASCIZ

/ERROR = MULTIPLE XMITS/

4202

020214

052502
040440

043106

051105
042522

EMG11:

.ASCIZ

/BUFFER ADDRESS ERROR/

4195

020022

020206

000116

052125

000

00012

020230

051523

042440

4203
4204

85852;

103

040510

040522

EMG12:

.ASCIZ

/CHARACTER COUNT ERROR/

4205

020267

105

051122

051117

EMG13:

.ASCIZ

/ERRO
- MULTIPLE
R RCVS/

4206

020315

122

041505

044505

EMG14:

.ASCIZ

/RECEIVED EXTRA DATA/

4207

020341

052101

020101

EMG1S:

.ASCIZ

/DATA ERROR/

4208

820%23

054105

042520

EMG16:

.ASCIZ

/UNEXPECTED HALT RECEIVED/

4209

020405

047117

05 1124

EMG17:

.ASCIZ

/CONTROL IN PROBLEM = IN INTERRUPT ROUTINE/

020236

051117

020336 040524

020346

020412
020420

106

051105

047125

000
103

046117
051120

000

047522

044440
041117

051122

000

000122

8£g;}2

SEQ 0076

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 302(1052)

CZDMIA.P11

020426
020434
42
020450

4210

4211
4212
4213
4214
4215
2%}9

020456
020457

02
020472
020500

13-MAR-80 09:
020115
044440
052522
052517

020055
052116
052120
044524

123

052520

000

052517
020117
051122

020123
047111
050125

4220

SEQ 0077

047111
051105
051040
042516
044522

042122
042524
000124

EMG18:

.ASCIZ

/SPURIOUS RDO INTERRUPT/

.EVEN

LOAD DEVICE PROTECTION TABLE

:/ PROTECTED FROM TESTING. IF DESIRED.

SIITTITITITIIITITI7 777000777777 77777777777777777777777777772777777777711777177

" f(:‘33.

020506
020506

BGNPROT

4225
4226
255;

020506 177777
020510..177777
020512. 177777

.WORD
WORD
.WORD

4229

020514

ENDPROT

4230
4231
4232
4233
4234

M6
PAGE 2-54

SIIITTTI
7700077777777
IIII
777777777777777
TIII
777777777777777
I770
7777777777777
7
¢/ THIS TABLE IDENTIFIES THE LOAD DEVICE TO THE SUPERVISOR, SO THAT IT CAN BE

l’;%%%

4223

09:36

LOBAL ERROR REPORT REPORT SECTION

.SBTTL

4218
4219

13-MAR-80

LSPROT: :

4235
4236
4237
4238

-1
-1
-1

sDON'T CHECK CSR ADDRESS
sDON'T CHECK MASSBUS UNIT NUMBER
;DON'T CHECK DRIVE NUMBER
-

252(9)

.SBTTL

4241
4242

g
:/ THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

4243
2%2150

:/ AT THE BEGINNING OF THE TEST SEQUENCE ON THE NEXT UNIT.
HITIITITIITII012 077770007007 77077777777707777770700077711170111111117

4246

020514

4248
(3)
(3)
4249
4250
4251
4252
4253

020514
020514
020520
020522
020526
020532
020536
020542

452)7

INITIALIZE SECTION

BGNINIT

020514

012700
104441
010637
005037
005037
005037
005037

000340

002364
002366
002360
002274
002276

LSINIT::
SETPRI

MOV
CLR
CLR
CLR
CLR

#PRI107

SP,PSTACK
SUBRPC
ERROR
RE SUME
DMCMDE

sSET DIAGNOSTIC PRIORITY = 7

:STORE
;CLEAR
:CLEAR
;CLEAR
:CLEAR

MOV
#PR107 RO
TRAP
C$SPRI
BASE LEVEL PROGRAM STACK POINTER
STORAGE WORD FOR SUBROUTINE PC CALL
ERROR FLAGS
/
FLAG USED TO ALLOW BASE IN - RESUME.
FLAG USED TO INDICATE DMC MODE

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:
INITIALIZE SECTION

4254

020546

4257
4258

020556
020560

4261
4262

020572
020572

4255
4256

2323

(3)
‘%

4264
(3)

(3)
4265

(2)

4266

(3)
(3)
4267
(2)
4268

(3)
(3)

4269
(2)
4270

(3)

(3)
4271
(2)

25;5
4274

2.3;2
4277

4278

4279

4280

020552

020566

005037

002372

005737

002264

001005
012737
005037

020572
020576

012700
104436

000004

020600
020600

012700

000040

020604
020606

020606
020610
020610
020614
020616

020616
020620

020620
020624

020626
020626
020630

020630

020634
020636
020636

020640
020644

020644

020650

104447

012700
104447

104447

103013

005037

002270

020662

005237

4284

020700

002363

4287
4288

4289
4290

4291

020702
020702
020706
020710
020712
020712

020714
020720

020722
020726
020730

000036

021510

012737

020672

000035

000137

020650

020656

000037

103410

012700

023737

013790
104442
010001
103365

012137
011100

032700
001414
042711

177777

002266

STARST:

002362

002270

002362

CLRNO

FRSTIM

000007
000007

6
PAGE 2-55

NEWST:

002012

;CLEAR WORD USED TO RUN MICRO TESTS ON

:EVERY OTHER MASTER CLEAR.
;IS THIS THE TIME THROUGH AFTER LOAD?

1%
#1,FRSTIM

:IF NOT = ERROR TRAP VECTOR ALREADY SAVED
;FLAG THAT WE'VE BEEN THRU THE 1ST TIME

CLRVEC

;ENSURE VECTOR 4 IS IN NORMAL STATE.

FRSPAS

:CLEAR COUNTER FOR # OF PASSES AFTER LOAD

;1S THIS JUST STARTED?

BCOMPLETE STARST

:IF YES = BRANCH.

READEF #EF .RESTART

;IS THIS A RESTART ?

BCOMPLETE STARST

:IF YES = BRANCH.

READEF #EF .NEW

;1S THIS A NEW PASS?

BCOMPLETE NEWST

:IF YES - BRANCH

READEF

;IS THIS A CONTINUATION?

#EF.CONTINUE

MOV
TRAP

#4 RO
CSCVEC

MOV

#EF .START
RO

B8CS

STARST

MOV
TRAP

#EF .RESTART
,RO
CSREFG

BCS

STARST

MOV
TRAP

#EF .NEW,RO
CSREFG

BCS

NEWST

MOV

#EF . CONT INUE ,RO

BCC

GETPRM

TRAP

CSREFG

BNCOMPLETE GETPRM

:IF NOT = GET PARAMETERS

JMP

END

;OTHERWISE = DON'T INITIALIZE.

CLR

STARES

;CLEAR THE FLAG TO SHOW START/RESTART.

MOV

#-1,LOGDEV

INC

STARES

;INCREMENT # OF PASSES SINCE START/RESTART.

LOGDEV

sNEXT LOGICAL UNIT TO BE TESTED

NEWST

:IF YES = DO A NEW START

INC

GETPRM:

SEQ 0078

BNE
MOV

INC

CMP

BGE

GPHARD

FRSPAS

LOGDEV,LSUNIT
LOGDEV,R1

BNCOMPLETE

002252

READEF #EF .START

103412

012700
104447

CLR

103416

020666
020666

4285
(3)
(3)
(3)
4286
(2)

002266

002264
1$:

4281
4282

4283

000001

09:36

MOV
MOV
BIT
BEQ
BIC

GETPRM

(R1)+,WTYPE
(R1) ,RO

#7 RO
108

#7,(R1)

;INITIALIZE LOGICAL UNIT NUMBER.

:INCREMENT # OF PASSES AFTER LOAD.

:IS THE MAXIMUM UNIT # EXCEEDED?

:GET THE P-TABLE POINTER INTO R1

MOV
TRAP
MOV
;IF NOT AVAILABLE, GET THE NEXT ONE
BCC

:MICROPROCESSOR TYPE
:SAVE THE ADDRESS

LOGDEV,RO
CSGPHRD
RO.R1
GE TPRM

*DOES THIS osvxcs ADDRESS END IN NON-ZERO?
2IF NOT = OK (76XXX0)

IMAKE IT 76XXX0

CZCMIAO DMR-11 FLNCTIMWT%ETS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-8
INITIALIZE SECTION
4292

020734

(9)
(8)
(7)
(6)
(3)

020734
020736
020740
020744
020750

010046
011146
012746
012746
01

(4)

020754

429 020760
4295 020764
429 020770
4297 0207764
4298 021000
4299 021006

(4)

4293

4300

020752

020760

021012

PRINTB

4313
(9)

(8)
(7)
(6)
(3)
(&)

(4)

4314

4315
4316
4317

4318
4319

4320

021072
021076
021100

021104
021104

#FINIT1,(R1),RO :INFORM THE USER

062706

000010

ADD

#10,5P

011137
011137
005237
011137
062737
011137

002232
002242
002242
002234
000002
002244

104414

062737

032700
001414
042711

000003

TRAP

108:

002234
002244

MOV
MOV
INC
MOV
ADD
MOV

(R1),CSR
(R1) .BSEL1
BSEL 1
(R1),SEL2
#2,SEL2
(R1) ,BSEL3

MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV

(R1),SEL4
#4,SELL
(R1) ,BSELS
#5 BSELS
(R1),SEL6
#6,SEL6
(R1)+,BSEL7
#7 .BSEL7
(R1) ,RO

PRINTB

#FINIT2,(R1),RO :INFORM THE USER

ADD

002236

002246
002240
002250

000007

BIT
BEQ
BIC

000007

010046

#3 ,BSEL3

#7 RO
11$
#7,(R1)

23352

;CONTROL OUT REGISTER ADDRESS
:HIGH BYTE OF SEL2

;PORT REG (SEL 4) ADDRESS

;HIGH BYTE OF SEL4
;PORT REG (SEL 6) ADDRESS
:HIGH BYTE OF SEL6
*GET VECTOR

:DOES THIS VECTOR END IN NON-ZERO?
*IF NOT = OK (XX0)
*MAKE IT XX0

062706

000010

ADD

#10,SP

011137
011137
011100

002226
002230

021130
021134
021140

104414

105060
105060

TRAP

11$:

000003
000007

MOV
MOV
MOV

CLRB
CLRB

(R1) ,DMRVEC
(R1) .DMTVEC
(R1) .R

3(RO)
7(RO)

RO,=(SP)

CSPNTB

:RCV. VECTOR
*TRANSMIT VECTOR
*RCY. VECTOR

*CLEAR HI BYTE OF PSW FOR RCV. VECTOR.
:CLEAR HI BYTE OF PSW FOR XMIT. VECTOR.

*THIS WILL ENSURE THAT WE DON'T PICK

:UP ANY UNEXPECTED BITS IN PROCESSORS
*WHICH USE BITS 11-15 OF THE PSW.
IE

021152

062737

000004

002230

ADD

#4 ,DMTVEC

:IF BIT 11 IS SET IN AN 11/70 ANOTHER
*REGISTER SET MAY BE USED.

*ADJUST XMIT VECTOR

;SET UP ISRS FOR DMR.

ggg
(7)
(6)
(5)

:HIGH BYTE ADDRESS OF CSR

(R1),=(SP)
#FINIT2,-(SP)
#3,-(SP)
SP.RO

4327
4330

:CSR ADDRESS

021605
000003

4321
4322

4323
4324,

C$PNTB

MOV
MOV
MOV
MOV
MOV

021126

021142
021146

SEQ 0079

021512
000003

011146
012746
012746
010600

021130

PAGE 2-56

RO,=(SP)
(R1),=(sP)
mnm -(SP)
3,-(SP)
sp‘RO

021106
021110
021114
021120

021122

MOV
MOV
MOV
MOV
MOV

4301 021020 011137 002236
4302 021024 062737 000004
4303 021032 011137 002246
4304 021036 062737 000005
4305 021044 011137 002240
4306 021050 062737 000006
4307 021056 012137 002250
4308
021
062737 000007
4309 021070 011100
4310
4311
4312

09:36

*TESTS 15-19.
021160

021160
021164
021170

012746
012746
013746

000240
021772
002226

SETVEC

DMRVEC,#INISR.#PRIOS

:INPUT ISR

INTERRUPTS ENABLED IN

MOV
MOV
MOV

#PRI0S,~(SP)
#INISR.-(SP)
DMRVEC
.~ (SP)

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P1T
13-MAR-80 09:34
INITIALIZE SECTION

021174

09:36

7
PAGE 2-57
SEQ 0080

012746

000003

062706

000010

012746
012746
013746
012746

000240

023054
002230
000003

#PR105,-(SP)
#OUTISR,=(SP)
DMTVEC,=(SP)
#3,-(SP)

062706

000010

#10,SP

021234
021240

062701
012137

000014
002254

ADD
MOV

#14 ,R1

s INCR. P-TABLE POINTER.

021244

013700

002224

MOV

SPEED ,RO

;GET THE SOFTWARE P-TABLE VALUE GIVEN
;BY THE USER

012701
012702

000002
000012

104437

021250

SETVEC

DMTVEC,#OUTISR,#PRI05

C$SVEC

13%:
14%:

(R15+,DMTURN

010137

021304

002310

;GET FIRST TIMER VALUE
;GET SECOND TIMER VALUE

ASL
ASL

; TIMER VALUES X 2
: DEC SPEED VARIABLE
; CONTINUE UNTIL DONE INCREASING WAIT VALUES

MOV

002312

ASR
ASR
MOV

R1,WAITY
R1
R1
R1,WAIT?2

010237

002314

MOV

R2,WAIT3

021310

012737

000333

002304

MOV

#333,AX3

021316

022737
001004
042737
000427

000001

002254

cMP

#1,DMTURN

000020

002304

BIC

208
#BIT4 AX3
308

022737
001004
042737
000417

000002

002254

CMP

#2 ,DMTURN

000010

002304

022737
001004
042737
000407

000003

002254

000100

002304

022737

000004

002254

000200

002304

20%:

22%:

25%:

URNAROUND

MOV
MOv

DEC
BNE

021270
021274
021276
021300

sOUTPUT ISR

#3,-(SP)
CSSVEC
#10,SP

BIC

22%
#BIT3,AX3
308

CMP

#3 ,DMTURN

BIC

25%
#BIT6,AX3
308

CMP

#4 ,DMTURN

BIC

#BIT7,AX3

35$

sSAVE TIMER VALUE FOR SWAIT
JHALF THAT VALUE
sHALF IT AGAIN.
sSAVE TIMER VALUE FOR SMSCLR AND $CLRQI
s SUBROUTINES.
;TIMER VALUE FOR $INOUT SUBROUTINE.
s CHECK TURNAROUND.
:MASK FOR AX3-15 - BIT CLEARED WILL
;BE THE INTERFACE SELECTED.

;1S V.35 REQUESTED?
s IF NOT = CONTINUE

:SELECT v.35

s1S INTEGRAL REQUESTED?
s IF NOT = CONTINUE.

sSELECT INTEGRAL MODEM.

;1S EIA REQUESTED?
sIF NOT = CONTINUE.
sSELECT EIA(XY2).
;1S RS422 REQUESTED?

:IF NOT, DON'T ALLOW INTERFACE CHANGE.
:SELECT RS422.

CZDMIAO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80
CZDMIA.P11
13-MAR-80 09:34
INITIALIZE SECTION
4378
4379

021414
021414

012737

000001

4381
4382

021424
021424

005037

002262

4384
4385
4386
4387
4388
4389

021434
021434
021442
021444
021452
021454

022737
001414
022737
001410
022737

000001

002254

000003

002254

000006

002254

4391

021464

022737

000007

002254

002306

4380

4383

4390

021422

021430

021462

000404

005037

001404

002262

308:

35%:

002304

408:

MOV

B8R

CLR

09:36

PAGE 2-58

#1, INFACE

408

INFACE

;SET FLAG THAT ALLOWS INTERFACE CHANGE.
;CLEAR FLAG = NO INTERFACE CHANGE.

CLR

AX3

:CLEAR AX3 BITS

CMP
BEQ
CMP
BEQ
CMP

#1,DMTURN
45$
#3,DMTURN
45$
#%,DMTURN

;1S
*IF
*1S
:IF
:1S

BEQ

SEQ 0081

THIS v.35?
YES = SET WRITE MAINT. BIT
THIS EIA?
YES = SET WRITE MAINT. BIT
THIS LOCAL LOOP?

45$

:IF YES - SET WRITE MAINT. BIT.

50$

:IF NOT = CLEAR MAINT. BIT FLAG

MOV
BR

#1,WMAINT
END

;SET FLAG TO WRITE MODEM MAINTENANCE BITS.

CLR

WMAINT

:CLEAR FLAG - DON'T WRITE MAINT. 1 OR 2.

cMP

#7 .DMTURN

:1S THIS REMOTE LOOP?

2§g§

85}2;5

001004

43%
4395
439
4397
4398
4399
(3)
(3)

021476
021502
021504
021504
021510
021510
021510
021510

012737
000402

000001

005037

002306

021512

040445

025052

053440

FINIT1:

.ASCIZ

/%A** WARNING - WILL ASSUME DMR ADDRESS Z06%A (NOT %06XA) %N/

4401

021605

045

025101

000
020052

FINIT2:

.ASCIZ

/X%Ax* WARNING = WILL ASSUME DMR VECTOR

040445

022451

000

4400

664

4402

4412

021672

104411

508:
END:
ENDINIT

BNE

L10014:

.EVEN

.SBTTL

AUTO DROP UNIT SECTION

TRAP

CSINIT

XC3%A (NOT XO3%A)%N/

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
CZDMIA.P1T
13-MAR-80 09:34
AUTO DROP UNIT SECTION
W14

PAGE 2-59

SEQ 0082

SITITITI
7000777777777
TIIT
777777777777777
TIIT
77777777777777¢
ITTT
72777777777
:/ THE AUTO DROP CODING DETERMINES WHETHER OR NOT THE DEVICE WHOSE P-TABLE
:/ WAS JUST OBTAINED IS READY FOR TESTING, AND IT IS DROPPED IF NOT READY.
SITITTITTIITIITI7777
7700700777777 7777777777777777777777777777177177777777777

BGNAUTO

LSAUTO: :

000340
023512
000004
000003

021732

000010
002340
160274
MR

SETVEC

#4 ,#NOXMEM,#PRIO7 ;SET UP NON -EXISTENT MEMORY TRAP VECTOR.

CLR
TST

FLAG
aCSR

Rt d

MOV
MOV
MOV
MOV
TRAP
ADD

#PRIO7 ,-(SP)
#NOXMEM,
- (SP)
#4 ,~(SP)
#3,-(SP)
CS$SVEC
#10,SP

;CLEAR FLAG THAT WILL BE SET IF NXM OCCURS.
;REFERENCE MEMORY ADDRESS FOR THE DEVICE
:TO SEE IF IT EXISTS.

Rttt st
ittt
t
2222223322222222
t
222322223

: IF THE DEVICE DOESN'T EXIST THE RESULTANT TRAP TO VECTOR 04 WILL
; CAUSE THE DEVICE TO BE DROPPED (SEE INTERRUPT ROUTINE °‘DROP04').
; OTHERWISE THE MEMORY REFERENCE IS UNEVENTFUL AND THE DEVICE IS READY.

Rttt il
22222223222222222227

CLRVEC

002340

JRETURN VECTOR 04 TO NORMAL STATE

TST

FLAG

sDID NXM OCCUR?

DODU

LOGDEV

:DROP THE DEVICE

BEQ

002362

DOCLN

002340

CLR

4455

.SBTTL

#4,RO
C$CVEC

MOV
TRAP

LOGDEV RO
C$D0ODU

TRAP

CSDCLN

TRAP

CSAUTO

:IF NOT EXIT

;DO CLEAN UP - FORCE BACK TO INIT CODE.
FLAG

ENDAUTO

4451

MOV
TRAP

;RESTORE FLAG.

L10015:

CLEANUP CODING SECTION

SILITIIIIIIITII77707007000000077777777777707077700007777210010771217110722111
o f
THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED AT THE
2f
END OF THE TEST SEQUENCE ON A PARTICULAR UNIT.
THIS SECTION IS REQUIRED

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
CZDMIA.P1
13-MAR-80 09:34
CLEANUP CODING SECTION
4456
222;
4459
(3)
4460
4461

(3)
(3)

4462
4463

7
PAGE 2-60

SEQ 0083

s/ EVEN IF IT IS A NULL CLEANUP
SIITITITITI777777777777777777777777777777777777777777777777777777272777777777
021770
021770

BGNCLN

021770

ENDCLN

021770
021770

LSCLEAN::

sNULL CLEANUP

L10016:

104412

TRAP

CSCLEAN

4464

4465

4466

4467
4468

2298

.SBTTL

4471
4472
4473
4474

/////////////////////////////////////////////////////////////////////
/ THE INTERRUPT HANDL ING SECTION CONTAINS CODING REQUIRED TO USE
:/ THE 'SETVEC' MACRO.
NOTE EVERY INTERRUPT ROUTINE SHOULD SAVE
:/ AND RESTORE RO.

22;2

4477
(3)
4478
4479
4480
4481
4482
4483
4484
“85

;/////////////////////////////////////////////////////////////////////

021772
021772
021772
021774
021776
022002
022006
022014
022016

BGNSRV
010046
010146
017701
042701
032777
001002
000137

160230
177760
000200
022526

160216
,

4502
4503

4504
4505
(4)
(5)

;

; PROCESS INPUT COMMAND

“89

4495
4496
4497
4498
4499
4500
4501

RO,-(SP)
R1,-(SP)
aSELO,R1
#177760,R1
#RD] ,aSELO
1% .
NEXT

s INPUT INTERRUPT SERVICE ROUTINE
INISR::
;SAVE RO
;SAVE R1
*SAVE THE CONTROL IN COMMAND.
;CLEAR ALL BUT THE COMMAND BITS (0-3)
;IS RDI SET
:1F YES = PROCESS INPUT COMMAND.
s ISSUE NEXT INPUT COMMAND.

;tttttttttttttttttttttttttttttttttttttttlQtttt"ttttttttt't'ttfitttttt

223;

4492
4493
4496

INISR
MOV
MOV
MOV
BIC
BIT
BNE
JMP

4486

4490
4491

GLOBAL INTERRUPT HANDLING ROUTINES

022022
022022

022026
022030
022034

022036
022042
022044
022050
022052
022056
022060

022064
022066

022072
022074
022074
022076

022701

001533
022701
001537

022701
001461
022701
001444
022701
001417
022701

001410
022701

001572

104455
000021

000004

000000
000003

000001
000005
000015
000002

1%:

:-tttttttttttttttttttttttttttttttl*tttttttttttttfitfitittttttttttttttitt

CMP

BEQ
CMP
BEQ

CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
ERRDF

#BACCR,R1

29%
#BACCT R
308

#BASE ] ,R1
208
#CNTRL ,R1
15%
#WMODEM, R
108
#INTER,R1

5%
#HLT R
708
17 ,EMG17,ERRGZ

;1S THIS A RCV. BA/CC?

;BR IF YES.
218 THIS A XMIT. BA/CC?
:BR IF YES.

;1S THIS A BASE IN?
;BR IF YES.
;IS THIS A CONTROL IN?
;BR IF YES.
;1S THIS A WRITE MODEM?
;BR IF YES.
;IS THIS AN INTERFACE WRITE.
;BR IF YES.
;IS THIS A HALT?
JEXIT = IF YES (NOTHING TO SET UP)
;PROBLEM IF IT'S NOT ONE OF THE ABOVE.
TRAP
.WORD

CSERDF
17

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-61
CZDMIA.P11
13-MAR-B0 09:34
GLOBAL INTERRUPT HANDL ING ROUTINES
(5)
(5)
2289

022100
022102
022104

020405
015070
000565

4508
4509

022106

4512
4513
4514
4515
4516
4517
4518
4519

022106

113777

022114

000561

; WRITE AX3-15

002304

160134

022116

108:

MOVB

AX3,aBSEL7

70%

JWRITE NECESSARY AX3-15 INTERFACE.
;AX3 HAS BEEN DETERMINED IN THE INIT
;CODE.

. MODEM WRITE

4522
4523
4524
4525
4526
4527
4528

022116
022124
022126
022134
022142
022144
022144

4530
4531
4532

022160
022162

4535
4536
4537
4538
4539
4540
4541
4542
4543

022162
022166
022170
022176
022200
022200
022204
022206

2229

022206

012777

002630

4548
4549
4550
4551
4552

022214
022220
022222
022230
022232

005737
001004
012777
000402

002276
'
000522

005077

160002

005737
001004
052777
000406

002272

022152

022737
001007
042777
052777
000546
042777
052777
000537

000006

002254

000004
000010

160104
160076

000010
000004

160066
160060

11%:

15%:

CMP
BNE
BIC
BIS
BR

#6 ,DMTURN
11%
#MAINT2 ,@SEL6
#MAINT1,aSELE6
708

;IS LOCAL MODEM LOOPBACK DESIRED?
:BR IF NOT
;ENSURE REMOTE LOOPBACK IS CLEAR.
;SET MAINTENANCE 1 BIT

BIC
BIS
BR

#MAINTT,3SEL6
#MAINTZ ,@SEL6
708

;ENSURE LOCAL LOOPBACK IS CLEAR.
;SET MAINTENANCE 2 BIT.
:CLEAR RQI

22;:.3

;CONTROL IN

005737
001404
012777
000530
005077
000525

002300
000400

160042

17%:

160034

20%:

25522

4559

EMG17
ERRGZ

225?

4553
4554
4555
4556
4557
4558

JEXIT

.WORD
.WORD

5%:

22}?

4529

70%

SEQ 0084

TST
BEQ
MOV
BR

MNTMDE
17%
#MAINT ,aSEL6
708

;IS MAINTENANCE MODE REQUESTED
:BR IF NOT
JREQUEST MAINT. MODE

CLR
BR

aSEL6
70%

sFULL DUPLEX = NON-MAINT. MODE.

MOV

#BASE ,aSELS4

;BASE TABLE ADDRESS.

TST
BNE
MOV
BR

DMCMDE
22%
#DMR ,aSEL6
23%

;ARE WE IN DMC MODE?
:BR IF YES
;DMR MODE.
;CHECK LOOPBACK.

CLR

aSEL6

;DMC MODE

TST
BNE
BIS
BR

START
24%
#1E0,QSEL2
25%

;1S THIS THE FIRST BASE IN?
JIF NOT = SET RESUME.
JON FIRST BASE IN SET RDO INT.ENABLE.

;BASE IN

022232
022236
022236
022242
022244
022252

022254

000100

160022

160010

22%:
23%:

157762
24%:

H 7
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-62
CZDMIA.PI
13-MAR-80 09:34
GLOBAL INTERRUPT HANDLING ROUTINES

022254
022262
022270

022314

052777
012737

010000
177777

157756

BIS
MOV

002352

25%:

005737
001004
052777
000465

002254

004000

157726

042777

004000

157716

27%:

000461

#RES ,@SEL6
#-1,RESFLG

;SET RESUME
sFLAG THAT THIS IS A BASE IN RESUME COMMAND

; (THIS WILL BE USED LATER IN THIS ISR TO

;DECIDE WHAT THE NEXT COMMAND WILL BE)
BNE
BIS
BR

TST

DMTURN

27%
#LPLU,QSELO
708

;1S INTERNAL LOOPACK REQUESTED?
:BR_IF NOT - CLEAR LU LOOP
sSET THE LINE UNIT LOOPBACK BIT
;CLEAR RQI AND EXIT.

BIC

#LPLU,QSELO

:Ekgfg)LlNE UNIT LOOPBACK (CONNECTOR OR

B8R

708

*CLEAR RQI AND EXIT

*BA/CC IN RCV
022316
022316
022322
022326
022332

005337
012277
012277
000406

29%:

002324

157710
157706

005337
012377

002326

012377

157672
157670

005737

002302

001441

022356

052777

040000

022364
022366
022372

010246
017702
042777

157644
160000

042702

022420

001004
052777

022426

000412
022702
001004
052777

022444
022446
022446

INRCV
(R2) +,9SEL4
(R2)+,3SEL6
40%

;DECREMENT COUNTER

sRCV BUFFER ADDRESS

sRCV CHARACTER COUNT

*BA/CC IN XMIT

b
022334
022334
022340
022344
022350
022350
022354

DEC
MOV
MOV
BR

30%:

40%:

INXMIT
(R3)+,SEL4
(R3)+.aSEL6

TST

MMANAG

BEQ

157654

#BIT14,3SELG

MOV
MOV

R2,-(SP)
aSEL4 ,R2

017777
060000

BIC

100000

CMP

020000

CMP

157610
41%:

120000

040000

157572

060000

157562

42%:

708

BIS

BIC

157636

000403

052777

DEC
MOV
MOV

#160000,3SEL4

#17777 .R2

sDECREMENT COUNTER

sXMIT BUFFER ADDRESS.
JXMIT CHARACTER COUNT.
;ARE THE BUFFERS MEMORY MANAGED?

:1F NOT SKIP CONVERTING VIRTUAL ADDR

:TO PHYSICAL ADDR.

:SET BIT 16 OF PHSICAL ADDRESS (I.E.
:VIRTUAL ADDR 60000
= PHYSICAL ADDR 200000

:SAVE R2 (NEXT RCV BUFFER ADDRESS)

;SAVE THE VIRTUAL ADDRESS.
:CLEAR BITS CORRESPONDING TO THE PAGE #
sIN THE VIRTUAL ADDRESS.
:SAVE ONLY THE_PAGE # IN THE SAVED ADDR.

#60000.R2
448

z;goooo.nz

;1S THIS PAGE 3?
:IF YES, PHYSICAL ADDRESS CALCULATED
:1S THIS PAGE 4?

BIS

#BIT13,aSEL4

SSET BIT FOR PHYSICAL ADDR (I.E. VIRTUAL

B8R

448

#120000,R2

;IF NOT SEE IF IT'S PAGE 4 OR 5

:ADDR 100000
= PHYSICAL ADDR. 220000

;IS THIS PAGE 4?
:IF NOT, MUST BE PAGE 5.
:SET BIT FOR PHYSICAL ADDR (I.E. VIRTUAL

BIS

42%
#BI1T14,aSELL

449

BIS

#BIT14!BIT13,aSELS SET BIT FOR PHYSICAL ADDR (I.E. VIRTUAL
:ADDR 140000 = PHYSICAL ADDR. 260000

:ADDR 120000 = PHYSICAL ADDR. 240000

SEQ 0085

7
CZDMIAO DMR-11 FWCTIMWngTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-63
CZDMIA.P11
13-MARGLOBAL INTERRUPT HANDLING ROUTINES
4616

4617

022454

448:

012602

4618 022456 000400

4620

4621

022460

4622

022460

010137

002356

4624
4625

022464
022470

005737
001011

002276

4623

4626
4627
4628

022472

012601

4629

022474

012600

4631

022504

042777

4633

022512

000002

4635
4636
4637

022514
022514
022522

042777

4630

4632

4638

022476

708

050777

000040

157526

022526

022534
022536
022542
022544
022550
022552
022556
022560
022560

4655
4656

022570
022570

4657

4658

4659
4660
4661
4662

000020

TST
BNE

DMCMDE
808

:ARE WE IN DMC MODE?
:1F YES = DON'T USE IECLR

:TO_DETERMINE NEXT INPUT COMMAND)

:NOTE: “ INTERRUPT CAPABILITY FOR RQl
:CLEAR IS ONLY AVAILABLE IN DMR MODE.

(SP)+.R1

:RESTORE R

(SP)+.RO

:RESTORE RO

#ROI,@SELO

:CLEAR RQI = INT. GENERATED WHEN RDI

WIECLR,@SELO

157510

80s:

BIC
CALL

:SET INTERRUPT ENABLE FOR RDI CLEAR.

:CLEARS IN RESPONSE.

:RETURN AND WAIT FOR RQI CLEAR INTERRUPT.

AIECLR,@SELO
SCLRQI

ML AR AR

022737

001015
005737
001541
005737
001403
005737
001133

112777

000002

002356

AR s

;ENSURE INTERRUPT ENABLE FOR RDI CLEAR IS CLR.
:CLEAR RQI AND WAIT FOR RDI TO CLEAR.
ittt

ittt

002350

000143

157444

000527

022574

005737
001032

002276

022576
022604

022737
001405

000003

002356

022737
001413

000015

002356

000421

4665
4666
4667
4668

022620
022624
022606
022632

005737
001407
005737
001004

002262

470

022634

112777

000155

022642

000501

106$:
1108:

002272
157370

1222222332222,

:'t!l’ttttt.tttttt"'tttt.ttfitifittfit'.t..t".t'ttttt*t'.tt.ttttt.ttttt.

CMP

002346

022566

022606
022614

002274

022616

4671

;SAVE THE INPUT COMMAND (USED

RTI

4663

4669

R1,LAST

¢
: RDI CLEAR = DETERMINE NEXT INPUT COMMAND.

4645
4646
4647
4548
4649
4650
4651
4652
4653

4654

MOV

BIC

‘6‘2

4644

:CLEAR RQI AND EXIT

BIS

157520

;RESTORE R2 (NEXT RCV BUFFER ADDRESS)

708

MOV

000020

(SP)+,R2

MOV

4639
4640
4643

MOV

SEQ 0086

#HLT,LAST

:WAS THE LAST COMMAND A HALT?

BNE
TST
BEQ
ST
BEQ
ST
BNE

1108
RESUME
1708
INFLAG
1068
OUTFLG
1708

MOVB

AIESET!RQI!BASEI,ASELO ;ISSUE A BASE IN.

1708

JEXIT

TST
BNE

DMCMDE
1308

:ARE WE IN DMC MODE?
:1F YES = DON'T BOTHER CHECKING MODEM

CMP
BEQ

#BASEI,LAST
1158

:WAS THE LAST COMMAND A BASE IN ?
:IF YES - SEE IF INTER. OR M. WRITE IS NEEDED?
(WAS THE LAST COMMAND AN AX3-15 WRITE?

:1F_NOT = PROCEED.
:ARE WE TESTING RESUME?
:1F NOT, DON'T ISSUE ANOTHER COMMAND.
:INPUT BUFFER DONE?
:IF_NOT, BASE IN.
:OUTPUT ‘BUFFER DONE?
:1F YES, DON'T ISSUE ANOTHER COMMAND.

:WRITE AND AX3=15 WRITE COMMANDS

CMP
BEQ

WINTER,LAST
1178

1308

;KEEP CHECKING FOR NEXT COMMAND.

TST
BEQ
TST
BNE

INFACE
1178
START
1178

;1S AN AX3=15 WRITE NEEDED?
:BR IF NOT
:WAS CONTROL IN ISSUED?
:IF YES = NO NEED TO REWRITE AX3-15. THIS

MOVB

#IESET!RQI!INTER.QBSELO ;ISSUE AN AX3-15 WRITE COMMAND.

1708

:SHOULD HAVE BEEN DONE ON THE 157 BASE IN.

7
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=64
CZDMIA.P
13-MAR-80 09:34
GLOBAL INTERRUPT HANDLING ROUTINES
4672
4673
4674
4675
4676

4677

4678
4679
4680

4681
4682
4683

4684

4685
4686
4687
4688

4689
4690
4691
4692

4693
469
4695
4696
4697

4698

4699

4700
4701
4702
4703
4704
4705

4706
4707

4708

4709

4710

4711
4712
4713

4714
4715
4716

4717

4718
4719
4720
4721

022644
022644
022650
022652
022660

005737
001404
112777
000472

002306

022662
022666
022670

005737
001006
005237

002272

112777
000461

000141

005737

002324

022662

022674
022702
022704

022704

022710
022712
022716
022720
022726
022730
022734

001424
005737
001415
032737

001411
005737
001004

000145

002272

000001

000142

022746

005037

002352

112777
000432

000144

005737
001424

002326

022770
022774

022776

023004

023006

023012

005737
001415

032737

001411

005737

001004

1308:

157330
1508:

002324

1528:
1538

1608:

MOVB
BR
TST

START

;WAS A CONTROL IN ISSUED?

:gngT'ROI'WDEM,@BSELO ;ISSUE A MODEM WRITE COMMAND
;IS;OS

gg
YES - SKI

?%EET‘ROI'CNTRLESELO ISSUE A CONTROL IN
INRCV

cARE ALL THE BA/CC IN RCVS DONE?

RE SUME

1S A TEST OF RESUME REQUESTED?

#8IT0, INRCV

;1S THIS AN ODD COUNT?

160%

1538

RESFLG

152%

sIF YES = BR TO SEE IF XMITS DONE.

:BR IF NO

:BR IF NOT.

:WAS THE LAST camm A BASE IN RESUME?.

:1F YES, ISSUE BA/CC

JHALT = TO TEST RESUME.
NOTE: THIS WILL
;OCCUR ONLY WHEN RESUME IS REQUESTED,
sFOLLOWING EVERY OTHER BA/CC
:COMMAND
(NEVER FOLLOWING A RESUME)

CLR

RESFLG

MOVB
BR

f%giET!RQI!BACCR.ESELO sISSUE A BA/CC IN RCV.

INXMIT

165%

RE SUME

COMMAND.

sARE ALL THE BA/CC IN XMITS DONE?

:IF YES, SET THE FLAG

:1S A TEST OF RESUME REQUESTED?

:BR IF NOT.

163$

:BR IF NOT,

162%

:IF YES, ISSUE BA/CC
HALT ="TO TEST RESUME.
NOTE: THIS WILL
sOCCUR ONLY WHEN RESUME IS REQUESTED,

#BITO, INXMIT

TST

RESFLG

BNE

;CLEAR FLAG.

163$

BIT

BEQ

002352

;WRITE MAINT1 OR 2?
; IF NOT = SKIP WRITE MODEM COMMAND.

f;ggET'RQI'HLTLABSELO ;HALT IT

TST
BEQ

002326

WMAINT
1308

MOVB
BR

TST
BEQ

002274
000001

TST
BNE
INC

BEQ
TST
BNE

157266

157252

TST
BEQ
MOVB
BR

BEQ
TST
BEQ
BIT

002352

112777
000440

022752
022752
022760
022762
022762
022766

157352

002274

022736
022744

022746

1178:

SEQ 0087

;1S THIS AN ODD COUNT?

:WAS THE LAST COMMAND A BASE

IN RESUME?

FOLLOUING EVERY OTHER BA/CC

023014
023022
023024
023024
023030
023030
023036
023040

112777
000411

000142

005037

002352

112777
000403

000140

157174

177777

002346

4722
4723
47k

023040

012737

4726
4727

023046
023046

012601

157210
1628:

1638:
1658:

1708:

COMMAND

(PEVER FOLLOWING A RESUME)

MOV
BR

?‘;(E)gET'RQI'HLTESELO SHALT IT

CLR

RESFLG

MOVB
BR

q%EET!ROI!BACCT.ESELO sISSUE A BA/CC IN XMIT COMMAND.

MoV

#-1,INFLAG

;FLAG THAT ALL BA/CC INS DONE.

MoV

(SP)+,R1

JRESTORE R1

;CLEAR BASE IN RESUME FLAG.

7
CZDMIAO DMR-11 FUNCTIONAL TEETS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=65
CZDMIA.P1
13-MAR-80 09
GLOBAL INTERRUPT HANDL ING ROUTINES

023050

012600

MOv

(SP)+,RO

SEQ 0088

sRESTORE RO

ENDSRV

L10017:

000002
A

A A A A A A AR A

AR AR R AR

AR AR

AR AR AR

RTI

R Rk

b4 tt..tf‘t"ttttfi'tttfi.ttt'ttttfi'.t't'tQ"t.Qtt"fititt't'.'t'tttt'ttfitt

BGNSRV

010046
032777
001006

000200

MOV

157150

104455
000022

020457
015070
000137

032777
001436

023450

OUTISR
#RDO,aSEL2

ERRDF

18,EMG18,ERRG2

001000

157120

#HALTC,aSEL6

000040

157110

#DMRRUN ,@SEL6

#CNTRL ,@SEL2

7%:

108:

16%:

023450
002302

040000* 157016

20%:

.WORD
.WORD
.WORD

108
65%

9.EMGY ,ERRG2

sUNEXPECTED CONTROL OUT.

108

002350
002274

TRAP

;1S THIS A CONTROL OUT
:IF NOT - PROCESS BA/CC OuT
s1S THIS CONTROL OUT A HALT?
¢IF IT IS = SEE IF WE SHOULD RESUME.
:1S THIS DMR RUN MODE ACKNOWLEDGE?
:IF NOT = REPORT ERROR
JEXIT

208

15%:

:1S THE RDO OUT BIT SET?
;IF YES = OK TO PROCEED.
;OTHERWISE REPORT SPURIOUS INTERRUPT

60%

5%:

157124

002346

032777

000001

023500

3206
023212
023214

RO,=(SP)

BIT
BNE

OUTPUT INTERRUPT SERVICSUROUTINE
TISR:
;SAVE RO

65%

sEXIT ROUTINE

INFLAG
15%
OUTFLG

cARE THE INPUTS DONE?

60%

;1S A RESUME REQUESTED?
:IF YES - OK, BR TO EXIT

ERRDF

16.EMG16

;ERROR = UNEXPECTED HALT.

TST

MMANAG
4«08

#B1T14,3SEL6

9
EMG?
ERRGZ

TRAP

CSERDF

:IF YES - ALL DONE, EXIT

65%

BEQ
BIT

CSERDF

WORD
.WORD
.WORD

:BR_IF NOT

RE SUME

60%

18
EMG18
ERRGZ

;ARE THE OUTPUTS DONE?

TST

JMP

TRAP

CSERDF

WORD
.WORD
WORD

;ARE THE BUFFERS MEMORY MANAGED?

16
EMG16
O

*1F NOT = NO NEED TO DETERMINE PHYS. ADDR.
1S BIT 16 OF THE PHYSICAL ADDR SET?
*(1.E. BUFFER SHOULD BE IN PHYSICAL

7
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-66
CZDMIA.P11
13-MAR-80 09:
GLOBAL INTERRUPT HANDLING ROUTINES
001005

BNE
ERRDF

104455

000013
020214
015070
000505

042777

140000
156766

156774

160000

156754

017777

21%:

BIC
BIC
BIC

156742

100000

022702
001004
052777
000403

22%:

23%:

120000

156706

140000

156676
156666

TRAP

01777? R2

*SAVE ONLY PAGE ADDRESS BITS.

*DETERMINE PAGE # FOR VIRTUAL ADDRESS.
*IS THIS PAGE 3?

#60000,3SEL4
408

:SET BITS FOR PAGE 3.

#20000,R2

;1S THIS PAGE 4?

#100000.35EL4

*SET BITS FOR PAGE 4.

#160000,@SEL4
22%

408:

002332
156656

*IF NOT CHECK FOR OTHER PAGES

:IF NOT = KEEP CHECKING

;1S THIS PAGE 5?

#140000,@SEL4

;SET BITS FOR PAGE 6.

#RCV,aSEL2
508
OUTXMT
(RS)+,@SEL4
413
(RS)+
11,EMG11,ERRG8

;1S THIS A RECV. BUFFER?
*IF YES - PROCESS THE BUFFER.
*DECREMENT BA/CC OUT XMIT.
:IS THE XMIT BUFFER ADDRESS CORRECT?
*IF YES - PROCEED.
*INCR. POINTER FOR ERROR MESSAGE.
:IF NOT = ERROR

*IF NOT = MUST BE PAGE 6
:SET BITS FOR PAGE 5.

TRAP

022577
001422

156636

41%:
BEQ
ERRDF

104455

000014
020241
016056
000415

005337
022477
001406

002330
156610

50%:

DEC
BEQ

11
EMG11
ERRG2

:CLEAR PAGE ADDRESS BITS IN SEL4

#40000 R2

24$
zazooooL@SEL4

24%:

(SERDF

WORD
JWORD
.WORD

xexr1s'axr14 @SEL6 ;CLEAR THE EXTENDED ADDRESS BITS.
aSEL4 ,R2
;SAVE BITS 0-15 OF THE
PHYSICAL ADDRESS.

238

156724

040000

11,EMG11,ERRG2

sADDRESS RANGE: 200000 = 277776)
*PROCEED = IF BIT SET.

608

TST

020000

218

SEQ 0089

608

:EXIT ROUTINE

(RS)+,aSEL6
608
12.EMG12,ERRG8

;1S THE CHAR. COUNT CORRECT?
:IF OK = EXIT ROUTINE.
:IF NOT - ERROR

CSERDF

JWORD
.WORD
.WORD

.11
EMG11
ERRG8

TRAP

CSERDF

JWORD
.WORD
.WORD

60%

SEXIT

OUTRCV
(R4)+,3SEL4
51$

;DECREMENT BA/CC OUT RCV
*IS THE RCV BUFFER ADDRESS CORRECT?
*IF OK = PROCEED

12
EMG12
ERRGS

7
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=67
CZDMIA.P11
13-MAR-80 09:34
GLOBAL INTERRUPT HANDLING ROUTINES
4813
(4)
(5)
(5)
(5)
4814

023430

023430
023432
023434
023436
023440

4815 023442

000402

4817

023444

017724

4819
4820
4821
4822

023450
023450
023454
023456

023464

4816

4818

023444

ERRDF

104455
000013
020214
015760
005724

002332

4823 02

005737
001011
005737

001006

4825

042777

000100

4826
4827
4828
4829
4830
(3)
&2)

023472
023500
023500
023506
023510
023510
023510

012737
042777
012600

518:

156570

608:

002330

el
156542

177777

002350

000207

156526

ENDSRV

023512
023512

4837

023512

4839
(3)
(2)
4840
4841
4842
4843

023520
023520
023520

012737

000001

(R&)+

:UPDATE POINTER

608

:EXIT ROUTINE

MOV

@SEL6,(R4)+

;CHANGE THE CHARACTER COUNT TO WHAT

ST
BNE
TST

QUTXMT
658
OUTRCV

:HAVE ALL THE XMITS BEEN DONE?
: IF NOT, ‘CONT INUE
:HAVE ALL THE RECEIVES BEEN DONE?

:IF NOT, CONTINUE

BIC

#IE0,@SEL2

:CLEAR THE OUTPUT INTERRUPT

BIC
V.

#RDO!CMD,ASEL2
(SP)+,RO

;CLEAR THE RDO BIT.
:RESTORE RO

MOV

#-1,0UTFLG

:FLAG AS DONE.

RTI

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

BGNSRV

NOXMEM

MOV

CSERDF
11
EMG11
ERRG?

:WAS RECEIVED.

L10020:

NOXMEM::
#1,FLAG

ENDSRV

:SET FLAG IF MEMORY ADDRESSED IS NON-EXISTENT.
L10021:

000002

4844

TRAP
.WORD
.WORD
.WORD

TR
R

(002340

4845
488

RTI

.SBTTL DROP UNIT SECTION
Ly,
:/ THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
:/ TO NO-LONGER BE TESTED.

4848
4849
4850
4851

4853
)

023522
05352

4855

023522

(3)
4856
(8)

11,EMG11,ERRG?

000002

‘832
4833

4834
4835
LB

658:

SEQ 0090

023522
023524
023524

BGNDY
.

BRESET

104433

013746

LSDU::

002362

.
J/

PRINTF

;ISSUE UNIBUS RESET TO CLEAN UP
#FMDROP,LOGDEV

fRAP

CSRESET

MOV

LOGDEV,=(SP)

CZDMIAO DMR-11

CZDMIA.P1

CTIONAL TESTS MACY11 30A(1052)
13-MAR-80
3-MAR-80 09:
DROP UNIT SECTION

012746
012746
010600
104417
062706

7
PAGE 2-68

SEQ 0091

MOV
MOV

MOV

TRAP

000006
ENDDU

104453

047045
052111
040445
050120
023602

J
040445
022440
04204
042105

047125
031104
047522
00C

FMDROP:

.ASCIZ

.SBTTL
LA

L10022:

#FMDROP, = (SP)
#2,-(SP}
SP,RO

CSPNTF

ADD

#6,SP

TRAP

(&1))

/ANXAUNIT %D2X%A DROPPED/

TEST 1 = DMR CSR VERIFICATION
Rt

ittt

13332232222233222222%]

TEST 1 - DMR-11

2
3B O
BN 2N B

023552
023560
023566
023574

023552
000002

'l!l LA
B I 2

023550
023550
023550

09:36

VERIFY THAT ADDRESSING THE 4 UNIBUS CSRS DOES NOT CAUSE A NONEXISTENT MEMORY TRAP.
THE DMR IS AN NPR DEVICE RESIDING ON A UNIBUS.

COMMUNICATION

BETWEEN THE MAIN CPU AND THE DMR IS ACCOMPLISHED THROUGH A
SET OF FOUR 16-BIT UNIBUS CONTROL AND STATUS REGISTERS (CSRS).
THE FOUR REGISTERS ARE ASSIGNED ADDRESSES IN THE 1/0 PAGE

FLOATING ADDRESS SPACE: 76XXX0 = 76XXX6

NOTE: THIS TEST IS REDUNDANT IN THAT STATIC LOGIC TESTS SHOULD
HAVE BEEN RUN BEFORE THESE FREE-RUNNING TESTS WERE STARTED, AND
THEY SHOULD HAVE DETECTED ANY (SR ADDRESSING PROBLEMS.

BUT JUST IN CASE THOSE STATIC TESTS AREN'T RUN, WE'LL BE SAFE.

t*tittitttttittt.tt.ittttttt'i..tt".t.tttt....'fiilttt'i*.ttttt'tti.t

BGNTST

012746
012746
012746
012746
104437
062706
005037
005001

Tt::

SETVEC

#4 ,#LOCATE ,#PRI0O7 ;SET UP NON -EXISTENT MEMORY TRAP VECTOR.

MOV
MOV

0PRIO7 -(SP)
OLOCATE -(SP)

MOV
TRAP
ADD

#3,-(SP)
CSSVEC
#10,SP

MOV
CLR
CLR

FLAG
R1

sFLAG USED IN THE TRAP ROUTINE.
sUSE REGISTER TO REMEMBER WHICH OF THE

flv.-(SP)

24 CSRS WE ARE ADDRESSING.

"tI'ittttttttttt.ttt't'.t"tttlti.tt..t.t'.fittt't.i.t'ttt......tttttt'.ttt.

IF ADDRESSING ANY ONE OF THE CSRS RESULTS IN A TRAP TO VECTOR 04, THE TRAP

.' WILL REPORT THE ERROR (SEE INTERRUPT ROUTINE 'LOCATE').

OTHERWISE THE

: MEMORY REFERENCE IS UNEVENTFUL AND THE DEVICE IS READY FOR FURTHER TESTS

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMIA.P11

13-MAR-80 09:34

48%

4LB97

4898
4899
4900
4901
4902
4903
4904
4905
4905
4907
(3)
(3)
4908
(3)
4909
4910

023636
023642
023646
023652
023656
023662
023666
023672
023676
023700
023700
023704
023706
023706
023710
023714

005777
012701
005777
012701
005777
012701
005777
005737
001406

156370
000002
156362
000004
156354
000006
156346
002340

013700
104451

002362

002340

012700

000004

&3)

023720 Foaess .

023714

4913
(3)
(3)

(023722
023722
023722

4916
(3)
4917
4918
4919
4920
4921
(4)
(5)
(5)
(5)
4922
4923
4924
(9)

023724
023724
023724
023726
023732

(8)

(7)
(6)
(3)
(4)
(4)

8
PAGE 2=69

- DMR CSR VERIFICATION

023734
023734
023736
023740
023742
023744
023750
023750
023750

023754

SEQ 0092

aSELO
#2 ,R1
aSEL2
#4 ,R1
aSEL4
#6,R1
aSEL6
FLAG
108
LOGDEV

CLR

FLAG

sTEST THE CSR AT 76XxX0
sSAVE THE OFFSET OF THE NEXT CSR
JTEST THE CSR AT 76Xxx2
sSAVE THE OFFSET OF THE NEXT CSR
sTEST THE CSR AT 76XXX4
sSAVE THE OFFSET OF THE NEXT CSR
JTEST THE CSR AT 76XXX6
;WAS THERE A TRAP?
;IF NOT = EXIT.
'DROP THE DEVICE
MOV
LOGDEV,RO
TRAP
C$DODU
DO CLEAN UP - FORCE BACK TO INIT CODE.
TRAP
C$DCLN
:RESTORE THE FLAG.

108:

CLRVEC

:RETURN VECTOR 04 TO NORMAL STATE

104401
BGNSRV

010046
005737
001006

002340

104455
000006
024002
000000
005237

002340

016146

002232

010146

4525
4926
(3)
465;

000002

4928

024002

051503

012746
012746
010600
104415
062706

012600

051104
043516

MOV

#4 ,R0

TRAP

CSETST

TRAP

ENDTST

023756
023762
023766
023770
023772
023776
024000
024000
024000

024010
024016

TST
MOV
TST
MOV
TST
MOV
TST
TST
BEQ
DODU
DOCLN

104444
005037

023714

TEST 1

09:36

::"QI’."."...."""""'.‘.'.'.'....."'"."."Q.."'."Q'.."."'....'Q

6911

(3)

13-MR-80

10%:

LOCATE

MoV
TST
BNE

RO,-(SP)
FLAG
108

ERRDF

6,EMTO

INC

FLAG

PRINTX

#FMTO,R1,CSR(R1)

L10023:

;s INTERRUPT SERVICE ROUTINE
LOCATE::
;SAVE RO
JHAVE WE HAD AT LEAST 1 PREVIOUS TRAP?
;sIF YES, DON'T BOTHER DECLARING ANOTHER
;DEVICE FATAL ERROR
JNON-EXISTENT DEVICE ERROR
TRAP
CSERDF
WORD
6
.WORD
EMTO
.WORD
O
:SET THE FLAG
;PRINT THE CSR THAT DOESN'T RESPOND.
MOV

MOV

024040
000003
000010

:
020122

051505
042440

04
05

ENDSRV

EMTO:

MOV

(SP)+,R0

:RESTORE RO

MOV
MOV
MOV
TRAP
ADD

L10024:

.ASCIZ

CSCVEC

/CSR ADDRESSING ERROR = TRAP &/

RTI

CSR(R1) ,=(SP)

R1,-(SP)

#FMTO, - (SP)
#3,-(SP)
SP,RO
C’PNTX
#10,SP

CZDMIAO DMR=11 FUNCTIONAL TE‘S’TS MACY11 SOA(‘IOSZ)TE;?-MAR-BO 09:36_ PAGE 2-70
CZDMIA.P1T
13-MAR-80 09
1 = DMR CSR VERIFICATION

4929

024024
024032

051117

052040
000064

024040

FMTO:

.ASCIZ

026112

SEQ 0093

/%S3XACSR (SELXD1XA) AT X06%A DOES NOT RESPONDXN/

.EVEN

TEST 2 = ROM CHECK

.SBTTL
AR

E ett
I 132122232222
t
2 22222222223

:
T EST 2 - DMR-11
;* ROM CRC/CCITT = CHECK ROM POSITION AND CALCULATE CRC/CCITT.

:*
;*
;*
;*
i

THE

ot
s
o*
o
;e
:®

LOCATION

E03
EQ2
EQ4
EO1
EOS
E14

CHIP NO.

BYTE

0
1
2
3
4
5

LOw
HIGH
LOW
HIGH
LOW
HIGH

ADDRESS RANGE

0000 0000 2000 2000 4000 4000 -

PARRARARRRRRAARR IMPORTANT !!!1I111T11T1

1777
1777
3777
3777
5777
5777

e k h kA kAR A AR AR AR R AR A AR AL AR

:* FOR THIS TEST TO RUN CORRECTLY, ENSURE THAT SWITCH 1 AT LOCATION

;* E85 ON THE M8207 IS ON.

IF THIS SWITCH IS OFF, BSEL1 WILL BE

;* LOCKED OUT AND THE MAINTENANCE FEATURES WILL NOT BE ENABLED.
»
%

I
I

%
#*

SUBTEST 1 = ON THE FIRST PASS PRINT THE VERSION # IN EACH ROM
SUBTEST 2 = GENERATE THE CRC-CCITT IN EACH ROM AND COMPARE [T
IT AGAINST THE CRC BLASTED IN THE ROM
SUBTEST 3 - COMPARE THE ROM # BLASTED IN THE ROM AGAINST THE
EXPECTED ROM #.

)

AR Rt
ittt
t
222223
t
0222322222222
*

4966
(3)
4967

BGNTST

024120
024120
024120

022737
001061
4971

024132

024134

I3 222232223222322222222222221
)

T2::

BGNSUB

104402

4972

005004
012705

000001

002270

12.1:

CMP
BNE

#1,STARES

: IS THIS THE FIRST PASS?

CLR
MOV

R4
#1,RS

:# OF NEXT ROM

TRAP

cs8suB

;IF NOT = SKIP THIS SUBROUTINE.
GET VERSION # FROM EACH ROM AND PRINT IT OUT

;# OF

THE

1ST ROM

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
CZDMIA.P11
13-MAR=-80 09: 34
TEST 2 = ROM CHECK
4973
4974
(8)
(7)
(6)
(3)
(4)
(4)
4975
4976
4977
23;3

024140
024146
024146
024152
0264156
0264162
024164
024166
024172
024172
024176
024204

4980

024212

012737

001774

013746
012746
012746
010600
104414
062706

002362
025074
000002

117737

156036

117737

(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
453%

024212
024216
0264220
024224
024226
0264232
024236
024240
024242

012746
010546
012746
010446
012746
012746
010600
104414
062706

4982
4983
4984
4985
4986
4987
4988
4989
4990
(3)
(3)
4991
4992
4993
(3)
(3)
499
4995
4996
4997
4998
2333

024246
024252
024256
024260
024264
024272

022705
001410
062704
062705
062737
000737

024274
024274
024274
024274

002404

000006

156040

1%:
025430

025432

000005
000002
000002
002000

PRINTB

#FMT2,R4 ,#REV1,RS,#REV2

@BSEL7.REV2

;gaygrrue REV. # OF THE NEXT ROM

#5,R5
5%
#2 R4
#2.RS
42000 ROMADR

L10026:

104403

005037

002404

5001
5002

024312
024312

012737

177777

002374

5004

024320

012737

177777

002376

002340

001000

108:

FLAG

CLR

ROMADR

MOV

#-1,L0CRC

MOV

#-1,HICRC

#1000, R1

RS,=-(SP)
#REV1,=(SP)
R4 ,=(SP)
#FMT2,=(SP)
#5,-(SP)
SP,RO
C$PNTB
#14,SP

(SESUB

TRAP
;USE THE FLAG TO MARK WHEN AN ERRDF
:HAS BEEN DETECTED IN THIS TEST.

($8SUB

12.2:

CLR

#REV2,=(SP)

TRAP

BGNSUB

012701

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

;ARE WE DONE?
:IF YES = EXIT
*INCR. ROM NUMBERS
:
;ADDRESS OF BYTES CONTAINING NEXT ROM REV #S.

5%
ENDSUB

024306

5008

:GET ROM CONTENTS.
:SAVE THE ASCII REVISION # OF THE ROM

cMP
BEQ
ADD
ADD
ADD
BR

002404

005004

5009

SROMO
@BSEL6,REV1

000014

024304

5006
5007

CALL
MOVB

’

024276

024326

;ADDRESS OF BYTE CONTAINING # IN ROMS 0 & 1
:MICROCODE VERSION
MOV
LOGDEV,=(SP)
MOV
#FMT1,=(SP)
MOV
#2,-(5P)
MOV
SP,RO
TRAP
CS$PNTB
ADD
#6,5P

025143
000005

104402
005037

5005

#1774 ,ROMADR
#FMT1,LOGDEV

025430

024276
024276
024300

5003

SEQ 0094

MOV
PRINTB

MOVB

025432

PAGE 2=71

:START CRC CHECK WITH ROM 0
‘R4 IS THE ROM #.
THE LOCATION FOR THE
*ROM IS CONTAINED IN THE TABLE "ROMLOC'.
:BEGIN AT ROM ADDRESS 0

:INITIALIZE CRC WORD FOR THE LOW BYTE

“CALCULATION.

:INIT. CRC WORD FOR THE HIGH BYTE.

:COUNTER FOR LOOP TO READ THE ROM CONTENTS

:AND CALCULATE THE CRC - THE COUNTER IS 512..
:BECAUSE 2 ADDRESS LOCATIONS ARE READ FOR EACH

;PASS (I1.E. THE ROMS ARE 1K X 8 BITS)

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) ;3-MR-80 09:36
CZDMIA.P11
13-MAR-80 09:34
T 2 = ROM CHECK

5010

gg;g

;

5011

5014
5015
5016
5017
5018
5019
5020
5021
5022

5023
5024
5025

2859

024332
024332
024336
024344
024352
024356
024362
024370
024376
024402
024404

20%:

117737
117737
005237

155676
155700
002404

002400
002402

117737
117737

155652
155654

002401
002403

005237
005301
001443

002404

5053
5054
5055
5056
5057
gggg

024406
024412
024412
024414
024420

012703

000020

000241
006037
006037

002374
002400

024424
024426
024432
024436
024444
024450
024450
024452
024456

102011
012702
043702
042737
050237

102010
002374
102010
002374

000241
006037
006037

002376
002402

024462

102011

024464
024470

012702
043702

102010
002376

050237

002376

024474

024502
024506
024506
024510
024512
024514

042737

102010

25%:

002374

308
:

002376
35%:

005303
001340
000707

40%:

CALL
MOVB
MOVB
INC
CALL
MOVB
MOVB

$ROMO
aBSEL6,LOWORD
@BSEL7,HIWORD
ROMADR
$ROMO
aBSEL6,LOWORD+1
@BSEL7.HIWORD+1

INC
DEC
BEQ

ROMADR
R1
408

:GET THE ROM CONTENTS
;SAVE THE LOW BYTE OF THE ROM CONTENTS.
;SAVE THE HIGH BYTE OF THE ROM CONTENTS.
s INCREMENT THE ROM ADDRESS POINTER
:GET THE CONTENTS OF THE NEXT ROM ADDRESS
:SAVE THE NEXT LOW BYTE.
:SAVE THE NEXT HIGH BYTE.

:NOTE: AT THIS POINT LOWORD IS A WORD WHICH

*HAS 2 CONSECUTIVE LOW BYTES OF ROM CONTENTS.
s INCREMENT THE ROM ADDRESS POINTER
;ARE WE FINISHED WITH THESE 2 ROMS?
;IF YES, CHECK CRC

A SERIAL STREAM FOR CALCULATION.

MOV

#16. ,R3

cLC
ROR
ROR

LOCRC
LOWORD

BVC
MOV
BIC
BIC
BIS

308
#102010,R2
LOCRC
R
#102010,LOCRC
R2,LOCRC

cLC
ROR
ROR

HICRC
HIWGRD

BVC

35%

MOV
BIC

0102010 R2
HICR

BIC

#102010 HICRC

DEC
BNE
e

R3
25%
20%

BIS

:CLEAR THE CARRY
;ROTATE BITO INTO THE CARRY BIT
sROTATE BITO INTO C AND THE OLD C INTO BIT1S
;ARE THE BITS 15 & BITS 0 THE SAME?
;IF YES (V IS CLEAR), DON'T DO THE CRC
*NOTE: V IS THE EXCLUSIVE OR OF BITO & BIT15.
:CRC/CCITT POLYNOMIAL

:CLEAR THE CARRY
;ROTATE BIT 0 INTO C
;ROTATE OLD C INTO BIT1S5 (SIGN) & BITO INTO C
JARE THE BITS O OF HICRC & HIWORD THE SAME?
:IF ves (v IS CLEAR), DON'T DO THE CRC.
*NOTE: V IS THE EXCLUSIVE OR OF BITO & BIT15.
:CRC/CCITT POLYNOMIAL

R2,HICRC

:DO ALL 16 BITS

;GET THE CONTENTS OF THE NEXT 2 ROM ADDRESSES.

: CRC BLASTED INTO THE LAST 2 BYTES OF THE ROM (IN LOWORD/HIWORD)

024514

024520

005137

023737

002374

002400

com

CMP

=~ ~

;16 BITS TO CONSIDER

; AT THIS POINT WE'VE READ THE CONTENTS AND CALCULATED THE CRC FOR
; 2 ROM ROMS (ONE LOW BYTE & ONE HIGH BYTE).
ALSO WE'VE READ THE

ggg%

5065

16 BITS)

THIS ROUTINE WILL CALCULATE/CHECK THE CRC 2 ROMS AT A TIME.

5060
5061

5064

SEQ 0095

; “CRC/TCITY CALCULATION = CONVERTTM THE WORD “(LOWORD ®"HIWORD) ‘TO0

gggg

5052

8
PAGE 2-72

; BECAUSE A ROM OUT WILL OUTPUT THE ROM CONTENTS (I.E.

5028

5031
5032
5033
5034
5035
5036
5037
5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051

LOCRC

LOCRC, LOWORD

;COMPLEMENT THE CALCULATED CRC .

;1S THE CRC IN ROM THE SAME AS THE

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09: 34
CZDMIA.P1T
024526
024530

001427
005737

001007
012737
104455
000007
025362
000000

013746
013746
010446
012746
012746
104414

062706

41%:

002400
002374

002340

001007
012737

000001

418

#71,FLAG
7,EMT1

s CALCULATED CRC?

sIF YES = CHECK THE HIGH BYTE CRC (NEXT ROM)

HAS AN ERRDF ALREADY BEEN DECLARED (REMEMBER

*WE'RE IN A LOOP)

;IF YES, DON'T BOTHER WITH ANOTHER ERRDF.
;FLAG THAT ERRDF HAS BEEN DETECTED.

;ROM ERROR

TRAP

002376
002376

7
EMT1

MOV
MOV
MOV
MOV
MOV
MOV

LOWORD ,=(SP)
LOCRC,=(SP)
R4 ,-(SP)
#FMT3,-(SP)
#4,-(SP)
SP,RO

ADD

”2,SP

WORD

PRINTB

#FMT3,R4,LOCRC,LOWORD

50%:

INC

CoM

CMP

002402

BEQ
TST

BNE
MOV

002340

ERRDF

002402
002376

PRINTB

CSPNTB

JINCR ROM #

HICRC

. COMPLEMENT THE CALCULATED CRC FOR THE HI BYTE

60%

;IF YES = CHECK THE ROM LOCATIONS.

51%
#1,FLAG

JWE'RE IN A LOOP)
;IF YES, DON'T BOTHER WITH ANOTHER ERRDF.
;FLAG THAT ERRDF HAS BEEN DETECTED.

HICRC ,HIWORD
FLAG

7,EMT1
7o

51%:

CSERDF

.WORD
. WORD

JROM CRC AND CALCULATED CRC THE SAME?

sHAS AN ERRDF ALREADY BEEN DECLARED (REMEMBER

;ROM ERROR

#FMT3,R4,HICRC ,HIWORD

TRAP

CSERDF.

.WORD
.WORD

7
EMT1

WORD

MOV

HIWORD ,~(SP)

025220
000004

MOV
MOV
MOV
MOV
MOV

HICRC,=-(SP)
R4 ,-(SP)
#FMT3,-(SP)
#4 ,-(SP)
SP,RO

062706

000012

ADD

#12,SP

022704
001403
005204
000137

000005

104414

024716
024716
024716

BNE.

SEQ 0096

TRAP

000012

104455
000007
025362
000000

024716

FLAG

PAGE 2-73

025220
00004

005204
005137
023737
001427
005737

013746
013746
010446
012746
012746

508

TST

MOV
ERRDF

002340

09:36

T 2 = ROM CHECK

BEQ

002340
000001

13-MAR-80

024312

TRAP

60%:

70%:

ENDSUB
104403

CMP

#5,R4

;IF WE'VE DONE ROMS 0-5, WE'RE DONE.

INC

;JCHECK THE NEXT ROM,

BEQ

JMP

70%

10%

CSPNTB

JEXIT WHEN DONE

L10027:

TRAP

CSESUB

104402

005037
005004
012737

002340

024742

117701

155272

024746
024750
024750

000402

024754
024754
024760
024762
024764
024770

117701

042701
020104
001427
005737
001007
012737

S
i
R

-d

%vv—n
W\ng TR NRRRUNNS 0

o PN

N\
WWRNIRA

D i

)

) —d b

ViV

104414

002404

025052

025056

025060
025066
025070
025070
025070
025070

17%:

177760
002340
000001

002340

PAGE 2-74

SEQ 0097

T2.3:
TRAP

CLR
CLR
MOV

FLAG
R4

#1775 ,ROMADR

;CLEAR FLAG
JBEGIN AT ROM 0
sADDRESS OF BYTE CONTAINING ROM #

CALL
MOVB

$ROMO
aBSEL6,RT

;GET ROM CONTENTS
;SAVE THE CONTENTS OF THE LOW BYTE

17%

MOVB

aBSEL7,R1

BIC
CMP
BEQ
TST

#*C17 ,R1
R1,R4

BNE
MOV
ERRDF

18%

20%

FLAG

#1,FLAG
7.EMT2

;FOR ROMS 0,2.4

;SAVE THE CONTENTS OF THE HIGH BYTE

;FOR ROMS 1,3.5

;CONVERT THE ASCII BYTE TO AN OCTAL UORD.
21S THIS THE EXPECTED ROM #
“IF YES = OK.
HAS AN ERRDF ALREADY BEEN DECLARED (REMEMBER

JWE'RE IN A LOOP
sIF YES, DON'T BOTHER WITH ANOTHER ERRDF.
*FLAG THAT ERRDF HAS BEEN DETECTED.
;ROM ERROR

18%:

PRINTB

025304
000004
000012

022704
001410
005204
032704
001334

000005

062737
000723

002000

4
EMT2
0

MOV
MOV
CLR

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

MOV

#FMTS ,-(SP)

BISB

MOV
MOV

#4 ,-(SP)
SP.RO

TRAP

20%:

000001

002404
308:
ENDSUB

MP
BEQ
INC
BIT
BNE

#5,R4
R4

;DID WE FINISH THE LAST ROM?
;IF YES = SKIP TO THE END
;POINT TO THE NEXT ROM #
;1S THIS AN ODD #
;IF YES GO BACK AND READ THE HIGH BYTE

ADD
BR

#2000 ,ROMADR
108

s INCR. ADDRESS POINTER TO NEXT ROM #.

308

#B81T0,R4
15%

L10030:

L10025:

044515

FMT1:

CSPNTB

LASCIZ

/INXAMICROCODE REVISION IN UNITZD3XA:%N/

#2,SP

TRAP

ENDTST

040445

ROMLOC(R4)
, (SP)

ADD

104403

047045

CSERDF

.WORD
.WORD
.WORD

#FMT4 ,<B,ROMLOC (R4)>,R1,R4

025421

062706

104401

($BSUB

TRAP

025072
025074

108:

15%:

155274

012746
010600

001775

104455
000007
025402
000000

010446
010146
005046
156416
012746

(%,]
— i

BGNSUB

o
N

[BN

et
L L L
— viwvwnh

RS oo oo00000000

s VVO\mwadosgwg\n?uN—-S

(W LV LV IV RV, LWL TV LV LV, TV LV, LV LW, TV TV (VL T TV, )

$ecacd:

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
13-MAR-B0 09:34
CZDMIA.P1T
TEST 2 - ROM CHECK

TRAP

C$ESUB

‘

CSETST

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
CZDMIA.P1T
13-MAR-80 09:34
TEST 2 = ROM CHECK

025102

5133

5134

5135

37
5138
5139

5140

5141
5142
g}zz

5145
5146
5147
5148
5149

8
PAGE 2-75

SEQ 0098

051103
52111
035101

0
025143
025150
025156
025164
025172
025200
025206

045
042045
020055
022440
051101
022462
042522

000
051101
022462
042522
022524
046517
020101
027126

046517
020101
027126
022516
042045
020055
022440

FMT2:

_ASCIZ

/XAROMXD2%A = REV. XTXNXAROMXD2%XA - REV. XTIN/

025220

040445

047522

022515

FMT3:

_ASCIZ

/%AROMXD2%A: CALCUATED CRC =%06%A

025%58
0
025304
025312
025320
025326
025334
025342
025350
025356

046517

047445

040445
047522
022461
047510
042502
022440
022451

036440
000116
022505
044440
020115
020101
046125
051040
030504
000116

031104

FMT4:

ASCIZ

/%AEXD2%A IS ROM ZD1%A (SHOULD BE ROM %D1%A) %N/

025362
025370
025376
025402
025410
025416

051103
052111
047522
047514
047117
051117

026503
020126
000122
040503
042440
000

041503
051105

EMT1:

,ASCIZ

/CRC=-CCITT ERROR/

044524
051122

EMT2:

_ASCIZ

/LOCATION ERROR/

025421

003

002

ROMLOC:

.BYTE 3,2,4,1,5.14.

;ROM 0 = ROM LOCATION 3 ETC.

REV1:
REVZ:

.EVEN
WORD
WORD

JASCI] VALUE OF THE REV. NUMBER
JASCII VALUE OF THE REV. NUMBER

040445

025424
001
025430
025430 000000
025432 000000

005

020123
042045
051450
020104
046517
040445

004

016

O
O

g}g?

LSBTTL

5152

AR R AR AR A AR A

5153
5154
5155

CRC IN ROM =X06IN/

TEST 3 = MASTER CLEAR AND MICROTEST
A R A R

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

M
TEST 3 = DMR-11
;% MASTER CLEAR
s* THIS TEST WILL ISSUE 2 MASTER CLEARS.

EACH CALL TO THE MASTER

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

5
5183
5184
(7)
(6)
(3)
(4)
(4)

5185
5186
5187
5188
(1)
(1)

(1)

5189
5190

e
e
—

RRR02

(3)
(3)

R
T

09:36

PAGE 2-76

TEST 3 = MASTER CLEAR AND MICROTEST

SEQ 0099

CLEAR ROUTINE WILL ENSURE THAT THE RUN BIT
WILL BE SET.
I

ALSO

THE MASTER CLEAR WILL CAUSE THE DIAGNOS Tl E~H§CROTESTS T0 BE
RUN WHEN THE MICRODIAGNOSTIC BIT (BIT 13
ELO) IS CORRECTLY

SET OR CLEARED.
BECAUSE THE RUNNING OF MICROTESTS
I
DEPENDS ON THE
EXCLUSIVE OR OF THE HARDWARE SWITCH 10 ON E134 OF THE M8203 AND
THE MICRODIAGNOSTIC BIT, WE CAN'T KNOW WHETHER THE SETTING OR

CLEARING OF BIT 13 WILL RESULT IN THE RUNNING OF MICROTESTS.
THEREFORE THE MASTER CLEAR SUBROUTINE WILL TOGGLE

(I.E.

SET

BIT 13 ONLY ON EVERY OTHER MASTER CLEAR) THE SOF TWARE BIT.

BSEL3 =
BSEL3 = 200

=
=

MICROTESTS DISABLED
MICROTESTS RUN SUCCESFULLY

FIQEF,(‘I)’F;;ESESULT OF THE 2 MASTER CLEARS IS NOT 300, AN ERROR IS

AR B

ADDITIONALLY THIS ROUTINE WILL REPORT WHENEVER THE RESULT OF

BSEL3 IS 0.
(I.E.

DMC)

THIS WILL MEAN THAT THE DEVICE IS NOT A DMR

SRR AR AR AR AR AR AR

025434
025434
025434
025434

20 BN 2B B0 BF JF B

3F B

BF IF I

5
5

13-MAR-80 09:34

EB T

-t

YWYV

[ Ll LV L Ll AV IV VL TV TV TV TV TV TV TV TV I TV TV TV

IV IV ARNANIITELEFSIRAZS Voo~ #

CZDMIA.P11

13-MAR-80

BGNTST

CLEAR
004737

011064

JSR

AR AR AR

A RAARRANAANRRRRAN

sMACRO FOR MASTER CLEAR

PC, SMSCLR

025456
025462
025464

025466
025472
025474
025474
025500
025500

025504

025504
025506

025510
025514

104410
000072
105777
001011
012746
012746
010600
104414
062706

000420

154574
017473
000001

000004

117701

154544

004737

011064

104410
000026

117702
060102

1%:

;ISSUE A DMR MASTER CLEAR

1223

ESCAPE

TST

:IF ERROR, BR TO TEST END.

1STB
BNE
PRINTB

aBSEL3
1%
#FMG19

;IS THERE A DMR RESPONSE?

MOVB
CLEAR

aBSEL3,R1

JSR

PC, SMSCLR

ESCAPE
154530

73::

sxxxx MACRO EXPANSION #xw«

JRRRK

025440
025440
025442
025444
025450
025452
025452

AR AR RN

MOVB
ADD

TST
aBSEL3,R2
R1.R2

sREPORT DEVICE NOT DMR.

TRAP
.WORD

CS$ESCAPE
L10031-.

MOV
MOV
MOV
TRAP
ADD

#FMG19,-(SP)
#1,-(SP)
SP,RO
CSPNTB
#4,SP

sSAVE THE RESULT OF THE FIRST MASTER CLEAR.
sMASTER CLEAR AGAIN.

sxxxx MACRO EXPANSION #xxx
;ISSUE A DMR MASTER CLEAR

JRRRR

13313

:IF ERROR, BR TO TEST END.

TRAP
.WORD

CSESCAPE
L10031-.
sSAVE THE RESULTS OF THE SECOND MASTER CLEAR
sADD THE RESULTS OF THE 2 CLEARS

sNOTE: ONE SHOULD BE 100 - MICRO TESTS NOT
;ENABLED AND ONE SHOULD BE 200 - MICRO TESTS
sSUCCESFULLY RUN.

J 8
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-77
CZDMIA.P11
13-MAR-80 09:34
TEST 3 = MASTER CLEAR AND MICROTEST
5196

5197

025516

025522

122702

001404

5198
(4)
(5)
(5)
(5)
5199
5200
(3)

025524
025524
025526
025530
025532
025534
025534
025534

025534

104401

5202

025536

044515

Sé(?;‘)l

5203

025544
025552
025560

9000300

104455
000003
025536
015204

051505
020124
042514

CMPB

#300,R2

ERRDF

3,EMT3,ERRG3

BEQ

SEQ 0100

sWAS THE MICROTEST COMPLETED?

;IF YES
= OK

MICROTEST NOT COMPLETED

5%:
ENDTST

051103

0201246
047503
042524

052117

047516
050115
000104

EMT3:

.SBTTL

5210

R A

gg}%

TRAP

CSETST

/MICROTEST NOT COMPLETED/

TEST 4 - BASE IN COMMAND
e

TEST & - DMR-11

BASE IN COMMANDS

s*
i
H
3.
;*
A

SUBTEST 1

5214
5215
5216
5217
5218
5219

.ASCIZ

CSERDF
3
EMT3
ERRG3

.EVEN

5204
5205
5206
5207
g%gg

5211

L10031:

TRAP
WORD
.WORD
.WORD

SUBTEST 2

I I

e e R 2222222222222

= ISSUE A BASE IN - DMR MODE.
ENSURE THAT THE DMR MODE BIT (BIT 4) IS SET IN
THE MICROCODE SCRATCH PAD 7 AND THAT THE DDCMP
MESSAGE VARIABLES ARE PROPERLY INITIALIZED.
= ISSUE A BASE IN =~ DMC MODE.
ENSURE THAT THE DMC MODE BIT (BIT 4) IS CLEAR IN

5220
ggg}

H
H

5223

EtttttQttttttttttttttttttttttttttttttttfitttttttttttttttfitttttttttttttt

5224

®x

025566

BGNTST

(3)

025566

(3)
(3)
5226

025566
025566
025570

104402

025570

004737

(3)
(3)

025574
025574
025576

104410
000244

5231

025600

5225

(1)
(1)
(1)
5227

5228
229

5230
(1)
1)
1)

THE MICROCODE SCRATCH PAD 7 AND THAT THE DDCMP
MESSAGE VARIABLES ARE PROPERLY INITIALIZED.

025566

025600
025604

T4::

BGNSUB

004737
000000

T4.1:

CLEAR
011064

011262

JMACRO FOR MASTER CLEAR COMMAND

JSR

PC, SMSCLR

sxxxx MACRO EXPANSION *xxx
sISSUE A DMR MASTER CLEAR
IRRRR
PR

ESCAPE

TST

;IF ERROR, BR TO TEST END

BASEIN

0,BASE,DMR

JSR

PC, $BASEI
.WORD
0

TRAP

cs8sSuB

TRAP
.WORD

CSESCAPE
L10032-.

sBASE IN COMMAND WITH NO HAINTENANCE

BASE=8ASE TABLE ADDRESS, AND DMR-11 MODE

sxxax MACRO EXPANSION wxwx
:CALL BASE IN ROUTINE
sMAINTENANCE MODE BITS TO SET IN BSEL1

—

pSt
—_ S

AN
A ANN) A A~ A~

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)T
13-MAR-80 09:36 PAGE 2-78
CZDMIA.P1T
13-MAR-B0 09:34
= BASE INCOMMAND

025606
025610

002630
000522

.WORD
.WORD

BASE
DMR

sBASE TABLE ADDRESS
MODE

sRRAN

025612

025616

;

025616

025622

025630

ESCAPE

104410
000226

004737
132737

012560
000020

JSR

104455

000024
026264
000000

:IF ERROR, BR TO TEST END

PC, SHALT

sDMR HALT ROUTINE.

LA
2 4

BITB

#B1T4 ,BASE+ISP7 :SEE IF_THE DMR MODE BIT IS SET IN THE

BNE
ERRDF

20,EMT4

108

:DMR SCRATCH PAD REGISTER 7 (BASE TABLE
:LOCATION CONTAINS AN IMAGE OF SP7)

0K IF SET

TRAP

-WORD
«WORD
.WORD

10%:

002672

BASE+R

002673

BASE+N

sCHECK MESSAGE EXCHANGE VALUES
IN THE BASE TABLE.
#R (MESSAGE RECEIVED)
= 0?
ERRM IF NON ZER0
#N (MESSAGE TRANSMITTED) = 07

002674

BASE +A

; WA (MESSAGE ACKNOWLEDGED) = 07

000001

208

20%

208

002675

¢ERROR IF NON ZERO
; MT (NEXT MESSAGE # TRANSMITTED) = 1?

BASE +X

: #X (LAST MESSAGE TRANSMITTED)
= 0?

308

20%:

20,EMTS ERRT1
CSERDF
20
EMTS
ERRT1

ENDSUB

L10033:

025712

025716

C$ESUB

BGNSUB

14.2:
CLEAR

011064

JSR
ESCAPE

($8sSuUB

sMACRO FOR MASTER CLEAR COMMAND

PC, SMSCLR

sxxxx MACRO EXPANSION *wx«

sISSUE A DMR MASTER CLEAR
SRRk
X

025722
025722
025724

EMT4

sERROR IF NOT EQUAL TO 1.

:
308

025714
025714
025714
025716

CSERDF

:ERROR IF NON ZERO

#1 ,BASE+T

208

002676

CSESCAPE
L10032-.

sxxxx MACRO EXPANSION #www
sk Rk

002722

LA 22

-WORD

SHUTDN

001004

105737

TST

SEQ 0101

TST

L3
2 3

;IF ERROR, BR TO TEST END

IRAP

.WORD

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
CZDMIA.P1
13-MAR-80 09:34

025726
025726

004737

0257%2 000000

011262

13-MAR-80

09:36

PAGE 2=79

T & = BASE IN COMMAND

BASEIN

0,BASE.O

JSR

PC, $BASE!
WORD
0

002630
000000

.WORD

WORD

BASE

;BASE IN COMMAND WITH NO MAINTENANCE
AND DMC MODE

taxxx MACRO EXPANSION #ew#

sCALL BASE IN ROUTINE
sMAINTENANCE MODE BITS TO SET IN BSEL1

sBASE TABLE ADDRESS
MODE

sRRkk

025744

ESCAPE

104410
000100

004737

025750

132737

025756

001404

012560

JSR

;IF ERROR, BR TO TEST END

002722

104455

PC, SHALT

sDMR HALT ROUTINE.

BEQ
ERRDF

108
20,EMT6

000001

TSTB

BASE+R

TSTB

BASE+N

TSTB

BASE +A

CMPB

#1 ,BASE+T

TSTB

BASE +X

ERRDF

20,EMTS5 ,ERRT1

BNE

002674

BNE

002675

BNE

002676
20%:

#B1T4 BASE+ISP7 :SEE IF_THE DMR MODE BIT IS CLEAR IN THE
sDMR SCRATCH PAD REGISTER 7 (BASETABLE

BNE

002673

BEQ

208

30%

:LOCATION CONTAINS AN IMAGE OF SP7)
;0K IF CLEAR - BR

;ERROR IF NON ZERO

; MT (NEXT MESSAGE # TR?NSHITTED) =1?
;ERROR IF NOT EQUAL
T
.

; WX (LAST MESSAGE TRANSMITTED)
= 0?

TRAP

L10034:

L10032:

104401
ERRT1
BASE+R

8"76

:ERROR IF NON ZERO
: WA (MESSAGE ACKNOWLEDGED) = 0?

ENDTST

TSTB

.WORD

#R (MESSAGE RECEIVED) 0?

002672

SaERDF

ERR(R IF NON ZERO
#N (MESSAGE TRANSMITTED) = 0?

ENDSUB

105737

TRAP

sCHECK MESSAGE EXCHANGE VALUES
IN THE BASE TABLE.

30%:

BGNMSG

CSESCAPE

L10032-.

BITB

108:

002672

TRAP

sunxx MACRO EXPANSION #nxx
sRRkk

000020

LA
2 2

.WORD

SHUTDN

000024
026357
000000

105737

TST

SEQ@ 0102

;IS #R = 0?

ERRT1::

CSERDF

.WORD
.WORD
.WORD

20
EMTS
ERRT1

TRAP

CS$ESUB

TRAP

CSETST

CZDMIAO DMR=11 FUNCTIONAL T§§YS MACY11 30A(1052)

CZDMIA.P11

13-MAR-80 09

5295
5296

001413

026050
026052

(8)
(8)

026052
026054

(6)
(3)
(4)
(4)
5297
5298
5299
5300
(8)
(8)
(7)
(6)

026064
026070
026072
026074
026100
026100
026104
026106
026106
026110
026114
026120

005046
153716
012746
012746

(4)
(4)

23385

026126
026130

026134

104414
062706

5303
5304

026134
026140

105737
001413

(8)
(8)
(7)
(6)
(3)
(4)
(4)

026142
026144
026150
026154
026160
026162
026164

005046
153716
012746
012746
010600
104414
062706

(7)

(3)

5305

5306
5307
5308
5309
(8)
(8)
(7)
(6)

(3)
(4)
(4)

5310

5311
5312
5313
(8)
(8)
(7)
(6)

(3)

(4)
(4)

5314
5315

026060

026124

026142

026170
026170
026176
026200
026200
026202
026206
026212
026216
026220

026222

026226

026226
026232
026234

026234
026236
026242
026246

026252

026254
026256

026262
026262

005046
153716

012746

012746
010600
104414
062706

105737
001413

010600

122737
001413
005046
153716
012746
012746
010600
104414

09:36

PAGE 2-80

= BASE IN COMMAND

BEQ
PRINTB

000006

1$:

002673

TSTB
BEQ
PRINTB

SEQ 0103

1%
s0K
= IF ZERO
#FMTS,<B,BASE+R> ;PRINT
4R

002672
026423
000002

BASE+N
JISMN
= 0?
2%
;0K = IF ZERO
#FMT6,<B,BASE+N> PRI NT &N

002632
026454
000002

CLR
BISB
MOV
MOV
Mov
TRAP
ADD

=(SP)
BASE +R, (SP)
H#FMTS5,-(SP)
#2,-(5P)
SP,RO
CSPNTB
#6,SP

CLR
BISB
MOV
MOV

=(SP)
BASE+2, (SP)
#FMT6,~(SP)
#2,-(SP)

TRAP
ADD

CSPNTB
#6,SP

CLR
BISB
MOV
MOV
MOV
TRAP
ADD

=(SP)
BASE +A, (SP)
#FMT7 ,~(SP)
#2,-(SP)
SP.RO
CSPNTB
#6,SP

CLR
BISB
MOV
MOV
MoV
TRAP

=(SP)
BASE+T, (SP)
#FMT8,-(SP)
#2,-(SP)
SP.RO
CSPNTB

MOV
000006

2%:

002674

TSTB
BEQ

PRINTB

002674
026505
000002

000001

BASE+A
3%

002675

3%:

CMPB
BEG
PRINTB

#FMT7,<B,BASE+A> ;PRINT #A

#1,BASE+T
;IS AT =12 .
43
:0K- IF ONE
#FMT8,<B,BASE+T> ;PRINT AT

002675
026536
000002
000006

105737
001413

002676

005046
153716
012746
012746

002676
026601
000002

104414
062706

000006

4$:

5%:
ENDMSG

TSTB
BEQ
PRINTB

SP,.RO

;IS #A = 02
:0K- IF ZERO
-

000006

062706

010600

13-MR-80

BASE +X
;1S #X = 0?
5%
:0K- IF ZERO
#FMT9,<B,BASE+X> ;PRINT #X

ADD

#6,SP

CLR
BISB
MOV
MOV
MOV

-(SP)
BASE+X, (SP)
#FMT9,~(SP)
#2,-(SP)
SP.RO

TRAP
ADD

CSPNTB
#6,SP

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
131MAR-80 09 36 PAGE 2-81
CZDMIA.P1T
13-MAR-80 09:
TEST 4 - BASE
COMMAND
I

pur

L10035:

104423

RREGR &R o

026262
026262

3
33

(3)
(3%

SEQ 0104

EMTS:

LASCIZ

/DMR MODE BIT NOT SET/

EMTS:

LASCIZ

/DDCMP MESSAGE VARIABLE(S) NOT CORRECT/

EMT6:

.ASCIZ

/DMC MODE = DMR MODE BIT NOT CLEARED/

FMTS:

LASCIZ

/%A#R (MSG. RCVD) = XD32IN/

;

5319

0%9357

104

041515

046440

026414

042368

051101

042105

026423
026430

045
046450

021501
043523

020122
020056

026444

020075

042045

022463

5322

026454

040445

047043

024040

FMT6:

LASCIZ

/XAMN (MSG. XMIT) = D3N/

5323

026505
026512
026520
026526

000
045 21501
046450 043523
041501 - 024513
020075 042045

020101
020056
020040
022463

FMT7:

LASCIZ

/%AKA (MSG. ACK)

5324

026536
026544

040445

(52043

024040

FMTS8:

.ASCIZ

/%AXT

(NEXT MSG TO XMIT)

D3N/

5325

026601
026606

045
0460

021501

000
020130

FMT9:

LASCIZ

/X%A#X

(LAST COMPLETED XMIT)

AD3%AN/

026636

042045

022453

000116

5320
5321

.EVEN

= ZD3AN/

TRAP

C$MSG

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-82
CZDMIA.P11
13-MAR-80 09:34
TE ST 5 - DMR
C
COMMANDS

5333
5334
5335

SEQ 0105

TEST 5 = DMR COMMANDS

.SBTTL
Q

..tt't'tt'ttt.t'tt"'.t""it...fit"t.tt't.'.i..ttttttt'ttt't't.i..'i

suBT EST 1

suBT EST 2

TEST 5 = DMR-11
= ISSUE AN ENABLE EXTENDED ERROR COMMAND AND CHECK THAT
THE EXT. ENABLE BIT IS SET IS SCRATCH PAD 13.
THEN
DISABLE EXTENDED ERROR AND CHECK THAT THE ENABLE BIT
IS _CLEAR.
= SET REP/SEL TIMER VALUE AND SET THE DMR THRESHOLD
VALUES.
CHECK THAT THE VALUES ARE CORRECT IN
THE BASE TABLE AFTER HALTING THE DMR.

%
%

'DI‘RC OMMANDS

ARt

ettt

BGNTST

15::

BGNSUB

15.1:
CLEAR

011064

122222222222 22223222222%3

JSR

PC, SMSCLR

sMACRO FOR MASTER CLEAR COMMAND
sxxxx MACRO EXPANSION #xxx
;ISSUE A DMR MASTER CLEAR
:tttt

ESCAPE

TST

TRAP

cs8suB

TRAP

CSESCAPE
L10036~.

L2
2 2

;IF ERROR, BR TO TEST END

.WORD

BASEIN
011262

JSR

PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR

;BASE IN COMMAND WITH LINE UNIT LOOP,
sxxxx MACRO EXPANSION wwxx
;CALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
=11 MODE

:tttt

ESCAPE

012064

TST

:IF ERROR, BR TO TEST END

026712
026712

026716

004737

.WORD

C$E SCAPE
L10036~.

-ENABLE EXTENDED ERROR NOTIFICATION

JSR

PC, S$DMRIN
.WORD
EXERR

sCALL DMR MODE INPUT ROUTINE
; INPUT COMMAND

ESCAPE

0
O

TST

SHUTDN

012560

CSESCAPE
L10036~.

EXERR

sxxxx MACRO EXPANSION *wx«

sNO SEL4
;NO SEL6
shh kR

000274

TRAP
.WORD

DMRIN

.WORD
.WORD

104410

khkk
%

L e 23

:IF ERROR, BR TO TEST END

sHALT THE DMR

JSR

PC, SHALT

ESCAPE

TST

sxxxx MACRO EXPANSION x#xx
;DMR HALT ROUTINE.
sRRAKk

LA
2 24

:IF ERROR, BR TO TEST END

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MR-80 09:36 PAGE 2-83
CZDMIA.P11
13-MAR-80 09:34
TEST
5 = DMRCOMMANDS

(3)
(3)
5362

026716
026720
026722

104410
000264
132737

5364
5365

026730
026732

001005

5363

(4)
(5)
(5)
(5)
5366
5367
5368

026732
026734
026736
026740
026742
026744
026744

104455
000030
027514
000000
000430

(1)
(1)
(1)
(1)
(1)

026744
026750
026752
026754

004737
004000
002630
010522

(1)

5369
5370
1)
(1)
(1)
(1)
(1)
(1)

026756
026762
026764
026766

026770
026770

5373

026774

5374

027000

(1)

026772

(3)
(3)
5375
5376
5377
5378
(4)
(5)
(5)
(5)
5379
5380
(3)
Sg%

027024
027024
027024
027024

5382
(3)
(3)
5383

027026
027026
027026
027030

(1M

002726

108:
011262

026756

5371
5372
(3)
(3)

000001

004737
000007
000000
000000

104410
000212
004737
104410
000202

027012
027014

001404

027014
027016
027020
027022

BITB

TRAP
CSESCAPE
.WORD
L10036~.
#BITO,BASE+ISP13 ;CHECK EXT ENABLE BIT IN THE BASE TABLE.

BNE
ERRDF

108
24 ,EMT?7

132737

104455
000030
027514
000000

LPLU,BASE ,RES!DMR ;BASE IN COMMAND WITH RESUME SET.

JSR

PC, SBASE!
.WORD
LPLU
.WORD
BASE
.WORD
RES!DMR

DMRIN

DXERR

JSR

PC, $DMRIN
.WORD
DXERR
WORD
O
WORD
O

sxxxx MACRO EXPANSION wwxx
sCALL DMR MODE INPUT ROUTINE
;INPUT COMMAND
;sNO SEL4
sNO SEL6
IRRER
T T

ESCAPE

TST

;IF ERROR, BR TO TEST END

BITB
BEQ
ERRDF

20%:
ENDSUB

saxxx MACRO EXPANSION #xn=

;DISABLE EXTENDED ERROR NOTIFICATION.

JHALT THE DMR
PC, SHALT

TST

BGNSUB

TRAP
.WORD

CSESCAPE
L10036~.

sxxxx MACRO EXPANSION *x#%x

;DMR HALT ROUTINE.

sIF ERROR, BR TO TEST END.

TRAP
CSESCAPE
.WORD
L10036~.
#BITO,BASE+ISP13 ;CHECK EXT ENABLE BIT IN THE BASE TABLE.
;s IMAGE OF SCRATCH PAD 13.
20%
;IF CLEAR 0K
24 ,EMT7
;ERROR EXT ENABLE SET
TRAP
CSERDF
.WORD
24
.WORD
EMT7
WORD
O

15.2:
CLEAR

CSERDF

sCALL BACE IN ROUTINE
sMAINTENANCE MODE BITS TO SET IN BSEL1
;BASE TABLE ADDRESS
;MODE
IRRRR
P

L10037:

104403

104402

WORD

BASEIN

JSR

002726

24
EMT?7

208

ESCAPE
000001

TRAP
.WORD
.WORD

SHUTDN
012560

I GE OF SCRATCH PAD 13.

BI T SET - OK.
sERROR EXT ENABLE CLEAR

ckkkk

027000
027002

027004

012064

SEQ 0106

sMACRC FOR MASTER CLEAR COMMAND

;xxxx MACRG EXPANSION sxww

TRAP

C$ESUB

IRAP

C$8SuUB

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-84
CZDMIA.P1T
13-MAR-80 09:34
TEST 5<DMR
( OMMANDS

027030

004737

011064

JSR

e N

ESCAPE

104410

;ISSUE A DMR MASTER CLEAR

TST

L2 2 2

:IF ERROR, BR TO TEST END

N ON N

000146
BASEIN

N N N
N N

5388

PC, SMSCLR

:t*.'

'\’\f~fsr\fi1£ f\’\ag

NN gfiflu‘ §?

1)
(1)

SEQ 0107

027050

004737
004000
002630
000522

011262

JSR

;BASE IN COMMAND WITH

PC, $BASEI
.WORD
LPLU
.wWwORD
BASE
.WORD
DMR

027056

ESCAPE

104410

000130

004737
000012
000000
000054

012064

TST

TIMER,0,54

JSR

PC, SDMRIN
.WORD
TIMER

.WORD
.WORD

:SET_LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE

ESCAPE

104410

0
54

;SET REP/SELECT TIMER VALUE

TST

004737
000013
005403
002015

027112

027116

012064

DMRIN

THRESH,5403,2015

JSR

PC, SDMRIN
.WORD
THRESH

.WORD
.WORD

5403
2015

027132

ESCAPE

TST

SHUTDN

012560

JSR

PC, SHALT

ESCAPE

TST

104410

122737

000054

002705

CMPB

000015

002714

(MPB

CSESCAPE

L10036-.

CSESCAPE

L10036~.

sSET THRESHOLD VALUES AS FOLLOWS:
;BSEL4 = NAKS RECEIVED (3)
;BSELS = NAKS TRANSMITTED (13)
;BSEL6 = REP/SEL SENT (15)
;BSEL7 = NO BUFFFER (4)
sanxx MACRO EXPANSION #x%x
:CALL DMR MODE INPUT ROUTINE
;INPUT COMMAND

sSEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
sSEL6 VALUE (OR BITS TO SET IN BSEL6)
Ahkk

:1IF ERROR, BR TO TEST END

JHALT THE DMR.
saxxx MACRO FXPANSION sxwxx
;DMR HALT ROUTINE.
shhkkk

000064

TRAP

.WORD

104410
000074

004737

.WORD

khkk

:IF ERROR, BR TO TEST END

sRAkR

027112

TRAP

;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)

000112

027074
027074
027100
027102
027104

sxxxx MACRO EXPANSION #xxx
sCALL DMR MODE INPUT ROUTINE
;INPUT COMMAND

s hkkk

027070
027070
027072

LINE UNIT LOOP,

;IF ERROR, BR TO TEST END

DMRIN

CSESCAPE
L10036~.

sxxxx MACRO EXPANSION #axw
:CALL BASE IN ROUTINE WITH DEFAULTS

SRk kR

027052
027052
027054
027056

TRAP
.WORD

TRAP

CSESCAPE

.WORD

L10036~.

TRAP
.WORD

CSESCAPE
L10036~.

L2
2 3

:IF ERROR, BR TO TEST END

#54 ,BASE+PRETIM;CHECK REP/SEL TIME IN BASE TABLE.
108
;IF _NOT 54, BR TO ERROR
#15 ,BASE +TH3L
:CHECK REP. THRESH. IN BASE TABLE.

CZDMIAO DMR=11 FUNCTIONAL TESTS MACYTT 30A(1052)T
13-MAR-80 09:36 PAGE 2-85
CZDMIA.P1T
13-MAR-80 09:34
IS5~ DMR COMMANDS

5407
08

027140

001014

TN TN

aERGGoRERRER

5409
5410
11

000003

002710

000013

002712

000004

002716

108

#3,BASE+THIL
108
#13,BASE+TH2L
108"
#4 BASE+TH4L

20§

10%:

SEQ 0108

;IF NOT 15, BR TO ERROR.

:CHECK NAK RCVD. THRESH. IN BASE TABLE.
:IF NOT 3, BR TO ERROR.
:CHECK NAK SENT THRESH. IN BASE TABLE.
*IF NOT 13, BR TO ERROR
:CHECK NO BUF.

THRESH.

IN BASE TABLE.

‘IF 4, ALL CHECKS OK - EXIT

24 ,EMT8 ,ERRT3
TRAP

20%:

ENDSUB

(3)

L10040:

ENDTST

BGNMSG
017746
017746
012746
012746
010600
104414
062706

005046
153716
012746
012746
0600

L10036:
ERRT3
PRINTB

153022

153014
016276
000003
000010

PRINTB

002705

CMPB
BEQ

PRINTB

0600

000006

122737

000003

001413
005046

153716

012746

,54 LBASE+PRETIM :IS REP/SEL TIME OK?
1%

002710

CMPB
BEQ

PRINTB

002710
027670

TRAP

CSESUB

TRAP

CSETST

MOV
MOV
MOV
MOV
MOV

ASEL2,=(SP)
aSELO.~(SP)
#FMG1,-(SP)
#3,-(5P)
SP.RO

ERRT3::

TRAP
ADD

CSPNTB
#10,SP

CLR
BISB
MOV
MOV
MOV

-(SP)
BASE+ISP13,(SP)
#FMT11,-(SP)
#2,-(SP)
SP.RO

CLR
BISB
MOV
MOV
MOV
TRAP
ADD

-(SP)
BASE+PRETIM,
(SP)
#FMT12,-(SP}
#2,-(SP)
SP.RO
CSPNTB
#6
. SP

CLR
8ISB
MOV

-(SP)
BASE+THIL.(SP)
#FMT13,-(SP)

‘BR IF OK

‘

#FMT12,<B,BASE+PRETIM> :PRINT IT OUT.

002705
027633
000002

062706

24
EMT8
ERRT3

#FMT11,<B,BASE+ISP13> ;PRINT OUT THE IMAGE OF SCRATCH PAD 15.

.
002726
027602
000002
000006
000054

104414

#FMG1,3SELO,RSEL2 ;PRINT SELO AND SEL2

CSERDF

WORD
.WORD
.WORD

#3,BASE+THIL

;IS NAK RCVD OK?

‘BR IF OK.

#FMT13,<B,BASE+THIL> :PRINT IT OUT

CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36
CZDMIA.P11
13-MAR-80 09:34
TEST 5 = DMR
C
)
(3)
(%)
(4)

012746
C10600

000002

062706

000006

122737

000013

104414

001413
005046
153716
012746
012746
010600

9
PAGE 2-86
SEQ 0109
#2,-(SP)

002712

2%:

SP,RO
CSPNTB
#6,SP
CMPB
BEQ

#13,BASE+TH2L
3%

PRINTB

;IS NAK SENT 0K?
;BR IF OK.

#FMT14,<B,BASE+THZL>

;PRINT

IT OUuT

CLR
BISB

002712
027725
000002

104414

122737

005046
153716
012746
012746
010600
104414
062706

TRAP

000015

002714

3%:

ADD

CMPB

015 LBASE+TH3L

PRINTB

IFMT15 <B, BASE*TH3L> JPRINT IT OUT

BEQ

;1S REP LEVEL 0OK?

‘BR IF OK.

=(SP)

002714
027762
000002

122737

L
, (SP)
BASE+TH3

#FMT15,-(SP)
#2,-(SP)

002716

001413

005046
---153216. 002216
012746 030017
012746 000002
(500
104414

e
e
e
s

4%:

SP,RO
CSPNTB
#6,SP

CMPB

#4 ,BASE +TH4L

PRINTB

H#FMT16,<B,BASE+TH4L> JPRINT

BEQ

;IS NO BUFFER LEVEL OK?

BR IF OK.

IT OQuT

CSFNTB
#6,SP

5%:

L10041:

027512

5447

S448
5449

027124
051117
044440
042522

EMT7:

.ASCIZ

/EXT. ERROR BIT INCORRECT/

051115

EMT8:

.ASCIZ

/DMR MODE INPUT COMMAND ERROR/

FMT11:

_ASCIZ

/%AIMAGE OF SP 13 = XD3%N/

027574
027602
027610

046511
043117

=(SP)
BASE+TH4L ,(SP)_ .. ..
#FMT16,-(SP)

#2,-(SP)

ENDMSG

027514

H#FMT14 ,-(SP)

MOV
MOV

062706
001413

=(SP)

BASE+TH2L
, (SP)

043506

C$MSG

CZDMIAQO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-87
CZDMIA.P
TEST 5=DMR C OMMANDS
13-MAR-80 09: 34

027616
5450

031461
031504

036440
047045

051101

050105

SEQ 0110

FMT12:

L.ASCIZ

/%AREP-SEL TIME VALUE = %D3IN/

5451

FMT13:

_ASCIZ

/%ANAK RCVD THRESHOLD = %D3%N/

5452

FMT14:

.ASCIZ

/%ANAK SENT THRESHOLD = X%D3IN/

5453

FMT15:

_ASCIZ

/%AREP SENT THRESHOLD = XD3%N/

5454

FMT16:

.ASCIZ

/%ANO BUFFER THRESHOLD = XD3%N/

.EVEN

.SBTTL

TEST 6 - CONTROL IN COMMAND

t"t*ttt*t*ttfi.filfifi't'tt'i'ttfi.!fit*t"ttt'.it.fi'tt""'t'fi"tttfi""'

TEST 6 - DMR-11

CONTROL IN COMMAND TEST -

SUBTEST 1

= CONTROL IN, FULL DUPLEX, DDCMP MODE.

SUBTEST 2

- CONTROL
IN. HALF DUPLEX.

SUBTEST 3

- CONTROL IN, MAINTENANCE MODE.

SUBTEST 4

= CONTROL IN USING SELECTED LOOPBACK.

i
'

i
i
i
- &

5479
5480
(3

030056
030056

ENSURE THAT

THE HALF-DUPLEX BIT IS CLEAR IN THE MODEM STATUS WORD,

ALSO ENSURE THAT DDCMP MODE BIT IS SET IN SCRATCH PAD 7.
£l

ENSURE THAT THE HALF DUPLEX

BIT IS SET IN SCRATCH PAD 7.

ENSURE THAT MAINT. MODE
ISSUE A CONTROL IN

USING THE USER SELECTED LOOPBACK.
IF THE LOOPBACK IS
NOT CORRECT, DMR RUN MODE ACKNOWLEDGE WILL NOT BE
RECE IVED.

::'titt"tttittt!it'it""i't'.‘..'fl...lQitt...'.'fi'..t'.t.‘."""'.'

BGNTST

¥16::

H 9
CZDMIAO DMR-11 FUNCTIONA69T§ZTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-88
CZDMIA.P1T
13-MAR-8
TEST 6 = CONTROL IN COMMAND
5481
(3)
(3)
5482
q))

BGNSUB

T6.1:

104402
CLEAR

004737

011064

JSR

PC, $MSCLR

JMACRO FOR MASTER CLEAR
sanxx MACRO EXPANSION #x#wx
sISSUE A DMR MASTER CLEAR
:..'.

ESCAPE

104410

N N N

\fuflqshvslunu\a

000404

NN
N

SEQ 0111

004737
004000
002630
000522

011262

JSR

ESCAPE

TST

JSR

ESCAPE

000354
052777

000057

004737
000000

010266

032777
001404

000020

152104

:CALL BASE IN ROUTINE WITH DEFAULTS
:SET LINE UNIT LOOP
:BASE TABLE ADDRESS
:DMR=11 MODE
shkkRk

PséRgCNTéN

sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.

:fifi"

TST

TRAP

BIS

WAIT

JSR

PC, SWAIT

BIT
BEQ
ERRDF

#BIT4 ,ASELS
108
21,EMT9

sxxxx MACRO EXPANSION *ax+

;FLAG THAT WE'RE WAITING FOR RDI
L2 2 2

;1S THE HDX BIT SET IN MODEM STATUS REG?
;0K = IF BIT CLEAR
;ERROR HDX BIT SET
TRAP

10%:

010702

.WORD
.WORD
.WORD

WAIT

RQI

JSR

PC, $CLRQI

012560

JSR

PC, SHALT

ESCAPE

TST

CSESCAPE
L10042-.

sCALL WAIT ROUTINE

;CLEAR RQI AND WAIT FOR RDI
sxxxx MACRO EXPANSION wwws

CSERDF
21
EMT9
0

TO CLEAR.

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.
TRnn

JHALT DMR
sxvxx MACRO EXPANSION »ww#
:DMR HALT ROUTINE.
:'tfi.

000304

2 24

:IF ERROR, BR TO TEST END.

SHUTDN

104410

L 2

. WORD
#RQI !RMODEM,QSELO ;SET RQI AND READ MODEM COMMAND
RDI
sWAIT FOR RDI TO BE SET

WORD

CSESCAPE

L10042-.

sCALL CONTROL IN ROUTINE WITH DEFAULT

004737

LA
2 2

sxxxx MACRO EXPANSION wxx«

:*t.fi

152074

104455

000025
030474
000000

004737

;xxax MACRO EXPANSION *#%#

TRAP
.WORD
sMACRO FOR CONTROL IN (FULL DUPLEX)

104410

CSESCAPE
L10042-.

;IF ERROR, BR TO TEST END.

CNTRIN

011516

TRAP

.WORD

JMACRO FOR BASE IN COMMAND

PC, $BASEI
JWORD
LPLU
.WORD
BASE
.WORD
DMR

($8suB

1 3. 2 2

;IF ERROR, BR TO TEST END.

BASE IN

104410
000366

004737
000000

TST

TRAP

:IF ERROR, EXIT.

L3 2

TRAP

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-89
CZDMIA.PT
13-MAR-80 09:34
TEST 6 = CONTROL IN COMMAND

5500

030170

132737
001004

(4)

030200

104455

(5)

030204
206

000020

002722

000025
030524
000000

BITB

BNE
ERRDF

SEQ 0112

58{74.8ASE*ISP7 ;IS THE DDCMP RUN BIT SET IN IMAGE OF

21,EMT10

;ERROR DDCMP 'RUN BIT NOT SET

TRAP
WORD

030212

(3)
5507

030212
030214

104402

030214

004737
004000
002630
010522

0%:

N
N
N

030224

BGNSUB

011262

030226
030232

004737
002000

BASE IN

LPLU,BASE ,RES!DMR ;BASE IN WITH RESUME.

JSR

PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
RES!DMR

suxxx MACRO EXPANSION wxw«
;CALL BASE IN ROUTINE
sMAINTENANCE MODE BITS TO SET
;BASE TABLE ADDRESS
;MODE

011516

CNTRIN

HDX

030234

030240
030246

104410
000234
052777

JSR

PC, SCNTIN
.WORD ~ HDX

ESCAPE

000057

030246
030252

004737
000000

010266

030254
030262
030264
030264
030266
030270

032777
001004

000020

030274
030274

151764

BIS
WAIT

JSR
151754

g&g
ERRDF

104455
000025
030552
000000

004737

030300
030300

5522

030302

C$ESUB

TRAP

c$8SUB

108:
012560

TST

ENDSUB

104403

BGNSUB

L2 2 24

L2 2 2

:IF ERROR, BR TO TEST END.

TRAP

.WORD

#RQI !RMODEM,@SELO ;SET RQI AND READ MODEM COMMAND
RDI
:WAIT FOR RDI TO BE SET
xxxx MACRO EXPANSION ##w»
PC, SWAIT
:CALL WAIT ROUTINE

.WORD

21,EMT1

PC,

$HALT

CSESCAPE

L10042-.

:FLAG THAT WE'RE WAITING FOR RDI
*hhkN

#B1T4 ,QSELS
10%

SHUTDN

JSR

IN BSEL1

:SEL6 - (DUPLEX, MODE)

L2
2 A4

:1S THE HDX BIT SET IN MODEM STATUS REG?
;0K - IF BIT SET

;ERROR HDX BIT CLEAR.

TRAP
WORD
WORD
WORD

CSERDF
21
EMTN
O

IRAP

(SESUB

JHALT THE DMR.
suankwe MACRO EXPANSION wxxx
:DMR HALT ROUTINE.
:'...

(3)
(3)

TRAP

:CONTROL IN COMMAND WITH HDX.
wxxx MACRO EXPANSION *###
:CALL CONTROL IN ROUT INE
:tt.t

NN
v

S Vv W

16.2:

:'ti'

o = O

Y WW=maaaa

v NN

Al Al

i
v
VI A A AN A A~ AN
s T
-t
S NN
SB

L10043:

104403

viwn

5506

\fl\nfl\’\fi\flflfl\hf\F\U“fl‘\’\’\fi?%gsf\f\fi\flw\

030210

WORD

CSERDF
21
EMT10
O

.WORD

ENDSUB

(3)

SP 7.

L2 8

L10044:

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-90
CZDMIA.P11
13-MAR-80 09:34
TEST 6 = CONTROL IN COMMAND

(3)
{3)
5523
1)
(1)

5524
5525
(3>
(3)
5526

030302
030302
030304

104402

030304

004737

030310
030310
030312
030314

(1)
(1)

030314
030320
030322
030324

(1)
(1)
(1)
(1)

5527
5528
(3)
(3)
5529
1)
(1)
(1)
1)

5530
5531
(3)
(3)
5532

030326
030326
030330
030332

104410
000142

030332
030336

004737
000400

030340
030340
030342

104410
000130

(1)
(1)

030344

004737

5533
(3)
(3)
5534
5535
5536

030350
030350
030352
030354
030362
030364

(5)
(5)
(5)
5537
5538
(3)
S%‘)?

030366
030370
030372
030374
030374
030374
030374

5540
(3)
ng%

030376
030376
030376

030344

(4)

5542
(1)
(1)

030364

76.3:

CLEAR
011064

ESCAPE

104410
000120

132737

001004

;MACRO FOR MASTER CLEAR

PC, SMSCLR

suwxx MACRO EXPANSION ##wx
;ISSUE A DMR MASTER CLEAR

TST

;IF ERROR, BR TO TEST END.

BASEIN
011262

JSR

’

ESCAPE

011516

PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR

TST

000002

104455

000025
030606
000000

002722

JRRER

TRAP
.WORD
sMACRO FOR CONTROL IN (MAINT. MODE)

TST

;IF ERROR, BR TO TEST END.

BITB

BNE
ERRDF

JRRRR

HALT

JRRNR

CSESCAPE
L10042-.

TRAP
.WORD

CSESCAPE
L10042-.

ARRR

IF ERROR, BR TO TEST END.

#B1T1,BASE+ISP7 ;1S THE MAINTENANCE BIT SET IN IMAGE OF SP 7.

108
21,EMT12

;ERROR = MAINT. BIT NOT SET.

108:
ENDSUB

L10045:

BGNSUB

16.4:

104402
CLEAR
JSR

TRAP
.WORD

sxxex MACRO EXPANSION wwww
sDMR HALT ROUTINE.

011064

CSESCAPE
L10042-.

AARR

104403

004737

CSESCAPE
£ 10042-.

;IF ERROR, BR TO TEST END.
:

sx%xx MACRO EXPANSION wxxw
sCALL CONTROL IN ROUTINE
;SEL6 - (DUPLEX, MODE)

TST

TRAP
.WORD

ARRR

PC, SCNTIN
.WORD
MAINT

ESCAPE

)

sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE

JSR

PC, SHALT

$8suUB

sxnxx MACRO EXPANSION wxxw
sCALL BASE IN ROUTINE WITH DEFAULTS

MAINT

JSR

TRAP

i
E L

sMACRO FOR BASE IN COMMAND

SHUTDN
012560

JRRRR

CNTRIN

ESCAPE

030400
030400

JSR

104410
000160
004737
004000
002630
000522

SEQ 0113

;MACRO FOR MASTER CLEAR

PC, SMSCLR

sxxxx MACRO EXPANSION *xxx
;ISSUE A DMR MASTER CLEAR

TRAP

CSERDF

.WORD
.WORD
.WORD

21
EMT12
O

TRAP

CSESUB

TRAP

($8SUB

K 9
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-91
CZDMIA.P1
13-MAR-80 09:34
TEST 6 = CONTROL IN COMMAND
sRRRN

ESCAPE

002254

TST

LA 224

;IF ERROR, BR TO TEST END.

TRAP

;1S INTERNAL LOOPBACK REQUESTED?"

DMTURN
18
#LPLU, 1008

“SET LINE UNIT LOOPBACK.

004000

030440

BNE
BIS
BR

004000

030440

BIC

#LPLU,100%

sCLEAR LINE UNIT LOOPBACK.

CALL

$BASE|
WORD
.WORD
.WORD

;BASE IN COMMAND.
sMAINTENANCE BITS (L. U. LOOPBACK?)
sBASE TABLE ADDRESS.

100%:

ESCAPE

104410

TST

CALL

$LOOP

ESCAPE

TST

O
BASE
DMR

:;DMR_MOD €.

:IF ERROR, BR TO TEST END.

TRAP

- WORD

JSR

PC,

SCNTIN

WORD

C$ESCAPE
L10042-.

;EXTENDED DMR COMMAND TO SET MAINT. BITS
<IF NEEDED. THIS WILL ALLOW MODEM LOOPBACK
:IF THE USER REQUESTED IT.
:IF ERROR, BR TO TEST END.

CNTRIN

011516

CSESCAPE
L10042-.

*IF NOT, BR

TRAP

000012
004737
000000

TST

SEQ 0114

CSESCAFPE

WORD

L10042-.

TRAP

CS$ESUB

TRAP

CSETST

JMACRO FOR CONTROL IN (FULL DUPLEX)
sxxxx MACRO EXPANSION #xxx
sCALL CONTROL IN ROUTINE WITH DEFAULT
sSEL6 - FULL DUPLEX, RUN MODE, 1 SEC START.

;.Q'.

ENDSUB

L2 3 34

L10046:

104403

ENDTST

L10042:

044502
020124
044440
000130
020120
044502
020124

5570

5571

044502

042117
020124

EMT9:

.ASCIZ

/HDX BIT SET WHEN IN FDX/

EMT10:

ASCIZ

/DDCMP RUN BIT NOT SET/

044502
020124
044127
020116

EMT11:

LASCIZ

/HDX BIT NOT SET WHEN IN HDX/

027124
020105
047516

EMT12:

LASCIZ

/MAINT. MODE BIT NOT SET/

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 3OA(1052)
13-MAR-80 09:36 PAGE 2=92
CZDMIA.P11
13-MAR-80 09:34
EST 6 = CONTROL IN COMMAND
5572
5573
5574
5575
5576
5577
5578
ggg

030630

020124

042523

000124

.EVEN

.SBTTL

5581

TEST 7 - MODEM WRITE COMMAND

5582

SEQ 0115

T I

TEST 7 = DMR=-11

133223823323322222222222223112222%

;* MODEM WRITE COMMAND

*
ow
i

SUBTEST 1

SUBTEST 2

o¥

%
%

= WRITE DATA PATTERNS INTO THE MODEM WRITE REGISTER.
ENSURE THAT ON THE NEXT MODEM READ THAT THE
MICROCODE RETURNS THE PATTERN WRITTEN INTO BSEL6.

= ATTEMPT TO WRITE BOTH THE HALF=DUPLEX BIT AND THE
RTS HOLD BIT.

THE MICROCODE SHOULD NOT ALLOW THIS

TO HAPPEN.
WHEN READING THE MODEM STATUS,
THE HALF-DUPLEX SHOULD BE SET.

.- %

ONLY

.*t*ttt'.'it*'fi""iQ't""'*"t'ttl.ltfi*i'fitttt't'fi'..ti*t't"t‘tt*.fit.
BGNTST

T7::

BGNSUB

104402
004737

CLEAR
011064

JSR

PC, SMSCLR

JMACRO FOR MASTER CLEAR
sxnxx MACRO EXPANSION #wxx
;ISSUE A DMR MASTER CLEAR
:itfi'

ESCAPE

104410

000232

004737

004000
002630
000522

011262

JSR

012701
012702

000005
031102

012237
004737

030712
012064

108

15%:

.WORD
.WORD
.WORD

LPLU
BASE
DMR

sCALL BASE IN ROUTINE WITH DEFAULTS

sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE

:fiififi

L3 3 23

TST

;IF ERROR, BR TO TEST END.

MOV
MOV

#5.R1
#MODEM,R2

sCOUNTER
JPATTERN TO WRITE INTO MODEM

MOV
JSR

(R2)+,15%
PC,SDMRIN

JWRITE PATTERN
s ISSUE DMR MODE COMMAND

WMODEM
377
O

CSESCAPE

L10047-.

sxnxxx MACRO EXPANSION #xx+

ESCAPE

.WORD
.WORD
WORD

TRAP

WORD

;JBASE IN COMMAND.

PC, $BASEI

C$8SuUB

1 3233

;IF ERROR, BR TO TEST END.

BASE IN

104410
000214

000005
000377
000000

TST

TRAP

TRAP
WORD

WRITE MODEM COMMNAD
sCLEAR ALL BITS IN BSEL6
sSET THE BITS IN BSEL6 (FROM PATTERN)

CSESCAPE
L10047-.

CZDMIAO DMR=-11 FUNCTIONAL
T
§2TS
MACY11 30A(1052)
CZDMIA.P1T
13-MAR-80

b =2

09:36

9
PAGE 2=93

T 7 = MODEM WRITE COMMAND

ESCAPE

104410

TST

:IF ERROR, BR TO TEST END.

TRAP

IS NN N

LWORD

052777

000057

004737
000000

010266

151304

BIS
WAIT

:S?I'RKJDEHGSELO
?ET RQI AND READ MODEM COMMAND
FOR RDI TO BE SET.

JSR

PC, SWAIT

ESCAPE

TST

CMPB
BEQ
MOv
ERRDF

aBSELE,15%
25%
15% ,R3
22 ,EMT13 ERRT2

WORD

— e =D b NN

104410

CALL WAIT ROUT INE

:FLAG THAT WE'RE WAITING FOR RDI
LA
2 2

:IF ERROR, EXIT TEST.

TRAP
WORD

OO NON W

000142
127737

001406
013703

151274

030712

104455
000026
031146
031114

004737

:0ID THE MICROCODE COPY THE BITS?
:IF YES CONTINUE
:SAVE THE PATTERN FOR THE ERROR MESSAGE.
:WRITE MODEM ERROR

010702

WAIT

RQI

JSR

PC, SCLRQI

;CLEAR RQ] AND WAIT FOR RDI

swxxx MACRO EXPANSION www

CSERDF
22

.WORD

ERRT2

104410
000106
005301
001337

DEC
BNE

30%:

TST

TO CLEAR.

Rk
%k

:IF ERROR, EXIT TEST.

R1
108

EMT13

:CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

SRk Rk

ESCAPE

CSESCAPE
L10047-.

TRAP
WORD

.WORD

25%:

CSESCAPE

;wxnx MACRO EXPANSION wwws

shkkw

wVids

SEQ 0116

000162

d e

5611
(3)

13-MR-80

TRAP
WORD

CSESCAPE
L10047-.

TRAP

CSESUB

TRAP

C$8sSuUB

;DECREMENT COUNTER
sCONTINUE UNTIL ALL 5 PATTERNS TRIED.

ENDSUB

L10050:

104403
BGNSUB

17.2:

104402

031014
031016

004737
00000 5
000377
000021

012064

WMODEM, 377,21

JSR

PC, SDMRIN
.WORD
WMODEM

.WORD
.WORD

104410

000060
052777

DMRIN

000057

151202

377
21

sATTEMPT TO WRITE MODEM HDX AND RTS.
sxxxx MACRO EXPANSION *wxw
:CALL DMR MODE INPUT ROUTINE
s INPU T COMMAND

:SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
:SEL6 VALUE (OR BITS TO SET IN BSEL6)
shkkkk

ARk
%

ESCAPE

TST

BIS
WAIT

#RQI !RMODEM,@SELO ;SET RQI AND READ MODEM COMMAND.
RDI
;WAIT FOR RD] TO BE SET
;axxx MACRO EXPANSION #s

:1F ERROR, BR TO END.

CZDMIAO DMR=11 FUNCTI ONAL T§2TS MACYT 30A(1052)
CZDMIA.P
13-MAR-80 09

031030
031034

00473 7
000000

010266

13-MAR-80

09:36

9
PAGE 2=94

T 7 = MODEM WRITE COMMAND

JSR

PC, SWAIT

ESCAPE

TST

WORD

sCALL WAIT ROUTINE

sFLAG THAT WE'RE WAITING FOR RDI
.'..

104410

SEQ 0117

13 2

IF ERROR, EXIT TEST.

TRAP

000040
122777
001406
01270 3

000020

151170

#21,R3

sSAVE THE PATTERN FOR THE ERROR MESSAGE.

;IF YES = 0K

TRAP

.WORD
.WORD
.WORD

010702

WAIT

RQI

JSR

PC, $CLRQI

SHUTDN

00473 7

012560

JSR

PC, SHALT

ENDSUB

ENDTST

000007

1 2

8. 84

L10047:

10440 1

000376
000357

L2 2

L10051:

10440 3

000000
00025 2

MODEM:

.WORD

BGNMSG

ERRT2
PRINTB

TRAP

CSESUB

TRAP

CSETST

CLR
BISB
MOV
MOV

-(SP)
aBSEL6, (SP)
R3,.-(SP)
#FMT19,~(SP)

0,376,1,252,357 ;PATTERN TO WRITE INTO MODEM

#FMT19,R3,<B,aBSEL6&>

ERRTZ2::

151116

031172
000003

MOV

031144

031162
031170

TRAP

000010

052111
042504
047522

ENDMSG

020105
020115
020122

EMT13:

L10052:

JASCIZ

22
EMT13
ERRTZ2

saxxw MACRO EXPANSION *xxx
;DMR HALT ROUTINE.
:.'*.

CSERDF

;CLEAR RQI AND WAIT FOR RDI TO CLEAR.
saxex MACRO EXPANSION wxnx
:CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

"*.fi

031072

;IS ONLY HDX SET?

22,EMT13,ERRT2

10%:

L10047-.

#20,aBSEL6

108

000021

10445 5
000026
031146
03111 4

00473 7

CSESCAPE

WORD

/WRITE MODEM ERROR /

#3,-(SP)
SP.RO

CSPNTB

ADD

#10,SP

TRAP

CEMSG

CZDMIAO DMR=11 FUNCTIONAL Tg‘TS MACY11 30A(1052)
13-MAR-8C 09:
CZDMIA.P1T
5659

B 10

13-MAP-80 09:36 PAGE 2-95
£ 7. MODEM WRITE COMMAND

SEQ 0118

031172

5660
5661

060445

82211(7)

FMT19:

.ASCIZ

031244
031252

/%AWROTE IN BSELS: %03%A

MODEM FORMAT IN BSEL6: %03%N/

.EVEN

.SBTTL

TEST 8 = NO BUFFER ERROR

SUBTEST 1
%

%
%

IR
R

SUBTEST 2

TEST 8 - DMR-11

= TRANSMIT A BUFFER THREE TIMES WIHOUT ASSIGNING A

RECEIVE BUFFER.
BY ASSIGNING A NO BUFFER THRESHOLD
OF THREE, ENSURE THAT A NO BUFFER ERROR IS RECEIVED
AFTER THE THIRD THRANSMISSION.
= TRANSMIT A BUFFER WITHOUT A RECEIVE BUFFER.
ASSIGN THE NAKS THRESHOLD OF 3 AND A NO BUFFER
THRESHOLD OF 7.
CHECK THAT THE NAKS ERROR COUNT IS
THREE AFTER SHUTDOWN.

tttttttttttttnttttttttttQtttttttn'tttttattttttttttttttttt't:tttatntat

ttttttt.'tttt'fi'fitt..tt'.'..*'tfi.fii'lfi'*'fi..ttfi'fi'fi'i."fifi'it'.i"fii'

BGNTST
T8::

BGNSUB

104402

004737

78.1:
CLEAR

011064

JSR

sMACRO FOR MASTER CLEAR

031272

JSR

ESCAPE

031310

CNTRIN

TRAP
.WORD

CSESCAPE
L10053-.

;ISSUE A DMR MASTER CLEAR

TST

L2
2 2

:IF ERROR, BR TO TEST END.

BASEIN

011262

c$8sSuUB

sxxxx MACRO EXPANSION *xx«

PC, SMSCLR

skRRk

ESCAPE

TRAP

sMACRO FOR BASE IN COMMAND
sxxxx MACRO EXPANSION »xx«

PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS

;DMR-11 MODE

shRkkk

TST

Khkk

:IF ERROR, BR TO TEST END.

MAINT

:MACRO FOR CONTROL

(RAP
CSE SCAPE
. WORD
L10053~.
IN (FULL DUPLEX AND MAINT)

c10
§4TS
CZDMIAO DMR=-71 FUNCTIONAL
TES
MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-96
13-MAR-80
CZDMIA.P1T
TEST 8 - NO BUFFER ERROR
1)
(M

004737
000400

011516

JSR

sa%xx MACRO EXPANSION ##w#

PC, SCNTIN
.WORD
MAINT

sCALL CONTROL IN ROUTINE
;SEL6 - (DUPLEX, MODE)
sRRR%

ESCAPE

SEQ 0119

TST

L2
2 2

:IF ERROR, BR TO TEST END.

TRAP

.WORD

C$ESCAPE

L10053-.

SE T THRESHOLDS:

031322
031322
031326
031330
031332

012064

DMRIN

THRESH,177777 ,17

JSR

PC, SDMRIN
.WORD
THRESH

.WORD
WORD

177777
1777

7h7KJ BUFFER
= 3
sxxex MACRO EXPANSION #wx«

:CALL DMR MODE INPUT ROUTINE

: INPUT COMMAND
sSEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
sSEL6 VALUE (OR BITS TO SET IN BSEL6)
shAkk

031334
031334
031336
031340
031344
031344

ESCAPE

000003

031344
031350
031352
031354

1%:

012274

MOV

TST

:IF ERROR, BR TO TEST END.

#3,R0

;SET UP A COUNTER

BACCIT
JSR

031356
031362

010266

032777
001005
104455

031424

000010
020072
015070
000410

000001

150632
150622

10%:

CSESCAPE
L10053-.

;BA/CC IN COMMAND FOR TRANSMIT

PC, $BACC
:CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI!BACC T
:BA/CC IN TRANSMIT COMMAND
TBUF
s TRANSMIT BUFFER _ADDRESS
.WORD
.WORD
TCOUNT
s TRANSMIT CHARACTER COUNT

WAIT

RDO

JSR

PC,

ESCAPE

TST

SWAIT

.WORD

DEC
BEQ
BIC

RO
10%
1‘2003 CMD,aSEL2

BIT
BNE
ERRDF

#CNTRL ,@SEL2

208
8.EMG8,ERRGZ

308

* k%

;WAIT FOR RDO TO BE SET

sxxxx MACRO EXPANSION *xx«

sCALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDO
SRRk k

000207

TRAP
.WORD

sxxxx MACRO EXPANSION #wx«

s hhkkk

031356

LA
2 2

:IF RDO NOT SET, BR TO TEST END.
sDEC COUNTER
;TRANSMIT FOR 3 TIMES.
sCLEAR BACC OUT TRANSMIT.

TRAP
.WORD

CSESCAPE
L10053~.

:TRANSMIT AGAIN

:1S THIS A CONTROL OUT?
:IF YES, PROCEED.
:EXPECTED CONTROL OUT NOT RECEWEgAp

JEXIT

.WORD
-WORD
.WORD

CSERDF
8
EMG8
ERRG2

D 10

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-97
CZDMIA.P1
13-MAR-80 09:34
TEST 8 = NO BUFFER ERROR

5717
5718
5719
5720

(4)
(5)
(5)
(5)
5721
5722
5723
5724
1)
(1)

E‘B
5725
(3)
(3)
5726
5727

031426
031426
031434
031436
031436
031440
031442
031444
031446

032777
001004

000004

042777

000207

031454

004737

010266

000001

104410
000222
042777

000207

(1)
(1)

031474

004737

012560

5728
5729
(3)
s ;%())

031500
(031500
031500
031500

5731
(3)
(3)
5732

031502
031502
031502
031504

(1)

031504

(1)
1)

5733
5734
(3)
(3)

5735

(1)

(1)
(1)
(1)
(1)

5736
5737
(3)
(3)
5738
(1)
(1)

031510

031510
031512

031514
031514

031520
031522
031524

150560

308
:

#NOBFR ,aSEL6
308
9,EMG9,ERRG2

;IS THE NO BUFFER FLAG SET?
;IF YES - OK, PROCEED.
:WE'RE NOT GETTING EXPECTED RESULT

TRAP

CSERDF

.WORD
.WORD
.WORD
s (EITHER CONTROL OUT OR NOBUF /NAKS)

9
EMG9
ERRGZ

BIC
WAIT

#RDO!CMD,@SEL2
RDO

JSR

PC, SWAIT

sxxxx MACRO EXPANSION *xwx
sCALL WAIT ROUTINE

ESCAPE

TST

;IF ERROR, BR TO END.

BIC
SHUTDN

#RDO!CMD,aSEL2

;CLEAR BACC OuT.
‘HALT DMR

JSR

PC, SHALT

.WORD

150540

508:
ENDSUB

;CLEAR CONTROL OUT
JEXPECT ANOTHER BACC OUT.

sFLAG THAT WE'RE WAITING FOR RDO
Rk
K

;tttt

L10054:

004737

011064

004737

004000
002630
000522

104410
000156

031532

004737

000000

JSR

‘

011262

sMACRO FOR MASTER CLEAR

PC, S$MSCLR

ESCAPE

104410
000174
s

18.2:
CLEAR

TST

BASEIN
JSR
-

ESCAPE

WORD
.WORD
.WORD

LPLU
BASE
DMR

TST

JSR

($8SLB

IRRRN

TRAP
.WORD

CSESCAPE
L10053-.

222

sexxx MACRO EXPANSION wwxx

sCALL BASE IN ROUTINE WITH DEFAULTS

sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE
JRERR

ANKR

TRAP
.WORD
sMACRO FOR CONTROL IN (FULL DUPLEX)

PC, SCNTIN

.WORD

TRAP

;IF ERROR, BR TO TEST END.

CNTRIN
011516

C$ESUB

sISSUE A DMR MASTER CLEAR

sMACRO FOR BASE IN COMMAND

PC, SBASEI]

TRAP

saxwx MACRO EXPANSION wwxxx

;IF ERROR, BR TO TEST END.
:

CSESCAPE
L10053-.

(2227

BGNSUB
104402

TRAP
.WORD

sxxxx MACRO EXPANSION wwwx
DF'R HALT ROUTINE.

104403

031526
031526
031530
031532
031536

BIT
BNE
ERRDF

JRRRR

031462
031462
031464
031466
031474

(1)

20%:

104455
000011
020136
015070

031446
031454
031460

150604

SEQ 0120

sexxx MACRO EXPANSION wxax
sCALL CONTROL IN ROUTINE WITH DErFAULT

CSESCAPE
L10053-.

sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
cRR AR

kKK

E 10

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-98
CZDMIA.P1T
13-MAR-80 09: 34
TEST 8 = NO BUFFER ERROR

5739

5740
(3)
(3)

031540
031540
031542

ESCAPE

1044
1

TST

SEQ 0121

:IF ERROR, BR TO TEST END.

TRAP
.WORD

CSESCAPE
L10053-.

sSET THRESHOLDS:

sNAKS RCVD = 3

031544

031544
031550
031552
031554

004737
000013
001403
003777

012064

;NAKS SENT = 3
;REP _SENT = 377
;NO BUFFER = 7

DMRIN

THRESH,1403,3777

JSR

PC, SDMRIN

sannx MACRO EXPANSION *xwx
sCALL DMR MODE INPUT ROUTINE

.WORD

sSEL6 VALUE (OR BITS TO SET IN BSEL6)

.WORD
.WORD

THRESH
1403

3777

;INPUT COMMAND
;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
:t..t

031556

031556
031560
031562

000126

004737
031572

ESCAPE

104410

BACCIT

JSR

012274

002512

;IF ERROR, BR TO TEST END.

;BA/CC IN COMMAND FOR TRANSMIT

10%:

004737 010266 '

000001

WAIT

RDO

JSR

PC, SWAIT

ESCAPE

000102
032777
001005

000001

150420

104455

.WORD

032777
001004

;FLAG THAT WE'RE WAITING FOR RDO

000004

150402

:IF RDO NOT SET, BR TO TEST END.

TRAP

.WORD

;1S THIS A CONTROL OUT?

ERRDF

8.EMG8 ,ERRG2

;EXPECTED CONTROL OUT NOT RECEIVED.

208

BIT

#NOBFR,aSEL6

ERRDF

9.EMG9 ,ERRGZ

000011
020136
015070
30%:

#CNTRL ,@SEL2

308

104455

031650
031650

TST

L2
3 3

BIT

000010
020072
015070
000410

308

CSESCAPE

L10053-.

:IF _YES, PROCEED.

TRAP

CSERDF

.WORD
.WORD
.WORD

8
EMG8
ERRGZ2

WE'RE NOT GETTING EXPECTED RESULT
TRAP
.WORD
.WORD
.WORD

CSERDF
9
EMG9
ERRGZ2

JEXIT
;IS THE NO BUFFER FLAG SET?

:IF YES - OK, PROCEED.

;(EITHER CONTROL OUT OR NOBUF /NAKS)
SHUTDN

CSESCAPE
L10053-.

;WAIT FOR RDO TO BE SET
sexxx MACRO EXPANSION #xxx
sCALL WAIT ROUTINE

ifi"

104410

TRAP
.WORD

sxxxx MACRO EXPANSION #www
PC, $BACC
:CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI!BACCT
:BA/CC _IN TRANSMIT COMMAND
.WORD
TBUF
sTRANSMIT BUFFER ADDRESS
.WORD
TCOUNT
;TRANSMIT CHARACTER COUNT
sk

031574
031574
031574
031600

TST

L2 2 24

F 10
CZDMIAO DMR=11 FUNCTIONAL TESTS MACYT 30A(1052)TE ;?-gAR-BO 09:36 PAGE 2-99
13-MAR-80 09: 34
CZDMIA.P1T
= NO BUFFER ERROR

004737

012560

031654

123727
001004
123727
001404

002633

000003

002636

000003

PC, SHALT

408

(5)
(%)
(5)
5771
5772
5773

:NAKS REC.

LA
2 24

- NO BUFFER
=

:IF NOT _ERROR
:NAKS SENT - NO BUFFER
= 3?
¢IF 0K = SKIP,

23,EMT20,ERRT4

104455

(%)

s*%xx MACRO EXPANSION #wwxw
:DMR HALT ROUTINE.

SRk
R

BASE+3,43
35%
BASE+6,#3
35%:

CSERDF
23
EMT20
ERRT4

000027
031746
031710
40%:
ENDSUB

L10055:

ENDTST

BGNMSG

L10053:

ERRT4
PRINTB

=(SP)

BASE+3, (SP)

040516
051122
031762

031746
031754

ERRT4::

002633
016557
000003

104423

CSETST

8?25*6 (SP)

#EMG7 ,~(SP)

#3,-(SP)

SP,RO
CSPNTB

000010
031744

#FMG7,<B,BASE+3>,<B ,BASE+6>

CSESUB

002636

5765
5766
5767
5768
5769
5770

031650

(=l=]

1)
(1
(1)

SEQ 0122

#10,sP

ENDMSG

042440
000

EMT20:

L10056:
.ASCIZ

/NAKS ERROR/

.EVEN

TEST 9 = NON-EXISTENT MEMORY ERROR

.SBTTL

e
i
it
It
222322332222222222212¢8;

TEST 9 = DMR-11

- %

;* NON-EXISTENT MEMORY

(NXM) ERROR CHECK

;* REPORTED IN EACH OF

THE FOLLOWING SUBTESTS

;% PERFORM DMR COMMANDS USING NXM ADDRESSES; VERIFY THAT NXM ERROR IS
;*

SUBTEST 1

SUBTEST ¢

BASE IN RESUME COMMAND
- BASE TABLE ADDRESS IS NXM
BA/CC IN RECEIVE COMMAND - BA/CC IN ADDRESS IS NXM

C$MSG

610

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30AC1052)
13-MAR-80 09:36 PAGE 2-100
CZDMIA.P11
13-MAR-80 09:34
TEST 9 = NON-EXISTENT MEMORY ERROR

g;gg

5799

Et'tttttttttt'tttttttQ""t'tttttttt'tQtttQtttttt't.t"t'tl'ttt'tt't..

5800
(3)
5801
(3)
(3)
5802
(1)
(1)
(1)

5803

5804
(3)
(3)
5805
(1
(1)
(1)
(1)
(1)
(1)

. %

031762
031762
031762
031762
031762
031764
031764

104402
004737

104410
000500

031774
032000
032002
032004

004737
004000
002630
000522

032012

004737

5809
(3)
(3)
5810

032016
032016
032020
032022

104410
000452
012737

032030

004737

(1)

032036

160000

(1)

5815
5816
(1
(1)

011064

032040

011262

JSR

PC, S$MSCLR

sxxex MACRO EXPANSION wwwx
;ISSUE A DMR MASTER CLEAR

ESCAPE

TST

;IF ERROR, BR TO TEST END

JSR

ESCAPE

012560

INRER

000001

002360

000000

011262

004737

032046

000001

5817
5818
5819
(4)
(5)

032050
032056
032060
032060
032062

032777
001005
104455
000010

010266

000001

150156

($8SuUB

TRAP
.WORD

CSESCAPE
L10057-.

PC, $BASE!
.WORD
LPLU
.WORD
BASE
.WORD
DMR

sxxxx MACRO EXPANSION #w%x
;CALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
:DMR-11 MODE

TST

;IF ERROR, BR TO TEST END

JRRRE

1222

JHALT

f
TRAP
.WORD

CSESCAPE
L10057-.

sewxx MACRO EXPANSION wxxw

JSR

PC, SHALT

;DMR HALT ROUTINE.

ESCAPE

TST

IF ERROR, BR TO TEST END.

MOV

s
#CNTRL ,ERROR

BASEIN

BASE IN RESUME COMMAND WITH NXM BASE TABLE.
0,160000 BIT1S'BIT14‘RES‘DFR

JSR

PC, $BASEI]

suxxx MACRO EXPANSION *%xx
'CALL BASE IN ROUTINE

.WORD

;BASE TABLE ADDRESS

150522

TRAP

AhkR

;BASE IN COMMAND - DMR MODE

SHUTDN

032042
032042

sMASTER CLEAR MACRO

BASE IN

R
032030

032034

19.1:

JRRRK

(1)
(1>

(1)

19::

CLEAR

031770
031770
031772
031774

104410
000462

5813
5814

BA/CC IN TRANSMIT COMMAND - BA/CC IN ADDRESS IS NXM

BGNSUB

032006
032006
032010
032012

gg}}

BGNTST

5806
5807
(3)
(3)
5808
Q)]

SUBTEST 3

SEQ 0123

/YRAP
WORD
;THIS FLAG WILL INHIBIT CONTROL'OQUT

.WORD

BIT15'BIT14'RES'DMR

RDO

JSR

PC, SWAIT

BIT
BNE
ERRDF

#CNTRL ,@SEL2
108
8,EMG8,ERRG?

WORD

sMAINTENANCE MODE BITS TO SET IN BSEL1

JRRRR

WAIT

CSESCAPE
iL10057-.

ERROR REPORTING
- BECAUSE WE EXPECT ONE.

.WORD

160000

ARRR

- MODE

(23123

;WAIT FOR RDO TO BE SET

sanxx MACRO EXPANSION wxxw
sCALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDO
X121}

ARAR

21S THERE A CONTROL OUT REPORTED ?
:IF YES, PROCEED.
EXPECTED CONTROL OUT
TRAP
.WORD

CSERDF
8

H 10
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)TE 13-MAR-80 09:36 PAGE 2-101
CZDMIA.P1T
13-MAR-80 09:34
ST 9 = NON-EXISTENT MEMORY ERROR

020072
015070
000410

032777
001004

000400

150140

BIT
BNE
ERRDF

104455
000011

SEG 0124
.WORD
.WORD

20%

JEXIT

#NXM,QSEL6

;1S THE NXM FLAG SET?
;IF _YES = ERROR REPORTED CORRECTLY
;UNEXPECTED CONTROL OUT RECEIVEDT

20%

9.EMGY,ERRGZ

020136
015070
042777
005037
032124
032126
032126
032126
032130
032130

000207
002360

150114
ENDSUB

BIC
CLR

#R
! CMDO
,@SEL?2

ERROR

L10060:

BGNSUB

004737

19.2:
CLEAR

011064

JSR

sMACRO FOR MASTER CLEAR
PC, SMSCLR

032140
032144
032146
032150

ESCAPE

104410

000334

004737
004000
002630
000522

TST

011262

JSR

ESCAPE

011516

JSR

ESCAPE

104410

000304
012737

000001

002360

MOV

;DMR-11 MODE

032176

004737

012274

TRAP

.WORD

PC, SCNTIN

WORD

CSESCAPE

L10057~.

TRAP

WORD
sMACRO FOR CONTROL IN (FULL DUPLEX)

CSESCAPE

L10057-.

saxxx MACRO EXPANSION ®xxw

JCALL CONTROL IN ROUTINE WITH DEFAULT
JSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
:.fi"

L3 2

8 1

TST

;IF ERROR, BR TO TEST END.

#CNTRL ,ERROR

WORD
L1 00)7
JINHIBIT CONTROL OUT ERROR REPORTING AGAIN
BA/CC IN REC.

032176

c$8SuUB

;CALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS

;IF ERROR, BR TO TEST END.

CNTRIN

032156
032162
032164
032164
032166
032170

TST

TRAP

senxx MACRO EXPANSION #%xx

eRRR

032152
032152
032154
032156

CSESUB

;MACRO FOR BASE IN COMMAND
PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR

TRAP

sISSUE A DMR MASTER CLEAR

;IF ERROR, BR TO TEST END.

BASEIN

CSERDF
9
EMG9
ERRGZ

twxwx MACRO EXPANSION **%=
SRRRR

032134
032134
032136
032140

.WORD
.WORD
.WORD

sCLEAR RDO AND THE COMMAND BITS
;JALLOW ERROR REPORTING

104403

104402

EMG8
ERRGZ

COMMAND WITH NXM

TRAP

CSESEAPE

760000 AND A CHARACTER COUNT
= 3,

BACCIR

160000, 81115'91r14'nc0u~r

JSR

PC, $BACC

;exxx MACRO EXPANSION #wws

:CALL BA/CC IN ROUTINE

110

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-102
CZDMIA.P1T
13-MAR-80 09:34
TEST 9 = NON-EXISTENT MEMORY ERROR
(1)

032202
032204

032206

000044

160000
140044

B
I
)

e Q0 N N N N

N W

NN\
—_—
D

032216
032220

BACCIT

004737
000040
002512
000044

RQI'BACCR

.WORD

BIT15'BIT14'RCOUNT

.WORD

032210

032210
032214

.WORD

012274

JSR

160000

SEQ 0125

sBA/CC IN RECEIVE COMMAND

BUFFER ADDRESS BITS 0=15

:i"fi

:BA BITS 16/17 AND CHAR. COUNT

;BA/CC IN XMIT

sunwx MACRO EXPANSION wwwx
PC, $BACC
s CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI'BACCT
;BA/CC IN TRANSMIT COMMAND
.WORD
TBUF
sTRANSMIT BUFFER ADDRESS
.WORD
TCOUNT
;TRANSMIT CHARACTER COUNT
:tt..

032222
032222
032226

004737
000001

010266

032777

000001

001005

104455
000010
020072
015070
000410

032777
001004

032270
032272

000400

147760

104455
000011
020136
015070

042777
005037

000207
002360

147734
ENDSUB

L3 4

WAIT

RDO

JSR

PC,

BIT

#CNTRL ,@SEL2

;IS THERE A CONTROL OUT REPORTED ?

ERRDF

8.,EMG8,ERRG2

JEXPECTED CONTROL OUT

SWAIT

.WORD

JWAIT
sxxxx
sCALL
sFLAG
:.."

147776

L2 2. 83

108

FOR RDO
MACRO EXPANSION #xxx
WAIT ROUTINE
THAT WE'RE WAITING FOR RDO
L 2

3 4

sIF YES, PROCEED.

TRAP

.WORD
.WORD
-WORD

208

SEXIT

BIT

#NXM,QSEL6

;IS THE NXM FLAG SET?

ERRDF

9.,EMG9,ERRGZ2

JUNEXPECTED CONTROL OUT RECEIVED

BIC
CLR

20%

#RDO!CMD,aSEL2
ERROR

CSERDF

8
EMG8
ERRGZ

;IF YES = ERROR REPORTFED CORRECTLY
TRAP
.WORD

.WORD
.WORD

CSERDF
Q
EMG9
ERRG2

TRAP

C$ESUB

TRAP

c$8suB

;CLEAR RDO AND THE COMMAND BITS.
;ENABLE ERROR REPORTING

L10061:

104403
BGNSUB

032310

19.3:

104402
CLEAR

004737

011064

JSR

JMACRO FOR MASTER CLEAR

PC, $MSCLR

saxxx MACRO EXPANSION sxx«
;ISSUE A DMR MASTER CLEAR
:‘.t.

032314
032314
032316
032320

032320

ESCAPE

104410

000154

004737

TST

BASE IN

011262

JSR

L2 2

8 1

;IF ERROR, BR TO TEST END.

JMACRO FOR BASE IN COMMAND

PC, $BASEI]

TRAP

LWORD

saxxx MACRO EXPANSION wxwxx
sCALL BASE IN ROUTINE WITH DEFAULTS

CSESCAPE

L10057-.

J 10

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-103
CZDMIA.P11
13-MAR-80 09:34
TEST 9 = NON=-EXISTENT MEMORY ERROR
(1)
(1)
(1)

032324
032326
032330

004000
002630
000522

5868
5869
(3)
(3)

032332
032332
032334

104410
000136

032336

1)
(1)
(1)
(1)
5871
5872
(3)
(3)

032336
032342

004737
000000

032344
032344
032346

104410
000124

(1)
(1)
(1)
(1)
(1)

032350
032354
032356
032360

004737
000044
002562
000044

5874
5875
(3)
(3)
gg;g

032362
032362
032364
032366

104410
000106
012737

5873

(1)

5878
5879

032350

5880

032374

(1)
(1)

032374
032400

004737
000040

(1)

0324046

140001

5881

)

(1)

(1)
1)

032402

ESCAPE

011516

012274

000001

002360

;IF ERROR, BR TO TEST END.

5883

032414

032777

000001

5885
(4)
(5)
(5)
(5)
5886
5887
5888
5889

032424
032424
032426
032430
032432
032434
032436
032436
032444

147612

ESCAPE

TST

;IF ERROR, BR TO TEST END.

;BA/CC IN RCV

000410

000400

147574

10%:

TRAP
.WORD

CSESCAPE
L10057-.

sxnxx MACRO EXPANSION w#wxw
PC, $BACC
;CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI'BACCR
;BA/CC IN RECEIVE COMMAND
.WORD
RBUF
JRECEIVE BUFFER
.WORD
RCOUNT
RECEIVE CHARACTER COUNT

ESCAPE

TST

MOV

#CNTRL ,ERROR

(2223

;IF ERROR, BR TO TEST END.

TRAP
CSESCAPE
WORD
L10057-.
sINHIBIT CONTROL OUT ERROR REPORTING AGAIN.

;BA/CC IN XMIT COMMAND WITH NXM BUFFER
;ADDRESS (760000) AND A CHAR. COUNT = 1

BACCIT

160000, BIT15!'BITi4!1

JSR

PC, $BACC
'CALL BA/CC IN ROUTINE
.WORD
RQI'BACCT
sBA/CC IN TRANSMIT COMMAND

sunnx MACRO EXPANSION wxxw

160000

;BUFFER ADDRESS BITS 0-15

BIT15!BIT14'1

JRRKR

;BA BITS 16 €& 17 AND CHAR. COUNT
wRAR

WAIT

RDO

JWAIT FOR RDO TO BE SET.

JSR

PC, SWAIT
WORD
1

sanex MACRO EXPANSION wwxnx
sCALL WAIT ROUTINE
sFLAG THAT WE'RE WAITING FOR RDO

BIT

#CNTRL,@SEL2

;IS THERE A CONTROL OUT REPORTED ?

ERRDF

8,EMG8,ERRG2

BNE

104455
000010
020072
015070

CSESCAPE
L10057-.

saxxx MACRO EXPANSION wwwx
:CALL CONTROL IN ROUTINE WITH DEFAULT
sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
IRRRR
T

.WORD

TRAP
WORD

JMACRO FOR CONTROL IN (FULL DlPLEX)

.WORD

010266

(2223

PC, SCNTIN
dORD
0

JSR

012274

004737
000001

032777
001004

SRR

JSR

160000

001005

sSET LINE UNIT LOOP
BASE TABLE ADDRESS
*DMR=11 MODE

JRRRK

032406
032412

032422

TST

BACCIR

032406

5884

LPLU
BASE
DMR

CNTRIN

5882
(1)
(1)

.WORD
.WORD
.WORD

SEQ 0126

108

JRRER

RRRR

:IF YES, PROCEED.

:EXPECTED CONTROL OUT

TRAP
.WORD
.WORD
.WORD

208

SEXIT

BIT
BNE

#NXM,QSELE
20%

;IS THE NXM FLAG SET?
:IF YES = ERROR REPORTED CORRECTLY

CSERDF

8
EMG8
ERRGZ

K 10
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-104
CZDMIA.P11
13-MAR-80 09:34
TEST 9 = NON-EXISTENT MEMORY ERROR
5890

032446

5891
5892
5893
5894

032456
032456
032464
032470

042777
005037

032470

104403

(4)
(5)
(5)
(5)

032446
032450
032452
032454

(3)

032470

5896
(3)
(3)
5897
5898
5899
5900
5901
5902
5903
5904

032472
032472
032472

Ségg

ERRDF

104455
000011
020136
015070

000207
002360

‘

147550

208:

BIC
CLR
ENDSUB

SEQ 0127

9,EMG9,ERRG2

;UNEXPECTED CONTROL OUT RECEIVED

#RDO'!CMD,@SEL2
ERROR .

:CLEAR RDO AND THE COMMAND BITS.
;DON'T INHIBIT CONTROL OUT ERRORS
L10062:

ENDTST

L10057:

104401

TRAP
WORD
.WORD
.WORD

TRAP

(CSESUB

TRAP

CSETST

gggg

.SBTTL

5%7

'ttttttttttttitttttttttttttt'tttttttfitttttttttttttttttt'ttttttttttttt'

gggg

e TIME OUT = FORCE A TIMEOUT AND VERIFY THAT THE ERROR IS REPORTED

2908

5911
5912
(3)

5913
1)

032474

5514
5915
(3)
(3)

032500
032500
032502

104410
000172

(1)
(1)
(1)
(1)
(1)

032504

032504
032510
032512
032514

10 - DMR-11

CLEAR

004737

(1)

TEST

:tttttttttttttttttt*tttttttt*tttttttlttttttttttttt.tttttttttttttttt'tt
BGNTST
T10::

032474
032474

032474

5916

TEST 10 - TIME OUT ERROR

(1)
(1)

004737
004000
002630
000522

011064

;MACRO FOR MASTER CLEAR

JSR

PC, SMSCLR

ESCAPE

TST

BASE IN
011262

JSR

s%xxx MACRO EXPANSION *xww

;ISSUE A DMR MASTER CLEAR

IRRRR

£k
ok

:IF ERROR, BR TO TEST END.

;MACRO FOR BASE IN COMMAND

PC, $BASE]
WORD
LPLU
.WORD
BASE
.WORD
DMR

TRAP
.WORD

saxxx MACRO EXPANSION #www

;CALL BASE IN ROUTINE WITH DEFAULTS
:SET LINE UNIT LOOP
;BASE TABLE ADDRESS
:DMR=11 MODE

JRRRR

ARAR

5917
5918
5919

;SET THRESHOLD VALUES AS FOLLOWS:
:BSEL4 = NAKS RECEIVED (377)

5921

*BSEL6 = REP/SEL SENT (1)

5920

;BSELS = NAKS TRANSMITTED (377)

5922

5923 032516
1N
(1)

032516

(CSERDF
9
EMG9
ERRG2

004737

012064

BSEL7
= NO BUFFFER (377)

DMRIN

THRESH,177777, 177401

JSR

PC, SDMRIN

sexxx MACRO EXPANSION *xww
:CALL DMR MODE INPUT ROUTINE

CSESCAPE
L10063~-.

L 10
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-105
CZDMIA.P1T
13-MAR-80 09:34
TEST 10 = TIME OUT ERROR
.WORD
.WORD

WORD
ESCAPE

012064

THRESH
177777

177401

s INPUT COMMAND
sSEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
sSEL6 VALUE (OR BITS TO SET IN BSEL6)
:tttt

TIMER,O,1

sSET REP/SEL _TIMER TO MINIMUM (100 MSECS)

JSR

PC, SDMRIN
.WORD
TIMER

sCALL DMR MODE INPUT ROUTINE

O
1

TST

sxnwx MACRO EXPANSION #www

s INPUT COMMAND
sSEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
sSEL6 VALUE (OR BITS TO SET IN BSEL6)

011516

JSR

TRAP
.WORD
sMACRO FOR CONTROL IN (FULL DUPLEX)

PC, SCNTIN

.WORD

ESCAPE

1044

sCALL CONTROL IN ROUTINE WITH DEFAULT
sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.

564

012064

032570
032572
032574

:IF ERROR, BR TO TEST END.

DMRIN

WMODEM,0,BIT4

JSR

PC, SDMRIN
.WORD
WMODEM
WORD
0

.WORD

032576

BACCIT

004737

012274

JSR

002512

TRAP

004737
000001

104410

010266

BIT4

sxxks MACRO EXPANSION #wxxx

:CALL DMR MODE INPUT ROUTINE
s INPUT COMMAND
sSEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)
shkkk

JSR

PC,

TRAP

;WAIT FOR THE READY OUT.

SWAIT

WORD

TST

TRAR

:IF ERROR, EXIT

TST
RDO

:BA/CC IN XMIT BUFFER
sunxk MACRO EXPANSION #wxx
PC, $BAC C
:CAL L BA/CC IN ROUTINE WITH DEFAULTS
RQI 'BACCT
.WORD
:BA/CC_IN TRANSMIT COMMAND
. WORD
TBUF
:TRANSMIT BUFFER ADDRESS
TCOUNT
.WORD
s TRANSMIT CHARACTER COUNT

WAIT

ESCAP

CSESCAPE

L10063-.

;BLIND THE RECEIVER BY GOING INTO HDX.
cUSE WRITE MODEM COMMAND TO SET HALF DUPLEX.

taman

ESCAPE

104410

032622
032622

L2
2 2

.WORD

032564

032614
032620

TST

CSESCAPE
L10063-.

sx%xx MACRO EXPANSION #wxxx
s RRkk

032560
032560
032562

ok k&

:IF ERROR, BR TO TEST END.

CNTRIN

032552
032556

CSESCAPE

L1 0063-.

DMRIN

ESCAPE

5929

TRAP

LWORD

IRRAN

1044

2 2
LA

;IF ERROR, BR TO TEST END

TST

WORD
WORD

032546
032546
032550
032552

SEQ 0128

CSESCAPE

.WORD

L10063-.

TRAP

CSESCAPE

sxnxx MACRO EXPANSION #wxxx

sCALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDO
:tt'fi

:IF ERROR, EXIT.

M 10
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-106
CZDMIA.P11
13-MAR-80 09:34
TEST 10 = TIME OUT ERROR
(3)

5941

5942
5943
(4)
(5)

032624

032626

0326
032636
032636
032640

(5)
(5)
5944
5945
5946
5947
5948
(4)

032642
032644
032646
032650
032650
032656
032660
032660

(5)
(5)

032664
032666

(5)

5949
5950
1)
(1)
(1)

5951
5952
(3)
(3)

5953
5954

032662

032670
032670

032670

032674
032674
032674

000050

032777

001005

000001

147400

104455
000010
020072
015070
000410
032777
001004

000002

147362

BIT

BNE
ERRDF

108:

104455

#CNTRL ,@SEL2

SEQ 0129

;1S THIS A CONTROL OUT

108
8,EMG8.ERRG2

sIF YES, PROCEED.
JEXPECTED A CONTROL OUT.
.

208

JEXIT

BIT
BNE
ERRDF

#TOUT ,@SEL6
20%
9,EMG9,ERRG?2

JWAS THE TIME OUT REPORTED?
sIF YES, EXIT
JUNEXPECTED ERROR.

020136
015070

004737

208
:
012560

SHUTDN
JSR

PC, SHALT

TRAP
WORD
.WORD
.WORD

CSERDF
8
EMGS
ERRGZ2

TRAF

JRRRK

TRAP

CSETST

TEST 11 - MESSAGE TOO LONG ERROR

5959
5960
5961
ggg%

R
L
L T R R L I,
o
TEST 11 - DMR-11
;% MESSAGE TOO LONG = TRANSMIT A MESSAGE THAT IS TOO LONG FOR THE
s* RECEIVE BUFFER AND VERIFY THAT THE '‘TOO LONG'' ERROR IS RECEIVED.

5964
5965
(3)
5966
(1)

:tttttttttttttttttttttttttttfi'fittttttitttttttttttttttttttfittttttttfittt
BGNTST
T1::
CLEAR
;MACRO FOR MASTER CLEAR
sxxxx MACRO EXPANSION *xx=

(1)
(1)
5967
5968
(3)
(3)
5969
(1)
(1)
(1)
(1)
(1)
(1)

5970

EMG9
ERRGZ2

12227

L10063:

.SBTTL

CSERDF

WORD

sxxxx MACRO EXPANSION ##xx
;DMR HALT ROUTINE.

104401

ggssg

L10063-.

.WORD
.WORD

ENDTST

5955
5956

.WORD

. %

032676
032676
032676
032676

004737

032702
032702
032704
032706

104410
000150

032706
032712
032714
032716

004737
004000
002630
000522

011064

JSR

PC, SMSCLR

;ISSUE A DMR MASTER CLEAR
IRRAR
P

ESCAPE

TST

sIF ERROR, BR TO TEST END.

BASEIN
011262

JSR

PC, $BASEI]
.WORD
LPLU
.WORD
BASE
.WORD
DMR

JMACRO FOR BASE IN COMMAND
senxx MACRO EXPANSION *wanx

TRAP
WORD

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
sBASE TABLE ADDRESS
;DMR-11 MODE
T
T TT

CSESCAPE
L10064~.

CZDMIAO DMR-11 FUNCTIONAL EETS
T
MACY11 30A(1052)
CZDMIA.P11
13-MAR-80

ESCAPE

104410

000132

004737

000000

N 10
13—MAR-80 09:36 PAGE 2=107
T 11 = MESSAGE TOO LONG ERROR
TST

;IF ERROR, BR TO TEST END.

PC, SCNTIN
WORD
O

JSR

sMACRO FOR CONTROL IN (FULL DUPLEX)
satas MACRO EXPANSION #wwx
sCALL CONTROL IN ROUTINE WITH DEFAULT

004737

032746

000044
002562
000022

TST

ESCAPE

012274

;IF ERROR, BR TO TEST END.

RBUF ,RCOUNT/2

BACCIR

012737

002360

MOV

032756
(1)
(1)
(1)
g};

032756
032762
032764
032766

RBUF
;BUFFER ADDRESS BITS 0-15
RCOUNT/Z2
;BA BITS 16/17 AND CHAR. COUNT

032770

(1)
(1)

004737

012274

JSR

hhd

sTHIS FLAG WILL DISABLE ANY CONTROL OUT ERROR

sREPORTING BECAUSE WE ARE INTENTIONALLY
;CAUSING ONE IN THIS TEST.

PC, $BACC

sBA/CC _IN XMIT COMMAND
sxaxx MACRO EXPANSION #xxx
:CALL BA/CC IN ROUTINE WITH DEFAULTS

.WORD
.WORD

:TRANSMIT BUFFER ADDRESS
:TRANSMIT CHARACTER COUNT

.WORD

RQ:'BACCT
TBUF
TCOUNT

:BA/CC_IN TRANSMIT COMMAND

108:

032770

032770
032774

#CNTRL ,ERROR

BACCIT

000040
002512
000044

004737
000001

010266

WAIT

RDO

JSR

PC, SWAIT

WORD

ARAE

;WAIT FOR RDO TO BE SET
sx%xx MACRO EXPANSION ##xx
sCALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDO

shkkk

104410
000054
032777
001005

ESCAPE

000001

147224

032777
001004
104455
000011

020136
015070

TST
#CNTRL ,@SEL2

BIT

ERRDF

104455
000010
020072
015070
000410

000020

147206

20%:

30%:

CSESCAPE

su%xxx MACRO EXPANSION #wwxx
PC, $BACC
:CALL BA/CC IN ROUTINE
.WORD
RQI!BACCR
sBA/CC IN RECEIVE COMMAND

JSR

.WORD
.WORD

000001

TRAP

WORD
L10064~.
;SET UP THE RECEIVE BUFFER WITH 1/2 BUF. SPACE

shRkk

032750

CSESCAPE

L10064~.

sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
IRRRR

104410
000120

TRAP

LWORD

CNTRIN

011516

SEQ 0130

208
8.EMG8 ,ERRG2

LE
2 2

:IF RDO NOT SET, BR TO TEST END.
:1S THIS A CONTROL OUT?

TRAP

.WORD

CSESCAPE

L10064~.

:IF YES, PROCEED
;EXPECTED CONTROL OUT.

TRAP

.WORD
.WORD
.WORD

408

JEXIT

BIT
BNE

#TOLONG,@SEL6

408

;IS THE

:IF YES, TEST OK = FINISH UP,

ERRDF

9.EMG9,ERRGZ

JWE'RE NOT GETTING EXPECTED RESULT

CSERDF

8
EMG8
ERRGZ

TOO LONG BIT SET?

TRAP

WORD
.WORD
.WORD

CSERDF

9
EMG9
ERRGZ

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
13-MAR-80 09:34
CZDMIA.P1

5993

033050

005037

002360

004737

012560

40%:

13-MR-80

09:36_

B 1N
PAGE 2-108

T 11 = MESSAGE TOO LONG ERROR

CLR
SHUTDN

ERROR

JRESTORE ERROR FLAG TO NORMAL STATE.
JHALT THE DMR.

JSR

PC. SHALT

om HALT ROUTINE.

sexxx MACRO EXPANSION wnww

:'.fi.

033054
033054
033054

SEQ 0131

L 32 221

ENDTST

:
L10064

104401

LSBTTL

TRAP

CSETST

TEST 12 - PROCEDURE ERRORS

‘tfifi.tt'**fifit..fi*ti.*"ttt"*fittt'*..tfitfifiQI.fififittl‘i..'tfifi"'t'tt.fi"

M
;*
;*
;s*
s*
;%
;%
s*
;*
- %

TEST 12 = DMR-11
PROCEDURE ERRORS =
THE FOLLOWING SHOULD CAUSE THE DMR-11 TO HALT AND RESPOND WITH
A PROCEDURE ERROR:
SUBTEST 1
= A SECOND BASE IN COMMAND

SUBTEST
SUBTEST
SUBTEST
SUBTEST

2
3
4
5

=~
=

A CONTROL IN BEFORE A BASE IN
A BA/CC IN BEFORE A BASE IN
A BA/CC IN RCV WITH A BUFFER LENGTH OF 0
A BA/CC IN XMIT. WITH A BUFFER LENGTH OF 0

"*'*ifil‘i***'tQ't*fii*""'Qt"*fit*fi.*.*fi*."Q*"Q..*.'*t'*fi'*'*.'tifi.

BGNTST

T12::

BGNSUB

T12.1:

104402

CLEAR
004737

011064

JSR

PC, S$MSCLR

BASEIN

012737

011262

000001

JSR

002360

MOV

BASEIN

c$8SUB

JMASTER CLEAR MACRO

sxxxx MACRO EXPANSION w*xxx
sISSUE A DMR MASTER CLEAR

;ti**

004737
004000
002630
000522

TRAP

PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR
MCNTRL,ERROR

L3 2

sxxxx MACRO EXPANSION s«
sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
:DMR-11 MODE

shhkk

Rhkkk

;THIS FLAG WILL DISABLE ANY CONTROL OUT ERROR

:REPORTING BECAUSE WE ARE INTENTIONALLY
:CAUSING ONE IN THIS TEST.

:SECOND BASE IN

;xxxx MACRO EXPANSION s

2 SeosEog a\f\SLaf\;\f\gusfl\’\nun

WWW=
D DW=
N N (N N
) e N o

CZDMIAO DMR-11 FUNCTIONA%gT%ETS MACY11 3OA(1052)
13-MAR-80 09:36 PAGE 2-109
CZDMIA.P1T
13-MAR-8
TEST 12 = PROCEDURE ERRORS

033104
033110
033112
033114

004737
004000
002630
000522

011262

JSR

PC, $BASE]
.WORD
LPLU
.WORD
BASE
.WORD
DMR

sCALL BASE IN ROUTINE WITH DEFAULTS
:SET_LINE UNIT LOOP
:BASE TABLE ADDRESS

:DMR-11 MODE
shRkk

033116
033116
033122
033124

004737
000001

010266

WAIT

RDO

JSR

PC, SWAIT

.WORD

104410

000632
032777
001005

000001

14707¢

104455
000010
020072

:CALL WAIT ROUTINE

:FLAG THAT WE'RE WAITING FOR RDO

001000

147060

042777
005037

TRAP

.WORD

CSESCAPE
L10065~-.

TRAP
.WORD
.WORD
.WORD

CSERDF
8
EMG8
ERRG2

#CNTRL ,@SEL2

ERRDF

8,EMG8,ERRG2

;1S THIS A CONTROL OUT?
:IF YES, PROCEED.
;EXPECTED CONTROL OuT

15%

SEXIT

#HALTC ,QSEL6

:1S THE HALT - PROCEDURE ERROR BIT SET?
sIF YES = ERROR REPORTED CORRECTLY
sUNEXPECTED CONTROL OUT RECEIVED

BIT
BNE
ERRDF

104455
000011
020136
015070

LA 2 2

:IF RDO NOT SET, BR TO TEST END.

BIT

015070
000410

032777
001004

TST

L2
2 2

;WAIT FOR RDO TO BE SET
;xxxx MACRO EXPANSION w###
Q.*.

ESCAPE

SEQ 0132

10%

15%
9.EMG9.ERRG2

TRAP

.WORD
.WORD
.WORD

000207
002360

147034

BIC

CLR

ENDSUS

#RDO!CMD,aSEL2
ERROR

CSERDF
9
EMGY

ERRGZ2

;CLEAR RDO AND THE COMMAND BITS
sRESTORE FLAG

L10066:

104403

TRAP

CSESUB

BGNSUB
112.2:

104402

033210
033210

CLEAR

004737

011064

JSR

;MASTER CLEAR MACRO

PC,

$MSCLR

sxxxx MACRO EXPANSION x#wx

;ISSUE A DMR MASTER CLEAR

JRRk%

033214
033222

012737
005037

000001

002260

033226

002360

MOV

#CNTRL ,ERROR

CLR

DMRFLG

011516

JSR

L2
3 2]

;THIS FLAG WILL DISABLE ANY CONTROL OUT ERROR

;REPORTING BECAUSE WE ARE INTENTIONALLY
sCAUSING ONE IN THIS TEST.

sCLEAR FLAG THAT IS SET IN BASEIN IN ORDER

:TO FLAG THAT A CONTROL OUT-DMR RUN MODE

sCOMMAND IS EXPECTED (THIS FLAG WAS SET IN
:THE_PREVIOUS SUBTEST BASEIN)
:CONTROL IN

CNTRIN

004737

(s8suB

PC, $CNTIN

;xxxx MACRO EXPANSION #xxx

;CALL CONTROL IN ROUTINE WITH DEFAULT

DN
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1T 30A(1052)
13-MAR-80 09:36 PAGE 2=110
CZDMIA.P1T
13-MAR-80 09:34
TEST 12 = PROCEDURE ERRORS
033232

033234
033234
033240

;SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.

WAIT

RDO

JSR

PC,

ESCAPE

TST

SWAIT

.WORD

000001

146760

123 23

JWAIT FOR RDO TO BE SET
sannx MACRO EXPANSION wwxwx
;sCALL WAIT ROUTINE

JFLAG THAT WE'RE WAITING FOR RDO
IRRRR

IF RDO NOT SET, BR TO TEST END.

BIT

#CNTRL ,QSEL2

ERRDF

8.EMG8,ERRG2

108

WORD

;1S THIS A CONTROL OUT?

JEXPECTED CONTROL OUuT

TRAP

wvid é

001000

146742

BIT

ERRDF

104455

.WORD

15%

SJEXIT

#HALTC ,@SEL6

;IS THE HALT - PROCEDURE ERROR BIT SET?

15%
9.EMG9,ERRG2

sIF YES = ERROR REPORTED CORRECTLY
JUNEXPECTED CONTROL OUT RECEIVED

TRAP

015070

042777
005037

033324
033324
033324

000207
002360

146716

#RDO!CMD,aSEL2
ERROR

L10067:

T12.3:

104402

CLEAR

004737

011064

JSR

012737

000001

002360

MCV
BACCIR

033350

CSERDF

.WORD
.WORD
.WORD

9
EMG9
ERRGZ2

TRAP

C$ESUB

TRAP

c$8sSuB

PC,

S$MSCLR

;MASTER CLEAR MACRO
sxxxx MACRO EXPANSION *xxx
:ISSUE A DMR MASTER CLEAR

004737
000044
002562
000044

012274

JSR

#CNTRL ,ERROR

sREPORTING BECAUSE WE ARE INTENTIONALLY
sCAUSING ONE IN THIS TEST.
;BA/CC IN RCV. COMMAND

sxxxx MACRO EXPANSION sxxw
PC, $BACC
:CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQ]I'BACCR
;BA/CC IN RECEIVE COMMAND
.WORD
RBUF
JRECEIVE BUFFER

.WORD

WAIT

L 2 3. 31

sTHIS FLAG WILL DISABLE ANY CONTROL OUT ERROR

RCOUNT

RECEIVE CHARACTER COUNT

:t"'

033352

ERRGZ

BGNSUB

*'*'

033332

CSERDF

8
EMG8

;CLEAR RDO AND THE COMMAND BITS.
JRESTORE FLAG

104403

033326
033326

BIC
CLR
ENDSUB

CSESCAPE

L10065-.

;IF YES = PROCEED.

000011
020136

033322

TRAP

.WORD
.WORD

032777
001004

010266

033242
033242
033244
033246

WORD

;..Qfi

W
PONO

wvivna e

NI
v o v

NNV

o cd v v o

WWR = aa :

(1)
(1)
6059

SEQ 0133

RDO

Ahkk%

JWAIT FOR RDO TO BE SET
sxxxx MACRO EXPANSION *»xxx

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-111
CZDMIA.P11
13-MAR-80 09: 34
TEST 12 = PROCEDURE ERRORS

(1)
8;

033352
033356

6085
(3)
(3)
6086
6087
6088

033360
033360
033362
033364
033372
033374

(4)
(5)
(5)
(5)
6089
6090
6091
6092
6093
(4)
(5)
(5)
(5)
6094
6095
6096
6097
(3)
6(%%

033374
033376
033400
033402
033404
033406
033406
033414
033416
033416
033420
033422
033424
033426
033426
033434
(033440
033440
033440

6099

033442

(3)
(3)
6100
(1)
(1)

6101
6102
(3)
(3)
6103
(1)
(1)
(1)

(1)
(1)

(1)

6104
6105
(3)

004737
000001
104410
000376
032777
001005

000001

146642

104455
000010
020072
015070
000410

032777
001004

001000

146624

104455
000011
020136
015070
042777
005037

000207
002360

104403

PC, SWAIT
WORD
1

sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO

146600

ESCAPE

TST

BIT

#CNTRL ,@SEL2

BNE
ERRDF

10%:

104402

033444

004737

108
8,EMG8,ERRG2

;IS THIS A CONTROL OUT?

033450
033450
033452
033454

.
1704410
000306

033454
033460
033462

004737
004000

(3)
6106
(1)
(1)
(1)

033472
033476
033500

004737
000044
002562

CSERDF
8
EMG8
ERRGZ

.WORD

BIT
BNE
ERRDF

#HALTC ,aSEL6
15%
9,EMG9,ERRG2

;IS THE HALT - PROCEDURE ERROR BIT SET?
;IF YES ~ .ERROR REPORTED CORRECTLY
LNEXPECTED CONTROL OUT RECEIVED
TRAP
WORD
.WORD
.WORD

#RDO!CMD,@SEL2
ERROR

;CLEAR RDO AND THE COMMAND BITS.
;RESTORE FLAG

15%:

BIC
CLR
ENDSUB
:

L10070:

T12.4:

JSR

;MASTER CLEAR

PC, $MSCLR

sxxxx MACRO EXPANSION *xxx
ISSUE A DMR MASTER CLEAR

TST

;IF ERROR, EXIT.

BASEIN
JSR

PC, $BASEI]
.WORD
LPLU

.WORD
.WORD

ESCAPE

BACCIR
012274

TRAP
.WORD
.WORD

;IF YES = PROCEED.
JEXPECTED CONTROL OUuT

JEXIT

002630
000522

104410
000270

CSESCAPE
L10065~.

15%

ESCAPE

011262

TRAP
.WORD

CLEAR
011064

' 2283

sIF RDO NOT SET, BR TO TEST END.

BGNSUB

033466
033466
033470
033472

(1)

JSR

JRRRR

033442
033442
033444

010266

SEQ 0134

JSR

TST

BASE
DMR

IRRRR

CSERDF
9
EMG9
ERRGZ2

TRAP

C$ESUB

TRAP

($8sSuUB

TRAP
.WORD

CSESCAPE
L10065-.

KRR
®

;BASE IN COMMAND
sexxx MACRO EXPANSION swxxx

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS

;DMR-11 MODE
IRRRR

1232

;IF ERROR, EXIT.

TRAP
.WORD
sASSIGN A BA/CC IN RECEIVE BUFFER

sensex MACRO EXPANSION wxnw

PC, $BACC
;CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI!BACCR
;BA/CC IN RECEIVE C("’IAM)
.WORD
RBUF
JRECEIVE BUFFER

CSESCAPE
L10065~-.

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMIA.P11
(1)

(1)

6108
(3)
(3)

6109
6110
6111
6112
1)
(1)

(1)
(1)
(1)

6113
6114
(1
(1)

033502

033504

033504
033506

033510

033516

033522

033524
033526

033530

033536
033536
033540
033542
033550
033552
033552
033554
033556
033560
033562
033564
033564
033572
033574
033574
033576
033600
033602
033604
033604
033612
033616
033616

033620
033620

6130

033622

RCOUNT

104410
000252

012737

ESCAPE
000001

002360

004737

000040

012274

#CNTRL ,ERROR

BACCIT

TBUF,0

JSR

PC, $BACC

000001

104410
000220
032777
001005

200001

104455
000010
020072
015070
000410

032777
001004

001000

146464

146446

104455
000011
020136
015070

042777
005037

.WORD

.WORD
.WORD

010266

000207
002360

146422

;IF ERROR, EXIT.
TRAP
.WORD

sxxxx MACRO EXPANSION #www
; CALL BA/CC IN ROUTINE

sBA/CC IN TRANSMIT COMMAND

;BUFFER ADDRESS BITS 0-15
;BA BITS 16 & 17 AND CHAR. COUNT
INRRR
T

RDO

JSR

PC, SWAIT

sanax MACRO EXPANSION wwwx
sCALL WAIT ROUTINE

ESCAPE

TST

s1F RDO NOT SET, BR TO TEST END.

WORD

sWAIT FOR RDO TO BE SET

sFLAG THAT WE'RE WAITING FOR RDO
X222

033620
033622

004737

CSESCAPE
L10065~-.

TRAP
.WORD
.WORD
.WORD

CSERDF
8
EMG8
ERRG?2

15%

JEXIT

BIT
BNE
ERRDF

#HALTC,aSEL6
15%
9,EMG9,ERRGZ2

;IS THE HALT - PROCEDURE ERROR BIT SET?
;IF YES = ERROR REPORTED CORRECTLY
JUNEXPECTED CONTROL OUT RECEIVED
TRAP
WORD
.WORD
.WORD

BIC
CLR
ENDSUB

#RDO!CMD,@SEL2
ERROR

112.5:

JSR

JMASTER CLEAR

PC, S$MSCLR

CSERDF
9
EMG9
ERRGZ

;CLEAR RDO AND THE COMMAND BITS.
;JRESTORE FLAG
L10071:

CLEAR
011064

TRAP
.WORD

;IS THIS A CONTROL OUT?
;IF YES - PROCEED.
JEXPECTED CONTROL OUuT

BGNSUB
104402

I T22

#CNTRL ,@SEL2
108
8,EMG8,ERRG2

15%:

CSESCAPE
L10065-.

sTHIS FLAG WILL DISABLE ANY CONTROL OUT
;ERROR REPORTING BECAUSE WE ARE INTENTIONALLY
s CAUSING ONE.
sASSIGN A BA/CC IN XMIT BUFFER LENGTH = 0.

RQI'BACCT

TBUF
O

WAIT

BIT
BNE
ERRDF

108
:

MOV

002512
000000

004737

TST

SEQ 0135

;RECEIVE CHARACTER COUNT

033616 * 104403

6129
(3)

6131

.WORD

033530

6115
(3)
(3)
6116
6117
6118
(4)
(5)
(5)
(5)
6119
6120
6121
6122
6123
(4)
(5)
(5)
(5)
6124
6125
6126
6127
(3)

(1)
(1)

F1
PAGE 2-112

TEST 12 = PROCEDURE ERRORS

000044

033516

033534

(3)

09:36

JRRRR

E};

68&

13-MAR-80 09:34

13-MAR-80

sxxxx MACRO EXPANSION *xx«
;ISSUE A DMR MASTER CLEAR

JRREK

1312

TRAP

C$ESUB

TRAP

($8SUB

6N
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
13-MAR-80 09:36 PAGE 2-113
CZDMIA.P11
13-MAR-80 09:34
TEST 12 = PROCEDURE ERRORS
6132
(3)
(3)
6133
(1)

033626
033626
033630
033632

(1)
(1)
(1)
(1)

033632
033636
033640
033642

004737
004000
002630
000522

6134
6135
(3)
(3)
6136
6137

033644
033644
033646
033650

104410
000112
012737

(1)

6138
6139
(1)
(1)
(1)
(1)
(1)
(1)

033656
033662
033664
033666

(1)

033670

6142

(3)
(3)
6143

6144
6145

(4)
(5)
(5)
(5)
6146

6147
6148
6149
6150
(4)
(5)
(5)
(5)

6151
6152
6153
6154
g %;
Rt

;IF ERROR, EXIT.

011262

000001

JSR

00236C

012274

033674

033676

033676
033700
(033702

033710
033712
033712
033714

033716
033720
033722

033724
033724
033732
033734
033734
033736

033740
033742

033744
033744
033752
033756
033756
033756

004737

;sBASE IN COMMAND

PC, $BASE]
.WORD
LPLU
.WORD
BASE
.WORD
DMR

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
BASE TABLE ADDRESS
;DMR-11 MODE

ESCAPE

T3T

;IF ERROR, EXIT.

MOV

#CNTRL ,ERROR

BACCIR

RBUF,0

JSR

000001

010266

IRRER

001005

000001

146324

RDO

JSR

PC,

BIT
BNE
ERRDF

104455
000010

020072
015070

000410
032777
001004

001000

146306

104455
000011
020136
015070

042777
005037
104403

000207
002360

146262

10%:

15%:

. CAUSING ONE.
sASSIGN A BA/CC IN REC. BUFFER LENGTH = 0

sxxnxx MACRO EXPANSION ##xx
PC, $BACC
.CALL BA/CC IN ROUTINE
.WORD
RQI!BACCR
sBA/CC IN RECEIVE COMMAND
.WORD
RBUF
;sBUFFER ADDRESS BITS 0-15
.WORD
0
;BA BITS 16/17 AND CHAR. COUNT

WAIT

ESCAPE

C$ESCAPE
L10065~-.

TRAP
CSESCAPE
.WORD
L10065-.
sTHIS FLAG WILL DISABLE ANY CONTROL OUT
sERROR REPORTING BECAUSE WE ARE INTENTIONALLY

1223

JWAIT FOR RDO TO BE SET
SWAIT

.WORD

sanex MACRO EXPANSION *wxwx

sCALL WAIT ROUTINE

JFLAG THAT WE'RE WAITING FOR RDO

IRRRR

104410
000060
032777

TRAP
.WORD

sxwxx MACRO EXPANSION wxww

JRRRK

033670

&l;

004737
000044
002562
000000

TST

BASEIN

033656

6140
6141
(D)

ESCAPE

104410
000130

SEQ 0136

etk

TST

IF RDO NOT SET. BR TO TEST END.

#CNTRL ,@SEL2
108
8.EMG8,ERRG2

;IS THIS A CONTROL OUT?
;IF YES = PROCEED.
JEXPECTED CONTROL OuT

TRAP
.WORD

CSESCAPE
L10065-.

TRAP
.WORD
.WORD
.WORD

CSERDF
8

EMG8
ERRGZ2

15%

SEXIT

BIT
BNE
ERRDF

#HALTC ,aSEL6
15%
9.,EMGY,ERRG2

;IS THE HALT - PROCEDURE ERROR BIT SET?
sIF YES = ERROR REPORTED CORRECTLY
JUNEXPECTED CONTROL OUT RECEIVED
TRAP
CSERDF
.WORD
9

BIC
CLR
ENDSUB

#RDO!CMD,aSEL2
ERRGR

.WORD
.WORD

EMG9
ERRGZ2

TRAP

C$ESUB

;CLEAR RDO AND THE COMMAND BITS.
JRESTORE FLAG

L10072:

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
CZDMIA.P1
13-MAR-80 09:34

6156
(3)
(3)
6157
6158
6159

033760
033760

033760

H 11
13-HAR-80 09:36 PAGE 2=114
T 12 = PROCEDURE ERRORS

SEQ 0137

ENDTST

L10065:

104401

TRAP

CSETST

6160

6161

g}g%

.SBTTL

6164

SRR

6165

TEST 13 - DATA TEST
R AR AR AR A AR

AR AR AR AR AR R R AR

TEST 13 - DMR-11

AR AN

A RN ARRRR AR R

6166

;* FREE RUNNING FLAG MODE DATA TEST

6168

;* IN THIS TEST NO INTERRUPTS ARE USED AND THE LINE UNIT IS IN

6167

;* TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA IS CORRECT.

6169
6170

;% INTERNAL (TTL) LOOPBACK.
THIS TEST IS THE FIRST TEST IN WHICH
;* THE DMR IS USED IN A DATA TRANSMISSION MODE.

6171

6172
(3)
6173
6174
6175
6176
6177
6178
6179
2}3?
6182
6183
6184
(1
(1)
1)

6185
6186
(3)
(3)

6187
(1
(1)
(1)
(1)
(1)

(1)

6188
6189
(3)
(3)

6190
(1
(1)

g};

6191

SRR

033762
033762
033762
033766

013700
062700

000044
000002

033772

012701

002562

033776
034000
034002

105021
005300
001375

034004
034010
034014

005037
005037

034014

004737

034020
034020

104410

033776

034022

034024

034024
034030
034032
034034

034036
034036
034040
034042
034042

034046

034050

BGNTST

000000

A AR R AR R AR AR

RR AR AR ARRAR R AR AR R AR AR RN

T13::
;BYTE COUNT FOR RECEIVE BUFFER
;2 ADDITIONAL BYTES AT END OF BUFFER ARE
;USED FOR DELIMITOR
sADDRESS OF RECEIVE BUFFER

RCOUNT ,RO
#2.RO

MOV

#RBUF ,R1

CLRB
DEC
BNE

(R1)+
RO
108

;CLEAR A BYTE IN THE BUFFER
;CONTINUE
- UNTIL ENTIRE BUFFER DONE

002510
002560

CLR
CLR
CLEAR

TFLAG
RFLAG

;CLEAR TRANSMIT FLAG
:CLEAR RECEIVER FLAG
sMACRO FOR MASTER CLEAR

0110¢4

JSR

PC, $MSCLR

sxnxte MACRO EXPANSION #wxw
;ISSUE A DMR MASTER CLEAR
IRARR
ERRR

ESCAPE

TST

;IF ERROR, BR TO TEST END.

,.10s:

BASE IN
011262

JSR

ESCAPE

104410
000414
004737

MOV
ADD

000432

004737
004000
002630
000522

A AR A A A AR

sMACRO FOR BASE IN COMMAND

PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR

TST

.WORD

JRRRR

12223

TRAP
.WORD
sMACRO FOR CONTROL IN (FULL DUPLEX)

JSR

PC, SCNTIN

ESCAPE

TST

.WORD

C$ESCAPE

L10073-.

sx%xx MACRO EXPANSION xwx#
sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE

:IF ERROR, BR TO TEST END.

CNTRIN
011516

TRAP

sxxxx MACRO EXPANSION s#x
sCALL CONTROL IN ROUTINE WITH DEFAULT

CSESCAPE
L10073-.

;SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
IRRRR

:IF ERROR, BR TO TEST END.

INn
CZDMIAO DMR=11 FUNCTIONAL T STS MACY11 30A(1052) ;3-MAR-80 09:36 PAGE 2-115
13-MAR-80 09:
CZDMIA.P11
T 13 - DATA TEST

034050
034052
2.

034054

(1)
(1)
(1)

034054
034060
034062

g};

034064

SEQ 0138

104410

1RAP

000402

BACCIR

004737

000044

012274

JSR

002562
000044

JBUFFER ADDRESS/CHARACTER COUNT REC. IN

PC,

$BACC

.WORD

.WORD
.WORD
ESCAPE

104410

RQ] 'BACCR
RBUF
RCOUNT

T5T

;BA/CC IN RECEIVE COMMAND

JRECEIVE BUFFER
RECEIVE CHARACTER COUNT
1 2

2. 213

sIF ERROR (I.E. RDI NOT SET), ESCAPE
TRAP

000364

012274

JSR

002512
000044

PC,

$BACC

.WORD

.WORD
.WORD
ESCAPE

104410

suxxx MACRO EXPANSION #*%%x
sCALL BA/CC IN ROUTINE WITH DEFAULTS

RQI 'BACCT
TBUF
TCOUNT

:BA/CC IN TRANSMIT COMMAND

;TRANSMIT BUFFER ADDRESS
;TRANSMIT CHARACTER COUNT

TST

sIF

ERROR

L2 2 24

(I.E.

RDI

NOT SET),

000346

010266

WAIT

RDO

JSR

PC, SWAIT

.WORD

000001

146106

JFLAG THAT WE'RE WAITING FOR RDO

BIT

#CNTRL ,@SEL2

146064

25%:

25%
9,EMG9 ,ERRGZ2

1 3.2 3 1

IF ERROR = RDO NOT SET, END TEST
BCS

;1S THIS A CONTROL OUT COMMAND ?

;IF NOT - PROCEED
UNEXPECTED CONTROL OUT RECEIVED

.WORD
.WORD
.WORD

52%

BIT
BNE

#RCV,aSEL2
40%

s TRANSMIT OR RECEIVE ?
;BR FOR RECEIVE

TFLAG

IS THIS THE FIRST TRANSMIT DONE?

W52%

CSERDF

9
EMG9
ERRGZ2

;CHECK TRANSMIT

—_

o
N

N
N

—_~—~

032777
001035

NS
W -

5xRRRRRR
v

52%

ERRDF

104455

6210

BERROR

CS$ESCAPE

L10073-.

JWAIT FOR RDO
sxxxx MACRO EXPANSION waxx
sCALL WAIT ROUTINE
ttt.

000011
020136
015070
000541

ESCAPE
TRAP

.WORD

20%:

L10073-.

;BUFFER ADDRESS/CHARACTER COUNT XMIT. IN

:Qtit

103552
032777
001405

CSESCAPE

.WORD

BACCIT

004737
000001

L10073-.

sunxx MACRO EXPANSION wwnw
;CALL BA/CC IN ROUTINE WITH DEFAULTS

:fitt.

004737

CSESCAPE

LWORD

005737
001405
104455
000012
020165
015070

002510

TST

BEQ
ERRDF

308

10,EMG10,ERRG?2

:YES
= 0K
ERROR MULTIPLE TRANSMITS

TRAP

.WORD
.WORD
.WORD

CSERDF

10
EMG10
ERRGZ

J 1
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2=116
CZDMIA.P1T
13-MAR-80 09:34
TEST 13 - DATA TEST

6217

000525

10
10
12
14

012737
022777
001405

177777
002512

002510

30%:

146030

104455
000013
020214

015070
000511

022777 000044 146010

32%:

001470

104455
000014
020241
015070
000500

52%

MOV
CMP
BEQ
ERRDF

#-1,TFLAG

#TBUF ,QSEL4

32%

11,EMG11,ERRG2

;FLAG THAT TRANSMIT CHECK IS DONE.
s TRANSMIT BUFFER ADDRESS CORRECT?
:YES = PROCEED

;BUFFER ADDRESS ERROR

52%
CMP
BEQ
ERRDF

#TCOUNT ,@SEL6

50%
12,EMG12,ERRG2

SEQ 0139

TRAP
.WORD
.WORD
.WORD

sCOUNT CORRECT ?
;YES = PROCEED
;CHARACTER COUNT ERROR

CSERDF
11

EMG11
ERRG2

CSERDF
12

EMG12
ERRGZ2

52%

;CHECK RECEIVE

005737

001405

834262

40%:

002560

104455
000015
020267
015070
000470

012737
022777
001405

177777
002562

002560

41%:

145736

104455

(5)

034306

TST

BEQ
ERRDF

RFLAG

41%
13,EMG13,ERRG2

;IS THIS THE FIRST RECEIVE DONE
:YES - PROCEED
:MULTIPLE RECEIVES

.WORD

52%
MOV

#-1,RFLAG

BEQ
ERRDF

#g?UF.aSEL4

11,EMG11,ERRG2

TRAP
.WORD
.WORD

sFLAG THAT RECEIVE CHECK HAS BEEN DONE.
;1S THE RECEIVE BUFFER ADDRESS CORRECT?
:YES - PROCEED
;BUFFER ADDRESS ERROR

000013

020214

015070
000454

022777
001405

000044

145716

43%:

104455
000014
020241
015070

000443

012700
012701
012702

000044
002512
002562

44%:

52%
CMP
BEQ
ERRDF

#RCOUNT ,@SEL6

44%
12,EMG12 ,ERRGZ

MOV

#RCOUNT
RO
#TBUF ,R1
#RBUF ,R2

CSERDF
11
EMG11
ERRG2

;1S THE BUFFER COUNT CORRECT?

:YES = PROCEED

s CHARACTER COUNT ERROR

TRAP
.WORD
.WORD
.WORD

52%
MOV

CSERDF
13
EMG13
ERRG2

sSET UP FOR DATA CHECK (CHARCATER COUNT)
:GOOD DATA POINTER

sRECEIVE DATA POINTER

CSERDF
12

EMG12
ERRG2

K11
CZDMIAO DMR-11 FUNCTIONAéngiTS MACY11 30A(1052)
13-MAR-80 09: 36 PAGE 2=117
CZDMIA.P1T
13-MARTEST 13 - DATA TEST
45%:

6263
6264

034376
034400
034400

(5)

034402

(4)

034400

46%:
104455

CMPB
BNE

gfig

(R1)+,(R2)+
46%

zgs

;1S THE DATA THE SAME ?
:IF NOT, BRANCH TO DATA ERROR MESSAGE

TST

aR2

sTHIS SHOULD BE 0 = REMEMBER WE CLEARED

BEQ
ERRDF

508
14 ,EMG14,ERRG2

;RECEIVED EXTRA DATA

52%

ERRDF

15,EMG15,ERRG2

;

6270

034412

042777

000213
002560

6273

034426

000137

034110

6275

034432

005737

002510

6277

034440

000137

034110

034444

sCONTINUE CHECKING UNTIL DONE WITH BUFFER.
;2 EXTRA BYTES DURING BUFFER INIT.
:IF OK
= PROCEED

;DATA ERROR

004737

145614

52%

034454

14
EMG14
ERRGZ

TRAP

CSERDF

15
EMG15
ERRGZ

TRANSMIT OR RECEIVE CHECK DONE

50%:

BIC

TST

51%:

BNE
JMP
TST

BNE

52%:

012560

JMP

#RDO+RCV+CMD ,@SEL2 :CLEAR RDO, RCV & COMMMAND BITS (0,1)
RFLAG
;1S THE RECEIVE DONE ? (IF DONE, FLAG
= -1)

51%
208

:YES = SEE IF TRANSMIT DONE
:NO = GO BACK AND DO IT.

TFLAG

;IS THE TRANSMIT DONE ?

52%
208

:YES = BR TO SHUTDOWN
:NO - DO IT

;SHUTDOWN DMR

SHUTDN

JSR

PC, SHALT

sxxxx MACRO EXPANSION #xxw
;DMR HALT ROUTINE.
IRARR
fook %

CALL

$ERROR

;CHECK BASE TABLE AND REPORT ANY SOFT ERRORS
L10073:

104401

.SBTTL

TRAP

TEST 14 = EXTENDED ADDRESSING DATA TEST

tttt'tt.l'tttfil’lt.ttttitt't'tt.t.tt.tt..tt.t'.tt!.tt.ttttt.'t""tt"

14 - DMR-11
TEST
;* IN THIS TEST - SEE IF WE HAVE MEMORY MANAGEMENT, IF SO SEE IF WE

.
L4

;* HAVE THE MEMORY TO CHECK BITS 16 € 17 IN SEL6.

CSERDF

WORD
.WORD
.WORD

.WORD
.WORD
.WORD

ENDTST

(3)

TRAP

17
BR

(1)

SEQ 0140

THIS WILL ALLOW

CSETST

LN
CZDMIAO DMR=-11 FUNCTIONAL YE}ETS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-118
CZDMIA.P11
13-MAR-80 09:
TEST 14 < EXTENDED ADDRESSING DATA TEST

SEQ 0141

6296
6297
6298

;% US TO TRANSFER DATA USING THOSE EXTENDED ADDRESSING BITS. AS IN
:% TEST 13 THE TEST IS NON=INTERRUPT AND INTERNAL (TTL) LOOPBACK IS
:* USED.

63m

'ttiQttttttttttlttttttttt"'.tttt.t'..t."t'.tttt.tt.."tt't...".QQ"

6301
(3)

034456
034456

6304
(7)
6)
(5)
(4)

034456
034456
034
034
034472

012746
012746
012746
012746

000340
023512
000004
000003

(2)

034500

062706

000010

034514

012700

000004

6302
6303

(3)

034476

BGNTST

104437

6305
6306
6307

034506
034510
034514

(3)
6308

034520
034522

104436
005737

034526
034530

001404
005037

(3)

6309
6310
6311
6312

6313

6314
6315
6316

6317
6318

6319

6320

034534

034540

034546

034550

005037
005737

000137

BEQ
CLR

108
FLAG

036044

000137

036044

012700
104441

000340

034562
8%2293

012701
012700

172300
000010

6328

034572

012721

6330

034576

005

MOV
MOV
MOV
MOV

#PR1I07,=(SP)
ANOXMEM
, - (SP)
#4,=(SP;
#3,-(SP)

ADD

#10,SP

MOV

#4 RO

108:

002200

JMP

;IS THE FLAG STILL CLEARED?

TRAP

CSCVEC

:NOTE: THE FLAG WILL BE SET BY TRAP 4
:IF THERE IS NO MEMORY MANAGEMENT.

:IF FLAG IS CLEARED, PROCEED WITH TEST.
*RESTORE FLAG

SEXIT = CAN'T TEST WITHOUT MEM. MANAG.

;NOTE: LSHIMEM IS SIZE OF TOTAL MEMORY IN
*PAGE ADDRESS REGISTER FORM - DETERMINED BY

:BY DIAGNOSTIC SUPERVISOR AT STARTUP.

cMP

LSHIMEM, #2200

JMP

85$

*IF NOT = EXIT

SETPRI

#PRIO7

:MAKE SURE WE ARE IN KERNEL MODE.

BGE

158%:

85$

:CLEAR FLAG = SET IF TRAP TO 4.
:ADDRESS MEMORY MANAGEMENT REGISTER.
*RESTORE TRAP VECTOR 4.

CSSVEC

15%

:DO WE HAVE ENOUGH MEMORY TO ADDRESS BIT 16?

:IF YES = PROCEED WITH TEST

#PR107,RO
CS$SPRI

;SETTING PRI SHOULD ALSO CLEAR BITS 14 &15
:IN PSW WHICH PLACES PROCESSOR IN KERNEL MODE.

MOV
MOV

#172300,R1
#8..RO

*GET ADDRESS OF KERNEL PDR REG 0
*GOING TO WRITE PDR REG 0-7

077406

MOV

#77406,(R1)+

;WRITE BITS FOR THE FOLLOWING PAGE DESCRIPTION

BNE
MOV

DEC

208
#1 72340.a1

:WRITE ALL PDRS

MOV
MOV
MOV
MOV
MOV
MOV
MOV

(R1

tzoo 2(R1)
#400.4(R1)
#600.6(R1)
#1000.10(R1)
#2000,12(R1)
#4000,14(R1)
#7600.16(R1)

:PAR 0, ADDRS

034600
034602

001374
012701

172340

6334
6335
6336
6337
6338
6339
6340

034610
034616
034626
034632
034640
034646
0346546

012761
012761
012761
012761
012761
012761
012761

000200
000400
000600
001000
002000
004000
007600

005011

ENABLE LOCAL BLOCK = uesoeo eegwse OF
-USE OF SYMBOLIC LABELS 'RSEL&" ETC.

TRAP

6331
6332

034606

FLAG
177572
#4

002340

6325
2335(7»

6333

CLR
ST
CLRVEC

FLAG

034554
0345
034554
034560

6329

#4,ANOXMEM,#PRI0O?:SET UP TRAP VECTOR 4

6321
6322
(3)
(3)

6323
6324

SETVEC

002340

002120

002002

LSB

TRAP

002340
177572

023727

T14::

LENABL

000002
000004
000006
000010
000012
000014
000016

CLR

:READ/WRITE ACCESS, 128. BLOCK PAGE LENGTH.

:GET ADDRESS OF KERNAL PAR o
0

:PAR 1, ADDRS 20000
5 ADDRS 40000
PAR . ADDRS 60000
:PAR &. ADDRS 100000
:PAR 5. ADDRS 200000
:PAR 6. ADDRS 400000
:PAR 7, ADDRS 160000

17776

- 37776
=~ 57776
=~ 77776
- 117776
=~ 217776
= 417776
= 177776 (1/0 PAGE)

CZDMIAO DMR-11 FUNCTIONA%OTEEYS MACYT 30A(1052)
CZDMIA.P1T
13-MAR-

(5)

034706

034736

012703
012704

000100

005037

002340

012746
012746

000340
023512
000004
000003

012746

012746
104437
062706
012737
012701

012702

120000

000010
000001

000040
002410

012224

LA
PAGE 2=119
T 14 = EXTENDED ADDRESSING DATA TEST

13-MAR-80

09:36

MOV
MOV

#64. R3

CLR
SETVEC

FLAG

#120000, R4

sCOUNTER FOR OUTER LOOP OF TEST PATTERN GEN.
sUSE VIRTUAL ADDRESS TO MAP TO PAR 5

+GENERATE A TEST PATTERN IN THE 1ST
4

;BYTES OF PAR 5 (VIRTUAL ADDR 120000 - 127776)
ENSURE FLAG IS CLEARED

#4 , ANOXMEM, mxo?:SET UP TRAP VECTOR 4 (WILL SET FLAG)

#PR107,=(SP)

#NOXMEM,
- (SP)

#4,-(SP)
#3,-(SP)

C$SveC

177572

31%:

#10,SP

#1,a4177572

;ENABLE MEMORY MANAGEMENT

#32. .R1
#$CCITT,R2

sCOUNTER FOR INNER LOOP OF TEST PATTERN GEN.

(R2)+,(R4)+

sWRITE TEST PATTERN_INTO 4K BYTES
; (PHYSICAL ADDRESS 200000 - 207776)
:NXM TRAP 4?

002340

;ADDRESS FOR 32. WORD TEST PATTERN

;IF YES = EXIT
:DO THE INNER LOOP 32.

TIMES

;DO THE OUTER LOOP 128. TIMES

00
012701

32%:

005024
002340

177572

33s:

000004
002340

010446
012746
012746
010600
104414
062706
000137

SEQ 0142

#4000,R1

;COUNTER TO CLEAR THE NEXT 4K BYTES.

+
(R4)

sCLEAR OUT THE ENTIRE PAR

TST

FLAG

DEC
BNE

CLR
CLRVEC
TST
BEQ
ERRDF

PRINTB

33%

s (PHYSICAL ADDRESS 210000 - 217776)
INXM TRAP 42

;IF YES = EXIT

32%

aH177572

FLAG

34%
19,.EMT22

:TURN OFF MEMORY MANAGEMENT

JRESTORE TRAP 4 TO SUPERVISOR
;WAS THIS AN ERROR EXIT
s IF NOT, PROCEED.

34%:

JMP
CLEAR

C$CVEC

CSERDF
19

EMT22
0

#FMT25
R4

R4, =(SP)
#FMT25,-(SP)
#2,-(SP)

036104
000002
000006
036044

#4 RO

SP.RO
CSPNTB
#6,SP

85%

sMACRO FOR MASTER CLEAR

N1
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-120
CZDMIA.P11
13-MAR-80 09:34
TEST 14 = EXTENDED ADDRESSING DATA TEST
1
(1)

035060

004737

6379
6380
(3)
(3)

035064
035064
035066

104410
000756

M
(1)
(1)
(1)

035070
035074
035076

004737
004000
002630

(1)

6381

(1)
(1)

035070

035100

000522

6382
6383
(3)
(3)
6384

035102
035102
035104
035106

104410
000740

035106
035112

004737
000000

M
(1)

6385
(3)
6%

035114
035114
035116

104410
000726

6387
6388

035120
035124

005037
005037

6389

6390

6391

6392
6393
639
6395

639

6397
6398
6399
6400
6401
6402
6403

011064

035150

005037

035206

035200
035204
035206
035210
035212
035212
035214
035216
035216

002342

050000

035170
035172
035210

000044
000000
000000

RSEL4:
RSEL6:

104410
000646

104410
000630

JRRRR

(2221

:MACRO FOR BASE IN COMMAND
PC, $BASEI
.WORD
LPLU
.WORD
BASE
DMR

TST

CLR
CLR

TFLAG
RFLAG

SFLAG

TRAP
.WORD

*DMR-11 MODE
IRRAR

P TIT)

TRAP
LWORD
:MACRO FOR CONTROL IN (FULL DUPLEX)

:SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
tttt

1 3331

*IF ERROR, BR TO TEST END.

TRAP
.WORD

:CLEAR sscom LOOP FLAG

“IF SFLAG= 0, THEN THIS IS A TEST OF BIT 16

*IF SFLAG= i THEN THIS IS A TEST OF BIT 17

#10000,RSEL4
:RECEIVE BUFFER ADDRESS (BITS 0-15)
#BIT14110000,RSEL6 :REC BUFFER ADDR BIT 16 SET AND 4K

CLR

TSEL4

svrs RECEIVE CHARACTER COUNT
TRANSMIT BUFFER ADDRESS (BITS 0-15)

MOV

#BIT14110000,TSEL6 :XMIT BUFFER ADDR BIT 16 SET AND 4K

CALL

$BACC
.WORD
WORD
WORD
TST

CALL

TSEL4:
TSEL6:

408:

CSESCAPE
L10074~.

:CLEAR TRANSMIT FLAG
:CLEAR RECEIVE FLAG

;BYTE XMIT CHARACTER COUNT

;ISSUE THE BUFFER ADDR/ CHAR COUNT COMMAND
RQI'BACCR
:COMMAND FOR BA/CC IN RECEIVE
0
;BUFFER ADDRESS BITS 0-15
0
*BUFFER ADDR BIT 16 + CHAR. COUNT
*IF ERROR, END TEST
TRAP
.WORD

CSESCAPE
L10074~.

;wxxx MACRO EXPANSION ##w
*CALL CONTROL IN ROUTINE WITH DEFAULT

MOV
MOV

ESCAPE

CSESCAPE
L10074~.

saxxx MACRO EXPANSION #xxw
*CALL BASE IN ROUTINE WITH DEFAULTS
:SET LINE UNIT LOOP
-BASE TABLE ADDRESS

:IF ERROR, BR TO TEST END.

PC, S$CNTIN
LWORD
0

ESCAPE

CLR

358%:

000040
000000
000000

;IF ERROR, BR TO TEST END.

JSR

002510
002560

010000
050000

6405
6406
6407
6408
6409
(3)
(3)
6410
6411

TST

JSR

011516

012737
012737

(3)
62(3){).

ESCAPE

CNTRIN

035134
035142

035162
035162
035166
035170
035172
035174
035174
035176

sewxx MACRO EXPANSION #w#s
*ISSUE A DMR MASTER CLEAR

ESCAPE

005037

012737

PC. SMSCLR

.WORD

035130

035154

JSR

BASEIN
011262

SEQ 0143

ESCAPE

$BACC
.WORD
WORD
WORD
TST

WAIT

RDO

CSESCAPE
L 10074~.

;ISSUE THE BUFFER ADDR/ CHAR COUNT COMMAND
RQI'BACCT
:COMMAND FOR BA/CC IN TRANSMIT
0
:BUFFER ADDRESS BITS 0-15
0
*BUFFER ADDR BIT 16 + CHAR. COUNT
:1F ERROR, END TEST
TRAP
CSESCAPE
.WORD
L10074~.
JWAIT FOR RDO TO BE SET

B 12

—d
)

L 33 TR
o 3 3 TR P
VIV
S =

—~

-NN
b s s
VN~~~ WS
)
v

CZDMIAO DMR=11 FUNCTIONAL TEETS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-121
CZDMIA.P11
13-MAR-80 09:
TEST 14 < EXTENDED ADDRESSING DATA TEST

6420

035216
035222
035224
035224
035226

004737
000001

010266

JSR

PC, SWAIT
WORD
1

ESCAPE

TST

s*%xx MACRO EXPANSION #wws

SCALL WAIT ROUT INE

:FLAG THAT WE'RE WAITING FOR RDO
sRRRk

104410

SEQ 0144

L2
2 2

:IF RDO NOT SET BEFORE TIMEOUT, END TEST
TRAP
.WORD

000616

032777
001406

000001

144776

BIT
BEQ

ERRDF

104455
000011

020136
015070
000137

032777
001040
005737
001406
104455
000012
020165
015070
000137

012737
023777
001406

023777
001502

036034

000004

144752

50%:

005737
001406

002510

80%

SEXIT

BIT

#RCV,SEL2

TST

TFLAG

;1S THIS A TRANSMIT OR RECEIVE?
:BR FOR RECEIVE
;1S THIS THE 1ST TRANSMIT DONE
:1F YES, PROCEED
sMULTIPLE TRANSMITS

BEQ
ERRDF

CSERDF

60%

55%
10,EMG10,ERRG2

EMG9
ERRG2

CSERDF
10

036034
177777
035206

002510

55%:

144714

036034

035210

144672

JMP

80%

JEXIT

MOV

#-1,TFLAG

BEQ
ERRDF

56%
11,EMG11,ERRG2

;FLAG THAT THE TRANSMIT IS DONE.
;1S THE BUFFER ADDRESS CORRECT?
;IF OK, PROCEED WITH CHECK.

cMP

56%:

JMP
CMP

BEQ
ERRDF

TSEL4 ,QSEL4

;BUFFER ADDRESS ERROR

EMG10
ERRGZ2

TRAP

g?ERDF

.WORD
.WORD

EMG11
ERRG2

80%

JEXIT

TSEL6,QSEL6

;1S THE CHAR. COUNT CORRECT?
:1F OK, PROCEED
s CHARACTER COUNT ERROR = OR EXT MEM PROBLEM

708
12,EMG12,ERRG2

TRAP

036034

002560

60%:

036034

JMP

80%

JEXIT

TST

RFLAG

;1S THIS THE 1ST RECEIVE DONE
:1F YES, PROCEED
JMULTIPLE RECEIVES

BEQ
ERRDF

104455

000015
020267
015070
000137

JMP
BNE

104455

000014
020241
015070
000137

9,EMG9,ERRG2

;1S THIS A CONTROL OUT COMMAND?
:NO
- PROCEED
JUNEXPECTED CONTROL OUT.

104455

000013
020214
015070
000137

#CNTRL ,@SEL2
508

CSESCAPE
L10074~.

61%:

JMP

61%
13,EMG13,ERRG2

80%

JEXIT

.WORD
. WORD
.WORD

CSERDF
12

EMG12
ERRG2

CSERDF
13
EMG13
ERRG2

c 12

CZDMIAO DMR-11 FUNCTIONAqungS MACYTT 30A(1052)
13-MAR-80 09:36 PAGE 2=122
CZDMIA.P1T
13-MAR-8
TEST 14 < EXTENDED ADDRESSING DATA TEST

6442
6443
6444
6445
(4)
(5)
(5)
(5)
6446
6447

035406
035414
035422
035424
035424
035426
035430
035432
035434
035436

012737
023777
001405

035436

023777

(4)
(5)
(5)
(5)

035446
035450
035452
035454

104455
000014
020241
015070

035444
035446

6451
6452
6453
6454
gzgg

035456
035456
035462
035464
035470

6457
6458
6459
6460
6461

035474
035500
035502
035502
035506

6462
6463
6464
6465
6466
6467
6468
6469
6470
6471
6472
6473

035512
035516
035516
035524
035524
035526
035530
035532
035534
035536
035536
035542

(5)
(5)
(5

035544
035546
035550

(4)

6474
6475
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485

035542

035552
035554
035554
035560
035566
035572
035574
035600
035600
035604
035606
035612

002560
144614

104455
000013
020214
015070
000577

6448

6449
6450

177777
035170

001404

035172

005737
001007
012700
012701

002342

012702
000406

130000

012700
012701
012702

010000
120000
140000

012737

000001

144574

62%:

004000
120000

65%:

177572

66%:
67%:

68%:

177572

104455

000017
020341
015070

530

005037
042777
005737
001002
000137
005737
001002
000137

177572
000213
002560
035216

002510
035216

70%:
144446

71%:

72%:

#-1,RFLAG
RSEL4 ,QSEL4

6 2%
11,EMG11 ,ERRG2

sFLAG THAT THE RECEIVE IS DONE.

;1S THE BUFFER ADDRESS CORRECT?
:IF OK, PROCEED WITH CHECK.
:BUFFER ADDRESS ERROR

80%

JEXIT

CMP

RSEL6,QSEL6

;1S THE CHAR. COUNT CORRECT?
:IF OK, PROCEED
:CHARACTER COUNT ERROR

BEQ
ERRDF

63%:

022122
001003
005300
001374
000407

005037

Mov
CMP
BEQ
ERRDF

63%

12,EMG12 ,ERRG2

SEQ 0145

TRAP

CSERDF

WORD
.WORD
.WORD

11
EMG11
ERRGZ

TRAP

CSERDF

WORD
.WORD
.WORD

TST
BNE
MoV
MoV

SFLAG

65$

#4000,R0

#120000,R1

12
EMG12
ERRGZ

sWHICH EXTENDED ADDRESS ARE WE CHECKING?

;BR FOR BIT 17 CHECK
:IN THE TEST OF BIT 16 WE SENT 4K BYTES

MOV
BR

#130000,R2

;THE XMIT BUFFER BEGAN AT THIS VIRTUAL ADDR
sWHICH WILL MAP TO 200000
;THE REC BUF. MAPS TO 210000

Mov
MoV
Mov

#10000,R0
#120000,R1
#140000.R2

;IN THE TEST OF BIT 17 WE SENT 8K BYTES
;THE XMIT BUFFER MAPS TO 200000
sTHE REC BUF. MAPS TO 400000

Mov

#1,a4177572

;TURN MEMORY MANAGEMENT BACK ON.

CMP
BNE
DEC
BNE
BR

(R1)+,(R2)+
6

;IS THE DATA THE SAME?
:IF NOT THERE IS A DATA ERROR.
sCHECK ENTIRE BUFFER

CLR
ERRDF

a#177572
15,EMG15,ERRG2

668

;GO COMPARE THE XMIT AND REC BUFFERS

;IF DATA OK, PROCEED WITH TEST.
;TURN MEMORY MANAGEMENT OFF.
:DATA ERROR

TRAP

WORD
.WORD
.WORD

CSERDF

15
EMG15
ERRGZ

80%

CLR
BIC
TST
BNE
JMP

a#177572
s TURN MEMORY MANAGEMENT OFF .
#RDO+RCV+CMD,@SEL2 ;CLEAR RDO, RCV & COMMMAND BITS (0,1)
RFLAG
;1S THE RECEIVE DONE ? (IF DONE, FLAG = =1)
71%
:YES - SEE IF TRANSMIT DONE
40%
:NO - GO BACK AND DO IT.

TST
BNE
JMP

72%

TFLAG

40%

JEXIT

;1S THE TRANSMIT DONE ?
:YES - SEE_IF THERE IS MORE
:NO = DO IT

D 12
CZDMIAO DMR-11 FUNCTIONAL TEST S MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-123
CZDMIA.P1T
13-MAR-80 09:34
TEST 14 - EXTENDED ADDRESSING DATA TEST

035612
035616

005737
001106

002342

012737

177777
002120

TS1

002342
004200

002510
002560

SFLAG

SEQ 0146

JHAVE WE ALREADY TESTED BIT 17

BNE

80%

:IF SO = END OF TEST

MOV
CMP
BLT
CLR
CLR

#=1,SFLAG
LSHIMEM, #4200
80%
TFLAG
RFLAG

;FLAG SO WE DON'T COME THIS WAY AGAIN.
;IS THERE ENOUGH MEMORY TO TEST BIT 17?
:IF NOT - END OF TEST.
;CLEAR FLAGS FOR NEXT TEST

:SET UP_TO TEST BIT 17, IF THERE IS ENOUGH MEMORY.
:THIS TEST WILL TRANSMIT 8k BYTES STARTING AT PHYSICAL ADDRESS 200000
:TO PHYSICAL ADDRESS 400000.
THE TRANSMITTED BUFFER STILL CONTAINS
THE TEST PATTERN GENERATED IN THE BIT 16 TEST.

035646
035652

005037
012737

035170
120000

035172

CLR
MOV

035660
035664

005037
012737

035206
060000

035210

CLR
MOV

035672
035676

012701
012704

010000

035702

005037

002340

012746
012746
012746

012746

000340
023512
000004
000003

062706
012737

000010
000001

104437

MOV

140000

CLR

SETVEC

#4 #NOXMEM,#PRIO7 ;SET UP TRAP TO VECTOR 4 (WILL SET FLAG)
MOV

TRAP

177572

768

MOV

CLR

002340
768

(R4) +

FLAG

DEC
BNE

RO
74%

CLR

aw177572

CLRVEC

000004

#1,a4177572

TST

BNE

177572

75%

TST
BNE

FLAG
76%

ERRDF

19,EMT22

JMP

PRINTB

036104
000002

FLAG

;VIRTUAL ADDRESS THAT WILL MAP INTO PAR 6

;WITH THE PHYSICAL ADDRESS 400000
:ENSURE FLAG IS CLEAR

MOV
MOV

758

010446
012746
012746

#140000, R4

MOV

002340

035162

RSEL4
;RECEIVE BUFFER ADDRESS (BITS 0-15)
#BIT15!20000,RSEL6 ;REC BUFFER ADDR BIT 17 SET AND 8K
BYTE RECEIVE CHARACTER COUNT
TSEL4
TRANSMIT BUFFER ADDRESS (BITS 0-15)
#B1T14!20000, TSEL6 :XMIT BUFFER ADDR BIT 16 SET AND 8K
:BYTE XMIT CHARACTER COUNT
#10000,R1
:COUNTER TO CLEAR 8K BYTES

35%

#FMT25,R4

;TURN ON MEMORY MANAGEMENT

#PR107 ,-(SP)

ANOXMEM, - (SP)
#4,~(SP)
#3,-(SP)
CSSVEC

ADD

#10,SP

MOV

#4 ,RO

TRAP

CSERDF

;CLEAR 400000 - 417776

;DOES A NXM TRAP 4 OCCUR?

:IF YES, EXIT

:TURN OFF MEMORY MANAGEMENT
;RESTORE TRAP 4

;WAS THIS AN ERROR EXIT?
;IF YES = REPORT ERROR

TRAP

C$CVEC

;START THE SECOND TEST

.WORD
.WORD
WORD

MOV

MOV
MOV

19
EMT22
O

R4 ,~(SP)

#FMT25,-(SP)
#2,-(SP)

CZDMIAO DMR-11 FWCTIW&G TESTS MACY11 30A(1052)
CZDMIA.P1T
13-MAR-8
9:34

(3)

036024

13—MAR-80

09:36

E 12

=124

T 14 - EXTENDED ADDRESSING DATA TEST

010600
104414

062706

004737

MOV
000006

80%:

012560

TRAP
ADD

SHUTDN

JSR

PC, SHALT

CALL

85%:
ENDTST

023516
051104
054105
042105
051117

020124
051505
042524

ABL

:DMR HALT ROUTINE.

LA
2 24

$ERROR

:CHECK BASE TABLE AND REPORT ANY SOFT ERRORS

L3B

;DISABLE LOCAL SYMBOL BLOCK
L10074:

TRAP

EMT22:

.ASCIZ

/CAN'T ADDRESS EXTENDED MEMORY/

FMT25:

.ASCIZ

/XAMEMORY ADDRESS %06% DOES NOT RESPOND - TRAP 4IN/

020120

b
.EVEN

.SBTTL
SRR

;*
;*
;*
;*
;*
;*
;*

w
i
i
e
3
3
:*
;e
:*

TEST 15 - DMC MODE (RESUME) INTERRUPT TEST
AR AR

AR RN R AR

R SRR AR RRR IR AR AARRANRAAR

AN AR R

AR AR AT

TEST 15 - DMR-11
RESUME BASE IN - DMC MODE
*+
WILL NOT RUN IF MODEM LOOPBACK IS SELECTED
==
IN THIS TEST THE DMR WILL TRANSMIT AND RECEIVE 7 BUFFERS. DURING THE
TEST THE DMR UILL BE HALTED AND RESTARTED BY A BASE-IN RESUME IN THE
FOLLOWING MANNER
BASE IN

CONTROL
HALT
2 BA/CC
HALT
2 BA/CC
HALT
2 BA/CC
HALT
1 BA/CC

HALT

SP,RO

CSPNTB
#6,SP

sSHUTDOWN DMR
sx%xx MACRO EXPANSION #wwx

SRRk

6537

SEQ 0147

BASE
IN RECEIVE
BASE
IN RECEIVE
BASE
IN RECEIVE
BASE
IN RECEIVE
BASE

IN RESUME

IN RESUME
IN RESUME
IN RESUME
IN RESUME

CSETST

CZDMIAO DMR-11 FUNCTIONAL TES TS MACY11 30A(1052)
A A
R
TR T T TR U
I
T TP
T
N
L
L
L

HALT

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.
THIS
SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
SEVEN RECEIVE AND SEVEN TRANSMIT BUFFERS.
THE ROUTINE WILL
a;ggx&;o USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING

2
LA

6589

036166

005737

6591

036172

001036

6593

659
6595
6596

(1)

fl;

036174

036202
036210
036216

012737

012737
012737
005037

002306

000007

000001
000001
002300

BASE IN RESUME

ALL BA/CC OUTS RECEIVES AND TRANSMITS WILL BE ACCOUNTED FOR AND
THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
THE RECEIVE/TRANSMIT TABLE.

THERE IS MEMORY MANAGEMENT, USE A PAGE ABOVE 32K.

IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

ARttt

004737

011064

6606
(1M
(1)
(1)
(1)

f} ;

eIt 2212222222222222222%

T1S::
.DO WE NEED TO WRITE MODEM

WMAINT

BNE

40%

MOV
MOV
MOV
CLR

#7 ,BUFNUM
#1 ,RE SUME
#1,DMCMDE
MNTMDE

JMAINTENACE 1 OR 2?
sIF YES WE CAN'T RUN THIS TEST
s(NOTE: CAN'T WRITE MODEM IN DMC MODE)
;8 OF RCV & XMIT BUFFERS.
sFLAG SET TO REQUEST USE OF RESUME.
sFLAG SET TO REQUEST DMC MODE.
sFLAG NOT TO REQUEST MAINTENANCE MODE.

CALL

$BUFFS

sDETERMINE 7 RCV &

JSR

PC, SMSCLR

svxxx MACRO EXPANSION wwxxx
;ISSUE A DMR MASTER CLEAR
:ifit'

036232
036234

ESCAPE

104410
000034

036236
036236
036242
036244

036246

TST

000522

011262

JSR

L3 3 31

;IF ERROR, EXIT TEST

TRAP
.WORD

;ISSUE A DMR MODE BASEIN
:IN DMR MODE, IF A _INTERFACE IS REQUIRED
2TO BE WRITTEN = IT WILL BE DONE.

BASE IN
004737
004000
002630

7 XMIT BUFFERS

JMASTER CLEAR

(3)
(3)

eIt

TST

CLEAR
036226

SEQ 0148

1 BA/CC IN TRANSMIT

IN TRANSMIT
BASE IN RESUME
IN TRANSMIT
BASE IN RESUME
IN TRANSMIT
BASE IN RESUME

BF R B

2 BA/CC
HALT
2 BA/CC
HALT
2 BA/CC
HALT

L I

BEBEBB PB N N BN NN NR R

13-MAR-80 09:34

CZDMIA.P1T

F 12
13-MAR-80 09:36 PAGE 2-125
TEST 15 = DMC MODE (RESUME) INTERRUPT TEST

PC,

$BASEI

.WORD
.WORD
.WORD

LPLU
BASE
DMR

sx%xx MACRO EXPANSION sxxw
sCALL BASE IN ROUTINE WITH DEFAULTS

sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE
:tt..

C$E SCAPE
L10075-.

G 12
13-MAR-80 09:36 PAGE 2=126
T 15 = DMC MODE (RESUME) INTERRUPT TEST

8ackt2

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMIA.P1T
13-MAR-80 09:34

ESCAPE

104410

EEE~~F~nn

B(NN
= v v O

000016

004737

TST

;IF ERROR, EXIT TEST

JSR
ESCAPE

C$ESCAPE

LWORD

L10075-.

TRAP
.WORD

CSESCAPE
L10075-.

sxxxx MACRO EXPANSION ##x+
:DMR HALT ROUTINE.

PC, SHALT

;tttt

104410

TRAP

JHALT

SHUTDN

012560

SEQ 0149

TST

1 2

2 3 ]

;IF ERROR, EXIT TEST.

000006

— e
WN

JAFTER SETTING INTERFACE OR LOOPBACK MAINT.

'ég?N;‘I;DgE DONE IN DMC MODE), START IN

6614

036264

CALL

$INOUT

:THIS ROUTINE WILL MANAGE ALL THE DMR
;COMMANDS ISSUED IN THE INTERRUPT ROUTINES
; (FROM BASE IN UNTIL SHUT DOWN).
BESIDES
:CONTROLLING THE SOF TWARE TIMEOUT, THIS
:ROUTINE WILL ALSO CHECK THAT BUFFER
s CHARACTER COUNTS AND ADDRESSES ARE CORRECT

:AND THAT THE DATA IS CORRECT IN THOSE BUFFERS
40%:
ENDTST

L10075:

104401

.SBTTL

TEST 16 - DMR MODE

(RESUME)

TRAP

INTERRUPT TEST

IO T TP TP T NP T

AR AR AR d i
Il
t
22222322 22222222222211%;

TEST 16 = DMR-11
;* RESUME BASE IN - DMR MODE
* %

;* IN THIS TEST THE DMR WILL TRANSMIT AND RECEIVE 7 BUFFERS. DURING THE

BASE IN
CONTROL IN
HALT

2 BA/CC IN RECEIVE

HALT

SE IN RESUME

BAS
SE IN RESUME

2 BA/CC IN RECEIVE

BAS E IN RESUME

2 BA/CC IN RECEIVE

HALT
BAS E IN RESUME
BA/CC IN RECEIVE
HALT
BAS E IN RESUME

U’
m

2 BA/CC IN TRANSSIT

2 BA/CC IN TRANSMI T

—

T
TN
TR
T
IR T
L
I

BB BBN BA

;* TEST THE DMR UILL BE HALTED AND RESTARTED BY A BASE-IN RESUME
;* FOLLOWING MANNER

036270
036270
036270
036270

N RESUME

IN THE

CSETST

CZDMIAO DMR=11 FUNCTIONAL T%ZYS MACY11 30A(1052)

CZDMIA.P11

13-MAR-80 09:

BFBB BB BNNPBN BNSBN N

6654
6655
6656
6657
6658

6659
6660
6661
6662

6663

BASE IN RESUME

HALT

BASE IN RESUME

1 BA/CC IN TRANSMIT

ALL BA/CC OUTS RECEIVES AND TRANSMITS WILL BE ACCOUNTED FOR AND
THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
THE RECEIVE/TRANSMIT TABLE.
THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.

THIS

SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF

SEVEN RECEIVE AND SEVEN TRANSMIT BUFFERS.

THE ROUTINE WILL

QHEA";EH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
A.
B.

IF THERE IS MEMORY MANAGEMENT, USE A PAGE ABOVE 32k.
IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

A AR

A AR AR AR AR A AR A AR AR AR A AR

AR R AR

AR AR AR AR AR AR AR

BGNTST

012737
012737
005037
005037

000007 002322
000001
002274
002276 .
002300

6683
6684
6685
011064

T16::

MOV
MOV
CLR
CLR

#7 ,BUF NUM
#1 ,RE SUME
DMCMDE
MNTMDE

;8 OF RCV & XMIT BUFFERS.
sFLAG SET TO REQUEST USE OF RESUME.
sFLAG CLEARED - DMR MODE.
;FLAG NOT TO REQUEST MAINTENANCE MODE.

CALL

$BUFFS

sDETERMINE 7 RCV &

CLEAR

1)
1M
(1)

JSR
ESCAPE

(3)
(3)

7 XMIT BUFFERS

JMASTER CLEAR

PC, SMSCLR

saxxx MACRO EXPANSION wwxxx

;ISSUE A DMR MASTER CLEAR
:'t'.

6687

6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
(3
(3)
6700
6701

HALT

6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
(3)
6678
6679
6680
6681

SEQ 0150

HALT
BASE IN RESUME
2 BA/CC IN TRANSMIT

B IRBNBE B

6664
6665

H 12
13-MAR-80 09:36 PAGE 2=127
T 16 = DMR MODE (RESUME? INTERRUPT TEST

TST

L3 2

;IF ERROR, EXIT TEST

TRAP

WORD

CALL

ENDTST

104401

$INOUT

CSESCAPE

L10076~.

sTHIS ROUTINE WILL MANAGE ALL THE DMR
;COMMANDS ISSUED IN THE INTERRUPT ROUTINES
; (FROM BASE IN UNTIL SHUT DOWN). BESIDES
;CONTROLLING THE SOF TWARE TIMEOUT, THIS
sROUTINE WILL ALSO CHECK THAT BUFFER
s CHARACTER COUNTS AND ADDRESSES ARE CORRECT
JAND THAT THE DATA IS CORRECT IN THOSE BUFFERS

L10076:

RAP

CSETST

112

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MR-80 09:36 PAGE 2-12 8
CZDMIA.P11
13-MAR-80 09:34
TEST 16 = DMR MODE (RESUME) INTERRUPT TEST

6702
6703
g;g‘so

LSBTTL

67056

6707

SEQ 0151

TEST 17 = DMR MODE INTERRUPT EXERCISE
AR

R A

A AR AR

AR AR

TEST 17 = DMR-11

AR AN R A AR R RARRA R AR AR CR AR RN RN RN

6708
g;??)

s* INTERRUPT DRIVEN EXERCISE
.' IN THIS TEST 64 BUFFERS WILL BE TRANSMITTED AND RECEIVED

6711

:' ALL BA/CC OUTS RECEIVES AND TRANSMITS WILL BE ACCOUNTED FOR AND

g;}z

;* THE RECEIVE/TRANSMIT TABLE.

6712

:* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
- %

6715
6716
6717
6718
6719
6720
6721
6722
6723

o®
M
e
;%
o
o
o¥
o*
i

g;%g

,tttttttttttttttttttttttttt"ttttttttttttt'tttt*ttttttttttttrlttttt*tt

036340

BGNTST

(3)
g;gg

036340
036340

012737

000100

6730
6731
g;;%

036346
036352
036356

005037
005037
005037

002274
002276
002300

277?;
6736
1
(1)

(1)

6737
6738
(3)
6%‘)7

6740
6741
6742
6743
6744
6745

THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

6726

6727

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.
THIS
SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
64 RECEIVE AND 64 TRANSMIT BUFFERS.
THE ROUTINE WILL
ATTEMPT TO USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
HIERARCHY:
A. IF THERE IS MEMORY MANAGEMENT, USE A PAGE ABOVE 32K.
B. IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
C. IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE

MOV

#64 . ,BUFNUM

T17
;# OF RCV & XMIT BUFFERS.

CLR
CLR
CLR

RE SUME
DMCMDE
MNTMDE

;FLAG CLEARED IN ORDER NOT TO USE RESUME.
sFLAG CLEARED TO ALLOW DMR MODE.
sFLAG NOT TO REQUEST MAINTENANCE MODE.

036362

CALL

$BUFFS

;DETERMINE 64 RCV &

036366

CLEAR
PC, $MSCLR

sxxxx MACRO EXPANSION wwxx
sISSUE A DMR MASTER CLEAR

TST

;IF ERROR, EXIT TEST

036366

036372

036372
036374

004737

002322

011064

JSR

ESCAPE

104410
000012

036376

CALL

64 XMIT BUFFERS

sMASTER CLEAR

$INOUT

g;"'g

JRERR

Ahkk

TRAP
.WORD

CS$ESCAPE
L10077-.

sTHIS ROUTINE WILL MANAGE ALL THE DMR
s COMMANDS ISSUED IN THE INTERRUPT ROUTINES
; (FROM BASE IN UNTIL SHUT DOWN).
BESIDES
:CONTROLLING THE SOF TWARE TIMEQUT, THIS
ROUTIhE WILL ALSO CHECK THAT BUFFER
sCHARACTER COUNTS AND ADDRESSES ARE CORRECT

:AND THAT THE DATA IS CORRECT IN THOSE BUFFERS

g;zg

036402

6750
6751

036406

CALL
ENDTST

$ERROR

sCHECK BASE TABLE FOR SOFT ERRORS

J 12

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-129
CZDMIA.PIT
13-MAR-80 09:34
TEST 17 - DMR MODE INTERRUPT EXERCISE
(3)
(3)
6752
6753
6754
6755
66;29

036406
036406

SEQ 0152
L10077:

104401

TRAP

.SBTTL

6758

SRR

6759

CSETST

TEST 18 = DMR MODE LARGE MESSAGE
AR R AN AR AR

AR AR AR AR AR AR R AR AR AR AR RARRRRA R AR AAR AR A AR AR AR

TEST

18 - DMR-11

6760
g;g}

;* LARGE MESSAGE
;* IN THIS MODE TRANSMIT AND RECEIVE 1 LARGE BUFFER

6763

s* THE BA/CC OUT RECEIVE AND TRANSMIT WILL BE ACCOUNTED FOR AND

g;gg

:* THE RECEIVE/TRANSMIT TABLE.

6767

6769
6770
6771
6772
6773

o
o*
o®
:®
o

. %

6764

;* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
. %

6768

:®

6774

oTM

6775

6779

THIS

ONE RECEIVE AND ONE TRANSMIT BUFFER.
THE ROUTINE WILL
ATTEMPT TO USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
HIERARCHY:
A. IF THERE IS MEMORY MANAGEMENT, USE A PAGE ABOVE 32K.
B. IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY

:®

g;;g

6778

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.

SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF

C. IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE

THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

:tttntttttttttttttttttttt'ttttttttttttttttttfittt'tttttttttttttttttttti

036410

BGNTST

6%3())

036410

g;g}

036410

012737

000001

6783
6784
2;32

036416
036422
036426

005037
005037
005037

002274
002276
002300

g;gg

002322

T18::
MoV

#1,BUFNUM

;# OF RCV & XMIT BUFFERS.

CLR
CLR
CLR

RE SUME
DMCMDE
MNTMDE

;FLAG CLEARED IN ORDER NOT TO USE RESUME.
:FLAG CLEARED TO ALLOW DMR MODE.
sFLAG NOT TO REQUEST MAINTENANCE MODE.

036432

CALL

$BUFFS

;DETERMINE 1 RCV &

6789

036436

CLEAR

(1)

036436

(1)

6790
6791
(3)
6%%

036442
036442
036444

6793

036446

6794

6795
6796
6797
6798
6799

004737

104410
000012

011064

JSR

ESCAPE

CALL

1 XMIT BUFFER

;MASTER CLEAR
PC, SMSCLR

TST

$INOUT

saxxx MACRO EXPANSION sw%x

sISSUE A DMR MASTER CLEAR
JRRRR

;IF ERROR, EXIT TEST

L322

TRAP
WORD

CSESCAPE
L10100-.

sTHIS ROUTINE WILL MANAGE ALL THE DMR
:COMMANDS ISSUED IN THE INTERRUPT ROUTINES

s (FROM BASE IN UNTIL SHUT DOWN). BESIDES
:CONTROLLING THE SOF TWARE TIFEWT THIS
:ROUTINE WILL ALSO CMECK THAT BUFFER
sCHARACTER COUNTS AND ADDRESSES ARE CORRECT
:AND THAT THE DATA IS CORRECT IN THOSE BUFFERS

K 12
13-MAR-80 09:36 PAGE 2=130
T 18 = DMR MODE LARGE MESSAGE

E%&}:Op%fi-fl FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-B0 09:34

6800
6801
6802

036452

CALL

$ERROR

SRERS 2EELEEEEE 8ocEEEEE

6803

6805

ENDTST

L10100:

104401

ONOVSWN=O

036456
036456
036456

.SBTTL

TEST 19 = DMR MAINTENANCE MODE MESSAGE
TEST 19 - DMR-11

;* HAINTENANCE MODE OPERATION

ll-lfi'.

s * THE BA/CC OUT RECEIVE AND TRANSMIT WILL BE ACCOUNTED FOR AND
;* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
;* THE RECEIVE/TRANSMIT TABLE.

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.
THIS
SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
ONE RECEIVE AND ONE TRANSMIT BUFFER.
THE ROUTINE WILL
QH%EH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING

%
%

A.
B.

IF THERE IS MEMORY MANAGEMENT, USE A PAGE ABOVE 32K.
IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE -POSSIBLE;- USE

THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

ettt

BGNTST

036460

012737

000001

036466

005037
005037
012737

002274
002276
000001

IIII

13232222

T19::

002322

MOV

#1,BUFNUM

;8 OF RCV & XMIT BUFFERS.

002300

CLR
CLR
MOV

RE SUME
DMCMDE
#1 ,MNTMDE

;DON'T ALLOW RESUME
sFLAG CLEARED TO ALLOW DMR MODE.
sFLAG SET TO REQUEST MAINTENANCE MODE.

036504

CALL

$BUFFS

JDETERMINE 1 RCV &

036510

CLEAR

036476

—

TRAP

ttttttttttt'tttkttttttt'tttt’ttttttttttttttttttnttttittttlttttttttttt

'NEBEBOWA\'wan\

CHEgK BASE TABLE FOR SOFT ERRORS
sNOTE:
NORMALLY ANY NON-ZERO ERROR COUNT IS
:REPORTED; HOWEVER IN THIS TEST A REP COUNT
:0F 1 IS ALLOWED, BECAUSE AT LOW BAUD RATES

:WE WOULD EXPECT 1 REP.

036460

6843

SEQ 0153

036510
036514
036514
036516

004737

104410
000012

011064

JSR
ESCAPE

1 XMIT BUFFER

JMASTER CLEAR

PC, $MSCLR
TST

sxxxx MACRO EXPANSION *xxx

ISSUE A DMR MASTER CLEAR
t.tt

;IF ERROR, EXIT TEST

L 2. 3 31

IRAP
.WORD

CSETST

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
CZDMIA.P11
13-MAR-80 09:34
6848

036520

13-MAR-80

09:36

L 12

PAGE 2=131

T 19 = DMR MAINTENANCE MODE MESSAGE

CALL

$INOUT

SEQ 0154

sTHIS ROUTINE WILL MANAGE ALL THE DMR

;COMMANDS ISSUED IN THE INTERRUPT ROUTINES
; (FROM BASE IN UNTIL SHUT DOWN).
BESIDES
:CONTROLLING THE SOFTWARE TIMEOUT, THIS
:ROUTINE WILL ALSO CHECK THAT BUFFER
sCHARACTER COUNTS AND ADDRESSES ARE CORRECT

:AND THAT THE DATA IS CORRECT IN THOSE BUFFERS

6859

0365338

(3)

036530

CALL

$ERROR

;CHECK BASE TABLE FOR SOFT ERRORS

ENDTST

L10101:

104401

.SBTTL
A

N80, 8,08, 08,

036524

TRAP

CSETST

HARDWARE PARAMETER CODING SECTION

itttittt
222222222%3

THE _HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THER 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.

RN
RN AR A A AR AR AN AR R AR AR AR AR AA NN ARARAA A AR AAR

Se8e

6856

000015

001031
036566
160000
177776

002031
036604
000000
000776

010032

BGNHRD

L$HARD::
GPRMA

.WORD L10102-L$HARD/2

P1,2,0,160000,177776,YES

.WORD
.WORD

.WORD

GPRMA

.WORD

P2,4,0,0,776,YES

TSCODE

TSLOLIM
TSHILIM

T$CODE
P2
TSLOLIM

GPRMD

TSHILIM

P3,20,0,7.0,7,YES

T$CODE

P3
7

TSLOLIM
TSHILIM

000007
ENDHRD

L10102:

E%g:%:OP?TR~11 FUNCTIONAL TESTS MACY11 30A(1052)

13-MAR-80

m12
PAGE 2-132

/CSR ADDRESS: /

LASCIZ

/VECTOR ADDRESS:

LASCII

/TEST CONFIGURATION =/<CR><LF>

LASCII

INTERNAL (NO CONNECTOR)/<CR><LF>

H3254 - v.35

(NOTE:

.ASCIZ

N=
O
EN TR

\h—‘omf\)gu (V. [,¥]

SEQ 0155

H3254 - INTEGRAL

PROGRAM INTERFACE SELECTION)/

6891

LASCII

6892

LASCII

<CR><LF>/

LASCII

& = H3255 = RS422/<CR><LF>

6895

LASCII

5 = CABLE AND SW PACK INTERFACE SELECTED/<CR><LF>

6896

LASCII

6893
6894

LASCII

6890

6889

SRSSRS
S92
wvisSsSuinosSsSnY
i
NWISNN
=0
VON§
o=
nwo-ovoo
S
~0 0

6888

6887

051503
051104
000040
042526
040440
051523
124
047503
051125
020116
040

N
b

036566
036574

09:36

HARDWARE PARAMETER CODING SECTION

fol=1=)

6885
6886

13-MAR-80

MODE 1-4 ALLOWS/<CR><LF>

3 = H3255 = RS232C/<57>/423/<CR><LF>

037110

037114

(V.35-H3250,

INTEGRAL-B(CS55A-10,/

N 12
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
13-MAR-80 09:36 PAGE 2-133
CZDMIA.P11
13-MAR-80 09:
HARDWARE PARAMETER CODING SECTION

6897

047111
046101
040465

042524
041055
030455

031123

031063
032462
031064
026462
024461

025040
020066
040503
050117

6899

020075
042524
006520

SEQ 0156

LASCII

7/ RS232(C~H325, RS423/<57>/422-H3251)/<CR><LF>

LASCII

/~ SELECT THE FOLLOWING ONLY IF THE MODEM SUPPORTS LOOPBACK */

LASCII

<CR><LF>/

LASCIZ

6 = LOCAL LOOP/<CR><LF>

7 = REMOTE LOOP/<CR><LF>

.EVEN

.SBTTL
AL A

SOFTWARE PARAMETER CODING SECTION
s itt
IIT2222223
t
2222222222222

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THER 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.
AR

037470

037470
037470
037472
037474
037476
037500

000005

AR L

T2 222323222222322222322;

BGNSFT

L$SOFT::

GPRMD

037502

000005

.WORD L10103-L$SOFT/2

$1,0,0,7,1,5,YES
.WORD
.WORD
WORD
.WORD
WORD

TSCODE
§1
7
TSLOLIM
TSHILIM

B 13

CZDMIAO DMR=11 FUNCTIONAL
'§2TS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 2-134
13-MAR-80
CZDMIA.P1T
SOF TWARE PARAMETER CODING SECTION

037502

SEQ 0157

ENDSFT

037502

L10103:

037502

052103
050040
046501
020120
047455
051101
006505

6925

037626

S1:

042506
046040
043516
030456
024040
035465
030475

LASCII

/SELECTABLE PROGRAM LOOP TIME-OUT VARIABLE/<CR><LF>

.ASCIZ

/[REFER TO LISTING 6.3.13]

037732
037734
037736

037732

PATCH:

AREA

AARAARAR
AR AAARARA
A A AR AR AR AR

=.+100

ENDMOD

037740

LASTAD

000001

PATCH

NOP
NOP
NOP
AR

037740

037740
037742
037744

(MAX=5; MIN=1) /

037632
:ttttttfittttttttt*tt

037632

.EVEN

LSLAST::
.END

et 222223222223222222222227

C13

CZDMIAO DMR-11 FUNCTIONA59T§‘TS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3
CZDMIA.PT
13-MAR-8
CROSS REFERENCE TABLE == USER SYMBOLS

AX3

002304

5280

5303

5305

ASSEMB= 000010

4372+
5975

BACCR = 000004
BACCT = 000000
BASE
002630

BASEI = 000003
BASEUP= 020000
BIGBUF
004230
BITO = 000001 G
BITO0 = 000001 G
BITO1 = 000002 G
BITO2
= 000004 G
BITO3
= 000010 G
BITO4 = 000020 G
BITOS = 000040 G
BITO6 = 000100 G
BITO7 = 000200 G
BITO8 = 000400 G
BITO9 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 000004 G
BIT3 = 000010 G
BIT4
= 000020 G
BIT5 = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
BIT9 = 001000 G
= 000400 G
BSELO = 002232

NONNHWNOW

= 000044
= 000020 G

Vi
oONOs
CONVEN
NN = =2

&
ADR

SEQ 0158

4708

5123

5362

5375

4614
4614
5844

4767
5880

4774
6501

5814

5844

5880

5235

5268

5493

5500

5514

5934

2409

4372

3955«

4675+

4299

5617
5017
3889
6728
3853«

4377

6393

6396

6504

4681+

4696+

4701+

4716+

5182

5187

5191

5654
5106
3941
6836~
3882

3942

3943

3981

4046

3893

3895

4047

2406

3401+

BSEL1
002242
BSEL2 = 002234

BSEL3

002244

BSEL4
= 002236
BSELS
002246
BSEL6 = 002240
BSEL7
002250
BUFNUM 002322

BUFSIZ 002320
o
= 002000

D 13
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE i,
CZDMIA.P1T
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS

CHIPNO 002406
CLRNO
002372
(Md
= 000007

CNTRL = 000001
CR
= 000015
CSR
002232
CTS
010000
C$AU
000052
C$AUTO= 000061
C$BRK = 000022
C$3SEG= 000004
Cs$8suUB= 000002
CSCEFG= 000045
CS$CLCK= 000062
CSCLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
C$CVEC= 000036
CSDCLN= 000044

4432

CSERDF= 000055

4911

6307

SEQ 0159

5726

5826

5859

5892

6043

6071

6095

3590
5977
6414
6895

4497
5984

4681
6027

4743

6034

5713
6051

5754
6062

5810
6079

6897

6899

6900

6924

5349
6021

5382
6047

5481
6075

5506
6099

5522
6129

5540

5595

6371

6520

4505
5239

5715

6216
6439
CSERHR=
CS$ERRO=
CSERSF=
CS$ERSO=
C$ESCA=

000056
000060
000054
000057
000010

5374
5531
5689
5833
5968
6142
6608

CSESEG= 000005
CSESUB=

5628

6156

4285

E 13

CZDMIAO DMR-11 FUNCTIONAL T STS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-2
CZDMIA.P1
13-MAR-80 09:
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0160

CSMSG = 000023

CSOPEN= 000034
CSPNTB= 000014

CSPNTF= 000017
CSPNTS= 000016

4068

4135

4143

5315

5443

5655

3020
4075
4142
5118
5441

4043
4085
4147
5296
5778

4044
4088
4148

4057
4119
6312
542¢

4064
4126
4974
5425

4066
4133
4980
5429

6375

CSPNTX= 000015

C$Q10 = 000377

CSRDBU= 000007

CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013
DDMC
= 000010
DFPTBL
002174
DIAGMC= 000000
DISCON= 000100
DMCMDE
002276
DMR
= 000522

4266

4268

4270

3952
4330

4020
4331

4248
4421

6304

DMTVEC
DTR
=
DXERR =
EF .CON=

002230
000100
000007
000036

3183

41974

4802
4807

4813

6439

EMG16

020354

6510

6680+
5507
6030

6731«
5526
6103

6784
5555
6133

6839+
5599
6187

5687
6381

5735
6606

4385

4387

4389

439N

4522

4565

(alalalala)

DMRFLG 002260
DMRRUN= 000040
DMRVEC 002226
DMTURN 002254

6347

6227

6473

6222
6246

6241
6434

6429
6450

6445

F13
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-3
13-MAR-80 09:
CZDMIA.P1T
CROSS REFERENCE TABLE == USER SYMBOLS

EMG17
EMGI8
EMG2
EMG8

020405
020457
020025
020072

EMGY

020136

012532

012722
024002
025362
030524
030552
O

EMT13
EMT2
EMT20
EMT22
EMT3
EMT4
EMTS
EMT6
EMT7
EMT8
EMT9
END

026264

(212121
9]

[alalalalal

FLAG

FMDROP

6088

42004
6150

6205

4751

5720
6416

5761

5824

5856

5890

5948

5992

6041

3015+

3028

3069+

3092+

3100

4505

4740

477

5715

6145
6429

6150
€434

6216
6445

6222
6450

5876+
6153«

5893+

5977+

5995+

6027+

4888+

4905

4909+
6312+

3004~

026044
031114

EVL

6064

43984

ERRT1
ERRTZ2

EXERR =
ESEND =
ESLOAD=
FINIT1
FINIT2

6036

6118

54464

015204
015464
015760
016056
002360

027206

5986

5318#

026357
027514
027545
030474
021510
002354
014562
016160
016212
016244
015070

031710

5943

65364

026311

ERRT3

5885

56584

ERRG3
ERRG4
ERRG7
ERRG8
ERROR

ERRT4

5851

51374

025536

ERRG1O0
ERRG11
ERRG12
ERRGZ

5819

36044

031146
025402
031746

ERRFLG
ERRG1

5756

5827+
6109+

5840+
6126+

3908+~
5080
6514

4422+

000006
002100
000035

0271512
021605
002340

023552

3744

4994«

6365

3783
5068
6372

3792
5071+
6509«

5083
6521

4433

5097«

EMS4
EMTO
EMT]
EMTIO
EMT11
EMT12

5715

wna
-

EMS3

4505
4740
L1964
L1954

SEQ 0161

6305+

6308

G 13

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3=4
CZDMIA.P1T
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS

FMT25
FMT3
FMT4
FMTS
FMT6
FMT7
FMT8
FMT9
FRSPAS

h‘g
R

s e

V3 rz=sg

[ ]

b
e

O o

FRSTIM 002264
F$AU = 000015
FS$AUTO= 000020

F$BGN = 000040

41734

~NCo

—d

067

4073

41754

5778

031172

0361
025220
025
026423
026454
026505
026536
026601
002266

4105

41834

025143

5421

FMT2

FMT19

714

016434
016465
016516
016557
016630
016701
010600
010641
011742
024040
025074
027602
027633
027670
027725
027762
030017

016362

4075

FMG4
FMG5
FMG6
FMG7
FMG8
FMG9
FMS1
FMS2
FMS3
FMTO
FMT1
FMT11
FMT12
FMT13
FMT14
FMT1S
FMT16

FMG3

«066

016276
016752
017010
017042
017073
017147
017223
017252
017331
017404
017473
016330
017516
017545
017625
017652
017733

Ll o F nb ek P

FMG1
FMG10
FMG11
FMG12
FMG13
FMG14
FMG15
FMG16
FMG17
FMG18
FMGI9
FMG2
FMG20
FMG21
FMG22
FMG23
FMG24

65374
51344

SEQ 0162

H 13
CZDMIAC DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-5
13-MAR-80 09:34
CZDMIA.P11
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0163
5692
5777
5866
5952
6073
6142
6385
6727

SCLEA= 000007

$END = 000041

$MOD = 000000
FEMSG = 000011

4143

5653

F$PROT= 000021
F$PWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOT
F= 000005
FESRV = 000010
F$SUB = 000002

F$SW = 000014
FSTEST= 000001

GETPRM 020666
GSCNTO= 000200
GSDELM= 000372
GS$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
G$LOL
I= 0000017

4145

4149

5349
5628
6021

5380

6045

5480
6156
6835

5566
6172
6859

5655

5777

113

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-6
CZDMIA.P11
13-MAR-80 09: 34
CROSS REFERENCE TABLE == USER SYMBOLS
GSNO = 000000
GSOFFS= 000400
GSOFSI= 000376
GSPRMA= 000001

2094
22094
22094
22094

GSPRMD= 000002
GSPRML =
GSRADA= 000140

22094
22094
22094

GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HALTC = 001000
HDX
= 002000
HELP = 000000
HICRC
002376
HIWORD 002402
HLT
= 000002
HOE
= 100000 G
IBE
= 010000 G
IDU
= 000040 G
IECLR = 000020
IE0O
= 000100
IER
= 020000 G
IESET = 000100
INFACE 002262
INFLAG 002346
INISR
021772 G
INRCV
002324
INTER = 000015
INXMIT 002326

2094
22094
22094
22094
24014
23994
21974
26044
26064
24264
23434
23434
23434
2382#
23894
3434
23794
25234
25794
4330
25654
24414
25664

ISR
= 000100 G
IXE
= 004000 G
ISAU_ = 000041
ISAUTO= 000041
ISCLN = 000041
ISDU = 000041
ISHRD = 000041
ISINIT= 000041
I$MOD =" 000041
ISMSG = 000041

23434
23434
22094
22094
22094
22094
68784
22094
22094
22094

GSRADB=
GSRADD= 000040

ISP12 = 000076
ISP7 = 000072

I$PROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041

I$SETU= 000041
I$SFT = 000041

6882
6882

SEQ 0164

6920
6920

22094
22094

6920
6091

6121

6148

2700
5052+
5078

5077

5078

5086

4696

5053«
5086

4716

4670
4665
4724+

4675

4681

4696

4701

4578%

4684

4688

4586

4704

4708

40704
41644

40994

41354

5178
5595
6047

5225
5682
6099

4056
4670
4056

24654
24644

4716

4721

4754

5534

41524

S7794
22094
22094
22094
22094
22094
5480
5830
6677
22094
69184

6920
6067

4966

5912
6779

52934

54204

41454

41494

5349

5382
5801
6588

56554

5348
5731
6172

6301

S7774

J 13
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 37
CZDMIA.P1T
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS
I$SRV = 000041
1$SUB = 000041

22094
2209#

I$TST = 000041

52584
55384
5800
gg;gfi

4477k
4885

52894
55404
58014
60754

4730
4966

5348
5562#
5828+
60974

53494
5593
58304
60994

53804
55954
58614
6127#

53824
56284
58634
6129%

54178
56304
589
61544

5480
56478
5912
6172

54814
5682
5965
6301

55044
56834
6020
6588

55064
5729
60214
6677

5520
57314
60454
6727

55224
5773«
60474
6779

22094

4BBSH

L9134

4966H

4967

4993

5096

5181

5190

52004

52244

5875
5974
6108
62834
66254

5595
5689
5801
58964
5983
6115
63014
66778

6129
6380
6687

5261
5389
5522
3601
5701
5807
5915
60204
6132
6383
66994

4644

4659

4661

5034

4278%
5016+
4567
5805

5225
5372
5490
55664
5683
S774m
5872
5971
6105
6199
gg;g’

JSJMP = 000167

22094

24764

LAST

002356

= 000012

LOCATE 023724 G
LOCRC
002374
LOE
= 040000 G
LOGDEV 002362
LOT
= 000010 G
LOWORD 002400
LPLU = 004000
LSACP
LSAPT
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSOLY
L$DTP
LSDTYP
L$DU
LSDUT
LSOVTY
LSEF

LSENVI
LSETP
LSEXP1
LSEXP4
LSEXP5
LSHARD

002110 G
002036 G
002070 G
021700 G
002106 G
021770 G
002032 G
002011 G
010236 G
002076 G
002060 G
002124 G
002116 G
002040 G
002034 G
023522 G
002072 G
010230 G
002052 G

002044
002102
002046
002064
002066
036534

G
G
G
G
G
G

5229
5374
5499
55934
5

25904

4622%

4887
26034
23434
25934
23434
2605#
23738
5735
22514
22514
22514
2251
22514
251
2514
22514
2251
22514
22514
2251
22514
22514
22514
2251
22514
2251
22514
22514
22514
22514
22514
22514
2251

49164
5002«

6888

47354
49678

4LB3ON
49904

68784

49264
5129

51784

5925
6021
6135
6385
67274

6892

6894

5040

5041+

4282%

4283

5020*
4570
5834

3088

6889

53484
5403
5531
5623
5731
5833
5931
6047
61564

5349
54184
5533
5630

5224

67514

5938
1
6172#
1
6779%

5356
5481
5544
5637
5740
5863
59524
6085
6189
5884
68084

6895

6897

6899

6900

6924

5042+«

5064*

5065

5074

4285

4435

4856

4907

4974

5035+
5354
5867

5065
5368
5916

5074
5387
5969

5485
6025

5507
6030

5526
6103

5547
6133

5550
6187

3180

3968

6890

5266
5392
5525
5611
5707

5178

5352
54804
5540
5634
5737
5839
5940
6075
6186
65334
6791

26924

26874

4916
50964

51314

5258
5385
5511
5598
5692
5804
59124

4459

48534

4B3H
50944

52914
5401
5528
5615
5725
5830
5928
6033
6142
6403
6738

5233
5382

44194

22774
2999

4B3SK
49934

SEQ 0165
52254

5359
5484
5556
56494
5749

52564

61N

5361
5487
5560
#
5753
5869
5968
6102
6195

68354

6846

5599
6381

5687

59654

6606

K 13
13-MAR-80 09:36 PAGE 3-8
CZDMIAO DMR-11 FUNCTIONAqungS MACY11 30A(1052)
13-MARCZDMIA.PT
CROSS REFERENCE TABLE == USER SYMBOLS
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
SLADP

3748

6318

23004
L2464

69374

42234

69184

23254
3535
4283

23144
23294

5190

5233

52004
5261

5356

5359

SEQ 0166

L 13
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-B0 09:36 PAGE 3-9
CZDMIA.P11
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS

L10037

027024

53804

L10040

027202

L10042
L10043
L10044
L10045
L10046
L10047
£10050
L10051
L10052
L10053
10054
L10055
L10056
L10057
L10060
L10061
L10062
L10063
L10064
L10065
L10066
L10067
L10070
L10071
L10072
L10073
(10074
£10075
L10076

030472
030210
030300
030374
030470
031100
031000
031076
031144
031706
031500
031704
031744
032472
032124
032304
032470
032674
033054
033760
033204
033322
033440
033616
033756
034454
036044
036270
036336

548,
55044
55204
55384
55628
5508
56284
56474
56554
5686
570K
57734
57794
5804
58284
58614
58944
5915
5068
6033
604 5#
60734
60974
61274
61544
6186
6380
6602
6687

L10100
£10101

036456
036530

6791
6846

68084
6859

L10103

037502

L10041 027512

L10077
£10102

036566

MAINT = 000400
MAINT1= 000010

MAINT2= 000004
MCLR = 040000
MDIAG = 020000
MICRO
002256
MMANAG 002302
MNTMDE 002300

MNTREC= 000010
MOOEM _ 031102

= 000043
NAKS = 000001
NESTPC 002370

NEWST
NEXT

020650
022526

NOBFR = 000004

NOXMEM 023512 G
NXM
= 000400

SEQ 0167

54178

54438

6738

6878

6918

24024
241%
2415#¢
23700
23714
25134
25354
2534M

24134
5604

5490

5499

5511

5525

S528

5531

5601

5611

5615

5623

5634

5637

564w

5689

5692

5701

5707

5725

5734

5807

5809

5833

5836

5839

5866

5925
5971
6061

5928
5974
6085

5931
5983
6102

5938
60004
6105

5940

59524

6108

6115

6189
6383
6608
66IM

6191
6385
6610

6195
6403
66254

6199
6409

62834
6412

65334

5533

5544

5556

5560

5737

5740

5749

5753

5774k

5869

5872

5875

58964

6132

6135

6142

61564

3323
3682

4537
3687
3688
3161

5529
4505

474

5690
4528

4529

3751%
4535

3816+
6596

3982
6681+

3991
6732+

4006
6785+

4012
6840+

4590

4765

55664

67514
¥

6924
3681
3158
3161

56514

24554
26174
25964
3430
4269
4484

5245

5278

5298

2977
3473*
4778
4643N

3022
3486+
4284

3071
3518

309
3548

3233%
3583

3742
24064

4421
5822

48354
5854

6304
5888

6347

6510

2414#

5487

5718

5759

3272+
3600%

3315*
3690+

3348*
3697+

.
3363

3939+

3404
4021%

3405%

3408+

Mm13
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-10
13-MAR-80 09:
CZDMIA.P11
CROSS REFERENCE TABLE == USER SYMBOLS

QUTFLG
OQUTISR
OUTRCV
QUTXMT

002350
023054 G
002330
002332

3965

SEQ 0168

4650

4756

4826+

4054+
4055+«

4057
4057

4810+
4798+

4822
4820

4248

4421

4887

6304

6322

6347

6176
6173

6193
6193

6239
6244

6252
6250

3877

3948

3950

3979

4828

5710

5723

5726

5826

6730+

6783«

6838+

6478

6493+

ROMADR 002404
ROMI
= 001000
ROMLOC 025421

5099+

5126+

RQI

4631
5704
6193

4653

O$APTS= 000000

= 000000
= 000000

0$8GNS= 000001
0SOU = 000001
OSERRT= 000000

000001

I
= 002000
PRIOO = 000000
PRIC1 = 000040
PRIO2 = 000100
PRIO3 = 000140
PRIO4 = 000
PRIOS = 000240

PRIO6
= 000
PRIO7 = 000340
PSTACK 002364
P1
036566
P2
036604
P3
036625
R

oo
oOe

PATCH
037632
PNT
= 001000
PRETIM= 000055

OS$POIN= 000001
OS$SETU= 000000
5425

4020

6510

= 000042

RBUF
002562
RCOUNT= 000044
RCV_
= 000004
RCVBUF
003630
RDI
= 000200
RDO
= 000200

RES
=01
RESFLG 002352
RESUME 002274

RETURN= 000207
REV1
025430
REV2
025432

RFLAG
002560
M= 000017

6477

6594+

5859

5892

4675

4681
5873

= 002000

= 000040

RRAM = 000014
RSEL4
035170
RSEL6
035172
RUN
= 100000

5750
6197

4670
5844
6400

5846
6406

N 13
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-11
CZDMIA.P1T
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS

SAVE

SECN

002336

= 004000

25734

3400

3413

3434

23974

SEQ 0169

SELO

= 002232

24988
3633«

2994
3634+

3070«
3637

3083
3641%

3158«
3643+

3161«
3644*

3175
4016%

3239«
4044

3262
4066

3403«
4075

3581*
4076

3626«
4480

3628+
4482

SEL2

002234

2501
4297%
5726
6071

2992
4298%
5754
6086

3012
4557
5817
6095«

3336
4737
5826+
6116

3346
4743
5849
6125«

3582+«
4796
5859«
6143

3590
4825
5883
6152«

3599«
4828+
5892«
6204

3627+
4900
5941
6209

4017+
5421
5984
6270%

4044
5710«
6034
6414

4066
5713
6043+
6419

SELS

002236

24954
4075
5723%
6062
6477%

3415«
4604x
5514
3250
4141
4580%
5854

3479+
4610*
6220
3321
6147
4588+
5888

4045
4614%
6239
3323

4067
4775
6427
3341
4306%
4745
5989

4141
G777%
6443
3418«
4524%
4747
6039

4301+
4786*

4302%
4791x

4546
479%x

4579«
4799

002240

3241
4597%
5493
3243«
4067
4560%
5822

6147
4781%

SEL6

2503
4596
4902
2505
4045
4553«
5759

4525%
4767
6067

4528%
4774
6091

4529%
4805
6121

4537«
4817
6148

4540
4904
6225

6389

6452

6486

6489+

4337
4275%
4267
3946%

42B0*
42744
4555

4968
4667

4678

4680*

23764
23954

3633
2979+

3634
2980+

3641
3024~

3643
3073«

3074+

3096*

3144*

3145

3187%

3229«

3230%

3273

SVCGBL= 000000

2209
4145

22204
4152

2251
4156

2277
4160

2300
4223

2325
4246

2687
4419

2692
4459

4042
4477

4061
4735

4070
4835

4102
4853

4139
4916

SVCINS= 000001

22094

2217&

2251

2277

2300

2325

2687

2692

2996

2999

3003

SFLAG
002342
SFPTBL 002224 G
SKIP
002344
SPEED
002224
STARES 00227
STARST 020644
START
002272
STLU = 010000
STREC
= 000200
STUP = 000400
SUBRPC 002366

24964
4587«
4811
24978

3638+
4550*%
5718

25754
23254
25764
23274
257K
4265
25314
23724
24074

5293

3020

5420

3085
3343

5653

3088

5777

3091
3475

6878

3177
3546

6305*%
4593%
5946

6918

3180
3585

69374

3183
3587

3235
3589

3423«

3247
3592

3425«

3267
3597

3481+

3317
3742

3818
4056
4097
4147
4266

3952
4057
4099
4148
4267

3959
4058
4105
4149
4268

3968
4064
4112
4153
4269

3973
4
4119
4154
4270

3995
4067
4126
4157
427

4010
4068
4133
4158
4285

4020
4073
4135
4163

4043
4075
4140
4164
4292

4044
4080
4141
4248
4313

4045
4085
4142
4262
4330

4924
5116

4926
5118

4967
5129

4974
5131

4980
5181

4990
5184

4993
51

5072
5198

5074
5200

5225

5086
5229

5374

5378

5254
5313

5256
5315

5258

5261
5352

5356

5272
5359

5287
5361

5289
365

291
5372

3595

301

3332
3752

3629+

3014

3333
3817

4046
4
4143
4
4331

4047
4093
4146
4265
4399

5233
5305
380

5239

B 14

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-12
CZDMIA.PN
13-MAR-80
09:34
CROSS REFERENCE TABLE == USER SYMBOLS

SvCsuB= 000001
SVCTAG= 000001

6751
SVCTST= 000001

SWOC

SwWO01

= 000001

= 000002

Sw02
Sw03
SW04
Sw05
SW06
SW07
Sw08
Sw09
SW10
SW11
swi2

=
=
=
=

SW14

= 040000

SW13

= 000004
= 000010

= 000020

= 000040

= 000100
= 000200

= 000400
001000
002000
004000
010000

= 020000

SW15 = 100000
S$LSYM= 010000

5965

T
=
TBUF
TCOUNT=
TEMP
TFLAG
THRESH=
THIL
=

40994
48584
54174
57734
61544

414694

41584

55044
58284
65334

58944
66994

037502

000045
002512
000044
002334
002510
000013
000060

TH2L = 000062
TH3L
= 000064
TH4L
= 000066
TIMER = 000012
TOLONG= 000020
TOUT
= 000002

5980
5980

6220

6387«

6482

2129#

41644

51314
55624
64
67514

C 14
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-13
CZDMIA.P1
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS
TSEL4
035206
TSEL6
035210
T$ARGC= 000002

T$CODE= 000032
TSERRN= 000023

TSEXCP= 000000
T$FLAG= 000040

TSGMAN=
TSHILI=
TSLAST=
TSLOLI=
T$LSYM=

000000
000005
000001
000001
010000

TSLTNO= 000023
TSNEST= 177777

T$NSO
TENS1

000005

T$NS2 = 000002

64074
64

6427
6432
30204
40754
41424
50744
54334
68824
30144
47514
52724
57564
60364

40444

SEQ 0171

40564

D 14
CZDMIAQ DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-14
13-MAR-80 09:
CZDMIA.PI
CROSS REFERENCE TABLE == USER SYMBOLS
5729

T$PTNU= 000000

T$SAVL= 177777
T$SEGL= 177777

T$SUBN= 000000

TSTAGL= 177777

TSTAGN= 010104

TSTEMP= 000000

TSTEST= 000023

T$TSTM= 177777

60754

48854

54814
58634

5731a
6097

5773
60994

58014
6127

5828
61294

58304
6154

51784
55954
60474

SEQ 0172
5861

58634

5894

60214

60474

E 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-15
CZDMIA.P11
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS

6156
6261
6403
6525
6846

T$TSTS= 000001

T$$AUT=
T$SCLE=
T$SDU =
T$SHAR=
T$$SHW =
T$SINI=
TSSMSG=

49664

65884

010015
010016
010022
010102
010000
010014
010056

112.3
112.4
112.5
113"
T4
115
16

117
118
119
12
12.1

12:2
12.3
13

6216
6371

6222
6374

6227
6375

6625

6687

6699

6738

6235
6380
6473
6751

56824

58004

59124

59654

60204

57774

T$$SW = 010001
T$$TES= 010107

023602
032474
032676
033056
033056
033206

53484
67794

6206
6347

4149

TESPRO= 010013
T$$SOF= 010103
T$$SRV= 010024
T$8SUB= 010072

T
110
11
112
112.1
112.2

619
6304
6416
6602

SEQ 0173

G
6
G
G

03332
033442
033620
033762 6
034456 6
036166 6
036272 6
036340 G
036410 6
036460 G
024120 G
024120
024276

024720
(025434 G

025566 G

F 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-16
CZDMIA.P1T
13-MAR-80 09:34
CROSS REFERENCE TABLE == USER SYMBOLS
14.1
14.2
15
15.1
15.2
16
76.1
16.2

16.3
16.4
17
17.1
17.2
T8
18.1
18.2
19

9.1
19.2

9.3
UAM
=
UPDATE=
WAIT1
WAITZ2

WAIT3

WAIT4
WMAINT

025566
025714
026644 G
026644
027026
030056 G
030056
030212

030302
030376
030636 G
030636
031002
031260 G
031260
031502
031762 G

031762
032126

032306
000200 G
000011
002310
002312
002314
002316
002306

WMODEM= 000005

WTYPE
002252
X
= 000046

XMTBUF
003230
X$ALWA= 000000
X$FALS= 000040

X$OFF S= 000400
X$TRUE= 000020

52254
52584
2277

5349#
53824
2277
54814
55064
55224
55404
2277
55954
56304
2277
56834
57314
2277
58014
58304

3971x
4394~

2429

25114
24584

26628
22094
22094

22094
22094

011262

32284

$BUFFS
$CCITT
$CLRQI
SCNTIN

013204
002410
010702
011516

37384
26234
30684
2%&2#

$OMRIN

012064

$MSCLR

SROMO

011064

012742

58004

3954%
3675

$BASEI

014136
013062
000001
000001

56824

25604
25464

34684

$INOUT
$LOOP
$LSTIN=
$LSTTA=

55934

4350~
3170

012274

012406
012560

54804

2987
3078

$BACC

SERROR
SHALT

53484

58634
23434
24334
25554
2557#

25594

3954

3413

4287~
5251

3798x

5704

4355+~

4397
4499

6589
5608

5632

5934

5284
3824«

5311
3829+

3856

3887

3888

3949

3951

3980

5750

5880

5936

5975

5980

6082

6106

6112

5264

5485
6025

5507
6030

5526
6103

5552
6133

5599
6187

5687
6381

5735

3586
5738

4637

5837

5497
5870

5622
5929

5644
5972

6058

6190

6193

6197

5805

5814

5834

33944

5231

6598
3779
3246
5488
3691

4353~

3692

6139

35174
3578%
5808
39364
3672#
22154
22164
31434
5802
6685
3625#

SEQ 0174

6683
3858
3270
5509
5357

6281
4019
5950
6616
5557

6529
5234
5996
6689

5607

5632

5699

5747

5923

5926

5934

5402

5498

5518

5532

5645

5727

5764

5179
5831

5188
5864

5383
6049

5482
6077

5523
6100

5542
6130

6184

5684
6378

5732
6600

6736

4976

6789
5015

G 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 3-17
CZDMIA.P
13-MAR=-80 09: 34
CROSS REFERENCE TABLE == USER SYMBOLS
SWAIT

01Ce%6

= 037744

SEQ 0175

29754
2;83

3234
gzg?

3266
5752

3316
5816

3331
5848

3407
5882

3474
5939

3584
5982

3588
6032

5492
6060

5513
6084

5614
6114

5636
6141

22034
4862¢

26428
51414

26504
5181

2657#
3190

26628
5229

26644
5233

2669
5261

2999
5266

3088
5352

3180
5356

35574
5359

36054
5361

3968
5372

56594
5804
5931

5686
5807
5938

5689
5809
5940

5692
5833
5968

5701
5836
5971

5707
5839
5974

5725
5866
5983

5734
5869
6033

5737
5872
6061

5740
5875
6085

5753
5925
6105

57824
5928
6108

6409

6412

6602

6608

6610

6687

6738

6791

6846

69264

5749
5915
6102
6
69304

H 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 4
CZDMIA.P1T
13-MAR-80 09:34
CROSS REFERENCE TABLE == MACRO NAMES
BACCIR
BACCIT

BASEIN

28924
29184

27954

5844
5704

5231

5873
5750

5264

SEQ 0176

5975
5846

6082
5880

6106
5936

6139
5980

6193
6112

6197

6025
4267
3267

6030
4269
3585

6103

6133

6187

6381

6606

5599

5687

5735

5805

5814

5834

3587

3589

6203

4061

4070

4102

4139

4145

4152

4156

4160

5293

5420

5653

5777

5258
6047

5349
6075

5382
6099

5481
6129

5506

5522

5540

5595

5630

5480

5593

5682

5800

5912

5965

6020

6172

5354

5368

5387

5485

5507

5526

’

BCOMPL
BERROR
BGNAU
BGNAUT
BGNCLN

5867
15#
19
23~
31a
398

5916
22094
2209%
22094
22094
22094

4419
4459

BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG

554
66x
7R
854
984

22094
22094
22098
22094
22094

6878
2300
4246
2212
4042

BGNPTA
BGNRPT
BGNSEG

1148
1648
1524

2209#
22094
22094

BGNSRV
BGNSUB

1934
2014
5683
2258
2364
6301
2668
2704
2748

22094
2209%
5731
22094
22094
6588
22094
22094
22094

4477
4967
5801
2325
4885
6677
4271
3235
2996

4735
4993
5830

4835
5096
5863

4916
5225
6021

4966
6727
4286
3317
3085

5178
6779

5224
6835

5348

3332
3177

3409
3959

3475

3691
6689
22094
5179
5913
22094

4637
6734

4976
6740

5015
6748

5019
6787

5101
6793

5552
6801

5557
6842

6281
6848

6399
6856

6405

6529

6598

6616

CLOCK

27354
6683
2828
2779
5864
2864

5188
5966

5226
6023

5259
6049

5350
6077

5383
6100

5482
6130

5523
6184

5542
6378

5596
6600

5684
6685

5732
6736

5802
6789

5831
6844

CLRVEC

2968

22094

3817

4262

4432

4911

6307

6371

6520

3014
3224

22094
22094

5870

5929

5972

6058

6190

6384

5699

5747

5923

5926

5934

BGNDU

BGNSET
BGNSF T

BGNSW
BGNTST
BNCOMP
BNERRO
BREAK
BRESET

CALL

CKLOOP
CLEAR
CLOSE

1614
182#

278#

2924

22094
22094

22094

5969
4265
3247

6918

4855

CNTRIN

28234

DESCRI
DEVTYP
DISPAT
DISPLA

3174
3618
3468
3604

22094
2209
22094
22094

2692
2687
2277

3764

22094

4436

COMMEN
DELAY

DMRIN

2844

DODU
DORPT
ENDAU
ENDAUT
ENDCLN

3804
3854
3894
4018
4134

DOCLN

ENDCOM

ENDDU
ENDHRD

4258

4alh
4538

5488

5357

5509

2999

5370

22094
22094
22094
22094
2209%

4439
4461

22094
22094

4858
6884

22094

4435

5529

5561

5690

3088

3180

3968

5390

5399

5632

4908

4907

5738

5837

I 14

CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 4=1
CZDMIA.PN
13-MAR-80 09:34
CROSS REFERENCE TABLE == MACRO NAMES

ENDHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDPTA
ENDRPT
ENDSEG

G654
4758
4878
5004
5124
ggg:

ENDSRV
ENDSUB

5804
S96#
5729

ENDTST

6248
6533

ERRDF

7144
4751

ENDSET
ENDSF T

5614

5554
5684

22094
22094
2209%
22094
22094
22094
22094
22094

2314
4399
6935
4058
4229

4068

4099

4135

4143

4149

4154

4158

4164

5315

5443

5655

5779

4730
4990
5828

4830
5094
5861

4839
5129
5894

4926
5256
6045

5289
6073

5380
6097

5617
6127

5504
6154

5520

5538

5562

5628

5647

2209%
6625

4913
6699

5131
6751

5200
6808

5291
6859

5418

5566

5649

5774

5896

5952

6000

6156

6283

2209%
4762

3003
4771

3014
4802

3091
4807

3183
4813

3338
4921

3343
5072

3592
5084

3597
5116

3973
5198

3995
5239

4010
5254

4505
5272

4740
5287

22094
22094

22094
22094
5773

6922

ERRHRD

5365
5824
6118
6423
7184

5378
5851
6123
6429
22094

ERRSF
ERRSOF
ERRTBL
ESCAPE

7268
7304
7348
7640

22094
2209
22094
22094

5181

5560

5598

5601

ERROR

7228

5737
5925
6115
EXIT

FEQUAL

7714

8104

GETBYT
GETPRI
GE TWOR

8244
8344
8294

GMANID

8484

GMANIA
GMANIL

839
8594

5415
5856
6145
6434

5740
5928
61 Bg

5715
6036
6241

5720
6041
6246

5756
6064
6261

5761
6069
6264

5770
6088
6374

5819
6093
6416

5190

5229

5233

5261

5266

5352

5356

5359

5361

5372

5374

5385

5611

5615

5637

5686

5707

5725

6881
6920

22094
22094
22094

22094
22094

22094

2209%

2251

IOSETU
IOSTAR

9668
9748

22094
22094

LASTAD

1147#

20004

5642
5992
6235

22094

9548

MSBYTE

5620
5986
6227
6525

22094

HEADER

1162¢
11664

5536
5948
6222
6473

5753
5938
6142

4285
6880
6882

MANUAL
MEMORY

5516
5943
6216
6450

5749
5931
6135

22094
22094
22094

9824

5502
5890
6206
6445

3546

8684
8748
9034

KT11

5495
5885
6150
6439

22094

GPHARD
GPRMA
GPRMD
GPRML

SEQ 0177

22094

2209#

6937

22094

3818
22514

22094
22094

5804
5940
6186

5623

5807
5968
6189

5634

5809
5971
6191

5833
5974
6195

5836
5983
6199

5689

5839
6033
6380

5692

5866
6061
6383

5701

5869
6085
6385

5872
6102
6403

5875
6105
6409

5734

5915
6108
6412

J 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 4=2
CZDMIA.P1T
13-MAR-80 09:34
CROSS REFERENCE TABLE == MACRO NAMES
MSCHEC
MECNTO
MSCOUN

21184
2182#
2066#
40734
L1668

2209#
22094
2209#
40754
L1478

68804
30114
4OBOX
L1468F

68814
30204
4OBSH
L153K

68824
33334
40BBH
L157F

18674
2029#
L4398

22094
22094
LL61H

22514
23144
L730F

2687#
23294
LB30N

21704
20744
44614

22094
22094
4L730M

g;gg:

MSDATA
MSDECR

MSDEFA
MSENDE

MSERRI

MSESCA

MSESCS

32914
5729k
6156#

33154
ST734
62834

1649%

ggggz

53154
5773k
62834

53B0F
5776
65334

22094

53004

S53B0#
57748
65334

68804
23144
LB3ON

54174
S779%
66254
30034

53054

54174
S7T7TOM
66254

68814
23294
LB3M

5418
5828
669
30144

53094

69204
40434
40934
41638
53134

4044H
40974
42928
54214

4LO4SH
4105#
4313M
54228

40468
41128
4BS6N
54258

4047H
41198
4924
54294

4OS6F
41268
4974k
54334

4OS7H
41334
49BON
S437

4O064LH
L1408
5074
5441

4O66K
4141K
S0864
5654k

4O67H
41428
51184
57784

26924
40584
4B3OM

4068#
4BSBN

40994
49134

55384
5952¢
6884

41498
50944

55624
60004
6922

4L154M
51294

55664
60454
69354

4L1SBH
51314

56284
60734

4L164F
S2004

5647
60974

42298
52564

43994
52894

69204
4068#
49134

55204
SBO6H
68594

41438
49908

68824
40584
4LBSBA

55044
5894
680B¥

41354
49264

4099
4926

41354
49904

41438
50944

41498
51294

4154
51314

41588
52004

41648
52564

4399
S289%

44394
52914

54184
58284
669

54438
58614
67514

54434
58614
67514

S5044
S5894H
6BOBH

55204
58964
6BSOH
4813
S5164
59434
62164

30914

31834

L7608
32874
58194
60934

L7518
53654
58244
61184

47628
53784
58514
61%3‘

47718
54154
58564
61454

4BO2M
54954
58854
61504

4BO7AM
55024
58904
62064

2006#

2209#

51814

51904

52294

52334

23894
35604
S737H
59254
61154

20104

23804
35604
37374
39254

53924
55984
57404
59284
61324
66084

54014
56014
57494
59314
2238:

54034
56114
57534
59384
61420

5484m
56154
5B04H
59404
61864

53924
55984
5740k
59284

51814

54014
56014
57494
59314

51904

52294

2209#

SEQ 0178

33384

52614

S5384
59524
6884A

55628
60004
692284

55664
60454
69354

56284
60734

33434

35464

35924

35974

4921
S5364
59484
62;%:
52664

50724
56204
59864
62274
53524

S487H
56234
SBO7H
59684
61894

54904
5634
S809#
59714
61914

5499
56374
58334
5974
61954

S5114
56864
58364
59834
61994

52334

S261#

52664

53524

54034
56114
57534
59384

S54B4H
56154
5804
59404

S4B7H
56234
58074
S9684

S64L7M
60974

39734

50844
56428
59924
62358

51164
57154
60364
62418

51984
5720
60414
6246H

53564

S35

S3614

55254
56894
58394
60334
63804
53564

55284
56924
58664
60614
63834
53594

56498
612784

56554
61544

56498
61274

56554
61548

5720
61564

39954

40104

45054

52304
57564
6064
62614
S372#

5254
57614
60694
62648
S3744

52724
57704
60884
63744
53854

55314
57014
58694
60854
63854

55334
57074
58724
6102¢
64034

5544
57254
58754
61054
64004

55564
57344
59154
61084
64124

S3614

S372#

S374#

53854

54904
56344
S809#
59714

54994
S6374
58334
5974

55114
56864
58364
59834

55254
5689
58394
60334

55284
56924
58664
60614

55314
57014
58694
60854

55334
57078
58724
61024

5544M
57254
58754
2283‘

55564
5734k
59154
61084

MSEXCP
MSEXIT
MSEXSE
MSEXTJ
MSGEN

21014
20144
20224
2018¢
20384

22094
22094
22094
22094
22094

68804

68814

6882¢

69204

22514

2277

23004

2314M

23254

23294

26878

26924

40428

40SBH

4061H

4068

4O70W

49268
52894
55064
56824
SB9GN
61544
68594
22094
22094

4
52914
55204

4
S3154
S
57314
59654
62834
69184

50964
53804
55664
S7778
60214
65884

51294
53824
559
S779%
60454
66254

6047#
66774

S1784
54184
56284
58014
6073#
669

S200
54208
56304
58284
60754
672784

5224
54434
56474
S8304
60974
67518

52254
54804
S6498
58614

63014
69224

50944
53494
5562#
5774
60204
65334
69374

S1314
54174
5958

59124
61564
68784

49678
52934
S522#
37294
59524
61728
#

49934
53484
35404
57734

52564
54814
56534
58634
61274

MSGENB
MSGETS

49168
22584
55044
56554
58944
61294
68354
1938#
20354

23144

2329#

4058

40684

40994

41354

2143#

41454

67794

K 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 4=3
CZDMIA.PIT
13-MAR-B0 09:34
CROSS REFERENCE TABLE == MACRO NAMES

MSGETT

2914
57294
6

18774

3389
60#

39254
61154

53154
S7738

5380
S774%

22094

51814

53924
55984

59284
6132¢
66084

54174
S7T7
51904

54014

54034

5931
61354
66104

59384
61420

54184
ggggz
5229

5484w

54438
58614
52334

26874
L4T7R

26924
4735K

40428
4B3SH

26874

26924

29964

29994

22514

22774

23004

23254

Lo65#
49908

21984
52964
5
54378
55228
6014

37564
38334
59154

60974
61544
62614
6412

MSGNLS
MSGNSU
MSGNTA

40854
L1468

40884
L1478

31834
35924
L0LSH
40934
L14BE

40974
4149

42678

L26BA

L26OM

4270

49934

50724

50744

5084#

S086H

50944

5761
58364
59254
60214
61564
62644
GLIGK
66104
69184

52254
53054
53854
5443
55284
56154
36924
S7704
58394
59284

6102%

5229

N
S4BI1X
55314
56204
57014
S773
58514
59314

61054

52334
53134
S22
54
5533w
56234
57074
S774m
58564
384
60414

61084

61864
62834
64238
66254
69204

642w
6687A
69224

69374

6189

61914
63074

22094
2209#

49674

49934

S096#

18904

22004

23144

2320

4OSBN

44614
33154
57734

32474
37424
4L047K

19134
18984

6834

32354
35974
4L046H

41538
4271

52004
53004
53824
54418
55254
56114

57314

4L730M
53804
S7748

58014

58304

58634

4B30W
S417K
S7794

4B39F
5418
Zgggz

22004

4BBSH

4966#

51784

22094

22514

MSGNTE

18944

MSHAPT

1739%

MSINCR

20264
33384

22094
33434

22124
35464

23004
35928

40734

40754

4080#

4085¢

22094

55284

53614

23254
L45OF

22094

&
L143F

53504

60334
63804

20494

40104
40754
L1628

53564

59834
61994

MSGNIN

31804
35894
L044R

55254

5352

S974m
61954

23004
L4198

31774
35874

55114
56864

59714
61914
68464

22774
L2468

30914
35854
40204

56284
60734

5968
6189

22514
42238

3088¢

SS664
60454

59404
6186#

58044

2212¢
L1600

69374

55624
60004

54994

22094
41 ;g:

6918¢

S266#

55384
59524
68844

5490
5634

19024
4152

52614

55204
58964

S54B7H

MSGNGB

57774

5504
58(9)4#
68084

SEQ 0179

4BSBA
54434
58614

5230
53154
56014
54878
56284
57154
S7784
58614
59404
60454

61154

61954
63228
64398
67384
52254

60214

4068H

49134
55044
58944

68084

5254
¥
54038
54
35384
S630#
5720
S7794#

32674
37524
LOSOH

1054
4L154M

41128
41S7R

33324
38184
40SBA

S3494

62
6374#
64734
68084
S3824

60614
63834

60854
63854

6102#
64034

61054
64098

61084
64124

4061
4BS3H

40704
49164

4102¢
52934

41398
54204

41454
56534

30114

30144

41334
4164

58664

30034

33334
3952
4064H

33384
39594
&

33434

51294

51314

51814

51184

612784

53854

43304

31164

61234

S374m

43138

52584
53564
54178
5499
55444
S6374
5729
58044
58694
59524

62034
637184
640K
67914

55444

40678
41354
424BF
43318

S2564
53524
S4158
4954
55404

52614
53594
SL18F
55024
55564
S64oM
S731a
58074
58724
6069%

6129

56554
61544

55334

41264
41638

42920

61994
63478
644SH
67514

53724

56498
61274

55314

L1198
41SBR

59434
6047#

52584

33174
38174
4OS7H

42BSK

5725
58014
5
S9484
60614

61184

58364

S647M
60974

5266
53614
SL21M
55044
SS604
S647H
5734
58754
59714
60734

61328

5272
53654
54228
55064
55624
56494
S7378
58194
58854
59744
60754

61354

1
63754
65104
&4

62228
63804
65204
6859

62274

52874
S3724
5425
SS5114
55664
S7408
58244
59834
60854

61428

30204

55564

30854

34094
39734
&

41408
42628
4399

34754
9954
40734

51844

51904

41414
4
4424

52894
5374
5420
S5164
55954
56554
57494
5828¢

57534
5830

59864

59924

61454

52914
53784
54334
55204
55984

61504

65254

62354
63854
65264

62418
64034
65334
68814

6246
6409
66024
68824

60474

60754

60994

61294

S4BIM

SS064

55224

55404

55954

S6304

4099%

41354

41438

41498

4154F

41SBF

41648

43998

44398

4926
SS20
58964

49904
55384
59524

50944
55624
60004

S129%4
55664
6C4SH

51314
56284
60734

S200#
S647H
60974

52564
56498
61274

52894
56554
6154

52914
57294
61564

52244

53484

54804

55934

56824

58004

S912#

S9654

60204

61724

23254
3597

29964
37426

30034
37524

30114
38174

30144
38184

30204
3952#

30854
39504

30914
2973#

3177#
39954

3333
40204

40884

40934

4097#

4099%

4102¢

41054

41128

41194

41264

31834
40104
40684
41334

41354

L 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 4=4
CZDMIA.P1
13-MAR-80 09:34
CROSS REFERENCE TABLE == MACRO NAMES

L1398
L1588
63308
L7518

GNTH

30964
22334
2309
33854
6414
5522#

56554
376408

58754

59654

L1408
41604
L3314
47628

L9158

50964
5239
53134
5389
54438
55254
56014
56824
5749
38194
58854

L1618
L1638
L3998
4771H

49168

51164
5254
53154
53924
5480F
55284
56114

5753
58244

59714

L1428
L164F
LL19F
LBOK

L9214

51184
52564
53484
54014
54BN
55314
56154

L143R
L2238
4L421H
LBO7A

L14SH
L24OH
4L432K
4BI3M

5129%
52584
53494
54034
5484
55334
56204

51314
52614
53504
54154
S4B7A

4924

S7564
58284
58944

S76\M
58304

734
61324

60754
61354

63754

5974k

59834

4966

56234
56924
S770M
58334
39124

S986#

60614
61234

61274

60694
61294

63478

63714

63744

MSIOSE

CEW
17004

67278
22094

67388

67518

67798

6794

M$POP

18814

22094

23144

23204

4OSBA

40684

61954
64454

MSPRIN

MSPUSH

64734

496K

51784
S2664
S3564
S4178
S490M
55384
56284
57014
S7738
58364
59154

59924

60854
61428

61458

63834

63854

62208

62274

62358

65104

65204

65254

L14TH
42%%:
44
4LB53F

4O74M

S1814
5272
53594
S4184
S4954

S7078
S774
S8394
59254

L14BE
L264N

41498
L266M

41528
L26BN

41S3F
42TON

4154
4285

41568
42928

41578
43134

4BSSH
49BOX

4BSON
49904

4BSBH
49934

4B8SH
50724

4BB7N
5074

4907
50844

49084
50864

58614
59384

58634
59404

51844
52874
53614
S4208
5499
3544k
56348
S7154
5777
58514
59284

60204

51904
5289
53654
5421
55024
55564
5637
5720
57784
58564
59314

60214

51984
52914
53724
54228
55044
55604
56428
57254

60334

5
5093%#
5374
5425
55064
55624
S647H

36#

3224K
50964
53784
54298
55114
55664
o
57314
58014

59434

60454

63044

63074

63224

66254

66774

66874

6150

6099%
61564

6102¢
61724

61054
61864

61084
6189%

64034

6409F

6412¢

64LI6H

6423

64294

62468

65264

65334

6261
65884

6264
6602¢

62834

63014

66084

66TON

68354

68464

68594

68784

69184

4099

L1354

L143K

L1498

58694
59484

52294
53054
53824
5437#
55204
55954
56544
57374
58074
58724
59524

60414

60974
6154

6241

5225
53004
53804
543384
55164
55934
56534

61154
61914

60478

61184
61954
6434

50944
55624
60004

L154M

4158

41648

4220

43994

55664
60454

56284
60734

5647
6097#

56498
61274

56554
61544

32914
S729K

53154
S7738

53B0F
S774M

54174
S779

54184
gggg:

54438
58614

55044
58944

5S204
58964

9904
S5384
gggzz

(6364
40734
L1468

22094
40754
L1478

30114
4080#
L14BH

30204
4LOBSH
4153F

33334
40BBH
L157R

40434
40934
L1638

4044H
40978
42928

4L04SH
4105H
43138

4046F
41128
4BSON

4047
4119
4924

405X
4126
4974M

4OSTH
41334
49BON

4LOGLH
41408
SO74M

4LO66H
41418
SO86#

4O67H
41428
51184

40704

41024

41398

41458

41528

41564

41608

42234

16314

LoLON

36534

MSPUT

62164

L146F
4248
44L35K
4835

SEQ 0180

6099
19728
40674
41428

2964

22004

LLT1ON

56824

22094
40734
L1668

9804

53004

22124

445

56834

30114

LO75K
Q147K

23004

lsolsozz

57314

30204

40BO#
4148

50864

53094

23254

L7354

40424

4B35H

40614

4BS3H

4BBSH

4916

4966

4967

49934

SOO6H

51784

57784

gg%l(’):

57774

58004

58014

58304

58634

5912

59654

6020

60214

60478

60754

4085
4L153F

4LOBBH
41578

37428

40434

4044H

40L5H

404EX

40478

40564

4OSPH

4064H

4LOGGH

52964

53004

65884
33334

MSPUT1

19814
40678
L142K
4or4m

22094
40734
L1468
49BN

30114
LO75H
L1478
50744

30204
4080F
L1488
50864

33334
4OBSH
41538
51184

37426
40884
4157
S1844

MSRADI

2077#

2209

68804

68814

68824

69204

40934
41634

40434
4093¢
41638
52964

40974
42928

4044#
40974
42928
S300#

41054
43138

4045K
41054
43138
53054

41128
43308

40468
41128
4330
S3094

41198
43314

4047H
4119F
43314
S3134

41264
4421M

40S6H
41268
44O1H
54214

41338
4BS6N

4057
41338
4BSOH
SL228

41408
4BB7A

40GLR
41408
4LBB7A
54254

41414
4924#

54294

406N
41414
494N
5409#

M 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 4=5
CZDMIA.P1
13-MAR-80 09:
CROSS REFERENCE TABLE == MACRO NAMES
MSRBRO
MSRNRO
MSSETS

MSSTAR
MSSVC

19524

42854

23004
La77n
53484
57314
63014

23254

g? SH

SEQ 0181

4042#
48354
53824
58004

42234
52244
56304
60754

3003
37524
40574

MSTLAB

63834
65254

N 14
CZDMIAO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE 4=6
CZDMIA.P1
13-MAR-80 09:34
CROSS REFERENCE TABLE == MACRO NAMES

35924

L046F

3597h

LOL7H
409
L1538
L3308

L1698
G3130
2802#

2807#

21904
32914

563384
35204
5984

53784

37534
58304
5

59924
61504

62614

64128

MSWORD

22094

66084
1994#
40104
32544

57614

60654
ggg;ol

29964

37426

63748

SHUTDN

SLASH

STARS
SvC
WAIT
XFER

XFERF

gg;gl

14248

14384
14524
27504
5492
16128

16764

4019

55044
55604
56478

55624
56494

55114
55664

55164

S809#
58754
59714

58194
58854
59744

55334
56234

54904
55384
S6304

54954
55404
5634

5499
5544
5637

55024
SSS56#
564N

58014
S
59484

5804
586
59524

58074
58724

576\
59254

60214
61564

62834

6L23N

56924

S770M
38394
59284

60334
61024
1

63044

642X

57014

57738
58514
59314

6105#

6189%%

63074

GL3LN

53924

57074

5774w
58564
59384

54014

S7154

57784
58614
59404

54034

S7204

S779%
S8634
59434

S4154

57254

S4174

5729

60414
61084

60454
61154

60474
61184

60614
61234

61274

6322#

63718

63748

6375#

61914

61954

GL3W

6LLSH

61998

64508

62064

62164

65104

684

22514
47408
5287

22774
4751
53654

30034
47628
53784

30144
4771
54154

30914
4BOK
54954

31834
48074
55024

33384
4B13
55164

60934

61184

61234

61454

61504

6439

62064

644SH

62168

62228

4044

4045

4046

4047

58194

GL16K

4080
414
5309

22094
22094
2209%
22094

42924
4771k
4974H
5184w
52894
5374#

4878
364
56284

4075
4147
5305

14034
14084
14134
1418¢

4924N
51314
52724
53654

4285
47628
L9678
51814
32874
53724

49114
51164
5258
53564

4073
4146
5300

READEF
RFLAGS
SETPRI
SETVEC

4270
47S1H

4LBSBH
50844
52334
53134

2228

2209#
2209#
22094

L2068
4740
150933:
1
5266
53614

L2066
4SOSH
49134
51184
52614
53504

22094

1279#
13194
1359#

40934

L264A
4LLE1A

11764

PRINTF
PRINTS
PRINTX

40884

42628
LG39M
49084
50964
52564
53524

POINTE

22094

40854

L24BA
L436K
4907H4
50944
5254
53494

54814
55314
5620

3011

58244

64238

3020

58514

3333

S8S64

6434H

4043

4085
4153
5313

4088
4157
5421

4093
4163
5422

4264

4266

4268

4270

3752
3742

3952
4330

4020
4331

4248
4421

4856

58854

4097
4292
5425

58904

4105
4313
5429

59434

64504

33434
49214

59484

4112
4974
5433

4119
4980
5437

6304

634

3331

3407

35464

4080

L164K
LL35K
4BB7H
5086
S2304
S3154

53894

33434

40754

L1638
4432

53854

33384

40434

L157F
4399

33824

33334

4020

Q156K
L3314

54434
55284
56154

57704

31834

40104

40734

5441
55254
56114

2209#
45054
5272M

3177#

39954

LO6BH

54378
5522
56014

GLIEN

30914

39734

4LO67H

51984
52964

64N

39594

40G6H

4LBSSH
50724
52254
53054

61544

30854

L0GLH

4BI3N
49934
52004
53004

60974

30204

39524

4L0SBE
G158
L42TR
4LBSON
5074#
52294
53004

57564
58334
9154

30144

38184

4OS7H

1682#
1239%

30114

38174

LO56H

MSXFER
PRINTB

30034

37524

54184

54214

54224

57314

5734

60694
6129%

[4
61324

60754
61354

63834

63854

62228

65204

68554
3546
50724
56204

59864

62278

65254

4056

62278

65254

57374

623584

4044

56554
57454

59834

59864

61420

61454

64094

58244

62418

65334

3592#
5084
5642¢

35974
51164
57154

39734
51984
5720

62358

6241

59904

4057

68814

4064

40454

57408

65264

60414

58264

646N

66024
39954
52394
S756#4

60644

624L6H

62614

4066

4067

6882¢

69204

4126
5074
5441

4133
5086
5654

4140
5118
5778

4141
5184
6375

4142
5296
6526

5645

5727

5764

5308

5950

4924

5234

5267

5360

5373

6322
4887

5402

5498

551

22094

22094
22084
3234
282(7)
22094

22094

2209
3246
5513

3266

5614

3270

5622

3316

5636

3327

5644

5706

5724

3428

5752

3474

5816

5848

19214

'
®

METSTL

SEQ 0182

5882

3586

5939

3588

5982

B 15
CZDMIAO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
13-MAR-80 09:36 PAGE
4=7
CZDMIA.PT
13-MAR-80 09:
CROSS REFERENCE TABLE == MACRO NAMES
XFERT

16204

22054

. ABS.

037744

000

ERRORS DETECTED:

CZDMIA.BIN,CZDMIA.SEQ/CRF
/NL : TOC=SVC 34R.MLB, CZDMIA.P11

RUN-TIME: 118 144 13 SECONDS

RUN-TIME RATIO: 5077/277=1.8
CORE USED:
17K
(33 PAGES)

CEQ 0183