Digital PDFs

AH-F584A-MC

November 1980

183 pages

Original

78MB

view download

OCR Version

102MB

view download

Document:	CVCLHA0 DPV-11 DPV-11 DCLT AH-F584A-MC NOV 1980 bw
Order Number:	AH-F584A-MC
Revision:	000
Pages:	183
Original Filename:	CVCLHA0__DPV-11__DPV-11_DCLT__AH-F584A-MC__NOV_1980_gray.pdf

OCR Text

114 DELT
DRVE
CVCLHAO

lilie
o

;“(!
[iks

i
it

AH-F584A-MC
1 QFE1

FICHE

NOV

COPYRIGH T8

MADE

USA

———

1980
1

)

e el

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.PT

25-JUL-80 10:26

MACY11 30A(1052)
LTITLE

25-JuUL-80

10:29

PAGE 2

SEQ 0001

CVCLHA DPV=11 DATA COMM. LINK TEST
.REM £

IDENTIFICATION
PRODUCT

CODE:

AC-F582A-M(C

PRODUCT NAME:

CVCLWAD

"PV=11 DATA (OMM. LINK TEST

PRODUCT DATE:

20-AUG-80

MAINTAINER:

MERRIMACK DIAGNOSTIC ENGINEERING

AUTHOR:

BRUCE RIBOLINI-BRUCE LUHRS

THE INFORMATION IN THIS DOCUMENT IS SUBJECT
TO (HANGE 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

USE

SUPPLIED

RELIABILITY
DIGITAL

DIGITAL
DEC

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

OR ITS

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25=JUL-80 10:26

MACYT? 30A(1052)

25-JuUL-80

10:29

PAGE 3

REVISION HISTORY:
REV

DATE

AUTHOR

REASON

20-AUG-80

BRUCE RIBOLINI
BRUCE LUHRS

ORIGINAL ISSUE, DCLT FOR THE
DPV-11

SEQ 0002

CVCLHA DPV=11 DATA COMM, LINK TEST

25=JUL-80 10:26

25-JuUL-B0

—

.
.
.
-

WAES NN
—

.
o

o
.

WSS

M-‘

N
WWOoO

CONTENTS

INFORMATION

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

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

1.4

LEVEL OF

DIAGNGSTIC HIERARCY PREREQUISITES

THE GOAL OF

THE DATA (OMM. LINK TEST PROGRAM IS TO TEST

THE

COMMUNICATION LINK AND THEREFORE ASSUMES THAT THE (PU'S,
CLOCKS, AND
DVP=11'S AT EACH END OF THE LINK HAVE ALREADY

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI
25-JUL-80 10:26

MACY11 30A(1052)

25-JuUL-B0

1
10:29

PAGE 6

BEEN TESTED.

IF A WORKING CLOCK IS NOT FOUND, THE PROGRAM WILL CONTINUE
BUT ANY OF THE PROGRAM THAT TIMES THE DEVICE WILL HANG IF THE
DEVICE TIMES OQUT.
ALSO, THE EVENT LOG WILL CONTAIN A ZERO EVENT
TIME

FOR ALL EVENTS LOGGED.

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

TEST THE DPV=11'S, BUT 77
WHICH THEY ARE CONNECTED.

TEST

THE

COMMUNICATION LINK TO

SOME OF THE DIAGMISTICS THAT COULD BE RUN IF EITHER OF
LOOK BAD:

THE DPV=11'S

CVDPVAQD DPV=11 FCTNL DIAG
CXDPVAO DPV=11 DECX MODULE
1.5

ASSUMPTIONS = RESTRICTIONS

IT 1S ASSUMED THAT THE COMMUNICATIONS DEVICE (A DPV=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.
THIS DIAGNOSTIC DOES NOT RUN THE DPV

IS ASSUMED THAT

WILL WORK

IN BIT

STUFF

THE LINK WORKS
MODE.

IN BIT

STUFF

IN CHAR MODE

MODE

THE LINK

SEQ 0005

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25=JUL-80 10:26
2.0

MACY11 30A(1052)

25-JuL-80

1
10:29

PAGE 7

SEQ 0006

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS).

2.1

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

EFFECT

START

START THE DIAGNOSTIC FROM AN INITIAL STATE

CONT INUE

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *“C)

RESTART

START THE DIAGNOSTIC WITHOUT INITIALIZING

PROCEED

CONTINUE FROM AN ERROR HALT

EXIT
ADD

RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME
DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED

DROP
PRINT

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)

DISPLAY
FLAGS

IFLAGS

A COMMAND CAN BE RECOGNIZED BY

YOU MAY, FOR EXAMPLE,

2.2

THE FIRST

THREE

CHARACTERS.

TYPE ''STA" INSTEAD OF ''START'',

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 YES

/PASS:DDDDD
/FLAGS:FLGS
/EOP:DDDDD
JUNITS:LIST

EXAMPLE OF SWITCH USAGE:

NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10.
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO
ALL OTHER TESTS WILL NOV BE RUN.
BE RUN.
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 = 1 TO 64000)
ODDDD PASSES ONLY.
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)

CVCLKA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI
25=JUL-80 10:26

MACY11 30A(1052)

25-JuL-80

1
10:29

PAGE 8

START/TESTS:1-5/PASS:1000/E0P:100
THE EFFECT OF THIS CCMMAND WILL BE:

1) TESTS 1

THROUGH 5 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.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY,
FOR EXAMPLE, TYPE ''/TES:1=5"" INSTEAD OF "'/TESTS:1=5",

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

START

RESTART

CONT INUE

TESTS

PASS

PROCEED
DROP
ADD
PRINT
DISPLAY
FLAGS
IFLAGS
EXIT

FLAGS

EOP

UNITS

X
X

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

EFFECT

HOE

HALT ON ERROR = CONTROL IS RETURNED TO
RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR

LOE

IER*
IBE*

IXE*
PRI
PNT

BOE
UAM
ISR

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 MODF (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

SEQ 0007

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI
25-JUL-80 10:26

MACY11 30A(1052)

IDR

25-JUL-80

1
10:29

PAGE 9

SEQ 0008

INHIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE AUTODROP CODE

LCT
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,
10 CAUSE

THE PROCRAM TO LOOP ON ERROR,

INHIBIT ERROR REPORTS

AND TYPE A "BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE:IER:BOE

HARDWARE QUESTIONS

2.4

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING ‘'CHANGE HW (L) ?*'
YOU MUST ANSWER ''Y'' AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN '‘PRELOADED'' USING THE SETUP UTILITY (SEE

CHAPTER 6 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A ''Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF

UNITS C(IN DECIMAL).

THE

DPV=11

WiLL

OTE UgéT.

DATA COMM.

LINK TEST PROGRAM WILL NOT USE MORE

FOR THE DPV=11

# UNITS

(D)

, THE HARDWARE

? 1<CR>

UNIT 0

FULL DUPLEX OPERATION

(L)

REMOTE NODE "‘ITEP'' :

(L) Y ?

THAN

INFORMATION REQUESTED

Y ?

160170 ?
DPV CSR ADDRESS : (0)
INTERRUPT VECTOR ADDRESS:
(0)
300

THE FULL DUPLEX QUESTION SHOULD BE ANSWERED ''Y'' WHEN USING
FULL DUPLEX MODEMS,OR NULL MODEM, OR MODEM ELIMINATORS.
ANSWER 'N'' FOR HALF DUPLEX MODEMS.

REMOTE NODE ITEP SHOULD BE ANSWERED ''Y'' If OTHER NODE

IS RUNNING SOF TWARE THAT IS USING ''ITEP'' FORMATS(I.E.
[TEP).
COMM TURNARROUND SYSTEM OR PDP-11 RUNNING

CVCLHA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26

2.5

25-JuL-80

10:29

PAGE 10

SEQ 0009

DATA (OMM, LINK TEST COMMANDS

THE "'DCLT>'" COMMAND LEVEL FOLLOWS THE ANSWERING OF THE HARDWARE P-TABLE

?253;{3?26

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

(OMMAND

CLEAR

DESCRIPTION

ZEROES THE EXPECTLIST

EXPECTLIST

AND THEN PUTS DEFAULT

IN SO NOT REALLY EMPTY

CLEAR

TRANSMITLIST

ITEP MSG

AND THEN PUTS DEFAULT

ITEP MSG

TYPES HELP INFO FOR OPERATOR

HELP

EXPECTMSG=TYPE/QUAL
WHERE:

"'TYPE'' IS:

>
b
>»r-eoe

SET

(00'S)

FILLS TRANSMITLIST (000'S)
IN SO NOT REALLY EMPTY

MmN

CVCLKHA.PI

MACY11 30A(1052)

DEFINE A MESSAGE TO BE PUT ON
THE EXPECTED LIST

ITT

PHA

-1,0-9,SPACES OR TABS IN QUOTES"

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA P
25=JUL-80 10:26

MACY11 30A(1052)

25-JuL-80

10:29

PAGE 11

SEQ 0010

WHERE THE OPTIONAL ''QUAL'' IS:
/SIZE=NNN

/COPY=NN

MAKE THE MESSAGE ''NNN'' BYTES
LONG. (DEFAULT VALUE IS
SIZE OF MESSAGE SPEC'D BY
OPERATOR OR DEFAULTS.)
COPY THIS MESSAGE INTO THE

BUFFER 'NN'' TIMES (DEFAULT
IS 0 = PUT THE MESSAGE IN
ONLY ONCE)

NOTE: SET'S ADD MESSAGES TO THE LIST IN THE ORDER THEY'RE
THE FIRST SET
DEFINED. "NNN'' IS A DECIMAL NUMBER.
OVERWRITES THE DEFAULT ITEP MESSAGE PLACED THERE BY

INITIALIZATION OR A "'CLEAR'' COMMAND.

SEE SECTION 6.2 FOR A DESCRIPTION OF

MESSAGES THAT ARE AVAILABLE.

SET

TRANSM] TMSG=TYPE/QUAL

Tmc PRE=DEFINED

(ZEROS,ONES

...)

DEFINE A MESSAGE TO BE PUT ON
THE TRANSMIT LIST
(SEE DESCRIPT FOR SET EXP)

SHOW

EXPECTLIST

LISTS THE MESSAGE SIZE AND TYPE
FOR THE MESSAGES

EXPECT LIST
SHOW

TRANSMITLIST

IN THE

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

PRINTS THE EVENT LOG

DUMP

$5SSSS-EEFEEE/B

PRINTS THE CONTENTS OF THE

MEMORY LOCATIONS BETWEEN

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

OCTAL ADDRESSES ''SSSSSS'' AND
“EEEEEE'' WHERE ''SSSSSS'" IS
THE

START ADDRESS AND

“~EEEEE'' 1S THE END ADDRESS.

If ''-EEEEEE'" IS NOT SPECIFIED

THEN THE CONTENTS OF ''SSSSSS"
IS PRINTED IN WORD FORMAT,
IS PRINTED IN WORD FORMAT,
NOTE:

THE DUMP COMMAND IS USEFUL FOR EXAMINING
MESSAGE DATA.
STARTING ADDRESSES CAN

BE FOUND BY LOOKING IN THE EVENT LOG.

2.5.2 RUN COMMAND

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JUL-80 10:26

MACY11 30A(1052)

25-JuUL-80

e
10:29

PAGE 12

SEQ 0011

COMMAND

DESCRIPTION

RUN MODE=MTYPE/QUAL

STARTS DCLT EXECUTING IN THE
MODE SPECIFIED

NOTE: MODE=ACTIVE

-----

IS NOT DEFAULT,

EACH TIME A RUN IS TYPED

A MODE=MTYPE MUST BE

TYPED

WHERE THE 'MTYPE'' IS ANY ONE OF THE FOLLOWING:
=QCTIVE
=PASSIVE
=RECEIVE

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

=TRANSMIT
=TALK

(FORCES /NOECHO ,NO LOOPING,
(FORCES /NOECHO ,NO LOOPING,

=LISTEN

=DOWNLINELOAD

(FORCES /NOECHO ,NO LOOPING, /NOCHECK)

/NOCHECK)
/NOCHECK)

(DOWN=LINE=LOADING IS NOT SUPPORTED
FOR DPV=11 TO DPV=11 LINKS).
(FORCING NO LOOPING MEANS IT MUST BE

SPECIFIED AS A QUALIFIER ANY TIME
DESIRED, THERE IS NO DEFAULT)

AND OPTIONAL ''QUAL'' IS ANY COMBINATION OF THE FOLLOWING:

/CHECK/NOCHE CK

ENABLES/DISABLES CHECKING OF RECEIVED
DATA AGAINST THE EXPECTED DATA

NOTE: IF BOTH NODES IN ACTIVE AND ‘'/NOCHECK'' IS USED,
----- END-OF-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 MESSAGES 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
THE DATA RECEIVED IN PASSIVE MODE.
(IGNORED IN MODES OTHER THAN PASSIVE)
/MODEM/NOMODEM/ ENABLES/DISABLES THE REPORTING OF MODEM STATUS
INTERRUPT CHANGES.
/LOOP=LTYPE
SPECIFIES WHICH, IF AvY, TYPE OF
MAINTENANCE LOOPBACK IS BEING USED.
(IGNORED IN MODES OTHER THAN ACTIVE)

MUST BE SPECIFIED EACH TIME ELSE NO
LOOP IS USED.

“LTYPE" IS:

=INTERNALTTL

LOOPS DATA INTERNAL TO USYNRT

=CABLE

USE THIS FOR TESTING WITH H3260
OR H3259 TURNARROUND CONNECTOR

CVCLHA DPV=11 DATA COMM., LINK TEST
CVCLHA.PI
25-JUL-80 10:26

MACY11 30A(1052)

25-JuL-80

10:29

PAGE 13

NOTE: THIS SKIPS OVER THE CHECK
FOR MODEM READY WHEN DTR IS SET.

=LOCALMODEM

=REMOTEMODEM

/PASS=NN

NOT USED BY DPV

SPECIFIES NUMBER OF

END-OF=PASS.

ITERATIONS TO MAKE BEFORE

DEFAULT VALUE OF 1

WILL BE USED ON ANY RUN THAT A /PASS=N

IS NOT ADDED TO THE ‘RUN ...'' COMMAND.
IF A "'=1'" IS TYPED, THEN THE PROGRAM

RUN UNTIL A “C

NOTE:

-----

2.5.3

SEE SECTION 6.1

IS TYPED.

FOR A DESCRIPTION

OF THE ''RUN MODES'' AND ‘'LOOP MODES''

DEFAULTS

IF NO "'SET'S'' THEN THE DEFAULT IS SAME AS IF TYPED:
SET TRANSMITMSG=ITEP/SIZE=58/C0OPY=0
SET EXPECTMSG=ITEP/SIZE=58/COPY=0
THE DEFAULT COPY AND SIZE FOR EACH OF

THE MESSAGE TYPES:

ONES - /SI1ZE=64/COPY=0
ZEROES - /S1ZE=64/COPY=0
OALT - /SIZE=64/COPY=0
1ALT - /S12E=64/COPY=0
CCITT = /SIZE=64/COPY=0
ALPHA - /S1ZE=65/COPY=0
ITEP - /SIZE=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/NOMODEM/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 (UAM FLAG=1 OR CHAINED),

THE DEFAULTS ARE AS IF THESE SETUP AND RUN COMMANDS WERE TYPED:

SET TRANS=ITEP
SET EXPECT=ITEP

RUN MODE=ACTIVE/LOOP=INTERNAL/NOSTAT/NOECHO/NOMODEM/CHECK/PASS=1
OTHER NOTES:

SE2 0012

CVCLWA DPV-11_DATA COMM. LINK TEST

CVCLHA.PT

25-JUL-80 10:26

MACY11 30A(1052)

25-JuL-80

10:29

PAGE 14

ALWAYS RETURNS YOU TO ''DR>'' (THE SUPERVISOR)

"'RUBOUT"'

DELETE LAST CHAR. TYPED IN COMMAND STRING

<CR>

IS SEEN AS A COMMAND TERMINATOR

SEQ 0013

CVCLMA DPV=11 DATA COMM, LINK TEST

CVCLHA.P

25-JUL=-80 10:26

MACY11 30A(1052)

2.6 QUICK START=UP PROCEDURE

25-JuUL-80

10:29

PAGE 15

(XXDP+)

T0 START=UP THIS PROGRAM:
1. BOOT XXDP+

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

3. TYPE 'R NAME'', WHERE NAME [S THE NAME OF THE BIN OR BIC
FILE FOR THIS PROGRAM

&. TYPE "'START"

S. ANSWER THE "‘CHANGE HW'' QUESTION WITH "'

6. ANSWER ALL THE HARDWARE QUESTION®

THAT CAN DCLT CAN USE IS ALWAYS "'\

THE NUMBER OF UNITS

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) ?"" PROMPT, TYPE
"RUN MODE=ACTIVE<CR>"

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

SEQ 0014

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.P

25-JuL-80 10:26

MACY11 30A(1052)

25-JuL-B0

1C:29

PAGE 16

SEQ 0015

3.0 ERRUR INFORMATION
3.1 TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED 8Y
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 = DIAGNOSTIC NAME
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
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 MESSAGE:

MEANING

210 CMD=-BAD SYNTX?

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

THE

VALID COMMANDS AND THEIR SYNTAX ARE
SHOWN IN SECTION 2.5.

7INCMPLTE CMD?

A0R$OUIRD PART OF A COMMAND WAS LEFT

?NUM TOO BIG?

THE VALUE OF A NUMERIC STRING IN THE
COMMAND %lNE WAS LARGER THAN 65535

ut.

OR 77777

?BAD RADIX?

OCTAL. ( > 16 BITS).

A '8 OR ''9'' WAS TYPED WHEN AN OCTAL

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

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI
25-JuL-80 10:26

MACY11 30A(1352)

?"°LOOP'" VALID ONLY IN ACTIVE?

25-JuL=-80

2
10:29

PAGE 17

SEQ 0016

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

RUN COMMAND BUT THE MODE WAS NOT SET
TO ACTIVE.
MAINTENANCE LOOP IS ONLY

:?%?6ELE IF THE MODE OF OPERATION IS
?"ECHO"" VALID ONLY IN PASSIVE?

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

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

IS ONLY POSSIBLE IF THE MODE OF
OPERATION IS PASSIVE.

?2ILL CHR=- "‘A=2,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-1,0-9,SPACE OR TAB''. RETYPE THE
COMMAND WITH ONLY THESE CHARACTERS
BETWEEN QUOTES.
?"'S1ZE=0"" NOT VALID?

A MESSAGE ZERO BYTES LONG CAN NOT BE

BUILT. RETYPE THE COMMAND WITH A
"/SIZE=NNN''.
IF NO ''/SIZE='' 1S TYPED
A DEFAULY

SIZE wILL BE USED.

DCLT OR DEVICE ERROR MESSAGES:

CLOCK NOT FOUND

THIS MEANS THAT NO CLOCK WAS

FOUND ON THE SYSTEM THE DIAGNOSTIC WILL STILL RUN BUT NONE
8ECT:E TIME OUT CONDITICNS WILL
U

BAD CLOCK = PROGRAM WILL HANG ON "‘TIMEOUT''!!

THIS MEANS THAT

THE

CLOCK

FOUND

ON THE SYSTEM DID NOT INTERRUPT
WHEN ASKED TO DO A "'TICK'.

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

JERO EVENT TIME FOR ALL EVENTS LOGGED.

MAX,

(MAR, MSG COUNT EXCEEDED = MSG. NOT BUILT
THIS MEANS THAT

!!
THE

TRANSMIT OR EXF_CT

BUFFER IS FULL. NO MORE MESSAGES CAN BE
ADDED TO THAT BUFFER.

BUFFER FULL = MSG. NOT BUILT

THIS MEANS THAT THE LAST MESSAGE YOU
TRIED TO ADD TO EITHER THE TRANSMIT OR

EXPECT BUFFER CAUSED THE TOTAL NUMBER

CVCLMA DPy=11 DATA COMM, LINK TEST

(VOLWA. P

25-JUL-80 10:26

MACY11

30A(1052)

25-JuL-80

2
10:29

PAGE 18

OF MESSAGES TO BE EXCEEDED. NO MORE
MESSAGES CAN BE ADDED TO THAT BUFFER.
THE LIMIT IS DETERMINED BY
THE MESSAGE POINTER TABLE.

(HAR,

C(OUNT EXCEEDS BUFF

THE

SIZE OF

LIMIT = MSG TRUNCATED
THIS MEANS

THAT

THE

LAST MESSAGE

TRIED TO ADD TO THE

YOU

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 COMPAR]SON DATA ERROR

BYTE

[N MSG=xXX

EXPTD=YYY

RECVD=211

YYY=

START

THAT BYTE FROM THE

XXX= QOFFSET OF

THE COMPARE OR EXPECT MESSAGE.

THE

CONTENTS OF

THAT BYTE

EXPECTED MESSAGE

IN THE

111= 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
BY ANOTHER ERROR.
PRINTING

THE

EVENT

IS REPORTED

LOG AND USING

THE

DCLT "'DUMP'" COMMAND WILL ALLOW YOU TO
FIND THE

EXAMINE

DATA (OMPARISON DATA ERROR
TOTAL

MISMATCHES

IN MSG

NNN

ADDRESS OF

[T,

THIS MEANS

THAT

THE MESSAGE

AND

WHEN THE MESSAGE

RECEIVED WAS COMPARED AGAINST

THE

MESSAGE THAT WAS EXPECTED, SOME Of
THE

CHARS.

WERE NOT

THE

SAME.

DATA COMPARISON LENGTH ERROR
(OMPARE COUNT= xXXx
RECEIVE COUNT= 221
XXX= NUMBER 2!

ME SSAGE

BYTES

IN THE

COMPARE

217= NUMBER OF BYTES IN THE RECEIVED
ME SSAGE
THIS MEANS THAT

:
THE MESSAGE

RECEIVED

WAS A DIFFENT LENGTH THEN THE MESSAGE
THAT WAS EXPECTED.

MODEM STATUS (MANGES FOR THIS PASS WERE..

SEQ 0017

CVCLHA DPV=11 DATA CQMM, LINK TEST
(VCLKA.PIT
25=JuUL-80 10:26

MACY11

25-JuL-80

30A(1052)

HARD CHANGES=XXXXX

10:29

PAGE 19

GLITCH ES=XXXXX

WHERE XXXXX IS A 5 DIGIT DECIMAL NUMBER
THIS MSG IS ONLY PRINTED IF NUMBER OF
EITHER HARD CHANGES OR GLiTCHES IS
GREATER THAN 0. A HARD CHANGE IS ONE
WHERE THE DPV WAS ABLE TO LATCH UP A
DIFFERENCE IN THE MODEM STATUS. A
GLITCH IS WHEN A MODEM STATUS INTERRUPT
OCCURS BUT THE DPV CANNOT FIND A
DIFFERENCE IN STATUS BIT.
LA A

« NOTE

teennene

<«

IN THE
REFERS

FOLLOWING ERR OR DESCRIPTIONS XXXXX
TO

THE

SPECIFIED.

LENDC

OCTAL

CONTENTS OF THE DEVICE REGISTERS

MASTER RESET DID NOT WORK
TXCSR
RXCSR

THIS MEANS THAT AFTER A MASTER
RESET WAS ISSUED TO DPV THE
RXCSR REGSITER WAS NON ZERO.

NO CLEAR TO SEND FROM MOLEM
RXCSR

TXCSR

WHEN REQUEST

XXXXXXX

WITH CLEAR TO SEND

XXXXXX

XXXXXXX

TIME OUT WAITING FOR RX OR TX

RXCSR

XXOOCXXX

TXCSR

TO COMPLETE

XXXXXXX

MODEM DID NOT RETURN MODEM READY
RXCSR
TXCSR
XOOOCKKX
XXXXXXX
CRC IN ERROR
RDSR
XXXXXX

RECEIVER OVERRUN

RDSR

XXXXXXX

RXCSR

XXXXXXX

DEVICE TIMED OUT AFTER

WAITNG FOR A RECIEVER OR
TRANSMITTER TO COMPLETE

MODEM DID NOT RESPOND WITH MR,
THE CRC ERROR BIT IS CLEAR
AT TIME THAT IT SHOULD BE SET

XXXXXX

RECIEVER DETECTED AN OVERRUN
RXCSR

XXXXXXX

TIMED OUT [N START,STACK ACK SEQ

RDATA

TO SEND SIGNAL

IS SET MODEM DOES NOT RESPOND

SDATA

XOOCOCKX

THIS ERROR OCCURS WHEN IN THE

DEVICE INIT ROUTINE A TIME QUT
OCCURS WHILE TRYING TO DO START
STACK ACK START UP SEQUENCE.
THE VALUES IN RDATA AND SDATA

INDICATE THE LAST CONTROL CHAR
?ESKEXED(RDAYA) AND TRANSMITTED
)-

SEQ 0018

CVCLHA DPV=11 DATA (UMM, LINK TEST

CVCLHA. P

25-JUL-80 10:26

MACY11 30A(1052)

25-JuL-80

10:29

PAGE 20

&.0 PERFORMANCE AND PROGRESS REPORTS

DCLY 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.
FIRST=-0UT'' ORDER.

THE EVENTS ARE PRINTED IN A "LAST-IN

EVENT TIME IS TYPED OUT AS MMM:SS:TT (LIKE 254:36:07) WHERE MMM SS,T!
REPRESENT THE NUMBER OF MINUTES, SECONDS, CLOCK TICKS SINCE THE LAST
IT SHOULD BE NOTED THAT THE TIMES ARE
START OR RESTART.
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 COMMAND AT THE "DR>'' LEVEL INITIALIZES THE EVENT

LOG.

TMEREFORE IT IS WISE TO DO A "'PRINTTM 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

scQ 0019

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLKA.PI
25=JUL=-80 10:26

MACY11 30A(1052)

25=JuUL=B0

10:29

PAGE 21

SEQ 0020

DATA COMPARISON LENGTH ERROR:

EVENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG.,
TOTAL NO. OF BYTES IN RCV. MSG.,

TOTAL NO.

OF BYTES

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

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

DEVICE ERROR:

EVENT TIME, DEVICE ERROR MESSAGE, CONTENTS OF

REGISTERS RELATING TO THE ERROR.
PASS:
END OF

TWO

EVENT TIPS, "DCLT'" PASS COUNT, "DCLT'" ERROR COUNT,
AND THE ''STRT=TO''(COUNT OF

START

TIME OUTS).

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 1S CURRENTLY DOING. BELOW ARE
MIGHT BE PRINTED AND THEIR MEANING:

THE MESSAGES

THAT

ME SSAGE

MEANING

DEVICE

RXQ

DEVICE HAS QUEUED SPACE TO RECEIVE/ COMPLETED RECEIVE

MSC

ABNORMAL MODEM STATUS CHANGE

TXC

ERR
INI

(MP
(ML
(MD

EoP

IS ABOUT START TRANSMITING A MESSAGE

TRANSMISSION OF MESSAGE

COMPLETED

DEVICE ERROR HAS OCCURRED
DEVICE ABOUT TO BE INITIALIZED

ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD DATA
LENGTH ERROR OCCURRED DURING DATA COMPARISON
DATA ERROR OCCURRED DURING DATA COMPARISON
END OF PASS

CVCLMA DPV=11 DATA COMM. LINK TEST
25-JUL-80 10:26

25-JuL-80

10:29

PAGE 22

SEQ 0021

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

160170
300
240
0
O
O

;[0) FULL OR WALF DUPLEX FLAG (BITO=1 IF FULL)

:[2] CSR ADDRESS
;[4] INTERRUPT VECTOR
:[6]_ SPARE
:[10] SPARE
:[12] SPARE

;[14] REMOTE NODE "'ITEP"

6.0 MODE AND MESSAGE DESCRIPTIONS

6.1 MODE DESCRIPTIONS

THE FOLLOWING MODE DESCRIPTIONS REFER TO MESSAGE LISTS BEING
TRANSMITTED AND RECIEVED BE AWARE THAT OTHMER DATA IS ALSO

SENT WITH THE MESSAGE. MESSAGE FORMATS ARE..... 177(OCTAL)SYNC
CHARS; SOM CHAR(201) ,BYTE COUNT OF MSG.(2 BYTES);THREE BYTES OF
OCTAL 001;2 BYTES OF CRC;THE MESSAGE BODY;2BYTES OF CRC.

IF REMOTE NODE ITEP OUES?XON IS ANSWERED Y THEN SYNC CHAR WILL

BE OCTAL 26 INSTEAD OF 226:NO SOM,BYTE COUNT OR HEADER DATA WILL
BE SENT. ON FULL DUPLEX LINKS A START STACK ACK SEQ WILL BE SENT
ONCE AT INIT TIME FOR EACH MODE. THIS SEQUENCE CONTAINS CONTROL
MESSAGES WHOSE FORMAT IS ..8 SYNC CHAR, 1BYTE ENQ(OOS),START
STACK OR ACK,3 BYTES OF 001, AND 2BYTES OF CRC.
TRANSMIT MODE

A LIST OF MESSAGES IS TRANSMITTED WITHOUT EXPECTING ANY DATA
TO BE RECEIVED.

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 RECEIVETM MESSAGES
IF DATA-CHECKING IS ENABLED.

CVCLHA.PT

MACY11 30A(1052)

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25=JUL-80 10:26

MACY11 30A(1052)

25-JuL-B0

2
10:29

PAGE 23

SEQ 0022

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/DISABLES THE RETRANSMISSION OF THE DATA RECEIVED.
ACTIVE MODE

A LIST OF MESSAGES IS TRANSMITTED AND MESSAGES
LARE 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, THEN THE
LINK MUST BE A FULL DUPLEX LINK!

DOWN=L INE=LOAD

DOWN=-L INE=LOADING IS NOT SUPPORTED FOR DPV=11 TO DPV=11 LINKS.

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 THIS LINE

FOR EXAMPLE:

IS SENT THEN MODE SWTICHED

LlSTEN MODE

THE "LISTEN" END OF

THE LINK PRINTS ALL OF

THE MESSAGES

RECEIVED BY THE DEVICE
ON THE OPERATOR'S CONSOLE.
IF THE MESSAGE
RECEIVED 1S AN “EXIT" MESSAGE. THEN THE NODE ENTERS "TALK'MODE.

FEXIT MESSAGETM 15 A NESSAGE WHOSE FIRST FOUR CHARACTERS ARE

“EXITTM.

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA. P
25=JUL=80 10:26

MACY11 30A(1052)

25-JuL-80

2
10:29

PAGE 24

SEQ 0023

MAINTENANCE '‘LOOP'' MODES

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 DESIRED.
LOOP MODES ARE ONLY VALID IF THE MODE TO RUN IS ACTIVE !
INTERNALTTL

LOOPS DATA INTERNAL TO THE USYNRT

THE FOLLOWING TABLE SUMMARIZES THE MODES THAT CAN BE RUN TOGETHER
::ENOIHEHgCtIN:?OGRA" IS RUNNING ON TWO PROCESSORS (ONE AT EACH

'STATION A
"NOST" NODE
'YALK

STATION B
‘'REMOTE'' NODE

DUPLEX

LISTEN+, RECEIVE

HALF

RECEIVE+,

HALF OR FULL!

YES

PASSIVE+

''/LOOP'' ALLOWED?

'LISTEN

‘RECEIVE
'PASSIVE
'ACTIVE

NO
NO
YES

'TRANSMI T

:ACYIVE

' DOWNL INELOAD
$

LISTEN

TRANSMITe, TALK
ACTIVE+
ACTIVE®

OR FULL'

HALF OR FULL!:
HALF OR FULL!
HALF OR FULL!:
FULL
-

HALF OR FULLE

*+ DOWN-LINE-LOADING IS NOT SUPPORTED FOR DPV=-11
T0 DPV=11 LINKS.

*= MOST LIKELY TO BE

NOTE:

TALK*, TRANSMIT

:
!

|
:

IN THAT MODE

H/D START COLUMN INDICATES WHICH NODE TO START FIRST ON A
HALF

DUPLEX LINK

6.2 MESSAGE DESCRIPTIONS
NAME

DESCRIPTION

ZEROES
ONE S

MESSAGE OF ALL 0'S (00000000.00000000,00000000.,...)
MESSAGE OF ALL 1°S (11111111 11111111, 11111111 ...0)

OALT

ALrtnuatxug 0'S (01010101.01010101.....)
511 BITS) TEST PATTERN 1(0P1:)
ccxr 12-B1T (VS. PROGRAM'S
(ITEP)' nsssnce

1ALT

ceine
[TEP

NESSAGE ALTERNATING 1°'S (10101010,10101010,....)
"1ur; 9 ESSOR TEST

(<177><177>/8A THE QUICK

BROWN FOX ;unr;g
VER THE

LAZY P0G6.<15><12><001>A17>NT1>A177><177>)
ALPHA

ALPHA=NUMERICS (OR FUTURE COMM TURNAROUND MSG)
(#3'"" (AMPERSAND)
' () %+ ,=.0123456789:
; <=>?3ABCDEF
GH!JK

%)
LMNOPQRSTUVWXYZ/[\1*

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JUL-80 10:26

MACY11 30A(1052)

OPERATOR=SPECIF 1ED

25-JuUL-80

L2
10:29

PAGE 25

"“A=1,0-9,SPACES, TABS"'

THESE ARE THAT THE CHARACTERS THAT CAN

BE TYPED BETWEEN QUOTATION MARKS (''..'")
TO SPECIFIY A UNIQUE MESSAGE.

SEQ 0024

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA. PN

25-JUL-80 10:26

MACY11 30A(1052) 25-JuL-80 18:29 PAGE 26
M

SEQ 0025

6.3 INTERFACING TO AN "ITEP'' NODE
THESE ARE THE RULES WHEN USING
TO A DPV USING DCLT.

ITEP/WITH A DUP TO TALK

ITEP NODE

DCLT NODE

ANSWER ALL QUESTION TO THE

SET SWITCHES

PROMPT,

ANSWER ALL QUESTIONS TO THE

DCLT> PROMPT,

AR ARRRRNRRRRRRRRORRRARRRRANRRERROEREOEROERROERORORRRORNNRORNRORNONTS

FOR ONE WAY OUT...

SET SWITCHES TO 1221

CLEAR EXPECTED
SET E=1TEP/S=56

RUN MODE=REC/STATUS/CHECK

NOTE: DUP ITEP SENDS ONLY 56 CHARS
RN RRRRRRRRRRARORRARRRRRRRARRARRRERRCERRROETEORTROEOROERNORNONOROARONRERY

FOR ONE WAY

IN.....

SET SWITCHES TO ....1222
ettt Rt ARt

RUN MODE=TRA/STATUS

RO R RRRRRRRRRRARRRRRRRRRROERORRRRRRRRRRRARRRRRRORRRRRY

FOR EXTERNAL LOOPBACK....

SET SWITCHES....... 1224

CLEAR EXPECTED
SET EXP=1TEP/S=56

RUN MODE=ACTIVE/STATUS/CHECK
SRR RRRRRRRRRRARRARRORRRRRRRORRRRRCERRROERECOROERRROORRARRORRRORRORRNRETR

FOR

INTERNAL LOOPBACK......

SET SWTICHES......1260

CLEAR EXPECTED
SET EXP=ITEP/S=56

RUN MODE=ACTIVE/STATUS/CHECK
sttt

RN RARRRERRRRRROERRRRRRARRROERRERRROROEROERRIRORORORRRRRRRRORRRNTY

NOTE: DO NOT USE SWITCH 8 WITH ITEP GOING TO DCLT
THE ONLY MESG. DCLT SUPPORTS IS MSG 1.
DCLT IGNORES CRC ERRORS WHEN REC DATA FROM ITEP
BECAUSE ITPE SENDS NO CRC.

6.4 TROUBLESHOOTING HINTS

LISTED BELOW ARE SOME SETUPS THAT COULD BE USED FOR ISOLATING FAULTS.
THESE ARE BY NO MEANS THE OMLY WAYS DCLT CAN BE USED !!!!l!!

DCLT IS MEANT TO BE A VERY FLEXIBLE TOOL: THIS SECTION IS MEANT TO

N—

LINK TEST
DATA COMM,10:26
CVCLMA DPV=11 25-JUL-80
CVCLHA.P1

MACY11 30A(1052) 25-JuUL-80 18:29 PAGE 27
N

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

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

RUN EACH END OF THE LINK IN ACTIVE MODE WITH

LOOP=INTERNAL.

TRANSMIT TWO OR THREE MESSAGES WITH NO DATA CHECKING.

STATUS PRINTING COULD RE TURNED OFF IF ON, BUT SEEING THE SEQUENCE

OF EVENTS MIGHT BE INFORMATIVE.

A POSSIBLE COMMMAND SEQUENCE 1S:
4
cT

SE T=ONES/$=20/(=2

R M=A/LO=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éTTCEDlSPLAV" AND RUN THE PREREQUISTE DIAGNOSTICS FOR THE COMM.
VICE.

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

R M=A/LO0=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 LOOP.

POSSIBLE COMMAND SEQUENCE IS:
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
IfF THE LINK IS WORKING. POSSIBLE COMMAND SEQUENCES ARE:

SEQ 0026

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI
25=JUL-80 10:26

MACY11 30A(1052)

25-JuUL-80

C T
SE T =1ALT/S$=250

3
10:29

PAGE 28

SE E=1ALT/S=250
R M=R/NOCH/PAS=3

M=
M=TR/PAS=3

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

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.
COMMAND SEQUENCES ARE:

—

[

N an

laal

DWNOO

POSSIBLE

1T7/5=10/(=2

/NOCH/PAS=3

CE
C7T

SE T=1ALT/S=20/(C=2

R M=P/NOCH/PAS=3

NOW USE DATA CHECKING WITH THE "EXPECT MESSAGE LISTS'' SET
UP APPROPRIATELY.
ANOTHER VARIATION IS TO HWAVE LARGE SIZE
MESSAGES ON ONE SIDE WITH SMALL MESSAGES ON THE OTHER.
THEN

C-VERSE

THE SETUP SO THAT

THE NODE RUNNING IN ACTIVE

IS RUNNING IN PASSIVE AND VICE VERSA.

4&.)

BOTH NODES ACTIVE

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

STATUS PRINTING COULD BE TURNED OFF IF YOU'RE NOT INTERESTED
IN THEM.

NODE A

NODE B

CE
cr

CE
c7T

SE T=0ALT/S=10
SE T=CCITT/5=20
SE T=ALPHA/S=30
SE E=ZERO/S=11
SE E=ONES/S=21
SE E=ITEP/S=31
R M=A/CH/NOST/PAS=3

SE E=0ALT/S=10
SE E=CCITT/S=20
SE E=ALPHA/S=30
St T=ZERO/S=11
SE T=ONES/S$=21
SE T=1TEP/S=31
R M=A/CH/NOST/PAS=3

SEQ 0027

CVCLHA DPV=11 DATA ("M, LINK TEST

CVCLRA.PIN

25=JuL-

10:26

MACY11 30A(1052)

25-JuL-80

)
10:29

PAGE 29

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.
IHERSEEE;OF-PASS" 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 COMMUNICATE
WITH EACH OTHER.
JUST SETUP A TIME THAT EACH WILL GO TO THEIR MODE,
TALK OR LISTEN, AND SEND MESSAGES OVER THE LINK. POSSIBLE COMMAND
SEQUENCES ARE.

R M=LIS/NOST
LIS>

R M=TA/NOST
TLK>

SEQ 0028

(VCLMAPDPV-11 DATA COMM. LINK TEST

CVCLHA.PIT

25=JuL-80 10:26

128
1287
1288
1289

.SBTTL

}%g?

1292
1293
1294
1295
1296
1297
1298

MACY11 30A(1052)

002000

25-JuL-80

10:29

PAGE 30

PROGRAM HEADER
BGNMOD

pee

1299

: THE PROGRAM HEADER IS THE INTERFACE BETWEEN

}%8?

: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

1302

’

}ggz
1305
1306
1307
1308

1309
1310

1311
1312
1313
1314
1315

002000

002000
002000

002000
002001
00200
00200
002004

1316 002005
1317 002006
1318 002007
1319
1320
1321

002010
002010
002011

1322 0020M
1323 002012
1324 002012
1325 002014

1326 002014

1327 002016
1328 002016
1329 002020

103
126
103
114
110

000
000
000
101

060

000000

003410
033706

002022

133§ 002022 002130
1333 002024
1334 002024 000000
1335

POINTER BGNRPT,BGNAU,SGNDU

HEADER

1330 002020 000000
1331

SEQ 0029

002026

1336 002026 034164
1337 0020

1338 002030 000000
1339 002032
1340 002032 000000
1341 002034

CVCLMW,A,0,18090..,0,#PR]07

::
LSNAME

LSREV::

LSDEPO::

LSUNIT::

LSTIML::
LSHP(P::

LSSPCP::
LSHPTP: :

LS$SPTIP::
LSLADP::

LSSTA::
($C0::

LSDTYP::

LASCIL
LASCIL
LASCLL
LASCIT
ASCIL

/7C/
/v/
/C/
7L/
/W/

ASCIL

LASCID

70/

.WORD

1800.

.WORD

LSHARD

LWORD

L$HW

LMORD
LWORD

O
LSLAST

WORD

LMORD

BYTE
BYTE
.BYTE

0
0
0

CVCLHA DPV=11 DATA COMM, LINK TEST
. PY 1
CVCLHA
25-JUL-80 10:26
000000

000000

002124

000340
000000
000000

003
003

=00
0 NO WV W

EEECREREET
RES=8
w

D
i
i

B
b
D
D
b
b
D

i
b -

IV IV
N NN N (I
SNNSNNYN SNSNNY

333333413

v ivy
LA
Al

1357

000000
000000
000000
011422

022720
000000
000000

023612
023604

000000
011432
104035

000000

022734

023562

023560
022726
000000

000000

MACY11

30A(1052)

PROGRAM HEADER

25=JuL-80

10:29

PAGE

SEG 0030
LSAPT::
LSDTP::

L$PRIO::

LSENVI]::
LSEXPT::

LSMREV::
LSEF::

LS$SP(::
LSDEVP::
LSREPP::

LSEXPL::

LSEXFS::
LSAUT::

LSDUT::
LSLUN:

LSDESP::
LSLOAD::

LSETP::
LSICP::
LSCCP::
LSACP::
LSPRT::
LSTEST::

LSDLY::
::
LSHIME

.WORD

.WIRD

LSDISPAT(H

.WORD

#PR107

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

LSDVTYP

.WORD

LSRPT

.WORD

L$AU

.WORD

L$DU

.WORD

LSDESC

EMT

ESLOAD

.WORD

LSINIT

.WORD

LSCLEAN

.WORD

LSAUTO

.WORD

LSPROT

.WORD

MACY11 30A(1052)

1396

LSBTTL

1398

Pee

}28?

S 1T 1S USED BY THE SUPERVISOR TO DISPATCH TO EACHM TEST.

CVCLMA. P

25-JUL-80 10:26

1397

1399

1402

1403

002122

000001

}:q?

002124

023620

10:29

PAGE 32

SEQ 0031

DISPATCH TABLE

* THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACHM TEST.

14064

1405

DISPATCH TABLE

25-JuUL=-B0

CVOCLMA DPV=11 DATA (UMM, LINK TEST

002124

DISPATCH 1

LWORD

.WORD

LSDISPAT(CH::

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA,P 1"
25-JUL-80 10:26
1408
1409

MACY11 30A(1052)
25-JuL=-80
DEFAULT HARDWARE P=TABLE
LSBTTL

1410

THE

1414

AND

THE

1413

1419

1420
1421
1622
1423
1424
1425
1426
1427
1428
1429
1430
143
1432
1433
1434
1435
1436
1437
1438
1439
1440

1441
1442

1443

1444
1445

1446

PAGE 33

SEQ 0032

DEFAULT HARDWARE P=-TABLE
HARDWARE P~ TABLE
TEST=-DEVICE PARAMETERS.

DEFAULT

CONTAINS DEFAULT VALUES OF
THE STRUCTURE OF THIS TABLE

IS IDENTICAL TO THE STRUCTURE OF

1415

1417
1418

3
10:29

1611
1412

1416

002126
002126
002130
002130

BGNHW

000010

THE

P-TABLES.

DFPTBL

LOHW::

LWORD

L10000=-LS$HW/?2

DFPTBL::

XNDEPENDENT SECTION

THE NUMBERS IN BRACKETS ARE
CODING SECTION.

002130

THE MARDWARE P-TABLES,

IS USED AS A "TEMPLATE' FOR BUILDING

000001

.WORD

THE OFFSET VALUES USED

IN THE

PARAMETER

:[0] FULL OR MALF DUPLEX FLAG (BITO=1 [F FuLL)

DEVl(E DEPENDENT SECTICN
ADDING OR REMOVING WORDS FROM THIS TABLE EFFECTS THE '‘GET'' CALLS IN
THE HARDWARE PARAMTER CODING SECTION BY CHANGING "'OFFSETS'
.

002132
002134
002136
002140
002142
002144
002146
002150
002150

160170

000300
000240
000000
000000
000000
000000

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

ENDHW

160170

300
240
0
0
0
C

J INTERRUPT VECTOR
] INTERRUPT PRIORITY (5)
0] SPARE
2] SPARE

4] OTHER NCDE "‘ITEP"
6] SPARE

L10000:

CVCLMA DPY=11 DATA COMM, LINK TEST
25=JUL-80 10:26
CVOLKA. P
1447
1448
1449
1450
1451

DEFAULT HARDWARE P=TABLE

1493

1494
1495
14
149
1498
1499
1500
1501
1502

PAGE 34

SEQ 0033

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

EQUALS
—

002150

DIFINITIONS
100000
40000

T
L

LI L

)

]
]
]
]

»
o
o

100
40

)

= b —
b
b
b

) —
)
)

"
"

e B0 B

—

D Cd O O G d C© M M

)

[=lelelelelelelelele]
O =PI
ES N0 N0
O

LT
L

LI LTI L

T
L

1000

LI L

2000

]

10000
4000

]
) ]
)
]
]
)
]

]
oo W
]
] o
]
F
)

20000

200

—

ODCDOOD OO

peipaihaipusipuipusuipasipaipaippperipuipaip

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100

1467
1468
1469
1470
147N
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492

3
10:29

¢ *?

; EVENT FLAG DEFINITIONS

MMMe. s,

1466

GLOBAL EQUATES SECTION

.SBTTL

1464

1465

25-JuL=80

OO000O00O0OO0COO
===
a0
O=NWSs
VO N OVO—=NWwWSsWnN

1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463

MACY11 30A(1052)

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM (OMMUNICATION

F.START==
F.RESTART==
F.CONTINUE==

EF .NEW==

2.
e
0.

29.

; START COMMAND WAS [SSUED
RESTART COMMAND WAS [SSUED
CONTINUE COMMAND WAS 1SSUED

A NEW PASS HAS BEEN STARTED

A POWER-FAIL/POWER-UP OCCURRED

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLKHA.PIN

25=JuL-80 10:26

1503

000340
000300
000240
000200
000140
000100
000040
000000

}g}z
1517

1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
}3%?

25-JuL=-80

GLOBAL EQUATES SECTION

; PRIORITY LEVEL DEFINITIONS

}gg‘;

1506
1507
1508
1509
1510
1511
1512
}g}i

MACY11 30A(1052)

PRI07==
PRIO6==
PRIOS==
PRIO4==
PRIO3==
PRI02==
PRIOY==
PRI00==

gao
300
240
200
140
100
40
0

:OPERATOR FLAG BITS
000004

000010
000020
000040
000100
000200
000400
001000
002000
00000
010000
020000
040000
100000

Evi==

LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==
PR]==
IXE==
IBE==
1ER==
LOE==
HOE==

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

10:29

PAGE 35

SEQ 0034

CVCLMA DPV=11 DATA COMM, LINK TEST

5~
o

25-JUL-80 10:26

10:29

PAGE 36

SEQ 0035

seevex INDEPENDENT EQUATES
001000

BUFLIM=512.

000017

MSGL IM=15,

;MAX BUFFER SIZE IN BYTE S
;
APPLIES TO TX,RX AND CMP BUFFS
;MAX NO. OF MESSAGES PER BUFFER
;
(FOR EACH INCREMENT ( +1) TO MSGLIM,
ADD 6 WORDS TO THE POINTER TABLE

000003
000004
000005
000006

;MODE

OPERATION EQUATES

REC=0

(PTRTAB:) SINCE THIS MEANS 2 MORE

"POINTER' WORDS PER BUFFER.

;RECEIVE MODE

s TRANSMIT MODE

sPASSIVE MODE
sACTIVE MODE
;DOWN=L INE=LOAD MODE

sTALK MODE
L

;MAINT LOOP TYPE EQUATES
NONE
=
TTL=

CABLE=
MODLOC=

MODREM=
i

MOP=

VI
NN
= O

NO
VNS w0
80‘0‘“““‘}.

F o o o AV
W
= OO

D
i
i
o
i

N AN NN NN

i
D
i
D i

VIV

CVCLHA. P

MACY11 30A(1052)
25-JuL-B0
GLOBAL EQUATES SECTION

sLISTEN MODE

sNO LOOP

sINTERNAL TTL

sCABLE LOOP
sMODEM LOCAL
:MODEM REMOTE
JMOP

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

STATB=
DATCKB=
ECHOB=
MOCHK=
(RCB=
PROTOB=

lh il

3005 50 30 50 00 50 00 0 8 4 0 4 0 0 4 S

1568

Bl 10
Bl m
Bl 12
Bl 13
Bl T4
BITS

;OPERATOR AWAKE ASKED FOR

;DATA CHECK BIT
;ECHO BIT
;MODEM STATUS CHECK BIT
sCRC CALCUALTE ASKED FOR
;PROTOCOL PROCESSING ASKED FOR

;OPTION TYPE EQUATES

s
i
il

TXQ=

RXQ=
RX(=

“
6

DCK=

TXC=

s i
-

;CODE FOR DPV CHAR MODE

SEVENT LOG MESSAGE TYPES (USED TO LOCATE EVENT DESCRIPTION IN EV ENT TABLE
: AND DISPATCHING TO SEPERATE SECTIONS OF THE EVENT REPORTING $ ECTION)

DPV=

00001«

DER=
E

; TRANSMIT MESSAGE QUEUED

sTRANSMIT COMPLETE

10
12

;DEVICE INFORMATION
;DEVICE ABOUT TO INIT

;RECEIVE BUFFER QUEUED
;RECEIVE COMPLETE

;DATA COMPARISON RESULTS

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLMA.PI
25-JuL-80 10:26

MACY1Y 30A(1052)
25-JuUL=80
GLOBAL EQUATES SECTION

3
10:29

PAGE 37

}ggg

000016

MSC=

:MODEM STATUS CHANGE

1590
1591

000020
000022

DLE=
DDE=

20
22

:DATA COMPARISON LENGH ERROR
;:DATA COMPARISON DATA ERROR

}23%

000024

}382

EOP=

;END OF PASS

:EQUATES FOR FLAG WORD

1596
1597
1598

000001
000002
000004

ININT=
OTINT=
QRX=

BITO
BIT
Blti

s INPUT INT. REC.
;OUTPUT INT REC
sRX QUED /COMPL

1600

000100

ERX=

BITH

:EXPECT TO GET A RX COMPLED

1599

}28;

1603

000010

QTx=

000200

BIT

ETX=

Bl1T17

;TX QUED/COMPL

SEXPECT TO GET A TX COMPLETED

1604
1605
1606
1607
:283

000020

TXM=

BIT4

000040

RXM=

BITS

000400

B((=

BIT8

:INDICATES TO TX INTERRUPT ROUTINE
;THAT IT IS TIME TO TRANSMIT BODY OF MSG.
INDICATES TO RX INTERUPPT ROUTINE
;THAT IT IS TIME TO REC MSG BODY
;TIME FOR CRC CHECK.

}ggg

001000

PAD=

BIT9

:INDICATES THAT PAD MUST BE SENT

}g}%

002000

INOVR=

BIT10

:INIT OVER

}g}g

004000

FIRST=

BITI

;FIRST

1616

1617

1618
1619
1620
1621
1622

000000
000001
00000
00000
000004

1624

000006

1623

1625
1626
1627
;:28

1631

000005

000007
000010
000011
000012
000000

1632
1633
1634

000001
00000
00000

e
1638

R
00000

1635

1639
1640
1641
164
164

000004

000010
000011
00001§
00001
000014

TIME FOR (TS

SPECIAL CLI CODES FOR ''CHAR'' ARGUMENT IN CLI CALLS
(COMMAND LINE

CLIERR=
CLIEX]I=
CLIBR=
CLIBIF=
CLISPA=

0
1
2
3
&

INTERPRETER DEFINITIONS)

CLINUM= §

CLIALP= 6

CLIALN=:
cLIOCT=
CLIDEC=
CLISTR=

7
8.
9.
10.

: DEFS FOR COMMAND LINE INTERPRETATION ACTION VALUES
NULL=0

CLEAR=1
SHOW=?2
CHECK=3

RUN=4

et
csnrnn:?
s

SETEXP=10
SETTRN=11
SI12€6=12
0COoPY=13
NUM=14

SEQ 0036

CVCLMA DPV=11 DATA COMM. L%NK TEST
CVCLMA.P1Y
25-JUL-80 10:26
1664

1645
1646

1647

1648
1649

1650
1651
165

165
1654
1655
1656
1657
1658
1659
1660
1661
166
166
1664

1665
1666
1667
1668
1649
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681

000015

OPRMSG=15

000017

ENDQO=17

21
00002

(MSG1=21
(MSG2=22

000024
000025

CMSG4=24
(MSG5=25

000016

169
1694
1695

1696
1697
1698
1699

PAGE 38

(MSG0=20

CMSG3=23

000026
000027
000030
000031
000032
000033
000034
000035
000036
000037
000040

(MSG6=26

ATVMOD=27
PASMOD=30
RECMOD=31
LISMOD=32

DLLMOD=33
TRAMOD =34
TALMOD=35
NO=36
ECHO=37
CRC=40

000041

PROTO=41

000042
000043
000044
000045
000046
000047
S0
51
000052
000053
000054
000055
000056

PASC=42
MOP=43
TTLLOP=44
CBLLOP=4S
LMDLOP=46
RMDLOP=47
NOTNUF =50
BADCHR=51
DMPS =5
DMPE=$
DMPQ=54
PRNT=55
MOSC=56
;eeees DEVICE DEPENDENT EQUATES
; MODEM S!GNAL BIT DEFINITONS

}ggz

1490
}231

3
10:29

STATUS=16

000020

1682

1685
1686
1687
1688
1689

MACY11 30A(1052)
25-J UL'BO
GLOBAL EQUATES SECTION

020000
001000
010000
000004
040000

000040
000040

ooooog
00002
000040
000100

IF SIGNAL AVAILABLE IN DEVICE, EQUATE NAME TO BIT POSITION,

ELSE EQUATE IT T0 = 0
C1S=
DSR=
DCD=
RTS=
Rl=

B
TM=

DEVICE SIGNALS

BIT13
BIT9
BIT12
BIT2
BIT14

BITS
BITS

TR=
BIM
RXENA= BIT4
DSITEN= BITS
RINTEN= BIT6

;CLEAR TO SEND (CIRCUIT (B)
:DATA SET READY (CIRCUIT CC)
:DATA CARRIER DETECT (CIRCUIT CF)
;REQUEST TO SEND (CIRCUIT CA)
:RING INDICATOR (CIRCUIT CE)

sSIGNAL QUALITY DETECT (CIRCULT C
;MODEM IN TEST MODE (RS 449 ONLY cxacunv TM)

:DATA TERMINAL READY
;RECEIVER ENABLE
:DATA SET CHANGE ENABLE
:REC INT. ENABLE

SEQ 0037

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.P1Y
25=JuL-80 10:26
1700
1701
1702
1703
1704
1705
1706
1707
1708

1709
1710
171
171§
};}‘

000200
002000
004000
000001
000002
000004
000010
000020
000100

000400
001000
100000
100000
000226

MACY11 30A(1052)
25-JuL-80
GLOBAL EQUATES SECTION
RDATRY=
RSTARY=
RXACT=
RESET=
TXACT=
TBMT=
TTil=
TXENA=
TINTEN=

TSOM=
TEOM=
TERR=
RERR=
SYN=

BIT?
BIT10
BITI
BITO
BIT1
BlT%
BIT
BIT4
BIT6

BIT8
BIT9
BIT1S
BIT1S
226

m3
10:29

PAGE 39

:REC DATA READY
sREC STATUS READY
JREC ACTIVE
:MASTER RESET
;TX ACTIVE
;TX BUFFER EMPTY
;TTL LOOP BIT
:TX ENABLE
:TX INT ENABLE

:TX START OF MSG.
:TX END OF MSG.
s TX ERROR
:sREC OVER RUN
:SYNC WORD

SEQ 0038

CVCLHA DPV=11 DATA COMM, LINK TEST

MACY11 30A(1052)

1715

.SBTTL

1718

25-JUL-80 10:26

CVCLKA.PIY

GLOBAL DATA SECTION
LSBTTL

};}9

25-JuL-80

10:29

PAGE 40

GLOBAL DATA SECTION

DEFAULT MESSAGE DEFINITIONS AND TABLES

1719

: THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

1721
1722

J--

1720

: IN MORE THAN ONE TEST.

};52

:MESSAGE BYTE COUNT TABLE

1725

002150

};gg

002170

1726
1727
1728
1729
1730
1731
1732
1733

002150
002152
002154
002156
002160
002162
002164
002166

DMSGCT:

PSGOC:
MSGIC:
MSG2C:
MSG3C:
MSG4C:
MSGSC:
MSG6C:
OPCNT:

000001
000001
000001
000001
000100
000072
000101
000000

MSGBC:

000001

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

.WORD

EMSGO-MSGC
EMSG1=-MSGI
EMSG2-MSG
EMSG3-MSG
EMSG4=-MSG4
EMSGS=-MSGS
EMSGOH-MSGE
O

EMSGB-MSGS

:BYTE COUNT OF MESSAGE #0
:BYTE COUNT CF MESSAGE #1
:BYTE COUNT OF MESSAGE #2
;BYTE COUNT OF MESSAGE #3
:BYTE COUNT OF MESSAGE #4
:BYTE COUNT OF MESSAGE #5
:BYTE COUNT OF MESSAGE #6
:BYTE COUNT FOR OPERATOR SPEC'D MSG.

:BYTE COUNT OF RECEIVE BUFFER FILL PATTERN

;MESSAGE ADDRESS TABLE

};;?
1738

002172

1741
176

002176
oossog

DMSGAD:

MSGO
MSG1

:ADDRESS OF MESSAGE #0
:ADDRESS OF MESSAGE #1

220

MSG4

:ADDRESS OF MESSAGE #4

17646 002210 002520
};2; 002212 002642

OPBUF
MSG8

;ADDRESS OF OPERATOR SPEC'D MSG.
:ADDRESS OF RECEiVE BUFFER FILL PATTERN

1739
17640
1743

002172
002174

002214
002215

00220

:ADDRESS OF MESSAGE #2
;ADDRESS OF MESSAGE #3

MSG2
MSG3

002216
885217

:ADDRESS OF MESSAGE #5
:ADDRESS OF MESSAGE #6

MSGS
MSGé

002204
002206

002320
002412

1749

002214

000

msG0:

.BYTE

000

;MESSAGE OF ALL 0'S

1751

002215

377

MSG1:

.BYTE

377

:MESSAGE OF ALL 1'S

002216

252

msG2:

.BYTE

252

:MESSAGE OF ALTERNATING 1'S

002217

125

msG3:

.BYTE

125

;MESSAGE OF ALTERNATING 0'S

1744
1745

1750
1752

1753

1754

1755

1736

002215
002216

002217
002220

1757

002220

1759

002 g:

EMSGO:
EMSGY:

EMSG2:
EMSG3:

1760

oos

176;
176

002246
88 ¢

172 g‘
111337

};65

882 92

14 $ 1

1769
1770

002314
002320

166632

1761

1764

1643325

002240 040041
60 ”%

S12-BIT (VS. 511 BITS) TEST PATTERN

WORD

177603,157427,031011,047321,163715,105221,143325,142304

016112 osgooe

WORD

040041,014116,052606,172334,105025,123754,111337,111523

Qn%

WORD

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

1758 002220 177603 157427 031011
047321

MSGb :

SUCCITT

163715

142304

105221

1052%
111523

123754

oosg;;

13507

145064

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

05201 g 27 07007
w%
nfi
1768 002306 151172
165044 021605
016741

EMSG4:

SEQ 0039

CVCLHA DPV=11 DATA COMM. LINK TEST
25=JUL-80 10:26
CVCLHA. P

B &
MACY11 30A(1052)
25-JUL-80 10:29 PAGE 41
DEFAULT MESSAGE DEFINITIONS AND TABLES

—

-NN

_._.o_.g NO =~
~N—--0 2 ONWO~N

LASCIT

QA77><177>/8%A THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG./

JASCIZ

<€15><12><001>177>A177><177><17»>

JASCIT

sALPHA=NUMERICS (OR FUTURE COMM TURNAROUND MSG)
/748! R' () v+ ,=.0123456789:;<=>73ABCDEFGHIJKLMNOPQRSTUVWXYZ/

LASCIZ

?2/[\1*_%?

042510
020131
077401

077577

—

”INTE?gg?CESSOR TEST PROGRAM'S (ITEP)'' MESSAGE

060444

021041
025051
030460

~N ~N
» &H
~N ~N

005015
000177

~N
L

S
8
N

[=1=¥
0

002434

NNNNNNNSNNSNNNNSN
oo

w gESSBIII
& et
N

S33SRRRES

NN
OWVI NV
N

MSG5:

041502
044510
047516
052524
132
056133
000
002514

023040
026053
031462
034470
037476
042504
045512
050520
053526

EMSGS:
MSG6:

057135
EMSG6:
2

IZ 2

.EVEN
2222222222222 222222222222ttt

—=O
W

=
b

00 Oo 0o 9o 0o OO GO

38 434

;THESE THREE

002514
002520
002642

047045
000122

040445

OPBFPT:
g:gz;:
;

002642
002643

033
002644

SEQ 0040

,ASCII
.BLkB

THE ABOYE
AR

STORAGE AREAS MUST NOT BE

/XNXA/
82.

SEPERATED

RRRRRRRRRRR

Rl d)

!!!!

;BUFFER FOR OPERATOR SPEC'D MESSAGES

THREE LINES MUST BE KEPT

TOGETHER

RRARRRRRRRERRERRTRRRRRCERERROPRRARRRORARRNRRRRRARRARRRRARARRRRRIRROERRNOTRRTETSE

MSG8:
EMSGS:

.BYTE
.EVEN

;RECEIVE BUFFER FILL PATTERN

CVCLHA DPV=11 DATA COMM, LINK TEST
-

CVCLHA. P11

25-JUL-80 10:26

10:29

PAGE 42

SEQ 0041

DEFAULT MESSAGE DEFINITIONS AND TABLES

CUTHE FOLLWING 18 THE AREA USED TO TRANSMIT AND REC THE :
: HEADER MSGS. AND THE START,STACK ACK SEQUENCES.

}%}9

1818 002644

1819

002645

1824
1825

002653

002646
002650
002651
002652

}ggg

002654

1828
1829
1830
1831
1832
1833

002656
002657
002660
002662
002663
002664

1834

25-JUL-80

---------------------------------------------------------

1815

1820
1821
1822
1823

MACY11 30A(1052)

000

HOMSG:

.BYTE 0

000000
001
001
001

HDMCC:

.WORD
BYTE
BYTE
BYTE

201

002654

HSMSE:

000006

WDMC:

000
201
000000
001
001
001

RHDMSG:

002666

RHDMCC:

.BYTE 201

.EVEN

.WORD

0
1
1
1

*SON CHAR

‘CHAR COUNT GOES HERE
*RESPONSE NUMBER
‘MSG. NUMBER
*ADDR TO.

.BYTE 0
.BYTE 201
.WORD
1
BYTE
1
BYTE
.BYTE
1
"EVEN

(FILLER

:SOM GOES IN HERE
;BYTE COUNT GOES HERE
"RESP NUM
TMSG NUM
:ADDR TO.

D &
MACY11 30A(1052)
25-JuUL=-B0 10:29 PAGE 43
DEFAULT MESSAGE DEFINITIONS AND TABLES

CVCLMA OPV=11 DATA COMM, LINK TEST
CVCLKHA.PIT
25-JUL=-80 10:26

}gig
1838

1839
1840
1841
1842

1843

;COMMAND L INE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES
002666

000122

000000

KEYWD1:

(MDBUF: .BLkB

.WwOPD

82.

003012
003014

000000
000000

QUALFG:
QUALVL:

.WORD
.WORD

0
O

.WORD

HWLP?

003010

003016

012077

003022
0030264

012220
01.305

1844

003020

1847
1848
1849
1850

003026
003030
003032
003034

1845
1846

1851
1852
}322

003034
003042
003050

MLPTAB:

012112
0123%64
012442
012532

012665
012706
(12726

012674
012713
012734

012701
012721

}329
003054

000

1864
1865
1866

003064
003066
003070

012745
012755
012766

1868
1869

003074
003076

013005
013022

1867

:g;?

003072

003100

125
043

003064

013036

1875
}g;g

003110
003112

013065
013100

013046
013057

:g;g
003114
003116
003120
003122
003124

1886

0031

1887

1888

- —

177

HWLP1

HLP3
HLP&

HLP4A
MWLPS
HLP6

SHTYPO,SHTYP1,SHTYF2,SHTYP3
SHTYPL,SHTYPS, SHTYPS,SHTYP?

THE FIRST BYTES OF

THE PREDEF INED MESSAGES

SHMTAB:
SHTEND:
MODES:

.BYTE

JEVEN
.WORD
.WORD
.WORD

MQO
MO1
MO?

.WORD
.WORD

MO4
MOS

.WORD

.WORD
LOOPS:

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

TYPES IN ASCII

MO}

MO6

.WORD

LPO

.WORD
.WORD

LP}
LP4&

LMORD
.WORD

;ADDRESSES OF MODE

LP1
LP2

;ADDRESSES OF LOOP TYPES IN ASCI!

:COMMAND L INE TRAVERSE LOCATIONS (USED BY '"PSTRV'"

1880
1881
1882
1883
1884

1885

252

.WORD

:THIS LOC WILL =1 IF CLEAR TYPED, 2 FOR SHOW,
: A& IF RUN WAS TYPED, S IF HELP WAS TYPED
:THIS LOC HOLDS QUALIFIER VALUE (SIZE OR COPY)

USED TO ''SMOW'' THE TRANSMIT AND COMPARE BUFFER CONTENTS.

013027

003102

003104
003106

377

203

.WORD
.WORD
.WORD

:BUFFER FOR OPERATOR COMMANDS

THE LIST OF BYTES BELOW ARE

012776

1872

187%
1874

SHTYTB:

003057
003062
003063

}Sfi%

MLPEND:

1859
1860
1861

.WORD

WORD
.WORD

1855

1858

SEQ 0042

003126
003131

000000
000000
000000
000000
000000

PSBUFA:
PSTREE:
PSACT:
PSCNT:
PSNUM:

.WORD
.WORD
.WORD
.WORD
_WORD

0
0
0
O
0

;LOC.
;LOC.
;LOC.
;LOC.
;LOC.,

000

PSNNUF:

BYTE

RETURN =0 IF ENOUGH OF COMMAND FOUND

000000

000

PSRADX: .WORD
PSGDBD: .BYTE

0
0

TO HOLD ADDR. OF CMD LINE BUFFER
TO HOLD ADDR. OF PARSING TREE
TO HOLD ADDR, OF ACTION ROUTINE
TO BE A COUNTER LOCATION
TO HOLD NUMERIC VALUE FROM PARSE

;LOC. TO HOLD RADIX USED(LO) AND ¢/=(M] BYTE)
JRETURN CODE O IF NO ERROR FOUND

CVCLMA DPV=11 DATA (UMM, LINK TEST
CVCLKWA.P1Y
25-JuL=-80 10:26
1889

MACY11 30A(1052)

MESSAGE BUFFERS AND POINTER TABLES

.BLKW
.BLKW

MSGLIMe?
MSGLIMe?

.BLKW

o
—

h e

Y g
e
i
D

SEQ 0043

BUFLIM
BUFLIM

;FILLER FOR OVERFLOW OF RX POINTER TABLE

RXPTR:
TXPTR:

.WORD
,WORD

;RECEIVER MESSAGE POINTER
;TRANMITTER BUFFER POINTER

(MPTOT:

.WORD

CMPBUF:
PTRTAB:
PTR13:
PTR23:

PTREND :

(MPPTR:

.BLKB
.BLKW

.WORD

CTOTCC:
CCURAD:

.WORD
.WORD

DVTXA:

.WORD

TXMTOT:

,WORD

TTOTCC:
TCURAD:

PAGE &4

.BLKB
.BLKB

DVvTCC:
DVTCT:

VOOOOOO

907

&
10:29

[e=lelelelelsleBeleleleleleleleleleBNelelolelele

TXBUF:
RXBUF:

000002

000000
000000
000000
000000
000000
000000

MESSAGE BUFFERS AND POINTER TABLES

LSBTTL

001000
001000
001000
000036
000036
000036

25-JuL-B0

.WORD
.WORD

DVRXA:
DVRCC:
DVRCT:

_WORD
.WORD
_.WORD

LNCNT:
OPVAR:

_.WORD
.WORD

ERRCNT:
STADD:
ENADD:
BYTBIT:

.WORD
.WORD
.WORD
.WORD

RXMTOT:

PSCNT:

.WORD

;TRANSMITTER BUFFERS
RECEIVER BUFFERS

BUFLIM
;COMPAR!“ON BUFFERS
MSGLIMe?2
;TABLE FOR MFSSAGE ADDRS. € BYTE COUNTS
;

END OF

MSG.

PTR,

TABLE

;COMPARISON BUFFER POINTER
;CMP MSG TOTAL

; COMPARE BUFFER CHAR. COUNT
;CURRENT ADDR OF CMP BUFF TO ADD AT
;DEVICE TX ADDR

;DEVICE TX CHAR COUNT
;DEVICE TX MESSAGE COUNT
:TX MSG TOTAL

;TX BUFFER CHAR. COUNT
:CURRENT ADDR. OF TX BUFF

TO ADD AT

:DEVICE RX ADDR
;DEVICE RX CHAR COUNT
:DEVICE RX MESSAGE COUNT

sRX MSG TOTAL

sNUPBL? OF OPERATOR AWAKE MSGS
;OPITIONAL VARIABLE LOCATION
sPASS COUNTER

JERROR COUNTER
;START ADDR.
;END ADDR. FOR DUMP
;BYTE BIT FOR DUMP ROUTINE

;OTHER MESSSAGE RELATED STOURAGE LOCATIONS

orNOO

£33288e8g8 g8®

006502

MSGTYP: .WORD

;TYPE OF DATA 0=0'S,1=1°5,2=10"5,3-01"$

CURCC:

.WwORD

STX/RX/CMP CHAR COUNT

(PTR:
CURADD:

,WwORD
.WwORD

O
O

;CURRENT POINTER
:CURRENT TX/RX/CMP START ADDD

TEMPY:
TEMP2:

_WORD
.WORD

O
O

(PTRR:

T07CC:
OFSET:
TEMP:

.WORD

.WwORD
.WORD
_WORD

O
O
O

TEMPS:

_WORD

(ONOTM:

.WORD

TEMPL:
TEMPS:

.WORD
.WORD

O
O

:6=CCITT,5=QUICK FOX,6=ALPHA/NUM, 7=0PER

:CURRENT RX POINTER

;TOTAL CHAR COUNT NOT MORE THEN "BUFLIW
:OFFSET COUNT
: TEMPORARY LOCATIONS (USED A LOT)

;CONTROL OUT ERROR MSG, ADDRESS

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLWA. P
25=JUL-80 10:26
195
1946
1947

1948

006534
006536
006537

000000
000
000

MACY11

30A(1052)

CONTIN:
G00D:
BAD:

.WORD
.BYTE
BYTE

25-JuL=-B0

10:29

PAGE 45

MESSAGE BUFFERS AND POINTER TABLES

O
0
0

;WORD FOR CONTROL IN
;BYTE TO HOLD EXPECTED ME SSAGE DATA BYTE FOR ERR REPORT
;BYTE TO HOLD RECEIVED ME SSAGE DATA BYTZ FOR ERR REPORT

SEQ 0044

MACY11 30A(1052)

}ggg

;MORE INDEPENDENT CODE STORAGE LOCATIONS

CVCLMA.P11

1951
1952
1953
1954

1955
1956

25-JuL=-B0 10:26

006540
006542
006544
006546

000000
000000
000000
000000

1957 006550 000000

1958
1959
1960
1961

1962
1963
1964
1965

006552
006554

000000
000002

25-JUL=-80

CVCLWA DPV=11 DATA COMM, LINK TEST

1972
1973
1974
1975
197
1977
1978
}3;3

LOGUNT:
PCADD:
RESFLG:
MODTYP:

0
0
0
0

:LOC. TO HOLD LOGICAL UNIT NUMBER
:LOC. HOLD PC OF CALLING ROUT INE
'LOC TO HOLD FLAG (=1) THAT A RESTART WAS GIVEN
‘DCLT MODE OF OPERAT!ON TYPE

MLTYP: .WORD O

"MAINTENANCE LOOP TYPE (0=NONE, isxurenuAL T,

FYDPLX:
PARAM:

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

0
2

}33;

i
L

(0=REC-ONLY, T=TX-ONLY, 2=PASSIVE-LOOP8K
3=ACTIVE-LOOPBY, 4=DOWN L.L.,
S=TALK, 6=LISTEN)

© 2=CABLE, 3=MODEM-ANALOG LOOPBK (LOCAL),
4=MODEM-DIGITAL LOOPBK (REMOTE), S5=MOP)
;FULL OR HALF DUPLEX FLAG ('=FULL fROfl P=-TABLE)
*PROGRAM PARAME TERS

P
:
*
*

BITO=
BIT1=
BIT2=
BIT3=

STATUS MSGS TO OPR PRINTED (1=YES)
DATA CHECKING DONE ON RCVD MSGS (1=YES)
ECHO (TRANSMIT) RCV'D MSG.(PASSIVE) (1=YES)
MODEM STATUS CHECK (1=YES)

006556
006560

000000
000000

RPASS:
FLAG:

006562
006564
006566
006570
006572
006574

027250
027302
027342
0;7376
030556
030602

;MODE DISPATCH TABLE
MODE :
.WORD
RXONLY
LWORD
TXONLY
.WORD
PLCK
.WORD
ALCK
‘WORD
DLL
.WORD
TALCK

006576

031022

000000
000000
000074

000000

006610

000000

006602
006604
006606

'WORD

.SBTTL
CLKCSR:
CLKBR:
CLKVEC:
CLKHZ:

006600

.WORD
.WORD

CLKEN:

.WORD

.WORD
.WORD
.WORD

.WORD

O
O

LISCK

: BITé= SPARE
:PASS NUMBER FROM RUN COMMAND
‘DEVICE FLAG WORD
;RX ONLY DISPATCH
;TX ONLY DISPATCH
:PASSIVE LOOP BACK DISP
sACTIVE LOOP BACK DISP
:DOWN LINE LOAD DISP
sTALK MODE DISPAT(CH

:LISTEN MODE DISPATCH

CLOCK TABLES, EVENT LOG AND POINTERS
O
:CLOCK CSR ADDRESS
0
:CLOCK INTERRUPT LEVEL
O
*CLOCK INTERRUPT VECTOR
60.
"CLOCK'S WERTZ RATE

SCLOCK'S CSR VALUE TO INTRPT, ENABLE 1T

1989
1990
}33}

006612
006614
006616

000000
000000
000000

TIMMIN: .WORD
TIMSEC: .WORD
TIMTCK: .WORD

0
O
O

sPLACE TO KEEP TIME-SINCE=-START

1993
1994

006620
006622

000000
000000

TIMERY: .WORD
TIMER2: .WORD

O
0

:EVENT TIMER #1 (TICKS)
EVENT TIMER #2 (T](CKS)

1995

SEQ 0045

* BITa= CRC CALC./CHECK DONE (1=YES)
: BITS= PROTOCOL EMULATION (1=YES)

1981

1982
1983
1984
1985
1986

PAGE 46

MESSAGE BUFFERS AND POINTER TABLES

1966
1967

1968
1969
}g;g

10:29

006624

000000

TIMERS: .WORD

:PLACE TO KEEP # OF TICKS/SEC

"EVENT TIMER #3 (SECONDS)

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLHA. P
25=JUL-80 10:26
1997

006630
000341
000001

MACY11

;EVENT LOG TABLE AND ITS NEXT ENTRY POINTER

Ex}téz:

EVTEND:

.WORD
.BLKW
.BLKW

LSBTTL

007534

000000

30A(1052)
25-JuL=-80
10:29 PAGE 47
CLOCK TABLES, EVENT LOG AND POINTERS

MODS:

EVILOG

225.
1.

;POINTER TO NEXT FREE

;EVENT LOG BUFFER

SPACE

IN EVENT LOG

;APPROXIMATE END OF EVENT TABLE

MODEM DATA SECTION

.WORD

SEQ 0046

;MODEM STATUS

(ALLOWS CIRCULAR QUE)

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA P
25=JUL-80 10:26

MACY11 30A(1052)

25-JuL-B0

MODEM DATA SECTION

4
10:29

PAGE 48

SEQ 0047

;TABLE OF MODEM SIGNAL BIT DEFINITIONS
020000
001000
010000
000004

MOBITS:

MOBITE:

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
WORD

;CLEAR TO SEND (CIRCUIT (B)
;DATA SET READY (CIRCUIT CC)
;DATA CARRIER DETECT (CIRCUIT CF)
;REQUEST TO SEND (CIRCUIT CA)

(TS
DSR
DCD
RTS

;RING INDICATOR (CIRCUIT CE)
;SIGNAL QUALITY DETECT (CIRCUIT
;MODEM [N TEST MODE (RS 449 ONLY CIRCUIY TM)

RI
SQD
TM

;TABLE OF ADDRESSES OF MODEM SIGNAL MESSAGE POSITIONS
MOMSGS:

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

EVMCTS
EVMDSR

;

EVMDCD
EVMRTS
EVMRI
EVMSQD
EVMTM

;CLEAR TO SEND (CIRCUIT (B)
:DATA SET READY (CIRCUIT CC)
:DATA CARRIER DETECT (CIRCUIT CF
:REQUEST TO SEND (CIRCUIT CA)
;RING INDICATOR (CIRCUIT CE)
;SIGNAL QUALITY DETECT (CIRCUIT CG)

:MODEM IN TEST MODE (RS 449 ONLY CIRCUIT TM)

;TABLE OF ADDRESSES OF EVENT DESCRIPTION MESSAGES

mrbmruumo\aw

NWOWNO
- OO
WO WNWVVONWVON

el
il
S
D
S

ok okl ok oF o8 o8 o8 2P o

i
-

O0OO0O0O0O0O0O0O000O

ORDER CORRESPONDS TO MESSAGE TYPE VALUES

EVILST: .WORD
.WORD
.WORD

EDTXQ
EDTXC
EDRXQ

;TRANSMIT MESSAGE QUEUED
;TRANSMIT OF MESSAGE COMPLETE
:RECEIVE MESSAGE SPACE QUEUED

.WORD

EDDER

:DEVICE INFORMATION

.WORD

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

EDRXC

EDDVI
EDDCK
EDMOS
EDDLE
EDDDE

EDEOP

;MESSAGE RECEIVED - RECEIVE COMPLETE
:DEVICE INITIALIZE STARTED
;DATA COMPARISON DONE
:MODEM STATUS CHANGE
;DATA COMPARE LENGTH ERROR
;DATA COMPARE DATA ERROR
;END OF PASS

;LOCATIONS USED DURING EVENT REPORTING

EVISEC: .WORD

:TEMPORARY LOCS TO KEEP EVENT TIME WHILE REPORTING

EVTADD: .WORD

;TEMP, LOC. TO HOLD ADDRESS DUfllNG EVENY RE’ORY!NG

EVIMIN: .WORD
EVITCK: .WORD

EVIBCT: .WORD
EVITMP: .WORD

O
0

3
s

B
-

**
'*

BYTE COUNT
OTHER DATA

O0OO0O0O0O00O0

;REPORT CODING DISPATCH TABLE
RPTDSP:

.WORD
LWORD
LWORD
LWORD
.WORD
.WORD
.WORD
"WORD

RPTTXQ
RPTTXQ
RPTTXQ
RPTTAQ
RPTDER
RPTDVI
RPTDCK
RPTMSC

;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
:REPORI MODEM STATUS CHANGE

2063

007654
007656
007660

020460
020404
020330

007662

000000
000000
000000
000000

MACY11

DEV1:

DEV2:

DEV3:
DEV4:

30A(1052)

25-JuL=B0

MODEM DATA SECTION

.WORD
.WORD
.WORD

RPTDLE
RPTDDE
RPTEOP

.WORD
.WORD
.WORD
.WORD

[=lelele]

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLMA. P
25=JUL-80 10:26

4
10:29

PAGE 49

;DATA COMPARISON LENGH ERROR
;DATA COMPARISON DATA ERROR
;END OF PASS
;TEMP LOCS TO HOLD DATA FOR EVENT REPORTING
AND SHOW MODE,... SUBROUT INE
.

SEQ 0048

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLHALP11
25-JUL=80 10:26

2013

.SBTTL

gg;z

;SAMPLE (L1 TREE NODE

gg;g

; ! ACTION

2078

%8%3‘,

2083

' ASCIZ MATCH STRING

2084
2085

2086
2087
2088
2089

MACY11 30A(1052)
25-JuL-B0 10:29
COMMAND LINE ACTION TREE

PAGE 50

SEQ 0049

COMMAND LINE ACTION TREE

(ALWAYS AT LEAST 1 WORD)

! CHMAR CODE !

MISS DISPLACEMENT '

ONLY IF "MISS'* ARGUMENT DEF INED

ONLY IF "ASCII'* ARGUMENT DEF INED
!

;
(.EVEN)
| meeeesscecccceciaiaaeas

ONLY IF “ASCII'* ARGUMENT DEF INED

007572

CLITRE:

2090
2091

007672

;FIRST KEYWORD
(LI

CLISPA,0,N108

:SKIP ANY LEADING SPACES

2094

007704

Ne28:

CLISTR.MLP,N43S,<'HELP'>

SELSE, IS FIRST WORD
A "MELP"'

2092
2093

2095
2096
2097
2098

007676
007702

007720
007722
007736
007740

2099 007752

N1OS:

NGS$:

(L1

NG3$:

00775

N6S:

2102

007776

NGOS:

2104
2105
2106
2107
2108

010016
010022
01003
010040
010052

N20$:

2103

00777

010012

(LI

(Ll
CLI
(Ll
CLI

3100

101

CLI
(LI

(Ll
CLl

(LI

<*2>,M(P,N&2S
CLIEXI,O

CLIEXI.O
CLISTR,PRNT,N4SS,<'PRINT'>
CLIEXI.O
CLISTR.RUN,N46S,<'RUN'>

cLier,0,n808

CLISTR,CLEAR.N20S,
<" CLEAR">

(ELSE, IS FIRST WORD A "‘CLEAR"

<'S>,NOTNUF,N308
CLISTR, SHOW N25$,<'HOW'>
cuigR,0,N1008
CLISTR,O: usos CET
CLIBR,0,
N1

'ELSE, I FIRST CHAR. A 'S
: 1F YES 1S REST OF WORD '‘WOW'
:
IF YES, DO '"‘SHOW'',BR N100$
: ELSE, IS'REST OF WORD "ET'
:
1F YES, DO "'SET", BR N110%

CLIBR,0,N50

CLIBR,NOTNUF ,N100$

CL1

CLIERR.O

2109 010056

gu\

;SECOND KEYWORD (MODE=) FOR RUN COMMAND

2114

2115

010064

010100

2116 010104
2117 010122
118
010126
119 010144
120

121 010150
010166
12
13

010178
10e

126
010214
125 010240
126 010264

127 010250
128 010266

N8OS:

NBTS:

1F "YES DO "RUN'' & GOTO N8OS

ELSE, IS FIRST WORD A ‘DUMP

N2S8:
N308:

$115 010060

: 1F YES DO "MLP'' AND EXIT
:ELSE, IS FIRST WORD A “PRINT"
: 1F YES DO "PRINT'* AND EXIT
SELSE, IS FIRST WORD A 'RUN''

CLISTR uomur NGOS,<'DUMP'>

(LI

(LI
(LI
cll
LI
(Ll

;1S THE FIRST NON-SP CHAR A '
;o
AFYES DO “MLP AND EXIT

FYES GOTO N8OS

If "YES DO “'CLR & GOTO N100$

SOTHERWISE “ILL CMDTM = EXIT

(LI

CLISPA,0,N308

:SKIP LEADING SPS, IF NONE-ERR

(Ll

<'=>,0,N308

(LI

CLISTR, NOTNUF ,N308,<'MODE'>

;1S NEXT WORD ‘WODE=

1F NO, 1T'S WRONG -ERR -EX11

Gl
(Ll
NB2S: (Ll
(Ll
N83s:

(LI

st ATVNOD NB28,<'ACTIVE'> :1S IFYES,
NEXT WORD
“ACTIVE':
DO UACTIVE.',BR N1158
coier,b,m1
CLISTR
PASHOD,NES,<'PASSIVE'> ;1S
WEXT WORD *PASSIVE"
CLIBR 6.om $’
IE YES, DO TPASSVE
' BR N1158

N84s:

(LI
Ll

CLISTR usngo(N85S, <'LISTEN'>
s,

cLl

N8S$: (LI
(i
N86s:

(LI

(Ll
(1

CLISTR,RE CAOD. W84S, 'RECEIVE'> 1S MEXT WORD RECEIVE"

cun.b N1158

IF YES. DO [RECVEBR N1158

(IS (NExT WORD ‘LISTEN"
F YES, DO usm ,BR N1158

CLIST
6Lu\go N86S, < nmnmoab
ceiee 0,un
.

<*1>,0,8308

cising TRANOD N87S, <'RANSHIT®>
cuiee,6,n1158

;1SNEXT WORD “DOW..

v, 00 wn.u BR Niiss

s NEXT CHAR AT

IS REST OF WORD “RANSAIT
: 1F YES, DO "TRANSM'',BR N115%

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLWA.PI1
25-JUL-80 10:26
1¢9

010272

L &
MACY11 30A(1052)
25-JUL-80 10:29
COMMAND LINE ACTION TREE

NB7S:

2133
213,

:SECOND KEYWORD (FOR CLEAR OR SHOW)
N100S:
CLI
CLISPA,0,N30$
iSKIP LEADING SPACES, NONE=ERR
N1028: (LI
CLISTR.CSHEXP,N104S,
< EXPECTBLIF'>
;1S NEXT WORD “‘EXPE..."
Ll
CLIEXI.O
S IF YES, DO CLR-EXP.EXIT

2135
213
2137

2138
2139

010310
010314
010336

010340
010364

N104S:

(LI

CLISTR, TALMOD,N308,<'ALK">

SEQ 0050

5150 010304
%}gg

(LI

PAGE 51

cLIBR,0,NT158

;

1S REST OF WORD “‘ALK"'

IF NO, ERROR = EXIT

CLISTR,CSHTRN,N30S,<'TRANSM] TBUFF *>
CLIEXI.O

2140

2141
2142
2143
2144

010366
010372

2145 010412
2146 010416
g}:; 010440

2149

2150
2151
2152
2153
2154
2155

010644
010450
010454
010460
010464

:SECOND KEYWORD (FOR SET)
N110$:
CLI
CLISPA,0,N308
N111%:
CLI
CLISTR,SETEXP,N1128 ,<"EXPECTMSG'>

N112%:

010470

216§
2163
2164
2165

S1es

010504
010510

010514
010526
010532
010546

CLIBR,0,N1208
CLISTR,SETTRN,N30S,<'TRANSM]
TMSG'>
CLIBR,0,N1208

:GET ADDRESSES FOR DUMP COMMAND

NSOS:
N518:
N528:

CLI
CLI
(LI
Ll
Ll

CLIALP,O,NS1$
CLISPA,0.N528
CL1OCT .DMPS,N30$
<*=>,NOTNUF .N1258
CLIOCT,DMPE .N30%

Ll
Ll

<'B>.DMPQ néos
CLIBR,0,Nf258

gas? 010474
2}2‘ 010500
2159
2160
2161

Ll
CLI
Ll

<*/>,NOTNUF .N125%

;QUALIFIERS FOR THE RUN COMMAND
N1158: (LI
CLIALP,O,N114$
N1148:
CLI
<*/>,NOTNUF ,N1258

N116S:

Ll
(LI
Ll
Ll

CLISTR,NO, NT168.<'NO*>
<'C>,0.N1178
CLISTR.CHECK ,N1178,<"HECK'>
CLIBR,0.N1158

(LI

CLISTR,STATUS,N1188,<"STATUS'>

(LI

CLISTR,ECHO,N1308,<" ECHO">

2168

010552

N1178:

170

010574

N118S:

010614

N130S:

CLI

CLISTR,0,N1328,<'PASS">

010634

N1328:

(LI

CLISTR,MOSC,N1318,
< MODEM' >

5199 010570

2171 010610
172
173
174

175

};9 010630

178

179

;ng 010650

1:§ 010654

}g‘ 010670

NI131S: (LI

(il

cLIBR,0,N1158

cLigRr,0,n81158

cL1BRr,0,N1508

cLigr,0.n1188

CLISTR,0,N308,<"LOOP">
cLigRr,0,n1408

"IF YES, DO "‘TALK'',BR N115%

:1S NEXT WORD "‘TRANS..''

: IF YES, DO CLR=TRN,EXIT
“IF NO - ERROR = EXIT

2185

;GET MESSAGE TYPE FOR SET MESSAGE COMMANDS
N120$:
(LI
<'=>,0,N30%

;

2aoaa3a99sesS
SRER28I o
ONgNONO ~N

N63S:
N64S:
N6SS:

N66S:
:

Ll
CLI

cLIBR,0,N121
CLISTR, CMSG4 , N66S, < CCITT'>

LOOK FOR QUOTED MESSAGE

N718:

N738:

CL1

(LI

CLIBR,0,N121$

CLISPA.O.NT2S
CLIBR,0,N708

:GET QUALIFIERS (SIZE OR COPY) FOR SET MESSAGE COMMANDS
N1218:
CLI
CLIALP,0,N123$8
N1235%:
CL!
<'I>,n01uur N125%

N1228:

CLISTR sxze u122$ <'SIZE*>

cLl

cLIBR,0.N

cLIBR,0,N1268

CLI

CLISTR ocopv usos <'COPY'>

:NUMER FOR SIZE OR COPY
N126%:
CLI
<'=>,0,N30%
CLIDEC .NUM,N20$
Ll

cLIBR,0,N1218

;GET MAINTENANCE LOOP TYPE FOR RUN "'LOOP'* QUIALIFIER

N140S:

CLI

<'=>,0,N308

11204
11226

N141S:

CLI
Ll

CLISTR,TTLLOP,N1428, <" INTERNALTTL'>
cLigr,0,n1158

N144S: CLI

CLISTR iuoLor N30$,<'REMOTEMODEM®>

~-~
2%

D
D
D
D

&
OO

oo
8ONN
—

~eron
SRERSR

O0OO0O000O0C

e A

[=lelelolT-]

—

(=1=1-]

;PRINT ERROR IF NONE LEGAL CHAR FOR 'S

CLIERR,BADCHR

N62S:

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

CLIALN.C.N73S

cLIBR,0,N1218
CLISTR cnscb N67$,<'ALPHA'>
cLIBRr,0,n1218

CLI

Ll
(LI
Ll

N728:

CLIBR 6
CLISTR cnsco N62$,<' ZEROES'>
cLIBR,0,N
CLISTR cnscz N63S,< 1ALT'>
CLIBR6
CLISTR cnscs N64S,<'OALT'>
cLigRr,b,n1218
CLISTR cnscs N6SS,<'ITEP'>

<*'>,0PRMSG,N30$
<-'s.euooo N718

R
e e

—

cLl
(LI
Ll
CLI
Ll
CLI
Ll
(LI

CLI
CLI

b
s
b

0000000000000

_LOOK FOR DEFAULT MESSAGE NAME
cLl
CLISTR cnse1 N61S,<'ONES'>

ELENREK

SEQ 0051

N67$:
N70$:

011252

PAGE 52

N61S:

11246

&S w

10:29

COMMAND LINE ACTION TREE

N60S:

perd

----8
ISR
NERRGR= © O NO VS WIN =D

L A ALL L L L L L L

010674

~
S&S R&RS SERLRREL28IEIZ

f:.)
—

s L L L L L L L L L s L L L LNN PINININ)
LS LS LS LS LS= LSb LNbTNi LN LSi
LS LS i
L LN i
s

NN
oo RN NN

25=JUL-80 10:26

e
i
011326

N1428:

N143S:

CLI
Ll
CLI
Ll

CLISTR,CBLLOP,N1438, <" CABLE >
cLiBR,0,N1158
CLISTR LNDLOP N144$, <" LOCALMODEM'>
cLisr,0,n11

cLier,0.n

;cgv LINE NUMBER FOR “'PASS" RUN QUALIFIER
N1SOS:
(Ll
<'=>,0,N308

E————

MACY11 30A(1052)

CVCLHA.P1

25-JuL-80

CVCLMA DPV=11 DATA COMM, LINK TEST

ATA COMM, LINK TEST
CVCLHA DPV=11
CVCLHA. P
25-JUL-80 10:26

2261

2247

01}

011342

MACY11 30A(1052)

25-JuL=-80

10:29

COMMAND LINE ACTION TREE

cLl

Ll
JEND= OF =L INE
N12 5%:
(LI

CLIDEC,PASC,N308

CLIBR,0,N1188

CLIEXI,O

PAGE 53

SEQ 0052

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PIT
25-JuL-80 10:26

2249
2250
2251
2252

$22,

B 5
MACY11 30A(1052)
25-JUL-B0 10:29
COMMAND LINE ACTION TREE

PAGE 54

;DEVICE DEPENDENT STORAGE LOCATIONS FOR
;s
CURRENT DEVICE PARAMTERS

2255
2256
2257
2258
%ggg

011344
011346
011350
011352
011354

000000
000000
000000
000000
000000

RXCSR:
PCSAR:
RDSR:
TYCSR:
TDSR:

.WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
O
O

;REC CONTROL AND STATUS
:STATUS REGISTIER
;REC DATA AND STATUS REG
:TRANSMIT AND REC. CONTROL
;:TRANSMIT DATA AND STATUS REG

2261
2262
2263
2264
%ggz

011356
011360
011362
011364

000000
000000
000000
000000

INVEC:
OUTVEC:
INTPRI:
OPTYP:

.WORD
.WORD
.WORD
.WORD

0
0
O
0

:INPUT INTERRUPT VECTOR ADDRESS
:OUTPUT INTERRUPT VECTOR ADDRESS
:INTERRUPT PRIORITY
:DEVICE OPTION TYPE(0=DMC,S5=DMR=DMC MODE

011366

065626

DPVP1:

.WORD

065626

:THIS WORD IS BROKEN DOWN AS FOLLOWS
;:BITS 0=7 =SYNC WORD
:BITS 8-10=ERR DET SELECTED
:BIT11 = IDLE
;BIT12 = SEC ADDR. MODE
:BIT13 = STRIP SYNC
:BIT14 = PORTO TYPE SEL(1=BCP 0=BOP)
:BIT15 = ALL PARTIES ADDRESS..

2267
2268
2269
2270
227
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288

%538

229N
2292

;THIS 1S SET TO SYNC 262
;CRC 16 INIT TO 1
:STRIP SYNC AND BCP MODE
;IDLE SET TO MARK

011370
011372
011374
011376
011400
011402
011404
011406
011410
011412

011414
011416
011420

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000

CMODS:
IRXCSR:
IRDSR:
MSGPTR:
MSGCC:
SYNCC:
SYNCW:
RMSGPT:
RMSGCC:
BCCW:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
MGLCNT: .WORD
MHRCNT: .WORD

RNODE:

.WORD

ERRTBL

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

:CURRENT MODEM
;IMAGE OF RXCSR
: IMAGE OR RDSR
:MSG PTR.FOR HEADER OR CONTROL
:MSG COUNTER OR CC
:SYNC CHAR COUNT.
:SYNC WORD.PLUS TSOM BIT.
:MSG PTR FOR REC
:CHAR COUNTER FOR REC
:CRC HOLDING LOC.

;COUNT OF GLITCH ERRORS
:COUNT OF HARD ERRORS
1=REMOTE NODE ITEP,0=NON ITEP

SEQ 0053

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLmA.PT
25=JUL-80 10:26

FACY11 30A(1052)
25-JuL-80
GLOBAL TEXT SECTION

5
10:29

PAGE 55

2293

.SBTTL

2296
2297
2298
2299

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
: MORE THAN ONE TEST.
o

2301

LSBTTL

2303

: NAMES OF DEVICES SUPPORTED BY PROGRAM

DEVICE SUPPORTED

wWrhornor
o

)
e

o F o Fo
PR

—

[e]elele]

DEVIYP

0501064

000

026526

<DPV-11>

LSDVTYP::

030461

LASC!Z

011432

.SBTTL

F
W
~N

—a

011432

011440
011446
011454
011462

J
050104

042040
047503
047111
052123

/DPV=11/

.EVEN

;

pry

NP
NN NN
AN L NN N NN N N NN NN N W W
PONIPNONINIAY
= b e ed e b b s b s
VS WN =00 NOWVSWN~-O

2309

GLOBAL TEXT SECTION

(=]
oo

~N
W

2304

SEQ 0054

026526

052101
046515
020113
000040

TEST

PRUCRAM IDENTIFICATION

DESCRIPTION

DESCRIPT

030461

020101
046040
042524

<DPV-11 DATA COMM LINK TEST >

L$DESC::

LASCIZ

e
.EVEN

/DPV=11 DATA (UM

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLKWA.PI

440

~NN

.
<
-

» >

‘alel

wwn

037501
040522
000
037501
021120
062111
020131
052103

022516
020104
037530
022516
047517
046101
046116
040440
037505
022516
044103
046101
046116
050040
042526
040445
041440
040442
034455
040524
046116

moe

037501

——

022516
020115
044502

—r

000076
044477
042115
051440
000077
044477
052114
037504

052114
040445
041440
042101
054124
060445
050115
046503

A
obmg
ARR
VLN
LV P
ol

041504
047045
046114
041055
¥
0471
047045
041516
020105
000
045
052516
020117
000
045
040502
044504
045
046042
053040
047440
0471M
0531
045
042442
053040
047440
0471M1
044523
047045
046114
020055
030054
026120
047440
000
045
051442
021060
053040
000077
047045
051511
041504
054524
051110
037442
020122
046111
047045
104
046503
041440
047440

RIRISRIR

C11466
011474
011502
011510
011516
011524
011532
011540
011546
011547
011554
011562
011570
0115N"
011576
011604
01161
011616
011624
011632
011640
011646
011653
011660
011666
011674
011702
011710
011716
011724
011732
011740
011746
011754
011762
011763
011770
011776
012004
012012
012014
012022
012030
012036
012044
012052
012060
012066
01207;
01207
012104
012112
012120

ON-=ONVON
- AN
O =N

2333
2336
2335
2336
2337
2338
2339
2340
23«1
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
238
2369
2370
2371
2372
2373
23764
2375
2376
2377
2378
2379
2380
2381
238;
2383
2384
2385

30A(1052)
25-JuL-B0
10:29 PAGE 56
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

INFO

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

o
~N

2330
233
2332

25=JuL-80 10:26

MACY11

/DCLY>/
/AINTA?ILL

SEQ 0055
INFO

CMD-BAD SYNTX?/

CLINUF:

LASCIZ

/ANZA? INCMPLTE

CLINBG:

LASCIZ

/AINZAINUM TOO0 BIG?/

CLIBRX:

LASCIZ

/AINXA?BAD RADIX?/

CLIBDL:

LASCIZ

/ANZA?'LOOP'" VALID ONLY

IN ACTIVE?/

CLINPS:

LASCIZ

/AINYA?'ECHO'" VALID ONLY

IN PASSIVE?/

(LIBCR:

LASCIZ

/AINZA?ILL CHR=- ""A=7,0-9,SP,TAB'" ONLY?/

037501
036505
052117
0621M

CLISEO:

LASCIZ

/AINXA?''SIZ2E=0"" NOT

VALID?/

0464124
020123
020056
021040
020122
047506
040524

HLPO:

LASCIZ

/AINZATHIS IS DCLT.

TYPE "W OR """ FOR DETAILS/

000
124
020
000072
051101
044123

HLPF:
HLP1:

LASCal
LASCIZ

/DCLY

HLP2:

LASCIHI

/ CLEAR OR SHOW

047524

(MD?/

037507

021102
037531

/AINRT/

CMDS:/

EXPECTLIST OR TRANSMITLIST/<15><12>

25-JuL-80 10:26

2386
2387
2388
2389
2390
2391
2392
2393
23964
2395
2396
2397
2398
2399
26400
26401
26402
26403
2604
2605
2406
26407
2408
26409
2610
2611
2612
2613
26414
2615
2616
2617
2618
2619
2620
2621
2622
262%
2624
2625
2626
2627
2428
2629
2430
26431
2432
2633
2634
26435
2636
26437
2438
2639

0121;2
0121
012142
012150
012156
012164
012166
012174
012176
012204
012212
012220
012226
012234
012242
012250
012256
012264
012272
012300
012305
012312
012320
012326
012334
012342
012350
015356
012364
012372
012400
012406
012414
012422
012430
012436
012442
012450
012456
012464
012472
012500
012506
012514
0125§5
0125
012532
012540
012546
012554
012562
012570
012576
012601

053517
062520
052123
051124
052111
005015
050040
005015
042040
052123
047105
051440
050130
043523
051126
052111
054524
055111
051117
054520
040
042520
026123
051505
026126
044454
041503
046101
020040
047440
051120
036504
050123
030054
020116
051505
051040
042117
050131
036520
041457
0514564
026123
046454
050054
000116
020040
036520
0510564
052103
052054
051511
006516
040

26441

012614

041454

2640

012606

050131

020040
052103
047440
047101
044514

054105
044514
02012
04652
052123

044522

052116

LASCII

046525
051101
027504
052105
041505
047440
047101
051515
042520
036505
027440
047075
020040
047475
042532
030454
040460
042524
052111
044120
020040
020122
051440
026501
052054
034455
052521
000042
047125
036505
046057
052114
042510
040524
041505
042117
051501

020120
026524
000102
042440
046524
020122
046523
036507
051457
020116
047503
000
054524
042516
047522
046101
052114
026120
026124
000101
020040
047442
061520
026132
041101
044440
052117

LASCIZ

046440
051124
041505
050054
046101
042054
012
020040
044475
041101

046440

052115
047517
050131
045503
052524
047510
046505
036523

30A(1052)
25-JUL=-80 10:29 PAGE 57
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

CVCLMA.PI

MACY11

PRINT/<15><12>

CVCLHA DPV=11 DATA COMM, LINK TEST

DUMP START=END/B?

INFO

b P3:

LASCIZ

HLP4:

LASCIZ

HLP4LA:

LASCIZ

HLPS:

LASCIZ

HLP6:

LASCII

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

LASCIZ

LYYP=INT, CAB,LOC,REM/

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

TYPE=ONES,ZEROES
,TALT ,OALT,ITEP,CCITT ,ALPHA?

OR "'OPR SP(D=A-7,SP,TAB,0-9 IN QUOTES'"/

RUN MOCE=MTYP/LOOP=LTYP/CHECK,STATUS
,ECHO ,MODEM PASS=N?

SEQ 0056

CVCLHA DPV=11 DATA CUMM, LINK TEST

CVOLHA. P

25=JuL-80 10:26

MACY11

30A(1052)

25-JuUL-B0

.5
10:29

PAGE 58
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

2442
%222

0126%2
012630

041517
000

051054

046505

2445
2446
2447
2448
2649
2450
26451
2652
2653
2654
2655
2656
2657
2458
2459
26A0
2461
2462
2463
2664
2465
26466
2467
26468
2469
2470

012631
012636
012644
012652
012660
012665
012672
0126764
012701
012706
012713
012720
012721
012726
012734
012762
Vi2745
012752
012755
012762
012766
012774
012776
013004
013005
013012

045
043523
042520
027501
022475
132
000123
047117
061
040460
103
000
111
045101
050117
041505
122
042526
1264
044515
040520
000105
041501
000
104
047111

022516
020072
022475
044523
(71504
051105

046501
0545264
022524
042532
000
042517

SHMSG:

.ASCIZ

?XNXAMCG- TYPE=XTXA/SIZE=%D3?

SHTYPO:

,ASCIZ

/ZEROES/

051505
046101
052114
044503

000
000126
000
052124

SHTYP1:
<S4TYP2:
SHTYP3:
SHTYP4:

_ASCIZ
,ASCIZ
_ASCIZ
,ASCIZ

/ONES/
/1ALT/
/OALT/
/CCITT/

042524
044120
020122
000
041505
000
040522
000124
051523

000120
000101
050123

SHTYPS:
SHTYPE
SHTYP7:

,ASCIZ
.ASCIZ
.ASCIZ

/LTEP/
/ALPHA/
/OPR SPEC/

044505

MOO:

LASCIZ

/RECEIVE/

051516

MO1:

LASCIZ

/TRANSMIT/

053111

mo2:

LASCIZ

/PASSIVE/

044524

042526

MO3:

LASCIZ

/ACTIVE/

053517

046105

046116
040517

MO4:

LASCIZ

/DOWNL INELOAD/

26472
2473
2474
2475
2476

013022
013027
013034
013036
013037

040524
114
000116
000
057

045514
051511

000
042524

MOS:
MO6:

LASCIZ
LASCIZ

/TALK/
/LISTEN/

047514

050117

LPO:
LPOO:

LASCIZ
.ASCIZ

7/
?/L00P=?

2478
2479
2480
2481
2482
2483
2484
2485
2686
2487
2488
2489
2490
2491
2492
2493
2694
26495

013046
013054
013057
013064
013065
013072
013100
013106
013114
01116
013124
013125
013127
013134
013135
013137
013144
013146

047111
046101
103
000
1164
047515
042522
047515
047516
052123
000
116
103
000
116
105
047516
047515

042524
000
041101

047122

LP1:

LASCIZ

7INTERNAL?

042514

LP2:

LASCIZ

?CABLE?

041517
042504
047515
042504

046101
000115
062524
000115

LP3:

LASCIZ

?LOCALMODEM?

LP&:

LASCIZ

7REMOTEMODEM?

052101

051525

PNST:
PST:

ASCII
LASCIZ

/NO/
/STATUS/

117
042510

045503

PNCK:
PCK:

LASCII
LASCIZ

/NO/
/CHECK/

117
044103

000117

042504

000115

PNEC:
PEC:
PNMS:
PMS:

.ASCII
LASCIZ
ASCII
LASCIZ

/NO/
/ECHO/
/NO/
/MODEM/

INFO

SEQ 0057

CVCLMA DPV=11 DATA COMM, LINK TEST

CVCLHA. P

31
32
33
34
35
36
37
38
39

2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552

255%

013154
013162
013165
013172
013200
013206
013214
013222

047045
037123
126
044124
032440
020122
055110
026511

040445
000
045514
051511
027060
030066
020056
030461

25-JuL=-80

§
10:29

PAGE 59
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

044514

LISP:

ASCIZ

/INXALIS>/

000076
040440
047440
020056
051514
000072

OPRMM:
L5060:

ASCIZ
.ASCIZ

/TLK>/
/THIS A 50. OR 60. WZ. LSI=11:/

INFO

.EVEN

: CORMAT STATEMENTS USED IN PRINT CALLS

040445
046040
047514
052117
047520
041040
051511
041511

047504
047111
0462107
051440
052122
020131
042040
000105

DLLCM:

_ASCIZ

/XINZADOWN LINE LOAD NOT SUPPORTED BY THIS DEVICE/

013260
013266
013274
013302

047045
047127
020105
047040
050125
042105
044126
053105

013310
013316
013324
013332

047045
041517
020124
000104

040445
020113
047506

046103
047516
047125
.

BDCLK:

LASCIZ

/INXACLOCK NOT FOUND/

013342
013350
013356
013364
013372
013400
013406
013414
013415

020104
020113
043517
044527
047101
021040
052517
00
115

046103
020055
040522
046114
020107
044524
021124

040502

NOCLK:

.ASCIZ

/XNXTABAD CLOCK = PROGRAM WILL HANG ON "‘TIMEOQUT''!!/

020056
020056
047503
054105
042105

TABEX:

.ASCIZ

/MAX. CHAR, MSG COUNT EXCEEDED =/

043125 042506
052506 046114
000°
022516 022524
051515 027107
052117 041040
052114 020440

BUFEX:

.ASCIZ

/BUFFER FuLL =/

MSGTRN: .ASCIZ

/XNXTXA MSG. NOT BUILT !!/

040445

MSGTRU: .ASCIZ

/INXACHAR. (OUNT EXCEEDS BUFF LIMIT = MSG TRUNCATED/

w
~N
wv
~N

013230
013236
013244
o

(W RV IV LW LW LW LW LW RN LN LN LN AV LN LV LV LV LW LV W
IV LV DV LV LV LV TV TV LW LV LW TV LV IV IV IV IV IV ]
PRI NINI PO RINININ =
s e b e s e o s O [eleolale]
OO NOWVE NN 2OV
YO NS W
-0 0 O~Ne N

2498
2699
2500
2501
02
0
04

25-JUL-80 10:26

MACY11 30A(1052)

013334

013422
013430
013436
013444
013452
013455
013462
013470
013473
013500
013506
013514
013522

013524

047045

044103
051515
047125
042503
026440
102
020122
026440
045
020101
047040
044525
000041

047045

040445

054101
051101
020107
020124
042105
000

041517
051120
020115
044040
047117
042515
020441

044103

SEQ 0058

MACY11

2
7

SHFO:

LASCIZ

PANXSSXAMODE=XTXTXTRIA/PASS=2175?

SHF1:

LASCIZ

TANXSSASSASSXA/RTRA/RTRA/RTHA/AT?

EFM2:

LASCIZ

/XSSXATOTAL MISMATCHES

PCPM:

LASCIZ

/ANXS3XACALLED FROM PC=%06/

Fo v

013734

14010
4016

o
ol o
o

SEXRFIERN
=8ST

D il il il il il i i O

WSS VWO O

VAVA
S BN
n
N =t N N = b

O -=-NOO

AR
RR
OO0O0O

~
»

— el

D e

R ok b

D o

020075
047045
041501
020104
050040
000066
051445
046517
041440
022475
022463
044505
052517

057

PR O

027501

052045
045
047524
044515
044103
020116

~ rororn

w S wWwW

INFO

OO0OO0O0O0O0O
ViV
S
OO
SN
=S O8O ——Wun
OSSN FNOO
—2OoOO0O0oOWwWVnWKw

H
S
30A(1052)
25-JuUL-80
10:29
PAGE 60
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

COOo0OC,
WS
W
oD
VIV
WO
OSSN

4
3

S NNNNO
WV b b b s
NON = = O =N —=OO0N
V=S NOOON W=

ol=l=l=loBelelalelel=]

‘s’

o j=l=1=]
~ NN
o roroN

013705
013712
013720
013726

0000000000000 O0OO0O0O0O00000O

OO
pard

2592

020056

RSN

SO =00
VIR
O = NOWwWW

013674
013702

NOWVMS

WOV

OO&O o

o ONONON NN r
NO VNS WN=0OP O~NOWVN w =00V ~NOrWNPo

~N NNRONONNNONNONNONNNONON
NN NN
N NN NN NN NN o
w VI
AWV AWV VAWV
AWM A VAWV
VTN ViAW VIV AWV wn

CVCLHA DPV=11 DATA COMM. LINK TEST
CVCLHA.PT
25-JUL-80 10:26

0462045
051445
046101
051106
036503

040445
020114
052101
044440
020107
000065
022463
042514
046517
047445

IN MSG = %D5/

022465
040520
052517
0325 04
0511 01
0425 26
0521 16
0 00
0421 17
0405 24
0441 03
020123
0464124
051501
042522

041501
042522
052116
051445
041505
041440
022475

EFM11:

_ASCIZ

/XSSXACOMPARE COUNT=XDSXS3XARECEIVE

046505
052524
047101
047506
051511
020123
027056

MSCMS:

LASCIZ

/MODEM STATUS CHANGES FOR

032523

040445
041440

EFM13:

,ASCIZ

/XSSTAHARD CHANGE S=XDSXAXS3XAGL
I TCHES=%DS/

0462045

051505
060445
043501
042510
000065

COUNT=%DS/

THIS PASS WERE../

SEQ 0059

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.P1Y
25-JUL=-80 10:26
2610
2611

gg}%

;EVENT DESCRIPTION MESSAGES

2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2660
2641
2642
2643
2644

014202
014210
014216
014224
014226
014234
014242
014250
014255
014262
014270
014276
014302
014310
014316
014324
014330
014336
014344
014345
014352
014360
014366
014374
014375
01440c
014410
014416
014423
014430
014436

051124
052111
050440
000104
051124
052111
041440
052105
122
042526
042503
042525
042522
020105
047503
042524
042504
042440
000
104
047503
051511
040524
000
104
020105
040440
052105
106
047503
051511

2647

014460
01 44764

2650
2651
2652
2653
26564
2655
2656
2657
gggs
2660

2661
2662
2663
2664
2665

5
I
MACY11 30A(1052)
25-JuL=-B0 10:29 PAGE 61
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

014502
014510
014513
014520
014526
014527
014534
014542
014550

014553
014560
014562
014570
014571

047101
046440
042525

046523
043523
042525

EDTXQ:

.ASCIZ

/TRANSMIT MSG QUEUED/

047101
046440
046517
042105
041505
051440
050440
000104
042503
051515
050115
000104
044526
051122

046523
043523
046120
000
044505
040520
042525

EDTXC:

.ASCIZ

/TRANSMIT MSG COMPLETED/

EDRXQ:

.ASCIZ

/RECEIVE SPACE QUEUED/

053111
020107
042514

EDRXC:

.ASCIZ

/RECEIVE MSG COMPLETED/

EDDER:

.ASCIZ

/DEVICE ERROR/

EDDCK:

.ASCIZ

/DATA COMPARISON STARTED/

047117
052122

042503
051117
:
020101
051101
051440
042105

053105
047111
042116
050125
052101
050115
47117

041511
(©S52111
051440
000
02C101
051101
046040

&dDVI:

.ASCIZ

/DEVICE

EDDLE:

.ASCIZ

/DATA COMPARISON LENGTH ERROR/

040504

040524

041440

EDDDE:

.ASCIZ

/DATA COMPARISON DATA ERROR/

047523

020116

040504

047440
051523

EDEOP:

,ASCIZ

/END OF PASS/

042117
040524
044103
000

046505
052524
047101

EDMOS:

.ASCIZ

/MODEM STATUS CHANGE/

031523

047445

BASM3:

_ASCIZ

/%S3%03/

022463

033117

BASM2:

.ASCIZ

/XS3%06/

022516

033117

BASM1:

ASCIZ

/INXO6/

040524
051117
105
020106
000
115
051440
020123
042507

045
000063
051445
000
045

052101
050115

042440
000
042116
040520

INIT AND SETUP/

051122

;EVENT REPORTING MESSAGES

INFO

SEQ 0060

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25=JUL-80 10:26

0145 6
0145 7
014604
0146
0
0
0

000
0 45
042510

2680
2681

014712
014720

036074
036074

2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693

014730
014736
014744
014752
014757
014764
014772
015000
015006
015014
015022

047045
035101
035101
031523
045
040445
047440
036507
031523
042524
052688

042045
055045
055045
052045
022516
0462101
020106
047445
040445
041440
022475

2695
2696
2697
2698

015031
015036
015043
015050

27C0
2701
2702

015060
015
015074

045
052045
045
022466
000066
051445
051445
051445

27064
2705
2706
2707
2708
2709
2710
2711
2712
2713

015110
015116
015124
015132
015140
015146
015154
015162
015170
015176

040501
043117
022475
022463
020105
036524
031523
020056
050115
036523

2666
2667
2669
2670

2703

2714

715
716

2717
2718
2719
2720
2721

015102

015204

015218
015220

015226
015234
015265
015250
015256

047045

040501
043117

022475
022463
05650;
042045
040445

MACY11

J
5
30A(1052)
25-JuUL-80
10:29 PAGE 62
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

INFO

NULEVT:

,ASCIZ

/XNXATHE EVENT LOG IS EMPTY/

EVTFO:

JASCIZ

/INXA>>> EVENT LOG ENTRY <<<C<<CCLLCLLLLLLLLLLLLLLCLLLLLLLLCL</

022465
022462
022462
000
031523
051104
051515
022466
054502
052517
032504

EVIF1:

LASCIZ

/ANXDSXA:XZ2%A:XZ2X%S3RT/

EVTF2:

LASCIZ

/XINXS3XAADDR OF MSG=X06XS3XABYTE COUNT=%D5/

022516
047045
031523
031523

031523
000
047445
047445

EVTF3:

_ASCIZ

/%NXS3XTAN/

EVTF3C:

.ASCIZ

/XS3X06X%S3%06/

022463
022463
022463

033117
033117
000124

EVIF3D:

.ASCIZ

/XS3X06XS3X06XS3XT/

042104
046440
033117
041101
047503
042045
040445
043117
042440
042045

022463

020122
043523
051445
052131
047125
022465
047516
041440
051122
000065

EVIF&:

,ASCIZ

/XNXS3IXAADDR OF MSG=X0nXS3XABYTE COUNT=XDSXS3XANO. OF (MP ERRS=XD5/

022463

EVIF4A: .ASCIZ

022516

042440

051445

042104
046440

033117
051101
06425264
022465
047503

020122
043523

051445
0;0130
036523
031523
050115

/XINXS3XAADDR OF MSG=X06XS3XARX BYTES=XDS5YS3XACOMPARE BYTES=XDS/

SEQ 0061

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.P1T
25-JUL-80 10:26

MACY11

K 5
30A(1052)
25-JUL-80
10:29 PAGE 63
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

SEQ 006¢

INFO

27¢2
2723
g7¢4

015264
015072
015300

051101
Qk2sd
000005

2726
2727
2728
2729
2730
2731
2732
2733
273
2735
273
2737
2738
2739
2740

015302
015310
015316
015324
015332
015340
015346
015354

047045
050101
042045
040445
051522
051445
051124
022475

EVIF4B:

LASCIZ

/ANXSIXAPASS=XD5SXSSXAERRORS=XD5%S3XASTRT=T0=2D5/

015361
015366
015374
015402
015410
015416

045
054502
047111
036456
031523
052120

EVTFSA:

LAST
2

/%SSXABYTE# IN MSG.=3DSXAS3XAEXPTD=X03XS3XARECVD=%03/

2743

015440

047445

2745
2746
2747
2748
2749
2750
2751
2752
2753

015444
015452
015460
015466

047045
041501
042105
000

EVMOCG:

LASCIZ

/AINXSORACHANGED TO:/

2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
774
775

2776
2777

020105
036523

053103
000063
051445
040510
052040

054502
042045

047445
040445
036504
02247
043516
035117

22222222222222222222222222l

:DO NOT SEPERATE THE NEXT LIST OF MESSAGES - MODEM SIGNAL HEADER AND REPORT
015467
015474
015502
015510
015516
015524
015532
015540
015546
015547
015554
015562
015564
015567
015570

015573
015574
015577
015600
015603
015604

045
040445
020115
051525
020123
041504
020123
050523
000
045
051445
040445
130
040
130
040
130
040
130
040
130

015613
015614

040
130

015607
015610

040
130

EVMOMD:

.ASCIZ

/XNXSBXAMODEM STATUS: CTS DSR DCD RTS RI

022516
02247

EVMOST:

LASCII

/ANXSOXSIASSXA/

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:

.BYTE

'X,40,40,40

040

EVMSQD:

.BYTE

'X,40,40,40

040

EVMTM:

.BYTE

'x,40,40,40

020104

SQD TM/

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.P
25-JUL-80 10:26
27/8
2779
g;g?
2782

2783

015617
015620

040
000
015622

015622

047045

L .5
MACY11 30A(1052)
25-JuL=80 10:29 PAGE 64
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII
BYTE
.EVEN

000

INFO

EXECUY!ON STAYU$ HESSAGES TO BE PRINTED TO KEEP OPERATOR AWAKE

LASCIZ

/XN/

;CR FOR LINES IN A ROW

052101

STXC:

.ASCIZ

/XS3XATXC/

;TX COMPLETED

040445

SRXQ:

,ASCIZ

/XS3XARXQ/

;ABOUT TO RECEIVE

042501

SDVE:

.ASCIZ

/XS3XAERR/

;DEVICE ERROR

040445

SCM:

LASCIZ

/XS3XACMP/

;ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD

044501

SDVI:

.ASCIZ

/XS3XAINL/

;DEVICE ABOUT TO BE INITIALIZED

040445

SCML:

.ASCIZ

/XS3XACML/

; COMPARE LENGTH ERROR

041501

SCMD:

.ASCIZ

/XS3XACMD/

; COMPARE DATA ERROR

040445

SEOP:

,ASCIZ

/XS3XAEOP/

;END

;MODEM STATUS CHANGE.

2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
%gg%

015625
015632
015636
015644
015647
015654
015660
015666
01567
015676
015702
015710
015713
015720
015724
015732
015735
015742

045
054724
051445
041530
045
054122
051445
051122
045
046503
051445
044516
045
046503
051445
042115
045
047505

031523
000121
022463
000
031523
000121
022463
000
031523
000120
022463
000
031523
000114
022463
000
031523
000120

040445

STXO:

LASCIZ

/%S3%ATXQ/

;ABOUT TO TRANSMIT

2804
%ggz

015746
015754

051445
041523

022463
000

046501

SMSC:

,ASCIZ

/XS3XAMSC/

2807
2808
2809
2810
2811
2812
2813
2814

015757
015764
015772
016000
016005
016012
016020
016026

115
051440
020123
044103
115
051440
020123
042440

042117
040524
046107
042105
042117
040524
040510
051122

046505
052524
052111
000
046505
052524
042122
051117

GLMSG:

.ASCIZ

/MODEM STATUS GLITCHED/

HRDMSG:

.ASCIZ

/MODEM STATUS HARD ERROR/

OF PASS

.EVEN

SEQ 0063

MACY11

CVCLHA DPV=11 DATA COMM. LINK TEST

2857
2858
2859
2860
2861
2862
2863
2864
2865
2869
gao
868

3899

870
871
872

016346
016353
016360
016366
016374
016377
016404
016412
0164
8166 6
164
016437
016444

016452
016460
016463

051105
015
042122
020040
051123
126
047440
020116
026124
026113
042523
015
042122

020040
040524
115

~N&Swnse

020040
051123
054124
000040
041440
052040
042116
020115
020115
020040
051123
054124
000040
042515
053440
043516
051040
052040
041440
052105
02001
05150
052040
000
041522
051105

WOO
WVIONS

020012
051123
051040
000
041505
020122
052522
020012
051123
051040
000
046511
052125
052123

052123
041501
121
OgOOIZ
052101

051440
000
062117

DVEMO:

CVEM1:

051501
042522
044504
020124

OO0OO0O
oSS
~NOrnrn
wnw—=wuniwun

115
020122
020124
047516
045522
005015
041530
020040
020122
047516
051101
042523
047522
042504
005015
041530
020040
020122
044526
052125
044526
05i117
051117
047524
046120
015
054122
020040
051123
103
020116
122
015
042122
020040
051123
122
042526

OO0
WOW
—=O—=
wWVWOO

016035
016042
016050
016056
016064
016066
016074
016102
016110
016114
016122
016130
016136
016144
016150
016156
016164
016172
016176
016204
016212
016220
016226
016234
016242
016247
016254
016262
016270
016273
016300
016306
016307
016314
016322
0163
016333
016340

O0O0O0
S8 NS
NWON
WVWO—-=wvi

2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2329
2830
2831
2832
2833
2834
2835
2836
2837
2838
<839
2840
2841
2842
2843
844
845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856

25-JUL-80 10:26

OO0
WV
O—=
OO

CVCLHA. PN

L
30A(1052)
25-JuL-80
10:29 PAGE 65
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

INFO

LASCII

/MASTER RESET DID NOT WORK/

ASCIZ

<15><12>/

.ASCII

/NO CLEAR TO SEND FROM MODEM /

LASCIZ

<15><12>/

.ASCII

/TIME OUT WAITING FOR RX OR TX TO COMPLETE/

LASCIZ

<15><12>/

L,ASCII

/CRC IN ERROR/

LASCIZ

<15><12>/

ASCII

/RECEIVER OVERRUN/

LASCIZ

<15><12>/

LASCII

/TIMED OUT IN START,STACK,ACK SEQ/

JASCIZ

<15>¢<12>/

ASCI1

/MODEM DID NOT RETURN MODEM READY/

RXCSR

TXCSR

051503
047440
044501
043040
020130
020130
046517

DVEM2:

RXCSR

TXCSR/

041530
044440
047522

DVEM3:

020040
020040
041530
044505
053117

DVEM&:

116

020040
020040
041520

042105
044440
051101
041501
020113

DVEMS:

020040
020101
040504

046505

DVEM6:

RDSR

RDATA

RXCSR/

SDATA/

SEQ 0064

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.P11
2873
2874
2875
2876
2877
2878
2879
2880
2881

|NS

016470
016476
016504
016512
016520
016523
016530
016536
016544

25-JUL-80 10:26
042040
052117
051125
042504
042101
015
054122
020040
051503

042111
051040
020116
020115
131
020012
051503
020040
000122

MACY11 30A(1052)

25-JuUL=-80

10:29

PAGE 66

RXCSR

TXCSR/

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

047040
052105
047515
042522
020040
020122
054124

LASCIZ

<15>¢<12>/

SEQ 0065

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.P

2883
2884
2885
2886

25-JUL-80 10:26

MACY11

30A(1052)
25-JUL-80 10:29 PAGE 67
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

.EVEN

INFO

SEQ 0066

CVCLHA DPV=11 DATA COMM, LINK TEST

MACY11 30A(1052)

2893
2894
2395
2896

.SBTTL

CVCLHA.P1Y

25-JUL-80 10:26

2910
2911
2912

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

016550

016550
016550
016550
016552

016556
016560
016564

005046
153716
005046
153716

013746

2914
2915
2916
2917

016574
016600
016602

016604

012746
010600
104414
062706

2919
%g%?

016610
016610

104423

2922

016612

2923
2924
2925

2926
2927
2928
2929
2930
2931

BGNMSG

ERR1

PRINTB

#EVTFSA,OFSET,<B,GOOD>,<B,BAD>

006537

006536
006514

016610

016612
016612
016612

016616
016622
016626
016630
016632

016636

000004

000012

013746
012746
012746

006526
013705
000002

062706

000006

01060C
104414

ENDMSG

L10001:

BGNMSG

ERR2

PRINTB

WEFM2, TEMP4

2935

016640

BGNMSG

ERR10

016640

PRINTB

#EFM11,R4, TEMP3

2938
2939
2940
2941
2942
2943
2944
2945

2946
2947

016640
016644
016646
016652
016656
016660
016662

016666

016666
016666

013746 006524
010446
012746 014002
012746 000003
010600
104414
062706 000010
104423

TRAP

C$MSG

ENDMSG

#12,5P

ERR2::
:TOTAL DATA COMPARE FAILS ERROR
TEMP4 ,-(SP)
MOV
#EFM2,-(SP)
MOV
#2,-(SP)
MOV

L10002:

104423

016640

#4,-(SP)
SP.RO
CSPNTB

MOV
TRAP

ENDMSG

REVTFSA,=(SP)

MOV
MOV
TRAP

ADD

016636
016636

2937

ERR1::
;INDIVIDUAL DATA COMPARE ERROR
CLR
-(SP)
BISB
BAD, (SP)
CLR
-(SP)
BISB
600D, (SP)
OFSET,=(SP)
MOV

MOV

2932
gggz
2936

SEG 0067

GLOBAL ERROR REPORT SECTION

2913 016570 012746 015361
2918

PAGE 68

: THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS
: USED BY MORE [HAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB

%ggg

2906
2907
2908
2909

10:29

Pee

2897

2900
2901
2902
2903
2904
2905

25-JUL-80

GLOBAL ERROR REPORT SECTION

SP,RO
C$PNTB

ADD

#6,SP

TRAP

CIMSG

ERR10::

:LENGH COMPARISON ERROR

L10003:

TEMP3,-(SP)
R4 ,-(SP)

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

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

TRAP

(MSG

#10,SP

CVCLHA DPV=11 DATA CUMM, LINK TEST
CVCLHA P11
25=JUL-80 10:26

016670
016670
016670
016670
016674
016700
016704
016710
016712
016714
016720
016720
016720

3746

2746

011414

MACY11 30A(1052)
25-JuL-80
GLOBAL ERROR REPORT SECTION

10:29

BGNMSG

ERR&

PRINTB

WEFMI3 MHRCNT MGLCNT

PAGE

SEQ 0068
:
ERRG:

:MODEM STATUS C(MHANGE
MOV

011416
014131
000003
000010

MGLCNT ,=(SP)

= (SP)
MHRCNT

#EFM13,-(SP)
#3,-(SP)
SP,RO
(SPNTB
#0,5P

ENDMSS

L10004:

104423

($MSG

CPRINT THE 2 OCTAL #'S IN TEMP3/4
016722
016722
016722
016722
016726

013746
013746
012746
012746
010600

006526
006524
015043
000003

062706

000010

104414

016752

BGNMSG

ERR13

PRINTB

Y,
TEMPL
SEVTFIC,TEMP

ERR13::
MOV
MOV
MOV

= (SP)
TEMP4,

TEMP3. = (SP)

REVTF3C,=(5P)
#3,-(SP)

TRAP
ADD

ENDMSG

L10005:
.

104423

TRAP

"PRINT THE 2 OCTAL #'S IN TEMP3/4
.

g g8883E 333

016754
016754
016754
016754
016760

3746
3746

2746
2746

006532
006526
006524

AND

THE

MESG.

WHUSE

ADDR.

IN CONCTM

BGNMSG

ERR14

PRINTB

WEVTF3D,TEMPS, TEMPL,(ONOTM

ERR14:
:

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

TEMP3 = (SP)

seviidp,-csp)

015060
000004
000012

#4,-(SP)

SP.RO
C$PNTB

#12.5P

ENDMSG

ExIT

L10006:
LM

CIMSG
J$IMP

CVCLMWA DPV=11 DATA COMM, LINK TEST
CVCLKA.P1Y
25-JUL=-80 10:26

3005
3006
3007

017014

177772

MACY11 30A(1052)
25-JuL-80
GLOBAL ERROR REPORT SECTION

10:29

PAGE

SEQ 0069
.WORD

L10006=2-.

MACY11 30A(1052)

3008
3009
3010
301
gg;%

LSBTTL

Dee
: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
: THAT ARE USED IN MORE THAN ONE TEST.

3014
3015
%8}9

LSBTTL

3018
3019

;00
; FUNCTIONAL DESCRIPTION:

3022

CVCLHA.PIT

25=JuL-80 10:26

3020
3021

GLOBAL SUBROUTINES SECTION

3
:

3023
3024
3025

:
:
;

gg%g

3026

LINE OR P=CLOCK IS FOUND.
INPUTS:

R1= POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED

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

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

IMPLICIT INPUTS:

: OUTPUTS:

3036

2
:
2

gg;g

%8:?
3042
3043

017016

3048
3049
3050

017026
017030
017032

3044
3045
3046
3047

3051
3052

3053

"'CLKCSR'' GETS LOADED WITH THE CLOCK'S CSR ADDRESS
“CLKBR'' GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL
CLKVEC'' GETS LOADED WITH THE CLOCK'S INTERRUPT VECTOR

“CLKMZ'' GETS LOADED WITH THE LINE FREQ. (MERTZ RATE) WHICH DETERMINES
THE NUMBER OF

;5 CALLING SEQUENCE:

3039

017016
017020
017022
017024

012122
012112
006312
006312

017034
017036

012122
012122

017040

006312
006312
006322
000207

SEQ 0070

THIS SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING A '‘CLOCK"
CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE THE "'CLOCK'" CALL
SAYS NOTHING ABOUT AN LSI=11'S CLOCK, THIS ROUTINE IS ONLY USED I[F A

3032

3033
3034
3035

PAGE 71

CLOCK SETUP SUBROUTINE

10:29

GLOBAL SUBROUTINES SECTICN

3029

%8%?

25-JuL-80

CVCLHA DPV=11 DATA CUMM, LINK TEST

CLKSET:

TICKS IN A SECOND

JSR

PC,CLKSET

:CALL C.OCKk SETUP WITH R1 & R2 SETUP

MOV
MOV
ASL
ASL

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

;LOAD CLO(K'S CSR ADDR. INTO ''CLKCSR"
:LOAD CLOCK'S INT, LEVEL INTO "'CLKBR"
;ADJUST THE INT. LEVEL FOR LOADING INTO
THE PSW WITH A ""SETVEC'" CALL
:

MOV
MOV

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

:LOAD CLOCK®S INT. VECTOR INTO "'CLKVEC
LOAD CLOCK®S HMERTZ RATE INTO "'CLKWZ"'

ASL
ASL
ASL

RTS

(R2)
(R2)
(R2)+

CVCLMA DPV=11 DATA CUMM. LINK TEST

CVCLMHA.PIN

MS=JuL=-80 10:¢6

3045
3056
3057
3058
2059
3060
3061
3062
3063
3064
3065
3006
3067
3068
3069
3070
3071
3072

MACY11

25-JuL-80

10:29

PAGE

CLOCK SETUP SUBROUTINE

LSBTTL

CLOCK

SEQ 0071

INTERRUPT SERVICE ROUTINE

The

: FUNCTIONAL DESCRIPTION:
:
THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE WHICH TAKES CARE OF

KEEPING THE ''TIME-SINCE=START'' AND COUNTING DOWN ANY OF THE

LRYR
T

“EVENT'' TIMERS. THE TIMERS ARE USED TO TIME COMPLETION OF

IMPLICIT

;
:
:
:

INPUTS:

TIMTCK:

CLKHZ:

THE CURRENT NO. OF TICKS LEFT
HAS BEEN COUNTED CFF

THE NO. OF

TO BE

COUNTED UNTIL

A SECOND

TICKS IN A SECOND, DETERMINED BY THE SYS. LINE

TIMMIN & TIMSEC: CURRENT VALUE OF "'TIME-SINCE=START"
IN MINUTES & SECONDS
TIMER 1,2, & S: CURRENT VALUES OF THE "EVENT TIMERS"

:
:
:

3074
3075
3076
3077
3078
3079
3080
3081
3082

DEVICE

REQUESTS. THE "'TIME=-SINCE=-START'' [S USED TO BE LOGGED WITH EACH ENTRY
INTO THE EVENT LOG.

3072

FREQ.

IMPLICIT OUTPUTS:
NEW VALUE OF EVENT TIMER '"1'" DECREMENTED BY 1 TICK [F IT WAS NON-ZERO
NEW VALUE OF EVENT TIMER ''2'' DECREMENTED BY 1 TICK [F IT WAS NON-ZERO
NEW VALUE OF EVENT TIMER ''S'" DECREMENTED BY i SECOND I[F [T WAS NON-ZERO

* FUNCTIONAL SIDE EFFECTS:
:

THE

CLOCK

1S DISABLED UPON ENTRY AND REENABLED WHEN LEAVING

; CALLING SEQUENCE:

;

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

VECTOR WITH A SUPERVISOR ''SETVEC'' CALL.

3083

3090
3091
3092
3093
3094
3095
3096
3097
3098

017042
017046
017052
017054
017062
017066
017074
017076
017102

005077
005337
001015
013737
005237
022737
001004
005237
005037

167532
006616

3100
3101
3102
3103
3106
3105
3106

017106
017112
017114
017120
017124
017126
017132

005737
001402
005337
005737
001402
005337
005737

006620

1%:

006620
006622

2%:

006622
006624

3%:

3108
3109
5110

017140
017146
017150

023737
001002
005337

006606

3107

30A(1052)

017136

001406

006606
006614
000074

006612
006614

006624

INTO THE CLOCK'S INTERRUPT

CLKINT

CLR
DEC

oCLKCSR
TIMTCK

:DISABLE THE CLOCK FORM INTERRUPTING
;DECREMENT THE # OF TICKS/SEC.

MOV

CLKHZ,TIMTCK

JRESET THE # OF

INC
CMP
BNE
INC
(LR

006614

THIS ROUTINE WAS LOADED

BGNSRV

BNE

006616

THE ADDRESS OF

TST

TIMSEC
#60.,TIMSEC
1%
TIMMIN
TIMSEC
TIMERT

CLKINT::

;GO CHECK TIMERS (182-TICKS, 3-SECONDS)
TICKS/SEC.

sINC # OF SECS=SINCE-START
;SEE IF WE'VE COUNTED 60 SECS. YET
s1F NOT, GO CHECK TIMERS
: ELSE INC MINUTES=SINCE-START
; AND RESTART SECOND COUNTER
JSEE

TIMER #71, TIMING ANYTHING

BEQ
DEC
TST
BEQ
DEC
1ST
BEQ

2%
TIMERY
TIMERZ
3%
TIMER?
TIMERS
4%

: 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
JSEE IF TIMER #3, TIMING ANYTHING
; 1F=0, NOTHING BEING TIMED, LEAVE

DEC

TIMERS

(MP
BNE

CLKHZ,TINTCK
4%

;SEE IF A SECOND HAS BEEN COUNTED OFF
: ?R éf ? 0
B

DECREMENT THE TIMER VALUE

TIMER
TI(CK)

TIMER
TI(K)

(BY 1 SEC.)

NN NN

CVCLHA DPV=11 DATA CUMM, LINK TEST
CVCLHA. P
25-JUL-80 10:26
1
1
1
1

017154
017162
017162
017162

013777
0000C2

006610

167416

MACY11 30A(1052)
25-JuL-80 10:29 PAGE 73
CLOCK INTERRUPT SERVICE ROUTINE
4$:

MOV
ENDSRV

CLKEN,@CLKCSR

SEQ 0072

;REENABLE THE (LOCK TO INTERRUPT
L10007:

RT!

MACY11
.SBTTL
)
I
T

THE SHORT "'OPERATOR AWAKE'' MESSAGE

OF EVENT
OF EVENT
OF EVENT
VALUE OF

CURRENT VALUE OF ''TIME=SINCE=START"

LOG INFORMATION (FOR MOST EVENT TYPES)
LOG INFORMATION
LOG INFORMAT]ON
THE MODEM SIGNALS AVAILABLE FROM THE DEVICE

"'OPERATOR AWAKE'' MESSAGE SENT TO THE CONSOLE
NEW EVENT LOGGED iN "EVTLOG'' (EVENT LOG)

OUTPUTS:

UPDATED "EVTPTR'" (EVENT LOG ENTRY POINTER)

"DVMODS'' THE DEVICE SUBROUTINE THAT RETURNS MODEM STATUS IN "MODS'
(FOR SOME EVENT

FUNCTIONAL

SIDE

TEMP:
TEMP1:

EFFECTS:

JSR

PC,LOGTXQ

JSR

PC,LOGCMP

MOV
MOV

#STXQ, TEMPI
#TXQ, TEMP

sSET UP MSG. TO PRINT
*SET UP EVENT TYPE

MOV
MOV

#STXC, TEMPY
#TXC,TEMP

:SET UP MSG. TO PRINT
SSET UP EVENT TYPE

MOV
MOV

#SRXQ, TEMPI
#RXQ, TEMP

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

MOV

#RXC,

:SET UP EVENT

017164

017164
017172

012737
012737

015625
000000

017202
017202
017210

012737
012737

015636
000002

012737
012737

015647
000004

006520
006516

012737

000006

006516

017216

017220
017220

017226

017236

169

017244

017236
017246

000510

000501

000475

006520
006516
:

006520
006516

LOGTXQ:

B8R

LOGTXC:

BR
LOGRXQ:

LOGRXC:
LGDVE:

TYPES)

USED TO STORE ADDRESS OF ''OPERATOR AWAKE'' MESSAGE
USED TO SETUP THE VALUE OF THE "EVENT TYPE'' BYTE FOR LOGGING

CALLING SEQUENCE:

167

170

WORD #'
WORD #2
WORD #3
CURRENT

TEMP2:
TEMP3:
TEMP4:
MODS:

SUBORDINATE ROUTINES USED:

}gz 017234

168

THEN LOGS THE

SUBROUTINE AT CALLING TIME

N U
N W AN W U
N L L L
A
AN A L U U U L A U L

164

TO CONSOLE

EVENT TYPE, TIME, AND THE OTHER 3 WORDS OF INFO PASSED TO THE

TIMMIN & TIMSEC:

}gg 017200 000517

162
163

EVENT LOG SUBROUTINES

INPUTS:

149

}g?

SEQ 0073

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

}2;

157
158
159

PAGE 74

199

146

150
151
152
153
154

I
6
30A(1052)
25-JuL-80
10:29
EVENT LOG SUBROUTINES

- ——

——

N N N N NN N N N NN N NN NN

I
S

—

N N N U AN AN N U AN NN U

kI
e

N N N U U

S0
5 B NN N NN NN N (W NN PO RO N PO PO RO RO NI N — = s s
VB WN OO0
NOWVMESWN
OO
NV
W
=000 ~NoOA W

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLKA FIN
25=JUL-B0 10:26

L0G6S1

L0GS1

L0GS 1

L0GS |

TEMP

SCALL
:

THE LOG EVENT SUBROUTINE WITH TEMP,TEMP1,

TEMP2,

TEMP3, AND TEMP4 SETUP

160 LOG EVENT AND TIME

260 LOG EVENT AND TIME

160 LOG EVENT AND TIME
TYPE

160 LOG EVENT AND TIME

015660
000010

006520
006516

OO0 —=»—-=00

—

NN —

012737
012737
000503

015702
000012
006546
006550
006556
006554

006520
006516
006522
006523
006524
006526

012737
012737
000451

015671
000014

006520
006516

012737
012737
000442

015713
000020

006520
006516

012737
012737
000433

015724
000022

012737
012737
000424

015735
000024

006520
006516

015746
000016

006520
006516

MACY11

MOV
MOV

#SOVE
, TEMP
#DER, TEMP

MOV
MOV
MovBe
Move
MOV
MOV
BR

#5DVI, TEMPY

MODTYP,TEMP2
MLTYP,TEMP2+1
RPASS,TEMP3

MOV
MOV

#SCM, TEMPY
#DCK . TEMP

MOV
MOV

#SCML, TEMP

L0653

MOV

#SCMD, TEMPY

L0GS$

S W
o

W=
OoONeSs

>
— D s > s s

OO0O0O0O0O0O0O

s s D s

OO0OO0O00O0

OOV
NO VNN

—_—

NN
WN =O OV

D
il
D il

N N

D
D

NN NN

D
D

D
D
D

N W

O
NOWVE

N W

D
s

L AN W

3200

017412
017420
017422
017422
017430
017436

017440
017444
017450
017452
017456
017460
017464

N
~

U\ A
AN
oo

017472

006520
006516

LOGDVI:

LOGCMP:

LOGCML:

LOGCMD:

LOGMSC:

017674
013737

022737

022737
001012
005037

007534

006526

00000¢

006516

000001

006554

000010

006462

1%:

LOGS3:

#DLE,

TEMP

TYPE

TO PRINT

MSG.

AND

TYPE

MSG

TrPE

AND

TIME

MSG

TYPE

AND

TIME

TYPE

EVENT AND TIME

#DDE , TEMP

#EOP , TEMP

L0GS$

L0GS3

LOGEX

MOV

MODS, TEMP4

(MP

#RXC,

(MP
BNE
(LR

TO PRINT

MSG.

EVENT

L0GS$

ERRCNT,=(SP)
P(C,DVMODS
(SP)+ R4
R4 ,ERRCNT
1%

BEQ
BIT
BEQ

JSET UP MSG.

;SET UP EVNT ENTRIES
;G0 LOG EVENT AND TIME

LOGS3

MOV

BEQ
JMP

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

PARAM, TEMP4

#SMSC,TEMP
#MSC, TEMP

MOV
(MP

SEQ 0074

sSET UP EVENT

MOV
MOV

JSR

PAGE 75

#OVI, TEMP

#SEOP, TEMP1

006470

L0GS$

MOV
MOV

LOGS1:

006470
032042

MOV

LOGEOP:

30A(1052)
25-JuL-80
10: 29
EVENT LOG SUBROUTINES

NN N NN

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA. PN
25=JUL-80 10:26

L0GSS

TEMP

#STATB,PARAM

s SAVE CURRENT ERROR COUNT
: GO GET MODEM STATUS
;GET SAVED ERRCNT VALUE
;WHERE

ANY ERRORS FOUND

. BR IF NONE
. ELSE, LEAVE WITHOUT LOGGING ANYTHING
BUT THE DEVICE ERROR FROM ‘'DVMODS''
3
;AND PUT [T IN TEMP4

s1F

RXC DONT PRINT

LOGSS

:1F NO STATUS SELECTED
60 TO S

#10,LNCNT
LOGS4

;HAVE WE DONE 10?
:1F NOT GO T0 &

LNCNT

JESLE CLEAR [T

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.P1N
25=JUL-80 10:26
32¢7
3228

3229
3230
3231
3232
3233
3234
3235
3236
3237
3238

3239
32640
3241
3242

3243
3244
3245
3246
3247
3248
3249

3250

3251
3252
3253
3254
3255
3256
3257
3258
3259
ggg?

017526
0175%6

017532
017536
017540
017542

017546
017546
017552

017552
017556
017562
017564
017566
017572
017574

017600
017604
017612
017620
017624
017630

017634

017640
017644
017650
017654
017656
017662
017666
017672
017674

012746
012746
010600
104417
062706

015622
000001

005237

006462

013746
012746
010600
104417
062706
010346
013703

006520
000001

113723
013737
163737
113723
113723
113723

013723

013723
013723
020327
103404
012713
012703
010337
012603
000207

000004

LOGSG:

000004
006626
006516
006606
006616
006516
006614
006612

LOGSS:
006516
006516

006522

006524
006526
007532
177777
006630
006626

MACY11 30A(1052) 25-JuUL-80 10:29
EVENT LOG SUBROUTINES

LOGS2:
LOGEX:

PAGE 76

PRINTF

#CR

;ELSE PRINT (R

INC
PRINTF

LNCNT
TEMP1

:INC COUNTER OF # OF AWAKE MSGS
:PRINT OPERATOR AWAKE MSG.

MoV
MOV
MOVB
MOV
SUB
MOVB
MOVB
MOVB
MOV
MOV
MOV
CMP
BLO

R3,-(SP)
EVIPTR,R3
TEMP, (R3)+
CLKHZ,TEWP
TIMTCK,TEMP
TEMP, (R3)+
TIMSEC,(R3)+
TIMMIN, (R3)+
TEMP2,(R3) +
TEMPS, (R3)+
TEMPL, (R3) +
R3,#EVTEND
LOGS2

:SAVE R3 ON THE STACK

MOV
MOV
MOV
MOV

#-1,(RY)
#EVTLOG,R3
R3,EVIPIR
(SP)+,R3

RTS

;LOG EVENT
;LOG TIME SINCE START

;TICKS,SECS AND MINS.

:LOG EVNT ENTRY 3
:LOG EVNT ENTRY &
:LOG EVNT ENTRY 5

;IF EVENT LOG FULL GO
;CONTINUE;ELSE GO TO 2
:LOG A TABLE END
:PUT R3 TO START OF TABLE
:RESTORE POINTER
:RESTORE R3

SEQ 0075

MOV
MOV
MOV
TRAP
ADD

#CR,=(SP)
#1,-(SP)
SP,RO
CSPNTF
#,SP

MOV
MOV
MOV
TRAP
ADD

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

MACY11 30A(1052)

32¢3

LSBTTL

DUMP EVENT LOG AND BASE TABLE

REPORT: MOV
MOV

R2,=(SP)
R3,=(SP)

:SAVE R2,R3,R4 ON THE STACK

EVIPTR,R2
EVTLOG,#-1
RPTO
#NULEVT

:MAKE R2 A POINTER TO EVENT TABLE
:SEE IF EVENT TABLE IS EMPTY
:BR IF NO
:1F EMPTY TELL OPRERATOR.
MOV

CVCLMA. PN

3266
3267

25=JUL=80 10:26

017676
017700

010246
010346

3273
3274
3275
3276
3277

017704
017710
017716
017720
017720

013702
023727
001034

006626
006630

017740

012746
012746
010600
104416
062706

014577
000001

ggg%

017724
017730
017732
017734

000137

3284

017744

162702

000012

3287
3288
3289

017750
017754
017756

020227
001010
012702

006630

291
ggg%

017770
017772

001007
000137

3294
3295
gggg

017776
020002
020004

020237
001002
000137

006626

3298
3299

020010
020014

162702

000012

020014
020020
020026
020026
0200350
020034

012746
012746
010600
104416
062706
112203

014632
000001

020042

112237

007620

3268
3269
3270

3572

3278
3279
3280
3281

gggz

;290

3300
3301
3302
3303
3304
3305

3306

3307

3308

017702

017762

020036
020046

3309 020052

3310 020052
;311
312
{313
3314
g31s
316
3317
3318

020056
020062
2
020072
20076
020102
020104
020106

010446

026227

MOV
CMP
BNE
PRINTS

177777

000004
020624

177776

R2,#EVTLOG
RPT1
#EVTEND,R2

;POINTING TO TOP OF EVNT LOG QUEUE?
: BR IF NO
:SET R2 TO POINT T0O BOTTOM OF LOG

BNE
JMP

RPTO
ENDEVT

;1F END OF LOG IS NOT EMPTY
CONTINUE...FLSE EXIT

RPT1:

(MP
BNE
JMP

R2,EVIPIR
RPTO
ENDEVT

:ARE WE BACK TO POINTER?
:1F NOT CONTINUE
;17 SO EXIT....

RPTO:
RPTAA:

SUB
PRINTS

#12,R2
W#EVTEO

:POINT R2 TO START OF ENTRY
:PRINT EVENT ENTRY HEADER

MOVB

(R2)+,R3

:PUT EVENT TYPE INTO R3

(R2)+,EVTSEC

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

C(MP

177777

112237

007622

MOVB

=2(R2) ,#-1

(R2)+ EVTT(K
(R2)+ ,EVIMIN

;AND END

#NULEVT ,=(SP)
#1,=-(SP)
SP,RO
C$PNTS
#,SP

CMP
BNE
MOV

MOVB

000014

MOV
MOV
TRAP
ADD

#2,R2

007624

007624
007620
007622
014730
000005

R4 ,=(SP)

SUB

RPT:

112237

013746
013746
013746
012746
012746
010600
104416
062706

SEQ 0076

ENDEVT

020624

016346 007572

PAGE 77

JMP

020624

000004

10:29

DUMP EVENT LOG AND BASE TABLE

MoV

007532

25-JuUL-80

CVCLHA DPV=11 DATA COMM, LINK TEST

:NOW POINT BACK TO TUP OF ENTRY U

:JUST PRINTED

PRINTS WEVTF1 . EVIMIN,EVISEC,EVITCK,EVILST(R3)

MOV
MOV
MOV
TRAP
ADD

#EVIFOQ,=(SP)
#,-(SP)
SP,RO
CSPNTS
#,5P

;PRINT EVENT TIME AND DESCRIPT,
MOV

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

EVILST(R3) ,=(SP)
EVITCK,=(SP)
EVISEC,=(SP)
EVIMIN,=(SP)
BEVIF1,=(SP)
#5,-(SP)
SP,RO
CSPNTS
#14,5P

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.PIN

25-JuL-80 10:26

MACY11 30A(1052)

020112

000173

007634

JMP

3321
3322
3323

020116
020122
020126

012237
012237
012203

007626
007630

RPTTXQ: MOV
MOV
MOV

3325
3326
3327

020130
020134
020140

013746
013746
012746

007630
007626
014757

33
3333

020160
020164

004737
000137

3328
3329
3330
3331

020144
020150
020152
020154

012746
010600
104416
062706

000010

PRINTS

020634
017744

JSR
JMP
RPTDER: MOV
MOV
MOV

020170
020174
020200

012237
012237
012237

007632
007662
007664

3339

020204

013746

007632

3345

020230

3340
3361
3342
3343
3344

10:29

PAGE 78

aRPTDSP(RY)

:DISPATCH TO DECODING SECTION FOR SPECIFIC TYPE

(R2)+,EVTADD
(R2)+,EVIBCT
(R2)+,R3

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

WEVTF2,EVTADD,EVIBCT

;PRINT ADDR,BYTE CNT

(R2)+ ,EVTTMP
(R2)+,DEVY
(R2)+ ,DEV2

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

PRINTS WEVTFS.EVTTMP

:PRINT DEVICE REG CONTENTS.

3346
3347
3348
3349
3350
3351
3352

020230
020234
020240
020244
020250
020252
020254

013746
013746
012746
012746
010600
104416
062706

007664
007662
015043
000003

000137

000010
017744

JMP

RPT

3355

0202

005037

007662

RPTDVI: CLR

DEV1

3357
3358
3359

020274
020300
020

112237
112237
012237

007662
007664
007666

MOVB
MOVB
MOV

021326

MOV
JSR
MOV
JMP

R2,-(SP)
PC,SHWOP
(SP)+,R2
RPT

PRINTS

WEVTF4B,EVTADD ,EVIBCT, EVTTMP

3356

3360

3361
3362
3363
3364

365
366
367

020260

020270

020310

020314
020316
020322
020326

0203
020334
020340

3368 020344
gsoo 020344
370 020350
2371 00354
37; 020
020364
§37
374 020370

005037

012237

010;66
004737
012602
000137

01503
000002

007664

007670

017744

012237
015237
012237

007626
007630
007632

013746
013746
013746
012746
012746
010600

007632
007630
007626
015302
000004

PRINTS

MOV
MOV
TRAP
ADD

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

012746
012746
010600
104416
062706

000006

MOV
MOV
MOV

PC,RPTMSB
RPT

020210
020214
020220
020222
020224

g;;z

SEQ 0077

000003

3335
3336
3337

3338 020204

DUMP EVENT LOG AND BASE TABLE

3%53

3324 020130

25-JuL=-80

WEVTF3C,DEV1,DEV2

CLR

MOV

RPTEOP: MOV
MOV
MOV

DEV?2

(R2)+,DEV
(R2)+,DEV2
(R2)+,DEVY

(R2)+,DEV4

(R2)+ ,EVTADD
(R2)+,EVIBCT
(R2)+ EVITHP

#3,-(SP)
SP,RO
CS$PNTS
#10,5P

MoV

EVITMP,=(SP)

MOV
MoV
MOV

DEV2,=(SP)
DEV1,~(SP)
#EVTF3C,=(SP)
#3,-(SP)
SP,RO
C$PNTS
#10,SP

MOV
MOV
MOV
TRAP
ADD

MOV
MOV

:GO BACK FOR NEXT EVENT ENTRY

EVIBCT,=(SP)
EVTADD,=(SP)
#EVTF2,-(SP)

TRAP
ADD

WEVTF3,=(SP)
#2,-(SP)
SP,RO
CSPNTS
#6,SP

:CLEAR UPPER BYTES OF DEV1 & DEV2 BEFORE USE

;:STORE SETUP OPERATION PARAMETERS FOR PRINTING
:SAVE R2 ON THE STACK
;GO PRINT MODE, MAINT=LOOP TYPE, PARAMTERS.
:RESTORE R?2
:GO BACK FOR NEXT EVENT ENTRY

:PRINT ADDR,RXBYTES,CMPBYTES.
EVITMP,=(SP)
MOV
EVIBCT,=(SP)
MoV
EVIADD ,=(SP)
MOV
WEVIF4B,=(SP)
MOV
#4,-(SP)
MOV
SP,RO
MOV

CVCLMA DPV=11 DATA COMM, LINK TEST

CVCLHA.PIN

25-JUL-80 10:26

33/5
%%;?

020372
020374

104416
062706

000012

%%;g

020400

000137

017744

3381
3382
3383
3384
3385

020404
020410
020414
020420
020420

012237
012237
012237

007626
007630
007632

007632
007630
007626
015102
000004

gggz

013746
020424 013746
020430 013746
020434 012746
020440 012746
020444 010600
020446 104416
020450, 062706
020454 - 000137

3380

3386
3387
3388
3389
3390
3391
3392
3395

020460

3,00
3401
g:o
03
3404
3405
3406

MACY11 30A(1052)

10:29

PAGE 79

SEQ 0078
TRAP
ADD

JMP

RPTDDE: MOV
MOV
MOV
-~ PRINTS

000012

JMP

017744

RPTDLE:

RPTDCK: MOV
MOV
MOV
PRINTS

012237
012237
012237

007626
007630
007632

020474
020500
020504
020510
020514
020520
020522

007632
007630
007626
015204
000004

gzg; 020524

013746
013746
013746
012746
012746
010600
104416

062706

000012

020530

000137

017744

JMP

020534

012237

007632

RPTMSC: MOV

32?8

DUMP EVENT LOG AND BASE TABLE

020460
020464
020470
020474

3396
3397
3398
3399

25-JuL=-80

RPT

CSPNTS
#2,5P

:THEN GO GET NEXT EVENT ENTRY

(R2)+,EVTADD
:STORE MESSAGE ADDRESS FOR PRINTING
(R2)+,EVTBCT
:STORE BYTE COUNT FOR PRINTING
(R2)+,EVTTMP
;STORE TOTAL # OF (CMP ERRORS
WEVTF&,EVTADD ,EVIBCT,EVTITMP
:PRINT ADDR, BYTE CNT, # CMP ERRS
EVITMP,=(SP)
MOV

RPT

;THEN GO GET NEXT EVENT ENTRY

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

EVIBCT,=(SP)
EVTADD,=(SP)
WEVTF4 ,=(SP)
#4,=(SP)
SP,RO
C$PNTS
#2,spP

:STORE MSG ADDR FOR FRINT
(R2)+,EVTADD
:STORE BYTE COUNT
(R2)+ ,EVIBCY
;STORE BYTE COUNT COMP
(R2)+,EVITMP
:PRINT ADDR,RXBYTES,CMPBYTES.
EVITMP
WEVTF4A,EVTADD,EVTBCT,

MOV
MOV
MOV
MOV
MOV
MOV
TRAP

EVITMP,=(SP)
EVIBCT,=(SP)
EVTADD ,=(SP)
#EVTF4A,=(SP)
#4,-(SP)
SP,RO
CSPNTS

MoV

EVITMP,=(SP)

ADD

RPT

#12,5P

:THEN GO GET NEXT EVENT ENTRY

3411

3412
3413

3414

3415

3416
3417
3418
3419

020540
020540 013746 007632
020544 012746 015031
020550 012746 000002

3420 020554 010500
3421 020556 104416
5625 20560 062706 000006
23 020564 012203
24

25
3429
27
28
29
30

020566

020572
020572
020576
020602
02
020606

004737

020634

012746 015444
012746 000001
010600
104416
062706 000004

(R2)¢+, EVITMP

PRINTS WEVIFS.EVITMP

MOV
JSR

PRINTS

:PRINT CHANGE TYPE

MOV
MOV

WEVTF3,=-(SP)
#2.,-(SP)

MOV
MOV
MOV
TRAP
ADD

#EVMOCG,=(SP)
n,-(SP)
SP,.RO
CSPNTS
8 5P

(R2)+,R3

SP,RO
MOV
CSPNTS
TRAP
#6,5P
ADD
:PUT O.D MODEM STATUS IN R3 FOR PRINTING

#EVMOCG

:6G0 PRINT ""CHANGED TO:"

PC,RPTMSE

:GO PRINT OLD MODEM STATUS

CVCLKA DPV=11 DATA COMM. LINK TEST

CVCLWA.P11
364351

—

3432
333
3,35

3636
3437

3438
gzzg

25-JUL-80 10:26

020612

012203

020624
020626

012604
012603

020614, 004737
020620 000137

020630
020632

020634
017744

012602
000207

MACY11 30A(1052)

10:29

JSR
RPTMSE: JMP

PC,RPTMSB
RP{

:PUT NEW MODEM STATUS IN R3 FOR PRINTING

ENDEVT: MOV
MOV

(SP)+,R4
(SP)+.R3

;RESTORE R4,R3,R2

(SP)+.R2
PC

3645

RPTMSB: PRINTS

‘

020634
020640
020644
020646
020650
020654
020660
020664
020666
020670
020674
020676
020700
020702
020704
020710
020712
020716
020722
020724

012746
012746
010600
104416
062706
012704
012705
005714
001004
112735
005724
000407
032403
001403
112735
000402
112735
020427
002760

gz;;

020744

000207

36466
3467
3468
3469
370

015467
000001
000004
007536
007554

6%:

000130

7%:
000061

000060
007554

020724 012746 015547
020730 012746 000001
020734 010600
020736 104416
020740 062706 000004

8%:
9%:

;GO PRINT NEW MODEM STATUS
“THEN GO GET NEXT EVENT

JRETURN TO CALLING ROUTINE

PART OF STATISICAL REPORTING (DUMPING EVENT LOG)

;REPORT MODEM STATUS SUBROUTINE

3446
347
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465

SEQ 0079

(R2)+,RY

MOV

3442

%222 020634

PAGE 80

DUMP EVENT LOG AND BASE TABLE

MOV
RTS

3441

25-JuL-80

#EVMOHD

;PRINT MODEM STATUS HEADER

MOV
MOV
TST
BNE
MOvB
TST
BR
BIT
BEQ
MOVB
BR
MOVB
CMP
BLT
PRINTS

#MOBITS, R4
#MOMSGS ,RS
(R&)
7%
#'X,3(RS)+
(R4)+
9%
(R4)+,RY
8%
#'1,3(RS)+
9%
#'0,9(R5)+
R4 ,#MOBITE
6%
#EVMOST

#EVMOHD ,=(SP)
MOV
#1,-(SP)
MOV
SP.RO
MOV
CSPNTS
TRAP
#4,SP
ADD
:MAKE R4 A POINTER TO MODEM SIG. BIT DEF. TABLE
;MAKE RS A POINTER TC MODEM MSG. POSITION TABLE
;SEE IF BIT AVAIABLE FROM DEVICE
;BR IF THAT MODEM SIG. AVAIABLE
:ELSE PUT "'X'" 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
“1F=1, PUT "1"" IN REPORT MESSAGE
;GO SEE IF ALL MODEM SIGNALS CHECKED
:1F 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 MESSAGE

RTS

sRETURN TO EVENT DECODING

MOV
MOV
MOV
TRAP
ADD

#EVMOST ,-(SP)
#1,-(SP)
SP.RO
CSPNTS
#4,SP

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JUL=-B0 10:26

MACY11 30A(1052) 25-JUL-80
DUMP BYTES OR WORDS

LA
3475
376
3477
78

LSBTTL

14e
; FUNCTIONAL DESCRIPTION:

3481

3484

gz;g

3482
3483

10:29

FAGE 81

SEQ 0080

DUMP BYTES OR WORDS

DUMPSR = DUMP BYTES OR WORDS SUBROUTINE
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

3485
3486
3487
3488
3489

;
2
;
3
:

BY A SEMICOLON.

%23}

3493

; OUTPUTS:

3496

;

3499
3500

3490

ADDRESS OF THE FIRST BYTE AS THE FIRST 6 OCTAL CHARS. FOLLOWED

INPUTS:

STADD= STARTING ADDRESS (FIRST LOC. TO PRINT)
ENADD= END ADDRESS (LAST LOCATION TO DUMP)
BYTBIT= 1 If SUPPOSED TO PRINT 'BYTES"

0 IF SUPPOSED TO PRINT '‘WORDS'

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

gzgg
g:g;

CALLING SEQUENCE:

JSR PC,DUMPSR

3501
3502

020746
020752

013702
005003

006472

3504
3505
3506

020754
020756
020762

010246
012746
012746

014571
000002

MOV
MOV
MOV

062706

000006

ADD

3503

3507
3508
3509
3510
3511
3512

020754

020766
020770
020772
020776
021002
021004

3513 021010
3514
3515

3516
3517
3518
3519
3520
3521
3522

021010
021012

021016
021022
021026
021030
021032
021036
021040

010600
104417

005737
001416
112237

005046
153716

012746
012746
010600
104417
062706
000411

PRINTF

006476

STADD,R2
R3

#BASM1,R2

;SET R2 UP TO STARTING ADDR.
:CLEAR R3
:
:PRINT ADDRESS

MOV
TRAP

DUM3:

006516

TST
BEQ
MOVB

PRINTF

BYTBIT
pUM1
(R2)+,TEMP

;1S THIS BYTE OR WORD
:BR IF WORD
:MOV BYTE TO TEMP

#BASM3,<B,TEMP> :PRINT BYTE

006516
014553
000002
000006
DUM1:

021040

012246

3525

021046

012746

000002

3529

021062

020237

006474

3523

DUMPSR: MOV
DUM&:
CLR

:CALL DUMP BYTES SUBROUTINE

213

PRINTF

DUM2

#BASM2,(R2)+

:PRINT WORD

35264 0210642 012746 014562
3526
3527
3528

021052
021054
021056

010600
104417
062706

000006

CLR
BISB
MOV
MOV
MOV
TRAP
ADD

MOV

(MP

R2,ENADD

;COMPARE FOR LAST ADD

SP,RO
CSPNTF
#6,SP

-(SP)
TEMP, (SP)

#BASM3,-(SP)
#2,-(SP)
SP.RO
CSPNTF
#6,5P

(R2)+,=(SP)

MOV

- (SP)
#BASMS

MOV
TRAP
ADD

SP.RO
CSENTF
06 ,5P

MOV

DUM2:

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

#2,-(SP)

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA P11
25=JUL-80 10:26

021066
021070
021072
021076
021100

003005
005203
022703
001725
000736

021102

000207

MACY11

30A(1052)
25-JuL-80
DUMP BYTES OR WORDS

BGT

INC
(MP
BEQ
BR

000010

DUMEX:

RTS

10:29

PAGE 82

DUMEX
R3
#8.,R3
DUM&

;1F DONE EXIT
;ELSE BUMP R3

;RETURN TO CALLER

DUM3

:HAVE WE PRINTED 8 ACCROSS

:1F SO GO BACK TO &

:ELSE GO BACK AND PRINT ANOTHER
;BYTE OR WORD

SEQ 0081

CYCLMA DPY=11 DATA COMM, LINK TEST
CVCLHA.PT
25=JUL=-80 10:26

§§§8

LSBTTL

3540

MACY11 30A(1052)
25-JuL=-B0 10:29 PAGE 83
UPDATE TOTAL CMAR. COUNT SUBROUTINE

UPDATE TOTAL CHAR. COUNT SUBROUTINE

iee

3561

: FUNCTIONAL DESCRIPTION:

3544

;

1542
3543

%222

:
;

UPDATES TOTAL CHAR. COUNT TOTCC BASED ON CURCC.
LAST MESSAGE 1S TRUNCATED TO FIT INTO THE

IS PRINTED TELLING THE OPERATOR THE TRUNCATION OCCURED.

3547

%g;g

3548

INPUTS:

BUFFER

CURCC=

CHAR. COUNT OF MESSAGE BEING ADDED

TOTCC=

TOTAL CHAR.

COUNT EXCEEDS 'BUFLIM''

; OUTPUTS:

3554
3555
3556
3557
3558

; FUNCTIONAL SIDE EFFECTS:
:
LOCATION "'TEMP'' USED FCR CALCULATIONS
; CALLING SEQUENCE:
:
JSR
PC,ADCC
;UPDATED TOTAL CHAR.,
;==

%22%

3260

3562
2222

021104

021112
021120

063737

022737
103C27

006502

001000

006512

ADDCC:

3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578

(MP
BHIS

MESSAGE TO OPERATOR IF MESSAGE TRUNCATED TO FIT

CURCC,TOTCC

#BUFLIM,TOTCC
ADDCY

COUNT

:ADD CURRENT TO TOTAL

; COMPARE TO 'BUFLIM"
:1F NOT MORE THEN "BUFLIM' ExIT

: PRINT MESSAGE AND TRUNCATE COUNT

gggg
3567

ADD

A MESSAGE

TOTAL CHAR COUNT OF BUFFER ITS BEING ADDED TO

3551

3561

SEQ 0082

021122

021122
021126
021132
021134
021136
021142
021150
021156
021164
021172
021200

012746
012746
010600
104417
062706
163737
012737
163737
C13737
063737
000207

013524
000001
000004
006502
001000
006512
006516
006502

006512
006516
006516
006502
006512

ADDC1:

PRINTF

#MSGTRU

SuB
MOV
SUB
MOV
ADD
RTS

CURCC,TOTCC
#BUFLIM, TEMP
TOTCC,TEMP
TEMP, CURCC
CURCC,TOTCC
PC

MOV
MOV
MOV
TRAP
ADD

#MSGTRU,=(SP)
#,-(SP)
SP,RO
CSPNTF
84 ,SP

:SUB CURRENT FROM TOTAL
;MOV "BUFLIM'' TO TEMP
;SUB TOTAL FROM 'BUFLIM'"
;AND ESTABLISH NEW CURRENT
;ADD “ADJUSTED CURRENT'' TO TOTAL CHMAR. CNT,
:RETURN TO CALLER

CVCLHA DPV=11 DATA CUMM, LINK TEST
CVCLHA PN
25-JUL-80 10:26

MACY1T

7
F
30A(1052)
25-JUL=-80
10:29
PAGE 84
BUILD MESSAGE BUFFERS SUBROUTINE

LSBTTL

SEG 0083

BUILD ME SSAGE BUFFERS SUBROUTINE

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=

CHAR.

COUNT OF MESSAGE

TO BE ADDED

CURADD= ADDRESS OF MESSAGE TO BE ADDED
ADDRESS OF POINTER TABLE WORD WHERE MESSAGE
CPTR=

MSGTYP= VALUE

T0 BE BUILT

POINTERS ARE

TO USE AS AN INDEX TO FIND SOURCE OF MESSAGE DATA
INDEX INTO DMSGCT() AND DMSGAD().

OUTPUTS:
A MESSAGE ADDED TO EITHER TXBUF OR (MPBUF
APPROPRIATE POINTERS IN PTRTAB POINTER TABLE
CALLING SEQUENCE:
JSR PC,BLDBUF

§°°°° oOoOoO

006506
006510
006502
006506
006500

(=]

b
—d
—

237

00O

021212
021216

BLDBUF
:

o
o

w
~

8388=8
IRE2GRR

g
EEEEEEEEELE
25 OCOV®WNO
N
W -0

3609

021202
021202
021204
021206

006510
006502
006510
002150
002172
006522

006516
00651¢

006522

BLDB2:

BLDB3:

006516
00652¢
006502

021322
021324

BLDB1:

MOV
MOV
MOV

R2,-(SP)
R3,=-(SP)

:SAVE R2 AND R3 ON THE

MOV

CURADD, (R2)+
CURCC,(R2)+
R2,CPTR
MSGTYP,R?2

;PUT CURRENT ADD ON POINTER TAB
sPUT CURRENT CC ON POINTER TAB
:PUT UPDATED R2 BACK TO CURRENT POINT

MOV
MOV
MOV
ASL
MOV
ADD
MOV

BLDBEX:

STACK

(PTR,R2

:GET MESSAGE TYPE TO USE AS INDEX

R2
CURADD, TEMP

:DOUBLE FOR WORD INDEX
:MOVE CURRENT ADD TO TEMP

MOV

DMSGAD(R2) ,R4

;PUT STARTING FROM ADD [N R4

MOVB

(R4)+,(RY)+
R3,TEMP

MOV BYTE FROM PATTERN TO BUFFER
JALL DONE?

MOV
ADD

CMP

CURCC,TEMP

;ADD CHAR COUNT TO IT TO GET END
CURADD,R3
:SET R3 TO CURRENT START ADD
DMSGCT(R2),TEMP?2
;GET BYTE COUNT
R4,TEMP?

sADD IT TO TEMP2 TO GET END OF

BEQ

BLDBE X

J1F SO EXIT

BEQ

BLDR?
BLDBY
CURCC,CURADD
(SP)+,R3

:1F SO GO START AGAIN
:1F NOT GET ANOTHER BYTE
;BUMP CURADD
:RESTORE RY AND R?

CMP

006510

;BUILD MESSAGE IN BUi FER AND ADD PTRS.

ADD

MOV
MOV
RTS

R4 ,TEMP?

(SP)+,R?

;1S PATTERN COUNT EXPIRED

JRETURN

CALLER

FROM

r—

CVCLHA DPY=11 DATA (UMM, LINK TEST
CVCLHA P11
25-JUL=B0 10:26

MACY11

30A(1052)

10:29

PAGE 85

SEQ 0084

SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS

SBTTL

36:1
3632
3633
3634
3635

25-JuUL=-80

SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS

*4e

FUNCTIONAL

DESCRIPTION:

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

;
:
:

INPUTS:

DEVI1=
DEV2=
DEV3=

DEV4=

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

IMPLICIT INPUTS:
MODES= TABLE OF
LOOPS= TABLE OF

ADDRESSES OF MODE NAME STRINGS

ADDRESSES OF LOOP TYPE NAMES

021326
021332

021334
021342
021346
021350
021356
021360
021362
021370
021376
021404
021404
021410
021414
021420
021424
021430
021434
021436
021440

013702
006302
010237
013702
006302
012737

SHWOP:

007662

MOV

003064
007664

006516

ASL
MOV
MOV

013037

006524

MOV

013036
003102
007666

006524
006520
006522

;GET THE MODE TYPE IN R2

#LFOO, TEMP3

;LOAD TEMP3 TO POINT TO ''/LOOP="'

BNE
MOV

108
#LPO,TEMPS

. BR IF /LOOP= OF SOME KIND
;1F NO LOOP THEN DON'T PRINT *'/L0OP="'

MOV

DEV3, TEMP2

:GET NUMBER OF PASSES

TST

108 :

DEV1,R2

R2
MODES(R2),TEMP
DEVZ,R2

ASL

MOV

PRINTS

006522
006520
006524
006516
013607
000005

LOOPS(R2) . TEMP1

sMAKE IT A WORD TABLE OFFSET
;GET ADDRESS OF MODE=-IN-ASCII
;GET MAINTENANCE LOOP TYPE
;SEE

/LOOP=XXXXX OR NONE

:GET ADDRESS OF LOOP-IN=ASCII

#SHFQ,TEMP,TEMPY,TEMP1,TEMP?

000014

NONNNSNNNS

ST NT NP

-t O\ b

WO
N ANN O NN
NN NN NW N NN

021444
021446

TR
1 R T

CALLING SEQUENCE:
JSR P(C,SHWOP

(LR

013116
000001

006516
007670

MOV

013114
013127
000002

006516
006520
007670

MOV
MOV

013125
013137
000004

006520
006522
007670

013135

006522

BIT
BNE

1%:

2%:

BIT
BNE

MOV

MOV
BIT
BNE

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

;NOW SET UP FOR QUALIFIERS IN ASCII

#STATB,DEVS
1%

;SEE IF /STATUS OR /NOSTATUS
;BR [F /STATUS

#OATCKB,DEV4
2%

(K
;SEE IF /CHECK OR /NOCHE
/CHECK
IF
;BR

#PEC,TEMP?
#ECHOB,DEV4
3%

;SEE IF /ECHO JR /NOE(CHO
;BR [F /ECHO

#PST TEMP

#PNST,TEMP
#PCK, TEMPI

#PNCK, TEMPY

#PNEC, TEMP?

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

TEMP3,-(SP)
TEMP ,=(SP)

#SHFO,=-(SP)
#5,-(SP)

SP.RO
CSPNTS

#14,5P

CVCLHA DPV=11 DATA CUMM, LINK TEST
CVCLKA. PN
25-JUL-80 10:26

3687
3688
3689
3690

013146
000010

006530
007670

013144

006530

006530
006522
006520
006516
013645
000005

021626

000207

000014

MACY11

30A(1052)

3$%:

MOV

7
10:29

PAGE 86

SEQ 0085

SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS
#PMS
, TEMPS

;SEE IF /MODEM OR /NOMODEM

BIT

#MOCHK ,DEVA4

MOV

#PNMS
, TEMPS

PRINTS

#SHF1,TEMP,TEMP1,TEMP2
, TEMPS

BNE

5%:

25-JuUL-80

RTS

;BR [F MODEM

;RETURN

TEMP3, TEMPL e «RFU«e
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

TEMPS ,=(SP)

TEMP2,-(SP)

TEMP1,-(SP)
TEMP ,~(SP)
#SHF1,-(SP)
#5,-(SP)

SP,RO
CSPNTS

#14,SP

CVCLHA DPV=11 DATA CUMM, LINK TEST
CVCLHA.P1Y
25-JUL=-80 10:26

7
I
MACY11 30A(1052) 25-JuUL-B0 10:29 PAGE 87
TRAVERSE COMMAND LINE SUBROUTINES

g;gg

LSBTTL

3709

3712

'PARSE THE COMMAND LINE SUBROUTINE

3714

*PARSING DIRECTIONS FROM ''CLI PARSING NODES'"

;;}?

3713

TRAVERSE COMMAND LINE SUBROUTINES

PSTRV SUBROUITNE

STAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE

;;}g

REGS USED:

3717

3719
3720
3721
3722
3723
3724
3725
3726

R3=PARSE TREE POINTER
R&4=INPUT STRING POINTER
: CALLING SEQUENCE:
:
JSR
PC,PSTRY
o

3718

3727
3728
3729

3730
3731
3732

3733

3734
3735
3736
g;gg
3739

3740

3741
3742
3743
37644
3745
3746
3747
3748
3749
g;gg

021630
021630
021634

021640
021642
021644
021650

021652
021654

013704

013703
105714
001441

121327
003023

003116

P$TRS:

000013

016505
062705
004715
000763

021672

000114

R2=ACTION CODE PARAMETER FROM TREE

MOV

MOV
TSTB
BEQ

(MPB
BGT

111305

006305

021656
021662
021666
021670

021674
021676
021700
021702
021704
021706
021710
021712
021714
021716

003114

P$TRY:

R1,RS5=SCRATCH

MOVB
ASL

021672
02167¢

MOV
ADD
JSR
BR

10%:

000134
000152
000162
000204
000270
000604
000650
000270
000256
000736

.WORD

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

PS$TREE ,R3
(R&)
PSEXIT

(R3),#11.
20%

(R3) ,RS

108 (RS) ,RS
#10%,RS

001403
004737

021770

3758
3759

021732
02173

004737
062703

021750
000004

3760
3761
3762

021730

021742
021744

000743

:TRAVERSE TABLE FOR ''CLI FUNTIONS'

005204

000735

22%:

:SEE IF FIRST CHAR OF STRING 1S A MATCH

P$TRS

: THEN GO BACK PT'G TO MISS NODE

22%
PC, TRVBRC

JSR
ADD

PC, TRVACT
#4 ,R3

INC

i1
id
;3
b
;S
6
.7
;8
:9
;10

(R3), (R&4)

BEQ
JSR

:BUILD TRAVERSE ROUTINE ADDRESS

TRVERR-10%

TRVEXI=10%
TRVBR-10%
TRVBIF=10%
TRVSPA-10$%
TRVNUM-10%
TRVALP-10%
TRVALN-10%
TRVOCT=-10%
TRVDEC=-10%
TRVSTR-10%

20%:

021722
021724

;GET SPECIAL CHAR CODE INTO RS

:JSR TO SPECIAL CLI TRAVERSE ROUTINE
;GO SEF IF MORE OF STRING LCFT

3754 021720 121314
3755
3756

:SEE IF ANY (HARS LEFT IN INPUT STRING
:BR IF NO
:SEE IF SPECIAL CLI CHAR CODE OR ASCII
:BR IF REGULAR ASCII CHAR.

PC, (RS)
P$TRS

:NOT A SPEC!AL CODE

(MPB

PSNUM=NUMERIC CODE FROM DATA

P$BUFA,R4

g;g%

3757

SEQ 0086

P$TRS

:BR IF A MATCH
:1F NOT A MATCH, GO TAKE MISS BRANCH
:1F A MATCH, GO DO ACTION DEFINED BY
: ACTION CODE IN CLI NODE, THEN

: ADJUST PTR TO NEXT CLI NODE
:ADJUST BUF PTR TO NEXT CHAR IF MAT(H

CVCLHA DPV=11 DATA CUMM, LINK TEST

CVCLHA.PIT
37¢3

%;gg

25=JuL=-80 10:26

021746

3769

021750

116302

3776

3777
g;;g
3780

3781
g;g%
3784

3785
3786

:GOTO USER ACTION Routlni

10:29

PAGE 88

:RETURN FROM PARSER

BIC
MOV

0177460
R2
PSACT,RS

:GET ACTION CODE FROM CLI NODE

RTS

;RETURN TO CALLING CODE

TRVACT: MOVB

000001

3770 021754 042702 177400

3775

e
ccascacasaan
esceseee
e e seeeeeeaccca
[eeeececccccccccceccccccccccccccecccececc

3771 021760 013705 003120
3772 021764 004715
%;;2

25-JuL-80

TRAVERSE COMMAND L INE SUBROUTINES

PSEXIT: RTS

000207

3766
3767

3768

MACY11 30A(1052)

JSR

021766

000207

021770

016305

000002

TRVBR(C: MOV

022000
022004

062703
000207

000004

TRVNOB: ADD
RTS

004737
112737

021750
177777

021774
021776

022006
022012

060503
000207

1(R

PC, (RS)

“GET ADDRESS OF CLI ACTION ROUTINE
;GO DO ACTION DEFINED BY CODE

:TAKE BRANCH IN TREE

ADD
RTS

:NO BRANCH TAKEN

:CLEAR ANY SIGN EXTENSION

2(R3%) RS

;GET BRANCH DISPLACEMENT FROM TREE

¥4 ,R3
PC

:THINGS OK, UPDATE R3 TO POIN: TO NEXT
: NODE AND RETURN TO P$TRV

RS,R3
PC

atanoans
seeseee
escssscsssosssn
ccccesc
e e e cseccscssscesss
[eemeeeccsccccccccccc

:TAKE ERROR ACTION
:SET ERROR RETURN FLAG

TRVERR: JSR
MOVB

021746

ST
JMP

PC,TRVACT
#-1,P$GDBD

(SP)+
PSEXIT

SGET RID OF ""JSR PUSH TO TRVERR''
;RETURN DIRECT TO EXIT OF P$TRV ROUTINE

PC,TRVACT

:TAKE EXIT ACTION

00311

3787 022020
g;gg 022022

005726
000137

3790

022026

004737

021750

TRVEX]I: JSR

g;gz

022040

000137

021746

JMP

PSEXIT

;RETURN DIRECT TO EXIT OF PSTRV ROUTINE

3795

022044

004737

021750

TRVBR:

JSR

PC,TRVACT

:GO TAKE BRANCH ACTION

3798

022054

004737

021750

TRVBIF: JSR

PC,TRVACT

021770
022000

1%:

3791 022032
3792 022036
g;gg

022050

3799 022060
3800 022064
3801 022066
gggg 022072

3804

105037
005726

000137

105737
001402
000137
000137

022076 005005

3805 022100
3806 022104
3807 022106
3808 022110
38?8 022112

121427
001003
005204
005205
000772

00313

021770

00313

000011

2311 022114 121427 000040
3812 022120 001003
3813 022122 005204
3814
3815

022124
022153

005205
000764

3818

02213

004737

005705
3816 0221
3817 022132 001404

CLRB
ST

TSTB
BEQ
JMP
JMP

TRVSPA: CLR
1%:

2%:
10%:

021750

JMP

CMPB
BNE
INC
INC
foe

(MPB

BNF
INC
INC
b

ST
BEQ
JSR

P$GDBD
(SP)+
TRVBRC

SSET GOOD/BAD FLAG TO ''SUCCESS (o
SGET RID OF ''JSR PUSH TO TRVEXI"

P$GDBD
1%
TRVBR(
TRVNOB

:SEE IF PSGDBD SET OR CLEARED BY ACTION
:1F CLEAR FALL THRU TO NEXT NODE
CELSE TAKE THE 'MISS'* BRANCH
1JUST UPDATE TO NEXT NODE IF THINGS Ok

:CLEAR ''SPACE OR TAB FOUND'' FLAG

(RG) ,#11
2%
R4
RS
1%

(R&) ,#40

10%
R4
RS
1%
RS
15%

PC,TRVACT

:SEE IF CHAR. IN CMD LINE= TAB
:BR IF NO, NOT A TAB
:INC INPUT STRING POINTER
:INDICATE A TAB FOUND
:6G0 CHECK NEXT CHAR

:SEE IF CHAR. IN CMD LINE= SPACE

:BR IF NO, NON-SPACE OR NON-TAB CHAR.
YINC INPUT STRING POINTER
:INDICATE A SPACE FOUND
160 CHECK NEXT CHAR

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

SEQ 0087

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI1T
25-JUL-80 10:26

3864
3865
3866
3867
3868

;269
70
71
72
3873
3874

30A(1052)

000137
000137

02 2000
021770

022150
022156
022162
022162
022170
022172
022176
022200
022202
022206
022210
022216

012737
000137

000012
022170

003126

TRVDEC:

012737
005005

000010

003126

TRVNUM: MOV
TRVNMA: CLR

022220
022224
022226
022232
022234
022242
022244
022250
022252
022252
022256
02226
022264
022266
022272
022300

121427
001001
000406
121427
001004
112737
005204

000053

121427

000060

121427

000067

123727

003126

121427

000071

002434

003426
001417
003022

012746
012746
010600
104417
062706
112737
000474

003127

11%:

1%:

000012

01157
000001
000004

177777

003131

C(MPB
BNE

B8R

3%:

003122

(MPB
BLT
CMPB
BLE
CMPB
BEQ
C(MPB
BGT

(R4),#60
2%
, 067
(RG)
138
PSRADX,#10.
12%
(RG) .47
2%

(MPB
BGT
INC

#CLIBRX

#-1,P$GDBD

(R&) 471
2%
R4

INC
BR

RS
1%

1St

10:29

PAGE 89

SEQ 0088

SUBROUTINES

:JUST GO UPDATE R3 TO NEXT NODE [F OK
; TAKE BRANCH

(MISS)

NONE

FOUND

MOV

R4, R1

:USE OCTAL AS RADIX AND ASSUME +
sCLEAR DIGIT COUNTER
:SEE IF THERE'S A + SIGN THERE
: BR IF NO
; ELSE PSRADX ALREADY SAYS +, JUST BR
;SEE IF THERE'S A - SIGN THERE
; BR IF NO
:SET "MINUS FLAG'' (HI BYTE OF PSRADX)
:BUMP R4 TO POINT TO FIRST CHAR

;SEE IF CHAR. LESS THAN A "'0"
;BR IF YES (NOT NUMERIC)
;SEE IF CHAR. GREATER THAN A 7"

; BR IF YES
;SEE IF IN DECIMAL MODE
; BR IF YES (CAN USE HIGHER LIMIT)

;SEE IF DIGIT WAS A B OR 9

;BR IF NON=NUMERI(
JELSE WAS A B OR 9 WHEN IN OCTAL RADIX
MOV
MOV
MoV
TRAP
ADD

;SET ERROR RETURN FLAG
; PRINT ERROR AND TAKE MISS

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

;SEE IF CHAR. GREATER THAN A "'9"'
;BR IF YES (NOT NUMERIC)
;UPDATE (MD LINE PTR TO NEXT CHAR.
;INDICATE A NUMERIC FOUND
;G0 LOOK AT NEXT CHAR.

;SEE IF FOUND ANY NUMERICS
:BR IF NO, TAKE "MISS'' BRANCH

MOVB

R1
RS
PSNUM
(R1)+,R2

;CLEAR LOC. WHERE VALUE WILL BE STORED
;GET ASCII CHAR AND CONVERT IT TO A #

ASL

PSNUM

BEG
CLR

SUB

BCS
MOV
ASL

ASL

000012

(R4) ,0'-

#-1,PSRADX+1
R4

B(S

003124

118

MOVB
INC

SUB

000060
003124

003126

CMPB
BNE

12%:

003124

TRVNOB
TRVBRC

#8.,PSRADX
RS
(R4),#'+
10$

MOVE

2%:

003124
003124

JMP
JMP

PRINTF

13%:

022316
022320
022322
022324
022326
022332
022334
022340
022344
022346
052356

022370
022376

177777

MOV
#10.,PSRADX
;USE DECIMAL AS RADIX AND ASSUME
TRVNMA
JMP
TRVOCT: ; (SAME AS TRVNUM SINCE DEFAULT RADIX IS OCTAL)

108%:

000055

000071

022302
022306
022310
022312
022314

022360
022362
022366

15%:

25-JuL-80

TRAVERSE COMMAND LINE

022140
022144

3819
3820
3821
3822
1823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863

MACY11

BCS
(MPB
BNE

#60,R2

;GET POINTER TO START OF NUMERIC STRING

7%
PSNUM, PSCNT

;SHIFT CURRENT VALUE TO MAKE ROOM
;ERROR [F NUMBER TOO BIG
;SAVE FOR LATER IN CASE DECIMAL RADIX

;ERROR [F NUMBER TOO BIG

7%
PSRADX,#10.
48

;ERROR [F NUMBER TOO BIG
;SEE IF DECIMAL RADIX
;BR IF NOT EQUAL

PSNUM

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLMA.P11
25-JUL-80 10:26
3879
3876
3877
3878
3879
3880
3881
3882
3883

022400
022406
022410
022414
022416
022420
022422
022426
022430

063737
103416
060237
103413
005305
001344
105737
001402

003122

022444
022450
022454
022456
022460
022464
022472

012746
012746
010600
104417
062706
112737
000137

011547
000001

3897

022476

005005

3899

022504

002406

3901
902
903
3904
3905
3906
3907
3908

022512
022514
022516
022520
022522
022524
022526
022532

003003
005204
005205
000767
005705
001404
004737
000137

3911

022542

005005

3913

022550

002417

3915
3916
3917
3918

022556
022560
022562
022564

003003
005204
005205
000767

02¢572

002406

022604
022606
022610
022612
022614

005205
000756
005705
001404
004737

3887

3888
3889
3890
3891
3892
3893
%ggg

3896

022444

3898 022500
3900

;3?8
3912

3914

3919

3920

3921
3922
3923

924
925
926
927
928

3929
3930

022506

22536

022544

022552

022566

022574
022600
022602

022620
022624

000004
177777
021770

12i427

000101

121427

000132

000137

021770

121427

000072

121427

000101

:ERROR [F NUMBER TOO BIG
;ERROR [F NUMBER TOO BIG

:SEE IF NUM WAS PRECEDED BY A - SIGN
;: BR IF NO
: ELSE NEGATE THE NUMBER BEFORE LEAVING
:SINCE NUMERIC FOUND, GO TAKE ACTION

7%:

PRINTF

#CLINBG

:PRINT NUMBER TOO BIG ERROR

5%:

MOVB
JMP

#-1,P$GDBD
TRVBRC

:SET ERROR RETURN FLAG
:TAKE 'MISS'' BRANCH

TRVALP: CLR

BLT

:SEE IF CHAR. LESS THAN A "'A"

BGT
INC
INC
BR
ST
BEQ
JSR
JMP

2%
R4
RS
1%
RS
3%
PC,TRVACT
TRVNOB

1%:

(MPB
(MPB

3%:

JMP

(R4&) ,M01

(R4) ,#132

TRVBRC(

;GO POINT R3 TO NEXT NODE

MOV
MOV
MOV
TRAP
ADD

#CLINBG,=(SP)
#,-(SP)
SP,RO
CSPNTF
8 ,SP

:CLEAR ALPHA FOUND FLAG

:BR IF YES (NOT ALPHA)

:SEE IF CHAR. GREATER THAN A ‘7"

:BR IF YES (NOT ALPHA)
:UPDATE CMD LINE PTR TO NEXT CHAR
;INDICATE AN ALPHA WAS FOUND
;G0 LOOK AT NEXT CHAR.
:SEE IF ANY ALPHA'S WERE FOUND
:BR IF NO
;:1F ANY FOUND TAKE ACTION
:THEN UPDATE R3 TO NEXT NODE =NO BRANCH

:NONE FOUND, TAKE MISS BRANCH

TRVALN: CLR

BLT

BGT
INC
INC
Rk

1%
R4
RS
108

BLT

:BR IF YES (NOT ALPHA)

INC
i
ST
BEQ
JSR

RS
108
RS
3%
PC, TRVACT

:INDICATE AN ALPHA FOUND
;G0 LOOK AT NEXT CHAR.
:SEE IF ANY ALPHANUM'S WERE FOUND
:BR IF NO
;1F_ANY FOUND TAKE ACTION

108:

(MPB
CMPB

1%:

CMPB

(MPB
BGT
INC

000132

2%:
021750

022000
021770

PSCNT,PSNUM
7%
R2,PSNUM
7%
RS
3%
PSRADX +1
15%

PSNUM
PC,TRVACT
TRVNOB

023750

022000

000060

000137
000137

003131

ADD
BCS
ADD
BCS
DEC
BNE
1578
BEQ
NEG

SEQ 0089

JSR
JMP

15%:

2%:

121427

121427
003003
005204

003127

003124
021750
022000

022434
022440

003124

005437
004737
000137

3884
gggz

L 7
MACY11 30A(1052) 25-JuUL=-80 10:29 PAGE 90
TRAVERSE COMMAND L INE SUBROUTINES

3%:

JMP
JMP

:CLEAR ALPHANUM FIUND FLAG

(R4) ,#60

:SEE IF CHAR. LESS THAN A ''0"

(R4) 472

:SEE IF CHAR. GREATER THAN A ''9"

(RG) 1101

(RG) , M 32
2%
R4

TRVNOB
TRVBRC

:BR IF YES (NOT NUMERIC OR ALPHA)

:BR IF YES (NOT NUMERIC)
:UPDATE CMD LINE PTR TO NEXT CHAR.
:INDICATE A NUMERIC FOUND
:G0 LOOK AT NEXT CHAR.

:SEE IF CHAR. LESS THAN A ''A"

:SEE IF CHAR. GREATER THAN A '7
:BR IF YES (NOT ALPHA)
:UPDATE CMD LINE PTR TO NEXT CHAR

:THEN UPDATE R3 TO NeXT NODE =NO BRANCH
:NONE FOUND, TAKE MISS BRANCH

200006
003122

MACY11

30A:1052)

TRAVERSE

TRVSTR: MOV
MOV
ADD

2%:

CLR
T1STB
BEQ

1STB

BEQ

CMPB
BNE
INC
INC
INC
Kl

003122

022666
022670
022672

003122

022712

000207

022714

000137

108:

021750
000004
021770

15%:

1ST

BEQ

25-JuUL=-80

n7
10:29

PAGE N

COMMAND LINE SUBROUTINES

R4 ,R1

;POINT R1 TO CMD STRING

#6,R5
PSCNT
(RS)
10
(RY)
10
(R1),(RS)
10

sCLEAR CHAR MATCH COUNT
;SEE IF END OF MATCH STRING YET
;BR IF YES
;SEE IF END OF CMD LINE YET
:BR _IF YES
;SEE IF CHARACTERS MATCH

R3,RS

L
B

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA P11
25-JUL-80 10:26

;POUNT R5 TO MATCH STRING FROM CLI NODE

:BR _IF NO

;MATCH <INCREMENT MATCH COUNT

;UPDATE STRING POINTERS

:BR TO CONTINUE CHECKING CHARS.
PSCNT
15%
R1,R4
PC,TRVACT
4(R3) ,R3

MOV
JSR
ADD
RTS

JMP

TRVBR(

;WHEN DONE SEE IF ANY MATCHES FOUND
:BR IF NO, GO TAKE THE MISS BRANCH
;POINT CMD POINTER TO END OF STRING &
A MATCH FOUND, GO DO MATCH ACTION
:1F
;UPDATE R3 TO NEXT NODE (NO BRANCH)
; (NO RETURN THRU TRVNOB SINCE DIFFERNT
: DISPLACEMENT DUE TO MATCH STRING)
: GO TAKE BRANCH

SEQ 0090

CVCLMA DFy=11 DATA COMM, L%NK TEST

CVCLKHA. P

25-JUL-80 10:26

MACY11 30A(1052)

25-JuL=-80

REPORT CODING SECTION
.SBTTL

10:29

PAGE 92

SE@ 0091

REPORT CODING SECTION

J e

;
;

BGNKPT

022720
022720

022720

022724
022724
022724

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

004737

017676

JSR

ENDRPT
104425

L$RPT::

PC,REPORT

;CALL SUBROUTINE TO DUMP EVENT LOG

;

AND BASE

TABLE

L10010:

TRAP

CSRPT

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLHA. P11
25=JUL-80 10:26

3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997

MACY11 30A(1052)

PROTECTION TABLE

.SBTTL
;
;

022726
022730
022732
0227324

177777
177777
177777

8
10:29

PAGE 93

SEQ 0092

PROTECTION TABLE

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

BGNPROT

022726
022726

25-JUL-80

-1
-1
-1

ENDPROT

L$PROT::
;OFFSET INTO P-TABLE FOR CSR ADDRESS
;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS
:OFFSET INTO P=-TABLE FOR DRIVE NUMBER

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA. P
25=JUL-80 10:26

3998
3999

4000
4001
6002
4003
4004
4005
4006

4007

4008
4009
4010
«OMN
4012
4013

4014
4015
4016

4017
4018
4019
4020

MACY11 30A(1052)
25-JuL-80
INITIALIZE SECTION
LSBTTL

10:29

PAGE 94

SEQ 0093

INITIALIZE SECTION

: THE INITIALIZE SECTION CONTAINS THE CODING THAT [S PERFORMED
;

THE

022734
022734

022734
022742
022742
022746
022750
022750
022752
022752
022756
022760
022760

4022

EACH PASS.

BGNINIT

012737

177777

012700

000040

104447

006544

MOV
READEF

012700
104447

READEF

000037

103002

READEF

000036

023442

012700
104447

000035

S1:

103521

000523

023010
023014

005037
005037

006544
006604

023020
023024

012702

006600

012700

000114

START:

012700
104462

010001

103017

004737

ENDIT

HERE CAUSE OF

;SEE

IF WE'RE HERE

RESTRT
BCS
CAUSE OF A CONTINUE

MOV

TRAP

S2:

CSREFG

:BR IF NOT HERE 'CAUSE OFBEgNlTNU§1

sSEE IF THIS IS A ''NEW PASS"
MOV

NEW

GETPRM

(LR
CLR

RESFLG
CLKVEC

MOV
CLOCK

#CLKCSR,R2
L.R1

TRAP

#EF .NEW,RO
CSREFG

:1F YES., BR AROUND LOGUNIT # SETUP
NEW
BCS

;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
#'L.RO
;

IF NONE

CSCLCK

RO,.R1
MOV
THERE GO LOOK ;?g A P°§50CK

JSR

PC,CLKSET

; GO SET UP CLOCK INFO TABLE & CLK VEC.

CLOCK

P.R1

;LOOK FOR A P=CLOCK SINCE NO LINE CLOCK
#'P.RO
MOV

MOV
BR

006610

#EF .CONTINUE
,RO

;JMP IF HERE CAUSE OF A CONTIRNUE

#LCLKEN,CLKEN
RESTRY

sSETUP THE ENABLE LINE CLOCK DATA

TRAP

BNCOMPLETE

017016

#EF .NEW

BNCOMPLETE

000120

;1F

START
BCS
RESTART, DO SOME INIT
MOV
#EF .RESTART
RO
TRAP
CSREFG

TRAP

010001

017016
000100

:SET RESTART FLAG
;1F HERE CAUSE OF START,DO SOME INIT
MOV
#EF.START
RO
TRAP
CSREFG

RESTRT

#EF.CONTINUE

BCOMPLETE

023004
023006

103006

JMP

READEF

START

W#EF .RESTART

BNCOMPLETE

000137

104462

#-1,RESFLG
W#EF.START

BCOMPLETE

103513
104447

LSINIT::

BCOMPLETE

103417

012700

4021

BEGINNING OF

JSR

PC,CLKSET

;

MOV

CSCLCK

RO.R1

IF NONE THERE GO SEE l;(gNlS l§3LSl

; ELSE GO SET UP CLOCK INFO & VECTOR

CVCLHA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26
CVOLHA PN

ON
oSN
oo

404

4055

062737
012777
162737
012737
000433

000002
001600
000002
000111

006600
163474
006600
006610

103021

#2,CLKCSR

suB

#2,CLKCSR

RESTRT

MOV

000100
006602
006610

006604

10:29

#PCLKEN, CLKEN

MOV

GMANID

PAGE 95

SEC 0094

;POINT CLKCSR TO P=CLK COUNT SET REG.
;LOAD CLK SET REG. WITH COUNT VALUE
;POINT CLKCSR BAC TO P=-CLK (SR
;SETUP THE ENABLE THE P=CLK DATA
;READ BUS TYPE TO SEE IF ON AN LSI

READBUS

MOV
(LR

006600

#PCLKCT,@CLKCSR

BNCOMPLETE

1044465

TRAP

:BR IF NOT, NO CHANCE OFBQCCLOCK

S&:

013310
000001

TRAP

RESTRY

PRINTF

#BDCLK

100008:

023214

006630
006626

RESTRT:

023250

77777

006540

023256
023262
023270

006540
006540

002012

023272

013700
1046442

006540

010001

6109

006552

.WORD
.WORD
.WORD

(SGMAN
10000%

CLKHZ

T$CODE

L5060
377

TSLOLIM
TSHILIM

MOV
MOV
MoV
TRAP
ADD

#BDCLK,=(SP)

#1,-(SP)

SP,RO

CSPNTF

84 ,SP

TIMMIN
TIMSEC

;CLEAR TIME SINCE START LOCATIONS

#EVTLOG,R2

;INIT EVENT TABLE TO ALL 1°'S AFTER EACH
; START OR RES AND INIT TABLE POINTER

CLKHZ,TIMTCK

;LOAD TICKS/SEC

MOV
MOV
CMP
BNE

R2,EVIPIR
#-1,(R2)+
?%.OEVTEND

NEW:

MOV

#-1,LOGUNT

;INITIALIZE LOGICAL UNIT #

GETPRM:

INC
(MP
BGE

LOGUNT
LOGUNT ,LSUNIT
NEW

;POINT TO NEXT LOGICAL UNIT
;SEE IF PAST MAX. LOG. UNIT #
;BR IF YES, AND START QVER

GPHARD

LOGUNT,R1

;GET THE P-TABLE FOR THIS LOG. UNIT

;SEE IF REACHED END OF
;LOOP UNTIL DONE

TABLE

MOV

GE TPRM

(R1),FHDPLX

LOGUNT ,RO

MOV

CSGPHRD
RO,R1

BCC

GE TPRM

DUPLEX ANSWER

IN LOC.

TRAP

BNCOMPLETE

103365

011137

MOV
1%:

007532

023246

MOV

006616

177777

(LR
(LR

Sé

;INFORM OPR. NO CLOCK, & EXIT INIT

000004

006612
006614
006606

CSRDBU

;LOAD 100 AS CLK VECTOR
;LOAD O AS CLK INT. LEVEL
#CLKEN,CLKCSR
:KLUDGE UP THE (SR & ENABLE DATA LOCS
LS060,CLKkNWZ2,D,377,50.,60.,YES

#100,CLKVEC
CLKBR

&R
.WORD
.WORD
.WORD

023166
023170
023170

ADD

MOV

$3:

104407

012737
005037
012737

HACY}1 30A(1gg$;
25-JUL-80
ON
INITIALIZE S

;1F NO P-TABLE AVAIL., GO GET NEXT ONE
;PUT FULL

OR WALF

CVCLWA DPYy=11 DATA COMM, LINK TEST
25=JUL-80 10:26
C(VCLHA. PN

4153
L1564
4155

4156
6157

4158
4159
6160

161

4162

4163

4164

L1165

023452
023456
023462
023464

10:29

PAGE 96

SEQ 0095

SETVEC

:STORE AWAY (SR ADDRESSES

O~
s
LD~
—
) s T
s O b
O e 2
O e (Y
WVis
W~
WVis
M
D -4 -“-DVO>
0

s OOo0NO
oOrMNNOoOoOoOO

ENDIT:

2(R1) ,RXCSR

XCSR

NN NN NN

VWAV
S

NN
NN N NN
£

b =
- ad ab o ab o

NNV

b
cald

MOV
MOV
ADD
MOV
MOV
MOV

MOV

MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD

b ol ol ol b =l

[eleolelelelelele)

000340
017042
006604
000003

OO0

000014

- ad

i N e
N i N i Y i Y b
AN NN
W
NN NN NN
NNNNNN
NNNNNNNN

22 23S

NONONOONNVO

023426
023434
023442
023442
023442
023446

o000

023420

000004
000004
000004
000006
000012

023376
023404
023412

000002
000002
000002
000002
000002
000004
000002
000006

;STORE AWAY

INPUT

INTERRUPT VECTOR

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

:STORE AWAY THE REMOTE NODE

CLKVEC,#CLKINT,#340

TYPE

;SETUP CLOCK VECTOR

#340,-(SP)
#CLKINT,=(SP)

CLKVEC,=-(SP)

#3,-(SP)

CSSVEC

#10,SP

000010

;DEVICE DEPENDENT VECTOR SETUP

023532
023536
023540

2746
S NN
w s
~Noo~

023470
023470
023474
023500
023504
023510
023512
023516
023516
023522
023526

000010

2746

000200
033166
011360
000003

012700

023552
023552

104432

023554

SETVEC

104441

INVEC ,#DVRX] ,#PR104

OUTVEC,#DVTX] ,#PR]0C&

;SETUP INPUT INTERRUPT VECTOR
MOV

;SETUP QUTPUT

MOV
MOV
MOV
TRAP
ADD

INTERRUPT VECTOR
MOV
MOV
MOV
MOV

TRAP
ADD

000010
SETPR]

023544
023544

023550

000200
032472
011356
000003

2706
NS NNYN

4162
6143
L1646
4145
L1646
6147
4148
4149
4150
4151
4152

023362
023370

011344

[=1V
L
o~Nvo OO

6140
L4

023316
023324
023332
023340
023346
023354

000002

—

6117
4118
4119
4120
4121
6122
4123
6124
4125
6126
6127
4128
4129
4130
6131
6132
4133
G136
4135
6136
6137
4138
6139

016137

(ol le]

114
6115
4116

023310

—-O000O0

6113

;DEVICE DEPENDENT PART OF GETTING INFO FROM P-TABLE

& [R
Srac:cuac:
[ R
S MNOwW
NS NOWwWN

110
ARR
6112

MACY11 30A(1052)
25-JuL-80
INITIALIZE SECTION

#PRI100

000000

;SET THE "'RUN'" PRIORITY 10 0
MOV

TRAP

ExIT

INIT

TRAP

.WORD

000002
.EVEN

#PR104,=(SP)
#OVRXI ,=(SP)

C,
- (SP)
INVE

#3,-(SP)
($SVEC
#0,sP

#PR104,=(SP)
#OVTIXI,=(SP)

OUTVEC,=(SP)
#3,-(SP)
CSSVEC
#10,5P

#PR100,RO

($SPRI

CSEX]T

L10012-.

CVCLWA DPV=11 DATA (UMM, LINK TEST
CVOLHA.P
25=JUL-80 10:26
4166

4167

4168
6169

023556

023556
023556

MACY1 30A(122$; 25-JUL=-80
INITIALIZE §
ON
ENDINIT

104611

10:29

PAGE 97

SEQ 0096

L10012:

TRAP

C(S$INIT

CVCLMA DPV=11 DATA (UMM, LINK TEST

MACY11

30A(1052)

170
MN
4172
673
(174
4175
6176
6177
4178
4179
4180
LR
4182
4183
4184
4185

.SBTTL

AUTODROP SECTION

CVCLHA,.PIN

25=JUL-80 10:26

AUTODROP SECTION

25-JuUL=-B0

8
10:29

PAGE 98

SEQ 0097

THIS CODE

IS EXECUTED

IMMEDIATELY

AFTER

THE

INITIALIZE

CODE

THE ''ADR'' FLAG WAS SET.
THE UNIT(S) UNDER TEST ARE CHECKED TO
SEE IF THEY WILL RESPOND.
THOSE THAT DON'T ARE IMMEDIATELY
DROPPED FROM TESTING.

v wLwene
.

the

023560
023560

BGNAUTO

02356C
023560
023560

ENDAUTO
104461

LSAUTO::

L10013:

TRAP

($AUTO

CVOCLMA DPY=11 DATA COMM, LINK TEST

CVCLKHA PN

25-JuL=-80 10:26

4193
6194
6195
4196
697
4198
4199

¢200

4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
«21
6212

30A(1052)

25-JuL=-80

CLEANUP CODING SECTION
LSBTTL

4187
4188
4189
6190
619N
6192

MACY11

10:29

PAGE 99

SEG 0098

CLEANUP CODING SECTION

‘4

;
;

023562
023562
005077

1630172

023566
023572
023574
023574

012700
104441

000340

023576
023576
023600

THE

HARDWARE

TESTS WAVE

BEEN PERFORMED.

BGNCLN

023562

023566

THE CLEANUP CODING SECTION CONTAINS THE CODING THAT S PERFORMED

AFTER

104433
104432
000002

(LR

SETPR]

LSCLEAN::
a(LKCSR
#PR10D7

BRESE?T
Exir

;DISABLE CLOLK

:SET PROCESSOR PRIORITY EACK

TO 7

;CLEAR ALL BEFORE END
(LN

MOV
TRAP

#PRI07,RO

TRAP

CSRESET

C$SPRI

TRAP
.WORD

JEVEN

023602

023602
023602

ENDCLN

104412

L10014:

I RAP

(SCLEAN

CVCLMA DPV=11 DATA CUMM, LINK TEST
25-JUL=-80 10:26
CVCLHA.PI

=000y

L2028
20 20 20 20 2P o
Al
LAY LS LS TN
AOPOPRININ)
—
s

4213
6214
6215
4?2

MACY11 30A(1052)
25-JUL-B0
DROP UNIT SECTION
LSBTTL

10:29

PAGE

100

SEQ 0099

DROP UNIT SECTION

‘e
e

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

023604
023604
023604
023604
023606

TO NO LONGER BE

BGNDY

000167
000000

EXIT

TESTED.

L$DU::
DU

.WORD
.WORD

JSJIMP
L10015=2~.

TRAP

($DU

.EVEN

023610
023610
023610

ENDDU

104453

L10015:

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA PN
25-JuL-80 10:26

MACY11 30A(1052)

25-JuL-80

ADD UNIT SECTICON

.SBTTL

10:29

PAGE

101

SEQ 0100

ADD UNIT SECTION

;

THE ADD=UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES

TO BE EXECUTED IN CONJUNCTION WITH THE ADDITMC CF A UNIT BACK
TO THE

TEST

CYCLE.

BGNAU

000167
000000

EXIT

LS$AU::
AU

.WORD
.WORD

JSJMP
L10016=2~.

TRAP

($AU

EVEN

023616
023616
023616
6257

ENDAU
104452

L10016:

CVCLHA DPV=11 DATA (UMM, LINK TEST
CVCLHA. P
25=JuL-80 10:26
62.8
4259
4260
4261
6262

.SBTTL

TEST

SETUP AND MODES OF

102

SEQ 0101

OPERATION

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

4263

4264
6265
4266
4267
4268
4209
4270
627
4272
4273
4274
6275
6276
6277
4278
4279
4280
4281

K
8§
MACY11 30A(1052)
25-JuUL=80
10:29
PAGE
TEST 1:
SETUP AND MODES OF OPERATION

EQUIPMENT,

023620
023620

THE

BONTST

.SBTTL

023620

023626
023626
023630

COMMUNICATION LINK, OR THE MODEM.

013777
005001
012737
005737
001412
005301
001373

006610

GTXRXB:

000001
006620

012746
012746
010600

013334
000001

062706

000004

005737
001112

006544

104417

162752

006620

GTRA?2:
1%:

T1::

PROGRAM

SETUP

SECTION

MOV

CLKEN,aCLKCSR

JENABLE

CLR

R1
#1,TIMERT
TIMER]
G{RAS

JSET TIMER TO COUNT & TICK
;CHECK FOR IT TO BE COUNTED OFF
JBRANCH [F CLOCK EXISTS (COUNTED A TICK)

MOV
TST

BEQ
DEC
BNE

PRINTF

1%
#NOCLK

THE

CLOCK

;KEEP CHECKING UNTIL R1 DOES FULL COUNTDWN
;PRINT BAD CLK MSG AND WARN OF HANG [F TIMEOUT
#NOCLK ,=(SP)
MOV
#1,-(SP)
MOV
MOV
SP.RO
TRAP

ADD

GTRAZ:

TST
BNE

RESFLG
GTRAS

CSPNTF

#s,SP

;SEE IF HERE AFTER A RESTART,
sBR IF HERE CAUSE OF A RESTART

; CLEAR COUNTS AND SET UP DEFAULTS

005037

023722

GTRA4G:

006512
006446
006432

006132
006424
006422

CLR
(LR
(LR

T0TCC

sCLEAR TOTAL

CHAR.

COUNT

TEMP.

LOC.

17107CC
crorcc

;
:

CLEAR TOTAL CHAR. COUNT FOR TX BUFF
CLEAR TOTAL CHAR. COUNT FOR CMP BUFF

CLR

R1,TXPIR
RXPTR

;

LERO RX POINTER

MOV

#PTRTAB,R1

sINIT

TRANSMIT MESSAGE POINTER

023726

006426

MOV

#PTR13,CMPPTR

sINIT COMPARE MESSAGE POINTER

023734
023742
0<2750
023756

006500
006502
006450
006434

MOV

#5,MSGTYP
MSGSC, CURCC
#TXBUF ,TCURAD
#CMPBUF ,CCURAD

;SET
;SET
;SET
;SET

023764
023772
024000
024004

006510
006506

MOV
MOV
JSR
MOV

TCURAD,CURADD
TXPTR,CPTR
PC,BLDBUF

;SETUP CURRENT ADDR TO START OF TXBUF
;SETUP CURRENT POINTER TABLE POINTER FOR TxBUF
: GO BUILD POINTER TABLE AND BUFFER

000001

006444

MOV
MOV

#1,TXNTOT

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 (MP BUFFER

;BUMP TOTAL MESSAGE

COUNT

(VCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.PY
W34
4315
4316
4317
(318
4319
«320
4321
4322

4323

4324
4325
4326
4327
4328

4329
4330
4331

4332
4333
4334
4335

:ggg
4338

4339
4340
4341
4342

4343
4344

4345
4346
4347

2;23

25-JUL-80 10:26

024012
024020
024026
024034
024042
024046
024054
024062

013737
013737
012737
013737
004737
012737
012737
005037

006426
006434
000005
002162
021202
000001
000003
006550

006506
006510
006500
006502

024074

012737

000002

006554

012746
012746
010600
104417
062706

012014
000001

024066
024102

024102
024106
024112
0264114
024116

024122
024130
024136
024144

024152

024156

012737

013737
013737
013737
013737

004737

024156
024160
024160
024162

103412
005737

024170
024172

104432
007510

024202

000137

024166
024170
024174

000001

000004
00L546
006550
006556
006554

021326

006556

007662
007664
007666
007670

012737

024206

4354
4355

024216
024216

4357
4358
4359

024222
024224
024226

4356

4360
4361
4
4363

4364
4365
4366

4367
4368
4369

GTRAS:

024212

024220

024230
024232
02423

024236

024236
024244
0246252

024260
024264
0264270

105037
105037

10:29

MOV

#2,PARAM

:SET UP PROG. PARAMETERS = DATACHECKING ENABLED
;
OPERATOR STATUS MSGS. PRINT OFF

#1,RPASS

PRINTF

#HLPO

MOV
MOV
MOV
MOV

MODTYP,DEV1
MLTYP,DEV?2
RPASS,DEV3
PARAM,DEV4L

PC,SHWOP

MANUAL

027054

1%:

003131

GETCL:

003130

104443
000406
002666
000142
011466

005037
004737
105737

:SET UP DEFAULT "RUN PASS'' COUNT TO 1

MOV
MOV
MOV
TRAP
ADD

:PRINT TO OPERATOR THE CURRENT MODE......

RPASS

MOV

#TTL MLTYP

:SET UP DEFAULT FOR UNATTENDED MODE

JMP

1%
ST

GTR9

;

LMWORD

COMMAND LINE FETCH & INTERPRETATION SECTION
CLRB

P$GDBD

GMANID

CLISPM,CMDBUF,A,0,1,72..NO

CLRB

PSNNUF

:CLEAR CMD LINE PARSING ERROR FLAGS

:GET A COMMAND LINE FROM OPR.
TRAP
CSGMAN

.WORD
.WORD
LWORD

003012
021630
003131

003114
003116
003120

L10017-.

"R M=ACT/LO=1/PAS=1/NOST/CH'' AND RUN

002666
007672
025130

#HLPO,=(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,5P

TST

GETCL

000000
000001
000110
012737
012737
012737

INTO CMPBUF

:BUMP THE COMP MESG COUNT
:SET DEFAULT MODE= ACTIVE
:SET DEFAULT MAINTENANCE LOOP MODE =NONE

TRAP
CSMANI
BR IF YES (UAM=0 AND NOT CHAINED)
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

BNE
EXIT
006550

:PUT DEFAULT MESSAGE

:SEE IF MANUAL INTERVENTION ALLOWED

BCOMPLETE

000001

SEQ 0102

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

JSR

006556

PAGE 103

CMPPTR,CPTR
CCURAD,CURADD
#5,MSGTYP
MSGSC,CURCC
PC,BLDBUF
#1,CMPTOT
#ACT ,MODTYP
MLTYP

LSBTTL

4352

MOV
MOV
MOV
MOV
JSR
MOV
MOV
CLR

MOV

104450

001002

25-JuUL-80

PROGRAM SETUP SECTION

006430
006546

2%%?
4353

MACY11 30A(1052)

MOV
MOV
MOV

CLR
JSR
TSTB

#CMDBUF ,PSBUF A
#CLITRE,PSTREE
#CLIACT,PSACT

QUALFG
PC,PSTRY
P$GDBD

10000%:

.WORD
LWORD
LWORD

;:CLEAR QUALIFIER FLAG LOCATION
;GO0 PARSE COMMAND L INE
:SEE IF PARSED Ok OR AN ERROR

10000%

CMDBUF
T$CODE
CLISPM

O
TSLOLIM
TSHILIM

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA PN
25-JuL-80 10:26

LI
25-JUL-80 10:2 9 PAGE 104
TERPRETATION SECTION
COMMAND LINE FETCH & INTE

MACY11 30A(1052)

001412

024350

BEQ

012746
012746
010600
104417
062706
000137
105737
001412

011474
000001

012746
012746
010600
104417
062706
000137

011524
000001

—_—

S N=-NNNONN

—

—-0000
~N
SR2838%8
S822888
PO AN
= N = N = N
N
NOWNOWV
LWg g2
gNNN
:N
S
= YNO
&H
—=2NOWW
&8

024354

PRINTF

1%:

JMP

1ST8

BEQ

PRINTF

MoV
MOV

TRAP
ADD

GETCL

PSNNUF
10%
#CLINUF

MOV
MOV
TRAP
ADD

003010

000005

003010

000055

003010

000004

027054
003010

000052

108:

11%:

020746
024206
003010

000001

003010

000002

003010

000010

006446
006512

006512
001000

5%:

12%:

JMP

GETCL

CMP
BEQ
CMP
BEQ
CMP
BNE
JMP
CMP
BNE
JSR
JMP
CMP
BEQ
(MP
BEQ
CMP

KEYWD1,#HLP
GETCL
KEYWD1,#PRNT
GETCL
KEYWD1,#RUN
1%

MOV
(MP

TT0TCC,T0TCC
TOTCC,#BUFLIM
15%
#MSGTRN, #BUFEX

BEQ

BLT

PRINTF

013455
013473
000002

PC,DUMPSR

;SEE IF HELP WAS TYPED
;GO GET CMD AGAIN IF YES
;SEE IF PRINT WAS TYPED
; GO GET CMD AGAIN IF YES
;SEE IF RUN WAS TYPED
: BR IF NO
; START EXEC. IF YES
;SEE 1F DUMP WAS TYPED
: BR IF NO
; ELSE, DUMP PART OF MEMORY

;SEE
; IF
;SEE
; IF
;SEE
; BR

GTR9

KEYWD1,#DMPS
12%

GETCL
KEYWD1,#CLEAR
GETCL
KEYWD1,#SHOW
GETCL
KEYWD1,#SETEXP

GETCL

15%:

006424

TT0TCC

6%:

PRINTF

#CLINUF ,=(SP)
#1,-(SP)
SP,RO
CSPNTF
¥4, SP

IF CLEAR WAS TYPED
YES, BACK TO GET ANOTHER CMD.
IF SHOW WAS TYPED
YES, BACK TO GET ANOTHER CMD.
IF SET EXPECTED
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

; THEN GO GET A NEW COMMAND

#BUFEX,-(SP)
#MSGTRN,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

;IF FIRST ""SET'" THEN GET RID OF DEFAULT

TXMTOT
#PTRTAB,TXPTR

;GET POSITION OF END OF TX LIST

IM
R1,#MSGL

sSEE IF MSG COUNT EXCEEDED.

#NSGTRN, #TABEX

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

TXMTOT,R1

CSPNTF
¥4 ,SP

THEN RETURN TO GET ANOTHER CMD.

TRAP
ADD

000006
024206
006446

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

;SEE IF INCOMPLETE COMMAND TYPED

MOV

000004
024206

013415
013473

#CLIERM

MOv

000004
024206
003130

006444
006132
006444
000017

SEQ 0103

17$

;s BR IF NO

MOV
MOV

#TABEX,=(SP)
#MSGTRN,=(SP)

CVCLWA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JuL-80 10:26

024570

012746
010600
104417

MACY11

N 8
25=JUL-80 10 2 9 PAGE 105
SECTION
3
COMMAND LINE FETCH & IN TERPRETATION

30A(1052)

000002
000006
024206
006424
006424
006450
021104
021202
006506
006512
006510
006444
003014

17%:

006506
006510

MoV

JSR
JSR

006424
006446
006450

MOV
MOV
MoV

024206

013737
023727
002414

006432
006512

012746

013455
013473
000092

006512
001000

2%:

RI
R1
R1,TXPTR
TXPTR,CPTR

CURAD, CURADD

PC,ADDCC
PC,BLDBUF

CPTR,TXPTR
T0TCC, TTOTCC
CURADD, TCURAD

INC
DEC
BNE
JMP

TXMTOT
QUALVL

MOV
cme

cToTCC,T0oTCC

PRINTF

#MSGTRN, #BUFEX

BLT

16%:

006430
006426

7%:

5%
GETCL

TOTCC,#BUFLIM

16%

;SETUP CHAR. COUNT, CURRENT ADDR, & PTR
JADD IN CHAR. COUNT AND CHECK TOTAL
;GO BUILD MESSAGE IN BUFFER AND PTRS.

;UPDATE CHAR. COUNT, CURR ADDR, & PTR
;DEC THE COPY COUNT

;: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
MOV
MOV

18%:

006506
006510
006426

CSPNTF
#6.5P

GETCL
crorvcc
7%
CMPTOT

; THEN GO GET A NEW COMMAND
;IF FIRST "'SET'' THEN GET RID OF DEFAULT

MOV
MOV
(MP

#PTR13,CMPPTR
R
CMPTOT
R1,#MSGLIM
18%

;INIT COMPARE MESSAGE POINTER

PRINTF

000006
024206

#BUFEX,-(SP)
#MSGTRN,=(SP)
#2,-(SP)
SP,RO

JMP
TST
BNE
CLR

BLT

013415
013473
000002

006426
0066§2
0064
021104
021202
006506
006430

GETCL

#2,-(SP)
MoV
MOV
SP,RO
CSPNTF
TRAP
#6,SP
ADD
; THEN GO GET A NEW COMMAND.
;# OF MSGS *4 = NEXT FREE PTR BLOCK

TRAP
ADD

000006
024206
006432

006226
006430
000017

JMP

ASL
ASL
ADD
MOV

SEQ 0104

#MSGTRN, #TABEX

GETCL
R1
R1
R1,CMPPTR
CMPPTR,CPTR
CCURAD, CURADD
PC,ADDCC
PC,BLDBUF
(PTR,CMPPTR

(MPTOT

;SEE IF MSG COUNT EXCEEDED.
: BR _IF NO

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

;

TRAP
ADD
THEN GO GET A NEW COMMAND.

#TABEX ,=(SP)
#MSGTRN,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

:# OF MSGS *4& = NEXT FREE PTR BLOCK

;ADD IN XHAR, COUNT AND CHECK TOTAL

—_———

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JUL-80 10:26
sB2
483
484
485
LB6
L4LB7

4L4LBB
4L4LB9
4490
69N

023102
025110
025116
025122
035156

013737
013737
005337
001270
000137

006510
006512
003014
026206

006434
006432

B 9
MACY11 30A(1052)
25-JUL-80 10:29 PAGE 106
COMMAND LINE FETCH & INTERPRETATION SECTION
MoV
MOV
DEC
BNE
JMP

CURADD , CCURAD

;UPDATE CHAR. COUNT, CURR ADDRR. & PTR

QUALVL
28

;1F_COPY WAS GIVEN, PUT MSG IN BUFF
‘
: AGAIN

T0TCC,CTOTCC

GETCL

;G0 BACK UNTIL GET A "RUN'

SEQ@ 0105

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA. P
25=JUL-80 10:26

888888888888388833

000144
000146
000156

NN NN NN

VNN WA BN

S83BII&I38S

-t s OO O O
NSO
—
NSO OOO

&
oo

CLIACT:
oo

025154

006302
016202
062702
004712
000207

3388

guwu
B~

b
b

OO0O0O0O0O
000

SOV OO

s
—_—

s _»

LSBTTL
OO
DR
VIVYWY - VWAV

4492
4493
4494
4495
(496
497
4498
4499
4500
4501
4502
4503
4504
4505
4506

MACY11

SEQ 0106

ACTION TABLE AND ROUTINES

USER MUST CLEAR/SET PSGDBD [F USE ''CLIBIF'" IN CONNECTION WITH ACTION
R2 WILL HOLD ACTION CODE FROM PARSING (CLI)

ASL
MOV
ADD

R2
108(R2) ,R2

RTS

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WOkD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ACTNUL=10%
ACTCLR-10%
ACTSHO-10%
ACTCHK=10%
ACTRUN-10$
ACTHLP-10%
ACTCSE=-10%
ACTCST=10%
ACTSTE-10%
ACTSTT=-10%
ACTSIL-10%
ACTCOP-10%
ACTNUM-10%
ACTOPM-10%
ACTSTS-10%
ACTEQD-10%
ACTMS0-10%
ACTMS1-10%
ACTMS2-10%
ACTMS3-10%
ACTMS4-10%
ACTMS5-10%
ACTMS6-10%
ACTATV-10%
ACTPAS-10%
ACTREC-10%
ACTLIS-10%
ACTDLL-10%
ACTTRA-10%
ACTTAL-10%
ACTNO-10%
ACTECH-10%
ACTCRC-10%
ACTPRO-10%
ACTRPS-10%
ACTMOP-10%
ACTTLP-10%
ACTCLP-10%
ACTLLP-10%
ACTRLP-10%
ACTNUF-10%
ACTBCR-10%
ACTOMS-10%
ACTDME-10%
ACTDMQ-10%

JSR

17%:

30A(1052)
25-JUL=-80
10:29 PAGE 107
COMMAND LINc FETCH & INTERPRETATION SECTION

#10% ,R2

PC,(R2)

;FORM ADDRESS OF

NODE

ACTION ROUTINE

CVCLMA DPV=11 DATA (UMM, LINK TEST

CVCLMHA. P
45«8
4549

4550

025300
025302

25-JUL-80 10:26
000232
001520

MACY11 30A(1052)

25-JuL-B0

9
10:29

ACTION TABLE AND ROUTINES
.WORD
.WORD

ACTPRT=10%
ACTMOS=10%

PAGE 108

SEQ 0107

[

ACTCLR:

012737
000207

000002

003010

ACTSHO: MOV

012702

003016

~Ns~

~s~

~R
~

oo
A uDn
e

003010

FREF

012246
012746
012746
010600

104417

ACTHLP:
%

000006
003034

000005

003010

003010
003130
006556

ACTRUN:

006426

ACTCSE:

177777
000001

006226
006426

025452
025456

006430
003130
003010

s —s

025440
025446

—

#CLEAR KEYWD

SET LOC TO SAY A CLEAR WAS TYPED

TO SAY A SHOW WAS TYPED

SET LOC.

MOV
PRINTF

#HLPTAB,R?
#HLPF ,(R2)+

PRINT HELP

SETUP R2 AS A POINTER TO HELP MSG TABLE
INFORMATION MESSAGES

006430

006226
006426
005132
006434

006426
006506

000001
006446
006132

ACTPRT:

#HLP ,KEYWDT

RTS

MOV

KE YWD
#PRNT

SET LOC.

RTS

MOV
MOvVB
MOV
RTS

#RUN,KE YWD
#-1,PINNUF
#1 ,RPASS
PC

MOV
MOV

#PTR13,(MPPTR
(MPPTR R

JSR

MOV
(LRB
(mMP

000002

000001
006432

006132
006444
003130
003010

MOV

SEE IF ALL INFO PRINTED YET
IF NO KEEP PRINTING
SET LOC. TO SAY A HELP WAS TYPED

BNE

000004

OO
= —
egs3ee
28
O AR = L NN

SET FLAG TO SAY NEED MORE OF COMMAND

RETURN TO PARSER

#SHOW,KE YWD

MOV

012737
112737
012737
00020/

SEQ 0108

RTS

(MP

025414
025422
025430
025436

[<¥YL NT. 3N

#-1,PINNUF

109

MOV
TRAP
ADD

003010

AND ROUTINES

PAGE

MoV

000055
017676

VAVAIWVAVAWVIVAWVIVA

9
10:29

012072
000002

012737
004737
000207

2
025524
02

MOV
RTS

MOV

025400
025406
025412

4574
4575

000001

4573

012737
000207

VAWVAVAVAVAWVAIWVAW

4566
4567
4568
4569
4570
SN
4572

ACTNUF
: MOove
ACTNUL: RTS

o
ANy
NN
-

4563
4564
4565

003130

NN
AWV
W
W

4554
4555
4556
4557
4558
4559
4560
4561
4562

25-JuL-80

ACTION TABLE

177777

o000

4553

30A(1052)

112737
000207

roruRLRORO OO

651
4552

MACY11

NN oo
VIWVAIWVAWVIWAWVIVA
W
NN~
W

CVCLHA DPV=11 DATA (UMM, LINK TEST
25-JUL-80 10:26
CvCLWA.PI

OCO0O0O0000

BEQ

CLR
MOV

R2,#HLPEND

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

TO SAY A HELP WAS TYPED

CALL ROUTINE TO PRINT EVENT LOG AND BASE TABLE

PC,REPORT

SET RUN FLAG
SET FLAG TO SAY NEED MORE OF

SET DEFAULT RUN "'PASS'" T0 1

COMMAND

INIT (OMPARE MESSAGE POINTER

(MPTOT ,R2

PSNNUF
KEYWD1,#SHOW
ACTSHY
#1,CMPTOT

(R2)+,-(SP)

#HLPF ,=(SP)

FLAG THAT HAVE VALID COMMAND AT

THIS PT,

crorcc

SEE IF A CLEAR OR SHOW WAS TYPED
BR IF A SHOW WAS TYPED
CLEAR COMPARE MESSAGE COUNT, CHAR. COUNT
: AND RESET POINTER

#PTR13,CMPPTR
CMPPTR,CPTR

INIT COMPARE MESSAGE POINTER
SET UP TO FILL IN DEFAULT MESSAGE

R
#CMPBUF

R1,CCURAD
ACTCLB

ACTCST:

000002

#PTRTAB,R1
TXMTOT ,R2
PSNNUF
KEYWD1,#SHOW

006444

ACTSHW
#1,TXNTOT

006424

#PTRTAB,TXPTIR

T1107CC

FLAG THAT HAVE VALID COMMAND AT

;

THIS PT.
1YrCD
WAS
SHOW
OR
CLEAR
A
SEE IF
BR IF A SHOW WAS TYPED
CLEAR TRANSMIT MESSAGE COUNT, (HAR, COUNT
AND RESET POINTER

CVCLMA DPV=11 DATA COMM, LINK TEST

CVCLMA.PI

25-JUL-80 10:26

L6L7
4608

025576
025604

013737
012701

0064%4
003132

4611

025614

012702

001000

4613
4614

025624
025632

012737
013737

000005
002162

22?8

4612

4615
4616
4617
4618
22;8
4621

4622

4623

4624

4625
4626
4627
4628
4629

4630
4631
4632

4633

4634
4635
4636
4637
4638

4639
4640
4641
4642
4643
4644
4645
4646
222;

025610

025620
025640
025642
025644
025646
025652

010137

01015«

105021
005302
001375
004737
000207

025654

012705

025664

001404

025660

025666
025672
025674
025676
025702
025704
02571¢
025712

025716

025722
025726
025732
025734
025736
025742

025746
025750
025752
025760
025766
025774

026002
026006

122571

006516

012746
012746
010600
104417
062706
062701

012631
000003

004737
000207

026010
026016
026022
026030

013737
005037
012737
000403

4654

026032

012737

4657

026052

000207

026040
026046

013737
105037

TXPTR,CPTR
#TXBUF ,R1

ACTCLB: MOV

#BUFLIM,R2

MOV
MOV

#5 MSGTYP
MSGSC,CURCC

MOV

1%:

CLRB
DEC
BNE
JSR
RTS

ACTSHW: MOV

000000

013746

005302
001341
013737
013737
013737
013737

006500
006502

5%:

003055

25-JuL=-80

6%:

006516

10:29

ACTION TABLE AND ROUTINES

MOV

003054

000002

30A(1052)
MOV
MOV

021202

016137

4649
4650
4651
222%

4655
4656

006510

003063

016546

006506

006450

020527
001372
005205
162705
006305

MACY11

(MPB

BEQ

(MP
BNE
INC
SuB

ASL
MOV
PRINTF

PAGE 110

R1,TCURAD

R1,CURADD

:SET UP TO PUT DEFAULT MSG IN LIST AFTER 033'S

(R1)+
R2
1%
PC,BLDBUF
PC

:FILL EXPT OR TRAN BUFFER WITH 0°'S IF A CLEAR
;DO "BUFLIM'' NUMBER OF BYTE LOCATIONS

#SHTAB,RS

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

(RS)+,a(R1)

:LOOK AT FIRST BYTE OF MSG TO DECIPHER TYPE

RS,#SHTEND
5%
RS
#SHTAB+1,RS

;SEE IF LOOKED AT ALL OF DEFAULTS YET

;MUST BE OPR. SPEC'D THEN

2(R1),TEMP
#SHMSG,SHTYTB(RS),TEMP

;PRINT MSG SIZE & TYPE

003034

000004

006546
006550
006556
006554

007662
007664
007666
007670

003124
006476
000052

006472

177777

006476

003124
003130

MOV

000010

021326

SEQ 0109

003010

006474

ADD
DEC
BNE
MOV
MOV
MOV
MOV
JSR
RTS

4 ,R1
R2
ACTSHW
MODTYP,DEV
MLTYP,DEV?2
RPASS,DEV3
PARAM,DE
V4
PC, SHWOP
PC

:BUMP R1 TO NEXT SET OF POINTERS

ACTDMS: MOV
CLR
MOV
BR

PSNUM,STADD
BYTBIT
#DMPS ,KE YWD
AC TDME

;SETUP STARTING ADDRESS FOR DUMP
:SET DEFAULT OF WORD DUMP
:FLAG THAT A DUMP WAS TYPED

ACTDMQ: MOV

#-1,BYTBIT

:SET DUMP FLAG TO ‘'DUMP=-WORD''

ACTDME: MOV
ACTDMX: CLRB
RTS

PSNUM ,ENADD
PSNNUF
PC

MOV
MOV
MOV
TRAP
ADD

TEMP,=(SP)

SHTYTB(RS) ,=(SP)

#SHMSG,
= (SP)
#3,-(SP)
SP,RO
CSPNTF
#10,5P

:SHOW THE OPERATOR THE CURRENT MODE..... AL SO

:SETUP END ADDRESS FOR DUMP (=START [F NO "'EEE"
;CLEAR NOT-ENOUGH FLAG, 'DUMP N=N/B'" 15 VALID

CYCLMA DPV=11 DATA CUMM, LINK TEST
CVCLHA.PIN
25=JUL-80 10:26

4666

4667
4668
4669
4670
4671
4672
4673
4674
4675
L676
677
4678
4679
4680
4681
4682

ACTION TABLE

ACTSTE:

MOV

#SETEXP ,KEYWD
ACTSTX

026064
026072
026100

012737
012737
000207

000011
000001

003010
003014

ACTSTT:
ACTSTX:

MOV
MOV
RTS

#SETTRN, KEYWD1
#1,QUALVL

026102
026110

012737
000207

000012

003012

ACTSZE:

MOV

RTS

#SIZE ,QUALFG
PC

026112
026120

012737
000207

000013

003012

ACTCOP:

MOV
RTS

#QCOPY ,QUALFG
PC

026122

023727
001023
005737
001014

003012

000012

ACTNUM:

(MP
BNE

QUALFG,#SIZE
%

012746
012746
010600

011763
000001

062706
112737
000411
013737
000405
0137%7
005237
000503

000004
177777

003131

003124

006502

003124
003014

003014

000007
006516
006516

006500

026212

104417

026214
026222
026226
026232

003124

006516
006502
002166
006516
002520

026312

011716
000001
000004

PSNUM

PRINTF

#CLISED

111

,EQ 0110

;SET UP DEFAULT COPY TO 1

(/COPY=0)

;SEE IF A SIZE OR COPY TYPED
:BR IF [T WAS A COPY
;CHECK TO BE SURE DIDN'T TRY SIZE=0
;

MOV
MOV
MOV
TRAP
ADD

MovRa

#-1,P$GDBD

;SEE ERROR=IN-(CMD FLAG

MOV

PSNUM, CURCC

;IF A SIZE LOAD CURCC WITH BYTE COUNT

1%:

MOV

PSNUM ,QUAL VL

2%:

INC
BR

;1F A COPY, LOAD COPY COUNT
;INCREMENT SO FIRST DEC MAKES [T REAL #

ACTOPM:

MOV

INC

RTS
ACTEQO:

MOV

1%:

MOV
MOV
MOV
MOV
MOvVB

026270

026272

TST

BNE

PAGE

AND ROUTINES

003010

026130
026132
026136
026140
026140
026144
026150
026152
026154
026160
026166

10:29

000010

4665

25-JuL=-80

012737
000403

- O00O0

L664

30A(1052)

026054
026062

4649
4660
4661
4662
L663

MACY11

ACTB(R:

SuB

DEC
BNE
BR

PRINTF

QUALVL

ACTME
X

#7 ,MSGTYP

R4, TEMP
TEMP
PC

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

TEMP R
#OPBUF RS
(R1)+,(RS)
R2

;KEEP TRACK OF

START OF

#1,-(SP)

SP,RO
CSPNTF

8 ,SP

QUOTED TEXT

; SO CAN CALC OPCNT AT END OF QUOTES

;CALC BYTE COUNT FOR QUOTED TEXT

;COPY QUOTED TEXT TO OPBUF

%
ACTMEX

#CLIBCR

;BAD (HAR. I[N OPR. QUOTED STRING

MOV

MOV
MOV
TRAP
ADD

RTS

#CLISED,=(SP)

#CLIBZR,=(SP)
#,-(SP)

SP,RO
(SPNTFH

8, S5P

CVCLHA DPV=11 DATA (UMM, LINK TEST
C(VCLKA. P
25-JUL-80 10:26
715
4716
W7
4718
(719
4720
G721
4722

005037

47%0
W73

4732
4733
4734
4735

026406
026414
026422
026426

30A(1052)

ACTMSO:

CLR
BR

006500

000002

006500

000003

006500

000004

006500

000005
002162

006500
006502

FOTIMSS: MOV

012737
013737

000006
002164

006500
006502

ACTMS6:

MOV
MOV

012737

000100
003130

006502

ACTME:

MOV
(LRB
RTS

105037

000207

ACTMST: MOV
BR
ACTMS2: MOV
BR
ACTMS3: MOV
BR
ACTMSG:

MOV

ACTMEX:

25-JuL=80

ACTION TABLE

000001

672%

4724
4725
4726
64727
4728
4729

006500

MACY11

9
10:29

AND ROUTINES

PAGE

112

MSGTYP
ACTMEN
#1,MSGTYP

ACTMET
#2 MSGTYP
ACTMEN
#3 MSGTYP
ACTME

4 MSGTYP

ACTMEN
#5,MSGTYP
MSGSC,CURCC
ACTMEX
#6 ,MSGTYP
MSG6C, CURCC
#64. ,CURCC

PENNUF

;SETUP DEFAULT SIZE FOR THIS TYPE

;SETUP DEFAULT SIZE FOR THIS TYPE
;SETUP DEFAULT SIZE FOR MSGO=-4
sCLEAR NCT=ENOUGH FLAG

SEQ 01N

CVCLHA DPV=11
DATA (UMM, L%NK TEST
(VCLHA.PIN
2 fJUL-BO 10:26
4756

I 9
MACY11 30A(1052)
25-JuL-B80 }2:%9
ACTION TABLE AND ROUTINE

:;%;

026436

026430

012737

000003

006546

ACTATV: MOV

#ACT _MODTYP

4739
(7640
67641

026440
026446
026452

012737
105037
005037

000002
003130
006550

006546

ACTPAS: MOV
(LRB
(LR

#PAS ,MODTYP
PENNUF
M TYP

4744

026460

005037

006546

ACTREC:

MODTYP

4747

026466

012737

000006

006546

£-TLIS: MOV

#LIS MODTYP

4750

026476

012737

000004

006546

ACTDLL: MOV

#DOW,MODTYP

475%

026506

012737

000001

006546

ACTTRA: MOV

#TRA, MODTYP

2;2?

026516

012737

000005

006546

ACTTAL: MOV

#TAL,MODTYP

4758

026524

042737

000004

006554

ACTM2X:

#ECHOB ,PARAM

:;z%

:;:2
2;23

2;25
:;gg

4759
4760
:;g;

026456

026464
026474

026504

026514

026532
026536
026542

000432

0006207

000417
000413

000407

000403

105037
005037
000207

003130
006550

RTS

CLR

BR
AR

BIC

(LRB
(LR
RTS

PAGE

113

SEQ C112

ACTMEX

;CLEAR NOT=ENOUGH FLAG
:CLEAR MAINT LOOP TYPE

ACTM2X
ACTM2X

ACTMOX

ACTM2X

PSNNUF
MLTYP
P

:DISABLE

/ECHO

(ALL BUT

:CLEAR NOT=ENOUGH FLAG
:CLEAR MAINT LOOP TYPE

PASSIVE

MODE)

CVCLHA DPV=11 DATA COMM, LINK TEST
25=JUL-80 10:26
CVCLHA. PN

30A(1052)
25-JuUL-B0
10:29
ACTION TABLE AND ROUTINES

47¢3

026544
026552

012737
000207

000036

003012

ACTNO:

MOV
RTS

#NO,QUALFG
PC

L4766

026554

022737

000036

003012

ACTECH:

#NO,QUALFG

000004
000002

006554
006546

(MP
REQ
BIS

4764
4765

L767
4768

4769

4770
LGN
4772
477%
W774
4775
4776
L777
4778
4779

4780
4781

TRYING TO SET /ECHO

MOv

MOV
MOV
TRAP
ADD

1%:

MOVB

2%:

BIC
(LR
BR

#-1,P$GDBD
#ECHOB ,PARAM
QUALFG
ACTLXX

000001

ACTSTS:

MOV

#STATB,R1
ACTQFG

;SET THE STATUS BIT

026660
026664

012701
000405

000020

ACTCRC:

MOV

#CR(B,R1
ACTQFG

;SET THE C(RC BiT

026666
02667¢

012701
000402

000010

ACTMOS:

#MOCHK
R
ACTQFG

;SET THE MODEM BIT

026674

000040

ACTPRO:

#PROTOB,R1

;SET

026700
026704
026712
026714
026720
026724

006554
000036

ACTQFG:

R1,PARAM
#NO,QUALFG

026726
026734

003124

006556

ACTRPS:

PSNUM ,RPASS
ACTLXX

000005

006550

ACTMOP:

000001

006550

ACTTLP:

000002

006550

ACTCLP:

000003

006550

ACTLLP:

#S MLTYP
ACTLPX
#1 MLTYP
ACTLPX
#2 MLTYP
ACTLPX

000004

006550

ACTRLP:

000003

006546

ACTLPX:

177777

003131

006554
003012

NWNNNWN

~NS&sN
~

WO WO N —

~N&SsN Ng

NWVISN

027004
027012
027014

026776

000417
—-

026736
026744
026746

003012

1%:

1%
R1,PARAM
QUALFG
ACTLXX

;CLEAR "NO'" QUT OF QUALIFIER FLAG

;GET NUMBER OF ''RUN PASSES'

ACTLPX
06 MLTYP

#-1,PSGDBD

w4 ,SP

THE PROTOCOL BIT

3 MLTYP

#ACT MODTYP
ACTLXX

SP,RO
CSPNTF

;SET DATA (HECK BIT

012701
000410

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

;CLEAR ''NO'" OUT OF QUALIFIER FLAG

026652
026656

—_-

4803

;IF

#CLINPS

#DATCKB,R1
ACTQFG

47N
«79¢
479%
4794
4795
4796
4797
4798
4799
4800
4801
4802

;BE SURE IN PASSIVE MODE I[F

MOV

(=l=le]

4790

SEQ 0113

ACTCHK:

4789

114

000002

4788

00313
006554

1%
#ECHOB ,PARAM
#PAS ,MODTYP

PAGE

012701
000413

-‘80
o
—
~N
N

4782
4783
4784
4785
4786
4787

(MP
BEG

PRINTF

000004
177777
000004
003012

MACY11

;BE SURE IN ACTIVE IF TRYING TO SET LOOP
; BR IF IN ACTIVE

CVCLHA DPV=11 DATA COMM, LINK TEST
CvCLHALPI
25-JUL-80 10:26

005037

006550

012746
012746
010600

01161
000001

062706
105037
000207

000004
003130

1046417

027052

MACY11

30A(1052)

25-JuL=-B0

9
10:29

ACTION TABLE AND ROUTINES
(LR

PRINTF

MLTYP

#CLIBDL

PAGE

115

;CLEAR ANY LOOP TYPE

SEQ 0114
THAT MAY HAVE GOT SET
MoV
MOV

MOv

TRAP

ADD

ACTLXX:

(LRB

RTS

PSNNUF
PC

;CLEAR NOT=ENOUGH FLAG

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

SP,RO

CSPNTF

#e,SP

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.P
25-JUL-80 10:26
48¢9
4830

027054

006132
006226

006322

006424
006426
006422

006430

006460

027176

027202

027244

000200
000426
017264
031232

012737
012737
013737
012737
004737
013702
006302
000172

001000
004132
006422
000010
021202
006546

006562

GTRY:

L9
10:29

; RX ALLOCATE CODE
#PTRTAB,TXPTR
MOV
#PTR13,CMPPTR
MOV

GTRX2:

SEQ 0115

;INIT TRANSMIT MESSAGE POINTER
;INIT COMPARE MESSAGE POINTER

;INIT RECEIVE MESSAGE POINTER

#PTR23,RXPTR

MOV

CMPTOT ,RXMTOT

;MAKE COMPARE AND RX MESSAGE COUNTS EQUAL

CLR
CLR
CLR
(LR
CLR
CLR

FLAG
OPVAR
PSCNT

MGLCNT
MHRCNT

;CLEAR
;CLEAR
;CLEAR
;CLEAR
;CLEAR
;CLEAR

#B1T7,DPVP1

;SET UP PARAM WORD FOR 226 RX SYNC

BIS
TST
BEQ
BIC
1%:

PAGE 116

MOV

006500

25-JUL-80

ACTION TABLE AND ROUTINES

GYREX:

006560
006464
006466
006470
011414
011416
000626
000200
011420

042737
012737
004737
004737

MACY11 30A(1052)

MOV

JSR
JSR

MOV
MOV

JSR

MOV
ASL
JMP

ERRCNT
#626,SYNCW
RNODE
1%

#B117,DPVP1
#4626, SYNCW
PC,LOGDVI
PC.OVINIT

#BUFLIM,CURCC
#RXBUF ,CURADD
RXPTR,CPTR

#10,MSGTYP
PC,BLDBUF
MODTYP,R2
R2

aMODE (R2)

FLAG
OPTIONAL VARIABLE COUNTER
PASS COUNT
ERROR COUNT
GLITCH COUNT
HARD ERR. COUNT
;SET UP SYNCW FOR 226 SYNC +TSOM

;1F NON ITEP GO T0 1
;SET UP FOR 26 SYNC WORD ON RX.
;ELSE SET UP SYNC FOR 26 AND TSOM
;LOG ABOUT TO INIT DEVICE
;INIT DEVICE

;SET CHAR COUNT TO "BUFLIM'' NO.

;SET UP RX BUFFER AS CURRRENT ADD.

;SET UP FOR 33 TO FILL RX BUFFERS
;CLEAR RX BUFFER

:MODE DISPATCH

BYTES

CVCLHA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26
CVCLHA.PT

MACY11 30A(1052)

25-JUL=-80

n9
10:29

RECEIVE MODE SECTION

.SBTTL

PAGE 117

FUNCTIONAL DESCRIPTION:

:
:
:
:

RECEIVE=-ONLY (OR ONE=-WAY=IN) ROUTINE

IN THIS MODE OF TESTING THE DEVICE'S RECEIVER IS ENABLED IN EXPECTATION
OF RECEIVING A MESSAGF. 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.

; SUBORDINATE ROUTINES USED:
; CALLING SEQUENCE:

027250
027250
027256
027264
027272
027276

013737
013737
052737
005037
000137

006422
006460
000104
006506
027434

006504
006456
006560

RXONLY:

RXON2:

JMP

aMODE (R2)

MOV

RXPTR,CPTRR

JMP

ALLTR

MOV
BIS
CLR

RXMTOT,DVRCT
FORX+#ERX,FLAG
(PTR

;DISPATCH TO MODE BASED ON MODE TYPE IN R2

;SET UP MESSAGE COUNT
;SET UP RX QUE
;CLEAR THE TX POINTER
;60 RX.

SEQ 0116

CVCLHA DPV=11 DATA COMM, LINK TEST

MACY1 30A(105?)

4LB8ES

LSBTTL

CVCLMHA.P1

25-JUL=-80 10:26

25-JUL-80

TRANSMIT MODE SECTION

10:29

PAGE 118

SEQ 0117

TRANSMIT MODE SECTION

4LBB6
4887

(889

;

TRANSMIT=ONLY (OR ONE=-WAY=0UT) ROUTINE

;

EXPECTING ANY DATA TO BE RECEIVED.

4LBBR8

; FUNCTIONAL DESCRIPTION:

4890

;

4891

238%

4894

2%33

4901
4902
4903
4904
4905
4906

027302
027310
027316
0273264
027332
027336

042737
013737
013737
052737
005037
000137

000002
006424
006444
000210
006504
027434

006554
006506
006442
006560

A REPETITION COUNT CAN BE

SPECIFIED TO REPETITIVELY TRANSMIT THE LIST

SUBORDINATE ROUTINES USED:
:
“ALLTR"
:
: CALLING SEQUENCE:

4LB9S
4896
4897

4900

IN THIS MODE OF TESTING A LIST OF MESSAGES IS TRANSMITTED WITHOUT

JMP

TXONLY: BIC
TxO»":
MOV
MOV
BIS
(LR
JMP

aMoDE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

#DATCKB,PARAM
TXPTR,CPTR
TXMTOT,DVTCT
FOTX+#ETX,FLAG
(PTRR
ALLTR

;SET NOCHECK

;COPY COUNTER FOR THIS PASS
;SET THE QUE TX FLAG
;CLEAR RX POINTER
;60 TX.

’

MACY11 30A(1052)

LSBTTL

4910
L9

14
; FUNCTIONAL DESCRIPTION:
:
PASSIVE MODE SECTION

23};

: SUBORDINATE ROUTINES USED:

4919

23%%

CVCLHA.PTY

25=JUL=-80 10:26

4908
4909

4912
913
4914
2812

4924
4925

4926
4927
4928
4929
4930
9N

PASSIVE MODE SECTION

;
s
:
3

4920
4921

H
;

027342

027342
027350
027356
027364
027372

013737
013737
013737
052737
000137

006444
006424
006422
000104
027434

006442
006506
006504
006560

25-JUL-B0

8 10

CVCLHA DPV=11 DATA COMM, LINK TEST

10:29

PAGE 119

PASSIVE MODE SECTION

IN THIS MODE OF TESTING, THE DEVICE'S RECEIVER IS ENABLED IN
EXPECTATION OF RECEIVING A MESSAGE.
THEN TVERY TIME A MESSAGE IS
RECEIVED, A MESSAGE IS TRANSMITTED. DATA CHECKING CAN BE DONE ON THE
RECEIVED DATA.

“ALLTR"
CALLING SEQUENCE:

PLCK:

PLCK2:

PLCK3:

JMP

aMODE (R2)

:DISPATCH TO MODE BASED ON MOCE TYPE IN R2

MOV
MOV
MOV
BIS
JMP

TXMTOT,DVTCT
TXPTR,CPTR
RXPTR,CPTRR
#QRX+#ERX,FLAG
ALLTR

:SET
:SET
:SET
:SET
:AND

UP THE TRANSMIT COUNT
UP CPTR TO TRANSMIT POINTER
UP CPTRR TO REC POINTER
UP Q AND EXPECT RX
GO RX FIRST MSG.

SEQ 0118

CVCLHA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26
CVCLKA.PIN
4932
4933

E MODE SECTION

10
10:29

PAGE 120

ACTIVE MODE SECTION

FUNCTIONAL DESCRIPTION:
ACTIVE MODE SECTION

4936

IN THIS MODE OF TESTING A LIST OF MESSAGES IS TRANSMITTED AND

4937
4938
4939
4940

4956
4957
4958
4959

25-JUL-80

4938

4953
4954
4955

ACT

.SBTTL

4934

4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952

MACY11 30A(

RECEIVED DATA CAN BE COMPARED
MESSAGES ARE EXPECTED TO BE RECEIVED.
AGAINST "EXPECTED'' DATA IF DATA-CHECKING IS ENABLED.

NOTE:

IF BOTH ENDS OF THE LINK ARE IN ACTIVE MODE, THEN THE
LINK MUST BE A FULL DUPLEX LINK!

SUBORD INATE ROUTINES USED:

CALLING SEQUEN CE:
aMODE (R2)
JMP

027376
027404
027612
027420
027426

013737
013737
013737
013737
052737

006444
006424
006460
006422
000314

006442
006506
006456
006504
006560

ALCK:

MOV
MOV
MOV
MOV

BIS

TXMTOT,DVTCT

TXPTR,CPTR

;DISPATCH TO MODE BASED ON MODE TYPE IN R2

sSET UP TX COUNTS

RXMTOT,DVRCT
;SET UP COUNTS
RXPTR,CPTRR
FORX+#QTX+HETX+#ERX,FLAG

SEQ 0119

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLKA P
25=JUL=80 10:26

MACY11

30A(1052)

FUNCTIONAL DESCRIPTION:
THlS CODE PERFORMS THE

1.)

FOLLOWING FUNCTIONS

IF RX BUFFERS ARE TO BE QUED,TELL DEVICE

CODE TO QUE THEM ,LOG RECEIVE QUED.
.) IF TX BUFFERS ARE TO BE QUED ,TELL DEVICE
CODE TO QUE THEM, LOG TRANSMIT QUED.
.) WAIT FOR EITHER RECIVE BUFFER OR TRANSMIT BUFFER OR
BOTH TO COMPLETE
IF RECEIVE COMPLETE LOG IT UPDATE RX TABLE IF DATA

4969
4970
97
4972
4973
4974
4975
4976
977
4978
4979
4980

4968

PAGE 121

TRANSMIT - RECEIVE FOR ALL STANDARD MODES

&»

TETETE
TR TR IR

4965
4966
4967

0 10
10:29

TRANSMIT = RECEIVE FOR ALL STANDARD MODES

SBTTL

49¢0
496
4962
4963
£964

25-JuL-80

CHECKING.

IF TRANSMIT COMPLETE LOG IT.
.) WHEN BOTH TRANSMIT AND RECIEVE LISTS ARE DONE

GO TO THE COMPARE BUFFER CODE

SUBORDINATE ROUTINES USED:

I
R

“DVRXQ'' -QUE RECEIVE BUFFER SPACE TO DEVICE
"LOGRXQ''-LOG RECEIVE BUFFER SPACE TO EVENT LOG
"LOGTXQ''-LOG TRANSMIT BUFFER QUED 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

USE OF FLAG BITS:

QRX

SET ON INPUT TO ALLTR IF REC IS TO BE QUED TO
DEVIZE. CLEARED BY DVRXQ AND THEN SET BY DVTXRX

WHEN RX BUFFER IS COMPLETED.

LRI

N
L I

4981
4982
4983

;

QTX = SET ON INPUT TO ALLTR IF TRANSMIT [S TO BE QUED TO

DEVICE. CLEARED ON ENTRY TO DVTXRX AND SET BY DVTXRX

WHEN TX BUFFER IS COMPLETED.

ETX - gssgc?gocvrxnx TO DETERMINE IF TX BUFFER COMPLETED IS

ERX = USED BY DVTXRX TO DETERMINE IF RX BUFFER COMPLETED IS

EXPECTED.

* CALLING SEQUENCE:

NNNNNNNNNON

027434
027434
027442
027444
027450
027454

— e e i e e OO M
wOo
NSO
caN) =\ NNNNoORNNN NS N
N N AN AN NN N N O N N

000004

006560

ALLTR:

ALCKS:

017220
000010

JMP

ALLTR

16O TO TRANSMIT-RECEIVE FOR ALL STANDARD MODES

BIT
BEQ

#QRX ,FLAG
ALCK1

;1F NOT RX GO TO TX'S

MOV

(R2),TEMP}

MOV
MOV
MOV

006504
006522
006452
006524
006454

MOV
MOV

006560

ALCkY:

JSR
JSR
BIT

CPTRR,R?2
(R2) ,TEMP?
(R2)+,DVRXA

(R2) ,DVRCC
R2,CPTIRR

PC,DVRXQ
PC,LOGRXQ
#OTX,FLAG

;G0 QUE DEVICE
:LOG REC QUED

SEQ 0120

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI
25-JUL-80 10:26
5016
5017

027512

001416

10:29

FOR ALL

PAGE

122

SE@ 0121

STANDARD MODES

ALCK2

;IF NO TX''S GO TO 2

JSR

PC,DVTXRX

;GO TC TX AND RX SUB ROUT.

006560

BIT

#ORX,FLAG

:CHECK FOR REC. MSG.

006522
006524

MOV
MOV
JSR

DVRXA, TEMP2
DVRCC, TEMP3
PC,LOGRXC

027550

004737

032206

027554
027562
027564
027572
027600
027604
027612

032737

000004

013737
013737
004737
032737

006452
006454
017236
000004

013702
013722
013712
032737

006506
006522
006524
000002

006554

012737
013737
022737

000001
006422
000003

006456
006504
006546

027742
027742
027750
027752
027760
027766

E 10

(PTR,R2
(R2),TEMP2
(R2)+,DVTXA
(R2) ,TEMP3
(R2)+,DVTLC
R2,CPTR
PC.LOGTXQ

027544

027736

25-JuL=-B0

TRANSMIT = RECEIVE

BEQ

006506
006522
006436
0065264
006440
006506
017164
ALCK?2:

006554

BEQ

UPTABL: BIT
BEQ

006456

013702
011237
163737
013722
063737
013722
013712

006504
006516
006524
006524
006524
006522
006516

010237

006504

022737

000002

006546

042737
052737

000104
000210

006560
006560

005337
005737
001005
042737
005037
032737
001447
013737
013737

006456
006456

UPTAL:

UPTAT:

006522

RXPTR,CPTRR
#ACT,MODTYP

000004
006504
000010

006560

006436
006440

006522
006524

006560

ALCKS:

UPTA1
#01,DVRCT

UPTAS

“IF NOT GO TO 4
"ELSE SET R2 TO PRESENT TX TABL

TAND CC
1S DATA CHECKING ASKED FOR
S1F SO GO TO 1
“ELSE SET DVRCT TO A 1
‘RESET POINTER
1S THIS ACTIVE

DVRCT

:1F YES BUMP COUNT

TEMPS, TEMP

"LOAD TEMP WITH PREV.COUNT=-CURRENT

TEMP2, (R2) +

:STORE OF NEW ADD

SUB

#2.R3

'PUT POINTER BACK TO ADDR.

MOV

R2,CPTRR

;AND RESTORE

CMP

#PAS ,MODTYP

BIS
M

FQTX+#ETX,FLAG
ALCK

INC

BR
MOV
MOV

UPTEX
CPTRR,R2
(R2) , TEMP

MOV
ADD

TEMP3, (R2) +
TEMP3, TEMP2

TEMP, (R2)

:LOAD TEMP WITH PREV.

COUNT

*AND NEW CC

IT.

ALCK2A
#ORX+#ERX,FLAG

:1F NOT PASSIVE LOOP THEN GO TO 2A
:CLEAR BOTH EXPECTED AND COMPLETED FLAGS

DEC

DVRCT

:DEC REC COUNT

BNE
BIC
CLR
BIT
BEQ

ALCK3
#QRX,FLAG
(PTRR
#QTX,FLAG
ALCK&

:NO. GO CHECK TX
:CLEAR THE RX FLAG
:YES. CLEAR POINTER
1S IT TX
:1F NOT Tx THEN GO BACK

DVICC,TEMPS

;LOG TX COMPLETED

BNE
BIC

ALCK2A:

*STORE OFF RX ADD

MOV
CMP

BNE
MOV

MOV

UPTEX:

TEMPS, (R2) +

TEMP3. (R2)
#DATCKB,PARAM

MOV

000002

:LOG REC COMPLETE
:1S THIS ECHO MODE (PASSIVE)

MOV
BIT

SUB

006516

#ECHOB,PARAM
UPTA&
CPTR,R2

BNE
UPTAZ:

ALCKS

MOV

005237

162702

30A(1052)

MOV
MOV
MOV
MOV
MOV
MOV
JSR

013702
011237
012237
011237
012237
010237
004737

027732

MACY11

MOV

DVRCT

DVIXA,TEMP2

;SET THE TX FLAGS

;1S 1T ALL DONE

CVCLHA DPV=11 DATA (UMM, LINK TEST
CVCLHA. P
25-JUL-80 10:26

5072
5073
5074
5075
5076
5077
5078
5079

030040
030044
030050
030056
030060
030066
030074
030100
030102
030106
030112
030114
030120
030124
030132
030140
030142

004737

030146
030150
030154
030156
030162

001362

006442
000002

006546
006560
006560

030162
006442

027434
006506
000010
000002

005737
001402
000137

ALCK3A:

006560
006554

P CK3C:
AL(K3B:

TRANS

DEC
(MP
BNE
BIC
BIS
ST
BNE
JMP
ST

BEQ

JMP
(LR
BIC

BIT

006504

ALCKG:

006506

ALCKGA:

027550

30AC10
JSR

017202

000210
000104
006442

005737

MACY11

AL (K4R:

BEQ
ST

25-JUL-80

PC,LOGTXC

10:29

PAGE 123

pvicT

:DEC TX COUNT

$A
ALCK

;1F NOT PASSIVE MODE GO TO 3A

#PAS MODTYP
FATX+ETX,FLAG
FORX+ERX .FLAG

DVTCT
ALCK3C
CMPSR
DVTCT
ALCK3B
ALCKS
CPTR

#QTX,FLAG
#DATCKB,PARAM
ALCKLA

CPTRR

ALCK3C
(PTR

JMP

ALCK?2

BEQ

= RECEIVE FOR ALL STANDARD MODES

BNE

ALCK4B

;CLEAR THE TX FLAGS
;AND SET

THE RX FLAGS

;1F MORE RX'S DO IT
; ELSE COMPARE
;1S IT ALL DONE

;IF NOT GO BACK TQ 5

:IF SO CLEAR POINTER
;CLEAR TX FLAG
;1S 1T DAT (K
;1F NOT THEN END WO CKING RX.

:1F SOME RX''S LEFT GO BACK
;BRANCH [F

ANY TX'S LEFT

SEG 0122

—

CVCLHA DPV=11 DATA (UMM, LINK TEST

CVCLKWA . P

25=JuL=-80 10:26

0v8
(eolelelele)

2O OO Wy
—

———————

30A(1052)

25-JuUL=-80

G 10
10:29

DATA COMPARISON CODE

FUNCTIONAL DESCRIPTION:
CMPSR - COMPARE
THIS

CODE

NOTE:

CODE

COMPARES

THE

RECEIVED

DATA AGAINST

EXPECTED AND FILLS THE EVENT LOG WITH 1 OF

(THE

FIRST

5 ONLY),LENGTH ERROR,AND

030214

001522
013737
013737
013737

000002

006554

006422
006426
006460

006506
006504
006456

030214
030220
030224
030226
030232

013702
011237
012201
012237
010237

006506
006522

$143
5144
5145
5146
5147
g}:g

030236
030242
030244
030246
030252
030256

013702
012203
012204
010237
010437
004737

006504

5150
5151
5152
5153

030262
030266
030270
030274

020437
001410
005237

006524

006524
006506

006504
006526
017332

006470

TOTAL NUMBER OF

ERRORS

“LOGCMP'' - SEE ITEM 3 ABOVE
"LOGCML'" - SEE ITEM 2 ABOVE
"LOGCMD'" - SEE ITEM 1 ABOVE

; CALLING SEQUENCE:

032737

NUMBER

3.) A DATA COMPARISON STARTED ENTRY WHICH REPORTS ADDRESS
OF RECEIVE BUFFER AND BYTE COUNT.
THIS CODE ALSO REPORTS SOFT ERRORS FOR DATA COMPARISON

:
:
:

030170
030172
030200
030206

THE

OF COMPARISON ERRORS FOUND.
2.) A DATA COMPARISON ENTRY WHICH REPORTS DIFFERENCES
IN REC LENGTH TO COMPARE LENGTH.

030162

THE

3 MSGS.

THIS CODE

A DATA COMPARISON ENTRY WHICH REPORTS

NS WA

1.)

NO DATA CHECKING SKIP

OO0

5137
5138
5139
5140
2}:;

SEQ 0123

* Y

NO NS W
=2 OO0

PAGE 124

DATA COMPARISON CODE

SUBORDINATE ROUTINES USED:

51
51
51
51
51
g}

:
:
:

MACY11

LSBTTL

5099
5100
51
<1
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51

51
51
2}

JMP

(MPSR

;JUMP

(MPSR:

BIT

#DATCKB,PARAM

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

CPTR,R2
(R2),TEMP2
(R2)+,R1
(R2)+,TEMP3
R2.CPTR

:MOVE CURRET RX PT.TO R2
:MOVE RX ADD TO EVENT LOG
:SET R1 TO START ADD OF RX
:SET CHAR COUNT TO EVENT LOG
:RESTORE RX POINT

MOV
MOV
MOV
MOV
MOV
JSR

CPTRR,R2
(R2)+,R3
(R2)+,R4
R2,CPTRR
R4, TEMPS
PC,LOGCHP

:PUT R2 AT COMPARE TABLE
;SET R3 TO COMPARE ADD
:SET R4 TO COMP CC
‘RESTORE POINTER

(MPS3:

BEQ
MOV
MOV
MOV

(MP
BEQ

CMPSEX
RXPTR,CPTR
CMPPTR,CPTRR
RXMTOT ,DVRCT

R4, TEMPY
CMPS7
ERRCNT
INC
ERRSOFT 1,EDDLE,ERRI0

DATA

COMPARISON

CODE

:LOG COMPARE START.

:1S COMPARE COUNT = TO RX COUNT
;1F SO GO TO 7
;PRINT ERROR

é§fl%;0lgyrggflnbcl°lxrw~usru-u~ru-u-eow?crs:
NO
VNS
WO OO NO VNS WN
OOV

i
i
P
i
B e
D A
e
D e

oo
VNI S
NO VNS WA =000
~NO WV~

D A
D

D ol el

IV TV IV IV IV IV IV TV TV IV IV IV IV

D il
D Al

D el e

IV TV LV IV TV T

D
il

IV I IV

il e
—

RV IV IV

VOO
W
=O OB

IV IV I IV IV TV IV IV IV IV IV IV IV}

CVCLHA DPV=11 DATA CUMM, LINK TEST
CVCLHA.PI
25=JUL-80 10:26

030274

030304

MACY11

PAGE 125

SEQ 0124

1046457

000001
014423
016640
004737

017350

030310
030314
030322
030324

006526
000001

006514

030326
030332
030340

006526
006526

C00005

CMPS7:
CMPS1:

(MPS2:

206536
006537
006470

006514

005737
001410
005237

006526
006470

000003
014460
016612
004737

017366

005337

006456

001267

PC,LOGCML

;LOG LENGTH ERROR

CLR

TEMP4
#1,0FSET

;CLEAR BAD BYTE COUNTER

TEMP4
TEMP4
, #5

: INC BAD COUNT
;1S IT MORE THEN 5
:1F SO GO FOR MORE
;STORE GOOD BYTE FOR ERROR
;STORE BAD BYTE FOR ERROR

MOV

(MPB
BEQ

INC
CMP
BHI

(R1)+,(R3)+
CMPS6

CMPS6

-(R1),BAD
INC
ERRCNT
7 2,EDDDE ,ERR1
ERRSOF

CMPS6:

(MPSS:
CMPSSA:

TRAP
.WORD
.WORD
.WORD

JSR

MOVB
MOvBe

104457

030434

W10

30A(1052)
25-JuL-80 10: 29
DATA COMPARISON CODE

R1
INC
R3
INC
INC
OFSET
R4
DEC
BNE
(MPST
TEMP4
TST
BEQ
CMPS5A
INC
ERRCNT
ERRSOFT 3 ,EDDDE ,ERR2

JSR

PC,LOGCMD

DEC
BNE

DVRCT

CMPS3

gSERSOFY
EDDLE

ERR10

;SET OFSET BYTE COUNT TO 1
;COMPARE RX WITH EXPETED
;IF EQUAL THEN GO TO 6

;REPORT

COMPARISON FAILURE

TO OPR.
TRAP
.WORD
.WORD
.WORD

T
CSERSOF
2
EDDDE
ERR1

; INC OFFSET

;ELSE DEC CHAR COUNT AND SEE IF 0
;IF NOT GO BACK
;SEE IF ANY CMP ERRS FOR THIS MSG
;BR I¥ NONE
;REPORT

# OF

MISMATCHES

FOR MESSAGE
TRAP

;LOG DATA ERROR IN COMPARE
;IF NOT ALL DONE GO BACK

.WORD
.WORD
.WORD

CSERSOFT

EDDDE

ERR2

CVCLHA DPY=11 DATA (UMM, LINK TEST

MACY11 30A(1052)

5194
5195
5196
5197

LSBTTL

CVCLHA P11

25=.uL-80 10:26

MCDEM CHANGE REPORTS

:
:
:
:
:
:
:

MODEM CHANGE REPCRTS

THE DEVICE TO LATCH THE DATA

5208

5212

: OUTPUTS:

5216
5217
5218

i3
1308

5209
gg}?

)
:

5213
5214
5215

INPUTS:

}
:
:

030436
030442
030444
030450

005737
001003
005737
001412

011414
011416

"MGLCNT''
"MHRCNT"'

- CONTAINS NUMBER OF GLITCH ERRORS
- CONTAINS NUMBER OF HARD ERRORS

"MGLCNT"
"MHRCNT''

(MPSEX: TST
BNE
ST
BEQ

gggg

-JEROED BY THIS SECTION
-JEROED BY THIS SECTION

MGLONT
MCREP
MHRCNT
ENDPS

;CHECK FOR ANY GLITCH ERRORS
:1F NON ZERO REPORT THEM
:CHECK FOR ANY HARD ERRORS
:1F NONE GO TO END OF PASS

:REPORT ANY MODEM ERRORS HERE

5226

030452

005237

5228
5229
5230
5231

030456
030460
030462
030464

104457
000004
014057
016670

5232
gggz

SEQ 0125

THIS SECTION REPORTS THE NUMBER OF MOMDEM STATUS CHANGES
THAT OCCUR ON EACH PASS. THE ERROR IS ONLY REPORTED IF
THERE WERE ANY CHANGES IN OTHER WORDS A COUNT OF ZERO IS
NOT REPORTED. THE CHANGES ARE REPORTED IN TwO CLASSES ..
HARD ERRORS AND GLITCHES. HARD ERRORS ARE WHEN THE DEVICE
IS ABLE TO LATCH UP THE BAD MODEM STATUS. GLITCHES OCCUR
WHEN THE MODEM STATUS CHANGES TO CAUSE A DATA SET CHANGE
INTERRUPT BUT THE CHANGE DOES NOT OCCUR LONG ENOUGH FOR

gggg

5227

PAGE 126

St
s FUNCTIONAL DESCRIPTION:

€198
5199
5200
5201
5202
5203
5204
5205

5219
5220
5221
g%g%

110
25-JUL-B0 10:29

030456

030466
030472

005037
005037

006470

011414
011416

MCREP:

INC

ERRCNT

ERRSOFT & ,MS(M5,ERRSG

(LR
CLR

MGLCNT
MHRCNT

:BUMP ERROR (COUNT

CLEAR GLITCH COUNT
:CLEAR THE HARD COUNT

TRAP
.WORD
.WORD
.WORD

CSERSOFT
&
MS(MS
ERR&

CVCLHA DPV=11 DATA CUMM, LINK TEST
CVCLHA.PIN
25=JUL-B0 10:26

MACY11

J 10

30A(1052)
25-JuUL=-80
10:29
INTERNAL END OF PASS CODE

LSBTTL

PAGE 127

SEQ 0126

INTERNAL END OF PASS CODE

FUNCTIONAL DESCRIPTION:
THIS CODE INCREMENTS THE

PASS

COUNT

FOR

EVENT LOG. LOGS THE END OF PASS EVENT

)

THE

IF "'RPASS'" IS A MINUS ONE RETURN TC MODE
DISPATCHER. IF NOT =1 THEN DECREMENT RPASS
AND

IF "'RPASS'' IS THEN = TO 0 GO TO DCLT PROMT

ViAW

LR
R

IN NOT = TO O THEN GO BACK TO MODE DISPATCHER

030476

005237

006466

030502
030510
030516
030524

013737
013737
013737
004737

006464
006466
006470
017404

006526
006522
006524

030530
030536
030540
030544
030546

022737
001403
005337
001402
000137
000137

77777

006556

030552

SUBORDINATE ROUTINES USED:

ENDPS:

INC
MOV

006556

027202
024122

"'LOGEOP'' = LOG END OF PASS TO EVENT LOG

1%:

2%:

PSCNT

;BUMP PASS COUNT

OPVAR, TEMP4

MOV
MOV
JSR

PSCNT,TEMP?
ERRCNT,TEMP3
PC,LOGEOP

:LOG END OF

(MP

#-1,RPASS

;SEE

JMP

GTRX2

JELSE

GO BACK AND DISPAT(CH

BEQ
DEC
BEQ

JMP

1%
RPASS
2%

GTRAS

PASS

RPASS=-1

;1F 1T IS DON'T DECRMNT, LOOF FOREVER
;DEC PASS COUNT
;IF DONE EXIT TEST

;WHEN RPASS=0 GO BACK TO 'DCLT>"

r—

CVCLHA DPV=11 DATA CUOMM, LINK TEST
CVCLHA. P
25=JUL-80 10:26

MACY11

K 10
30A(1052)
25-JuUL-80
10:29
DOWN=LINE=LOAD SECTION

.SBTTL

PAGE 128

SEQ 0127

DOWN=LINE=-LOAD SECTION

+*e

FUNCTIONAL DESCRIPTION:

DOWN LINE LOAD IS NOT SUPPORTED BY THIS DEVICE..
IF THIS MODE IS CALLED BY THE COMMAND LINE INTERPRETER
THEN A MESSAGE WILL BE PRINTED

....THAT SAYS DOWN LINE

LOAD IS NOT!! SUPPORTED BY THIS DEVICE.

030556

012746
012746
010600

013230
000001

062706
000137

000004
024122

104417

030576

PRINTF

JMP

#DLLCM

GTRAS

MOV
MOV
MOV
TRAP
ADD

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

SP,RO
CSPNTF

#4,SP

MACY11 J0A(1052)

5286
5287
5288
5289
€290
5291
5292

LSBTTL

P4e
; FUNCTIONAL DESCRIPTION:
:
TALK MODE SECTION
:
IN THIS MODE, THE "'TALK'' END OF THE LINK TRANSMITS OPERATOR
;
SPECIFIED MESSAGES UNTIL A "EXIT'' MESSAGE IS TYPE. AT THAT POINT,

gggg

: SUBORDINATE ROUTINES USED:

5297

“LOGTXQ' = LOG TX BUFFER QUED TO EVENT LOG

g%gg

“LOGTXC'' = LOG TX COMPLETE TO EVENT LOG

CVCLMHA.P1Y

25-JUL-B0 10:26

gggz

g%g%

;

5304
5305
5306
5307

030602
030602
030610

5312

030626

5313
5314

5315
5316
5317
5318
5319
5320

030614
030620
030624
030626

042737
012702

012722
022702
001373

000002
002520

177777
002642

THIS END OF THE LINK GOES INTO "LISTEN'' MODE.

"“DVIXRX'' = QUE TX BUFFER TO DEVICE AND WAIT FOR COMPLETE

CALLING SEQUENCE:

TALCK:

1%:

104443

JMP

aMODE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

BIC
MOV

#DATCKB,PARAM
#0PBUF ,R2

;SET NOCHECK

MOV
CMP
BNE
GMANID

#-1,(R2)+
;:CLEAR OUT OPBUFFER FIRST
#OPEND ,R2
1%
OPRMM,OPBUF,A,0,1,72.,NO
:GET TALK MESSAGE

TRAP

CSGMAN

.WORD

OPBUF

2Bt

030634
030636
030640
030642
030644
030646

000142
013165
000000
000001
000110

.WORD
.WORD
.WORD
.WORD
.WORD

030632

002520

5328
5329

030670
030676

012737
012737

sssg
5333
gg;g

030720
030724
030732

004737
052737
005037

002520
002520
002166
002166
017164
000210
006504

g;;g

030736

004737

032206

$338

030742

013737

5340
5341

030756
030762

004737
022737

5339

SEQ 0128

000406

030646
030650
030656
030660
030662
030664

5330
§331

PAGE 129

030630

005002
122762
001402
005202
000772
010237

5321
5322
5323
5324
5325
§§§?

006554

10::29

TALK MODE SECTION

5301

5308
5309
5310
5311

TALK MODE SECTION

}

5298

25-JUL=-80

L 10

CVCLMA DPV=11 DATA COMM. LINK TEST

030704
030712

030750

013737
013737

013737

000377

CLR
(MPB
BEQ
INC
BR
MOV

R2
(R2)
#377,0PBUF
3%
R2
2%
R2,0PCNT

;NOW GET CHAR COUNT

MOV
MOV
MOV
MOV
JSR
BIS
CLR

#OPBUF ,DVTXA
#OPBUF ,TEMP?
OPCNT,TEMP3
OPCNT,DVTCC
PC,LOGTXQ
FOTX+METX,FLAG
CPTRR

:SET UP TX ADDR.

JSR

PC,DVTXRX

006522

MOV

DVTXA,TEMP?

002520

JSR
CMP

PC,LOGTXC
#''EX,0PBUF

002520

3%:

002166

006436

006440

017202
054105

2%:

006436
006522

006524
006440
006560

006524

MOV

;SET UP TX CC
;SET UP FLAGS
:CLEAR RX POINTER

DVTCC,TEMPS
;CHECK FOR EXIT

10001$:

10001$

TS$CODE
OPRMM

0
TSLOLIM
TSHIL!M

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA. P11
25-JUL-80 10:26
53«2
5343
5344
5345
5346

53,7

030770
030772
031000
031002
031010

001304
022737
001300
042737
012737

031016 000137

052111

002522

000210
000006

006560
006546

027202

MACY11 30A(1052)
25-JuL-80
TALK MODE SECTION
BNE
CMP
BNE
BIC
Mov

JMP

M 10
10: 29

TALCK
#''1T,0PBUF
+2
TALCK
NQTX+#ETX,FLAG
#LIS MODTYP

GIRX2

PAGE 130

;CLEAR THE TX BITS
;CHANGE TO LISTEN MODE

SAND GO BACK TO DISPATCH

SEG 0129

MACY11 30A(1052)

53.8

LSBTTL

CVCLHA.P1

25=JUL=-80 10:26

N 10

10::29

LISTEN MODE SECTION

5349
5350

5353
5354

;
;

5351
£352

25-JuL=-80

LISTEN MODE SECTION

IN THIS MODE, THE "‘LISTEN'' END OF THE LINK PRINTS ALL OF THE MESSAGES
RECEIVED BY THE DEVICE ON THE OPERATOR'S CONSOLE. IF THE MESSAGE

RECEIVED IS AN "EXIT'* MESSAGE, THEN THE NODE ENTERS ''TALK'' MODE.

2%2;

: SUBORDINATE ROUTINES USED:

5359
5360
5361

;
:
;

5364

; CALLING SEQUENCE:

gggz

$370
$371
5372
$373
$374
$375

031022
031030

042737

000002

031030
031034
031040
031042
031044
031050

012746
012746
010600
104417
062706
012737

013154
000001

031064

012737

000122

5376

031056

§378
§379
ggg?

031072
031100
031106

5382
;;gz

§377

“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

ggg%

§367

SEQ 0130

; FUNCTIONAL DESCRIPTION:
;
LISTEN MODE SECTION

gggg

538
5369

PAGE 131

012737

000004
002520
002520

006554

006452
006522
006454
006524

LISCk:

JMP

aMODE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

BIC
PRINTF

#DATCKB,PARAM
#LISP

;CLEAR CHECK BIT
:PRINT PROMPT FOR OPK.

#OPBUF ,DVRXA
#OPBUF ,TEMP?
#82. ,DVRCC
#82.,TEMP3

:SET DEVICE UP TO REC AT OPBUF

NORX+#ERX,FLAG
CPTR

;SET UP FLAG
:CLEAR THE TX.

LISCKA: MOV
MOV
MOV
MOV

000122
000104
006506

931112
031116

004737
004737

032104
017220

JSR
JSR

PC,DVRXQ
PC,LOGRXQ

;QUE RX

g;gz

031122

004737

032206

JSR

PC,DVTXRX

:G0 TO DEVICE RX. SUBROUTINE

5387
5388
5385
5390
5391
5392

031126
031134
031142
031146
031154
031160

013737
013737
004737
063737
105077

006452
006454
017236
006452
155274

MOV
MOV
JSR
ADD
CLRB
PRINTF

DVRXA,TEMP?
DVRCC,TEMP3
PC,LOGRXC
DVRXA,DVRCC
aDVRCC
#OPBFPT

CMP

#''EX,0PBUF

CMP

#'17,0PBUF +2

MOV

#TAL MODTYP

5393
5394
5395
§396
5397

031160
031164
031170
031172
031174

012746 002514
012746 000001
010600
104417
06270? 000004

031206

001320

031218

001314

5398 031200 022737
5399

006522
006524
006454

054105 002520

5400 031210 022737

052111

002522

012737

000005

006546

5401

5402

5403

031220

031226 000137 027202

BIS
CLR

BNE

JMP

LISCKA

#LISP,=(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP

MOV
MOV
MOV
TRAP
ADD

#OPBFPT,=(SP)
#1,-(SP)
SP.RO
CSPNTF
#,SP

:SET UP CHAR COUNT TO 82.

012737
052737
005037

006560

MOV
MOV
MOV
TRAP
ADD

;SET UP ADDR.AND CC.
:L0G COMPLETED

:COMPARE FOR EX OF “‘EXIT'

:IF NOT EXIT THEN GO BACK

:1F FIRST HALF OK CHECK NEXT PART

LISCKA

:1F NOT EXIT THE GO BACK

GTRXZ

“RETURN T0 DISPATCHER

:CHANGE MODE TO TALK

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

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA DPV=11 DATA COMM. LINK TEST
CVCLMA.PI
25-JUL-80 10:26
5404
5405

MACY11 30A(1052)
25-JuL-80
LISTEN MODE SECTION

B 11
1 0:29

PAGE 132

SEQ 0131

CVCLMA DPV=11 DATA CUMM, LINK TEST
CVCLHA.PT
25=JUL-80 10:26

LSBTTL

5406

54C7
5408
5409
$610
5611
5612

5613

INIT SUBROUTINE

FUNCTIONAL DESCRIPTION:
DVINIT= DEVICE INIT ROUTINE
THIS ROUTINE IS DEVICE DEPENDENT CODE
THE DEVICE BEING TESTED.

THAT

INITS

IT SETS THE DEVICE UP TO THE MODE IT IS TO RUN IN AND

INITIATES THE START,STACK,ACK SEQUENCE IF THE ''RNODE’'(REMOTE

INPUTS:

“FHDPLX'' INDICATES IF MODE IS FULI OR WALF DUPLEX. (1=FULL)

ADDRESS POINTERS (SELO,...) ALREADY POINT TO DEVICE'S REG.S

NODE) INPUT INDICATES THE REMOTE NODE IS NON-ITEP.

SUBORDINATE ROUTINES USED:

4=LM)
"MLTYP'' INDICATES THE LOOP TYPE (1=TTL,2=CAB,3=RM,
"'RNODE'' INDICATES THE TYPE OF REMOTE NNDE (ITEP=1,NON-1TEP=0)

“CTSSR' = CLEAR TO SEND SuB ROUTINE
"DVIN3I' - SEND CONTROL AND REC OR TIME OUT
“CLRRTS' = CLEAR REQUEST TO SEND ROUTINE
“LGOVE'" - LOG DEVICE ERROR TO EVENT LOG

;
i

5436

DVINIT:

031232
031232

031240
031244
031246
031246

012777

00001

105777

160100

001423

160112

;MASTER CLEAR DEVICE
MOV

#RESET,aTXCSR

TSTB

@aRXCSR

BEQ

BREAK

104422

NNNNN

VWA N

WO W

Vs NNN

MNNNNN
OO

—_

8s 88==<
—

OO
oSNNS

e
el
il
el
el
il
—

WWMSNNNNN

L N

;DOES NOT WORK

160062
160062

017246
006470

006522
006524
006526

MOV
MOV
MOV
JSR
INC
ERRSOFT

;00 A MASTER CLEAR
;SEE

1T WORKED

;BRANCH [F 0K

DVINI

;REPORT ERROR

016035

PC,OVINIT

JSR

;

000000000

5442
5443
95444
54645
5446
5447
5448

DEVICE

*99

5433
5434
5435

5440
5441

SEQ 0132

DEVICE FUNCTION SUBROUTINES

LSBTTL

5614
5615
5616
5617
5418
5619
5420
5621
5422
5423
5424
5425
5426
5627
5428
5429
5430
5631
5632

5457
5438
5439

cn
MACY11 30A(1052)
25-JuL-80 10:29 PAGE 133
DEVICE FUNCTION SUBROUTINES

TRAP

($BRK

TRAP

giERSOFY

RESET

#OVEMO, TEMP?
SRXCSR,TEMP3
8TXCSR, TEMP4
PC,LGDVE
ERRCNT

5,DVEMO,ERR13

;LOAD UP ERRM, AND REG QUTPUTS
;LOG TIME OUT WAITING FOR RUN

.WORD
.WORD

DVEMO

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.P1Y
5662
5463

5664
5465
$466

25=JuL-80 10:26

031310
031312

016722
000747

30A(1052)

PN
25-JuUL-80 10:29 PAGE 134
DEVICE INIT SUBROUTINE

BR DVINIT

SEG 0133
.WORD

;GO BACK AND TRY MSTR (LR AGAIN [F ERROR

ERR13

;SET TTL LOOP IF REQU'D

5467
5468
5469
5470
5671
22;%

0 314
051322
031330
031336
031340
031346

042737
042777
022737
001004
052777
000455

000003
000010
000001

006560
160022
006550

000010

160004

5474
5475
5476
5477
5478
5679
223?

031350
031356

022737
001451

000002

006550

031360
031366
031370

022737
001002
000137

000004

006546

g:g%

031374

012777

000002

157742

5484
5485
5486
5487
5488

031402
031410
031414

012737
005737
001022

002000
006620

006620

5490
5491
5492
5493
5494
5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
b330
5512
5513
5514
$515
5516
5517

031416
031424
031432
031440
031444
031450
031450
031452
031454
031456
031460
031462
031462
031464
031472
031500
031502
031510
031514
031516
031522

012737
017737
017737
004737
005237

0315%6
031532
031540
031546
031552

112737
052737
012737
004737
012737

5489

MACY11

032020

DVINT:

BIC
BIC

#3,FLAG
#TTLL,@TXCSR

:CLEAR INPUT AND OUTPUT INT FLAGS
:CLEAR INTERNAL LOOP

BNE

ovINS

“ 1F NOT GO TO 3

CMP

BIS

BR
DVIN3:

STTL,MLTYP

#TTLL,3TXCSR

DVINS?

CMP
BEQ

#CABLE ,MLTYP
IVIN3?

CMP

#D0W,MODTYP

JMP

DVINEX

215 TTL SELECTED

:ELSE SET INTERNAL LOOP

:1F CABLE LOOP SKIP (HMECK
:FOR MODEM READY
;CHECK IF DLL

DVINSA

*BRANCH IF NOT DLI

DVIN3A: MOV

#DTR,aRXCSR

SSET UP DIR.

MOV

#2000, TIMER1

BNE

DVIN39

BNE

DVIN3B: TST

TIMERT

CELSE EXIT

StF TIMER NOT OUT GO TO 39

;SET ERROR FOR NO MODEM READY

016463
157714
157714
017246
006470

006522
006524
006526

#OVEMG, TEMP?
ARXCSR.TEMP3
TXCSR. TEMP4

PC,LGOVE
ERRCNT

ERRSOFT 11,DVEM6,ERR13

104457
13
016463
016722
000745

104422
017737
032737
001743
013777
005737
001141
005737
001536

MOV
MOV
MOV
JSR
INC

TRAP

(SERSOFT

.WORD

DVEMé

TRAP

($BRK

.WORD

RR
DVIN39: BREAK

DVIN3A

;THEN TRY TO SET DTR AGAIN
;GET COPY OR RXCSR
;IS MODEM READY SET

157654
001000

011372
011372

MOV
BIT

SRXCSR,IRXCSR
#BIT9,IRXCSR

011366
011420

157636

DVIN37: MOV

DPVP1,aPCSAR

:SET UP PCASAR

DV INEX

CEXIT IF ITEP

DVINEX

‘BANCH IF NOT

BNE

TSt

006552

000005
000060
000074
033476

BEQ

002645
006560
006624
002646

DVIN3S
RNODE

FHDPLX

:SET UP TO SEND STRT
#5,HDMSG#1
MOVB
SRXW'TXM,FLAG
BIS
#60., TIMERS
MOV
PC,CTSSR
JSR
26 HOMCC
DVING1: MOV

:CHECK REMOTE NODE
215 THIS FULL DUPLEX

;SET
:SET
“SET
SSET
SSET

UP ENQ
FLAG WOR
TIMER FOR 1 MINUTE
CTS IF NESC.
UP STRT CODE

.WORD

ERR13

037560
03564
031570

004737

oooooog
P
e ur it

737

37
37
37

P T

~ &~

—_ —

oo
wN

31572
031600
031602
031610

oo
ww

VI WA
AWM AN AN AWV AVTAMWAVT
AW w
VIV A VTA VAN AT A VA VA ANV W
s
NOWVSWN
2OV
NO VNS W00 oo
o

CVCLHA DPV-11 DATA COMM. LINK TEST
CVCLHA. PN
25-JUL-80 10:26

MACY11 30A(1052)

JSR

PC,DVIN3Y

:60 TX STRT AND CHK FOR RX.

BEQ

DVINSI

:1F TIMER EXPIERED EXIT

DVING:

CMP
BEQ
CMP
ENE

#6,RHOMCC

OVING
#7,RHOMCC
OVINGT

;1S
“1F
SIS
“1F

DVING:

JSR
BIC

PC,CTSSR
#QTX'PAD,rLAG

;SET REQUEST TO SEND
:CLEAR TX COMPT FLAG.

033346
006624

000006

002660

000007

002660

033476
001010
000001
002645
002654
000010
000120
000010

006560
002646
011376
011400
011402
157470

006560

MOV
BIS

#8.,SYNCC
:SET UP SYNC COUNT
XCSR
INTEN,QT
#TXENA'T

BNE

DV INEX

DIVN91: BIT

1s1

031702

37
1

37
32
37

031742
031744

23
57

000007
033346
006624

002646

000001

002660

000007

002660

DVINS:

HDMC ,MSGCC

#Q1X,FLAG

TIMERS

SEXIT IF ACK SENT

BNE
BR

DIVN9
DVINS1

:1F NOT TIMER EXPIREL RE(HK Tx,
:1F TIMER OUT REPORT [T

MOV

#7,HDMCC

:SET POTINTER TO STACK

JSR
ST

BEQ

CMP

BEQ
CMP
BEQ
BR

SEQ 0134

THE RCVD=STRT
SO GO TO ASTR'
IT A STACK
NOT STACK ETIMER GO BACK

#1,HOMCC
SSET UP ACK
#HDMSG+1,MSGPTR :SET UP POINTER

MOV

006624

TIMERS

MOV
MOV

BRE AK

031704
031712
031716

EN
25-JuL-80 10:29 PAGE 135
DEVICE INIT SUBROUTINE

PC.DVINSI
TIMERS

($BRK

TRAP

T
(SERSOE

:AND GO SEND STACK

OVINS1

:REPORT ERROR IF TIME OUT

DVINEX
#7 ,RHDMCC
DVING
DVINS

S1F
11S
S1F
S1F

#1,RHDMCC

TRAP

“1S IT ACK RCVD?

SO EXIT
1T STACK RCVD
SO SEND ACK
NEITHER SEND ANOTHER ACK

S
=N
WO
-V
NNWNONNON

o
NINNN
OWIWNIW
NNNN

8328

—

purd

5568
§569
5570
314,
5572

032020
032024
032032
032040

®
VOO
8 8°°

bl
N

(=l=1~]
(v
O

032014

37
37
37
Ww

(VL LN )
NNNNN

031746
031754

54
55

[=1=T=}

:DO ERROR AND REPEAT
016377
002660
002646
017246

006522
006524
006526

DVINB1: MOV
MOV

MOV
JSR
INC

006470

#DVEMS, TEMP?
RHDMCC, TEMP3

HOMCC , TEMP4
PC,LGOVE
ERRCNT

:LOAD UP ERRM. AND REG OUIPUTS
SLOG TIME OUT WAITING FOR RUN

ERRSOFT 10.,DVEMS,ERR13

.WORD

INC

006464
031232

033650
173777
002000

JMP

006560
006560

DVINEX:

JSR

OPVAR

SCOUNT HOW MANY TIMES WE DO THIS.

PC,CLRRTS

SCLEAR RTS IF NESC

#INOVR,FLAG

“SET THE INITT OVER FLAG

DVINIT

BIC

0193777,FLAG

RTS

BIS

.WORD
-WORD

STRY ALL OVER AGAIN

“CLEAR FLAG WORD

CRETURN T0 CALLER

DVEMS

ERR3

CVCLMA DPV=11 DATA CUMM, LINK TEST
CVOLKA. P
25-JUL-80 10:26

MACY11

30A(1052)

25-JuL=-80
10:29 PAGE 136
DEVICE GET MODEM STATUS SUBROUTINE

.SBTTL

DEVICE GET MODEM STATUS SUBROUTINE

tee

FUNCTIONAL

DESCRIPTION:

"'DVMODS'*

IMPLICIT

GET MODEM STATUS

INPUTS:

THE BIT POSITION AND AVAILABILITY OF THE MODEM SIGNALS (TS,DSR,.. RI,.

FOUND IN THE DEPENDENT PORTION OF

THE

GLOBAL EQUATES SECTION.

QUTPUTS:

CURRENT MODEM SIGNAL VALUES IN "MODS"

CALLING SEQUENCE:
PC.DVMODS
JSR

032042

032074
032102

017737
042737
032777
00i403
052737
062737
000207

157276

000040
000040
000040
106720

007534
007534

DVMODS: MOV

157266

007534
007534

DVMEX:

ARXCSR,MODS

BIC
BIT

#B1T5,MODS
#BITS.QTXCSR

SCLEAR BIT §
:SEt IT TM QR SQ SET

BIC

#106720,%005

:CLEAR ALL UNUSED BITS

BEQ
BIS
RTS

DVME X
#8115, MODS
P

S1F NOT ENIT
T1F SET SET BIT S IN MODS
"RETURN T0 CALLER

SEQ 0135

CVCLWA DPV=11 DATA CUMM, LINK TEST
25-JUL-80 10:26
CVCLHA.PI

MACY11 30A(1052)

25-JuL=-B0

6N
10:29

PAGE 137

DEVICE QUEUE RECEIVE SPACE SUBROUTINE

.SBTTL

SEQ 0136

DEVICE QUEUE RECEIVE SPACE SUBROUTINE

FUNCTIONAL DESCRIPTION:

DVRXQ = THIS SUBROUTINE QUEUES THE RECIEVER BUFFER SPACE "0 THE
DEVICE, TMEN CLEARS THE QRX BIT OF THE FLAG WORD.

INPUTS:

DVRXA = ADDRESS Of RX BUFFER SPA(E
BYTE (YAR COUNT OF RX BUFFER
DVRCC
QRX FLAG BIT = SET BY CALLING ROUTINE

S 99

QUTPUTS:

QRX FLAG BIT

= CLEARED BY ROUTINE

CALLING SEQUENCE:
PC,DVRXQ
JSR

032104
032104
032112

000004

006560

000444
011420

000440
006452
000072
000070

DVRXQ:

BIT

#QRX,FLAG

006560

BIC

WARX+#BCC+#RXM, FLAG

006560
011406
011410

MOV

BEQ

ST
BEQ
BIS

MOV
MOV

006454

DVREX

RNODE
DVRX?2

000160

DVRX2:
140

DVRX3:

DVREX:

MOV
MOV
B!S

RTS

;CLEAR FLAG FOR RX

;1F NON ITEP GO T0 2

#RXM+EBCC,FLAG

:GET JUST THE DATA NC (RC.

#72 ,RMSGCC

SET UP R TO GET [TEP MSG.

DVRXA,RMSGPT

#70,DVRCC

DVRX3

CENABLE RX, RX

002657
002654

S1F NOT RX THEN EX|T
JELSE QUE Rx

INTERRUPTS,AND DATA SET

INTERRUPTS

#RHDMSG+1 ,RMSGPT
JSET UP POINTER
JAND (C
HDM( ,RMSGCC
WRINTEN'RXENA SDSITEN, IRX(CSR

CRETURN T0 C(ALLER

CVCLMA DPV=11 DATA CUMM, LINK TEST

MACY11 30A(1052)

222%

LSBTTL

CVCLMA.PI

25-JUL=-80 10:26

5644
5645

25-JuL-80

2222

DVTXRX=DEVICE TRANSMIT AND RECEIVE ROUTINE
THIS CODE QUES THE TRANSMIT BUFFER TO THE DEVICE
IF NEEDED. THE CODE TMEN WAITS FOR A TX COMPLE,
RX COMPLETE OR BOTH. THE CODE REPORTS A TIME OUT
ERROR IF NO OUTPUT INTERRUPT IS RECIEVED BEFORE
60 SECONDS. AFTER REPORTING ERROR TIMER IS RE STARTED

AND DEVICE WILL CONTINUE TO WAIT FOR INTERRUPT,

5655

:INPUTS:

ggg?

5656
5657
5658
5659

3
;
;
3

“DVTXA'' =
“DVTCC' =
“QTX'* BIT =
“ETX'' BIT =

“ERX'' BIT

5662

;OUTPUTS:

5669
5670

:
3

5663
5664
5665
5666
5667
5668

3
;
:
:
;
:

ADDRESS OF TRANSMIT MSG.
BYTE COUNT OF TRANSMIT MSG.
SET IF TRANSMIT REQUESTED
SET [F TRNASMIT EXPECTED

= SET IF RECIEVE EXPECTED

“DVTXA'' =
"DVTCC'' =
"QTX'"
=
"DVRXA'' =
“DYRCC'* =
"QRX''
=

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

gg;}

: SUBORDINATE ROUTINES USED:

gg;z

5675
5676

: CALLING SEQUENCE:
PC,DVTXRX
JSR
;

“LGDVE''

5679

032206

032737

000010

006560

DVTXRX: BIT

5681
5682

032216
032224

042737
004737

001030
033476

006560

BIC
JSR

5684
5685

032234
032236

001412
052737

000020

013737
000414

006440

5680 032214 001444
5683

5686

032230

032244

5687
5688

032252
032260

5691

032262

5693

032276

gggg

5692

5694

5695

5696

032270

032

032312

032320

005737

013737

006560

011400

#QTX,FLAG

DVIRS

#QTX+#TXM+PAD,FLAG
PC,CTSSR
RNODE

ANY TX TO QUE

“1F NOT GO WAIT FOR QUPUT
:CLEAR FLAG
;60 SET (TS

DVTRI
#TXM,FLAG

:1F NON-ITEP GO TO 1
:SET THE BODY BIT

MOV
Hh

DVTCC,MSGCC
DVTR2

AND SET UP FOR ACTUAL DATA

DVIXA MSGPTR

SENABLE TX AND TX [INTER,

000201

002645

013737

006440

002646

002645

013737

002654

052777

000120

012737

= LOG DEVICE ERROR TO EVENT LOG

BEQ
BIS

MOV

011376

112737

015737

BEQ

011420

006436

PAGE 138

DEVICE TRANSMIT AND RECEIVE SUBROUTINE

P
: FUNCTIONAL DESCRIPTION:

:
3
3
:
3
3

10:29

DEVICE TRANSMIT AND RECEIVE SUBROUTINE

646

5647
5648
5649
5650
5651
5652

W11

000177

011376

011400

011402
157024

DVIR1:

DVIR2:

MOVB

#201,HDMSG+1

MOV

DVTCC,HDMCC

MOV

#177,SYNCC

MOV

BIS

#HOMSG+1 ,MSGPTR

HOMC ,MSGCC

SUXENA'#TINTEN,RTXC(SR

;SET UP SOM

:SET POINTER TO HEADER

:SET CC FOR HEADER

:SET UP FOR 177 SYNCS.,

SEQ 0137

CVCLMA DPV=11 DATA COMM, LINK TEST
25=JUL-80 10:26
CVCLHA.PN

5698
5699
5700

032326

012737

5701

000074

006624

MACY11

30A(1052)

25=JuL-80 10:29 PAGE 139
DEVICE TRANSMIT AND RECEIVE SUBROUTINE

DVTR3:

MOV

#60.,TIMERS

;SET TIMER FOR 60 SECS

DVTRSB:

BREAK
TIMERS

;1S TIMER EXPIRED

006624

187

BNE

TOINOT

SEQ 0138

TRAP

($BRK

TRAP

gQERSOFY

;LOG ERROR TIME OUT RX OR Tx NOT COMPLETED
012737
017737
017737
004737
005237

016176
156766
156766

017246
006470

006522
006524
006526

W IV IV IV TV T IV IV TV TV TV ]
NNNNNNNNNN

uu*pnsnunz;hfluhu
N
W
=000~

032432

000100

006560

032434
032442

032737
001734

000004

006560

032444
032452

032737
001406

000200

032454
032462
032464
032470

032737
001724
004737
000207

000010

033650

006560

MOV

aTXCSR, TEMP4

aRXCSR,TEMP?

JSR
PC,LGDVE
ERRCNT
INC
ERRSOFT 7 ,DVEM2,ERR13

000007
016176
016722
000747
000010

#OVEM2
, TEMP?

MOV

104457

032737
001406
004737
032737
001416

MOV

TOINOT:

DVIR3Z

;RETURN TO C(HECK

BIT
BEQ
JSR

#QTX,FLAG
DVTR4
PC,CLRRTS

SIS IT Tx COMPL?

TIMER

JBRANCH [F TXx NOT DONE.

#ERX,FLAG

DVTREX

;ARE WE EXPECTING TO RY
;BRANCH [F NOT,

BIT

#ORX

;1S RX DONE

006560

BIT
BEQ

RETX,FLAG
DVTREX

;ARE WE EXPECTG TO Tx,
;BRANCH [F NOT,

006560

BIT

PATX,FLAG

JSR
nrs

PC,CLRRTS
PC

IS IT T COMPLETED
;GO BACK AND TIME QuT

BIT

BEQ
DVIRG:

BEQ

DVTREX:

DVTRE

DVIRS

,FLAG

;GO BACK AND TIME [F NOT

:CLEAR R'S

JAND EXIT

[F NESC.

.WORD
.WORD
.WORD

DVEM?

ERR13

CVCLHA DPV=11 DATA CUMM, LINK TEST

MACY11 30A(1052)

736
57%7
5738
5739
€740
%;2}

;

CVCLHA.PI

25-JUL=-B0 10:26

25-JuL=-80

J 1
10:29

PAGE 140

DEVICE TRANSMIT AND RECEIVE SUBROUTINE

SEQ 0139

DEVICE DEPENDENT SUBROUTINES

LSBTTL

DEVICE INTERRUPT SERVICE ROUTINES

§743

5744
5745
5746

1ee
; FUNCTIONAL DESCRIPTION:

5760

5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759

5761
5762
5763
5764
5765

:
:
:
:
:
;
:
:
:
3
:
3
:

RECEIVER INTERRUPT ROUTINE. WHEN A RX INT. OCCURS
THIS ROUTINE DECIDES IF IT IS A RX STATUS,DATA SET
CHANGE OR DATA INTERRUPT. IF IT IS A DATA SET CHANGE
INTERRUPT IT PUTS THE STATUS IN "'CMODS'' AND COMPARES
THAT STATUS TO THE OLD STATUS IN "MODS''. IF THEY ARE
THE SAME THAT MEANS THE INTERRUPT WAS CAUSED BY A GLITCH
ON ONE OF THE LINES. IF THEY ARE DIFFERENT THEN A HARD
MODEM ERROR HAS OCCURED. IN ANY EVENT THE MODEM STATUS
CHANGE IS LOGGED.
IF A DATA INT. OCCURS THE ROUTINE PUTS THE DATA AWAY
IN A BUFFER POINTED TO BY 'RMSGPT'' THE MSG. (OUNT IS
DECREMENTED BY ONE BYTE. IF COUNT IS EQUAL TO ZERO AND
"BCC'" BIT AND "RXM'' BIT IS SET THEN RX IS DISABLED AND

:
:
;
:
:

BUT "RXM'* BIT IS NOT SET THEN MSG COUNT IS SET TO LENGHT
RECVD IN HEADER AND ''RMSGPT'' IS SET TO RX BUFFER LOCATION
AND "RXM'* BIT IS SET.
IF COUNT IS EQUAL TO ZERO AND 'BCC'' 1S NOT SET THEN
COUNT IS SET TO 2 AND ''RMSGPT'' IS SET TO 'BCCW'' AND

“QRX'' BIT IS SET. IF COUNT IS 2ERO AND "BCC'' BIT IS SET

"BCC'' BIT IS SET.

g;gg

5768

5771
5772

:
:

5775

: SUBORDINATE ROUTINES USED:

5777

g;gg

2;;2
5776

5778
5779

S780
5781

§782
5783
5784
5785
5786
S787
S788
5789

AN ERROR IS LOGGED AND ''QRX'' IS SET AND THE RX IS DISABLED.
INPUTS:
RMSGPT - ADDRESS OF RX BUFFER

RMSCC = COUNT OF DATA TO BE RXED.

“'LoGMsC"
“'LGDVE"'

‘oo

032472
032472

032472
032500
032506
032510
032516

032520

032524
032526

§790 032534

§791

IF A STATUS INTERRUPT OCCURS THEN OVERRUN ERROR BIT IS CHECKED.

032542

017737
032737
001456
032737
001452

005737

100047
013737

156646
000010

011372
006554

002000

006560

032777

DVRXI

MOV
BIT
BEQ
BIT
BEQ

SRXCSR,IRXCSR
#MOCHK ,PARAM
RXIN21
#INOVR,FLAG
RXIN21

;MOV RX CSR TO [MAGE
:ANY MODEM CHANGES TO REPORT
:1F NOT IGNORE DS CHANGE.
;1S INIT OVER
:NO THEN IGNORE DS CHANGE.

RXIN21
IRXCSR,CMODS

:1F DATA SET CHANGE IS NOT SET BR
:MOV THE NEW MODEM STATUS IN

#TM,3TXCSR

011372

011370

BPL
MOV

000040

156602

BIT

042737 106760 011370

- LOG DEVICE ERROR

BGNSRV

011372

- LOG MODEM STATUS CHANGE

BIC

IRXCSR

#106760, CMODS

DVRX]::

CVCLHA DPV=11 DATA CUMM. LINK TEST

— ol

—_ NN
WEHE NS
NNV OoONNS

OO0O0O0

—

O~
O
o —
VOF

OO0

OO0OO0CO

OO =0

579

OO N—-O
VWO
NN~
S~
OO
O

25-JUL-80 10:26

CVCLHA IP

011370
006524
006526
006524

MACY11

RXIN2:

007534

BEQ
BIS

MOV
MOV
(MP

BEQ
INC

006522

30A(1052)

GLINC:
FYIN1:

K 11
25-JuL=-B0
10:29 PAGE 141
DEVICE INTERRUPT SERVICE ROUTINES
RXIN2

#TH,CMODS

CMODS, TEMP3

, TEMP4
MODS

TEMP4L, TEMPS
GL INC

;1F

;SET

TEST MODE SET
IT

IN NEW STATUS

;COMPARE OLD TO CURRENT
sINC GLITCH COUNT

MOV

MHRCNT
:H?D?SG,YEHPZ

MOV

MGLCNT
#GLMSG, TEMP2

;INC GLITCH COUNT
;SET UP GLITCH

MoV

(MODS ,MODS

;MOVE CURRENT TO OLD

BR
INC

JSR

XIN

PC,LOGMSC

SEQ 0140

s INC HARD COUNT
;SET UP HARD MESG.

;GO LOG MODEM STATUS CHANGE

“TEST FOR STATUS OR DATA
002200

011372

156470

011374
011372

000200

RXIN21:

BIT
BEQ
MOV

BIT

BEQ

#RSTARY!RDATRY, IRXCSR

RXINEX
aRDSR, IRDSR
#RDATRY, IRXCSR

RXIN3

:1F NEITHER EXIT
;1S

THIS DATA

:1F NOT GO T0 3

:GET HERE WITH GOOD DATA
RXING:

000400

006560

100000

011374

(=Y«
XV NP 3

011410

006524
006526
006522

1"
1"
16

PO
N
NS NN

032737
001544
017737
032737
001455

[=]lelelele]

032644
032652
032654
032662
032670

MOV
MOvB
MOV

RMSGPT ,R2

DEC
BNE

RMSGCC

IRDSR, (R2)+

R2,RMSGPT

:STORE DATA AWAY

‘PUT POINTER BACK

BIT

RX INEX
#BCC,FLAG

<GET OUT IF NOT ALL DONE
115 THE BCC FLAG ALREADY SE

BIT

#RERR, [RDSR

215 THE ERR CHK BIT SET

BNE

RXING

BNE

MOV

RXINS

IRDSR, TEMP3
IRXCSR, TEMP4
#OVEM3, TEMP2

‘BRANCH IF YES.
:G0OOD BCC.
*BRANCH If

INDICATING

GOO

PC,LGDVE
JSR
ERRCNT
INC
T 8,DVEM3,ERR13
ERRSOF

TRAP

.WORD
-WORD
-WORD

000400
000002
011412

006560
011410
011406

RXING:

RXIN8

:DISABLE

#BCC,FLAG

SSET

#BCCW,RMSGPT

;SET POINTER TO BCC WORD

#2. . RMSGCC
RXINEX

;STATUS (MECK

INTERRUPTS AND EXIT

FLAG

“SET TME COUNT T0 2

CSERSOFT

8
DVEM3
ERR13

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PIN
25-JUL-80 10:26
58«8
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863

033024
033032

032737
001454

002000

011372

MACY11
RXIN3:

30A(1052)
BIT

BEQ

25-JuL-B0

DEVICE

L N

10:29 PAGE 142
INTERRUPT SERVICE ROUTINES

#RSTARY, IRXCSR

RXINEX

;IS THIS A STATUS INT.

JEXIT IF NOT

;LOG OVERRUN ERROR
016333
011374
011372
017246
006470

MOV

006522
006524
006526

FOVEML, TEMP2

033034
033042
033050
033056
033062
033066
033066
033070
033072
033074
033076

012737
013737
013737
004737
005237

032737
001020
052737
042737
013737
013737
013737
000406

000040

006560

5869
5870
5871
5872

033100
033106
033110
6
033124
033132
033140
033146

000040
000400
006452
002660
002660

006560
006560
011406
011410
006454

5874

033150

052737

000004

006560

RXIN7:

BIS

#QRX ,FLAG

5876

033156

042777

000120

156160

RXINB:

BIC

#RINTEN+RXENA,QRXCSR

5865

SEQ 0141

MOV

MOV
JSR

IRDSR, TEMP3

IRXCSR, TEMP4
PC,LGOVE
ERRCNT
INC
ERRSOFT 9,DVEM4,ERR13

104457
000011
016333
016722
000424
RXINS:

RXIN7

BIT

#RXM,FLAG

BIS

#RXM,FLAG

BNE

BIC
MOV

MOV
MOV
BR

RXIN?

#BCC,FLAG
DVRXA,RMSGPT

RHDMCC ,RMSGCC
RHDMCC .DVRCC
RXINEX

TRAP

.WORD
-WORD
-WORD

;1S THE RX M BODY BIT SET

217 YES THEN ALL DONE

:CLEAR BCC AND SET RXM

'MOVE ADDRESS TO POINTER
-MOVE THE CHAR COUNT IN
:SET THE CC TO AMOUNT IN HEADER
JAND FINISH.

;SET FLAG BIT

:CLEAR INTAND RX ENABLE

RXINEX:

ENDSRV

33164

000002

L10020:

RTI

T
CSERSOF
9
DVEM4

ERR13

MACY11 30A(1052)

gggi

LSBTTL

5884

gggg

DEVICE TRANSMIT INT. ROUTINE

5888
5889
5890
5891
233%

;
;
;
;
:

WHEN A TRANSMIT BUFFER EMPTY CAUSES AN INTERRUPT TO OCCUR
THE PROGRAM COMES TO THIS ROUTINE.
IF THE SYNC COUNT''SYNCC'' IS NON ZERO TSOM IS SET
A SYNC CHAR IS LOADED TO TDSR AND THE SYNC COUNT IS
DECREMENTED.

5894
5895
5896
gggg

:
3
:
s

IF THE SYNC COUNT IS ZERO TSOM AND TEOM ARE RESET
AND THE "'PAD'' BIT IN FLAG WORD IS CHECKED IF IT IS
SET THEN A PAD(377) CHAR IS LOADED TO TDSR AND TX
INTERRUPT ENABLE IS CLEARD.

5899
5900

;
;

IF THE SYNC COUNT IS ZERO AND THE ''PAD'' FLAG IS
CLEAR THEN A BYTE IS PUT IN TDSR FROM THE ADDRESS

5903
5904
5905
5906
5907

;
;
;
;
;

IF THE MSG COUNT GOES TO ZERO THE ''TXM'' BIT S
CHECKED IF IT IS SET THE "PAD'' FLAG IS SET
IF IT IS CLEAR THEN IT GETS SET AND MSGPTR IS
LOADED WITH THE ADDRESS OF TXBUFF AND THE MSG
COUNT 1S LOADED WITH THE COUNT OF THE MSG TO

§910

5913

: OUTPUTS:

CVCLMA. P11

25-JUL-80 10:26

5885

:
:

5911
§912

;
;

gg}g

5918
5919
§920
5921
§922
5923
5924

5925

5935
59%

§93%7

DEVICE TRANSMIT INTERRUPT ROUTINE

BE TRANSMITTED.
INPUTS:

033166

033166
033166
033172
033174
033202
033206
033210

033216

005737
001406
013777
005337
001056
042777
032737

011402

011404
011402
001400

001000

156152
156136

006569

TxXIN1:

0332£8
033250
033252
833253
3326
833593
033
033274

033302

052737
000435
01370;
112277
860;37
$337

001024
052777

032737

000010

006560

TXIN2:

011376
156072
011376
011400
001000

000020

156052

006560

MSGPTR = IS SET TO THE ADDRESS OF THE MSG OR HEADER TO BE TX'D
MSGCC = IS SET TO THE COUNT OF MSG TO BE Tx'D
QTX = THIS BIT IS SET WHEN MSG IS TX'D OK.
BGNSRV

DVTXI

ST
BEQ
MOV
DEC
BNE

SYNCC
TXINY
SYNCW,aTDSR
SYNCC
TXINEX
#TEOM' TSOM,aTDSR
;1S THE PAD 8IT SET
#PAD,FLAG

BIC

BIT

BEQ
MOV
BIC

5926 033224 001412
5927 033252 012777 000377 156120
042777 000100 156110
5928 033234
5929
5930
5931
59
593
5934

PAGE 143

IN MSGPTR AND THE MSG COUNT IS DECREMENTED

5908
5909

$917

10:29

DEVICE TRANSMIT INTERRUPT ROUTINE

; FUNCTIONAL DESCRIPTION:

2385

5916

25-JuL=-80

CVCLMA DPV=11 DATA COMM, LINK TEST

DVIXI]::
SEND
TO
:ANY SYNCS
:1F NOT GO TO 1
:ELSE SET TSOM AND SYNC WORD
:DEC SYNC COUNT
;1F NOT 2ERO EXIT

16O TO 2 IF NOT SET
TXIN2
:LOAD FF TO TX DATA REG.
#TINTEN,QTXCSR :CLEAR TX INT ENABLE

#377,3TDSR

BIS
fr
MOV
MOVB
MOV
DEC

#QTX,FLAG
TXINEX
MSGPTR,R2
(R2)+,aTDSR
R2,MSGPTR
MSGCC

:SET THE TX COMPLETE IN FLAG
sAND EXIT
:LOAD R2 WITH TX ADDR.
:LOAD DATA BYTE
;RESTORE POINTER
:DEC CC

BIT

#TXN,FLAG

;1S THIS THE END OF DATA MSG,

BNE
BIS

TXINEX
#TEOM,QTDSR

SEQ 0142

CVCLHA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26
CVCLHA.PTN

5958
5939
5940
5941
5942
5943

033310
033312
033320
033326
033334
033336

5945
5946
5947
5948

033344
033344
033344
033344

5944

001012

052737

000020
006436
006440
001000

MACY11 30A(1052)
BNE
BIS

006560
011376
011400

006560

TXIN3:
TXINEX:

000002

Mov
MOV
BR
BIS

ENDSRV

25-JUL=-80 10:29 PAGE 144
DEVICE TRANSMIT INTERRUPT ROUTINE

SEQ 0143

TXIN3
#TXM,FLAG

;1F SO SET THE PAD BIT
;1F NOT MUST BE END OF HEADER

TXINEX
*
#PAD ,FLAG

;SET THE PAD BIT

DVTXA,MSGPTR
DVTCC,MSGCC

;SO SET UP MSGPTR FOR MSG
;AND THE CC FOR MSG.

L10021:

RTI

CVCLHA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26
CVCLHA. P

MACY11 30A(1052)

B 12
25-JUL-80 10:29 PAGE 145
DEVICE TRANSMIT CONTROL MSG
DEVICE TRANSMIT CONTROL MSG

.SBTTL

SEQ 0144

FUNCTIONAL DESCRIPTION:
THIS ROUTINE DOES THE FOLLOWING

QUES A RX SPACE AT RHDMSG+1
QUES A TX MSG_FROM HDMSG+1

CHECKS FOR A TIMER EXPIRED
IF EXPIRED RETURN TO CALLER
ELSE CHECK FOR A TX MSG COMPLETED
IF TX COMPLETED CHECK FOR RX COMPLETED

ELSE RECHECK TIMER AND TX COMPLETED UNTIL
EITHER TX COMPLETE OR TIME OUT
IF TX COMPLETE AND RX NOT COMPLETE THEN
REQUE

TX MSG.

ELSE IF RX COMPLETE RETURN.

. INPUTS:
:

TXM

- SET

HDMSG+2

IN FLAG WORD

- TYPE OF LONTROL MSG..

' SUBORDINATE ROUTINES USED:

- CLEAR REQUEST TO SEND IF HALF DUP.

RETURN:

JSR

PC,DVINT

RETURN TO CALLER IF

SOMETHING RX'D OR TIMER OUT.

“CLRRTS"

CALLING SEQUENCE:

033346

042737

000004

006560

DVIN31: BIC

033354
033362

012737
013737

002657
002654

011406
011410

MOV

033370

052777

000160

155746

BIS

MOV

FQRX,FLAG

;CLEAR RX COMPLE.

#RHDMSG+1 ,RMSGPT

;SET UP POINTER

HOMC ,RMSGCC

sAND C(C

;ENABLE RCVR.

#RINTEN!RXENA!DSITEN,aRXCSR

;SET UP TXMITTER TO SEND
033376
033402
033410
033416
033424
033432

004737

DVIN32: JSR
BIC
MOV

033476
001010
002645
002654 000010
000120

MOV

MOV
BIS

PC,CTSSR
#QTX!PAD,FLAG
#HDMSG+1 ,MSGPTR

;SET RTS .
;CLEAR TX COMPT FLAG.
sMOVE THE CURRENT POINTER TO MSGPTR.

#8.,5YNCC
#TXENA!TINTEN,3TXCSR

;SET UP SYNC COUNT

HDMC ,MSGCC

23883883

FSFLERES

gssssass

333333

;NOW WAIT FOR TIME OUT OR TX COMPLETE
DVIN3S: BREAK
ST

006624
000010

006560

BEQ
BIT

033650
000004

006560

BIT

BEQ
JSR

TRAP

TIMERS

DVIN34
#OTX,FLAG

DvINSS

PC,CLRRTS

#ORX,FLAG

1S 1T TIMED OUT

S1F YES EXIT
1S TX DONE

“1F NOT GO BACK AND CK TIME OuT
‘GO (LEAR RTS IF NESC.

"DIM WE RX ANYTHING

($BRK

CVCLMA DPV=11 DATA (UMM, LINK TEST

CVCLHA.PT
6005
6006

6007

033472
033474

25-JUL-80 10:26
001741
000207

MACY11 30A(1052)
BEQ
DVIN34: RTS

25-JuUL=-80

¢ 12

10:29

PAGE 146

DEVICE TRANSMIT CONTROL MSG
DVIN32
PC

;1F NOT RETRANSMIT LAST
;RETURN TO CALLER

SEQ 0145

CVCLHA DPY=11 DATA CUMM, LINK TEST
CVCLKA.PIN
25=JuL=-80 10:26

MACY11 30A(1052)

D 12

25-JuL=-80 10:29 PAGE 147
DEVICE RTS TO CTS DELAY

DEVICE RTS TO CTS DELAY

LSBTTL

6018

6009
6010

Jee

6012

AND CHECKS FOR CLEAR TO SEND TC COME BACK

6014
gg:z

:
:

AND ERROR IS REPORTED AND WE TRY AGAIN.
THE ROUTINE IS SKIPPED IF INTERNAL LOOP IS SET.

; FUNCTIONAL DESCRIPTION:

CTSSR==THIS ROUTINE SETS REQUEST TO SEND TO MODEM

6011

IF CTS DOES NOT COME BACK BEFORE TIMER EXPIRES

6013

6017

6018
6019
6020

;s OUTPUTS:
:

6022
6023

: CALLING SEQUENCE:
JSR
3

: SUBORDINATE ROUTINES USED:

“LGDVE'' -

6021

6024
6025
6026

J--

28%;

033476

022737

gg%g

033504

001460

000001

006550

C(TSSR:

6033

033506

032737

004000

006560

6035
6036
6037

033516
033524
033530

012737
005237

000000
006516

006516

033532

005737

006516

033540
033546
033554
033562

052737
052777
012737

004000
00000&
001750

6038

6039

033514

033530

6040

033536

6045

033562

6041
6042
6043
6044

6046
6047
6048
2828

033564
033572
033574
033600

001014

104422

001372

21 MLTYP

;1S THIS TTL LOOP

BEQ

DVTXR9

:BR IF YES

104422

032777
001025
005737
001370

020000

DVTIXR3: BIT

BNE

(T1S354:

MOV
INC
BREAK

006560
155570
006620

BNE

BIS
(T1SS3: BIS
MOV
DVIXR2: BREAK

155552

006620

BIT
BNE
ST
BNE

#FIRST,FLAG

(15S3

#0,TEMP
TEMP
TEMP

(71554

#FIRST,FLAG
PRTS ,@RXCSR
#1000.,TIMERY

#CTS,aRXCSR
DVTXR1
TIMER
DVTXR?

:1F NOT FIRST TIME SKIP DELY

TRAP

( $BRK

TRAP

($BRK

TRAP
.WORD
.WORD

(SERSCFT
6
DVEM!

:if NOT ZERO GO BACK

;SET FIRST FLAG.
:SET REQUEST TO SEND
;SET UP TIMER

:1S CLEAR TO SEND BACK
:BR. IF CTS IS SET
CELSE TEST IF TIME EXPIRED
:BR IF TIME NOT EXPRIED.

;SET ERROR FOR NO (TS

6053
6054

033602
033610

6058

033634

033616
ossogs
0336

6059 033636
6060 033636
6061 033640

012737
017737

017737
004737
005237

104457
000006
016114

6062 033642 016722
6063

PC,CTSSR

(MP

TsY

2821

6055
6056
6057

LOG DEVICE ERROR

;SET RTS AND WAIT FOR (TS

28%}
6034

SEQ 0146

033644

000720

016114
155530

155530
017246
006470

006522
006524

006526

MOV
MOV

MOV
JSR
INC

#OVEMT,TEMP?
SRXCSR,TEMPY

STXCSR, TEMPL
PC,LGDVE
ERRCNT

ERRSOFT 6,DVEMY ERR13Z

DVTXR3

THEN TRY TO SET RTS AGAIN

.WORD

ERR13

CVCLMA DPV=11 DATA (UMM, LINK TEST

MACY11

6064
6065

DVTXRY:
DVTXR9: RTS

(VOLMWA. P

033646
033646

25-JuL-80 10:26
000207

30A(1052)

3 12
25-JuL=-80 10 2 9 PAGE 148
DEVICE RTS TO ( 1 ) DELAY
PC

SEG 0147

CVCLMA DPV=11 DATA COMM, LINK TEST
25=JuL-80 10:26
CVCLMA P

6067
6068
6069
6070

6083
6084
6085

F 12
25-JuUL=-80
10:29 PAGE 149
DEVICE CLEAR REQUEST TO SEND

SEQ 0148

DEVICE CLEAR REQUEST TO SEND

FUNCTIONAL

DESCRIPTION:

THIS ROUTINE

CLEARS REGUEST

IN HALF DUPLEX MODE
CALLING SEQUENCE:

6071

6081
6082

30A(1052)

SBTTL

60t6

6072
6073
6074
6075
6076
6077
6078
6079
6080

MACY11

JSR

PC,CLRRTS

FHDPLX

TO SEND

I[F

CLRRTS:

033650

033650
033654
033656
033664
033670

005737
00101
012737
005337
001375

006552
002000
006522

006522

033672
033700

042777
000207

000004

155444

BNE

CLRR1:

DVIRS:

MOV
DEC
BNE

BIC

RIS

DVTRS
#2000, TEMP?
TEMP2

CLRR1

#RTS ,@RXCSR
PC

;1S THIS FULL DUPLEX
;BRANCH [F

YES

;DELAY A WHILE TO ALLOW CRC
;70 BE TXMITT'D BEFORE YOU
;CLEAR REQUEST TO SEND
;RETURN TO CALLER

—

mem—

(VCLWA DPy=11 DATA (UMM, LINK TEST
(VCLHA P
25=JUL-80 10:26

606
6087
6088
6089
6090
6091
6092

MACY11

30A(1052)

6 12

25-JuL=-80
10:29
PAGE 150
DEVICE CLEAR REQUEST TO SEND

SEQ 0149

.EVEN

033702
033702
033702

ENDTST

104401

L10017:

TRAP

(SETST

CVCLHA DPY=11 DATA CUMM, LINK TEST
CVCLHA. P
25=JUL=-80 10:26
0v3
6094

MACY11

30A(1052)

H 12
10:29 PAGE 151
25-JuL-80
DEVICE CLEAR REQUEST TO SEND

SEQ 0150

—————

CVCLMA DPY=11 DATA CUMM, LINK TEST
CVCLHA 1
25=JuL=-80 10:26
60%9
6096
6097
6098
€099

10:29

.SBTTL

HARDWARE PARAMETER CODINC SECTION

HARDWARE PARAMETER CODING SECTION

PAGE

152

SEQ 0151

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

6103
6104
6105

6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118

30A(1052)

6100
6101
6102

6106

25-JuL-B0

MACY11

033704
033704
033706

BGNHRD

000016

L$HARD::

DEVICE

LSBTTL
033706
033706
033710
033712

GPRML

000130
033742

033722
033724
033724
033726

033740

INDEPENDENT SECTION

DPLX,0,1,YES

160000
177776

GPRMA

00203
034021
000300
000776

GPRML

006130
034054

(SRADR,2,0,160000,177776,YES

.WCRD
.WORD
.WORD
.WORD

VECTOR,4,0,300,776,YES

.WORD
.WORD
.WORD
.WORD

RNODM, 4,1, YES

.WORD
.WORD
.WORD

000001

ENDHRD

L10022:

033742
CNLIST

BEX

:DEVICE INDEPENDENT QUESTIONS
052506

046114

042040

DPLX:

T$CODE

?PLl

DEVICE DEPENDENT SECTION
GPRMA

001031
033773

033742

.WORD
.WORD
.WORD

000001

LSBTTL
033714
033714
033716
033720

.WORD L10022-LSHARD/?2

JASCIZ

/FULL DUPLEX OPERATION : /

;DEVICE DEPENDENT QUESTION

EVEN

T$CODE

CSRADR
TSLOLIM
TSHILIM
T$CODE

VECTOR

TSLOL IM
TSHILIM

T$CODE
?NODH

(VCLMWA.PIN

033773
034021
034054
6144
6145
6146

25=JuL=-80 10:26
106
111

042 522

0531 0 5
0521 1 6
0475 1 5

041511
051105
042524

J 12
MACY11 30A(1052)
25-JuL-80
10:29
DEVICE DEPENDENT SECTION
CSRADR: ,ASCIZ
VECTOR: .ASCIZ
RNODM:
ASC 17
BEX
LIST
EVEN

PAGE

153

CSR ADDRESS : /
/DEVICE
/INTERRUPT VECTOR ADDRESS:
NODE "'ITEP'':/
/REMOT
moOm

(VCLMA DPY=11 DATA CUMM, LINK TEST

SEQ 0152

CVCLMA DPY=11 DATA (UMM, LINK TEST
25-JuL-80 10:26
CVCLHA.PI

PAGE 154

SEQ 0153

;.SBTTL SOFTWARE PARAMETER CODING SECTION

617
6148
6149
6150
6151
6152

‘he

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD F-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

6153
6154
6155
6156
6157
6158
6159

6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181

K 12
MACY11 30A(1052)
25-JUL-80 10:29
DEVICE DEPENDENT SECTION

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE NPERATOR.

BGNSFT

ENDSFT

L TEMPORARY
PATCH AREA = FOR DEBUG PURPOSES
"""
034100
034100

000030

SPAT(H

LASTAD

034160

034160
034162
034164
034164

BLKW

000000
000000

000001

LSLAST::
.END

ENDMOD

.FVEN
.WORD
.WORD

0
0

L 12

CVCLHA DPV=11 DATA COMM, LINK TEST

MACY11 30A(1052)

25-JuL=-80

ACT
=
ACTATV
ACTBCR
ACTCHK
ACTCLB
ACTCLP
ACTCLR
ACTCOP
ACTCRC
ACTCSE
ACTCST
ACTOLL
ACTDME
ACTDMQ

4736

4816

5041

4811
4804
4728
4721

4813
4817
47334
4723

4B16#
LB26#

4725

L732%

4748

4751

4754

4758#

4789

4792

47964

L6220

Lb4

CVCLMA.PI

ACTOMS
ACTOMX
ACTECH
ACTEQD

ACTHLP
ACTLIS

ACTLLP
ACTLPX
ACTLXX
ACTMEX
ACTMEY

25-JuL=-80 10:26

000003
026430
026272
026644
025614
026756
025314
026112
026660
025440
025532
026476
026040
026032

026010
026046
026554
026234

025334
026466

026766
027004
027046
026422
026414

ACTMOP
ACTMOS
ACTMSO
ACTMSY
ACTMS2
ACTMS3S
ACTMSL
ACTMSS
ACTMS6

026736
026666
026314
026322
026332
026342
026352
026362
026400

ACTNUF
ACTNUL
ACTNUM
ACTOPM
ACTPAS
ACTPRO
ACTPRT
ACTOFG
ACTREC
ACTRLP
ACTRPS
ACTRUN
ACTSHO
ACTSHW
ACTSTE
ACTSTS
ACTSTT
ACTSTX
ACTSZE
ACTTAL

025304
025312
026122
026214
026440
026674
025400
026700
026460
026776
026726
025414
025324
025654
026054
026652
026064
026072
026102
026516

ACTM2X
ACTNO

026524
026544

15460
4526
4544
4506
4597
4540
4504
4514
4535
4509
4510
4530
4546
4547

4545
L6564
4534
4518
4508
4529

45461
4807
4780
4690
4717

4538
4549
4519
4520
4521
4522
4523
4524
4525

4737
4533
4543
4503
4515
4516
4527
4536
4548
4783
4528
4542
4537
4507
4505
4589
4511
517
4512
666§
5
4532

4321
L7360
4708#
L7824
W11
48104
45554
L6710
47884
4583
L5994
47504
4652
L6540

10:29

46554

LHL9N

L7664
L6974
4S61#
L7478

LB12#
4809
4801
4706
4719

4806#
4791
L7164
L7184
4720m
47224
L7240
L7264
W72

4745
47638
4552#
4553
LH74n
“6924
4735
47940
WS74n
4786
L7440
B840
4B803#
45784
45584
4603
L6614
47854
L664Ln
46654
46684
L7560

PAGE 156

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0154

M2
MACY11 30A(1052)
25-JuL-80 10:29 PAGE 157
CROSS REFERENCE TABLE == USER SYMBOLS

026746
026506

5061
5093

50684
5090

OO =N OWOON
N:O.-‘o-‘co.—‘O\hfl&NNWb VIO N

i
i i
i i il
il e e
e
D e
i i
e

&S — et o i e el e D o
WO ooV

Tl a T a T a T a T

ol a Lol f o X o)

BN ASVNANANAN N

OOV
SRS
NO oI
—\)
= OOONNOO ~000000 — <000 ®OOOVT®ITNN-NNO
—

4930

81703 = 000010
81104 = 000020
81105 = 000040
81706 = 0001C0
81107 = 000200
BIT08 = 000400
81109 = 001000
BIT1 = 000002
81110 = 002000
BIT11 = 004000
Ulllg = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
Dlli = 000004
= 000010
BITS
BIT4 = 000020
BI11S = 000040
lllg = 000100
= 000200
8117
BIT8 = 000400
BIT9 = 001000
BLDBEX 021312
BLDBUF 021202

4478

Il a il

ADDCC
021104
ADDC1
021200
ADR
= 000020
ALCK
027376
ALCKY
027504
ALCK2
027550
ALCK2A 027770
030014
ALCK3
ALCK3A
030106
ALCk38 030120
ALCK3C 030114
ALCKG
030142
ALCK&A 030150
ALCK4B 0307162
ALCKS
027434
ALLTR
027434
ASSEM8= 000010
ATVMOD= 000027
006537
BAD
BADCHR= 000051
01457
BASM1
BASM2
014562
014553
BASM3
BCC
=
00
BCCW
011412
00(5(
013310
= 000001
8170
817100 = 000001
81701 = 000002
81702 = 000004

(A Iala

ACTTLP
ACTTRA

VOO
OW— =0
=

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PIN
25-JUL-80 10:26

50044

5169+

5629

5823

1596

1703

5841

1696

1704

1688
1706
1697
1690
1708
4845

1705

4848

1710

5504

4437

479

1707
1691

5868

1675

5594

4618

4857

SEQ 0155

CVCLMA DPV=11 DATA COMM, LINK TEST

CVCLWA.PT1

25-JUL-80 10:26

MACY11 30A(1052)

25-JuL-80

N 12

10:29

021212
BLDBY
021254
BLDB?
BLDB3
02127¢
= 000400 G
BOE
BUFEX
013455

36094
36170
36208
15230
25450

4409

4450

BYTBIT 006476
CABLE = 000002
CBLLOP= 000045

19268
15530
16684

3510
5474
2233

4650

4654s

1893

3562

3574

4316

4477

44B2+

4596¢

4399

4555

2161

2215

2102
2158
2203

2106
2166
2208

BUFLIM= 001000
CCURAD

0064
34

15340

19068

1891

4308«

CLIBRX 011571
CLIDEC= 00(011
CLIERM 011474
CLIERR= 000000

23460
16278
23348
16180

CLINBG 011547
CLINPS 011653
CLINUF 011524
CLINUM= 000005
CLIOCT= 000010
CLISEO 011763

23420
23550
23380
16234
16268
23680

3888
4772
4381
2153
4679

2155

CLISTR= 000012

16084
2125
2183

2095
2128
2190

2097
2130
21z

CLITRE
CLISPM
CLKBR

20882
23330
19848

CLIEXI= 000001

CLISPA= 000004

CLKCSR

CLKEN
CLKHZ
CLKINT
CLKSET
CLKVEC
CLRRTS
CLRR1
CMDBUF

(Wops

CMPBUF

007672
011466
006602

006600

006610
006606
017042 6
017016
006604
033650

16220

1983#

19878
1986#

2100
2148
2201
3845
2226
4372
2110

2094

5131

2126
2193,
223

2129
2195
2238

2131
2197
2243

2119
2171
2231

2121
2176
2233

2123
2180
2235

4594

4832«

5133

2106
2147
2200

2108
2163
2202

215
2165
2217

M7
2169
2219

3111
3093

3111e

404kt
3108

4036

4054+

4055+

4056+

4066+

4196+

4275e

5721

4053
4064*
5733

4135
6003

6075#

5790«

5793«

579

5804

4315

4kble - 4475t

4476

44BOe

45B3e

4584

4593+

4365
4359
4065+

3090«

4308

5080
51620
51654

2122 - 2124
2191
218
2234
2232

2103
2145
2198

18934

030162
030322
030326

2120
2181
2225

2152

005132

CMPSEX 030436

2118
2177
2220

2144

6081
4357

19038

2109
2172
2218

2135

60804
18384

22778

2107
2170
2211

2114

033664
002666

011370

4853

2139

4134
4043
4034+

§567

4611

2137

2092

5789«

4303e

5219#

5130#
5180

2096

4447

2242
2212

4406

2098

30884
30438
1985#

CMPPTR 006426
(PSR
(WPS1
(MPs2

16198

2165
2103
4496H
2210
2151
4709
4821

1892

16348
16320
4366
1625¢
16248
23610
23490
16214

16204
2146
2199

SEQ 0156

3624
3625

CHECK = 000003
CLEAR = 000001
CLIACT 025130
CLIALN= 000007
CLIALP= 000006
CLIBCR 011716
CLIBDL 011611
CLIBIF= 000003

CLIBR = 000002

PAGE 158

CROSS REFERENCE TABLE == USER SYMBOLS

4364

4595

2099
2136
A%

4057+
3245

2101
2138
21%

4066
4070

4275
4088

2248

2209

————————
e

B 13

CPTRR

006504

(R
CRC
=
CRCB =
CSHEXP=
CSHTRN=
CSRADR

015622
000040
000020
000006
000007
033773

51784
459

4462

44B1¢

4586

4590+

4835

3611«

4311«

4315

L4434

4438

L4776

4952«
4905+«

5334+

5017
4928+

4954+

5034
5007

4591+

5022+

5084+
5012«

5091
5040+

4607+

4855+

4480

4594+

5045

5054+

5141+
5067+

4440
4306+

4477
4318

4482
L6140

4612+
4686+

5713

5834

5859

6059

5132+

5137

5380+
5088

4882+

5133«

4788

2136
2138
61434

4446
6046
5682

4457

L4B3e

5988

6027#

3614
3573
4732+

3616
3576+
4853+

4310

4435

5448

5502

5537

5998

6045

4039
4212

4049

5154

5172

4298+

2010
5527
60424
6040
3609
3561
4730+
4255
4185

B el

o
e

T TP 22 L

o
e
e
e

—

) i
D i
il i
D il
ld i
ld oD i
i
D il

3626

3610

914

NN NN
SN N LN LN NSNS LS LS LN LY QSLNLNL
VOO OOOOOO0OO0 VO OOOO0

($ESEG= 000005

LB79+
5146+
3229

CTOTCC 006432
TS
= 020000
CTSSR
033476
CTSS3
033546
033524
CTSS4
CURADD 006510
006502
CURCC
CSAU_ = 000052
C$AUTO= 000061
C$BRK = 000022
($BSEG= 000004
(s8suB= 000002
CSCEFG= 000045
C$CLCK= 000062
CSCLEA= 000012
($CLOS= 000035
C$CLP1= 000006
CSCVEC= 000036

]

Vo
nNO

sSswW

16534

SEQ 0157

5192
O O VO VOOV ONNOO 0
SHFONNOON o
- OO
2 ®
=

w
N

MACY11 30A(1052)
25-JuUL-80 10:29 PAGE 159
CROSS REFERENCE TABLE == USER SYMBOLS

N SIS ST ST NN NP gV IV A
OP = ) b b d e N = e

B \SVNNN N

22l o’ oL’ oD * St 0" HOWVIO~000o W
oo~
O oo
= =
uxen

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA. P
25-JUL=-80 10:26

030214
CMPSS
030424
CMPSS
CMPSSA 030430
C(mPSé
030372
CMPS7
030310
CMPTOT 006430
(MSGO = 000020
CMSG1 = 000021
CMSG2 = 000022
CMSG3 = 000023
CMSG4 = 000024
CMSGS = 000025
CMSG6 = 000026
CONOTM 006532
CONTIN 006534
CPTR
006506

—

914

5185

5228

5459

5496

5560

4854+
4699+

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JUL-80 10:26
C$ESUB= 000003
CSETST= 000001
CSEXIT= 000032
CSGETB= 000026
CSGETw= 000027
CSGMAN= 000043
CSGPHR= 000042
C$GPLO= 000030
CSGPR1= 000040
CS$INIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
CSPNTB= 000014

1291#
1291%
1291#
1291#
1291#
12914
1291#
12914
1291#
12914
1291
12914
1291#
12914
12914
12914

CSPNTS= 000016

12914

CSPNTF= 000017

12914
gggg

CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013

3469
12914
12914
12914
12914
1291%
12914
12914
12914
1291#
1291#
12914
12914

pco
DCK
DDE
DER

16874
1586#
15914
15840

C$PNTX= 000015
($Q10 = 000377

DATCkB= 000002

DEV1
DEV?2
DEV3
DEV4

=
=
=
=

DFPTBL
DIAGMC=
DIVN91
DLE
=
DLL
pLLCM
pLLMOD=
DMPE =
pMPQ =

010000
000014
000022
000010

007662
007664
007666
007670

002130 G
000000
031662
000020
030556
013230
000033
000053
000054

pMPS = 000052
DMSGAD 002172
DMSGCT 002150
DOW
= 000004
033742
DPLX

15674

2068#
20694
20704
20714

14204
1291
55344
1590#
1977
25164
16588
16748
1675#

16734
1738#
17254
1547#
6116

609
4161

13
MACY11 30A(1052)
25-JuL=-80 10:29 PAGE 160
CROSS REFERENCE TABLE == USER SYMBOLS

ic? 0158

4204

4345

4355

5312

2920

2933

2947

2961

2981

3001

2916

2929

2943

3508
4454

2957

3519
4470

2977

2997

3571
4637

3848
4L682

3891
4712

4083
4775

4288
4824

4330
5282

4375
5373

3280

3303

3317

3330

3343

3351

3375

3391

3406

L ¥4

3429

3449

4061
4012
4201
1354

4017

4022

4028

4159
4137

4199
6147

4154

3680

4782

4901

5086

5130

5306

5368

4068
4103
4169
4339

3232
4413
3671

3240
4428
3702

3527
L567

3981

2012
3186
3194
3172

3336+
3337«
3359+«
3360«
5539
3190
52774
5279
2125
2155
2157
2153
3618
3617
4750
61430

3347
3346
3662
36758

3355+
3356+
6334
3680

4395

4651

578

5037

3357«
3358+«
4,644y
3684

3652
3655

4332
43330

4642
4643

3689

4335¢

46450

0D 13

CVOLMA DPV=11 DATA COMM, LINK TEST
CVCLMA.PIN
25-JuL=-80 10:26

SEQ 0159

5061
5715
5836
5861
5562
5498
5510
5463

5547

5567#

5377«
5039«

5388
5043

5390+
5063+

5391«
5064

5632+«
5134

5375+

5387

5390

5630

5869

5693
5081

5941

5535
5565

5500
59784

55064

5328

waon

55544

O w

131

5461

032162
032176
006440
006442
032470
032§62
032312
032326
032434
033700
032334
006436

161

5506

&S un

DVRX2
DVRXS
DVICC
DVICT
DVIREX
DVTRY
DVIR2
DVTRS
DVIRG
DVIRS
DVIR8
DVIXA

02#

S NO N WS 2 u

020752
016035
016114
016176
016273
016333
016377
016463
000012
032020
031232
031314
031350
031374
033346
033376
033474
033440
031502
031410
031462
031572
031552
031704
031746
031612
032074
032042
006454
006456
032204
52
032472
032104

020776

5984

VNN NN O WV NN NN
S VoN0D NO S
VIV
N O WV N NN ~o

DUM&
DVEMO
DVEM
DVEM2
DVEMS
DVEML
DVEMS
DVEM6
pvl
=
DVINEX
DVINIT
DVINI
DVINS
DVIN3A
DVIN31
DVIN32
DVIN3L
DVIN3S
DVIN3Z?
DVIN38
DVIN39
DVING
DVINGT
DVINE
DVINBY
DVING
DVME X
DvmOoDS
DVRCC
DVRCT
DVREX
DVRXA
DVRXI
DVRXQ

puUM3

4848

—

000900
011366
000040
001000
000002
021102
020746
021040
021062

N —

pPV
=
OPVP1
DSITEN=
DSR
=
DTR
=
DUME X
DUMPSR
puM1
DUM?

MACY11 30A(1052)
25-4tiL-B0
10:29 PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

5338

5686

5940

5871«
5197«

CVCLKWA DPV=11 DATA (UMM, LINK TEST
CVCLKWA. PN
25-JUL-80 10:26

5025
6047
60440
60334
6029
16624
1568#

2038
2041
2036
2040

S918#4
5336
6064H
6049
6063
6065#
217
3684
2633
26478
26304
26428
26384
26524
26554
26264
26224
2618#

5385

S679#

4758

4768

$174

5187

4778

5032

162

SEQ 0160

5156

2614m

2940
2954
2926

4021
4027

4016
40N
17504
17524
17540

L4655+

3296

34364

32n
6057+

4841

5152+«

5170+

5499

5563

5716

5837

4929
4955

4955

5059

5060

5076

wOo

6151

016550
016640
016722
016754
016612
016670
000100
000200
000004
015564
015574
015570
015444

(]

ERR1
ERRI0
ERR13
ERR14
ERR2
ERR&
ERX
=
ETXx
=
=
Evt
EVACTS
EVMDCD
EVMDSR
EVMOCG

(AT
AT AR~

oo oo

DVIXi
033166 G
DVIXRX 032206
DVIXRY
03446
DVIXR2 033562
DVIXRY 033506
DVIXR9 033646
ECHO = 000037
ECHOB = 000004
014345
EDDCK
EDDDE
014460
EDDER
014330
EDDLE
014423
014375
EDDVI
EDEOP
014513
014527
EDMOS
EDRXC
014302
014255
EDRXQ
EDTXC
014226
EDTXQ
014202
EFM11
014002
014131
EFM13
013705
EFM2
EF.CON= 000036
EF .NEW= 000035
EF .PWR= 000034
EF .RES= 000037
EF.STA= 000040
002215
EMSGO
EMSGY
002216
002217
EMSG2
EMSG3
002220
002320
EMSG4
EMSGS
002412
002513
EMSG6
002643
EMSGB
006474
ENADD
ENDEVT 020624
ENDIT
023442
ENDPS
030476
ENDQO = 000017
= 000024
EOP
ERRCNT 006470

13
MACYT1 30A(1052)
25-JuL=B0
10:29
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

5226

5256

5457«

5494+

5558«

5711e

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLKWA.PT
25-JuL-80 10:26

SEQ 0161

015467
015547

3365+
3364
%092

33N
3370

3381+
3382+

3274

3287

4089

3273

3294

4090+

3367+

3369

3383+

3385

4929+

4955

5379+
5719
5929+

5005
5467+
5722
5937

5027
5528+
5728
5943+

5060+
5568+
5785
5989+

5066+
5569+
5823
6001

2950

2970

3006

3990
5918

4006

3982

6161

4170

2980

2989

3000

3326
3325
3289

Go Co
o~

015604
015600
015610
015614

EVMOKD
EVMOST
EVMR]
EVMRTS
EvesaD
EVATM
EVTADD
EVIBCT
EVTEND
EVTFO
EVTF
EVTF?2

F13
MACY11 30A(1052)
25-JuL=-80
10:29 PAGE 163
CROSS REFERENCE TABLE == USER SYMBOLS

3418
3348

EVTF3
EVIF3C
EVTF3D

EVTF&
EVTFLA
EVTF4B

3257

EVTLOG
EVTLST
EVIMIN
EVIPTR
EVTSEC
EVITCK
EVITHP

3313
3258+
3312
3311
3339

FLAG

006560

t $AU
FSAUTO
F $BGN

000015
000020

FSCLEA
F$DU
FSEND

000007
000016
000041

000040

f SHARD=
FONW
=
FSINIT=
FSJMP =

F$MOD = 000000

FOMSG =
FSPROT=
FSPWR =
FSRPT =
FS$SEGC =
FSSOFT= 000005

5509
6041
4BB1v

5085+«
5679
5868+

4904+

5333«
5681+
5874+

5345+
5685+
5925

2936

3400

3415

3417

6243

4270

3970
5781

2982

3004
6345

5949

4221

2921

2934

2948
6234

447

4256

6161

6204

4225

4247

4345

2919

2923

2932

2936

2946

6213

3308

6077

923
204

O
o
o

FHDPLX
FIRST = 004000

ESEND =
ESLOAD=

"Hro

EVTFSA

4225

6227

2962

2950

2960

2970

6090

5068

5623

5841+
6004

6090

6092

CVCLMWA DPV=11 DATA (UMM, LINK TEST
CVCLMA.PTN
25-JuL-80 10:26

613
MACY11 30A(1052)
25-JuL=80 10:29 PAGE 164
CROSS REFERENCE TABLE == USER SYMBOLS

F$SRV = 000010

12914

3088

3113

F$SWw
= 000014
F$TEST= 000001

1291
1291#

&27

6090

4097#
S801#
5802
2911

4106

F$SUB = 000002

GETCL

024206

GETPRM
GL INC
GLMSG
600D
GTRA2
GTRAY
GTRAL
GTRAS
GTREX
GTRX2
GTRY
GTXRXB
GSCNTO=
GSDELM=
GSD1SP=
GSEXCP=
GSHILI=
GSLOLI=
GSNO =

023256
032620
015757
006536
023626
023670
023676
024122
027104
027202
027054
023626
000200
000372
000003
000400
000002
000001
000000
GSOFFS= 000400

GSOFSI= 000376

GSPRMA= 000001
G$PRMD= 000002
GSPRML= 000000
GSRADA= 000140

GSRADB= 000000

GSRADD=
GSRADL=
GSRADO=
GSXFER=

000040
000120
000020
000004

HDM(
HDOMCC
HOMSG

002654
002646
002644

GSYES = 000010

HELP

= 000000

HELPDC= 000000
HLP
= 000005
HLPEND 003034

HLPF
HLPTAB
HLPO
HLP1
HLP2
HLP3
HLP&
HLPLA

012072
003016
012014
012077
012112
012220
012305
012364

1291#

223;

4031
5797
2807#
19464
L278#
4281
L2964
4292
(B384
4BS34
4348
W27
1291#
12914
12914
12914
12914
12914
12914

12914
12914
1291#
12914
1291
1291#

22320

4377

5781

5880

5918

5947

4386

4389

4391

4398

4400

6115
6115

6125
6125

6130
6130

6135
6135

1454

43320

5264

5284

5263
4394

5347
48314

5403

4358

5315

1291#
12914
1291»
12914

LON
6115
6125

6135
6130

1291#

18264
18204
1818#

4LON

6115

6125

6130

6135

5531
5517+«
5513«

129N

1305

1396

1408

1422

1450

2889

2904

14
2726

1307
2804

5575
16368

18504
23814
18430
23730
1843
1844
1845
1846
1847

4415

4430

4456

1461

2290

2313

2327

2887

6160

6165

W29

4358
4358
6130
4358
6135
5315

4228

4402

S168+

4N
4071
6125
4071
6115
4358

1291#

SEQ 0162

5638
5529+«
5530

3015

5315
5315
5315

5694
5542+«
5691«

3672

5981
5556
5692

3976

5991
5693+
5990

3978

3998

4008

4164

4182

4196

1603
3270

1679
3413

1693
4110

2249
6142

2291
5276

4245

4250

4267

4268

4272

6086

5603
2093
4569

5644
2095

5738
4388

5743
&SN

5883

6120

4564
4561
4327
23824
2384
2397
24064
24140

143
2818

1449
2884

1575
2964

1588
3202

6093
6143

6111

6146

4207

6223

2306
5408

2515
5413

6173

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.PIN
HLPS
HLP6
HOE
=
HRDMSG
HSMSE

=
IBE
=
IDU
=
IER
ININT =
INOVR =
INTPRI
INVEC

25-JUL-80 10:26

012442
012532
100000 G
016005
002653

010000 G
000040 G
020000 G
000001
002000
011362
011356

1848
1849
1530#
2811»
18244

1527#
15204
1528#
1596#
16128
22648
22628

MACY11 30A(1052)

= 000100 G
ISR
= 004000 G
IXE
I1SAU = 000041
I$AUTO= 000041
ISCLN = 000041
ISOU = 000041
ISHRD = 000041
I$INIT= 000041
I1$MOD = 000041

15214
15264
12914
12914
12914
12914
61084
12914
1291#

42434
L1804
L194n
4221
61424
40064
12934

L2564
L186#
4204
4234k

I$PROT= 000040
ISPTAB= 000041
I$PWR = 000041
ISRPT = 000041
I1$SEG = 000041
I1$SETU= 000041

12914
12914
1291#
12914
12914
1291#

011372

1$MSG = 000041

I$SRV = 000041
1$SuUB = 000041

I$TST = 000041
JSJMP = 000167

KEYWD1

003010

LCLKEN= 000100

LGDVE

017246

LIS
= 000006
031022
LISCk
LISCKA 031050
L1SMOD= 000032
LISP
013154
LMDOLOP= 000046
006462
LNCNT
= 040000 G
LOE
LOGCMD 017366
LOGCML 017350
LOGCHP 017332
LOGDVI 017264
LOGEOP 017404
017674
LOGEX
LOGMSC 017422
LOGRXC 017236

LOGRXG
LOGS1

017220
017440

22784

1291#

5503+

29064

3990#

4145
5817

5504

4161
6180#

29214

5825

5854

5789

5808

5811

5829

5848

5855

29234

2934%

29364

29484

29504

29624

29704

29824

2989#

3002#

59184

5949%

4555+

4558+

L4571«

4574

4578

5787

L2134
41704

3982#

3088#

31154

5781#

5882#

12914
1291#

42704
3004

4345
4225

50904
4247

6092#

4588

4602

4651

L6611

4664

1291#

18394

4270

4388

15604

4044

15498
1979
53754
16578
24L99%
1669#
19204
15294
3192¢
3188#
31844
31754
31964
3213
3202#
31678

4747
S368#
5399
2123
5370
2235
3224

31704

31628
3155

SEQ 0163

5828

5782+

39704
4270

12914

PAGE 165

5799

22794

IRXCSR

10:29

2422#
24328

5785

011374

H13

CROSS REFERENCE TABLE == USER SYMBOLS

5569
4128+
4125+
5810+

IRDSR

25-JuL=80

5456

5189
5158
5148
4850
5257
32604
5803
SO

5014
3160

4390
5493

5346

4392

4395

4399

460N

4403

5557

5710

5831

5856

6056

5401

3226+

5389
5383

3165

3235+

3169

3208¢

CVCLWA DPV=11 DATA CUMM, LINK TEST

CVCLHA. P
LOGS¢

LOGS3S

LOGS&
LOGSS
LOGTXC
LOGTXQ
LOGUNT
LOOPS
=
LoT
LPO
LPOO
LP
LP2
LP3
LP&
LSACP
LSAPT
LSAU
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSOLY
LSDTP
LSDTYP
LSOV
LSOUT
LSDVTY
LSEF
LSENV]I
LSETP
LSEXP1
LSEXPL
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT

25-JuL-80 10:26

017666

3254

017546
017572
017202
017164
006540
003102
000010 G
013036
013037
013046
013057
013065
013100
002110 G
002036 G
023612 G
002070 G
023560 G
002106 G
023562 G
002032 G
002011 G
011432 G
002076 G
002060 G
002124 G
002116 G
002040 G
002034 G
023604 G
002072 G
011422 G
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
033706 G
002120 G
002016 G
002022 G
002130 G
002104 G
022734 G
002026 G
034164 6
002100 G
002074 G
002050 G
002000 G
002042 G
022726 G
002112 G

3225
3219
31578
3152
19514
18724
1518#
1872
24764
1873
1874
1875
1876
13854
13438
1370
1369#
1386
1383
1384
13394
13214
1376
13754
13614
1346
1391#
1345#
13414
1372
137214
1362
13564
13494
13794
1351#
1365#
13674
1328
13934
1327#
1331#
1332
1381»
1382
1335#
1336
1377#
13734
1353#
1310#
13478
1388
1387

017472

3173

32584

3182

12340
3221
S072
5023
4095+«
3661
24754
3657
24784
24BON
2482k
24BLn

MACY11 30A(1052)

25-JuL=-80

3187

3191

319§

32420
5340
5332
4097+

4098

6102

3660

L1804

L1940

2318#
14054

W22
2508#

6108

61094

1418

14194

61784

39904

10:29

PAGE 166

CROSS REFERENCE TABLE == USER SYMBOLS

L2463

40064

113

3199

3205

3217#»

SEQ 0164

VO~
O
TR
=
3

s
s
b

9704

bbb

SEQ 0165

4098

14464

5593

4321+

&
NO NNOWVO

»
o
WV o

—

~N~

g-.-.-.-..‘-.
88

[elelelelele]

5041

5801+
5798+
4643

5597+«
4642
5074

5598+
47360

5783

&H oo
wiror
SN
NN

479

5474

PONND
—

4842
(843
4322+

o~ &Hovun
oOwrnorn

L10003
L10004
L10005
L 10006
L10007
L10010
L10012
L10013
L10014
L10015
L1001¢
L10017

NW—
O

LS
ST ST N N

L10000
L10001
L10002

J 13

MACY11 30A(1052)
25-JuUL=-80
10:29 PAGE 167
CROSS REFERENCE TABLE == USER SYMBOLS

630

gbwwuwwuuuuu
OO NN
N O —

002062

VOO0
— PO
OO~
S~ W
ooo ~O 0o
&
L2
R
F

LSREFP
LSREV
LSRPT
L$SPC
LSSPCP
LSSPTP
LSSTA
LSTEST
LSTIML
LSUNIT

[AIalalalAlalalala
)

CVCLHA DPV=11 DATA COMM, LINK TEST
25=JUL-B0 10:26
CVCLMHA.PT

53460

47412

4760

4BO6

4808+

4810

4812+

4814+

5795
4739
5402+

5804+
G764
5478

4747

4750

4753+

L4756+

4769

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLMA.PIN

25-JUL-B80 10:26

MSGCL

011400

22814

MSGPTR

011376

22804

013524

25534

MSGL IM= 000017
MSGTRN

013473

MSGTRU

15364

5531«

1894

5530+

MACY11 30A(1052)
5687+

1895

5686+

Zgggl

3612

4305

4317+

4613

4614

4727

4766

4797

1739

17494

MSG!
MSGIC
MSG2
MSG2C
MSG3
MSG3C

002215
002152
002216

1727
17274
1728
17284
1729
17294

1740

1751

1741

1753#

1742

17554

1730

1743

1757#

1731
17318
1732
17320
1734

1744
4306
1745
4730
1747

17714
4318
17854

4030

40954

4099

25304

4285

MSG4C

MSGS
MSG5C
MSG6
MSGEC
MSG8
MSGBC

NEW

= 000036

NOD1

007672
007676

NOD105
NOD106
NOD107
NOD11
NOD110
NOD111
NOD112
NOD113
NOD114
NOD115
NOD116
NOD117
NOD12
NOD120
NOD121

010654
010670
010674
007756
010700
010714
010720
010736
010742
010756
010762
010776
007772
011002
011016

NOCLK

NOD10
NOD100
NOD101
NOD102
NOD103
NOD104

NOD12

NOD123
NOD124
NOD125
NOD126
NOD127

NOD1

013334

17264

17304

17344

16614

2092#
2093#

007752
010610
010614
010630
010634
010650

2100#
21724
21764
21774
2180#
2181»

0110%%

2200#

0110
(11042
011056
011062
011066

007776

5931

467

1726

MSG4

5692+

44651

002214

002217
002156
002220
002160
002320
002162
002412
002164
002642
002170
023250

44621

4425

MSGO

002154

5934¢

1896

4410

006500
002150

5694+

25488

3568

2183#
2184n
21874
2101#
21904
2191
21924
2193#
21940
21954
21964
21974
2102#
21984
21994
22014
2202#
22034
22064
2207#

2103#

2163

K 13

10:29

PAGE 1¢8

CROSS REFERENCE TABLE == USER SYMBOLS

MSGTYP
MSGOC

2S5=JuL=B0

1811#

4763

5941«

5991«

5933«

5940«

5990«

4692+

LT716%

4718Be

4463

SEQ 0166

4720

4722«

4724

LT726%

4729+

CVCLHA DPV=11 DATA CUMM, LINK TEST
25=JUL-80 10:26
CVCLHA.PT

—r r rer er Oee O eeeeO e- CO MNO O O O MNO O0O 0O

270A3N0RAD
~

L 13

MACY11 30A(1052)
25=JuL-80 10:29 PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

169

SEQ 0167

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.P1Y
NOD4E
NOD47

010314
010336

51363
1374

010340
010364

21384
2139

010412
010416
010440
010444

21464
21478
21484
21514

NODS

00772¢

NODS
NOD$S

010366
010372

NOD50
NODS51
NODS5&
NOD55
NOD56
NODS7

NOD6

25-JUL-80 10:26

007736

NOD64
NOD65
NOD66
NOD67

010470
010474
010500
010504

21564
21574
2158#
21614

010510
010514
010526
010532
010546
010552

21624
21634
2164#
21654
21664
21694

= 000000

1551#

007740

NOD7
NOD7

010570
010574

NOD70
NOD71
NOD72
NOD73
NOD74
NOD75

NONE

NOTNUF= 000050

NULEVT 014577
NULL = 000000
= 000014
NUM
007676
N10$
N100$
010310
010314
N1028
010340
N104$
N110$
010366
N1118
N1128
N1148

Ni15%

N1168
N1178
N1188
N1208

N1218

N1228
N123%

N1258

N1268
N1
N1318
N1328

010372
010416
010510

010504

010526
010552
010574
010674

011114

PAGE 170

TABLE == USER SYMBOLS

SEQ 0168

2104

2105

2115

2154

2156

2162

2216

2124

2126

2129

213

21604

2166

2170

2195

2197

2199

220

2203

2208

22140

222°

2158

2162

2216

22478

21544
21554

20994

21704
2171

16714

26678
16314
16630
20924
2104
21354
2136
2109

21444
2145
21614

2101

3277

2224
2107

21340

21374
21434
21464

2118

2120

2122

2163#
2164
2169
2146

2165
21704
2148

2168#

2234

2191

011144
011120

2217
22154

011164
010614
010654
010634

218
21N
51;0
176

011342

10:29

CROSS REF RE

2098#

21524
2153

NOD7

21440
21454

010450
010454

010460
010464

25=JUL=-80

2097#

NOD60
NOD61

NOD6
NOD6

MACY1T 302 (1 agg)

g156

2236

2193

2218#

2156

2220
1754
1824

1794

2238

2186#

22220

2243

2172

2181

2232

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLHA.PIN

25-JuL-80 10:26

N142%
N143S
N1448
N1508
N20$
N2S$

011232
011%52
011300
011326
010016
010040

2184
22304
223
2233
2235
2177
2103
2106

NLOS
NG2S
NG 3S
NLSS
NL6S
NSOS
N518%
NS2%
N60S
N61S
N62$
N63S
N64LS
N6SS
N66S
NGTS
N70%
N718
N72%
N738

007776
007704
007722
007740
007756
010444
010450
010454
010700
010720
010742
010762
011002
011022
011042
011062
011066
011076
011102
011112
010060
010064

2101
2093
2095
2097
2099
2102
2151#
21524
2189#
2190
2192
2194
2196
2198
2200
2202
2206
2207
22094
2210
2100
21140

N140%

N1418

N30$%

NB1S

N82$
N83S
N84S
N8SS
NB6S
NB7%
OFSETY
OPBFPT

OPBUF

011200

011204

010056

2105
2155

010126
010150
010172
010214
010244
010272
006514
002514

OPCNT

002166

OPVAR

006464

OUTVEC

011360

21094
2183

2114
2187

2115
2206

2116
2219

2127
2223

2130
2224

2135
2228

2138
2237

2144
2241

2147
2242

2153

21024
2094
20964
2098#
2100#
21504

5161«

5178+

5322

5328

5329

5341

5343

5375

5376

5398

2211#
2113

17338

4700«

5326+

5330

5331

19214

4B39+«

5254

5564+

41260

4127«

4152

12914
12914
12914
12912
12914
12914

SEQ 0169

2191#
21934
21954
21974
2199#
22014
22054
2211
22084

5314

22638

2108
2157

5307

OTINT = 000002

R
R A

22328
2234
22364
22404
21040
2107#

4702

1597#

PAGE 171

2227#

1805#

18064
25014
16440
226548

10:29

CROSS REFERENCE TABLE == USER SYMBOLS

2118#
21204
21224
21240
21264
21294
2912
5393

002642
OPEND
OPRMM
013165
OPRMSG= 000015
011364
oPTYP

0$APTS= 000000
osAU = 000001
0$8GNR= 888885
0$BGNS=
osou = 000001
OSERRT= 000000

25=-JuL=80

2117
2119
2121
2123
2125
2128
19374
1804#

;238

002520

N 13

MACY11 30A(1052)

5309
5316
2206
4129«

1337
13040
13048
1329
13040
1379

1369
1363

1371

B 14
MACY11 30A(1052)
25-JuL-80 10:29 PAGE 172
CROSS REFERENCE TABLE == USER SYMBOLS

654

WN NN

1395

6176
5681
3220
5130

5925
4324
5306+

4117+«

5506+

4769

4758+

4768+

4778

L4796+

L4799+

4901+

5032

4369
4656+

4684+

L4777+
L4740¢
4649

4818+
L4759+
4655

4826+
4676

4686

5057

S W

PCADD
PCK
PCLKCY
PCLKEN
PCPM
PCSAR
PEC
PLCK

»
7

PAS
PASC
PASMOD

91#
1L
»
on

NN VNN
- b

—.—.—‘U‘—.-‘—.—.—.

O$GNsW= 000000
O$POIN= 000001
0$SETU= 000000
PAD
001000
PARAM
006554

SEQ 0170

OO WVO OO
S NON =200

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLHA.PI
25-JuL-80 10:26

PLCK2
PLCK3

PR102

PRIO3
PR104
PR10S
PR106
PR107

PRNT
PROTO
PROTOB
PSCNT

PSRADX
PSTREE
PSTRY

P$TRS

oCOPY

N e i e S ND
N=NON
NSO
—

PSACT
A
PS$BUF
PSCNT
PSEXIT
P$CDBD
PSNNUF
PSNUM

006132

PTR13
PTR23

ors
64r

3088
88888838
- b NN
NN
= NN NS8

PS1
PTREND
PTRTAB

[

[aIalalalalala
AT AT~

PNCK
PNEC
PNMS
PNST
PNT
PRI
PRI0O
PRIO1

o
=

PMS

4150
4198

4390

4574

5252+

5255

4419
4461

4599
4583

4606

4593

4831
4832

3937+
3793
3799

3944

3949

4366
4364

3875
3788
3791«

3850+

4378

4552

L4579

3826+

3833«

3840

3757

3762

3866+

3868

3869+

4587+

4352«
4601«

3873

3881

3893+

3871+

3875+«

3877«

4733
3883«

C 14
MACY11 30A(1052)
25-JuUL-80
10:29 PAGE 173
CROSS REFERENCE TABLE == USER SYMBOLS

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JUL-80 10:26

22574

000031
017676

32664

REC

= 000000

RECMOD=
REPORT
RERR
=
RESETY =
RESFLG
RESTRY
RHDMCC
RHDMSG
Rl
=
RINTEN=
RMDLOP=
RMSGCC
RMSGPT
RNODE
RNODM
RPASS
RPT
RPTAA
RPTDCK
RPTDDE
RPTDER
RPTDLE
RPTDSP
RPTDVI
RPTEOP
RPTMSB
RPTMSC
RPTMSE
RPTTXQ

100000

000001
006544
023210
002660

18414
18420
17004
15434
16564

17124
17034
1953#
4019
18304
1828#
16894
16994
16704

22854
2284n
22894
6136
19694

3c84n
3299#
2061
2064
2059
2063
20554

5005

5027

5059

5066

5077

5379

5623

5626

5725

4955

5015
5929

5060
5989

5068
6001
4763+

5076

5085

5333

5345

5528

5534

5679

4766

4779+

4797

4800+

5548

5555

5870

5871

5821+

5842+
5818+
5627

5870+
5843+
5683

5981+«
5869+

5980+

4334
3364

4342

4580+

L6446

3409

4803+
3433

5259

5261+

5482+

549N

5503

5593

5639+

5708

5782

5876+

5984

5872

5878¢#

LE68R
L4864

L4671
4665+

4119+

5810

5811

QUALFG
003012
QUALVL
003014
RDATRY= 000200
RDSR
011350

4955

573

NSO SO
WOoOOoO — NOHs
NNV OWWNIWLWN—;e »

= 000010

4929

6004

5874
1599#
5681

w WWN =

QTX

1598#

WWO STV
S
v

E 000004

4674
4688+

4689+

4575

4033+
4058

4291
4077
5546

5876

5984

5524
5980

5638+
5637+

4846

4323

3353

5816
550+

4086#

3378

3393

WIWNIWNIWNIWIWLE

| QRX

SEQ 0171

31321#

RP10
RPT1

RSTARY=
s
RTS
RUN
=
|RXACT =

RXBUF

RXC
RXCSR

RXENA
RXINEX
RXINY

RXIN2
RXIN21
RXIN
RX ING

RXINS

CVCLHA DPV=11 DATA COMM, LINK TEST

CVCLMA.PIY

25-JuL-80 10:26

RxINe
RXIN?
RXIN8
RXM
=

033000
033150
033156
000040

5827
5863
5839
1606

RXON2

027250

4B79#

= 000004

1582¢

RXMTOT
RXONLY

1918#
1973

4835+
“B76#

1901#

4301«

01567
015724
015713
015660
015702
015735
000010
000011
013607
013645
012631
000002
003054
003063
012665
012674
012701
012706
012713
012721
012726
012734
003034
021326

2792#
2798#
27964
27904
28004
16398
16404
25628
25692
26458
163384
18584
18614
1851
1851
1851
1851
1851
1851
1851
1851
18514
3362

3185
3193
3189
3N
3176
3197
2145
2147
3668
3699
4634
2106
4622
4625
24504
24652
2453
2L54m
24554
2457
24584
2459
4633
36528

SMS(
015746
sap
= 000040
SRXQ
015647
006472
STADD
START
023010
STATB = 000001
STATUS= 000016
STXC
015636
STXQ
015625

28044
16904
27884
19244
4014
15664
16454
27864
27844

3203
2015
3163
3501
4033
3220
2169
3158
3153

RXPTR
RXQ

006422

SCM
SCMD
SCML
SOVE
SDOv1i
SEOP
SETEXP=
SETTRN=
SHFO
SHF 1
SHMSG
SHOW =
SHTAB
SHTEND
SHTYPO
SHTYP1
SHTYP2
SHTYPS
SHTYPL
SHTYPS
SHTYPE
SHTYP7
SHTYTB
SHWOP

SIZE

006460
027250

58414
5866
SB764
5514

= 000012

SvCGBL= 000000

SVCINS= 000001

27944

16414

1291#
1341

1369
1405
3990

1291
1328
1354
1378

—

231
2920
2943
2974

3164

2217

MACY11 30A(1052)

25-JuL=-80

D 14

10:29

PAGE 174

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0172

SB74H

5626
4BB0

5629
4953

5865
5134

5867

4B33+«

4BSS

4B79

4928

4403
4664

4661

460
4628

4558

4588

4602

4336

4954

5040

5132

4646

L674

4L668

4649

3676

4785

1319

1321

1323

1325

1327

1329

1333

1335

1337

1371
1419
4006

1373
1420
4180

1375
2308
4194

1377
2318
6221

1379
2906
4243

1381
2923
5781

1383
2936
5918

1385
2950
6109

1387
2970
61788

1389
2989
6179

1391
3088

1334
1358
1384

1336
1360
1386

1338
1362
1388

1340
1364
1390

1342
1366
1392

1344
1368
1394

1346
1370
1404

1348
1372
1406

1350
1374
1418

1343

1311

1330
1355
1380

2319
2925
2944
2975

1345

1312

1332
1357
1382

2324
2926
2947
2976

1347

1313

2908
2927
2952
2977

1349

1314

2909
2928
2953
2978

1351

1315

2910
2929
2954
2981

1353

1316

2911
2930
2955
299

1356

1317

2912
2933
2956
2992

1359

1318

2913
2938
2957
2993

1361

1320

2914
2939
2958
2994

1363

1322

2915
2940
2961
2995

1339

1365

1367

1324

1326

2916
2941
2972
2996

1393
3970

1352
1376
2309

2917
2942
2973
2997

3001
3241

3004
3277

3005
3%78

3114
3279

4017

4019

4021

4022

4024

4822

sv(suB= 000001

SVCTAG= 000001

SvCTST= 000001
= 000226
SYN

SYNCC
SYNCW

011402
011404

SSLSYM= 010000

5186
5313
5394
5502
5836
6061
6132

1291#

12914

6211
12914
17134
22824
22834

12914

3312
3331
3352
3389
3418
3449
3514
3568
3672
3848

4823

5187
5314
5395
5537
5837
6062
6133

5188
5315
5396
5560
5859
€091
6135

5228
5316
5397
5561
5860
6108
6136

5229
5317
5448
5562
5861
6115
6137

5230
5318
5459
5563
5862
6116
6140

5231
5319
5460
5701
5881
6117
6175

2980

5922+«

5992+

006516

19384

TEMP

22594

29204

L2128

4363

29334

4233k

5320

29474

5880

2961

4255

4356

4424
4756

4466
5402

5342

5344

4307+

4310

4435

4440+

4609

32460
3678«

3164+
3247
3698

3168+
3512+
4630+

3172+«
3515
4632

4122+

154«

5172

5156

5919
5921

53054
2130

5157

5155

5695+
4BL9r

1978
16604
17054
19139

4039

5154

5532+
4B44Lr

40264
L0478
40604
40794

4038

4028

2960

4024
4042
4052
4063

3233
3302

4027

2946

144678

3317
3343
3373
3401
3426
3469
3519
3664
3699
3891

3232
3301

3316
3342
3372
3400
3622
3468
3518
3572
3698
3890

2932

S1
022776
023052
$2
023122
s3
023170
e
TABEX
013415
TAL
= 000005
TALCK
030602
TALMOD= 000035
TBMT
= 000004
TCURAD 006450

011354

4825

4123+
3159«

5921+

5924+

5927+

SEQ 0173

3231
3300
3318
3344
3374
3402
3427
3470
3520
3665
3700
3892

3315
3341
i3n
3392
3421
3467
3517
3N
3697
3889

2919

L1BSH

TDSR

4824

3314
3340
3370
39
3420
3466
3516
3570
3696
3888

3230
3%81

4254

L1694

25398
15488

3313
3339
3369
3390
3419
3450
3515
3569
3695
3849

3229
3280

4232
4270

1446

PAGE 175

5947

29814

4030

5279
5370
5461
5713
5948
6125
6176

3000

6090

30014

4363

L3640

59 32+
3 77«
35 T4
“ 693+

5936+

3186+

3575«
4694+

3325
3346
3375
3403
3428
3504
3523
3666
3701
3981

3237
3303

3238
3304

3239
3310

4040

4042

4048

3326
3347
3376
3404
3429
3505
3524
3667
3702
4011

3327
3348
3585
3405
3430
3506
3525
3668
3703
4012

5173

5174

3328
3349
3386
3406
3446
3507
3526
3669
3845
4014

5175

3329
3350
3387
3407
3447
3508
3527
3670
3846
4016

5185

5280
5371
5462
5714
5998
6126
6177

5281
5372
5496
5715
6038
6127

5282
5373
5497
§716
6045
6128

5283
5374
5498
5834
6059
6130

5312
5393
5499
5835
6060
6131

3113

3980

4076

4168

4184

3981@

4069

4076

40774

3194+

3198+

6141

—

2998
3240

33
3330
3351
3388
3417
3448
3509
3528
3671
3847

10:29

CROSS REFERENCE TABLE == USER SYMBOLS

—

E 14

w S

25=JUL-80 10:26

25-JuL=-B0

CVCLKA. P

MACY11 30A(1052)

N —

CVOLWA DPy=11 DATA COMM, LINK TEST

3190+

3576
4698

5320

3614
70

53214

3615+«
5046+

58814

3204+

3621
5047+

5948#

3218

3654+
50N

CVCLMA DPV=11 DATA COMM. LINK TEST

CVCLHA.PI
TEMP1

006520

TEMP2

006522

TEMPY

006524

TEMPL

25-JUL-80 10:26

006526

TEMPS
006530
TEOM = 001000
TERR
= 100000

TIMERS
TIMERY

006624
006620

TIMSEC
TIMTCK
TINTEN=
TM
=

006614
006616
000100
000040

TOTCC

006512

TIMER2
TIMMIN

TOINOT

TRA

006622
006612

032410

= 000001

TRAMOD= 000034

6035+
19394
3665

19404
5018+«
5490+
19414
5047
5555«

TXBUF
003132
TMe
=
02

TXCSR

011352

TXENA = 000020
TXINEX 033344
TXINT
TXINZ
TXIN3

033210
033252
033336

3193«

3197«

3203«

3237

3661+

3250
5049«
5799+«
2993
5071«

3617«
5050
5802+«
3180«
5140«

3619«
5070«
5830+
3251
5150

3623
5138+
5853«
3657«
§256*

3662
5255+«
46053+«
3660+
5330«

3664
5329«
6079«
3666
5339«

3683«
5338«
6080+
5010«
5378«

3686
5376«

3696
5387+«

5008+
5453«

S3BBe

5454+«

5491«

3181«
5795«

3215«
5796

5166

5181

§254+

4447

44LB3

5709

579

3179+«
5035
5707+«
2973
5049

19364

15448

16594

3758

57194

3561+«

4753
2128

3769¢

5160«
6055+

5165+«

5519
4280

5538
S4B4r

5544
5485

5698«
6043«

5702
6048

5999

3098+
3108
5928
5793

3248
3246
5993

4087+
4088+

3562

3573«

3575

3577«

4296+

4405+

4406

4439

Labbr

3785

3790

3795

3798

3818

3884

3907

3928

3952

3909

3930

3956

5471+

5492

5533+

5595

5696+

3691+
5936

3105+
3249

3695

4086+

S828+«

3747
3746

39114
38974

3756

37764

3796

3801

3820

3894

3802
3826#
3825#
38044
39344
5924
4347
5468
2231

3819

3885

3908

3929

4297+

4405

4416

446390

4605

18914
15814

4307
3159

4608

5928+
1707#
5923
5920
5926

5963+«
5533
5930

5443

5455

5468+

5993
5942

59454

3781
3745
3748
3744
3750
1709
15524
17068
16678

19124
17044

2258#

5938

37984
37954

38234
37854
37904
38274

4120+

59244
S931#
59434

5020«

5147«
5855+«

3095
3093«
5696
5791

5703

SEQ 0174

3252
5829+

3094+
3091+«
5533
2016

3103
3097«

PAGE 176

6054+

5796

1990#
1991#
1708
16914

1994
19894

3688+«
5924

10:29

S8S4+

5794+

5515+«
4279+

3749
3740
3741
3824

006446

3189+«

3110«
3102«

022150
022006
022026
022170

TXACT = 000002

3185+

3106
3100

TRVDEC
TRVERR
TRVEX]
TRVNMA

TT0TCC

3176+«

1995#
1993#

196434
17108
1711

3743
3742

TRVNOB 022000
TRVNUM 022162
TRVOCT 022162
TRVSPA 022076
TRVSTR 022630
Tsom = 000400
TTL
= 000001
TTLL
= 000010
TTLLOP= 000044

3171«

3163«
3697

2992
5709+

022054
022044

021770

6039
3158«
3682+«

2972
5556+

TRVBIF
TRVBR

TRVBRC

S708«

25-JuL=-80

CROSS REFERENCE TABLE == USER SYMBOLS

2925
5492+«

021750
022542
022476

3178+«
5029+«
5554+
2938
5048

MACY11 30A(1052)

19428
5455+«

TRVACT

TRVALN
TRVALP

6036
3153«
3679«

F 14

5030«

5036

5469
5471

4121+
6055
5696
5935

G 14
MACY11 30A(1052)
25-JUL-80 10:29 PAGE 177
CROSS REFERENCE TABLE == USER SYMBOLS

CVCLHA DPV=11 DATA COMM, LINK TEST
CVCLHA.PT
25-JUL-80 10:26
TXM
=
TXMTOT
TXONLY
TXON2

TXPTR
TXG

SEQ 0175

000020
006444
027302
027310

16048
19114
1974
49024

5514
4313+«
4901#

5681
4418+

5685
4420

5937
G461

5939
4600

4604+

4903

4926

4951

= 000000

15804

4300«
3154

43N

6619

4433+

4434

4438+

4606

4607

4831«

4902

4927

4952

13164

29084

2917

29254

2930

29384

2944

29524

4429
L7724

006424

T$ARGC= 000001

T$CODE=
TSERRN=
T$EXCP=
T$SFLAG=
TSGMAN=
TSHILI=
TSLAST=
T$LOLI=
TSLSYM=

006130
000006
000000
000040
000000
000776
000001
000300
010000

T$SLTNO= 000001

TSNEST= 177777

T$SNSO = 000000

T$NS1 = 000004
T$NS2 =
T$PTNU=
T$SAVL=
T$SEGL=
T$SUBN=
T$1AGL=

000010
000000
177777
177777
000000
177777

TSTAGN= 010023

T$TEMP= 000000

1902#

13110

2958
33104
3407
35234

4084
LL50M
4776
LO714
12914
L071%
30044
12914
4071%
12914

L071¢
12910

4233
61794

12914

T$T1STM= 177777

I$1515= 000001
T$$AU = 010016

33004
3392
35144
3892

3304
34004
3520
4080#

4414
L709%

LL24n
4713

55614
6129
4249
5315
6128

5714w
61304
L3450
53214
61304

58354
6134

58604

60604

4074
1447

L3584
2920

4361
2933

5315#
2947

5318
2961

61254
2981

6127
3001

61308
3114

6132
3981

4169

4185

4212

12934

1418

14468

29064

29194

29234

29324

29364

29468

L0064
59184

29504

41684
59474

29604

4L1BOF
60904

29704

41B4N
6108+

2946

29504

2960

29704

2980

29894

4180#

61764
4255

5881

5948

£091

6142

30004
42218

30884
L2328

31134
L243K

39704
4254m

1446

29064

2919

2923¢

2932

29364

4232
5880

L2430
5918

4254
5947

&271¢

6090

61084

3997

40064

29064

29234

29364

29504

29704

29894

29328

29464

43584

S3154

3088

40714

12914
L2630

3281
33854
3509
38884

L4099
4683

39974
1291
3232
3449
4022
6169
4375
5172
5701

32770
3376
35044
3849

4385
L6798
5397

L2214

12914

3241
33694
3470
38454

43814
4638
5393»

Q1948

32370
3352
34660
3703

4376
46328
5374
61354
54974
61254
L247H
53120
61254

42704

14064

3233
33464
3450
3695

43720
4568
53704
61304
54604
5320
4227
43640
5319

12914
12914
1291#

12914

32294
3344
34460
3672

4331
L5638
5283
61254
52294
5315#
L2250
4358
5315#

6180

3000

13154

2998
33394
3430
36640

43278
447
52794
61154
51864
4363
42044
43554
4362

1293

6221
57814
12914
12914

13144

29914
33N
34264
3572

4289
LLbbr
4B25
S3154
51734
L358¢
Q1614
4077
63584

29894
L211K

14188

13130

2978
3325
3422
3568¢

42854
4455
48214
43584
51554
4076
3006
40684
4075

29804
Q194K

2%28
T$TEST= 000001

13120

29728
3318
3617k
3528

14188

14078

z%gsl

42704

2916
3240
3469
4028
4185
4384
5185
5713

4271
L247

3113

L2434

1464660

L1614
L3450
6179

2920
3280
3508
4039
4199
4413
5228
5834
4254

39704

G271a

29194

3980

57B1N

4162

L1688

2929
330%
3519
4049
4201
4428
5282
€859

2933
3317
3527
4061
4204
4454
5312
5998

4346

3990#

59184

39804
L271m

61084

29604

39904
5781

6140

29804

39974
5B8BO#

6133

4168

41804

4184

L194r

30884

39704

39904

40064

30004

30044

3005

31134

421

39804

4L1B4N

4L204m

4205

L2118

L2258

4226

L2328

42470

2943
3330
35N
4068
4212
4470
5373
6038

2947
3343
3671
4083
4233
4567
5396
6045

2957
3351
3702
4103
4255
4637
5448
6059

2961
3375
3848
6137
. 4288
4682
5459
6091

2977
3391
3891
4147
4330
4712
5496

2981
3406
3981
4154
4339
L77%
5502

2997
3421
4012
4159
6345
4824
5537

3001
3429
4017

5BBON

59474

60904

61154

61254

61304

61354

4161
4355
5154

5560

CVCLHA DPV=11 DATA CUMM, LINK TEST

CVCLHA.PI

25-JuL-80 10:26

T$SALT=
T$SCLE=
T$$0U =
T$SHAR=
T$$HW =
T$$INI=

010013
010014
010015
010022
010000
010012

L1808
1948
42218
61084
164188
L0064

T$$PRO=
TSSRPT=
T$$SRv=
T$$TES=

010011
010010
010021
010017

39904
39704
30884
L2710

=
UAM
UPTABL
UPTAY1
UPTAS
UPTAL
UPTEX
VECTOR

000200 G
027604
027672
027570
027630
027742
034021

1522#
5032#
5038
5042
5033
5044
6131

X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=

000000
000040
000400
000020

1291#
12914
1291#
1291

T$$MSG= 010006

$PATCH

023620 G

= 000163

034100

= 034164

29064

4184
4204
4225
6141
1446
4161

25-JuUL-B0

H 14

10:29

4168

29364

2946

S781#

S880

59184

5947

20924
21054
21218
21378
21564
21764
21964
22118
22328

20934
21064
21228
2138
21574
21774
21978
2212k
2233w

20944
21074
2123&
21394
2158
21804
21984
2215
2234m

20954
21084
2124h
2144k
21614
2181w
21994
22164
22358

20964
21094
21254
21458
2162%
21834
22004
22\7#
22364

12914

17994

18054

21638
2234

21654
23114

21698
27804

12944
21044
21200
21364
21554
21728
21954
22108
22310

61704

18964

3113

4345
42704

S045#
S044n
S037#
5056#
61438

18994

SEQ 0176

6211
4232

2932

3980

PAGE 178

CROSS REFERENCE TABLE == USER SYMBOLS

2923

1406

2919

MACY11 30A(1052)

6090

19994

18134

20004

21714
3005

18254

2095#

21764
6162

18344

2101#

2183
4205

29504

2960

29708

2980

29894

3000

3004

20974
21104
2126
2146k
2163
2184w
22014
2218
2237m

20984
2114w
2127x
21478
2164
2187&
22024
2219m
2238

20994
2115#
2128k
2148Bh
21654
21904
2203
2220m
224\m

21004
21164
21294
2151w
21604
21914
22064
2223@
2242m

21014
21174
21304
2152¢
21694
21924
22074
2224m
2243

21024
21184
21314
21534
21704
21938
22084
2225k
224LB#

2103«#
21194
2135«
2154#
2171#
2194#
2209#
2228#

18384

21084

21904
6226

18624

21154

21924
4248

18914

21174

2194k
4346

18924

21234

21964
61714

18934

21254

2198

18944

21364

22178

1895#

21384

2219#

4340

2922

2935

2949

2969

4051

4062

4105

5700

5997

rorororRORORONO
N
PN = e et et a O

rororororROrROrRON

ORIV PPN N
PON) = e e et d O
H = O ~NNWwW—0

1291
1291
1291

4029

2945

2959

2979

2999

2988

2931

WO Vo M~rNO
ONOwWsHrN
S

POND
= el e e

rorOrPROROPROND
N

OO NO
NOONOW—
N

rororRLrRORONO
N
POND
=
e e

OO WO
SO —=0oon

A LA LAV LN TN L V1N ]
PN = e e
b

OO WN—=O
WRONOD
N0 —

rororOrROPRONON
POND
= e ed e
b

rORLRORLPNLNONO
N
PONUND
=
b e
b b
SO
WNWN—O
NV —=NNOO

NI N1 N L N

PROPOND)
= b 2 a0 O
H =200 WnNuwi—0
NNOVOOONWVNNIY

rorororROrROrRONON
PON) = e e e a2 O
H =2 O ~NWNW—=O
— OOV~

(AN AN T SN

6044

O~NO SOV~

PON) = et
aa O
W= O NN
— O
NONWVWO
SO

W= O NN
—= O
OWVON =N DWW

6037

&0
NN
=W
Oww

129

4
0
4
1

4018

SEQ 0177

5917

— YOS NN
WONNO—=

ENDMSG

CNDHY
ENDINI
ENDMOD

4013

NN =8
Ot
s may

CLOCK
CLOSE
LLRVEC
COMMEN
DELAY
DESCRI
DEVTYP
DISPAT
DISPLA
DOCLN
DODU
DORPT
ENDAU
ENDAUT
ENDCLN
ENDCOM
ENDDU
ENDHRD

w129
w1290
w129
w1290
w129
w1291
1291
1w
1291#
1w
1291#
1w
1291
1w
1291»
1w
w1291
1291»
1w
1291
1w
w1291
1291#
1w
1291
1w
w1291
1291
1w
w1291
w1291
w1291
1291
4
w1291
129
1w
1291#
»
2091
1295#
2106
2105
2124
2123
2145
2146
2165
2164
219N
2192
2209
2208
2231
2232
191
1w
1291#
1w
1291
12
1291
0
1291#
1w
1291
1w
1291
1%
1291
%
w1291
12914
»
1291
1%
1291
10
1291
%
1291
1w
1291
12
1291
1
1291
12
12914
12

BCOMFL
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
CxLOOP
Ll

[ 14
MACY11 30A(1052)
25-JuL=-80
10:29 PAGE 180
CROSS REFERENCE TABLE == MACRO NAMES

oo
RONORO N
PON) =2 e ed s 0 O
W= ONWVNO
O
VIS VO = ~NO &~

CVCLHA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26
CVCLHA. P

CVCLMA DPV=11 DATA COMM, LINK TEST
25-JUL-80 10:26
CVCLHA.PT

MSERR]
MSESCA
MSESCS

3
%
&
&
&

4160

4203

4224

4246

4344

4354

5311

4358

53124

5315

3 n w
2
£

61354
32294
35044

32374
35140

5833

5858

6058

3300#
35684

33104
36644

5712

a2 o

&
2

3003

5559

un L2 2

D
D
D
D
D i
D
il el

5495

2
2
L2

D il
il
-l il il
D
D

NN
N NN
VOO O0OOOO0
VOO0 OOOO0 Relre]

il
il el

5458

D il

5227

6129

6134

L3554

8214

"
1343
1375
1L
42324

1L
1L

L2540
1L
1L

33254
36954

33394
38454

L4508

L4664

L6320

L6798

47094

47724

1329
1361
1391

1335
1367

23184
39974

1337
1369

1339
137

1341
1373

41684

L1840

211

W21\

L23%2¢

3000#

NN
N —

1
1L
1L
1L
1L
33464
38884

— OO0
N

MSDEFA
M$ENDE

5184

N
— NN
N

MSDECR

517N

1462

\."ON\”?NW-‘
d
W iy B I ois AW

MSDATA

5153

6089

N =N
-O -

MEMORY
MSBYTE
MSCHEC
MSCNTO
M$COUN

5946

NS
N
L
L B 2

MANUAL

5879

W £ OWNOW

LASTAD

3112

-t O WNO O WA
QO & N~ O WD W

kTN

1L
1L

el il

I0SETU
I0STAR

INLOOFP

3979

1L
1L
x
»
1L
1L
1L
»
1L
1L
1L

FEQUAL

914

GETBYT
GETPRI
GE TWOR
GMANIA
GMANID
GMANIL
GPHARD
GPRMA
GPRMD
GPRML
HEADER

3996

1L
)L
1L
»
\LJ
»
AL
\LJ
1L
1L
1L
»
1L
1L
»
»
1L
1L
1L

SEQ 0178

—

ENDPKO
ENDPTA
ENDRPT
ENDSEG
ENCSET
ENDSFT
ENDSRV
ENDSUB
ENDSW
ENDTST
EQUALS
ERRDF
ERRHRD
ERROR
ERRSF
ERRSOF
ERRTBL
ESCAPE
EXIT

'
J 14
MACY11 30A(1052)
25-JuL-80
1 0:29 PAGE 181
CROSS REFERENCE TABLE == MACRO NAMES

61354
3000#

3113

L1684

L1840

55604

5713

5859#

60594

CVCLMA DPV=11 DATA COMM, LINK TEST

CVCLKA. PN
MSEX(P
MSEXIT
MSEXSE
MSEXT)

MSGEN

25-JUL-80 10:26

18
12914
1w
129
w1291
w129

MACY11 30A(1052)

25-JuL=-80

K 14

10:29

CROSS REFERENCE TABLE == MACRO NAMES

PAGE 182

SEQ 0179

40714
004N
004l
004#

4358¢
L1614
41614
3005

S3154
4162
L2044
L161#

61254
420‘0
L2258
4%0

61304
4205
4L24TH
62250

L2250
4L345#
4226

4L247H

W345K

4346

L2L7H

4248

43454

9194
9904

29234
40064

29324
40764

29364
G168

29464
L1BOF

29604
L194R

29704
L211K

29804
L2218

29894
4L232R

14468

29194

2932@

29464

60904
53120
29604

29504
L1BLE

30004

31134

39804

4L204N

L2258

L24TH

43454

13254
13564
13874
29704
6178

13274
13594
13894
29894

13294
13614
13914
30884

1315
1330
13450
1360
1375¢
1390

13164
1331
1346
13614
1376
13914

13174
1332
13470
1362
13770
1392

W
13630
13754

1291
13454
13774

MSGETS

43634
W
18

53204
129"
12000

S781w
L068x

MSGETT

12914

30048

L1614

Q2210

L2434

57814

59184

61084

6109

6175¢

2308
297
2944
29774
3114
3281
33254

33874
34188

2309
29208
9%7n
978
32294
33004
33264
3349
33884
34194

23N
29254
59520
9814
32304
33014
33274
3350
33894
3420

23184
29264
39530
9914
3231
3302
33284
33514
3390
36210

2319
2927M
39540
9924
32320
33034
3329
3352
33914
3422

23264
2928
%9950
9,38
3233
3304
33304
33694
3392
34204

29084
2929¢
2956
29944
32374
33100
33N
33704
34004
34278

2909
2930
9574
9954
3238¢
33114
33394
33714
34014
3428

29104
29334
5958
996
3235
33124
33404
33724
34024
34294

2911
29384
59610
9974
32400
33134
33414
3373
34034
3430

29124
29394
9724
998
3241
3314w
3342
3374
3404w
34468

29134
29408
9734
001#
32774
33154
33434
33754
3405
34478

29144
29414
9744
004#
3278¢
3316
3344
3376
34064
3448

2915
2942
9754
005#
3279
33174
33464
33854
3407
34494

29164
29434
976
1134
32804
3318
33478
33864
36170
3450

L0
4453
L6320
W7120

L4108
LL540
L6334
413

LL11R
4455
4634
Q7720

4412
LLO6N
L635K
L7738

441
L467H
4636
4W774

4414
LLGBA
6370
L7758

L4240
L4E9
4638
4776

44258
L7008
L6798
48218

6‘;60
4N
L6BOF
4B22¢

4427
45638
4681
4823

46288
45648
L6824
48240

4429
L5658
6683
i

46508
4566
47094
51540

L4518
L5678
47108
51554

44520
4568
4711
5156#

60914

61088

61154

6117

61254

6126

6127

6128

6130

613

6132

6133

6135¢

6136

23184
39704

MSGENB

MSGNGB

MSGNIN

29064
39804

62320

4254@

1
13614
13738
1620

12914
13434
13754
23084

1%
13234
1338
13534
1368
13834

51570
5281
5374
§5020
58594

1297
1324
13394
1354
1369
1384

51720
b 8;:
539
55374
SB6ON

13104
13474
13794

S5BBON

12934
13454
13774
23184

13104
13254
1340
1355
1370
13854

517
5283
53940
55604
SB61N

13194
13494
13814

SBBON
4069

13214
13514
13834

S9184
L3550

S5947H

60904

13104
13474
13794
29064

13194
13494
13814
29234

13N
1326
13414
13564
1371%
1386

S1744
531;0
539
SS61w
SB62#
6116

1312
1327
1342
1357
1372
13874

51754
531
53964
55620
58804

13234
13534
13854

S947H
4356

61404

13214
13514
13834
29364

1313
1328
136430
13584
13738
1388

51854
S3140
5397
S5634
5881

13254
13564
13874

61804

13234
13534
13854
29504

1314
1329¢
1344
1359#
1374
1389¢

51864
53150
SLLBE
S7014
59478

13274
13594
13894

61094
5313
29804

5187#
5316
54598
S7134
5948

13294
13614
13914

61414

51884
5317
S460M
S714m
59984

13314
13634
13934

6178

Sg?&t
5318
SA61M
57154
60384

13334
13654
14054

30004
4L243K

13394
13714
14464

30884
42548

13414
13734
23084

39974

L168F

4184k

L2114

13314
13634
13934
39704

13334
13654
14044
39904

13354
13674
1405
40064

13374
13694
14184
41804

13394
1371a
1419
41944

13184
13334
1348
13634
1378
1393

13194
1334
1349
1364
13794
1394

1320
13354
1350
13654
1380
16048

13214
1336
13514
1366
13814
14064

1322
1337#
1352
1367#
1382
141824

52294
53519
54628
S7164
60454

13354
13674
14194

S% Or
708
54968
S8344
60594

13374
13694
14204

5231@
S3Ne
54978
58354
60608

52794
5372
54988
S8364
60614

31134
L2704

5280«
5373
54992
58374
6062#

CVCLWA DPV=11 DATA COMM, LINK TEST
CVCLMA.PIY
25=JUL-80 10:26

6137

MSGNTE

»
"
"
L2540
»

MSINCR

"
"

2961#
3351
38914
41034
W233%

YRTN|

MSLDRO
MSMASK

i\l
"

MSMCLO

29164
9974

29204
3001#
34490

29234
3088#
36694

29704
33754
39704
L3778

S94L7#

29774
33914
39814

1349
14184

29814
34064
39904

L1478
L2554
WS670
S4L4LBY
6059#

L1540
L2704
“Lo37»
S459#
6091#

011

L0164

val

3000#

31134

326400
35194

40224
4180#
43394
48244

4039

46824

4017#
L1694
43304
L7754

4021#

4027#

4038#

4048

L1584

54964
6:08#

55024

S537¢#

55604

39804

2933

il
40124
Li61a
42884
L7124

40064
41594
L2718

SEQ 0180

L1684

4184

UPARY

29434
33034
3571

29478
3317#
36714

29504
33304
3702#

40614
4201#
43754
5228#
S834#

L1940

4355#
S1724

57134

40684

42040
43848

5282#
58594

2324

4077
42124
44130

53124
5918#

19
w2320
\l

33464
38884

4B21#
1"
L1948
"

33464
38884
L6794
|l

39904

¢9384

2943
3004#
33464
3469

9464

3343

34664

2294
3351
35048

41804
-w

39704

— NN
SN~y

2957
3240

3088+

VUM
O

1
14

4328
YY.Y4
“B21#
1
"
1
"
L1948

2953
3238
33304
3388
3467
3667
4133

WNANINND

MSSTAR
meSV(C

29064
9894

S880#

SL° ¥

MSRAD |
M$RBRO
MSRNRO
MSSETS

29464
6141

29804

L2708
13104
1310#
12934

29324
61404

29604

1291#
1291#
12914
1291#

29194
60904

=N
—-O000O
=

MSPUTY

14460

183

MSPUT

5320

Vo wmn
R

MSPUSH

5312#

MSPRIN

4363

NAWNDY
u
-

MSPOP

4355

MeMsSK1

61774

4076

BN
B

MSMCHI]

61764

40684

MS$10SE

53734
6038#

61754

1291#
1291#
12914

SBED
3§ J3nonesgt
S=2%
g 828 *® Y88

MSHAPT
MSHNAP

61408

WwNNO
N

MSGNLS
MSGNSU
MSGNTA

L 14
MACY11 30A(1052)
25-JuL-80
10:29 PAGE
CROSS REFERENCE TABLE == MACRO NAMES

MACY11 30A(1052)
25-JuL-80 10:29 PAGE 184
CROSS REFERENCE TABLE == MACRO NAMES

PRINTS
PRINTX

SETPR]
SETVEC
SLASH
STARS
sv(
XFER
KFERF
KFERT

4020

1L
1L
1L
11
1L
"
12

6197
61462

6149

L1610

42040

40394
42044
45674
54594

40494
L2124

29974

3001#
34694

42254
5186
5497
58594

Lo4LT7H

54964

5187
5498
5860

rorOPRONONONOND
POND
b b e ed
NOONWNMNO
SN —=DOMN

nOPOPO
NN NN
PON)
=
b e e
b

rorororROrRONON

4079

4284
5369

4326

5278
3399

3416

5392
3425

OV
NO
WNOWSHN
S

SNNOWWWNIN—-O
WMNIWNGD N0
—=

NOON WO
VON NN
O — W

40490
42124
L6374

POPIND
=
b b e et

40394
42044
45674
54594

rororororRORONON

POPON)
= =
= O
&S = O WNIN—O
NOOOON~NO

WO
~NOVN

Y
AV IV I TV IV LV R ol

L3450

46374
54964

[ VYP
—

iy Lt A

O
=2 NN
O OO OO WO
N =S NO O~ Vi Ow
S 0000w )~
v WV~
W
=
BRuN M
PO
e s
O
W= ONWNWN—-O
O~NOO
S OWwVi~N

L2478

3001#
34694

5502#

3887

3384

4015

29974
344694

34490

ST ST NTNT NTNT. N1,V

— AN = 500 — N — DN O 00— N
— et NN OO NN B BN
OD
VS SOo0O0NO
=
=

ON WA
= WA BN SN NN
VWA S o~

T WB

PON)
b
s O
W =0 NN
- O
NO NNVWOSO

Ow-o-og
:uou

3754

9814

4820

4255
4428
48214

5496

9478

RFLAGS

READEF

4478

39804

40684
4169
42854
44500
4824

40614
41684

60454

3663

3891

3695#
4028
41504
42254
2 313

”
»
4408
1

READBU

SEQ 0181

oo
NON
POPIN)
=
b e e d
S NNO®WNN—-O
WO
= = NOOO

PRINTB
PRINTF

2106

POROMNLNUNONOINUNY

OPEN
POINTE

2124
2146
2165
2192
2209
2232
1L
1L

53704
60384
29430

(%]

MSXFER
NODCL

55374
1L
L3554
52284
55604
5862
1L
1297#

MSWORD

46794

3394

L2550
47120

4027#
21?7

4021
4137

NONNLNONONONN

MSTSTL

=
LLIS|LILTeY

55374
1L
32404
2519‘

L2554
L7120

MSTLAB

5172
5560
»
32400
3519#
4068#

[(WITVIT NIV D X

L4660

VIV LN Y L D

NN O NOD N = NN O~
NO =2 ONWONO
= =N o~

4083
4185
L3274

3671

-~ o

3519
4011

SN SNV SN
OV = NN
S 8 Wi NI
O N =2 N = O M O GO N WNN) — OWY
w
~ - NWNO
S OW—-00
o

CVCLMA DPV=11 DATA COMM, LINK TEST
25-JuL-80 10:26
CVCLHA.PT

3445

3981

4<080#
41840
4288
L4454

5154
55374

CVCLMA DPV=11 DATA COMM, LINK TEST
CVCLHA.P1Y
25-JUL-80 10:26

. ABS.

034164

ERRORS DETECTED:

000
O

P11
34R.MLB,CVCLHA.A
. SEQ/CRF/SOL=SVCCVCLH
CVCLHA/]1,

RUN-TIME: 22 27 3 SECONDS
RUN-TIME RATIO: 95/53=1.8

CORE USED:

19k

(37 PAGES)

N 14

MACY11 30A(1052)
25-JuL=-80 10:29 PAGE 185
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0182