Digital PDFs

AH-S978A-MC

May 1983

279 pages

Original

11MB

view download

OCR Version

9.9MB

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_bw.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
MACY11
CZKMSA.PT1
23-DEC-82 13:54

30A(1052)

23-DEC-82

14:01

SEQ 1

PAGE 2

2
3

<TITLE

(ZKMSAO kMS11-BD/BE DCLT

REM ¢

IDENTIFICATION
PRODUCT

CODE:

AC=S977A-M(

PRODUCT NAME:

(ZKMSAQ KMS-BD DCLT

PRODUCT

01-APR-83

DATE:

MAINTAINER:

MERRIMACK DIAGNOSTIC

AUTHOR:

GLORJA MEREDITH

ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
T0_
(HANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGJTAL

EQUIPMENT CORPORATION,

RESPONSIBILITY

NO RESPONSIBILITY

IS ASSUMED

SCFTWARE ON EQUIPMENT

AFFILIATED COMPANIES.

THE

FOLLOWING ARE

DIGITAL
DEC

(C)

DIGITAL EQUIPMENT

FOR ANY ERRORS

THAT

CORPORATION ASSUMES NO

THAT MAY APPEAR

FOR

[S NOT

THE

USE

SUPPLIED

IN THIS DOCUMENT,

RELIABILITY

DIGITAL

1983 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF
PDP

DECUS

DIGITAL

EQUIPMENT
UNIBUS

DECTAPE

CORPORATION:

MASSBUS

¢
(ZxMSAQ KMS11-BD/BE D( L{S 54
23-DEC-82
CIKMSA.P11

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

b
MACY1Y 30A(1052)

CZxMSAQ KMS11-BD/BE DCLT

23-DEC-B2 13:5¢4

23-DEC-82

14:01

PAGE 4

PROGRAM DOCUMENT

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

- KkMS11-8D/BE OPTION DESCRIPTION
= KBC11 MICROPROCESSOR USERS MANUAL
= KM(11-B PROGRAMMERS MANUAL

YM-C174(-00
Ex-kMC11-0°
YM-P09 3¢-00

OPTION DESCRIPTION
DM11-BA MODEM CONTROL MULTIPLEXFR

YM-C09 3¢-00
Ym-C13 8C-00

KMC11-8 UNIBUS M]CROPROCESSOR

DMS11-D/DA SYNCHRONOUS LINE UNIT

OPTION DESCRIPTION

YN-(18 6C-00

- XXDPe¢ USER'S MANUAL (CHQUS?.SEQ WHERE ? IS T HE
THE MANUAL = *°C"* IS THE CURRENT REV.).

RE V.

LEVEL Of

MACY11 30A(1052)

L
(ZKMSAQO KMS11-BD/BE DCLY
C(ZKMSA.P11
23-DEC- 82 13:54
1 .4

23-DEC-82

14:01

PAGE 7

DJAGNOSTIC HIERARCHY PREREQUISITES

THE GOAL OF

THE DATA COMM. LINK TEST PROGRAM IS TO TEST THE

COMMUNICATION LINK AND THEREFORE ASSUMES THAT THE (PU'S,
(LOCKS, 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.

1F 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 (OULD SE RUN IF THE KMS11-BD/BE
LOOKS BAD:

CZKMB = KM(C11 TEST = PART 1
CZKMC = KMC11 TEST = PART 2
CZKMD - DMS11-DA STATIC TEST
C(IKME = DMS11-DA DYNAMIC TEST
CIKMF = DMS=11- DMI1
INTERACTION TEST

CZKMG - DM11-BA MODEM CONTROL
TEST

1.5

(MJCROPROCESSOR)
(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)

ASSUMPIJONS - RESTRICTIONS

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

PREREQUISITE DJAGNOSTICS.

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.

CZKMSAQ KMS11-BD/ BE D¢ L}S 5
23-D tC -82

CIKMSA. P11

2.0

23-DEC-82

MACY11 30A(1052)

14:01

SEQ 7

PAGE 8

OPERATING INSTRUCT]ONS
wwn

THIS SECTION CONTAINS A BRIEF DES (RIPTION OF THE RUNTIME SERVICE
FOR VETAILED INFORMATION, REFER T O THE XXDPe USER'S MANUAL ((HQU )'

2.1

CCMMANDS

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

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 [MPLEMENTED
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 C(HARA(CTERS.
YOU MAY, FOR EXAMPLE, TYPE ''STA'" INSTEAD OF ''START',

11
(ZKMSAQ KMS11-BD/BE D¢ L |
. P11
23-DE(- 82 13:5¢4
CZKMSA

2.2

MACY11 30A(1052)

23-DEC-B2

PAGE 9

14:01

SWITCHES

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

IN THE DESCRIPTIONS BELUW, A DECIMAL NUMBER i$S DESIGNATED B8Y ''DDDDDTM.
SWITCH

EFFECT

JTESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN

/PASS:DDDDD
/FLAGS:FLGS

EXECUTE DDDDD PASSES (DDDDD = 1 Y0 64000)
SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED

/EOP:DDDDD

JUNITS:LIST

THE KMS11-BD/BE DCLT PROGRAM
THE LIST.
CONTAINS ONLY ONE TEST.

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

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIE M
IN THE LIST.

THE KMS11-BD/BE DCLT PRO,RA

WILL TEST ONLY ONE UNIT

EXAMPLE OF SWIT({H 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 RECOGNJZED BY THE FIRST THREE CHARACIERS YOU MAY,
FOR EXAMPLE, TYPE '"/TES:1-5"" INSTEAD OF '‘/TESTS:1-5"",

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

STARY
RESTART
CONTINUE
PROCEED

DROP
ADD

DISPLAY
FLAGS

JFLAGS
Ex1v

TESTS

PASS

FLAGS

X
3

X
X
X

X
X
X
X

EOP

UNITS

X
X

SEQ 8

CZKMSAQ KflS11§§DIBE D ¢ L{S
DEC-8 2
CZKMSA. P11

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 2FLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZF_AGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS:; THEY REMAIN SET OR

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED 10

LOE

[ERe
IBE*

IXE*

RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS (THOSE

PRI
PNT

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

UAM

UNATTENDED MODE (NO MANUAL INTERVENTION)

ISR

A LINK TQ TEST,
INTERVENTION TO SELECT
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPOR?

BOE

IDR

ADR
LoT

EVL

"BELL'' ON ERROR

THE KMS11-BD/BE DCLT REOUIRES MANUAL

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,
T0 CAUSE THE_PROGRAM 10 LOOP ON ERROR, INHIBIT ERROR REPQORTS
AND TYPE A "BELL'® ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE
: JER:BO0E

SEQ 9

(ZKMSAD KHS11-BD/BE DCLT

CZKMSA.P11

23-DEC-82 13:54
2.4

MACY11

30A(1052)

23-DEC-82

14:01

PAGE

SEQ 10

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC

IS STARTE D . TH E RUNTIME SERVICES WILL PROMFT
INFORM ATION BY TYPING "'CHANGE HW (L) 2"
YOU MUST ANSWER "'Y'' AFTER
A START COMMAND UNLESS THE HARDWARE
THE

USER FOR HARDWARE

INFORMATJON_HAS BEEN
PRELOADED'' USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDPs USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A *'Y*", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
THE

KMS11=-BD/BD

B?ELUgéT.

COMM,

LINK

(D)

1<(R>

TEST

FGR THE KMS11-BD/BE

# UNITS

PROGRAM WILL NOT

THE HARDWARE

USE

THAN

INFORMATION REQUESTED

UNIT O
FULL

DUPLEX ONLY

DEVICE CSR ADDRESS : (0)
164100
?
INTERRUPT VECTOR ADDRESS: (0) 400 ?
INTERRUPT PRIORITY: (0) 5 ?
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

THIS

IS THE

PROMPT FOR A DCLT> COMMAND.

IS DCLT., TYPE *'H'' OR ''?*'' FOR DETAILS
MODE=ACTIVE/PASS=00001
/NOSTATUS/
CHE CK/NOE CHO/NOMODEM
DCLT> (A) ?

CZKMSAQ KxMS11-BD/BE
DCLT
CZKMSA,P1Y
23-DEC-82 13:5¢4

2.5
THE

MACY11

30A(1052)

23-DEC-82

14:01

SEQ 11

PAGE 12

DATA COMM. LINK TEST COMMANDS
vCLT

sg%:gggb.

COMMAND LEVEL

TYPE

IS ENTERED AFTER THE

HARDWARE QUESTIONS ARE

IN DCLT COMMANDS WHEN THE DCLT> (A)

? PROMPT IS

COMMANDS CAN BE TYPED WITH ONLY ENOUGH CHARACTERS TO UNIQUELY SPECIFY

THE COMMAND LIN. IS INTERPRETE
QUALIFIER FARTHEREST TO THE RI

INTERPRETED LAST. (1.E. If /CH
LINE, NOCHECK WILL APPLY TO TH

mMoOo

A COMMAND.

T 0 RIGHT,
THEREFORE THE
RE CEDENCE SINCE IT IS
CHECK APPEAR ON THE SAME

PARAMETERS WORD.)

SECTION 6.0 DESCRIBES THE DIFFERENT MODES UF
T4E

TYPES OF

MESSAGES AVAILABLE.

TEST OPERATION AND

2.5.1 MESSAGE COMMANDS
COMMAND
L

DCLT>

(A)

DESCRIPTION
3

? CLEAR EXPECTLISY

21T

FILLS THE EXPECTLIST WITH

ZEROS AND THEN PUTS ONE
ITEP MESSAGE ON THE LIST.
DCLT>

(A)

? CLEAR TRANSMITLIST

FILLS THE TRANSMITLIST WITH
IEROS AND THEN PUTS ONE
ITEP MESSAGE ON THE LIST.

CZKMSAO kMS11-BD/BE (¢ LY
CZKMSA. P11
23-DE
DEC~- 82 13:%¢

MACY1Y

30A(1052)

23-DEC-82

DCLTM>

(A)

2?2 SET

DCLT>

(A)

? SET EXPECTMSG=TYPE/QUAL

TO BE PUT ON

TRANSMITMSG=TYPE/QUAL

=TYPE

]S ONE

SEQ 12

PAGE 13

T0 BE

PUT ON

OF:

POV O—NO
Prrey—ad» M
| Vo= M
TV~ OWV
> —
m

WHERE:

14:01

1,0-9,SPACES OR T ABS IN QUOTES''

AND

THE

OPTIONAL

/QUAL

1S ONE OR BOTM OF:

/S1IE=NNN

MAKE THE MESSAGE ''NNN'' BYTES
LING. (DEFAULT SIZE IS
?S;ERHINED BY

/COPY=NN

NN AND NNN ARE

NOTE-

DCLT>

COPY THIS MESSAGE INTO THE
BUFFER ‘NN'' TIMES (DEFAULT
S0-= PUY THE MESSAGE IN

ON Y ONCE)
DECIMAL NUMBERS.

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

DEFINED,
MESSAGE.

(A)

DCLT> (A)

DCLT>

THE MESSAGE

(A)

2 SET EXPECT=TRANSMIT

COPY THE TRANSMIT LIST

? SHOW EXPECTLIST

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

? SHOW TRANSMITLIST

PRINT THE SIZE AND TYPE OF THE
MESSAGES IN THE TRANSMIT L]ST

THE

EXPECT LIST.

INTO

CZKMSAQ KMS11-BD/BE DCLY

23-DEC-82 13:54

MACY1? 30A(1052)

23-DEC-82

PAGE

14:01

2.5.2 LINE SELECTION CCMMANDS

TESTED IN RESPONSE TO A DCLT> RU

ROGRAM TESTS A DD(MP

COMMUN]CATIONS LINK ON ANY OF TH
ONLY ONE LINK CAN
kKMS11-BD/BE,
ESTABLISH A SPECIF
MyST
OPERATOR

UPPORTED BY A
THE TEST
TIME.
BEFORE A LINK CAN BE

THE KkMS11-BD/BE DCLT COMMUNICAT!

Z—DOmMmo

CIKMSA,. P11

COMMAND

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

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

DCLT> (A) ? LINE KILL

DELETE THE CURRENT LINE NUMBER

? LINE SHOW

PRINT THE CURRENT LINE NUMBER

DCLT> (A)

2.5.3 OPERATOR ASSISTANCE COMMANDS
HELP

PRINT HELP INFORMAT]ON

PRINT HELP INFORMATION

DUMP

PRINT THE CONTENTS OF MgMORY

SSSSSS~EEEEEE/B

LOCATICNS SSSSSS TO EEEEEE.
1F -EEEEEE IS NOT SPECIFIED

WHERE S$S5S55S5S

THEN PRINT THE WORD AT

AND
EEEEEE
ARE OCTAL ADDRESSES

AND /B 1S OPTIONAL.

LOCATION SSSSSS.

THE DEFAULT IS PRINT WORDS.

PRINT BYTES

|Ff

/B.

NOTE: THE DUMP COMMAND IS USEFUL FOR EXAMINING MESSAGE DATA,
STARTING ADDRESSES (AN BE FOUND IN THE EVENT LOG.

SEQ 13

D(C

LY
(ZxMSAO xMs11-BD/BE
13:5¢4
-82
23-DE(
CIKMSA.P1Y

MACY1Y 30A(1052)

23-DEC-82

14:01

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 1S NO DEFAULT MODE. MODE=MTYPE MUST BE TYPED
IN EACH RUN (OMMAND.

WHERE

=MTYPE 1S ANY ONE OF THE FOLLOWING:

=ACTIVE

(FORCES /NOECHO ,NO LOOPING)

=RECEIVE

(FORCES /NOECHO ,NO LOOPING)

=PASSIVE

=LISTEN

=TRANSM]T
=TALK

(FORCES NO LOOPING)

(FORCES /NOECHO ,NO LOOPING, /NOCHECK)

(FORCES /NOECHO ,NO LOOPING, /NOCHECK)
(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 IS ANY COMBINATION OF THE FOLLOWING:

/CHECK/NOCHECK

ENABLES/DISABLES CHECKING OF RECEIVED
DATA AGAINST THE EXPECTED DATA

NOTE: IF BOTH NODES IN A DCLT TEST RUN IN ACTIVE MODE
AND /NOCHECK IS USED THEN END-CF=-PASS IS DEF INED AS
OCCURING WHEN THE NUMBER OF MESSAGES RECEIVED EQUALS
THE NUMBER OF MESSAGES IN THE TRANSMIT LIST. WITHOUT
DATA CHECKING, THERE IS NO WAY FOR DCLT TO KNOW HOW
MANY MESSAGES ARE EXPECTED TO BE RECEIVED.

/STATUS/NOSTATUS

ENABLES/DISABLES PRINTING PROGRAM

/€ CHO/NOE (HO

ENABLES/DISABLES RETRANSMISSION OFf

STATUS MESSAGES.

THE DATA RECEIVED IN PASSIVE MODE.

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

Q0 14

CZKMSAQ KxMS11-BD/BE DCLT

CZKMSA.P1Y

23-DEC-B2 13:5¢

MACY1? 30A(1052)

23-DEC-B2

14:01

PAGE 16

ENABLES LOOPBACK TEST IN ACTIVE MODE

/LOOP=LTYPE

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 LOOPBA(K

=CABLE

PROVIDES A USEFUL RECORD FOR A TEST
THAT IS RUN WITH A LOOPBACK CONNECTOR
INSTALLED, THERE IS NO EFFECT ON THE
HARDWARE OR IN THE DCLT PROGRAM,

FOR THE ESABLISHED LINE.

THE FOLLOWING LOOP TYPES ARE NOT SUPPORTED BY THE
KMS11-BD/BE. THEY HAVE NO EFFECT IN THIS DCLT
PROGRAM.

=LOCALMODEM

{NOT SUPPORTED BY KMS11-BD/BE)

=REMOTEMODEM

(NOT SUPPORTED BY KMS11-BD/BE)

NOTE: THE KMS11-BD/BE DOES NOT REPORT MODEM STATUS.
SPECIFIES EXECUTION OF NN ITERATIONS
0OF THE TEST BEFORE END=OF =PASS.
DEFAULT IS 1. IF NN = =1 THE TEST WILL
BE REPEATED UNTIL CNTRL-C IS TYPED.

/PASS=NN

NOTE:

SEE SECTION 6.1 FOR A DESCRIPTION

THE RUN MODES.

SEQ 15

CZkMSAQ xMS11-BD/BE DCLT

CZKMSA. P11

23-DEC-82 13:5¢4

MACY1? 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,
DCLY> (A) ? EXIT

2.5.5

PRINT COMMAND

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

RPT> 1S THE PROMPT FOR REPORT COMMANDS

(ommay®

DESCRIPIION

RPT> HELP

PRINTS HELP INFORMATION FOR RPT>

RPT> ?

PRINTS HELP INFORMATION FOR RPT>

INE
RP1> STATUSONL

PRINTS STATUS INFORMATION FOR THE

RPT> LOG

DUMPS THE EVENT LOG

RPT> EX]T

RETURNS TO THE COMMAND PROMPT WHERE

ESTABLISHED LINE

THE PRINT (OMMAND WAS TYPED.
D>
DCLT> OR

SEQ 16

23-DEC-B2 13:54

CZKMSAQ KMS11-BD/BE D(LT

CIKMSA.P11

2.5.6

MACY1Y 30A(1052)

23-DEC-82
23-DEC-B2

14:01

16:01

PAGE

PAGE 18
1

DEFAULTS

1F NO DCLT> SET COMMANDS HAVE BEEN USED THEN DEFAULTS

EQIVALENT TO THE FOLLOWING COMMANDS APPLY.

DCLT> (A) 2 SET TRANSMITMSG=]TEP/SIZE=58/70PY=0
DCLT> (A) ? SET EXPECTMSG=ITEP/S42E=58/COPY=0
THE DEFAULT COPY AND SIZE FOR EACH MESSAGE

TYPE

1S:

ONES = /SI2E=64/COPY=0
ZEROES - /SIZE=64/C0PY=0
OALT = /SI2E=64/C0PY=0
1ALY - /SI12E=64/C0PY=0

CCITT
= /SI2E=64/COPY=0

ALPHA
- /SIZE=65/C0PY=0

1TEP - /S12E=58/(0PY=

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 QUALIFIERS FOR THE DCLT> RUN (OMMAND ARE:
HENCE:

/NOSTATUS/CHE
(K/NOE CHC/NOMODEM/PASS=1

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

<(R>
*‘RUBOUT"’

ALWAYS RETURNS YOU T0O °“DR>'* (THE SUPERVISOR)
1S SEEN AS A COMMAND TERMINATOR
DELETE LAST CHAR. TYPED IN COMMAND STRING

SEQ 17

CZKMSAD kMS11-8BD/BE DC L{S'Sk
23-DEC-82
CZKMSA P

MACY1Y 30A(1052)

23-DEC-82

2.6 QUICK START=-UP PROCEDURE

14:01

PAGE 19

(XXDP+)

T0 START=UP THIS PROGRAM:
1.

B0OOT

XXDP+

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

3. TYPE ''R (ZKMSA'', WHERE NAME [S THE NAME OF THE BIN OR BIC
FILE

FOR THIS PROGRAM

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 USI N g ONLY THE
DEFAULTS FOR FLAGS., THESE DEFAULTS ARE DESCRI BED 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) 2 L E=N<(R>
DCLT> (A) ? R M=A<(R>

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

SEQ 18

(ZKkMSAQ KHS11°BD/BE DC L}S'Sk
23-DeC-82
CZKMSA. P

MACY1? 30A(1052)

23-DEC-82

14:01

PAGE 20

3.0 ERROR INFORMATION

3.1 TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE 155U ED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE "'IER'’ FLAG IS SEV (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS Of

NAME

TYPE

NUMBER

ERROR MESSAGE

THE FORM:

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

LWHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)

NUMBER = ERROR NUMBER

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMAT]ON 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 ERRCR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.
3.2 SPECIFIC ERROR MESSAGES

3.2.1 COMMAND LINE INTERPRETER ERRORS:

ERROR MESSAGE:

MEANING

?2ILL (MD-BAD SYNTX?

A COMMAND WITH AN JLLEGAL CHAR WAS
TYPED =~ RETYPE THE COMMAND. THE

VALID COMMANDS AND THEIR SYNTAX ARE
SHOWN IN SECTION 2.5.

PINCMPLTE (MD?

AOSEOUlRD PART OF A COMMAND WAS LEFT

?NUM TO0 BIG?

THE VALUE OF A NUMERIC STRING | N THE

78AD RADIX?

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

COMMAND L INE WAS LARGER THAN 6 5535
OR 177777 OCTAL. ( > 16 BITS).

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

SEQ

(ZxMSAQO xMS11-BD/BE D(L

CZxKMSA.P1Y

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-82

2'LOOP'* VALID ONLY IN ACTIVE?

14:01

PAGE 21

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

RUN COMMAND BUT THE MODE WAS NOT SET
TO ACTIVE. MAINTENANCE LOOP IS ONLY
POSSIBLE iF THE MODE OF OPERATION IS
ACTIVE.

ECHO"" VALID ONLY IN PASSIVE?

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

RUN COMMAND BUT THE MODE WAS NOT SET
T0 PASSIVE. ECHOING OF RECEIVED DATA
IS ONLY POSSIBLE IF THE MODE OF
OPERATION IS PASSIVE.

71LL (MR- "'A=2,0-9,SP,TABR'* ONLY? A CHARACTER TYPED WITHIN QUOTES WHEN
A

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

COMMAND WITH ONLY THESE CHARACTERS

BETWEEN QUOTES.

2*'SI2E=0"" NOT VALID?

A MESSAGE ZERO BYTES LONG CAN NOT BE

A
UILT. RETYPE THE COMMAND WITH
IF NO ''/SIZE="" IS TYPED
“/SIZE=NNN'',
A DEFAULT SIZE WILL BE USED.

7TRANSMIT AND EXPECT LIST MUST BE IDENTICAL FOR LOOP?

1F RUN COMMAND WITH *‘/LOOP/(CH'' IS TYFED
TRANSMIT AND EXPECT LISTS MUST BE

EQUAL. USE ''SE E=T'' COMMAND.

7A LINE MUST BE ESTABLISHED TO EXECUTE?
A DCLT> RUN COMMAND WAS TYPED WITH NO
LlNE NUMBER ESTABLISHED.
A DCLY> LINE ESTABLISH:=N

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

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

A DCLY> LINE ESTABLISH=XXX WAS YVPED
lN WITH XXX NOT IN THE RANGE O..

DOWN LINE LOAD NOT AVAILABLE fOR THE XMS11-BD/BE

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

SEQ 20

MACY1? 30A(1052) 23-DEC-82 14:01 PAGE 22
DCLT
CIxMSAD xMS11-8BD/BE
23-DEC-82 13:54

CIKMSA . P1Y

3.2.2

DCLY ERROR MESSAGES:

(LOCK NOT FOUND

LINE LOAD.

THIS MEANS THAT NO CLOCK WAS FOUND

ON THE SYSTEM THE DIAGNOSTIC WILL
STILL RUN BUT NONE OF THE TIME OUT
CONDITIONS WiLL OCCUR.

BAD (LOCK = PROGRAM WILL HANG ON_"‘TIMEOQUT''!!

THIS MEANS THAT EITHER NO CLOCK WAS
ON THE SYSTEM OR THE ONE THAT WAS FOUND
D%?CNOT INTERRUPT WHEN ASKED TO DO A
LN

Kl..

THE PROGRAM WILL STILL RUN, BUT ANY

OF THE PROGRAM THAT TIMES THE DEVICE
WILL HANG IF THE DEVICE TIMES OUT.
ALSO, THE EVENT LOG WILL CONTAIN A

ZERO EVENT TIME FOR ALL EVENTS LOGGED.

MAX. (HAR, MSG COUNT EXCEEDED - MSG. NOT BUILT

THIS MEANS THAT THE TRANSMIT OR EXPECT

BUFFER 1S FULL. NO MORE MESSAGES CAN BE
ADDED TO THAT BUFFER.

BUFFER FULL =~ MSG. NOT BUILT !!

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

EXPECT BUFFER CAUSED THE TOTAL NUMBER
OF MESSAGES TO BE EXCEEDED. NO MORE

MESSAGES CAN BE ADDED TO THAT BUFFER.

THE LIMIT 1S DETERMINED BY THE SIZE OF
THE MESSAGE POINTER TABLE. THE LIMIT
IS CURRENTLY 15.

(HAR, 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

NO L INE NUMBER [S ESTABLISHED

FOR THAT BUFFER TO EXCEED THE LIMIT.
THE LIMIT IS 512. BYTES.
THE MESSAGE WAS TRUNCATED TO COMPLETELY
FILL THE BUFFER, NO MORE MESSAGES CAN
BE ADDED TO THAT BUFFERK.

RESPONSE 10 DCLT-» LINE SHOW COMMAND
WHEN NO LINE NUMBER [S ESTABLISHED.

SEQ

MACY11 30A(1052)

(ZKMSAQ kMS11-BD/BE DC L1

CZKMSA, P11

23-DEC-82 13:54
3.2.3

23-DEC-82

14:01

PAGE 23

DEVICE ERROR MESSAGES:

DATA COMPAR]SON DATA ERROR
EXPTD=YYY
BYTE # IN MSG=xXX

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 IS REPORTED
BY ANOTHER ERROR.

PRINTING THE EVENT LOG AND USING THE

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

DATA COMPARISON DATA ERROR

IN MSG = NNN

TOTAL MISMATCHES

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

DATA (OMPARISON LENGTH ERROR

(OMPARE COUNT= XXX

RECEIVE COUNT= 712
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 ¢
teeeneee

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

kMS FAILED 10 START

SELO = XXXXXX

SEL2 = XXXXXX

:THIS ERROR INDICATES THAT THE

:DEVICE DID NOT CLEAR BSELZ

:WITHIN 100C (OCTAL) CLOCK TICKS
sAFTER THE RUN BIT WAS SET,
:MAY INDICATE A MICROPROCESSOR
;FAILURE.

SEQ 22

K
(IXKMSAOQ xMS11-BD/BE DC LT
CZKMSA. P11
23-DEC -82 13:54

MACY1?

30A(1052)

23-DEC-82

14:01

SEQ 23

PAGE 264

NOTE NO CONNE

KMS

DID NOT

RESPOND

SELO = XXXXXX

(SR

COMMAND

SELZ = XXXXXX

WAITING TO COMPLETE

DEVICE

SELO = XXXXXX

EN ESTABLISHED

THIS

ERROR IND 1€ ATES THAT THE
;KMS FAILED TO RE TURN AN EXPECTED
JRESPONSE TO A (o EMAND ISSUED
:BY THE PDP=11 HOST

:THIS

INITIALIZATION

SEL2 = XXXXXX

,T 1S

_INDICATES

THAT

THE

OT RETURN AN [NITIALIZATION
RESPONSE AFTER THE

SUED
A COMMAND TO
3 THE DEVICE. THIS

H
WAITING FOR START DDCMP REQUEST

SELO = XXXXXX

SELZ = XXXXXX

NOTE:

ATE
A MICROPROCESSOR

FAILU

NO CONN
IF THIS

ON HAS BEEN ESTABLISHED
OR OCCURS

TO COMPLETE

;THIS ERROR INDICATES THAT THE

JKMS HAS NOT RETURNED A RESPONSE

;CONFIRMING THAT THE SYSTEM AT

sTHE OTHER END OF THE LINK HAS
JHAS STARTED (OR RESTARTED)

;ODCMP AFTER THE PDP11
;A REQUEST

TO THE

]SSUED

KMS TO ENTER

;DODCMP START STATE,

JNOTE: IT IS POSSIBLE THAT NO CONNECTION
:
HAS BEEN ESTABLISHED IF THM]S
:
ERROR OCCURS
TIME

OUT WAITING FOR

SELO
= XXXXXX

TX OR RX

TO COMPLETE

SELZ
= XXXXXX

:THIS ERROR IS THE MOST POPULAR

17 INDICATES THAT THE 60 SEC
sTIMER EXPIRED WHEN THE DEV'CE

:WAS EXPECTING TO GET A RX OR
JTRANSMIT COMPLETE. AFTER THIS

JERROR QCCURS THE PROGRAM WIiLL
SRESET

KMS

DID NOT

RESPOND

SELO = XXXXXX

TO RQ]

SELZ = XXXXXX

THE

JTHIS ERROR

TIMER AND LOOP AGAIN
INDICATES

THAT

SDEVICE DID NOT RETURN RDYI

THE

.RESPONSE T0 AN RQ] BEFORE THE
sTIMER EXPIRED. THE TIMER iS

: 2000 TICKS.

(IxMSAD ¥rMS11-BD/BE DCLTY
CZKMSA. P11
23-DE (-82 13:54

MACY1?

30A(1052)

23-DEC-82

SEQ 24

14:

ILLEGAL TRANSMIT COMPLETE
LINE NO
BDL NO
XXX

XXX

ILLEGAL ReCEIVE COMPLETE
LINE NO
BDL NO
XXX

ERROR INDICATES THAT

DDCMP RESTART RECEIVED
LINE NO = XXX

XXX

TEMP DATA = XXX

ACKS RCVD = XXX
NAKS SENT = XXX

STATUS

= XXX

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

¢NOTE:

:
:
TX

FLAGS = XXX

THE

3 RROR INDICATES THAT THE
A S TRANSMITTED A MESSAGE
S WAITING FOR A RESPONSE

TO TX

LAST TX MSG = XXX

MSGS RCVD = XXX
NAKS RCVD = XXX

N O RESPONSE

KMS TIMEOUT.

RESTART MESSAGE WAS

VED WHILE THE KMS WAS
E RUN STATE.

KMS TIMEgUT WAITING FOR RESPONSE

STATU

Mmoo

XXX

T0 STARI MESSAGE
FLAGS =

LAST TX HSG = XXX
MSGS RCVD = XXX
NAKS RCVD = XXX

TWO MESSAGES ABOVE

;THIS ERROR INDICATES THAT

:THE KMS HAS TRANSMITTED A

:ODCMP START MESSAGE AND IS

;WAITING FOR A RESPONSE
INDICATE THAT THE KMS

IS UNABLE TO CONTINUE TRANSMISSION ON A LINE.
17 1S POSSIBLE THAT THE LINE IS NOT CONNECTED TO THE MODEM.

THRSHOLD REACHED

LINE NO
XXX

NAK REASON

TEXT STATING REASON

TX REJECTED BEFORE

LINE NO
XXX

KMS TIMEOUT.

SELD = XXXXXX

BDL NO

:THIS ERROR INDICATES THAT THE
:KMS HAS RECEIVED EIGHT SUCCUESSIVE
¢NAKS FROM THE OTHER END OF THE LINK

:THIS ERROR INDICATES THAT THE
+KMS HAS NOT COMPLETED A REQUESTED

COMPLETION

:MESSAGE TRANSMISSION AND W!LL
sNOT ATTEMPT TO RETRANSMIT

XXX

WAITING FOR CSR

SEL2 = XXXXXX

INPUT

:THIS ERROR OCCURS AFTER THE
sKMS HAS RESPONDED TO AN RQI

s 1SSUED BY THE HOST PDP=-11 WITH
cA RDY] AND IS
WAITING FOR THE

:PDP=11 T0 CLEAR RDYI. THE PDP-11
CLEARS ROYI TO INDICATE THAT
;A
COMMAND IS SPECIFIED IN THE

Ecsn REGISTERS.

KMS

TIMEQUT.

SELO = XXXXXX

(SR OUTPUT NOT

ACCEPTED

SELZ = XXXXXX

:THIS ERROR OCCURS AFTER THE
¢KMS HAS SET RDYO TO INDICATE
s THAT THE CSR REGISTERS CONTAIN
sAN OUTPUT CONTROL MESSAGE FOR

;FOR THE HOST PDP=-11.

CIKMSAQO KMS11-BD/BE
DCLT
CIKMSA.P1N
23-DEC-82 13:5¢4

MACY11

30A(1052)

23-DEC-B2

14:01

SEQ 25

PAGE 26

4.0 PERFORMANCE AND PROGRESS REPORTS

DCLY USES IT'S OWN METHOD FOR DETERMINING AN "END OF PASS''

WHICH S CALLED A *'DCLT END OF PASS''.
THE NUMBER OF ''DCLT PASSES'’
TO BE RUN IS SPECIFIED BY THE °'/PASS=XXX'' SWITCH ON THE DCLT
RUN COMMAND.
THE TOTAL NUMBER OF ''DCLT ERRORS'' ARE LOGGED IN

IN THE EVENT LOG WHEN EACH ‘DCLT PASS' 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 TIME IS TYPED OUT AS MMM:SS:TT (LIKE 2564: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

THE

LAST

RELATIVE SINCE WHILE THE PROCESSOR IS RUNNING AT PRIORITY 7
THE

CLOCK

WHILE

CAN'T

INTERRUPT

TO KEEP TIME.

THIS

IS THE

CASE

THE PROGRAM IS FETCHING DCLT COMMANDS FROM THE OPERATOR.

1T SHOULD ALSO BE NOTED THAT THERE ARE ONLY 8 BITS AVAILABLE TO STORE

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

A START OR RESTART COMMAND AT THE "'DR>'' LEVEL

INITIALIZES THE EVENT

LOG.
THEREFORE 1T IS WISE TO DO
A ‘'PRINT'' “°LOG'* AT THE °''DR>'' LEVEL
BEFORE GIVING A "'START'' OR '‘RESTART'',
THE

TYPES OF

EVENTS KEPT

IN THE

TRANSMIT MESSAGE QUEUED:

EVENT TIME,ADDRESS OF

EVENT

LOG ARE:

TRIBUTARY TO/FROM

ADDRESS OF 1ST BYTE OF MESSAGE,
TOTAL NO. OF BYTES MODEM STATUS AT THAT TIME.
TRANSMIT MESSAGE COMPLET 3
EVENT TIME,ADDR E S S OF TRIBUTARY TO/FROM
ADDRESS OF 1ST 8 Y T E OF MESSAGE,
TOTAL NO. OF BYTES,
T3
MODEM STATUS AT THAT TIME.

RECEIVE

SPACE

QUEUED:

EVENT TIME,ADDRE S S OF TRIBUTARY TO/FROM
ADDRESS OF 1ST B Y ;E OF MESSAGE,
TOTAL NO. OF BYT E
MODEM STATUS AT THAT TIME.

RECEIVE MESSAGE

COMPLETE D:

EVENT TIME,ADDRESS S S OF
ADDRESS OF

TRIBUTARY TO/fROM

Y1
1ST BYTE
OF MESSAGE,
TOTAL NO. OF BYT 3 S, MODEM STATUS AT
DATA COMPAR]SON STARTED:

THAT

TIME.

(ZxMSAQ KMS11-BD/BE DCLT
23- DEC-B2 13:56
CIKMSA.P1Y

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 27

EVENT TIME,ADDRESS OF TRIBUTARY T0/ FROM
ADDRESS OF "1ST BYTE OF RECEIVED MSG

TAL
TOTAL NO. OF BYTES IN RCV. MSG., TOTA
IN EXPECT MSG.
DATA COMPARISON DATA ERROR:

NO. OF BYTES

EVENT TIME,ADDRrSS OF TRIBUTARY TO/FROM

ADDRESS OF '1ST BYTE OF RECEIVED MSG.,
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF
COMPARISON FAILURES
DATA COMPARISON LENGTH ERROR:
EVENT TIME,ADDRESS OF TRIBUTARY TO/FROM
ADDRESS OF "1ST BYTE OF RECEIVED MSG.

TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF BYTES
IN_EXPECT MSG.

DEVICE INIT AND SETUP:

EVENT TIME, MODE OF OPERATION, TYPE OF MAINTENANCE

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

DEVICE ERROR:

EVENT TIME, DEVICE ERROR MESSAGE, CONTENTS OF TwWO

REGI*TERS RELATING TO THE ERROK.
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

8
(ZXKMSAQ KMS11-BD/BE DC L‘S'Sk
23-DEC -82
CIKMSA. PN

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 28

4.2 OPERATOR STATUS MESSAGES

THE "*/STATUS, /NOSTATUS'' QULAIFIERS FOR THE DCLT "'RUN'' COMMAND
ENABLES/DISABLES THE PRINTING OF PROGRAM STATUS MESSAGES TO THE
OPERATOR, THESE MESSAGES ARE INTENDED TO TELL THE OPERATOR WHAT

THE DCLT PROGRAM 1S CURRENTLY DOING. BELOW ARE THE MESSAGES THAT

MIGHT BE PRINTED AWD THEIR MEANING:
MESSAGE

MEANING

TXQ
TXC
RXQ

DEVICE 1S ABOUT START TRANSMITTING A MESSAGE
TRANSMISSION OF MESSAGE COMPLETED
DEVICE HAS QUEUED SPACE TO RECEIVE/ COMPLETED RECEIVE

INI
cMp
(ML
CMD

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

ERR

EopP

DEVICE ERROR HAS OCCURRED

END OF PASS

SEQ 27

¢
CZxkMSAQ xMS11-BD/BE oLy
CZxMSA,.PN
23-DE(--82 13:5¢4

23-DEC=-82

MACY1Y 30A(1052)

4.3 PRINTING LINE

14:01

PAGE 29

STATUS

THE KMS11-BD/BE DCLT PROGRAM READS THE LINE STATUS MAINTAINED
IN THE DEVICE WHEN:
O
NI —t—
XMP NV

C L > RUN COMMAND COMPLETES EXECUTION
C LT>
EX] T COMMAND IS PERFORMED

R TL/C

EX 1T

FROM THE DCLT> COMMAND LEVEL OCCURS

T HAT HAS BEEN SUBMITTED FOR TRANSMISSION
R EJECTED Egy THE DEVICE BEFORE THE TRANSMISSION
COMPLET
£ SSAGE

PRINTS THE LINE
0
THE RPT> STATUSONLINE NE COMMAND
ESTABLISHED LINE. IF THE DEVICE MICROPROC ESSO
WHEN A RPT> STATUSONLINE COMMAND 1S EXECU TED
READ AND PRINTED. IF THE DEVICE MICROPRGC ESS
THE LAST RECORDED LINE STATUS IS PRINTED.
A LINE STATUS REPORT
LINE SYATUS BYTE:

INCLUDES:

O T T LI

oWV

2 T

0 DDCMP PROTOCOL ENABLED
}
1

TRANSMIT ACTIVE
RECEIVE ACTIVE

START PENDING

REP PENDING
0 FULL DUPLEX
1

HALF DUPLEX ++NOT SUPPORTED IN KMS11-BD/BE
TRANSMIT SELECTED

NAK REC

T O T

T I

[ag]

1 MOP MODE «+«NOT SUPPORTED IN KMS11-BD/BE DCLT

U
(oo
U LI

TEMP DATA
NUMBER OF
NUMBER OF

v -

ODDODODODDHD
Gt Gy Pt e G Pt Gt St () St

FLA

PR
e e B -—
>
S NN = OM~N
o> € NONN

LINE

T T T

—f )

)

DODODDDD
S Gt Pt St Bunet

—

-l

T I L )

BITO = 1 LINE ENABLED
0 LINE DISABLED

START PENDING
-

=
—

TMm

[]

E SSAGE TRANSM|
3
NUMBER OF MESSA 3
R
NUMBER OF NAKS
NUMBER OF NAKS R 3

SEQ 28

0
CZKMSAQ KMS11-BD/BE D( L{354

CIZKMSA. P11

23-DeC-82

MACY11

5.0 DEVICE

30A(1052)

23-DEC-82

14:01

3
PaGE 30

INFORMATION TABLES

THIS

1S THE DEFAULT HARDWARE P-TABLE.
T H E VALUES AND
SI2E ARE USED AS
A "'TEMPLATE'' FOR CREATI
1 N G ACTUAL P-TABLE
ENTRIES AND THE DEFAULT VALUES PROVIDE D F OR THE OPERATOR,
SFE SECTION 2.4 FOR AN EXAMPLE Of THE HARD WARE QUESTIONS.

THE NUMBERS IN BRACKElS (
1.E
[10])
WORD INTO THE HARDWARE
PTABLE
THE

NDIC
IND
l ATES THE OFFSET OF THE
OFF
f S ETS MUST MAT(CH THE P-TABLE
OFFSETS USED IN THE HARDWARE PARAMETER ( 0 ING SECTION WHERE THE
"'GET PARAMETER'' CALLS APE USED TO FILL T HE EP P-TABLE.

.WORD
.WORD
.WORD
LWORD

164100
400
240
164110

:;[0 CSR _ADDRESS
:
INTERRUPT VECTOR
:
ASBERRUPT PRIORITY (5)
[6]
M CONTROL CSR ADDRESS

SEQ 29

E
(2xMSAO kMS11-BD/BE
23-DEC
CZKMSA. P

L} .

MA{Y1Y 30A(1052)

23-DEC-82

14:01

PAGE 31

6.0 MODE AND MESSAGE DESCRIPTIONS
6.1 MODE DESCRIPT]ONS

6.1.1

TRANSM]IT MODE

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

RECEIVED.

6.1.2 RECEIVE MODE

SPACE 1S QUEUED FOR THE DEVICE TO RECEIVE MESSAGES.
AFTER RECEIVING AN "EXPECTED'' NUMBER OF MESSAGES, THE DATA RECEIVED
CAN BE COMPARED AGAINST A LIST OF "EXPECT TO RECEIVE'® MESSAGES
1F DATA=CHECKING IS ENABLED.

6.1.3

PASSIVE MODE

EVERY TIME A MESSAGE 1S RECEIVED, A MFSSAGE [S TRANSMITTED.

DATA CHECKING CAN BE DONE ON THE RECEIVED DATA, THE ‘“/ECHO, /NOECHO"
ENABLES/DISABLES THE RETRANSMISSION Of THE DATA RECEIVED.

6.1.4

ACT]VE MODE

A LIST OF MESSAGES
AF TER RECEIVING AN

]S TRANSMITTED AND MESSAGES ARE RECEIVED.

"‘EXPECTED'' NUMBER OF MESSAGES, THE DATA RECEIVED
A LIST OF “EXPECT TO RECEIVE' "ESSAGES
AGAINST
COMPARED
BE
CA N
IF DATA-CHECKING IS ENABLED.

6.1.5

DOWN=-LINE-LOAD

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

TALK AND LISTEN MODE

THE *‘TALK'* END

OF THE LINK TRANSMITS OPERATOR-TYPED MESSAGES

UNTIL A “EXIT' MESSAGE IS TYPED. AT THAT POINT, THE NODE GOES
INTO “LISTEN'® MODE. AN "EXIT MESSAGE' 1S A MESSAGE WHOSE FIRST S
FOUR CHARACTERS ARE "EXIT'. SINCE ONLY THE FIRST FOUR CHARACTER
NEED TO BE "‘EXIT'', MORE CHARACTERS CAN 8t ADDED SO THAT A MESSAGE
MAY BE SENT AND THE MODE SWITCHED ALL AT ONCE.

FOR EXAMPLE:

TLK> EXIT ALL OF THIS LINE 1S SENT THEN MUDE SWITCHED
6.1.6.2 LISTEN MODE

SEQ 30

CIKMSAD KMS11-BD/BE DCLT

CIKMSA.P11

23-DEC-82 13:54

MACY11 30A(1052)

23-DE:-82

14:0G1

PAGE 32

THE “LISTEN'' END OF THE LINK PRINTS ALL OF THE MESSAGES
RECEIVED BY THE DEVICE ON THE OPERATOR'S CONSOLE.
IF TME MESSAGE
RECEIVED 1S AN “EXITTM MESSAGE, THEN THE NODE ENTERS ''TALK'' MODE,
AN “EXIT MESSAGETM IS A MESSAGE WHOSE FIRST FOUR CHARACTERS ARE “EXIT.

SEQ 31

G
(ZxMSAQ KHS11-BD/BE D(C L}}

CIKMSA P11

23-DEC-82

6.1.7

23-DEC-82

MACY1Y 30A(1052)

14:01

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 BY A '/LOOP=..'
IfF A LOCP MODE 1S DSSIRED.

LOOP MODES ARE ONLY VALID IF THE MODE TO RUN IS AZTIVE
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 BOOKXEEPING

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- LGOPBA(K)
(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 DJSTRIBUTION PANEL

2. g:NEHE FAR END OF A CABLE CONNECTED TO THE DISTRIBUTION
L
3. ON THE FAR END OF A CABLE C(ONNECTED TO A MODEM OR
MODEM EL IMINATOR.

THE

COMMAND
:

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

WILL THEN RECORD THAT LOOPING VIA A TURNAROUND CONNECTOR 1S BEING
ATTEMPTED,

SEQ 32

B L}S'SL
CIXMSAQ KMS11-BD/8
23-DEC-82

CIKMSA P11

£ DC

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 34

6.1.8 MODE SUMMARY TABLE

THE rOLLOWING TABLE SUMMARIZES THE MODES THAT CAN BE RUN TOGETHER
WHEN THE DCLT PROGRAM 1S RUNNING ON TWG PROCESSORS (ONE AT EACH
END OF

THE LINK):

!STATION A

E'HOST" NODE

NO
NO
NO
NO
NO
YES
YES

'TALK
'LISTEN
' TRANSMIT
'RECEIVE
'PASSIVE
'ACTIVE
'ACTIVE
*=

STATION A

°'‘/LOOP’' ALLOWED?

MOCT

LIKELY

TO BE

STATION B

LISTENe, RECEIVE
TALKe, TRANSMIT
RECEIVEs, LISVEN
TRANSMITs, TALK
ACTIVE.
ACTIVEe
PASSIVE®

!
!
!
.
.
.

‘'REMOTE'’ NODE

THAT

;

MODE

6.2 MESSAGE DESCRIPTIONS
NAME

DESCRIPTION

1EROES
ONES

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

1ALT

0ALT

1TEP

“CCITTTM §12-BIT (VS. 511 BITS) TEST PATTERN

““INTERPROCESSOR TEST PROGRAM'S (ITEP)'* MESSAGE 1(DP1:)
(<177><177>/78A THE QUICK BROWN FOX JUMPED OVER THE

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

ALPHA-NUMERICS (OR FUTURE COMM TURNAROUND MSG)
(#%'"" (AMPERSAND) ' ()v4,=.0123456789::<=>?3ABCDEFGHIJK
LMNOPQRSTUVWXYZ/[\1*_X)

OPERATOR=-SPECIF JEL

S,
TABS"'
"A=2,0-9,SPACE

THESE ARE THE CHARACTERS THAT (AN

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

SEQ 33
0

13
(ZxMSAQ kMS11-BD/BE DCLY
CZKMSA P
23-DEC -82 13:54

MACY1Y 30A(1052)

7.0 OTHER

23-DEC-B2

14:01

PAGE 35

INFORMATION

7.1

INTERFACING TO AN ''ITEP'' NODE

THIS DCLT WILL

INTERFACE ONLY

TO THE

[TEP FOR DM(C.

AND THE FOLLOWING TABLE APPLIES TO THE

ITEP NODE:

ITEP NODE

DCLT NODE

ONE-WAY=-0QUT
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
1TEP 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
T0, A SOFT ERROR ‘BASE TABLE ERR COUNTS NON-ZERQ'' 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 DATA'' 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 C

SEQ 34

CZK45A0 kMS11-BD/BE DC
23-DEC-82
CIKMSA.P1Y

SEQ 35

MACYIY 30A(1052) 23-DEC-82 14:01 PAGE 36

LT, o,

7.2 TROUBLESHOOTING HINTS

LIST

THES

DCLT
GIVE

D BELOW ARE SOME SETUPS THAT COULD BE USED FOR ISOLATING FAULTS.
ARE BY NO MEANS THE ONLY WAYS DCLT CAN BE USED :!.1:!1!

1S MEANT T0 BE A VERY FLEXIBLE TOOL! THIS SECTION IS MEANT T0

SOMEONE NOT TOO FAMILIAR W!TH DCLY A PLACE TO START,

REM EMBER THAT
EVE NT LOG CAN

THE PRINTING OF STATUS MESSAGES AND PRINTING OF THE

PROVIDE A LOT OF INFORMATION ABOUT THE SEQUENCE OF

Eve NTS AND HOW THE DEVICE AND LINK ARE BEHAVING.

NOTE: JF BOTH NODES 1 N A c L IVE AND "'/NOCHECK'' IS USED,
----- END-OF -PASS 1§ 0 EF l ED AS RECEIVING 1 MESSAGE
WITH NO DATA
AND COMPLETING T HE TRANSMIT LIST,
TO KNOW HOW
DCLT
N
CHECKING, THER E IS 0 WAY FOR
T
SHOULD
EXPECT
TO
RECEIVE.
MANY MESSAGES It
s 0

7.2.1

A SAMPLE TEST SEQUENCE AS SEEN FROM

7.2.1.1

INVOKE AND START THE DCLT TEST PROGRAM

THE KMS11-BD/BE END OF

A LINK,

8007 XXDP+

R (IKMSA

DR>START
CHANGE KWW (L)
# UNITS

? Y<(R>

? 1<(R>

(D)

UNIT O
FULL DUPLEX ONLY

DEVICE CSR ADDRESS : (0) 164100 ?<(R>
INTERRUPT VECTOR ADDRESS: (0) 400 ?<(R>
INTERRUPT PRIORITY: (0) 5 7<(R>
DM11-BA (SR ADDRESS (0) 164110 2<(R>
THIS 15 DCLT, TYPE "W OR "' FOR DETAILS
OCLT>

VALUES

MODE =AC T 1VE/PASS$=00001
E
CHO/NOMODEM
CK/NOES/CH
/NOSTATU
(A)

K
(ZKMSAQ KHS11-BD/BE DCLT
CZKMSA. PIN
23-DEC-82 13:54

MACY11

30A(1052)

23-DEC-82

14:01

SEQ 36

PAGE 37

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

DCLT> (A)
DCLT>

(A)

? L

{OOPBA(CK

E=0

7 R M=A/L=1/STA/NOCHECK

THIS COMMAND SEQUENCE MEANS:

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

LINE O IS US D 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=]/STA/NOCHECK SETS THE RUN MODE

TO ACTIVE,

THE

LOOP TYPE TO INTERNAL, 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.

THE RUN IS SUCCESSFUL YOU SHOULD SEE:
INI
DCLT>

RXQ

TXQ

TXC

EOP

MODE=ACTIVE/LOOP=INTERNAL/PASS=00000
(A)

/STATUS/NOCHE
CK/NOE CHO/NOMODEM

A SUCCESSFUL RUN INDICATES THAT THE kMS11-BD/BE CAN TRANSM]T
AND RECEIVE. ANY ERRORS REPORTED WILL PROBABLY BE DUE 10

INCORRECT DEV]ICE ADDRESSES BEING USED OR A FAULTY DEVICE.

10 CHECK FOR THESE RETURN TO SUPERVISOR (COMMAND LEVEL
BY TYPING:

OCLY

(A) ? EXIT

CNTRL/(C
CHECK ADDRESSES BY TYPING:

DR> DISPLAY<CR>
RUN KMS11-BD/BE DIAGNOSTICS TO CHECK

THE DEVICE.

(STEMSAD KMSTISBD/BE LT, CZKMSAQ KMS11=BD/BE DCLT

MACY1T

MACY11

SEQ 37

14:
23-DEC-82
30A(1052)
PAGE 38
-B2 14:01
2) 23-DEC
30A(105

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
THISACOMMAND MEANS:

THE DEFAULT (]TEP) MESSAGE WILL BE TRANSMITTED ONCE PER PASS.
9E§IMESSAGE WILL BE RECEIVED PER PASS.

MESSAGES_TRANSMITTED WILL BE LOOPED BACK INTERNALLY WITHIN THE

LINE UNIT AND ACCEPTED AS RECEIVED MESSAGES.

/STA
?EAEUS MESSAGES WILL BE PRINTED AS THE RUN PROGRESSES.

QEESHEESAGE RECEIVED WILL BE CHECKED AGAINST THE DEFAULT

/PASS=3

THIS SEQUENCE WILL BE EXECUTED THREE TIMES.

IF SUCCESSFUL YOU SHOULD SEE:
INI

TXC

——

———

——

RXQ

TXQ

CMP

EOP

TXC

RXQ

CMP

TXQ

EOP
TXC

RXQ

CMP

TXQ

EOP

MODE= ACTIVE/LOOP INTERNAL/PASS=00000
/STATUS/CHECK/NOECHO/NOMODEM

DCLT> (A)

(ITEP)

m3
CIKMSAO KMS11-8D/BE DCLT
CZKMSA.P11
23-DEC-B2 13:54

MACY11

30A(1052)

23-DEC-82

14:01

SEa 38

PAGE 39

7.2.1.64 RUN IN ACTIVE MODE WITH A TURNAROUND CONNECTOR

PUT AN H3256 TURNAROUND CONNECTOR ON THE DISTRIBUTION PANEL PLUG
FOR

THE

ESTABLISHED LINE

IS THE PLUG FOR LINE 0).
DCLYT>

THIS

(A)

(THE

LEFTMOST

PLUG AS YOU FACE

THE

PANEL

? R M=A/L=(/PASS=3

IS SIMILAR TO THE

INTERNAL LOOPBACK TEST.

THE

DEFAULT MESSAGE

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 SVILL ENABLED. THE MODE MUST BE EXPLICITLY
SPECIFIED IN EVERY DCLT> RUN COMMAND. LOOPTYPE ANL THE STATUS,
CHECK AND ECHO QUALIFIERS RETAIN THEIR SETTINGS UNTIL EXPLICITLY
CHANGED IN A DCLT> RUN COMMAND OR UNTIL
A DR> START COMMAND RESFTS

ALL DEFAULTS,

THIS TEST

INI

TXC

IS SUCCESSFUL YOU

WILL SEE:

RXQ

CMP

TXQ

EOP

TXC

RXQ

Tx@

EOP
TXC

RXQ

CMP

TXO

EOP

MODE=ACTIVE/LOOP=CABLE/PASS=00000
/STATUS/CHECK/NOECHO/NOMODEM
DCLT> (A)
?
THE SAME TEST
AT THE END OF

THESE

CAN BE REPEATED WITH THE TURNAROCUND CONNECTOR
A CABLE PLUGGED TO THE DISTRIBUTION PANEL.

TESTS RUN SUCCESSFULLY YOU CAN ASSUME

THAT THE

HOST COMPUTER ON WHICH KMS11-BD/BE DCLY IS RUNNING AND [TS
KMS11-BD/BE ARE TRANSMITTING AND RECEIVING SUCCESSFULLY.

CZKMSAO KMS11-8BD/BE DC L}S 54
CIKMSA P11
23-DEC-82

7.2.2

23-DEC-82

MACY11 30A(1052)

14:01

PAGE 4«0

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 SEQUENCES ARE:
NODE B

NODE A

DCLT>
DCLT>
DCLT>
DCLT>

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

2?2
2
?
2

CL E
CL 7
SE_T=1ALT/S$=250
L E=1

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

DCLT> (A) 2 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 E INITIALIZE THE EXPECT LIST
CL T INITIALIZE THE TRANSMIT LIST
SE T=1ALT/S5=250

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 LINE TO TEST,
R M=TR/PAS=3"' SETS THE RUN MODE OF NODE A TO TRANSMIT
AND THE PASS COUNT TO 3.
R M=R/NOCH/PAS=3 SETS THE RUN MODE QF NODE B
TO 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

INI TXQ TXC EOP TXQ TXC EOP TXQ

TXC

EOQP

MODE =TRANSM] T/PASS=00000
/STATUS/NOCHE CK/NOECHO/NOMODEM
?
DCLT> (A)
fOR NODE 8:

IN] RXQ EOP RX Q EOP RXQ EOP

MODE=RECE 1 VE/PASS=00000

DCLT> (A)

/STATUS/NOCHECK/NOE CHO/NOMODEM

SEQ 39

MACY1Y 30A(1052)

(2xkMSAQ xMS11-BD/BEDCLT

CIKMSA. P11

23-DEC-82 1

23-DEC-82

14:01

PAGE 41

NOW TRYDOING 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/S=250"" LINE MUST BE ADDED HERE
10 SET UP THE "EXPECT'' LIST ON THE RECEIVE NODE
SO 1T WILL KNOW WHAT TO COMPARE AGAINST

THE CHANGE IN THE RUN COMMAND IS FROM ''NOCH' TO ‘'CH'
THE “'CH'* ENABLES DATA CHECKING

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 C(MP EOP RXQ

(MP EOP

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

NOW RUN THRU THE SEQUENCE AGAIN WITH NODE A RE CEIVING
AND NODE B TRANSMITTING TO C(HECK OUT THE OPPOS ITE DIRECTION
Of

DATA FLOW,

SEQ 4«0

/BE
\-BD
L{3'54
KHS\
SAQ
(ZKM
23-DEC-82
CIKMSA,.P1Y
0¢

23-DEC-B2

MACY11 30A(1052)

14:01

PAGE 42

7.2.3

ONE NODE ACTIVE THE OTHER NODE PASSIVE

NOW [RY RUNNING ONE NODE IN ACTIvc MODE WHILE THE OTHER
END RUNS IN PASSIVE. DATA CHECKING SHOULD BE TURNED OFF
1F THE MESSAGE LISTS ARE NOT THE SAME.
POSSIBLE COMMAND SEQUENCES ARE:

NODE A

NODE 8

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

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

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

DCLT> (A) 2 L E=1

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

OCLT> (A) ? SE T=1ALT/5=20/(=2

DCLT> (A) ? R M=P/NO(H/PAS=3

« NOTE: THIS COMMAND IS SPECIFIC TO THE xMS11-BD/BE
WHAT THIS SEQUENCE MEANS:

THE EXECUTION OF THIS SEQUENCE CAUSES THE FOLLOWING
THINGS TO HAPPEN ON NUDE 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 TH THE CCITT PATTERN. LINE 1 IS

ESTABLISHED AS THE LI NE T0 TEST.

THEN NODE A IS RUN é? ACTIVE MODE

DISABLED AND THE PASS COUNT
WITH DATA CHECKING
T
SET TO THREE. NOTE STATUS WOULD STILL BE

PRINTED [F THE PREVIOUS SEQUENCES HAD BEEN RUN,

[F YOU ARE RUNNING FROM LOAD TIME YOU wOULD HAVE

TO ADD A *'/STA TO THE RUN COMMAND LINE.

NODE B: THE TRANSMIT AND EXPECT LISTS ARE INTIALIZED
THEN THE TRANSMIT LIST IS SET 10 3 MESSAGES Of

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

IN] RXQ TXQ TXC TXQ RXQ TXC TxQ

RXQ TXC EOP RXQ TXQ RXC TXC TxQ
RXQ TXC TXQ RXQ TXC EOP RXQ TXxQ
RXQ TXC TXQ RXQ TXC TXQ RxQ Tx(
eopP

MODE=ACTIVE/PASS=00000

oCLY> (A)

E
MODEM
OCH
CHO/NO
S/N
/STATUCK/NOE

0 41

(ZKMSAQ KMS11-BD/B 3 D¢
CIKMSA. P11
23-DE C -82
FOR NODE 8:

INI RXQ TXQ TXC RXG TXQ TxC RXxQ

X0 TXC EOP

MODE=PASSIVE/PASS=00000
E
CHO/NOMODEM
S/NOCH
/STATUCK/NOE
?
DCLT> (A)

NOW USE DATA CHECKING WITH THE "'EXPECT MESSAGE LISTS'' SET
UP APPROPRIATELY,
ANOTHER VARIATION [S TO HAVE LARGE SIZE
MESSAGES ON ONE SIDE WITH SMALL MESSAGES ON THE OTHER.
THEN REVERSE

THE SETUP SO THAT THE NODE RUNNING IN ACTIVE
IS RUNNING IN PASSIVE AND VICE VERSA,

SEQ &2

E
(ZKMSAQ xMS11-BD/ BE D¢ L{B'SL
23-D 3¢ -82
CIKMSA. P11

MACY11 30A(1052)

7.2.6

BOTH NODES ACTIVE

23-DEC-B2

14:01

SEQ 43

PAGE 44

CTIVE WITH DATA CHECKING ON,
NOW BOTH NODES CAN BE RUN_IN ACT

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

NCDE A

NODE 8

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

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

DCLT>
DCLT>
DCLT>
DCLT>
DCLT>
DCLT>

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

?
2?2
?
?
?
?

SE
SE
SE
SE
SE
SE

T=0ALT/S=10
1=C(C]T1/5=20
T=ALPHA/S=30
E=2ER0O/S=11
E=ONES/S=21
E=]TEP/S=}1

DCLT>
DCLY>
DCLT>
DCLT>
OCLT>
DCLT>

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

?
?
?
?
?
?

SE
SE
SE
SE
SE
SE

E=0ALT/S=10
E=CCITT/S=20
E=ALPHA/S=30
T=7ERQ/S=11
T=0ONES/S=21
T=]TEP/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 10 Bt

3 MESSAGES. MESSAGE 1 I5 10 BYTES LONG AND
CONTAINS DATA OF ALTENATING O°'S AND 1°S

MESSAGE 2 IS 20 BYTES LONG AND CONTAINS

DATA OF THE CCITT PATTERN. MESSAGE THREE
1S 30 BYTES LONG AND CONTAINS ALPHANUMERICS
FOR DATA. THE EXPECT LIST ALSO CONTAINS
3 MESSAGES. MESSAGE 1 IS 11 BYTES | ONG_AND

CONTAINS 0°'S FOR DATA, MESSAGE TwO i$S 21
BYTES LONG AND CONTAINS 1°S FOR DATA. MESSAGE
3 1S 31 BYTES LONG AND CONTAINS THE ITEP DATA,
NODE B HAS THE SAME MESSAGES EXCEPT THAT THE
TRANSMIT MESSAGE LIST IS THE EXPECT MECSAGE LISH
AND VICE VERSA.

BOTH NODES ARE RUN [N 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 =AC T1VE/PASS=00000
DEM
CHO/NOMO/
TUS
CHE CK /NOE
/NOSTA
?
DCLT> (A)

A VARIATION THAT CAN BE USED 1S 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 LYNC BUT THIS IS NOIT
A PROBLEM,

(ZKkMSAQ xMS11-BD/BE D( L{} 54
CZKMSA P11
23-DEC-82

MACY1Y 30A(1052)

23-DEC-82

14:01

SEQ 44

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
TO THE

FIRST

TRIBUTARY

[N THE

THESE MODES FROM THE CONTROL

TRIB LIST.

DCLT> (A) ? R M=L]S/NOST
LIS>

STATION

DCLY> (A) ?2 R M=TA/NOST
TLK>

(2xMSAD xMS11-8D/8

C(ZxMSA,. PN

23-Dt

PAGE 46
1
:0
14
2
-8
EC
-D
23
)
52
10
A(
30
11
CY
MA
L{S-sa
7.3

EXAMPLES OF

C(OMMANDS

THIS SECTION WILL SHOW A SAMPLING OF

EXACILY WHAT TO EXPECT FROM THEM,
7.3.1
THE

EXAMPLES OF MESSAGE

CLEAR COMMANDS

DCLY> (A)
DCLY> (A)

COMMANDS AND

COMMANDS

2 CL E
2 CL T

THIS WILL INITIALIZE THE TRANSMIT AND EXPECT LIST

TO 1 MESSAGE OF 58 BYTES.
BE THE ITEP MESSAGE.

THE DATA OF THE MESSAGE WILL

1f THESE COMMANDS ARE FOLLOWED BY A SHOW COMMAND
DCLT> (A)

2 SH E

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

TYPE=]TEP/SIZE=58
MODE=ACTIVE/PASS=00001
/NOSTATUS/CHECK/NOE CHO/NOMODEM
2
(A)
(Lr>

NOW IF YNU DID A SET EXPECT LIST COMMAND SUCH AS:
DCLT> (A) ? SE E=A/S=35/(=3
AND FOLLOWED IT WITH A SHOW EXPECT LIST COMMAND
DCLT> (A) ? SH E
WHAT YOU WOULD Skt IS
MSG:
MSG:
MSG:
MSG:

TYPE=ALPHA/S
TYPE=ALPHA/S
TYPE=ALPHA/S
TYPE=ALPHA/S
MODE=ACTIVE/

DCLT> (A)

01
/ CHE CK/NOE CHO/NOMODEM

SEQ 45

(2xMSAQ kMS11-BD/B D¢ L}B'Sk
23-DE -82
CZKMSA. P

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:

OCLY> (A) 2 L SH
NO LINE NUMBER 1S ESTABLISHED
DCLY> (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

DCLY> (A) 2 L E=S

DCLT> (A) ?2 L SH

LINE NUMBER:

ANY TESTS INVOKED BY SUBSEQUENT RUN COMMANDS WILL APPLY T0

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 S INVOKED BY A SUPERVISOR DR>START (OMMAND
THE LINE kILL COMMAND
DCLT> (A) ? L K

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

NO LINE NUMBER IS ESTABLISHED

IT 1S NOT NECESSARY TO KILL AN ESTABLISHED LINE BEFORE

ESTABLISHING A NEW LINE NUMBER.
ODCLT> (A) ? L SH
L INE NUMBER:

DCLT> (A) ? L E=3
DCLT> (A)

? L SH

L INE NUMBER:

SEQ 46

1
(ZKkMSAD KMS11-BD/ Bt DCLY
23-0 tEC-8¢ 13:5¢4
CIKMSA.P1Y

14:01

23-DEC-B2

MACY11 30A(1052)

PAGE 48

7.3.3 EXAMPLES OF OPERATOR ASSISTANCE COMMANDS

IF YOU TYPE A HELP COMMMAND:

DCLT> (A) ? HELP

EITHER

YOU WILL

SEE:

DCLT CMDS:

CLEAR OR SHOW

PRINT OR EXIT

DCLT> (A) 22

EXPECTLIST OR TRANSMITLIST

DUMP START-END/B

LINE SHOW,

LINE ESTABLISH=N (N=0-7)OR LINE KILL

SET EXPECTMSG OR

TRANSMITMSG=TYPE/SIZE=N OR /COPY=N

T,0ALT, 1TEP, CCITT, ALPHA
TYPE=ONES, ZEROES, 1AL

OR "'OPR SPCD=A-l,SP,TAB,N=9 [N QUOTES'

SET EXPECT=TRANSM]T

RUN MGDE=MTYP/LOOP=LTYP/CHECK,STATUS,ECHO,MODEM,PASS=N
MTYP=TRAN,REC,ACT,PAS,TAL.LIS,DOWN

LTYP=INT,CAB,LOC,REM/

DCLT> (A)
THE

DUMP (OMMAND:

DCLT> (A) ? DUMP 41260-41300
PRINT THE CONTENTS OF PDP=11 MEMORY ADDRESSES
260 THROUGH 41300 IN THE FOLLOWING MANNER:

260

300

104423

006312

000167 177772 021122 012112 006312 006312 006312

T
THE /8 SWIT(H:
WITH

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

THE DUMP COMMAND PRINTS:

61260
61270

167 000 372 377 122 026
023 2°1
112 02 312 014 312 014 312 014
312

SEQ &7

(ZxMSAQ xMS11-BD/BE D¢ L{S
23-DE( -82
(IxMSA P11

MACY11 30A(1052)

7.3.4 EXAMPLES OF

23-DEC-82

14:01

PAGE 49

RUN COMMMANDS

YOU CAN FIND SEVERAL EXPAMLES OF THE RUN COMMMAND IN THE
TROUBLE SHOOTING HINTS SECTION BUT HERE ARE SOME OTHERS.

If YOU TYPE IN THE RUN COMMAND
DCLT> (A)

2 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/L0=1/ST/CH/PAS=3

WITH DEFAULT TRANSMIT AND EXPECT MESSAGES
YOU SHOULD SEE:

IN] RXQ TXQ TXC CMP EOP RXQ TxQ

TXC CMP EOP RXQ TXQ TXC (MP EOQP

MODE=ACTIVE/LOOP=INTERNAL /PASS=0000
DCLT> (A)

ODEM
HE
CHO/NOM
S/C
CK/NOE
/STATU

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

SEE

7 EXIT

C2ZXMSA EOP

0 CUMLATIVE ERRORS

DR>

SEQ 48

MACY11

(ZXxMSAQ kMS11-BD/BE DCL 1
CZKMSA,PI
23-DE(-82 13:5¢4

30A(1052)

7.3.5 EXAMPLES OF
THE

DCLT

THE

COMMMAND

14:01

LEVEL

ARE

IS USED FROM THE

IS RPT>,

SOME

EXAMPLES OF

HELP COMMAND
RPT> HELP

PRINTS

THE

SEQ &9

PAGE 50

CQOMMANDS
SUPERVISOR

> LEVELTO ENTER THE REPORT LEVEL.

REPORT

HERE

23-DEC-82

RPT> LEVEL

RPT>

DR>

THE PROMPT AT THE

THE

COMMANDS

FOLLOWING:

DCLY REPORT CMDS:
EXIT OR LOG
STATUSONL
INE
RPT>

THE

(A)

LOG COMMAND

RPT>

(A)

? LOG

PRINTS A LOG ENTRY FOR THE MOST RECENT EVENTS LOGGED SINCE
THE LAST DR> START OR DR> RESTARY COMMAND., A MAXIMUM OFf
45 EVENTS CAN BE PRINTED.
>>>

DCLT

EVENT

0:01:16

LOG ENTRY

D>X22532322223333>23333>>235>>>>

RECEIVE SPACE QUEUED

TO-FROM L INE NO.

ADDR OF MSG=000455
BYTE COUNT= 512
>>> DCLT EVENT LOG ENTRY D>>3>2253333>53333333333535>5>>>

RPT>

(A)

L
CIXMSAQ KkMS11-BD/B E DC LI} 54
TIKMSA P11
23-Dt (-82
THE

MACY1Y

30A(1052)

23-DEC-82

STATUSONL
INE COMMAND PRINTS

LINE.

THERE

RPT>
PRINTS:

THE

14:01

STATUS OF

IS AN ESTABLISHED LINE

(A)

PAGE 51

THEN

THE

? STATUSONL
INE

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

XXX
XXX
XXX

FLAGS = XXX

LAST TX MSG = XXX
MSGS RCVD = XXX

NAKS RCVD =

THE EXIT COMMAND RETURNS TO THE
REPORT PRINTING WAS INVOKED.

XXX

COMMAND LEVEL

FROM WHICH

6§ABEP0RT PRINTING WAS INVOKED FROM THE SUPERVISOR
THEN:

DR> PRINT
RPT>

(A)

EXIT

IS FOLLOWED BY:

DR>

l?AREPORY PRINTING WAS

VIA:

THEN:

DCLT>
RPTI>

(A)
(A)

?
? EXIT

IS FOLLOWED BY:
DCLT>

(A)

ESTABLISHED

INVOKED FROM DCLTY

SEQ 50

M4
¢ T
(ZKkMSAQ kMS11-BD/BE DCL

CZKMSA. P

23-DEC-82

13:54

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 52

I4 .4 THINGS TO WATCH OUT FOR

ARE RUNNING DCLT ON SYSTEMS THAT HAVE CONSOLES
IF F v OU
WiTH
1
JIFFERENT SPEEDS YOU WILL BE UNABLE TO USE THE
PRIN
STATUS FEATURE IN CERTAIN MODES. THE RULE IS
IF F

1 N8g$z¥LSUORK WITH STATUS PRINTING RUN THE MODE

WITH
I

IF F Y OU ARE USING PASSVIE MODE WITH THE ECHO SWITCH
T H EN YOU WILL PROBALBLY HAVE TO RE ENTER THE TRANSMIT
L l ST ON THE SIDE WITH THE ECHO SWITCH. THE REASON IS
1 H AT THE TRANSMIT LIST GETS OVER WRITTEN WITH THE
R t CEIVE LIST WHEN USING THE ECHO SWIT(H

SEQ 51

N
CZKMSA 0 KkMS11-BD/BE
23-DEC~
CZKMSA P "

MACY11 30A(1052)

.SBTTL

23-DEC-82

14:01

SEQ 52

PAGE 53

PROGRAM HEADER
BGNMOD

002000

t4e

* THE PROGRAM HEADER IS THE INTERFACE BETWEEN

::
LSNAME

LSREV::

:
LSDEPO:

[=Te
Yo ¥ R

o
Py PurQurPur
Gur

060

000000

003410
067230
000000

002130
000000

067542
000000

000000
002036

000000

LSUNIT::
LSTIML::

LSHPCP::
LSSP(P::
LSHPIP::

LISPTIP::

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

LSDTYP:
LSAPT::

(2KMS,A,0,1800.,0,PRIO?

St Gt Gt G

HEADER

< NNV

002000

—_CINININD
TV 0t 4t Pt P
g

POINTER ERRTBL ,BGNRPT,BGNAU,BGNDU

L]
L]
[
OB
> >

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

002000

(=4
i=4

NN = OO 00 NN S NN =

NIFVINININY
b b b b b

NIRINLAININVINININI
N NIAININD

[elalelololelalelela) EOOO

/C/
1/
/K/
/M/
/5/

BYTE

“BYTE

0
0
0

LASCII

/A/

LASCII

10/

.WORD

1800.

.WORD

L $HARD

.WORD

LSHW

.WORD

+WORD

LSLAST

.WORD

LWORD

CIXKMSAQ kMS11-BD/BE DCLTY

(IKMSA FI

23-DEC-82 13:5¢

2049 002036 000000

MACY1Y 30A(1052)

23-DEC-82

PROGRAM HEADER

14:01

SEQ 53

PAGE 54

002040

LSDTP::

2054 002044
2055 002044 000000
2056 002046

LSENV]::

2050

2051 002040 0021264
2052 002042
2053 002042 000340
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
208%
2084
2085
2086
2087
2088
2089
2090
2091
2092

2093
2096
2095
2096
2097
2098
2099

002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062
002064
002064
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
0021064
002104
002106
002106
002110
002110
002112

002112
002114
002114
002116
002116
002120
002120

000000
003
203
000000
000000
000000
013714
032576
000000

000000
054156
054150
000000
013730
104035
013704
032612

054022
054020
032604
000000
000000
000000

MWORD

.WORD
LSPRIO::
.WORD
MWORD
LMORD
LSMREV: :
.BYTE
.BYTE
LSEF::
LMWORD
MORD
L$SPC::
MORD
LSDEVP::
.WORD
LSREPP::
.WORD
LSEXPL: :
.WORD
LSEXPS::
.MORD
L$AUT::
.MORD
LeDUT::
LWORD
LSLUN::

LSEXP1::

LMWORD

LSDESP::
LWORD
LSLOAD::
EMT
LSETP::
LWORD
LSICP::

LMWORD
LSCCP::
.MWORD
LSACP::
.WORD
LSPRT::
LMORD
LSTEST::
LMORD
LeDLY::
.MORD
LOHIME - :
LMWORD

LSDISPAT(CH
PRIO7
O
O
CSREVISION
CSEDIT
O
O
O
LSDVIYP
LSRPT

0
0
LSAU
L$DU
O
LSDESC
ESLOAD

LSERRTIBL
LSINIT
LSCLEAN
L$AUTO
LSPROT
O
O
O

(ZXMSAQ KMS11-8D/BE DCL!T

CIKMSA.P11

23-DE(-B2 13:564

MACY1Y 30A(1052)

2101

« ==

2106

14:01

SEQ S5¢

PAGE 55

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
; 1T 1S USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

2102
_2‘}82
2105

23-DEC-82

DICPATCH TABLE

002127

2107 002122
2108 002126
S}?g 002126

000001
054164

DISPAT(H 1

LWORD
LSDISPAT(H::
.WORD

1
71

WAL =2O V0 NO Nl =

23-DEC-8B2 13:54

MACY11 30A(1052)

23-DEC-82

14:01

DEFAULT HARDWARE P-TABLE

SEQ 55

PAGE 56

see

THE DEFAUL!T HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

AND IS USED AS A ''TEMPLATE' FOR P''ILDING THE P=-TABLES.

: THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE
: 1S IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,

002126

002130
002130

BGNHW

000006

DFPTBL

LSHW::
OFPIBL::
:INDEPENDENT SECTION
:
THE NUMBERS IN BRACKETS ARE

NN
NI NS WA= DO
WA 2 OO

B B 8% B B £

flN

. P11

N N AN NI NN N AN NN RO RO NI NINONONIN) 2 =P e b d b ot =D b

LSLSLVT
ST
ST ST NI N,
VLSS LN, S SV NI NI ST NI NI SN UL NI NI
NI ST,V U1 DN1,V
V]V V]
— ol e
) i e e
d il D el e i ol ) d ) e e o e D i D e
) D B e i
el e e

(IKMSA

(2xMSAD xMS11=-8BD/BE DCLT

CODING SECTION.

LWORD

L10000-L$HW/?

THE OFFSET VALUES USED IN THE PARAMETER

;DEVICE DEPENDENT SECTION

002130
002132
002134
002136
002140
002142
002144

0002144

164100
000400
000240
164110
000000
000000

ADDING OR REMOVING WORDS FROM THIS TABLE EFFECTS THE ''GET'' CALLS IN
THE HARDWARE PARAMTER (ODING SECTION BY CHANGING '‘OFFSETS'

MWORD
.WORD
LWORD
LWORD
.WORD
.WORD
ENDHW

164100
4CO
240
164110
O
O

;[0 CSR ADDRESS (KM(C11-B)
:[2] INTERRUPT VECTOR (KM(C11-8)
;[6] INTERRUPT PRIORITY (BRS) (KkM(11-B)
;[6) CSR ADDRESS (DM11-BA MODEM (ONTROL (SR)
:[10]SPARE
;[12]SPARE
L10000:

E
C2xMSAQ xMS11-BD/BE DCL!T
23-DE(-B2 13:5¢4
CIKMSA P
2146
2147
2148

23-DEC-82 14:01
MACY1? 30A(1052)
DEFAULT HARDWARE P-TABLE

5
PAGE 57

SEQ 56

C2XMSAO xMS11-BD/BE DCLT

(IXMSA . P11

23-DEC-82 13:54

23-DEC-82

MACY1Y 30A(1052)

14:01

GLCBAL EQUATES SECTION

PAGE 58

2149
2150
2151
2152

g}gg

; ARE USED IN MORE THAN ONE TEST,

: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

2153

2156
2157

2158

2159

002144

EQUALS

: BIT DIFINITIONS

%}g?

2162
2163
2164
2165
2166
2167
2168
2169
2170
FANA
2172
2173
2174
2175
2176

S};g

100000
040000
020000
010000
004000
002000
001000
000490
000200
000100
000040
000020
000010
000004
000002
000001

B8I1T15== 100000
BIT14== 40000
BI1713== 20000
81112== 10000
BIT11== 4000
8I1710== 2000
8I1709== 1000
B817108== 400
B81107== 20V
81106== 100
B1105== &0
BI104== 20
BIT03== 10
B]102== &
8i1101== 2

2179
2180
2181
2182
2183
2184

001000
000400
000200
000100
000040
000020

B81719==
8118==
BIT7==
BI116==
8115==
BIT4==

2185
2186
2187
g}gg

000010
000004
000002
000001

000040
000037

2196
g}gg

000035
000034

000036

2199

2204

BIT109
BIT08
B8]107
BIT06
BIJT105
BJIT04

BJ103
BIJT02
BITO
81700

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM (OMMUNICATION

EF .START==
EF .RESTART==

32.
3.

EF .NEW==
EF .PWR==

29.
28.

EF .CONTINUE==
:

30.

: PRIORITY LEVEL DEFINITIONS

5589

2202
220%

B113==
BI112==
BIT1==
8110==

2193
2194

2195

81100== 1

: EVENT FLAG DEF INITIONS

2190

%}g}

SEQ 57

000340
000300

000240

PRIO7== 340
PRI06== 300

PR]0S== 240

: START (OMMAND WAS [SSUED
: RESTART (OMMAND WAS [SSUED

: CONTINUE COMMAND WAS [SSUED

: A NEW PASS HAS BEEN STARTED
: A POWER=FA]L/POWER-UP OCCURRED

CZxMSAQ xMS11-BD/BE DCLT

(IKMSA, P

2205
2206
2207
2208
gg?g

23-DEC-82 13:5¢

000200
000140
000100
000040
000000

MACY1Y 30A(1052)

PR104== 200
PR]03== 140
PR]02== 100
PRI01== 40
PRI00== 0
;sOPERATOR FLAG BITS

%%}}

2213

000004

Evi=s

5559

100000

HWOE==

2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225

23-DEC-82

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

14:01

GLCBAL EQUATES SECTION

LOT==
ADR==
1DY==
ISR==
UAM==
BOE ==
PNT==
PR[==
IXE==
18E==
IER==
LOE==

10
20
40
100
200
4«00
1000
2000
4000
10000
20000
40000

100000

PAGE 59

SEQ 58

23-DEC-82 13:54

MACY1Y 30A(1052)

23-DEC=-82

14:01

GLCBAL EQUATES SECTION

: INDEPENDENT EQUATES

DRV rRONIPOND
LA NN AL AU AN NN AR NN NN ADRDALNALAININDNUNDALRLALADNIND
o X o Yo Yo o SV IV IV IV IV I IV IV IV IV ] B850 8 B B B B8 B N N N N AN N NN N NN

SAQ KMS11-BD/BE DCLT

A.P1Y

SEQ 59

PAGE 60

000000

ENUM = 0

;INITIAL VALUE FOR ERROR NUMBER

2
3

001000

BUFLIM=512,

000017

MSGL IM=1S.

;MAX BUFFER SIZE [N BYTES
: APPLIES TO TX,RX AND CMP BUFFS

S
6
7
0

2
3
[
S

7
8
8

000000
000001

000002
000003

000004
000005
000006

4
2
7
8
9
?

DOW=4
TAL=S
L15=6

;PASSIVE MODE
JACTIVE MODE

:kMS11-BD,BE DCLT DOES NOT SUPPORT DOWN=-L INE=-LOAD MODE
:DOWN=L INE~LOAD MODE
;TALK MODE
:LISTEN MODE

:NO LOOP

000003
000004
000005

:KMS11-8D,BE DCLT DOES NOT SUUPORT MODEM LOCAL ,MODEM REMOTE OR MOP
:MODMEM LOCAL
MODLOC= 3
:MODEM REMOTE
MODREM= &
JMOP
b)
MOP=

000001
000002

000100
000111
001600

TTL=
CABLE=

1
2

JINTERNAL TTL
;CABLE LOOP

;CLOCK ENABLE VALUES T0O BE LOADED IN (LK'S (SR
;0=CLOCK CSR VALUE TO ENABLE THE CLOCK
LCLKEN= 100
;P=CLOCK CSR VALUE 'O ENABLE THE CLOCK
11
PCLKEN=
:P=CLOCK COUNT SET REGISTER FOR COUNTER
1600
PCLKCT=
;PARAM WORD EQUATES

NNNNNNNYN

PAS=?
ACT=3

JRECEIVE MODE
:TRANSMIT MODE

NONE =

REC=0
TRA=1

“POINTER' WORDS PER BUFFER.

000000

1
2
3
4
5

;MODE OF OPERATION EQUATES

(FOR EACH INCREMENT (1) TQ MSGLIM,
ADD 6 WORDS TC THE POINTER TABLE
(PTRTAB:) SINCE THIS MEANS 2 MORE

:MAINT LOOP TYPE EQUATES

}

;
:
:

3
1

;MAX NO, OF MESSAGES PER BUFFER

000001
000002
000004
000010
000020

000040

STATB= BI10
DAT(KkB= BIT11
ECHOB= BIT?
MOCHK= B]T3
BIT4
(R(B=

PROTOB= BI1TS

;OPERATOR AWAKE ASKED FOR
;DATA (HECK B1T
;ECHO BIT
:MODEM CHECK/NO CME(K
:CRC CALCULATE ASKED FOR

sPROTUCOL PROCESSING ASKED FOR

CZxMSAQ kMS11-BD/BE D(CLT
(IKMSA.P1Y
23-DEC-B2 13:5¢4

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

PAGE 61

2278
2279

:OPTION TYPE EGUATES

2282
2283
2284

EVENT LOG MESSAGE TYPES (USED TO LOCATE EVENT DESCRIPTION IN EVENT TABLE
: AND DISPATCHING 1O SEPARATE SECTIONS OF THE EVENT REPORTING SECTION)
TXQ=
0
;: TRANSMIT MESSAGE QUEUED

ZeR1

000000

2285
2286
2287

000002
000004
000006

2289
2290
2291
2292
2293

0009212
000014
000016
000020
000022

2288

2294
5%32

000010

2299
2300
2301
2302
2303

2304
2305
2306
2307
%ggg

DVI=
D(K=
MS(=
DLE=
DDE=

12
16
16
20
2?2

:DEVICE ABOUT TO INIT
:DATA COMPARISON RESULTS
:MODEM STATUS CHANGE
:DATA COMPAR]SON LENGTH ERROR
:DATA COMPARISON DATA ERROR

EOP=
ABO=

000001
000002
000004
000010
000100

ININT
OTINT
ORX
QTX
ERX

000200
000400
001020
002000
004000

;DEVICE INFORMATION

24
26

ETX
INITC
SETC
STAT
IX10

=
=
=
=
=

;END OF PASS

BIT0
8BITH
BIT2
8113
BITé

2315
2316
2317
2318

000000
000001
000002
000003

2322
323
2324
5252

000007
000010
000011
000012

000004
000005
000006

:INPUT INT, REC.
:OUTPUT INT REC
:RX QUED /7COMPL
TX QUED/COMPL
CEXPECT TO GET A RX (OMPLED

= B117
= 8118
= 8119
= BIT0
= BI1111

: SPECIAL CL] CODES FOR

2313

2319
2320
2321

:TRANSMIT COMPLETE
JRECEIVE BUFFER QUEUED
JRECEIVE COMPLETE

:EQUATES FOR FLAG WORD

2310
23N
2312

2314

P4
4
6

DER=

000024
000026

%Sgg

TX(=
RXQ=
RX(=

SEXPECT TO GET A TX COMPLETED
JEXPECT INJT SYSTEM COMPLETED
SEXPECT SET LINE COMPLETED
;STATUS REPORT EXPECTED
sTRANSMIT TIMEOUT OCCURRED

°‘'(MAR'' ARGUMENT [N CLI CALLS

(COMMAND LINE INTERPRETER DEF INITIONS)

CLIERR=
CLIEX]=
CLIBR=
CLIBIF=
CLISPACLINUM=:
CLIALP=
CLIALN=
cuLloct=
CLIDEC=
CLISTR-

0
1
2
3

&
S
6

7
8.
9.
10.

SEQ 60

(IxMSAQ xMS11-8BD/8E DCLT

(ZkMSA . PN

2327
2328

2329
2330
233
2332
2333
233%¢
2335
2336
2337
2338

2339
2340
2361
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
23%6
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
237N
2372
2373
2374

2375
237%

2377
2378

2379
2380
Sgg;

23-DEC~-B2 13:5¢4

000000
000001
00000¢
000003
000004
000005
000006
000007
000010
ooooN
000912

000013
000014
000015
000016
000017
000020
060021
000022
000023
000024
000025
000026
000027
000030
000031
000032
000033
000034
000035
000036
000037
000040
000041
000042
000043
000044
000045
000046
000047
000050
000051
000052

000053
000054
200055
000056
000057
000060
000061
000062
000063
000064
000065

MACYTY 3JA(1052)

23-DEC-82

14:01

GLCBAL EQUATES SECTION

PAGE 62

: DEFS FOR COMMAND LINE INTERPRETATION ACTION VALUES
NULL=0
CLEAR=1
SHOW=?
(HECK=3
RUN=4
HLP=5
(SHEXP=6
(SHTIRN=7
SETEXP=10
SETTRN=11
SIZE=12

QCOoPY=13
NUM=14
OPRMSG=15
STATUS=16
ENDQO=17
(MSGO=20
(MSG1=21
(MSG2=2¢
(MSG3=23
(MSG4=24
(MSG5=25
(MSG6=26
ATVMOD=27
PASMOD=30
RECMOD=31
LI1SMOD=32
DLLMOD=33
TRAMOD =34
TALMOD=35
NO=36
ECHO=37
(RC=40
PROTO=41
PAS(=42
MOP=43
TTLLOP=44
(BLLOP=45
LMDLOP=46
RMDLOP=47
NOTNUF =50
BADCHR=51
DMPS=52

DMPE=53
DMPQ=5¢4
PRNT=5%
MOSC=56
EXIT=57
SETET=60
SLST=61
ETRB=62
KTRB=63
KALL =64
ExTB=65

SEQ 6!

CIKMSAD KMS11-BD/BE D(LT
CIKMSA.P11
23-DEC-82 13:5¢

5%82
2385
2386
2387
2388
2389
2390
2391
g%g%

000001
000002
000003
000004
000005
000006
000007
000010

K
MACY11

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

§
PAGE 63

;FOLLOWING EQUATES USED IN REPORT (L1
RPHLP=1
RPEXT=?
RPLOG=3
RPSOL =4
RNOTNF =§
RDMPS=6
RDMPQ=7
RDMPE=10

SEQ 62

L
CZKMSAQ KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC=-82 13:5¢4

MACY1Y

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

2394
2395
2396
2397

; DEVICE DEPENDENT EQUATES
: MODEM SIGNAL BIT DEFINITIONS
:
IF SIGNAL AVAILABLE IN DEVICE,

%28?

5%83

2602
2403
2404
2405
2406
2407
%283

EQUATE NAME TO BIT POSITION

ELSE EQUATE IT 10 = 0

(KMS11-C F]RMWARE DOES NOT MAKE MODEM SIGNALS AVAILABLE)

000000
000000
000000
0VUI00
000000
000000
000000

2610

SEQ 63

PAGE 64

18z
DSR=

D(D=

RTS=
Rl=
e
TM=

0
0
0
0
0
0
0

:CLEAR TO SEND (CIRCUIT (B)
sDATA SET READY (CIRCUIT CC)
;DATA CARRIER DETECT (CIRCUIT CF)
sREQUEST TO SEND (CIRCUIT CA)
;RING INDICATOR (CIRCUIT CE)
sSIGNAL QUALITY DETECT (CIRCUIT CG)
;MODEM [N TEST MODE (RS 449 ONLY CIRCUIT TM)

32}}

; DEVICE BIT DEFINITONS

2413
2414
2615
2416
2617
2418
2419
2620

;KMS11-BD/BE REGISTER BIT DEF INTIONS
:CSRO:
KRUN=
BIT1S
:RUN BIT
MCLR=
BIT14
;MASTER CLEAR
:BiT13
;UNDEF INED
ExT1=
BIT12
sSTEP LINE UNIT(OPTIONAL. USED WITH SO'E LINE UNITS)
ExT0=
BITI?
sLINE UNIT LOOP (OPTIONAL. USED WITH SOME LINE UNITS)
RAMO=
BIT10
:LOAD VERIFY RAM

2421
2622
2623

24624

2625
5259

100000
040000

010000
004000
002000

001000

000400

000200

BIT9

STEP=

BIT8

RQJ=

000020
000001

32%%

RAMI=

1€0=
IEl=

:CSR2:

BI117

:OUTPUT INTERRUPT ENABLE
:INPUT INTERRUPT ENABLE

USED FOR COMMUNICATION BETWEEN COMM DEVICE AND ITS LOCAL HOST PROCESSOR

000200

ROYO=

RIT?

24634

000020

RDYI=

BI14

2636

:READY OUT BIT.
;SET BY DEVICE TO REQUEST HOST TO ACCEPT MESSAGE
;CLEARED BY LOCAL HOST WHEN [T HAS ACCEPTED MESSAGE

;READY IN BIT

;SET BY DEVICE TO GRANT LOCAL HOST PERMISSION
:

2437

TO TRANSFER (OMMAND TO DEVICE

;CLEARED BY LOCAL HOST WHEN COMMAND HAS BEEN

: TRANSFERRED TO DEVICE CSRS

5238
%249

SKMLTYP = ADDRESS

2442

*REQUEST PERMISSION TO TRANSFER COMMAND TO DEVICE

BIT4
8110

2630
2631
gzgg

2435

sMAINTENANCE INSTRUCTION REGISTER CLEARS PC
JAND LOADS MAINT,INSTRUCTION INTO CRAM LOCATION ZERO
;SINGLE STEP MICROPROCESSOR

007726

IN KMC DATA RAM OF

KMLTYP= 7726

INTERNAL

;*e*THIS VALUE

LOOPBACK MODE

IS A KMC DATA ADDRESS

SPECIFIER

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

SEQ 64

PAGE 65

ENUM

T.ESF

HRD

SFT

NN
— oo

MISCELLANEOUS EQUATES FOR ERROR CALLS

mmm

MACY11

-ty

C(ZKMSAOQ KMS11-BD/BE DC LY
CZKMSA. P11
23-DEC~-82 1 3:5¢4

JINITIALIZE ERROR NUMBER
:SYSTEM FATAL ERROR TYPE
;DEVICE FATAL ERROR TYPE
JUNRECOVERABLE ERROR TYPE
;SOFT ERROR TYPE

CZXMSAQO KMS11-BD/BE DCLT

CZKMSA.P1Y

23-DEC-82 13:5¢4

24654
2455
2456

MACY11 30A(1052)

23-DEC-82

GLOBAL DATA SECTION

14:01

PAGE 66

2457

: THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

2459
2460
2461

: IN MORE THAN ONE TEST.

2458

DEFAULT MESSAGE DEFINITIONS AND TABLES

%:g%

LSBTTL

%222

:MESSAGE BYTE COUNT TABLE

2466

2467
2468
24669
2470
2471

2472
2473
2474
2475

2476

2477

002144

002144 000001
002146 000001
002150 000001
002152 000001
002154 000100
002156 000072
002160 000101
002162 000000
002164 000001
002166

002170

000005

000254

DMSGCT

MSGO0C:
MSG1C:
MSG2C:
MSG3C
MSG4C:
MSGSC:
MSG6(C:
OPCNT:
MSGBL:

.WORD
.WORD
.WwORD
.WORD
.WORD

.WORD
.WORD
_.WORD
.WORD

DLLMIC: .WORD

DLLM2C: .WORD

EMSGO=-MSGO
EMSG1-MSGT
EMSG2-MSG2
EMSG3-MSG3
EMSGL=MSG4
EMSG5-MSGS
EMSG6=-MSGH
0
EMSGB-MSG8

:BYTE COUNT OF MESSAGE #0
:BYTE COUNT OF MESSAGE M
:BYTE COUNT OF MESSAGE #2
:BYTE COUNT OF MESSAGE #3
;BYTE COUNT OF MESSAGE #4
:BYTE COUNT OF MESSAGE #5
:BYTE COUNT OF MESSAGE #6
:BYTE COUNT FOR OPERATOR SPEC'D MSG.
:BYTE COUNT OF RECEIVE BUFFER FILL PATTERN

DLLMZ2E-DLLM?

;:DLL MSG 2 COUNT

DLLMIE=-DLLM

;DLL MSG 1 COUNT

SEQ 65

002

0024 34
N

[=]
o
(&)
~
w

[«

O NNOWNES
S O0ONIWO

077401
NON = NSNS
N
= N = NN O
O
ON =PI
&~
S OVNO~NNVOWVO

BN
NES SN

NT NT NN, CLNT, ST ST, ST VTN B

o0
ON

OO
W~

OO0
~N&

WVIN

==
Wi

~NOVO

2O
POV
W

NO
o=

=0
OW

BNV
—=O =N
- SN NAVAN S WO
NN

O=20OCO
= 2O bt b
=S PN
=O =00
[o JVLIV . To JUIIV, P IV P L STV L V]
NOOWNOOWVO
=\~ H

—b = =
b
N 1,V]POPONIND

nsm:f .BYTE

252

002320
o
o

MNONOO~NO
WS

NS WNRINRIAIND
BN SRIN)
s = —b

RORO AN NI RINONOND

folelel=lelelelelo]
tolelalelelelatola]

RNOOCSNIOO SNIN

b —2OO0O0O~N~NN~N

2479

MSG2:

©oBYIE
HSGA::
D
(v]

377
wn

O
O

o AL BN HPITININ)
=D ed e od e od ed
(=] SOOSCOOONNOONIWVE

~N LNV

o [elel=lololelelelelolololelele Bl alelelolelelolelele]
O0O0OOCOCOOO00O
o olelelelolololalelololo) OO0
AURIRDROADRDRONININD
~n NOALNINLALALNININIPONIND FOROND

Y ele P e
P
e P Y e P
(e JV, IV, To W AV
L P o2 af
b
O =PI NO =2 NOW~
N
O = O NWNO WO WWWNO
NN =2 ANN NN S NN O
POAINIO
= O NS =2 N =2

~N)
-~
Po

~No

o
o

~N)
F

CZkMSAQ KMS11-BD/BE ] DCLT
23-DEC -82 13:54
CZKMSA.P1Y

[=lelelelelelels]

AONOS

(=]

OWVNWVINO
WV NN~
-, =t = O = O =4\ NN
N=OO
S OO =~
NN
=2 OO NWON

[eleololelelelelelole
o]
OOMNIWNVNANLIS SN N

ONVON SO (=]

002320

[e]elelelele]

¥ X ¥ o o
NI =t =t =t = OO~ oW w

o
o

AL AL NI NINIAYNINIAL NI
rurLRLRLAL
RO NI NUNY MLALALAAIALNIALAL
A WA VI N VW AWV
(O IV TV IV T I
YV L0V ] WA WAL
= b b b b b 2 0 = OO OOO
WAV
TV
S S 1 S, ¥ AVAUNINOANIN)
2 OO NOWV
W
=2O O
~yOr W PN
SN = OO~ OV

DMSGAD:

MSG
MSG
MSGé
MSGS

077577
EMSGS:

MSG6:

MSGO
MSG1

MSG6
OPBUF
MSG8

MSG5:
EMSGa:

.BYTE
000
:MESSAGE OF ALL 0'S

.BYTE

252

;MESSAGE OF ALTERNATING 1'S

JWORD

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

LMORD
040041,014116,052606,172334,105025,123756,111337,111523

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

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

ASCIL

:"'INTERPROCESSOR TEST PROGRAM'S (ITEP)'' MESSAGE
(DP1:)
: #1,
Q77> 77>/8A THE aufck BROWN FOX JUMPED OVER THE LA2Y DOG./

ASCIZ
7>
77A
7>
1><1
<155¢<12><0077>

JASCIT

377
125

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

+ADDR SS
+ADDR SS
sADDRESS
;ADDRESS

R SS OF MESSAGE #0
:
+ADD R SS OF MESSAGE W1

:ADDRESS OF MESSAGE {
;ADDRESS OF OPERATOR SPEC'D MSG.
;ADDRESS OF RECEIVE BUFFER FILL PATTERN

OF
OF
OF
OF

MESSAGE
MESSAGE
MESSAGE
MESSAGE

SEQ 66

;MESSAGE ADDRESS TABLE

#2
#3
#¢4
#5

;MESSAGE OF ALL 1'S
;MESSAGE OF ALTERNATING 0°'S
°CCITT'' 512-BIT (VS., 511 BITS) TEST PATTERN

/a8 z-()-o.-.oiz 456789:;<=>?3ABCDEFGH] JXLMNOPQRSTUVWXYZ/
°A%PHA-NUHER1(S (OR FUTURE COMM TURNAROUND MSG)

(ZKkMSAN KMST1Y
CIKMSA P

002514

MACY1®

& JnN

MMM
TIS

3:56

[To]e) [ValValval OoNO

057135

30A(1052)

PAGE 68
)
23-DEC-82
DEFAULT MESSAGE DEFINITIONS AN D TABLES

LASCIZ
EMSG6:

EVEN

W/INIA WY

SEQ 67

CZXMSAO xMS11=-BD/BE DCLT
23-DEC-82 13:54
CZKMSA.PT
25‘03
%gzg
25646

2547

%228

002514

002520

002642

047045

000122

2553

gggé

MACY1Y 30A(1052) 23-DEC-82 14:01 PAGE 69
DEFAULT MESSAGE DEFINITIONS AND TABLES
; 'Q"'t".Q'"'"""""t""'t't"t."""t'Q"t'l"t""tt"t"""
:THESE THREE STORAGE AREAS MUST NOT BE SEPARATED e
OPBFPT: .ASCII

OPBUF:

OPEND:

.BLKB

/XNXA/

82.

;BUFFER FOR OPERATOR SPEC'D MESSAGES

: THE ABOVE THREE LINES MUST BE KEPT TOGETHER

2550

2551
2552

040465

;

002642

002643

033

tttt""""t't"""""'t""""."t"t"tt't.t't"t't0""'.""'

MSG8:

EMSGS:

.BYTE

;RECEIVE BUFFER FILL PATTERN

SEQ 68

SAQ xMS11-BD/BE
P11

E
D(C LT

tC -82 13:5¢4

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 6

PAGE 70

DEFAULT MESSAGE DEFINITIONS AND TABLES

;eeveekMS11-BD/BE DOES NOT SUPPORT DOWN LINE LOADeevee
; DOWN=-LINE=LOAD MESSAGE OEF INITIONS

002643

002644

002645

002646
002647

002650

000

PASS1:

.BYTE

000
000

PASS3:
PASS4L:

.BYTE
.BYTE

PASS2:

000

002650
002651

000
000

002653
002654
002655

000
000
000

002652

DLLMY:

006

;s ENTER MOP MODE MESSAGE FORMAT
;é;égflf NODE WILL ENTER MAINTENANCE MODE ONLY [F THE PASSWORD MAT(CHES.

DLLMTE:
DLLM2:

006

.BYTE

SBINARY CODE FOR MAINTENANCE MODE

::VALUE IN BYTE 1 IS DUPLICATED MERE

0
0

"PASSWORD BYTE #1
s AND HERE
;s
:::sAND MERE.

SEND ENTER MOP MODE MESSAGE FORMAT

32 :MEMORY LOAD WITH TRANSFER ADDRESS MESSAGE fORMAT

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0
0
6
0
0
0

; CODE
;LOAD NUMBER
:LOAD ADDRESS LSB

;

002676
002702
002706
002710
002714
002716
002724
002730
002732

062700
105761
100375
112061
001372
012737
005037
000777
006412

002761

111

002740
002746
002756
002766
002774
003002

003005

046440
042507
051040
052523
043123
026440

116

003012

052040

003021

012

003020

003026
00303&
003042

003050

041

051056
020104
040522

000056

NOP
(LR
MOV

000006
001000
177560

)

;LOAD ADDRESS
;LOCATIONS (WORDS)

S 'LOADER'' IMAGE DATA

002656 000240
002660 005037
002664 012706
002670 012701
002674 010700

LEGAL VALUE 0 - 255

ard
#1000,5P
#177560,R1
P(,R0

SADDR

;006
:'BYTE COUNT"'
: (2640(8)=160.) ;010
1014
1020
SSET UP TTY
*MAKE ADDR.PIC ;026

000034
1%:
000004
000006
000026 000024
000026
047502 052117 MSG:

MOV
MOV
ADD
1518
8PL
MOVB
BNE
MOV
(LR
BR
LASCIT

020104

JASCI1

/1VED SUCCESSFULLY =E/

;
:

;026
SADDRESS MSG.
#CMSG=-,>,R0
1032
READY?
STTY
4L(R1)
;036
JWAIT TIL YES
19
: 040
(HAR
A
STYPE
)
(RO)+,6(R1
1064
:KEEP GOING
1%
JSETUP PWR FAIL 0646
826,3826
:ENSURE TBIT (LR;05¢6
anlé
S JMP ON YOURSELF ;060
.
<12><15>/B0O0T MESSAGE WAS RECE/ ;062

051505
053440
041505

0640523
051500
105

041503
046125
105

051505
054514

051505

02052¢

043117

JASCII

/ND OF TEST!!/

027015

027056

ASCI2

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

042526

020104

046105
051120
027115

040517
043517
027056

CONTENTS

000240
005037 000006
012706 001000
012706 177560
010700

062700
105761
100375
112061
001372
012737
005037
000777
006412

000034
000004

000006
000026 000024
000026
047502 .......

CZKkMSAD KMS11-BD/
23-D
CIKMSA. P11

3:54

MACY11 30A(1052)

23-DEC-82

14:01

SEQ 70

PAGE 71

DEFAULT " ME SSAGE DEFINITIONS AND TABLES
(USE

2610
2611
2612
2613
2614
2616

2617

:PADDING 10 0B

PART O

00305
00306
00306
0030
003
003116

.WORD

126361

DLLMZE:

>
JEVEN

126361

:U'CHECKSUM WORD''; 246

126361

000122

000000

MACY11 30A(1052) 2%-?5(-2% 14:01 PAGE 72
INTERPRETER BUFFER,LOCATIONS AND MESSAGES
COMMAND L INE

(MDBUF: .BLKB
KEYWD1: .WORD

82.
O

;BUFFER FOR OPERATOR (OMMANDS
;THIS LOC WILL =1 IF CLEAR TYPED, 2 FOR SHOW,

QUALFG: .WORD

;THIS LOC HOLDS QUALIFIER VALUE (SIZE OR (OPY)

Sur G

Par

[olole BNololelelelole
o)

QUALVL:
HLPTAB:

HLPEND:

purSurSur

RHLPTB:

— O

(VA
LV IV )
NN

)
—

.WORD
.WORD

WORD
LWORD
.WORD
WORD
.WORD

.WORD

RHLPEN:

(==l]

FY=Y
Yo X 2LV aTe W U ST
T WX NTe

[elelelelololalalelolaleldlot ol e
[elelalolelolalalolalololalelele]
W NN NN AN N N NN N NN NN
PV
ST ST VT ST ST ST ST SIS N1,V ST,V
OO O NNNNNOOOO
NN

e P o

~n) —

O
(=)=
WA

Fnla®l

CIKMSA 0 xMsS11-8 D/8t DC L
23-Dt (-82 1 3:5¢4
CIxKMSA, P

.WORD
.WORD

.WORD

.WORD
.WORD

SHTYTB: .WORD

O
HLPI

; A& IF RUN WAS TYPED, 5 [F HELP WAS TYPED

HLP?
HLPZB

HLP3
HLP3A

HLP&
HLPLA

HLPS

HLP6
RHLPI

RHLP?
RHLP3

SHTYP?
YP3,
SHTYP6,
,SHT
SHTYPS
TYP2
SHTYP4L,
SHTYPO,SHTYP1,SH

: THE LIST OF BYTES BELOW ARE THE FIRST BYTES OF THE PREDEF. INED MESSAGES
:

USED TO '"'SHOW'' THE TRANSMIT AND COMPARE BUFFER CONTENTS

SHTAB:

ol ol
ok o
(o 0 ol LR AN R
= O O~NN

= OO W
NN
Ow O ~NwNOO

& B NN\
N NN

le oo
al-aloal
ol s

cddd
s

—

) ol

[olelalelelele]

=l
wdd
ol
)
—

[elolelele)

NN NN

Rl
ew

340

(C IV IV IV IS

COO0O0

OOO0O00

OLOOO0O0

OO0 =lolale]

ANAN NN N [V]

SHTEND:

MODES:

.BYTE
.EVEN

.WORD

.WORD
LMPRD

LMORD

MO0

[0}
MO2

MO4

.WORD

MO6

.WORD

.WORD
.WORD
.WORD
.WORD

:ADDRESSES OF MODE TYPES IN ASCII

TM03

.WORD

LOOPS:

0,377,252.125,203,177,043

MOQS

LPO

LP
LP2
LP3}
LP&

:ADDRESSES OF LOOP TYPES IN ASCII

SEq 71

(2xMSAD kMS11-BD/BE DCLT
23-DEC=-82 13:5¢
(2xMSA. PN

%g;g

2679 003364
2680 003366
2681 003370
2682 003372
2683 003374

000000
000000
000000
000000
000000

2684 003376 000000
2685
2686

2687

2688

003400
003401
003402

2689 00%404

000
000

000

003404

000000

MACY1Y 30A(1052) 23-DEC-82 14:01 PAGE 73
COMMAND LINE INTERPRETER BUFFER,LOCATIONS AND MESSAGES

:COMMAND LINE TRAVERSE LOCATIONS (USED BY ‘'PSTRV'"
.WORD
.WORD
.WORD
.WORD
_WORD

0
O
O
O
O

PENNUF: .BYTE
P$GDBD: .BYTE

0
0

:LOC. TO HOLD ADDR. OF (MD LINE BUFFER
:L0C. TO HOLD ADDR. OF PARSING TREE
:L0C. 70 HOLD ADDR, OF ACTION ROUTINE
:LOC. TO BE A COUNTER LOCATION
:LOC. 1O HOLD NUMERIC VALUE FROM PARSE
:L9C. TO HOLD RADIX USED(LO) AND +/=(M] BYTE)
:RETURN =0 If ENOUGH OF (CMMAND FOUND
;RETURN CODE O IF NO ERKROR FOUND

sVALID LINE FLAG..IF SET =1 THEN VALID

P$BUFA:
PSTREE:
PSACT:
PSCNT:
PSNUM:

PSRADX: .WORD
WRFLG:

.BYTE

EVEN

VALTRB: .WORD

:WRITE FLAG

SEQ 72

001000
001000
001000

2697
2698
2699

006406
006502
006576

0000
0000
0000

2702

007536

27064
2705
2706
2707
2708

007536
007542
007562
007602
(007612
007622
007632
007634
007636
007640
007642
007644
007646

0003

RNt

OO
S

OO0
0O ~

NOOSNOO F

~N~

QO
-l
il e i b O
b
s
d
—

)
il
il
D
)
i
il
il
—

PTRTAB:

.BLKW
.BLKW
BLKYW
.BLKW

PTR13:
PTR23:

s TRANSMITTER BUFFERS
: COMPAR]ISON BUFFERS
SRECEIVER BUFFERS

MSGL [Me2

;TABLE FOR MESSAGE ADDRS. & BYTE COUNTS

MSGL [Me?
MSGL [Me2
MSGL IMe 207,

TRBTOT:
TRIBN:

INDW:
INDEX:
Cix:
CRX:

RSPTRS:
RSPIRE:
TSPIR:

TXSTAK:
RXSTAK:
RXSKEN:

000000

LNCNT:

002000

:
OPVARY

000000
000000
000000
000000
000000
000000
0NND00
000000

000000
000000

MPLY:

RXPIR:
TXPTR:

OPVAR:

PS(NT:

.WORD
.WORD
.WORD
.WORD

L]
L)

.BLKW

.BLK8
.BLK8
.8LK8
.WORD
+WORD
.WORD
.WORD
+WORD
.WORD
+WORD
.WORD
.WORD
.WORD

.
25252

;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

sCURRENT L INE NUMBER
;WORD INDEX
LBYTE INDEX FOR LINES
:COUNTER FOR TX BUFFLR COMPLETE INTERRUPTS

:COUNTER FOR RX BUFFER COMPLETE INTERRUPTS
:STACK POINTER FOR RX

INTERPUTS ON STA(K

:STACK POINTER FOR RX INTERPUTS OFF STA(K
:STACK POINTER FOR TX INTERRUPTS
.

TRIBLS:

BLKW
BLKW

VO OOOO0OOO0O0O—m00D000oNS

CPTRLS:
(PTTLS:
DVRCLS:
DVTCLS:

: COMPARE MESSAGE POINTERS
;RECEIVE MESSAGE POINTERS
;TABLE FOR MULTILINE POINTERS

: END OF MSG. PTR. TABLE

000000

(=)
o
[=)
o
o
o

(=4
o

b
ald
il

lelelelalelelele
Lo

[elelele

.BLKB

.WORD
.WORD
.WORD
CMPPIR: .WORD
C(MPTQT: .WORD
CT07(CC: .WORD
CCURAD: .WORD
.WORD
DVIXA:
+WORD
OVvICC:
.WORD
DVITB:
.WORD
DVI(T:
TXMTOT: .WORD
17107CC: .WORD
: .WORD
TCURAD
+WORD
DVRTB:
.WORD
DVRXA:
.WORD
DVR((:
OVR(T:
.WORD
RXMTOT: .WORD

(=]
(=4
o
(=4
(=]
o

(@]
O00O0O0O00O OOO00O000O000
ol i

—

e b

OO0OO0OO0

=2 O O®NO NS W

N AN NN NI PONINI NI NINIRNIN) b

PN N SN

1. L~ OB

BB B B

~ ~

» B

000000

0060
0062
0064
0066
0070

RXBUF:

BUFLIM
BUFL M
BUFLIM

000002
000010
000010
000010
000010
000010
125252
000000
000000
000000
000000
000000
000000

000006
000066

0052
0054

.BLk8

PTREND:

007656
007672
10050

TXBUF:

:
(MPBUF

SEQ 73

PAGE 74

14:01

MESSAGE BUFFERS AND POINTER TABLES

laleleleNelelclalelolelelelolalelelolalalelo
o)

006672

b b

—=2O OB NO VN

WA -0O0

b et b O

NNNNNNNVNNNNNNNNNNNNNNNNNNNNNNNNNNNNY

[o XV ¥ YV LVE Jo

ALAUALNUALRUALALAIALAL
NI NI
AL AL AL NV AL AN NIRLALNI ANV AL RNV NI NI NPV NN A

2700

23-DE7-82

;TX AND RX

INT

STACKS

SMULTIPLIER
SRECEIVER MESSAGE POINTER

s TRANSMITTER BUFFER POINTER

:CCMPAR|SON BUFFER POINTER
:CMP MSG TOTAL

; COMPARE BUFFER (MAR. COUN:

s CURRENT ADDR OF CMP BUFF TQ ADD AT
SDEVICE TX ADDR
TX (HAR COUNT
;DEV
LINE NUMBER (TRIBN)
—

003406
004406
0056406

30A(1052)

2592
2693
2694

MACY1Y

(aalaal

DC
CZxMSAQ KxMS11-BD/B
CIKMSA . P11
23-DE -8¢

;K MESSAGE
OTAL

COUNT

(HAR, C(OUNT
t
FER
Tx BUFF 10O ADD AT
JRECEIVE LINE (TRIBN)
<DEVICE RX ADDR
;DEVICE RX (HAR (OUNT
;DEVICE RX MESSAGE COUNT
; TOTAL NUMBER OF RX MSGS PER L[Nt

sCURRENT ADDR. OF

:NUMBER G* CPERATOR AWAKE MSGS
SHOLDER FOR OUDTIONAL VARIABLE (1)

;HOLDER FOR OPTION VARIABLE ()
sPASS (OUNTER

(IxMSAD xMS11-8D/BE D(LT
23-DEC-B2 13:5¢4
CIkMSA . P11

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

2747
2748
2749
2750
2751

010124
0101%6
010130
010132
010134

000000
000000
000000
000000
000000

ERR(NT:
STADD:
ENADD:
BYTB]T:
CLNSET:

,WORD
.WORD
.WORD
.WORD
.WORD

0
0
0

2753
27564
2755
2756
g;gg

010136
010140
010142
010144

000000
000000
000000
000000

ROIFLG:
FTLFLG:
TSSFLG:
OVR(NT:

.WORD
.WORD
,WORD
,WORD

O
0
O
O

2752

O
O

;ERROR COUNTER
;START ADDR.
:END ADDR. FOR DUMP

:BYTE BIT FOR DUMP ROUTINE
SCLEANSET FLAG SET AND CLEARED IN (LEAN UP

s INDICATES TO OUTPUT HANDELER THWAN NO OUTPUTS SHOULD
:BE PRINTED
;RQ] FLAG
sUSED AS FATEL ERROR FLAG
sUSED AS TSS FLAG
;USED FOR QUE OVERFLOW FLAG

SEQ 74

CIKMSAQ KMS11-BD/BE DCLT
23-DEC-82 13:54
CIKMSA. P
2759

%;g?
2762

010146

000000

2764

010150

000000

2763

2765 010152 000000
2766 010154 000000
2767 0°°156 000000

2768 010160 000000
2769

2770

2771
2772
277%
2774
2775

2776

010162

CPTRR: .WORD
,WORD
(PTR:
CURADD: .WORD

0
O
O

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

.WwORD

SOFFSET COUNT

TOTCC:

.WORD

TEMP:

.WORD

000000
000000
000000
000000
000000
000000

TEMP1:
TEMP2:
TEMP3:
TEMPL:
TEMPS:

0009200

010200

000000

2777 010202 000000
000
2778 010204
000
2779 010205

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

:OTHER MESSAGE RELATED STORAGE LOCATIONS
;TYPE OF oArA 0=0'S,1=1"5,2=10"5,3=01"S
O
MSGTYP: .WORD
4=CCITT,5=QUICK FOX,6=ALPHA/NUM,7=0PER
rx/nx/cnp CHAR COUNT
O
CURCC: .WORD

OFSET:

010164

010166
010170
010172
01017&
010176

MACY1? 30A(1052)

SAVSP:

.WORD
.WORD
_WORD
.WORD
.WORD

.WORD

CONOTM: .WORD
.BYTE
Goop:
.BYTE
BAD:

O
O
O
O
O

O
O
O

STOTAL CHAR COUNT NOT MORE THEN'BUFL M
: TEMPORARY LOCATIONS (USED A LOT)

:STACK POINTER SAVE AREA

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

SEQ 75

L
CIKMSAQ KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-82 13:5¢4

2781

g;g%
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794

2795
2796
2797
2798
2799

2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810

MACY11

30A(1052)

SEQ 76

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

¢MORE INDEPENDENT CODE STORAGE LOCATIONS
010206
010210
010212
010214
010216

900000
000000
000000
000000
000000

LOGUNT:
PCADD:
DCLFLG:
RESFLG:
MODTYP:

.WORD
.WORD
.WORD
.WCRD
.WORD

0
0
O
0
0

010220

000000

MLTYP:

,WORD

010222

000000

.WORD

010224

010226
010230

000002

000000
000000

FHDPLX:

PARAM:

RPASS:
FLAG:

.WORD

.WORD
.WORD

0
0

2811
2812
2813
gg}g

;LOC. TO HOLD LOGICAL UNIT NUMBER
;LOC. HOLD PC OF CALLING ROUTINE
;LOC. TO HOLD DO CLEAN FLAG 1 IF DOCLEAN INIT O [F NOT.
;LOC TO HOLD FLAG (=1) THAT A RESTART WAS GIVEN
;OCLT MODE OF OPERATION TYPE
:
(Q=REC-ONLY, 1=TX=ONLY, 2=PASSIVE-LOOPBK,
i
3=ACTIVE-LOOPBK, &=DOWN L.L., S5=TALK, 6=LISTEN)
;MAINTENANCE LOOP TYPE (0=NONE, 1=INTERNAL TTL,
;
2=CABLE, 3=MODEM-ANALOG LOOPBK (LOCAL),
:
&=MODEM=-DJGITAL LOOPBK (REMOTE), S5=MOP)

;FULL OR HALF

DUPLEX FLAG

(1=FULL FROM P-TABLE)

:PROGRAM PARAME TERS
; BITO= STATUS MSGS TO OPR PRINTED (1=YES)
: BIT1= DATA CHECKING DONE ON RCVD MSGS (1=YES)
: BIT2= ECHO (TRANSMIT) RCV'D MSG.(PASSIVE) (1=YES)
; BIT3= MODEM STATUS CHECK (1=YES)

: BIT4= CRC CALC./CHECK DONE (1=YES)
: B175= PROTOCOL EMULATION (1=YES)
; BIT6= SPARE
;PASS NUMBER FROM RUN COMMAND
;DEVICE FLAG WORD
;BIT0 = INPUT INT. RCC.
;BIT1 = OUTPUT INT REC
;BIT2 = RX QUED /COMPL
:BIT3 = TX QUED/COMPL
;BIT6 = EXPECT TO GET A RX COMPLED
;BIT7 = EXPECT TO GET A TX COMPLETED

sBITB = EXPECT INIT SYSTEM COMPLETED
;BIT9 = EXPECT SET LINE COMPLETED
;BIT10 = STATUS REPORT EXPECTED
;BIT11 = TRANSMIT TIMEOUT OCCURRED

2816
2817

gg}g

:MODE DISPATCH TABLE

2820
2821
2822
2823
2824
2825
gggg

010232
010234
010236
010240
010242
010244
010246

060736
060764
061022
061050
062324
062350
062602

MODE:

.WORD
.MORD
.WORD
MWORD
.WORD
WORD
MORD

RXONLY
TXONLY
PLCK
ALCK
DLL
TALCK
LISCK

;RX ONLY DISPATCH
;TX ONLY DJSPAT(CH
;PASSIVE LOOP BACK DISP
;ACTIVE LOOP BA(K DISP
+DOWN LINE LOAD DISP
;TALK MODE DISPATCH
;LISTEN MODE DISPATCH

2828
2829
2830
2831
2832
gggz

010250
010252
010256
010256
010260

000000
000000
000000
00007¢&
000000

CLKCSR:
CLKBR:
CLKVEC:
CLKHZ:
CLKEN:

.WORD
.WORD
.WORD
.WORD
.WORD

0
O
O
60.
O

:CLOCK CSR ADDRESS
sCLOCK INTERRUPT LEVEL
;CLOCK INTERRUPT VECTOR
;CLOCK®S HERTZ RATE
sCLOCK'S CSR VALUE TO INTRPT. ENABLE

2835
2836

010262
010264

000000
000000

TIMMIN:
TIMSEC:

.WORD
.WORD

O
O

sPLACE TO KEEP TIME=SINCE=START

né

CIKMSAQ kMS11-BD/BE DCLT

23-DeC-82 1 3:54

MWORD
WORD
TIMERS: WORD

0
0
O

000000

000000
000000
000000

TIMERY:
TIMER?:

[elole]

14:01

PAGE 7 8

CLOCK TABLES, EVENT LOG AND POINTERS
O

010266
1027
1027
1027

23-DEC-82

.WORD

TIMT(CK:

CIKMSA. P

MACY11 30A(1052)

;PLACE TO KEEP # OF TICKS/SEC
;EVENT TIMER #1 (TICKS))
SEVENT TIMER #2 (T1(KS DS)

“EVENT TIMER #3 (SECON

SEQ 77

CZKMSAQ KkMS11=-BD/BE DCLT
23-DEC-82 13:54
CZKMSA.P
2843

%gzg

2846

010276

010300

2847 010300 177777
2848 010302 000415
2849 01133¢ 000001

MACY1 30A(1052)

23DEC=82 14:01 PAGE 79
TABLES, EVENT LOG AND POINTERS

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

EVTILOG: .WORD
BLKW
EVIEND: .BLKW

#-1
269.
1.

SPEClFY EVENT LOG IS EMPTY
EVENT LOG BUFFER
*APPROXIMATE END OF EVENT TABLE (ALLOWS CIRCULAR QUE)

SEQ 78

B
CZKMSAQ KHS11§%D/BE DCLY
DEC-82 13:54
CIRMOA P

MACY11 30A(1052)

23-DEC-82

14:01

M DATA SECTION

PAGE 80

2853

2854

2855

2856
2857
2858

2859
2860
2861
2862
2863
2864
2865
2866

2867
2868
2869

2870
2871
2872
2873
2874
2875
2876

011336

000000

MODS:

.WORD

;MODEM STATUS

;TABLE OF MODEM SIGNAL BIT DEFINITIONS
011340
011342
011344
011346
011350
011352
011356
011356

000000
000000
000000
000000
000000
000900
000000

MOBITS: .WORD
.WORD

(TS
DSR

sCLEAR TO SEND (CIRCUIT (B)
:DATA SET READY (CIRCUIT CC)

.WORD

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

.WORD
WORD
.WORD
.WORD

MOBITE:

DCD
RTS
Rl
SQD

:DATA CARRIER DETECT (CIRCUIT CF)
SREQUEST TO SEND (CIRCUIT CA}
:RING INDICATOR (CIRCUIT CE)
:SIGNAL QUALITY DETECT (CIRCUIT (CG)

;TABLE OF ADDRESSES OF MODEM SIGNAL MESSAGE POSITIONS
011356
011360
011362
011364
011366
011370
011372

021613
021617
021623
021627
021633
021637
021643

MOMSGS: .WORD
.WORD
.WORD

JWORD

.WORD
.WORD

.WORD

EVMCTS
EVMDSR
EVMDCD

;CLEAR TO SEND (CIRCUIT (B)
:DATA SET READY (CIRCUIT C()
:DATA CARRIER DETECT (CIRCUIT CF)

EVMRI
EVMSQD

:RING INDICATOR (CIRCUIT CE)
;SIGNAL QUALITY DETECT (CIRCUIT (G)

EVMRTS
EVMTM

:REQUEST TO SEND (CIRCUIT CA)

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

SEQ 79

c
CZKMSAQ KMS11-BD/BE DC LY
23-DE(-82
113:54
CIKMSA. P11

2878
2879
2880
2881
288¢

PAGE 81
SOA( 05 2)
23-DDEC-82 14:01
NT DESCRIP TIOM MESSAGES LOCATIONS AND TABLES

;TABLE OF ADDRESSES OF EVENT DESCRIPTION MESSAGES

ORDER CORRESPONDS TO MESSAGE TYPE VALUES

2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895

011374
011376
011400
011402
011404
011406
01141C
01141¢
011414
011416
011420
011422

2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916

011424
011426
011430
011432
011434
011436

2896
2897

MACY1

0174640
017464
017513
017540
017566
017633
0175603
016417
017661
017716
01775
020022

EVILST: .WORD
.WORD
.WORD
.WORD
.WORD
JMWORD
.WORD

.WORD
"WORD
"WORD
"WORD
.WORD

EDTXQ
EDTXC
EDRXQ
EDRXC
EDDER
EDDVI
EDDCK

LPO
EDDLE
EDDDE
EDEOP
EDABO

;TRANSMIT MESSAGE QUEUED
:TRANSMIT OF MESSAGE COMPLETE
;RECEIVE MESSAGE SPACE QUEUED
;MESSAGE RECEIVED - RECEIVE (OMPLETE
;DEVICE INFORUATION
;DEVICE INITIALIZE STARTED
:DATA COMPARISON DONE
sNULL STRING
:DATA COMPARE LENGTH ERROR
:DATA COMPARE DATA ERROR
-END OF PASS
‘C ABORT

:LOCATIONS USED DURING EVENT REPORTING
000000
000000
000000
000000
000000
000000

EVISEC: .WORD

: TEMPORARY LOCS TO KEEP EVENT TIME WHILE REPORTING

EVTADD: .WORD
EVIBCT: .WORD
EVITMP: .WORD

0
0
0

:TEMP, LOC. TO HOLD ADDRESS DURING EVENT REPORTING
BYTE COUNT
**
.
.
!
'
** OTHER DATA
'
:

EVIMIN:
EVIT(K:

.WORD
.WORD

0
0

;REPORT CODING DISPATCH TABLE

025614
025614
025614
025614
025666
026316
026526
000000
026526
026446
026366
026366

RPTDSP: .WORD

RPTTXQ

;TRANSMIT QUEUED ENTRY DECODING

.WORD
.WORD
.WORD
"WORD
.WORD

RPTTXQ
RPTTXQ
RPTDER
RPTDVI
RPTDCK

;RECEIVER QUEUED ENTRY DECODING
:RECEIVER COMPLETE ENTRY DECODING
:;DEVICE ERROR ENTRY DECODING
:DEVICE INIT ENTRY DECODING
DAYA LOMPARISON ENTRY DECODING

2917
2918

011440
011442
011444
011446
011450
011452
011454
011456
011460
011462
011464
011466

RPIDLE
RPTDDE

DATA COMPARISON LENGTH ERROR
DAYA COMPARISON DATA ERROR

2921
2922
2923
%ggg

011470
011472
011474
011476

000000
000000
000000
(000000

DEV1:
DEVZ:

.WORD
.WORD

0
0

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

2926
2927
2928
2929
2930
2931

011500
011502
011504
011506
011510
011512

000000
000000
000000
000000
000000
000000

DEVS1:

.WORD

:TEMP DATA FOR STATUS REPORTS

LINEST: .WORD

:LINE NUMBER OF STATUS DATA

011514

000000

2919
2920

2932
2933

JWORD

.WORD

.WORD
.WORD

DEV3:
DEV4:

DEVS?2
DEVS3
DEVS4:

LMORD
.WORD

.WORD
.WORD
.WORD

ENRDST: .WORD
VSTAT: _WORD

RPTTXQ

RPTEOP
RPTABO

O
0

0
0
0

0
0

:TRANSMIT COMPLETE ENTRY DECODING

PLACE HOLDER

END 0f PASS
:‘C ABORT

:= 1 READ STATUS ENABLED. SET = 1 IN KSTARY
:= 0 READ STATUS DISABLED SET = 0 IN BGNCLN
:= 1 STATUS DATA IS VALID., SET = 1 [N LNSTAT

SEQ 80

(ZxKMSAQ xMS11-BD/BE DC DCLT

CZKMSA. P11
2934

23-DEC-82 13:54

2935 011516 000000

2936

MACY1Y 30A(1052)

EVENT DESC

g? E
DEC- 82

CNTCLN: .WORD

14:01

SEQ 81

PAGE 82

TION M ESSAGES LOCATIONS AND TABLES

0 STATUS DATA NUT VALID. SET = O IN KSTART

(OUNT OF EXCURSIONS THRU BGNCLN (ODE
:

SINCE LOAD OF DCLT PROGRAM

E
KHS\IE%D’BE DCLY
C(7xMSAQ
DEC-82 13:5¢4
CIKMSA.PY

MACY1? 30A(1052)

23-DEC-82

14:01

COMMAND LINE ACTION TREE

;SAMPLE CL! TREE NODE

WM 2O OO
WO
S WNNO ONOWVE
SOONO SO
OSSO0 NN SN

NNNNNNOOOOOOO0O
O NV

-.—.—O-‘—.—‘—.—.—‘—O—.—O—._l—.—‘-‘—‘—.—.—‘-fl—‘
_o—n—a.‘-‘—.-a-o—.—o—o—._.—a—._a.‘—o—a—._a—od

(el=l=l=lololelalolelelelalolalelalalalelole
o]

(ALWAYS AT LEAST 1 WORD)

! cnaa CODE !

PromIss DISPLACEHENT

ONLY IF *‘MISS‘' ARGUMENT DEFINED

NEXT NODE DlSPLHNT

ONLY [F ""ASCIITM ARGUMENT DEF INED

¢ TTASCIZ MATCH STRING
(.EVEN) !
. !

ONLY IF "ASCII" ARGUMENT DEF INED

011520

SEQ 82

PAGE 83

CLITRE:
;FIRST KEYWORD

N10$%:

NG2S:
Ne3S:

Ll
(Ll
Ll

CLI
Ll
(LI

CLISPA,O0,N10$
<'?> ,HLP,NGZS
CLIEX].O

CLISTR.HLP,N43S
CLIEX].O
CLISTR.PRNT NG4S

CLIEXI.O
CLISTR.EXIT,NGSS
CLIEXI.O
CLISTR RUN,N46S

NGSS:

Ll
CLI
(Ll
(LI

NG6S:

(LI

NGOS:

CL!
L
(LI

CLISTR, CLEAR,N&7 $,<'CLEAR">
CLIBR,NOTNUF .N10 o
CLISTR,NOTNUF ,N2 0%,<'LINE*>

CLI
Ll

<*$>,NOTNUF .N30$
CLISTR, SHOW N2S$., <'HOW'>

NGGS:

NG7S:
N20S:

N2SS:

N30S:

Ll
Ll

Ll
(LI
Ll

(LI

CLleR.é.Na <
CLISTR,NOTNUF ,N& 0%,<'DUMP*>
cLier,0,nN508

cLiBr,0,N1058°

cLisr,b ,n1008
CLISTR,O, 3os < €T
cLiBRr,0,N1108

(LIERR.6

;SKIP ANY LEADING SPACES

1S THE FIRST NON=SP CHAR A ‘2"
TIF YES DO "HLP'CAND EXIT
:
‘ELSE, IS FIRST WORD A "HELP'
:

IF'YES DO "HLP" AND EXIT

IF'YES DO "'RUN" & GOTO N8OS

SELSE, IS FIRST WORD A “PRINT'
S TF YES DO _"'PRINT®" AND EXIT,
SELSE, IS FIRST WORD A “EXIT’
: IF'YES DO TEXIT'' AND EXIT
SELSE, IS FIRST WORD A 'RUN'"

SELSE, IS FIRST WORD A ‘‘DUMP'
.
: IF'YES GOTO N8OS
AR'
SELSE, IS FIRST WORD A “‘CLE
: "TF'YES DO "'CLRTM & GOTO N100$
SELSE IS FIRST WORD LINE

JELSE, 1S FIRST CHAR. A ‘'S’
: TF YES 1S REST _OF WORD ''WOuW""
I YES, DO "'SHOW'.BR N100S
: ELSE, [S'REST OF WORD "I
:CTFCYES, DO U'SEI', BR N1108
SOTHERWISE “ILL CMDTM = EXIT

F
(ZKHSAO xns11-BD/BE DCLT

CIKMSA.P1Y

%g;g
011744

2981

011764

2982
2983
2984
2985
2986
2987
2988

011750
011770
012006
012012
012030
012034
012052
012056

2989 012074
2990

012100

2991
2992

012124
012130

2994

012152

2993
2995

30A(1052)

23-DEC-82

14:01

SEQ 83

PAGE 84

COMMAND LINE ACTION TREE

;SECOND KEYWORD (MODE=) FOR RUN COMMAND

2979

2980

23-DEC-82 13:54

MACY1Y

012136

012156

NBOS:

NB1S:

(LI

CLISPA,0,N308

:SKIP_LEADING SPS,

<'z>,0.N30%

chaa.6.~11ss

(LI

NB4S:

Ll
Ll
(LI
Ll
(LI
Ll
(LI

NBSS:

CLI

N828:
N83S:

NB6S:
N878:

CLISTR.NOTNUF ,N30$,<*MODE*>
CLISTRIATVMOD ,NB2S, < ACTIVE'>
cLIBR,0,N1158°
CLISTR,PASMOD ,N83$,<'PASSIVE'>
cLIBR,0,N1158
CLISTR,RECMOD ,NB4S,<'RECEIVE'>
cLier,0,N1158
CLISTRLISMD,NBSS,<'LISTEN'>

CLISTR,DLLMOD ,N86S,<" DOUNLINELOAD >

CLiBR,0,.N115%

Ll
(LI

TRAMOD ,NB7$,<'RANSMIT*>

CLISTR, TALMOD .N30S,<'ALK">

IS REST OF WORD '‘RANSMIT'’

1S REST OF WORD "‘ALKTM

012222
012224
012250

3009
3010

012252
012256

:SECOND KEYWORD (FOR SET)
N110S:
CLI
CLISPA,0,N30$
N1118:
CLI
CLISTR.SETEXP,N112%,<'EXPECTMSG®>

3012

012302

N1128:

012330
012334
012340
012344
012350
012354

:GET ADDRESSES FOR DUMP COMMAND
NSOS:
CLI
CLIALP,0,NS1$
N518:
CLI
CLISPA.O.N52$
NS2S:
(LI
CLIOCT.DMPS,N30$
Ll
<*=>,NOTNUF .N125$
L]
cLIOCT,DMPE N30$
Ll
<*/>,NOTNUF N125$

3011

gg}z

3015

3016
3017
3018
3019
3020
3021

3022
3023

012276
012324

012360
012366

cLigr,0,N1158°

3002
3003
3004

3005
3006
3007
3008

CLISTR:

;SECOND KEYWORD (FOR CLEAR OR SHOW)
N100S:
CLI
CLISPA,0,N30$

N106S:

SiS NEXT WORD “DOW..

IF vES, DO '‘DWNLL''.BR N115$
SIS NEXT CHARA ''T"

012174

N1028:

IF YES, DO "LISTEN",BR N115$

cLIBR,O,NT15S"
<'1>,0,N308

2999
3000

012200

IT'S WRONG -ERR -EXIT

Ll
(LI

012170

3001

"IF_NO,

:1S NEXT WORD '‘ACTIVE'*
"IF YES, DO '3ctlv5"BR N115%
1S NEXT WORD ''PASSIVE”
: TIF YES, DO ‘'PASSVE',BR N115$
+1S NEXT WORD 'RECEIVE”
Y TIF YES, DO "necv5" BR N115%
IS NEXT WORD "LISTEN"

2996

583;

IF NONE-ERR

;1S NEXT WORD “MODE=""

CLI

Ll
(LI
Ll

CLIEXL,O
CLISTR,CSHTRN,N30S,<'TRANSMITBUSF *>
CLIEXI.O

cLigr,0,N1208

CLIBR,0,N1208

Ll
Ll

CLISTR,SETTRN,N30$,<' TRANSMITMSG'>

<'8>.DMPQ NS08
cL1BR,0,Nf258

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

ERROR - EXIT

;SKIP LEADING SPACES, NONE=ERR

CLISTR.CSHEXP,N1048,<'EXPECTBUFF >

(Ll

CLI

"IF YES, DO ''TRANSM''.BR N115%

215 NEXT WORD "‘EXPE.

: IF YES, DO CLR-EXP, Exn
:1S NEXT WORD ‘'TRANS,
ST1F YES, DO CLR=TRN.EXIT
“IF NO - ERROR - EXIT

(1KMSAQ xn511-BD/8E DCLT

CIKMSAP11
3024

23-DEC-82 13:54

MACY1Y 30A(1052)

23-DEC-B2

14:01

PAGE 85

COMMAND LINE ACTION TREE

;QUALIFIERS FOR THE RUN COMMAND

CLI LP,0,N114$

012370

N115%:

3028 012612
012416
3029
3030 012432

N1168:

3033

012436

N1178:

N1188:

Ll
(LI
Ll

3038

012500

N130S:

(LI

3041

012520

N1328:

(LI

cLl

CLIBR,0.N1158

3044

012540

N1318:

(LI

CLISTR,O, N30$ <'LOOP*>

3025

3026

0123764

3027 012400
3031
3032

3034 012454
012460
3035
gggg 012474
ggzg 012514

ggz% 012534

3045 012554

N1148:

CLI

/> NOTNUF ,N1258

(Ll
(LI

NO NT168.<'NO*>
cLlsz
<'(>,0.N117

CLISfa cuecx 6N1178,< HECK®>
cLigr,0,n115

CLI

CLISIR srarus N1188,< STATUS®>

CLIBR.O,N
CLISTR écuo ~130s C'ECHO'>
cLiBr.O.N115S
CLISTR,0,N1328, C'PASS*>

cLiBr,0,N1508

CLISTR,MOSC,N1318,< MODEM®>

CLIBR,0.N140

SEQ B4

KHS11;%D/8E D(L
(ZKMSAQ

-DEC-82 13:54

CIKMSA.P

N120S:

gg:g
3050

3051
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
gggz

3052

3067

0125664

012600
012606
012622
012626
012642
012646
012662
012666
012702
012706
012722
012726
012762
012746
012766

N61S:

N62S:
N63S:
N6GS:

N6SS:

N66S:
N678:
.

%8;2 013022

N728:
N73$:

013002
013006
013012
013016

3076

3077 013024

3078

3079
3080
3081
gggg
3084

3085
3086

PAGE 86

013030

013034
013050
0130564
013070
013074
013100

3087 013104

CLI

<'=>,0,N30$

CLI

(L]
(LI
(Ll
CLI
Ll
(LI
Ll
(LI
Ll
(LI
Ll
(LI
Ll
(LI
Ll

CLISTR.CMSGT,N61S,<'ONES®>

cuisr,d,n1218
CLISTR,CMSGO,N628,<" ZEROES *>
cLiBR,0,n1218
CLISTR,CMSG2,N63S, < 1ALT >
cLisr,6,8121¢
CLISTR,CMSG3,N64LS,< OALT >
cLier,8,n1214
,
<" ITEP'>
CLISTR,CMSGS ,N6SS
cLisr,0,8121¢
CLISTR, CMSG4 , N66S,<* CCITT'>
cLiBr,0,n1214
CLISTR,CMSGS, N67S,<'ALPHA'>
cLigr,d,n121
CLISTR.SETET,N6BS,<' TRANSMIT'>
cL1BR,0,N125¢

LOOK FOR QUOTED MESSAGE

N68S:
N70S:

3070
3071
3072
3073

14:01

COMMAND LINE ACTION TREE

LOOK FOR DEFAULT MESSAGE NAME

N6OS:

012772
012776

3068
3069

23-DEC-82

SEQ 85

;GET MESSAGE TYPE FOR SET MESSAGE COMMANDS

3046
3049

MACY11 30A(1052)

N?18:

CLl
CLI

Ll
(LI
CLI
CL
L1

<*''> ,0PRMSG,N30%
<**'> ENDQO,N71$

CLIBR,0,N1218
CLISPA,0,N728
CLIALN.O.N73$
CLIBR,0,N708
CLIERR,BADCHR

SGET QUALIFIERS (SIZE OR COPY) FOR SET MESSAGE COMMANDS
CLIALP,0,N1238
N1218: CLI
<*/>,NOTNUF ,N125%
N1238: (LI

Ll
Ll
N1228: CLI
Ll

CLISTR,SIZE N1228,< SIZE">
CLIBR,O,N126S
CLISTR.OCOPY,N308,<'COPY*>
cLiBRr,0.n1268

:NUMER FOR SIZE OR COPY

N1268:

CLI
Ll

<'=>,0,N308
CLIDEC .NUM,N30$

L1sa.6 N121%

:ONLY A=7,SP,TAB, OR 0-9 BETWEEN '**'S
.
***S
fOR
(MAR
LEGAL
NONE
[f
:PRINT ERROR

C(ZKMSAQ KMS11-8BD
23CIKMSA. P11

N eg 3:5¢4
L

MACY1Y 30A(1052)

SEQ 86

PAGE 87

23-DEC-82
(OMMAND LINE ACTION TREE
14:01

—

[
]

[4]
L -4 (%] L o4
ob

]

(ZxMSAQ kMS11-8D/BE DCLT

C2xMSA. P

23-DEC-82 13:564

3124
3125

MACY1Y 30A(1052)

23-DE(C-82

3129

013372

3131
3132
3133
313¢
3135
3136
3137
3138
3139
%}2?

013374
013376
013376
013400
013402
013402
013404
013406
Q013406
013410

3130 013372

000000

SELO:

BSELO:

.WORD

.MORD
.WwORD

O
O

.WORD

000000
000000

BSEL1:
SEL?Z:
BSEL§:
B8SEL3:

000000
000000

BSEL4:
BSELS:

.WORD
.WORD

0
O

000000
000000

BSELG6:
BSEL7:

.WORD
.WORD

0
O

3143 013412 000000
31644 013414 000000
2145 013416 000000

INVEC: .WORD
OUTVEC: .WORD
INTPR]: .WORD

0
O
0

000000
000000

DEVPAR: .WORD
STATYP: ,WORD

0
O

000000

3142

3147
3148

PAGE 88

;DEVICE DEPENDENT STORAGE LOCATIONS FOR
: CURRENT DEVICE PARAMTERS

3126
g}%g

3146

14:01

DEvICE DEPENDENT LOCATIONS

013420

013422
0134264

%}gg 013426

000000

SELG:

OPTYP:

_WORD

MOD{SR: .WORD

;ADDRESSES OF REGISTERS SELO THRU BSEL?

:INPUT INTERRUPT VECTOR ADDRESS
sOUTPUT INTERRUPT VECTOR ADDRESS
s INTERRUPT PRIORiTY
;OPTJON TYPE

:CSR OF MODEM CONTROL MuXx (DM11-BA)

SEQ 87

C2KMSAO KMS11-BD/BE DCLT

CZKMSA. P11

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-82

14:01

DEVICE DEPENDENT LOCATIONS

3151

SEQ 88

PAGE 89

%{g%

; (KMS11-BD BUFFER DESCRIPTOR LISTS)

3154

;

eesecccccccccccsccccccccccacccce-

3156

eccecaccmscsceccccccccsccccccccea-

2155

%}2;

3159

2161

3160

1163

'‘BUFFER START ADDR

'#OF CHARS (14BITS)

1STATUS

;

ee=cecccmccecccecccccccccccecccsce

TTTmTemTommmsmmooomosmemmememesCALCULATE RDL MEMBER NUMBER

! MESSAGE #

31664
3165

013430
013432

000000
000000

BDLMNM: .WORD
BDLMAD: .WORD

O
O

3167
3168
3169
3170
3171
3172
3173
31764
3175
3176
3177

0134634
013444
013454
013464
013474
013504
013514
013524
013534
013544
013554

000004
000004
000004
000004
000004
000004
000004
000004
000004
000004
000004

RXBDL:

.BLKW
BLKW
BLKW
BLKW
.BLKW
BLKW
BLKW
BLKW
.BLKW
BLKW
BLKW

&
&
&
&
&
&
&
&
&
&
&

013574

000004

3155

Si78
3179
3180
31817
3182

g;gz

013434

013564
013604
013614
013624
013634

BDLBAS:

TXBDL:

000004
000004
000004
000004

BDLEND:

3185

013642

RXMIT:

000000

3191

3192 013644 000001 000002 000003 NAKX:
013652
013660

000010
000021

3197
3198

013664
013666

023075
023126

3202

013676

023235

3193
g}gg

3196

3199
3200
3201

3203
3204

3205
3206

013670
013672
013674

013700
013702

023155
023172
023215

023256
023306

&
&
&
&
&

000011
177777

000020

:LOC TO
:LOC TO CALCULATE BDL MEMBER ADDRESS
: MEMBER #1 (RX FOR LINE 0)
: MEMBER #2 (RX FOR LINE 1)
. MEMBER #3 (RX FOR LINE 2)
. MEMBER #& (RX FOR LINE 3)
. MEMBER #5 (RX FOR LINE &)

. MEMBER #6 (RX FOR LINE $)
: MEMBER #7 (RX FOR LINE 6)
: MEMBER #10 (8.) (RX FOR LINE 7)
. MEMBER #11 (9.) (TX FOR LINE O)
: MEMBER #12 (10.) (TX FOR LINE 1)
: MEMBER #13 (11.) (TX FOR LINE 2)
: MEMBER #14 (12.) (TX FOR LINE 3)
. MEMBER #15 (13.) (TX FOR LINE &)

. 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
:COUNT OF RESTART DDCMP COMPLETED

:COUNT OF KMS ERROR THRESHOLD REACHED RESPONSES

ERRTHR: .WORD

3188 013640 000000
g}gg

BLKW
BLKW
BLKW
BLKW
BLKW

ILLRSP: .WORD
START(C: .WORD

3186 013634 000000
3187 013636 000000

MEMBER ''N'*

:RETRANSMIT SPECIFIER

.WORD

<NAK REASON CODES

.WORD 1,2,3,8..9..16.,17.,-1

NAKMSG: .WORD
.WORD

JMORD
.WORD
.WORD
.WORD

JMORD
.WORD

;POINTERS TO NAK REASON MESSAGES

#NAKR1
#NAKR2

#NAKR3
#NAKRS
#NAKR9Y

#NAKR16

#NAKR17
#NAKROO

(ZkMSAO xMS11-BD/BE DCLT
23-DEC-B2 13:54
CZKMSA.PI
3207

3208

3209
3210
3211
%5}%

013704
013706
013710
013712

ERRTBL

000000
000000
000000
000000

SEQ 89

MACY1Y 30A(1052) 23-DEC-82 14:01 PAGE 90
MIZCELLANEOUS STORAGE FOR ERROR REPORTS

013704

ERRTYP::
ERRNBR: :
ERRMSG: ¢
ERRBLK::

WORD
WORD
WORD
.WORD

0
O
0
O

LSERRTBL::

mn
(=

SAO kMS11-BD/BE DCLT

A.P11

23-DEC-82 13:564

MACY11

30A(1052)
GLOBAL

23-DEC-82

TEXT

SECTION

14:01

SEQ 90

PAGE 91

MR 2

¢
;
s

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
MESSAGES, AND ASCII INFORMATION THAT ARE USED [N
MORE THAN ONE TEST,

LSBTTL

DEVICE SUPPORTED

: NAMES OF DEVICES SUPPORTED BY PROGRAM
013714
013714
013714
013722

DEVIYP

046513
042102

030523
041054

026461
000105

LSBTTL

3246
3248

013730
013730
013730
013736
013744
013752
013760
013766
013774

046513
046513
042102
040504
046517
047111
052123

LSDVTIYP::
LASCIZ

/xkMS11-BD,BE/

PROGRAM [DENTIFICATION

TEST DESCRIPTION
DESCRIPT

055103
020060
026461
020105
061440
046040
062524
014002

<KMS11-BD,BE>

040523
030523
041054
040524
027115
020113
000

<CZKMSAQ KMS11-BD,BE DATA (COMM. LINK TEST>
L$DESC::
LASCIZ

.EVEN
.EVEN

/CZKMSAQ kMS11-8B

awv

HZLor

— e O s<

O
—re

— At

—VNN
O

“6
101012
122102
41‘440
111121
qllfl‘SSS\I
11“0
115‘551111
00515002‘21
15005“2"121
15551
S‘S"0
1ll"S

MI N r——
ONONNO
NIONYAN
e e OOO0ON—
AN OOOOMOMOMANONOF

ocacawI>a
UaQaaca
+ ARNY —xO—nnM
OWuE eu—iN [NMMET
A2 M0
>2 222
OVMAaLAAVN>>
0004 Q.20naO
WWZ2Z2

TM
N NN N N N N N N N N N N N NN O O R N N N NN NN NN O N NNNNNNN s s e 8 NN

-0 T A<~ —t et ot o o & ) BN e
LSO —d
—r L > CLLL L W= E S ZE JICAL—

WdXOE [9La1¥]" [<4 ~<—X o—~

MMare I

-— o A

o w2 - < Q. W)=

WO NT—ryr

INFO
PAGE 92
23-DEC-82 14:01
GLOBAL FORMAT STATEMENTS , MESSAGES, AND ASCII

MACY11 30A(1052)
C
CZXMSAQ KMS11-8BD/BE DCLT
23-DeC-82 2 1 13:5¢4
CZKMSA.P1Y

BEX
NLIST

3253

SEQ 91

(ZKMSAQ KMS11-BD /BE t D(C L
23-DECC -82 13:5¢4
CZKMSA.P11

MACY1Y 30A(1052)

PAGE 93
14:01
23-DEC-82
GLOBAL FORMAT STATEMENTS, MES SAGES, AND ASCII

INFO

—_—

NZ26Ew UV~

FEfEoaIJsausaaacaacaaao

alal
L
S & CAlalalal
(A

—err= NN\ DY N

OO—VvVNOOre——_—0

SEQ 92

/ANXALLIS>/
/TLK>/
/THIS A 50. OR 6 0. HZ. LSI=11:/

; FORMAT STATEMENTS USED IN PRINT CALLS

SXSSXSSXA/XTIA/XTXA/XTXA/ X2
ATOTAL MISMATCHES IN MSG = XD5/

Ld -

SXACALLED FROM PC 206/
ACOMPARE COUNT 4] SYSIXARECEIVE COUNT 205/

;EVENT DESCRIPTION MESSAGES

R AN I & & -4

a&48l f—NeON

ANSMIT MSG QUEUE
NSMIT MSG COMPL
€ SPACE QUEV
€ MSG COMPLE
ERROR/
OMPARISON STARTED/

INIT AND SETUP/
OMPARISON LENGTH ERROR/

L~¢- ~w

(U R E

- O

QO2Z2 —Ode

L-unExXE

(=Y S

CIXMSAQO xMS11-BD/BE DCLT
23-DEC-82 13:54
(IZKMSA,PIY
017716

040504

017765

1017

017751

020022

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

040524

041440

EDDDE:

.ASCIZ

047102

051117

EDMOS:

LASCIZ

105

062116

041536

040440

047440

047502

EDEOP:

EDABO:

LASCIZ

.ASCIZ

/DATA COMPARISON DATA ERROR/
/END OF PASS/

/ABNORMAL MODEM STATUS (HANGE/

/*C ABORT/

;EVENT REPORTING MESSAGES

;THE FOLLOWING ARE USED IN THE DUMP SUB ROUTINE
_ASCIZ
.ASCIZ
ASCIZ

020033
020042
020051

045
051445
045

031523
022463
022516

047445
033117
033117

BASM3:
BASM?2:
BASMI

020057

045

02¢516

052101

NULEVT: ,ASCIZ

0325064

EVTF1:

022463
042523
033117

EVTF3: L(ASCIZ
EFT3C: .ASCIZ
EVIF3D: ASCIZ

046101
031517
047445
031517

EVIFL0:
EVIF4Q2:
EVTF43:
EVIF44:

020117
020215

065

020244

047045

020410

051445

020316
020330
020366

020446
020672
020507
020532

020546

022516 037101
022516

051445

022463

022663

033117

047045
040445
051445

051445
020040
0226463

051445
051445
045
051445

022463
0226463
031523
022663

051445

022463

052101

EVIFO:

.ASCIZ

EVIF2:

.ASCIZ

_ASCI2

EVIF3F: .ASCIZ

EVIF6:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ

/XS3x03/
/XS3X06/
/%NX06/

/XNXATHE DCLY EVENT LOG IS EMPTY/

/XNXA>>> DCLT EVENT LOG ENTRY <<<cCCCCCLCLCLLLLLLLLLLLLLLLLLLL</

/XNXDSXA:XZ2XA:%XZ2%XS3XT/

/XNXS3XAADDR OF MSG=X06XS3IXABYTE COUNT=%DS/
/XNXS3XTAN/
SELZ2 = %06/
/XA_ SELO_= XO6%A
/XS3X06XS3X06%S3%T1/

/XS3%06%S3 "6XS3XALINE NO.=X23/
/XS3XALINE NU. = X213/
/XS3X03XS6X0./
/%S3X03XS6X03%S6%03/
/XS3X03XS3XT/

/XS3YXATO-FROM LINE NO.=%23/

020600 047045

051445

022463

EVIF4LB: .ASCIZ

JINLSSLAPASS=XDSXSIYAERRORS=XD5XS3XANOBUF F S=2D5/

021143
021166

045
040445

022516
044516

051501
042516

EVIFS1: .ASCI]
JASCIZ

/XNXASTATUS REPORT/<15><12>
/XALINE NUM = %03/

021473

0645

022516

034523

EVMOCG: .ASCIZ

/XNXSOXACHANGED 10:/

020657
020761
021057

04 022516 031523 EVIF&: .ASCIZ
045 022516 031523 EVIFGA: ,ASCIZ
045 032523 040445 EVTFSA: ._ASCIZ

045
021207
0212664 047045
045
021341
021416 047045

022516
051445
022516
051445

031523
022463
031523
022463

EVIFS2:
EVIFS3:
EVIF~ .
EVIFS>:
:

021516 047065
021576
021613
021617
021623
021627
021633
01637
021643
021647

047065
130
130
130
130
130
130
130

000

051445

051445
040
040
040
040
040
040
040

.ASCIZ
.ASCIZ
ASCIZ
ASCIZ

/7XNXS3IXAADDR OF MSG=X06XS3IYABYTE COUNT=XDSXS3ZANO. OF CMP ERRS=XD5/
/XNXSIXAADDR OF MSG=Y06XS3IXARX BYTES=XDSXS3XACOMPARE BYTES=XDS/
/XSSXABYTE # IN MSG.=XDSXSIXAEXPTD=202XS3XARECVD=%03/
= %03/
= X03XSIXArLAGS
/XNXSIXASTATUS
%03/
=
MSG
TX
JINXSIXATEMP DATA = YO3XS3XALAST
%03/
=
RCVD
MSGS
X03XS3XA
/XNXS3IXAACKS RCVD =
JINYSIXANAKS SENT = XO3XS3IXANAKS RCVD = %03/

"t""'."""'Q""""""'"'t""tt"t't't'."!"""t't't".'t'

;DO NOT SEPARATE THE NEXT LIST OF MESSAGES - MODEM SIGNAL HEADER AND REPORT
022470 EVMOHD: .ASCIZ JINYSBXAMODEM STATUS: (TS DSR DCD RIS Rl SQD TM/
022471
040
040
040
040
040
040
040

EVMOST:
EVMCTS:
EVMDSR:
EVMDCD:
EVMRTS:
EVMRI:
EvMSQD:
EvVMTM:

.ASCII
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
_BYTE
.g;gg

/XNXSOXSIXSSXA/
'x,40,40,40
*X,40,40,40
'%,40,40,40
'X,40,640,40
*'x,60,40,40
*x,40,40,40
'x,40,40,40
0

SEQ 93

I AN
B
A
SN

Y
b
B SN i AN
SN

021730

021741
021752
021763
021774

30AC1052)

23-DE(-82

16:01
PAGE 95
CLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII

SEQ 94
INFO

;EXECUTION STATUS MESSAGES TO BE PRINTED TO KEEP OPERATOR AWAKE

s ALY =

[elelelelololelolole]

021650
021653
021664
021675
021706
021717

MACY1Y

Ll 2k 2k aE ok 2F ok iV P ol
OO 2O &~ OMNONO
NESNES NSNS — B
OHrOrosfrorhosr

ooV
ONNVO
AN AN LN
AN DINANO

23-DEC-82 13:54
NN ANRNIANNOAN
=R — ) =2 P) —
N NN
NO

CIKMSA P

D(LT

[eleleloleleolelolelo)]

(ZxMSAQ kMS11-BD/BE

CR:

JASCIZ

/IN/

;CR FOR LINES IN A ROW

STx(C:

LASCIZ

/XS3XATXC/

:TX COMPLETED

STxQ:

SRXQ:
SOVE:
SC(M:
SDVI:
SCML:
SCMD:
SEOP:

SMSC:

LASCIZ

ASCIZ
ASCIZ
CASCIZ
ASCIZ
JASCIZ
CASCIZ
JASCIZ

.?SE&Z

.tV

/XS3XATXQ/

/XS3TARXQ/
/XSIXAERR/
/XS3XACMP/
/7XSIXAINL/
/%S3XACML/
/XS3XACMD/
/XS3IXAEQOP/

/XS3IXAMSC/

;ABOUT TO TRANSMIT

¢ABOUT TO RECEIVE
:DEVICE ERROR
;ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD
sDEVICE ABOUT TO BE INITIALIZED
: COMPARE LENGTH ERROR
: COMPARE DATA ERROR
+END
OF PASS

sMODEM STATUS CHANGE

MO ISP
NS B BTOND
OO
2O
200
O =2 OWVAIWN—
—
— d el e e b O CONIND
NSNS
N = =2 =B NN

;DEVICE ERROR MESSAGES
[elelelolelelolelele]

022006
022032
022075
022147
022223
022275
022330
022361

;DEVICE ERROR MESSAGES FOR CONDITIONS REPORTED BY KMS11

DVEM33:
DVEM34:

_ASCIZ
ASCIZ
.ASCIZ
,ASCI]
CASCIZ
.ASCI]
LASCIZ
,ASCIZ
,ASCIZ

/DDCMP RESTARY RECEIVED/
/KMS TIMEQOUY WAITING FOR RESPONSE TO Tx/
/KMS TIMEOUT. NO RESPONSE TO START MSG/
/71X THRESHOLD REACHED/
<15><12>/ LINE NO
NAK REASON/
/Tx REJECTED BEFORE COMPLETION/
<15><12>/ LINE NO
BDL NO/
/XMS TIMEOUT WAITING FOR (SR INPUT/
/KMS TIMEOUT. CSR OQUTPUT NOT ACCEPTED/

040505

042504

NAKR1:

ASCIZ

:NAK REASON MESSAGES
/HEADER BLOCK CHECK ERROR/

AN =2 AN =t O AN
PIND =) =N 5N —
B2

BNV
O

023075

<15><12>/ LINE NO
B8DL NO/
/ILLEGAL RECEIVE COMPLETE/
<15><12>/ LINE NO
80L NO/

DVEM11:
DVEM14:
DVM14B:
DVEM15:

SN
WN

022465
022514
022563
022631
022655
022705
022742
022766
023030

LASCIZ
.ASCI]
LASCIZ

/KXMS FAILED TO START/
/KXMS 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/
/xMS DID NOT RESPOND TO RQI/
/ILLEGAL TRANSMIT COMPLETE/

QOOOO0O0OO0O00

022437

DVEMS:

.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
,ASCI]

[eolelelelolelalels
POND SSPIUNVADWNN
S~
OO
OOO—2O—
— wcd O =t O b AN =2\ N
PIND SN = N=NO
WIANO
O NI O I

022407

DVEMO:
OVEM1:
DVEMIA:
DVEM1B:
DVEMZ2:
DVEM3:
DVEM4:

;DEVICE ERRCR MESSAGES FROM ERRORS DETECTED IN PDP-11

DVEM17:

023126

04050¢

060524

041040

NAKRZ2:

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

.ASCI7

/MESSAGE TOO LONG/

023256

061515

020107

062510

NAKR17:

_ASCIZ

/MSG HEADER FORMAT ERROR/

(2xMSAD KkMS11-BD/BE DCLT

CIKMSA, P11

OO N NN
= OV ~NO VN

NN LN AN AN LN NN
1T
1.1, ¥1. V1. V1. ¢]

023306

23-DEC-B2 13:5¢4
040516

020113

MACY1? 30A(1052)
042522

23-DEC-8B2

PAGE 96

GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO

NAKROO: ,ASCIZ
LIST

14:01

LEVEN
BEX

/NAK REASON NOT RECOGNIZED/

SEQ 95

CZXMSAQ xMS11-8D/BE DCLT

CZxMSA, P

-DEC=-82 13:54

14:01

PAGE 97

: THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS

: USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR [NFORMATION. PRINTB
: (BASIC) AND PRINTX (EXTENDED) CALLS ARt USED TO CALL PRINT SERVICES.

3264
gggz

3272

23-DEC=-82

GLOBAL ERROR REPORTY SECTION

SEQ 96

3262

3263

3267
3268
3269
3270
3271

MACY1Y 30A(1052)

BGNMSG

023340

3273 023340
3274 023340
3275 023340
3276 023342
3277 023346

005046
153716 010205
005046
3278 023350 153716 010204
3279 023354 013746 01C162

ERR?

PRINTB W#EVIFSA,OFSET,<B,GO0OD>,<B,BAD>

3280 023360 012746 021057

ERR1::
INDIVIDUAL DATA COMPARE ERROR
=(SP)
(LR
BAD,(SP)
B1SB
-(SP)
(LR
600D, (SP)
BIS8
OFSET,=(SP)
MOV

3285

023400

3286 023400

ENDMSG

L10001:

%ggg 023400 104423

3289

BGNMSG

023402

3290 023402
3291 023402

3292 023402 013746 010174

3293
3294
3295
3296
3297
3298
3299
%gg?

023406
023412
023416
023420
023422
023426
023426
023426

3302

0236430

3305
3306
3307
3308
3309
3310
3311
3312
3313
3314

023430
0234636
023436
023442
023446
023450
0234952
023456
023656
023456

3303 023430
3304 023430

3317

012746 017266
012746 000002
010600
104l
062706 000006

ERR?

PRINTB W#EFM2,TEMPL

ENDMSG

BGNMSG

104423

010172
017363
000003

000010

MOV
TRAP
ADD

SP,RO
($SPNTB
#12,SP

ERR10

PRINTB #EFM11,R4,TEMPS

FNDMSG

TRAP

84 ,=-(SP)

C$MSG

ERR2::
:TOTAL DATA COMPARE FAILS ERROR

MOV

1L10002:

104423

013746
010446
012746
012746
010600
104414
062706

#EVIFSA,=(SP)

MOV

3281 023364 012746 000004

3282 023370 010600
3283 023372 104416
32864 023374 062706 000012

MOV

TEMP4L ,=(SP)

MOV
MOV
MoV
TRAP
ADD

#EFM2 ,-(SP)
#2,-(SP
SP,RO
(SPNIB
26,5P

TRAP

C$MSG

ERR10::
;LENGTH COMPARISON ERROR
TEMPS,=(SP)
MoV
,=(SP)
R4
MOV
FEFMIY ,=(SP)
MOV

L10003:

MOV
MOV
TRAP
ADD

#3,-(SP)
SP.RO
($PNTB
#10,5P

TRAP

($MSG

(PRINT SELO = XxxXXX SEL2 = XXXXXX WITH VALUES FROM TEMP4L, .5

(ZKHSAO KMS11-BD/8BE DCLY

(IXMSA.P1Y
31318

3319

3320
3321
3322
3323
3324
3326
3326
3327
3328
3329
3330
3331
3332
3333

3334

3335

3336

3337

23-DEC(-82 13:5¢4

023460

023460
023460
023460
023464
023470
(023474
023500
023502
023504
023510
023510
023510

013746
013746
012746
012746
010600
104414
062706

010176
010174
020330
000003
000010

(023512

023512

1139 023514

23-DEC-82

14:01

GLCBAL ERROR REPORY SECCTION

005046

153716 010173

SEQ 97

PAGE 98

BGNMSG

ERR13

PRINTB

WEFT3(,TEMP4L,TEMPS

ENDMSG

ERR13::

L10004:

104423

023512

3338 023512

MACY1Y 30A(1052)

3348
3349

3350
3351

023530
023532
023534
023540
023540
023540

010600
104414
062706 000006

023542

023542
023542
023542 005046
(023544 153716 010174
023550 005046

33659
3360
3361
3362

(023562
023566
023570
023572

3363

023576

3364 023576
3365 023576

104423

C$MSG

MOV
MOV

MOV
TRAP
ADD

ENDMSG

L10005:

BGNMSG

PRINTB

TEMP3+1, (SP)

BEVTFLO,~-(SP)
#2,=-(SP)
SP,RO
(SPNTB
#6,5P

TRAP

($MSG

(LR
BlsB
(LR

-(SP)
TEMP4, (SP)
-(SP)

MOV
MOV
TRAP
ADD

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

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

WEVTF4L2,<B,TEMP3¢1> ,<B,TEMPL>

B81$B
MOV

ENDMSG

-(SP)

ERRZ2?

3357 023592 153716 010173
3I58 023556 012746 020472

012746 000003
010600
104414
062706 000010

TRAP

8Is8

104423

3352
3353
3354
3355
3356

TEMPS ,=(SP)
TEMPG ,=(SP)
#EFT3C,=-(SP)
#3,-(SP)
SP,RO
C$PNTB
#10,SP

: PRINT "LINE NO = '* FOLLOWED BY OCTAL BYTE IN TEMP3e1
BGNMSG ERR1&
ERR1G: :
3+1>
,<B,TEMP
WEVTF4LO
PRINTB
(LR

3340 023520 012746 020446
3341 023524 012746 000002

3342
3343
3364
3345
3346
3347

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

L10006:

TRAP

TEMP3 1, (SP)
BEVIF4L2 ,=(SP)

($MSG

C2xMSAO kMS11-BD/BE D( L 1
23-DE(-82 13:54
CIKMSA. P
3367

3368
3369
3370

3371
3372
3273
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3I8L

3285
3386
3387
3388
3389

3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400

023600
023600
023600

023600
023602
023606
023610
023614
023616
023622
023626
023632
023634
023636
023642
023642
023642
023644
023644
(023644

023644
023650
023652
023656
023662
023666
023670
023672
023676
023676
023676

MACY1Y

30A(1052)

23- DEC-82

BGNMSG
PRINTB

005046
153716
005046
153716
005046
153716
012746
012746
010600
104414
062706

14:01

GLCBAL ERROR REPORT SECTION

THREE OCTAL BYTES [N TEMP3e1, TEMP4, TEMP4Le
:
PR;NT
ERR23::
>
<8,YEMP601
<B,TtMP6>,
OEVTF‘S,(B,YEHPS’1>,

1046423

-(SP)

(SP)
1, &L
TEMP

=(SP)
TEMPL, (SP)
=(SP)

TEMP3e1,(SP)
NEVTFLS, =(SP)
#6,=-(SP)

SP,RO
CSPNTB

212,sP

ENDMSG

L10007:

104423

013746
005046
153716
012746
012746
010620
104414
062706

SEQ 98

PAGE 99

010174

BGNMSG

ERRZL

PRINTB

BEVTIFLL ,<B,TEMP3 1>, TEMPS

ERR2GL:
MoV

TEMP4L ,=(SP)
=(SP)

MoV

BEVIF&LL ,~(SP)

(LR
81s8
MoV

MOV

ENDMSG

($MSG

:PRINT 1 BYTE FOLLOWED BY MESSAGE POINTED TO IN TEMPS

010173
620532
000003
000010

TRAP

L100'0:

TEMP3+1,(SP)

#3,-(SP)
SP,RO

(SPNTB

TRAP
ADD

#10,SP

TRAP

($MSG

OO
OO

MACY1Y

[e R pX @ Te Yo Yo To Yo To JNe B

o alo Yo Yo To Jo To

OO == =NOWVO
NS OMNININN
NN
NEOPONNNONO
O=OP D

O—0O000-—0~—0

PO
= = NOWVO
N S OMNININHNW
NEOONNNONO
O=OIE
=l

PRINTB

ERR2S

ERRZ2S:

JPRINT
& STATUS BYTES FROM TEMPS, Ienps

WEVTFS?2, <8 TEMP4L)> ,<B,TEMPL+
1>

-(SP)

010175

Y, (SP)
TEMP4L
-(SP)
TEMPG, (SP)

010174
021207
000003
000010

NEVTFS?,=(SP)
83%,=(5P)

SP,RO
C$PNTB

PRINTB

810,5p

#EVIFSY, <B,TEMPS> ,<B,TEMPS+ 1>

=(5P)

010177

TEMPS+1,(SP)

=(SP)
TEMPS, (SP)

010176
021264
000003
000010

SEVTIFS3,-(SP)
#3,-(SP)

SP,R0O
($PNTB

#10,5p

ENDMSG

L10011:

10442 3

00016 14
17777 2

SEQ 99

30A(1052)
23=D
DECGLCBAL ERROR REPO

BGNMSG

O—=000—=0
=0

NNO O \NWNE S NNWNWNINININA
= -2 O 000
COLNNOSOITNO S SOOI OONNOO

OO
OO00O0O0OOOO0O0OOODO0O0OO0O0OOOOOOD

3621
3422
34623
3424
3425
3426
3427
3428
3429
3430
3631
3432
3633

OO0

3420

LaSIAR
LA ST

3L
3402
3403
3404
3405
3606
3407
3408
3409
3410
3611
3412
3613
3414
3415
3616
3617
3418
3419

S 1o ST N1 N1 N NT ST NT ST NI NI ST N NT ST NT ST T, CT VT, OI V1, C I v

(ZKHSAO KMS11-BD/BE D(C LT
(ZKMSA P11
23-DEC- 82 13:54

ExlT

MSG

CIKMSAQ kMS11-BD/BE DCLT

CIKMSA.P1Y

23-DEC-82 13:5¢4

23-DEC-82

MACY1Y 30A(1052)

14:01

GLCBAL SUBROUTINES SECTION

. THME GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

: THAT ARE USED IN MORE THAN ONE TEST.

3435

%2%9
3438

3439

%:2?

LSBTTL

3442

s e

3444
3445
3646

;
:
:

CLOCK SETUP SUBROUTINE

3443

: FUNCTIONAL DESCRIPTION:

3448

3450

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

LINE OR P-CLOCK IS FOUND.

; INPUTS:

3449

%225

R1= POINTS TO SUPERVISOR SPACE WHERE CLN(K INFO WAS RETURNED

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

3653

: IMPLICIT INPUTS:

3456

: QUTPUTS:

3458
3459

:
:

§2gg

3457

3460

gzg;
3663

3,67

023776

3,72
3,73
34,74

0264006
024010
024012

023776
024000
024002
024006

012122
012112
006312
006312

006312
006312
006322

3675 024014 012122
3,76 0264016 012122
3477

024020

000207

THE SUPERVISOR SPACE WHERE CLOCK INFO wAS RETURNED BY THE '"(LOCK'® CALL

“CLKCSR' GETS LOADED WITH THE CLOCK'S CSR ADDRESS

“CLKBR'* GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL
“CLKVEC' GETS LOADED WITH THE CLOCK'S INTERRUPT VE(TOR

“CLKHZ" GETS LOADED WITH THE LINE FREQ. (HERTZ RATE) wWHICH DETERMINES
THE NUMBER OF TICKS IN A SECOND

: CALLING SEQUENCE:
CLKSET:

gzgg
TL68
34,69
34,70
3,71

SEQ 100

PAGE 101

3634

3466

JSR

PC,CLKSET

sCALL CLOCK SETUP WITH R1 & R2 SETUP

MOV
MOV
ASL
ASL

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

;LOAD CLOCK'S CSR ADDR. INTO ‘‘CLKCSR'
SLOAD CLOCK®S INT. LEVEL INTO “'CLKBR
:ADJUST THE INT, LEVEL FOR LOADING INTO
THE PSW WITH A ‘"SETVEC'' CALL
:

MOV
MOV

(R1)+,(R2)
(R1)e,(R2)¢

;LOAD CLOCK'S INT. VECTOR INTO ‘‘CLKVEC
SLOAD CLOCK®S MERTZ RATE INTO "‘CLKW?Z

ASL
ASL
ASL

RTS

(R2)
(R?)
(R2) ¢

(2kMSAQ KMS11-BD/BE DCLT
CZKMSA.PIY
23-DEC=-82 13:5¢4

MACY1Y

30A(1052)

%zgg

LSBTTL

3481
3482

Xy
: FUNCTIONAL DESCRIPTION:

3484
3485
3486

:
:
:

34,83

gzgg

s
:

3492

2494

34691

3493

THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE WHI{H TAKES CARE OF
INTO THE EVENT LOG.

IMPLICIT INPUTS:
TIMTCK: THE CURRENT NO. OF
CLKMZ:

gzgg

CLOCK INTERRUPT SERVICE ROUTINE

KEEPING THE '‘TIME=SINCE=START'' AND COUNTING DGWN ANY OF THE
“EVENT'' TIMERS, THE TIMERS ARE USED TO TIME COMPLETION OF
DEVICE
REQUESTS. THE '‘TIME=SINCE=START'' [S USED 70 BE LOGGED WITH EACH ENTRY

3489
3490

THE NO. OF TICKS IN A SECOND, DETERMINED BY THE
IN MINUTES & SECONDS

P IMPLICIT OUTPUTS:

ggg?

:
:

NEW VALUE OF EVENT TIMER °'1°' DECREMENTED BY 1 TICK
NEW VALUE OF EVENT TIMER ''2'‘ DECREMENTED BY 1 TICK

NEW VALUE OF EVENT TIMER ''S'*

3502

FUNCTIONAL SIDE EFFECTS:

3505
3506

:
:

CALLING SEQUENCE :
HIS ROUTINE

3507
gggg

3510
3511
gg}%

024022
024022

3514
3515
3516
3517
3518
3519
3520
3621
ggg%

024022
024026
024032
024034
024042
024046
024054
024056
024062

005077
005337
001015
013737
005237
022737
001004
005237
005037

164222
010266

3524
3625
3526
3527
3628
3529
3530

024066
024072
024074
024100
024104
024106
024112

005737
001402
005337
005737
001402
005337
005737

010270

1%:

010270
010272

2%:

010272
010274

1632

024120

023737

010256

005337

010274

3531

3533

3534

024116

024126

024130

001406

001002

010256
0102664
000074

010266
010264

010262
010264

010266

SYS. LINE FREO.

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

3697

%%82

TICKS LEFT TO BE COUNTED UNTIL A SECOND

MAS BEEN CGUNTED OFF

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

3498
3499

SEQ 101

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

[F
IfF

IT WAS NON=ZERO
T WAS NON=2ERO

DECREMENTED BY 1 SECOND IF IT WAS NON=ZERO

THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING
1S CALLED WHEN THE

CLOCK

.
.
INTERRUPTS THRU °‘‘CLKVEC''.

rus ADDRESS OF THIS ROUTINE WAS LOADED INTO THE CLOCK®S INTERRUPT
VECTOR WITH A SUPERVISOR ‘'SETVEC'' CALL.

BGNSRV

CLKINT

CLR
DEC
BNE
MOV
INC
CMP
BNE
INC
(LR

aCLKCSR
TIMICK
1%
CLKHZ,TIMTCK
TIMSEC
#60.,TIMSEC
1%
TIMMIN
TIMSEC

:DISABLE THE CLOCK FORM INTERRUPTING
:DECREMENT THE # OF TICKS/SEC.
;G0 CHECK TIMERS (182-TICKS, 3=-SECONDS)
¢RESET THE # OF TICKS/SEC.
:INC # OF SECS=SINCE-START
:SEE IF WE'VE COUNTED 60 SECS. YET
;1F NOT, GO CHECK TIMERS
; ELSE INC MINUTES=SINCE-START
; AND RESTART SECOND COUNTER

ST
BEQ
DEC
3
BEQ
DEC
181

TIMERY
2%
TIMERY
TIMER2
18
TIMER?
TIMERS

;SEE IF TIMER #1, TIMING ANYTHING
: JF=0, NOTHING BEING TIMED CHECK NEXT
: ELSE DECREMENT THE TIMER VALUE (BY 1
:SEE IF TIMER #2, TIMING ANYTHING
: 1F=0, NOTHING BEING TIMED CHECK NEXT
: ELSE DECREMENT THE TIMER VALUE (BY 1
:SEE IF TIMER #3, TIMING ANYTHING

(MP

CLKHZ,TIMTCK

2SEE |f A SECOND HAS BEEN COUNTED OFF

BEO

BNE

DEC

133

TIMERS

CLKINT::

IF=0,

TIMER
TICK)
TIMER

T](K)

NOTHING BEING TIMED, LEAVE

: BR IF NO

: ELSE DECREMENT THE

TIMER VALUE

(BY 1

SEC.)

L
(ZKMSAQO KXMS11-BD/BE DCLT
CZkMSA.P1
23-DEC-82 13:5¢

3935
3536
3537
3538

024134
024142
Q24142
024142

013777
000002

010260

MACY11

30AC1052)

23-DEC-82
14:01
PAGE 103
.
(LOCK INTERRUPT SERVICE ROUTINE

164106

4$:

MOV
ENDSRvV

CLKEN,@CLKCSR

SEQ 102

;REENABLE THE CLOCK TO INTERRUPT

L10012:

RTI

CIKMSAQ KMS11~BD/BE DCLT
CIKMSA.P11
23-DEC-B2 13:54

MACY1!

30A(1052)

SEQ 103

23-DEC-8B2
14:01
PAGE 104
EVENT LOG SUBROUTINES

§gzg

LSBTTL

3541
3542
3543
3544
3545
3546

XY
: FUNCTIONAL DESCRIPTION:
:
THIS SUBROUTINE HAS A DIFFERENT ENTRY POINT
:
FOR EACH EVENT TO BE LOGGED AND ALWAYS PRINTS
:
THE SHORT "'OPERATOR AWAKE' MESSAGE TO CONSOLE THEN LOGS THE
;
EVENT TYPE, TIME, AND THE OTHER 3 WORDS OF INFO PASSED TO THE

3549
3550
3551
3562

*
:
:
:

ggzg

%222

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 #2 OF EVENT LOG INFORMATION

TEMP4: WORD #3 OF EVENT LOG INFORMATION

3565
3554
3557

t OUTPUTS:
:
'OPERATOR AWAKE'* MESSAGE SENT TO THE CONSOLE
:
NEW EVENT LOGGED IN “‘EVTLOG'* (EVENT LOG)

3560
3561

:
:

FUNCTIONAL SIDE EFFECTS:
TEMP:
USED TO STORE ADDRESS OF ''OPERATOR AWAKE'' MESSAGE

:
:

CALLING SEQUENCE:
JSR
PC.LOGTXQ

%223

%22%

3564
3565

UPDATED "EVTPTR'' (EVENT LOG ENTRY POINTER)

TEMP1:

222?

3568
3569
3570
3571
3572
3573
gg;g

;
s
024146
024144
024152

024160

012737
012737

021653
000000

010166
010164

012737
012737

021664
000002

010166
010164

000522

3576
3577
3578

024162
024162
024170

024176

000513

3581
3582
3583

024200
024200
024206

012737
012737

021675
000004

010166
010164

gggg

3586

024214

024216

000506

3587

024216

012737

000006

010164

3589
3590
3591

024226
024226
024234

012737
012737

021706
000010

010166
010164

3588

3592

024224

024242

000500
000474

LOGTXO:

LOGTXC:

LOGRXQ:

LOGRXC:

LGDVE:

USED TO SETUP THE VALUE OF THE "EVENT TYPE'' BYTE FOR LOGGING

JSR

PC,LOGCMP

MOV
MOV

#STXQ, TEMP1
#T1xQ, TEMP

;CALL THE LOG_EVENT SUBROUTINE WITH TEMP,TEMP1,

TEMP2,

TEMP3, AND TEMP4 SETUP

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

L06S1

:G0 LOG EVENT AND TIME

MOV
MOV

#STXC, TEMPY
#TxC, TEMP

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

LOGS §

;G0 LOG EVENT AND TIME

MOV
MOV
BR

#SRXQ, TEMP1
#RXQ, TEMP

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

MOV

L0GS{

#RXC, TEMP

;SET UP EVENT TYPE

L0GS §

:GO LOG EVENT AND TIME

MOV
MOV

#SDVE , TEMPY
#DER, TEMP

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

L0GS$

:G0 LOG EVENT AND TIME

3625

3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644

d
oD
b
b

NSINNOO
S PO=O 800

—

b
—

OOOOOO

[&]8lelelele]

—_—

b
——t

oo
Pt
e)

—

024410

oo
&5Hs o~

~NONO~
[a 0 4 e ]

—

517166
010164

(@l]

012737
012737
000612

000421

012737
012737
000403

021774

024426

013737

007636

010176

024434
024434
024442
024444
024452

022737
001434
032737
001430

000006

010164

000001

010224

026454
024462
024464

022737
001012
005037

000010

010114

026470
024470
024476
024500
024502
024504

012746
012746
010600
104417
062706

000016

010114

024410
024416
024424

—

3622
3623
3626

024372
026372
024400
024406

024370

oo
Yo

3620
3621

024346
024354
024362

012737
012737
013737

024346

3614
3615
3616
3617
3618
3619

(o]]

3611
3612
3613

012737
012737
000406

—d
b
b

3610

012737
012737
000415

[e]lele]

3603
3604
3605
3606
3607
3608
3609

024312
024312
024320
024326
024330
024330
024336
024344

LOGDV]:

MOV
MOV
Movs
MOVB
MOV
MOV

#SOVI1, TEMPY

MOV
MOV

#SCM, TEMPY

MOV
MOV

#SCML, TEMP1

OOoO

3601
3602

024260
024266
0242..
024302
024310

012737
012737
113737
113737
013737
013737
000651

MACY11

—

3596
3597
3598
3599
3600

024244
024244
024252

3:54

3593
3594
3595

——

CZKMSAQ KMS11-8D/BE DC
23-DEC-82
CZKMSA. P11

SEQ 104

30A(1052) 23-DEC-82 14:01 PAGE 105
EVENT LOG SUBROUTINES

LOGCMP:

LOGCML:

LOGCMD:

B8R

LOGS?:

RPASS, TEMP3

. TEMP4
PARAM

L0GS3

SSET UP EVENT

TO PRINT

TYPE

EVNT ENTRIES
160 LOG EVENT AND TIME
MSG.

LOGS$A

#DLE , TEMP

, TEMP
#DDE

TO PRINT

EVENT TYPE

#DCK . TEMP

MOV
MOV

MSG. AND TYPE

160 L0G EVENT AND TIME

#SCMD, TEMPY

TRIBN, TEMPS
LOGS3

MOV
MOV

#SEOP, TEMPI
#EOP TEMP

MOV
MOV
BR

#MSC,

MOV

TRIBN, TEMPS

LOGS3:

;SET UP MSG.

MLTYP, TEMP2 1

LOGS $A

LOGMSC:

MODTYP, TEMP2

LOGS3A: MOV
LOGEOP:

advi,Temp

LOGS$

:GO LOG MSG TYPE AND TIME

#SMSC, TEMPI

L06S$

#RXC

TEMP

;SAVE LINE NUMBER (TRIBN)

LOGS
#STATB,PARAM

s1F RXC DON'T PRINT

LOGSS

:1F NO STATUS SELECTED
:60 10 5

(MP
BNE
CLR

#10,LNCNY
LOGS4

;HAVE WE DONE 10?
s 1F NOT GO TO &

PRINTF

#CR

;ELSE PRINT (R

LNCNT

;ELSE CLEAR [T

Mov
MOV
MOV
TRAP
ADD

#(R,=(SP)

3645

Ot
QOMPUIOMNIND
PO WSNN
OOWO
=
NWNWWWN

OO0

oo
WN
o &~

»P

¥} N

S S

¥ o S ¥ LV ol ¥

¥ oF oF X

AWWNNNIVIWW
oo
NNWY ANV
NIN) = b b
N==200NNO NN S BN NN
SO
OSTOSH
OO
oo

NOARNNINNINMNONININNININI
NNNINIAININD

lele il=lolelolelololalalolololalalelolelelolelala]

W
~

010114

013746
012746
600
010166
0000V

D e

b e

il e

—

——

0C0004

LOGSS:

LOGS?2:

LOGEX:

FZOOVAIRe

~AD1DW

4 X

L R

2K B A
g
> &

)

Z N NN TD D~ M B~ N
O
NN+ RO+

MDD D 0 VA A N—ATHND
~

—d oo onme

VROV OVORENTD~I VO
POM AL NN = Me YR 4~

MACY11 30A(1052)

X )t ) =l =l == =4 O =4 T D
NI
PR CTY e s PPV 0 | PV AN
ZXTXXXEXIRXXNRNE
4

P ¥

(ZxMSAQ KMS1T -BD/BE DC L
23-DEC-82 13:5¢4

[ole]

CIKMSA.P1Y

S OSNONSSOOS

[vrprprpurpury
YT
T N1 NP1 N )
WNNNNOCOONOWVNO

Plelelelelelelolelalele]

[elolololelelelaleolelala)

=—0O0000===—0-=000-20

005237

d 2 OO =
ON) =P b o b d e b Ot
N & O
(NO NININNANNLNWN WANO
N
NN
N S
S NSNSNSNSNSNSNN
OMNNININIMNIMNMNIRNIWN WO O
8 NN NN
NNWNNOO~

LOGSé:

23-DEC-82 16:01 PAGE 106
EVENT LOG SUBROUTINES
sPRINT OPE RA TOR AWAKE MSG.

;SAVE R3 ON THE STA(K
;LOG EVENT

:LOG TIME SINCE START

:LOG EVNT ENTRY 3

sTICKS,SECS AND MINS.

4
;LOG EVNT ENTRY
:L0G EVNT ENTRY S
:L0G EVNT ENTRY 6

¢1F EVENT LOG FULL GO

: CONTINUE ;ELSE GO TO 2
:L0G A_TABLE END
:PUT R3 TO START OF TABLE
;RESTORE POINTER
;RESTORE R3

SEQ 105

¢ INC COUNT ER OF # OF AWAKE MSGS
MOV
MoV
mov
TRAP
ADD

#1,-(SP)

TEMP1 ,=(SP)

4 ,SP

SP,RO
CSPNTF

CZXMSAQ KMS11-BD/BE DCLT
23-DEC-82 13:54
CIKMSA. P

MACY1Y 30A(1052)

3677

3678

3679
ggg?

024644

024646
024650

MOV
MOV

010346
010446

36BL

024652

3690

024672

ggg;

024652
024656
024662
024664
024666
024676

PRINTF

012746 015551
012746 000001
010600
104417
062706 000004
105037

105037

GETRCL: CLRB

003401

CLRB

003400

GMANID

3695

024702

3699
3700
37017
3702
3703
3704

024710
024712
024714
024716
024720
024722

3708
3709
3710
3711
3712

024744 005037 003250
024750 006737 031506
024756 105737 003401
024760 001412
024762

3696 024702 104443
3697 024704 000406
3698 024706 003124

37213
3714
3715
3716
3717
g;}g
3720
3721
3722
3723

RS,=(SP)
R4 ,=(SP)

:SAVE R2,R3,R4 ON THE STA(CK

#RHLPO

P$GDBD
PSNNUF

:CLEAR GOOD BAD FLAG

MOV
MOV
MOV
TRAP
ADD

#RHLPO,=(SP)
mM,=-(SP)
SP,RO
CSPNTF
86 ,SP

TRAP
BR
.WORD
.WORD
.WORD
.MWORD
JWORD
LMORD

CSGMAN
10000%
CMDBUF

:PRINT PROMPT RPI>

gggz

37205
3706
3707

R%,-(SP)

;PRINT REPORT HELP MESSAGE

ggg%

3685
3686
3687
3688
3689

DUMP EVENT LOG AND BASE TABLE

REPORT: MOV

010246

SEQ 106

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

LSBTTL

%g;g

000142
0155644
000377
000001
000110

024722
024730
024736

012737
012737
012737

003124
027070

024762
024766
024772
024774
024776
025002
025006
025012
025014
025014

012746
0127646
010600
104417
062706
000137
105737
001411
012746

014010

026650

MOV

CLR
JSR
1818
BEQ
PRINTF

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

QUALFG
PC,PSTRY
P$GDBD
1%
#CLIERM

000001

000004
024672
003400

014040

3724 025020 012746 000001

3725 025024 010600
3726 025026 104417
3727 025030 062706 000004
1728 025034 000716

MOV
[ [#]"

003364
003366
003370

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

1%:

JMP
1518

GETRCL
PENNUF

10%
BEQ
PRINTF #CL INUFf

B8R

GE TRCL

10000%:

T$CODE
CLISRP
377
TSLOLIM
TSHILIM

;:CLEAR QUALIFIER FLAG LOCATION
:60 PARSE COMMAND LINE
:SEE IF PARSED OK OR AN ERROR
:0K. CONTINUE PROCESSING COMMAND
;ERROR. REPORT [NVALID COMMAND

#CLIERM,=(SP)
Mov
#1,-(SP)
[ [0]"
SP,RO
MOV
CSPNTH
TRAP
86 ,SP
ADD
;GO PRINT RPT> PROMPT AGAIN
;WAS COMPLETE COMMAND TYPED ?
;YES. GO PERFORM REQUESTED ACTION
;NO. REPORT INCOMPLETE COMMAND TYPED ,=(SP)
#CLINUF
MOV

MOV

MoV
TRAP
ADD

;G0 PRINT RPT> PROMPT AGAIN

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

CIKMSAQ KMS11-BD/BE DCLT
23-DEC-82 13:54
CIKMSA.PI

3729
3730
3731

025036
005036
025044

MACY1Y 30A(1052)

000004

3733

023727 003246
001003
025046 004737 025112

3736

025054

003246

0CJV06

3732

10%:

023727

3737 025062 0037003
3738
3739 025064 004737 027264

3745

3766 025102

3747
3748

025106
025106

gggg 025110
3761

003246

CMP
BNE
JSR

KEYWDY, #RPSOL
208

CMP

KEYWD1,#RDMPS

JSR

PC,DUMPSR

CMP
BNE

KEYWDT,#RPEXT
GETRCL

BNE

B8R

%;2? 025070 000700

37642 025072 023727
§;22 025100 001274

208:

000002

308:

012604

ENDALL: MOV

000207

RTS

012603
012602

SEQ 107

23-DEC- 2 14:01 PAGE 108
DUMPEVENT LOG AND BASE TABLE

gggg 025052 000707

MOV
MOV

PC,RPTSOL

GETRCL
30$

GETRCL

(SP)+,R&

(5P)+.R3
e R2
(SP)

:PERFORM aeouesreo REPORT ACTION
:WASA DEVICE STATUS REPORT REQUESTED 2
*NO. CONTINUE CHECKING REQUEST

:DEVICE STATUS REPORT REQUESTED

“YES. REPORT DEVICE STATUS

160 PRINT RPT> PROMPT AGAIN
xs DUMP REQUESTED ?

REQUESTED
;DUMP oAiA
;YES. PRINT REQUESTED DATA
160 PRINT RPT> PROMPT

;1S EXIT RFPORT SECTION REQUESTED ?
'NO. GO PRINT RPT> PROMPT AGAIN
;EXIT REPORT PROCESSOR neouesreo

SYES. RESTORE R&4,R3,R2

;RETURN TO CALLING ROUTINE

E
(2xMSAQ kMS11-BD/BE DCL?
CIKMSA.P1Y
23-DEC-82 13:54

MACY1Y

SEQ 108

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

g;gz

LSBTT.

3755

X
;

PRINT DEVICE LINE STATUS TABLE BYTES 0..7

%;gg

TRIBN = LINE NUMBER FROM REPORT (LI ACTION

3760

BYTE 0: STATUS

BYTE &: ACK RCVD NUM

3762

BYTE 2: TEMP STORAGS

BYTE 3. LAST Tx MSC NUMBER

BYTE 6: NUM NAKS TRANSMITTED

%;29

3761

;

3;22

3765
3766

3767

025112

3769
3270
3771
3772
3773
3774
3775
3776
3777

025116
025120
0251264
025132
025136
025142

3768

3778
3779
3780
3781

025112

025144
025144
025150

0251564
025156
025160

3782

025164

3784

025166

3783

3785

005737

001407
005037
113737
004737
005737
001011

012746
012746
010600
104416
0627796

000502

RPTSOL :

011512
007636
007622
063704
011514

007636

108:

016612
000001
000004

025166

013746

011510

3787
31788
3789
3790

025176
025202
025204
025206

012746
010600
104416
062706

000002

3793
1794
3795
3796
3797
3798
3799
3800

025214
025220
025222
0252¢6
025232
025236
025240
025262

20%:

RPTSOL =GET LINE STATUS REPORT FROM DEVICE-

BYTE 1: CONTROL FLAGS

1531

ENRDST

PRINTS

#PRINOS

BEQ
(LR
MOVB
JSR
151
BNE

BYTE 5: MSG RCVD NUMBER

BYTE 7: NUM NAKS RCVD

;REQUEST LINE STATUS

108
TRIBN
TRIBLS,TRIBN
PC,LNSTAT
VSTAT
20%

B8R

308

PRINTS

WEVTFS1,LINEST

:1S ENABLE READ STATUS ASSERTED ?

:NO. OMIT READING STATUS
sYES. CLEAR LINE NUMBER
;SPECIFY LINE NUMBER
;READ LINE STATUS
:1S VALID STATUS DATA ASSERTED ?
:YES. GO PRINT STATUS DATA
:STATUS NOT AVAILABLE
;REPORT STATUS NOT AVAILABLE
MOV
#PRINOS ,=(SP)

;PRINT STATUS

: AND RETURN

3786 025172 012746 021143
3791
3792

025212
025212

005046
153716
005046
153716

012746
012746
010600
104416
062706

000006

011509
011500
021207
000003

000010

MOV
MOV
TRAP
ADD

#1,~(SP)
SP,R0
C$PNTS
s ,SP

MOV

LINEST,=(SP)

MOV
MOV
TRAP
ADD

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

MOV
PRINTS

W#EVTFS2,<B,DEVSY>,<B,DEVSI*l>

(LR
81s8
(LR
BISB
MOV
MOV
MOV
TRAP
ADD

sEVIFST,-(sp)

-(SP)
DEVS1et, (SP)
-(SP)
DEVS1, (SP)
BEVTFS2,=(SP)
#3,-(SP)
SP,RO
C$PNTS
#10,5P

CZKMSAQ KMS11=BD/BE D(LT
23-DEC-B2 13:54
CIKMSA.PY1

1801

025246

3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
1820
3821
3822
3823
3824
3825
3826
3827

025050
005254
025056
025062
025066
0250272
025274
025276
025302
025302
025306
025310
025312
025316
025322
025326
025330
025332
025336
025336
025340
025344
025346
025352
025356

3802

005066

005046

153716
153,16
012746
012746
010600
104416
062706
005746
153716
005046
153716
012746
012746
010600
104416
062706
005046
153716
005046
153716
0127646
012746

005046

025372

000207

SEQ 109

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

PRINTS

®EVTFS3,<B,DEVS2>,<B,DEVS2¢1>

PRINTS

WEVTFSL,<B,DEVS3>,<B,DEVS3e1>

PRINTS

WEVTFSS,<B,DEVSL>,<B,DEVSL+T>

011503
011502
021264
000003
000010

011505
011504
021341
000003
000010

011507
011506
021416
000003

3828 025362 010600
3829 025364 104416
3830 025366 062706 000510
025372

308:

(LR

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

MOV
TRAP
ADD

RTS

;RETURN

- (SP)

DEVS2+1,(SP)
- (SP)
DEVS2,(SP)
FEVTF$3,=(SP)
#3,- (5P}
SP.RO
CS$PNTS
#10,5P
- (SP)
DEVS3+1,(SP)
- (SP)
DEVS3,(SP)
REVTF$4,=(SP)
#3,- (5P
SP ;RO
($PNTS
#10,5P
-(SP)
DEVS4+1,(SP)
=(SP)
DEVS&,(SP)
#EVTFSS,=-(SP)
#3,- (5P

SP.RO
C($PNTS
#10,5P

6
C2xMSAQ xMS11-BD/BE DC LY

(IxKMSA. P11
3836
3837
1838
1839

23-DEC-82

13:.564

3863
3844
IRLS
38466
IBL?
3848
3849
3850
TR91
3852
3853
1854

025402
025406
025414
025416
0256416
025422
025426
025430
025432
025436

013702
023727
001034
(012746
012746
010600
104416
062706
000137

000004
026606

025442

162702

000014

3857
3898
IRS9
3860
3861
3862

025446
025452
025454
025460
025466
025470

020227
001010
012702
026227
001007
000137

010300

3864 025474
3865 025500
3866 025502
3867
3868 025506
31869 025512
I870 025512
025516
3871
3872 025522
I873 025526
3874 025526
3875 025532
3876 025534«
3877 025540
878 025546
879 025550
I880 025550
881 025554
31882 029560
3883 025564
I88L 025570
3885 025574
1886 025600
3887 025602
3888 025604

020237
001002
000137

010276
026606

162702

000014

012746
012746
010600
104416
062706
112203
112237
11223%7
112237

020117
000001

3859
31856

3863

889

025610

016346
013746
013746
013746
012746
012746
010600
104416
042706
000179

23-DEC-82

177776

RPT:

R3,=(SP)

MoV
(mp
BNE
PRINTS

EVIPIR,R?
EVILOG,#-1
RPTO
#NULEVT

;SAVE R2,R3,R6 ON THE STA(K

R4 ,=(SP)

:MAKE R2 A POINTER TO EVENT TABLE
JSEE [F EVENT TABLE IS tEMPTY
s8R [F NO
;1F EMPTY TELL OPERATOR.

mMov
MOV
MoV
TRAP

+AND END

ADD

JMP

ENDEVT

SuB

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

(mP

R2,BEVTLOG

;POINTING TO TOP OF EVNT LOG QUEUE?

MOV

#EVIEND R2

:SET R2 10 POINT TO BGTIOM OF L0OG

BNE
JMP

RPTO
ENDEVT

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

(MP

026606

R2,=(SP)

MOv

BNE
177777

Sea 110

PAGE 1M

REPLOG PRINT EVENT LOG

MOV

011334

14:01

REPLOG PRINT EVENT LOG

REPLOG: MOV

010246
010346
010446

3842

30A(1052)
LSBTTL

(025374
025376
025400

3840
T84

MACY1?

RPT

=2(R2)
, 8-

#NULEVT ,=(SP)
#1,-(SP)
SP,RC
(SPNTS
6 ,SP

. BR [F NO

RPT1:

(MP
BNE
JMP

R2,EVIPIR
RPTO
ENDEVT

ARE WE BA(K TO POINTER?
:1F NOT CONTINUE
JIF SO EXIT....

RPTO:
RPTAA:

SuB
PRINTS

ALY
®#EVTHO

;POINT R2 TO START OF ENTRY
sPRINT EVENT ENTRY HEADER

Move

(R2)+,R3

;PUT EVENT TYPE INTO R3

MOv8

;PUT EVENT TIME (TICKS,SECS,MINS [N TEMP LOC.S)
(R2)¢ EVININ
WEVTFS EVIMIN,EVISEC.EVITCK,EVILST(R3) ;PRINT EVENT TIME AND DESCRIPT.

Mov8

MOv8

PRINTS

(R2)¢ EVIT(K

MOV
MoV
MoV
TRAP
ADD

(R2)e EVISEC

MOV

MOV
MOV
MOV
MOV
MoV

MOV
TRAP

JmpP

NEVIFO,-(SP)
#1,-(SP)
SP,RO
(SPNTS
86, 5P

SRPTIDSP(RY)

EVILST(R3) ,=(SP)

EVIT(K,=(SP)
EVISEC,=(SP)
EVIMIN, =(SP)
SEVTIFY,=(SP)
85,-(SP)

5P,RO
($PNTS

814,5P

:DISPAT(H 10 DECODING SECTION FOR SPECIFIC TYPE

(2xMSAQ xmS11-BD/BE DCLT

CIKMSA. P11

23-DEC-B2 13:54

1890
IR
IRGY

025614
025620
025624

012237
012237
012203

011432
01143¢

1895
31896
I897
I898
3899
3900
3901

025632
005636
005642
025646
025652
0256564
025656

013746
013746
012746
012746
01060C
104416
062706

011434
011432
020246
000003

1893 0256%6 004737 026616
3894 025632

3902

025662

000137

000010
025442

MACY1' 30A(1052)

23-DEC-82

14:01

REFLOG PRINT EVENT LOG
(R%)‘.EVYADD
RPTTXQ: MOV
(R2)+,EVIB(Y
MOy
(R2)+ R3S
mov

PAGE 112

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

-PRINT LINE NO.
P, PNfTRB
JSR
;PRINT ADDR,BYTE (NY
PRINTS OEv"2.EvHDD.EV*B(T

Jmp

RPY

SEQ 111

;60 BACK FOR NEXT EVENT ENTRY

MoV
MOV
MOV
MOV
MOV
TRAP
ADD

EVIBCT,=(SP)
EVTADD,=(SP)
BEVIF2,=(SP)
#3,-(SP)
SP,RO
C$PNTS
210,5P

(ZxMSAD kMS11-BD/B

(IxMSA P

D( L7
-82 13:54

MACY'Y

30A(1052)

folel=l=lelotilelelelototo Blelolale

23-D EC-82

REFLOG PR] NT
RPTIDER:

O -2 OPN 2O 2O
2 POt
b b
[S1L,S¥ 1 NTe Yo JV IV o NI, S VNP o o
O N NWNNO NN N O ~N~
WO =2 OOOOO
B WWWO =0 H "
NOVNNNNNAN
O N NN
OO oo

OO SONNO SN NONOONIONNOO

e [V IV LV TV 1V, (O V]

S NNNNNNNINNSN NN ~N~oO oo
OVNVWVNAL
B NN ANIN) =t b s QON~N~NOO

E VENT

MOV
PRINTS

14:01

LOG

SEQ 11?2

PAGE 113

:PRINT ERROR EVENT FROM LOG

(R2)¢ EV*VHP
BEVTFS, EVITMP

:GET ADDRESS OF DEVICE INFO MESSAGE
:PRINT MESSAGE

MOV

MOV
MOV
MOV
MOV

(LR

011470
025764
025764
025442

-~ SNNSNSNSN
~ NN

011474

sCLEAR INDEX REGISTER

JSHIFT CODE LEFT TO USE AS WORD [NDEX

#PRTETB,RS

;ADD IN ADDRESS OF

Moy

(SP)+ ,R2

:GET PRINT (ODE

PRTETB(RY) ,RY
PC,(R3)

:PRINT REGISTERS

.WORD
.WORD

#PRTEQ=-PRTETB
#PRTE1-PRTETB
SPRTVE2-PRTETB
#PRTEZ-PRTETS

;TABLE OF OFFSETS TO REGISTER PRINT ROUTINES

#PRTEL-PRTETR
SPRTES-PRTETB
SPRTEG-PRIETR

;PRINT 2 WORDS OF DEVICE REGISTER CONTENTS

#EFT13C,DEVE,DEVS

:PRINT 2 WORDS

020330
000003

MoV
MoV

PRTET:

RTS

:RE TURN
see NOT USED

;RE TURN

DEVY,=(SP)
DEVZ,=(SP)

MoV

sEf18c. =Py

TRAP
ADD

C$PNTS
210,5P

MoV
mov

000010

000207

TABLE BASE

;GO BACK FOR NEXT EVENT ENTRY

RPT

PRINTS

:GET PRINT ROUTINE OFFSET FROM TABLE BASE
;RESTORE R?

JMP

.WORD
.WORD
«WORD
.WORD

SP,RO
C$PNTS

:SAVE R2 ON STA(K

011472

026034
02503¢

#6,5P

DEVI,.R3

JSR

PRTEOD:

026032

ADD

(R2)+,DEV)
(R2)+ ,DEV?
(R2)+ ,DEVY

MOvB
ASL
MOv
ADD

PRTET:

026024
026026

NEVIF3,=(SP)
82,=-(5P)

:GET PRINT CODE AND L INE NUMBER
:COPY SAVED DEVICE REGISTER CONTENTS
:COPY 2ND SAVED REGISTER

R2,=(SP)

EVITMP,=(SP)

MOV
MOv

MOV
TRAP

» NOO SRS

RURUAURLALRNL
NI NN AR
NN AINIAY NN
PORURURINOLND

[V IV IV TV IV TV, RV TV LV LV LV LV IVl S ALV IV IV ALVl

lolelelolel=-ENelolelololeolololalalololalololololololole]

3903

3904
3905

23-0t

fanYaal

23,=-(SP)
SP.RO

J
(ZxMSAQ kmS11-BD/B £
CIxMSA.P1Y
23-De(-82 13:5¢
DC LY

MACYYY

30A(1052)

(el lelele
B deloJol
QOO
=4 =t = NOWVO
OMNI 8 O MNIMNL LN NN
NI NSO NNNO~NO
OO =
= —
~oooooooo0rOrOrO

PRTEZ:

O =2 =t = NOWVIO
WO

PRINTS

PRINT 2 BYTES

SEVTFL2,<B,DEVI*1>,<B,DEVS>

-(SP)

DEVIel

_(SP)

BEVTFLD,=(SP)

#3,-(SP)

SP,R0O

CSPNTS

RTS

PRINTS

BEVTELTY,<B,DEVI*1>
<B DEVZ>,<B,DEV2+1>

#10,5P

;RE TURN

;PRINT 3 BYTES

-(SP)

DEV2+1, (SP)

011473

=(SP)

011472

DEV2, (SP)

011471
020507

DEVI+1,

<(SP)

84,

000004

(SP)

SP RO
CSPNTS

#12,5P

000012

RTS

PRINTS

#EVTIFLO,<B,DEVI+1>

sRETURN

sPRINT LINE NUMBER

01147
020446
000002
000006

(SP)

pEVIFLS
. = (sP)

PRTEG:

026166

-(SP)

DEVZ, (SP)

PRTES:

\MANNNIN)
=

14:01
23-D EC-82
E VENT LOG

REPLOG PRINT

SEQ 113

PAGE 114

(LR
8158

MoV

MoV
MoV
TRAP
ADD

-(SP)

DEVI¢l,

(SP)

SEVTFLl,=(sP)

CZKMSAD KMS11-BD/BE DCLT
CIKMSA.PIN
23-DEC~82 13:54

3989
3990
3991
3992
3993
3994
3995
3996
3997
3998

2838
4001

4002
4003
4004
4005
4006

026170
(26170
026170
026174
026176
026202
026206
026212
026216
026216
026222

013746
005046

153716

012746
012746
010600
104416
062706
000207

005046
153716
005046
153716
012746
012746
010600
104416
062706

4014

026260

005046

4016
4017
L0188
4019
4020
4021

026266
026270
026274
026300
026304
026306

005046
153716
012746
012746
010600
104416

4008
4009
4010

4011
6012

4013

4015

4022
4023

4024

011472

026260
026262

0263'0
026314

PRINTS

011471

020532
000003

000010

RTS

SEQ 114

PAGE 115

;PRINT LINE NUMBER AND MESSAGE POINTED TO BY DFV2
WEVTF44L,<B,DEVI*1>,DEV2
MOV
DEV2,=(SP)
CLR
-(SP)
BISB
DEV1+1,(SP)
MOV
SEVTF44,=(SP)
MOV
#3,-(SP)
MOV
SP,RO
TRAP
CSPNTS
ADD
#10,SP
PC

;RETURN

PRTEG:

026226
026226
026232
026234
026240
026244
026250
026252
026254

4007

30A(1052)
23-DEC-82
14:01
REPLOG PRINT EVENT LOG

PRTES:

026224

0262264

MACY11

153716

062706
000207

PRINTS

:PRINT & STATUS BYTES
WEVTFS2,<B,DEV2>,<B,DEV2+1>

011473
011472

021207
000003
000010

PRINTS

#EVTFS3,<B,DEV3>,<B.DEV3+1>

CLR
BiSB
CLR
BISB
MOV
MOV
MOV
TRAP
ADD

-(SP)
DEV2+1,(SP)
-(SP)
DEV2,(SP)
FEVTFS2,=(SP)
#3,-(SP)
SP,RO
C$PNTS
#10,SP

CLR

=(SP)

011475

BISB

011474
021254
000003

(LR
BISB
MOV
MOV

000010

MOV
TRAP

RIS

ADD

DEV3+1,(SP)

=(SP)
DEV3, (SP)
NEVTFS3,=-(SP)
#3,-(SP)
SP.RO
($PNTS
#10,SP

L
(ZKHSAO KMS11-BD/BE DCLY
CIKMSA. P
23-DEC-82 13:5¢
4025

6026
(027
6028
6029
4030
4031
4032
4033
6036

zg%z

026316

026322
026326
026332
026336
026342
026346
026350
026354
026356

026362

005037

005037
112237
112237
012237
012237
010246
004737
012602
012237

000137

011470

011472
011470
011472
011474
011476

4040

64061
6042

2822

64050
6051
4052

RPTDV]:

010176

025442

(LR

CLR
Move
MOvB
MOV
MOv
MOV
JSR
MOv
MOV

JMP

+REPORT END OF
026366
026366

026372
026376

0266402

012237

012237
012237

012237

011432

011463¢
011436

010176

2822

4047
4048
6049

30A(1052)
23-DEC-82
14:01
REPLOG PRINT EVENT LOG

031204

28%;
6039

MACY1Y

026406
026406
0266412

013746
013746
013746
012746
012746

011436
011434
011432
020600
000004

RPTABO:

RPTEOP:

MOV

MOV
MOV

000137

025442

JMP

4059
060
6061

026446
026452

012237
012237

0114632
011434

RPTDDE: MOV
MOV

4068

6069
4070
4071
4072

4073

026456
026662
026466
026466
026472
026476
026502
026506
026512
026516
026516
026522

011436
026616

013746
013746
013746

011436
0114634
011432

012746
010600
104416
062706

000004

000137

(R2)+,EVIADD

(R2)+ EVIBCT
(R2)
¢ EVITMP

ERROR

:DUMMY MOVE
COUNT

THRES AND

TTHRES

MOV
MOV
MOV
MOV
MOv

EVITMP,~-(SP)
EVIBCT,=(SP)
EVTIADD,-(SP)
WNEVTFLB,=(SP)
¥4 ,-(SP)

TRAP

CSPNTS

MOV

012237
006737

012746

PARAMTERS.

PASS R “C ABORT

WEVTF4B,EVTIADD,EVTIBCT,EVTITMP

026442

BEFORE USE
FOR PRINTING

:G0 BACK FOR NEXT EVENT ENTRY

PRINTS

282;

4062
4063
4064
4065
6066
6067

sSAVE R2 ON THE STA(KX
:G) PRINT MODE, MAINT-L0OP TYPE,
:RESTORE R2
:DUMMY MOVE

PASCOUNT

000012

104416

RPT

;CLEAR UPPER BYTES OF DEV1 & DEvV2
:STORE SETUP OPERATION PARAMETERS

;PRINT

062706

010690

DEV?
(R2)+,DEV]
(R2)+,DEV?
(R2)+,DEV3
(R2)¢,DEV4
R2,=(SP)
PC,SHWOP
(SP) ¢+ R2
(R2)+,TEMPS

(R2)+,TEMPS

2822

64053

DEV]

SEQ 115

116

Mov

026416
026422
026426
026432
026434
026436

405

PAGE

ACD

MOV
JSR
PRINTS

020657

000012

025442

JMP

RPY

s THEN GO GET NEXT EVENT ENTRY

(R2) ¢ ,EVIADD
(R2) ¢+, EVIBCT

sSTORE MESSAGE ADDRESS FOR PRINTING
:STORE BYTE COUNT FOR PRINTING

(R2) ¢, EVITMP
sSTORE TOTAL # OF (MP ERRORS
PC,PNTTRB
:PRINT LINE NO.
WEVTF4 EVIADD,EVIBCT,EVITMP
sPRINT ADDR, BYTE CNT,
MOV
MOV
MOV

RPT

sTHEN GO GET NEXT EVENT ENTRY

SP,RO

#2,sp

MoV

# (MP ERRS
EVITMP,=-(SP)
EVIBCT,=(SP)
EVIADD,=(SP)
NEVIF4 ,-(SP)

MOV
MOV
TRAP
ADD

#6,-(SP)
SP,RO
CSPNTS
ni2,sp

(ZKHSAO KMS11-BD/BE D(C L

000137

025442

[o 7 JO0 P 3

MACY11

30A(1052)
RPTDLE:
RPTDCK:

MOV
MOV
MOV

JSR

PRINTS

OO ==t s

026606
026606
026610
026612
026614

ENDEVT:

012237

010176

013746
012746
012746
010600

010176
020546
000002

062706
000207

000006

104416

;

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

PC,PNTTRB

;STORE MSG ADDR FOR PRINT
*STORE BYTE COUNT
;STORE BYTE COUNT COMP

;PRINT LINE NO.

WEVTF4LA,EVTADD,EVTBCT,EVTTMP

;PRINT ADDR, RXBYTES CMPBYTES.

nov
MOV
MOV
MOV
MOV
TRAP
ADD

JMP

RPT

MOV
MOV
MOV
RTS

(SP)+,R4
(SP)
¢ .R3
(SP)+.R2
PC

;PRINT

026616
026622
026622
026626
026632
026636
026640
026642
026646

SEQ 116

23-DEC-82 14:01 PAGE 117

REPLOG PRINT EVENT LOG

QNS
O ONNWNWN
S =SSO0

[,
I PP )
CON) b o b

VAW

ooooororOrOrOOMOMONONONON

o
— NN
OOV

026602

OO00O

000012

OO
O ed i d
S PO
NN
NI
~N~~~

06270¢

2
2
2
2
2
2
2
2
2
2
2
2
2
2

NNV IV

OCO0OO0O0O0

3:5¢4

— 000000
O—tadadcdcdcd
S OMNVMNINWNWN
S ONNNNNN
SO
RSN
OO

23-DEC-82

NNSNONONNNES
S S NN
[o R 270 T oNTo T NTo To S T
T,STe Yo

elolelololclololelalelolalsl

CZKMSA P11

—

PNTTRB:

MOV
PRINTS

RTS

LINE

:THEN GO GET NEXT EVENT ENTRY

;RETURN TO CALLER AFTER REG RESTORE
:RESTORE R4 ,R3,R2

;RETURN TO CALLING ROUTINE

NO.

(R2)+,TEMPS
WEVTFé,TEMPS

EVITMP,=(SP)

EVIBCT.=(SP)
EVTADD,=(SP)
SEVTF4A,=-(SP)
#6,-(SP}
SP,RO
CSPNTS
#12,SP

;PRINT LINE NUMBER.

sRETURN TO EVENT

MOV
MOV
MOV
MOV
TRAP
ADD

TEMPS,
= (SP)
WEVTF6,-(SP)
#2,-(SP)
SP.RO
CSPNTS
#6,SP

CTCHSAQ KMS11-8D/BE DCLT

CIKMSA.P11
4110

23-DEC-82 13:54

026650

6113

026652

016202

4118
4119
4120
4121
4122
4123
4124
4125

026666
026670
026672
026674
026676
026700
026702
026704

000030
000032
000076
000106
000122
000022
000136
000160

6116
4115
4116

4126

4128

026650

026656
026662
026664

026706

23-DEC-B2

006302

062702
004712
000207

000166

CLIRAC:

026606

10$:

PAGE 118

CLI FOR REPORT CODING SECTION
ASL

ADD
JSR
RTS

#108,R2
PC, (R2)
P(

.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
"WORD

ACIRNL-10$
ACTRHL-10$
ACTREX-10%
ACTRLG-10$
ACTRSL-10%
ACTRNF-108
ACTRDS-108%
ACTRDQ-10$

MOV

026666

14:01

(LI FOR REPORT CODING SECTION

.SBTTL

4111

4112

MACY1! 30A(1052)

WORD

108 (R2) ,R2

ACTRDE-10%

;FORM ADDRESS OF ACTION ROUTINE

;RPHLP
RPEXT
:RPLOG
:RPSOL
:RNOTNF
:RDMPS
:RDMPQ
: RDMPE

SEQ 117

8 10

(ZKMSAQ KkMS11-BD/BE DCLT

CIKMSA.P11
6129

23-DEC(-82 13:5¢4

MACY11 30A(1052)
003400

23-DEC-B2

14:01

SEQ 118

PAGE 119

REPORT COMMAND ACTION ROUTINES

.SBTTL

REPORT COMMAND ACTION ROUTINES

ACTRNF: MOVB

#-1,PSNNUF

;SET FLAG TO SAY MORE NEEDED

ACTRHL: “OV
PRINTF
1%:

NRHLPTB,R?
#HLPF,(R2)+

;SETUP R2 AS A POINTER TO HELP MSG TABLE
;PRINT HELP [NFORMATION MESSAGES

CMP

R2,#RHLPEN

;SEE IF ALL INFO PRINTED VET

MOV
RTS

#RPHLP ,KEYWDI1
PC

112737

177777

026720
026724

012702

003276

026746

020227

003306

41642
2}22

026754
026762

012737
000207

000001

003246

6145

026764

0°2737

000002

003246

ACTREX: MOV

#RPEXT,KEYWDY

;SET UP EXIT WORD

(148
4149

026774
027000

004737
012737

025376
000003

003246

ACTRLG: JSR
MOV

PC,REPLOG
#RPLOG,KE YWD

;GO REPORT DCLT EVENT LOG

6152

027010

027010
027016
027022

012737
105037
000207

000004
003400

003246

#RPSOL ,KEYWD1
PSNNUF
PC

;SET UP KEY WORD
;CLEAR NOT ENOUGH FLAG
:AND RETURN

6157
4158
4559

027026
027032
027036

013737
005937
012737

003374
010132

010126

ACTRDS: MOV
CLR
MOV

PSNUM,STADD
BYIBIT

sSETUP STARTING ADDRESS FOR DUMP
sSET DEFAULT OF WORD DUMP

4162 027046 012737 177777 010132 ACTRDQ: MOV
4163 027054 013737 003374 010130 ACTRDE: MOV
ACTRDX: CLRB
6166 027062 105037 003400

#-1,BYIBIT
PSNUM,ENADD
PSNNUF

6130

026710

6132
6133

61640

6131

6136
6135
6136
6137
6138
6139
41641

2}29

:}g?

4153
64156
2}22

2}2?

4165

6166
6167
6168

026716

000207

026724 012246
026726 012746 014616
026732 012746 000002
026736 010600
026740 104417
026742 062706 000006
026752

026772

027006

027044

027066

001364

000207

000403

000207

000006

003246

ACTRNL: RTS

BNE

RTS

ACTRSL:

MOV
CLRB
RTS

B8R

RTS

MOV
MOV
MoV
MOV
TRAP
ADD

(R2)+,=(SP)
#HLPF ,=(SP)
#2,=(SP)
SP,RO
CSPNTF
#6,5P

:1F NO KEEP PRINTING

#ROMPS,KEYWD1
ACTRDE

;FLAG THAT A DUMP WAS TYPED

R
;SET DUMP FLAG TO ‘'DUMP=-BYTE'’
[F NO “EEE
:SETUP END ADDRESS FOR DUMP (=START
;CLEAR NOT-ENOUGH FLAG, ''DUMP N-N/B'" IS VALID

¢ 10

23-DEC-82 14:01 PAGE 120
REPORT CODE COMMAND LINE PARSING TREE
REPORT CODE COMMAND LINE PARSING TREE
mmmmmmmmmvu
I —4IC-4 I =4 D —4 I
(o
X7,]
) 4=t

it Pt G P P Pt e G P J
o -—o

fifihfihfifififiAfi
e
re

Ly
Y o Ll

~recrrerereree

EPORT

NOTNF ,R308,<'DUMP'>

6,r508 °

’

'EL?E.

IS FIRST WORD A ‘'DUMP'’

YES GOTO R50%

SES f

Suee (Y

JSKIP ANY SPACES
lS;IRST NON=SP (HAR A *'?'"?

g Pscp G

ADD

AO, R\Oi

St Gt Gt

S OSrOrOSrO

[e]elelololelole]

DX D
(S IV, IV, T~ ]
)= OM
PP
—

RLES:

0
0

oYY o

Yo
.

—reo

R14S:

=
©

R12S%:

(alnlalalalialalnl
]
rerreececerm

[olelalolelolololalole)

R11S:

ENENEIOINIOIIOIOINI

OONO SO
SNV

RP13$:

AINIALNINLAINLNI NN
SNNSNNNNSNSNSNNYN
— b D e e D e d = OO
NOOWNN
=200 NN

CLIRT:
R10S:

s s )

30A(105¢)
SBTTL

(S 1o S 1,01 N1, ST N1, STy
SNNSNNSNSNNN
MNINIMALNIMNVNVMNOAD
AW ES B LNV

(169
£170
“Nn
6172
673
674
AL
L1776
677
4178
6179
4180
4181
4182
4,183
4184
4,185
L1186
(187
4,188
4189
«190
LN
4192
4193
L1964
4195
L4196
4197
4198

MACY1Y

SO
~rem

(ZKHSAO KMS11-BD/BE DCLY
23-DEC-B2 13:5¢4
CZKMSA.PIY

SEQ 119

CLl

027260

R30$%:

027262

-L INE
JEND=OF
R125$:
CLl

CLIERR,O
CLIEXT,O

;OTHERWISE “'ILL (MD*' - EXIT

0D 10

CIXMSAO xMS11-BD/BE DCLT

CIKMSA. P11

23-DEC-82 13:5¢4

MACY11 30A(1052)

23-DE(-82

14:01

DUMP BYTES OR WORDS

LSBTITL

6210

: FUNCTIONAL DESCRIPTION:

DUMPSR = DUMP BYTES OR WORDS SUBROUTINE
THIS SUBROUTINE PRINTS THE CONTENTS OF THE LOCATIONS BETWEEN
A STARTING AND END ADDRESS IN LOCS. ''STADD'* AND ‘'ENADD®’,
THE WORD OR BYTE CONTENTS ARE PRINTED 8 TO A LINE WITH THE
ADDRESS OF THE FIRST BYTE AS THE FIRST 6 OCTAL CHARS. FOLLOVED

2%}}
6213
6214
6215
6216

;
:
;
:

6217

BY A SEMICOLON.

(218

INPUTS:

4219

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

4220
4221
4222

:
:
:

4225

: OUTPUTS:

4228

: CALLING SEQUENCC.

2%%9

2%%3

<532

6233
4234

027264
027270

013702
005003

4236
4237
4238
4239
4240
4241
4242

027272
027274
027300
027304
027306
027310
027314

010246
012746
012746
010600
104417
062706
005737

4235

6243

4244

4245
64266
4247
4248
4249
4250
6251
4252

4253

4254

4255
4256
4257
4258
4259
4260
4261

0 [F SUPPOSED TO PRINT 'WORDS''

2%%2

027272

027320

027322

027326
027326
027330
027334
027340
027344
027346
027350
027354

027356

027356
027360
027364
027370
027372
0273764

027400

001416

112237

005046
153716
012746
012746
010600
104417
062706
000411

010126

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

JSR P(,DUMPSR

:CALL DUMP BYTES SUBROUTINE

PRINTF

STADD,R2
R3
#BASM1,R2

sSET R2 UP TO STARTING ADDR.
:CLEAR R3

TST

aYTIBIT

:1S THIS BYTE OR WCRD

MOVB

(R2)+,TEMP

:MOV BYTE TO TEMP

DUMPSR: MOV
CLR
DUM4G:

:PRINT ADDRESS

020051
000002
000006
010132

DUM3:

010164

BEQ

PRINTF

DUM1

000006

010130

DUM1:

DUM2:

PRINTF

#BASM%,<B,TEMP> :PRINT BYTE

(MP

DUM2

#BASM2,(R2)¢

R2.ENADD

MOV
MOV
MOV
MOV
TRAP
ADD

R2.,-(SP)
#BASM] ,=(SP)
#2,-(SP)
SP,RO
CSPNTF
»6,SP

CLR
81SB
MOV
MOV
MOV
TRAP
ADD

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

MOV
MOV

(R2)+,=(SP
- (SP)
¥BASMS,

:BR IF WORD

010164
020033
000002

012246
012746 020042
012746 000002
010600
104417
062706 000006
020237

PAGE 121

DUMP BYTES OR WORDS

4206

4207
4208

SEQ 120

;PRINT WORD

;COMPARE FOR LAST ADD

MoV
MOV
TRAP
ADD

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

)

E 10

027420

BEQ
BR
DUMXE:

RTS

oumé
DUHS

INC

(Mp

X
DUM
U E
RS
8. ,R3

N —4

BGT

»x

PAGE 122
14:01
23
-DEC-8 2
P BYTES OR WORDS

[an ]

30A(1052)

@®» o
o oo X) o=

0
0

MACY]Y

[ R QY @ Te P o

[o]elelelo]

4262
4263

ORI
NNSNNN
Pl
o Wol
oo

(ZKHSAO KkMS11=-8D
3=
P11
(IKMSA.

SEQ 121

(2xMSAQ xMS11-BD/BE DCLT

23-DEC-82 13:5¢4

CZKMSA. P

MACY1Y 30A(1052)

z%;?

.SBTTL

4272
6273
6274
6275
6276
6277

23-DEC-B2

SEQ 122

PAGE 123

14:01

UPDATE TOTAL CHAR., COUNT SUBROUTINE

JTAL CHAR, C(OUNT SUBROUTINE

UPDATE

FUNCTIONAL DES

—OmMP»

L CHAR, COUNT TOTCC BA S ED
1S TRUNCATED T0 FIT | TO
TAL CHAR,

COUNT EXCEED

ELLING THE OPERATOR TH 3

INPUTS:

THE

3FLIH”

A MESSAGE

NCATION OCCURRED.

(CHAR. COUNT OF MESSAGE BEING ADDED
TOTAL CHAR COUNT OF BUFFER ITS BEING ADDED TO

=
=

QUTPUTS:

ON_CURCC.

MESSAGE TO OPERATOR IF MESSAGE TRUNCATED TO FIT

FUNCT JONAL SlDE EFFECTS

OCATION ““TEMP'* USED FOR CALCULATIONS

—

oo~
[l

01
00

—

063737
022737
103027

027422
027430
027436

[>]=)

6293
6296
4295

[a]a)

CALLING SEQUENSER

ADDCC:

ADD

CMP
BHIS

;UPDATED TOTAL (HAR, COUNT

PC,ADDCC

CURCC,TOTCC

#BUFL M, TOTCC
ADDCY

;ADD CURRENT TO TOTAL

: COMPARE TD 'BUFLIM"
:IF NOT MORE THEN “BUFLIM EXIT

PRINTF

017105

#MSGTRU

MOV

B -

e
Mo

-t C

-y

VYN
e
N

ADDC1:

RTS

@®

i
e
b
—

OWVNOOOr
[e]=F
¥ Y=

b
i
b
-t

[=]ololele)

000001

[elelelela)

b b b

NNVNNNONOO
O

SONN

O WWNNNAND
—[«

o
o

~N
~
f

P o

O WLNNNILNN s O

027440

OO =00 O QO

4299

4300 027440
4301 027444
4302 027450

00O =0O=0O—=000

; PRINT MESSAGE AND TRUNCATE COUNT

1CC

TEMP

¢C

:SUB

CURRENT FROM TOTAL

MOV
MOV
TRAP
ADD

#MSGTRU,=(SP)

2 ,=-(SP)
SP,RO
CSPNTF
84 ,SP

sMOV 'BUFLIM'' TO TEMP

:SUB TOTAL FROM ‘'BUFL M

sAND ESTABLISH NEW CURRENT

;ADD “ADJUSTED CURRENT'' TO TOTAL C(HAR, (NT,

:RETURN TO CALLER

610

CZxkMSAQ KMS11=-BD/BE DCLT
23-DEC~-82 13:5¢4
CIKMSA. P11

SEQ 123

MACY1Y 30A(1052) 23-DEC=-82 14:01 PAGE 124
RUILD MESSAGE BUFFERS SUBROUTINE

BUILD MESSAGE BUFFERS SUBROUTINE

2%}%

LSBTTL

6314

2%}9

BLDBUF== BUILD POINTER TABLE AND BUFFERS

(318

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

6321

6324

6326

4328

: OUTPUTS:

: FUNCTIONAL DESCRIPTION:

4315

THIS SUBROUTINE AODS A MESSAGE TO THE TRANSMIT OR EXPECT LIST

2%%8

:
:

6322
6323

INPUTS:

4325

6327

CURCC= (CMHAR. COUNT OF MESSAGE TO BE ADDED
CURADD= ADDRESS OF MESSAGE TO BE ADDED

ADDRESS OF POINTER TABLE WORD WHERE MESSAGE POINTERS ARE
10 BE BUILT
MSGTYP= VALUE TO USE AS AN INDEX TO FIND SOURCE OF MESSAGE DATA
CPTR=

INDEX INTO DMSGCT() AND DMSGAD().

A MESSAGE ADDED TO EITHER TXBUF OR (MPBUF

4329

6332

: CALLING SEQUENCE:

;BUILD MESSAGE IN BUFFER AND ADD PTRS,

BLDBUF:

:SAVE R2 AND R3 ON THE STA(K

2§§?

2%%2
4335

6336

027520

64337

027520

010246

2%28

027524

013702

010154

4361 027530
4342 027534
6363 027540
4364 027544
64345 027550
4346 027552
4347 027560
438 027566

013722
013722
010237
013702
006302
013737
063737
013703

010156
010150
01015¢4
010146

64338

027522

010346

010156
010150
010156

4349 027572 016237 002144
4350
4351
4352
4353

43564
64355
6356
4357
4358

6359

4360

4361

4362

027600
027604
027610
027612

027616
027620
027624
027626
027630

027636

027640

027642

016204
060437
112423
020337

001604
020437
001762
000770
063737

012603
012602

000207

002172
010170

JSR P(,BLDBUF

MOV

R2,-(SP)

MOV

(PIR,R2

MOV

BLDB1:

010164
010164

010170 B8LDBZ2:
BLDB3:

010164
010170
010150

APPROPRIATE POINTERS IN PTRTAB POINTER TABLE

010156

R3,-(SP)

MOV
MOV
MOV
MOV
ASL
MOV
ADD
MOV

CURADD, (R2)+
CURCC, (R2)«
R2,(PTR
MSGTYP,R?
R2
CURADD, TEMP
CURCC,TEMP
CURADD,R3

;PUT CURRENT ADD ON POINTER TAB
;PUT CURRENT (C ON POINTER TAB
sPUT UPDATED R2 BACK TO CURRENT POINT
:GET MESSAGE TYPE TO USE AS INDEX
;DOUBLE FOR WORD INDEX
:MCVE CURRENT ADD TO TEMP
<ADD CHAR COUNT TO IT TO GET END
:SET R3 TO CURRENT START ADD

MOV
ADD
MOVB
CMpP

,R&
DMSGAD(R2)
R4, TEMP2
(RG)+,(R3) ¢
R3,TEMP

;PUT STARTING FROM ADD IN R4
SADD IT TO TEMP2 TO GET END OF FROM
:MOV BYTE FROM PATTERN T0 BUFFER
sALL DONE?
J1F SO EXIT
;1S PATTERN COUNT EXPIRED
:1F SO GO START AGAIN
<1F NOT GET ANOTHER BYTE

(SP)+,R3

;RESTORE R3 AND R?
:RETURN TO CALLER

MOV

BEQ
(mp
BEQ
BR
BLDBEX: ADD

MOV

RTS

OMSGCT(R2) , TEMP?2
BLOBEX
R4, TEMP?
BLDB?
BLDB3
CURCC,CURADD
(SP)+,R2

:GET BYTE COUNT

:BUMP (URADD

H 10
CZKMSAD KMS11-BD/BE DCLT
CIKMSA P11
23-DEC-82 13:5¢4

MACY1Y

2%22

.SBTTL FCURAD

4365
4366
(367

XX
;FUNCTJONAL DESCRIPTION
;
FORCE CURRENT ADDRESS:

368

4369
4370
37
4372
4373
(374
4375
4376
4377
4378
4379
4380
4381

4382

;
;

;
:
il

027644
027644
027652
027656
027660
027666
027670

032737
001406
105077
005237
005237
000207

000001
160276
010160
010156

010156

SEQ 124

30A(1052)
23-DEC-B2
14:01
PAGE 125
FCURAD
FORCE CURRENT ADDRESS TO WORD BOUNDARY

F CURAD:

108 :

FORCE CURRENT ADDRESS TO WORD BOUNDARY

THIS ROUTINE

IS USED

THAT CURADD POINTS TO A WORD BOUNDARY

TO ENSURE

IF_CURADD DOES NOT POINT TO A WORD BOUNDARY
THEN A BYTE [S CLEARED AT CURADD
CURADD IS
AND TOTCC

;CHECK

BIT
BEQ
CLRB
INC
INC
RTS

INCREMENTED
IS INCREMENTED

CURRENT ADDRESS

#1,CURADD
10§
@CURADD
TOTCC
CURADD
P(

;1S CURADD 0DD °?
:NO. GO EXIT
SYES. INSERT A FILL BYTE
; INCREMENT CHARACTER COUNT
:
AND ADDRESS TO FORCE TO A WORD BOUNDARY

110
CZXMSAQ xMS11-BD/BE D(LT
23-DEC~-B82 13:5¢6

(ZxMSA. P11
6384
(385
4386
4387
4,388
4389
4390
4391
4392
4393
(394
4395
4396

6397
4398
4399
4400
4401
6602
4403
6406
4605
(406
4407
4,08
4609
4610
R]
(YA
6612

(613

46146
4615
4616
4617
4618
(619
44620
4621
62?2
4423
4624
L4025

4426
6«62/

44028

4629

4630
463
L4632

4633
4634
4639
L4636
6637
4638
&6 39

SEQ 125

MACYT? 30A(1052)
23-DEC-B2 14:01 PAGE 126
OF Tx BUFFER AND MESSAGE LIST
FACSIMILE
REATE
LSBTTL

CREATE FACSIMILE OF Tx BUFFER AND MESSAGE LIST

FUNCYIONAL DESCRIPTION:

ACSIMILE: THIS ROUTINE IS USED TO CREATE A FACSIMILE OF THE
OF THE TRANSMIT LIST AND TRANSMIT BUFFER IN THE
EXPECT LIST AND EXPECT BUFFER. THE ROUTINE IS
NORMALLY CALLED WHEN USER COMMAND °'SET E [XPE(T]=
T [RANSMIT]

[S ENTERED.

CALLING SEQUENCE: JSR

DEFINITIONS

PC,FACSIMILE

CMPBUF = EXPECTED DATA BUFFER
TXRUF

= TRANSMIT DATA BUFFER

HOLDS MAX 512

£S

BYTES

1 10TCC = NUMBER OF BYTES IN_ TXBUF
PTRTAB = TOP OF MESSAGE LIST POINTER TABLE
CTOTCC = NUMBER OF BYTES IN EXPECT MESSAGE
CMPTOT = NUMBER OF EXPECTED MESSAGES
C(MPPTR = EXPECTED MESSAGE LIST POINTER
TXPTR = TRANSMIT MESSAGE LIST POINTER
TXMTOT = NUMBER OF TRANSMIT MESSAGES
CCURAD = STORAGE ADDRESS OF MESSAGE IN (MPBUF
MSGLIN = MAXIMUM NUMBER OF MESSAGES THAT CAN BE STORED
BUFLIM = NUMBER OF BYTES IN BUFFER

BEGIN FACSIMILE ROUTINE
(+COPY TXBUF ==> (MPBUFf*)
.. SAVE R1
«s IN1T R1
« +REPEAY

vees LCMPBUF JR1=[TXBUF IR
essoRl-R101
«UNTIL R1 = BUFLIM

(eNOW CALCULATE EXPECT LIST MESSAGE POINTERe)
«.CMPPTR = PTRTAB ¢ (2 * MSGLIM)
(*NOW PRIME THE WHILE = DO LOOP®)
««TXPTR = PTRTAB
«.CCURAD = CMPBUF

<. TXPTR= TXPIR ¢ 2
e CTOTCC = [TXPTR]
«.CMPTOT = 0
<JWHILE TXMIOT <> (MPTOT DO
cees LCMPPTR] = (CUKAD
cees CMPPTR = CMPPRY ¢ 2
....[CHPP!R] = C10TCC
cees TXPTR = TXPIR ¢ &

eess CCURAD
eeeosLTOTCC
ceeo CMPPTR
s
s CMPTOT
cee

= CCURAD * (CTOT(C
= [(TXPIR]
= CMPPIR ¢ 2

= (MPTOT ¢ 1
DO
WHILE
+.END
.. CT07CC = 1T101(C
END FACSIMILE ROUTINE

(AN
YA

6465

4666

L467
4468
L4669
4470
N
64672
4673
474
4475
4476
W77
4478
4479
44680
468
4682

4683

4684
4485
4“LBG
4687

—

~NrOOO
S
d N b
b OO

NN
— O —
Q=2 NWNWWNN

OWWNOOO
— NN
=D b B

4445
[ANNN
GL4G7
6448
L4469
4450
4651
4452
445%
4656
4455
4656
4457
4458
4459
4460
4461
4462
4463

WA
—

[ANN}

PURNIPNOAIAVTOND

4643

MPIRNININONLNY

4440
NN
(AN,

[olololololo BN ololelelolele]

(ZxMSAQ KHS11°BD/8E
23-DEC(IkMSA. P11

[0S Lo

J 10
MACY1Y

006406

000017
006406
010054

208
010056

010052
010062
010052
010060

027774

010074

010056

160

010056

010062
000002
010060
000094
010060

030012

030026
030034

00000

030042
030050
030052
030056

013737
012601
000207

R1,=(SP)

R1
;;aur(a1),cnpeur(a1)

CMP

R1, #BUFLIM

MOV

#MSGLIM,RY

MOV

#PTRTAB,CMPPTR

CLR

ASL
ASL

ADD

30%:

JMULTIPLY BY 2
JMULTIPLY BY 2

R1,CMPPTR

;START OF FXPECTED PGINTER TABLE
SINIT R

BEOQ

40%

ADD

#2,CMPPTR

24, 1XPIR
CTOTCC,CCURAD

010062

8IT

#1,CCURAD

INC

CCURAD

358

010076

010060

40$:

:BYTE COUNTER 1ST MESSAGE
sINIT EXPECTED MESSAGE COUNT

BEQ

35§

:END ROUTINE

RTS

(SP)+,R1

MESSAGE

:BUMP POINTER
:BYTE COUNT OF MESSAGE

CTOTCC,aCMPPIR

MOV
aTXPTR,CTOTCC
22,CMPPTR
ADD
CmPTOT
INC
308
BR
- DO
WHILE
;END
TTOTrC,CTOTCC
MOV

MOV

:YES ,BRANCH
:TRANSFER ADDRESS OF

CCURAD ,aCMPPIR

ADD
ADD

010052
010062

;TX POINTER NOW AT TOP OF TABLE
;TRANSFER ADDRESS OF 1ST MESSAGE
:BUMP POINTER

SWHILE TX MESSAGE TOTAL <> EXPECTED MESSAGE TOTAL DO
sALL MESSAGES COPIED ?
TXMTOT,CMPTOT
(HP

MOV

010060
010054

:TOP OF POINTER TABLE

#PTRTAB,TXPIR
#(MPBUF
, CCURAD
#2,TXPIR
aTXPTR,CTOTCC
CMPTOT

160026

157770
000002
010056

sMESSAGE LIMIT

R1
R1

160042

010054

SCOPY TX BUFFER TO EXPECTED BUFFER

‘BUMP [NDEX
;NO,BRANCH

:SET UP WHILE = DO LOOP

MOV
MOV
ADD
MOV
CLR

.SAVE
JIN It

:ALL DATA COPIED ?

10$

MOV

010062

030056

10$:

CLR
nge

BNE

006406
004406
000002

030020

23-DEC=-82
14:01
PAGE 127
CREATE FACSIMILE OF Tx BUFFER AND MESSAGE LIST

001000

027740
027746
027754
027762
027770

030002
030004

30A(1052)

FACSIMILE:
MOV

003406

SEQ 126

;ADJUST

:BUMP TX MESSAGE POINTER
SCALC. TRANSFER ADDRESS

ODD ADDRESS

;1S COMPUTED ADDRESS 0DD ?
‘NO, OM]T ADJUSTMENT
JYES.

INCREMENT AD.JRESS

:BYTc COUNT NEXT MESSAGE

;BUMP POINTER
JINCREMENT MESSAGE COUNT
:D0 IT AGAIN

;COPY TOTAL CHARACTER COUNT
sRESTORE

;RETURN

K 10

CZXKMSAD XMS11-BD/BE DCLT
CIKMSA.P11
23-DEC~-82 13:54

MACY1Y 30A(1052)

zzgg

LSBTT,

4490

L4691

2232

4496
4497
4498
4499

:
:
:
:

4501

223%

4500

4502
4503
4504

2282

A
4512

4513
(514
4515

4516
4517

4518
4519
4259
&4

QUEUE UP ALL REC BUFFERS FOR MULTIPOINT

FUNCTIONAL DESCRIPTION:

SUBORDINATE

ROUTINES useo
GTVIND

030120
030124
030132

030134
030140

030146
030152
030156

012737

004737
022737
00141

004737
052737

004737
004737
000207

177777

030402
000010

030454
000094
031142
030434

007642
007642

= QUEUE

ALL

REC BUFFERS

LOADS INDEX WITH OFFSET TO NEXT
VALID LINE AND LOADS TRIBN WITH
ADDRESS OF NEXT VALID LINE

ULRPLS

MOVES RXPTR FOR THIS LINE

:
:
:

LOGAQR

LDRPLS

QUES REC BUFFER POINTED TO BY
CPTRR AND LOGS THIS IN EVENT LOG
MOVES VALUE OF CPTRR TO SLOT [N

: CALLING SEQUENCE:
:
JSR
==

030112

RXQUAL

THIS ROUTINE QUEUES ALL REC BUFFERS FOR VALID LINES

4507
4508
4509

SEQ 127

23
-DEC=-82 14:01
PAGE 128
QUEUE UP ALL REC BUFFERS FOR MULTIPOINT

CPTRR FROM CPTRLS.

CPTRLS FOR

THIS LINE

PC,RXQUAL

RXQUAL: MOV

#-1, INDEX

:SET

JSR
BIS

PC,ULRPLS
#ORX ,FLAG

:LOAD CPTRR FOR THIS LINE
JINDICATE RX QUEUED

RXQUT:

010230
RXQUEX:

JSR
(MP
BEQ
JSR
JSR
RTS

PC,GTVIND
#8.,INDEX
RXQUEX
PC.LOGAQR
PC,LDRPLS
PC

INDEX TO -1

:GET NEXT VALID
;1S ALL DONE
JIF SO EXIT

INDEX

;RELOAD RX PTR L]ST
;RETURN TO CALLER

L 10
CZKMSAOD KMS11-BD/BE DCLT

(ZKMSA.P11

23-DEC-82 13:54

MACY11

4522

OO NO WA~
OO 00 NN
N

2222

4555

Ve VeVe0s e

030160
030166
030172
030200
030202

030206

012737
004737
022737
001402
004737

000207

177777
030402
000010

030210

007642
007642

14:01

LOAD CPTRLS LIST

SEQ 128

PAGE 129

INITIALLY

LOAD CPTRLS LIST

INITIALLY

+*e

FUNCTIONAL

DESCRIPTION:

LCPRLS

=LOAD CPTR LIST

INITIALLY

THIS ROUTINE LOADS UP THE
VALID LINE NUMBERS IN THE

(PTRLS LIST FOR ALL
TRIBLS IT ALSO LOADS
THE DVRCLS LIST FOR MSG COUNTS,

eV
VI VI
e V0000000V VeV VEVIVI VIV

228 2EAE 22 2 2P a¥ 32X 2P 32X nF pF o

VNN NN NIN WV
NIV N
N AN N NN N AN N NN N PO NI RO NI PO D

E 2Rt

(363

23-DEC-82

SBTTL

4540
4541
4542
4543
4544
4545

4548
4549
4550
4551
4552

30A(1052)

INPUTS:

RXMTOT - TOTAL NUMBER OF RX MSGS PER LINE

OUTPUTS:

CPTRLS = LOADED WITH POINTERS TO THE RXPTR TABLE
FOR EACH LINE

OVRCLS - LOADED WITH RXTOT COUNT FOR EACH LINE
SUBORDINATE ROUTINES USED:

GTVIND
IND

LCPRLY

CALLING SEQUENCE:
JSR

LCPRLS:
LCPRT:

MOV
JSR
(MP
BEQ
JSR

LCPREX: RTS

LOADS POINTER TABLE FOR LINE AT THIS
INDEX VALUE AND RXMTOT TO DVRCLS FOk
THIS LINE.

PC,LCPRLS

#-1, INDEX
PC,GTVIND
#8., INDEX
L CPRE X
PC,LCPRLY

GETS NEXT VALID INDEX BY
CHECKING TRIBLS FOR NON ZERO ENTRY

;SET UP INDEX VALUE TO =1
:GET VALID INDEX
(1S IT 82
:BRANCH IF 8.
:1F NOT LOAD CPTRLS FOR THIS LINE.

;RETURN TO CALLER WHEN DONE WITH ALL.

M0
CZKMSAQ KMS11-BD/BE DCLT
CIKMSA. P
23-DEC-82 13:54

MACY11

222;

30A(1052)

23-DEC-82
14:01
PAGE 130
LOAD CPTRLS AND DVRCLS FROM INDEX

.SBTTL

4559

LOAD CPTRLS AND DVRCLS FROM INDEX

zgg?

¢ FUNCTIONAL DESCRIPTION:

4562
2222

;
:

4565

LCPRLT = LOAD CPTRLS AND DVRCLS FROM INDEX

THIS ROUTINE LOADS UP THE CPTRLS LIST FOR THE
INDEX VALUE AND THE DVRCLS IS LOADED WITH RXMTOT.

. INPUTS:

RXMTIOT - TOTAL NUMBER OF RX MSGS PER LINE

2229

PTR23

4568
2298

. OUTPUTS:
:

CPTRLS = LOADED WITH POINTERS TO THE RXPTR LIST
DVRCLS - LOADED WITH RXMTOT COUNT

4571

* SUBORDINATE ROUTINES USED:

4572
4573

:
:

22;2

4576

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

LCPRL1:

LCPR2:

RX POINTER TABLE

MULTIPLIES VALUE IN INDEX BY VALUE IN
TE
'P AND THEN ADDS THAT RESULT TO VALUE

IN TEMP2 AND PUTS FINAL RESULT [N TEMP?

* CALLING SEQUENCE:

4577

4580
4581
4582
4583
4584
4585
4586
4587
2233

MIPLY

= START OF

JSR

MOV
MOV
MOV
JSR
MOV
MOVB
ASL
MOV
RTS

PC,LCPRLY

#PTR23, TEMP?
:SET UP TEMP 2 AS BASE
INDEX ,MPLY
:SET UP MULTIPLIER
#60.,TEMP
sSET UP MULTIPLICAN
PC,MTPLY
;GO MULT]PY
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

SEQ 129

N 10

CZKMSAO KMS11-BD/BE DCLT

CZKHSA P11

23-DEC-82 13:54

23-DEC-82

MACY1? 30A(1052)

AR RECEIVE POINTER LIST

CLEAR RECEIVE POINTER LIST

.SBTTL

4591

14:01

£33%
4594

E FUNCT 1ONAL DESCRIPTION

2%3;

* OUTPUTS:

4600

280

4603

4604

4605

4606

4607

zggg

CPTRLS - 1S ZEROED IN ALL SLOTS

: CALLING SEQUENCE:

4599

;

030262

030270
030274

030276

030302

030306

012737

012703

005023

005337

001374

000207

000010

007542
010166

010164

CLRPLS - CLEAR kX POINTER LIST

THIS ROUTINE CLEARS ALL 8 SLOTS OF THE (T P LS

2282

PAGE 131

JSR

CLRPLS: MOV

#8.,TEMP

CLRPLT: CLR

(R3)+

MOV
DEC

BNE

CLRPEX: RTS

PC,CLRPLS

#CPTRLS,R3
TEMP

CLRPLY

:LOAD START OF LIST TO R3
*CLEAR THIS SLOT

:1F NOT DONE GO BACK

‘RETURN TO CALLER WHEN DONE

SEQ 130

CZKMSAO KMS11-BD/BE DCLT

CIKMSA.PIY

23-DEC-82 13:54

23-DEC-82

MACY1? 30A(1052)

28}%

.SBTTL

4614

4617

14:01

LOAD TY POINTER LIST INITIALLY

LCPTLS = LOAD TRANSMIT POINTER LIST
: FUNCTIONAL DESCRIPTION
H1S ROUTINE LOADS CPTTLS WITH TX POINTERS
:

4615
6616

4618

INPUTS:

ron EACH VALID LINE.

TXMTOT

4619

PTRTAB

4622

: OUTPUTS:

CCITLS -

4625

2259

;

4623
6624

DVICLS

4626

: SUBORDINATE ROUTINES USED:

6627

4628

GTVIND

4631

LDTPLS

22%2

LDTCLS -

4636

; CALLING SEQUENCE:

22%8

zg;g

4640

030306

013737

010074

010072

4642

030322

012737

177777

007642

030334
030342

022737
001404

000010

007642

030314

012737

006406

46643 030330 004737 030402

4664
4665

4646
46647
4648

JSR

637
4641

PAGE 132

D TX POINTER LIST INITIALLY

030344
030350
030354

004737
004737
000207

030572
030632

010154

LCPTLS: MOV

MOV

LCPTY:

TXMTOT,DVICT

#PTRTAB,CPTR

#-1,INDEX

(MP
BEQ

#8.,INDEX
LCPTEX

JSR
JSR
LCPTEX: RTS

LOADED WITH POINTERS TO TX POINTER TABLE
FOR ALL VALID LINES

TX MSG COUNT LIST LOADED WITH MSG COUNTS

FOR ALL VALID LINES

GETS NEXT VALID INDEX BY

CHECKING TRIBLS FOR NON 2ERO ENTRY

LOADS VALUE FROM CPTR TO CPTTLS IDEXED

B8Y TRIBN

LOADS DVTCT TO DVTCLS INDEXED BY TRIBN

PC,LCPTLS

MOV

JSR

TOTAL NUMBER OF TX MSGS

POINTER TO TOP OF TX POINTER TABLE

:LOAD UP COUNT

:LOAD INDEX WITH =1

PC,GTVIND

GET VALID INDEX

PC,LDTPLS
PC,LDTCLS
PC

;LOAD TX POINTER LIST
:LOAD TX COUNT LIST
:RETURN TO CALLER

*1S THIS THE END
EXIT IF SO

SEQ 131

cn
(ZKMSAQ kMS11-8D/8 £ 0C LY
23-De(-82 13:5¢4
CZKMSA P11

MACY1Y 30A(1052)

14:01

PAGE 133

MULTIPY

SBTTL

4650
4651
4652
4653
6654
4655
L4656
L4657
4658
4659
4660

K
X J

MTPLY= MULTIPY
FUNCTIONAL DESCRIPTION:
THIS ROUTINE MULTIPLIES THE VALUE IN MPLY BY

THE VALUE IN TEMP AND THEN ADDS [N THE VALUE OF TEMP2

WITH THE RELSUT GOING TO TEMP2

4661

4662
L663
L6646
4665
4666
4667
4668
4669
4670
4L67N
L672
4673
4674

23-DEC-B2

MULTIPY

INPUTS:

TEMP2 = INITIALLY VALUE
= VALUE TO MULTIPLY BY
TEMP
= NUMBER OF TIMES TO MULITPLY
MPLY

OUTPUTS:

TEMP2 = RESULT OF [MPLY * TEMPJ+TEMP?

CALLING SEQUENCE:

JSR

005737
001406
063737
005337
€00767
000207

010046

010164
010046

MTPLY:

TST

MTPLEX:

RTS

010170

MPLY

PC,MTPLY

MTPLEX
TEMP,TEMP?
MPLY
MIPLY
PC

s1F MULITPLIER IS ZERO QUIT
sADD THE FACTOR TO BASE
;COUNT DOWN THE MULTIPLIER
;GO BACK FOR MORE
¢RETURN TO CALLER

SEQ 132

CZKkMSAO KMS11-BD/BE DCLT

CIKMSA.PY1 ~

23-DEC-82 13:5¢4

MACY1? 30A(1052)

4675

LSBTTL

4677

4680

4682

4676

23 DEC-82

14:01

GET NEXT VALID INDEX

4681

2232

PAGE 134

GET NEXT VALID INDEX

; FUNCTIONAL DESCRIPTION:

zg;g

GTVIND

LOADS TRIBN WITH THE NUMBER,

ENTRY.

LINE BEING THE LOCATION IN THE TRIBLS THAT HAS A NON-ZERO
SET TO VALUE OF LAST INDEX
SET TO VALUE OF THIS LINE
NUMBER OF THIS LINE

; INPUTS:
: OUTPUTS:
:

INDEX
INDEX
TRIBN

=
-

4689

JSR

PC,GTVIND

6TVl o MOV
INC
GTvIl
MOVB

INDEX,R3
R3

4690
4691

4692
4693
4696

4695
4696
4697
4698

: CALLING SEQUENCE:
s-

030402
030406
030410

030416
030424
030426
030432

013703
005203
116337

123727
001770
010337
000207

007642

007622

007636

007642

007636

000377

= GET NEXT VALID INDEX

THIS LOADS INDEX WITH INDEX VALUE OF NEXT VALID LINE. THIS ALSO

4685
4686
4687

(688

SEQ 133

(MPB
BEQ
MOV
RTS

TRIBLS(R3),TRIBN

TRIBN, #377
GIVI
R3, INDEX
C

:LOAD TRIBN

:SEE IF EMPTY SLOT OR NOY
;1F EMPTY GO GET ANOTHER
:LOAD INDEX VALUE IF NOT ZERO
;RETURN TO CALLER WHEN DONE

C2ZxMSAQ xMS11-BD/BE DCLT

CIKMSA . P

23-DEC-82 13:54

MACY1? 30A(1052)

2;89

4702
4703
4704
4705

4706
4707
(708

(709

4710

712

23-DEC-82 14:01

SEQ 134

PAGE 135

LOAD REC POINTER LIST

LSBTTL

LOAD REC POINTER LIST

:
: INPUTS:

CPTRLS INDEXED BY INDW,
INOW = WORD INDEX INTO LIST

LDRPLS = LOAD RX POINTER LIST FROM (PTRR
: FUNCTIONAL DESCRIPTION:
DATA FROM (PTRR TO THE SLOT I[N THE
MOVES
THIS ROUTINE
:

:06

CPTRLS = CORRECT SLOT LOADED WITH DATA FROM (PTRR
s OUTPUTS:
: SUBORDINATE ROUTINES USED:
GETS INDW FOR THIS TRIBN
GETIND :
: CALLING SEQUENCE

JSR

;

LDRPLS: JSR
4713 030434 004737 031102
MOV
007640
013703
4716 030440
MOV
007542
010152
013763
4715 030446
RTS
207
2;}9 030452

PCLLDRPLS

PC.GETIND
INDW,R3
CPTRR,(PTRLS(RD)
PC

:GET INDW FOR THIS TRIBN
:MOVE WORD INDEX TO R3
:LOAD (PTRLS LIST
:RETURN TO CALLER

.S8TTL

UNLOAD CTPRR LIST

L7¢3

: IMPLICIT INPUTS:

BY INDW TO

4732 030454 004737 031102

ULRPLS: JSR

PC,GETIND

JGET INDEX

P(C

:RETURN T0O CALLER

4718

4719

4720
LN

4722

L7264
4725
4726
4727
4728
&729

4733 030460 013703 007640 010152
473, 030466 016337 007542
4735 030472 000207

ULRPLS = UNLOAD RX POINTER LIST
: FUNCTIONAL DESCRIPTION:
THIS ROUTINE MOVES DATA FROM (PTRLS SLOT INDEXED
:
e

(PTRR,

NUMBER OF CURRENT LINE
TRIBN :
VALUE FROM (PTRLS
(PTRR
; OUTPUTS:
USED:
: SUBORDINATE ROUTINES
GET INDW FOR THIS TRIBN
GETIND -~
H
E:
SEQUENC
: CALLING
P(,ULRPLS
JSR
:

MOV
MOV
RTS

INDW,R3
(PTRLS(R3),(PIRR

:MOVE WORD INDEX TO R3 INDEX
:LOAD CPTRR FROM LIST

(ZxMSAQ kMS11-BD/BE D(L

CIKMSA.P1Y

23-DEC-82 13:54

MACY1Y 30A(1052)

67%7
4738

6761
47462

:
:

INDEX = INDEX VALUE FOR LINE

= LOADED WITH ADDRESS OF RX BUFFER FOR THIS LINE
s SUBORDINATE ROUTINES USED
MIPLY = HULT!PL!ES INDEX BY TEMP AND ADDS TEMP2 TO RESULT
:

s OUTPUTS:

4745

4746

747

6748
4749

(PTR

s CALLING SEQUENCE:
JSR
:

(750

PC,GRPT(P

6753

030474

013737

007642

4756

030516

004737

030356

4758

BUFFER

s INPUTS:

2;22

4757

GET REC POINTER TO (PTR

GRPTCP = GET RX POINTER 1O CPTR
: FUN(YIONAL DESCRIPTION:
H1S ROUTINE GETS THE RX POINTER TO C(PTR FOR USE IN BUILD
:

6739
4740

4754
4755

14:01

PAGE 136

GET REC POINTER TO CPTR

LSBTTL

6736

23-DEC=-82

030502
030510

030522

030530

012737
013737

013737
000207

000074
010050

010170

010046

010164
010170

01015¢4

GRPTC(P: MOV

INDEX ,MPLY

sSET UP MULPILIER

PC MIPLY

;LINDEX VALUE X 60.) ¢ RXPTR = POINTER ADDRESS

MOV
MOV

#60.,TEMP
RXPTR,TEMP?

MOV

TEMPZ,(PIR

JSR

RTS

“SET UP POINTER ADDR.

SEQ 135

6 1

CIKMSAD KMS1Y go/a L

CIKMSA PN

13:56

23 DEC-82

MACYY? 30A(1052)

14:01

D DVRCT LIST

SEQ 136

PAGE 137

LOAD DVRCT L1ST

2;28

5811L

(761

: FUN(Y!ONAL DES(RlPTlON

4763
4764
4765
4766

;
: INPUTS:
;
: OYTPUTS:

1u5 SLOT IN DVRCLS INDEXED BY TRIBN
TRIBN = NUMBER OF LINE IN USE
DRVCT = COUNT VALUE T0 GO TO LIST
DVRCLS= VALUE OF DRVCT

4768

GETIND

4770

JSR

PC.LDRCLS

(762

. SUBORDINATE ROUTINES USED:

4767

. CALLING SEQUENCE:

4769

4772

477%

4’76
4775
z;;g

030532

030536
030542
030550

004737

013703
113763
000207

031102

007642
010110

UNLOAD DVRCT L1ST

X ]

*LOAD R3 WITH BYTE INDEX
SLOAD LIST WiTH COUNT
SRETURN TO CALLER

INDEX,R3
DVRCT,DVRCLS(R3)
PC

ULRCLS = UNLOAD RX COUNT LIST
: FUNCTIONAL DESCRIPTION:
THIS ROUTINE UNLOADS THE VALUE TO DVRCT FROM
:

(782
4783
4784

;
. INPUTS:
:

THE SLOT IN DVRCLS INDEXED BY TRIBN
TRIBN = NUMBER Of LINE IN USC
DVR(LS- VALUE OF DRv(T

DRVCT = COUNT VALUE FROM LIST

;

GETIND

JSR

PC,ULRCLS

ULRCLS: JSR

PC,GETIND

: OUTPUTS:

4785

4786

. SUBORDINATE ROUTINES USED:

4787

4788

: CALLING SEQUENCE:

4789

4790

4793

030552

004737

031102

4795
4796

030562
030570

116337
000207

007602

4796

.SBITL
K

4780
(781

(792

;GET INDEX

PC,GETIND

MOV
MOV8
RTS

THE VALUE FROM DVRCT T0

GET INDEX FROM TRIBLS

LDRCLS: JSR

007602

2;;3

LDRCLS= LOAD RX COUNT LI1ST7

H1S ROUTINE LOADS

030556

013703

007662

010110

MOV

Move
RTS

INDEX ,R3

DVRCLS(R3) ,DVRCT
PC

GET INDEX FROM TRIBLS

;GET INDEX

:MOVE INDEX TO R3
SUNLOAD LIST
SRETURN TO CALLER

H 1N

CIxMSAQ kMS11-BD/BE DCLT
23-DEC-82 13:5¢6

. P11
CIKMSA

LOAD CPTR LIST (TRANSMIT POINTER)

4797
4798
4799
4800
14,10}
4802
4803
4806
4805
4806
(807
4808
4809
4810
«811
4812
(813
4814
«815
«816
4817
(818
4819
4820

LX J

LDTPLS = LOAD TX POINTER LIST
FUNCTIONAL DESCRIPTION:
THIS ROUTINE LOADS THE VALUE FROM (PTR T0
THE Tx POINTER LIST INDEXED BY TRIBN INDEX.
TRIBN = NUMBER OF LINE IN USE
TS:
INPU
S:
CPTTILS = SLOT LOADED WITH CPTR DATA
PUT
QUT
SUBORDINATE ROUTINES USED:

NINNN
OO OW
NWWN

[=lelele]
O ==
O
O
&

LOTPLS:

007562

JSR

MOV
MOV
RTS

GET INDEX VALUE FROM TRIBLS

PC,LDTPLS

PC,GETIND

INDW,R3

GET

INDEX

HOVE INDEX TO R3

(PTR,CPTILS(RY) ;LOAD LIST
:RETURN TO CALLER
PC

UNLOAD CPTR LIST (TRANSMIT POINTER)

.SBTTL
cée

FUNCTIONAL DESCRIPTION:

ULTPLS = UNLOAD TX POINTER LIST

;SIEP$2UTlNE MOVES DATA FROM TX POINTER LIST

INPUTS:
QUTPUTS:

«82%
4824
(825

TRIBN - NUMBER OF LINE

(PTR

IN USE

- VALUE FROM THE TXx POINTER LIST

SUBORDJNATE ROUTINES USED

GETIND

- GET INDEX FROM TRIBLS

JSR

PC,ULTPLS

CALLING SEQUENCE:

4826

6827

4833
(834

GETIND

CALLING SEQUENCE:
JSR

4821
«822

4828
4829
4830
«83%
«832

MACY1Y 30A(1052) 23
DEC-82 14:01 PAGE 138
CPTR LIST (TRANSMIT POINTER)

030612
030616
030622
030630

004737
013703
016337
000207

ULTPLS:

JSR

MOv
MOV
RTS

PC,GETIND

INDW,R3

sGET

INDEX

;MOVE WORD INDEX 10 R3

(PTTLS(RY),(PTR ;GET PTR FROM L ST
:RETURN TO CALLER
PC

SEQ 137

C2xMSAD KMS11-BD/BE DCLT
23-DE(~-B82 13:5¢6
CIKMSA. P11

MACY1Y 30A(1052) 23-DEC-82 14:01 PAGE 139
LOAD DVTCT LIST (TRANSMIT COUNT)
LOAD DVTCT LIST (TRANSMIT COUNT)

4835

LSBTT,

(837

(838
4839

LOTCLS = LOAD TX COUNT LIST
: FUNCTIONAL DESCRIPTION:
A VALUE FROM DVI(T TOQ
LOADS
ROUTINE
THIS
:

THE TX COUNT LIST (DVTCLS). INDEXED BY TRIBN,

(842
(843
(4.1

: INPUTS:
:
: OUTPUTS:

TRIBN
ovtc1
DVICLS

4846
4(BG7

GETIND
:
: CALLING SEQUENCE:

4836

2%2?

: SUBORDINATE aourluss useo

L84S

«BLB

4850

4852

030632

030636

(853 030642

2ggg

JSR

(849

4851

030650

004737

013703

LDTCLS: JSR

031102

007642

MOV

MOVB

113763 010072 007612

RTS

000207

GET INDEX FROM TRIBLS

PC,LDTCLS

PC,GETIND

:GET INDEX

INDEX,R3

“MOVE BYTE INDEX TO R3

:RETURN TO CALLER

DVI(‘.DV!CLS(RS) LOAD LIST

UNLOAD DVTCT LIST (TX COUNT)

seer

2329

NUMBER OF LINE [N USE
CURRENT TX COUNT FOR LINE
SLOT LOADED WITH DVT(CT

4858
4859

ULTCLS = UNLOAD TX COUNT LIST
: FUN(TIONAL bEscathlou
THIS ROUTINE TAKES DATA FROM DVT(LS AND MOVES
:

4861
4862

: INPUTS:
: OUTPUTS:

TRIBN
OVICT

GETIND -

JSR

4860

4864

: CALLING SEQUENCE:

4865

4866

4869

030652

004737

031102

4871
4872

030662
030670

116337
000207

007612

<870
«873%
874

= NUMBER OF LINE IN USE
= TRANSMIT COUNT VALUE

; SUBORDINATE ROUTINES USED:

4863

4868

[T T0 DVICT

030456

013703

007665

ULTCLS: JSR

010072

MOV

move
RTS

PC,ULTCLS

PC,GETIND

INDEX ,R3

GET INDEX VALUE FROM TRIBLS
:GET INDEX

*MOVE BYTE INDEX TO r3

DVTCLS(R3Y),DVI(T
;RETURN TO CALLER
PC

SEQ 138

(2xmSAD KHS11-BD/BE D(L
23-DEC-82 13:54
CIRMSA.P1Y

MACY]Y 30A(1052)

28;2

LS8TT,L

4877

s e

23 DEC-82 14:01 PAGE 140
GET ALL RX POINTERS FROM LIST TO (CPTRR
GET ALL RX POINTERS FROM L]ST TQ (PTRR

GARPFL = GET ALL RX POINTERS FROM LIST
; FUNCTIONAL DESCRIPTION:
THIS ROUTINE CMECKS ALL RX POINTERS FOR VALID LINES
:
IN CPTRLS AND MAKES SURE THEY ARE ALL ZERO.
:

«878
4879
4880

; QUTPUTS:

4881

CPTRR = ZERO IF ALL CPTRLS [S ZERO
NON ZERO IF NOT,

4882

4884
4885

: SUBORDINATE ROUTINES USED:
GTVIND = GET VALID |NDEX
:

(887

: CALLING SEQUENCE:

4883

4886
4888
(B89

4890

4891
(892

4893
(896
4895
4896
«897
4898
4899

4900
4901

ULRPLS

= UNLOAD (PTRR LIST TO (PTRR

JSR

PC,GARPFL

GARPFL: MOV
MOV

TRIBN,TEMPS
#-1,INDEX

030672
030700

030706
030712
030720
030722
030726
030732
030734

030742

013737
012737

004737
022737
001405
004737
005737
001765

013737

000207

007636
177777

030402
000010

010176
007642

007642

030454
010152
010176

007636

GARP1:

JSR
(MP
BEQ
JSR
18]
8tQ

GARPEX: MQV

RTS

PC,.GTIVIND
#8.,INDEX
GARPEX
P(,ULRPLS
(PTIRR
GARPY

:GETVALID INDEX
; COMPARE INDEX
cEXIT IF DONE
;LOAD CPTRR WITH VALUE
sTEST THE VALUE
:1F IERO CHECK NEXT

;RETURN TO CALLER WHEN DONE

TEMPS,TRIBN

SEQ 139

K1
CIxMSAD xMS11=-BD/BE DCL
CZKMSA. P11
23-DEC-82 13:5¢4

MACY1Y

4902

30A(1052)
LBTTL

4903

GET
ALL TX COUNTS FROM LIST

JRETURN WITH DVTCT=1

4904

J1F

4906
4907

see
: FUNCTIONAL

9N
4912
(913
23}2

:
:

4905

4908
4909
4910

.
:
:

s
:

(916
4917

030744
030752

013737
012737

007636
177777

6919
4920
4921
6922
4923
4924
4925
4926
4927
4928

030764
030770
030776
031000
031006
031010
031012
031020
031026

004737
022737
001410
013703
105763
001765
012737
013737
000207

030402
000010

«918

030760

005037

010072

010176
007642

007642

ALL

010072
007636

COUNTS ARE

ANY COUNT HAS SOME

TO DVTCT

IN T

ZERO EXIT

DESCRIPYION
GATCFL = GET ALL TX COUNTS FROM L]ST
HIS ROUTINE GETS AND CHECKS ALL TX COUNTS TO BE ZERO
OUTPUTS:
DVTCI - ZERO If LIST IS ZERO
NON ZERO [F NOT
SUBORDINATE ROUTINES USED
GTVIND
GET NEXT VALID INDEX
CALLING SEQUENCE:
JSR
PC,GATCFL

GAI(FL

MOV
MOV

TRIBN, TEMPS
#-1,INDEX

GATCY:

JSR
CMP
8EQ
MOV
1818
BEQ
MOV
MOV
RTS

PC,GTVIND
#8.,INDEX
GATCEX
INDEX,R3
DVICLS(R3)
GAT(
#01,0VT(Y
TEMPS,TRIBN
PC

007642
007612
00000t
010176

SEQ 140

23 DEC-82
14:01
PAGE 141
CET ALL TX COUNTS FROM LIST TO ovIC(CY

GATCEX:

CLR

DVTICTY

:CLEAR COUNT

JGET VALID INDEX
;1S INDEX =8 ALL DOCNE
s1F SO EXIT
;IS THIS COUNT O
sIF THIS ONE IS ZERO
sLOAD
COUNT WITH A 1
;RETURN TO CALLERR

LN
(ZKHSAO KHS11-BD/BE DCLT

CIKMSA.P

23-DEC-82 13:54

MACY11Y 30A(1052)

23 DEC-82

14:01

PAGE

SEQ 141

142

T NEXT TX POINTER FROM LIST

SBTTL

GET NEXT TX POINTER FROM ]ST

c4e

. FUNCTIONAL DESCRIPT]ON:

OUTPUTS:

THIS

ROUTINE

~ SNONNNNNNNWNY

o (=] o [elelelelelalels]
o o o OOONNO—=20MN
o o ey N ES =)
N — M)
~N ~ ~ NNNNNNON
o WWNAANNON NN O W

b
ek
o
b

D o

N AN N AN AN

b e
—

i olelelolololelolele]
O NNV B (NN
[P 2l ¥Te Jo ¥ 1,81 Yoo Y]

[=]lelololelelolelelels]

AN U

H
w

N AN N

00C010

007642

177777

007642

030402
000010

007642

GIVIND

JSR

PC,GNTXPR

CALLING SEQUENCE:

GNTXPR:

GNTXZ2:

GNTX1:

030652
010072

(MP
BNE

MOV

JSR
(MP
8EQ
JSR
TST

BEQ
JSR

030612

RTS

<SBTTL

THE

POINTER

CPTR = POINTER FOR NEXT TRANSMIT MESG

. SUBORDINATE ROUTINES USED:
:

GNTXPR = GET NEXT TX POINTER

GETS

#8., INDEX
GNTX1

(PIR

GET VALID INDEX

s 1S INDEX = DONE

#-1, INDEX

PC,GTVIND
#8.,INDEX
GNTX2

PC,ULTCLS
OVICT

+GET COUNT FROM LIST
sTEST COUNT

+RETURN TO CALLER

GNTXPR
PC,ULTPLS

GET

¢UNLOAD POINTER

INDEX BYTE AND WORD

s *e

;
:

FUNCTIONAL DESCRIPTION:
THIS ROUTINE GETS

GETIND = GET INDEX FOR WORD AND BYTE
INDEX LOADED WITH INDEX AND INDW WITH INDEX

H
FOR WORD. IF TRIBLS ENTRY [S EQUAL TO TRIBN
: OUTPUTS:
INDEX - BYTE INDEX

INDW

JSR

GETIN
D MOV
GETI
INC
(MP
BEQ
cMPB
BNE
GETIZ2:
MOV
ASL
MOV

#-1,R3
;LOAD R3 WITH -1
R3
:BUMP R3
#8.,R3
;ARE WE ALL DONE
GETIND
¢ 1F SO GO BACK
TRIBLS(R3),TRIBN ;ELSE COMPARE FOR THIS LINE
GETIN
;BRANCH IF NO MATCH

QOO =20 =NIWVN)
AOANN
N NN N NN N
OWOWNWNOOO
N NN N O NN N NN

QOOOO=0000
Q= O —=0ONONIO
—

SANNNON)
= = = OO
OSSO0V

b
e
el
el
el
el
—

) oud b
b
el
el
el
-—

AN AN AN AN AN AN AN

[elelelelalelelolels]

N N

: CALLING SEQUENCE:

77777

000010

007622
007642

007640

007636

RTS

= WORD

R3, INDEX

R3
R3, INDW
PC

INDEX

PC,GETIND

:STORE OFF BYTE

INDEX

sMAKE UP WORD INDEX
«STORE OFF WORD INDEX
RETURN TO CALLER

mn1"
CZKMSAO KMS11-BD/BE DOLT
CZKMSA.P11 ~ 23-DEC-82 13:54

4976

23-DEC-B2
14:01
PAGE 143
LOG AND QUE REC BUFFERS

.SBTTL

LOG AND QUE REC BUFFERS

: FUNCTIONAL DESCRIPTION:

4319

4981
4982
4983
4984

'
:
:
:

4985

(987

30A(1052)

:00

4978

4988
4989
4990
4991
4992
4993
4994
4995
4996

MACY11

;

031142
031146
031152
031156
031162
031166
031172
031176
031202

013702
011237
012237
011237
011237
010237
004737
004737
000207

010152
010170
010104
010172
010106
010152
064174
024200

LOGAQR - QUE AND LOG RX BUFFERS

THIS ROUTINE QUEUES THE REC BUFFER POINTED T0 BY

INPUTS:
CPTRR = POINTS TO POINTER TABLE ENTRY
IMPLICIT ouTPUTS:
BUFFER QUEUED FOR THIS ENTRY
CALLING SEQUENCE

LOGAQGR:

MOV
MOV
MOV
MOV
MOV
MOV
JSR
JSR
RTS

PC,LOGAQR

CPTRR,R2
(R2) , TEMP2
(R2)+,DVRXA
(R2), TEMP3
(R2) ,DVRCC
R2,CPTRR
PC.DVRXQ
PC,LOGRXQ
PC

;LOAD R2 FROM POINTER
:SET UP ADDRESS FOR LOGGING
:SET UP ADDRESS OF RECEIVE BUFFER FOR DEVICE
:SET UP CHAR COUNT FOR LOGGING
:SET UP COUNT FOR DEVICE
:LEAVE POINTER POINTING AT CHAR COUNT
[QUEUE
REC BUFFER
:LOG RXQ
‘RETURN TO CALLER

SEQ 142

N 11

CIKMSAD KMS11-BD/BE DCLT
-DEC-82 13:54
CIKMSA.P11

MACY11 30AC1052)

SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS

.SBTTL

2333

5000

5001

* FUNCTIONAL DESCRIPTION:

2882
5005

~NP NS WO

5099

DEVI=
DEV2=

MODE TYPE (MODTYP)
MAINT LOOP TYPE (MLTYP)

DEV4=

PARAMTERS WGRD (PARAM)

DEV3=

“'RUN PASS'* COUNT (RPASS) = COUNT DOWN

P IMPLICIT INPUTS:
;
:

s D
NININ) = od b cd b o

:
:

5008
NNV

PRINTED ON THE OPERATOR'S CONSOLE.

¢ INPUTS:

5006
5007
[olelolelolalelaolalalelela]

SHWOP = SHOW MODE OF OPERATION, LOOP, QULAIFIERS

5002

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

* CALLING SEQUENCE:
SHWOP:
010164

MOV
ASL
MOV
MOV

DEV1,R2
R2
MODES(R2),TEMP
DEVZ,R2

5024 031226 012737 016420 010172

MOV

#LP00, TEMP3

MOV

#LPO, TEMP3

N =2 OOV

JSR PC,SHWOP

WAV

;

5023

031204
031210
031212
031220
031224

013702
006302
016237
013702
006302

5025
5026

031234
031236

005702
001003

5028

031246

016237

011470
003334
011472

5027 031240 012737 016417 010172
003352

010166

0114764 010170
010170
010166
010172

§029
5030
5031
5032
5033

031254
031262
031262
031266
031272

013737
013746
013746
013746

5036
5037
5038
ggzg

031306
031312
031314
031316

012746 000005
010600
104416
062706 000014

ASL

ST
BNE

108:

MOV

R?
10%

031340

001003

010164
010166

1$:

031366
031374

012737
012737

016506
016520

010166
010170

2$:

031410
031612

001003
012737

5069
5050

5052
5053

50647 031356 032737 000002 011476

5048 031364 001003
5051

031402

032737

000004

016516

011476
010170

R2
#PST, TEMP
#STATB,DEV4

MOV
MOV

#PNST, TEMP
#PCK, TEMPI

BNE

016475
016510

031362
031350

CLR
BIT

MOV

012737
012737

5065
5066

:LOAD TEMP3 TO POINT TO '‘/LOOP=''

PSEE IF /LOOP=XXXXX OR NONE
:"BR IF /LOOP= OF SOME KIND

*IF NO LOOP THEN DON'T PRINT

LOOPS(R2) TEMP1 :GET ADDRESS OF LOOP=IN-ASCII

5035 031302 012746 017170

5041 031322 005002
5042 031324 012737 016477 010164
5063 031332 032737 000001 011476

:GET THE MODE TYPE IN R2
*MAKE IT A WORD TABLE OFFSET
:GET ADDRESS OF MODE=iN-ASCI!I
*GET MAINTENANCE LOOP TYPE

‘GET NUMBER OF PASSES
DEV3, TEMP2
MOV
TEMP2
MP,
TEMP3, TEMP1,
PRINTS #SHFQ,TE

5034 031276 013746 010164

50644

SEQ 143

23-DEC-82 14:01 PAGE 144
SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS

BIT

SOATCKB,DEVG

MOV
MOV

#PNCK, TEMPY
#PEC, TEMP2

8NE
MOV

3$
#PNEC, TEMP2

BNE

BIT

*‘/LOOP='

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
SNOW SET UP FOR QUALIFIERS I% ASCII
sSEE IF /STATUS OR /NOSTATUS
‘BR IF /STATUS

:SEE IF /CHECK OR /NOCHECK

‘BR IF /CHECK

#ECHOB,DEV4

sSEE IF /ECHO OR /NOECHO
‘BR IF /ECHO

TEMP2,=(SP)
TEMP1,=(SP)
TEMP3.=(SP)
TEMP = (SP)
#sHFQ, - (SP)
#5,-(SP)
SP.RO
CS$PNTS
#14,SP

B 12

_CIKMSAQ xns11-BD/BE DCLY
23-DEC-82 13:54
TvMsAP11
5054
§055

5056

5057

0316420

031626

012737

032737

5058 031435 001003

3828

0316436

5061

031444

5071

031504

5062
5063
5066
5065
5066
5067
5068
5069
5070

031444
031450
031454
031460
031464
031470
031474
031476
031500

012737

0137646
013746
013746
013746
012746
012746
010600
104416
062706

000207

MACY1Y 30A(1052)

016527

010176

016525

010176

000010

010176
010170
010166
010164
017226
000005
000014

011476

3$:

MOV

BIT

BNE
58

SEQ 144

23 DEC-82 14:01 PAGE 145
MODE OF OPERATION, LOOP TYPE AND QUALIFIERS
#PMS, TEMPS

#MOCHK , DEV4

5¢

:SEE IF MODEM OR /NOMODEM

‘BRANCH IF MODEM

MOV

NPNMS , TEMPS

PRINTS

P2,
#SHF1,TEMP,TEMP1,TEMTEMPS

RTS

;RETURN

: TEMP3,TEMP4 *eRFU*e

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

TEMPS,=(SP)
TEMP2,=(SP)
TEMP1. =(SP)
TEMP,=(SP)
ssHFi,-(sP)
#5,-($P)
SP.RO
CSPNTS
#14,SP

¢ 1

CIXMSAO xTMS11=-BD/BE DCLT
23-DEC-82 13:5¢4
C(ZkMSA. P

MACY1Y 30A(1052)

23-DEC-B2 14:01 PAGE 146
TRAVERSE COMMAND LINE SUBROUTINES

TRAVERSE COMMAND LINE SUBROUTINES

gg;g

LSBTTL

5076

5079

:PARSE THE COMMAND L INE SUBROUTINE

gg;g

SEQ 145

P$TRV SUBROUTINE

5083

;TAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE
:PARSING DIRECTIONS FROM ‘(L1 PARSING NODES'
REGS USED:
:
PSNUM=NUMERIC CODE FROM DATA
:

5085
5086
5087

:
:
:

5080
5081
5082

5092

;==

031506

013704

5095

031516

105714

5097
5098
5099
5100
5101
5102
103
g}gg
5106

031522
031526
031530
031532
031534
031540
031544
031546
031550

5093

5094

5096

5107
5108
5109
5110
5111
5112
5113
5114
5115
g}}?
5118

5119
5120
5121
5122
5123
5124
5125
5126

g}g;

R2=ACTION CODE PARAMETER FROM TREE
R3=PARSE TREE POINTER
R4=INPUT STRING POINTER

; CALLING SEQUENCE:
PC,PSTRY
JSR
:

5088
5089

5090
5091

R1,R5=SCRATCH

5084

031512

031520

031552
031556
031556
031560
031562
031564
031566
031570
031572
0315764

031576
031600
031602
031606
031610
031614
031620
031622

5129 031624

013703

003364

003366

001441

121327 000013
111305
006305
016505 031550
062705 031550
004715
000763
000114

PS$TRV:

P$TRS:

PSBUFA,R4

T1STB

(RG)

MOV

BEO

(MPB
MOVB
ASL
MOV
ADD
JSR
BR
.WORD

86T

003023

000134
000152
000162
000204
000270
000604
000650
000270
000256
000736

MOV

108:

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

(MPB
BEOQ
JSR
BR
JSR
ADD
INC

121314
001403
004737 031646
000743
004737 031626
062703 000004
005204

20%:

000207

PSEX]IT: RTS

000735

22%:

B8R

PSTREE,R3

PSEXIT

(R3), M1,
20%
(R3),RS
RS
108(RS) RS
#108,RS
PC, (RS)
P$TRS
TRVERR-10%

TRVEX1-10%
TRVBR-10$%
TRVBIF-10%
TRVSPA-10%
TRVNUM-10%
TRVALP-10%
TRVALN-10%
TRVOCT-10%
TRVDEC~-10%
TRVSTR-10%

R3), (R4)
2%
PC, TRVBRC
PS$IRS
PC,TRVACT
2 ,R3
R4
PS$TRS

:SEE IF ANY (HARS LEFT N [INPUT STRING
¢BR [F NO

;SEE IF SPECIAL CLI CHAR CODE OR ASCII
:BR IF REGULAR ASCI] CHAR,
:GET SPECIAL CHAR CODE INTO RS
;BUILD TRAVERSE ROUTINE ADDRESS
:JSR T0 SPECIAL CLI TRAVERSE ROUTINE
;GO SEE IF MORE OF STRING LEFT
;TRAVERSE TABLE FOR ''CLI FUNCTIONS'
3
.2
;3
b
:5
:6
7
.8
:9
210

sNOT A SPECIAL CODE

:SEE IF FIRST CHAR OF STRING IS A MAT(H
:BR IF A MATCH
:1F NOT A MATCH, GO TAKE MISS BRAN(CH
: THEN GO BACK PT*G TO MISS NODE
:1F A MATCH, GO DO ACTION DEF INED BY
: ACTION CODE IN CLI NODE, THEN
: ADJUST PTR TO NEXT CLI NODE
;ADJUST BUF PTR TO NEXT (HAR |F MAT(H
:RETURN FROM PARSER

/BE
(ZKHSAg KHS11-BD
23-Dt -82 1 13:5¢4

MACY11 30A(1052)

5131

6132

5133

031626

116302

g}gg

031644

000207

000001

5134 031632 042702 177400
5135 031636 013705 003370
5136 031642 004715

5139

51640 031646
5141 031652
g}:g 031656

016305 000002
060503
000207

5144

5145 031656 062703 000004
g}zg 031662 000207

5148

23-DEC-82

PAGE 147

TRAVERSE COMMAND LINE SUBROUTINES

:GOTO USER ACTION ROUTINE

TRVACT: MOVB

BIC
MOV
JSR
RTS

:GET ACTION CODE FROM CLI NODE

SCLEAR ANY SIGN EXTENSION
*GET ADDRESS OF CLI ACTION ROUTINE
26O DO ACTION DEFINED BY CODE
*RETURN TO CALLING CODE

2(RY),RS
RS,R3
PC

:GET BRANCH DISPLACEMENT FROM TREE
P AND POINT R3 10 THE 'MISSTM NODE
: RETURN TO PSTRV

#4,R3
PC

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

.............................................................................

JMP

5150 031670 112¢37 177777 003401
5151 031676 005726

NO BRAN(H TAKEN

tRVNOB: ADD
RTS

g}gg 031700 000137 031624

004737

21776400 ,R2
PSACT,RS
PC, (RS)

TRVBR(: MOV
ADD
RTS

TRVERR: JSR

031664

1(R3),R2

:TAKE BRANCH IN TREE

031626

5149

14:01

——

DC L

CIKMSA.PYY

D 12

PC, TRVACT

:TAKE ERROR ACTION

MOVB
197

0-{.PSGDBD
(SP)e

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

PSEX]T

"RETURN DIRECT T0 EXIT OF PSTRV ROUTINE
sTAKE EXIT ACTION

031704

004737

031626

TRVEX]: JSR

PC,TRVACT

‘SET GOOD/BAD FLAG TO ‘'SUCCESS (0)*"
:GET RIC OF '"'JSR PUSH T( TRVEX]''
*RETURN DIRECT TO EXIT OF PSTRV ROUTINE

§159 031722

2}29

031726

004737

031626

TRVBR:

JSR

PC, TRVACT

;GO TAKE BRANCH ACT!ON

§162

031732

004737

031626

TRVBIF: JSR

PC,TRVACT

000011

1%:
TRVSPA: CLR
(MPB
1$:

000040

28:

;SEE IF PSGDBD SET OR CLEARED BY ACTION
*1F CLEAR FALL THRU TO NEXT NODE
TELSE TAKE THE "MISS'' BRANCH
1JUST UPDATE 1O NEXT NODE IF THINGS OK
:CLEAR ''SPACE OR TAB FOUND'' FLAG
SSEE IF CHAR. IN CMD LINE= TAB
‘BR IF NO, NOT A TAB
LINC INPUT STRING POINTER
*INDICATE A TAB FOUND
16O CHMECK NEXT CMAR
:SEE IF CHAR. IN CMD LINE= SPACE

5154

5155 031710 105037 003401
5156 031714 005726
g}gg 031716 000137 0316264

5163
5166
5165
g}gg
§168
5169
5170
5171
5172
g};i
§175

5176
§177
5178
5179
5180
5181
5182
5183
5184

031736
031742
031744
021750
031754
031756
031762
031764
031766
031770
031772

031776
032000
032002
032006
032006
032010
032012
032016
032022

000137

105737
001402
000137
000137
005005
121427
001003
005204
005205
000772
121427

031646

003401
031646
031656

001003
005204
005205
000764
005705
001404
004737 031626
000137 031656
000137 031646

(LRB
18
JMP
JMp

1ST8
BEQ
JMP
JMP

108 :
15%:

BNE
INC
INC
BR
CMPB

BNE
INC
INC
BR
3
BEOQ
JSR
JMpP
Imp

P$GDBD
(SP)e
PSEXIT
TRVBR(

P$GDBD
18
TRVBRC
TRVNOB
RS
(RG) , M1
2%
R4
RS
1%
(R4) ,#40

10%
R&
RS
1%
RS
15%
PC, TRVACT
TRVNOB
TRVBR(

‘BR IF NO, NON=SPACE OR NON-TAB CHAR.
TINC INPUT STRING POINTER
SINDICATE A SPACE FOUND
16O CHECK NEXT CMAR
‘SEE IF ANY SPACES OR TABS FOUND
‘BR IF NO, TAKE NO ACTION
‘GO TAKE ACTION IF ANY FOUND
1JUST GO UPDATE R3 TO NEXT NODE IF Ok
*TAKE BRANCH (MISS) [F NONE OUND

0 14

E 12

CIXKMSAD KMS11-BD/BE DCLT
3-DEC-82 13:54
(IKMSA.P11
$185

§186

032026

$188

032040

5187

5189
5190
5191
5192

5193
5194
5195
§196
g}gg
§199
5200

5201

5202
§203

5204
§205
5206
5207
6208
5209
5210
5211
§212
§213

032034

032040
032046
032050
032054

012737

000137

012737
005005
121427
001001

032056 000406
032060 121427
032064 001004
032066 112737
032074 005204
032076 121427
032102 002636

032104

032110
032112

032120
032122
032126
032130
032130
032134
032140
032142
032144
032150

000012

032046

000010

MACY1Y 30A(1052)

003376

001417
121427 000071

003376

TRVOCT: : (SAME AS TRUNUM SINCE DEFAULT RADIX IS OCTAL)
<USE OCTAL AS RADIX AND "SSUME ¢
#8.,PSRADX
TRVNUM: MOV
“CLEAR DIGIT COUNTER
RS
TRVNMA: (LR

JMP

(MPB

BNE

10%:

003377

11%:

1%:
000012

112737

gg}g 032156 000474

177777

003401

12¢:
13%:

§222 032174 005705
5223 032176 001464

2%:

5219 032170 005205

ggg? 032172 000741
§224
5225
§226
§227
5228
5229
5230
5231
5232
§233
5234
§235
5236

032200
032202
032204
032210
032212
032216
032222
032224
032232
032236
032240
032244
032246

010401
160501
005037
112102
162702
006337
103437
013737
006337
103431
006337
103426
123727

5240

032266

060237

003374
1 ¥
000060
003374
00337¢ 003372
003374

003374

003376 000012

5237 032254 001004
5238 032256 063737 003372 003374
§239 032264 103416
003374

4%:

:SEE IF THERE'S A + SIGN THERE
S"BR IF NO
* ELSE PSRADX ALREADY SAYS +, JUST BR
;SEE If THERE'S A = SIGN THERE
S"BR IF NO
“SET "MINUS FLAG'' (HI BYTE OF PSRADX)
;BUMP R4 TO POINT TO FIRST (HAR

(RG) ., &'

10%

118
(RG) 8"~
1%
#-1,PSRADX+1
R4

CMPB
BLT
(MPB

(RG) ,#60
2%
(RG) , 867

BEO
(MPB
8GT
PRINTF

12%
(RG) ,#71
28
#CL1BRX

:SEE IF CHAR. LESS THAN A *'0"
:SEE IF CHAR. GREATER THAN A 7
‘BR IF YES (NOT NUMERIC)
2 BR IF YES
‘SEE IF IN DECIMAL MODE

13¢
PSRADX,#0.

MOVE

#-1,P$GDBD

: BR IF YES (CAN USE HIGHER LIMIT)
“SEE IF DIGIT WAS A 8 OR 9
‘BR IF NON=NUMERI(
;ELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX
#CLIBRX,=(SP)
MOV
#1,-(SP)
MOV
SP.RO
MOV
(SPNTF
TRAP
¥4, 5P
ADD
;SET ERROR RETURN FLAG

CMPB
BGT
INC

(RG) , 871
2
R4

SSEE IF CHAR, GREATER THAN A ‘9"
BR IF YES (NOT NUMERIC)
TUPDATE (MD LINE PTR TO NEXT (HAR,

ST
BEQ

RS
5$

;SEE IF FOUND ANY NUMERICS
BR IF NO, TAKE 'MISS" BRANCH
;GET POINTER TQ START Of NUMERIC STRING
SCLEAR LOC. WHERE VALUE WILL BE STORED
:GET ASCII CHAR AND CONVERT IT TO A #
:SHIFT CURRENT VALUE TO MAKE ROOM
*ERROR [F NUMBER 100 BIG

B8R

§216 032160 121427 000071
§217 032164 003003
5218 032166 005204

TRYNMA

BR
(MPB
BNE
MOVB
INC

BLE
(MPB

003022

012746 0°4105
012746 00001
010600
106617
062706 000004

;USE DECIMAL AS RADIX AND ASSUME +

#10.,PSRADX

TRVDEC: MOV

000060
121427 000067

003426
123727

23-DEC-B2 14:01 PAGE 148
TRAVERSE COMMAND LINE SUBROUTINES

003376

000053

000055
177777

SEQ 147

INC

B8R

MOV
SUB
CLR
MovBe
SUB
ASL
BCS
MOV
ASL
B(S
ASL
BCS
CMPB
BNE
ADD
B8(S

ADD

*"PRINT ERROR AND TAKE MISS

TINDICATE A NUMERIC FOUND

160 LOOK AT NEXT CHAR,

R4 R
PENUM
(R1)¢+ R2
#60,R2
PINUN
7%
PSNUM, PSCNT
PSNUM
7%
PENUM
7%
PSRADX,#10.

RS.RY

43
7%

PSCNT,PSNUM
R2,PSNUM

*SAVE FOR LATER IN CASE DECIMAL RADIX
;ERROR [F NUMBER 7100 BI1G
JERROR IF NUMBER 100 BIG
“SEE IF DECIMAL RADIX
‘BR [F NOT EQUAL
;ERROR [f NUMBER 100 BIG

CZxMSAQO KkMS11~BD/BE D(L?Y
23-DEC-82 13:54
(2xMSA . PN

5241

032272

6244

032300

5242
5243

5245

032274
032276

032304

MACY1! 30A(1052)

005305
001344

105737

001402

:ERROR [F NUMBER T00 BIG

1$18

PSRADX*1

NEG
JSR
JMP
PRINTF

PENUM
PC,TRVAQY
TRVNOB
#CLINBG

:SEE IF NUM WAS PRECEDED BY A - SIGN
: BR [F NO
: ELSE NEGATE THE NUMBER BEFORE LEAVING
:SINCE NUMERIC FOUND, GO TAKE ACTION
;60 POINT R3 TO NEXT NODE
;PRINT NUMBER TUO BIG ERROR

DEC
BNE

003377

BEQ

52646 032306 005437 003374
5247 032312 006737 031626
2%23 032316 000137 031656
5250 032322
5251 032322 12746 014063

15%:
7%:

SEQ 148

23-DEC-82 14:01 PAGE 149
TRAVERSE COMMAND L INE SUBROUTINES

8(S

103413

RS
1

15%

MOV

MoV
MOV

£§252 032326 12746 000001
5253 032332 910600

5254 03233¢ 104417
5255 032336 062706 000004

5256 03234C
g%gg 032350
5259

5260

5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
6271
gg;g
5274
5275
5276
5277
5278
5279
§280
5281
65282
5283
5284
5285
6286
5287
5288

5289
5290
5291
6292
2582
5295
5296

032354

032356
032362
032364
032370
032372
032374
032376
032400
032402
032404
032410
032414
032420
032422
032426
032430
03243&
032436
032440
032442
032444
032450
032452
032456
032460
032662
032464

032466
032670
032472
032476
032502

112737
000137

005005

121427
121427
003003
005204
005205
000767
005705
001404
004737
000137
000137
005005
121427
002417
121427
003003
005204
005205
000767
121427
002406
121427
003003
005204
005205
000756

002406

177777
031646

000101
000132

031626
031656
031646

000060
000072

003401

5$:

MOvVB
JMP

TRVALP: CLR

CMPB
(MPB
BGT
INC
INC
BR
1St
2%:
8EQ
JSR
JMP
JMP
3%:
TRYALN: CLR
C(MPB
10%:
8Lt
1%:

BLY

(MPB
BGT
INC

000101
000132

1%:

005705
001404
004737 031626
000137 031656
000137 031646

2%:
3%:

INC
B8R
(MPB
BLT
(MPB
BGT
INC
INC
BR
TSt
8EQ

JSR
JMP
JMP

TRAP
ADD

#CLINBG,=(SP)
8 ,=-(SP)
SP,RO
CSPNTF
2 ,5P

#-1,P$GDBD
TRVBR(

:SET ERROR RETURN FLAG
;TAKE *M]ISS'" BRAN(CH

(RG) ,m01
2%
(RG) 8132
2%
R4
RS
19
RS
b1
PC,TRVACTY
TRVNOB
TRVBR(
RS
(R&) ,#60
29

:SEE IF CHAR. LESS THAN A ‘A"
:BR IF YES (NOT ALPHA)
:SEE IF CHAR, GREATER THAN A 7"
:BR IF YES (NOT ALPHA)
:UPDATE (CMD LINE PTR TO NEXT (HAR
:INDICATE AN ALPHA WAS FOUND
;60 LOOK AT NEXT CHAR.
;SEE IF ANY ALPHA'S WERE FOUND
:BR [F NO
;1F ANY FOUND TAKE ACTION
:THEN UPDATE R3 TO NEXT NODE ~NO BRAN(H
:NONE FOUND, TAKE M]ISS BRANCH
:CLEAR ALPMHANUM FOUND FLAG
:SEE IF CHAR, LESS THAN A 0"’
:BR IF YES (NOT NUMERIC OR ALPHA)

RS
108
(RG) , #4101
2%
(RG) , 4132
2%
R4
RS
108
RS
1%

:INDICATE A NUMERIC FOUND
;G0 LOOK AT NEXT (HAR.
;SEE IF CHAR. LESS THAN A "'ATM
vrs
:BR IF YES (NOT ALPHA)
:SEE IF C(HAR. GREATER THAN A *°Z°
:BR IF YES (NOT ALPHA)
;UPDATE (MD LINE PTR TO NEXT (HAR
:INDICATE AN ALPHA FOUND
;G0 LOOK AT NEXT (HAR,

(RG) 872
1%
R4

PC, TRVA(T
TRVNOB
TRVBR(

;CLEAR ALPHA FOUND FLAG

:SEE IF CHAR. GREATER THAN A ''9*’
:BR IF YES (NOT NUMERIC)
JUPDATE (MD LINE PTR TO NEXT (HAR,

:SEE IF ANY ALPHANUM'S WERE FOUND
:BR IF NO
:1F ANY FOUND TAKE ACTION
;THEN UPDATE R3 10 NEXT NODE =NO BRAN(H
:NONE FOUND, TAKE MISS BRAN(H

6 12
CZKMSAQ KMS11=BD/BE

(ZKMSA.P11

5297
5098

5299
5300

5301
5302
5303
5304
5305
5306
§307
5308
5309
3310

5312
5313
5314
§315
5316
5317
5318
3319
5321
5322
§323

032506
032510

032512
032516

030522
030504
030506
032530
032532
032534
032536
032542
032544
032546

D(LT

23-DEC-B2 13:54

010401
010305

062705
005037

105715
001411
105711
001407
121115
001005
005237
005201
005205
000765

000006
003372

MACY1Y

30A(1052)

005737
001406
010104
004737
066303
000207

003372

032572

000137

031646

TRAVERSE

14:01

PAGE

COMMAND LINE

SEQ 149

150

SUBROUTINES

TRVSTR: MOV
MOV

R4 ,R1
R3.RS

:POINT R1

28:

(RS)
108%
(R
108
(R1),(RS)
10$
PSCNT
R
RS
28

SEE IF END OF MATCH STRING YET
:BR_IF YES
SEE IF END OF CMD LINE YET
:BR_IF YES
JSEE IF CHARACTERS MAT(H
:BR_IF NO
MATCH =INCREMENT MATCH COUNT
:UPDATE STRING POINTERS

003372

032550
032554
032556
032560
032564
032570

23-DEC-B2

ADD
(LR

1S18
BEQ
118
BEQ
(mP8
BNE
INC
INC
INC
BR

#5.R5
PS{NT

108:

I1ST
BEQ
MOV
JSR
ADD
RTS

P$(NT
158
RI.R&
P TRVA(T
4(R3),R3
PC

158:

JMP

TRVBRC

031626
000004

T0 (MD STRING

:POUNT RS TG MATCH STRING FROM CLI NODE
CLEAR CHAR MATCH COUNT

:BR TO CONTINUE CHECKING CHARS.
;WHEN DONE SEE IF ANY MATCHES FOUND
:BR IF NO, GO TAKE THE MISS BRANCH
:POINT (MD POINTER TO END OF STRING &
S1F A MATCH FOUND, GO DO MATCH ACTION
UPDATE R3 TO NEXT NODE (NO BRANCH)
: (NO RETURN THRU TRVNOB SINCE DIFFERENT
:
DISPLACEMENT DUE TO MATCH STRING)
: GO TAKE BRANCH

: (PARSED OK), =1 IF ILL CMD.....
De
e e e

M 12

(2xMSAQ xMS11-BD/BE D(L!?

(IKMSA. P11

23-DEC-8B2 13:5¢4

MACY1Y 30A(1052)

23-DEC-82

REFORT CCODING SECTION

14:01

SEQ 150

PAGE 151

REPORT CODING SECTION

5324

.SBTT_L

5327

: THE REPORT (ODING SECTION CONTAINS THE
: "'PRINTSTM CALLS THAT GENERATE STATISTICAL REPORTS,

5325
5126

see

5328
2%%8
53N

5332

BGNRPT

032576

5333 032576

2335

5336 032576 004737 024644

%%%g

5339
5340
5341

5342

ENDRPT

032602

5343 032602
5364 032602

JSR

106425

LSRPT::

P(,REPORT

:CALL SUBROUTINE TO DUMP EVENT LOG

: AND BASE TABLE OR TO GET LINE STATUS

L10013:

TRAP

(SRPT

112

CLENSAQ. KMS11-80/BE DCLT

CZKMSA.P11 ~ 23=DEC-B2 13:5
5345

R
E
S
E
TIM
RUN
E
TH
BY
ED
US
IS
LE
_TAB
:10/THIS2R0
SER
e VICES
TEET TRE LOND MED IR
BGNPROT

NNN
NSNS
NN

o
o
o

032612

NN~
NN

604
g0t

) aold

NN
O

606

W
O

OO0

~NO VWO
P

PROTECTION TABLE

coe

3345

OOV

SROIRT onsTapeg B2 14:0T PAGE 152
.SBTTL

5347
[V IV IV YV TW YV IW 1V 10V IV, IV, |
AN N N UM U N LN N AN N
N
O NN N NN
AU

SEQ 151

MACY11 30A(1052)

-1
-1
ENDPROT

{$PROT::
;OFFSET INTO P=-TABLE FOR CSR ADDRESS
¢OFFSET INTO P-TABLE FOR MASSBUS ADDRESS
;OFFSET

INTO P-TABLE FOR DRIVE NUMBER

J 12

C2xMSAD KMS11-8D/BE DCLT

CIKMSA . P

23-DEC-82 13:5¢4

MACY1Y 30A(1052)
LSBYTL

5361

5362
5363

BGNINIT

0326172

5371
§372
5373
§374
5375

032612
032616
032622
032624
(032630

005037
005737
001403
005037

§378

032632

012737

032612
003246
010212

010212

g%;g 032630 104444
5379
5380
5381
5382
5383
5384
5385
5386
5387
5388

5389
5300
5391
5392
5393
5394
5395
5396
5397
5398

177777

032640
032640 012700 000040
032644 104447
032646
032646 103417
032650
032650 012700 000037
032654 104447
032656
032656 103514

010214

032660
032660 012700 000036
032664 104447
032666
032666 103002

032670 000137 033646
(032674

032674 012700 000035
032700 104447
032702
5399 (032702 103522

228?

032704

000524

66402
5403
5604
5405
5406
5407
5408

032706
032712
032712
032714
032720
032726

005037 010214
104433
005037 010254
012702 010250

$6409
5410
5611
56412
5413

032724
032730
032732
03273
03273

012700 000114
104462
010001
103006

5416 032736 004737 023776
5415 032742 012737 000100 010260
8416

INITIALIZE SECTION

5368

g%gg

SEQ 152

PAGE 153

5364
5365

5366
5367

23-DEC-82

INITIALIZE SECT]ON

14:01

032750

000657

INIT1:

LSINIT::

(LR
ST
BtQ
(LR
DOCLN

KEYWD?
DCLFLG
INITY
DCLFLG

:CLEAR USER COMMAND SPECIFIER
SCLEAN UP AND EXIT REQUESTED ?
;BRANCH [F NOT
SCLEAR CLEANUP REQUEST SPECIFIER
;G0 CLEAN UP

MOV

#-1,RESFLG

:SET RESTART FLAG

READEF

#EF .START

BCOMPLETE

READEF

S1:

RESTRT

#EF.CONTINUE

S
BNCOMPLE TE
ENDIT
JMP
READEF WEF .NEW

BCOMPLETE

START:

START

#EF .RESTART

BCOMPLETE

READEF

TRAP

NEW

GE TPRM

(LR

RESFLG

CLR
MOV
CLOCx

CLKVEC
#CLKCSR,R2
L.RY

BRESET

$2
BNCOMPLE TE
PC,CLKSET
JSR
SLCLKEN,CLKEN
MOV

B8R

RESTRY

CS$DCLN

S1F HERE CAUSE OF START,DO SOME INIT
#EF .START RO
MOV
CSREFG
TRAP
START
8CS
;1F WERE CAUSE OF RESTART, DO SOME INIT

MOV
TRAP

#EF .RESTART RO
CSREFG

BCS

RESTRT

B8(S

NEW

;SEE IF WE'RE MERE CAUSE OF A CONTINUE
#EF .CONTINUE ,RO
MOV
CSREFG
TRAP
:BR IF NOT HERE CAUSE OF CONTINUE
S
BCC
:JMP IF HERE CAUSE OF A CONTINUE
SSEE IF THIS IS A *'NEW PASS"
#EF _NEW,RO
MOV
CSREFG
TRAP
:1F YES, BR AROUND LOGUNIT # SETUP
:CLEAR RESTART FLAG SINCE HERE ON START
SINIT ENTIRE BUS
CSRESET
TRAP
IN
FLAG
A
AS
;CLEAR (LK VECTOR PTR.
FOUND.
IS
S NO CLOCK
SSETUP R2 AS A PTR. TO CLOCK INFO BLOCK
SLOOK FOR A LINE CLOCK

#°'L.RO
MOV
CeCLCK
TRAP
RO,R1
MOV
: IF NONE THERE GO LOOK FOR A P-(CLOCK
24
8CC

: GO SET UP CLOCK INFO TABLE & (L VEC.
:SETUP THE ENABLE LINE CLOCK DATA

K 12
C2KMSAD KMS11-BD/BE
CZKMSA.PI1
3

218 032752

5419
5420
5421
5422
56423
5424
56425
56426
5427
5428
gzgg

032752
032756
032760
032762
032762
032764
032770
032776
0330064
033012
033020

$431
5432
5433
5434
5435
5636
5437
56438
5439
5440
56441
5442

033022
033022
033024
033024
033026
033034
033040
033046
033046
033050
033052
033054

012700
106462
010001

103017
004737
062737
012777
162737
012737
000433

DCLT
13:54

023776
000002
001600
000002
000111

000100
010252
010260

012746
012746
010600
104417
062706
005037
005037
013737
012702
010237

000004
010262
010264
010256
010300
010276

5463

023142

033146

020227

001373

011334

§465
gzgg

033150
033150

012737

177777

56469

033156

005237

5470
5471

033162
033170

010206

023737
002367

010206

gzgg

010254

010250

1046443
000406
010256
000052

033070
033070
033074
033100
033102
033104
033110
033114
033120
033126
033132

033136

JSR
ADD
MOV
SuB
MOV
BR

010250
155244
010250
010260
$3:

000410

5462

14:01

016553
000377

PAGE

BNCOMPLC TE

033066
033066

033062

033064

¢ LOCK

104407
103021
012737
005037
012737

30A(1052)
23-DEC-82
INITIALIZE SECTION

000120

56443
5444
56445
5446
5447
56448
5449
5450
5451
56452
5453
56454
5455
5456
5457
5458
5459
5460
5461

033056
033060

MACY1?

PC,CLKSET
#2.CLKCSR
#PCLKCT,aCLKCSR
#2,CLKCSR
#PCLKEN, CLKEN
RESTRT

READBUS

SEQ 153

154

;LOOK FOR A P=-CLOCK SINCE NO LINE CLOCK
MOV
#°'P,RO
TRAP
(S$CLCK
MOV
RO,R1
; IF NONE THERE GO SEE IF THIS IS (SI
BCC
53
; ELSE GO SET UP CLOCK INFO & VECTOR
;POINT CLKCSR TO P<{LK COUNT SET REG.
;LOAD CLK SET REG. W;TH COUNT VALUE
;POINT CLKCSR BAC TO P-CLK CSR
;SETUP THE ENABLE THE P-CLK DATA
;READ BUS TYPE

TO SEE

IF ON AN LSI
TRAP
C$SRDBU
BNCOMPLE TE
4
;BR IF NOT, NO CHANCE OF A CLOCK
s
S4
MOV
#100,CLKVEC
;LOAD 100 AS CLK VECTOR
(LR
CLKBR
;LOAD 0 AS CLK INT. LEVEL
MOV
#CLKEN,CLKCSR
;KLUDGE UP THE (SR & ENABLE DATA LOCS
GMANID
L5060,CLKNZ,D,277,50.,60.,YES
TRAP
CSGMAN
B8R
10000%
.WORD
CLKHZ
.WCRD
TSCODE

000062

000074

012722

S4:

016671
000001

RESTRT:
010266

177777

1%:

010206
002012

NEW:
GETPRM:

RESTRT

PRINTF

#BDCLK

CLR
(LR
MOV
MOV
MOV

TIMMIN
TIMSEC
CLKHZ, TIMTCK
#EVILOG,R2
R2,EVIPIR

100008:

.WORD
LWORD
WORD
MORD

;LOAD TICKS/SEC
SINIT EVENT TABLE TO ALL 1°'S AFTER EACH
; START OR RES AND INIT TABLE POIN'ER

#-1,(R2)¢

BNE

:LOOP UNTIL DONE

MOV

#-1,L0GUNT

SINITIALIZE LOGICAL UNIT #

INC

LOGUNT

;POINT

(MP
BGE

R2.#EVTEND

LOGUNT,LSUNIT
NEW

TSLO!
IM

TSHILIM

MOV
#BDCLK,=(SP)
MOV
#,-(SP)
MOV
SP.R0
TRAP
CSPNTF
ADD
86 ,SP
;CLEAR TIME SINCE START LOCATIONS

MOV

CMP

LS060
377

;SEE

IF REACHED END OF

LOGICAL

TABLE

UNIT

:SEE If PAST MAX. LOG. UNIT #
‘BR IF YES, AND START OVER

L 12
CZKHSAO KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-82 13:54
5473
5674
5475
5476
§477
22;3

033172
033172
033176
033200
033202
033202

gzg?

033204

013700
104442
010001

MACY11

30A(1052)
23-DEC-82
INITIALIZE SECTION
GPHARD

010206

000001

012222

MOV

§482

gzgz
033212
033216

011137
011137

5488
5489

033226
033232

5491

033244

5493

033256

5495

033270

5497

033302

5490

5492
56494

5496

033222

033240

013372
013374

MOV
MOV

011137
062737

013376
000002

013376

MOV
ADD

062737

000003

013400

ADD

#3,BSEL3

062737

000004

013402

ADD

06, SELG

062737

000005

013404

ADD

#5,BSELS

000006

013406

ADD

#6,SEL6

ADD

#7,BSEL7

MOV
MOV
ADD
MOV
MOV

2(R1), INVEC
2(R1) ,0UTVEC
#64 ,0UTVEC
4L(R1),INTPRI
6(R1),MODCSR

005237
011137

033252

011137

033264

011137

013374

013400

013402

013404

011137

5498

033310

011137

013410
000007

013410

§501
5502
5503
5504
2282

033322
033330
033336
033344
033352

016137
016137
062737
016137
016137

000002
000002
000004
000004
000006

013412
013414
013414
013416
013426

033314

062737
062737

013406

INC

033276

gggg

gggg
§509
5510

5511
5612

5513
5514

5515
5516
5517

5518

5519
5520
5521
5522
5523
5524
§525
§526
5527
5528

JGET THE P-TABLE FOR THIS LOG. UNIT
MOV
LOGUNT RO
TRAP
($GPHRD
MOV
RO,R1
;1F NO P=TABLE AVAIL., GO GET NEXT ONE
BCC
GE TPRM
;FULL DUPLEX ONLY

;DEVICE DEPENDENT PART OF GETTING INFO FROM P-TABLE

$485
5486

5487

GE TPRM

#1,FHDPLX

SEQ 154

PAGE 155

LOGUNT ,R1

BNCOMPLETE

103365
012737

14:01

MOV

MOV
MOV

(R1),SELO
(R1) |BSEL1

;STORE AWAY (SR ADDRESSES

BseL{

(R1),SEL2
#2,SEL2

(R1),BSEL3

(RT)
. SEL4
(r{),BSELS

(R1),SEL6

(RT),BSEL7
;STORE AWAY INPUT INTERRUPT VECTOR
JBUILD OUTPUT INTERRUPT VECTOR
;STORE AWAY INTERRUPT PRIORITY
:STORE AWAY MODEM CSR (DM11-BA) ADDR

JINITIALIZATION CODE - LOAD FIRMWARE INTGC “MC-118
033360
033362

033366
033374

033400
033404

033410
033412

033414

033420
033426
033432
033432
033436
033442
033444
033446
033452
033452

005005
012704

012777
010577

011477
017702

022402
001450

033660
002000
160002

157776

160002
157776

010537

010170

012746
012746
010600
104417
062706

053660
000001

012746

053720

016437
010237

LDFIRM:

177776
010174

000004

010172

28:

CLR
MOV
MOV
MOV

RS
#ODCMPS R4

sSPECIFY INITJAL CRAM ADDRESS
:POINT TO KMS FIRMWARE I[MAGE

CMP
BEQ

(RE) ,aSELG
aSEL6, R
(R4)+.R2
10%

‘WRITE IMAGE WORD TO CRAM
*READ BACK WORD JUST WRITTEN

MOV
MOV

MOV

MOV
MOV
PRINTF

PRINTF

#RAMO,3SELO
RS,3SEL4

SSPECIFY LOAD CRAM
‘WRITE CRAM ADDRESS

:IF WORD READ BACK IS WORD WRITTEN
:THEN CONTINUE LOADING
:FAILURE LOADING FIRMWARE

RS, TEMP2’

:SAVE CRAM ADDRESS

-2(R4)
, TEMP3
R2.TEMP4
#F IRMLD

:SAVE WORD LOADED
:SAVE WORD READ BACK
JPRINT FAJLURE MESSAGE

#DATAHD

;PRINT HEADER

MOV
MOV
MOV
TRAP
ADD

nrxnnLo -(SP)
21,-(SP)
SP.RO
CSPN!!
»,SP

MOV

#DATARD ,=(SP)

m12

CZXMSAO KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC~82 1
5529
5530
5531
5532
§633
5534
5535
5536
§837

033456
033462
033464
033466
033472
033472
033476
033502
033506

012746
010600
104417
062706

000001

013746
013746
013746
012746

010174
010172
010170
053771

5539
5540
5561

033516
033520
033522

010600
104417
062706

5538

55¢2
5943
5544
5545
2229
§548
5549
5550

033512

033526
033526
033530
033530
033532

012746

005205

gggz

033542

001314

§555
5556
5557
5558
5559
5560
ggg;

033544
033544
033550
033554
033560
033564
033566

000004

PRINTF

14:01

SEQ 155

PAGE 156

#DATALD,TEMP2,TEMP3,TEMP4 ;PRINT DATA

000004

000012

DOCLN

:GO CLEAN UP

053660

012746
012746
013746
012746
104437
062706

000340
024022
010254
000003

#1,-(SP)
SP,RO
CS$PNTF
#6,SP

MOV
MOV
MOV
MOV

TEMP4 ,-(SP)
TEMP3,=(SP)
TEMP2,=(SP)
#DATALD = (SP)

MOV
TRAP
ADD

SP,R0
CSPNTF
#12,5pP

108 :

LDFIRM

INC

BNE

CMP

SETVEC

:CONTINUE LOADING FIRMWARE

#DDCMPE R4

;UPDATE THE CRAM ADDRESS
*TEST FOR DONE

SLOOP TIL FIRMWARE LOADED

CLKVEC,#CLKINT,#340

;SETUP CLOCK VECTOR

000010

gggz

86 ,-(SP}

TRAP
CSDCLN
;ALLOW OPERATION INTERVENTION VIA CTRL/C
TRAP
($BRK
;RETRY LOADING FIRMWARE

BREAK

022704

MOV
MOV
TRAP
ADD

MOV

104422
000712

033534

033536

30A(1052)
23-DEC-82
INITIALIZE SECTION

104444

5551

5552

MACY1?

MOV
MOV
MOV
MOV
TRAP
ADD

#340,-(SP)
#CLKINT,=(SP)
CLKVEC,=(SP)
#3,-(SP)
CSSVEC
#10,SP

;DEVICE DEPENDENT VECTOR SETUP

5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
gg;g

033572
033572
033576
033602
033606
033612
033614
033620
033620
033624
033630
033634
033640
033642

§580
5581
5582
5583
5584

033646
033646
033646
033652

013746
012746
013746
012746
104437
062706

01%.70
067204
013412
000003

01374F
012746
013746
012746
104437
062706

013416
067214
013414
000003

000010

INVEC,#DVINS,INTPR]

SETVEC

OUTVEC,#DVOUTS,INTPRI

SETPR]

#PR100

000010
ENDIT:

012700
104441

SETVEC

000000

;SETUP INPUT

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

:SET THE

N
"RUN'' PRIORITY T0 0
MOV
TRAP

INTPR]
= (SP)
#DVINS.=(SP)
INVEC ,=(SP)
#3,-(SP)
C$SVEC
#10,SP
INTPR],=(SP)
#DVOUTS
= (SP)
QUTVEC ,=(SP)
#3,-(SP)
(SSVEC
#10,SP

#PR100,RO
($SPRI

N 12
MACY1

EXIT

14:01

SEQ 156

PAGE 157

INIT

TRAP

.WORD

.NLIST
DDCMPS:

033660

:0000

BEX

;KMS=11/8D DCLT MICRO CODE IMAGE
BLOCK #

|L
»xO

CZKMSAQ KMS11 =BD/ B E DC L7
2 1 13:5¢
t
23- DEC-B
CZKMSA P11

3? A(1052)
23-DEC-82
NITIALIZE SECTION

>— wo —

——r OO0V VO~ = INONONA—NVO OO O

OOONMNMNTIOTITMONN FOOMOMOOOVOMO—OOMD

—OOMO
VMOMOO
OOV NMINT O TMONA JFOOMO

8 13
CIXMSAOQ KMS112
CIKMSA P11

3:5¢4

MACY1? 3? A(1052)

NITIALIZE

:1000

23-DE(-82
SECTION

BLOCK #

SEQ 157

PAGE 158

14:01

00000000000000
s
s
8 & 8 IO
& & % %OM
& & & &VF
@ %OO
—
A MM
NOOO
OO
VOMNO
VO

2 OO MONIMNIO NO MAIN O 0

= OO TOONLT—— —O OO0 T OON —~—nOO

AflGAQAAA&AAAAAAAAAAAAQAAO.AAAAAA

———rOO0000O0— 00000000000~ 000~ —O000

o - ~3 o o o
(=] o
71,0
<

20, ~0106376
12.%0 16416
63,40 43236

[

[4
[4

»
[4

[4
[4
[4

[
[
[

[
4

PAGE 159
14:01
23-DEC-82
SECTION

NiTIALIZE

3(1) A(1052)
MACY1
3:56

(2KkMSAQ KMS112
CZKMSA,P1Y

3
IOk #

;2000

SEQ 158

—
MerO
O —ANONMN
OTIT
S NOOT
N TAIM—
A UM OT TOMO
O
I IMAINOIONO
T TONOMN
2 OITVNO
OO NIO
MO
*0 5

—er e Orr

0 TOMONOITONMNOOOIMIOOONMe
OO
0000
~0O00~00
OO0
mOrrer
O0Cr
OO0

Payay=YaY=-YoY=YeY=-1=1-Y-1~1-Y-1=Y=1-1-Y~-Y~Y~Y~Y~Y=YoYaVayayay=T~)

= T T UM O OINI T W T NNOUR O OO OV T TWNOIHO NN NI 3 O

v -

0
0
0
0
0
0

OO =0 OVO~OWVO rmreeree3NONINO—S

*0
*0
*01
*0
*0
*0 4
*011

N
~0

&
BLOCK #

160
PAGE
14:01

3CA(1052)
23-DEC-82
INITIALIZE SECTION
MACY1Y

— 3:564
L

CIkMSAO KkMS11-BD
23CIKMSA,.PI

;3000

SEQ 159

D 13

MOTOVOOOWVNNAONMMN S I-ANTOOO—OOOO0ONN

lolo]
ololoaleloa
lelelel=lri=lelel=]ele]oloclaloleleloololal

€ € € € € € € € € € € € C € ¢ € C C C Qg € C C CQCC C ¢ ¢ C < <

lole]
lelelel=lelel=lelelclelclolclofalolalolalolololelolefo]elo

O
~A

—— g O O ONIOWNINOWNT TN OV ONMNOMNONNOOOOMM

——
ONO N 77
— N O0205
OO NN 2“22
= IO ‘0‘2
OO — 555/
O T~‘20‘
Nc"00

LYI

PAGE 161

14:01

23-DEC-82
3? A(1052)
NiTIALIZE SECTION
MACY1

(ZXMSAQ KkMS11-8D /8t 3 D( LY
C -B2 1 13:5¢4
23-DEC
CZKMSA.P1T

S
BLOCK #

;4000

0000000000000 00000000DO0000000000
so
& & % &% 0O
& &% & & &00000
e & % & 00000
& % * % & 0& O0000
& % & & & 0000
% &% & % 0000
@0000

lo)
e lelelelelelelolelelelelc]ololalalalololalolololelololee e]a]

07
“c 7
*0

OO ONOVOOFO WVO—ONWVNNIN NP unOOWVONr

0
0
0
*0

OO
OOV
OOMNOMNONNOMO—
I TOMNEMONE—
AMIT—O

*01

SEQ 160

E 13

(2xMSAQ xMS11-BD/
23-D
CIZKMSA,P1Y

3:5¢4

MACY1?

23-DEC-B2
3? A(1052)
NiTIALIZE SECTION

. 5000

BLOCK #

0643
063
014
042
07020

100434

041500
061520

014020
063236
057226

0641560
041600

061233
02066

041540

041640

104733

060
000
043

[
a)

0
0
1

]
3
7

3
0
4

6
1
4

0
3
7
0

0
0
3
0

“0
0
*0

o -— L] ~ M o ~

0 56411,4010
“0 63237,%0
76605, “0 76606,4010
407,%0 7
2420.70
13,0 6
63237,%0
62613,%0100434,%0
4

—MO O
NEEMNO e == ONIOOI—MMO

000
000
062

€ € € € € € € € € C ¢ ¢ € ¢ C CC C C ¢«

5
3

~M VOONO
NIOON
—ONWN = ONMN OISO

041240
041260
041300
061320
041340
041360
041400
041420
041440
041460

"""""""" « ® & & & & & & & & o e« & & & @ o

0410
0410
oL
0411
041
0N
0412
o ~ Lot o

SEQ 161

PAGE 162

60‘0‘“‘050226‘5‘6720662322‘614‘0

041000

14:01

(IKMSAQ KMS11-BD/
23-D
(ZxMSA. P11

613

¢}[=1.

3:5¢4

MACY

3? A(1052)

NIT]ALIZE

.6000

23-DEC-82

14:01

SECTION

BLOCk #

PAGE

SEQ 162

163

3
3
<

€ € € ¢€ € € € € € € € € € € ¢ ¢ ¢C ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢

5
0

1,01

1664
PAGE

14:01
23-DE(-B2
30A(1052)
SECTION
NITIALIZE
INITIAL
MACY1Y

8
gLOoCk #

;7000

SEQ 163
H13

—_ OV O IO O— NN OO~ N M
NINT
O N r— 3000 OMAIONINOOON2 ONONO

MO O -—

oooooooooooooooooo O % & & & & 8 % & e v o 0

- 0 VOO~ OOOVOOO
—

-—-TOOVOI OO0~ O~ VOO OOMOV——r —N— OO0

V O 3
OO e—e—OM
— 3000 O OO

o -— .I

3:54

MACY1Y 30A(1052)

NiTIALIZE
INITIAL

;10000

23-DE(-82
SECTION

BLOCK #

SEQ 164

165

O — NN O M2 OO
N

*0
*0
*0

641,%01

o -— o

MO—O
M FON

r
—O—
—MNVO
OOOOOOOOOO0O
—_—_—— OO OMMO———rr—r
-O0Or -—
—
rtr—e—r
—_ -

NO O VO OO0Or OO OOYW ¥ VWO~ O

""""""""""""""""" L] - - -

MOOM e~ — MM O ONOWN O T — OIMMIIONOOMNIN—O

PAGE

23-D

14:01

¢&5 LX

(ZxXMSAQ kMSY1-BD/

(IxMSA P11

113

~0 70062,

-«L) <¢ [)] —

*0 60600,%0107014,%0 6

J 13
CZKMSAD KkMS11CIKMSA,. P11
2

MACYIY

3(1) A(1 052 )
23-DEC-82
NIT IAL 128 SECTION

BLOCK #

PAGE

SEQ 165

166

OgTFdMOJO~Ool0NM0elOMOSoeNlNOdVeMOolIOMTNeOMl3OaVOWlIOIFeTlMGNeoNO—lMWOeONlVNIONaINMlIOEoMlINS—eMNNMl~FIeOdONoeNlOoMTlNNaMTMlOAOeOlNMOoOlMOIoVINlOOM[OMelOOeSlVOoIlMoOlR—eVl
BNT¢OIOM¢NCZITOCOIFOC<I1=TCIOVCOITCIMMCTIOOCIMNZDCTAMISOICITQTCINOIUICAI€eI€IgCI€II€INOI€TI¢I€O-N I€I€

;11000

14:01

OI7O~N—TN0OVOO—NO0WNN7ONIIVNOOONINYO6OTWNMQ7ION4MOOO~OO3NO0ISe OINN6NTPIMION~ME1ONOVM5O=ONOTI0OMMAOIN7IMINMM‘MITNOAI3MOON6INENMMN‘COAM-N6AOII5WNMIIN7OIAVN3N0OTOI1—6TVM‘5FO MN3I—OON0I—NOIIO3OTOOMM7NN0ONNM5~IIN

[a]elelolelololololololololalololololololelalalelolelalalolelele]NISY [elalolelalelolalalolalelolololelololelololelolelelolelelelelele] TIVOFYMNMNVONOONOIMOA ONCVO~ONMNMONO~Yr~OIONO OrmrCO0Ormr0O0O00~O0r000 TOND~OVMWNNLNI~OVYTEONWON—O [olelelelslolololalalalalalelalolololololololelelelelololelalala]XaEraEr@xrarxraoroxaxaocoacaoacaoaoacacaocaocoaoaocaoaoacx[aYoYaYoYaYoYaYaYaYaYaYaYaYaYaYaVaVaYaVYaYaVYalaVaVYaYaYaVaVaYaYaYa [olelalelelalalololelololololelalololelelolelolelolalololololela) (e]alelelelolalalololalololalalalelalalelololelolalalolaelololale]TOYIN—~VN0—VN SNOMOTIOVOW~NWINTMITEO ONOPMT03N[M7O4IO50T71M0IN2NS&®8oOT5 AAAAAA‘AAA‘AA.‘.A‘A. OTW~VN2MNINVMANINESTIS
LJ]

—-_—

—=-e—

CIXMSAQ KMS11-BD/
CIKMSA.P1Y
23-D

K 13
L

>— 3:54

MACY1

3? A(1052)

23-DEC-82
NITIALIZE SECTION

BLOCK #

OdN[VolSoelOIT]lMJNoelIOoN0lVeOl0MeOloNlMJeNolMOOlWdVJNoIeOlMoTOlNIoaOlOeOlTMe2OPeIlOTNdl~OoMWe—OlNMeINOlMNEIeONANlNONIIeMONWlONNES

;12000

PAGE

167

TOOJWoN~OdNOTa~ONdNIaOINMo—ONTacOWoNOaNNcMATaMONoOaOVYraNOONMOOoIaxaTNMOOdVIOa~OdMaWTOINoNMcNTOoIWaOOTToMVaNNNoaOTNToMaTI—OxVaOxONaWIxA’aOOaxNIWootOMNOVAN~AOMNNANN=T—IFTOON-PITOINNI—OESeNEIP
3020370 62327012751307 ‘2 52‘076

0 40

14:01

(eleleloleolelololelalele]

04612
04614
046160
046200
046220
0462640
046260

046300

046360
046400
046420
046440
o ~ O ~3 O (=]
046500
046520
046540
046560
046600
046620
046640

6 «0
6 40

3 35

6 40
03
6 60
2 40
7 22
0 00
0 52
3 00
00 0 46
000 3
000 50
070 n
06 3 23
0O 4 0 00
4 3 22
1 1 64
0766 0
06323
10064

06040
o Vel M [a¥] o ~
062230
002406
004012
004002
0720;9
067
113372

ONN~E— IBIIZTIIIIIIIIIZII0IZIZ0II00O0000O00O000O0 €<¢[e]elolelelalololalololealo]olololalalololololololelololel-alolole]— TOTINOONOMVONOOINIWNISNe—MO L-«&@=o])l -— OINFTMOIVOTNNVFWNNITNEON—MIMOONSWVY —~ONM)eF—AOr0— &@%oO« OMNOWSIVANNMAT =OIVYTNIIVTAMNNIMFNTM

000
002
04 2
003
000
100

SEQ 166

NOTy~M —AM—LONPNOIMeOM—ONNAOONOM-——O=UOMOeN—IMONE~VT—
——O-O_——-0MOWNONIONANAN0—IMT\OMN0—NO—NOOOW—OOMATONIWIOON~ITOFNFTOOIONMNOOIMNTDIITOTOMMTVAO
-=-N—7L—~7-l— TO—3-M3F23—-ON—TTMAN~IOONWMTNFPEA-T-——NOIMOTOe~OOMoEO-=~TrmMm-OO-——
N OVNOMINWVNO—ONT
O—M—TO0orFMPRVlNTCOOOeTrAImlNWNOrOeO0lTNoAIOl0OMNMTCo00NlO0OOaNNAlO00Ie~O—NMOlTN0oNI07OlIRe0O0N3lNAOo~O0OM0l8A0rIeINROlJ0OIeOM0l0TOTCOANoCNRl—0OOOa0~NlSNAeOIlI0—ORY0eNANOrlTOOAIo~MTN0r0lAMOPeCV0MeMI—lCeNO0MeA0~IceMNROlOOoIT0AlCO~0FNeOl—0MoIMOlVNODeC~0IslO0ONPTeOT~VOlOoeCIMNVOlt0eOONVlVMosONYVlIMOIOeTtOV=lMOeOINClTVRDe~M0ONrlM—TeOOAAVNlVe0OEIrT)—ONO]
0oo"jo[Om——0TO—L—NN)r<¢=<o¢Y~DD8..oNOjl—y=-€€€€Oeea&SOO0llo¢€CN€"N&eYoWo¢lwl€€I0&aO“eNol IJC€€<ll€*o00ITOea'€¢ClOloSO—CoeC€0COlN&lolNMCeC€oM&0SOlO"lAC¢¢€Aee@SoMMllONC¢¢lAo&SeA0CMl€CMlCO&N"aOoSMoNCC0lCl&NNCOeOleC¢Cl&lS0oS0OoCCc€ODOlN&NCOOle€€Co&SollVTM=OlCO€C¢o0o®ONeOOMOlr“]—C€—CaoOoSTaeO=C0OVl0ICO¢€ll&oTDTNTOF.Oe-NlCC—C—llsIOToCTOo0'OaOCN.€€lD&SlOI—TINolMClaOCOOcCNlTNM&oLV-0lW—a€€€——IOa&'IlOOOlMI¢CCe€V€OIT &onTOMo04No-NCI¢lU—¢—Ol&I"O&MeROQOMa~€MA€€Tll&NIDsC0MN—oOrOaC€€M&lICal=O~3NTN€o€O€oEe&"&0YOllM—N€IO €¢€oro@NIOsOVMMlOl—€€€€Na&No0&VN%MIrOl€€lI€OO"&-N~oaT—NMM€€€€llSLO00~ON—eNo€€€€
—e@4oOOI—w<&cLSOAc—ICe8o0ONWN&C0V—AoI¢OC0QWNC<S€oA0O<N€CSmC0To%OS&TDCCO0LoAO0%G0C4C0.ODS0%C00&OCS0CO%D3A—AO2ONYCOO0rC&2TOeA2N&DI-—CCO0&T0me—MS&~0—OTP—QO0OC&0TTPC[WOMVVN&0ONCV0M&T0W=O=PT —CCOM&0—CONeTON0YC®&0M=N@AVrMCO'0&NNeOE¢Or00M%'COMV-CA0&NA'.O€N0I0&=OVC'—€¢NMTN0&EO'OO€U€N00®0M0=€OY€
oj-6-—VTW~¢oy8—O3l~€Fo86le<€eOl<€oM%1lCeO&l¢NQe5Ol€O3o¢lA5aCNlO4oN€lY5o€OeA7lCeY1Tl¢OQe2TAClN7o€Dl6aCrl0S2MeO—¢l=MN%Oo0—W¢lV0%-To¢O—la€0l%=Ma¢I&l-0Ce—O0%lM¢oIl¢a0O&LYlNt¢T~eI&Ml€0o&OIl€O&aT€l0&NoOE€lQ@e¢l7%OO IOo€]®Me€
CIKMSAQ KMS11=-BD/ BE 3 DC LY
CZKMSA.PIT
1 13:5¢4
23- DEC-82
¢
MACY11
1052)
30A(1
23-DE(-82
INITIALIZE SECTION

;13000

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

“0
*0
“0
*0
“0
“0
*0
*0
“0
“0
“0
*0
*0
“0
“0
“0
*D
“0
“0

BLOCK #

v O v~ ON O 0

L 13

14:01

1
1

PAGE
168

SEQ 167

M3
CZKMSAC KMS11-8D/B E DC LY
13:54
CZKMSA,.PI
DEC-82
23-DE
1

MACY11

(1052)
30A(10S2
23-DEC-82
INITIAL
iTIALIZE SECTION

BLOCK ¥

SEQ 168

169

OdOYeToeMl0oOleVNl~IeNlTelN=eOleVlOTOe]V30JOoWlVeVGlrOoOO~lNeIOltNaNlWOeNNlM—aOlNYeMlOaOlNNOde0lMeOolYOaelOTeMOlOONOO0dMOO0dNOO0OgOOTOgMdNeSoOl—V[neTlNOMel
OOOOMOMOMOIROFNONMOONOIM~AMOAMOOOAM—OOITM—IOOOONOOITM

;14000

PAGE

14:01

e
[elelalelelelelololelelolalelolelolelalalolalalelolelalelolelels](lhaleleolololaleolololaleNlolalelalalalaleolelelalaleolalelele] ONMNOOYVIATNeO—MQOOMYVOITOMNY [JgdeolgoelolladaleaVOlelol]TOWOVNNV~~OO=FTOTOOOr~JOITNOVOMNOMOMOMNIOY 0000000D000Xaoaocaraoaraxaraoaoxaroaaoaoaaxaxa[aYoYaYaYaYaYaYaYaYaYaYaVYaVaYaVaYaVaYaVYaYaYaVaYoVYaYaYaYaYaYaYaVal€¢C00O0O0O0O00O0O0O0O0O0O00O00O00 0000000000000000=~O0<VO~—NVOO—VNOWTIM3OI0TS €¢C« NTOIM~MM—O—NIMO
-

e-~

-e~—

OT—MOMr—VN.NINI~MKA IMO=NMNANIANONVOMOMOOSOT
3,%0100000

6.%0

404

N 13
(ZKMSAQ KMS11-BD/B € DC LY
CIKMSA.P1
23-Dt
DEC~-82 13:54
1

MACY11

23-DEC-82

3? A(1052)

NITIALIZE SECTION

;15000

BLOCK #

14:01

SEQ 169

PAGE 170

ONOxO0oa00NxOaOx00aOoO0aroTaOx03rdo30OaOAxNo00IaNIa00oMAaM00aSLo00aoONAa00xaO=Ax0aOoO0aM0ea~T0ONo0aOoOa00axO0Oa0aO0xD—aO0aOx
O NO 06O0O 0616e07 —N——

Q
S
=
M
O
W
T
N
M
I
A
N
N
O
I
M
W
V
I
M
E
=
N
VAaoel"lY’"la"ty’ar0)Oe=T—OM (elelololelolololelelolelolololelololololelelelolalelelelelelelo] INOeADOMO—OOWNONNONM VOVN—OMNOITMN0OOIVO~OOIO [Jdoelo=oalelelaogleledoeleleleloelaloa] IZIZIZIIIIIIIITIIIIZIII [aYaYaYaYaYaYatataYaVaYaleYalalaYaYaYaYaYolataYaYaYaYaYaYaYaVaYa)¢€<e]eolololelolalelelolalelololelalelalololelololelelelelalelolele] O7N(OeNE-MMNI-OTVWTO OeMNOMTVI—OM=NMOIeOM—ONONQOWMVNINNOOMNOITN—I-ARNMNOMO OO2MA—NreN0M AONPOVTWMAeNO~I
00

*0
*0

¢«€€R

-e

0
0
0
0
0
0

-—v— -—

*0
<
o
*0
*0

~Oo

(ZXMSAQ KMS11-BD
23CZKMSA,.P1Y

[

8 14
L

3:54

MACY11

(1052)
30A(1052
23-DEC-82
INITIALIZE SECTION
;16000

BLOCK #

14:01

SEQ 170

PAGE 171

—0 WO MNOOV—O

e MMAM—NNOOONMNONMO
NMOMO
——rr—r— — OOr—
-—

- o
o

O ITOr—Or

1.%0 60

C 146
CZkMSAD kMS1 -8D/BE DC LY
23-DEC-82 13:5¢4
CIKMSA P11
1

MACY?

23-DEC-82

3? A(1052)
052)
SECTION
NITIALIZE
[AL
;17000

BLOCK #

14:01

PAGE

SEQ 171

172

- 00O O WVNONONSY —O0— ——O

020000

053660
053720
0537
559 0
959 1
559 2
559 3
59 94

054016
054016

054016

;END OF DCLT FIRMWARE IMAGE

:
DDCMPE

053660

MCSIZ =

;SIZE OF FIRMWARE IMAGE

1 NXS3TAFAIL URE LOADING F [RMWARE/
) N2XS3XAADD RES S%S3 YALOADEDXS3IXAREAD BACK/
X NXS3X06%S4 X06 153206/

0470
0470

ENDINIT
104411

.-DDCMPS

L10015:

TRAP

CSINIT

D 14

(ZxMSAQ xMS11-8D/BE DCL?

CIKMSA.P1Y

23-DEC-82 13:54

MACY1? 30A(1052)

AUTODROP SECTION

SEQ 172

PAGE 173

IMMEDIATELY AFTER THE INJTIALIZE

OND.

—

THE UNIT(S) UNDER TEST ARE CHE

THOSE THAT DON'T ARE IMMEDiA

IR I

[
o
o

AVl

14:01

AUTODROP SECTION

.SBTTL

9595

23-DEC-82

9605
5608

054020

BGNAUTO

LSAUTO::

054020

ENDAUTO

L10016:

054020

5609 054020
5610 054020

104661

TRAP

($AUTO

E 14
CIXMSAQ. KMS11-ED/BE CL
23-DE(~- 82 13:5¢4
CZKMSA.P

TION CONTAINS THE CODING THAT
THE CLEANUP CODING SECTI
HAVE BEEN PERFORMED.
THE
HARDWARE
TESTS
; AFTER

054022

TST

054106
054114
054122
054130
054136

012737
013737
013737
013737
004737

0564142
054142
054142
054164

5657

Nt
b O
HOO000
[V P Y
- ]
WNNVND
oN
s &N

jolalalele)

:L0G *C ABORI
MOV

MOV
MOV

JSR

EXITCLN:

104432
000002

5652

5653
5654
5655
5656

cMp
BEQ

003246

)

000057

)

NNNO
nNO
&S

022737
001416

054076
054106

5637
5638
5639
5640
5641
5642
5643
5644
5645

(LR
MOV
JSR
CLR
CLR
BRESET

LSCLEAN::
ENRDST

10%
PC,LNSTAT
CNTCLN

ENRDST
#-1,CLNSET
PC,HLTTRB
CLNSET
aCLKCSR

#PRIO?7

;1S READ STATUS ENABLED ?

:ND. OMIT READING STATUS
SREAD LINE STATUS

s INCREMENT CLEANUP COUNT

:NEGATE READ STATUS ENABLED

;SET _THE CLEANUP FLAG

THALT LINE

:CLEAR CLEANUP FLAG
:DISABLE CLOCK
TRAP

:SET PROCESSOR PRIORITY BACK TO ;OV

TRAP

000340

BEQ
JSR
INC

SETPR]

—

012700
104461

010134

—

104433

10%:

OO0O0O

054066
054070
054070
054076

002000

5632
5633
5634
5635

054066

IS PERFORMED

BGNCLN

054022

005737
001402
004737
005237
005037
012737
004737
0G5S037
005077

5646
5647
5648
5649
5650
5651

CLEANUP CODING SECTION

054022
054026
054030
054034
056040
056044
056552
054056
054062

5636

SEQ 173

PAGE 174

5622
5623
5624
5605
5606
5607
5608
5€29
5630
5631

14:01
30A(1052)
23-DEC-82
CLEANUP CODING SECTION
.SBTTL

QOO0

5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621

MACY11

EXIT

SEXIT, KEYWDY
EXITCLN
IN EVENT LOG
#ABO, TEMP

OPVAR, TEMP4

PSCNT,TEMP2
ERRCNT, TEMP3

PC,LOGSS

CSRESET
#PR107,R0O

C$SPRI

JUEXIT' COMMAND?

JYES.

;LOAD EVENT TYPE
NUMBER OF NO-BUFFS
*NUMBER OF

ERRORS

PASSES

: G0 LOG IT

CLN

TRAP

.WORD

.EVEN

056146
054146

054146

ENDCLN

106412

L10017:

TRAP

CSCLEAN

(ZxkMSAQ xMS11-BD/BE DCLT

23-DEC-B2 13:5¢4

CZKMSA,.P11

MACY11 30A(1052)
.SBTTL

5658

23-DEC-82

DROP UNIT SECTION

14:01

SEQ 174

PAGE 175

DROP UNIT SECTION

: THE DROP=UNIT SEC TION CONTAINS THE CODING THAT CAUSES A DEVICE
: TO NO LONGER BE T ESTED.

95661

ggg%

5666

BGNDU

054150

054150
6150

5670 0564150 000167
64152 000000

.WORD
.WORD

JSJMP
L10020-2-.

TRAP

($du

.EVEN

5674

5676

ExIT

LSDU:¢

ENDDU

056154

5677 056154
5678 054154

104453

L10020:

G 14

(2xMSAO XMS11-BD/BE D(CLT

23-DEC-82 13:5¢4

CZKMSA, P11

ADL UNJIT SECTION

.SBTTL

5679

23-DEC-B2

MACY11 30A(1052)

14:01

SEQ 175

PAGE 176

ADD UNIT SECTION

:00

5682
5683

. THE ADD=UN]T SE C TION CONTAINS ANY CODE THE PROGRAMMER WISHES
10 BE EXECUTED Eg CONJUNCTION WITH THE ADDING OF A UNIT BA(K
.

5685

J=--

5684

156

054156

5692 056156 000167
5693 054160 000000

CY C

EXIT

LSAU::
AU

.WORD
.WORD

J$JMP
L10021-2-.

TRAP

($AU

.EVEN

9696

5699

TEST

BGNAU

156

95691

TO THE

ENDAV

054162

056162
056162

104452

L10021:

H 14

CIXMSAQ KMS11=-BD/BE DCLT

CZKMSA P11

23-DEC-82 12:5¢4

MACY1Y 30A(1052)

2;82
5705

JSBTTL

TEST 1:

§711

’

5716
5717

BGNTST

054164

056164

5718

3720
g;%% 054164 C13777 010260 134056
5723

§724

054172

0564172

005001

§725 054176 012737
5726 054202 005737
5727 054206 001412
5728 054210 005301
§729 054212 001373

MOV
GTXRXB:

000001
010270

016270

GTRA2:

054220
054224
054226
054230

5737 054236
g;gg 054240

010214

5746 054252 005037 010060

1%
#NOCLK

;KEEP CHECKING UNTIL R1 DOES fULL COUNTDWN
‘PRINT BAD CLK MSG AND WARN OF HANG [f TIMEOUT
#NOCLK ,=(SP)
MOV

GTRA3:

TST
BNE

RESFLG
GTRAS

sSEE IF HERE AFTER A RESTARY
:BR |F MERE BECAUSE OF A RESTART

GTRA4:

: CLEAR COUNTS AND SET UP DEFAULTS
;CLEAR TOTAL CHAR. COUNT TEMP. LOC
TOTCC
CLR
: CLEAR TOTAL CHAR. COUNT FOR TX BUFF
T107CC
CLR

010050
006502

010054

CLR
MOV

RXPTR
#PTR13,CMPPTR

; 1ERO RX POINTER
;INIT COMP POINTER

000005
002156
003406
004406
010100
010052
027520

010146
010150
010100
010062
010156
010154

005037
012737

012737
013737
012737
012737
013737
013737
004737
012737

000001

010074

MOV
MOV
MOV
MOV
MOV
MOV
JSR

MOV

#5,MSGTYP
MSGSC,CURCC
#TXBUF ,TCURAD
#CMPBUF ,CCURAD
TCURAD,CURADD
TXPTR,CPIR
PC,BLDBUF
#1,1Xn107

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

. CLEAR TOTAL CHAR. COUNT FOR (MP BUFF

;INIT TRANSMIT MESSAGE POINTER

§747 054264
g;zg 056270

054346

CT107CC

MOV
MOV
TRAP
ADD

#SPTRTAB,TXPTR

006406

5758

(LR

MOV

012737

054276
054304
054312
056320
054326
05633
05342

;SET TIMER TO COUNT 1 TICK
:CHECK FOR IT TO BE COUNTED OFF
;BRANCH If CLOCK EXISTS (COUNTED A TICK)

BNE
PRINTF

1%:

010052

056256

§750
5751
5752
g;gz
§755
5756
§757

#1,TIMERY
TIMERY
GTRA3

DEC

2529
5742 0542642 005037 010160
5743 0562646 005037 010076
g;zz

CLR

CLKEN,aCLKCSR

;ENABLE THE CLOCK

MOV
ST
BEQ

012746 00000
010600
104417
062706 000004
005737
001124

T1::
PROGRAM SETUP SECTION

LSBTTL

5730 054214
65731 054214 012746 016715

§732
5733
5734
g;gz

SETUP AND MODES OF OPERAT]ON

: TEST TO DETECT FAULTS IN THE DATA COMMUNICATION LINK. THIS TEST WILL
. THE PROVIDE COVERAGE NECESSARY TO DETECT FAILURES IN THE (OMPUTER
. EQUIPMENT, THE COMMUNICATION LINK, OR THE MODEM.

5707
5708
g;?g

5715

SEQ 176

PAGE 177

SETUP AND MODES OF OPERATION

5714

14:01

TEST 1:

5706

5712
5713

23-DEC~-82

sSET UP DEFAULT MSG TYPE (QUICK FOX = ITEP MSG)
;SET UP DEFAULT CHAR COUNT
;SET UP CURRENT ADD TO START OF Tx BUFFER
;SET UP CURRENT ADD TO START OF (MP BUFFLR
;SETUP CURRENT ADDR TO START OFf TXBUF
:SETUP CURRENT POINTER TABLE POINTER FOR TXBUF
: GO BUILD POINTER TABLE AND BUFFER
:BUMP TOTAL MESSAGE COUNT

5793
5794
5795
5796
5797
5798
5799
5800
5801
5802

054546
054550
054550
054552
054556
0545¢0
054560
054562
0564564
054572

;PUT DEFAULT MESSAGE INTO CMPBUF

OO0
s~o00

OONONS

————

(W AV,
1V, ]

PC,BLDBUF

MOV

1%:

#1 ,RPASS

:BUMP THE COMP MESG COUNT
*SET DEFAULT MODE= ACTIVE

*SET DEFAULT MAINTENANCE LOOP MODE =NONE
:SET UP DEFAULT "RUN PASSTM COUNT TO 1
:SET_UP PROG. PARAMETERS = DATA CHECKING ENABLD
:OPERATOR STATUS MSGS. PRINT OFF

MOV

#2.PARAM

MOV

#XTRB,KEYWD1

PC,ACTKAL

SINIT LINE LIST

MOV
(LR
(MP
BNE

#BDLBAS ,R?
(R2)+
RZ,#BDLEND
1k3

sINIT MSG BUFFER DESCRIPT LIST

PRINTF

#HLPO

JSR

*SET_UP KEYWRD,

MOV

oSO

W
W W
SNNSNSN

i
b

pusrnr
s Suard

OOOO

TRAP
ADD

GTRAS:

MOV

MoV

#1,-(SP)

MOV

MoV
JSR

TST

BNE
ExIT
010220

1%:

MOV

JMP

CSPNTF
“ ¥4 ,SP

MLTYP,DEV?

RPASS,DEV3

PARAM ,DEV4
PC, SHWOP

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

;SEE IF MANUAL INTERVENTION ALLO?%RP

BCOMPLETE
010226

SP,RO

MODTYP,DEVY

MANUAL

000001
060174

#HLPO,=(SP)

Mov
Mov

104450

104432
012442
012737
000137

;SET UP START OF COMPARE POINTER TABLE
:SET UP CURRENT ADDR., TO START OF (MPBUF

#1,CMPTOT
#ACT ,MODTYP
MLTYP

JSR

003246

PAGE 178

CMPPTR,(PIR
CCURAD . CURADD

MOV
MOV
CLR

013634

013737
013737
013737
013737
004737

103412
005737
001002

14:01

#S msGivp
MSGSC, CURCC

054546

5791

23-DEC~-82

SEQ 177

PROGRAM SETUP SECTION

MOV
MOV

5792

30A(1052)

MOV
MOV

014540
000001

012746
012746
010600
104417
062706

054472
0564472
054476
054502
054506
054506
054512
054512
054520
054526
054534
054542

D e

013434

OOO0O

012702
005022
020227
001374

OO0O0Oo

054456
054462
054464
054470

5774
5775
5776
5777
5778
S779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790

5773

-t

012737
006737

0544446
054452

5771
5772

5770

013737
013737
01%737
015737
004737
012737
012737
005037
012737
012737

056354
054362
056370
054376
054404
054410
054416
054424
054430
054436

[ale BNolelelolalelslele
=)
w QO
OO—=O0OONOO—»—
~O
OOO0O0O~NNIOOO
wO
OOMNOOWN—-OO0O
oO
OONOONIVIOONW
W
N=0OW=200 WV
o

5760
5761
5762
5763
5764
5765
5766
5767
5768
5769

MACY11

5759

—

(ZkMSAOQ KkMS11-BD/BE DC
23-De(-82
CZKMSA P

114

GETCL

RPASS

19
TST

#TTL MLTYP

GTR9

BR IF YES (UAM=0 AND NOT CHAlNEg)
8

SEE IF THIS IS FIRST 'DCLT PASS"

CSMAN]
GETCL

. BR IF NOT COMPLETED 1 PASS

; IF DONE 1 PASS IN UNATTENDED HODEP' EX%;
LWORD

sSET UP DEFAULT FOR UNATTENDED MODE
:
"R M=ACT/LO =]/PAS=1/NOST/CH'' AND RUN

238

L} 0022-.

J 14

CZkMSAO kMS11-BD/BE DCLY
23-DEC-82 13:5¢4
CZKMSA.P11

5807

054576

054602

5808 054606
5809 054606
5810 054610
5811 054612
5812 054614

105037

104443
000406
003124
000142
5813 0564616 014002
014 U520 000377
5815 056622 000001
5816 054674 000110
5817 054620
5818
5819
5820

054626
054634
054642

012737
012737
012737

5824
5825

054664
0564666

001412

5821 054650 005037
5822 054656 004737
5823 054660 105737

5826
9827
5828
5829
5830
5831
5832
5833

054666
054672
054676
054700
054702
054706
054712
054716

5834

054720

ggz?

054740

5835
5836
5837
5838
5839

054720
0547264
054730
054732
054734

5842 054744
5843 054752
5844 054754
5845 054762
5846 054764
5847 054770
5848 054776
5849 055000
5850 055004
5851 055010
5852 055016
5853 055020
9585%

5855
5856
5857
5858

5859

COMMAND LINE FETCH & INTERPRETATION SECTION

.SBTTL

gggg
5806

055020

055026
055030
055032
055040
055042

012746
012746
010600
104417
062706
000137
105737
001412

GETCL:

003401

003400

003124
011520
055540

003250
031506
003401

003364
003366
003370

(LRB

000004
054576
003400

1%:

054576

10%:

000137 060174
023727 003246 000052
001004
004737 027264
000137 054576
023727 003246 000057
001005
012737 177777 010212

11$:

14%:

104432
012174
023727 003246 000010 40$%:
001001

TRAP
BR
.WORD
.WORD
.WORD

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

BEQ
PRINTF

1$
#CLIERM

JMP

QUALFG
PC,PSTRY
P$GDBD

GETCL

10000%:

#CLIERM,-(SP)
MOV
#1,-(SP)
MOV
SP,RO
MOV
CSPNTF
TRAP
#s,SP
ADD
JSEE IF INCOMPLETE COMMAND TYPED

PSNNUF

PRINTF

#CLINUF

JMP

GETCL

CMP
BEQ
(MP

KEYWDY ,#SETET
GETCL
KEYWD1,#RUN

JMP
CMP
BNE
JSR

GTR9
KEYWD1,#DMPS
14$
PC,DUMPSR

sWAS ''SET E=T'' ENTERED ?
;SEE IF RUN WAS TYPED
¢ BR IF NO
. START EXEC. IF YES
1S 1T CuMP
;GO TO DUMPSR

MOV

#-1,0CLFLG

;SET DO CLEAN FLAG

BEQ

JMP
(MP
BNE
EXiv

(MP
BNE

10$

118

GETCL
KEYWD1,#EX]T
40%
1St

KEYWDY , #SETEXP

‘%

.WORD
.WORD
WORD

CSGMAN
10000$
(MDBUF
TSCODE
CLISPM
377
TSLOLIM
TSHILIM

sCLEAR QUALIFIER FLAG LOCATION
;GO PARSE COMMAND INE
;SEE IF PARSED OK OR AN ERROR

1ST8

BNE

001002

sCLEAR CMD LINE PARSING ERROR FLAGS
PSNNUF
sGET A COMMAND LINE FROM OPR.
CLISPM,CMDBUF ,A,377,1,72.,NO
P$GDBD

MoV
MOV
MOV

CLR
JSR
1518

014010
000001

023727 003246 000060
001711
023727 003246 000004

000522

CLRB

GMANID

012746 014040
012746 000001
010600
104417
062706 000004
000137

SEQ 178

MACY11 30A(1052) 23-DEC-82 14:01 PAGE 179
(OMMAND LINE FETCH & INTERPRETATION SECTION

MOV
MoV
MOV
TRAP
ADD

#CLINUF ,=(SP)
#,-(SP)
SP,RO
CSPNTF
N6, 5P

s YES ,BRANCH

:AND GO BACK
SIS IT EXIT
sBRANCH [F NOT

CSEXL!
TRAP
LWORD L10022-.
;SEE IF SET EXPECTED
: BR IF YES (A SETEXP WAS TYPED

K 14

CZKMSAO KMS11-BD/BE DCLT
CIKMSA. P11
23-DEC-82 13:54
5860
5861
2gg§

055044
055052
0550564

023727
001402
000137

003246

$864
5865

055060
055066

013737
023727

010076
010160

055106
055112
055114
055116

012746
012746
0127646
010500
104417
062706
000137
005737

017036
0170564
000002

5866
5867
5868
5869

5870
5871
5872
5873

5874
5875
5876

055076
055076
055076
055102

055122
055126
055132

002414

§877

05513&

001002
005037

5879
$880

055146
055152

013701
020127

5878

5881

5882
5883
5884
5885
5886
5887
5888
5889

055140

012737

055156 002416

055160
055160
055164
055170
055174
055176
055200
055204

012746
012746
012746
010600
104417
062706
000137

5890 055210 006301

010074

006406
010074
000017

055226

013737

010100

5898

055250

004737
004737
006737
013737

010052

027422
027520
027644
010154

$899

055256

013737

010160

5902

055276

005337

003252

5900
5901
5903
gggg

5906

5907

5908
§909
5910
5911

§912
5913
§914
§915

055264
055272

055302
0553064

055310

055316

055324
055326
055326
055332

055336
055342
055344
055346

013737
005237
001266
000137

013737

023727

002414

012746
012746
012746
010600
104417
062706

KEYWD1,#SETTRN
s$
GETCL

010160
001000

5$:

MOV
CMP

TT0TCC,T0TCC
TOTCC,#BUFLIM

010052

BLT
PRINTF

15%
#MSGTRN,#BUFEX

158 :

JMP
ST
BNE

GETCL
TT0TCC
6%

6$:

MOV

#PTRTAB, TXPTR

BLT

17§

000006

5894

055234
055240
055244

CMP
BEO
JMP

054576
010052

§89S
5896
5897

4$:

016776
017054
000002

006301
060137

5893

000011

000006
054576
010076

055212
055214

013737

23-DEC-82 14:01 PAGE 180
TOMMAND LINE FETCH & INTERPRETATION SECTION

054576

5891
§892

055220

MACY1Y 30A(1052)

010156
010074

17$:

010160

017036
017054
000002
000006

MOV
CMP

010156

JMP

GETCL

ASL
ADD

R1
R1,TXPIR

MOV

TCURAD, CURADD

ASL

001000

28:

:SEE IF BUFFER ALREADY FULL
S"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
YIF FIRST "'SET'* THEN GET RID OF DEFAULT
:GET POSITION OF END OF TX LIST
;SEE IF MSG COUNT EXCEEDED.

:"BR IF NO

: ELSE TELL OPR. AND DON'T BUILD MSG.
#TABEX,=(SP)
MOV
- (SP)
#MSGTRN,
MOV
MOV
#2,-(SP)
MOV
SP.RO
CSPNTF
TRAP
#6,SP
ADD
: THEN GO GET A NEW COMMAND.

‘4 OF MSGS *4 = NEXT FREE PTR BLOCK

;SETUP CHAR. COUNT, CURRENT ADDR, & PIR

JSR
JSR
JSR

PC.ADDCC
PC.BLDBUF
PC.FCURAD

:ADD IN CHAR. COUNT AND CHECK TOTAL
160 BUILD MESSAGE IN BUFFER AND PTRS.
‘MAKE SURE ADDRESS IS WORD BOUNDARY

MOV

TOTCC,TTOTCC

:UPDATE CHAR. COUNT, CURR ADDR, & PTR

DEC

QUALVL

;DEC THE COPY COUNT

MOV

c1oTCC,TOTCC

;SETUP CHAR. COUNT, CURR. ADDR. & PIR

BLT
PRINTF

16%
#MSGTRN,#BUFEX

P"BR IF NOT FULL (BUFLIM # OF CHARS.)
* ELSE TELL OPR. AND DON'T BUILD MSG.
¥BUFEX,=(SP)
MOV
- (SP)
#MSGIRN,
MOV

BNE
JMP

010160

;SEE IF SET Tx
2 BR IF YES

TXPTR,CPIR

MOV
INC

010100

R
TXMTOT,
R1,#MSGLIM

#MSGTRN, #TABEX

MOV

010052

010076

TXMTOT

PRINTF

MOV

010154

054576

010060

CLR

SEQ 179

CMP

CPTR,TXPIR

, TCURAD
CURADD
TXMTOT

5
GETCL

TOTCC,#BUFLIM

‘SEE IF BUFFER ALREADY FULL

MOV
MOV
TRAP
ADD

#2,-(SP)
SP.RO
CSPNTF
#6.5P

L 14
CZKMSAD KMS11-BD/BE DCLT
CIZKMSA.P11
23-DEC-82 13:54

5916
5917
5918

$919

055352
055356
055362

055364

000137
005737
001002

054576
010060

§920
§921
gggg

055370
055370
055376

005037

010056

012737
013701

006502
010056

5924

055402

020127

000017

5926
5927

055410
055410

012746

016776

5929
§930
5931
5932
5933

055420
055424
055426
055430
0556434

012746
010600
104417
062706
000137

000002

5935
§936
§937
5938
5939
5940
§941
5942
§943
5944
5945
§946
5947
ggzg

055442
055444
055450
055456
0554664
055470
055474
055500
055506
055512
055520
055526
055532
055534

006301
060137
013737
013737
004737
004737
004737
013737
505237
013737
013737
005337
001266
000137

5925

5928

5934

5950
5951
5952

055406
055414

055440

002414

012746

006301

MACY11

30A(1052)

16%:

010054

7%:

JMP
ST
BNE

GETCL
CToTCC
7¢

; THEN GO GET
A NEW COMMAND
21F FIRST "'SET'*THEN GET RID OF

MOV
MOV

NPTR13,(MPPTR
CMPTOT.R1

;INIT COMPARE MESSAGE POINTER

CMP

R1,#MSGLIM

;SEE

PRINTF

#MSGTRN,#TABEX

¢ ELSE TELL OPR. AND DON'T BUILD MSG.
MOV
#TABEX,=(SP)

CLR

BLT

18§

054576

IF MSG COUNT EXCEEDED.

2 BR IF NO

MOV

000006
054576

188 :
010156
016156

010056
010062
010060

JMP

GETCL

ASL
ADD
MOV
MOV
JSR
JSR
JSR
MOV
INC
MOV
MOV
DEC
BNE
JMP

R1
R1,CMPPTR
CMPPTR,CPTR
CCURAD, CURADD
PC,ADDCC
PC.BLDBUF
PC.FCURAD
CPTR,CMPPTR
CMPTOT
CURADD,CCURAD
TOTCC.CTOTCC
QUALVL
2%
GETCL

ASL

DEFAULT

CMPTGT

017054

010054
010054
010062
027422
027520
027644
010154
010056
010156
010160
003252

SEQ 180

23-DEC-82
14:01
PAGE 181
COMMAND LINE FETCH & INTERPRETATION SECTION

MOV
MOV
TRAP
ADD
THEN GO GET A NEW COMMAND.

#MSGTRN,-(SP)

#2.-(SP)

SP.RO
CSPNTF
#6,SP

:# OF MSGS %4 = NEXT FREE PTR BLOCK

;ADD IN XHAR.

COUNT AND CHECK TOTAL

:MAKE SURE ADDRESS !S WORD BOUNDARY
JUPDATE (HAR. COUNT, CURR ADDR. & PIR
;1F_COPY WAS GIVEN, PUT MSG IN BUFF
AGAIN
~
co BACK UNTIL GET A ''RUN

M 14

CZKMSAQ KMS11=BD/BE DCLT
CZKMSA.P11 ~ 23-DEC-82 13:54
5954
5955
5956
5957
5958
5959
5960
5961
5962
3963

5965
596¢
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003

6004
6005
6006
6007
6008
6009

055540
055540
055542
055346
055552
055554

006302
016202
062702
004712
000207

055556
055560
055562
055564
055566
055570

000162
000164
000174
001562
000274
000204

055572
055574
055576
055600
055602
055604
055606
055610
055612
055614
055616
055620
055622
055624

055626
055630
055632
055634
055636
055640
055642
(055644
055646
055650
055652
055654
055656
055660
055662
055664
055666
055670
055672
055674
055676
055700
055702

055704

000320
000412
000734
000744
000762
000772
001002
001074
001570
001114
001174
001202
001212
001222

001232
001242
001260
001346
001356
001376
001404
001414
001424
001434
001462
001472
001576
001612
001644
001656
001664
001674
001704
001714
000154
001152
000670

000720

055556
055556

MACY1!

30A(1052) 23-DEC-82
14:01
PAGE 182
MMAND LINE FETCH & INTERPRETATION SECTION
.SBTTL
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
CLIACT:
ASL
R2
;MULTIPLY ACTION CODE BY 2
MOV
10$(R2),R2
:OFFSET VALUE
ADD
#108,R2
:ADD BASE VALUE
JSR
PC,(R2)
:60 DO ACTION
RTS
PC
IRETURN TO TRVACT:

108:

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

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
"WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
WORD
.WORD
.WORD
.WORD
.WORD
JMORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WOPD

.WORD

ACTNUL-10$
ACTCLR-108
ACTSHO-108
ACTCHK-10%
ACTRUN-10$
ACTHLP-10%

ACTCSE-10$
ACTCST-108
ACTSTE-10$
ACTSTT-10%
ACTSZE-108
ACTCOP-10%
ACTNUM-10%
ACTOPM-10%
ACTSTS-108
ACTEQQ-108
ACTMS0-10$
ACTMS1-108
ACTMS2-108
ACTMS3-108
ACTMS4-10$
ACTMS5-108
ACTM$6-108
ACTATV-10$
ACTPAS-10$
ACTREC-108
ACTLIS-108
ACTDLL-108
ACTTRA-108
ACTTAL-108
ACTNO-10$
ACTECH-10$
ACTCRC-108
ACTPRO-10$
ACTRPS-10%
ACTMOP-10$
ACTTLP-10$
ACTCLP-108

ACTLLP-10$
ACTRLP-10$
ACTNUF-10%
ACTBCR-10%
ACTDMS-10%
ACTDME-108

:BRIEF DESCRIPTION OF ACTIONS TAKEN
sNULL
: CLEAR
: SHOW
: CHE CK
:RUN
SHELP
CLEAR OR SHOW EXPECTED
CLEAR OR SHOW TRANSMIT
SSET EXPECTED
SSET TRANSMIT
:SIZE
: COPY
:NUMERIC VALUE FOR SIZE OR COPY
:QUOTED MESSAGE FROM USER
:STATUS
END OF QUOTED MESSAGE FROM USER
SONES DATA
:ZERQS DATA
TALT
S0ACT
SITEP
SCCITT
: ALPHA
:ACTIVE MODE
:PASSIVE MODE
:RECEIVE MODE
:LISTEN MODE
:DOWNL INE LOAD
:TRANSMIT MODE
:TALK MODE
/NG
H
'SET CRC BIT
:SET_PROTOCOL BIT
:STATUS
IREMOTE STATION IN MAINTENACE LOOP MODE
S INTERNAL 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

DC L7
8
CZKMSAOD KMS11-BD /BE
13:5¢4
-82
t
23-DEC
CZKMSA.P1Y
1

MACY11 30A(1052)

SEQ 182

PAGE 183
14:01
23-DE(-82
ACTION TABLE AND ROUTINES

O -

o w_ -F

IQa2)20=nON2 @E

N 14

-4[
&4 w

B 15
PAGE 184
23-DEC-82 14:01
ACTION TABLE AND ROUTINES

003400

ACTNUF: move
ACTNUL: RTS

#=1,PSNNUF
PC

;RETURN TO PARSER

012737
000207

000001

003246

ACTCLR: MOV
RTS

#CLEAR,KEYWD

;SET LOC TO SAY A (LEAR WAS TYPED

012737
000207

000002

003246

ACTSHO:

012702

003254

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

;SETUP R2 AS A POINTER TO HELP MSG TABLE

000006
003276

012737
112737
012737
000207

000004
77777
00C001

ACTRUN:

012737
013701

006502
010054

ACTCSE:

010056

023727
001471
012737
005037

003246

PENNUF
KEYWD1 ,#SHOW

000001
010060

c1étCC

CMP

ggLP.KEYUD1

003246

000057

003246

ACTEXT:

#EXIT ,KEYWDY

000055
024644

003246

ACTPRT:

,KE YWD
#PRNT
:E.REPORT

ONNOONV

ACTCST: MOV
M

W) ==

O OO0 OSNroO

O OWVWNE

006406
010074
003400
003246

o
b
b
b o
b

TRAP
ADD

CSPNTF
#6,SP

#PTR13,CMPPIR
CMPPTR,RY

;INIT COMPARE MESSAGE POINTER

CLR

ACTSHW
#1,CMPTOT

#PTR13,CMPPTR
CMPPTR.CPTR
R1
#CMPBUF
RY,

SP.R0

;SET UP KEYWORD AND SCOOT OUT OF HERE
:EEI LOC. TO SAY A HELP WAS TYPED
L ROUTINE TO PRINT EVENT LOG AND BASE TABLE
:SET RUN FLAG

CMPTOT,R2

003400

000001
01007¢

(R2)+,=(SP)
#HLPF ,=(SP)
#2,-(SP)

sSEE IF ALL INFO PRINTED YET
:1F _NO KEEP PRINTING
sSET LOC. TO SAY A HELP WAS TYPED

#RUN,KEYWD1
#-1,PSNNUF
#1,RPASS
PC

012701
013702

023727
001437
012737
005037

?%,IHLPEND

000005

MOV

105037

MoV
MoV
MOV

MOV

062706
020227
001364
012737
000207
012737
000207
012737
004737
000207

105037

¢PRINT HELP INFORMATION MESSAGES

014616
000002

=
= OO NN
NSO 52O

MOV
PRINTF

006502
(10054
004406
010062

ooooo0oe

;SET LOC. TO SAY A SHOW WAS TYPED

012737
013737
012701
010137
000631

ooooo

#SHOW,KEYWDT

013702

NINIAININ)
= =

o0 o

OO0

NANVWAVALA VA

O0OO00

VAVAMAIAY

000000

VAVAWVWWAWVIWVA.

056052

104417

sSET FLAG TO SAY NEED MORE OF COMMAND
sSET DEFAULT RUN ''PASS'’ T0O 1

THAT HAVE VALID COMMAND AT THIS PT,
l F A CLEAR OR_SHOW WAS TYPED

F A SHOW WAS TYPED
R COMPARE MESSAGE COUNT,

ESET POINTER

v
2D

056050

012246
012746
012746
010600

MOV
RTS

CHAR. COUNT

OMPARE MESSAGE POINTER
TO FILL IN DEFAULT MESSAGE

CCURAD

acfcLs

000002
010074

CLR

#PTRTAB,R1
TXMTOT,R2
PSNNUF
KEYWD1, #SHOW
ACTSHY
#1,TXMT01
T107CC

THAT HAVE VALID COMMAND AT THIS PT.
F A CLEAR OR_SHOW WAS TYPED
SHOW WAS TYPED
ANSMIT MESSAGE COUNT, CHAR. COUNT
mM—»
wdD
»

VWAL
N [V, IV, [V, BV, [V,
oo e SV, IV IV, IV, IV IV IV RV [VRV IV,
NN
NN
NN
[=lole] ONSNNNN
Q0O ON~NOOON
OO
WD
SN
ON
ON
O
ormNn or o0

177777

OO0

;SET FLAG TO SAY NEED MORE OF COMMAND

112737
000207

MACY11 30A(1052)

OO0O0O0OOO0OOOO

(ZxMSAQ kMS11-BD/BE DCLY
23-DEC-B2 13:5¢4
CIKMSA. P11

SEQ 183

ET POINTER

€15

CZXMSAQ KMS11-BD/BE DCLT

CIKMSA.PI

23-DEC-82 13:56

6077
6078

056226
056234

012737
013737

0064606
010052

ggg?

056246

010137

010100

6082

056252

012702

6079 056242 012701

003406

056262
056270

012737
013737

ggg?

056310

000207

6086
6087
6088
6089
6092

6093

056276
056300
056302
056306
056312

105021
005302
001375
004737
012705

010052
010154

6097

056330

056332

6102

056350

6099
6100
6101

056334
056340
056342

162705
006305
016137

000005
002156

MOV
MOV

027520

CLRB
DEC
BNE
JSR

(R1)s
R2
1%
PC.BLDBUF

SFILL EXPT OR TRAN BUFFER WITH 0°S [F A CLEAR
D0 "'BUFLIMTM NUMBER OF BYTE LOCATIONS
;"'CLEAR' REALLY MEANS TO PUT DEFAULT MSG IN

003324

ACTSHW: MOV

012146
010150

000002

056410
056616
056424
056432

013737
013737
013737
013737

010216
010220
010226
010226

6117 056440 004737 031206

g}}g

056444

1%:

RTS

5%:

6%:
010164

011470
011472
011476
011476

6128

6129

056466
056470
056476
056504

056510

:MUST BE OPR. SPEC'D THEN

PRINTF

#SHMSC,SHTYTB(RS),TEMP

SUB
ASL
MOV

i 056512
6132

012737

003246

#SHTAB+1,RS
RS
2(R1),TEMP

#4,R1

MOV

RPASS,DEV3

DEC
BNE
MOV
MOV

MOV

JSR

RTS

000010

ADD

B8R
000403
012737 177777 010132 ACTDMQ: MOV
013737 003374 010130 ACTDME: MOV
ACTDMX: CLRB
105037 003400
000207

#SHTAB,RS

‘WHEN DONE, RETURN TO PARSER

INC

6120 056446 013737 003374 010126 ACTDMS: MOV
CLR
6121 056456 005037 010132
MOV
003246
000052
6122 056460 012737

g}gz
6125
6126
6127

;LOOK AT FIRST BYTE OF MSG TO DECIPHER TYPE
;SEE IF LOOKED AT ALL OF DEFAULTS YET

RTS

000207

#5.MSGTYP
MSGSC, CURCC

(RS)+,a8(R1)
6%
RS, #SHTEND

CMP8B
BEQ
CMP
BNE

003325

000004

6113
6114
6115
6116

#BUFLIM,R2

;SET UP T0 PUT DEFAULT MSG IN LIST AFTER 033'S

062701

005302
001341

R1,TCURAD

#TXBUF ,R1

R1,CURADD

6110 056400
056406
056406

MOV

6103 056350 013746 010164
6104 056354 016546 003304
6105 056360 012746 015664
6106 056364 012746 000003
6107 056370 010600
6108 056372 104617
6109 05637« 062706 000010
6111
6112

#PTRTAB,TXPTR
TXPTR,CPIR

MOV

001372

005205

14:01

MOV
MOV

ACTCLB: MOV

6096 056316 122571 000000
6095 056322 001404
6096 056324 020527 003333
6098

23-DEC-82

ACTION TABLE AND ROUTINES

001000

6083 056256 010137 010156
6084
6085

MACY11 30A(1052)

SEQ 184

PAGE 185

ACTSTE: MOV

R2
ACTSHY
MODTYP,DEV1
MLTYP,DEV?

. DEV4
PARAM

;PRINT MSG SIZE & TYPE

;BUMP R1 TO NEXT SET OF POINTERS

MOV

MoV
MOV
MOV

MOV
TRAP
ADD

TEMP,=(SP)

SHTIYTB(RS) ,=(SP)
,
= (SP)
#SHMSG
#3,-(SP)
SP,RO
CSPNTF
#10,SP

PC, SHWOP

:SHOW THE OPERATOR THE CURRENT MODE..... ALS0

PSNUM,STADD

SSET DEFAULT OF WORD DUMP

#-1,BY1BIT
PENUM, ENADD
PSNNUF

N
:SET DUMP FLAG TO '‘DUMP=-WORD'’
T NO '‘EEE
“SETUP END ADDRESS FOR DUMP (=STARIF
"CLEAR NOT-ENOUGH FLAG, ''DUMP N-N/B'' IS VALID

gy181f
#DMPS ,KEYWDY
ACTDME
PC

#SETEXP,KEYWD1

:SETUP STARTING ADDRESS FOR DUMP
‘FLAG THAT A DUMP WAS TYPED

0D 15

CZKMSAOQ kMS11-BD/BE DCLT
23-DEC-82 13:54
CIKMSA,. P
2}%2

056520

000403

6135

056522

012737

056536

000207

6136

g}%g

056530

012737

MACY11 30A(1052)

23-DEC-B2 14:01 PAGE 186
ACTION TABLE AND ROUTINES
BR

000011

000001

003246

003252

ACTSTT: MOV

ACTSTX: MOV
RTS

ACTSTX

#SETTRN,KEYWD1

#1,QUALVL
PC

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

6139
2}2?

056540
056546

012737
000207

000012

003250

ACTSZE: MOV
RTS

#SIZE ,QUALFG
PC

6142
2}22

056550
056556

012737
000207

000013

003250

ACTCOP: MOV
RTS

#QCOPY,QUALFG
PC

6145
6146

056560
056566

023727
001023

003250

000012

ACTNUM: CMP
BNE

QUALFG,#SIZE
19

;SEE IF A SI2E OR COPY TYPED
:BR IF JT WAS A COPY

3%
#LLISEO

: BR If NO

MovB

#-1,PS$GOLY

;SET ERROR-IN-CMD FLAG

MOV
BR
MOV
INC

PSNUM, CURCC
2$
PSNUM,QUALVL
QUALVL

1ST

6147 056570 005737 003374

6148
6149

6150
6151
6152
6153

056574
056576

056576
056602
056606
056610

6154 056612
6155

6156

056616

056624

BNE
PRINTF

001014

012746 0144617
012746 000001
010600
104417
062706 000004
112737

000611

177777

003401

6157
6158
6159
6160

056626
056634
056636
056644

013737 003374 010150
000405
013737 003374 003252
005237 003252

6163

056652

012737

2}29

056670

000207

6168
6169

056672
056674

010402
163702

6171
6172

056704
056710

010237
013701

6174

056720

112125

2:2;

056650

000522

000007

6166 056660 010437 010164
6165 056664 005237 010164

6175
6176
g};g

0567164

056722
056724
0556726

6179 056730

012705

ACTOPM: MOV

MOV
INC

RTS

ACTMEX

#7 ,MSGTYP

R4, TEMP
TEMP
PC

010164

002162
010164

MOV
MOV

R2,0PCNT
TEMP,R1

0025¢0

005302
001775
000473

056730
056734
056740
056742
056744

012746 014352
012746 000001
010600
104417
062706 000004

6187
6188

056752
056756

005037
000435

056750

R4 ,R2
TEMP ,R2

6180
6181
6182
6183
6184
2;32

2$:

PSNUM

ACTEQO: MOV
suB

6170 056700 010237 010150
6173

010146

3$:
1$:

000207

010146

MOV

1%:

SEa 185

MOV

Move
DEC
BNE
BR

ACTBCR: PRINTF

RTS

ACTMSO: CLR
BR

R2,CURCC

RS
#OPBUF

;CHECK TO BE SURE DIDN'T TRY SIZE=0

Mov
MoV
MOV
TRAP
ADD

;KEEP TRACK OF START OF QUOTED TEXT
; SO CAN CALC OPCNT AT END OF QUOTES
;CALC BYTE COUNT fOR QUOTED TEXT
;COPY QUOTED TEXT TO OPBUF

#CLIBCR

;BAD (HAR. IN OPR. QUOTED STRING

MSGTYP
ACTMEN

N6 ,SP

;IF A SIZE LOAD CURCC WITH BYTE COUNT
;1F A COPY, LOAD COPY COUNT
: INCREMENT SO FIRST DEC MAKES IT REAL #

(R1)¢+,(R5)¢

R2
1%
ACTMEX

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

MOV
MoV
Mov
TRAP
ADD

#CLIBCR,=(SP)
#,=(5P)
SP,RO
CSFNTF
84, SP

E 15

CZKMSAO KMS11-BD/BE DCLT
23-DEC-82 13:54
CIKMSA.P11
6189

6190
6191
6192
6193
6194
6195
6196
6197

6198

6199
6200

gsg;

056760

056766
056770
056776
057000
057006
057010
057016

057020

057026

057034
057036

057044

6203 057052
6204

200

057060

012737

000431
012737
oooags
012737
000421
012737
000615

012737

013737

000430
012737

013737

012737

000416

MACY11 30A(1052)

000001

010146

000002

010146

000003

010146

000004

010146

000005

010146

23-DEC-82 14:01 PAGE 187
ACTION TABLE AND ROUTINES

ACTMS1: MOV

B8R
ACTMS2: MOV
BR
ACTMS3: MOY
BR
ACTMS4: MOV
B8R

ACTMSS: MQV

057070
057072
057100

0014064
112737
000406

gg}z

057114

000400

6217

057116

105037

057122

000207

ACTMET
ACTMET
#3,MSGTYP
ACTMEY
84 MSGTYP
ACtmET
#2 MSGTYP

#5 MSGTYP

MSGSC, CURCC

;SETUP DEFAULT SIZE FOR THIS TYPE

002156

010150

000006

010146

BR
ALTMS6: MOV

MOV

MSG6C, CURCC

000100 010150

ACTME1: MOV

#64 . ,CURCC

;SETUP DEFAULT SIZE FOR THIS TYPE
;SETUP DEFAULT SIZE FOR MSGO-4

#SETEXP,KEYWDY

:DID WE GET HERE FROM ''SET E ='' COMMAND?

PC,FACSIMILE
#SETET,KEYWDI

:G0 COPY TRANMIT BUFFER TO EXPECT BUFFER
‘SET FLAG TO BE USED IN T1::

002160

010150

177777

003401

10%:
6211 057102 004737 027672
003246
000060
012737
6212 057106

6218

#1 MSGTYP

MOV

6207 057062 022737 000010 003246 ACTSEX: (MP
6208
6209
6210

SEQ 186

003400

BEQ
MOVE
BR

JSR
MOV

ACTMEX: CLRB
RTS

ACTHMEX
#6 MSGTYP

ACTMEX

108
#-1,P$GDBD
ACTMEX

CEXIT

*YES,BRANCH
*SET ERROR FLAG
26O TO EXIT

ACTMEX

160 TO EXIT

PSNNUF

;CLEAR NOT-ENOUGH FLAG

F 15

CZKMSAO KMS11-BD/BE DCLT

CIKMSA.P11

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-82

14:01

PAGE 188

ACTION TABLE AND ROUTINES

6220

057124

012737

000003

010216

ACTATV: MOV

#ACT ,MODTYP

6223

057134

012737

000002

010216

ACTPAS: MOV

#PAS ,MODTYP

2359

057152

000207

6228

057154

005037

010216

6231

057162

012737

000006

6234

057172

012737

6237

057202

ggzg

057212

gsg; 057132 000432

ACTM2X

CLRB
CLR

PSNNUF
MLTYP

ACTREC: CLR

MODTYP

010216

ACTLIS: MOV

#LIS,MODTYP

000004

010216

ACTDLL: MOV

#DOW,MODTYP

012737

000001

010216

ACTTRA: MOV

#TRA, MODTYP

012737

000005

010216

ACTTAL: MOV

#TAL MODTYP

6262 057220 0642737 000004 010224
62643 057226 105037 003400
6264 057232 005037 010220

ACTM2X: BIC
CLRB
CLR

#ECHOB, PARAM
PSNNUF
MLTYP

6224
6225

gggg

057142
057146
057160

105037
005037

000417

gggg 057170 000413

gggg 057200 000407
gggg 057210 000403

6245

057236

000207

003400
010220

SEQ 187

RTS

:CLEAR NOT-ENOUGH FLAG
*CLEAR MAINT LOOP TYPE

ACTM2X

ACTMOX

ACTMEX

:DISABLE /ECHO (ALL BUT PASSIVE MODE)
*CLEAR NOT-ENOUGH FLAG
*CLEAR MAINT LOOP TYPE

G 15

CZKMSAQ KMS11-BD/BE DCLT

CIKMSA.P11

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-B2

MOV
RTS

057240
057246

012737
000207

000036

003250

ACTNO:

6250
6251
6252

057250
057256
057260

022737
001422
052737

000036

003250

000004

010224

ACTECH: (MP
BEQ
BIS

6253

022737

6256 057276 001416
6255

6256
6257
6258
6259
6260
6261
6262

6263

000002

010216

CMP

BEQ

057276

057276 012746 014307
057302 012746 000001
057306 010500
057310 104417
057312 062706 000004
057316
0573264

057332

112737
042737

005037

g%gg 057336 000501

177777
000006

003250

003401
010226

1§%:

28:

PAGE 189

ACTION TABLE AND ROUTINES

62647
ggzg

057266

14:01

SEQ 188

#NO,QUALFG
PC
#NO,QUALFG
18
NECHOB, PARAM

#PAS ,MODTYP

F13

PRINTF

#CLINPS

MOVB
BIC

#-1,P$GDBD
NECHOB, PARAM

CLR

B8R

:BE SURE IN PASSIVE MODE IF

“1F TRYING TO SET /ECHO

;CLEAR *'NO'' OUT OF QUALIFIE.. FLAG
:SET DATA (HECK BIT

ACTLXX

057340

012701

000002

ACTCHK: MOV

#DATCKB, R

6269

057346

012701

000001

ACTSTS: MOV

#STATB,RI

;SET THE STATUS BIT

6272

057354

012701

000020

ACTCRC: MOV

#CRCB.R1

:SET THE CRC BIT

6275

057362

012701

000010

ACTMOS: MOV

#MOCHK ,R1

:SET THE MODEM BIT

gs;g 057370

012701

000040

ACTPRO: MOV

#PROTOB,R1

;SET THE PROTOCOL BIT

057374
057400
057406
057410

050137
022737
001002
040137

010224
000036

ACTQFG: BIS
CMP
BNE
BIC

R1,PARAM
#NO,QUALFG
1$
R1,PARAM

2525

057344

000413

gg;? 057352 000410

gg;z

25;9

6280
6281
6282
6283

057360
057366

000405
000402

B8R
BR

003250

010224

18:

6284 057414 005037 003250

CLR

ACTQFG

ACTOF G

ACTQFG

QUALFG

;CLEAR "'NO'* OUT OF QUALIFIER FLAG

PSNUM,RPASS

:GET NUMBER OF ''RUN PASSES''
;SPECIFY MOP LOOPBACK

ACTLXX

gggg

057420

000450

gggg

057430

000444

6290

057432

012737

ACTMOP: MOV

#5 MLTYP

6292
6293
6294
6295
6296

057442
057450
057452
057460
057462

012737 000001 010220 ACTTILP: MOV
BR
000413
MOV
ACTCLP:
012737 000002 010220
BR
000407
MOV
ACTLLP:
010220
000003
012737

6297 057470 000403

1 MLTYP
ACTLPX
82 ALTYP
ACTLPX
23 MLTYP

6301

057506 001415

BEQ

6287 057422 013737 003374 010226 ACTRPS: MOV

6291 057440 000617

000005

010220

B8R

gggg 057472 012737 000004 010220 ACTRLP: MOV
6300 057500 022737 000003 010216 ACTLPX: CMP
6302

057510

112737

177777

003401

MOVE

#CLINPS ,=(SP)
#1,-(SP)
SP.RO
CSPNTF
#6,SP

QUALF G

6266

MOV
MOV
MOV
TRAP
ADD

ACTLXX

ACTLPX

AcCTLPX

24 ALTYP
#ACT ,MODTYP
ACTLXX

#-1,P$GDBD

;SPECIFY INTERNAL LOOPBACK
:SPECIFY CABLE LOOPBACK
sSPECIFY LOCAL MODEM LOOPBACK

sSPECIFY REMOTE MODEM LOOPBACK
.BE SURE IN ACTIVE IF TRYING TO SET LOOP
S BR IF IN ACTIVE

H 15

CTKMSAQ XMS11-BD/BE DOLT

CIKMSA.P11 ~ 23-DEC-82 13:54

6303
6304

057516
057522

005037

010220

6305 057522 012746 014125
6306 057506 012746 000001
6307 057532 010600
6308 057534 104417
6309 057536 062706 000004
6310
6311

057542

057546

105037

000207

003400

MACYIY S0A(I02)

23-DEC-B2

14:01

SEQ 189

PAGE 190

ACTION TABLE AND ROUTINES

(LR

PRINTF

ACTLXX: CLRB
RIS

MLTYP

#CLIBDL

PONNUF
PC

;CLEAR ANY LOOP TYPE THAT MAY HAVE GOT SET
#CLIBDL,-(SP)
MOV
#1,-(SP)
MOV
:CLEAR NOT-ENOUGH FLAG

MOV
TRAP
ADD

SP.RO
CSPNTF
#4,SP

115
CIZKMSAQ +MS11-BD/BE DCLT
CZKMSA.PY
23-DEC-82 13:5¢4

MACY11 30A(1052)

6313
6314
2%i2

057550
057556

012737
000207

000062

003246

ACTETR: MOV
RTS

#ETRB,KEYWD1
PC

: RECORD THAT ESTABLISH TYPED
¢sRETURN TO CALL

2%};

057560

012737

000003

003246

ACTKTB: MOV

#KTRB,KEYWD1

: RECORD THAT KILL LINE TYPED

5319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
g%g%

057566
057572
057600
057602
057610
057614
057616
057620
057624
057630
057634
057640
057642
057644

105037
022737
001403
112737
105737
001401
000412
005037
012702

003400
000063

003246

ACTKAL:

CLRB
CMP
BEQ
MOVB
1ST8
BEQ
BR
CLR
MOV
MOV
MOV
DEC
BNE
RTS

PSNNUF
#KTRB,KEYWD1
118
#-1,P$GDBD
P$GDBD
108
2$
TRBTOT
#TRIBLS,R2

s
.
;
:
:
:
.
:
:
:
:

6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344

057646
057652
057660
057664
057666
057670
057674
057700
057702
057702
057706

105037
012737
105737
001401
000465
005037
005737
001011

003400
000002
003401

012746
012746

016000
000001

CLRB
MOV
1S18
BEQ
BR
CLR
1ST
BNE
PRINTS

PSNNUF
#SHOW,KE YWD
P$GDBD
108
5%
LNCNT
TRBTOT
1%
#SHTRE

6345
63466
6347
6348
6349
6350
6351
6352
625
6356
6355
6356
6357
6358
6359
6360
6361
6362
6363

6364
6365
€366
6367
6348

057712
057714
057716
057722
057726
057730
057734
057734
057740

057744
057746
057750
057754
057760

057762
057766
057766
057770
057774

060000
060004
060006
060010
060014

012705
012722
005305
001374
000207

010600
104416
062706
000437
012702
012705
012746
012746

010600
104416
062706
122712
001415

111237

005046
153716
012746
012746
010600
104416
062706
005202

177777
003401

003401

007634
007622
000004
177777

118:
108:
1%:
28:

010114
007634

003246

ACTSLS:

10$:

000004

007622
000010

1%:

016042
000001

000004
000377

2%:

010164

B8R
Mov
MOV
PRINTS

(MPB

#, RS
#=1,(R2)¢
RS
19
PC

3]
#TRIBLS,R?
#8.,R5
#SHIRH

CLEAR INCOMPLETE INFO FLAG
BE SURE ''ALL'" IS AFTER A "KILL"
BR IF YES
ELSE ERROR [N (MD
SEE IF WAS AN ERROR FROM . .KTB
BR_IF NO
__ELSE EXIT
IERO_TOTAL # OF | INE NUMBERS
PT R2 TO LINE NUMBER TABLE

SETUP R5 AS COUNTER
CLEAR 8 BYTES OF TABLE

sRETURN TO CALL
s
¢
:
+
s
¢
s
s+
¢

CLEAR THE INCOMFLETE CMD FLAG
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

: POINT R2 TO THE LINE NUMBER LIST
¢ SETUP RS AS A COUNTER
¢ PRINT LINE LIST HEADER
MOV
MOV

MOvB
PRINTS

8377, (R2)
: SEE IF A NULL ENTRY
3s
.
BR IF YES
(R2),TEMP
#SHTAP,<B,TEMP>

INC

BEQ

3%:

MOV
MOV

MOV
TRAP
ADD

010164
016066
000002
000006

SEQ 190

23-DEC-82
14:01
PAGE 191
ACTION TABLE AND ROUTINES

INCREMENT TABLE ADDRESS

MOV
TRAP
ADD

CLR
81s8
MOV
MOV
MOV
TRAP
ADD

#SHTRE ,=(5P)
#1,-(SP)

SP,RO
CSPNTS
#s,SP

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

SP,RO
CSPNTS
#s,SP

=(SP)
TEMP, (SP)
#SHTAP,=(SP)
#2,=(SP)
SP,RO
CSPNIS
#6,SP

J 15

MACY11 30A(1052)

CZKMSA 0 xMs1i
¢
CIXMSA, P

23-DEC-82

000062

RTS

;RETURN TO CALL

CLR
CLRB

VALTRB

SINIT. VALID LINE FLAGO FLAG
*CLEAR NOT ENOUGH INF FROM ..K18

10%:

1%:

MOV

(MP

BHIS

PRINTS

#CR

PSNNUF
P$GDBO
10%
ACTEXX

MOV
MOV
MOV
TRAP
ADD

. SEE IF WAS AN ERROR
: BR IF NO

ELSE EXIT

;SEE THAT ITS A VALID LINE NUM (0=7)

PENUM,R1
#7,.R1
2%

#SHTIV,RY

MOV
MOV
MOV
MOV
TRAP

016146
000002

R1,=(SP)
NSHTIV,=(SP)

ADD

000006

003246

28:

B8R

ACTEXX

(MP

#ETRB,KEYWD1
ACTEKE

BEQ
B8R

ACTKAL

ISH
: SEE IF KILL OR ESTABL
I SH

. BR If WAS AN ESTABL ONLY ONE POSSIBLE
:«2827
. KILL LINE

ACTEKE:

060134
060134
060140
060142
060150

007622
000001
007622

00763¢

060154
060162
060166

177777

003404

060172
060172

ELSE PRINT A PARTING (R

5%:

BEQ
BR

060122
060130
060132

; BR BACK IF NO

4%:

1518

003374
000007

: SEE IF CHECKED ALL OF LIST

BNE
PRINTS

ACTEKT:

060064
060070
060074
060076
060076
060100
060104
060110
060112
060114
060120

PAGE 192

14:01

ACTION TABLE AND ROUTINES
DEC

060044
060044
060050
060054
060060
060062

SEQ 19

007642
007640

ACTEXX:

MoV
Mmove
MOV
suB

#TRIBLS,R2
R1,(R2)
#1,TRBTIOT
#TRIBLS.R2

MOV
MOV
MOV

R2, INDEX
R1,INDW

RTS

:RETURN 10 CALL

K 15

CIKMSAO KMS11-BD/BE DCLT
CZKMSA. P11
23-DEC-82 13:54

MACY1! 30A(1052)

gz}g

LSBTTL

6420
6421

060174

6424
6425
6426
6427
6428
66429
6430
6431
6632

060174
060202
060204
060210
060212
060220
060222
060222
060226

032737
001421
005737
001416
023737
001412

000002

012746
012746

014450
000001

22%9

060242

000137

000004
054576

22%%

6433
6434
6435

060232
060234
060236

6438

060246

64643
6444
6445
6446
66447

060260
060264
060266
060270
060274

6439
6440
6441
6442

060246
060252
060254
060254

010600
104417
062706

010056

005737
001013

007634

012746
012746

016072
000001

112737

000004
177777

010600
104417
062706

010074

AKX

003401

060302

6450
6451

060306

001043

105737

003401

060310
060316
060322

013737
005737
001003

010060
010150

010150

012737

000072

010150

060332
060340
060342
060350
060356
060362

032737
001430
013737
013737
005037
004737

000002

010224

007634
010150

010046
010164

022737
002012

001000

6466

060366
0603764
060376

016237
000001

6472

060416

(12746
012746
010600
104417
062706
000137

66452
6453
6454

6455
6456

6457
6458
6459
6460
6461
6462

6463
6464
6465

6467
6468
6469
6470
6471

060302

060324
060332

060376
0604602
060406
060610
060412

sSTART EXECUTION OF

010170
030356

000004

054576

GETCL

1S7
BNE
PRINTF

TRBTOT
(3
#SHTLPA

MOVB

1518

MOV
TST
B8NE

010170

MoV
BIT
BEQ
MOV
MOV
CLR
JSR

;IS THIS DATA (HECK
:BRANCH IF NO
:BRANCH IF NOT LOOP
:ARE TX AND EX EQUAL
:BRANCH IF YES
;PRINT MESSAGE TO OPERATOR

;60 CET NEXT COMMAND

MOV
MOV

MOV
TRAP
ADD

HCLIPW,=(SP)
M ,=(SP)
SP.RO
CSPNTF
8 ,SP

MOV
MOV

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

:CHECK FOR AT LEAST ONE LINE ENABLED

;IS LINE TOTAL
:lERD?,.BR [F NOT
;PRINT ERROR MUST ESTABLISH LINE

#-1,P$GDBD
:SET ERROR FLAG
:CHECK ERROR FLAG

PS$GDBD

:TEST ERROR FLAG

#58..,CURCC
:

:SET UP DEFAULT

12%

MOV
TRAP
ADD

SP,R0O
CSPNTF
#4,SP

;BRANCH IF ERROR
;CHECK If DEFAULT RUN COMMAND
€TOTCC, CURCC
:MAKE CURRENT COUNT= COMPARE COUNT
CURCC
;TEST TOTAL COMPARE COUNT
19
:BRANCH IF NON DEFAULT

#DATCKB,PARAM
23
TRBTOT ,MPLY
CURCC,TEMP
TEMP?
PC,MTPLY

:BRANCH IF NOT CHECKING

PRINTF

#BUFLIM, TEMP?
2%
#SHTBR

;MULTIPY TRBTOT BY CURCC
:RESULT IN TEMP2
:1S 17T MUCH 10 MUCH
:NO EVERTHING IS HUNKY DORY
:ERROR

JMP

GETCL

;G0 BACK TO GET NEW (OMMAND

(MP
BGE

12%:

#DATCKB,PARAM
463
MLTYP
443
CMPTOT,TXMTOT
443
#CLIPW

JMP

BNE

19%:

RUN (OMMAND

; RX ALLOCATE CODE
8IT
BEQ
1ST
BEQ
CMP
BEQ
PRINTF

010220

6448

6449

SETUP FOR RECEIVER ALLOCATIONS

GTR9:

010224

SEQ 192

23-DEC-82
14:01
PAGE 193
SETUP FOR RECEIVER ALLOCATIONS

MOV
MOV
MOV
TRAP
ADD

#SHIBR,=-(SP)
#1,-(SP)
SP,RO
CSPNTF
#6,SP

CZKMSAQ KMS11-BD/BE DCLT

CZKMSA.P11

23-DEC-82 13:54

6474

060422

6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486
6487
6488
6489

060430
0606436
0606444
060452
060460
060462
060470
060474
060500
060504
060510
060514
060520
060524

6492
6493
6494
6495
6L96

060546
060552
060556
060562
060566
060572

6475 060422

012737 006406 010052
012737
012737
013737
(32737
001003
012737
005037
005037
005037
005037
005037
005037
005037
012737

006502
006576
010056
000002

010054
010050
010112
010224

000001
010134

010112

007664
007646
013634

005037
005037
005037
005037
005037
005037

013636
013640
013642
007672
007672
007656
010230
010116
010120
010122
010124
010114

060576
060602

004737
004737

024244
063024

6502

060606

012737

6504
6505

060622
060630

032737
001005

6490
6491

6497

6498
6499
2289
6503

6506

6507

6508
6509

gg}?

060532
060540

060614

060632

060640

060644
060650

060656

MACY1? 30A(1052)

012737
012737

177777

007642

000002

010224

010164

010150

012737

001000

010150

004737
022737

030402
000010

007642

001422

010164

060660
060666
060674
060700

012737
013737
004737
013737

005406
007642
030356
010170

010170
010046

010156

060706

004737

#PTRTAB,YXPTR

;INIT TRANSMIT MESSAGE POINTER

MoV
MOV

#RXSTAK ,RSPTRE
#TXSTAK,TSPTR

;AGAIN. POINT TO START OF RX SAVE AREA
;POINT TO START OF TX SAVE AREA

MOV
MOV
MOV
BIT
BNE
MOV
CLR
CLR
CLR
CLR
CLR
CLR
CLR
MOV

#PTR13,CMPPTR
#PTR23,RXPIR
CMPTOT,RXMTOT
#DATCKB,PARAM
GTREX
#1,RXMTOT
CLNSET
cTX
CRX
ILLRSP
START(
ERRTHR
RXMIT
#RXSTAK ,RSPTRS

;INIT COMPARE MESSAGE POINTER
sINIT RECEIVE MESSAGE POINTER
;MAKE COMPARE AND RX MESSAGE COUNTS EQUAL
;1S IT DATA CHE(CK
sBRANCH IF CHECKING
s 1F _NOCHK MAKE RXCOUNT =1
sCLEAR CLEANUP IN PROGRESS CPECIFIER
;CLEAR TX COMPLETE COUNT
;CLEAR RX COMPLETE COUNT
sCLEAR ILLEGAL RESPONSE COUNT
;CLEAR DDCMP START COUNT
sCLEAR ERROR THRESHHOLD RESPONSE COUNT
sCLEAR RETRANSMIT COUNT
;POINT TO START OF RX SAVE AREA

JSR
JSR

;CLEAR FLAG
:CLEAR NO BUFFER COUNTER
sCLEAR OPVAR1
s CLEAR PASS COUNT
:CLEAR ERROR COUNT
;CLEAR COUNTER THAT IS USED FOR STATUS
s INITALIZE COMMUNICATIONS DEVICE
;LOG _ABOUT TO INIT DEVICE
PC,LOGDVI
¢INIT DEVICE
PC,DVINIT

MOV

#-1,INDEX

¢MAKE INDEX =-1

BIT
BNE

#DATCKB,PARAM
GTRX2A

;IS THERE DATA CHECKING
¢BRANCH IF CHECKING

CLR

TEMP

GTRX2C: MOV

MOV

GTRX2A: JSR
CMP

BEQ

MOV
MOV
JSR
MOV
JSR

030474

FLAG
OPVAR
OPVAR1
PSCNT
ERRCNT
LNCNT

CURCC,TEMP

#BUFLIM,CURCC
PC,GTVIND
#8.,INDEX

GTRX2B

;SET UP CHAR COUNT TO ‘BUFLIM’
;GET VALID INDEX
IS 1T 8

sYES.. ALL DONE GO EXECUTE MODE

#RXBUF , TEMP?
INDEX ,MPLY
PC,MIPLY
TEMP2,CURADD

sTEMP = 0 FOR PTP OR MTP/W NO (HK
s INDEX X TEMP+ RXBUF ADDDR =
:NEW RXBUF ADDR.
;SET UP RX BUFFER ADDRESS

PC,GRPTCP

;GO LOAD *33' 10 BUFFER

ggsz

6525

060712

012737

000010

6529

060732

000172

010232

6526
6527
6528

:INITIALIZE POINTERS, COUNTERS AND FLAGS

MoV

;GET CURRENT POINTER FIGURE

gg}g
ggg}

PAGE 194

SETUP FOR RECEIVER ALLOCATIONS

CLR
(LR
CLR
CLR
CLR
CLR

GIRX2:

14:01

;GET RXBUFF PTR FIGURE

gg}%

6514
6515
6516
gg}g

GTREX:

007650
007652
007654

013737

005037

23:

23-DEC-82

060720
060724
060730

004737
013702
006302

027520
010216

010146

MOV

JSR
GTRX2B: MOV
ASL

JMP

#10,MSGTYP

PC,BLDBUF
MODTYP,R2
R2

aMODE (R2)

;SET UP FOR 33 TO FILL RX BUFFERS

sCLEAR RX BUFFER

;MODE DISPAT(H

SEQ 193

m15

CZKMSAD KMS11

CIKMSA.PY
6530

195
PAGECATI
01 ALLO
C-82RECE14:
T213:54 MACY1Y 30A(1052) %3-DE
/BEECDCL
ONS
-BD-D
IVER
P FOR
-8
23

SEQ 194

N 15

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

MACY1Y 30A(1052)

23-DEC-82 14:01 PAGE 196
RECEIVE MODE SECTION
RECEIVE MODE SECTION

.SBTTL

6531

(he

6532

; FUNCTIONAL DESCRIPTION:

6533

;

6534

RECEIVE-ONLY (OR ONE=-WAY=IN) ROUTINE

IN THIS MODE OF TESTING THE DEVICE'S RECEIVER IS ENABLED IN EXPECTATION
OF RECEIVING A MESSAGE. AFTER RECEIVING AN ‘‘EXPECTED'* NUMBER OF
MESSAGES, THE DATA RECEIVED CAN BE COMPARED AGAINST A LIST OF ''EXPECT
T0 RECEIVE'* MESSAGES IF DATA=-CHECKING IS ENABLED.

6535
6536
6537
gggg

:
:
:
:

6540
6541

: SUBORDINATE ROUTINES USED:
“ALLTR"
:

6543

AMODE (R2)

;:DISPATCH TO MODE RASED ON MODE TYPE IN R2

’
RXONLY: BIS
JSR
JSR

#ORX+ERX,FLAG
PC,LCPRLS
PC,RXQUAL

:SET UP RX OUE: RX QUEUED, RX EXPECTED
SLOAD CPTRLS (RX PTRS)
;GO QUE ALL VALID RX'S

ALLTR

;GO RX,

6542

: CALLING ssousucs

ggzg

6546
6547 069736 052737
6548
6549

060744
060750

004737
004737

000104
030160
030112

6551

060760

000137

061110

6550

060754

005037

010154

010230

RXON3:

CLR

JMP

CPTR

SEQ 195

8 16

CZXMSAO KMS11-BD/BE DCLT

CIKMSA P11

23-DEC-82 13:5¢

MACY1Y 30A(1052)

23-DEC-82

TRANSMIT MODE SECTION

6555

6556

: fUNCTlONAL DESCRIPTION:

6558
6559

:
:

6562

: SUBORDINATE ROUTINES USED:

6564

6557

222?

6565

6570
6571
6572

6573
6574

SPECIFIED TO REPETITIVELY TRANSMIT THE LIST.
“ALLTR"

aMODE (R2)

:DISPATCH TO MODE RASED ON MODE TYPE IN R2

#UATCKB,PARAM

:SET NOCHECK

#8.,INDEX
ALLTR

;60 TX.

: CALLING SEQUENCE:

gggg

6569

RANSMIT=ONLY (OR ONE-WAY=0UT) ROUTINE

1~ THiS MODE OF TESTING A LIST OF MESSAGES IS TRANSMITTED WITHOUT
EXPECTING ANY DATA TO BE RECEIVED. A REPETITION COUNT CAN BE

6563

6568

PAGE 197

TRANSMIT MODE SECTION

LSBTTL

2222

14:01

060764

060772
060776
061004

061010
061016

042737

004737
052737
004737

012737
000137

000002

030306
000210
030262

000010
061110

010224

010230
007642

)

JMP

TXONLY: BIC

TXON2:

JSR
BIS
JSR

MOV
JMP

PC,LCPTLS
#QTX¢ETX,FLAG
PC,CLRPLS

SLOAD TX POINTERS AND TX COUNTS
;TX QUEUED, TX COMPLETE EXPECTED
CLEAR RXPRT LIST

SEQ 196

¢ 16

CZKMSAD xns11-eo/es pOLT

CIKMSA.P11

23-DEC-82 13:54

MACY11 30A(1052)

.SBTTL

9
223
6578

23-DEC-82

14:01

PASSIVE MODE SECTION

[ X2

6579
6580

* FUNCTIONAL DESCRIPTION:
PASSIVE MODE SECTION
:

6582
6583

:
:

6581

;

gggg

IN THIS MODE OF TESTING, TE DEViCE'S RECEIVER iS ENABLED IN

EXPECTATION OF RECEI\ING A MESSAGE.
RECEIVED, A MESSASE IS TRANSMITTED.
RECEIVED DATA.

“ALLTR"

6588

6590

: CALLING seousnce

6589

;

6597

aMODE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

JSR
JSR
8IS

PC,LCPTLS
PC.LCPRLS
NORXSERX.FLAG

;LOAD TX POINTERS AND TX COUNTS
“SET UP CPTRR TO REC POINTERS
:RX oueueo AND EXPECT RX

JMP

ALLTR

ggg}
6594
6595
6596

THEN EVERY TIME A MESSAGE 1S
DATA CHECKING CAN BE DONE ON THE

: SUBORDINATE ROUTINES USED:

gggg

6593

SEQ 197

PAGE 198

061022
061026
061032

061040

004737
004737
052737
004737

030306
030160
000106
030112

6598 0610644 000137 061110

’

PLCK:

010230

JSR

PC,RXQUAL

A
SQUE

AND C6URX FIRST MSG.

D 16

CIKMSAO KMS11-BD/BE DCLT

CIKMSA.PI1

23-DEC-82 13:54

MACY1? 30A(1052)

23-DEC-82

14:01

ACTIVE MODE SECTION

6600

.SBTTL

6603
6604

: FUNCTIONAL DESCRIPTION:
ACTIVE MODE SECTION
;

6607

6601
6602

:
;

6605
6606

:
:

6608
gg?g

6614

gg}g

: CALLING seousuce

6615

6619

061050

6623

061066

6624

“ALLTR"

6613

6620
6621
6622

IN THIS MODE OF TESTING, A LIST OF MESSAGES IS TRANSMITTED AND THOSE
ARE EXPECTED TO BE RECEIVED. RECEIVED DATA CAN BE COMPARED
MESSAGES
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:

gg}}

6618

SEQ 198

PAGE 199

010224

010074

010112

061050
061056
061060

032737
001003
013737

000002

061072

004737

030160

004737

030306

6625 061076 052737 000314 010230

6626 061104 004737 030112
6627

ALCK:

1%:

aMODE (R2)

:DISPATCH TO MODE BASED ON MODE TYPE IN R2

81T
BNE
MOV

#OATCKB,PARAN
1%
TXMTOT,RXMTOT

;1S IT DATA CHECK
‘BRANCH IF CHECK
:IF NOCH MAKE RX=TX

JSR

PC,LCPRLS

:LOAD RX POINTERS

JSR

BIS

JSR

PC,LCPTLS

:LOAD TX POINTERS AND COUNTS

NORX+QTA+ETX+ERX.FLAG

PC,RXQUAL

;RX QUEUED, TRANSMIT QUEUED

EXPECT TRANSMII
“EXPECT RECEIVE, ALL
VALID LINES

;QUE UP 1 RX BUFFER FOR

E 16

MACY1Y 30A(1052)

23=DEC82 164:01 PAGE 200
ANSMIT - RECEIVE FOR ALL STANDARD MODES

TMm

—-O
p
24
—3»

ON:
OR MS THE FOLLOWING FUNCTIONS:

1.)

IF RX BUFFE RS ARE TO BE QUEUED,TELL DEVICE

2.)

IF Tx BLF

4.)

5.)
6.)

0DE T0
OXT
WV TO»

3.)

[

[an]

c
&

haX2

—

TRANSMIT - RECEIVE FOR ALL STANDARD MODES

.SBTTL

w
(]

CZKMSAQ KHS11§%D/BE DCLY
CZKMSA. P
DEC-82 13:54

SEQ 199

E THEM AND LOG 'RECEIVE QUED®.
.

TELL DEVICE
MIT QUED*
3
l THER RECIVE BUFFER OR T RANSMIT BUFFER OR
M PLETE

THE SETUP PROCESS.

COMPLETE, LOG IT.

THEN IF DATA CHECKING

TO THE COMPARE BUFFER CODE.

SUBORDINATE ROUTIMES USED:

“DVRXQ'' -QUE RECEIVE BUFFER SPACE TO DEVICE
"LOGRXQ''-LOG RECEIVE BUFFER SPACE TO EVENT LOG
LOGTXQ''-LOG TRANSMIT BUFFER QUED TO EVENT LOG
“DVTXRX''=QUE TRANSMIT BUFFER AND WAIT FOR RX
OR TX TO COMPLETE

"'LOGRXC''-LOG RECEIVE BUFFER COMPLETED TO EVENT LOG
"LOGTXC''=LOG TRANSMIT BUFFER COMPLETED TO EVENT LOG
USE OF FLAG BITS:

aRX

SET ON ENTRY TO ALLTR IF RECEIVE IS TO BE QUED TO
CLEARED BY DVRXQ AND THEN SET BY DVTXRX

DEVICE.

WHEN RX IS COMPLETED.

QTX - SET ON INPUT TO ALLTR [F TRANSMIT [S TO BE QUED TO
DEVICE. CLEARED ON ENTRY TO DVTXRX AND SET BY DVTXRX
WHEN TX BUFFER IS COMPLETED

ETX - ggggcegbovrxnx 10 DETERMINE IF TX BUFFER COMPLETED IS
ERX = USED BY DVIXRX TO DETERMINE IF RX BUFFER COMPLETLD IS
EXPECTED.

CALLING seousucs

03 0454
03 1142
03 0434

srus

— e b
AW

o
S

P
~

O0OO
OFrO

- ol

000004

-— anld
WON)

— b =l

OO0
OO

— and

OO
060

o
o

—d
and e

000
OO0

ALLTR

000010

031030

010230

ALLTR:

ALCKS:

BIT

BEQ

ALCKSB: JSR

31 NO RX QUEUE PENDING, SEE

PC,ULRPLS

:GET RX INDEX

PC.LDRPLS

*RESTORE RX PTR 10 LIST

PC.LOGAQGR

ALCKY: BIT

#QTX,FLAG

JSR

PC,GNTXPR

BEQ

;1SA RECEIVE QUEUED?

ALCK T

JSR

010230

#ORX,FLAG

;60 TO TRANSMIT-RECEIVE FOR ALL STANDARD MODES

ALCK

IF Tx PENDING

1LOG AND QUE REC.

: TRANSM] T ausueo

“IF NO TX'S GO 10 2

*TRANSMIT COMPLETE FLAG SET: GET NEXT XMIT PIR.

CIKMSAQ KMS11-BD/BE DCLY
CZKMSA . PN
23-DEC-B2 13:5¢4

MACY11

30A(1052)

¢3-DE( 82
164:01
PAGE 201
RANSMIT - RECEIVE FOR ALL STANDARD MODES

6685
6686
6687

061150
061154
061160

013702
011237
012237

010154
010170
010064

MOV
MOV
MOov

(PTR,R?
(R2),TEMP?
(R2)+,DVIXA

6689

061170

012237

010006

MOV

(R2)+,DVTCC

6691
ggg%

061200
061204

004737
004737

030572
024144

JSR
J3R

PC,LDTPLS
PC,LOGTXQ

:RELOAD LIST
:L0G TRANSMIT QUEUED

gggg

061210

004737

064340

JSR

PC,DVTXRX

sGO TO TX AND RX SUBROUTINE

6696

061214

032737

000004

010230

BIT

#QRX FLAG

sCHECK FOR REC. QUEUED

6698

061224

013737

0101064

010170

MOV

DVRXA, TEMP2

MESSAGE RECEIVED, L0G [T

013737
004737

010102
024216

6688
6690

6697
6699

061164

061174

061222

011237

010237

0015642

061232

013737

6703
67064
6705
6706

061252
061260
061262
061266

032737
001410
004737
(13702

6708
6709
6710
6711
6712
6713
67164
2;}2

061276
061302
061310
061312
061316
061322
061330
061334

013712
032737
001012
004737
004737
013737
004737
000440

6717
6718
6719
6720
6721
6722

061336
061342
061346
061356
061362
061370

004737
013702
013737
013737
063737
004737

6700
2;8;

6707

6723
6726
6725
6726
6727

6728

061240
061246

061272

061374
061400

061406
061412
061416

061422

013722

011237
163737
013722
013722
013712

162702

:NOW, POINTING TO FOLLOWING MESG ADDR, BYTE (7

ALCKS

:IF MESSAGE NOT RECEIVED, CHECK FOR TX

DVRTB,TRIBN
PC,LOGRXC

000004

010224

UPTABL: BIT
BEQ
JSR
MOV

#ECHOB,PARAM
UPTAL
PC,ULTPLS
CPTR,R?

:1S THIS ECHO MODE (PASSIVE)
¢1F NOT GO TO &
.
;ELSE SET R2 TO PRESENT TX TABLE

MOV
BIT
BNE
JSR
JSR
MoV
JSR
BR

TEMP3, (R2)
#DATCKB,PARAM
UPTA1
PC,GETIND
PC,LCPRLY
TEMP2,CPTRR
PC,LDRPLS
UPTEX

+AND (C
;IS DATA CHECKING ASKED FOR
:1F SO GO TO UPTA1
¢GET INDEX
;RESTORE POINTER
+RESTORE POINTER
sLOAD COUNT AND LIST

JSR
MOV
Mov
MOV
ADD
JSR

PC,ULRPLS
CPTRR,R2
TEMP3,TOTCC
TEMP2,CURADD
TOTCC,CURADD
PC FCURAD

;GET PTR FROM LIST

MOV
MoV
MOV

TEMP3, (R2) ¢
CURADD, (R2) +
TEMP, (R2)

sCOPY ACTUAL COUNT RECEIVED
:STORE OF NEW RXBUFF ADDRESS
+AND NEW BUFF LENGTH

007636

030612
010154

010170

010172
000002

031102
030210
010170
030434
030454
010152
010172
010170
010160
027644

010164
010160
010172
010158
010164

MOV

010224

UPTA4:

010152

UPTAl:
010160
010156
010156

MoV
suB

010164

000002
010152
030436

061446
061452
061460
061466

005337
0462737
052737
000622

007642
000004
000210

004737
005337

030552
010110

010216

UPTEX:

ALCK2A:

TEMPZ, (R2) +

(RS), TEMP
T0TCC, TEMP

:LOG EVENT

:L0G MESSAGE RECEIVED
+LOG REC COMPLETE

+STORE OFF RX ADD

s COPY RCVD MESSAGE COUNT
:COPY RCVD MESSAGE ADDRESS
;POINT TO END OF RCVD MESSAGE
sMAKE SURE ADDRESS IS ON WORD BOUNDARY

¢LOAD TEMP WITH PREV. RX BUFF LENGTH
sSUBTRACT CURRENT COUNT

suB

#2,R$

(mp

#PAS MODTYP

DEC
8lC
81s
BR

ALCKOA

INDEX
#ORX ,FLAG
FOTX+ETX,FLAG
AuCKY

s 1F NOT PASSIVE LOOP THEN GO TO 2A

JSR
DEC

PC,ULRCLS
DVR(T

¢GET COUN
+DEC REC (OUNT

MOV
JSR

BNE

010230
010230

DVRCC, TEMP3

+SAME BYTE COUN

MOV
JSR

6736
6735
6736
23;5

061470
061474

8tQ

R, (PfR

MOv

000002

6739
6740

ALCK2:

:BYTE COUNT OF THE ME SSAGE

010172

022737

001011

MOV

(R2), TEMP3

010106

061426
061432
061436
061436

061444

MOV

010156

6729
6730
6731
6732

6733

010237
004737

010172

¢POINTER TO NEXT ADDRESS, BYTE COUNT PAIR
+ADDRESS OF THE MESSAGE
s SAME ADDRESS

RZ2,CPTRR
PC,LDRPLS

+PUT POINTER BACK TO ADDR.
sAND RESTORE IT.

sIF PASSIVE NEXT TXQ WILL BE FOR THIS LINE
sCLEAR BOTH EXPECTED AND COMPLETED FLAGS
;TX QUEUED, EXPECT TRANSMIT COMPLETE

Sea 200

G 16

CZKMSAO KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-82 13:54

6741

061500

004737

6763
6746
6745
2;29

061510
061512
061520
061524

001007
062737
005037
004737

061530

032737

62642

6748

6749

061504

005737

MACY1' 30A(1052)

030532

JSR

PC,LDRCLS

;RESTORE COUNT

000004
010152
030434

010230

BNE
BIC
CLR
JSR

ALCK3
#ORX ,FLAG
CPTRR
PC,LDRPLS

*NO. GO CHECK TX
‘CLEAR THE RX QUEUED FLAG
*YES. CLEAR POINTER
*AND RELOAD LIST

000010

010230

010110

181

001467
6750 061536
061540 013737 010064 010170
6751

6752
6753

0615646
061554

013737
013737

010066
010070

6756
6757

061566
061572

004737
005337

030652
010072

6760

061602

022737

000002

6763

061620

005737

010072

061626

052737

000104

g;gg 061562 004737 024162
2;23

061576

004737

23-DEC-82 14:01 PAGE 202
TRANSMIT = RECEIVE FOR ALL STANDARD MODES

:CHECK FOR HESSAGE TRANSHITTED

ALCK3:

010172
007636

MOV

DVTXA,

;1S A TX QUEUED?
(NEITHER RX NOR TX)
THEN GO BACK
NOT TX COMPLETED*1F
LOG !T

JSR

PC,LOGTXC

‘TRANSMIT COMPLETE

#OTX,FLAG

MOV
MOV

DVTCC.TEMP3
OVTTB. TRIBN

010216

:GET CURRENT TRANSMIT cou~r 10 DVTCT
*DEC TX COUNT TO RECORD1 MESSAGE TX COMPLETED

CMP

#PAS MODTYP

:ARE WE IN PASSIVE MODE?

ovrct

001403

BEQ

6767
6768

061636
061640

004737
005737

g;;?

061646

000137

6766

6769

061644

6772

6773 061652

001007

030746
010072

010230

BNE

JMP

061662
0616664

061670
061674

6787

6788
6789
6799

061734

061736

CMPSR

BEQ
ALCK3C: JSR

ALCK3B
PC,GETIND

8IC

#QTX,FLAG

JSR
181

PC, GARPFL
CPTRR

000137
005037

061726

061730

6786

ALCK3C

001404
004737

001356

6785

6784

NORX+ERX,FLAG

PC,GATCFL
ovicT

PC,GATCFL

032737
001405

061716
061722

ALCK3D

004737 030744

061706
061714

6782
6783

ALCK$A
¥QTX,FLAG

;NOT PASSIVE nooe

031102

061110
010154

6779 061700 042737 000010 010230
6780
6781

PC,LDTCLS

ALCK3A: JSR

6774 061656 005737 010072
6775
6776
6777
6778

BIS

ALCK3D: JSR
ST

061742

000002

JMP
ALCK3B: CLR

010224

BIT
BEQ

004737
005737

030672
010152

ALCK4:

005737

010154

ALCKGA: TST

000137

061210

JMP

001402

1L0G TX COMPLETED
:L0G EVENT=-

PC,ULTCLS
ovicT

BNE
BI(C

061626

‘TRANSMIT

JSR
DEC

JSR

077532

SIS IT ALL DONE

AL cxl TEMF?

BIT
BEQ

6761 061610 001020
6762 061612 042737 000010 010230

6764
6765

OVRCT

BNE

BEQ

*AND RELOAD LIST

*1F NOT PASSIVE MODE GO TO 3A
*TRANSMIT COMPLETE, NO LONGER QUEUED.
:1f NO MORE MESG TO RX FOR THIS LINE
TEXIT WITHOUT RESETING QRX (RX STILL OQUEUED)
:AND SET THE RX FLAGS

;1F MORE TX'S 10 IT
: ELSE COMPARE

sGET ALL TX COUNTS FROM LIST

ovicT

1S IT ALL DONE? ALL TRANSMISSIONS COMPLETE?

ALCKS
CPIR

'NOW GET ANOTHER VALID LINE.
‘CLEAR POINTER

#OATCKB,PARAM
ALCKGA

*IF NOT GO BACK TO S
TALL TRANSMISSIONS COMPLETE FOR CURRENT LINE

STRANSMIT COMPLETE., NO LONGER QUEUED.
1S IT DAT CHE(K
*1F NOT THEN END WO CKING RX.
5

ALCK3C

;IF SOME RX''S LEFT GO BACK

CMPSR

:BRANCH IF ANY TX'S LEFT

CPTR

ALCK?2

SEQ 201

H 16

CZKMSAO KMS11-BD/BE DCLT
CZKMSA.PY
23-DEC(-82 13:54

MACY11 30A(1052)

23-DEC-82
14:01
PAGE 203
DATA COMPARISON CODE

6792
6793
6794
6795

.SBTTL

see

6798
6799

:
:

EXPECTED AND FILLS THE EVENT LOG WITH 1 OF 3 MSGS.

2%8%

NOTE: IF NO DATA CHECKING SKIP THIS CODE

6804
6805
6806
6807
6808
6809
6810
gg};

:
;
:
:
:
:
:
:

1.) A DATA COMPARISON ENTRY WHICH REPORTS THE NUMBER
OF CCMPARISON 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

g;gg

;

ggg?

6813

DATA COMPARISON CODE

FUNCTIONAL DESCRIPTION:

(MPSR -~ COMPARE CODE
THIS CODE COMPARES THE RECEIVED DATA AGAINST THE

gg}g

; SUBORDINATE ROUTINES USED:

6816
6817

:
:

6820

23}3

gg%}

6823

6824
6825
6826
6827
6828
gggg

061742
061750
061752
061760
061764
061772

032737
001533
012737
004737
022737
001522

000002

010224

177777
030402

007642

6831

061774

004737

030474

2322

062006

013737

010112

6832

6835

6836
6837
6838
6839
ggz?

6842
68463
6844
6845

6846
6847

“LOGCMP'* - SEE ITEM 3 ABOVE
"'LOGCML'' - SEE ITEM 2 ABOVE

062000
062014

013737

000010

01005¢

062014
062020
0620246
062026
062032

013702
011237
012201
012237
010237

010154
010170

062036
062042
062044
062046

013702
012203
012204
010237

010152

062052
062056

010437
004737

010172
010154

010152
010174
024312

007642

“LOGCMD'*

= SEE ITEM 1 ABOVE

CALLING SEQUENCE:

JMP

’

C(MPSR:

BIT
BEQ
MOV
CMPNEW: JSR
(MP
BEQ

010152

(MPS3:

:JUMP TO DATA COMPARiSON CODE

#DATCKB,PARAM
CMPSE X
#-1, INDEX
PC,GTVIND
#8., INDEX
CMPSEX

;IS DATA CHECKING TO BE DONE
<IF NOT THEN EXIT

:END IF NO MORE LINES

JSR

PC.GRPTCP

MOV

RXMTOT,DVRCT

CMPPTR,CPTRR

: AND START OF COMPARE POINTS TO CPTRR

MOV
MOV
MOV
MOV
MOV

L7TR,R2
(R2),TEMP2
(R2)+,R1
(R2)+,TEMP3
R2,CPIR

sMOVE CURRET RX PT.T0 R2
;MOVE RX ADD TO EVENT LOG
:SET R1 TO START ADD OF RX
:SET CHAR COUNT TO EVENT LOG
;RESTORE RX POINT

MOV
MOV
MOV
MOV

CPTRR,R2
(R2)+,R3
(R2)+ R4
R2,CPTRR

:PUT R2 AT COMPARE TABLE
;SET R3 T0O COMPARE ADD
;SET R4 TO COMP (C
;RESTORE POINTER

MOV

010110

CMPSR

MOV
JSR

RG, TEMPL
PC,LOGCMP

:L0G COMPARE START,

SEQ 202

116

CZKMSAQ KMS11-BD/BE DC LY
23-DE(-82 13:5¢4
CIKMSA.P11
6848

020437
001410
005237
000001

6849
6850
6851
6852
6853
6854
6855
6856
6857
6858

062062
062066
062070

6860
6861
6862
6863

062110
062116
062122
062124

005037
012737
122123
001422

5865
6866
6867
6863
6869
6870
6871
6872
6873
6874
6875

062126
062132
062140
062142
062146
062152

005237
023727
101014
114337
114137
005237
000002

6859

6864

6876

6877
6878
6879
6880
6881
6882
6883
6886
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895

062074
062074
062076
062100
062102
062104

0¢2156
062156
062160
062102

062164

062166
062170
062172
062176
062200
062202
062206
062210
062214
062214

062216
062220
062222
062224
062230
062230
062234
062236

104457
000001
017661
023430
004737

104457
000002
017716
023340
005201
005203
005237
005304
(01350
005737
001410
005237
000003
104457
000003
017716
023402
004737

005337
001267
000400

MACY1Y 30A(1052)D 23-DEC-82

ATA COMPARISON CODE

CMP
BEQ

010172

INC

010124

R4, TEMP3
TMPST
ERRCNT

010162

000005

CMPS7:

CMPS1:

1S COMPARE COUNT = TO RX COUNT
2If SO GO TO 7

CMPS2:

JSR

PC,LOGCML

;LOG LENGTH ERROR

CLR
MOV

TEMP4
#1,0FSET

:CLEAR BAD BYTE COUNTER
“SET OFSET BYTE COUNT TO 1

BEQ

CMPS6

*IF EQUAL THEN GO T0 6

INC
CMP
BHI
MOVB

TEMP4
TEMP4 , #5
CMPS6
=(R3),G00D

:INC BAD COUNT
*1S IT MORE THEN §
‘IF SO GO FOR MORE
*STORE GOOD BYTE FOR ERROR

INC

ERRCNT

(MPB

MOVB

(RI)+,(R3)»

-(R1).BAD

SEQ 203

PAGE 204

: INCREMENT ERROR NUMBER
ENUM = “D<ENUM+1>
SPRINT ERROR
ERRSOFT ENUM,EDDLE,ERR10

024330
010174
000001

14:01

TRAP

.WORD
-WORD
-WORD

010162

CMPS6:

010174
010124

024346
010110

INC
INC

.WORD
“WORD
.WORD

OF SET

:INC OFFSET

BNE
ST
BEQ

CMPS 1
TEMP4
CMPSSA

:IF NOT GO BACK
SSEE IF ANY CMP ERRS FOR THIS MSG
‘BR IF NONE

INC

ERRCNT

(MPSSA:

JSR

PC,LOGCMD

:LOG DATA ERROR IN COMPARE

DEC

OVRCT

:1F NOT ALL DONE GO BACK
*BRANCH TO END OF PASS CODE

BNE
B8R

CMPS3
CMPSE X

T
CSERSOF
2
EDDDE

ERR1

YELSE DEC CHAR COUNT AND SEE IF 0

: INCREMENT ERROR NUMBER
ENUM = “D<ENUMe1>
-REPORT # OF MISMATCHES FOR ness¢ggp
DE,ERR2
ERRSOFT ENUM,EDD

CMPSS:

ERR10

*STORE BAD BYTE FOR ERROR

INC

DE(

EDDLE

*COMPARE RX WITH EXPETED

: INCREMENT ERROR NUMBER
ENUM = “DCENUM+1>
ERRSOFT ENUM,EDDDE,ERR1 -REPORT CGMPARISON FAILURE 10 opfiéap

R1
R3

ESERSOFT

.WORD
WORD
“WORD

gSERSOFY
EDD"¢
ERR

J 16

205
1 PAGE
2 OF14:0PASS
EC-8END
23-D
MACY11 30A(1052) INTE
DCLT
/BE
MSAOPKMS11-BD
CIXKSA.
CODE
RNAL
23-DEC-82 13:564
CIKM
INTERNAL END OF PASS CODE
.SBTTL
68978
689
6899

6900

gggg

: SUBORDINATE ROUTINES USED:

6901

6902
6903
6904
6905
690
ggg6g

gg‘}

: FUNCTIONAL DESC
EMENTS THE PASS COUNT FOR THE
INCRION:
CODERIPT

::
::
::

THIS
TMODE
EVEN
PASS
THE SENDONEOF RET
. LOGS
T L0G
EVEN
TOT RPASS
URNEMEN
MINU=1 THEN DECR
A NOT
IS
STM
IFDISPRPAS
If
ER.SS'TM* IS THEN = T0 0 GO 10 DCLT PROMPT
ATCH
“'RPA
IF
AND
IN NOT = TO O THEN GO BACK TO MODE DISPATCHER

'L OGEOP'* - LOG END OF PASS TO EVENT LOG

’

CMPSEX: INC
ggxg 0622640 005237 010122
MOV
174
010
116
010
737
013
244
062
6
691
MOV
170
010
122
010
737
013
252
78 062
691
MOV
172
010124 010
260 013737
691 062
JSR
gg%g 062266 004737 024372
CMP
777 010226
177
737
022
272
062
1
693
BEQ
403
001
300
062
2
692
DEC
226
010
337
005
302
062
3
692
BEQ
6924 062306 001402
6913

606
060
137
000
310
062
5
692
020
064
737
004
314
062
6926

6927 062320 000137 054512

1$:
28:

JMP
JSR

PSCNT
TEMP42
AR,
OPV
TEMP
NT,
PSC
ERRCNT,EOPTEMP3
PC,LOG
ASS
#-1
1%RPA,RP
2$ SS

GTR
PC,X2HLTTRB

GTRAS

:BUMP PASS COUNT
FSNT
BUF
NO
:LOG
COU
S
PAS
1L0G
:LOG END OF PASS
SS='T=1 DECREMENT, LOOP FOREVER
IF ISRPADON
;SEE
IT
IF
COUONTDCLT> PROMPT
PASES GOT
‘DEC DON
*1f

CH
PAT
DIS
AND
K
BAC
GO
SE
*EL
GOING BACK
ORE
BEF
GO WALT ALL LINES

"WHEN RPASSz0 GO BACK TO ''DCLT>’

SEQ 206

K 16
C2ZXMSAQO KMS11=-BD/BE D(CLT
CZKMSA . P11
23-DeC-82 13:5¢4

MACY1Y

30A(1052)

SEQ 205

23-DEC-82
14:01
PAGE 206
DOWN=L INE=LOAD SECTION

ggg?

LSBTTL

6932
6933
6934
6935
6936
6937
6938
6939
6940

X
;s FUNCTIONAL DESCRIPTION:
:
DOWN-LINE-LOAD SECTION
\
M
IN THIS MODE OF TESTING THE °''HOST'' OR ORIGINATING STATION
:
REQUESTS THE ''SATELLITE' OR BOOfl STATION TO ENTER MOP MQDE.
:
THE BOOT STATION THEN SENDS A
''REQUEST PROGRAM MESSAGE''.
:
THE "'HOST'' THEN SENDS A ‘'MEMORY LOAD WITH TRANSFER ADDRESS"'
:
THAT CONTAINS IMAGE DATA TO BE LOADED B8Y THE BOOT STATION'S
R
DMP-11 FIRMWARE STARTING AT LOC. Q.
THIS IMAGE DATA WILL CONTAIN A

232%

DOWN=L INE=LOAD SECTION

PROGRAM THAT WILL PRINT A MSG THAT DOWN-LINE-LOAD WAS SUCESSFUL.

. SUBORDINATE ROUTINES USED:

ggzz

6945
6946
6947
6948
6949
6950

:
:
:
.
:
.

6953

; CALLING SEQUENCE:

ggg;

gggg

6956
6957
6958
6959
6960
6961

6962
6963
6964
6965

G067

"DLTIXRX'' =
"'DVRXQ‘' =
"LOGRXQ'' =
“LOGTXQ' =
"DVIXRX'* =
LOGTXC' =

062324
062324
062324
062330
062334
062336
062340
062344

DLL:
012746
012746
010600
104417
062706
000137

015457
000001
000004
054512

SPECIAL TX RX ROUTINE FOR DLL
QUE RX BUFFER SPACE TO DEVICE
LOG RX SPACE QUED TO EVENT LOG
LOG TX BUFFER QUED TO EVENT LOG
QUE TX BUFFER AND WAIT FOR RX OR TX TO COMPLETE
LOG TX COMPLETED TO EVENT LOG

“"LOGRXC'' = LOG Rx COMPLETED TO EVENT LOG
JMP

aMODE (R2)

;DISPATCH TO MOCE BASED ON MODE

TYPE

PRINTF

#DLLOT

sPRINT DOWN LINE LOAD NOT SUPPORTED
MOV
MOV

MOV
TRAP

JMP

GTRAS

JEXIT

ADD

IN R/

#OLLAY ,=(SP)
#1,=(SP)
SP,RO
CEPNTF
#4,SP

L 16
CZKMSAQ KMS11-BD/BE DCLT

CZKMSA . P11

23-DEC-B2 13:5¢4

MACY1Y

30A(1052)

23-DEC-82

14:01

TALK MODE SECTION

6969
6970
6971
6972
6973

XX
s FUNCTIONAL DESCRIPTION:
:
TALK MODE SECTION

6975

LSBTTL

6974

ggzg

TALK MODE SECTION

IN THIS MODE, THE '‘TALK'' END OF THE LINK TRANSMiTS OPERATOR

SPECIFIED MESSAGES UNTIL A "EXIT'' MESSAGE

; SUBORDINATE ROUTINES USED:

6980
6981

:
.

6984
gggz

s
:

6987

062350
062356
062362
062370

012737
004737
042737
012702

77777
030402
000002
002520

6993
6994
6965
6996
6997
6998
6999

062400
06240:
062406
062406
062410
062412
(62614

022700
001373

002642

6992

062374

012722

7000
7001
7002
7003
7006
7005
7006
7007
7008
7009

(62416
062420
062422
062424
062426
062426
0626430
062436
062440
062442

062444

7012
7013
7014
7015
7016
7017

062450
062456
062464
062472
062500
062504

012737
012737
013737
013737
004737
052737

002520
002520
002162
002162
024144
0002'0

;85?

062516

004737

064340

7022
7023
7024

062522
062530
062536

013737
013737
004737

010064
010066
024162

;8}8

062512

005037

"LOGTXC' = LOG TX COMPLETE TO EVENT LOG

CALULING SEQUENCE:
JMF
aMODE (R2)

’

TALCK:

010224

177777

104443
000406
002520
000142
016546
000377
000001
000110
_
005002
122762
001402
005202
000772
010237

;8}?

007642

AT THAT POINT,

"LOGTXQ' = LOG TX BUFFER QUED TO EVENT LOG
"DVIXRX' = QUE TX BUFFER TO DEVICE AND WAIT FOK COMPLETE

6988
6989
6990
6991

IS TYPE.

THIS END OF THE LINK GOES INTO '"LISTEN'' MODE.

gg;g

ggg%

SEQ 206

PAGE 207

1%:

sDISPATCH TO MODE BASED ON MODE TYPE

MOV
JSR
BIC
MOV

#-1,INDEX
PC,GTVIND
#DATCKB,PARAM
#0PBUF ,R2

CMpP
BNE
OGMANID

#0OPEND,R2
1%
OPRMM,0PBUF ,A,377,1,72..NO

MOV

c-1,(Ré)¢

sGEY FIRST LINE
JSET NOCHECK

sCLEAR QUT OPBUFFEK FiRST
:GET TALK MESSAGE

TRAP

CSGMAN

B8R
.WORD

10001%
OPBUF

.WORD

000377

002520

002162

010152

2%:

3s:
010064
010170
010172
010066
010230

010170
010172

CLR
CMPB
8EQ
INC
B8R

R2
#377,0PBUF (R2)
b1 3
R2
2%

;NOW GET CHAR COUNT

MOV
MOV
MOV
MOV
JSR
BIS

#OPBUF ,DVIXA
#OPBUF
, TEMP?2
OPCNT,TEMP3
OPCNT,DVTCC
PC,LOGTXQ
NOTX+ETX,FLAG

:SET UP TX ADDR.

JSR

PC,DVTXRX

MOV
MOV
JSR

DVIXA,TEMP?
DVICC,TEMP3
PC,LOGTXC

MOV

CLR

IN R?

100018
:

.WORD
.WORD
.WORD
.WORD

T$CODE

OPRMM
377
TSLOL
IM
TOSHILIM

R2,0PCNT

CPTRR

JSET UP TX (C
;TRANSMIT QUEUED,

;CLEAR RX POINTER

EXPECT

TRANSMIT

COMPLETE.

c1xnsao KMS11-BD/BE DCLT

CIKMSA.P11

23-DEC-82 13:54

MACY1? 30A(1052)

7025 062542 022737 054105 002520
7026

062550

001277

7027

062552

022737

052111

002522

7029

062562

062737

000210

010230

7031

062576

000137

060606

7028

7030

062560

062570

001273

012737

000006

010216

23-DEC-82

14:01

TALK MODE SECTION

PAGE 208

:CHECK FOR EXIT

(MP

#"'EX,OPBUF

CMP

+2
#[7,0PBUF

BIC

NOTX*ETX,FLAG

;TRANSMIT QUEUED, EXPECT TRANSMIT COMPLETE

JMP

GTRX S

SEND GO BACK TO DlSPArCM

BNE

MOV

TALCK
TALCK

#L1S, MODTYP

*CHANGE TO LISTEN MODE

SEQ 207

¢
(ZKMSAQ KMS11=BD/BE DCL!T
CIKMSA.P11
23-DEC-82 13.54

MACY11

30A(1052)

23-DEC-B2
14:01
PAGE 209
LISTEN MODE SECTION

LSBTTL

LISTEN MODE

SEQ 208

7032
7033
7034
7035
7036
7037
7038
;828

XX
: FUNCTIONAL DESCRIPTION:
:
LISTEN MODE SELTIO
:
IN THIS MODE, THE ""LISTEN'' END OF THE LINK PRINTS ALL OF THE MESSAGES
:
RECEIVED BY HE DEVICE ON THE OPERATOR'S CONSOLE.
IF THE MESSAGE
:
RECEIVED IS AN “EXIT'* MESSAGE, THEN THE NODE ENTERS ‘'TALK'' MODE.

;82;

: SUBORDINATE ROUTINES USED:

70643
70464

:
:

7045

;829

;

38%3

7051

7052

062602

012737

7054

062614

062737

7053
7055
7056

7057
7058
7059
7060
7061

062610
062622
062622

062626
062632
062634
062636
062642

004737
012746

012746
010600
104417
062706
012737

177777

007642

000002

010224

030402

000006
002520
002520

010104
010170

012737
012737
012737
052737
005037

7068
;893

062704
062710

004737
004737

064%74
024200

;8;}

062714

004737

064340

7073
7074
7075
7076
7077
7078

052720
062726
062734
062740
062746
062752

013737
013737
004737
063737
105077

010104
010106
024216
010104
125134

7080
7081
7082

062756
062762
062784

012746

012746
010600
104417

002514

062706

000004
054105

002520

022737

052111

002522

7083

7084
7085

7086

7087

062766

062772
063000

022737
001320

063010

001314

063002

TO COMPLETE

"LOGRXC'* = LOG RX COMPLETE TO EVENT LOG

CALLING SEQUENCE:

LISCK:

JMP

aMODE (R2)

MOV

#-1, INDEX

BIC

#DATCKB,PARAM

JER

PRINTF

:DISPATCH TO MODE BASED ON MODE

PC,GTVIND

;GET FIRST LINE

#L]SP

:PRINT PROMPT FOR OPR.

000122
000122
000104
010154

010106
010172

010230

010170
010172
010106

LISCKA:

MOV
MOV

#OPBUF ,DVRXA
#0PBUF
, TEMP?

BIS
(LR

MOV
MOV

:SET DEVICE

UP TO REC

AT OPBUF

#82. ,DVRC(
#82.,TEMP3

;SET UP (HAR COUNT

#QRY+ERX,FLAG
CPIR

;SET UP FLAG
;CLEAR THE TX.

JSR
Jon

PC,DVRXQ
PC,LOGRXQ

;QUE RX

JSR

PC.DVTIXRX

:GO TO DEVICE RX. SUBROUTINE

MOV
MOV
JSR
ADD
(LRB
PRINTF

DVRXA, TEMP2
DVRCC,TEMP3
PC.LOGRXC
DVRXA,DVRCC
DVRCC
#OPBFPY

#LISP,=(SP)

MOV

#OPBFPT,=(SP)

ADD

#y,SP

MOV
MOV
TRAP
ADD

N ,=(SP)
SP,RO
CSPNTF
#4,SP

:L0G COMPLETED

#''EX,0PBUF
LISCKA

;COMPARE FOR EX OF
"'EXIT
:1F NOT EXIT THEN GO BACK

BNE

LISCKA

:1F

#°17,0PBUF ¢2

MOV

:SET UP ADDR.AND CC.

(MP
BNE

C(MP

IN R2

TQ 82.

000001

TYPE

:(CLEAR CHECK BIT

000001

062650
062656
062664
062672
062700

062752

“DVTXRX'' = WAIT FOR RX

016535

7062
7063
7064
7065
;829

7079

"'DVRXQ'' = QUE RECEIVE BUFFER SPACE TO DEVICE
“LOGRXQ'* = LOG RECEIVE BUFFER QUED TO EVENT LOG

7048

SECTION

MOV
MOV
TRAP

:1F FIRST HALF OK CHECK NEXT PART
NOT EXIT

THE

GO BACK

#1,-(SP)
SP,RO
CSPNTF

C2KMSAQ KMS11-BD/BE DCLT
CIKMSA. P11
23-DEC-82 13:54
7088

;ggg
709

063012

063020

012737

000137

000005

060606

MACY1Y 30A(1052)

23-DEC-82 14:01 PAGE 210
LISTEN MODE SECTION

010216

MOV

JMP

#TAL,MODTYP

GTRXS

: CHANGE MODE

SEQ 209

T0 TALK

SRETURN T0 DISPATCHER

CZKMSAQO KMS11-BD/BE DCLT
CIKMSA. P11
23-DEC-B2 13:54

MACY11 30A(1052)

7092

2,832

7096

DVINIT = DEVICE INITJALIZATION

see

7097

. FUNCTIONAL DESCRIPTION:

;}8?

7098
7099

;
:

7102

7104
75

:
:

7103

4189

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.

INPUTS:

MLTY?

= LOOPBACK PARAMETER

MODCSR = MODEM (SR ADDRTSS
TRIBN
= ESTABLISHED LINE NUMBER

;

BDLBAS - ADDRESS OF BUFFER DESCRIPTION LIST

7108
7169

.
;

OUTPUTS:
NONE

SUBORDINATE ROUTINES USED:

7110

7112

;

7113
7114
;}12

LOGEO

:
:
:

TOORIO
TOORO
GIVIND

7117

7119
7120

711

7121

7122
7123

;

REPORT AND LOG TIMEOUT WAITING FOR KMS

REQUEST INPUT INTERRUPT. WAIT FOR INTERRUPT OR TIME OUT
WAIT FOR QUTPUT INTERRUPT QR TIMEOQUT

GET ESTABL ISHED LINE NUMBER COPIED TO TRIBN

CALLING SEQUENCE:

JSR

PC.OVINIT

DVINIT:

063024

:REJECT DOWN LINE LOAD REQUEST

2,1152
7126

063024

022737

000004

;;Sg

063034

000137

063702

7127

063032

001002

010216

cMP

#D0OW,MODTYP

JMP

DVINEX

BNE

ovingo

;1%?
7132

7133
713,
7135
7136
7137
7138
7139
;}2?

063040

063046
063052
063060
063066
063076

063100

063102

7144
;}22

063104
063110

7147

:SEE IF DOWN-LINE=LOAD (NOT SUPPORTED)

S"BR IF NOT, ELSE EXIT TO PRINT MSG

;START KMS

71642

71643

SEQ 210

23-DEC-82 14:01
PAGE 211
LISTEN MODE SECTION

LSBTTL

7095

063102

012737

005077
012777
112777

001000

130320
040000
000377

012777

100000

105777

130276

901416

104422

005737
001371

010270

DOVINOD: MOV

#1000, TIMERY

130312
130310

(LR
MOV
MOVB

130276

MOV

FKRUN,BSELD

TSTB

@BSEL2

DVINO:

BEQ

3SELD
#MCLR,ASELD
#377,3BSEL?

10%

BRE AK
010270

151
BNE

;SET TIMER

*HALT KMS TO ENSURE CLEAN STARTUP
*MASTER CLEAR
*SPECIFY KMS NOT RUNNING
1 (KMS CLEARS BSEL2 WHEN STARTED)
SSET RUN BIT TO START KMS
:WAIT FOR KMS TO START
;1S KMS RUNNING ?
“YES. CONTINUE

:NO. ALLOW CTRL/C EXIT wHILE WAITING
TIMER)
DVINO

:HAS TIME EXPIRED ?
:NO. CHECK AGAIN
;REPORT KMC NOT STARTED

TRAP

($BRK

CZKMSAQ KMS11-BD/BE DCLT
CIKMSA.P1Y
23-DEC-82 13:54
7148
7149

063112
063120

7151

063124

7150

7152
7153
7154

012737
00673
00000«

022006
067126

106457
000004
022006

7156

063136

000741

7158

063136

005037

011514

;}gg

063146

042737

000003

7157

7159

063132

063136

063142

005237

011512

063154

7165
7166
7167
7168
7169
7170
7171
7172
7173
7176
7175
7176

063154
063162

7179

063230

7182
7183

063230
063236

012737
022737

000377
000001

7185

063246

005037

010164

;};g

;}g?

7184

~.3166

108
:

BIC

SININT+OTINT,FLAG

‘CLEAR INTERRUPT IN.ICATORS

065622
000400

010230

#INITC,FLAG
PC,TOORIO

#177757,aSEL2

CLR
CLR
BICB

aSEL&
aSEL6
#RDYI,aBSEL2

JSR
BIT
8EQ

PC,TOORD
#INITC,FLAG
DVIN?

000752

DVINT

DVIN2:

063252

004737

065422

063256
063264

042777
15277/

177757
007142

7192
7193
7194

063300
063306
063314

113777
142777
022737

010164
000020
000001

0101664
010220

MOV
CMP

#377,TEMP
#1,MLTYP

CLR

TEMP

BNE

108 :

DVEMQ
ERR13

*ASSERT READ STATUS ENABLED

;SPECIFY WAITING FOR INITALIZATION
*REQUEST PERMISSION
P
TO SEND COMMAND TO KMS
;PERMISSTON GRANTED TO SEND COMMAND
;SPECIFY COMMAND PAIR 0,0
*NO PARAMETERS
: REQUIRED
*ASSCRT READY TO TRANSFER (OMMAND
:WAIT FOR INITIALZATION COMPLETION
:WAIT FOR RESPONSE
SIS INITIALIZATION COMPLETED ?
SYES. CONTINUE

SRETRY INITIALIZATION

:SPECIFY LOOP PARAMETER

10§

;ASSUME INTERNAL LOOPBACK NEGAIED
*1S INTERNAL LOOPBACK SPECIFIED
?

*ND. ASSUMPTION WAS CORRECT

SSPECIFY INTERNAL LOOPBACK ASSERTED

:GIVE oevxce INTERNAL LOOPBACK MODE SPECIFIER

JSR

PC,TOORIO

130112
130104

BIC
BISB

#177757,aSEL2
#142,3BSEL?

REQUEST PERMISSION TO SEND COMMAND
;PERMiSSTON GRANTED
;LLEAR ALL BUT RDYI
‘SPECIFY WRITE DATA TO DEVICE

130100
130062
010220

MOVB
BICB
CMP

TEMP,aBSEL6
#RDY],aBSEL?2
0 MLTYP

SSPECIFY DEVICE LOOPBACK MODE
:SPECIFY READY 10 TRANSFER COMMAND
‘1S INTERNAL LOOPBACK SPECIFIED

093272 012777 007726 130102

MOV

BEOQ

#xMLTYP,ASELGL

20$

‘SPECIFY DATA ADDRESS IN DEVICE

SYES. OMIT SPECIFYING MODEM (ONIROLLER ADDRE SS

;SPECIFY MODEM CONTROLLER (DM=11) (SR ADDRESS

;}3;
7199
7200
7201
7202
7203

ENRDST

(SERSOFT

;SPECIFY SYSTEM INITIALIZATION (COMMA
' PAIR 0,0)

BIC

004737
032737
0014M

-WORD

;NEGATE ''STATUS DATA VALID'

130202

063212
063216
063224

TRAP
WORD
.WORD

VSTAT

177757

130164

;RECORD ERROR

CLR

042777

;}gg 063322 001420

: INCREMENT ERROR NUMBER

;RETRY KMS STARTUP

BIS
JSR

001002

: TIME EXPIRED. PRINT ERROR MESSAGE
P LOG TIME OUT WAITING FOR RUN

DVINOO

INC

010230

SEQ 211

B8R

010230

7187
7188
7189
7190

7191

#DVEMO, TEMP2
PC,LOGED

ENUM = “D<ENUM+1>

000400
065422

130202
130202
000020

7186 063252

MOV
JSR

052737
006737

005077
005077
142777

063244

010170

DVINT:

063174
063200
063204

063226

23-DEC-82 14:01
PAGE 212
OVINIT = DEVICE INITIALIZATION

023460

7162

;‘gz

F3CY1Y 30A(1052)

ERRSOFT ENUM,DVEMO,ERR13’

063124
043126
063130

7155

(63324

004737

065622

063330
063336
063344

042777
152777
013777

177757
000007
013426

130040
130032
130030

JSR

PC,TOORIO

BIC
BISB
MOV

#177757,aSEL2
#7.3BSEL2
MODCSR,8SEL4

:REQUEST PERMISSION TO SEND TO F IRMWARE
:PERMISSTON GRANTED
:CLEAR ALL BUT RDY]
*SPEC Y COMMAND PAIR (0,7)

TSPECIFY DM11-BA (SR ADDRESS

6
CZkMSAOQ KMS11-BD/BE DCLT
CZKMSA. P11
23-DEC-82 13:5¢4
7204

063352

7207

063364

7210
7211

063364

004737

7212

7213
7274
7215

063370

042777

;%}9

063376
063404
063412

063416

142777

;582

;ggg

063356

005077

142777

130030

00002C

MACY11

30A(1052)

BI(8B

aSEL6

152777
012777
005377

JSR

PC,TOORIC

130060

BIC

#177757 ,85€EL2

000020

127752

8I(8

#ROY] ,3BSEL?

127772
127770

Bl
MGOv
MR

;552

7227

7228
7229
7230
7231
7232
7233
7234

;Sgg

065424

012737

177777

063432

004737

030402

063444

001516

063436

022737

063446

004737

063452

062777

063466
063472
063500
063506

005077
013737
013777
142777

063460

152777

000010

007642
007642

Mov

DVES1:

177757

127710
007636
010164
000020

CMP

BEQ

065422
000006

JSR

sSPECIFY COMMAND PAIP (0,6)
sSPECIFY BDL BASE ADDRESS
;CLEAR HIGH ADDRESS BITS (BITS 17:16)

ASSERT READY TO TRANSFER COMMAND

;GET ESTABLISHED LINE NUMBER
#-1,INDEX
sMAKE INDEX ==1.
DO FOLLOWING FOR _EACH LINE..
s INDEX==1 TO 8. LINE O FIRST, LINE 7 LAST

PC,GTVIND

:GET VALID INDEX

DVINEX

sIF

#8., INDEX

PC,TOORIO

127716

B1C

#177757 ,8SEL2

010164
127700
127662

CLR
MOv
MOV
BI(B

9SEL4
TRIBN, TEMP
TEMP ,3SEL6
#RDYI,aBSELZ

127710

BISB

:DONE ?

SO EXIT

(NEXT LINE NUMBER TO ESTAB.)

(RETURN TO CALLER)

;SPECIFY LINE NUMBER

JSR

;REQUEST PERMISSION TO TRANSFER COMMAND
:PERMISSION GRANTED

sCLEAR ALL EXCEPT RDY]

#4 ,3BSEL2

:SPECIFY COMMAND

(0,4)

sCLEAR SEL4
:COPY LINE NUMBER
LSPECIFY NUMBER OF LINES TO SCAN
sSPECIFY READY TO TRANSFER (OMMAND

sENABLE LINE
063514

004737

065422

063520
063526

042777
152777

177757
000040

063542
063546

005077
005077

127634
127634

063534

063552

113777

142777

007636

000020

DVEST:
127650
127642

127636

JSR

PC,TOORIO

8IC
8158

#177757 ,@SEL2
#40,9BSEL2

CLR
CLR

aSELS
aSEL6

MovB

127616

8l(8

;Szg

TRIBN,aBSEL3

;REQUEST PERMISSION TO SEND COMMAND
sPERMISSION_GRANTED
sCLEAR ALL EXCEPT RDY]
:SPECIFY COMMAND PAIR (1,0)

:SPECIFY LINE NUMBER
:CLEAR SEL4
:CLEAR SEL®6

IRDYI.GBSELZ

sASSERT READY TO TRANSFER COMMAND

¢SET DDCMP MODE

7250
7251

063560

004737

7253
7256
7255
7256
7257
7258
7259

063564

063572
063600
063606
063614
063622
063626
063632

042777

7252

sCLEAR ALL BUT RDYI

sSPECIFY ESTABLISHED LINE NUMBER

;ggg
7239
7240
7261
7242
7243
7264
7245
;Szg

;REQUEST PERMISSION TO SEND COMMAND
:PERMISSION GRANTED

#6,3BSEL2
#BDLBAS ,aSEL4
aSELS

;g}g
7220
7221
7222
7223
7224

sASSERT READY TO TRANSFER COMMAND

;SPECIFY BDL CASE ADDRESS

17?757

000006
013436
127770

sCLEAR SEL6

#RDYI,aBSEL2

20$:

0695422

SEQ 212

23 DEC-82
14:01
PAGE 213
ODVINIT
- DEVICE INITIALIZATION
(LR

130012

152777
113777
052737
042737
005077
005077
142777

065422

177757

000001
007636
001000
004000
127554
127554
000020

DVSET:

127604

127576
127572
010230
010230
127536

JSR

PC,TOORIO

BIC

#177757,85€EL2

B1SB
MOvB
BIS
81(C
CLR
(LR
gl(8

#1,3BSEL2
TRIBN,aBSEL3
#SETC,FLAG
#1XT0,FLAG
aSELS
aSELG
#RDYI ,3BSELZ

;REQUEST PERMISSION TO SEND COMMAND
;PERMISSTON GRANTED

;CLEAR ALL EXCEPT RDYI

;SPECIFY COMMAND PAIR (0,1)
;SPECIFY LINE NUMBER
;INDICATE WAITING FOR SET DD(MP MODE
sCLEAR TRANSMIT TIMEOUT SPECIFIER
<CLEAR SEL4
sCLEAR SEL6
sASSERT READY TO TRANSFER (OMMAND

(OMPLETION

063640
063644
06365¢

7265
7266
7267

063662
063664
063666

7264

063654

004737
032737
001405
032737
001336
000765

MACY11 30A(1052)

13:54

065622
001000

010230

004000

010230

108:

23'DE 82

14:01

DVINIT - DEVICE
MmO —

7260
7261
7262
7263

DOTD D
DZ—MeenN

fim

(ZxMSAQ kMS11-BD/B
CZKMSA. P11
23-DEC-

SEQ 213

PAGE 214

INITIALIZATION

Q0RO

SWAIT F gg
JHAS (0

D DCMP MODE COMPLETION
N MESSAGE OCCURRED ?

0,f
LFLAG
|

:D1D DE vl

MEOUT ON TRANSMIT ?

C.FLAG

15%:

<YES. CON
sNO.

Y TO COMPENSATE FOR THE
A (K MESSAGE RECEIVED.

7272
7273
7274
7275

063666
063674
063700
063702

01
00
00
00

1
4

010274

20%:

MOV
1ST

BNE
DVINEX: RTS

”
1

P4
P

MERS
S

R EQUEST TO START PROTOCOL

JYES. R El

KE 34

FIRMWARE'S FAILURE

JWAIT 1 SECOND
ISAIIMER EXPIRED
:RETURN TO CALLER

TO ACKNOWLEDGE

C2ZKMSAD XMS11-BD/BF DCLY

CIKMSA . PN

23-DEC-82 13:54

MACY11 30A(1052)

23-DEC-82

14: 01

UNSTAT = GET LINE STATU

7283

LSBTTL

7285
728%
7287

;53?

7284

7288
7289

N
:

7292

;ggg

7293

FUNCTIONAL DESCRIPTION:

LNSTAT = IF READ LINE STATUS IS ENABLED THIS SUBROUTINE REQUESTS
THE KMS TO REPORT THE VALUES OF THE FIRST EIGHT BYTES IN

THE LINE STATUS TABLE FOR THE ESTABLISHED LINE.

INPUTS:

ENRDST = READ STATUS ENAb_ED [F <> 0 / DISABLED If = 0
TRIBN = ESTABLISHED LINE NUMBER

: OUTPUTS:
:
IF

;%88

STAIUS REPOPT COMPLETED SUCCESSFULLY THEN
VSTA
- SET = 1 10 SHOW THAT STATUS DATA IS VALID

DEvs1 .DEVS4L = EIGHT BYTES CF LINE STAUS DATA FROM KMS

7301

7305
7306
7307

: CALLING SEQUENCE:
:
JSR
PC,LNSTAT
-

7302
;%82

7308

.
:

7309
7310

063704
063704

005737

011512

7312
731%
7314

063712

004737

065422

063716

052737

002000

7318

063746

142777

000020

7311

7315
7316
7717
7319

7320

7321
7322
7323

7326
7325

7326

7327
7328

7329

063710

063724
063732
0637640

001442

042777
152777
113777

177757
000140
007636

BIS

#STAT FLAG

127422

8l(B

#RDY] ,aBSELZ2

127444
127436
127432

032737
001372

002000

010230

002000
065622

010230

064010
064012

064016

032737

001372
005237

000207

002000

011514

ENRDST

010230

063760
063766

064002

REQUEST INPUT INTERRUPT. WAIT FOR INTERRUPT OR TIME Oul
WAIT FOR OUTPUT INTERRUPT QR TIMEOQUT

4L0%

065622

052737
004737

TOORJO
TOOR0O

BEQ

10%:

004737

063770
063776

SUBORDINATE ROUTINES USED:

LNSTAT:

063754

JSR

BIC
BISB
MovB

20%:

010230

SEQ 214

PAGE 215

UNSTAT - GET LINE STATUS

7296
7297

7298

30$%:
408%:

PC.,TOORIO

sREQUEST LINE STATYS
;1S READ STATUS ENABLED ?

:NO. OMIT READING STATUS

;REQUEST PERMISSION TO SEND (OMMAND
PERHISSION GRANTED
:SPECIFY WAITING FOR STATUS REPORT

0177757 8SEL2
#BIT6+BITS,aBSEL2
TRIBN,3BSEL 3

(LEAR ALL BUT RDY!
SSPECIFY REOUEST LINE STATUS (3,0)
.SPECIFV LINEN

JINDICATE READY ro TRANSFER COMMAND

;WAJT FOR STATUS TC BE RETURNED

JSR

PC.,TOORO

BIT
BNE

#STAT ,FLAG
20%

:MESSAGE RECEIVED
:DID A STATUS REPORT OCCUR ?
:NO.KEEP WA]JTING

B8I7

OSfAl fFLAG

;DID A STATUS REPORT GCCUR ?

BIS
JSR
BNE
INC

RTS

#STAT,FLAG
PC, TOORO
30%
VSTAT

:WAIT FOR MESSAGE FROM DEVICE
SPECIFY WAITING FOR STATUS REPORT
:WAIT FOR SECOND HALF OF STATUS REPORT
JNO. KEEP WAITING
sASSERT VALID STATUS DATA

:RE TURN

o
CZKMSAD KMS11-BD/BE DCLT
CZKMSA. P11
23-DEC-82 13:5¢4

MACY1?

30A(1052)

;gg?

.SBTTL

7332
7333

Jee
: FUNCTIONAL DESCRIPTION:

7336

7338
;gzg

;
:

;ggg

7337

HALT LINE SUBROUTINE

HLTTRB = THIS SUBROUTINE SHUTS DOWN THE ESTABLISHED LINE

INPUTS:

PARAM

TRIBLS
FLAG

- PARAMETERS.

:
:
:

7346
7347
7348
7349
7350
7351
7352
7353
7354

: CALLING SEQUENCE:
:
JSR
PC,HLTTRB
Je-

;ggg

064020
064026
064030
064036
064042

064044

032737
001006
012737
005737
001375

000u02

0%0224

000002
010274

010274

064044
0640%2
064056
064066

012737
004737
022737
001422

177777
030402
000010

064066

004737

065422

064072

042777

7368
7369
7370

064106
064114
066120

113777
005077
005077

7373

(164132

032737

7367

;g;}

7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384

HLTIRB:
HLTTR3:

OUTHDL

BIT
BNE
MOV
TST
8NE

;SHUTDOWN ACTIVE

7359
7360
7361
7362
7363
7364
7365
7366

064100

C64124

064140
066142
064150
064156
064160
064164
064172

007642
007642

LINE.

ONLY

MOV
JSR
CMP
BEQ

#-1, INDEX
PC.GTVIND
#8., INDEX
HLTREX

JSR

PC,TOORIO

THE

BIC

#177757.3SEL2

007635
127262
127262

127264

MOVB
CLR
CLR

TRIBN,QBSEL3
aSEL&
aSEL6

142777

000020

177244

000003

010230

000003
000200

010230
127220

142777
000207

#DATCKB,PARAM
HLTTR?
#2,TIMERS
TIMERS
HLTTR3

127276

000042

001411
042737
132777
001402
004737

HLTTR1:

HANDLES OUTPUT INTERRUPT DATA

177757

152777

127,70

BISB

34}

127204

#42,3BSEL2

:WAIT
1ST

#RDY],3BSEL?2

10%:

#RDY],aBSEL?
PC

BI(B
RTS

DAT(kB BIT

INTERRUFIS

INTERRUPT OR TIME OuUT

FOR TIMER

ESTABLISHED LINE

TIMER

TO BE

IS USED

;GET 1ST ESTABLISHED LINE NUMBER
: IS THERE AN ACTIVE LINE ?
NO. EXIT
specxrv SET DOWN LINE COMMAND PAIR
REQUEST PERMISSION TO SEND COMMAND TO F IRMWARE
PERMISSION GRANTED
:CLEAR ALL EXCEPT RDYI

#ININT+OTINT, FLAG

BEQ
BIC
BI18
BEQ
JSR

THE

:1F CHECK GO TO 2
JSET UP FOR 2 SEC

HLTREX: BIT

066040
000020

CHECKS

SUBORDINATE ROUTINES USED:
GTVIND = COPY VALID LINE NUMBER TO TRIBN
TOORIO
REQUEST INPUT INTERRUPT. WAIT FOR

HLTTR?:

;ggg

THIS ROUTINE

= ESTABLISHED LINE NUMBER
- BITS ININT AND OTINT [NDICATE

7361
7342
7343

;é:g

SEQ 215

23-DEC=-82
14:01
PAGE 216
HALT LINE SUBROUTINE

108
#ININT+OTINT,FLAG
#RDYO,aBSEL?
108
PC,0UTHDL

SSPECIFY conna~o (1,2) IN BITS 6:5,2:0
sSPECIFY LINE
N
;CLEAR SELG
:CLEAR SEL6

:INDICATE READY TO TRANSFER COMMAND

:HAVE ANY INTERRUPTS OCCURRED ?

:NO.
.ves. CLEAR INTERRUPT INDICATORS
;1S THERE A MESSAGE FROM THE KMS ?
:NO
SYES. COLLECT IT (IT WiLL BE THROWN
: AWAY SINCE CLNSET = =1)
: IGNORE RDYI
*RE TURN

CZKMSADO KMS11-BD/BE DCLY
CZKMSA P11
23-DEC-82 13:5¢4

MACY11

30A(1052)

PAGE 217
164:01
23-DEC-82
DEVICE QUEUE RECEIVE SPACE SUBROUTINE

DEVICE QUEUE RECEIVE SPACE SUBROUTINE

LSBTTL
*

FUNCTIONAL

DESCRIPTION:

DVRXQ - THIS SUBROUTINE QUES THE REC BUFFER SPACE TO THE
DEVICE, THEN CLEARS THE QRX BIT OF THE FLAG WORD.
INPUTS:

ADDRESS OFfF R X BUFFER SPACE
DVRXA
DVRCC
BYTE CHAR COUNT OF RX BUFFE R
QRX FLAG BIT = SET BY CALLING ROUTINE
TRIBN = LINE WHICH RECEIVE BUFF IS T 0O BE QUEUED FOR
QUTPUTS:
GRX FLAG BIT = CLEAR ED BY ROUTINE

SUBORDINATE ROUTINES USED:
CALLING SEQUENCE:
PC,DVRXQ
JSR

7439
7440

010230

064204

042737

000004

010230

DVRXG:

064230
066234

]

#ORX,FLAG

064270
064276
064304
064312
064316

177757

064330

162777

064336

000207

710
707
706

INC

BDLMNM

MOV

#BIT >, (R2)+

(LR

(R2)+

TRIBN,IDLMNM

sMULTIPLY BY 8
.
FOR OFFSET IN TABLE FOR THIS BDL MEMBER

(8 BYTES PER MEMBER [N TABLE)
*TABLE ADDRESS FOR RECEIVE BDL MEMBERS
:CALCULATE BDL MEMBER ADDRESS, SAVE AT BDLMAD
:SAVE THE CHANNEL NUMBER, BDL MEMBER NUMBER

:CALCULATE BDL MEMBER NUMBER (CHAN ¢ 1)
RANGE

DVRXA, (R2)+
DVRCC,(R2)+

IS NOW 1-8 FOR CHAN 0-=7

:LOAD BUFFER DESCRIPTOR LIS! MEMBER...

sSET STATUS WORD IN BDL MMBR BLOCK (RX QUEUED)
;DVRXA CONTAINS THE RECEIVE BUFFER ADDRESS
:DVRCC CONTAINS LENGTH OF THAT BUFFER

JSR

;CLEAR DDCMP MESSAGE NUMBER FIELD
:SPECIFY BDL MEMBER FOR RECEIVE BUFFER
PC,TOORIO
sREQUEST PERMISSION TO SEND (OMMAND TO f]RMWARE

BIC
B1SB

#177757,35EL2
#101, aBSEL?

sCLEAR ALL EXCEPT RDYI
.SPECI Y COMMAND PAIR (2.,1)

:BDL MEMBER NUMBER RANGE IS 1-8
JASSERT READY TQ TRANSFER (OMMAND

:PERMISSION GRANTED

013430

127060

MOVB
(LR
CLRB
MOVB

000020

127040

B8i(B

#RDY] ,aBSEL?

RIS

DVREX:

;CLEAR FLAG FOR RX QUEUED

RZ
#ARNDL R2
RZ2,BD: MAD

R2
R2

000101
007636
127064
127064

064322

065422

:1F NOT RX THEN EXIT
JELSE QUE RX

ASL
ADD
MOV

MOV
MOV

064264

JRX QUEUED

:GET CHANNEL NUMBER (WHICH IS MEMBER NUMBER)

MOV

064246
064252
064256
064262

DVREX

TRIBN,R?2

ASL
ASL

013430

066242

#QRX,FLAG

MOV

007636

064212
064216
064220
064222
064224

BIT

BEQ

7432
7433
7634
7435
74636
7437
7438

000004

—b ond

7621
7622
7423
7624
7425
7426
7427
7428
7429
74630
763

032737
001455

a9 1V1,8

7617
7418

064174
064174
064202

TRIBN 9BSEL3
aSEL&
aBSEL6
BDLMNM,aBSEL7

sSPECIFY LINE NUMBER
:CLEAR SEL4
sCLEAR BSEL6
sSPECIFY BDL MEMBER NUMBER

;RETURN TO CALLER

SEQ 216

L
CIxMSAQ kMS11=-BD/BE DCLT
CZKMSA. P
23-DEC-82 13:54

MACY11

7441
7642
7643

SEQ 217

218

TRANSMIT AND RECEIVE
DEVICE

TH]S

SUBKOUTINE

TRANSMIT AND RECEIVE

SUBROUTINE

CODE

QUEUES

THE

TRANSMIT

BUFFER

THE

DEVICE

(IF

RETRANSMIT REQUEST.

L:EIL%EE:U£§ RE STARTED AND THE DEVICE WILL CONTINUE

;
:
.

CODE

REPORTS A

A NAK RESPONSE GENERATES A RETRANSMIT
THE TRANSMIT BUFFER TO THE DEVICE AND
RETRANSMIT IS REQUESTED.

s INPUTS:
:

THE

TIME

QUT ERROR

NONE

OF THESE IS REPORTED BACK IN 60 ScCONDS. AFTER REPURTING ERROR,

:
:
:

.
.

NEEDED).

THE CODE THEN WAITS FOR A TX COMPLETE, AN RX COMPLETE OR A

*'DVIXA*"
*DVTICC''

“*QTX' BIT

REQUEST.
RESTARTS

TO WAIT FOR

THIS CODE REQUEUES
THE TIMER [Ff A

= ADDRESS GF TRANSMIT MSG.
= BYTE COUNT OF TRANSAIT MSG.
=

SET

TRANSMIT REQUESTED

CETX' BIT
= SEV IF TRANSMIT EXPECTED
“ERX'' BIT
= SET |F RECEIVE EXPECTED
“RXMIT*" BIT = SET If RETRANSMIT REQUESTED

;OUTPUTS:

7468
7469
7470
7671
7672
7473
7474
7475
7476

:
:
:

DVIXA'* = ADDRESS OF TX MSG. COMPLETED
"DVTCC'* = BYTE COUNT OF TX MSG. COMPLETED
arxt”
= SET If TX QUEUED

*DVRCC'* = BYTE ZOUNT OF RX MSG. COMPLETED

“DVRXA'’ = ADDRESS OF

*'QRX"’

= SEY

064340
064346
064350

000010

010230

000010

010230

064356
064362
064366
064370
064372
064374
064400
064404

064412
064420
064426

DVTXRX:

COMPLETED

iF RX QUEUED

SUBORDINATE ROUTINES USED:
CALLING SEQUENCE:

RX MSG.

TCORIO,

OQUTHDL

JSR PC,DVTXRX

@o@DD

7491
7492
7493
7494
7495
7496

DEVICE

PAGE

s FUNCTIONAL DESCRIPTION:
:
DVIXRX=DEVICE TRANSMIT AND RECEIVE ROUTINE.

7466
76467

7490

14:01

:0‘

7647
7448
7449
7450
7451
7652
745%
7454
7655
7456
7457
7458
7459
76460
7461
7462
7463
7464
7465

72477

23-DEC-82

.SBTTL

74644
7445
7446

7478
76479
7480
7481
7482
7483
7484
7485
7486
7487
7488
7489

30A(1052)

17
£EQ
IC

#QTX,FLAG

;1S

#OTXFLAG

STRANSMIT NOT

065422

JSR

PC,TOORIO

;REQUEST PERM]ISSION TO SEND COMMAND TO DEVICE

007636

MOV
ASL
ASL
ASL
ADD
MoV
MOV

:9'LINE-NUMBER=>R2

#TX8DL ,R2
R2,BDLMAD
TRIBN,BDLMNM

SADD THE XMIT BDL BASE ADDRESS
:BDL MEMBER ADDRESS->BDLMAD
:LINE NUMBER = Q-7

013430
013430

ADD
MOV
MOV

DVIRS

THERE

TRANSM;T

QUEUED-

*IF NOT GO WAIT FOR OUTPUT
QUEUED,

TRANSMIT

COMPLETE

SSPECIFY "'TRANSMIT MESSAGE'® (OMMAND

sPERMISSION GRANTED
;glen.nz
:ger THE DESIRED LINE NUMBER (0-7)

#9. ,BDLMNM

#BiT15, (R2)*
DVIXA,(R2)*

(0,8,16,24,32.40,48,56)

: RECEIVE

BDL MEMBER NUMBERS ARE 1-8

SCALCULATE

XMIT BDL MEMBER NUMBER => BDLMNM

TRANSMIT BDL MEMBER NUMBERS ARE 9-16

:SET STATUS WORD IN BDL MEMBER BLOCK
:BUFFER ADDRESS FOR XM]SSION

(ZKMSAQ kMS11-BD/BE D(CLT
CZKMSA. P11
23-DEC-82 13:34
7497

7698
7699

7500
7501

064430

0£4434
U644L36

0644464
064452

7502

06446G

7506
7505

064472
064500

7503

;289

064464

064506

013722

005022
062777

0100€6

s CHARACTER COUMT FOR XMISSION

BISB

#100,3BSEL2

;SPECIFY COMMAND PAIR (2,0) [N BITS 6:5,2:0

007636

126720

Move

126716

113777
142777

DVICC, (R2) ¢

126732

)05077

112777

MOV

177757

000100
000001

013430
000020

126724

124714

126710
126670

MOovB
BI(B

BDLMNM,aBSEL7
#RDYI ,aBSELZ
RXMIT

064506

005737

01364c

1ST
BEQ

(43}
7512

064514

004737

065422

JSR

7514
7515

0646526
064534

152777
013702

000100
007654

7517

064546

113777

010165

7513
7516
7518
7519
7520
7521
7522
7523

;g%g

7526
7528

7529

064512

064520

064540

001440

062777

014237

064552
064556
064562
064570
064576
064604

005077
014237
112737
013777
142777
010237

064614

012737

064610

064622

005337

177757

010164

1266264
010164
000001
010164
000020
007654

000674

064622
064626
064630
064634
064636
064642
064644
064650

005737
001327
005737
001053
005737
(001050
005737
001027

013642

7540
75641
7542
75643

064652

064660
064664
064672
064700

012737

022223

7544

7545
7546

7547

7548
7549
7550
7951
7592

064706
064712

064716

064716
064720
064722
064724
064726

005037
017737
017737
113737

005237

004737
000005

104457
000005
022223
023460
000667

126642

126626
126610
126572

TOINOT:

007646
007644
010274

010172
126502
126500
010175

010124

024226

10%:

010170
010174
010176
010173

:CLEAR UNUSED ESEL®

sSPECIFY NUMBEF OF MSGS T0 Tx=1

:SPECIFY BDL MEMBER NUMBER
; INDICATE READY TO TRANSFER COMMAND
s1S RETRANSMIT ASSERTED ?

108

:NO. GO SET TIMER.

;RETRANSMIT
PC,TOORIO
sREQUEST PERMI SION TO SEND DEVICE A CUMMAND

:CLEAR ALL EXC:PT RDYI BIT

MOV

-(R2) TEMP

;COPY SAVED SELZ

#100,3BSEL2
TSPTR,R2

TEMP+1,3BSEL3

CLR
MOv
Movs
MOV
8i(B
MOV

ISELS
=(R2),TEMP
#1,TEMP
TEMP,9SEL6
#RDY],aBSELZ
R2,TSPTR

MOV

#60.,1IMERS

DEC

010274

;SPECIFY LINE MO,

#177757,8SEL2

MOVB

010164

#1,3aBSELS

:CLEAR THE DDCMP MESSAGE NUMBER FIELD
;CLEAR ALL EXCEPT RDY]

8IC

8158
MOV

013642

7530
7531
7532
7533
7534
7535
7936
7537
7538

7539

126650

TRIBN,aBSEL3

aBSELS

7508

;2?8

(R2)¢+
#177757,aSEL2

CLR

MOVB
DVTR3:

SEQ 218

23-DEC-82
14:01
PAGE 219
DEVICE TRANSMIT AND RECEIVE SUBKOUTINE

(LR
BIC

152777

13777

MACY11 30A(1052)

RXMIY

;SPECIFY TRANS¥IT COMMAND
;POINT TO TX SAVE AREA

;SPECIFV LINE NUMBER

;CLEAP SEL4
;COP* SAVED SEL6
:SET NUMBER OF MSGS =
:SPECIFY BDL AND MSG NUMBERS
:SPECIFY READY TO TRANSFER COMMAND
;RESTORE TX SAVE AREA POINTER

SET TIMEDECREMENT RETRANSMIT COUNT

:SET TIMER FOR 60 SECS

!!!FOR DEBUG =30 :@:@!!

sCHECK FOR TX OR RX COMPLETION

15T
BNE
TST
BNE
1ST
BNE
TST
BNE

RXMIT
DVIR3
CRX
DVIRL
cTx
DVIRG
TIMERS
T0IM

MOV

#DVEM2, TEMP?

sSPECIFY ERROR MESSAGE

INC

ERRCNT

s INCREMENT ERROR COUNT

(LR
MOV
MOV
MOvVB

s IF RETRANSMIT ASSERTED
;G0 REQUEUE TX BUFFER
:1F RX COMPLETED
;GO PROCFSS COMPLET]ON
¢1F Tx COMPLETED
;GO PROCESS COMPLET!ION
;IS TIMER EXPIRED
:NO. GO CHECK INTERRUPTS
;TIME EXPIRED. REPORT ERROR

TEMP3
;SPECIFY ERROR CODE
SELO, TEMPL
sCOPY SELOQ
95EL2, TEMPS
:COPY SFL
TEMPG+1,TEMP3+1 ;COPY LINE NUMBER FROM TEMP4

JSR
PC,LGDVE
ENUM = ‘D<ENUH01>

:L0G TIME OUT
: INCREMENT ERROR NUMBER

ERRSOFT ENUM,DVEM2,ERR13’;REPORT TIME OUT ERROR

DVTIR3

sREPEAT TIMt CHECK

TRAP
MORD
.WORD
.MWORD

CSERSOFT
5
DVEM?
ERR13

(ZKMSAQ kMS11-BD/
(ZKM‘A P11
23-D
7553
7554

7555
7556

7557
7558
7559
7560

7561

7562
7563
7564
7565
7566

7567
7568
7569
7570

7571
;g;g

064730
064730

7597

7598
7599

000003

BIC

BEQ

TOINOT

064750

000200

0646756

BI8

#RDYOD,aBSEL?

:NO KEEP CHECKING
;MESSAGE FROM DEVICE
;60 PROCESS MESSAGE FROM DEVICE
;CHECK IF RX OR TX COMPLETED
;1S RETRANSMIT ASSERTED ?

066040

JSR

PC,OUTHDL

064764
064770

013662

RXMIT
DVIR3

065000

007646

1ST
BNE
1ST
BNE

(Tx
DVTR4LA

sYES. GO RETRANSMIT
s HAS A TX COMPLETED
sYES. GO PROCESS COMPLETION

BNE
BR

DVIRS
TOINOT

;YES. GO PROCESS COMPLETION
;NO. KEEP (HECKING

007654
007636
007636
(37636
010164

MOv
MOV
CLRB
SWAB
MOV

TSPTR,R?
=(R2),TRIBN
TRIBN
TRIBN
=(R2),TEMP

010164
007654
000200

SWAB
MOV
8IT7
BNE

TEMP
R2,TSPIR
ETX,FLAG
DVTR4B

#DVEMSL, TEMP?

064772
064776

007644

065004
065006

TST

065010
065014
065020
065024
065030

013702
014237
105037
000337
014237

065040
065044
065050
065056

000337
010237
032737
001025

105037

010164

065060

012737

022330

010170

MOV

065102

013737

010164

010174

MOV

065066
065074

065110
065114

065120
0651cu
065122
065124

065126
065130

0312737
113737

005237

0046737
000006

065152

005C23

7608

065156

MOV
Move

INC

013703

TEMP

#2,TEMP3
TRIBN, TEMP3+1

TEMP, TEMP4

ERRCNT

sHAS AN

RX COMPLETED ?

;TX COMPLETED

sPOINT TO TX SAVE AREA
sCOPY SAVED TX LINE NUMBER
:CLEAR LOW BYTE
;POSITION LINE NUMBER IN LOW BYTE
s COPY SAVED TXx BDL NUMBER
:ZUEAR LOW BYTE

;POSITION BDL NUMBER IN LOW BYTE
:RESTORE IX SAVE AREA POINTER
:YES. IS TX COMPLETION EXPECTED ?
*YES. GO PROCESS TRANSMIT COMPLETED
;UNEXPECTED TRANSMIT COMPLETION
;LOG UNEXPECTED TRANSMIT ERROR
;SPECIFY ERROR CODF
:RECORD LINE NUMBER
;RECORD BDL NUMBER FOR ERRIR

lNCREMENT ERROR COUNT

JSR
PC.LGDVE
LOG EVENT
ENUM = “D<ENUM+1>
lNCREMENT ERROR NUMBER
ERRSOFT ENUM,DVEM4 ,ERR22’
sREPORT ERROR (UNEXPECTED CTX)

UORD
.WORD

000423

005303

065140
065142
065144
065146

024226

010172
010173

023542

065136

7603
7606
7605
7606

010124

104457
000006
022330

7602

065132

000002
007636

CLRB

CRX

010164

UDVIR4B:

DVIRAC

MOV

TEMP,R3

DEC

(LR

(R3)e

006303
006303
006303
362703

013434

ASL
ASL
ASL
ADD

012337

C10064

moy

R3
R3
R3
#BDLBAS k3
(R3)e,DVTXA

C$BRK

;IS THERE A MESSAGt FROM THE DEVICE

064760

065132

7607

TRAP

064742

7600
7601

INTERRUPT

JALLOW CNTRL/C EXIT

#OTINT+ININT ,FLAG
sHAS AN INTERRUPT OCCURRED ?
TOINOT
:NO. KEEP (HICKING
s INTERRUPT OCCURRED
#OTINTSININT,FLAG
sCLEAR INTERRRUPT INDICATORS

065034

7591
7592
7593
7596
7595
7596

sCHECK FOR

BREAK
BIT
BEQ

7580

7590

SEQ 219

23-DEC=-82
14:01
E 220
DEVICE TRANSMIT AND RECEIVE SUBKOUTINE

000003

065010

7581
7582
7583
7984
7585
7586
7587
7588
7589

MACY1Y 30A(1052)

064732
064740

7574

7575
7576
7577
7578
7579

LY
13:54

.WORD

;THEN (LEAR COMPL.FLAG
INOTE: COUNT REDUCED AT DVTR4C

EXPECTED TRANSMIT COMPLE
TE
s COPY BDL NUMBER

(OHPUIE OFFSET
s
;

FOR
TH]S
MEMBER
;FORM BDL TABLE POINTER

:CLEAR BDL STA!US WORD

SUNLOAD TX MpSSAGE ADDRESS

CSERSOF
T
6
DVEM4

ERR2?

B
MACY11

(V.]
|

CZKMSAQ KMS1158

CIkMSA P11

30AC1052)

23-DEC-82

BIS

TRIBN,DVTTB

#QTX,FLAG

;UNLOAD TX MESSAGE CHAR COUNT
sSTORE LINE NUMBFR FOR LOGGING
:SET QUE-TRANSMIT FLAG BIT

DEC

CTX

;DECREMENT TX COUNT

CRX

sANY RECEIVES COMPLETED
:NO. GO RETURN

MOV

005337

OO0O0O0CO0O0O—0O00—-200
OW=-ONOO—-O0——

=2NNON=OO0O0OWVMNIOWVINWLN
ONNVNONIWONIWONN
ARIWWWO
O NIWWNINWIWNWNGOG
VN NNINISNSNNNNNNID

OO
OO0

—WU
NN
OW
NN

DVIRS:

B b
-

2%:

(R3)+,DVTCC

BEQ

DVIREX

MOV
MOV
CLRB
SWAB
MOV
CLRB
SWAB
CMP
BNE
MOV
MOV
BIT

RSPTRS,R2
(n2>o TEMP
TEMP
TEMP
<a2+ ,TRIBN
1R
rnxa
RZ2 ,#RXSKEN
28
FRXSTAK ,R2
R2,RSPTRS
NERX,FLAG

MOV
MOV
MOVB

xovens TEMP
#2,TEMP3
TRIBN,TEMP3 01

BNE

NN
SN

b
-

OID—=200
Qadaa

DOOO

DOOoO

VAW
N NSNSNN
W AN
N NNNN

010230

!cl'l

INC

DVIRSB

YEUD

ERRCNT

PC,LGDVE

POINT TO RECEIVE SAVE AREA
COPY SAVED BDL KUMBER

;CLEAR LO BYTE

POSITION BDL NUMBER IN LO BYTE

ED LéNE NUMBER
T

NE NUM IN LO BYTE

END OF RX €Al AREA ?

I NTER
P
0
R

7
EXPECTED ?
ETE

ROCESS RX COMP, ETED

N NANN O NN N NN N
WWWWWNIOO OOO0O
NN NN NN NN NN

OW
NN

007646

OO
OV

W= =2=2000000—
FOWNINWNIOONON
NN

[elelelelelelelolo
el

065420

010164

[=d=]

065346

DVIRSB:

DEC

ASL
ASL
ASL
ADD

013434
010104
010106
007636
000004

MOV

(LR

MCV

MOV
MOV

DVIRSC(:

BIS

DEC
DVIREX: RTS

DVTRSC

E COMPLETION

;

NEXPECTED RX CCMPLETION

:
]

ERROR CODE
INE NUMBER

P, TM
S IR

I‘V! [I*TH1Y

ENT ERROR COUNT
LOG EVENT
INCREMENT ERROR NUMBER

ERRSOFT ENUM,DVEMS,ERR22

sRECEIVE’ COMPLETED

?tflhl

ENUM = ‘D<ENUM¢1>

065344

SEa 220

PAGE 221

DEVICE TRAN SMIT AND RECEIVE SUBROUTINE

MOV
DVIR4(:

14:01

sREPORT ERROR

AND EXIT

TRAP

WORD
.WORD
.WORD

CSERSOFT

7
DVEMS
ERRZ?

JEXPECTED RX COMPLETED
;COPY BDL MEMBER NUMBER
COH?S;E OFFSET
THIS
MEMBER

POINT TO THIS MEMBER IN BDL AREA

:CLEAR BDL STATUS WZRD
;UNLOAD RX MESSAGE ADDRESS
:UNLOAD RX MESSAGE CHAR COUNT
SIORE LINE NUMBER FOR LOGGING
SET FLAG TO QUE ANOTHER RECEIVER

¢
(ZxkMSAQ xMS11-BD/BE DC LY
CZKMSA,. P11
23-DEC-82 13:54
7665

MACY1Y 30A(1052)

23-DEC-82 14:01
PAGE 222
DEVICE TRANSMIT AND RECEIVE SUBROUTINE

SEQ 221

CIKMSAQ xns11-eo/es DCLY
CZKMSA, P11
23-DEC-82 13:54

.SBTTL TOORIO

7668

see

7670

7669

7671
7672

REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE

FUNCTIONAL DESCRIPTION:

TOORIO = THIS SUBROUTINE REQUESTS AN INPUT INTERRUPT THEN

;
:

7673
7674
7675

WAITS FOR AN INTERRUPT OR A TIMEOUT.
IF AN OUTPUT INTERRUPT OCCURS OUUTHDL IS CALLED

:
:
:

7676
7677
7678

TO HANDLE THE OUTPUT DATA, AND THE REQUEST IS REISSUED.
IF AN INPUT INTERRUPT OCCURS CONTROL RETURNS TO THE CALLER.
1F A TIMEOUT OCCURS AN ERROR IS REPORTED AND THE REQUEST

:
;
:

INPUTS:

:
.

OQUTPUTS:

7686

SUBORDINATE ROUTINES USED:

;ggg

7690
7691

:
:

7679
7680
7681

:
:
:

7682
7683

;ggg

7687

1S REISSUED.

FLAG

LGDVE

010210
000021

125736

TOORIU: MOV
8]s8

7697

065434

152777

000200

125730

7700
7701
7702
7703
7704

065454

7705
7706
7707
7708

7709

065442
065450

012737
00737

U65456
065464
065472
065476
0655064
065512
065516

142777
012737
005037
012737
017737
005237
006737
000010

77210 065522
7711
7712

065522
065524

7716
7717

065534
065534

7713
7716
7715

7718

7719

7720

7721

065526
065530
065532

001027

010270

006200
022275
010172
125670
125666
010124
026226

125706
010170

010174
010176

TOOR]1:

06553

032737

001741

:SAVE ADDR. OF CALLING ROUTINE
:ENABLE INTERRUPTS

BISB

#RQ1,3BSELO

:ASSERT RQI

BNE

TOORI3

#2000, TIMERY
TIMER]

BI(B
#RQ],3BSELO
MOV
#OVEM3, TEMP2
CLR
TEMP3
MOV
aSELO, TEMP,
MOV
aSEL2, TEMPS
INC
ERRCNT
JSR
PC,LGDVE
ENUM = ~o<s~uno1>

<SET TIMER
215 TIME EXPIRED ?

:NO. CONTINUE
: TIME EXPlRED WAITING FOR RDYI
YES. NEGATE RQ]
‘REPORT TIME OUT WAITING FOR RDYI
:SPECIFY ERROR CODE

TOOR]3:

000003

010230

B8R

TOORI1

BEQ

sPRINT THE ERROR
;60 BACK AND TRY AGAIN

BRL AK

BIT

:COPY BSELO
:COPY BSELZ
- INCREMENT ERROR COUNT
110G THE DEVICE ERROR

:INCREMENT ERROR NUMBER

ERRSOFT ENUM,DVEM3,ERR13’

022275
023460
000740
104422

(SP) ,PCADD
#1E0'1E1,aBSELD

MOV
TOORI2: TST

104457
00001C

065534

065544

002000
010270

= LOG DEVICE ERROKS

CALLING SEQUENCE:
JSR
PC,TOORIO

011637
152777

7698
7699

= SET BY OUTPUT INT ROUTINE
= SET BY INPUT INT. ROUTINE
CLEARED BY THIS ROUTINTE.

OUTHDL = OUTPUT INTERRUPT HANDLER

0656422
065426
065434

= OTINT BIT
ININT BIT

ERRCNT = INCREMENTED IF A TIMEOUT OCCURS

7694
7695

7696

SEQ 222

MACY1Y 30A(1052)
23-DEC-82 14:01 PAGE 223
TOORIO REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE

;ggg

7e95

SALLOW CNTRL/C EXIT
:CHECK FOR AN INTERRUPT

#OTINT+ININT,FLAG

TOORI?2

TRAP
.WORD

.WORD
.WORD

CSERSOF1
8
DVEM3
ERR13

TRAP

($BRK

:HAS AN INTERRUPT OCCURRED ?

*NO, WAIT FOR ONE

E
CZKMSAOQ KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-82 13:54

SEQ 223

MACY1? 30A(1052)
23-DEC-82 14:01
PAGE 224
TOORIO REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE

7722

065546

042737

000003

010230

BIC

#OTINT+ININT,FLAG

vss CLEAR INTERRUPT OCCURED IND;CATORS

7724

065554

132777

000200

125614

BITB

#RDYO,aBSEL?

7723

7725

065562

001407

065564
065570

004737
132777

;;g? 065600

000715

7726

7727
7728

7729

065576

7732

065602

7735

065612

7733
7734
z;§9

7738
7739

001005

065602
065610

132777
001717

065620

000207

142777

066040
000920

BEG

125600

000020

125566

000200

125552

JSR
BIT8

PC,OUTHDL
#ROYI,aBSEL?

B8R

TOORI1

BNE

TOOR14:

TOORIS:

TOOR1S

BITB
BEQ

BICB

RTS

T00R14

SCHECK FOR
A MESSAGE FROM TH: FIRMWARE
sMESSAGE

(RDYD)

‘NO, LOOK FOR PERMISSION TO SEND
RECEIVED FROM FIRMWARE

READ MESSAGE FROM FRMWARE
‘1S PERMISSION TO SEND ASSERTFD ?

‘YES. NEGATE RQI AND RETURN

*NO. RESET TIMER AND WAIT

;CHECK FNR RESPONSE

TO ROI

WRDYI,aBSEL?
TOOR1?

21S IT OK TO SEND A MESSAGE TO FIRMWARE ?
'NO. GO CHECK TIMER

'RETURN TO CALLER

#RQI,3BSELO

‘NEGATE ROQI

(ZXMSAQD kMS11-BD/BE DCLT
CIKMSA. P11
23-DEC-82 13:54

23-DEC-82

30A(1(52)
TOORO

PAGE 225
14:01
WAIT FOR AN EXPECTED CONTROL MESSAGE

.SBTT,

TOORO

SEQ 224
FROM DEVICE

WAIT FOR AN EXPECTED ZONTROL MESSAGE FROM DEVICE

s 4

: TOORO

FUNCTICOMAL DESCRIPTION:
TOORO = THIS SUBROUTINE WAITS FOR AN QUTPUT INTERRUPT
A TIMEOQUT OR A CONTROL=-C TYPED BY THE OPERATOR.

IF AN OUTPUT

INTERRUPT QCCURS OQUTHDL

HANDLE THE INTERRUPT DATA,
If A TIMEQOUT OCCURS AN ERROR
AND Tut "IMER |S RESTARTED,

If CUNTR «=C
DR> PkuMPT,

IS CALLED TO

IS REPORTED AND LOGGED

IS TYPED THE PROGRAM FXITS TO THE

INPUTS:

FLAG - OTINT BIY - SE T BY QUTPUT INT ROUTINE
ININT BIT - SE T BY INPUT INTERRUPT ROUTINE
CL EARED BY THIS ROUTINE

SUBORDINATE ROUTINES USED:
LGDVE
= LOG DEVICE E RRORS
OUTHDL = OUTPUT [INTER RUPT HANDLER
CALLING SEOUEN(E
JSR
. TOORO

065622
065626

637
777

0102 10
000021

125536

012737

002000

065642
065646

005737
001055

010270

065650
065656

032737

000400

010230

022075

010170

001000

010230

022147

010170

010270

TOORO:

TOORO1:

1 7
1 7

OO
o

b
b
—

17
41

OO0

TOOROZ:

O O0MRON

OO~ =000

AND =S RIN) =d =d )
S OWNVNVOON
NIt PPt
O

AN AN NN NN
- N NNNNNN

065670
065676
065700
065706
065710
065710
065716
065724
065730
065736
065744
065750

000413

O NNINNO
NN

065660
065666

001404
012737

NORNVANLN
NI NN

65634
065634

[e]lolelelolelele]
OO
= b O = b
Q£ NN NN

7761
7742
77463
7744
77465
7746
1747
7748
7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
1762
7703
7764
7765
7766
7767
7768
7769
7770
7771
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781
7782
7783
7784
7785

MACYTY

MOV

#1EO¢1EI,aBSELO

Mov

#2000, TIMERY

TST
BNE

TOORO3

BIT

#INITC,FLAG

8tQ

MOV

BR
10$%:

20%:
30%:

(SP) ,PCADD

MOovB

BIT
BEQ

TIMER]

10$
#OVEMIA,TEMP?

30%

sSAVE ADDR. OF CALLING ROUTINE
:ENABLE INTERRUPTS
sSET TIMER
;SET

TIMER

sCHECK TIME
cTIME EXPIRED ?
:TIME

:NO. CONTINUE
EXPIRED

lS KMS INITIALIZATION REQUESTED ?
NO
SPECIFV ERROR MESSAGE

#SETC,FLAG

lg START PROTOCOL REQUESTED ?

MOV

#DVEMIB,TEMP?

;SPECIFY ERROR MESSAGE

MOV
MOV

SDVE
, TEMP2
MY
TEMP2,ERRMSG

CLR

MOV
MOV

INC
JSR

20%
30%

TEMP3
9SELOD, TEMPS
@SEL2, TEMPS

ERRCNT

PC,LGDVE

= ‘D<ENUH01>
ENUM

ERROR MESSAGE...
AGE

FOR ERROR REPORT

ERROR C(OUNT
UMBER

CIKMSAQ KMS11-BD/BE DCLT
CIKMSA.P11
23-DEC-B2 13:56

7797

065754

012737

000011

013706

MOV

#ENUM,ERRNBR

;RECORD ERROR NUMBER

7799

065770

012737

023460

013712

MOV

#ERR13,ERRBLK

SSPECIFY ERROR HANDLER

7798
7800

7801
;ggg
7804

7805
7806
7807
7808
7809
7810
7811

065762

065776

065776
066000

012737

013704

104460
000715

MOV

ERROR

066002
066002
066006
066012

032737
001713

000003

010230

BIT
BEQ

066014
066022

042737
132777

000003
000260

010230
125346

BIC
BITE

1046422

7812 066030 001704

7813
7814
7815

000003

066032
066036

004737
000207

TOOR0O3: BREAK

066040

SEQ 225

MACY11 30A(1052)
23-DEC-82 14:01
PAGE 226
TOORO
WAIT FOR AN EXPECTED CONTROL MESSAGE FKOM DEVICE

BEQ

JSR
RTS

#1 ESET,ERRTYP
T00RO1

‘SPECIFY ERROR TYPE
*REPORT ERROR

TRAP
;REPEAT WAIT FOR NTERRUPT

:CHECK FOR INTERRUPT

(SERROR

SPERMIT CONTROL=~C &XIT WHILE WAITING
TRAP
($BRK
SININT!OTINT,FLAG
:HAS INTERRUPT OCCURRED ?
TOORO2
‘NO. KEEP WAITING
: INTERRUPT 0CCURRED
SININT!OTINT,FLAG
:CLEAR INTERRUPT INDICATOR
#RDYO,3BSEL?
‘IS THERE A MESSAGE FROM THE DEVICE ?

TOOR0O?

PC,OUTHDL
P(

‘NO. KEEP WAITING

:MESSAGE FROM DEVICE
:PROCESS MESSAGE FROM DEVICE
‘RETURN TO CALLER

(ZXMSAQ xMS11-BD/BE DCLT

CZKMSA P

23-DEC-82 13:564

MACY1Y

30A(1052)

227

SEQ Q 226

23-DEC-82
14:01
PAGE
OUTPUT INTERRUPT HANDLER

OUTPUT INTERRUPT HANDLER

LSBTTL
:00

: FUNCTIONAL DESCRIPTION:
OUTHDL - OUTPUT INTERRUPT HANDLER
:
:
:

THIS ROUTINE IS CALLED WHEN AN INIERRUPI HAS OCCURRED
WITH ROYO ASSERTED (BSEL2.BIT7
=

COPY SEL2,SELG,SELG
CLEAR RDYO TO SAY MESSAGE TRANSFER COMPLETED

:
;

P USE OF FLAGS:
:

“INITC'' = SET BY DVINIT IF WAITING FOR COMPLET;ON

OF SYSTEM INITIALIZATI

CLEARED BY THIS ROUTINE IF COMMAND PAIR 0,0

;

;
:
;

IS RETURNED BY FIRMWARE
< SET IF TRANSMIT COMLETED
= SET IF RECEIVE COMPLETED

et
“CRX'*

SUBORDINATE ROUTINES USED:

“'LGDVE'* =-LOG DEVI CE ERRORS TO EVENT LOG
CALLING SEQUENCE
JSR

067170

066070

162777

125300

066076
066102

005737
001030
NNNNONOL
N
OO0000O0O
WNONOMND W

WD
WO
NW

b b
—t

=
SO

OO0O0O00O0O

066126
066130

067172
067174
067176

MNOOOW

[e]lelela)

SNNNN
NNNN
NN NN
NNNN

066040
066040
066046
066054
066062

OUTHDL:

MoV
[0}

aSELO,SVSELO
aSEL2,SVSELZ

8I(8

#RDYO,aBSELZ

1S7

CLNSET

MOV
MOV

@SELS,SVSELG
aSEL6,SVSELG

BNE

OQUTEND

MOV
MOV
ASR
ASR

SVSELZ,R2
R2,R3
R
R2

BIS

R2,R3

BIC
8I(
067166

PC,OUTHDL

MOV

#~(<30>,R2
#4(<7>,R3
R3,CMDSUB

066134
066140

022703

000037

(MP
BHIS

#37,K3
108

066142

013703

066266

MOV

ADRINV,R3

103003

:COPY FIRMWARE MESSAGE PEGISTERS

:COPY SELO
:COPY SEL?

;COPY SEL4
;COPY SEL6

;ASSERT MESSAGE TRANSFER COMPLETED
:CLEAR RDYO
;CHECK FOR CLEANUP MODE

o 1F CLEANUP MODE ENTERED (CLNSET - -1
:

THEN RETURN

; ISOLATE COMMAND PAIR

:COPY SAVED SEL?

:COFY AGAIN

SSHIFY COHHAND FROM BITS 5-6

70 BITS 3-4

:ISOLATE COMMAND IN R2 BITS 4:3
:ISOLATE SUBCOMMAND [N R3 BITS 2:0

COMPUTE* COMMAND PROCESSOR ADDRESS
; COMBINE COMMAND, SUBCOMMAND
:SAVE COMMAND, SUBCOMMAND PAIR

; CHECK (OHHAND PAIR IN VAILD RANGE (37:0)

;1S COMMAND PAIR WITHIN VALID RANGE ?

$YES, GO GET 8 gCESSOR ADDRESS
(OHMAND OUYSIDE VALI
NGE

. GET OFFSET 3 FOR INVALID COMMAND PROCESSOR

I
CZXMSAQ kMS11-8D/BE DCLT
CZKMSA. P
23-DEC-82 13:5¢4
C66146

000403

066150
066152
066156

006303
016303
062703

066162
066164

004713
000207

10$:

20%:

20%

ASL
MOV
ADD

JSR

PC,(R3)

OUTENL.: RTS

OCOOOONOON
—

+WORD
.WOPD
+WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
+WORD
.WORD
+WORD
+WORD
+WORD
.WORD

-WORD
.WORD
-WORD
+WORD
.WORD

066266

000660
000704
000102
000102
000102
000102

ADRINV:

SEQ 227

23-DEC-82
14:01
PAGE 228
OUTPUT INTERRUPT HANDLCR

30A(1052)

:
(MDTBL

066166
066166
066170
066172
066174
066176
066200
066202
066204

066166
066106

MACY1Y

.WORD
-WORD
.WORD
+WORD
.WORD
.WORD
-WORD
.WORD

(MDTBL (R3) ,R3
#(MDTBL ,R3
PC

.60 DO PROCESS
sCOMMAND WITHIN VALID RANGE
sMULTIPLY COMMAND PAIR BY 2

:GET OFFSEY TO COMMAND ACTION ROUTINE
:ADD IN BASE ADDRESS

;PROCESS COMMAND

;EXECUTE COMMAND ACTION ROUTINE
:RETURN

.BASE ADDRESS FOR ACCESS! NG COMMAND ACTION ROUTINES
ABLE OfF COMMAND PROCESS OR ADDRESS OFFSETS

J
CZxMSAO kMS11-BD/BE DCLT
CIKMSA.PY®
23-DEC-82 13:54

;g}g

MACYTY

.SBTTL

ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES
:THE

066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066270
066274

005237
000207

013634

SEQ 228

30A(1052)
23-DEC-82
14:01
PAGE 229
ACTION RCUTINES FOR KMS RESPONSES AND MESSAGES

7920

91
7922
7923
7924
71925
7926
7927
7928
7929
7930
7931
7932
7933
7934
7935
7936
7937
7938
7939
7940
7941
7942

(0s2:
C0S3:
€0s5:
C0S6:
€0S7:
€150:
€1s1:
€182:
C156:
(252:
(253:
(254:
€255:
€256:
(257:
€355:
C3s6:
(357:
INVCMD :

INC
RTS

FOLLOWING RESPONSES ARE

CONSIDERED TO BE

ILLEGAL

: IN THIS PROGRAM
JACTIVITY TERMINATED ON LINE (NOT USED IN THIS PROGRAM)
+RESERVED
+RESERVED
sRESERVED
sRESERVED
sRESERVED
sRESERVED
sRESERVED
: 700 MANY RECEIVE BUFFERS FOR LINE.MAX OF 2 PER LINE
+RESERVED
+RESERVED
+RESERVED
sRESERVED
+RESERVED
¢RESERVED
sRESERVED
sRESERVED
;DEBUG
:COMMAND NOT WITHIN VALID RANGE
ILLRSP
¢COUNT ILLEGAL KMS RESPCNSES
PC
sRETURN

CZxMSAO XMS11-BD/BE DCLY
CIKMSA. P11
3-DEC=-82 13:5¢4
7944

7945

;gz;

066304

042737

000400

010230

7948
7949
;gg?

066306
066306
066314

032737

001000

010230

066316
066322

105237
012737

013636
022465

066336

004737
000012

067146

7952
7953

7954

7955

7956
7957
7958

7959
7960
7961
7962
7963

066330
066342

012737

000004

104457
000012
022465
023512
042737

001000

066362

005237

007644

7970
7971
7972

066372
066376
066402

013722
013722
010237

067176
067172
007654

7975

066410

7977

066414

105237

013640

7964

7965
7966

066342
066344
066346
066350
066352

001016

066360

7967

066362

7969

066366

7968

;8;2
7976

066406

066410

000207

013702

000207

SEQ 2¢9

MACY11 30A(1052)
23=DEC-82 14:01 PAGE 230
ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES

066276

000207

(€0SO:

€0s1:

010230

#INITC,FLAG

BIT

#SETC,FLAG

INCB
MOV

START(
#DVEM11,TEMP?

RTS

BNE

010170

010172

BIC

MOV

lNITlALlZATION COMPLETED(0,0)

;ASSER T INITIALIZATION COMPLETED

10%

8, TEHPS

sRETURN

.SET/RESET DDCMP MODE COMPLETED (0,1)
;1S SET DDCMP ENPECTED ?
:YES.
JUNEXPECTED RESTART DDCMP
:COUNT UNEXPECTED DDCMP RESTARTS

SSPECIFY ERROR MESSAGE

JSR
PC,LOGE
ENUM = ‘o<€~uno1>
ERRSOFT ENUM,DVEM11,ERR14

10$:

C0S4:

007654

BIC
RTS

#SETC,FLAG
PC

INC

CTX

MOV
MOV
MOV

SVSELG,(R2)+
SVSELZ,(R2)+
R2,TSPIR

INCB

ERRTHR

MOV

RTS

€1s3:

RIS

TSPTR,R2

:SPECIFY ERROR CODE

.LOG ERROR
: INCREMENT ERROR NUMBER
*REPORT ERROR

TRAP
.WORD
.WORD
.MWORD
;ASSERT SET/RESET COMPLETED
;RETURN

; TRANSMIT COMPLETE

:INCREMENT TX COMPLETE COUNT
SCOPY POINTER

COPV SAVED SEL6
COPV SAVED SEL?
*SAVE UPDATED POINTER

-REIURN

;ERROR THRESHOLD REA(CHED

:COUNT ERROR THRESHOLD MESSAGES
*RETURN

CSERSOFT
10
DVEM11
ERR14

L
(ZKMSAO xns11-ao/
BE DCLT
CIKMSA.P
23-DEC-82 13:54

MACY1?

;€154 TX TIMEOUT OCCURRED... TX CANNOT CONTINUE ON LINE
;POSSIBLE CAUSES : 1. LINE UNPLUGGED FROM MODEM
2. XMIT BUF LENGTH
= 0
:CONDITION UILL BE CLEARED BY
:1. RECEPTION OF ANY MESSAGE (ACK.
NAK, START,

;ggg
7987

066416

7992

066442

7993

7994

SEQ 230

30A(1052)
23-DEC-82
14:01
PAGE 231
ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES

7980
7981
7982
7983
7984

7988
7989
7990
7991

C1564:

2. 1SSUING DDCMP RESTAXT (INPUT 0,1) FOR THIS LINE
;TX TIME our ON LINE

066416
066424
066432
066434

012737
032737
001406
052737

022514
001000

010170
010230

004000

010230

066450

013737

010170

013710

10%:

010174
010176

MOV
SVSEL4, TEMP4
MOV
SVSEL6
. TEMPS
JSR
PC,LOGE
MOV
’". esrt ERRTYP
ENUM = “D<ENUM+1>

066656

7995
7996
7997
7998
7999

066464
066472
066500
066504

8001

066520

8000

066512

8002
8003
8004

066526
066526
066530

012737

022563

000006

013737
013737
004737
012737
000013

067174
067176
067146
000003

012737

023700

012737
104460
000207

000013

010170

010172
013704

013706

013712

STACK,

MOV
BIT
BEQ
BIS

#OVEMIG,TEM®?
#SETC,FLAG
108
#TX10,FLAG

SPECIFY TIME OUT ERROR MESSAGE
*1S PROTOCOL START REQUESTED ?
*NO
*RECORD TRANSMIT TIMEOUT

MOV

TEMP2,ER"MSG

*SPECIFY MESSAGE FOR ERROR REPORT

MOV

SovH1iR, "EMP2

MOV

#6,TEMP3

MOV

#ENUM, ERRNBR

MOV

ERROR

RTS

*ERR25. ERRBLK

DATA)

*SPECIFY PROTOCOL START ERROR MESSAGE

SSPECIFY ERROR CODE

1COPY SAVED SEL&
:COPY SAVED SEL6
:L0G ERROR
SSPECIFY ERROR TYPE
- INCREMENT ERROR NUMBER

SSPECIFY ERROR NUMBER

SSPECIFY ERROR HANDLER
*REPORT ERROR
:RETURN

TRAP

(SERROR

CIXMSAC kMS11-BD/BE DCLT
CZKMSA . P11
23-DEC-82 13:54
8005
3889
8008

066532

012737

8011
8012
8013
8014
8015
8016
8017
8018
8019
8020

066546
066550
066556
066560
066562
066564
066572

005002
123762
001402
005722
100372
016237
004737
000014

8021
8022
8023
8024
8025
802¢
8027
8028
8029
8030

066540

0€6576
066576
066600

066602
066604

1 4457
(.J014
022631
023644

066606
066612

013702
013722

066632

000207

066616
066622
066626

8033
8034

066634
066634

8036
8037
8038
8039
8040

066650
066656
066662

8035

8041
8042
8043
8044
8045

012737

066642

066666
066666

066670
066672
066674

066676

013722
010237
005237

012737

013737
0C0337
006737
000015

104457
000015
022705
023542

000507

022631

010170

067176

013644

013664
067146

010174

000005

010172

MOV

010174

010172

€1s7:

TSPTR,R2
SVSELG, (R2)+

MoV
MOV
INC

SVSELZ,(R2)+
R2,TSPTR
RXMIT

MOv

#DVEM17 TEMP?

RTS

067176
010174
067146

5, TEMPS

CLR
R2
(MPB
SVSEL6,NAKX (R2)
BEQ
20%
TST
(R2)+
BPL
10%
20%:
MOV
NAKMSG(R2) , TEMP4
JSR
PC,LOGE
ENUM = “D<ENUM+1>
ERRSOFT ENUM,DVEM15,ERR24

MOV
MoV

010170

;GET NAK REASON MESSAGE

#DVEMI5 TEMP2

10%:

067172
007654
013642

000002

;MSG NAKED (1,5)

MOV

007654
(67176

022795

SEQ 231

30A(1052)
23-DE(-B2
14:01
PAGE 232
ACTION ROUTIRES FOR KMS RESPONSES AND MESSAGES
C1S5:

8009

8010

MACY1Y

MoV

Exout

.WORD
.WORD
.WORD

12
DVEMI1S
ERRZ24

:COPY SAVED SEL6
: COPY SAVED SEL?Z
:SAVE UPDATED POINTER
;SPECIFY RETRANSMIT
;RETURN

sTRA*SMIT REJECTED BEFORE COMPLETION
sSPECIFY ERROR MESSAGE

Mov
SVSEL6,TEMPG
SWAB
TEMPL
JSR
PC,LOGE!
ENUM = “D<ENUM+1>
ERRSOFT ENUM,DVEM17 ,ERR2Z

GOXOUT: BR

sCLEAR NAK REASON INDEX
:IS THIS THE NAK REASON ?
; YES.
;IS THIS THE END OF THE NAK REASON LIST. ?
;NO. TRY NEXT NAK REASON
sSPECIFY NAK REASON MESSAGE
:LOG ERROR
s INCREMENT ERROR NUMBER
:REPORT ERROR
TRAP
CSERSOFT

;SPECIFY RETRANSMIT
;POINT TO TX SAVE AREA

#2,TEMPS

sSPECIFY ERROR MESSAGE

sSPECIFY ERROR CODE

:SPECIFY ERROR (ODE

:COPY SAVED BDL AND MSG NUMBERS
;PUT BDL NUMBER IN BYTEOQ
:LOG _ERROR
s INCREMENT ERROR NUMBER
sREPORT ERRC%

; GOTO CLEANUP EXIT

TRAP
.WORD
.WORD
.WORD

CSERSOFT
13
DVEM17
ERRZ?

(ZxMSAQ KMS11 BD/BE DCLT

CIZKMSA
. P11
8047

23-DEC-B2 13:54

MACY11 30A(1052)

066700
066700
0667C4
066710
066714
06670
066724
066726
066732
066736

005237
013702
013722
013722
022702
001002
012702
010237
000207

007646
007652
067176
067172
010046

8059
8060

066740
066740

005237

010116

8063

066746

(05037
113737
013737
013737
042737
000207

011510
067173
067174
067176
002000

011510
011500
011502
010230

067004
067012

013737
013737

067174
067176

011504
011506

067026

000297

8064
8065
8066
8067
8068
3898

066744

066746
066752
066760
066766
066774
067002

8071

067004

8074

067020

8072
8073
8075

000207

042737

(250:
10%:

007672
007652

002000

14:01

ACTION RCUTINES FOR KMS RESPONSES AND MESSAGES

8048
8049
8050
8051
8052
8053
8054
8055
8056
gggg

282}

23-DEC-82

SEQ 232

20%:

(2s1:

INC
MOV
MOV
MOV
CMP
BNE
MOV
MoV
RTS

CRX
RSPTRE ,R2
SVSEL6, (R2) ¢
SVSELZ, (R2) ¢
#RXSKEN,R2
20%
#RXSTAK ,R?
R2,RSPTRE
PC

sMSG RCVD (2,0)
; INCREMENT RX COMPLETED COUNT
sPOINT TO RX SAVE AREA ENTRY
;COPY SAVED SEL6 TO SAVE AREA
;COPY _SAVED SEL2 TO SAVE AREA
;1S R2 POINTING TO THE END OF AREA ?
sNO. KEEP POINTER
sYES. RESET POINTER
:SAVE POINTER
sRETURN

INC

OPVAR

;REQUEST BUFFER FOR MESSAGE RECEPTION (2,1)
; INCREMENT NO BUFF COUNTER

CLR
MOVB
MOV
MOV
8IC
RTS

LINEST
SVSEL2+1,LINEST
SVSEL4,DEVS]
SVSEL6,DEVS2
#STAT,FLAG
PC

MoV
MOV

SVSEL4,DEVS3
SVSEL6,DEVSS

RTS
(350:

010230

(3s1:

BIC

#STAT ,FLAG

:RETURN

;STATUS REPORT. LST BYTES 0..3

;CLEAR STATUS DATA LINE NUMBER
:COPY SAVED SEL2+1
;COPY SAVED SEL4
:COPY SAVED SEL6
sINDICATE STATUS REPORT OCCURRRED
sRETURN

;STATUS REPORT, LST BYTES 4..7
:COPY SAVED SEL&
:COPY SAVED SEL6

;INDICATE STATUS REPORT (OMPLETED

:RETURN

CZKMSAD KMS11-BD/BE OCLT
CIKMSA.P11
3-DEC-82 13:54
8076

067030

8078

067036

013737

067176

8081
8082

0670646
067046

012737

022766

8077 067030 013737 067174

gggg

8083

8084
8085

8086
8087
8088
8089
3839

067044

067054

067060
067060
067062

067066
067066
067070

8092

067072

8094

067100

8093

8095
8096

8097
8098
8099

8100
8101

067072

067104

067104
067106
067110

067112

067114

000207

004737

000016

067126

004737

000017

106457
000017
023030
023460
000207

023030

067126

SEQ 233

MACY11 30A(1052)
23-DEC-B2 14:01
PAGE 234
ACTION RCUTINES FOR KMS RESPONSES AND MESSAGES

067200

€352:

067202

010170

SVSEL&L,K

RTS

nov

#DVEM33, TEMP2

MOV

€393:

xnc DATA MEMORY CONTENTS

MOV

:SAVE DEVICE RAM ADDRESS

SVSEL6.KDATA

SAVE DEVICE RAM CONTENTS (ONE BYTE)
KMS TIME QUT. WAITING FOR RDYI = 0
POINT TO RDYI TIMEOUT MESSAGE

PC,LOGED

ENUM - ~o<s~uno1>
ERRSOFT ENUM,DVEM33 ERR13

104457
000216
022766
023460
000207
012737

(34

010'7v

RTS

MOV

MOVEM3L, TENP?

JSR

PC.LOGT O

*INCREMENT ERROR NUMBER
REPORY ERROR

;RETURN

TRAP
LWORD
"WORD
"WORD

(SERSOFT
14
DVEM33
ERR13

:KMS TIME OUT. WAITING FOR RDYO = 0

ENUM = “D<ENUM+1>
ERRSCFT ENUM,DVEM34 ,ERR1S

RTS

1L0G ERROR

JSPECIFY ERROR MESSAGE

100G ERROR

;INCREMENT ERROR NUMBER
JREPORT ERROR

“RETHRN

TRAP
LMORD
"WORD

.WORD

CSERSOFT
15
DVEM3é

ERR13

CIXMSAQ xkMS11=-BD/BE DCL?Y
(ZKMSA.PN
23-DEC-82 13:54

MACY11 30A(1052) 23-DEC-82 14:01 PAGE 235
ERROR ROUTINES USED WITH KMS (SR QUTPUT ACTION ROUTINES

g}gz
8107

.SBTTL

8108

067116

067116
067122

004737
000137

)
066020
054512

EXOUT:

8112
8113
B114

067126
067132

005037
013737

010172
067170

LOGEO:

8116
8117
8118
8119

067146
067154
067160
067164

113737
005237
004737
000207

067173
010124
024226

8109
g}}?

8115

8120
8121
8122

8123
8124
8125
8126
8127
8128
8129
g}g?
8132

067140

067166
067170
067172
067174
067176
067200
067202

013737

(00000
000000
002020
9200000
(000000
000000
000000

067172

010174

010176
010173

LOGE1:

(MDSUB:
SVSELQ:
SVSELZ2:
SVSEL4:
SVSEL6:
KADR:
KDATA:

ERROR ROUTINES USED W!TH KxMS (SR OUTPUT ACTION ROUTINES

JSR
JMP

PC,HLTTRB
GTRAS

CLR
MOV

TEHPS
SVSELO, TEMPS

MOvB
INC
JSR
RTS

SVSEL201.TEHP301
ERRCNT
PC.LGDVE
PC

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

0
0
O
0
0
O
O

MoV

SVSELZ, TEMPS

: HALT LINE
: GOTO DCLT PROMPT
:LJG DEVICE ERROR
:SPECIFY ERROR (OOt
;COPY SAVED SELO

:COPY SAVED SELZ

:COPY SAVED LINE NUMBER
;INCREMENT ERROR COUNT
:LOG DEVICE ERROR
:RETURN

:DATA SAVED FROM F]RMWARE TO HOST MESSAGES
;SAVED COMMAND, SUBCOMMAND PAIR
:SAVED COPY OF SELO
:SAVED COPY OF SEL?
:SAVED COPY OF SEL&
;SAVED COPY OF SEL6
;SAVED CEVICE RAM ADDRESS
:SAVED DEVICE RAM DATA (ONE BYTE)

SEQ 234

0
C2¥MSAQ xMS11-BD/BE DCLT
(ZKMSA. P11
23-DE(=-82 13:54

LSBTTL
067204
067204
067204

8141

(067212

8142
g%zz

087212
067212

8145
g}zg

067214
067214

8148
8149
8150
8151

067214
067222
067222
067222

8152
8153
8154

052737

000001

019230

DEVICE INTERRUPT SERVICE ROUTINES
BGNSRV

DVINS

BIS

NININT,FLAG

ENDSRV

000002

010230

DVINS::

L10073:

000002

052737

SEQ 235

MACY11 30A(1052)
23-DEC=-8B2
14:01
PAGE 236
ERROR ROUTINES USED WITH kMS (SR OUTPUT ACTION ROUTINES

8133
g}%g
B136
8137
8138
g}zg

BGNSRV

DVOUTS

BIS
ENDSRYV

#OTINT ,FLAG

RTI

DVOUTS::

:0UTPUT INTERRUPT OCCURRED INDICATOR

L10024:

RTI

(I7xM3AD KMS\\-BD/BE
d ey
o

s o

ed e

00 0D 00 (0 00 00[o ]

[0 Yo X0 lValValVal wn
- OV~ [V,

(IKMSA, P

0672264

E
D(C L!

23-DE(-B2 13:54

067224
067226 1044CH

MACY1Y 30£¢1052)

23-DEC-B2

14:0'

SEQ

PAGE 237

DEVICE INTERRUPT SERVICE ROUTINES

ENDTST

L10022:

TRAP

(SETST

236

F
(ZXMSAQ kMS11-BD/BE

CIxMSA . P11
8162
8163

23-DE(

-gSLIS:SG

MACY1Y

‘

30A(1052)

ave

23-DEC-82

14:01

PAGE 238

DEVICE INTERRUPT SERVICE ROUTINES

SEQ 237

6
C(IKMSA 0 xmS11-BD/BE D¢ L}
CIKMSA, P
23-DEC-82
3:54

MACY1Y

SEQ 238

30A(1052)
23-DEC-82 14:01
PAGE 239
HARDWARE PARAMETER CODING SECTION
JSBTTL

HARDWARE

PARAMETER

CODING

SECTION

VoY eXVoXVe VoL o R¥e o to -Jo - To -Jo Yo Jo Yo -To Yo -Jo - ENENE NEVENLNENE NENENT, Jo Yo [
NOWVMB W20V
NOWVNE WA =O VN
VS WA =0OYD N [og

[« Jo -Jo Yo Yo Jo To Yo Jo To To Yo Yo Yo To Yo Lo To To Yo Yo To To To To Yo Yo Yo To Yo To lo.]

MK
X J

THE

HARDWARE

PARAMETER CODING SECTION CONTAINS MACROS

D i

THAT ARE USED BY THE SUPERVISOR TO BUILD P=-TABLES.
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

MACROS

ALLOW

SUPERVISOR

OPERATOR.

1O ESTABLISH

THE

COMMUNICATIONS

067226
067226
067230

BGNMRD

000023

::
LSHARD

.SBTTL

067230
067230
067232

DEVICE

INDEPENDENT

SECTION

DISPLAY DPLX

000003
067433

.WORD L10025-L$SHARD/?

.WORD

T$(CODE

DPLX

e o

) el

D o

D il o

D o

WITH THE

THE

THE
ARE

—

il el

JSBTTL

067234
067234
067236
067240
067242
067244
067244
067246
067250
067252
067254
067254
067256
067260
067262
067264
067266
067266
067270
067272
067274
067276
067276

GPRMA

000031
067276

160000
177776

001031
067324
000300
000776
002032
067357
00034C
000004
000007

:
ENDHWL

SECTION

(SRADR,0,0,160000,177776,YES

GPRMA

VE(TOR,2,0,300,776,YES

GPRMD

PRIOR,4,0,340,4,7,YES

GPRMA

003031
067405

160000
177776

DEVICE DEPENDENT

.WORD

x
BE

T$CODE
VECTOR
TSLOLIM
TSHILIM

TSLOLIM
L
TSHIM

T$CODE

.WORD

PRIOR

.WORD
.WORD
LORD
JMORD

T$CODE
DM11BA
M
TSLOL
TOM[L
M

.WORD
LMORD
LWORD

110025
«NLIST

.WORD
.WORD
.WORD
LWORD

.WORD

ENDKHRD

067276

(SRADR

.WORD
.WORD

DM11BA,6,0,160000,177776,YES

TS$(CODE

.WORD

LEVEN

340
TSLOL
M
TSHILIM

(ZxMSAQ VHS11-BD/BE DC L
23-DE(-82 13:5¢4

CIxkMSA P11

MACY1®

30A(1052)

23-DEC-82
14:01
PAGE 240
DEVICE DEPENDENT SECTION

<DEVITE INDEPENDENT QUESTIONS

sDEVICE DEPENDENT QUESTION
067276
067324
067357
067405
067433
067454

066513
047111
111
104
106
200
067456

030503
042526
052116
030515
046125

024461
051122
051105
026461
020114

(SRADR:

VECTOR:
PRIOR:

DMI1BA:
DPLX:
LIST

,ASCIZ
.ASCIZ
,ASCIZ
_ASCIZ
ASCIZ
vig
BEX
LEVEN

/xM(11-B (SR ADDRESS: /
/INTERRUPT VECTOR ADDRESS: /
/INTERRUPT PRIOQRITY : /
/DM1'-BA (SR ADDRESS: /
/FULL DUPLEX ONLY/
0

SEQ <39

I
¢ IKMSAQ kMS11-BD/BE D( LT
(2 KMSA, P11
23-DEC-82 1 3:54

822¢
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
823%
8236
8237
8238
8239
8240
8241
8242
8243
8244
8245
8246

8247
8248
8249
8250
8251
8252
8253
8254
8255
8250

MACY1Y

30A(1052)

SEQ 240

23-DEC-82
14:01
PAGE 241
DEVICE DEPENDENT SECTION

:.SBTTL SOFTWARE PARAMETER (ODING SECTJON
ML A

.
.
:

THE SOFTWARE PARAMETER ¢ ODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SU ) ERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTEE AS MACHINE INSTRUCTIONS BUT Akt
THE
INTERPRETED BY THE SUPERVI SOR AS DATA STRUCTURES.
MACROS ALLOW THE SUPERVISO
R TO ESTABLISH COMMUNICAT]IONS
vl

WITH THE OPERATOR.

BGNSFT

ENDSFT

L' TEMPORARY PATCH AREA = FOR DEBUG
067456
067456

000030

SPAT(H:

067536
067536

067540
067542
067542

BLkw
LASTAD

000000

000001

LSLAST::

ENDMOD

PURPOSES """’

.EVEN
-WORD
.WORD

0
0

CZxMSAQ xMS11=-BD/BE D(LT
CIKMSA P11
23-DEC-82 13:5¢4
ABO
ACT

ACTATV
ACTBCR
ACTCHK
ACTCLB
ACTCLP
ACTCLR
ACTCOP
ACTCRC
ACT(SE
ACTCST

= 000026
= QCJ003

ACTOLL
ACTDME

ACTDMQ
ACTDMS
ACTDMX
ACTECH

ACTEKE
ACTEKT
ACTEQD
ACTETB
ACTEXT
ACTEXX
ACTHLP
ACTRAL
ACTKTIB
ACTLIS
ACTLLP

ACTLPX
ACTLXX
ACTMEX
ACTMEY

ACTMOP
ACTMOS
ACTMSO
ACTMSYT
ACTMS?2
ACTMSS
ACTMSG
ACTMSS
ACIMS6

ACTM2X

ACTNO
ACTINUF
ACTNUL
ACTNUM
ACTOPM
ACTPAS
ACTPRO
ACTPRT

ACTQFG
ACTRDE
ACTRDQ
ACTRDS
ACTRDX

057124
056730
057340
056252
(57452
055742
056550
057354
056076
056170

057172
(056476
056470
056446
056504
057250
060134
060044
056672
057550

05602
060172
(055762
057566
057560
057162
057462

057500
057542
057116
057052

(057432
057362
056752
056760
056770
057000
057010
057020
057036

057220

057240
055732
055740
056560
(056652
057134
057370
056036

057374
027054

027046
027024
027062

22954
22454

5989
6007
5969
6068
6003
5967
5977
5998
5972
5973

5993
6009
6010
6008
61278
$997
6399
6019
5981
6016

6013
6384
5971
5772
6017
5992
6004

6291
6264
6161
6188

6001
6012
5982
5983
5984
5985
5986
5987
5988

6221

MACY1Y 30A(1052)
23-DEC=-82 14:01
PAGE 243
CRCSS REFERENCE TABLE == USER SYMBOLS
5641
S766

62204
61794
62664
60824
6294n
€254
6142n
62724
6054w
60704

6234
6123
6125#
61204
64024
63794
61682
6314n
6G4L3n
6396
60314
6018
63174
62314
62964

6300

61264

6413
63194

6293
6285
6177
6190

6295
6288
6199
6192

6229

6270
(160

6290#
62754
6187#
6189«
61914
61934
6195#4
61974
62004

62478
6022#
60234
61454
6163
62234
6278#
60454

6125
4124

41624
4157

L1648

6220

6250#

5996
6006
5966
5978
5979
5990
5999
60N

6267
L4126

6400

6297

6204
6194

6300#
6310#
6210
6196

6213
62032

6232

6235

6238

62428

6273
L1163

6276

6280#

6301

62174

SEQ 241

—

BAD
010
BADCHR= 000
BASMI
029
BASM?
BASM3

ALCKSB
ALLTR
ASSEMB=
ATVMOD=

0614
0615
0616
061674
061664
061634
C51716
0617
061

061
061
000
0)J0

6574

6743
~I~N

CowN
N~

»N

L2
2 R X R ]

P i

MACY1?

swnwoooooroororOrOr
O O OO
SO

6551

WODRININ) = =2
N =2 WO OMNO
N =2 N =2 2
)
=5 O N ND BN NANLN O WIAN NNV O 85 VN OO AWNWNND 8NN S P
(¥,
]
OWVININIO
~
OO \WNON S 800 N ON) ~N=OODNINOD
®»
»
B
Rz
zxkxae

6778#
67764
67674
67824
o
o
oo

6775
6769
676¢
6750

PONLNLAL NN N AN AN ANANAINI NI N —
— i il D i
s e P\) N N N AN AN O
NNNOOONONCOON NNWNWNO
Wo
WO OO 85 VAN OMANANANINYD O—=0
PR
RN LR

OO NMN S
NN NN
NN
O N
NSO
OS
N
NOCOO0 NN
VO OVO -2 OOV OVOOVOV—O
=0 = =0
NN
NN N2 OO OVOONWNOON=OO=NNO—=NON=NIO
NIWWORN NNV WNVVIW S OO WO SO0 S OO RNV = 0O —
»
L

NOOCOHfFOCOONINININOONONCNNINININONION
SO S

CIKMSAD KMS11-BD/BE DCLT
CZKMSA.P11
23-DEC -82 1

LSLSLVLSL
VL VIV IV IV 2 2 2k oXV ] NN
— b =B P S SN SNV
O[pSEe]
QOO0 N = — NN
WA N ~Oo
O ~NW =000
N0 W O N

0612

[aTAY
AT A

SOOOOOOOOOOOOOOOOOOOOOO

(=4 o
AN AN
NNNND NN NN NI W
(=4 n
o ~ NNNNOOO
N
NOWNMNOANNOONO OO
o VN B NN NVWNWNWVNION
W NO OO S NN
NN
ANUN N =2HANNONND = N O £~ —2 S NN £ = 25 2N 0NN =N =2 =2 I~
O N

ALCK?2

WINWNO OO
OSSO OO0OONOO
ANAN NN S VNIWVNON)
= b \) =2 N
&~ &
NN =2 2 N NJO OO OO

ACTREC
ACTREX
ACTRHL
ACTRLG
ACTRLP
ACTRNF
ACTRNL
ACTRPS
ACTYRSL
ACTRUN
ACTSEX
ACTSHO
ACTSHW
ACTSLS
ACTSTE
ACTSTS
ACTSTTY
ACTSTX
ACTSZE
ACTTAL
ACTTLP
ACTTRA
ADDCC
ADDCAH
=
ADR
ADRINV
0662
ALCK
0610
ALCKT
0611

—t

ALCK2A
r.CK3
ALCK3A
ALCK3B
ALCK3IC
ALCK3D
ALCKG
ALCKGA
ALCKS

(=4
(=]
o
o
o

o
o

‘

60934

6598

7214

2299
7690
7420+

2426

7606
7652

7435

76491
7494

30A(1052)
gé-b (=82
14:01
PAGE 244
CRCSS REFE
NCE TABLE == USER SYMBOLS

6112

5939

67494

6784

66740

6869+

7504

SEQ
242

0UMOYOOOUGSMOoepPNNtT=OOGG0QyMOMeMNtM=N0OMLAMLOhd=)—UdMOOOUMeMeMMeeBWAOC-UOMee0MOO<70<M8OTVMoToN)VNNOSNTTOQONeONTOMQCOVOEJR~eOIOMoeWOOoVNTTeo0OVO~TeTMNOOaVeTOaOV0e0TaICo0OIeVOIO0a0eM(9OI1I0Wm2TDN‘TrO00OTmO0TVr00MTmO0I0Pr0ONTmN0OTOe0NTOm0OTNr%T
[~Y=Y~]

NSOOOe=

eCO0O0OONININO

IQXOV [(elelelelolelelelelela] QOOWVNOITOOQO0OWVOM—O0OLOOITOWVNO N=eOVIMAIIII Ryl
]aTaVT
IV Ve F ol VaY4 AT[

O
D
O
O
D
O
D
O
D
I
O
D
O
D
O
D
O
D
O
O
G
G
l
G
G
t
P
G
Q
)
G
l
P
r
o
n
]
P
t
}
i
)
G
t
G
r
e
a
e
l
)
G
G
t
]
G
l
)
G
G
l
—0COr—OOWVOO—
HSEYV
DO OD L 0OQO0O Q0OAN0MN0MNoM0OoMlo0lN1MNo0lMolo0ho{lo"le0=oo]3loioo0ltlooo0ldooll0oalolao0llooalo0leoglltl0a=eSfl
O« P =O WNONM ~ NLT O OVeV—OLV OVAIT=IeVOVl LVLalVa OeVoLlOVs]L(YiOOV
7oOO~OX}V7IIOVOTN—R
MWOVOT7MNoVWN6TNoIeOISN—eOo8—NVV6NN]OTVNNToIIoVTN6TMgMX=N[Np6I—0o[WM8OJV0}aVV](V0UT8CS~MoaNoVO.NOI8—ONaVGTN—OT8NM—oe7V—I5Mg3N-OT‘o
O o~W
MACY11

Sen

194

wa&N u

wy o o ~

WOa—A0

V] VT g ¥ [
oo

CZkMSAQ xMS1 =BD/BE D( LY
CZKMSA.P1Y
23-DEC-82 1 13:5¢4
30A(1052 )
23-DEC-82
14:01
PAGE 245
CROSS R EFERENCE TABLE == USER SYMBOLS

~aFr50

7702+

TM o ~y o

0 o [L0] >

7735«

7771

44L/0r

4472

3078

4190

G474

SEQ 243

Ov o0

364

L4bé6

5865

59 v ?

6282

6464

5753

5761

5938

5944

6067

6506

.- &--- &-L

)eMTOGD0O==~O[WRaVE[YFdMeDT~I0aVW]FHNAWcREIl0TAaMDWOoT)gXNMYO0LlVcV[awOB~P(4NSORVIy[ee-eaAaW~U0TlR)IyNONTc0lAXaSVIeI0W[O~=EVOT0rMlNn«NcNIUeNiaVNOB0O<lWTIxMecNT—R0OValrOTMeI6xO¢c90OlSNNa~z—eLMOyEO8NIlxc0SIaVO\60aTlODWYNaxewMONOXOA0vlT\nNsAVVeR|e»2O—wTn6UOxOzNnDWrlV0vo,)NMOMeORO©sAVl0gaU.~NeINOBVLeO-CaXO-RA0nTlDTXUAeIZV0Rx8lNySVTY0M—wSWI(S0 Oe0NONaOw-OAYRT)OVTAOaGNAO,V~NlOONMeOR0B—0VaPNOR®« TOOYSI0DD—IMvA=0UU~ETAn3NG(II=2oON0DOXL)NN[aRaE—GI0OW-MA ATVUOMZ=0M—>NWNNET~OMN(FD\IOIEZ=TASOwOal8D.eOUMODVSOXlTVoeN«oI[Owo~ak2DJ4I]O]-TTV&—4A—aL)SlA[o[MUYIF.dNXeNVVaV=]=UYOGADMY=--lTeTYOM«R0[uLy:]N«eW,NO(~MWNlIUn!NFWNeOOUMN—Rex=IlWOLoN[IT"0M0gaNMNBVaDXWeMllU2IOOaI0"Neol][aUWMAVVPlON&G.lOegaa—0OYoIOYVM7[JENNMG-lo“RUa[«0VTX)«YIe«OIOyNOV(lMeWROUWANeSITTMSMldIwNLeENNOOOrlIo0RSetrMTNaOel-=OOIN—e'ONMI8ONoONOM°MOT)NJI—OMHYIVaoCrAC0NOOIYOYIGooMOD1LO-—IOSMWZ~MOT"VOA[oeM'Dr3—gO3—2O—a0NMT[N[oVUeqIOZOAWNDMDrxTGI~O2eTN—%OM)ArOWEDD7—RONTOUGWDOrrme0UdI—WMMAROeONrtTLII4O~o<—~ooMO-V—OCmOXO3oNM0GCNnNeIVWMO(RM"EAxNOreUIOItowM[V=NWM)OnW—VOLIIV~MLNEwO(OOgDUYMrNnNaOG—tPO42W—S=aTNAMO)T]~oM]IV}aRF—GNCXWAX=CM[nVeVtONerOIaOOm~IdWKoMMwe~=[uOUotId[LOOETLx0QwNNWaytdW0WOAlyaU—XVaIOO"adO0IuMloNTO—3xdV0WwTM
o[Oa[O-0~oo[M~Vo--gV-0ry—«a~¥)])] oaI0V(-[[wv~CMoooMw~N~N<L¥.-=a—Jy}e%l75)~r)]O¥oOW~ee—P]]TY"JNgso=oooMYN-)s[O~~W12e(OoX]V~To3MY—~eoa~Je[w ON[Oa-[w loN[[[l(e0|[«eo+s« [O4P1ael)V—[aN(Yo0w-v~"o~w3¥"L=O—Tr5aML]N) QOgMAONOM—g—NMOO—4D_WONIVO—N—NMUUoUaOO~el~MMaWSM-Oa—OO3~MOlM-NONN—M—00MOMMM@~NrAOONM]—NFNe L0aL~-~a[<3(-~-oMw—M.))g=a—N——]l][[
~~5 M]JO[ 0NIa0WanOM a-~0
CZXMSAQ kMS11-B
CZk*SA. PN
23

3:54
14:01
PAGE 246
£ (-82
3 TABLE == USER SYMBOLS

SEQ 244

(&}

CRCB ‘= 000020
CRX
CSHE xP=
CSHTRN=
CSRAOR
c1or €
=
CTS
CTx
CUFADD

007646
000006
000007
067276
010060
000000
007644
010156

CURCC

010150

C$AU = 000052
($AJT0= 000061

($BRK = 000022

($835EG=
($6 uB=
C$CLFG=
($(LCKk=
($CLEA=
($'L0S=
C$ .P1=
($.VEC-

7640

6198+

19964
19964

19964

VWAL
OOoOO0OO0O0O
NOONWVNONWD
VHINOY =N

113

CRC

021650

+
v

007562

W NSO
OO NWVIDW
S22
~NW
OWOOWVMINGY

CPTTIS

VIO
SO SO
SOWNOON
VO NPNNOWES
O SMNVOO NN
£ =2 OO0V EONO—=OO N
VOO B WNN= WOO@MBNIEN

010152

5
o

007542

CPTRF

664

010154

)
CPTRLS

“7H
48N
4%
50#
350
770

bO—'ONOWW;\JO\flObOOO
TM~
W00 SN

CPTR

000023
000024
000025
000026
011516
010202

NOANNININLN 00N NLNININIWWNION
NN oMV
NN S N = NN SNNWWNI N0 N NO NNOWUDNNWKN

CMSG3 =
(M5G4 =
(MSGS =
CMSG6 =
CNTCLN
CONOT

4363¢

4641+

4757+

4813

4832«

6778+

6785

6836

6840

5893+

5898

5937«

5942

4734%

4B97

49BE

4993+

6713«

6718

6729+

6767+

6783

6832+

6842

6550
4606

6685
4715%

66390
4734

7615

7659+

8049+

4468

4470

L4760

4481

5744+

5906

5917

5945+

6062+

6452

7534
4346

7568
4348

7613+
4358+

7968«
4377

4379+

4381+

5755+«

S576ir

SBY4s

5900

'
593Re

4305

4308+

4309

6342

4347

4358
6503

6506+

5751«

5763«

6085+

6157+

6170«

7556

7718

7806

7548

7594

7640

7959

8020

8041

8086

6517+

6203«
7143

6720+

6452+

6721+

6453

(SERRO= 009060

19964

7801

8003

égggl

6854

6873

6887

715¢

5586

5649

5799

585%

3696

5639

5809

6996

C-ERSO= 000057
« SESCA= 000010

5410
5657

5620

19964

5376

5943

19964
19964
19964
19964

5678
2060

19964
19964

($ESES= 000005
$E5UB= 000003
($€7ST= 000001

19964
19964
19964

($GE18= 000026
($GE Tw= 000027

19964
19964

(S$EX1T= 000032

($GMAN= 000043

19964
19964

8160

7066+

7570

19964
19964

($ERSF= 000054

5760+

7532

(L00DU= 000051
C3{RPT= 000024

500053
0J0003
000055
000056

5756+

6372

19954
19964
19964
19964
19964
19964
19964
19964

($)U =
(¢ DIT=
C*ERDF=
CSERHR=

6706

4832

0C0004
000002
000045
000062
000012
000035
000006
000036

($0CLN= 000046

SEQ 245

MACY11 30A(1052)
23-DEC-82 14:01
PAGE 247
CROSS REFERENCE TABLE =- USER SYMBOLS

N
-

CZKMEAQ KMS11-BD/BE DCLT
CIKMS/ P11
23-DEC-B2 13:54

6726

6455+

6460

(ZkMSAQ KkMS11-8D/BE DCLY
CIKMSA. P11
23-DEC-82 13:5¢4
C$GPHR= 000042

5475
5594

000050
000031

19964
19904
19964
19964

C$OPEN= 000034

19964

C$INIT=
CSINLP=
CSMANI=
CSMEM =

000011

000020

C(SMSG = 000023

C$PNTB= 000014
CSPNTF= 000017

C$PNTS= 000016
C$PNTX= 000015
($Ql0 = 000377

C$RDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003

19964
19964

3287

3300

3314

333

3347

3365

3384

3400

3427

19964
19964
5655
6108

3283
3643
$925
6153

3296
3651
5531
6183

3310
3688
5540
6259

3327
3716
5734
6308

3343
3726
5783
6434

3361
4138
5829

3380
4240
5838

3396
4251
5872

3412
6259
5887

3423
4303
5914

5211
5931

5256
6037

6355
19964
19964
19964

6366

6375

6394

3829
4054

3850
407

3873
4086

3887
4107

3900
5038

I
506

3941
634¢

2059

5386
5622

5391

19964

5432
5381
5404

19964
19964

5344

19964
3958

19964
19964

19964

000041
000037

19964
19964
19964
7884
7885
7886
7887
7888
7889

0S6

0s7?
150
(151
€152
(153
(154
(155
(156
157
(250
(251
(252
(253
(254
(255
(256
257
(350
(351
(352
(353

000025
000046

000013
66276
066306
066270
066270
066362
066270
066270

066270
066270
066270
066270
066410
066416
056532
066270
066634
065700
066740
066270
066270
066270
066270
066270
066270
066746
067064
067030
067046

5793

19964

CSRFLA= 000021

CSRPT =
C$SEFG=
($SPRI=
C$SVEC=
($TPRI=
c0s0
€0s1
€0s2
C0S3
0S4
C0SS

SEQ 246

MACY1Y 30A(1052)
23-DEC-82 14:01
PAGE 248
CROSS REFERENCE TABLE -- USER SYMBOLS

19964

C$GPLO= 000030
CSGPRI= 000040

7890

7891
7892
7893
7894
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911

3780
397¢

5584
5560
79454
79484
719224
79234
79674
79244
79254
79264
79274
79284
79294
79754
79874
8006#
79304
8033#
80484
80594
79314
79324
79334
79344
79354
79364
80¢3n
80714
80764
8081#

3789
3986

5635
5570

3799
3997

5577

3809
N

5397

3819
4021

6445

6470

6v63

7059

7082

6780

6824

6990

5786+
4028+

1
0

5787+
2
0
8

6115«

0O N

2
0
1

O O NMNEO O MOr r rer e ~erOO00V0000O00VOC—OO0VON N N NO0ONIN AIOY

— — — — CUMP N O O 0OV — O G0~F NN UNI — SO I O O AU A A N N A AR AL N 0 30 — <7 G0 O OMIF N NI MUA NN

6620

6709
6569

[

DANANN—- OM IOOWESDDDDD>> > 0dwW IS I d I IS IS0 A NN~ IEEEITETIE wwww

SEQ 247

23-DEC-8B2
14:01
PAGE 249
52 )
R EFERENCE TABLE =-- USER SYMBOLS
30
MACY1Y1

CZxMSAQ kMS1 =-8D/BEt DC L
CIKMSA P11
23-DEC-82 1 13:5¢4

CZKMSAO KMS11-BD/BE DCLT

CIKMSA.P11

23=DEC-BJ 13:54

DVEMI1
DVEM14
DVEMIS
DVEMI7
DVEM2
DVEM3_
DVEM33
DVEM34
DVEM&
DVEMS
DVEST
DVEST
OvVI_
=
DVINEX
OVINIT
DVINS
DVINO
DVINOO
DVIN
DVIN
DVMI4B
DVOUTS

022465
022514
022631
022705
022223
022275
022766
023030
022330
022407
063514
063432
000012
063702
063024
067204 G
063074
063040
063154
063230
022563
067214 G

3253
32538
32530
3253
35530
32538
3253
3253
32530
3530
72394
72230
20894
7128
6500
5567
71398
7127
71620
2176
32530
5574

DVREX
DVRTB

064336
010102

7608
27374

DVRCC
DVRCLS
DVRCT

010106
007602
010110

DVRXA

010104

DVICC
DVICLS

010066
007612

DVIREX
DVIR3
DVIRG
DVIRGA
DVIRGB
DVIRGC
DVIRS
DVIRSB
DVIRSC
DVITB

065420
064506
064764
065010
065132
065200
065204
065346
055414
610070

DVRXQ
DVSET

DVICT

DVIXA

27394
27074
37,08
27384

064174
063560

4994
72508

010072

27334

010064

2273%

EDABO
EDDCK
EODDE
EDDER
EODLE
EDOVI
EDEOP
EDMOS
EDRXC

020022
017603
017716
017566
017661
017633
017751
017765
017540

23594

2894
2889
2892
2887
2891
2888
2893
32538
2886

14:01

PAGE 250

7961
8022
8043
7550
7713
8083
8099
7596
7642

r275H

7156

4592+
4585+
4775
74394
6700
4990+
7068
7265

6699
4775«
4795+

7063+
4795
6740%

7074

7076+

7077+

6742

6833+

6893s

7656+
6698

7061«

7073

7076

7424

7497

7609s

4853

7015«
4923

7023

4640v

6752
4B71

4871«

491Be

4925e

4947

7531
7566M

7552

7567

7071

7012«

74784

7022

7496

7608¢

6262

6252

6262

6703

6875

6889

76608
75068
7535
75740
7600#
76104
7614H
76460
76580
6753

ECHOB = 000004

= 000037

3595
7225
7121w
B138#
7145
71328
7177
71794
7992
B146N

7616
7679
7533
7569
7586
7598
7571
7630
7646
27324

6696

ECHO

7956
7988
8009
8034
7539
7703
3082
893
7586
7632

6689+
4853+

2730

23-DEC=B2

CROSS REFERENCE TABLE == USER SYMBOLS

27314
27084

064340

DVIXRX

MACY11 30A(1052)

SEQ 248

6687+
7020
3036

5051

3253w
3253w
32538
3253w
32534
3253w
3253s

3253«

76064

7610¢

6751

6856

]

7425

7655¢

765ae

6757+

6763

6768

6774

EVM{TS
EvL

EvMD(D

EVMDSR
EvMO(G

€ VMOMD

EvmMOST
[alaYaala
A YAl AT AT ANAT
A BN A}

NS
NN
NN
NO
o WV
(=4 BSOSO NWSTODONI—=N)
OO OO SN S
(=] OO

L X

WNN
NORUNY)
VIV
WWNIWN

OV
VDY
VOO0
NON

OV
—= OO0 0O —=0000
W
= NWO NNWOOO
W
(R
2
RR &
R
R 1

SSPONVNVPNVNLDNIRNVURADNNAWY.
=S ASANNNANES
B 55 IS 2 NN

LR
R 3

OONOOWVIVIWN
OO £ (N NN

NUNANUNN NN
WNWNNIRANNO
NN

(V)

MACY11

5622
68524

8084»
76461

8001+
6456

7993

8000+

7976+
7998«

7551

7643
ao~NO
O ~O0O
—
O~
W
VIR
— O

N wWON0000
N2 NOO
= SO
=ty =

mwmwwwdcgoomomvo

WNNNU
MORUA OO 00 00 MU LNINAN 8 WA WNANANND AU -t =MLY ~ NN [ LV, ] PO
w OO NI N S~ 85 S5 85 B S B IS N — — — — 2 PUNAD 000000
00 — — £ =2 O IN O WS O =\
8 N NIN N N O OO 00 N0 O O O O VW
00 G0 00
QO
=+ NN S O N
=4 N SN NN ON O WVMANI = O O 00 N =N £ NONVHUANNNWN
&~ O
WWANN
=N O
LR
R
R
R
2
B
X
R
J
L
R
J
»
B
kX
»u
LE R 3

00 =N AL AV AN G N WANO AU AU PO R AU NI NN NUNOAU AL PO N NANLNNONIND)

[alalalalal

(ZxMSAQ KMS11-BD/BE
CIKMSA. P11
23-DEC

AN LU U AU U I L U U N LN LA U U N N N LR AN N N AN

N =t
) —
[ Yo JV RNV
1V |

[efoloelelelelolelalelalelele]

=P b b b = =2 O
~N PONIRINININ
Ae
N AN AN N NN N AN N NN O WO

—E MmO

— XX
DNV
VZ
NN

A AAAAANRNND

[aalaslaalaslaslaslaslaslaalasl

E
&

PAGE 251
14:01
30A(105 2)
23-Dt (-82
TABLE == USER SYMBOLS
EN
CRCSS REFER
EFERENCE

7310
6874

6870+
6884+

6918

7799

8089
8100

6766
7065
7629

7017
7029

7583

77964

8098

7797

SEQ 249

3938

4261

3866

68854
6888
7957#

721504
7960

7153
7999#

8000

80184

8021

7544+
7590«

7636+
7707+

7794+

8117

75464
7549

75928

SEQ 250

23-DEC-82
14:01
52 )
PAGE 252
R EFERENCE TABLE == USER SYMBOLS

< O AL [al%

oo ¢*2XLal’al-

O4Mo&k~2t lOA'aN~l=ODONOauNoSw

3:5¢4

MACY1Y

—0OmJrNe0roOM—0rNeO0IMrCNO

CIXMSAQ KMS11-BD/
23=D
CIKMSA,. P

«&-

OLPal,¥a

(K]

O7-0

SeQ 29

PAGE 253

SYMBOLS

3385
5692

[V e
18]

== USER

[ QW IV}
O

S —s
—

~NOW

[o QW TV ]
[a¥ Lo JV )

]

(a4

p
o]
N]
[2a2V))

ek
el
—

AON
N
O —=O

(2]

CON
N

[V,)

OVNO N

TABLE

14:01

3539

3430
5799

5855

AWM

VN -

NO
OO VO

OOV
O H =N OO~YWN

(-82

5649

5670

3290
3399

3299
3403

000010
000002
000014

8138

8142

8146

8150

[
iV,
nNO
[o JV
]

5692

3330

3336

3346

3352

3364

5948

000021
000017
00001¢
000003
000005

(W IWITWNT, JV TV, TN 10 . To JV IVIIV TV TR « B _J
WWNPOPO
NN = ) — MOV
O~

f $PROT

f $PWR
FORPT
F$SEG
T
FSSOF
FSSRY
F$SUB
FOSW
FSTEST

000011

(v]

000013

(9,]

000004

MACY1?
[V RV YV TOY IV IV, L NT, . 1o IV PV IV,
W
NN O
N
— L N OO O
w
VOD
O WO = ~NWVNOD
OO~ —
W
ANNNOD
O O O NNV
ON O

000007
000016
000041

[ ad

ooy

Q
c

FSCLEA

"noon

(ZxMSAQD xMS11-BD/BE DC L7
. P1Y
CIKMSA
23-DEC -82 1 3:54

P-1,8]

3512

3537

5716

8¢9

GARPEX
GARPFL
GARPY

LB99a

GAT(FL
GAT(
GET(

6767

6773

58064
6672
4732

5831

5840

5843

5850

5862

5874

5889

5904

5916

5933

4773%

4793

«811

4830

4851

<869

49640

4967

671

6776

5478
3728
6684

3734

3740

3743

6927

6965

8110

7031

7089

4943

6508

6327

6989

7053

7208

6782

4898
L9264

GATCEX

PN NNINO

4924

4969

5469
3718

4948

P TAY
(945

3278

vob8e

6521

683

5737«%
5785#
64828
6925
6508#

6527
5846

6549
4696

GD1SP- 000003

8184

66214

6643

6928

4893

919

7360

(ZxMSAQ kMS11-Bp/B
. P11
CIKMSA
23-0Ct

00 NN WNWANIOD
= ONJ
N =N
00000
— £~ O
ONO
N WD

)N =
NN =2
—

N =
=
O

S OMANOO

8209
[s Yo JLCIV TV, 1,01, .}
— D) = YN -2
BN =N
OO ~JODND
—2

8203

S —2

6999

8198
8198

8207
8203

8209
8209

2149
5361
8155
231

2150
5571
8162
239

2187
5589
818%
2610

3206
5607
8221
3124

3232
5621
8235
3207

3250
5652
B240
3225

3256
5668
8248
3253

4584

4642+

40644

469?

7052+

4942

7221

4697«
L9464
7224

4753
4970
7359

&774
646100
7361

’810

8139

7123
8218

7281

7387

7412

7461

7482

7508

8109

—

o
o

w»

~N~

NNEOOSSN
- AN
N O
NN
W= Ny= &
N UNANANO
&S —

»u

VAV

= N OO
O NN N NN N DIN NN
I R XERRER
R
R
R
N

AL NN
UON NN QD WN AN WN WD

O NANANANANAN
AN N
NN O SO N
O WMLV
YO = OO
NN
WW

o
O

8193
8193

8203
[0 Yo JV, L NIV IV, 1,81 ]

»n
»n

VWA

& OO
S ONON

007640
000001
000400
U32637
013416

7350

6485
N
—8 =2 YN 0D W
O ~NOO
= O N

INDW
ININT INITC =
INITT
INTPR]

000020
020000
013634
0076472

6999
6999

6036

7695

VNN NESO

=
[e0
=
[ER
ILLRSP
INDEX

Obwoo\now—gmmm—-ocmwomb

= 000040
= 000001

= NORNVAN O PO ON 8 B 8
S NOO—=OO— CORININY

Iou
€1

120000

= 10000

NN
O NN S B
Rhhahazkak
L
L %
)

1{:]3

014636
014754
015036
015123
0151%0
01527
0153G5
015375
064132

—

HLP
= 000005
HLPEND
003276

O
WY
NN N NN N WSS NN
w & w N ANAN NN ANOOND
R
L »N LR

19964

KELPDC- 000000

HOE

12870 QY TSIV IV [,V 1, ]
O8O0 rO0O—
AN
= OW— O
0D OMNIPVL
N OO N

19964
1996#
19964
19904
19964
19964
19964
19964
19964
1996%
1996#
19964
19964
19964

= 00000C

HLP2
HLP2B
HLP3
HLP3A
HL P&
HLP4LA
HLPS
HLP6
HLTREX

SEQ 252

PAGE 2564
14:01
30A (1052)
23-DE (=82
TABLE
REN
==
USER
SYMBOLS
CE
(R CSS REFE

10964

000400
000002
000001
000000
000400
000376

GSXfFER= 000004
GSYES = 000010
HELP

3:5¢4

WWAARUNUAU
O £ NUANRUNAL AUALNIND N N NV NRONDRUNI NN NI NNV WNNVWWNIND 0D
N
WA
NN SN =P S S RONINIWWNNAANO N
OO OO OO Y NN

GSEXC(P=
GOMILI=
63L0L 1=
GSNO
=
=
=

MACY1Y

4581
(917

6826
4972+
7560

4920
22{?
7720

692?
6988+
7722

4940

7807

CIZxkMSAQ xMS11-8D/8BE D(LT

(IxMSA . PN
INVCMD

INVEC
=
ISR
1x¢
=
18AU =
1$AUT0=
I$CLN =
180U =
I$HRD =
I$INIT=
I1$MOD =

23-DE(C-82 13:5¢4

066270

013412
000100 G
004000 G
000041
000041
000041
000061
000041
00004
000041

7916

79404

5568

S6884
56054
55194
S6664
8184
53694
19984

S5701#
S611#
5649
S6794
82174
5586
8255«

33854
5353«

33884

185€ Tu= 000041

33604
19964
19964
19964
19964
19964
19964

I1$5UB = 000041

19964

$715

I1$PROT= 000040

[$PTAB= 00006
I$PWR = 000041

I$RPT = 000041
18SEG = 000041

I$SRV = 000041

19964

3273x

000100
030206
030160
030210
030166
030236
030354

22654
4551
45488
4552
45498
4584Lnm
4645

Lepn
LDFIRM

030330
(33360

46438
55094

LCPTLS

1LORCLS

UHRPLS
LOTCLS
LDTPLS

LGDVE

LINEST
L1S
=
LIS{k
LISCKA

030306
030532

039434
030632

030572

024226

81592

81612

3736
5851

6135«

3742
5857

6207

4142
5860
62120

4145
6025
6314

S7IN

6317

6320

6595
6712

6624

6594

6623

6680
6758

6714

6730

6746

7637

7708

7798

3646

6339

6497

3430

3730
5847
6132+
7137

3113

5415
4553
6548
4S80
“64L8n

6570
6741

4646

(B11y

35898

47138
(8514

7545

6691

7591

29304
22494
2826
70614

3785
623
7052#
7085

8064
7030

010114

276438

3635

3637

23544
32538
23668

569°2

4149«
6028c
6317«

5546

L7738

45.9
4647

5670

011510
000006
062602
062642

L1SMOD= 000032
LISP
016535
LMDLOP= 000046

LNCNT

L6460

B152a

58595

7191

LCLKEN=
LCPREX
LCPRLS
LCPRLY
L(PRI
LCPR2
LCPTEX

33154

3428«

5799

264428
3253a
2615~

23794

33034

34034

Ble6s

KMLTYP= 007726
KMSLOP
014167
KRUN
= 100000

= 000063

33014

34NI@

Bleus

B129#
3117
8130~

kTRB

32904

B1384

8077
23804
8078«

26304
5844
6122+

55954

35394

KADR
067200
KALL
= 000064
KDATA
067202

003246

32884

5658#

35124

57154

KEYWD1

PAGE 255

5345«

19968

19962

14:01

S3334
5715

I$1ST = 000041

JSJMP = 000167

23-DEC=-82

CRCSS REFERENCE TABLE == USER SYMBOLS

5SSOV

I$MSG = 000041

31438
22174
22228
19908
19968
19968
19968
81774
19968
19964

MACY1Y 30A(1052)

SEQ 253

2989
7056
3097

8065

7087

8118

33204

33324

33364

33488

33524

33600

41530
6041
6320

4159
6043*
6335+

§371e
6045c

5637
6049

§771«
6059

5842
6073

6398

LOGAQR )
LOG(MD
LOGIML
LOG(MP
LOGOVI
LOGEOQP
X
LOGE

LOGEQ
LOGE

LOGRX(C
LOGRXQ

LOGMSC

LOGSY
LOGS?2
LOGS3
LOGS3A

LOGSS
LOGS&

LOGTX(C
LOGTXQ
LOGUNT
LOOPS
=
LO7
LPO

LPOD

LpP2
LP3
LP1

LP&

L SACP
LSAPT
LSAU
LSAUT

LS$AUTO
LSCCP

LSCLEA

LSDESC
LSDESP
L$CO
L$DEPO

LSDEVP
LSDISP
L$nLyY
LSOTP

L3S0V
L$DTYP

L$OUT
LSDVTY
LSEF
LSENV]

LSERRT
LSETP
LSEXPY
LSEXPL
002
0137
022076

002060
002124
002116
002040

(0C2034

002072
Q13714
002052
002044

054150

013704
002102
002046
002064

Ombwgmbm

O
»N

56664

32274

3208#

QO N

5624
73094

L9BBN
6679

81164

9
4

3588
36264

3619
3624

N —

(ZxkMSAO kMS11-BD/BE DOLT
CIKMSA . P11
23-0e(-82 1

AU AL AU
PO
UL P RO AWN NI AL RO
N U N NN NN NN NN N SN
N NN
B NOWW
PLNLNLALRLPLALNLALNLNLNLNLND
N UL
N
NNNO OO VN
NNNORO—-SOO
WOV N
[elelelelelelelelelolele
o] o0 [e]lelolelolelsle] (=] OO
o 0oNL £ 0000 O N~ & O NSINNWVN = YO NNWNO OO NOOOMNIWVE N—=OOO = —ro~N
NV
WNOO NNV
£ - OOV
=0 2O OV
WO OOV
— B [+
(el = — O 5000
(YoX&~ 2%, &~ — NO N(o L=}
»
Sk
an
L
Rhhan
Bk
&
=N
LR3
|k
N
LR
J
LR »

Alalalalaralalalalalalalalafayal

O0S

[aYalalar

tB‘E"”- 063704

[elelalolalalelelelelalelafelololololololelololololololelolelolele) (=]
[elele]
OVOO = =t st a2t OO —AININININLNIAINLNININD
O O NONINDNININIWN ~
O\WO
¥ 2 b
B EaX 2R 2F 2P 2P 2l Q
~nN N oS X 2l ¥ 18 e Yo Yo Yo Yo Yo STV Ta R oW of o o o o0 o o
OOO—2 OO OB LS DD ONN =
NN
O
NUND S = =2 O AN N NN — o
BN
NNo
W= NNVON NN
= O
B PIN) = =2 NO PO W NWNNNO
— —
O=NINOCOOCOO~OONONONO NSO
OCOoO oINS NOONN o

3[}

5645

95667«
5469+
5470

2890
32534
5027

5474

MACY11 30A(1052)
23-DEC-82 14:01 PAGE 256
(RCSS REFERENCE TABLE == JUSER SYMBOLS

3628#

SEQ 254

CZXMSAD ¥MS11-BD/BE DCLY
CIKMSA P11
23-DEC-82 13:54
LSEXPS
LSHARD
LOMIME
LSHPCP
LSHPTP
LOHW
LSICP
LSINIT

(002066
067230
002120
002016
002022
002130
002104
032612

G
G
G
G
6
G
G
G

207%0
203
2098#
20324
2030#
2037
20864
2087

LS ADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
L$PROYT
LSPRT
LSREPP
LSREV
LSRPI
L$SPC
LSSPCP
LSSPTP
L$STA
LSIEST

002026
067542
002100
002074
002050
002000
002042
Q32604
002112
00062
002010
032576
002056
002020
002024
002030
002114

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G

2040n
2041
2082#
2078#
<058~
2015«
20524
2093
20924
20684
2024n
2069
2064#
2034a
2038«
20424
2094n

LSUNIT
L100C0

002012 G
002144

20284
2119

L$TIML

002014 G

L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L1001S
L10016
L10017
L10020
110021
110022
L10023
L10024
L10025
LS060

023400
023426
023456
023510
023540
023576
023642
023676
023770
024142
032602
054016
054020
054146
054154
054162
067224
067212
067222
067276
016553

MLTYP

010220

MOBITE
MOBITS
MO(HK =

011356
011340
000010

MCLR
= 040000
McsiZz = 020000

20304

32864
32994
33134
33304
33464
33640
32834
33994
34268
3537«
53430
5587
S6Q9#
5650
5671

5693
5800
81424
8150#
8177
32534

26164
5589«

27914
6303

28664
2859#
22748

MACY1Y

SEQ 255

30A(1052)
23-DEC-82
14:01
PAGE 257
CRCSS REFERENCE TABLE ==~ USER SYMBOLS

8177

8178#

2119

2120

53694
8253a

5353

5333a

S470
21454

3431

5593
56564
S6774

56994
5856

8159#

82164
5443
7134

3597
6426

5767+
7183

5057

6275

5787
7194

5801«

6114

62250

6244

6290¢

6292¢

6294

296

6798

NO AU A

LO68N
=

o~ o OO ONON
N NNNANNEON
&5 o NO N = AN = NANINNINNINNOWN

\WNO NRUNDNONNINONDO
W

» ~ WNJIRIN
SN WNNNNLNIWNNLIND -

[V] [V OO

O N
N
OO
O

46710
4753+
6459
6515

2698
5886
2699
5911
2700
5928
6449
5880
5924

5762+
6084+
6163+
6187«
6189«

6085
6198

L4672
4756
6462

6250
6281

6247
5471
-

4668

(¥,

9 113
030+

5786
6760

=S NOOWWNN

N
W

MACY1Y
30A(1052)

(VT XV, ]
[V, ]V, ]
OO
— O

AN INNL NN NN NNV NONINI NNV ONNINVTNVNONUNUWN.
NNV
NO OO OO
WWNOOON NN
ON0D —
VNN
ONINO
O OO
N NOOWNMWNWNOMN
S
NINN
SN =2 NO OO NN
S OO0V
&H~OWw
L2
2 3R &
%
2
B
%
&
Rk
e

WIS

NINO
O WN &~

2OV

== OO NOO N S WNWNWOOW

S OWNB N

OWVESNNNOOOWORNNOO
WO

b IS —a P

ONINOOOWVME S

NN =2 N

6«
2

[V,]

N AN 00 WA N LN AN AN AN AN AN Qo
O ORI o
NI ON =2 WAV —
00 O NI AN AN NN N LN NN o
L2 2
2
2
8% &
3 3

MOS

-B82 13:

MO6
MPLY
MSC
=
MSG
MSGL
| MMSGIRN
MSGTRU
MSGTYP

23-D

NN = PO
s <t NUNY =N =0 \NOTM 8 8 8
8
WVMOOVOOOVOOOVOWOONNNNNN
QO O N =2 O O 00NN N &
WO WA

MO4

NN
=) =)

CIKMSA,. PN

N0 AN NN N N N ALNAN N NN B B N0

MO0
MO1
M0o2
Mo3

NN N N N U AN AN AN N AN
2NN OWN o
WA
B = NWNOWN N o o
OSSNV
Oo »

MOMSGS
MoP
MOSC

o o j=l=l=loBNelelelalolelololalaleololalololelo BNelolololalel
)
o =] OOO0O
ek e DO
=
d d i D e e (OO = -— et (OO
=2 s
RNV
ONNONOOOOOCCOOCCOO—
O—O0OO0OWOW

[gn)

~N ~N

(1) (2

MODTYP

O =N
= =

MSGO
MSGOC
MSG1
MSG1C

(7] w

MODCSR
MODE
MODE
S
MODLOC=
MODREM=
MODS

4
o

CZKMSAQ KHS11-BD/EE DC L
L

7203

CRCSS REFERENCE

23-DEC-82
TABLE == USER SYMBOLS

14:01

PAGE 258

6516

SEQ Q 2 256

*
6228
6231+
6234
6237
6240
6253

6191«
6193+
6195«
6197«
6200+

cdOcRN
dOi~Az0iAz0iGz0iGz0iOzlGg0dG0=lG0elAaleleAA leleS]O

NOWrOGmMNtuGOMANenNNyOYOMOTU=3MIO8WOTNNSO8NN8A03OO AFNGMNMIMNOMNMOO MUMJTVdNYoWaOWezViNlOezNNiYoOC eUlMzO—lNerOelCarUlNMmeINrlWarNlrNdOroMNlOOUoOlM0oNVOl0MOMeI0lNOeM0lONo0OOlU0OoOUlOreUlMMcIsMM

NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NCO
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1
NOD1

OVNNRN
UMFNN
NWNOO N=

[—Ee
oaElYeaZ]YIlaITlaLolZaoTlaoZYlaZeYl2aeY2lao2YlaZoYl2aoY2laeZ)]
23-DEC-82
52 )
14:01
PAGE 259
R EFERENCE TABLE == USER SYMBOLS

NOD1

30604
30614
30624
29664
30634
30644
30654
30664
30694
30704
30714
30724

SEQ 257

C(ZKMSAD kMS11-BD/B £ DC LY
13:5¢4
DEC-82
23-DE
CZKMSA.PIA
1

(1
MACY11 30A(1052
)
23-DEC-82
14:01
PAGE 260
R EFERENCE TABLE =-- USER SYMBOLS
CROSS
0s

SEQ 258

3:5¢4

o o ~ (=]

SEQ 259

23-DEC-82
14:01
PAGE 261
30A(1052 )
CRCSS R EFERENCE TABLE == USER SYMBOLS

N o~ "~

o o an -—

M[
=4 o

M (=4 ~N N

[o¥]

DEC-82
23-DE

MACY11

CIKMSA. PN

DC LY

/BE
(ZKMSAQ kMS11-8D/8B

L
al [=4

o ~o

- oa

[,
a] - —— o

C(ZKMSAQ KMS11-8BD/ 8 t DC L

PARARVAPRARAPARB)RARANRARARAARANAN

2 1 13:54
tC
23-DEC-8

23-DEC=-82

FERENCE

TABLE

14:01

SEQ 260

PAGE 262

== USER SYMBOLS

0D
(2ZxMSAO KkMS11-BD/BE D(L
23-DEC-82
(ZKMSA. P11
1
013012
013022
011744
011750
012012

NBLS
N85S
NB6S

012056
012100
012130

016525
016475

016516

X
R
L E X
n

7015

6916

8060+

7375

7557

7814

78464

5789
6703
6760

7006

7012

7013

7025

7027

7061

7560

7720

7722

7807

7810

8148

6116
6709

6242+
6780

6252+
6824

7062

7084

6424

6457

264N

o9#
o9x
(e ]

PNMS
PNST

PNE C

7014

O—‘NU‘U‘OOSOOOOO

061022
015527
016506

01733
016520

7010+

5575
NI WO ONMANINLRUNININI
NI NN

PL(K
PMS
PN(K

PCPM
PEC

000002
000042
000030
002644
0J2645
002646
002647
010210
016510
001600
000115

6998

PAS
=
PASC
=
PASMOD=
PASSY
PASS2
PASSY
PASSL
PCADD
PCK
PCLKCT=
PCLKEN=

6991

002642
016546
000015
(013420
010116
010120
000002
066164
066040
013414
010144
000000
000001
000001
000000
000001
000001
000000
000001
000000
010224

6173

002162

OPEND
OPRMM
OPRMSG=
OPTYP
OPVAR
OPVAR1
OTINT =
OUTEND
OUTHDL
OUTVEC
OVRCNT
0%APT1S=
0s$AU
=
0$BGNR=
0%8GNS=
=
osou
OSERRT=
O$GNSW=
O$POIN=
0%$SETU=
PARAM

6879+

OP(CNT

6861+

LR X

012156
010162
002514
002520

N
AN ANANINND NN
O \l\:
Rk
kxkXx

NB7%
OFSET
PT
oPEr
OPBUF

012034

AIRLALRL AV OO AININI NI A NANWNWNWNININ

NB3%

SEQ 261

30A(1 52)
14:01
PAGE 263
23-DEC-82
ROSS REFE RENCE TABLE == USER SYMBOLS

oo
~NON

N72%
N73%
N8OS
NB1S
NB2%

MACY11

5§

09»

7770«

6283+
7350

E
CZKMSAO kMS11-BD/BE DCLT

(IxMSA P

MACY1? 30A(1052)

23-DEC-82

31893

4063

1014

8204
22094

8218«
5583

23-DEC-82 13:5¢4

PNT

= 001000

2220

PR]

= 002000 G

2221#

PRIOY

= 000040 G

2208«

PNTTRB

026616

PRIOR
067357
PRIOO = 000000 G
PR102
PRIOY
PRI04
PRIOS
PRI06

=
=
=
=
=

PR107 =
PRNT
=
PROTO =
PROTOB=

PRTETB
PRTEQ
PRTEYT
PRTE2
PRTES

PRTEG

PRTES

PRIEG

PRTNOS

PSCNT
PST

PTREND

PTRTAB
PTR13
PIR2Y
PSACT
PSBUFA

PSCNT
PSEXIT
PSGDBD

000100
000140
000200
000240
000300

G
6
G
G
G

000340 G
000055
000041
000040

025764

026002
026034
026036
026074

026140

026170

026224

2207#
22064
2205#
2204w
2203

22024
2960

3927
3928
3929
3930

3934n
39464
39494
3963

31931

1932

6278

3921

29264

3927

3928

6917

5643
5042

6495

6914+

006406

26978

4452

4457

L6461

007536

006502
006576
003370
003364

003372
031624
003401

PENUM

003374

PSRADX
PSTREE
P$TRV
P$TIRS

003376
003366
031506
031516

2702#

26984
26994
26814
26798

26828
5096
26864
6302

26854
6217+
26834

3777

5748
4580
3707«
3705«

5231«
51294
3690«
6322+

3691+
6224
4157

QCOoPY = 000013

6147
26B4H
26804
3709
5095#
23394

QTx
= 000010
QUALFG 003250

23024
263284

6571
3708

RAMI
RAMO
ROMPE

= 001000
= 002000
= 000010

24210
24204
23929

5511
4194

RDY]

= 000020

263

17?2

= 000004

003252

RoMPS = 009006

;Zg}c
26334

S3008

31930

1931

31932

5878

6070

6077

6475

5256+

5806

5823

6155+

6209+

626"

5832

6022

6050+

6058+

6072+

6127+

5234+

5238

5240+

5246+

6120

6126

7065

7407

7«10

3933

39894

2746
32534

3253

1929

319794

010122
016477

003400

QUALVL

5634
6045

4001w

PSNNUF

QRX

4078

31933

016612

PAGE 264

(RCSS REFERENCE TABLE == USER SYMBOLS

2053
23738
2361a
22768

3920

14:01

SEQ 262

6157
S186*
3706
5092#
5104
308¢

4517

5902+

3736

5921
6477
5135
5093

5238
5152
3710
6323

3720
6243
4163

6159
5189+
5094
5822
5122
6142

6054
5820+
5818+

5300
5157
5150«
6336

6130
6310
9226

6287
5196+
5819+

5745

6064

6676

5307+«

5312

5155+
6382
4154+
6319

5163
6447
4164+
6334+

5213+
6449
SB07«
63B1e

6386
5203

5236

5244

5229+

523

5232+

51¢7

6547

6596

6625

6675

6696

6735

6744

6765

6625
SB21+

6682
6139¢

6736
6142«

6749
6145

6762
6247+

6779
6250

7017
6263

6281

6284+

7.78

7480

7611

4159

4192

7216

7235

7246

7259

7318

73n

7380

7637

7505

5946+r

7193

6136+

7205

6159+

6160¢

7029

026366
026526
026446
025666
026526

RPIDVI
RPTEOP
RPISOL
RPTIXQ
RPTQ
RPT1

026316
026366
025112
02
02
02

RSPTRE
KSPTPS

007652
007650

RXC

RXBDL
RXBUF

013434
005406

RXMIT
RXMIOT
RXONLY
RXON3
RXPTR
=
RxQ
RXQUAL
RXQUEX
RXQU!
RXSKEN
RXSTAK
W ——

(=] o
(=] o
oo
(=] o
(=] (o]

0
0
0

0
G
0
0
0
0

015646

678

011440

z 00
RQ1
RQIFLG
01

013642
010112
060736
060754
010050
000004
030112
030156
030120
010046
007672
OV
wn

OOVwWW

SOWES

NN
NSOV

[e -Te
-Lle]

O NN
PV,
Te )
~NON

NV~

O OWO

AW
S~ 000000
—

6490«
6489
B80SO
7618
8056+
7628+

5844
6049

8053

6490

o
=

N~
O

7735

NN
O
wvn~NoOWD

— N
-

S
(e )

7702

LR
R 4

Oroos

&~
O

WNAN S 85 LN SN NP N NN
B SN s )
O N = = YN = O0ONININION
— = £ WN—=O
OWES S
OO IMNNODINSE
= WD
N O OO N O WNNNWNNI OO OO0~

7697
o

WS
) b d e e Y RN
NS OO
& AN =2 NN D0 N

2910
38684

[od
(>3
0

2709
3865

2908
3861

NN
W
NN
O

23-De(-82 1

£SO
anro

CZKM3A . P1Y
-0

DCLT

O~N

(ZKMSAQ xMS11-BD/B £

AU PO L LN NN WA AU AL AL NJ AL PNV
NN N RO AR PV R NI RO PO RNV AN
PO ANJ NN
)
NOND ES B B POV
O PNORLNNLNVWNN NN
O
ONO 0NN NOCOWNND
8~
O < 0 0 O O 0 O 00 00 LN NN CONWE
N ONVWARI
NWIOD N =NV~ — N BN~~~ 8 0000 O
QB
NL
D000
N
NN
NN
0D
O0
OO
NG
—
—
LARUUN
>
O
(N
=
—
€O
—
—s
—
—o
—2
OF
LN
0D
0000
QO
PORY = — — CBNIWNN
&
NN SN N S N0 N0 L NNV ON)
-2 OMANOD
O
00 £ £ 00 WV NN NN N
=2 PUANWNNOON
& OO
— O ~ & ~RO A
LE
R
B
R
R
R
%
& J
L
L
RN
Rk
a2

o
(=
o

RPTDSP

=
o
o
&

RHLPO
RHLPY
RHLP?2
RHLP3
RHLPEN
RHLPTB

|& ]

RESFLG
RESTRT

(=
o
O

nwauown

RDYO
REC
RECMOD
REPLOG
REPORY

RTS
RUN
nn

RPTABO
RPIDCK
RPTDDE
RPTDER
RPTIDLE

h°J

0
v
X

*+
7524+
6681+

5747
64770

6597
6627

7627

ABLE == USER SYMBOLS

14:01

7724
781

5737
5448
564574

5796
6051«
6118

4057
4073
4089

7566
6833
8029+

7530
6622+

8055

PAGE 265

38904

SEQ 263

7852

6287«
6921
6923

N
oac

3:5¢4

MACY11

Sta

23-DEC-82
14:01
PAGE 266
30A(1052 )
CRCSS R EFERENCE TABLE == USER SYMBOLS

O © ~ NNYN s

~— 0Ooa0~uad4B(VXTI ——

(ZxMSAQ xMS11-BD/
CIKMSA P
23-D

013406

N
I IN— FO
I O~ONO
MOOOFr O OINIONMON

NNINE OOMO
O OONNNNNNOMOO
—-rOOOMNMINN

— X O oaacxZ>awaacaasaacaacaacac-a

NN NN NI NNV NN NN NN NN NN ANANANNINAN ANV

wNoin

N& N2Oie—

v w -—

SELG

LJ-

Ny MmN

013402

-0 N9 o

SEL4

7366

7430

7369«

7433

7370

7521

[a T aVTa ¥ V] oY a1 oY ol ol al ol al ol ol al ol ol al ol ol al o} [CUCRT S BN BN JVAIVo TV otV IV oIV o TV oV o1V o T atv o)

(e T a T e al el al ot ol al aU ol 2 ol ol ol ol al ol ol al ol o RN JuF S JEXSK SN JVoTVATValValvalValvaolvoal sof

3987

P e T L o L AT AT oY VoY el e a T ol aT a1 ol ol ol ol ol o BX ZX SN SX ZX EX JValValValvalval ol al al al al ol

SVCINS= 000001

M OON FAIIA O — NN ON O CUR 0NN GO OF — N GO <3 O OO NN I T AL N
RV N
O OVORC NN NA
O — NM ONNOM
—MODOLO— T O~ ONIWNOMNOR
~y

000000
Sv(GBL

3:54

-— L.al
‘

8074
8068
7326

SEQ 265
14:01
PAGE 267
30A(1052 )
23-DEC-82
(RCSS R t FERENCE TABLE == USER SYMBOLS

MACY1Y

(ZxMSAQ xMS11-BD
CIxMSA P11
23~

(ZxMSAQ xMS11-BD/BE

DCLT

23-DE(-82 13:54

SEQ 266

14:01
30 A1 052 )
23-DEC-82
PAGE 268
CRGS SR 3 FERENCE TABLE == USER SYMBOLS

— M ODM O MUUN O 8~ WO 0NN

INO—MNMNOWNO

(IxMSA P11

MACY1Y

I-—OVMaMNO2VNA

VNN O O O O OO N I - 30000

SV(SuUB
SVCTAG

000001
000001

Sv(1ST=
SVSELO
SVSEL2
SVSELL
SVSELG
SSLSYM

000001
067170
067172
067174
067176

TAL(K
TALMOD

062350
000035

TEmp

010164

81264

010000

010170

TEmP3

010172

01017¢

a=*Lo3]Ay

L
]

3372

3374

3390

MPONN MM OO

TEmp?

—3I2NA0 — ANO O

010166

OOV ~— aOrNoo

010100

TEmPY

TERPS

8116

N0N0
A MMA. OOV
O OO= —ONON
MA NOO~
J NIVUN
AA
OM
I TO
MOh vF CNUMIWA

T(URAD

3407

3409

1599«

5027+
€918

5033

7955+

70140
7994

3663

9520+

9519
7023

8010+

5434

000002
N

-—

L LR
R

NN OOONOOND NN N NN

O S NISNISNIN NI SNN NN N

R R

Buk

NN O W =2 LCOOO O NN—PN) 0D
VOO ONIO S NODI NN
S N OWWNOON) = NN
= NN

L E R R

~ OO PO

N NUWHA O NV

=2 NI O

b —B NI

WAV

s b

N
NWNWN—
OO0 CONEWE

DWOO

—h e

O VWAV

010160

= NN NN =P el b cd h e e e e =l D b
D =\ YN N NN
N
e e b = 2D O
= NVO O =~ =)~y —t
O OO O 8 = NN ~NO N =2 0D O NI NN NN ~N

AN DWW VALY NN N O NI RO

000001

IVTVVIV [V IV (VTR L XV Te - To

ANVWNOOON

PO SN 2O
WVWOOO NN

WROWY
OO
~N

~NNIO SO0

WNLN

p ol oV

6079

7210

mmm

M
Z2 )

TMM

(W LV )

W
W

MACYIY

NS OONNOONO

WCONOD
—
»

AN NOD NN
N OWNO 0D
VNS = = AURIAI NN
— S~

VRN

NNNPOROUAIPONUNORD
BN I
NN
0000 O00 O N0
VNN O WNWN S WS = ~NO &~
NNV
O NO O —
NN
N
RN
2R

.P
(IxMSA
(IxMSAD xMS11-BD/B

AURL NN AL RLAL AU AR

B2
ABLE

14:01

6866
8114

7770#

6327
3771
5159

6882
6916¢
7541
7589+

7635¢
7705

7792+

7613
506%

3626+
7542
3664
7706
4034
7793
4101

6103
4891

4899

5726

7132«

7146

7526¢
7678+

7774
7776

3659
3657
5458«
545G

7228
72%9
7250

7312
7364

7428
7483
7512

76948

4307
4309
4380«

5762+
5864

5865
5899

5906+

5907

6439
6459
7368
7623

6404
4695
6407

7317
7622+

6349
L6940
4968
7501

6700¢

727

== USER SYMBOLS

PAGE 269

7352¢

7353

5165

5184
5257

5248

5271
5292

7523+
7579
7582+
7969

5864

5875
5899+
6076

SEQ 267

8115

4916
7485
6926+
76491

5182

4891
7419
7634
5247

4899«

5162

74613
762640

5270

5291

5315

5272
5293
$3'9

7972+

8025

7632
7656

8028

7576+

010074
060764
060772
010052

5758

5877

5879

5901+

6071

6075«

6428

6622

(4690

4476

5745+

5756

5878+

5892+«

5893

6077¢

000000
004000
000001

2&®=8 O3N0—OMN0 OOIeOM—

1$CODE
TSERRN

003031
000017

TSEXCP

000000

o] SR LolJVaTValre &NRXo olalLal.al

007656

— o »n
75494

TSFLAG
TSGMAN

000040
000000
TSHILI= 177776

TSLAST= 000001
T$LOLI= 160000
TSLSYM

5898

OOO—IMNONIOOWWNDO0eO—ONMNVN—DM—OMWMVNNIMONN

XQ
TXSTAK
@10
TSARGC

SEQ 268

23-DEC-82
30A(1052 )
14:01
PAGE 270
CRCSS R EFERENCE TABLE =-- USER SYMBOLS

JVofeTlrVel.ALVARXoRXalalal[aVT

TXONZ

TXPIR

MACY1Y

JOVaNTVOalVWalNieE].EX3aROXaNlOalNa—l OV—[A
OJMRFWVNI—OM—NN—S =Or—OD ——

TXM107
TXONLY

o][~ >~ 3:54

(IxMSAQD kMS11-BD/
(IKMSA P11
23-D

010000

AQeOUNM~DAMA —NMOIMTOPNMNWNOMY LMS0IOMS0IMMIONDMNe—M MIEONDCWND—M
»

5812#

5817

69994

7004

8193#

8197

8198«

8202

8203«

56124

S815

69994

7002

8193

8195

8198#

8200

8203«

3427

3538

5344

3512#

5333#

TSLIN
TSNES

694

81464

8150

T$SAVL

1$SEGL= 177777
TSSUBN
000000
1$TAG
1727777
-

TSTAGN= 010026
T$1¢4P

000000

3LSMMUMM o)o
MN<A—UvO3MMNWvSOIIWOMNNNM—OEOMOWrLAONUDN0IAOOMNOAIOVONKI«IINN0OIMMYNNOMWOVO-N00OgOMOVLOelVNal1oV~]e[l[Noa)~0[eOaaWMl0"o~s-)—)[Va1
gNNI——kEOO3RO&a0TD8OMxRMMPNIROeUNMO—EMCNMINM—0MPNICNUAOO0OONXNUONXyOMNOAI~MNEO—M—0LTNIlN—O—A-ROWOmKN~AMGRx-4MONOOg—MUV0IAIAN0AN&RORI&NMOA<.ONy7RVN~WXFMyVMNNA8IX[VSTRN)(AFSV.ekONWOAOeNCMTRa-—NIxTNwICNovIIN—IDAkdOMWMaOOVrblIe—lNTNNeM>VUOnAo[]Va2lal "1V}[Va)

VeOMNI—WAM=~—OMD 23eL0»®55
b

MM —

NOMALD =N P == MO

Lal.a4l AV[oY]

~ML.
2] o o by

caO
da=onlXNkoglogd=lOO
elmlalalat
Ou[TRk

ePOCOOOO0OO

—FW2V00O2NOW—VONOeNO

RODONOS—Q MNNU0WOMM MM
OOMNMOO—MDNNNMVMONOOVMM3MM

O& FD2TMOA—MBNMDNFOAWM—OMONOMN

O0AU2M-=~U

al o
~y ~L,

[
s} ~ L.l O =

L
a) L2l hd 0

DDA-0MM,0— MR
ONN
OOPFONe OOVW

Mg
LLale]

MACY1Y

Mg
MO

o)[=]: —— 3:54
L

X35533
2 3 2 32 2 L

0 a03—N OO—GC0ONM AMNIMUWNA

EL=AXIBA

](&)

Mo4NJ]VAaNOr—
OO
OIT ,lVMWaNlNVMaNNleOIV—aNQNNrv=e—le—alXalWLOAl
a3NV
OOI0MNAIOWNRMN-NNOOAUOBMOBOMMIUN—JOOMOOM<MM
30MMO0
OO NNMM
AN O —
—2OOMWNOO0
30N 2 — MAON
MO MUNOO

P[=—OO]]lAETPP R RIApRmN@RTT AI TBIRVoPeo ARTT PANeRWANP
[O=erlevelleselrleeolleroall—oellraollee—lleae]]
%UM1N3.—3.N5.O2. 5.O3 .NL3
VNoo=0 OONO®NWONOO aNoIMOMS OO NOUMA
O MO O O OVOMOOAO NIT T

JO—ONNJhRyeo¥X=OrallNF—gnaaOaIgllDkVMoeeWNOllIeeRONlKlIPeenMllIONeeNAeMlkl—A=AJeeVWJeNSJ[e L-A O~-— -[oo=-~V]Na3) )JOFOONVYa.TVATMVA—TVIARVoaRXalLAIVl
VNOSoMXVe]DYV—JVoTVNaX alL—Al

WIrCOJN"—VNMOODINrECO—NIAFNO OrNMTT —AONKMMX0L—AN~OLI0—N0TMIODQVMONWPMOIZA0N0OIeOdLNO0IO-LtNIMT1]EONs0IwTOONM¢0VO¢wT¢NOMQWAOeIIND—BMOCA —OBONeW2—NV(OVWUOQOKe=—O—D=
oO"=OOlaO
oYOlNJMVoaIV—lYV¢OaOl~VOaNlOO.LPO Oad
CZXMSAQ KMS11-BD/
(ZkMSA. P11
23-D

527)
23-DEC-82
14:01
PAGE 271
R EFERENCE TABLE == USER SYMBOLS

SEQ 269

L,
al ~Y[¥
ol ~N &8
al 0 4
L.a]L.

al ~ O o N
L.

CZKMSAQ XMS11-BD/B E DC LY
CIKMSA P11
23-DE
DEC-82 1 13:564
000000

000040
000400
000020
SPATCH
067456
= 067542

23-DEC-82
30A(1052 )
14:01
PAGE 272
CROSS R EFERENCE TABLE =-- USER SYMBOLS

GNONVONMIMVIMN —OML

4[RaNoV1olaVTaNL

X$ALWA=
X$FALS
X$QFFS
X$TRUE

MACY11

SEN 270

CZKMSAD KMS11-BD/BE DCLT
CIKMSA.P11 ~ 23-DEC-B2 13:54
BCOMPL

BERROR
BGNAU
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW

BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSF T

BGNSRV
BGNSUB
BGNSW

#1996
19960
1996%
19968
19964
19960
1996¢
19968
W
19964
19964
W
1w
19964
1
19964
19960
1%
14
1996%
19964
1w
19960
1

W
14
1
1w
W
1w
1#

19964

19964
19964
19964

1#
1

BGNTST
BNCOMP

W
14

BREAK
BRESET
CKLOOP

1#
1#
W

BNERRO

CLI

DISPLA
DOCLN
DODU
DORPT

ENDAU
ENDAUT
ENDCLN
ENDCOM
ENDDU
ENDHRD
£ NDHW

14
1
1w
1
18
14
19
18
1
18
18

579

3289

3302

3319

3335

1996

5714
5392

5412

5422

5433

5477

55464
5403

7142
5631

7555

7717

7805

2955
2970
0987
3009
3027
3050
3065
3086
3108
4174

2956
2971
2988
3010
3028
3051
3068
3087
3109
4175

2957
2972
2989
3011
3029
3052
3069
3089
3110
4176

2958
2973
2990
3012
3030
3053
3070
3092
3111
4177

2959
2974
2991
3013
3033
3054
3071
3093
3112
&178

3237
3226
2106
8183
5375

5542

19964

1996
19968
19964

4193
19964
19964
19964
19968
19960
19960
19960

1596#
19968
19968
19968
19964
19968
19968
19968
19968
19968
19968

3351

3368

3387

3402

2960
2975
2992
3016
3034
3055
3072
3094
3113
4179

2961
2976
2993
3017
3035
3056
3073
3095
3115
4180

2962
2979
2994
3018
3036
3057
3074
3096
3116
4181

2963
2980
2995
3019
3038
3058
3077
3097
3117
4184

5332

B14S

19964

1w
19
19
1

COMMEN

5398

8137

DELAY
DESCRI
DEVTYP
DISPAT

3272
5352

5387

3511

2954
2969
2986
3004
3026
3047
3064
3085
3107
173

4192
18
1w
1

5687
5604
5613
5665
B176
2118
5368
1997

SEQ 271

MACY11 30A(1052)
23-DEC-82 14:01
PAGE 274
CROSS REFERENCE TABLE == MACRO NAMES

19964

20004
2968
2985
3003
3025
3045
3063
3082
3106
2172

(LOCK
CLOSE
CLRVEC

5382

4194
5408

5698
5608
5655
5676
8214
2144

4195
5418

4196

4200

4203

2964
2981
2996
3020
3039
3059
3078
3098
3118
4185

2965
2982
3000
3021
3041
3060
3079
3099
3119
4189

2966
2983
3001
3022
3042
3061
3080
3102
3122
4190

2967
2984
3002
3023
3044
3062
3081
3103
&'7d
4191

CIkMSAD kMS11-BD/BE DCLT
CIKMSA. P11
23-DEC-82 13:5¢4
ENDINI
ENDMOD

ENDMSG

ENDPRO
ENDPTA
ENDRPT
ENDSEG
ENDSEY
ENDSFT
ENDSRV
ENDSUB
ENDSW
ENDTSY
EQUALS
ERRNF
ERRHRD
ERROR
ERRSF

ERRSOF

ERRTBL
ESCAPE

EX1Y

FEQUAL

W
1w

19960
19964

5592
8254

1%
14
1w
14
14
14
1w
14
14
1w
14
14
1%
14
14

19964
19964
19968
19964
19964
19964
19964
19964
19964
19964
19964
19964
19964
19964
19964

5359

#
14

19964
19964

19964

M$COUN

MSDATA

MSDECR
MSDEFA

14
32130
396504
50628

5669

5691

5798

5854

3695

5438

5808

6995

5473
8192

8197

8208

5639¢

5442

58094

5812

69964

6999

69994

56928
B193#

57994
8198¢

58554
82034

82094

63054

6343X

63520

6361N

63728

19964

19964
19964
19964

3207

36964

3699

19964

8249

19964
19964

20154
36304

2021
55864

2022
S6494

2023
S6704

19964
37230
39814
52088

32754
3777
39914
52514

32924
37854
L0044
S(S2M

33054
37924
40144
55224

33224
38024
404BN
5528

2026

2028

2030

2032

2034

2036

56994
58124

Bli2x
69994

B1504
B193#

B1594
B1984

B2154
82034

82554
82094

19964
19964

19964

36994

54624

61804

61504

19964

20154

2024

2084

2086

S6564
36994

56774
S442a

55938
18

S609#
19968

8040

8085

8096

6390K

34168
38954
42468
58684

6431N

36404
39074
42554
58834
664L2N

36484
39364
63004
59104
64678

36854
39514
50314
59274
69604

2038

2040

2042

2044

2046

5792

9893:

2050
2082
19964

8019

2014

9822:

2048
2080
18

8202

5648

19964

7958

8158
2158

5585

MSCNTO

3536

3429

14
10

7710

5342

19964

MSBYTE
MSCHE(

3425

7639

4
10

1398

7593

HEADER

MANUAL
MEMORY

3382

7547

3363

7151

GPRML

LASTAD

8149

3345

6886

19964
19964
19964

INLOOP
JOSETU
I0STAR

8141

3329

6872

10
%
1w
1#

14
1
12

3312

6853

GMANID
GMANIL
GPHARD
GPRMA

3298

19964

19964
19964
19964

GPRMD

MACY11 30A(1052)
23-DEC-82 14:01
PAGE 275
(ROSS REFERENCE TABLE == MACRO NAMES

8002

14
%
%
18

SEQ 272

7800

GETBY?
GETPR]
GE TWOR

GMANIA

3285

2052
21454

20544
3286

58124

62564

2056
2088
32994

2058
2090
33134

3338
3B124
4LD6SH
SS344

2061
2092
33304

3354
38224
4LOBON
57314

2064
2094
33464

33714
3847
41034
5780

2066
2096
3364N

35904
38704
4134N
S826#

2068
2098
33834

34064
38804
4236
SB35

2070
32270
33994

2072
32384
3426K

2074
35374

2076
S343e

2078
53604

SEQ 273
30

)
23-DEC-82
14:01
PAGE 276
EFERENCE TABLE == MACRO NAMES

(ZxMSAO xMS11-BD
23~
CIKMSA,. P

3:5¢4

MACY11

o o © O0aOMOMOD o O 00O OMAOMIOM DO OO — ONINCOMON ITMANIOM I FTNONMNNA— O
O~y O VO MOCIMe— OO — WNMOOMA CUMIN OO A O AN 00— MO0 — G0 O NN O ~F O O — VN AOMILIMIO O

M.Y
2 OONNINMCCO—NIONM
MO — O OOOCOMKA OM—AOOOM—OOOOOO

OMO— N0V OO — O—MOM
IO TN OONCOTNT
ON IOOM—O
oo ANONOO—AIMNO CCOONMAOMI
M
MM
FTOCO—NOO
ONNM
T I ORI
OCOO
OM— OVOO
O0VOCOMNY
OO0
—
M=

CZKMSAQ KMS1 -8D/8t
B
D( L
CZKMSA.PIY
23-DEC-B2 1 13:5¢4

SEQ 274

23-DEC-82
14:01
PAGE 277
30A(1052 )
CROSS R EFERENCE TABLE == MACRO NAMES

MSPRIN

MSPUSH

OOMMN M

t&Sf32 o*K-)L—l

~QWO2PNT—vFOMNOV—OFTMAOMOVPOR—ARTXxkRx NAMO=IMIM OWMTOVN—MMN0U’NO ONA-a0V —ONMANIOeMIN—O WOMNANMO0ON—O
WOVO—NONMN—MANO

B2wiCAr2-ZaR2N@ PZN2RVAIDROA<LR

O0NI0IO0NON—2C0NOIONOVI~OOVOWOWOMONIONNNOIO2MAPNOANN—MUNOOUUITWNOA

NWDG0Na0M00D-WINMIOWONOWONOWOAWAIWNININ

OMINJNDeM—TNPRON—UINMNI

MACY11

53854

53904

5396«

32994
56994
3305#
57924

1
4
2
0

7
9

8
0
S
8

3273

32904

33034

3
3
1

S
1

3
8
6

3
68734

69984
7083
76400
80034
8099«
8199

82524

34264

35374

0
8
8
9

1
9

1
0

1
9

)
4

8
1

3
5

53434

5593«

9
2

4
7

3
1
5

56194

54740

55834

56344

6
1
7

8
5
9

33994

36268

35374

53434

53604

0
g
6

3
2

33364

3352

33694

33884

34034

35124

5333

5
5
2
8
3
5

2
0

33994

3
0
9
5
0
2

33834

8
2
8
1

54094

NONION

33204

?
7

N1RVeTVARVSYVTVIVIVBTaRUalal[Jalal[V)6XV3Vo3YV2AV6YV6FP0B“BOeVeMlolOala—laMlaOl[ONMWNMO—
v
e
]
J
V
a
t
V
a
l
v
a
l
V
a
l
i
e
l
i
e
l
S
N
S
N
L
k
X
a
l
g
a
l
l
a
l
a
l
O
N
O
W
N
V
N
E
O
D
—
M
O
O
IO
M
RVelTVIVYVTVVoYVJVBXoolalLalalal oa)0.oyROVelDOeYVoTWVARYVgVXWX8MWRGX"oaMlglaMlLIaloNal.al

Xv>«Vuo4=n[« CWZoATvxODEaZT~0wxx E >--Xa

A2CO~rOITNOMIOOMNOAMBANORDOOMNODM— [T

M$TL AB

xRk e Oa0

-— L

S<3NOMMMNM [agoRSlXJVaYrVTlVoeIaVo)Yl GOMTNMMN0MN aoRZJILSYVYVle]XVNRiaeRlie) F0M3DMIMNMM agSRLolaaValN87)aVavUa

BWk

3369#

33884

o
92N
00

144

764
394
664
S6n

MMM ON OO OO r—MONIWNAOONM3
MM ON RO NN O Mg

M <2 GO O\ ~F NN ADMA

OMOON MO — 2 — AL NN O OMMAD -7 -7 O~ O 0

O—WMNEGNANM0OMNN AODWMTNO
0

DNNVelOel MRVYVOAIVNAIVVANVIMgTEROXolN0 alaMlLal
O
O
alvalVvalvalvelrelnalLAl O—MM
NN
MV
S
S
N
M
L
0
S
O
N
I
M
N
O
M
-JO]VMae,TVMalNVOalve alVXLWoOl NBR FWRVNOtWNkANAMNMANR —ORLTO—
OO0 NN M OOY.I~OOT]«IVRNVeIYVN=YVONTVMBOTVaMJVINgQMXNRON&o aOOl aNPlalM.L»al

3:54
MACY11

MePUT

gVaXVe)(Val
aZX l

CIXKMSAQ kMS11CIKMSA. P11
30A(1052 )
23-DEC- 82
14:01
PAGE 278
CROSS R E FERENCE TABLE == MACRO NAM ES

SEQ 275

34034

35124

5333«

OMAMAN— 53L.325 OPer—OMINO

NOM—=OV—N OMNUOAMVANAONN

M0O MMOWV

2964
2981
9

0
0
0
0
0
1
!

067542

ERRORS DETECTED:

000
0

w Oo~b

w ~ o o> -

Val aD al w o

O Ne—
TwvOOMM o oo=

O MO

LadX4VNoBaXMYOe— 2oNOD WOMo VOI M"o O— Nwory wMeY

PRINTS

ABS.

—O Ny O M0—NN JMRM

VO O N O —O NV

OOVNO— NOINOOON NVNON

X2
KO
g

M$WORD

0o»

NMOM 3O—NNONVOr

M <F OO F N OMWN

MBTSTL

3:5¢4

SEQ 276

PAGE 279
14:01
30A(1052 )
23-DE(-82
(RCSS R EFERENCE TABLE == MACRO NAMES

3MOSTONON—

o][=Y.

MACY11

3OIOCIITMMNISONTNNOMA— Vo)BNoZVel.JoVIXeTo[l

(ZxMSAQ kMS11-BD
CZxkMSA. P11
23-

wTMo ®AOL

CIKMSAD KMS11-BD/BE DCLT
CIKMSA, P11
23-DEC-B2 13:54

MACY1? 30A(1052> 23-DEC-82 14:01 PAGE 280
RCSS REFERENCE TABLE == MACRO NAMES

C2KMSA.BIN,CZKMSA.LST/CRF/SOL/NL:TOC=SV(34R.MLB,(ZKMSA,
P11

RUN-TIME: $0 39 & SECONDS

RUN=TIME RATI0:

CORE USED:

23k

117/75=1.5

(45 PAGES)

SEQ 277