Digital PDFs

AH-S978A-MC

May 1983

279 pages

Original

115MB

view download

OCR Version

138MB

view download

Document:	CZKMSA0 KMS-BD KMS-BD DCLT MAY 1983 bw
Order Number:	AH-S978A-MC
Revision:	000
Pages:	279
Original Filename:	CZKMSA0__KMS-BD__KMS-BD_DCLT__AH-S978A-MC__MAY_1983_gray.pdf

OCR Text

KMS-BD DCLT
CZKMSAD

AH-S97BA-MC
FICHE 1 OF 2

e oo
w0 v usa

KMS - B0

“MR7kisAG '

ETcHE
2 oF 2 e FIEINE]

SVC.MLB SOURCE_FILE

23-DEC-82 13:54

23-DEC-82

30A(1052)

WA
=

CZKMSA.PT1

_ MACY11

e3-0t(=42
.TITLE

14:01

SEQ 1

GE 2

(CZKMSAO KMS11-BD/BE DCLT

.REM ¢

PRODUCT CODE:

AC=S977A=-M(

PRODUCT NAME:

CZKMSAO KMS=BD DCLT

PRODUCT DATE:

01-APR-83

MAINTAINER:

MERRIMACK DIAGNOSTIC ENGINEERING

AUTHOR:

GLORIA MEREDITH

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

NO RESPONSIBILITY

IS ASSUMED

FOR

SCFTWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

THE

FOLLOWING ARE

DIGITAL
DEC

(C)

THE

USE

SUPPLIED

IN THIS DOCUMENT.

RELIABILITY

DIGITAL

1983 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUS

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

CORPORATION:

MASSBUS

OR ITS

CZKMSAQ KMS11-BD/BE DCLT

CZKMSA,.P1

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-B2

14:01

PAGE 3

REVISION HISTORY:

REV

DATE

AUTHOR

01-APR-83

G. MEREDITH

REASON

ORIGINAL ISSUE

SEQ 2

CZKMSAQ KMS11-gDIBECL!

23-DEC-B2

14:01

PAGE 4

PROGRAM DOCUMENT

o
o
o

1
1
1

2
2
2
2

Z.g

WSS NN

—

TABLE OF

.SBTTL

MACY1? 30A(1052)

VSN WNND =

23-DEC~

CZKMSA. P

SEQ 3

CONTENTS

10
GENERAL INFORMATION
PROGRAM ABSTRA 1

T
SYSTEM REQUIRE MENTS
RELATED DOCUME NTS AND STANDARDS
DIAGNOSTIC HIER ARCHY PREREQUISITES

ASSUMPTIONS = RESTRICTIONS

OPERATING INSTRUCTIONS
COMMANDS
SUIT(HES
FLAGS
HARDWARE QUESTIONS

DATA (OMM, LINK TEST COMMANDS
1

MESSAGE COMMANDS

RUN COMMANDS

2
3
5
6

LINE SELECTION COMMANDS
OPERATOR ASSISTANCE COMMANDS
PRINY COMMANDS
DEFA ULTS

u ICK

INFORMAT ION

ES OF ERROR MESSAGES
CIFIC ERROR MESSAGES
3.2.1 1 COMMAND LINE INTERPRETER ERRORS
3.2.2 DCLT ERROR MESSAGES
3.2.3 DEVICE ERROR MESSAGES
Y

2
3

STARTUP PROCEDURE

PERFORMANCE AND PROGRESS REPORTS
PRINTING EVENT LOG

OPERATOR STATUS MESSAGES
PRINTING LINE STATUS
DEVICE INFORMATION TABLES

@
:

‘e

—_

14:01

1
2

3
4

s
Ee

MOD~—
—>

-t e OO = e

b s

ooooororOn

23-DEC-82

SCRIPTIONS

O*\I!“w—'g
MIIOO—OO"U’;"‘

MACY11 30A(1052)

LT
CZKMSAQ KHS\\ D/BE
DEC-8
CZKMSA.P1

)
OTHER INFORM

NCE ‘‘LOOP'' MODES

MMARY TABLE

Rl PTIONS
ON
T TO AN '‘ITEP'"

INTERFACING
TROUBLESHOOTING HINTS

EXAMPLES OF COMMANDS
THINGS 70 WATCH OUT FOR

NODE

PAGE 5

SEQ &

CZKMSAQ KHS11-§D/BE

CLY

23-DEC-B2 13:5¢4

MACY11 30A(1052)

23-DEC-B2

14:01

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS DCLT (DATA COMMUNICATION LINK TEST) PROGRAM [S MEANT T0
PROVIDE FIELD SERVICE WITH A TOOL TO MAINTAIN KMS11-BD/BE T0

DDCMP POINT=TO=-POINT COMMUNICATION LINKS.

THIS DCLT PROGRAM

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

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC
RUNTIME SERVICES SOF TWARE (SUPERVISOR). THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, SLIDE AND PAPER TAPE.

FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER TO THE

XXDP+ USER'S MANUAL (CHQUS?.SEQ WHERE ? IS REV. LEVEL OF THE
MANUAL). THERE 1S A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN
SECTION 2 OF THIS DOCUMENT,
1 .2

SYSTEM REQUIREMENTS

IN ORDER TO RUN THE KMS11-BD/BE DCLT PROGRAM, THE FOLLOWING

MINIMUM HARDWARE IS REQUIRED:
A PDP-11

CPU

MINIMUM OF 24K WORDS OF MEMORY
A WORKING, LINE OR REAL-TIME CLOCK
A CONSOLE TERMINAL

ANY XXDP+ SUPPORTED &OAD MEDIA

A KMS11-BD/BE WITH H3256 TURNAROUND CONNECTOR
THE KMS11-BD/BE COMPONENT PARTS ARE:
1
1
1
1

111y
=

CZKMSA.P11

PAGE 6

KMC11=-" MICROPROCESSOR
DMS11=DA LINE UNIT
H317-M DISTRIBUTION PANEL
DM11-BA MODEM CONTROL MULTIPLEXER

RELATED DOCUMENTS AND STANDARDS

KMS11-BD/BE OPTION DESCRIPTION
KBC11 MICROPROCESSOR USERS MANUAL
KMC11-B PROGRAMMERS MANUAL

YM=-C174C-00
EX-KMC11-0P
YM-P093(-00

OPTION DESCRIPTION
DM11-BA MODEM CONTROL MULTIPLEXER

YM-C093C-00
YM-C138C-00

KMC11-B UNIBUS MICROPROCESSOR

DMS11=D/DA SYNCHRONOUS LINE UNIT

YM-C186C-00
OPTION DESCRIPTION
XXDP+ USER'S MANUAL (CHOUS?.SEQ WHERE ? IS THE REV. LEVEL OF
THE MANUAL = *'C**

IS THE CURRENT REV.).

SEQ 5

CZKMSAQ KHS11-§D/8E

CZKMSA.P11

cLY

23-DEC-82 13:54
1.4

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 7

DIAGNOSTIC HIERARCHY PREREQUISITES

THE GOAL OF THE DATA COMM, LINK TEST PROGRAM IS TO TEST THE
COMMUNICATION LINK AND THEREFORE ASSUMES THAT THE CPU'S,
CLOCKS, THE KMS11-BD/BE USED AT ONE END OF THE LINK AND THE

DDCMP SUPPORTING COMMUNICATIONS DEVICE USED AT THE OTHER END
OF THE LINK HAVE ALREADY BEEN TESTED.

IF NO LINE OR REAL=-TIME CLOCK IS FOUND, THE PROGRAM WILL CONTINUE
BUT WILL NOT EXIT FROM ROUTINES USED TO TIME WAITS FOR COMPLETION
OF A PROCESS AND WILL NOT REPORT ELAPSED TIME IN SUCH TIMING
LOOPS. IN ADDITION, 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 KMS11-BD/BE BUT TO TEST THE COMMUNICATION | INK TO

WHICH IT IS CONNECTED.

SOME OF THE DIAGNOSTICS THAT COULD SE RUN IF THE KMS11-BD/BE
LOOKS BAD:

CZKMB = KMC11 TEST = PART 1
CZKMC = KMC11 TEST = PART 2
CZKMD = DMS11-DA STATIC TEST
CZKME = DMS11-DA DYNAMIC TEST
CZKMF = DMS=11- DM11
INTERACTION TEST
CIKNG

DM11-BA MODEM CONTROL

TEST

1.5

(MICROPROCESSOR)
(MICROPROCESSOR)
(LINE UNIT)
(LINE UNIT)
(LINE UNIT=MODEM
YM-2136D-3 CONTROL INTERACTION)

YM-2093D-A
YM=-2093D-B
YM=2136D=1
YM=2136D-2

YM-2138D-A (MODEM CONTROL)

ASSUMPIIONS = RESTRICTIONS

IT IS ASSUMED THAT THE KMS11-BD/BE HAS BEEN TESTED USING THE

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

SES ¢

CZKMSAQO KMS11-BD/BE DCL }3 5
23-DEC~ 82
CZKMSA.P11

2.0

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 7

PAGE 8

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
RESTART

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING

PROCEED

CONTINUE FROM AN ERROR HALT

CONT INUE

EXIT
ADD

DROP
PRINT

DISPLAY
FLAGS

IFLAGS

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “()

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
BY THE DIAGNOSTIC = SECTION 4.0)

TYPE A LIST OF ALL DEVICE INFORMATION
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

LY
§Lls.cq
CZKMSAO KMS11-BD/BE
23-DEC~
CZKMSA.P1N

2.2

30A(1052)
MACY11 30A(1052)

2 23-DEC-B2 2

PAGE 3 9

14:01

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFYSUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL
2
SWITCHES ARE TABULATED BELOW WITHA BRIEF DESCRIPTION OF EACH,

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

EFFECT

JTESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN

/PASS:DDDDD
/FLAGS:FLGS

EXECUTE DDDDD PASSES (DDDDD= 1 TO 64000)
SET SPECIFIED_FLAGS. FLAGS ARE DESCRIBED

/EOP:DDDDD

JUNITS:LIST

THE KkMS11-BD/BE DCLT PROGRAM
THE LIST.
(ONTAINS ONLY ONE TEST.

IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY. _(DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED
IN THE LIST. THE KMS11-BD/BE DCLT PROGRAM
WILL TEST ONLY ONE UNIT

EXAMPLE OF SWITCH USAGE:

START /PASS:1000/E0P:100

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS ' 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
PROCEED

DROP
ADD

DISPLAY
FLAGS

IFLAGS
EXIT

TESTS

PASS

FLAGS

X
X

X
*
x

X
X
X
"

EOP

UNITS

¥
»

SEQ 8

CZKMSAD KMS11-BD/BE DCLT

CIKMSA.P11

23-DEC-82 13:54
2.3

MACY11 30A(1052)

23-DEC=82

14:01

PAGE 10

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

EFFECT

HOE

HALT ON ERROR = CONTROL IS RETURNED TO

LOE
[ER®

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS

IBE*

IXE*
PRI
PNT
BOE

UAM

1SR

IDR

ADR
LOT

EVL

RUNTIME SERVICES COMMAND MODE

INHIBIT ALL ERROR REPORTS EXCEPT

(FIRST LEVEL CONTAINS
FIRST LEVEL
ERROR TYPE, NUMBER, PC, TEST AND UNIT)

INHIBIT EXTENDED ERROR REPORTS (THOSE

CALLED BY PRINTX MACRO'S)
DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
“BELL'' ON ERROR

UNATTENDED MODE (NO MANUAL INTERVENTION)
THE KMS11-BD/BE DCLT REQUIRES MANUAL

INTERVENTION TO SELECT A LINK TO TEST.
INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

INHIBIT PROGRAM DROPPING OF UNITS

EXECUTE AUTODROP CODE
LOOP ON TEST

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.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,
70 CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
AND TYPE A "BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE: IER:BOE

SEQ 9

CZKMSAQ kMS11-BD/BE gCLT
CZKMSA. P11
23-DEC-B2 13:5¢4

2.4

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 10

PAGE 11

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC

IS STARTED,

THE USER FOR HARDWARE

THE RUNTIME SERVICES WILL PROMPT

INFORMATION BY

TYPING '‘CHANGE HW (L)

YOU MUST ANSWER "'v'' AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN "‘PRELOADED'' USING THE SETUP UTILITY (SEE
THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS

CHAPTER 6 OF

QUESTION WITH A "'v'",

THE RUNTIME

THE KMS11-BD/BD COMM,

LINK TEST PROGRAM WILL NOT USE MORE

OF UNITS (IN DECIMAL).

8TELUgéT.

SERVICES WILL ASK FOR THE NUMBER

FOR THE KMS11-BD/BE THE HARDWARE

# UNITS

(D)

THAN

INFORMATION REQUESTED

1<(R>

UNIT 0
FULL DUPLEX ONLY

DEVICE CSR ADDRESS : (0)
164100 ?
INTERRUPT VECTOR ADDRESS: (0) 400 ?
INTERRUPT PRIORITY: (0) § ?
DM11-BA CSR ADDRESS (0) 164110 ?
AFTER THESE HARDWARE QUESTIONS ARE ANSWERED THE PROGRAM ENTERS THE
DCLT COMMAND LEVEL AND PRINTS THE FOLLOWING MESSAGE. THE LAST LINE

THE MESSAGE

IS THE PROMPT FOR A DCLT> COMMAND.

THIS IS DCLT. TYPE *"W'* OR '*?'" FOR DETAILS
MODE=ACTIVE/PASS=00001
/NOSTATUS/CHECK/NOE CHO/NOMODEM
DCLT> (A) ?

L
CZKMSAQ KMS11= D/BE DCL
CZKMSA,.P11
25-DEC-B2 13:5¢4

2.5

MACY11 30A(1052)

23-DEC-82

14:01

1
PAGE 12

DATA COMM. LINK TEST COMMANDS

THE DCLT COMMAND LEVEL IS ENTERED AFTER THE HARDWARE QUESTIONS ARE
ANSWERED. TYPE IN DCLT COMMANDS WHEN THE DCLT> (A) ? PROMPT IS
PRINTED.

COMMANDS CAN BE TYPED WITH ONLY ENOUGH CHARACTERS TO UNIQUELY SPECIFY

A COMMAND.

THE COMMAND LINC IS INTERPRETED FROM LEFT TO RIGHT.
THEREFORE 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 APPLY TO THE COMMAND.)

PARAMETERS WORD.)

SECTION 6.0 DESCRIBES THE DIFFERENT MODES UF TEST OPERATION AND
T4E

TYPES OF MESSAGES AVAILABLE.

2.5.1 MESSAGE COMMANDS
COMMAND

DESCRIPTION

DCLT> (A) ? CLEAR EXPECTLIST

!
DCLT> (A)

? CLEAR TRANSMITLIST

F ILL g THE

EXPECTLIST WITH

4 EROS
AND THEN PUTS ONE
l TEP MESSAGE ON THE LIST.

; ILLS S THE TRANSMITLIST WITH

S AND THEN PUTS ONE

i MESSAGE ON THE LIST.

SEQ 11

DCLT>

MACY1? 30A(1052)
(A)

DCLT> (A)

SET

23-DEC-82

14:01

T0O BE PUT ON

TRANSMITMSG=TYPE/QUAL

? SET EXPECTMSG=TYPE/QUAL

WHERE:

=TYPE

T0 BE PUT ON

IS ONE OF:

AND THE OPTIONAL /QUAL

IS ONE OR BOTH OF:

/SI1ZE=NNN

MAKE THE MESSAGE ''NNN'' BYTES
LONG. (DEFAULT SIZE IS
DETERMINED BY THE MESSAGE

/COPY=NN

COPY THIS

TYPE.

BUFFER
1S 0

ONLY
NN AND NNN ARE DECIMAL NUMBERS.

NOTE:

SEQ 12

PAGE 13

on>o»

CZKMSAO kKMS11-BD/BE DC LY
CZKMSA.P11
25=-DEC -82 13:5¢4

MESSAGE

INTO THE

"'NN'' TIMES (DEFAULT
?g; THE MESSAGE IN

SET COMMANDS ADD MESSAGES TO THE LIST IN THE ORDER THEY'RE
DEFINED. THE FIRST SET COMMAND OVERWRITES THE ITEP DEFAULT

MESSAGE
.

DCLT> (A)

? SET EXPECT=TRANSMIT

COPY THE TRANSMIT LIST INTO

DCLT> (A)

? SHOW EXPECTLIST

PRINT THE SIZE AND TYPE OF THE
MESSAGES IN THE EXPECT LIST.

DCLT> (A)

? SHOW TRANSMITLIST

PRINT THE SIZE AND TYPE OF THE
MESSAGES IN THE TRANSMIT LIST

THE EXPECT LIST.

CZKMSAOD kMS11-BD/BE

CZKMSA. P

DCLT

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 13

PAGE 14

2.5.2 LINE SELECTION COMMANDS
THE kMS11-BD/BE DCLT COMMUNICATI
COMMUNICATIONS LINK ON ANY OF TH
ONLY ONE LINK CAN
KMS11-BD/BE._
ESTABLISH A SPECIF
MUST
OPERATOR
TESTED IN RESPONSE TO A DCLT> RU

LINK TEST PROGRAM TESTS A DDCMP

GHT LINES SUPPORTED BY A
THE TEST
ESTED AT A TIME,
INE TO TEST BEFORE A LINK CAN BE

MMAND
.

COPHAND

DCLT> (A) ’ LINE ESTABLISH N
WHERE N = 0..7

ESTABLISH N AS THE CURRENT
LINE NUMBER. SUBSEQUENT RUN
COHHANDS APPLY TO LINE N

DCLT> (A) ? LINE KILL

DELETE THE CURRENT LINE NUMBER

DCLT> (A) ? LINE SHOW

PRINT THE CURRENT LINE NUMBER

2.5.3 OPERATOR ASSISTANCE COMMANDS
HELP

PRINT HELP INFORMATION

DUMP

SSSSSS-EEEEEE/B
WHERE SSSSSS

AND
EEEEEE
ARE OCTAL ADDRESSES

AND /B 1S OPTIONAL.

PRINT THE CONTENTS OF Mt
LOCATICNS SSSSSS _TO EE EE
IF -EEEEEE IS NOT SPEC IF
THEN PRINT THE WORD AT

LOCATION SSSSSS.

THE DEFAULT IS PRINT WORDS.

PRINT BYTES IF

/B.

NOTE: THE DUMP COMMAND IS USEFUL FOR EXAMINING MESSAGE DATA.
STARTING ADDRESSES CAN BE FOUND IN THE EVENT LOG.
*

B
CZXMSAD kM1 -g D/BE
2 -DEC~
CIKMSA.P

SL{S:Sk

MACY1Y 30A(1052)

23-DEC-B2

14:01

SEQ 14

PAGE 15

2.5.4 RUN COMMANDS
RUN MODES ARE DESCRIBED IN SECTION 6
COMMAND

DESCRIPTION

RUN MODE=MTYPE/QUAL

STARTS DCLT EXECUTING IN THE
MODE SPECIFIED

NOTE: THERE IS NO DEFAULT MODE. MODE=MTYPE MUST BE TYPED
IN EACH RUN COMMAND.

WHERE

=MTYPE IS ANY ONE OF THE FOLLOWING:

=ACTIVE
=PASSIVE
=RECEIVE

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

=TRANSMIT
=TALK

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

=LISTEN

(FORCES /NOECHO ,NO LOOPING, /NOCHECK)

THE KMS11-BD/BE DOES NOT SUPPORT DOWN=-LINE-LOAD,
A MODE AVAILABLE IN SOME DCLT PROGRAMS.

AND OPTIONAL /QUAL 1S ANY COMBINATION OF THE FOLLOWING:
CK
/CHECK/NOCHE

ENABLES/DISABLES CHECKING OF RECEIVED
DATA AGAINST THE EXPECTED DATA

NOTE: IF BOTH NODES IN A DCLT TEST RUNN IN ACTIVE MODE
AND /NOCHECK 1S USED THEN END=CF=PASS IS IS DEF INED AS
RECEIVED EQUALS
OCCURING WHEN THE NUMBER OF MESSAGES R ECE!
WITHOUT
IS
THE NUMBER OF MESSAGES IN THE TRANSMIT LIST.
HOW
KNOW
T
10
DATA CHECKING, THERE IS NO WAY FOR Dg

MANY MESSAGES ARE EXPECTED TO BE RECEI VED.

/STATUS/NOSTATUS

ENABLES/DISABLES PRINTING PROGRAM

/ECHO/NOE CHO

ENABLES/DISABLES RETRANSMISSION OF

STATUS MESSAGES.

THE DATA RECEIVED IN PASSIVE MODE.

NOTE: VALID ONLY FOR PASSIVE MODE. IF THIS SWITCH
IS USED THE TRANSMIT LIST MUST BE REBUILT.

CZKMSAD KMS11
CZKMSA.P11

D/BE

DCLT

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-B2

/LOOP=LTYPE

14:01

PAGE 16

ENABLES LOOPBACK TEST IN ACTIVE MODE

TEST RUNS. THE ACTIVE MODE DEFAULT IS
NO LOOPBACK. /LOOP IS IGNORED IN OTHER

MODES.

WHERE =LTYPE IS ONE OF THE FOLLOWING:

=INTERNALTTL

ENABLES LINE UNIT INTERNAL LOOPBACK

=CABLE

PROVIDES A USEFUL RECORD FOR A TEST

FOR THE ESABLISHED LINE.

THAT IS RUN WITH A LOOPBACK CONNECTOR

INSTALLED. THERE IS NO EFFECT ON THE

HARDWARE OR IN THE DCLT PROGRAM.

THE FOLLOWING LOOP TYPES ARE NOT SUPPORTED BY THE
g:g%;;fiD/BE. THEY HAVE NO EFFECT IN THIS DCLT

=LOCALMODEM

(NOT SUPPORTED BY KMS11-BD/BE)

=REMOTEMODEM

(NOT SUPPORTED BY KMS11-BD/BE)

NOTE: THE KMS11-BD/BE DOES NOT REPORT MODEM STATUS.

/PASS=NN

NOTE:

SPECIFIES EXECUTION OF NN ITERATIONS

OF THE TEST BEFORE END=-OF =PASS.
DEFAULT IS 1. IF NN = =1 THE TEST WILL
BE REPEATED UNTIL CNTRL=C IS TYPED.

SEE SECTION 6.1 FOR A DESCRIPTION

OF THE RUN MODES.

SEQ 15

CZKMSAQ KHS1\°§DIBE

CZKMSA.P11

CLY

23-DEC-B2 13:54

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 17

EXIT COMMAND

THE EXIT COMMAND RETURNS THE USER TO THE SUPERVISOR DR>

PROMPT AFTER PRINTING A SUPERVISOR END OF PASS.
DCLT> (A) ? EXIT

2.5.5

PRINT COMMAND

THE PRINT COMMAND INVOKES A REPORT COMMAND INTERPRETER,
REPORT COMMANDS ARE USED TO PRINT THE EVENT LOG AND THE
STATUS OF THE ESTABLISHED LINE.

RPT> IS THE PROMPT FOR REPORT COMMANDS

B —

e Ak

RPT> HELP

PRINTS HELP INFORMATION FOR RPT>

RPT> 2

PRINTS HELP INFORMATION FOR RPT>

INE
RP1> STATUSONL

PRINTS STATUS INFORMATION FOR THE

RPT> L0G

DUMPS THE EVENT LOG

RPT> EXIT

RETURNS TO THE COMMAND PROMPT WHERE

ESTABLISHED L INE

THE PRINT COMMAND WAS TYPED.

DCLT>

DR>

SEQ 16

CZKMSAO KMS11-BD/BE DCLT

CZKMSA.P11

23-DEC-82 13:54
2.5.6

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 18

DEFAULTS

IF NO DCLT> SET COMMANDS HAVE BEEN USED THEN DEFAULTS
EQIVALENT TO THE FOLLOWING COMMANDS APPLY.

DCLT> (A) ? SET TRANSMITMSG= lYEP/Sll%58/COPV 0
DCLT> (A) ? SET EXPECTMSG=1TEP/Si2E=58/C0PY=0
THE DEFAULT COPY AND SIZE FOR EACH MESSAGE TYPE

IS:

ONES = /S1ZE=64/COPY=0
ZEROES = /SI1ZE=64/C0PY=0
OALT = /SI1ZE=64/C0PY=0
1ALT = /S12E=64/C0PY=0

CCITT = /SIZE=64/COPY=0

ALPHA = /S1ZE=65/C0PY=0

1TEP - /SIZE=58/COPY=0

OPER. SPEC'D = /SIZE=LENGTH=OF=TEXT=TYPED-BETWEEN-QUOTES/COPY=0
DEFAULTS FOR THE DCLT> RUN COMMAND
MODE
:

THERE IS NO DEFAULT MODE FOR THE DCLT> RUN COMMAND.
A MODE=MTYPE MUST BE TYPED EACH TIME A RUN IS TYPED.

DEFAULT QUALIFIFRS FOR THE DCLT> RUN COMMAND ARE:
:
HENCE

S=1
CHE
CHC/NOMODEM/PAS
ATUS/
/NOSTCK/NOE

DCLT> (A) ? RUN MODE=ACTIVE
IS EQUIVALENT T0:

DCLT> (A) ? RUN MODE=ACTIVE/NOSTATUS/CHECK/NOECHO/NOMODEM/PASS=1
THE KMS11-BD/BE DCLT PROGRAM HAS NO DEFAULT ESTABLISHED LINE.

OTHER NOTES:

*C
<(CR>

*'RUBOUT"'

ALWAYS RETURNS YOU TO ''DR>" (THE SUPERVISOR)
IS SEEN AS A COMMAND TERMINATOR
DELETE LAST CHAR. TYPED IN COMMAND STRING

SEQ 17

kMS11-BD/BE

CZKMSAD
P
CZKMSA.

DCLT

22-05(-2% 13:54

MACY1? 30A(1052)

23-DEC-82

2.6 QUICK START=UP PROCEDURE

14:01

PAGE 19

(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 CZKMSA'',

WHERE NAME IS THE NAME OF THE BIN OR BIC

FILE FOR THIS PROGRAM

4. TYPE "'START"

5. ANSWER THE ''CHANGE HW'' QUESTION WITH *'v"
6. ANSWER ALL THE HARDWARE QUESTIONS.

THAT CAN DCLT CAN USE IS ALWAYS *"1',

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. AT THE "'DCLT> (A) ?'' PROMPT, TYPE

DCLT> (A) ? LINE ESTABLISH=N<CR>
WHERE N IS THE NUMBER IN THE RANGE
O TO 7 OF THE LINE TO BE TESTED

DCLT> (A) ? RUN MODE=ACTIVE<CR>
A SHORT FORM OF THESE COMMANDS CAN BE USED.
DCLT> (A) ? L E=N<CR>
DCLT> (A) ? R M=A<(R>

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

SEQ 18

MRS4tPDCLTP
FL IS W I KMS11=BD/BE
S CZKMSAO

MACY1? 30A(1052)

23-DEC-82

2 14:01 PAGE J 20

3.0 ERROR INFORMATION

3.1 TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED, GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE ''IER'" FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:

NAME

TYPE

NUMBER

ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

+WHERE; 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
INFORMATJON 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

3.2.1 COMMAND LINE INTERPRETER ERRORS:

ERROR MESSAGE:

MEANING

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

?2INCMPLTE CMD?

A03§OUlRD PART OF A COMMAND WAS LEFT

?NUM TOO BIG?

THE VALUE OF A NUMERIC STRING IN_THE
COMMAND blNE WAS LARGER THAN 65535

OR 177777

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

SEQ

CZKkMSAO kMS11-BD/BE

CZKMSA. P

DCLT

23-DEC-B2 13:56

MACY11 30A(1052)

23-DEC-82

2*'LOOP'* VALID ONLY IN ACTIVE?

14:01

SEQ 20

PAGE 21

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

RUN COMMAND BUT THE MODE WAS NO
T0 ACTIVE. MAINTENANCE LOOP IS

:g%isgLE IF THE MODE OF OPERATIO

2" ECHO'" VALID ONLY IN PASSIVE?

THE '‘/ECHO'' SWITCH WAS TYPED I

RUN_COMMAND BUT THE MODE WAS
TO PASSIVE. ECHOING OF RECEIV

IS ONLY POSSIBLE IF THE MODE
OPERATION IS PASSIVE.

2ILL CHR= *‘A=2,0-9,SP,TAB'' ONLY? A CHARACTER TYPED WITHIN QUOTES WHEN
A

TRYING TO DEFINE THE CONTENTS OF
TRANSMIT OR EXPECT MESSAGE WAS NOT
A “'A=2,0-9,SPACE OR TAB'', RETYPE THE

COMMAND WITH ONLY THESE CHARACTERS

BETWEEN QUOTES.

?'S1Z2E=0"" NOT VALID?

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

“/SIZE=NNN'',

IF NO ''/SIZE="" IS TYPED

A DEFAULT SIZE WILL BE USED.

2TRANSMIT AND EXPECT LIST MUST BE IDENTICAL FOR LOOP?

If RUN COMMAND WITH **/1 L gOP/CH" IS TYPED
TRANSMIT AND EXPE%T

ISTS MUST BE

EQUAL. USE ''SE E=T'" ( OMMAND.

?A LINE MUST BE ESTABLISHED TO EXECUTE?
A DCLT> RUN COMMAND WAS TYPED WITH NO
LINE NUMBER ESTABL ISHED.
A DCLT> LINE ESTABLISH=N

COMMAND MUST BE TYPED IN BEFORE A
DCLT> RUN COMMAND CAN EXECUTE.

P7LINE NUMBER= XXX INVALID (NUMBERS 0-7 ARE VALID)?

A DCLT> LINE ESTABLISH=XXX WAS TYPED

IN WITH XXX NOT IN THE RANGE 0..7.

DOWN LINE LOAD NOT AVAILABLE FOR THE KMS11-BD/BE

A DCLT> RUN MODE=DOWN WAS TYPED.
THE KMS11-BD/BE DOES NOT SUPPORT DOWN

CZxMSAD kMS11-BD/BE

DCLY

23-DEC-B2 13:564
3.2.2

MACY11 30A(1052)

23-DEC-82

DCLT ERROR MESSAGES:

CLOCK NOT FOUND

14:01

PAGE 22

LINE LOAD.

THIS MEANS THAT NO CLOCK WAS FOUND

ON THE SYSTEM THE DIAGNOSTIC WILL
OF THE TIME OUT
STILL_RUN BUT NONE
OCCUR.
WILL
NS
CONDITIO

BAD CLOCK = PROGRAM WILL HANG ON_‘‘TIMEOUT'':!

THIS MEANS THAT EITHER NO CLOCK WAS

ON THE SYSTEM OR THE ONE THAT WAS FOUND
g%gcggt INTERRUPT WHEN ASKED TO DO A

THE PROGRAM WILL STILL RUN,

BUT ANY

OF THE PROGRAM THAT TIMES THE DEVICE

WILL HANG IF THE DEVICE TIMES OUT.
ALSO, THE EVENT LOG WILL CONTAIN A
2ERO EVENT TIME FOR ALL EVENTS LOGGED.
MAX. CHAR, MSG COUNT EXCEEDED - MSG. NOT BUILT

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

BUFFER FULL = MSG. NOT BUILT !!
~PmMmaeo

CZxKMSA. P

SEQ 21

ANS THAT THE LAST MESSAGE YOU
ADD TO EITHER THE TRANSMIT OR
FFER CAUSED THE TOTAL NUMBER

ES TO BE EXCEEDED. NO MORE
CAN BE ADDED TO THAT BUFFER.
1S DETERMINED BY THE SIZE OF
T
THE MESSAGE POINTER TABLE. THE LIMIT
IS CURRENTLY 15.

CHAR, COUNT EXCEEDS BUFF LIMIT = MSG TRUNCATED
THIS MEANS THAT THE LAST MESSAGE YOU
TRIED TO ADD TO THE TRANSMIT OR EXPECT

BUFFER CAUSED THE TOTAL CHAR. COUNT

FOR THAT BUFFER _TO EXCEED THE LIMIT.
THE LIMIT IS

NO LINE NUMBER IS ESTABLISHED

512, BYTES.

THE MESSAGE WAS TRUNCATED TO COMPLETELY
FILL THE BUFFER, NO MORE MESSAGES CAN
BE ADDED TO THAT BUFFER.

RESPONSE TO DCLT> LINE SHOW COMMAND
WHEN NO LINE NUMBER IS ESTABLISHED.

CZKMSAQ kMS11-BD/BE D L}S'SG
25-DE
CZKMSA.P1
3.2.3

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 22

PAGE 23

DEVICE ERROR MESSAGES:

DATA COMPARISON DATA ERROR

BYTE # IN MSG=XXX

EXPTD=YYY

RECVD=111
XXX= OFFSET OF THAT BYTE FROM THE START
OF THE COMPARE OR EXPECT MESSAGE.
YYY= THE CONTENTS OF THAT BYTE IN THE
EXPECTED MESSAGE

I11= 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 MISMATCHES |S REPORTED

BY ANOTHER ERROR.

PRINTING THE EVENT LOG AND USING THE

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

DATA COMPARISON DATA ERROR

TOTAL MISMATCHES IN MSG = NNN

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

DATA COMPARISON LENGTH ERROR

COMPARE COUNT= XXX

RECEIVE COUNT= 277
XXX= NUMBER OF BYTES IN THE COMPARE
MESSAGE

111= NUMBER OF BYTES IN THE RECEIVED
MESSAGE

THIS MEANS THAT THE MESSAGE RECEIVED
WAS A DIFFERENT LENGTH THEN THE MESSAGE
THAT WAS EXPECTED.

® NOTE *
trasnene

= IN THE FOLLOWING ERROR DESCRIPTIONS XXXXX
REFERS TO THE OCTAL CONTENTS OF THE DEVICE REGISTERS
SPECIFIED.

KMS FAILED TO START

SELO = XXXXXX

SEL2 = XXXXXX

:THIS ERROR INDICATES THAT THE

;DEVICE %o NOT CLEAR BSELZ2

:WITHIN 100C (OCTAL) CLOCK TICKS
:AFTER THE RUN BIT WAS SET.

:MAY INDICATE A MICROPROCESSOR
sFAILURE.

23oDEC-80 13556

CZKMSAD kMS11-BD/BE DCLY

30A(1052)
A1

)

23-DEC-82
-DEC=

14:01

SEQ 23

PAGE 24

NOTE NO CONNECTION HAS BEEN ESTABL ISHED

If THIS ERROR OCCURS

KMS DID NOT RESPOND TO CSR COMMAND

SELO = XXXXXX

SELZ = XXXXXX

WAITING TO COMPLETE DEVICE

SELO = XXXXXX

:THIS ERROR IND ICATES THAT THE
sKMS FAILED TO RETURN AN EXPECTED

sRESPONSE TO A gggflAND ISSUED
:BY THE PDP=-11

INITIALIZATION

SELZ2 = XXXXXX

;THIS ERROR INDICATES THAT THE
:KMS DID NOT RETURN AN INITIALIZAYION
: COMPLETED RESPONSE AFTER THE
:PDP=11 ISSUED
A COMMAND TO
sINITIALIZE THE DEVICE. THIS
¢MAY INDICATE A MICROPROCESSOR
:FAILURE,

sNOTE: NO CONNECTION HAS BEEN ESTABLISHED
IF THIS ERROR OCCUR

WAITING FOR START DDCMP REQUEST TO COMPLETE

SELO = xXXXXX

SEL2 = XXXXXX

;THIS ERROR INDICATES THAT THE

:KMS HAS NOT RETURNED A RESPONSE

$CONFIRMING THAT THE SYSTEM AT

:THE OTHER END OF THE LINK HAS
:HAS STARTED (OR RESTARTED)

:DDCMP AFTER THE PDP11

ISSUED

*A REQUEST TO THE KMS TO ENTER

sNOTE:

:DDCMP START STATE.

11 IS POSSIBLE THAT NO CONNECTION

HAS BEEN ESTABLISHED

KMS DID NOT RESPOND TO RQI

SELO = XXXXXX

SEL2 = XXXXXX

MDD
P
=it T

TO COHPLE!E

SEL2
= XXXXXX

NeesMMIT

SELO
= XXXXXX

LA TEATE TR TR TRJ

TIME OuT WAITING FOR TX OR RX

’M-‘(—O—-fl

ERROR OCCURS

—t DO —-4

CICNSAPIT

MACY1

THIS

S_THE MOST POPULAR
THAT THE 60 SEC
PLETE.
AFTER THIS
THE PROGRAM WILL
MER AND LOOP AGAIN
NDICATES THAT THE
OT RETURN RDYI IN
AN RQI BEFORE THE

THE TIMER iS

L
CZKMSAD KMS11=- D/BE DCLTY
CZKMSA.P11
23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-82

14:01

ILLEGAL TRANSMIT COMPLETE

LINE NO

BDL NO

XXX

SEQ 24

PAGE 25

; INDICATES DEVICE GOT A TX

;COMPLETE WHEN IT WAS NOT
SEXPECTING IT.

ILLEGAL RECEIVE COMPLETE
LINE NO
BDL NO

s INDICATES DEVICE GOT A RX
;COMPLETE WHEN IT WAS NOT

DDCMP RESTART RE(EIVED
LINE NO
=

;THIS ERROR INDICATES THAT
:A DDCMP RESTART MESSAGE WAS

KMS TIMEOUT WAITING FOR RES PONSE TO TX

;THIS ERROR INDICATES THAT THE

XXX

STATUS

= XXX

TEMP DATA = XXX
ACKS RCVD = XXX
NAKS SENT = XXX

FLAGS
= XXX

LAST TX MSG = XXX
MSGS RCVD = XXX
NAKS RCVD = XXX

;EXPECTING IT.

;RECEIVED WHILE THE KMS WA
:IN THE RUN STATE.

:KMS HAS TRANSMITTED A MESSAGE

sAND IS WAITING FOR A RESPONSE

KMS TIMEOUT. NO RESPONSE TO START MESSAGE ;THIS ERROR INDICATES THAT

STATUS

= XXX

TEMP DATA = XXX
ACKS RCVD = XXX
NAKS SENT = XXX

FLAGS
= XXX

:THE KMS HAS TRANSMITTED A

LAST TX MSG = XXX
MSGS RCVD = XXX
NAKS RCVD = XXX

:DDCMP START MESSAGE AND IS
iWAITING FOR A RESPONSE

sNOTE: THE TWO MESSAGES ABOVE INDICATE THAT THE KMS
IS UNABLE TO CONTINUE TRANSMISSION ON
A LINE.
1T 1S POSSIBLE THAT THE LINE IS NOT CONNECYED TO THE MODEM.
TX THRSHOLD REACHED

;THIS ERROR INDICATES THAT THE
sKMS HAS RECEIVED EIGHT SUCCUESSIVE
sNAKS FROM THE OTHER END OF THE LINK

TX REJECTED BEFORE COMPLETION

sTHIS ERROR INDICATES THAT THE

LINE NO
XXX

NAK REASON
TEXT STATING REASON

LINE NO
XEX

BDL NO
XXX

KMS TIMEOUT. HA]Y] NG F R CSR INPUT

SELD = XXXXXX

SELZ =

:KMS HAS NOT COMPLETED A REQUESTED
IMESSAGE TRANSMISSION AND W!LL
:NOT ATTEMPT TO RETRANSMIT
" HIS
:KMS MS H

SSU IS UE

RDY

:POP-1

s CLEAR

:A COM A

:CSR R EG

SELO = XXXXXX

SEL2 = XXXXXX

:THI S ERR

:KMS S HAS
;THAT 1 TH
AN OUTP

:FOR THE

URS AFTER THE
YO TO INDICATE

V=-DOMTM

KMS TIMEOUT. (SR _OUTPUT NOT ACCEPTED

SR EGISTERS CONTAIN
CON ggL‘?ESSAGE FOR
ST

SEQ 25

GE 2

e3-pec-82

CZKMSA.P11 ~ 23-DEC-B2 13:56

4.0 PERFORMANCE AND PROGRESS REPORTS

DCLT USES IT'S OWN METHOD FOR DETERMINING AN “END OF PASS'

WHICH iS CALLED A
*DCLT END OF PASS".
THE NUMBER OF 'DCLT PASSES'
T0 BE RUN IS SPECIFIED BY THE
'‘/PASS=XXX'*
SWITCH ON THE DCLT
RUN_COMMAND.
~THE TOTAL NUMBER OF ‘'DCLT ERRORSTM ARE LOGGED IN

IN THE EVENT LOG WHEN EACH

‘'DCLT PASSTM

IS 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
45 EVENTS ARE KEPT LOGGED AND CAN BE LISTED ON THE OPERATORS
CONSOLE BY GIVING A "'PRINT'' COMMAND AT THE ‘‘DR>"'(DIAGNOSTIC SUPERVISOR)
OR *'DCLT>'*
(DCLT) LEVEL. THE PRINT COMMAND MUST BE FOLLOWED BY A LOG
COMMAND. THE EVENTS ARE PRINTED IN A "‘LAST=IN
FIRST=0UT'* ORDER.

EVENT TINE IS TYPED OUT AS MMM:SS:TT (LIKE 254:36:07) WHERE MMM, SS,TT
REPRESENT THE NUMBER OF MINUTES, SECONDS, CLOCK TICKS SINCE

START OR RESTART.
IT SHOULD BE NOTED THAT THE TIMES ARE
RELATIVE SINCE WHILE THE PROCESSOR IS RUNNING AT PRIORITY 7

THE LAST

THE CLOCK CAN'T INTERRUPT TO KEEP TIME.
THIS IS THE CASE
WHILE THE PROGRAM 1S FETCHING DCLT COMMANDS FROM_THE OPERATOR.

1T SHOULD ALSO BE NOTED THAT THERE ARE ONLY 8 BITS AVAILABLE 70 STORE
WILL WRAP TO 000:00:00 AFTER 256:59:59.

RELATIVE MINUTES SO "TIME'*

A _START OR RESTART COMMAND AT THE 'DR>'' LEVEL INITIALIZES THE EVENT

LOG.
THEREFORE IT IS WISE TO DO A “PRINTTM
BEFORE GIVING A "START'' OR '‘RESTART',

“LOG'*

AT THE

THE TYPES OF EVENTS KEPT IN THE EVENT LOG ARE:

TRANSMIT HESSAGE QUEUED:

EVENT TIME,ADDRESS OF TRIBUTARY TO/FROM

TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME.

TRANSMIT HESSAGE COMPLETED:

EVENT TIME,ADDRESS OF TRIBUTARY TO/FROM

ADDRESS OF 1ST BYTE OF MESSAGE,
TOTAL NO. OF BYTES MODEM STATUS AT THAT TIME.

RECEIVE SPACE QUEUED

EVENT TIME, ADDRESS Of TRIBUTARY TO/FROM
ADDRESS OF 1ST BYTE
OF MESSAGE,
TES
TOTAL NO, OF BYTES,
HODEH STATUS AT THAT TIME,

RECEIVE MESSAGE COMPLETED:
T
R
OF
EVENT TIME,ADDRESS

ADDRESS OF 1§
10

NO.

MmO

ADDRESS OF ‘1ST BYTE OF MESSAGE,

TRIBUTARY TO/FROM

?ggi OF MESSAGE,

DATA (OHPARISON STARTED:

MODEM STATUS AT THAT TIME.

''DR>"

LEVEL

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 27

f TRIBUTARY TO/FROM

CZKMSAO KMS11-BD/BE D ¢ L}S'Sk
235-DEC-8 4
CZKMSA.P1

OF RECEIVED MSG.

A
}

—_—

N RCV. MSG., TOTAL NO. OF BYTES

DATA COMP

OF TRIBUTARY TO/ FROM

OF RECEIVED MSG
IN RCV, MSG., T OTAL

DATA COMPARISON L
TIM
EVENT
ADDRESS OF

OF TRIBUTARY TO/FROM
OF RECEIVED MSG.,

TOTAL NO. OF

IN EXPECT MSG.
DEVICE INIT AND SETUP:

EVENT TIME,

NO. OF

IN RCV. MSG., TOTAL NO. OF BYTES

MODE OF OPERATION,

TYPE OF MAINTENANCE

LOOP, *'DCLT'* PASS COUNT, ‘‘RUN" PARAME TERS

DEVICE ERROR:

EVENT TIME, DEVICE ERROR MESSAGE, CONTENTS OF TWO

REGISTERS RELATING TO THE ERROR.

END OF PASS:

EVENT TIME, “DCLT'* PASS COUNT,

'DCLT'' ERROR COUNT,

#OF RX THRESHOLD ERRORS,# OF TX THRESHOLD ERRORS
NOTE = RX THRESHOLDS AND TX THRESHOLDS OCCUR IF
ONE STATION IS STARTED BEFORE THE OTHER
OR IF LINKS ARE RUN AT HIGH SPEED

SEQ 26

CZKMSAQ KMS11-BD/BE SLT
13:54
23-DEC-B2
CZKMSA. P

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 28

4.2 OPERATOR STATUS MESSAGES

THE **/STATUS,

/NOSTATUS''

QULAIFIERS FOR THE

ENABLES/DISABLES THE PRINTING OF PROGRAM STAT

OPERATOR.

THESE MESSAGES ARE INTENDED TO TEL

THE DCLT PROGRAM 1S CURRENTLY DOING. BELOW AR
MIGHT BE PRINTED AND THEIR MEANING:

LT "'RUN'' COMMAND

MESSAGES TO THE
THE OPERATOR WHAT
THE MESSAGES THAT

MESSAGE

MEANING

X0
TXC

DEVICE IS ABOUT START TRANSMITTING A MESSAGE
TRANSMISSION OF MESSAGE COMPLETED

ERR

DEVICE ERROR HAS OCCURRED

RXQ

INI
(MP
CML
CMD

EOP

DEVICE HAS QUEUED SPACE TO RECEIVE/ COMPLETED RECEIVE
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

SEQ 27

CZKMSAQ KHS\\-%DIBE gsLY

13:54

MACY11 30A(1052)

14:01

PAGE 29

4.3 PRINTING LINE STATUS

THE KMS11-BD/BE DCLT PROGRAM READS THE LINE STATUS MAINTAINED

BHOO

IN THE DEVICE WHEN
CLT> RUN_COMMAND COMPLETES EXECUTION
1.
(L T> EXIT _COMMAND IS PERFORM
i.
RTL/C
L/C E EXIT FROM THE DCLT> COHHAND LEVEL OCCURS
.
SAGE THAT HAS BEEN SUBMITTED FOR_TRANS MISSION
4.
ESSAGE
6 g ?ED' THE DEVICE BEFORE THE TRANSM ISSION
S REJECTE
w

23-DEC-82

oD PP

CZKMSA.P11

23-DEC-82

COMPLE

ATUS OF THE
S RUNNING
g STATUS IS

THE RPT> STATUSONL INE_COMMAN D
ESTABLISHED LINE. IF THE DEV 1
WHEN A RPT> STATUSONLINE COMM
READ AND PRINTED. IF THE DEV g
THE LAST RECORDED LINE STATU

NOT RUNNING

A LINE STATUS REPORT INCLUDES:
LINE S!A;??oava
= 1 LINE ENABLED

= 0 LINE DISABLED

BIT1 = 1 MOP MODE +*+*NOT SUPPORTED IN KMS11-BD/BE DCLT
= 0 DDCMP PROTOCOL ENABLED
Bllg = 1 TRANSMIT ACTIVE
BIT3 = 1 RECEIVE ACTIVE
BIT4 = 1 START PENDING
BITS = 1 REP PENDING
BIT6 = 0 FULL DUPLEX

= 1 HALF DUPLEX *+*NOT SUPPORTED IN KMS11-BD/BE
BIT7? = 1 TRANSMIT SELECTED

LINE FLAGS BYTE:
BITO = 1 START RECEIVED
BIT1 = 1 NAK RECEIVED
BIT§ = 1 REP _RECEIVED

BIT3 = 1
BIT4 = 1
BITS = 1
BIT6 = 1
BIT? = 1

TEMP DATA BYTE:

CONTROL MESSAGE PENDING
ACK PENDING
STACK RECEIVED
TX TIMEOUT
START PENDING

NUMBER OF LAST MESSAGE YRANSH]TTED
NUMBER OF
NUMBER OF
NUMBER OF
NUMBER OF

ACKS RECEIVED (1 BYTE)
MESSAGES RECEIVED (1 BYTE)
NAKS TRANSMITTED (1 BYTE)
NAKS RECEIVED (1 BYTE)

(1 BYTE)

SEQ 28

0D
CZKMSAD KMS11=- D/BE DCLY
CZKMSA. P
-DEC-82 13:54

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 29

PAGE 30

5.0 DEVICE INFORMATION TABLES
THIS

IS THE DEFAULT HARDWARE P-TABLE.

THE VALUES AND

SIZE ARE USED AS
A '‘TEMPLATE''
FOR CREATING ACTUAL P=-TABLE
ENTRIES AND THE DEFAULT VALUES PROVIDED FOR THE OPERATOR.
SEE SECTION 2.4 FOR AN EXAMPLE OF THE HARDWARE QUESTIONS.
THE NUMBERS IN BRACKETS (
I.E.
[10]) INDICATES THE OFFSET OF THE
WORD INTO THE HARDWARE P-TABLE.
THE OFFSETS MUST MATCH THE P-TABLE

OFFSETS USED IN THE HARDWARE PARAMETER CODING SECTION WHERE

"'GET PARAMETER''
LWORD
.WORD

164100
400

LMWORD

164110

JWORD

240

CALLS ARE USED TO FILL THE P-TABLE.

CSR ADDRESS
INTERRUPT VECTOR

INTERRUPT PRIORITY (5)
CSR ADDRESS

MODE M CONTROL

THE

CZKMSAQ KHS\\-?DIBE gSLl

CZKMSA. P

23-DEC-B2

13:54

MACY1Y 30A(1052)

23-DEC-B2

14:01

SEQ 30

PAGE 31

6.0 MODE AND MESSAGE DESCRIPTIONS
6.1 MODE DESCRIPTIONS

6.1.1 TRANSMIT MODE

THE TRANSMIT LIST OF MESSAGES IS TRANSMITTED WITHOUT EXPECTING ANY DATA
T0 BE RECEIVED.

6.1.2 RECEIVE MODE

SPACE IS QUEUED FOR THE DE VICE TO RECEIVE MESSAGES.
AFTER RECEIVING AN "'EXPECT ED'' NUMBER OF MESSAGES, THE DATA RECEIVED
CAN BE COMPARED AGAINST A blST OF "EXPECT TO RECEIVE'' MESSAGES
IF DATA=CHECKING IS ENABLE
6.1.3

PASSIVE MODE

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.

6.1.4

ACTIVE MODE

A LIST OF MESSAGES 1S TRANSMITTED AND MESSAGES ARE RECEIVED.
AFTER RECEIVING AN "EXPECTED'' NUMBER OF MESSAGES, THE DATA RECEIVED

CAN BE COMPARED AGAINST A LIST OF
IF DATA=CHECKING 1S ENABLED.

6.1.5
1.

"EXPECT TO RECEIVETM

MESSAGES

DOWN=L INE~LOAD

THE kMS11-BD/BE DOES NOT SUPPORT DOWN LINE LOAD
6.1.6

TALK AND LISTEN MODE

6.1.6.1 TALK MODE

THE “‘TALK'* END OF THE LINK TRANSMITS OPERATOR-TYPED MESSAGES

UNTIL A “EXIT MESSAGE IS TYPED. AT THAT POINT, THE NODE GOES
MESSAGETM IS A MESSAGE WHOSE FIRST RS
INTO “LISTENTM MODE, AN “EXIT SINCE
ONLY THE FIRST FOUR CHARACTE
"EXITTM.
ARE
RS
FOUR CHARACTE
CAN BE ADDED SO THAT A MESSAGE
S
CHARACTER
MORE
"EXIT',
BE
NEED TO
MAY BE SENT AND THE MODE SWITCHED ALL AT ONCE. FOR EXAMPLE:
TLK> EXIT ALL OF THIS LINE IS SENT THEN MUDE SWITCHED
6.1.6.2 LISTEN MODE

CZKNSAQ KMS11-80/8E DCLT

CIKMSA. P11

23-DEC-BS

13:54

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 31

PAGE 32

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,

AN EXIT MESSAGETM IS A MESSAGE WHOSE FIRST FOUR CMARACTERS ARE

“EXIT".

CZKMSAQO kMS11-BD/BE

CZKMSA.P1

DCLY

23-DEC-82 13:5¢4
6.1.7

23-DEC-82

MACY1Y 30A(1052)

14:01

SEQ 32

PAGE 33

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 8y A "'/LOOP=..’
IF A LOCP MODE IS DESIRED.

LOOP MODES ARE ONLY VALID IF THE MODE TO RUN IS ACTIVE
LOOPS DATA INTERNALLY IN THE LINE UNIT
INTERNALTTL
THE FOLLOWING LOOP MODES WAVE NO EFFECT. IN THE KMS11-BD/BE DCLT

PROGRAM THEY ARE EQUIVALENT TO NO LOOPBACK.

HAS NU EFFECT BUT MAKES A NICE BOOKKEEPING

CABLE

FEATURE WHEN TESTING WITH A TURNAROUND
CONNECTOR.

LOCALMODEM

NOT SUPPORTED BY KMS11-BD/BE

REMOTEMODEM

NOT SUPPORTED BY KMS11-BD/BE

(ALSO CALLED ANALOG= LGOPBACK)

(ALSO CALLED DIGITAL=LOOPBACK)

NOTE THAT THE ACTIVE MODE OF THE DCLT> RUN COMMAND CAN BE USED WITH
AN H3256 TURNAROUND CONNECTOR.

THE TURNAROUND CONNECTOR CAN BE PLACED:
1. ON THE DISTRIBUTION PANEL

2. gzngri FAR END OF A CABLE CONNECTED TO THE DISTRIBUTION
3. ON THE FAR END OF A CABLE CONNECTED TO A MODEM OR
MODEM ELIMINATOR.

THE

COMMAND:

DCLT> (A ) ? R MODE=ACTIVE/L=CABLE

WILL THEN RECORD THAT LOOPING VIA A TURNAROUND CONNECTOR IS BEING
ATTEMPTED.

CZKMSAO kMS11-BD/BE
1 2?-05(-33 DCLY13:54
CZKMSA,.P

MACY11 30A(1052)

23-DEC-B2

14:01

PAGE

SEQ 33

’34

6.1.8 MODE SUMMARY TABLE

THE *OLLOWING TABLE SUMMARIZES THE MODES THAT CAN BE RUN TOGETHER
gngo;NEHQCt}N:§OGRAH IS RUNNING ON TWG PROCESSORS (ONE AT EACH
4

'STATION A
1"'WOST"* NODE

STATION A
.
*'/LODPTM’ ALLOWED?

STATION B
“REMOTE'" NODE

RECEIVE !

i TALK

LISTEN*,

i TRANSMI T
RECEIVE
iPASSIVE
TACTIVE
TACTIVE

NO
NO
NO
YES
YES

RECEIVE®, LISTEN
TRANSMI T+, TALK
ACTIVE®
ACTIVE®
PASSIVE

"LISTEN

'
:

TALK®, TRANSMIT

!
!
i
i
i

*= MOST LIKELY TO BE IN THAT MODE

6.2 MESSAGE DESCRIPTIONS
NAME

DESCRIPTION

ZEROES
ONES
OALT

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

ITEP

"lN!;RPRO ESSOR TEST PROGRAM'S (ITEP)'*

1ALT
CCITY

YCCITTTM S512-BIT (VS. 511 BITS) TEST PATTERN
MESSAGE 1(DP1:)
(<177><177>/8A THE QUICK 9aoun FOX

JUMPED OVER THE

LAZY D0G.<15><12><001><177><177><177><177>)
ALPHA

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

LMNOPQRSTUVWXYZ/[\)*_%}

OPERATOR-SPECIF 1ED

*'A=2,0-9,SPACES, TABS'*
THESE ARE THE CHARACTERS THAT CAN

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

CZKMSAQ KMS11=BD
A.P11 = 23-DEC-82 13:54
CIKMS
/BE

DCLT

2) 23-DEC-82

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 35

7.0 OTHER lNFORHATlON

7.1

INTERFACING TO AN ""ITEP'' NODE

THIS DCLT WILL INTERFACE ONLY TO THE ITEP FOR DMC.
AND THE FOLLOWING TABLE APPLIES TO THE ITEP NODE:

ITEP NODE

DCLT NODE

ONE=-WAY=0UT
ONE=WAY=IN
INTERNAL LOOP
EXTERNAL LOOP

RECEIVE OR LISTEN
TRANSMIT OR TALK
ACTIVE
ACTIVE OR PASSIVE

NOTE: WHEN INTERFACING TO ITEP THE RX BUFFER ON THE

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

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

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

WHEN DCLT IS IN LISTEN MODE THE RX BUFFER IS ONLY
82 BYTES LONG THEREFORE DO NOT SEND THE DCLT
NODE

ITEP MSG. 3 FROM THE ITEP NODE OR A "'LOST DATATM ERROR WILL

OCCUR

BE SURE ITEP NODE HAS INCORPORATED PATCH FROM DEPO# MD=11-DZDMO-A1
ITEP NODE SHOULD ALWAYS BE RUN WITH SW &4 = T0 0

SEQ 34

CZkMSAQ kMS11-BD/BE

CZKMSA.P11

DCLY

2?-05(-25 13:54

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 35

PAGE 36

7.2 TROUBLESHOOTING HINTS

BELOW ARE SOME SETUPS THAT COULD BE USED FOR ISOLATING FAULTS.
MEANS THE ONLY WAYS DCLT CAN BE USED @1::1:..
BE A VERY FLEXIBLE TOOL! THIS SECTION IS MEANT TO
TO
MEANT
IS
T
DCL
Glv E SOMECNE NOT TOO FAMILIAR WI!TH DCLY A PLACE TO START.
LIS TeD

THE SE_ARE
BY NO

REM EMBER THAT
EV ENT LOG CAN

THE PRINTING OF STATUS MESSAGES AND PRINTING OF THE

PROVIDE A LOT OF INFORMATION ABOUT THE SEQUENCE OF

3 VENTS AND HOW THE DEVICE AND LINK ARE BEHAVING.

NOTE: IF BOTH NODES I N 3 cr IVE AND ‘‘/NOCHECK'' IS USED,
===== END-0F=PASS 1§ 0 F INED AS RECEIVING 1 MESSAGE
WITH NO DATA
AND COMPLE
T ING 1 3 ;RANSHIT LIST.
TO KNOW HOW
DCLT
CHECKING, THER E_IS O WAY FOR
T
SHOULD
EXPECT
TO
RECEIVE.
MANY MESSAGES ITS 0

7.2.1

A SAMPLE TEST SEQUENCE AS SEEN FROM
THE kMS11-BD/BE END OF A LINK.

7.2.1.1 INVOKE AND START THE DCLT TEST PROGRAM
BOOT XXDP+

R CZKMSA
DR>START

CHANGE HW (L) ? Y<(R>

# UNITS (D) ? 1<(R>

UNIT 0
FULL DUPLEX ONLY

DEVICE CSR ADDRESS : (0) ]

164100 ?2<(R>

INTERRUPT VECTOR ADDRES S: (0) 400 ?<CR>

INTERRUPT PRIORITY: (0) 5 2<CR>
DM11-BA CSR_ADDRESS, (0) 164110 2<CR>
THIS 1S DCLT. TYPE W' OR *2"" FOR DETAILS

VALUES

MODE =AC ¥ 1VE /PASS=00001
DEM
CHO/NOMO/
CHE CK/NOETUS
/NOSTA

DCLT> (A)

CZKMSAQ lHSl\-gDIBE SSL‘
CZKMSA.P11
23-DEC-B2
13:54

MACY11 30A(1052)

23-DEC-B2

14:01

SEQ 36

PAGE 37

7.2.1.2 RUN A TEST PASS IN ACTIVE MODE WITH INTERNAL iLOOPBACK
WITHOUT CHECKING THE RECEIVED MESSAGE.
PRINT STATUS AS THE PASS PROGRESSES.

DCLT> (A)
DCLT> (A)

?2 L E=0
? R M=A/L=]/STA/NOCHECK

THIS COMMAND SEQUENCE MEANS:

THE COMMAND L E=0 ESTABLISHES LINE O AS THE LINE TO BE USED.
KMS11-BD/BE DCLT CAN TEST ONLY ONE LINE IN A DCLT> RUN COMMAND.
THE PROGRAM CAN BE USED TO TEST ALL EIGHT LINES ONE AT A TIME.
THE LINE TO BE_TESTED MUST BE ESTABLISHED BY A DCLT> L E=X
(WHERE X = 0..7) PRIOR TO TYPING THE DCLT> RUN COMMAND.

LINE O IS USED HERE AS AN EXAMPLE. REPLACE O WITH THE NUMBER
IN THE RANGE 0..7
FOR THE LINE YOU ARE TESTING.

THE COMMAND R M=A/L=]1/STA/NOCHECK SETS THE RUN MODE TO ACTIVE,

LOOP TYPE TO INTERNAL,

THE

REQUESTS STATUS MESSAGE PRINTING AS THE RUN

PROGRESSES AND DISABLES CHECKING OF THE RECEIVED MESSAGE.

THE DEFAULT ITEP MESSAGE (THE QUICK BROWN...) WILL BE TRANSMITTED.
A RECEIVED MESSAGE WILL BE ACCEPTED BUT NOT CHECKED.

IF THE RUN IS SUCCESSFUL YOU SHOULD SEE:
INI

EOP
TXC
Tx0
RXQ
MODE=ACTIVE/LOOP=INTERNAL/PASS=00000

DCLT> (A)

/STATUS/NOCHECK/NOE CHO/NOMODEM

A SUCCESSFUL RUN INDICATES THAT THE KMS11-BD/BE CAN TRANSMIT
AND RECEIVE. ANY ERRORS REPORTED WILL PROBABLY BE DUE T0
INCORRECT DEVICE ADDRESSES BEING USED OR A FAULTY DEVICE.

T0 CHECK FOR THESE RETURN TO SUPERVISOR COMMAND LEVEL
BY TYPING:
DCLT CA) ? EXIT
CNTRL/C
CHECK ADDRESSES BY TYPING:
DR> DISPLAY<CR>
RUN kMS11-BD/BE DIAGNOSTICS TO CHECK THE DEVICE.

L
CZKMSAO KMS11-BD/BE gSLf
CZKMSA.P11
25-DEC-82
13:54

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 37

PAGE 38

7.2.1.3 RUN SEVERAL PASSES WITH LOOP TYPE = INTERNAL AND
CHECKING OF THE RECEIVED MESSAGE ENABLED.

DCLT> (A) ? R M=A/L=1/STA/CHECK/PASS=3
;HISACOHHAND MEANS :

THE DEFAULT (ITEP) MESSAGE WILL BE TRANSMITTED ONCE PER PASS.
9NEIHESSAGE WILL BE RECEIVED PER PASS.

MESSAGES TRANSMITTED WILL BE LOOPED BACK INTERNALLY WITHIN THE

%g#E UNIT AND ACCEPTED AS RECEIVED MESSAGES.

STAEUS MESSAGES WILL BE PRINTED AS THE RUN PROGRESSES.
/CHECK
;25 HESSAGE RECEIVED WILL BE CHECKED AGAINST THE DEFAULT
/PASS=
THIS SEQUENCE WILL BE EXECUTED THREE TIMES.

IF SUCCESSFUL YOU SHOULD SEE:
INI

TXC

RXQ

Tx@

CMP

EOP

TXC

RXQ

CMP
TXQ

EOP
TxC

RXxQ

CMP

MODE=ACTIVE/LOOP=INTERNAL /PASS=00000

DCLT> (A)

TxQ

EOP

/STATUS/CHECK/NOECHO/NOMODEM

(ITEP)

n3
CZKMSAO KMS11-BD/BE

CZKMSA.P11

DCLT

Zg-DE( gg 13:5¢4

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 38

PAGE 39

7.2.1.4 RUN IN ACTIVE MODE WITH A TURNAROUND CONNECTOR

PUT AN H3256 TURNAROUND CONNECTOR ON THE DISTRIBUTION PANEL PLUG
FOR_THE ESTABLISHED L&NE

IS THE PLUG FOR LINE

0).

(THE LEFTMOST PLUG AS YOU FACE

THE PANEL

DCLT> (A) ? R M=A/L=(C/PASS=3
THIS IS SIMILAR TO THE

INTERNAL LOOPBACK

TEST.

THE DEFAULT HESSAGE

IS TRANSMITTED FROM THE TRANSMIT BUFFER, TURNED AROUND
AT THE
CONNECTOR, RECEIVED AND CHECKED AGAINST THE EXPECTED DEFAULT MESSAGE.
THE COMMAND WILL INITIATE TRANSMISSION ONLY

A LINE HAS PREVIOUSLY

BEEN ESTABLISHED WITH A DCLT> L E=X (WHERE X = 0..7)
COMMAND.
L=C IN THE COMMAND STANDS FOR LOOP TYPE = CABLE. IT IS INCLUDED
AS A RECORD KEEPING NICETY.

IN KMS11-BD/BE DCLT

DCLT> (A) ? R M=A/L=C IS EQUIVALENT TO DCLT> (A) ? R M=A
STATUS AND CHECKING ARE IS STILL ENABLED. THE MODE MUST BE EXPLIC]TLY
SPECIFIED IN EVERY DCLT> RUN COMMAND. LOOPTYPE ANL THE STA

CHECK AND ECHO QUALIFIERS RETAIN THEIR SETTINGS UNTIL EXPLlleLY

CHANGED IN A DCLT> RUN COMMAND OR UNTIL A DR> START COMMAND RESETS

ALL DEFAULTS.

THIS TEST IS SUCCESSFUL YOU

INI

TTMXC

RXQ

TXQ

CMP

EOP

TXC

RXQ

WILL SEE:

CMP
TXQ

EOP
TXC

RXQ

CMP

MODE=ACTIVE/LOOP=CABLE/PASS=00000

DCLT> (A)

TX0

EOP

/STATUS/CHECK/NOECHO/NOMODEM

THE SAME TEST CAN BE REPEATED WITH THE TURNAROUND CONNECTOR
AT THE END OF A CABLE PLUGGED TO THE DISTRIBUTION PANEL.

IF THESE TESTS RUN SUCCESSFULLY YOU CAN ASSUME THAT THE

HOST COMPUTER ON WHICH KMS11-BD/BE DCLT IS RUNNING AND ITS
KMS11-BD/BE ARE TRANSMITTING AND RECEIVING SUCCESSFULLY.

N3
CZKMSAD KMS1T
CZKMSA.P1

.54
D/BE 85L13

23 -DEC-

7.2.2

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 40

TRANSMIT ON ONE NODE RECEIVE ON THE OTHER

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

NODE A

DCLT>
DCLT>
DCLT>
DCLT>

(A)
(A)
(A)
(A)

2 CL E
2 CL T
? SE_T=1ALT/S=250
? L E=T

DCLT> (A) ? R M=TR/PAS=3

DCLT> (A) ? CL E
DCLT> (A) 2 CL T

DCLT> (A) ? R M=R/NOCH/PAS=3

* NOTE: THIS COMMAND IS SPECIFIC TO KMS11-BD/BE DCLT
WHAT THIS SEQUENCE MEANS:

CL £ INITIALIZE THE EXPECT LIST
THE TRANSMIT LIST
T INITIALIZE
seT=1ALT/S=2

SETS THE TRANSMIT LIST ON NODE A TO BE 1 MESSAGE
WITH A LENGTH OF 250 BYTES AND DATA OF ALTERNATING
ones AND ZEROS.

L E=1 ESTABLISHES LINE NUMBER 1 AS THE ane T0 TEST.
A TO TRANSMIT
a M=TR/PAS=3'* SETS THE RUN MODE OF NODE

AND THE PASS COUNT TO 3.
R M=R/NOCH/PAS=3 SETS THE RUN MODE OF NODE B
T0 BE RECEIVE, NO DATA CHECKING IS TO BE DONE,AND

THE PASS COUNT IS SET TO THREE.

WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND
IF THINGS ARE RUNNING CORRECTLY :
FOR NODE A:

%2% Esfi TXC EOP TXQ TXC EOP TXQ

MODE=TRANSMI T/PASS=00000
E
OCHDEM
CHO/NOMO
S/N
/STATUCK/NOE

DCLT> (A)
FOR NODE B:

INI RXQ EOP RXQ EOP RXQ EOP
VE/PASS=00000
MODE=RECEIV
E
OCHDEM
CHO/NOMO
S/N
/STATUCK/NOE
?
DCLT> (A)

SEQ 39

CZKMSAQ KHS\\ D/BE

CZKMSA.P11

25-DEC-

SLT

MACY11 30A(1052)

23-DEC-B2

14:01

SEQ 40

PAGE 41

NOW TRY DOING DATA CHECKING ON THE MESSAGE(S) BEING
TRANSMITTED.,

POSSIBLE COMMAND SEQUENCES ARE:

R M=TR/PAS=3

SE E=1ALT/S=250

R M=R/CH/PAS=3

WHAT THIS SEQUENCE MEANS:

THE ''SE E=1ALT/$=250"" LINE MUST BE ADDED HERE
T0°SET UP THE “EXPECTTM LIST ON THE RECEIVE NODE
=~
SO IT WILL KNOW WHAT TO COMPARE AGAINST.

THE CHANGE IN THE RUN COMMAND IS FROM “NOCH'

THE “CH'*

ENABLES DATA CHECKING

TO '‘CH

WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND
IF THINGS ARE RUNNING CORRECTLY :
NODE A:
NODE B:

IS THE SAME AS ABOVE.

INI RXQ CMP EOP RXQ CMP EOP RXQ

CMP EOP

MODE=RECE IVE/PASS=00000
E
ODEM
OCH
CHO/NOM
S/N
/STATUCK/NOE
?
(A)
DCLT>

A RE CEIVING
NOW RUN THRU THE SEQUENCE AGAIN WITH NODE
AND NODE B TRANSMITTING TO CHECK OUT THE OPPOS ITE DIRECTION
OF DATA FLOW.

CTPROR BTN

E- B8DCLT13154
3300

CZKMSAD KMS11-BD/BE

MACY11 30A(1052)

23-DEC-B2

2 14:01 PAGE 4 l

7.2.3

ONE NODE ACTIVE THE OTHER NODE PASSIVE

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

NODE A

NODE 8

DCLY> (A) ? CL E
DCLT> (A) 2 CL T

DCLY> (A) 2 CL E
DCLT> (A) 2 CL. T

DCLT> (A) 2 SE T=CCITT/$=10/C=2
DCLT> (A) 2 L E=1

DCLT> (A) ? R M=ACT/NOCH/PAS=3

DCLT> (A) ? SE T=1ALT/5=20/(=2
DCLT> (A) ? R M=P/NOCH/PAS=3

* NOTE: THIS COMMAND IS SPECIFIC TO THE KMS11-BD/BE
WHAT THIS SEQUENCE MEANS:

THE EXECUTION OF THIS SEQUENCE CAUSES THE FOLLOWING
THINGS TO HAPPEN ON NODE A. THE TRANSMIT AND EXPECT

LISTS ARE INITIALIZED THEN THE TRANSMIT LIST IS SET

TO 3 MESSAGES OF 10 BYTES EACH. THE DATA USED IN THE
TRANSMIT MESSAGES IS THE CCITT PATTERN. LINE 1 IS
ESTABLISHED AS THE LINE TO TEST.
THEN NODE A IS RUN IN ACTIVE MODE

WITH DATA CHECKING DISABLED AND THE PASS COUNT
SET TO THREE. NOTE STATUS WOULD STILL BE
PRINTED IF THE PREVIOUS SEQUENCES HAD BEEN RUN,
IF YOU ARE RUNNING FROM LOAD TIME YOU wOULD HAVE
TO ADD A

"'/STA TO THE RUN_ COMMAND L INE.

NODE B: THE TRANSMIT AND EXPECY LiSTS ARE INTIALIZED
THEN THE TRANSMIT LIST IS SET TO 3 MESSAGES OFf

ggsflxassogetfl. THE DATA FOR EACH MESSAGE IS ALTERNATING
RUN IN PASSIVE MODE WITH DATA CHECKING DISABLED
AND THE PASS COUNT SET TO 3.

WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND
IF THINGS ARE RUNNING CORRECTLY :

FOR NODE A:

INI RXQ TXQ TXC TXQ RXQ TXC

RXQ TXC EOP RXQ TXQ RXC Tx(C
RXQ TXC TXQ RXQ TXC EOP RXQ
RXQ TXC TXQ RXQ TXC TxQ RxQ
EOP

MODE=ACTIVE/PASS=00000
E
CHO/NOMODEM
CK/NOENOCH
/STATUS/

DCLT> (A)

SEQ 41

CZKMSAQ KHS11°§D/8E gSLT

CZKMSA. P

23-DEC-B2

13:54

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 43

FOR NODE B:

l NI RXQ TXQ TXC RXQ TxQ TXC RxQ

1 X0 TXC EOP

MODE=PASSIVE/PASS=00000
/STATUS/NOCHE CK/NOECHO/NOMODEM
?
DCLT> (A)

NOW USE DATA CHECKING WITH THE '‘EXPECT MESSAGE LISTS'' SET
UP APPROPRIATELY. ANOTHER VARIATION 1S TO WAVE LARGE SIZE
MESSAGES ON ONE SIDE WITH SMALL MESSAGES ON THE OTHER.

THEN REVERSE THE SETUP SO THAT THE NODE RUNNING IN ACTIVE
IS RUNNING IN PASSIVE AND VICE VERSA.

SEQ &2

CZKMSAQ kMS11-BD/BE

CZKMSA. P

23-DEC-B2

MACY11 30A(1052)

SLT

13:5¢4
7.2.4

23-DEC-B2

14:01

PAGE 44

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,

NCDE A

NODE B

DCLT> (A) 2 CL E
DCLT> (A) 2 CL T

DCLT> (A) ? CL E
DCLY> (A) 2 CL T

DCLT> (A)
DCLT> (A)
DCLT> (A)
DCLT> (A)
DCLT> (A)
DCLY> (A)

? SE T=0ALT/S=10
? SE T=CCITY/S=§0
? SE T=ALPHA/S=30
? SE E=ZERO/S=11
? SE E=0NES/S=§1
? SE E=1TEP/S=31

DCLT> (A)
DCLT> (A)
DCLT> (A)
DCLT> (A)
DCLT> (A)
DCLT> (A)

? SE E=0ALT/S=10
? SE E=CCITT/S=20
? SE E=ALPHA/S=30
? SE T=ZERO/S=11
? SE Y=0NES/S=§1
? SE T=ITEP/S=31

DCLT> (A) ? R M=A/CH/NOST/PAS=3 DCLT> (A) ? R M=A/(H/NOST/PAS=3

WHAT THIS SEQUENCE MEANS
NODE A SETS UP ITS TRANSMIT LIST T0

3 MESSAGES. MESSAGE 1 IS5 10 BYTES LONG AND
CONTAINS DATA OF ALTENATING 0'S AND

MESSAGE 2 IS 20 BYTES LONG AND CONTAINS

DATA OF THE CCITT PATTERN., MESSAGE THREE
IS 30 BYTES LONG AND CONTAINS ALPHANUMERICS
FOR DATA, THE EXPECT LIST ALSO_CONTAINS

3 MESSAGES. MESSAGE 1 IS 11 BYTES LONG_AND
CONTAINS 0°'S FOR DATA, MESSAGE TWwO iS 21
BYTES_LONG AND CONTAINS 1'S FOR DATA. MESSAGE
3 IS 31 BYTES LONG AND CONTAINS THE ITEP DATA,

NODE B HAS THE SAME MESSAGES EXCEPT THAT THE
TRANSMIT MESSAGE LIST IS THE EXPECT MESSAGE LISS
AND VICE VERSA.

BOTH NODES ARE RUN IN THE ACTIVE MODE WITH NO
DATA CHECKING AND PASS COUNT EQUAL TO THREE.
WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND
If THINGS ARE RUNNING CORRECTLY :
ON BOTH NODES A AND B:

MODE=ACTIVE/PASS=00000

DCLY> (A)

E
CHO/NOMODEM
CK/NOES/CH
/NOSTATU

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.
THE "END=-OF =PASS'* POINT WiLL BE OUT OF SYNC BUT THIS IS NOT
A PROBLEM,

SEQ 43

CZKMSAD kMS11-BD/BE DCLY

CZKMSA.P1T

25-DEC-B2 13:5¢4

MACY11 30A(1052)

23-DEC-B2

14:01

PAGE 45

7.2.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. WHEN USING TALK AND LISTEN MODES ON MULTIPOINT LINKS
REMEMBER THAT YOU CAN ONLY USE THESE MODES FROM THE CONTROL STATION
TO THE FIRST TRIBUTARY IN THE

TRIB LIST.

DCLT> (A) ? R M=_LIS/NOST
LIS>

DCLT> (A) ? R M=TA/NOST
k>

SEQ &4

CZKMSAD KHS\\ D/BE

(ZKMSA. P11

23-DEC-B2

13:5¢4
7.3

MACY1? 30A(1052)
EXAMPLES OF

23-DEC-82

14:01

PAGE 46

COMMANDS

THIS SECTION WILL SHOW A SAMPLING OF COMMANDS AND
EXACTLY WHAT TO EXPECT FROM THEM.
7.3.1 EXAMPLES OF MESSAGE COMMANDS
THE

CLEAR COMMANDS

0(LT> (A) 2 CL E
CLT> (A)

2 CL
T

YNlS HILL lNlTlA%élE THE TRANSMIT AND EXPECT LIST
T01 MESSAGE OF
BYTES. THE DATA OF THE MESSAGE WILL
MESSAGE.
BE THE ITEP

If THESE COMMANDS ARE FOLLOWED BY A SHOW COMMAND
DCLT> (A) ? SH E

SUCH AS THE SHOW EXPECT LIST. WHAT YOU WOULD SEE IS

MSG: TYPE=I1TEP/SIZE=58
MODE=ACTIVE/PASS=00001
/NOSTATUS/CHECK/NOE CHO/NOMODEM
(A) 3
Lts
D

COMMAND SUCH AS:
NOW IF YOU DlD A SET EXPECTL;ST

E
DCLT> (A) ? SE
AND FOLLOUED I7 UlTH A SHOU EXPE(Y LlST COMMAND
DCLT> (A) ? SH
WHAT YOU WOULD SEt IS
MSG: TYPE=ALPHA/SIZE=35
MSG: TYPE=ALPHA/SIZE=35
MSG: TYPE=ALPHA/SIZE=35
MSG: TYPE=ALPHA/SIZE=35
MODE=ACTIVE/PASS=00001
E
ODEM
/CH
CHO/NOM
TUS
/NOSTACK/NOE
DCLT> (A) ?

SEQ 45

CIKMSAD KMS11
CZKMSA. P

D/BE

23-DEC -8

}3‘54

23-DEC-B2

MACY11 30A(1052)

7.3.2 EXAMPLES

14:01

PAGE &7

OF LINE SELECTION COMMANDS

WHEN THE DCLT> COMMAND LEVEL 1S ENTERED FROM DR>START
NO LINE TO TEST IS ESTABLISHED.

IF A LINE SHOW COMMAND IS TYPED:
YOU WOULD SEE:

DCLT> (A) 2?2 L SH
NO LINE NUMBER IS ESTABLISHED
DCLT> (A) ?

TO ESTABLISH A LINE TO TEST TYPE:

(WHERE N IS IN THE RANGE 0..7)

DCLT> (A) 2 L E=N
FOR EXAMPLE AFTER:
A LINE SHOW COMMAND

WILL PRINT

DCLT> (A) 2 L E=5
DCLT> (A) ? L SH

LINE NUMBER:

ANY TESTS INVOKED BY SUBSEQUENT RUN COMMANDS WILL APPLY TO

LINE 5. A LINE NUMBER REMAINS ESTABLISHED UNTIL IT IS CHANGED
BY A LINE ESTABLISH OR A LINE KILL COMMAND OR UNTIL THE DCLT>
COMMAND LEVEL IS INVOKED BY A SUPERVISOR DR>START COMMAND
THE LINE KILL COMMAND
DCLT> (A) 2 L K

LEAVES THE KMS11-BD/BE DCLT WITH NO ESTABLISHED LINE.
THE COMMAND SEQUENCE:
DCLT> (A) ?2 L K

PRINTS:

DCLT> (A) ?2 L SH

NO LINE NUMBER IS ESTABLISHED

IT IS NOT NECESSARY TO KILL AN ESTABLISHED LINE BEFORE

ESTABLISHING A NEW LINE NUMBER.
DCLT> (A) ? L SH

5
L INE NUMBER:
DCLT> (A) ? L E=3
DCLT> (A) ? L SH

L INE NUMBER:

SEQ 46

kMS11-BD/BE

DCLY

Zg-DE(g% 13:54

14:01

23-DEC-B2

MACY11 30A(1052)

PAGE 48

7.3.3 EXAMPLES OF OPERATOR ASSISTANCE COMMANDS
IF YOU TYPEA H
EITHER DCLT

P COMMMAND:

) ? HELP

YOU WILL SEE:

DCLT

DCLT> (A) 2 ?

EXPECTLIST OR TRANSMITLIST

1
ND/B

INE ESTABLISH=N (N=0-7)0 L
G OR TRANSMITMSG=TYPE/SI E=
EROES,1ALT,0ALT,ITEP,CC 1T7,A

TAB,N=9 [N QuoT
fia SPCD=A=Z,$P,
M]T
°Q

CZKMSAD
Y
CZKMSA.P1

SET EX E(T TRANS
RUN MODE=MTYP/LOOP=LTYP/CHECK,STATUS,ECHO,MODEM,PASS=N

MTYP=TRAN,REC,ACT,PAS,TAL,LIS,DOWN
LTYP=INT,CAB,LOC,REM/

PCLY> (A)

THE DUMP COMMAND:

DCLT> (A) ? DUMP 41260-41300
WILL PRINT THE CONTENTS OF PDP=11 MEMORY ADDRESSES

41260 THROUGH 41300 IN THE FOLLOWING MANNER:
412 60

41300

104423

006312

000167 177772 021122 012112 006312 006312 006312

WITH THE /B SWITCH

DCLT> (A) ’ DUM 41260-41300/8

THE DUMP COMMAND PRINTS:

41260
61%70
61300

023 211 167 000 372 377 122 026
112 024 312 014 312 014 312 014
312

SEQ 47

DCLT

CZxkMSAOD xMS11-BD/BE
2?-05(~8§ 13:54
C(ZKMSA.P11

MACY1? 30A(1052)

23-DEC-82

14:01

PAGE

7.3.64 EXAMPLES OF RUN COMMMANDS

YOU CAN FIND SEVERAL EXPAMLES OF THE RUN COMMMAND IN THE
TROUBLE SHOOTING HWINTS SECTION BUT HERE ARE SOME OTHERS.
IF YOU TYPE IN THE RUN COMMAND
DCLT> (A)

? R M=TR/NOST/CH/PAS=4

THE PROGRAM WILL EXECUTE & PASSES AND THEN PRINT
MODE =TRANSM! T/PASS=00000
/NOSTATUS/CHECK/NOECHO/NOMODEM
?
DCLT> (A)

If YOU EXECUTE THE RUN COMMAND

DCLT> (A)

? R M=A/LO=1/ST/CH/PAS=3

WITH DEFAULT TRANSMIT AND EXPECT MESSAGES
YOU SHOULD SEE:

INI RXQ TXQ TXC CMP EOP RXxQ TxQ

TXC CMP EOP RXQ TXQ TxC CMP EOP
MODE=ACTIVE/LOOP=INTERNAL /PASS=0000
DEM
CHE
CK/NOE CHO/NOMO
/STATUS/
?
DCLT> (A)

IN RESPONSE TO THE EXIT COMMAND
OCLT> (A)
YOU WiLL SEE

? EXIT

CZKMSA EOP

0 CUMLATIVE ERRORS

DR>

SEQ 48

CZKMSAQO KMS11-BD/BE
DCLT
CZKMSA.P11
25-DEC-82 13:5¢4

MACY1Y 30A(1052)

23-DEC-82

14:01

SEQ 49

PAGE 50

7.3.5 EXAMPLES OF PRINT COMMANDS
THE PRINT COMMMAND IS USED FROM THE SUPERVISOR

DR>

OR THE

DCLY > LEVELTO ENTER THE REPORT LEVEL. THE PROMPT AT THE

REPORT LEVEL

IS RPT>,

HERE ARE SOME EXAMPLES OF

THE HELP_ COMMAND
RPT> HELP

RPT> LEVEL COMMANDS

RPT> ?

PRINTS THE FOLLOWING:

DCLT REPORT CMDS:
EXIT OR LOG
STATUSONL
INE
RPT>

(A)

THE LOG COMMAND

RPT> (A)

? LOG

PRINTS A LOG ENTRY FOR THE MOST RECENT EVENTS LOGGED SINCE
THE _LAST DR> START OR DR> RESTART COMMAND. A MAXIMUM OF
45 EVENTS CAN BE PRINTED.

>>> DCLT EVENT LOG ENTRY 222322333323 3333333333333333>>>>
0:01:16
RECE!VE SPACE QUEUED
TO=-FROM LINE
N
001
ADDR OF MSG= 000655
BYTE COUNT= 512

>>> DCLT EVENT LOG ENTRY

RPT>

(A)

>22332333233333333333333333>>>>

L
CIZKMSAO KMS11-BD/BE

CIKMSA. P

DCLT

MACY11 30A(1052)

2?-05(-8% 13:54
THE

23-DEC-B2

STATUSONL
INE COMMAND PRINTS THE

LINE.

IF THERE

PAGE 51

STATUS OF

IS AN ESTABLISHED LINE THEN

RPT> (A)
PRINTS:

14:01

THE ESTABLISHED

? STATUSOINE
NL

STATUS REPORT
LINE _NUMBER = XXX
STATUS
= XXX
TEMP DATA = XXX
ACKS RCVD = XXX
NAKS SENT = XXX

FLAGS = XXX

LAST TX MSG = XXX
MSGS RCVD = XXX
NAKS RCVD = XXX

THE EXIT COMMAND RETURNS TO THE
REPORT PRINTING WAS INVOKED.

COMMAND LEVEL

FROM WHICH

6;AQEP0RI PRINTING WAS INVOKED FROM THE SUPERVISOR
THEN

DR> PRINT
RPT>

(A)

? EXIT

IS FOLLOWED BY:
DR>

5§A§EP0R! PRINTING WAS INVOKED FROM DCLT
THEN:

DCLT> (A) ?
RPT>

(A)

? EXIT

IS FOLLOWED BY:
DCLT> (A)

SEQ 50

CZKMSAO kMS11-BD/BE DCLTY
CZKMSA.P11
23-DEC-82 13:54

MACY1? 30A(1052)

23-DEC-82

14:01

PAGE 52

7.4 THINGS TO WATCH OUT FOR

IF _YOU ARE RUNNING DCLT ON SYSTEMS THAT HAVE CONSO%ES
PRINT STATUS FEATURE IN CERTAIN MODES. THE RULE IS

IF _IT DOESNT WORK WITH STATUS PRINTING RUN THE MODE

WITH NOSTATUS.

IF_YOU ARE USING PASSVIE MODE WITH THE ECHO SWITCH
THEN YOU WILL PROBALBLY HAVE TO RE _ENTER THE TRANSMIT
LIST ON THE SIDE WITH THE ECHO SWITCH. THE REASON IS
THAT THE TRANSMIT LIST GETS OVER WRITTEN WITH THE
RECEIVE LIST WHEN USING THE ECHO SWITCH

SEQ 51

CZKMSAD kMS11-BD/BE
2§-DEC°gS DCLT13:54
CZKMSA.PI

}ggz

MACY1? 30A(1052)
°

1995

200

SEQ 52

2007

’

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

2004
%882

2014

NMOD
BGNMO

1998
1999
000
001
00%

2010
2011
201§
201

‘

14:01

SBTT L PROGRAM H HEADER

}839 002000

%883

23-DEC-8B2

002000

HEADER

002000

2015 002000
2016 002000
2017 002001

2018 00200
2019 00200
2020 002004
2021 002005
202§ 002006
202% 002007
024 002010
025 002010
2026 002011
2027 002011
2028 002012
2029 002012
%030 002014
031 002014
32 002016
033 002016
034 002020
035 8820
20
0
037 0020
38 8820 4
2024
2039
040 882026
20;8
041
.Obg 0020
043 002030
044 0050;5
045 0020
069 002034
047 002034
048 002036

POINTER ERRTBL ,BGNRPT ,BGNAU,BGNDU

103
13%
1
115
123
000
000

000
10
060
000000
003410
067230
000000
002130
000000
067542
000000
000000
000000

CZKMS,A,0,1800.,0,PRIO7

::
LSNAME

LASCII /C/
LASCI1 72/
LASCII /K/
LASCII /M/
LASCII 7S/
BYTE 0
BYTE O

BYTE O
LASCII /A/
LSDEPO::
LASCII 70/
LSUNIT::
WORD O
LSTIML::
.WORD 1800.
LSHPCP: :
.WORD LSHARD
LSSPCP::
LMORD O
LSHPTP::
.WORD LSHW
LSSPTIP::
MORD O
LSLADP::
.WORD LSLAST
LSSTA::
.MWORD O
L$CO::
MORD O
LSDTYP::
MORD O
LSAPT::

LSREV::

CZKkMSAD KMS11-BD/BE

CZKMSA,.F11

23-DEC~

SLT

2049 002036 000000
SOSO 0204
051 00204 002124
05§ 00204
053 002042 000340
054 002044
055 002044 000000
5056 002046
057 00%046 000000
058 002050
00
059 80 050
20
060 002051
2061 00 05%
206% 002052 000000
%06 002054 000000
064 002056
2065 002056 000000
2066 002060
2067 002060 013714
2068 00206
2069 002062 032576
2070 002064
2071 002064 000000
2072 002066
2073 002066 000000
2074 002070
2075 002070 054156
2076 00207
077 002072 054150
078 002074
079 002074 000000
2080 002076
2081 002076 013730
2082 002100
2083 002100 104035
5084 00%10%
085 002102 013704
089 805106
02104 032612
08
088 002106
089 002106 054022
090 002110

091
09.
093
094
095
5099
097
5098
099

88511
1"
002112
882116
2114
002116
002116
002120
002120

054020
032604
000000
000000
000000

13:54

MACY1? 30A(1052)

23=DEC=-82

PROGRAM HEADER

14:01

SEQ 53

PAGE 54

WORD

LSDTP::
WORD
LSPRIO::

.WORD
.WORD
LSEXP1::
WORD
LSMREV::
.BYTE
.BYTE
LSEF::
.WORD
WORD
L$SPC::
MWORD
LSDEVP::
.WORD
LSREPP::
.WORD
LSEXP4::
.WORD
LSEXPS::
.WORD
LSAUT::
.WORD
LEDUT::
.WORD
LSLUN::
.WORD
LSDESP::
.WORD
LSLOAD::
EMT
LSETP::
.WORD
LSICP::
LMORD
LSCCP::
.WORD
LSACP::

LSENV]::

.WORD
.MWORD
LSTEST::
.WORD
LSDLY::
.WORD
LOHIME::
MWORD

LS$PRT::

0
LSDISPAT(H
PRIO7
0
O
(CSREVISION
CSEDIT
0
O
O

LSDVTYP
LSRPT
O
0
LSAU
LSDU
O
LSDESC
ESLOAD
LSERRTBL
LSINIT
LSCLEAN
LSAUTO
LSPROT
O
O
O

c
xr~

CZKMSA. P
~No

22-05(-%2DCLT13:5¢4

KMSAO kMS11-BD/BE

23-DEC-82
.
DISPATCH TABLE

MACY1' 30A(1052)

14:01

PAGE

101

}8‘
105

: 1118 USED BY THE SUPERVISOR TO DISPATCH TO EACH
I

EACH TEST.
: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF
TEST,

10§
2106

SEQ 54

00512%

2107 002122 000001
2108 002124
g}?g 002124 054164

DISPATCH 1

.WORD

LSDISPAT(H::
.WOR

1
1

NS LSLS ST NSNS LSS ST ST NS LN LS ENTNT NS LSS ST NTN ]oo

CZKMSAD KMS11
CZKMSA P11

23 “DEc-82 2 113:5¢4

D e

D il

b h d =

N 8 W) = DO 00NN W8S NN = OO 00 N0 N S WY

D
D
s D D il el e el
D il

8NN = O O 00 N

SEQ 55

PAGE 56

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

¢ THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE
: 1S IDENTICAL TO THE STRUCTURE OF THE HARDWARE P=-TABLES,
; AND IS USED AS A ''TEMPLATE' FOR BUILDING THE P-TABLES.

NN NI AU AU NI NI NURUNINY =P =P b

D D il il il
D ol e

N N N N N AN W
BN 8N 8 B B B

el el el el il il il
—

LSLNLNTNT ST

MACY11 30A(1052) 23-DEC-82 14:01
DEFAULT MARDWARE P=TABLE

BGNHW

000006

DFPTBL

LSHW::
DFPTBL::

.WORD

L10000-L$HW/2

lNDEPiNDENY SECTION

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

(ODING SECTION.

;DEVICE DEPENDENT SECTION

:
3

002130

164100

002140
002142

000000

002144
002144

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

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
ENDHW

164100
4CO
240
164110
0
0

:[0] CSR ADDRESS (KMC11-B)
:[2) INTERRUPT VECTOR (KkMC11-B)
:[4) INTERRUPT PRIORITY (BRS) (KMC11-B)
:[6) CSR ADDRESS (DM11-BA MODEM CONTROL CSR)
:[10]SPARE
;s [12]SPARE
L10000:

2§°DE(° 2DCLT13:54

CZkMSAQ kMS11-BD/BE

CZKMSA.P1
146
147

2148

MACY1? 30A(1052)

23-DEC~

14:01

DEFAUL% flAgDHREE ggTABLEO

SEQ 56

LY
B

o000

-bd

100000

000001

001000

000001

000040

000034

; PRIORITY LEVEL DEFINITIONS

000340
000300
000240
o

00
240
40
N

[elelelelelelelele
-]
© =PI &S N0 N0 O

O
O

R
T

O
(O

R T
T

=N e

OOOS

[=l=lelelelel=d

L
L

—
LA U
L U

TR T (O
L L O

OO =NIWSWN

[=l=Telelelele
el == e
OCOO0OO0O0O0O0O0O

R
U U

=R =N =N

TR
LU

O =MNWS VO N

— ] ) ] ) ] ) ] ) ) ) ) ) = )
[wlelelelelelelelele
B

St s 5t Ot Gt B0 Gt e

DI FINITIONS

OO —N

POND NN

-y

g o )ttt
= —4

mre

DODDDDDDDDME
o Bt b e Bt St Ot s Dt s

M
nn
nuumunnun

] ] )y ) ) ) )

O = NIWW SO0

—

e Gt Bt Bt Bt Bt Bt Bt Bd S

002144

HNeeP2N
C =i

: BIT

'DZ§’U'

st MMMMMe. s.s. . 0DODOD OO MDMMD.- DODODDDODDODODODODDDDDDT B0 0 S B Do
o ot

23-DEC-82 13:5¢4

nNun
"nhwu

OO OO O OO A NNIWANNNWIVIA

(2 KMSAD KMS11 -gDIBE DCLT

o000
WO
N

0000

C 143MSA.P11

—
s
e

Ssgsggfwgdgoasgmgw~aooawombu-ooaqowbuwaooawfimbw~ao 0

00000000 NN NNNNNNNNO

PUNONIRNOND =2 s b b b b dd"ddddddddddflddddd‘ddddddddddddJdddddd-“dd &H

LS LS NI NINLNTNTNL
N NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNWNNN

MACY1Y 30A(1052)
23-DEC-82 14:01
SECTION
EQUATES
GLOBAL

PAGE 58

SEQ 57

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

OR SUPERVISOR TO PROGRAM (OMMUNICATION
START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED

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

;
MACY11 30A(1052) 23-DEC-B2 14:01 PAGE 59
6

CZKMSAQ xns11-§o/as SSLI

CIKMSA.P11

gzos
206
2207
2208
gg?g
2211
221;

23-DEC-82

000200
000140
000100
000040
000000

13:54

GLOBAL EQUATES SECTION

PR104== 200
PRI03== 140
PRI02== 100
PRIOT== 40
PRI00== 0
1OPERATOR FLAG BITS
:

000004

fvL==

SSS?

100000

HOE==

2214
5215
216
2217
2218
2219
2220
2221
zzzg
222
2224
2225

000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

LOT==
ADR==
10U==
ISR==
UAM==
BOE ==
PNT==
PRl==
IXE==
IBE==
1ER==
LOE==

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

100000

SEQ 58

= OO0

NO VW ~-O0

NNNNNNNNO

LNV L NN NN S LY LN LY

VWAV
S B

MNOAL NN AN NI AN AN NN NI bbbbbbwu‘g
NN N NNV
NN SF
NN uwu\nv
mdScaNOwadooaflombm—-ooafi
P XE S P

LSS
¥
----N-~NNNNNNNNNNNNNNNNNNNNN------NN

CZKMSAD KMS11
CZKMSA P11

23°0EC-8¢

13:54

MACY1Y 30A(1052) 23-DEC-82 14:01
GLOBAL EQUATES SECTION

SEQ 59

PAGE 60

; INDEPENDENT EQUATES
000000

ENUM = 0

sINITIAL VALUE FOR ERROR NUMBER

001000

BUFLIM=512.

sMAX BUFFER SIZE IN BYTES

000017

MSGL IM=15.

sMAX NO. OF MESSAGES PER BUFFER
(FOR EACH INCREMENT (+1) TO MSGLIM,
ADD 6 WORDS TC THE POINTER TABLE

000000

;MODE OF OPERATION EQUATES
REC=0
PAS=
ACT=

000004
000005
000006

DOW=¢4
TAL=5
LIS=6

APPLIES TO TX,RX AND (MP BUFFS

"'POINTER'® WORDS PER BUFFER.

(PTRTAB:) SINCE THIS MEANS 2 MORE

sRECEIVE MODE

s TRANSMIT MODE

TRA=1

00000

;

;PASSIVE MODE
ACT
MODE
;ACTIVE

:KMS11-8D,BE DCLT DOES NOT SUPPORT DOWN=-L INE=LOAD MODE
:DOWN=L INE~LOAD MODE

;TALK MODE

:LISTEN MODE

sMAINT LOOP TYPE EQUATES

000000
000001
000002

NONE
=

CABLE=

000003
000004
000005

MODLOC=
MODRE M= 4
5
MOP=

000100
000111
001600

1TLs

:NO _LOOP

sINTERNAL TTL

: CABLE LOOP

:KHSIl-B%.BE DCLY DOES NOT SUUPORT MODEM LOCAL ,MODEM REMOTE OR MOP
sMODMEM LOCAL

:HngH REMOTE

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

000001
000002
000004
01
000010
000020
000040

STATB= BI10
DAT(kB= BIT
ECHOB= Bl!i

;OPERATOR AWAKE ASKED FOR
sDATA CHECK BIT
sECHO BIT

BlT4
(R(B=
PROTOB= BITS

sCRC CALCULATE ASKED FOR
sPROTOCOL PROCESSING ASKED FOR

MOCHK=

BIT

sMODEM CHECK/NO CHECK

CZKMSAQ xns11-§o/sz LY
CZKMSA.P11
23-DEC-B2 13:54
278

;EVENT LOG MESSAGE TYPES (USED TO LOCATE EVENT DESCRIPTION IN EVENT TABLE

228%

sz9&
2%82

2%3;

000000
000002
000004
000
00001
00091
000014
000016
000020
00002
000024

000026

3299

000001

2306

001000

2300
2301
230;
230
2304
2305

2307
gggg

PAGE 61

:OPTION TYPE EQUATES

gm
$58%

228
2284
gzas
286
287
%aa
89
290
2N
229;
229

MACY1Y 30A(1052) 23-DEC=-82 14:01
GLOBAL EQUATES SECTION

AND DISPATCHING TO SEPARATE SECTIONS OF THE EVENT REPORTING SECTION)
TX0=
g
;TRANSMIT MESSAGE OQUEUED
:TRANSMIT COMPLETE
TM@(=
RXQ=
4
:RECEIVE BUFFER QUEUED
RX(=
[
:RECEIVE COMPLETE
DER=
1g
:DEVICE INFORMATION
:DEVICE ABOUT TO INIT
1
DVi=
DCK=
14
:DATA COMPARISON RESULTS
MSC=
16
:MODEM STATUS CHANGE
:DATA COMPARISON LENGTH ERROR
20
DLE=
:DATA COMPARISON DATA ERROR
22
DDE=
EOP=
ABO=

54
6

sEQUATES FOR FLAG WORD

ININT = BITO

000002
000004
000010
000100
000200
000400

OTINT
QRX
QTX
ERX
ETX
INITC

= BIT
= alti
= BIT
= BIT6
= B117
= BIT8

002000
004000

STAT
IXT0

= BIT10
= BITN

SETC

= BIT9

:END OF PASS

:INPUT INT, REC.

:OUTPUT INT REC
sRX QUED /COMPL
:TX QUED/COMPL
SEXPECT TO GET A RX COMPLED
SEXPECT TO GET A TX COMPLETED
SEXPECT INIT SYSTEM COMPLETED

SEXPECT SET LINE COMPLETED
SSTATUS REPORT EXPECTED
;TRANSMIT TIMEOUT OCCURRED

2310

13
63
231§
2314

2315
2316
2317

000000
000001
00000

5320
321
5322
;23
2324
gggg

05
006
000007
000010
000011

5318
319

00000
0

000012

CLI CODES FOR '‘CHMAR'* ARGUMENT IN CLI CALLS
:: SPECIAL
(COMMAND LINE INTERPRETER DEF INITIONS)
CLIERR= 0
CLIEXI= 1
CLIBR= ;
CLIBIF=
CLISPA= &

CLINUM= §
CLIALP= 9
CLIALN=
cLioCT= 3.
CLIDEC= 9,
CLISTR= 10.

SEQ 60

N N

NPV

WN =00V

oD 79
E

NOTNUF =50
BADCHR=51
DMPS=5
DMPE =5
5
5
5
5

6
6

mbmag%mb

@ ~ Qw-tm-on-no

-— P P+ U
=t o N

—ayo
-0

~POH

000000

»x > — -y rm

NN OOV NOWVSWN=O VN
W = O VONOWVS

D/BE
sL
CZKMSAD KHS\\
25-DEC~
CZKMSA. P

TM b3 bal mwnn

N = OO

NN
N NN NN

i v S S S P
I WNN
SRS vV
gwbm—-ooa-w

MR ALNINIAI NN NI AN NI AL NI NN NN NN NI AN AN AU A A NN NN NN AN ANN

SEEESE

AN N N N N N N N AN N NN
OO0 N NNNNNNNYN

MACY1Y 30A(1052)
23-DEC-82 146:01
GLOBAL EQUATES SECTION

PROTO=41
PAS(=42

E(NO-37
CRC=40

MOP=43

(BLLOP=45
LMDLOP=4
TTLLOP=44

RMDLOP=4

PAGE 62

: DEFS FSR COHHAND LINE INTERPRETATION ACTION VALUES

SEQ 61

CZKMSAQ KMS11-BD/BE gSLT
CZKMSA. P11
23-DEC-82
13:5¢4

2 gz
85
2386
2387

2388

5389
390
2391
ggg;

000001
ooooog
00000

000004

000005
000006
000007
000010

K
MACY11 30A(1052)
23-DEC-82
14:01
GLOBAL EQUATES SECTION

5
PAGE 63

;FOLLOWING EQUATES USED IN REPORT (LI
RPHLP=1
nPextzi
RPLOG=

RPSOL =4

RNOTNF =5
RDMPS=6
RDMPQ=7
RDMPE=10

SEQ 62

L
CZKMSAO kMS11-BD/BE

CZKMSA.P11

DCLT

2§-oec-3$ 13:5¢4

MACY1Y 30A(1052)

23-DEC-82

14:01

GLOBAL EQUATES SECTION

g 95

; DEVICE DEPENDENT EQUATES

§§33

96
2397
28?

gao

40
404
405

2407

%283

5
PAGE 64

: MODEM SIGNAL BIT DEFINITIONS
3
IF SIGNAL AVAILABLE IN DEVICE, EQUATE NAME TO BIT POSITION,

000000

ELSE EQUATE IT TO =

(KMS11=C FIRMWARE DOES NOT MAKE MODEM SIGNALS AVAILABLE)

C1S=

000000
000000
000200

0
0

000000

Rl=

000000

TMM=

000000

2610

DSR=
DCD=
RTS=

sCLEAR TO SEND (CIRCUIT CB)

sDATA SET READY (CIRCUIT CC)
;DATA CARRIER DETECT (CIRCUIT CF)
sREQUEST TO SEND (CIRCUIT CA)
;RING INDICATOR (CIRCUIT CE)}

;SIGNAL QUALITY DETECT (CIRCUIT CG)

;MODEM IN TEST MODE (RS 449 ONLY CIRCUIT TTM)

52}1

261

;KMS11-BD/BE REGISTER BIT DEFINTIONS

24614

2615

100000

DEVICE BIT DEFINITONS

:CSRO:

KRUN=

BIT1S

:RUN BIT

2416

040000

MCLR=

BIT14

:MASTER CLEAR

24618

010000

EXT1=

BIT12

sSTEP LINE UNIT(OPTIONAL. USED WITH SOME LINE UNITS)

2617

:BIT13

sUNDEF INED

2619
2420
2421

004000
002000
001000

EXT0=
RAMO=
RAMI=

BITI
BIT10
BIT9

sLINE UNIT LOOP (OPTIONAL. USED WITH SOME LINE UNITS)
:LOAD VERIFY RAM
sMAINTENANCE INSTRUCTION REGISTER CLEARS PC

2423
2424

000400
000200

STEP=
RQ]=

BIT8
BIT?

;SINGLE STEP MICROPROCESSOR
sREQUEST PERMISSION TO TRANSFER COMMAND TO DEVICE

2259

000001

1E1=

BITO

RDYO=

BIT?

RDYI=

BIT4

24622
425

000020

52%3
2630

000200

3034

000020

263
zzgg
2435

1€0=

BIT4

;OUTPUT INTERRUPT ENABLE

:INPUT INTERRUPT ENABLE

:CSR2: USED FOR COMMUNICATION BETWEEN COMM DEVICE AND ITS LOCAL HOST PROCESSOR

436
437

;READY OUT BIT,
sSET BY DEVICE TO REQUEST HOST TO ACCEPT MESSAGE
sCLEARED BY LOCAL HOST WHEN IT HAS ACCEPTED MESSAGE

:READY IN BIT

sSET BY DEVICE TO GRANT LOCAL HOST PERMISSION

: TO TRANSFER COMMAND TO DEVICE
sCLEARED BY LOCAL HOST WHEN COMMAND HAS BEEN

g:gs

: TRANSFERRED TO DEVICE CSRS

zzzg
442

AND LOADS MAINT.INSTRUCTION INTO CRAM LOCATION ZERO

sKMLTYP = ADDRESS IN KMC DATA RAM OF INTERNAL LOOPBACK MODE SPECIFIER
007726

KMLTYP= 7726

;***THIS VALUE IS A KMC DATA ADDRESS

SEQ 63

mS5
CZKMSAQ KHS11 D/BE
CZKMSA.P11
25-DEC~

SLIS:564

MACY11 30A(1052)
23-DEC-82
14:01
GLOBAL EQUATES SECTION

:
000000

00000

SEQ 64

PAGE 65

MISCELLANEOUS EQUATES FOR ERROR CALLS
ENUH
T.ESF

=0
=0

T.EDF
= 1
T.EHRD = i
T.ESFT =

¢INITIALIZE ERROR NUMBER
sSYSTEM FATAL ERROR TYPE

sDEVICE FATAL ERROR TYPE
sUNRECOVERABLE ERROR TYPE
:SOFT ERROR TYPE

CZKMSAD KMS11
CZKMSA.P11

13:54
-85EE
2 0P

MACY11 30A(1052) 23-DEC-82
GLOBAL DATA SECTION

14:01

S
PAGE 66

THE GLOBAL DATA SE CTl ON CONTAINS DATA THAT ARE USED
; IN MORE THAN ONE T EST.

;

.SBTTL

DEFAULT MESS AGE DEFINITIONS AND TABLES

O VWAVIWNSS
S~ 8
OO NOON
S &~

;MESSAGE BYTE COUNT TABLE

002170

000001

000254

DMSGCT:
MSGOC:
.WORD
.WORD
MSGIC:
.WORD
MSG2C:
.WORD
MSG3C:
.WORD
MSG4C:
.WORD
MSG5C:
.WORD
MSG6C:

MSGBL:
.WORD
DLLMIC: .WORD
DLLM2C: .WORD

EMSGO-MSGO
EMSG1-MSG]
EMSG2-MSG
EMSG3-MSG
EMSG4=-MSG4
EMSG5-MSG5
EMSG6-MSG6
0
EMSGB-MSG8
DLLM1E=-DLLMI
DLLMZ2E=-DLLM2

;BYTE COUNT OF MESSAGE #0
;BYTE COUNT OF MESSAGE #1
;BYTE COUNT OF MESSAGE #
:BYTE COUNT OF MESSAGE #
sBYTE COUNT OF MESSAGE #4
:BYTE COUNT OF MESSAGE #5
:BYTE COUNT OF MESSAGE #6
sBYTE COUNT FOR OPERATOR SP EC'D MSG.

:BYTE COUNT OF RECEIVE BUFF ER FILL PATTERN
;DLL MSG 1 COUNT
:DLL MSG 2 COUNT

SEQ 65

kMS11-BD/BE

CZKMSAO
CZKMSA.P11

DCLT

2?-0&(-35 13:5¢4

MACY1? 30A(1052)

00 175

PAGE 67

DEFAULT MESSAGE DEFINITIONS AND TABLES

:MESSAGE ADDRESS TABLE

2;8
4«81

23-DEC=-82

14:01

DMSGAD:

;ADDRESS OF MESSAGE #0
:ADDRESS OF MESSAGE #1
:ADDRESS OF MESSAGE c;
:ADDRESS OF MESSAGE #
:ADDRESS OF MESSAGE #4
:ADDRESS OF MESSAGE #5
ADDRESS OF MESSAGE #6
ADDRESS OF OPERATOR SPEC'D MSG.

MSGO
MSG1
MSG
MSG
MSG&
MSGS
MSG6
opagr

002172
002174
002176
002200
002202
002204
002206
002210

002214
80 15
00 19
00221
00 So
002320
00241
00252

492

002214

000

MSGO:

.BYTE

000

:MESSAGE OF ALL 0°'S

494

002215

377

MSG1:

BYTE

377

:MESSAGE OF ALL 1'S

496 002216

252

MSG2:

.BYTE

252

:MESSAGE OF ALTERNATING 1°'S

498 002217

125

MSG3:

.BYTE

125

:MESSAGE OF ALTERNATING 0°'S

MORD

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

2504 002240 040041 014116 052606

.WORD

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

507 002260 osgoso 145064 137642

.WORD

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

2510 002300 052012 053627 070071

LWORD

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

482
483
484
485
4«86
487
4«88
489
493

495

002215

00%216

EMSGO:
EMSG1:

ensgz:

497

002217

2499

002220

sog
50

oozzie
oozs &

047321
1643325

163715
142304

105221

505
506

ooggae
002254

172334
111337

105025
111523

123754

2508
2509

002266
0022764

143531
066730

063617
026575

135075

251
251;

oozgoo
002314

151172
166632

165044
016741

031605

EMSG3:

2500 002220

2501 002220 177603 157427 031011

2513

002320

2516 002320 077577 040444 052040
044525
oozsgb
002334

802342
002350
802 56
002364
002372

002400

o«g51g
04550

067127
045040
8% 104
040
055101

027107

050440
41040
043040
ocgszs
85 17
042510
020131

525 002405 005015 077401

gsg;

00341

00241

35
6§31
253;
2533
2534

0024
002426
0024 34
002442
002450

2528 00241

zs;g 00241

000177

MSGS:

.
MESSAGE
(ITEP)''
;"zqte?gg?cgsson TEST PROGRAM'S

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

05411
042520
851105
046040
047504

JASCIZ

077577
EMSGS:

025051
030460
8 466
036474
041502

SCCITT' S12-BIT (vS. 511 BITS) TEST_PATTERN

04752;

ogzoas 021041 023042
024047
8 7055
gae«
035472
040500

MSG& :

EMSG& :

%ggg 002320
3517
518
2519
2520
551
522
523
5524

:ADDRESS OF RECEIVE BUFFER FILL PATTERN

MSG

23? 002212 002%¢

02605
1668
447
7476
042504

MSG6:

><1
77> 77><177>
<001
77>
€15><12>

ND MSG)
-AsPHA-NUHERl(S (OR FUTURE COMM TURNAROU
WXYZ/

CASCIT /48! &' O)ee,=,0123456789:;

<=>?3ABCDEF GHIJKLMNOPQRSTUV

SEQ 66

CZKMSAD KMSTT gDIBE gCLI
13:54
23-DEC-B2
C(ZKMSA.P11
55 5
536
2537
2538

00 656
002464
0024
002500

043506
046514
0515;2
054550

044510
047516
0525%4
1 i

2540
2541
2542

002510
002513

022537

000

2539

00250

0§7

002514

056133

MACY1® 30A(1052)

23-DEC-82 14:01 PAGE 68
DEFAULT MESSAGE DEFINITIONS AND TABLES

06551%
05255
053526

ASCIZ

057135
EMSG6:

JEVEN

%2
/[N

SEQ 67

CZKMSAQ KHS11-§DIBE gSLY
13:54
23-DEC-B2
CZKMSA.P11

MACY11 30A(1052) 23-DEC-82 14:01 PAGE 69
DEFAULT MESSAGE DEFINITIONS AND TABLES

~N)
N
P

zgzg

AR RN R R RN R R R RN R R R R RN PR R E PR R R RN AR R AR R ERRNNNORNRNOAROOROROROOEROTOOORONTS

STHESE THREE STORAGE AREAS MUST NOT BE SEPARATED !!!!

040445
%Skb 002514 047045
000122

OPBFPT: .ASCII /XNXA/

%sso
2551

ABOVE THREE LINES MUST BE KEPT TOGETHER
;: THE
't".t't".tt"".'t"""""'"QQ.'""Q"""t""tt'ti."l.""t'
:RECEIVE BUFFER FILL PATTERN
MSG8: .BYTE 33

2547 002520

2323 002642
5

25
002642
255%
%ggg 002643

033

OPBUF:

OPEND :

EMSGB:

.BLKB

82.

:BUFFER FOR OPERATOR SPEC'D MESSAGES

SEQ 68

CZKMSAO xns11-§o/ee cht
23-DEC-82 13:54
CZKMSA.P11

;eveeekMS11-BD/BE DOES NOT SUPPORT DOWN LINE LOAD®eswe
: DOWN=LINE=LOAD MESSAGE DEFINITIONS

2556
5225

2359
2560
2561 002643
%sei 002644
563 002645
gse«
565

002646
002647

2569
2570
2571
257;
%g;‘

002651
00265
00265
002654
002655

gseo 002650
567
002650
2568

::::ENTER MOP MODE MESSAGE FORMAT MODE ONLY IF THE PASSWORD MATCHES.
$33ITHE NODE WILL ENTER MAINTENANCE
:BINARY CODE FOR MAINTENANCE MODE
pLLMY: .BYTE 6
LEGAL VALUE 0 = 255

006

PASS1:
PASS2:

000
000

PASSS:
PASS4:

000
000

000

000
006
000
000
000

002656
002660
002664
002670
002674
002676
002702
002706
002710
002714
002716
002724
002730

000240
005037
012706
012701
010700
062700
105761
100375
112061
001372
012737
005037
000777

gso;
593
2594

002740
002746
0027564

046440
042507
051040

051505
053440
041505

040523
051501
105

596
§97
2598

002766
002774
003002

052523
043123
026440

041503
066125
105

051505
054514

051505

020524

027015

002761
00300

003018

601

00302

2603
2604
2605

003026
00303¢
003042

2602 003021
06

BYTE
BYTE
BYTE
.BYTE
BYTE

0
6
0
0
0

1::AND MERE
i3 AND MERE,

:LOAD NUMBER
:LOAD ADDRESS LSB

003050

111

:LOAD ADDRESS

116

052040
041

012

051056
020104
040522
000056

046105
051120
027115

:ADDR
;"BYTE COUNT'* :006
P (2640(8)=160.) :
:
;SET UP TTY
:MAKE ADDR.PIC
:ADDRESS MSG.
STTY READY?
SWAIT TIL YES
STYPE A CHAR
‘KEEP GOING
SSETUP PWR FAI
:ENSURE TBIT (
:JMP ON YOURSE

020104

JASCI1

/IVED SUCCESSFULLY =E/

043117

LASCI1

/ND OF TEST!!/

027056

JASCIZ

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

000034
1%:
000004
000006
000026 000024

020104

;LOCATIONS (WORDS)

are
#1000, SP
#177560,R1
PC,RO
#<MSG=.>,R0
4(R1)
1%
(RO)+,6(R1)
1%
826,026
an2é
"

177560

042526

NOP
CLR
MOV
MOV
MOV
ADD
1STB
BPL
MOVB
BNE
MOV
CLR
BR

000006
001000

000026
2591 002732 006412 047502 052117 MSG:

600

.BYTE
.BYTE

P*"LOADER'* IMAGE DATA

gg;g
2578
2579
2580
2581
258%
2583
2584
2585
2586
2587
2588
2589
2590

2599

‘PASSWORD BYTE #1
S:VALUE IN BYTE 1 IS DUPLICATED HERE

.BYTE
.BYTE

TEND ENTER MOP MODE MESSAGE FORMAT
DLLM1E:
TRANSFER ADDRESS MESSAGE FORMAT
WITH
::::MEMORY LOAD
; CODE
pLLM2: .BYTE O

2575

2595

SEQ 69

MACY11 30A(1052) 23-DEC=-82 14:01 PAGE 70
DEFAULT MESSAGE DEFINITIONS AND TABLES

040517
043517
027056

CASCI1 <12><15>/B0O0T MESSAGE WAS RECE

CONTENTS
000240
005037 000006
012706 001000
012706 177560
010700
062700 000034
105761 000004
100375
112061 000006
001372
012737 000026
005037 000026
000777

006412 047502

CZKMSAQ KMS11=~ D/BE DCLY
2
CZKMSA.P11

g-DEC-BS 13:5¢4

MACY1Y 30A(1052)

23-DEC-82 14:01 PAGE 71
DEFAULT MESSAGE DEF INITIONS AND TABLES

WORD
WORD

6
4

2
0

VOOVOOOVO

003116

.WORD
.WORD
+WORD
WORD

126361

0 7
1 3
0 4
1 5

WORD

126361

MO MOV

;PADDING T0 O
(USE PART

2
0

SEQ 70

DLLMZE:
JEVEN

3
1

0
. S

:"'CHECKSUM WORD''; 246

126361

CZxMSAQ xMS11-BD/BE
2?-05(-85 13:54
CIZKMSA.P11
gaz 003124 000122
629

MACY1? 30A(1052)

23-DEC-8B2

CMDBUF: .BLKB

82.

QUALVL: .WORD
HLPTAB: .WORD
.WORD
WORD

O
HLP
HLP2
HLPZB

2630 003246 000000
2631
263% 003250 000000

015032
01512

MWORD
.WORD

003%52
00% 5S¢
003256
003260

000002
0146
014636
014754

2639
2640
2641
26‘%

003266
003270
003272
003274

015150
015;27
015305
015375

%6;7
638

2643

2644
2645
2646
2647

2648

00%262
003264

003276

003%76
003300
003302
003304

HLPEND:

015607
015631
015646

2652

003312

015741

003320

015761

2655
5229
2658 003324

000

003332

043

ggg‘

2659

2660

2661
ggg

003357

003333

125

003334

.WORD
.WORD
.WORD
.WORD

015746

015767

377

203

015754

252

177

O
0

;:BUFFER FOR OPERATOR COMMANDS

sTHIS LOC WILL =1 IF CLEAR TYPED, 2 FOR SHOW,
IF WELP WAS TYPED
A4 IF RUN WAS TYPED, 5 VALUE
(SIZE OR COPY)
QUALIFIER
HOLDS
LOC
:THIS

HLP
HLP3A

HLP&
HLP&LA
HLPS
HLP6

RHLPTB: .WORD
.WORD
.WORD

RHLP1
RHLP?2
RHLP3

SHTYTB: .WORD

SHTYPO,SHTYP1,SHTYP2,SHTYP3,SHTYP4 ,SHTYPS ,SHTYP6,SHTYP7

RHLPEN:

£e48 003304 015720 015727 015734
2651

PAGE 72

COMMAND LINE INTERPRETER BUFFER,LOCATIONS AND MESSAGES
KEYWD1: .WORD
:
QUALFG: .WORD

263
2634
2635
2636

14:01

; THE LIST OF BYTES BELOW ARE THE FIRST BYTES OF THE PREDEF INED MESSAGES
: USED TO ‘'SHOW'* THE TRANSMIT AND COMPARE BUFFER CONTENTS.
0,377,252,125.,203,177,043
SHTAB: .BYTE
SHTEND:

.EVEN

016326

MODES:

.WORD

MO0

;ADDRESSES OF MODE TYPES IN ASCII

2672 003352 016417

LOOPS:

.WORD

LPO

:ADDRESSES OF LOOP TYPES IN ASCII

2664 003334
2665
2666
2667
2668
5699
227?

67%
674
2675
2675

003336
003%40
003342
00334
003§66
003350
003354
003356
003360
003362

016336
016347
016357
016366
016403
016410
016427
016440
016446
016461

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

MO1
MO
MO
MO4
MOS
MO6
LP1
LP
LP
LP&

SEQ 71

003402

003404

14:01 PA GE 73
INTERPRETER BUFFER,LOCATIONS AND MESSAGES

23-DEC-82

COMMAND LINE

;COMMAND LINE TRAVERSE LOCATIONS (USED BY "'PSTRV'")
PSBUFA:

OO0O0O0O0O0O

003364

MACYTY 30A(1052)

2820ec-88"13:54

CZXMSAD xMS11-BD/BE
CZKMSA. P

;LOC.
;LOC.
;LOC.
.LOC.

TO HOLD ADDR. OF CMD LINE BUFFER
TO HOLD ADDR. OF PARSING TREE
TO HOLD ADDR, OF ACTION ROUTINE
T0 BE A COUNTER LOCATION

0(. TO HOLD NUMERIC VALUE FROM PARSE

TO HOLD RADIX USED(LO) AND ¢/=(H] BYTE)

RETURN =0 IF ENOUGH OF CCMMAND FOUND
:RETURN CODE O IF NO ERROR FOUND
iWRITE FLAG

sVALID LINE FLAG..IF SET =1 THEN VALID

Sea 72

CZKMSAQ KHS11-gDIBE gsLi
CIZKMSA.PIN
23-DEC-82
13:54
691

$92
693
ggg

MACY1Y 30A(1052)

23-DEC-82 14:01 PAGE 74
MESSAGE BUFFERS AND POINTER TABLES

003406
004406
005406

001000
001000
001000

TXBUF:
.BLKB
CMPBUF: .BLKB
RXBUF: .BLKB

BUFLIM
BUFLIM
BUFLIM

:TRANSMITTER BUFFERS
:COMPAR]SON BUFFERS
:RECEIVER BUFFERS

2697
2698

0064
006502

000036
000036

PTRTAB: .BLKW
PTR13: .BLKW

MSGLIMe
MSGLIMe

:TABLE FOR MESSAGE ADDRS. & BYTE COUNTS
:COMPARE MESSAGE POINTERS

007536

PTREND:

2705
2706
2707

007542
007562
007602

000010
000010

CPTRLS: .BLKW
CPTTLS: .BLKW
DVRCLS: .BLKB

.
.
g.

2710
2711
271;
2N
2714
2715
2716

0076
007634
007636
007640
007642
007644
007646

125252
000000
000000
000000
000000
000000
000000

LMORD
TRBTOT: .WORD
TRIBN: .WORD
.WORD
INDW:
INDEX: .WORD
MORD
CTX:
MORD
CRX:

125252
O

TXSTAK:

696

699
;8?

006576
006672

000036
000322

5704 007536 000002
000010
708
709

2717
718
719

720

007612
0076

007650
007652
007654
007656

000010
000010

PTR2S:

.BLKW MSGL IMe
BLKW
MSGLIMe2¢7,

BLKW

DVTICLS: .BLKB
TRIBLS: .BLkB

000000
000000
000000

RSPTRS: .WORD
RSPTRE: .WORD
TSPIR:
.WORD

000006

.BLKkW

721
272;
572
724

007672
010046
010046
o1oosg

000066

000000
000000

RXSTAK: .BLKW
RXSKEN:
MPLY:
LMWORD
RXPTR:
.WORD

27
27§1

81006&
1

000000
0nn900

.WORD
.WwORD

2725
2729
2727
2728
27;3
7 i
7;‘
7
735
7
7
7

739

740
;:1
743

7464
745
2746

010052
010054
010056
010060
010062
0100
818872
10074
810076
10103
010102
010104

010108
81011
10112

000000
000000
000000
000000
000000

000000

000000
000000
888888
888888

010114

010116
010120
010122

TXPTR:
CMPPTR:
CMPTOT:
CTOTCC:
CCURAD:
DVIXA:
DVICC:

.WORD
.WORD
.WORD
.WORD
.WORD

DVRCC:

.WORD

DVITB:
DVICT:
TXMTOT:
TT07TCC:
TCURAD:
DVRTB:
DVRXA:

DVRCT: .WORD
RXMTOT: .WORD
LNCNT:

000000
000000

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD

,WORD

OPVAR: .WORD
OPVARY: .WORD
PSCNT: .WORD

sRECEIVE MESSAGE POINTERS
:TABLE FOR MULTILINE POINTERS

: END OF MSG. PTR. TABLE

.
8.

O
O

O
O
O

:FILLER
FOR OVERFLOW OF RX POINTER TABLE
:TABLE FOR MULITLINE RX POINTERS
:TABLE FOR MULITLINE TX POINTERS
;TABLE (BYTES) FOR REC COUNTS
:TABLE (B*"ES) FOR TX COUNTS
:TABLE (E .ES) OF LINE NUMBERS

; (END OF LINE NUMBER LIST)
:TOTAL NUMBER OF LINES IN LIST
;CURRENT LINE NUMBER
sWORD INDEX
JBYTE INDEX FOR LINES
:COUNTER FOR TX BUFFER COMPLETE INTERRUPTS
:COUNTER FOR RX BUFFER COMPLETE INTERRUPTS
:STACK POINTER FOR RX INTERPUTS ON STA(CK
:STACK POINTER FOR RX INTERPUTS OFF STACK
:STACK POINTER FOR TX INTERRUPTS

S&.

:TX AND RX INT STACKS

O
O

sMULTIPLIER
sRECEIVER MESSAGE POINTER

O
O
O

TRANSMITTER BUFFER POINTER
:CCMPARISON BUFFER POINTER
:CMP MSG TOTAL
:COMPARE BUFFER CHMAR, COUNT
:CURRENT ADDR OF CMP BUFF TO ADD AT
:DEVICE TX ADDR
;DEVICE TX CHAR COUNT

:DEVICE LINE NUMBER (TRIBN)
:DEVICE TX MESSAGE COUNT
:TX MSG TOTAL
:TX BUFFER CHAR, COUNT
:CURRENT ADDR. OF TX BUFF TO ADD AT
sRECEIVE LINE (TRIBN)
:DEVICE RX ADDR

:DEVICE RX CHAR COUNT

:DEVICE RX MESSAGE COUNT
:TOTAL NUMBER OF RX MSGS PER LINE
:NUMBER Gf CPERATOR AWAKE MSGS

:HOLDER FOR CPYIONAL VARIABLE (1)
:HOLDER FOR OPTION VARIABLE (2)
:PASS COUNTER

SEQ 73

CZKMSAD KHS11°gDIBE gSLY
13:54
23-DEC-B2
CZKMSA.P

MACY1Y 30A(1052) 23-DEC-B2 14:01 PAGE 75
MESSAGE BUFFERS AND POINTER TABLES

747
748
749
750

010124
0101
010
0101

000000
00000
00000
000000

ERRCNT:
STADD:
ENADD:
BYTBIT:

.WORD
.WORD
.WORD
.WORD

75
756
755
756

010136
010140
010142

000000
000000
000000

ROIFLG:
FILFLG:
TSSFLG:

.WORD
.WORD
.WORD

751
75

;gb

010144

000000

CLNSET:

OVRCNT:

,WORD

.WORD

8
8
O

;ERROR COUNTER
sSTART ADDR.
;END_ADDR. FOR
P
sBYTE BIT FOR DUMP ROUTINE

sCLEANSET FLAG SET AND CLEARED IN CLEAN UP
;INDICATES TO OUTPUT WANDELER THAN NO QUTPUTS SHOULD
:BE PRINTED
;RQI FLAG
;USED AS FATEL ERROR FLAG
sUSED AS TSS FLAG

sUSED FOR QUE OVERFLOW FLAG

SEQ 74

CZKMSAQ uns11 D/BE gsLt
13:54
23-DEC-B2
CZKMSA. P
759

%;g?

MACY1Y 30A(1052)

23-DEC=82 14:01 PAGE 76
MESSAGE BUFFERS AND POINTER TABLES

:OTHER MESSAGE RELATED STORAGE LOCATIONS

7=0PER
PHA/NUM,
FOX,6=AL
6ulcx
4=
max/chp cm\a toum

276764 010150 000000

MSGTYP: .WORD

:TYPE OF DATA o 0°'s,1=1'$,2=105,3=01'S

2767 8*11 6 000000
2768 010160 000000

CPTR:

.WORD

:CURRENT RX POINTER
:CURRENT POINTER

769 810162 000000
770 010164 000200

CURADD: .WORD
TOTCC: .WORD

OFSET:
TEMP:

.WORD
.WORD

800000
000
000000

TEMP3:
TEMP4:
TEMPS:

.WORD
.WORD
.WORD

762

010146 000000

765 010152 000000
766 01015¢ 000000
010166
010170

000000
000000

2776 010200

000000

771
772

2773
27764
2775

010172
010174
010176

2777 010202 000000
2778 010204
000
2779 010205

.WORD O
CURCC:
CPTRR: .WORD O
TEMP1:
TEMP2:

SAVSP:

.WORD
.WORD

.WORD

CONOTM: .WORD
Goop: .BYTE
BYTE
BAD:

O
O
O
O
O

O
0
O

»
$CURRENT TX/RX/CMP START ADDD
STOTAL CHAR couut NOT MORE THEN 'BUFLIM
SOFFSET COUNT
: TEMPORARY LOCATIONS (USED A LOT)

:STACK POINTER SAVE AREA

GSS MSGS.
:CONTROL OUT ERROR MSG. ADDRESS AND TSS AND
REPORT
PBYTE TO HOLD EXPECTED MESSAGE DATA BYTE FOR ERR
REPORT
ERR
FOR
BYTE
*BYTE TO HOLD RECEIVED MESSAGE DATA

SEQ 75

CZKMSAOD xns11-§o/se gsL

CZKMSA.P11

23-DEC-82

g;g

781

13:54

MACY1Y 30A(1052)

23-DEC=82

;MORE INDEPENDENT CODE STORAGE LOCATIONS

010206

000000

786
787
788
789

010212
010214
010216

000000
000000
000000

DCLFLG:
RESFLG:
MODTYP:

.WORD
.WORD
.WORD

791
79
79

010220

000000

MLTYP:

.WORD

795

010224

FHDPLX: .WORD

2790

794 010222 000000
2796
2797
2798
2799

2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811

010226
010230

LOGUNT:

PCADD:

.WORD

000002

PARAM:

.WORD

000000
000000

RPASS:
FLAG:

.WORD
.WORD

O
O

281§

;LOC. TO HOLD DO CLEAN FLAG 1 IF DOCLEAN INIT O IF NOT.
;LOC_TO HOLD FLAG (=1) THAT A RESTART WAS GIVEN
och MODE OF OPERATION TYP
:
=aec-o~Lv
x-o~Lv
zPASSIVE-LOOPBK

;

6opex 4=DOWN L.L., 5=TALK, 6= LlS!EN)

TMA NTENANCE LOOP TYPE (0=NONE,
1=INTERNAL TTL
:
2=CABLE, 3=MODEM-ANALOG LOOPBK (LOCAL)
P
4= MODEM=DIGITAL LOOPBK (REMOTE),
5=MOP}

:FULL OR WALF DUPLEX FLAG (1=FULL faon P=TABLE)

:PROGRAM_PARAME TERS

:
:
:
:

BITO= STATUS nsss 10 OPR PRINTED (1=YES)
BIT1= DATA CHECKING DONE ON RCVD MSGS (1=YES)
Bltgz ECHO (TRANSMIT) RCV'D MSG.(PASSIVE) (1=YES)
BIT3= MODEM STATUS CHECK (1=YES)
; BIT4= CRC CALC./CHECK DONE (1=YES)
: BITS= paorocOL EMULATION (1=YES)
: BIT6= SPARE
;PASS NUMBER FROM RUN COMMAND
:DEVICE FLAG WORD
:BITO = INPUT INT. REC.
:BIT1 = OUTPUT INT REC
:Blti = RX QUED /COMPL
:BIT3
= TX oueo/coan
;BIT6 = EXPECT TO GET A RX COMPLED
;BIT7 = EXPECT TO GET A TX COMPLETED
;BIT8 = EXPECT INIT SYSTEM COMPLETED

:BIT10 = STATUS REPORT EXPECTED
;BIT11 = TRANSMIT TIMEOUT OCCURRED

2816
2817

5%}3

;MODE DISPATCH TABLE

2820
2821
2822
sazs
824
2825
gggg

010232
010234
010236
01024
010242
010244
010246

060736
060764
061022
octgso
062324
062350
062602

MODE:

828
829
830
831
asg

010250
010252
010256
010256

000000
000000
000000
000074

CLKCSR: .WORD
CLKBR:
.WORD
CLKVEC: .WORD
CLKHZ:
.WORD

010260

000000

fass 010262 000000
2836

;LOC. TO HOLD LOGICAL UNIT NUMBER

:LOC. HOLD PC OFCALLING ROUTINE

:BIT9 = EXPECT SET LINE COMPLETED

281
gg}g

gg‘

SEQ 76

PAGE 77

MESSAGE BUFFERS AND POINTER TABLES

784

785 010 1g 000000

14:01

010264

000000

CLKEN:

.WORD
TWORD
JWORD
WORD
.WORD
.WORD
CWORD

.WORD

RXONLY
TXONLY
PLCK
ALCK
DLL
TALCK
LISCK

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

60.

:CLOCK CSR ADDRESS
;CLOCK INTERRUPT LEVEL
:CLOCK INTERRUPT VECTOR
:CLOCK'S HERTZ RATE

TIMMIN: .WORD 8

TIMSEC: .WORD

:CLOCK'S CSR VALUE TO INTRPT. ENABLE IT

;PLACE TO KEEP TIME=SINCE=START

PONONY

N=O

i
84
84

20E-88 1515

010266

000000

010 70

000000
000000
00

010272

010 74

MACY11 30A(1052)

23-DEC-82

.WORD

TIMER1: .WORD
TIMER2: .WORD

TIM TCK:

TIMERS:

14:01_

PAGE 7 8

CLOCK TABLES, EVENT LOG AND POINTERS
[=lel=]

CZKMSAQ_KMS11 CIKMSA.P11

:PLACE TO KEEP # OF TICKS/SEC
;EVENT TlHER " (IICKS)
*EVENT TIMER § (TICKS
DS)
(SECON
:EVENT TIMER

SEQ 77

CZKMSAO KMS11-BD/BE DCLT
23-DEC=-82 13:54
CZKMSA.P11
843

gzg
846 010%76 010300

2847 010300 177777
2848 010302 000415
%ggg 01133¢ 000001
2851
2852

MACY1? 30A(1052) 23-DEC=-82 14:01 PAGE 79
CLOCK TABLES, EVENT LOG AND POINTERS

;EVENT LOG TABLE AND ITS NEXT ENTRY POINTER
EVTLOG ;POINTER TO NEXT FREE SPACE IN EVENT LOG
EVIPTR: .WORD

EVILOG: .WORD
BLKW
EVIEND: .BLKW

#=1
269,
1.

SSPECIFY EVENT LOG IS EMPTY
SEVENT LOG BUFFER
:APPROXIMATE END OF EVENT TABLE (ALLOWS CIRCULAR QUE)

SEQ 78

A48

DCLY
s

23-DECl SECTION
MODEM DATA
BN

MACY1? 30A(1052)

SEQ 79

WIN = OV ~NONWNS W

CZKMSAQ KMS11 =-BD/BE
-DEC
CZKMSA.P11

14:01

011336

000000

.WORD

S ROOFNO

D nd md —D
D D d D
D
D
d e
D D
D
D

MOBITS: .WORD
+WORD
.WORD
+WORD
.WORD
.WORD
JWORD
MOBITE:

;MODEM STATUS

(TS
DSR
DCD
RTS
RI
SQD
TM

sCLEAR TO §
:DATA SET R
:DATA CARRI
;REQUEST TO
sRING INDIC
s SIGNAL QUA
sMODEM IN T

RCUIT TMM)

MOMSGS: .WORD
.WORD
.WORD
.WORD
+WORD
.WORD
LWORD

EVMCTS
EVMDSR
EVMDCD
EVMRTS
EVMRI
EVMSQD
EVMTM

sCLEAR TO SEND (CI
;DATA SET READY (
:DATA CARRIER DET
sREQUEST TO SEND
sRING INDICATOR (
:SIGNAL QUALITY D
sMODEM IN TEST MO

TN =t bt () Y e D

SN WNNNON)
= =

WNWNWNW

e
i
o
e
—

ooooororO
N

[=lelelelelele]

NOONSNOO

- D D D D e
e e e e e

WINWNIWNWNNW
NNV

;TABLE OF ADDRESSES OF MODEM SIGNAL MESSAGE POSITIONS
[=lelelelelel]

NSNS
W

MODS:

;TABLE OF MODEM SIGNAL BIT DEFINITIONS
cooco0000

%8388“““““

VIWWIWNWY

g“

RCUIT

TMTM

CZKMSAD KHS11-§D/BE SLT
13:54
23-DEC-82
CZKMSA.PI

:TABLE OF ADDRESSES OF EVENT DESCRIPTION MESSAGES

880

889
2890

2891
2892

2893

Zggg

o11§74
011376
011400
011402
011404
011406
01141C
01141¢
011414
011416

817540
017464
017513
017540
017566
81763;
01750
016417
017661
017716

EVILST: .WORD
JMORD
JMORD
LMORD
.WORD
JMORD
JMORD
WORD
.MORD
.MORD

EDTXQ
EDTXC
EDRXQ
EDRXC
EDDER
EDDVI
EDDCK
LPO
EDDLE
EDDDE

;TRANSMIT MESSAGE QUEUED
:;TRANSMIT OF MESSAGE COMPLETE
;RECEIVE MESSAGE SPACE QUEUED
;MESSAGE RECEIVED = RECEIVE COMPLETE
;DEVICE INFORMATIO
;DEVICE INITIALIZE STARTED

020022

.WORD

EDABO

;*“C ABORT

.WORD

011420 017751

011422

2898 011424 000000
2901

011426
011430

000000
000000

011432 000000

2902 011434 000000
%38« 011436 000000

2382

: TEMPORARY LOCS TO KEEP EVENT TIME WHILE REPORTING

EVTADD: .WORD

;TEMP. LOC. TO HOLD ADDRESS ouaxnc EVENT REPORTING

EVIMIN: .WORD
EVITCK: .WORD

EVIBCT: .WORD
EVITMP: .WORD

"WORD
"WORD
"WORD
"WORD

2915
2916
2917
gg}g

011456

011460
011462
011464
011466

O
O

:
:

" BYTE COUNT
OTHER DATA

:REPORT CODING DISPATCH TABLE

000000

2914

025614
025614
025666
026316
026526

.Euo OF PASS

RPTDSP: .WORD
.MORD

011442
011444
011446
011450
011452
011454

:DATA COMPARE LENGTH ERROR
;DATA COMPARE DATA ERROR

EVISEC: .WORD

5907 011440 025614
025614
2908
2909
2910
2911
2912
2913

EDEOP

;DATA COMPARISON DONE
:NULL STRING

;:LOCATIONS USED DURING EVENT REPORTING

2239

2899
2900

ORDER CORRESPONDS TO MESSAGE TYPE VALUES

331

887
5888

SEQ 80

MACY11 30A(1 52 23-Dec=82 14:01 PAGE 81
EVENT DESCRIPTIOMN MESSAGES LOCATIONS AND TABLES

879
B8
2884
885
886

JMORD
JMORD
.MORD
.MORD
JWORD

MORD

026526
026446
026366
026366

QUEUED ENTRY DECODING
RPTTXQ ;TRANSMIT
;TRANSMIT COMPLETE ENTRY DECODING
RPTTXQ
RPTTXQ
RPTTXQ
RPTDER
RPTDVI
RPTDCK
O

RPTDLE
RPTDDE
RPTEOP
RPTABO

:RECEIVER QUEUED ENTRY DECODING
;RECEIVER COMPLETE ENTRY DECODING
:DEVICE ERROR ENTRY DECODING
;DEVICE INIT ENTRY DECODING
;DATA €0HPARISON ENTRY DECODING
:PLACE HOLDER

:DATA COMPARISON LENGTH ERROR
:DATA COMPARISON DATA ERROR
:END OF PASS
:“C ABORT

2921 011470 000000
2922 011472 000000

DEVi:
DEV2:

.WORD
.WORD

O
O

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

926 011500 000000

DEVS1:

.WORD

;:TEMP DATA FOR STATUS REPORTS

LINEST: .WORD

:LINE NUMBER
:= 1 READ STATUS ENABLED. SET = 1 IN KSTART
SET = O IN BGNCLN
:= 0 READ STATUS DISABLED
SET = 1 IN LNSTAT
VALID.
IS
DATA
i= 1 STATUS

2920

923
ggg

927
928
2929

011474
011476

011502
011504

011506

000000
000000

000000

2930 011510 000000

2931 011512 000000
2932
2933 011514 000000

DEV3:
DEV4:

DEVS2:
DEVS3:
DEVS4:

.WORD
.WORD

.WORD
.WORD
.WORD

ENRDST: .WORD
VSTAT: .WORD

O
O

O
O
O

O
O

OF STATUS DATA

CZKMSAQ KHS\\ D/BE ggl

CZKHSA P11

2934

23-DEC-B2

2935 011516 000000
2936

13:54

MACY1Y 30A( 052) 23- EC 8 2 14:01 PAGE 82
NT DESCRIPTION MESSAGES LOCATIONS AND TABLES

CNTCLN: .WORD

= 0 STATUS DATA NOT VALID. SET = 0 IN KSTART

(OUNT OF EXCURSIONS THRU BGNCLN CODE
:

SINCE LOAD OF DCLT PROGRAM

SEQ 81

E
C7KkMSAD KMS11
CZKMSA. P

-DEC-82 13:54

MACYT? 30A(1052)(023-DE(°82

14:01

! ACTION

333

— il el
D i il D D i D D S
i D D D S il A
—
R
RD
OO OO O O VWA
NNNN
VIS W =0000W S wWwrnon
S WNON
Te L NTe P Y]
ooLo N Te X NT. W S NT. W Y
OSSO

PAGE 83

(ALWAYS AT LEAST 1 WORD)

! CHAR CODE !

MISS DISPLACEMENT

ONLY IF 'MISS'' ARGUMENT DEF INED

! NEXT NODE DISPLMNT

ONLY IF "ASCII'® ARGUMENT DEF INED

; ASCIZ MAT(H %TR!NG
JEVEN)

3
|

ONLY IF *"ASCII'® ARGUMENT DEF iNED

[el=l=l=l=l=l=l=l=lololololoTototoTo
el to Lo ey

SEQ 82

MMAND LINE ACTION TREE

ESAHPLE CLI TREE NODE

011520

CLITRE:
;FIRST KEYWORD

N10$:

NG2S:

NG3S:
NG&S:

NGSS:
NG6S:

NGOS:

NG7S:
N20S:

N2SS:
N30$:

Ll
CLl
Ll
CLI
Ll

CLISPA,0,N10$
<'7> ,HLP,NG2S
CLIEXI,O
CLISTR.HLP,N&43S,<"HELP'>
CLIEXI.O

Ll
CLI
Ll

CLI

CLIEXI.O
CLISTR.EXIT,NGSS,<'EXIT'>
CLIEXI.O
,
< RUN'>
CLISTR.RUN,N46S

CLI

CLISTR,NOTNUF ,N4OS,<'DUMP*>

CLI

Ll
Ll
CL!
cLi
CLI
Ll
CLI
Ll
Ll
(LI
Ll
CLI

'>
NT
<'PRINT
.PR
NG4S,
CLISTR

cLigr,0,n80
cLiBr,0,N508
CLISTR,CLEAR,N47$ <'"CLEAR'>
CL1BR, NOTNUF .N100
CLISTR,NOTNUF ,N20 $.<"LINE'>
cLIBR,0,N1058
<S>, NOTNUF ,N30$
CLISTR, SHOW . N25$,<'HOW'>
cLigr,0,N1008
CLISTR,0,N308,<"ET*>
cLiBR,0,N1108
CLIERR,O

;SKIP ANY LEADING SPACES

1S THE FIRST NON=SP CHAR A ‘2"
: IF YES DO "HLP'AND EXIT
SELSE. IS FIRST WORD A "HELP'
:

1F"YES DO "HLP'' AND

EXIT

:ELSE, IS FIRST WORD A "PRINT*'
: 1FYES DO 'PRINT'' AND EXIT,
SELSE, IS FIRST WORD A “EXIT’

: 1F"YES DO TEXIT'' AND EXIT
SELSE, IS FIRST WORD A "RUN'
: 1F"YES DO "RUN' & GOTO N8OS
SELSE, IS FIRST WORD A "'DUMP’
,
1F'YES GOTO N8OS
i
SELSE, IS FIRST WORD A “‘CLEAR'
;" 1F'YES DO “'CLRTM & GOTO N100$
SELSE IS FIRST WORD LINE
;ELSE, 1S FIRST CHAR. A ''S'*

1F'YES IS REST OF WORD '‘WOW'
IF YES, DO "'SHOW''.BR N100S
T WORD "ET
: ELSE, IS'RESOF
1FYES, DO “'SEI', BR N110%
:
OTHERWISE “ILL CMDTM = EXIT

-9

CZKMSAD xnsx1-§o/ae
Ly
CIKMSA.P11
23-DEC=-82 13:54

§g;;
011744

2981

011764

011750

2982 011770
2983

012006

2987

015052

NBOS:

N81S:

984 013012
985 012030
986 012034

NB2S:
N83S:

2988 012056
2989 012074

NB4S:

2990 012100
2991

01 1;«

2992

012130

2994

012152

2993

012136

2995 012156
2996 012170

N8SS:
NB6S:

N87S:

gggg

%999

000

012174

oog

012222

00&
3005
3006
3007
3008

012250

001

goo

012200

(LI

CLISPA,O,N30$

:SKIP_LEADING
SPS,

CL sfa ATVMOD ,N82$,<'ACTIVE®>

=>,0.N30$

1s NEXTWORD '"ACT

CLI

(LI
Ll
(LI
Ll

(LI
€Ll

(LI
Ll

cg STR

cLier,0,N1158

{1 a

CLISTR Lxsnoo NB5S,<'LISTEN'>
CLIBR6

CLIBR,0.N

CLIBR

sos

CLISTR] tnnnoo NB7$,<'RANSMIT*>
5$

CLISTR
fALnoo N30$,<'ALK'>
CLIBR,0,N

SECOND KEYWORD (FOR CLEAR OR SHOW)

N100%:

~1ozs

CLI

CLISPA,O,N30%

CLl

CLIEXI.O

3011

012276

gg}‘

012324

so1§ 012302
3016
3017
3018
3019

012330
01233¢
012340
015344

3021

012354

3020 012350

3022 012360
3023 012364

xs NEXT CHAR
A

: 1S REST OF WORD 'wuqsnxr"
¢

: IF NO, ERROR = EXIT

SKIP LEADING SPACES, .NONE=ERR

CLIEXI.O

CLISTR.SETEXP,N112%,< EXPECTMSG'>

cLIBR,0,N12

cLiBr,0,N1208

CLISTR éettau N30$,<' TRANSMITMSG®>

:GET ADDRESSES FOR DUMP COMMAND
NSOS:
CLI
CLIALP,0,N51$
N518:
CLI
CLISPA,0,N528
N528:
(LI
CLIOCT.DMPS,N30$
Ll
<'=>,NOTNUF .N125%

CL10CT,DMPE .N30$

Ll
Ll

<'8>.omPa ,N$0S
CLIBR,0,N1258

IF YES, DO °raA~sn°,an N115$

:: 1SIF REST
OF WORD
YES, DO ”YALK" an N115$

CLI

N1128: (LI

S NEXT WORD “DOW...""

YES, DO °bu~LL".aa Niiss

SIS NEXT WORD ““TRANS..’

:SECOND KEYWORD (FOR S
N110$:
CLI
CLISPA,O0,N30$

"RECVE',BR N115$

CLISTR.CSHTRN,N30S,<* TRANSMI TBUFF *>

012252

N1118:

IF_YES, DO

;IS NEXT WORD '‘LISTEN"
IF YES, DO "LISTEN',BR N115$

;1S NEXT WORD ‘‘EXPE...'"

3009

UIF YES, oo “ACTIVE'',BR N115%

CLISTR.CSHEXP,N104$,< EXPECTBUFF
>

N104S:

3010 012256

CLI

IF uo. xr°s unona =ERR =EXIT

CLISTR 6LLH00 NB6S, <'oou~L1~£L0A6 >

CLI
Ll

IF NONE-ERR

xs NEXT WORD ‘‘MODE='

L sré fiAsnoo NB3S,<'PASSIVE'> IS NEXT WORD ‘‘PASSIVE
cLier,0,N1158"
: "IF_YES, DO 'PASSVE",BR N115$
CLISTR iecnoo NB4S,<'RECEIVE'> :lS NEXT WORD ‘RECEIVE”

CLI

TNUF ,N30$, <"MODE *>

012224

3015

SEQ 83

23-DEC=82 14:01
PAGE 84
COMMAND LINE ACTION TREE

;SECOND KEYWORD (MODE=) FOR RUN COMMAND

979

2980

MACY1? 30A(1052)

<'/> ,NOTNUF ,N125%

IF YES, DO CLR=EXP,EXIT

: 1F YES, DO CLR=TRN,EXIT
‘IF NO - ERROR = EXIT

CZKMSAD xns11-go/et gSLY
13:54
23-DEC-B2
CIKMSA.P11
024

025

026
027
028
o§9
030

012370

012374
01 aog
01241
012416
012432

MACY1? 30AC1052)

23-DEC=82 14:01 PAGE 85
COMMAND LINE ACTION TREE

:OUAleIERS FOR THE RUN COMMAND

N1158:

N114S:

N1168:

CLI

CLI
Ll
CLI
Ll
Ll

CLIALP,0,N114$

<* /> ,NOTNUF ,N125%
cListfr,no, NT168.<'NO*>
<'(>,0.N1178
cLISER cuscx N1178,< HECK'>
cLigr,0.n1156

3083 012436
303§
015454

N1178: CLI

038 012500

N130S:

CLI

CLISTR,0,N1328,<'PASS*>

3041

012520

N1328:

(LI

CLISTR,MOSC,N131$,<"MODEM*>

3044

012540

N1318:

(LI

CLISTR,0,N308,<'LOOP'>

gos&
035 012460
sggg 012474

ggzg 012514

ggz

012534

3045 012554

N1188:

Ll
CLI
Ll

CLISTR,STATUS,N1188,<'STATUS®>
cLier,0,N1158
CLISTR,ECHO,N1308,<"ECHO">
cLiBr,0,N1158

cLIBR,0,N1508

cLiBR,0,N1158

CL1BR,0,N1408

SEQ 84

CZKMSAO KMS11-BD/BE SSLT
13:54
23-DEC-B2
CIKMSA.P11
04

?823 012560
049

MACY1? 30A(1052)

SEQ 85

23-DEC-B2 14:01 PAGE 86
COMMAND LINE ACTION TREE

c T MESSAGE TYPE FOR SET MESSAGE COMMANDS

1208: CLI

<'=>,0,N308

LOOK FOR DEFAULT nessac

nnn;

ue1

<'ONES'>

012564

012600
051 012604
052
01 egz
053

N6OS:

CLI

012626
054
055 012642

CLI
N61S: Ll
Ll

CLISTR

012646
056
012662
057
012666
058
059 012702
012706
060
061 012722

N62$:

(LI

N63S: CLI
CLI
N6&S: Ll
Ll
N6SS: CLI
Ll

CLISTR tns 2 N63$,<'1ALT>

N66S:
N678:

(LI
Ll
(LI
Ll

CLIBR
tns 3 NG4S, <'OALT'>
CLISTR
CLIBR
CLISTR tns s1 N6SS,<'ITEP*>
CLIBR
énsoa N66S, < CCITT'>
CLISTR

050

3062
3063
3064
gggz

012726
012742
012746
012766

3067

3068 012772

3069
070
071
3072
73
8;2
076

3877
78

3079
3080
3081
gggg
3084

3085

;

N70S:
N718:
N728:
N73$%:

013024
013030

N1218:
N1238:

013074

N1268:

3086 013100
3087 013104

cLier,0,N121

CLISTR,CMSGS,N67S,< ALPHA'>
cLIBR,0,N121
CLISTR,SETET,N6BS,<' TRANSMIT®>
cLigr,0,n1256

_LOOK FOR QUOTED MESSAGE

N6BS:

015775
013002
013006
013012
013016
013022

013034
013050
013054
013070

CLIBR 6
tns o nozs <'7EROES'>
CLISTR
cLIBR,0,N

CLI

CLI
Ll
CLI
CLI
(tl
CL!

<*''>, OPRMSG,N30$

<***> ENDQO,N71$
CLIBR,0,N1218
CLISPA.G.N?%S
CLIALN.O.N73$
CcLIBR,0,N708
CLIERR,BADCHR

"
:ONLY A=2,SP,TAB, OR 0-9 BETWEEN '*'S
3
"
FOR
(MAR
LEGAL
:PRINT ERROR [F NONE

:GET QUALIFIERS (SIZE OR COPY) FOR SET MESSAGE COMMANDS
CLI
CLI

Ll
Ll
N1228: (L]
Ll

CLIALP,0.N1
<*/> ,NOTNUF ,N125$

cLIsiR snzs N1228,<'SIZE*>
cLIBr,0,N1268
CLISTR,QCOPY,N30$,<*COPY*>
cL1BR,0,N1268

:NUMER FOR SIZE OR COPY

CLI

Ll
Ll

<'=>,0,N308%

CLIDEC .NUM_ N30$
cLiBR,0,N1218

CZKMSAQ xns11-§o/ae LY
23-DEC-B2 13:54
CIKMSA.P11

088

SEQ 86

MACY11 30A(1052) 23-DEC-B2 14:01 PAGE 87
COMMAND LINE ACTION TREE

;GET MAINTENANCE LOOP TYPE

FOR RUN “LOOP' QUAL:FIER

013110

N140S:

CLI

<'=>,0,N308

09§ 013114

N1418:

CL]

CLISTR,TTLLOP,N1428,<" INTERNALTTL®>

013142
013156
013162
013204
01 510
013232

N1428:
N143S:
N144S:

(L
L
(L
L
(L
{1

013236

N150S:

107

013252

N1058:

CLI

3110 013274

3109

013272

N1078:

CLI

§11§
}}‘

013320
013334

N108S:

(LI
Ll

089
09%

094
095
096
097
098
?33
101

310;

013136

310 o1§zaz
3}82 013246

%106

3108 013256
3111 013314

013336
3115
3116 013342
3117

013354

118 013360

g};g 013364
3121

g;gg

013370

cLIBRr,0,NT158

>
CLISTR,CBLLOP,N1438,<'CABLE
CLIBR,O,NTT5S
CLISTR,LMDLOP,N144$,<'LOCALMODEM">
cLIBRr, 0, N1
CLISTR 6no%29.n303.<°n£n015noosn'>
cLIBR,0,N1T5S

.GET NUMBER FOR '‘PASS'' ngn QUALIFIER

CLI

Ll
Ll

<'=>,0,N308

CLIDEC .PASC,N30$
cLiBr,0,N1158

OR ESTABLISH
:GET LINE SHOW OR LINE FOR KILL,N106$

N106S: CLI

N160S:

N161S:
N1628:
N163S:

CLIEXI.O

CLISTR ETRB,N108S,< ESTABLISH">

cLiBr,0.n1608

(LI

08 ,N1628,<'ALL">
<'=>,0,N3LL

(LI
CLI
(LI
Ll

F
=L INE
;END=0

N1258:

CLISPA,NOTNUF

<" SHow'>
CLISTR.SLST,NTO7S,

CLI

CLISTR,KTRB,N30S,<'KILL">
CLIEXI.O

CLISTROKA
CLIDEC.EXTB .N30$
$4 ,NOTNUF ,NT258
cLisr,0.n1618
CLIEXI,O

:LOOKING FOR

*°,

CZxMSAQ KHS\\-SDIBE gSLT

CIKMSA.PN

25-DEC~

158

01337

130 013372

013374

1 i

013376

135

01340

1
1

1
137

1
139

}2?

000000

1w
148

SELO

BSELOD
BSE51
SEL

WORD

000000
000000

BSEL‘
B8SEL

.WORD
.WORD

13402
013404

000000
000000

BSEL4:
BSELS:

.WORD
.WORD

O
O

WORD

INVEC: .WORD

INTPRI: WORD
OPTYP: .WORD

O
O

013406
013406

013410

000000

145
146

14:01

PAGE 88

CURRENT DEVICE PARAMTERS

013376
1

16§ 013412 000000
1464

23-DEC-82

DEVICE DEPENDENT LOCATIONS

} .
131

MACY1Y 30A(1052)

:DEVICE DEPENDENT STORAGE LOCATIONS FOR

1 9
129

13:54

013414

013416
013420

0N gz
013424

SEL&

SELG
BSEL9

BSEL

LWORD

000000

OUTVEC: .WORD

000000
000000

DEVPAR: .WORD
STATYP: .WORD

000000
000000

s}gg 013426 000000

MOD{SR: .WORD

;ADDRESSES OF REGISTERS SELO THRU BSEL7

O
O

:INPUT INTERRUPT VECTOR ADDRESS
ADDRESS
;OUTPUT INTERRUPT VECTOR

: INTERRUPT PRIOR;TY
:OPTION TYPE

:CSR OF MODEM CONTROL MuUX (DM11-BA)

SEQ 87

K
CZKMSAD KMS11
CZKMSA.P11

132
138

ggLT

13:54

SEQ 88

PAGE 89

52
MACY11 30A(1052)

DEVICE DEP

; (KMS11-BD BUFFER DESCRIPTOR LISTS)

154
155
156
157
158
159

160
161
162
16

-82

ISTATUS

'BUFFER START ADDR

;

'#OF CHARS (14BITS)

;

! MESSAGE #

MEMBER ''N''

164

013430

BDLMNM: .WORD

:LOC TO CALCULATE BDL MEMBER

5167

013434

RXBDL:

169

013454

.BLKW
BLKW
BLKW
BLEW
BLKW
.BLKW
.BLKW
BLKW
.BLKW
BLKW

4
&
4
&
&
4
4
&
&
&

: MEMBER #1 (RX FOR LINE 0)
: MEMBER #2 (RX FOR LINE 1)
: MEMBER #3 (RX FOR LINE g)
: MEMBER #% (RX FOR LINE 3)
: MEMBER #5 (RX FOR LINE &)
: MEMBER 09 (RX FOR LINE S)
: MEMBER #7 (RX FOR LINE 6)
: MEMBER #10 (8.) (RX FOR LINE 7)
: MEMBER #11 (9.) (TX FOR LINE 0)
: MEMBER 01§ (10.) (Tx FOR LINE 1)

4
&

: MEMBER #14 (1;.) (TX FOR LINE 3)
: MEMBER #15 (13.) (TX FOR LINE &)

3163
165

3168

3170

171
122

013432
01
0134l

013464

013474
013504

174 013826
175 01338
176
177
i78
179
180

013544
013354
013564
013574
013606

183 013624
188 01365

184

185
318
187

01363
013636

189

013642

3188

190
191

013640

192
193
194
195

01364
01365
01366

197
198
199

013664
013666
013670

196

200
201
202
203
204

205
206

ggtg:g: .WORD

013672
013674
013676
013700
013702

TXBDL:

.BLKW

BLKW
‘BLKW
BDLEND

BLKW
.BLKW
BLKW

ILLRSP: .WORD
STARTC: .WORD
ERRTHR: .WORD

4
4
&

:LOC TO CALCULATE BDL MEMBER ADDRESS

: MEMBER #13

: MEMBER #16 (14.) (TX FOR LINE 5)
: MEMBER #17 (15.) (TX FOR LINE 6)
: MEMBER #20 (16.) (TX FOR LINE 7)

:KMS RESPONSE COUNTS..

:COUNT OF ILLEGAL RESPONSES FROM KMS
SCOUNT OF RESTART DDCMP COMPLETED
:COUNT OF KMS ERROR THRESHOLD REACHED RESPONSES
:RETRANSMIT SPECIFIER

RXMIT:

.WORD

NAKX:

.WORD 1,2,3.8..9.,16..17.,=1

NAKMSG: .WORD
+WORD
.WORD
.WORD
.WORD
"WORD
.WORD
+WORD

(11,) (TX FOR LINE §)

:NAK REASON CODES

:POINTERS TO NAK REASON MESSAGES
#NAKR1
#NAKR
#NAKR
#NAKR
#NAKR
#NAKR1
#NAKR1
#NAKROO

k¥

(ZKHSAO KHS11 D/BE SL
13:5¢4
CZKMSA.PI

0A(1052) 23-DEC-82 14:01 PAGE 90
MACYTY 3
MISCELLANEOUS STORAGE FOR ERROR REPORTS

013704

%08 013704

ERRTBL

013704

000000

%}i

013712

000000

210
211

013706
013710

000000
000000

SEQ 89

ERRTYP::

.WORD

ERRBLK: :

+WORD

ERRNBR: :
ERRMSG: :

.WORD
.WORD

LSERRTBL::

n7
CZKMSAD KMS11-BD/BE
CZKMSA.P11
23-DEC-82

DCLT
13:5¢4

MACY1? 30A(1052)
23-DEC=-82
GLOBAL TEXT SECTION

SEOQ 90

PAGE 91

s e

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

16
17

s MESSAGES, AND ASCII
: MORE THAN ONE TEST.

$18
%%?

55
LSBTTL

%%%

INFORMATION THAT ARE USED IN

DEVICE SUPPORTED

: NAMES OF DEVICES SUPPORTED BY PROGRAM

2%6

3522 013714

3227
3228
3229
3230
3231
3232
3233
gzsa

013714
013714
013722

3237
3238
3239
3240
3241
324;
3243
3244
3245
3246
3247
3248
3249
3250
3251

013730
013730
013730
013736
013744
013752
013760
013766
013774

353

14:01

DEVTYP <KMS11-BD,BE>
046513
042102

030523
041054

026461
000105

LSDVTYP::
.ASCIZ

/xMS11-BD,BE/

.EVEN

.SBTTL
PROGRAM IDENTIFICATION
: TEST DESCRIPTION

055103
020060
026461
020105
041440
046040
062524
014002

046513
046513
0462102
040504
046517
047111
052123

DESCRIPT

040523
030523
041054
040524
027115
020113
000

<CZKMSAO KMS11-BD,BE DATA COMM. LINK TEST>
LSDESC::
LASCIZ

.EVEN
.EVEN

/CZKMSAQ KMS11-B

23-DEC-82 14:01 PAGE 92
GLOBAL FORMAT STA TEMENTS, MESSAG ES, AND ASCII INFO

DCLTY

MACY11 30A(1052)

Eg-DEC-gZ 13:54

CZXMSAQO KMS11-BD/BE
CZKMSA.P11

BEX
«NLIST

3253

SEQ 91

w o o = AV W=D &

o w2 -

awv

RO 70 ) =

Be
=9 5t

ql“ssss._l.)‘s"0155511500500515115‘551.11111‘40

0"555515‘501011..l-l.llfl.l.lO.l.l.l.lO.l11555101105‘55

F T WA=

FO e NN

O Q. Q. Q. 0000000 D% J.Jd JE bbb & " O e UM
ge ) e
g

N SNOAODOuvwnk =r—0
>&x& =<<ON- o = TM. =T WEE wwoe E>>0O
Nt 2.>
N
WE DWW
X CL A rrrtrmEK LIXS>DE
JSAL-—
22
St
E
W=
L
CLLL
rCC
N NN NN NN NN NN NN NN NCC NN NNNNNNNNCONNNNNNNNAAF ¢ 0 NN

< oo Wil -\

- o= ~ =20 Jw -~ =

CZKMSAD KMS11
CZKMSA. P

290E¢ $813:54

MACY1Y

DCLY

D/BE

30A(1052) 23-DEC-82
pwmos:
GLOBAL FORMA T STATEMENTS, MESSAG ES, AND ASCII INFO
14:01

PAGE 93

- F NICEW UV
~

EEFr oI 00000000

5554

—0 NOO=r N «— O O
OO0 O00O0O0 © O o

TOvI

MIF T T T T F ~F 7 ~F T nunmnnmin

NXALIS>/
LK>/
HIS A S 0. OR 60. HZ. LSI=11:/

; FORMAT STATEMENTS USED IN PRINT CALLS
/ INXASTATUS NOT AVAILABLE UNTIL NEXT DCLT>RUNIN/
/ INXACLOCK NOT FOUND/
/ INXABAD CLOCK = PROGRA M W IL L HANG ON ‘‘TIMEOUT''!!/
D =/
3
/ MAX. CHAR. MSG COUNT E X CEEDE
/8 UFFER FULL =/
!/
L
/% NXTXA MSG. NO T BUILT
BUFF LIMIT = MSG TRUNCATED/
X
DS
COUNT
EE
.
/% NXACHAR
)
T A/

.ZN!SSZAHODE=!1!T§ g PASS=%15?

SSXSSXSSXA/XTIA/XTXA/RTIA/RT?

XZATOTAL MISMATCHES lNgflSG = %05/
SSXACALLED FROM P(C= 10 /
XACOMPARE COUNT ID5%S XARECEIVE COUNT=XD5/

;EVENT DESCRIPTION MESSAGES

OO0O0OONOOO

w3 —Ne

L
v

ISON STARTED/
T AND SETUP/
RISON LENGTH ERROR/

SEQ 92

94
PAGE
14:01
23-DEC-82
30A(1052)
MACY1Y
gslT
BE
KHS\1-§D/
CZKMSAD
MESSAGES, AND ASCII INFO
STATEMENTS,
FORMAT
AL
GLOB
13:564
2 -DEC CZKMSA.P11
061440

EDDDE:

.ASCIZ

/DATA COMPARISON DATA ERROR/

R B d S A RSB
At
020093 041336 04060 047502 EDABD: :ASCIZ /C ABORY/

017716

040504

040526

s o

;EVENT REPORTING MESSAGES

;THE FOLLOWING ARE USED IN THE DUMP SUB ROUTINE

SOl
AN /%NX06/
MM .ASCIZ
WIS BASM1:
B 822117
G0
045 355516
ozoosf onltl

<<<<<C<<CCCLLLLLLLLLLLLLLLLLLLec/
ENTRY
LOG
EVENT
DCLT
/XNXA>>>
.ASCIZ
EVIFO:
0;3101
§516
8
045
045 3 512 0325064 EVTF1: .ASCIZ /XNXDSXA:XZ2%A:X72%S3XT/

045

022516

052101

NULEVT: .ASCIZ

020244 047045

05144

os 46

EVTFi:

04252
033117

srrsg: "ASCIZ
EVIF3D: .ASCIZ

046101
831517

EVTF40: .ASCIZ
evrraiz "ASCIZ

EVIF&&k: .ASCIZ

020057

020117
ogo 15

020316

047045

051445

020330
020366

040445
051445

020040
022463

020446
020472

051445
051445

0 sae
02246

020410 051445 022463
020507

045

03152

022463

4744;

051445

022463

031517

020600
020657
020761
021057
021143
021166
021207
021%66
021341
021416

047045
045
065
045
045
040445
045
047045
065
047045

051445
022516
022516
032523
022516
0464514
022516
051445
022516
051445

0%266
031523
031523
040445
051501
04251
031523
0;266
031523
0;266

021473

045

022463 052101

022516

"ASCIZ

LASCIZ

033117 EVIF3F: .ASCIZ

020532

020546 051445

EVTF3:

034523

EVIF43: .ASCIZ

EVIF6:

.ASCIZ

EVTF4B: .ASCIZ
EVTF4: .ASCIZ
EVTF4A: .ASCIZ
EVTFSA: .ASCIZ
EVTFS1: .ASCI]
"ASCIZ
EVIFS2: .ASCIZ
EVIFS3: .ASCIZ
EVIF- : .ASCIZ
EVIFS>: .ASCIZ

EVMOCG: .ASCIZ
.'

/XNXATHE DCLT EVENT LOG IS EMPTY/

/INYS3YAADDR OF MSG=X063S3XABYTE COUNT=2D5/

/INXS3XTIN/

SEL2 = %06/
/%A SELO = %06%A
/%S3%06%S3%06%XS3XT/

/zsgzoexs 206XS3XALINE NO.=%23/
/%S !AslNE NO. = %23/
/%53%03XS6%03/

/xssxosxsgxoszsszosx
/%S3%03%S3X1/
/%S3XATO-FROM LINE NO.=%23/

JINXSIXAPASS=XDSXSIXAERRORS=XD5SXS3XANOBUF F S=2D5/
/INXSSXAADDR OF MSG=306%S3YABYTE COUNT=XDSXS3TANO. OF (MP ERRS=%D5/
/INXS3XAADDR OF MSG=306XS3¥ARX BYTES=XD5XS3XACOMPARE BYTES=2D5/
/XSSZABYTE # IN MSG.=XDSXS3XAEXPTD=X03%S3%ARECVD=%03/
/XNXASTATUS REPORT/<15>¢<12>
/YALINE NUM = %03/
= %03/
= X03XS3XAFLAGS
/INXS3XASTATUS
/XINXS3XATEMP DATA = Y03XS3XALAST TX MSG = %03/
/INXS3XAACKS RCVD = Z03XS3TAMSGS RCVD = 203/
/XINXS3XANAKS SENT = X03XS3XANAKS RCVD = %03/
/INXSIXACHANGED 10:/

0'."""!t""t""""""""t".'t"'tt'ttlt.l'...'t"'.'tt"itl'

DO NOT SEPARATE THE NEXT LIST OF MESSAGES - MODEM SIGNAL HEADER AND REPORT
021516 047045 051445 0;2670 EVMOMD: .ASCIZ /XNXSBXAMODEM STATUS: CTS DSR DCD RTS RI SQD TTM/

o 48
L 'x2402402
I
R
I
IR
.BYTE
EVMDSR:
§4
040
130
021617
021623
0216;7
021633
021637
021643
021647

130
130
130
130
130
000

040
040
040
3‘8
4

EVMDCD: .BYTE
40
EVMRTS: .BYTE
40
.BYTE
EVMRI:
40
40 EVMSOD: .BYTE
040 EVMTM: .BYTE
.g;gs

'X.40.40.4
*X.40.40.,40
'X.40,40.,40
*X.40.,40,40
'X.40.40,40
0

CZKMSAO KHSI1-gDIBE gSL

CZKMSA.P11

23-DEC-82

13:54

0 1esg
02165
021664
0 1?75
021 09

047045
045
051445
- 045
051445

0%
oizag
0315
0;242

021730

051445

ogzae

02175%
02176

051445
045

02171

021741

021774

045
045

051445
022006

031523

03152

0%246
0O 152%
022463

MACY11 30A(1052) 23-DEC=-82 14:01 PAGE 95

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

‘EXECUTION STATUS nsssnces 10 BE PRlNTEo 70 KEEP OPERATOR AWAKE

040445
052101
86 445
42501

tR:
STXQ:
STXC:
SRXQ:
SDVE:

ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ

/73IN/
/%S3%ATXQ/
/XS3XATXC/
/%S3XARXQ/
/XS3XYAERR/

;CR FOR LINES IN A ROW
SABOUT TO TRANSMIT
:TX COMPLETED
ABOUY TO RGCEIVE
.oeVICE ERROR

044501

SDVI:

.ASCIZ

/%S3XAINI/

*DEVICE ABOUT TO BE INITIALIZED

040445

840445

41501
040445

046501

SCM:

SCML:

SCMD:
SEOP:
SMSC:

CASCIZ

.ASCIZ

ASCIZ
LASCIZ

.ASCIZ
.EVEN

/7XS3XACMP/

/%S3YACML/

/XS3XACMD/
/!S?!AEOP/
/XS3XAMSC/

:ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD
:COMPARE LENGTH ERROR

COHPARE DATA ERROR
:END OF PASS

*MODEM STATUS CHANGE

:DEVICE ERROR MESSAGES

022006
022032
022075
022147
022223
ozzgrs
022330
022361
022407
022437
022465
022514
022563
022631
022655

022705
022742
022766
023030

023075

046513
046513
127
127
126
113
046111
015
111
015
106
046513
113
124
015
124
005015
046513
046513

020153
020123
044501
044501
046511
051515
042514
020012
066116
020012

040506
044504
oaasga
044524
020105
042040
040507
044514
043505
044514

OVEMO:
DVEMI
DVEMIA:
DVEMIB:
DVEM2:
DVEM3:
DVEMG:
DVEMS:

:DEVICE ERRCR MESSAGES FROM ERRORS DETECTED IN PDP-11
.ASCIZ /KMS FAILED TO START/
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
TASCIZ
.ASCII
JASCIZ

/KMS DID NOT RESPOND TO CSR COMMAND/
/WAITING TO COMPLETE DEVICE INITIALIZATION/
/WAITING FOR START DDCMP REQUEST TO COMPLETE/
/TIME OUT WAITING FOR TX OR RX TO COMPLETE/
/KMS DID NOT RESPOND TO RQI/
/ZILLEGAL TRANSMIT COMPLETE/
<15><12>/ LINE NO
BDL NO/
/ILLEGAL RECEIVE COMPLETE/
<15><12>/ LINE NO
BDL NO/

:DEVICE ERROR MESSAGES FOR CONDITIONS REPORTED BY kMS11

041504
020123
051515
020130
020015

050115
044524
052040
044124
044514

DVEM11:
DVEM14:
DVM14B:
DVEM1S:

042522
047111
044524
044524

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
JASCIZ
DVEM17: .ASCI1
JASCIZ
DVEM33: .ASCIZ
DVEM34: .ASCIZ

7DDCMP RESTART RECEIVED/
/KMS TIMEOUT WAITING FOR RESPONSE TO TX/
/KMS TIMEOUT. NO RESPONSE TO START MSG/
/TX THRESHOLD REACHED/
<15>¢<12>/ LINE NO
NAK REASON/

110 040505

042504

NAKR1:

.ASCIZ

/HEADER BLOCK CHECK ERROR/

020130
046040
020123
020123

/TX REJECTED BEFORE COMPLETION/
<15><12>/ LINE NO
BDL NO/
/KMS TIMEOUT WAITING FOR CSR INPUT/
/KMS TIMEOUT. CSR OUTPUT NOT ACCEPTED/
:NAK REASON MESSAGES

023126

040504

0640524

041040

NAKR2:

.ASCIZ

/DATA BLOCK CHECK ERROR/

023155

122

050105

051040

NAKR3:

.ASCIZ

/REP RESPONSE/

023172

052502

043106

051105

NAKR8:

.ASCIZ

/BUFFER UNAVAILABLE/

023215

122

041505

044505

NAKR9:

.ASCIZ

/RECEIVE OVERRUN/

023235

115

051505

040523

NAKR16: .ASCIZ

/MESSAGE TOO LONG/

023256

051515

020107

042510

NAKR17: .ASCIZ

/MSG HEADER FORMAT ERROR/

Q 9%

CZKkMSAOD kMS11-BD/BE DCLT
23-DEC-82 13:564
CZKMSA.P11
023306
3254
3255
3256
3257
3258
3259
3260
3261

040516

020113

MACY11 30A(1052) 23-DEC-82 14:01 PAGE 96
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO
042522

NAKROO: ,ASCIZ
LIST

LEVEN
BEX

/NAK REASON NOT RECOGNIZED/

SEQ 95

CZXMSAD kMS11-BD/BE DCLY

CZKMSA.PIN

23-DEC=-82 13:54

MACY11 30A(1052)

23-DEC-82

14:01

GLOBAL ERROR REPORT SECTION

SEQ 96

PAGE 97

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

14e

gai
26

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

3264
%gz
267
68
69

39
27

8%%%28
%%32
3275 023340 005046

3276 023342 153716 010205

3277
3278
3279
3280
3281
3282
3283
3284
;285
286

023346
023350
023354
023360
023364
023370
023372
023374
023400
023400

005046
153716
013746
012746
012746
010600
104414
062706

3290

3291
329§
3293
3294
3295
3296
3297
3298
3299
3%8?

023402
023402
023406
023412
023416
023420
023422
023426
023426
023426

;30§ 023430
023430
3303
304
305
306
307
308

053430
023430
023434
0%3636
023442

013746
012746
012746
010600
104l
062706

000012

316

317

ENDMSG

L10001:

010174
017266
000002
000006

PRINTB W#EFM2,TEMPL

ENDMSG

BGNMSG ERR10
010172
017363
000003
000010

PRINTB #EFM11,R4,TEMP3

FNDMSG

B8Is8

BAD, (SP)

TRAP

C($MSG

CLR
BISB
MOV
MOV
MOV
MOV
TRAP
ADD

BGNMSG ERRZ2

104423

013746
010446
012746
012746
309 023446 010600
310 053450 104414
311 0 3452 062706
31; 023456
313 023456
?%}g 023456 104423

ERR1

010204
010162
021057
000004

3%%; 023400 104423

g289 02340%
02340

ERROR
PRINTB W#EVTFSA,OFSET,<B,GOOD>,<B,BAD INDI 1052R1631A CLRCOMPARE -(SP)

BGNMSG

-(SP)
GOOD, (SP)
OFSET ,=(SP)
#EVTFSA,=(SP)
#4,-(SP)
SP,RO
(SPNTB
#12,SP

ERR2::
:TOTAL DATA COMPARE FAILS ERROR
TEMP4 ,=(SP)
MOV
#EFM2,=(SP)
MOV
#2,-(SP)
MOV
SP,RO
MOV
CSPNTB
TRAP
#6,5P
ADD
L10002:
C$MSG
TRAP

ERR10::
:LENGTH COMPARISON ERROR
TEMP3,=(SP)
MOV
,=(SP)
R&
MOV
REFM11,=(SP)
MOV
#3,-(SP)
MOV

L10003:

MOV
TRAP
ADD

SP.RO
(SPNTB
#10,SP

TRAP

($MSG

;PRINT SELO = XxxXXX SEL2 = XXXXXX WITH VALUES FROM TEMPS. .5

CZKMSAO KMS11-BD/BE

CIKMSA. P11

DCLT

2§-osc-35 13:5¢

éZO 023460
18

251

023460

i 023460 o1§746 010176

023466 013746 010174
i‘ %?m my« 020330

MACY1Y 30A(1052)

23-DEC-B2

14:01

GLOBAL ERROR REPORT SECTION

SEQ 97

PAGE 98

BGNMSG

ERR13

PRINTB

WEFT3C,TEMPL,TEMPS

ERR13::

MOV

MOV
MOV

25 023474 012746 000003

gsze 023500 010600
27 023502 104414
8 oggsoe 062706 000010
9

023510

0 023510

MOV
TRAP
ADD

ENDMSG

L10004:

iggé 023510 104423

33390
33,0
3341
ss«g
3343

3344
3345
3346

(023512

023512

023512
023514
023520
ozssga
023530
023532
02353¢
023540
023540

005046
153716
012746
012746
010600
104414
062706

010173
020446
000002
000006

« PRINT ""LINE NO = ' FOLLOWED BY OCTAL BYTE IN TEMP3+1
BGNMSG ERR14
ERR14::
3+1>
,<B,TEMP
PRINTB WEVTF4O0
CLR

ENDMSG

L10005:

3367 023540 104423

3309

3350
3351 023542
3352 023542

3353 (023542

3354
3355
3356
357
358
359
360
361
soi
36
366

023542
023544
023550
023552
023556
023562
ozssgo
023570
023572
023576
023576

TEMP4 .= (SP)

%nu-wm
#3,-(SP)
SP,RO
C$SPNTB

#10,5P

($MSG

3334
3335
3336
3337
3338

TRAP

TEMPS,=(SP)

BISB
MOV
MOV
MOV
TRAP
ADD

-(SP)
TEMP3+1,(SP)
BEVTF4LO.=(SP)
#2,-(SP)
SP.RO
CSPNTB
#6,SP

TRAP

(SMSG

CLR
BISB
CLR
BISB
MOV
MOV
MOV
TRAP
ADD

-(SP)
TEMP4, (SP)
-(SP)
TEMP3+1,(SP)
BEVTF&L2,=(SP)
#3,-(SP)
SP,RO
(SPNTB
#10,5P

TRAP

(SMSG

. PRINT TWO OCTAL BYTES FROM TEMP3+1, TEMP4
ERR22::

BGNMSG ERR22
005046
153716
005046
153716
012746
012746
010600
104414
062706

g;gz 023576 104423

PRINTB

WEVTF&2,<B,TEMP3+1>,<B,TEMPL>

010174
010173
02047
00000

000010

ENDMSG

L10006:

xMS11=-BD/BE

CZkMSAD
CIKMSA.P11

DCLY

2?-0&(-%2 13:54

7
023600
68
69 023600
70
71

023600
023600

376
g 77
78
3379
3380
%381

023616
0%36 2
023626
023632
023634
023636

3383

023642

23-DEC-82

153716
01%746
012746
010600
104414
062706

PRINTB

« PRINT THREE OCTAL BYTES IN TEMP3+1, TEMP4L, TEMP4L+1
ERR23

000012

3387 023644

3388 023644
3389 023644
3390 023644 013746 010174

005046
153716
012746
012746
010620
104414
023672 062706
023676
023676
023676 104423

WEVTF43,<B,TEMP3+1>,<B,TEMP4L> ,<B,TEMP4L+1>

ENDMSG

L10007:

TRAP

<PRINT 1 BYTE FOLLOWED BY MESSAGE POINTED TO IN TEMP4
ERR24::

«(SP)
TEMP4+1,(SP)
-(SP)
TEMP4, (SP)
-(SP)

TEMP3+1,(SP)
WEVTF&LS,=(SP)
#6,-(SP)
SP,RO
CSPNTB
#12,5P

C$MSG

BGNMSG ERR24
PRINTB

TEMP4
WEVTF44L,<B,TEMP3+1>,

010173
(20532
000003
000010

CLR
gls8
CLR
BISB
CLR

BISB
MOV
MOV
MOV
TRAP
ADD

000004

386

023650
023652
023656
023662
023666
023670

PAGE 99

010173
020507

i%gg 023642 104423

3391
3392
3393
3394
3395
g396
397
;398
399
3,00

14:01

GLOBAL ERROR REPORT SECTION

BGNMSG Eaazi

°2§9‘6
16 010175
72 023602 1
023606 025046
73
76 023610 153716 010174
75 023614 00%0‘6

MACY1' 30A(1052)

SEQ 98

ENDMSG

L10010:

MOV
CLR
BISB
MOV
MOV
MOV
TRAP
ADD

TEMP4 ,=(SP)
-(SP)
TEMP3+1,(SP)
BEVTF&4L ,=(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

TRAP

($MSG

CZxMSAD kMS11-BD/BE
DCLY
CZKMSA.P11
25-DEC-82 13:54

2281 023700
40 0%2700
404

405

023700

07
3,08
3409
3610

023702
023706
023710
023714

406

3211
12

313
3616

023700

0
750
023724

9 7;6
023730

BGNMSG ERR2S
003946

153716
00§066
153716
012746

012746
010500

104414
062706

3215
16

0 27 4
023734

§218
19

023742
023744

005046
153716

3621
3422
2223
24
3425
3426
34%;

0%3756
023760
023762
023764
023770
023770
023770

012746
010600
104414
062706

429

023772

3617

02%7

005046

153716

3620 023750 012746

7
e

3,30
3431

023772
023774

PRINTB

ERR2S::

:PRINT
& STATUS avres FROM TEMP4, TEMPS

WEVTFS2,<B,TEMP4>,<B, TEMP4+1>

010175

CLR

«(SP)

MOV
MOV

#3,-(SP)
SP,RO

CLR

-(SP)

(LR
BISB

-(SP)
TEMPS, (SP)

010174
021207

BISB
CLR
Bls8
MOV

000010

TRAP
ADD

000003

PRINTB

WEVTFS3,<B,TEMPS> ,<B,TEMPS+1>

010177

BISB

010176

021264

MOV

000003
000010

MOV
MOV
TRAP
ADD

ENDMSG

L10011:

104423
000167
177772

SEQ 99

MACY1Y 30A(1052)
23-DEC-82 14:01
PAGE 100
GLOBAL ERROR REPORT SEC 11 N

ExIT

MSG

TRAP
LMWORD
WORD

TEMP4+1,(SP)
«(SP)
TEMP4, (SP)
#EVTFS2,=(SP)
CSPNTB
#10,SP

TEMPS+1,(SP)

0 VIFS3,=(sP)
,=(SP)

SP.RO
C$PNTB
#10,5P

($MSG
JS MP
L10011<2-,

CZKMSAD kMS11 SgD/BE LY
-DEC-B2 13:564
CIZKMSA.P

101
PAGE
14:01
2
MACY1Y 30A(1052)
23-DEC-8
SECTION
S
GLOBAL SUBROUTINE

SEQ 100

3 *®

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

CLOCK SETUP SUBROUTINE

CALL EXECUTED IN THE
SAYS NOTHING ABOUT A
LINE OR P=CLOCK S F

INPUTS:
R1= POINTS TO

SUPERVI SOR SPACE WHERE CLOCK INFO WAS RETURNED
T ABLE WHERE CLOCK INFQO wWiLL BE KEPT
“"CLKk'
TO
R2= POINTS

IMPLICIT INPUTS:

THE SUPERVISOR

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

OUTPUTS:

xCLKCSR" GETS LOADED WITH THE CLOCK'S CSR ADDRESS
“'CLKBR'* GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL
'CLKVECTM GETS LOADED WITH THE CLOCK'S INTERRUPT VECTOR

*'CLKHZ'* GETS LOADED WITH THE LINE FREQ. (MERTZ RATE) WHICH DETERMINES
THE NUMBER OF TICKS IN A SECOND

~NrON

b
e

ONININ)
= b s s = N

b
—s

LYLY
SneS 3
RO = = NN
N NN

(=1

[=l=l=l=le]

s
b =B

oo sSNO

00000

~N s

COOO0000000O

NOOO

$ERSIS

CALLING SEQUENCE:

N N N
NN N
o~ S80SV

NN~

rwmw
fi#w
RIS 0:0
R AR oo
R RN ZE
SR ITARIRZS

INFORMATION TABLE F LLOWING A *‘CLOCK"
N CODE. BUT SINCE T E "'CLOCK'" CALL
(K, THIS ROUTINE IS ONLY USED IF A

TM o)X
(o]

FUNCTIONAL DESCRIPTION:
THIS SUBROUTINE SETS

TM -

Ld
&

.SBTTL

CLKSET:

JSR

PC,CLKSET

;CALL CLOCK SETUP WITH R1 & R2 SETUP

MOV
MOV

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

;LOAD CLOCK'S CSR ADDR. INTO “‘CLKCSR'’
:LOAD CLOCK'S INT. LEVEL INTO "‘CLKBR

ASL

(R2)

ASL

(RQ)+

ASL
ASL

ASL

MOV
MOV

(R2)
(RQ)

]

:ADJUST THE INT. LEVEL FOR LOADING INTO
THE PSW WITH A "SETVEC' CALL
:

(ns)

(R1)+,(R2)+
;21)0.(a2)o

:LOAD CLOCK®S INT, VECTOR INTO “‘CLKVEC’
:LOAD CLOCK'S WERTZ RATE INTO “‘CLKMZ

C2ZKMSAOD KMS11-BD/BE

CZKMSA.P11

DCLT

22-05(- 2 13:5¢

MACY11 30A(1052)

23-DEC-82

14:01

CLOCK INTERRUPT SERVICE ROUTINE

2;8

SBTTL

481
ag

e
: FUNCTIONAL DESCRIPTION:

348
84

;
;

85
86

89
90

:
:

INTO THE EVENT LOG.

;

CLKMZ:

MAS BEEN COUNTED OFF
THE NO. OF

;

NEW VALUE OF EVENT TIMER *'1'' DECREMENTED BY 1 TICK IF 1T WAS NON-ZERO

NEW VALUE OF EVENT TIMER

NEW VALUE OF EVENT

: FUNCTIONAL SIDE EFFECTS:

504

:
;

507

283

024022

sg}g 0246022

3514
024022 oosgrr 164222
515 ozaogo 005337 010266
516

024032

001015

518

024042

oos;gr

517

519
520

521

gzi

024034

024046
024054

osaosg
024062

013737

010256

010266

022737
001004

000074

010264

oossg7

010264

otosoz

005037

010264

010270

1%:

529
§27

024074
0264100

oossg
005737

010270
010272

28:

005337
8857 7

010272
010274

sig
530

531
ss;
533
53,

' S'* DECREMENTED BY 1 SECOND IF IT WAS NON=-ZERO

IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING

)

024106

0 atog
02411

0 4118
0241
024126
024130

00140;
0014 ;

1499
0537

0 lgg;
005

010256
010274

BGNSRV

CLKINT

DEC

CLR

aCLKCSR
TIMTCK

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

MOV

CLKHZ,TIMTCK

:RESET THE # OF TICKS/SEC.

(MP
BNE

#60., TIMSEC
18

:SEE IF WE'VE COUNTED 60 SECS. YET
:1F NOT,
GO CHECK TIMERS

CLR

TIMSEC

: AND RESTART SECOND COUNTER

INC

005737

024072

38:

010266

IT WAS NON-ZERO

VECTOR WITH A SUPERVISOR “‘SETVECTM CALL.

INC

024066

528

CLOCK

TICK IF

THIS ROUTINE IS CALLED WHEN THE CLOCK INTERRUPTS THRU “‘CLKVEC''.
THE ADDRESS OF THIS ROUTINE WAS LOADED INTO THE CLOCK'S INTERRUPT

BNE

524

525

THE

TIMER ''2'* DECREMENTED BY 1

: CALLING SEQUENCE:

205
506
510

DETERMINED BY THE SYS. LINE FREO.

IN MINUTES & SECONDS

3511

TICKS IN A SECOND,

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

: IMPLICIT OUTPUTS:

ggg

COMPLETION OF
DEVICE
BE LOGGED WITH EACH ENTRY

TIMMIN € TIMSEC: CURRENT VALUE OF '‘TIME=SINCE=-START''

34,98

WHICH TAKES CARE OF
DOWN ANY OF THE

IMPLICIT INPUTS:
TIMTCK: THE CURRENT NO. OF TICKS LEFT TO BE COUNTED UNTIL A SECOND

3432

CLOCK INTERRUPT SERVICE ROUTINE
THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE
KEEPING THE “TIME=SINCE=START
AND COUNTING
“EVENT'' TIMERS, THE TIMERS ARE USED TO TIME
REQUESTS. THE "‘TIME=SINCE=START'* IS USED 7O

:
!

SEQ 101

PAGE 102

TIMSEC

TIMMIN
TIMER?

CLKINT::

160 CHECK TIMERS (182-TICKS, 3-SECONDS)
:INC # OF SECS-SINCE-START

2 ELSE INC MINUTES=SINCE-START
;SEE 5' TIMER #1,

TIMING ANYTHING

BEQ

:IF=0, NOTHING BEING TIMED CHECK NEXT TIMER

BEQ

: IF=0, NOTHING BEING TIMED CHECK NEXT TIMER

BEQ
CMP
BNE

43
CLKHZ,TIMTCK
113

DEC
ST

DEC

TIMERY
TIMER2
TIMER2
TIMERS

TIMERS

: ELSE DECREMENT THE TIMER VALUE (BY 1
: SEE 6' TIMER #2, TIMING ANYTHING

TICK)

: ELSE DECREMENT THE TIMER VALUE (BY 1
:SEE ar TIMER #3, TIMING ANYTHING

TI(K)

s 1F=0,
NOTHING BEING TIMED, LEAVE
:SEE If A SECOND HAS BEEN COUNTED OFF

: BR IF NO

: ELSE DECREMENT THE TIMER VALUE

(BY 1 SEC.)

L
CZKMSAQ KHS\1-20/BE 8SLT
CZKMSA.PT
235-DEC-82
13:54

537
538

ng 2‘

013777

O%A
024 42

000002

024

535

6§

010260

MACY11 30A(1052)

23-DEC-82 14:01
PAGE 103
CLOCK INTERRUPT SERVICE ROUTINE

164106

ES;SRV

4$:

CLKEN,@CLKCSR

SEQ 102

;REENABLE THE CLOCK TO INTERRUPT

L10012:

RTI

CZKMSAO KMS11-BD/BE

CZKMSA.PI1

DCLT

2?-05(-35 13:54

MACY11 30A(1052)

23<-DEC=82

14:01

PAGE 104

EVENT LOG SUBROUTINES

gzg

LSBTTL

S“
sa§
54
544
3545

;00
: FUNCTIONAL DESCRIPTION:
;
THIS SUBROUTINE WAS A DIFFERENT ENTRY POINT
;
FOR EACH EVENT TO BE LOGGED AND ALWAYS PRINTS
;
THE SHORT "'OPERATOR AWAKE' MESSAGE TO CONSOLE THEN LOGS THE

3546

ggzg

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

549

3550
3551
SSS%
3224

:
3
:
3

?sss
3556

EVENT LOG SUBROUTINES

SUBROUTINE AT CALLING TIME

INPUTS:

TIMMIN & TIMSEC:
CURRENT VALUE OF '‘TIME=SINCE=START'’
TEMP2:
WORD #1 OF EVENT LOG INFORMATION (FOR MOST EVENT TYPES)
TEMP3: WORD og OF EVENT LOG INFORMATION
TEMP4&: WORD #3 OF EVENT LOG INFORMATION

: OUTPUTS:

:
;

3557
gggg

3560
3561
322

“OPERATOR AWAKE'' MESSAGE SENT TO THE CONSOLE
NEW EVENT LOGGED IN “EVTLOG'* (EVENT LOG)
UPDATED "'EVTPTR'' (EVENT LOG ENTRY POINTER)

; FUNCTIONAL SIDE EFFECTS:
E
s
TEMP:
USED TO STORE ADDRESS OF ''OPERATOR AWAKE'®' MESSAGE
:
TEMP1:
USED TO SETUP THE VALUE OF THE "'EVENT TYPE'' BYTE FOR LOGGING

?sea

: CALLING SEQUENCE:

3565

266

JSR

PC,LOGTXQ

568
569

:
==

JSR

PC,LOGCMP

MOV
MOV

#STXQ,TEMPT
#7xQ, TEMP

L0GS1

;GO LOG EVENT AND TIME

MOV
MOV

#STXC, TEMPY
#TXC, TEMP

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

3570
3571
357
3573

024144
024144
024152

576

024616

012737
012737

021653
000000

010166
010164

0246162
024170
024176

012737
012737
000513

021664
000002

010166
010164

581
582

054500
026200

012737

021675

000004

010166

010164

586
587

024216
024216

012737

000006

010164

012737

021706

010166

ig;g

3577
578
ggg

58
ggg

588
589
590
591
592

024160

ogazoo
024214

024224
024226
024 §2
0242364
024242

000522

012737
000504

000500

012737
000474

000010

010164

LOGTXQ:

B8R
LOGTXC:

LOGRXQ:

LOGRXC:
LGDVE:

sCALL THE LOG_EVENT SUBROUTINE WITH TEMP,TEMP1,

: TEMP2, TEMP3, AND TEMP4 SETUP

JSET UP MSG. TO PRINT
:SET UP EVENT TYPE

L0GS{

;G0 LOG EVENT AND TIME

MOV

MOV
BR

#SRXQ, TEMPY
#RxQ, TEMP
L0GS{

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

MOV
BR

#RXC, TEMP
L0GS |

;SET UP EVENT TYPE
;G0 LOG EVENT AND TIME

MOV

#SDVE , TEMPY

:SET UP MSG. TO PRINT

MOV
BR

#DER, TEMP
L06S$

:SET UP EVENT TYPE
;GO LOG EVENT AND TIME

SEQ 103

23-DEC-82

14:01

MACY1? 30A(1052)
DCLT
CZKMSAOD KMS11-BD/BE
EVENT LOG SUBROUTINES
CZKMSA.P11 2§-oec-35 13:54
TEMP1
#SOVI, fEMP
010166 —— MOV
021730
12737
80242 22
232
#OvI,
MOV
813194
050013
7§7
81
ss
§95
MODTYP,TEMP2
MOVB
113737 810 16 010170
596 024260

§97 024 96 113737
598

024274

?20 02431

360 oza§1
3604 026320

024330

3607

024330

3610

024346

MLTYP,TEMP2+1

010174

MOV
BR

PARAM . TEMP4
LOGS3

:SET UP EVNT ENTRIES
160 LOG EVENT AND TIME

MOV
MOV

#SCM, TEMP1
#DCK TEMP

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

MOV

#SCML, TEMPY

:SET UP MSG. AND TYPE
G0 LOG EVENT AND TIME

MOV
MOV
LOGS3A: MOV

#SCMD, TEMP1
#DDE , TEMP
TRIBN, TEMPS

012172

015737
012737

021717
000014

010166
010164

geos ogasgs 000415
606

MOVB

010226

3599 024302 013737
368? 024310 000451

0102264

021741

010166

012737
012737
013737

021752
oooo§z
007636

010166
010164
010176

012737
012737

021763
000024

19166
010164

012737

021774

010166

012737

3608 024336 012737 000020 010164
3609 024344 000406
3611
361%
3613

024346
024354
026362

3616

024372

gg}g 024370 000421
3617
3618

024372
024400

gg;g 024406 000412
3621

024410

3623

024416

3ez§

024410

012737

gggg 024424 000403

000016

MOV

LOGCMP:
LOGCML:

LOGCMD:

LOGEOP:

024434
026434

022737

000006

010164

3631

024444

032737

000001

010224

3632 024452 001430
segz

022737 000010 010114
ggss 026456
024462 001012
3636

ggg; 024464 005037 010114
3639 024470

3640
1
2
3
64k

024470
024474
024500
024502
024504

012746 021650
012746 000001
010600
104417
062706 000004

MOV
BR

LOGMSC:

LOGS A

#DLE, TEMP
LOGS $A
LOGS3

#SEOP, TEMP1
#EOP, TEMP

MOV

#SMSC, TEMPI

L0GS$

MOV

LOGS3:

. TEMP
RPASS

MOV
MOV

010164

3628
3629

gggg 024426 013737 007636 010176 LOGS1:

3630 024442 001434

PRINT
SET UP
EVENT TOTYPE
UP MSG.
SSET

010 50 010171

013737

L0GS$

:GO LOG MSG TYPE AND TIME

#msC, TEMP

MOV

TRIBN, TEMPS

:SAVE LINE NUMBER (TRIBN)

CMP

#RXC, TEMP

BIT

LOGSS

#STATB,PARAM

:1F RXC DON'T PRINT

LOGSS

;1F NO STATUS SELECTED
260 10 5

BEQ

BEC

CMP

BNE

CLR
PRINTF

SEQ 104

PAGE 105

#10,LNCNT

LOGS4
LNCNT
#CR

:HAVE WE DONE 10?

S1F NOT GO T0 &
‘ELSE CLEAR IT
:ELSE PRINT (R

MOV
MOV
MOV
TRAP
ADD

#CR,=(SP)
#1,=(SP)
SP.RO
CSPNTF
04, SP

KMS11-BD/BE

CZKMSAO
CZIKMSA.P11
B

646

DCLT

2§-oec-g§ 13:54

8 4 18

024510

024514

005237

010114

02453¢

§4 0245 g
655 0 424
656 024546
3657 024554
3658 024562
ggso 024566
60 024572
3661 024576

01 ;4

010276
013703
10164
1137
105 5 810164
0137
010164
010266
163737
113723 810164
10554
1137
ow%
1137
01017
013723

3ee§ 024602 0137%3 010172
3663 024606 013723 010174
3664 024612 013723 010176
65 024616 020327 011334
666 024622 103404
3667

3668 024626 012713 177777
3669 024630 012703 010300
3670 024634 010337 010276
3671

gg;g

024640 012603
024642

LOGS4:

000207

23-DEC=82

LOGSS:

INC

MOV

MOV
MOVB
MOV
SUB
MOVB
MOVB
MOVB
MOV
MOV
MOV
MOV

CMP

BLO

MOV
MOV
LOGS2: MOV
LOGEX:

14:01

PAGE 106

EVENT LOG SUBROUTINES
PRINTF

010166

648 024514 013746
000001
3649 024520 012746
eog
01
024524
S0
651 024526 10441
osg 024530 062706 000004
§3

MACY1? 30A(1052)

SEQ 105

MOV
RTS

LNCNT
TEMP1

R3,=(SP)

EviPTR,R3
TEMP,(R3)+
CLKHE, TEMP
TIMTCK, TEMP
TEMP, (R3)+
tnnséc.<a§)o
TIMMIN.(R3)*+
TEMP2, (R3)+

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

;SAVE R3 ON THE STACK

:LOG EVENT

:L0OG TIME SINCE START
AND MINS.
:TICKS,SECS

:LOG EVNT ENTRY 3

TEMP3, (R3)+
TEMP&, (R3)+
tgHPS.(RS)o

1L0G EVNT ENTRY &
:LOG EVNT ENTRY S
1L0G EVNT ENTRY 6

LOGS

:1F EVENT LOG FULL GO
$CONTINUE;ELSE GO T0 2

(SP)+,R3

:RESTORE R3

R .05v1£ND

#-1,(R3)
# VfLOG R3
R3,EVIPIR
PC

‘L0G A TABLE END
:PUT R3 TO START OF TABLE
:RESTORE PQINTER

MOV

MOV
TRAP
ADD

TEMP1,=(SP)

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

CZKMSAD KMS11-BD/BE gSLr
13:54
23-DEC-82
CZKMSA. P11

MACY1? 30A(1052)

23-DEC-B2 14:01 PAGE 107
DUMP EVENT LOG AND BASE TABLE
DUMP EVENT LOG AND BASE TABLE

.SBTTL

024644

8 4646
4650

REPORT: MOV

10;«6

MOV
MOV

010346
010446

SEQ 106

n;.-(sp)

R3,=(SP)
R&.=(SP)

;SAVE R2,R3,R4 ON THE STACK

:PRINT REPORT HELP MESSAGE

Aess

465

4656

012746

024662

01 eog

024672

105037

8 4666 10441
aeeg oegr
024676

PRINTF

81 746 815551

105037

000001

000004
003401

GETRCL: CLRB
CLRB

003400

#RHLPO

P$GDBD
PSNNUF

MOV

#RHLPO,=(SP)

MOV

SP.RO

MOV
;CLEAR GOOD BAD FLAG

#,=(SP)

TRAP
ADD

CSPNTF
#4,5P

TRAP
LWORD
.WORD
-WORD
'WORD
'WORD
‘WORD

CSGMAN
10000$
CMDBUF
TSCODE
§Llsap
377
TSLOLIM
TSHILIM

;PRINT PROMPT RPT>

02470

706
706
707

024702
0247064
024706
024710
024712
024714
024716
024720

104443
000406
003124
000142
015544
000377
000001
000110

024722
024730
024736

012737
012737
012737

02472

GMANID

0031;4
027070
ozgoso

708 024744 005037 og gso
709 024750 004737 031506
710 024754 105737 003401

003364
003366
003370

MoV
MOV
MOV

#CMDBUF ,PSBUF A
#CLIRT,PSTREE
#CLIRAC,PSACT

BEQ
PRINTF

13
#CLIERM

CLR
JSR
1STB

711 024760 001412
4762
71
4762 012746 014010
n
714 024766 012746 000001

CLISRP,CMDBUF,A,377,1,72..NO

QUALFG
PC,PSTRY
P$GDBD

715 024772 01060

oo
S
ST
ng
024672
835129
ogsoog
;}g
4

105737
S
03?4%1
75? 3%%3?3
5014

72
5014 012746 014040
72
000001
724 025020 012746
01060
025024
725
72 8 so;o 10441
5030 062706 000004
72
728 025034 000716

1%:

GETRCL
JMP
PSNNUF
ISTB
10%
BEQ
PRINTF #CL INUF
B8R

GETRCL

B8R

100008:

;CLEAR QUALIFIER FLAG LOCATION
:GO PARSE COMMAND L INE
:SEE IF PARSED OK OR AN ERROR
10K, CONTINUE PROCESSING COMMAND
*ERROR. REPORT INVALID COMMAND

MOV
MOV
MOV

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

;G0 PRINT RPT> PROMPT AGAIN
:WAS COMPLETE COMMAND TYPED ?
ACTION
REQUESTED
GO PERFORM
*YES. REPORT
TYPED
COMMAND
INCOMPLETE
*NO.

MOV
MOV
MOV
TRAP
ADD
;G0 PRINT RPT> PROMPT AGAIN

#CLINUF ,=(SP)
SP,RO
CSPNTF
04 ,SP

#1,-(SP)

CZKMSAQ KHS\I-gDIBE gSL

CIKMSA.P11

729

23-DEC-82

13:54

0 soge

MACY1? 30A(1052)

730 025036 053787 003246
731 025046 001003
025046 004737 025112
733

000004

000006

; 4 025052

000707

ossosa

023727

003246

739

025064

004737

027264

7642

025072

0237;7

003246

736

737

738

025062

007003

;2? 025070 000700

3;2‘ 025100 001274
745

108:

23-o£c-az

CMP
BNE

KSVUDl,IRPSOL

JSR

PC,RPTSOL

(MP

KEYWD1,#RDMPS

BNE

308:

GETRCL
308

JSR

PC,DUMPSR

CMP

KEYWD1,#RPEXT

BR
000002

BNE

GETRCL

3746 025102 012604

ENDALL: MOV

(SP)+,R4

012602

MOV

(SP)+.R2

3747
748

025104

025106

012603

35%3 025110 000207
3761

PAGE 108

DUMP EVENT LOG AND BASE TABLE
PERFORH neoussreo REPORT ACTION

BR
208:

14:01

SEQ 107

MOV

RTS

(SP)+,R3

s EVICE STATUS REPORT REQUESTED ?
CONTINUE CHECKING REQUEST

REPORT REQUESTED
:DEVICE §tA1us
YES. REPORT DEVICE STATUS

1GO PRINT RPT> PROMPT AGAIN
;1S DUMP REQUESTED ?
NO.

:DUMP oA?A REQUESTED

:YES. PRINT REQUESTED DATA

:GO PRINT RPT> PROMPT

;1S EXIT REPORT SECTION REQUESTED ?

*NO. GO PRINT RPT> PROMPT AGAIN
;EXIT REPORT PROCESSOR REQUESTED

:YES. RESTORE R4, R3,R2

;RETURN TO CALLING ROUTINE

E
CZKMSAQ xn511-golat g(Lr
CIKMSA.P11
23-DEC-B2 13:54

SEQ 108

MACY1Y 30A(1052)
23-DEC-82 14:01 PAGE 109
RPTSOL =GET LINE STATUS REPORT FROM DEVICE-

g;sz

LSBTTL

755

g;gg

;gg

RPTSOL =GET LINE STATUS REPORT FROM DEVICE~-

PRINT DEVICE LINE STATUS TABLE BYTES 0..7

760

BYTE 0: STATUS

BYTE 4: ACK RCVD NUM

BYTE ;:

TEMP STORAGE

BYTE 9: NUM NAKS TRANSMITTED

ENRDST

3761

;g‘

;

3767
3768
769
770
7

3772
3773

3774

3775

BYTE 1: CONTROL FLAGS
BYTE

BYTE S: MSG RCVD NUMBER

3: LAST TX MSG NUMBER

BYTE

025112
025112
025116
025120
025154

005737

001407
005037
113737

007636
007622

025132 004737 063704
025136 005737 011514
025142

025144
025144
025150
025154
025156
025160
025164

001011

025166
025166

013746

011512

787
788
789

025176
025202
025204

012746
010600
104416

000002

791
792

025215
02521

795
796
797
798

8552 2
szib
025232
025236

012746

016612

104416
062796
000502

000004

012746
010600

RPTSOL :

011512

3776
3777
778
779
3780
3781
3782
378
3784
3785

BEQ
CLR
MOVB

007636

108:

JSR
ST

BNE

PRINTS

10%
TRIBN
TRIBLS,TRIBN

;REQUEST LINE STATUS
:1S ENABLE READ STATUS ASSERTED ?
sNO. OMIT READING STATUS
:YES. CLEAR LINE NUMBER
:SPECIFY LINE NUMBER

PC,LNSTAT
VSTAT
208

#PRTNOS

*READ LINE STATUS
:1S VALID STATUS DATA ASSERTED ?

000001

208:

PRINTS

30%

:YES. GO PRINT STATUS DATA

:STATUS NOT AVAILABLE

;PRINT STATUS
#EVTFST1,LINEST

:REPORT STATUS NOT AVAILABLE
MOV
MOV
MOV
TRAP
ADD
: AND RETURN

3786 025172 012746 02114
3790

3793
3794

3799
3800

7: NUM NAKS RCVD

‘-

765

766

TRIBN = LINE NUMBER FROM REPORT CL! ACTION

025206

025214
025250

025240
025242

062706

005046

000006

153716
005046

011501

104416
062706

000010

153716
012746
012746
010600

011500
021207
000003

#EVTFS2,<B,DEVS1>,<B,DEVS1+1>

CSPNTS
#6,SP

MOV

LINEST,=(SP)

MOV
MOV
TRAP

#2,-(SP)
SP,.RO
CSPNTS

MOV
PRINTS

#PRTNOS ,=(SP)

#1,-(SP)
SP,.RO

ADD
CLR

#EVIFSi,=(sP)
#6,SP
=-(SP)

BISB
CLR

DEVS1+1,(SP)
-(SP)

TRAP
ADD

C$PNTS
#10,S5P

BISB
MOV
MOV
MOV

DEVS!, (SP)
BEVTFS2,=(SP)
#35,-(5P)
SP.RO

CZKMSAD uns11-go/at chr

CIKMSA.PI

801
802

803
06
805
806
807
808
09
810
811
a1§
1
§a1‘
815

23-DEC-82 13:54

025246
0 2 46

025250
025254
O g 56
025262
025266
025272
025276
025276
025 Os
025302
ozsgo«
025 13
025312

ogggae

153716
153716
012746
012746
010600
104416
062706
005946
153716
005046
153716

ogggae

MACY1? 30A(1052)

23-DEC=-B2

14:01

SEQ 109

PAGE 110

LINE STATUS REPORT FROM DEVICE=
PRINTS W®EVTFS3,<B,DEVS2>,<B,DEVS2+1>

RPTSOL =GET

011503
011502
021264
000003

000010

PRINTS

WEVTFS&,<B,DEVS3>,<B,DEVS3+1>

011505

011504

3333a8&
AR VLN -3'3

NN NN

025330
025332
025336
025336
025340
025344
025346
025352
025356
025362
025364
025366

104416
062706
005046
153716
005046
153716
012746
012746
010600
104416
062706

025372

000207

025372

011507
011506
021416
000003
000010

MOV

SP,RO

MOV

000010

PRINTS

WEVTFSS,<B,DEVS4L>,<B,DEVS4L+1>

RTS

308:

:RETURN

=(SP)

DEVS2+1,(SP)
=(SP)
DEVS2,(SP)
SEVIFS3,=(SP)
#3,-(5P)
SP,RO
CSPNTS
#10,5P
-(SP)
DEVS3+1,(SP)
=(SP)
DEVS3,(SP)

MOV

16 025316 015746 021341
17 025322 012746 000003
18 0 ssgb 010600

3819
820
21
2§
3823
ggz«
25
326
3827
3828

(LR

BISB
CLR
BISB
MOV
MOV
MOV
TRAP
ADD
CLR
BISB
CLR
BISB

TRAP
ADD
CLR
BISB
CLR
BISB
MOV
MOV
MOV
TRAP
ADD

REVTFS4,=(SP)

#3,-(5P)

CSPNTS
#10,5P
-(SP)
DEVS4+1,(SP)
-(SP)
DEVS&,(SP)
BEVTFSS,=(SP)
#3,-(SP)
SP,RO
C$PNTS
#10,5P

kMS11-BD/BE

CZxMSAD
CIKMSA.PIN

DCLTY

5?-05(-82 13:54

MACY1Y 30A(1052)

838

LSBTTL

5374

010246

025402

013702

010346
840 8%5?76
025400 010446

SEQ 110

PAGE 111

REPLOG PRINT EVENT LOG

REPLOG: MOV

MOV
MoV

R2,=(SP)
R3.=(SP)
R&,=(SP)

;SAVE R2,R3,R4 ON THE STACK

MOV

EVIPTR,R2

:MAKE R2 A POINTER TO EVENT TABLE

g:\

863

14:01

REPLOG PRINT EVENT LOG

§g§§

839

23-DEC-82

010276

EVILOG,#=1
cMP
gg%uts 3§6st:

IBLL 025406 02 7;2 010?00 1772777
’2}2 .
2 83 2616
012746 020057
849 025422 01%:&6 000001

:SEE IF EVENT TABLE IS EMPTY
é%»?? TELL OPERATOR a
:?:
;

9 025426 010600
104416
850 0254
000004
51 025432 0627
025436

000137

026606

854 025442
sagz

162702

000014

RPT:

010300
ggsr 025446 020227
001010
3858

88622

172776

055460
1007
gael 025466
026606
000137
025470

ebi

025474 020237 010276
3324
3865 025500 oo1og;

026606

éggg 025502

0001

868 025506
3869 025515

162702 000014

3870 025512 012746 020117
871 055516 012746 000001
72 025522 010600

7 osss ¢ 106416
000004
764 025526 0627

75 025532
8 55
7
§540
7
78

855566

N 5
n

011430

112237

011426

112237 011424

025550
79
025550 016346
1 025554 013746
025560 013746
025564 013746
025570 012746
5 025576 012746
025600 010600
887 025602 104416
888 0256064 06?79?

1889 025610 0001

011374
011430
0114$4
011426
020215

ENDEVT

SUB

#14,R2

CMP

R2,MEVTLOG

(MP

«2(R2) ,#=1

BNE

025452

3859 025454 01270; 011334

JMP

MOV

177777

BNE

JMP

(MP
RPT1: BNE

JMP

RPTO:
RPTAA:

RPT1

#EVTEND,R2

RPTO

ENDEVT

R2,EVIPIR
RPT0
ENDEVT

214,R
SUB
PRINTS #EVTF

MOvVB

011440

SP,RO
CSPNTS
06 ,SP

#1,=-(SP)

:NOW POINT BACK TC TOP OF ENTRY U
:JUST PRINTED

TO TOP OF EVNT, LOG QUEUE?
;POINTING
: BR IF NO
SSET R2 TO POINT TO BGTIOM OF LOG

NOT EMPTY
:1F END OF LOG IS EXIT
:CONTINUE...ELSE

:ARE WE BACK TO POINTER?

S1F NOT CONTINUE

S1F SO EXIT....
:POINT R2 TO START OF ENTRY
SPRINT EVENT ENTRY HEADER

MoV
MOV
MOV

TRAP
ADD

#EVTFO,=(SP)
#1,-(SP)
SP,.RO
CSPNTS
#6,SP

FRPTDSP(R3Y)

:DISPATCH 10 DECODING SECTION FOR SPECIFIC TYPE

MOVB

(R2)+ EVIMIN

PRINTS WEVTFI, EVIMIN,EVISEC,EVITCK,EVILST(R3)

JMP

MOV
TRAP
ADD

(R2)+,EVTSEC

(R%)'.EV!ICK

000005

000014

#NULEVT ,=(SP)

MOV

:PUT EVENT TYPE INTO R3
;PUT EVENT TIME (TICKS,SECS,MINS IN TEMP LOC.S)

(R2)+,R3

MOVB

MOv8

;AND END

MOV

;PRINT EVENT TIME AND DESCRIPT.
EVILST(RY) ,=(5P)
MOV
EVITCK,=(SP)
MOV
EVISEC,=(SP)
MOV
(SP)
EVIMIN,=
MOV
-(SP)
0§v171
MOV
#5,-(SP)
MOV
5P.RO
MOV
CSPNTS
TRAP
#14,5P
ADD

CZxMSAD xnsn-go/ai gsu

CZKMSA. PN

890
891
892

23-DEC~B2

13:54

gr
7
g;

11432
01143

025614 OV
025620 81
01
025624

893 025626
894 0256

95 025632
896 025636

897
98
99
900
901
902

025642
025646
025652
0256564
025656
025662

004

026616

013746 011434
013746 011432

012746 82024&
012746 000003
010600
104416
062709 000010
00013

0256442

MACY1' 30A(1052)

23-DEC-B2

14:01

REPLOG PRINT EVENT LOG

RPTTXQ: MOV
MoV
MOV

(R2)+,EVIADD
(R )0.E¥lact
(R2)+.R

PAGE 112

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

:PRINT LINE NO.
pc.PnfTRE
JSR
;PRINT ADDR,BYTE CNT
PRINTS #EVTF2,EVTADD, EviBCT

JMp

RPTY

SEQ 111

;G0 BACK FOR NEXT EVENT ENTRY

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

EVIBCT,=(SP)
EVTADD,=(SP)

SEVTF2,=(SP)
SP,RO
CSPNTS
#10,5P

#3,-(SP)

964

945
96
947

026034
026034

-PRINT ERROR EVENT FROM L0OG

(R2)+ EviTmp
SEVIFS.EVITMP

:GET ADDRESS OF DEVICE INFO MESSAGE
:PRINT MESSAGE

per

HO—OOO0O
&

MOV

EVITMP ,=(SP)

MOV

#2,-(5P)

MOV
TRAP
ADD

MOV

~N~N

—a

MOV
PRINTS

MoV
MOV
MOV

(LR

011470

MOvB

025764
025764

MOV

ASL

ADD

JSR

MOV
JMP

025442
PRTETB:

$¥¥a%Es

026012
0 6013
02602
0260264
0260;6
026032

02600
026006

RPTDER:

SEQ 112

PAGE 113

MOV

g8ssgss

938
939
960
961
94
943

3936
937

025772

NNY ~

025774
025776
026000
02600
02600

CO=Osss &~
oo o

931
932
9335
934
935

NSO

025764
025764
025766
055770

025760

926
927
928
9;3

33 g

WO
NN
NSO
~ &~
- OF N NN ONINININ

025726
025732
0257
0257
02574
025746
025750
025754
025756

f?;flgfz §:893238 ®

915
916
917
918
919
920
951
9 g
9

14:01

~2 PNOND NN

N8 0371
e 053128

—-0000

[4
n

910
911

011436

23=D EC-B2

REPLOG PRIN TE VENT LOG

13746
12746
12746

g
R
308 033703

012237

025666
0 ggg

903
906
905

c- 2 13:54
280k

8-006000

CIKMSAD KMS1Y
CZxMSA. P

MACYYY 30A(1052)

PRTEOQ:

011474
011472
020332
00000

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
PRINTS

(n$>o.oev1
(R )o.ozvi
(R2)+,DEV
R2,=(SP)
R
DEV1,.R3
R
PRTETB(R3),R3
#PRTETB,R3
PC, (R3)
(SP)+.R2
RPT

PRTET:

SP,RO
(SPNTS
#6,5P

:GET PRINT CODE AND LINE NUMBER
:COPY SAVED DEVICE REGISTER CONTENTS
:COPY 2ND SAVED REGISTER
:SAVE R2 ON STACK
SCLEAR INDEX REGISTER
SGET PRINT CODE
SSHIFT CODE LEFT TO USE AS WORD INDEX
:GET PRINT ROUTINE OFFSET FROM TABLE BASE
SADD IN ADDRESS OF TABLE BASE
*PRINT REGISTERS
‘RESTORE R2
16O BACK FOR NEXT EVENT ENTRY

<TABLE OF OFFSETS TO REGISTER PRINT ROUTINES

SPRTEQ-PRTETB

SPRTE1-PRTETR
SPRTE2-PRTETB
#PRTE3-PRTETS

#PRTEL=-PRTETB

#PRTES-PRTETB
SPRTEG=-PRTETB

-PRINT 2 WORDS OF DEVICE

#EF13C,DEV2,DEV

:PRINT 2 WORDS

MOV
MOV

RTS

;RETURN
;e NOT USED

sRETURN

DEV3,=(SP)
DEVZ,=(SP)

MOV

#EF18c,=(sP)

TRAP
ADD

CSPNTS
#10,SP

MOV
MOV

000010

BEVTFS, =(SP)

#3,-(5P)
SP.RO

CZxMSAD kMS11-BD/BE va

CIKMSA.PI
949
950
951

23-DEC-B2

0260
0260
0260

8 6040

6044

954

026046

959
gg?

0 6093
026072

955 02605
95 8 6056
95
6062
958 026064

og 946

153716

026140

982

026142

984
985
986

3987

3988

026140
026140

CLR

-(SP)

oezrog
00020

000C10

81 7646 02047
012746 00000
010600
104416

012746

979

=(SP)

BISB

CLR
BISB

01147

BISB
CLR
BISB

=(SP)
DEV2+1,(SP)
=(SP)
DEV2,(SP)
=(SP)
DEVI+1,(SP)

000004

MOV

#6,=(SP)

RTS

:RE TURN

PRINTS

:PRINT 3 BYTES
®EVTF4LS,<B,DEVI*1>,<B,DEV2>,<B,DEV2+1>

011473

ADD

CLR

011472

MOV

000012

PRTEG:

005046

DEV1+1,(SP)

PEVTF&LY,=(SP)
#3,-(SP)
SP.RO
($PNTS

PRTES:

010600
106416
062706
000207

DEV2,(SP)

MOV
MOV
MOV
TRAP

0 6113 012746 020507
026126
0261
026132
026136

CLR

0114

0261

3983

:PRINT 2 BYTES
®EVTF&2,<B,DEVI*1>,<B,DEV>

og 966

972

980
981

PRINTS

BISB

005046
153716
005046
153716
005046
153716

978

’

REPLOG PRINT EVENT LOG

011472

026074
026074
026074
026076
026102
026106
026110
026112

973
974
975
g;g

SEQ 113

MACY1Y 30A(1052) 23-DEC-B2 14:01 PAGE 114
PRTE2:

96
3964
3965
3966
967
968
969
970

971

13:5¢4

RTS

JRETURN

PRINTS

;PRINT LINE NUMBER
WEVTF&O,<B,DEVI+1>

MOV
TRAP
ADD

#10,5P

PEVTFGS,
= (SP)
SP,RO
CSPNTS
#12,5P

CLR

«(SP)

026146 012746 020446

MOV

REVTFL0,=(SP)

000006

ADD

153716

01147

026152
026156
026160

012746
010600
104416

000002

026166

000207

026162

062706

BISB

MOV
MOV
TRAP
RIS

DEV1+1,(SP)
#2,-(SP)
SP,RO
CSPNTS

#6,5P

K
CZKMSAD xns11-gozat
LY
CZKMSA.P11
23-DEC-82 13:54
989
990

026170
0 6178

8 6174

991

PRTES:

02617

81 7646

011472

99
994
995
996
997
998
‘388

6173
02620
026 og
026212
026214
026216
026222

153716
81 746
12746
010600
104416
062706
000207

01147
02053
00000

4001

026224

400
400
4004
4005
4006
4007
4008
4009
4010
4011
4012
401
4014
4015

Ogb 4
026224
026 S
026
026
026240
026244
026250
ogossz
02625¢
026560
026260
026262

4017
G018
4019
4020
4021
4022

026270
026274
026300
026304
026306
026310

4016

4023

026266

026314

MACY1Y 30A(1052)
23-DEC-B2 14:01
REPLOG PRINT EVENT LOG

PRINTS

153716

005046
153716

015766
012746
010600
104416
062706
005046

SEQ 114

PAGE 115

;PRINT LINE NUMBER AND MESSAGE POINTED TO BY DEV2
WEVTF&&4,<B,DEV1+1>,DEV2
MOV
DEV2,=(SP)

CLR

000010

RTS

PRINTS

:PRINT & STATUS BYTES
#EVTFS2,<B,DEV2>,<B,DEV2+1>

PRTEG:

005046

sRETURN

CLR

011473

BISB

01147
02120
000003
000010

BISB
MOV
MOV
MOV
TRAP
ADD

PRINTS

WEVTFS3,<B,DEV3>,<B,DEV3+1>

CLR

-(SP)

BISB

153716
012746
012746
010600
104416
062706

011474
021264
000003

BISB
MOV
MOV
MOV
TRAP
ADD

CLR

000010
RTS

-(SP)

DEV2+1,(SP)

=(SP)
DEV2,(SP)
WEVTFS2,=(SP)
#3,-(SP)
SP,RO
CSPNTS
#10,5P

011475

000207

DEV1+1,(SP)
osvrraz,-(sp)
#3,-(SP)
SP RO
C$PNTS
#10,5P

CLR
BISB
MOV
MOV
MOV
TRAP
ADD

153716

005046

-(SP)

DEV3+1,(SP)

-(SP)

DEV3,(SP)
#EVTFS3,=(SP)
#3,-(SP)
SP,RO
(CSPNTS
#10,SP

L
CZKMSAO KMS11-BD/BE

CZKMSA.P11

DCLT

zg-osc-gg 13:54

4025

026316

005037

4027
4028
4029

026 g
8 6
026336

112237
112237
012237

026346
026350
026354
026356

01
&9
004737
0156 ;
012237

4026 8 6 S 0058 7 01147
81147
40

4031
4032
4033
4034

2832

8 6342

026362

012237

000137

01147
01147
811474

011476

031204
01017

02544

28%5
4039
4040
4041
4042
2824

23-DEC-82

REPLOG PRINT EVENT LOG

RPTDVI:

(LR

CLR

MOVB
MOVB
MOV

MOV

MOV
JSR
MOV
MOV

JMP

8%6366
026366
026372
026376
026402

012237
015237
012237
012237

011432
011434
011436
010176

026406
026406
026412
026416
026422
026426

013746
013746
013746
012746
012746

011436
011434
011432
020600
000004

RPTABO:
RPTEOP: MOV
MOV
MOV
MOV

(R2)+,DEVI
(R )o.oevi
(R2)*.DEV

(R2)+.DEVé

R2,=($P)
PC, SHWOP
(SP)+,R2
(R2)+.TEMPS

RPT

;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 R2
‘DUMMY MOVE

:G0 BACK FOR NEXT EVENT ENTRY

000012

283%

026442

000137

025442

JMP

026446

012237

011432

RPTDDE: MOV

02646
026466
026466

026472
856473
026502
026506
026512
026514
026516
026522

012237
12;;7

011434
011436

026616

013746
013746

011436
011434

013746

012746

o15z46
010600
104416
062706
000137

:DUMMY MOVE

#EVTF4B,EVTADD,EVIBCT,EVTTMP

026436

026452
02645

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

PRINTS

2832

4
406
4068
4069
4070
4071
4072
4073

DEVI

DEV?2

PASCOUNT ERROR COUNT RX THRES AND TX TTHRES

010600
104416
062706

4063
4064
4065

SEQ 115

PAGE 116

;PRINT

026432
026434

4059
4060
4061
4062

14:01

:REPORT END OF PASS R “C ABORT

2822
4047
4048
4049
4050
4051
4052
4053
4054

MACY1? 30A(1052)

MOV
TRAP
ACD

MOV
MOV

JSR
PRINTS

RPT

;THEN GO GET NEXT EVENT ENTRY

(R2)+,EVIADD

;STORE MESSAGE ADDRESS FOR PRINTING

(as)o.£v1act
(R2)+,EVITMP

SP.RO
CS$PNTS
#12,5P

PC,PNTTRB
:PRINT LINE NO.
WEVTF&, EVTADD,EVIBCT,EVTTMP
;PRINT ADDR, BYTE CNT, # CMP ERRS
MOV
EVITMP,=(SP)

02065

000004

JMP

EVITMP,=(SP)
EVIBCT.=(SP)
EVTADD,=(SP)
SEVTF4LB,=(SP)
#4,-(SP)

:STORE BYTE COUNT FOR PRINTING
:STORE TOTAL # OF CMP ERRORS

01143;

00001
02544

MOV
MOV
MOV
MOV
MOV

RPT

;THEN GO GET NEXT EVENT ENTRY

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

EVIBCT.=(SP)
EVTADD,=(SP)
BEVTF4.=(SP)
#6,-(SP)
SP.RO
CS$PNTS
#12,5P

FREJENF GRS

250t
c- 83" 13:54

MACY1? SOA(IOSZ)

23-DEC-82

14:01

EPLOG PRINT EVENT LOG

RPTDLE:
aprocx MOV
MOV
MOV

JSR

PRINTS

ONESSES
OO WKW
S =00

O
—
NNV

VIVIWIWANWIWAWNIIIVIWVIWD

oooocorororOr
O OO

OCO0O0O0O0O0O0O0O0O0O000O

CIZKMSAD kMS11
CZKMSA.P11

(R2)+,EVIADD
(RS)+.EVIBCT
(R2)+,EVITMP

PC,PNTTRB

SEQ 116

PAGE 117

;STORE MSG ADDR fon PRINT
:STORE BYTE COUN
:STORE BYTE COUNt coMP

;PRINT LINE NO.

#EVTF4A,EVTADD,EVIBCT,EVITMP

;PRINT ADDR, axavres CMPBYTES.

EVIBCT.=(SP)
EVTADD,=(SP)
lEVTFbA -(SP)

TRAP
ADD

CSPNTS
#12,5P

MOV
MOV

000012
025442

ENDEVT:

JMP

RPT

:THEN GO GET NEXT EVENT ENTRY

MOV
MOV

(SP)+ R4
(SP)+.R3

*RESTORE R4,R3,R2

RTS

;RETURN TO CALLING ROUTINE

MOV

(sp)o,az

EVITMP,=(SP)

nov
MOV
MOV

,=(SP)
sp‘RO

:RETURN TO CALLER AFTER REG RESTORE

;PRINT LINE NO.

012237

010176

013746
012746
012746
010600

010176
020546
000002

062706
000207

000006

104416

PNTTRB: MOV

PRINTS

(R2)+,TEMPS

W#EVTF6,TEMPS

;PRINT LINE NUMBER.

MOV

MOV
MOV

RTS

sRETURN TO EVENT

MOV
TRAP
ADD

TEMPS,
= (SP)

REVTF6,=(SP)
#2,-(SP)

SP.RO
CS$PNTS
#6,SP

CZKMSAO KMS11-BD/BE

CIKMSA.P11
4110
6111

ogeeso

(113

026652

411§

114

23-DEC=-82

026650

ogeese

5Lr

00630

016;0

062702

2}}9

026664

00020

4118
4119
4120
4121
6122
6123

026666
026670
0%6672
026674
026676
026700

000030
000032
000076
000106
000122
000022

4125
:}gg

4128

026702

026704
026706

MACY1Y 30A(1052)

000136

000160
000166

CLIRAC:

026666

ASL

ADD

#108,R2

RTS

JSR

108:

PAGE 118

CL1 FOR REPORT CODING SECTION

MOV

026666

14:01

1 FOR REPORT CODING SECTION

.SBTTL

6115 026662 00471

6126

13:54

23-o£c-az

10$(R2) ,R2

;FORM ADDRESS OF ACTION ROUTINE

PC, (R2)

LMORD
"WORD
"WORD
"WORD
.WORD
"WORD

ACTRNL=10%
ACTRHL=-10%
ACTREX=10%
ACTRLG-10%
ACTRSL=10%
ACTRNF=10%

:RPHLP
CRPEXT
*RPLOG
sRPSOL
*RNOTNF

"WORD
"WORD

ACTRDQ-10%
ACTRDE=-10%

*RDMPQ
*RDMPE

.WORD

ACTRDS=-10%

:RDMPS

SEQ 117

8 10

CZKNSAQ KNS11-8D/BE DCLT
13:54
23-DEC-8Z
CZKMSA.P11
4129
6130
4131

026710

Qcerie

413¢ Q6re0

6724

112737

177777

012702

003276

000207

MACY11 30A(1052)
003400

23-DEC-82 14:01 PAGE 119
REPORT COMMAND ACTION ROUTINES

REPORT COMMAND ACTION ROUTINES
:SET FLAG TO SAY MORE NEEDED
#=1,PSNNUF
PC
RTS
ACTRNL:
;SETUP R2 AS A POINTER TO HELP MSG TABLE
ACTRHL: MOV __ WRHLPTB,R2

.SBTTL
ACTRNF: MOVB

18:

PRINTF #HLPF,(R2)+

413
4135
41
4137
4138
4139

Q6o
De6ree
6732
026736
026740
Do6ruz

012246
0igrue 1616
012748 000002
01060
10441
062706 000006

414z

026754

012737

000001

003246

(MP
BNE
MOV

003246

ACTREX: MOV

Qgerue
4140
4141 026752

020g27
001364

000207

003306

RTS

4143

026762

4145

026764

012737

000002

4148

026774

004737

025374

000003

003246

415¢

027010

4154
4195

027010

027016
027022

012737

000004

003246

4157 027024

013737

Q03374

010126

ACTRDS: MOY

459 027036

012737

000006

003246

MOV

4146

4149
4150

4153

026772

027000
027006

000207

012737
000207

105037
000207

003400

4138 027032 003037 010132

4180

027044

4165

027066

000403

RTS

ACTRSL:

4166

4167
4168

R2,WRHLPEN
18

#RPHLP,KEYWD

:PRINT HELP INFORMATION MESSAGES

;SEE IF ALL INFO PRINTED YET
:1F NO KEEP PRINTING

FRPEXT,KEYWD1

;SET UP EXIT WORD

#RPLOG,KEYWD
PC

PC,REPLOG

;G0 REPORT DCLT EVENT LOG

MOV

WRPSOL,KEYWD1

;SET UP KEY WORD

CLRB
RTS

PSNNUF
PC

PSNUM,STADD

(LR

ByBIf

ACTRDE

RTS

MoV
MOV
MOV
MOV
TRAP
ADD

(R2)#,=(SP)
#HLPF ,=(SP)
#2,-(5P)
SP,RO
(SPNTF
#6,SP

MOV
RTS

ACTRLG: JSR

4162 02706 012737 177777 010132 ACTRDO: MOV
4163 027054 013737 003374 010130 ACTRDE: MOV
ACTRDX: CLRB
4164 027062 105037 003400
000207

SEa 118

#RDMPS,KEYWD1

#-1,BY1BLT
PSNUM,ENADD
PSNNUF
PC

:CLEAR NOT ENOUGH FLAG
:AND RETURN

;SETUP STARTING ADDRESS FOR DUMP
:FLAG THAT A DUMP WAS TYPED

:SET DEFAULT OF WORD DUMP

¥
Ry
:SET DUMP FLAG TO 'DUMP=BYTE''
IF NO '‘EEE
:SETUP END ADDRESS FOR DUMP (=START
“CLEAR NOT-ENOUGH FLAG, ''DUMP N=N/B'' IS VALID

c10
CIKMSA
CIKMSA,

13:5¢4

MACY1? 30A(1052)

23-DEC-B2

14:01

SEQ 119

PAGE 1 120

REPORT CODE COMMAND LI NE P PARSING TREE

< nZ

— -WX-O o

- [+4

w -

a MwvXV VvV v Vv

4
[+

D10

CZKMSAQ xns11-§o/a£

CLY

23-DEC-82 13:54

CZKMSA.P11

MACY1Y 30A(1052)

23-DEC=-82

14:01

DUMP BYTES OR WORDS

PAGE 121

DUMP BYTES OR WORDS

2;89

LSBTTL

4208
4209

22}1

DUMPSR = DUMP BYTES OR WORDS SUBROUTINE

A STARTING AND END ADDRESS

BY A SEMICOLON.

4210

: FUNCTIONAL DESCRIPTION:

OF THE LOCATIONS BETWEEN
THIS SUBROUTINE PRINTS THE CONTENTS
IN LOCS. '"STADD'* AND ‘‘ENADD'’,

421§

6214

THE WORD OR BYTE CONTENTS ARE PRINTED 8 TO A LINE WITH THE
ADDRESS OF THE FIRST BYTE AS THE FIRST 6 OCTAL CHARS. FOLLOWED

:
:

4215
4216

: }g
4219

: INPUTS

255‘

:
:
:

4220
4221
4.22%

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

4225

: OUTPUTS:

4228

: CALLING SEQUENCL.

azsg 027264 013702 010126

DUMPSR: MOV

2%%9

25%3
4234
4235

027270
027275

4242

027314

4236
4237
4238
4239
4240
4261
4243

6244

005003

027272
027§74
027300
027304
027;06
027310

010246
012746 020051
012746 000002
010600
104417
062706 000006

027320

001416

027322

4245 oz7§26

005737

010132

112237

010164

4255
4256
4257
4258
4259
4260
4261

027§54
027356

027356
027360
027364
027570
027372
027374

000411

012;46
012746 020042
012746 000002
01060
10441
062729 ooooge
010130

JSR P(,DUMPSR

STADD,R?2

CLR
PRINTF

R3
#BASM1,R2

pUM3:

TST

BYTBIT

MOVB

(R2)+,TEMP

BEQ

DUM1

:CALL DUMP BYTES SUBROUTINE

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

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

PRINTF #BASMS,<B,TEMP> ;PRINT BYTE

81 7646 020033
012746 000002
O 609
10441
062706 000006

027400 0202
¢

425
4254

857 3%
7340
ogr 4
027346
027350

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

DUM4:

4246 057 26 005046
4247 027330 153716 010164

424
424
4250
6251
4252

SEQ 120

DUMY:

BR
PRINTF

DUM2
#BASM2,(R2)+

:PRINT WORD

DUM2:

CMP

R2,ENADD

:COMPARE FOR LAST ADD

MOV
MOV
MOV
MOV
TRAP
ADD

R2,=(SP)
#BASM1,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,5P

CLR
BISB
MOV
MOV
MOV
TRAP
ADD

-(SP)
TEMP, (SP)

MOV
MOV
MOV
TRAP
ADD

(R2)+,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,5P

MOV

3,
= (SP)
#BASM
#2,-(SP)
SP,RO
CSPNTF
#6,5P

#BASMZ = (SP)

E 10
CZKMSAD KMS11
CZKMSA.P1

2320Ec-8e 13:54

0%7606
0 7206

80300
05;0
022705

027416

000736

027420

000207

MACYT? 30A(1052)

23-DEC°82 14:01 PAGE 122
P BYTES OR WORDS
BGT

INC
CMP

000010

BEQ
BR

DUMEX:

SEQ 121

RTS

IF_DONE EXIT

ognEx

#8.,R3

SHAVE WE PRINTED 8 ACROSS

DUMé
DUM3

:ELSE BUMP

;1F SO GO BACK TO &

*ELSE GO BACK AND PRINT ANOTHER
:BYTE OR_WORD
:RETURN TO CALLER

F10

CZKMSAOD xns11-go/as DCLT

CZKMSA.P11

23-DEC-82 13:54

MACY1? 30A(1052)

2 ;?

.SBTTL

A 7§

4274
4275

:
;

23-DEC-B2 14:01

UPDATE TOTAL CHAR. COUNT SUBROUTINE

: FUNCTIONAL DESCRIPTION:

427

4276
22;;

UPDATES TOTAL CHMAR. COUNT TOTCC BASED ON CURCC.
LAST MESSAGE IS TRUNCATED TO FIT INTO THE

:
;

BUFFER IF TOTAL CHAR. COUNT EXCEEDS ‘BUFLIM'* A MESSAGE
1S PRINTED TELLING THE OPERATOR THE TRUNCATION OCCURRED.

;

CURCC=

: INPUTS:

4579
4280

2531

. OUTPUTS:

azag

2533
4286
4287

LOCATION “‘TEMP'* USED FOR CALCULATIONS

;

JSR

059 027422 063737 010150 010160 ADDCC:
'
ADD
027430

022737

2532 027436 103027

001000

CMP

010160

BHIS

4299

027440

4305

027460

027440
027444
027450
027452
027456

012746 017105
012746 000001
010600
104417
oe§7oo 000004

4308 027502

013737 010164

163737

PRINTF

SLB

010150 010160

4306 027466 o1§737 001000 010164
4307 027476 163737 010160 010164

MOV
SUB

000207

RTS

027516

MOV

010150

4309 027510 063737 010150 010160
4310

PC,ADDCC

:UPDATED TOTAL CHAR. COUNT

CURCC,TOTCC

:ADD CURRENT TO TOTAL

ADDCY

*1F NOT MORE THEN ''BUFLIM" EXIT

#BUFLIM,TOTCC

: COMPARE TO ‘BUFLIM"

; PRINT MESSAGE AND TRUNCATE COUNT

253;

4300
4301
4302
4303

TOTAL CHAR COUNT OF BUFFER ITS BEING ADDED TO

MESSAGE TO OPERATOR IF MESSAGE TRUNCATED TO FIT

: CALLING SEQUENCE:

4288

4294

TOTCC=

CHAR. COUNT OF MESSAGE BEING ADDED

. FUNCTIONAL SIDE EFFECTS:

2%38

4293

SEQ 122

PAGE 123

ADDC1:

ADD

#MSGTRU

CURCC,TOTCC

#BUFLIM,TEMP
T0TCC, TEMP
TEMP, CURCC

CURCE,TOTCC
PC

:SUB CURRENT FROM TOTAL

:MOV "BUFLIM'' TO TEMP
1SUB TOTAL FROM 'BUFLIM"

SAND ESTABLISH NEW CURRENT

MOV
MOV
MOV
TRAP
ADD

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

TADD ""ADJUSTED CURRENT'' TO TOTAL CHAR. (NT.

‘RETURN TO CALLER

G 10

CZKMSAO kMS11-BD/BE DCLT
23-DEC-82 13:54
CZKMSA.P11

MACY1' 30A(1052) 23-DEC=-82 14:01 PAGE 124
BUILD MESSAGE BUFFERS SUBROUTINE

BUILD MESSAGE BUFFERS SUBROUTINE

zé}i

LSBTTL

6314

23}9

BLDBUF== BUILD POINTER TABLE AND BUFFERS

4318

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

6321

; INPUTS:

: FUNCTIONAL DESCRIPTION:

4§1s

2%}8

:
3

432%
432
2%%’;

THIS SUBROUTINE ADDS A MESSAGE TO THE TRANSMIT OR EXPECT LIST

CURCC= CHAR. COUNT OF MESSAGE TO BE ADDED
CPTR= ADDRESS % gglgmtrums WORD WHERE MESSAGE POINTERS ARE

CURADD= ADDRESS OF MESSAGE TO BE ADDED

4326
4327

:
:

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

4329

A MESSAGE ADDED TO EITHER TXBUF OR CMPBUF

433%

: CALLING SEQUENCE:

:BUILD MESSAGE IN BUFFER AND ADD PTRS.

:
BLDBUF

: OUTPUTS:

4328

2§§?

2%%4

4335

4336

4337

4338
2%23

4361

027520

027522
0275264

010246

010346
013702

010154

013722

010150

6364 027544 013702
4345 027550 ooeso;
436 027552 013737
4347 027560 063737
4348 027566 013703
4349 027572 016237
4350 027600 016204
4351 027604 060437

010146

4343

435

4353
4354
4355
4356
4357
4358

037610 1124;3

010156
002144

002172

027640
027642

012602
000207

MOV

R2,=(SP)

;SAVE R2 AND R3 ON THE STACK

MOV

CURADD, (R2) ¢

;PUT CURRENT ADD ON POINTER TAB

MOV

R2,CPTR

MOV

R3,=(SP)
CPTR,R2

CURCC, (R2)¢

:PUT CURRENT CC ON POINTER TAB
SPUT UPDATED R2 BACK TO CURRENT POINT
:GET MESSAGE TYPE TO USE AS INDEX
:DOUBLE FOR WORD INDEX
*MOVE CURRENT ADD TO TEMP

010164

MOV
ASL
MOV

MSGTYP,R2
R2
CURADD, TEMP

010170

MOV
MOV

:SET R3 TO CURRENT START ADD
CURADD ,R3
:GET BYTE COUNT
DMSGCT(R2) , TEMP2
R4 ;PUT STARTING FROM ADD IN Ré& FROM
DMSGAD(R2)
SADD IT TO TEMP2 TO GET END OF
R4, TEMP2

ADD

010150 010164
010170

027612 020337 010164
0%7616 00162&
027620 020437 010170
027624 001762
ozro;e 000770
027630 063737 010150

4359 027636 012603

4360
4361

BLDB1:

027540 010237 010154

010156

JSR PC,BLDBUF

MOV
MOV

027530 013722 010156

434% 027534

APPROPRIATE POINTERS IN PTRTAB POINTER TABLE

010156

BLDB2:

MOV
ADD
BLDB3: MOVB
CMP
BEQ
(MP
BEQ
BR
BLDBEX: ADD

MOV

MOV
RTS

CURCC, TEMP

SADD CHAR COUNT TO IT TO GET END

(RG)+, (R3)+

:MOV BYTE FROM PATTERN TO BUFFER

(SP)+,R3

:RESTORE R3 AND R2

R3,TEMP
BLDBEX
R4, TEMP2
8L08§
8LDB
CURCC, CURADD
(SP)+,R2
PC

sALL DONE?
:1F SO EXIT
:1S PATTERN COUNT EXPIRED
:1F SO GO START AGAIN
S1F NOT GET ANOTHER BYTE
:BUMP CURADD
:RETURN TO CALLER

SEQ 123

H 10
CZKMSAQ xnsw1-§o/ae
LY
CZKMSA.P11 ~ 23<DEC-82 13:54

MACY11

30A(1052)
23-DEC-82
14:01
PAGE 125
FCURAD
FORCE CURRENT ADDRESS TO WORD BOUNDARY

2 62

.SBTTL FCURAD

4365
4366
4367

s4
sFUNCTIONAL DESCRIPTION
;
FORCE CURRENT ADDRESS:

<368

6?69
4370
&3

;
:
;
:
dea

437;

437

6374
4375
4376
4377
4378
4379
4380
4381
4382

027644
027644
027652
027656
027660
027664
027670

032737
0014
105077
005237
005237
000207

000001

160276
010160
010156

010156

FCURAD:

108:

THAT

FORCE CURRENT ADDRESS TO WORD BOUNDARY

THIS ROUTINE

IS USED TO ENSURE

CURADD POINTS TO A WORD BOUNDARY

IF_CURADD DOES
THEN A BYTE IS
CURADD IS
AND TOTCC

NOT POINT TO A WORD BOUNDARY
CLEARED AT CURADD
INCREMENTED
IS INCREMENTED

;CHECK CURRENT ADDRESS

BIT
BEQ
CLRB
INC
INC
RTS

#1,CURADD
10§
@CURADD
T07CC
CURADD
PC

;1S CURADD 0DD ?
:NO. GO EXIT
SYES. INSERT A FILL BYTE
s INCREMENT CHARACTER COUNT
:
AND ADDRESS TO FORCE TO A WORD BOUNDARY

SEQ 124

110

CZxMSAQ KHS\I D/BE (L!
235-DEC~
CZKMSA . P
4384
4385
(386

4387

MACY11 30A(1052) 23-DEC-8B2 14:01 PAGE 126
CREATE FACSIMILE OF Tx BUFFER AND MESSAGE LIST
JSBTTL

CREATE FACSIMILE OF Tx BUFFER AND MESSAGE LIST

FUNCTlONAL DESCRIPTION:

E IS USED TO CREATE A FACSIMILE OF THE
SMIT LIST AND TRANSMIT BUFFER IN YNE

3
:
3
:

FACSIMILE: THIS ROUT
OF THE TR
EXPECTY LI
NORMALLY

6394

CALLING SEQUENCE: JSR

4397
4398
4399
4400
4601
[¥X}
&40
L4046
4405
4406
L4607
4408

3
:
:
3
3
3
|
3
:
:
3
3

DEFINITIONS

4610
LN
L6

BEGIN FACSIMILE ROUTINE
(*COPY TXBUF ==> CMPBUF*)
.. SAVE R1

L6146

L4615
L6116

3
:
H
3

La7

4618
4619

:
$

«.R
UF]RI [ TXBUF IR
....[(HPB

:
3

eessR1=R1#1
«-UNTIL RY = BUFLIM

(*NOW CAL(ULA‘E EXPECT LIST HESSAGE POINTER®)

4388
4389
4390
LI

:Sg

4395

4609

(A7)

225?

SEQ 125

T [RANSM]

3
:

AND EXPECT BUFFER. YNE.fiOUTlNE

LLED WHEN USER COMMAND
IS ENTERED.

‘‘SET E

[XPECT]=

PC,FACSIMILE

CMPBUF = EXPECTED DATA BUFFER HOLDS MAX 512 BYTES
TXRUF = TRANSMIT DATA BUFFER HOLDS MAX 512 BYTES
1 10TCC = NUMBER OF BYTES IN TXBUF
PTRTAB = TOP OF MESSAGE LIST POINTER TABLE
Cr1o1CC = NUMBER OF BYTES IN EXPECT MESSAGE
CMPTOT = NUMBER OF EXPECTED MESSAGES
CMPPIR = EXPECTED MESSAGE LIST POINTER
TXPTR = TRANSMIT MESSAGE LIST POINTER
TXMTOT = NUMBER OF TRANSMIT MESSAGES
CCURAD = STORAGE ADDRESS OF MESSAGE IN CMPBUF
MSGLIN = MAXIMUM NUMBER OF MESSAGES THAT (AN BE STORED
BUFLIM = NUMBER OF BYTES IN BUFFER

..lNl! R1

«-CMPPTR= PTRTAB ¢ (2 * MSGLIM

L4622
4423
L6246
L4625
6&59
L
4428
L4629
&4
Y31
4463
L63
463%
4435
L4636
L4637

3
:
3
3
3
3
:
:
:
3
3
3
3
3
3
:

(*NOW PRIHE THE WHILE = DO LOOPe)
.« TXPTR= PTRTAB
««CCURAD= CMPBUF
+.TXPTR = TXPIR ¢ 2
«.CTOTCC = [TXPTR]
.CMPTOT =
T WHILE TXMTOT <> CMPTOT DO
eees LCMPPTR] = CCURAD
....ERPPIR = CMPPRY ¢ 2
eee LCMPPTR] = CTOTCC
vees TXPTR = TXPIR ¢ &
esss CCURAD = E(URAD . crorcc
eessLTOTCC =
cees CMPPTIR = (MPPIR ¢ 2
eess CMPTOT = (MPTOT ¢ 1
..END HMILE DO

&6 39

END F (SlllLE ROUT INE

J 10

CZKMSAO KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-B2 13:54
4440
Wal

02767

443
027674
Wbk 027676
445 027704
Lub

0277

4449

FACSIMILE:

8‘21‘6

005001
116161
005201

MOV

003406

0201;7

001000

027714

012701

000017

451

027722

006301

445

027732

222; 027712

001371

4,50 027720 806§o1
4,52

027726

MACY1? 30A(1052) 23-DEC-B2 14:01 PAGE 127
CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST

012737

006406

060137 010054

004406

108:

(MP

BNE
208:

010054

457

4,58

027740

027746

459 027754

460
2221
446

4464
4465

027762
027770

0277764
03

012737

STOP OF POINTER TABLE

SYARY OF FXPECTED PGINTER TABLE

SINIT

ADD

#2,1XPTR

‘BUMP POINTER

017737
005037

160(6&
010056

010060

023737

010074

010056

001436

470
4471
447

030034

063737

010060

010062

osoocs

032737

000007

030052

005237

010062
157770

oo14g;

476

nov
MOV
CLR

308:

030056

o177§7

4479

030076

000736

2:31

030100

013737

030106
030110

012601
000207

010052

010060

010076

010060

‘BYTE COUNTER 1ST MESSAGE
SINIT EXPECTED MESSAGE COUNT

:ALL MESSAGES COPIED ?

CCURAD ,aCMPPTR

STRANSFER ADDRESS OF MESSAGE

ADD
MOV

#2.CMPPTR
CTOTCC,aCMPPTR

ADD

CTOTCC,CCURAD

#4,TXPIR

BIT

#1,CCURAD

INC

CCURAD

35§

$YES ,BRANCH

‘BUMP POINTER
PBYTE COUNT OF MESSAGE

:BUMP TX MESSAGE POINTER

*CALC. TRANSFER ADDRESS
;ADJUST ooo ADDRESS
;1S COMPUTED ADDRESS ODD ?

*NO. OMIT ADJUSTMENT

SYES. INCREMENT ADLRESS

MOV

atxrta c1oTCC

:BYTE COUNT NEXT MESSAGE

‘D0 IT AGAIN

ADD
INC

40$:

*TRANSFER ADDRESS OF 1ST MESSAGE

TXMTOT, CMPTOT

40%

BEQ

35%:

aTXPTR,CTOTCC
CMPTOT

BEQ

ADD

010062

#CMPBUF. CCURAD

sWHILE TX MESSAGE TOTAL <> EXPECTED MESSAGE TOTAL DO

tmP

MOV

477 030064 oegr 7 000002 010054
478 030072 005237 010056

484
:232

R1,CMPPTR

0627%7 000002 01005

4469 osoo;g 06;737 000004

448

TMULTIPLY BY

#PTRTAB,CMPPTR

‘MULTIPLY BY

:TX POINTER NOW AT TOP OF TABLE

010054
160026

4480

:SET UP WHILE = DO LOOP

010065

000002
010060

030056

ASL

#PTRTAB, TXPTR

004406

06%737
013777

475

*NO,BRANCH

MOV

030012
030020

476

*ALL DATA COPIED ?

10§

;MESSAGE LIMIT

CLR

467
468

03005

R1,#BUFLIM

SINITRY
SCOPY TX BUFFER TO EXPECTED BUFFER
:BUMP INDEX

#MSGLIM, R

ASL

ADD

466 030004 013777 010062 160042

473

;SAVE R1

R1
TXBUF (R1),CMPBUF
(R1)
R1

010052

012737

006406

R1,=(SP)

MOV

22§g 027736 005001
4656

CLR
MOVB
INC

2.CMPPTR
gHPTOI

;END WHILE

MOV

= DO

TTOTCC,CTOTCC

:END ROUTINE

MOV
RTS

(SP)+,R1
PC

:BUMP POINTER
S INCREMENT MESSAGE COUNT
:COPY TOTAL CHARACTER COUNT
;RESTORE R1
*RETURN

SEQ 126

K 10

CZKMSAD kMS11-BD/BE gSLY
CZKMSA.P11
25-DEC-B2
13:54

MACY11 30A(1052)

23-DEC-82 14:01
PAGE 128
QUEUE UP ALL REC BUFFERS FOR MULTIPOINT

22%3

.SBTTL

4490
469
223

3o¢
s FUNCTIONAL DESCRIPTION:

2232

4496
4497
4498
4499

:
S
:
:

4501

4500
4502
4503
6504
2282

4507
4508
4509

{310

451%
4513
4514
4515
6516
4517
4518
6519
225?

QUEUE UP ALL REC BUFFERS FOR MULTIPOINT

THIS ROUTINE QUEUES ALL REC BUFFERS FOR VALID LINES
SUBORDINATE ROUTINES USED:
GTVIND -

ULRPLS

:
:
:
:

LOGAQR

LDRPLS

s CALLING SEQUENCE:
:
JSR
jo-

030112
030120
030124
030132
030134
030140
030146
030152
030156

012737
004737
022737
001411
004737
052737
004737
004737
000207

177777
03040
000010
030454
000004
031142
030434

007642
007642
010230

RXQUAL = QUEUE ALL REC BUFFERS

RXQUAL: MOV
RXQU1:
JSR
CMP
BEQ
JSR
BIS
JSR
JSR
RXQUEX: RTS

LOADS INDEX WITH OFFSET 1O NEXT
VALID LINE AND LOADS TRIBN WITH
ADDRESS OF NEXT VALID LINE
MOVES RXPTR FOR THIS LINE TO
CPTRR FROM CPTRLS.
QUES REC BUFFER POINTED TO BY

CPTRR AND LOGS THIS IN EVENT LOG
MOVES VALUE OF CPTRR TO SLOT IN
CPTRLS FOR THIS LINE

PC,RXQUAL

#=1, INDEX
PC,GTVIND
#8., INDEX
RXQUEX
PC,ULRPLS
#ORX,FLAG
PC,LOGAQGR
PC,LDRPLS
PC

sSET INDEX TO =1
sGET NEXT VALID INDEX
;1S ALL_DONE
:IF SO EXIT
:LOAD CPTRR FOR THIS LINE
: INDICATE RX QUEUED
;RELOAD RX PTR LIST
sRETURN TO CALLER

SEQ 127

L 10
CZKMSAD xns11-§o/as gSL
CZKMSA.P11 ~ 23-DEC-82
13:54

MACY11 30A(1052)

45 i

.SBTTL

22 z

§ FUNCTIONAL DESCRIPTION:

4527

;

22 4

;44

4528

SEQ 128

23-DEC82 14:01
PAGE 129
LOAD CPTRLS LIST INITIALLY
LOAD CPTRLS LIST INITIALLY

LCPRLS

=LOAD CPTR LIST INITIALLY

THIS ROUTINE LOADS UP THE CPTRLS LIST FOR ALL

;

VALID LINE NUMBERS IN THE TRIBLS IT ALSO LOADS

2231

: INPUTS:

RXMTOT = TOTAL NUMBER OF RX MSGS PER LINE

22%2

;

DVRCLS = LOADED WITH RXTOT COUNT FOR EACH LINE

22;8

;

22%%

: OUTPUTS:

4537

;
:
:
:

4544

2222

4555

GTVIND

LCPRLY

: CALLING SEQUENCE:

4545

CPTRLS - Lguogoc01t7ugoxnrsns TO THE RXPTR TABLE

: SUBORDINATE ROUTINES USED:

4538
4539
4540
4541

4548
4549
4550
4551
4552

THE DVRCLS LIST FOR MSG COUNTS.

030160
030166
030172
030200
030202

030206

012737
004737
022737
001402
004737

000207

177777
030402
000010

030210

007642

JSR

LCPRLS: MOV
LCPRT:
JSR
CMP
BEQ
JSR

#-1, INDEX
PC,GTVIND
#8., INDEX
LCPREX
PC,LCPRLY

LCPREX: RTS

GETS NEXT VALID INDEX BY
CHECKING TRIBLS FOR NON ZERO ENTRY
LOADS POINTER TABLE FOR LINE AT THIS
INDEX VALUE AND RXMTOT TO DVRCLS FO

PC,LCPRLS
;SET UP INDEX VALUE TO =1
:GET VALID INDEX
SIS IT 82
‘BRANCH IF 8.
:1F NOT LOAD CPTRLS FOR THIS LINE.

:RETURN TO CALLER WHEN DONE WITH ALL.

m10
CZKMSAQ xns11-go/ae gSLT
CIKMSA.P11
23-DEC=-82
13:54

MACY11 30A(1052)

23-DEC-82 14:01
PAGE 130
LOAD CPTRLS AND DVRCLS FROM INDEX

zgg;

.SBTTL

4559
zggg

e
: FUNCTIONAL DESCRIPTION:

456
2324

;
3

4565

P INPUTS:
:

PTR23

4568
2293

: OUTPUTS:
3

CPTRLS = LOADED WITH POINTERS TO THE RXPTR LIST
DVRCLS = LOADED WITH RXMTOT COUNT

4571

: SUBORDINATE ROUTINES USED:

2229

4572
4573

:
:

23;’;

RXMTOT = TOTAL NUMBER OF RX MSGS PER LINE

MTPLY

030210
030216
030224
030232
030236
030242
030250
030252
030260

012737
013737
012737
004737
013703
113763
006303
013763
000207

006576
007642
0000764
030356
007642
010112

007602

010170

007542

010170
010046
010164

= START OF RX POINTER TABLE

MULTIPLIES VALUE IN INDEX BY VALUE IN
TEMP AND THEN ADDS THAT RESULT TO VALUE

IN TEMP2 AND PUTS FINAL RESULT IN TEMP?

: CALLING SEQUENCE:

4577

LCPRLY = LOAD CPTRLS AND DVRCLS FROM INDEX

THIS ROUTINE LOADS UP THE CPTRLS LIST FOR THE
INDEX VALUE AND THE DVRCLS IS LOADED WITH RXMTOT.

4576

4580
4581
4582
4583
4584
4585
4586
4587
2333

LOAD CPTRLS AND DVRCLS FROM INDEX

JSR

LCPRL1: MOV
MOV
MOV
JSR
LCPR2:
MOV
MOVB
ASL
MOV
RTS

#PTR23,TEMP2
;SET UP TEMP 2 AS BASE
INDEX ,MPLY
SSET UP MULTIPLIER
#60.,TEMP
SSET UP MULTIPLICAN
PC,MTPLY
:GO MULTIPY
INDEX,R3
RXMTOT,DVRCLS(R3)
:LOAD UP COUNT LIST
R3
:MAKE R3 WORD INDEX
TEMP2, CPTRLS(R3)
*SET UP POINTER TABLE
PC
*RETURN TO CALLER

PC,LCPRLY

SEQ 129

N 10

CZKMSAO KMS11-BD/BE

CIKMSA.P11

DCLT

23-DEC=-82 13:54

MACY1? 30A(1052)

23-DEC=-82

14:01

PAGE 131

CLEAR RECEIVE POINTER LIST

4591

JSBTTL

4594

: FUNCTIONAL DESCRIPTION:

233%

: OUTPUTS:

CPTRLS = 1S ZEROED IN ALL SLOTS

;

JSR

039

;00

¢ CALLING SEQUENCE:

4599

4600

4603

030262

012737

000010

4604 030270 012703 007542
4605

030274

oosogs

4607

030302

001374

4606

030276

2283 030304

4610

THIS ROUTINE CLEARS ALL 8 SLOTS OF THE CTPRLS

2232

005337

000207

010164

CLRPLS = CLEAR RX POINTER LIST

CLRPLS: MOV

#8.,TEMP

PC,CLRPLS

MOV

#CPTRLS,R3

DEC

TEMP

CLRPL1: CLR
BNE

CLRPEX: RTS

:LOAD START OF LIST TO R3

(R3)+

*CLEAR THIS SLOT

CLRPL1

:1F NOT DONE GO BACK

TRETURN TO CALLER WHEN DONE

SEQ 130

B 1

CZKMSAO KMS11-BD/BE
22}

DCLT

23-DEC-B2 13:54

CZKMSA.P11

MACY1? 30A(1052)
.SBTTL

23-DEC-82

14:01

PAGE 132

LOAD TX POINTER LIST INITIALLY
LOAD TX POINTER LIST INITIALLY

14t

4614

LCPTLS = LOAD TRANSMIT POINTER LIST
: FUNCTIONAL DESCRIPTION:
CPTTLS WITH TX POINTERS
LOADS
ROUTINE
THIS
:

4615
4616

;

4617

4618

¢ INPUTS:

2259

;

TXMTOT

;

CCTTLS

;

DVICLS

;

4619

PTRTAB

Aesg

: OUTPUTS:

4624

4625

;

4626

FOR EACH VALID LINE.

: SUBORDINATE ROUTINES USED:

4627

TOTAL NUMBER OF TX MSGS

POINTER TO TOP OF TX POINTER TABLE

LOADED WITH POINTERS TO TX POINTER TABLE
FOR ALL VALID LINES
TX MSG COUNT LlST LOADED WITH MSG COUNTS
FOR ALL VALID LINES

4628

;

GTVIND

BY
GETS NEXT VALID INDEX

4631
22;%

;
}

LDTPLS

LOADS VALUE FROM CPTR TO CPTTLS IDEXED
BY TRIBN

22 3

LDTCLS =

;

22%?

: CALLING SEQUENCE:
JSR
;

4636
4637

ke
639 030306 013737 010074 010072 LCPTLS:
MOV

4640
4641

4642

030314

030322

015737

012737

006406

177777

MOV

010154

007642

MOV

JSR
4643 030330 004737 030402
CMP
007642
022737 000010
466s 030334
BEQ
4645 030342 001404
JSR
4646 030344 004737 030572
JSR
4647 030350 004737 030632
LCPTEX: RTS
4648 03035¢ 000207
LCPT1:

CHECKING TRIBLS FOR NON ZERO ENTRY

LOADS DVTCT TO DVTCLS INDEXED BY TRIBN

PC,LCPTLS

TXMTOT,DVTCT

:LOAD UP COUNT

#-1, INDEX

;LOAD INDEX WITH =1

#PTRTAB,CPTR

PC,GTVIND
#8., INDEX
LCPTEX
PC,LDTPLS
PC.LDTCLS
PC

SGET VALID INDEX
P1S THIS THE END
SEXIT IF SO
SLOAD TX POINTER LIST
SLOAD TX COUNT LIST
‘RETURN TO CALLER

SEQ 131

CIKMSAQD KHS\1-§D/BE

CIKMSA. P

23-DEC=-82 13:5¢4

MACY1? 30A(1052)

23-DEC-82

MULTIPY

14:01

PAGE 133

MULTIPY

4650

LSBTTL

465

465
4654

MTPLY= MULTIPY
: FUNCTIONAL DESCRIPTION:
THIS ROUTINE MULTIPLIES THE VALUE IN MPLY BY
3

4658
4659
222?

s INPUTS:
3
:

222

: OUTPUTS:

L664
4665

; CALLING SEQUENCE:
JSR
3

4651

3
:

4655
223?

4666
4667

4668

THE VALUE IN TEMP AND THEN ADDS IN THE VALUE OF TEMP?2
WITH THE RELSUT GOING TO TEMPZ2
TEMP2 = INITIALLY VALUE
TEMP <« VALUE TO MULTIPLY BY
MPLY <« NUMBER OF TIMES TO MULITPLY

TEMP2 = RESULT OF [MPLY * TEMPJ+TEMP2

J--

030356

4669 030362
4670 030364
4671 030372
4672 030376
4673 030400

005737

001406
063737
005337
C€00767
000207

MTPLY:

010046

010164
010046

010170

TST

BEQ
ADD
DEC
BR
MTPLEX: RTS

MPLY

PC,MTPLY

MTPLEX
TEMP,TEMP2
MPLY
MTPLY
PC

:1F MULITPLIER IS ZERO QuUIT
:ADD THE FACTOR TO BASE
:COUNT DOWN THE MULTIPLIER
;G0 BACK FOR MORE
:RETURN TO CALLER

SEQ 132

CZKMSAO KkMS11-BD/BE DCLT

CZKMSA.P1

23-DEC-B2 13:54

MACY1? 30A(1052)

23-DEC-82

4676
4677

4680

28%

; FUNCTIONAL DESCRIPTION:

zg;g

4681

LOADS TRIBN WITH THE NUMBER.

%l¥evaexnc THE LOCATION IN THE TRIBLS THAT HAS A NON=ZERO

4688
4689

: CALLING SEQUENCE:
JSR
:

4690
4691

4692
4693
4694

: INPUTS:
: OUTPUTS:
:

4695
4696
4697
:ggg

030402
030406
030410

030416
030424
030426
030432

013703
oosgos
116337

007642

007622

007636

123727 007636 000377
001770
010337 007642
000207

GTVIND = GET NEXT VALID INDEX

THIS LOADS INDEX ultu INDEX VALUE OF NEXT VALID LINE. THIS ALSO

4684

4685
4686
4687

PAGE 134

GET NEXT VALID INDEX

LSBTTL

4675

14:01

GET NEXT VALID INDEX

SEQ 133

GTVI o MOV
INC
GTVIT:
MOVB

C(MPB
BEQ
MOV
RTS

INDEX
INDEX
TRIBN

=
=
=

SET TO VALUE OF LAST INDEX
SET TO VALUE OF THIS LINE
NUMBER OF THIS LINE

PC,GTVIND

INDEX,R3
R3
TRIBLS(R3),TRIBN

TRIBN,#377
GTVI
R3, INDEX
PC

:LOAD TRIBN

:SEE IF EMPTY SLOT OR NOT
:1F EMPTY GO GET ANOTHER
:LOAD INDEX VALUE IF NOT ZERO
:RETURN TO CALLER WHEN DONE

EN
CZKMSAQ KMS11~ D/BE D ¢ LY
2 -DEC-8 4 13:54
CZKMSA.P11

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 134

PAGE 135

LOAD REC POINTER LIST

LSBTTL

LDRPLS = LOAD RX POINTER LIST FROM (PTRR
THIS ROUTINE MOVES DATA FROM (PTRR TO THE SLOT IN THE

FUNCTIONAL DESCRIPTION:
INPUTS:
QUTPUTS:

CPTRLS INDEXED BY INDW.

INDEX INTO LIST
0
INDW = WORD

CPTRLS = EgRRECY SLOT LOADED WITH DATA FROM (PTRR

SUBORDINATE ROUTINES US

GETS INDW FOR THIS TRIBN

GETIND

CALLING SEQUENCE
JSR
LDRPLS: JSR

030434
030440
030444
030452

MOV
MOV
RTS

PC,LDRPLS

PC,GETIND

:GET INDW FOR THIS TRIBN

CPTRR,CPTRLS(R3)

RETURN TO CALLER

MOVE WORD INDEX TO R3

INDW,R3

*LOAD CPTRLS LIST

UNLOAD CTPRR LIST

.SBTTL
+ *

ULRPLS = UNLOAD RX POINTER LIST
THIS ROUTINE MOVES DATA FROM CPTRLS SLOT INDEXED

FUNCTIONAL DESCRIPTION:

BY INDW TO
IMPLICIT INPUTS:
TR IBN

(PTRR
SUBORD INATE ROUTINES USED:

OUTPUTS:

004737
013703
016337
000207

ULRPLS: JSR

MOV
MOV
RTS

NUMBER OF CURRENT LINE
VALUE FROM CPTRLS
GET INDW FOR THIS TRIBN

GETIND

JSR

PC,ULRPLS

CALLING SEQUENCE:

030454
030460
030464
030472

C(PTRR.

PC,GETIND

INDW,R3

(PTRLS(R3) ,CPTRR

sGET INDEX

;MOVE WORD INDEX TO R3

:LOAD CPTRR FROM LIST INDEX
sRETURN TO CALLER

F1N

CIKMSAD KMS11-BD/BE

CIKMSA.P11

DCLT

23-DEC-B2 13:54

23 DEC-82

MACY1? 30A(1052)

14:01

PAGE 136

REC POINTER TO CPTR

GET REC POINTER TO CPTR

2;§9

.SBTTL

4738

4739
4740

GRPTCP = GET RX POINTER TO CPTR
: functonAL oescaxprnou:
THIS ROUTINE GETS THWE RX POINTER TO CPTR FOR USE IN BUILD
:

:;2‘

P INPUTS:

t:'lz‘l

’

BUFFER.

4745

: QUTPUTS:

4747

4746

: CALLING szouewcs
:
JSR

4753

030476

013737

007642

010046

GRPTCP: MOV

4755

030510

013737

010050

010170

MOV

475 030502 012737 000074 010164

4756 030516

004737

030530

000207

030356

4757 030522 013737 010170 010154

4758

(PTR

= LOADED WITH ADDRESS OF RX BUFFER FOR THIS LINE

: SUBORDINATE nournnss USED

4748
4749

INDEX = INDEX VALUE FOR LINE

MOV

JSR

MOV
RTS

-"MULTIPLIES INDEX BY TEMP AND ADDS TEMP2 TO RESULT
PC,GRPTCP

INDEX MPLY

sSET UP MULPILIER

RXPTR, TEMP2

:CINDEX VALUE X 60.] ¢ RXPTR = POINTER ADDRESS

#60. ,TEMP

PC, HTPLY

TEHPZ C(PIR

SET UP POINTER ADDR.

SEQ 135

CZKMSAQ KHS“°§D/BE g%LT

CZKMSA. P

23-DEC-B2

13:54

MACY1Y 30A(1052)

4764
4765
4766
4767

s OUTPUTS:

DVRCLS= VALUE OF DRVCT

GETIND

: SUGORD!NA'E ROUTINES USED:

4768

4769
4770

s CALLING SEQUENCE:
JSR
:

030532

030536

004737

013703

0311C2

007642

LDRCLS: JSR

MOV

MOvB

4775 030542 113763 010110 007602

RTS

2;;9 030550 000207

z;;s

GET INDEX FROM TRIBLS

PC,LDRCLS

sGET INDEX

PC,GETIND

:LOAD R3 WITH BYTE [NDEX

INDEX,R3

LO‘D LIST WITH COUNT

DVRCT,DV"CLS(RS)

:RETURN TO CALLER

UNLOAD DVRCT LIST

s INPUTS:
:

TRIBN = NUMBER OF LINE IN USE
DVRCLS= VALUE OF DRVCT

DRVCT = COUNT VALUE FROM LIST

GETIND

ULRCLS = UNLOAD RX COUNT LIST
s FUNCTIONAL DESCRIPTION:
THIS ROUTINE UNLOADS THE VALUE TO DVRCT FROM
3
THE SLOT IN DVRCLS INDEXED BY TRIBN
:

4783
4784

s OUTPUTS:

4785

4786

; SUBORDINATE ROUTINES USED:

4787

4788

s CALLING SEOQUENCE:
JSR
3

4789
4790

030552

004737

031102

007642

030556 013703
030562 116337 007602 010110
4795
4796 030570 000207

4794

LSBTTL

:00

4780
4781
4782

4793

PAGE 137

LDRCLS = LOAD RX COUNT LIST
: fUN(YlONAL DES(RIPYION
THIS ROUTINE LOADS THE VALUE FROM DVRCT TO
H
THE SLOT IN DVRCLS INDEXED BY TRIBN
:
TRIBN = NUMBER OF LINE IN USE
s INPUTS:
DRVCT = COUNT VALUE TO GO TO LIST
:

4761
476
476

4774

14:01

LOAD DVRCT LIST

.SBTTL

2;28

477%

23-DEC-B2

LOAD DVRCTY LISTY

SEQ 136

ULRCLS: JSR

MOV

MOVB
RTS

PC,ULRCLS

PC,GETIND

INDEX ,R3

DVR(LS(RS).DVR(‘

GET INDEX FROM TRIBLS

sGET INDEX

;MOVE INDEX TO R3

LIST
sUNLOAD
:RETURN TO CALLER

CZKkMSAQD kMS11-BD/BE gSLT

CZKMSA. P

23-DEC-B2

13:54

23-05(-82

MACY1Y 30A(1052)

D CPTR LIST (TRANSMIT POINTER)

LOAD CPTR LIST (TRANSMIT POINTER)

LSBTTL

2;3;
4799

14:01

PAGE 138

LDTPLS = LOAD TX POINTER LIST

4800

: FUNCYXONAL DESCRIPTION

480
480
4804

:
: INPUTS:
: OUTPUTS:

tuE TX POINTER LIST INDEXED BY TRIBN INDEX.
TRIBN = NUMBER OF LINE IN USE
CPTTILS = SLOT LOADED WITH CPTR DATA

4806

GETIND

4801

HIS ROUTINE LOADS THE VALUE FROM CPTR TO

: SUBORDINATE ROUTINES USED:

4805

: CALLING SEQUENCE:
:
JSR

4807
4808

GET INDEX VALUE FROM TRIBLS

PC.LDTPLS

;GET INDEX

LDTPLS: JSR

Pc.cstino

23}9

LSBTTL

UNLOAD CPTR LIST (TRANSMIT POINTER)

4819

4818

: runcvxouAL DESCRIPTION:

482

: INPUTS:

4824

: SUBORDINATE aoutlnss USED

4811

030572

004737

031102

4«81 038576 013703 007640
4813 030602 013763 010154 007562
:g}g 030610 000207

MOV
MOV
RTS

ULTPLS = UNLOAD TX POINTER LIS

TOIE gouvxue MOVES DATA FROM TX POINTER xs

:ggg

*MOVE lnotx 10 R3
INDW,R
CPTR.CPTTLS(R3) :LOAD LIST
aevuau TO CALLER
PC

TRIBN = NUMBER OF LINE IN USE

= VALUE FROM THE TX POINTER LIST

: OUTPUTS:

(PTR

4825

GETIND

= ctt INDEX FROM TRIBLS

4827

JSR

PCLULTPLS

4830

ULTPLS: JSR

4«82

: CALLING SEQUENCE:

4826

¢8%9 030612 004737 031102

4831 030616 013703 007640
4832
4833

030622
030630

016337
000207

007562

010154

MOV

MOV
RTS

P(.GE!;NO

INDW,R

:GET INDEX

:MOVE WORD INDEX o R3

CPTTLS(R3),CPTR ;GET PTR FROM LiS
atluau TO CALLER
PC

SEQ 137

139
PAGE
14:01
23-DEC-82
30A(1052)
MACY1?
.54
25L13
KHS11-§DIOE
CZKMSAD
COUNT)
(TRANSMIT
LIST
DVTCT
LOAD
23=DE(~
CIKMSA.P11

LOAD DVTCT LIST (TRANSMIT COUNT)

2352

.SBTTL

4837

4838

:
:

THIS ROUTINE LOADS A VALUE FROM DVTCT 10
THE TX COUNT LIST (DVTCLS). INDEXED BY TRIBN.

484
484
4844

i INPUTS:
:
: QUTPUTS:

TRIBN
DVT(!
DVTCLS

4846

;

GETIND

: fUNCT IONAL osscaxpr;on

4839
:gz?

: SUBORDINATE aourxues useo

4845

4847
4848

: CALLING SEQUENCE:
JSR
:
.

:gls.g

4851

osoegg

004737

2332

030650

000207

4852
4853

=
-

031102

013703 007642
030636
030642 113763 010072 007612

LDTCLS: JSR

MOV
MOVB
RTS

LDTCLS = LO D TX COUNT LIST
NUMBER OF LINE IN USE
CURRENT TX COUNT FOR LINE
SLOT LOADED WITH DVTCT
GET INDEX FROM TRIBLS

PC,LDTCLS

PC,GETIND

:GET INDEX

*RETURN TO CALLER

‘MOVE BYTE INDEX TO R3
INDEX,R3
DVTCT.DVICLS(R3): LOAD LIST

SBTTL

UNLOAD DVTCT LIST (TX COUNT)

4859

;

THIS

4861
486

: INPUTS:
P OUTPUTS:

TRIBN
DVICT

= NUMBER OF LINE IN USE
= TRANSMIT COUNT VALUE

4864

GETIND

JSR

PC,ULTCLS

2339

ULTCLS = UNLOAD TX COUNT LIST
n
: *FUNCTIONAL oescanprno
ROUTINE TAKES DATA FROM DVTCLS AND MOVES

4858

4860

IT T0 DVICT

: SUBORDINATE ROUTINES USED:

486

4865

i CALLING SEQUENCE:

4869 030652 004737 031102

ULTCLS: JSR

4866

4870 030656 013703 oorcas
4871 030662 116337 007612 010072
2g;§

030670

000207

MOV
MOVB
RTS

GET INDEX VALUE FROM TRIBLS

PC,GETIND

:GET INDEX

;RETURN TO CALLER

‘MOVE BYTE INDEX TO K3
INDEX,R3
DVTCLS(R3),pvrCT’

E 0 138

CZKMSAD KHS\\- D/BE

CIKMSA. P11

23-DEC~

3-DEC-82

MACY1? 30A(1052)

14:01

PAGE 140

ALL RX POINTERS FROM LIST TO CPTRR

GET ALL RX POINTERS FROM LIST TO CPTRR

23;2

LSBTTL

«877

4881

: OUTPUTS:

GARPFL = GET ALL RX POINTERS FROM LIST
: FUN(IIONAL DES(RIP!!ON
ALL RX POINTERS FOR VALID LINES
CHMECKS
ROUTINE
WIS
:
xu CPTRLS AND MAKES SURE THEY ARE ALL ZERO.
:

4878
4879
4880

:gg

CPTRR = ZERO IF ALL CPTRLS IS ZERO

NON ZERO IF NOT,

4884
4885

: SUBORDINATE ROUTINES USED:
GTIVIND = GET VALID INDEX
:

4887
[3.1.1.)

¢ CALLING SEQUENCE:
.
JSR
.

2388

4891
4892
4893

030672
030700
030706

013737
012737
004737

4898

030732

001765

4894
4895
4896
4897

4899

4900

ULRPLS

4886

030718
03072
030722
030726
03073¢

030742

007636
177777
03040

010176
007642

010176

007636

022737 000010 007642
oo1«gs
004737 030454
005737 010152
013737

000207

GARPFL: MOV
MOV
GARP1: JSR

(MP
BEQ
JSR
187

BEQ

GARPEX: MOV

RTS

« UNLOAD CPTRR LIST TO CPTRR
PC,GARPFL

TRIBN, TEMPS
#-1, INDEX

PC,GTVIND

#8., INDEX
GARPE X
PC,ULRPLS
CPTRR
GARP1

TEMPS, TRIBN

:GET VALID INDEX

:COMPARE INDEX
SEXIT IF DONE
.LOAD CPTRR WITH VALUE
STEST THE VALUE
S1F 2ERO CHECK NEXT

;RETURN TO CALLER WHEN DONE

SEQ 139

KN
CZKMSAD KMS11-BD/BE
CIKMSA.P11
23-DEC=-B2

DCLT
13:54

MACY11

30A(1052)

zs-oec 82
14:01
PAGE
1
GET ALL TX COUNTS FROM LlSY 10 DVTCT

490
490
4904

LSBTTL
GET ALL TX COUNTS FROM LIST TO ovrcr
:RETURN WITH DVTCT=1 [F ANY COUNT HAS SOME IN IT
:1F ALL COUNTS ARE ZERO EXIT

4907
4908
4909
4910
4911
491
491

; FUN(T]ONAL oiscalptlou
GATCFL = GET ALL TX COUNTS FROM LIST
;
THIS ROUTINE GETS AND CHECKS ALL TX COUNTS TO BE ZERO
: OUTPUTS:
DVTCT = ZERO IF LIST IS ZERO
;
NON ZERO IF NOT
; SUBORDINATE ROUTINES USED:
;
GTVIND
GET NEXT VALID INDEX
: CALLING SEOUENCE:

<908

23}‘;

4916

030744

013737

007636

4918

030760

005037

010075

030770

022737

000010

4917

4919

4920

030752

030764

4921
4922

030776
031000

4924
4925
4926
4927

031010
031012
031020
031026

4923

031004

012737

004737
001410
013703

105763

001765
012737
013737
000207

177777

03040

010176
007642

007642

007612

000001
010176

010072
007636

JSR

GATCFL: MOV
GATC1:

PC,GATCFL

TRIBN, TEMPS

MOV

#-1, INDEX

JSR

PC,GTVIND

CLR

OVTET

;CLEAR COUNT

CMP

#8., INDEX

:1S INDEX =8 ALL DONE

1ST8

ovtcLS(as)

BEQ
MOV
BEQ
MOV
GATCEX: MOV
RTS

GATCEX
INDEX,R3

GATC1
#01,DVTCT
TEMPS, TRIBN
PC

SGET VALID INDEX
:1F SO EXIT

;1S THIS COUNT 0

:1F THIS ONE IS ZERO
PLOAD
COUNT WITH A 1
;RETURN TO CALLERR

SEQ 140

L n
CZKMSAQ KHS\\-gDIBE SSL
CZKMSA.P11
13:54
23-DEC~

MACY11 30A(1052)

23;8

23-0!(-82 14:01
PAGE 142
GET NEXT TX POINTER FROM LIST

.SBTTL

GET NEXT TX POINTER FROM LIST

14e

4935
49
49
4935
493

; FUNCTIONAL DESCRIPTION:
GNTXPR = GET NEXT TX POINTER
;
THIS ROUTINE GETS THE NEXT TX
POINTER TO CPTR
: OUTPUTS:
CPTR = POINTER FOR NEXT TRANSMIT MESG
: SUBORDINATE ROUTINES USED:
;
GIVIND =
GET VALID INDEX

28;3

4937

4940
4941
494

4943
4944

031030

031036
021040

0310646
031058

022737

001003
012737

004737
022737

4945
4946

031060
031062

001767
004737

4948
4949
232?

031072
031074
031100

001756
004737
000207

4947

031066

005737

007642

GNTXPR: CMP

177777

007642

GNTX2:

030402
000010

007642

ca..luoex

Txi
0-1 INDEX

PC,GTVIND
a..xnoex

ovicT

BEQ
JSR

030612

BEQ
JSR
RTS

010072

PC,GNTXPR

JSR
CMP

.SBTTL

;1S INDEX = DONE

GNTX2
PC,ULTCLS

:GET COUNT FROM LIST

GNTXPR
PC,ULTPLS
PC

*RETURN TO CALLER

GET

STEST COUNT

;UNLOAD POINTER

INDEX BYTE AND WORD

e
; FUNCTIONAL DESCRIPTION:
GETIND = GET INDEX FOR WORD AND BYTE
:
THIS ROUTINE GETS INDEX LOADED WITH INDEX AND INDW WITH INDEX
:
FOR WORD. IF TRIBLS ENTRY IS EQUAL TO TRIBN
: OUTPUTS:
INDEX = BYTE INDEX
:
INDW
= WORD INDEX
: CALLING SEQUENCE:
;

4964
4965
4966
4967

031102
031106
031110
031114

012703
005203
022703
00177;

4970
4971

0311§e
031132

010337
006303

4973

GNTXT:

BNE
MOV

030652

4961

4972

JSR

000210

4952
4953
4954
4955
4956
4957
4958
4959
4960

4968
4969

CALLING SEQUENCE:

031116
031124
03113¢

031140

126337
001370
010337

000207

177777

GETIND:
GETIT:

000010

007622
007642

007640

007636
GETI2:

JSR

MOV
INC
CMP
BEQ

#-1,R3

MOV
ASL

as INDE X

RTS

CMPB
BNE
MOV

PC.GETIND

:LOAD ns WITH =1
:BUMP R3
ca. R3
:ARE WE ALL DONE
GETIND
:1F SO GO BACK
talaLS(as) TRIBN ;ELSE COMPARE ron THIS LINE
GETIT
:BRANCH IF NOMATCH

a . INDW

:STORE OFF BYTE INDEX
*MAKE UP WORD INDEX
:STORE OFF WORD INDEX
:RETURN TO CALLER

SEQ 141

nn
CZKMSAOD KMS11-BD/BE
DCLT
CIKMSA.P11
23-DEC-82 13:54

23;

MACY11 30AC1052)

23-DEC-82 14:01
PAGE 143
LOG AND QUE REC BUFFERS

SBTTL

4978

LOG AND QUE REC BUFFERS

; FUNCIIONAL DESCRIP!!ON

0GAQR = QUE AND LOG RX BUFFERS

23;3

;

4981
498
498
4984
4985

i INPUTS:
CPT a - POINTS TO POINTER TABLE ENTRY
: IMPLICIT OUTPUTS:
:
BUFFER QUEUED FOR THIS ENTRY
¢ CALLING SEQUENCE:
;
JSR
PC,LOGAGR

4988

4989

4990
4991
4992

4993

4994
4995
4996

xs ROUTINE oususs THE REC BUFFER POINTED TO BY

031142

01sro;

010152

LOGAQGR: MOV

031152
031156
031162

012237
011237
011237

010104
010172
010106

MOV
MOV
MOV

031146

031166

031172
031176
031202

011237

010237

004737
004737
000207

010170

010152

064174
024200

MOV

JSR
JSR
RTS

CPTRR,R2

:LOAD R2 FROM POINTER

(R2)+,DVRXA
(R2), TEMP3
(R2) .DVRCC

:SET UP ADDRESS OF RECEIVE BUFFER FOR DEVICE
:SET UP CHAR COUNT FOR LOGGING
:SET UP COUNT FOR DEVICE

PC.DVRXQ
PC,LOGRXQ
PC

oueue
REC BUFFER
:L0G RXQ
SRETURN TO CALLER

(R2), TEMP2

R2,CPTRR

:SET UP ADDRESS FOR LOGGING

:LEAVE POINTER POINTING AT CHAR COUNT

SEQ 142

CZKMSAOD xns11-gD/aE gSLT

CZKMSA.P11

23-DEC-82

13:54

MACY11 30A(1052)

23-DEC=82 14:01

SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS

LSBTTL

2333

5000

¢ FUNCTIONAL DESCRIPTION:

5001

SHWOP = SHOW MODE OF OPERATION,

;

sooi
$005

: INPUTS:

5008

;

5006
5007

gg?g

:
:

DEVi=
DEVe=

MODE TYPE (MODTYP)
MAINT LOOP TYPE (MLTYP)

DEV4=

PARAMTERS WORD (PARAM)

DEV3=

“'RUN PASS'* COUNT (RPASS) = COUNT DOWN

: IMPLICIT INPUTS:

§011

MODES= TABLE OF ADDRESSES OF MODE NAME STRINGS

LOOPS= TABLE OF ADDRESSES OF LOOP TYPE NAMES

so1§

28}4

§015
5016

¢ CALLING SEQUENCE:
JSR PC,SHWOP
-

5019
5020
5021
5022

SHWOP:

2018 031204 013702 011470
010164

MOV
ASL
MOV
MOV

DEV1,R2
R2
MODES(R2) ,TEMP
DEV2,R2

016420 010172

MOV

#LP00, TEMP3

031210 006302
031212 016237 003334
031220 013702 011472
031224

ooeso;

5024 031226 012737

5025 03123¢ 005702
5026 031236 001003
5027 031240 012737 016417 010172
5028 031246 016237 003352 010166
5029 031254 013737 011474 010170

5030
5031
5032
5033

031262
031262 013746 010170
031266 013746 010166
031272 013746 010172

504

012737

5034
5035
5036
5037
5038
5823
041

LOOP, QULAIFIERS

PRINTED ON THE OPERATOR'S CONSOLE.

388‘

5023

SEQ 143

PAGE 144

031276
031302
031306
031312
031314
031316
031322
ostsga

013746 010164
012746 017170
012746 000005
010600
104416
062706 000014
005002

016477

ASL

010164

:LOAD TEMP3 TO POINT TO '‘/LOOP="'

MOV
MOV

PSEE IF /LOOP=XXXXX OR NONE
:"BR IF /LOOP= OF SOME KIND
*1F NO LOOP THEN DON'T PRINT *‘/LOOP="'
#LPO, TEMP3
LOOPS(R2),TEMP1 ;GET ADDRESS OF LOOP-IN-ASCII
*GET NUMBER OF PASSES
DEV3, TEMP

CLR

ST
BNE

108%:

:GET THE MODE TYPE IN R2
:MAKE IT A WORD TABLE OFFSET
:GET ADDRESS OF MODE=-IN=ASCII
tGET MAINTENANCE LOOP TYPE

MOV

R?
108

TEMP2
MP,
TEMP3, TEMP1,
PRINTS #SHF(,TE

MOV

#PST, TEMP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
:NOW SET UP FOR QUALIFIERS IN ASCII
:SEE IF /STATUS OR /NOSTATUS

031332 032737 000001 011476

BIT

#STATB,DEV4

010164

MOV

#PNST, TEMP

5048 031364 001003
5049 031366 012737 016506 010166

BNE
MOV

2%
#PNCK, TEMPY

BR IF /CHECK

oorogs
012737

BNE
MOV

3$
#PNEC, TEMP2

‘BR IF /ECHO

5043

5044

5045

031340 001003

osas&s

012737

016475

5046 03135 015737 016510 010166 1$:
50647 031356 032737 000002 011476

5050 031374 0127§7 016520 010170 2%:
5051 031402 - 032737 000004 011476
5052
5053

03141
031412

016516

010170

BNE

MOV
BIT

#PCK, TEMPI
#OATCKB,DEVG

#PEC, TEMP2
#ECHOB, DEV4

‘BR IF /STATUS

;SEE IF /CHECK OR /NOCHECK

:SEE IF /ECHO OR /NOECHO

TEMP2,=(SP)
TEMP1,=(SP)
TEMP3,=(SP)
TEMP,=(SP)
#sHFQ, - (SP)
#5,-(5P)
SP.RO
CSPNTS
#14,5P

ger13:54
xns11-go/a:
_CZKMSAQ
23-DEC-BZ
“3v4SA.P11
i
056 031420 8137;7 816527
5057 031406
5058 031434
3823 031436

5061

031444

33;5

0315064

soeg
5063
5066
5065
5066
5067
5068
5069
5070

031444
031450
031454
031460
031464
031470
031474
031476
031500

032737
001923
012737

013746
013746
013746
013746
012746
012746
010600
104416
062706
000207

B 12

000010

10176
011476

016525

010176

010176
010170
010166
010164
017226
000005
000014

145
PAGE
14:01
23-DEC-B2
MACY11 30A(1052) SHOW
TYPE AND QUALIFIERS
LOOP
OPERATION,
OF
MODE
3$:

MOV
BIT
BNE
MOV

#PMS, TEMPS
#MOCHK , DE V4
13
#PNMS , TEMPS

5%:

PRINTS

#SHF1,TEMP,TEMP1,TEMP2,TEMPS

RTS

;SEE IF MODEM OR /NOMODEM
:BRANCH IF MODEM

:RETURN

: ,TEMP3,TEMP4 *+RFU*+

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

TEMPS,=(SP)
TEMP2,=(SP)
TEMPT .=(SP)
TEMP,=(SP)
#SHF1 ,=(SP)
#5,-(SP)
SP,RO
C$PNTS
#14,5P

Q 144

¢ 1

146
14:01LINEPAGESUBROUTINES
23-DEC-B2COMMAND
MACY1? 30A(1052) TRAVERSE
LY
CZKMSAOD xns11-go/ae
23-DEC-82 13:54

CZKMSA.P11
gg;g

LSBTTL

507

;00

sg;a
|

079

5080
3831

RizACIION CODE PARAMETER FROM TREE
.
R3=PARSE TREE POINTER
R4=INPUT STRING POINTER

¢ CALLING SEQUENCE:

5088

5089
5092

031506

5095
5096
§097
5098
5099
5100
6101
210;
103

031516
031520
031522
031s§e
031530
031532
03153¢
031540
031544

5093
5094

PSNUM=NUMERIC CODE FROM DATA

R1,RS5=SCRATCH

:
:
:

085
goae
087

5090
5091

STAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE
;panaézg agggcrlous FROM *'CLI PARSING NODESTM

goas

P$TRV SUBROUTINE

‘PARSE THE COMMAND LINE SUBROUTINE

;

soaf

TRAVERSE COMMAND LINE SUBROUTINES

031506
031512

01370&4
013703

003364
003366

105714
001441
121327 000013
003023
111305
006305
016505 031550
062705 031550
004715

g}gg 031546 000763
§106 031550 000114

PSTRV

P$TRS:

108:

JSR

PC.PSTRY

MOV
MOV

R4
PSBUFA,
P$TREE ,R3

BR
LMORD

P$TRS
TRVERR=-10%

T1STB
BEQ
CMPB
BGT
MOVB
ASL
MOV
ADD
JSR

"WORD

(R&)
PSEXIT
(R3),M1.
208
(R3),RS
RS
108(RS) ,RS
#108,RS
PC, (RS)

TRVEXI=10%

031552

000134

5109 031556
5110 031560

000162
000204

‘WORD
"WORD

g11§
113

0%1564
031566

0604
000650

‘WORD
"WORD

TRVALP=-10%
TRVALN-10%

5119
gtzo
121
12;
15
126
125
126

031576
031600
031602
ogtoog
031610
031614
ostogo

121314
001403
004737 031646
ooora;
004737 031626
062703 000004
oos;ga

208 :

(MPB
BEQ
JSR
BR
JSR
ADD
INC

(R3),(R&)
22%
PC, TRVBRC
P$TRS
PC, TRVACT
#4.R3
R4

000207

PSEXIT: RTS

5107

'WORD

§108 031554 000152

5111

031562

5114 8;1570 000270
031572 000256
§115
2119 031574 000736
5118

}3; 031622 000735

129 031624

"WORD

000270

"WORD
"WORD
"WORD

22%:

B8R

;SEE IF ANY CHARS LEFT IN INPUT STRING
:BR IF NO
*SEE IF SPECIAL CLI CHAR CODE OR ASCII
‘BR IF REGULAR ASCII CHAR,
SGET SPECIAL CHAR CODE INTO RS
:BUILD TRAVERSE ROUTINE ADDRESS
;JSR TO SPECIAL CLI TRAVERSE ROUTINE

:GO SEE IF MORE OF STRING LEFT
:TRAVERSE TABLE FOR '‘CL1 FUNCTIONS'
0

TRVBR=10%

TRVNUM-10%

TRVBIF=10%
TRVSPA=10%

TRVOCT-10%
TRVDEC-10%
TRVSTR=-10%

P$TRS
PC

:
4

:6
7

:8
9
110
:NOT A SPECIAL CODE

:SEE IF FIRST CHAR OF STRING IS A MATCH
‘BR IF A MATCH
*1F NOT A MATCH, GO TAKE MISS BRANCH
* THEN GO BACK PT'G TO MISS NODE
‘1F A MATCH, GO DO ACTION DEF INED BY
S ACTION CODE IN CLI NODE, THEN
* ADJUST PTR TO NEXT CLI NODE
*ADJUST BUF PTR TO NEXT CHAR [F MATCH
:RETURN FROM PARSER

Q 145

D12

CZKkMSAO kMS11-BD/BE

23-DEC-82

CZKMSA.P11

%LT

13:5¢4

MACY11 30A(1052)

5151 i 0316 g 11630 099001
13

42702
513, 0316
§135 031636 013705
5136 031642 00471

E} ; 031644

17740
00337

23-DEC-82

MOV
JSR
RTS

SGET ADDRESS OF CLI ACTION ROUTINE
:GO DO ACTION DEFINED BY CODE
*RETURN TO CALLING CODE

:GET BRANCH DiSPLACEHE T FROM TREE

fRYNOB: ADD
RTS

#4,R3
PC

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

§144

1‘8

ACTION CODE FROM CL! NODE
:GET
:CLEAR ANY SIGN EXTENSION

2(R3) ,RS

fRVBRC: MOV

5145 031656 062703 000004
g}zg 031662 000207

PSACT,RS
PC, (RS)

:TAKE BRANCH IN TRE

§140 8 1646 816%05 000002
1652 060503
2141
s}:g 031654 000207

SEQ 146

PAGE 147

TRAVERSE COMMAND LINE SUBROUTINES

ROUTINE
+GOTO USERMOVBACTION1(a3)
R2
TRVACT:
2177400, ,R2
BIC

000207

139

14:01

ADD
RTS

:NO BRANCH TAKEN

RS,R3
PC

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

'---.--.-----------------------------------------‘.---------. ........ o e om G aw g e e

5149
§150
5151
g};g

031664
031670
031676
031700

004737 031626
112737 177777 003401
005726
000137 031624

TRVERR: JSR
move
131
JMP

#-1,P$GDBD
(SP)+
PSEXIT

;TAKE ERROR ACTION
*SET ERROR RETURN FLAG
‘GET RID OF '"JSR PUSH TO TRVERR'
TRETURN DIRECT TO EXIT OF PSTRV ROUTINE

§154

0317064

004737

031626

TRVEX]: JSR

PC, TRVACT

:TAKE EXIT ACTION

JSR

PC,TRVACT

:G0 TAKE BRANCH ACTION

TRVBIF: JSR

PC, TRVACT

P$GDBD
18
TRVBRC
TRVNOB

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

(R&) , M1
2%

SSEE
:BR IF NO, NOT A TAB

5155 031710 105037 003401
5156 031714 005726
g}g; 031716 000137 031624

5159 031722

g}g?

031726

51e§

031732

5163
5164
5165
S}gg

031736
031742
031744
031750

004737 031626
000137

031646

oo«r;r

031626

105737 003401
0014 ;
031646
0001
000137 031656

2168 031754 005005
121427 000011
5169 031756
5170 031762 001003

§171 031764 005204

C(LRB
1ST
JMP

TRVBR:

18:

§175
5176
§177
§178
5179
5180
5181
g\&i
183
5184

18:

151427
001003
005204
005205
oog 64
005705
0014
004737
000137
000137

(MPB
BNE

000040

031626

°i'° ¢

031646

28:

108 :
15%:

P$GDBD
(SP)+
PSEXIT
TRVBR(

INC

1770 000772

031772
031776
032000
032002
032004
032006
032010
032012
032016
032022

1ST8
BEQ
JMP
JMP

TRVSPA: CLR

517§ 8 1766 oos;gs
g};‘

JMP

PC,TRVACT

CMPB
BNE
INC
INC
B8R
157
BEQ
JSR
JMP
JMP

(R4) , #40
10%
R4
RS
1%
RS
15%
PC, TRVACT
TRVNOB
TRVBRC

:SET GOOD/BAD FLAG TO ‘'SUCCESS (00
:GET RID OF ""JSR PUSH TQO TRVEX]'
:RETURN DIRECT TO EXIT OF P$TRYV ROUTINE

OR TAB FOUND'' FLAG
:CLEARIF *'SPACE
CHAR, IN CMD LINE= TAB
SINC INPUT STRING POINTER
SINDICATE A TAB FOUND
16O CHECK NEXT CHAR

:SEE IF CHAR. IN CMD LINE= SPACE
‘BR IF NO, NON=SPACE OR NON-TAB CHAR.
TINC INPUT STRING POINTER
SINDICATE A SPACE FOUND
160 CHECK NEXT CHAR
SSEE IF ANY SPACES OR TABS FOUND
‘BR IF NO, TAKE NO ACTION
260 TAKE ACTION IF ANY FOUND
1JUST GO UPDATE R3 TO NEXT NODE IFf Ok
STAKE BRANCH (MISS) IF NONE FOUND

E 12

. £Q 147

148
14:01LINEPAGESUBROUTINES
23-DEC-82
30A(1052)
MACY1?
gt!
E
kMS11-BD/B
CZKMSAD
COMMAND
TRAVERSE
13:54
23-DEC-82
CZKMSA.PIN
5185

E
;CTAL)
1:
aon:
DEFAULT
SINCE
A§R¥=c:un
J??Ane
TRVOCT
o
82
803137
343
0
3}3{
+
ASSUME
AND
RADIX
AS
OCTAL
:USE
,PSRADX
#8.
MOV
5189 8 040 012737 000010 003376 TRVNUM:

6186 032026

012737

5190 032046 005005
§191 032050 121427
519§ 032054 001001

5193

012 003376

000053

032056 00040

§201

:USE

TRVNMA: CLR
(MPB
BNE

RS
(RG) '+
10$

*CLEAR DIGIT COUNTER
SSEE IF THERE'S A ¢ SIGN THERE
: BR IF NO

T X+1
#=1,PSRAD
R&

1 widddp
v ¥ "MINUS
FLAG'' (Ml BYTE OF PSRADX)
SSET
‘BUMP R4 TO POINT TO FIRST CHAR

118:
1%:

szog
§203

5204
5205
§206
§207
5208
5209
§210
5211
szlg
5213
g%}g

032104 121427 000067

032110
032112

032120
032122
0321%6
032130
032130
032134
032140
032142
032144
032150
032156

003656
123727

003376

001417
121427 000071

000012

012746 014105
012746 009001
010600
104417
062706 000004

177777 003401

12%:

§216 032160 121427 000071
5217
5218
5219
g%g?
§222
5223

§224
§225
§226
5 57
5008
5 gg
52
5231
223;
233
253«
35
5236
5237
223&
239

5240

032164
032166
032170
032172
032174
032176

032200
032202
032204
os$$1g
032212
032216
032522
032 ga
032232
032236
0 s 40
032244
oss 6
032254
osgzsb
032264

032266

003003
005204
005205
000741
005705
001464

010401
160501
005037
11510
162702
oogs
103437
013737
337
103431
0022 7
103426
123727
001004
063737
103416

060237

138:
2%:

003374
3s:
000060
003374
003374 003372
003374

003374

003376 000012
003372

003374

e
MOVE

INC
CMPB
BLY

003374

4%:

: ELSE PSRADX ALREADY SAYS ¢, JUST BR

adan

(MPB

(R&) ,#60
2%
(R&) ,#67

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

BEQ
CMPB
8GT
PRINTF

12%
(R&) ,#71
2%
#CLIBRX

BLE
CMPB

003022

112737
000474

#10.,PSRADX

e
035050 06106¢ |0053
2196
2196 0 gooe 112927 177777 003377

g}gg 032074 005204
§199 032076 121427 000060
5200 032102 002434

DECIMAL AS RADIX AND ASSUME

TRVDEC: MOV

: BR IF YES
SSEE IF IN DECIMAL MODE

138
PSRADX,#10.

MOVB
BR

#-1,P$GDBD
5%

:BR IF YES (CAN USE HIGHER LIMIT)
SSEE IF DIGIT WAS A 8 OR 9
:BR IF NON=NUMERI(C
SELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX
#CLIBRX,=(SP)
MOV
#1,-(SP)
MOV
SP,RO
MOV
CSPNTF
TRAP
#6,5P
ADD
:SET ERROR RETURN FLAG
:"PRINT ERROR AND TAKE MISS

8GT
INC
INC
BR
ST
BEQ

2%
R&
RS
1%
RS
5%

SBR IF YES (NOT NUMERIC)
SUPDATE CMD LINE PTR TO NEXT CHAR.
SINDICATE A NUMERIC FOUND
:GO LOOK AT NEXT CMAR.
;SEE IF FOUND ANY NUMERICS
‘BR IF NO, TAKE 'MISS" BRANCH

CMPB

MOV
SUB
CLR
MOVB
SUB
ASL
BCS
MOV
ASL
BCS
ASL
BCS
CMPB
BNE
ADD
BCS
ADD

:SEE IF CHAR., GREATER THAN A ‘9

(RG) 871

R&,R1
PENUM
(R1)+,R2
#60,RS
PENUM
7%
PSNUM, PSCNT
PENUM
7%
PENUM
7%
PSRADX,#10.
‘s
PSCNT,PSNUM
7%

RS,R1

R2,PSNUM

‘GET POINTER TO START OF NUMERIC STRING
;CLEAR LOC. WHERE VALUE WILL BE STORED
SGET ASCII CHAR AND CONVERT IT TO A #
_
:SHIFT CURRENT VALUE TO MAKE ROOM
SERROR IF NUMBER T00 BIG
SSAVE FOR LATER IN CASE DECIMAL RADIX
;ERROR IF NUMBER T00 BIG
;:ERROR IF NUMBER T00 BIG
SSEE IF DECIMAL RADIX
‘BR IF NOT EQUAL
:ERROR |F NUMBER 100 BIG

E SLi13:54
CZXMSAO KxMS11-BD/B
23-DEC-B2
CZKMSA.P11
5241

032272

F 12

B(S

10341

DEC
?gga
BEQ

S ki 032274 002 o?
?8; §§ 003377
2 24 80 % 58
04 00168;
5245

003374
0054
0047§7 031626
000137 031656

5246
S%&T
gzzg
§250
S%S\

03 OS
03% |
032316
032322
Og g 2

5253
5254
5255
sgss
222;

032332
032334
032336
03234
032350 000137 031646

5 sg 032326

5259

5260

032354

015746 014063
(12746 000001
010600
104417
06%706 000004
112737 177777 003401
005005

5261 032356 121427 000101
SZbg 032362 002406
6263 032364 121427 000132
5264 032370 003003
5265 032372 oosso«
5266 032374 005205
5267 032376 000767
5268 032400 005705
5269 032402 001404
6270 032404 004737 031626
6271 032410 000137 031656
g%;g 032414 000137 031646
6274 032420 005005
§275 032422 121427 000060
5276 0326%6 002417
277 032430 121427 000072
§278 032434 003003
§279 032436 005204
5280 032440 005205
§281 032442 000767
sza; 0324446 121427 000101
528 ossas 002409
§284 032452 121427 000132
3285 032456 003003
zag 032460 005204
§287 032462 005205
5288 032464 000756
005705
5289 0%26
2290 032470 001404
291 032472 004737 031626
529§ 032476 000137 031656
sgg‘ 032502 000137 031646

8595

5296

149
14:01LINEPAGESUBROUTINES
23-DEC-82COMMAND
MACY1! 30A(1052) TRAVERSE

15%:
7%:

5%:

NEG
JSR
JMP
PRINTF

MOVB

JMP

TRVALP: CLR

(MPB
CMPB
BGT
INC
INC
Fif
187
2%:
BEQ
JSR
JMP
JMP
3%:
TRYALN: CLR
(MPB
10%:
BLT
(MPB
BGT
INC
INC
Ek
CMPB
1%:
BLT
(MPB
BGT
INC
INC
S5
1St
2%:
BEQ
JSR
JMP
JMP
3%:
1%:

BLT

7%
RS
1
3:anox
15%
@

PSNUM
PC, TRVACT
TRVNOB
#CLINBG

:ERROR IF NUMBER TO0O0 BIG

SEE IF NUM WAS PRECEDED BY A = SIGN
; BR IF NO

: ELSE NEGATE THE NUMBER BEFORE LEAVING
*SINCE NUMERIC FOUND, GO TAKE ACTION
:G0 POINT R3 TO NEXT NODE
:PRINT NUMBER TUO BIG ERROR
#CLINBG,=(SP)
MOV

MOV

MOV
TRAP
ADD

#1,-(SP)
SP,RQ
CSPNTF
a6 ,SP

#-1,P$GDBD

:SET ERROR RETURN FLAG

SSEE IF CHAR. LESS THAN A '‘A"
:BR IF YES (NOT ALPHA)
*SEE IF CHAR., GREATER THAN A *‘7"
:BR IF YES (NOT ALPHA)
SUPDATE 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
STHEN UPDATE R3 TO NEXT NODE =NO BRANCH
:NONE FOUND, TAKE MISS BRANCH
;CLEAR ALPHANUM FOUND FLAG,
:SEE IF CHAR, LESS THAN A 0
:BR IF YES (NOT NUMERIC OR ALPHA)
:SEE IF CHAR., GREATER THAN A ''9"
:BR IF YES (NOT NUMERIC)
SUPDATE CMD LINE PTR TO NEXT CHAR,
:INDICATE A NUMERIC FOUND
=3
:G0 LOOK AT NEXT CHAR,
SSEE IF CHAR., LESS THAN A "‘A
S
:BR IF YES (NOT ALPHA)
*‘Z
A
THAN
GREATER
:SEE IF CHAR.
:BR IF YES (NOT ALPHA)
sUPDATE CMD LINE PTR TO NEXT CHAR
:INDICATE AN ALPHA FOUND
;G0 LOOK AT NEXT CHAR.
:SEE IF ANY ALPHANUM'S WERE FOUND
:BR IF NO
:1F ANY FOUND TAKE ACTION
STHEN UPDATE R3 TO NEXT NODE =NO BRANCH
*NONE FOUND, TAKE MISS BRAN(CH

TRVBR(

(R&) ,#101
$
(R&) ,#132
2%
R&
RS
1%
RS
3%
PC,TRVACT
TRVNOB
TRVBR(
RS
(R&) ,#60
2%
(RQ) 872
1%
R4
RS
108
(RG) , 4101
2%
(RG) ,m32
2%
R4
RS
10%
RS
3%
PC, TRVACT
TRVNOB
TRVBR(

TTAKE "MISS'" BRANCH

;CLEAR ALPHA FOUND FLAG

a 14

’

6 12
CZKMSAQ xn511
D/BE
SL
CIKMSA.P11
23-DEC-B2
13:54

5297

§
8 §11
5¢99 0
5300
5301

032516
0

032526

5308

032542

g oi

5304
5305
5306
Sg07

03252¢

10401

§ ;og

00 9
105715

000206

003372

001411

105711

5309
gggg

032544
032546

oos;os
000765

§312
5313
5314
5315
5316
5317
5318
gggg

032550
032554
032556
032560
032564
032570

005737
001406
010104
004737
066303
000207

003372

032572

000137

031646

5373

005201

MOV
ADD

R3,.RS
#6,RS

;POINT R1 TO CMD STRING

BEQ

10$

‘BR IF YES

CLR
1ST18B
1STB

001407
121115
oo1ogs
0055 7

5322

2%:

003372

R4 R

:POUNT RS TG MAICH STRING FROM CLI NODE

psgnt
(RS)

SCLEAR CHAR MATCH COUNT
SEE lF END OF MATCH STRING YET

(R1)

BEQ
CMPB
BNE
INC

108
(R1),(RS)
10
PSCNT

INC
BR

RS
2%

INC

:SEE 1r END OF CMD LINE YET

‘BR IF YES
sSEE lF CHARACTERS MATCH
‘BR IF NO
HAVCH =INCREMENT MATCH COUNT

1ST
BEQ
MOV
JSR
ADD
RTS

PSCNT
15%
R1,R4
PC,TRVACY
4&(R3) ,R3
PC

158:

JMP

TRVBR(

; ............... e

*UPDATE STRING POINTERS

:BR TO CONTINUE CHECKING CMARS.

108:

031626
000004

SEQ 149

23-DEC-82
14:01
PAGE 150
TRAVERSE COMMAND LINE SUBROUTINES

TRVSTR: MOV

032530
0325
032534
0 g 6

5321

MACY11 30A(1052)

e e P TR W B WD W E

:WHEN DONE SEE IF ANY MATCHES FOUND
‘BR IF NO, GO TAKE THE MISS BRANCH
;POINT CHD POINTER TO END OF STRING &
s1F A MATCH FOUND, GO DO MATCH ACTION
UPDATE R3 TO NEX! NODE (NO BRANCH)
: (NO RETURN THRU TRVNOB SINCE DIFFERENT
s
DISPLACEMENT DUE TO MATCH STRING)
P GO TAKE BRANCH
D

(PARS[D OK) -1

DS S S

SS
S e e

lLL N sssan
e @

e W

@ as e

H 12

et e

151
PAGE
14:01
23-DEC-82
30A(1052)
MACY1'
gSL}3°Sk
KHS\\-?DIBE
(ZKMSAQ
SECTION
CODING
REPORT
23-DEC
CIKMSA.P1
.SBTTL

g %g
5326

REPORT CODING SECTION

5327

g g

: "PRINTSTM CALLS THAT GENERATE STATISTICAL REPORTS.

: THE REPORT CODING SECTION CONTAINS THE

5328

1 032576
s§
S
3235 032576
b)

6§33 032576 004737 024644
ggg;
5339
5340
5341

5342

032602

5343 032602
5344 032602 106425

)

LSRPT::

BGNRPT

JSR

ENDRPT

PC,REPORT

;CALL SUBROUTINE TO DUMP EVENT LOG
: AND BASE TABLE OR TO GET LINE STATUS

L10013:

TRAP

CSRPY

112

CZKMSAQ KHS\\ D/BE SLI
CZKMSA.P11
23-DEC-

MACY11 30A(1052) 23-DEC-82
PROTECTICN TABLE

14:01

PAGE 152

g 22

SBTTL

5347
5348
5349
5350
5351
SSS;

iee
: THIS TABL E IS USED BY THE RUNTIME SERVICES
: TO PROTECT THE LOAD MEDIA.
;==

232‘

032604

5%55 03%60‘ 177777
5356
ggg;

032606
032610

5359
5360

032612

PROTECTION TABLE

BGNPROT

032604

177777
177777

SEQ 151

-1

-1
-1
ENDPROT

LSPROT::

sOFFSET INTO P-TABLE FOR (SR ADDRESS

sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS
;OFFSET INTO P-TABLE FOR DRIVE NUMBER

J 1

CZKMSAD xns11-go/ae

CZKMSA.P11

23-DEC-82 13:54

MACY1Y 30A(1052)
LSBTTL

2?%

: AT THE BEGINNING OF EACH PASS.

5?22

:--

3?2; 03261
2398 Oggbls

032612

005037 00324

oos?gr 01021
S§3737; o§§e1s
001423
0326

§374 032624 005037 010212
5375 osgb 0
g ;g 032630 104444
§378 032638 012737

177777

000040

032660
032660
032664
032666
032666
032670
osser‘
032674
032700
oszros
03270

012700
104447
103417
012700
104447
103514
012700
104447
1osog;
000137
012700
104447
103552

032706
oggr1g
032712
032714
032720

005037 010214
104433
005037 010254
012702 010250

5389
§390
5301
s39§
§393
5394
5395
53906
§397
5398
§399

03264
032640
032644
032646
032646
032650
032650
032654
032656
032656

010214

gaoa 032724

000037

MOV

#-1,RESFLG

READEF

033646

$1:

000035

000100

START

WEF .RESTART
RESTRT

#EF .CONTINUE

GE TPRM

NEW

CSDCLN

:SET RESTART FLAG

‘1F HERE CAUSE OF START,DO SOME INIT
#EF .START,RO
MOV
(SREFG
TRAP
START
BCS
:1F HERE CAUSE OF RESTART, DO SOME INIT
#EF .RESTART,RO
MOV
CSREFG
TRAP
RESTRT
BCS

:SEE IF WE'RE MERE CAUSE OF A CONTINUE
#EF . CONT INUE ,RO
MOV
CSREFG
TRAP
:BR IF NOT HERE CAUSE OF CONTINUE
1
BCC
;JMP IF HERE CAUSE OF A CONTINUE
SSEE IF THIS IS A "NEwW PASS'
#EF .NEW,.RO
MOV
CSREFG
TRAP
SETUP
#
LOGUNIT
AROUND
BR
YES,
:1F
NEW
BCS

#CLKCSR,R2

:CLEAR RESTART FLAG SINCE HERE ON START
SINIT ENTIRE BUS
CSRESET
TRAP
IN
FLAG
A
AS
PTR.
:CLEAR CLK VECTOR
: NO CLOCK IS FOUND.
SSETUP R2 AS A PTR. TO CLOCK INFO BLOCK

$2
BNCOMPLE TE
PC,CLKSETY
JSR

($CLCK
TRAP
RO,R1
MOV
: IF NONE THERE GO LOOK FOR A P=CLOCK
S
8CC
VEC.
CLk
&
TABLE
: GO SET UP CLOCK INFO

CLR

RESFLG

CLR

CLKVEC

BRESET

MOV

Lok

010260

TRAP

#EF .START

BCOMPLETE

START:

*BRANCH
SCLEAR CLEANUP REQUEST SPECIFIER
:60 CLEAN UP

1
BNCOMPLE TE
ENDIT
JMP
READEF #EF .NEW

B8R

1046462
410 032730
411 032732 010001
41; 0327
103
41 8§ 73
853773
0047
736
614

012737
000457

KEYWD1
DCLFLG
INITT
DCLFLG

BCOMPLETE

000036

LSINIT::
;CLEAR USER COMMAND SPECIFIER
EXIT REQUESTED ?
SCLEAN UPIF AND
NOT

CLR
ST
BEQ
CLR
DOCLN

READEF

409 83 724 012700 000114

5615 032742
5416 032750

INIT1:

BGNINIT

BCOMPLETE

28? 032704 000524

saoi
40
06
5405
2‘
407

INITIALIZE SECTION

P THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

§379
5380
5381
sug
6383
5384
5385
sggo
§387
§388

SEQ 152

PAGE 153

;00

5364

§371

23-DEC-B2

INITIALIZE SECTION

14:01

MOV
B8R

LRI

#LCLKEN, CLKEN
RESTRT

$LOOK FOR A LINE CLOCK

MOV

#'L,RO

‘SETUP THE ENABLE LINE CLOCK DATA

K 12

CZKMSAD KkMS11- D/BE_%%L 1
CZKMSA.P11
13:5¢4
23-DEC

5617
5618
5619

0
0

5% g
5
5626
5625
5426
5627
5428
gz 8

03276
032762
032764
032770
032776
8; 004
018
033020

5431

033055

620
421

5632
5633
5636
5635
5636
5637
5438
5639
5640
5441
5642
56443
5446
5645
5446
5447
5448
5449
5450
5651
5652
5453
5656
5455
5656
5457
5658
459

4«60
56461

gbbi
463
464
465
465

522;

75%
7;

032756
032760

012700

104462
010001

000410

033070
033070
033074
033100
033102
033104
03;110
033114
8;?130

012746
012746
010600
104417
0627?9
0050
0050;7
81%7 4

Og31
033142
033146

018 ;
02 g
001373

033150

CLOCK

000120

JSR

ADD

MOV
SUB
MOV
BR

$3:

104407
010254
010250

MOV

GMANID

104443
000406
010256
00005
01655
000377
000062
000074

;LOOK FOR A P=CLOCK SINCE NO LINE CLOCK

PC,CLKSET

IF NONE THERE GO SEE 1gczuxs I§SLSI

;LOAD CLK SET REG. WiTH COUNT VALUE
sPOINT CLKCSR BAC TO P=-CLK CSR
;SETUP THE ENABLE THE P=CLK DATA

RESTRT

;READ BUS TYPE

#CLKEN,CLKCSR

TO SEE

IF ON AN LSI
TRAP
CSRDBU

:BR IF NOT, NO CHANCE OF A CLOCKS‘

;LOAD 100 AS CLK VECTOR
;LOAD 0 AS CLK INT. LEVEL

sKLUDGE UP THE

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

CSR & ENABLE

DATA LOCS

TRAP

CSGMAN

.WORD

CLKHZ

S&:

016671
000001

RESTRT

PRINTF

#BDCLK

100008:

.WORD
WORD
.WORD
LWORD
JWORD

MOV

RESTRT:

010266

MOV

1%:

012737

010206

470 03%1as Q93937
24 03%195 002367

002012

CLR
CLR

NEW:

GETPRM:

TIMMIN
TIMSEC

MOV
MOV
TRAP
ADD

:LOAD TICKS/SEC

CMP
BNE

R2,#EVTEND
1%

;SEE IF REACHMED END OF
:LOOP UNTIL DONE

MOV

#-1,L0GUNT

;INITIALIZE LOGICAL UNIT #

INC
CMP
BGE

LOGUNT
LOGUNT,LSUNIT
NEW

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

#EVTLOG,R2
R2,EVIPTR
#-1,(R2)+

10000%

TS$CODE
L5060
377
TSLOLIM
TSHILIM

#BDCLK,=(SP)

#1,-(SP)
SP.R
CSPNTF
#4,SP

;CLEAR TIME SINCE START LOCATIONS

CLKHZ, TIMTCK

MOV
MOV
MOV

#'P,RO
(CSCLCK
RO,R1

;POINT CLKCSR TO P={LK COUNT SET REG.

#PCLKCT,aCLKCSR
#2,CLKCSR
#PCLKEN,CLKEN

#100, CLKVEC
CLKBR

MOV
TRAP
MOV

; ELSE GO SET UP CLOCK INFO & VECTOR

#2,CLKCSR

READBUS

MOV
CLR

SEQ 153

PAGE 154

PRI

BNCOMPLE TE

103021
012737
005037
012737

01 70;
010;3

14:01

BNCOMPLE TE

103017
004737
062737
012777
162737
012737
000433

0330
033024
033024
033026
0330
033040
033046
033046
033050
033052
033054
033056
033060
033062
033064
033066
033066

126
033132

)
23-DEC=82
126 SECTION

sINIT EVENT TABLE TO ALL 1'S AFTER EACH
: START OR RES AND INIT TABLE POIN'ER
TABLE

L1
CZKMSAOD KMS11-BD/BE gstt
CIKMSA.P11
23-DEC-82
13:54

5473
5474
5475
5476
§477
32;3

03317
03317
033176
033200
og os
033202

gzgg

033204

013703
10444
010001

MACY1? 30A(1052)
23-DEC-82
INITIALIZE SECTION

GPHARD

010206

000001

010222

MOV

§48

%’:’.%z.
033212
033213

011137
011137

012372
013374

MOV
MOV

5488

osszie

011137

013376

MOV

033244

062737

033222

5489
5490

033232
033240

5492
5493
5494

005237

013374

062737
011137

000002
013400

033252
033256
0332664

011137
062737
011137

013402
000004
013404

5496
5497
5498

033276
osssos
033310
033314

011137
062737
011137

062737

013406
000006
013410
000007

013410

5501
5502

033322
033330

016137
016137

000002
000002

5504
gggg

033344
033352

016137
016137

000004
000006

5491

5495

3233

§503

033270

033336

062737

000003

000005

000006

013376
013400

013404

033360
033362
033366

005005
012704
012777

5515
5516
5517
5518
5519

03%210
033412

022605
00145

§522
5523
gsza
525
526
527
528

;FULL DUPLEX ONLY

BseLf

ADD
MOV

#2,SEL2
(Ri).as§L3

(R1),SEL2

ADD

#3,BSEL

ADD

#5,BSELS

(R1), SEL&
06, SELL
(R1),BSELS

MOV
ADD
MOV

(R1),SELG
#6,SEL6
(R1),BSEL7

013412
013414

MOV
MOV

2(R1),INVEC
2(R1) .OUTVEC

013416
013426

MOV
MOV

013406

ADD

013414

ADD

:STORE AWAY CSR ADDRESSES

#7,BSEL7

#4,00TVEC

4(R1),INTPRI
6(R1) ,MODCSR

JSTORE AWAY INPUT INTERRUPT VECTOR

;BUILD OUTPUT INTERRUPT VECTOR

JSTORE AWAY INTERRUPT PRIORITY
:STORE AWAY MODEM CSR (DM11-BA) ADDR

sINITIALIZATION CODE = LOAD FIRMWARE INTGC XMC-118

§509
$510
5511

§520
5521

(R1),SELO
(R1) [BSEL1

INC

MOV
ADD
MOV

013402

gggg

ss1§
5513
5514

;GET THE P=TABLE FOR THIS LOG. UNIT
MOV
LOGUNT ,RO
TRAP
CSGPHRD
MOV
RO,R1
;1F NO P=TABLE AVAIL., GO GET NEXT ONE
BCC
GE TPRM

sDEVICE DEPENDENT PART OF GETTING INFO FROM P-TABLE

§485
5486

5487

GETPRM

#1,FHDPLX

SEQ 154

PAGE 155

LOGUNT,R1

BNCOMPLE TE

103365
012737

14:01

0333764
033400
033406

010577
011477
017702

033660

002000

160002
160002
157776

033415
033420

010537
016437

010170
177776

033432
osscsg
033442
03%246
033446
osg:s

012746
012746
01
09
10441
062706

053660
000001

012746

053720

033426
0334 g

033452

010237

010174

000004

157776

LDFIRM: CLR
MOV
MOV

28:

MOV
MOV
MOV

CMP
BEO
010172

MOV
MOV

MOV
PRINTF

PRINTF

#DDCMPS R4

#RAMO, 3SELO

RS,aSELL
(R4) ,9SEL6
aSELS,R
(R&G)+,R
108

;SPECIFY INITIAL CRAM ADDRESS
:POINT TO KMS FIRMWARE IMAGE
SSPECIFY LOAD CRAM

‘WRITE CRAM ADDRESS
:WRITE IMAGE WORD TO CRAM
*READ BACK WORD JUST WRITTEN

sIF WORD READ BACK IS WORD WRITTEN
:THEN CONTINUE LOADING
sFAILURE LOADING FIRMWARE
RS, TEMP
:SAVE CRAM ADDRESS
-2(R4) ,TEMP3
:SAVE WORD LOADED

RZ, TEMP4
OFiRHLD

:SAVE WORD READ BACK
sPRINT FAILURE MESSAGE

#DATAHD

sPRINT HEADER

MOV
MOV
MO
TRAP
ADD

#F IRMLD
, = (SP)
#1,=(SP)
SP RO
CSPNTF
#4,5P

MOV

#DATAHD
, = (SP)

M2
SAO KMS11=BD/BE

A.P11

DCLT

2§-oec- 2 13:5¢

033456

012746

000001

;

033466
0
73
033472
033476
033502
0 sog

062706

000004

013746
013746
013746
012746

010174
010173
01017
053771

516

010600

062706

VITAWVAN NNV VIR
AN
NIANNAWN
WVAWVWAWVIWAWTAWM
VIV VAWV
VIV
WV ANV VIV AN
VAWMV AW VIV
NI
VIV WNESES IS0 S
o
SNNNNNNNNNNO

01 033464
0 463 01060
10441
S

ga
9

0
1

&
S
g

033512

szg

033526
0 sge
033530
033530
033532

012746
106417

MACY11 30A(1052)

23-DEC-82

INITIALIZE SECTION
PRINTF

14:01

:
155
SEQ

PAGE 156

#DATALD,TEMPZ2,TEMP3,TEMP4 ;PRINT DATA

000004

MOV

MOV
TRAP

#1,=(SP)

ADD

#6,5P

MOV
MOV
MOV
MOV

TEMP4
, = (SP)
TEMP3,=(SP)
TEMP2,=(SP)
#DATALD,=(SP)

MOV

SP RO

MOV

TRAP

000012

DOCLN

104444

;G0 CLEAN UP

BREAK

104422
000712

ADD

SP
RO
CSPNTF

#4,=(SP}
CSPNTF

#12,5P

TRAP
CS$DCLN
JALLOW OPERATION INTERVENTION VIA CTRL/C
TRAP
C$BRK
;RETRY LOADING FIRMWARE

LDF IRM

INC
CMP

sCONTINUE LOADING FIRMWARE
RS
;UPDATE THE CRAM ADDRESS
#DDCMPE R4
sTEST FOR DONE

SETVEC

CLKVEC,#CLKINT,#340

3
0
1
g
;

SAESR FELS

S
&
7
8
9
1

9
0
1

005205
022704

033544
033544
033550
033554
033560
033564
033566

012746
o1§746
013746
012746
104437

033542

03357%
033572

033576

033602
033606
033612
8%3616
3620
033620

ossbgg
033

033634

033640
033642

3 EREE

033534
033536

ogscco
033646
033646
033652

001314

053660

000010

013746

013%16

013746
012746
104437
062706

01341
00000

013746

013414

10443
062706

SETVEC

;SETUP CLOCK VECTOR

INVEC,#DVINS, INTPRI

SETVEC

OUTVEC,#DVOUTS,INTPRI

067214

ADD

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

MOV

000003

SETPRI

#PR100

;SET THE

#340,=(SP)
#CLKINT,=(SP)
c§xvec.-<sp>
#3,-(SP)
CSSVEC
#10,5P

INTPRI,=(SP)

#DVINS,=(SP)

INVEC ,=(SP)

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

INTPR],=(SP)

#DVOUTS ,=(SP)

MOV

OUTVEC ,=(SP)

TRAP
ADD

C$SVEC
#10,5P

MOV

000010

000000

MOV
MOV
MOV
MOV
TRAP

MOV

ENDIT:
012700
104441

$LOOP TIL FIRMWARE LOADED

:DEVICE DEPENDENT VECTOR SETUP

000010

013416

012749

067204

013746

01;766

BNE

000340
024022
010254
000003

062706

012746

108:

XSV
“'RUN'* PRIORITY T0 0
MOV
TRAP

#3,-(SP)

#PR100,RO
C$SPRI

N 12

CZKMSAQ KMS11-BD/BE

CZKMSA.P1N

DCLT

2§°DEC-g% 13:5¢4

033660

MACY1? 30A(1052)

14:01

23-DEC-B2

INITIALIZE SECTION
EXIT

INIT

«NLIST

BEX

DDCMPS:

;0000

SEQ 156

PAGE 157

;KMS=11/8D DCLT MICRO CODE IMAGE
BLOCK #

6
7

0
1

2
2
1

0
0
]
2
0
3
4

2
2
5

:
1

0
4

1
7

Me=NMOAIO =N AN=MOAUIMN = O NYO T T NIO—NINNIS OOMN

""‘.""....“.‘.‘.....’.".

S % % 8 % 8 8% % 8% % 8% 8% % % S 8 8N S % & & &% % % 8% & 8% 8% 8 8

000,

01,

INITIALIZE SECTION

23-DEC-82
DCLT

MACY1? 30A(1052)

2?-05(-%5 13:54

CZKMSAO kMS11-BD/BE

2
BLOCK #

14:01

PAGE 158
CZKMSA. P

;1000

SEQ 157

8 13

- VOO WYNOVOVO VVINMOO VO —ONO ONnO MO

OVON
— 0 —M
O=
ITMMOOO0OO
OOO
=N
MIO
VONONO
V~O
OOO
NON
O—OO0
UIMMO
NMe=N
IO—MMOTOOO
TWMAN
WNOMN
0000000000000 00000000000000000

MNOO TM 3 VN0 OVNO O T OMNNE OITNVNITVUN OO0 OM T
50000000000000000000000000000000

—-——OrO000000~O0r~OO0~O00~O0000~—0000

PAGE 159

:2000

BLOCK #

(1 1§

14:01
23-DEC-82
JE SECTION

RRPP

MACY1? 30A(1052)
DCLTY
CZKMSAD KMS11= D/BE
2
CZKMSA.P1

'..‘."l"‘l"l."l."‘00"0.00.

€ € CCCCCCECECCECECCCCCECECCCCECCCECCCECTC
—FOTMNO T T O T OMNN A NN OO ONNNO ONO O =N

Neee—egO O O3 MONOITONOOOITMIOO NMe—

6000

SEQ 158

c 13

D13

2820Ec-82 13:54

CZKMSAD KMS11=
CZKMSA.P

MACYTY 3? A(1052)
? E

23-DEC-82

14:01

NITIALIZE SECTION

: 3000

BLOCK #

SEQ 159

PAGE 160

MOTONOOOWVNINANONMA I IT—ANTOOO—~O0OO0O0O0ONN

23-DEC-82

0000000000000 0000000000000000000

0000000000000 00000000000000000

00
00000
00000
00000
s
CECCTC
CCECCCC
ECCCCCE
CELCECC
CECECEC000
CCCECCC00000
€00000

TOOT]
IMIOINN[=l=l=1
OO TOIITOU
NOT— MM
TOOOOVOITOOIII
OVIOOOIWNOMNII
MO
felel=l=l=l=l=l=]l=l=]l=]=]el=]=]elelelelelelelelelele]le]le]olo]=]=-)
0000000000000 00000000000000000

1-1-1-1-1-0-1-0-1-Y=-Y-1=-Y-Y-Y-Y-Y-)
1-1-1-1-1-1=Y=1=1=1=1=1=1Pys
ca
aaaxaaca
araaaaaa
0
000000
000000
0 000000
000000
000000
000621
1004 34

00
0

PAGE 161
14:01
NITIALIZE SECTION

280k¢

? E
MACY1? 3? A(1052)
CZKMSAD KMS11- D/BE gCLI
-82 13:54
CZKMSA.P11

5
BLOCK #

;64000

SEQ 160

E 13

Ne=MO == ONOOITNMMO = —MO VO VO OO NMe=Me—M—

= ONNO=NITNO—NOONM VOONO—MOO—M

00000
00000
0 0O000CECCCETC
0000
0000
CEs
ECTCTCTC
€0000
S S 00
S SSESS
NSNS
S
S
% S S 8 ECECECEC
% % % % 8ECECECEC
% & % % %CCECECEC
©CCCCCCCE

€ S€CCCCC
S CCECCECCTCECCTCce
% S S S CCECCC
& % 8% 8 %EECCCC
% & % & CCCECC
000 00000
CECTCTC00cC
CCECCCE00000
CECCCECECCCECE
CCCCCCE00000
€00000

MM O OMI — OOONMOO—OMNO—OMO MOOO

0000000000000 00000000000000000

(==

INITIALIZE SECTlON2

MACY11 30A(1052)

2?-05(-35 DCLT13:54
CZKMSAO kMS11-BD/BE

6
BLOCK #

16
PAGE
14:01
23-DEC-82
CZKMSA.P11

:5000

SEQ 161

F13

G 13

052) 23-DEC-B2 14:01 PAGE 163
BD/BE DCLT13:54 MACY11 30A(]
CZKMSAQ_KMS11-23-DEC-82
INIT IALIZE SECTION

CIKMSA.P11

;6000

BLOCK #

061660

123313 0004
063236
.WwORD “0123313,*
406,%0 63236,.°0 _ 410,°0 63237,°0_ _ 417,%0 61233,0100222
041700
0406
g
10932?
0028
g
.WORD
“0
406
g.‘0107322.‘0
g.‘0121$73,‘01;§§66.‘01146
3.‘0131§7g.‘01 g%“
061720 1144
0 0408 0622
.WORD *01144
0 _ 400,06
.0 84 17,40 70216,%0 2320%,%0 ‘g 6%.’01 1434

041740
0461760
042000

1126 &
09 2
070000

020660
8 646
590

1120364
063237
40 ?0

.WORD ‘011?6 4,*0 20660,°0112034,0100434,“0
622,‘0 88% .‘013 713,%0
‘02
.WORD *0 9 36,0
__446,%0 63237,%0
417,%0 615 .~010022¢2,0123300,*
41
.WORD “0 70000,“0 2;;90.‘0 40 ?0.‘01116%0.‘0 4002,%0 70213,%0 2417,0100434

042040
042060
042100
042120
042140
042160
042200
042220
042240
042§60

2234
0 5668
00;‘
063061
0031
0612
076602
004006
057660
1000?7

096
077221
82
S
61
043400
1000
07021
0406
077§ 1
123337

63236
017 gO
063121
004017
06325;
8766
04002
112164
000406
12 312

.WORD “0
62234,*
406,*0 63236,°0
00,40 3
7,°0
413,°0 2153 .‘010906
.WORD *0 4418.‘0 77221,%0 17300,%0 5662 .0 77 53.‘0 14000,%0 57303,%0 & 2%7
.WORD “0
3400,°0 63235,%0 63121,0 63155,0 gSl 1.%0 63155.%0 63151,‘0 63155
.WORD “0 63061,°0 63061,*
6g17.‘0 10055.%0 7021.‘0 57035,0111130,40110531
WORD “0 3132.‘ 43400,%0
63 2;.‘0
609.‘0 932 6.0
542,°0 63237,°0 _ 414
.WORD *0 612 .‘0100008.‘0 6603,%0 76607,%0 76615,0
0,40120700,“0 76601
.WORD “0
76602,*0 70213,%0 4002,%0 16416,%0 62620,40100434,40137300,40 50220
.WORD *0 4006,*0 696 0.‘011216‘.‘0102434.‘0 70200,*0 600;.‘0 16400,%0 17200
.WORD *0 57660,°0 772¢21,*
406,0 63236,“0 _ 601,%0 63237,0
413,%0 61233
+WORD “010 0?7.‘0123 7.‘0123312.‘0
519.‘0 7?016.‘0111207.‘0110610.‘0 64077

042020

042300
062320
062340
042360
042400
042420
062440
042460
042500
042520
062540
062560
042600
042620
062640

20780 8

043233
043227
076603
016401
100222
042611
000407
076692
000406
042677
000735
014000
0?2606
137304
063224

016777
016777
076604
002400
120700
064 2;1
061233
00;622
063236
06;720
063237
062613
000406
016410
000407

bg 6

04 2%
043220
076606
00060?
00%16
063606
100312
100434
000717
000407
000413
002622
063236
000407
063226

.WORD *“0 g gO.‘O

6.0 60676.°0 62; 4,%0 g 21.‘0 60701.,0

g.‘O

.WORD “0 43233,%0 16777,°0 522 .*0 16777,%0 43224,%0 16777,%0 43226,0 16777
.WORD “0 &3227,%0 16777,%0 43220,%0 _2777,*0 70216,%0 64217,%0 43222,%0 76613
.WORD “0 76603,°0 76604,%0 76606,%0 72627.‘0 62600,0 4003.“0
500.*0 70005
.WORD “0 16401,*0
2400,*0
609.‘0 632 9.‘0
651,%0 63237,*0
_417,%0 61233
.WORD “0100222,40120700,*0 216 .0 6;66 .*0 56701,%0 5610.‘0 3005.“0 70005
.WORD “0 426411,%0 & §1.‘0 63606,%0 6 285.'0
406,%0 63226,*0
673,%0 63227
.WORD “0 _ 407,%0 61233,%0100312,%0 164 g.'o 76605,0 16400,“0 16400,%0 76601
.WORD “0 76602,°0
602.‘0100634.‘012531 .*0 16420,0 14000,40 17200,%0 43260
417,%0 61233,40100222.%0 3177
717,%0 63237,
36,°
406,°
WORD “0
.WORD “0 42677,“0 42700,*0
407,*0 70013,*0 600;.‘0 +3233,0
406,*0 63236
413,“0 61233,%0100067,*0 14000,40 14000,%0 14000
735,0 63237,*0
.WORD *
.WORD “0 14000,°0 62613,%0
402,%0 63;26.‘0 4023.“0
500,40 70005.0 16402
.WORD *0 2;304.‘0
406,%0 63236,0
60,0 63237,0
417,%0 61233,°0100222
.WORD “0137304,°0 16410,°0 = 407,*0 70004,%0 65611.“0111767.‘0100634.‘0 60606
407,%0 61233,%0100312
400,%0 63227,*0
407,%0 63226,*0
.WORD “0 63224,°0

NE
BREEER
R REREEE
M EEEEEEEREEEREEEREERE
OVNONO
© e e 30O OMNONNOOO3 NNY

00
00000
00000
000 00000
00000
"00‘
..."
....
‘..".'".
"""“00000

OOOOOOONOOOOOOOOON

T OO M Ve
= OO
OOV~OI
- TOOV
-

Mfl&fi%flfi%«fi%%%fl%%fi%%fl“mmm&uw

AR A A A A AAR

001161
20

NITIALIZE SECTION

MACYTY

23°06¢-8 E\h L
CZKMSAD kMS1T
CZKMSA. P11

-3

PAGE 164
14:01
23-DEC-B2
? E;
3? A(105
| 1

8
BLOCk #

:7000

SEQ 163
W13

PAGE 165
14:01

23-DEC-82
MACY1Y 30A(1052 )
INITIAL 17 SECTION

23°0EC-82 13:54

CZxMSAD kMS11
A
.P
CIXKMS

BLOCK #
;10000

3.
O0O0O0OO==MNVO—Or—
NMOOOOPOOOO0O
—e—00e
g g g - -~ - —
- 00000AA
00000
oooo0
ooooo
ooooo
ooooo&.QAA
.AAA.
"00
.‘..
‘...AA‘AA
.."“QAQ.A
.“..A.Q.A
..."AA.AA
"'..

.01

582552858220 2o2 NE825 N ES

0
0
0
0
0
0

SEQ 164

113

—VOOVONNCOTYO)YVTV=1V[ON
NOTMSNINTNBOOOOOONIMNNONEION—INOOOINOIVITEOWNOTO3MTIZ3OOV3MIWIrNNWZ0MISVOONI—VNO~NNMIIONMNOMIINONO OZNOITIVSIITOTIUIOMIMNSIWAMOOTTNIIVAO—ISTOVIIMMT=OSO0INWINO OVMNNMIOTO-OOSII~N=INTNMINIO=NOIOMNNZVMTToTAOIOnNMTINMYMOIOVM-NI~IEOFIwNTINS OIN
ONANOVe=Oe—OMO¢M MOI=OTWVMNIOMWONOAINTYVMAITNIOOVTOVMOONITN

‘&OMONOINNTIOVO=M7O“‘O0N7O0ONITNONSOOONNNIOOMOAON
6m2‘6
(elelelelele]

ONN

BOM3PO3OI3TMe3=33TOM3O 3IW3N3ON3OM3eN—3IT3IO3FN3TTO3N3TO M=MOOM
CZKMSAD kMS11-BD/BE
CZKMSA.P1

29°0EC-88-13:54

“02460

Aaslal’a

400

0632

MACYTY

TFONVMNMIITNP~OIVMNOWONNIOTVN~OWOO AMINANITMIONON—OMNMNIOONN 000000000000mooooTacaaaaacaacaa(xcacacaY-1-1-1-Y1-0-1-1-0~-1-1-0-0--1--0-0-0-0-1=~-1-7-1-1-1-1-1-1-Y)QTc€CCCEEE00000000000 ISWNOOOITMIITMONMNOMWN—OMNMIONON8&S%8 OITW~VN&M—NININMVNSMTNITWSWYS AOUNNFWOT=N—WMNTMNO =N3O—0ONOMONWVION—MNINONEN
YO=~1—-N1=OO01=1=1T=1VO=1=P

J 13

3? A1 ?zf )
23-DEC-B82
NIT
IZE SECTION

;11000
BLOCK #

*0
*0

€¢

*0
*0 1

14:01
PAGE 166

SEQ 165

K 13
CZKMSAQ KMS11CZKMSA. P
25-DEC

3°0EC-Be 13:5¢

MACYTY 3? A(1052)
? E
23-DEC-82
NITIALIZE SECTION

BLOCK #

SEQ 166

PAGE 167

‘0‘637056‘%70622672ONTWNIOWNO

gTOAoOCTltNOMNo0INOlOTNo0NOOlSVN0oO~Vl0MO=oON0AO[D~0leOOl0NeOl00aMIOlONeJlM~IeOlTe0OOlNe=0TlOeDOVMd0eOOl~e0lIOOe0WlNNOeM~l~=eO=lA~MeOOlo~Ml0eNOlM0edOWeE0Ml=~Ne
OTaNJOT0OIOaTN~0WONCavWOI MOS30OaON0M0aNOMWSO0NVaOTM0IOaMI0TONaOM0O0aV0OcMN0WaT0VNM0aI0TxO0INcY0OaM=0NE0OIT0T0NMON0I0NTM0INO0E

;12000

14:01

~TNMOOe—VOMOON—VNOIYTANNIONMOONT—FTOv0O"N0OOONIT—=O—O~eON

3ONMOWNMONVINTOI—TONTOMTTOMNOTNOVOOONT NWVNONONITONIOT~INO O

[eleleleloleleleclelelelelelolelelelelelelelelelelelelelelelele] ‘176O0N%OW6ON0VNO0O7MN OCO0O0O0O0O0O0O0O0O~Or~O00O0~O~O000~00 e&2"0.9®oLBIIIIIIIIIIIIIII3 CecC€CcCcQaCcCaCcsO0000000000000O0O0O00 IOTWNONONOVOMNOIWTITOIO—OM 8%OAS5sT -— 58S%&as0 MONOTNOVIONIWIMNTN =V~O—NOrFOeTreO=rYAIVNT |-o—
1.

o -— o

MMOWNONIOTO0TMNNOF—MCOMMNNMO)NIOONIT~N—TIINVNIOT~INVM=NT—OIVWMNNOODINOMM—TDMWMONNVIITTNNOVO=MOAOMNWNVONVTTOOTON
e"E"0——e0o—5OOOe<CCCO—Nl—‘.<E0LI0Co0CC.N"EOO‘C0'o0C0MCEON.TT.M0CC0Eo0CTOCSOC.0o.CR0OCOEC“0.0oOC"OC0‘EICO'O0IoC.CO0.CO“C.0oMOCC0fOCTJM.D"0Cl0CIRoTOM—OC.OA0Cfr—IOM3FCCN0‘i0DT—oFOC"O0CI0O“NvC.TOT0CW.0—0NoA=CCITIN"C0“MCN0TTOMI0‘0ICoMOC—V.CTMNOCTI00OVeO.~N—CC‘M0OC—OOE"OMENN".N00NMOCOCIOOA'.0TCNTOTrCC‘c0N0OT.E"EMW0CAOMcN¢=".N.c0M0VOeCr0‘‘NI"O€€€0O.O0T-NO€=—
o.'040ALCsl."t0QCO“0C.CO0AC".CO"'TOC.‘C'.OC.!TOC""OT..3ICTAO6O‘.r~0O"OC=rMD.Tr—SO.—CrT0vTO01'—'EA=OC0T=.WM.TVMCW‘"EOI0~SNTO0Cr.TE0MNQ—c"‘rO0C—O.vT0.‘=cO0eI0NOOT¢M"0.O€00
W
O
N
O
N
O
I
T
O
N
I
M
N
I
I
O
36 1 53545712760000000000000077

r1O~-|1—| Oo1NrTOPW1OrPNvOPITOWOOoV0IcWlITVOv0WcIOlAO0NFOT0=OOMT0NOOV~M0OOIOMONTOAOD0—
O-oNOON0~=OVVOONNOIOOON0OANOOOOOOI—N—ONT—ONNOVO=—TMNVNOOMMIMNWONN=IOMeANOTMO=INIONONWVNWO=—IV(NTONNONMONeO—ON=VO=NOOUMF=MMNOMNOOINO==VNNTINNMOONOIS=NTNT=

-=—_0 0T\OIOTOOOTIMTMOOIWTVNIWNLAOM=1TN

6O «7—O1N=%NOOM—OONOOMNOOMOOVNO=rN—r
SITI I IO=FTl=—VlOOeIlNINe0lTTeIOlO0elVOeSl0OeONle0MI ITlOe=Tl0eOlIMo~tr=]Oi0 ~N02
CZKMSAQ KMS11+ D/BE
CZKMSA.P1
2

g-oec-gz 13:5¢4

047 1

SISPITSTS

n
n
n
72
72
72
72
7300
7 320
7 340
7 360

000000
000000
000000
00
00

000000

DCLY

0
0000
00000
0
0

MACY11 30A(1052
2)
23-DEC-82
NITIALIZE SECTION

INITIAL
;13000
BLOCK #

14:01

e-— OV -ONwr—-er= O 0

L 13
PAGE 168

SEQ 167

ONMTM=INIW

CZKMSAC KMS11CZKMSA.P11

et 3
2 13:54

MACYT 3?& (1052)
? E
23-DEC-82
ITIALIZE SECTION
;14000

BLOCK #

14:01

PAGE 169

SEQ 168

SOTONONANANOVOMOONOOITIMMEMO=N

NOMOVVN—MNOOOOMM«—M

O N ~ O0 VrOTNO N RO OO0Or N0

-0000000000oP0-e €CCCCCCCCCCCCCCcCcc0000000000e— O(NOTN—OMNO—MO TV7aONWl1oO6s~ov o052[1586=086170
[se

06323

N 13
CZKMSAQ KMS11CZKMSA.P1
25-DEC

3°0EC-B2 13:5

MACYT? 3? A(1052)
? E

23-DEC-82

NITIALIZE SECTION

gdgoldoldeleleleleleleleleleleleleldoldelelelel(el

;15000

BLOCK #

14:01

SEQ 169

PAGE 170

- - - —— —

0MOOO0NM0NOO00M00M00—0M0O0M00T1O10F1M=NOOTOOOIT

NVOITOOVVOVOVYOV—YW=ON —N—

[elelelelelelelslélelolelelelelelelelelelelelelelelelelelelelele

YAaTt"lllla’a) MeNONMWAOIO~MOMIOOM VOVNTOMNOITN0OITOVO~OOITIO OCO0O0rrO000O0O00O0O0~O0000O0 0e®2&o"L5BI0II0II0TII0ITI0II0ITI0II0II00000%0(4004-.-[aY~Y=~Y=Y~Y~Y~Y=Y~Y~Y~YoVoYaYaVaVaYaYalalaYaYalalaYaYaYaYaYaYaTa) 0000000000 00000000000 MOMTV—=NIOMOMN—IMONOOI~IOINAMNN

8 14

CZKMSAQ KMS11
CZKMSA P11

D/BE

DCLT

2300¢ 881554

(1052)
MACY1? 30A(1052

3-DEC-82

seCTion.
IACIze SECTION
N ITIALIZE
;16000

BLOCK #

14:01

PAGE

SEQ 170

-0 WOV ~NOOOV—VO O ITO~Or=e—Ov

- === = = MO NN O = = OO NMOM = OMN M= NO O ONMO

IO
& FTVWAWN S SO ONININ F OO TOO0OOWNOITINNITNANIN

€ 14
CIZKMSAD KMS11CIKMSA.P11

23°0E¢c-82 1354

MACY1 3? A(1052)
? E
;17000

O WNONONSE =00~ =0

NOM OO =3 OMIOUNM=MMNAUIEN S —O000000ON N

—OONONOINNO~N ONNO—ON—OITNOOOO0OO

- OOVO

—OONOR—ONO NOONNOO———

020000
0 53660
0 53720
0 531N

;END OF DCLT FIRMWARE IMAGE

DDCMPE:

053660

PAGE 172

O ON O~ NMAMNAMMAIMAN O =N O ITOO0OO0O00O00TM 0—

001161
001061

BLOCK #

14:01

Y- T
Y-y Y- Y- Y-Y-Y-YP =1-1-1-1-1-1-1-1-0-0-0-0-0-0Y=Y=-0=-0-

20
640

23-DEC-82

NITIALIZE SECTION

SEQ 171

MCSIZ = .-DDCMPS

;:SIZE OF FIRMWARE IMAGE
NG F IRMWARE/

0470
0470

50ADED!S§!AREAD BACK/

ENDINIT

L10015:

TRAP

CSINIT

D 14

CZKkMSAQO kMS11-BD/BE

CZKMSA. P

DCLTY

23-DEC-B2 13:5¢4

MACY1Y 30A(1052)
LSBTTL

5595

23-DEC-82

AUTODROP SECTION

14:01

AUTODROP SECTION

5596
5597

5601

: DROPPED FROM TESTING.

: THIS_CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF
: THE '"ADRTM FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO
: SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY

5598
5599
5600
560

5604

5605

5606
5607

5608

SEQ 172

PAGE 173

054020

BGNAUTO

054020

ENDAUTO

054020

5609 054020
054020

104461

LSAUTO::

L10016:

TRAP

($AUTO

£ 14

CZKMSAD KMS11 -gDIBE D CLY
23-DEC-82 13:5¢4
CZKMSA. P11

SEQ 173

PAGE 174

CLEANUP CODING SECTION

; THE _CLEANUP CODING S ECTION CONTAINS THE CODING THAT IS PERFORMED
: AFTER THE HARDWARE T ESTS W AVE BEEN PERFORMED.
BGNCLN

054022
054022
011512
108:

010134

JSR
CLR
CLR
BRESET

000057

—0 —d b D

054106
056114
0561%2
054130
054136

CMP
BEQ

003246

[elelele]

054076
054104

NNNO
nNO S~

104441

SETPRI

000340

012700

LSCLEAN::

ENRDST

;1S READ STATUS ENABLED ?
sNO. OMIT READING STATUS
;READ LINE STATUS
: INCREMENT CLEANUP COUNT
sNEGATE READ STATUS ENABLED

CLNSET
aCLKCSR

;:CLEAR CLEANUP FLAG
:DISABLE CLOCK

ENRDST
10%

PC,LNSTAT

CNTCLN

#-1,CLNSET
PC,HLTTRB

#PR107

#EXIT,KEYWDY

XITCUN
Exl

:L0G *C ABORT IN EVENT LOG
#ABO, TEMP

MOV
MOV
MOV
MOV

OPVAR, TEMP4
PSCNT . TEMP2

EXIT

CLN

JSR

EXITCLN:

054142
054142
054142
054144

TST
BEQ
JSR
INC
CLR
MOV

104433

[e]lelele]

054022
054026
054030
054034
054040
054044
054052
054056
054062
054066
054066
054070
054070
054074

OONNONNSN
NIANNWNWWNWO
W
NNNNNNNNON

5619
620
6%1
56 %
56
56264
9625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
95650
9651
565
565
5654
5655
5656
5657

.SBTTL

o (ol=lelelelelel=]
o DO =-=00000
N VASSNOWVWNES =N

561
S61§
561
5614
5615
5616
5617
5618

14:01
MACY1? 30A(1052)
23-DEC -82
SECTION
CODING
CLEANUP

ERRCNT, TEMP3
PC,LOGSS

:SET_THE CLEANUP FLAG
sHALT LINE

TRAP

CSRESET

TRAP

#PR107 ,RO
C$SPRI

:SET PROCESSOR PRIORITY BACK TO ;ov
:EXIT' COMMAND?
:LOAD EVENT TYPE
:NUMBER OF NO=-BUFFS
:NUMBER OF PASSES

:ERRORS

: GO LOG IT

TRAP

.WORD

.EVEN

054146
056146
056146

ENDCLN

104412

L10017:

TRAP

CSCLEAN

F 14

CZKMSAQ KMS11
CZKMSA.P1

23 “Dec-8e- 13:54

MACY1? 30A(1052)

23-DEC-B2

DROP UNIT SECTION

.SBTTL

14:01

SEQ 174

PAGE 175

DROP UNIT SECTION

i4e

: THE DROP=UNIT SEC 110 2 CONTAINS THE CODING THAT CAUSES A DEVICE
: TO NO LONGER BE T ESTED.

VWA
OO

»e

b
B

[=1=1=]

BGNDU

000167
000000

EXIT

LSDU::

.WORD
.WORD

J$JMP
L10020=2~.

TRAP

($du

.EVEN

054154
054154
054154

ENDDU

104453

L10020:

G 14

DCLT

CKMSAD. KMS11-8D/BE

CIKMSA.P11

13:54

23-DEC-B2

tee

054156

ADD UNIT SECTION

054156

T0 THE TEST CYCLE.
BGNAU

5688 054156
5691

PAGE 176

* THE ADD=UNIT SECTION CONTAINS ANY CODE_THE PROGRAMMER WISHES
* 70 BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK

5684

689
690

14:01

568
568

5687

23-DEC-B2

ADC UNIT SECTION
.SBTTL

679

5685
5686

MACY11 30A(1052)

SEQ 175

5692 054156 000167

EXIT

LSAU::
AU

5698

TRAP

(S$AU

L10021-2-.

.EVEN

5696

5697

JSJMP

JWORD

3633 054160 000000
695

.WORD

ENDAU

054162

5699 054162

3700 0564162

104452

L10021:

H 14

CZKMSAO KMS11-BD/BE DCLT

CZKMSA.P1

zg-oec-az 12:54

MACY1?1 30A(1052)

JSBTTL

5705

5716
§717

054164

3730
g;%l 054164 C13777 010260 134056
s72§ 056172 005001
§724

054172

5726
§727
§728
§729
5730

054202
054206
054210
054212
054214

§731
573§
6733
65734
g;gz

054174

054214
054220
054224
054226
054230

012737 000001

005737 010270
001412
005301
001373

012746 016715
012746 000001
010600
104417
062706 000004

6737 05423 005737 010214
g;gg 054240 001124

%;2?
srai
5743
§744
g;:g

SETUP AND MODES OF OPERATION

BGNTST

054164

§718

§725

TEST 1:

¢ TEST TO DETECT FAULTS IN THE DATA COMMUNICATION LINK. THIS TEST WILL
: THE PROVIDE COVERAGE NECESSARY TO DETECT FAILURES IN THE COMPUTER
: EQUIPMENT, THE COMMUNICATION LINK, OR THE MODEM.

5707
5708
3;?3

S715

SEQ 176

PAGE 177

5706

5714

14:01

TEST 1: SETUP AND MODES OF OPERATION

g;gz

§711
571§
14

23-DEC-82

054242
054246
054252
056256

005037
005037
005037
012737

010160
010076
010060
006406

0106270

PROGRAM SETUP SECTION

LSBTTL

MOV

CLKEN,3CLKCSR

MOV
ST
BEQ

#1,TIMERT
TIMER]
GTRA3

BNE
PRINTF

1%
#NOCLK

GTXRXB: CLR
GTRA2:

18%:

T1::

DEC

;ENABLE THE CLOCK

sSET TIMER TO COUNT 1 TICK
:CHECK FOR IT TO BE COUNTED OFF
:BRANCH IF CLOCK EXISTS (COUNTED A TICK)

:KEEP CHECKING UNTIL R1 DOES FULL COUNTDWN
SPRINT BAD CLK MSG AND WARN OF HANG IF TIMEOUT

MOV
MOV
MOV
TRAP
ADD

#NOCLK,=(SP)
2 ,-(SP)
SP,RO
CSPNTF
#4,5P

:SEE IF HERE AFTER A RESTART
RESFLG
T1ST
:BR IF HERE BECAUSE OF A RESTART
GTRAS
BNE
: CLEAR COUNTS AND SET UP DEFAULTS
;CLEAR TOTAL CHAR. COUNT TEMP. LOC
T0TCC
GTRA4: CLR
CLEAR TOTAL CHAR. COUNT FOR TX BUFF
:
TT0TCC
CLR
: CLEAR TOTAL CHAR. COUNT FOR CMP BUFF
cToTCC
CLR
#SPTRTAB,TXPTR :INIT TRANSMIT MESSAGE POINTER
MOV
010052
GTRA3:

: JERO RX POINTER
;INIT COMP POINTER

5747 054264 005037 010050
g;:g 054270 012737 006502 010054

CLR
MOV

RXPTR
#PTR13,CMPPTR

srsg 054312 0157 7 003406 01010
s;g‘ 054320 012737 004406 01006

MOV
MOV

START OF TX BUFFER
#TXBUF ,TCURAD :SET UP CURRENT ADD TO
#CMPBUF ,CCURAD :SET UP CURRENT ADD TO START OF CMP BUFFLR

§750 osa;ro 0157 4 oooogs 01014
§751 054304 013737 8°§1 6 01015

MOV
MOV

#5,MSGTYP
MSGSC, CURCC

sSET UP DEFAULY MSG TYPE (QUICK FOX = ITEP MSG)
:SET UP DEFAULT CHAR COUNT

010100 010156
2755 osesib 013737
013737 010052 010154

MoV

TCURAD,CURADD

OF TXBUF
:SETUP CURRENT ADDR TO START
TABLE POINTER FOR TXBUF

#1,TXMT0T

:BUMP TOTAL MESSAGE COUNT

5756 054334

§757 osag:z ooar;r 02752
5758 054346 012737 000001 010074

MOV

JSR

MOV

TXPIR,CPIR

PC,BLDBUF

SSETUP CURRENT POINTER

: GO BUILD POINTER TABLE AND BUFFER

114

o060
s

——_—

OO0O0O

OO0

OONOMS

bbb
NSV
NGO
-\

MGV
MOV

OO0O0O

MOV

O=OH
ooNoOoo
o

013634

oSO

PR
T oF
NNNN

b
e
b

e
-

—

(=l=lele]

GTRAS:

sPUT DEFAULT MESSAGE INTO CMPBUF
sBUMP THE COMP MESG COUNT

#ACT,MODTYP
MLTYP

MOV

#XTRB,KEYWD1

MOV
CLR
CMP
BNE

#BDLBAS ,R2
(R2)+
R2,#BDLEND
1%

PRINTF

#HLPO

MOV
MOV
MOV

MOV
JSR

#1,RPASS
#2.PARAM

PC,ACTKAL

:SE T DEFAULT MODE= ACTIVE
SET DEFAULT MAINTENANCE XO0P MODE =NONE
:SET U P DEFAULT ''RUN PASS COUNT TO 1
sSET UP PROG. PARAMETERS = DATA CHECKIN G ENABLD
; OPE RATOR STATUS MSGS. PRINT OFF

‘SET UP KEYWRD,

SINIT LINE LIST

sINIT MSG BUFFER DESCRIPT LIST
R

MOV

V&
PARAM.DE
PC, SHWOP

18T

BNE
EXIT

000001
060174

010220

1%:

MOV

JMP

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

;SEE IF MANUAL INTERVENTION ALLO?ED

BCOMPLE TE
010226

#HLPO,
= (SP)
#,-(5P)
.
SP,RO
, CSPNTF
“¥4,SP

MODTYP,DEV1
MLTYP,DEV?2
RPASS .DEV3

MANUAL

104432

012737
000137

PC,BLOBUF
#1,CMPTOT

#5, msGivp
MSGSC, CURCC

ADD

NNNNN

005737
001002

s SE T UP START OF COMPARE POINTER TABLE
s SE T UP CURRENT ADDR. TO START OF (MPBUF

MOV
CLR

JSR

104450
103412

CMPPTR,CPTR
cguano CURADD

MoV
MOV
TRAP

WWWWWN
NNNNN

g_o —_—

JSR

1%:

s
ONN
NSOV

[P
S WWWW

MOV
MOV

003246

SEQ 177

14:01

PAGE 178
PROGRAM SETUP SECTION

23-DEC-82

MOV
MOV

OONOONIV

N=OW—=00wVrs,
W

NNNNNY NNNNN

W
NN
NVONVO
SN

013434

O =t b O e e

13:5¢4

WNON

OO0
0000

—-000
OO AW
®N
OONOOOO:
~J

[=l=lel=le]

NSO ONN

VWAL

OO0O0O0O0O0O

VWAL VAWV Vi
Xk
ko BB
VWA

[=lolelelelel-d OO0

eL
SN~

oi"ooo 00 00 00IRRZ
00 0o
888823220283

NNSNNY

1
o
WA
=

NINONNNNSNSNSN

23206
0000000000

CZKMSAQD kMS11
CZKMSA.P11

MACY11 30A(1052)

SL 1

GETCL

RPASS

1%
TST

#TTL MLTYP

GTRY

BR IF YES (UAM=0 AND NOT CHAlgEg)

;SEE IF THIS IS FIRST ''DCLT PASS"

CSMANI
GETCL

: BR IF NOT COMPLETED 1 PASS

; IF DONE 1 PASS IN UNATTENDED MODE - EX I7

TRAP
CSEXIT
L10022-.
.WORD
iSE T UP DEFAULT FOR UNATT 3 ND ED MODE
S / CH'* AND RUN
"R M=ACT/L0=1/PAS=1/NOST

J 14

CIKNSAQ. KNS11-8D/BE DCLT
23-DEC-82 13:54
CIKMSA.P11

.SBTTL
GETCL:

3806
$806 054576 105037 003401
5807 054602 105037 003400
5808 054606
5809 054606 104443
3810 054610 000406
5811 054612 003124
3812 05461 00014
054616 01400
5815

CLRB

GMANID

gaie wxas2) 00037
5815 054622 000001
$816 054604 000110

817 054626

$818
8819

05u6g6
054634

012737
015737

003124
011520

003364
003366

5821 054630 005037 003250
3822 054654 004737 031506
5853 054660 105737 003401

5826
5827
5828
3859
5830
3831
3832
583%
5834

5835
5836
3837
5838
5839
3840

054664
054666

014010
000001

054666
054672
054676
054700
054702
054706
0341

012746
012746
010600
104417
062706
000137
105737

054720
0547264
054730
054732
05473¢

012746 014040
012746 000001
010600
104417
062706 000004

054716
054720

054740

001412

000137

000004
054576
003400

18:

054576

003246 000060 108:
3843 0se7es 023727
001711
5843 054752

3844 054756 023727 003246 000004
3845 034762 001002
060174
000137
$8u6 0s676L
3847

3848

3849
5850
3851
3852
3855
385

054770 023727
054776 001004
055000 004737
035006 000137
033010 023727
053016 001005
055020 012737
095026

5855 055026
385 0550
035032
837
858 055040
859

0550642

003246 000052

11$:

027264
054576
003266 000057 148:
177777 010212

104432
012174
023727 003246 000010 40$:
001001
000522

MOV
MOV

CLR
JSR
1sT8

QUALFG
PC.PSTRY
P$EDBD

BEQ
PRINTF

001412

COMMAND LINE FETCH & INTERPRETATION SECTION
:CLEAR CMD LINE PARSING ERROR FLAGS
P$GDBD
PSNNUF
:GET A COMMAND LINE FROM OPR.
CLISPM,CMDBUF ,A,377,1,72..NO
CSGMAN
TRAP
100008
BR
.WORD CMDBUF
"WORD T$CODE
WORD CLISP

PSBUF A
#CMD,BUF
.PSTREE
#CL1TRE

MOV

§820 054642 012737 055540 003370
5854
825

SEQ 178

MACY11 30A(1052) 23-DEC-82 14:01 PAGE 179
COMMAND LINE FETCH & INTERPRETATION SECTION

JMP

ISTB

#CLIACT.PSACT
1$
#CLIERM

GETCL

PSNNUF

BEQ
PRINTF

108
#CLINUF

JMP

GETCL

100008

#CLIERM,=(SP)
MOV
#1.-(SP}
MOV
SP.RO
MOV
CSPNTF
TRAP
¥4, SP
ADD
:SEE IF INCOMPLETE COMMAND TYPED

MOV
MOV
MOV
TRAP
ADD

GETCL

YES,BRANCH

CMP
JSR
IMP
(MP
BNE
MOV

KEYWD1,#DMPS
148
PC,DUMPSR
GETCL
KEYWD1MEXIT
408
#-1.DCLFLG

1S 1T DUMP
GO TO DUMPSR
TAND GO BACK
1S IT EXIT
BRANCH IF NOT
SET DO CLEAN FLAG

BNE

EXIT

CMP
BNE
BR

KEYWD1,#RUN
118
GIR9

TS1

KEYWD1,#SETEXP

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

:WAS "'SET E=T"* ENTERED ?

KEYWDY,WSETET

(NP
BNE
P

3
TSLOLIM
TSHILIM

:CLEAR QUALIFIER FLAG LOCATION
GO PARSE COMMAND L INE
SEE IF PARSED OK OR AN ERROR

CMP

BEQ

"WORD
"WORD
"WORD

SEE IF RUN WAS TYPED
*"BR IF NO
* START EXEC. IF YES

CSEXIT
TRAP
.WORD L10022-.
SEE IF SET EXPECTED
S°BR IF YES (A SETEXP WAS TYPED

K 14

CZKMSAO KMS11-BD/BE SLY
CIKMSA.P11
23-DEC-82
13:54

MACY1? 30A(1052)

5860

5861 055044
055052 023727
0 14§; 003246 000011

4$:

ggg

05505¢

000137

054576

§864

055060

013737

010076

5%:

5866
5867
5868
5869
5870
5871
sar;
5873
5874
5875

055074
055076
055076
055102
055103
05511
055114
055116
055122
055126

002414

§877

05513¢

005037

010074

5879

055146

013701

010074

010160

5865 855066 023727 010160 001000
012746
012746
81 7646

1050
10441
0627 9
000137
005737

5876 055132 00100;

5878

055140

§880

055152

5882
5883
5884
5885
5886
5887
5888
5889
S890

055160
055160
055164
055170
055174
055176
055200
055204
055210

5881

01;737
020127

055156 002414

891
892

055212
055214

5894

osszgg

012746
012746
012746
010600
104417
062706
000137
006301

017036
017054
000002

000006
054576
010076
006406

010052

6%:

000017

000006
054576

006301
060137

o1oosg

013737

010100

01005

013737

5895
5896
5897

0552
055240
055244

004737
ooargr
004737

0276%2
027520
027644

2900
901

ossge«
055272

013737
oosgsr

010156
010074

055302
055306

001266
000137

17%:

goo
5383

5906

oss;rg

005337

055310 013737

010156

010100

054576

§910
911
91;
913
§914
§915

osssgg
0553
055 sg
055
055344
055346

002414

012746 017036
015746 017054

012746 000002
0106
10441
062706 000006

GETCL

MOV

T1T0TCC,TOTCC

BLT
PRINTF

15¢%
#MSGTRN,#BUFEX

;SEE IF BUFFER ALREADY FULL

JMP
TS7Y

GETCL
TT0TCC

CMP

BNE

CLR

010160

2%:

TOTCC,#BUFLIM

TXMTOT

:BR IF YES

: BR IF NOT FULL (BUFLIM # OF CHARS.)
: ELSE TELL OPR. AND DON'T BUILD MSG.
MOV
#BUFEX,=(SP)
MOV
#MSGTRN,=(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#6,5P
: THEN GO GET A NEW COMMAND
:IF FIRST "'SET'* THEN GET RID OF DEFAULT

MOV

#PTRTAB,TXPTR

:GET POSITION OF END OF TX LIST

CMP

R1,#MSGLIM

;SEE IF MSG COUNT EXCEEDED.

PRINTF

#MSGTRN,#TABEX

JMP
ASL

GETCL
R1

: ELSE TELL OPR. AND DON'T BUILD MSG.
#TABEX,=(SP)
MOV
= (SP)
#MSGTRN,
MOV
#2,-(SP)
MOV
MOV
SP,RO
CSPNTF
TRAP
#6,5P
ADD
: THEN GO GET A NEW COMMAND.
:# OF MSGS *& = NEXT FREE PTR BLOCK

TXPTR,CPTR

:SETUP CHAR. COUNT, CURRENT ADDR, & PTR

JSR
JSR
JSR

PC,ADDCC
PC . BLDBUF
PC,FCURAD

:ADD IN CHAR. COUNT AND CHECK TOTAL
:GO BUILD MESSAGE IN BUFFER AND PTRS.
:MAKE SURE ADDRESS IS WORD BOUNDARY

MOV
INC

CURADD, TCURAD
TXMTOT

MOV

TXMTOT,R1

17§

ASL
ADD

R1
R1, TXPTR

MOV

TCURAD, CURADD

CPTR, TXPTR
TOTCC, TTOTCC

S BR IF NO

:UPDATE CHAR. COUNT, CURR ADDR, & PTR

DEC

QUALVL

:DEC THE COPY COUNT

MOV

cTovcC,10T7CC

BLT
PRINTF

16%
#MSGTRN,#BUFEX

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

BNE
JMP

5907 055316 023727 010160 001000

5908 055356
5909 055326

;SEE IF SET TX

JMP

MOV
MOV

003252

010060

KEYWD1,#SETTRN

MOV

010154

5898 055250 013737 010154 010052
§899 055256 013737 010160 010076
59o§

CMP
BEO

BLT

016776
017054
000002

055220

589

15%:

SEQ 179

23-DEC-82 14:01 PAGE 180
COMMAND LINE FETCH & INTERPRETATION SECTION

CMP

5$
GETCL

TOTCC,#BUFLIM

MOV

MOV
MOV
TRAP
ADD

#MSGTIRN,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,5P

L 14
CZKMSAD KMS11gD/BE
LY
CZKMSA.P11
-DEC-82
13:54

MACYT? 30A(1052)

055352 000137 05457
3917
055?53
002727 01006
5918

5916

055;6

00100;

3338

8;2398

005037

010056

5921
gggg

055%70
055376

01%737
013701

006502
010056

3924

055402

020127

000017

012746
012746
012746
010600
104417
062706
000137
006301
006301
060137
013737
013737
004737
004737
004737
013737
005237
013737
013737
005337
001266
000137

016776
017054
000002

gggg
8222?8 S
5927 055610
9928
3929
5930

5931
5932
5933
5934
5935
5936
5937
5938
5939
3940
5941
5942
3943
5946
5945
5946
5947
2323
5950
5951
9952

055414
055420
055424

055426
055430
055434
055440
055442
055444
055450
055456
055464
055470
055474
055500
055506
055512
055520
055526
055532
055534

16$:
28

010054

054576

JMP

1ST
BNE

GETCL

COMMAN
:IF FIRST "SET'NEW
THEN GET RID OF DEFAULT

CLR

10TCC
$

CMPTOT

Mov
Mov

#PTR13,CMPPTR
CMPTOT,R1

sINIT COMPARE MESSAGE POINTER

CMP

R1,#MSGLIM

sSEE IF MSG COUNT EXCEEDED.

gk}NTF }ggfiTRN #TABEX

H THEN GO GET
A

: EES%FTgEL OPR. AND DON'T
BUILD MSG
Mov
Mov
Mov
Mov

000006
054576
010054
010054
010062
027422
027520
027644
010154
010056
010156
010160
003252

SEQ 180

23-DEC 82 14:01
PAGE 181
D LINE FETCH & INTERPRETATION SECTION

18%:
010154
010156

010054

010062
010060

JMP
ASL
ASL
ADD
MoV
MoV
JSR
JSR
JSR
Mov
INC
MoV
MOV
DEC
BNE
JMP

GETCL
R1
R1
R1,CMPPTR
CMPPTR,CPTR
CCURAD, CURADD
PC,ADDCC
PC,BLDBUF
PC,FCURAD
CPTR,CMPPTR
CMPTOT
CURADD,CCURAD
T0TCC,CTOTCC
QUALVL
2%
GETCL

#TABEX,=(SP)
#MSGTRN, = (SP)
#2,-(SP}
SP.RO

TRAP
CSPNTF
ADD
#6,SP
: THEN GO GET A NEW COMMAND.
:# OF MSGS *4 = NEXT FREE PTR BLOCK

sADD IN XHAR. COUNT AND CHECK TOTAL
sMAKE SURE ADDRESS !S WORD BOUNDARY
sUPDATE CHAR. COUNT, CURR ADDR. & PTR
:1F _COPY WAS GIVEN, PUT MSG IN BUFF
: AGAIN
)
GO BACK UNTIL GET
A "RUN'

CZKMSAD xns11-§o/ae gSLT
CIKMSA.P11
23-DEC-82
13:54

5954
§955
5956
5957

3333
8?3?:8 006302
5960 055542 o1e;o 055556
5961

055546

062702

2324

055554

000207

59e§

055552

00471

§965

5966 055556 000162

5967
5968
5969
5970
5971
597
597
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985

055560
055562
055564
055566
055570
055572
055574
055576
055600
055602
055606
055606
055610
055612
055614
055616
055620
055622
055624

000164
000174
001562
000274
000204
000320
000412
000734
000744
000762
000772
001002
001074
001570
001114
001174
001202
001212
oo1z§z

5987
5988
5989
5990
5991
5992
5993
5994

055630
055632
055634
055636
055640
055642
055644
055646

001242
oo1§eo
001346
001356
001376
001404
001414
0014%‘

5986

5995

5996
5997
5998
5999
6000

6001

6002
6003
6004
6005
6009
6007
6008
6009

055626

055650

055652
055654
055656
055660
055662

055664

055666
055670
055672
055674
055676
055700
055702
055704

001232

001434

001462
001472
001576
001612
001644

001654

001664
001674
001704
001714
000154
001152
000670
000720

055556

MACY1? 30A(1052)

.SBTTL
;
$

23-DEC-82 14:01
PAGE 182
COMMAND LINE FETCH & INTERPRETATION SECTION
ACTION TABLE AND ROUTINES
:
USER MUST CLEAR/SET PSGDBD IF USE ‘‘CLIBIF'* IN CONNECTION WITH ACTION
R2 WILL HOLD ACTION CODE FROM PARSING (CLI) NODE

ELiact: MOV
ASL

SOFFSET VALUE

PC, (R2)

:GO DO ACTION

ADD

#10$,R2

RTS

JSR

10$:

R1Ss<az>.nz

.MORD

ACTNUL-10%

.MORD
.MORD
.MORD
.WORD
.WORD
-WORD
<WORD
.WORD
+WORD
.WORD
.WORD
.WORD
-WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD

ACTCLR=-10%
ACTSHO=-10%
ACTCHK=10%
ACTRUN=-10%
ACTHLP=10%
ACTCSE-10%
ACTCST=10%
ACTSTE=-10%
ACTSTT=10%
ACTSZE-10%
ACTCOP-10%
ACTNUM=10%
ACTOPM=10%
ACTSTS=10%
ACTEQO-10%
ACTMSO0-10%
ACTMS1-10%
ACTMS2-10%
ACTMS3-10%

.WORD
.WORD
.WORD
.WORD
"WORD
JWORD
.WORD
.WORD

ACTMSS-10%
ACTMS6-10%
ACTATV-10$
ACTPAS=10%
ACTREC-10%
ACTLIS-10%
ACTDLL=-10%
ACTTRA-10%

.WORD
"WORD
"WORD
.WORD
.WORD

ACTNO-10%
ACTECH-10%
ACTCRC=-10%
ACTPRO-10%
ACTRPS-10%

.WORD

.WORD
.WORD
"WORD
.WORD
"WORD
"WORD
.WORD
"WORD

ACTMS4=-10%

ACTTAL=-10%

ACTMOP=-10%

ACTTLP-10%
ACTCLP-10%
ACTLLP-10%
ACTRLP-10%
ACTNUF=10%
ACTBCR=-10%
ACTDMS-10%
ACTDME-10%

MULTIPLY ACTION CODE BY 2

:ADD BASE VALUE
SRETURN TO TRVACT:
:BRIEF DESCRIPTION OF ACTIONS TAKEN

sNULL

:CLEAR
+ SHOW
: CHECK
*RUN
‘HELP
sCLEAR OR SHOW EXPECTED
:CLEAR OR SHOW TRANSMIT
SSET EXPECTED
sSET TRANSMIT
:SIZE
: COPY
*NUMERIC VALUE FOR SIZE OR COPY
:QUOTED MESSAGE FROM USER
$STATUS
JEND OF QUOTED MESSAGE FROM USER
:ONES DATA
:7EROS DATA
S1ALT
S0ACT

JITEP

sCCITT
+ALPHA
:ACTIVE MODE
:PASSIVE MODE
:RECEIVE MODE
*LISTEN MODE
:DOWNL INE LOAD
s TRANSMIT MODE

:TALK MODE

$/NO
*ECHO
SSET CRC BIT
:SET PROTOCOL BIT
:STATUS

sREMOTE STATION IN MAINTENACE LOOP MODE
SINTERNAL TTL
:CABLE LOOP
:LOCAL MODEM LOOP
*REMOTE MODEM LOOP
:MORE COMMAND LINE NEEDED
*BAD CHARACTER IN OPERATOR MESSAGE
:DUMP MEMORY START ADDRESS
:DUMP MEMORY END ADDRESS

SEQ 181

N 14

CZKMSAQ KHS\1-§DIBE

CZKMSA.P1T

CLY

23-DEC-82 13:54

6010
6011

055706
055710

6018
6019

0557%6
055730

055712
6012
055714
6013
6014 055716
6015 055720
6016 0557%2
6017 055724

00071
00026
001604
000550
0013504
002070
001772
002002
002010
002266

MACY1? 30A(1052)

23-DEC-B2

14:01

PAGE 183

ACTION TABLE AND ROUTINES

.WORD
.WORD

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

ACTDMQ-10%
ACTPRT-10%
ACTMOS-10%
ACTEXT-10%
ACTSEX-10%
ACTSLS-10%
ACTETB-10%
ACTKTB-10%
ACTKAL=-10%
ACTEKT=10%

;DUMP WORD
sPRINT

sMODEM STATUS CHANGE
SEXIT
;SET E=T COMMAND
sSHOW LINE LIST
;ESTABLISH LINE
;KILL LINE
sKILL ALL
sFLAG LINE KILLED

SEQ 182

B 15
CZKMSAQ kMS11-BD/BE (L
13:5¢4
23-DECCZKMSA.P11

MACY11 30A(1052)

6026

5573

112737
000207

177777

003400

:
ACTNUF
ACTNUL:

85%76
5575

806207

000001

003246

ACTCLR:

6028
6029

05575%
05576

012737
000207

000002

003246

ACTSHO:

6031 055762 012702
60 g 055766
6033
055766 012246
6
6034 055770
4
05577
6035
056000
6036
6037 056002
6038 0560064
6039 056010
6040 0560164
6041 056016
604; 056024
056026
6043
6044 0560
6045 056036
6049 056044
056050
6047
6048
6049 056052
6050 056060
6051 056066
605; 056074
605
6054 056076
6055 056104
6056
6057 056110
6058 056114
6059 056120
6060 056126
6061 056130
606; 0561
606
6064 056168

003254

056200
856 04
056212
056214
056222

;SET FLAG TO SAY NEED MORE OF COMMAND

#CLEAR,KEYWDT

;SET LOC TO SAY A CLEAR WAS TYPED

#SHOW,KEYWDT

;SET LOC. TO SAY A SHOW WAS TYPED

NTF

#HLPTAB,R2

;RETURN TO PARSER

;SETUP R2 AS A POINTER TO HELP MSG TABLE

#HLPF
, (R2)+

sPRINT HELP INFORMATION MESSAGES

?%,ONLPEND

;SEE IF ALL INFO PRINTED YET
;IF _NO KEEP PRINTING
;SET LOC. TO SAY A HELP WAS TYPED

NNNNNNN&»
NNNN

ggLP.KEYUD1

000005

003246

000057

003246

ACTEXT:

gEXl‘.KEVUDl

000055
024644

003246

ACTPRT:

#PRNT ,KEYWD1
gE,REPORT

ACTRUN:

000004
177777
000001

#RUN, KE YWD1

#-1,PSNNUF

#1,RPASS
PC

ACTCSE:

=N
NN=NNN
NNNNNNY-

6071
607§
607
60764
6075
6076

#=1,PSNNUF

~NO o

OWORNNO
—=O&H

S
5
606 056163
6063 056166
28?0 056170
056174

OCO=0O
O000O0O0O0O0O0O—=00 (=]
82
SO = O=ONOO
=
—- =t (=]
—SONO
= eS
SOOO-‘O
O2~°~°~ - ON S ON
Sn oY
WNONSO

6030

#PTR13,CMPPTR

CMPPTR,R1

CMPTOT,R2

PSNNUF
KEYWD1,#SHOW
ACTSHW
#1,CMPTOT

010056

cTéTCC

#PTR13,CMPPTR
CMPPTR.CPTR

WO WW
- N=-=NN

6025
60 ?

3-DEC-82 14:01 PAGE 184
ACTION TABLE AND ROUTINES

#CMPBUF ,R1
R1,CCURAD
AcfcLB

ACTCST:

000002
010074

Mov
Mov
Mov
MOV
TRAP
ADD

(R2)+,=(SP)
#HLPF ,=(SP)
#2,-(SP)
SP.RO
CSPNTF
#6,SP

;SET UP KEYWORD AND SCOOT OUT OF HERE
;SET LOC. TO SAY A HELP WAS TYPED

;CALL ROUTINE TO PRINT EVENT LOG AND BASE TABLE
LAG

TO SAY NEED MORE OF COMMAND

ULT RUN "'PASS'" TO 1

;INIT COMPARE MESSAGE POINTER
T HAVE VALID COMMAND AT THIS PT.
CLEAR OR_SHOW WAS TYPED
SHOW WAS TYPED

MPARE MESSAGE COUNT, CHAR. COUNT
3 T POINTER

OMPARE MESSAGE POINTER
TO FILL IN DEFAULT MESSAGE

#PTRTAB,R1

TXMTOT,R2

PSNNUF

KEYWD1,#SHOW
ACTSHY
#1,TXM107

T101CC

HAVE VALID COMMAND AT THIS PT.
LEAR OR SHOW WAS TYPED

ey
4 4ol

88 :

SEQ 183

OW WAS TYPED

SMIT MESSAGE COUNT, CHAR. COUNT
POINTER

DCLT

MACY1? 30A(1052)

CZKMSAD KMS11-BD/BE
zg-oec- 5 13:54
CZKMSA.P11
10052
0064
056226 012737
6077
818154
§1§023
737
6078 826 42& 81012701 003406

6079 oge
ggg? 056246 010137 010100
6082

056252

608 3§e 56
056262
6084
6085 056270

0127 ;

001020

8101 S
0101
ogogs 010146
012737
013737 002156 010150

6086 056276 105021
6087 826 og oosg g
056302 001
6088
6089 056304 004737 027520
8091

609

ose§1z

6097

056330

012705

5%:

6094 056316 122571 000000
6095 056322 001404
6096 osssg« 020527 003333
005205

6100
6101

056340
056342

ooesgs
016137

6103
6106
6105
6106
6107
6108
6109
6110

056350
0563564
056360
056364
056370
056372
05637«
056400

013746
816566
13746
012746
010600
104417
062706
062701

6099

610

6111
e11§

6113
6114
6115
6116

oseg &

056350

056404
056406

056410
056416
osskga
056432

162705

005302
001341
o1§7§7
013737
013737
013737

056444

sSET UP TO PUT DEFAULT MSG IN LIST AFTER 033°S

RTS

(R1)+
ag
1
PC,BLDBUF
P

sFILL EXPT OR TRAN BUFFER WITH 0°'S IF A CLEAR
D0 "BUFLIM NUMBER OF BYTE LOCATIONS
;CLEAR'* REALLY MEANS TO PUT DEFAULT MSG IN
;WHEN DONE, RETURN TO PARSER

#SHTAB,RS

(RS)+,a(R1)
i1
RS, #SHTEND

:LOOK AT FIRST BYTE OF MSG TO DECIPHER TYPE
;SEE IF LOOKED AT ALL OF DEFAULTS YET

INC

:MUST BE OPR. SPEC'D THEN

ASL
MOV

RS
2(R1),TEMP

CLRB
DEC
BNE
JSR
CMPB
BEQ
CMP

010164

SUB

010216
010220
010226
010226

DEC
BNE
MOV
MOV
MOV
MOV

R2
ACTSHW
MODTYP,DEV1
MLTYP,DEV
RPASS ,DEV
PARAM.DEV4

RTS

ADD

000004

011470
011472
011474
011476

000207

g} 3 056466 000403

JSR

B8R

6125 056470 8'§7§7 177777 o1o1§$ ACTDMQ: MOV

6126 056476 013737 003376 010130
6127 056504 105037 003400
6129

056510

000207

#SHTAB*1,RS

000010

010164
003304
015664
000003

6120 056446 013737 003374 010126 ACTDMS: MOV
CLR
6121 056454 oosogr 010135
MOV
003246
00005
61 i 056460 012737

6128

PRINTF OSHHSG.SHYVIB(RS).TEHP :PRINT MSG SIZE & TYPE MOV
MOV
MOV
MOV
MOV
TRAP
ADD

6117 056440 004737 031204
2}}3

6$:

003325
000002

#BUFLIM,R2

BNE

001372

6098 ososgz

R1,CURADD
#5.MSGTYP
MSGSC, CURCC

ACTSHW: MOV

003324

R1, TCURAD

MOV
MOV
MOV

ACTCLB: MOV

1%:

14:01

ACTION TABLE AND ROUTINES
#PTRTAB,TXPTR
MOV
TXPTR,CPTR
MOV
#TXBUF ,R1
MOV
MOV

056310 000207

609

23-DEC-B2

SEQ 184

PAGE 185

ACTDME: MOV
ACTOMX: CLRB
RTS

e
6132 056512 012737 000010 003246 ACTSTE: MOV

TEMP,=(SP)
G,
= (SP)
#SHMS
#3,-(SP)
SP,RO
CSPNTF
£10,5P

SHTYTB(RS) ,=(SP)

#4 ,R1

:BUMP R1 TO NEXT SET OF POINTERS

PC,SHWOP

:SHOW THE OPERATOR THE CURRENT MODE..... ALSO

gy1B8lf
#OMPS ,KEYWD1
ACTDME

PSNUM, STADD

SSET DEFAULT OF WORD DUMP

#-1,BYTBIT

PSNUM, ENADD
PSNNUF

T NO '‘EEE
SETUP END ADDRESS FOR DUMP (=STARIF
*CLEAR NOT-ENOUGH FLAG, ''DUMP N-N/B'* IS VALID

#SETEXP,KEYWDY

:SETUP STARTING ADDRESS FOR DUMP
:FLAG THAT A DUMP WAS TYPED

:SET DUMP FLAG TO ‘‘DUMP=-WORD'’

D15

CZKMSAOD KMS11-BD/BE

CZKMSA.P11
g} 2

056520

000403

6135

0565 S

81 7;7

DCLT

2?-DEC'35 13:54

0565

MACY11 30A(1052)

23-DEC-82

12737 000001

003246

PAGE 186

ACTION TABLE AND ROUTINES
BR

000011

14:01

SEQ 185

ACTSTT: MOV

003252 ACTSTX: MOV
RTS

ACTSTX

#SETTRN,KEYWDT

#1,QUALVL
PC

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

056536

000207

6139
2}2?

056540
056546

012737
000207

000012

003250

ACTSZE: MOV
RTS

#SIZE,QUALFG
PC

614§
2}2‘

056550
056556

012737
000207

000013

003250

ACTCOP: MOV
RTS

#QCOPY,QUALFG
PC

6145 056560 023727 003250
6146 056566 001023

000012

ACTNUM: CMP
BNE

QUALFG,#SIZE
1%

;SEE IF A SIZE OR COPY TYPED
:BR IF IT WAS A COPY

BNE
PRINTF

3%
#(LLISEOD

: BR IF NO

MovBe

#-1,P$GDLY

MOV
BR
MoV
INC

PSNUM, CURCC
2%
PSNUM, QUALVL
QUALVL

;IF A SIZE LOAD CURCC WITH BYTE COUNT
:1F A COPY, LOAD COPY COUNT
; INCREMENT SO FIRST DEC MAKES IT REAL #

#7,MSGTYP

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

g} 5

15T

6147 056570 005737 003374

6148
6149

056574
056576

001014

6150
6151
615%
6153
6154

056576
056602
056606
056610
056612

012746 014417
012746 000001
010600
104417
062706 000004

6156

056624

000411

2}21

056650

000522

6155

6157
6158
6159
6160

056616

056626
056634
056636
056644

112737

177777

013737 003374 010150 3%:
000405
013737 003374 003252 1%:
005237 003252

6163

056652

012737

2}29

056670

000207

6168
6169

056672
056674

010402
16370;

2%:

000007

6164 056660 010437 010164
6165 056664 005237 010164

6170 056700 010237
6171
6172
6173

056706
056710
056714

01 ;37
013701
012705

6175
6176
g};g

056752
0567264
056726

00530;
001%7
000473

6174

056720

6179 056730

112125

ACTOPM: MOV

MoV
INC

RTS

010164

002162
010164
002520

MoV
MoV
MOV

010150

056730
056734
056740
056742
056744

012746 014352
012746 000001
010600
104417
062706 000004

6187
6188

056752
056756

005037
000435

056750

010146

ACTEQD: MOV
suB

6180
6181
6182
6183
6184

2}32

003401

000207

010146

MoV

1%:

Move
DEC
BNE
BR

ACTBCR: PRINTF

RTS

ACTMSO: CLR
BR

PSNUM

ACTMEX

R4, TEMP
TEMP
PC

R4 ,R2
TEMP,R2

;CHECK TO BE SURE DIDN'T TRY SIZE=0

;SET ERROR=IN=CMD FLAG

Mov
Mov
MoV
TRAP
ADD

R2,CURCC

;CALC BYTE COUNT FOR QUOTED TEXT

(R1)+,(R5)+

;COPY QUOTED TEXT TO OPBUF

#CLIBCR

;BAD CHAR. IN OPR. QUOTED STRING

R2,0PCNT
TEMP,R1
#OPBUF ,RS
R
1
ACTMEX

MSGTYP
ACTMET

MoV
MOV
MoV
TRAP
ADD

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

#CLIBCR,=(SP)
#1,-(5P)
SP,RO
CSFNTF
¥4 ,SP

E 15

CZKMSAQ xnsn-go/az gsn

CZKMSA.P11
6189

6190
6191
619
6193
6194
6195
6196
6197
6198

6199
6200

23-DEC-82

13:54

187 7

000001

056760

MACY1Y 30A(1052)
010146

ACTMS1: MOV

1 HS?TVP

ACTMS2: MOV

MOV

MSG6C, CURCC

:SETUP DEFAULT SIZE FOR THIS TYPE

057052 012737 000100 010150 ACTME1: MOV

#64. ,CURCC

;SETUP DEFAULT SIZE FOR MSGO=-4

#SETEXP,KEYWD1

:DID WE GET HERE FROM ''SET E ='" COMMAND?

PC,FACSIMILE
#SETET,KEYWD1
ACTMEX

:60 CQPY TRANMIT BUFFER TO EXPECT BUFFER
‘SET FLAG TO BE USED IN T1::
:G0 TO EXIT

057034
057036

oooago
0157 7

000006

010146

BR
ACTMS6: MOV

6207 057062 022737 000010 003246 ACTSEX: CMP
057070
057072
057100

001404
112737
000406

177777

003401

6211 057102 004737 027672
6212 057106 012737 000060 003246
gg}z 057114 000400

I 057116
6217

6218

PAGE 187

:SETUP DEFAULT SIZE FOR THIS TYPE

gR
BR
ACTMS3: MOV
BR
ACTMS4: MOV
BR
ACTMSS: MOV
MOV

6204 057060 000416
6208
6209
6210

14:01

ACTION TABLE AND ROUTINES

Asfnfi
,MSGTYP
AngE1
#3 MSGTYP
ACTMED
#4 MSGTYP
AngE1
#5 MSGTYP
HSéSC.CURCC

0567?8 00431
187 7 000002 010146
0567
059776 00425
187 7 000003 010146
057000
00421
057008
012737 000004 010146
057010
057016 00041;
oooogs 010146
057020 01572
057026 013737 002156 010150

2%8‘ 057044 013737 002160 010150
6203

23-DEC-82

SEQ 186

057122

105037 003400

000207

108:

BEQ
MOVE
BR

JSR
MOV
BR

ACTMEX: CLRB
RTS

ACTMEX
#6,MSGTYP

ACTME X

108
#-1,P$GDBD
ACTME X

PENNUF

SEXIT

*YES,BRANCH
*SET ERROR FLAG
260 TO EXIT

:CLEAR NOT=-ENOUGH FLAG

F 15
)V'

MSAQ HS11 D/BE gsL

MACYT? 30A(1052)

23-0EC-82

14:01

13:54

057124

012737

037152 00 aiz

000003

010216

ACTATV: MOV

#ACT, MODTYP

057134

o1§ §7

809005

010216

ACTPAS: MOV

#PAS,MODTYP

057152

000207

057142
057146

105037
005037

00340
010220

PAGE 188

TION TABLE AND ROUTINES

-DEC-B2

CLRB
CLR

RTS

ACTMEX

PSNNUF
MLTYP
PC

ACTREC: CLR
BR

MODTYP
ACTM2X

010216

ACTLIS: MOV

lLlS MODTYP

000004

010216

ACTDLL: MOV

#DOW,MODTYP

012737

000001

010216

ACTTRA: MOV

#TRA,MODTYP

012737

000005

010216

ACTTAL: MOV

#TAL ,MODTYP

057220 042737 0000064 010224
057226 105037 003400
057232 005037 010220

ACTM2X: BIC
CLRB
CLR

#ECHOB,PARAM
PSNNUF
MLTYP

057154
057160

005037
000417

010216

057162

012737

000006

057172

012737

057202

057212

057170 000413

057200 000407

057210 000403

057236

000207

SEQ 187

B8R

RTS

:CLEAR NOT-ENOUGH FLAG
*CLEAR MAINT LOOP TYPE

TMX

ACTM2X

;:DISABLE /ECHO (ALL BUT PASSIVE MODE)
sCLEAR NOT=ENOUGH FLAG
sCLEAR MAINT LOOP TYPE

6 15

MACY11 30A(1052)

23-DEC-82 14:01 PAGE 189
ACTION TABLE AND ROUTINES
MOV
RTS

6247
g 23

057%40
057246

012737
000207

000036

003250

ACTNO:

6250
65%1
6 g
6253

057250
057256
057260
057266

0827 7
0014 ;
05%7
OS 737

000036

003250

ACTECH:

000004
000002

010224
010216

6254
6255

057274
057276

001416

BEQ
PRINTF

#NO,QUALFG
PC
#NO,QUALFG
1%
#ECHOB,PARAM
#PAS ,MODTYP

CLY

-DEC-82 13:5¢4

CZKMSAD KMS11 SgblBE

CZKMSA.P11

SEQ 188

#CLINPS

MoV
MoV

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

ADD

#6,SP

6256
6257
6258
6259
6260
6261
6262
6263

057276
057302
057306
057310
057312
057316
057 ik
057332

012746
81 746
010500
104417
0627 9
1127
042737
005037

014307
000001

6266
ggg;

057340
057344

012701
000413

000002

ACTCHK: MoV
BR

#DATCKB,R1
ACTQFG

6269
25;?

057346
057352

012701
000410

000001

ACTSTS: MOV

#STATB,R1
ACTQFG

;SET THE STATUS BIT

6272
gg;‘

057354
057360

012701
000405

000020

ACTCRC: MOV

#CRCB,R1
ACTQFG

;SET THE C(RC BIT

6275
g%;g

057362
057366

012701
000402

000010

ACTMOS:

#MOCHK ,R1
ACTQFG

;SET THE MODEM BIT

gs;g

057370

012701

000040

ACTPRO:

#PROTOB,R1

;SET THE PROTOCOL BIT

6280
6281
6282
6283
6284
gggg

057374
057400
057406
057410
057414
057420

050137
022737
00100
040137
005037
000450

0102264
000036

ACTQFG:

R1,PARAM
g:0.0UALFG

1$:

R1,PARAM
QUALFG
ACTLXX

6287
2233

057422
057430

013737
000444

003374

010226

ACTRPS:

PSNUM,RPASS
ACTLXX

6290
6291
6292
6293
6294
6295
6296
6297
g?g%

057432
057440
057442
057450
057452
057460
0574 5
0574
057472

012737
000417
012737
000613
012737
000427
012737
000623
0127357

000005

010220

ACTMOP:

#5 MLTYP

;SPECIFY MOP LOOPBACK

000001

010220

ACTTLP:

#1 ALTYP

;SPECIFY INTERNAL LOOPBACK

000002

010220

ACTCLP:

#2 ALTYP

sSPECIFY CABLE LOOPBACK

000003

010220

ACTLLP:

000004

010220

ACTRLP:

¥4 MLTYP

sSPECIFY LOCAL MODEM LOOPBACK
sSPECIFY REMOTE MODEM LOOPBACK

6
6301
6302

057500
057506
057510

022737
001415
112737

000003

010216

ACTLPX:

#ACT ,MODTYP
ACTLXX

g%gg

057336

000501

MOV
TRAP

000004
177777
000004
003250

1%:

2%:

003250

010224
003250

177777

003401

Move

CLR

SP,RO
CSPNTF

#-1,P$GDBD

#ECHOB,PARAM
QUALFG
ACTLXX

ACTLPX
ACTLPX

#-1,P$GDBD

;CLEAR "'NO'* OUT OF QUALIFIE. FLAG
sSET DATA CHECK BIT

sCLEAR ''NO'* OUT OF QUALIFIER FLAG

;GET NUMBER OF ''RUN PASSES''

;BE SURE IN ACTIVE IF TRYING TO SET LOOP
: BR IF IN ACTIVE

H15

CZKMSAD xns11-go/es gSLT

CZKMSA.P11

23-DEC-82

6303 05751
6304 057
6305 057

6306 057526

13:54

005037 010220
81 746 014125

012746 000001

6307 057532 01060
10641
6308 0575
6309 057536 062706 000004
e§1o

23}5

057542

057546

105037

000207

003400

MACY1? 30A(1052)

23-DEC-82

14:01

SEQ 189

PAGE 190

ACTION TABLE AND ROUTINES

CLR

PRINTF

ACTLXX: CLRB
RTS

MLTYP

#CLIBDL

PSNNUF
PC

:CLEAR ANY LOOP TYPE THAT MAY HAVE GOT SET
#CLIBDL,=(SP)
MOV

MOV

:CLEAR NOT=ENOUGH FLAG

MOV
TRAP
ADD

#1,-(SP)
SP,RO
CSPNTF
#,5P

115

23-DEC-82

14:01

SEQ 190

PAGE 9

000062

003246

ACTETE: MOV
RTS

#ETRB,KEYWD1
PC

: RECORD THAT ESTABLISH TYPED
: RETURN TO CALL

057560

012737

000063

003246

ACTKTB: MOV

#XTRB,KEYWD1

: RECORD THAT KILL LINE TYPED

05756
05757
057600
057602
05761
057614
057616
057620
057624
057630
057634
057640
057642057644

OCOO0O0O0O0—=—=00—
-t = OO OO0 —-ONO
O = UVTINONINIANO
=2 N = NN
NWNNNNO
S S NNSNO
ONONOOW=OWWOWW
NSV
NN = NNWNN

ACTION TABLE AND ROUTINES

012737
000207

00340
00006

PSNNUF
#XTRB,KEYWD1
11%

: CLEAR INCOMPLETE INFO FLAG
: BE SURE '"ALL’'' IS AFTER A “kILL"
: BR IF YES
ELSE ERROR IN CMD
:

057646
057652
057660
057664
057666
057670
057674
057700
057702
057702
057706
057712
057714
057716
057722
057724
057730
057734
057734
057740
057744
057746
057750
057754
057760
057762
057766
057766
057770
057774
060000
060004

2%:

VIOV
S NNO
COWWW
Wit NNSN

MWUINOOO
OOOON

-y

18:

003246

ACTSLS:

108:

016000
000001

1%:

016042
000001

000004
000377

MOVB

#-1,P$GDBD

BEQ
BR
CLR
MOV

1S18

MOV

MOV
DEC
BNE

PS$GDBD

TRBTOT
#TRIBLS,R2

#4. RS

#=-1,(R2)+
RS
1%

: SEE IF WAS AN ERROR FROM ..KTB

: BR_IF NO
ELSE EXIT
:
: ZERO_TOTAL # OF LINE NUMBERS
: PT_R2 TO LINE NUMBER TABLE
$ SETUP R5 AS COUNTER
¢ CLEAR 8 BYTES OF TABLE

RTS

$ RETURN TO CALL

CLRB

PSNNUF

: CLEAR THE INCOMFLETE CMD FLAG

MOV
1ST8

#SHOW,KEYWD1
P$GDBD

3
:

CLR

LNCNT

BNE

BEQ
BR
1ST

10%
5%

TRBTOT

#SHTRE

:
:

:
3

SET UP TO LOOK LIKE A SHOW CMD
SEE IF WAS AN ERROR FROM ..KTB
BR_IF NO
ELSE EXIT
INIT ADDR/LINE COUNTER
SEE IF LIST EMPTY
BR IF NO
PRINT THE LINE LIST IS EMPTY
MOV
MOV
TRAP

000004
007622
000010

CLRB
CMP
BEQ

PRINTS

BR
MOV

MOV
PRINTS

4%
#TRIBLS,R?

#8.,RS
#SHTRH

ADD

s POINT R2 TO THE LINE NUMBER LIST
: SETUP R5 AS A COUNTER
g PRINT LINE LIST HEADER

2%:

010164

(MPB

BEQ

MOVB
PRINTS

#377,(R2)

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

ADD

#s,SP

CLR
BISB
MOV
MOV

=(SP)
TEMP, (SP)
#SHTAP,=(SP)
#2,-(SP)

TRAP
ADD

CSPNTS
#6,SP

MOV
3%:

INC

w6 ,SP

SP,RO
CSPNTS

BR IF YES

NNY

(R2),TEMP
#SHTAP,<B,TEMP>

: SEE IF A NULL ENTRY

#SHTRE ,=(SP)

#1,-(SP)
SP,RO
CSPNTS

MOV
MOV

MOV
TRAP

Sbb—l
OO

ACTKAL:

108:

8=23 888

NN
OO —
OO

060010
060014

003246
003401

005037

O OO0 —-=000

é 1?

6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
633
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6364
6345
6366
6347
6348
6349
6350
6351
6352
755
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
638

MACY1? 30A(1052)

057550
057556

=000

6313
6314
6335

23°0EC-3 2 13:54
CLY

OCO—=0O—=

CZKMSAQ KMS11
CZKMSA.P11

INCREMENT TABLE ADDRESS

SP.RO

J 15

BE LY
CZxMSAO kMS11-22BD/
-DEC 'gg 13:54

CZKMSA.P1Y

6369 060016
6370 0600

6371 0600
6372
6373

6374
6375

005225
001355

01%766 021650
0600
0600 g 012746 000001
0600
060034

192
23-DEC-B2 14:01 PAGE
MACY11 30A(1052) ACTI
INES
ROUT
AND
E
TABL
ON
CKED ALL OF LIST
. SEE IF CHE
RS
DEC
* BR BACK IF NOA PARTING CR
b1
BNE
ELSE PRINT
PRINTS #CR
4$:

010600
104416

6376 060036 062706 000004

000207
2 ;g
6379 060046 005937 003404
6380 060044
¢531

060050

105037

6383
gggg

060060
0062

001401
000443

638

0054

SEQ 1N

003400

105737 003401

003374
6386 060064 013701
6387 060070 022701 000007
6388 060074 103012
6389 060076

:RETURN TO CALL

VALTRB
PSNNUF
P$GDBD

E FLAG
SINIT. VALID LIN
INFO FLAG
UGH
ENO
NOT
“CLEAR
R FROM ..KTB
ERRO
AN
WAS
IF
E
“"SE

ACTEXX

MOV

PSNUM,R1

BHIS
PRINTS

2%
#SHTIV,R1

.SEE THAT ITS A VALID LINE NUM (0=7)

BEQ

1%:

CMP

6390

060076

010146

6393
6394

060110
060112

010600
104416

2297

060120

000424

B8R

6399
228?

060130
060132

001401
000615

* BR IF NO

108

ELSE EXIT

#7,R1

MOV
MOV
MOV
MOV
TRAP
ADD

6391 060100 012746 016146
6392 060104 012746 000002

6395 060114

062706 000006

MOV
MOV
TRAP
ADD

RTS
5%:
ACTEKT:
CLR
CLRB
TST8

108:

ACTEXX

CMP
BEQ

SETRB.KEYWD1
ACTEKE

ABLISH
; SEE IF KILL OR EST
ABLISH
" BR IF WAS AN EST
ae827 ONLY ONE POSSIBLE

007622

MOV

#TRIBLS,R2

LIST
: ONCE CHECKED BER
° LOAD LINE NUM IN 1ST SLOT DCLT

642
6610 060162 010237 007
640
007
137
010
22}1 060166

MOV
MOV
MOV

#-1,VALTRB
R2, INDEX
R1. INDW

“SET VALID LINE EXFLAG
MOVE R2 TO IND TO INDW
MOVE LINE NUMBER

6398 060122 022737 000062 003246 28:

6402 060134
6403

6404

6405

060134

060140

012702

11011;

ACTEKE:

001 007634
6606 060142 01273702 000
622
007
228; 060150 1627
6409 060156 012737 177777 003404

§ 060172
641
6414 060172 000207
6415

6616

6417

MOVB
MOV
SUB

ACTEXX: RTS

ACTKAL

R1,(R?)TOT
#1.1RB 2
#TRIBLS.R

: KILL LINE

DCLT
ES = 1
TOTAL # LIN
" SPECIFY xsr
.ég?r?agg Ant OF LIST FROM POINT TO

:RETURN TO CALL

K15

CZKMSAQ KHS115§DIBE
CLY
CZKMSA.P11
-DEC-82 13:54

MACY11 30A(1052) 23-DEC-82 14:01 PAGE 193

SETUP FOR RECEIVER ALLOCATIONS

gz}g

.SBTTL

6420
6421

060174

6424
6425
6459
6427
6428
6429
6430
6631
e«sg

060174
060202
060204
060210
060 18
060
060 g
060222
oeozge

032737
001451
005737
001416
083737
001412

000002

012746
012746

014450
000001

6435
22%9

060236
060242

062706
000137

000004
054576

005737
001013

007634

012746
012746
010600
1046417
062706
112737

016072
000001

105737
001043

003401

013737
005737
oo1og3
012737

010060
010150

010150

000072

010150

22§

6433
6634

6638
6439
6440
6441
6442

6443
6444
6445
6446
6447

060232
060236

060246
060246
060252
060254
060254

060260
060264
060266
060270
oeogra

6448
6449
6450

060302
060302
060306

665§
6453
6454
gzgz

060310
060316
060322
823253

6451

6457 060332

010600
104417

060340
ooosas
06035
060356
060362

6465
6469

060366
060374
060376

g:;g

060416

0001

6467
6468
6669
6470
6671

060376
060402
060406
060410
060612

010224

:START EXECUTION OF RUN COMMAND

010220

000004
177777

001430
atgrgr
81 737
osogr
004737

010074

44s:

003401

010046
010164

4$:

;IS THIS DATA CHECK
‘BRANCH IF NO
:BRANCH IF NOT LOOP

:ARE TX AND EX EQUAL
:BRANCH IF YES
:PRINT MESSAGE TO OPERATOR

022737
002012

001000

010170

01%746
012746
010609
10441
oezrgg

016237
000001

JMP

GETCL

ST
BNE
PRINTF

TRBTOT
I3
#SHTLPA

MOVB
1STB
BNE

#-1,P$GDBD
:SET ERROR FLAG
:CHECK ERROR FLAG
P$GDBD
:TEST ERROR FLAG
128
*BRANCH IF ERROR

MOV
ST
BNE
MOV

CTOTCC,CURCC
CURCC
1%
#58.,CURCC

BIT

#DATCKB,PARAM

BEQ
MOV
MOV
CLR
JSR

030356

054576

#DATCKB,PARAM
448
MLTYP
448
CMPTOT,TXMTOT
448
#CLIPW

MOV
MOV
ADD

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

MOV
MOV
MOV
TRAP
ADD

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

MOV
TRAP

007634
010150
01017

000004

: RX ALLOCATE CODE
BIT
BEQ
ST
BEQ
CMP
BEQ
PRINTF

oszrgr 000002 010224

6458
6459
6460
6461
646§

646
6464

SETUP FOR RECEIVER ALLOCATIONS

GTR9:

010056

12%:

;GO GET NEXT COMMAND
:CHECK FOR AT LEAST ONE LINE ENABLED
;1S LINE TOTAL
:2ERD?..BR IF NOT
:PRINT ERROR MUST ESTABLISH LINE

;CHECK If DEFAULT RUN COMMAND

2%
TRBTOT,MPLY
cuacs.tenp
TEMP
PC,MTPLY

CMP
BGE
PRINTF

#BUFLIM,TEMP2
2%
#SHTBR

JMP

GETCL

:MAKE CURRENT COUNT= COMPARE COUNT
STEST TOTAL COMPARE COUNT
*BRANCH IF NON DEFAULT
*SET UP DEFAULT
:BRANCH IF NOT CHECKING

;MULTIPY TRBTOT BY CURCC

SRESULT IN TEMP2
;IS IT MUCH TO MUCH

:NO EVERTHING IS HUNKY DORY
ERROR

;GO BACK TO GET NEW COMMAND

MOV
MOV
MOV
TRAP
ADD

#SHTBR,=(SP)
#1,-(SP)
SP,RO
CSPNTF
#6,SP

Q19

L 15

CZKMSAO KMS11-BD/BE

CZKMSA.P11

DCLT

z?-oec 85 13:54

MACY11 30A(1052)

6474

28:
006406 010052
0604 § 012737
6475 0604
012737 006502 010054
060630

6476
6477 060636 012737 006576 010050
6478 060644 013737 010056 010112
6479 060452 032737 000002 010224
6480

060460

0010 ;

060462

01§7

000021

6483
6484
6485
6486
6487
6488
6489

060474
060500
060504
060510
060514
060520
0605%6

005037
goso 7
005037
005037
005037
oosogr
012737

007644
807646
013634
01%636
013640
01364
00767

6492

060546

005037

6481

eaag 060470 005037 010134

6490
6491

6493
6494
6495
96
6497

060532
060540
060552
060556
060562
060566
060572

015737
012737
005037
005037
005037
005037
005037

007672
007656
010230

010112

GTREX:

o1§737

177777

007642

6504
6505

060622
060630

032737
001005

000002

010224

GTRX2:

6507

6508

060640

060644

005037

004737

010164

030402

6509 060650 022737 000010 007642
gg}? 060656 001422

#1,RXMTOT

*1F NOCHK MAKE RXCOUNT =1

CLR
CLR
CLR
CLR
CLR
CLR
MOV

CTX
CRX
ILLRSP STARTC
ERRTHR
RXMIT
#RXSTAK ,RSPTRS

CLR

060660

012737

005406

010170

6515 060666 013737 007642 010046
6516 060674 004737 030356
gg}g 060700 013737 010170 010156

gg}g
2251

060706

004737

030474

060712 012737 000010 010146

6526 060720 004737 027520

6507
6528

6529

CLNSET

SRXSTAK'RSPTRE
#TXSTAK.TSPTR
FLAG

‘BRANCH IF CHECKING

SCLEAR CLEANUP IN PROGRESS SPECIFIER

*CLEAR TX COMPLETE COUNT
*CLEAR RX COMPLETE COUNT
:CLEAR ILLEGAL RESPONSE COUNT
SCLEAR DDCMP START COUNT
*CLEAR ERROR THRESHHOLD RESPONSE COUNT
*CLEAR RETRANSMIT COUNT
;POINT TO START OF RX SAVE AREA

:AGAIN. POINT TO START OF RX SAVE AREA
:POINT TO START OF TX SAVE AREA
‘CLEAR FLAG

.CLEAR NO BUFFER COUNTER
*CLEAR OPVAR1
*CLEAR PASS COUNT
:CLEAR ERROR COUNT
“CLEAR COUNTER THAT IS USED FOR STATUS

(LR
CLR
CLR
CLR
CLR

OPVAR
OPVAR1
PSCNT
ERRCNT
LNC

JSR
JSR

PC,LOGDV]
PC.OVINIT

MOV

#-1, INDEX

;MAKE INDEX ==1

BIT
BNE

00Atcxa PARAM
GTRX2A

:1S THERE DATA CHECKING
‘BRANCH IF CHECKING

CLR

TEMP

MOV

GTRX2A: JSR

CMP
BEQ

INITALIZE COMMUNICATIONS DEVICE
:L0GABOUT TO INIT DEVICE
SINIT DEVICE

CURCC, TEMP

cauern CURCC

:SET UP CHAR COUNT TO 'BUFLIM®

PC,GTVIND

cer VALID INDEX

#8., INDEX
GTRX2B

SIS IT 8
SYES.. ALL DONE GO EXECUTE MODE

MOV

MOV
JSR
MOV

#RXBUF, TEMP?2

INDE X, MPLY
PC,MTIPLY
TEMP2,CURADD

:TEMP= 0 FOR PTP OR MTP/W NO CHK

PINDEXX TEMP+ RXBUF ADDDR =
*NEW RXBUF ADDR
:SET UP RX BUFFER ADDRESS

:GET CURRENT POINTER FIGURE
JSR

PC,GRPTCP

;G0 LOAD '33°' TO BUFFER

ggg‘

6525

GTREX

;GET RXBUFF PTR FIGURE

gg};

6514

R RECEIVER ALLOCATIONS
< INITIALIZE POINTERS, COUNTERS AND FLAGS
POINTER
MESSAGE poxann
:INIT TRANSMIT
IPIRTAB tXPTR
MESSAGE
COMPARE
:INIT

MOV

6503 060614 013737 010150 010164 GTRX2C: MOV
506 060632 012737 001000 010150

PAGE 194

SINIT RECEIVE MESSAGE POINTER
:MAKE COMPARE AND RX MESSAGE COUNTS EQUAL
:1S IT DATA CHECK

CLR

6498
6499 060576 004737 024244
ggg? 060602 004737 063024

14:01

#PTR13,(MPPTR
#PTR2 nxprn
CMPTOT.RXMTOT
ODATCKB PARAM

MOV
MOV
MOV
BIT

MOV
MOV

010116
010120
010122
010124
010114

060606

MOV
BNE

007650
007652
007654

6502

23-oec-az

060724
060730

060732

013702
00630
000172

010216

010232

MOV

#10,MSGTYP

:SET UP FOR 33 TO FILL RX BUFFERS

GTRX2B: MOV
ASL
JMP

noovvp R2
R2
aMODE (R2)

:MODE DISPATCH

JSR

PC, BLDBUF

*CLEAR RX BUFFER

SEQ 193

BE ~ (LT
BD/DEC
CZKMSAOD kMS11-23-

(lKHSA P11
6530

PAGE195
2RECE1 4:01
MACYTY 30A(1052) 23-DE(-8
CATIONS
ALLO
IVER
R

SEQ 194

N 15

CZKMSAD xns11 D/BE

CZKMSA.P11

23-DEC-82

13:54

MACY1? 30A(1052)

23-DEC-8B2

RECEIVE MODE SECTION

PAGE 196

RECEIVE MODE SECTION

ssrtL

2331

14:01

es%g
6534

DESCRIPTION:
; FUNCTIONAL
RECEIVE=ONLY (OR ONE=WAY=IN) ROUTINE

6540
6541

: SUBORDINATE ROUTINES USED:
“ALLTR"’
:

6543

: CALLlNG seouewcs

;

:
;
:
;

6535
6536
6537
gggg
6542

IN THIS MODE OF TESTING THE DEVICE'S RECEIVER IS ENABLED IN EXPECTATION
OF RECEIVING A MESSAGE. AFTER RECEIVING AN "‘EXPECTEDTM NUMBER OF
MESSAGES, THE DATA RECEIVED CAN BE COMPARED AGAINST A LIST OF “EXPECT
TO RECEIVE'* MESSAGES IF DATA=CHECKING IS ENABLED.

;

ggzg

’
6546
BIS
RXONLY:
010230
000104
052737
6547 060736
6548 0607464
6549 060750

004737
004737

030160
030112

060760

000137

061110

6550 060754 005037 010154

6551

RXON3:

JSR
JSR

CLR

JMP

AMODE (R2)

:DISPATCH TO MODE RASED ON MODE TYPE IN R2

WORX+ERX,FLAG
PC,LCPRLS
PC . RXQUAL

;SET UP RX OUE: RX ousueo. RX EXPECTED
*LOAD CPTRLS (RX PTRS)
:GO OUE ALL VALID RX'S

ALLTR

;GO RX.

CPIR

SEQ 195

B 16

CZKMSAQ xns11

CIKMSA.P11

D/BE

23-DEC-82

13:54

MACY1? 30A(1052)

23-DEC-B2

TRANSMIT MODE SECTION

144

6555

65 9

: fuucerNAL DESCR!P!ION.

6558
6559

:
:

656
656

: SUBORDINATE noqmes"useo:
TR
:
:

6565

: CALLING ssouence

655

;

gggg

6564

;

gggg
6568
6569

PAGE 197

TRANSMIT MODE SECTION

JSBTTL

gg z

14:01

060764

6570 060772

042737

ogoooz

004737 030306

010224

6571 060776 052737 000210 010230
6572 061004 004737 030262

061010 012737
6573
061016 000137 061110
6574

000010

007642

ANSMIT=ONLY (OR ONE=WAY=0UT) ROUTINE

1n THIS MODE OF TESTING A LIST OF MESSAGES IS TRANSMITTED WITHOUT
EXPECTING ANY DATA TO BE RECEIVED. A REPETITION COUNT CAN BE

SPECIFIED TO REPETITIVELY TRANSMIT THE LIST.

JMP

TXONLY: BIC

TXON2:

JSR

BIS
JSR

JMP

MOV

SMODE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

#OATCKB,PARAM

;SET NOCHECK

PC,LCPTLS

#OTX+ETX,FLAG
pc CLRPLS

ALLfaINDEX

SLOAD TX POINTERS AND TX COUNTS

:TX QUEUED, TX COMPLETE EXPECTED
‘CLEAR RXPRT LIST

;60 TX.

SEQ 196

C 16

CZKMSAD xns11 D/BE

CIKMSA.P11

23<-DEC~-

154

MACY1? 30A(1052)

23-DEC-82

PASSIVE MODE SECTION

LSBTTL

gg;

6578

6581

14:01

PASSIVE MODE SECTION

: FUNCTIONAL DESCRIPTION:
PASSIVE MODE SECTION
:

6579
6580

658

333?

IN THIS MODE OF TESTING,

RECEIVED DATA.

6590

: CALLING seouencs

6593

’

;

PLCK:
6594 061022 004737 030306
030160
004737
6595 061026
6596 061032 052737 0001064 010230
6597

061040

004737

030112

6598 061044 000137 061110

THE DEViCE‘'S RECEIVER IS ENABLED IN

RECEIVED, A MESSAGE IS TRANSMITTED.

§ SUBORDINATE ROUTINES USED:
“ALLTR"
;

ggg}

MESSAGE 1S
EXPECTATION OF RECEIVING A MESSAGE. THEN EVERY TIME A BE
DONE ON THE

gggg
6588

6589

SEQ 197

PAGE 198

JSR
JSR
BIS
JSR

JMP

DATA CHECKING CAN

aMODE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

PC,LCPTLS
PC.LCPRLS
#ORXERX,FLAG

;LOAD TX POINTERS AND TX COUNTS
*SET UP CPTRR TO REC POINTERS
:RX oueueo AND EXPECT RX

PC,RXQUAL

ALLTR

:QUE ALL

P AND co RX FIRST MSG.

D16

CZKMSAO KMS11-BD/BE SLT
13:54
25-DEC~
CZKMSA.P11

MACY1? 30A(1052)

23-DEC-82

14:01

ACTIVE MODE SECTION

SEQ 198

PAGE 199

ACTIVE MODE SECTION

.SBTTL
14t

: FUNCTIONAL DESCRIPTION:
:

;
;

;
:

VNN
OO
YO

IN THIS MODE OF TESTING, A LIST OF MESSAGES 1S TRANSMITTED AND THOSE
MESSAGES ARE EXPECTED TO BE RECEIVED. RECEIVED DATA CAN BE COMPARED
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!

: SUBORDINATE ROUTINES USED:

6614
661

333 33E3 32838

ACTIVE MODE SECTION

: CALLING SEQUENCE:
IMODE (R2)
JMP
;
061050

061076
061104

000002

010224

010074
030306
030160
000314

010112

030112

010230

ALCK:

1%:

.DISPATCH TO MODE BASED ON MODE TYPE IN R2

BIT
BNE
MOV

#DATCKB,PARAN
1%
TXMTOT,RXMTOT

:1S IT DATA CHECK
*BRANCH IF CHECK
:1F NOCH MAKE RX=TX

JSR

PC.LCPRLS

*LOAD RX POINTERS

JSR

BIS

JSR

PC,LCPTLS

*LOAD TX POINTERS AND COUNTS

#ORX+QTX+ETX+ERX.FLAG

PC,RXQUAL

:;RX QUEUED, TRANSMIT QUEUED

“EXPECT RECEIVE, EXPECT TRANSMIT

:QUE UP 1 RX BUFFER FOR ALL VALID LINES

E 16

CZKMSAOD xns11-go/ee gCLT

CIKMSA.P11

23-DEC-82 13:54

MACY11 30A(1052)

gg 3

JSBTTL

6631

23-DEC-82 14:01

PAGE 200

TRANSMIT = RECEIVE FOR ALL STANDARD MODES

THIS CODE PERFORMS THE FOLLOWING FUNCTIONS:

: FUNCTIONAL DESCRIPTION:

66 ;

;

22%4

:
:
:
:

1.) IF RX BUFFERS ARE TO BE QUEUED,TELL DEVICE
CODE TO QUE THEM AND LOG 'RECEIVE QUED®.
2.) IF Tx BUFFERS ARE TO BE QUED, TELL DEVIC
CODE TO QUE THEM AND LOG 'TRANSMIT QUED®.
3.) WAIT FOR EITHER RECIVE BUFFER OR TRANSMIT BUFFER OR
BOTH TO COMPLETE THE SETUP PROCESS.
4.) IF RECEIVE COMPLETE, LOG IT. THEN, IF DATA CHECKING

:
3

6.) WHEN BOTH TRANSMIT AND RECEIVE LISTS ARE DONE,
GO TO THE COMPARE BUFFER CODE.

6635

6636
6637

;

664
664

;
:

6638
6639
6640
6641
6644
2222

IS ENABLED, UPDATE THE RX TABLE.
5.) IF TRANSMIT COMPLETE, LOG IT.

6647

: SUBORDINATE ROUTINES USED:

gggg

;

"DVRXQ'’ -QUE RECEIVE BUFFER SPACE TO DEVICE
*'LOGRXQ''-LOG RECEIVE BUFFER SPACE TO EVENT LOG
*LOGTXQ''-L0G TRANSMIT BUFFER QUED TO EVENT LOG
“OVTXRX''-QUE TRANSMIT BUFFER AND WAIT FOR RX
_OR TX TO COMPLETE
:
LOGRXC''~LOG RECEIVE BUFFER COMPLETED TO EVENT L0G

:
;
:
;
;
:

6648
6649
6650
6651
6652
6653

"LOGTXC''~-LOG TRANSMIT BUFFER COMPLETED TO EVENT LOG

6656

: USE OF FLAG BITS:

6666

QRX = SET ON ENTRY TO ALLTR IF RECEIVE IS TO BE QUED TO
DEVICE. CLEARED BY DVRXQ AND THEN SET BY DVTXRX
WHEN RX IS COMPLETED.
QTX = SET ON INPUT TO ALLTR IF TRANSMIT IS TO BE QUED TO
DEVICE. CLEARED ON ENTRY TO DVTXRX AND SET BY DVTXRX
WHEN TX BUFFER IS COMPLETED.
ETX = USED BY DVTXRX TO DETERMINE IF TX BUFFER COMPLETED IS
EXPECTED.
ERX = USED BY DVTXRX TO DETERMINE IF RX BUFFER COMPLETCD IS

:
:
:
:
;
;
;
:
;

6657
6658
6659
6660
6661
6662
6663
6664
6665

6667
6668

3
:

EXPECTED.

* CALLING SEQUENCE:

6669

JMP

ALLTR

;GO TO TRANSMIT=RECEIVE FOR ALL STANDARD MODES

BIT

#ORX,FLAG

ALCK |

*IF NO RX QUEUE PENDING, SEE IF TX PENDING

6678 061120 004737 030454
6679 061124 004737 031142

ALCKSB: JSR
JSR

PC,ULRPLS
PC . LOGAGR

:GET RX INDEX
1L0G AND QUE REC.

031030

JSR

PC,GNTXPR

“TRANSMIT COMPLETE FLAG SET: GET NEXT XMIT PTR.

gg;q

667
667

6674

ALLTR:

061110

6675 061110 032737 000004 010230 ALCKS:

gg;g 061116 001406

ggg? 061130 004737 030434
6682 061134 032737 000010 010230 ALCK1:
6683 061142 001455

6686 061144 004737

BEQ
JSR
BIT
BEQ

PC .LDRPLS
#QTX,FLAG
ALCK

:1S A RECEIVE QUEUED?

*RESTORE RX PTR 10 LIST
:TRANSMIT QUEUED
“IF NO TX'S GO 10 2

SEQ 199

F 16

CZKMSAD KMS11=
go/as ggtt
CZKMSA.P11
-DEC=82
13:54
6685

MACY11 30A(1052)

061150

0137

10154

MOV

CPIR,R2

061164

81% 7
011237

010064
810172

MOV
MOV

(R2)+,DVTXA
(R2), fEMP3

6686 061154 311 ; 81§1;o
6687 061160

6688
6689

061170

061174
061200
061204

010; 7
004737
004737

010154
030572
024144

gggg

061210

004737

064340

6696

061214

032737

000004

6698

061224

01373

010106

6690
6691
ggg

6697

061222

012237

00154;

061232

013737

010106

061240

061246

004737

024216

6703
6706
6705

061252
061260
061262

000004

061266

032737
001410
004737

013702

010154

6708
6709
6710
6711

oe1§7e
061302
061310
061312

013712
032737
00101;
004737

010172
000002

6706

013737

MOV

1oogo

6700

2;81

010102

MOV

061316
061322

030454
010152

6714
g;}g

061330
061334

004737
000440

6717
6718

061336
061342

004737
01370;

6720
6721
6722

061354
061362
061370

013737
063737
004737

6719

061346

013737

030434

010172

010170
010160
027644

6723 061374 011537 010164
6726

061400

163737

010160

013712
16270

010164
ooooog

6725
6726

061406
061412

013722
013722

6758
6730
6731
o7s§

oo1a§o
061432
061436
061436

010237
004737
022737

000002

061446
061452
061460
061466

005337
042737
052737
000622

007642
0000064
000210

004737

030552

6727
6708

6733

673
6735
6736
g;;g

6739

6740

061413
061422

061444

061470

061476

001011

005337

010172
010156

(R2)+,DVTCC

:SAME BYTE COU

:SAME ADDRESS
:BYTE COUNT OF rue ME SSAGE

JSR

PC,DVTXRX

:GO TO TX AND RX SUBROUT INE

010230

BIT

#ORX,FLAG

;CHECK FOR REC. QUEUED

010170

MOV

DVRXA, TEMP

*MESSAGE nscsxvso. LoG If

ALCK2:

BEQ

010172

010224

:L0G EVENT

JSR

PC,LOGRXC

:LOG REC COMPLETE

UPTABL: BIT
BEQ
JSR

oecuoa PARAM

;IS THIS Ecuo MODE (PASSIVE)
:1F NOT GO TO 4

CPTR,R2

;ELSE ser nz TO PRESENT TX TABLE

MOV
BIT
BNE
JSR

TEMP3. (R2)
ooAtcxa PARAM
UPTAT
PC,GETIND

SAND CC
IS DATA cuecxxuc ASKED FOR
:1F SO GO TO UPTA1
SGET INDEX

JSR
BR

PC,LDRPLS
UPTEX

:LOAD COUNT AND LIST

JSR
MOV

PC,ULRPLS
CPTRR,R2

:GET PTR FROM LIST

MOV
ADD
JSR

TEMP2.CURADD
rorcc CURADD
URAD

:COPY RCVD MESSAGE ADDRESS
:POINT TO END OF RCVD MESSAGE
:MAKE SURE ADDRESS IS ON WORD BOUNDARY

MOV

UPTA4:

JSR
MOV

010152
UPTA1:

010160

MOV

010156
010156

010164

010216
010230
010230

:1F MESSAGE NOT RECEIVED, CHECK FOR TX

DVRCC. TEMP

MOV

010224

ALCKS

MOV

007636

01015
030434

010110

*ADDRESS OF THE MESSAGE

'NOW poxur;ns ro FOLLOWING MESG ADDR, BYTE (T
:RELOAD
L
:L0G rnnusnxr QUEUED

031102

030210
010170

(R2) . TEMP2

az.cpfn
PC.LDTPL
PC. LOGTXO

030612

004737
013737

;POINTER TO NEXT ADDRESS, BYTE COUNT PAIR

MOV
JSR
J5R

6707 061272 013722 010170

6712
6713

23-DEC-82
14:01
PAGE 201
TRANSMIT = RECEIVE FOR ALL STANDARD MODES

pc ULYPLS

tsnpé (R2)+

PC.LCPRLY
TEMP2, CPTRR

:L0G MESSAGE RECEIVED

:STORE OFF RX ADD

‘RESTORE POINTER
*RESTORE POINTER

TEMP3.TOTCC

;COPY RCVD MESSAGE COUNT

MOV

<né) renp

:LOAD TEMP WITH PREV. RX BUFF LENGTH

MOV
MOV

TEMP3.
(R2)+
CURADD, (R2)*+

SUB

UPTEX:

DVRTB, TRIBN

IOICS TEMP

MOV
SUB

TEMP, (R2)
#2,RS

CMP

#PAS MODTYP

DEC
BIC
8IS
BR

INDE X
#QRX, FLAG
NOTXSETX,FLAG
ALCK1

MOV
JSR

BNE

ALCK2A: JSR

DEC

R2.CPTRR
PC.LDRPLS

ALCK2A

PC,ULRCLS

DVRCT

*SUBTRACT CURRENT COUNT

:COPY ACTUAL COUNT RECEIVED
:STORE OF NEW RXBUFF ADDRESS

:AND NEW BUFF LENGTH
*PUT POINTER BACK TO ADDR.
:AND RESTORE IT.

;1F NOT PASSIVE LOOP THEN GO TO 2A

:1F PASSIVE NEXT TXQ WILL BE FOR THIS LINE
:CLEAR BOTH EXPECTED AND COMPLETED FLAGS
+TX QUEUED, EXPECT TRANSMIT COMPLETE
:GET COUNT

‘DEC REC COUNT

SEQ 200

G 16

CZKMSAD KMS11 go/se gth
CZKMSA.PIN
DEC-82
13:54
6741

061500

004737

MACY1Y 3ou<1052>

2;2?

061526

030434

6748

6751
6752
6753
g;gg

061540
061546
061554
061562

01;7 7
013737
o137g7
004737

010064 01017
010066 01017
010070 007636
024162

6756

061566

0047%7

030652

g;gg

061576

004737

03063

6760

061602

022737

000002

061624

001403

061626

052737

061644
061646

001007
000137

6766

6767
6768

010216

061610 ootogo
061612 042737 000010 010230
061620 005737 010072

061636
061640

004737
005737

pc LDRPLS

*AND RELOAD LIST

#ORX ,FLAG
CPTRR

000104

030744
010072

010230

$1S ITGOALL
DONETX
CHECK
‘NO.

$CLEAR THE RX QUEUED FLAG
‘YES. CLEAR POINTER

MOV
MOV
MOV
JSR

x£

DVTXA TEMP
DVTCC. TEMP
DVTTB, TRIBN
PC,LOGTXC

;1S A TX QUEUED?
NOT TX THEN GO BACK (nex.uen RX NOR TX)
t1F

JSR

PC,ULTCLS

:GET CURRENT TRANSMIT COUNT TO DVTCT

JSR

PC,LDTCLS

:AND RELOAD LIST

CMP

#PAS_MODTYP

:ARE WE IN PASSIVE MODE?

BEQ

ALCK3D

BIT
BEQ

DEC

6757 061572 005337 01007

6761
6762
6763
6764
6765

JSR

LDRCLS

: CHE x FOR nessace IRANSHIIIED

6749 061530 032737 000010 010230 ALCK3:

6750 061536 001467

6
ALCK3

BIC
CLR

00 9 7 010152
004737

53]
BNE

:RESTORE COUNT

JSR

03053

6742
061504 0019
osrir7 010115
oe1§1
674
6744 06151 oag 7 000004 010230
6745 0615%

23-oec-az 14:01 PAGE 202
ANSMIT = RECEIVE FOR ALL STANDARD MODES

BNE
BIC
ST

BIS

ALCK3D: JSR
ST

ovicT

YRANSHIT COMPLETED=- LOG IT
:L0G TX COMPLETED
:L0G EVENT=STRANSMIT COMPLETE

*DEC TX COUNT TO RECORD1 MESSAGE TX COMPLETED

ALCK $A
#QTX,FLAG
pvTct

SIF NOT PASSIVE MODE GO TO 3A
*TRANSMIT COMPLETE, NO LONGER QUEUED.

#ARX+ERX,FLAG

AND SET THE RX FLAGS

PC,GATCFL
pvicT

ALCK3C
CMPSR

:IF NO MORE MESG TO RX FOR THIS LINE

SEXIT WITHOUT RESETING QRX (RX STILL OUEUED)
;1F MORE TX'S T0 IT
: ELSE COMPARE

061742

BNE
JMP

061652 004737 030744

ALCKSA JSR

PC,GATCFL

:GET ALL TX COUNTS FROM LIST

6775 061662 001404
6776 061664 004737 031102
6777 061670 000137 061110

BEQ
ALCK3C: JSR
JMP

ALCK3B
PC.GETXND
ALCKS

:1F NOT GO BACK TO S
sALL TRANSMISSIONS COMPLETE FOR CURRENT LINE
*NOW GET ANOTHER VALID LINE.

6769
g;;?
677

677

6774 061656 005737 010072

:NOT PASSIVE noos

1ST

6778
6779
6780
6781
678
6783

061674
061700
061706
061714
061716
061722

ALCK3B: CLR
005037 010154
BIC
042737 000010 010230
BIT
032737 000002 010224
BEQ
001405
ALCK4&: JSR
004737 030672
1ST
005737 010152

6785

061730

005737

010154

ALCK4A: TST

000137

061210

JMP

6784

6786

g;gg

061726

061734

061736

001356

001402

BNE

BEQ

vaCT

CPTR
#QTX,FLAG
#DATCKB,PARAM
ALCK&A
PC,GARPFL
CPiRR
ALCK3C
CPTR

CMPSR
ALCK2

;1S IT ALL DONE? ALL TRANSMISSIONS COMPLETE?

:CLEAR POINTER
S TRANSMIT coansre NO LONGER QUEUED.
lS IT DAT CHECK
*1F NOT THEN END WO CKING RX.
=
:1F SOME RX''S LEFT GO BACK
:BRANCH IF ANY TX'S LEFT

SEQ 201

H 16

CZKMSAD KMS11-BD/BE

CZKMSA.P11

DCLT

zg-oec-gs 13:54

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 203

DATA COMPARISON CODE
DATA COMPARISON CODE
.SBTTL

2;3

6794
6795

see

6798

CMPSR = COMPARE CODE

ggg?

EXPECTED AND FILLS THE EVENT LOG WITH 1 OF 3 MSGS.

ggg

NOTE: IF NO DATA CHECKING SKIP THIS CODE

6804

1.) A DATA COMPARISON ENTRY WHICH REPORTS THE NUMBER

g;gg

: FUNCTIONAL DESCRIPTION:

6799

;

6805
6806
6807
6808
6809
6810
gg}1

;
;
;
;
;
:
:

681%

;

THIS CODE COMPARES THE RECEIVED DATA AGAINST THE

OF COMPARISON ERRORS FOUND.
2.) A DATA COMPARISON ENTRY WHICH REPORTS DIFFERENCES
IN REC LENGTH TO COMPARE LENGTH.
3.) A DATA COMPARISON STARTED ENTRY WHICH REPOPTS ADDRESS
OF RECEIVE BUFFER AND BYTE COUNT.
THIS CODE ALSO REPORTS SOFT ERRORS FOR DATA COMPARISON
(THE FIRST S ONLY),LENGTH ERROR,AND TOTAL NUMBER OF ERRORS

23}';

: SUBORDINATE ROUTINES USED:

6816

;

"LOGCMP'* = SEE ITEM 3 ABOVE

gg}g

*LOGCMD'* - SEE ITEM 1 ABOVE

6817

;

6820

: CALLING SEQUENCE:

ggg%

682

6824
6825
6826
6827
6828
gggg

061742
061750
061752
061760
061764
061772

032737
001533
012737
004737
022737
001522

000002

010224

177777
030402
000010

007642

6831

061774

004737

030474

6835

062014

062014
062020
062024
oozogb

o1370;
011237
015201
012237

010154
010170

686§
684
6844

oczosg
oogoa
062044

013705
01 %o
01 ga

010152

6549
6847

062052
062056

010437
004737

010174
024312

683§
ggg‘

6836
6837
6838
6839

“LOGCML'* = SEE ITEM 2 ABOVE

062000
062006

013737
013737

010054
010112

010172

ggzg 062032 010237 010154

6845 062046 010237 010152

007642

JMP

;

CMPSR:

BIT
BEQ
MOV
CMPNEW: JSR
CMP
BEQ

010152
010110

:JUMP TO DATA COMPARiSON CODE

#DATCKB,PARAM
CMPSEX
#-1, INDEX
PC,GTVIND
#8., INDEX
CMPSEX

;IS DATA CHECKING TO BE DONE
SIF NOT THEN EXIT

;END IF NO MORE LINES

JSR

PC,GRPTCP

CMPPTR,CPTRR
RXMTOT .DVRCT

; AND START OF COMPARE POINTS TO CPTRR
:

MOV
MOV
MOV
MOV

CPTR,R2
(R2) , TEMP2
(a%)o.n1
(R2)+.TEMP3

:MOVE CURRET RX PT.TO R2
:MOVE RX ADD TO EVENT LOG
SSET R1 TO START ADD OF RX
SSET CHAR COUNT TO EVENT LOG

MOV
MOV
MOV

cptaa,ag
(agxo.a
(R2)+.R&

;PUT R2 AT COMPARE TABLE
SSET R3 TO COMPARE ADD
SSET R4 TO COMP CC

R& . TEMP4
PC.LOGCMP

:L0G COMPARE START.

MOV
MOV
CMPS3:

CMPSR

MOV

MOV
JSR

R2,CPIR

R2,CPTRR

*RESTORE RX POINT
‘RESTORE POINTER

SEQ 202

/BE
1-BD
KMS1
SAQ
CZKM
23-DEC-82
CZKMSA.P11
6848

6849

062062

SLT

020437

13:5¢4

MACY1? 30A(1052)

062074

2%29

062104

6854
6855
6856
6857

BEQ
INC

6860
6861

104457
000001
017661
023430
004737

024330

062110
062114

005037
012737

010174
000001

686§ 06 152 122153
6863

062124

001422

101014
114337
114137

6871
6872

000002

010204
010205

6870 062152 005237 010124
6873
6874
6875
6876

6877
6878

6879

062156

062156
062160
062162
062164

062166
062170

104457
000002
017716
023340

005201
005203

062172

oosgsr

062206

001410

010162

6880 062176 005304
6881 062200 891350
6882 062202 005737 010174
6883
6884

6885

062210

6886 062214

005237

000003

010124

6887
6888
6889
6890

062214
062216
062220
oozg 2

104457
000003
017716
ozsno;

689
6893

062224 004737

oogz 0
062230

024346

005337

010110

6891

689 062234 001267
6895 062236 000400

R4, TEMP3

:n$s§

ERRCNT

010162

CMPS7:

(MPS1:

:1S COMPARE COUNT = TO RX COUNT

:1F SO GO TO 7

PC,LOGCML

:L0G LENGTH ERROR

CLR
MOV

TEMP4
#1,0FSET

:CLEAR BAD BYTE COUNTER
*SET OFSET BYTE COUNT T0 1

BEQ

CMPS6

*IF EQUAL THEN GO TO 6

TEMP4L , #5

*1S IT MORE THEN §

C(MPB

(RT)+,(R3)+

TEMP4

PAGE 2064

JSR

CMPS2: INC
gggs 0621;6 005237 010174
CMP
6866 062132 023727 010174 000005
BHI
6867 062140
6868 062142
6869 062146

14:01

: INCREMENT ERROR NUMBER
ENUM = “D<ENUM+1>
:PRINT ERROR
ERRSOFT ENUM,EDDLE.ERR10

000001

062076
062076
062100
062102

23-DEC-82

DATA COMPARISON CODE

CMP

010172

os%ose o1a19 010124
6850
6851 062070 005237
685
6853

SEQ 203

116

TRAP
MORD
.WORD
"WORD

:COMPARE RX WITH EXPETED

: INC BAD COUNT

‘IF SO GO FOR MORE
GOOD BYTE FOR ERROR
*STORE
MOVB
*STORE BAD BYTE FOR ERROR
MOVB
ERRCNT
INC
: INCREMENT ERROR NUMBER
ENUM = “D<ENUM+1>
ERRSOFT ENUM,EDDDE ,ERR1 :REPORT CGMPARISON FAILURE TO OPR.

CMPS6:

INC
INC

INC

DEC
BNE
ST

BEQ
INC

CMPS6
=(R3),GOOD
=(R1).BAD

R1
R3

OF SET

R4
CMPS1
TEMP4

CMPSSA

ERRCNT

ENUM = “D<ENUM+1>

TRAP
LMORD
"WORD
.WORD

CMPSSA:

*ELSE DEC CHAR COUNT AND SEE IF 0
*SEE IF ANY CMP ERRS FOR THIS MSG

SIF NOT GO BACK
:BR IF NONE

: INCREMENT ERROR NUMBER

JSR

PC,LOGCMD

:L0G DATA ERROR IN COMPARE

DEC

DVRCT

:1F NOT ALL DONE GO BACK
‘BRANCH TO END OF PASS CODE

BNE
B8R

CMPS3
CMPSEX

CSERSOFT
2
EDDDE
ERR1

sINC OFFSET

ERRSOFT ENUM,EDDDE ,ERR2 :REPORT # OF MISMATCHES FOR MESSAGE

CMPSS:

(SERSOFT
1
EDDLE
ERR10

TRAP
JMORD
"WORD
"WORD

CSERSOF T
3
EDDM:
ERR’

J 16

205
1 PAGE
14:0PASS
DEC-82
23-RNAL
ee 2ggLI13:54 MACY1? 30A(1052) INTE
§olEC-B
Q.PIxns11-23-D
MSA
CZK
CODE
OF
END
CZKMSA
INTERNAL END OF PASS CODE
LSBTTL
68978
689
6899

6900

s4e

ggg;

6901

690
690
45
690
690
6906

23?8

CRIPTION:
¢ FUNCTIONAL DES
CODE INCREMENTS THE PASS COUNT FOR THE

::
::
:

THISNT LOG. LOGS THE END OF PASS EVENT
EVE
MODE
TO
URN
RET
ONE
MINUS
STMR. ISIFANOT
"RPASCHE
IFDISPAT
RPATSSPROMPT
ENT
REM
DEC
N
THE
=1
DCL
TO
GO
0
TO
AND I1F ''RPASSTM IS THEN =

IN NOT = TO O THEN GO BACK TO MODE DISPATCHER

: SUBORDINATE ROUTINES USED:

s
gg}\
4
691 062240 005237 010122
SEX: INC
CMP
gg}g
MOV
174
010
116
010
737
013
244
062
6
691
MoV
170
010
122
010
737
013
252
062
7
691
MOV
172
010124 010
260 013737
6918 062
JSR
gg}g 062266 004737 024372
CMP
777 010226
177
737
022
272
062
1
692
BEQ
403
001
300
062
2
692
DEC
226
010
337
005
302
062
3
692
BEQ
6924 062306 001402

606
060
137
000
310
062
5
692
020
064
737
004
314
062
6
692

6927 062320 000137 054512

1$:
2$:

JMP
JSR

JMP

"“LOGEOP'* = LOG END OF PASS TO EVENT LOG
:BUMP PASS COUNT
PSCNT
FS T
BUFCOUN
NO
:L0G
TEMPP24
AR,
OPV
S
PAS
:L0G
TEM
NT,
PSC
TEMP3 :L0G END OF PASS
ERRCNT,EOP
LOG
PC,
SS='T=1 DECREMENT, LOOP FOREVER
IF ISRPADON
;SEE
ASS
,RP
#-1
IT
S1F
1% SS
COUONTDCLT> PROMPT
PASES GOT
:DEC DON
RPA
:1F

2%
X2
GTR
PC,
GTRASHLTTRB

CH
PAT
DIS
AND
K
BAC
GO
SE
SEL
GOING BACK
ORE
BEF
GO HALT ALL LINES

‘WHEN RPASS=0 GO BACK TO "DCLT>

SEQ 204

K 16
CZKMSAD kKMS11-BD/BE
DCLT
CZKMSA.P1
23-DEC-82 13:54

MACY1Y 30A(1052)

SEQ 205

23-DEC=82 14:01
PAGE 206
DOWN=L INE=LOAD SECTION

ggg?

.SBTTL

693
693
6934
6935
6936
6937
6938
6939
6940

i
; FUNCTIONAL DESCRIPTION:
3
DOWN-L INE=LOAD SECTION
.
b
3
IN THIS MODE OF TESTING THE '‘HOST'' OR ORIGINATING STATION
S
REQUESTS THE ''SATELLITE'' OR aoor STATION TO ENTER MOP MODE.
3
THE BOOT STATION THEN SENDS
A ‘‘REQUEST PROGRAM MESSAGE'',
:
THE "'HOST''
THEN SENDS A 'nenonv LOAD WITH TRANSFER ADDRESS
:
THAT CONTAINS IMAGE DATA TO BE LOADED BY THE BOOT STATION'S
3
DMP=11 FIRMWARE STARTING AT LOC. 0.
THIS IMAGE DATA WILL CONTAIN A

2324

; SUBORDINATE ROUTINES USED:

6945

“DLTXRX'* = SPECIAL TX RX ROUTINE FOR DLL

6947
6948
6949
6950

:
3
3
3

“LOGRXQ'' =
“LOGTXQ'" =
“DVTXRX'' =
“LOGTXC'* =

2821

6946

"ovax

6953

:
062324
062324
062324
062330
062334
062336
062340
062344

DLL:

012746
012746
010600
104417
062706
000137

015457
000001
000004
054512

- QUE RX BUFFER SPACE TO DEVICE

LOG
LOG
QUE
LOG

RX
TX
TX
TX

SPACE QUED TO EVENT LOG
BUFFER QUED TO EVENT LOG
BUFFER AND WAIT FOR RX OR TX TO COMPLETE
COMPLETED TO EVENT LOG

“LOGRXC'' = LOG Rx COMPLETED TO EVENT LOG

: CALLING seoueuce

gggg

6960
6961
6962
6963
6964
gggg

PROGRAM THAT WILL PRINT A MSG THAT DOWN=-LINE-LOAD WAS SUCESSFUL.

232}

6956
6957
6958
6959

DOWN=L INE=LOAD SECTION

AMODE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

PRINTF

#DLLOT

JMP

GTRAS

:PRINT DOWN LINE LOAD NOT SUPPORTED
MOV
MoV
MOV
TRAP
ADD
JEXIT

#DLLAY,~-(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP

L 16
CZKMSAQ KHS115 D/BE DCLT
CZKMSA.P1
-DEC-82 13:54

MACY1

30A(1052)

23°DE(-82 14: 01
TALK MODE SECTIO

.SBTTL

SEQ 206

PAGE 207

TALK MODE SECTION

SCRIPTION:

ALK MODE

SECTION

IN THIS
MODE, THE "‘TALK'' END OF THE LINK TRANSMiTS OPERATOR
SPECIFIED MESSAGES UNTIL A “EXIT'' MESSAGE IS TYPE.
AT THAT POINT,

THIS END OF

THE LINK GOES INTO

"LISTEN''

MODE.

SUBORDINATE ROUTINES USED:

"“LOGTXQ'' = LOG TX BUFFER QUED TO EVENT

'DVTXRX'' = QUE TX BUFFER TO DEVICE AND UAIT FOR COMPLETE

"LOGTXC'"

= LOG TX COMPLETE TO EVENT LOG

CALLING ssoueuce

AMODE (R2)

177777

030402

007642

TALCK:

010224
1%:

002642

MOV

JSR
BIC

#-1, INDEX

;:DISPATCH TO MODE BASED ON MODE TYPE IN R2

PC,GTVIND
coAtcxa.PAaAn

;GET FIRST LINE
:SET NOCHECK

MOV

#-1,(R2)+

;CLEAR OUT OPBUFFER FiRST

GMANID

OPRMM,OPBUF ,A,377,1,72..NO

MOV
gng

#OPBUF

,R2

ggpsuo,R2

:GET TALK MESSAGE

TRAP

BR
.WORD
.WORD
.WORD

062442
062444

=t O

000377

062450

VO
=t b aded

CLR
CMPB
BEO
INC

002520

3%:

:NOW GET CHAR COUNT

BR
MOV

R2
#377,0PBUF (R2)
3
R2

28
R2,0PCNT

MOV
MOV

#OPBUF ,DVTXA
#OPBUF. TEMP?2

:SET UP TX ADDR.

MOV

OPCNT.DVTCC

sSET UP TX CC

MOV
JSR

062522
062530
062536

013737
013737
004737

PC,LOGTXQ

BIS

ooixoerx FLAG

JSR

PC,DVTXRX

CLR

062516

OPCNT, TEMP3

MOV

MOV
JSR

CPT

DVTXA, TEMP2

DVTCC.TEMP3
PC,LOGTXC

10001$:

.WORD
"WORD
.WORD

CSGMAN

10001$
OPBUF
T$CODE

OPRMM

377
TSLOLIM
TSHILIM

;TRANSMIT QUEUED, EXPECT TRANSMIT COMPLETE.

:CLEAR RX POINTER

CZKMSAO KMS11-BD/BE DCLT

CIKMSA.P11

23-DE(=82 13:54

MACY1? 30A(1052)

7025 062542 022737 054105 002520
7026

062550

001277

7027

062552

022737

052111

002522

7029

062562

042737

000210

010230

7028

062560

001273

7030 062570 012737 000006 010216
7031 062576 000137 060606

23-DEC-82

14:01

TALK MODE SECTION

PAGE 208

CMP

#''EX,0PBUF

CMP

+2
#"1T,0PBUF

BIC

#OTX+ETX,FLAG

BNE

MOV
JMP

TALCK

#L15,MODTYP
GTRX2

:CHECK FOR EXIT
:;TRANSMIT QUEUED, EXPECT TRANSMIT COMPLETE

*CHANGE T0 LISTEN MODE
SAND GO BACK TO DISPATCH

SEQ 207

CZKMSAO kMS11-BD/BE DCLY
CZKMSA.P1N
23-DEC-82 13:54

MACY1? 30A(1052)

;8§

LSBTTL

7034

7037

7035
7036

LISTEN MODE SECTION

IN THIS MODE, THE "LISTEN'' END OF THE LINK PRINTS ALL OF THE MESSAGES

;828

RECEIVED BY

(HE DEVICE ON THE OPERATOR'S CONSOLE.

RECEIVED IS AN

"EXIT'*

;82}

: SUBORDINATE ROUTINES USED:

7043

;829

7044
7045

;ggg

7052
7053
7054

062602
062610
062614

012737
004737
062737

177777
030402
000002

7056
7057
7058
7059
7060
7061
7062

062622
062626
062632
062634
062636
062642
062650

012746
012746
010600
104417
062706
012737
012737

016535
000001

002520
002520

012737
052737
005037

000122
000104
010154

7063

7064
7065
;829

062622

062656

062664
062672
062700

012737

000004

000122

007642

010224

;

IF_THE MESSAGE

“'LOGRXC'* = LOG RX COMPLETE TO EVENT LOG

CALLING seouencs

LISCK:

MOV
JSR
BIC

PRINTF

LISCKA: MOV
MOV

010172
010230

MOV
BIS
CLR

MOV

IMODE (R2)

;:DISPATCH TO MODE BASED ON MODE TYPE [N R2

#-1, INDEX
PC,GTVIND
#DATCKB,PARAM

:GET FIRST LINE
;CLEAR CHECK BIT

#LISP

#OPBUF ,DVRXA
#OPBUF, TEMP2

#82. ,DVRCC

#82.,TEMP3
#ORY+ERX,FLAG
CPTR

:PRINT PROMPT FOR OPR.

:SET DEVICE UP TO REC AT OPBUF

064°7%

JSR

PC,DVRXQ

;QUE RX

;%;}

062714

004737

064340

JSR

PC,DVTXRX

;GO TO DEVICE RX. SUBROUTINE

7073
7074

052720
062726

013737
013737

010104
010106

010170
010172

MOV
MOV

DVRXA, TEMP2
DVRCC, TEMP3

:SET UP ADDR.AND CC.

7076

062740

063737

010106

ADD

DVRXA,DVRCC

7075

062734

004737

024216

7077

062746

7079

062752

012746

002514

062766

062706

000004

7078

7080
7081
7082
7083

7084

7085

7086
7087

062752

062756
062762
062756

062772

063000

063002
063010

105077

024200

012746
010600
104417

022737

001320

022737
001314

125134

Jon

JSR

(LRB

PRINTF

PC,LOGRXQ

PC,LOGRXC

002520

052111

002522

MOV

#OPBFPT,=(SP)

ADD

84 ,SP

100G COMPLETED

aDVRC(

#OPBFPT

000001

054105

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

;SET UP FLAG
:CLEAR THE TX.

004737

MOV
MOV
MOV
TRAP
ADD

:SET UP CHAR COUNT TO 82.

062704

062710

MODE.

TO DEVICE

7068

;898

‘'TALK''

“LOGRXQ'' = LOG RECEIVE SUFFER QUED TO EVENT LOG
"DVIXRX'' = WAIT FOR RX TO COMPLETE

010104
010170

010106

MESSAGE, THEN THE NODE ENTERS

"DVRXQ'' = QUE RECEIVE BUFFER SPACE

:
:

7048

7055

SEQ 208

23-DEC-B2 14:01
PAGE 209
LISTEN MODE SECTION

: FUNCTIONAL DESCRIPTION:
:
LISTEN MODE SECTIO

7038

7051

CMP

#''EX,0PBUF

:COMPARE FOR EX OF

CMP
BNE

#°17,0PBUF
+2
LISCKA

:1F FIRST HALF OK CHECK NEXT PART
:1F NOT EXIT THE GO BACK

BNE

L1SCKA

"EXIT

MOV
MOV
TRAP

sIF NOT EXIT THEN GO BACK

#1,-(SP)
SP,RO
CSPNTF

C2KMSAD KMS11 go/ae DCLT
CZKMSA.P11
23-DEC=82 13:54
7088

7838
7091

063012

063020

012737

000137

000005

060606

MACY1? 30A(1052)

23-DEC-B2 14:01 PAGE 210
LISTEN MODE SECTION

010216

MOV

JMP

#TAL MODTYP

GTRXS

:CHANGE MODE TO TALK

PRETURN TO DISPATCHER

SEQ 209

CZKMSAD KMS11= o/ee D(L
CZKMSA.P11
23-DEC-82 13:54

MACY1? 30A(1052)

709

;834

LSBTTL

7095
7096

7098
7099

;
:

7097

;}8?

DVINIT = DEVICE INITIALIZATION

DVINIT = THIS SUBROUTINE STARTS THE KMS11-BD, TRANSFERS LINE, MODEM
AND LOOPBACK PARAMETERS TO THE DEVICE, AND THEN REQUESTS
THE KMS11-BD TO STARTUP A DDCMP LINK.

710

7105

:
:

7108
7109
7110

: OUTPUTS:
;
NONE
:

7112
7113
7114
;}}g

;
:
:
:

LOGEO
TOORIO
TOORO
GIVIND

7117

CALLING SEQUENCE:

7119
7120
7121
7122
7123

J--

063024

7126

063024

022737

000004

;}53

063034

000137

063702

;

INPUTS:

MLTYP

7111

= LOOPBACK PARAMETER

MODCSR = MODEM CSR ADDRESS
TRIBN = ESTABLISHED LINE NUMBER

BDLBAS = ADDRESS OF BUFFER DESCRIPTION LIST

;}89

: SUBORDINATE ROUTINES USED:

7112

JSR

REPORT AND LOG TIMEOUT WAITING FOR KMS
REQUEST INPUT INTERRUPT. WAIT FOR INTERRUPT OR TIME OUT
WAIT FOR OUTPUT INTERRUPT OR TIMEOUT
GET ESTABL ISHED LINE NUMBER COPIED TO TRIBN
PC,OVINIT

DVINIT:

;}52

7127

;REJECT DOWN LINE LOAD REQUEST

063032

001002

010216

CMP

#D0W,MODTYP

JMP

DVINEX

BNE

ovindo

;}gg

7132

063040

012737

001000

010270

DVINOO: MOV

#1000, TIMER1

CLR
MOV
MOVE

aSELD
#MCLR,ISELD
#377,3BSEL?

063066 012777 100000 130276
7138
7139 063076 105777 130276
DVINO:

MOV

#KRUN,ISELO

;}2?

063100

TSTB
BEQ

@BSEL2
10%

7142

063102

BREAK

7144
;}22

063106
063110

7136
7137

7147

ses IF DOWN=LINE=LOAD (NOT SUPPORTED)

:"BR IF NOT, ELSE EXIT TO PRINT MSG

:START KMS

7133 063046 005077 130320
713, 063052 012777 040000
7135 063060 112777 000377

7143

SEQ 210

23-DEC-B2 14:01 PAGE 211
LISTEN MODE SECTION

FUNCTIONAL DESCRIPTION:

710
7104

063102

001416

104422

005737
001371

010270

13031
13031

3
BNE

:SET TIMER

*HALT KMS TO ENSURE CLEAN STARTUP
‘MASTER CLEAR
SSPECIFY KMS NOT RUNNING
(xns CLEARS BSEL2 WHEN STARTED)
T RUN BIT TO START KMS

SWALT rofi xns T0 START

;1S KMS RUNNING ?
SYES. CONTINUE

:NO. ALLOW CTRL/C EXIT -NILE WAITING
TIMERT
DVINO

:HAS TIME EXPIRED ?
*NO. CHECK AGAIN
:REPORT KMC NOT STARTED

RAP

($BRK

30A(1052)

010170

#DVEMO, TEMP2
PC,LOGED
JSR
ENUM = “D<ENUM+1>

&H»
o

VIS WWN =000~
goooooomwaga
Voo~

VSTAT

:NEGATE ''STATUS DATA VALID'

#ININT+OTINT,FLAG

SCLEAR INTERRUPT IN.ICATORS

ENRDST

065622
000400

own

) e

130164

010230

#INITC,FLAG

PC,TOORIO

#177757,3SEL2
aSELL
ASEL6
PC, TOORO
#INITC,FLAG

©O—-D gx:nn

004737
032737
001401
000752

#RDYI,aBSE!.2
DVIN2
DVINI

DVINZ:

063230

VOO

;RETRY KMS STARTUP

0TM
e

063212
063216
063224
063226

130202

MOV

010164

CLR

CMP
BNE

063252

065422

063256

177757

10%:

063322

#377.TEMP
#1, ML TYP

10§

TEMP

JSR

PC,TOORIO

BIC
BISB

#177757,8SEL2

Move

000001

DVEMQ
ERR13

*ASSERT READ STATUS ENABLED

;SPECIFY WAITING FOR INITALIZATION

asouesr PERMISSION

0 SEND COMMAND TO KMS

pennnssxou GRANTED TO SEND COMMAND
:SPECIFY COMMAND PAIR 0,0
*NO PARAMETERS
REQUIRED

*ASSERT READY TO TRANSFER COMMAND

:WAIT FOR INITIALZATION COMPLETION

:WAIT FOR RESPONSE
t1S INITIALIZATION COMPLETED ?

:ves. CONT INUE
TRETRY INITIALIZATION

:SPECIFY LOOP PARAMETER

000377
000001

.WORD
.WORD

ESERSOFY

sSPECIFY SYSTEM INITIALIZATION (COMMA:ID PAIR 0,0)

WOD

162777

177757
130202
130202
000020

010230

TRAP
.WORD

DVINOO

D MmN

000490
065422

063230

~ NNNNNNNNNNNNNN
— D
i D i
o -l D e -l -l b

[=l=l=]
o—.d
P P
owvwn
O ——
(VLN
P

010230

@M=
—r

108:

DVINT:

063204

TIME EXPIRED. PRINT ERROR MESSAGE

LOG TIME OUT WAITING FOR RUN

; INCREMENT ERROR NUMBER
sRECORD ERROR
ERRSOFT ENUM,DVEMO,ERR13’

063154
063154
063162

MOV

OO0O0O p
OO o
OO0
SO0

NOONSS

WINWWIWWNINOND

012737
004737
00000«

23-DE(-82 14:01
DVINIT = DEVICE INITIALIZATION

MACY1Y

DOD@M-

D i

NNNNNNNSNNNNN

OO
VYUYW
AN
= OOVONOWVESWN=O

CZKMSAQ KHS11 D/BE
23-DECCZKMSA. P11

SEQ 21

PAGE 212

#142,3BSEL?
#xMLTYP,ISELS
TEMP,aBSEL6

8l(B

#ROYI,aBSEL2

BEQ

20§

N Mivp

:ASSUME INTERNAL LOOPBACK NEGATED
1S INTERNAL LOOPBACK SPECIFIED
?

*NO. ASSUMPTION WAS CORRECT

SSPECIFY INTERNAL LOOPBACK ASSERTED
:GIVE osvnce lNTERNAL LOOPBACK MODE SPECIFIER
REQUEST PERMISSION TO SEND COMMAND
PERHISSION GRANTED

LCLEAR ALL BUT RDYI
SPECIFY WRITE DATA TO DEVICE

DATA ADDRESS IN DEVICE
DEVICE LOOPBACK MODE
READY TO TRANSFER (OHHAND

IS INTERNAL LOOPBACK SPECIFIED
:YES. OMIT SPECIFYING MODEM CONIROLLER ADDRESS

;SPECIFY MODEM CONTROLLER (DM=11) CSR ADDRESS
063324

004737

063330
063336
063344

042777
152777

013777

065422

PC,TOORIO

177757

#177757 ,8SEL2

000007
013426

#7,3BSEL2

MODCSR, 3SEL4

-REQUEST PERMISSION TO SEND TO FIRMWARE

:PERMISSTON GRANTED

;CLEAR ALL BUT RDYI

SSPEC.FY COMMAND PAIR (0,7)
*SPECIFY DM11-BA (SR ADDRESS

6
CZKMSAD KMS11-BD/BE DCLT
CIKMSA.P11
23<-DEC-82 13:54
7204
;%82

063352
063356

7207

063364

7210

063364

004737

065422

7212
7213
7274
7215

063370
063376
063404
063412

042777
150777
o1g777
005977

177757
000006
013434
127770

;%83

7211

;g}g

063416

005077
142777

130030
000020

MACY1?

30A(1052)

ASEL6
#RDYI,aBSEL2

208
:

142777

000020

130000
127772
127770

127752

JSR

PC,TOORIO

BIC
BIS?
MOV
(LR

#177757,9SEL2
#6,3BSEL2
#BDLBAS ,aSEL4
ASEL6

BICB

012737

177777

007642

063432
063636
063444

004737
022737
001516

030402
000010

007642

7228

063446

004737

065422

7230

063452

042777

063472

063506

7229

7231
7232

7233

7234

;ggg

063460
063466

063500

177757

127716

013737

007636

010164

142777

000020

127662

152777
005077

013777

063514

004737

063520

042777

7243

063534

113777

;529

000004
127710

010164

JSR
CMP
BEQ

:GET ESTABLISHED LINE NUMBER
#-1, INDEX
sMAKE INDEX ==1.
DO FOLLOWING FOR EACH LINE..
:INDEX==1 TO 8. LINE O FIRST, LINE 7 LAST
PC,GTVIND
SGET VALID INDEX (NEXT LINE NUMBER TO ESTAB.)
#8., INDEX
DONE?
DVINEX
:IF SO EXIT (RETURN TO CALLER)

JSR

PC,TOORIO

BIC

#177757,3SEL2

MOV
DVES1:

127710

#4 aasst
ASELL

MOV

TEMP,3SEL6

MOV

127700

;SPECIFY LINE NUMBER

BISB
CLR

BICB

063526
063542
063546

063552

065422

JSR

PC,TOORIO

BIC

#177757,3SEL2

007636

127636

MOVB

TRIBN,aBSEL3

005077
005077

127634
127634

SSPECIFY COHHAND (0,4)
‘CLEAR SEL4
*COPY LINE NUMBER

“SPECIFY NUMBER OF LINES TO SCAN

:SPECIFY READY TO TRANSFER COMMAND

000020

127642

BISB
CLR
CLR

127616

BICB

#40,aBSEL2

;REQUEST PERMISSION TO SEND COMMAND
:PERMISSION GRANTED
;CLEAR ALL EXCEPT RDYI

SSPECIFY COMMAND PAIR (1,0)
*SPECIFY LINE NUMBER

ASEL4
aSEL6

SCLEAR SEL4
‘CLEAR SEL6

aaovx.aBSELz

SASSERT READY TO TRANSFER COMMAND

:SET DDCMP MODE
063560

004737

7252

063564

042777

7254
7255

063600
063606

113777
052737

7257
7258
7259

063622
063626
063632

005077
005077
142777

7256

;CLEAR ALL EXCEPT RDYI

ORDYI aBSEL?2

127650

000040

7250

7253

*REQUEST PERMISSION TO TRANSFER COMMAND

;PERMISSION GRANTED

TRIBN, TEMP

177757

152777
142777

DVEST:

;gzg

7251

*ASSERT READY TO TRANSFER COMMAND

;ENABLE LINE

7239
7240
7241
7244
7245

;CLEAR ALL BUT RDY]
*SPECIFY COMMAND PAIR (0,6)
:SPECIFY BDL BASE ADDRESS
:CLEAR HIGH ADDRESS BITS (BITS 17:16)

#RDYI,aBSEL2

;ggg

7242

;REQUEST PERMISSION TO SEND COMMAND

P:RHISSION GRANTED

;SPECIFY ESTABLISHED LINE NUMBER
063424

7227

;CLEAR SEL6
*ASSERT READY TO TRANSFER COMMAND

;SPECIFY BDL BASE ADDRESS

;%}3
7220
7221
7222
7223
7224
;%32

SEQ 212

23-DEC=-82
14:01
PAGE 213
DVINIT = DEVICE INITIALIZATION
(LR
BICB

130012

063572

063614

065422

DVSET:

JSR

PC,TOORIO

177757

127604

BIC

#177757,9SEL2

007636
001000

127572
010230

MOVB
BIS

TRIBN, asssLs
#SETC.FLAG

152777

000001

042737

004000

127554
127554
000020

127576

010230
127536

BISB

BIC

CLR
CLR
BICB

#1,3BSEL2

#TXT0.FLAG

aSELG
aSEL6
#RDYI,aBSEL2

REQUEST PERMISSION TO SEND COMMAND

:PERMISSION GRANTED

:CLEAR ALL EXCEPT RDYI

SSPECIFY COMMAND PAIR (0,1)

*SPECIFY LINE
NUMBER
SINDICATE WAITING FOR SET DDCMP MODE COMPLETION

SCLEAR TRANSMIT TIMEOUT SPECIFIER

*CLEAR SEL4
*CLEAR SEL6
*ASSERT READY TO TRANSFER COMMAND

CZKMSAO kMS11-BD/BE DCLY
CZKMSA. P11
23-DEC-B2 13:54
7260

7261

063640

004737

7263

06365¢

001405

7262

7264
7265

7266
;ggg

063644

063654
063662

063664
063666

032737
032737
001336

065622

MACY11 30A(1052)

001000

010230

004000

010230

000765

108:

JSR

PC,TOORO

sWAIT FOR SET DDCMP MODE COMPLETION

BEQ

15%

YES. CONTINUE

BIT
BR

7269
;5;?
7272
7273
7274
;%;2
7277
7278
7279
72807281

SEQ 213

23-DE(-82 14:01 PAGE_214
DVl
= DEVICE INITIALIZATION

BIT
BNE
15%:

#SETC,FLAG
#TXTO,FLAG
DVSET
108

sHAS COMPLETION MESSAGE OCCURRED ?

:DID DEVICE TIMEOUT ON TRANSMIT ?
:YES. REISSUE REQUEST TO START PROTOCOL
sNO. KEEP WAITING

DELAY TO COMPENSATE FOR THE FIRMWARE'S FAJLURE TO ACKNOWLEDGE
A STACK MESSAGE RECEIVED.
063666
063674
063700
063702

012737
005737
001375
000207

000001
010274

010274

MoV
TST
BNE
DVINEX: RTS
20%:

l1.TIHERS
TIMERS
20%
PC

sWAIT1 SECOND
IS TIMER EXPIRED ?
WAIT
RETURN TO CALLER

CZKMSAD KMS11-BD/BE DCLT

CZKMSA.P11

23-DEC-82 13:54

MACY1? 30A(1052)

23-DEC-82

LNSTAT = GET LINE STATUS

7283

LSBTTL

7285
7287

7284
85

FUNETIONQL
DESCRIPTION:

3
:

7292

7296

: OUTPUTS:

7298

;gg?

- xr READ LINE STATUS IS ENABLED THIS SUBROUTINE REQUESTS
THE KMS TO REPORT THE VALUES OF THE FIRST EIGHT BYTES IN

7293
;ggg

:
3

7297

THE LINE STATUS TABLE FOR THE ESTABLJSHED LINE.

INPUTS:

ENRDST = READ STATUS ENABLED IF <> 0 / DISABLED IF = 0
TRIBN = ESTABLISHED LINE NUMBER

;%88

IFf STATUS REPORT COMPLETED SUCCESSFULLY THEN
VSTA

- SET = 1 TO SHOW THAT STATUS DATA IS VALID

osvs1..oevsa - EIGHT BYTES OF LINE STAUS DATA FROM KMS

7301

7305

: CALLING SEQUENCE:

7302
;ggz

7309
7310
7311
7312
7313

:
:

SUBORDINATE ROUTINES USED:

:
J--

REQUEST INPUT INTERRUPT. WAIT FOR INTERRUPT OR TIME OUT
WAIT FOR QUTPUT INTERRUPT OR TIMEOUT

JSR

PC,LNSTAT

ST
BEQ
JSR

ENRDST
40%
PC,TOORIO

005737
001442
004737

011512

7314

063716

052737

002000

010230

BIS

#STAT,FLAG

7317
7318
7319
7320
7321
7322
7323
7324
7325

063740
063746

113777
142777

007636
000020

127432
127422

MOVB
BI(B

TRIBN,3BSEL3
#RDYI, aBSELz

7327

7315 063724
7316 063732

7329

177757
000140

108:

127444
127436

063754

004737

065622

063760
063766
063770
063776

032737
001372
052737
004737

002000

010230

002000
065622

010230

064010

001372

7326 064002
7328

042777
152777

LNSTAT:

TOORIO
TOORO

063704
063704
063710
063712

065422

064012

064016

032737 002000 010230

005237

000207

011514

SEQ 214

PAGE 215

LNSTAT = GET LINE STATUS

7288
7289

7306
7307
7308

14:01

BIC
BISB

#177787.3SEL2
#BIT6+BITS,aBSEL2

20%:

JSR

PC,TOORO

30%:

BIT
BNE
BIS
JSR

#STAT,FLAG
20%
#STAT,FLAG
PC, TOORO

BNE

30%

408%:

BIT

INC

RTS

;REQUEST Llur STATVS
S READ STATUS ENABLED ?
NO. OMIT READING STATUS
*REQUEST PERMISSION TO SEND COMMAND
;PERMISSION GRANTED

#STAT,FLAG
VSTAT

:SPECIFY WAITING FOR STATUS REPORT

:CLEAR ALL BUT RDYI
:SPECIFY REQUEST LINE STATUS (3,00

sSPECIFYLINE NO.
*INDICATE READY TO TRANSFER COMMAND
:WAIT FOR STATUS TC BE RETURNED

:WAIT FOR MESSAGE FROM DEVICE

:MESSAGE RECEIVED
:DID A STATUS REPORT OCCUR ?
:NO.KEEP WAITING

:SPECIFY WAITING FOR STATUS REPORT
:WAIT FOR SECOND HALF OF STATUS REPORT

:DID A STATUS REPORT GCCUR ?
:NO. KEEP WAITING

:ASSERT VALID STATUS DATA

:RETURN

J,
CZKMSAD kMS11-BD/BE DCLT
CZKMSA.P11
23-DEC-82 13:54

MACY1Y 30A(1052)
LSBTTL

7332
7333

14
: FUNCTIONAL DESCRIPTION:

7336

7338
;gzg

:
:

7337

HALT LINE SUBROUTINE

HLTTRB = THIS SUBROUTINE SHUTS DOWN THE ESTABLISHED LINE

INPUTS:

PARAM

TRIBLS
FLAG

= PARAMETERS.

THIS ROUTINE

CHECKS

;
:

SUBORDINATE ROUTINES USED:
GTVIND = COPY VALID LINE NUMBER TO TRIBN

7346
7347

:
:

CALLING SEQUENCE:
JSR
PC,HLTTRB

73e0

7350
7351
7352
7353
7354

;ggz

:
3

064020
064026
064030
064036
064042

064044

032737
001006
012737
005737
001375

000002

010224

000002
010274

010274

064044
0640%2
064056
064064

012737
004737
022737
001422

177777
030402
000010

064066

004737

065422

7366

7367

064072

042777

7368
7369
7370
;2;1

064100

064106
064114
064120
0564124

113777
005077
005077
142777

(64132
064140
064142
064150

032737
001411
042737
132777

7384

REQUEST INPUT INTERRUPT. WAIT FOR INTERRUPT OR TIME OuT
HANDLES OUTPUT INTERRUPT DATA

#DATCKB,PARAM
HLTTR?
#2,TIMERS
TIMERS
HLTTR3

:1F CHECK GO TO 2
JSET UP FOR 2 SEC TIMER
:WAIT FOR TIMER TO BE 0

:SHUTDOWN ACTIVE LINE. ONLY THE 1ST ESTABLISHED LINE IS USED

7359
7360
7361
7362
7363
7364
7365

7377
7378
7379
7380
7381
7382
7383

HLTTRB: BIT
BNE
MOV
HLTTR3: TST
8NE

HLTTRZ:

;%2;

7373
7374
7375
7376

TOORIO
OUTHDL

THE DAT(KB BIT

= ESTABLISHED LINE NUMBER
= BITS ININT AND OTINT INDICATE INTERRUPTS

7341
7342

7343
;gzg

SEQ 215

23-DEC=-8B2
14:01
PAGE 216
HALT LINE SUBROUTINE

;gs?

;%%g

064156
064160
064164
064172

152777

001402
004737
142777
000207

007642
007642

HLTTR1:

MOV
JSR
CMP
BEQ

#-1, INDEX
PC,GTVIND
#8.,INDEX
HLTREX

JSR

PC,TOORIO

177757

127276

BIC

#177757,9SEL2

007635
127262
127262
000020

127264

MOVB
CLR
CLR
8I(B

talau aBSEL3
aSEL4
aSEL6
0RDV!.88$EL2

000042

127¢70

BISB

177244

000003

010230

000003
000200

010230
127220

HLTREX: BIT
BEQ
BIC
BITB

BEQ
JSR

066040
000020

127204

10%:

BI(B
RTS

#42 ,9BSEL?

:GET 1ST ESTABLISHED LINE NUMBER
: IS THERE AN ACTIVE LINE ?
: NO. EXIT
;SPECIFY SET DOWN LINE COMMAND PAIR
REQUEST PERMISSION TO SEND COMMAND TO F IRMWARE
PERHISSION GRANTED
sCLEAR ALL EXCEPT RDYI

sSPECIFY COMMAND (1,2) IN BITS 6:5,2:0
SSPECIFY LINE NO.
SCLEAR SEL4
'(LEAR SEL6
:INDICATE READY TO TRANSFER COMMAND

#ININT+OTINT,FLAG
108
#ININT+OTINT,FLAG
#RDYO,aBSEL?

:HAVE ANY INTERRUPTS OCCURRED ?
:NO.
:YES. CLEAR INTERRUPT INDICATORS
lS THERE A MESSAGE FROM THE KMS 2

#RDY] ,aBSEL?
PC

ves COLLECT IT C(IT WILL BE
: AWAY SINCE CLNSET = =1)
s IGNORE RDYI]
:RE TURN

10%
PC,OUTHDL

THROWN

CZKMSAD KMS11-BD/BE DCLT
CZKMSA.P1
23-DEC-82 13:5¢4

MACY11

PAGE 217
23-DEC-82 14:01
DEVICE QUEUE RECEIVE SPACE SUBROUTINE

30A(1052)

DEVICE QUEUE RECEIVE SPACE SUBROUTINE

FUNCTIONAL DESCRIPTION:

INPUTS

DVRXQ = THIS SUBROUTINE QUES THE REC BUFFER SPACE TO THE
DEVICE, THEN CLEARS THE QRX BIT OF THE FLAG WORD.

ka3

SBTTL
R TR T

QRX FLAG BIT = SET BY CALLING ROUTINE
TRIBN = LINE WHICH RECEIVE BUFF

OUTPUTS

TO BE QUEUED FOR

ORX FLAG BIT = CLEARED BY ROUTINE

SUBORDINATE ROUTINES USED:

064174
064174
064202

032737
001455

000004

010230

064204

042737

000004

010230

NNNNNoNoNON

LR PR TR

N TR TR

R TR TR PR

DVRXA = ADDRESS OF RX BUFFER SPACE
DVRCC = BYTE CHAR COUNT OF RX BUFFER

007636

064212
064216
064220

CALLING SEQUENCE:
PC,DVRXQ
JSR

DVRXQ:

BIT

#ORX,FLAG

B!C

#QRX,FLAG

SIF NOT RX THEN EXIT
SELSE QUE RX
sCLEAR FLAG FOR RX QUEUED

TRIBN,R2

sGET CHANNEL NUMBER

R2,BD; MAD
TRIBN.SDLMNM

:CALCULATE BDL MEMBER ADDRESS, SAVE AT BDLMAD
:SAVE THE CHANNEL NUMBER, BDL MEMBER NUMBER

BEQ

MOV

ASL
ASL
ASL
ADD

R2
R2
RZ
#7%520L ,R2

INC

BDLMNM

MOV
MOV
MOV

#BITS5, (R2)+
DVRXA, (R2) +
DVRCC, (R2)+

MOV
MOV

013430

CLR

064262
064264

064270

064322
064330

142777

064336

000207

(R2)+

:CALCULATE BDL MEMBER NUMBER (CHAN + 1)
*RANGE 1S NOW 1-8 FOR CHAN 0=7
*LOAD BUFFER DESCRIPTOR LIS1 MEMBER...

:SET STATUS WORD IN BDL MMBR BLOCK (RX QUEUED)
:DVRXA CONTAINS THE RECEIVE BUFFER ADDRESS
:DVRCC CONTAINS LENGTH OF THAT BUFFER

JSR

BISB

#101,3BSEL?

PERMISSION GRANTED

077757, 5SEL

:CLEAR ALL EXCEPT RDYI

TRIBN,3BSEL3
SSELL
@BSEL6
BDLMNM,aBSEL7

:SPECIFY LINE NUMBER
SCLEAR SEL&4
:CLEAR BSEL6
SSPECIFY BDL MEMBER NUMBER

013430

127060

MOVB
CLR
CLRB
MOVB

000020

127040

BICB

#RDYI,aBSEL2

RIS

DVREX:

(WHICH IS MEMBER NUMBER)

:MULTIPLY BY 8
:
FOR OFFSET IN TABLE FOR THIS BDL MEMBER
(8 BYTES PER MEMBER IN TABLE)
STABLE ADDRESS FOR RECEIVE BDL MEMBERS

SCLEAR DDCMP MESSAGE NUMBER FIELD
:SPECIFY BDL MEMBER FOR RECEIVE BUFFER
PC, YOORIO
:REQUEST PERMISSION TO SEND (OMMAND TO FIRMWARE

BIC

127
1270
127066

sRX QUEUED

DVREX

SSPECIFY COMMAND PAIR (2.1)

‘BDL MEMBER NUMBER RANGE IS 1-8

SASSERT READY TO TRANSFER COMMAND

:RETURN TO CALLER

SEQ 216

L
CZKMSAO KMS11-BD/BE DCLT
CZKMSA.P11
23-DEC~82 13:54

MACY11 30A(1052)

23-DEC-B2
14:01
PAGE 218
DEVICE TRANSMIT AND RECEIVE SUBROUTINE

;221

.SBTTL

744
7644
7445
7446
7647
7448
7449
7450
7451
7652
7453
;2gg

s4e
: FUNCTIONAL DESCRIPTION:
:
DVIXRX=DEVICE TRANSMIT AND RECEIVE ROUTINE.
;
THIS CODE QUEUES THE TRANSMIT BUFFER TO THE DEViICE (IF NEEDED).
;
THE CODE THEN WAITS FOR A TX COMPLETE, AN RX COMPLETE OR A
:
RETRANSMIT REQUEST. THE CODE REPORTS A TIME OUT ERROR IF NONE
;
OF THESE 1S REPORTED BACK IN 60 S:CONDS. AFTER REPORTING ERROR,
;
THE TIMER IS RE STARTED AND THE DEVICE WILL CONTINUE TO WAIT FOR
:
AN INTERRUPT.
:
A NAK RESPONSE GENERATES A RETRANSMIT REQUEST.
THIS CODE aeoueuss
:
THE TRANSMIT BUFFER TO THE DEVICE AND RESTARTS THE TIMER IFf
:
RETRANSMIT IS REQUESTED.

7456
7457
7458
7459
7460
7461
;22%

SINPUTS:
:
"DVTXA"*
;
"DVTCC'*
;
“QTX"* BIT
;
“ETX'* BIT
;
“ERX'' BIT
:
“RXMIT BIT

7464
7465
7466
7667
7468
7469
7470
7471
7472

TOUTPUTS:
:
“DVTXA'* = ADDRESS OF TX MSG. COMPLETED
;
*DVTCC'* = BYTE COUNT OF TX MSG. COMPLETED

;
3

7475

;
:
;
:

;2;2

DEVICE TRANSMIT AND RECEIVE SUBROUTINE

*QTX"*
“DVRXA'*
*DVRCC'*
“QRX"

=
=
=
=
=
=

=
=
=
=

ADDRESS OF TRANSMIT MSG.
BYTE COUNT OF TRANSAIT MSG.
SET IF TRANSMIT REQUESTED
SET IF TRANSMIT EXPECTED
SET IF RECEIVE EXPECTED
SET IF RETRANSMIT REQUESTED

SET IF TX QUEUED
ADDRESS OF RX MSG. COMPLETED
BYTE COUNT OF RX MSG. COMPLETED
SE7 if RX QUEUED

: SUBORDINATE ROUTINES USED: TQORIO, OUTHDL
CALLING SEQUENCE:

JSR PC,DVTXRX

76478

064340

032737

000010

010230

DVIXRX: BIT

#OTX,FLAG

:1S THERE A TRANSMIT QUEUED?

;25?

064350

042737

000010

010230

BIC

#OTX.FLAG

:TRANSMIT NOT QUEUED, TRANSMIT COMPLETE

;232

064356

004737

065422

JSR

sSPECIFY "'TRANSMIT MESSAGE'* COMMAND
PC, toonxo 1ssi350252§ Eganxssxou TO SEND COMMAND TO DEVICE

76485

064362

013702

007636

MOV

7487

064370

006302

7490

064400

76479

7482

76486

7488
76489

7491
7492
7493
7494

7495
7496

064346

064366

064372
064374

(064404

064412
064420
064424

001457

006302

013534

013737

007636

013430

000011

013430

0 2737
0 2722
0 3722

013432

100000

010064

DVTRS

;GET THE DESIRED LINE NUMBER (0=7)

8'LINE _NUMBER=>R2

ASL
ADD

R2
#TXBDL ,R2

MOV

:1F NOT GO WAIT FOR QUTPUT

TRIBN, 2

ASL

006302
062702

010237

BEQ

R2,BDLMAD

(0,8,16,24,32,40,48,56)

ADD THE XMIT BDL BASE ADDRESS
*BDL MEMBER ADDRE $5=>BDLMAD

ADD

#9. ,BDLMNM

:LINE NUMBER
= 0-7
P"RECEIVE BDL MEMBER NUMBERS ARE 1-8
: TRANSMIT BDL MEMBER NUMBERS ARE 9-16
SCALCULATE XMIT BDL MEMBER NUMBER => BDLMNM

MOV

DVIXA,(R2)+

;BUFFER ADDRESS FOR XMISSION

MOV

TRIBN,BDLMNM

#8115, (R2)+

:SET STATUS WORD IN BDL MEMBER BLOCK

SEQ 217

CZKMSAD KMS11=
go/ E DCLT
CZKMSA.P11 ~ 23-DEC-82 13:54
7697

7498
7499
7500
7501

7502

7503
7504

7505

064430

0£44634
064436
064444
064452

013722

115777

000001

125714

MOVB

162777

000020

126670

BICB

064472

113777

;ggg

064512

001440

7511
7512

064514

004737

7516

064540

014237

7519

064556

7517
7518

7520
7521
7522

064520
064526
064534
064544
064552

064562

7526
7528

7529

042777
152777
013702

126716

013430

010165
126624

126626

112737

000001

010164

014237

064614

012737

010237
005337

010164
010164
000020

007654
013642
000074

010274

064622
064626
064630
064634
064636
064642
064644
064650

005737
001327
005737
001053
005737
001050
005737
001027

013642

7539 064652
7540 064660

7543
7544

064664
064672

022223
010172

010170

7541
7542

012737
005037

010173

7545
7546

064712

113737 010175
005237 010124

064700
064706

7547 064716

7548
7549
7550
7551
7552

064716
064720
064722
064724
064726

004737
000005

104457
00000%
022223
023460
000667

007646
007644
010274

126502
126500

024226

010174
010176

‘CLEAR THE DDCMP HESSAGE NUMBER FIELD
:CLEAR ALL EXCEPT RDYI
SSPECIFY COMMAND PAIR (2,00 IN BITS 6:5,2:0
SSPECIFY LINE NO.

MOVB

BDLMNM,3BSEL?

:SPECIFY BDL MEMBER NUMBER

RXM] T

JSR

sRETRANSMIT
PC,TOORID
;REQUEST PERMI3SION TO ssuo DEVICE A CUMMAND

MOV

-(R2) . TEMP

MOV

MOVB

MOV
BICB

MOV
DEC

TOINOT:

TRIBN aaseus

:CHARACTER COUNT FOR XMISSION

*CLEAR UNUSED EISEL&

MOVB
CLR

10%:

;
#177757,8SEL2
#100,3BSEL?
IBSELS

BIC
BISB
MOV

126610
126572

7530
7531
7532
7533
7534
7535
7536
7537
7538

017737
017737

DVTR3:

ovrcc (R2)+

CLR

BEQ

113777
005077

010164

MOVB

126710

126650
126642

013777
14277

064622

065422

126720

177757
000100
007654

064570
064576

7523 064604
7524 064610

CLR
BIC
BISB

007636

;389 064506
7508 064506 005737 013642
7513
7514
7515

MOV

126732
126724

SEQ 218

23-DEC-B2 14:01 PAGE 219
DEVICE TRANSMIT AND RECEIVE SUBROUTINE

113777

005077

0645006

010066

ooso;;042777
177757
152777 000100

064460
064464

MACY11 30A(1052)

MOV

#1,aBSEL6

#RDYI,3BSELS

*SPECIFY NUMBEF OF MSGS TO Tx=1

:INDICATE READY TO TRANSFER COMMAND

;1S RETRANSMIT ASSERTED ?

108

‘NO. GO SET TIMER.

#177757.9SEL2
#100,3BSEL?
TSPTR,R2

:CLEAR ALL EXC:PT RDYI BIT
SSPECIFY TRANS¥IT COMMAND
*POINT TO TX SAVE AREA

rsnpoi OBSEL3
ASELL

:SPECIFY LINE NUMBER
‘CLEAP SEL4

-(RZ) TEMP

#1,TEMP

TEMP,aSEL6
#RDYI,aBSEL2

R2, TSP!R
RXHlT

1COPY SAVED SEL?

(OP‘ SAVED SEL6

*SET NUMBER OF MSGS = 1

SSPECIFY BDL AND MSG NUMBERS
:SPECIFY READY TO TRANSFER COMMAND

RESTORE TX SAVE AREA POINTER
DECREMENT RETRANSMIT COUNT

;SET TIMER

#60.,1IMERS

;SET TIMER FOR 60 SECS

!!!FOR DEBUG =30 '!!!!

sCHECK FOR TX OR RX COMPLETION
1ST
BNE
TST
BNE
1ST
BNE
TST
BNE

RXMIT
DVTR3
CRX
DVTR&
CTX
DVIR4
TIMERS
TOINY

MOV
(LR

#DVEM2, TEMP2
TEMP3

MOvVB
lN(

TEMP4+1,TEMP3+1 ;COPY LINE NUMBER FROM TEMP4
ERRCNT
: INCREMENT ERROR COUNT

MOV
MOV

;IF RETRANSMIT ASSERTED
;G0 REQUEUE TX BUFFER
:1F RX COMPLETED
:GO PROCFSS COMPLETION
:1F Tx COMPLETED
:GO PROCESS COMPLET!ON
;1S TIMER EXPIRED
:NO. GO CHECK INTERRUPTS
:TIME EXPIRED, REPORT ERROR

9SELO, TEMPL
@SEL2, TEMPS

PC.LGDVE
ENUM = ‘D<ENUH01>

sSPECIFY ERROR MESSAGE
:SPECIFY ERROR CODE
sCOPY SELO
sCOPY SEL?

:LOG TIME OUT
: INCREMENT ERROR NUMBER

ERRSOFT ENUM,DVEM2,ERR13° ;REPORT TIME OUT ERROR

DVTR3

JREPEAT TIME CHECK

TRAP
WORD
.WORD
.WORD

CSERSOFT
5
DVEM?
ERR13

CZKMSAD KMS11-BD/BE DCLT
CIKMSA.P1
23-DEC=B2 13:54

MACY11 30A(1052)

7553

§54
7555
7556
7557
7558

064730
064730
064732
064740

032737
001730

000003

010230

064742

042737

000003

010230

064760

004737

066040

7566

064764

005737

013642

7568
7569
7570

064772
064776
065000

005737
001004
005737

007644

7574

065010

7583
7584

065010
065014
065020
065024
065030
065034
065040
065044

065050
065056

013702
014237
105037
000337
014237
105037
000337
010237

007654
007636
007636
007636
010164
010164
010164
007656

000200

010230

7586

065060

012737

022330

7588
7589

065074
065102

113737
013737

007636
010164

7591
7592

065114

7559
7560

7561
7562
7563
7564

7565

7567

7571
;g;g
7575
7576
7577
7578
7579
7580
7581
7582

7585
7587

7590

064750
064756

064770

065004
065006

065066
065110

7593

065120

7597

065126

7594
7595
7596

7598
7599
7600
7601

7602

7603
76064
7605
7606
7607
7608

104422

132777
001721

001246

001077
000705

032737
001025

012737

005237

004737
000006

06510
065122
0651264

104457
000006
022330

065130

000423

065132
065132

065136

065140
065142
065144
065146
065152
065154

000200

010124

024226

BREAK

TOIN2:

BIT
BEQ

108:

DVTR4GA:

005303

006303
006303
006303
362703
005023
012337

#OTINT#ININT,FLAG
TOINOT

JSR

PC,OUTHDL

TST

RXMIT

1St
BNE
ST

CTX
DVTR4A
CRX

BNE

BNE
BR

#RDYO,aBSEL2
ToInof

MOV

#DVEMS, TEMP?

010173
010174

MOVB
MOV

TRIBN,TEMP3+1
TEMP, TEMP4

MOV
x~c

: CHECK 1? RX OR TX COMPLETED

:15 RETRANSMIT ASSERTED ?

YES. co RE TRANSM]T

; HAS
A TX COMPLETED
:YES. GO PROCESS COMPLETION
*HAS AN RX COMPLETED
?

DVIRS
TOINOT

010170

BIT
BNE

BETX.FLAG
DVTR4B

SYES. GO PROCESS COMPLETION
*NO. KEEP CHECKING

:TX COMPLETED

sPOINT TO TX SAVE AREA
:COPY SAVED TX LINE NUMBER
:CLEAR LOW BYTE
SPOSITION LINE NUMBER IN LOW BYTE
:COPY SAVED TX BDL NUMBER
:CLEAR LOW BYTE
:POSITION BDL NUMBER IN LOW BYTE
*RESTORE TX SAVE AREA POINTER

SYES. IS TX COMPLETION EXPECTED ?
*YES. GO PROCESS TRANSMIT COMPLETED

#2,TEMP3

;UNEXPECTED TRANSMIT COMPLETION
:L0G UNEXPECTED TRANSMIT ERROR
SSPECIFY ERROR CODF

ERRCNT

S INCREMENT ERROR COUNT

JSR
PC,LGDVE
ENUM = “D<ENUM+1>

*RECORD LINE NUMBER
*RECORD BDL NUMBER FOR ERROR

1L0G EVENT
: INCREMENT ERROR NUMBER

ERRSOFT ENUM,DVEM& ,ERR22"

BR
010164

013434

010064

DVTRGB:

MOV

DEC

ASL
ASL
ASL
ADD
(LR
MOV

DVTRAC
TEMP,R3

R3
R3
R3
#BDLBAS K3
(R3)+
(R€)e,DVTNA

($BRK

xs THERE A MESSAGE FROM THE DEVICE
0 KEEP CHECKING
:MESSAGE rnon DEVICE
:GO PROCESS MESSAGE FROM DEVICE

DVIR3

TSPTR,R?
-(R2),TRIBN
TRIBN
TRIBN
=(R2), TEMP
TEMP
TEMP
R2,TSPIR

010172

TRAP

;HAS AN INTERRUPT OCCURRED ?
NO. KEEP CHECKING

1~reaaubr 0CCURRED
#OTINTSININT,FLAG
:CLEAR INTERRRUPT INDICATORS

MOV
MOV
CLRB
SWAB
MOV
CLRB
SWAB
MOV

023542

013703

:CHECK FOR INTERRUPT
SALLOW CNTRL/C EXIT

BIC

BITB
BEQ

DVTRG:

007646

000002

TOIN1:

126420

SEQ 219

23-DEC-B2 14:01 PAGE 220
DEVICE TRANSMIT AND RECEIVE SUBROUTINE

:REPORT ERROR (UNEXPECTED CTX)
TRAP
MORD
.WORD

.WORD

:THEN CLEAR COMPL.FLAG
*NOTE: COUNT REDUCED AT DVTR4C
SEXPECTED TRANSMIT COMPLE
TE
:COPY BDL NUMBER

(OHPU!E OFFSET
:
:

FOR
THIS
MEMBER
‘FORM BDL TABLE POINTER
*CLEAR BDL svnrus WORD
TUNLOAD TX MESSAGE ADDRESS

CSERSOFT
6
DVEM&

ERR22

CZKMSAO KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-82 13:54
7609

065160

7610 065164
32}1 822‘55

012337

013737
052737

010066

007636
000010

7613

065200

005337

007644

7615
7616

0652064
065210

005737
001503

007646

7614

065204

MACY1? 30A(1052)

010070
010230

DVTRS:

7617
7618 065212 o1370; 007650
7619 065%16 01§23 810164
7620 065222 105937
010164
76%1 oeszge 000337 010164

MOV
BIS

TRIBN.DVTTE
#0TX,fLAG

(R3)+,DVTCC

sUNLOAD TX MESSAGE CHAR COUNT

DEC

CTX

:DECREMENT TX COUNT

1s1
BEQ

CRX
DVTREX

; ANY necexves coanerso ?
NO. GO RETU

MOV

RSPTRS,R?2

MOV
CLRB
SWAB

(R2)+,TRIBN
TRIBN
TRIBN

MOV
CLRB
SWAB

007636
007636
007636

(R2)+, TEMP
TEMP
renp

76 g
7623
7624

065232
065236
065242

012237
105037
000337

7626
7627
7628
7629

065252
065254
065260
065264

001002
012702
010237
032737

007672
007650
000100

010230

065274

012737

022407

010170

MOV

covens TEMP2

065310
NAST1A

113737
M1T7T7

067636
N101AL

01017
D172

MOVB
MO

TRIBN, TEMP3+1
Tewn fcmn/

004737
000007

024226

7625 065246 020227 010046
7630 065272

7631
7632
7633

763,
76436

065302

7636 065324

001025

012737 000002 01017§

005237 010124

7637
7638

065330

7640
7641
7642
7643
;gzg

065336
065336
065340
065342
065344

104457
000007
022407
023542
000423

7646
7647
7648
7649
7650
7651

065346
065346
065352
065354
065356
065360

013703
005303
006303
006303
006383

010164

7654
7655

065370
065374

012337
012337

010104
01010

7658
7659
7660

065414
065414
065620

005337
000207

007646

7639

065334

28:

R2,#RXSKEN

BNE

DVTRSB

INC

28
#RXSTAK ,R2
R2,RSPTRS
WERX ,FLAG

#2,TEMP3

ERRCNT

JSR
PC,LGDVE
ENUM = “D<ENUM*1>

‘STORE LINE NUMBER FOR LOGGING
SSET QUE=TRANSMIT FLAG BIT

;RECEIVE' COMPLETE
:POINT TO RECEIVE SAVE AREA
:COPY SAVED aoL NUMBER
SCLEAR LO BYTE
‘POSITION BDL NUMBER IN LO BYTE
:COPY SAVED LINE NUMBER
.CLEAR LO BYTE
POSITION LINE NUM IN LO BYTE

‘POINTING TO END OF RX SA4Z AREA ?
*NO. KEEP POINTER
SYES. RESET POINTER
*SAVE POINTER
;xs RX COMPLETE EXPECTED ?

GO PROCESS RX conp.erso
unsxpecieo
RECEIVE
COMPLETION
:RECORD UNEXPECTED RX COMPLETION

*SPECIFY ERROR CODE

*RECORD LINE NUMBER
1COPY DOL NuMsin

* INCREMENT ERROR COUNT

1L0G EVENT
: INCREMENT ERROR NUMBER

ERRSOFT ENUM,DVEMS,ERR22’

7652 065362 062703 013434
7653 065366 oosogs

7656 065400 013737 007636 010102
7657 065406 052737 0000064 010230

7661
7662
7663

CMP

BNE
MOV
MOV
BIT

MOV

DVTRSB:

DVTRSC

MOV
DEC
ASL
ASL
ASL

TEMP,R3
R3
R3
R3
R3

MCV
MOV

(R3)+,DVRXA
(R3)+,DVRCC

ADD
CLR

DVIRSC:

SEQ 220

23-DEC-B2 14:01 PAGE 221
DEVICE TRANSMIT AND RECEIVE SUBROUTINE
MOV

MOV
BIS

DEC
DVIREX: RTS

#BDLBAS,R3
(R3) +

TRIBN.DVRTB
#ORX, FLAG
CRX
PC

:REPORT ERROR
: AND EXIT

TRAP
JMORD
"WORD
.WORD

CSERSOFT
7
DVEMS
ERR2?2

;EXPECTED RX COMPLETED
:COPY BDL MEMBER NUMBER
:COMPUTE OFFSET
:
FOR
;
THIS
MEMBER

*POINT TO THIS MEMBER IN BDL AREA
*CLEAR BDL STATUS WCRD
SUNLOAD RX MESSAGE ADDRESS
*UNLOAD RX MESSAGE CHAR COUNT

*STORE LINE NUMBER FOR LOGGING
‘SET FLAG TO QUE ANOTHER RECEIVER

CZKMSAQ kMS11-BD/BE DCLT
CZKMSA.P11
25-DEC-82 13:54
7665

MACY1? 30A(1052)

23-DEC=-B2 14:01 PAGE 222
DEVICE TRANSMIT AND RECEIVE SUBROUTINE

SEQ 221

CZKMSAQ xns11 D/BE

CZKMSA.P11

23-DEC~

§L

MACY1? 30A<1052)

TOORIO

23-DEC-82

.SBTTL TOORIO

7668

1ee

7670
7671
767
767
7674
7675

:
;
:
;
:
:

REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE

; FUN(TIONAL DESCRIPTION:

7676
7677
7678

;
;
:

7679
7680
7681

:
:
:

7682

TOORIO = THIS SUBROUTINE REQUESTS AN INPUT INTERRUPT THEN
WAITS FOR AN INTERRUPT OR A TIMEOUT.
IF AN OUTPUT INTERRUPT OCCURS OUUTHDL IS CALLED
70 HANDLE THE OUTPUT DATA, AND THE REQUEST IS REISSUED.
IF AN INPUT INTERRUPT OCCURS CONTROL RETURNS TO THE CALLER.
IF A TIMEOUT OCCURS AN ERROR IS REPORTED AND THE REQUEST
1S REISSUED.

INPUTS:

FLAG = OTINT BIT
ININT BIT

7683

= SET BY OUTPUT INT ROUTINE
= SET BY INPUT INT. ROUTINE
CLEARED BY THIS ROUTINTE.

: OUTPUTS:

ERRCNT = INCREMENTED IF A TIMEOUT OCCURS

;ggg

7686
7687

: SUBORDINATE ROUTINES USED:
:
LGDVE
= LOG DEVICE ERROKS

7690
7691

¢ CALLING SEQUENCE:
:
JSR
PC,TOORIO

;ggg

7694
7695

7696
7697

065422
065426
065434
065434

OUTHDL « QUTPUT INTERRUPT HANDLER

011637
152777

010210
000021

125736

TOORIG: MOV
BISB

152777

000200

125730

BISB

#ROI,aBSELO

BNE

TOORI3

7698 065442 012737 002000 010270
7699 065450 005737 010270

TOORI1:

MOV
TOORI2: TST

(SP),PCADD
#IEO'IEI,aBSELO

#2000, TIMER?
TIMER]

7701

7700

065454

001027

7702

065456

142777

006200

125706

BICB

#RQI,aBSEL

7705
7706

065476
065506

017737
017737

125670
125666

010174
010176

MOV
MOV

SELD, TEMP4
aSELz TEMPS

7711
771;
7713
771&

065522
065524
065526
065530

104457
000010
022275
023460

7716

065534

7703 065464 012737 022275 010170
7706 065472 005037 010172

7707 065512 005237 010124
7708 065516 004737 024226
7709
000010
7710 065522
7715

7717

7718

7719
7720
7721

SEQ 222

PAGE 223

REQGUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE

;ggg
7669

14:01

065532

065534

000740

065536

104422

065536
065546

032737
001741

MOV
CLR

010230

:ASSERT RQl

SSET TIMER
1s TIME EXPIRED ?
CONT INUE

;TIME Exbxneo HAITING ron RDYI
YES. NEGATE

RQI

*REPORT TIME OUT WAITING FOR RDYI
SSPECIFY ERROR CODE
:COPY BSELO
:COPY BSEL2

1~c
RCNT
1ncasne~r ERROR ERROR
COUNT
LOG THE DEVICE
P( LGDVE
ENUM = ‘o<e~uno1>
1~casn£~r ERROR NUMBER
ERRSOFT ENUM,DVEM3,ERR13’
PRINT THE ERROR

TO0RI3:

000003

#DVEM3, TEMP2
tenps

;SAVE ADDR. OF CALLING ROUTINE
*ENABLE INTERRUPTS

BR
BREAK

BIT
BEQ

TOORI1

:GO BACK AND TRY AGAIN
;ALLOW CNTRL/C EXIT

TRAP
.WORD
.WORD
.WORD

CSERSOFT
8
DVEM3
ERR13

TRAP

($BRK

:CHECK FOR AN INTERRUPT
#OTINT+ININT,FLAG
:HAS AN INTERRUPT OCCURRED ?
TOOR]2
*NO, WAIT FOR ONE

E
CZKMSAD xns11-§o/ae ggL
CZKMSA.P11
23-DEC-82
13:54

MACY1? 30A(1052) 23-DEC-82 14:01
PAGE 224
TOORIO REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE

77%§ 065546 042737

000003 010230

BIC

#OTINT#ININT, FLAG

7724

065554

065562

001407

132777

000200

125614

BITB

#RDYO,aBSEL2

7727
7728

065564
065570

004737
132777

066040
000020

125600

JSR
BITB

PC,OUTHDL
#ROYI,aBSEL2

;;g?

065600

000715

TOORI1

7725
7726

7729

065576

77§§

065602

7734
7735

065610
065612

7733

z;gg
[]

7738
7739

065602

065620

001005

132777

001717
142777
0060207

000020

125566

000200

125552

BEG
BNE

TOORI4:

TOOR14

TOOR1S

:YES, CLEAR INTERRUPT OCCURED INDiCATORS

HECK rbaHESSAGE FROM THZ FIRMWARE (RDYO)

s eae A MESSAGE FROM THE FIRMWARE ?

K FOR PERHISSION 10 SEND
;MESSAGE aecexveo FROM F IRMWARE

;READ MESSAGE FROM F IRMWARE
:1S PERMISSION TO SEND ASSERTED ?

SYES. NEGATE RQI AND RETURN
*NO. RESET TIMER AND WAIT

:CHECK FOR nssponse 70 RO

BITB

#RDYI,aBSELS

:1S IT OK TO SEND A MESSAGE TO FIRMWARE ?

RTS

*RETURN TO CALLER

BEQ
TOORIS: BICB

TOOR12
#RQI,3BSELO

*NO. GO CHECK TIMER
‘NEGATE RO

SEQ 223

CZKMSAD KMS11=~ D/BE DCLY
CZKMSA.P1T
DEC-82 13:54

MACY11

30A(1(52)

23-DEC-82

14:01

SEQ 224

PAGE 225

TOORO

WAIT FOR AN EXPECTED CONTROL MESSAGE FROM DEVICE

7761
774
774

LSBTTi.

TOORO

7745

14t

WAIT FOR AN EXPECTED ZONTROL MESSAGE FROM DEVICE

7744

7746
7747
7748
7749
7750

: TOORO

FUNCTIGMAL DESCRIPTION:
TOORO - THIS SUBROUTINE WAITS FOR AN OUTPUT INTERRUPT
A TIMEOUT OR A CONTROL=C TYPED BY THE OPERATOR.

IF AN OUTPUT INTERRUPT OCCURS OUTHDL IS CALLED TO

HANDLE THE

INTERRUPT DATA.

INPUTS:

FLAG = OTIN
INI

—

IF
A TIMEOUT OCCURS AN ERROR IS REPORTED AND LOGGED
AND THE "IMER IS _RESTAR TED
IF CONTROL=C IS TYPED THE PROGRAM FXITS TO THE
DR> PRUHPT
BIT - SET BY QUTPUT INT ROUTINE
BIT = SET BY INPUT INTERRUPT ROUTINE
CLE ARED BY THIS ROUTINE

SUBORDINATE ROUTINES USED:
= LOG DEVICE ERRORS
LGDVE
OUTHDL = OUTPUT INT ERRUPT HANDLER
CALLING SEQUENCE:
JSR
PC,TOORO

065642
065646

005737
001055

010270

032737

000400

010230

022075

010170

001000

010230

022147

010170
OO

OO0

101 14
101 7

101 7
137 1

TOOR02:

032737

OO=2=000

000413

010270

08:

20%:

308:

(SP) ,PCADD
#IEO+IEl,@BSE 0

MOV

#2000,
T IMER1

TST

TIMER]

BIT
BEQ
MOV
BR

#INITC,FLAG
108
#DVEMIA, TEMP2
30%

BIT

#SETC,FLAG

BNE

BEQ
MOV
BR
MOV
MOV
CLR
MOV
MOV

lNC

TOORO3

:SAVE ADDR. OF CALLING ROUTINE
;ENABLE

sSET TIMER

;CHECK TIME

sTIME EXPIRED ?
:NO. CONTINUE
:TIME EXPIRED

lS KMS INITIALIZATION REQUESTED ?
NO

:SPECIFV ERROR MESSAGE
lS START PROTOCOL REQUESTED ?

0$
#OVEM1B, TEMP2
30%

SPEClFV ERROR MESSAGE

#OVEM1, TEMP?
tenpi.iaansc
TEMP
aseLo TEMPS
aSEL2, TEMPS

ERRCNT

PC LGDVE

ENUM = ‘D<ENUH01>

INTERRUPTS

:SET TIMER

Y YN N =

002000

TOORO1:

MOV
MOVB

012737

MO =2NONY = =)
S OVWVOON
LS
o
P
PONOANN
NI N W
oSO
ON

065634

TOORO:

; INCREME

—_

165634

125536

- LTETETE
TR PR TR T

0102 10
000021

065622
065626

0 MESSAGE...
ERROR

ESSAGE FOR ERROR REPORT
Ok CODE
0

T"ERROR COUNT
NUABER

CZKMSAQ xns11 D/BE th
CZKMSA.P11
-DEC=82
13:54
7797

065754

012737

7801
;gg

065776
066000

104460
000715

7798
7799
7800
7804
7805

065762
065770
065776

012737
012737

000011

003003
023460

SEQ 225

MACY1? 30A(1052) 23-DEC-82 14:01 PAGE 226
TOORO
WAIT FOR AN EXPECTED CONTROL MESSAGE FROM DEVICE
01§7oe

013704
013712

MOV

#ENUM,ERRNBR

;RECORD ERROR NUMBER

TOORO1

TRAP
JREPEAT WAIT FOR (NTERRUPT

MOV
MOV
ERROR

#T.ESFT,ERRTYP
#ERR13,ERRBLK

*SPECIFY ERROR TYPE
SSPECIFY ERROR HANDLER
*REPORT ERROR

(SERROR

:CHECK FOR INTERRUPT
:PERMIT CONTROL=C EXIT UHILE WAITING

7808

066002
066002
066004
066012

104422
032737
001713

000003

010230

BIT
BEQ

#ININT'OTINT,FLAG
TOORO2

:HAS INTERRUPT OCCURRED °
‘NO. KEEP WAITING

7810
7811

066014
066022

042737
132777

000003
000200

010230
125346

BIC
BITB

#ININT!OTINT,FLAG
#RDYO,3BSEL2

:CLEAR INTERRUPT INDICATOR
*IS THERE A MESSAGE FROM THE DEVICE ?

7806
7807

7809

7812

7813
7814
7815

066030

066032
066036

001704

004737
000207

TOOR03: BREAK

066040

BEQ

JSR
RTS

RAP

: INTERRUPT 0CCURRED

TOOROZ

PC,OUTHDL
PC

‘NO. KEEP WAITING

:MESSAGE FROM DEVICE
:PROCESS MESSAGE FROM DEVICE
*RETURN TO CALLER

($BRK

H
CZKMSAD kMST1 =BD/BE
CLY
CZKMSA.P1N
23-DEC~ 2 13:5¢4

MACY11

30A(1052)

23-DEC-82

14:01

PAGE 227

SEQ

OUTPUT INTERRUPT HANDLER
OUTPUT INTERRUPT HANDLER

LSBTTL
;00

s FUNCTIONAL DESCRIPTION:
OUTHDL = OUTPUT INTE RRUPT HANDLER
3
.
THIS ROUTINE IS CAL LED WHEN AN INTERRUPT HAS OCCURRED
:

WITH RDYO ASSERTED (BSEL2.BIT7 = 1),

CLEAR RDYD TO SAY ME SSAGE TRANSFER COMPLETED

COPY SEL2,SEL&,SELG

P USE OF FLAGS:
3
s
:
:

“INITC'" - SE
Of
CL
IS
llc‘x..

..CRX..

;

NG FOR COMPLETION
}
NE

COMMAND PAIR 0,0

E
3

SUBORDINATE ROUTINES USED:
“LGOVE'' =LOG DEVICE ERRORS TO EVENT LOG
CALLING SEQUENCE
JSR

066040

067170
067172
067174
067176

066142

013703

aSELO,SVSELD
aSEL2,SVSEL?

MOV

GSEL6.SVSEL6

MOV

@SEL&,SVSEL4

#RDYO,aBSEL2

TS?
BNE

CLNSET
OUTEND

MOV
MOV
ASR
ASR

SVSELZ2,R2
R2.R3
R2
R2

BIS

R2.R3

000037

CMP
BHIS

#37, k3
10%

066266

MOV

ADRINV,R3

O0O00O0O0
OO0

066134
066140

MOV
MOV

BI(B

125300

786
7869
78;0
7871
7872

:
OUTHDL

PC,OUTHDL

17774
17777

067166

BIC
BIC

MOV

#*(<30>,R2
#4C<7?>,R3
R3,.CMDSUB

;COPY FIRMWARE MESSAGE REGISTERS
s COPY SELO

: COPY SELZ

COPV SEL&
:COPY SEL6

;ASSERT MESSAGE TRANSFER COMPLETED
:CLEAR RDYO

;CHECK FOR CLEANUP MODE

s1F CLEANUP MODE ENTERED (CLNSET = =1)
:

THEN RETURN

; ISOLATE COMMAND PAIR
;COPY SAVED SEL?2
:COPY AGAIN

SHlFl COHHAND FROM BITS 5-6
T0 BITS 3-4

lSOLATE COMMAND IN R2 BITS 4:3
:ISOLATE SUBCOMMAND IN R3 BITS 2:0
;COMPUTE" COMMAND PROCESSOR ADDRESS
s COMBINE COMMAND, SUBCOMMAND
:SAVE COMMAND,SUBCOMMAND PAIR
sCHECK COMMAND PAIR IN VAILD RANGE (37:0)
lS COMMAND PAIR WITHIN VALID RANGE ?

:YES. GO GET PR (ESSOR ADDRESS
(OHMAND OUYSIDE VAL ID RANGE
GET OFFSET FOR INVALID COMMAND PROCESSOR

- 226

7873

066146

000403

7875
7876

066150
0661%2

006303
016303
062703

7879
7880

066162
066164

004713
000207

7882

066166

7884

066166

7916

066266

066166
066106

20%

10%:

ASL

20%:

MOV

ADD

R3
CMDTBL (R3) ,R3

JSR

PC,(R3)

OUTENE: RTS
:
CMDTBL

.WORD

000110

000102

.WOPD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
"WORD
"WORD
-WORD
"WORD
"WORD

ADRINV:

SEQ 227

23-DEC-82 14:01 PAGE 228
OUTPUT INTERRUPT HANDLER

MACY11 30A(1052)

"WORD
"WORD
"WORD
.WORD
JWORD
.WORD
.WORD
.WORD
.WORD
.WORD
JMORD
.WORD
.WORD
-WORD
JWORD
JWORD
WORD
.WORD
"WORD

"WORD

#CMDTBL ,R3’
[

:COMMAND
W
‘M

:AD
:PROCESS” COMM

A
;BASE_ADDRESS FOR
“TABLE OF COMMAND P

€0SO-CMDTBL

COS1-CMDTBL
cosg-cnotaL
C0S3-CMDTBL
C0S&=CMDTBL
C0SS=-CMDTBL
C0S6=CMDTBL
COS7=-CMDTBL
C150-CMDTBL
C151=CMDTBL
C1S§-CHDTBL
C153-CMDTBL
C15&=CMDTBL

C155-CMDTBL

C156=-CMDTBL
C157-CMDTBL
(2S0-CMDTBL
C2S1-CMDTBL
(252-CMDTBL
C2S3-CMDTBL
(254=CMDTBL
(2S5-CMDTBL
(2S6=CMDTBL
C2S57-CMDTBL

(3S0-CMDTBL
C3S1-CMDTBL
CSSg-CHDtBL
C3S3-CMDTBL
(3S4=-CMDTBL
C3S5-CMDTBL
C356-CMDTBL
C357-CMDTBL

INVCMD=-CMDTBL

Orm

CZKMSAD KMS11- D/BE DCLT
CZKMSA.P1
23-DEC-82 13:54

GE
MMAND PAIR BY 2
TO COMMAND ACTION ROUTINE
SE ADDRESS

SEECEYE COMMAND ACTION ROUTINE
G COMMAND ACTION ROUTINES
R ADDRESS OFFSETS

J
CZKMSAQO kMS11-BD/BE
DCLT
CZKMSA.P1
25-DEC-B2 13:54

;3}3

MACY11 30A(1052)
23-DEC-82
14:01
PAGE 229
ACTION RCUTINES FOR KMS RESPONSES AND MESSAGES

+SBTTL

ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES

;g%?

}:E‘a?gLOUIgG
RESPONSES ARE CONSIDERED TO BE ILLEGAL

7922
7923
7926
7925
7926
7927
7928
7929
7930
7931
7932

066270
066270
066270
066270
066270
066270
066270
06627
066270
066270
066270

COS%:
C0s3:
C0S5:
C0S6:
C0S7:
€150:
C181:
(1s2:
C156:
CZS%:
(253:

CTIVITV TERMINATED ON LINE (NOT USED IN THIS PROGRAM)
:RESERVED
sRESERVED
RESERVED
RESERVED
sRESERVED
sRESERVED
sRESERVED
;700 MANY RECEIVE BUFFERS FOR LINE.MAX OF 2 PER LINE
sRESERVED
sRESERVED

7934

066270

(255:

sRESERVED

7933

7935
7936
7937
7938
7939
7940
7941
7942

066270

(256:

066270
066270
066270
066270
066270

066270
066270
066274

sRESERVED

(256:
(257:
(3S5:
(356:
(357:
005237
000207

013634

INVCMD :

:RESERVED
:RESERVED
sRESERVED
sRESERVED
:DEBUG
INC
RTS

ILLRSP
PC

;COMMAND NOT WITHIN VALID RANGE
sCOUNT ILLEGAL KMS RESPCNSES
sRETURN

SEQ 228

CZKMSAQ xns11-§DIBE cht

CIKMSA.P11

23-DEC-82 13:54

7944

7945 066276 062737
;329 066304 000207

010230
010230

066306
066306

032737

001000

795
7953

066316

105237

013636

7954 066322
7955 066330
7956 066336
7957
7958
7959
7960

066342

7964

066342
066344
066346
066350
066352
066360

7967

066362

7969

066366

7961
7962
7963

7965
7966

7968

001016
012737
012737
004737
000012

104457
000012
022465
023512
042737
000207

022465
000004
067146

001000

066362

005237

007644

7970 066372

013722

067176

105237

013640

7971
7972
;g;z

066376
066402
066406

7975
7976
7977

066410
066410
066414

013702

013722
010237
000207

000207

23-DEC=82

14:01

SEQ 229

PAGE 230

ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES

000400

7948
7949

;ggg 066314

MACY11 30A(1052)

C€0SO:
C0S1:

#INITC,FLAG
PC

BIT

#SETC,FLAG

;SET/RESET DDCMP MODE COMPLETED (0,1)
;1S SET DDCMP EXPECTED ?

INCB

STARTC

:UNEXPECTED RESTART DDCMP
:COUNT UNEXPECTED DDCMP RESTARTS

BNE

010170
010172

lNlTlALIlATlON COMPLETED (0,0)

BIC
RTS

MOV
MOV
JSR

108

#ODVEM11,TEMP?
#e,TEMPS
PC.LOGE1

ASSERT INITIALIZATION COMPLETED
aerunn

SYES.

ENUM = *o<e~uno1>
ERRSOFT ENUM,DVEM11,ERR14

010230

10%:

C0S4:

BIC
RTS

#SETC,FLAG
PC

INC

CTX

MOV

SVSELG, (R2)+

007654

MOV

067172
007654

MOV
MOV
RTS

SVSEL2, (R2)+
R2,TSPIR
PC

INCB

ERRTHR

€153:

RTS

TSPTIR,R2

SSPECIFY ERROR MESSAGE
SSPECIFY ERROR CODE
:L0G ERROR

S INCREMENT ERROR NUMBER
:REPORT ERROR

TRAP
MORD
.WORD
WORD
ASSERT SET/RESET COMPLETED
*RETURN

:TRANSMIT COMPLETE

: INCREMENT TX COMPLETE COUNT
*COPY POINTER

1COPY SAVED SEL6

1COPY SAVED SEL?2
;SAVE UPDATED POINTER
*RETURN
;ERROR THRESHOLD REACHED
:COUNT ERROR THRESHOLD MESSAGES
*RETURN

(SERSOFT
10
DVEM11
ERR14

L
CZKMSAOD KMS11-BD/BE
DCLT
CIKMSA.P11
23=DEC=-82 13:54

;€154 TX TIMEOUT OCCURRED... TX CANNOT CONTINUE ON LINE

7981
798
798
7984

;POSSIBLE CAUSES

1. LINE UNPLUGGED FROM MODEM
2. XMIT sur LENGTH
= 0
;CONDITION WILL BE’ CLEARED BY:
:1. RECEPTION OF ANY MESSAGE (ACK,
NAK,
START, STACK, DATA)

;ggg
066416
066416
066426

7991

066434

7997

066432

066442
066450
066456
066466
066472

066500

7998
7999
8000

066504

8002
8003
8004

066526
066526
066530

8001

2. ISSUING DDCMP RESTART CINPUT 0,1) FOR THIS LINE

7987
7988
7989

7995

SEQ 230

MACY11 30A(1052)
23-DEC-82
14:01
PAGE 231
ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES

7980

7992
7993
7994

066512

066520

012737
032737

001499
0527

012737
013737
o1§737
013737
013737

004737

012737
000013
012737

012737
104460
000207

022514
001000

010170
010230

ooaoog

010230

022563
010170
000006
067174
067176

067146

010170
013710
010172

010174
010176

000003

013704

000013

013706

023700

013712

C156:

MOV
BIT

BEQ
BIS

10$:

MOV
MOV
MOV
MOV
MOV

#DVEM14, TEM?2
#SETC,FLAG

108

#TXTO,FLAG

‘NO
*RECORD TRANSMIT TIMEQUT

SVSEL4, TEMP4
SVSEL6. TEMPS

:COPY SAVED SEL4
:COPY SAVED SEL6

ZovMILR . TEMP2
TEMP2, ER"MSG
#6,TEMP3

JSR

PC,LOGE1

MOV

*ERR25 , ERRBLK

RTS

MOV
i esrr ERRTYP
ENUM = “D<ENUM+1>
MOV
#ENUM, ERRNBR

ERROR

;TX TIME OUT ON LINE
;SPECIFY TIME QUT ERROR MESSAGE
*1S PROTOCOL START REQUESTED
?

SSPECIFY PROTOCOL START ERROR MESSAGE
SSPECIFY HESSAGE FOR ERROR REPORT
*SPECIFY ERROR CODE

:L0G ERROR

:SPECIFY ERROR TYPE
*INCREMENT ERROR NUMBER
SSPECIFY ERROR NUMBER

*SPECIFY ERROR HANDLER
;REPORY ERROR

:RETURN

TRAP

CSERROR

CZKMSAO KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-82 13:54
8005
3889
8008

066532

C1s5:

066546
066550
066556
066560
066562
066564
066572

066606

MOV

TSPTR,R2

8027
8028

066616
066622

MOV
MOV

SVSEL2, (R2)+
R2,TSPTR

MOV

noven17 TEMP2

SUAB

TEMP

8029
8030

066612

8037

066656

8041
8042
8043
8044
8045

066642
066650
066662

066666
066666

066670
066672
066674

066676

MOV

INC
RTS

010170

010172
010174

#5,TEMPS

CLR
R2
(MPB
SVSEL6,NAKX(R2)
BEQ
208
ST
(R2)+
BPL
10$
MOV
NAKMSG(R2) , TEMP4
JSR
PC,LOGE1
ENUM = *o<e~uno1>
ERRSOFT ENUM,DVEM15,ERR24

MOV

066626
066632

066634
066634

8038
8039
8040

066576
066576
066600
066602
066604

8033
8034

8035
8036

010172

MOV

:GET
NAK REASON MESSAGE
#DVEM15,
TEMP2
+SPECIFY ERROR MESSAGE

8011
8012
8013
8014
8015
8016
8017
8018
8019
8020
8021
8022
8023
8024
8025

8026

010170

:MSG NAKED (1,5)

066532

066540

SEQ 231

MACY11 30A(1052)
23-DEC=82 14:01
PAGE 232
ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES

8009

8010

MOV
MOV

SVSELG, (R2)+

CLEAR NAK REASON INDEX
IS THIS THE NAK REASON ?
‘YES.
1S THIS THE END OF THE NAK REASON LIST. ?
NO. TRY NEXT NAK REASON
SPECIFY NAK REASON MESSAGE
:L0G ERROR
*INCREMENT ERROR NUMBER
*REPORT ERROR
TRAP
CSERSOFT
JWORD
12
.WORD
DVEMI1S
.WORD
ERR24
:SPECIFY RETRANSMIT
;POINT TO TX SAVE AREA

‘COPY SAVED SEL6

:COPY SAVED SEL?
*SAVE UPDATED POINTER

RXMIT
PC

2, TEMPS
svssus TEMP4

SSPECIFY RETRANSMIT
*RETURN

;TRANSMIT REJECTED BEFORE COMPLETION
:SPECIFY ERROR MESSAGE

PC, Loce1
ENUM = *o<s~un«1>
ERRSOFT ENUM,DVEM17,ERR22

: BR

EXOUT

*SPECIFY ERROR CODE

.SPECIFY ERROR CODE
1COPY SAVED BDL AND MSG NUMBERS
:PUT BDL NUMBER IN BYTEO
:L0G ERROR
:INCREMENT ERROR NUMBER
*REPORT ERROR

: GOTO CLEANUP EXIT

TRAP
MORD
.WORD
.WORD

CSERSOFT
13
DVEM17
ERR22

CZxMSAD kMS11-BD/BE DCLTY

CZKMSA.P11
8047

23-DEC-82 13:54

8048

066700

8050
8051

066704
066710

013702
01 7%

007652
067176

80SS
8056
gggg

066726
066732
066736

012702
010237
000207

007672
007652

005237

010116

066746
066752
066760
066766

005037
113737
013737
013737

011510
067173
0671764
067176

gg?g

067002

000207

8071
8072
8073
8074

067004
067004
067012
067020

MACY11 30A(1052)

066714
0667c0
066724

8059
8060

066740
066740

8063

066746

3821

8064
8065
B066
8067

066744

8068 066774

8075

067026

0137
022702
00100

000207

(2S0:

10%:

067172
010046

013737
042737
000227

067174

067176
002000

INC

PAGE 233

20%:

(2s1:

RSPTRE ,R2
SVSEL6, (R2)+

MOV
MOV
RTS

#RXSTAK ,R2
R2,RSPTRE
PC

011510
011500
011502

011504

OPVAR

CLR
MOVB
MOV
MOV

LINEST
SVSEL2+1,LINEST
SVSELG, DEVS1
SVSEL6,DEVS2

RTS

011506
010230

BIC
(3s1:

SVSELZ,(R2)+
#RXSKEN,R2
20%

INC

RTS

€3s0:

CRX

MOV
MOV

MOV
CMP
BNE

042737 002000 010230
013737

14:01

SEQ 232

ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES

8049 066700 005237 007646
8052
8053
8054

23-DEC-82

MOV
MOV
BIC

RTS

#STAT, FLAG

SVSEL&4,DEVS3

SVSEL6,DEVS4
#STAT FLAG
PC

:MSG RCVD (2,0)

:lNCfiEHENT RX COMPLETED COUNT

sPOINT TO RX SAVE AREA ENTRY
:COPY SAVED SEL6 TO SAVE AREA

:COPY SAVED SELZ TO SAVE
A
:1S R2 POINTING TO THE END OF AREA ?
:NO. KEEP POINTER
sYES. RESET POINTER
sSAVE POINTER
:RETURN

sREQUEST BUFFER FOR MESSAGE RECEPTION (2.1)
:INCREMENT NO BUFF COUNTER
RE URN

:STATUS REPORT, LST BYTES 0..3

:CLEAR STATUS DATA LINE NUMBER
COPV SAVED SELZ2+1
COPY SAVED SELé
COPY SAVED SEL6

INDICATE STATUS REPORT OCCURRRED
REVURN

:STATUS REPORT, LST BYTES 4..7
:COPY SAVED SEL&
COPV SAVED SEL6
INDICATE STATUS REPORT COMPLETED
;RETURN

CIZKMSAD KMS11-BD/BE DCLT
CZKMSA.P11
23-DEC-82 13:54
8076
8077

067030
067030

01§7§7

gggg

067044

000207

8081
8082

067046
067046

012737

067174

8083

8084
8085
8086
8087

8088
8089
ggg?

8092
8093

067054 004737 067126
067060
067060
067062

067ZOg

067064
067066
067070

067072
067072

012737

023030

8094 067100 004737 067126

8095
8096

8097
8098
8099

067104
067104
067106
067110

8101

067114

8100

067112

010170

000016

104457
000216
02%766
023460
000207

000017

104457
000017
023030
023460
000207

SEQ 233

MACYT? 30A(1052) 23-DEC-B2 14:01 PAGE 234
ACTION RCUTINES FOR KMS RESPONSES AND MESSAGES
(3s2:

8078 067036 013737 067176 06720
022766

SVSELS4

RTS

MOV

#DVEM33 TEMP2

MOV

(35%:

KNC DATA MEMORY CONTENTS
sSAVEDEVICE
RAM ADDRESS

MOV

JSR

SVSELG., KDATA

PC,LOGED

:SAVE DEVICE AH CONTENTS (ONE BYTE)

s KMS Tlflt OUT, WAITING FOR RDYI= 0
POINT TO RDYI TIMEOUT MESSAGE

ENUM - ‘D<EN Me1>
ERRSOFT ENUM,DVEM33 ,ERR13

_
010'70

C3%:

RTS

Mov

#DVEM34 TEMP?

JSR

PC,LOGEO

s INCREMENT ERROR NUMBER
;REPORT ERROR

;RETURN

TRAP
LWORD
.WORD
.WORD

CSERSOFT
14
DVEM33
ERR13

;KMS TIME O0UT, WAITING FOR RDYO = 0
sSPECIFY ERROR MESSAGE

ENUM = “D<ENUM+1>
ERRSOFT ENUM,DVEM34,ERR13

RTS

.LOG ERROR

:LOG _ERROR

s INCREMENT ERROR NUMBER
;REPORT ERROR

:RETURN

TRAP
LWORD
.WORD

.WORD

CSERSOFT
15
DVEM34

ERR13

MACY11 30A(1052)
23-DEC-82 14:01
PAGE 235
ERROR ROUTINES USED WITH KMS CSR OUTPUT ACTION ROUTINES

CLY
CZKMSAQ KMS11= D/BE
CZKMSA. P
25-DEC~ 2 13:5¢4

LSBTTL
EXOUT:

067116
067116
067122
O SO

2 d ek
d ek

NN NNNN

[elelelelele)

0671%6
067132
067140
067146
067154
067160
067164

067166
067170
067172
067174
067176
067200
067202

ERROR ROUTINES USED WITH KMS CSR OUTPUT ACTION ROUTINES

JSR

PC N%TYRB

CLR
MOV

TEMP
SVSELO, TEMP4

JMP
N —=ONONON—
S ONNNO

8105
8106
8107
8108
8109
8110
8111
811%
811
8114
8115
8116
8117
8118
8119
8120
8121
8122
8123
8124
8125
8126
8127
8128
8129
8130
8131
8132

010174
010172
010173

LOGEO:

LOGE1:

CMDSUB:
SVSELO:
SVSEL2:
SVSEL4:
SVSEL6:

000000

KADR:
KDATA:

MOV
MOVB
INC

GTRA

SVSELS.TEHPS
SVSEL2+1,TEMP3+1
ERRCNT

JSR
RTS

PC,LGDVE

.WORD
.WORD
.WORD
.WORD
.WORD

0
O
O
O
0

.WORD
.WORD

O
O

: HALT LINE

: GOTO DCLT PROMPT
:L0G DEVICE ERROR
;SPECIFY ERROR CODE
:COPY SAVED SELO

:COPY SAVED SEL?2
:COPY SAVED LINE NUMBER
* INCREMENT ERROR COUNT
:L0G osvxcr ERROR
*RETURN

:DATA SAVED FROM FIRMWARE TO HOST MESSAGES

:SAVED
*SAVED
SSAVED
*SAVED
SSAVED

COMMAND, SUBCOMMAND PAIR
COPY OF SELO
COPY OF SEL?
COPY OF SEL&
COPY OF SEL6

*SAVED DEVICE RAM ADDRESS
*SAVED DEVICE RAM DATA (ONE BYTE)

SEQ 234

0D
CZKMSAD kMS11
CZKMSA.P1

23°0EC-

(LY
2 13:5¢4

=O YNV
SY N=OYoO~NO
S W

i e

OV IV IV IV VW oW W

P oW o

o b e e

P o

W [V V]

00 00 0o 0o 00 o 0 0o 0O 00 o € 00 00 0o 0o Co 0O 00 Co 00

DEVICE INTERRUPT SERVICE ROUTINES

.SBTTL

067204
067204
067204

067212
£57212
067212

052737

000001

010230

067222

BGNSRV

DVINS

BIS

#ININT,FLAG

DVINS::

ENDSRV

L10023:

000002

067214
067214
067214

052737
000002

000002

SEQ 235

MACY11 30A(1052)
23-DEC -82 14:01
PAGE 236
ERROR ROUTINES U SED WITH KMS (SR OUTPUT ACTION ROUTINES

8133

010230

BGNSRV

DVOUTS

BIS

#OTINT,FLAG

ENDSRV

RTI

DVOUTS::
;OUTPUT

INTERRUPT OCCURRED

INDICATOR

L10024:

CZxkMSAD kMS11-BD/BE DCLT
23-DEC=-B2 13:5¢4
(ZKMSA.P1T
8155

8157

SEQ 236

23-DEC-B2 14:01 PAGE 237
DEVICE INTERRUPT SERVICE ROUTINES
+EVEN

8156

8158

MACY11 30A¢1052)

067226

8159 0672264
g}g? 067224 104401

ENDTST

L1002¢2:

TRAP

CSETST

CZKMSAD kMS11-BD/BE DCLT

(ZKMSA.P11
816
816

23-DE(-B2 13:54

MACY1Y 30A(1052)

23-DEC-82

14:01

PAGE 238

DEVICE INTERRUPT SERVICE ROUTINES

SEQ 237

G
CZKMSAQ kMS11-BD/BE DCLT
CZKMSA. P
25-DEC-B2 13:5¢4

SEQ 238

PAGE 239

PARAMETER CODING SECTION

HARDWARE PARAMETER CODING SECTION

*
*

14:01

R I

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.

MACROS ALLOW THE

I
e
e e

HARDWARE

23-DEC-82

SUPERVISOR

WITH THE OPERATOR.

067226
067226
067230

BGNHRD

000023

LSHARD::
LSBTTL

067230
067230
067232

THE

TO ESTABLISH COMMUNICATIONS

DEVICE

INDEPENDENT SECTION

DISPLAY DPLX

000003
067433

.WORD L10025=L$HARD/?2

.WORD
.WORD

T$CODE
DPLX

.WORD
.WORD
«WORD
.WORD

T$CODE
(SRADR
IM
TSLOL

.WORD
.WORD
.WORD
.WORD

T$CODE

LSBTTL

067234

000031
067276

160000
177776

001031

WO
NS W =O

.......-.-..-.‘-o-cgc
00

000776

LYLNLNLNLN
ST NN NN

G0 Co 0o 0o OO 0o OO OO OO OO OO OO 0D

I e

30A(1052)

.SBTTL

)

O OO OOV OO0
00 Y~ NNNNYN~N~NO > o

00 0o 00 0o 0O 00 0O 0o 0O OB 0O 0O 0O 0B o o 0O 0O Co GO 0 OO O 0O OO 0O 0O Co OO 0O OO 0O 0O oo
-

8164
8165
8166

MACY11

GPRMA

CSRADR,0,0,160000,177776,YES

GPRMA

VECTOR,2,0,300,776,YES

GPRMD

002032
067357
00034C
000004
000007

GPRMA

003031
067405

160000
177776

DEVICE DEPENDENT SECTION

:
ENDHWL

PRIOR,4,0,340,4,7,YES

.WORD
.WORD
.WORD
.WORD
.WORD

DM11BA,6.0,160000,177776,YES

.WORD
.WORD
.WORD
.WORD

ENDHRD

L10025:
NLIST

BEX

LEVEN

TSHILIM

VECTOR
TSLOL [M
TSHILIM
T$CODE

PRIOR

340
TSLOL
IM
TSHIL
M

1$CODE

DM11BA

M
TSLOL
(M
TSH[L

(ZKMSAD KHS\\-?D/BE Ll
CZxkMSA.P1T
25-DE(-B2 13:5¢4

MACY1Y 30A(1052)

23-DEC-82 14:01 PAGE 240
DEVICE DEPENDENT SECTION

sDEVICE INDEPENDENT QUESTIONS

sDEVICE DEPENDENT QUESTION
067276
067324
067357
067405
067433
067454

046513
047111
111
106
106
200
067456

030503
042524
052116
030515
046125

024461
051122
051105
026461
020114

C(SRADR:
VECTOR:
PRIOR:
DMI11BA:
DPLX:

.ASCIZ
,ASCIZ
,ASCIZ
,ASCIZ
,ASCIZ
BYTE

LIST

BEX
.EVEN

/xMC11-B CSR ADDRESS: /
/INTERRUPT VECTOR ADDRESS: /
/INTERRUPT PRIORITY : /
/DM11-BA (SR ADDRESS: /
/FULL DUPLEX ONLY/
O

SEQ 39

oo00 00 0o 0o 00 00 0O o 0O 0O 0O o 0O 0o 0O GO OO 0O 0O 0O

N AININUALAI AN AN A AL AR AU RN NIRUNY
&~ £ B NN NN N N NN N LN N NN N NI RO
n =S O WO NOMNENANN
= O YO0 NN
NN

(ZKMSAD kMS11-BD/BE
CLY
25-DEC-B2 13:54
CZKMSA,. P11

MACY11 30A(1052)

SEQ 240

23-DEC-82
14:01
PAGE 241
DEVICE DEPENDENT SECTION

:.SBTTL SOFTWARE PARAMETER CODING SECTION
s

:
:
s

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P=-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

¢ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICAT]IONS
: WITH THE OPERATOR.

BGNSFT

ENDSFT

- TEMPORARY

8243
067456
067456

000030

$SPAT(H:

067536
067536
067540
067542
067542

PATCH AREA ="FOR DEBUG PURPOSES' TM" "'
BLkw
LASTAD

000000
000000

000001

LSLAST::

.END

ENDMOD

.EVEN
-WORD
+WORD

0
0

ACTMSS
ACTMSSG
ACTMSS
ACTMS6
ACTM2X
ACTNO
ACTNUF
ACTNUL
ACTNUM
ACTOPM
ACTPAS
ACTPRO

ACTPRT
ACTOFG
ACTRDE
ACTRDQ
ACTRDS
ACTRDX

057052
057432
057362
056752
056760
056770

057000
057010
057020
057036
057220
057240
055732
055740
056560
056652
057134
057370

056036
057374
057054
027046
027024
027062

o
OWVIWSOSNInOWNESN o
B R

NNINVNVNOOWO
W= NN

ACTMET1
ACTMOP
ACTMOS
ACTMSO
ACTMST
ACTMS2

6220

14:01

PAGE 243

TABLE == USER SYMBOLS

6300

61264

WS OONNO

05625
05745
05574
056550
057354
056076
056170
057172
056476
056470
056446
056504
057250
060134
060044
056672
057550
056026
060172
055762
057566
057560
057162
057462
057500
057542
057116

057340

ACTCLB
ACTCLP
ACTCLR
ACTCOP
ACTCRC
ACTCSE
ACTCST
ACTDLL
ACTDME
ACTDMQ
ACTDMS
ACTDMX
ACTECH
ACTEKE
ACTEKT
ACTEQD
ACTETB
ACTEXT
ACTEXX
ACTHLP
ACTKAL
ACTKTB
ACTLIS
ACTLLP
ACTLPX
ACTLXX
ACTMEX

ACTCHK

VWO = N
LR
3

000022
0C200
0571;4
056730

23-DEC=-B2

ROSS REFERENCE

== waNOON —=ONON p— N~

ABO
=
ACT
=
ACTATY
ACTBCR

-DEC-B2 13:54

MACY1? 32A (1052)
w
OCOOMOMOMOOOOCPOOOO o OV

CZKMSAD KMS1
CIKMSA P11

64134
63194

6400

6295
6288
6199
6192

6297
6301
6204
6194

63004
6310#
6210
6196

6213
6203#

6232

6235

6238

62420

6273

6276

6280#

62174

SEQ 241

CIZKMSAQ KMS11-BD/BE DCLT
CZKMSA.P1
25-DEC-82 13:54

MACY11 30A(1052)
23-DEC-82 14:01
PAGE 244
CROSS REFERENCE TABLE == USER SYMBOLS

ACTREC
ACTREX
ACTRHL
ACTRLG
ACTRLP
ACTRNF
ACTRNL
ACTRPS
ACTRSL
ACTRUN
ACTSEX
ACTSHO
ACTSHW
ACTSLS
ACTSTE
ACTSTS
ACTSTT
ACTSTX
ACTSZE
ACTTAL
ACTTLP

057154
0%6764
0O 67;0
0%67 “
057472
026710
026716
057422
0%7010
056052
057062
05575%
05631
057646
056512
057346
056522
056530
056540
057212
057442

5991
6120
6119
21
6003
4123
4118
6000
6122
5970
6014
5968
6060
6015
5974
5980
5975
6133
5976
5995
6002

622%0
L1654
41324
L1484
62984
41%00
L1318
62874
41524
60494
62074
6028#
6074
6334n
61324
62694
61354
61364
61394
62404
62924

ADDCC
ADDCT1
ADR
=
ADRINV
ALCK
ALCK1
ALCK2
ALCK2A
r.CK3
ALCK3A
ALCK3B
ALCK3C
ALCK3D
ALCKG
ALCKGA
ALCKS
ALCKSB
ALLTR
ASSEMB=
ATVMOD=

027422
027516
000020 G
066266
061050
061134
061210
061470
061530
061652
061674
061664
061634
061716
061730
0G61110
061120
061110
000010
000027

293¢
4295
22154
7872
2823
6676
6683
6733
6697
6761
6775
6769
6764
6750
6781
66758
66784
6551
1996
23514

5895
3104

ACTTRA

BAD
BADCHR=
BASM1
BASM
BASM
BDCLK

057202

010205
000051
020051
02006§
02003
016671

BDLBAS 013434
BOLEND 013634
BDLMAD 013432
BOLMNM (013430
B110 = 000001
81100 = 000001
81701 = 000002
B1102 = 000004

G
G
G
G

5994

7794
3694
2534
32534
32534
32538

;1660
1834
31654
31640
188#
1774
1764
21750

62374

79164
66194
66824
66948
67394
6743
67734
6778#
67768
67674
67824
67854
6777

60934

5939

6737
6/C7

67494
6784

6574

6598

983
276
075

6869+

4237
4256
4248
5452
5774
5776
7418+
7419+
27
188
187
2186

6112

66744

7214

7606

7652

74900
7420
2299

7435
2426

7491+

7494+

7504

SEQ 242

SL1otwo=~.>
O=MON0QGG==OO0OTlM-<My0y~JNTQ[[0oVoOVF~O=NLow0~o4-~4~=a0—XNlN<TvIe(aQOaOw~~l0]0M¥OOONwOV<2N=oNO&I=~LoNlMMnaa-=~Ol&NOlDgSN-=l«LOCW~NO0O0Oew¥ oo0O0ONOOOTOOODO0ONOMNT

OoOUN=OuDc3My~OOMNIOEORWOVMOEOCgOeOC~](oNElN)[OeO‘—"~DImOSVD'UNwOWOn“wDw=LV0o~~-LO2YOUlMLmD0AEU0INLIMWONOAQV]MND0eNSWO—lOIIN¢VeN|W!—OMVND&V«3OSiMOW-00IOdO3MUN°O0!eONc-T‘—kW3—O—MOATMM&eMNO1CW0-NDOO2WON[N‘O0*pDoNWu,0AOON00O0OOD000O(bbwO31(-OllO]00(O—3O=R01OeOI0N1eON(oT0~12MOe=D~]NO06eOIe0O10TN—(eOMO~o0N~2O(5~eO130NeOOI2NM6eOOw—=‘~5~0NN(O5eTO06W(OIeO0M70OeON08OeIO3—O0O90Oeo[~3OO82N=eNlNO2e=Oe—TON3“2eGDN78eOA1?DeNO00eOO71[MeOl7Me®=Ot“1MD=0]
Ug=UOJ3oAol]=laM2VMTl]G=s8la]l[[0+« Ow* o4 Ve3w<o oo ~~ n. KN~2MNNN--LSR[a
NQMOaoVSv O 3o~"

MO ~ oN ~ ~~> o9®O oN~ N=NeO-un N-~ w~MO

)gOV(NWO=OolNaIUNlON=aVMI0lO1OLD«JMa=[OnW'n«=d"OOWMOg=N0M0IOdNOo~TIOAnMOM"WdIN=wMAV]OOOMRM]lNUMNALOU—5~V[YW=ONNMUWIlNAeMONNleVIW4NC=VOOAle
DOO®eTNIO3IlA"VSeOY0lWIMVT>eMOoMl3O—AoVBMVNlINOMDeILMVMlOTNDOIOoeIlIVMNSeIMNlOEN-eITvATNW=V=NINU~kATSFGNN=OMNoOeMWCMaON&eOLN3MODR-TCeM0No=TO"ONOI~S0WVFMON+<)~8F0WSOo<TW0WAoOVNM)DFYWNOWOO)N0ANTVONROSCe=MVOTNM-tI}OT0IVOGeMIeTOOOtUMONVMWI0NeGTeItO0MBOIVEeGeTOTL0tI0IMOMWOGN(eNTLeI0tNMV0VMMAIGEGLeTMIC0tINWNTSGOOVOeIBM0ITNLO~AUI8NeI.t0IO0VSRSoL0eOTeTONOTDVNeTtLOI)OTOV0WL0e(GNT0VtNOO00LMITM0VGNOORL0OeTTtSOVMNIE0OeLO0IGO0VTBOMLOGVIITOtLNVOeI0LOPVVeTLOVeOLUtILNNO0L—VtIVONL0L9YU

~Jeo=WN—lM=Ltad (oO~NM2nAMN]oesT5M-wMn M<wONO~NwoeN—

L&=-I

# = -.

-=&«

5NSR

23°0EC-86-13:54
MACY11

- .

CZKMSAD KMS11
CZKMSA.P11
30A(1052 )
23-DEC-82 14:01
PAGE 245
CROSS R 3 FERENCE TABLE =-- USE R SYMBOLS

SEQ 243

EO2N.VlVR7:WI.11.NN2E.3O0O52OO5e61O71D0wNWw01V20oA4SNDac7tNmPOCRQNDRoIS=NNCFOMRZOAN—ODEMON~WEMMIOe-WLMNVNeNOUETeDIO%VNNBNOANATOQaNN~oONaMkxOhaNxOwnIOTwVonmOINPTOW-4ONFINN—WxxO.e.0fOOwlOikMoO0.O0&.
W=O3VO70EAIV.nMQE3NION)No0OIYe_aXO~WsFVyWOM0=D3TEIMGOOT)VIevsowNGOI-02EUDoRGOnOEWMsNORGD‘OMOM©WF=GE3OONryGVWO6OFONTYXG30W—N0OO@ SNMBYNO2A~UI9IVG7NNTVOTWOO5oW‘«V©YVVOnNA7T0~s3o%IC&NAMN9U.6ORXOU3OGWWN5SOT+«eWO1NToO0O32NNM8IO00WTO£2O)C—0V~p2AVMN0G-O039NO@WOMA -AW-‘LTX~IRNO3ONCE5O0L2OONUNIOT32V0N6DOO7CO[]3w£4JIOUA5V-0=2TGv1aVV¥oWXO0Caa2.D¢lNUOeo)TO£72VNT~e8BFWW0NM5=DVLAGWaOdo3MV3lOT05)nAe[IlUO0NTGDU-(9—a0wlU2OHVAV6NIM6-- LMna0LlTMI7OOD(M60‘LG2OOMN“O0“W7O2LNM3OVOW7IO03~N.MOO7J—VNXIa/OMD7TMneNW“0OOO7QTNGVe‘MROOWV20UlIeMV5MD6ReNO[oVW02ANNiOSO6%=)ONWTV~65YN)O©WAM65NMWeNaAbI6O‘nOMo—-)“ON~Nw63INEeOeOe6r3@wMWNR—WEOoV6-ON0I=ONDeMI67SUOMNroN6‘OM=I6OU5MOCRO—VoN«NO2—IC—vMOIOON0\m7’~Ve=MTNWTUOOo!0MtdMVWUNSO-(—‘OIToATW0MN)MO2NoV.0l
VVo¥b4Oo~woO-~(~~-ewowo—Eeo©-0—dMN)~l)) 10oO~OWI-YNLwV)c~0owowoao—wM~5~<S~2aoJ~Nv0Nyl)J[NOSWAJoCON~4-OONTN—odNMOaNTTVAM]—OWJkNO~e=~OaMYg[@oM ~w Y&o~~oo ~w Ml)+0[NN%O[«D)-0@- oIw~-]aVz[][«[ToOO4Nd—"a7e"V(WG(otL~0w-~ow~.~"N=A®N*—Ma5]Tl) ¢4GM—C4OL-US—OMNO=W«OMNO—aaOl*lOOIV]¥sNoNU0OYNMOaaLU\OVMlC=l—Oa~NwMNOFMll~U((n~—eaLNNM—N¥NoaM0eG0-Ll¥M~OOTO——N3—N° o5~~— R~—<<~~vM-YeMow~-o)Moe]Nl—l~[~O
5~N aMo0 oODa~oNM [-~—
t

- «W = &
=
= - k

CIXMSAD KMS11CZKkMSA. P

23°06C-88-13:54

MACY11 30A(105
(1052)
23-D EC-82
14:01
PAGE 246
CROSS
0SS
REFERENC € TABLE == USE R SYMBOLS
SEQ 244

CSRADR
c1ovcC
=
(1s
CTx
CURADD 010156

CURCC

010150

CSAY = 000052
C$AUTO= 0
($BRK =
($BSEG= 0C
($B:.UB=
CSCEFG=
CSCLCK=

N
N0
NW

6685
4715+
4897

4757

6690+
4734
4988

4813

4832+

6778+

5756+
6785

5760+
6836

5893+
6840+

5898

5937«

5942

4993+

6713

6718

6729+

6745

6783

6832+

6842

5744

5906

5917

5945+

6062+

6452

4379+

4381+

5755«

5761+

5894r

5900

5938«

4347
6460

4358
6503

5751+
6506+

5763+

6085+

6157+

6170+

7594

7640

711

7959

8020

8041

8086

6706

HOVON—=0000N

CPTTLS

4641 v

7066+

8049+

=200V

CPTRLS
CPTRR

SEQ 245

MACYT? 30A(1052
23-DEC=-82 14:01 PAGE 247
CROS S REFE RENCE TABLE == USER SYMBOLS

\hOO—'WM-‘WOOO“NJ:N
OWOoOWVINGO WVIWO-—N
.
»%

NN S N = NN NN AN N00 NN O N NNO WK
SO OONONNWWNLES
S
NN O VIOV
00 N
x
N
BRI IR

CPTR

CMSGS = 000025
CMSG6 = 000026
6
CNTCLN
CONOTH
2

&~ O = ONIOWWN= YOO
~ ~ VIR 00 S N S OO WO

(MSG3 = 0000 3

CMSG4 = 000024

ON\SNNNNONNNNNU‘NONNONNNNNNN

CZKMSAQ KHS11 DIBE
-82 13:5
CZKMSA.P11

(SCLEA=
(thOS-

5543
5678
2060
7801

8003

6854

6873

6887

715¢

586

5649

5799

5855

3696

5639

5809

6996

160

7548

CZKMSAQ KMS11-BD/BE DCLT
CZKMSA.P11
23-DEC-82 13:54

MACY1? 30A(1052) 23-DEC=B2 14:01 PAGE 248
CROSS REFERENCE TABLE == USER SYMBOLS

CGPHR=
($GPLO=
C$GPRI=
C$INIT=
C3INLP=

5475

000042
00003
000040
000011
000020

CSMANI= 000050
CSMEM = 000031
CSNSG = 000023
CSOPEN= 000034
CSPNTB= 000014
CSPNTF= 000017

CSPNTS= 000016
CSPNTX= 000015
($010 = 000377
C$SRDBU= 000007

CSREFG= 000047
CSRESE= 000033
CSREVI= 000003

C(SRFLA= 000021

CSRPT = 000025
C$SEFG= 000046
($SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013
066276
C0SO
066306
€051
066270
(0S2
066270
C0S3
066362
(0S4
066270
0SS
066270
(056
066270
€0S7
066270
(150
066270
(151
Qe62r0
(152
066410
(1S3
066416
(156
056532
€155
066270
(156
066634
€157
066700
(250
066740
(251
066270
(252
066270
(253
066270
(256
o7
(255
066270
(256
066270
(257
066746
(350
067004
(351
067050
(352
067046
(353

19964
19964
19964
1996#
19964

19964
19964
19964
19964
19968
19968
5455
6108
19964
3958
6355

19964
19964
19968

1996#
19968
19964

19964

19964
19964
19964
19968
19964
7886
7885
7886
7887
7888
7889
7890
7891
7892
7893
789
7895
7896
7897
7898
7899
7900
7901
790
7908
7906
7905
7906
7907
7908
7909
7910
7911

SEQ 246

5594

5793

3287

3300

3314

3331

3347

3365

3283
3643

3206
3651

30
688

37
3716

33
376

A6
4138

§525
4133
3780
3974
6366

3§53
6183
3789
3986
6375

540
6239
99
3997
639%

573&
6308
3809
4011

5432
5381
5404
2059

5386
5632

5391

5397

5344
5584
5560
79454
7948
79224
79234
79674
7924
79254
79264
79274
79284
79294
79754
79874
BOO6N

79304
8033#
8048
0594
9314
79324
79338
7934#
79354
79364
80&3#
80714
80764
80814

5635
5570

5577

57
eusy
3819
4021

5829
euld
3829
4054

5254
6037

3941
634¢

PAGE 249

COACO NOGNOGN0

DEV4

DLLM1
DLLMIC

O —O
OMM
T v OWNO
MO —MOOON0T

>>3>>

T OO0~ IOITOTNMNIMNOOO~

PAdLAEEEEEEOCOOAWNDD

DLLMIE
DLLM?
DLLM2C

002643
002166
002650
002650
002170

5849

6457

6479

6504

6569

6620

3970
3966

3982
3968

3993
3991

4025+
4005

4027+
4007

6709

-0y

6780

6824

6990

5786+

Lala’

SMMM
011474
011476
DFPTBL 002130 G
DIAGMC= 000000
DEV3

(1052)
14:01
MACY1Y 30A(105
23<D EC-82
CROSS
0SS REFERENC E TABLE == USER SYMBOLS

4[TaRX

23°0EC-82-13:54

CZKMSAD KMS11=
CZKMSA P11

5787+

4028+

-_—0 -0y

CZKMSAQ KMS11=-BD/BE DCLT

CZKMSA.P11 ~

23-DEC-82 13:54

DVEMI1 022465
DVEM14 022514
DVEMIS
022631
022703
DVEN17
DVEM
23
DVEMS_
022275
DVEWS3 02cred
DVEM34 023030
DVEM4
022330
DVEMS
022407
063514
DVEST
063432
DVEST
ovI
= 000012
DVINEX 063702
DVINIT 063024
067204 G
DVINS
DVINO
063074
DVINOO 063040
063154
DVINI
063230
DVIN2
DVMI4B 022563
DVOUTS 067214 G

DVRCC
DVRCLS
DVRCT
DVREX
DVRTB
DVRXA

010106
007602
010110
064336
010102
010104

OVICC
DVICLS

010066
007612

DVIREX
DVIRS
DVIRG
DVIR4A
DVIRGB
DVIR4C
DVIRS
DVIRSB
DVIRSC
OVIT8

065420
064506
064764
065010
065132
065200
065204
065346
055414
010070

ECHO

= 000037

EDABO
EDDCK
EDDDE
EDDER
EDDLE
EDDVI
EDEOP
EDMOS
EDRXC

020022
017603
017716
017566
017661
017633
017751
017765
017540

DVRXQ
DVSET

DVICT

DVIXA
DVIXRX

32538
53¢
334
2538
g3
53
2534
3253
33
30330
2390
72238
2283
128
6500
5567
7138
7127
71620
7176
32538
5574

27398
27078
276408
7608
27378
27388

14:01

CROSS REFERENCE TABLE == USER SYMBOLS

7954
7988
8009
803
7539
7703
8082
8093
1ass
7632

3395
7225
7121
8138
7145
71328
7177
71794
7992
Blu6w

7961

8022
804
7590
771
8088
8099
199
7842

72754

7156

7063+
4795
6740%

7074

7076+

7077+

6742

6833+

6893+

7656+
6698

7061+

7073

7076

7424

27318
27084

6689«
4853«

6752
4871

7015+
4923

7023

7497

7609+

7616
76479
7533
7569
7584
7598
7571
7630
7644
27320

76604
7506
7535
7574w
76004
76120
76148
7646K
76584
6753

4B71e

4918+

4925+

4947

7531
7566M

7552

7567

7608+

010072

27338

27308
g6%¢

23504

22738

289
2889
2892
288
2891
2888
389
2530
2886

SEQ 248

PAGE 250

6699
4775+
4795+

499
72508

ECHOB = 000004

23-DEC-82

4992+
4585+
4775
74390
6700
4990+

064174
063560

010064
064340

MACY11 30A(1052)

7068
7265

4640+

74064

4853

7610+

6687+
7020

6751
7071

7012«
74784

7022

7496

5051

6262

6252

6262

6703

6875

6889

3036

3253
3253
3253
2538
253
3253
2530

3253

6856

7425

7655+

7654+

6757+

6763

6768

6774

CZkMSAQ KMS11-BD/BE DCLT
CZKMSA.P11
23-DEC-B2 13:5¢4
017513
EDRXQ
017464
EDTXC
017440
EDTXQ
017363
EFM1
Erng
017%66
EFT3C
020330
EF .CON= 000036 G
EF .NEW= 000035 G
EF .PUR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 G
EXTB = 000065
002215
EMSGO
002216
EMSGY1
002217
EMSG
002220
EMSG
002320
EMSG4
002412
EMSGS
002513
EMSG6
002643
EMSGB
ENADD
010130
ENDALL 025102
ENDEVT 026606
ENDHWL 067276
033646
ENDIT
ENDQO = 000017

ENRDST 011512
ENUM = 000017

2885
884
88%
2534
32534
3253
2195#
21968
2197#
2194#
%1930
3814
2467
2468
2469
2470
2471
247%
247
2475
27498
37464
385%
82134
5394
23430

29314
22304

5%1
53n
S3x
07
;93
24
5390
5396

4261

6126+

3862

3866

40934

5622
6B524

5626
6BSS

7159«
68714

7310
6874

68854

6888

71504

7153

7999#

75464
8000

8018#

8021

7544

7590«

7636+

7707+

7794

8117+

SS581#
3070

3768
2446M

013710 G
013706 G
013640
013704 G
023340 G
023430 G

3211»
32104
31884
32094
3273¢
33034

7790+
7797«
6487+
7798+
6876
6857

33364
3%900
43524
33694
33884
3,03

7962
6890
7597

2378#

ERR13

023460 G

ERRMSG
ERRNBR
ERRTHR
ERRTYP
ERR1
ERR10
ERR1G
ERR2
ERR2
ERR2
ERR24
ERR2S

023512 G
023402 G
023542 G
023600 G
023644 G
023700 G

27478

33204

3938

5385
5380
3118
24934
24954
cbo7n
24994
2513#
25274
25414
2554w
4163+

EOP
= 000024
ERRBLK 013712 G

010124

7638#
8042
3618
7799«

7641
80844

8001«

77094
8087

7712
8095#

77964
8098

7797

5644

64G6*

6851+

6870+

6884+

6918

7155

7551

7714

7799

8089

8100

7643

8044

8023
8001

7993«
8000+
7976+
7998+«

ERX

= 000100

2303#

2547

6596

6625

6766

7065

7629

ETX

= 000200

23048

6625

6736

7017

7029

7583

ETRB

00006

= 000004 G
EvL
EVMCTS 021613
EVMDCD 021623
EVMDSR 021617
EVMOCG 021473
EVMOHD 021516
EVMOST 021576

2213#
2870
872
871
253#

3253
3253

SEQ 249

MACY1Y 30A(1052) 23-DEC=-82 14:01 PAGE 251
CROSS REFERENCE TABLE == USER SYMBOLS

7595
8039#
2294k
32124

ERRCNT

32534
32534
3253

6314

6398

7957#

7960

7549

7592#

MACY1Y

SEQ 250

(1052)
30A(105
23-D EC-82
14:01
PAGE 252
CRCSS
0SS
REFERENC E TABLE == USER SYMBOLS

oo
=<o

O-&~3 OONSMg ON

4Lab al=1aalP

CZKMSAQ KMS11-BD/ BE 3 DC LT
1 13:5¢4
C
CZKMSA P
23-DEC-B2

[OaPl¥NRa) [+Oo-1]+ gMoG

[al¥a) A O
VOMPM — MO—
LB

T
(O

]

[

FSPROT
FSPWR
FSRPT
FS$SEG
T
FSSOF
FSSRV
F$SUB
FSSW
FSTEST
X
GARPE
GARPF
L

000011

000021
000017

5333

3537

GARP1
GATCEX
GATCFL
GATC1
GETCL

GETIND
GETIN

N
mw

—
b —a

SEQ 251

PAGE 253
14:01
(=82
TABLE == USER SYMBOLS

[+ JV
IV
—2ON
N
o —O

000004

5649
3290
3399

3330

3336

3346

3352

3364

5948

000041

FSEND

VHANWNOD
NWNNU D 0D
NN - D >
WWRRO
NN =) = NN
O~
O COOWVIOD
O £ = N0
NN
N —
OO NN RN OO NON 0O

VNN
= NN 0D 0D WY — W

WNN O S Nt = s N O OO
V0D
O WO = WD OO —
WIWNWNOD
O OO NNV
O OO

FOCLEA= 000007
F$DU
000016

&»

13:5¢4

MACY1 3?

CZXMSAQ kMS11-BD/B
CIZKMSA.P1T

TM s

8138

8142

8146

8150

5840

5843

5850

5862

5874

5889

5904

5916

5933

4793

«81

4830

4851

4869

L964m

4967

671

6776

3734

3740

3743

6965

8110

6943

6508

6827

6989

7053

7223

GETIZ2

GE TPRM
GE TRCL
GNTXPR
GNTX1
GNTX2
GOOD

GTRAS

GTREX

GTRX2
GTRX2A
GTRXZ2B
GTRXZ2(
GTR9
GTVIND
GIVIN

GTXRXB

GSCNTO=

GSDELM=
GSD1SP=

060470

=
.

7089

‘@

GTRAL

WWWRIANO
WO N N &~

GTRA2
GTRASZ

— st
\ N B BSNONONONONON NN
VIO VWA YN ~
- OO—=O0OMWESN ~N

GOX0UT

GRPICP

L6928

4893

919

7360

CZxMSAQ KHS\I-?DIBE (LY
CIKMSA. P11
23-DEC-B2 13:54
GSEXCP= 000400
GSMILI= 000002
GSLOLI= 000001

10G6#
1996#
19964

G$OFFS= 000400
G$0FSI= 000376
G$PRMA= 000001
GSPRMD= 000002

19904
1996#
19964
19964

GSNO

= 000000

6999

8193

8198

8203

8209

19964
2F
3258
5673
"
3255

5442
1996
3271
5690
4
3316

8193
2010
3439
5695
2012
5482

8198
2101
5335
5712
213
5565

8203%
2111
5339
5713
2148
6957

8209
2123
5341
5717
2280
7095

000005
003276
014616
003254
014540
014623
014636
014754
015036
015123
0151%0
015227
0153G5
015375
064132
064020
064052
0646044
064036

23334
26438
32538
26344
32538
2634
2635
2636
2637
2638
2639
2640
2641
2642
7362
5628
7360#
7351
73538

2956
6039
4135
603
S780
32534
3253#
3253#
32534
32534
3253#
3253
32534
3%530
7373
6926

2958

6041

= 010000 G
= 000040 G
= 000001
20
=

22234
22164
26268
24258

4548+

4550

4581

6573«

673+

6826+

HLP
=
HLPEND
HLPF
HLPTAB
HLPO
HLP1
HLP2
HLP2B
HLP3
HLP3A
HLPG
HLP4A
HLPS
HLP6
HLTREX
HLTTRB
HLTTR1
HLTTR2
HLTTR3

= 120000 G

ININT = 000001

INITC = 000400

INITY
INTPR]

6999

5812

HELPDC= 000000

INDW

5812

3699

GSYES = 000010
HELP = 000000

IBE
Ipu
1€l
IE0

699

5442
5445
819
5442

000000
000140
000000
000040
000120
000020
000004

Q32632
013416

19964
19964
19964%
19968
19964
19964
1996#

8133

22264

8136

8139

7138

g oS
37%
31458

8193
8193

6999

8203

8198
8198

8207
8203

8209
8209

2149
5361
8155
2311
7123

2150
5371
8162
2394
7281

2147
5589
818%
2410
7387

3206
5607
8221
3124
7412

3232
5621
8235
3207
766!

3250
5652
8240
3225
7482

3256
5668
8248
3253
7508

8148

8188

4584

6828

4642+
4922
6988

4644
4940
7052

4692
49420
7221«

4697«
4944
7224

4753
4970
7359«

K774
64100
736!

7720

7722

7807

7810

8139

8218

8109

73554
7354

7695
7695

1244
77n

7941

6515

5990

8145

73504

6509

6502«

6999
6999

6034

4514

L7944

5812
5812
8209
5812

5442

$38es 6u8Se
4512+
27140

SEQ 252

MACY1Y 30A(1052) 23-DEC(=-82 14:01 PAGE 2564
CRCSS REFERENCE TABLE == USER SYMBOLS

699
3699
193
699

GSPRML=
G3RADA=
G$RADB=
GSRADD=
GSRADL=
G$RADO=
GSXFER=

HOE

19964

4852

4714

7160

7165

53784
5504+

4870

4892

4894

4733

621

483

7175

7779

7945

7373

5566

737

5573

7557

(917

4920

4972

64611

7560

CIZKMSAQ kMS11-BD/BE D LT
CIZKMSA.P1Y
25-DEC-8

3 13:54

MACY1Y

30 A(105 2)

23=D

C RCSS REFE RENC

=82

14:01

SEQ 253

PAGE 255

TABLE == USER SYMBOLS

wwOOOOO
- NN v
oo SND S8 » S

[elelelalelelolelelel
=il

SWWWWU‘

000
010114

5595#
32904
301

8138#

33154

Bl44x

Bl4bR

B1S52»

4142+

L1465

4149+

3320

33324

3336m

33484

3352#

33664

4153+

4159

5371
6045+
6398

6049

5637

§771e
6059

5847
6073

owne

oD~

5855
5692

[ XV IV

VNN
= N O NN
WWNIO
W=
OO
V0D
NO
OO = O
WWINGD
O & O OWOD
R
uEuN
NOWWOOWOWWIWVIWLN
W
b cd QD N = = = S NYINWY NN
O
NN =NIN =S b s
N
=N NOONOOWVWVIN
Vi

007726

SO PVIWIIN
WVANNES
wd wd
BNt
OWWWVIWTN
k=3

067202
003246

5658#

6317

5860
6212

6025+
63140

6028+
6317+«

6320

6624

000040

3=
O TI TO TO LI T

mm
€~
A0 —-D
O
c

[Vl

000041
000041

NNINNOWNES SO

v
ZoCr
Z O0U—0O

[

—

06?270
013412

6623

6714

6730

6746

7637

7708

7795

36460

6339

6497

8065+

8118

6041+
6320

6043
6335«

002102
002046
002064

4988Bx

6679

[4
[4

WY
VOO
OO
N
SOV
W
o088
=
WS

3
g

o
"~ o
o0
~N0

3
3
3
3
3
3
2
2
2
2
3
2
Py
2

LSETP
LSEXP1
LSEXPL

7309#

;

Al A

—

N
»

oS
o

—

LOGMSC 024410
LOGRXC 024216
LOGRXQ 024200
LOGS1
024426
024634
LOGS
024434
LOGS
LOGS3A 024362
LOGS&
024510
024534
LOGSS
LOGTXC 024162
LOGTXQ 024144
LOGUNT (10206
003325
LOOPS
= 00001
LoT
016417
LPO
016420
LPOO
016427
LP1
016440
LP2
016446
LP3
016461
LP4
002110
LSACP
LSAPT
002036
LSAU
054156

5624

6”
7

(Y]

S666#4

32274

3208#

8113
8038

8116#

3588

36264

3619

3624

oo SW
&
z

067126
067146

o
©OO
=0
NS

063704
040000 G
031142
036566
0
O
0
024372
024642

AT AT AT Al AT Al AT ol o Tl o)

LOGEOD
LOGE1

Zggoic-gg 1 3

ARl

LNSTAT
LOE
=
LOGAGR
LOGCMD
LoGCmL
LOGCMP
LOGOVl
LOGEOP
LOGEX

MACY1Y 30A(1052)
23-DEC-B2 14:01
PAGE 256
(RCSS REFERENCE TABLE == USER SYMBOLS

w~N NW
SO oo
O~ — NN

CZxkMSAD kMS11-BD/BE

CZKMSA.PI

5645

3253#

5027

5470

5474

36284

SEQ 254

CZKMSAD KMS11- D/BE g(LT

22-05(- 2 13:5¢4

SPO=MONEONdMdOdRd—dM)OO)MOddIdT)MAeONeMdAddOdFdOdNeTeOddRd)IOTeDWVeNIeMNeIGdNGOeoeOedONeeOdUMeEOdN-)ON

CZKMSA.P1

SEQ 255

(1052)
MACY1Y 30A(105
23-D EC-82
14:01
PAGE 257
RC
SS REFERENC € TABLE == USER SYMBOLS
CRCSS

"wn

VVVOVLVLVOLVLVOVLVLVLVLVLVLOLVLVLVLVLYQO

k
2
R
=
"
u
e
w
3
mwowIBIVZw2-CAL0me4OwoDECmTX=TwXLWOAOQ ONMQITAMONVA0N N~GDJMF3OUW0NvM=eFIOA—V=MEND [-3OToWM—eNa~SV) [<oNw]

w a0 o o= L

Rl - - ~

o ~ ~N w ES

o o~ 4 < -

o ~ oo -

0 ~N o ~ -

bl ~ o 4 El

bl ~y =2 el kS

O]
(g o a0 -

L
CZxMSAO kMS11=-BD/BE DCLT
CZKMSA. P11
23-DEC-B2 13:54

MODCSR
MODE
MODES
MODLOC=

0136%6
010% 2
003334
000003

MODREM= 000004
MODS
011336
MODTYP 010216
MOMSGS

011356

MACY1Y

31490
8204
2664N
2258#

%2590
855#
27888

6300

28704

MOP
MOSC

= 000043
= 000256

22604
2374H

MO1

016336

2665

MO0

016326

M02

016347

MO3
MO4

016357
016366

MO0S

M06
MPLY
MsC

016403

016410
010046

= 000016

MSG
MSGL IM=
MSGTRN
MSGTRU
MSGTYP

002732
000017
017054
017105
010146

2664

5505«
2559
021

7203

3596
6527

5766
6732

5786
6760

6113

6220

6223+

4668

L6711

4753

6459

6515+

2698
5884

2699
5911

2700
5928

4449

5880

5924

5750«

5762+

6084

6163

6187«

6189+

6085

6198

4672

4756

6462

54T
6247

6250

6281

7030

7088+

2669

32534

2667
2668

2670
27238

3253
4581

2583
§234l
2538
32538
g;ggo

25914
2697
5569
4300
4344

22914

MSG4
MSG4C
MSGS

002220
002154
002320

2471
24710
2472

MSG6

MSG6C
MSG8
MSGBC
MTPLEX
MTPLY
NAKMSG
NAKROO
NAKR1
NAKR16
NAKR17
NAKR
NAKR
NAKR8
NAKR9
NAK X

NEW
NO

002156
002412

002160
002642
002164
030400
030356
013664
023306
023075
023235
023256
0231%6
023155
023172
023215
013644

033150
= 000036

6231+

6234+

6237+

6240+

6253

6191+

6193

6195+

6197«

6200+

32534
32534

24L6BN
2469
26698

MSGSC

6228+

32534

MSG1C
MSG2
MSG2C

002217
002152

7126

3634
045
253#

2666

002214
002144
002215
002146
002216
002150

MSG3
MSG3C

SEQ 256

30A(1052)
23-DEC=-82
14:01
PAGE 258
CRCSS REFERENCE TABLE == USER SYMBOLS

3623

MSGO
MSGOC
MSG1

2467
24L67H
2468

2470
24704

24728
26473

2473
2475
2475
4669
4583
3197#
204
197
20;
20
198
199
3200
§201
192#

5399
23584

2482

24924

2483

24944

2484

24964

2485

2498#

2486

25004

2487
5751
2488
6201
2490

2514m
5763
2528#
)
25534

L6730
LOOBR
016
2534
%SS:
3253#

2534
2534
25;0
%S '
53
2012
LObF
3028

6516

gOnvOOgvgv0geOv0gTOgOqO0ueOg0TeOOe0TgOVOg(N0oORIOgO0oo0o0OGAo0GOOeo0GO0gNgO0Oe gAoUNI0NoOGOOO000TO00000O070C0O7R0O70R00RO7R7OoRTTRTORTOBReROeERORNERRPRE

nNO2sOO=RaON~InaON~MMVGJ0nIGN0RAeGN0NnG3VNY0e5ORs60MTN0nV30N7Aea"GMN80nI53AetNI6FNA:O7AFVaN9ASTOR0QOTUcNNM2AsF0NA‘eVN1A3NM2S5OsMR3S6NMNO“N8n5OSNM1“Q2NM703SO4nNIOON5MUMMN6JABNDIa7WN8N9OU(N0MNOnN1N2OreM6—~3M(DnvU‘NMM5IWsrF6WU3=79NrMs37=O07NM1s0TM2AM=T7OSAT3UMEOOCM‘MOaI5M0eON“0sMOOI90MeNOO00NeOO0M1eOI2OeDI8eMAM3eLM
CZKMSAD KMS11CZKMSA. P11

2900EC-85"13:54

MACY11

w~ -

(1052)
30A(10
23- DEC-82
PAGE 259
14:01
CROSS
0SS
REFEREN CE TABLE == USE R SYMBOLS

SEQ 257

PAGE 260
(1052)
14:01
23 -DEC-82
MACY1Y 30A(105
CROSS
0SS REFERE NCE TABLE == USER SYMBOLS

CZKMSAD KMS11~
25-DEC
CZKMSA.P11

3°0EC-Be 1315

N OOIMIWNON OOIMSTWVON =M INON O NMJIWNON NMNINON Oenumn

NOD20
NOD?2
NOD?
NOD2
NOD?
NOD2

R-3

854

on
on
1

on
3»
“n

954
740
96#
974
014

SEQ 258

CZKMSAQ KHS11-§D/BE CLY
CZKMSA.P11
25-DEC-82 13:54
NOD
NOD30
NOD31
NOD i
NOD
NOD34
NOD3S
NOD36

011;38
01175
011764
011770
012006
012012
012030
012034

NOD4O
NOD&1
NOD&
NOD&
NOD4&
NOD4S
NOD46
NOD47
NODS
NOD50
NOD51
NOD52
NOD53
NOD5&
NOD55
NOD56
NOD57
NOD6
NOD60
NOD61
NOD6
NOD6
NOD6&
NOD65
NOD66
NOD67
NOD7
NOD70
NOD71
NOD7
NOD7
NOD74
NOD75
NOD76

815056
12074
012100
0121%4
012130
012134
012152
012156
011550
012170
012174
012200
012222
012224
012250
012252
012256
011564
012%76
012302
012324
012330
012334
012340
012344
012350
011566
012354
012360
012364
012370
012374
015409
01241

012052
011546

NOD37
NOD&

NONE = 000000
NOTNUF= 000050
=

NULEVT
NULL =
=
NUM
N10$
N100$
N102%
N104$%
N105%
N106%

020057
000000
000014
0115;6
012174
012200
01;226
013252
013256

SEQ 259

MACY1Y 30A(1052) 23-DEC-82 14:01 PAGE 261
CROSS REFERENCE TABLE == USER SYMBOLS

9584
9814
98;0
9834
9844
9854
9864
9874
9884
9594
9894
9904
29914
29924
299354
2994n
29954
29964
29604
9974
001#
3002#
3003#
3004n
3005#
30104
30114
29614
3012#
3013#
30144
3017#
3018#
30194
30204
3021#
29624
30224
30234
30244
§0260
0274
;0280
0294

2033
§§eat

253#
23284
23404
29554
§969
001#
309?
§9
108#

966

847

2969

3087
2974
003#
107#

30004

2970

2972

2981

3020

3022

3027

3079

3108

3119

3o08c-88 1315

(1052)
MACY1Y 30A(105
23- DEC-82
CROSS
REFEREN [ [v¥) —
0SS

14:01
k][
]

SEQ 260

PAGE 262
w >=

o
Ed

——

568o0WRTDLBP92IO1

CZKMSAQ KMS11=

D
CZKMSAQ KHS\1-§D/BE g(LT
C(ZKMSA.P1
25-DEC-B2 13:54
N72%
N73%
N8OS
NB1S
N82$
N83%
NB4S
N85$
NB6S
N87%
OFSET_
OPBI PT

01201%
01302
011744
011750
01%012
012034
01%056
012100
012130
012156
010162
002514

gO?il
07
2965
9830
98
985
2987
2989
2991
2994
27694
25464

OPCNT
OPEND
OPRMM
OPRMSG=
OPTYP
OPVAR
OPVART
OTINT =
OUTEND
OUTHDL
OUTVEC
OVRCNT
0$APTS=
0%AU =
0$BGNR=
0$BGNS=
o$du_
=
OSERRT=
O$GNSW=
O$POIN=
0$SETU=
PARAM

002162
002642
016546
000015
013420
010116
010120
000002
066164
066040
013414
010144
000000
000001
000001
000000
000001
000001
000000
000001
000000
010224

2474k
25488
32534
23614
31464
2744
27458
23004
7855
7378
3144
2757#
19964
19964
19964
19964
19964
19964
19964
19964
19964
27954
6479
2244N

OPBUF

PAS

002520

= 000002

PASC
=
PASMOD=
PASS1
PASS2
PASS3
PASS&
PCADD
PCK
PCLKCT=
PCLKEN=
PCPM

000042
000030
002644
002645
002646
264
010210
016510
001600
000117
017331

PLCK
PMS

061022
015527

PEC

PNCK
PNE (
PNMS
PNST

016520

016506
016516
016525
016475

;3%2

23628
23524
25624
25634
25640
23654
g?BSl
2534
22674
§2°§'
2534

32534

§82§
253

gZSSO
2538
32530
32534

SEQ 26!

PAGE 263
MACY1? 30A(1052)
23-D (-82 14:01
ABLE == USER SYMBOLS
CROSS REFERENC
3074n
29794
%9840
9864
2988#
29904
299%#
;99 @
279
7079

6861+

6879+

25478

6173

6991

6998

6171+
6993
7000
3069

7010«

7014

7015

5642
6494

6493+

6916

7373

7375

7557

7727
5503«

7814
5575

78464

7160
78804
7564
5502+«

2042
20094
20094
2034
20094
20094
2038
2009+
2028
3599
6504
6223
3104
2985

7694«
5046
5426
5428

5050

65944
2056

049
5053
5059
5045

7006

7012

7013

7025

7027

7061

7560

7720

7722

7807

7810

8148

6242+
6780

6252+
6824

6262+
6990

7062

7084

6424

6457

8060+

2074
2068
2076
2084

2100
8251
3631
6569+
6253

7770+

5769
6620
6732

6283+
7350

w
F

TABLE == USER SYMBOLS

»
»M—

3930

3931

3932

5878

6070

6077

6475

5213«

5256+

5806+

5823

6155+

6209+

6261

5832

6022

6050«

6058+

6072+

6127+

5234+

5238+

52400

5246+

6120

6126

3933

OWONOOOOTONOMO

VIWVIONWNON SOV
QO=2PNUONIN—N—
=2 NCDOD
= 00N = NWWNWNO
=N

pa—y

o
Ll

3929

6476

5312

5163
6447
6334+
5231

6449
5807
6381
5232

5236

5244

6675

6696

6735

6744

6765

7065

7407

7410

6749
6145

6762
6247+

6779
6250

7017
6263+

7029
6281

7678
6284+

7480

7611

7235

7246

7259

7318

7380

76437

7505

0
o

2R J

4164+

Or =

ow
WO

WOOON

WVIWVON

v
®

O
Od

3928

OOV 8 MO WWNWWWAWION
W S

3927

= 50 &
W= =00 == =N NW N=NO
SN OO SSNON) = NN O W NINoW
NNONON
8 OO WOWOMNDNWWNIN =~

S~
MNW

~ 5

RDMPS = 000006
RDY!
= 000020

000010
003250
003252
001000
002000
000010
000007

QTx
=
QUALFG
QUALVL
RAM]
=
RAMO
=
RDMPE =
RDMPQ =

S WWWVWVIWWWNO S O WOVWWIVIWNWW
S W S

023366
031506
031516
QcoPy = 000013
= 000004
QRX

W O =2 O N =t s = NP WO =N NNV
VO
WMWY NONONIWOOSWV
= WO
N NSO NN S =MNVOOV—=-=NNOON
L

PSTREE
P$TRV
PS$TRS

DN
OON
D=

003376

SEQ 262

PAGE 264

4101»

39264

VWO

PSRADX

14:01

5634
6045

NN BV

003374

4078

-t
N
NWOOV—-=
OO
=

PSNUM

6854

k=3

003400

PSNNUF

6824

BRI

016612
010122
016477
007536
006406
006502
006576
003370
003364
003372
031624
003401

S O=NO
=W
=

PRINOS
PSCNT
PST
PTREND
PTRTAB
PTR13
PTR23
PSACT
PSBUFA
PSCNT
PSEXIT
PSGDBD

G
G

O O O O O OO OMNWWONININNNNNONON
O
oo N NN
ON
VWOOwWw £ VVMANINIWNIWNNI NN N NVO O O 00 000N
S NN NOO W 8~ = WO
= OV
NO OF = NN
00 NNOW o~ WWN
»
=
RN
RN
RRun = 3

000041
000040
025764
026002
026034
026036
026074
026140
026170
026224

= 000055

23=D (-82

RCSS REFE RENC

o
~N

PROTO =
PROTOB=
PRTETB
PRTEOD
PRTE1
PRTE2
PRTE3
PRTESG
PRTES
PRTE6

PRNT

001000
026616
00;200
06735
000000
000040
000100
000140
000200
000240
000300
000340

MACY1Y Sg A (105 2)

oo
~

PNT
=
PNTTRB
PR]
=
PRIOR
PRIO0 =
PRIOY =
PRI02
=
PRIO3
=
PR104 =
PRIOS =
PRIO6 =
PRIO7 =

S NN OO
WO NNONOON =00

CZKMSAD KHS\IE D/BE D
CIKMSA.P

AUNLNLRLNLNLAININ
NNV NN OOV NV O oM NN N AL MU N MO WD WN AN N N N N N N NN N RO NN NN NN NOND CONUWNND - W

7216

RXSKEN
RXSTAK

010046
007672
i O

b e ad e e ON

ow ngm

6514

NN
£
-

06#

NS OW

WSS
O = b b s Y

WN
wViID

s
O

PN
ot
b
NNOOWY
wviNOoowm

&SN
= NN ODWN

VO NSOMNO

Vel moowmamow\:\:x‘amwoomomw

NS S I
S N WNWNNN S S NS
ON= =N =O0MNININION
= = S NN—O
OWES S
OO NN
IS —
NS00

8
©
W

~Nr0

o0o

NN
W~

23-06¢-8 2 13:54

ocorny

RN L L

co &~
3 bOMNWNN:\I’-‘OWO
]

WO — et VAN AN 8 O N =
PORD) = b = DN S 00O
-t O N S NrOW ~

(ZKMSAD kMS11
CZKM3A. P

NN N PN NN W
NONO
&S 8 B PONL O NUNLWWNL NN NN NI NN WNNNAWWNI
NNV
N W00 N=-N) O = NS NNNS OO ONOVCOOOOVOO

WOWMNO
= =S NWO
-, NSO
—O

MACY1Y 30
-

82
ABLE == USER SYMBOLS

2910
3868#

6481+
7524+

7627

14:01

7811

7735

8056+

7628+

6049

5796
6051+

6115

4057
4073
4089

7566

8029+

6622+
7530

6477

6627

8055

PAGE 265

38904

6833

SEQ 263

7852

S4S57#

6287+«
6921
6923+

G
AO

xMS11-BD/BE DCLTY

CEKMOR
1) 23DEC-80 13:5
L1720

:}?:
le%‘
:‘ $
R‘S:
:26$

027102
8 ;}gg
027136
8%;528
027200

6};§
:193
6};;
2185
2}%2

027230

6191#

027074

021752

32534

MACY 11

2};2:
6195
2};8:
6192
:}gg:

SEQ

s
PAGE
30A(1052)
RereREnCE
23-DEC-82
TABLE 14:01
—Ouse
s
266

CROSS RE

6197

4203

6194

4196

4200#

B
ggré e
013376

flgr
pne o
74
1508 fEE
gtgg: 2489'
7169« mae
7189+ 7201« 7212« P80 720%e 72520 73S0o 7366e e

SELE

31388

5496+

3013
5035

3860

017226

$3378
s2530
32530

003324
016066

gZSSO
%

638

6093
%es

3 TRH

016042

32534

635

o TYP6e

015746

2651

Sgg}

SHIYP7

01576/

$82]
£221,

%gg:

4032
23384
3778
$3530
«07#

20190
3080
109
3407
864

. o

013406

SETTAN: 017170
000011
SO
SHTAB
SHTAB

SHTAP
R

016237

G whE
015754
g:'VPS
SHIYPE 015761

535558 031206
s3 P43 . 8868?3
S 0g1r7
300
= 060006
000000

;;?3: ;g‘g' 5497« 5513« 5514 7171« 7204+ 7215« 7234+ 7245+ 7258+
i i 4
7989
9

6ie?

493

6135

gl g
53#

$230
1+

5790

6139

6117

6145

CZxMSAD xMS11-BD/BE DCLT
CIKMSA,.P11

2?-0[(-82 13:5¢4

MACY1Y

PAGE 267
30A(1052)
gs-oec-az 14:01
(RCSS REFERENCE TABLE == USER SYMBOLS

STATB
STATUS

STATYP
STEP
STx(
STxQ
SvCGBL

7326

000016
013424
= 000400
021664

021653
000000

SVCINS = 000001

8068

8074

SEQ 265

TEMPS

TEMPL

010170

010172
NV
SNNOW
OWVOSs

010174
4989+

5519«

? 99+
(%

3355

3372
5534

~NooOo~ e—:wf o~

WWNNOMWD
WO
V-~

3346
5699

2036
3310
54488
81514
8051
3347
5594n
81604
8067
3654
17#

ooO

073
3844
56574

£ 0
O

OO0
& — 00

(o o o Heo AV TN N
WN—
O O 0000
OO0
MN

o000
S NN W—O 000
SVOOV
— NN
W=t =t N BSNNO
~N

OO ONONO VW
WWNWN—
OO 0000
OO WVWN—ONN
OO WOV

OO0 NN NO OO0
NN
N = O NWVO OO0 & WNWN~-+O
OV 00
OW S = \N~NO NI NIWNOVWN—
O —
N =t =d B = OO N NO NN = OO
—w

Q0N

C0C0CO
A0 NN NOONOONONOONON
VNN

- O ONIN O O WO N S WO DWW S~

VO ON) = N N0 VN NIWVVWAWVINGD
WY —

COCDODG0 ~i~I~O OO~ O O O O O VWA
NN —=O NWVO OO0 & W) = O 000000

81264

OW
o
SW

3330
5677
—O
~&

8021
8099
8199
8250

—

8020
8098
8198
8215

7548
771

9961
057
7155
7643

6 Sg

643
6854

637
6434
6855
696%
705

B
ol
6359 6%2

6347
6 7§

5813

VN
W

= WNOO -0 VOV

5813

o
—

=NON

000000 NN NNOONONONONONON
YWYV
N=OOVO
—=O00 & S W — - OO0
=V
HWVNO O NWO S0ONCDW—

—

1 4:01

QO NN
oo

WVILN
N
OC

oo~ ~ NNOOCONOONONOr VNN
—O v N =2 O 00 £~ NN — — O 00 00 00
oo VS OO OO S
OMN) NWO
~NO NW =000
£ £ NN S NWO
O

“N W00
0o 0o

SSLSYM:=

~ -Ow—-bv:av!oo &S oo

SVSELSG
SVSELG

CONOWNONON
G0
= NNV00 O
ws

TEmP?

WOONOMN & S~ S

SVv(1ST= 000001
SVSELO 067170
SVSELZ2 067172

~NOW
VIS
OO~N

Sv(sSuB= 000001
SVCTAG= 000001

010166

MACYTY 3?

NOVNN
N N O SNAl
NNOOOWO VWO oo

TEMPY
S WNONINONIND WAL

[=l=lel=laTa)

CZxkMSAD kxMS11-BD/BE DC L7
CZxkMSA P11
23-DEC -82 1

W
W

64
Oh = = O O" NN

ooog = NN NN
=3 O wwrun
OOSN
— O O NOO~NO

== USER SYMBOLS

PAGE 268

SEQ 266

8078
3400#
S678#

7028

,629

4 )82«
(A1
7185
7601

5028+

6686+

8034+

7539+

8010¢

7023

CZxMSAD kMS11-BD/BE DCLT
CIxMSA,.P11
23-DEC-B2 13:54
TEMPS

010176

642
995
2775#

TIMERS
TIMERYT

010274
010270

284\
58390

6B4L6*
gg1$530
SSL

916

4926

840N
28354
28364

527
521+
S1g-

010375
01026
010264

TM
=
TOINOT
TOINY
TOIN2
TOORIO
TOORI1
toonli
TOORI3
TOORI&
TOORIS

000000
06&6§2
064730
064732
0656%2
065434
065450
065534
065602
065612

408#
S§90
75%7
7557#
7166
76964
76994
7700
7725
7729

;265
58
75554

065634
065642
066002

777%
77768
7777

7802
7808
7805#

TOORD

TOORD1
TOOR02
TOOROS

T01CC

010266

065622

7174

515¢

7187
7715
7721
77164
77324
7735#

7261

835037«
419

866
114
613

6882

6916+

7541

7589+

7635¢

7705+

7792«

;22 .

; 64

4101«

4103

4891«

4899

Lo
526+
529+
660
519

7;5725+«

7;
5726

7352+
7132«

73
7144

4034
7793
7526+
7678+

7774

7776

457+
Sis-

§659

5458+

7562

7572

7199
7730
7734

7210

7228

72%9

7250

7312

7364

7428

7483

7512

769484

7320

7325

77708

4294
6721

4305
67264

4307

4309+

4380«

5742+

5864

5865

5899

5906+

5907

6916
7485

4926+
749N

4968
7501

6700«

5291

5315

g 6

517+«

59«

09;

65?7

420

gg-

8115«

5459«

7812

= 000001

007634
007622
007636

27118
27094
27128

2994
6326+
3IIN
3613

6340
4694
26

6406+
«968
3770

6439
6327
3771«

6459
6349
4694+

6404
4695

031626

7577+«
5123

75725133¢

588
5149

7610
5154

7622«
5159

7623«
5162

7624+
5182

5160

5165

5184

5257

5272

5293

5319

5166

5183

5248

5271

5292

27194

6491

7515

7523«

7575

7582+«

7969

7972+

8025

gl
§7 S8

9L
LeB

57643+

5864

5875

5899+

6076+

5752

6079

TRAMOD= 000034

TRBTOT
TRIBLS
TRIBN

TRVACT

TRVALN
TRVALP

032420
032354

TRVBRC

031646

TRVERR

031664

TRVDEC
Vv

TRVYNOB

032026

23564

6753+
5113
5112

5121

5115

5106

031656

51454

TRYNUM
TRVOCT
v

TSPTR

1SSFLG

032040
032040

007654

010142

Hiioe:
LLOP= G581
T107CC
010076
TXBDL
01353«
TxBUF
003406
¢
= 000002

S111
5114

S?Sbl

175#
56920
2854

4293+
6719«
6237

6B6Oe
0 9'
61

27688
5945
22438

TRA

010160

837»

SEQ 267

MACY1Y 30A(1052) 23-DEC=-B2 14:01 PAGE 269
CROSS REFERENCE TABLE == USER SYMBOLS

TIMER?
TIMMIN
TIMSEC

TIMTCK

7233

52740
5260#

51408

5186#

7243

72564

7317

7368

7413

S149#

S189#
S188#

7489
4444
3578

8028+

7576+

K
CZKMSAQ KMS11-BD/BE

C(ZKMSA,.P1N

DCLT

25-DEC-82 13:54

MACY11 30A(1052)

010074

7340

4456

TXPTR

010052

%6;30

42;70

TXT0_
= 004000
T$ARGC= 000001

14:01

SEQ 268

PAGE 270

CROSS REFERENCE TABLE == USER SYMBOLS

TXMTOT

B gew

23-DEC=B2

gk B

L640

5758«

5877«

5879

5901«

6071

6075«

6428

6622

4659+

4460

L4699

4476

5745+

5756

5878«

5892«

5893

5898«

6077«

3297

3305

3311

33224

2727

g???t

;781

23088
%0160

7256
0174

7866
18#

7991
8190

020#

50210

5750

S§86

29;0

;6400

644

6484

652

6854

gbl9

713»

g?l?

7%3'

38804
3987

3888
3991#

38950
998

901
J04r

39074
4012

3912
L0146

9364
4022

3942
40484

3951
4055

3959
40654

3965#
4072

S;OBI
5735
5927#
6309
644628
69994
6BBBN

5212
57804
593%
63438
6446
B1B4w
71534

52514
5784
6033
6347
64678
B1934
7549

5255
58264
6038
63528
6471
B1984
7595

564520
5830
61034
6356
69608
82034
7641m

5456
58354
6109
63614
6964
82094
77128

55224
5839
61504
6367
70564

5526
5868+
6154
63728
7060

328

790

4103

3384
7924

4108

344

800

L1340

S4n

8024

4139

362

810

L2360

371#

812#

4241

8;0

L2468

33904
822#

4252

34060

830

8474

62550

4260

3414
851

34160
870#

3424

7854

874

3975
40804

9814
4087

6300

4304

S031#

5528¢
5873
61804
6376
70794

5532
58834
6184
63904
7083

79604

80214

80424

8087

1$CODE= 003031
TSERRN= 000017

5039
5534k
5888
6%56’
6395
36994
gggg:

5062
5541
5910#
6260
64314
S442m
68554

5070
57314
5915
63054
6435
S58124
6B74m

T$EXCP= 000000

ggggfl

3583'

33# »

5647

5812¢

5817

6999%

7004

8193

8197

8198#

8202

8203#

T$FLAG= 000040
TSGMAN= 000000
TSHILI= 177776

36304
19964
3699#

3432
36964
3703

55864
3699
56428

56494
37054
5446

56708
54394
5812¢

5672
5448¢
5816

56928
58094
69994

5694
5812
7003

57994
58184
81934

5855#
69964
8196

6999
81984

7005#
8201

8203#

8207

82094

8212

TSLAST= 000001
T$LOLI= 160000

19964
gggzl

8251#
3585,

33??0

5445

56124

5815

6999%%

7002

81934

8195

8198+

8200

8203#

TSLSYM= 010000

19964
5594

2146
5610

3287
5657

3300
5678

3314
5700

3331
8143

3347
8151

3365
8169

3384
8217

3400

3427

3538

5344

19964

19984

%1190

51450

33884
56094
B1774

32904

33994
56194
B2154

32994

34034
56564
B2S55#

33034

34264
56664

33134

33204

33304

33364

8255
%165

33834
56054
B1S9#

3%860

1998¢
211o#

5694
55934
BISOM

3%730

3286

32904

3299

33034

3313

33%00

gg?gl

5593

56054

5609

56194

5656

56668

81384
1996#
19964
19964

8142

81464

8150

19964
5353#
109#
431
6708
81504

1194
3694
110#
5374
567
81594

32734
56054
1454
6994
6778
81934

32904
36190
58 ’
53434
56924
B198#

3303+
56664
3;990
53000
569§
82034

33204
688#
313#
L4208
6994
B209#

3364
7164
3204
25860
799#
B2154

T$LTNO= 000001

TSNEST= 177777

T$NSO = 000000
T$NS1 = 000004

T$NS2 =
=
T$PTNU=
T$SAVL=
T$SEGL=

00010
uvwv

000000
177777
177777

T$TAGN= 010026
T$TE4P= 000000

8254n

33464
53534
81384
3364

33524
53604
Bl42w
3694

3640
53694
Bl46N
3383

3388

3399

34038

3426

3512

35124
56778
3330

35374
56884
33364

53334
56994
3346

33524

5677

3537

56884

53338

5343

57164

8159

8177#

33524
1384
3460
587
5800
B255#

33694
51460
3640
55934
58128

33884
21770
3834
56094
58554

3403¢

3512#¢

5333#

33994
56494
5856

34264
5650
6999

34304
56564
B14/#

5699

53534

5343
57164

5360

L3oNVO2—RNSOINM0T6aNOVMOCIrMWS0NM—NMvIYWorMTNM6AO—IND3veOCMUNO0OMMIO4TOMN9ODMWANv3Av-NaU0V6-0LNvwNiWDGa©8gBTmPOLR-dy5<OMogR9k+POLS6g'0Is7ARM2'w0aO9IESN—‘8lyOVr=,S&~IG]-FXeOV)3RI=o~loN-FLaV‘R.T[IV3yiO!no42oRWAe-K]x6ow3v8WO¢3r9EN¢W3ro70<MaOAP1Mxr+[}0]aYU—I-A0)[AT>9uDXR2V8MA0n[MU3wLoNal6R=MuSAPlo!n=9DAAAPn1REAN0ADIA(3RG@ZRA0D0VN2oRRNVO‘AR-DWRHR5OR.AA9WODIRVRO92“N=ADV0o”ONT0WM7OO(M9AIODDN7WUIDMNMD2WITAMAUWO5ANW37OTMD13VSMGMON2AUOS5AWZN2=ML=we-V3u0eR~=v
nTR
SRR

MACY11

SRR

e—ryeCOOO0O0O M 00—OOVM

%891..)5689‘80 O OONOV

X5WNe8NO3-TM“OI8M0—O‘=0MO30NO6M0”OA3DN9O02(~-NS"el~e>l0~rN0eOVAlAoNOw3elNMe—AlOOOMeN~o]OA0OIMVDNOVNMOADOOCbWOINNODNVTD0ONODn)OEOAe=COIbVN7NO7OMO7b7OMbIiMOTAWONONCW—OONOWIa=CCVNMOO0bMN00.gJOOION0Og0EWOOMObI0—V0TO=IO0CbNOM—UNO0VOIO00OOM00NIOTWONV0NOAIOAMWOMOAVODWAIN=OWVGUOO—"MD0(~N=]3T3o<<TOON[=3OkeuNVTROvAN=ORRN~38eNlOMtelNIaS3NRGGDWNMD=UOOUNo0OMW=OVOMVo0VCRlyCOINNgUl=MDMeFVOIECOMN0UWaOUlOo0eFMWTNIOM~VIM0RVNgeoMlA=0OMNIIRNlONVaMOeTVNMWeIIN=WR0NCT0lMlMVsO=AIeMIeONMOINeOM=ORN]NTMMRlTONOVg=DPIaMNeAMEONN(OPWOlVNMLN(MMeGnseRsO==RNN—NDNOlYlWNM¢¢««O“ TOo0a~—~) ~ 2NaoV(wLw~2-A=—X0on]aY2oMoMNka32LlhOLO~oM~MngO2gkoaB}3aM~tlas[3«la!vWTM03O0I0O—OO—VTeCuMOVDOITW3OMVTNNNYMWONOeMN3OnOFMW\N2M—UVMO=—N—MOWNNOoOUMOOWDDNOSDOWAIOCOWNN0MMIWWWaOO=3MAOODONNVIWNWVMDWWFMT0WFNUOMNM0—N0—WDO=IINF3W=JT=0WMOTTNN=—OIMON\NWMOOMMTTMOJONMNNO3~M—MR—MINNG
vv0a&O3O=1SRnOI&y0OVNI3rN2OUNTV3OIPO3M03I—MVUMOIT~OM30IRIrMTNW3AOIM3NAGLMOVC3PN <gko~NMowMna33 -O-OFIN0MNOOMV—N—MW~V—aM0NWUN3OO=SI$3SMWOMVO~M=N—
CZKMSAD KMS11-BD/ BE DCLT
CZKMSA,.P1
23=D EC-82 1 3:564
A11052 )
30A(
23-DEC-82 14:01
PAGE 271
CROSS R 3 FERENCE TABLE =-- USE R SYMBOLS

SEQ 269

L312

CZKMSAD KMS11 =BD/BE DC LY
1
CZKMSA.P11

2§°DEC°32 3:564

SPATCH

000000
000040
000400

000020
067456
= 067542

ONOOONN.
N

X$ALWA=
X$FALS=
X$0FFS=
X$TRUE

MACY11 30A(1052 )
23-DEC-82 14:01 PAGE 272
CROSS R 3 FERENCE TABLE == USER SYMBOLS

SR NONCNIMIMNYNOD

SEN 270

CZKMSAD kMS11-BD/BE DCLT

CZKMSA.P11

1®
1*
1#
1#
1#
1*
1%
1%
1#
1»

19964
1996#
19964
19964
1996#
1996#
1996
1996#
1996#
1996#

BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSFT
BGNSRV
BGNSUB
BGNSW
BGNTST
BNCOMP
BNERRO
BREAK
BRESETY
CKLOOP

1»
1»
1
1#
1
1»
1%
1»
1#
1#
1#
1»
1%
1
1»

19964
1996#
19964
19964
19964
19964
19964
19964
19964
19964
1996#
19964
19964
1996#
19964

CL!

ENDMHRD
ENDHW

5387

5398

5794

1996#

3289

3302

3319

3335

351

8137

8145

5714
5392

5412

5422

5433

5477

5544
5403

7142
5631

7555

7717

7805

5382
5687
5604
2618
665
8176
§118
368
1997

3%72

5352

14:01

SEQ 271

PAGE 274

CROSS REFERENCE TABLE == MACRO NAMES

3351

3368

3387

3402

5332

20004
968
2985
3003
3025

2954
2969
2986
3004
3026

2955
2970
2987
3009
3027

2956
2971
2988
3010
3028

2957
2972
2989
3011
3029

2958
2973
2990
3012
3030

2959
2974
2991
3013
3033

2960
2975
§992
016
3034

2961
2976
2993
3017
3035

2962
2979
2994
3018
3036

2963
2980
2995
3019
3038

2964
2981
2996
3020
3039

2965
2982
3000
3021
3041

2966
2983
3001
3022
3042

6172

6173

6174

6175

64176

6177

4178

6179

4180

4181

4184

4185

4189

4190

3237
3226
2106
8183
5375

5542

3045
3063
3082
3104

CLOCK
CLOSE
CLRVEC
COMMEN
DELAY
DESCRI
DEVTYP
DISPAT
DISPLA
DOCLN
DODU
DORPT
ENDAUV
ENDAUT
ENDCLN
ENDCOM
ENDDU

23-DEC=-82

23-DEC-82 13:54

BCOMPL
BERROR
BGNAU
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD

BGNMSG

MACY11 30A(1052)

6192
1»
1#
1»

3047
3064
3085
3107

4193
19964
19964
19964

1#
1
1
1
1
1#
1#
1%
1»
1»
1»
1»
14

19964
1996#
1996#
19964
19964
19964
19964
19964
19964
19964
19964
19964
19964
19964

19968

19964

3050
3065
3086
3108

4194
5408

5698
5608
5655
5676

B214

2144

3051
3068
3087
3109

4195
5418

3052
3069
3089
3110
4196

3053
3070
3092
31

4200

3054
3071
3093
3112

4203

3055
3072
3094
3113

3056
3073
3095
3115

3057
3074
3096
3116

3058
3077
3097
3117

3059
3078
3098
3118

3060
3079
3099
3119

3061
3080
3102
3122

2967
2984
3002
3023
3044

3062
3081
3103
L7
419N

CZKMSAO KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-82 13:54
ENDINI

1996%

5592

ENDPRO

19964

5359

228282

ENDPTA
ENDRPT
ENDSEG
ENDSET
ENDSF T
ENDSRV
ENDSUB
ENDSW
ENDTST
EQUALS
ERRDF
ERRHRD
ERROR
ERRSF

ERRSOF

ERRTBL
ESCAPE

3298

3312

1%
1»
17
1"
1%
1

19964
1996#
19964
19964
19964
19964

8141

8149

1#
1»
1%
1"
1#
1

1996#
19964
19964
19964
19964
19964

8158
2158

1#
1%

1996%
19964

3207

19964

19964
1996#

k111

3536

7958

8202

7547

7593

7639

19968

3429

5585

S648

5669

5691

5798

5854

6995

SBO9

S5B12

69964

6999

seogo
81934

57994
B198#

58554
g;osn

gzoqn

33908
38704
41340
S8264
63728

1996#

INLOOP
10SETU
10STAR

7710

5342

19964

1"
1%
1

19964
1996#
19964

3695

5438

S808

5473
8192

8197

8208

1"
1"

19964
1996#

2014

19964

1
1%
1%

3425

7151

GPRML
HEADER

3398

6886

GMANID

3382

6872

19964
19964
19964

GPRMD

3363.

6853

1"
1"
1"

GMANIL
GPHARD
GPRMA

3345

1996%

GETBYT
GETPRI
GE TWOR

w»

3329

8002

GMANIA

7800

EXIT

FEQUAL

SEQ 272

MACY1? 30A(1052) 23-DEC=B2 14:01 PAGE 275
CROSS REFERENCE TABLE == MACRO NAMES

}3323 3232

1"
17

19968

19964
19964
19964

36968

3699

54394

5442

1996#
1996#

8249
5792

1996#
19968

2015#
3430

2021
55864

2022
S6LON

2023
56704

19968
3723
39814
52088
9599:
1996#

32754
;777:
39914
52514
61508

izvzo
7854
4004#
56528
61808

gsoso
37924
4014
55228
62564

3220
aogc
L04BN
55288
63054

33338
B12#
L065H
55348
63438

MSDATA

1#
37130
3965#
50628
98360
1#

20154

2024

2026

028

2030

2032

%osa

2036

MSDE F A

19968

S6568
36994

56778
54628

5699
S5812¢

Blu2e
6999

8193¢

8198#¢

82034

82094

LASTAD
MANUAL

MEMOR Y

MSBYTE
M$CHE C

MSCNTO

M$COUN

1
1
1"

1
10

19964

19968

§833
1996#
19
MSDE CR 2080
S609#
55938

36998

S544om

03¢
g890
21454 §°32'

5812

038
2994

69994

5933
312:

33544
38224
40200
S731#
63528

718
3847
L1038
S780@
63614

8019

8040

8085

8096

34068
38804
42368
S835H
63008

34168
38954
4L246K
58684
6431

36408
39074
4255
S883@
64420

36488
39364
43004
59104
64678

36854
39514
5031w
59274
69604

2038

2040

2042

2044

2046

e
etk
e
I
§°59.
08
%058
50%c
5085
53608
5343#
35378
34264
§99n
ggagc
igeao
ggaeo
?350
82554
B2154
B1594
BI50

CZKMSAD KMS11=
CZKMSA. P

25°0EC-82 13:54

SEQ 273

MACY11 30A(1052) )
23-DEC-82 14:01
PAGE 276
CROSS R EFERENCE TABLE == MACRO NAMES

M= O OVOVOVOOONNY TMeOVOOONIVOOOOOONNMMMYI ONN OOFROOO—NOOM

33994
7959#

09#

L
#

L
L

"
¥
’
#

0
L

8
8
0
3
4

3
5

344
664

CZKMSAQ KMS11= gDIBE DCLT
CZKMSA.P1N
25-DEC-82 1 3:5¢4

MACY11 3

SEQ 274

23-DEC-82
14:01
PAGE 277
52 )
R EFERENCE TABLE == MACRO NAMES

ONG0VWAWAWAWAIN OMON—MMONMTO—MT=IONOSNFNOT

OMONMeI—NOVMNeE—MNOVITMOUNNO=

IOOVT—NIONNONNNOWNNONONTOOMOOWNN—==TN

OTINITNM~ONWMIONT=O

53904

32994
S699#
33054
37924

MSPRIN

1998#

21194

32734

36268

35374

53438

5593«

0L ON3 3L SNtOV M M

33994

OMITMWNVNONRN =WN0

53964

54094

56194

54740

55834

56344

3
p)
3

6
1
7

8
5
9

3399#

34264

35374

53438

53604

0
14
6

3
2

33364

33524

33694

33884

34034

35124

5333

2
0
4

2
0

MS$PUSH

V0NMO0NMI TOA=MNO

OVAWM0V

32904

5
5
2
8
3
5

33034

33204

1
6

7
7

CZKMSAD KMS11- D/BE
CZKMSA. PN

2 3 -DEC-gZ 13:54
DCLY

MACY11

30A(1052 )
23-DEC-82 14:01 PAGE 278
CROSS R 3 FERENCE TABLE == MACRO NAMES

OMINMOO— OIONINONMOOTONS~ M MNM=ONWJOOMOWvNe=e=

ITONOOO0~O~FVOWNAMANDG=T-—ONIOTODMIOOWNINOSSTMOMO

=L <o ox ~ e "

[xv8aVL+xownv —UMOIN=MNMNOINSOeMTWVONN=WNN. MO—CMINMOD—eCOMIOW=0OMD—MT —MNOFI~MOOIOVTOWDOM0OU®mMI—3vNOMEVoOTNONVOMWONeOVI=NrN V3SLMOITDANNWVMWWoVIAMIVAMONGO

SEQ 275

Zg-DE(- 2 13:5¢4

»
4

IOMN OMAN—

F ~F
MMMM
UMM

xz ©ca d

VANOVO
YO NO

agan w

M$WORD

MMM WDWWHAO N

010963~o7‘M.O9”

METSTL

O0MNeN—

T
VeI
b
W . eLL ok TM& QeD
OFo

067542
ERRORS DETECTED:

000

SEQ 276

PAGE 279
MACY1Y 30A(105
(1052)
14:01
23- DEC-82
ROSS REFEREN CE TABLE == MACRO NAMES
CRCSS

CZKMSAD KMS11- D/BE gCLY
CZKMSA. P11

OMwn OwM
u

v o > o~ »

w ~ooi

w a0 v w £

CZKMSA.P1T

(2KMSA .BIN,CZKMSA,

RUN-TIME: 30 39 &

RUN=TIME RATIO:

CORE USED:

DCLT

23-DEC-B2 13:54

CZkMSAD kMS11-BD/BE

23k

MACY1Y 30A(1052)

23-DEC-82

14:01

CRCSS REFERENCE HgLE --0HACR06£A'24€(S)

SEQ 277