Digital PDFs

AH-F593A-MC

June 1980

183 pages

Original

8.1MB

view download

OCR Version

6.9MB

view download

Document:	CZCLKA0 DMR11,DMC11 DMR-C11 DCLT JUN 1980 bw
Order Number:	AH-F593A-MC
Revision:	000
Pages:	183
Original Filename:	CZCLKA0__DMR11,DMC11__DMR-C11_DCLT__AH-F593A-MC__JUN_1980_bw.pdf

OCR Text

AH-F593A-MC
FICHE JE0r

MADEIN-USA

98(

CZCLFAQ DMR,DMC-11

CZCLKA.PI

DATA COMM, LINK TEST

MACY11

18~APR-80 09:24

30A(1052)

18-APR-80

09:24

PAGE 2

SEQ 0001

;

LTITLE

CZCLKAO DMR,DMC-11 DATA COMM. LINK TEST

.REM &

IoENTIFLcATION
PRODUCT CODE:

AC-F591A-MC

PRODUCT NAME
:

CZCLKAO DMR/C11

PRODUCT DATE:

17-APRIL-80

MAINTAINER:

MERRIMACK DIAGNOSTIC ENGINEERING

AUTHOR:

BRUCE LUHRS - BRUCE RIBOLINI

DCLT

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

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

THE

FOLLOWING ARE

DIGITAL
DEC

(C)

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1980 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUS

DIGITAL EQUIPMENT

UN]BUS
DECTAPE

CORPORAT]ON:

MASSBUS

CZCLFAQ DMR,DMC~11

CZCLKA.P11

DATA COMM. LINK TEST

18~-APR-80 09:24

MACY11

30A(1052)

1
¢
18-APR-80

09:24

PAGE 3

REVISION HISTORY:

REV

DATE

23-APR-80

BRUCE LUHRS
BRUCE RIBOLINI

ORIGINAL ISSUE,
DMC OR DMR-11

DCLT FOR THE

SEQ 0002

CZCLFAQ DMR,DMC~11

LINK TEST

18~APR-80 09:24

MACY11

30A(1052)

TABLE OF

.3
4
5
1

.3
4

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS - RESTRICTIONS
OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

FLAGS

HARDWARE QUESTIONS
DATA COMM. LINK TEST COMMANDS

2.5.1

MESSAGE COMMANDS

2.5.3

DEFAULTS

N
WWO

ERROR INFORMAT
]ON
TYPES OF ERROR MESSAGES

BB BPO

PERFORMANCE AND PROGRESS REPORTS
PRINTING EVENT LOG

DEVICE INFORMATION TABLES
MODE AND MESSAGE DESCRIPTIONS
MODE DESCRIPTIONS
MESSAGE DESCRIPTIONS
INTERFACING TO AN ''ITEP'’ NODE

RUN COMMAND

CONTENTS

QUICK STARTUP PROCEDURE

H NN
—

.2
.3

1
D
18-APR-80

GENERAL INFORMATION
PROGRAM ABSTRACT

2.5.2

[
SRV,]

CZCLKA.PIT

DATA COMM.

SPECIFIC ERROR MESSAGES

OPERATOR STATUS MESSAGES
PRINTING DMR,DMC-11 BASE TABLE

TROUBLESHOOTING HINTS

09:24

PAGE 4

SEQ 0003

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PTT

MACY11 30A(1052) 15—APR-80 09:24 PAGE S

18-APR-80 09:24

1.0

GENERAL

INFORMATION

1.1

PROGRAM ABSTRA(CT

’

THIS DCLT (DATA COMMUNICATION LINK TEST) PROGRAM IS MEANT TO
PROVIDE FIELD SERVICE WITH A TOOL TO MAINTAIN DMR/DMC-~11 TO

DMR/DMC-11

COMMUNICATION LINKS.

THIS DCLT PROGRAM WILL PROVIDE

THE COVERAGE NECESSARY TO DETECT FAILURES TO THE COMPUTER
EQUIPMENT, THE COMMUNICATION LINK, OR THE MODEM.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC
RUNTIME SERVICES SOF TWARE (SUPERVISOR).
THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER'S MANUAL (CHQUS?.SEQ WHERE ? IS REV. LEVEL OF
THE MANUAL).
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

IN ORDER TO RUN THE DMR/DM(C-11
MINIMUM HARDWARE IS REQUIRED:

DCLT PROGRAM,

THE FOLLOWING

A PDP-11 CPU
MINIMUM OF 24K WORDS OF MEMORY
A WORKING, LINE OR REAL-TIME CLOCK
A CONSOLE TERMINAL
ANY XXDP+ SUPPORTED LOAD MEDIA

ONE OF

THESE DMR-11 OR DMC-11 CONFJGURATIONS:
DMC11-AL - LOCAL MICROPROCESSOR
DMC11-AL - REMOTE MICROPROCESSOR
DMC11-DA - E.I.A. LINE UNIT
DMC11~FA = CCITT V.35 LINE UNIT

DMC11-MA - 1M BPS LINE UNIT
DMC11-MD -~ 56K BPS LINE UNIT
DMR11-AA
DMR11-AB
DMR11-AC
DMR11-AE

-~
-

E.I1.A. (RS 232/423)
CCITT v.35
LOCAL
E.I.A. (RS 422)

IF DOWN-LINE-LOADING A DMC-11

SATELLITE,

M9301-YJ/M9312 - BOOTSTRAP MODULE

1.3

THE SATELLITE END REQUIRES:

RELATED DOCUMENTS AND STANDARDS

- XXDP+ USER'S MANUAL (CHQUS?.SEQ WHERE ? IS THE REV.
THE MANUAL - "'C'' IS THE CURRENT REV.).

LEVEL OF

SEQ 0004

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PI

18-APR-80 09:24

1.4

MACY11 30A(1052)

F
1
18-APR-80

09:24

PAGE 6

DIAGNOSTIC HIERARCY PREREQUISITES

THE GOAL OF THE DATA COMM. LINK TEST PROGRAM IS TO TEST THE
COMMUNICATION LINK AND THEREFORE ASSUMES THAT THE CPU'S,
g%gfikiés% DMR OR DMC-11'S AT EACH END OF THE LINK HAVE ALLREADY
IF NO LINE OR REAL-TIME CLOCK IS FOUND, THE PROGRAM WILL CONTINUE
BUT ANY OF THE PROGRAM THAT TIMES THE DEVICE WILL HANG IF THE
DEVICE TIMES OUT.
ALSO, THE EVENT LOG WILL CONTAIN A ZERO EVENT
TIME 7OR ALL EVENTS LOGGED.

IT IS NOT THE INTENTION OF A DATA COMM. LINK TEST PROGRAM TO

TEST THE DMR OR DMC-11, BUT TO TEST THE COMMUNICATION LINK TO
WHICH THEY ARE CONNECTED.

SOME OF THE DIAGNOSTICS THAT COULD BE RUN IF THE DMC-11
LOOKS BAD:

DMR:

DMC:

CZDMIAO DMR-11 FCTNL DIAG

CZDMPA1
CZDMQA2
CZDMRCO
CZDMSCO

MB207
M8207
M8203
M8203

STATIC
STATIC
STATIC
STATIC

DIAG
DIAG
DIAG
DIAG

OR DMR-11

#1
#2
M
#2

CZDMCCO BSC W/R MICRO~PROC TST

CZDMECO DDCMP MDLN UNIT TST

CZDMGDO DMC-11 CROM + JMUP TEST
MD-11-DZDMHB1
DMC-11 FREE RUNNING TEST

1.5

ASSUMPTIONS - RESTRICTIONS

IT IS _ASSUMED THAT THE COMMUNICATIONS DEVICE (DMC OR DMR-11) HAS
BEEN TESTED USING THE PREREQUISTE DIAGNOSTICS.
THE OPERATOR
SHOULD HAVE READ THE USER DOCUMENTATION PORTION OF THE LISTING
TO FAMILIARIZE HIMSELF WITH THE COMMANDS AND CAPABILITIES AVAILABLE
UNDER THE DIAGNOSTIC SUPERVISOR AND DCLT.
BECAUSE THE DMC-11 AND DMR-11 SUPPORT DDCMP OPERATION IN THE F]RMWARE,
THE PDP~11 D.C.L.T. PROGRAM IS UNABLE TO CONTROL OR KNOW EXACTLY WHAT
IS BEING TRANSMITTED AT ANY GIVEN TIME.
ALL DATA MESSAGES ARE ENCLOSED
IN A DDCMP ENVELOPE AND THERE MAY ALSO BE CONTROL MESSAGES
(AKS, NAKS,....) BEING TRANSMITTED.
BECAUSE OF THIS PLEASE BEWARE If
IF YOU ARE SCOPING DATA.
—————-

SEQ 0005

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P1T

18-APR-80 09:¢%

2.0

G 1
18-APR-80

MACY11 30A(1052)

PAGE 7
SEQ 0006

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF

FOR DETAILEDN

2.1

09:24

INFORMATION,

REFER TO THE

THE RUNTIME SERVICES.

XXDP+ USER'S MANUAL

(CHQUS).

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM.
THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

START

EFFECT

START THE DIAGNOSTIC FROM AN INITIAL STATE

RESTART
CONTINUE

START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “(C)

EXIT

RETURN TO XXDP+ MONITOR (XXDF+ UPERATION ONLY!)

PROCEED

ADD

DROP

DISPLAY
FLAGS

ZFLAGS

CONTINUE

FROM AN ERROR HALT

ACTIVATE A UNIT FOR TESTING

(ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME

DEACTIVATE A UNIT

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
BY THE DIAGNOSTIC ~ SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS

(SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY, FOR EXAMPLE, TYPE ''STA'' INSTEAD OF ''START''.

2.2

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY 'DDDDD'.
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10,
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 T0
BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.

/PASS :DDDDD

/FLAGS :FLGS

/EOP:DDDDD

/UNITS:LIST

EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)

SET SPECIFIED FLAGS.

FLAGS ARE DESCRIBED

IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED
IN THE LIST.

LIST EXAMPLE = /UNITS:0:5:10-12

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)
EXAMPLE OF SWITCH USAGE:

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

CZCLRA.P

H 1
18-APR-80

MACY11 30A(1052)

18-APR-80 09:24

09:24

PAGE 8

START/TESTS:1-5/PASS:1000/E0P:
100
THE CFFECT_OF THIS COMMAND WILL BE:

TESTS 1

THROUGH S WILL BE

EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE, TYPE '‘/TES:1-5'' INSTEAD OF ‘‘/TESTS:1-5'".

YOU MAY,

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH
COMMAND.
TESTS

START

RESTART

CONT INUE

PROCEED

DROP
ADD

PASS

FLAGS

X
X

DISPLAY

EOP

UNITS

X
X
X

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS
LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE

FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.

FLAG
HOE
LOE
IER*
IBE*

IXEA

PRI
PNT
B0E
UAM
ISR

EFFECT
HALT ON ERROR = CONTROL IS RETURNED TO

RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL
(FIRST LEVEL CONTAINS
ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS (THOSE
CALLED BY PRINTX MACRO'S)

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
"BELL'' ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)

INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

SEQ 0007

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PI

MACY11 30A(1052)

18-APR-80 09:24

IDR

18-APR-80

09:24

PAGE 9

INHIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE AUTODROP CODE

Lot
EVL

LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE EVALUATION SUPPORT)
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR,

INHIBIT ERROR REPORTS

AND TYPE A 'BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FL
:LOEAGS
: IER:B0E

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) 2

YOU MUST ANSWER 'Y'' AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN °‘PRELOADED'* USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS

QUESTION WITH A ‘Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
THE DMR/DMC-11 DATA COMM. LINK TEST PROGRAM WILL NOT USE MORE THAN
G}JELUBUéT.
FOR THE DMC/DMR-11, THE HARDWARE INFORMATION REQUESTED

# UNITS

(D)

1<CR>

UNIT O

FULL DUPLEX OPERATION :
(L) Y ?
DMR,DMC-11 CSR ADDRESS : (0)
160170 ?
INTERRUPT VECTOR ADDRESS:
(0)
300
?
INTERRUPT PRIORITY : (Q)
§
?

DEVICE OPTION TYPE

(0=DMC,

5=DMR-DMC MODE

,7=DMR)

(0)

0 ?

SEQ 0008

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P1

MACY11 30A(1052)

18-APR-80 09:24

2.5

1
J
18-APR-80

09:24

PAGE 10

DATA COMM. LINK TEST COMMANDS

THE 'DCLT>'" COMMAND LEVEL FOLLOWS THE ANSWERING OF THE HARDWARE P-TABLE
?LSJEFS’;{S;!ED
THESE COMMANDS CAN BE TYPED WHEN THE 'DCLT> (A) ?'' PROMPT

MESSAGE COMMANDS AVAILABLE:
YOU ONLY HAVE

TO TYPE ENOUGH CHARACTERS TO UNIQUELY SPECIFY A COMMAND.

THE COMMAND LINE

IS INTERPRETED FROM LEFT TO RIGHT.

THEREFORE,

IF A QUALIFIER ON THE COMMAND LINE IS RELATED OR EFFECTS A QUALIFIER
TO THE LEFT ON THE COMMAND LINE, THE QUALIFIER FARTHEREST TO THE RIGHT

TAKES PRECEDENCE SINCE

IT IS INTERPRETED LAST.

(I.E.

IF /CHECK.....

.../NOCHECK APPEAR ON THE SAME LINE, NOCHECK WILL BE INDICATED IN THE

PARAMETERS WORD.)

REFER TO SECTION 6.0 FOR A DESCRIPTION OF THE DIFFERENT MODES OF
OPERATION AND THE TYPES OF MESSAGES AVAILABLE.

2.5.1 MESSAGE COMMANDS

COMMAND

DESCRIPTION

CLEAR

EXPECTLIST

ZEROES THE EXPECTLIST (000°S)
AND THEN PUTS DEFAWLT ITEP MSG
IN SO NOT REALLY EMPTY

CLEAR

TRANSMITLIST

ZEROES TRANSMITLIST (000°S)
AND THEN PUTS DEFAULT ITEP MSG
IN SO NOT REALLY EMPTY

l;IELP

SET

TYPES HELP INFO FOR OPERATOR

EXPECTMSG=TYPE/QUAL
WHERE:

DEF INE A MESSAGE TO BE PUT ON

THE EXPECTED LIST
°‘‘TYPE'' IS:
=ONES
=ZEROES
=1ALT
=0ALT
=ITEP
=CCITT
=ALPHA
="'A=2,0-9,SPACES OR TABS IN QUOTES''

SEQ 0009

CZCLFAOQ DMR.DMC-11 DATA COMM. LINK TEST

CZCLKA.PT

MACY11 30A(1052)

18-APR-80 09:24

K
1
18-APR-80

09:24

PAGE 11
SEQ 0010

WHERE

THE OPTIONAL "WQUAL'' IS:

/SIZE=NNN

MAKE THE MESSAGE 'NNN'' BYTES

/COPY=NN

COPY THIS MESSAGE INTO THE
BUFFER ‘NN’ TIMES (DEFAULT
IS 0 = PUT THE MESSAGE IN

LONG. (DEFAULT VALUE IS
SIZE OF MESSAGE SPEC'D BY
OPERATOR OR DEFAULTS.)

ONLY ONCE)

NOTE:

SET'S ADD MESSAGES TO THE LIST IN THE ORDER THEY'RE
DEFINED. 'NNN'' IS A DECIMAL NUMBER.
THE FIRST SET
OVERWRITES THE DEFAULT ITEP MESSAGE PLACED THERE BY
INITIALIZATION OR A ''CLEAR'® COMMAND.

SEE SECTION 6.2 FOR A DESCRIPTION OF THE PRE-DEF INED

MESSAGES THAT ARE AVAILABLE.

SET

SHOW

(ZEROS,ONES

...)

TRANSMI TMSG=TYPE/QUAL

DEF INE A MESSAGE TO BE PUT ON

EXPECTLIST

LISTS THE MESSAGE SIZE AND TYPE

THE TRANSMIT LIST
(SEE DESCRIPT FOR SET EXP)

FOR THE MESSAGES IN THE

EXPECT LIST

SHOW

TRANSMITLIST

LISTS THE MESSAGE SIZE AND TYPE
FOR THE MESSAGES IN THE
TRANSMIT LIST

PRINTS THE EVENT LOG AFTER

ASKING THE OPERATOR IF HE
WANTS THE DMR/DMC-11 BASE

TABLE PRINTED

DUMP

SSSSSS—-EEEEEE/B

PRINTS THE CONTENTS OF THE

MEMORY LOCATIONS BETWEEN
OCTAL ADDRESSES °‘SSSSSS'' AND

WHERE '*/B'* 1S OPTIONAL:
DEFAULT IS PRINT WORDS
*/B'" CAUSES PRINT BYTES

"EEEEEE’’' WHERE ''SSSSSS’’ IS

THE START ADDRESS AND
"'~EEEEE’’ IS THE END ADDRESS.

IF '*~EEEEEE’’ 1S NOT SPECIFIED

THEN THE CONTENTS OF ‘°SSSSSS*’

IS PRINTED IN WORD FORMAT.

NOTE:

COMMAND

THE DUMP COMMAND IS USEFUL FOR EXAMINING
MESSAGE DATA.
STARTING ADDRESSES CAN
BE FOUND BY LOOKING IN THE EVENT LOG.

DESCRIPTION

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PTT

MACY11 30A(1052)

18-APR-80 09:24

18-APR-80

09:24

PAGE 12

RUN MODE=MTYPE/QI'AL

STARTS DCLT EXECUTING IN THE

MODE SPECIFIED

NOTE: MODE=ACTIVE IS NOT DEFAULT, A MODE=MTYPE MUST BE TYPED
===-=
EACH TIME A RUN IS TYPED

WHERE THE "MTYPE'' IS ANY ONE OF THE FOLLOWING:
=ACTIVE
(FORCES /NOECHO ,NO LOOPING)
=PASSIVE
(FORCES NO LOOPING)
=RECEIVE
(FORCES /NOECHO ,NO LOOPING)
=LISTEN
(FORCES /NOECHO ,NO LOOPING, /NOCHECK)

=TRANSMIT

=TALK
=DOWNLINELOAD

(FORCES /NOECHO ,NO LOOPING, /NOCHECK)

(FORCES /NOECHO ,NO LOOPING, /NOCHECK)
(FORCES /NOECHO ,NO LOOPING, /NOCHECK,

(FORCING NO LOOPING MEANS IT MUST BE
SPECIFIED AS A QUALIFIER ANY TIME ITS
DESIRED, THERE IS NO DEFAULT)
AND OPTIONAL ‘NQUAL'' IS ANY COMBINATION OF THE FOLLOWING:

/CHECK/NOCHECK

ENABLES/DISABLES CHECKING OF RECEIVED
DATA AGAINST THE EXPECTED DATA

NOTE: IF BOTH NODES IN ACTIVE AND ‘‘/NOCHECK'® IS USED,
- ==== END-QF-PASS 1S DEFINED AS RECEIVING 1 MESSAGE
AND COMPLETING THE TRANSMIT LIST.
WITH NO DATA
CHECKING, THERE IS NO WAY FOR DCLT TO KNOW HOW
MANY MESS~GES IT SHOULD EXPECT TO RECEIVE.

/STATUS/NOSTATUS

ENABLES/DISABLES PRINTING OF PROGRAM
STATUS MESSAGES TO THE OPERATOR

/ECHO/NOE CHO

ENABLES/DISABLES THE RETRANSMISSION OF

/LO0OP=LTYPE

SPECIFIES WHICH, IF ANY, TYPE OF

THE DATA RECEIVED IN PASSIVE MODE.
(IGNORED IN MODES OTHER THAN PASSIVE)

MAINTENANCE LOOPBACK IS BEING USED.

(IGNORED IN MODES OTHER THAN ACTIVE)
MUST BE SPECIFIED EACH TIME cLSE NO
LOOP IS USED.

'LTYPE' IS:

=INTERNALTTL
=CABLE
=LOCALMODEM (DMR IN DMR MODE AND RS449 MODEMS ONLY.

CAUSES A 'WRITE MODEM' TO BE DONE TO SET UP

LOCAL-LOOPBACK (MAINT1)
ANALOG-LOOPBACK.

., ALSO CALLED

=REMOTEMODEM (DMR IN DMR MODE AND RS449 MODEMS ONLY.

CAUSES A 'WRITE MODEM'' TO BE DONE TO SET UP

REMOTE-LOOPBACKX (MAINT2)
DIGITAL-LOOPBACK.

. ALSO CALLED

SEQ 0011

CZCLYAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.P1
18-APR-80 09:24

MACY11

/PASS=NN

30A(1052)

18-APR-80

09:24

PAGE 13

SPECIFIES NUMBER OF ITERATIONS TO MAKE BEFORE

END-OF -PASS.
DEFAULT VALUE OF 1
WILL BE USED ON ANY RUN THAT A /PASS=N

IS MJT ADDED TO THE 'RUN ...'' COMMAND.
IF
A **-1'" IS TYPED, THEN THE PROGRAM

RUN UNTIL
A “C IS TYPED.
NOTE:
~==~==

2.5.3

SEE _SECTION 6.1 FOR A DESCRIPTION
OF THE 'RUN MODES'' AND 'LOCP MODES'’

DEFAULTS

IF NO "'SET'S'’ THEN THE DEFAULT IS SAME AS IF TYPED:
SET TRANSMITMSG=ITEP/SI1ZE=58/COPY=0
SET EXPECTMSG=ITEP/SIZE=58/COPY=0

THE DEFAULT COPY AND SIZE FOR EACH OF

THE MESSAGE

TYPES:

ONES - /S1ZE=64/COPY=0
ZEROES ~ /SIZE=64/C0OPY=0
OALT - /SIZE=64/COPY=0
1ALT = /S1ZE=64/C0PY=0
CCITT - /S1ZE=64/C0OPY=0
ALPHA - /SI1ZE=65/COPY=0
ITEP ~ /SI1ZE=58/COPY=0
OPER. SPEC'D - /SIZE=LENGTH-OF-TEXT-TYPED-BE TWEEN-QUOTES/COPY=0

FOR THE RUN COMMAND THE DEFAULTS ARE:

RUN MODE=ACTIVE/NOSTATUS/CHECK/NOECHO/PASS=1
NOTE: MODE=ACTIVE IS NOT DEFAULT, A MODE=MTYPE MUST BE TYPED
——=—
EACH TIME A RUN IS TYPED

IF THE DCLT PROGRAM IS RUN IN UNATTENDED MODE

THE DEFAULTS ARE AS IF

(UAM FLAG=1 OR CHAINED),

THESE SETUP AND RUN COMMANDS WERE

TYPED:

SET TRANS=ITEP
SET EXPECT=ITEP
RUN MODE=ACTIVE/LOOP=INTERNAL /NOSTAT/CHECK/PASS=1
OTHER NOTES:
~C
<CR>

"RUBOUT""

ALWAYS RETURNS YOU TO 'DR>'‘ (THE SUPERVISOR)
IS SEEN AS A COMMAND TERMINATOR

DELETE LAST CHAR. TYPED IN COMMAND STRING

SEQ@ 0012

CZCLFAOQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT

18~-APR-80 09:24

MACY11 30A(1052)

N 1
18-APR-80

09:24

PAGE 14

SEQ 0013

2.6 QUICK START-UP PROCEDURE

(XXDP+)

TO START=UP THIS PROGRAM:

1. B800T XXDP+

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (]F THERE
IS A CLOCK) QUESTIONS

TYPE 'R NAME'®, WHERE NAME IS THE NAME OF THE BIN OR BIC

FILE FOR THIS PROGRAM

TYPE *'START''

ANSWER THE '‘CHANGE HW'' QUESTION WITH ¥’
ANSWER ALL THE HARDWARE QUESTIONS.
THE NUMBER OF UNITS
THAT CAN DCLT CAN USE IS ALWAYS ‘71°°,
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS.
THESE DEFAULTS ARE DESCRIBED IN SECTION 2.3.

7. AFTER THE ‘DCLT> (A)

"RUN MOD=ACTIVE<CR>'’

?'* PROMPT, TYPE

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING THE DEFAULT TRANSMIT
AND EXPECTED MESSAGES. THE DEFAULT PASS COUNT AND 'RUN'' QUALIF IERS
ARE ALSO BEING USED.
THESE DEFAULTS ARE DESCRIBED IN SECTION 2.5.3.

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

18-APR-80 09:24

30A(1052)

18-APR-80

09:24

PAGE 15

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS CF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE '‘IER'’' FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:
NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC(:XXXXXX

]

LWHERE: NAME = DIAGNOST]C NAME
= ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
-

CZCLKA.PT

MACY11

NUMBER = ERROR NUMBER
UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE "'IER'’ OR ''IBE’* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE '‘IER'’, “'IBE'‘ OR ''IXE’* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

3.2 SPECIFIC ERROR MESSAGES
COMMAND LINE

INTERPRETER ERRORS:

ERROR Mf SSAGE
:

MEANING

?2ILL (MD=BAD 5SYNTX?

A COMMAND WITH AN ILLEGAL CHAR WAS
TYPED - RETYPE THE COMMAND.

THE

VALID COMMANDS AND THEIR SYNTAX ARE
SHOWN IN SECTION 2.5.
2INCMPLTE CMD?

A REQUIRD PART OF A COMMAND WAS LEFT

?NUM TOO BIG?

THE VALUE OF A NUMERIC STRING IN THE

COMMAND LINE WAS LARGER THAN 65535

OR 177777 OCTAL.
?BAD RADIX?

( > 16 BITS).

A 'B'' OR ‘9"’ WAS TYPED WHEN AN OCTAL

STRING WAS EXPECTED, PROBABLY OCCURRED
WHEN TYPING A 'DUMP'' COMMAND WHERE
OCTAL ADDRESSES ARE EXPECTED.

SEQ 0014

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P1Y

MACY11

18~APR-80 09:24

30A(1052)

€

18-APR-80

09:24

PAGE 16

?'LO0P"" VALID ONLY IN ACTIVE?

THE '‘/LOOP=..'' SWITCH WAS TYPED IN A

?"ECHC'' VALID ONLY IN PASSIVE?

THE '‘/ECHO'® SWITCH WAS TYPED IN A

RUN COMMAND BUT THE MODE WAS NOT SET
TO ACTIVE.
MAINTENANCE LOOP IS ONLY
:?;?62& IF THE MODE OF OPERATION IS

RUN COMMAND BUT THE MODE WAS NOT SET
TO PASSIVE. ECHOING OF RECEIVED DATA

IS ONLY POSSIBLE IF THE MODE OF

OPERATION IS PASSIVE.

?ILL CHR- "'A=7,0-9,SP,TAB'' ONLY? A CHARACTER TYPED WITHIN QUOTES WHEN
TRYING TO DEFINE THE CONTENTS OF A
TRANSMIT OR EXPECT MESSAGE WAS NOT

A 'A-2,0~9,SPACE OR TAB''. RETYPE THE

COMMAND WITH ONLY THESE CHARACTERS
BETWEEN QUOTES.

?"'SIZE=0"" NOT VALID?

A MESSAGE ZERO BYTES LONG CAN NOT BE
BUILT. RETYPE THE COMMAND WITH A

"/SIZE=NNN'',

IF NO '‘/SIZE="' IS TYPED

A DEFAULT SIZE WILL BE USED.

DCLT OR DEVICE ERROR MESSAGES:
BAD CLOCK - PROGRAM WILL HANG ON °‘TIMEOUT''!!
THIS MEANS THAT EITHER NO CLOCK WAS
ON THE SYSTEM OR THE ONE THAT WAS FOUND
P’%?CKM’@'T INTERRUPT WHEN ASKED TO DO A

THE PROGRAM WILL STILL RUN, BUT ANY
OF THE PROGRAM THAT TIMES THE DEVICE
WILL HANG IF THE DEVICE TIMES OUT.
ALSO, THE EVENT LOG WILL CONTAIN A
ZERO EVENT TIME FOR ALL EVENTS LOGGED.
MAX.

CHAR.

MSG COUNT EXCEEDED - MSG.

NOT BUILT

THIS MEANS THAT THE TRANSMIT OR EXPECT
BUFFER IS FULL. NO MORE MESSAGES CAN BE
ADDED TO THAT BUFFER.
BUFFER FULL - MSG.

CHAR.

NOT BUILT

THIS MEANS THAT THE LAST MESSAGE YOU
TRIED TO ADD TO EITHER THE TRANSMIT OR
EXPECT BUFFER CAUSED THE TOTAL NUMBER
OF MESSAGES TO BE EXCEEDED. NO MORE
MESSAGES CAN BE ADDED TO THAT BUFFER.
THE LIMIT IS DETERMINED BY THE SIZE OF
THE MESSAGE POINTER TABLE.

COUNT EXCEEDS BUFF LIMIT ~ MSG TRUNCATED

SEQ 0015

CZCLFAO DMR,DMC~11 DATA COMM, LINK TEST

CZCLKA.PIT

MACY11 30A(1052)

18-APR-80 09:24

D 2
18-APR-80

09:24

PAGE 17
SEQ 0016

THIS MEANS THAT THE LAST MESSAGE YOU
TRIED TO ADD TO THE TRANSMIT OR EXPECT
BUFFER CAUSED THE TOTAL CHAR. COUNT
FOR THAT BUFFER TO EXCEED THE LIMIT,

THE MESSAGE WAS TRUNCATED TO COMPLETELY

FILL

THE BUFFER.,

NO MORE MESSAGES CAN

BE ADDED TO THAT BUFFER.
DATA COMPARISON DATA ERROR
BYTE # IN MSG=XXX
EXPTD=YYY

RECVD=212
XXX= OF FSET OF

THAT BYTE FROM THE START

THE COMPARE OR EXPECT MESSAGE.

YYY= THE CONTENTS OF

THAT BYTE

IN THE

EXPECTED MESSAGE
Z7Z= THE CONTENTS OF THAT BYTE IN THE
RECEIVED MESSAGE

UP TO FIVE OF THESE ERRORS WILL BE

PRINTED PER MESSAGE COMPARED. ONLY
THE FIRST FIVE MISMATCHES WILL BE

INDIVIDUALLY REPORTED, BUT TOTAL

NUMBER OF MISTMATCHES IS REPORTED
BY ANOTHER ERROR.
PRINTING THE EVENT LOG AND USING THE

DCLT "DUMP’" COMMAND WILL ALLOW YOU TO
FIND THE ADDRESS OF THE MESSAGE AND
EXAMINE IT.

DATA COMPARISON DATA ERROR
TOTAL MISMATCHES

IN MSG = NN

THIS MEANS THAT WHEN THE MESSAGE
RECEIVED WAS COMPARED AGAINST THE
MESSAGE THAT WAS EXPECTED, SOME OF
THE CHARS. WERE NOT THE SAME.

DATA COMPARISON LENGTH ERROR
COMPARE COUNT= XXX
RECEIVE COUNT= 227
XXX= M’B"Egsg(F;EBYTES

IN THE COMPARE

ZZZ= NUMBER OF BYTES IN THE RECEIVED
ME SSAGE
THIS MEANS THAT THE MESSAGE RECEIVE.

WAS A DIFFENT LENGTH THEN THE MESSAGE
THAT WAS EXPECTED.
(2448
8 441

* NOTE

NRRREAAR

- IN THE FOLLOWING ERROR DESCRIPTIONS XXXXX
REFERS

TO THE OCTAL

SPECIFIED.

CONTENTS OF

THE DEVICE REGISTERS

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZTLKA.PT
18-APR-80 09:24

MACY11 30A(1052)

TIME OUT WAITING FOR RDI

SELO

XXXXXX

SELZ

18-APR-80

09:24

TO CLEAR

XXXXXX

THiS MEANS THAT A SOF TWARE TIMER EXPIRED BEFORE
cT);lERgEVICE CLEARED RDI IN RESPONSE TO THE DROPPING

NOTE: PROGRAM RESETS TIMER AND WAITS AGAIN

SO AN EFFECTIVE LOOP ON ERROR IS SETUP.

TIME OUT WAITING FOR RD]

SELO

XXXXXX

SEL2

TO SET

XXXXXX

THIS MEANS THAT A SOF TWARE TIMER EXPIRED BEFORE
THE DEVICE CAUSED AN INTERRUPT IN RESPONSE TO THE

PROGRAM SETING RQI.
NOTE: PROGRAM RESETS TIMER AND WAITS AGAIN
SO AN EFFECTIVE LOOP ON ERROR IS SETUP.

TIME OUT WAITING FOR RUN TO SET

SELO

XXXXXX

SELZ

XXXXXX

THIS MEANS THAT A SOFTWARE TIMER EXPIRED BEFORE
THE DEVICE SET THE RUN BIT IN RESPONSE TO THE

PROGRAM SETING MASTER CLEAR.

NOTE:

PROGRAM RESETS TIMER AND ISSUES ANOTHER
MASTER CLEAR AND WAITS AGAIN SO AN EFFECITVE
LOOP ON ERROR IS SETUP,
THIS ERROR COULD INDICATE WRONG ADDRESS FOR
DMR/DMC-11 WAS GIVEN IN HARDWARE P TABLE.

TIME OUT WAITING FOR OUTPUT

SELO

XXXXXX

SEL2

INTERRUPT

XXXXXX

THIS MEANS THAT A SOFTWARE TIMER EXPIRED BEFORE
THE DEVICE SET OUTPUT INTERRUPT IN RESPONSE T0
PROGRAM REQUESTING DEVICE TO TRANSMIT OR RECIEVE.
NOTE: PROGRAM RESETS TIMER AND WAITS AGAIN SO AN

EFFECTIVE LOOP ON ERROR IS SET UP.

THIS ERROR WILL OCCUR WHEN ONE NODE IS STARTED
IN RX OR TX MODE AND THE OTHER IS STILL BEING
SET UP. IGNORE THIS ERROR IF PROGRAM CONTINUES
WITHOUT FURTHER ERRORS.

INPUT INTERRUPT WHEN EXPECTING OUTPUT

SELO

XXXXXX

SEL2

XXXXXX

THIS WILL HAPPEN IF THE DEVICE IS BAD. IT MEANS
THAT AFTER THE PROGRAM HAS ISSUED ALL INFUT REQUESTS
TO THE DEVICE, THE DEVICE ISSUES AN INPUT INTERRUPT

PAGE 18

SEQ 0017

CZCLFAO DMR,DMC~11 DATA COMM, LINK TEST

CZCLKA.PT

MACY11 30A(1052)

18-APR-80 09:24

F
2
18-APR-80

09:26

PAGE 19

ILLEGAL OUTPUT _INTERRUPT

SELZ

XXXXXX

SEL6

XXXXXX

THIS HAPPENS WHEN THE DEVICE ISSUES AN OUTPUT INTERRUPT
WITHOUT SETTING 'RDO''. IF THIS HAPPENS THE CEVICE IS BAD.

CONTROL OUT INSTEAD OF BA-CC OUT

SEL2

XUXXXX

SEL6

XXXXXX

MMMMMMM

WHERE 'MMMMM'' [S ONE OF THE FOLLOWING MESSAGES
;’SSTY&EJSULT FROM INTERPRETING THE REGISTER CONTENTS
PROCEDURE ERROR/HALT
NON EXIST MEM
DDCMP START REC
DISCONNECT
LOST DATA
DDCMP MAINT REC
OVERRUN
TIME OUT

DATA CHECK

RUN SET ILLEAGLLY

CD GLJTCHED
RX IDLE
CTS FALILED

(DMR IN DMR-MODE ONLY)

(DMR IN DMR-MODE ONLY)
(DMR IN DMR-MODE ONLY)
(DMR IN DMR-MODE ONLY)

THIS ERROR OCCURS WHEN THE DEVICE SETS CONTROL OUT
TO INDICATE ERROR CONTIDION. THE PROGRAM EXPECTS A
BACC OUT.
TX BUFF

COMPLETED AND SHOULD BE RX

SELS

XXXXXX

SEL6

XXXXXX

THIS ERROR OCCURS WHEN THE THE DEVICE HAS
A BACC OUT WITH TX COMPLETED AND THE PROGRAM
WAS EXPECTING A RX COMPLETED.
RX BUFF

COMPLETED AND SHOULD BE

SEL&

XXXXXX

SEL6

XXXXXX

THIS ERROR OCCURS WHEN THE THE DEVICE HAS
A BACC OUT WITH RX COMPLETED AND THE PROGRAM
WAS EXPFCTING A TX COMPLETED.

WHERE "XXXXX'' 1S THE OCTAL CONTENTS OF

DEVICE REGISTER.
DOWN L iNE

LOAD ABORTED

THIS ERROR CAN ONLY OCCUR

IN A NODE

THAT

SEQ 0018

CZCLrFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.P1T
18-APR=-80 09:24

MACY11

30A(1052)

G 2
18-APR-80

09:24

PAGE 20

SEQ 0019

IS A DLL 'HOST'' WHEN IT HAPPENS IT ALSO

PRINTS ONE OF

THE

FOLLWING QUALIFERS:

TX NOT COMPLETE

HOST DEVICE DID NOT GIVE BACC OUT TX

THIS SHOULD NOT HAPPEN BECAUSE DEVICE

DOES NOT NEED AN ACK FOR MAINT MESGS.
RX NOT

COMPLETE

HOST DEVICE DID NOT GIVE BACC OUT RX
THIS CAN HAPPEN IF SATELLITE DOES NOT
SEND THE SEC BOOT REQUEST MESSAGE.

SEC REQ WORD1
HOST RECIEVED A MESSAGE FROM SATELLITE
BUT MESSAGE WAS NOT 1ST WORD OF SEC BOOT REQ.

SEC REQ WORDZ2

HOST RECIEVED A MESSAGE FROM SATELLITE

BUT MESSAGE WAS NOT 2ND WORD OF SEC BOOT REQ.
CALLED FROM PC.

XXXXXX

THIS MESSAGE OCCURS WITH OTHER ERROR MESAGES
TO INDICATE PC OF CALLING ROUTINE.

CZCLrFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT

18-APR-80 09:24

MACY11

30A(1052)

H 2
18-APR-80

09:26

PAGE 21

4.0 PERFORMANCE AND PROGRESS REPORTS
DCLT USES IT'S OWN METHOD FOR DETERMINING AN "END OF PASS''
WHICH IS CALLED A 'DCLT END OF PASS'‘.
THE NUMBER OF ‘DCLT PASSES''
TO BE RUN IS SPECIFIED BY THE °''/PASS=XXX'' SWITCH ON THE DCLT
RUN COMMAND,
THE TOTAL NUMBER OF 'DCLT ERRORS'' IS REPORTED

WHEN '' X NUMBER OF DCLT PASSES'' ARE COMPLETED.

4.1

PRINTING OF EVENT LOG

SIGNIFICANT EVENTS OR CHECK-POINTS WILL BE LOGGED IN A

"'CIRCULAR QUEUE'' STORAGE AREA CALLED THE EVENT LOG.
THE LAST
"N'' EVENTS ARE KEPT LOGGED AND CAN BE LISTED ON THE OPERATORS
CONSOLE BY GIVING A 'PRINT'' COMMAND AT THE 'DR>'‘(DIAGNOSTIC SUPERVISOR)
OR 'DCLT>'' (DCLT,» LEVEL.
THE EVENTS ARE PRINTED IN A ‘LAST-IN
FIRST-OUT'' ORDER.
EVENT TIME IS TYPED OUT AS MMM:SS:TT (LIKE 254:36:07) WHERE MMM,SS.TT
REPRESENT THE NUMBER OF MINUTES,

SECONDS,

CLOCK TICKS SINCE THE LAST

START OR RESTART.
IT SHOULD BE NOTED THAT THE TIMES ARE
RELATIVE SINCE WHILE THE PROCESSOR IS RUNNING AT PRIORITY 7
THE CLOCK CAN'T INTERRUPT TO KEEP TIME.
THIS IS THE CASE

WHILE THE PROGRAM IS FETCHING DCLT COMMANDS FROM THE OPERATOR.

IT SHOULD ALSO BE NOTED THAT THERE ARE ONLY 8 BITS AVALIABLE TO STORE

RELATIVE MINUTES SO "‘TIME'' WILL WRAP TO 000:00:00 AFTER 256:59:59.

A START OR RESTART CCMMAND AT THE 'DR>'‘ LEVEL INITIALIZES THE EVENT
LOG.
THEREFORE IT IS WISE TO DO A 'PRINT'' AT THE 'DR>'' LEVEL
BEFORE GIVING A 'START'' OR 'RESTART''.
THE TYPES OF EVENTS KEPT IN THE EVENT LOG ARE:
TRANSMIT MESSAGE QUEUED:

EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE,

TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME.
TRANSMIT MESSAGE COMPLETED:

EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE,

TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME.
RECEIVE SPACE QUEUED:
EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE,
TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME.
RECEIVE MESSAGE COMPLETED:

EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE,

TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME.
DATA COMPARISON STARTED:
EVENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG.,
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF BYTES
IN EXPECT MSG.
DATA COMPARISON DATA ERROR:
EVENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG.,
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF
COMPARISON FAILURES

SEQ 0020

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PI
18-APR-80 09:24

MACY11 30A(1052)

18-APR-80

09:24

PAGE 22

DATA COMPARISON LENGTH ERROR:
EVENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG.,
TOTAL NO. OF BYTES IN RCV. MSG.,

IN EXPECT MSG.
DEVICE INIT AND SETUP:
EVENT TIME, MODE OF OPERATION,

TOTAL NO.

OF BYTES

TYPE OF MAINTENANCE

LOOP, 'DCLT'* PASS COUNT, 'RUN" PARAMETERS

DEVICE ERROR:
EVENT TIME, DEVICE ERROR MESSAGE, CONTENTS OF TwO
REGISTERS RELATING TO THE ERROR.
END OF PASS:
.
EVENT TIME, "DCLT'* PASS COUNT, ‘DCLT'' ERROR COUNT,

NO. OF ‘NOBUFF'S'‘(NO. OF CONTROL-OUTS WITH THE

NO-BUFFER SET SINCE THE LAST 'DCLT RUN'' COMMAND.)

NOTE:

IF THE NODES ON THE LINK ARE SIMILAR WITH
RESPECT TO CONSOLE SPEED AND SETUP,
THE

NUMBER OF 'NOBUFFS'' SHOULD BE NEAR ZERO.
4.2 OPERATOR STATUS MESSAGES
THE ''/STATUS, /NOSTATUS'®

QULAIFIERS FOR THE DCLT ‘RUN’'' COMMAND

ENABLES/DISABLES THE PRINTING OF PROGRAM STATUS MESSAGES TO THE
OPERATOR.
THESE MESSAGES ARE INTENDED TO TELL THE OPERATOR WHAT
THE DCLT PROGRAM IS CURRENTLY DOING.

BELOW ARE

MIGHT BE PRINTED AND THEIR MEANING:

THE MESSAGES THAT

ME SSAGE

MEANING

TXQ
TXC
RXQ

DEVICE IS ABOUT START TRANSMITING A MESSAGE
TRANSMISSION OF MESSAGE COMPLETED
DEVICE HAS QUEUED SPACE TO RECEIVE/ COMPLETED RECEIVE

ERR
INI

DEVICE ERROR HAS OCCURRED
DEVICE ABOUT TO BE INITIALIZED

MSC

ABNORMAL MODEM STATUS CHANGE

cMP

ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD DATA

cMD
Eop

DATA ERROR OCCURRED DURING DATA COMPARISON
END OF PASS

CML

LENGTH ERROR OCCURRED DURING DATA COMPARISON

4.3 PRINTING OF DMR/DM(C-11 BASE TABLE
WHEN THE 'PRINT'' COMMAND IS GIVEN, BEFORE THE EVENT LOG IS
PRINTED, THE DCLT DMR/DMC-11 DCLT PROGRAM ASKS IF YOU WISH
TO HAVE THE CONTENTS OF THE DEVICE'S BASE TABLE PRINTED:

BASE TABLE

(L) N ?

IF A °Y'" IS TYPED AS AN ANSWER, THE 256 BYTES OF BASE TABLE

WILL BE PRINTED IN THE FOLLOWING FORMAT:

017370:
0176400:

000
010

001
011

002
012

003
013

004
014

005
015

006
016

007
017

SEQ 0021

CLCLFAQO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P1T

MACY11 30A(1052)

18-APR-80 09:24

18-APR-80

09:26

PAGE 23

”e

[N}

’e

017760:

$70

371

372

373

374

375

376

377

SEQ 0022

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PIT

MACY11

18-APR-80 09:24

30A(1052)

K 2
18-APR-80

09:24

PAGE 24

5.0 DEVICE INFORMATION TABLES

THIS IS THE DEFAULT HARDWARE P-TABLE.

THE VALUES AND

SIZE ARE USED AS A 'TEMPLATE'' FOR CREATING ACTUAL P-TABLE

ENTRIES AND THE DEFAULT VALUES PROVIDED FOR THE OPERATOR.

SEE SECTION 2.4 FOR AN EXAMPLE OF THE HARDWARE QUESTIONS.

THE NUMBERS IN BRACKETS ( I.E. [10]) INDICATES THE OFFSET OF THE
WORD INTO THE HARDWARE P-TABLE.
THE OFFSETS MUST MATCH THE P-TABLE
OFFSETS USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE

"GET PARAMETER'' CALLS ARE USED TO FILL THE P-TABLE.
WORD

.WORD
.WORD
WORD
WORD
.WORD

;[0 FULL OR HALF DUPLEX FLAG (BITO=1

:[12] OPTION TYPE(0=DMC,5=DMR-DMC MODE,7=DMR)

160170
300
240
O

:[2] CSR _ADDRESS
:[4] INTERRUPT VECTOR
:[6]_INTERRUPT PRIORITY (5)
:C10] SPARE

FULL)

6.0 MODE AND MESSAGE DESCRIPTIONS

6.1 MODE DESCRIPTIONS
TRANSMIT MODE
A LIST OF MESSAGES
TO BE RECEIVED.

IS TRANSMITTED WITHOUT EXPECTING ANY DATA

RECEIVE MODE

SPACE IS QUEUED FOR THE DEVICE TO RECEIVE MESSAGES.
AFTER RECEIVING AN "EXPECTED'' NUMBER OF MESSAGES, THE DATA RECEIVED

CAN BE COMPARED AGAINST A LIST OF "EXPECT TO RECEIVE'* MESSAGES
IF DATA-CHECKING IS ENABLED.

PASSIVE MODE

THEN EVERY TIME A MESSAGE IS RECEIVED, A MESSAGE IS TRANSMITTED.
DATA CHECKING CAN BE DONE ON THE RECEIVED DATA.THE '‘/ECHO, /NOECHO'*
ENABLES/D1SABLES THE RETRANSMISSION OF THE DATA RECEIVED.

SEQ 0023

CZCLFAO DMR,DMC-11

C7CLRA.PT

DATA COMM, LINK TEST

MACY11

18-APR-80 09:24

30A(1052)

18-APR-80

09:24

PAGE 25

ACTIVE MODE
A LIST OF MESSAGES IS TRANSMITTED AND MESSAGES ARE RECEIVED.

AFTER RECEIVING AN 'EXPECTED'' NUMBER OF MESSAGES, THE DATA RECEIVED
CAN BE COMPARED AGAINST A LIST OF "“EXPECT TO RECEIVE'' MESSAGES
IF DATA-CHECKING IS ENABLED.

NOTE:

IF BOTH ENDS OF

THE LINK ARE

IN ACTIVE MODE,

LINK MUST BE A FULL DUPLEX LINK!

THEN THE

DOWN-L INE~LOAD

THE "HOST'' OR ORIGINATING STATION REQUESTS THE °‘SATELLITE'® OR

BOOT STATION TO ENTER MOP MODE.

THE SATELLITE THEN SENDS A

' 'SECONDARY BOOT REQUEST MESSAGE''. THE 'HOST'® THEN CHECKS THE

RECEIVED MESSAGE TO SEE THAT IT IS A ‘'SECONDARY BOOT REQUEST''.
THEN THE HOST SENDS A 'MEMORY LOAD WITH TRAKSFER ADDRESS’’
THAT CONTAINS IMAGE DATA TO BE LOADED BY THE SATELLITE'S

M3301-YJ/M9I312 STARTING AT LOC. 0.

THIS IMAGE DATA WILL CONTAIN A

CODE THAT PRINTS A MESSAGE SAYING DOWN-LINE-LOAD WAS SUCESSFUL.
THE BOOTING PROCESS OVERWRITES PART OF THE 'VECTOR'' A/.LA SO THE DCLT
PROGRAM MUST BE RELOADED IN THE ‘‘SATELLITE'® SYSTEM.

TALK MODE

THE '‘TALK'' END OF THE LINK TRANSMITS OPERATOR-TYPED MESSAGES
UNTIL A “EXIT'® MESSAGE IS TYPED.
AT THAT POINT, THE NODE GOES

INTO 'LISTEN' MODE.

AN “EXIT MESSAGE'’ IS A MESSAGE WHOSE FIRST

FOUR CHARACTERS ARE "EXIT''.

SINCE ONLY THE FIRST FOUR CHARACTERS

NEED TO BE "EXIT'', MORE CHARACTERS CAN BE ADDED SO THAT A MESSAGE
MAY BE SENT AND THE MODE SWITCHED ALL AT ONCE.

TLK> EXIT ALL OF

FOR EXAMPLE:

THIS LINE IS SENT THEN MODE SWTICHED

LISTEN MODE

THE ‘LISTEN'' END OF THE LINK PRINTS ALL OF THE MESSAGES
RECEIVED BY THE DEVICF ON THE OPERATOR'S CONSOLE.
If THE MESSAGE
RECEIVED IS AN 'EXIT'' MESSAGE, THEN THE NODE ENTERS °‘TALK'® MODE.

"EXIT MESSAGE'' IS A MESSAGE WHOSE FIRST FOUR CHARACTERS ARE 'EXIT'.

MAINTENANCE ‘1 OOP'' MODES

SEQ 0024

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P11

MACY11 30A(1052)

18-APR-80 09:24

M2
18-APR-80

09:24

PAGE 26

SEQ 0025

REMEMBER THAT THE WHENEVER A ‘RUN'’ COMMAND IS TYPED, THE DEFAULT IS
NO LOOPBACK AND THAT A LOOP MODE MUST BE SPECIFIED BY A ‘‘/LOOP=..
IF A LOOP MODE IS DESIRE D.
LOOP MODES ARE ONLY VALI D IF THE MODE TO RUN IS ACTIVE !

THE "LU LOOP'' BIT IS SET SO THAT THE UNIT'S

INTERNALTTL

SERIAL LINE OUT IS LOOPED BACK TO THE SERIAL
LINE IN AT THE TTL LEVEL BEFORE LEVEL
CONVERSION.

CABLE

NOT USED 8Y DMR OR DMC-11

LOCALMODEM

FOR DMR-11

CODE.

IN DMR MODE AND RS449 MODEMS ONLY.

CAUSES A 'WRITE MODEM'' TO BE DONE TO SET UP

LOCAL-LOOPBACK (MAINT1)
ANALOG-LOOPBACK
.
REMOTEMODEM

. ALSO CALLED

FOR DMR-11 IN DMR MODE AND RS449 MODEMS ONLY.
CAUSES A 'WRITE MODEM' TO BE DONE TO SET ULP
REMOTE-LOOPBACK (MAINT2) . ALSO CALLED
DIGITAL-LOOPBACK.

THE FOLLOWING TABLE SUMMARIZES THE MODES THAT CAN BE RUN TOGETHER
wiicN THE DCLT PROGRAM IS RUNNING ON TWO PROCESSORS (ONE AT EACH
END CFf THE LINK):

ISTATION A
!"HOSV"' NODE

!TALK

STATION B
°‘REMOTE'‘ NODE

DUPLEX

LISTEN~, RECEIVE

HALF OR FULL!

RECEIVE~, LISTEN

°/LOOP'* ALLOWED?

!LISTEN

'RECEIVE

!TRANSMIT
!PASSIVE

!ACTIVE
!
!DOWNLINELCAD

YES

TALK*, TRANSMIT

HALF OR FULL!

TRANSMITs, TALK

HALF OR FULL!

ACTIVE=
PASSIVE+
PASSIVE

FULL
!
HALF OR FULL!
HALF FORCED !

ACTIVE*

HALF OR FULL!

*= MOST LIKELY T O BE IN THAT MODE

6.2 MESSAGE DESCRIPTIONS

NAME

ZEROES
ONES
1ALT

OALT

cCITT

DESCRIPTION
MESSAGE OF ALL 0°'S (oooooooo.oooooooo 00000000, ...)
MESSAGE OF ALL 1°S (11111111, 11111111.11111111....)
MESSAGE OF ALTERNATING 1°'s (io1o1o1o.io1o1o1o.....)
MESSAGE OF ALTERNATING 0'S (01010101,01010101....0)
'CCITT

!
:

512-BIT (VS. 511 BITS) TEST PATTERN

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PT
18-APR-80 09:24

MACY11 30A(1052)

18-APR-80

09:24

PAGE 27
SEQ 0026

ITEP

*'INTERPROCESSOR TEST PROGRAM'S (ITEP)'' MESSAGE 1(DP1:}
(<177><177>/8A THE QUICK BROWN FOXJUMPED OVER THE
LAZY D0G.<15><12><001><177>177><177><177>)

ALPHA

ALPHA-NUMERICS (OR FUTURE COMM_TURNAROUND MSG)

(#$!°° (AMPERSAND)' () x4+, ~_0123456789:; <=>?3ABCDEF GHIJK

LMNOPQRSTUWIXYZ/[\]*_ %)
"A~1,0-9,SPACES,TABS"'

THESE ARE THAT THE CHARACTERS THAT CAN

BE TYPED BETWEEN QUOTATION MARKS
TO SPECIFIY A UNIQUE MESSAGE.

(‘"..°"

(CALLED AN OPERATOR SPECIFIED MESSAGE.)

CZCLrFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PIT

18~APR-80 09:24

MACY11

30A(1052)

18-APR-80

09:26

PAGE 28

6.3 INTERFACING TO AN "'ITEP'' NODE
WHEN DCLT IS USED TO INTERFACE
THE TABLE BFLOW APPLIES:

TO AN ITEP NODE.

ITEP NODE

DCLT NODE

ONE~WAY-QUT
ONE-WAY=IN

RECEIVE OR LISTEN
TRANSMIT OR TALK

INTERNAL LOOP
EXTERNAL LOOP

ACTIVE
ACTIVE OR PASSIVE

NOTE: WHEN INTERFACING TO ITEP IF

THE RX BUFFER ON THE

ITEP SIDE IS ONLY 10 BYTES LARGER THAN THE TX BUFFER YOU

HAVE SELECTED, SO BE SURE TO SET THE TX BUFFER ON THE DCLT
NODE ACCORDINGLY.

WHEN ITEP IS IN A MODE THAT IT IS EXPECTING TO BE TRANSMITTED
TO, A SOFT ERROR 'BASE TABLE ERR COUNTS NON-ZERO'' WILL OCCUR.
THIS IS DUE TO THE SPEED DIFFERENCES IN THE SOF TWARE.
WHEN DCLT IS IN LISTEN MODE THE RX BUFFER IS ONLY

82 BYTES LONG THEREFORE DO NOT SEND THE DCLT NODE
cl)ZEPmHSG 3 FROM THE ITEP NODE OR A 'LOST DATA'' ERROR WILL
BE SURE

ITEP NODE HAS INCORPERATED PATCH FROM DEPO# MD-11-DZDMO-A1

ITEP NODE SHOULD ALWAYS BE RUN WITH SW &4 = TO 0

6.4 TROUBLESHOOTING HINTS
LISTED BELOW ARE SOME SETUPS THAT COULD BE USED FOR ISOLATING FAULTS.

THESE ARE BY NO MEANS THE ONLY WAYS DCLT CAN BE USED '!'i!!!!
DCLT IS MEANT TO BE A VERY FLEXIBLE TOOL! THIS SECTION IS MEANT TO
GIVE SOMEONE NOT TOO FAMILIAR WITH DCLT A PLACE TO START.

REMEMBER THAT THE PRINTING OF STATUS MESSAGES AND PRINTING OF THE
EVENT LOG CAN PROVIDE A LOT OF INFORMATION ABOUT THE SEQUENCE OF
EVENTS AND HOW THE DEVICE AND LINK ARE BEHAVING.

NOTE: IF BOTH NODES IN ACTIVE AND '‘/NOCHECK'' IS USED,
----- END~OF -PASS IS DEFINED AS RECEIVING 1 MESSAGE
AND COMPLETING THE TRANSMIT LIST.
WITH NO DATA
CHECKING, THERE IS NO WAY FOR DCLT TO KNOW HOW
MANY MESSAGES IT SHOULD EXPECT TO RECEIVE.

1.)

INTERNAL LOOP AT EACH NODE

SEQ 0027

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PI

MACY11

18~APR~-80 09:24

RUN EACH END OF
TRANSMIT TWO OR
STATUS PRINTING
OF EVENTS MIGHT
A POSSIBLE

30A(1052)

18-APR-80

09:24

PAGE 29

THE LINK IN ACTIVE MODE WITH
LOOP=INTERNAL.
THREE MESSAGES WITH NO DATA CHECKING.
COULD BE TURNED OFF IF ON, BUT SEEING THE SEQUENCE
BE INFORMATIVE.

COMMMAND SEQUENCE

IS:

¢T

SE T=ONES/S=20/C=2

R M=A/L0O=1/NOCH/STAT

THIS GIVES YOU A IDEA IF THE COMM. DEVICE CAN EVEN TRANSMIT AND
RECEIVE.
ANY ERRORS REPORTED WILL PROBABLY BE DUE TO INCORRECT
DEVICE ADDRESSES BEING USED OR A FAULTY DEVICE.
CHECK ADDRESSES
gé{l?c.EDISPLAY“ AND RUN THE PREREQUISTE DIAGNOSTICS FOR THE COMM.

NOW TRY RUNNING EACH NODE THE SAME WAY WITH DATA CHECKING ENABLED.
A POSSIBLE COMMMAND SEQUENCE IS:

R M=A/L0=1/CH/PAS=3
IF A CABLE TURNAROUND CONNECTOR IS AVAILABLE, PUT IT ON THE END Of

THE

CABLE JUST BEFORE

THE MODEM AND RUN IN ACTIVE MODE WITH NO LOOFP.

POSSIBLE COMMAND SEQUENCE

1S:

R M=A/(CH/PAS=3

2.)

TRANSMIT ON ONE NODE RECEIVE ON THE OTHER

NOW TRY TRANSMIITING FROM ONE END AND RECEIVING ON THE
OTHER. MAYBE WITH NO DATA CHECKING AT FIRST TO ESTABLISH
IF THE LINK IS WORKING.
POSSIBLE COMMAND SEQUENCES ARE:

NODE A

NODE B

CE
crT

R M=TR/PAS=3

R M=R/NOCH/PAS=3

SE T=1ALT/S=250

SE E=1ALT/S=250

NOW TRY DOING DATA CHECKING ON THE MESSAGE
(S) BEING
TRANSMITTED.
POSSIBLE COMMAND SEQUENCES ARE:

R M-TR/PAS=3

R M=R/CH/PAS=3

NOW RUN THRU THE SEQUENCE AGAIN WITH NODE A RECEIVING
AND NODE B RECEIVING.

3.)

ONE NODE ACTIVE THE OTHER NODE PASSIVE

SEQ 0028

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT

18~APR-80 09:24

MACY11 30A(1052)

18-APR-80

09:24

PAGE 30

NOW TRY RUNNING ONE NODE IN ACTIVE MODE WHILE THE OTHER
END RUNS IN PASSIVE. DATA CHECKING SHOULD BE TURNED OFF
IF THE MESSAGE LISTS ARE NOT THE SAME.
POSSIBLE COMMAND SEQUENCES ARE:
NODE A

NODE B

CE
cT
SE T=CCITT/S=10/C=2
R M=ACT/NOCH/PAS=3

CE
cT
SE T=1ALT/S=20/(=2
R M=+"/NOCH/PAS=3

NOW USE DATA CHECKING WITH THE 'EXPECT MESSAGE LISTS'' SET
UP APPROPRIATELY.
ANOTHER VARIATION IS TO HAVE LARGE SIZE
MESSAGES ON ONE SIDE WITH SMALL MESSAGES ON THE OTHER.
THEN REVERSE THE SETUP SO THAT THE NODE RUNNING IN ACTIVE

IS RUNNING IN PASSIVE AND VICE VERSA.

4.) BOTH NODES ACTIVE
NOW BUTH NODES CAN BE RUN IN ACTIVE WITH DATA CHECKING ON.

STAT',S PRINTING COULD BE TURNED OFF
IN THEM.

IF YOU'RE NOT INTERESTED

NODE A

NODE B8

CE
crT
SE T=0ALT/S=10
SE T=CCITT/S=20
SE T=ALPHA/S=30
SE E=ZERO/S=11
SE E=ONES/S=21
SE E=ITEP/S=31

C E
crT
SE E=0ALT/S=10
SE E=CCITT/S=20
SE E=ALPHA/S=30
SE T=ZERO/S=11
SE T=ONES/S=21
SE T=ITEP/S=31

R M=A/CH/NOST/PAS=3

R M=A/(CH/NOST/PAS=3

A VARIATION THAT CAN BE USED IS FOR ONE END TO SEND A LOT OF

SMALL MESSAGES AND THE OTHER TO SEND A FEW LARGE MESSAGES.
IT\HER;;'L«E);]OF-PASSH POINT WILL BE OUT OF SYNC BUT THIS IS NOT

5.) TALK AND LISTEN MODES FOR COMMUNICATING
TALK AND LISTEN MODES ARE USEFUL IF THE OPERATORS WISH TO COMMUNI]CATE
WITH EACH OTHER.
JUST SETUP A TIME THAT EACH WILL GO TO THEIR MODE,
gégfieg&lgl%gm AND SEND MESSAGES OVER THE LINK. POSSIBLE COMMAND

R M=LIS/NOST

R M=TA/NOST

SEQ 0029

CZCLYAOQ DMR,DMC~11 DATA (OMM,
CZCLKA.PIN
18-APR-80 09:24

LINK TEST
LIS>

MACY11

30A(1052)
TLK>

18-APR-80

09:24

PAGE 31

SEQ 0030

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PIT
18~APR-80 09.24
1402

.SBTTL
002000

30A(1052)

F
3
18-APR-80

09:24

PAGE 32

SEQ 0031

PROGRAM HEADER
BGNMOD

I+

;

THE PROGRAM HEADER IS THE

INTERFACE BETWEEN

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.
POINTER BGNRPT ,BGNAU,BGNDU

002000
002000

HEADER

1429
1430

1431
1432
1433
1434
1435
1436
1437
1438
1439
1440

1441
1442
1443
1444

1445

1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456

002010
002010

002011
002011
002012
002012
002014
002014
002016
002016
002020
002020

002022
002022
002024
002024

002026

002026
002030
002030
002032
002032
002034

002034
002036
002036
002040
002040

(Z(CLK,A,0,1800..0

LONAME
::

888

—

~
N
W

002000

~=2OWO
WEHWNOW

[

P AR R O ¥ QW S o

]

N—‘dd—l—‘—.—l_‘—a—lg
OVONA
NS NN —=O

16404

MACY11

101

060
000000

003410
035764
000000
002130
000000
036346

000000
000000

002124

LSREV::

LSDEPO: :
LSUNIT::
LSTIML::
LSHPCP::
LSSPCP::
LSHPTP::

LSSPTIP: :

LSLADP: :
LS$STA::
L$CO::

LSDTYP: :

LSAPT: :
LSDTP::

LASCII
JASCII
JASCI1
LASCII
LASCII
.BYTE

/¢/
72/
/¢/
7L/
/x/
0

.BYTE

ASCI1

/A/

LASCII

70/

LMWMORD

.WORD

1800.

.WORD

LSHARD

.WORD

LSHW

.WORD

LSLAST

LWORD

MWORD

.WORD

MWORD

.WORD

LSDISPATCH

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P11
1457
1458
1459
1460

002042
002042
002044
002044

1662
14663
1464

002046
002050
002050

1466
1467
1468
1469

002052
002052
002054
002056

1461

1665

1470
16471
1472

1473

1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
16486

002046

002051

002056
002060
002060

002062

002062
002064
002064
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076

1487
1488
1489
1490
1491

002100
002100
002102
002102
002104

1493
1496
1495

002106
002106
002110

1492

1496

1497

1498
1499

1500
1501
1502
1503
}gg‘so

002104

18-APR-80 09:24
000000
000000

000000

003
003
000000
000000
000000
012026
024364

000000
000000

025316
025310
000000
012042

104035
000000
024400

025266

002110

025264

002112
002114

024372

002112

002114
002116
002116
002120
002120

000000
000000

000000

MACY11

PROGRAM HEADER

30A(1052)

18-APR-80

09:24

PAGE 33

SEQ 0032
LS$PRIO: :
LSENVI::
LSEXP1::

LSMREV: :
LSEF::
LSSPC::
LSDEVP: :

LSREPP: :
LSEXP4: :
LSEXPS: :
LSAUT: :
LSDUT: :
LSIUN::

LSDESP: :

LSLOAD: :
LSETP::
LSICP::

LSCCP::
LSACP::

LSPRT::
LSTEST::

LSDLY::
LSHIME: :

WORD

.WORD

L.WORD

.BYTE
BYTE

CSREVISION
(CSEDIT

WORD
.WORD

O
O

MWORD

.WORD

LSDVTYP

.WORD

LSRPT

.WORD

MWORD

.WORD

LSAU

.WORD

LS$DU

MWCRD

.WORD

LSDESC

EMT

ESLOAD

WORD

.WORD

LSINIT

.WORD

LSCLEAN

WORD

LSAUTO

.WORD

LSPROT

.WORD

MWORD

CZCLFAQO DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
CZCLKA.P11
18-APR-80 09:24
DISPATCH TABLE
1507
1508
1509
1510

.SBTTL

1513

}g}g

09:24

PAGE 34
SEQ 0033

DISPAT(CH TABLE

s +e
: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

}g};

1514
1515
1516

H 3
18-APR-80

2 IT 1S USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

002122
002122
002124
002124

000001

025324

DISPATCH 1

.WORD
LSDISPATCH: :
WORD

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P1

18-APR-80 09:24

1519
1520
1521
1522
523
524

DEFAULT HARDWARE P-TABLE

;
.

THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,

; AND IS USED AS A ‘TEMPLATE'®' FOR BUILDING THE P-TABLES.
002126
002126
002130
002130

8GNHW

000010

DFPTBL

LSHW::
DFPTBL::

s INDEPENDENT SECTION

Pl alal 2P
S WN=O

539

002130

000001

.WORD

L10000-LSHW/?2

THE NUMBERS IN BRACKETS ARE THE OFFSET VALUES USED IN THE PARAMETER

CODING SECTION.
WORD

;[0] FULL OR HALF DUPLEX FLAG (BITO=1

IF FULL)

;DEVICE DEPENDENT SECTION

gz‘s)

D )

SEQ 0034

D+
: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

b
d o
D d o
e

o D D e ) D D e ) d e d d od o
Vi AaNWNAWN
WLV,
IV, IV, V.1V |

DEFAULT HARDWARE P~TABLE

.SBTTL

ggg

527
528
529
530
31
32
33

MACY11 30A(1052) 1§-APR-80 09:24 PAGE 35

ADDING OR REMOVING WORDS FROM THIS TABLE EFFECTS THE ‘‘GET'' CALLS IN
THE HARDWARE PARAMTER CODING SECTION BY CHANGING ‘DFFSETS'"

002122
002134
002136
002140

160170
000300
000240
000000

LWORD
.WORD
LWORD
WORD

160170
300
240
O

002142

000000

WORD

;2] CSR ADDRESS
:(4] INTERRUPT VECTOR
:[6] INTERRUPT PRIORITY (5)
:[10] DEVICE PARAMETERS WORD
:
(ENABLE CRC. STRIP SYNC, COMPATIBLE MODE...)
;t;zg'gevxce OPTION TYPE (0=DMC,S5=DMR-DMC MODE
.

554

002144

000004

WORD

[14] BAUD RATE (0=2.4K, 124.8K.

WORD

d d b d aod D d d e

547
548
549
550
551
ggg

002146

b e

555
ggg

—h e

558
559
560

002150
002150

000000

ENDHW

2=9.6K. 3= 19.2K.

P 4=56K, 5=250K, 6=500K.
7=1 MEGA-BAUD)
:016] LINE INTERFACE (422, V.35, INT, EIA...)

L10000:

cg%fk:Ag1?HR.DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18~APR-80 09:24
DEFAULT HARDWARE P-TABLE

18-APR-80

09:24

PAGE 36

1561

.SBTTL

GLOBAL EQUATES SECTION

: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
s ARE USED IN MORE THAN ONE TEST.

002150

EQUALS

: BIT DIFINITIONS
BIT15== 100000

BIT14==
BIT13==
BIT12==
8IT11==
BIT10==

40000
20000
10000
4000
2000

BIT09== 1000
BIT08== 400
BITO?-‘ 200

B8IT06==

100

BIT05== 40

BIT04== 20

81703==
BIT02==
8I701==
BIT00==
BIT9==

BIT8==

BIT7==
BlT6==
BITS5==
BIT4==
BIT3==
BIT2==
BIT1==
BIT0==

28
(e AV P YV NE J o)

b e

b
—t

b cd
—b

BIT09

BIT08

BIT07
BIT06
BITO05
BIT04
BIT03
BIT02
BIT01
BIT00

: EVENT FLAG DEF INITIONS

h end wd

b and ==b

(o e Yo Yo Yo e

10
4
2
1

;

000040
000037
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

32.
31.
30.
29.
28.

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

SEQ 0035

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P1

18-APR-80 09:24

1617

1631

000340
000300
000240
000200
000140
000100
000040
000000

PRIO?7== 340
PRI06== 300
PRIOS== 240
PRIO4== 200
PRI03== 140
PRIO2== 100
PRIOT== 40
PRI0O0O== 0

:OPERATOR FLAG BITS
000004

EvL==

1632
1633
1634

000010
000020
000040

LOT==
ADR==
IDyY==

1636

000200

1635

1637
1638

1639

1640
1641
1642
1643

1644

K 3
18-APR-80

; PRIORITY LEVEL DEFINITIONS

1629
1630

GLOBAL EQUATES SECTION
:

}g}g
1620
1621
1622
1623
1624
1625
1626
]Igzzg

MACY11 30A(1 052)

000109

000400

ISR==

001000

BOE==
PNT==

004000
010000

IXE==
IBE==

002000

020000
040000

100000

PR]l==

IER==
LOE==

10
20
40

100

200

400
1000

2000

4000
10000

20000
40000

100000

09:24

PAGE 37

SEQ 0036

MACY11 30A(1052) 1%-APR-80 09:24 PAGE 38

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.P11
18-APR-80 09:24
GLOBAL EQUATES SECTION

svwwex INDEPENDENT EQUATES
001000

BUFLIM=512.

000017

MSGLIM=15,

sMAX BUFFER SIZE IN BYTES
;.
APPLIES TO TX,RX AND CMP BUFFS

sMAX NO. OF MESSAGES PER BUFFER

:
:

(FOR EACH INCREMENT (+1) TO MSGLIM,
ADD 6 WORDS TO THE POINTER TABLE

'POINTER’' WORDS PER BUFFER.

;MODE OF OPERATION EQUATES
REC=0

;RECEIVE MODE

TRA=1

s TRANSMIT MODE
;PASSIVE MODE

PAS=2
ACT=3
DOW=4
TAL=5
LIS=6

;ACTIVE MODE
;DOWN=L INE-LOAD MODE

;TALK MODE

;LISTEN MODE

;MAINT LOOP TYPE EQUATES
NON
0
TTL=

;NO _LOOP
SINTERNAL TTL
;CABLE LOOP
sMODMEM LOCAL
cMODEM REMOTE

]

CABLE=
2
MODLOC= 3
MODREM= &

MOP=

;CLOCK ENABLE VALUES TO BE LOADED IN CLK'S CSR
LCLKEN= 100
sL=CLOCK CSR VALUE TO ENABLE THE CLOCK
PCLKEN= 111
sP=CLOCK CSR VALUE TO ENABLE THE CLOCK
PCLKCT= 1600
sP=CLOCK COUNT SET REGISTER FOR COUNTER
;PARAM WORD EQUATES
STATB=

BITO

DATCKB= BIT1

ECHOB=
CR(B=_

BIT?
BIT4
PROTOB= BITS

sOPERATOR AWAKE ASKED FOR
;DATA (CHECK BIT

;ECHO BIT
sCRC CALCUALTE ASKED FOR
;PROTOCOL PROCESSING ASKED FOR

;OPTION TYPE EQUATES
oMC=

DMRé=

DMRCO=
DMRC7=

DMR7=

&
5

s DMC

;8206 DMR
;8207 DMR
;8206 DMR
;8207 DMR

IN DMC MODE
IN DMC MODE
IN DMR MODE
IN DMR MODE

;EVENT LOG MESSAGE TYPES (USED TO LOCATE EVENT DESCRIPTION IN EVENT TABLE
;
AND DISPATCHING TO SEPERATE SECTIONS OF THE EVENT REPORTING SECTION)
TXQ=
TXC=
RXQ=
RXC=
DER=

Dvi=

==
N NO
nNOo

000100
000111
001600

(PTRTAB:) SINCE THIS MEANS 2 MORE

s TRANSMIT MESSAGE QUEUED
s TRANSMIT COMPLETE

cRECEIVE BUFFER QUEUED
sRECEIVE COMPLETE
;DEVICE INFORMATION
;DEVICE ABOUT TO INIT

SEQ 0037

09:24

PAGE 39

DCK=

;DATA COMPARISON RESULTS

000020
000022
000024

DLE=
DDE=

20
22

;DATA COMPARISON LENGH ERROR
;DATA COMPARISON DATA ERROR

EOP=

JEND OF PASS

2. cEQUATES FOR FLAG WORD::::::
ININT= 1
OTINT= 2

QRX=
QTX=

CTX=
CRX=

ERX=
ETX=

sINPUT INT. REC.
;OUTPUT INT REC

JRX QUED /7COMPL
;TX QUED/COMPL

100
200

JEXPECT TO GET A RX COMPLED
SEXPECT TO GET A TX COMPLETED

20
40

DLLGA= 400
DMRRUN= 1000

JTX COMPL AND IN TXSEL4 AND TSEL6
JRX COMPL AND IN TSEL4 AND TSEL6

;DOWN LINE LOAD GO AHEAD BIT
;DMR RUN MODE EXPECTED

; SPECIAL CLI CODES FOR ‘''CHAR'‘ ARGUMENT IN CLI CALLS

‘OP\IOMJ\WN—‘O

(COMMAND LINE INTERPRETER DEFINITIONS)
CLIERR=
CLIEXI=
CLIBR=
CLIBIF=
CLISPA=
CLINUM=
CLIALP=
CLIALN=
CLIOCT=
CLIDEC=
CLISTR=
b

;

3
O ~NONNES
NN =

NINNIN

d b
b
D
D ek
nd i
d e
b cod d md b md wnd e

746

m 3
18-APR-8G

000014

Velo RNTo SU.F AV NP 1o

b b d b b b b d d D ) b b D cod
i D D ) = d D o
~
NNNWN
NNNNNNNNNNYNY
b
cd
bk
b
md b
b d b
N
N

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
CZCLKA.PT
18~APR-80 09:24
GLOBAL EQUATES SECTION

: DEFS FOR COMMAND LINE INTERPRETATION ACTION VALUES
NULL=0
CLEAR=1

SHOW=2
CHECK=3

RUN=4
HLP=S
CSHEXP=6

CSHTRN=7
SETEXP=10

SETTRN=11

SIZE=12
QcoPY=13

SEQ 0038

CZCLYAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
CZCLKA.PT
GLOBAL EQUATES SECTION

18-APR-80

09:24

PAGE 40

SEQ 0039

CMSG6=26

TTLLG"—44

CBLLOP=45
LMDLOP=46
RMDLOP=47
NOTNUF =50
BADCHR=51
DMPS=52
DMPE=53
DMPQ=54
T=55
;axxnx DEVICE DEPENDENT EQUATES
MODEM SIGNAL BIT DEFINITONS
IF SIGNAL AVAILABLE IN DEVICE, EQUATE NAME TO BIT POSITION,
ELSE EQUATE IT 70 = 0

b wnd

b end

b wnd

b e

R
R RN R R R P E RN

1772

8IT2
B8IT3

BIT9

D emd

DCD=
RTS=
Rl=
SQp=

D
) cnd d ed wd
b wd and cd
b e amd

CTS=
DSR=

;

BITO
BITS
BIT7
BIT14

DEVICE SIGNALS
RQI=
BITS
RDI=
8IT17

RDO=
BACC=

8lrz7
8ITO

MCLR=

BIT14

IE0=

8IT6

LULOOP= BIT11
MAINTB= BIT8
HALFD8= BIT10
RXBIT= B8IT2

;CLEAR TO SEND (CIRCUIT CB)
sDATA SET READY (CIRCUIT CC)
;DATA CARRIER DETECT (CIRCUIT CF)
cREQUEST TO SEND (CIRCUIT CA)
SRING INDICATOR (CIRCUIT CE)
sSIGNAL QUALITY DETECT (CIRCUIT CG)
sMODEM IN TEST MODE (RS 449 ONLY CIRCUIT TM)

cREQUEST IN
cREADY IN

;BUFFER ADDR. CHAR COUNT
;MASTER CLEAR
SLINE UNIT LOOP(TTL)
JMAINT MODE BIT
SHALF DUPLEX BIT
JRX BIT
JENABLF OUTPUT INTERRUPT BIT
’

-3

—

O OO ~NONN
NN =

~APR-80 09:24

GLOBAL DATA SECTION
.SBTTL

SEQ 0040

GLOBAL DATA SECTION

DEFAULT MESSAGE DEFINITIONS AND TABLES

;

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

. IN MORE THAN ONE TEST.

sMESSAGE BYTE COUNT TABLE
DMSGCT:

000001
000001

MSGOC:
MSGIC:

000001
000100

MSG3C:
MSG4C:

000001
000005
000206

MSGS8C:
DLLMIC:
DLLM2C:

000001

000072
000101
000009

.WORD
.WORD

EMSGO-MSGO
EMSG1-MSG1

.WORD
.WORD

EMSG3-MSG3
EMSG4-MSG4

MSG2C:

.WORD

MSGSC:
MSG6C:
OPCNT:

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

;BYTE COUNT OF MESSAGE #0
:BYTE COUNT OF MESSAGE #1

EMSG2-MSG2

‘BYTE COUNT OF MESSAGE #2

EMSGS5-MSGS
EMSG6-MSG6
O

*BYTE COUNT OF MESSAGE #5
*BYTE COUNT OF MESSAGE #6
:BYTE COUNT FOR OPERATOR SPEC'D MSG.

EMSG8-MSGS
DLLMIE-DLLM1
DLLM2E-DLLM2

*BYTE COUNT OF MESSAGE #3
:BYTE COUNT OF MESSAGE #%

:BYTE COUNT OF RECEIVE BUFFER FILL PATTERN
:DLL MSG 1 COUNT
:DLL MSG 2 COUNT

:MESSAGE ADDRESS TABLE

MACY11 30A(1052) 1g-APR-80 09:24 PAGE 41

.SBTTL

oo
W

— md d d i

d e

wd D el i

ERGERH QWN—i
GREERCRERREREE

D d e

D D o o

RRRRRBERE

(@l

N
O
ro

=11 DATA COMM. LINK TEST

:
DMSGAD

002220
002221
002222

002223
002224
002324
002416
002524

MSGO
MSG1
MSG2

;ADDRESS
*ADDRESS
*ADDRESS
*ADDRESS
:ADDRESS
:ADDRESS
*ADDRESS
:ADDRESS

MSG3
MSG4
MSG5

MSG6
OPBUF
MSG8

002646

OF MESSAGE #0
OF MESSAGE #1
OF MESSAGE #2

OF
OF
OF
OF
OF

MESSAGE #3
MESSAGE #4
MESSAGE #5

MESSAGE #6
OPERATOR SPEC'D MSG.
:ADDRESS OF RECEIVE BUFFER FILL PATTERN

000

gggga

.BYTE

000

:MESSAGE OF ALL 0'S

377

Efigéi.

.BYTE

377

;MESSAGE OF ALL 1'S

252

ggggé'

.BYTE

252

:MESSAGE OF ALTERNATING 1'S

125

2:223'

.BYTE

125

;MESSAGE OF ALTERNATING 0°'S

177603

047321
143325
040041
172334

0300

157427

031011

MSG4:

<CCITT'' 512-8BIT (VS.

S11 BITS)

TEST PATTERN

.WORD

177603,157427.031011,047321,163715.105221,143325,
142304

163715
142304
014116
105025

052606
123754

.WORD

0460041,014116,052606,172334,105025,123754.,111337,111523

105221

143531

063617

145064

137642

.WORD

030030,145064,137642,143531,063617,135075,066730,026575

052012

053627

070071

.WORD

052012.,053627,070071,151172,165044 ,031605,166632,016741

151172

165044

135075

031605

CZCLFAO DMR,DMC-11 DATA COMM, LINK TEST

CZCLKA.P
1867
1868

166632

]‘%98

002320
002324

002324

1871

002324

077577

040444

052040

1878

002376

055101

020131

047504

1880
1881
1882

002406
002414
002416

005015
000177

077401

077577

1884
1885
1886
1887
1888
1889

002416
002426
002432
002440
002446
002454

022043
024047
027055
032464
035472
040500

1883

1890
1891
1892
1893
18%
1895
1896
}ggg

002416

002462
002470
002476
002504
002507
002514
002517

016741

043506
046514
051522
054530
057
022537

021041
025051
O
033466
036474
061502

044510
047516
052524
1
056133

LASCI1

<177><177>/$A THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG./

LASCIZ

<155<12><001><177><177><177><177>

ASCII

/481" R () re = 0123456789 . <=>?aABCDEF GHI JKLMNOPQRSTUVWXYZ/

LASCIZ

/0N~
%2

ALPHA-NUMERICS (OR FUTURE COMM TURNAROUND MSG)

045512
050520
053526
057135

.EVEN
2323222232

2322

2 2y Ry

;THESE THREE STORAGE AREAS MUST NOT BE SEPERATED !!!!
002520

002524
002646

047045

000122

040445

OPBFPT:

OPBUF:
OPEND :

.ASCII

.BLKB

/INXA/

82.

002646

002647

033

1222208822022 2222223 222323232222 2222 222y

MSG8:

EMSGS8:

.BYTE

002647
002650
002651
002652
002653
002654
002654

1922

002656

002655

006
000
000
000
000

000

000
006

DLLM1:

DLLMIE:
OLLM2:

.BYTE
BYTE
BYTE
BYTE
.BYTE

6
0
O
0
O

.BYTE

BYTE

.BYTE

cRECEIVE BUFFER FILL PATTERN

. DOWN-LINE-LCAD MESSAGE DEF INITIONS

1914
1915
1916
1917
1918
1919
1920

JBUFFER FOR OPERATOR SPEC'D MESSAGES

. THE ABOVE THREE LINES MUST BE KEPT TOGETHER

}3}%

1921

SEQ 0041

"II;ITEF(!gg(])CESSOR TEST PROGRAM'S (ITEP)'' MESSAGE

.' 1 2484828282222 22222228222

1%7

;32?

023040
026053
031462
034470
037476
042504

MSG6:

EMSG6:

002520

1906
1908
1909

EMSGé:

EMSGS:

}gg?

1903
;382

DEFAULT MESSAGE DEFINITIONS AND TABLES

MSGS:

18”
1902

MACY11 30A(1052) 1S-APR-80 09:24 PAGE 42

18-APR-80 09:24

; CODE

;LOAD NUMBER

;LOAD ADDRESS LSB

s R

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA. P11
18-APR-80 09:24

002657
002660
002661

D 4
18-APR-80

MACY11 30A(1052)

09:24

PAGE 43

DEFAULT MESSAGE DEFINITIONS AND TABLES

000
006
000

.BYTE
.BYTE
.BYTE

0
6
0

SEQ 0042

;LOAD ADDRESS

* IMAGE DATA
002662
002666
002670
002674
002700

000006

CLR
RESET

001000
177560

000034

1%
(RO)+,6(R1)
18

051505

020524

027015
046105

027056
040517
043517
027056

051120
027115

—y

pal

REREE

DLLMZE:

sWAIT TIL YES
sTYPE A CHAR
;KEEP GOING

;SET UP POWER FAIL

;JUMP ON YOURSELF

sMAKE SURE T BIT CLAER

<12><15>/BOOT MESSAGE WAS RECEIVED SUCCESSFULLY -END OF

MSG:

1959

sADDRESS MSG.
sTTY READY?

26,3424

1957

SSET UP TTY
sMAKE ADDR.PIC

ASCl1Z

<12><15>/....RELOAD PROGRAM..../

.BYTE
.BYTE

OOOO

VB WN—=OY O~V
W

)
—

PARABRARR RRRRR R

ik
e
=
b ed e
—

052117

#1000,
5P
#177560,R1
PC,RO

#<MSG-.>,R0
4(R1)

1%:

000024
1942

ané

.BYTE

.EVEN

TEST!!/

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PT

MACY11

18~APR-80 09:24

}ggg

30A(1052)

000122
000000

CMDBUF: .BLKB
KEYWD1: .WORD

82.
0

1970
1971
1972
1973

003206
003210
003212
003214

000000
000000
012525
012540

QUALFG:
QUALVL:
HLPTAB:

0
O
HLP1
HLP?2

1975
1976
1977
1978
1979
1980
1981
_}gg%

003220
003222
003226
003226
003230
003230
003236
003244

012733
013012
013070
013152

003216

012646

013305
013326
013346

.WORD
.WORD
.WORD
.WORD
.WORD

013314
013333
013354

013321
013341

1984
]'ggg
1987
1988

PAGE 44

HLPEND :
SHTYTB:

;BUFFER FOR OPERATOR COMMANDS
¢THIS LOC WILL =1 IF CLEAR TYPED, 2 FOR SHOW,

P A4 IF RUN WAS TYPED, 5 IF HELP WAS TYPED
:THIS LOC HOLDS QUALIFIER VALUE

HLP3

HLP4
HLP4A
HLPS
HLP6

.WORD

SHTYPO,SHTYP1,SHTYP2,SHTYP3,SHTYP4,SHTYPS,SHTYPG, SHTYP?

. THE LIST OF BYTES BELOW ARE THE FIRST BYTES OF THE PREDEFINED MESSAGES
:
USED TO ''SHOW'' THE TRANSMIT AND COMPARE BUFFER CONTENTS.
003250
003253

000
125

377
203

252
177

SHTAB:

.BYTE

0,377,252,125,203,177,043

003256
003257

1993
1996
1995
1996
1997
1998
m

003260
003262
003264
003266
003270
003272
003274

013365
013375
013406
013416
013425
013442
013447

MODES:

.WORD
.WORD
WORD
WORD
WORD
WORD
.WORD

MO0
MO
MO2
MO3
MO4
MO5
MO6

sADDRESSES OF MODE TYPLS IN ASCII

2001
2002
2003
20064
%

003276
003300
003302
003304
003306

013456
013466
013477
013505
013520

LOOPS:

.WORD
.WORD
.WORD
.WORD
.WORD

LPO
LP1
LP2
LP3
LP4

;ADDRESSES OF LOOP TYPES IN ASCII

043

003260

2007
2009
2010
2011
2012
2013
2014
2015

%}g

(SIZE OR COPY)

WORD
.WORD
.WORD
.WORD

1989
1990

}?’8‘1?

SEQ 0043

;COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES
003062
003204

1974

09:24

DEFAULT MESSAGE DEFINITIONS AND TABLES

1967
1968

1969

E &
18-APR-80

SHTEND :

EVEN

;COMMAND LINE TRAVERSE LOCATIONS (USED BY 'PSTRV'")
003310
003312
003314
003316
003320
003322
003324

003325

000000
000000
000000
000000
000000
000000
000

000

PSBUFA:
PSTREE:
PSACT:
PSCNT:
PSRADX:

PSNNUF:
PS$GDBD:

.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.BYTE

.BYTE

0
O
O
O
0
0
0

;LOC. TO HOLD ADDR. OF CMD LINE BUFFER
;LOC. TO HOLD ADDR. OF PARSING TREE
;LOC. TO HOLD ADDR. OF ACTION ROUTINE
sLOC. TO BE A COUNTER LOCATION
sLOC. TO HOLD NUMERIC VALUE FROM PARSE
;LOC. TO HOLD RADIX USED(LO) AND +/-(H] BYTE)
;RETURN =0 IF ENOUGH OF COMMAND FOUND

:RETURN CODE O IF NO ERROR FOUND

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P1Y

18-APR-80 09:24

22818
2020
2021
2022
2023

MACY11 30A(1052)

228515

003326
004326
005326
006326

007076

001000
001000
001000
000264

2026
2027
2028
2029
2030
228:;:}

007076
007100
007102
007104
007106
007110

2033

18-APR-80

09:24

MESSAGE BUFFERS AND POINTER TABLES
.SBTTL

PAGE 45

MESSAGE BUFFERS AND POINTER TABLES

TXBUF:
RXBUF:
CMPBUF:
PTRTAB:

.BLKB
.BLKB
.BLKB
.BLKW

BUFLIM
BUFLIM
BUFLIM
180.

000000
000000
000000
000000
000000
000000

RXPTR:
TXPTR:
CMPPTR:
CMPTOT:
CTOTCC:
CCURAD:

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

O
O
O
O
O
O

sRECEIVER MESSAGE POINTER
:TRANMITTER BUFFER POINTER
;COMPARISON BUFFER POINTER
:CMP MSG TOTAL
;COMPARE BUFFER CHAR. COUNT
:CURRENT ADDR OF CMP BUFF TO ADD AT

007112

000000

DVIXA:

.WORD

;DEVICE TX ADDR

2035
2036
2037
22833

007116
007120
007122
007124

000000
000000
000000
000000

DVICT:
TXMTOT:
TTOTCC:
TCURAD:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

sDEVICE TX MESSAGE COUNT
;TX MSG TOTAL
;TX BUFFER CHAR. COUNT
sCURRENT ADDR. OF TX BUFF TO ADD AT

2040
2041
2042
%z

007126
007130
007132
007134

000000
000000
000000
000000

DVRXA:
DVRCC:
DVRCT:
RXMTOT:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

;DEVICE
:DEVICE
;DEVICE
;RX MSG

2045
2046
2047
2048
2049
2050
%g;

007136
007140
007142
007144
007146
007150
007152

000000
000000
000000
000000
000000
000000
000000

LNCNT:
NOBUF:
PSCNT:
ERRCNT:
STADD:
ENADD:
BYTBIT:

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

O
O
O
O
O
O
O

;NUMBER OF OPERATOR AWAKE MSGS
;NUMBER OF NO BUFFS
;PASS COUNTER
;ERROR COUNTER
;START ADDR.
:END ADDR. FOR DUMP
:BYTE BIT FOR DUMP ROUTINE

2034

007114

000000

22(0)2‘3.

PTREND :

DVICC:

.WORD

;TRANSMITTER BUFFERS
;RECEIVER BUFFERS
;COMPARISON BUFFERS
;TABLE FOR MESSAGE ADDRS. £ BYTE COUNTS

; END OF MSG. PTR. TABLE

;DEVICE TX CHAR COUNT

RX ADDR
RX CHAR COUNT
RX MESSAGE COUNT
TOTAL

;OTHER MESSSAGE RELATED STORAGE LOCATIONS

2055

007154

000000

MSGTYP:

.WORD

:TYPE OF DATA 0=0'S,1=1°S,2=1)'S,3=01'S

2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069

007156
007160
007162
007164
007166
007170
007172
007174
007176
007200
007202
007204
007206

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

CURCC:
CPTRR:
CPTR:
CURADD:
TOTCC:
OFSET:
TEMP:
TEMP1:
TEMP2:
TEMP3:
TEMP4:
CONOTM:
CONTIN:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

O
O
O
O
O
O
O
O
O
O
O
0
O

:TX/RX/CMP CHAR COUNT
;CURRENT RX POINTER
;CURRENT POINTER
:CURRENT TX/RX/CMP START ADDD
;TOTAL CHAR COUNT NOT MORE THEN ‘BUFLIM'
;OFFSET COUNT
: TEMPORARY LOCATIONS (USED A LOT)

2056

2070
2071

007210
007211

000
000

GOOD:
BAD:

.BYTE
BYTE

0
0

24=CCITT,S5=QUICK FOX,6=ALPHA/NUM, 7=0PER

;CONTROL OUf ERROR MSG. ADDRESS

;WORD FOR CONTORL IN

;BYTE TO HOLD EXPECTED MESSAGE DATA BYTE FOR ERR REPORT
;BYTE TO HOLD RECEIVED MESSAGE DATA BYTE FOR ERR REPORT

SEQ 0044

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P11

%8;2

2075
2076
2077
2078

18-APR-80 09:24

0
0
0
O

007222

000000

MLTYP:

.WORD

2086
2085

007224
007226

000000
000002

FHDPLX:
PARAM:

.WORD
.WORD

0
2

2093
209¢

007230
007232

000000
000000

RPASS:
FLAG:

.WORD
.WORD

0
O

007234
007236
007240
007242
007244
007246
007250

031014
031046
031106
031142
032262
032750
033170

MODE:

2107
2108
2109
2110
gm

007252
007254
007256
007260
007262

000000
000000
000000
000074
000000

2113
2114
gug

007264
007266
007270

2117
2118
5}53

007272
007274
007276

2086
2087
2088
2089
2090
2091
2092

2096
2097
2098
2099
2100
2101
2102
5}82

;MODE DISPATCH TABLE

;LOC. TO HOLD LOGICAL UNIT NUMBER
:LOC. HOLD PC OF CALLIN ROUTINE
:LOC TO HOLD FLAG (=1) THAT A RESTART WAS GIVEN
:DCLT MODE OF OPERATION TYPE

i (O=REC~ONLY, 1=TX-ONLY, 2=PASSIVE-LOOPSK,
:
3=ACTIVE~LOOPBK, 4=DOWN L.L., S=TALK, 6=LISTEN)
SMAINTENANCE LOOP TYPE (O=NONE, T=INTERNAL TTL,
; 2=CABLE, 3=MODEM-ANALOG LOOPBK (LOCAL)

;

4=MODEM=DIGITAL LOOPBK (REMOTE), S5=MOP}

SFULL OR HALF DUPLEX FLAG (1=FULL FROM P-TABLE)
*PROGRAM PARAME TERS

: BITO= STATUS MSGS TO OPR PRINTED (1=YES)
: BIT1= DATA CHECKING DONE ON RCVD MSGS (1=YES)
: BIT2= ECHO (TRANSMIT) RCV'D MSG.(PASSIVE) (1=YES)
. BIT3= SPARE
: BIT4= CRC CALC./CHECK DONE (1=YES)
: BITS= PROTOCOL EMULATION (1=YES)
: BITé= SPARE

*PASS NUMBER FROM RUN COMMAND
‘DEVICE FLAG WORD

.WORD
.WORD
.WORD
JWORD
JWORD
.WORD
MWORD

RYONLY
TXONLY
PLCK
ALCK
DLL
TALCK
LISCK

CLKCSR:
CLKBR:
CLKVEC:
CLKHZ:
CLKEN:

.WORD
.WORD
.WORD
.WORD
.WORD

0
O
O
£:.
O

:CLOCK CSR ADDRESS
:CLOCK INTERRUPT LEVEL
:CLOCK INTERRUPT VECTOR
:CLOCK'S HERTZ RATE
SCLOCK'S CSR VALUE TO INTRPT. ENABLE IT

000000
000000
000000

TIMMIN:
TIMSEC:
TIMTCK:

.WORD
.WORD
.WORD

O
O
O

;PLACE TO KEEP TIME-SINCE-START
;PLACE TO KEEP # OF TICKS/SEC

000000
000000
000000

TIMER]:
TIMER2:
TIMERS:

.WORD
.WORD
.WORD

O
O
O

:EVENT TIMER #1 (TICKS)
SEVENT TIMER #2 (TICKS)
SEVENT TIMER #3 (SECONDS)

2105

2106

PAGE 46

;MORE INDEPENDENT CODE STORAGE LOCATIONS
.WORD
.WORD
.WORD
.WwORD

2083

79:24

MESSAGE BUFFERS AND POINTER TABLES

LOGUNT:
PCADD:
RESFLG:
MODTYP:

]

G 4
18-APR-80

30A(1052)

000000
000000
000000
000000

2079
2080
2081
2082

007212
007214
007216
007220

MACY11

.SBTTL

;RX ONLY DISPATCH
:TX ONLY DISPATCH
:PASSIVE LOOP BACK DISP
:ACTIVE LOOP BACK DISP
:DOWN LINE LOAD DISP
:TALK MODE DISPATCH
:LISTEN MODE DISPATCH

CLOCK TABLES, EVENT LOG AND POINTERS

SEQ 0045

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P11
2121
2122
2123
%%Sg

007300
007302
010204

18~APR-80 09:24
007302
000341
000001

%}gg
g}%g

010206

000000

%}lsog

010210
010212
010214
010216
010220
010222
010224
010226

000004
000010
000001
000040
000200
040000
001000

010226
010230
010232
010234
010236
010240
010242

016004
016010
016014
016020
016024
016030

2175

MODS:

MODEM DATA SECTION
.WORD

+MODEM STATUS

MOBiTS:

MOBITE:

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

(TS
DSR
DCD
RTS
RI
SQD
TM

;CLEAR TO SEND (CIRCUIT (B)
sDATA SET READY (CIRCUIT CC)
;DATA CARRIER DETECT (CIRCUIT CF)
sJREQUEST TO SEND (CIRCUIT CA)
RING INDICATOR (CIRCUIT CE)
;SIGNAL QUALITY DETECT (CIRCUIT €G)
;MODEM IN TEST MODE (RS 449 ONLY CIRCUIT TTMM)

MOMSGS:

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

EVMCTS
EVMDSR
EVMDCD
EVMRTS
EVMR]
EVMSQD

;CLEAR TO SEND (CIRCUIT {B)
;DATA SET READY (CIRCUIT CC)
;DATA CARRIER DETECT (CIRCUIT CF)
cREQUEST TO SEND (CIRCUIT CA)
RING INDICATOR (CIRCUIT CE)
sSIGNAL QUALITY DETECT (CIRCUIT CG)

EVMTM

cMODEM IN TEST MODE (RS 449 ONLY CIRCUIT TTMM)

;TABLE OF ADDRESSES OF EVENT DESCRIPTION MESSAGES
010244
010246
010250
010252
010254
010256
010260
010262
010264
010266
010270

014430
014454
014503
014530
014556
014623
014573
013456
014651
014706
014741

S}gg

2172
g};z

PAGE 47

;EVENT LOG TABLE AND ITS NEXT ENTRY POINTER
EVIPTR: .WORD
EVILOG ;POINTER TO NEXT FREE SPACE IN EVENT LOG
EVILOG: .BLKW
225.
sEVENT LOG BUFFER
EVTEND: .BLKW
1.
:APPROXIMATE END OF EVENT TABLE (ALLOWS CIRCULAR QUE)

016034

g}g%

2168
2169
2170
2171

09:24

;TABLE OF ADDRESSES OF MODEM SIGNAL MESSAGE POSITIONS

2151

2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
%}g‘so

H 4
18-APR-80

;TABLE OF MODEM SIGNAL BIT DEFINITIONS

%}212
2143
2146
2145
2146
2147
2148

30A(1052)

CLOCK TABLES, EVENT LOG AND POINTERS

.SBTTL

%%?

2132
2133
2134
2135
2136
2137
2138
34438

MACY11

ORDER CORRESPONDS TO MESSAGE TYPE VALUES

EVILST:

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

EDTXQ
EDTXC
EDRXQ
EDRXC
EDDER
EDDVI
EDDCK
LPO
EDDLE
EDDDE
EDEOP

;TRANSMIT MESSAGE QUEUED
;TRANSMIT OF MESSAGE COMPLETE
;RECEIVE MESSAGE SPACE QUEUED
;MESSAGE RECEIVED - RECEIVE COMPLETE
;DEVICE INFORMATION
;DEVICE INITIALIZE STARTED
;DATA COMPARISON DONE
sNULL STRING
.DATA COMPARE LENGTH ERROR
;DATA COMPARE DATA ERROR
;END OF PASS

;LOCATIONS USED DURING EVENT REPORTING
010272
010274
010276
010300

010302
010304

000000
000000
000000
(00000

000000
000000

EVISEC:
EVIMIN:
EVITCK:
EVIADD:

EVIBCT:
EVITMP:

.WORD
.WORD
.WORD
.WORD

.WORD
WORD

O
O
O
0

0
O

; TEMPORARY LOCS TO KEEP EVENT TIME WHILE REPORTING

;TEMP. LOC. TO HOLD ADDRESS DURING EVENT REPORTING
;
'
"' BYTE COUNT
°'
"
‘!
:
"
" OTHER DATA
*'
"
'

sREPORT CODING DISPATCH TABLE

SEQ 0046

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PI
2177
2178
2179
2180
2181
2182
2183

010306
010310
010312
010314
010316
010320
010322

MACY11 30A(1052)

18-APR-80 09:24

MODEM DATA SECTION

021702
021702
021702
021702
021754
022050
022244

RPTDSP:

DEV1:
DEV2:
DEV3:
DEV4:

2184
2185
2186
S_‘}gg

010324
010326
010330
010332

021530
022244
022170
022114

2189
2190
2191
2192
g}gl?:

010334
010336
010340
010342

000000
000000
000000
000000

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

RPTTXQ
RPTTXQ
RPTTXQ
RPTTXQ
RPTDER
RPTDVI
RPTDCK

.WORD
.WORD
.WORD
.WORD

RPT
RPTDLE
RPTDDE
RPTEOP

.WORD
.WORD
.WORD
WORD

0
0
0
O

&
I
18-APR-80

09:24

PAGE 48

;TRANSMIT QUEUED ENTRY DECODING
;TRANSMIT COMPLETE ENTRY DECODING
RECEIVER QUEUED ENTRY DECODING
;RECEIVER COMPLETE ENTRY DECODING
;DEVICE ERROR ENTRY DECODING
;DEVICE INIT ENTRY DECODING
;DATA COMPARISON ENTRY DECODING

;PLACE HOLDER
;DATA COMPARISON LENGH ERROR
;DATA COMPARISON DATA ERROR
END OF PASS

;TEMP LOCS TO HOLD DATA FOR EVENT REPORTING
;
AND SHOW MODE,... SUBROUTINE

SEQ 0047

J &
MACY11 30A(1052)
18-APR-80
COMMAND LINE ACTION TREE

CZCLFAOQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.P11 ~ 18-APR-80 09:24

09:24

PAGE 49
SEQ 0048

%;gg

.SBTTL

%}3;

;SAMPLE CLI TREE NODE

%388

: ) ACTION

%228}_

S 1

MISS DISPLACEMENT

ONLY IF MISS'' ARGUMENT DEF INED

%2282

;! NEXT NODE DISPLMNT

ONLY IF '‘ASCII'' ARGUMENT DEF INED

;

ONLY IF ‘‘ASCII'® ARGUMENT DEF INED

2205

2206
2207
010344

2214
2215

010350
010354

2216

010344

010356

(ALWAYS AT LEAST 1 WORD)

! CHAR CODE !

' ASCIZ MATCH STRING

;o
:

2208
2209
2210
2211
2212

2213

COMMAND LINE ACTION TREE

(.EVEN) |

CLITRE:

;FIRST KEYWORD
N10$:

NG2S:

CLI

CLISPA,0.N10$

;SKIP ANY LEADIN SPACES

(LI

CLISTR.HLP .N43$,<'HELP'>

SELSE. IS FIRST WORD A 'MELP'*

CLI
cLl

<'?> ,HLP,N42S
CLIEXI,O

2217
2218
2219
2220

010372
010374
010410
010412

N45SS:

Ll
CcLl
cLl
CLl

2222

010430

N4GS :

CLI

2224

010450

N4OS:

(LI

CLISTR,CLEAR,N20S,<'CLEAR'>

2226
2227

010470
010474

N20S$ :

CLI
LI

<'S>,NOTNUF ,N30%
CLISTR, SHOW N258,<*HOW'>

2221

2223

2225

2228
2229
2230

010424

010444

010464

010506
010512
010524

N63S:

N2SS:

cLl

cLI
(LI
Ll

CLIEXI.O
CLISTR.PRNT ,N4S5S,<'PRINT'>
CLIEXI.O
CLISTR_RUN_N4GS,<'RUN'>

:
IF YES
JELSE, 1S
:
IF'YES
cELSE, IS

CLISTR ,NOTN
,N4OS . <'DUMP*'>
UF

JELSE, IS FIRST WORD A ‘'DUW''

CLIBR,0,N80S

CLIBR,0.N508

CLIBR,NOTNUF .N100$

CLIBR,0,N1008
CLISTR,0.N308,<'ET*>
cLIBR,0,N1108

gggg 010530

N308:

gg;:

;SECOND KEYWORD (MODE=) FOR RUN COMMAND

2235

010532

2237

010552

2236

2238

2239

010536

N8OS:

N81S:

010556

010574

CLI

CLIERR.D

CLI

CLISPA,0,N30S

cLl

<'=>,0.N308

(LI

cLI

2IS THE FIRST NON=SP CHAR A '’
:TIF YES DO 'HLP'T AND EXIT

DO "HLP"' AND EXIT
FIRST WORD A 'PRINT
DO 'PRINT'* AND EXIT
FIRST WORD A 'RWN"’

IF YES DO ‘RUN' & GOTO N8OS

IFYES GOTO N8OS

IF YES DO 'CLR"& GOTO

:
.
:

IF YES, DO '‘SHOW ‘.BR N100S
ELSE., IS REST OF WORD 'ET"
_IF'YES, DO 'SET'', BR N110$

ZELSE. IS FIRST WORD A ‘‘CLEAR'’

:OTHERWISE “ILL CMD'*= EXIT

;SKIP LEADING SPS. IF NONE~ERR

CLISTR.NOTNUF ,N30$, <*MODE *>

*1S NEXT WORD ‘MODE=""

CLISTR,ATVMOD,N82S,<"ACTIVE'>

IS NEXT WORD “‘ACTIVE''

CLIBR,0,N1158

IF NO, IT'S WRONG -ERR —EXIT

IF_YES, DO “ACTIVE'',BR N115%

_IF_YES, DO ‘'PASSVE'
,BR N115%

IF YES, DO ‘RECVE'',BR N115%

IF YES, DO 'LISTEN',BR N1158

IF YES, DO 'DwNLL''.BR N1i5s

2240

010600

N82S:

(LI

2242

010622

N83S:

(LI

2044

010644

N84S:

(LI

2246

010666

N8SS:

(LI

N86S:

(LI

<'1>,0.N308

SIS NEXT CHAR A 'T"

CLI8R.0.N1158

2261

2243
2245

2247

2248

2249

2250

010616

010640

010662
010712

010716
010722

010740

cll

CLISTR,PASMOD,N83S,<'PASSIVE'>

CLIBR,0,N1158

CLISTR,RECMOD,N84S,<'RECEIVE'>

cL18R,0,N1158

CLISTR,LISMOD,N8SS,<'LISTEN'>

(LI

CLIBR,0,N1158

cLl

cL18R,0.N1158

1S NEXT WORD ‘PASSIVE”

1S NEXT WORD ‘RECEIVE"

-IS NEXT WORD ‘LISTEN"

CLISTR,DLLMO
, < DOWNL
D,N86S
INELOAD * >

CLISTR,_TRAMOD ,N87S,<'RANSMIT'>

N100$S

JELSE, IS FIRST CHAR. A ‘S’
:
IF YES IS REST OF WORD °'HOW'*

-1S NEXT WORD

‘DOW...""

: IS REST OF WORD ‘RANSMIT'’

IF YES. DO '‘TRANSM '.BR N115%

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.P11
18-APR-80 09:24

2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
229
2295
2296
2297
2298
2299
2300
2301

2302
2303
2304
2305

010744
010756

010762
010766
011010
011012
011036

MACY11 30A(1052)

K 4
18-APR-80

COMMAND LINE ACTION TREE

N878:

(LI

cLl

CLISTR,

09:24

PAGE 50

TALMOD ,N30$, <*ALK'>

CLIBR,0.NT15$

SEQ 0049

; IS REST OF WORD '‘ALK'’

IF YES, DO ''TALK'‘.BR N115$

: IF NO, ERROR - EXIT

;SECOND KEYWORD (FOR CLEAR OR SHOW)

N100S:
N1028:

N1048:

CLI
CLI
cLl
CLI
cLl

CLISPA.0,N30S
:SKIP LEADING SPACES. NONE=ERR
CLISTR. CSHEXP,N104$,<'EXPECTBUFF *>
;IS NEXT WORD ‘EXPE..."*
CLIEXI O
* IF YES, DO CLR-EXP.EXIT
CLISTR,CSHTRN,N30S, <' TRANSM] TBUFF *>
SIS NEXT WORD "“TRANS..'"
CLIEXI.O
*"IF YES, DO CLR-TRN.EXIT

SIF NO - ERROR - EXIT

011040

011044
011064
011070
011112

;SECOND KEYWORD (FOR SET)
N110S:
CLI
CLISPA.0,N30S
N1118:

N1128:

CLISTR.SETEXP.N1128,<'EXPECTMSG'>

CLIBR.0.N1208

cLl

CLIBR.0,N1208

CLI

CLISTR,SETTRN.N30S,
<’ TRANSMI TMSG*>

;GET ADDRESSES FOR DUMP COMMAND

011116
011122
011126
011132
011136
011142
011146
011152

NSOS:
N518:
N528:

011156
011162
011166
011200
011204
011220

N1158:
N114$:

011224
011242
011246
011262

CLI

cLl

CLI
CLI
CLI

CLIALP,0.N51$
CLISPA.0.N528
CLIOCT .DMPS ,N30$

Ll
cLl
Ll

<*~>,NOTNUF .N125$
CLIOCT,DMPE .N30$
<*/>.NOTNUF 'N125$

cLl

CLIBR.0,N125$

cLl

<'8>.pMPa N30s

:QUALIFIERS FOR THE RUN COMMAND

N1168:

CLI
CLI
cLl

CLIALP,0.N114$
<*/> .NOTNUF ,N125$
CLISTR.NO.Ni16S.<'NO*>

(LI

<'C>.0.N117s

CLIBR,0.N1158

cLl

CLISTR,CHECK ,N1178,<"HECK'>

sN1138: CLI

CLISTR,CRC,N308.<'RC16°>

N1178:

CLI

CLISTR,STATUS,.N1188,<'STATUS'>

N1188:

CLI

cLl

CLISTR,ECHO.N1308,<*ECHO">

CLIBR.O.N115S

cLl

CLIBR.O.N1158

CLIBR,0,N115$

011266
011302
011306

N130$:

CLI

CLISTR,0,N1318.<*PASS*>

N131$:

CLI

CLISTR,0,N308,<'LOOP*>

011326

N120$:

011322

cLl

CLIBR,0,N1508

cL18R.0.N1408

;GET MESSAGE TYPE FOR SET MESSAGE COMMANDS
CLI

<*=>,0,N308

CZCLFAQO DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PTT

MACY11 30A(1052)

18-APR-80 09:24

18-APR-80

COMMAND LINE ACTION TREE

09:26

PAGE 51

:
LOOK FOR DEFAULT MESSAGE NAME
N6OS:
CLI
CLISTR,CMSGT ,N61S,<"ONES'>
N61S:

cLl

cL18Rr,0,N121$

cLl

CLIBR,O.N121$

(LI

N62S:

(LI

N63S:

CLI

cLl

CLISTR,CMSGO ,N62S,<* ZEROES '>

CLISTR,CMSG2 ,N63S,<*1ALT*>

cL18R,0,N121$

CLISTR,CMSG3 NG4S, <'0ALT'>

cLl

cLIBR,0.N121$

CLI

cLIBR,0.N121$

cLl

CLIBR,0.N121$

N64S:

CLI

N6SS:

CLI

N66S:

CLI

cLl

CLISTR,CMSGS ,N65S,<* ITEP'>

CLISTR,CMSG4 ,N66S,<' CCITT'>
CLISTR,CMSG6 N67S,<'ALPHA'>

CLIBR.O.N121$

: _ LOOK FOR QUOTED MESSAGE
N678:
CLI
<>, 0PRMSG,N30$
N70S:
CLI
<"">_ENDQO,N71$

N718:

CLISPA,O.N723

cLl

cL18R,0.N708

N728:

CLI

011544

N73S:

CLI

011546
011552
011556
011572

N121$:

011540

CLIBR,O,N121$

CLI

CLIALN.O.N73$

;ONLY A~Z,SP,TAB, OR 0-9 BETWEEN 'S

CLIERR,BADCHR

;PRINT ERROR IF NONE LEGAL CHAR FOR ‘'S

;GET QUALIFIERS (SIZE OR COPY) FOR SET MESSAGE COMMANDS

N123$:

CLI

CLIALP,0,N1238

<*/>.NOTNUF ,N125%

CLISTR,SIZE .N122%,<'SIZE'>

CLI

CLISTR,QCOPY ,N30S,<'COPY'>

CLIBR,0,N126$

011576

N1228:

01161¢
011622
011626

N126$:

011632

N140S$:

(LI

<'=>,0,N308

N1418:

CLI

CLISTR,TTLLOP.N142$.<' INTERNALTTL*>

N14628:

CLI

011612

cLl

CLIBR,0.N126$

;NUMER FOR SIZE OR COPY
CLI
Ll

cLl

<'=>,0,N30%
CLIDEC NUM N30$

CLIBR.0.N121S

sGET MAINTENANCE LOOP TYPE FOR RUN ‘1LOOP'‘ QUIALIFIER

N1438:
N144$:

cLl

CLI

CLIBR,0,NT15S

CLISTR,CBLLOP.N143$,<'CABLE'>

CLIBR,0.N115S

CLISTR,LMDLOP.N144
<' LOCALMODEM®>
$.,

cL18R,0.N115$

CLIBR.O.N115S

CLI

CLISTR, RMDLOP,N30S,
<* REMOTEMODEM® >

;GET LINE NUMBER FOR 'PASS’* RUN QUALIFIER
N1S0S:
CLI
<*=>,0,N308
cLl

cLl

CLIDEC SPASC ,N30$

CLIBR.O.N115S

SEQ 0050

CZCLrFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLRA.PT
2363
2364

2365

2366

011774

MACY11 30A(1052)

18~APR-80 09:24

L
18-APR-80

COMMAND LINE ACTION TREE

s END=OF -L INE

N1258:

(LI

CLIEXI,O

09:24

PAGE 52

SEQ 0051

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P11

18-APR-80 09:24

2368
2369

2370
%%;%
2373
2376
2375
2376
2377
2378
2379

2380

011776
011776
012000
012002
012002
012004
012006

COMMAND LINE ACTION TREE

000000
000000
000000
000000

SELO:
BSELO:
BSEL1:
SEL2:
BSEL2:
BSEL3:
SELS:

.WORD
.WORD

O
O

.WORD
.WORD

O
O

.WORD

012006

000000

012014

000000
000000

BSEL7:

.WORD
.WORD

O
O

012016
012020
012022
012026

000000
000000
000000
000000

INVEC:
OUTVEC:
INTPR]I:
OPTYP:

.WORD
.WORD
.WORD
.WORD

0
0
0
0

ERRTBL

012010
012012
012012

2387
2388
2389
2390
23N
2392
2393
2394
2395

2396

N 4
18-APR-80

09:24

PAGE 53

;DEVICE DEPENDENT STORAGE LOCATIONS FOR
;. CURRENT DEVICE PARAMTERS

2381
2382
2383
2384

MACY11 30A(1052)

000000

BSEL4:

BSELS:
SELG:
BSEL6:

.WORD

;ADDRESSES OF REGISTERS SELO THRU BSEL?7

;INPUT INTERRUPT VECTOR ADDRESS
;OUTPUT INTERRUPT VECTOR ADDRESS
J INTERRUPT PRIORITY
;DEVICE OPTION TYPE (O=DMC,S=DMR-DMC MODE

;7=DMR)
.

SEQ 0052

CZCLrAQ DMR,DMC-11 DATA COMM. LINK TESY
MACY11 30A(1052)
CZCLKA P
18~APR-80 09:24
GLOBAL TEXT SECTION

2397
2398
2399
24600
26N
2602
2403
2404
2405
2606
2407
2408
24609
2410
2411
2612
2613
2614
2415

.SBTTL
M

18-APR-80

09:24

PAGE 54

SEQ 0053

GLOBAL TEXT SECTION

; THE GLOBAL TEXT SE CTION CONTAINS FORMAT STATEMENTS,
;. MESSAGES, AND AS(CI I INFORMATION THAT ARE USED IN
; MORE THAN ONE TEST

.SBTTL

DEVICE SUPPORTED

: NAMES OF DEVICES SUPPORTED BY PROGRAM
012026
012026
012026
012034

DEVTYP

046504
026503
012042

026122
030461

LSBTTL

/DMR.,DMC-=11/

PROGRAM IDENTIFICATION

TEST DESCRIPTION
DESCRIPT

046103
046504
041515
040504
046517
047111
052123

LSDVTYP::
.ASCIZ

046504
000

055103
020060
042040
020061
041440
046040
042524
012114

<DMR.DMC-11>

<CZCLKAO DMR, DMC-11

DATA (COMM.

L}EESZEST>
L

0460513
026122
030455

LASCIZ

040524
027115
020113

.EVEN

/CZCLKAO DMR, DM

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLRA.P
18-APR-80 09:24

%2%2

.SBTTL

2437
2638
2639
2640
2641
2642
26443
2644
2645
2646
2647
26448

012114
012122
012130
012136
012144
012152
012160
012166
012174
012175
012202

26450
2651
2652

012216
012217
012224

26449

012210

041504
047045
046114
041055
047131
047045
041516
020105
000
045
052516

020117

000
045
040502

052114
040445
041440
042101
054124
040445
050115
046503

000076
044477
042115
051440
000077
044477
052114
037504

022516
020115
044502
022516
020104

MACY11 30A(1052)
18-APR-80 09:24
PAGE 55
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

INFO

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

CLISPM:
CLIERM:

_ASCIZ
.ASCIZ

/DCLT>/
/XNXA?ILL CMD-BAD SYNTX?/

CLINUF:

ASCIZ

/XNXA?INCMPLTE (MD?/

037501
047524
037507

CLINBG:

.ASCIZ

/INXA?NUM TOO BIG?/

CLIBRX:

.ASCIZ

/INXA?BAD RADIX?/

CLIBDL:

.ASCIZ

/XNXA?'LOOP'' VALID ONLY IN ACTIVE?/

2454
26455

012237
012244

045
046042

022516
047517

037501
040522
000
037501
021120

2460

012301

045

022516

000
037501

CLINPS:

.ASCIZ

/XINXA?"ECHO'' VALID ONLY IN PASSIVE?/

2666

012344

047045

040445

044477

CLIBCR:

.ASCIZ

/ANXA?ILL CHR- ''A-7,0-9,SP,TAB''
ONLY?/

2670
2471

366
012374
012402

026120
047888

040524
046116

021102
037531

2473

012411

0645

022516

037501

CLISEO:

.ASCIZ

/XNXA?''SIZE=0"' NOT VALID?/

2478

012442

0000
047045

040445

044124

HLPO:

ASCIZ

/INXATHIS IS DCLT.

2686
2487

012520
012525

047045
104

052045
046103

000
0201;3

HLPF:
HLP1:

_ASCIZ
.ASCIZ

/XNXT/
/DCLT CMDS:/

2489
2490

012540
012546

041440
047440

062514
020122

051101
044123

HLP2:

.ASCII

/ CLEAR OR SHOW

TYPE "W’ OR '*2'' FOR DETAILS/

EXPECTLIST OR TRANSMITLIST/<15><12>

SEQ 0054

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA PN
18-APR-130 09:24

269
2492
2493

012554
012562
012570

053517
042520

MACY11 30A(1052)

D §
18-APR-80

09:246

PAGE 56

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

INFO

020040
052103
047440
047101
044514
044522

052116

.ASCI1

/ PRINT/<15><12>

046525
051101
027504

020120
026524
000102
042440
046524
020122
046523
036507
051457
020116
047503
000

.ASCIZ

? DUMP START-END/B?

HLP3:

LASCIZ

HLPSG:

.ASCIZ

HLP4A:

ASCIZ

SET EXPECTMSG OR TRANSMITMSG=TYPE/SIZE=N OR /COPY=N?

TYPE=ONES ,ZEROES, 1ALT ,0ALT,ITEP,CCI
,ALPHA?
TT

OR 'OPR SP(CD=A~Z,SP,TAB,0-9 IN QUOTES'Y/

052117

046440

051501
046440

HLPS:

RUN MODE=MTYP/LOOP=LTYP/CHECK,STATUS ,ECKO,PASS=N?

052524
047510
036523
054524
047101

HLP6:

.ASCI1

MTYP=TRAN_REC,ACT,PAS,TAL,LIS,DOWN/<15><12>

LASCIZ

LTYP=INT,CAB,LOC,REM/

053517
052114

013242

051054

SEQ 0055

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
| CZCLKA PN
18-APR-80 09:24

013250
013251
013256
013264
013272
300
013305
013312
013314

MACY11 30A(1052)
18-APR-80 09:24
PAGE 57
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

000
022516

051105

046501
054524
022524
042532
000
042517

051505
046101
052114
044503

000
000124
000
052124

SHTYP1:
SHTYP?:

SHTYPG;

.ASCIZ
.ASCI2Z
.ASCIZ
.ASCI2

000120
000101
050123

SHTYPS:
SHTYP6:
SHTYP?:

.ASCIZ
LASCIZ
LASCI2Z

/1TEP/
/ALPHA/
/0PR SPEC/

044505

:
MO0

.ASCIZ

/RECEIVE/

051516

MO1:

.ASCIZ

/TRANSMIT/

051523

053111

MO2:

LASCIZ

/PASSIVE/

044524

042526

MO3:

ASCIZ

/ACTIVE/

046105

046116
040517

MO4:

.ASCIZ

/DOWNL INELOAD/

045514
051511

042524

.ASCIZ
LASCIZ

/TALK/
/LISTEN/

047514

0%0117

LPO:
LPOO:

.ASCIZ
LASCIZ

//
?2/L00P=?

042524
000

047122

LP1:

.ASCIZ

?INTERNAL?

042514

LP2:

CASCIZ

?CABLE?

LP3:

.ASCI2Z

?LOCALMODEM?

LPé4:

LASCIZ

?REMOTEMODEM?

1053517

041101

SHMSG:

LASCIZ

7ANXAMSG:

SHTYPQ:

LASCIZ

/2EROES/
/ONES/
/1ALT/

SHTYP3:

000

/0ALT/

/CCITT/

052101

051525

PNST:
PST:

ASCII
.ASCIZ

/NO/
/STATUS/

117
042510

045503

:
PNCK
PCK:

ASCIZ

LASCII

/NO/
/CHECK/

117

TYPE=XTXA/SIZE=%D3?

013557

044103

000117

PNEC:
PEC:

LASCII
.ASCI2

/NO/
/ECHO/

013564
013572
013575

040445
000
045514

044514

LISP:

.ASCI2Z

/AINXALIS>/

000076

OPRMM:

LASCIZ

/TLK>/

INFO

SEQ 0056

—

CZCLKAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.P1T
18-APR-80 09:24

2603

013602
013610
013616
013624
013632

044124
032440
020122
055110
026511

05151

020056
030461

040440
047440
020056
051514
000072

MACY11 30A(1052)

F
5
18-APR-80

09:24

PAGE S8

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

:
L5060

LASCIZ

/THIS A 50. OR 60.

HZ.

INFO

LSI=11:/

.EVEN

: FORMAT STATEMENTS USED IN PRINT CALLS
DLLCM:

LASCIZ

/ANXADOWN LINE LOAD COMPLETED SUCCESSFULLY/

NOCLK:

ASCIZ

/AINXABAD CLOCK - PROGRAM WILL HANG ON ‘‘TIMEOUT''!'!/

:
TABEX

ASCIZ

/MAX.

BUFEX:

LASCIZ

/BUFFER FULL -/

MSGTRN:

LASCIZ

/ANXTXA MSG. NOT BUILT

MSGTRU:

ASCIZ

/INXACHAR.

SHFQ:

ASCIZ

2ANXSSXAMODE=ZTXTXTXA/PASS=225"

021124

054101
051101
020107
020124
042105
000
043125
052506
000

(HAR. MSG COUNT EXCEEDED -/

!!/

052117
COUNT EXCEEDS BUFF LIMIT - MSG TRUNCATED/

052101
045
040445
022475
022524

022524
027501

032523
042504
022524
040520

SEQ 0057

CZCLFAO DMR,DMC~11 DATA COMM, LINK TEST
CZCLKA.PT
18-APR-80 09:24

2659

2660
2661
2662

2663
2664
2665

014214

051523

022475

032532

014223
014230
014236

022516
022465
022457

032523
032523
022524

SHF1:

.ASCIZ

?2XNXSSXSSXSSXA/XTIA/XTXA/XT?

052101
046440
041524
047111
036440

EFM2:

.ASCIZ

/XSSXATOTAL MISMATCHES IN MSG = %DS/

PCPM:

_ASCIZ

/XNXS3XACALLED FROM PC=%06/

EFM11:

_ASCIZ

/XSSYTACOMPARE COUNT=XDSXS3XARECEIVE COUNT=XDS/

014222

000

2667
2668
26609
2670
2671
2672
2673

014252

045
051445
040445
027501
022457

014256
014264
014272
014300
014306

051445
052117
051511
042510
046440

022465
046101
040515
020123
043523

2675
2676
2677
2678

014321
014326
014334
016342

0643
040445
042105
020115

022516
040503
043040
041388

000
031523
046114
047522
022475

2680
2681
2682
2683
2684

014353
014360
014366
014374
014402

045
047503
020105
036524
031523

032523
050115
047503
042045
040445

040445
051101
047125
022465
042522

042045

000065

2666

2685
2686

2687

014246

014410
014416
014424

042503
047503

052045

000124

053111
047125

040445

020105
036524

2690

2692
2693
2696
2695

2696

MACY11 30A(1052)
18-APR-80 09:26
PAGE 59
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

SEVENT DESCRIPTION MESSAGES

014430
014436
014444
014452

014454

051124
052111
050440
000104

051126

047101
046440
042525
047101

046523
043523
042525

EDTXQ:

.ASCIZ

/TRANSMIT MSG QUEUED/

046523

EDTXC:

.ASCIZ

/TRANSMIT MSG COMPLETED/

EDRXQ:

.ASCIZ

/RECEIVE SPACE QUEUED/

2697
2698
2699
2700
2701
2702

014462
014470

052111
0416440

046440
046517

014503
014510
014516

122
042526
042503

041505
051440
838482

043523
046120
000
044505
040520
042525

2704
2705
2706

014530
014536
014544

042522
020105
047503

042503
051515
050115

053111
020107
042514

EDRXC:

.ASCIZ

/RECEIVE MSG COMPLETED/

2708
2709

014556
014564

042504
042388

044526
051122

042503
051117

EDDER:

.ASCIZ

/DEVICE ERROR/

2711
2712
2713
2714

014573
014600
014606
014614

106
047503
051511
040524

052101
050115
047117
052122

020101
051101
051440
042105

EDDCK:

.ASCIZ

/DATA COMPARISON STARTED/

SEQ 0058

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PT
18-APR-80 09:24
014622

000
104

020105

H 5
18-APR-80

09:24

PAGE 60

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

EDDVI:

.ASCIZ

/DEVICE INIT AND SETUP/

EDDLE:

.ASCIZ

/DATA COMPARISON LENGTH ERROR/

EDDDE:

.ASCIZ

/DATA COMPARISON DATA ERROR/

EDEOP:

.ASCIZ

/END OF PASS/

INFO

04044C

052° 05

1 04
047503
05151

014741
014746
014754

S HRAAARAAAN
ANAR
AR RN ARNARARNANRA
ANAN
ANANRANANRNI
AAAN
ARANNRINND
A

;THESE TWO STORAGE AREAS MUST NOT BE SEPERATED '!!!
;EVENT REPORTING MESSAGES

BASM1A:

.ASCIZ

014772
015000

022463

031517

BASM3:

_ASCIZ

/%S3%03/

031523

047445

BASMZ2:

.ASCIZ

/%S3%06/

047445

000066

BASM1:

_ASCIZ

/XNX06/

044124
047105
020107
050115

NULEVT:

.ASCIZ

/INXATHE EVENT LOG IS EMPTY/

037101

EVTFO:

.ASCIZ

/INXA>>> EVENT LOG ENTRY <<<CCLCLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLS/

032504
031132
031132
000124

EVIF1:

_ASCIZ

/INXDSXA:XZ2%A:%3722%S3XT1/

Gy
G
G
QG- GG

NO\\W

051501
046102

A ALV AV, IV IV IV, V1Y) 1%,

041040
040524

elelelelelelelele) o

014755
014762
014770

2715
2716
2717
2718

MACY11 30A(1052)

051445

022463

BASE TABLE/

SEQ 0059

30A(1052) 15-APR-80 09:24 PAGE 61

CZCLFAO DMR,DMC~-11 DATA (OMM. LINK TEST
CZCLKA.PI
18-APR-80 09:24

2771

015176
015204
015212
015220

047045

MACY1?
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

SEQ 0060

INFO

EVTF2:

.ASCIZ

/XINXS3XAADDR OF MSG=X06XS3XABYTE COUNT=XDS/

EVTF3:

.ASCIZ

/AINXS3XTAN/

022463
022463

EVTF3C:

.ASCI2Z

/XS3%062%S3%06/

031523
031523
031523

EVTF3D:

.ASCIZ

/%3S3%06XS3%06XS3XT/

022516
042101
020106
047445
040445
041440
022475
022463
047440
020120
022475

EVTF4:

.ASCIZ

/XINXS3XAADDR OF MSG=Y06XS3XABYTE COUNT=XDSXS3YXANO. OF

022516
042101

EVTF4A:

ASCIZ

/AINXS3XAADDR OF MSG=X06XS3XARX BYTES=XD5X¥S3YACOMPARE BYTES=2DS5/

EVTF4B:

ASCIZ

/AINXS3XAPASS=2D5XS3XAERRORS=XD5XS3XANOBUF
F S=2D5/

EVTFSA:

.ASCIZ

/XSS5XABYTE # IN MSG.=%D5%S3XAEXPTD=X03XS3XARECVD=%03/

051445

022475

031523
051523
051445

(MP ERRS=XD5/

CZCLFAQO DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PY
18-APR-80 09:24

015664
015672
015700
015706

047045
041501
042105
000

051445
040510
052040

022471
043516
035117

MACY11 30A(1052)

18-APR-80

09:24

PAGE 62

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

EVMOCG:

AL AAA

.ASCIZ

AR Ad

INFO

SEQ 0061

/XNXS9XACHANGED TO:/

addd

iddiisidt

stz

itz

essssssy

;DO NOT SEPERATE THE NEXT LIST OF MESSAGES ~ MODEM SIGNAL HEADER AND REPORT
015707
015714

022516

EVMOHD:

.ASCIZ

/INXSBXAMODEM STATUS:

CTS DSR DCD RTS Rl

Sap TTM/

020104

047045

04 5
054124
051445
04153?
04
054122
051445
051122

045

046503
051445

044512
04
046503
051445
042115

022516
02247

034523
032523

EVMOST:

_ASCII

/AINXS9XSIASSXA/

040

EVMCTS:

.BYTE

'X.40,40,40

040

EVMDSR:

.BYTE

'X,40,40,40

040

EVMDCD:

.BYTE

'X,40,40,40

040

EVMRTS:

.BYTE

'X.40,40,40

040

EVMRI:

.BY'E

'X.40,40,40

040

EVMSQD:

.BYTE

'X.40,40,40

040

EVMTM:

_.BYTE

'X,40,40,40

.BYTE
.EVEN

040445

cEXECUTION STATU;ZZESSAGES TO BE PRINTED TO KEEP OPERATOR AWAKE
ASCIZ
sCR FOR LINES IN A ROW
STxQ:
.ASCIZ
/XS3XATXQ/
:ABOUT TO TRANSMIT

052101

STXC:

.ASCIZ

/XS3XATXC/

;TX COMPLETED

040445

SRXQ:

.ASCIZ

/XS3XARXQ/

;ABOUT TO RECEIVE

042501

SDVE:

.ASCIZ

/XS3XAERR/

sDEVICE ERROR

040445

SCM:

.ASCIZ

/XS3XACMP/

;ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD

044501

sbvl:

.ASCIZ

/XS3XAIN1/

;DEVICE ABOUT TO BE INITIALIZED

040445

SCML:

.ASCIZ

/XS3XACML/

; COMPARE LENGTH ERROR

041501

SCMD:

.ASCIZ

/%S3XACMD/

;COMPARE DATA ERROR

CZCLFAOQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT
2883
Sggg
2886

016155
016162

MACY11 30A(1052)

18-APR-80 09:24
065
047505

031523
000120

040445

K 5
18-APR-80

09:24

PAGE 63

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

SEOP:

.ASCIZ
EVEN

/%S3XAEOP/

;END

OF PASS

SEQ 0062

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.P11
18-APR-80 09:24

MACYT1 30A(1052)
18-APR-80 09:24 PAGE 64
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

;DEVICE ERROR MESSAGES
DVEMO:

:
DVEM1

DVEM3:

.ASCI1

/TIME OUT WAITING FOR RDI

TC CLEAR/

LASCIZ

<15><12>/

ASCII

/TIME OUT WAITING FOR RDI

TO SET/

.ASCIZ

<15><12>/

LASCII

/TIME OUT WAITING FOR RUN TO SET/

.ASCIZ

<15><12>/

ASCII

/TIME OUT WAITING FOR OUTPUT INTERRUPT/

.ASCIZ

<15><12>/

-ASCII

/INPUT INTERRUPT WHEN EXPECTING OUTPUT/

-ASCIZ

<15><12>/

.ASCI1

/ILLEGAL OUTPUT INTERRUPT/

SELO

SEL2

020117
020012
030114
051440
DVEM4:

SELO

SEL2

020124
051122
020012
030114
051440
000040

DVEMS:

SELO

SEL2

044524
052125
020012
030114
051440
000040
042514

DVEM6:

SELO

SELZ2

SEQ 0063

CZCLFAQ DMR,DMC-11 DATA COMM, LINK TEST
CZCLKA.PT
18-APR-80 09:24
016616

016752
016760
016766
016774
017002
017010

020114

052517
044440
052522
020040
020062
042523
000

MACY11 30A(1052)

054124
020106

DVEM7:

DVEM8:

051440
020040
033114
052502
046517
042105
051440
020104

09:246

PAGE 65

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

050124
052116
052120
051440
020040
033114

051124
052125

mnS
18-APR-80

DVEM9:

DLLAB:

LASCIZ

<15><12>/

.ASCII

/CON/ROL OUT INSTEAD OF BA-CC OUT/

ASCIZ

<15><12>/

.ASCII

/TX BUFF

.ASCIZ

<15><12>/

.ASCII

/RX BUFF COMPLETED AND SHOULD BE TX/

ASCIZ

<15><12>/

.ASCIlI

/ DOWN LINE LOAD ABORTED/

ASCIZ

<15><12>/

SEL2

SEL6

COMPLETED AND SHOULD BE RX/

SEL4

RXBUF

042105
051105

PROEM:

.ASCIZ

/PROCEDURE ERROR/

054105
042515

NX(MM

LASCIZ

/NON EXIST MEM/

020120
020124

DDCSRM:

.ASCIZ

/DDCMP START REC/

SEL6

TXBUF /

SEQ 0064

N §
MACY11 30A(1052)
18-APR-80 09:24 PAGE 66
6L OBAL FORMAT STATEMENTS, MESSAGES, AND ASCI] INFO

CZCLFAQ DMR,DMC~11 DATA COMM, LINK TEST
CZCLKA.P1Y
18-APR-80 09:24

017262
017270
017275
017302
017307
017314
017322
017327

3012

044504
042516

017354

DISCOM:

ASCIZ

/DISCONNECT/

LOSDAM:

ASCIZ

/LOST DATA/

DDCMRM:

LASCIZ

/DDCMP MAINT REC/

TIMOM:

ASCIZ

/TIME OUT/

DAT(CKM:

ASCIZ

/DATA CHECK/

.EVEN

SEQ 0065

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PI

18-APR-80 09:24

3013

3014

%8}(8)

3020

8 6
18-APR-80

09:24

PAGE 67

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

sTHIS SECTION IS USED BY A M9301-YJ BOOT ROM FOR DOING DOWN-L INE-LOAD ??7??

338}2

3017

MACY11 30A(1052)

;MUST BE IN THE AREA OfF ‘017370 + 256. BYTES'' + A FEW

017370

000400

020000

BASE:

.=17370
.BLKB

.=20000

256.

;BASE TABLE ADDRESS

SEQ 0066

)
MACY11 30A(1052) 18-APR-80
09:24 PAGE 68

CZCLFAO DMR,DMC~11 DATA COMM, LINK TEST

CZCLKA.P1Y

3021
3022
3023
3026
3025
3026
3027
3028
3029
3030
3031
3032
3033

3040
30641
3042
3044

18-APR-80 09:24

020000
02
020014
020022
020030
020032
020040
020046
020054
020062
020070
020076
020102
020110

052522
020124
043501
054122
000105
042103
041524
052103
044514
054124
041440
052105
054122
041440

020116
046111
046114
044440

042523
042514
000131
0646104

043440
042510
020123
042514
047040
046517
000105
047040
046517

044514
000104
040506
000104
052117
046120

020122

042523

020145
020152
020160

009
123
050505
053448

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

RUNSBM:

.ASCIZ

/RUN SET [LLEAGLLY/

RXIDM:

_ASCIZ

/RX IDLE/

(DGLM:

_ASCIZ

/CD GLITCHED/

CTSFM:

_ASCIZ

/CTS FALILED/

TXNC:

.ASCIZ

/TX NOT COMPLETE/

052117
046120

RXNC:

.ASCIZ

/RX NOT COMPLETE/

020103

042522

RXM1:

_ASCIZ

/SEC REQ ERR WORD 1/

041505
042440
051117

051040
051122
020104

RxM2:

_ASCIZ

/SEC REQ ERR WORD 2/

.EVEN

INFO

SEQ 0067

CZCLFAOQ DMR,DMC~11 DATA COMM, LINK TEST

CZCLKA.P11

18-APR=-80 09:24

338232’

MACY11

D 6
18-APR-80

GLOBAL ERROR REPORT SECTION
.SBTTL

3054

30A(1052)

09:26

PAGE 69

SEQ 0068

GLOBAL ERROR REPORT SECTION

I+

3055

: THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS

%gg

;

3056.

; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR [NFORMATION.

3059
3060
3061
3062
3063
2064
3065
3066
3067
3068
3069
3070

020170
020170
020170
020170
020172
020176
020200

3075

020222

3071
3072
3073
3074
3076

007170
015600
000004

MOV
MOV
MOV
MOV

OFSET,-(SP)
#EVTFSA,=(SP)
#4,-1SP)
SP.RC

020226

062706

000012

ADD

#12,5p

TRAP

CSMSG

020232
020232

3088
3089
3090
3091
%g

020250
020252
020256
020256
020256

309
3095
32096

020260
020260
020260

3106
3105
3106

#EVTFS5A,OFSET,<B,GO0D>,<B,BAD>

007210

308!1 020232

3103

PRINTB

013746
012746
012746
010600

3082
3083

3102

ERR1

0202046
020210
020214
020220

020230
020230
020230

3097
3098
3099
3100
3101

BGNMSG

ERR1::
;INDIVIDUAL DATA COMPARE ERROR
CLR
-(SP)
BISB
BAD,(SP)
CLR
-(SP)
BISB
GOOD, (SP)

2077
3078
3079

3084
3085
3086
3087

PRINTB

(BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES.

020232
020236
020242
020246

005046

153716
005046
153716

104414

007211

104423

013746
012746
012746
010600
104414
062706

TRAP

ENDMSG

L10001:

BGNMSG ERR2
007202
014256
000002
000006

PRINTB

#EFM?2,TEMP4

ERR2::
;TOTAL DATA COMPARE FAILS ERROR

MOV
MOV
MOV
MOV

TEMPG
- (SP)
#EFM2. ~(SP)
#2,-(SP)
SP.RO

TRAP

(SMSG

TEMP3,-(SP)
R&,-(SP)
MEFMIT,-(SP)
#3,~(SP)
SP.RO

TRAP
ADD

ENDMSG

L10002:

104423

BGNMSG

ERR10

PRINTB

W#EFM11,R4,TEMP3

CSPNTA

CSPNTB
#6,SP

ERR10::

020260
020264
020266
020272
020276

013746
010446
012746
012746
010600

007200
014353
000003

MOV
MOV
MOV
MOV
MOV

020302

062706

000010

ADD

#10,5P

TRAP

CSMSG

020300

020306
020306
020306

104414

104423

TRAP

ENDMSG

CSPNTB

L10003:

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P11
3108
3109
3110

020310
020310
020310

3117

020336

3111
3112
3113
3114
3115
3116

18-APR-80 09:24

020310
020314
020320
020326
020330
020334

013746
013746
013746
012746
012746
010600

007204
007202
007200
015277
000004

020340

062706

000012

3120
3121
3122
3123

020344
020350
020354
020360

013746
012746
012746
010600

007214
014321
000002

3125

020364

062706

000006

3118

3119

3124

020344

020362

3126
3127
g}gg

020370
020370
020370

3130
3131
3132

020372
020372
020372

3138

0204146

3133
313%
3135
3136
3137

104414

013746
013746
012746
012746
010600

007202
007200
015262
000003

020416

062706

000010

3141
3142
3143
3144

020422
020426
020432
020436

013746
012746
012746
010600

007214
014321
000002

3146

020442

062706

000006

3140

3145

020422

020440

3147
3148
%1‘5’3

020446
020446
020446

3151

020450

3152
3153

3154
3155
3156
3157
3158

020450
020450

104414

007202
007200
015262
000003

020474

062706

000010

3161
3162
3163

020500
020500
020500

BGNMSG

ERRS

PRINTB

#EVTF3D,TEMP3,TEMP4,CONOTM

104414

104423

SEQ 0069
ERRS::

MOV
MOV
MOV
MoV
MOV
MOV

CONOTM,
- (SP)
TEMP4
, = (SP)
TEMP3 - (SP)
#EVTFS$D,-(SP)
#4,-(SP)
SP.RO

ADD

M2,SP

MoV
MOV
MOV
MOV

PCADD ,~(SP)
#PCPM.
- (SP)
#2,-(SP)
SP.RO

ADD

#6,SP

TRAP

CSMSG

MOV
MOV
MOV
MOV
MOV

TEMP4 ,~(SP)
TEMP3 . - (SP)
#EVTFSC,~(SP)
#3,-(SP)
SP.RO

ADD

#10,SP

MOV
MOV
MOV
MOV

PCADD ,~(SP)
#PCPM. ~(SP)
#2.~(SP)
SP.RO

ADD

#6,SP

TRAP

(SMSG

MOV
MOV
MOV
MOV
MOV

TEMP4 ,~(SP)
TEMP3 .~ (SP)
MEVTFSC.~(SP)
#3,-(SP)
SP.RO

ADD

#10,SP

TRAP

C$MSG

TRAP

PRINTB

#PCPM,PCADD

TRAP

ENDMSG

L10004:

BGNMSG

ERR9

PRINTB

W#EVTF3(C,TEMP3,TEMPS

PRINTB

#PCPM,PCADD

TRAP

ENDMSG

L10005:

BGNMSG

ERR13

PRINTB

#EVTF3C,TEMP3,TEMPS

CSPNIB

CSPNTB

ERR13::

TRAP

ENDMSG

CSPNTB

ERRY::

TRAP

104423

013746
013746
012746
012746
010600

020472

3160

104414

020450
020454
020460
020464
020470

3159

GLOBAL ERROR REPORT SECTION

104423

020372
020376
020402
020406
020412

3139

6
MACY11 30A(1052) 15-APR-80
09:24 PAGE 70

L10006:

CSPNTB

F
6
MACY11 30A(1052)
18-APR-80
CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
18-APR-80 09:24
GLOBAL ERROR REPORT SECTION
CZCLKA.PN

3164
3165

3166

3167
3168
3169
3170
3N
3172
3173
3174
3175
3176
3177
3178
3179
3180

3181

3182

3183

3184

020502
020502
020502
020502
020506
020512

013746
013746
013746
012746
012746
010600
104414
062706

020536

104423

020540
020540
020542

000167
177772

09:24

BGNMSG

ERR14

PRINTB

W#EVTF3D,TEMP3, TEMP4,CONOTM

PAGE 71

SEQ 0070

ERR14::
MOV
MOV

MOV
MoV
MOV
MOV

ENDMSG

EXIT

L10007:
MSG

- (SP)
CONOTM,
TEMP4
, = (SP)

TEMP3 . -(SP)

= (SP)
#EVTFSD.
#4,~(SP)

SP RO
CSPNTB

ADD

#12,5P

TRAP

C$MSG

.WORD

JSJMP

L10007-2~-.

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PI

18-APR-80 09:24

3185

MACY11 30A(1052)

GLOBAL SUBROUTINES SECTION
.SBTTL

G 6
18~-APR-80

09:24

GLOBAL SUBROUTINES SECTION

3186
3187

s+t

3189

; THAT ARE USED IN MORE THAN ONE TEST.

3188

PAGE 72

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

3190

3191
3192

3193

.SBTTL

CLOCK SETUP SUBROUTINE

3194
2195

3197
3198

:
:

THIS SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING A ‘‘CLOCK'’
vALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE THE '‘CLOCK'' CALL

3338?

LINE OR P=CLOCK IS FOUND.

3196

; FUNCTIONAL DESCRIPTION:

3199

SAYS NOTHING ABOUT AN LSI-11°'S CLOCK, THIS ROUTINE IS ONLY USED IF A

3202
3203

: INPUTS:
:
R1= POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED

3206

: IMPLICIT INPUTS:

333815.

R2= POINTS TO '‘CLK'’ TABLE WHERE CLOCK INFO WILL BE KEPT

3207

3209

: OUTPUTS:

THE SUPERVISOR

SPACE WHERE CLOCK INFO WAS RETURNED BY THE '‘CLOCK'' CALL

3210

;

"'CLKCSR’* GETS LOADED WITH THE CLOCK'S CSR ADDRESS

3%}’5’

;

THE NUMBER OF TICKS IN A SECOND

3211
3212
3213

;
;
;

3216

. CALLING SEQUENCE:

33%};
3219
3220
3221
22
3223
3224
3225
3226
3227
3228
3229
3230

"'CLKBR’* GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL
"'CLKVEC'* GETS LCADED WITH THE CLOCK'S INTERRUPT VECTOR
"'CLKHZ'' GETS LOADED WITH THE LINE FREQ. (HERTZ RATE) WHICH DETERMINES

:
020544
020544
0
020550
020552
020554
020556
020560
020562
020564
020566

012122
012112
006312
006312
006312
006312
006322
012122
012122
000207

CLKSET:

PC,CLKSET

;CALL CLOCK SETUP WITH R1 & R2 SETUP

MOV
MOV
ASL
ASL
ASL
ASL
ASL
MOV
MOV
RTS

(R1)+,(R2)+
(R1)+, (R2)
(R2)
(R2)
(R2)
(R2)
(R2)
+
(R1)+,(R2)+
(R1)+,(R2)+
PC

;LOAD CLOCK'S CSR ADDR. INTO ‘'‘CLKCSR'’
JLOAD CLOCK'S INT. LEVEL INTO '‘CLKBR'’
sADJUST THE INT. LEVEL FOR LOADING INTO
5
THE PSW WITH A ‘SETVEC'' CALL

;JLOAD CLOCK'S INT. VECTOR INTO ‘‘CLKVEC''
JLOAD CLOCK'S HERTZ RATE INTO '‘CLKMHZ'"

SEQ 0071

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PI

MACY11

18-APR-80 09:24

3232
gggz

H 6
18-APR-80

CLOCK SETUP SUBROUTINE

.SBTTL

09:24

PAGE 73

SEQ 0072

CLOCK INTERRUPT SERVICE ROUTINE

¢4

3235

30A(1052)

; FUNCTIONAL DESCRIPTION:

3236
3237
3238
3239

:
;
;
;

THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE WHICH TAKES CARE OF
KEEPING THE ‘TIME-SINCE-START'' AND COUNTING DOWN ANY OF THE
‘EVENT'' TIMERS, THE TIMERS ARE USED TO TIME COMPLETION OF DEVICE
REQUESTS. THE '‘TIME-SINCE-START'' IS USED TO BE LOGGED WITH EACH ENTRY

ggz?

3242
3243
%244
3245
3246
3247

;
;
:
:
;
;

IMPLICIT INPUTS:
TIMTCK: THE CURRENT NO. OF TICKS LEFT TO BE COUNTED UNTIL A SECOND
HAS BEEN COUNTED OFF
CLKHZ:
THE NO. OF TICKS IN A SECOND, DETERMINED BY THE SYS. LINE FREOQ.
TIMMIN & TIMSEC: CURRENT VALUE OF 'TIME-SINCE-START'
IN MINUTES & SECONDS

3250
3251
2252

;
;
;

IMPLICIT OUTPUTS:
NEW VALUE OF EVENT TIMER '“1°° DECREMENTED BY 1
NEW VALUE OF EVENT TIMER ''2'° DECREMENTED BY 1

3255

;

FUNCTIONAL SIDE EFFECTS:

;

CALLING SEQUENCE:

%szg

?,522

%S?‘?

3258

3259

%52;

3260
3263

TIMER 1,2, & S: CURRENT VALUES OF THE ‘EVENT TIMERS''

020570
020570

3267
3268
3269
3270
3271

020570
020574
020600
020602
020610

005077
005337
001015
013737
005237

THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING

3276
%;2

020624
020630

005237
005037

007264
007266

3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287

020634
020640
020642
020646
020652
020654
020660
020664
020666
020674
020676

005737
001402
005337
005737
001402
005337
005737
001406
023737
001002
005337

007272

020614
020622

022737
001004

166456
007270

007260
007266
000074

007270

007266

1$:
2s:

007274
007276
007260
007276

THIS ROUTINE IS CALLED WHEN THE CLOCK INTERRUPTS THRU '‘CLKVEC''.

THE ADDRESS OF THIS ROUTINE WAS LOADED INTO THE CLOCK'S INTERRUPT

VECTOR WITH A SUPERVISOR '‘SETVEC'' CALL.
BGNSRV

CLKINT

CLR
DEC
BNE
MOV
INC

@CLKCSR
TIMTCK
1%
CLKHZ,TIMTCK
TIMSEC

;DISABLE THE CLOCK FORM INTERRUPTING
;DECREMENT THE # OF TICKS/SEC.
;GO CHECK TIMERS (182-TICKS, 3-SECONDS)
SJRESET THE # OF TICKS/SEC.
JINC # OF SECS~-SINCE-START

3s:
007270

CLKINT::

cMP
BNE

#60., TIMSEC
18
TIMMIN
TIMSEC

; ELSE INC MINUTES-SINCE-START
; AND RESTART SECOND COUNTER

ST
BEQ
DEC
ST

TIMER1
2$
TIMER1
TIMER?2

JSEE IF TIMER #1, TIMING ANYTHING
; 1F=0, NOTHING BEING TIMED CHECK NEXT
; ELSE DECREMENT THE TIMER VALUE (BY 1
JSEE IF TIMER #2, TIMING ANYTHING
; 1F=0, NOTHING BEING TIMED CHECK NEXT
; ELSE DECREMENT THE TIMER VALUE (BY 1
SJSEE IF TIMER #3, TIMING ANYTHING
; IF=0, NOTHING BEING TIMED, LEAVE
JSEE IF A SECOND HAS BEEN COUNTED OFF
; BR IF NO
; ELSE DECREMENT THE TIMER VALUE (BY 1

INC
CLR

007272
007274

TICK IF IT WAS NON-ZERO
TICK IF IT WAS NON-ZERO

NEW VALUE OF EVENT TIMER '‘S’' DECREMENTED BY 1 SECOND IF IT WAS NON-ZERO

;

3264
%%22

3272
3273

INTO THE EVENT LOG.

BEQ
DEC
ST
BEQ
cMP
BNE
DEC

3s
TIMERZ2
TIMERS
48
CLKHZ,TIMTCK
43
TIMERS

;SEE IF WE'VE COUNTED 60 SECS. YET
;IF NOT, GO CHECK TIMERS

TIMER
TICK)

SEC.)

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT

3288
3289
3290
3291

020702
020710
020710
020710

18-APR-80 09:24

013777
000002

007262

166342

[ 6
18-APR-80

MACY11

30A(1052)

MOV
ENDSRV

CLKEN,3CLKCSR

09:246

CLOCK INTERRUPT SERVICE ROUTINE

4$:

PAGE 74

SEQ 0073

;REENABLE THE CLOCK TO INTERRUPT
L10010:
RT!

J 6
MACY11 30A(1052)
18-APR-80
EVENT LOG SUBROUTINES

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PTT
18-APR-80 09:24

EVENT LOG SUBROUTINES

THE SHORT ‘DPERATOR AWAKE'® MESSAGE TO CONSOLE THEN LOGS THE
EVENT TYPE, TIME, AND THE OTHER 3 WORDS OF INFO PASSED TO THE
SUBROUTINE AT CALLING TIME

:
INPUTS
TIMMIN & TIMSEC:
CURRENT VALUE OF '‘TIME-SINCE-START''
TEMP2:
WORD #1 OF EVENT LOG INFORMATION (FOR MOST EVENT TYPES)

TEMP3:

TEMPS :
MODS :

WORD #2 OF EVENT LOG INFORMATION
WORD #3 OF EVENT LOG INFORMATION

CURRENT VALUE OF THE MODEM SIGNALS AVAILABLE FROM THE DEVICE

OUTPUTS :

"DPERATOR AWAKE'' MESSAGE SENT TO THE CONSOLE

NEW EVENT LOGGED IN 'EVTLOG'® (EVENT LOG)

UPDATED "EVTPTR'' (EVENT LOG ENTRY POINTER)

A K

L NI FEL NI

PAGE 75

FUNCTIONAL DESCRIPTION:
THIS SUBROUTINE HAS A DIFFERENT ENTRY POINT
FOR EACH EVENT TO BE LOGGED AND ALWAYS PRINTS

L IR PN S TP Y YU
P TP 1Y

.SBTTL

09:24

SUBORDINATE ROUTINES USED:

"DVMODS’* THE DEVICE SUBROUTINE THAT RETURNS MODEM STATUS IN ‘MODS'’
(FOR SOME EVENT TYPES)

FUNCTIONAL SIDE EFFECTS:
TEMP:
USED TO STORE ADDRESS OF

TEMP1:

''OPERATOR AWAKE'®' MESSAGE
USED TO SETUP THE VALUE OF THE 'EVENT TYPE'' BYTE FOR LOGGING

CALLING SEQUENCE:
PC.LOGTXQ

JsR

012737
012737
000510

016045
000000

007174
007172

012737
012737
000501

016056
000002

007174
007172

012737
012737
000472

016067
000004

007174
007172

012737
000466

J07172

LOGTXQ:

LOGTXC:

LOGRXQ:

LOGRXCLGDVE:

sCALL THE LOG_EVENT SUBROUTINE WITH TEMP,TEMP1,
; TEMP2, TEMP3, AND TEMP4 SETUP

JSR

PC.LOGCMP

MOV
MOV
BR

#STXQ, TEMP1
#’ X0, TEMP

sSET UP MSG. TO PRINT
;SET UP EVENT TYPE
;GO LOG EVENT AND TIME

MOV
MOV
B8R

#STXC. TEMPI
#TXC, TEMP

;SET UP MSG. TO PRINT
sSET UP EVENT TYPE
;GO LOG EVENT AND TIME

MOV
MOV
BR

#SRXQ, TEMP1

sSET UP MSG. TO PRINT
sSET UP EVENT TYPE
;GO LOG EVENT AND TIME

MOV
BR

#RXC, TEMP

L)GST

LoGST

RXQ, TEMP

LOGST

LoGs|

;SET UP EVENT TYPE
;GO LOG EVENT AND TIME

SEQ 0074

K 6
18-APR-80

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

MACY11 30A(1052)

3348 020774 012737
33,9 021002 012737
gggg 021010 000474

MOV
MOV
B8R

#SDVE , TEMP1
#DER, TEMP
LOGSS

;SET UP MSG. TO PRINT
:SET UP EVENT TYPE
;GO LOG EVENT AND TIME

MOV
MOV

#SDVI, TEMP1
#OVI, TEMP

:SET UP MSG. TO PRINT
*SET UP EVENT TYPE

RPASS
. TEMP3
PARAM . TEMPS
LOGS3

:SET UP EVNT ENTRIES
:GO LOG EVENT AND TIME

MOV
MOV

#SCM, TEMP1
#DCK . TEMP

;SET UP MSG. TO PRINT
sSET UP EVENT TYPE

MOV
MOV
BR

#SCML
, TEMP?
#DLE, TEMP
LOGSS

;SET UP MSG. AND TYPE
:GO LOG EVENT AND TIME

MOV
MOV
BR

#SCAD
, TEMP1
#DDE , TEMP
LOGSS

;GO LOG MSG TYPE AND TIME

MOV
MOV
B8R

#SEOP, TEMP1
#EOP, TEMP
LOGSS

:GO LOG MSG TYPE AND TIME

CZCLKA.P11

3352

021012

3355
3356

021026
021036

3353
3354

18-APR-80 09:24

016100
000010

007174
007172

021012
021020

012737
012737

016122
000012

007174
007172

3357 021042
3358 021050
ggg 021056

013737
013737
000451

007230
007226

007200
007202

3362 021060 012737
33%3 021066 012737

016111
000014

3361

3364

113737
113737

021060

007220
007222

007174
007172

0004642

3366 021076
33%7 021106
3368 021112

012737
012737
000433

016133
000020

007174
007172

3370
3371
3372

021114
021122
021130

012737
012737
000424

016144
000022

007174
007172

3374 021132
3375 021140
.g;g 021146

012737
012737
000415

016155
000024

3378

013746

007144

020437

007144

000137

021404

0313737

010206

007202

3369

3373

3379
3380

3381

3382

021076

021114

021132

021150

021154
021160

021162

021166

3383

021170

gggg

021174

3384
3387

021202

004737
012604

001402

007174
007172

022737

000006

007172

3390

021212

032737

000001

007226

001434

3391

021220

001430

3394

021222

022737

000010

3339

021232

005037

007136

3398

021236

016042
000001

3402
3403

021250
021252

012746
012746
010600

gg%

3395

3399
300
3401

021230

021236
021242
021246

001012

104417
062706

000604

MOV
MOV
B8R
LOGCMP:

LOGCML:

LOGCMD:

LOGEOP:

MOV

007136

1$:
LOGS3:

MODTYP, TEMP2
MLTYP,TEMP2+1

LOGSS

ERRCNT,-(SP)

09:24

PAGE 76

PC.DVMODS
(SP)+,R4

: GO GET MODEM STATUS
*GET SAVED ERRCNT VALUE

BEQ

S BR IF NONE

R4, ERRCNT

JMP

LOGEX

MOV

MODS , TEMP4

cTMP

#RXC, TEMP

BIT

#STATB, PARAM

BEQ

*WHERE ANY ERRORS FOUND

: ELSE, LEAVE WITHOUT _OGGING ANYTHING

BUT THE DEVICE ERRUR FROM ‘D/MODS'’

SAND PUT IT IN TEMPS

LOGSS

;IF RXC DONT PRINT

LOGSS

;IF NO STATUS SELECTED

#10,LNCNT

;HAVE WE DONE 10?

CLR

LNCNT

*ESLE CLEAR IT

PRINTF

#CR

BEQ
BNE

LOGS4

SEQ 0075

;SAVE CURRENT ERROR COUNT

JSR
MOV

CMP

021202

021210

MOVB
MOVB

LOGST:

034064

3388

3389

LOGDVI:

007176
007177

021076

335

EVENT LOG SUBROUTINES

;GO T0 S

*IF NOT GO TO 4
;ELSE PRINT (R

MOV
MOV
MOV

TRAP
ADD

#CR,=(SP)
#1,<(SP)
SP.RO
CSPNTF
¥4 ,SP

6
MACY11 30A(1052) 1§~APR-80
09:24 PAGE 77

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.P1

18~APR-80 09:24

3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3619
3620
3421
3422
3423
3424

021256
021256
021262
021262
021266
021272
021274
021276
021302
021304
021310
021314
021322
021330
021334
021340
021344
021350
021354
021360
021364

062706
010346
013703
113723
013737
163737
113723
113723
113723
013723
013723
013723
020327
103404

3426
3627
3428
3429
3430

021366
021372
021376
021402
021404

012713
012703
010337
012603
000207

“

3425

3432

005237

007136

013746
012746
010600
104417

007174
000001

LOGSé:

000004

007300
007172
007260
007270
007172
007266
007264
007176
007200
007202
010204
177777
007302
007300

EVENT LOG SUBROUTINES

LOGS5:
007172
007172

LOGS2:

LOGEX:

INC
PRINTF

LNCNT
TEMPI

sINC COUNTER OF # OF AWAKE MSGS
;PRINT OPERATOR AWAKE MSG.

MOV
MOV
MOVB
MOV
SuB
MOV
MOVB
MOVB
MOV
MoV
MOV
cMP
8LO

R3,-(SP)
EVTPTR,R3
TEMP, (R3)
+
CLKHZ, TEMP
TIMTCK, TEMP
TEMP, (R3)+
TIMSEC, (R3)+
TIMMIN, (R3)
+
TEMP2, (R3) +
TEMP3, (R3) +
TEMP4, (R3) +
R3,#EVTEND
L0GS2

sSAVE R3 ON THE STACK

MOV
MOV
MOV
MOV
RTS

#-1,(R3)
N#EVTLOG,R3
R3_EVTPIR
(SP)+,R3
PC

;LOG EVENT
;LOG TIME SINCE START
sTICKS,SECS AND
;LOG EVNT ENTRY
;LOG EVNT ENTRY
:LOG EVNT ENTRY

MINS.
3
4
5

;IF EVENT LOG FULL GO

sCONTINUE ;ELSE GO TO 2

;LOG A _TABLE END
:PUT R3 TO START OF TABLE
SRESTORE POINTER
SRESTORE R3

SEQ 0076

MoV
MOV
MOV
TRAP
ADD

TEMP1 ,-(SP)
#1,-(SP)
SP,RO
CSPNTF

#4,SP

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.P11
18-APR-80 09:24

3433

MACY11 30A(1052)
.SBTTL

010246

18-APR-80 09:24
DUMP EVENT LOG AND BASE TABLE

:
REPORT

007172

PAGE 78

SEQ 0077

DUMP EVENT LOG AND BASE TABLE

R2,-(SP)
sSAVE R2,.R3,R4 ON THE STACK
R3,-(SP)
R4 ,-(SP)
CLR
TEMP
GMANIL #BASMIA,TEMP,1,YES

CSGMAN
TEMP
T$CODE
1BASH1A

007172

004
013702
023727
001034
012746
012746

000001
022442
007300
007302

BASN1

007146
007150
007152
177777

#BASE ,STADD

#BASE +255. ,ENADD

BASNt :

000004
022320

021530

000012

021534
021540
021542
021546
021554
021556

007302

021562
021566
021570

007300

021574

000012

010204
177776

000004
112237

010276

MNULEVT

SEEIIF
EVENT TABLE IS EMPTY
:BR
;1F EMPTY TELL OPRERATOR.

sMAKE R2 A POINTER TO EVENT TABLE

MOV
MOV
MoV
TRAP
ADD

;AND END

#2.R2

:NOW POINT BACK TO TOP OF ENTRY U

R2 ,#EVTLOG
RPT1
#EVTEND
R2
=2(R2) ,#-1
RPTO
ENDEVT

PgAN}INfioTO TOP OF EVNT LOG QUEUE?

;1F END OF LOG IS NOT EMPTY
cCONTINUE...ELSE EXIT

RPT1:

R2,EVTIPTR
RPTO
ENDEVT

cARE WE BACK TO POINTER?
;IF NOT_CONTINUE
;IF SO EXIT....

RPTO:

#12,R2

sPOINT R2 TO START OF ENTRY
;PRINT EVENT ENTRY HEADER

RPT:

177777

022320

015051
000001

GO DUMP BASE TABLE

ENDEVT

022320

012746
0600

#1,BYTBIT
PC_,DUMPSR

EVIPTR,R2
EVILOG,#-1
RPTO

015016
000001

021524

:1F NO BASE PRINT GO TO 1

RPTAA:

#EVTFO

MOV8
MOov8

(R2)+,R3
(R2)+,EVTTCK

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

SP_RO
CSPNTS

#6,SP

:JUST PRINTED

:SET R2 TO POINT TO BOTTOM OF LOG

;PUT EVENT TYPE INTO R3

53333

017370
017767

100008:

TEMP

#EVTFO,~(SP)

#1,-(SP)

SP,RO
CSPNTS

#6,SP

6
MACY11 30A(1052)
18-APR-80 09:24
DUMP EVENT LOG AND BASE TABLE

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.P11
18-APR-80 09:24

112237
112237

010272
010274

016346

010244

MOV8B
MOVB
PRINTS

(R2)+,EVISEC
(R2)
+ EVTMIN

PAGE 79

SEQ 0078

sPUT EVENT TIME (TICKS,SECS,MINS IN TEMP LOC.S)

#EVTF
T EVTMIN,EVTSEC,EVTTCK,EVTLST(R3)

cPRINT EVENT TIME AND DESCRIPT.
EVILST(R3) ,~(SP)
K)V

EVITCK,=(SP)

ADD

M4, SP

MOV
MOV
MOV
MOV
MOV
TRAP

012237
012237
012203

RPTTXQ:

JSR
JMP

012237
012237
012237

aRPTDSP(R3)

sDISPATCH TO DECODING SECTION FOR SPECIFIC TYPE

(R2)
+ ,EVTADD
(R2)+, EVTBCT
(R2)+ ,R3

;STORE MESSAGE ADDRESS FOR PRINTING
;STORE BYTE COUNT FOR PRINTING
:STORE MODEM STATUS FOR PRINTING

NEVTF2,EVTADD,EVTB8CT

013746

RPTDER: MOV

PRINTS

013746

sPRINT ADDR,BYTE CNT

MoV
MoV
MOV
MOV
MoV

EVTIBCT,~(SP)
EVTADD ,-(SP)
WEVTF2,-(SP)
#3,-(SP)
SP,RO

ADD

#10,sP

PC ,RPTMSB
RPT

;GO PRINT MODEM STATUS
;GO BACK FOR NEXT EVENT ENTRY

(R2)+,EVTTMP
(R2)+.DEV1

:GET ADDRESS OF DEVICE INFC MESSAGE
:STORE DEVICE REG CONTENTS FOR PRINTING

SEVIFS EVITMP

;PRINT DEVICE REG CONTENTS.

(R2)+,DEV2

#EVTF3C ,DEV1,DEV2

EVITMP,-(SP)
W#EVTF3,-(SP)
#2,-(SP)
SP,RO

ADD

#6,SP

MOV
MoV
MOV
MOV
MoV

DEV2.~-(SP)
DEV1,-(SP)
#EVTF3C,-(SP)
#3,-(SP)
SP.RO

ADD

Mo,sp

TRAP

RPT
RPTDV]:

022102

DEV?
DEV2
(R2)+,DEV
(R2)+,DEV
(R2)+,DEV
(R2)+,DEV4

RZ-'(SP)

PC, SHWOP

;60 BACK FOR NEXT EVENT ENTRY

CSPNTS

MOV
MOV
MOV
MoV

TRAP

PRINTS

EVTSEC,-(SP)
EVTMIN,-(SP)
#EVTF1, -(SP)
#5,-(SP)
SP,RO
CSPNTS

CSPNTS

;CLEAR UPPER BYTES OF DEV1 & DEVZ BEFORE USE
SSTORE SETUP OPERATION PARAMETERS FOR PRINTING

JSAVE R2 ON THE STACK

;GO PRINT MODE, MAINT-LOOP TYPE, PARAMTERS.

CZCLFAQ DMR,DMC~11 DATA COMM, LINK TEST
CZCLKRA.P1Y
18-APR-80 09:24

3545

PRINTS

013746
013746
013746
012746
012746
010600

104416
062706

000012

000137

021530

JMWP

012237
012237
012237

010300
010302
010304

RPTDDE : MOV

013746
013746
013746
012746
012746

010304

000012
021530

022240

022244
022244

AND BASE TABLE

MOV
JMP
RPTEOP: MOV
MOV
MOV

012237

022174

MACY11 30A(1052) 13-APR-80 09:24 PAGE 80
DUMP EVENT LOG

012237
012237
012237

010300
010302
010304
010304

0
022310

013746
013746
013746
012746
012746
010600
104416
062706

000012

022314

000137

021530

022320
022322
022324
022326

012604
012603
012602
000207

MOV
MOV

PRINTS

JMP
RPTDLE :
RPTDCK: MOV

MOV
MOV

PRINTS

(SP)+,R2
RPY
(R2)+,EVIADD
(R2)+ EVTBCT
(R2)+ ,EVITMP

SEQ 0079

sRESTORE R2
;GO BACK FOR NEXT EVENT ENTPY

WEVTF4B,EVTADD,EVTBCT,EVTTMP

;PRINT ADDR,RXBYTES,CMPBYTES.

MoV
MOV
MOV
MoV
MOV
MOV
TRAP
ADD

RPT

sTHEN GO GET NEXT EVENT ENTRY

(R2)+,EVTADD
(R2)+,EVIBCT
(R2)+ EVITMP

s STORE MESSAGE ADDRESS FOR PRINTING
;STORE BYTE COUNT FOR PRINTING
:STORE TOTAL # OF CMP ERRORS

#EVTF&,EVTADD,EVTBCT,EVITMP

;PRINT ADDR, BYTE (NT, # CMP ERRS

RPT

;THEN GO GET NEXT EVENT ENTRY

(R2) +,EVTADD
(R2)+,EVIBCT
(R2) +,EVITMP

:STORE MSG ADDR FOR PRINT
sSTORE BYTE COUNT
;STORE BYTE COUNT COmP

WEV
EVTADD
TF4
,EVTBCT EVTTMP
A

MoV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

ENDEVT: MOV

MOV
MOV
RTS

RPT

sTHEN GO GET NEXT EVENT ENTRY

(SP)+,R4
(SP)+,R3
(SP)+,R2

;RESTORE R4 ,R3,R2

;REPORT MODEM STATUS SUBROUT INE
PART OF

JRETURN TO CALLING ROUTINE

STATISICAL REPORTING

EVITMP,~(SP)
EVIBCT,=-(SP)
EVTADD
.~ (SP)
#EVTF&4 ,~(SP)
#4,~(SP)
SP,RO
CSPNTS
#12,SP

sPRINT ADDR,RXBYTES,CMPBYTES.

MOV
MOV
MOV
MOV
MOV
MOV

EVITMP,~(SP)
EVIBCT,~(SP)
EVTADD
, ~(SP)
NEVTFLA,~(SP)
#4,~(SP)
SP,RO

ADD

M2, sP

TRAP

JMP

EVITMP =(SP)
EVIBCT.~-(SP)
EVTADD,
- (SP)
FEVTF4B,-(SP)
#4,-(SP)
SP,RO
CSPNTS
#12,SP

(DUMPING EVENT LOG)

CSPNTS

MACY11 30A(1052) 1S-APR-80 09:24 PAGE 81

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA. PN
18-APR-80 09:24

SERERERERRE A a3

3601
3602
3603

022330

3605

012746
012746
010600

015707

RPTMS8 :

sPRINT MODEM STATUS HEADER

:
63

015767
000001
000004

MOV
MoV

MMOBITS
R4
A#MOMSGS
RS

BNE
MOVB

78
#'X,a(RS5)+

8IT

9s
(R4)+,R3
8s

TST

000061

000060
010226

(SP)
, - HD
#EVMO

SP,RO
CSPNTS

7%:

022440

#EVMOHD

SEQ 0080

#1,-(SP)

000130

012746
012746

PRINTS

000001

000004
010210
010226

VOO NOWVES
W —O

DUMP EVENT LOG AND BASE TABLE

8$%:

9%:

(R&)

(R4+

MOv8

#'1,3(R5)+

MOVB

#'0,a(R5)+

gg.moens

PRINTS

#EVMOST

#4,SP

JMAKE R4 A POINTER TO MODEM SIG. BIT DEF. TABLF
sMAKE R5 A POINTER TO MODEM MSG. POSITION TABLE
sSEE IF BIT AVAIABLE FROM DEVICE
;BR IF THAT MODEM SIG. AVAIABLE
;ELSE PUT "'’ IN REPORT IF SIGNAL NOT AVAILABLE
;BUMP R4 TO POINT TO NEXT BIT DEFINITION
;GO SEE IF CHECKED ALL MODEM SIGNALS
:1F THERE, SEE IF THAT BIT IN DEVICE'S ENTRY=1
;BR IF BIT (SIGNAL) VALUE =0
sIF=1, PUT *1°° IN REPORT MESSAGE
;GO SEE IF ALL MODEM SIGNALS CHECKED
;IF BIT(SIGNAL)=0, PUT ‘0'' IN REPORT MESSAGE
;SEE IF ALL BITS(SIGNALS) CHECKED
;LOOP UNTIL ALL SIGNALS(BITS) CHECKED
:THEN PRINT MODEM SIGNAL VALUE KSSAGE

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

SP,RO
CSPNTS

RTS

JRETURN TO EVENT DECODING

#4,SP

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PTY
18-APR-80 09:24

MACY11 30A(1052)
18-APR-80
DUMP BYTES OR WORDS

09:264

PAGE 82

3631

.SBTTL

3634
3635
332%9

S+
; FUNCTIONAL DESCRIPTION:
:
DUMPSR - DUMP BYTES OR WORDS SUBROUTINE

3638
3639
3640

:
;
:

3632
3633

3641
3642
3643
3644
3645
3646

SEQ 0081

DUMP BYTES OR WORDS

THIS SUBROUTINE PRINTS THE CONTENTS OF THE LOCATIONS BETWEEN
A STARTING AND END ADDRESS IN LOCS. ‘‘STADD'' AND ‘ENADD''.
THE WORD OR BYTE CONTENTS ARE PRINTED 8 TO A LINE WITH THE
ADDRESS OF THE FIRST BYTE AS THE FIRST 6 OCTAL CHARS. FOLLOWED
BY A SEMICOLON.

;
;
:
; INPUTS:
:
STADD=
;
ENADD=

3649

332232

;

3647

;

3650

STARTING ADDRESS (FIRST LOC. TO FRINT)
END ADDRESS (LAST LOCATION TO DUMP)
BYTBIT= 1 IF SUPPOSED TO PRINT ‘BYTES'
0 IF SUPPOSED TO PRINT ‘WORDS''

. OUTPUTS:

3653

CONTENTS OF A RANGE OF LOC.S PRINTED ON THE OPERATORS CONSOLE.

: CALLING SEQUENCE:

332?%

JSR PC.DUMPSR

3658

022442

013702

007146

3661
3662
3663
3664

022450
022452
0226456
022462

010246
012746
012746
010600

015010
000002

MoV
MOV
MOV
MOV

R2,-(SP)
#BASM1,
- (SP)
#2.-(SP)
SP.RO

3666

022466

062706

000006

ADD

#6,SP

3668

022476

001416

3670

022504

CLR
BISB

-(SP)
TEMP, (SP)

TRAP
ADD

CSPNTF
#6,SP

3659
3660

3665

3667

3669
3671
3672

3673
3674
3675

3676

3677

3678

3679

3680
3681
3682
3683
3684

3685

3686

022446
022450

022464

022472

022500

005003

104417

005737

007152

112237

007172

022504
022506

005046
153716

007172

022524

104417
062706

000006

022512
022516
022522

022526

012746
012746
010600

DUMPSR: MOV
DUM4:

CLR
PRINTF

STADD ,R2

;CALL DUMP BYTES SUBROUTINE

R3
#BASM1,R2

:SET R2 UP TO STARTING ADDR.

:CLEAR R3
:PRINT ADDRESS

TRAP

DUM3:

TST

BYTBIT

xs THIS BYTE OR WORD

MOVB

(R2)+,TEMP

nov BYTE TO TEMP

BEQ

PRINTF

DUM1

CSPNTF

BR IF WORD

#BASMS.<B,TEMP> :PRINT BYTE

014772
000002

MOV
MOV
MOV

MBASM3
- (SP)
#2,~(SP)
SP.RO

022532

000411

022534
022536
022542
022546

012246
012746
012746
010600

015001
000002

MOV
MOV
MOV
MOV

(R2)¢ ,-(SP)
#BASMS
- (SP)
#2,~(SP)
SP.RO

022552

062706

000006

ADD

#6,SP

022534

022550

022556

104417

020237

DUM1:

007150

PRINTF

DUM2

#BASM2,(R2)+

:;PRINT WORD

TRAP

DuM2:

R2,ENADD

;COMPARE FOR LAST ADD

CSPNTF

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA PN
18-APR-80 09:24

3687
3688
3689
3690
3691
3692
3693
3694

022562

022574

003005
005203
022703
001725
000736

022576

000207

MACY11 30A(1052)

DUMP BYTES OR WORDS

000010

DUME
X :

DUMEX

BGT
INC
CMP
BEQ
BR

#8. ,R3

RTS

18-APR-80

09:24

PAGE 83

;IF DONE EXIT

;ELSE BUMP R3

DUM4

puM3

;1F SO GO BACK TO 4
JELSE GO BACK AND PRINT ANOTHER

JRETURN TO CALLER

sHAVE WE PRINTED 8 ACCROSS

;BYTE OR WORD

SEQ 0082

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PI
18~APR-80 09:24

MACY11 30A(1052)

UPDATE TOTAL CHAR.

.SBTTL

F
7
18-APR-80

09:24

COUNT SUBROUTINE

UPDATE TOTAL CHAR.

PAGE 84

SEQ 0083

COUNT SUBROUTINE

. *e

; FUNCTIONAL DESCRIPTION:

UPDATES TOTAL CHAR. COUNT TOTCC BASED ON CURCC.
LAST MESSAGE IS TRUNCATED TO FIT INTO THE
BUFFER IF TOTAL CHAR. COUNT EXCEEDS 'BUFLIM'' A MESSAGE
IS PRINTED TELLING THE OPERATOR THE TRUNCATION OCCURED.

L INPUTS:
* OUTPUTS:

CURCC=

CHAR.

COUNT OF MESSAGE BEING ADDED

TOTCC=

TOTAL CHAR COUNT OF BUFFER ITS BEING ADDED TO

MESSAGE

TO OPERATOR IF MESSAGE

TRUNCATED TO FIT

* FUNCTIONAL SIDE EFFECTS:
LOCATION '‘TEMP'' USED FOR CALCULATIONS
:
SEQUENCE
* CALLING
JSR

022614

063737
022737
103027

007156
001000

007166
007166

ADDCC:

ADD

cwe
BHIS

PC,ADCC

;UPDATED TOTAL CHAR.

COUNT

CURCC,TOTCC

<ADD CURRENT TO TOTAL

ADDC1

;IF NOT MORE THEN 'BUFLIM'' EXIT

#BUFLIM,TOTCC

COMPARE

TO ‘BUFLIM'’

: PRINT MESSAGE AND TRUNCATE COUNT
022616
022616

022622

022674

012746
0127406
010600
1046417

PRINTF

014102
000001

000004
007156
001000
007166
007172
007156

007166
007172
007172
007156
007166

MSGTRU

CURCC,TOTCC
NBUFLIM,TEMP

#MSGTRU,-(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP

TOTCC,TEMP

:SUB TOTAL FROM ‘BUFLIM'’

CURCC, TOTCC

;ADD ''ADJUSTED CURRENT'' TO TOTAL CHAR. CNT.

TEMP, CURC(C

ADD(C1:

;SUB CURRENT FROM TOTAL
;MOV 'BUFLIM* TO TEMP

MOV
MOV
MOV
TRAP
ADD

JAND ESTABLISH NEW CURRENT
JRETURN TO CALLER

CZCLFAQ DMR,DMC~11

CZCLKA.P

DATA COMM. LINK TEST

MACY11

18-APR-80 09:24

30A(1052)

18~APR-80

09:264

BUILD MESSAGE BUFFERS SUBROUTINE

LSBTTL

PAGE 85

SEQ 0084

BUILD MESSAGE BUFFERS SUBROUTINE

s FUNCTIONAL DESCRIPTION:
BLDBUF=~

BUILD POINTER TABLE AND BUFFERS

THIS SUBROUTINE ADDS A MESSAGE TO THE TRANSMIT OR EXPECT LIST

USING THE POINTER, BYTE COUNT, AND ADDRESS PASSED TO IT.

INPUTS:
CURCC=
C(HAR. COUNT OF MESSAGE TO BE ADDED
CURADD= ADDRESS OF MESSAGE TO BE ADDED
CPTR=
ADDRESS ?(FJ gglgaszTABLE WORD WHERE MESSAGE POINTERS ARE
MSGTYP= VALUE TO USE AS AN INDEX TO FIND SOURCE OF MESSAGE DATA

: OUTPUTS

INDEX INTO DMSGCT() AND DMSGAD().

A MESSAGE ADDED TO EITHER TXBUF OR CMPBUF
APPROPRIATE POINTERS IN PTRTAB POINTER TABLE

: CALLING SEQUENCE:
;
JSR PC,BLDBUF
022676
022676
022700
022702

010246
010346
013702

022706
022712

013722
013722

010237
013702
006302
013737
063737
013703
016237

BLDBUF :

BLDB1:

007176

BLDBZ2:

BLDB3:

007164

TM ADD PTRS.

MOV
MOV
MOV

R2,~(SP)
R3,-(SP)
CPTR.R2

;SAVE R2 AND R3 ON THE STACK

MOV
MOV
MOV
MOV

CURADD, (R2) +
CURCC, (R2) +

R2,CPTR
MSGTYP,R2

sPUT
;PUT
;PUT
;GET

MOV
ADD
MOV
MOV
MOV
ADD
MOVB

CURADD, TEMP
;MOVE CURRENT ADD TO TEMP
CURCC,TEMP
cADD CHAR COUNT TO IT TO GET END
CURADD ,R3
;SET R3 TO CURRENT START ADD
DMSGCT(R2) , TEMP?
:GET BYTE COUNT
DMSGAD (R2) ,R¢
;PUT STARTING FROM ADD IN R4
R4, TEMP2
;ADD IT TO TEMP2 TO GET END OF FROM
(R4)+,(R3)+
;MOV BYTE FROM PATTERN TO BUFFER

8tQ
cMP

BLDBEX
R4, TEMP?

ASL

007172
007172

:BUILD MESSAGE IN BUFFER

cMP

BEQ
BR

BLDBEX: ADD

MOV
MOV
RTS

CURRENT
CURRENT
UPDATED
MESSAGE

ADD ON POINTER TAB
CC ON POINTER TAB

R2 BACK TO CURRENT POINT
TYPE TO USE AS INDEX

;DOUBLE FOR WORD INDEX

R3,TEMP

;ALL DONE?
;1F SO EXIT
;1S PATTERN COUNT EXPIRED
;1F SO GO START AGAIN
;IF NOT GET ANOTHER BYTE

BLDB?2
8LDB3

CURCC, CURADD

(SP)+,R3
(SP)+,R2

;BUMP CURADD

;RESTORE R3 AND R?2

JRETURN TO CALLER

H 7
MACY11 30A(1052)
18-APR-80
09:26
PAGE 86
SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA P
18-APR-80 09:24
LSBTTL

SEQ 0085

SHOW MODE OF OPERATION, LOOP TYPE AND QUAL
IF JERS

MR A4

: FUNCTIgNAL DESCRIPTION:

HWOP - SHOW MODE OF OPERATION, LOOP, QULAIFIERS
PRINTED ON THE OPERATOR'S CONSOLE.

t INPUTS:

DEV1=
DEVZ=
DEV3=
DEV4=

[

;
H

MODE TYPE (MODTYP)
MAINT LOOP TYPE (MLTYP)
"RUN PASS'' COUNT (RPASS) ~ COUNT DOWN
PARAMTERS WORD (PARAM)

IMPLICIT INPUTS:
MODES= TABLE OF ADDRESSES OF MODE NAME STRINGS
LOOPS= TABLE OF ADDRESSES OF LOOP TYPE NAMES

* CALLING SEQUENCE:

JSR PC, SHWOP

3810
Lole RNTo NV, PJVI[,8]

SRR &

013702
006302
016237
013702
006302
012737
005702
001003
012737
016237

013737

013746

010334

SHWOP:

P
ASL

DEV1,R2
R?

;GET THE MODE TYPE IN R2
*MAKE IT A WORD TABLE OFFSET

25"2'"2

:GET MAINTENANCE LOOP TYPE

MOV

MODES(R2),TEMP :GET ADDRESS OF MODE-IN-ASCII

007200

MOV

007200
007174
007176

BNE
MOV
MOV
MOV

#LPOO, TEMP3
;LOAD TEMP3 TO POINT TO '‘/LOOP=""
R2
:SEE IF /LOOP=XXXXX OR NONE
108
: BR IF /LOOP= OF SOME ¥ IND
#LPO, TEMP3
*IF NO LOOP THEN DON'T PRINT ‘‘/LOOP=""
LOOPS (R2), TEMP1 :GET ADDRESS OF LOOP-IN~-ASCII
DEV3, TEMPS
*GET NUMBER OF PASSES

003260
010336

007172

013457

013456
003276
010340

:KSJ\L/
TST

108:

PRINTS

007176
007174
007200
007172
014165
000005

#SHFO,TE
TEMP3. TEMP1,
MP,
TEMP?

012737

MOV
MOV
MOV
MOV
MOV
MOV

TRAP
ADD

000014

023140
023142
023150
023156
023160

CLR

013536
000001

007172
010342

013534
013547
000002

007172
007174
010342

1$:

013545
013557
000004

007174
007176
010342

28:

013555

007176

MOV
BIT
BNE
MOV
MOV
BIT
BNE
MOV
MOV
BIT

BNE
MOV

#PST, TEMP

#STATB.DEV4

18
#PNST, TEMP
#PCK, TEMP1
#DATCKB,DEVG
2
#PNCK
, TEMP1
#PEC, TEMP2
#ECHOB, DEV4
5$
#PNEC
, TEMP2

:NOW SET UP FOR QUALIFIERS IN ASCII
;SEE IF /STATUS OR /NOSTATUS

‘BR IF /STATUS
;SEE

IF /CHECK OR /NOCHECK

‘BR IF /CHECK

;SEE IF /ECHO OR /NOECHO

‘BR IF /ECHO

TEMP2,-(SP)
TEMP]
- (SP)
TEMP3,-(SP)

TEMP,~(SP)
#SHFO,~-(SP)
#5,~(SP)

CSPNTS

#14,SP

[ 7
MACY11 30A(1052)
18-APR-80 (9:24 PAGE 87
SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLRA.PN
18-APR-80 09:24

3847

023236

33329

023272

3848
3849
3850
3851
3852
3853
3854
3855

023236
023242
023246
023252
023256
023262
023264
023266

013746
013746
013746
012746
012746
010600
104416
062706
000207

007176
007176
007172
014223
000004
000012

5%:

PRINTS

A#SHF1,TEMP,TEMP1,TEMP?

RTS

;RETURN

SEQ 0086

;. TEMP3 TEMP4 ++;SEE NOTE ABOVE

MOV
MOV
MOV
MOV
MoV
MOV
TRAP
ADD

TEMP2,~(SP)
TEMP1,-(SP)
TEMP,~(SP)
#SHF1,-(SP)
#4,-(SP)
SP,RO
CSPNTS
#12,SP

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT

MACY11 30A(1052)

18-APR-80 09:24

7
18-APR-80

09:24

TRAVERSE COMMAND LINE SUBROUTINES

PAGE 88

3859

.SBTTL

3861
%

s+t
;

3864
3865
3866
3867

;PARSE THE COMMAND LINE SUBROUTINE
:TAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE
;PARSING DIRECTIONS FROM °'‘CLI PARSING NODES''
;.
REGS USED:

3869
3870
3871
3872
3873
3874
3875

:
R1,R5=SCRATCH
:
R2ZACTION CODE PARAMETER FROM TREE
:
R3=PARSE TREE POINTER
:
R4=INPUT STRING POINTER
: CALLING SEQUENCE:
:
JSR
PC.PSTRV
tem

3876
3877

023274

3880
3881

023304
023306

3883

0233146

003023

023320

006305

3878
3879
3882

023274
023300

023310

3884

023316

3886
3887

023322
023326

3885

013704
013703

003310
003312

121327

000013

105714
001441

016505
062705

023332

004715

3891
3892
3893

023336
023340

000114
000134

3896
3895
3896

3897
3898
3899
3900
3901

g%%

023334

023342
023344
023346

023350
023352
023354
023356
023360

023362

3907
3908

3909
3910

3911
3912
3913
3914

PSTRV SUBROUJ TNE

MOV
MOV

(R4)
PSEXIT

;SEE IF ANY CHARS LEFT IN INPUT STRING
*BR IF NO

BGT

208

*BR IF REGULAR ASCil CHAR.

ASL

cTMe8

023336
023336

108:

000152
000162
000204

000270
000604
000650
000270
000256

(R3).mM1.
(R3) ,RS

;SEE IF SPECIAL CLI CHAR CODE OR ASCII

;GET SPECIAL CHAR CODE INTO RS

MOV
ADD

10$(RS) ,RS
#1083 RS

P$TRS

PC, (RS)

;JSR TO SPECIAL CLI TRAVERSE ROUTINE

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

TRVERR-10%
TRVEXI-10$

;TRAVERSE TABLE FOR '‘CL] FUNTIONS''
Iy

JSR

000763

PSBUFA
R4
PSTREE ,R3

PSNUM=NUMERIC CODE FROM DATA

TSIB
BEQ

MOVB

.WORD

gggg

3906

PSTRS:

111305

3888

3889

PSTRV:

TRAVERSE COMMAND L INE SUBROUTINES

TRVBR-10%
TRVBIF-10%
TRVSPA-10$

TRVNUM-10$
TRVALP-10$
TRVALN-10%
TRVOCT-10$
TRVDEC-10%

TRVSTR-10%

;BUILD TRAVERSE ROUTINE ADDRESS
;GO SEE IF MORE OF STRING LEFT

;2
;3
24

;5
;6
;7
;8
;9

:10

;NOT A SPECIAL CODE

023364

023366
023370

023374

023376

023402

023406
023410

121314

208 :

001403
004737

023434

004737

023414

000743
062703
005204
000735

000004

228:

TM8

BEQ
JSR

(R3), (R4)

:BR IF A MATCH
;IF NOT A MATCH, GO TAKE MISS BRANCH

PC.,TRVACT

;1F A MATCH, GO DO ACTION DEF INED BY

PS$TRS

ADD

#4 ,R3

JSR

INC
BR

;SEE IF FIRST CHAR OF STRING IS A MATCH

22%
PC, TRVBRC

R4
P$TRS

; THEN GO BACK PT'G TO MISS NODE

; ACTION CODE IN CLI NODE, THEN
; ADJUST PTR TO NEXT CLI NODE
;ADJUST BUF PTR TO NEXT CHAR IF MATCH

SEQ 0087

CZCLFAO DMR,DMC~-11 DATA COMM, LINK TEST

CZCLKA.P11
3915
gg}g

023412

18-APR-80 09:24
000207

3921

3022

023414

116302

000001

013705

003314

023420

042702

023430

004715

gggg

023432

000207

3927
3928

023434

016305

gggg

023442

000207

3929

3932

3933
%3%‘5’

3936

023440

023444
023450

060503

062703
000207

:GOTG USER ACTION ROUTINE

177400

ADD

TRVNOB: ADD
RTS

3062
3043

023472
023476

004737
105037

023414
003325

TRVEXI: JSR
CLRB

003325

TRVERR: JSR
MOVB
TST

023502
023504

005726
000137

023412

023510

004737

023414

TRVBR:

023520

004737

023414

TRVBIF: JSR

023530
023532
023536

001402
000137
000137

023434
023444

18:

BEQ
JWP
P

3956
3957

023542
023544

005005
121427

000011

TRVSPA: CLR
1$:
P8

3959
3960

023552
023554

005204
005205

3963

023560

3965
3066

023566
023570

3968
3069

023574
023576

3950
3951

3952
3953
335515.
3958

ggg}

3064

3067
3970

023524

023550

023556
023564

023572

023600

000137
105737

001003

023434
003325

121427

000764

005705
001404

004737

108:

023414

: AND POINT R3 TO THE 'MISS'' NODE
: RETURN TO PSTRV

#4 R3
PC

;THINGS OK, UPDATE R3 TO POINT TO NEXT
* NODE AND RETURN TO PSTRV

PC,TRVACT
#-1.P$GDSD
(SP)+

:TAKE ERROR ACTION
*SET ERROR RETURN FLAG
:GET RID OF ‘"JSR PUSH TO TRVERR''

PC,TRVACT
P$GDBD

sTAKE EXIT ACTION
:SET GOOD/BAD FLAG TO *‘SUCCESS (0)'’

PSEXIT

:RETURN DIRECT TO EXIT OF P$TRV ROUTINE

JSR

PC.TRVACT

:GO TAKE BRANCH ACTION

JMP

005204
005205

;GET BRANCH DISPLACEMENT FROM TREE

*GET RID OF ‘‘JSR PUSH TO TRVEXI'®
sRETURN DIRECT TO EXIT OF PSTRV ROUTINE

BNE

28:

SRETURN TO CALLING CODE

(SP)+
PSEXIT

INC
INC

000040

:GET ADDRESS OF CLI ACTION ROUTINE

TST
JMP

7ST8

000772
001003

:NO BRANCH TAKEN

000004

JMP

023514

RS.R3

RTS

023412

005726

:GO DO ACTION DEFINED BY CODE

:TAKE BRANCH IN TREE
TRVBRC: MOV
2(R3) RS

000002

;GET ACTION CODE FROM CLI NODE

PC, (RS)

RTS

000137

ggzg

;RETURN FROM PARSER

:CLEAR ANY SIGN EXTENSION

PSACT RS

JSR

023414
177777

3047

PAGE 89

#177400 ,R2

MOV

004737
112737

023466

1(R3) ,R2

BIC

023452
023456
023464

3944
&g

TRVACT: MOVB

3937
3038
3939

§3",,?

09:24

3023 023426
3924

K 7
18-APR-80

TRAVERSE COMMAND LINE SUBROUTINES

PSEXIT: RTS

3918
3919

3920

MACY11 30A(1052)

CMPB

BNE

TRVBRC

PC,TRVACT

P$GDBD

SIF CLEAR FALL THRU TO NEXT NODE
SELSE TAKE THE 'MISS’' BRANCH
:JUST UPDATE TO NEXT NODE IF THINGS OK

RS
(R4).#N

;CLEAR ''SPACE OR TAB FOUND'’ FLAG
SSEE IF CHAR. IN CMD LINE= TAB

R4
RS

*INC INPUT STRING POINTER
*INDICATE A TAB FOUND

(R4) .40

108

INC
INC

R4
RS

TST
BEQ

RS
158

JSR

;SEE IF PSGDBD SET OR CLEARED BY ACTION

18
TRVBRC
TRVNOB

;BR IF NO, NOT A TAB

:G0 CHECK NEXT CHAR

;SEE IF CHAR. IN CMD LINE= SPACE

:BR IF NO, NON-SPACE OR NON-TAB CHAR.

SINC INPUT STRING POINTER
SINDICATE A SPACE FOUND

GO CHECK NEXT CHAR

PC, TRVACT

:GO TAKE ACTION IF ANY FOUND

:SEE IF ANY SPACES OR TABS FOUND
:BR IF NO, TAKE NO ACTION

SEQ 0088

MACY11 30A(1052) 1%-APR-80 09:24 PAGE 90

CZCLFAO DMR,DMC~11 DATA C(fiéfl LINK TEST
CZCLKA.PT
18-APR-80 09:

000137
000137

023444
023434

012737
000137

000012
023634

003322

012737

000010

003322

15$:

000053

000055
177777

TRAVERSE COMMAND LINE SUBROUTINES

TRVDEC: SK’)X

118:

000012

121427
003003
005204
005205
000741

003325

000071

128:
138:

2s:

003320

3s:

000060
003320

003320
003320

003316

003320

003322

cMP8
BNE
B8R
cMP8

BNE
MOVB
INC

cMP8

000012

#8. ,PSRADX

sUSE OCTAL AS RADIX AND ASSUME +

(RG) 4+
108
118

SEE IF THERE S A ¢+ SIGN THERE
; BR_IF NO
; ELSE PSRADX ALREADY SAYS +, JUST BR

;CLEAR DIGIT COUNTER

(RG) #°~

SSEE IF THERE'S A - SIGN THERE

;BUMP R4 TO POINT TO FIRST CHAR

18
#-1_,PSRADX+1

: BR IF NO
sSET "MINUS FLAG'®' (HI BYTE OF PSRADX)

(R4) ,#60

;SEE IF CHAR. LESS THAN A 'O’

cMP8
BLE
CMP8
8EQ
cMP8

(R4) 467
138
PSRADX,#10.
128
(RG) . AN

;SEE
: BR
'SEE
: BR
:SEE

PRINTF

#CLIBRX

BLT

BGT

012217
000001
000004
177777

sUSE DECIMAL AS RADIX AND ASSUME +

CLR

000071
012746
012746

fleh.H:SRADX

TRVNMA:

000067
003322

:JUST GO UPDATE R3 TO NEXT NODE [F OK
s TAKE BRANCH (MISS) IF NONE FOUND

;(SAME AS TRVNUM SINCE DEFAULT RADIX IS OCTAL)

TRVNUM: MOV

1$:

000060

TRVNOB
TRVBR(

TRVOCT:

108:

003323

JMP
JMP

SEQ 0089

;BR _IF YES (NOT NUMERIC)

IF
IF
IF
IF
IF

CHAR. GREATER THAN A '7°°
YES
IN DECIMAL MODE
YES (CAN USE HIGHER LIMIT)
DIGIT WAS A 8O0RY9

:BR
IF NON-NUMERIC

SELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX

MOV
MOV
MOV
TRAP
ADD

#CLIBRX ,-(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP

MOVB
BR

#-1,P$GDBD

;SET ERROR RETURN FLAG
; PRINT ERROR AND TAKE MISS

cMP8
8GT
INC
INC
B8R

(R&) 471
2%
Ré
R5
18

;SEE IF CHAR. GREATER THAN A 'Y’
;BR IF YES (NOT NUMERIC)
sUPDATE CMD LINE PTR TO NEXT CHAR.
s INDICATE A NUMERIC FOUND
;GO LOOK AT NEXT CHAR.

TST

SEE IF FOUND ANY NUMERICS

'S'LJ;

2’50.2}

GET POINTER TO START OF NUMERIC STRING

CLR
Psll).\!B

PSNUM
(R1);éR2

sCLEAR LOC. WHERE VALUE WILL BE STORED
sGET ASCII CHAR AND CONVERT IT TO A #

ASL

PSNUM

sSHIFT CURRENT VALUE TO MAKE ROOM

BEQ

BR _IF NO, TAKE °MISS’‘ BRANCH

8CS
MOV

73
PSNUM, PSCNT

;ERROR IF NUMBER TOO BIG
sSAVE FOR LATER IN CASE DECIMAL RADIX

Rgf

;ERROR IF NUMBER TOO BIG

B8CS
P8
BNE

73
PSRADX ,#10.
43

cERROR IF NUMBER TOO BIG
sSEE IF DECIMAL RADIX
:BR IF NOT EQUAL

ASL

PSNUM

n 7
18-APR-80

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

MACY11 30A(1052)

4027
4028
4029
4030

ADD
8(CS
ADD
B8CS
DEC
BNE
TST8
BEQ
NEG
JSR
JMP

PSCNT ,PSNUM
7$
R2.PSNUM
7$
R5
38
PSRADX +1
15$
PSNUM
PC, TRVACT
TRVNOB

PRINTF

#CLINBG

CZCLKA.P1

18-APR-80 09:24

4031
4032
4033
4034
4035
4036
28%;

024062
0264064
024066
024072
024074
024100
024104

063737
103416
060237
103413
005305
001344
105737
001402
005437
004737
000137

4039
6040
4041
4042
4043
4044
64045
%

024110
024110
024114
024120
024122
026126
026130
0264136

012746
012746
010600
104417
062706
112737
000137

4048
4049
4050
4051
4052
4053
4054
4055
4056

026142
026144
024150
026152
026156
024160
024162
024164

005005
121427
002406
121427
003003
005204
005205
000767

4057
4058
4059
4060

4061

4063
4064
4065
4066
4067
4068
4069
4070

4071
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081
4082

024044
024052
024054
024060

024166
0264170
024172
024176

005705
001404
004737
000137

0264206
0264210
024216
024216
024222
024224
0264226
024230

005005
121427
002417
121427
003003
005204
005205
000767

4202

024232
024236
0264240
024244
024246
024250
024252
024254
024256
024260
024264
024270

000137

121427
002406
121427
003003
005204
005205
000756
005705
001404
004737
000137
000137

003316

003320

48:

003323
003320
023414
023444

158:
78:

012175
000001
000004
177777
023434

000101
000132

003325

5%:

023434

000060
000072

000101

PAGE 91

SEQ 0090

sERROR IF NUMBER TOO BIG
;ERROR IF NUMBER TOO BIG

sSEE IF NUM WAS PRECEDED BY A - SIGN
: BR IF NO
; ELSE NEGATE THE NUMBER BEFORE LEAVING
sSINCE NUMERIC FOUND, GO TAKE ACTION
;GO POINT R3 TO NEXT NODE

#-1,P$GDBD
TRVBR(

;PRINT NUMBER TOO BIG ERROR
MOV
MOV
Mov
TRAP
ADD
;SET_ERROR RETURN FLAG
sTAKE 'MISS’" BRANCH

R5
(R6) .m0
28
(R4) ,m32
23
R4
RS
1$

;CLEAR ALPHA FOUND FLAG
;SEE IF CHAR. LESS THAN A ‘A"’
;BR _IF YES (NOT ALPHA)
sSEE IF CHAR. GREATER THAN A °7°°
;BR IF YES (NOT ALPHA)
sUPDATE CMD LINE PTR TO NEXT CHAR
;INDICATE AN ALPHA WAS FOUND
;GO LOUK AT NEXT CHAR.

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

SP,RO
CSPNTF
4 ,SP

TST
BEQ
JSR
JMP

R5
33
PC, TRVACT

TRVBR(

:NONE FOUND, TAKE MISS BRANCH

TRVALN: CLR
108:
MP8
BLT
cMPB
B8GY
INC
INC
B8R

S
(R4) ,#60
2%
(R&) 472
1$
R&
RS
108

sCLEAR ALPHANUM FOUND FLAG
sSEE IF CHAR. LESS THAN A 'O’
;BR _IF YES (NOT NUMERIC OR ALPHA)
;SEE _IF CHAR. GREATER THAN A 'Y’
:BR IF YES (NOT NUMERIC)
sUPDATE CMD LINE PTR TO NEXT CHAR.
s INDICATE A NPMERIC FOUND
;GO LOOK AT NEXT CHAR.

3s:

18:

000132

28:
023414
023444
023434

MOVB
JMP

TRVALP: CLR
1$:
cMP8
BLT
cMP8
B8GT
INC
INC
B8R

28:
023414
023444

09:24

TRAVERSE COMMAND LINE SUBROUTINES

3s:

JMP

cMP8
BLT
cMP8
B8GT
INC
INC
BR
TST
BEQ
JSR
JMP
JMP

TRVYNOB

(R4) , 4101
2%
(R6) ,m32
2%
Ré
RS
108
R5
33
PC,TRVACT
TRVNOB
TRVBRC

sSEE IF ANY ALPHA'S WERE FOUND
:BR IF NO
cIF ANY FOUND TAKE ACTION
:THEN UPDATE R3 TO NEXT NODE ~NO BRANCH

sSEE IF CHAR. LESS THAN A ‘'A’’
:BR _IF YES (NOT ALPHA)
sSEE IF CHAR. GREATER THAN A *7°°
sBR IF YES (NOT ALPHA)
sUPDATE CMD LINE PTR TO NEXT CHAR
sINDICATE AN ALPHA FOUND
:GO LOOK AT NEXT CHAR.
sSEE IF ANY ALPHANUM'S WERE FOUND
:BR IF NO
sIF _ANY FOUND TAKE ACTION
;THEN UPDATE R3 TO NEXT NODE ~NO BRANCH
SNONE FOUND, TAKE MISS BRANCH

N 7
18-APR-80 09:24
TRAVERSE COMMAND L NE SUBROUTINES

CZCLFAQO DMR,DMC-11 DATA COMM. LINK TEST
CZCLRA.PTT
(8=-APR-80 09:24

024274
024276
024300

024304
026310

MACY11 30A(1052)

TRVSTR:

000006
003316

2s:

R4 ,R1
R3.R5
#6,R5
PSCNT
(RS)
108
(R1)
108
1(R‘I ) . (R5)

003316

PAGE 92

SEQ 0091

;POINT R1 TO CMD STRING

sPOUNT R5 TO MATCH STRING FROM CLI NODE
sCLEAR CHAR MATCH COUNT

;SEE IF END OF MATCH STRING YET
sBR _IF YES
;SEE IF END OF CMD LINE YET
:BR IF YES
sSEE _IF CHARACTERS MATCH
:BR_IF NO
SMATCH -INCREMENT MATCH COUNT
;UPDATE STRING POINTERS

;BR TO CONTINUE CHECKING CHARS.
003316

108:

023414
000004
023434

PSCNT
158
R1.R4

PC,TRVACT

4(R3) ,R3

i5%:

sWHEN DONE SEE IF ANY MATCHES FOUND

:BR IF NO, GO TAKE THE MISS BRANCH
:POINT (MD POINTER TO END OF STRING £
:1F A MATCH FOUND, GO DO MATCH ACTION

:UPDATE R3 TO NEXT NODE (NO BRANCH)

(NO RETURN THRU TRVNOB SINCE DIFFERNT
DISPLACEMENT DUE TO MATCH STRING)
GO TAKE BRANCH

TRVBR(

(PARSED OK), -1

ILL (TMD.....

CZCLFAOQ DMR,DMC~11

CZCLKA.PIN

DATA COMM.

18-APR-80 09:24

4113

LINK TEST

MACY11

30A(1052)

REPORT CODING SECTION
.SBTTL

18-APR-80

09:24

PAGE 93

SEQ 0092

REPORT CODING SECTION

. +e

.
:

4121
4122

024364
024364

64125
4126

024364

4131
4132
4133

024370
024370
024370

THE REPORT CODING SECTION CONTAINS THE
"PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS.

BGNRPT

004737

021406

JSR

ENDRPT
104425

LSRPT::
PC,REPORT

sCALL SUBROUTINE TO DUMP EVENT LOG
: AND BASE TABLE

L10011:

TRAP

CSRPT

C%E&A&QM.MC-H DATA COMM.
18-APR-80 09:24

6134

LINK TEST

MACY11 30A(1052)
PROTECTION TABLE

.SBTTL

18-APR-80

09:2¢

PAGE 94

SEQ 0093

PROTECTION TABLE

: THIS TABLE IS USED BY THE RUNTIME SERVICES

024372
024372

024372
024374
024376
024400

TO PROTECT THE LOAD MEDIA.

BGNPROT

177777
177777
177777

-1
=1
-1

ENDPROT

LSPROT::
;OFFSET INTO P-TABLE FOR (SR ADDRESS
sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS
;OFFSET INTO P-TABLE FOR DRIVE NUMBER

D 8
18-APR-80

CZCLFAQO DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
CZCLKA P11
INITIALIZE SECTION

4150

.SBTTL

4151

09:24

PAGE 95

SEQ 0094

INITIALIZE SECTION

s +e

; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
AT

THE BEGINNING OF

EACH PASS.

BGNINJT

012737

177777

012700
104447

000040

007216

MOV

READEF

104447

READEF

000037

104447

103002

READEF

000036

025146

012700
104447

000035

S1:

024514
024516
024516
024522
024524
024526
026526
024530

005037
005037

007216
007256

012702

007252

START:

ENDIT

#EF .NEW

012700
104462
010001

000120

007262
Sé:

RESFLG
CLKVEC

MOV

#CLKCSR,R2
L.R1

JSR

PC,CLKSET

Lotk

P.R1

#LCLKEN,CLKEN
RESTRT

BNCOMPLETE
020544

NEW

CLR
CLR

MOV
BR

JSR

sSET RESTART FLAG
;IF HERE CAUSE OF START,.DO SOME INIT
MOV
WEF .START
RO
TRAP
CSREFG
8CS

START

;IF HERE CAUSE OF RESTART, DO SOME INIT
MOV
#EF .RESTART
RO
TRAP
CSREFG
8(Cs
RESTRT
;SEE IF WE'RE HERE CAUSE OF A CONTINUE
MOV
TRAP

#EF . CONTINUE
,RO
CSREFG

;BR IF NOT HERE CAUSE OFBE?UITME
s1
;JMP IF HERE CAUSE OF A CONTINUE

;SEE IF THIS IS A 'NEW PASS'’

GETPRM

BNCOMPLETE
020544
000100

B8R

CLOCK

000114

004737
012737
000461

103017
004737

READEF

RESTRT

#EF.CONTINUE

BCOMPLETE

103523
000525

103006

JMP

START

#EF .RESTART

BNCOMPLETE

000137

012700
104462
010001

#EF.START

BCOMPLETE

103515

012700

#-1,RESFLG

BCOMPLETE

103417

012709

LSINIT::

MOV
TRAP

#EF .NEW,RO
CSREFG

B8CS

NEW

;IF YES, S8R AROUND LOGUNIT # SETUP

;CLEAR RESTART FLAG SINCE HERE ON START
;CLEAR CLK VECTOR PTR. AS A FLAG IN
; NO CLOCK IS FOUND,

;SETUP R2 AS A PTR. TO CLOCK INFO BLOCK

;LOOK FOR A LINE CLOCK

;

MOV
TRAP
MOV

#°'L,RO
CS$CLCK
RO,R1

IF NONE THERE GO LOOK g?é A P=-CLOCK

S2
: GO SET UP CLOCK INFO TABLE © CLK VEC.
;SETUP THE ENABLE LINE CLOCK DATA

;LOOK FOR A P-CLOCK SINCE NO LINE CLOCK
MOV
#°'P,RO

PC,CLKSET

TRAP

CSCLCK

BCC

RO.R1
IF NONE THERE GO SEE IF THIS ISSLSI
MOV

; ELSE GO SET UP CLOCK INFO R VECTOR

L
_

;

MACY11 30A(1052) 1§-APR-80 09:24 PAGE 96

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA. P11
18-APR-80 09:24
INITIALIZE SECTION

024534
024542
0c 550
024556
024564

062737
012777
162737

012737
000435

000002
001600
000002
000111

007252
162502
007252
007262

103021

012737
005037
012737

#2,CLKCSR

sPOINT CLKCSR TO P-CLK COUNT SET REG.

suB

#2,CLKCSR

sPOINT CLKCSR BAC TO P-CLK CSR

MOV
8R

#PCLKCT ,@CLKCSR
#PCLKEN,CLKEN
RESTRT

READBUS

000100
007254
007262

007256

MOV

#100, CLKVEC

007252

MOV

#CLKEN,CLKCSR

CLR

GMANID

sLOAD CLK SET REG. WITH COUNT VALUE
;SETUP THE ENABLE THE P=CLK DATA

JREAD BUS TYPE TO SEE IF ON AN LSI

BNCOMPLETE

104443
000406
007260
000052
013602
000377
000062
000074

CLKBR

TRAP
CSRDBU
;BR IF NOT, NO CHANCE OFBQCCLOCKS‘

;LOAD 100 AS CLK VECTOR

;LOAD O AS CLK INT.

LEVEL

;KLUDGE UP THE CSR & ENABLE DATA LOCS

L5060,CLKHZ,D,377,50.,60.,YES

TRAP

CSGMAN

.WORD

CLKHZ

000412
012746
012746
010600
104417
062706

ADD

MOV

S3:

104407

SEQ 0095

Sé&:

013712
000001

RESTRT

PRINTF

ANOCLK

10000$:

.WORD
.WORD
.WORD
.WORD
LWORD

MOV

TRAP

ADD

INIT

TRAP

.WORD

RESTRT:

007270

MOV

007212

024726
024732
024740

007212
007212

002012

007212

SP,RO

CSPNTF

w6 ,SP

CSEXIT

L10013-.

CLKHZ, TIMTCK

sLOAD TICKS/SEC

R2,EVTIPTR

: START OR RES AND INIT TABLE POINTER

:LOOP UNTIL DONE

MOV

#-1,LOGUNT

SJINITIALIZE LOGICAL UNIT #

INC
cMP
8GE

LOGUNT
LOGUNT ,LSUNIT
NEW

sPOINT TO NEXT LOGICAL UNIT
:SEE IF PAST MAX. LOG. UNIT #
;BR IF YES, AND START OVER

GPHARD

LOGUNT ,R1

;GET THE P-TABLE FOR THIS LOG. UNIT

MOV
P

#-1,(R2)+
R2,AEVTEND

NEW:

GETPRM:

MOV
BNE

177777

#NOCLK ,-(SP)
#1,-(SP)

;CLEAR TIME SINCE START LOCATIONS

#EVTLOG,R2

024716

024720

TIMMIN
TIMSEC

MOV

1$:

024742
024742
024746
024750
024752
024752

CLR
CLR

TSCODE
L5060
377
TSLOLIM
TSHILIM

;INFORM OPR. NO CLOCK, S EXIT INIT
MOV
MOV

EXIT

10000$

sINIT EVENT TABLE TO ALL 1°S AFTER EACH

:SEE IF REACHED END OF TABLE

MOV
TRAP

BNCOMPLETE

GE TPRM

MOV

LOGUNT ,RO
CSGPHRD

RO.R1

;IF NO P-TABLE AVAIL., GO GET NEXT ONE
B8CC
GE TPRM

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKRA.PT
4262
2%22

024754

18~APR-80 09:24
011137

MACY11 30A(1052)

INITIALIZE SECTION

007226

MOV

F
8
18-APR-80

09:24

PAGE 97

SEQ 0096

(R1) ,FHDPLX

;PUT FULL OR HALF DUPLEX ANSWER N LOC.

6265

2%267;

:DEVICE DEPENDENT PART OF

64268
6269
4270
6271
64272
4273
4274
6275
6276
4277
6278
4279
64280
4281
25%

024760
024766
024774
025000
025006
025014
025022
025030
025036
025044
025052
025060
025066
025074
025102

6284
4285
64286
4287
2%38

025110
025116
025126
025132
025140

4290
4291
4292

025146
025146
025146

4293

64294
4295

4296
zgg

025152

025156
025162

025166
025170

016137
016137
005237
016137
062737
016137

062737

000002
000002
012000
000002
000002
000002
000003
000002
000004
000002
000005
000002
000006
000002
000007

016137
016137
062737
016137
016137

000004
000004
000004
000006
000012

016137
062737
016137
062737
016137
062737
016137

4313
2;}?

4316
4317

2(R1) ,SELO
2(R1) ,BSEL1
BSEL1
2(R1) ,SEL2
#2,SEL2
2(R1) ,BSEL3
#3,BSEL3
2(R1) ,SEL&
#4,SELS
2(R1) ,BSELS
#5 ,BSELS
2(R1) ,SEL6
#6,SELG
2(R1) ,BSEL7
#7 ,BSEL7

:STORE AWAY (SR ADDRESSES

012002
012002
012004
012004
012006
012006
012010
012010
012012
012012
012014
012014

MOV
MOV
INC
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD

012016
012020
012020
012022
012024

MOV
MOV
ADD
MOV
MOV

4(R1), INVEC
4(R1) ,OUTVEC
#4 ,0UTVEC
6(R1) INTPR]
12(R1) ,0PTYP

;STORE AWAY INPUT INTERRUPT VECTOR
;BUILD OUTPUT INTERRUPT VECTOR
;STORE AWAY INTERRUPT PRIORITY
;STORE AWAY DEVICE OPTION TYPE

SETVEC

CLKVEC,#CLKINT,
#340

sSETUP CLOCK VECTOR

ENDIT:
012746

012746
013746
012746

104437
062706

000340

020570

MOV

007256
000003

MOV
MOV

TRAP
ADD

000010

22338
4301
64302
4303
4304
4305
4306
6307
4308
4309
4310
64311
4312

011776
012000

GETTING INFO FROM P-TABLE

#340,-(SP)

#CLKINT ,~(SP)

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

CSSVEC
#10,sP

;DEVICE DEPENDENT VECTOR SETUP
025174
025174
025200
025204
025210
025214
025216
025222
025222
025226
025232
025236

013746
012746
013746
012746
104437
062706

012022
034700
012016
000003

025242
025244

013746
012746
013746
012746
104437
062706

012022
034710
012020
000003

000010

025250
025250

012700

000000

000010

SETVEC

INVEC,#DVINS,INTPRI

OUTVEC,#DVOUTS,INTPRI

;SETUP INPUT INTERRUPT VECTOR
MOV
MOV
MOV
MOV
TRAP
ADD
;SETUP OUTPUT INTERRUPT VECTOR
MOV
MOV
MOV
MOV

TRAP
ADD

SETPRI

#PRIOO

sSET THE ‘RUN'' PRIORITY T0 O
MOV

INTPR] ,~(SP)
#DVINS ,-(SP)
INVEC ,~(SP)
#3,~(SP)
CSSVEC
#10,SP

INTPR] ,~(SP)
#DVOUTS ,~(SP)
OUTVEC,~(SP)
#3,-(SP)
CS$SVEC
#10,sP
#PR100,RO

CZCLYAQ DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
CZCLKA P
18-APR=-80 09:24
INITIALIZE SECTION
4318
4319
6320
4321
4322
4323
6324
4325
4326
6327
4328

025254
025256
025256
025260

18-APR-80

09:24

PAGE 98

SEQ 0097

1044461

1046432

EXIT

INIT

000002

TRAP

C$SPRI

TRAP
.WORD

CSEXIT
L10013-.

TRAP

CSINIT

.EVEN

025262
025262
025262

ENDINIT
104411

L10013:

CZCLrAQ DMR,DMC-11 DATA (COMM. LINK TEST

C2CLKA.PI

18~-APR-80 09:24

4329
4330
(33

30A(1052)

AUTODROP SECTION

.SBTTL

H 8
18-APR-80

09:24

PAGE 99

SEQ 0098

AUTODROP SECTION

X
; THIS CODE 1S EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IFf
; THE “'ADR'' FLAG WAS SET.
THE UNIT(S) UNDER TEST ARE CHECKED TO

{332
(333

(334

4335
(336
4337
4338
4339
4349
6341
4342
4343
4344

MACY11

;> SEE IF THEY WILL RESPOND.

: DROPPED FROM TESTING.
;==

025264
(025264

BGNAUTO

025264
(025264
025264

ENDAUTO
104461

THOSE THAT DON'T ARE IMMEDIATELY

LSAUTO::

L10014:

TRAP

CSAUTO

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
CZCLKA P11
18-APR-80 09:24
CLEANUP CODING SECTION
.SBTTL

]

18-APR-80

09:24

PAGE 100

SEQ 0099

CLEANUP CODING SECTION

;

THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED

AFTER THE HARDWARE

TESTS HAVE BEEN PERFORMED.

BGNCLN

005077

161760

12700

000340

104441

104433

104432
000002

CLR

SETPR]

LSCLEAN::
aCLKCSR

#PR107

;DISABLE CLOCK

;SET PROCESSOR PRIORITY BACK TO ;O
\"J

BRESET

TRAP

;CLEAR ALL BEFORE END

TRAP

EXIT

#PR107
RO

C$SPRI

CSRESET

CLN
TRAP

CSEXIT

.WORD

L10015~-.

TRAP

CSCLEAN

.EVEN

ENDCLN
104412

L10015:

CZCLFAO DMR,DMC~11 DATA (OMM, LINK TEST
MACY11 30A(1052)
CZCLKA P
18-APR-80 09:24
DROP UNIT SECTION

4380
4381

4382
4383
4384
4385

.SBTTL

09:24

PAGE 101
SEQ 0100

DROP UNIT SECTION

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

;

TO NO LONGER BE

TESTED.

* e
[

02531
02531

4372
4373
4374
4375
4376
6377
4378
4379

J 8
18-APR-80

025310
025310
025312

BGNDU

000167

EXIT

:
LS$DU:
DU

000000

-WORD
-WORD

JSJMP

TRAP

cshu

L10016-2-.

.EVEN

025314
025314
025314

ENDDU

104453

L10016:

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
CZCLKA.PT
18-APR-80 09:24
ADD UNIT SECTION

4393
6394
4395
4396
4397
4398
4399
4400
4401
4402

.SBTTL

K 8
18-APR-80

09:24

PAGE 102

SEQ 0101

ADD UNIT SECTION

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

025316
025316
025316
025316

025320

8GNAU

000167
000000

EXIT

LSAU::
AU

.WORD
.WORD

L10017-2-.

JSIMP

TRAP

(SAU

.EVEN

025322
025322
025322

ENDAU

104452

L10017:

CZCLFAOQ DMR,DMC~11 DATA COMM.
CZCLKA. P11
18-APR-80 09:24

617
4418
44619
4420
4421
4422
4423
4424
4425
6426
4427

LINK TEST

TEST 1:
.SBTTL

MACY11 30A(1052) 1%-APR-80 09:24 PAGE 103
SETUP AND MODES OF OPERATION

TEST 1:

SEQ 0102

SETUP AND MODES OF OPERATION

s+é

;
:

TEST TO DETECT FAULTS IN THE DATA COMMUNICATION LINK.
THIS TEST WILL
THE PROVIDE COVERAGE NECESSARY TO ISOLATE FAILURES TO THE COMPUTER

EQUIPMENT,

025324
025324

THE COMMUNICATION LINK,

BGNTST

.SBTTL

025324

013777

025332
025332

005001

007262

161720

007272

PROGRAM SETUP SECTION

MOV

CLKEN,@CLKCSR

GTRAZ:

CLR

1$:

TST
BEQ
DEC

R1
#1,TIMERT
TIMER1

GTXRXB:

000001
007272

T1::

GTRA3

BNE

012746
012746
010600
104417

013712
000001

005737
001117

GTRA3:

;ENABLE THE CLOCK

;SET TIMER TO COUNT 1 TICK
sCHECK FOR IT TO BE COUNTED OFF
;BRANCH IF CLOCK EXISTS (COUNTED A TICK)
;KEEP CHECKING UNTIL R1 DOES FULL COUNTDWN
;PRINT BAD CLK MSG AND WARN OF HANG IF TIMEOUT
MOV
#NOCLK ,-(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
w6 ,SP

PRINTF

062706

025374
025400

OR THE MODEM.

RESFLG

GTRAS

;SEE IF HERE AFTER A RESTART.
:BR IF HERE CAUSE OF A RESTART

COUNTS AND SET UP DEFAULTS

005037
005037
005037

GTRAS :

TOTCC
TT0TCC
CcToTCC
#PTRTAB
R1
R1,TXPTR
RXPTR
MMSGL IM,R2
R2
R2
R1.CMPPTR

sCLEAR TOTAL CHAR. COUNT TEMP. LOC.
: CLEAR TOTAL CHAR. COUNT FOR TX BUFF
; CLEAR TOTAL CHAR. COUNT FOR CMP BUFF
SINIT TRANSMIT MESSAGE POINTER

; ZERO RX POINTER

R2,CMPPIR

sINIT COMPARE MESSAGE POINTER

#5 ,MSGTYP

#TXBUF , TCURAD
#CMPBUF , CCURAD

sSET
sSET
sSET
sSET

TCURAD
, CURADD

;SETUP CURRENT ADDR TO START OF TXBUF

MSGS5C, CURCC

UP
UP
UP
UP

DEFAULT
DEFAULT
CURRENT
CURRENT

MSG TYPE (QUICK FOX - ITEP MSG)
CHAR COUNT
ADD TO START OF TX BUFFER
ADD TO START OF CMP BUFFER

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

MACY11 30A(1052)

673

025510

22;2

025522

CZCLKA.P1Y
4474

18~APR-80 09:24
013737

007162

MOV

000001

007120

013737
013737

007102
007110

007162
007164

013737

002162

007156

004737

022676

4477
4478

025530
025536

4480

025552

G479

6481
4482
4483

64684

025544

025560
025564
025572

025600

4485
4486

025604
025612

4488
4489
4490
449
4492
4493
4496
4495
4496

025620
025620
025624
025630
025632
025634
025640
025646
025654

zo.gg

025670

4487

4497

4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
22}(1)

025662

025674
025674
025676
025676
025700
025704
025706
025706
025710
025712
025720

012737

004737
012737
012737

005037

012737
012737
012746
012746
010600
104417
062706
013737
013737
013737
013737

004737

000005

104432
010050
012737
000137

4527
4528

;BUMP TOTAL MESSAGE COUNT

MOV
MOV
MOV

CMPPTR,CPTR
CCURAD ,CURADD

sSET UP START OF COMPARE POINTER TABLE
;SET UP CURRENT ADDR. TO START OF CMPBUF

CLR

MLTYP

PRINTF

#HLPO

MOV
MOV

007226

023022

GTRAS:

MOV
MOV
MOV
MOV

JSR

025762
025770

105037
105037

#1 ,RPASS
#2 ,PARAM

MODTYP ,DEVI
MLTYP,DEV,
RPASS ,DEV2
PARAM,DEV4

PC,SHWOP

BCOMPLETE

007230

000001
030634

007222

003325
003324

18:

GETCL:

104443
000406
003062
000142
012114
000000
000001
000110
012737
012737
012737

PC .BLDBUF
#1,CMPTOT
#ACT ,MODTYP

MANUAL

003062
010344
026664

003310
003312
003314

GETCL

: GO BUILD POINTER TABLE AND BUFFER

sPUT DEFAULT MESSAGE INTO CMPBUF
;BUMP THE COMP MESG COUNT
cSET DEFAULT MODE= ACTIVE

;SET DEFAULT MAINTENANCE LOOP MODE =NONE

sSET UP DEFAULT ‘RUN PASS'' COUNT TO 1
sSET UP PROG. PARAMETERS ~ DATACHECKING ENABLED

OPERATOR STATUS MSGS. PRINT OFF
MOV
MOV

#HLPO - (SP)
#1,-(SP)

MOV
TRAP

SP,RO
CSPNTF

ADD

#6,SP

;PRINT TO OPERATOR THE CURRENT MOOE......
;SEE IF MANUAL INTERVENTION ALLOWED
TRAP
:
BR IF YES (UAM=0 AND NOT CHAINED)

CSMANI

TST
BNE
EXIT

RPASS
18
TST

BCS
GETCL
;SEE IF THIS IS FIRST ‘DCLT PASS'’
: BR IF NOT COMPLETED 1 PASS
; IF DONE 1 PASS IN UNATTENDED MODE - EXIT
TRAP
CSEXIT

MOV
JMP

#TTL MLTYP
GTR9

WORD
L10020-.
;SET UP DEFAULT FOR UNATTENDED MODE
:
'R M=ACT/LO=I1/PAS=1/NOST/CH‘ AND RUN

.SBTTL
025724
025730
025734
025734
025736
025740
025742
025744
025746
025750
025752
025754
025754

#5_ MSGTYP

MSGS5C, CURCC

007230
007226

010334
010336
010340
010342

PC ,BLDBUF

MOV

000001
000002

104450
103412
005737
001002

#1,TXMTOT

007104
007220

000004
007220
007222
007230

SEQ 0103

MOV

JSR
MOV
MOV

012442
000001

PAGE 104

sSETUP CURRENT POINTER TABLE POINTER FOR TXBUF

022676
000001
000003

007222

09:24

TXPTR,CPTR

JSR

007154

22}%
4514
4515
4516
4517
4518
4519
4520
4521
4522
4523
4524
4525
4526

PROGRAM SETUP SECTION

007100

025516

18-APR-80

COMMAND LINE FETCH & INTERPRETATION SECTION
CLRB
CLRB
GMANID

MOV
MOV
MOV

P$GD8D
;CLEAR (MD LINE PARSING ERROR FLAGS
PSAINUF
CLISPM, CMDBUF ,A,0,1,72.,NO
:GET A COMMAND LINE FROM OPR.
TRAP
CSGMAN
BR
100008
.WORD
CMDBUF
.WORD
TSCODE
WORD
CLISPM
WORD
O
.WORD
TSLOLIM
WORD
TSHILIM
100008:
#CMDBUF ,PSBUF A

#CLITRE ,PSTREE
#CLIACT PSACT

CZCLFAQ DMR,DMC~11 DATA COMM, LINK TEST
CZCLKA.P
18-APR-80 09:24

4529
4530
W53

025776
026002
026006

005037
00473 7
105737
001412

003206
023274
003325

012746
012746

012122
000001

0600

MACY11 30A(1052)

09:24

PAGE 105

COMMAND LINE FETCH & INTERPRETATION SECTION

CLR
JSR
TSTB
BEQ
PRINTF

000004
025724
003324

N 8
18~-APR-80

18:

JMP
7STB
PRINTF

012152

QUALF
G
PC,PSTRV
P$GDBD
13

SEQ 0104

;CLEAR QUALIFIER FLAG LOCATION
;GO _PARSE COMMAND L INE
;SEE IF PARSED OK OR AN ERROR

#CLIERM

GETCL
PSNNUF
108

MOV
MOV
MoV
TRAP
ADD
;SEE IF INCOMPLETE COMMAND TYPED

#CLINUF

MOV
MOV
MOV
TRAP
ADD

000001

000004

025724
003204

000005

003204

000055

:
108

'SEE IF PRINT WAS TYPED
GO GET CMD AGAIN IF YES
SEE IF RUN WAS TYPED

000052

118:

025724
003204

000001

128:

003204

000002

003204

000010

007122
007166

007166
001000

: BR IF NO
START EXEC.

022442

GETCL
KEYWD1 ,#SETEXP

5%:

TTOTCC,TOTCC

{(S);CC -NBUFLIM
PRINTF

014033
014051
000002

MMSGT#BUF
RN,
EX

IF YES

.‘SEE IF DUMP WAS TYPED
: BR IF NO
. ELSE, DUMP PART OF MEMORY
; THEN RETURN TO GET ANOTHER CMD.
sSEE IF CLEAR WAS TYPED
: IF YES, BACK TO GET ANOTHER CMD.
;SEE IF SHOW WAS TYPED
s IF YES, BACK TO GET ANOTHER (MD.
SSEE IF SET EXPECTED
¢ BR IF YES (A SETEXP WAS TYPED)
.'SEE IF BUFFER ALREADY FULL

: BR IF NOT FULL

(BUFLIM # OF CHARS.)

; ELSE TELL OPR. AND DON'T BUILD MSG.

MOV
MOV
MOV
MOV

MBUFEX ,-(SP)
MMSGTRN, - (SP)
#2,~(SP}
SP.RO

ADD

#6.5P

TRAP

158:

007100

#CLINUF ,-(SP)
# ,-(SP)
SP,RO
CSPNTF
#6,SP

;SEE _IF HELP WAS TYPED
;GO GET CMD AGAIN IF YES

003204
030634
003204

#CLIERM, ~(SP)
#1,~(SP)
SP,RO
CSPNTF
#6,SP

:
6%

JMP
TST
CLR
MOV

BLT

GETCL

;

THEN GO GET A NEW COMMAND

CSPNTF

TTOTCC

:IF FIRST "SET'* THEN GET RID OF DEFAULT

TXMTOT
SPTRTAB, TXPTR

;GET POSITION OF END OF TX LISTY

TXMTOT ,R1
R1,MMSGLIM

17§

sSEE IF MSG COUNT EXCEEDED.
BR IF NO

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PTT
18-APR~-80 09:24

4585
4586
4587
4588
4589
4590
459
4592
4593
4594
4595
4596
4597

026276
026276

MACY11 30A(1052)
PRINTF

MMSGTRN, #TABEX

GETCL
R1
R1
R1,TXPTR
TXPTR,CPTR
TCURAD, CURADD

17%:

007100
007122
007124

012746

PAGE 106

SEQ 0105

; ELSE TELL OPR. AND DON'T BUILD MSG.
MOV
MOV

007162
007164

;

ADD
THEN GO GET A NEW COMMAND.

#TABEX,~(SP)
MMSGTRN,=(SP)

#2,-(SP)
SP,RO
CSPNTF
#6,SP

;¥ OF MSGS =4 = NEXT FREE PTR BLOCK

;SETUP CHAR. COUNT, CURRENT ADDR, £ PTR

PC,ADDCC
PC ,BLDBUF

;ADD IN CHAR. COUNT AND CHECK TOTAL
;GO BUILD MESSAGE IN BUFFER AND PTRS.

TOTCC,TTOTCC

;UPDATE CHAR. COUNT, CURR ADDR, & PTR

QUAL VL

;DEC THE COPY COUNT

CPTR,TXPTR

CURADD
, TCURAD
TXMTOT

025724
007106
007166

(09:26

MOV
MOV

000006
025724

013737
023727
002414

COMMAND LINE FETCH & INTERPRETATION SECTION

013773
014051
000002

001270
000137

18-APR-80

GETCL

007166
001000

2s:

CTOTCC,TOTCC

TOTCC,#BUFLIM

PRINTF

014033

16$

#MSGT
, #BUFEX
RN

;SETUP CHAR. COUNT, CURR. ADDR. & PTR
;SEE IF BUFFER ALREADY FULL
: BR _IF NOT FULL (BUFLIM # OF CHARS.)
; ELSE TELL OPR. AND DON'T BUILD MSG.
MOV
MOV

014051

000002

MOV

GETCL
crovcc
7$
CMPTOT

16%:

MOV
TRAP
AD D
THEN GO GET A NEW COMMAND

#BUFEX R (SP)
MSGT
-(SP)

#2,-(SM)

SP,RO
CSPNTF
#6,SP

:IF FIRST "'SET'’ THEN GET RID OF DEFAULT

#PTRTAB,R1

#MSGL IM,R2

R2
R2
R1,.CMPPTR
R2,CMPPTR
CMPTOT
R1

R1,MMSGLIM

012746
012746
012746
10600

000006
025724
026572

PRINTF

013773
014051
000002

188

#MSGTRN, #TABE X

s INIT COMPARE MESSAGE POINTER

;SEE IF MSG COUNT EXCEEDED.
: BR IF NO
; ELSE TELL OPR. AND DON'T BUILD MSG.
MOV
MOV

18%:

JMP

ASL
ASL

GETCL
R1
R1

MOV
MOV
TRAP
AD D
THEN GO GET A NEW COMMAND.

NTABEX ,~(SP)
MMSGTRN,~(SP)

#2,~(SP)
SP,RO
CSPNTF
#6,SP

:# OF MSGS *4 = NEXT FREE PTR BLOCK

CZCLrAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLRA.PT
18-APR-80 09:24
L601

026574

060137
013737
013737

007102

007162
007164
007102

003210
025724

007110
007106

MACY11

30A(1052)

c 9
18-APR-80

09:24

PAGE 107

COMMAND LINE FETCH & INTERPRETATION SECTION

ADD
MOV
MOV
JSR
JSR
MOV

INC

MOV
MOV
DEC
BNE
JMP

R1,CMPPTR
CMPPTR,CPTR
CCURAD, CURADD

SEQ 0106

PC,ADDCC

JADD IN XHAR. COUNT AND CHECK TOTAL

CPTR,(MPPTIR
CMPTOT
CURADD , CCURAD

;UPDATE CHAR.

QUAL VL
23

;IF COPY WAS GIVEN, PUT MSG IN BUFF
; AGAIN

PC ,BLDBUF

TOTCC,CTOTCC

GETCL

COUNT,

CURR ADDRR. & PTR

;GO BACK UNTIL GET A 'RWN''

D 9
MACY11 30A(1052)
18-APR-80 (09:24 PAGE 108
COMMAND LINE FETCH & INTERPRETATION SECTION

CZCLFAO DMR,DMC~11 DATA COMM, LINK TEST
CZCLKA.PY
18~APR-80 09:24

4658
4659
4660
4661

.SBTTL

CLIACT:
026702
026702

ACTION TABLE AND ROUTINES

USER MUST CLEAR/SET PSGDBD IF USE '‘CLIBIF'' IN CONNECTION WITH ACTION
R2 WILL HOLD ACTION CODE FROM PARSING (CLI) NODE
R2
108 (R2) ,R2
#108,R2
PC, (R2)

026702
026704
026706
026710

027032

:
108

ACTNUL-10%
ACTCLR-10$
ACTSHO-10%
ACTCHK-10%
ACTRUN-10%
ACTHLP-103
ACTCSE-10%
ACTCST-10%
ACTSTE-10%8
ACTSTT-10%
ACTSZE-10%
ACTCOP-10%
ACTNUM-10$

ACTOPM-10%
ACTSTS-108
ACTEQO-108
ACTMSO-108
ACTMS1-108
ACTMS2-10%
ACTMS3-10%
ACTMS4-108
ACTMS5-10%
ACTMS6~-10%
ACTATV-10%
ACTPAS-10$8
ACTREC-10%
ACTLIS-10%
ACTDLL-10%
ACTTRA-108
ACTTAL-108
ACTNO-10$
ACTECH-10%
ACTCRC-10%
ACTPRO-10%
ACTRPS-10%
ACTMOP-10%
ACTTLP-108
ACTCLP-10%
ACTLLP-108
ACTRLP-10%
ACTNUF-10%
ACTBCR-10%
ACTDMS~10$
ACTDME-10%
ACTDMQ-10%

;FORM ADDRESS OF ACTION ROUTINE

SEQ 0107

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT

’?g
4716

027034

18-APR-80 09:24

000230

MACY11 30A(1052)

E 9
18-APR-80

ACTION TABLE AND ROUTINES

.WORD

ACTPRT-10%

(9:24

PAGE 109

SEQ 0108

CZCLFAQ DMR,DMC~"1 DATA COMM. LINK TEST

CZCLKA.P11
Ya¥4

MACY11 30A(1052)

18-APR-80 09:2¢4

18-APR-80

ACTION TABLE AND ROUTINES

09:26

PAGE 110

SEQ 0109

4718
2;%8

027036
027044

112737
000207

177777

003324

A(CTNUF: MOVB
ACTNUL: RTS

#-1,PSNNUF
PC

;SET FLAG TO SAY NEED MORE OF COMMAND
JRETURN TO PARSER

4721
2;532’

027046
027054

012737
000207

000001

003206

ACTCLR: MOV
RTS

#CLEAR KEYWD1
PC

;SET LOC TO SAY A CLEAR WAS TYPED

4724
2;%2

027056
027064

012737
000207

000002

003204

ACTSHO: MOV
RTS

#SHOW,KE YWD1
PC

JSET LOC.

4727

027066

012702

003212

ACTHLP: MOV

#HLPTAB,R?

;SETUP R2 AS A POINTER TO HELP MSG TABLE

4729
4730
4731
4732
4733

027072
027074
027100
027104
027106

012246
012746
012746
010600
104417

027114

020227

4728

4734

4735

027072

027110

18:

PRINTF

#HLPF ,(R2)+

TO SAY A SHOW WAS TYPED

JPRINT HELP INFORMATION MESSAGES

MOV
MOV
MOV
MOV
TRAP

012520
000002

062706

000006

000005

003204

BNE
MOV
RTS

003230

cMP

R2 ,AHLPEND

ADD

#6,SP

4736
4737
277:353

027120
027122
027130

001364
012737
000207

47640

027132

012737

000055

003204

ACTPRT: MOV

N#PRNT ,KE YWD

PC,REPORT
PC

;CALL ROUTINE TO PRINT EVENT LOG AND BASE TABLE

4744

027146

012737

000004

003204

ACTRUN: MOV

#RUN,
KE YWD

;SET RUN FLAG

4746
2;2;

027162
027170

012737
000207

000001

007230

MOV
RTS

#1,RPASS
PC

;SET DEFAULT RUN 'PASS'' TO 1

027172

012701

006326

47641
2;2%
4745

4749

4750
4751
4752
4753
4754
Z;gg

027140
027144
027156

027176
027202
027204
027206
027212
027216

004737
000207
112737

012702
006302
006302
010137
060237
013701

021406

177777

007102
007102
007102

027222
027226
027232
027240
027242
027250

013702
105037
023727
001500
012737
005037

007104
003324
003204

4764
4765

027254
027260

012701
012702

006326
000017

013737

007102
007102
007102
005326
007110

4770

4771
4772

027264
027266
027270
027274

027300

027306
027312

006302
006302
010137
060237

012701
010137

000001
007106

MOVB

ACTCSE: MOV

000017

4757
4758
4759
4760
4761
2;2%

4766
4767
4768
4769

003324

JSR
RTS

000002

007104

007162

1$
W#HLP KEYWD1
PC

;SEE IF ALL INFO PRINTED YET

(R2) +,-(SP)
#HLPF ,-(SP)
#2,~(SP)
SP,RO
CSPNTF

#=1,PSNNUF

MMSGL IM,R2
R2
R2
R1,CMPPTR
R2,CMPPTR
CMPPTR,R1

MOV
CLRB
P
BEQ
MOV
CLR

CMPTOT ,R2
PSANUF
KEYWD1 ,#SHOW
ACTSHW
#1,CMPTOT
cTordc

MOV
MOV

#PTRTAB,R1
#MSGL
1M, R2

MOV

CMPPTR,CPTR

MOV
MOV

;SET LOC.

TO SAY A HELP WAS TYPED

;SET FLAG TO SAY NEED MORE OF COMMAND

#PTRTAB,R1

MOV
ASL
ASL
MOV
ADD
MOV

ASL
ASL
MOV
ADD

:IF NO KEEP PRINTING
;SET LOC. TO SAY A HELP WAS TYPED

R2
R2
R1,CMPPTR
R2,CMPPTR

#CMPBUF R1
R1,CCURAD

sINIT COMPARE MESSAGE POINTER

;FLAG THAT HAVE VALID COMMAND AT THIS PT.
;SEE IF A CLEAR OR SHOW WAS TYPED
;BR_IF A SHOW WAS TYPED
;CLEAR COMPARE MESSAGE COUNT, CHAR. COUNT
: AND RESET POINTER

SINIT COMPARE MESSAGE POINTER
SSET UP TO FILL IN DEFAULT MESSAGE

—

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZ(LKA PN
18-APR-80 09:24

4773

4774
4775
4776
4777
4778
w779
4780
4781
4782
4783
4784
4785
4786
4787

027316

000431

027320

012701

006326

MACY11 30A(1052)

ACTCST:

007120

ACTCLB:

000005
002162

1%:

022676

027440

027442

007154
007156

122571

003250
000000

ACTSHW:

5%:

003257

006
016137

003251

68:

013746
016546
012746

#PTRTAB,R1
TXMTOT ,R2
PSNNUF
KEYWD 1, #SHOW
ACTSHW
#1,TXMTOT

MOV
MOV
MOV
MOV

#PTRTAB, TXPTR
TXPTR,CPTR
ATXBUF ,R1
R1, TCURAD

MOV
MOV
MOV
MOV
CLRB

#BUFLIM,R2
R1, CURADD
#5 MSGTYP
MSGSC, CURCC
(R1)+

;FILL EXPT OR TRAN BUFFER WITH 0'S IF A CLEAR

JSR
RTS

PC ,BLDBUF
PC

:"'CLEAR’' REALLY MEANS TO PUT DEFAULT MSG IN
JWHEN DONE, RETURN TO PARSER

g’sg

MOV

027576
027616

003320

007152
000052

#SHTAB,RS

;SET UP TO PUT DEFAULT MSG IN LIST AFTER 033'S
;DO "BUFLIM' NUMBER OF BYTE LOCATIONS

;LOOK AT FIRST BYTE OF MSG TO DECIPHER TYPE

g:;

gg,#SHTEND

;SEE IF LOOKED AT ALL OF DEFAULTS YET

INC

;MUST BE OPR.

ASL

PRINTF

#SHMSG,SHTYTB(RS)
,TEMP

suB

g;g

ACTDMS:

'1‘3

; AND RESET POINTER

gs».a(m)

BNE
MOV
MOV
MOV
MOV

023022

TTOTCC

;JFLAG THAT HAVE VALID COMMAND AT THIS PT.
JSEE IF A CLEAR OR SHOW WAS TYPED
;BR IF A SHOW WAS TYPED
;CLEAR TRANSMIT MESSAGE COUNT, CHAR. COUNT

Ec;rg;e

DEC

027574

SEQ 0110

MOV
MOV
CLRB
TM
BEQ
MOV

ADD
010334

PAGE 111

ACTCLB

MOV

007172

09:24

CLR

007100
007162

012702

ACTION TABLE AND ROUTINES

000002

012701
010137

18-APR-80

MOV
CLR

MOV
BR

#SHTAB+1,RS

2(R1) ,TEMP

¥4 ,R1

ACTSHW
MODTYP,DEV1
MLTYP,DEV?2
RPASS ,DEV3
PARAM,DEV4
gtct.swop

PSNUM, STADD

BYTBIT

#DMPS ,KE YWD
ACTDME

SPEC'D THEN

:PRINT MSG SIZE & TYPE

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
;BUMP R1 TO NEXT SET OF POINTERS

TEMP,~(SP)
SHTYTB(RS) ,~-(SP)
#SHMSG,-(SP)
#3,~(SP)
SP,RO
CSPNTF
#10,SP

;SHOW THE OPERATOR THE CURRENT MODE..... ALSO

;SETUP STARTING ADDRESS FOR DUMP

;SET DEFAULT OF WORD DUMP

;FLAG THAT A DUMP WAS TYPED

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA, P11
18-APR-80 09:24
4829
4830
4831
4832
4833
4834

027620
027626
027634
027640

012737
013737
105037
000207

177777

003320
003324

007152

007150

MACY11

30A(1052)

H 9
18-APR-80

ACTION TABLE AND ROUTINES

ACTDMQ: MOV

ACTDME: MOV

ACTDMX:

CLRB

RTS

#-1,BYTBIT
PSNUM, ENADD

g%NNUF

09:24

PAGE 112

;SET DUMP FLAG TO ‘DUMP-WORD''
;SETUP END ADDRESS FOR DUMP (=START IF NO ‘EEE'’
;CLEAR NOT-ENOUGH FLAG, ‘DUMP N-N/B’’ IS VALID

SEQ 0111

MACY11 30A(1052)

027642
027650

012737
000403

000010

003204

ACTSTE: MOV
BR

#SETEXP ,KEYWD1
ACTSTX

027652
027660
027666

012737
012737
000207

000011
000001

003204
003210

ACTSTT: MOV
ACTSTX: MOV
RTS

#SETTPN KEYWD1

gZ.OUALVL

027670
027676

012737
000207

000012

003206

ACTSZE: MOV
RTS

#SIZE,QUALFG
PC

027700
027706

012737
000207

000013

003206

ACTCOP: MOV
RTS

#QCOPY ,QUALFG
PC

027710
027716
027720
027724
027726
027726
027732

023727
001023
005737
001014

003206

000012

ACTNUM:

012746
012746

012411
000001

003320

000004
177777

003325

003320

007156

3s:

003320

003210

18:

003210

000007
007172
007172

007172
007156
002166
007172
002524

012746
012746
010600
104417
062706
000207

012344
000001

cMP
BNE
TST
BNE
PRINTF

QUALFG,#SIZE
1%
PSNUM

#CLISEO

SEQ 0112

;SET UP DEFAULT COPY TO 1 (/COPY=0)

;SEE IF A SIZE OR COPY TYPED

;BR IF IT WAS A COPY

;CHECK TO BE SURE DIDN'T TRY SIZE=0
: BR IF NO

MOV
MOV
MOV
TRAP
ADD

PSNUM, CURCC

;IF A SIZE LOAD CURCC WITH BYTE COUNT

PSNUM, QUAL VL

;IF A COPY, LOAD COPY COUNT
; INCREMENT SO FIRST DEC MAKES IT REAL #

#7 ,MSGTYP
R4, TEMP
TEMP

R4 ,R2
TEMP ,R2
R2,CURCC
R2,0PCNT

ACTEQO:

PAGE 113

;SEE ERROR-IN-CMD FLAG

QUAL VL
ACTMEX

ACTOPM:

09:24

g;1.PSGDBD

2s:

007154

18-APR-80
ACTION TABLE AND ROUTINES

C2CLFAQO DMR,DMC-11 DATA COMM. LINK TEST
18-APR-80 09:24
CZCLKA P11

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

CSPNTF

4 ,SP

;KEEP TRACK OF START OF QUOTED TEXT
: SO CAN CALC OPCNT AT END OF QUOTES

;CALC BYTE COUNT FOR QUOTED TEXT

TEMP R

1%:

ACTBCR:

R2
1%
ACTMEX
PRINTF

#CLIBCR

;COPY QUOTED TEXT TO OPBUF

;BAD CHAR. IN OPR. QUOTED STRING

MOV
MOV
MOV

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

ADD

#4,SP

TRAP

RTS

CSPNTF

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA. P11
18-APR-80 09:24

030102

005037
009435
012737
000431
012737
000425
012737
000421
012737
000415
012737
013737
000411
012737
013737

012737

105037
000207

007154

MACY11 30A(1052)

18-APR-80

ACTION TABLE AND ROUTINES

ACTMSO:

000001

007154

ACTMS:

000002

007154

ACTMS?2:

000003

007154

ACTMS3:

000004

007154

ACTMSS:

000005
002162

007154
007156

ACTMSS:

000006
002164

007154
007156

ACTMSG:

000100
003324

007156

ACTMET:

ACTMEX:

09:26

PAGE 114

MSGTYP
ACTMET
#1,MSGTYP

#5,MSGTYP

MSG5C, CURCC

;SETUP DEFAULT SIZE FOR THIS TYPE

MSG6C, CURCC

sSETUP DEFAULT SIZE FOR THIS TYPE

l64..EURCC
PSNNU

;CLEAR NOT-ENOUGH FLAG

ACTMEX
#6 MSGTYP

;SETUP DEFAULT SIZE FOR MSGO-4

SEQ 0113

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CICLKA.P11 ~ 18-APR-80 09:24
4912

030216

23}2

030226

000432

012737

000003

007220

ACTATV: MOV

4915
4916

030226
030234

012737
105037

000002
003324

007220

ACTPAS: MOV
CLRB

23}3

030244

000207

4917

030240

005037

007222

B8R

CLR

RTS

4920

0302646

030252

000417

005037

007220

4923

030254

012737

000006

007220

ACTLIS: MOV

4926

030264

233;_
2352

23%

4929

030262

000413

MACY11 30A(1052)
18-APR-80
ACTION TABLE AND ROUTINES

ACTREC:

CLR

BR
B8R

030272

000407

012737

000004

007220

ACTDLL: MOV

09:24

PAGE 115

#ACT ,MODTYP

ACTMEX

#PAS ,MODTYP
PSNNUF

MLTYP
PC

;CLEAR NOT-ENOUGH FLAG

*CLEAR MAINT LOOP TYPE

MODTYP

AC TM2X

#L1S,MODTYP

ACTMIX

#DOW, MODTYP

ACTMIX

23?1)

030302

030274

012737

000001

007220

ACTTRA: MOV

23;_%

630304

012737

000005

007220

ACTTAL: MOV

NTAL ,MODTYP

4934

030312

042737

000004

007226

ACTM2X: BIC

#ECHOB , PARAM

:DISABLE /ECHO (ALL BUT PASSIVE MODE)

4936

030324

005037

007222

MLTYP

:CLEAR MAINT LOOP 1YPE

4935

4937
4938

030320

030330

000403

105037

000207

003324

B8R

CLRB

CLR

RTS

NTRA,MODTYP

ACTM2X

PSNNUF

:CLEAR NOT-ENOUGH FLAG

SEQ 0114

MACY11 30A(1052) 1%-APR-80 09:24 PAGE 116

CZCLKAOD DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PN
18-APR-80 09:24

030332
030340

ACTION TABLE AND ROUTINES

012737

000036

003206

ACTNO:

MOV
RTS

#NO,QUALFG
PC

022737

000036

003206

ACTECH:

#NO,QUALFG

000004
000002

007226
007220

cMwP
BEQ
BIS
cMP

000207

012746
012746
10600
104417

B8EQ
PRINTF

012301
000001
000004
177777
000004
003206

1%
#ECHOB
, PARAM
sgAS.HODTYP
#CLINPS

:BE SURE IN PASSIVE MODE IF

cIF

TRYING TO SET /ECHO

003325
007226

18:

2s:

Mov8
8IC

CLR

#-1,P$GDBD
#ECH
, PARAM
OB
QUALFG
ACTLXX

#CLINPS ,-(SP)
#1,-(SP)

ADD

#4,SP

SP,RO
CSPNTF

;CLEAR *NO'* OUT OF QUALIFIER FLAG

000002

ACTCHK: MOV

012701
000405

000001

ACTSTS: MOV

#STATB,R1
ACTQFG

;SET THE STATUS BIT

012701
000402

000020

ACTCRC: MOV

#CRCB,R1
ACTQFG

;SET THE CRC BIT

012701

000040

ACTPRO:

#PROTOB,R1

;SET THE PROTOCOL BIT

050137
022737
001002
040137
005037
000450

007226
000036

003206

007226
003206

ACTQFG: BIS

1%:

#DAT(CKB,R1

ACTQFG

:SET DATA CHECK BIT

R1,PARAM

1?0.0UALFG
R1,PARAM
QUALFG
ACTLXX

;CLEAR 'NO'' OUT OF QUALIFIER FLAG
;GET NUMBER OF ‘RUN PASSES’’

013737
000444

003320

007230

ACTRPS:

PSNUM,RPASS
ACTLXX

012737
17
012737
13
012737

000005

007222

ACTMOP:

#5 MTYP

000001

007222

ACTTLP:

000002

007222

ACTCLP:

000003

007222

ACTLLP:

000004

007222

ACTRLP:

000003

007220

ACTLPX:

177777
007222

003325

012237

MOV
MOV
MOV

TRAP

012701
000410

012746

SEQ 0115

ACTLPX
#1 MLTYP
ACTLPX

#2 MTYP
ACTLPX
#3 MLTYP

ACTLPX

#6 MLTYP
#ACT ,MODTYP

CLR
PRINTF

ACTLXX
#-1,P3$GDBD
MLTYP
#CLIBDL

;BE SURE IN ACTIVE IF TRYING TO SET LOOP
: BR IF IN ACTIVE
sCLEAR ANY LOOP TYPE THAT MAY HAVE GOT SET
MOV

#CLIBDL ,-(SP)

9
MACY11 30A(1052)
18-APR 80
ACTION TABLE AND ROUTINES

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZCLRA.P1T
18-APR-80 09:24

4995
4996
4997
4998
4999
5000

030612
030616
030620
030622
030626
030632

012746
010600
104417
062706
105037
000207

09:24

PAGE 117

000001
000004
003324

ACTLXX:

CLRB
RTS

PSNNUF
PC

;CLEAR NOT~ENOUGH FLAG

SEQ 0116

MOV
MoV
TRAP
ADD

”,-(SP)
SP,RO
CSPNTF
#4,SP

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.P1
18-APR-80 09:24

MACY11 30A(1052)
18-APR-80
ACTION TABLE AND ROUTINES

5002

5003

5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014
5015
558]'9

030634
030640
030044
030650
030652
030654
030660
030664
030670
030674
030676

012701
010137
012702
006302
006302
010137
060237
013701
012702
006302
006302

006326
007100
000017
007102
007102
007102
000017

030700
030704

010137
060237

007076
007076

Ssg]lg

030710

013737

007104

5020
5021
5022

030716
030722

030726
030732

005037
005037

007232
007140

5026
Ssggg

030736
030742

5029
5030
5031
5032
5033
5034
5035
5036

030746
030754
030762
030770
030776
031002
031006
031010

5023
%%’;

GTR9:

: RX ALLOCATE CODE

MOV
MOV
MOV
ASL
ASL
MOV
ADD
MOV
MOV
ASL
ASL

PAGE 118

SINIT TRANSMIT MESSAGE POINTER

sINIT COMPARE MESSAGE POINTER

R1.RXPTR
R2.RXPTR

sINIT RECEIVE MESSAGE POINTER

MoV

CMPTOT ,RXMTOT

;MAKE COMPARE AND RX MESSAGE COUNTS EQUAL

007142
007144

(LR
CLR
CLR
CLR

FLAG
NOBUF
PSCNT
ERRCNT

;CLEAR
;CLEAR
sCLEAR
;CLEAR

004737
004737

021012
033400

JSR
JSR

PC.LOGDVI
PC,DVINIT

:LOG_ABOUT TO INIT DEVICE
sINIT DEVICE

012737
012737
013737
012737
004737
013702
006302
000172

001000
004326
007076
000010
022676
007220

MOV
MOV
MOV
MOV
JSR
MOV
ASL
JMP

#BUFLIM,CURCC
#RXBUF ,CURADD
RXPTR,CPTR
#10,MSCTYP
PC ,BLDBUF
MODTYP,R2
R2
@MODE (R2)

;SET CHAR COUNT TO “BUFLIM' NO. OF BYTES
;SET UP RX BUFFER AS CURRRENT ADD.

007234

MOV
ADD

#PTRTAB,R1
R1,TXPTR
#MSGL IM,R2
R2
R2
R1,.CMPPTR
R2,CMPPTR
CMPPTR,R1
#MSGLIM,R2
R2
R2

09:24

007134
GTREX:

007156
007164
007162
007154

GTRX2:

FLAG
NO BUFFER COUNTER
PASS COUNT
ERROR COUNT

sSET UP FOR 33 TO FILL RX BUFFERS
sCLEAR RX BUFFER
:MODE DISPATCH

SEQ 0117

MACY11 30A(1052) 1S-APR~80 09:24 PAGE 119

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PIN
18-APR-80 09:24

RECEIVE MODE SECTION

.SBTTL

SEQ 0118

RECEIVE MODE SECTION

; FUNCTIONAL DESCRIPTION:

SUBORDINATE ROUTINES USED:

“ALLTR"'

CALLING SEQUENCE:
JMP
aMODE (R2)

®e

8, 0,0,

RECEIVE~ONLY (OR ONE-WAY=IN) ROUTINE
IN THIS MODE OF TESTING THE DEVICE'S RECEIVER IS ENABLED IN EXPECTATION
OF RECEIVING A MESSAGE.
AFTER RECEIVING AN “EXPECTED'' NUMBER OF
MESSAGES, THE DATA RECEIVED CAN BE COMPARED AGAINST A LIST OF "EXPECT
TO RECEIVE'® MESSAGES IF DATA-CHECKING IS ENABLED.

5054
5055
5056
5057
5058
5059

031014
031014
031022
031030
031036
031042

013737
013737
052737
005037
000137

007160
007132
007232

RXONLY
:

RXONZ2:

MOV

MOV
BIS
CLR
JMP

RXPTR,CPTRR

RXMTOT ,DVRCT
NARX+HERX ,FLAG
CPIR
ALLTR

;DISPATCH TO MODE BASED ON MODE TYPE

;SET UP MESSAGE COUNT
SET UP RX QUE
JCLEAR THE TX PCINTER
;GO RX.

IN R2

MACY11 30A(1052) 1S-APR-80 09:24 PAGE 120

CZCLFAQ DMR,DMC-11 DATA (OMM. LINK TEST

CZCLKA.PI

13-APR~80 09:2¢4

TRANSMIT MODE SECTION

.SBTTL

TRANSMIT MODE SECTION

FUNCTIONAL DESCRIPTION:
TRANSMIT=ONLY (OR ONE-WAY-OUT) ROUTINE

IN THIS MODE OF TESTING A LIST OF MESSAGES IS TRANSMITTED WITHOUT
EXPECTING ANY DATA TO BE RECEIVED.
A REPETITION COUNT CAN BE
SPECIFIED TO REPETITIVELY TRANSMIT THE LIST.

SUBORDINATE ROUTINES USED:
CALLING SEQUEN CE:
JMP
aMODE (R2)

042737
013737

013737
052737

031102

005037
000137

007226
007162
007116
007232

TXONLY: 8IC
MOV
MOV

TXONZ:

BIS
CLR
JMP

#DATCKB,PARAM
TXPTR,CPTR
TXMTOT,DVTCT
HQTX+#ETX FLAG

CPTRR
ALLTR

;DISPATCH TO MODE BASED ON MODE TYPE IN R2
;SET NOCHE(CK

cCOPY COUNTER FOR THIS PASS
SET THE QUE TX FLAG

;CLEAR RX POINTER
;GO TX.

SEQ 0119

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P11

MACY11

18-APR-80 09:24

5083

30A(1052)

D10

18-APR-80

PASSIVE MODE SECTION

SBTTL
:0‘

5093
5094
5095
5096
5097
5098

; SUBORDINATE ROUTINES USED:
:
:
“ALLTR"’
:
; CALLING SEQUENCE:
:
JMP
aMODE (R2)

S100
5101
5102
5103
5106
5105
g}gg

PAGE 121

PASSIVE MODE SECTION

5084
5085

5086
5087
5088
5089
5090
;833

09:24

; FUNCTIONAL DESCRIPTION:
:
PASSIVE MODE SECTION
:
IN THIS MODE OF TESTING, THE DEVICE'S RECEIVER IS ENABLED IN
;
EXPECTATION OF RECEIVING A MESSAGE.
THEN EVERY TIME A MESSAGE IS
:
RECEIVED, A MESSAGE IS TRANSMITTED.
DATA CHECKING CAN BE DONE ON THE
:
RECEIVED DATA.

031106
031106
031114
031122
031130
031136

013737
013737
013737
052737
000137

007120
007100
007076
000104
031200

007116
007162
007160
007232

PLCK:
PLCK2:
PLCK3:

MOV
MOV
MOV
BIS
JMP

TXMTOT ,DVTCT
TXPTR,CPTR
RXPTR,CPTRR
W#QRX+MERX,FLAG
ALLTR

;DISPATCH TO MODE BASED ON MODE TYPE IN R2

sSET
:SET
;SET
;SET
;AND

UP
UP
UP
UP
GO

THE TRANSMIT COUNT
CPTR TO TRANSMIT POINTER
CPTRR TO REC POINTER
Q AND EXPECT RX
RX FIRST MSG.

SEQ 0120

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

18-APR-80 09:24

d b d b

PAGE 122

SEQ 0121

ACTIVE MODE SECTION

n
Seve

d d

FUNCTIONAL DESCRIPTION:

ACTIVE MODE SECTION
IN THIS MODE OF TESTING A LIST OF MESSAGES IS TRANSMITTED AND
MESSAGES ARE EXPECTED TO BE RECEIVED.
RECEIVED DATA CAN BE COMPARED

D
)

AGAINST

'EXPECTED'' DATA IF DATA-CHECKING IS ENABLED.

NOTE:

%00

D et

%0, vy

b b b b e

84 090

e %9

b d
D

031142
031150
031156
031164
031172

013737
013737
013737
013737
052737

007120
007100
007134
007076
000314

007116
007162
0071%¢
007160
007232

IF BOTH ENDS OF THE LINK ARE IN ACTIVE MODE,
LINK MUST BE A FULL DUPLEX LINK!

THEN THE

SUBORDINATE ROUTINES USED:

CALLING SEQUENCE:

Qe B9

d
)
D e
d

09:26

PNIPNINI AINININININ) =

d md nd

b emd ad ek

E 10
18-APR-80

ACTIVE MODE SECTION

.SBTTL

b d

WAV LV, IV IV, TV TV LV, [V, JV, TV 1V, [V, [V LV, IV IV, IV IV IV, IV IV, 1V, [V, ]V, IV 1V }

ugww—bggm\JOmwa-figomwombuN—-os 8

CZCLKA.PY

MACY11 30A(1052)

ALCK:

JMP

aMODE (R2)

MOV
MOV
MOV
MOV
BIS

TXMTOT ,DVTCT
TXPTR,CPTR
;SET UP TX COUNTS
RXMTOT ,DVRCT
sSET UP COUNTS
RXPTR,CPTRR
HQRX+HQTX+HETX+HERX ,FLAG

;DISPAT(H TO MODE BASED ON MODE TYPE IN R2

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P1Y

MACY11 30A(1052)

18~APR-80 09:24

F10
18-APR-80

g}%g

.SBTTL

5138

5143

:
:
:
:

5145
5146
5147
5148
5149
5150

;
:
:
:
;
:

5153

: SUBORDINATE ROUTINES USED:

5139
5140
5141
5142

5144,

PAGE 123

TRANSMIT ~ RECEIVE FOR ALL STANDARD MODES

FUNCTJONAL DESCRIPTION:
THIS CODE PERFORMS THE FOLLOWING FUNCTIONS
1.) IF RX BUFFERS ARE TO BE QUED,TELL DEVICE
CODE TO QUE THEM ,LOG RECEIVE QUED.
2.)

;

g}g}

09:24

TRANSMIT - RECEIVE FOR ALL STANDARD MODES

IF TX BUFFERS ARE TO BE QUED

,TELL DEVICE

CODE TO QUE THEM, LOG TRANSMIf QUED.

3.) WAIT FOR EITHER RECIVE BUFFER OR TRANSMIT BUFFER OR
BOTH TO COMPLETE
4&.) IF RECEIVE COMPLETE LOG IT UPDATE RX TABLE IF DATA
CHECKING.
S.) IF TRANSMIT COMPLETE LOG IT.
6.) WHEN BOTH TRANSMIT AND RECIEVE LISTS ARE DONE

;

GO TO THE COMPARE BUFFER CODE

5154

"DVRXQ'’ ~QUE RECEIVE BUFFER SPACE TO DEVICE

5156

'LOGTXQ''~LOG TRANSMIT BUFFER QUED TO EVENT LOG

g}g?

;

5155

5157
5158
5159

*LOGRXQ'~LOG RECEIVE BUFFER SPACE TO EVENT LOG

:
:
;

"DVTXRX' ~QUE TRANSMIT BUFFER AND WAIT FOR RX
OR TX TO COMPLETE
"LOGRXC''~LOG RECEIVE BUFFER COMPLETED TO EVENT LOG

"LOGTXC''-LOG TRANSMIT BUFFER COMPLETED TO EVENT LOG

5162

* USE OF FLAG BITS:

5164
5165
5166
5167
5168

;
:
:
:
:

5163

5169
5170
5171
5172

QRX ~ SET ON INPUT TO ALLTR IF REC IS TO BE QUED TO

DEVICE. CLEARED BY DVRXQ AND THEN SET BY DVTXRX
QTX - SET ON INPUT TO ALLTR IF TRANSMIT IS TO BE QUED TO
DEVICE. CLEARED ON ENTRY TO DVTXRX AND SET BY DVTXRX
WHEN TX BUFFER IS COMPLETED.
WHEN RX BUFFER IS COMPLETED.

:
:
;
:

5173

ETX - USED BY DVTXRX TO DETERMINE IF TX BUFFER COMPLETED IS
EXPECTED.
ERX - USED BY DVTXRX TO DETERMINE IF RX BUFFER COMPLETED IS
EXPECTED.

;

5174
5175

N
:

g};g

CALLING SEQUENCE:

JMP

ALLTR

;GO TO TRANSMIT-RECEIVE FOR ALL STANDARD MODES

BIT
BEQ

#ORX ,FLAG
ALCK]

2IF NOT RX GO TO TX'S

5178

5179

5180
5181
5182

031200
031200
031206

032737
001420

g}gg

031240

004737

031250

032737

5183
5184
5185
5186
5187
5188

031210 013702
031214 011237
031220 012237
031226 011237
031230 011237
031234 010237

0000046

007232

ALLTR:
ALCKS:

007160
007176
007126
007200
007130
007160

034120
20746
000010

MOV
MOV
MOV
MOV
MOV
MOV
007232

ALCK1:

JSR
JSR
BIT

CPTRR,R2
(R2)
, TEMP2
(R2)+,DVRXA
(R2)
, TEMP3
(R2) ,DVRCC
R2.CPTRR

PC.DVRXQ
PC,LOGRXQ
MATX,FLAG

;GO QUE DEVICE
:LOG REC QUED

SEQ 0122

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PT
18-APR-80 09:24

001416

031310

031314

MACY11 30A(1052)
8EQ

MOV
MOV
MOV
Mov
MOV
MOV
JSR

020712
034200

032737

000004
007126

001514
013737

013737
00473

007130
020764
000004

007162
007176
007200
000002

ALCK?:

PAGE 124

ALCK2

CPTR,R2

;IF NO TX''S GO TO 2

(R2) ,TEMP2
(R2)+,DVTXA
(R2) ,TEMP3
(R2)+,DVTCC
R2,CPTR
PC.LOGTXQ

PC.DVTXRX

;GO TO TX AND RX SUB ROUT.

007232

#ORX,FLAG

;CHECK FOR REC. MSG.

007176
007200

DVRXA, TEMP2
DVRCC. TEMP3

007226

ALCKS

:
UPTABL

PC,LOGRXC

#ECHOB
, PARAM
UPTAG

CPTR,R2

TEMP2, (R2) +

007226

:
UPTAS

007132
007160
007220

CPTRR,R2
(R2) , TEMP

TEMP3., (R2) +
TEMP3. TEMP2
TEMP2, (R2) +

007176

UPTEX:

#PAS MODTYP

ALCK2A

007232
007232

NORX+HERX
, FLAG
HQTX+HETX FLAG

ALCK1

ALCKZ2A:

DVRCT
DVRCT

ALCK3

007232

007176
007200

DVRCT
UPTEX

TEMPS. TEMP

007172

007232

UPTA1
#01.DVRCT

uPTAS
:
UPTA1

007220

TEMP3
. (R2)

#DATCKB, PARAM

RXPTR, CPTRR
#ACT ,MODTYP

UPTA3:

031610

09:24

TRANSMIT ~ RECEIVE FOR ALL STANDARD MODES

007162

004737

G 10

18-APR-80

#QRX ,FLAG

ALCK3:

CPTRR

MATX, FLAG

AL (K4
DVIXA, TEMP2
DVTCC,TEMP3

PC,LOGTXC

DVTCT

;LOG REC COMPLETE
;IS THIS ECHO MODE (PASSIVE)
:IF NOT GO TO 4
SELSE SET R2 TO PRESENT TX TABL
;STORE OFF RX ADD
cAND CC
;1S DATA CHECKING ASKED FOR
:1F SO GO T0 1
SELSE SET DVRCT TO A 1
SRESET POINTER
;IS THIS ACTIVE
;IF YES BUMP COUNT

;LOAD TEMP WITH PREV. COUNT
;LOAD TEMP WITH PREV.COUNT-CURRENT

:STORE OF NEW ADD
cAND NEW CC
;PUT POINTER BACK TO ADDR.
cAND RESTORE IT.
;IF _NOT PASSIVE LOOP THEN GO TO 2A
;CLEAR BOTH EXPECTED AND COMPLETED FLAGS
cSET THE TX FLAGS
;DEC REC COUNT
;1S IT ALL DONE
sNO. GO CHECK TX
sCLEAR THE RX FLAG
;YES. CLEAR POINTER
SIS IT TX
cIJF NOT TX THEN GO BACK

;LOG TX COMPLETED
sDEC TX COUNT

SEQ 0123

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PI
18-APR-80 09:24

031614

022737

000002

007220

000210
000104
007116

007232
007232

007160
00716¢

ALCK&A:

031200
007162
000010
000002

031712
031714
031720
031722
031726

031314

007232
007226

H 10
18-APR-80

09:24

PAGE 125

TRANSMIT - RECEIVE FOR ALL STANDARD MODES

MP
BNE
BIC
BIS
TST
BNE
JMP
ALCK3A: TST
BEQ
ALCK3C: JMP
AL(CK3B: CLR
8IC
BIT
BEQ
ALCKS:
TST

031726
007116

031706

MACY11 30A(1052)

ALCK4B:

BNE
TST
BEQ
JMP

#PAS MODTYP

AL CK$A

#QATX+ETX,FLAG
#QRX+ERX
. FLAG

DVTCT

AL CK3C
CMPSR
DVTCT

AL CK38

AL CKS
CPTR

;IF _NOT PASSIVE MODE GO TO 3A
;CLEAR THE TX FLAGS
JAND SET THE RX FLAGS

;IF MORE RX'S DO IT
; ELSE COMPARE
;1S IT ALL DONE
;IF NOT GO BACK TO 5

#MATX,FLAG
#DAT(CKB ,PARAM

;IF SO CLEAR POINTER
;CLEAR TX FLAG
:1S IT DAT (K
;IF NOT THEN END WO CKING RX.

ALCK3(C

;1F SOME RX''S LEFT GO BACK

ALCK4A
CPTRR
CPTR
AL(CK4B
ALCK?2

:BRANCH IF ANY TX'S LEFT

SEQ 0124

CZCLrFAQ DMR,DMC~11 DATA COMM. LINK TEST
18-APR-80 09:24
CZCLKA.PY
5272
5273
5274
5275

MACY11 30A(1052)

I 10

18-APR-80

DATA COMPARISON CODE

.SBTTL

09:24

PAGE 126

DATA COMPARISON CODE

R
2 4

[

FUNCTIONAL

DESCRIPTION:

Ve Be e Ve g 00 %3 % %0 %0 %003 %, %, 0,

CMPSR - COMPARE (CODE

THIS CODE COMPARES THE RECEIVED DATA AGAINST THE

EXPECTED AND FILLS THE EVENT LOG WITH 1 OF
NOTE:

3 MSGS.

IF NO DATA CHECKING SKIP THIS CODE

1.) A DATA COMPARISON ENTRY WHICH REPORTS THE NUMBER
OF COMPARISON ERRORS FOUND.

2.) A DATA COMPARISON ENTRY WHICH REPORTS DIFFERENCES
IN REC LENGTH TO COMPARE LENGTH.

3.) A DATA COMPARISON STARTED ENTRY WHICH REPORTS ADDRESS
OF RECEIVE BUFFER AND BYTE COUNT.
THIS CODE ALSO REPORTS SOFT ERRORS FOR DATA COMPARISON

(THE FIRST 5 ONLY) ,LENGTH ERROR,AND TOTAL NUMBER OF ERRORS

* SUBORDINATE ROUTINES USED:

CALLING SEQUENCE:

JMP

CMPSR

;JUMP TO DATA COMPARISON CODE

BIT

#DATCKB ,PARAM

MOV
MOV
MOV

RXPTR,CPIR
CMPPTR.,CPTRR
RXMTOT ,DVRCT

;1S DATA CHECKING TO BE DONE
:1F NOT THEN EXIT
;PUT START OF RX POINTERS TO CPTR
; AND START OF COMPARE POINTS TO CPTRR

MOV
MOV

CPTR.R?
(R2) ,TEMP?2

MOV
MOV

(R2)+,TEMP3
R2.CPTR

MOV
MOV

CPTRR.,R2
(R2)+,R3

B¢

0y 8,y

‘LOGCMP'* ~ SEE ITEM 3 ABOVE
‘LOGCML'® - SEE ITEM 2 ABOVE
"LOGCMD’’ - SEE ITEM 1 ABOVE

031726

031752
031760
031760
031764
031770
031772
031776

032002
032006

032737
001522
013737
nM3737

vi3737

000002

007226

007076
007102
007134

007162
007160
007132

013702
011237
012201
012237
010237

007200
007162

013702

007160

007162
007176

007160
007202
021060

007200

007144

CMPSR:

CMPS3:

BEQ

MOV

CMPSEX

(R2)+ ,R1

:MOVE CURRET RX PT.TO RZ2
;MOVE RX ADD TO EVENT LOG
;SET R1 TO START ADD OF RX
;SET CHAR COUNT TO EVENT LOG
cRESTORE RX POINT

;PUT R2 AT COMPARE TABLE
;SET R3 TO COMPARE ADD
;SET R4 TO COMP (C

MOV
MOV

(R2)+ R4
R2.CPTRR

SRESTORE POINTER

JSR

PC.LOGCMP

;LOG COMPARE START.

R4, TEMP3

;1S COMPARE COUNT = TD RX COUNT

MOV

o, o

8EQ

R4, TEMPS

CMPS?7
INC
ERRCNT
ERRSOFT 1,EDDLE,ERR10

;IF SO GO 10 7
:PRINT ERROR

SEQ 0125

CZCLFAOQ DMR,DMC-11 DATA COMM, LINK TEST

CZCLKRA.PIN

18-APR-80 09:24

5328
5329
5330
5331
g%%%

032040
032042
032044
032046
032050

104457
000001
014651
020260
004737

5334
5335
5336
gg::g

032054
032060
032066
032070

005037
012737
122123
001422

007202
000001

007170

5339
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353

032072
032076
032104
032106
032112
032116
032122
032122
032124
032126
032130
032132
032134
032136
132142

005237
023727
101014
114337
114137
005237

007202
007202

000C0S

5354
5355
5356
5357

5358
5359
5360

5361
5362
5363
5364
5365
5366

032144
032146
032152
032154

032160
032160
032162

032164
032166
032770
032174
032174
032200

MACY11

104457
000002
014706
020170
005201
005203
005237
005304

001350
005737
001410
005237

104457
000003
014706
020232
004737
005337
001267

CMPS7:

(MPS1:
CMPS2:

007210
007211
007144

007202
007144

021114
007132

J 10

18-APR-80

DATA COMPARISON CODE

021076

007170

30A(1052)

CMPS6:

09:26

PAGE

127

TRAP
.WORD
.WORD
.WORD

CSERSOF T
1
EDDLE
ERR10

;REPORT COMPARISON FAILURE TO OPR.
TRAP
WORD
.WORD
.WORD

CSERSOFT
2
EDDDE
ERR1

JSR

PC.LOGCML

;LOG LENGTH ERROR

(LR
MOV

TEMP4
#1,0FSET

;CLEAR BAD BYTE COUNTER
sSET OFSET BYTE COUNT TO 1

INC
WP
BHI
MOvV8
MOVB
INC
ERRSOFT

TEMP4
TEMP4 45
CMPS6
=(R3) ,GO0D
=(R1) ,BAD
ERRCNT
2,EDDDE ,ERR1

s INC BAD COUNT
;IS IT MORE THEN 5
;IF SO GO FOR MORE
;STORE GOOD BYTE FOR ERROR
;STORE BAD BYTE "OR ERROR

INC
INC
INC
DEC
BNE
TST
8EQ
INC

R1
R3
OF SET
R4
CMPS1
TEMPS4
CMPS5A
ERRCNT

(MPB
BEQ

(R1)+,(R3)+
CMPS6

ERRSOFT 3,EDDDE ,ERR2

CMPS5:
JSR
CMPS5A:
DEC
BNE

SEQ 0126

:COMPARE RX WITH EXPETED
;IF EQUAL THEN GO TO 6

s INC OFFSET
;ELSE DEC CHAR COUNT AND SEE IF O
;IF NOT GO BACK
;SEE IF ANY CMP ERRS FOR THIS MSG

:BR IF NONE

SREPORT # OF MISMATCHES FOR MESSAGE
TRAP
WORD

PC.LOGCMD

;LOG DATA ERROR IN COMPARE

DVRCT
CMPS3

;1 NOT ALL DONE GO BACK

.WORD
.WORD

CSERSOF T
3
EDDDE
ERRZ2

K 10
MACY11 30A(1052)
18-APR-80
INTERNAL END OF PASS CODE

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PTT
18-APR-80 09:24
.SBTTL

09:24

PAGE 128

INTERNAL END OF PASS CODE

s 44

; FUNCTIONAL DESCRIPTION:
THIS CODE

INCREMENTS THE PASS COUNT FOR THE

EVENT LOG. LOGS THE END OF PASS EVENT

IF "RPASS'" IS A MINUS ONE RETURN TO MODE

DISPATCHER. IF NOT -1 THEN DECREMENT RPASS
AND IF “RPASS'’ IS THEN = TO 0 GO TO DCLT PROMI
IN NOT = TO O THEN GO BACK TO MODE DISPATCHER
SUBORDINATE ROUTINES USED:

‘LOGEOP'* - LOG END OF PASS TO EVENT LOG

032256

005237

007142

013737
013737
013737
004737

007140
007142
007144
021132

007202
007176
007200

022737
001403

177777

007230

005337
001402
000137
000137

CMPSEX:

INC

PSCNT

;BUMP PASS COUNT

NOBUF
, TEMPS
PSCNT, TEMP2

ERRCNT
, TEMP3
PC.LOGEOP
#-1,RPASS

:LOG END OF PASS
sSEE IF RPASS=-1

sIF

2%
GTRX2

;1F DONE EXIT TEST
;ELSE GO BACK AND DISPATCH

007230

RPASS

030746
025640

GTRAS

IT IS DONT DECRMNT, LOOP FOREVER

:DEC PASS COUNT

;WHEN RPASS=0 GO BACK TO 'DCLT>"’

SEQ 0127

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PTT

MACY11 30A(1052)

18-APR-80 09:24

+
+

)
YRT
Y

DOWN-L INE-LOAD SECTION
IN THIS MODE OF TESTING THE "HOST'' OR ORIGINATING STATION
REQUESTS THE °*'SATELLITE'' OR BOOT STATION TO ENTER MOP MODE.

e T PN
N T P T TN T

SEQ 0128

FUNCTIONAL DESCRIPTION:

THE BOOT STATION THEN SENDS A

‘REQUEST PROGRAM MESSAGE''.

THE "HOST'’ THEN SENDS A ‘MEMORY LOAD WITH TRANSFER ADDRESS''
THAT CONTAINS IMAGE DATA TO BE LOADED BY THE BOOT STATION'S

M9312 STARTING AT LOC. 0.

THIS IMAGE DATA WILL CONTAIN A

PROGRAM THAT WILL PRINT A MSG THAT DOWN~LINE-LOAD WAS SUCESSFUL.

SUBORDINATE ROUTINES USED:

‘DLTXRX'* =
‘DVRXQ'’ =
"LOGRXQ'’ ~
"LOGTXQ"* =
"DVIXRX'® =

SPECIAL TX RX ROUTINE FOR DLL
QUE RX BUFFER SPACE TO DEVICE

N PN PN

LOG RX SPACE QUED TO EVENT LOG
LOG TX BUFFER QUED TO EVENT LOG
QUE TX BUFFER AND WAIT FOR RX OR TX TO COMPLETE
"LOGTXC'* = LOG TX COMPLETED TO EVENT LOG
"LOGRXC’* = LOG RX COMPLETED TO EVENT LOG

P
TRNN NE

PAGE 129

DOWN-L INE~LOAD SECTION

PRFE

o b 3 RRLRRRRLLR
N TR
NN
SN

CALLING SEQUENCE:

JMP

aMODE (R2)

AXE

000100
000002
002647
002172

09:24

DOWN-L INE-LQAD SECTION

.SBTTL

5410

L 10
18-APR-80

DLL:

8IS

BIC

MOV
MOV
JSR

032404

#ERX,FLAG

#DATCKB ,PARAM

#DLLM1 ,CURADD
DLIMIC,CURCC
PC.DLTXRX

;DISPATCH TO MODE BASED ON MODE TYPE IN R2
;SET EXPECTED TO RX

:CLEAR NOCHECK

;SET THE DOWN LINE LOAD MSG TO #1
;SET THE CC
:GO TO THE DOWN LINE TX RX ROUTINE

SRETURN WHEN TX AND RX ARE COMPLETED
002654
002174
0004
032404

MOV
MOV
BIC
JSR

DLLPRI:

012746
012746

013640
000001
000004
025640

032370
032370
032370
032372
032374
032376

DLLEA:

#DLLM2 ,CURADD
DLIM2C, CURCC
#DLLGA,FLAG
PC.DLTXRX

;SET THE DOWN LINE LOAD MSG TO #2
sSET CC
;CLEAR THE GO AHEAD FLAG

;GO TO THE DOWN LINE TX RX ROUTINE

; RETURN WHEN TX AND RX ARE COMPLETED
PRINTF

#DLLCM

JMP

GTRAS

ERRHRD

20,DLLAB,ERR14

MOV
MOV
MOV

#DLLCM,-(SP)
#1,-(SP)

ADD

¥4 ,SP

SP_RO

CSPNTF

CSERHRD

DLLAB

ERR14

M0
MACY11 30A(1052)
18-APR-80
DOWN~L INE-LOAD SECTION

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.P1T ~ 18~-APR-80 09:24

5455

55229

0326400

09:24

PAGF 130

000137

025640

032404

052737

000004

5462 032612 012737 004326
5463 032620 012737 004326
5464 032426 012737 000400
5465 032634 012737 000400
5666 032442 004737 034120
5667 0326446 004737 020746

007126
007176
007130
007200

MOV
MOV
MOV
MOV
JSR
JSR

#RXBUF .DVRXA
MRXBUF ,TEMP2
#256. ,FVRCC
#256. . TEWP3
PC.DVIXQ
PC .LOGRXQ

:SET THE DEVICE RX BUFFER TO RXBUF
:SET UP FOR LOG
:SET UP FOR CC OF 256
*SET UP FOR LOG
: 60 QUE RX
SAND LOG IT...

5669 032452
5470 032460
5471 032466
5472 032674
5473 032502

013737
013737
013737
013737
004737

007164
007164
007156
007156
020712

007112
007176
007114
007200

MOV
MOV
MOV
MOV
JSR

CURADD ,DVTXA
CURADD,TEMP2
CURCC.DVTCC
CURCC ., TEMP3
PC.LOGTXQ

;SET UP FOR TX
:AND LOG
*SE UP FOR TX COUNT
SAND LOG IT
:LOG THE TX QUEUED

BIT

#DLLGA,FLAG

5458
5459
5460

5461

032404

5474
5475

032506
032514

5477

032526

5476

032520

052737
004737

032737

001047

000210
034200

007232

000400

007232

DLTXRX:

DLLE2:

GTRAS

;PRINT ABORT AND EXIT

BIS

#ORX ,FLAG

:SET THE QUE RX FLAG

BIS
JSR

BNE

NQTX+#ETX,FLAG
PC.DVTXRX

DLLE1

5478
5479

032530
032536

032737
001020

000010

007232

BIT
BNE

#QTX,FLAG
DLLES

5481

032540

012737

020062

007204

MOV

#TXNC
., CONOTM

MOV
MOV
JSR
JMP

TXBUF
. TEMPS,
#DLLAB, TEMP2
PC,LGDVE
DLLEA

MOV

DVTXA, TEMP?

5480
5482

032546

013737

5483
5484
5485
%

032554
032562
032570
032574

013737
012737
004737
000137

5488

032600

013737

004326

003326
017130
020774
032370
007112

5489
5490

032606
032614

013737
004737

007114
020730

5492

032626

052737

000400

5491

5493

549
5495
5496
5497
5498
5499

5500

5501
5502

5503

5504
5505

032620

032634

032642
032644
032646
032654
032656
032664

042737

023737

001441
000723
032737
001004
012737
000730

032666

013737

032706

022737

0326764
032702

013737
004737

032714

001404

007200

007202
007176
007176

007200

000210

007232

002174

007114

000004

007232

020102

007204

007126

007176

006010

004326

007130
020764

DLLE?:

DLLE6:

DLLES:

5506

032716

032724

000710

012737

020122

007204

DLLE4:

5509

032726

022737

000001

004330

DLLE3:

gssgg
5510

032734

001404

*ELSE CHECK FOR TX DONE
*IF DONE THEN BRANCH

:ELSE ERROR

RXBUF
, TEMP3

:LOG ERROR

SABORT TEST

DVTCC. TEMP3
PC.LOGTXC

;LOG TX DONE

BIS

#DLLGA,FLAG

:SET THE GO AHEAD BIT

BEQ
BR
BIT
BNE
MOV
BR

DLLES
DLLE2
#ORX ,FLAG
DLLES
MRXNC,CONOTM
DLLE?

MOV
JSR

DVRCC.TEMP3
PC ,LOGRXC

DLLE1:

STEST FOR GO AHEAD BIT

SIF SET GO TO ONE

MOV
JSR
BIC

007232

007200

MOV

-SET UP TO QUE AND EXPECTED
:GO TO DEVICE ROUTINE

MOV

NQTX+HETX,FLAG

DLLM2C.DVTCC

#6010, RXBUF

BEQ

DLLE3

MOV

#RXM1,CONOTM

(MP

#1 RXBUF +2

BEQ

:EXIT IF SECOND MSG.
SAND GO BACK TO 2
*IS THE A RX COMPLETED
:IF SO GO TO 8
:ELSE SET UP ERROR AND ABORT.

DVRXA, TEMP2

:CLEAR QUE AND EXPECTED

DLLE7

DLLES

;LOG RECEIVE COMPLETE

“CHECK FOR FIRST WORD OF RX

*SEC BOOT MSG.

;SET UP MESG AND ABORT

*ABORT TEST

;1S SECOND WORD
1

;IF OK RETURN

SEQ 0129

N 10
MACY11 30A(1052)
18-APR-80
DOWN~L INE-LOAD SECTION

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.P11
18-APR-80 09:24

5511
gg}%

032736
032744

012737
000700

gg}g

032746

000207

5516
5517

020145

007204
DLLES:

09:24

PAGE 131

MOV
BR

#RXM2 , CONOTM
DLLE?7

sSET UP MESSAGE AND ABORT

RTS

sRETURN TO CALLER

SEQ 0130

CZCLrFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PY

MACY11 30A(1052)

18-APR-80 09:24

5518
5519
5520
5521
5522
5523

TALK MODE SECTION

.SBTTL

B 1

18-APR-80

PAGE 132

SEQ 0131

TALK MODE SECTION

S+
: FUNCTIONAL DESCRIPTION:
:
TALK MODE SECTION
:
IN THIS MODE, THE '‘TALK'®' END OF THE LINK TRANSMITS OPERATOR

5524
gggg

;
:

SPECIFIED MESSAGES UNTIL A "EXIT'' MESSAGE IS TYPE.
THIS END OF THE LINK GOES INTO ‘LISTEN'' MODE.

gg%g

; SUBORDINATE ROUTINES USED:

5529
5530
gg%}

;
:
;

5533

;

gg%

;

5536
5537
5538
5539

032750
032750
032756

5541
5542
5543

032766
032772
(32774

5540

09:24

032762

042737
012702
012722
022702
001373

000002
002524
177777
002646

5544
5545
5546
5547
5548
5549
5550
9551
5552
5553
5554
5555
5556
5557
gg gg

033012
033014
033014
033016
033024
033026
033030
033032

005002
122762
001402
005202
000772
010237

002166

5560
5561
5562
5563
5564
5565
2565?‘}

033036
033044
033052
033060
033066
033072
033100

012737
012737
013737
013737
004737
052737
005037

002524
002524
002166
002166
020712
000210
007160

25‘5?3

033104

004737

034200

5570
5571
5572
5573

033110
033116
033124
033130

013737
013737
004737
022737

007112
007114
020730
054105

032774
032776
033000
033002
033004

033006
033010

007226

"10GTXQ'* = LOG TX BUFFER QUED TO EVENT LOG
"DVTXRX'' = QUE TX BUFFER TO DEVICE AND WAIT FOR COMPLETE
"LOGTXC'' = LOG TX COMPLETE TO EVENT LOG
CALLING SEQUENCE:

TALCK:
i$:

104443
000406
002524
000142
013575
000000
000001
000110
000377

002524

28%:

3s:
007112
007176
007200
007114

007232

007176
007200

002524

AT THAT POINT,

JWP

aMODE (R2)

BIC
MOV
MOV
P
BNE
GMANID

BR
MOV

YDATCKB,PARAM
;SET NOCHECK
#0PBUF ,R2
#-1,(R2)+
;CLEAR OUT OPBUFFER FIRST
#OPEND ,R2
18
OPRMM,OPBUF,A,0,1,72..NO
:GET TALK MESSAGE
TRAP
BR
.WORD
.WORD
.WORD
WORD
LWORD
.WORD
10001$:
R2
sNOW GET CHAR COUNT
#377.0PBUF (R2)
3$
R2
2%
R2,0PCNT

MOV
MOV
MOV
MOV
JSR
8IS
CLR

#OPBUF ,DVTXA
#OPBUF , TEMP?
OPCNT , TEMP3
OPCNT,DVTCC
PC,LOGTXQ
#ATX+AETX FLAG
CPTRR

JSR

PC.,DVTXRX

MOV
MOV
JSR
W, o

DVIXA, TEMP2
DVTCC,TEMP3
PC,LOGTXC
#'EX,OPBUF

CLR
M8
BEQ
INC

;DISPATCH TO MODE BASED ON MODE TYPE IN R2

;SET UP TX ADDR.

sSET UP TX CC
.SET UP FLAGS
;CLEAR RX POINTER

;CHECK FOR EXIT

CSGMAN
100018
OPBUF
TSCODE
OPRMM

0
TSLOLIM
TSHILIM

CZCLFAG DMR,DMC~11 DATA COMM. LINK TEST

MACY11 30A(1052) 1g-APR-80 09:24 PAGE 133

5574
5575
5576
5577
5578

BNE
M
BNE
BIC
MOV

CZCLKA.P1T

5579

~ 18~APR-80 09:24

033136
033140
033146
033150
033156

033164

001304
022737
001300
042737
012737

000137

052111

002526

000210
000006

007232
007720

0330746

TALK MODE SECTION

JMP

TALCK
#IT,0PBUF+2
TALCK
WATX+#ETX,FLAG
WLISMODTYP

~TRX2

;CLEAR THE TX BITS
:CMANGE TO LISTEN MODE

*AND GO BACK TO DISPATCH

SEa 0132

CZCLrFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLKA.PTT
18-APR-80 09:24
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590

MACY11 30A(1052)
18-APR-80
LISTEN MODE SECTION
.SBTTL

09:24

PAGE 134

SEQ 0133

LISTEN MODE SECTION

;0#

* FUNCTIONAL DESCRIPTION:
:
LISTEN MODE SECTION
:
IN THIS MODE, THE 'LISTZN'' END OF THE LINK PRINTS ALL OF THE MESSAGES

RECEIVED BY THE DEVICE ON THE OPERATOR'S CONSOLE.

RECEIVED IS AN "EXIT

THE MESSAGE

MESSAGE, THEN THE NODE ENTERS ‘‘TALK'' MODE.

: SUBORDINATE ROUTINES USED:
. DVRXQ"’ - QUE RECEIVE BUFFER SPACE TO DEVICE

LOGRXQ'’ - LOG_RECEIVE BUFFER QUED TO EVENT LOG
"DVIXRX’* - WAIT FOR RX TO COMPLETE
LOGRXC'*
= LOG RX COMPLETE TO EVENT LOG

* CALLING SEQUENCE:

033170

042737

007226

012746
072746
210600
104417
062706
012737

;

JMP

LISCK:

BIC

PRINTF

LISCKA: MOV

aMODE (R2)

W#DATCKB,PARAM

;CLEAR CHECK BIT

#LISP

;PRINT PROMPT FOR OFR.

#OPBUF ,DVRXA

;SET DEVICE UP TO REC AT OPBUF

#0PBUF
, TEMP?
#8.. ,DVRCC

ne2
, TEMP3
.

033246
033254

;DISPATCH TO MODE BASED ON MODE TYPE IN R2

MIRX+MERX ,FLAG

JCLEAR THE TX.

PC.DVRXQ
PC,LOGRXQ

;QUE RX

033270

034200

PC,DVTXRX

;60 TO DFVICE RX.

007130

012746
012746
01 0600

104417

033374

062706
022737
001320
022737
001314
012737
000137

DVRXA, TEMP?2

DVRCC,TEMP3

PC.LOGRXC

DVRXA,DVRC(
aDVR(C(C
#OPBFPT

MOV

#OPBFPT ,~(SP)

MOV
TRAP

s RO
CSPNTF

;SET UP FLAG

CPTR

034120
020746

007176
007200

#LISP,=-(SP)
” ,-(SP)
SP_RO
CSPNTF
6 ,SP

JSET UP CHAR COUNT TO 82.

033260
033264

033274

MOV
MOV
MOV
TRAP
ADD

SUBROUTINE

JSET UP ADDR.AND (CC.
;LOG COMPLETED

MOV

000004
054105

002524

# EX,0PBUF

052111

002526

# ‘1T ,0PBUF
+2

000005
030746

007220

#TAL ,MODTYP

;COMPARE FOR EX OF “EXIT'

LISCKA

:1F NOT EXIT THEN GO BACK

LISCKA

JIF NOT EXIT THE GO BACK

GTRX?

ADD

sIF FIRST HALF OK CHECK NEXT PART

:CHANGE MODE TO TALK

*RETURN TO DISPATCHER

”M,-(SP)
¥4 ,SP

CZCLYAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PT
18-APR-B0 09:24
5636
5637

E 1

MACY11 30A(1052)
18-APR-80
LISTEN MODE SECTION

09:24

PAGE 135

SEQ 0134

F 11
MACY11 30A(1052)
18-APR-80
DEVICE FUNCTION SUBROUTINES

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA P11
18-APR-80 09:24

5638
5639

.SBTTL

09:26

PAGE 136

SEQ 0135

DEVICE FUNCTION SUBROUTINES

.SBTTL

DEVICE INIT SUBROUTINE

S +é

. FUNCTIONAL DESCRIPTION:

DVINIT- DEVICE INIT ROUTINE
THIS ROUTINE 1S DEVICE DEPENDENT CODE THAT INITS
THE DEVICE BEING TESTED. (1.E. FULL/HALF DUPLEX BAUD RATE, MAINT MODE.)

INPUTS:

“FHDPLX'' INDICATES IF MODE IS FULL OR HALF DUPLEX. (1=FULL)
ADDRESS POINTERS (SELO,...) ALREADY POINT TO DEVICE'S REG.S

SUBORDINATE ROUTINES USED:

‘LGDVE'’ - LOG DEVICE ERROR TO EVENT LOG
“TOORIO'' ~ TIME OUT OR INPUT INTERRUPT OR OUTPUT INTERRUPT
"'(LRAW'* = CLEAR RQI AND WAIT FOR RDI TO GO AWAY

* CALLING SEQUENCE:

JSR

DVINIT:

012737

000100

007272

PC.DVINIT

;JMASTER CLEAR DEVICE
MOV
CLR
CLR
MOV

#100, TIMERT
aSEL6
@SELS
#MCLR,QSELO

DO A MASTER CLEAR

cMP
BNE
MOov8
P
BNE
MOVB

#DMRC6,0PTYP
DVING
#200,88SEL1
#DMRG ,OPTYP
DVIN2
#200,aBSEL1

;1S THIS A 8206
:IF NOT GO TO 6
;SET RUN FOR 8206
;1S THIS AN 8206 DMR
cIF NOT GO TO 2
:SET RUN BIT FOR 8206

TST
8M]
BREAK

a@SELO
DVINI

;IS RUN BIT SET
;IF YES GO TO 1 ELSE...

007272

TST
BNE

TIMERT
DVINZ

016340

MOV
MOV
MOV
JSR
INC
ERRSOFT

#DVEM3, TEMP2
@SELOQ, TEMP3
@SEL2, TEMPS

156400
156370
04

156352

012024

000200
000006

156336
012024

000200

156320

156312

156266
156264
020774

007144

DVING:

DVINZ:

PC,LGDVE

ERRC NT
11,DVEM3,ERR13

;SET UP TIMER 1 FOR 100(OCTAL) TICKS

;SEE IF TIME HAS EXPIRED
;IF NOT GO BACK AND CHE(K
;AGAIN ELSE...PRINT ERROR
;LOAD UP ERRM. AND REG OUTPUTS
;LOG TIME OUT WAITING FOR RUN

TRAP

C$8RK

CZCLFAOQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PTY
18-APR-80 09:24

5694
5695
5696
5697
5698
5699
5700
5701
5702
5703

033530

033540

MACY11 30A(1052)
DEVICE

6"
18-APR-80

09:24

INIT SUBROUTINE

PAGE 137

104457
000013
016340
020450

SEQ 0136
TRAP

.WORD
.WORD
.WORD

000717

BR DVINIT

033542

;GO BACK AND TRY MSTR (LR AGAIN IF ERROR

DVIN1:

; DO BASE IN COMMAND

033542
033550
033556
033562
033570
833576

023727

000003
000143
035026
017370

007232

000000
012024

156214
000006

000522
000100
004000
000001

156176
156160
156146
007222

004000
034720

156130

156220

156216

DVIN?:

DVIN3:

BIC
MOv8
JSR
MOV

#3,FLAG
#143,3BSELO
PC,TOORIO
#BASE ,3SEL4

;CLEAR INPUT AND OUTPUT INT FLAGS
;SET UP BASE IN INT EN
;GO WAIT FOR INTERRUPT OR TIME OUT

MOV
P
BLT
MOV
8IS
BIC
CMP
BNE
BIlS
JSR

#0,3SEL6
#6
oPTYP.,
DVIN?

;SET UP SEL 6
;1S THIS DMR MODE
;I1F NOT GO TO 7
;SET DMR MODE
;SET IEO
sCLEAR LU LOOP
;IS TTL SELECTED
; IF NOT GO TO 3
SELSE SET LU LOOP

#522,SEL6
#1E€0,3SEL

#LULOOP, 3SELO

#TTL MLTYP

DVINS

#LULOOP ,@SELO

PC.CLRAW

; DO WRITE MODEM IF DMR MODE

012024

000006

000145
035026
000014
000004

156106
156110
007222

000004
000003

154072
007222

000010
034729

156054

P
BLT
MOVB
JSR
8l1C
P
BNE
BIS
DVINS:
[
BNE
81S
DVIN10: JSR

OPTYP #6
DVINS
#145 ,aBSELO

;1S THIS DMR MODE
;IF NOT GO TO 8
;SET UP WRITE MODEM

PC,TOORIO

;GO TO

MMODREM,MLTYP

;IS THIS REMOTE LOOP

#BIT2+#BIT3,ASELG

DVINY
#BIT2,aBSEL6

#MODLOC MLTYP

DVIN1O
#BIT3,3BSEL6
PC,CLRAW

WAIT FOR INT

;CLEAR BSEL6 AND 7

;IF NOT GO TO 9
;SET THE BIT

;IS IT MODEM LOCAL

:IF NOT EXIT
:SET MODEM LOCAL
*CLEAR RDI

AND WAIT

; ENABLE EXTENDED ERRULR IF DMR MODE
033742
033750
033754

112777

004737
004737

000146
035026
034720

156026

MOVB
JSR
JSR

#146.aBSELO
PC,TOORIO
PC . CLRAW

;SET UP FOR ENABLE
;CLEAR RDI AND WAIT

; DO CONTROL IN COMMAND

033760
033766
033772
033776
034004

112777
004737
005077
022737
001004

000141
035026
156014
000004

156010

007220

DVINS:

MOVB
JSR
CLR
P

BNE

#141,3BSELO
PC.TOORIO
asELé

;WAIT FOR INT OR TIME OUT

DVINS

*"BR IF NOT

#DOW MODTYP

;SET _UP CONTROL IN
; CLEAR HALF/DUP

*IS THIS DOWN LINE LOAD’

CSERSOF
T

i1
DVEM3
ERR13

CIZCLYAO DMR,DMC-11 DATA COMM. LINK TEST
18-APR-80 09:24
CZCLKA.PIT

5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760

034006
034014

052777
000406

002400

(34016
034022
034024

005737
001003
052777

007224
002000

155760

034032
034040

017737
004737

034720

155754

007206

034044
034052
034054

023727
002403
052737

034062

000207

155776

DVINS:

012024

000006

001000

007232

DVINSG:

DVINEX:

H 11
18-APR-80

MACY11

30A(1052)

BIS
BR

NMAINTB+HALFDB,aSEL6

DEVICE

09:24

INIT SUBROUTINE

DVING

TST
BNE
8Is

WHALFDB,@SEL6

MOV
JSR

PC.CLRAW

FHDPLX

DVINS

SEL6, CONTIN

OPTYP 46
DVINEX

cMP
BLT
BIS

#DMRRUN, FLAG

RTS

;1F

PAGE 138
SO SET MAINT MODE

; AND FORCE HALF DUPLEX

:I1S

THIS A HALF/DUP

:IF NOT GO TO &
;ELSE

SET HALF/DUP

;SET UP CONTROL
;GO CLEAR RQ]

IN FOR MODS

AND WAIT

;FOR RDI TO GO AWAY.
;1S THIS DMR
cIF NOT EXIT

;SET RUN OUTPUT EXPECTED BIT

SJRETURN TO CALLER

SEQ 0137
BIT

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

MA“ Y11

CZCLKA.P11 ~ 18-APR-80 09:24

30A(1052)

18-APR-80

2;;(1)

.SBTTL

§772
5773
5774
5775

[T
* FUNCTIONAL DESCRIPTION:

§778

: IMPLICIT INPUTS:

g;;g

‘DVMODS""

GET MODEM STATUS

5782

{ OUTPUTS:

g;gg

: SUBORDINATE ROUTINES USED:

5787

§790
5791
5792

:
* CALLING SEQUENCE:
:
JSR
PC.DVMODS

g;g?

g;gz

;

g;gg

5797
5798

034076
0341046

5799
gggg)

THE BIT POSITION AND AVAIABLITY OF THE MODEM SIGNALS CTS.DSR....RI..
IN THE DEPENDENT PORITION OF

112777

000141

155704

017737
013777

155704
007206

010206
155700

034072

004737

034112
034116

004737
000207

035026

034720

THE GLOBAL EQUATES SECTION.

CURRENT MODEM SIGNAL VALUES IN °'MODS'’

‘“TOORIO"* = TIME OUT OR INPUT INTERRUPT OR OUTPUT INTERRUPT

034064

5796

PAGE 139

DEVICE GET MODEM STATUS SUBROUT INE

5779

5795

09:24

DEVICE GET MODEM STATUS SUBROUT INE

"CLRAW'* -~ CLEAR ROI AND WAIT FOR RDI TO CLEAR

DVMODS: MOVB

#141.3BSELO

:SET UP CONTORL IN

aSELG ,MODS
CONTIN.@SEL6

*SET UP MODEM STATUS
-SET UP OLD CONTORL IN

JSR

PC.,TOORIO

JSR
RTS

PC, CLRAW
PC

MOV
MOV

*GO TIME OUT CHECK

;RETURN TO CALLER

SEQ 0138

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PT
18-APR-80 09:2+

J 1
18- APR-80

MACY11 30A(1052)

09:24
PAGE 140
DEVICE QUEUE RECEIVE SPACE SUBROUTINE

.SBTTL

DEVICE QUEUE RECEIVE SPACE SUBROUTINE

: FUNCTIONAL DESCRIPTION:

DVRXQ - THIS SUB ROUTINE QUES THE REC BUFFER SPACE TO THE
DEVICE, THEN CLEARS THE QRX BIT OF THE FLAG WORD.

INPUTS:
DVRXA
DVRCC

ADDRESS OF RX BUFFER SPACE

BYTE CHAR COUNT OF RX BUFFER

QRX FLAG BIT = SET BY CALLING ROUTINE

OUTPUTS:

QRX FLAG BIT = CLEARED BY ROUTINE

SUBORDINATE ROUTINES USED:
"TOORIO'* = TIME OUT OR OUTPUT INTERRUPT OR INTPUT INTERRUPT
"'CLRAW'' = CLEAR RQI AND WAIT FOR RDI TO CLEAR
CALLING SEQUENCE:
JSR
PC.DVRXQ

032737
001423

042737

000004
000144
035026
155632

007126
007130
034720

007232

#ARX,FLAG

007232

#ORX,FLAG
#144 ,@BSELO
PC,TOORIO

DVREX

155632

010206
155622
155620

@SEL4,MODS
DVRXA ,@SEL4
DVRCC ,aSEL6

DVREX:

‘F,’E .CLRAW

cIF NOT RX THEN EXIT
JELSE QUE RX
;CLEAR FLAG FOR RX

;GO CHECK FOR IN OR OUT
;SET UP NEW MOD STATUS
;LOAD CC AND ADDR
;CLEAR AND WAIT

SRETURN TO CALLER

SEQ C139

CZCLrAO DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PI
18-APR-80 09:24

K 11
18-APR-80

MACY11 30A(1052)

09:24

PAGE 141

DEVICE TRANSMIT AND RECEIVE SUBROUTINE

.SBTTL

DEVICE TRANSMIT AND RECEIVE SUBROUTINE

FUNCTIONAL DESCRIPTION:

DVTXRX-DEVICE TRANSMIT AND RECEIVE ROUTINE
THIS CODE QUES THE TRANSMIT BUFFER TO THE DEVICE
IF NEEDED. THE CODE THEN WAITS FOR A TX COMPLE,
RX COMPLETE OR BOTH. THE CODE REPORTS A TIME OUT
ERROR IF NO BACC OUTPUT INTERRUPT IS RECIEVED BEFORE

TR I E

T E

PR Y

s 44

R IR T R

60 SECONDS. AFTER REPORTING ERROR TIMER IS RE STARTED

INPUTS:

"DVTXA'* = ADDRESS OF TRANSMIT MSG.
"DVTCC'* = BYTE COUNT OF TRANSMIT MSG.
"QIX'* BIT
= SET IF TRANSMIT REQUESTED

"ETX'' BIT
"ERX'* BIT

= SET IF TRNASMIT EXPECTED
= SET IF RECIEVE EXPECTED

PR TR

AND DEVICE WILL CONTINUE TO WAIT FOR INTERRUPT. CODE
ALSO REPORTS ERROR IF INPUT INTERRUPT OCCURS WHEN
EXPECTING OUTPUT INTERRUPT.WHEN RX BACC OCCURS WHEN
EXPECTING TX,AND WHEN TX INT. OCCURS WHEN EXPECTING
RECIEVE.

OUTPUTS:

= ADDRESS OF TX MSG. COMPLETED
= BYTE COUNT OF TX MSG. COMPLETED
SET IF TX COMPLETED
= ADDRESS OF RX MSG. COMPLETED
= BYTE COUNT OF RX MSG. COMPLETED
SET IF RX COMPLETED

SUBORDINATE ROUTINES USED:

"TOORIO"* -~ TIME OUT OR OUTPUT INTERRUPT OR INTPUT INTERRUPT
“'CLRAW'’ ~ CLEAR RQ] AND WAIT FOR RD] TO CLEAR

"LGDVE'* = LOG DEVICE ERROR TO EVENT LOG
'OUTHDL’® = OUTPUT INTERRUPT HANDLER CODE
CALLING SEQUENCE
:
JSR
PC .DVTXRX

NI NI NN

TN T

"DVIXA®'®
"DVTCC''
"QrX’
"DVRXA’'
"DVRCC'*
"QRX"’

012737
032737

000010

007232

000010
000140
035026
155552
007112
007114
034720

007232

000074

DVIXRX: BIT

BEQ
BIC

155552

MOVB

JSR
MOV

010206

155542
155540

007276
007232

MOV
DVTR3:

JSR

MOV

TOINOT: BIT

#QTX, FLAG

DVTRS

#QTX,FLAG

#140.3BSELO

PC.TOORIO
asSEL& . MODS

DVTCC,ISEL6

:ANY TX TO OUE

“IF NOT GO WAIT FOR OUPUT
*CLEAR FLAG

;GO CHECK FOR IN OR OUT
*PUT IN NEW MOD STAT

PC,CLRAW

sCLEAR RQUI ANDWAIT

#60. , TIMERS

;SET TIMER FOR 60 SECS

H#CRX+ACTX FLAG

;IS IT TX OR RX COMP ALREADY?

SEQ 0140

CZCLFAQ DMR,DMC-11 DATA COMM, LINK TEST
CZCLKA.P11 ~ 18-APR-80 09:24

55898899 034272
5900
5901
5902
5903
5904

5905
5906
5907
5908
5909

001071

034274 005737
034300 001022
034302 012737
034310 017737
034316 017737

034324
034330
034334
034334
034336

004737
005237

gg}% 034344

000744

5910
5911

5914
5915
5916

5917

034340
034342

034346
034346

034350

007276

016424
155462
155460

020774
007144

007176
007200
007202

TOIN1:

007232

5920 034360 012737 016516
5921 034366 017737 155404
5922 034374 017737 155402

007176
007200
007202

5923
5924
5925
5926
5927
5928
5929
5930

;3;5
5033

5934

5935

034402
034406

034414

004737
042737
005237

034420
034422
034426
034426

104457
000015
016516
020450

034432

032737

034420

034430
034440

5936

034442

5938

034454

5937

5939

001425

004737

034446

032737

034456

032737

5940 034464
5941 034466
5042 034474
5943 034476
5944 034504
5945 034512
5946 034520
5947
5048
5949
5950
5951

034526
034524
034526
034530
034532

5953

034534

001703

001440
032737
001020
012737
013737
013737
004737
104457
000016
017041
020450

000411

DVTRS

;1S SO EXIT

ST
BNE
MOV
MOV
MOV

TIMERS
TOIN?
#DVEMSG
, TEMP2
SSELO, TEMP3
SSEL2. TEMP4

;1S TIMER EXPIRED

020774
000001
007144

000002

035150

BIT

#ININT ,FLAG

;1S IT INPUT INTERRUPT

MOV
MOV
MOV

#DVEMS
, TEMP2
SSELO, TEMP3
SSEL2. TEMPS

INC

ERRCNT

BREAK

JSR
BIC

007232

PC.LGDVE
#ININT FLAG

007232

000020

007232

000200

007232

017041
035746
035750

007176
007200
007202

TOIN2:

TOINOT

BIT

#OTINT ,FLAG

BEQ

JSR

DVIR4:

TOINOT

PC.,OUTHOL

BIT

NCTX+#CRX,FLAG

BIT

#CTX_FLAG

BEQ
BEQ
BIT
BNE
MOV
MOV
MOV
JSR

TOINOT

TRAP

($8RK

TRAP
LWORD
.WORD
.WORD

CSERSOF
T
13
DVEMS
ERR13

TRAP
LWORD
"WORD
.WORD

(SERSOF
T
14
DVEM9
ERR13

:IF NOT OUTPUT GO BACK AND

“ELSE HANDLE OUTPUT AND RETURN
:IS IT TX OR RX

*IF NOT GO BACK AND TRY AGAIN

SIS IT TX

PC.LGDVE

DVTR4B

DVEM4
ERR13

*CHECK TIMER AGAIN

*IF NOT TRY RX
“IF SO SHOULD IT BE
SIF IT SHOULD GO TO 4A
:ELSE LOG ERROR

ERRSOFT 14.DVEM9,.ERR13

"WORD
_WORD

;CLEAR BIT

DVTRS
NETX,FLAG

DVTR4A
#DVEMS,TEMP2
TSEL4, TEMP3
TSEL6. TEMPS

CSERSOFT
12

:IF SO LOG ERROR

ERRSOFT 13,DVEMS.ERR13

000060

020774

;RETURN TO CHECK TIMER

TOIN2

SEQ 0141

TRAP
.WORD

DVTR3

BEQ

000715
001711

BNE

000001

gg}g 034356

30A(1052)
18-APR-80 09:24
PAGE 142
DEVICE TRANSMIT AND RECEIVE SUBROUT INE

JSR
PC.LGDVE
INC
ERRCNT
ERRSOFT 12.DVEM&,ERR13

104457
000014
016424
020450

104422
032737

MACY11

-REPORT ERROR

;THEN CLEAR COMPL.FLAG

CZCLFAO DMR,DMC-11 DATA COMM, LINK TEST
CZCLKA.P1
18-APR-80 09:24
5954
5955
5956
5957

034536
034544
034552
560

013737
013737

035746
035750
000010

000020
000040

007112
007114
007232
007232
007232

000100

007232

016752
035752
035754
020774

LA
MACY11 30A(1052)
18-APR-80 09:24 PAGE 143
DEVICE TRANSMIT AND RECEIVE SUBROUTINE
DVTR4A: MOV

MOV
BIS
DVTR4B: BIC
DVIRS:
BIT
8EQ
BIT

TSEL4 ,DVTXA
TSEL6.DVTCC

#QTX,FLAG

#CTX FLAG
#CRX.FLAG

DVTREX
NERX ,FLAG

DVTRSA

NOVEMS, TEMP?
RSEL4, TEMP3
RSELG, TEMPS

PC.LGDVE
JSR
T 15.DVEMS,ERR13
ERRSOF

SEQ 0142

SAND SET TX COMPL FLAG

JELSE CLEAR FLAG
;IS IT RX T00?
¢IF NOT THEN EXIT.

;TEST IS THIS SUPPOSED TO BE RX

;IF YES PROCESS AS SUCH

SELSE
;LOG ERROR
TRAP
. WORD
.WORD
.WORD

035752
035754
000004
000040

007126
007130
007232
007232

DVTRSA: MOV

MOV
8IS
DVIRX1: 8IC
DVTREX: RTS

DVTRX1
RSEL4 ,DVRXA
RSEL6,DVRCC

#ORX,FLAG
#CRX,FLAG

SAND EXIT

;CLEAR FLAG FOR RX DONE
SAND EXIT

T
CSERSOF
15
DVEMS
ERR13

N1
MACY11 30A(1052)
18-APR-80 09:24
PAGE 144
DEVICE TRANSMIT AND RECEIVE SUBROUTINE

CZCLYAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.P11 ~ 18-APR-80 09:24

5979

: DEVICE DEPENDENT SUBROUTINES

ggg%

.SBTTL

2381

5984
5985
5986
5987
5988
5989
ggg?
§992
5993
5994
5995
5996
5997
5998
5999

034700
034700
034700
(034706
034706
034706
034710
034710
034710
034716
034716
034716

052737

000001

007232

DEVICE INTERRUPT SERVICE ROUTINES
BGNSRV

DVINS

BIS
ENDSRV

#ININT ,FLAG

L10021:

000002

007232

BGNSRV

DVOUTS

8IS
ENDSRV

NOTINT ,FLAG

L10022:

s 4+
c FUNCTIONAL DESCRIPTION:

6003
6004
6005
%

N
:
.
;

6008
28(1)3

2
¢ SUBORDINATE ROUTINES USED:

28}12

6014

6013

:
;> CALLING SEQUENCE:

6016

6002

6015

6019

034720

011637

007214

6021

034732

012737

000050

6023

034744

6020
6022

034724

034740

6024
6025
6026

034746
034746
034750

042777

005737

001406

000040
007272

155044

007272

CLRA3S:
CLRAT:

034756

001370

000200

155020

6029
30

034760
034762

000207
012737

016166

007176

THIS CODE CLEARS THE INPUT REQEST BIT(RQI) SETS A
TIMER UP TO TIME SO(OCTAL) TICKS AND MAKES SURE
RD] CLEARS BEFORE TIMER EXFIRES. IF TIMER EXPIRERS
CODE REPORTS ERROR AND SETS UP TIMER AND WAITS AGAIN.

'LGDVE’'' - LOG DEVICE ERROR (TIME 0OUT)

JSR

MOV

6034

035010

005237

007144

6031 034770 017737 155002
6032 034776 017737 155000
6033 035006 004737 020774

007200
007202

PC.CLRAW
(SP) ,PCADD

:SAVE PC OF CALLING ROUTINE

#50, T IMER1

;SET UP TIMER FOR SO(OCTAL) TICKS

BEQ

CLRA2

;IF TIMER EXPIRED ERROR

BIT

#RD] ,aSELO

CLRAT

;1S RDI CLEAR

:IELE«EJT GO CHECK TIMER

RTS
MOV

PC
NOVEMO, TEMP2

*RETURN TO CALLER

INC

ERRCNT

BIC

#RQI.ISELD

TST

TIMERT

MOV

BNE
CLRA2:

RTI

CLRAW - CLEAR RQI AND WAIT FOR RDI TO GO AWAY

BREAK

104422
032777

6027

CLRAW:

RT]

DVOUTS::

000002

6000
6001

rild

DVINS::

000002

052737

SEQ 0143

MOV
MOV
JSR

8SELO, TEMP3
SSEL2. TEMPS
PC.LGDVE

TRAP

;LOG DEVEICE EVENT 0

($8RK

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA. P11
18 ~APR-80 09:24

6035
6036
6037
6038
6039
6040

035014
035014
035016
035020
035022
035024

104457
000020
016166
020372
000742

MACY11 30A(1052)
DEVICE

B8 12

18-APR-80

09:26

PAGE 145

INTERRUPT SERVICE ROUTINES

ERRSOFT 16,DVEMO,ERR9

sWHILE WAITING FOR RDI

SEQ 0144
T
CSERSOF

CLRA3

JRESET TIMER AND (ONTINUE

DVEMO
ERR9

CZCLFAQ DMR,DM(C-11 DATA (NMM.
18-APR-80 09:24
CZCLKA PN

c 12

MACY11 30A(1052)

LINK TEST

18-APR-80

TIME OUT OR INPUT

09:24

INT.

TIME OUT OR INPUT

.SBTTL

PAGE 146

OR OUTPUT

INT.

SEQ 0145

INT.

OR OUTPUT INT.

; FLNCTI(TNAL DESCRIPTION:

OORIO - TIME OUT OR INPUT INTERRUPT OR OQUTPUT INTERRUPT
THIS ROUTINE SETS UP A TIMER FOR 100 (OCTAL) TICKS

THEN CHECKS FOR TIME OUT,OR INPUT INTERRUPT,OR OUTPUT

INTERRUPT.

1F TIME OUT OCCURS IT REPORTS ERROR AND
IF _INPUT INTERRUPT OCCURS RETURN TO CALLER
IF OUTPUT INTERRPUT OCCURS LOG IT AND CONTINUE WAITING FOR
INPUT INTERRUPT.

RESTARTS TIMER.

USE OF FLAGS:

"OTINT'' = SET BY OUTPUT INT ROUTINE
“ININT'® = SET BY INPUT INT. ROUTINE
CLEARED BY THIS ROUTINTE.

SUBORDINATE ROUTINES USED:

"OUTHDL'* = OUTPUT INTERRUPT HANDLER
CALLING SEQUENCE:
JSR
PC,TOORIO

035026
035032
035040
035044

011637
012737

035046

007214
000100
007272

016254

154722
154710
020774
007144

007272

TOORIO: MOV

TOOR3:

007176

007202
007200

#100, TIMERT
TIMER1

MOV
MOV
MOV

#DVEM1, TEMP?
8SEL2, TEMPS
SELO,TEMP3

BNE

JSR
INC

BR
104422
032737

035122

001402

035124
035130
035136
035140
035146

004737
032737
001740
042737
000207

TOOR1:

000002

TOOR1

;SAVE ADDR. OF CALLING ROUTINE
;SET UP TIMER
;1S TIME EXPIRED
:IF NOT CONTINUE
:IF YES ERROR

PC,LGDVE
ERRCNT

ERRSOFT 17,DVEM1 ,ERR9

035110
035112
035112
035114

(SP) ,PCADD

MOV
TST

007232

035150
000001

007232

000001

007232

TOOR2:

T
CSERSOF
17
DVEM1
ERR9

TOORIO

BREAK

BIT

N#OTINT ,FLAG

8tQ

TOOR?2

JSR
BIT

PC,OUTHDL
#ININT FLAG

BIC

#ININT FLAG

BEQ
RTS

TOOR3

;1S THERE AN OUTPUT
;PENDING
;IF NOT GO TO 2
JELSE GO HANDL IT
;1S THERE AN INPUT PENDING
;IF NOT GO BACK TO TIMER (K.
;ELSE CLEAR THE INPUT PEND FLAG
;AND RETURN TO CALLER

TRAP

C$BRK

D 12

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
18-APR-80 09:24
CZCLKA.PT

MACY11 30A(1052)
18-APR-80 09:24
OUTPUT INTERRUPT HANDLER

.S8TTL

6096
6097
6098
6099
6100
6101
6102

OUTHDL = OUTPUT INTERRUPT HANDLER

THIS ROUTINE IS CALLED WHEN AN OUTPUT INMTERRUPT HAS SET

THE 'OTINT'® BIT IN THE ‘FLAG'® WORD.

IF RX SET CRX BIT AND MOVE ADDR AND BYTE COUNT TO RSEL4
AND RSEL6. IF TX SET CTX BIT AND MOVE ADDR AND BYTE COUNT
TO TSEL4 AND TSEL6. CLEAR OTINT FLAG AND RETURN TO CALLER.

b wd

‘OTINT'' - SET BY OUPUT ROUTINE

CLEARED BY THIS ROUTINE

:
:
H

USE OF FLAGS:

d
D

b
b
b ok

IT CHECKS FOR

AN RDO SIGNAL IF NO RDO THEN REPORT ILLEGAL INTERRUPT,
THEN IT CHECKS FOR BACC OUT IF NOT BACC OUT REPORT THE
TYPE OF OUTPUT ERROR. IF BACC OUT FIND IF RX OR TX

"DMRRUN’’ ~ SET BY DVINIT ROUTINE IF THIS IS DMR
CHECKED AND CLEARED BY THIS ROUTINE.
L
= SET IF TRANSMIT COMLETED
"'CRX"*

- SET IF RECIEVE COMPLETED

' SUBORDINATE ROUTINES USED:

b e

OUTPUT INTERRUPT HANDLER

FUNCTJONAL DESCRIPTION:

6104
6105
6106
6107
6108

SEQ 0146

6103

—

PAGE 147

'LGDVE'* -LOG DEVICE ERRORS TO EVENT LOG

6121

* CALLING SEQUENCE

035150

011637

007232
154612

JSR

PC,OUTHDL

OUTHDL: MOV
BIC

(SP) ,PCADD
#OTINT ,FLAG

81T
BNE

#RDO,ISEL2
OUTH1

INC

ERRCNT

MOV
MOV
MOV
JSR

W#DVEM6, TEMP2
@SEL2,TEMP3
aSELG6, TEMPS
PC,LGDVE

:SAVE ADDR. OF CALLING ROUTINE

;CLEAR PEND FLAG AND CHK FOR RDO
sIF RDO OK ...ELSE LOG ERROR

;GO LOG ERROR

ERRSOFT 18,DVEM6,ERR9

TRAP

%gERSOF T

.WORD
.WORD
.WORD

DVEM6
ERRS

TRAP
.WORD

CSESCAPE
L10020-.

SEXIT TEST IF ERROR

035240
035246
035250

000001

035660

154534

OUTH1:

ESCAPE

TST

BIT
BNE
JMP

W#BACC,aSEL2
1%
OUTH?

;1S THE OUTPUT BACC
; BR IF NO
;IF SO GO 10 2

MACY11 30A(1052) 1S-APR-80 09:24 PAGE 148

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.PT

18-APR-80 09:24

OUTPUT INTERRUPT HANDLER

6152
6153

035254

017737

154532

007202

6156

035262

032737

000004

007202

6157

035270

001404

1%:

sELSE LOG ERROR AND PRINT [T

MOV
@SEL6, TEMPS
; IF NO BUFFER OUTPUT JUST COUNT THEM
BIT
8EQ

#B1T2,TEMPL
OUTH6

INC

NOBUF

cMP

OPTYP #6

B8IT
BEQ

#BITS5,TEMPL
518

;IF NO BUFF INC COUNT AND EXIT
JELSE GO TO 6

6159
6160

035272
035276

005237
000137

007140
035736

6162

035302

023727

012024

000006

035312

032737

000040

007202

6166

035322

032737

0201000

007232

6168

035332

042737

001000

007232

6170
6171
6172

035344
035352
035360

012737
012737
017737

020000
016665
154416

007204
007176
007200

6174
6175
6176

035366
035372
035400

004737
012737
032737

020774
013456
000001

007204
007202

6178

035410

012737

017340

007204

007202

BIT

gITLTEflPG

;1S THIS TIMEOUT

;1S THIS DDCMP MAINT RECVD

BIT

MOV

PC.LGDVE

#LP0, CONOTM

:2116.1994

#DATCKM, CONOTM

6181
6182

035626
035434

012737
032737

017327
000010

007204
007202

MOV
8IT

#TIMOM, CONOTM
filfl.TEHP‘o

6184
6185

035444
035452

012737
032737

017307
000020

007204
007202

MOV

#DDCMRM, CONOTM

#LOSDAM, CONOTM
#BIT6, TEMPS
63
#DISCOM,CONOTM

6187

035462

012737

017275

BIT

gng‘.TEH’k

6188

035470

032737

000100

007202

007204

MOV
BIT

6190
6191

035500
035506

012737
032737

017262
000200

007204
007202

MOV

6193
6196

035516
035526

012737
032737

017242
000400

007204
007202

MOV

6196
6197

035534
035542

012737
032737

017224
001000

007204
007202

8IT

6199
6200

035552
035560

012737
023727

017204
012024

007204
000006

6202

035570

032737

002000

007202

BLY
BIT

6206
6205

035600
035606

012737
032737

020022
004000

007204
007202

MOV

108
#RXIDM, CONOTM

6207

035616

012737

020046

007204

MOV

#CTSFM,CONOTM

BIT

#DDCSRM, CONOTM

8IT

gITBJEH’k

MOV

MNMM, CONOTM

MOV
cMP

#PROEM, CONOTM
OPTYP #6

[=]

108:

ng?.TEP‘

BIT

g] 19, TEMP4

118
#BIT10,TEMPS
fii”‘l.TEHPlo

;1S RUN EXPECTED
:IF NOT BRANCH

;1F SO THEN CLEAR EXPECTED
SAND EXIT

:LOAD *NULL STRING'' TO INIT CONOTM

*IS THIS DATA CHECK

;IS THIS LOST DATA

;IS THIS DISCONNECT
;1S THIS DDCMP START RECVD
;IS THIS NON-EXSISTENT MEMORY
(%]

JSR

MOV

#DMRRUN ., FLAG
OUTHEX
#RUNSBM, CONOTM
#DVEM?7, TEMP2
@SEL2, TEMP3

:IS IT RUN STA
:JIF NOT BRANCH

8I1(C
JMP
MOV
MOV
MOV

#DMRRUN, FLAG
52%

;1F NOT DMR MODE SKIP TO 51

THIS PROCEDURE ERROR

TY DN

000002

BIT
8EQ

518

THIS DMR MODE
NOT BRANCH
THIS A RX IDLE

T LMY

032737

BLT

L XY

035416

OUTH6:

Sy Doy

6179

002420

g Gurg Gy Ong Gueg G

6164

035310

OUTHEX

LR T T T T P T 1Y

6163

JMP

NOT BRANCH

SO SET UP MESSAGE
THIS CTS FAILED
NOT BRANCH
SO SET UP MESSAGE

SEQ 0147

F 12
MACY11 30A(1052)
18-APR-80 09:24
OUTPUT INTERRUPT HANDLER

035624
035632
035634

032737
001403
012737

010000

007202

020032

007204

035642
035646

005237

007144

11%:

12%:

104457

032777

035712

035714

035754
035756

000004

154114

000020
154104
154102

007232
035746
035750

000040
154060
154056
000200

007232
035752
035754
154036

BIT
BEQ

MOV

000023
016665
020310
000427

RRRRRRRR

C2CLFAO DMR,DMC=11 DATA COMM. LINK TEST
CZCLKA.P1T
18-APR=-80 09:24

OUTHZ:

PAGE 149

13%712,TEHP4

;1S THIS CD GLITCHED

#CDGLM,CONOTM

sIF SO SET UP MESSAGE

;BR IF NO

INC
ERRCNT
T 19,DVEM?7 ,ERR8
ERRSOF

OUTHEX

;CLEAR RDO AND RETURN TO

#RXBIT,aSEL2

;1S THIS RX BACC OUT

OUTH3

#CTX,FLAG

OUTHEX:
TSELS:
TSELG6:
RSELS:
RSEL6:

#CRX,FLAG

@SEL4 RSELS
@SEL6,RSELG
G?DO.GSELZ

0
0
0
0
PC

ALLER

; IF NOT THEN IT MUST BE Tx.

@SEL4, TSELS
@SEL6, TSELG
OUTHEX

OUTH3:
OUTHS:

SEQ 0148

;SET RX COMPL
;THEN MOVE TO TEMP
;AND SEL6 TO TEMP
;CLEAR RDO

SRETURN TO CALLER

T
CSERSOF
19
DVEM?7
ERRS

’
CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PI

18-APR-80 09:24

6241

6242

6243
6244
6245
22229

MACY11

G 12
30A(1052)
18-APR-80 09:24
OUTPUT INTERRUPT HANDLER

PAGE 150

SEQ 0149

.EVEN
035760
035760
035760

ENDTST

104401

L10020:

TRAP

CSETST

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
CZCLKA.PT
18-APR-80 09:24
6248
6249

MACY11

H 12
304(1052)
18-APR-80 09:264
OUTPUT INTERRUPT HANDLER

PAGE 151
SEQ 0150

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P1Y

18-APR-80 09:24

MACY11 30A(1052) 1A-APR-80 09:24 PAGE 152

HARDWARE PARAMETER CODING SECTION

6250

.SBTTL

6253

6254

&
&
035762
035762
035764

035764
035764
035766
035770

LSHARD: :

GPRML

000130
036036
000001

6288
6289
6290
6291
6292
6293
6294

036010
036012
036012
036014
036016
036020
036022

6297
6298
6299

036024
036026
036026
036030
036032
036034

36006

036067
160000
177776

GPRMA

002031

DPLX,0,1,YES

.WORD
.WORD
LWORD

T$CODE
DPLX
1

DEVICE DEPENDENT SECTION
GPRMA

001031

.WORD L10023-L$HARD/?2

DEVICE INDEPENDENT SECTION

.SBTTL
035772
035772
035774
035776
036000
036002
036002
036004

6303
6304

B8GNHRD

000025

.SBTTL

6279
6280
6281
6282
6283
6284
6285
6286

6301
6302

THE

; WITH THE OPERATOR.

6277

6295

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.

: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
. INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
. MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICAT]ONS

6267
6269
6270
6271
6272

HARDWARE PARAMETER CODING SECTION

; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS

;

2528

6262
6263
6264

SEQ 0151

(SRADR,?2,0,160000,177776,YES

VE(CTOR,4,0,300,776.,YES

.WORD

.WORD
WORD
WORD

.WORD

TSCODE

CSRADR
TSLOLIM
TSHILIM

TSCODE

036115

.WORD

VECTOR

000776

WORD

TSHILIM

003032
036150
000340
000004
000007

WORD

;

005032
036176

GPRMD

PRIOR.6,0,340,4,7,YES

GPRMD

DEVPRM,10,D.17,0,15.,YES

GPRMD

OPTN,12.0,7.0.7,YES

000007

000000
000007

;
:

GPRMD
GPRMD

BAUD,14,0,7.0.7,YES
LININ.16.0,7.0.7,YES

TSLOLIM

.WORD
.WORD
.WORD
.WORD
.WORD

TS$CODE
PRIOR
340
TSLOLIM
TSHILIM

.WORD
.WORD

TSCODE
OQPTN

'WORD
LWORD

TSLOLIM
TSHILIM

CZCLFAQO DMR,DMC~11 DATA COMM_ LINK TEST
CZCLKA.P11
18~APR-80 09:24

MACY11

30A(1052)

J 12
18-APR-80

DEVICE DEPENDENT SECTION

(09:24

PAGE 153

SEQ 0152

ENDHRD

L10023:
NLIST

.EVEN

BEX

;DEVICE INDEPENDENT QUESTIONS
036036

052506

046114

042040

DPLX:

.ASCIZ

/FULL DUPLEX OPERATION

b
—

—

047
042

N =

036067
036115
036150
036176

;DEVICE DEPENDENT QUESTION
053105
052116
042524
044526

04151
051105
051122
042503

CSRADR:
VECTOR:
PRIOR:
OPTN:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCI2

;DEVPRM:
JBAUD:
_ASCII
LASCI1I
:
:
.ASCIZ
JLININ: _ASCIZ
6311
6312
6313

036262

.LIST

BEX
.EVEN

/DEVICE CSR ADDRESS : /
/INTERRUPT VECTOR ADDRESS: /
/INTERRUPT PRIORITY : /
/DEVICE OPTION TYPE : (0=DMC,5=DMR-DMC MODE

,7=DMR)/

.ASCIZ
/DEVICE PARHETER WORD (ENABLE CRC,STRIP SYNC...)
/BAUD RATE TO USE ('0° FOR 2.4K, "1' FOR 4.8K;/
<15><12>/
*2" FOR 9.6K, '3' FOR 19.2K, ‘4’ FOR 56K;/

<15><12>/

/LINE

'5' FOR 250K.

INTERFACE

'6' FOR 500k,

(0=423,1=...>/

'7'

FOR 1 MEG :

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
CZCLRA.PT
18~APR-80 09:24

MACY11 30A(1052)

K 12
18-APR-80

DEVICE DEPENDENT SECTION

09:24

PAGE 154

SEQ 0153

;.SBTTL SOFTWARE PARAMETER CODING SECTION
A4

; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.

THE

¢ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUN]CATIONS

: WITH THE OPERATOR.
H

BGNSFT

ENDSF T

oooooooooooooooooooooooooooooooooooooooooo

ooooooo

" TEMPORARY PAT(A AREA = FOR DEBUGPURPOSES
S

000030

SPATCH:

Blkw

EE N

LASTAD
.EVEN
. WORD

LS$LAST::
.END

.WORD

ENDMOD

L 12

CZCLrAQ DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 S09:24
CZCLKA.PT
18~APR-80 09:24
CROSS REFEREMCE TABLE == USER 3YMBOL
ACY
ACTATV
ACTBCR
ACTCHK
ACTCLB
ACTCLP
ACTCLR
ACTCOP
ACTCRC
ACTCSE
ACTCST
ACTDLL
ACTDME
ACTDMQ
ACTDMS
ACTDMX
ACTECH
ACTEQO

4989

5217

4986
4990
4909
4899

49894
49994

ACTME]

4984
4977
4904
4897

4901

49084

ACTMS2
ACTMS3
ACTMS4
ACTMSS
ACTMS6
ACTM2X

4924

4927

4930

4934n

4965

49654

47984

4817

4483
492N

48314

ACTHLP
ACTLIS
ACTLLP
ACTLPX
ACTLXX
ACTMEX

ACTMOP
ACTMSO
ACTMS1

ACTNO
ACTNUF
ACTNUL
ACTNUM
ACTOPM
ACTPAS
ACTPRO
ACTPRT
ACTQFG
ACTREC
CTRLP
CTRPS

CTRUN
CTSHO
CTSHW
CTSTE
CTSTS
CTSTY
CTSTX
CTSZE
CTTAL
CTTLP

4912

49324
49814

PAGE 156

SEQ 0154

LY
CZCLFAOQ DMR,DMC~-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
CZCLRA.PT
18-APR-80 09:24
CROSS REFERENCE TABLE -- USER SYMBOLS
ACTTRA 030274
ADDCC
022600
ADDCT1
022674
ADR
=
20

5264

031200

5106

000010
000027
000001
007211
000051
017370
015010
014755
015001

A 23 ZeE38 2

-bd

1606

b wmd —=d

BASM3
014772
BASN1
021470
8IT0 = 000001
BIT00 = 000001
1701 = 000002
I1T02 = 000004
ITO3 = 000010
I1T04 = 000020
I1T05 = 000040
1106 = 000100
1T07 = 000200
1708 = 000400
1T09 = 001000
IT1
= 000002
IT10 = 002000
IT11 = 004000
IT12 = 010000
IT13 = 020000
I1T14 = 040000
IT15 = 100000
112 = 000004
1T3 = 000010
174 = 000020
115 = 000040
IT6 = 000100
117 = 000200
118 = 000400
IT9 = 001000
DBEX 023006
DBUF
022676

51804

5343

b end eub o b

ASSEMB=
ATVWOD=
BACC
=
BAD
BADCHR=
BASE
BASM1
BASMIA
BASM?2

52424

293

ALCK3C
ALCKSG
ALCKSGA
ALCK4B
ALCKS
ALLTR

5235
5267

ALCK3
ALCK3A
ALCK3B

6644

031142
031250
031314
031534
031560
031652
031664
031660
031706
031714
031726

alalala]alalalalalalalalalaa
T2 1212121212 121212 1211

AL CK
ALCK1
ALCK2
ALCK2A

4697

3452

5708

1791

1803

6176

1808
5733

5727
6182

1800

6164

1802

61N

4599

4645

5730

6156

4794

5033

PAGE 157

SEQ 0155

N 12
CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
8-APR-80 09:26
CZCLKA.P11
18-APR-80 09:24
CROSS REFERENCE TABLE == USER SYMBOLS

BLDBY1

BLDB2

BLDB3

022706

37664

022766

37774

022750

B0E
= 000400 G
BSELO
011776
BSEL1
012000

BSELZ
BSEL3
B8SEL4
BSELS
BSEL6
BSEL?
BUFEX
BUFL IM=
BYTBIT

012002
012004
012006
012010
012012
012014
014033
001000
007152

CABLE = 000002
CBLLOP= 000045
CCURAD 007110
CDGLM
020032

CHECK =
CLEAR =
CLIACT
CLIALN=
CLIALP=

000003
000001
026664
000007
000006

CLIBCR
cLIBOL
CLIBIF=
CLIBR =

012344
012237
000003
000002

CLIBRX
CLIDEC=
CLIERM
CLIERR=
CLIEXI=
CLINBG
CLINPS
CLINUF
CLINUM=
CLIOCT=
CLISEO
CLISPA=
CLISTR=

012217
000011
012122
000000
000001
012175
012301
012152
000005
000010
012411

CLITRE
CLISPM
CLKBR

010344
012114
007254

CLKEN

007262

[CLKCSR
CLKHZ
CLKINT
[CLKSET
CLKVEC
CLRAW
CLRA1

000012

37740

16374
2374LN
23754

23774
23784
23804
23814
23834
23844
2638#
16484
20514

16674
17734
20314
30264

173954
17374
4528
17304
1724
24664
24544
17264
17254

2268
2320

246514
17324
243
17234
17244
24474
24604
24434
17284
17314
24734
17274
17334

2247
2309
22104

24384
2108#

007252

2107#

007260
020570 G
020544
007256
034720
034740

21104
3265+
32204
21094
5719
60224

21114

PAGE 158

SEQ 0156

3781
3782
5706+
4269+

5739+
5676+

5745+
5679+

5795+

5834+

5889

4568

4609

4273+
4277%
5730«
4281+
4571

2020
3453+

2022

4826*

4830«

3719

3731

4643

4648~

4772+

2226
2288
2330

2229
2295
2337

2231
2297
2339

2220

2259

2261

4787

5029

4721

2334

2244
2310
2353

2253
2318

2243
2300
2354

22645

2367

2266
2223
2260
2317

2239
2350

4206+
4218
4222

5799

2251
2316
2362

4434

5894

6015#

2241
2296

2352

2356

8 13

CZCLFAQO DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
C2CLKA.P11
18~APR-80 09:24
CROSS REFERENCE TABLE == USER SYMBOLS
CLRA2

034762

CLRAS

CMOBUF
CMPBUF
CMPPTR

CMPSEX
CMPSR
cMPS1
CMPS2
CMPS3
CMPSS
CMPSSA

cMPs6

034732

003062
005326
007102

032202
031726
032
032072
031760
032170
032174

6023
60214
19674

60304
6040
4519
4470
44h4

4770
53854
53044
5354

4526
4771
4465
5009+

PAGE 159

4477
5010+

4626+
5011

4627+

46461+

4642

5307

SEQ 0157

46467

4753«

47547

4755

4768+

032136

53524

CMPTOT
007104
CMSGO = 000020
CMSG1 = 000021

4621+

4628

4647

4757

4761+

5018

3168
6196w
5798
3768+
5128+
5081«
5566+

5681+
6199+

5498+
6204*

5506+
6207+

5511+
6210+

6170+

6175

6178«

6181«

6184+

6187+

4473
5193
5106+

4477
5198«
5130+

4596
5210
5183

4600
5258+
5188+

4642

4646

4770+

5311
5229+

4783«
5315+
5241+

5031«
5612+
5262

5058+

5307+

5937

5958

5976

6228

4608

4619

4649

4762%

5937
3771
5469
3730
4908+

5939
3773
5470
3733
5029+

5957
3783«

6223
4472+

4478

4597+

4602

4643

4648

4788+

5030+

3734

3767
5435+«

3772
5471

3783
5472

4468+

4480~

4790+

4862+

4875+

5916

6025

CMPS7

032054

CMSG2
CMSG3
CMSG4
CMSGS

= 000022
= 000023

= 000026
= 000025
CMSG6 = 000026
CONOTM 007204

CONTIN
CPTR
CPTRR
CR
CRC

CRCB

007206
007162
007160

016042
= 000040

= 000020

CRX
=
CSHEXP=
CSHTRN=
CSRADR

ggrcc

000040
000006
000007
036067

007106

CTSFM
020046
CTX
= 000020
CURADD
007164
CURCC

007156

CSAU = 000052
CSAUTO= 000061
C$8RK = 000022
C$SBSEG= 000004
C$8SUB= 000002

ICSCEFG= 000045
CSCLCK=
CSCLEA=
C$CLOS=
C$CLP1=
WC‘CVEC=

000062
000012
000035
000006

000036

4201

5429+

6085

5265
5216+

5306+
5221

c 13

18-APR-80 09:26
MACY11 30A(1052)
CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
18-APR-80 09:24
CROSS REFERENCE TABLE -~ USER SYMBOLS
CZCLKA.P1T

PAGE 160

SEQ 0158

CSOCLN= 000044

4392
1465

CSE
000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010

5651

5967

6036

6078

6138

6214

3145

3159

4813

4858

4888

3174
4235
4951

4447
4997

6492

5445

4537
5605

3525

3533

3557

3573

3588

3626

3829

5213

5260

5304

5427

5538

5600

3539«
3540+

3810

4494+
4495+

4818+
4819+

5346

5359

5694

4320

4363

4507

4220

4517

5544

3092

3106

CSPNTB= 000014
CaPNTF= 000017

3088

CSPNTS= 000016

5328
6146

6246
4238

CSPNTX= 000015
csQlo = 000377
CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046

C$SPRI= 000041
C$SVEC= 000037
CS$TPRI= 000013
DATCKB= 000002
DATCKM 017340
= 000001
DCO
= 000014
(K
OCMRM 017307
DCSRM 017242
DE
= 000022
ER
= 000010
Vi
010334

DEV2
DEV3

010336
010340

5908

5927

5948

3128

3149

3163

3178

3102

3117

4590

4616

4636

3124
3684

4733

3138
3728

3485

3499

3512

4169

4174

4180

4358
4306

4313

4958

5077

3529
3528
3820

3537«
3538+

4496+

4820

3813

D13

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 S09:24
CZCLKA.PI
18~APR-80 09:24
CROSS REFERENCE TABLE -- USER SYMBOL
DEV4
010342
OFPTBL
002130 G
DIAGMC= 000000
DISCOM 017262
DLE
= 000020
DLL
032262
OLLAB
017130
DLLCM
013640
OLLEA
032370
DLLE1
032646
DLLE2
032514
DLLE3
032726
DLLE4G
032716
DLLES
032746
DLLE6
032600
DLLE7
032546
DLLE8
032666
OLLGA = 000400
OLLMOD= 000033
OLLM1
002647
DLLMIC
002172
DLLMIE
002654
DLLMZ
002654
DLLM2C 002174
DLLMZ2E 003062
DLLPRI
032344
DLTXRX 032404

DMC
DMPE
DMPQ
DMPS

=
=
=
=

000000
000053
000054
000052

DMRC6 = 000004

21934
15314

1403
2999%
17044
2101
29814

26164
54494
5477
56754
5505
55064
5494
5479
564824
5497
17184
17634

1831
18314
1831
1832
18324
1832
54404
5630

1688#
17794
17804
17784

3542+

3834

6190
3367
56264
5453

5684

5442
5486
54964
5495
55094

5510
54884
5499
55004
5436
2247
19144
5429
19194
19204
5435
19614

29104

5476

5492

5428

5434
5493

4557

4827

6166

6168

2133

36674
36594
28904

5512

2277
2279
2275

17904

3678

5507

54604

3775
3774
4926

3687
3454

5514a

5437

16894
16904
17194
16914
16924
18364
18214
16614

6271

3838

5674

5762
5677

63104
36934
36584

36794
3691
3690
6030
6072
5

5748

4559

6038
6080

5696

3842

4497

4821+

PAGE 161

SEQ 0159

E 13

CZCLrAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 S09:24
CZCLRA.PI
18~APR-80 09:24
CROSS REFERENCE TABLE =-- USER SYMBOL
OvI
= 000012
DVINEX
034062
DVINIT
033400
OVINS
034700
DVIN1
033542
DVINIO 033736
DVINZ
033460

DVIN3
DVING
DVINS
DVING
DVIN?
OVINE
DVIN9

DVMODS
DVOUTS
DVRCC
DWRCT
DVREX
DVRXA
DVRXQ
DVICC
OVTICT
DVTREX
DVTRX1
DVIR3
DVTRG
DVTR4A
DVTR4B

033646
034032
034016
033442
033614
033760
033720

034566
034646
007112
034200
000037

EDDCK
EDDDE
EDDER
EDDLE

014573
014706
014556
014651

EFM2

F.CON=
F .NEW=
F .PWR=
F .RES=
F.STA=

MSGO
MSG1
MSGZ2
MSG3

014256

000036
000035
000034
000037
000040

002221
002222
002223
002224

SEQ 0160

5699

5686

57574

034064
034710
007130
007132
034176
007126
034120
007114
007116
034676
034670
034256
034456
034536
034560

DVIRS
DVTR5A
DVIXA
DVTXRX
ECHO =

ECHOB =

3354
57644

PAGE 162

5464
5215+

5501
5219+

5609+
5237+

5620
5238

5622+
5308+

5623+
5365+

5838

5662+
58294

5500

5607+

5619

5622

5837

5973«

5471

5127+

5489
5247+

5493
525¢

5563«
5255

5571

5893

5955«

5244
5568

56469«
5617

5488
58864

5560+

5570

5892

5954+

4934

4944

4954

5208

5348

5361

5330

5974+

CZCLFAQ DMR,DMC-11 DATA (COMM, LINK TEST

CZCLKA.PT

EMSGL
EMSGS

EMSG6
EMSG8
ENADD
ENDEVT
ENDIT

18-APR-80 09:24

002324
002416

002517
002647
007150
022320
025146
ENDQO = 000017
EOP
= 000024
ERRCNT
007144
ERR1
020170 G
ERR10
020260 G
ERR13
020450 G
ERR14
020502 G
ERR2
020232 G
ERR8
020310 G
ERR9
020372 G
ERX
= 000100
ETX
= 000200
EVL
= 000004 G

EWCTS
EVMDCD
EVMDSR

016004
016014
016010

EVMOCG 015664
EVMOHD 015707
EWOST 015767
EWRI
016024
EWRTS 016020
EWMSaD 016030
EVMTM
016034
EVIADD 010300
EVIBCT
010302
EVIEND 010204
EVIFO
015051
EVIF1
015147
EVIF2
015176
EVIF3
015250
EVIF3C 015262
EVIF3D 015277
EVIF4
015321
EVIF4A 015423
EVIF4B 015521
EVIF5A 015600
EVTILOG 007302
EVILST
010244
EVIMIN 010274
EVIPTR 007300
EVISEC
010272
VITCK
010276
VITMP 010304
ESEND = 002100
$LOAD= 000035
FHOPLX 007224
FLAG
007232

1826
1827

1828
1830
20504
3464
6177
17514
17064
20484
6136+
30654
30954
3152#
31664
30824
31094
3131x
17164
17174
16314

MACY11 30A(1052)

F13
18-APR-80

CROSS REFERENCE TABLE == USER SYMBOLS

09:24

PAGE 163

SEQ 0161

18684

3686
3478

4831+
35934

3381

5024+

5326+

53440

5930

5951

5970

6141
5131
5234

5233
5250

3547«

5357 *

5389

5692+

5906+

5251
5474

5426
5491

5611
5565

5960
5577

5941

3553

3552

3563+
3564

3568

3569

3578«
3579+

3584
3583

5925+

6034

6076+

5234
5492+

5240+
5496

5242
5565+

2143
2145
2144

28284
28364
28454
2147
2146
2148
2149
21714
21724
2124
27564
27674
2771
27784
27804
27834
27874
2794
28104
2818#
2122
21544
21694
21224
2168#
21704
21734
14034
14034
20844
20944

5250+

3508
3471

3548+
4247

3530

3427

3456

3469

4244

3495
3428%
3494

3455

3476

42465+

3521

3549+

3551

2565+

3567

3580+

3582

5753
5057+
5259+

5080+
5426+

5105+

5131«
5461+

5181
5474 *

5191
5476

5203
5478

5436+

5233+
5691+

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PT

F$AU

= 000015

FSAUTO= 000020

FSBGN = 000040
FSCLEA= 000007
FSOU
= 000016
FSEND = 000041
FSHARD=
FSW =
FSINI 7=
FSJMP =
FSMCO =
FSMSG =

18-APR-80 09:24

5577+
5939
6129

164034

5611~
5941
6166

4402

MACY11 30A(1052)

CROSS REFERENCE TABLE -- USER SYMBOLS
5705+
5956
6168+

4413

164034

4339

4343

4158

4238

4320

14034
164034
164034

4353
4380
1405

4370
439N
3080

6243

6247

164034

5993

4320

6146

1405

6146

6329

3065

6245

4345

000004
000013
000006
000050
000000
000011

14034
16034
16034
16403¢
16034
%(1'22’

6263
1529
4158
3181
1405
g?g;

6307
1560
4327
4238
6347
3078

F$PROT= 000021
FSPWR = 000017

16034
16034

4142

4149

4122

4132

3265

3290

4430

6245

FSRPT =
FSSEG =
F$SOF T=
FSSRV =
F$SUB =
F$SW
=

000012
000003
000005
000010
000002
000014

164034
16034
14034
164034
16034
164034

GETCL

025724

22%

22;3#

4183

42528

025332
025374

44374
4440

44504

GTRAS
GTREX
GTRX2

025640
030716
030746

4451
50214
SQ29%

GTXRXB

025332

44364

FSTEST= 000001

GETPRM

(024726

GOOD

007210

GTRAL

025402

GTRA2
GTRA3

GTR9

030634

GSCNTO= 000200
GSDELM= 000372

164034

20704

44554

3070

G 13

18-APR-80

4539

5762+
5957«
6223+
3082

4339

6263

3093

6363

5830
5958
6228+
3095

6353

6347
3107

5833+«
5960

3109

4363

3129

13N

4380

3150

5888+
5976+

3152

4386

3164

5897
5987+«

3166

4402

3179

SEQ 0162
5917
5994+

3183

4408

3181

3148

3152

3162

4560

4562

4564

4577

4592

4606

4618

6280
6280

6285
6285

6290
6290

6298
6298

4384

4406

4507

3082

3091

3095

3105

5986

5989

5993

5996

4548

4551

4553

5456

5342+

4223
4223

4520
4520

5547
5547

6270
6270

14034

4223

4520

5547

6290

6298

5986

3127

4363

3444
3444

4142

3109

4320

14034
14034

4122

4238

6347

5635

4507

4134

4261

50044

4429

3292

6309

5579

5937
6093+

4507

4406

5396

3265

5933
6091

4429

4393

5647

5924+
6086

4415

4384

5397

4556

5886
5975«

PAGE 164

4372

44964

4510

09:24

14034
164034
14034
14034
16034
14034

5991

5998

CZCLFAQ DMR,DMC-11 DATA COMM. LINK TEST

CZCLKA.PT
GSRADL=
GSRADO=
GSXFER=
GSYES =

18~APR-80 09:24

000120
000020
000004
000010

HALFDB= 002000
HELP
= 000000

3444
6280

6270
6285

6290

6298

3444

4223

6270

6280

3048

3063

3192

4124

4387

4301

5640

HLP

= 000005

HLPF

012520

24864

4730

HLPO

012442

247848

4489

HLP2
HLP3

012540
012646

1973
1974

HLP4A

013012

1976

HLPEND

HLPTAB

HLP1

HOE
IBE
IDU
IE0O

003230

19794

003212

19728

012525

HLP4

HLPS
HLP6

17414

4404

1972

012733

=
=
=
=

IER
=
ININT =
INTPRI
INVEC
ISR
=
IXE
=
ISAU =
ISAUTO=
ISCLN =
ISOU =
ISHRD =
ISINIT=
ISMOD =
ISMSG =

013070
013152

100000
010000
000040
000100
020000
000001
012022
012016
000100
004000
000041
000041
000041
000041
000041
000041
000041
0000417

I$PROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
ISSEG = 000041
ISSETU= 000041
IS$SRV = 000041
I1$SUB = 000041
ISTST = 000041
JSJMP = 000167
KEYWD1
003204
LCLKEN= 000100
GDVE
020774
LIS
= 000006

G
G
G

G
G

2215

1506

5645

4426
1542

5772

1519

4128

4427

6285
1533

4130

09:24

6290
1564

4150

PAGE 165

1568

2394

2415

6266

6313

6327

5992

6275

6310

31094

31294

31314

4323

2368

2395

6248

5804

5844

5981

5984

6093

5917
4287+
4284

5924
4302
4304

5987
4309

6091

44028
43394
43534
43804
63094
41584
14054
%(1)93:

44154
43454
4363
43934

1797

1575

4160

6241

1783

SEQ 0163

6298

4431

1563

4737

4341

2416

4355

2432

4366

3046

4382

6332

6340

31504

3152

3164¥

4740%

4744»

2887

3108

4265

4727

24874
24894
25024

25114

1977
1978

25364

16034
14034
14034
16034
16034
164034
16034
164034
14034
14034
1968#
4759
167644
33474
16634

4409

1507

4550

1975

16444
16414
16344
18094
16424
17104
23894
23874
16354
16404
164038
16034
16034
14034
62634
16034
164034
13?28

5755
1617

2217

4735

H 13
18-APR-80

CROSS REFERENCE TABLE -~ USER SYMBOLS

14034
16034
14034
164034

18074
5750
#1403

HELPDC= 000000

MACY11 30A(1052)

25194

25274

5714

4238
63474
30804

43724

4320

43294

3082

30934

30954

31074

59984

41420
41220
4429

41344

32654
4429
44294
3181
4550
4778
4196

32924

59864

59914

S9934

4507
4384
4552
4827«

6146
4406
4554
LB37+

62458

62474

4557
4B40+

4561

4563

4565

4721%

4726x

4737+

569
5578

5905

5923

5946

5965

6033

6075

6135

6174

5485
4923

CZCLFAQO DMR,DMC-11 DATA COMM. LINK TEST

CZCLRA.PT

18-APR-80 09:24

LISCK
033170
LISCKA 033216
LISMOD= 000032
L.SP
013564
LMOLOP= 000046
LNCNT
007136
LOE
= 040000 G
LOGCMD 021114
LOGCML
021076
LOGCMP 021060
LOGDVI
021012
LOGEOP 021132
LOGEX
021404
LOGRXC
020764
LOGRXQ 020746
LOGS1
021150
LOGS2
021376
LOGS3
021202
LOGS4
021256
LOGSS
021302
LOGTXC
020730
LOGTXQ 020712
LOGUNT
007212
LOOPS
003276
LOSDAM 017275

LOT

LPO
LPOO

= 000010 G

LP1
LP2
LP3
LP4
LULOOP=
LSACP
LSAPT

013456
013457

2103
56074
17628
26004
17744
20454

16434
33694
33654
33614
33524
3373#
3383
33444
33394
3332

3424
3350
3395

3389
33344
33294

20758
20014
30014
16324

2001
25804

013466
013477
013505
013520
004000
002110 G
002036 G

2002
2003
2004
2005
18054
14954
164534

LSAUT
LSAUTO
LSCCP
LSCLEA

002070
025264
002106
025266

G
G
G
G

14794
1496
14934
1494

LSOEPO
LSDESC
LSOESP
SDEVP
$OISP
$OLY

002011
012042
002076
002060
002124
002116

6
6
G
6
G
6

$OUT
$OVTY

002034
025310
002072
012026

G
6
G
G

14514
1482
14814
1472

$SENVI
$ETP
$EXP1

002044 G
002102 G
002046 6

14594
1485
14614

LSAU

LS$CO

$OTP

$OTYP

SEF

025316 G

002032 G

002040 G

002052 G

1480

146494

14314
1486
14854
14714
1456
15014

56004
5631
2245
5602
2354
3394
5363
5332
5322
5026
5390
34304
5207
5190
3337
34284
3359
36404m
3391
5246
5199
4250%
3819
6187

2161
3815

25824
25844
25864
25884
5715

44024
4334

4353»
24214
15164

14554

14664

4380#
26104

MACY11 30A(1052)

113

18-APR-80

CROSS REFERENCE TABLE =-- USER SYMBOLS

09:24

5633

3396+

3405+

5502
5467
3342

5621
5615
3346

3378#

3364

3368

3372

4252+

5572
5564
4253

4257

25794

3818

6175

34124
5690
5473

5718

3376

3387#

PAGE 166

SEQ 0164

J 13

CZCLYAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 S09:24
CZCLKA.P1T
18~APR-80 09:24
CROSS REFERENCE TABLE -- USER SYMBOL
LSEXPS
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP_
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT

002064 G
002066 G
035764 G
002120 G
002016 G
002022 G
002130 G
002104 G
024400 G
002026 G
036346 G
002100 G
002074 G
002050 G
002000 G
002042 G
024372 G

14754
16774
1438
15034
16374
16414
1442
14914
1492
146454
1646
14874
14834
14634
14204
14574
1498

LSREV
LSRPT
LSSPC
LSSPCP
LSSPTP

002010
024364
002056
002020
002024

164294
1474
14694
14394
14434

LSPRT
LSREPP

LSSTA
LSTEST

002112 G
002062 G

G
G
G
G
G

002030 G
002114 G
002014 G

002012 G
002150
020230
020256
020306
020370
020446
020500
020536
020710
024370
025262
025264
025306
025314
025322
035760
034706
034716
36036
013602
000400
040000
007222

010226
010210
007234
003260

164974
14734

14474
16994
14354

14334
1529
3078#
30914
31054
31274
31484
31624
31774
32904
41324
4239
43434
4364
4385
4407
4508
59894
59964
6263
26034
18064
18044
20814
4992+
21394
21324
20974
19934

6263

62644

1529

15304

PAGE 167
SEQ 0165

41584

63454

414624

61224

4253
15604

3182

431

43274

43704
43914
44134
6147

62454

63084
4224
5750
5672
3356
5716
3620
3608

5036
3812

4484
5728

4495
5731

4509+

4819

4917+

4936%

4979

4981+

4983*

4985+

4987+

K 13

CZCLFAQO DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
CZCLKA.P11 ~ 18-APR-80 09:24%
CROSS REFERENCE TABLE -- USER SYMBOLS
MODLOC=
MODREM=
MODS
MODTYP

000003
000004
010206
007220

MOMSGS 010226
MOP
= 000043

MOO
MO1
MO2
MO3
MO
MOS
MOb
MSG

013365
013375
013406
013416
013425
013442
013447
002736

MSGTRU

014102

16684
1669%
2128
2078#
4989
21630

5731
5728
3385
3355
503%
3609

1993
199%
1995
1996
1997
1998
1999
1936

25654
25674
25694
25714
2573
25764
2577#
1942

16700

5797+
4483«
5217

5836%
4494
5231

5891
4818
S248

PAGE 168

4912+
5578+

4915+
5634r

4920
5748

4923«

16504
26614

4461
4572

4583
4587

4623
4613

4629
4633

4750

4765

5006

5012

MSGTYP

ggggx

3769

4467+

4479%

4789%

4868+

4892+

4B94x

4B96*

1837

1847

1838

1849

1839

1851

1840

1853

1841

18554

18694
4480
1883«

4790

4903

4942

4970

26468

3725

L 4

MSGO
MSGOC
MSG1
MSGIC
MSG2
MSGC
MSG3
MSG3C

002220
002150
002221
002152
002222
002154
002223
002156

1822
18224
1823
18234
1826
1824
1825
18254

MSGS
MSGSC
MSG6
MSG6C

002324
0062
002416
002164

1827
18278
1828
1828#

1842
4468
1843
4906

17668

2285

MSG4
MSG4C

G8C
NOBUF
NOCLK
NODO
1

100
101
102

103
106
105

106

107
11
110
111
112
113

002224
002160

1826
18264

002646
002170
024720

1830
18304
4182

007140
013712
010344
010350

20464
26234
22144
22154

011262
011266
011302

22974

= 000036

01042%

011306
011322
011326

011332

011346
010430
011352
011370
011374
011410

20220

23014
23024
23034
23064

23100
22234
23114
2312
2313
2314n

4926+

4929+

4932«

4945

4898+

4900+

4902+

4905+

17714

MSGL:M= 000017
MSGTRN 014051
007156

SEQ 0166

1845
42504

1909#
4254

5022+
4232

5387
444é

4939

6159+

CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P11
NOD114
NOD115
NOD116

NOD117
NOD12
NOD120
NOD121
NOD122
NOD123
NOD124
NOD125

NOD126
NOD127
NOD13
NOD130
NOD131
NOD132
NOD133
NOD134
NOD135
NOD136
NOD137

NOD14
NOD140
NOD141

011414
011430
011434

011450
010444
011454
011470
011474
011510
011514
011520

011524
011530
010450
011534
011540
011544
011546
011552
011556
011572
011576

01
011612
011616

18-APR-80 09:24

23154
23164
2317#

23184
22244
23194
23204
23214
23224
23254
23264

23274
23284
22254
2
23304
23314

23344
23354
23364
23374
23384

22264
233
23420

NOD142
NOD143
NOD144
NOD145

011622
011626
011632
011636

23434
23448
23474
23504

NOD147

011664

23524

NOD146

NOD15
NOD150
NOD151
NOD152
153
154
155
156
157
16
160
17

2
20
21
22

011660

010470
011700
011704
011726
011732
011754
011760
011764
011770
010474
011774
010506

010354
010512
010524
010530

23514

22274
23534
23544
23554
23564
23574
23604
23614
23624
22284
23674
22294

22164
22304
22314
22324

23
26
25

010532
010536
010552

2364
22374

27
3
30

010574
010356
010600

22404
22174
22414

010622

224

010556

010616

223

22424

MACY11 30A(1052)

L 13

18-APR-80 S09:24

CROSS REFERENCE TABLE -=- USER SYMBOL

PAGE 169

SEQ 0167

n13
CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
CZCLKA.P11
18~APR-80 09:24
CROSS REFERENCE TABLE == USER SYMBOLS

PAGE 170

SEQ 0168

b
b
d

WNIN)
= —b

ERIEAVESEY NONOONN

b b
b
b
b cud
b
b wd

g-fi—n-n—n-a_h-a_n?
_..a_a_a_n_a_o_a-a
—

b od
b
—

—d ad

OCOOO0O0O0O000000 o

—

PQour uurd

(elela)

NOD33
NOD 34
NOD 35
NOD 36

011204

2223
3459

2226

2227

2237

2276

2278

2284

2335

2246

2248

2251

2253

22824

2288

2343

6196

2229

22564

225
22654
011070
011162
011156

22684

2242

2244

2295

2297

2351

2353

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST

CZCLKA.P11

N1168

N1178

N1188
N1208
N121$

011200

011224

011246
011326
011546

18-APR-80 09:24

MACY11 30A(1052)

CROSS REFERENCE TABLE == USER SYMBOLS

2355

2357

2362

2286

2287

22934

22854

229%
2268
2310

2336
2334m
2276
2337
2296
2300
2303
2344
2350
2352
2354
2301
2225
2228
2227
2277
2223
2215
2217
2219
2221

2224
22734
22744
3084
309
2311
2313
2315

2317
2319
2321
23254
2326
23284
2329
2222
22364
2239

22641

2243
2245
2247
2250
2062#
19024
;ggg

18294

22954
2270
2312

23374

2278
2339
22994
23014
23464
23514
23534
23554
2354
22264
22294
2230
2279
2226#
22164
22184
22204
22224
22724

18-APR-80

23054
2314

2316

2318

2320

2280
23414

2284

2335

23640

22314
2302

2236
2306

2237
2325

09:26

PAGE 171
SEQ 0169

2322

2327

23334

2344

2238
2338

2249
2342

2252
2343

2257
2347

2260
2356

2266
2360

2269
2361

2275

5554

5560

5561

5573

5575

5607

5608

5630

23104
23124
231464
23164
23184
23204
2324
2330
23274

23304
22354
22404

22424

22444
22464
22484
22514
3071
5625
19034

5335+

5352+

4878

5539

5546

4876*

5558+

5562

5563

B 14

CZCLYAO DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:26
CZCLKA.PT
18~-APR-80 09:24
CROSS REFERENCE TABLE -~ USER SYMBOLS
013575
000015
036176
012024
000002
035150
035736
035240

5674

61284
6218

5677
6086

5711
6129

6226

62314

4286+

4311

5723

5760

6162

6200

4934%

4944

4954

SEQ 0170

1479
1473
1481

1505

6343
5304
4945

316

4486+

54627+
5231

4497
5538«
5248

4821
5600+

6019«

6067+

6128+

3142

OO OMOOOS

OPRMM
OPRMSG=
OPTN
OPTYP
OTINT =
QUTHOL
OQUTHEX
OUTH1

PAGE 172

4357
2219
6199

4552

4740

4967
5023«
3833

5385+

5388

4969+

4972+

5077«

5208

C 14

CZCLrAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 S09:24
CZCLKA.PI
18-APR-80 09:24
CROSS REFERENCE TABLE ~- USER SYMBOL
PTREND
PTRTAB
PSACT
PSBUFA
PSCNT
PSEXIT
PSGDBD
PSNNUF

PSNUM

PSRADX
PSTREE
PSTRV
P$TRS
QCOPY =

007076
006326
003314
003310
003316
023412
003325
003324

4458
3923
3878
40720+
39164
3938+
4515+

003320

zggzl

28;2'

003322
0035312
023274
023304
000013

20144
20104
38774
38804
17474

3975+
3879
4530
3889
2338

QRX

QTX

= 000010

;g}%#

003206
003210
000200
000200
000031
021406
007216
024660
000200
000047
007230

021530

XMTOT

20244
20234
20114
20094
20124
3881
20164
20154

021600
022244
022170
021754
022244
010306
022050
022114
022330
021702
021574
021562
000040
035752
035754
000040
000004
020000
000004
004326
000006
020022
007134
020122

17134

5886
19704
19714
18014
1802#
16574
17614
34364
20774
6171
17934

gggg

5080

5888
4529+
4604
6026
6130

17754
20934

2243
4125
4161+
6197
2136
2356
3357

34814
2183
2186
2181
2185
21774
2182
2187
3514
2177
3457
3470
1800#
5963
5964
17924
176404
30214
1808¢
20214
16994
30244
20434
3036#

3578#
35634
35174
35774
3501
35374
35474
36024
2178
3473
34764
6020
5973
5974
2135
2221
6170
6221
5030
3345
6204
5018+
5506

2184

34664

4581
4528+
4526*
4027
3940
3943«
4540

4622

4749

47¢4

4089+
3945
3951
4718
4020

4096+

4101

4002%
4745%
6021*

3978+
4527

3985+

3909
4847

3914

4018+

PAGE 173

SEQ 017

4775

4782

5004

4045+
4758+
4023*

4514
4777%
4027+

4531
4832+
4029+

4860
4909*
4035+

4953+
4916*
4825

4991»
4935+
4831

4999
4852

4862

3992

4025

4033

5105

513

5181

5203

5233

5240

5251

5461

5496

5611

5830

5131

5191

5234

5242

5250

5259

5474

5478

5491

5565

5577

4847+
4B41x

4850
4864r

4939
4865+

4942

4955+

4970

4973+

4741
4185+
4210

4450
4229

42414

6485+

4496

4504

4746

4820

4976+

5392

5394+

2179
3477

2180
34804

35034

6229«
6230~

62354
62364

4554

4744

5462
3388

5463

5482

5503

5509

5056

5129

5308

5956
4B44r
4650%

6231

3515

3535

3546

3560

3575

3591

D 14
CZCLFAO DMR,DMC~11 DATA COMM, LINK TEST
MACY11 30A(1052)
18-APR-80 S09:24
CZCLKA.P11
18-APR-80 09:24
CRCSS REFERENCE TABLE -- USER SYMBOL
RXM2

RXNC
RxOr%Y
RXON2
RXPTR
RXQ
=
SCM

SCMD
SCML

020145

020102
031014
031014
007076
000004
016111

30404

PAGE 174

SEQ 0172

5511
5698
50544
44A0r

5015+

5016+

5031

5055

5104

5130

5216

5306

016144
016133

SDVE
SDV]
SELO

016100
016122
011776

012002

5672+
4272+

5681
5690

5689
5714

5715+«
5904

5718«
5922

5903
6032

5921
6073

6020+
6130

6026
6133

6031
6149

6074
6172

SELS
SEL6

012006
012012

4280+

4276+

5836
5727+

5837«
5747

5891
5750+

5692+
5755«

6224
5757

6229
5798+

5838+

016155
000010
000011
014165
014223
013251
000002
003250

5708+
5710+
6230

5797
5713«

SEOP
SETEXP=
SETTRN=
SHFQ
SHF 1
SHMSG
SHOW =
SHTAB

5671«
5670+
6225

4759

4778

STXxQ

013305
013314
013321
013326
(013333
013341
(013346
013354
003230
023022
000012
040000

4837

4563
4804

4724

4498
4844

016067
007146

024454
000001
000016
016056

016045

IDERLERY

SVCINS- 000001

=D = cd b N

SvVCGBL= 000000

SRXQ
STADD
START
STATB =
STATUS=
STXC

003257

4565
4840

bS
3 J\VNQN\‘I\N
NQNE

SHTEND

SHTYPO
SHTYP1
SHTYP2
SHTYP3
SHTYP4
SHTYPS
SHTYP6
SHTYP?
SHTYTB
SHIOP
SIZE
=
SaD
=

6153

NN = = b b QNN =D b b
OV
N
e NS
P
N =00\

SELZ2

E 14

svcsuB= 000001
SVCTAG= 000001

14034
1403#

SVCTST= 000001
S$LSYM= 010000

14034
164034

S2
S3
S4
TABEX

TAL
=
TALCK
TALMOD=
TCURAD
TEMP

024442

024516
024566
024634
013773

000005
032750
000035
007124
007172

3106

16624
2102
17654
2038+
20634

Q0 = NN
—
NOWVONONON
N
o

30924

3178#

42294

44140

59974

4176

4194
4204
4215
26324

3112
3128
3146
317
3403

3124
3144
3169

PAGE 175

gggraaay

b
2
—

[o X2{p¥
=]

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:26
CZCLRA.PT
18-APR-80 09:24
CROSS REFERENCE TABLE -- USER SYMBOLS

4632

5574

5576

4472
3336

4597

3825

3341«
3439«
3833«

4602+

3345+
3443
3836+

3354»
3669+

4806+

3367+
3731+

4869+

3371»
3732w
4870+

3388
3771

4877

3414
3772+
5222+

F 14
CZCLFAC DMR,DMC~-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:2¢
CZCLKA.PIT
18-APR-80 09:24
CROSS REFERENCE TABLE == USER SYMBOLS
TEMPY

007174

TEMP2

007176

TEMP3

TEMPS

TIMERS
TIMER1

TIMER2

TIMMIN
TIMOM
TIMSEC
TIMTCK
TM
=
TOINOT

5223+
2064#
3837~

9227
3330w
3840+
3355+

3335+

007200

PAGE 176

SEQ 0174

3340+

3348+

3353«

3362+

3366+

3370«

3374

3407

3819+

3823

3420
5225+
5619~
3134

37746

"~ 3776+

3780
5312+
5920+
3357«
5314
5903+

3820+
5388+
5943+

3822
5463
5962+
3815+
5389+
5944

3841+
5470+
6030+
3818+
5665+
5963

3844

5484+
6072+
3824
5472+
6031+

3848
5488+
6132«
5186+
5482+

5184+
5500+
6171+
5196+
5489+

5945+
6191

3422
6032+
6197

5321»
6073+
6202

5334+
6134+
6205

5339«
6153«

5340
6156

5685

6022

6068+

6069

4609

4649

007202

3358+

007276
007272
007274

6074+

6208

6133+

4242+
4243

TOIN1
TOINZ

TOORIO

5835

5890

60674

6082

3732

3734~

4455«

4567+

4568

4601

4608+

3947

3950

3970

<036

4059

4080

4104

4061

4082

4108

4780+

5079

5102

TOOR1
TOORZ2
TOOR3

TOTCC
TRA
=
TRAMOD=
TRVACT
TRVALN
TRVALP
TRVBIF
TRVBR
TRVBR(C
TRVDEC
TRVERR
TRVEX]
TRVNMA
TRVNOB
TRVNLM
TRVOCT
TRVSPA
023542
TRVSTR
024274

035746
035750
000001
000044
007122
TXBUF
003326
IXC
= 00600

TSEL4
TSEL6
TTL
=
TTLLOP=
TTOTCC
TXMTOT
TXNC
TXONLY

031046

3948

3953

3972

6046

2971

4037

4060

4081

6224+
6225+
5716

62334
6234n

4567
4784

4578
5483

4601~

4781+

4580+

4582

4603+

4776

5127

G 14

CZCLrFAQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
CZCLRA.PTT
18-APR-80 09:24
CROSS REFERENCE TABLE -- USER SYMBOLS
TXON2
TXPTR
XQ
=
T$ARGC=

031054
007100
000000
000001

5078#
20274
16964
1620

3118
34074
3534
36714

6044

45864
4889
34440

T$CODE= 005032
TSERRN= 000023

lg?g:

TSEXCP= 000000

g%g}#

TSFLAG= 000040

318?’

TSGMAN= 000000
TSHILI= 000007

TSLAST= 000001

T$LOLI= 000000
TSLSYM= 010000
TSLTNO= 000001
TSNEST= 177777

TSNSO = 000000
TSNS1 = 000004

TSNS2 = 000010

T$SPTNU= 000000
T$SAWL= 177777

T$SEGL=
TSSUBN=
TIS$TAGL=
TSTAGN=

177777
000000
177777
010024

TSTEMP= 000000

TSTEST= 000001
T$TSTM= 177777

31204
3611
35514
3677

42328

6591
L9488
L2234
53294

4226
1561

4371

4392

316484
4330
62454
16054

31524
43434
62634
6347

3162
43534

31664
4370

15294

5986

14034
164034

14034
14030
16034
14034
3394
15174

34460
43844
6147
14034
14034

3159

5908

14030

4236

46128
4952
4520
53474

42384

63434

63464
164034

3125
34594
3558
36804

3183

16034

14238

45204

42208
4227

z%%?#

4473

4228

164034
g%%gl

4133
4306
4492
T$7STS= 000001

4459
3331
14228

14054

1560

5989

4581*

146244

31330
3463
35674
3685

Q444m

4617
L996H
5547H

4448

4493

3076

315¢
3500
36034
3830

45344

4783

3084»

3160
35074
3607
38484

59494

S9684

60374

60794

61394

6284

62854

6289

62904

6295

62984

44064

4408

43204

43634

43844

4386

45074

61464

6288

62904

6294

6298¥

5550

62804

6282

62854

6287

62904

6293

62984

3128

3149

3163

3178

3291

6133

4328

4344

30784

30824

55474

3092

3106

5997

6246

15604

30654

3078

30824

32654
431
5996

4576

55534
62854

4523

31774
43B0F

48554
5629

5547
6283

45268
5551

31664
L3704
63474

59284

4814
56254

S544m
62804

4520
55474

31624
43534
63074

3111»

3403
3528#
3666
4040¥

48854

62804

5990

3103

33994
3526
36614
4001

5128

4859

5552

59094

30974

3175
35214
3627
39974

5103

45714

55474

56954

3089

3168
3513
36234
3855

5078

4547

4525

54528

5005«

45434

48084
5606
62984

53604

SEQ 0175

4538

4734
56024
62904

3079

59934

GLBW

30674

3146
34924
3589
38224

4782+

47298
5446
62854

45204

3177
43804

14264

31414
3486
3582¢
3729

4600*

4637
54420
62804

45174
4524

15294

146258

3139
34824
3574
37254

4596

46320
4998
62704

42294
45204

4414

4595+

PAGE 177

32654
439MF
3091

6309

3200
44020
3095#

3290
44024

L1228
4413

4132
44304

30954

31094

31314

30914

41224
4413
3105

30954

31054

41328
4430M

L1428
S9BGH

3109

3127

31094

4L149%
S9BOF
3131

31274

41S8¥
S993
3148

3131#

4327#
59964
3152#

L1620
6245

4149
62634

41584
6307

4327

43394

4343

31524

31664

32654

41228

41424

41584

4429
15294

30654

L3538

4380

L1328
4385
62454

L1490
43914
62708

15184

44294
3075

3163

15604

6346
3079

3082¢

44024

44304

4L223M
L4068
6280

423BH
4407
62854

30784

3088

30914

3092

5986F

31054

4239
44134
62904
3102

59934

62634

43204
45074
62984

4321
4508
63074

3127#

3106

3174

3178

3402

3410

3441

4164
4313
4501

4169
4318
4507

4174
4320
4517

4180
4328
4537

419
4344
4546

4201
4358
4575

5916

5927

5948

5967

6025

6036

44304

3148¢

3117

3462
3684

31624

G3278
43204
63474
3124

31774

43438
5547
3128

31814

L3634
59894
3138

3182

4364
59964
3145

43704
61464
3149

3485

3499

3512

4213
4360
4590

4220
4363
4616

4235
437
4636

4238
4392
4733

4258
464614
4813

4296
6447
4858

6078

6085

6138

6146

6214

6246

3525
000

3533

H 14

CZCLFAQ DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 S09:26
CZCLKA.P11 ~ 18-APR=-80 09:24
CROSS REFERENCE TABLE =~ USER SYMBOL
46020
43394
43530
43804
62634
1520

4406
4343
4363
4384
6308
1560

4370
4391

T$$INI= 010013
TSSMSG= 010007

4158¢
%?9;’

4238
g?g?

4320
3082¢

4327
3091

T$$PRO=
T$$RPT=
T$$SRV=
T$STES=

010012
010011
010022
010020

L1420
41228
32654
L6300

4132
3290
4507

59864
6146

= 000200 G

16364

22154

18]

UAM

UPTABL
UPTA1
UPTA3
UPTA4Y
UPTEX
VECTOR
x$

025324 G

031350
031436
031434
031374
031506
036115

= 000161

1517

52084
5214
5218
5209
5220
6286

5230w
63104

22268
2262M
22584
2277H

2227
263K
2250M
22784

14060

22974

XSALWA=
X$FALS=
X$OFFS=
X$STRUE=
SPATCH

)

000000
000040
000400
000020
036262

= 036346

4629

SEQ 0176

4413

30954

3105

5989
6245

59934

5996

22168

22178

22188

31094

3127

22198

22208

31314

3148

22218

22228

3152¢

3162

31664

22264m

2225

5221
52204
5213

22144

2228N
064N
22608
2079M

2229
245M
22614
2080

2230
2046N
20668
22838

22314
2O47R
2067TR
22B4N

Q232
Q248N
22688
2085

2036
2249
20698
zgaec

22378
2050
22708
r ol

22388
2SI
22738
2]

22238

20308
22528
2074M
2294

22408
2253
2075M
2

2061
20578
2076
2296

23164
23314
23520

23004

23174
2334w
23534

23014

23184
2335
354w

23194
2336
2355

2320
3374
2356

23214
23384
2357

23094

322m
330M
2360

23108
2325
342N
23614

2326w
3438
23628

327
O344W
367N

3288
3478

O320W
3508

23308
23518

164034
22174
23004
30114

18974
22234
23024
30174

1903
2230M
23094
30184

1934
2237
23114
30204

1941
2239W
2313
3182

19674
245K
23154
4239

19914
2247
23174
4321

20204
22588

20214
260W

20228
2285
2354M
4407

2023
Q2878
24138
4508

2123¢
204N

21248
222064

14034
14034
14034
14034
63374

23024

23034

23064

‘Y

TSSAU = 010017
T$$SAUT= 010014
T$SCLE= 010015
T$SOU = 010016
TSSHAR= 010023
TSSHJ = 010000

PAGE 178

23364
4364

23114

23384
4385

23128

23134

2%140

26298
6147

23154

2863w
63114

CZCLFAO DMR,DMC~11

CZCLKA.PIN

BCOMPL
BERROR
BGNAU
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSF T

BGNSRV
BGNSUB
BGNSW
BGNTST
BNCOMP
BNERRO
BREAK
BRESET

CKLOOP

CLI

DATA COMM. LINK TEST

18-APR-80 09:24

14
1#
1
14
14
1o
14
14
14
1w
1w
¥
14
1w
1w
4

4
1w
1w
14
W
w
14
¥

14034
14034
164034
14034
14034
14034
16034
14034
14034
14034
14034
14034
14034
14034
14034
14034

14034

14034
14034
164034
14034
164034
14034
14034

2227
2245

2267

2312

2329

2352

4502

3081

3094

3108

3130

3264

5985

5992

4428
4175

4193

4203

6214

4260

4601
4338
4352
4379
6262
1528
4157
14604
3064
4141

6024

6084

2213

2214

2215

2216

2217

2268

1 14

18-APR-80

3151

3165

2219

2220

2229
2247

2269

2230
2248

2272
229
2315
2334

2218

2236
2251

2237
2252

2%8

2277

2278

2316

2317

2318

2319

2320

2321

2273

2274

2275

2238
2256

2353

2354

2355

2356

2359

2360

2361

2366

3077

3090

3104

3126

3147

3161

3176

14034

2333

2221

2235
2250

2314

PAGE 180

2231
2249

2313

2330

09:24

SEQ 0177

4127

5915

1403
14034
164034

14
14

5683

W
4
1w

4170

4359

2228
2246

30A(1052)

CROSS REFERENCE TABLE == MACRO NAMES

14034

#1403

14074

4165

MACY11

2335

2336

2337

2338

2341

14034

14034
164034

2239
2257

2342

2222

2240
2258

2223

2241
2259

2279

2282

2324

2325

2343

2346

2224

2242
2260

2225

2243
2265

2226

2244
2266

2283

2284

2285

2326

2327

2328

2349

2350

2351

CZCLFAO DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:26
CZCLKA.P11
18-APR-80 09:24
CROSS REFERENCE TABLE =-- MACRO NAMES
ENDPRO
ENDPTA
ENDRPT
ENDSEG
ENDSET
ENDSF T
ENDSRV
ENDSUB
ENDSW
ENDTST
EQUALS
ERRDF
ERRHRD

1w
1%
4
14
1w
14
1
14
14
14
W
4
14

16034
14034
16030
14034
14034
14034
14034
14034
16034
16034
14034
14034
14034

ERROR
ERRSF
ERRSOF
ERRTBL
ESCAPE
EXIT
FEQUAL
GETBYT
GETPRI
GE TWOR
GMANIA
GMANID
GMANIL
GPHARD
GPRMA
GPRMD
GPRML
HEADER
INLOOP
I0SETU
JOSTAR
KT11
LASTAD
MANUAL

4
4
¥
4
W
14
1w
1w
1%
&
4
W
4
¥
1w
14
4
W
4
1
4
1w
14
1#

164034
164034
14034
14034
14034
14034
14034
164034
16034
14034
14034
14034
14034
14034
14038
14038
14034
164034
14034
14034
14034
14034
14034
14034

YTE

14034

MSCNTO
M$COUN

W
14

14034
14034

MEMORY
MS$CHEC

MSDATA
MSDECR
MSDEF A
MSENDE

RRI
MSESCA
SCS

34924
39974

49L8F
7
1453
1485
1#

14034

35074
40408
4994
14034
1455
1487
14034

413

3289

5988

5995

5327

5345

5358

5693

5907

5926

5947

6145
3180

4237

4319

4362

4383

4405

4506

4516

5543

4520

5544m

5547

6289

6244
1576
5450

4219
3440
4256
6279
42204
34414

1419

3444N
30674

55474
31x
35674
45340

35214
42324
54428
16204
1457
1489
15604

44134

59894

14034

45174

6269

1428

43914

14034
14034

3444

14204

31814

44138

14
14

6284

4223

5966

6035

6077

6137

6213

33994
36804

34074
37254

3459

34824

6297

6341
4500

43918
14034
14034

SEQ 0178

4148

43704
4
4

PAGE 181

3444H
15604

53284
61464
61464

1433
1463
1495
31054
62454
55474
31054

63074
54514

44064

62804

31334
360

45714

47294

4808+

48554

48854

1437
1469

1445
1477

1447
1479

1449
1481

1451
1483

31484

2621
L1324

41694

43274

434630

31484

L1324

43274

43434

43704

60364

6078#

61384

62144

63474

59084

59674

CZCLVAQ DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:26
CZCLKA.P11
18-APR-80 09:24
CROSS REFERENCE TABLE == MACRO NAMES
MSEXCP
MSEXIT
MSE XSE
MSEXTJ
MSGEN

12
19
1
4
14
14530
14854

26214
32654

MSGENB
MSGETS
MSGETT
MSGNGB

MSGNIN

14034
14034
14034
14034
164034
14554
14874

30654
32904

42234
31814
31814
31814
14204
14574
14894

30784
34474

44028
4

4413
16034

4629
34414

Q3704

43914

44134

16514
14834
1531
43534
14
14330
1448
14634
1478
164934

14534
14854
26104
43804
16030
1434
16449%
1464
14794
1494

14554
14874
24214
44024
14204
14354
1450
1465
1480
16954

1%
14

164034

164034
14034

2Li0w

2411

3103
3125
3149%

31064
31284
31544

36100

34611

3076

31744

35104
3533
3572
3607
36744
38224
38544

L1668

Q201
4234
43020
43214

GGl

45188
45468
LO13F
Q7338
48860
53294
5646
5604
59104
5989

30794

15604

31814
14054

2613

31114
31334
31554

3175

3178#

34854
3511

3486
35124
35514
3574
36244
36764
3824m
39974

3534
35734
36234
3675
38234
3855

L1688

L2028
42354
43034
43284

G445

451
4547
4614
4734
4887
53304
54514
56054
59114
5990

3461

L16

4204w
4236
43044
4L344m

4446

4520w
45714
4615
4«808#
4£888#
53314
54524
5606
59164
59964

62804
43204
3634

62984
4364
45074
4385
14394
164714
1501#

31274
43274
5 996#
55444
31624

PAGE 182

4384n

44064

44064
16414

4407
164434
14754
15164

3148#

43434

62644
32904

SEQ 0179

L 14

CIZCLFAO DMR,DMC-11 DATA COMM, LINK TEST
MACY11 30A(1052)
18-APR-80 s 09:24
CZCLKA.P1
18-APR-80 09:24
CROSS REFERENCE TABLE == MACRO NAME

MSGNL S
MSGNSU
MSGNTA
MSGNTE
MSHAPT
MSHNAP

MS$INCR

6135
6281
6301
1»
»
14

43914
14
»
»

3124
34410

M3 10SE

MEMASK

MISMCHI

MSMCLO
MSMSK1

M$POP

MSPRIN

M$PUSH
MSPUT

MS$PUT1

62164
62904

62174
6291

62464
6292

62204

45174

4525

5544H

5552

30914
62454

3127#
6308

3148#

31624

30654
31454
34994

30794
31524
35254

L1734

1
»

41224
42584
L3924

62634
6293

62704
6294

62984

6271

6272
6299

62804
6300

3177#

32904

41324

“3274

43434

43704

30924

30954
3174m
35884

3102#
31784
36064

31064
32654
362

35734

56054
6138#

41584
43134
44294
48134
56944
62464

41644
4318#
4630m
L8584

419504

3174

43574

4616

SEQ 0180

62634

L1694
4320
L4478
59164

L176m
43284
44920
49514
59274

1»

14
14

41324

43274

43430

3399
36804

47294

3455
38224
48554

4£885#

32654

L1420

4158#

43704
34924

3997#
49484
4335

34924
39974

33994
36804

34595

45864

»
3112
3155
3483
3529
3584
3682
3998
4311

3098
31414
3408
35214
3570
3673
3850
4304
4572

3100
3143
3460
3523
35824
36304
3852

48084

SETS

1»
1

SV(C

62154
6288

MSRAD |

TAR

61474
6286
63434

53464
59864

4588
4856
1

MS$RBRO

14034
14034
14034
446134

61464
62854

4000
42354
43714
45754
55444
6078#

42014
4353
WS174

MS$LDRO

61400
6282
6302

PAGE 183

45864
4811

56254

4335

32654

L142»

1
3117

3102
31544

31054
3159

3106

31624

LAL)
CZCLFAOQ DMR,DMC-11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80 09:24
CZCLKA.PT
18-APR-80 09:24
CROSS REFERENCE TABLE =-- MACRO NAMES

368y
349
3623
4000

MSTLAB

MSTSTL

OPEN
POINTE
PRINTB
PRINTF
PRINTS
PRINTX

F
RF LAGS

SETPR]
SETVEC

STARS
SVC
XFER

N77»
3512
36614
4043

3178
35214
366

353%

36804

34074
3551#
3684

4200
4318
44068
4575
49488
56844

42134
43204
4413
45864
4951
5694

14034

30754

L2014
L3634
473384
56944

L2134
L3714
4LB13#

42964
45014
5328#

31634
36064
41914
43608
46368
56844

31744
36264
L2014
43634
47334
56944

31784

30754

31064

4213
43714
4B13#
59084

43634
53594
5908¢
5970

L3B4
5360
5909
60364

44064
5361
5910
6037

14
1409
2228
2266
2268

14034
2214
2229
2247
2269

62454
31634
36064

41914
43608
46368
56844
1

6216

2287
2313
2330
2353

14
1w
14

4570

14
1w
14
14
14

14
14
1
1w
1
14

6246

31744
36264

14034

16034

6217

2288
2314
2331
2354

14034

14034
14034
164034

4585

164034
14034
16034
164034
14034

164034
14034
164034
14034
14034
14034

3459
3573
38224
4174

41684
42574

Q2004
43174
4392
45718
4888
5628

MSXFER
NOOCL

3174
35074
3626
40400

PAGE 184

SEQ 0181

34920
3606
3997#

43574
4492
4636

5359
5967

31064
34854
38544

3178
36654

1459

62704

2215

2227

2334

329
2352

2230
2248
2270
2294
2315

2355
1415

3398

4542

4611

3458

4212
4162

4316
4291

31814

43204

43634

43844

4068

45074

N 14
CZCLFAO DMR,DMC~11 DATA COMM. LINK TEST
MACY11 30A(1052)
18-APR-80$ 09:24
CZCLFA.PN
18-APR-8C 09:24
CROSS REFERENCE TABLE == MACRO NAME
XFERF
XFERT

W
1w

1403«
14034

. ABS.

036346

000

ERRORS DETECTED:

CZCLKA/],CZCLKA.SEQ/CRF/SOL=SVC34R.MLB,(Z(LKA.P11
RUN~TIME: 21 27 3 SECONDS
RUN-TIME RATIO: 68/52=1.3
CORE USED:
19K
(37 PAGES)

PAGE 185

SEQ 0182