Digital PDFs

AH-F832D-MC

October 1981

210 pages

Original

111MB

view download

OCR Version

162MB

view download

Document:	CZDMID0 DMR-11 DMR-11 FCTNL DIAG OCT 1981 bw
Order Number:	AH-F832D-MC
Revision:	000
Pages:	210
Original Filename:	CZDMID0__DMR-11__DMR-11_FCTNL_DIAG__AH-F832D-MC__OCT_1981_gray.pdf

OCR Text

DMR-11

FCTNL DIAG

CZDMIDO

AH-FB32D-MC

FICHE 1 OF 2

oot isL

DHR 11

DMR-11

FCTNL DIAG

¢ CZDIDO

AH-FB832D-MC

FICHE 2 OF 2 waoe v usa
COPYRIGH T®

ERi)

D ok

D o

29-JUL-81
O DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
PROGRAM DOCUMENT
29-JuL=-81 11:32

VOO NS AW
=OVONOTNS
W=

—

c‘

12:42

1
PAGE 2

SEQ 0001

NLIST TOC
.REM a

IDENTIFICATION
PRODUCT

CODE:

AC=F830D-MC
ZDMIDO

PRODUCT NAME
:

DMR-11

FCTNL DIAG

PRODUCT DATE:

OCTOBER 1981

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

MIKE O'CONNOR

20
THE

INFORMATION IN THIS DOCUMENT

SUBJECT

CHANGE WITHOUT

NOTICE
AND
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
EQUIPMENT CORPORATION.
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR iN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

FOLLOWING ARE
DIGITAL
DEC

1980, 1981

TRADEMARKS OF
PDP
DECUS

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

BY DIGITAL EQUIPMENT CORPORATION
DIGITAL EQUIPMENT CORPORATION:
UNIBUS
DECTAPE

MASSBUS

29-JUL-81
CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
PROGRAM DOCUMENT
CZDMID.P11
29-JuL-81 11:32

12:42

1
PAGE 3

SEQ 0002

REVISION HISTORY

REVISION

REASON

DATE

“

INITIAL RELEASE

5 FEB 80

17 APR 80

?qugRT REMOTE LOOPBACK IN TESTS

2. BUG FIX = CONTROL C EXIT OF PROGRAM

WOULD CAUSE UNEXPECTED INTERRUPT ON
gszsgg = PUT MASTER CLEAR IN CLEAN

3. BUG FIX = DTR WAS DROPPED WHEN WRITING
MODEM MAINTENANCE BIT (AFFECTED MANUF.
TURNAROUND
.)

‘T\[E)QED16HECK OF M8207 PROGRAM TIMER IN

20 AUG 80

. AT ENGINEERING'S REQUEST, CHANGED TEST

26 OCT 81

15 SO THAT IT.NO LONGER TESTS DMC MODE
BASE IN RESUME.
ALSO CHANGED TEST 16
SO THAT A MASTER CLEAR IS DONE BEFORE
A BASE IN RESUME AND TEST 16 NOW ONLY RUNS
IN INTERNAL LOOPBACK MAKING THESE CHANGES
GETS AROUND A PROBLEM IN MANUFACTURING.
THE DMR DOCUMENTATION WAS CHANGED TO
SPECIFY THAT A MASTER CLEAR MUST BE DONE
BEFORE A BASE IN RESUME.

BUG FIX = ALLOWED 1 REP TO BE SENT IN TEST
14.

THIS

IS NECESSARY TO MASK THE SOFT

ERROR MESSAGE THAT CAN OCCUR WHEN LARGE

MESSAGES ARE SENT AT LOW BAUD RATES.

29-JUL-81

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
PROGRAM DOCUMENT
CZDMID.P11
29-JuL-81 11:32

12:42

SEQ 0003

PAGE 4

CONTENTS

1.0 INTRODUCTION

2.0 HARDWARE REQUIREMENTS
3.0 PRELIMINARY PROGRAM REQUIREMENTS

l\bbbbbb

4.0 GENERAL PROGRAM CONSIDERATIONS
4.1 DIAGNOSTIC SUPERVISOR

.2 EXECUTION TIME
.3 XXDP+

.4 ACT/SLIDE

.5
.6
.7
.8

APT
MEMORY MANAGEMENT
MEMORY PARITY OPTION
ERROR LOGGING

5.0 PROGRAM LOAD MEDIA

(e e

6.0 OPERATING INSTRUCTIONS
6.1 LOADING AND STARTING PROCEDURES
6.1. 1 LOADING PROCEDURES
6.1 .2 STARTING PROCEDURES
6.1 .3 STEPS FOR QUICK AND SIMPLE EXECUTION
.2 INITIAL DIALOGUE
3 ZRgGRAM OPTIONS

Yo No o

6.3.

é.3.

.1.1
1.2
.1.3
.1.4
;.5

TESTS SWITCH
PASS SWITCH
FLAGS SWITCH
END OF PASS SWITCH
EFFECT OF START COMMAND
TESTS, PASS, AND FLAG SWITCHES

UNITS SWITCH
EFFECT OFDRESTART COMMAND

3
.
o s

PASS SWITCH
FLAGS SWITCH
EFFECT OF CONTINUE COMMAND
ROCEED
COMMAND
0
FLAGS SWITCH
.
g
EFFECT OF PROCEED COMMAND
D
5
ITS SWITCH

FFECT OF

ADD

COMMAND

ROP
COMMAND
0
6.
I TS SWITCH
FFECT OF DROP COMMAND
.6
I
OMMAND
FFECT OF PRINT COMMAND
7

AV, To No 0 oNe Neo Yo NViTe Yo Yo Na¥Te Yo Yo Yo Yo

6.3.

START COMMAND.

WODWWO WWD> ww 'DWLN\N('S www:o wuwuw

$.3.

6.3.

(o N Te e

i BN

—

N NN
R b
s aaawd

=O VNN
WN =000

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
DOCUMENT
PROGRAM
CZDMID.P11
29-JUL=-81 11:32

12:42

Y
PAGE 5

\OO*O

6.3.8 DISPLAY COMMAND
.3.8.1 UNITS SWITCH
.3.8.2 EFFECT OF DISPLAY COMMAND
FLAGS COMMAND

WLNWLN

6 .3.9.1 EFFECT OF FLAGS COMMAND
6.3.1 0_ZFLAGS COMMAND
6. 3.10.1 EFFECT OF ZFLAGS COMMAND
6.3.1 1 CONTROL CHARACTERS
6.3.1 2 HARDWARE PARAMETERS
6.3.1 3 SOF TWARE PARAMETERS
6.3.1 4 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

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
oab

il il an
il
il o
il il anild

wvivyvioaviaioar
o (.
OO NN
NN —(@ ]V]

CZDMID.P11

29-JuL-81

11:32

29-JuUL-81

12:42

PROGRAM DOCUMENT

SEQ 0005

PAGE 6

1.0 INTRODUCTION

THIS

PROGRAM

SUPERVISOR
THE

DESIGN

AND

SLIDE.

AND

WILL

IMPLEMENTED

USING

THE

DIAGNOSTIC

SUPERVISOR

(STANDALONE

A STRUCTURED PROGRAMMING APPROACH.
CONFORM

THE

BECAUSE

VEQSéOT&ETHE PROGRAM WILL BE COMPATIBLE WITH ACT, APT, XXDP+,
THROUGH DIALOGUE WITH THE OPERATOR, THE PROGRAM WILL
ALLOW
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

g83253¥g BAD

TEST

OCCUR.

NUMBER AND DESCRIPTION OF

DATA,

AND

APPLICABLE

THE

DEVICE

REPORT

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
%éfi%???éé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.
SWITCH IS OFF,

THE MAINTENANCE BITS IN BSEL1

TESTS WILL BE NOT BE

CORRECTLY RUN.

WHEN CHOSING A CABLE TEST CONNECTION, ENSURE

IF THIS

CAN'T BE USED AND CERTAIN
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 CONF IGURATION 3 (H3255-EIA), IT IS
NOT NECESSARY TO HAVE SWITCH 7 OF THE SWITCH PACK IN THE OFF PCSITION.

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
PROGRAM DOCUMENT
CZDMID.P11
29-JuL-81 11:32

12:42

1
PAGE 7

SEQ 0006

IT IS, HOWEVER, NECESSARY TO HAVE THE BAUD RATE SELETCTED TO BE

NOTE THAT A MANUFACTURING=ONLY PATCH IS
SPECIAL MANUFACTURING TEST CONNECTORS.
FLAG WORD 'MANUF' TO A NON-ZERO VALUE.
MAINTENANCE BIT IS SET BY A MODEM WRITC
ONBOARD CONNECTORS ARE USED.

REQUIRED TO RUN WHEN USING THE
THIS PATCH WILL CHANGE THE
WHEN THE FLAG IS NON-ZERO, THE
COMMAND IF THE V.35 OR EIA

4.0 GENERAL PROGRAM CONSIDERATIONS

i il il

CONOANN
S NN =

OO
PO

WITHIN THE EIA RANGE.

219

4.1
THIS

DIAGNOSTIC SUPERVISOR
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
DMR BAUD RATE.

IS DEPENDENT ON THE PROCESSOR SPEED AND THE
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
5 AND 1/2 MINUTES
10 MINUTES

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

AND

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 JR SCRIPT MODE.

(INCLUDING

4.6 MEMORY MANAGEMENT

IF MEMORY MANAGEMENT IS AVAILABLE,

FUNCTIONAL DIAGNOSTIC.

IT IS USED BY CERTAIN TESTS IN THIS

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
PROGRAM DOCUMENT
CZDMID.P11
29-JuL-81 11:32

12:42

H 1

PAGE 8

SEQ 0007

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
CAN
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.
WHEN USING XXDP+, THE
DIAGNOSTIC
SUPERVISOR
SHOULD
BE LOADED FIRST, FOLLOWED BY
THE DIAGNOSTIC PROGRAM.

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

PROCEDURES

STARTS

TO START

LOCATION

THE PROGRAM.

200.

USE

STANDARD

DEC

6.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION

LOAD AND START DIAGNOSTIC USING RUN COMMAND

Mmoo

THE
DIAGNOSTIC
CAN
BE EXECUTED STANDALONE UNDER XXDP+,
WITHOUT READING THE REMAINDER OF THIS DOCUMENT, AS FOLLOWS:

ANSWER HARDWARE AND SOF TWARE QUESTIONS

B) RECEIVE DIAGNOSTIC SUPERVISOR IDENTIFICATION AND PROMPT
C) ENTER STA<CR>
GET END OF PASS MESSAGES OR ERROR MESSAGES
TO END EXECUTION,

ENTER CONTROL/C

(DRS=(>)

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
PROGRAM DOCUMENT
CZDMID.P11
29-JuL-81 11:32

12:42

1
PAGE 9

SEQ 0008

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

IS STARTED, THE FCLLOWING IDENTIFICATION IS TYPED :

DRS LOADED
DIAG. RUN-TIME SERVICES
DR>
THE OPERATOR THEN PROCEEDS BY TYPING ONE OR MORE OF

COMMANDS DESCRIBED IN THE FOLLOWING SECTION 6.3.

THE

(FOR MORE

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

6.3 PROGRAM OPTIONS
6.3.17

START COMMAND

e v o s o o

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

e eo o o o o

e o o o o

e eo

e o

e eo o

e ke e b o

e e e e e eo

e ok e e ok e e o

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

Tt e e o o

e es o

6.3.1.1

e o

e o ke e e o o o o o o o o o o o o

e e e e eo o o o

e e o

e e e e e e b e e

e e ok

TESTS SWITCH (/TESTS:<TEST-LIST>)

<TEST-LIST>

A SEQUENCE OF DECIMAL NUMBERS

RANGES OF DECIMAL NUMBERS (1-5:8-10 ETC.)

THAT

(1:2 ETC.)

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
SPECIFICATION.
THE
DEFAULT
IS
TO EXECUTE ALL TESTS.
THIS AND ALL SWITCHES,

USED

OF
ON

THE ANGLE BRACKETS <> ARE PUNCTUATION

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>

IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER

OF
PASSES.
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 THE HALT ON ERROR FLAG BEING
Eag.OFT253E¥I; IS A RETURN TO COMMAND MODE.
SEE EXAMPLE
AT

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

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

29-JuL-81

11:32

29-JUL-81

PROGRAM DOCUMENT

12:42

SEQ 0009

PAGE 10

<FLAG=LIST>
IS
A
SEQUENCE OF ELEMENTS OF THE FORM <FLAG>,
<FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS

ONE OF THE FOLLOWING VALUES:
HOE

HALT ON ERROR,

LOE

OF CODING (SEGMENT, SUBTEST, OR TEST)
ING THE ERROR
INHIBIT ERROR REPORTING
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS

IER
IBE
IXE

PRI
PNT

CONTAIN-

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

BOE
UAM

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

ISR
IDU
LOT
THE

CAUSING COMMAND MODE TO BE

ENTERED WHEN AN ERROR IS ENCOUNTERED
LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY WITHIN THE SMALLEST DEFINED BLOCK

FLAGS NAMED OR EQUATED TO 1 ARE SET,

THOSE EQUATED TO 0

ARE CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
IF THE FLAGS
ézéT(C)?I 61§ 1M(S)T 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 (IN TERMS OF
PASSES)
IT
IS
DESIRED
THAT
THE
END
OF PASS MESSAGE BE
PRINTED.
THE DEFAULT IS AT THE
END
OF
EVERY
PASS.
SEE

EXAMPLE AT END OF 6.3.1.5.

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'' KEFERS TO THE DEVICE

TO WHICH THIS SERIES OF DIAGNOSTICS IS DEDICATED.
FOLLOWING
THIS
ARE THE QUESTIONS WHEREBY THE P-TABLES THEMSELVES WILL

BE BUILT.
ALL

THE

EACH P-TABLE IS A CORE-RESIDENT TABLE

HARDWARE

INFORMATION

FOR ONE UNIT.

CONTAINING

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) OR

GIVING

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

CZDMIDO DMR-13 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
PROGRAM DOCUMENT
CZDMID.P11
29-JuUL-81 11:32
429
430
431

432

433
434
435
436

437

438
439
440
441
462
443
444
445
44

447
448
449

12:42

SEQ 0010

PAGE 11

OCTAL, L FOR YES/NO) IN PARENTHESES AND
AFTER THE PARENTHESES.

THE

DEFAULT

VALUE

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 IS
ALLOCATED FOR THE P-TABLES, AND IF THERE IS NOT ENOUGH TO
ACCOMMODATE THEM THE MESSAGE '‘TOO MANY UNITS'' IS ISSUED.
IN
}gg? ngEuL?ESDIAMOSTIC MUST BE EXECUTED MORE THAN ONCE

:
EXAMPLE

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

COMMAND

WILL CAUSE THREE PASSES TO BE MADE, EACH PASS

CONSISTING OF TESTS 1,2,3,4,6.8,9, AND 10

ALL UNITS.

EXECUTED

AGAINST

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
CLEAR A
FLAG_
THAT WAS
PREVIOUSLY SET.
NOTE THAT ON ALL COMMANDS
ONLY
THE
FIRST
THREE LETTERS ARE SCANNED.

6.3.2 RESTART COMMAND
L2332

2222222223232

223020232322333

222222322222

2d2Rd

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

ARAARAARRRRR IR RRRRRRRRRRRRRRRIRRRRRRRRRRRRRRRRR
AR RR RS

6.3.2.1

TESTS, PASS, AND FLAGS SWITCHES

<TEST=LIST>,

.
COMMAND

<PASS=CNT>,

AND <FLAG-LIST> ARE AS

IN THE

START

6.3.2.2 UNITS SWITCH (/UNITS:<UNIT=LIST>)
<UNIT-LIST>

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
THME
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 T0 EEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY

6.3.2.3 EFFECT OF RESTART COMMAND

DROP

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuUL-81
PROGRAM DOCUMENT
CZDMID.P11
29-JuL-81 11:32
485
486

487

488

489
490
491
492
493
494
495

5.3
12:42 PAGE 12

SEQ 0011

THE
RESTART
COMMAND DIFFERS FROM THE START COMMAND IN THAT
THE P-TABLES FROM THE PREVIOUS
START
COMMAND
(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)

ERROR WAS ENCOUNTERED WITH THE HALT ON ERROR FLAG SET ()

A CONTROL/C WAS ENTERED BY THE OPERATOR.

6.3.3 CONTINUE COMMAND
1232333332223 2

2322223323222

3222222223223

22022222

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

2230222220000 Rttt
sl

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

6.3.3.3 EFFECT OF CONTINUE COMMAND
CONTINUE
MUST
FOLLOW A START OR RESTART, AND 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
AR AR AR R AR AR AR AR R AR

R AR

RRRR AR

RRRR R R AR R

RRRRR AR

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

2 2322322320222
22
2
Rttt
d Rl

6.3.4.1 FLAGS SWITCH (/FLAGS:<FLAG=LIST>)
<FLAG=LIST> IS AS IN

THE

START

FLAGS RETAIN THEIR CURRENT VALUE.

C(OMMAND,

BUT

UNSPECIFIED

(ZDMIDC DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
CZDMID.P11
29-JuL-81 11:32
PROGRAM DOCUMENT
gz;
543

544
545
546
547
548
549
550

2212

12:42

PAGE 13

SEQ 0012

6.3.4.2 EFFECT OF PROCEED COMMAND
PROCEED

MUST FOLLOW A START, RESTART, OR CONTINUE.

COMMAND

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

6.3.5 ADD COMMAND

553

AR RARIARRRRRRRRIARRRRR
AR RRARRRRRRRAAFRRRRRRRRE AR TR RN

554

ADD/UNITS:<UNIT=LIST>

555

556
557

T T

T T T T

ggg

6.3.5.1 UNITS SWITCH (/UNITS:<UNIT=LIST>

22(1)

<UNIT=LIST> IS AS

562
2243

6.3.5.2 EFFECT OF ADD COMMAND

565

UNIT

568

RESTART

567

MUST

HAVE

HARDWARE DIALOGUE.

IN THE RESTART COMMAND.

THE UNITS SPECIFIED ARE ADDED TO THE

566

P-TABLE

THIS

CONTINUE.

COMMAND

TEST

MEMORY
MUST

SEQUENCE.

DUE

EACH

TO AN EARLIER

FOLLOWED

569
g;?

THE ADD COMMAND IS MEANINGFUL
PREVIOUSLY DROPPED.

572

6.3.6 DROP COMMAND

575

AR A AR AR RARRARRR AR AR AR RRRRARRRRRRRRRICRRRRRRR
AR

576

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

2;2
577

578
579

ERRAAERRRRR AR AR

AR AR R R

ONLY

RR AR

FOR

6.3.6.1 UNITS SWITCH (/UNITS:<UNIT=-LIST>)

gg%

<UNIT=LIST> IS AS IN THE RESTART COMMAND.

584
ggz

6.3.6.2 EFFECT OF DROP COMMAND

588
589

UNITS

THAT

AR RRRRARRRR R

gg?

587

THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING.

RR RN

THE UNITS

MUST BE FOLLOWED BY A RESTART OR A CONTINUE COMMAND.

592
ggz

6.3.7 PRINT COMMAND

596

WERE

WILL BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START
COMMAND .
THE UNITS SWITCH MUST BE ENTERED.
THIS COMMAND

gg?

595

THE UNITS SWiTCH MUST BE SPECIFIED.

PRI(NT)

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

R AR R R AR RN AR R AR

R R RN AR AR AR

CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
PROGRAM
DOCUMENT
CZDMID.P1
29-JuL-81 11:32
L2 2232222222222

12:42

PAGE 14

SEQ 0013

Rttt ittt
il

6.3.7.1 EFFECT OF PRINT COMMAND
THE

TOTAL NUMBER OF ERRORS FOR

START

RESTART

COMMAND

ARE

EACH

UNIT

PRINTED.

STATISTICAL REPORTING) FLAG IS CLEARED.

SINCE

THE

LAST

THE ISR (INHIBIT

6.3.8 DISPLAY COMMAND
L2222

222222222

ittt ittt
ittt sdsd ]

DIS(PLAY)/UNITS:<UNIT=LIST>
ARRRAKEIRARRRRRREAARRRRR
AR AARRRRRARRARRRRR AR AR R AR AR AR AR

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
THAT WERE DROPPED BY THE
OPERATOR
‘DROP'‘ COMMAND
ARE
SO
DESIGNATED.

6.3.9 FLAGS COMMAND
AR A AR A AR A AR AR A AR AR AR

AR AT A AR A A A A AR AR AR AR AR AR AR A A A AR A

FLA(GS)
AR ARCRRRRRRRRERRARRRR
R AR ERRRRRRRRARRARRRRRRRRRRRRR R AR
RA RN

6.3.9.1 EFFECT OF FLAGS COMMAND
THE

CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

6.3.10 ZFLAGS COMMAND
AR AR A AR

AR AR AR AR AR AR R

AR A AR AR A AR AR A A AR AR AR ARk

ZFL (AGS)
AR

AR A AR AR AR AR

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

6.3.10.1 EFFECT OF ZFLAGS COMMAND
ALL FLAGS ARE

6.3.11

CLEARED.

CONTROL

CHARACTERS

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
(ZDMID.P11
29-JuL-81 11:32
PROGRAM DOCUMENT

12:42

2
PAGE 15

SEQ 0014

653
ggg

A CONTROL C _(C) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC CAUSES
A RETURN
TO
C(OMMAND MODE.

656

661
662

A CONTROL O (0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC
CAUSES
ALL
TELETYPE
OUTPUT
TO BE
SURPRESSED
FOR
THE

ggg

WHICH RESTORES NORMAL

657
658
228

663

666

CONTROL

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

REMAINDER OF THE DIAGNOSTIC OR UNTIL

TELETYPE OUTPUT.

ANOTHER

TYPED,

ggg

6.3.12 HARDWARE PARAMETERS

669
670
671
g;g

THE
FOLLOWING 3 QUESTIONS WILL BE ASKED ON A START COMMAND.
THE VALUE LOCATED TO THE LEFT OF THE QUESTION MARK
IS
THE
DEFAULT
VALUE
THAT
WILL BE
TAKEN ON A CARRIAGE RETURN
RESPONSE.

g;g

676
677

THIS IS THE ADDRESS AT WHICH THE CSR REGISTERS (SELO) RESIDE
ON
THE
UNIBUS.
THE
ALLOWABLE
RANGE
IS
160000-177776

gg?

682
683
ggg

THIS IS THE ADDRESS OF THE INPUT INTERRUPT VECTOR
FOR
THIS
DEVICE.
THE
ALLOWABLE
RANGE
IS 000-776 (OCTAL), AND THE
DEFAULT VALUE IS 300.

686
687
688
689
690
691
692
693
694
695
696
2gg

g;g

699

CSR ADDRESS:

(0)

160070?

(OCTAL), AND THE DEFAULT VALUE IS 160070.
VECTOR ADDRESS:

(0) 300 ?

TEST CONFIGURATION 0 = INTERNAL (NO CONNECTOR)
1 = H3254 - v.35
(NOTE:
MODE 1-4 ALLOWS
2 = H3254 - INTEGRAL
PROGRAM INTERFACE SELECTION)
3 = H3255 - RS232C/423
4 = H3255 - RS422
5 = CABLE AND SW PACK INTERFACE SELECTED
(V.35-H3250, INTEGRAL-BC55A-10, RS232C-H325, RS423/422-H3251)
* SELECT THE FOLLOWING ONLY IF THE MODEM SUPPORTS LOOPBACK *
6 = LOCAL LOOP
7 = REMOTE LOOP
o
5°7?
THIS QUESTION WILL COVER ALL THE POSSIBLE TEST CONFIGURATIONS.

700
701

THE DEFAULT IS FOR ACTUAL CABLE LOOPBACK (5).
CONFIGURATION O
WILL ENASLE LINE UNIT (TTL) LOOPSBACK.
IF THIS IS SELECTED NO

;82

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

702
703
706
707

CABLES OR CONNECTORS SHOULD BE CONNECTED.
CONFIGURATIONS 1-4
WILL SELECT THE INTERFACE REGARDLESS OF THE SWITCH SETTING AS

6.3.13 SOF TWARE PARAMETERS

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11
709
710
711
712
713
714
715
716
717
718
719
720

721

722

"23

29-JuL-81 11:32

29-JUL-81

PROGRAM DOCUMENT

12:42

SEQ 0015

PAGE 16

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

[REFER TO LISTING 6.3.13]1

(MAX=5; MIN=1)

(O)

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
FOR EXAMPLE:
SHOULD BE.
11/70 WITH CACHE AND DMR_AT 1 MEG.:
11/34 AND DMR AT 56K:
2
11740 AND DMR AT 2.4K:
3

THE DEFAULT IS 5.
THIS WILL COVER THE WORST CASE
WITH 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

ONE-TO

THE P-TABLES ARE OF

ONE

CORRESPONDENCE

THE SAME FORMAT, AND THERE

BETWEEN

THE HARDWARE PARAMETER

QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT.

ON THE FIRST 1RIF THRU THE QUESTIONS, ALL OF

THE

LESS THAN N EXPLIC.TM VALUES

ALL

THE

P-TA2LES ARE FILLED.

SLOTS

THE OPERATOR TYPES IN

RESPONSE

PARTICULAR

QUESTION, THESE VALUES ARE PLACED IN THE P-TABLES (ONE VALUE
GOING INTO THE PROPER SLOT OF EACH P-TASLE
BEGINNING WITH
THE
FIRST P-TABLE) UNTIL THE STRING OF VALUES IS EXHAUSTED.
THE LAST VALUE

IN THE

STRING BECOMES THE NEW DEFAULT AND

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

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING
x:hggsv:faeef 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

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

765
766
767
768
769
770
771
772
773
774
775
776
777

778
779
780
781
782

29-JuL-81 11:32

29-JUL-81

PROGRAM DOCUMENT

THE

STRING

6,7,8,9.10

(AN

SECOND

PARAMETER

EQUAL

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
77 FOR
THE LAST 9 UNITS.

THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL:

<QUESTION 1> ?

(D)

? 16
RES REN ]

UNIT O

786
787

<QUESTION 2> ? 0-6
<QUESTION 3> ? 76

789
790

UNIT 7

-~ *J

792

THE

NOW LET US SEE
HOW WE
COULD USE THESE CAPABILITIES TO
CONSTRUCT A SET OF P-TABLES.
ASSUME THAT WE HAVE 16 UNITS,
AND THAT THERE ARE THREE HARDWARE PARAJMETERS 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

785

791

SEQ 0016

ARE ADDRESSES,
THE
SAMPLE
RANGE TRANSLATES TO THE STRING 6,8,10 (AN INCREMENT OF 2).

# UNITS

788

PAGE 17

SAMPLE
RANGE TRANSLATES TO
INCREMENT OF 1). IF THE VALUES

783

784

12:42

7=-11,,13-15
77

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11

29-JuL-81

11:32

29-JUL-81

PROGRAM DOCUMENT

THE

FIRST

12:42

PAGE 18

SEQ 0017

TIME THE SERIES IS ASKED, SLOT ONE RECEIVES ~ 75

IN ALL 16 TABLES.
SLOT TWO RECEIVES THE VALUES_0,1.,2,.
IN 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'' AT
THE
BEGINNING OF EACH SERIES).
QUESTION_1 IS RESPONDED TO

BY A <CR>, SO SLOT ONE STAYS AT CONSTANT

TABLES

THRU 15, SINCE NO NEW EXPLICIT VALUES ARE TYPED IN.

GETS THE VALUES 7,8,9,10,11

SLOT TwO

IN TABLES 7 THRU 11,
AND
GETS AN 11 IN SLOT 12, AND GETS THE VALUES 13,14,15 IN
}AgLE?S13 THRU 15. SLOT THREE GETS THE VALUE 77 IN TABLES 7
HRU

THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT
16 EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION
(NAMELY QUESTION 2).

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
CZDMID.P11
29-JuL-81 11:32
PROGRAM DOCUMENT

12:42

PAGE 19

SEQ 0018

814
815
g}?

7.0 DEVICE INFORMATION TABLES

%11%

SEE THE GLOBAL EQUATES SECTION FOR DEVICE CSR BIT DEFINITIONS

820
ggl

8.0 TEST DESCRIPTIONS

82§

825

;* VERIFY THAT ADDRESSING THE 4 UNIBUS CSRS DOES NOT CAUSE A NON-

824

AR AR AR

E AR R AR

TEST 1 = DMR-11

AR KRR AR AR KRR RN AR AR AR AR RN

gg(?)

;% EXISTENT MEMORY TRAP.

828

:* THE DMR IS AN NPR DEVICE RESIDING ON A UNIBUS.

830
831
ggg

:* 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

829

s %

COMMUNICATION

:* BETWEEN THE MAIN CPU AND THE DMR IS ACCOMPLISHED THROUGH A

- %

834
835
836
837

838

839
840

841

842
843
844
845
846
847
848
849
850
351
652
853
854

ggg

;*
;*
;*
;%

;*
;*
;%
;*
:*
A
'
:*
2
s
s
:*

s*
]

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.
AR AR AR AR AR AR AR R AR AR AR AR AR RN

RARRRR AR AR

A AR R AR AR AR AR AR AR

AR RARR AR

AR AR R AR

AR AR RN RR

EQ2

E04
EO1
EOS

E14

1
2
3
“

HIGH

0000 - 1777

HIGH

4000 - 5777

LOW
HIGH
LOW

:tttittttttttttt IMPORTANT

860

i+« LOCKED OUT AND THE MAINTENANCE FEATURES WILL NOT BE ENABLED.

861

862
863
864
865
866
867
868

11T ETTIIT]

2000 - 3777
2000 - 3777
4000 - 5777

857

858
859

RN TR

TEST 2 = DMR-11
ROM CRC/CCITT = CHECK ROM POSITION AND CALCULATE CRC/CCITT.
THE
LAST &4 BYTES CONTAIN INFORMATION ABOUT THE ROM TO CHECK.
THE 1ST
OF THESE BYTES CONTAINS THE ASCII VERSION NUMBER.
THE Z2ND BYTE
CONTAINS THE ROM NUMBER.
THE 3RD AND 4TH BYTES CONTAIN A NEGATIVE
CRC/CCITT WORD FOR THE ROM.
CHIP ADDRESS RANGE
LOCATION CHIP NO.
BYTE
ADDRESS RANGE
EO3
0
LOW
0000 - 1777

ke Ak kA AR AR AR R AR AR R AR AR AW

;* 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

Re
e
ety

TM
;e
:*
:®
:®
:®

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

R R AR AR AR AR AR R AR

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

AR R R AR

R R AR

R AR

R RN

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052>
(ZDMID.P1

869
870
871
872

873
874
875
876

29-JuL-81 11:32

29-JUL-81

PROGRAM DOCUMENT

2232233232322

12:42

PAGE 20

2223232222222

SEQ 0019

2230322202

2220

22222222t

RRdR Rl

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

;* BIT 13 ONLY ON EVERY OTHER MASTER CLEAR) THE SOF TWARE BIT.
;* 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.

;* BSEL3 = 100
;* BSEL3 = 200

=
=

MICROTESTS DISABLED
MICROTESTS RUN SUCCESFULLY

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

* %
b

ADDITIONALLY THIS ROUTINE WILL REPORT WHENEVER THE RESULT OF

??E%S égC?.

-3

THIS WILL MEAN THAT THE DEVICE IS NOT A DMR

- %

- L2222

2222222222232 2220222222202ttt
R0t RdRdRild ]

2222222222222

BASE

2233232222222

222 Rttt

TEST 4 = DMR-11
IN COMMANDS

*
*

SUBTEST 1

*
*

.
*
.

SUBTEST 2

=~ 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
THE MICROCODE SCRATCH PAD 7 AND THAT THE DDCMP
MESSAGE VARIABLES ARE PROPERLY INITIALIZED.

2R
RRRRRRRRRRRRt Rttt Rt
]
- * 2222222222220

CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
PROGRAM DOCUMENT
29-JuL-81 11:32
(ZDMID.P11

12:42

PAGE 21

SEQ 0020

g}?

.ttttttttttttttttttttttttttttitttttt'tttttttttttltttt'fiQtt'titt'tt.ttt

919

.' DMR COMMANDS

920

921
gg%

I*
ol
'

924

928

925
ggg

ow
i

TEST 5 = DMR-11

SUBTEST 1

= ISSUE AN ENABLE EXTENDED ERROR COMMAND AND CHECK THAT

SUBTEST 2

= SET REP/SEL TIMER VALUE AND SET THE DMR THRESHOLD

THE EXT. ENABLE BIT IS SET IS SCRATCH PAD 13.
THEN
%S??IE‘E‘REXTENDED ERROR AND CHECK THAT THE ENABLE BIT
.

VALUES.
CHECK THAT THE VALUES ARE CORRECT IN
THE BASE TABLE AFTER HALTING THE DMR.

929

930
931
932
933

934

o¥

935

937

936

938

gz»g
941

942
943
944
945
946
947

948

949

AR AR AR R AR AR AR AR AR AR

AR R AR AR R AR

AR R

R AR AR

AR R

R IR RN AAR AR

RAA AR

RR AR RA AR AR AR AR

SUBTEST 2

=~ g?r#";gLsél;l HALF DUPLEX.

SUBTEST 3

=~ CONTROL IN, MAINTENANCE MODE.

o
;*
H
ow
3
i*

A RN

TEST 6 = DMR-11

- CONTROL IN, FULL DUPLEX, DDCMP MODE.

AR AR AR AR AR

(CONTROL IN COMMAND TEST =

SUBTEST 1

o¥

RR AR AR AR

SUBTEST 4

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

ENSURE THAT THE HALF DUPLEX

ENSURE THAT MAINT. MODE
BIT IS SET IN SCRATCH PAD 7.
=~ 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.

R AR

953

AR AR AR AR AR AR AR

954
955
956
957
958
959

I%
TEST 7 - DMR-11
;* MODEM WRITE COMMAND
;*
SUBTEST 1
= WRITE DATA PATTERNS INTO THE MODEM WRITE REGISTER.
o
ENSURE THAT ON THE NEXT MODEM READ THAT THE
S
MICROCODE RETURNS THE PATTERN WRITTEN INTO BSEL6.
;*
SUBTEST 2
= ATTEMPT TO WRITE BOTH THE HALF-DUPLEX BIT AND THE

964

:ttt'tttttttl'.t'ttt'tttttttttt'Qtttttttlttttfitt't"ttt'ttttt.tttt"tt

950
951
952

960
961
%%

o
L
;e

. %

AR R AR AR AR AR R

R R

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

R A AR N AR AR A AR R AR R A AR AR R AR

AR RN RN

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

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

3267’

968
969
970
971
972

29-JuL-81 11:32

PROGRAM DOCUMENT

e
:%
:®
o

SEQ 0021

R AR AR AR AR

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

SUBTEST 2

977

978
979
980
981
982

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

SUBTEST 1

;%
:®
o

983
984

R RRRRRRRRRRRRRRR R AR AR RRRRRRRRRRR R AR AR

973
974
975

976

12:42 PAGE 22

29-JuL-81

AR AR AR AR

THREE AFTER SHUTDOWN.

AR AR

RN AR

RRRRR AR

AR R RS

AR
CR AR
AR RRR AR R RN RN

TEST 9 = DMR-11
s®
;% NON-EXISTENT MEMORY (NXM) ERROR CHECK

986
987
988

:* PERFORM DMR COMMANDS USING NXM ADDRESSES; VERIFY THAT NXM ERROR IS
:* REPORTED IN EACH OF THE FOLLOWING SUBTESTS:
:* SUBTEST 1 = BASE IN RESUME COMMAND - BASE TABLE ADDRESS IS NXM
:* SUBTEST 2 = BA/CC IN RECEIVE COMMAND - BA/CC IN ADDRESS IS NXM
:* SUBTEST 3 =~ LA/CC IN TRANSMIT COMMAND - BA/CC IN ADDRESS IS NXM

991

AR AR AR AR

996

R AR

998
999
}88(1)

:* TIME OUT - FORCE A TIMEOUT AND VERIFY THAT THE ERROR IS REPORTED.
:* THIS TEST WILL ALSO USE AN APPROXIMATE TIMER TO DETERMINE IF THE
;% M8207 1 MSEC. PROGRAM TIMER IS OUT OF RANGE.

985

ggg

992
993
994
995

997

1002

AR AR AR AR

:®

TEST

AR AR AR R

R AR AR

R AR

10 - DMR-11

R AR AR RN

RN RN R AR RS

AR RN
AR
R TR RN

1003
1004

1005

1006

1007

AR AR RN RR RN RRRRRR RS
RN
AR R

}8;?

1008
1009
1012

1013

:®
;*

. %

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.

AR AR

AR AR AR AR AR AR AR RN AR

AR AR AR AR R RO E

CRRRRERAAR AR RRAR AR AR

R R

PAGE 23

SEQ 0022

RRR AR AR AR R RRAR AR R

AR RRR AR AR

TEST 12 = DMR-11

Il'.l

PROCEDURE ERRORS =
THE FOLLOWING SHOULD CAUSE THE DMR=11
A PROCEDURE ERROR:

SUBTEST 1
SUBTEST 2

SUBTEST 3
SUBTEST 4
SUBTEST 5

~NONV S~

12:42

=
=

TO HALT AND RESPOND WITH

A SECOND BASE IN COMAND
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

—e
D
— o

OO0O0000
RN
NV
WY - OV

d e

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
PROGRAM DOCUMENT
CZDMID.P1
29-JuL-81 11:32

A2 2222222232222
R
22222222
2R
R
iRl dddd ]

A2 3322222223222
22222302332
22222
Rl 2]

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.
SRR AR AR AR AR R AR AR A AR AR AR

2222233322223

;*
;*
:*
;*

RAA AR AR AR

3233320022222

TEST

A AR

A AR AR AR AR AR

33323 333222223

tRR

22l d ]

14 = DMR-11

IN THIS TEST - SEE IF WE HAVE MEMORY MANAGEMENT, IF SO SEE IF WE
HAVE THE MEMORY TO CHECK BITS 16 & 17 IN SEL6.
THIS WILL ALLOW
US TO TRANSFER DATA USING THOSE EXTENDED ADDRESSING BITS. AS IN
ng; 13 THE TEST IS NON-INTERRUPT AND INTERNAL (TTL) LOOPBACK IS

. * U

2232222222

222322222222

iRl

Rl )

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

12:42

PROGRAM DOCUMENT

PAGE 24

SEQ 0023

lti'tt'ttt"t...itl.'l""'....'tt".t...fltt't."ttfi'titi""lt'tt't.

——

TEST 15 = DMR-11

* %

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

FEPR PR FE PR

. %

. %
'R

- %

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.

* 9

A FE FE

;*
o*
:®
;®

AT TEA

;*
;*
;*
;e

A TR

29-JuL-81 11:32

LR TEATE

CZDMID.P11

29-JuL-81

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.

. *
* & (2222

2322032222222

2020222

2222222222320

22220t

)

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
PROGRAM DOCUMENT
CZDMID.P11
29-JuL-81 11:32

Rttt

ttddddddd)

PR T

IN THE

PR
A
R
PR
PR
A
e
e
e

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

MASTER CLEAR
IN RECEIVE
MASTER CLEAR
IN RECEIVE
MASTER CLEAR
IN RECEIVE
MASTER CLEAR

BASE IN RESUME

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

MASTER CLEAR
IN TRANSMIT
MASTER CLEAR
IN TRANSMIT
MASTER CLEAR
IN TRANSMIT
MASTER CLEAR

BASE IN RESUME

HALT

MASTER CLEAR

BASE IN RESUME

1 BA/CC IN RECEIVE

1 BA/CC IN TRANSMIT

BASE IN RESUME
BASE IN RESUME
BASE IN RESUME

-.—hd-d-‘—A—hd-‘-‘—A—MJ-JE;—‘-LJESE;E;d
adad b adamgcae
(=]
NVt

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

D
) - wd D
D D D
D i

SEQ 0024

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

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.

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
C. IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE, USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

I PR

R T R T

R T

R T AR T

R T

A T

R TR TR

D
D e o e
D d D e
Dl
D el
—

2
PAGE 25

TEST 16 = DMR-11
;* RESUME BASE IN = DMR MODE

D i

) D e

dBOONOWDdeosgflgm?wN—‘S 383333832338 23ER

1078
1079
1080
1081
1082

(3323222222222

. %

1076
1077

12:42

THIS TEST RUNS

IN INTERNAL TTL ONLY

AAAARAARARARAAAAAAAARAAA
AR RAAARAAARARARARARAANARAARRRA AR
R RN

CZOMID.P11
D D
D D

D
D D
D D i D o

24
25
%

D il D D
i D e o

29
30
32
33
34

—
—

D
D

e
e

e D D D e
e
D
e

e D D d
D i
el D i D i D e

D i
D e
D D
D i

D
D i i

Y SWERA S AR AV SRS T SR NV N IR

VVUVWVVINVE
B REBBRNEBNNSW

1243

D i
D e
D
il D d e

29-JUL-81 11:32

30A(1052)

29-JuUL-81

12:42

PROGRAM DOCUMENT

PAGE 26

SEQ 0025

.".'.i.Q'.....'t.."."""'.'..'.'.'......"QQ..'..'..Q'...'...Q'.'.
P
TEST 17 = DMR=11
*x INTERRUPT DRIVEN EXERCISE

i* IN THIS TEST 64 BUFFERS WILL BE TRANSMITTED AND RECEIVED

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

i THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
i+ THE RECEIVE/TRANSMIT TABLE.
i
THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS. THIS
i
SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
i
64 RECEIVE AND 64 TRANSMIT BUFFERS. THE ROUTINE WILL
. %

ATTEMPT
TO USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING

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

i
i
i
i

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
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

- %

:t'ttQtt't.t't't.'QQ..'""."..'...'.".'.".'.."'.'.'.."'Q".Q"..
TR AR AR AR AR AR AR AR A AR AR AT AR
»

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11

;* LARGE MESSAGE

TEST

ARAARARA AR

TR AR AR RN

18 = DMR-11

c* 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.
- %

‘e
‘e
‘e
‘e
-

‘e
- %

M
- %

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE S$BUFFS.
THIS
SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
ONE RECEIVE AND ONE TRANSMIT BUFFER,
THE ROUTINE WILL
ATTENPT
TO USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING

A. IF THERE IS MEMORY MANAGEMENT, USE A PAGE ABOVI 32K.
B. IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER
C.

THAN 2K BYTES, USE THAT MEMORY
IF NEITHER OF THE PRECEEDING TWO ARE POSSIBLE. USE
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

- %

] ARAAAARAAAAAAARAAAAARARAAAAAAAAARARARAARAARAAARAARARNEAARNERRI
RRRRRS

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11
1168

29-JUL-81 11:32

12:42

29-JUL-81

PROGRAM DOCUMENT

L L

H;}
1173
1174

;% MAINTENANCE MODE OPERATION

SR IRVRIAC2EBRIRRREN
2B

— e e e D
T

D e e D
D
e D D e D
Y
T
U
L

d D

1177
1178

}228?

1202
1203

1204
1205

;389

1208

1209

1210
1211

1212
1213
1214
1215
1216
]'g};

1219
1220
1221
;55%

TEST 19 = DMR-11

H
i*

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

TM
H
et
:*

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
QIE%EH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING

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

s®

:®

B. IF THERE IS FREE MEMORY ABOVE THE SUPERVISOR GREATER

:®
:®

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

THAN 2K BYTES, USE THAT MEMORY

:®
. %

AR AR AR AR AR R AR R TR AR AR AR NRR AR AR AR RRRRR RN ANNRRRRRARRRR
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
CALL,
DEVICE
ADDRESS,
AND

INFORMATION.

THE
NUMBER, PC OF
BASIC AND EXTENDED

ERROR

THE FOLLOWING EXAMPLE PROVIDES A TYPICAL ERROR REPORT, WHICH
DESCRIBES AN ‘'IRDY NOT SET'' ERROR, AND PROVIDES THE PC OF
THE ERROR CALL AND THE PC OF THE CALL TO THE SUBROUTINE
REPORTING IT, THE FAILING REGISTER NAME, AND DEVICE REGISTER
CONTENTS :

CZDMI DVC FTL ERR 00002 ON UNIT 00 TST 006 SuB 000 PC:
TIME OUT
ERROR IN SUBROUTINE CALLED AT PC: 036174

BUFFER STATUS

016210

# OF BUFFERS: 7
BUFFER SIZE: 2048
XMIT ASSIGNED:
IN = RCV ASSIGNED: 7
XMIT RETURNED:
OUT = RCV RETURNED: 0
DMR RUN ACKNOWLEDGE NOT RCVD
(CHECK INTERFACE, BAUD AND TURNAROUND)

ALL THE MESSAGES IN THE DIAGNOSTIC USE BASIC MESSAGE CALLS.
THEREFORE THE INHIBIT EXTENDED ERROR FLAG WILL HAVE NO
EFFECT ON THE MESSAGE OUTPUT, THE INMIBIT BASIC MESSAGES WILL
%WIB” THE ERROR MESSAGES.

‘\'l

H;Z

SEQ 0026

bbbt bbbt L L L L DL AL S LA LA L S L LA L bb

1169

1170

PAGE 27

E%g:{gOP?TR-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
PROGRAM DOCUMENT
29-JuL-81 11:32

r‘\\)NNNNNNNNNNN
SRR
oV~

PAGE 28

SEQ 0027

.MCALL
SvC

002000

SVC

;

INITIALIZE SUPERVISOR MACROS

BGNMOD

002000

.=2000

00200C

12:42

—

) —

000001
000001
000001
000001
000001
0000017
000001

SLSTIN=
SLSTTAG=
SVCINS=
SVCTST=
sv(suB=

SV(GBL=
SVCTAG=

:
:
:
:
002000

1
1
1
1
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 YOU WISH
TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS.
CHANGE THE
YOU MAY
SYMBOLS TO BE MINUS=ONE TO NOT LIST THE EXPANSIONS.
CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM.
POINTER BGNSW,BGNDU,BGNSFT

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A{1052) 29-JuL-81
PROGRAM HEADER
CZDMID.P11
29-JuL-81 11:32
.SBTTL
+4+

12:42

3
PAGE 29

SEQ 0028

PROGRAM HEADER
THE PROGRAM HEADER MACRO CHARACTERIZES THIS DIAGNOSTIC. THE
HEADER MACRO'S ARGUMENTS ARE FILE NAME, RELEASE LEVEL, PAT(CH

DISPOSITION OF THE MOST RECENT PAiCH, MAXIMUM TEST TIME IN SEC.,
THESE
AND THE TYPE OF DIAGNOSTIC (O-SEQUENTIAL, 1-EXERCISER).
ARGUMENTS ARE

IN RESPECTIVE ORDER.

HEADER (ZDMI,D,0,600..0

::
LSNAME

/D/

.ASCII

/0/

.WORD

600.

.WORD

L$HARD

.WORD

T
L$SOF

.WORD

LSHW

.WORD

LSSW

.WORD

LSLAST

.WORD

LSDISPATCH

.WORD

:.BYTE

CSREVISION

LSTIML::
LSHPCP::
L$SPCP::

LSHPTP::
L$SPTP::

LSLADP::

L$CO::

LSDTYP::

LSAPT::

SEEBEREaRERERY

L$STA::

000000

003

L$DTP::
L$PRIO::

LSENV]::
LSEXP1::

LSMREV:

/1/

LASCII

LSUNIT::

002124

0
0
0

L$DEPO::

30
002032

/C/
/z/
/D/

.BYTE
.BYTE

L3REV::

1294

LASCII
LASCII
LASCII
.ASCII
LASCII

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
CZDMID.P11
29-JuL-81 11:32
PROGRAM HEADER
1310

002051

002

1313

002054

000000
000000

1311
1312

002052
002052

1314
1315
1316
1317

002056
002056
002060

1319
1320
1321
1322
1323

002062
002064
002064
002066
002066

000000

1325
1326
1327

00<C?70
002072
002072

000000

1318

1324

1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361

002062

002070

002074
(C2074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

12:42

PAGE 30

SEQ 0029

L$EF::
LS$SPC::

000000

LSDEVP: :

010240

LSREPP: :

LSEXP4: :

000000

LSEXPS::

000000

LSAUT::

L$DUT: :

023640

LSLUN: :

000000

L3DESP: :

010246

L$LOAD: :

104035

LSETP: :

000000

L$ICP::

020452

L$CCP::

022046

LSACP: :

021756

L$PRT::

020444

LSTEST::

000000

LSDLY::

000000

LSHIME: :

000000

.EVEN

.BYTE

(SEDIT

WORD
WORD

O
O

WORD

.WORD

LS$DVTYP

WORD

.WORD

L$DU

WORD

.WORD

LS$DESC

EMT

ES$LOAD

WORD

.WORD

LS$INIT

.WORD

LS$CLEAN

.WORD

L$AUTO

.WORD

LS$PROT

.WORD

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
CZDMID.P11
29-JuL-81 11:32
DISPAT(H TABLE

12:42

3
PAGE 31

SEQ 0030

}%g%

.SBTTL

1364

/1117117777777 7777777770777777777777777777777777777777777/77777777/7777777777777

1365
1366
}%g

:/ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
:/ IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.
/1111117077770 777077777777777777777777777777777777777777/77777777777777777777

1369
1370
1371
1372
1373

002122
002122
002124
002124
002126

1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390

002132
002134
002136
002140
002142
002144
0C2146
002150
002152
002154
002156
002160
002162
002164
002166
002170

1374

1391
1392
1393
1394
1395

DISPATCH TABLE

002130

000023
023720

024230
025544

025676
026724
030136
030716
031340
032042
032554
033000
033160
034064
034614
036360
036462
036550
036620
036670

DISPATCH 19

.WORD
L$DISPATCH::
WORD
.WORD

.WORD

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

19
T1

T2
T3

T4
TS
T6
T7
T8
T9
T10
TN
T12
T13
T14
T15
T16
T17
T18
T19

(ZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42
CZDMID.P11
29-JuL-81 11:32
DEFAULT HARDWARE P-TABLE
1397

.SBTTL

1398
1399
1400
1401
1402
1403

i
il
ol
il sl
cld
s
)

SEQ 0031

DEFAULT HARDWARE P-TABLE

;/ BELOW ARE NOT USED IN THIS DIAGNOSTIC BUT ARE INCLUDED TO AGREE WITH
;/ M8207 & M8203 DIAGNOSTIC P-TABLES.

SIITIIITIIIT777 7707777777777 777777777777777777777777777777777777777717777777

[0 “RNTo NV, P NN § E]

i
conlh sy

2W o o o

P
sl cld o
il

3
PAGE 32

SITITTITITIIIT7 77777777 0777777777777777777777777777777777777777777777777/77777
:/ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
:/ THE TEST-DEVICE PARAMETERS.
**NOTE = MANY OF THE P-TABLE VALUES LISTED

002172
002172
002174
002174

POl 2F 2

000013

002216

002222
002222

DFPTBL

LSHW::

.WORD

DFPTBL::

000000
160170

002220

BGNHW

000300
000000
000000
000000
000000
000000
000005
000000
000000

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.'"RD
.WURD
. WORD
-WORD
.WORD

ENDHW

160170

000
000

; **NOT USED = MICROPROCESSOR TYPE
:DMR11 CSR UNIBUS ADDRESS DEFAULT
;DMR11 INTERRUPT VECTOR DEFAULT
;Q'NOT USED = PRIORITY LEVEL
- xxNOT USED = LINE UNIT
; *xNOT USED - SWITCH PACK #1 (REG 11)
; **NOT USED = SWITCH PACK #2 (REG 15)

USED - SWITCH PACK #3 (REG 16)
. CABLE TURNAROUND (DEFAULT = CABLE(5))
;x*NOT

s **NOT USED - BAUD RATE
. «*NOT USED = RUN SWITCH

L10000:

L10000=L $HW/2

12:42
29-JuL-81
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
DEFAULT
SOF
TWARE
P-TABLE
C(ZDMID.P11
29-JuL-81 11:32
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447

1448
1449
1450
1451

.SBTTL

PAGE 33

SEQ 0032

DEFAULT SOF TWARE P=-TABLE

SIIIITTII TP 7777707777007 7777777777777777777777777777777777777777771777777777
;/ THE SOF TWARE P-TABLE CONTAINS THE VALUE OF THE PROGRAM
;/ PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.
SIIIITTIIIII77 7777777770077 7 7777777777777 77777777777777777777777717777717777

002222
002222
002224
002224
002224
002226
002226

000001

BGNSW

SFPTRL

LESW::

::
SFPTBL

000005

SPEED:

ENDSW

.WORD

;PROCESSOR SPEED VARIABLE USED
;TO ALTER THE WAIT VARIABLES.

L10001:

.WORD

L10001=-L$Sw/2

12:42
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
CZDMID.P1T
29-JuL=-81 11:32
GLOBAL EQUATES SECTION
1452
1453
1454
1455
1456
1457
1458
1459
1460

1461
1462
1463
1464
1465

1466

1467
1468
1469
1470
1471
1472

1473
1474
1475

1476

1477
1478
1479

1480
1481
1482
1483
1484
1485
1486

1487

1488
1489
1490
1491
1492

.SBTTL

PAGE 34

SEQ 0033

GLOBAL EQUATES SECTION

SIIIITIITIIITT7 7777777777777 7777777777777777777777777777777777777777777777777
i/
THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
o/
ARE USED IN MORE THAN ONE TE
////////////////////////////////////////////////////////////////////////’////

002226

EQUALS

; BIT DIFINITIONS
100000

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

BIT15== 100000
BIT14== 40000

BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BIT08==
BITO07==
BITO6==

20000
10000
4000
2000
1000
400
200
100

BIT03==
BIT02==
BITO1==
BIT00==

10
4
2
1

BIT9==
BI 8==
BIT7==

BIT09
BITO8
BITO07

BIT5==
BIT4==
BIT3==
BIT2==
BIT1==

BITOS
BITO4
BITO3
BIT02
BITO1
BITO0

BITO5==
40
BIT04== 20

BITé==

BITO==

BIT06

; EVENT FLAG_DEFINITIONS
;
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

1493

1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507

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

30
31.
30.
29.
28.

* PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140

;

START COMMAND WAS

ISSUED

RESTART COMMAND WAS ISSUED

;

A POWER-FAIL/POWER=UP OCCURRED

; CONTINUE COMMAND WAS SSUED
: A NEW PASS HAS BEEN STARTED

—

00010C
000040
000000

e e g g g
e

e e g g
B
B

3
PAGE 35

SEQ 0034

PRI02== 100
PRIO1== 40

PRI00== 0

000004

EVL==

LOT==

ADR==

IDU==
ISR==
UAM==
BOE==

PNT==
PRI==
IXE==
IBE==
1ER==
LOE==
HOE==

40
100
200
400

1000
2000

4000
10000
20000
40000

100000

;:ttt 1222232322323 222

22223223222

iRttt

)

(%]

2322233232222

2223222222t R0ttt
tRRddldl

*SWITCH REGISTER OPTIONS
sW15=
SW14=
swi3=
swi12=
SW1l=
Sw10=
Sw09=
SwW08=
Swo7=
Sw06=
SW05=
SWo4=
Swo3=
Sw02=
Swo1=
Swoo=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1

YT Y Y

Yp—

——— ———

;OPERATOR FLAG BITS

mmmmmmmm&mmmmwmmmmmmmmmmmmmmwmmwmm
= = Db D D
D
R WWWWROINNNNNNVNNIN

CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42
CZDMID.P11
GLOBAL EQUATES SECTION
29-JuL-81 11:32

[T T ST YUY YO

TS Y

';'.'tlttfitltttt't't.tt'ttttttttfit'it'.'t'it*ii"ti"ttt'.tt.'."tt'tt!

“:CSR AND STAUS WORD DEF INITIONS
*%SELO (CSR) - BSELO/BSEL1

RUN=
MCLR=
MDIAG=
STLU=
LPLU=
ROMO=

BIT15
BIT14
BIT13
BIT12
BIT11
BIT10

;SET _IF RUNNING
sMASTER CLEAR OF
:CSR MAINTENANCE
:CSR MAINTENANCE
s CSR MAINTENANCE
:CSR MAINTENANCE

STuP=

BITS8

: CSR MAINTENANCE - USED WITH LOOP LU

ROMI=

RDI=

IESET=

BIT9

BIT7

BIT6

PROCESSOR AND LINE UNIT

= ENABLE MICRODIAGNOSTICS
= STEP LINE UNIT
= LINE UNIT LOOP

s CSR MAINTENANCE
;WHEN ASSERTED,

XMITTER SHIFTS;

;CSR = DMR11 READY RESPONSE

CLEAR, REC.

:CSR = INTERRUPT ENABLE INPUT = DMR11

SHIFTS

INTERRUPTS

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42
CZDMID.P11
GLOBAL EQUATES SECTION
29-JuL-81 11:32
1564
1565
1566
1567
1568
1569
1570
1571

3
PAGE 36

SEQ 0035

:CPU WHEN RD]I SET IN RESPONSE TO RQI BEING SET.

000040
000020

RQI=

BITS

000004

RCv=

BIT2

;CSR = INTERRUPT ENABLE INPUT = DMR11 INTERRUPTS
;CPU WHEN RDI CLEARS IN RESPONSE TO RQI BEING CLEAR.
;s (DMR RUN MODE ONLY)
:CSR IF O, TRANSMIT
&
IF 1, RECEIVE

000200
000100

;:SEL2 - BSEL2/BSEL3
RDO=
BIT?7
IEO=
BIT6

;SEL2 = DMR11 SETS TO INDICATE DATA READY FOR OUTPUT
:SELZ2 = SET TO ENABLE DMR11 TO INTERRUPT WHEN RDO

IECLR=

BIT4

::SEL6 - BSEL6/BSEL7

020000

BASEUP= BIT13

010000

RES=

BIT12

010000
004000

CTS=
SECN=

BIT12
BITN

002000
002000
001000
000400
000522

HDX=

BIT10

DMR=

BIT8!122

(D=
HALTC=
MAINT=

NXM=

STREC=
DISCON=
DTR=
DMRRUN=

BIT10
BIT9
BITS8

BIT8

BIT7
BIT6
BIT6
BITS

TOLONG= BIT4

MAINT1=
MNTREC=
NOBFR=
MAINT2=
TOUT=
NAKS=

BIT3
BIT3
BIT?2
BIT2
BIT1
BITO

AR A AR A A A A A AR A A

;CSR = REQUEST IN

;SEL6 = CONTROL OUT = RESPONSE TO DMR MODE BASE
3
TABLE UPDATE COMMAND.
:SEL6 = BASE IN == WHEN SET CAUSES

:
;SEL6 :SEL6 =
3

RESUMPTION OF OPERATION
CONTROL OUT = CTS FAILED
CONTROL IN == START TIME (3 SEC IF SET
1 SEC IF CLEAR)

;SEL6 = HALF-DUPLEX

CLEAR FOR FULL=DUPLEX

;SEL6 = CONTROL OUT = CD GLITCHED
;SEL6 = EXTENDED CONTROL OUT = HALT COMPLETED
;SEL6 = DDCMP MAINTENANCE DURING CONTROL IN

sSEL6 = BASE IN == SET FOR DMR11 MODE

3
122 IS THE DMR PASSWORD FOR BSEL6 AND
BIT8 SETS THE DMR MODE BIT IN BSEL7
:
;SEL6 = CONTROL OUT = NON EXISTENT MEMORY
;SEL6
sSEL6
;SEL6
;SEL6

- CONTROL OUT
= CONTROL OUT
= MODEM WRITE
= CONTROL OUT

=
=
=
=

START RECEIVED
DISCONNECT
DATA TERMINAL READY
DMR RUN MODE

;SEL6
;SEL6
;SEL6
:SEL6
;SEL6
:SEL6

=
=
=

=
=
=
=
=

LOCAL MODEM LOOPBACK
MAINTENANCE MSG. RECEIVED
NO BUFFER
REMOTE MODEM LOOPBACK

:SEL6 = CONTROL OUT = MESSAGE TOO LONG

MODEM WRITE
CONTROL OUT
CONTROL OUT
MODEM WRITE
CONTROL OUT
CONTROL OUT

TIME OUT
NAKS THRESHOLD EXCEEDED

AR AR R AR A A AR AR A AR AR ARAR AR A AR AR AR AR AR

::DDCMP COMMANDS - BITS O & 1 IN SELO AND SEL2

2
b
b
b cud end anh =
b cub

VNN

WN=O

b
b
-

oooooororOrOAMONONON

1608

: INPUT (SELO)

AR AR

BACCT=
CNTRL=

0
1

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

BASEI=

;BASE IN COMMAND

HLT=

BACCR=
4
WMODEM= 5
EXERR= 6

DXERR= 7
DDMC=
10
UPDATE= 11
TIMER=
12
THRESH= 13

sHALT COMMAND

;BUF ADDRESS AND CHARACTER COUNT RECEIVE
;WRITE MODEM STATUS REGISTER
;ENABLE EXTENDED ERROR NOTIFICATION

;DISABLE EXTENDED ERROR NOTIFICATION
sDESELECT DMC LINE MODE
;REQUEST BASE TABLE UPDATE
;SET REP/SELECT TIMER VALUE
;SET THE FOLLOWING THRESHOLDS:

;

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42
CZDMID.P11
29-JUL=81 11:32
GLOBAL EQUATES SECTION
1620

PAGE 37

SEQ 0036

:NAKS RECVD
:NAKS SENT

000014
000015
000017

RRAM=
14
INTER=
15
RMODEM= 17

000007

tMD=

;OUTPUT (SEL2)
7

*REP/SEL
:NO BUFFER
:READ M8207 RAM (0-377)
‘WRITE INTERFACE IN AX3=15
:READ MODEM STATUS (=NOP)

NOTE: CNTRL IS USED FOR SEL2

; ** MASK USED TO CLEAR COMMAND BITS 0=2 #*

:;lfi'tttttt*ttl’ttfittttt*ii'i'*fi*'tiil‘fifi.*fi*fi*t***t"ti'i*'t".ilt.".t'

:BASE TABLE OFFSETS

000042

000055

PRETIM= 55

000043
000044
000045
000046

N=
A=
T=
X=

000060
000062
000064
000066
000072

THIL=
THL=
TH3L=
TH4L=
ISP7=

000076

43
44
45
46
60
62
64
€6
72

ISP13= 76

;NOTE:

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

: 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 M]CROCODE
:#R - MESSAGE RECEIVED

:#N
:#A
:#T
:#X

- MESSAGE TRANSMITTED
- MESSAGE ACKNOWLEDGED
= NEXT MESSAGE TO BE TRANSMITTED
= LAST COMPLETED TRANSMISSION

:PROGRAMMABLE REP/SEL TIMER VALUE.

: THRESHOLD LEVEL = NAKS RECEIVED .
:THRESHOLD LEVEL = NAKS SENT.
: THRESHOLD LEVEL = REP SENT.
:THRESHOLD LEVEL - NO BUFFER AVAILABLE.
: INAGE OF SCRATCH PAD 7

:IMAGE OF SCRATCH PAD 13

".'i't.t.'*.l'*ttfifiitt'tti".i!tt't"t't.*.t".fi'ttttittt'i"it'*'itfi'itt

:*INSTRUCTION DEF INITIONS
000207

RE TURN=207

;RETURN FROM SUB.

JSR PC]

::t..fi'ttl’l"tttl'"tttti'it'QtitttitQt'ti.*.'it'.i't""'t."'itt"ttt.t

: MISC. EQUATES
000006
000007
000015
000012

LLOOP=
RLOOP=
CR=
LF=

6
7
15
12

:LOCAL MODEM LOOPBACK
:REMOTE MODEM LOOPBACK.
:ASCII CARRIAGE RETURN
:ASCII LINE FEED

g%gopgw-n FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
GLOBAL DATA SECTION
29-JuL-81 11:32
.SBTTL

1666

1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680

12:42

3
PAGE 38

SEQ 0037

GLOBAL DATA SECTION

SITIITIIITITTIT 7707777700070 7070707777777777777777777777777777777777777777/77777

4
i/

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
IN MORE THAN ONE TEST.

SIITIITITI777 770777777070 07077777777777777777777777777777777777777777777777777

i i

ittt

:DMR11 VECTOR AND REGISTER INDIRECT POINTERS
DMRVEC:
DMTVEC:
CSR:
SEL2:
SEL4:
SEL6:
SELO=
BSELO=
BSEL1:
BSELZ2=
BSEL3:
BSEL4=
BSEL5:
BSEL6=
BSEL7:

1681
1682

1683

.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
(SR
(SR
.WORD
SELZ2
.WORD
SEL4
.WORD
SEL6
.WORD

0
O
0
O
0
O
O

O
O

ittt iiaiiiiiiiiiisiaidd]

;DMR11 RECEIVER INTERRUPT VECTOR
:DMR11 TRANSMITTER INT. VECTOR
sPOINTER TO DMR11 CONTROL STATUS REGISTER
sPOINTER TO DMR11 CONTROL OUT REGISTER (SEL 2)
sPOINTER 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 SELZ2
;POINTER TO SELZ HIGH BYTE
;LOW BYTE OF SEL&
;POINTER TO SEL4 HIGH BYTE
;LOW BYTE OF SEL6
;POINTER TO SEL6 HIGH BYTE

:;i't.tt.tt.tttt'.'itt""'t'.'tti.'t..'tt'ii."'..t.'tt't'..itt.tttt.t

: ;OTHER HARDWARE PARAMETERS
002252
002254
002256

WIYPE:

.WORD

sMICROPROCESSOR TYPE

MICRO:

.WORD

sMICRODIAGNOSTICS (IF 1(YES) = ENABLED)

DMTURN:
SRR

.WORD

AR A AR AR A A AR A AR A AR AR AR AR AR AR

WO
VNV
el

)

-‘—O—MJ-‘—MJ-J-A—qzsgag
gVVNN\‘NVVV\IV

*PROGRAM CONTROL PARAMETERS

-l

:TURN AROUND TYPE (0-7)
AR AR

AR AR A AR ARk

DMRFLG:

.WORD

INFACE:

.WORD

:THE BASE IN COMMAND. USED TO FLAG THAT
;A DMR MODE ACKNOWLEDGE IS EXPECTED.
sFLAG TO ALLOW_CHANGE OF INTERFACE TYPE

FRSTIM:
FRSPAS:

.WORD
.WORD

O
0

;FLAG=0 IF PROGRAM JUST LOADED
;FLAG=0 IF FIRST PASS AFTER LOAD

STARES:

.WORD

;FLAG SET WHEN DMR MODE IS REQUESTED IN

;BY WRITING AX3-15.

FLAG SET/CLEARED IN INIT.

;FLAG=0 IF 1ST TIME THRU AFTER STA OR RES

;FOLLOWING PARAMETERS ARE USED IN THE
START:

.WORD

DMCMDE:

.WORD

RESUME:

MNTMDE:

MMANAG:

.WORD
.WORD

.WORD

0
0

s INTERRUPT TESTS (TESTS 15-19):

sFLAG SET WHEN A CONTROL IN HAS BEEN ISSUED.

sFLAG SET WHEN A BASE IN WITH RESUME DESIRED.

sFLAG SET WHEN A BASE IN WITH DMC MODE DESIRED
sFLAG SET WHEN MAINTENANCE MODE IS DESIRED.

;FLAG RETURNED IN THE SUBROUTINE $BUFFS

29-JUL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32
GLOBAL DATA SECTION

002304

000000

AX3:

WMAINT:

.WORD

002310

000000

:
MANUF

.WORD

;BIT PATTERN TO WRITE INTO AX3-15, WHEN
;1T IS REQUESTED TO ALLOW INTERFACE
sSELECTION. (TEST CONFIGURATION 1-4)

:BIT4 = V.35
:BITé = EIA
;BIT7 = RS422

JFLAG SET WHEN IT IS NECESSARY TO URITE

MODEM MAINTENANCE BITS (MAINTENANCE
1 & 2)
:THIS FLAG IS SET OR CLEARED IN THE INIT CODE.
sunnnnns MANUFACTURING USE ONLY wxtwwsnwn

;THIS WORD MAY BE PATCHED TO A NON ZERO WHEN
JMANUFACTURING SPECIAL TEST CONNECTORS ARE
:ggfgé SE?IS WILL ALLOW MAINTENANCE BITS

SRR A AR

TEMP1:

:
SAVE

FLAG:

sCOUNTER FOR # OF
;COUNTER FOR # OF
sCOUNTER FOR # OF
;COUNTER FOR # OF

NXMFLG:

INFLAG:

OUTFLG:
RESFLG:

;# OF RECEIVE & TRANSMIT BUFFERS. THIS
;VARIABLE IS USED IN THE SUBROUTINE $BUFFS
BA/CC IN RECEIVES.
BA/CC IN TRANSMITS.
BA/CC OUT RECEIVES.
BA/CC OUT TRANSMITS.

AR RAAAAAAAAAAAA AR RAAAAAAAAARAAAARAAAARAAARAARAAAA
A AR AR AR AR RS

SFLAG:
SKIP:

:AND SCLRQI SUBROUTINES.

:VALUE FOR TIMEOUT COUNTER USED IN SINOUT.
:WORD USED AS OUTER LOOP COUNTER IN SINOUT.
:CALCULATED BUFFER SIZE IN BYTES.

;* MISCELLANEOUS STORAGE
TEMP:

:VALUE FOR TIMEOUT COUNTER
;USED IN SWAIT SUBROUTINE
;VALUE FOR TIMEOUT COUNTER USED IN SMSCLR

o000

WAITZ2:

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

lelelele)

WAIT1:

;PROGRAM VARIABLES

1764

SEQ 0038

;:t'ttttfittt.titttt'tt.tt't"..t'tt.tt....fit...."t.....t."'t..""t.'

INRCV:
INXMIT:
OUTRCV:
:
OUTXMT

1763

000000

1756
1757
1758

1759

.WORD

002306

WAITS3:
WAITG:
BUFSIZ:
BUFNUM:

1760
1761
1762

PAGE 39

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

1750
1751
1752

1753
1754
1755

sMMANAG=1, MEMORY MANAGED BUFFERS USED

OO0O0O0O0O

1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749

12:42

:STORAGE FOR TURNAROUND TYPE
sSCRATCH WORD USED FOR MISC. STORAGE IN SUB.
sSCRATCH WORD USED FOR MISC. STORAGE IN SUB.
:SCRATCH WORD USED FOR MISC. FLAG IN SUB.
:FLAG USED IN TEST 15 FOR LOOP CONTROL.

:FLAG USED IN TEST 7 TO MARK WHETHER TO SKIP
:A PORTION OF

THE TEST.

:FLAG USED TO MARK THAT THE DMR ADDRESS IS NXM
;FLAG USED IN INISR TO FLAG WHEN ALL THE
;BA/CC INS HAVE BEEN DONE.
sFLAG USED IN OUTISR TO FLAG WHEN ALL THE
:BA/CC OUTS HAVE BEEN DONE.
sFLAG USED IN IN ISR TO FLAG THAT THE RESUME

ERRFLG:

002364

000000

LAST:

002366
002370
002372
002374
002376

000000
000000
000000

ERROR:
LOGDEV:

002400

LOCRC:
HICRC:
LOWORD:

002402
002404
002406
002410
002412
002414

HIWORD:
ROMADR:

;WORD USED TO STORE LAST COMMAND PROCESSED IN
s THE INPUT INTERRUPT ROUTINE.
:ERROR STORAGE
;LOGICAL DEVICE NUMBER
s CONTAINS BASE LEVEL PROGRAM SP
;PC OF SUBR CALL FOR ERROR REPORTS
;FLAG TO NOTIFY WHEN A SUBR IS NESTED
;IN ANOTHER SUBROUTINE (WHEN SET)
:ET%&RUORD IS INCREMENTED DURING EACH MASTER

;ROM CHECK VARAIBLES

;CRC STORAGE FOR LOW BYTE CHIP

;CRC STORAGE FOR HIGH BYTE CHIP
:TEMP. WORD CONTAINING 2 CONSECUTIVE LOW BYTES
;TEMP. WORD CONTAINING 2 CONSECUTIVE HI BYTES
;POINTER TO ROM ADDRESS.
;CHIP NUMBER BEING CHECKED.
;COUNTER USED IN THE SWAIT SUBROUTINE.

AR AR AR AR AR AR A AR A AR AR AR

AR AR AR AR AR A A AR AR AR AR AR AR AR

AR AR A AR

AR AR

A AR AR AR AR

ARk

d
n

** CCITT PSUEDO-RANDOM TEST PATTERN #=

THE FOLLOWING 32 WORDS TRANSLATE INTO A 512 BIT PATTERN
THAT WAS GENERATED ACCORDING TO CCITT RECOMMENDATION V.52.

WN=O

THIS

PATTERN WAS GENERATED BY A 9 BIT SHIFT REGISTER (INITIALIZED
AS 1S) WHOSE 5TH AND 9TH BITS 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

016741

177603,157427.031011

047321,163715,105221

—

166632.016741°

o
o

»H

031605

o
W

143325,142304,040041
52606,17334

031011
105221

157427
163715
142304

ON A WORD BOUNDARY.

177603

$CCITT:

i ch ad wid
e cd
ol

SEQ 0039

;COMMAND HAS JUST BEEN ISSUED.
sFLAG USED IN THE WAIT SUBROUTINES (SWAIT
; & SCLRQI) TO RETURN ERROR CONDITON (SEC)

SRR AR AR A AR AR A AR AR AR AR AR

RORRS

3
PAGE 40

THIS WILL ALLOW EVERY OTHER MASTER

CHIPNO:
COUNT:

002416

VNNV

e
D e
)
)
D

;CLEAR TO RUN THE MICRO TESTS.

2 :BUFFER AREA

) e
D

CLRNO:

:
SUBRPC(
NESTPC:

00 00 00 0 0o 0o 0o 00 0o 0o

e
—

PSTACK:

OO0O0O0O

000000

002362

DD D DD LD

D D DD

o3 CEEERFRFERERE

1779
1780
1781

12:42

OOOOOOO

1778

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
CZDMID.P11
GLOBAL DATA SECTION
29-JuUL-81 11:32

A AR AR AR A AR A AAARARAA AR RN IR AAAAARARARAAANRARRARA
AR AR AR
AR
SS

;; TRANSMIT BUFFER (SMALL)
002520

TFLAG:

. WORD

;FLAG FOR STATUS OF

TRANSMIT BUFFER

E%g:}gop?qfl-11 FUNCTIONAL TESTS MACY11 30A(1052)

GLOBAL DATA SECTION

29-JuL-81 11:32

1834

043105
046113
051121
054127
031462
034470

SN0 o lo iaNTo AVLE IV

00 0o 0o 0o 0o

o —

D e

- —

N) -—

RRPRRIR RR

1835
1836
1837
1838
1839
1840

PAGE 41

SEQ 0040

; CHARACTER COUNT OF TBUF
/ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/

1 RECEIVE BUFFER (SMALL)
RFLAG:
.WORD
RCOUNT= 36.
RBUF :
.BLKB

002570
002572

_—

;FLAG FOR STATUS OF RECEIVE BUFFER
;CHARACTER COUNT OF RBUF
:36. BYTE BUFFER + 2 BYTES USED

38.

;TO MARK THE END OF

232232332323 223232322 222233022322

3222222

THE RECEIVE BUFFER

2202202222202

RRR2R22Rd

s+ BASE TABLE

ZRREREREE
S

';Qtfitt.t"'.'ttttttttt"t""tl..".i.'fi'ti'...'.'.....'....'l.'t...t.

1869

TCOUNT= 36.
TBUF :
LASCIZ

12:42

.EVEN

1855

1857

29-JUL-81

002640

000400

BASE :

.BLKB

256.

2222222222222

sMICROPROCESSOR MEMORY ALLOCATION
2022223222222

22220

R0l

]

;. TRANSMIT AND RECEIVE BUFFER POINTERS
003240

000200

XMTBUF: .BLKW

128.

003640

000200

RCVBUF:

128.

.BLKW

;POINTERS TO TRANSMIT BUFFERS (UP TO 64)
;1 WORD FOR ADDRESS AND 1 WORD FOR CHAR.
;POINTERS TO RECEIVE BUFFERS (UP TO 64).

::'*i'ttttt'ttttttttfitttt"i!t*tttttttt'tQtt'lt'ttitiititfifififii"t.'t"t

;; BUFFER AREA (LARGE)
004240

004000

BIGBUF:

.BLKB

4000

;MAX BUFFER (2K BYTES)

COUNT

E%g:%gOP??R-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
GLOBAL TEXT SECTION
29-JuL-81 11:32
.SBTTL

PAGE 42

SEQ 0041

GLOBAL TEXT SECTION

8938333823883

12:42

38380888 8088080080823 038380383 823000008088 20 0000080000700 %¢

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

0%
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
MORE THAN ONE TEST,
0%
P 3838383303838 8 3838080880888 08y e 2803880383883 8 0880808838078 80 780347

::""'*'fi.'.'...t.'.fi""'-".....H'Q.'.'...‘..."'.."."'."Q.'.'Q"...Q".

;* NAMES OF DEVICES SUPPORTED BY PROGRAM

::*.Q'."'.*"""'fi'.""'."...'...'.".'.""'."..'...'.'.'.fi.."""""'

010240
010240
010240

DEVTYP
046504

030522

1893

<DMR11>

LSDVTYP::
.ASCIZ

000061

.EVEN

/DMR11/

'tttttt'tttttttttttttit"'t.'t*.t.t'.'i""tfititttl"tfitt*.tltfii'Q"'ii."""

3E3EREREE B2

WA
=

1880

.' TITLE OF PROGRAM

Q'ttfitttfittfitt'fittttt'ttt'ttt'tttfiit*ttttififittttttttfi'tttt*'*"ttt'tti'ttQ"tt

010246
010246
010246
010254
010262
010270

DESCRIPT

046504
043040
047511
042524

026522
047125

040516
052123

<DMR=11 FUNCTIONAL

TESTS>

030461
052103
020114
000123

L$DESC::

.ASCIZ

.EVEN

. FORMAT STATEMENTS USED IN PRINT CALLS

/DMR=11 FUNCTION

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
29-JuL-81 11:32
GLOBAL SUBROUTINES

12:42

PAGE 43

SEQ 0042

GLOBAL SUBROUTINES

/////////////////////////////////////////////////////////////////////////////
THE GLOBAL SUBROUTINES ARE CALLED BY MORE THAN ONE TEST

/////////////////////////////////////////////////////////////////////////////
1232332232223

322223022220200
2232222222
R
d22 R
R Rsddd )

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

NORMAL MACROS -

2. DMR11 FUNCTIONAL 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.

:t'tt.tltttt*ttt'ttttt'tt't't*'.‘"I.'ttt'.fi.fi.'tifitt'tti‘ti'ttt."tt.

NN,

tttttttttt'tttt'ttfitttt'itttt.i.t.t.'.tt'*.tt'.tttlttttfi'fitfititt"'t'

"CALL MACRO - CALL ROUTINE
= JSR PC, ROUTINE

d =D

W= O O

d
D
D
D
b

n—

)

.SBTTL

oV VS

il o
ol

) ol il sd o

00000V VOOLO

il -

CZDMID.P11

;tttt*ttitt't*ttt*ttttt"itttt!t.'t.t".ttt'.ttt.t"Qtt't'i"ttt'ttttt

(NOTE:

RETURN IS

EQUATED TO A RTS PC)

.MACRO
.IF
'52§?$

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

.ENDC
JSR
. ENDM

PC.ROUTIN

ttt*ttttttifittttttttt'tt't*fittfittttttttltttt'itttifi'ittt't‘t*t'ttttti

"WAIT $FLAG MACRO - THIS MACRO INTERPUTS THE $FLAG AS RDI, RQI OR RDO.
IF RDI OR RDO, THE SUBROUTINE CALLED WILL WAIT UNTIL
THE RESPECTIVE BIT IS SET.

IF RQI,

THE SUBROUTINE

CALLED WILL CLEAR RQI AND WAIT UNTIL RDI
TR

AR A AR A A A A A A AR A A ARARR R A AR A AR AR AR AR AR

.MACRO WAIT
.NLIST
.LIST ME
LLIST

.IF

.5?§?§

"ENDC

IF
Jgsoc

LIF

JSR

$FLAG

(AG

IS CLEARED.

AR ARk

$FLAG

sxxxx MACRO EXPANSION #»=xx

:## MISSING FLAG FOR WAIT - EXPANSION ABORT ##

IDN $FLAG,RQI
PC, $CLRQI

IDN $FLAG,RDI

PC, SWAIT
WORD

A AR AR A A AR A AR A A AR

IDN $FLAG,RDO

PC, SWAIT

:CLEAR RQ] AND WAIT FOR IT

:CALL WAIT ROUTINE

TO BE CLEARED.

*FLAG THAT WE'RE WAITING FOR RDI

sCALL WAIT ROUTINE

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL=-81
(ZOMID.PN
29-JuL-81 11:32
GLOBAL SUBROUTINES
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983

1984
1985

.ENDC

12:42

WORD

4
PAGE 44

SEQ 0043

;FLAG THAT WE'RE WAITING FOR RDO
:tt'.

LA A 24

NLIST ME
.ENDM
:'""tttt'tt*"fi'ifiQ'fi""'ti'tfi"'.t'fi'tt'tttt".'Qtt"'t.t.."""l'

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

$MSCLR SUBROUT INE

g g
T T T
T

C(LEAR
.MACRO
NLIST
LLIST ME
LIST

JSR

PC,

$MSCLR

sxxxx MACRO EXPANSION ww#w

s ISSUE A DMR MASTER CLEAR

TEEER

NLIST ME
.ENDM

Taxw

[

MRt
S
SOt

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL=-81
(ZDMID.P11
29-JuL=81 11:32
GLOBAL SUBROUTINES
1986

1987
1988
1989

1990

R AR R

AR AR AR

12:42
AR AR

R RN

4
PAGE 45
AR AR AR AR

AR AR AN A AN A

$A,$8,%(C

1997
1998
1999

JSR

2001

IFF

.WORD

DMR

1996

2000
2002
2003
2004
2005

JSR

2014

2015
2016

;
:

R AR AR AR AR RAR AR

AN RA AR

saxxx MACRO EXPANSION *»xx

;CALL BASE IN ROUTINE
JMAINTENANCE MODE BITS TO SET IN BSEL1
;BASE TABLE ADDRESS
s MODE

NLIST ME
.ENDM

;DMR-11 MODE

JRRRK

E R AR

(222

AR AR AR AR AR AR AR AR AN RN AR AN AN AR AR AR AR

R RN

CNTRIN MACRO = THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE
$CNTIN SUBROUTINE (WITH DEFAULT ARGUMENTS

IF ARGUMENTS NOT GIVEN)

AR AR AR KA

.MACRO
CNTRIN
NLIST
.LIST ME
L 15T

R RN A R

B
$A
FPC, SCNTIN
.WORD
O

2028
2029
2030

JSR

PC, $CNTIN
.WORD
%A

2032

NLIST ME

.ENDC
.ENDM

AR R R

AR AR AR AR

AR RR R

R RN

% L
JSR
-

2033
2034

AR AR

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

2008
2009
2010
2011
2012

2031

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS

ENDC

2019
2020
2021
2022
2023
2024
2025
585?

PC, $BASEI]
.WORD
LPLU
.WORD
BASE

2006

2007

2017

R AR AR AR RN R AR AR AR AR

.MACRO BASEIN
NLIST
.LIST ME
LIST

2018

SEQ 0044

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

1991
1992
1993
1994
1995

2013

saxxx MACRO EXPANSION *xx»
sCALL CONTROL IN ROUTINE WITH DEFAULT
;sSEL6 = FULL DUPLEX, RUN MODE, 7 SEC START.

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

ERRR

(ZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
CZDMID.P1
29-JuL-81 11:32
GLOBAL SUBROUTINES
e

2332322323222

12:42

PAGE 46

223232223 2223222232322

: 'DMRIN MACRO =

SEQ 0045
222222222

RRtRRdR

THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE

;

$DMRIN SUBROUT INE

::'Q'".""t"'.'t..t't't"t."'*Q"i".'tt.t't't"t'.t""""t..Q'.'

.MACRO

DMRIN

IF
.gg§?$

B
$A
DMRIN; ## MISSING ARGUMENTS-EXPANSION ABORT ##

.NLIST

-ENDC

JSR

$A,$B,$(

sxxxx MACRO EXPANSION #%x«

IF
-

PC, $DMRIN
.WORD
$A
B
$B8
WORD
O

:CALL DMR MODE INPUT ROUTINE
*INPUT COMMAND

.ENDC

.WORD

:SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)

CIF

WORD

:NO SEL6

LWORD

:SEL6 VALUE (OR BITS TO SET IN BSEL6)

.ENDC

:NO SEL4

:t'tt

L2 8

NLIST ME
ENDM

::.ti'tttttttttitttfitt""it"'tltttittttttttfittt'fi't'fiit'fitiitittttt't

; SHUTDN MACRO = THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE
$HALT SUBROUT INE
:
R

2222222232 2223022232222322323232
2 222222222
220320022
RRRRRR R R R ]

.MACRO

SHUTDN

JSR

PC,

NLIST
LLIST ME
LLIST

NLIST ME
.ENDM

$HALT

sxxxx MACRO EXPANSION *xxx
;DMR HALT ROUTINE.
:ttt-

LA A 2

| CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11
CZOMID.P11
29=JUL=81 11:32

30A(1052)
29-JUL-81
GLOBAL SUBROUTINES

2081

RN R AR

2082
2083
2084

; BACCIR MACRO =
:
:

2085

R AR AR AR AR

IF
JSR

2094
5882

2101

.ENDC

2103

NLIST ME

2160

Choarvantwnnr~ChocvawnbwumracfigurvShngz

00000

LV LV S LN TSI TN

; BACCIT MACRO =
:
:

D
i

RRRRRARR AR

RRR

e T

$A.$B

saxxx MACRO EXPANSION xxxx

.WORD

$B8

;BA BITS 16/17 AND CHAR. COUNT

JRRAR

2323

.ENDM

SRR

d e

R AR RARARR AR AR

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

LS LN N 1,8 )

2102

AR AR

.MACRO

.NLIST
LIST ME
LIS

.IF
JSR

JSR

AR AR

A AR AR AR AR AR AR AR AR

AR AR AR AR

THIS IS A DMR FUNCTIONAL MACRO WHICH CALLS THE
$BACC SUBROUTINE (WITH DEFAULT ARGUMENTS
IF ARGUMENTS NOT GIVEN)

AR AR AR

ot o

D el

B
A
PC, $BACC
;sCALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI !BACCR
sBA/CC IN RECEIVE COMMAND
.WORD
RBUF
sRECEIVE BUFFER
.WORD
RCOUNT
RECEIVE CHARACTER cCour.T

JSR

ol e

RN R AR AR

SEQ 0046

IF ARGUMENTS NOT GIVEN)

2097
2098
2099

WRNINNUNINDNONINUNUN)
= = b BB D0 e e a

PAGE 47

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

.MACRO BA(CCIR
NLIST
LLIST ME
LIST

2093

LSLSLSTNLST
SN LSENTNTS LS LN

R R

2086
2087
2088
2089
2090
2091
2092

12:42

R AR R R ERRRR AR AR AR RRRR AR AR

BACCIT

AR RN RRRR

AR RRR

$A.$8

suxxx MACRO EXPANSION wwxx
B
$A
PC, $BACC
:CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI'!BACCT
:BA/CC IN TRANSMIT COMMAND
.WORD
TBUF
: TRANSMIT BUFFER ADDRESS
.WORD
TCOUNT
;TRANSMIT CHARACTER COUNT

PC, $BACC
:CALL BA/CC IN ROUTINE
.WORD
RQI'!BACCT
:BA/CC IN TRANSMIT COMMAND

.WORD
.WORD

$A
$B

;BUFFER ADDRESS BITS 0-15
;BA BITS 16 & 17 AND CHAR. COUNT
"t't.

NLIST ME
.ENDM

LA 2

[
(ZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

29-JUL-81

GLOBAL SUBROUTINES

29-JuL-81 11:32

12:42

PAGE 48

SEQ 0047

':'tttttt't'."'tt."""'.Q't'..t.'t"'.t'..'Q.'.!t..t't"'........'..

BUFARU

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

CALLING FORMAT:

=00

d
i
)
) =D
cod o ad

FUNCTION =

JSR
.WORD

PC,
FLAG

SWAIT

(MACRO CALL == WAIT RDI)

SUBROUTINE SWAIT

HsEW

rororoNrOrRONNON
N

':ttttt'.."."tfi!...""'i""..'.l'.l..'Q.'.Q.'.'Q..'tt"..".t'....'

NESTING LEVEL

2143

MAY BE CALLED FROM ANOTHER SUBROUTINE

ENTRY CONDITIONS - FLAG

WAIT FOR RDO

WAIT FOR RDI

WAIT1 = DELAY COUNTER (DETERMINED IN INIT.)
NESTPC= 1
=
ROUTINE NESTED WITHIN ANOTHER

=0
EXIT CONDITIONS

SUBROUT
INE .
ROUTINE NOT NESTED.

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

';Q'fitt.tttttttfifitttttt'ttt'ttttttl.fifi!fitt'tt.fit".fit't'tt'.t'.'.tt""
':tttttttitt.*.ttt'tttttt"'tifi'ttttt.tttit*'t'ttit."t*ttt"'t.'tt't"

010276
010276

005037

162737

002374
000004

010326
010334

017637
062716

000000
000002

010340
010342
010344

010046
010146
013701

010350
010350
010352
010352
010360

SWAIT:

002362
002416
002376

002374
002340

10%:

002312
30%:

000200

;CLEAR ERROR FLAG
;CLEAR DELAY COUNTER
21S THIS NESTED IN ANOTHER SUBROUTINE?
;YES = USE THE SUBRPC ALREADY CALCULATED.
;SAVE PC AFTER THE CALL TO SWAIT.

MOV
ADD

a(SP) ,TEMP

;GET THE FLAG FOR RDI OR RDO

MOV
MOV
MOV

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

:SAVE RO
:SAVE R1

CLR

s INNER LOOP COUNT OF DELAY COUNTER

BIT

#RDO,aSEL?2
60%

;1S THE RDO BIT SET IN SELZ2?
JYES = EXIT BIT CHECK LOOP.

TST

005000

032777
001036

ERRFLG
COUNT
NESTPC
108
(SP) ,SUBRP(

CLR
CLR

171654

BNE
MOV
SuB

BNE

#4,SUBRP(

#2,(SP)

WAIT1,R1

;BACKUP TO THE PC OF

THE ACTUAL CALL

sINC THE PC LEFT ON THE STACK TO POINT
;PAST THE FLAG ARGUMENT
;DELAY COUNTER DETERMINED BY BAUD RATE

; (DETERMINED IN INIT ROUTINE).

(ZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL=-81
CZDMID. P11
29-JuL-81 11:32
GLOBAL SUBROUTINES
2187

2188
2189
2190
2191
2192

010362

032777
001064
104422

2193

000200

171642

#RDI,aSELO
70%

;IS THE RDI BIT SET IN SELO?
sYES = EX1V
sCALL SUPERVISOR = ALLOW CONSOLE INTERRUPT.

INC
DEC
BNE
DELAY

COUNT
RO
40%
1

; INCREMENT DELAY COUNTER.
;LOOP UNTIL RO RETURNS TO 0

MOV

81,(PC)0

002116

MoV

bSDLY.(PC)*

177772

DEC
BNE

-6(PC)
.~4

000001

;DELAY 100 MICROSECONDS

177756

005301
001344

DEC
BNE
ERRDF

005237
000445

002362

005737
001042
022737
001436

002340

012746
012746
010600

010620
000001

000001

000004
000001

60%:

005237

002362

005737
001410

002340

012746
012746
010600

010653
000001

062706

000004

;TIME OUT ERROR

TRAP

gSERDF

.WORD
.WORD

EMG1
ERRGZ

TST

TEMP

CMP

#CNTRL ,ERROR

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

100%
1008

PRINTB #FMS1

BIT

BEQ

70%:

JREPEAT UNTIL MAXIMUM LOOP SATISFIED.

;SET ERROR FLAG

171512

;BETWEEN LOOPS.

#CNTRL ,@SEL2
1 00%
9,EMG9,ERRGZ

;BRANCH TO COMMON EXIT.

MOV
- MOV
MOV

;1S THIS A CONTROL OUT?
sNO NEED TO CHECK ERROR CODES.
JUNEXPECTED CONTROL OUT.

INC

ERRFLG

;SET ERROR FLAG.

TST

TEMP

sWERE WE WAITING FOR THE RDI
JYES = OK, EXIT

BEQ
PRINTB

100%

100%
#FMS2

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

TRAP
ADD

CSPNTB
#4,SP

TRAP
.WORD

83ERDF

.WORD
.WORD

EMG9
ERRGZ2

FLAG?

;RECEIVED AN RDI, WHEN WAITING FgSVRDO
MOV
MOV

100%:

=22(PC)
.=20

ERRFLG
100%

BNE

002366

R1
308
1,EMG1,ERRG2

DEC
BNE

INC
BR

ERRDF

010570

SEQ 0048

C$BRK

012727
000000
013727
000000
005367
001375
005367
001367

104414

PAGE 49

TRAP

002416

032777

BIT
BNE

BREAK

005237
005300
001363

104455
000001
017716
015124

12:42

TRAP
ADD

#FMS2,=(SP)

#1,-(SP)
SP.RO

CSPNTB
#4,SP

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES
2243
2244

002376

010570

012601
012600
005737
001401
000261

105%:

002362

047045
020117
054105
042105
047045
045
044504

010702

042440
042524

022517

040445
042523
042520
051040
000
022516
051440
050130
020104
000116

;WAS THIS NESTED IN ANOTHER SUBROUT INE?

CLR

SUBRP(

;CLEAR THE PC

MoV
MOV

(SP)+,R1
(SP)+,R0

;RESTORE R1
sRESTORE RO

1108

sIF NOT, RETURN WITH CARRY CLEAR

TST

000207

PAGE 50

NESTPC

BEQ
110%:

TST

BNE

002374

12:42

SEC

105%

ERRFLG

sIF YES = LEAVE THE SUBROUTINE PC ALONE

;WAS TIIERE AN ERROR (CARRY CLEARED ON TST)
;SET CARRY.

RETURN

042122
020124
052103
044504

FMS1:

LASCIZ

/%NXARDO SET EXPECTED RDIZN/

051101
052105
041505
042122

FMS2:

.ASCIZ

/%NXARDI SET EXPECTED RDOZN/

.EVEN

SEQ 0049

CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES

&
PAGE 51

SEQ 0050

IR AR AR AR AR R AR R R AR AR AR AR AR AR AR ARRRANRRARRRARA A
PRI
RR AR R R AR AR
RRRRRRRERARRRARRRARR AR AR AR AR

FUNCTION = TO CLEAR RQI AND WAIT FOR RDI TO BE CLEARED

2275

CALLING FORMAT:

%‘3;3

NESTING LEVEL

2280
2281

:
H

ENTRY CONDITIONS = WAIT2 = DELAY COUNTER (DETERMINED IN INIT. ROUTINE)
NESTPC= 1
=
ROUTINE NESTED WITHIN ANOTHER

Sg;g

2282
gggz

:
:

2285

2287

2286

$CLRQI

= MAY BE NESTED WITHIN ANOTHER SUBROUTINE

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

2289

PC,

(MACRO CALL == WAIT RQI)

2288

JSR

OCCUR.

ALSO A CARRY BIT WIiLL BE SET TO FLAG

THE ERROR FOR THE USER.

2290

%2235

2294

:-:ttttttttttttt'tttttttt'ttttttttttttttttttttittttttttttttttttttttttttt

2291

2295

2296
2297

2298
2299
2300
2301
2302
2302
2304
2305
2306

2307

2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319

2320
2321
2322
2323

REGISTERS DESTROYED - RESTORED

010706
010706

010712
010720
010724
010726
010732
010740
010740
010742
010744
010750
010750
010752
010752
010760
010762
010762
010764
010766
010770
010770
010774

010776
011002
011004
011010

005037

042777
005737
001005
011637
162737

010046
010146
013701

002362

000040
002376
002374
000004

$CLRQI:

171312

002374

002314
12%:

005000

032777
001427

000200

104422
005300
001371
012727
000000
013727
000000
005367
001375

108:

000001

002116
177772

171252

AR AR R AR

A AR AR AR AN AR AR AR AR AR

ARRARARARARRARRARRRA A

CLR
BIC
TST
BNE
MOV
SuB

ERRFLG
#RQJ ,aSELO
NESTPC
108
(SP) ,SUBRPC
#4 ,SUBRPC

;CLEAR ERROR FLAG

JREQUEST INPUT CLEAR
;1S THIS NESTED IN ANOTHER SUBROUTINE?
JYES = USE SUBRPC CALCULATED
sSAVE THE PC AFTER THE CALL TO SWAIT.
;BACKUP TO THE PC OF THE ACTUAL CALL.

MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
WAITZ2,R1

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

CLR

s INNER LOOP COUNT

BIT
BEQ
BREAK

#RDI,QSELO
308

DEC
BNE
DELAY

RO
208
1

;1S THE RDI BIT CLEAR IN SELO?
JYES = EXIT
sCALL SUPERVISOR = ALLOW CONSOLE INTERRUPT.
TRAP
C$BRK
;LOOP UNTIL RO RETURNS TO 0

;BAUD RATE IN INIT ROUTINE)

;DELAY 100 MICROSECONDS

MOV
.WORD
MOV
.WORD
DEC
BNE

#1,(PC)+
O
LSDLY,(PC)+
O
-6(PC)
.~4

———————————————

%%;z

SUBROUTINE $CLRQI

e———————————————————————————————

2270

%5;}

2268
2269

12:42

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
<339
2340
2341
2342
2342
2344
2345

011012
011016
011020
011022
011024
011024
011026
011030
011032
011034
011040
011040
011044
011046
011052
011052
011054
011056
011062
011064
011066
011066

005367
001367
005301
001352
104455
000001
017716
015124
005237
005737
001002
005037

000207

177756

002362
002376
002374

012601

012600
005737
001401
000261

12:42

308
:

40%:

002362
508%:

PAGE 52
DEC
BNE
sREPEAT UNTIL MAXIMUM LOOP SATISFIED.

DEC
BNE
ERRDF

R1
12%
1,EMG1,ERRG2

INC

ERRFLG

:SET ERROR FLAG

TST
BNE
CLR

NESTPC
40%
SUBRPC

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

MOV

(SP)+,R1
(SP)+,R0O
ERRFLG
50%

;RESTORE R1

MOV
TST
BEQ
SEC
RETURN

SEQ 0051

;TIME OUT ERROR

TRAP
.WORD
.WORD
.WORD

=22(PC)
.=20

CSERDF
1
EMG1
ERRGZ2

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

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)

GLOBAL SUBROUTINES

29-JuL-81 11:3¢2

CZDMID.P11

29-JUL-81

12:42

SEQ 0052

PAGE 53

3 Fifgen So== 8

105077

171132

002374

NESTING LEVEL

PC,

JSR

CALLING FORMAT:

$MSCLR

(MACRO CALL == CLEAR)

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

ENTRY CONDITIONS = WAITZ2

CLRNO

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

TESTS BEING RUN ON EVERY OTHER MASTER CLEAR

= DMR11 MICROPROCESSOR INITIALIZED
EXIT CONDITIONS = 1. NO ERROR

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
BIT IS NOT SET.

THERE IS A PATCH AREA TO ALLOW THESE DIAGNOSTICS

NOTE :

TO RUN ON A M8206 (INSTEAD OF M8207).
SHOULD BE FOR DEVELCPMENT USE ONLY.

THIS

REGISTERS DESTROYED = RESTORED
tttttttttttt.tittttttitt.tfi'tfitiitti'ttfit'fifii'fittttt*t'ttit'..'tt'ttt

'tttttti'.t'ttfitttttt'tt'ttttt.'t"fiifit'!t*'tt'tt.t't't."t.t'tt'tt"

" MoV

(SP) ,SUBRP(

:SAVE PC AFTER THE CALL TO SWA(T.

SUB
MOV
MOV

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

:BACKUP TO THE PC OF THE ACTUAL CALL
RO
:SAVE
:SAVE R1

CLRB

aBSEL3

;CLEAR BSEL3

:tfittttfittttttttttttttttttttttttitt.

—

e e

)

e e sS e

NOP

—a

AR AR RAR
ARNRRAA
KRN
JREARAAARRAANRAA

(elelelelele N ele lele]

NOP

002374
000004

TO PERFORM A MASTER CLEAR FOR THE DMR11

FUNCTION =

011637
162737
010046
010146

SUBROUTINE S$MSCLR

—

e S ...........Q...l...l.l~l‘..-...l.l.l...l.l‘....l.l.....'.l.l.l' .

it dt sl d)
R 2322222232222 32222322223333232 223333333233 3323333222232 22322
tdsd
2220222t
22
R 1223222222322 222223222322222323 2222333332333 3332322323222

:xx PATCH AREA FOR 8206 IF NEEDED **
:CLR aW#SEL6 =

NOP
NOP
032737
001004
012777
000403

000001

002400

040000

171072

012777

060000

171062

;1S THIS AN ODD MASTER CLEAR.
= BR
:IF YES

BIT
BNE

#BIT0,CLRNO
7$

MOV

#MCLR'MDIAG,RSELO;ISSUE THE MASTER CLEAR AND TOGGLE

Bngv

g’;CLR.aSELO

:ISSUE A MASTER CLEAR.

;MICRO TEST SWITCH.

D s d
v
b
o
[ P

PNOMNOMNINIMNMNINIMNININ)
= e
i i i
OOON NN

go oSN O

D
il
i
il
B
)l

S il

2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429

cald il

2416

2415

2414

2413

24604
2405
2406
2407
2408
2409
2410
24611
2412

[elelsleleolololeloleleBlele Blelelsls)

29-JuL=81
CZOMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
GLOBAL SUBROUTINES
CZDMID.P11
29-JuL-81 11:32

005237
013701

002400
002314
10%:

032777
001025

100000

171032

2441
2442
2443

;%% PATCH AREA FOR 8206 IF NEEDED *+

;MOV #RUN,Q#SELO

005300
001371
012727
000000
013727
000000

CLRNO

s INCR WORD (CHANGE ODD TO EVEN ETC.)
sGET TIE # OF 100 MICRO SECOND DELAYS
;TO WAIT BEFORE EXITING THE ROUTINE.

CLR

; INNER LOOP COUNT

BIT

#RUN,@SELO
40%

;1S THE RUN BIT SET IN SELO?
sYES = EX1V

;LOOP UNTIL RO RETURNS TO 0

DEC
BNE
DELAY

000001

:..""."'.t"'.t'.'.'.fit"'.'.'.'.

WAIT2,R1

BNE
BREAK

104422

SEQ 0053

MOV

INC

005000

PAGE 54
:.Q'QQ't..Qt..t...'.t.'..t'.ttt'tt'.

NOP

20%
;

sCALL SUPERVISOR = ALLOW CONSOLE INTERRUPT.
TRAP

;DELAY 100 MICROSECONDS

£.(PO)+

LSDLY. (PC)+

177772

-6(PC)
=4

177756
DEC
ERRDF

017716
015240
012601
012600
005037
000207

C$BRK

002116

2432
2433

2439
2440

NOP
NOP
NOP

2430
2431

2434
2435
2436
2437
2438

12:42

40%:

002374

108
1,EMG1,ERRG3

JREPEAT UNTIL MAX LOOP SATISFIED.

;REPORT RUN NOT SET

TRAP

.WORD
.WORD
.WORD

MOV

MOV
CLR
RETURN

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

;RESTORE R1

sRESTORE RO

;TIDY UP SUBRPC

~22(PC)
.=20

%SERDF

EMG1
ERRG3

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11

29-JuL-81

GLOBAL SUBROUTINES

29-JuL-81 11:32

SEQ 0054

12:42 PAGE 55

2“.‘
2[.‘5

. ''tt.'*fi'fi'tt'tittQIfitt""tit.t.t'ttt'tt'tt'ttttt'ttt'.tttt'.ittt"..
. .ttittitttfi'ttt't.t*t"itt'fitttttttfitttt.t.t.i"t.tt'ttiQ!"Q'tt'tt't'

2446

%2%3

2451

2453
2454

;
:

%zzg

SUBROUTINE $BASEI]

gzgg
2457

2460

NESTING LEVEL

ENTRY CONDITIONS - A = MAINTENANCE BITS (I.E. LINE UNIT LOOP BACK)

:
2

:
S
3
:

2472

2473
2474

011266

kAR AR AR AN AR AR ARERRAAERARAAARARAAAAARAR AR AR RRAARR AR

002374
000004

2483 011300
2484 011306
2485 011314
2486
2487 011314
2488 017320

112777
012737

000043
000001

004737
000000

010276

2492

2494

011322

011322
011324

011330

011332

103003

062716

000467

$BASEI

002374

(SP) ,SUBRPC
#4 ,SUBRPC

170724
002376

MOvVB
MOV
WAIT

#RQ] 'BASEI, aBSELO :ISSUE THE BASE IN COMMAND.
FLAG THAT THE NEXT SUBROUTINE IS NESTED.
#1 NESTPC
UAIT FOR RDI
RDI
sxxxx MACRO EXPANSION w*xxx
CALL WAIT ROUTINE
PC, SWAIT
FLAG THAT WE'RE WAITING FOR RDI
O
WORD

JSR

BNERROR 10%

ADD

000006
10%:

BIS

011332

057677

000000

170672

2497

011344

017677

000000

170664

MOV

2499 011356 017677 000000

170654

MOV

2498

011340

011352

062716

000002

:SAVE PC AFTER THE CALL TO SWAIT.
BACKUP TO THE PC OF THE ACTUAL CALL

MOV
SuB

2495

2496

DMC MODLE OR RESUME REQUESTED.

REGISTERS DESTROYED - RESTORED
v TRAARARAR AR RAR AR AR RRR AR AR AR RAA AR RN RCA AR RRARRR AR AR NN

011637
162737

2493

ROUTINE)

2480 011266
gzg} 011272

2491

:
:

52;2
2477

2490

IF NO ERROR = DMR11 BASE TABLE ASSIGNED
IF IN DMR MODE, AND INTERFACE WRITE REQUESTED
WRITE REQUESTED AX3-15.
3. TIMEOUT ERRORS ARE DETECTED IN WAIT SUBROUTINES.
DMRFLG = =1 DMR MODE REQUESTED (USED IN CONTROL IN

EXIT CONDITIONS = 1.
2.

2471

2489

SUBTEST OR TEST SEGMENT)

B = BASE TABLE ADDRESS (SEL4)
C = MODE + RESUME (SEL6)
INFACE = 0 = NO INTERFACE WRITE REQUIRED
1 = WRITE INTERFACE (AX3-15)

2466
2467
2468
2469
2470

2479

(MACRO CALL =-- BASEIN OR BASEIN A,B.0)
- MAY ONLY BE CALLED FROM IN-LINE CODE (TEST,

:
:

2461
2662
2463
gzgg

"WORD A (SELO MAINTENANCE BITS)

"WORD B (SEL4 = ADDRESS)
"WORD C (SEL6 = MODE AND/OR RESUME)

;

gzgg

2478

CALLING FORMAT:

;

2452

TO PERFORM A BASE IN COMMAND
$BASEI
PC,
JSR

FUNCTION =

#6, (SP)

sk kKK

22 83

:IF NO ERROR, RD]I SET - PROCEED

:CORRECT STACK FOR ERROR EXIT

308

JEXIT

a(SP) ,aSELOD

:SET ANY MAINTENANCE BITS

ADD

#2,(SP)

ADD

#2,(SP)

a(SP) ,aSEL4

a(SP) ,aSEL6

BCC

sINC. POINTER.

SET UP BASE ADDRESS

;INC. POINTER AGAIN

SET UP RESUME BIT AND THE HIGH 2 BITS

10%

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11
CZOMID.P11
29-JuL-81 11:32

30A(1052)

29-JuL-81

GLOBAL SUBROUTINES

12:42

PAGE 56

SEQ 0055

011364
011370

062716

000002

ADD

#2,(SP)
RQI

;OF THE BASE TABLE ADDRESS
sINC. POINTER AGAIN (SHOULD BE AT RETURN PC)
;CLEAR RQI AND WAIT FOR RDI TO CLEAR

011370

004737

010706

JSR

PC, $CLRQI

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

BERROR

30%

;IF ERROR, EXIT

CMPB
BNE
BIT
BEQ

#122,aBSEL6
15%
#RES ,aSEL6
16%

:IF NOT, PROCEED

CLR

DMRFLG

;CLEAR DMR FLAG (NO DMR RUN ACKNOWLEDGE).

MOV

#=1,DMRFLG

:FLAG THAT DMR MODE WAS REQUESTED.
;1S AN _INTERFACE WRITE REQUIRED?
¢IF NOT = SKIP TO END
sARE WE EXPECTING AN ERROR (IN TEST THAT
;FORCES AN ERROR)
¢ IF NOT PROCEED
;IF EXPECTING AN ERROR -~ IS RDO SET
;IF YES = DON'T BOTHER CHANGING THE INTERFACE.

011374
011374
011376
011404
011406
011414
011416
011416
011422
011424
011424
011432
011436
011440

103445
122777
001004

WAIT

000122

170634

032777
001403

010000

170624

005037
000432

002260

012737
005737
001424
022737

177777
002262

002260

000001

002366

15%:

011446
011450
011456
011460
011460
011466

001004
032777
001014

000200

170554

112777

000055

170544

011466
011472

004737
000000

010276

011474
011474
011476

103405
113777

002304

16%:

TST

BEQ

17%:

004737

010706

L2
2 2

BCS
;WAS THIS A DMR BASE IN?
:IF NOT, CLEAR DMR FLAG (DMC MODE)
:IS THIS A RESUME?

INFACE

308

BNE
BIT
8NE

17%
#RDO,QSELOD
30%

MOVB

#RQI ! INTER,@BSELO ;ISSUE WRITE INTERFACE COMMAND.
RDI
;WAIT FOR RDI
sxxxx MACRO EXPANSION *x%x

PC, SWAIT

.WORD

sCALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDI
*hkkkk

BERROR

30%

:IF ERROR, BR TO END.

MOVB

AX3,aBSEL7

sWRITE_AX3-15.

WAIT

RQI

JSR

PC, $CLRQI

005037
005037

000207

002376
002374

CLR
CLR
RETURN

NESTPC
SUBRP(

* %k k%

BCS
INTERFACE SELECTED

308

;BY AX3 DETERMINED IN INIT. CODE.

;CLEAR RQI AND WAIT FOR RDI TO CLEAR.
sxxxx MACRO EXPANSION *w%x

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

30%:

308

;SKIP = TO END

308

#CNTRL ,ERROR

JSR

170544

s Rk kk

CMP

WAIT

011504
011504

sxxxx MACRO EXPANSION *wxww

;CLEAR THE NEST FLAG
;TIDY UP SUBRPC

L2
2 8

| CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

GLUBAL SUBROUTINES

29-JUL-81 11:32

CZDMID.P1

29-JUuL-81

2222232222223

12:42

PAGE 57

2232222202202

SEQ 0056

22220220

222222

]

a2 2223322223200
3 23223022232 2222 22
Rttt ddd)

L
IR LLPLLLI
I ILU

SUBROUTINE $CNTIN
FUNCTION =

TO PERFORM A CONTROL

CALLING FORMAT:

JSR
.WORD

IN COMMAND

PC,
$SCNTIN
A (SEL6 = MAINTENANCE MODE & HDX)

(MACRO CALL == CNTRIN

NESTING LEVEL

CNTRIN A)

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

EXPECT_
CONTROL OUT IF IN DMR MODE
NO CONTROL OUT, IN DMC MODE OR RESUME.

ENTRY CONDITIONS = DMRFLG = =1
0O

(TEST,

:
:
:

EXIT CONDITIONS = 1. IF NO ERROR = DMR11 CONTROL IN PERFORMED
2. TIMEOUTS REPORTED IN WAIT SUBROUTINES
3. IF THIS IS A 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,

INTERFACE AND TURNAROUND (PROBABLE REASON).

REGISTERS DESTROYED
R 2222222223233
R Rt
Rttt R ]

004737
000000

010276

002374

wviwn

c’o«>g§§!rflV“flU“flU\
FEXTIR FE BRRIXNN
wviviwnunuon

011637
162737
112777
012737

e
b el s

) i
o
il

D
o
e e i

)
e

i
d d

i
wd ad

cd d wnd
=
cd cd cd cni wd c

eleleleleleleleloleleleBeleBelelelels
(o

103003
062716
000463

017677
062716
032777
001402
005037

000004
000041
000001

$CNTIN:

002374

002260

3232222222222

222222023222

220t

(SP) ,SUBRPC
#4 ,SUBRPC

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

MOV
WAIT

#1 ,NESTPC
RDI

:FLAG THAT THE NEXT SUBROUTINE
JWAIT FOR SETTING OF RDI
saxxx MACRO EXPANSION #wxx

JSR

#RQI*CNTRL.QBSELb ;SET UP CONTROL IN COMMAND
PC, SWAIT

.WORD

IS NESTED.

;CALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDI
:tt'.

L2 2 3 4

BNERROR 1%

;IF NO ERROR - PROCEED

ADD
BR

#2,(SP)
20%

;CORRECT RETURN ADDRESS
;ERROR = EXIT

MOV
ADD
BIT
BEQ
CLR

a(SP) ,aSEL6
#2,(SP)
#MAINT ,@SEL6
5%
DMRFLG

;SET MODE DESIRED
sINC. RETURN PC LEFT ON STACK.
;WAS MAINTENANCE MODE REQUESTED?
;1F NOT, LEAVE DMRFLG AS IS.
sCLEAR FLAG = NO RUN MODE CONTROL OUT.

WAIT

RQI

;CLEAR RQI AND WAIT FOR RDI
sxxxx MACRO EXPANSION %=+

170444
170432

)

MOV
SuB

MOVB

170470
002376

000002

000000
000002
00400

2222223223233

art

TO CLEAR

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
GLOBAL SUBROUTINES
(ZDMID.P11
29-JuL=-81 11:32

12:42

SEQ 0057

PAGE 58

011614

004737

010706

JSR

PC, $CLRQI

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

011620
011624
011626
011632

005737
001443
005037

002260

TST

002260

BEQ
CLR

DMRFLG

WAIT

DMRFLG
RDO

;WAS DMR MODE REQUESTED ON BASE IN?
;BR IF NOT (DMC MODE)
;CLEAR DMR RUN MODE FLAG

011632
011636

004737
000001

010276

JSR

PC,

011640
011640
011642
011642

011646
011652

011654
011656
011662
011664
011664

012746
012746
010600

011746
000001

062706
000421

000004

032777
001005

000001

032777
001004

PRINTB

170342

7%:

000040

#FMS3

;CALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDO
kRN

“IF NO ERROR = PROCEED
:PRINT RUN ACKNOWLEDGE

LA
S &4

170324

10%:

15%

BIT

#CNTRL ,@SEL2
10%

ERRDF

8.EMG8,ERRGZ

15%

BIT

#DMRRUN ,@SEL6

ERRDF

NOT Rscexxge.

15%
9.EMGY,ERRGZ

ADD

000207

005037
005037
000207

002376
002374

052524

170300

15%:

20%:

;EXPECTED CONTROL OUT NOT RECEIVED.

TRAP

;WAS THE

020122
041501
042514
047516
042126

044103
047111
041501
052501
020104
051101

FMS3:

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

SP,RO
CSPNTB

#4 ,SP

CSERDF
8

.WORD
.WORD

EMG8
ERRGZ

TRAP

CSERDF
9
EMG9
ERRGZ2

DMR RUN MODE BIT SET?

:BR IF OK.
;WRONG CONTROL OUT RECEIVED.

BIC

#RDO
CMD ,@SEL2
!

;CLEAR RDO AND THE COMMAND BITS

CLR
CLR

NESTPC
SUBRP(

:CLEAR PC

LASCII

/%ADMR RUN ACKNOWLEDGE NOT RCVD.ZN/

LASCIZ

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

RE TURN

;DID WE RECEIVE A CONTROL OUT?
;IF YES = PROCEED.

.WORD
.WORD
.WORD

042777

040445
052522
0471173

R
MOV
MoV
TRAP

104455

§N
SR

— d D D ) D

sxxxx [TACRO EXPANSION #xx=

000011
020040
015124

—

D —d D ) D

b e ek —d

— d b e —

——d D d —d D
NNN

fl n
o

— D e

- e

— ) d )
d D
NNNNNINY
NINON)
= = =
AN TeTo Yo 0

lelaleleleleleleleloleleBelelelolelec B elolelelelele

011672
011674

SWAIT

WORD

L2 2 2]

sEXPECT RDO TO BE SET

BNERROR 7%

103011

104414

20%

:'.'Q

;CLEAR THE NEST FLAG

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
(ZDMID.P11
29-JuL=-81 11:32
GLOBAL SUBROUTINES

2657
2658
2659
2660
2661

012052
012060

052517
000116

042116

022457
.EVEN

12:42

PAGE

SEQ 0058

(ZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
(ZDMID.P11
29-JuUL=-81 11:32
GLOBAL SUBROUTINES
2662

12:42

5
PAGE 60

SEQ 0059

';".'tt."""'...'."'t'"Qt't"..i.".'.Qt..t't.!t.t""..".""'.'

':Q't.t't'tt.'.ttl'l.tt""'t"t......."'t."Qtt'.Q".Q!t'..".t"".i

SUBROUTINE $DMRIN
TO PERFORM A DMR MODE

INPUT COMMAND

FUNCTION =

JSR
.WORD
.WORD
.WORD

CALLING FORMAT:

PC,
$DMRIN
COMMAND
B
(

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

= MAY BE CALLED FROM IN-LINE CODE (TEST,
SUBTEST OR TEST SEGMENT) OR FROM THE $LOOP
SUBROUT INE

NESTING LEVEL

) LI

ENTRY CONDITIONS = MUST BE IN DMR MODE
FOR ALL

COMMANDS EXCEPT WRITE MODEM

B = SEL4
C = SEL6

FOR MODEM WRITE

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

1 = SUBROUTINE NESTED WITHIN ANOTHER SUB.

0 - SUBROUTINE NOT NESTED.

NESTPC

EXIT CONDITIONS = IF NO ERROR = DMR11 MODE INPUT COMMAND PERFORMED.

REGISTERS DESTROYED
A A

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

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

AR AR AR AR AR

005737
001005
011637
162737

002376

002374
000004

117637

062716
052777
013746
012737
012142

012142
012146

TST

NESTPC

;IS THIS SUBROUTINE NESTED?

suB

#4 , SUBRPC

;BACKUP TO PC OF ACTUAL CALL

170102

MOVB
MOVB
ADD
BIS

a(SP) ,SAVE
@(SP) ,aBSELO
#2, (SP)
#RQ] ,3SELO

;SAVE DMR INPUT COMMAND
sSET UP DMR INPUT COMMAND.
sINC RETURN PC LEFT ON STACK.
sREQUEST INPUT.

002376

MOV

#1 ,NESTPC

JUSE THE FLAG TO SHOW THE WAIT

002374
002342
170114

117677

—

':tfi'tttt'*ttttttltttt't""titfiit".l'tt't'!tttttit't.tt't.'ii.'i.'i.'

BNE
MOV

1%:

MOV

1%
(SP) , SUBRP(

NESTPC,=(SP)

WAIT

RDI

sIF YES = DON'T CHANGE
SUBRPC.
;SAVE PC FROM WHERE THIS SUBR. WAS CAILED.

;SAVE THE CURRENT NEST FLAG.

;ROUTINE IS NESTED.

sWAIT FOR SETTING OF RDI

sxxxex MACRO EXPANSION xwwx«
sCALL WAIT ROUTINE

004737
000000

010276

JSR

PC, SWAIT

012637

002376

MOV

(SP)+ ,NESTPC

RESTORE THE ORIGINAL NEST FLAG.

000004

ADD

#4,(SP)

;UPDATE RETURN ADDRESS.

103003

062716

.WORD

BNERROR 5%

;FLAG THAT WE'RE WAITING FOR RDI
;.l.t

L2 A2

;IF NO ERROR, OK = PROCEED.

BCC

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29=JuL=-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES
2718
2719
2720
2721

012162
012164
012164
012172

000432

5%:

12:42

9
PAGE 61

SEQ 0060

108

;ERROR EXIT.

BEQ

CMPB

;IF YES = SET/CLEAR BITS.

122737

000005

002342

017677

000000

170034

MOV

#WMODEM, SAVE
6%
?(SP) ,aSELSG

2726
2727
2728
2729
2730
2731
2732
2733
2734
2735

012202
012206

062716
017677

000002
000000

170024

ADD
MOV

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

012214
012220
012222
012222
012230
012234
012242
012246
012246

062716
000412

000002

ADD
BR

#2,(SP)
7%

047677
062716
057677
062716

000000
000002
000000
000002

BIC
ADD
BIS
ADD

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

;CLEAR MODEM BITS
JINC. RETURN PC LEFT ON STACK
;SET MODEM BITS
JINC. RETURN PC LEFT ON STACK.

WAIT

RQI

JCLEAR RQ] AND WAIT FOR RDI TO CLEAR

2737

012246

004737

010706

JSR

PC, $CLRQI

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

2739
27640

012252
012252

005737

002376

TST

NESTPC

;WAS THIS ROUTINE NESTED?

(LR
RE TURN

SAVE

JRESTORE TEMP VALUE

2722
2723
27264
2725

2736

2738

2741
2742
2743
2744
2745
2746
2747
2748

012174

012256
012260
012264
012264
012270

001413

001002
005037

005037
000207

002374
002342

170010

6%:

167776

7%:

10%:

15%:

BNE
CLR

15%
SUBRP(

;1S THIS A MODEM WRITE?

;sPASS VALUE FOR SEL4 (VALUE, IF ANY,
;DEPENDS ON THE DMR COMMAND)
sINC. RETURN PC LEFT ON STACK.
PASS VALUE FOR SEL6 (VALUE, IF ANY,
;DEPENDS ON THE DMR COMMAND)
sINC. RETURN PC LEFT ON STACK.

sxwwx MACRO EXPANSION swew
IRRAN

;BR IF YES
;CLEAR PC

T 3L

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

29-JUL-81 11:32

29-JuL=-81

GLOBAL SUBROUTINES

12:42

5
PAGE 62

SEQ 0061

2750

.-.'l.'.".'t'."'..Q'Q'Q"Q"'....Q.lt""'t..t...'Q"..t.'.t".'.'.'tt'

2751

::"."..'t.'..".'""""'.'.t'.l't".'."Q'...'l..'....'.'.!."'..'i

2752

5;22

2755

2758

2760

;

SUBROUT INE $BACC

FUNCTION =

%;29
2759

TO PERFORM A BUFFER ADDRESS/CHARACTER

COUNT IN COMMAND

CALLING FORMAT:

JSR

PC,

$BACC

SEL&

*BUFFER ADDRESS

.WORD

SELO

.WORD

SEL6

.WORD

:BA/CC IN COMMAND

2761
2762
2763

:
:
;

2766

NESTING LEVEL

5;93

ENTRY CONDITIONS -

%;;12

EXIT CONDITIONS = IF NO ERROR = DMR11 BA/CC COMMAND IN PERFORMED

2773

2776

:-:ttttttttttttt'tt'ttttttttttittttttttttttttttfi'tttttttttttt"t'i'tttt'

3;2‘5’

g;gg

5;;g

2777

2778

:BA BITS 16 & 17 AND
:CHARACTER COUNT
(MACRO CALL == BACCIT OR BACCIT A.B)

OR (MACRO CALL == BACCIR OR BACCIR A.B)

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

REGISTERS DESTROYED = NOT AFFECTED

".'titttt'tttttt'titttttt't.t"ttttttttttttttttittttttttttt!'tt't"t't't

012272

$BACC:

2779 012272 011637 002374
2780 012276 162737 000004

002374

MOV
SuB

(SP) , SUBRPC
#4 , SUBRPC

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

2783 012316

002376

MOV

#1.NESTPC

*FLAG THAT THE NEXT SUBROUTINE IS NESTED.

2781
2782

0123064
012312

2784
2785
2786
2787

012324

012324
012330

004737
000000

2789
2790
2791

012332
012332
012334

103003
062716

2793

012342

2795

012350

2788

2792

2794

012340

117677
062716

012737

000414

000000
000002

000001

167720

JSR

000004

017677

000000

167666

57739 012354

017677

000000

167656

2798

2799

2800

2801

2802

2803
2804

2805

WAIT

010276

012342

062716

MOVB
ADD

000002

108:

@(SP),aBSELO
#2,(SP)

RDI]

PC, SWAIT
.WORD
O

#4,(SP)

:CORRECT STACK FOR ERROR EXIT.

a(SP) ,aSEL4

:SET BUFFER ADDRESS

a(SP) ,aSEL6

;ggsu;bagrsgn COUNT AND BUFFER ADDRESS

MOV

20%

ADD

#2,(SP)

000002

ADD

#2,(SP)

012366

004737

010706

JSR

PC, SCLRQI

CLR

NESTPC

012376

005037

002376

002374

(222

ADD

062716

012372
012372

JRRRK

*IF NO ERROR = PROCEED

MOV
WAIT

20%:

sWAIT FOR SETTING OF RDI
sxxxx MACRO EXPANSION *#wx
:CALL WAIT ROUTINE
:FLAG THAT WE'RE WAITING FOR RDI

BNERROR 10%

012362

012366

:SET UP BA/CC COMMAND IN (TRANSMIT OR RECEIVE)
:INC POINTER ON STACK

CLR

RQI

SUBRP(

BCC

108

SEXIT

*INC POINTER ON STACK

“INC POINTER ON STACK

*CLEAR RQI AND WAIT FOR RDI TO CLEAR

sxxxx MACRO EXPANSION **%

*CLEAR RQ] AND WAIT FOR IT TO BE CLEARED.
IRRRR

:CLEAR THE NEST FLAG

:CLEAR PC

222}

(ZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL=-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES
2806

012402

000207

RETURN

12:42

5
PAGE 63

SEQ 0062

CZDMIDO DMR=-11 _FUNCTIONAL TESTS MACY11 30A(1052) 29-JuUL-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES
R AR R

AR AR AR

2808

: ttttttttttttt'tt'tt"""tt'l.tttt.ttt.t.tt'.ttttt.ttt.fi"tt'tttt"tt

AR R AR

SEQ 0063

2807

2809

L5
PAGE 64

12:42

AR AR AR AR AR AR RN

AR AR AR

RRR AR AR AN,

SUBROUTINE S$SERROR

;

Sg}?
2812

%g}(s;

CALLING FORMAT:

%g‘%g

NESTING LEVEL

2819

ENTRY CONDITIONS = SHOULD BE DONE AFTER PROPER SHUTDOWN

%gg;

%8}2

FUNCTION =

2820

2823
2824

2825

PC,

$ERROR

= CAN BE NESTED WITHIN ANOTHER ROUTINE

= 0 - SUBROUTINE NOT NESTED.

EXIT CONDITIONS = IF ANY NON-ZERO VALUE FOUND IN THE BASE TABLE A
SOFT ERROR IS DECLARED.

:
:

JSR

NESTPC = 1 = SUBROUTINE NESTED WITHIN ANOTHER SUB.

2826

TO CHECK THE FIRST 8. BASE TABLE ERROR COUNTS

FOR NON-ZERO VALUES.

ggg

2829

:'tttttttttttt*ttttttttttttttttttttttttttttttttttttttt't.tttttttttttt.t

2830

2831
2832
2833

2834
2835
2836
2837

2838
2839
2840
2841

2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853

2854
2855
2856
2857

2858

2859
2860
2861
2862

REGISTERS DESTROYED = RESTORED

RN
AR AR RN AR RN AR RN RN AN RN RNR RN

012404
012404
012410

012412
012416
012424

012424
012426
012430
012434

012440
012440
012442
012444
012446
012450
012452
012454
012462
012464
012472
0124764

012476
012500
012502
012502

012506

012510
012510

005737
001005

011637
162737

010046
010146
012700
012701
105720
001022
005301
001374
122010
001016
022737
001407
022737
001403
105710

002374
000004

122710

002374
108:

002643
000006

20%:

000022

002114

000016

002114

001004
000407
002004

$ERROR:

002376

000001

25%:

TST
ENE
MOV
SuB

NESTPC
108

;1S THIS ROUTINE NESTED?
;BR IF YES (PC ALREADY SAVED)

MOV
MOV
MOV
MOV

RO,-(SP)
R1,=(SP)
#BASE+3,R0
#6. .R1

;SAVE RO
;SAVE R1
sPOINTER TO ACTUAL BASE TABLE COUNTS.
JCHECK THE 6 NAK BYTES IN THE TABLE

TSTB
BNE
DEC
BNE
CMPB
BNE
CMP
BEQ
CMP
BEQ
TSTB

(RO) +
308
R1
208
(RO)+, (RO)
308
#18. ,LSTEST
25%
#14. LSTEST
25%
(RO)

;1S THE NAK COUNT NON-ZERO?
;IF YES = REPORT SOFT ERROR
;LOOP UNTIL DONE.

BNE
BR

CMPB

BGE

30%:

(SP) ,SUBRPC
#4 ,SUBRPC

308
40%

#1,(RO)
40%

ERRSOFT 5,EMS3,ERRG4

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

JARE THE REPS THE SAME?
:IF NOT = REPORT ERROR.
;1S THIS TEST 18 (LARGE BUFFER TEST)
sIF YES = ALLOW 1 REP
;1S THIS TEST 14 ?
;IF YES = ALSO ALLOW 1 REP
:IF NOT TEST 18 = REPORT IF NON ZERO.

;IF ZERO - OK.

;1S THE REP 0 OR 1?

sIF YES - OK (WE ALLOW 1 REP BECAUSE
JIN TEST 18 AT LOW BAUD RATES1 REP IS
EXPECTED

JREPORT SOFT ERROR

—

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

D
D
D

GLOBAL SUBROUTINES

29-JuL-81 11:32

40$%:

002376

051122

PAGE 65

ERRG4
TST

NESTPC

;1S THE ROUTINE NESTED?

CLR

SUBRP(

s CLEAR SAVED PC

BNE
45%:

012601
012600
000207

040502
041107

EMS3

002374

012540
012546
012554

12:42

gSERSOFT

104457
000005
012540
015470

_—

2863

CZDMID.P11

29-JUL=-81

052040
042440
000123

EMS3:

;BR _IF YES

MOV
MOV

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

.«ASCIZ

/BASE

RETURN

042523
042514
051117

45%

.EVEN

;RESTORE R1
;RESTORE RO

TABLE ERRORS/

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES

2881
2882
2883

12:42

MLAAAA AL LAl

8988, 8,808,808,

AL A A

167426
000001

012614

012614
012620

ARttt

103430

012624

004737

ittt

Rttt

ittt

A A

EXIT CONDITIONS

= DMR SHUTDOWN

REGISTERS

= NO EFFECT

AR AR A AR A AR A AR AR AR AR AR AR AR

A AR AR A AR AR AR AR AR AR AR AR AR AR AR

LY:

(SP) ,SUBRPC

002374
167430

#4 ,SUBRPC
#RQI'HLT,@SELO

002376

#1,NESTPC
RDI

aSEL2

PC,

SWAIT

.WORD

010706

ittt ittt

ittt

AR AR AR

AR AR AR AR AR

SOGN

¥YYY

103425

012632
012636

004737
000001

012640

103421
032777
001005

010276

000001

167364

104455
000004
012724
015124

000410
032777
001004
012676

104455
000004

001000

167346

ittt

lsddd

iilddd

AR AR AR AR

sBACK UP TO THE ADDRESS OF
;ISSUE A HALT

:CLEAR _ANY QUTPUT PENDING

;FLAG
sWAIT
sxxxx
sCALL
IRRAR

WAIT

RQI

JSR

PC, $CLRQI

;CLEAR RQI AND WAIT FOR RDI
sxxxx MACRO EXPANSION #%x

BCS

TO CLEAR

Tk kk

208

:IF ERROR, EXIT

WAIT

RDO

JSR

PC, SWAIT

;WAIT FOR RDO
sxxxx MACRO EXPANSION *xxx
sCALL WAIT ROUTINE

BCS

20%

BCS

20%

TRAP
.WORD

£$ERDF

;FLAG THAT WE'RE WAITING FOR RDO
:*i*t

kA k%

BERROR

208

:IF ERROR, EXIT

BIT

#CNTRL ,@SEL?2

;1S THIS A CONTROL OUT?
;IF YES = PROCEED
:ERROR

.WORD
.WORD

20%

BIT
BNE
ERRDF

#HALTC,QSEL6

;1S THE DMR HALTED?

4 ,EMS4 ,ERRG2

sERROR = NOT EXPECTED CONTROL OUT.

208

20%

;CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

BERROR

108
4 ,EMS4 ,ERRGZ

;IF ERROR, EXIT

BNE
ERRDF

IS NESTED.

;FLAG THAT WE'RE WAITING FOR RDI

20%

THE ACTUAL CALL.

THAT THE NEXT SUBROUTINE
FOR RDI
MACRO EXPANSION #x%«
WAIT ROUTINE

BERROR

WORD

AR Ao

;SAVE THE PC WHEN THE SUBROUTINE WAS CALLED.

shkkk

012630
012630
012632

ittt

ENTRY CONDITIONS = NONE

010276

012622
012622
012624

SEQ 0065

FUNCTION = TO SHUTDOWN THE DMR11

B0 808
Be

002374
000004
000042

5
PAGE 66

SUBROUTINE S$HALT

SRR

012562

EMS4
ERRGZ2

:IF YES = EXIT

TRAP

WORD

($ERDF

;

=
.S
D) S

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
2937

012700

2939

012704

2938

012702

29-JuL-81 11:32

GLOBAL SUBROUTINES

PAGE 67

042777
005037
005037

000207
002376
002374

167322

2945
2946
2947
2948

012724
012732
012740

044123
047127
051117
012744

052125
042440
000

(47504
051122

000207

SEQ 0066
WORD

015124

012704
012712
012716
012722

12:42

012724

2540
2941
2942

22322

29-JuL-81

20%:

.WORD
BIC
CLR
CLR

#RDO!(CMD,@SEL2
NESTPC
SUBRP(

ASCIZ

/SHUTDOWN ERROR/

RETURN

EMS4:

.EVEN

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

;CLEAR THE PC.

EMS4

ERRG2

005077

167262

6
PAGE 68

SEQ 0067

‘..'."'..‘.....‘l‘-.ol-. .

t'tiittt.ttt'fit.QQ*Q"""'Q.'.ttfitt."fi..tt.'.'.ttt.t..'tt"t.."Qt'

2333333233222

tt*t*ttt.t'tfi."*.*"t"ttt"Qttttt'..ttt'tt!'titt't'tt't".".'t'.'.

SUBROUTINE $ROMO
FUNCTION = TO READ THE CONTENTS OF

THE ROM

ENTRY CONDITIONS = ROMADR

ROM ADDRESS

EXIT CONDITIONS

= BSEL6

CONTENTS OF ROM ADDRESS

REGISTERS

= NO EFFECT

012744
012744
012750
012756
012764

12:42

e o

29-JUL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
GLOBAL SUBROUTINES
CZDMID.P11
29-JuL-81 11:32

2233332222222

AR AR AR A AR A A AR AR A A AR

CLR
MOvVB
BIS

2223202223233

3222323222

TR AR A AR AR A AR A AR

@SELO
ROMADR+1,@SEL2

AR AR

2222

AR AR

dd22d] ]

AR ARk

JINIT
;SET HIGH BYTE OF ROM ADDRESS

113777
052777
012777

002413

001000
121053

167256
167246
167246

052777
042777
042737

153737
052777
013777

000400
001400
000377
002412
001000
013062

167232
167224
013062
013062
167202
167202

BIS
BIC
BIC
BISB
BIS
MoV

#STUP,QSELO
sCLOCK THE INSTRUCTION
#ROMI !STUP,QSELO ;CLEAR
#377,1%
;CLEAR ADDRESS FIELD OF BRANCH INST.
ROMADR, 1%
;ADD ADDRESS OF BRANCH.
#ROMI ,@SELO
;ENABLE SEL6
1$,aSEL6
sSET UP MICROINSTRUCTION TO
;BRANCH IMMEDIATELY TO PC.
BRANCH IS

013036

052777

000400

167166

BIS

#STUP,QSELO

013044
013052

042777

001400
002000

167160
167152

BIC
BIS

#ROM]
! STUP,@SELO” ; CLEAR

013060

000207

013062

100000

012772

052777

MOV

#ROMI ,@SELO
#121053,@SEL6

#ROMO, ASELD

RETURN

1%:

.WORD

100000

;ENABLE SEL6 TO BE USED AS MAINTENANCE REG.
;SET UP MICROINSTRUCTION_TO

;MOVE IBUS* 2 TO 0BUS* 13
;(0BUS* 13 IS A SHADOW REGISTER FOR
;BITS 8-11 OF THE PC)

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

;CLOCK IN A MAINTENANCE ROM OUT

:ROM CONTENTS ARE NOW IN SEL6.

sMICRO INSTRUCTION OPCODE FOR IMMEDIATE

;BRANCH (ROM ADDRESS IS ADDED INTO BITS 0-7)

E%ga{goP?TR-11 FUNCTIONAL TESTS MACY11 30A(1C.

)

29-JUL-81

GLOBAL SUBROUTINES

29-JuL-81 11:32

2990
2991
2992
2993
2994
2995

12:42

PAGE 69

SEQ 0068

::ttttttt"ttfi"*'l'Qttt'Qt't'ttt.t'tl"*t't""'"'.t.'..i't.t'it"".

::i."ttttitttttfi"t'tfi""t'ttt.tt.i.ilt.fi"tfit'.'t't't't'*."."".t.

SUBROUTINE $LOOP
FUNCTION = TO ISSUE AN EXTENDED CONTROL

IN TO SET

UP THE MODEN LOOPBACK DESIRFD BY THE USER.

ENTRY CONDITIONS =

s
EXIT CONDITIONS

REGISTERS

SRR AR R

005737
001041
005737
001436
011637
162737

013130
013136
013140

013140
013146
013154
013154
013162
013166
013170
013172

013174
013174
013200
013204

000004
000006

002374
002254

000004
000010

013170
013172

000010
000004

013170
013172

012737

000001

002376

000005
000000
000000

005037
005037
000207

AR AR AR AR AR A A AR

AR AR AR ARk

;IS THE DMR _IN DMC MODE?

TST

WMAINT

;DO WE NEED TO WRITE THE MAINTENANCE BITS?

SuB
CMP
BNE

#4 ,SUBRPC
#LLOOP,DMTURN
108

MOV

5821N71.101S

MOV

208

;IF SO, EXIT (CAN'T DO DMR MODE INPUT)

308
(SP) , SUBRP(

H#MAINT2,100%

:IF NOT = EXIT.
;SAVE THE PC AFTER THE CALL TO $LOOP

;BACKUP TO THE PC OF THE ACTUAL CALL.
;IS LOCAL MODEM LOOPBACK DESIRED?
;IF NOT = PROCEED.

;ENSURE REMOTE LOOPBACK IS CLEAR.

;SET MAINT BIT FOR LOCAL LOOPBACK

;IN ALL OTHER LOOPBACK CONF IGURATIONS
;SET MAINTENANCE 2 (CONFIG. TYPE 1,3.7)

#MAINT1,100%

MOV

#1 ,NESTPC

JFLAG THAT THE NEXT SUBROUTINE IS NESTED.

.WORD
WORD

;WRITE MODEM COMMAND
JPITS TO CLEAR IN MODEM REGISTER

MOV

CALL

30%:

30%

MOV

100%:
101%:

002376
002374

R AAAA

DMCMDE

BEQ
MOV

10%:

012737
012737

A AR AR AR

TST

BNE

002306

002374

NOT DESTROYED

232222222222 2322 2322222022222
222222
R
2Rt dddd ]

LOOP:

002276

AR AR A AR

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

#MAINT2,1018

$DMRIN
.WORD

CLR
CLR

RETURN

NESTPC
SUBRP(

WMODEM
O
O

sENSURE REMOTE LOOPBACK IS CLEAR.

;SET MAINT BIT FOR REMOTE LOOPBACK

:DMR MODE INPUT COMMAND
;BITS TO SET

IN MODEM REGISTER

:CLEAR THE NEST FLAG
:CLEAR PC.

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(7052) 29-JuL=81
CZOMID.P11
GLOBAL SUBROUTINES
29-JuL-81 11:32

12:42

PAGE 70

SEQ 0069

':Q'ttttt'tti'i.iQ'tt""t"'.'."t"t""'ttt"".'tt't."tt'tt."Q"'
';'tt'ttt'.fi.tt.tttttt'tittt!'tt.'tt't.tttQt'fit't*".t"i"'.'.'.""Qt

SUBROUTINE $BUFFS
FUNCTION - TO DETERMINE BUFFERS FOR TEST 15 = 19.
THIS
SUBROUTINE WILL USE ONE OF THE FOLLOWING
THREE BUFFER AREAS:

IF MEMORY MANAGED, 32K - 48K

2. FREE MEMORY, IF MORE THAN &4X BYTES.
5. IF 2 OR 3 NOT POSSIBLE, DEFAULT 4K
- JSR

CALL

PC,$BUFFS

CALLED ONLY BY TESTS

NESTING LEVEL

16-20

ENTRY CONDITIONS - BUFNUM = # OF RCV & XMIT BUFFERS

I I

DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

EXIT CONDITIONS

= MMANAG =
MMANAG =
RCVBUF
RCVBUF+2
RCVBUF+4
(UP
XMTSUF
(UP

REGISTERS

1
0

=
=
=
TO
=
TO

MEMORY MANAGEMENT USED
MEMORY MANAGEMENT NOT USED
ADDRESS OF RECEIVE BUFFER (VIRTUAL)
CHARACTER COUNT
ADDRESS OF NEXT RECEIVE BUFFER
64 ADDRESSES AND COUNTS)
ADDRESS OF TRANSMIT BUFFER (VIRTUAL)
64 ADDRESSES AND COUNTS)

NOT DESTROYED

°:ititttttttittttii't*'ttt*tt'ttt't*.'tfitttltfiittti'tt'ttt'.'ttfi.t"t"
':tttt*tfitwtt'fi'ttttttttttt"itttttttt*'t."'ttt*'titfittttt'tt'ttt'tfit'

011637

002374
000004
002352

013240
013244
013246
013252
013256

012746
012746
012746
012746
104437
062706
005737
005737

000340
023630
000004
000003

013262
013264

001143
023727

013272
013274
013302
013302
013306

002537
012737

000001

012700

000340

162737
005037

104441

$BUFFS:

002374

suB
CLR
SETVEC

(SP) , SUBRPC

zifiggngc

;SAVE PC AFTER THE CALL TO $BUFFS
;BACKUP TO THE PC OF

#4 ,ANOXMEM,#PRIO7 ;SET UP TRAP 4

THE CALL.

(WILL SET FLAG FOR NXM)

MOV

#PR107,-(SP)

MOV

#3,-(SP)

MOV
MOV

TRAP

000010
177572

002352

002120

MOV

003000

002302

177572

TST
TST

NXMFLG

BNE
tMP

LSHIMEM, #3000

BLT
MOV
SETPRI

308

#1,MMANAG
#PR107

- (SP)
#NOXMEM,
#4 ,~(SP)
CSSVEC

;ADDRESS MEMORY MANAGEMENT REG
;1S THE FLAG STILL CLEARED?

sNOTE: THE FLAG WILL BE SET BY THE TRAP
;IF THERE IS NO MEMORY MANAGEMENT.
;BR TO USE NON-MEMORY MANAG. BUFFERS.

;IS THERE AT LEAST 48K WORDS? (16K WORDS
:FOR BUFFERS)

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

MOV

TRAP

#PR107,RO
C$SPRI

CZOMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL=-81
GLOBAL SUBROUTINES
CZDMID.P11
29-JuL-81 11:32
3096
3097
3098
3099
3100

o
)_A_._a_n_a—l_n_u_a_a_a-&_a_l—as_l_a
e e e e e T e e )
o

WWWWWWWWINWNW
N NN NN N W

3101
3102

12:42

PAGE 71

SEQ 0070

;SETTING PRI SHOULD SHOULD ALSO CLEAR
013310
013314
013320
013320
013324

012701
012700

172300
000010

012721

077406

005300
001374
012701
005011
012761
012761
012761
012761
012761
012761
012761

000200
000400
002000
002200
002400
002600
007600

013410
013414

012703
012704

000400
060000

013420
013426
013426
013432
013436
013436

012737

000001

012701
012702

000040
002420

013440
013444
013446
013450
013452
013454

005737

10%:

000002
000004
000006
000010
000012
000014

000016

001050
005301

013456

002352

#77406,(R1)+

013502
013510
013516
013524
013526
013534
013536
013536
013544
013546
013554

PAGE
PAGE
PAGE
PAGE

LOOP OF TEST PATTERN

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

(R2)+,(R4)+

sWRITE TEST PATTERN
;PHYSICAL ADDRESS 200000 - 237776
sFLAG WILL BE SET IF WE ADDRESS NXM.
;IF NXM = DON'T USE_MEMORY MANAGEMEN'.
;DO TH INNER LOOP 32. TIMES

;DO THE OUTER LOOP 256. TIMES

#20000,R1

;COUNTER TO CLEAR THE NEXT 8K WORDS

(R4)+
NXMFLG

;DOES AN NXM TRAP OCCUR?

29%
17%

;CLEAR VIRTUAL ADDRESS 120000 - 157776

;IF SO DON'T USE MEMORY MANAGEMENT.

a#177572

;TURN OFF MEMORY MANAGEMENT

;VIRTUAL ADDRESS OF XMIT BUFFER
;VIRTUAL ADDRESS OF RCV. BUFFER
;1S THERE ONLY 1 XMIT & RECEIVE BUFFER?
;IF NOT, BR
JEACH BUFFER IS 16K BYTES

012737
012737
022737
001004
012737
000525

060000
120000
000001

003240
003640
002324

#60000
, XMTBUF
#120000,RCVBUF

037777

002322

#37777 ,BUFS1Z

022737
001004
012737
000515

000007

002324

#7 ,BUFNUM

004000

002322

#4000,BUFSIZ

#1 ,BUFNUM

208
60%
21%

60%

1)
2)
3)
4)

;USE VIRTUAL ADDRESS TO MAP TO PAR 5
;GENERATE A TEST PATTERN IN THE 1ST 8K WORDS
;VIRTUAL ADDRESS 60000 - 111776

#32. .R1
#$CCITT ,R2

R3
15%

177572

(BUFFER
(BUFFER
(BUFFER
(BUFFER

:PAR 7, ADDRS 160000 - 677776 (1/0 PAGE)

;ENABLE MEMORY MANAGEMENT

013476

;ADDRESS OF KERNEL PAR 0
0 - 17776
0, ADDRS
:PAR
:PAR 1, ADDRS
20000 - 37776
:PAR 2, ADDRS 40000 - 57776
ADDRS 200000 - 217776
ADDRS
220000 - 237776
:PAR &,
:PAR §, ADDRS 240000 = 257776
:PAR 6, ADDRS 260000 = 277776

#1,a8177572

29%

002352

sWRITE BIiTS FOR THE FOLLOWING PAGE DESCRIPTION
sREAD/WRITE ACCESS, 128. BLOCK PAGE LENGTH.
sWRITE ALL PDRS.

;COUNTER FOR OUTER

R1
16%

17%:

;BITS 14 8 15
;GET ADDRESS OF KERNEL PDR REG 0.
;WRITE PDR REG 0-7.

#256. ,R3
#60000,R4

NXMFLG

020000

013462

158:
16%:

012224

#172300,R1
#8..R0O

RO
10%
#172340,R1
(R1)
#200,2(R1)
#400,4(R1)
#2000,6(R1)
#2200,10(R1)
#2400,12(R1)
#2600,14(R1)
#7600,16(R1)

172340

177572

MOV
MOV

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

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
CZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES
3152

013556

3156

013566

3153
;1‘ glso

012737
000511

000376

8]‘%293

005037

177572

3159

013572

005037

002302

3161
3162

013576
013602

012700
104436

000004

3164
3165
3166
3167
3168

013604
013606

104431
010002

013610

021227

013614

003406

g]‘gg
3160
3163

3169
3170

3171
3172
3173
3174

013556
013564

013576
013604

013616
013622
013624
013630

3175
3176
g};g

013632
013632
8;'33222

3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198

010237
011200
042700
000405

002322

29%:

308

002000

003240
000001
004240
002000

003240

013644
013652
013656
013660
013666
013670
013676
013700
013702
013704
013706
013710
013710
013714
013714
013716
013720
013722
013722
013726

013737
06003/
010001
022737
001415
022737
001004
006201
006201
006201
000405

003240
003640

003640

000001

002324

000007

002324

012704

000007

010137
162737

002322
000002

002322

3200
3201
3202

013734
013742
013744

042737
006200
010001

000001

002322

013702

J03240

3205
3206
3207

013752
013756
013762

012703
012704

002420
000040

%ng

8};;‘503

35%:

«08

45%:
4L6%:

006201
005304
001375

47%:

508

51%:

PAGE 72

SEQ 0071

MOV
BR

#376 ,BUFSIZ
60%

;EACH BUFFER IS 254. BYTES.

CLR

aw177572

;TURN OFF MEMORY MANAGEMENT

CLR

MMANAG

;FLAG THAT MEMORY MANAGEMENT NOT USED.

CLRVEC

012737
012700

3199

21%:

12:42

;RESTORE TRAP 4.

MOV
TRAP

MEMORY

cMP

@R2,#2000

BLE

MOV
MOV
BIC
BR

35%

R2 , XMTBUF
aR2,R0
#81T0,RO
40%

;MEMORY CONTAIN THE AMOUNT OF AVAILABLE MEM.)
:IF NOT AT LEAST 1K, USE DEFAULT BUFFER.

MOV
MoV

#B1GBUF ,XMTBUF
#2000,R0

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

MOV
ADD
MOV
cMP
BEQ
cMP
BNE
ASR
ASR
ASR
BR

XMTBUF ,RCVBUF
RO,RCVBUF
RO,R1
#1 ,BUFNUM
47%
#7 ,BUFNUM
45%
R1
R1
R1
473

;CALCULATE THE RECEIVE BUFFER ADDRESS
;AS STARTING IN THE 2ND HALF OF THE BUFFER.
;BUFFER SIZE IN WORDS.
;ARE 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?
:IF NOT WE MUST NEED 64 RCV & 64 XMIT BUFFERS.
:R1 = # BYTES IN THE BUFFERS/8

MoV

#7 R4

;:DIVIDE BYTES BY 128.

ASR
DEC
BNE

R1
R4
46%

;SHIFT RIGHT 7 TIMES

MOV
SuB

R1,BUFSIZ
#2 ,BUFSIZ

;SAVE THE BUFFER SIZE IN BYTES.
;ADJUST BUFFER SIZE BECAUSE WE

BIC
ASR
MOV

#1,BUFSIZ
RO
RO,R1

;ENSURE WE START WITH AN EVEN # OF BYTES.
;# OF WORDS IN ALL XMIT BUFFERS.
;SAVE # OF WORDS IN ALL RCV BUFFERS.

MOV
MOV

#$CCITT,R3
#32. R4

MOV

XMTBUF ,R2

;FIND THE FREE MEMORY AVA'LABLE BETWEEN

#4 RO
C$CVEC

TRAP
CSMEM
MOV
RO.R2
;THE DIAGNOSTIC AND THE DRS (SUPERVISOR).
;1S THERE AT LEAST 1K WORDS? (NOTE: CONTENTS
;OF THE RETURNED ADDRESS OF THE START OF FREE
;USE THE FREE MEMORY BUFFER.
;SAVE THE WORD SIZE OF THE BUFFER.
;START WITH AN EVEN # OF WORDS.

sWILL ADJUST BUFFER STARTING ADDRESS.

;ADDRESS OF START OF XMIT BUFFERS.
;ADDRESS OF TEST PATTERN
;# OF WORDS IN THE TEST PATTERN.

—

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUuL=-81
(ZDMID.P11
GLOBAL SUBROUTINES
29-JuL-81 11:32
013762
013764

oV QO NONVV
IS NN —

ORISR

3208
3209
WW
WIANWWWWW
oy
N - — el e e D D oD

3221

012312
005300
001403

MOV
DEC

BEQ
DEC
BNE

003640

014010
014010
014014
014020
014024
014024
014026
014032
014036
014040
014042
014044
014050
014054

003640

55%:

56%:

60%:

12:42

(R3)+,(R2)
RO

55%

;ADDRESS OF RECEIVE BUFFERS

(R2)+
R1
56%

;CLEAR ALL RECEIVE BUFFERS.

RCVBUF ,RO
#RCVBUF ,R1

;ADDRESS OF RECEIVE BUFFER
;TABLE ADDRESS OF RCV BUFFER POINTERS.

RO, (R1)+

;SAVE THE RECEIVE BUFFER ADDRESS
:SAVE THE BUFFER SIZE
sCALCULATE THE NEXT BUFFER ADDRESS.

65%
XMTBUF ,RO

#XMTBUF ,R1

BUFNUM,R2

010021
013711
160321

#4 ,R3

RO, (R1)+

BUFSIZ, (R1)
R3,(R1)+
BUFSIZ.,RO
R3
#BITO,R3
72%

063700

72%:

012703

000004

005302
001357

005037
005037
000207

002352
002374

RE TURN

;# OF

RCV.

BUFFERS.

s CHANGE EVEN ADDRESS TO ODD & ODD TO EVEN.
;CALCULATE ALL THE BUFFER ADDRESSES.
;ADDRESS OF TRANSMIT BUFFERS
;TABLE OF XMIT BUFFER POINTERS.
sMOF XMIT BUFFERS.

sR3 IS USED TO VARY THE CHARACTER COUNT.
;SAVE THE XMIT BUFFER ADDRESS.
;SAVE THE BUFFER SIZE.
:VARY THE BUFFER SIZE

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

R3
75%

;WHAT IS R3.

R2
70%

;CALCULATE ALL THE XMIT BUFFERS.

NXMFLG

JRESTORE FLAG USED

#4 ,R3

75%:

sARE ALL THE XMIT BUFFERS WRITTEN?
:IF YES PROCEED.
;CONTINUE WITH TEST PATTERN TILL DONE.

RCVBUF ,R2

RO
R2

70%:

;WRITE TEST PATTERN INTO ALL XMIT BUFFERS.

;START AT BEGINNING OF TEST PATTERN.

BUFSIZ,(R1)+
BUFSIZ,RO

012703

SEQ 0072

51%
50¢

BUFNUM,R2

65%:

PAGE 73

SUBRP(

sCONTINUE UNTIL R3
;RE-INIT. THE R3 VARIABLE AGAIN.

;CLEAR PC.

IN TRAP VECTOR.

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL=-81
(ZDMID.P11
29-JuL-81 11:32
GLOBAL SUBROUTINES

12:42

6
PAGE 74

SEQ 0073

-3 L A2 A 02222ttt
it
Rttt
2R 2R
dRddd ] )
'."ti'Q't'.!ttt"tt.tt""".'l'tfi"'t....QQ.Qfit'..'t'Q'Q.t‘.t.'..'.l'.

SUBROUTINE $INOUT
FUNCTION = TO MANAGE

THE

INTERRUPT FROM BASE

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.

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

EXIT CONDITIONS
REGISTERS

014140
014140
014144
014152
014160
014166
014174
014202
014210
014214
014220

011637

162737

012737
013737
013737
013737
013737
005037
005037
005037

002374
000004

MOV
MOV
MOV
MOV
MOV

002332
002334

012702
012703
012704
012705

003640
003240
003640
003240

012700

000200

014252
014260
014266
014266
014272
014272
014272

013737
112777

002316
000143

012701

001000

014274
014300
014302
014306
014310

SUB

002330

014224
014230
014234
014240
014244
014244
014250

104441

MOV

002374
002376
002326

CLR
CLR
CLR

MOV

SETPRI

002320
165744

8%:
10%:

104422

005737
001403
005737
001026

RO = R5 DESTROYED

(SP) , SUBRPC

;SAVE THE PC AFTER THE CALL TO $LOOP

#1,NESTPC
BUFNUM, INRCV
BUFNUM, INXMIT
BUFNUM,OUTRCV
BUFNUM,OUTXMT
INFLAG
OUTFLG
START
#RCVBUF ,R2
#XMTBUF ,R3

;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
s CLEAR OUTPUT BA/CC FLAG
;CLEAR FLAG TO SHOW START UP NOT DONE (SET
sAFTER CONTROL IN)
;ADDR OF RCV. BUFFER TABLE (FOR INPUT)
sADDR OF XMIT BUFFER TABLE (FOR INPUT)

#PRI04

;SET THE PRIORITY TO LEVEL 4 TO ALLOW THE

#4 , SUBRPC

#RCVBUF ,R4
#XMTBUF ,R5

;BACKUP TO THE PC OF

THE ACTUAL CALL.

sADDR OF RCV. BUFFER TABLE
;ADDR OF XMIT BUFFER TABLE

(OUTPUT CHECKING)
(OUTPUT CHECKING)

MOV

TRAP

;DMR TO INTERRUPT AT LEVEL 5

WAIT3 WAIT4
s TIMEOUT COUNTER DETERMINED BY BAUD RATE.
#1ESET!RQI !BASEI,aBSELO ;FIRST COMMAND - BASE IN.

MoV

#1000,R1

; INNER LOOP COUNTER

;OPERATOR INTERRUPT ENABLE.

BREAK

TST

BEQ

002356
12%:

C$SPR]

MOV
MOVB

CALL TO

:THE SUPERVISOR TO ALLOW CONSOLE

002354

#PR104 RO

TST
BNE

C$BRK

INTERRUPT

s (NOTE: INFLAG AND OUTFLG SET IN THE INTERRUPT
sSERVICE ROUTINES)

INFLAG

sARE THE

OQUTFLG
20%

sARE THE OUTPUTS DONE?
;IF YES EXIT WAIT LOOP.

12%

TRAP

INPUTS DONE?

:IF _NOT KEEP CHECKING.

(INISR DONE?)

(QUTISR DONE?)

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

29-JuL-81 11:32

3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331

014310
014310
014314
014316
014322
014326
014330
014332
014336
014340
014342
014344
014350
014352
014352
014354
014356
014360

3334

014362

000453

3337
3338
3339
3340
3341
ggz%

014364
014370
014374
014400
014404
8}22?2

012700
012701
013702
005737
001403
012737

3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357

014414
014416
014420
014422
014424
014426
014432
014434
014440
014440
014440
014442
014444
014446

012003
012104
011005
022021
001412
005737
001402
005037

ggg

%%gg

3358
3359
3360
3361
3362
3363
364

3365
3367
3368
3369

014364

014450
014452
014452
014454
014456
014460
014462

014464
014466
014470
014470
014474

012727
000000
013727
000000
005367
001375
005367
001367

005301
001353
005337
001346

GLOBAL SUBROUTINES

000001

12:42

6
PAGE 75

DELAY

;WAIT 100 MICROSECONDS.

DEC
BNE
DEC
BNE
ERRDF

R1
108
WAIT4
8%
2,EMG2,ERRG1

;CONTINUE IN LOOP UNTIL R1 = 0.

002116
177772
177756

002320

104455
000002
017727
014616

SEQ 0074

MoV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

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

;DECREMENT OUTER LOOP COUNTER
;IF NOT DONE - GO THROUGH INNER LOOP AGAIN.
; TIMEOUT MESSAGE.
TRAP
CSERDF
.WORD
2
.WORD
EMG2
.WORD
ERRG1
;ALSO PRINT # OF BUFFERS NOT COMPLETE.

208%:
003640
003240
002324
002302
000001

177572

«08

002302
177572

41%:

104455
000014
020141
016164

000420

45%:

122324
001005
005305
001374

005302

60%

SEXIT

MOV
MoV
MoV
TST
BEQ
MoV

#RCVBUF ,RO
#XMTBUF ,R1
BUFNUM, R2
MMANAG
40%
#1,a4177572

sRECEIVE BUFFER POINTER TABLE ADDRESS.
; TRANSMIT BUFFERS
:# OF RCV. AND XMIT BUFFERS.
;ARE THE BUFFERS MEMORY MANAGED?
;IF _YES - PROCEED.
:TURN ON MEMORY MANAGEMENT

MOV
MOV
MOV
CMP
BEQ
TST
BEQ
CLR

(RO)+,R3
(R1)+,R4
aR0,R
(RO)+,(R1)+
45%
MMANAG
418
ak177572

;ADDRESS OF A RECEIVE BUFFER.
;ADDRESS OF A TRANSMIT BUFFER.
s CHARACTER COUNT.
sARE THE CHARACTER COUNTS THE SAME?
:IF YES = PROCEED.
;IS MEMORY MANAGEMENT TURNED ON?
:IF NOT = SKIP TURN OFF.
:TURN OFF MEMORY MANAGEMENT.

ERRDF

12,EMG12,ERRG10

60%

JEXIT

CMPB
BNE
DEC
BNE

(R3)+,(R4)+
508
RS
45%

;ARE THE CHARACTERS THE SAME?
;IF NOT = ERROR EXIT
;CHECK ALL THE CHARACTERS

BNE
BR

40%
60%

DEC

001353
000411

005737
001402

29-JuL-81

002302

508
:

TST
BEQ

;CHECK ALL THE BUFFERS.

MMANAG
51%

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

TRAP
.WORD
.WORD
.WORD

CSERDF
12
EMG12
ERRG10

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL=-81
CZOMID.P1
29-JuL-81 11:32
GLOBAL SUBROUTINES

3370

014476

005037

3373
3374
3375
3376

014502
014504
014506
014510

104455
000017
020235
016250

3371
3372

014502
014502

177572

3377
3378
3379

014512
014512
014516

005737
001402

002302

005037

177572

3382
3383

014524
014532

042777
042777

000120
000100

3385

014546

003011

%333(1)

3384

3386
3387
3388
3389
3390

8}2;52

014540

022737

3391
3392
3393
3394
3395
3396

014550
014554
014556
014560

3398

014562

3400
3401

014562
014566

004737
000001

3403
3404
3405

014570
014572
014572

000402

3407

014572

004737

3409
3410
3411
3412

014576
014576
014576
014602

3397

3399
3402

3406
3408

3413
3414
3415
3416
3417

3418
3419
3420
3421
3422

3423

000021

51%:

60%:

618
165500
165474

002114

014604
014610
014614

004737
000011
000000
000000

012062

010276

62%:

012562
63%:

012700
104441
005037
005037
000207

000340

002376
002374

6
PAGE 76

SEQ 0075

CLR

aw177572

ERRDF

15,EMG15,ERRG12

b
BEQ

MMANAG
61%

BIC
BiC

#IESET!IECLR,QSELO ;DISABLE BOTH INPUT INTERRUPTS
#1EO,QSEL2
;sDISABLE OUTPUT INTERRUPT

BGT

62%

CLR

CMP

014550

12:42

a#177572

#17.,LSTEST

DMRIN

UPDATE

JSR

PC, $DMRIN
.WORD
UPDATE
WORD
O
.WORD
O

sTURN OFF MEMORY MANAGEMENT.
TRAP
WORD
.WORD
.WORD
;1S MEMORY MANAGEMENT TURNED ON?
sIF NOT = SKIP TURN OFF.

;TURN OFF MEMORY MANAGEMENT.

;1S THIS TEST 17, 18 OR 19 ?
;IF NOT = SHUTDOWN.

:NOTE:
;DOING AN UPDATE IN TESTS 17 - 19, ALLOWS
sTHE USER TO CHECK OUT REMOTE LOOPBACK BETER.
;A SHUTDOWN WHEN TESTING THE REMOTE LOOPBACK,
sWOULD CAUSE THE CONNECTION TO BE DROPPED.
;DO A DMR UPDATE.
saxxx MACRO EXPANSION #wwx
;sCALL DMR MODE INPUT ROUTINE
;INPUT COMMAND
sNO SEL4
;NO SEL6
IRRRK

WAIT

RDO

sWAIT FOR RDO

JSR

PC, SWAIT
.WORD
1

sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO

63%

SHUTDN

sxxxx MACRO EXPANSION #*x%x
JRERR

222

;SHUT DOWN THE DMR

sxxxx MACRO EXPANSION #wx»

JSR

PC, SHALT

SETPRI

#PRIO7

JRETURN PROCESSOR PRIORITY TO 7

CLR
CLR

NESTPC
SUBRP(

;sCLEAR NESTED FLAG.
;CLEAR PC.

RETURN

CSERDF
15
EMGI15
ERRGI12

;DMR HALT ROUTINE.

IRRRK

I35

MOV
TRAP

#PR107
RO
CS$SPRI

29-JuL-81 11:32

.SBTTL

SEQ 0076

12:42

CZDMID.P11

29-JuL-81

GLOBAL ERROR REPORT REPORT SECTION

SIIIITIITIIITI777 7777707 777777777777777777777777777777777777777777777777777777

THE GLOBAL ERROR REPORT SECTION CONTAINS ERROR MESSAGES

o/
THAT ARE USED IN MORE THAN ONE TEST.
SIIIITIIIT77707707777770
070007770777 777777777777777777777777777777777777177777

.EVEN

3431
3432
34
3435

3437
3439
3441

014616
014616
014616
014616
014622
014626
014632
014634
014636
014642
014642

BGNMSG

013746

002374
016366

ERRG1
PRINTB

#FMG3, SUBRPC

:PC

ERRG1::

THAT SUBROUTINE WAS CALLED.

000002

000006

017746
017746
012746
012746
010600
104414

165366

016302
000003

000010

017746
017746
012746
012746
010600

165342
165334
016334

062706

000010

013746
012746
012746
010600

002324
017461
000002

104414
062706

013746

PRINTB

#FMG2,@SEL4,RSEL6 ;PRINT SEL4 AND SELZ CONTENTS.

PRINTB

#FMG21,BUFNUM

000003

;# OF BUFFERS

MOV
MOV
MOV
MOV
TRAP
ADD

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

MOV

MoV
MOV
MOV
MOV
TRAP
ADD

@SEL2,-(SP)
@SELO,=(SP)
#FMG1 ,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

@SEL6,-(SP)
@SEL4 ,-(SP)
#FMG2,~(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

MOV

BUFNUM, ~(SP)

MOV
MOV
MOV

TRAP

PRINTB

#FMG22,BUFSIZ

;BUFFER SIZE

NEG
NEG
NEG

ADD
ADD

ADD
ADD
PRINTB

INRCYV

sNEGATE BUFFER VALUES

BUFNUM, INRCV
BUFNUM, INXMIT

s CALCULATE BUFFERS ASSIGNED.

INXMIT
OUTRCV
OUTXMT

BUFNUM,OUTRCY
;CALCULATE BUFFERS RECEIVED.
BUFNUM, QUTXMT
#FMG23, INRCV, INXMIT

SP,RO
CSPNTB
#6,SP

#FMG21,-(SP)
#2,-(SP)
SP.RO
CSPNTB

ADD

#6,SP

MOV

BUFSIZ,~(SP)

MOV
MOV

#2,-(SP)
SP,RO

MOV

NEG

013746

#FMG1,QSELO,@SEL2 ;PRINT SELO AND SEL2 CONTENTS.

165360

062706

104414

PRINTB

S SPER QS

L_6
PAGE 77
GLOBAL ERROR REPORT REPORT SECTION

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

TRAP
ADD

MOV

#FMG22,-(SP)
CSPNTB
#6,SP

INXMIT
- (SP)

29-JuL-81 11:32

CZDMID.P11

b b Sb b WWWWN
b cnd b acd -n;;
Y
o

ab
b

wviw VIS

viwnwn (W AV IV LV, LV, LV, LN AV

015162
015166
015172
015200

—

[elelelelelele]

—_—

b
B o
il
i
i
i
b b
b

015156

SEQ 0077

GLOBAL ERROR REPORT REPORT SECTION

INRCV, = (SP)

000010

#10,SP

#3,-(5P)
SP,RO

C$PNTB

PRINTB

#FMG24,0UTRCV,QUTXMT

ENDMSG

BGNMSG

005737
001412

002374

013746
012746
012746
010600
104414
062706

002374
016366

MT
. =(SP)
OUTX
OUTRCV,=(SP)
#FMG24 ,~(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

017746

165052

017746
012746
012746
010600
104414

ERRGZ2

TST
BEQ

PRINTB

SUBRP(C
10%

#FMG3,SUBRPC

ERRGZ::
;1S THE ERROR IN A SUBROUTINE?
:IF NOT, DON'T PRINT SUBR. PC
;PC THAT SUBROUTINE WAS CALLED.

000006

CSPNTB
#6,SP

SP.RO

10%:

PRINTB

#FMG1,3SELO,@SEL2 ;PRINT SELO AND SELZ2 CONTENTS.

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

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

017746
017746
012746
012746
010600
104414

165026
165020

SP,RO
CSPNTB

PRINTB

#FMG2,dSEL4,SEL6 :PRINT SEL4 AND SEL2 CONTENTS.

016334
000003
000010

BGNMSG

002374

#10,SP

@SEL6,-(SP)
@SEL4,~(SP)
#FMG2,~(SP)
#3,-(SP)
SP.RO
CSPNTB

#10,SP

ENDMSG

L10003:

104423

005737
001412

CSMSG

000002

015206
015212
015216
015222

062706

L10002:

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

000010

015240
015240
015240
015244
015246

PAGE 78

#FMG23,-(SP)

062706

015236

12:42

002326
017554
000003

015202

015230
015232

29-JuUL-81

013746
013746

015072
015076

—-—

013746
012746
012746
010600
104414
062706

NNNObNg

015046
015052
015056
062
015064
015066

3480
3481
82
3483
84
3485

[elele) [elelelelelslelele]

————wemaed
s

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

ERRG3

ERRG3::

TST

SUBRPC

;1S THE ERROR IN A SUBROUTINE?

PRINTB

#FMG3, SUBRPC

:PC THAT SUBROUTINE WAS CALLED.

BEQ

108

:IF NOT, DON'T PRINT SUBR. PC

C$MSG

6
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
12:42 PAGE 79
CZDMID.P11
29-JuL-81 11:32
GLOBAL ERROR REPORT REPORT SECTION
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561

015246
015252
015256
015262
015264
015266
015272
015272
015272
015276
015302
015306
015312
015314
015316
015322
015330
015332
015340
015342
015342
015346
015352
015354
015356
015362

3563
3564

015364
015372

3562

015364

3565 015374
3566 015374
3567 015400
3568 015404
3569 - 015406
3570 * 015410
3571
015414
3572 015416

3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591

015416
015416
015422
015426
015430
015432
015436
015440
015440
015444
015446
015446
015452
015456
015460
015462
015466
015466
015466

013746
012746
012746
010600
104414
062706

002374
016366
000002
000006

017746 164736
017746 164730
012746 016302
012746 000003
010600
104414
062706 000010
032777 100000
001043
122777 000001
001011
012746
012746
010600
104414
062706
000441

016440
000001

122777
001011

000002

012746
012746
010600
104414
062706
000424

016471
000001

012746
012746
010600
104414
062706
000413

016471
000001

105777

164600

012746
012746
010600
104414
062706

017436
000001

001010

SEQ 0078

108:

164702
164704
’

000004

164652

12%:

000004
15%:

000004

:
20%:
:

PRINTB

#FMG1,QSELO,@SEL2 ;PRINT SELO AND SEL2 CONTENTS.

BIT
BNE
CMPB
BNE
PRINTB

#RUN,QSELO
208
#1,aBSEL3
12$
#FMG4

25%

CMPB
BNE
PRINTB

#2,aBSEL3
15%

25%

PRINTB

#FMG5

25%

TSTB

aBSEL3
25%
#FMG19

BNE
PRINTB

;1S THE RUN BIT SET
:IF RUN SET, CHECK.
:DID CPU MICRO. FAIL?
:1F NOT SEE IF LU FAILED.
;CPU MICRO. FAILED.

SUBRPC,=(SP)
#FMG3,=(SP)
#2,-(SP)
SP,RO
C$PNTB
#6,SP

MOV
Mov
MOV
Mov
Mov
TRAP
ADD

@SEL2,=(SP)
@SELO,=(SP)
#FMG1,=(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

MoV
MOV
MOV
TRAP
ADD

#FMG4 ,=(SP)
#1,-(SP)
SP,RO
C$PNTB
#4 ,SP

MOV
MOov
MOov
TRAP
ADD

#FMG5 ,=(SP)
#1,-(SP)
SP.RO
.C$PNTB
#4,SP

MOV
MOV
MOV
TRAP
ADD

#FMG5 ,-(SP)
#1,-(SP)
SP.RO
CSPNTB
#4 ,SP

MOV
MOV
MOV
TRAP
ADD

#FMG19,~(SP)
#1,-(SP)
SP,RO
CSPNTB
#4,SP

;DID LINE UNIT MICRO. FAIL?

#FMG5

sLINE UNIT FAILED.

sNO RUN = MASTER CLEAR FAILED.

;1S BSEL3 STILL 0?
:IF NOT - SEE IF MICRODIAG. RUN.
;DEVICE IS NOT DMR (DMC?)

25%:
ENDMSG

MoV
MoV
MoV
Mov
TRAP
ADD

L10004:

B 7
12:42 PAGE 80
29-JuL-81
CZDMIDO DMR-11 FUNCYIONAL1T§3TS MACY11 30A(1052)
CZDMID.P1
GLOBAL ERROR REPORT REPORT SECTION
29-JuL-81
015466
015470
015470
015470
015474
015476
015476

ONOWVIS~WN=O

EEERESEL

3607

SEQ 0079

104422

TRAP

BGNMSG

005737
001412

ERRG4
TST

BEQ

PRINTB

013746

SUBRPC
108
#FMG3, SUBRPC

:
ERRG4:

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

MoV
MOV

002643

108:

TRAP
ADD

BASE+3

002646

TSTB

BASE+6

118:

PRINTB

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

BEQ

11$

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

SP,RO
CSPNTB
#6,SP

JONLY PRINT NON-ZERO VALUES

TSTB

BNE

($MSG

12%

-(SP)

002646

BASE+6, (SP)

002643
016522
000003

BASE+3, (SP)

000010

002645

=(SP)

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

SP.RO
CSPNTB

12%:

#10,SP
TSTB

BNE

002650
13%:

TSTB
BEQ
PRINTB

BASE+5
13%
BASE +8.
14%

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

-(SP)

002650

BASE+8., (SP)

002645
016573
000003

E
+5, (SP)
BAS

000010
002644

-(SP)

#FMG8,
- (SP)
#3,-(SP)

SP,RO
CSPNTB

14%:

BEQ

BASE +4
15%
BASE+7
16%

PRINTB

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

TSTB

BNE

002647

TSTB

15%:

002647

#10,SP

~(SP)

BASE+7, (SP)
-(SP)

c 7
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
12:42 PAGE 81
CZOMID.P11
29-JuUL-81 11:32
GLOBAL ERROR REPORT REPORT SECTION
3648

015666

153716

002644

3652
3653
3654
3655

015704
015706
015712
015712

104414
062706

000010

105737

002652

3657
3658
3659
3660
3661
362
3663
3664

015720
015724
015726
015726
015726
015730
015734
015736

105737
001416

002651

3668
3669
3670
3671
3672
3673
3674

015754
015756
015762
015762
015762
015762

104414
062706

3677
3678
3679

015764
015764
015764

3683
3684
3685

015776
016000
016004

104414
062706

3691
2692
2693

016026
016030
016034

104414
062706

SEQ 0080
BISB

3649 015672 012746 016644
3650 015676 012746 000003
3651 015702 010600

3656 015716 001003

005046
153716
005046
153716

MOV
MOV
MOV
168:

TRAP
ADD

TSTB

BASE+10.

TSTB
BEQ

BASE+9.
208

PRINTE

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

BNE
17$:

002652

3665 015742 012746 016715
3666 015746 012746 000003
3667 015752 010600

3675
3676

208
:
ENDMSG

3680 015764 012746 017005
3681 015770 012746 000001
3682 015774 010600
2686
3687
2688
3689
3690

3694
295
2%96
3697

2698
3699

3700
3701

3702

016004
016010
016014
015020
016024

016034
016040
016044
016050
016052
016054

016060
016060

016060

L10005:

104423

000004

PRINTB

017746 164230
017746 164222
012746 017036
012746 000003
010600
000010

PRINTB

016446 177776
012746 017166
012746 000002
010600
104414
062706

104423

000006

ERRG7
PRINTB

ENDMSG

(SPNTB
#10,SP

CLR
BISB
CLR
BISB

-(SP)
BASE+9.,(SP)
-(SP)
BASE+10.,(SP)

TRAP
ADD

CSPNTB
#10,SP

MOV
MOV
MOV

BGNMSG

#FMGY,
= (SP)
#3,-(5P)
SP.RO

17%

002651

000010

BASE+4, (SP)

#FMG12

:BA/CC OUT RECV

TRAP

CSMSG

MOV
MOV
MOV

#FMG12,-(SP)
#1,-(SP)
SP.RO

MOV
MOV
MOV
MOV
MOV

ASEL6,-(SP)
ASEL4 .~ (SP)
#FMG13,-(SP)
#3,-(SP)
SP.RO

MOV
MOV
MOV
MOV

-2(R4) ,~(SP)
#FMG15.-(SP)
#2.,-(SP)
SP.RO

TRAP

(CSMSG

ERRG7::

TRAP
ADD

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

#FMG15,-2(R4)

#FMG10,~(SP)
#3,-(SP)
SP.RO

TRAP
ADD

:EXPECTED BA/CC

TRAP
ADD

L10006:

CSPNTB
#4,SP

CSPNTB
#10,SP

C$PNTB
#6,SP

D 7
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuUL-81
12:42 PAGE 82
CZOMID.P11
29-JUL=-81 11:32
GLOBAL ERROR REPORT REPORT SECTION

3704
3705
3706
3707
3708

016062
016062
016062
016062
016066

3710
3711
3712
3713
3714

016074
016076
016102
016102
016106

3716
3717
3718
3719
3720
3721
3722

016116
016122
016124
016126
016132
016132
016136

BGNMSG
012746
012746

3709 016072 010600
104414
062706

000004

017746
017746

164132
164124

012746
010600
104414
062706

000003

016546
016546
012746
012746

177776
177774
017112
000003

ERRG8
PRINTB

016753
000001

SEQ 0081

#FMG11

:BA/CC OUT XMIT

ERRGS::

016142
016146
016152
016154
016156
016162
016162
016162
016164
016164
016164
016164
016170
016174
016200

010600
104414
062706

PRINTB

#FMG13,3SEL4,@SEL6

;ACTUAL BA/CC

016206
016210
016214
016214
016214

3747
3748
3749
3750
3751
3752

016216
016216
016216
016216
016222
016226

3753
3754
3755
3756
3757
3758
3759

016232
016236
016240
016242
016246
016246
016246

#FMG14,-4(RS) ,=2(R5) ;EXPECTED BA/(C

015046
012746
012746
104414
062706

L10007:

ERRG10
PRINTB

177776
177776
017215
000003
000010

#FMG16,-2(R0),=2(R1)

ENDMSG

BGNMSG

104423

;RCV CC & XMIT CC

ASEL6,~(SP)
ASEL4 .~ (SP)

MOV
MOV
TRAP
ADD

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

ERRG11

ENDMSG

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

SP.RO

#FMG13,-(SP)

MOV
MOV
MOV
MOV

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

TRAP

CSMSG

MOV
MOV
MOV
MOV

<2 'R1),-(SP)
-2(R0) .-(SP)
#FMG16.~(SP)
#3,-(SP)

TRAP
ADD

CSPNTB
#10,SP

TRAP

CSMSG

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

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

TRAP

(SMSG

SP.RO
CSPNTB
#10,SP

ERRG10::

L10010:

PRINTB

177774
177774
017274
000003
000010

MOV
MOV

MOV

104423

016146
016046
012746
012746
010600
104414
062706

CSPNTB
#4,SP

MOV
TRAP
ADD

ENDMSG

BGNMSG

3740 016204 010600

3741
3742
3743
3744
g;zg

PRINTB

104423

.
016146

TRAP
ADD

MOV

000010

#FMG11,=(SP)
#1,-(SP)

MOV

3715 016112 012746 017036

3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
373
3735
3736
3737
3738
3739

MOV
MOV

ERRG11::
:RCV BUFFER & XMIT BUFFER

L10011:

SP.RO

E 7
(ZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuUL=-81
12:42 PAGE 83
CZDMID.P11
GLOBAL ERROR REPORT REPORT SECTION
29-JuL-81 11:32
3760

016250
016250
016250
016252
016254
016254
016256
016260
016264
016270
016272
016274
016300
016300
016300

BREE §e8388

016302
016310
016316
016324

VIS WN=O

3807

BGNMSG

DEC
DEC

005303
005304
010446
010346
012746
012746
010600
104414

062706

ERRG12

PRINTB

R3
R4

#FMG18,R3,R4

SEQ 0082

ERRG12::
JBACKUP TO RECEIVE ADDRESS
;BACKUP TO TRANSMIT ADDRESS
;PRINT QUT ADDRESS

MOV
MOV
MOV
MOV
TRAP
ADD

017347
000003
000010

ENDMSG

L10012:

104423

042523
047445
042523
047445

030114
022466
031114
022466

FMG1:

LASCIZ

/%ASELO:

XO6%A SELZ2:

%06%N/

042523
047445
042523
047445

032114
022466
033114

FMG2:

.ASCIZ

/%ASEL4:

%06%A SEL6:

Z06%N/

051105

047522
051440
052125

FMG3:

.ASCIZ

/XAERROR IN SUBROUTINE CALLED AT PC:

FMG4 :

.ASCIZ

/%ACPU MICROTEST FAILEDZN/

027125
047522
043040
022504

FMG5:

.ASCIZ

/%ALU. MICROTEST FAILEDZN/

051513

FMG?7:

LASCIZ

/%ANAKS-NO BUFFER

022466

XO62ZN/

RCV: ZD3%A SENT: ZD3%N/

TRAP

R4 ,=-(SP)

R3,-(SP)

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

SP,RO
C$PNTB

#10,SP

C$MSG

x
1

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11
CZDMID.P11
29-JuL-81 11:32

043
026523
040504

047101
040502
040524
053103
022463

031504

045501
020104

051440
022440
000
050105
035126
040445
035124
047045

F
7
30A(1052)
29-JUL-81
12:42 PAGE 84
GLOBAL ERROR REPORT REPORT SECTION

SEQ 0083

FMGS8:

ASCIZ

/%ANAKS=BAD DATA

RCV: XD3%A SENT: ZD32N/

FMG9:

LASCIZ

/%ANAKS=BAD HEADER RCV:

FMG10:

LASCIZ

/%AREPS-RCV:

%D3X%A SENT:

%D3%A SENT:

ZD32N/

%D3%N/

054701
040502
052125
040515
000
051101
041501
020124
047101

044515
041503
041440
042116

FMG11:

.ASCIZ

/XAXMIT BACC OUT COMMANDZN/

053103

FMG12:

LASCIZ

/%ARCV BACC OUT COMMANDZN/

041501

052524
040440
022440
040440
020114
020124
022465

FMG13:

.ASCIZ

/%AACTUAL

042520
040440
022440
042440
042524
047125
022465

FMG14:

LASCIZ

/XAEXPECTED ADDR.

%06%A EXPECTED COUNT %DSZN/

042520
040440
022440
000
053103
027122
052116
040445
020124
020056

FMG15:

LASCIZ

/XAEXPECTED ADDR.

XO06ZN/

FMG16:

LASCI2

/%ARCV CHAR. COUNT ZDS5XA XMIT CHAR.

051101

020103

047503
022504
ADDR.

X06%A ACTUAL COUNT

ZD5%N/

COUNT ZDSZN/

7
CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81 12:42 PAGE 85
CZDMID.P11
29-JuL-81 11:32
GLOBAL ERROR REPORT REPORT SECTION

017332

042506

020122

000

N=unowununoons~

3879

047125
022465

047503
042045

017260
017266

3872
3873

ONWSHON =N

SEQ 0084

FMG17:

L.ASCIZ

/%ARCV BUFFER AT Z06%A XMIT BUFFER AT Z06iIN/

FMG18:

L.ASCIZ

/%ADATA DIFFERS AT RCV ADDR.

X06%A AND XMIT ADDR. Z06ZN/

017362

051105

020123

052101

3892
3893
3894

017436
017444
017452

040445
042503
042888

042504
047040
051115

044526
052117
047045

FMG19:

.ASCIZ

/%ADEVICE NOT DMRIN/

3896
3897
3898
3899
3900
3901

017461
017466
017474
017502
017510
017516

045
042506
052101

041101
020122
051525
020043
043125
022858

043125
052123
047045
043117
042506
031504

FMG21:

L.ASCIZ

/%ABUFFER STATUSANZA# OF BUFFERS:ZD32%N/

3903 017527

040445
041040
051522

045 041101 043125 FMG22:

.ASCIZ /%ABUFFER SIZE; %D5AN/

3904
3905

017534
017542

042506
042532

020122
020072

044523
042045

3907
3908
3909
3910
3911
3912
3913
3914

017554
017562
017570
017576
017604
017612
017620
017626

040445
020055
051501
042105
040445
044515
044523
022855

047111
041522
044523
022472
020040
020124
047107
031504

020040
020126
047107
031504
054040
051501
042105
047045

FMG23:

.ASCIZ

/%AIN

= RCV ASSIGNED:XD3XA

XMIT ASSIGNED:Z%D3%N/

3916

017635

045

047501

052125

FMG24:

.ASCIZ

/%AOUT - RCV RETURNED:%D3%A

XMIT RETURNED:ZD3%ZN/

3923
3924

017706
017714

035104
000116

042045

022463

3926
3927

017716
017724

044524
052125

042515
000

047440

EMG1:

,ASCIZ

/TIME OUT/

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuUL=81
12:42 PAGE 86
GLOBAL ERROR REPORT REPORT SECTION
CZDMID.P1
29-JuL-81 11:32
046511

027122
051117
040522

041440

042440
000
051117
046125
020105
00

EMG2:

LASCIZ

/TIME OUT = DURING INTERRUPT EXERCISE/

EMGS8:

LASCIZ

/EXPECTED CONTROL OUT = NOT RECEIVED/

EMGY:

LASCIZ

/UNEXPECTED CONTROL OUT/

EMG10:

LASCIZ

/ERROR = MULTIPLE XMITS/

EMG17:

.ASCIZ

/BUFFER ADDR.

EMG12:

.ASCIZ

/CHARACTER COUNT ERROR/

EMG13:

LASCIZ

/ERROR = MULTIPLE RCVS/

EMG14:

LASCIZ

/RCVD EXTRA DATA/

EMG15:

LASCIZ

/DATA ERROR/

EMG16:

LASCIZ

/UNEXPECTED HALT RECEIVED/

EMG17:

LASCIZ

/CONTROL

EMG18:

LASCIZ

/SPURIOUS RDO

EMG19:

LASCIZ

/M8207 PROGRAM TIMER OUT OF RANGE/

ERROR/

020124
053111

052520
020123
047111
050125
030062

IN PRCBLEM = IN INTERRUPT ROUTINE/

047117
044440
041117
020055
052116
052120
044524

017727
017734
017742
017750

INTERRUPT/

SEQ 0085

: R ¥
o
Y11
MA(C
TS
TES
L
ONA
CTI
FUN
=11
DMR
O
MID
CZD P11
i et REsch 2ehim
T )
GLOBAL ERROR REPORT REPORT SECTION
CZDMID.
L TS
05112C
020115
020122
043117
042507
020444

.EVEN

SEQ 0086

E%g:}gop??n-11 FUNCTIONAL TESTS MACY11

29-JuL-81 11:32

30A(1052)
29-JUL-81
12:42 PAGE 88
LOAD DEVICE PROTECTION TABLE

.SBTTL

SEQ 0087

LOAD DEVICE PROTECTION TABLE

SIIITTTIIIITT 7777077770070 77777777777777777777777777777777777777777777777777
:/ THIS TABLE IDENTIFIES THE LOAD DEVICE TO THE SUPERVISOR, SO THAT IT (AN BE
s/ PROTECTED FROM TESTING. IF DESIRED.
SIITTTITIITIIITT7 7777777007777 77777777777777777777777777777777777777771777777

020444
020444
020444
020446
020450
020452

BGNPROT
177777

177777
177777

.WORD
.WORD
.WORD

ENDPROT

L$PROT::

=1
=1

;DON'T CHECK CSR ADDRESS

sDON'T CHECK MASSBUS UNIT NUMBER
sDON'T CHECK DRIVE NUMBER

—

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
CZDMID.P11
29-JuL-81 11:32
INITIALIZE SECTION
4010
4011
4012
4013
4014
4015
4016
4017
4018

.SBTTL

12:42

PAGE 89

SEQ 0088

INITIALIZE SECTION

'/////////////////////////////////////////////////////////////////////

/ THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
:/ AT THE BEGINNING OF THE TEST SEQUENCE ON THE NEXT UNIT.
SIIIIIIII1T717177177701001711777177177177177117717777177717171111111117

BGNINIT

002400

002352
002264

020510
020514
020520
020522
020530

020534
020534
020534
020540
020542
020542
020546
020550
020550
020552

000001
002266

002264
1%:

012700
104436

000004

012700

000040

104447

103416

012700

104447

000037

103412

012700
104447

000035

103410

012700

104447

000036

103013
000137

021510

005037

002270

STARST:

LSINIT::

SETPRI

#PRIO7

;SET DIAGNOSTIC PRIORITY = 7

MOV
CLR
CLR
CLR
CLR
CLR

SP,PSTACK
SUBRP(
ERROR
RE SUME
DMCMDE
CLRNO

CLR
TST
BNE
MOV
CLR

NXMF LG
FRSTIM
1%
#1,FRSTIM
FRSPAS

:STORE BASE LEVEL PROGRAM STACK POINTER
;CLEAR STORAGE WORD FOR SUBROUTINE PC CALL
:CLEAR ERROR FLAGS
sCLEAR FLAG USED TO ALLOW BASE IN - RESUME.
;CLEAR FLAG USED TO INDICATE DMC MODE
sCLEAR WORD USED TO RUN MICRO TESTS ON
sEVERY OTHER MASTER CLEAR.

CLRVEC

JENSURE VECTOR 4 IS IN NORMAL STATE.

READEF

#EF .START

;IS THIS JUST STARTED?

READEF

;18 THIS A RESTART ?

BCOMPLETE STARST

s IF YES - BRANCH.

READEF

218 THIS A NEW PASS?

BCOMPLETE NEWST

sIF YES = BRANCH

READEF

218 THIS A CONTINUATION?

#EF .CONTINUE

C$SPRI

sFLAG USED TO MARK A NXM DMR ADDRESS.

s IF YES = BRANCH.

#EF .NEW

#PR107 ,RO

¢IS THIS THE TIME THROUGH AFTER LOAD?
:IF NOT = ERROR TRAP VECTOR ALREADY SAVED
;FLAG THAT WE'VE BEEN THRU THE 1ST TIME
:CLEAR COUNTER FOR # OF PASSES AFTER LOAD

BCOMPLETE STARST
#EF .RESTART

MOV
TRAP

#4 ,RO
C$CVEC

MOV
TRAP

#EF .START
RO
CSREFG

BCS

STARST

MOV

TRAP

#EF .RESTART
RO
CSREFG

BCS

STARST

MOV
TRAP

#EF .NEW_RO
CSREFG

BCS

NEWST

MOV

#EF . CONT INUE .RO
CSREFG

TRAP

BNCOMPLETE GETPRM

;IF NOT = GET PARAMETERS

JMP

END

;OTHERWISE = DON'T INITIALIZE.

CLR

STARES

;CLEAR THE FLAG TO SHOW START/RESTART.

GETPRM

SOSESE

——

CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
CZDMID.P11
29-JuL-81 11:32
INITIALIZE SECTION
012737

177777
002266
002270

002370
002370

002370

NEWST:

GETPRM:

002012

002370

MoV

INC
INC

INC
CMP
BGE
GPHARD

MOV
MOV
BIT
BEQ
BIC

000007

PRINTB

7
PAGE 90

sINITIALIZE LOGICAL UNIT NUMBER.
s INCREMENT # OF PASSES AFTER LOAD.
; INCREMENT # OF PASSES SINCE START/RESTART.

LOGDEV

sNEXT LOGICAL UNIT TO BE TESTED
sI1S THC MAXIMUM UNIT # EXCEEDED?
;1F YES = DO A NEW START
;GET THE P-TABLE POINTER INTO R1

LOGDEV,LSUNIT

NEWST

LOGDEV.R1

GETPRM

(R1)+,WTYPE
(R1) RO
#7 R0
108
#7.(R1)

10%:

002232
002242
002242

002244

sMICROPROCESSOR TYPE
;SAVE THE ADDRESS

002246
002240

#2,SEL2

;CONTROL OUT REGISTER ADDRESS

(R1),SEL4
#4,SELG

(R1) .BSELS
#5 ,BSELS
(R1),SEL6
#6,SEL6

(R1)+.BSEL7
#7 BSEL7
(R1) RO

BIT
BEQ

#7.R0
11$

PRINTB

#FINIT2,(R1),RO

BIC

11%:

:CSR ADDRESS

(R1) .BSEL3
#3,BSEL3

MOV

000010

(R1),CSR
(R1) .BSEL1

MOV
ADD

ADD

021601
000003

GETPRM

MOV
MOV
MOV
MoV
MOV

BSEL1
(R1),SEL2

MOV
ADD

002250

8CC

;DOES THIS DEVICE ADDRESS END IN NON-ZERO?
:IF NOT = OK (76XXX0)
sMAKE IT 76XXX0
#FINIT1,(R1),RO :INFORM THE USER

INC
MOV

MOV
ADD
MOV

000007

021072

MOV
MOV

MOV
ADD

002236

LOGDEV,RO
C$GPHRD
RO.R1

ADD

002234

000007

— 3

=OVONOWVISWN=O

POMND = = — e

PoR o P P o o o o ol ol o F o

e
S
)

002234
000002
002244
000003
002236
000004
002246
000005
002240
000006
002250
000007

MoV
TRAP
MOV

;IF NOT AVAILABLE, GET THE NEXT ONE

021512
000003
000010

SEQ 0089

#-1,LOGDEV
FRSPAS
STARES

BNCOMPLETE

002252

#7.(R1)

RO,=(SP)
(R1) ,=(SP)
#FINIT1 ,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

;HIGH BYTE ADDRESS OF (SR

;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 = 0K (XX0)
JMAKE IT Xxx0
;INFORM THE USER

MOV
MOV
MOV
MOV
MOV
ADD

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

|S—

4066

4067
4068
4069
4070

12:42

i
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
INITIALIZE SECTION
CZOMID.P1T
29-JuL-81 11:32

021114

011137
011137

(R1) ,DMRVEC
(R1) .DMTVEC
(R1) .RO

002226
002230

3(ROJ

000003
000007

062737

000004

M7
PAGE 9

7(RO)

002230

ADD

#4 ,DMTVEC

SEQ 0090

;RCV. VECTOR
*TRANSMIT VECTOR
*RCV. 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 ANV UNEXPECTED BITS IN PROCESSORS
‘WHICH USE BITS 11-15 OF THE PSW. IE
SIF BIT 11 IS SET IN AN 11/70 ANOTHER
*REGISTER SET MAY BE USED.
*ADJUST XMIT VECTOR

RBRZZRRERRRR

;SET UP ISRS FOR DMR. INTERRUPTS ENABLED IN
*TESTS 15-19.

4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149

021072
021076
021102
021104
021110

4122
4123
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133
4134
4135
4136

12:42

SETVEC

012746
012746
013746
012746
104437
062706

DMRVEC ,#INISR,#PRIOS

:INPUT ISR

MOV

#PRIOS,=(SP)

MOV

#3,-(SP)

ADD

#10,5P

MOV
MOV
MOV

#PRI0S,~(SP)
#OUTISR,-(SP)
DMTVEC ,=(SP)

MOV
MOV

TRAP

SETVEC

012746
012746
013746
012746
104437
062706

DMTVEC,#OUTISR,#PRIOS

;OUTPUT ISR

#INISR.=(SP)
.= (SP)
DMRVEC

CSSVEC

MOV

#3,=(SP)

ADD

#10,SP

TRAP

CSSVEC

062701
012137

ADD
MOV

#14 R1
(R15+,DMTURN

013700

MoV

SPEED,RO

:GET THE SOFTWARE P-TABLE VALUE GIVEN
*BY THE USER

MOV
MOV

#2 .R1

:GET FIRST TIMER VALUE

ASL
ASL

DEC
BNE

RO
14$

: DEC SPEED VARIABLE
: CONTINUE UNTIL DONE INCREASING WAIT VALUES

R1.WAIT1

;SAVE TIMER VALUE FOR SWAIT

R1,WAIT2

*SAVE TIMER VALUE FOR SMSCLR AND $CLRQI

012701
012702

13%:

000002
000012

14%:

002312

#10. .R2

021242

010137

002314

MOV
ASR
ASR
MOV

021246

010237

002316

MOV

R2,WAIT3

021252

012737

000333

MOV

#333,AX3

002304

R1
R1

:INCR. P-TABLE POINTER.
: TURNAROUND

*GET SECOND TIMER VALUE
TIMER VALUES X 2

*HALF
*HALF

THAT VALUE
IT AGAIN.

* SUBROUT INES.
:TIMER VALUE FOR $INCUT SUBROUTINE.

:CHECK TURNAROUND.

‘MASK FOR AX3-15 - BIT CLLARED WILL

29=JuL-81
CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P1
INITIALIZE SECTION
29-JuL-81 11:32

002254

00001C

002304

022737
001004
042737
000407

000003

002254

000100

002304

022737

002254
000200

002304

012737
000404

000001

002262

005037
005037

002262
002304

021376
021402

005737
001410

002310

021404
021412
021414
021422

022737

000001

002254

000003

002254

021376

021424
021424
021432
021434
021442
021444

021452
021454
021454
021460
021464
021466
021470
021474

000007

002254

000001

002270

062706

000004

012737
000402

000001

005037

002306

104414

25%:

30%:

40%:

002254

021670
000001

22%:

35%:

000006

012746
012746
010600

20%:

“eh:

CMP
BNE
BIC
BR

#2 ,DMTURN

CMP
BNE
BIC
BR

#3 ,DMTURN

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

CMP
BNE
BIC

#4 ,DMTURN

358
#BIT7 ,AX3

;1S RS422 REQUESTED?
sIF NOT, DON'T ALLOW INTERFACE CHANGE.
sSELECT RS422.

#1,INFACE

;SET FLAG THAT ALLOWS INTERFACE CHANGE.

CLR

INFACE
AX3

;CLEAR FLAG = NO INTERFACE CHANGE.
;CLEAR AX3 BITS

TST
BEO

MANUF
42%

CMP
BEQ
CMP
BEQ

#1,DMTURN

CMP

#6,DMTURN

MOV
B8R

228

#BIT3 ,AX3
308
'

25%
#BIT6,AX3
308

40%

sSELECT v.35

;1S INTEGRAL REQUESTED?
:IF NOT = CONTINUE.
:SELECT INTEGRAL MODEM.

3 232223222222

IRRARAANAN AR AR

45$

#3, DMTURN

45%

45$%
#7 .DMTURN
508

#1,STARES

45%
#FINIT3

2d22 2222222222222 dddd ]

;IS THIS A SPECIAL MANUFACTURING TEST CON.?
sIF NOT = SET MAINT BIT ONLY FOR MODEM LOOP
iy

000002

= CONTINUE
sIF NOT

TMuMK

022737
001004
042737
000417

20%
#BIT4 ,AX3
308

002304

sBE THE INTERFACE SELECTED.
;1S V.35 REQUESTED?

#1 ,DMTURN

TLHMLMKYY

000020

SEQ 0091

CMP
BNE
BIC
BR

[ TETETE
TR

002254

PAGE 92

£ By b by b b bt

000001

SeN.N.N.8, 8.0,

022737
001004
042737
000427

12:42

AR AR AN AN RANAN AR RN

RRRRR

THIS V.35 WITH SPECIAL CONNECTOR?

YES = SET WRITE MAINT. BIT
THIS EIA WITH SPECIAL CONNECTOR?
YES = SET WRITE MAINT. BIT
THIS LOCAL LOOP?
YES = SET WRITE MAINT. BIT.
THIS REMOTE LOOP?

NOT = CLEAR MAINT. BIT FLAG
THIS THE FIRST PASS?
NOT - SKIP MESSAGE

;WARN TO USE ONLY TESTS 17-19

MoV
MOV
MOV
ADD

002306

45%:

50%:
END:

CANDINIT

#FINIT3,-(SP)
#1,-(SP)
SP.RO
CSPNTB
#4,SP

MOV

#1,WMAINT

;SET FLAG TO WRITE MODEM MAINTENANCE BITS.

CLR

WMAINT

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

END

L10014:

—

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
CZDMID.P1
INITIALIZE SECTION
29-JuL-81 11:32
4234

104411
04

4235

025052
044516
053440
051501
040440

051523
040445
020124
024501
025101

052117
040445

021750

025040

025052
020110
042524
041120
051525
052123
026440
047117
022452

82%2?2

FINIT1:

_ASCIZ

12:42

PAGE 93

SEQ 0092
TRAP

/%A** WARNING = WILL ASSUME ADDRESS Z06%A (NOT X06XA)IN/

047045
020052
047111
044527
051523
042526
020040
020101
022440
022451

FINIT2: .ASCIZ

/%A*~ WARNING - WILL ASSUME VECTOR

053440
042522

FINIT3:

/%A** WITH REMOTE LOOPBACK USE TESTS 17 = 19 ONLY **2IN/

046040
041501
020105
020123
030440
054514
000116

LASCIZ

.EVEN

X03%A (NOT X03%A) %N/

CSINIT

CZDMiDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81 12:42
AUTO DROP UNIT SECTION
CZDMID.P11
29-JuL-81 11:32
.SBTTL

4265
4266
4267
4268

8
PAGE 94

SEQ 0093

AUTO DROP UNIT SECTION

SITIITIIIII77777777777777777777777777777777777777777777777777777777777777777
;/ 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.
SIITITIITI777777777777
777777777777 7777777777707777777777777777777777777777777

4272
4273

021756
021756

4275

021756

BGNAUTO

012746

012746
012746

4283

004
022010

062706

005037
005777

LSAUTO::

SETVEC

000340

023630
000004

#4 ,ANOXMEM,#PRI07 ;SET UP NON -EXISTENT MEMORY TRAP VECTOR.
#PRI07,-(SP)
MoV
MOV
MOV

MOV

TRAP

000010

002352
160216

CLR
TST

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

022014

012700
104436
005737
001406

000004

013700
104451

002370

104444

005037

CLRVEC

002352

TST

BEQ
DODU

002352

CLR

22222ttt

ittt

iRl d

;RETURN VECTOR 04 TO NORMAL STATE
MOV

TRAP

1%
LOGDEV

;DID NXM OCCUR?
;IF NOT EXIT
;DROP THE DEVICE

NXMF LG

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

NXMF LG

DOCLN

ENDAUTO
104461

CSSVEC

sREFERENCE MEMNRY ADDRESS FOR THE DEVICE
:TO SEE IF IT EXISTS.

aCSR

-8 2222222222232

#3,-(SP)

#10,SP
ADD
;CLEAR FLAG THAT WILL BE SET IF NXM OCCURS.

NXMF LG

- (SP)
#NOXMEM,
#4 ,~(SP)

MOV

L10015:

TRAP

]

#4 ,RO

C$CVEC

LOGDEV,RO
C$DODU

CS$DCLN

CSAUTO

E%g:}gop?qk-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42
CLEANUP CODING SECTION
29-JuL-81 11:32
4314
4315
4316
4317
4318
4319
4320
4321

.SBTTL

8
PAGE 95

SEQ 0094

CLEANUP CODING SECTION

SIIIITIII777777777777772777777777777777777777777777777777777777777777777/777
s/
s/

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

EVEN IF IT IS A NULL CLEANUP

SIIIITII7777777777777770777707777777777°777777777777777777777777777777777777777

022046
022046

BGNCLN

005737
001003
012777

002352
040000

TST

160150

108
ENDCLN

104412

L$CLEAN::
BNE
MOV

NXMFLG

10%
#MCLR,aSELO

;WAS THERE A NXM ERROR?

:IF YES = SKIP MASTER CLEAR.
;ISSUE A MASTER CLEAR.

L10016:

TRAP

C$CLEAN

E 8
12:42 PAGE 96
CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
CZDMID.P11
29-JuL=-81 11:32
GLOBAL INTERRUPT HANDLING ROUTINES
4336

.SBTTL

SEQ 0095

GLOBAL INTERRUPT HANDLING ROUTINES

SIIIITTITITIIII7 777777770077 777777777777777777777777777777777777777777
'/ THE INTERRUPT HANDLING SECTION CONTAINS CODING REQUIRED TO USE
/ THE 'SETVEC' MACRO.
NOTE EVERY INTERRUPT ROUTINE SHOULD SAVE
:/ AND RESTORE RO.
1111117 10777777770070701000770100100071070717017100777171111711111717111
BGNSRV

022110

010046
010146
017701
042701
032777
001002
000137

160136
177760
000200

INISR

s INPUT INTERRUPT SERVICF ROUTINE
RO,=(SP)
R1,-(SP)
@SELO,R1
#177760,R1
1§DI.BSELO

MOV
MoV
MOV

BIC
BIT
BNE
JMP

160124

022620

;SAVE R1
sSAVE THE CONTROL IN COMMAND.
;CLEAR ALL BUT THE COMMAND BITS (0-3)
;IS RDI SET
;IF YES = PROCESS INPUT COMMAND.
s ISSUE NEXT INPUT COMMAND.

NEXT
AR

INISR

:SAVE RO

A A AR A AR AR AR A AR AR AR A AR AR

R AR

A AR AR AR AR AR AR AR

* PROCESS INPUT COMMAND
4

022114
022114
022120
022122
022126

022130
022134
022136
022142
022144
022150
022152
022156
022160
022164
022166
022166
022170
022172
022174
022176

022701
001533
022701
001537
022701
001461
022701
001444
022701
001417
022701
001410
022701
001572

1%:

000004

000000

000003
000001

000005

CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ

A A A

AR AR AR A AR AR AR AR AR AR AR AR

#BACCR,R1

29%
R1
#BACCT
308
#BASE
] ,R1
20%

#CNTRL ,R1

15%

#WMODEM,
R1

10%

000015

#INTER,R1

000002

#HLT R

70%
17 ,EMG17 ,ERRGZ2

022200

70%

AR IR R AR A AR AR AR AR

IS THIS A RCV. BA/CC?
BR IF YES.

oo T3 T AR

SRR

S THIS A XMIT. BA/CC?

BR
IS
BR
IS

IF
YES
THIS A BASE IN?
IF YES.
THIS A CONTROL IN?
IF YES.
IS THIS A WRITE MODEM?
BR IF YES.
IS THIS AN INTERFACE WRITE.
BR IF VYES.
;IS THIS A HALT?
;EXIT = IF YES (NOTHING TO SET UP)
;PROBLEM IF

IT'S NOT ONE OF

THE ABOVE.
TRAP

SEXIT

WCRD
.WORD
.WORD

5%:

: WRITE AX3-15
022200

113777

022206

000561

022210

002304

160042

10%:

MOVB

AX3,aBSEL7

70%

sWRITE NECESSARY AX3-15 INTERFACE.
;?ngHAS BEEN DETERMINED IN THE

INIT

CSERDF

17
EMG17
ERRGZ2

F
8
29-JUL-81
12:42 PAGE 97
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
GLOBAL INTERRUPT HANDLING ROUTINES
CZDMID.P1
29-JuL~-81 11:32
4392
4393
4394
4395
4396
4397
4398
4399

; MODEM WRITE
022210

4405
4406
4407
4408
4409
4410
44611

022737
001007
042777
052777

000006

002254

000004
000110

160012

042777
052777
000537

000010
000104

157774
157766

000546

4400
4401

4402
4403
4404

SEQ 0096

022254

160004

11%:

15%:

tmp

#LLOOP,DMTURN

BIC
BIS
BR

#MAINT1 ,@SEL6
;ENSURE LOCAL LOOPBACK IS CLEAR.
#DTR!MAINTZ2,QSEL6 ;SET MAINTENANCE 2 BIT AND DTR.
70%
;CLEAR RQI

BNE
BIC
BIS
BR

;IS LOCAL MODI:M LOOPBACK DESIRED?

118
:BR IF NOT
#MAINT2 ,@SEL6
;ENSURE REMOYE LOOPBACK IS CLEAR.
#DTR!MAINTT,aSEL6;SET MAINTENANCE 1 BIT AND DTR.
70%

*CONTROL IN
022254
022260
022262
022270
022272
022272
022276
022300

005737

002300

012777
000530

000400

005077
000525

157742

001404

TsT

MNTMDE

MOV

#MAINT ,SEL6E

CLR
BR

ASEL6
70$

sFULL DUPLEX = NON-MAINT. MODE.

#BASE ,SEL4

;BASE TABLE ADDRESS.

BEQ

157750

17%:

20%:

17%

70%

;1S MAINTENANCE MODE REQUESTED
:BR IF NOT
sREQUEST MAINT. MODE

*BASE IN

022362
022362
022366
022370
022376
022400
022400

022406

MOV

DMCMDE

22%
#DMR
, ASEL6
238

;ARE WE

157716

BNE
MOV
BR
CLR

ASEL6

;DMC MODE

002640

005737

002276

012777
000402

000522

005077

157710

005737
001004
052777
000406

002272

000100

157670

052777
012737

010000
177777

157664

005737
001004
052777
000465

002254

042777

004000

001004

022354

157730

012777

000461

004000

22%:
23%:

24%:

002360

25%:

157624

BNE
BIS
BR

24%
#1E0,@SEL2
25%

START

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

BIS
MOV

#RES,ASEL6
#-1,RESFLG

:SET RESUME
;FLAG THAT THIS IS A BASE IN RESUME COMMAND
s (THIS WILL BE USED LATER IN THIS ISR TO
;DECIDE WHAT THE NEXT COMMAND WILL BE)

DMTURN

B8R

27%
#LPLU,QSELO

70%

;1S INTERNAL LOOPACK REQUESTED?
;BR _IF NOT = CLEAR LU LOOP
;SET THE LINE UNIT LOOPBACK BIT

BIC

#LPLU,QSELO

EkgA?)LINE UNIT LOOPBACK (CONNECTOR OR

70%

:CLEAR RQI AND EXIT

BNE
BIS

157634

27%:

IN DMC MODE?

:BR IF YES
:DMR MODE.
s CHECK LOOPBACK.

*BA/CC IN RCV

:CLEAR RQI AND EXIT.

G 8
12:42 PAGE 98
29-JuL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32
GLOBAL INTERRUPT HANDL ING ROUTINES
4448
4449
4450
4451
4452

4453

4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
4465
4466
467
4468
4469
4470
4471
4472

022410
022410
022414
022420
022424

005337
012277
012277
000406

022426
022426

022446

005737
001441

002302

022450

052777

040000

022456
022460
022464

010246
017702
042777

157552

022472
022476
022502

042702
022702
001421

022512

052777

4479
4480
4481

022520
022522
022522
022526
022530

000412

4484
4485
4486
4487

022540
022540

4488
4489
4490
4491
4492

4493
4494
4495

4496

4497
4498
4499
4500
4501
4502
4503

sDECREMENT COUNTER
sRCV BUFFER ADDRESS

sRCV CHARACTER COUNT

;BA/CC IN XMIT
002330

4482
4483

INRCV
(R2)+,aSEL&
(R2)+,aSEL6
408

157616
157614

005337
012377
012377

4473
4474
4475
4476
4477
4478

29%:

002326

SEQ 0097

022432
022436
022442
022442

022536

022702
001004
052777

157600
157576

160000

020000

157562

040000

060000

010137

002364

005737

002276

042777

TST

MMANAG

;ARE THE BUFFERS MEMORY MANAGED?
sIF NOT SKIP CONVERTING VIRTUAL ADDR

BIS

#BIT14,3S5L6

708

#160000,SEL4

#17777 ,R2
#60000,R2

44$
#100000,R2

41%

#BIT13,aSELS

157516

443

41%:

2120000.R2
#BIT14 ,9SELS

157500

157470

449

42%:

(SP)+,R2
70%

R1,LAST
TST

DMCMDE

MOv

(SP)+,R1
(SP)+,R0O
#IECLR,QSELO
#RQ] ,9SELO

BNE

;SET BIT 16 OF PHSICAL ADDRESS (I.E.
:VIRTUAL ADDR 60000 = PHYSICAL ADDR 200000
;SAVE R2 (NEXT RCV BUFFER ADDRESS)
:SAVE THE VIRTUAL ADDRESS.
sCLEAR BITS CORRESPONDING TO THE PAGE #
sIN THE VIRTUAL ADDRESS.
;SAVE ONLY THE_PAGE # IN THE SAVED ADDR.
;1S THIS PAGE 3?
:IF YES, PHYSICAL ADDRESS CALCULATED
;IS THIS PAGE 4?
;IF NOT SEE IF IT'S PAGE 4 OR 5
sSET BIT FOR PHYSICAL ADDR (I.E. VIRTUAL
;ADDR 100000 = PHYSICAL ADDR. 220000

;1S THIS PAGE 4?
:IF NOT, MUST BE PAGE 5.
;SET BIT fOR PHYSICAL ADDR (I.E. VIRTUAL
;ADDR 120000 = PHYSICAL ADDR. 240000

;ADDR 140000
= PHYSICAL ADDR. 26

70%:

:TO PHYSICAL ADDR.

#BIT14!BIT13,2SEL4 ;SET BIT FOR PHYSICAL ADDR (10860VIRTUAL

44%:

000020
000040

(R3)+,aSEL6

R2,=(SP)
@SEL4 ,R2

157544

120000

022552
022552

001011

;DECREMENT COUNTER
sXMIT BUFFER ADDRESS.
sXMIT CHARACTER COUNT.

BEQ

000403

052777

INXMIT
(R3)+,aSELS

100000

012602
000400

022576

40%:

DEC
MOV
MOov

017777
060000

022546
022546
022550

022556
022562

30%:

BIS
BIC

80%

sJRESTORE R2 (NEXT RCV BUFFER ADDRESS)

;CLEAR RQI AND EXIT

;SAVE THE INPUT COMMAND (USED
:TO DETERMINE NEXT INPUT COMMAND)
JARE WE IN DMC MODE?
:£ST¥ES = DON'T USE IECLR
INTERRUPT CAPABILITY FOR RQI
;CLEAR IS ONLY AVAILABLE IN DMR MODE.
;RESTORE R1
sRESTORE RO
;SET INTERRUPT ENABLE FOR RDI CLEAR.
;CLEAR RQI = INT. GENERATED WHEN RDI

H 8
=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE 99
GLOBAL INTERRUPT HANDL ING ROUTINES
29-JuL-81 11:32
000002

042777

;CLEARS IN RESPONSE.

RTI

000020

157416

80%:

BIC
CALL

SEQ 0098

sRETURN AND WAIT FOR ROI CLEAR INTERRUPT.

#1ECLR,@SELO
$CLRQI

SRR AR AR A AN R AR AR AR

sENSURE INTERRUPT ENABLE FOR RDI CLEAR IS CLR.
sCLEAR RQI AND WAIT FOR RDI TO CLEAR

AR AR

AR AR AR AR

AR RS

: RDI CLEAR = DETERMINE NEXT INPUT COMMAND.
.

SRR

022737

001011
005737

001537
005737
001403
005737
001131
005737

001404
005737
001434
000441

022737
001411
022737
001414
022737
001417
000424

000002

002364

002274

002354
002356
110%:

002276

000003

002364

000015

002364

000005

002364

000155

002272
000141

117%:

157256
130%:

157242
150%:

023016

002360

BEQ

INFLAG

1108

s INPUT BUFFER DONE?

002326

170%

TST

DMCMDE

;ARE WE

TST

START

sJHAVE WE DONE A CONTROL

BEQ
BR

1708

1118

130%
1508

CMP

#BASEI ,LAST

CMP

#WMODEM, LAST
1308

BEQ
BR
TST

;OUTPUT BUFFER DONE?

;IF YES, DON'T ISSUE ANOTHER COMMAND.
IN DMC MODE?

sIF NOT (DMR MODE) - CHECK INTERFACE.
IN?

:IF NOT, DO IT.
;OTHERWISE = KEEP CHECKING ON NEXT COMMAND.
;WAS THE LAST COMMAND A BASE IN ?

1158
#INTER,LAST
117%

;IF YES = SEE IF INTER. OR M. WRITE IS NEEDED?
;WAS THE LAST COMMAND AN AX3-15 WRITE?
;IF YES = CHECK FOR MODEM WRITE.

1508

;KEEP CHECKING FOR NEXT COMMAND.

INFACE

;WAS THE LAST COMMAND A WRITE MODEM.
sIF YES = ISSUE A CONTROL IN.
;IS AN AX3-15 WRITE NEEDED?

BEQ
ggVB

117%
IF NOT
:BR
:;SEET'RQI'INTERaBSELO ;ISSUE AN AX3-15 WRITE COMMAND.

TST
BEQ
ggVB

WMAINT
;WRITE MAINT1 OR 2?
1308
s IF NOT = SKIP WRITE MODEM COMMAND.
:gngT'RQI'UHODEHL@BSELO ;ISSUE A MODEM WRITE COMMAND

INC
ggVB

START
sSET FLAG THAT CONTROL IN WAS ISSUED.
1;S§ET'RQI'CNTRLL@BSELO ;ISSUE A CONTROL IN

TST

INRCV

TST

RE SUME

BIT
BEQ

#BI1T0, INRCV
153%

BEQ
TST

Rdr®

:1F _NOT, PROCEED.

OUTFLG

BNE

sIF NOT, DON'T ISSUE ANOTHER COMMAND.

TST

BEQ

002274

000001

;WAS THE LAST COMMAND A HALT?
:IF NOT = PROCEED.
sARE WE TESTING RESUME?

BEQ
CMP
BEQ

157274

002326

032737
001411
005737

111%:

115%:

002306

000145

#HLT ,LAST
1108
RE SUME

BEQ

002272

AR AR AR

CMP
BNE
TST
BEQ
TST

002262

023014

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

;ARE ALL

THE BA/CC

IN RCVS DONE?

160%

:IF YES = BR TO SEE IF XMITS DONE.

153%

:BR IF NOT.

RESFLG

;IS A TEST OF

RESUME REQUESTED?

1S THIS AN ODD COUNT?

:BR IF NOT,

:WAS THE LAST COMMAND A BASE

IN RESUME?

I 8
CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
12:42 PAGE 100
CZDMID.P1
29-JuL-81 11:32
GLOBAL INTERRUPT HANDLING ROUTINES

4560
4561
4562
4563
4564
4565
4566

4567
4568

4569
4570
4571
4572

023022

001004

023024
023032

112777
000440

000142

005037

002360

112777
000432

000144

023034
023034

023040
023040
023046
023050

BNE

4573
4574
4575

023050
023054
023056

005737
001424
005737

002330

4577
4578
4579
4580

023064
023072
023074
023100

032737
001411
005737
001004

000001

112777
000411

000142

023112
023116

005037

002360

023124
023126

000403

112777

000140

4576

4581
4582
4583

4584
4585
4586

4587
4588
4589

4590

4591
4592

2232

023062

023102
023110
023112
023116

001415

023126

012737

4595
4596

023134
023134

012601

4599
4600

023140
023140

228;

%‘1?

023136

023140

157200
152%:

157164

160%:

002330

002360

177777

157122
162%:

157106

002354

4609
4610
4611
4612

4613

4614
4615

MOovB
BR

:IF YES, ISSUE BA/(CC
sHALT = TO TEST RESUME. NOTE: THIS WILL
;OCCUR ONLY WHEN RESUME IS REQUESTED,
;FOLLOWING EVERY OTHER BA/(CC
; COMMAND
(NEVER FOLLOWING A RESUME)
#IESET!RQI!HLT ,@BSELO ;HALT IT
1708

CLR

RESFLG

MOvB
B8R

#IESET!RQI!BACCR,aBSELO ;ISSUE A BA/CC IN RCV. COMMAND.
170%

TST

BEQ
TST
BEQ

002274

163%:
165%:

170%:

012600

152%

INXMIT

165%
RE SUME
163%

;CLEAR FLAG.

sARE ALL THE BA/CC IN XMITS DONE?
:IF YES, SET THE FLAG
;IS A TEST OF RESUME REQUESTED?
;BR IF NOT.

BIT
BEQ
TST
BNE

#BITO, INXMIT
163%
RESFLG
162%

MOvB
BR

#IESET!RQI!HLT ,@BSELO ;HALT IT
170%

CLR

RESFLG

MOvVB

#IESET!RQI!BACCT,@BSELO ;ISSUE A BA/CC IN XMIT COMMAND.

MOV

#=1,INFLAG

;FLAG THAT ALL BA/CC INS DONE.

MOV

(SP)+,R1

;RESTORE R1

MOV

;1S THAIS AN ODD COUNT?
;BR IF NOT.
:WAS THE LAST COMMAND A BASE IN RESUME?
;IF YES, ISSUE BA/CC

sHALT = TO TEST RESUME.
NOTE: THIS WILL
sOCCUR ONLY WHEN RESUME IS REQUESTED,
;FOLLOWING EVERY OTHER BA/CC

;COMMAND

(NEVER FOLLOWING A RESUME)

;CLEAR BASE IN RESUME FLAG.

170%

(SP)+,RO

sRESTORE RO

ENDSRV

L10017:

000002

‘ws
4w‘

4605
4606
4607
4608

153%:

SEQ 0099

RTI

.'tfittttttttittttttttttttt'tttttt*fitt*.i"tt.t."tt"'fi.'Q".t"'t'ttt
,'"tttt..*ttttttttttttttttttttttt'fititii*tt'tilt.*tt".'ttt.'.'t'tt"'

023142
023142
023142

023144

023152
023154

023154

023156
023160

BGNSRV

010046
032777
001006

104455

000022
020353

000200

157062

OUTISR

MOV

BIT

RO,=(SP)
#RDO,QSEL?2

ERRDF

18,EMG18,ERRGZ

BNE

;OUTPUT INTERRUPT SERVICE ROUTINE
OUTISR::
:SAVE RO

;1S THE RDO OUT BIT SET?

;IF YES = OK TO PROCEED.
;OTHERWISE REPORT SPURIOUS INTERRUPT

TRAP

.WORD
.WORD

CSERDF
18

EMG18

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

29-JuL-81 11:32

015124
000137

4616

4617

4618
4619
4620
4621

032777
001452
032777
001013
032777
001407
000137

s¢

023566
000001

157036

001000

157032

000040

157022

60%

BIT
BEQ
BIT
BNE

#CNTRL ,@SEL2
208
#HALTC ,QSELG
108

;1S
:1F
;1S
JIF

BEQ
JMP

10%
65%

;IF NOT = REPORT ERROR
JEXIT

BIT

023616

.WORD

JMP

ERRDF

#DMRRUN,@SEL6

9,EMG9,ERRG2

;IS THIS DMR RUN MODE ACKNOWLEDGE?

JUNEXPECTED CONTROL OUT.

.WORD

108

65%

JEXIT ROUTINE

INFLAG

;ARE THE

TST

OUTFLG

;ARE THE OUTPUTS DONE?

TST

RE SUME

.WORD

005737

002274

012777
000240
000240
052777

040000

156744

BEQ
MOV

000100

156734

BIS

112777

000143

156724

MOVB
BR

JRESET INTERRUPT ENABLE (MASTER
sCLEAR - CLEARS ALL BITS)
#IESET'RQI !BASEI, aSELO
;ISSUE A BASE IN
65%
;BRANCH OUT

ERRDF

16,EMG16

000543

TST

BEQ

002356

158

16%:
104455

000020
020250
000000
000137

023566

208

002302
032777

040000

156700

104455

218
140000
156650

156656

16%
#MCLR,QSELO

TST

MMANAG

EMGY
ERRG2

INPUTS DONE?

BR IF NOT

;IF YES - ALL DONE, EXIT
;IS A RESUME REQUESTED?

;IF NOT - BRANCH TO ERROR.
sISSUE A MASTER CLEAR.

408
#BIT14,aSELE
21%
11,EMG11,ERRG2

JERROR = UNEXPECTED HALT.

TRAP

.WORD
.WORD
.WORD

;IF NOT = NO NEED TO DETERMINE PHYS. ADDR.
*I1S BIT 16 OF THE PHYSICAL ADDR SET?
;(I1.E. BUFFER SHOULD BE

IN PHYSICAL

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

TRAP

.WORD
.WORD
.WORD

60%

BIC

ABIT15!BIT14,aSEL6 ;CLEAR THE EXTENDED ADDRESS BITS.

aSEL4 ,R2

CSERDF
16
EMG16
0

;ARE THE BUFFERS MEMORY MANAGED?

MOV

CSERDF
9

. #]1EO,@SEL2

60%

BNE
ERRDF

000013
020116
015124
000505

60%

JMP

BEQ
BIT

001005

042777
017702

BNE

15%

ERRGZ

THIS A CONTROL CUT
NOT = PROCESS BA/CC OuT
THIS CONTROL OUT A HALT?
IT IS - SEE IF WE SHOULD RESUME.

002354

001414

023310
023310

SEQ 0100

PAGE 101

005737
001403
005737
001146

023300
023306

12:42

GLOBAL INTERRUPT HANDLING ROUTINES

104455
000011
020040
015124
000570

023272

29-JuL-81

:SAVE BITS 0-15 OF THE PHYSICAL ADDRESS.

CSERDF
11
EMG11

ERRG2

K 8
12:42 PAGE 102
29-JuL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
GLOBAL INTERRUPT HANDLING ROUTINES
CZDMID.P11
29-JuL-81 11:32
023366
023372

042702
042777
005702
001004
052777
000421

017777
160000

060000

156636

BIC
BIC

#17777 .R2

;SAVE ONLY PAGE ADDRESS BITS.

156624

TST
BNE
BIS

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

CMP
BNE
BIS
BR

#20000,R2

;1S THIS PAGE 4?

#100000,8SEL4
408

:SET BITS FOR PAGE 4.

CMP
BNE
BIS

#40000,R2

;1S THIS PAGE §?

#120000,aSEL4
408

-SET BITS FOR PAGE 5.

22%:

022702
001004
052777
000412

020000

022702
001004
052777
000403

040000
120000

156570

052777

140000

156560

032777
001023

000004

156550

100000

156606

23%:

24%:
40%:

002334

156520

104455
000014
020141
016062
000415

005337
022477
001406

002332

41%:

BEQ
ERRDF

50%:

156472

104455

023562
023566

017724

22%

#60000,aSEL4
408

23$

248

:CLEAR PAGE ADDRESS BITS IN SEL4

*IF NOT CHECK FOR OTHER PAGES
:-SET BITS FOR PAGE 3.

*IF NOT = KEEP CHECKING

*IF NOT = MUST BE PAGE 6

#140000,8SEL4

:;SET BITS FOR PAGE 6.

#RCV,ASEL2

;1S THIS A RECV. BUFFER?

OUTXMT
(R5)+,@SEL4
41%
(R5) +
11.EMG11,ERRG8

*DECREMENT BA/CC OUT XMIT.
*IS THE XMIT BUFFER ADDRESS CORRECT?
*IF YES - PROCEED.
*INCR. POINTER FOR ERROR MESSAGE.
:IF NOT - ERROR
TRAP
.WORD

*IF YES - PROCESS THE BUFFER.

608

:EXIT ROUTINE

(RS)+,@SEL6
608
12.EMG12,ERRG8

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

60%

JEXIT

DEC

OUTRCV

:DECREMENT BA/CC OUT RCV

BEQ

51$

*IF OK - PROCEED

ERRDF

000013
020116
015764
005724
000402

#160000,3SEL4

508

156540

022577
001422

SEQ 0101

(R4) +,@SEL4

11.EMG11.ERRG?

"WORD
"WORD

EMG11
ERRG8

TRAP

CSERDF

.WORD
.WORD
"WORD

156452

51%:

60%:

MoV

(R4) +

12
EMG12
ERRGS

*1S THE RCV BUFFER ADDRESS CORRECT?
TRAP

.WORD
"WORD

TST

CSERDF
11

:UPDATE POINTER

.WORD

608

“EXIT ROUTINE

ASEL6, (R4) +

:CHANGE THE CHARACTER COUNT TO WHAT
;WAS RECEIVED.

CSERDF

11
EMG11
ERRG7

L 8
29-JuUL-81
12:42 PAGE 103
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
GLOBAL INTERRUPT HANDLING ROUTINES
CZDMID.P11
29-JuL-81 11:32
4728
4729
4730
4731
4732
4733
4734

4735

4736

4737
4738
4739

4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754

005737
001011
005737
001006

002334

042777
012737

000100

177777

002356

042777
012600

000207

156410

TST

OUTXMT

JHAVE ALL

TST

OUTRCV

JHAVE ALL THE RECEIVES BEEN DONE?

BIC

#1EO0,QSEL2

;CLEAR THE OUTPUT INTERRUPT

BIC
MOV

#RDO!CMD,@SEL2
(SP)+ RO

;CLEAR THE RDO BIT.
;RESTORE RO

BNE

002332

618
156424

658

ENDSRV

SEQ 0102

BNE

MOV

65%

THE XMITS BEEN DONE?

s IF NOT, CONTINUE

65%

;IF NOT, CONTINUE

#-1,0UTFLG

sFLAG AS DONE.

L10020:

000002

RTI

;tt'fitt*t**ittitt*fittittittttt'ttt't!tt.iQtt.tt'..'.'.'.."...""..'

3 1223323223232 2 222222222222

BGNSRV

012737
023636
023636
023636

000001

002352

MOV

ENDSRV

000002

NOXMEM

23t

iRt

iRttt

dld

]

:
NOXMEM:

#1 NXMFLG

;SET FLAG IF MEMORY ADDRESSED IS NON-EXISTENT.

L10021:

RTI

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL=-81
DROP UNIT SECTION
CZDMID.P1T
29-JuL-81 11:32
4755
4756
4757

.SBTTL

12:42

SEQ 0103

PAGE 104

DROP UNIT SECTION

SITIITIITI7 777777777777 7707777777777777777777777777777777777777777777777777777
:/ THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE

:/ TO NO LONGER BE TESTED.

SIITIIIII77 2777777777770 700777777777777777777777777777777777777771777777777
BGNDU

BRESET

104433

013746
012746
012746
010600

002370
023670
000002

062706

000006

104417

L$DU::

PRINTF

s ISSUE UNIBUS RESET TO CLEAN UP
#FMDROP,LOGDEV

L10022:

104453

023712

040445
022440
042040
042105

MOV
MOV
MOV

ENDDU

047045
052111
040445
050120
023720

TRAP

047125
031104

047522
000

FMDROP:

.ASCIZ

.EVEN

/ZNXAUNIT %D2%A DROPPED/

CSRESET
LOGDEV,=(SP)

#FMDROP ,~(SP)
#2,-(SP)

SP,RO
CSPNTF

ADD

#6,SP

TRAP

(V)

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11

29-JuL-81 11:32

29—JUL-81

12:42

PAGE 105

SEQ 0104

T1 - DMR CSR VERIFICATION

2;%2

.SBTTL

4787

:a'ttttttttttttttttatttt'ttttttttttttttttttttttttttattttttttttt\nttttt

2;3?

:* EXISTENT MEMORY TRAP.

4788
4789

%
TEST 1 = DMR-11
:* VERIFY THAT ADDRESSING THE 4 UNIBUS CSRS DOES NOT CAUSE A NON- %

4792
4793
4794
4795

:*
:*
;%
:*

4798
4799
4800
4801

:%
;*
:*
:*

2;39

-R

023720

THE FOUR REGISTERS ARE ASSIGNED ADDRESSES IN THE 1/0 PAGE

4806
4807

023720
023720

012746

000340

4809
4810
4811
4812
4813
4814

023730
023734
023740
023742
023746
023752

012746
012746
104437
062706
005037
005001

000004
000003

023724

223223333333 23323 233323333233 23333 33233333323 333333323333333333333333333233323]7

BGNTST

023720

23}2

SET OF FOUR 16-BIT UNIBUS CONTROL AND STATUS REGISTERS (CSRS).

- %

2ggg

4808

THE DMR IS AN NPR DEVICE RESIDING ON A UNIBUS.
COMMUNICATION
BETWEEN THE MAIN CPU AND THE DMR IS ACCOMPLISHED THROUGH A

:* FLOATING ADDRESS SPACE: 76XXX0 = 76XXX6

4802

4803

TEST 1 = DMR CSR VERIFICATION

012746

T1::
SETVEC

024042

#4 ,#LOCATE,#PRIO7 ;SET UP NON -EXISTENT MEMORY TRAP VECTOR.
MOV
#PRI07,~(SP)
MOV

000010
002352

;
CLR
CLR

NXMF LG
R1

MOV
MOV
TRAP
ADD

:FLAG USED IN THE TRAP ROUTINE.
;USE REGISTER TO REMEMBER WHICH OF THE

lLOCATE -(SP)

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

:4 CSRS WE ARE ADDRESSING.

481 7

: ; 132332323333 3332333333233 3333333333333 3233333233 333333 3333333333323 333333333332333]

4818
4819
4820

: 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

4821

; ; 133333323333 33333333333333333333333333333233333233333323333323323333333323232323223;

4822
4823
4824

023754
023760

005777
012701

156252
000002

TST
MOV

@SELO
#2.R1

:TEST THE CSR AT 76XXx0
:SAVE THE OFFSET OF THE NEXT CSR

4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840

023770
023774
024000
024004
024010
024014
024016
024016
024022
024024
024024
024026
024032
024032
024032

012701
005777
012701
005777
005737
001406

000004
156236
000006
156230
002352

013700
104451

002370

MOV
TST
MOV
TST
TST
BEQ
DODU

#4 ,R1
aSEL4
#6.R1
aSEL6
NXMF LG
108
LOGDEV

:SAVE THE OFFSET OF THE NEXT CSR
:TEST THE CSR AT 76XXX4
:SAVE THE OFFSET OF THE NEXT CSR
:TEST THE CSR AT 76XXX6
:WAS THERE A TRAP?
:IF NOT = EXIT.
:DROP THE DEVICE

4825

023764

005777

156244

TST

@aSEL?2

DOCLN

104444
005037

002352

012700

000004

10%:

:TEST THE CSR AT 76XXX2

MOV
LOGDEV,RO
TRAP
C$DODU
:DO CLEAN UP - FORCE BACK TO INIT CODE.
TRAP

CLR

NXMF LG

:RESTORE THE FLAG.

CLRVEC

:RETURN VECTOR 04 TO NORMAL STATE
MOV

CSDCLN

#4 RO

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32
024036

024040
024040
024040

SEQ 0105

Ttle DMR CSR VERIFICATION

ENDTST

L10023:

104401

010046

024052
024052

12:42

9
PAGE 106

104643¢€

BGNSRV

024050

29-JUL°81

005737
001006
104455
000006
024120
000000
005237

016146
010146

012746

002352

10%:

002232

ENDSRV

RO,=(SP)
NXMFLG
108

ERRDF

6,EMTO

;DEVICE FATAL ERROR
JNON=-EXISTENT DEVICE ERROR

INC

NXMFLG

:SET THE FLAG

PRINTX

#FMTO,R1,CSR(R1)

024226

051040
042116

051505
047522
051124
000
040445
051450
022461
020124
020101
047040
051505
047045

(SP)+ RO

TRAP
.WORD
.WORD

.WORD

JRESTORE RO

L10024:

EMTO:

.ASCIZ

/ADDRESS ERROR = TRAP &/

FMTO:

LASCIZ

/%S3%XACSR

.EVEN

CSETST

;PRINT THE CSR THAT DOESN'T RESPOND.
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

024116
024120
024126
024134
024142
024147
024154
024162

TRAP

LOCATE::
;SAVE RO
JHAVE WE HAD AT LEAST 1 PREVIOUS TRAP?
;IF YES, DON'T BOTHER DECLARING ANOTHER

MOV
TST
BNE

MOV

C$CVEC

;s INTERRUPT SERVICE ROUTINE

LOCATE

024147
000003
000010

TRAP

(SELXD1%A)

RTI

AT Z06%A DOES NOT RESPONDZN/

CSERDF
6
EMTO
0

CSR(R1) ,-(SP)
R1,-(SP)
#FMTO,~(SP)
#3,-(SP)

SP.RO
CSPNTX

#10,SP

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32

29-JUL-81
12:42
T 2 = ROM CHECK

9
PAGE 107

SEQ 0106

TEST 2 = ROM CHECK

.SBTTL
Y

2222222333223

222 2322222222222

2222222222322

22233 2320002222022

TEST 2 = DMR-11

THE

R IR

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

)

R I

;% LAST 4 BYTES CONTAIN INFORMATION ABOUT THE ROM TO CHECK.
THE 1ST
;* OF THESE BYTES CONTAINS THE ASCII VCRSION NUMBER.
THE 2ND BYTE
;* CONTAINS THE ROM NUMBER.
THE 3RD AND 4TH BYTES CONTAIN A NEGATIVE

R IR I I

;* CRC/CCITT WORD FOR THE ROM.
- %
CHIP ADDRESS RANGE
. %
BYTE
ADDRESS RANGE
LOCATION CHIP NO.

EO3
E02
E04
EOT
EOS
E14

- %
- %

R
R

R PR PR

. %
- %

- %

0
1
2
3
4
5

FEFE

R wxknenknnnnnrrt

LOW
HIGH
LOW
HIGH
LOW
HIGH

[MPORTANT

0000
0000
2000
2000
4000
4000

!!!!1111T1]

1777
1777
3777
3777
5777
5777

sk ekt

ek kA AR AR AR

AR R

;* 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

TRTETTEIEATE
A NA T

:» LOCKED OUT AND THE MAINTENANCE FEATURES WILL NOT BE ENABLED.
AR AR A A A

A AR A AR

AR A AR

ARk

*
*
*
*
*

SUBTEST 1 = ON THE FIRST PASS PRINT THE VERSION # IN EACH ROM
SUBTEST 2 = GENERATE THE CRC=CCITT IN EACH ROM AND COMPARE IT
IT AGAINST THE CRC BLASTED IN THE ROM
SUBTEST 3 = COMPARE THE ROM # BLASTED IN THE ROM AGAINST THE
EXPECTED ROM #.

tt'ti*tttQtt*ttttt"it*iti'tt*'*tt'i*'*fit"fifi"titti'*t*ttii.fit't"*'

024230
024230
024230
024230
024230
024232
024240
024242
024244
024250

BGNTST

104402

022737
001061
005004
012705

012737

000001

000001
001774

013746
012746
012746
010600

002370
025204
000002

062706

000006

104414

155726

024314

024322
024322

T2::

BGNSUB

155730
012746

025542

002270

12.1:
CMP
BNE

#1,STARES
5%

;IS THIS THE FIRST PASS?
:IF NOT = SKIP THIS SUBROUTINE.

CLR
MOV

R4
#1,RS

:# OF THE 1ST ROM
;# OF NEXT ROM

MOV

002412

PRINTB

#1?74 ROMADR

#FMT1,LOGDEV

TRAP

;GET VERSION # FROM EACH ROM AND PRINT IT OuT

:ADDRESS OF BYTE CONTAINING # IN ROMS O & 1
;MICROCODE VERSION

MOV
MOV
MOV

MOV

TRAP

025540
025542

ADD
CALL
MOVB

"$ROMO
aBSEL6,REV]

PRINTB

#FMT2,R4,#REV1.RS ,#REV2

MOVB

aBSEL7 ,REV2

csBsSuB

;GET ROM CONTENTS.
;SAVE THE ASCII REVISION # OF

LOGDEV,-(SP)
#FMT1,-(SP)
#2,-(SP)

SP,RO

CSPNTB

#6,SP

THE ROM

ESYSTTHE REV. # OF THE NEXT ROM

MOV

#REVZ,-(SP)

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
CZOMID.P1

12:42
29—JUL'81
T 2 = ROM CHECK

29-JuL-81 11:32

024326

01054¢€
012746
010446
012746
012746
010600
104414

SEQ 0107

025253
000005

mMov
MYV
MOV

R5,=(SP)
#REV1 ,=(SP)
R4 ,=(SP)

ADD

CSPNTB
#14,SP

025540

024352

062706

024356

022705

000005

024404
024404
024404
024404

PAGE 108

MOV
MOV
MOV

000014

000002
000002
002000

024374
024402

CMP
BEQ
ADD
ADD
ADD
BR

002412

#5.,RS
5%
#2 R4
#2,R5
#2000,ROMADR
1%

;ARE WE DONE?
;IF YES = EXIT
;INCR. ROM NUMBERS

*ADDRESS OF BYTES CONTAINING NEXT ROM REV #S.

5%:
ENDSUB

L10026:

104403
BGNSLB

024406
024406
024406
024410

005037

024414

005004

024416

005037

002412

024422
024422

012737

177777

002402

024430
024436

012737
012701

177777
001000

002404

104402

002344

10%:

HFMTZ2 ,=(SP)
#5,-(SP)
SP,RO

T2.2:

TRAP

C$ESUB

TRAP

c$B8suB

CLR

FLAG

CLR

ROMADR

:USE THE FLAG TO MARK WHEN AN ERRDF
HAS BEEN DETECTED IN THIS TEST.
:START CRC CHECK WITH ROM 0
THE LOCATION FOR THE
R4 IS THE ROM #.
ROM IS CONTAINED IN THE TABLE 'ROMLOC'.
BEGIN AT ROM ADDRESS 0

MOV

#-1,LOCRC

sINITIALIZE CRC WORD FOR THE LOW BYTE

MOV
MOV

#-1,HICRC
#1000,R1

: 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)

: BECAUSE A ROM OUT WILL OUTPUT THE ROM CONTENTS (I.E. 16 BITS)
; THIS ROUTINE WILL CALCULATE/CHECK THE CRC 2 ROMS AT A TIME.
024442
024442
024446
024454
024462
024466
024472
024500
024506

20%:
117737
117737
005237

002406
002410

117737

002407
002411

117737

005237

;

CALL
MOvB

MOVB
INC
CALL

MOVB
MOVB
INC

;GET _THE ROM CONTENTS
sSAVE THE LOW BYTE OF THE ROM CONTENTS.
:SAVE THE HIGH BYTE OF THE ROM CONTENTS.
aBSEL7 ,HIWORD
:INCREMENT THE ROM ADDRESS POINTER
ROMADR
:GET THE CONTENTS OF THE NEXT ROM ADDRESS
$ROMO
aBSEL6,LOWORD+1 :SAVE THE NEXT LOW BYTE.
aBSEL7 ,HIWORD+1 :SAVE THE NEXT HIGH BYTE.
:NOTE: AT THIS POINT LOWORD IS A WORD WHICH
$ROMO
aBSEL6,LOWORD

ROMADR

:HAS 2 CONSECUTIVE LOW BYTES OF ROM CONTENTS.
: INCREMENT THE ROM ADDRESS POINTER

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32
5000
288;

024512
024514

005301
001443

DEC
BEQ

5003
g%
024516
024522

012703

5009
5010
5011
5012
5013
5014
5015
5016
5017

024524
024530

5018
5019
5020

5021
5022
5023
5024
5025
5026

5027
5028
5029
5030

5031
5032
28;2

000020

25%:

MoV

#16.,R3

006037
006037

002402
002406

CLC
ROR
ROR

LOCRC
LOWORD

024534
024536
024542
024546

102011
012702
043702
042737
050237

102010
002402
102010
002402

BV(C
MOV
BIC
BIC
BIS

308
#102010,R2
LOCRC,R2
#102010,LOCRC
R2,LOCRC

CLC
ROR
ROR

HICRC
HIWORD

8vC

35%

MOV
BIC

#102010,R2
HICRC,R2

DEC
BNE
BR

R3
25%
20%

024554
024560
024560
024562

024566

000241
006037

006037

024572

102011

024574

012702
043702

024600
024604
024612
024616
024616
024620
024622
024624

042737
050237

002402
30%:

002404
002410

102010

002404
102010
002404

002404
35%:

005303
001340
000707

SEQ 0108

;ARE WE FINISHED WITH THESE 2 ROMS?
:IF YES, CHECK CRC

40%:

BIC
BIS

;16 BITS TO CONSIDER
;CLEAR THE CARRY

sROTATE BITO INTO THE CARRY BIT
;ROTATE BITO INTO C AND THE OLD C INTO BIT15
:ARE THE BITS 15 & BITS 0 THE SAME?
;IF YES (v IS CLEAR), DON'T DO THECRC
:NOTE: V IS THE EXCLUSIVE OR OF BITO & BIT15.
.'CRC/CCITT POL YNOMIAL

;CLEAR THE CARRY
JROTATE BIT 0 INTO C

;ROTATE OLD C INTO BiT15 (SIGN) & BITO INTO C
;ARE THE BITS O OF HICRC & HIWORD THE SAME?
;IF YES (v IS CLEAR), DON'T DO THE CRC.
;NOTE: vV IS THE EXCLUSIVE OR OF BITO & BIT1S.
sCRC/CCITT POLYNOMIAL

#102010,HICRC
R2,HICRC

;DO ALL 16 BITS

;GET THE CONTENTS OF THE NEXT 2 ROM ADDRESSES.

: 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
; CRC BLASTED INTO THE LAST 2 BYTES OF THE ROM (IN LOWORD/HIWORD)

5039
5040

024624
024630

005137
023737

5042
5043

024636
024640

001427
005737

5045
5046
5047

024644
024646
024654

001007
012737

5048
5049
5050
5051
5052
5053
5054
5055

R1
40%

000241

5036
ggg

5044

9
PAGE 109

024522

5035

5041

; CRC/CCITT CALCULATION = CONVERT THE WORD (LOWORD & HIWORD) TO
:
A SERIAL STREAM FOR CALCULATION.

5006
5007
5008

29-JUL-81
12:42
T 2 = ROM CHECK

024654 104455
024656 000007
024660 025472
024662 000000
024664
024664
024664 013746
024670 - 013746

002402
002402

002406

002344
000001

002344

41%:

002406
002402

COM
cMP

LOCRC
LOCRC,LOWORD

s COMPLEMENT THE CALCULATED CRC .
;IS THE CRC IN ROM THE SAME AS THE

BEQ
TST

508
FLAG

;IF YES = CHECK THE HIGH BYTE CRC (NEXT ROM)
sHAS AN ERRDF ALREADY BEEN DECLARED (REMEMBER

BNE
MOV
ERRDF

418
#1,FLAG
7,EMT1

PRINTB

#FMT3,R4,LOCRC,LOWORD

s CALCULATED CRC?

;WE'RE IN A LOOP)

;IF YES, DON'T BOTHER WITH ANOTHER ERRDF.
;FLAG THAT ERRDF HAS BEEN DETECTED.
;ROM ERROR

TRAP
.WORD
.WORD
.WORD

CSERDF
7
EMT1
0

MOV
MOV

LOWORD,~(SP)
LOCRC,=(SP)

—

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY1 30A(1052)
CZOMID.P11
29-JuL-81 11:32
5056
5057
5058
5059
5060
5061

5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072

024674
024676
024702
024706
024710
124712

024716
024716
024720
024724
024732
024734

010446
012746
012746
010600
104414
062706

005204
005137
023737
001427
005737

024740
024742
024750
024750
024752
024754
024756
024760
024760
024760
024764
024770
024772
024776

001007
012737

5086
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
gggg

025004
025006
025012
025012
025016
025020
025022
025026

104414
062706

5097
5098
5099
5100
5101
5102
5103
5104
5105

025030
025030
025030
025032
025036
025040
025046
025046
025052

5107
5108
5109
5110
5111

025056
025060
025060

5073
5074
5075

5076
5077
5078
5079
5080
5081
5082

5083

5106

025002

025026
025026
025026

025064

010600

022704
001403
005204
000137

—

9
PAGE 110
MOV
MOV
MOV
MOV
TRAP
ADD

000012
002404
002404

508:
002410

INC
COM
CMP
BEQ
TST

002344

BNE
MOV
ERRDF

002344
000001

51$:

R4
HICRC
HICRC,HIWORD
608
FLAG
A
518
#1,FLAG
7,EMT1

:WE'RE IN A LOOP)
:IF YES, DON'T BOTHER WITH ANOTHER ERRDF.
:FLAG THAT ERRDF HAS BEEN DETECTED.
*ROM ERROR
TRAP
CSERDF
.WORD
7
.WORD
EMT1
.WORD
0

PRINTB #FMT3,R4 ,HICRC,HIWORD

002410
002404
025330
000004

608:

000005
024422

cMP
BEQ
INC
JMP

708
:

#5 R4
708
R4
108

L10027:

BGNSUB

001775

117701

155162

002344

000402
155164

HIWORD
, = (SP)
HICRC,=(SP)
R4,
= (SP)
#FMT3,
- (SP)
#4,~(SP)

TRAP
ADD

CSPNTB
#12,5P

002412

108:

15%:
17$:

SP,RO

;IF WE'VE DONE ROMS 0-5, WE'RE DONE.
(EXIT WHEN DONE
:CHECK THE NEXT ROM.

104403

104402
005037
005004
012737

MOV
MOV
MOV
MOV
MOV

MOV

000012

R&,=(SP)
#FMT3,~(SP)
#6,~(5P)
SP,RO
(SPNTB
#12,5P

;INCR ROM #
: COMPLEMENT THE CALCULATED CRC FOR THE HI BYTE
:ROM CRC AND CALCULATED CRC THE SAME?
*IF YES = CHECK THE ROM LOCATIONS.
:HAS AN ERRDF ALREADY BEEN DECLARED (REMEMBER

ENDSUB

117701

SEQ 0109

025330
000004

104455
000007
025472
000000
013746
013746
010446
012746
012746

29—JUL-81
12:42
T 2 = ROM CHECK

TRAP

(SESUB

($8SUB

12.3:

CLR
CLR
MOV

FLAG
R4
#1775,ROMADR

TRAP
;CLEAR FLAG
*BEGIN AT ROM 0
:ADDRESS OF BYTE CONTAINING ROM #

CALL
MOVB

$ROMO
@BSEL6,R1

:GET _ROM CONTENTS
*SAVE THE CONTENTS OF THE LOW BYTE

17%

MOVB

@BSEL7,R!

:FOR ROMS 0,2.4

;SAVE THE CONTENTS OF THE HIGH BYTE
:FOR ROMS 1,3,5

025064

042701

025072

001427

D ok

§%

IDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81 12:42
ID.P11
29-JuL-81 11:32
TEST 2 = ROM CHECK

i e

20
21
22
23

26
25
26
27
28
29
30
31

D D

e e

16
17
18
19

025142
025144

010446
010146
005046
156416
012746
012746

025531
025414
000004

010600
104414

062737
000723

002000

025200

104403

)

025146

188:

025170
025176

D e

025120
025120
025120
025122
025124
025126
025132
025136

44
45
46

025200
025200
025200

49
50

025202
025202

3]
53

D d e

54
55
56

57
58
59
60
61
62
63
64
65
66
67

d e
d e
i e
— e

002344

SEQ 0110

#°C17,R1

;CONVERT THE ASCII BYTE TO AN OCTAL WORD.

BEQ

208

:IF YES = OK.

TST

104455
000007
025512
000000

42
43

D e

i i

025110
025112
025114
025116

000001

000005

001007
012737

022704
001410
005204
032704
001334

)

i
A
i

025100
025102
025110

9
PAGE 111

BIC

(MP

002344

000012

D d d d D D d d d d d

005737

062706

025074

177760

025152
025152
025156
025160
025162
025166

020104

35
36
37
38
39
40

D d e

D e

32
33

025070

R1,R4
FLAG

;IS THIS THE EXPECTED ROM #

JWE'RE IN A LOOP)
:IF YES, DON'T BOTHER WITH ANOTHER ERRDF.
JFLAG THAT ERRDF HAS BEEN DETECTED.
;ROM ERROR

BNE
MOV
ERRDF

188
#1,FLAG
7,EMT2

PRINTB

#FMT4 ,<B,ROMLOC(R4)>,R1,R4

104401
047045
051103
020105
044523
020116
042045

025253
025260
025266
025274
025302
025310
025316

045
042045
020055
022440
051101
022462
042522

025330

040445

TRAP
WORD
.WORD
.WORD

(SERDF
7
EMT2
0

MOV
MOV
CLR
BISB
MOV
MOV

R4 ,=(SP)
R1,=(SP)
-(5P)
ROMLOC(R4)
, (SP)
#FMT4 ,=(SP)
#4,~(SP)

ADD

#12,SP

MOV
TRAP

208
:

000001
002412
308:
ENDSUB

CMP
BEQ
INC
BIT
BNE

#5,R4
308
R4
#BITO, RS
15%

;DID WE FINISH THE LAST ROM?
;IF YES = SKIP TO THE END
sPOINT TO THE NEXT ROM #
;1S THIS AN ODD #
*IF YES GO BACK AND READ THE HIGH BYTE

ADD
BR

#2000 ,ROMAD
108

;s INCR. ADDRESS POINTER TO NEXT ROM #.

L10030:

ENDTST

025202
025204
025212
025¢
025226
025234
025242

;sHAS AN ERRDF ALREADY BEEN DECLARED (REMEMBER

L10025:

040445
041517
042522
047117
047125
022463
000
051101
022462
042522
022524
046517

044515
042117
044526
044440
052111
035101

FMT1:

_ASCIZ

/XNXAMICROCODE REVISION IN UNITZD3XA:2ZN/

FMT2:

,ASCIZ

/XAROMZD2%A - REV. XTANZAROMZD2XA - REV. ZTIN/

020101
027126

046517
020101
027126
022516
042045
020055
022440

047522

022515

FMT3:

_ASCIZ

/%AROMZD2%A: CALCUATED CRC =%06%A

SP,RO
CSPNTB

TRAP

CSESUB

TRAP

CSETST

CRC IN ROM =Z06%N/

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JUL-81 11:32
040445

JUL-81
12:42
2 = ROM CHECK

9
PAGE 112

SEQ 0111

020072
040525
051103
033117
051103

051040

B8R R B RN 28 BEIRRRET2ESS

b o

v vt
o

047445

025531
025534

025540
025542

022451

/XAE%D2%A IS ROM %D1XA (SHOULD BE ROM %D1%A) %N/

051103
052111
047522
047514
047117
051117

026503
020124
000122
040503
042440

041503
051105

.ASCIZ

/CRC=CCITT ERROR/

044524
051122

.ASCIZ

/LOCATION ERROR/

003
00
025540
000000
000000

002
005

004
016

—

D
il
i

D el
) oD
-

)

025526

LASCIZ

020104
046517
040445

i
i
il
i
b
D

025472

)

025452
025460
025466

031104
020123
042045
051450

000

ROMLOC:

.BYTE 3,2,4.1,5.,14.

0
0

;ROM O = ROM LOCATION 3 ETC.

;sASCII VALUE OF
sASCII VALUE OF

THE REV. NUMBER
THE REV. NUMBER

CZDMID.P1T

29-JuL=81 11:32

SEQ 0112

TEST 3 = MASTER CLEAR AND MICROTEST

258(1)

.SBTTL

5202

5204

;% MASTER CLEAR

L L L

5203

hbbbhbbdibidsiiebb bbb A LA LA LS AL E AL AL AR AL AL AL AL bbbk

TEST 3 = DMR-11

:% 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 (1.E. SET
:+ BIT 13 ONLY ON EVERY OTHER MASTER CLEAR) THE SOF TWARE BIT.
:* 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

5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217

;% AFTER EACH MASTER CLEAR.
- MICROTESTS DISABLED
s+ BSEL3 = 100

5218
5219

;* BSEL3 = 200

5220

MICROTESTS RUN SUCCESFULLY

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

5221

;* REPORTED.

ggg%

. %

5224
5225

:% ADDITIONALLY THIS ROUTINE WILL REPORT WHENEVER THE RESULT OF
;% BSEL3 IS 0. THIS WILL MEAN THAT THE DEVICE IS NOT A DMR

5227

IRRRERERRREAEA R AR AR AR

;* (1.E. DMC)

5226
5228

5233

5234

5235

025550

5238

025554

004737

5236 025550 104410
5237 025552 000072

5239
5240

5241

025560
025562

AR AR A AR

13::

JSR

PC, SMSCLR

:MACRO FOR MASTER CLEAR
sxxxx MACRO EXPANSION x%xx
:ISSUE A DMR MASTER CLEAR

ESCAPE

TST

;IF ERROR, BR TO TEST END.

TSTB

aBSEL3

:1S THERE A DMR RESPONSE?

CLEAR

025544
025544

AR AR AR ER AR

BGNTST

025544

5229 025544
5230
5231
5232

R AR AR RRRAA AR

105777

001011

011070

154464

BNE
PRINTB

025562 012746 017436

1%
#FMG19

IRRRR

228

JREPORT DEVICE NOT DMR.

025576 062706

5247

025604

5249
5250
5251

025610

000004

025602

000420

5248 025604

117701

154434

025610

004737

011070

5246

5252

5253

5254

025614

5255 025614

104410

CSESCAPE
L10031-.

MOV

#FMG19,-(SP)

ADD

#4 ,SP

MOV
MOV
TRAP

5242 025566 012746 000001
5243 025572 010600
5244 025574 104414
5245

TRAP
.WORD

1%:

MOVB

aBSEL3.R1

JSR

PC, SMSCLR

ESCAPE

TST

CLEAR

#1,-(SP)
SP,RO
CSPNTB

:SAVE THE RESULT OF THE FIRST MASTER CLEAR.
JMASTER CLEAR AGAIN.
senxx MACRO EXPANSION *xxx
;ISSUE A DMR MASTER CLEAR

IRRRR

ARRR

:1F ERROR, BR TO TEST END.

TRAP

CSESCAPE

————y

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

12:42 PAGE 113

29-JuUL-81

00002¢
117702
060102

025626

122702
001404

154420

aBSEL3,R2
.R2

000300

giOO.RZ

3,EMT3,ERRG3

104455
000003
025646
015240

025644

104401

025646
025654
025662
025670

044515
051505

020124
042514

SEQ 0113

L10031-.
;SAVE THE RESULTS OF THE SECOND MASTER CLEAR
;ADD THE RESULTS OF THE 2 CLEARS
:NOTE: ONE SHOULD BE 100 - MICRO TESTS NOT
;ENABLED AND ONE SHOULD BE 200 = MICRO TESTS
. WORD

sSUCCESFULLY RUN.

:WAS TIIE MICROTEST COMPLETED?

:IF YES = OK

:MICROTEST NOT COMPLETED

TRAP
.WORD
.WORD

L10031:
051103
020124
047503
042524

CSERDF
3

.WORD

EMT3
ERRG3

TRAP

CSETST

/MICROTEST NOT COMPLETED/

Qe —————

025616
025620
025624

9
12:42 PAGE 114
29-JUL°81
= MASTER CLEAR AND MICROTEST

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY1 30A(1052)
CZDMID.P11
29-JuL-81
1 1:32

CZDMIDO DMR-11 FUNCTICNAL TESTS MACY11 SOA(‘IOSZ)

CZDMID.P1

29-JUL-81

29-JuL-81 11:32

12:42

PAGE 115

g%g?)

.SBTTL

5281

H
;*

TEST 4 = DMR-11
BASE IN COMMANDS

5285
5286
5287
288
5289
5290

s«
o*
M
;*
o®

SUBTEST 1

2223_%

5282
gggz

5291

5294

5295

025676

5300
5301

025700

025676

5302

025700

004737

5304
5305

025704

5307
5308
5309

5310
5311
5312
5313
5314
5315

5316

025706

025720

011070

104410

004737
000000
002640

011266

025724

000226

025726

004737

012562

025732

132737

000020

025740
025742
025742
025744
025746
025750
025752

001004

5320

5324
5325
5326
5327
5328
5329
5330
5331
5332
5333
5334

025726

104455
000024
026374
000000

TRAP

CSESCAPE

TST

;IF ERROR, BR TO TEST END

BASEIN

0,BASE,DMR

.WORD
L10032-.
JBASE IN COMMAND WITH NO MAINTENANCE,
;BASE=BASE TABLE ADDRESS, AND DMR-11 MODE

JSR

PC, $BASEI
.WORD
0
.WORD
BASE
DMR

TST

;ISSUE A DMR MASTER CLEAR

JRERK

2227

saxxx MACRO EXPANSION wwxxx
;CALL BASE IN ROUTINE
;MAINTENANCE MODE BITS TO SET IN BSEL1
;BASE TABLE ADDRESS
sMODE
IRRRE

222

;IF ERROR, BR TO TEST END

TRAP

.WORD

SHUTDN

CSESCAPE

L10032-.

sawxx MACRO EXPANSION *xx%
:DMR HALT ROUTINE.

JSR

PC, SHALT

BITB

#BIT4,BASE+ISP7:SEE IF THE DMR MODE BIT IS SET IN THE
om SCRATCH PAD REGISTER 7 (BASE TABLE
LOCATIW CONTAINS AN IMAGE OF SP7)
108
OK IF SET = BR
20,EMT4
TRAP
.WORD
.WORD
WORD

BNE
ERRDF

10%:

C$8SuUB

ESCAPE

002732

TRAP

PC, $MSCLR

.WORD

104410

JMACRO FOR MASTER CLEAR COMMAND
saxxx MACRO EXPANSION wxxx

JSR

000522

5319

5321
ggg

T4.1:

000244

025722

T4::

CLEAR

5317

5318

THE MICROCODE SCRATCH PAD 7 AND THAT THE DDCMP

025710
025710
025714
025716

RRAARR RS

MESSAGE VARIABLES ARE PROPERLY INITIALIZED.

BGNSUB

104402

025704

AR AR

= ISSUE A BASE IN - DI'R 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

BGNTST

025676

5306

SUBTEST 2

AR REAN AR

:tttttttttttttttttttttttttttttttttttfitttttttttttttttttfittttttttttttttt

025676

5298

5303

R AR AR AR AR R R AR RN AR R

- %

025676

5299

TEST & - BASE IN COMMAND

e¥

5296

5297

SEQ 0114

- BASE IN COMMAND

X122

KRkK

;CHECK MESSAGE EXCHANGE VALUES

CSERDF
20
EMT4
O

9
12:42 PAGE 116
29-JuL-81
CZDMIDO DMR=-11_FUNCTIONAL TESTS MACY11 30A(1052)TE
T & = BASE IN COMMAND
CZDMID.P1T
29-JuL-81 11:32
025752

105737
001015
105737

002702

TSTB

;IN THE BASE TABLE.
;

BASE+R

MR (MESSAGE RECEIVED) = 0?

002703

BASE+N

sERROR IF NON ZERO
#N (MESSAGE TRANSMITTED) = 0?

002704

BASE +A

000001

208

*ERROR IF NON ZERO

208

#1,BASE+T

002705

20$

BASE +X

002706

308

208:

026421
026154

#A (MESSAGE ACKNOWLEDGED) =0?
*ERROR IF NON ZERO
: AT (NEXT MESSAGE # TRANSHITYED) =1?
1
;ERROR IF NOT EQUAL T0
: #X (LAST MESSAGE TRANSMITTED) = 0?

20,EMTS ERRT1

CSERDF

20
EMTS
ERRT1

30%:
END%QB

L10033:

104403
BGNSUB

104402

004737

011070

JSR

026066
026070
026070

012562

132737

000020

104455

s*xxx MACRO EXPANSION %%

;ISSUE A DMR MASTER CLEAR

002732

LA
2 3

:IF ERROR, BR TO TEST END

TST

BASE IN

0.BASE.O

JSR

PC,

SBASEI

.WORD
.WORD
.WORD

0
BASE
O

TST

TRAP
.WORD

sMAINTENANCE MODE BITS TO SET IN BSEL1

;BASE TABLE ADDRESS
MODE

shkkkk

B 2
LA

:IF ERROR, BR TO TEST END

CSESCAPE

L10032-.

sxwxxx MATRO EXPANSION *wws

JSR

PC, SHALT

BITB

#B1T4 ,BASE+ISP7 sSEE IF THE DMR MODE BIT IS CLEAR IN THE

BEQ
ERRDF

20,EMT6

108

CSESCAPE
L10032-.

;BASE IN COMMAND WITH NO MAINTENANCE
sAND DMC MODE.
sxxxx MACRO EXPANSION w#wx
s CALL BASE IN ROUTINE

.WORD

SHUTDN

004737

001404

PC, SMSCLR

ESCAPE

104410
000100

csBsuB

sMACRO FOR MASTER CLEAR COMMAND
SRk R%

011266

C$ESUB

T4.2:

CLEAR

104410
000116

004737
000000
002640
000000

SEQ 0115

:DMR HALY ROUTINE.
:tt't

L2
2 3

:DMR SCRATCH PAD REGISTER 7 (BASETABLE
;LOCATION CONTAINS AN IMAGE OF SP7)
OK IF CLEAR =

TRAP

CSERDF

Mm99
12 42 PAGE 117
T 4 - BASE IN COMMAND

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32
026072
026074
026076
026100

000024
026467
000000

026100
026104
026106
026112

105737

20
EMT6
0

108:

002702

BASE+R

TSTB

BASE+N

TSTB

BASE+A

BNE

002704
000001

T1STB

BNE

002703

BNE
CMPB
BNE

002705

002706
20%:

SEQ 0116

29-JUL'81

208

ERROR IF NON ZERO

#N (MESSAGE TRANSHITTFD) 0?

208

ERROR IF NON ZERO

208
#1 ,BASE+T
20%

;ERROR IF NON ZERO

TSTB

BASE +X

ERRDF

20,EMT5,ERRT1

BEQ

sCHECK MESSAGE EXCHANGE VALUES
IN THE BASE TABLE.
#R (MESSAGE RECEIVED)
= 0?

30%

: WA (MESSAGE ACKNOULEDGED) = 0?
; KT

(NEXT MESSAGE # TRANSMITTED)

;ERROR IF NOT EQUAL TO 1.

: #X (LAST MESSAGE TRANSMITTED)
= 0?

30%:

ENDSUB

026150
026152
026152
026152
026154
026154
026154
026160

L10034:

104403

ENDTST

L10032:

104401

BGNMSG

105737
001413
005046
153716

012746
012746
010600

002702

ERRT1
TSTB
BEQ
PRINTB

BASE+R
:1S
= 0?
1%
;0K - IF ZERO
#FMTS5,<B, BASE*R> JPRINT #R

002702
026526
000002

105737
001413

002703

1%:

TSTB

BEQ

PRINTB

000006

TRAP

C$SESUB

TRAP

CSETST

ERRT1::

=(SP)
BASE+R, (SP)
#FMTS5,-(SP)
#2,-(SP)

BASE+N

2%
’0 - IF ZERO
#FMT6,<B,BASE+N> ;PRINT #N

-(SP)

BASE+2, (SP)

002642
026557
000002

026244

.WORD

CSERDF
20
EMTS
ERRT1

SP,.RO
CSPNTB
#6,SP

104414

062706

.WORD
.WORD

TRAP

026421

026154

#EMT6,~(SP)
#2,-(SP)

2%:

SP,RO
CSPNTB
#6,SP

026244

105737
001413
005046

002704

TSTB
BEQ

PRINTB

3%:

104423

026374

046504

026402
026410
026416
026421

CSPNTB
#6,SP

CMPB
BEQ

PRINTB

#1,BASE+T

;1S #T = 1?
IF ONE
: 0K
#FMT8,<B,BASE+T>’ PRINT Ll

=(SP)

BASE+T, (SP)
#FMT8,-(SP)
#2,-(SP)
SP,RO

CSPNTB

000006

026372

=(SP)

#2,-(SP)
SP,RO

005046

005046
153716
012746
012746
010600
104414
062706

#FMT7,<B,BASE+A> ;PRINT #A

E
+A, (SP)
BAS
#FMT7 ,-(SP)

002705

001413

;1S #A
= 0?
0K
= IF ZERO

002704
026610
000002

122737

105737

BASE +A
3%

SEQ 0117

4%:

002706

#6,SP
TSTB
BEQ

PRINTB

BASE +X
5%

;IS X
= 0?
;0K = IF ZERO

HFMT9,<B,BASE+X> ;PRINT #X

002706
026672
000002

CLR
BISB
MOV
MOV

000006

TRAP
ADD

5%:
ENDMSG

EMT4:

.ASCIZ

/DMR MODE BIT NOT SET/

EMTS:

LASCIZ

/DDCMP MESSAGE VARIABLE(S) NOT CORRECT/

046440
020055
044502
020124

EMT6:

LASCIZ

/DMC MODE = DMR BIT NOT CLEARED/

024040

FMTS:

LASCIZ

/%A#R (MSG. RCVD)

020122

026426
026434
026442
026450
026456
026464
026467
026474
026502
026510
026516
026524

051117
00
041515
020105

026526

051043

040505

L10035:

042522

= %D3IN/

TRAP

=(SP)

(SP)
SE
+X,
BA
#FMT9,-(SP)
#2,-(SP)

SP,RO
CSPNTB

C$MSG

N 9
12:42 PAGE 118
CZDMIDO DMR=11_FUNCTIONAL
T§3TS MACY11 30A(1052) E29-JUL-81
BASE IN COMMAND
CZDMID.P11
29-JuUL-81

CZDMIDO DMR=11_FUNCT IONALT§3TS MACY11 30A(1052)
CZDMID.P11
29-JuL-81
027107

051040
036440
047045
FMT6:

LASCIZ

/%AMN (MSG. XMIT)

D3N/

024040
040440
036440
047045

FMT7:

LASCIZ

/%AMA

(MSG.

XD3AN/

021501
054105
052111

FMTS8:

LASCIZ

/%AST

(NEXT XMIT)

XD3AN/

042045

020124
020124
020051
022463

054043
052123
024524
031504

024040
054040
036440
047045

FMTO:

LASCIZ

/%ASX

(LAST XMIT)

XD3%N/

022463

i caah

CONOWVISTMWNN=O

wviviuvyvivioavivioow
vV

SEQ 0118

12:42
PAGE 119
C
COMMAND
- BASE IN

020116
020056
020051

051515
053103
022440
000

8 10

29-JUL-81

026706
026714
026722

.EVEN

ACK)

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY1I 30A(1052)
CZDMID.P11
29-JuL-81 11:32

c 10

29-JUL'81
T

SEQ 0119

12:42 PAGE 120
5 = DMR COMMANDS

.SBTTL

TEST 5 = DMR COMMANDS

2222332222223 233323333

2223223232232

2332323223232 232232323223232222222323222222
223

R
I
R

%
2

L
R

%
2

DISABLE EXTENDED ERROR AND CHECK THAT THE ENABLE BIT

SUBT EST 2

IS _CLEAR.
= SET REP/SEL TIMER VALUE AND SET THE DMR THRESHOLD
VALUES.
CHECK THAT THE VALUES ARE CORRECT IN
THE BASE

2222202233222 3230222232222

15.1:

:MACRO FOR MASTER CLEAR COMMAND

CLEAR

011070

22200

222222

191:

JSR

PC,

026732
026732
026734

ESCAPE

TST

026736

BASEIN

SMSCLR

TRAP

c$8sSuUB

TRAP

CSESCAPE
L10036~.

sxenxx MACRO EXPANSION x#xx

;ISSUE A DMR MASTER CLEAR
:'.'.

L2 2 3 4

;IF ERROR, BR TO TEST END

.WORD

026736
026742
026744
026746

011266

JSR

;BASE IN COMMAND WITH
PC,

$BASEI

.WORD
.WORD

.WORD

LPLU
BASE
DMR

026754
026760
026762
026764

012062

:CALL BASE IN ROUTINE WITH DEFAULTS
:SET LINE UNIT LOOP
:BASE TABLE ADDRESS
*DMR=11 MODE

TST

;IF ERROR, BR TO TEST END

DMRIN

EXERR

;ENABLE EXTENDED ERROR NOTIFICATION

JSR

PC, SDMRIN
EXERR
.WORD

;CALL DMR MODE INPUT ROUTINE
; INPUT COMMAND
;NO SEL4
;NO SEL6

ESCAPE

000274

004737

O
O

JSR

PC,

ESCAPE

TST

SHALT

TRAP
.WORD

CSESCAPE
L10036~.

suexxx MACRO EXPANSION *xnx

:'fitfi

Ahkh N

;IF ERROR, BR TO TEST END

TST

SHUTDN

012562

L2
2 2

ESCAPE

WORD
.WORD

104410

LINE UNIT LOOP,

;xxxx MACRO EXPANSION »*w+

sRARk

026750
026750
026752
026754

026776

2222222222222

BGNSUB

026726

026772

23222

BGNTST

026724
026724
026724
026724
026724
026726

026766
026766
026770
026772

TABLE AFTER HALTING THE DMR.

TEST 5 = DMR-11
;* DMR COMMANDS
= ISSUE AN ENABLE EXTENDED ERROR COMMAND AND CHECK THAT
SUBT EST 1
THE EXT. ENABLE BIT 15 SET IS SCRATCH PAD 13.
THEN

JHALT THE DMR
sxxxx MACRO EXPANSION *wxx
;DMR HALT ROUTINE.
;."t

L a2 24

;IF ERROR, BR TO TEST END

TRAP

.WORD

CSESCAPE

L10036~.

29-JUL-81

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11

5587

5588

027010

5589 027012

002736

001005

5591 027014 000030
5592 027016 027574
5593 027020 000000
5594

5595

027022

027024

000430

108:

5596 027024
5597
5598

027024

004737

5599 027030 004000

5600
5601
5602

027032
027034

5607
5608
5609
5610

5611

027042
027044
027046

004737

000007
000000
000000

027050

5614

027052 000212

5615
5616
5617

5618

5619

012062

004737

027062 000202
027064

132737

5624

027072

001404

5626 027C74

104455

5625

027074

5627 027076 000030
5628 027100 027574
5629 027102 000000

5630
5631

5632

027104
027104

027104

gggz 027104

5635

LPLU,BASE ,RES!DMR ;BASE IN COMMAND WITH RESUME SET.

LPLU

JSR

PC, SDMRIN
.WORD
.WORD
.WORD

DXERR
O
O

TST

ESCAPE

000001

002736

BITB
BEQ

ERRDF

20%:
ENDSUB

P(, SHALT

TST

24
EMT?7
O

HAINTENANCE MODE BITS TO SET IN BSEL1
254

:DISABLE EXTENDED ERROR NOTIFICATION.
sanxx MACRO EXPANSION *wxx
CALL DMR MODE INPUT ROUTINE
INPUT COMMAND
*NO SEL4
;NO SEL6
JRRRR

2 2.2

:IF ERROR, BR TO TEST END
;HALT THE DMR
saxxx MACRO EXPANSION *xxx
:DMR HALT ROUTINE.

JRRRK

TRAP

.WORD

CSESCAPE

L10036~-.

2 2.8

;IF ERROR, BR TO TEST END.

TRAP

.WORD

CSESCAPE

L10036~.

#B1TO,BASE+ISP13 ;CHECK EXT ENABLE BIT IN THE BASE TABLE.
IHAGE OF SCRATCH PAD 13.
208

24 ,EMT7

;IF CLEAR OK

:ERROR EXT ENABLE SET

TRAP

L10037:
15.2:
CLEAR

)

CSERDF

"" MACRO EXPANSION #wxx
CALL BASE IN ROUTINE

;BASE TABLE ADDRESS
BASE
RES'DMR :MODE
IRRRR

DXERR

BGNSUB

104402

$BASE |

UOR

DMRIN

104403

027106

5636 027106
5637 027106
5638 027110
5639

BASEIN

JSR

027060

5621

.WORD
.WORD
WORD

SHUTDN

012562

TRAP

208

ESCAPE

104410

BIT SET -

ERROR EXT ENABLE CLEAR

24 ,EMT7

027054

IHAGE OF SCRATCH PAD 13.

.WORD
.WORD

5620 027060 104410
5622
5623

108

002640
010522

5612

5613 027050

BNE

JSR

011266

5603

5604 027036
5605
5606 027036

BITB

CSESCAPE
TRAP
.WORD L10036~.
#BI1T0,BASE+ISP13 ;CHECK EXT ENABLE BIT IN THE BASE TABLE.

ERRDF

5590 027012 104455

SEQ 0120

T S - DMR COMMANDS

29-JuL=-81 11:32

5584 026776 10441C
5585 027000 000264
5586 027002 132737 000001

D 10

12:42 PAGE 121

:MACRO FOR MASTER CLEAR COMMAND
sanxx MACRO EXPANSION xxw=

CSERDF

.WORD
.WORD
.WORD

24
EMT7
O

TRAP

CSESUB

TRAP

ceBSUB

CZDMIDO DMR-11 FUNCTIONAL1T§375 MACYTT 30A(1052)
CZDMID.P1
29-JuL-81
5640

027110

004737

5643
5644

027114
027114

104410

5647

027120

5649
5650
5651
5652

027120
027124
027126
027130

5655
5656
5657
5658

027132
027132
027134
027136

5660
5661
5662
5663

027136
027142
027144
027146

5666
5667

027150
027150
027152

5645

027116

011070

000146

E 10
29-JUL-81
12:42 PAGE 122
T 5 = DMR COMMANDS
JSR

PC, SMSCLR

ESCAPE

TST

LA 2 2

TRAP

.WORD

JSR

ESCAPE

012062

;ISSUE A DMR MASTER CLEAR

;"'Q

:IF ERROR, BR TO TEST END

BASE IN
011266

SEQ 0121

;BASE IN COMMAND WITH
PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR

TST
TIMER,0,54

JER

PC, SDMRIN
.WORD

.WORD
.WORD
ESCAPE

LINE UNIT LOOP,

sxwxxx MACRO EXPANSION ##w+

;CALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR=11 MODE
:.Q.'

L2 2 2]

;IF ERROR, BR TO TEST END

DMRIN

TIMER

0
54

TST

CSESCAPE
L10036~.

TRAP

.WORD

sSET REP/SELECT TIMER VALUE

CSESCAPE
L10036~.

swxxx MACRO EXPANSION w#wxx

;CALL DMR MODE INPUT ROUTINE
;INPUT COMMAND

;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
sSEL6 VALUE (OR BITS TO SET IN BSEL6)
:.'.'

LA 2 2

;IF ERROR, BR TO TEST END

TRAP

.WORD

CSESCAPE
L10036~-.

;SET THRESHOLD VALUES AS FOLLOWS:

PC, SDMRIN
.WORD
THRESH

.WORD
.WORD

104410
000074

5688

027172

004737

5690

027176

ESCAPE

5403
2015

TST

SHUTDN

012562

104410

sxwxx MACRO EXPANSION *wxxx
;CALL DMR MODE INPUT ROUTINE
;INPUT COMMAND

;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)
:'.'t

LA 2 2

:IF ERROR, BR TO TEST END

JSR

PC, SHALT

JHALT THE DMR.
sxxxx MACRO EXPANSION %=«
;DMR HALT ROUTINE.

ESCAPE

TST

:IF ERROR, BR TO TEST END

;tt‘i

TRAP

.WORD

L2 2 2

TRAP

000064
122737

000054

002715

CMPB

qg:,BASE*PRETIM ;CHECK REP/SEL TIME IN BASE TABLE.

122737

000015

002724

CMPB

#15 ,BASE +TH3L

001020

CSESCAPE

L10036~.

. WORD

:IF NOT 54, BR TO ERROR
sCHECK REP. THRESH. IN BASE

TABLE.

SCAPE
o

027166
027166
027170
027172

027210
027212

JSR

005403
002015

5683
5684
5685

5694
5695

012062

004737

027154
027160
027162
027164

THRESH,5403,2015

5677
5678
5679

DMRIN

—

027154

TMTM

5675

;BSEL4 = NAKS RECEIVED (3)
;BSEL5 = NAKS TRANSMITTED (13)
;BSEL6 = REP/SEL SENT (15)
;BSEL7 = NO BUFFFER (4)

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11
CZDMID.P11
29-JuL~81 11:32
5696
5697

000003

002720

000013

002722

000004

002726

F 10

12:42
PAGE 123
29-JUL-81
TEST 5 = DMR COMMANDS

30A(1052)

10%:

BNE
CMPB
BNE
CMPB
BNE
CMPB

108
#3,BASE+THIL
10$
c13 BASE+TH2L
108
W4 BASE+TH4L

ERRDF

24 ,EMT8,ERRT3

BEQ

20§

SEQ 0122

;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

TRAP

ENDSUB

L10040:

ENDTST

BGNMSG

017746
017746
012746
012746
010600
104414

062706
005046
153716

012746
012746
010600
104414

062706
122737

001413

005046
153716

012746
012746
010600
104414

027414
027420

CSESUB

TRAP

CSETST

MOV
MOV

ASEL2,=(SP)
ASELO,=(SP)

ERRT3::

MOV
MOV

TRAP

PRINTB

ERRT3

ADD

.~ (SP)
#FMG1

#3,-(SP)
SP.RO

CSPNTB

#10,SP

#FMT11,<B.BASE+ISP13> :PRINT OUT THE IMAGE OF SC?A;CH PAD(;g)
L

BISB

BASE+ISP13,(SP)

027662
000002

MOV
MOV
MOV

000006
000054

ADD

#6,SP

CLR
BISB

-(SP)
,
(SP)
BASE+PRETIM

TRAP
ADD

(SPNTB
#6,SP

TRAP

002715

(MPB
BEQ

PRINTB

#S4,BASE+PRETIM;1S REP/SEL TIME OK?
1%
:BR IF OK
#FMT12,<B,BASE+PRETIM> ;PRINT

IT OUT.

002715
027713
000002

000003

012746

#FMG1,@SELO,@SEL2 ;PRINT SELO AND SEL2

002736

122737

153716

TRAP

MOV

000010

000006

005046

ERRT3

016302
000003

062706
001413

L10036:

PRINTB

152742
152734

24
EMT8

"WORD

208%:

(SERDF

LWORD
_WORD

MOV
MOV
MOV

002720

(MPB
BEQ

PRINTB

002720
027750

#3,BASE+THIL
2%

;IS NAK
‘BR IF

#FMT11,-(SP)
#2,-(SP)
SP.RO
CSPNTB

#FMT12,=(SP)
#2,-(SP)
SP.RO

RCVD OK?

#FMT13,<B,BASE+THIL> ,PRXNY

IT OUT

CLR

BISB

MOV

-(SP)

BASE+THIL,
(SP)

#FMT13,-(SP)

CZDMIDO DMR-11 FUNCT!ONAL Y STS MACY1T 30A(1052)
:32
29-JuL-81
C(ZDMID.P11
027424
027430
027432
027434
027440
027440
027446
027450
027450
027452
027456
027462
027466
027470
027472
027476

01274€
010600

000002

062706

000006

122737

000013

104414

001413
005046

153716

012746
012746
010600

29-JUL-81

12:42

6 10
PAGE 124

SEQ 0123

T 5 = DMR COMMANDS

#2,-(SP)

SP,RO
CSPNTB
#6,SP

002722

2%:

g?ga

PRINTB

#13,BASE+TH2L
3%

;1S NAK SENT OK?
;BR IF OK.

#FMT14,<B,BASE+TH2L> ;PRINT IT OUT

=(SP)

L
, (SP)
BASE+TH2

002722
030005
000002

#FMT14,-(SP)
#2,-(SP)

SP,RO
CSPNTB

104414

#6,SP

062706
122737

001413
005046

153716

012746
012746
010600

000015

002724

3%:

;IS REP LEVEL 0K?

CMPB

#15,BASE+TH3L

PRINTB

#FMT15,<B,BASE+TH3L> PRINT IT our

BEQ

:BR IF OK

CLR
BISB

002724
030042
000002

MOV
MOV

104414

062706
122737

001413
005046
153716
012746
012746
010600

000004

002726

(%:

(MPB

BEQ
PRINTB

#4 BASE + TH4L
5%

#FMT16,<B,BASE+TH4L> ;PRINT IT OUT

TRAP
ADD

SP,RO
CSPNTB
#6,SP

CLR
BISB

BASE +TH4L , (SP)

MOV
MOV
MOV

5%:
ENDMSG

L10041:

027572

042440
041040
041516
052103

EMT7:

.ASCIZ

/EXT. ERROR BIT INCORRECT/

EMTS8:

.ASCIZ

/DMR MODE INPUT COMMAND ERROR/

027654

046440
047111
047503
020104
000122

027662
027670

043501
051440

FMT11:

LASCIZ

/XAIMAGE OF SP 13 = XD3IN/

027124
051117

#2,-(SP)

;1S NO BUFFER LEVEL OK?

104414

027574

#FMT15,-(SP)

:;BR [F OK.

002726
030077
000002

062706

=(SP)

L
, (SP)
BASE+TH3

=(SP)

#FMT16,-(SP)
#2,-(SP)

SP.RO
CSPNTB

TRAP
ADD

#6,SP

TRAP

C$MSG

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY1 30A(1052)
CZDMID.P11
29-JuL-81
11:32

H 10

29°JUL°81
12:42 PAGE 125
T 5 = DMR COMMANDS

SEQ 0124

5808
5809

027676
027704

02012C
022838

031461
031504

036440
047045

5811

027713

027720

045

821455

051101

050105

FMT12:

_ASCIZ

/XAREP-SEL TIME VALUE

5816

027750

040445

040516

020113

FMT13:

_ASCIZ

/%ANAK RCVD THRESHOLD = XD3IN/

045

047101

00
045501

FMT14:

_ASCIZ

/%ANAK SENT THRESHOLD = XD3%N/

040445
042523
051110

042522
052116
051505

020120
052040
047510

FMT15:

_ASCIZ

/%AREP SENT THRESHOLD

045
052502
052040
047510
022440
000
030136

047101
043106

020117
051105

FMT16:

.ASCIZ

/%ANO BUFFER THRESHOLD
= %D32N/

5812

5821

5826
5827
5828
5829
5830

5831
5832
5833
5834
5835
5836
5837
5838

030000

030005

030034
030042
030050
030056
030064
030072
030077
030104
030112
030120
030126
030134

042114
031504

046105

036440
047045
051110
042114
031504

052040

022440
000
051505
036440
047045

.EVEN

D3N/

| CZDMIDO DMR=11 FUNCTIONAL TESTS MACY!1 30A(1052)
CZDMID.P1

29=JuL=-81 11:32

29=JuL=-81

110

SEQ 0125

12:42 PAGE 126

TEST 6 = CONTROL IN COMMAND

2&?

LSBTTL

5842

;'t.ttt.ttttttt'tt'l't't"'t".t.tlttt..tttt'tttt"tltt"t'tt'."'tt"

5845
5846
5847

:»
.
e

M
:*

TEST 6 = DMR-11
TEST =
COMMAND
IN
CONTROL

SUBTEST 2 =~ gt;t#";(s)Lsé?, HALF DUPLEX.

5850
5851
5852
5853
5854

:*
s®
s+
o
e

SUBTEST 3

5856
5857

;.
:®

5843
5844

g&g

5859

5862

030136

104402

030140

004737

5868

5869

030140

030144

5870 030144
5871

5872
5873
5874
5875
5876
5877
5878

5879

5880

5881

5887

011070

104410

030146 000404
030150
030154
030156
030160
030162

030162

030166
030172

Té6::

004737
004000
002640
000522

ggg} 030176
030200
030206

052777

PC, SMSCLR

ESCAPE

TST

ESCAPE

:MACRO FOR MASTER CLEAR
sxewxx MACRO EXPANSION *xxx
;ISSUE A DMR MASTER CLEAR

000057

152024

;IF ERROR, BR TO TEST END.

TRAP

PC, $BASEI
LPLU
.WORD
BASE
.WORD
DMR
.WORD

;MACRO FOR BASE IN COMMAND
_
sanexx 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.

IRRRR

($8SUB

CS$ESCAPE

L10042-.

o k
Fow

TRAP

.WORD
DUPLEX)
(FULL
IN
CONTROL
FOR
:MACRO

CSESCAPE

L10042-.

PC, SCNTIN
O
.WORD

sennxx MACRD EXPANSION *xxx
:CALL CONTROL IN ROUTINE WITH DEFAULT
:SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.

ESCAPE

TST

:IF ERROR, BR TO TEST END.

BIS
WAIT

#RC] 'RMODEM,@SELO ;SET RQI AND READ MODEM COMMAND
;WAIT FOR RD] TO BE SET
RDI
sexxx MACRO EXPANSION sxxs»

JSR

011522

‘

IRRER

TRAP

.WORD

CNTRIN

5888

104410
000354

JSR

011266

104410

004737
000000

16.1:

BASEIN

030150

5889 030174
5890 030174
5893
5894
5895

RECEIVED.

CLEAR

5882 030164 000366
5883 030166

5884
5885
5886

ENSURE THAT THE HALF DUPLEX

= CONTROL IN, MAINTENANCE MODE. ENSURE THAT MAINT. MODE
BIT IS SET IN SCRATCH PAD 7.
= 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

BGNSUB

030136

5863 030136
5867

BGNTST

030136

5864
5865
5866

= CONTROL IN, FULL DUPLEX, DDCMP MODE. ENSURE THAT
THE HALF=DUPLEX BIT I3 CLEAR IN THE MODEM STATUS WORD,
ALSO ENSURE THAT DDCMP MODE BIT IS SET IN SCRATCH PAD 7.

.-t""t."t't.tt.tt'.t't'tttttttttt..ttt"tQtt!Q.Qtt't..ttt.t.."ttttt

5860
5861

SUBTEST &

5855
5858

SUBTEST 1

IRERR

(222

TRAP
.WORD

CSESCAPE
L10042-.

J 10
PAGE 127
T 6 = CONTROL IN COMMAND

29—JUL-81

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11

29-JuL-81 11:32
004737
000000

010276

032777
001404

000020

152014

104455

12:42

SEQ 0126

JSR

PC, SWAIT

sCALL WAIT ROUTINE

BIT
BEQ
ERRDF

#BI1T4,aSELS

:1S THE HDX BIT SET IN MODEM STATUS REG?

21,EMT9

;ERROR HDX BIT SET

WORD

108

;FLAG THAT WE'RE WAITING FOR RDI
*RRkRkN

LA
2 2

;0K = IF BIT CLEAR

TRAP

.WORD
.WORD
.WORD

000025
030554

000000

004737

108:

WAIT

RQI

JSR

PC,

010706

SCLRQI

004737

012562

104410

000304
132737
001004

000020

:CLEAR RQI AND WAIT FOR RDI TO CLFAR.
suewxx MACRO EXPANSION wxxx
*CLEAR RQI AND WAIT FOR IT TO BE CLEARED.
R

SHUTDN

002732

JSR

PC,

ESCAPE

TST

BITB
BNE
ERRDF

104455
000025

SHALT

331

L 2. 2 3 1

;HALT DMR
sxxxx MACRO EXPANSION #xxx
;DMR HALT ROUTINE.
:'...

;IF

L2 2 33

ERROR,

EXIT.

TRAP

S%iT4,BASE’ISP7;1S THE DDCMP RUN BIT SET

21,EMT10

:ERROR DDCMP RUN BIT NOT SET

TRAP
.WORD

20%:

ENDSUB

L10043:

104403
BGNSUB

104402

030274
030300
030302
030304

004737
004000

011266

030314
030314
030316
030320
030326

BASEIN

LPLU,BASE ,RES!DMR ;BASE IN WITH RESUME.

JSR

PC,

010522

004737
002000

011522

.WORD

CNTRIN

HDX

JSR

PC,

ESCAPE

104410

000234
052777

S$BASEI]

.WORD
.WORD

030306

030306
030312

T16.2:

002640

000057

151704

BIS
WAIT

LPLU

SP 7.

C$ERDF
21

.WORD
.WORD

EMT10
O

TRAP

C$ESLB

TRAP

cs8suB

sMAINTENANCE MODE BITS TO SET IN BSEL1

:ttit

HDX

CSESCAPE

L10042-.

sxxxx MACRO EXPANSION *wx%x
sCALL BASE IN ROUTINE

BASE
;BASE TABLE ADDRESS
RES!!DMR ;MODE

SCNTIN

.WORD

IN IMAGE OF

030604

000000

CSERDF

21
EMT9
O

L2 2 3

sCONTROL IN COMMAND WITH HDX.
sxwxx MACRO EXPANSION w#ww
sCALL CONTROL IN ROUTINE

;SEL6 = (DUPLEX, MODE)
L

L2
2 3

;IF ERROR, BR TO TEST END.

TRAP

.WORD

#RQ] !RMODEM, BSELO :SET RQI AND READ MODEM COMMAND
RDI
WAIT FOR RDI TO BE SET

CSESCAPE

L10042-.

K 10

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81 12:42 PAGE 128
CZDMID.P1
29-JuL-81 11:32
TEST 6 = CONTROL IN COMMAND
5952
5953

gggg

030326

030332

004737

000000

5956
5957
5958

030334
030342
030344

032777
001004

5960
5961
5962
5963
5964
5965
5966

030346
030350
030352
030354
030354

000025
030632
000000

030354

004737

5959

5967

030344

5968
5969
5970

030360
030360

5973
5974

030362
030362

5976

030364

gg;}

5975

030360

004737

5980
5981

030370

5983

030372

000160

030374
030400
030402

004737
004000
002640

5987
5988
5989

5990

5991
5992

5993
5994
5995
5996
5997
5998

5999

6000
6001
6002
6003
6004

6005
6006

6007

030374

030404

030406

ERRDF

108:

#IT4,SELSG
108
21,EMT11

SHUTDN

012562

JSR

PC, SHALT

sFLAG THAT WE'RE WAITING FOR RDI
X232

RRRN

;1S THE HDX BIT SET IN MODEM STATUS REG?
;0K = IF BIT SET
sERROR HDX BIT CLEAR.

TRAP

;DMR HALT ROUTINE.
IERRE

011070

104410

16.3:

JSR

PC, SMSCLR

sxxwx MACRO EXPANSION *wxwx
;sISSUE A DMR MASTER CLEAR

ESCAPE

TST

;IF ERROR, BR TO TEST END.

011266

JSR

000522

030406
030410
030412

104410
000142

030412
030416

004737
000400

030420
030420
030422
030424

104410
000130

030424

004737

sMACRO FOR MASTER CLEAR

BASEIN

.WORD

011522

DMR

TRAP

CSESUB

TRAP

c$8suB

T2 8]

TRAP

.WORD

sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE

JRRRR

12221

TST

CNTRIN

MAINT

JSR

PC, SCNTIN
.WORD
MAINT

TRAP
WORD
JMACRO FOR CONTROL IN (MAINT. MODE)
sexxx MACRO EXPANSION *xxx
sCALL CONTROL IN ROUTINE
;SEL6 - (DUPLEX, MODE)

TST

;IF ERROR, BR TO TEST END.

PC, SHALT

sexxx MACRO EXPANSION wwwx
;DMR HALT ROUTINE.

SHUTDN

JSR

CSESCAPE

L10042-.

sexxx MACRO EXPANSION *xxx
sCALL BASE IN ROUTINE WITH DEFAULTS

ESCAPE

012562

IRRRR

JMACRO FOR BASE IN COMMAND
PC, SBASEI]
.WORD
LPLU
.WORD
BASE

21
EMT11
O

KRR
N

L10044:

CLEAR

CSERDF

.WORD
.WORD
WORD

JHALT THE DMR.
senenx MACRO EXPANSION ##xx

BGNSUB

030364

5984
5985
5986

BIT
BNE

.WORD

sennx MACRO EXPANSION wwa=
sCALL WAIT ROUTINE

104403

5977
5978

030370

151674

PC, SWAIT

ENDSUB

104402

5982

000020

JSR

104455

030362

5979

010276

SEQ 0127

;IF ERROR, BR TO TEST END.

JRERR

ARRN

JHALT
IRRRR

CSESCAPE
L10042-.

S22

TRAP
.WORD

CSESCAPE
L10042-.

L 10
12:42 PAGE 129
29-JuL-81
CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
TEST 6 = CONTROL IN COMMAND
CZDMID.P11
29-JuL-81 11:32
104410
000120
132737
001004

000002

002732

104455
000025
030666
000000

SEQ 0128

ESCAPE

TST

;sIF ERROR, BR TO TEST END.

g&ge

L10042~-.
.WORD
18%71.BASE*ISP7 ;1S THE MAINTENANCE BIT SET IN IMAGE OF SP 7.

ERRDF

21,EMT12

JERROR = MAINT. BIT NOT SET.

10%:
ENDSUB

.10045:

104403
BGNSUB

T16.4:

104402

CLEAR

004737

011070

104410

000064
005737
004
052737

042737

002254

004000

030520

004000

030520

JSR

PC, SMSCLR

ESCAPE

TST

21
EMT12
O

TRAP

C$ESUB

TRAP

c$8suUB

L 2 2 8 4

;1S INTERNAL LOOPBACK REQUESTED?
:IF NOT, BR
sSET LINE UNIT LOOPBACK.

BIC

#LPLU,100%

sCLEAR LINE UNIT LOOPBACK.

CALL

$BASE ]

;BASE IN COMMAND.

ESCAPE

.WORD
.WORD
TST

WORD

BASE
DMR

JMAINTENANCE BITS

(L. U.

TRAP

CSESCAPE

L10042~-.

LOOPBACK?)

;BASE TABLE ADDRESS.
:DMR MODE.
;1F ERROR, BR TO TEST END.

TRAP

CSESCAPE

CALL

$LOOP

WORD
L10042~.
JEXTENDED DMR COMMAND TO SET MAINT. BITS

ESCAPE

TST

;IF ERROR, BR TO TEST END.

JSR
ENDSUB

104403

;.'.'

;IF ERROR, BR TO TEST END.

;IF NEEDED. THIS WILL ALLOW MODEM LOOPBACK
:IF THE USER REQUESTED IT.
TRAP

.WORD
;MACRO FOR CONTROL IN (FULL DUPLEX)

CNTRIN

030550
030550
030550

CSERDF

.WORD
.WORD
WORD

sanewx MACRO EXPANSION *%x«
;ISSUE A DMR MASTER CLEAR

DIATURN
1%
#LPLU,100%
2%

011522

TRAP

CSESCAPE

;MACRO FOR MASTER CLEAR

TST
BNE
BIS
BR

1008 :

TRAP

PC, $CNTIN
.WORD
O

CSESCAPE

L10042~.

Jaxxx MACRO EXPANSION wxxx

JCALL CONTROL IN ROUTINE WITH DEFAULT
:SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
:'fi.'

L2 23

L10046:

TRAP

C$ESUB

29-JUL-81

12:42

ST 6 = CONTROL

Mm10

ENDTST

L10042:

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

EMT12:

.ASCIZ

/MAINT. MODE BIT NOT SET/

020130
042523

020124

SEQ 0129

PAGE 130

IN COMMAND

.EVEN

TRAP

CSETST

S——

CZDMIDO DMR=11_FUNCTIONAL TgSTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11

CZDMIDO DMR=11_FUNCTIONALngTS MACYTT 30A(1052)

CZDMID.P11

29-JuL-81

N 10
12:42 PAGE 131
29-JUL-81
T7- MODEM WRITE COMMAND

SEQ 0130

TEST 7 = MODEM WRITE COMMAND

.SBTTL

2222322222322

2222302222

22222222

2222 22

2022302020202

0202022 d

)

BB
LR

SUBTEST 2

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, ONLY
THE HALF~DUPLEX SHOULD BE SET.

T
LA

TEST 7 = DMR-11
:* MODEM bRITE C OMMAND
1
= WRITE DATA PATTERNS INTO THE MODEM WRITE REGISTER.
SUBTEST
ENSURE THAT ON THE NEAT MODEM READ THAT THE

2223222222222
2220022d2 2322 2222322222222 2R dd2
R d2Rdddddd ]

BGNTST

BOO\IQU\J\UUN—'O

BGNSUB

104402

004737

d —d
) d
d
—

—

011070

104410

000232
004737
004000
002040
000522

17.1:

;MACRO FOR MASTER CLEAR

CLEAR

D
)

d cd
d D

- D ad
d e d

6109

¥7::

JSR

PC,

ESCAPE

TST

SMSCLR

011266

JSR

ESCAPE

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DMR-11 MODE
*hhhRk

LA
2 2

:IF ERROR, BR TO TEST END.

TRAP

.WORD

012701
012702

000005
031162

012237
004737

030772
012062

000005

.WORD

;BASE IN COMMAND.

TST

CSESCAPE
L10047-.

L2 2 2 4

sexxx MACRO EXPANSION ##wxx

104410
000214

TRAP

sISSUE A DMR MASTER CLEAR

;IF ERROR, BR TO TEST END.

PC, $BASEI
.WORD
LPLU
.WORD
BASE
DMR
.WORD

c$8suB

sxxxx MACRO EXPANSION *#xx
:.tt.

BASEIN

TRAP

10%:

000377
000000

15%:

104410

MOV
MOV

#MODEM,R2

MOV
JSR

PC,$DMRIN

ESCAPE

(R2)+,15%

.WORD

.WORD
.WORD

TST

WMODEM

377
0

;s COUNTER
JPATTERN TO WRITE INTO MODEM

:WRITE PATTERN
;ISSUE DMR MODE COMMAND
;WRITE MODEM COMMNAD

;CLEAR ALL BITS IN BSEL6
;SET THE BITS IN BSEL6 (FROM PATTERN)
:IF ERROR, BR TO TEST END.

000162

TRAP

.WORD

052777

000057

004737

010276

151224

#RQ] 'RMODEM,aSELO ;SET RQI AND READ

BIS
WAIT

RDI

JSR

PC,

MODEM COMMAND

;WAIT FOR RDI TO BE SET.

SWAIT

CSESCAPE
L10047~.

srxxx MACRO EXPANSION *#w»e

sCALL WAIT ROUTINE

CSESCAPE
L10047~.

6147

031012

00000C

6149
6150
6151
6152

031014
031014
031016
031020

104410
000142

6148

6153
6154
6155

031020
031026
031030

127737
001406
013703

6157
6158
6159
6160
6167
6162
6163
6164

031034
031036
031040
031042
031044
031044

104455
000026
031226
031174

031044

004737

6166
6167
6168
6169

031050
031050
031052
031054

6156 031034

6165

031060
031060

6177
6178

031062
031062

6181

(031064

6183
6184
6185
6186

031064
031070
031072
031074

004737
000005
000377
000021

6190
6191
6192
6193

031C76
031076
031100
031102
031110

104410
000060
052777

6195
6196

031110
031114

004737
000000

6198
6199

031116
031116

031120

_
104410

000040

6202

031122

122777

21878
6182

6187

6188
6189

6194
6197

b0s

031060

031062

151214

030772

25%:

308
:

sFLAG THAT WE'RE WAITING FOR RDI
SRR

;IF ERROR, EXIT TEST.

CMPB
BEQ
MOV

aBRSEL6,15%
25%
158 ,R3

;DID TilE MICROCODE COPY THE BITS?
:IF YES CONTINUE
;SAVE THE PATTERN FOR THE ERROR MESSAGE.

22. FHT13.tRRTZ

JSR

PC, $CLRQI

sCLEAR RQI AND WAIT FOR RDI TO CLEAR.
sanxx MACRO EXPANSION #wxw%
;sCLEAR RQI AND WAIT FOR IT TO BE CLEARED.

ESCAPE

TST

;IF ERROR, EXIT TEST.

DEC
BNE

;DECREMENT COUNTER

108

JRRRR

222

TRAP
.WORD

L10050:

17.8:
DMRIN

WMODEM,377,21

JSR

PC, $DMRIN
.WORD
WMODEM
.WORD
377
.WORD
21

ESCAPE
BIS
WAIT

TST

TRAP

C$ESUB

TRAP

csssus

JATTEMPT TO WRITE MODEM HDX AND RTS.

saxxx MACRO EXPANSION *xx«

sCALL DMR MCDE INPUT ROUTINE
;INPUT COMMAND
;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)
IRARK

ARk
R

;IF ERROR, BR TO END.

TRAP
.WORD
#RQ] 'RMODEM,QSELO ;SET RQI AND READ MODEM COMMAND.
RDI
;WAIT FOR RD] TO BE SET

JSR

PC, SWAIT
.WORD
O

ESCAPE

TST

swxxx MACRO EXPANSION *xwx

;sCALL WAIT ROUTINE
sFLAG THAT WE'RE WAITING FOR RDI
IRERR

;IF ERROR, EXIT TEST.

222

TRAP

.WORD

000020

151110

CMPB

#20,aBSEL6

CSESCAPE
L10047-.

sCONTINUE UNTIL ALL 5 PATTERNS TRIED.

104402

010276

CSERDF
22
EMT13
ERRTZ2

RQI

BGNSUB

151122

TRAP
.WORD
.WORD
.WORD

CSESCAPE
L10047-.

WAIT

104403

000057

TRAP
.WORD

;WRITE MODEM ERROR

ENDSUB

012062

TST

010706

001337

ESCAPE

ERRDF

104410
000106
005301

6170
6171
6172
6173
6174

g};g

031056
031060

.WORD

SEQ 0131

;IS ONLY HDX SET?

CSESCAPE
L10047~.

RES—

B 11
12:42 PAGE 132
CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
CZDMID.P1
29-JUL-81 11:32
TEST 7 = MODEM WRITE COMMAND

29°JUL°81

CZDMIDO DMR=-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P1
29-JuL-81 11:32
001406
012703

108

#21,R3

22 ,EMT13,ERRT2

WAIT

RQI

JSR

PC,

010706

$CLROI

6220

031156
031156
031156

031152

SHUTDN

004737

JSR

012562

TRAP
.WORD

PC,

SHALT

000000
000252

031252

031310

2 8 1

*h kN

L10051:

TRAP

CSESUB

TRAP

CSETST

151036

CLR
BISB

-(SP)
aBSEL6, (SP)

031252
000003

MOV

#3,-(SP)

000010

TRAP
ADD

CSPNTB
#10,SP

TRAP

C$MSG

000376
000357

000001

L10047:

MODEM:

.WORD

BGNMSG

ERRT?
PRINTB

0.376,1,252,357 ;PATTERN TO WRITE INTO MODEM

#FMT19,R3,<B,aBSEL6>

052111

ERRT2::

MOV
MOV
MOV

ENDMSG

L10052:

031224
031226
031234
031242
031250

1 3

:DMR HALT ROUTINE.

ENDTST

031162
031170

EMT13
ERRT2

;exex MACRO EXPANSION ##wx

104403

104401

CSERDF
22

;CLEAR RQI AND WAIT FOR RDI TO CLEAR.
sxxxx MACRO EXPANSION *w*#
*CLEAR RQI AND WAIT FOR IT TO BE CLEARED.

ENDSUB

031160
031160
031160

031174
031174
031174
031174
031176

*SAVE THE PATTERN FOR THE ERROR MESSAGE.

:.'.'

- -

d e

0 NV

031152

;IF YES = OK

"QQ

004737

SEQ 0132

.WORD
.WORD

10%:

cn
PAGE 133

T7
= MODEM WRITE COMMAND

BEQ
MOV
ERRDF

000021

104455
000026
031226
031174

WN—=O

R BRI

6203
6204
6205
6206
6207
6208
6209

12:42

020105
020115
020122

EMT13:

.ASCIZ

/WRITE MODEM ERROR /

.EVEN

052117
041040
020072
020101
046505
040515

FMT19:

.ASCIZ

/%AWROTE INBSEL6: XO3%A MODEM FORMAT IN BSEL6: XO3IN/

R3,-(SP)
#FMT19,-(SP)
SP.RO

CZDMIDO DMR=11 FUNCTIONAL TESTS Mr7¥
CZDMID.P11
29-JuL-81 11:32
6259
6260
ggg}
6263
6264
6265

031316
031324
031332

020124
042523
047445

047111
033114

022463

! 30A(1052)TE§?- JUL-81

DN
PAGE 134

7 = MODEM WRITE COMMAND

041040
020072

000116

12:42

.EVEN

SEQ 0133

EN
12:42 PAGE 135
29-JUL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
TEST 8 = NO BUFFER ERROR
CZOMID.P11
29-JuL-81 11:32
LSBTTL

6266
6267
6268

SEQ 0134

TEST 8 = NO BUFFER ERROR

L2222 22222220222t
ddid ittt ittt
ittt
dddlding d)

i
i

TEST 8 - DMR-11

SUBTEST 1

= TRANSMIT A BUFFER THREE TIMES WIHOUT ASSIGNING A

SUBTEST 2

RECEIVE BUFFER. BY ASSIGNING A NO BUFFER THRESHOLD
OF THREE, ENSURE THAT A NO BUFFER ERROR IS RECEIVED

. %

ix
i+«
: %

i
i

AR AR AR AR

031340
031340
031340
031340
031340
031342

031342
031346
031346
031350
031352
031352
031356
031360
031362

031364
031364
031366
031370

BGNTST

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.

AR AR A AR

A AR

TR AR RARAAR AR AR AR AR AR A A AR AR AR AR AR AR A

T8::

BGNSUB

104402

004737

011070

000416

011266

031376
031376
031400

104410
000366

PC, SMSCLR

ESCAPE

TST

JSR

:t't'

LA 2 2

;CALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS

:DMR-11 MODE
;tit*

* Rk

CNTRIN

MAINT

.WORD
L10053~.
:MACRO FOR CONTROL IN (FULL DUPLEX AND MAINT)

JSR

PC, $CNTIN
MAINT
.WORD

*CALL CONTROL IN ROUTINE
*SEL6 = (DUPLEX, MODE)

TST

;IF ERROR, BR TO TEST END.

TRAP

CSESCAPE

txxxx MACRO EXPANSION #%x*
shkkK

L2
2 3

TRAP

.WORD

012062

CSESCAPE

L10053-.

;IF ERROR, BR TO TEST END.

ESCAPE

031402

004737
000013

.WORD

sxxxx MACRO EXPANSION #%x=

sSET THRESHOLDS:

031402
031406

TRAP

TST

ESCAPE

011522

DMR

($8suB

s ISSUE A DMR MASTER CLEAR

;IF _RROR, BR TO TEST END.

PC, $BASEI
.WORD
LPLU
.WORD
BASE

TRAP

sxxxx MACRO EXPANSION *#xx

sMACRO FOR BASE IN COMMAND

.WORD

000400

004737
000400

JSR

BASE IN

104410

031370
031374

;MACRO FOR MASTER CLEAR

CLEAR

104410

004737
004000
002640
000522

18.%:

;NAKS RCVD = 377
;NAKS SENT =_377
= 377
REP SENT
NO BUFFER
= 3

DMRIN

THRESH, 177777, 1777

JSR

PC, $DMRIN
THRESH
.WORD

;xxxx MACRO EXPANSION ###»

:CALL DMR MODE INPUT ROUTINE
: INPUT COMMAND

CSESCAPE

L10053-.

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P1

6322
6323

031410
031412

6325
6326

031414

6330

031424

6324

6327
6328
6329

6331

6332
6333

6334
6335
£336
6337

29-JuL-81 11:32

031414
031416
031420

104410
000350
012700

031424

031430
031432
031434

004737

000040
002522
000044

6341
6342

031436
031442

004737
000001

6344
6345
6346
6347
6348
6349

031444
031444
031446
031450
031452
031454

104410
000320
005300
001404
042777

6351
6352
6353

031464
031464
031472

032777

6356
6357

031476
031500

000010
017774

6350 031462 000760
6354
6355

6358
6359

6360

031474
031474

031502
031504

031506

001005

032777
001004

6364

031516

104455

6365
6366
6367

6368

031520
031522
031524

010276

000207
000001

150542

108:

PAGE 136

SEQ 0135

177777
1777

;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)
JRRRR

(222,

TST

;IF ERROR, BR TO TEST END.

MOV

#3,R0

;SET UP A COUNTER

BACCIT
PC, $BACC

.WORD
.WCRD
.WORD

saxxx MACRO EXPANSION wwxww
;sCALL BA/CC IN ROUTINE WITH DEFAULTS

RQI 'BACCT
;BA/CC IN TRANSMIT COMMAND
TBUF
;TRANSMIT BUFFER ADDRESS
TCOUNT
;TRANSMIT CHARACTER COUNT
JRRRR

koK
x

RDO

;WAIT FOR RDO TO BE SET

JSR

PC, SWAIT
.WORD
1

;sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO

sxxxx MACRO EXPANSION xwwx

IRRER

ESCAPE

TST

DEC
BEQ
BIC

RO
10%
#RDO'!CMD,@SEL2

:DEC COUNTER
;TRANSMIT FOR 3 TIMES.
:CLEAR BACC OUT TRANSMIT.

BIT

#CNTRL,@SEL2

;IS THIS A CONTROL OUT?

ERRDF

8.EMG8,ERRGZ2

BNE

000004

150524

20%:

208

;sIF RDO NOT SET, BR TO TEST END.

TRAP
.WORD

;IF YES, PROCEED.
JEXPECTED CONTROL OUT NOT RECEIVED.
TRAP

SJEXIT

BIT

#NOBFR,SEL6
30%

;IS THE NO BUFFER FLAG SET?
;IF YES - OK, PROCEED.

000011
020040
015124

031526
031526
031534

042777

000207

031534
031540

004737
000001

010276

6376
6377

031542
031542

104410

150500

30%:

.WORD

30%

9,EMG9,ERRGZ

UE RE NOT GETTING EXPECTED RESULT

TRAP

BIC
WAIT

#RDO!CMD ,@SELZ2
RDO

JSR

PC, SWAIT
.WORD
1

;CLEAR CONTROL OUT
JEXPECT ANOTHER BACC QuT.
sxxxx MACRO EXPANSION *xx»
;CALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO

TST

;IF ERROR, BR TO END.

IRRKK

CSERDF

8
EMG8

ERRGZ2

CSERDF

WORD
.WORD
.WORD

9
EMG9
ERRGZ?

TRAP

CSESCAPE

s (EITHER CONTROL OUT OR NOBUF /NAKS)

ESCAPE

C$ESCAPE
L10053-.

*TRANSMIT AGAIN

BR
BNE
ERRDF

CSESCAPE
L10053-.

JBA/CC IN COMMAND FOR TRANSMIT

WAIT

TRAP
.WORD

.WORD
.WORD

6369
6370
6371
6372
6373
6374
6375

150552

ESCAPE

JSR

015124
000410

031506
031514

031516

012272

104455

6361
6362

6363

1%:

031424

031436

6343

.WORD
.WORD

000003

12:42

T 8 = NO BUFFER ERROR

177777
001777

6338
6339

6340

29-JUL-8‘I

ARk

6N
12:42 PAGE 137
29~ JUL=-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
TEST 8 = NO BUFFER ERROR
(ZDMID.P11
29-JuL-81 11:32
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393

000222
042777

000207

031554

004737

012562

031560
031560
031560
031560
031562
031562
031562
031564

150460

BIC
SHUTDN

#RDO!CMD,@SEL2

JSR

PC,

$HALT

;CLEAR BACC OuT.

;DMR HALT ROUTINE.
:'.fi'

BGNSUB

004737

6396
6397
6398
6399
6400

031570
031570
031572
031574

104410
000174

6402
6403
6404
6405

031574
031600
031602
031604

004737
004000
002640
000522

6408
6409
6410

031606
031606
031610
031612

104410
000156

011070

000000

031620
031620
031622

104410
000144

;MACRO FOR MASTER CLEAR
PC,

ESCAPE

TST

$MSCLR

011266

JSR

.WORD
.WORD

BASE
DMR

:tt't

TST

ESCAPE

L2 2 3

TRAP

.WORD

:DMR-11 MODE

ERROR, BR TO TEST END.

TRAP

.WORD
DUPLEX)
(FULL
IN
CONTROL
FOR
sMACRO
PC,

$CNTIN

.WORD

TST

;CALL CONTROL IN ROUTINE WITH DEFAULT
;SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
sk

*hkk

TRAP

.WORD

;SET THRESHOLDS:

6426

031624

6428
6429
6430
6431

031624
031630
031632
031634

4737
000013
001403
003777

012062

DMRIN

THRESH,1403,3777

JSR

PC,

$DMRIN

.WORD

.WORD
.WORD

THRESH

1403
3777

CSESCAPE

L10053-.

sxxxx MACRO EXPANSION *wxxx

;IF ERROR, BR TO TEST END.

6423

C$ESCAPE

L10053-.

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS

:IF

CNTRIN
JSR

c$BSuUB

sxxxx MACRO EXPANSION *%x=

;'tt'

ESCAPE

TRAP

iaxxx MACRO EXPANSION *###

;MACRO FOR BASE IN COMMAND
PC, $BASEI
.WORD
LPLU

C$ESUB

;ISSUE A DMR MASTER CLEAR

;IF ERROR, BR TO TEST END.

BASEIN

031612 004737 011522
031616

18.2:

JSR

TRAP

L10054:

CLEAR

L10053-.

sxxxx MACRO EXPANSION ##w=

104403

104402

.WORD

sHALT DMR

508
:
ENDSUB

031564

XX xR RE2PRLLR
N 3o O NV
NN =

6394
6395

031544
031546
031554

SEQ 0136

;NAKS RCVD = 3
;NAKS SENT =3
;REP_SENT = 377
:NO BUFFER = 7

sxxxx MACRO EXPANSION »wxx
sCALL DMR MODE INPUT ROUTINE
;INPUT COMMAND

sSEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)
:'.tt

L2 2 24

CSESCAPE

L10053-.

CZOMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
(ZDMID.P11

29-JuL-81 11:32

64346
6435
6436

031636
031636
031640

104410
000126

6439
6440
6441
6442

031642
031646
031650
031652

004737
000040
002522
000044

6444
6445
6446
6447
6448

031654
031654

6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461

031662
031662
031664
031666
031674
031676
031676
031700
031702
031704
031706
031710

6464

031720

6437
6438

6443

6449

6462
6463

6465

6466
6467
6468

6469

031642

031654
031660

104410
000102
032777
001005

032777
001004

031720

104455

031722
031724
031726

012272

JSR

000001

150340

000004

150322

;IF ERROR, BR TO TEST END.

;BA/CC IN COMMAND FOR TRANSMIT
sxxxx MACRO EXPANSION #w%x

004737

012562

6475
6476
6477
6478

123727
001004
123727
001404

002643

000003

002646

000003

6482
6483
zglso

031734
031742
031744
031752
031754
031754
031754
031756
031760
031762

6486
6487
6488
6489

031764
031764
031764
031764

35%:

*k kR

JSR

PC, SWAIT
WORD
1

;WAIT FOR RDO TO BE SET
suxxx MACRO EXPANSION w%xx
sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO

ESCAPE

TST

;IF RDO NOT SET, BR TO TEST END.

BIT
BNE
ERRDF

#CNTRL ,@SEL2
20%
8,EMG8,ERRGZ

30%

;IS THIS A CONTROL OUT?
;IF _YES, PROCEED.
JEXPECTED CONTROL OUT NOT RECEIVED.
TRAP
.WORD
.WORD
.WORD
JEXIT

BIT
BNE
ERRDF

#NOBFR ,SEL6
308

;IS THE NO BUFFER FLAG SET?
;IF YES = OK, PROCEED.

9,EMG9.ERRGZ

JRRRR

*k kK

TRAP
.WORD

sWE'RE NOT GETTING EXPECTED RESULT

TRAP

; (EITHER CONTROL OUT OR NOBUF /NAKS)
SHUTDN
JSR

PC, SHALT

CMPB
BNE
CMPB
BEQ

BASE+3,43
35%
BASE+6,#3
4«08

ERRDF

23 ,EMT20,ERRT4

104455

CSESCAPE
L10053~-.

CSERDF
8
EMG8
ERRGZ

CSERDF

9
EMG9
ERRGZ2

s#xxx MACRO EXPANSION #xx«
;:DMR HALT ROUTINE.

JRRRK

1232

;NAKS REC. = NO BUFFER = 3?
;IF NOT ERROR
;NAKS SENT = NO BUFFER = 3?
;IF OK = SKIP.
TRAP

000027
032026
031770
40%:
ENDSUB

CSESCAPE
L10053-.

PC, $BACC
:CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI!BACCT
;BA/CC _IN TRANSMIT COMMAND
.WORD
TBUF
s TRANSMIT BUFFER ADDRESS
.WORD
TCOUNT
;TRANSMIT CHARACTER COUNT
RDO

30%:

104403

TRAP
.WORD

.WORD
.WORD
.WORD

031730

6481

TST

000011
020040
015124

6473

6479
6480

20%:

SEQ 0137

WAIT

010276

031730
031730

6474

PAGE 138

JRRRN

104455
000010
017774
015124
000410

031710
031716

BACCIT

108:
004737
000001

12:42

TEST 8 = NO BUFFER ERROR
ESCAPE

6470
6471

6472

29-JuL-81

L10055:

CSERDF

.WORD
.WORD
.WORN

23
EMTZ20
ERRT4

TRAP

($ESUB

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDHID P11
29-JuL-81 11:32
031766
031766
031766

ENDTST

BGNMSG

005046
153716

005046
153716
012746
012746
010600
104414

062706

032026
032034

ERRT4
PRINTB

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

TRAP

CSETST

ERRT4::

002643

CLR
81SB
CLR
BISB

000010

TRAP
ADD

#10,SP

TRAP

C$MSG

002646

016522
000003

MOV
MOV

ENDMSG

L10056:

104423

040516
051122
032042

SEQ 0138

L10053:

104401

031770
031770

032024
032024

I N
29-JUL-81
12:42 PAGE 139
T 8 = NO BUFFER ERROR

0
0O

042440
000

EMT20:

.ASCIZ
.EVEN

/NAKS ERROR/

=(SP)

E
+6, (SP)
BAS
=(SP)

BASE+3, (SP)
#FMG7 ,=(SP)
#3,-(SP)

SP,RO
CSPNTB

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11

29=JuL=-81

29-JuL-81 11:32

12:42

J 1"

PAGE 140

SEQ 0139

TEST 9 = NON-EXISTENT MEMORY ERROR

gg}g

LSBTTL

6517

.t't'tttttQttttt'titttttttttttttttttt't't'ttttttttttttttt'tttt'tt'.'tt

6518

TEST 9 = NON-EXISTENT MEMORY ERROR

TEST 9 = DMR-11

6519
6520

.' NON=-EXISTENT MEMORY (NXM) ERROR CHECK
;% PERFORM DMR COMMANDS USING NXM ADDRESSES; VERIFY THAT NXM ERROR IS

6522
6523

s+
;*

6521

;% REPORTED IN EACH OF THE FOLLOWING SUBTESTS:

gggg

6526

- %

6527
6528
6529
6530

032042
032042
032042
032042

032044

6531

032044

004737

6536
6537

032050

6539

032052

6540
6541

032054

004737
004000
002640
000522

6548
6549
6550
6551

032066
032066
032070
032072

104410
000462

032072

004737

6554

6555

6556
6557
6558
2‘;’23

6561

032076

032076
032100
032102

6562
6563
6564
6565
6566
6567

032110
032114
032116
032120

6569
6570

032122

6568

011070

000500

032054
032060
032062
032064

6552
6553

19::

104410
000452
012737

JSR

PC, $MSCLR

;MASTER CLEAR MACRO
sxxxx MACRO EXPANSION ##xx
;ISSUE A DMR MASTER CLEAR

ESCAPE

TST

;IF ERROR, BR TO TEST END

BASEIN
011266

JSR
~
ESCAPE

012562

000001

011266

002366

JRRKK

PC, SBASEI]
.WORD
LPLU
.WORD
BASE
.WORD
DMR

TRAP

.WORD

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
:DMR-11 MODE
IRRRR
.
;IF ERROR, BR TO TEST END

JSR

PC, SHALT

sexxx MACRO EXPANSION *x%x
;DMR HALT ROUTINE.

ESCAPE

TST

sIF ERROR, BR TO TEST END.

TRAP
.WORD

CSESCAPE
L10057-.

TRAP
.WORD
;THIS FLAG WILL INHIBIT CONTROL OUT

L10057-.

JHALT

IRRKR

RAAR

MOV

#CNTRL ,ERROR

BASEIN

0,160000, BIT15'BIT14'RES'DMR
saxxx MACRO EXPANSION *xxx
PC, $BASEI
.'CALL BASE IN ROUTINE
.WORD
O
JMAINTENANCE MODE BITS TO SET IN BSEL1
.WORD
160000 ;BASE TABLE ADDRESS
.WORD
BIT15!BIT14'RES'!DMR
sMODE

CSESCAPE

JERROR REPORTING - BECAUSE WE EXPECT ONE.
;BASE IN RESUME COMMAND WITH NXM BASE TABLE.

IRRRR

WAIT

CSESCAPE

L10057-.

sxxxx MACRO EXPANSION wwxx

TST

JSR

c$8suUB

(2224

;BASE IN COMMAND - DMR MODE

SHUTDN

032110
004737
000000
160000
150522

9.1

CLEAR

104410

6542
6543
6544
6545

6546
6547

BA/CC IN TRANSMIT COMMAND - BA/CC IN ADDRESS IS NXM

BGNSUB

6532
6533
6534

032050

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

BGNTST

104402

6538

SUBTEST 3

=~
-

:-ttttttttt'tttttt*ttt'tttttttttttttttttttnfititfittttt'ttttttitttttti't'

032042

6535

SUBTEST 1
SUBTEST 2

RDO

RRR®

;WAIT FOR RDO TO BE SET

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11
CZDMID.P11
29-JuL-81 11:32

6571

032122
032126

004737
000001

010276

032130
032136
032140
032140
032142
032144
032146

032777
001005

000001

29-JuL=81

150076

000010
017774
015124
000410

K11

12:42

PAGE 141

SEQ 0140

TEST 9 = NON-EXISTENT MEMORY ERROR
JSR

104455

032777
001004

30A(1052)

BIT

BNE
ERRDF

sxxxx MACRO EXPANSION w##x

sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO

PC, SWAIT

.WORD

sRRAkNk

#CNTRL ,@SEL2
108

8.EMG8,ERRGZ

L2
2 2

;1S THERE A CONTROL OUT REPORTED ?
sIF YES, PROCEED.
sEXPECTED CONTROL OUT

TRAP

.WORD
.WORD

000400

150060

208

BIT

#NXM,QSEL6

ERRDF

208
9.EMG9,ERRG2

.WORD

JEXIT

;IS THE NXM FLAG SET?
sIF YES = ERROR REPORTED CORRECTLY
sJUNEXPECTED CONTROL OUT RECEIVED

015124

042777
005037
032204

000207
002366

VO NONWNES W

RERRRER 3888288 EEEERESEE
222238

032210

032214
032214
032216
032220

032220
032224
032226
032230

BIC
CLR

ENDSUB

#RDO! CMD ,@SEL2
ERROR

L10060:

BGNSUB

104402

004737

011070

104410

000334

004737
004000
002640
000522

19.2:

JMACRO FOR MASTER CLEAR

CLEAR

JSR

PC,

ESCAPE

TST

$MSCLR

011266

JSR

:fi'*'

032236
032242
032244

ESCAPE

104410
000316

004737
000000

JSR

ESCAPE

c$B8sSuUB

TRAP

.WORD

*hhkRkN

2 3
L2

TRAP

sMACRO FOR CONTROL IN (FULL DUPLEX)
PC, SCNTIN

.WORD

TST

CSESCAPE

L10057-.

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET _LINE UNIT LOOP
;BASE TABLE ADDRESS
:DMR-11 MODE

.WORD

CNTRIN

011522

TRAP

1 2 3 34

:IF ERROR, BR TO TEST END.

TST

C$ESUB

sxxxx MACRO EXPANSION *wwx

032232

TRAP

EMGY
ERRG2

;ISSUE A DMR MASTER CLEAR

sMACRO FOR BASE IN COMMAND
PC, $BASE]
.WORD
LPLU
.WORD
BASE
DMR
.WORD

CSERDF
9

sxxxx MACRO EXPANSION ##xx

;IF ERROR, BR TO TEST END.

BASEIN

TRAP
.WORD
.WORD
.WORD

;CLEAR RDO AND THE COMMAND BITS
;ALLOW ERROR REPORTING

104403

032206

032210

150034

CSERDF
8
EMG8
ERRG2

sxnxx MACRO EXPANSION wwww

CSESCAPE
L10057-.

sCALL CONTROL IN ROUTINE WITH DEFAULT
;SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
:.tti

ARRR

:IF ERROR, BR TO TEST END.

032244
032246
032250

10441C

000304
012737

000001

002366

032256

Mov

BACCIR

012272

032256

JSR

#CNTRL ,ERROR

CSESCAPE
L10057-.
; INHIBIT CONTROL OUT ERROR REPORTING AGAIN.
TRAP
.WORD

sBA/CC IN REC. COMMAND WITH NXM
ADDR = 760000 AND A CHARACTER COUNT
= 3.

160000, 31715'91754'Rcou~r

sxnxx MACRO EXPANSION ##ww
PC, $BACC
:CALL BA/CC IN ROUTINE
RQI'!BACCR
.WORD
:BA/CC IN RECEIVE COMMAND
.WORD
160000 ;BUFFER ADDRESS BITS 0-15
.WORD
BIT15!BIT14!RCOUNT
;BA BITS 16/17 AND CHAR. COUNT
shkkk

032270
032270
032274
032276
032300

BACCIT

004737
000040
002522
000044

012272

JSR

032302
032306

004737
000001

010276

032310
032316
032320
032320

032777
001005

000001

147716

JSR

PC,

BIT

#CNTRL ,@SEL2
10$

ERRDF

032350
032352

000400

147700

000207
002366

147654

SWAIT

WORD

8,EMG8,ERRGZ

sxwxx MACRO EXPANSION *wxx

sCALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO
shNkRk

LA
2 2

;1S THERE A CONTROL OUT REPORTED ?
;IF YES, PROCEED.
;EXPECTED CONTROL OUT

TRAP

JEXIT

BIT

#NXM,SEL6

ERRDF

9.EMGY,ERRG2

;1S THE NXM FLAG SET?
:IF YES = ERROR REPORTED CORRECTLY
:UNEXPECTED CONTROL OUT RECEIVED

BIC
ENDSUB

208

degéCMD.aSELZ
ERR

L10061:

19.3:
CLEAR

TRAP

.WORD
.WORD
.WORD

CSERDF
9
EMGY
ERRG2

C$ESUB

TRAP

c$8suB

;ENABLE ERROR REPORTING

BGNSUB

032370

CSERDF
8
EMG8
ERRG2

;CLEAR RDO AND THE COMMAND BITS.

104403

104402

.WORD
.WORD
.WORD

208

104455
000011
020040
015124

042777
005037

hhkk
Ak

;WAIT FOR RDO

RDO

017774
015124
000410

032777
001004

sxwxx MACRO EXPANSION ##%x
$BACC
;CALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI'!BACCT
:BA/CC IN TRANSMIT COMMAND
TBUF
.WORD
:TRANSMIT BUFFER ADDRESS
.WORD
TCOUNT
;TRANSMIT CHARACTER COUNT

WAIT

104455
000010

L2
2 3

sBA/CC IN XMIT

shkk%

032302

SEQ 0141

12:42 PAGE 142
T 9 = NON-EXISTENT MEMORY ERROR

29-JUL°81

CZDMIDO DMR=-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32

;sMACRO FOR MASTER CLEAR

sxxxx MACRO EXPANSION *w»x

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
6683

032370

6685
6686

032374

6684

6687

6688
6689
6690
6691
6692
6693

6694

6695

6696

29-JUL-81 11:32

032374

004737

104410

032376
032400

000154

032400
032404
032406
032410

004737
004000
002640
000522

6697

032412

6699
6700
6701
6702
6703

032414
032416

000136

032416
032422

004737
000000

6698

6704

6705
6706

6707

6708
6709
6710
6711
6712
6713
6714
6715

6716
6717

6718
6719
2;5(1)

032412

032424

032430
032434
032436
032440

004737

032442
032444
032446

011266

PC, SMSCLR

sISSUE A DMR MASTER CLEAR

ESCAPE

TST

;IF ERROR, BR TO TEST END.

ESCAPE

PC, SBASEI]
.WORD
LPLU
.WORD
BASE
.WORD
DMR

JSR

ESCAPE

BACCIR
012272

JSR

032454

6726

032454

004737

6729

032464

140001

6727
6728
6730

6731
6732

6733
6734
ggg
6737
6738

JMACRO FOR BASE IN COMMAND
sanxx MACRO EXPANSION wxwx

.WORD

032460
032462

000040
160000

012272

IRRAR

PC, SCNTIN
.WORD
O

.WORD
L10057-.
sMACRO FOR CONTRCL IN (FULL DUPLEX)
sxxxx MACRO EXPANSION wwxx
sCALL CONTROL IN ROUTINE WITH DEFAULT
sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.

TST

;IF ERROR, BR TO TEST END.

JRRAR

TRAP

;BA/CC IN RCV
sexxx MACRO EXPANSION #xx«
PC, SBACC
sCALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI'BACCR
;BA/CC IN RECEIVE COMMAND
.WORD
RBUF
sRECEIVE BUFFER
.WORD
RCOUNT
RECEIVE CHARACTER COUNT

ESCAPE

TST

MCV

#CNTRL ,ERROR

032466
032472

004737
000001

010276

032474
032502

032777
001005

000001

147532

CSESCAPE

L10057-.

222

;IF ERROR, BR TO TEST END.

TRAP
CSESCAPE
.WORD
L10057-.
sINHIBIT CONTROL OUT ERROR REPORTING AGAIN.
;ADDRESS (760000) AND A CHAR. COUNT = 1

BACCIT

160000, BIT15!'BIT14!1

JSR

PC, $BACC
.WORD
.WORD

CSESCAPE

ARk

.WORD

032466

CSESCAPE

L10057-.

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

JRRRR

000001 002366

TRAP

;BA/CC IN XMIT COMMAND WITH NXM BUFFER

6724

6725

12223

;IF ERROR, BR TO TEST END. 4

6722

6723

JRRRR

TST

CNTRIN
011522

SEQ 0142

JSR

002572
000044

104410
000106
012737

MmN
PAGE 143

TEST 9 = NON=-EXISTENT MEMORY ERROR

JSR

104410

000124

12:42

BASEIN

104410

032426
032430

032442

011070

29-JuL-81

saxxx MACRO EXPANSION wwxx

*CALL BA/CC IN ROUTINE

RQI'BACCT
BA/CC IN TRANSMIT COMMAND
160000 ;BUFFER ADDRESS BITS 0-15

BIT15!BIT14'1

IRRRR

:BA BITS 16 & 17 AND CHAR. COUNT
' T332

WAIT

RDO

JWAIT FOR RDO TO BE SET.

JSR

PC, SWAIT
LWORD
1

Jaxxx MACRO EXPANSION *xxx
sCALL WAIT ROUTINE
:FLAG THAT WE'RE WAITING FOR RDO

BIT
BNE

#CNTRL ,@SEL2
108

;1S THERE A CONTROL OUT REPORTED ?
sIF YES, PROCEED.

IRRRR

1222

—

N
12:42 PAGE 144
29-JuL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
TES T 9 = NON-EXISTENT MEMORY ERROR
CZDMID.P11
29-JuL-81 n :32
ERRDF

104455
000010

017774
015124
000410
032777
001004

000400

147514

BIT
BNE
ERRDF

104455
000011
020040
015124

042777
005037
032550

032552
032552
032552

;EXPECTED CONTROL OUT

TRAP

.WORD
.WORD
.WORD

208

JEXIT

#NXM,SEL6

;1S THE NXM FLAG SET?
;IF YES = ERROR REPORTED CORRECTLY
sUNEXPECTED CONTROL OUT RECEIVED

208

9.EMG9,ERRG2

TRAP
.WORD

.WORD
.WORD

000207
002366

147470

ENDSUB

104403

ENDTST
104401

8,EMG8,ERRG2

SEQ 0143

BIC
CLR

#RDO
CMD ,@SEL2
!
ERROR

CSERDF
8
EMGS8
ERRG2

CSERDF
9

EMGY
ERRGZ

;CLEAR RPO AND THE COMMAND BITS.

sDON'T INHIBIT CONTROL OUT ERRORS
L10062:

L10057:

TRAP

C$ESUB

TRAP

CSETST

B 12

E%gn§gop??n-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE 145
TEST 10 = TIME OUT ERROR
29-JUL-81 11:32

6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781

6782
6783

TEST 10 = TIME OUT ERROR

.SBTTL
AR

SEQ 0144

A A

AR A AR

TEST

AR AR R AR AR AR AR AR

AR AR AR AR AR AR

AR AR AR

10 = DMR-11

* TIME OUT - FORCE A TIMEOUT AND VERIFY THAT THE ERROR IS REPORTED
;* THIS TEST WILL ALSO USE AN APPROXIMATE TIMER TO DETERMINE IF THE

;* M8207 1 MSEC PROGRAM TIMER IS OUT O RANGE.
*

MAALAALE

032554
032554
032554
032554

Al il

ittt

BGNTST

;MACRO FOR MASTER CLEAR

CLEAR

004737

011070

JSR

PC,

SMSCLR

032564
032570
032572
032574

ESCAPE

104410

0006214

004737
004000
002640
000522

TST

011266

JSR

110::

;ISSUE A DMR MASTER CLEAR

LA
2 2

;IF ERROR, BR TO TEST END.
sMACRO FOR BASE IN COMMAND

BASEIN

PC, $BASEI
.WORD
LPLU
.WORD
BASE
DMR
.WORD

ldd)

sxnexx MACRO EXPANSION wxxwx
SRk kR

032560
032560
032562
032564

ittt

TRAP

.WORD

CSESCAPE

L10063-.

sxxxx MACRO EXPANSION *x%«

sCALL BASE IN ROUTINE WITH DEFAULTS
;SET LINE UNIT LOOP
;BASE TABLE ADDRESS

;DMR-11 MODE
shkkk

ARk

;SET THRESHOLD VALUES AS _FOLLOWS:

032576

032576
032602
032604
032606

A SE&&E
§&§883

OOV

6813

004737
000013
177777

DMRIN

THRESH,177777.,177401

JSR

PC, $DMRIN
THRESH
.WORD

.WORD
WORD

177401

032610
032610
032612
032614

104410
000164

032614
032620
032622
032624

004737
000012
000000
000010

032626
032626
032630
032632

012062

;BSEL4 = NAKS RECEIVED (377)
;BSELS = NAKS TRANSMITTED (377)
;BSEL6 = REP/SEL SENT_(1)
-BSEL7
NO BUFFFER (377)

ESCAPE

012062

177777
177401

TIMER,0,10

JSR

PC,

$DMRIN

.WORD
.WORD

.WORD

CNTRIN

L2
2 2

:IF ERROR, BR TO TEST END

TST

;CALL DMR MODE INPUT ROUTINE
: INPUT COMMAND
;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)
shkkk

DMRIN

ESCAPE

sxxxx MACRO EXPANSION #ww«

TIMER
0

TRAP

.WORD

;SET REP/SEL TIMER

CSESCAPE

L10063-.

sxxxx MACRO EXPANSION wxxx

:CALL DMR MODE INPUT ROUTINE
: INPUT COMMAND

;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)
SRRRK

ARk
k

;IF ERROR, BR TO TEST END.

TRAP

.WORD
sMACRO FOR CONTROL IN (FULL DUPLEX)
sxxxx MACRO EXPANSION #%w=

CSESCAPE

L10063-.

c 12
12:42 PAGE 146
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
TEST 10 = TIME OUT ERROR
CZDMID.P11
29-JuL-81 11:32
032632
032636

004737
000000

JSR

011522

ESCAPE

104410

SEQ 0145

PC, SCNTIN
WORD
O

;CALL CONTROL IN ROUTINE WITH DEFAULT

TST

;IF ERROR, BR TO TEST END.

:SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
sRRRKk

L2
2 24

032644
032644
032650
032652
032654

004737

012062

000040
002522
000044

032670
032670
032672
032674

104410
000104

032674
032700

004737
000001

032702
032702

104410

032714

032716
032716
032720
032722
032724

WMODEM,0,BIT4

;BLIND THE RECEIVER BY GOING INTO HDX.
sUSE WRITE MODEM COMMAND TO SET HALF DUPLEX.

JSR

PC, S$DMRIN
WMODEM
.WORD
WORD
0
BIT4
.WORD

;CALL DMR MODE INPUT ROUTINE
s INPUT COMMAND
;SEL4 VALUE (OR BITS TO CLEAR IN BSEL6)
;SEL6 VALUE (OR BITS TO SET IN BSEL6)

BACCIT

004737

000072
023727

012272

JSR

sxxxx MACRO EXPANSION w#w#

sRRkk

ESCAPE

sxxxx MACRO EXPANSION #wx%w
PC, $BACC
:CALL BA/CC IN ROUTINE WITH DEFAULTS
RQI!BACCT
.WORD
:BA/CC IN TRANSMIT COMMAND
s TRANSMIT BUFFER ADDRESS
TBUF
.WORD
.WORD
TCOUNT
s TRANSMIT CHARACTER COUNT

011610

003005
104455

TST

* Rk
ok

;IF ERROR, EXIT

TRAP

WAIT

RDO

;WAIT FOR THE READY OUT.

JSR

PC, SWAIT
1
WORD

sCALL WAIT ROUTINE

ESCAPE

002416

ok
k %

;BA/CC IN XMIT BUFFER

s hkkk

010276

CSESCAPE

L70063-.

DMRIN

000000
000020

032656
032656
032662

TRAP

.WORD

000134

TST

CMP

COUNT ,#5000.

BGT

ERRDF

19,EMG19

.WORD

sxxxx MACRO EXPANSION *#xx

:FLAG THAT WE'RE WAITING FOR RDO
:t*ti

hhkkk

:IF ERROR, EXIT.

sCHECK THE SOFTWARE TIMER COUNT.
;THE TIMER VALUE WAS DETERMINED

TRAP

.WORD

CSESCAPE

L10063-.

;EMPIRICALLY ON A 11/04, 11/34, 11/40, 11/70.
;IF OK = PROCEED

;ttttfitttttttttfittittt'tt*tttifitifi"fi'i
.

TRAP

.WORD
.WORD
.WORD

000023
020402
000000

CSESCAPE

L10063-.

; IMSEC PROGRAM TIMER - OUT OF RANGE.

CSERDF

19
EMG19
O

:IF THIS ERROR OCCURS, CHECK THE M8207
sMICROPROCESSOR AS FOLLOWS:

;RESET THE DMR, SCOPE E-69, PIN 4 TO VERIFY
:THAT THE TMSEC TIMER IS OUT OF RANGE.

;.tlitt..'iQ.Qttttitt'ttt.i"fi.'ttttttl

032726
032730
032730
032736

000423
032777
001005

000001

147276

25%

BIT
BNE

#CNTRL ,@SEL2
108

;IS THIS A CONTROL OUT
:IF YES, PROCEED.

D 12
12:42 PAGE 147
CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
TEST 10 = TIME OUT ERROR
CZDMID.P11
29-JuL-81 11:32
032740

ERRDF

104455
000010

017774
015124
000410
032777
001004

032772
032772

032772

000002

104455
000011
020040
015124

004737

147260

10%:

20%:

012562

8,EMG8,ERRGZ

;EXPECTED A CONTROL OUT.

208

JEXIT

BIT

#TOUT ,aSEL6

;WAS THE TIME OUT REPJRTED?

ERRDF

9.EMGY,ERRGZ

20%

SHUTDN

PC, SHALT

sIF YES, EXIT
SUNEXPECTED ERROR.

032776
032776
032776

ENDTST
104401

.WORD
.WORD

CSERDF
9
EMGY

TRAP

CSETST

TRAP

ERRGZ2

sxxxx MACRO EXPANSION #w=x

:DMR HALT ROUTINE.
*

25%:

CSERDF

8
EMG8
ERRGZ

JSR

032776

SEQ 0146

ke k%

2 2
L2

L10063:

E 12
12:42 PAGE 148
CZDMIDO DMR=11_ FUNCTIONAL TESTS MACY11 3OA(1052) 29-JuL-81
TEST 11 = MESSAGE TOO LONG ERROR
CZDMID.P11
29-JuL-81 11:32
6905
6906

.SBTTL

6909
6910
6911
6912

6907
6908

TEST 11

SEQ 0147

= MESSAGE TOO LONG ERROR

iiiii 2222222222222

2002

222222202222

2220

dRd22RdRR2Rd

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.

6913

6914
6915
6916
6917
6918
6919
6920

;MACRO FOR MASTER CLEAR

CLEAR

004737

JSR

011070

033010

ESCAPE

000150

033010
033014
033016
033020

004737
004000
002640
000522

033022
033022
033024
033026

104410
000132

033026
033032

004737
000000

033034

011266

JSR

ESCAPE

011522

JSR

ESCAPE

012272

012737

000001

033060
033060

PC, $BASEI
.WORD
LPLU
.WORD
BASE
DMR
.WORD

012272

;ISSUE A DMR MASTER CLEAR

002366

.WORD

PC,

SCNTIN

.WORD

PC, $BACC

.WORD
.WORD
.WORD

;..'Q

L2 2 2

TRAP

sxxxx MACRO EXPANSION wwxx

;CALL CONTROL IN ROUTINE WITH DEFAULT
sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
:ttt.

LA 2 2

TRAP

.WORD

CSESCAPE

L10064~.

;SET UP THE RECEIVE BUFFER WITH 1/2 BUF. SPACE
sxxxx MACRO EXPANSION xxwx

sRkR%

$BACC

.WORD
.WORD
.WORD

CSESCAPE

L10064~.

: CALL BA/CC IN ROUTINE
RQI!BACCR
;BA/CC IN RECEIVE COMMAND
RBUF
>;BUFFER ADDRESS BITS 0-15
RCOUNT/
;BA BITS 16/17 AND CHAR. COUNT

#CNTRL ,ERROR

PC,

L10064~-.

;CALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS
;DPMR-11 MODE

;IF ERROR, BR TO TEST END.

TST

CSESCAPE

sxxxx MACRO EXPANSION *wx«

;MACRO FOR CONTROL IN (FULL DUPLEX)

JSR

TRAP

.WORD

RBUF ,RCOUNT/2

MOV

LA
2 2

;IF ERROR, BR TO TEST END.

TST

BACCIT

004737
000040
002522
000044

suxxx MACRO EXPANSION #%x=

sMACRO FOR BASE IN COMMAND

BACCIR

000022

;IF ERROR, BR TO TEST END.

TST

CNTRIN

000120

033052

SMSCLR

BASEIN

104410

004737
000044
002572

PC,

sRkkk

104410

Rl ]

;THIS FLAG WILL DISABLE ANY CONTROL OUT ERROR

;REPORTING BECAUSE WE ARE INTENTIONALLY
;CAUSING ONE IN THIS TEST.
;BA/CC IN XMIT COMMAND
sxxxx MACRO EXPANSION w*xxx

:CALL BA/CC IN ROUTINE WITH DEFAULTS

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

LA 221

F 12
12:42
PAGE 149
CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
TEST 11 = MESSAGE TOO LONG ERROR
CZOMID.P11
29-JuL~-81 11:32
6961
6962

6963

033072
033072

10%:

004737
000001

6964
6965
6966
6967
6968
6969
6970
6971
6972

010276

6973

000001

147122

104455
000010
017774
015124
000410

6974
6975
6976
6977
6978

032777
001004

033140

033142
033144

000020

JSR

PC,

147104

BIT
BNE
ERRDF

20%:
30%:

104455

SWAIT

WORD

;WAIT FOR RDO TO BE SET
suxxx MACRO EXPANSION #w=«

sCALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDO

:...I

L2 2 2

;IF RDO NOT SET, BR TO TEST END.

TST
#CNTRL ,@SEL2

20%
8.EMG8,ERRG?

;IS THIS A CONTROL OUT?
:IF YES, PROCEED
SEXPECTED CONTROL OuUT.

CSE SCAPE
L10064~.

TRAP

CSERDF

40%

JEXIT

BIT
BNE

40%

#TOLONG,aSEL6

;1S THE TOO LONG BIT SET?
sIF YES, TEST OK = FINISH UP.

ERRDF

G.EMGY ,ERRGZ

sWE'RE NOT GETTING EXPECTED RESULT

TRAP

.WORD
.WORD

005037

002366

033152

004737

012562

40%:

ENDTST
104401

.WORD

TRAP

.WORD
.WORD
.WORD

000011
020040
015124

033146
033146
033152

033156
033156
033156

RDO

ESCAPE

104410

000054
032777
001005

WAIT

SEQ 0148

CLR
SHUTDN

ERROR

JSR

PC,

SHALT

ERRG2

CSERDF

EMGY
ERRGZ

JRESTORE ERROR FLAG TO NORMAL STATE.
JHALT THE DMR.
sxxxx MACRO EXPANSION ##xx
;:DMR HALT ROUTINE.

:iit.

LR A 2

L10064:

TRAP

CSETST

6 12
E%gn%gop??R-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
12:42 PAGE 150
TEST 12 = PROCEDURE ERRORS
29-JuL-81 11:32
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
7018
7019

LSBTTL

SEQ 0149

TEST 12 = PROCEDURE ERRORS

:""'.‘..".*Q""."'.""."'Q."'....""..'..."'."".'"."""

o® -

TEST 12 = DMR-11

;*
:*

PROCEDURE ERRORS =
THE FOLLOWING SHOULD CAUSE THE DMR=11

:*
:*
:*

SUBTEST 3
SUBTEST &
SUBTEST S

;*
;*
:*

- %

TO HALT AND RESPOND WITH

A PROCEDURE ERROR:
SUBTEST 1 <~ A SECOND BASE IN COMMAND
SUBTEST 2 = 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

;"."..""...'.".'fi'.'.".'."."t."..*".'.'.‘...'.....'.."""'
033160
033160
033160
033160
033160

BGNTST

CLEAR

004737

011070

JSR

033166

004737
004000
002640
000522

011266

033200

012737

000001

JSR

0C2366

033206

033226

004737
004000
002640
000522

004737
000001

011266

JSR

#(NTRL ,ERROR

104455

PC, $BASEI
.WORD
.WORD

.WORD

010276

104410

032777
001005
033242

MOV

PC, SBASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR

BASEIN

033220
033220
033224

PC, SMSCLR

BASEIN

033166
033172
033174
033176

033206
033212
033214
033216

T12.1:

104402

033162
033162

7182

BGNSUB

000001

146774

LPLU
BASE

DMR

WAIT

RDO

JSR

PC, SWAIT

ESCAPE

TST

BIT

ERRDF

.WORD

:".'

L2 2 3 4

;*xxx MACRO EXPANSION #xww
*CALL BASE IN ROUTINE WITH DEFAULTS
:SET LINE UNIT LOOP
:BASE TABLE ADDRESS

*DMR=11 MODE

:t'fil

LA 2 2

sTHIS FLAG WILL DISABLE ANY CONTROL OUT ERROR
;REPORTING BECAUSE WE ARE INTENTIONALLY
;CAUSING ONE IN THIS TEST.

:SECOND BASE IN
*CALL BASE IN ROUTINE WITH DEFAULTS

iexxx MACRO EXPANSION *#ws
sSET LINE UNIT LOOP
;BASE TABLE ADDRESS

:DMR-11 MODE

;:tttfi

L2 2 2

;WAIT FOR RDO TO BE SET
sxxxx MACRO EXPANSION *w*x

;FLAG THAT WE'RE WAITING FOR RDC

]

8,EMG8,ERRGZ

C$BSUB

JMASTER CLEAR MACRO
saxxx MACRO EXPANSION ##xx
;ISSUE A DMR MASTER CLEAR

#CNTRL ,@SEL2
0%

TRAP

;CALL WAIT ROUTINE
:.t'.

L2 2 3

:IF RDO NOT SET, BR TO TEST END.

;IS THIS A CONTROL OUT?
:IF YES, PROCEED.
JEXPECTED CONTROL OuT

TRAP

CSESCAPE

.WORD

L10065-.

TRAP

CSERDF

H 12

12:42
PAGE 151
29-JuL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
TEST 12 = PROCEDURE ERRORS
CZDMID.P11
29-JuL-81 11:32

7058

7059

033244
033246
033250

00001C
017774
015124
000410

032777
001004

001000

146756

104455

SEQ 0150
.WORD
.WORD
.WORD

15%

JEXIT

BIT
BNE
ERRDF

#HALTC,QSEL6

;1S THE HALT = PROCEDURE ERROR BIT SET?
;IF YES = ERROR REPORTED CORRECTLY
UNEXPECTED CONTROL OUT RECEIVED

15%
9.EMG9,ERRG2

TRAP

015124

042777
005037

000207
002366

146732

BIC

ENDSUB

#RDO
CMD ,@SEL2
!
ERROR

L10066:

BGNSUB

112.2¢

104402

033312

CLEAR

033312

004737

011070

033316

012737

000001

033324

005037

002260

002366

033330

JSR

PC.,

MOV

#CNTRL ,ERROR

CLR

DMRFLG

SMSCLR

'l"

011522

JSR

033336

010276

033342

023344

PC,

SCNTIN

.WORD

WAIT

RDO

JSR

PC,

ESCAPE

000001

015124

146656

BIT
BNE
ERRDF

C$ESUB

TRAP

c$BSuUB

LA 2 2

sTHIS FLAG WILL DISABLE ANY CONTROL OUT ERROR
sREPORTING BECAUSE WE ARE INTENTIONALLY
;CAUSING ONE IN THIS TEST.
;CLEAR FLAG THAT IS SET IN BASEIN IN ORDER
;sTO FLAG THAT A CONTROL OUT=DMR RUN MODE
sCOMMAND IS EXPECTED (THIS FLAG WAS SET IN

SWAIT

WORD

TST

#CNTRL ,@SEL?2
108

8.EMG8,ERRG?

MACRO EXPANSION w»xx

s CALL CONTROL IN ROUTINE WITH DEFAULT
;SEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
kRN

033336

TRAP

:THE PREVIOUS SUBTEST BASEIN)
s CONTROL IN

CNTRIN

004737
000000

9
EMG9
ERRGZ

;MASTER CLEAR MACRO
fewxx MACRO EXPANSION #%#w
:ISSUE A DMR MASTER CLEAR

shkRk

033330
033334

CSERDF

.WORD
.WORD
.WORD

:CLEAR RDO AND THE COMMAND BITS
;RESTORE FLAG

104403

033310
033310
033310

8
EMG8
ERRGZ

LE
2 2

JWAIT FOR RDO TO BE SET
:tt'.
MACRO EXPANSION *wx==
s CALL WAIT ROUTINE
;FLAG THAT WE'RE WAITING FOR RDO
*hhRR

L2
2 2

:IF RDO NOT SET, BR TO TEST END.

;1S THIS A CONTROL OUT?
:IF YES - PROCEED.
JEXPECTED CONTROL OUT

TRAP

CSESCAPE

.WORD

L10065-.

TRAP

CSERDF

.WORD
.WORD
.WORD

8
EMG8
ERRGZ

I 12

SEQ 0151

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81 12:42 PAGE 152
TEST 12 = PROCEDURE ERRORS
29-JuUL-81 11:32
CZDMID.P11
7114

033370

7115

033372

7118
7119
7120
7121
7122

033402
033402
033404
033406
033410

00041C

7116 033372 032777
7117 033400 001004

7123

7124

7125

7126

033412

033420

033424

7127 033424
;}%g 033424
7130

107455
000011
020040
015124
042777

005037

000207

002366

000001

033442

004737

033450
033452

002572
000044

7155
7156
7157
7158
7159
7160
7161
7162
7163
7164

033462
033462
033464
033466
033474
033476
033476
033500
033502
033504

7166

033510

7154

7165

033454
033460

033506

7167 033510
7168 033516

7169 033520

BIC

ENDSUB

002366

033442

033454

15%:

CLR

9,EMGY,ERRG2

#RDO'CMD,aSEL2
ERROR

UNEXPECTED CONTROL OUT RECEIVED

PC, SMSCLR

MOV

#CNTRL ,ERROR

004737
000001

104410
000376
032777
001005

JSR

012272

.WORD

.WORD
.WORD

010276

00001

146540

104455
000010
017774
015124

000410

032777
001004

PC, $BACC

001000

146522

TRAP

C$ESUB

TRAP

cs8suB

JRRAR

22 23

:THIS FLAG WILL DISABLE ANY CONTROL OUT ERROR
REPORTING BECAUSE WE ARE INTENTIONALLY

'CAUSING ONE IN THIS TEST.
;BA/CC IN RCV. COMMAND
;xnxxx MACRO EXPANSION #*x%x
CALL BA/CC IN ROUTINE WITH DEFAULTS

;BA/CC IN RECEIVE COMMAND

sRECEIVE BUFFER
;RECEIVE CHARACTER COUNT

JRRRR

22323

WAIT

RDO

JSR

PC, SWAIT
1
.WORD

ESCAPE

TST

:WAIT FOR RDO TO BE SET
sewxx MACRO EXPANSION *%%=
CALL WAIT ROUTINE
FLAG THAT WE'RE WAITING FOR RDO
2223
ckkhk
TEST END.
TO
BR
SET,
:IF RDO NOT

BIT
BNE
ERRDF

#CNTRL ,@SEL2
108
8,EMG8,ERRG2

;1S THIS A CONTROL OUT?
;IF YES - PROCEED.
JEXPECTED CONTROL OUuT

15%

JEXIT

BIT
BNE

#HALTC ,QSEL6
15%

:1S THE HALT - PROCEDURE ERROR BIT SET?
IF YES = ERROR REPORTED CORRECTLY

ERRDF

9,.EMG9,ERRG2

EMGY
ERRGZ

;MASTER CLEAR MACRO
saxxx MACRO EXPANSION wwxx
ISSUE A DMR MASTER CLEAR

RQI 'BACCR
RBUF
RCOUNT

CSERDF
9

JRESTORE FLAG

T12.3:

JSR

TRAP
.WORD
.WORD
.WORD

:CLEAR RDO AND THE COMMAND BITS.

L10067:

BACCIR

7145 033446 000044
7149

:1S THE HALT = PROCEDURE ERROR BIT SET?
IF YES = ERROR REPORTED CORRECTLY

CLEAR

012737

7150
7151
7152
7153

#HALTC ,@SEL6
15%

104402

7139 033434
7140

7148

BIT
BNE

BGNSUB

011070

7146
7147

JEXIT

104403

004737

7141
7142
7143
7144

146614

033430

7138

15%

ERRDF

033430

7137

146640

033426

7131 033426
;}gg 033426
7134
7135
7136

001000

TRAP
.WORD

CSESCAPE
L10065~.

TRAP
.WORD
.WORD
.WORD

CSERDF
8
EMG8
ERRG2

UNEXPECTED CONTROL OUT RECEIVED

J 12
\
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE
153
TEST 12 = PROCEDURE ERRORS
CZDMID.P11
29-JuL-81 11:32
7170
(414
7172
7173
7174

033520

104455
000011
020040
015124

042777
005037
033542

033544
033544
033544
033546
033546
033552
033552
033554
033556

TRAP
.WORD

.WORD

000207
002366

146476

ENDSUB

BIC
CLR

BGNSUB

104402

004737

T12.4:

JMASTER CLEAR

CLEAR

011070

104410

000306

JSR

PC,

ESCAPE

TST

$MSCLR

011266

JSR

ESCAPE

104410
000270

BACCIR
012272

JSR

DMR

157

ERROR, EXIT.

ESCAPE

000252
012737

004737
000040
002522
000000

000001

012272

002366

TRAP

C$ESUB

TRAP

C$BSUB

TRAP

’
CSESCAPE

.WORD

L10065~.

sxxxx MACRO EXPANSION wwxw«
;CALL BASE IN ROUTINE WITH DEFAULTS
;SET LINE UNIT LOOP
;BASE TABLE ADDRESS

;DMR-11 MODE

:*fi"

L3 2 3

;IF ERROR, EXIT.

TRAP

g
sASSIGN A BA/CC IN RECEIVE BUFFER

CSESCAPE

L10065~-.

sxxxx MACRO EXPANSION *#xx%
PC, $BACC
;CALL BA/CC IN ROUTINC WITH DEFAULTS
.WORD
RQI 'BACCR
;BA/CC IN RECEiVE COMMAND
.WORD
RBUF
;RECEIVE BUFFER
.WORD
RCOUNT
RECEIVE CHARACTER COUNT
SERRR

104410

ERRGZ

L2 2 34

;BASE IN COMMAND

.WORD

004737
000044
002572
000044

;IF

PC, $BASEI
.WORD
LPLU
.WORD
BASE

EMGY_

.WORD

sxxxx MACRO EXPANSION x%xx
;ISSUE A DMR MASTER CLEAR
.‘""*'

BASEIN

(SERDF
9

;CLEAR RDO AND THE COMMAND BITS.
JRESTORE FLAG

L10070:

033564
033566

033574

#RDO'CMD,aSEL2
ERROR

104403

033556
033562

033570
033570
033572
033574

SEQ 0152

TST

;IF ERROR, EXIT.

#CNTRL ,ERROR

TRAP

.WORD

;sTHIS FLAG WILL DISABLE ANY CONTROL OUT

CSESCAPE

L10065~-.

;ERROR REPORTING BECAUSE WE ARE INTENTIONALLY
;s CAUSING ONE.

BACCIT

TBUF ,0

JSR

PC, $BACC

JASSIGN A BA/CC IN XMIT BUFFER LENGTH = 0.
saxxx MACRO EXPANSION #xxw
;CALL BA/CC IN ROUTINE

.WORD
.WORD

;BUFFER ADDRESS BITS 0-15
;BA BITS 16 & 17 AND CHAR. COUNT

WAIT

.WORD

RDO

RQI'BACCT

TBUF
O

.‘....

:BA/CC IN TRANSMIT COMMAND
L 2 3 31

JWAIT FOR RDO TO BE SET

CZDMIDO DMR-11 FUNCTIONAL TES!
CZDMID.P1T
29-JuL-81 11:52

004737
000001

010276

000001

032777
001004

001000C

JSR

146362

146344

104455
000011
020040
015124

042777
005037

033720

033722
033722
033722
033724
033724

000207
002366

146320

033760

WORD

sannx MACRO EXPANSION #wnw
JCALL WAIT ROUTINE

sFLAG THAT WE'RE WAITING FOR RDO

IRRRR

ESCAPE

BIT

#CNTRL ,9SEL2
10%

;IS THIS A CONTROL OUT?
;IF YES = PROCEED.

BNE
ERRDF

BIT
BNE
ERRDF

BIC

8.EMG8,ERRG2

JEXPECTED CONTROL OUuT

004737

004737
004000
002640
000522

;IS THE HALT - PROCEDURE ERROR BIT SET?

9.,EMG9,ERRGZ

JUNEXPECTED CONTROL OUT RECEIVED

15%

#RDO!CMD,@SEL2

ERROR

;IF

ESCAPE

TST

S$MSCLR

JSR

;IF ERROR, EXIT.

000001

002366

LPLU
BASE
DMR

TST

MOV

#CNTRL ,ERROR

BACCIR

RBUF ,0

.WORD
.WORD

EMG9
ERRGZ2

C$ESUB

TRAP

c$BSuUB

TRAP

.WORD

;BASE IN COMMAND
.WORD
.WORD
.WORD

CSERDF
9

suexxx MACRO EXPANSION w#xx
;ISSUE A DMR MASTER CLEAR
TRRRR

PC, $BASEI]

T
.WORD

JRESTORE FLAG

JMASTER CLEAR
PC,

C$ERDF

8
EMG8
ERRG2

;CLEAR RDO AND THE COMMAND BITS.

112.5:

JSR

CSESCAPE

YES = ERROR REPORTED CORRECTLY

L10C71:

ESCAPE

000
012737

.WORD
.WORD
.WORD

#HALTC,aSEL6

BASEIN

011266

TRAP

JEXIT

CLEAR

011070

TRAP

15%

BGNSUB

104402

sIF RDO NOT SET, BR TO TEST END.

104403

000130

033746
033746
033750
033752

PC, SWAIT

SEQ 0153

TST

ENDSUB

104410

033744

K 12
29-JUL-B1
12:42 PAGE 154
TEST 12 = PROCEDURE ERRORS

MACY11 30A(1052)

CSESCAPE

L10065~-.

saxxx MACRO EXPANSION #wxx
;CALL BASE IN ROUTINE WITH DEFAULTS

JSET LINE UNIT LOOP
;BASE TABLE ADDRESS
:DMR-11 MODE
:.‘..

;IF ERROR, EXIT.

L2 2 81

TRAP

.WORD

sTHIS FLAG WILL DISABLE ANY CONTROL OUT

CSESCAPE

L10065~-.

JERROR REPORTING BECAUSE WE ARE INTENTIONALLY
;s CAUSING ONE.
JASSIGN A BA/CC IN REC. BUFFER LENGTH = 0

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11
7282
7283
7284
7285
7286
7287
7288
7289

033770

004737
000044
002572
000000

034000

004737

000001

012272

JSR

PC, SWAIT
.WORD
1

BIT

BNE
ERRDF

104455
000010
017774
015124
000410

032777
001004

001000

146204

104455
000011
020040
015124

042777
005037

000207

002366

146160

ENDTST
104401

#CNTRL ,@SEL?2
108
8,EMG8,ERRGZ

PRRRR

:WAIT FOR RDO TO BE SET
sexxx MACRO EXPANSION ##x«
;CALL WAIT ROUTINE

;FLAG THAT WE'RE WAITING FOR RDO
;*'*'

L3 2 24

;IF RDO NOT SET, BR TO TEST END.

;1S THIS A CONTROL OUT?

sIF YES - PROCEED.
JEXPECTED CONTROL OUT

TRAP
.WORD

TRAP

.WORD
.WORD
.WORD

15%

SEXIT

BIT

#HALTC,aSEL6

;IS THE HALT - PROCEDURE ERROR BIT SET?

15%
9,EMG9,ERRGZ2

:IF YES = ERROR REPORTED CORRZCTLY
JUNEXPECTED CONTROL OUuT RECEIVEDTRAP

.WORD
.WORD
.WORD

BIC

ENDSUB

104403

TST

:BA BITS 16/17 AND CHAR. COUNT

BR
BNE
ERRDF

15%:

RDO

ESCAPE
146222

SEQ 0154

PAGE 155

PC, $BACC
;CALL BA/CC IN ROUTINE
.WORD
RQI'BACCR
;sBA/CC IN RECEIVE COMMAND
.WORD
RBUF
;BUFFER ADDRESS BITS 0=15

WAIT

010276

000001

L 12

sxxxx MACRO EXPANSION wx#ww

WORD

104410

000060
032777
001005

12:42

TEST 12 = PROCEDURE ERRORS

29-JuL-81 11:32

033772

033772
033776

29-JUL-81

CLR

#RDO!CMD,aSEL2
ERROR

CSESCAPE

L10065~.

CSERDF
8
EMG8
ERRGZ2

CSERDF
9

EMG9
ERRG2

;CLEAR RDO AND THE COMMAND BITS.

JRESTORE FLAG

L10072:

L10065:

TRAP

C$ESUB

TRAP

CSETST

CZDMIDO DMR-11 FLNCTIWLJ%%TS MACYT1T 30A(1052)
CZDMID.P11

29-JuL-81

Mm12
29-JUL-81
12:42 PAGE 156
TEST 13 - DATA TEST
TEST 13 = DATA TEST

.SBTTL
i

SEQ 0155

2222232322022 223222d02220222

2332332323223

22222R20022 222323

TEST 13 = DMR-11

;* FREE RUNNING FLAG MDE 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.
2222233233232 2322322232222 22

2322323322333 2332322332223 3232222232 2322

BGNTST

T13::

013700
062700

000044
000002

MOV

RCOUNT RO
#2.R0

;2 ADDITIONAL BYTES AT END OF BUFFER ARE

012701

002572

MOV

#RBUF ,R1

;ADDRESS OF RECEIVE BUFFER

(R1)+

ADD
10%:

105021

CLRB

:BYTE COUNT FOR RECEIVE BUFFER
;USED FOR DELIMITOR

DEC

sCLEAR A BYTE IN THE BUFFER
sCONTINUE = UNTIL ENTIRE BUFFER DONE

BNE

108

005037
005037

002520
002570

CLR
CLR

TFLAG
RFLAG

JCLEAR TRANSMIT FLAG
;CLEAR RECEIVER FLAG

004737

011070

JSR

PC, $MSCLR

sexxx MACRO EXPANSION #xxx
;ISSUE A DMR MASTER CLEAR

ESCAPE

TST

;IF ERROR, BR TO TEST END.

TST

DMTURN

;1S INTERNAL LOOPBACK DESIRED?

104410
000466
005737
001004

CLEAR

002254

052737
000403

004000

034156

042737

004000

034156

000000
002640
000522
104410
000424

L 2.2 3 1

11%
#LPLU,100%

BIC

#LPLU,100%

;CLEAR LINE UNIT LOOPBACK.

CALL

$BASE |

;BASE IN COMMAND.

ESCAPE

.WORD
TST

12%

WORD
.WORD

O
BASE
DMR

TRAP
D

ESCAPE

104410
000414

$LOOP

*MAINTENANCE BITS (LINE UNIT LOOP)
*BASE TABLE ADDRESS
:DMR MODE
;IF ERROR, BR TO TEST END.

TRAP

011522

:1F ERROR, BR TO TEST END.

PC, SCNTIN

WORD

CSESCAPE

L10073-.

:DMR COMMAND TO SET MAINT. BITS

TST

TRAP

.WORD

CNTRIN
=

CSESCAPE
L10073-.

JIF NOT, CLEAR INTERNAL LOOPBACK.
JSET LINE UNIT LOOPBACK.

.WORD

CALL

004737
000000

;t'fit

BNE
BIS

100%:

JMACRO FOR MASTER CLEAR

CSESCAPE

L10073~-.

;MACRO FOR CONTROL IN (FULL DUPLEX)
sexee MACRO EXPANSION *wwx
sCALL CONTROL IN ROUTINE WITH DEFAULT
sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.
;.'..

LA 2 3

7381

034210

7383
7384

034206

BACCIR
004737
000044
002572
000044

7390
7391
7392

034224
034224

104410

034226

7395
7396

034230

7399
7400

034236
034240

7397
7398
74601

034230
034234

7403
7604

034242
034242

76407
7408

034246
034246

76410
76411

034246
034252

76413
7414
7415
7416
7417
7418
7419
7420
76421

034254
034254
034256
034264
034266
034266
034270
034272
034276

7423
7424

034300
034300

;282

74609
7412

7422

;252

034244

034276
034306

012272

7430
7431
7432
7433

7434

TRAP

JSR

ESCAPE

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

TRk

;IF ERROR (I.E. RDI NOT SET), ESCAPE
TRAP

000364

.WORD

BACCIT
004737
000040

012272

JSR

002522
000044

ESCAPE

PC, $BACC
sCALL BA/CC IN ROUTINE WITH DEFAULTS
.WORD
RQI!BACCT
sBA/CC IN TRANSMIT COMMAND

TBUF
TCOUNT

TST

000346

s TRANSMIT BUFFER ADDRESS
;TRANSMIT CHARACTER COUNT
JRRRK

12227

;IF ERROR (I.E. RDI NOT SET), ESCAPE
TRAP

.WORD

20%:

004737
000001

010276

WAIT

RDO

;WAIT FOR RDO

JSR

PC, SWAIT
.WORD
1

sCALL WAIT ROUTINE
sFLAG THAT WE'RE WAITING FOR RDO

BERROR

52%

BIT
BEQ
ERRDF

#CNTRL ,@SEL2
25%
9.EMG9,ERRG2

103552
032777
001405

000001

145750

104455
000011
020040
015124

000541

032777

000004

001035

145726

JRRKK

(2221

;IF ERROR - RDO NOT SET, END TEST
BCS
;1S THIS A CONTROL OUT COMMAND ?
;IF NOT - PROCEED
LNEXPECTED CONTROL OuT RECEIVED
UORD
.WORD
.WORD

52%

BIT

#RCV,aSEL2

;TRANSMIT OR RECEIVE ?

TFLAG

;1S THIS THE FIRST TRANSMIT DONE?

40%

CSESCAPE

L10073~.

sxxxx MACRO EXPANSION #xxx

BR
BNE

CSESCAPE

L10073~-.

JBUFFER ADDRESS/CHARACTER COUNT XMIT. IN
saxxx MACRO EXPANSION #xx%

.WORD
.WORD

104410

CSESCAPE
L10073~.

sBUFFER ADDRESS/CHARACTER COUNT REC. IN
suxxx MACRO EXPANSION #wn%

JRRRK

;2%
7429

sIF ERROR, BR TO TEST END.

.WORD

034212
034212
034216
034220
034222

;%gz

TST

000402

7385
7386
7387
7388

7389

ESCAPE

104410

52%

CSERDF
9

EMG9
ERRGZ

;BR FOR RECEIVE

;CHECK TRANSMIT
034310

034314
034316
034316
034320

034322

005737
001405

104455
000012
020067

002520
;

TST

BEQ
ERRDF

30%
10,EMG10,ERRGZ

JYES = 0K
;ERROR MULTIPLE

TRANSMITS

034206

7380

7379

SEQ 0156

—————————

N 12

12: 62 PAGE 157
29-JUL-81
T 13 = DATA TEST

CZDMIDO DMR-11 FWCTI(NAL TESTS MACYN 30A(1052)
CZDMID.P11
29-JuL-81 11:32

TRAP
.WORD
.WORD

CSERDF

EMG10

—~4

p—

CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11
7435
7436
7437
7438
7439
7440
7441
76442

7443

ThGG
7445
7446
7447
7448
7449

29-JuL-81 11:32

015124
000525
012737
022777
001405

177777
002522

002520
145672

104455
0000 13
020116
015124
000511

022777
001470

000044

145652

30%:

29-JUL-81

TEST 13 - DATA TEST
BR

52%

MOV

#-1,TFLAG
#T?UF.QSEL‘

CMP
BEQ
ERRDF

32%:

12:42

B 13
PAGE 158

11,EMG11,ERRG2

52%

CMP
BEQ
ERRDF

#TCOUNT ,aSEL6

508
12.EMG12,ERRG2

SEQ 0157
.WORD

ERRGZ2

;FLAG THAT TRANSMIT CHECK IS DONE.
s TRANSMIT BUFFER ADDRESS CORRECT?
;YES = PROCEED

;BUFFER ADDRESS ERROR

;COUNT CORRECT ?
;YES = PROCEED
s CHARACTER COUNT ERROR

TRAP
.WORD
.WORD
.WORD

TRAP

.WORD
.WORD
.WORD

52%

CSERDF
11
EMG11

ERRGZ

CSERDF
12

EMG12
ERRGZ

;CHECK RECEIVE
005737
001405

40%:

002570

104455
000015
020167
015124
000470

012737
022777
001405

022777
001405

177777
002572

000044

104455
000014
020141
015124
000443

——

012700
012701
012702

002570
145600

145560

41%:

TST
BEQ
ERRDF

41%

13,EMG13,ERRG2

52%

MOV

#-1 ,RFLAG
xggur.assL4

BEQ
ERRDF

43%:

RFLAG

11,EMG11,ERRG2

52%

CMP
BEQ
ERRDF

#RCOUNT ,@SEL6
449

12,.EMG12 ,ERRG2

;1S THIS THE FIRST RECEIVE DONE *

;YES = PROCEED
sMULTIPLE RECEIVES

TRAP

.WORD
.WORD
.WORD

sFLAG THAT RECEIVE CHECK HAS BEEN DONE.
;1S THE RECEIVE BUFFER ADDRESS CORRECT?
;YES = PROCEED
;BUFFER ADDRESS ERROR
TRAP
.WORD
.WORD
.WORD

;IS THE BUFFER COUNT CORRECT?
;YES = PROCEED
;CHARACTER COUNT ERROR

TRAP

.WORD

000044
002522
002572

44%:

52%
MOV
MOV
MOV

#RCOUNT
RO
#TBUF ,R1
#RBUF ,R2

.WORD

;SET UP FOR DATA CHECK (CHARCATER COUNT)
;GOOD DATA POINTER
sRECEIVE DATA POINTER

CSERDF
13
EMG13
ERRGZ2

CSERDF
11

EMG11
ERRGZ2

CSERDF

EMG12
ERRGZ

c13
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42 PAGE 159
TEST 13 - DATA TSST
CZOMID.P11
29-JuL-81 11:32
45%:

122122
001011
005300

001374
005712

001412
104455
000016
020215
015124
000422

46%:

104455
000017

020235
015124
000415

042777
005737
001002
000137

000213
002570

005737

002520

034602

034246

034602
034602

004737

145456

50%:

51%:

52%:

012562

ENDTST
104401

(R1)+,(R2)+
46%

:1S THE DATA THE SAME ?
:IF NOT, BRANCH TO DATA ERROR MESSAGE

ar2

:THIS SHOULD BE 0 - REMEMBER WE CLEARED

BEQ
ERRDF

50%
14 ,EMG14,ERRG2

:IF OK = PROCEED
;RECEIVED EXTRA DATA

2?;

:CONTINUE CHECKING UNTIL DONE WITH BUFFER.

52%

ERRDF

15,EMG15,ERRG2

;2 EXTRA BYTES DURING BUFFER INIT.

TRAP

;DATA ERROR

14
EMG14
ERRG2

TRAP

CSERDF

.WORD
.WORD
.WORD

52%

CSERDF

.WORD
.WORD
.WORD

15
EMG15
ERRGZ2

TRANSMIT OR RECEIVE CHECK DONE

034606
034612
034612
034612

CMPB
BNE
DEC
BNE
TST

BR
;

SEQ 0158

BIC
TST
BNE
JMP

#RDO+RCV+CMD ,aSEL2 ;:CLEAR RDO, RCV & COMMMAND BITS (0,1)
RFLAG
:IS THE RECEIVE DONE ? (IF DONE, FLAG = =-1)

51%
208

:YES = SEE IF TRANSMIT DONE
:NO - GO BACK AND DO IT.

TST
BNE
JMP

TFLAG

;1S THE TRANSMIT DONE

52%
208

:YES = BR TO SHUTDOWN
:NO - DO IT

;SHUTDOWN DMR

SHUTDN
JSR

PC,

S$HALT

CALL

$ERROR

sxxxx MACRO EXPANSION *x«x
:DMR HALT ROUTINE.
;tttt

L2 2 2 4

:CHECK BASE TABLE AND REPORT ANY SOFT ERRORS

L10073:

TRAP

CSETST

D 13

12:42 PAGE 160
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
CZDMID.P11
29-JuL-81 11:32
TEST 14 - EXTENDED ADDRESSING DATA TEST
7538
7539
7540
7541
7542
7543
7544
7545

TEST 14 = EXTENDED ADDRESSING DATA TEST

.SBTTL
AR

SEQ 0159

AR AR A

A A A AR

AR AR AR AR AR AR A AR

A AR

AR AR AR AR A

TEST
14 = DMR-11
;* IN THIS TEST = SEE IF WE HAVE MEMORY_MANAGEMENT, IF SO SEE IF WE
;* HAVE THE MEMORY TO CHECK BITS 16 & 17 IN SEL6.
THIS WILL ALLOW

;* US TO TRANSFER DATA USING THOSE EXTCNDED ADDRESSING BITS. AS IN

S * ngg 13 THE TEST IS NON-INTERRUPT AND INTERNAL
' U

(TTL) LOOPBACK IS

tttii'tfi'ittiittt"ttt*'"QfifiQfil.t..tt"tQt"'..t'lit.t'.t.t.t.'tt"t

BGNTST

. ENABL

012746
012746
012746
012746
104437
062706
005037
005737

000340
023630
000004
000003

012700
104436
005737

000004

001404
005037
000137

NXMF LG

CLRVEC

TST

aH177572

TSi

NXMF LG

002352
036236

BEQ
CLR
JMP

108
NXMF LG

012700

000340

10%:

002200
15%:

000010

012721

077406

85%

ADD

#10,SP

MOV

TRAP

;1S THE FLAG STILL CLEARED?
sNOTE: THE FLAG WILL BE SET BY TRAP 4
;IF THERE IS NO MEMORY MANAGEMENT.
:IF FLAG IS CLEARED, PROCEED WITH TEST.
sRESTORE FLAG
SEXIT = CAN'T TEST WITHOUT MEM. MANAG.

20%:

CMP
BGE

LSHIMEM, #2200

JMP

85%

SETPRI

#PR107

15%

#172300,R1
#8. .R0O

#77406, (R1)+

20%

172340

000002

#3,-(SP)
CSSVEC

#4 RO

C$CVEC

sNOTE: LSHIMCM IS SIZE OF TOTAL MEMORY IN

000200

- (SP)
#NOXMEM,
#4 ,-(SP)

;CLEAR FLAG - SET IF TRAP TO 4.
;ADDRESS MEMORY MANAGEMENT REGISTER.
JRESTORE TRAP VECTOR 4.

#PR107 ,-(SP)

MOV
MOV

;PAGE ADDRESS REGISTER FORM - DETERMINED BY
:BY DIAGNOSTIC SUPERVISOR AT STARTUP.
;DO WE HAVE ENOUGH MEMORY TO ADDRESS BIT 16?
;IF YES = PROCEED WITH TEST
:IF NOT = EXIT
sMAKE SURE WE ARE IN KERNEL MODE.
MOV

TRAP

172300

012701
012700

005300
001374
012701
005011
012761

CLR

002352

036236

MOV

177572

002120

T14::

ENABLE LOCAL BLOCK - NEEDED BECAUSE OF
OF SYMBOLIC LABELS "RSEL4'" ETC.

SETVEC #4,#NOXMEM, muo?ser UP TRAP VECTOR&

000010
002352

023727
002002
000137

104441

LSB

#172340,R1
(R1)
#200,2(R1)

#PR107 ,RO
C$SPRI

;SETTING PRI SHOULD ALSO CLEAR BITS 14 &15
;IN PSW WHICH PLACES PROCESSOR IN KERNEL MODE.
;GET ADDRESS OF KERNEL PDR_ REG 0
;GOING TO WRITE PDR REG 0-7

WRITE BITS FOR THE FOLLOWING PAGE DESCRIPTION
sJREAD/WRITE ACCESS, 128. BLOCK PAGE LENGTH.
;WRITE ALL PDRS

;GET ADDRESS OF KERNAL PAR 0

:PAR 0, ADDRS

:PAR 1. ADDRS

20000

17776

37776

E 13
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
12:42 PAGE 161
CZDMID.P11
29-JuL-81 11:32
TEST 14 - EXTENDED ADDRESSING DATA TEST

SEQ 0160

7594
7595

034754
034762

012761
012761

000400
000600

000004
0C0006

MOov
MOV

#400,4(R1)
#600,6(R1)

;PAR 2, ADDRS
;PAR 3, ADDRS

7597
7598

034776
035004

012761
012761

002000
004000

000012
000014

MOV
MOV

#2000,12(R1)
#4000,14(R1)

;PAR 5, ADDRS 200000
;PAR 6, ADDRS 400000

7596

;288

034770
035012

012761

001000

007600

000010

MOV

000016

MoV

#1000, 10(R1)
#7600,16(R1)

7601
7602
7603
7604
7605

035020
035024

012703
012704

000100
120000

MOv
MOV

#64. ,R3
#120000,R4

035030

005037

002352

CLR

NXMF LG

7607
7608

035034
035040

012746
012746

000340
023630

035050

012746

000003

7606

035034

7609

035044

7610
7611
7612

;2}2

035054
035056

8%289%

012746

104437
062706

012737

7615

035070

012701

7618

035100

01224

7621

035102
035106

005737
001014

7623
7624
7625
7626
7627
7628

035112
035114
035116
035120
035124
035124

001372
005303
001364
012701

7630
7631
7632

035126
035132
035134

005737
001002
005301

;g}?
7619
7620

7622

7629

8%2?88

035110

7633

035136

7636
7637
7638
7639
7640
7641

035144
035144
035150
035152
035156
035160

7634
7635

7643
7644

7645
7646
7647
7648
7649

035140
035140

035162
035164

035166
035170
035170
035172
035176

012702

SETVEC

:PAR 4, ADDRS 100000

;PAR 7, ADDRS 160000

=~
=

57776
77776

= 117776

= 217776
= 417776

= 177776 (1/0 PAGE)

;COUNTER FOR OUTER LOOP OF TEST PATTERN GEN.
;USE VIRTUAL ADDRESS TO MAP TO PAR 5
;GENERATE A TEST PATTERN IN THE 1ST 4K
;BYTES OF PAR 5 (VIRTUAL ADDR 1200C0 - 127776)
; ENSURE FLAG IS CLEARED

#4,#NOXMEM,#PRI07 ;SET UP TRAP VECTOR 4 (WILL SET FLAG)

000004

000010

000001

000040

002420

177572

218
228

002352

005024

238%:

002352

001372

005037

177572

012700
104436
005737
001417

000004

002352

#3,-(SP)

24%:

TRAP
ADD

;ENABLE MEMORY MANAGEMENT

MOV

#32..R1

;COUNTER FOR INNER LOOP OF

MoV

(R2)+,(R4)+

;sWRITE TEST PATTERN INTO 4K BYTES

TST
BNE

NXMFLG
24%

;IF YES = EXIT

BNE
DEC
BNE
MOV

22%
R3
21%
#4000,R1

CLR

(R4)+

;CLEAR OUT THE ENTIRE PAR

ST
BNE
DEC

NXMFLG
24%
R1

;NXM TRAP 4?
;IF YES = EXIT

CLR
CLRVEC

a#177572
#4

;TURN OFF MEMORY MANAGEMENT
JRESTORE TRAP 4 TO SUPERVISOR

TST
BEQ
ERRDF

NXMFLG
25%
19,EMT22

;WAS THIS AN ERROR EXIT
:IF NOT, PROCEED.

MoV

BNE

PRINTB

036276
000002

MoV

#1,4177572
#$CCITT ,R2

#4 ,=(SP)
CSSVEC
#10,SP

TEST PATTERN GEN.

;ADDRESS FOR 32. WORD TEST PATTERN

; (PHYSICAL ADDRESS 200000 - 207776)
sNXM TRAP 4?

;DO THE INNER LOOP 32. TIMES
;DO THE OUTER LOOP 128.

TIMES

;COUNTER TO CLEAR THE NEXT 4K BYTES.

; (PHYSICAL ADDRESS 210000 - 217776)

23%

000023
036240

000000

#PRI07,-(SP)
#NOXMEM,
- (SP)

MOV

DEC

004000

MoV
MoV
MoV

005301

010446
012746
012746

40000
60000

#FMT25,Ré

MOV
TRAP

#4 RO
CS$CVEC

TRAP

CSERDF
19

.WORD
[WORD
JWORD

EMT22
0

MOV
MOV
MOV

Ré4.=(SP)
MFMT25,-(SP)
#2,-(SP)

F 13

CZDMIDO DMR=-11_FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81 12:42 PAGE 162
TEST 14 - EXTENDED ADDRESSING DATA TEST
CZDMID.P11
29-JuL-81 11:32
7650
7651
7652

7653
7654
7655

7656
7657

7658
7659
7660
7661
7662
7663
7664
7665
7666

7667

7668

7669
7670

035202

MOV

01060C
104414

062706
000137

000006
036236

25%:

035216
011070

035216
035222
035222
035224

035226
035232
035234
035242
035244
035244
035252

104410

035270
035274
035274
035276

035310

005737

002254

052737
000403

004000

035256

042737

004000

035256

001004

JSR

PC,

ESCAPE

TST

SMSCLR

100%:

104410

;ISSUE A DMR MASTER CLEAR
".Qt'

LA 2 2

;IF ERROR, BR TO TEST END.

BIC

#LPLU,100%

;CLEAR LINE UNIT LOOPBACK.

CALL

$BASE]

ESCAPE

.WORD
TST

;BASE IN COMMAND.
JMAINTENANCE BITS (LINE UNIT LOOP)
;BASE TABLE ADDRESS
:DMR MODE
;IF ERROR, BR TO TEST END.

DMTURN

308

32%

.WORD
.WORD

O
BASE
DMR

TRAP

.WORD

104410

:DMR COMMAND TO SET MAINT. BITS
;IF ERROR, BR TO TEST END.

$LOOP
TST

TRAP

LWORD

000740

011522

JSR

ESCAPE

104410

PC,

SCNTIN

.WORD

TST

035326

035334

012737
012737

010000
050000

035362
035364

MOV

035342
035346

005037
012737

035400
050000

035402

CLR
MOV

MOV

35%:

CALL

CSESCAPE

L10074~.

;CALL CONTRCL IN ROUTINE WITH DEFAULT
sSEL6 = FULL DUPLEX, RUN MODE, 1 SEC START.

:i"t

LA 2 2

:IF ERROR, BR TO TEST END.

TRAP

.WORD

CLR
CLR
CLR

CSESCAPE

L10074-.

sxxxx MACRO EXPANSION #xw«

000726
002520
002570
002346

CSESCAPE

L10074~.

;MACRO FOR CONTROL IN (FULL DUPLEX)

CNTRIN

004737
000000

TRAP

#LPLU,100%

CALL
ESCAPE

(SPNTB
#6,SP

sunwe [TACRO EXPANSION #wws

s 1S INTERNAL LOOPBACK DESIRED?
sIF NOT, CLEAR INTERNAL LOOPBACK.
sSET LINE UNIT LOOPBACK.

TST
BNE
BIS
BR

SP,RO

;sMACRO FOR MASTER CLEAR

CLEAR

000750

035312
035316
035322

035354
035354

85%

001012

035300

035300
035304

JMP

TRAP
ADD

.WORD

000000
002640
000522
035266

SEQ 0161

CSESCAPE

L10074-.

TFLAG
RFLAG

;CLEAR TRANSMIT FLAG
;CLEAR RECEIVE FLAG

$BACC

;ISSUE THE BUFFER ADDR/ CHAR COUNT COMMAND

;CLEAR SECOND LOOP FLAG
:IF SFLAG = 0, THEN THIS IS A TEST OF BIT 16
= =1, THEN THIS IS A TEST OF BIT 17
*1F SFLAG
#10000,RSEL4
*RECEIVE BUFFER ADDRESS (BITS 0-15)
#81714110000,RSEL6 ;REC BUFFER ADDR BIT 16 SET AND 4K
BYTE RECEIVE CHARACTER COUNT
TSEL4
TRANSMIT BUFFER ADDRESS (BITS 0-15)
481714‘10000 TSEL6 :XMIT BUFFER ADDR BIT 16 SET AND 4K
;BYTE XMIT CHARACTER COUNT
SFLAG

G 13
12:42 PAGE 163
29-JuL-81
CZDMIDO DMR-11_FUNCTIONALT%gTS MACYTT 30A(1052)
TEST 14 = EXTENDED ADDRESSING DATA TEST
CZDMID.P1
29-JuL-81
7706

000044
000000
000000

035370
035372
035376

RSEL&:
RSEL6:

104410

000040
000000
000000

TSELG:
TSELG:

000630

40%:

035410

035416
035416
035420
035422
035430
035432
035432
035434
035436
035440
035442
035446
035446
035454
035456
035462
035464
035464
035466
035470

004737
000001

TST

CALL

$BACC

ESCAPE

TST

:BUFFER ADDR BIT 16 + CHAR. COUNT
;IF

ERROR,

END TEST

TRAP
.WORD

.WORD
WORD
.WORD

+ISSUE THE BUFFER ADDR/ CHAR COUNT COMMAND

;IF

ERROR,

END TEST

TRAP

.WORD

WAIT

RDO

JSR

PC,

ESCAPE

TST

;IF

BIT

#CNTRL ,@SEL?2

;IS THIS A CONTROL OUT COMMAND?

SWAIT

.WORD

032777
001406
104455
000011
020040
015124
000137

032777
001040
005737
001406

000001

144604

036226

000004

144560

BEOQ
ERRDF

50%:

002520

;FLAG THAT WE'RE WAITING FOR RDO
;lt'.

RDO NOT SET BEFORE

L2 2 31

TIMEOUT,

000012
020067
015124
000137

023777
001502

036226

177777
035400

002520

55%:

144522

;NO - PROCEED
JUNEXPECTED CONTROL OuUT.

80%

JEXIT

BIT

#RCV,aSEL2
60%
TFLAG
55%
10,EMG10,ERRG2

;1S THIS A TRANSMIT OR RECEIVE?
:BR FOR RECEIVE
;IS THIS THE 1ST TRANSMIT DONE
;IF YES, PRCCEED
;MULTIPLE TRANSMITS

TST

104455

50%
9,EMG9,ERRGZ

JMP

80%

JEXIT

MOV
CMP

#-1,TFLAG
TSEL4,aSELS

;FLAG THAT THE TRANSMIT IS DONE.
;1S THE BUFFER ADDRESS CORRECT?

BEQ
ERRDF

56%
11,EMG11,ERRG2

;IF OK, PROCEED WITH CHECK.
;BUFFER ADDRESS ERROR

END TEST
TRAP
CSESCAPE
L10074~.
.WORD

TRAP
.WORD
.WORD

CSERDF
9

.UORD

EMG9
ERRGZ2

TRAP
.WORD

CSERDF
10

.WORD
.WORD

EMG10
ERRG2

TRAP

CSERDF

.UORD

EMG11
ERRG2

.WORD
.WORD

036226
035402

144500

56%:

C$ESCAPE
L10074~.

;WAIT FOR RDO TO BE SET
suexxx MACRO EXPANSION #xxx
;CALL WAIT ROUTINE

JMP

BEQ
ERRDF

(SESCAPE
L10074~.

QQI'BACCT
;COMMAND FOR BA/CC IN TRANSMIT
O
:BUFFER ADDRESS BITS 0-15
BUFFER ADDR BIT 16 + CHAR. COUNT

000616

104455
000013
020116
015124
000137

035540

010276

104410

012737
023777
001406

7761

ESCAPE

RQI'BACCR
:COMMAND FOR BA/CC IN RECEIVE
O
;BUFFER ADDRESS BITS 0-15

000646

104410

035410
035414

.WORD
.WORD
.WORD

SEQ 0162

JMP

80%

JEXIT

CMP
BEQ

70%

TSEL6,aSEL6E

;1S THE CHAR. COUNT CORRECT?
;IF

Ok, PROCEED

H13

12:42
PAGE 164
CZDMIDO DMR-11 _FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
TEST
14
=
EXTENDED
ADDRESSING
DATA TEST
CZDMID.P11
29-JuL-81 11:32
7762
7763
7764
7765
7766
7767

ERRDF

035542

036226

7768

7769
7770
444
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781
7782
7783

7784
7785
7786
7787
7788
7789
7790
7791

7792
7793
7794
7795

7796

7797
7798
7799
7800
7801
7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815
7816
7817

60%:

002570

012737
023777
001405

023777
001404

177777

035362

035364

002570
144422

144402

104455
000014
020141
015124

005737
001007
012700
012701

002346

012702
000406

130000

012700
012701
012702

010000

012737

000001

61%:

63%:

004000
120000

65%:

120000
140000

022122

177572

80%

JEXIT

TST

RFLAG

;1S THIS THE 1ST RECEIVE DONE

177572

66%:

67%:

68%:

61%
13,EMG13,ERRGZ

;IF

sMULTIPLE RECEIVES

80%

JEXIT

MOV
CMP

#=1,RFLAG
RSEL4,QSELS

sFLAG THAT THE RECEIVE IS DONE.
;1S THE BUFFER ADDRESS CORRECT?
;1F OK, PROCEED WITH CHECK.
;BUFFER ADDRESS ERROR

62%
11,EMG11,ERRG2

80%

SEXIT

CMP
BEQ
ERRDF

RSEL6,QSEL6
63%
12,EMG12,ERRGZ

;1S THE CHAR. COUNT CORRECT?
;IF OK, PROCEED
;CHARACTER COUNT ERROR

EMG1¢2
ERRGZ

TRAP

CSERDF

. WORD
.WORD

EMG13
E<RG2

TRAP

(SERDF

.WORD
.WORD
. 4ORD

TRAP

.WORD
.WORD
.WORD

TST

SFLAG

.WORD
.WORD
.WCRD

YES, PROCEED

JMP

BEQ
ERRDF

62%:

;CHARACTER COUNT ERROR = OR EXT MEM PROBLEM
TRAP
CSERDF

JMP

BEQ
ERRDF

036226

12,EMG12,ERRG2

SEQ 0163

EMG11
ERRGZ

CSERDF
12
EMG12
ERRGZ

sWHICH EXTENDED ADDRESS ARE WE CHECKING?

BNE
MoV
MOV

65%
#4000,R0
#120000,R1

;BR FOR BIT 17 CHECK
sIN THE TEST OF BIT 16 WE SENT 4K BYTES

MOV
BR

#130000,R2
66$

;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
:THE REC BUF. MAPS TO 400000

MOV

#1,a4177572

: TURN MEMORY MANAGEMENT BACK ON.

CMP
BNE
DEC
BNE
BR

(R1)+,(R2)+
68%
RO
67%
708

;1S THE DATA THE SAME?
;IF NOT THERE IS A DATA ERROR.
;CHECK ENTIRE BUFFER

CLR
ERRDF

a#177572
15,EMG15,ERRGZ

: TURN MEMORY MANAGEMENT OFF.
;DATA ERROR

sTHE XMIT BUFFER BEGAN AT THIS VIRTUAL ADDR

;WHICH WILL MAP TO 200000

;GO COMPARE THE XMIT AND REC BUFFERS

;IF DATA OK, PROCEED WITH TEST.

113
12:42 PAGE 165
29-JUL~81
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
TEST 14 = EXTENDED ADDRESSING DATA TEST
CZOMID.P11
29-JuL-81 11:32
7818

035734
035736
035740
035742
035744

SEQ 0164
TRAP

104455

.WORD
.WORD

000017
020235
015124
000530

AL
177572

000213
002570

(LR
BIC

144254

TST

035410
002520

035410

177777

002120

002346

:NO - GO BACK AND DO IT.

1ST

TFLAG

BNE
BNE

002520
002570

15
EMG15

ERRGZ

aw177572
; TURN 1MEMORY MANAGEMENT OFF.
WRDO+RCV+CMD,@SEL2 :CLEAR RDO, RCV & COMMMAND BITS (0,1)
:1S"THE RECEIVE DONE ?

718

728

SO SEL AN

SFLAG

(IF DONE, FLAG = =1)

:YES - SEE IF TRANSMIT DONE
;IS

THE

TRANSMIT DONE

:YES - SEE_IF THERE IS MORE
:NO - DO IT

:HAVE WE ALREADY TESTED BIT 17

BNE

808

:IF SO - END OF TEST

MOV

#-1,SFLAG

:FLAG SO WE DON'T COME THIS WAY AGAIN.

CLR
(LR

TFLAG
RFLAG

:CLEAR FLAGS FOR NEXT TEST

C(MP
BLT

004200

.WORD

SEXIT

RFLAG

TST

002346
012737
023727
002477
005037
005037

808

(SERDF

LSHIMEM,#4200
80$

:IS THERE ENOUGH MEMORY TO TEST BIT 172
:IF_NOT - END OF TEST.

;SET UP TO TEST BIT 17, IF THERE IS ENOUGH MEMORY.
sTHIS TEST WILL TRANSMIT 8K BYTES STARTING AT PHYSICAL ADDRESS 200000
:TO PHYSICAL ADDRESS 400000.
THE TRANSMITTED BUFFER STILL CONTAINS
sTHE

TEST PATTERN GENERATED IN THE BIT 16 TEST.

;RECEIVE BUFFER ADDRESS (BITS 0-15)
#BIT15!20000,RSEL6 ;REC BUFFER ADDR BIT 17 SET AND 8K
:BYTE RECEIVE CHARACTER COUNT

005037
012737

035362
120000

035364

CLR
MOV

RSEL4

005037
012737

035400
060000

035402

CLR
MOV

TSELS
:TRANSMIT BUFFER ADDRESS (BITS 0-15)
#B1T714!20000,TSEL6 ;XMIT BUFFER ADDR BIT 16 SET AND 8K

012701
012704

010000
140000

MOV
MOV

#10000,R1
#140000,R4

005037

002352

NXMFLG

012746
012746
012746
012746

000340
023630
000004
000003

CLR
SETVEC

062706
012737

000010
000001

005024
005737

002352

104437

005037

177572

74%:

75%:

MOV

;WITH THE PHYSICAL ADDRESS 400000
; ENSURE FLAG IS CLEAR

#4 ,ANOXMEM,#PRI07;SET UP TRAP TO VECTOR 4 (WILL SET FLAG)
MOV

#1,a4177572

;TURN ON MEMORY MANAGEMENT

;CLEAR 400000 - 417776

CLR
TST

;DOES A NXM TRAP 4 OCCUR?
;IF YES, EXIT

DEC
BNE

CLR

;BYTE XMIT CHARACTER COUNT
;COUNTER TO CLEAR 8K BYTES
;VIRTUAL ADDRESS THAT WILL MAP INTO PAR 6

177572

;TURN OFF MEMORY MANAGEMENT

MOV
MOV
MOV
TRAP
ADD

#PR107,-(SP)

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

CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)

CZDMID.P11
7874
7875
7876
7877
7878
7879
7880
7881
7882
7883
7884

036154
036154
036160

036162
036166
036170

036174
036174
036174
036176
036200

29-JuL-81 11:32
012700
104436
005737
001002
000137

000004

002352
035354

76$:

104455
000023
036240

000000

7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896

036204
036204
036206
036212
036216
036220
036222
036226
036226

7898

036232

7900

036236

85%:

7902

036236

ENDTST

7897

7901

036226

010446

012746
012746
010600
104414
062706

004737

80%:

012562

036236

104401

7907
7908
7909
7910
7911

036240
036246
036254
036262
036270

040503
042101
020123
042116
046505

023516
051104
054105
042105
051117

020124
051505
042524
046440
000131

7919

036350

040522

020120

022464

7921

033?’%(7)2

040445

SEQ 0165

CLRVEC

;RESTORE TRAP 4

TST
BNE
JMP

NXMFLG
76%
I5%

;WAS THIS AN ERROR EXIT?
;IF YES = REPORT ERROR
;START THE SECOND TEST

ERRDF

19,EMT22

PRINTE

#FMT25,R4

042515

047515

SHUTDN

MOV
TRAP

#4 ,RO
CSCVEC

TRAP
.WORD
.WORD

CSERDF
19
EMTZ22

MoV

MOV
MoV
MOV
TRAP
ADD

000006

036236

7912

12:42

036276
000002

7903

7904

J 13
PAGE 166
TEST 14 = EXTENDED ADDRESSING DATA TEST
29-JUL-81

R4 ,-(SP)

#FMT25,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP

JSR

PC, SHALT

;SHUTDOWN DMR
sxxxx MACRO EXPANSION *#»=
:DMR HALT ROUTINE.

CALL

$ERROR

sCHECK BASE TABLE AND REPORT ANY SOFT ERRORS

.DSABL

LSB

;DISABLE LOCAL SYMBOL BLOCK

JRRKK

212

L10074:

TRAP

EMT22:

.ASCIZ

/(AN'T ADDRESS EXTENDED MEMORY/

FMT25:

.ASCIZ

/%AMEMORY ADDRESS %06% DOES NOT RESPOND - TRAP &42%N/

.EVEN

CSETST

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY1T 30A(1052)
CZDMID.P11
29-JUL-B1 11:32

K13
29-JUL°81
12:42 PAGE 167
T 15 - DMC MODE TEST

SEQ 0166

ggg

.SBTTL

7924

'"ttt'tttt!ttt'tttttt't"tttttttt.tttttt"ttfiltttttt"ttt'ttttttttt't

7925
7926
77352

TEST 15 = DMC MODE TEST

:
TEST 15 = DMR-11
.' DMC MODE
:* IN THIS TEST THE DMR WILL TRANSMIT AND RECEIVE 7 BUFFERS.
. %

7929
7930
931

M
i
i

7933

7944

:-tttttttttttttitttttfittt'ttttttt't'ttttttttt'tttfit"tttttttttttttttt't

. %

7934
7935
7936
7937
7938
7939
7940
7941
%%
7945

7946
7947

7948
7949
7950
7951
7952
77322

o
o¥
;%
:®
o
o¥
%
o
Hd
. %

036360

005737

036364

001035

7;322

036412

7957

036416

7959

036416

7961
7962

036422

7958

7960

7963
7%79645

7966
7967
7968
7969

035422
036424

012737
005037
012737
005037

004737

002306

000007
002274
000001
002300

002324
002276

TST

WMAINT

BNE

408

MOV
CLR
MOV
CLR

#7 ,BUF NUM
RE SUME
#1,DMCMDE
MNTMDE

CALL

$BUFFS

;

CLEAR

011070

JSR

PC, $MSCLR

ESCAPE

TST

104410
000034

036426
036426
036432
036434
036436

004737
004000
002640
000522

7975
7976
7977

036440
036440

104410

011266

THIS

JSR

ESCAPE

T15:
;DO WE NEED TO WRITE MDEH
MAINTENANCE 1 OR 2?
IF YES, WE CAN'T RUN THIS TEST.

# OF RCV & XMIT BUFFERS.

:FLAG NOT TO USE RESUME.
sFLAG SET TO REQUEST DMC MODE.
sFLAG NOT TO REQUEST MAINTENANCE MODE.

sDETERMINE 7 RCV &

7 XMIT RUFFERS

sMASTER CLEAR

sxxxx MACRO EXPANSION #wxx
sISSUE A DMR MASTER CLEAR

JRRRR

(2224

;IF ERROR, EXIT TEST

TRAP
.WORD

CSESCAPE

L10075-.

;ISSUE A DMR MODE BASEIN
sIN DMR MODE, IF A INTERFACE IS REQUIRED

BASEIN

7970
7971
7972
7973
7974

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.

SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
SEVEN RECEIVE AND SEVEN 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
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

BGNTST

036360
036360

036366
036374
036400
036406

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.

;TO BE WRITTEN - IT WILL BE DONE.
PC, $BASEI
.WORD
LPLU
.WORD
BASE
.WORD
DMR
TST

sxxxx MACRO EXPANSION *xxx

sCALL BASE IN ROUTINE WITH DEFAULTS
sSET LINE UNIT LOOP
;JBASE TABLE ADDRESS
;DMR-11 MODE
JRRRR

;IF ERROR, EXIT TEST

ARRR

TRAP

CSESCAPE

L 13
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81 12:42 PAGE 168
TEST 15 - DMC MODE TEST
CZDMID.P11
29-JuL-81 11:32
036442
036444
036444
036450
036450
036452

004737

012562

PC,

SHALT

JHALT
saxxx MACRO EXPANSION #w#w
;DMR HALT ROUTINE.
shhhn

ESCAPE

TST

SEQ 0167

*IF ERROR, EXIT TEST.

WORD

L10075=-.

TRAP
.WORD

CSESCAPE
L10075=-.

L2
2 3

sAFTER SETTING INTERFACE OR LOOPBACK MAINT.

.&%N"‘T)D?E DONE IN DMC MODE), START IN

036454

sTHIS ROUTINE WILL MANAGE ALL THE DMR
;COMMANDS ISSUED IN THE INTERRUPT ROUTINES
; (FROM BASE IN UNTIL SHUT DOWN).

BESJNES

;CONTROLLING THE SOF TWARE TIMEOUT, THIS
sROUTINE WILL ALSO CHECK THAT BUFFER
;CHARACTER COUNTS AND ADDRESSES ARE CORRECT

JAND THAT THE DATA IS CORRECT IN THOSE BUFFERS

036460
036460
0
036460

L10075:

TRAP

CSETST

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
29-JuL-81 11:32

M3
29-JUL-81
12:42 PAGE 169
T 16 = DMR MODE (RESUME) INTERRUPT TEST

SEQ 0168

3889

.SBTTL

Bws

."'."...*'."...'...."."..."'.'.....'...'....."'..'..."'Q...'..

8009
8010

8011
8012
8013

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

8015

8014

TEST 16 = DMR MODE (RESUME) INTERRUPT TEST

:®

BASE IN

i
o
s*
s
s
s
:*
;*
:®
i
i
;*
o
:*
i
i
:®

HALT
MASTER CLEAR
2 BA/CC IN RECEIVE
HALT
MASTER CLEAR
2 BA/CC IN RECEIVE
HALT
MASTER CLEAR
2 BA/CC IN RECEIVE
HALT
MASTER CLEAR
1 BA/CC IN RECEIVE
HALT
MASTER CLEAR
2 BA/CC IN TRANSMIT
HALT
MASTER CLEAR
2 BA/CC IN TRANSMIT
HALT
MASTER CLEAR
2 BA/CC IN TRANSMIT
HALT
MASTER CLEAR
1 BA/CC IN TRANSMIT
HALT
MASTER CLEAR

8034

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

gggg

THE RECEIVE/TRANSMIT TABLE.

8016
8017
8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031
gg%%

- %

8035

CONTROL IN

BASE IN RESUME

BASE IN RESUME
BASE IN RESUME

BASE IN RESUME

BASE IN RESUME
BASE IN RESUME
BASE IN RESUME
BASE IN RESUME

BASE IN RESUME

THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST

8038
8039
8040
8041
8042
8043
8044
8045
8046

i
i
i
i*
i
i
ix
i
;®

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
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
THE 2K BYTE DEFAULT BUFFER WITHIN THIS DIAGNOSTIC.

- %

8049

8053
8054
8055
8056
8057

%gg

036462
036462

036462
036470
036474
036502
036510

036514

036520

BGNTST

013737
005037
012737
012737
005037

005037

002254
002254
000007
000001
002276

002300

002336

002324
002274

MOV
CLR
MOV
MOV
CLR

T16::

CLR

DMTURN, TEMP1
DMTURN
#7 ,BUFNUM
#1 ,RESUME
DMCMDE

MNTMDE

;SAVE OFF LOOP TYPE
sFORCE INTERNAL LOOP
;# OF RCV & XMIT BUFFERS.
sFLAG SET TO REQUEST USE OF RESUME.
:FLAG CLEARED - DMR MODE
.

CALL

$BUFFS

;DETERMINE 7 RCV &

sFLAG NOT TO REQUEST MAINTENANCE MODE.
7 XMIT BUFFERS

{

8051
8052

'"i"'t....t*Q."tfi.'tfi."*."'".'..'.*.'".fi.'...""""."Q.fi'.""'

|S———

8050

N 13

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuUL-81 12:42 PAGE 170
CZDMID.P1
29-JuL-81 11:32
TEST 16 = DMR MODE (RESUME) INTERRUPT TEST

8062
8063

036524

8064

036524

8066
8067

036530

036532

8065

8068

8071
8072
8073
8074
8075
8076

036530

CLEAR
004737

011070

104410

JSR

PC, SMSCLR

ESCAPE

TST

:ISSUE A DMR MASTER CLEAR
JRRRR

ARRE

TRAP

000014

WORD

036534

CALL

$INOUT

CSESCAPE

L10076~.

: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
:CHARACTER COUNTS AND ADDRESSES ARE CORRECT

;AND THAT THE DATA IS CORRECT IN THOSE BUFFERS

8080

036540

013737

8082
8083

036546
036546

104401

8081

;MASTER CLEAR
sxnxx MACRO EXPANSION ##x#
;IF ERROR, EXIT TEST

gg;g

8079

SEQ 0169

036546

002336

002254

NDTST

MOV

TEMP1,DMTURN

;RESTORE LOOP TYPE

L10076:

TRAP

CSETST

B 14
12-42 PAGE 171
29-JuL-81
CZDMIDO DMR-11 _FUNCTIONAL TESTS MACY11 30~ 1052)
TEST 1 7 = DMR M DE INTERRUPT EXERCISE
CZDMID.P11
29-JuL-81 11:32
TEST 17 = DMR MODE INTERRUPT EXERCISE

.SBTTL

SRR RARA AR A AR AR AR AR AR

AR AR

RAAARAAAAAAA

AR AR

AR AR AR

AR A

TEST 17 = DMR-11

s.n-.-.o.o.o.

SEQ 0170

;* INTERRUPT DRIVEN EXERCISE
;® lN THIS TEST 64 BUFFERS WILL BE TRANSMITTED AND RECEIVED
;* ALL BA/CC OUTS RECEIVES AND TRANSMITS WILL BE ACCOUNTED FOR AND
;* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST

HiERARCHY:

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.
THIS
SUBROUT INE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
THE ROUTINE WILL
64 RECEIVE AND 64 TRANSMIT BUFFERS.
ATTEMPT TO 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.

Sev.Ne
N,

;* THE RECEIVE/TRANSMIT TABLE.

n
o

—

b o

0o 00 0o 0o 00 0o 0o

8112
81

8121

2233233333222

BGNTST

036550
036550
036550

012737

000100

036556
036562
036566

005037
005037
005037

002274
002276
002300

3223223223222

23333232322323322232333

22232222222

2R3

200232

dd ]

117

MOV

#64 . ,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.

036572

CALL

$BUFF
S

;DETERMINE 64 RCV &

036576

CLEAR

036576

004737

036602
036602
036604

104410
000012

002324

011070

64 XMIT BUFFERS

;MASTER CLEAR

JSR

PC,

ESCAPE

TST

SMSCLR

sxxxx MACRO EXPANSION #*xs

;ISSUE A DMR MASTER CLEAR
shkkK

Tk k%

;IF ERROR, EXIT TEST

TRAP

.WORD

CSESCAPE

L10077-.

036606

CALL

$INOUT

;THIS ROUTINE WILL MANAGE ALL THE DMR
;COMMANDS ISSUED IN THE INTERRUPT ROUTINES
; (FROM BASE IN UNTIL SHUT DOWN). BESIDES
s CONTROLLING THE SOF TWARE TIMEOUT, THIS
JROUTINE WILL ALSO CHECK THAT BUFFER
;CHARACTER COUNTS AND ADDRESSES ARE CORRECT
;AND THAT THE DATA IS CORRECT IN THOSE BUFFERS

036612

CALL

$ERROR

;CHECK BASE TABLE FOR SOFT ERRORS

036616
036616
036616

ENDTST
104401

L10077:

TRAP

CSETST

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11

8141

29-JuL-81 11:32

29-JuL-81

12:42

C 14

PAGE 172

TEST 17 = DMR MODE INTERRUPT EXERCISE

SEQ 0171

D 14

(ZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
12:42 PAGE 173
TEST 18 = DMR MODE LARGE MESSAGE
CZDMID.P11
29-JuL-81 11:32
8142
8143
8144
8145
8146
8147
8148
8149

233232332332 2222232223222230232322
22222232222 222
22 RRRtRRdRRdRdRdddd)

* LARGE MESSAGE

18 = DMR-11

PR TR

LR RBB BNB BB IR R

;* 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}’EE%EH;O USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
H

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.

8164

A2332

BGNTST

8165

8166

8167
8168
8169
8170
8171
8172

8173

8194
8195
8196
8197

TEST

;* IN THIS MODE TRANSMIT AND RECEIVE 1 LARGE BUFFER

8152
8153
8154
8155
8156
8157
8158
8159
8160
8161
8162
8163

8193

TEST 18 = DMR MODE LARGE MESSAGE

.SBTTL

8150
8151

012737

000001

005037
005037
005037

002274
002276
002300

002324

2323332222323

3333

2222222233222 2233323223222 2232 2

—

§2

004737

—

011070

22RRR03200R 22222 ]

T18::
MOV

#1 ,BUFNUM

;# OF RCV & XMIT BUFFERS.

CLR
CLR
CLR

RE SUME
DMCMDE

M TDE

;FLAG CLEARED IN ORDER NOT TO USE RESUME.
;FLAG CLEARED TO ALLOW DMR MODE.

CALL

$BUFFS

;DETERMINE 1 RCV &

;FLAG NOT TO REQUEST MAINTENANCE MODE.

1 XMIT BUFFER

;MASTER CLEAR

CLEAR

—

8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
8184
8185
8186
8187
8188
8189
8190
8191
8192

SEQ 0172

JSR

PC,

ESCAPE

TST

sxxxx MACRO EXPANSION w%x=
;ISSUE A DMR MASTER CLEAR

SMSCLR

:tifii

:IF ERROR, EXIT TEST

L2 2 2

TRAP

.WORD

CALL

$INOUT

CSESCAPE

L10100-.

;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

;CHARACTER COUNTS AND ADDRESSES ARE CORRECT

;AND THAT THE DATA IS CORRECT IN THOSE BUFFERS

036662

CALL

$ERROR

+;CHECK BASE TABLE FOR SOFT ERRORS

sNOTE: NORMALLY ANY NON-ZERO ERROR COUNT IS
sREPORTED; HOWEVER IN THIS TEST A REP COUNT
:0F 1 IS ALLOWED, BECAUSE AT LOW BAUD RATES
;WE WOULD EXPECT 1 REP.

.
E 14
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE 174
CZDMID.P1
29-JuL-81 11:32
TEST 18 -~ DMR MODE LARGE MESSAGE

SEQ 0173

8198
8200

820%

036666
036666
036666

ENDTST

104401

L10100:

TRAP

CSETST

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1OS2)
CZDMID.PN
29-JuUL=-81 11:32
820‘50

F 14

29-JUL-81
12:42 PAGE 175
T 19 - DMR MAINTENANCE MODE MESSAGE

.SBTTL

SEQ 0174

TEST 19 = DMR MAINTENANCE MODE MESSAGE

35(0)6

PR AR AR AR AR AR AR R AN RN RN AR R AR RRARR IR RAARS

8210

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

gg}%

;* THE RECEIVE/TRANSMIT TABLE.

8207
gggg

%
TEST 19 = DMR-11
> MAINTENANCE MODE OPERATION

8211

;* THE CHARACTER COUNTS AND BUFFER ADDRESSES WILL BE CHECKED AGAINST
. %

8214

8219

8215
8216
8217
8218

;®
i
I*
i*

8220
8221

;.
o*

8222
gsz

012737

000001

8230
8231
gg%

036676
036702
036706

005037
005037
012737

002274
002276
000001

g%g’;
8236

8240
8241

8242
ggzz

8245

8246
8247
8248
8249
8250

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

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

. %

036670
036670
036670

8239

002324

:-tQttt'ttn.t'tQtt.ttttttt'tttttttttttttttttttitttttttQttttttttttt.tttt
BGNTST
T19
MOV
#1 ,BUFNUM
;4 OF RCV & XMIT BUFFERS.

CLR
CLR
MOV

RE SUME
DMCMDE
#1 ,MNTMDE

sDON'T ALLOW RESUME
;FLAG CLEARED TO ALLOW DMR MODE.
sFLAG SET TO REQUEST MAINTENANCE MODE.

036714

CALL

$BUFFS

sDETERMINE 1 RCV &

036720

CLEAR
JSR

PC, $MSCLR

JMASTER CLEAR
sxaxxx MACRO EXPANSION w#wx
;ISSUE A DMR MASTER CLEAR

ESCAPE

TST

;IF ERROR, EXIT TEST

036720
036724

036724
036726

004737

002300

011070

104410
000012

035730

CALL

$ INOUT

gg;

IRERK

1 XMIT BUFFER

wodeox
K

TRAP
.WORD

CSESCAPE

L10101~-.

sTHIS ROUTINE WILL MANAGE ALL THE DMR

;COMMANDS ISSUED IN THE INTERRUPT ROUTINES
s (FROM BASE IN UNTIL SHUT DOWN). BESIDES
;CONTROLLING THE SOFTWARE TIMEOUT, THIS
JROUTINE WILL ALSO CHECK THAT BUFFER
sCHARACTER COUNTS AND ADDRESSES ARE CORRECT

;AND THAT THE DATA IS CORRECT IN THOSE BUFFERS

g%gz

036734

8255
8256
8257

036740
036740

8258

THIS

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

:®
FE

8225
8226
8227
32253

8237
8238

THE BUFFERS ARE DETERMINED IN THE SUBROUTINE $BUFFS.

SUBROUTINE WILL DETERMINE THE ADDRESS AND CHARACTER COUNT OF
ONE RECEIVE AND ONE TRANSMIT BUFFER.
THE ROUTINE WILL
ATTEMPT TO USE AS LARGE BUFFERS AS POSSIBLE IN THE FOLLOWING
HIERARCHY:

036740

CALL
ENDTST

104401

$ERKROR

sCHECK BASE TABLE FOR SOFT ERRORS

L10101:

TRAP

C3ETST

G 14
CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE 176
HARDWARE PARAMETER CODING SECTION
CZDMID. P11
29-JuL-81 11:32

8259
8260

.SBTTL
A AR

SEQ 0175

HARDWARE PARAMETER CODING SECTION
A A

AR AN

A A A A AR AR

A AR AR A AR AR AR A AR AR A AR AR AR AR AR AR AR

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

036742
036742
036744
036744
036744
036746
036750
036752
036754
036754
036756
036760

A iRttt
it
222 2222222222222

BGNHRD

000015

:
L$HARD:

001037
036776
160000
177776

002031
037014

GPRMA

P1,2.0,160000,177776,YES

GPRMA

P2,4,0,0,776,YES

GPRMD

P3,20,0,7.0.7,YES

.WORD L10102-L$HARD/2

.WORD
.WORD
.WORD
.WORD

T$CODE
P1
TSLOLIM
TSHILIM

.WORD
.WORD
.WORD
.WORD

TS$CODE
P2
TSLOL IM
TSHILIM

.WORD

.WORD
.WORD
.WORD
.WORD
ENDHRD

L10102:

051503
051104
000040
042526
040440
051523
124
047503
051125
020116
040

020055

020122
051505

042101
035123

P1:

LASCIZ

/CSR ADDRESS:

052103
042104
020072
051505
043116
052101

P2:

LASCIZ

/VECTOR ADDRESS:

P3:

LASCII

/TEST

LASCII

0 = INTERNAL

047524

051117
042522
000
020124
043511
047511
012
036440
051105
047050
047116
024522

020061
032462
027126

020075
020064
032463

LASCII

T$CODE

P3
7
TSLOL IM

TSHILIM

.EVEN

CONF IGURATION =/<CR><LF>

(NO CONNECTOR)/<CR><LF>

= W325 = ¥.35

(NOTE:

MOuC 1=4 ALLOWS/<CR><LF>

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

037144

29-JuL-81 11:32
02004C

031462

037324

020040
031510
020055
006462
040
041440
040440
020127
044440
040506
046105
006504
040
024040
044055
020054
051107
032503
026060

051040
026503

H 14

PAGE 177

SEQ 0176

HARDWARE PARAMETER CODING SECTION

020040

035105
042504
040440
006523
LAslll

LASCII

<CR><LF>/

020075
020065
031064

LASCII

& = H3255 = RS422/<CR><LF>

036440

LASCII

5 = CABLE AND SW PACK INTERFACE SELECTED/<CR><LF>

020040
032463
030065
042524
041055

LASCII

031123
031510
051522
031064
032462

031063
032462
031064
026462
024461

LASCII

042523
052040
046117
043516
020131
042510
046505
047520
047514
045503

042514
042510
047514
047440
043111
046440
051440
052122
050117

LASCII

036440

037320

12:42

(ZDMID.P11

29-JuUL=-81

2 = H3254

INTEGRAL

PROGRAM INTERFACE SELECTION)/

H3255 = RS232C/<57>/423/<CR><LF>

032057

042514

051440
045503
051105
051440
042524
(V.35-H3250,

INTEGRAL-B(CS55A-10,/

030455

025040

RS232C-H325, RS423/<57>/422-H3251)/<CR><LF>

SELECT

THE

FOLLOWING ONLY

THE MODEM SUPPORTS LOOPBACK

29-JuL-81 11:32

(ZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
C(ZDMID.P11

037626
037634
037642
037650
037652
037660
037666
037674

005015
020075
020114
005015
020040
042522
046040
000C12

29-JuL=81

I 14

SiNe SECTION °

12:4

HARDWARE PARAMETER CODING SECTION

020040
047514
047514

020066
040503
050117

LASCII

<CR><LF>/

020067
047515
047517

020075
042524
006520

ASCIZ

.EVEN

6 = LOCAL LOOP/<CR><LF>

7 = REMOTE LOOP/<CR><LF>

SEQ 0177

J 14
29-JuL=-81
12:42 PAGE 179
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
SOF TWARE PARAMETER CODPING SECTION
CZDMID.P1
29-JuL-81 11:32
.SBTTL

8382
8383
8384
8385
8386
8387
8388
8389
8390

SEQ 0178

SOF TWARE PARAMETER CODING SECTION

A 2222223222222
3222222222222
2
R 222 R R0d0Rdddddd ]

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.

:t't't'.*fifittifit'ttt.fi"'fi'tttfi.'Qi.".'t'fiti".fit.'tttt".t"ti.'t"'

037676
037676
037700
037700
037700
037702
037704
037706
037710

7
BGNSF

000005

L$SOFT::

GPRMD

000032
037712
000007

$1,0,0,7.1,5,YES

.WORD
.WORD

ENDSFT

L10103:

037712

REFRREERRE
VOOV WN=O

037712
037720

XX PRRPERPERPRREE
v REERRURRRERY

042523

052103
050040
046501
020120
047455
051101
006505

042522
047524
044524
031456
020040
036530
047111
000

8420

S1:

042506
046040
043516
030456
024040
035465
030475

/SELECTABLE PROGRAM LOOP TIME-OUT VARIABLE/<CR><LF>

.ASCIZ

/[REFER TO LISTING 6.3.13]

040074

(MAX=5; MIN=1) /

.EVEN
PATCH:

040074

.EVEN

LASCII

JRRARRARRNAACRAN AN AR N

040070
040072

.WORD L10103-L$SOFT/2

.WORD
.WORD

000001
000005

037712

8409

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

PATCH AREA

AARARAARRA
R AR AR AN A RR R AR AR RN

.=.+20.

NOP
NOP
NOP
IR

AR AR KRR R KA

A AR

R AR R AR AR R R AR

AR AR

R A AR AR AR AR RN AR RN AR AR RN TN

ENDMOD

LASTAD

.EVEN

T$CODE

7
TSLOL
IM
TSHILIM

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
8437

040074

8439
8440

(040100

29-JuL-81 11:32

29-JuL-81

12:42

PAGE 180

SOF TWARE PARAMETER CODING SECTION

SEQ 0179

00000C
000001

LSLAST::
.END

[}

CZDMID.P11

K 14

L 14
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL=-81
12:42 PAGE 182
CZDMID.P11
CROSS REFERENCE TABLE == USER SYMBOLS
29-JuL-81 11:32

BSEL1
002242
oSELZ = 002234

BSEL3
002244
BSEL4 = 002236
BobLS
002246
BSEL6 = 002240
002250
BSEL7
BUFNUM 002324
BUFSIZ 002322
)
=
002

5601

5447

5451
4191«
7714
3641
5342
5447
5697
5783
6501

3646
5344
5451
5699
5876
6544

7699

7702

7852

4565*

4570%

4585+

3457

1584
1580
4476
4482

4486
4486

4659

4670

6567

6638

6729

1599
4186
4181

5324

5385

5899

5918

5956

6839

1592
1591
1587

1593
4196
1590

2581+

2703+

4546+

4550

6567

6638

3581
4995
4384

6729

7849

5257

3184

3285

3286

3339

3197«

3240

3242

3464

7950

BASEI = 000003
BASEUP= 020000
BIGBUF
004240
BITO = 000001
BITOO = 000001
BITO1 = 000002
BIT02 = 000004
BITO3 = 000010
BITO4 = 000020
BITO5 = 000040
BITO6 = 000100
BITO7 = 000200
BITO8 = 000400
BITO9 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020
BiTS = 000040
BIT6 = 0001
BIT7 = 0002
BIT8 = 000400
BIT9 = 001000
= 000400
BSELO = 002232

5340

000044
000020 G
000010
002304
000004
000000
002640

alalalalalalnlalalnlalalalalalalalglalalalalalalalalal

A
=
ADR
=
ASSEMB=
AX3
BACCR =
BACCT =
BASE

SEQ 0180

M 14

SEQ 0181

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42 PAGE 183
CROSS REFERENCE TABLE == USER SYMBOLS
CZDMID.P11
29-JuL-81 11:32

CNTRL

002414
002400
7

CHIPNO
CLRNO
CMD

6349

6370

2581

6737
7297

8330

6672

6754

7071

7124

7175

2621
6879
7415

4365
6970

4550
7035

4619
7054

6352

6453

6558

8336
LR62

8355

8371

8375

8408

5932

5975
7258

6025

6110

7086

7107

5299
6600

5359
6680

7020

5547

5637

4841

7564

7638

7876

7079

5863

7132

7183

4294

xR L2 2

b d e d ek
b D)

6592

2633

4718
5902

6657
7161
7500

CSERSF= 000054
CSERSO= 000057
C$ESCA= 000010

5613
5993
290
6556
7276
7718

C$ESEG= 000005
C$ESUB= 000003

6062

CSETST= 000001

6999

e
e —

CSEXIT= 000032
C$GETB= 000026
C$GETwW= 000027
CSGMAN=

7139

3305

31»
31»

—

e d i —a ON _—
—

b d

CSCEFG= 000045
CS$CLCk= 000062
CSCLEA= 000012
C$CLOS= 000035

N NN
OO
WW WWWWWWWWWN

4283

6379

)

LR 2

e e e e

CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015

3164
3496

3702

3730

3446
3577
3741
5443

3454
3587
3755
5455

7558

7611

7863

7651

3775

5482

5792

6244

3484

3492
3652
4223
5733

3508
3668
4935
5743

3517

6045

8231+
6124

6297
7674

6405
7973

4213

4215

4394

4437

3636

4179

5725

7891

4950

5754

4043

4048

4053

4058

7581
481

1309

002260

DMRVEC
DMTURN

002226
002254

DMTVEC
=
DTR
DXERR =
EF .CON=

002230
000100
000007
000036

EMG1

017716

EF .NEW= 000035
000034
EF. RES‘ 000037
EMG10
EMG11
EMG12
EMG13
EMG14
EMG1S5

000040

020067
020116
020141
020167
020215
020235

4022
4280

4027+
5314
6614
2516*
4623
4140
4153«
7664
4132+
4401

4420
5562
6694

4496
5601

7952+

5877

8057«
5938
7043

8113«

6793
2603

4525
5652
6928
2605+

4179

4184
8054«

4189
8080+

4194

4208

4210

2435

39264
7444
7484

7475
7765

7756
7793

7784

-3 PN

3297

4142

2597

8053

4147

7032
7089+

(alalalala]

DMRRUN= 000040

3095
3082

one

DMRFLG

C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013
DDMC
= 000010
DFPTBL 002174
DIAGMC= 000000
DISCON= 000100
DMCMDE
002276
DMR
= 000522

C$QI0 = 000377

*® ‘g TN

CSOPEN= 000034
C$PNTB= 000014

4234

\hg BRUNG

CSMSG = 000023

4076

d ed

CSGPHR= 000042

SEQ 0182

an b
—_
LG LD AG LD
PBD LD DA NNWWN = =N =
b b b D bl
U‘!NJ\O‘ AONNLNI
(o AN AN LV, [N AN TS AN [AN T S [N [ 8]
NN NINININDIC NN N
WWWWWWWW
NN NN NN NN NN NN NN

N 14
12:42 PAGE 184
29-JuL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
CZDMID.P11
29-JuL-81

7746
4701
4710
7774

4720
7453

7509

7820

5989
7197

8171*
7272

7364

B 15
:
29-JUL-81
12:42 PAGE 185
CZDMIDO DMR=-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
CROSS REFERENCE TABLE == USER SYMBOLS
29-JuL-81 11:32

020402
017727
017774

EMGY

020040

EMS3

012540
012724
024120
025472
030604
030632
030666

FMS4

EMTO
EMT
EMT10
EMT11

39664
39714

020250
020301

EMG16
EMG17
EMG18
EMG19
EMG2
EMG8

020353

4653

4376
4615

6357

6458

€580

6659

6742

6884

6975

7059

7112

7163

7238

39414

4630
7420

6366

6467

6589

6668

6751

6893

6985

7068

7121

2231+

2249

2297

2333«

2341

2627
6581

2636
6590
7164
7503

4377
6752
7303
7757

4616
6885
7312
7766

4631
6894
7421
7775

4667
6976
7435
7785

6358

4025«
7139«

6558+

6593«

7214

6629+
7251

6720

6755«

6951+

6989+

7035+

5046~

5067

5070%

5100+

7311

51854

62474
79074

EMTS

54884

EMT?7
EMT8
EMT9

57954

EMTS

015124

(212122}

42314

2211*

026154
031174
027266
031770
000004
000006
= 002100
= 000035
021512
021601
021670
002344

laln)

015240
015470
015764
016062
002366

7445
7794

(2191l
~)

7122
7485

7176x

(a1

ERRG1
ERRG10
ERRG11
ERRG12
ERRG2

7735

29454

EMT12
EMI13 031226
EMT2
025512
EMT20
032026
036240
EMT22
EMT3

END
ERRFLG

SEQ 0183

5043

5115

5118«

c15
CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuUL-81
12:42 PAGE 186
CZOMID.P11T
29-JuL-81 11:32
CROSS REFERENCE TABLE -- USER SYMBOLS
FMDROP

FMG1

FMGI0
FMGIT
FMG12
FMGI3
FMGIE
FMGIS
FMG16
FMG17
FMGI8
FMGI9
FMG2
FMG21
FMG22
FMGO3
FMGo4
FMGS
FMGL
FMGS
FMG7
FMG8
FMGO
FMS1
FMS2
FMS3
FMTO
FMT1
FMT11
FMT12
FMT13
FMT14
FMT1S
FMT16
FMT19
FMT2
FMT2S
FMTS
FMT4
FMTS
FMT6
FMT7
FMT8
FMTO
FRSPAS
FRSTIM
FSAU =
FSAUTO=
FS$BGN =

023670

4769

47804

016715
016753
017005
017036
017112
017166
017215
017274
017347
017436
016334
017461
017527
017554
017635
016366
016440
016471
016522
016573
016644
010620
010653
011746
024147
025204
027662
027713
027750
030005
030042
030077
031252
025253
036276
025330
025414
026526
026557
026610
026641
026672
002266
002264
000015
000020
000040

3665
3707
3680
3688
3723
3695
3738
3752
3768
3584
3,51
3458
3465
3481
3489
3435
3556
3566
3617
3633
3649
2219
2237
2614
4864
4932
5730
5740
5751
5762
5773
5784
6237
4947
7648
5057
5130
5429
5440
5452
5463
5474
1712#
17114
12314
12314
1231#

38304
38364
38414
3715
38544
38624
38664
3874#
3882
38904
3522
3896w
3903#
39074
3916
3505
37994
3574
38094
38164
38234
2255#
22604
26454
48784
51524
58064
58114
58164
58214
58064
58314
62534
S159#
7888
5081
5176
5504
55074
55124
55174
5524
4034*
4031

4068+
4033+

4273
123%

4305
3432

016302

3443

3514

3546

37824

5722

3601

:
3794

3500

3532

SEQ 0184

38464

5241
3787#

3537
38044
6502

79124
51674

3596

3678

3705

3734

3748

3762

3998

CZDMI
DMR-11_FUNCTIONAL TESTS MACY11
(ZDMID.P1
29-JuL-81 11:32

D 15

12:42
PAGE 187
29-JuL-81
CROSS REFERENCE TABLE == USER SYMBOLS

30A(1052)

6327
6528
6698

FSCLEA=
FSEND

4607
4968
5927

—

639N

FESW =
FSTEST=

GE TPRM 020630
GSCNTO=
GSDELM=
G$DISP= 000003

3528
3762

3532
3774

3596
5481

3672
5718

3678
5791

3701
6232

3705
6243

3729
6496

5547
6174

5632
6179
7074

5861
7321

6067

3500
3758

F$PROT
F $PWR
FSRPT
F$SEG
FESOFT
F$SRV
F$SUB

rorororRorRO
WY

F SHARD=
F $HW
FSINIT
FSJMP
F $MOD
F$MSG

7178

4921

6491

7947

2422

7020

8228

7335

8257

E 15
CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE 188
CZDMID.P1I1
29-JuL-81 11:32
CROSS REFERENCE TABLE == USER SYMBOLS
GSEXCP= 000400
GSHILI= 000002
GS$LOLI= 000001
GSNO = 000000
GSOFFS= 0004
GSOFSI= 000376
GSPRMA= 000001
G$PRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
$RADO= 000020
GSXFER= 000004

GSYES = 000010
HALTC = 001000
HDX

HELP

= 002000

HICRC
002404
HIWORD 002410
HLT
= 000002

12314
12314
12314
12314
12314
12314
12314
1231#
12314
12314
12314
12314
12314
12314
12314

12314
15854
15834

12244

17978
1799%
16104

= 100000 G
= 010000 G
= 000040 G
IECLR = 000020
IEO
= 000100
= 020000 G
IER
IESET = 000100
INFACE 002262
INFLAG 002354
INISR
022064 G
INRCV
002326
INTER = 000015
INXMIT 002330
ISP13 = 000076
ISP7 = 000072
ISR
= 000100 G
IXE
= 004000 G
I$AU = 000041
I$AUTO= 000041
ISCLN = 000041
I$DU = 000C41
I$HRD = 000041
ISINIT= 000041
I
= 000041
I$MSG = 000041

15274
15244
15174
15664
15734
1525#
1563#
1709%
1772#
4139
17564
16258
17578
1649#
16484
15184
15234
12314
12314
12314
12314
82724
12314
12314
12314
g;?g:

I$PROT= 000040
I$PTAB= 000041
I$PWR = 000041
I$RPT = 000041
I$SEG = 000041

12314
12314
12314
12314
12314
5860
6599

HOE
IBE
IDU

8276
8276
8276
8286

8281
8281
8281
8398

8286
8286

8398
8398

8276

8281

8286

8398

)

8276
2932

8281
4621

8286
7063

8398
7116

7167

1251

1351

1392

5944

1904

SEQ 0186

7242

7306

5028+
5078
4585

5064*

5065

5079

4565

4570

4585

4590

4646

4979«
4992=
2900

5020+
4996+
437

5026
5021+
4516

5027+
5065
4565

3382
3383

4502
4429

4508
4644

4733

3300
2517
3287+
L3450
3283«
2525
3284*
5586
5324

3382
4198+
3309

4541
4201+
4520

4546
4539
4593

4550

3470+
4369
3471+
5622
5385

3474+
4533
3475+
5729
5918

3480
4541
3479

4450%

4553

4557

4458

4573

4577

6011

42734
43234
47638
82954
4018%#
12348
34324
37464

43074
43334
47784

35004

35304

35324

35934

35964

36744

36784

57938

37034
62328

37054
62458

37314
64964

4922
5974
6914

4567
6024
7017

5098
6106
7019

5229
6109
7078

5296
6178
7131

5298
6280
7182

5358
6282
7257

5544
6390
7334

5546
6528
7550

5636
6530
7946

42354
B434#
34974
37484

3760

37624

4634

37764

54234

54834

S5718#

39984

4804
5862
6679

4920
5931
6779

rZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11
(ZDMID.P11
29-JuL-81 11:32

I$SETU=
[$SFT =
[$SRV =
1$SUB =

000041
000041
000041
00004

8052

8109

83944

84074
43454

1231#

12314
12314
5296
57134

30A(1052)
29-JUL-81
12:42 PAGE 189
CROSS REFERENCE TABLE ~= USER SYMBOLS

8166

SEQ 0187

8227
46074

60634
6488#

6914
72554
12314
52714
5554
57164
6009
6167

I$TST = 000041

JSJMP = 000167

002364
= 000012

LLOOP =

LOCATE
LOCRC
LOE
=
LOGPEV
LOT
=
LOWORD
LPLU =

024042
002402
040000
002370
000010
002406
004

LSACP
LSAPT
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSDLY
L$DTP
LSDTYP
LSDU
LSDUT
LSDVTY

002110
002036
002070
021756
002106
022046
002032
002011
010246
002076
002060
002124
002116
002040
002034
023640
002072
010240

alalalalalalalagnialnlalalalalnalalal

LAST
LF

L2734

43234
18914

13714
2197
47634
18834

2320

2424

3317

5039«

5040

5055

4768

4833

4931

5875
7030

5936
7041

5987

7195

6037
7270

6040
7356

6122

7359

6295

7666

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P1

LSEF
LSENVI
LSETP
LSEXPT
LSEXPL
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP_
LSINIT
LSLADP
LSLAST
L$LOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV_
L$SOFT
L$SPC
L$SPCP

LSSPTP
L$STA
LSSW
LSTEST
LSTIML
LSUNIT
L10000
1.10001
L10002

L10003
L10004
L10005
L V006

L10007
L10010

L10011
L10012
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10027

29-JuL-81

002052 G
002044 G
002102 G
002046 G
002064 G
002066
036744 G
002120 G
002016 G
002022 G
002174 G
002104 G
020452 G
002026 G
040100 G
002100 G
002074 G
002050 G
002000 G
002042 G
020444 G
002112 G
002062 G
002010 G
037700 G
002056 G
002020 G
002024
002030
002224
002114
002014
002012
002222
002226
015122

G
G
G
G
G
G

1288#
12924
1289
13444
12804
1278#
1407
1439
34954

015236
015466
015762
016060

35284
35914
36724
37014

016c46
016300
021510
022044
022062
023140
023626
023636
023666
024040
024116
025202
024404
025026

37584
37744
42334
43054
43314
46004
4739
47514
L7764
L844H
48714
51504
49624
50944

016162
016214

3729
37444

G 15

12:42
PAGE 190
CROSS REFERENCE TABLE == USER SYMBOLS

11:32

13114
13044
13344
13064
13204
13224
1283
13484
12824
1286#
1287
13364
1337
12904
1291
13324
13284
13084
12654
13024
1343
13424
13184
12744
1285
13144
12844

29-JuL=-81

8272
3089

82734

1407

14084

7575

7838

40184

84394

3998#

8394

83954

1439

14404

2849
4072
14244
14464

2851

3384

SEQ 0188

H 15
12:42
PAGE 191
CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
CZDMID. P11
29-JuL=-81 1
CRCSS REFERENCE TABLE == USER SYMBOLS

L10030
L10031

5380

54194

5585

5614

5621

5645

5657

5668

5685

5692

57144

5917

5949

5983

5994

6003

6010

6034

6048

6054

64914

6129

6141

6151

6168

6191

6200

62254

6302

6311

6328

6346

6378

6399

6410

6419

6436

6452

6550

6557

6608

6619

6628

6688

6699

6708

6719

67614

6811

6822
6942

6831

6860

69034

7157

7191

6852
69984
7202

7213

7232

7266

7277

7296

73214

7372
7682
7985

7381
7691
80014

7393
7711

7405
7719

75334
7728

79034

4409

3026
3027

5998
4397
4396

6306

2401

4327

4641

3159+
7953«

3340
8058+

8114

3368
8172+

3378
8232+

5399

5435

6933
7106

031162
= 000043

SEQ 0189

5969

4400
4401

3349

4462

4657

6067#

I 15

12:42 PAGE 192
CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
CZDMID.P11
29-JuL-81 11:32
CROSS REFERENCE TABLE == USER SYMBOLS
= 000001

NEWST
NEXT
NOBFR =
NOXMEM

020612
022620
000004
023630

NXMFLG

002352

40664
L5154
6361
4277
6584
3076+
4837+

= 000400

OUTFLG
OUTISR
OUTRCYV
OUTXMT
O$APTS=
O$AU =

002356
023142
002332
002334
000000
000000

O0$BGNR=
0$8GNS=
osDU =
O$ERRT=
O$GNSW=
O$POIN=
0$SETU=

000000
000001
000001
000000
000001
000001
000000

PNT
=
PRETIM=
PRI
=
PRIOO =
PRIOT =
PRIO2 =
PRIO3 =
PRI04 =
PRIOS =

001000
000055
002000
000000
000040
000100
000140
000200
000240

PRIO7 =
PSTACK
P1
P2

000340
002372
036776
037014

002572

RCV
=
RCVBUF
RDI
=
RDO
=

000004
003640
000200
000200

RES
=
RESFLG
RESUME
RETURN=
REV1
REV2
RFLAG
RLOOP =

010000
002360
002274
000207
025540
025542
002570
000007

PATCH

040042

PRIO6 = 000300

REOUNT=

2243
2804+

4073

6462

2299
2832

2335
2868

2484~
2902«

7555

7608

7860

3135

3255«

6746
3126

4859%

7560*

7565

2540+
2941%

2582+
3029+

2641+
3036+

2697
3282+

2
3413«

2707+

2714»

4030+
7569

4282+

7605+

4295
7620

4302+
7630

4325
7639

4748%
7857+

4813+
7868

7859

6672

6754

3288*

4522

4636

4734%

3286+

3476%
3477

3488
3487

4714%
4694+

4730
4728

4021

4276

4807

7554

7580

7607

7338
7335

7388

7387

7470
7479

7490
7488

3224

3291

3293

3337

4736
7825

6349

6370

6379

6592

7951~

8056+

8112+

8170«

8230+

7769

7778+

7826

7841+

L6074
3285+
1292
1324

]

NXM

2170
2783

002376

(21121l
ala T~ BN

NAKS

NESTPC

SEQ 0190

5739

3411

037035

004

,
I

J 15
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
12:42 PAGE 193
CZDMID.P11
29-JuL-81 11:32
CROSS REFERENCE TABLE == USER SYMBOLS
RMODEM= 000017
ROMADR 002412
ROMI = 001000

ROMLOC
025531
ROMO = 002000

RQI

RRAM = 000014
RSEL4
035362

RSEL6
035364
RUN
= 100000
SAVE
002342
SECN = 004000
SELO = 002232

SEQ 0191

1626#
18004
15594

5893
2967
2968

5950
2976
2974

6143
4929%
2977

6192
4957«
2983

4974x

4993x

4999+

5102+

5142+

1565#
4570

2298
4585
6845

2483
4590
6946

2525
4646
6957

2581
5893
7145

2705
5950
7206

2900
6143
7220

3300
6192

7284

4503
6334
7386

4541
6440
7398

4546
6636
7706

4550
6644
7714

4565
6712

77078
77084

7779
7788

7848
7849+

5129
1558#

6727

16244
7698+

7699«
1553#
17658
15814
1686#

2973«
g?gg

51924
2984

2415
2702%

3551
2720

2744~

2187
2974%
4639%

2298%
2977
4442x

2311
0981%
4502%

2398%
2983%
4503%

2401%
2984
4508

2415
3382+
4641%

2495%
3442
4b4bx

2522
3513
4823

2705%
3545
5721

2900%
3551
5893%

2966*
4327*
5950%

2968+
4348
6143+

1687
4097%
6370

2185
409B*
6379%

2224
4429%
6453

2621
4609
6575

2639*
4619
6592%

2901=
4bk4*
6654

2923
4692
6670+

2940%
4733%
6737

2967+
4736%
6754

3383+«
4825
6879

3441
5720
6970

3512
6349+
7054

SEL2

002234

16814
3544
6352
ro7le

7107

7i2kr

7158

7175+

7233

7250%

7297

7314

7415

7426

7516+

7730

SEL4

002236

1682#
4459

1689
4468

2497%
L469%

2722%
- 4476%

279%*
L4B2x

3450
44B6x

3521
4671

3687
4673%

3714
4677%

4101%
4L682%

4102%
4687+

4418+
4690*

4451+
4695

SEL6

002240

16834
2978+

4422+
6361

1691
3449

4425«
6462

2499«
3520
4432%
6584

2510
3686

4452«
6663

2593~
3713

4460
6746

2595
4105%

2630
4106%

2725«
4396%

2730%
4397«

2732«
4400*

2796+
4401+

2932
4409+

2969+
4412+

17678
14414
17684
14434
17134
4045
17178
15564
15914
15604
17884
2579

7695«

7796

7834

7057

4156
4064*
4050
3289*

4069+
40634
4427

4217

4924

4527

4549«

2899x

2973
2172x
2580
2942+«

2974
2173
2642«
3016+

2981
2245«
2699%
3017+«

2983
2301+
2700%
3037+

2302+
2742«
3074%

2337x
2779%
3075x«

238B4*
2780%
3256*

2385+
2805*
3280%

,
2440+
2834+
3281*

2480+
2835«
3414+

2481+
2870+
3434

2541+
2898+
3501

12314
1294

12414
1296

1265
1298

1274
1300

1276
1302

1278
1304

1280
1306

1282
1308

1284
1311

1286
1314

1288
1316

1290
1318

1292
1320

5423
12314

5718
1238%#

6232
1266

6496
1267

8273
1268

8395
1269

84394
1270

8440
1271

1272

1273

1275

1277

1279

SFLAG
002346
SFPTBL
002224 G
SKIP
002350
SPEED
002224
STARES 002270
STARST 020606
START
002272
STLU = 010000
STREC = 000200
STUP = 000400
SUBRPC 002374

SVCGBL= 000000

SVCINS= 000001

1281
1307
1331
1374

1283
1309
1333
1375

1285
1310
1335
1376

1287
1312
1337
1377

1289
1313
1339
1378

4465
6888

1291
1315
1341
1379

4621
6979

1293
1317
1343
1380

4623
7063

1295
1319
1345
1381

4659
7116

1297
1321
1347
1382

4679
7167

1299
1323
1349
1383

4705
7242

1301
1325
1370
1384

4725
7306

1303
1327
1372
1385

4829
7448

1305
1329
1373
1386

K 15
12:42
PAGE 194
29-JuL-81
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
(ZDMID.P11
29-JuL-81 11:32
CROSS REFERENCE TABLE == USER SYMBOLS
1390
2200
2228
2322
2426
2614
2716
2935
3162
3322
341
3446
3461
3484
3507
3523
3546
3569
3600
3620

3647
3667
3690
3710
3725
3751
3772
4053
4090
4141
4224
4306
4630
4702
4769
4834
4866
4945
5054
5079
5126
5241
5
5359
5416

5442
5464
5554
5614
5667
5721
5738
5755
5776
5881
5924

1407
2201
2229
2323
2427
2615
2790
2936
3164
3328
3412
3447
3462
3485
3508
3524
3547
3570
3601
3621

3648
3668
3691
3711
3726
3752
3775
4055
4091
4142
4234
4332
4631
4708
4770
4836
4867
4946
5055
5080
5127
5242
5307
5366
5420

5443
5465
5555
5620
5668
5722
5739
5760
5777
5882
5928

1439
2202
2230
2324
2428
2616
2863
2937
3165
3329
3434
3449
3464
3487
3509
3525
3548
3574
3602
3629
3649
3669
3692
3713
3727
3753

1884
2207
2237
2325
2429
2617
2864
2938
3296
3330
3435
3450
3465
3488
3512
3526
3549
3575
3603
3630
3650
3673
3694
3714
3730
3754

5056

5057

4021
4057
4092
4143
4276
4374
4651
4709
4771
4840
4868
4947
5081

5128
5243
5318
5367
5427
5444
5466
5566
5621
5684
5723
5740
5761
5782
5890
5932

4022
4058
4114
4145
4277
4375
4652
4710
4772
4841
4,872
4948

5082

5129
5244
5319
5379
5428
5450
5467
5567
5626
5685
5724
5741
5762
5783
5891
5948

SEQ 0192

L 15
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE 195
CZDMID.P11
CROSS REFERENCE TABLE == USER SYMBOLS
29-JuL-81 11:32
5975

SvcsuB= 000001
SVCTAG= 0000071

SVCTST= 000001

SW00
SwW01
Sw02
Sw03
Sw04
SW05
Swo6
Sw07
Swo8

= 000001
= 000002
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 0004

SEQ 0193
6016

M 15

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42 PAGE 196
CZDMID.P11
29-JuL-81 11:32
CROSS REFERENCE TABLE == USER SYMBOLS
SW10
SW11
Swi2
Sw13
SW14
Sw15

= 002000
= 004000
= 010000
= 020000
= 040000
= 100000

S$LSYM= 010000

037712
= 000045

TBUF
TCOUNT=
TEMP
TEMP1
TFLAG
THRESH=
THIL
=
TH2L
=
TH3L
=
TH4L
=
TIMER =
TOLONG=
TOUT
=
TSEL4
TSEL6

002522
000044
002340
002336
002520
000013
000060
000062
000064
000066
000012
000020
000002
035400
035402

T$ARGC= 000002

T$CODE= 000032
TSERRN= 000023

TSEXCP= 000000

T$FLAG= 000040

15384
15374
15364
15354
15344
15334

12318
L3064
S3554
61754
999
82584
8399
16414
1835#
18344
17644
1763#
18334
16194
16448
16454
16464
16474
1618#
15954
1600#
7701~
7702«

12668
3439
3504#
3570
36614
3727

14258
43324
S4164
62228
70754
82954
84084
5342

6335
6336
2175«
8053«
7344+
5678
5697
5699
5695
5701
5661
6979
6888
77154
77164

12674
36414
3509
35748
3669
37364

14478
L6014
54204
62264
71284
B4O7#
5403

34964
L7408
54824
6244M
71798
56458

6441
6442
2214
8080
7429
6321
5746
5757
5768
5779
6815

6645
6646
2234

7751
7760

7851«
7852«

3447
35124
3578
36804
3742

34494
3518
35844
3684
3750

12684

76438

6429
5750
5761
5772
5783

1269%

35294
47528
56334
63878
72544

35924
L777K
57128
64BN
73188

36734
4LBASK
S7158
64924
73228

37024
4LB72R
57928
65094
75344

3730
4963
5928#
65964
79044

37454
50954
59714
6676K

6846
6847

6958
6959

7221
7400

7399
7448

7439

7489

7521

7693«

7741

7750«

7830

7840+

12704

12714
34578
3526
36004
3692
37664

22194
3462
35364
3605
36944
3772

2223
34644
3541
36134
40864

22378
3469
35444
3621
37074
4092

54384
5744
76478

5444
57498
7652

54504
5755
78874

5456
57604
7892

5462

6804

3455
35204
3588
36864
3756

L7688

4773

48624

4868

49314

4936

82764
12314
43758

82814
22084
LO1WM

82864
22284
LO29M

83984
23304
L6528

24348
4665

26254
47008
56274

5134
57204
5788

53304
63564
68924
76198
7764M

82764

52364
56564

52414
5726
62344

53494
63654
69744
74338
777384
8280

52554
56674

60474

5245
57284
6241

53914
6457
6984
74438
77834
82814

53064
56844

S3#

54278
5734
64984

54104

70584

74528
77924
8285
53184

56914
61174

SEQ 0194

5433
5738%
6506

49438

4951

2634M
47008

28644
4719

55914
64824
70674
71118
T4LOLA - T474M
78194
78834

57064
65884
71208
74838

53664
58704

55544
58904

59034
5
71624

75014

82864

8291

83984

8403

61284

61408

61504

61674

S379F
58814

55664
59164

5054#

2927
48564

37598
51478
60214
67588

37754
5151
60624
67628

4234s
52724
60684
6904#

2241
3479%
3550
3629%
3711
41144

26144
3485
35564
3637
37134
46120

2618
34878
3560
36454
3719
42208

34344
3493
35664
3653
37214
4224

54614
5766

5467
S77\e

54724
5777

5478
5782#

80024

5061

29364
50494

59224
66674
7171
75084

67414
72378
76438

S577H
59484

55848
59824

61904

61994

80834

50784

33294
50734

81404

5085

33554
51214

82024

51264

3374M
52664

60154
67504
72464

6158¢

62074

73014

73104

S6134
59934

56204
60024
63014

56444
60094
63104

7734

77458

77554

N 15
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL=-81
12:42 PAGE 197
CZOMID.P11
29-JuL-81
11:32
CROSS REFERENCE TABLE == USER SYMBOLS
TSGMAN= 000000

12314

TSHILI= 000005
TSLAST= 000001
T$LOLI= 000001
TSLSYM= 010000

82764
12314
82764
l%gll

TSLTNO= 000023

84404

SEQ 0195

8279
84374
8278
1425
4332

82814

8284

82864

8290

83984

8402

82814
1447

8283
3496

82864
3529

8289
3592

8398#
3673

8401
3702

4872

3730
4963

3745
5095

3759
5147

3775
5151
6062

4234
5272
6068

12314

12344

14078

14248

14394

14468

3432

34954

35004

35284

35324

35914

35964

GO184

42334

42738

4305
LBLON

4B71R

43238

L3318

L3458

46008

L6078

4739

L7468

L7518

47634

56374

S7T118

57144

57184

57914

58614

58634

59274

59324

59704

59754

60204

63914
67804
7258%

64884
69034
73174

64914
69154
73214

6496
69984
73354

65084
70184
75334

65294
70204
75514

65314
70744
79034

65954
7079
79474

66004
71278
80014

66754
71328
80534

66808
71788
80824

657K
71834
81104

60254
63864
67614
72534
81394

12344
14074
3701
427384
4844
57184
6761

B434
1424
37054
4305
4848
5791
67804

14394
3729

43238
487
58614
6903

1446
37348
4331
4921#
6067
69154

34328
3744
43454
5150
61074
6998

3495
37484
4600
52304
6225
70184

35004
3758
46078
5271
62324
7321

3528
37628
4739
52978
6243
73354

3532#
3774

47468
5419
62814
7533

3591
39984
4751
54234
6491
75514

35964
4005

3672
40184

4776
55454
6508
79474

36784
4233

4805#
5714
65294
8001

T8NS2 = 000002

49234
5711
62834

4962
58634
6386

49684
5927
63914

5094
59324
6488

50994
5970
65314

5146
59754
6595

5299%#
6020
66004

5354
60254
6675

53594
6061
66804

5415
61104
6757

55478
6174
70204

5632
61794
7074

56374
6221
70794

T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777

12314
12314
12314

TSNEST= 177777

L7768

TS$NSO
TSNS

000000
000005

4LBOSK

4601

4BLLA

4740

4752

4777

L9214

4845

4923

49628

4968

50944

5099%

L7638
5481
64964
7903

51464

51504

T$SUBN= 000000

12314
58604
65998

4804H
58624
66798

49204
59314
67794

49224
59748
69144

4967K
6024
70178

S098
61064
70194

52294
61094
7078%#

52964
61784
71314

52984
62804
71828

S3584
62824
72578

55444
63904
73348

55464
65284
75508

S6364
65304
79464

T$TAGL= 177777
T$TAGN= 010104

12314
12314
40184
52304

14074
4273k
52974

1439
43238
52998

34324
4345
S3594

35004
LOQ7K
5423

35324
47468
S5458

35964
47638
55478

36784
LBOSH
56378

37344
49218
SB614

37488
49238
58634

37624
49684
59324

67804

69154

70184

70204

70794

71324

71834

72584

37054
4BAON
57184
64964

73354

75514

79474

80534

;
39984
50994
S975#4
66804

13724
1385#¢

13734
13864

1374M
13874

13754
13884

13764
13894

13774
13904

13784
13914

13794
14248

13804
14468

13814
34954

13824
35284

13834
35914

LBLLA

LB71H

4962

5657

56674

5668

T$TEMP= 000000

37014

53184

37294
5319

81104
13844
36724

3744k

37584

37748

4005H

423384

43054

43314

L6008

47398

L7518

47764

53544

53664

5367

5379#

5380

54154

54194

54814

55544

5555

55664

5094k

56844

S1464

5685
5917

51504

56914
5927#

52368

5692
59488

5237

57114
5949

52554

S7144
56704

5256

57914
59824

52714

SB704
5983

53064

5871
59934

5307

58814
5994

B 16

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42 PAGE 198
CROSS REFERENCE TABLE == USER SYMBOLS
29-JuL-81 11:32

SEQ 0196

CZDMID.P11

6002#
61174

60474
6151
63014
64094
65494
6688

60204

60094
61284
62214
63774
64884

60534

6061#
61904
63274

60674

69984

70524

64354
65954
6708
68514

73524

TSTEST= 000023

T$1STM= 177777

T$TSTS= 000001

T$$AUT=
T$$CLE=
T$$0U =
T$$SHAR=
T$$HW =
T$$INI=
T$$MSG=

010015
010016
010022
010102
010000
010014
010056

49214
79474

80534

81104

35004

3528

35324

8228#4

3591

35964

3672

62814

65294

67804

69154

36784

3701

37054

3729

37344

C 16
CZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL-81
12:42 PAGE 199
CZDMID.P11
29-JuL-81 11:32
CROSS REFERENCE TABLE == USER SYMBOLS

3744

T$$PRO= 010013
T$$SOF= 010103

3758

37624

3774

54234

5481

57184%

5791

62324

6243

64964

6508

4600
4962
S863#

4607#
4968#
5927

4739
5094
59324

L7468
50994
5970

4751
5146
59754

48494
5299%
6020

4871
5354
6025#

5359#

5415

55478

5632

56374

7127
14398
48054

71324
1446
4844

7178

7183

7253

72584

7317

1372
1381
1382
1383
70194
70784
71314
7182#
72574
1384
1385
1386
1387
1388
1389
1390
1373
49224
49674
5098#
1374
1375
52984
53584

4804w
67794
69144
70174

39984
83944

T$$SRV= 010024
T$$SUB= 010072

434548
49234
5711

62834

T$$SW = 010001
T$$TES= 010101

5419

T
110
TM
112
7T12.1
112.2
T12.3
T12.4
112.5
113
T14
T15
T16
117
718
119
12
12.1
12.2
12.3
T3
T4
T4.1
14.2

023720
032554
033000
033160
033160
033310
033426
033544
033722
034064
034614
036360
036462
036550
036620
036670
024230
024230
024406
025030
025544
025676
025676
026024

T6.1
16.2
76.3
16.4
17
17.1
17.2
T8

030136
030272
030362
030456
030716 G
030716
031062
031340 G

TS
15.1
15.2
T6

G
G
G
G

G
G
G
G
G
G
G
G

G
G

026724 G
026724
027106
030136 G

1376
55464
56364
1377
58624
59314
59744
60244
1378
61094
61784
1379

3748%

SEQ 0197

8406

6386

55454

73344
75504
79464
80524
1094
81664
82274
49204

52294
52964
55444

58604

61064
62804

63914

49214

5554

64B8
5150

5566

65314
52304

5577

6595

5236

5584

66004
5255

5613

6675

6061
66804

61108
6757

6174
70204

6179%
7074

6221
7079

5271

52974

5306

5318

5366

5379

5620

564k

5656

5667

5684

5691

D 16

SEQ 0198

CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052) 29-JUL-81
12:42 PAGE 290
CROSS REFERENCE TABLE == USER SYMBOLS
CZDMID.P11
29-JuL-81 11:32
18.1
19
19.1
19.2
19.3
UAM
=
UPDATE=
WAIT1
WAIT2

031340
031562

65284

4169

WAIT3

WAITS
WMAINT
WMODEM=
WTYPE

7947
4546

6136

6184

6837

XMTBUF

3203

3234

3235

3292

3294

3338

6726

6844

6945

6956

7144

7205

7219

5874

5935

5986

6043

7269

6121
7362

6294

7672

6402
7970

X$ALWA= 000000
XS$FALS=
X$OF
F S=
X$TRUE=
$BACC
012272

$BASEI

011266

$BUFF
S
$CCITT
$CLRQI
$CNTIN

013206
002420
010706
011522

2912
6413

4510
6622

5909
6702

6164
6825

6213
6936

7095

7376

$DMRIN

012062

5677

6135

6183

6320

6428

6803

6814

$ERROR
SHALT

012404
012562

5688

5913

5966

6006

6217

6382

6473

$INOUT
$L00P
$LSTIN=
$SLSTTA=
$MSCLR

014140
013064
000201
000001
011070

$ROMO

012744
010276

SWAIT

040100

7029

5550
7024

2711
6651
4784H
5

18644
§887#

7040

7194

CZDMIDO DMR=11_FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11
BACCIR
BACCIT

BASEIN
BCOMPL

20864
21124

1991#
6689

BERROR
BGNAU
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNPTA

1
1%
1%
1%
»
1%
1%
1w
1w
1%
#
1%

BGNSRV

BGNRPT
BGNSEG
BGNSET
BGNSFT

29-JuL-81

11:32

6633
6331

6709
6437

5309
6788

12312

1231#
1231#
12318
12318
1231#
1231#
1231#
1231#
1231#
12312
12314
1231#

5370
6923

4044

2506
4272
4322
4762
8271
1406
4017
1233
3431
3997

29-JUL-81

12:42

PAGE 202

SEQ 0199

CROSS REFERENCE TABLE ==~ MACRO NAMES

6943
6641
5557

7142
6724
5596

7203
6842
5647

7281
6954
5872

7383
7217
5933

4049

4054

2908

2914

2921

7413

3499

3531

3595

3677

46056

4745

4848

5297
7018

4919
8108
4078
2588
2313

5228
8165

7395
5984

6119

6292

6400

6540

6562

6609

3704

3733

3747

3761

5422

5717

6231

6495

5357
7077

5545
7130

5635
7181

5861
7256

5930

5973

6023

6108

6177

5295
8226

5543

5859

6105

6279

6527

6778

6913

7016

7333

2611
2417

2715
3304

2789

4938
7991

4990
8060

4994
8071

5104
8116

6042
8127

6049
8135

7361
8174

7369
8185

7530
8193

7671
8234

7679
8245

7705
8253
6601
8236

7027

2531

7038

7192

7267

7968

1%
1%
1%
1%

12314
12314
12314
1231#

8393

1%
6281
1%
1#
7549
1#
1%
1%
1%
19324
7713

1231#
6389
1231#
1231#
7945
123124
12312
1231#
1231#
3030
7898

4921
6529
1438
4803
8051
4059
2490
2189
4765
4509
7955

CLEAR

19764
6681

5230
6780

5249
6915

5300
7022

5360
7081

5548
7134

5638
7184

5864
7259

5976
7346

6027
7655

6111
7957

6284
8062

6392
8118

6532
8176

CLOSE
CLRVEC
CNTRIN

%
1#
2019#
14

12314
1231#
5883

3160
5941

4037
5995

4292
6055

4839
6303

7562
6411

7636
6620

7874
6700

6823

6934

7093

7374

7684

2194

2317

2421

3314

5568
4300
4297

5604
4835
4832

5658

5675

6181

6318

6426

6801

6812

6834

BGNSUB

BGNSW
BGNTST
BNCOMP
BNERRO
BREAK
BRESET
CALL

COMMEN
DELAY
DESCR!
DEVTYP
DISPAT
DISPLA
DMRIN
DOCLN
DORPT

ENDAL/

FNDAUT

ENDCLN
ENDCOM
ENDDU
ENDHRD

1#
1#
1#
1%
2039%
1%
1%
1%

12314

12314
12318
12314
1231#
12314
12314
3391
1231#
12318

1231»

1231#

1%
1#
1
1#

1231#
12314
1231#
12314

1231#

4344

1890
1882
1369

4304

4330
4775
8292

4966
6598

5097
6678

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)
CZDMID.P11

ENDHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDPTA
ENDRPT
ENCSEG
ENDSET
ENDSFT
ENDSRV
ENDSUB
ENDSW
ENDTST

EQUALS
ERRDF

ERRHRD

ERROR
ERRSF
ERRSOF
ERRTBL
ESCAPE

EXIT

FEQUAL

29-JuUL-81 11:32

1%
1#
1%
12
1#
1
1%
1%
1%
1%
1%
&
6385
1%
1#
7902
1%
1%
4627
5589
6586

1231
12318
12314
12318
1231#
1231#
1231#
1231#
1231#
1231#
12318
12312
6487
12318
1231#
8000
12314
1231#
4650
5625
6656

1#
1%
1#
14
1#
5655
6052
6408
6809

12314
12314
12314
12314
1231#
5666
6116
6417
6820

7169
7732
%

7230
7717

7235
7743
12314

7264
7726

12314

12314
12314
12314
12314
12314
12314
1231#
1231#
1231#
12314
12314

KT11

12314

MANUAL

12314

1231

INLOOP
I0SETU
IOSTAR

LASTAD
MEMORY
M$BYTE

1%
#
4

1#
1#

8404
4599

4961
654

14.5
4843
8081
1459
2206
4663
5704
6665
7244
7753

1231#
12314
12314

12:42

PAGE 203

SEQ 0200

CROSS REFERENCE TABLE == MACRO NAMES

3700

3728

3743

3757

3773

5480

5790

k
6242

6507

5353
7073

5414
7126

5631
7177

5710
7252

5926
7316

5969

6019

6060

6173

6220

5270
8200

5418
8256

5713

6066

6224

6490

6760

6902

6997

7320

7532

2226
4698
5901
6739

2328
4707
5920
6748

2432
4717
5958
6866

4854
6013
6881

2623

2632
5047
6156
6890

2925
5071
6205
6972

2934
5119
6354
6982

3327
5264
6363
7056

3353
5328
6455
7065

3372
5347
6464
7109

4373
5389
6480
7118

4612
5408
6577
7160

5254
5690

5305
5869

5317
5880

5365
5889

5378
5915

5553
5947

5565
5981

5576
5992

5583
6001
6326
6697
7155

5612
6008
6344
6706
7189

5619
6032
6376
6717
7200

5643
6046
6397
6785
7211

3527

3590

3671

4738

4750

4870

5149
8138

5093
6674

7299
7762

5145
6756

7308
7771

7417
7781

7431
7790

7441
7817

7450
7881

7462

7472

7481

7499

7506

7641

2862

5235
5683

6127
6434

6139
6450

6149
6537

6166
6548

6189
6555

6198
6606

6289
6617

6300
6626

6309
6686

7275
7962

7294
7976

7351
7983

7365
8067

7370
8123

7379
8181

7391
8241

7403

7660

6829

6850

6858

6920

12314

1%
1%
1#
14
14
1#
14
1%
1#
1%
14

GETBYT
GETPRI
GE TWOR
GMANIA
GMANID
GMANIL
GPHARD
GPRMA
GPRMD
GPRML
HEADER

1423
4232
8433
3494
4004

29-JuL-81

F 16

4074
8275
8285

8280
8397

1264

12314

8435

1231#

3163

12654

1271

1272

1273

6931

6940

6967

7051

7104

7675

7680

7689

7709

G 16
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JUL=81
12:42 PAGE 204
CZDMID.P11
29-JuL-81 11:32
CROSS REFERENCE TABLE == MACRO NAMES
MSCHEC
MSCNTO

MSCOUN

#1234
1w
12314

1#
35364
37134
;gz;z

MSDATA
MSDECR

MSDEFA

MSENDE

MSERRI

MSESCA

MSESCS

MSEXCP
MSEXIT
M$E XSE
MSEXTJ
M$GEN

12314
35448
37214
;gg;l

82764

82814

B2B6#

83984

5438#

54504

54614

54728

2219
35564
37364

2237#
35664
37504

2614
3574
37664

SEQ 0201

3434
3584
LOB6H

3441H
36004
41144

34498
36134
4220

3457k
36298
4768BF

344K
36454
4BO2H

34798
36614
4931

34878
36804
49438

35044
36864
50544
57828

62344

64984

57204

57288

57384

57494

57608

5771

35124
36944
50784

35204
37074
51264

1#
1298
1330
14
43054
54194
63864
73214

12314
1300
1332
12318
43314
S54814
6LBBN
75334

12654
1302
1334
14624k
L6008
S632#
64914
79034

1274
1304
1336
14468
47398
S7114
65084
80014

1276
1306
1338
34954
47518
5714
65954
80824

1278
1308
1340
35288
4776
57914
66758
81394

1280
1311
1342
35914
4B44LA
59278
6757
B201#

1282
1314
1344
36728
4LB71A
59704
67618
82574

1284
1316
1346
37018
4962
60204
69034
82934

1286
1318
1348
37294
5094k
60614
69984
84054

1288
1320
18834
3744m
51464
60674
7074k
8434

1290
1322
18914
3758k
51508
61748
71278

1292
1324

1294
1326

1296
1328

3774k
52718
6221
7178k

40054
53544
62254
72538

42334
54154
62434
7317#

1
43318
54814
48B4
7533#
1
LO138
564094
65784
71614

12314
46004
5632#¢
64914
79034
12314
L628BF
55904
6587k
71708

14248
47398
57114
6508F
80014
22078
LOSTAH
56264
G657TH
72364

14468
4L751R
57148
65954
80824
22278
LOG4LE
57054
6666
72454

34954
4776k
S5791&
G675H
81394
23294
L6998
59024
67408
73004

3528%
LBLLA
5927
6757
82014
24334
4708
59214
67494
73094

35914
LB7IA
59704
67614
82574
2624M
4718
59594
68674
7418F

36728
4962
6020#
69034
82934
26338
4BSSH
60144
6882K
T432H

37014
50944
60614
69984
84054
28634
50484
615784
68914
744K

3729
51464
60674
7074
84344
29264
50724
62064
69734
T451R

37448
51504
6174F
71278

37588
52718
62218
7178

3774
5354
62254
72538

42338
54154
62434
73178

43054
54154
63864
73214

29354
51204
63554
69834
7463

33284
52654
63644
70574
74738

33544
53294
6LS56H
70664
74828

33738
53484
6465
71104
75004

4374
53904
64814
71194
7507#

12314

52364

5256

53064

5307

5318#

5319

53664

5367

5379

5380

55544

12314

52364

52554

53064

53184

S3664

S379%

55548

55664

S5778

55844

S6138

56204

56444

72318

72658

7276M

72954

73528

73664

73714

73804

73928

7404k

76614

76768

76814

76904

77104

1#
1%
14
%
1#
12984
13304

12314
1231#
12314
12314
12314
13004
13324

82764

82814

82864

83984

12654

12744

12764

12784

12804

12824

1284

12864

1288

12904

12924

12944

12964

76428

14414

12314

77338

14464

82764

77448

13024
13344
18834

B2814

T754M

5237

13044
13364
18914

82864

7763

52554

13064
13384
34324

B398#

7772k

13084
13408
34954

77828

13114
1342¢
35004

77914

13144
13448
35284

78184

13164
13464
35324

78824

13184
13488
35914

13204°
13714
35964

13224
14084
3672#

13244
14094
3678%

13264
14248
37014

13284
14404
37054

(ZDMIDO DMR-11 FUNCTIONAL TESTS MACY11
CZDMID.P1
29-JuL-81 11:32

37294

46004

MSGENB
MSGETS

37344
46074
50984
56324

H 16
30A(1052)
29-JUL-81
12:42 PAGE 205
CROSS REFERENCE TABLE == MACRO NAMES

37584

47514
52294
57144
61744
65304
71274
8082#

34954

47514

57144
65954
MSGETT

37624

47634

40184
4844M

SEQ 0202
42734

5354

82574

43054

43314
49624
54814
60204
63904
69144
75334
83954
40054
53544

62254
72534

56204
60334
63774
67184

72014
76904

ME$GNGB

12924
13244
14074

37484
82724
MS$GNIN

12764

I 16
12:42 PAGE 206
CZDMIDO DMR=-11_FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81
CROSS REFERENCE TABLE == MACRO NAMES
CZDMID.P11
29-JuL-81 11:32

3725
37538
40384
L0764
41194
42218
43014

L6300
47094
4771
4LBLSK
49318
L9638
50734

5122#
52414
53184
53804
5431

S455#
5478
S613#
56684
5724
57438
5766
57924
59224
59934
6048#
6158%#
62224
63024
63778
64S7H
65004
65784
06284
67074
67874
6882#
69684
7058%
7119
71738
72458
73034
73924
74440
74834
75578
76428
76828
776468
77834
78634

3726
3754
40394

3727
37554
40424

40778
4120
4222
4306

40794
41384
42234
43324

L7728
4LBSSH

4773
4LBSON

L6331
47108

49328
49688
50744
51234
52428
5319#
53%0#
54324
5456
S4B2K
56144
56848
57254
5744
5771k
58634
59234
59944
60534
61594
62264
63104
63784
6458F
6501
65798
66578
67084
68104
68834
696N
70594

71204
7179
72468
7309
73938
TLL5K
74B4K
7558%
T6L3K
76904
77478
7784
7864

L651H
47114

49334
50484
50754
51264
5243
53294
53914
5433
54614
5547H
56204
56854
5726
57494
5772
58704
59244
6002#
60544
61604
62344
63114
63874
64594
65024
65804
66584
67184
68114
6884N
69734
70604

71214
71834
T247H
73104
74044
74514
T485K
7559
7644LK
76914
7754K
77854
78754

37364
37594
40454

37384
37674

40484
40854
41424
L277H
“3774
464N
47214

3739
37684

40504
4090

4143
L2784
46004
L6654
L7394
48104
L864H
4944n
50554
50824
51314
52654
53494
54114
5442
54664
SS5774
56294

3740
37694

40524
40914

SEQ 0203

CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052) 29-JuL-81 12:42 JP:%E 207
29-JuL-81 11:32

CZDMID.P11

79634
MSGNL
S
MSGNSU
MSGNTA

8202#
8288
1L
14

79644

79778

82434
8290

MSHAPT
MS$HNAP
M$INCR

79844
8272#
8394

L9674

5098#
66794
34954

8258#
82934

14464

L7514
57144
65954
8082#
49204
81095#

43314
54814

64884

MSGNTE

7978#

65994

62824

75334
#
75504
#
1#
#

SEQ 0204

CROSS REFERENCE TABLE == MACRO NAMES
79854

80684
8278
8400

8182#
82864
84384

81834
8287

55464
71314

61094

61784

42334

43054
5{19#
63864
73214

36724

49624
60204
69034 .
82934
58604

L7764
57914
66754

813%5#
52294
81664

73344

1439

29354
34614
35774
37054

2624M
34324
35404
26834
37624

40184
42804
47084
48554
50954
52974
54204

55844
57154
58814
60024
61174
62404
63904
65284
66574

M$10SE

M$LDRO
MS$MASK
MSMCHI
M$MCLO
MSMSK1

14244

64914

35914

4B44H

59274
67574

36724
48714
59704

67614

37014

49624
60204

69034

37294
50944
60614
69984

37444

51464
60674
70744

37584
51504
61744
71274

37744
5271#
62214
7178#

40054

53544
62254
7253#

42334
54154

62434
73174

K16
_
CZDMIDO DMR-11_FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL=81
12:42 PAGE 208
CZDMID.P11
29-JuL-81 11:32
CROSS REFERENCE TABLE == MACRO NAMES
M$PRIN

73214

75334
12314
35444

8001#

80824

81394
34344

82014
34414

SEQ 0205

35044
36864

3512#

57824

37484

M$PUSH

MSPUT

MSPUT1

M$RAD
I
M$RNRO
M$SETS

M$STAR
M$SvC

37624

3998#

61104
70794

7132#

26144
3
3529
36004
3691
37444

4844

49314

41454
43314
48074
4935

L 16

12:42 PAGE 209
CZDMIDO DMR-11 FUNCTIONAL TESTS MACY11 30A(1052)
29-JuL-81
CZDMID.P1
29-JuL-81
CROSS REFERENCE TABLE == MACRO NAMES
4950

5120
5299
5419%
5547
56678
5754
59164

82428

B257#

29264
34614
35928
376418

29354
34684
36044
37454

52554
546204
56264
57658
59714
61174
62834
64518

7075
71824
7300
7451
7611
7754
79634

1231#

L1494
47084
49634

52654
54324
5633
57764
59754
61284

048
51504
53544
5443
5590
5712
57824
5932
6025
61674
6244
63984
6509
6657
6762
6968#

50544
5151
5355
54504
56134
57144
5787
59484
60334
61744
62824
64094
65304
6666
67864
6973

2227k
31644
35084
36684
37754
42948

22404
32974
35174
36734
40224
4299

63454
64924

63554
65054
66764
6859

7110
72124
73214
7500
76478
7791
8002

47778
50724
53184
S4778
56674
58704
60094
61678

67628
697

64SGH
60074
67864
69834
71704

68514
70574
72014

76904

74820
77104

75584
77448

1231»

71614
7300#
764738

es e ————————

5921

61174
6225#
637784
64914
6599%
6740
69034

L1428
L6
49504

MSTSTL

51264
306#
5420
55544
5684
57604

6014
6128#
6226
63864
6492
6600
6749
6904

70748
7179
7295#
7442
7607#
7744
7904

MSTLAB

49624

78914

29264
34614
35924
37414

L1428
L6998
49504

29354
34684
37454

L1494
L7084
49634

3664

8002¢

22274
31648
35084
36684
3774
4294k
47778
50724

7119
72314
7322
7507
7651
7818
80684

48114
50844
53294
54824
56844
58814
60144
61754

7
72124

73714

75644
7754M
BO68#

22404
32974
35174
36734
40224
429
48114
50844

SEQ 0206

(ZDMIDO DMR=-11 FUNCTIONAL TESTS MACY11 30A(1052)

| (ZDMID.P11

.
:
|
?
|

29-JuL-81

S2654
S4324
S6334
S776a
S9754
61284
62904
64S6N
66074
67864
69834

S272#
S443M
S6374
S7874
S9824
61408
63014
6LOSH
66184
68104
69994

52994
S4S5H
S6L4Lr
57924
59934
61504
63104
GLBIAH
6627H
68214
70204

53064
S4668
S6564
S8634
60024
61574
63278
64BIXN
S6578
68304
70524

76908

77104

77188

7727R

77338

78914

1#
1382

PRINTF
PRINTS
PRINTX
READBU
READEF
RFLAGS

SETPRI
SETVEC

7904k

12314
1383

71794
73184
75004

79634

1304%
1384

1
PAGE 210

SEQ 0207

71834
73224
75074

7977

1313
1385

72014
73664
75584

7744M

53294
54828
S684x
58814
6014k
61758
63554
65054
66764
68594
70664
72124
73714
75644

7754

53484
55478
S691
58904
60214
61794
6364
65094
66804
6B67H
70754
7231
7380
7SBI1A

7763

53554
S554M
S7054
59024
60254
61904
63778
65314
66874
68824
70794
72364
73924
7611

77728

53594
55668
57128
59164
60334
61994
6387
6538
66984
68914
71054

53664
5577
5715
59214
60478
62064
63914
65494
6707
69044
71104

7245K
7404k
7638

7254k
7418
76424

77828

77914

53794
5584
57254
59284
60534
62228
63984
65564
67184
69214
71194
7258k
74328
76514

78184

53904
55904
57338
59324
60624
6226
6409
65784
67404
69324
71284
72654
74428
76614

78634

54094
56134
57434
59484
60684
52404
6L18#
65874
6749
69414
71324
72764
74514
76764

78764

79844

BOO2#

80684

BO834

B124#

81404

B1824

B202#

82424

82584

2331
2864
33544
4616

2332
2865
3355
4628#

24338
2866
3356
4629

2434
29264
3357
4630

2435
2927
33738
4631

2436
2928
3374
46514

26244
2929
3375
4652

2625
29354
3376
4653

2626
2936
L3748
4654

2627
2937
4375
LO64N

13704
1386

1372
1387

1373
1388

1374
1389

1375
1390

1376
22074

1377
2208

137
2209

1379
2210

1380
22274

2230
2635
3329
46134

23294
2636
3330
4614

4699
4858

4700
5048%

4701
5049

7057#

7058

7059

7060

70664

7067

7068

7069

71104

7111

7112

7113

7119

7120

7792
8437
1%
1%
14
1#
3535
3712

7793
8438
12314
12314
12314
1231#
3543
3720

7794

78184

7819

7820

7821

78824

7883

7884

7885

82764

B281#

82864

1249
2218
3555

2236
3565

2613
3573

3448
3612

3456
3628

3463
3644

3478
3660

3486
3679

3503
3685

3511
3693

12318
12314
12314
12314
12314
1231#

4085
5727

3440
3599

1#
1%
1#
1#
1%
1%

3765
5719

3433
3583

4041

4046

4051

4056

3093
3077

3295
4137

3410
4144

4020
4275

5437

14
1#

4667
4857

5449

12314
12314

3735
5460

4767

2330
28634
3331
4615

71904
7352
75348

53184
S477K
S6674
S8704
60094
61674
63458
64928
6666K
68514
70574

2229
<634
33284
4377
4666
4856

MSXFER
OPEN
POINTE
PRINTB

71704
73094
74828

12:42

CROSS REFERENCE TABLE == MACRO NAMES

S2SS#
54204
56268
S765#
S9714
61174
62834
64518
66008
67624
69734

71614
73004
74734

MSWORD

11:32

29-JUL-81

3749
5471

4702
5050

47084
5051

4709
50724

4710
5073

4711
5074

4113
5737

4219
5748

4930
5759

6942
5770

7579
4806

7553

7606

7858

4861

471848
5075

5053
5781

4719
51204

5077
6233

4720
5121

5125
6497

4721
5122

5240
7646

CZDMIDO DMR=11 FUNCTIONAL TESTS MACY11 30A(1052)

29-JuL=-81

SHUTDN

CZDMID.P11

SLASH
STARS
Sv(

WALT

XFER
XFERF
XFERT

. ABS.

SEQ 0208

3405

5320

5381

5579

5615

5686

5911

5964

6004

6215

6380

6471

6551

6896

5894
7046

1230
2502
5907
7099

2526
5951
7150

2535
6144
7225

2583
6162
7289

2599
6193
7408

2606
6211
7721

2709
6339

2735
6371

2784
6445

2799
6570

2903
6649

2910
6732

2916
6853

7525
1231»
12314
1229
2485

1%
1%
1%

1231#
1231#
12314

040100

000

3398
6962

ERRORS DETECTED:

7894

CROSS REFERENCE TABLE == MACRO NAMES

7979

CZDMID/1,CZDMID.SEQ/DOC/CRF/NL
: iOC/SOL=SV(34R.MLB,CZDMID.P11
34 42 4 SECONDS

RUN-TIME RATIO:

19k

DOCUMENT PAGES:

—-

PAGE 211

11:32

6990
W
1w
1#
19478

CORE USED:

29-JuL-81

2071#

RUN-TIME:

12:42

140/81=1.7

(37 PAGES)

208